Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Hlidac konfigurace
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.3.2000 10:23:35
Na www.volny(tec)cz/jan.fiala jsem dal unitu, ktera umi cist a zapisovat nastaveni
BDE. Pri spusteni programu si muzes zkontrolovat a upravit nastaveni BDE.
Jan Fiala
----- Original Message -----
From: Bohuslav Svancara <softprojekt(zv)iol(tec)cz>> Nevite prosim vas o nejakem programu, ktery by hlidal konfiguraci pocitace a
> programu?
>
> O co jde: Mam u uzivatele instalovany program pracujici s BDE. Jde o pomerne
> velkou sit s mnoha uzivateli. Pracuje se s Paradoxem a Centurou. Ted tam
> druha firma instaluje svuj program, pouzivajici BDE a Interbase.
>
> Neustale se jen resi problemy typu: jak je namapovan server, kde je
> instalovane BDE, jestli je spravna verze, co je napsane v registrech, jestli
> maji programy spravne
> nastavene aliasy, jestli jsou spravna hesla, jestli je vubec pruchodna sit
> (maji tam prenos pres laserovou linku a obcas nejede), jestli nekdo nesmazal
> nejaky soubor atd.
>
> Uz toho mam plny zuby.
>
> Neni neco, kam by se zapsala konfigurace pocitace (vybrane parametry) a
> nastaveni nejruznejsich parametru programu a cim by se dalo zkontrolovat,
> jestli je vsechno nastavene, jak ma byt?
>
> S pozdravem
>
> Bohuslav Svancara
> softprojekt(zv)iol(tec)cz
>
>
>
Delphi a Lotus Notes
[*] sorbo <sorbo(zv)centrum(tec)cz> - 3.3.2000 10:50:27
> nemate nekdo zkusenosti s propojenim Delphi s Lotus Notes? Nejlepsi by
byly
> nejake nativni komponenty.
ahoj,
na DSP je komponenta (D3, free) ln:
ln.zip (656,327 bytes) This class library allows to work with the Lotus
Notes
from Delphi programs. It covers almost all aspects of Notes functionality:
- databases (open/create, search)
- mail (send/receive)
- documents (read/create, send)
- items (read/create, RTF)
- database directories (browse)
- hierarchical names (parsing/combining, lookups)
Nezkousel jsem to.
sorbo
HLP X CHM
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 03.3.2000 11:15:01
> CHM jdou prohlizet ve Win98, tam je IE implicitne a smazat nejde
omyl.
> (nastesti).
omyl.
/LH
OT: matematicke vzorecky HEEELP
[*] petr.palicka(zv)atlas(tec)cz - 3.3.2000 11:20:12
ahojte,
nevite nekdo, kde se daji na netu nalezti matematicke vzorce,
respective potrebuji nutne
vzorce na trojuhelnik
dekuji
peca
HLP X CHM
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 3.3.2000 11:26:04
Ahoj,
nevim, skoly nemam, ale html help se podle me prohlizi programem hh.exe
takze explorer potreba nejni. Nevim to ale jiste. Co se tyce tvorby html
exituje na to produkt HTML Help Workshop - akorat se obavam, ze bude stejnej
jako ten Help Workshop. Za prve je oba delal Microsoft a za druhe bude
filozofie tvorby podobna akorat RTF nahradi HTML.
Mozna se ale pletu. Ten HTML Workshop je ke stazeni na MS webu nebo byl
nekde na nejakym CD v casaku.
Marek Soukup
> CHM jdou prohlizet ve Win98, tam je IE implicitne a smazat nejde
> (nastesti).
> Jak je to v NT to nevim, nemel sem s nimi cest, ale myslim si, ze v
> novejsich verzich to pude urcite. Ve WIN2K jdou urcite. Ja bych asi zvolil
> CHM. A pokud user nema IE, jeho blbost :-). A uz si nekdy zkousel
> delat HLP
> v Help Workshopu (z Delphi)? Ja sem se o to pokousel, ale naprosto bez
> uspechu, je to strasnej program. Pro CHM by to melo jit prece psat v HTML
> (to neni problem), pak k tomu udelat index, seznam slov a NEKDE to
> zkompilovat, ale prave, v cem? Nebo mas neco na to? A co kdybys to udelal
> jednoduse cely v HTML, pokud to nebude moc veliky (stovky
> klicovejch slov),
> tak by to bylo taky dobry reseni, nehlede na prakticky neomezene moznosti
> formatovani.
>
> Hurricane
Button a Focus
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 3.3.2000 11:26:09
Ahoj,
asi bych to udelal tak, ze bych si napsal funkci, kterou bych volal v
OnKeyDown ve vsech tech tlacitkach a pak bych pres Sender rozpoznal co to
bylo presne za tlacitko a podle toho bych udelal SetFocus na nejaky jiny.
Marek Soukup
> mam jeden problem. Udelal jsem pole Buttonu (6 x 7 tlacitek), neco jako
> sachovnice. Aktivni je tlacitko napr vlevo nahore (Button1),
> takze po stisku
> Space se stiskne. A ted bych chtel, aby po stisku napr klavesy R
> se zamereni
> presunulo doprava, na druhe tlacitko (Button2) a po dalsim stisku
> na Button3
> atd. Muhu to sice udelat, ze do udalosti klavesy R dam ActiveControl :=
> Button2;, ale je to strasne nesikovne. Takhle nez bych rozchodil zminenych
> 42 Buttonu, bych zestarnul. Nevite nekdo, jak toto presouvani
> Focusu vyresit
> elegantneji?
>
> Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
>Tisk obrazku z QuickReportu
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 3.3.2000 11:30:29
Mam problem s tiskem obrazku z QuickReportu.
V archivu konference jsem sice par informaci k tomu nasel, ale nepomaha to.
Mam Delphi 5, k zacleneni obrazku do reportu pouzivam komponentu TQRImage
(TQRDBImage se chova stejne)
Kdyz tam mam BMP obrazek, vse vypada dobre. V Preview modu to je samozrejme
dobre barevne. Na cernobile tiskarne se obrazek vytiskne v odstinech sedi.
Kdyz jsem zkousel GIF, kde byla jedna barva pruhledna, tak chyba byla uz v
Preview modu, kdy pruhlednost barvy ignoroval a pouzil puvodni barvu. A na
tiskarne mi potom vytiskl jen cerny obdelnik.
A u JPG se chova zase uplne jinak. V Preview je vse v poradku (tam se neda
ani nic zkazit), ale tiskne mi obrazek takovym tim novinovym zpusobem, kdy
odstiny sedi nahrazuje ruznymi velikostmi cernych skvrn. Jde o ciste
cernobily obrazek bez odstinu sedi.
Zname demo s obrazky ryb mi tiskne stejne blbe, jako JPG. Tam je obrazek
jako BLOB primo v datech, takze nevim v jakem je to formatu.
Co s tim?
P.S: Neni to chyba tiskarny (zkousel jsem jich nekolik) a ani nejake spatne
nastaveni na mem pocitaci (rovnez jsem jich zkousel nekolik).
================================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
================================Hlidac konfigurace
[*] L. ZITA <konference(zv)sales(tec)cz> - 3.3.2000 11:52:16
Behalf Of Bohuslav Svancara
> Nevite prosim vas o nejakem programu, ktery by hlidal konfiguraci
> pocitace a
> programu?
>
Zkus Shareware SiSoft Sandra
http
://d
ownl
oad.
cnet
.com
/dow
nloa
ds/0
,101
52,
0-10
102-
110-915435,00.html?gid=35399&tag=st.dl.10102-100-915435.dir.10102-110-915435
Ukazku reportu Ti posilam na soukromy mail (je to trochu delsi).
Ludek ZITA
Pricing
SANDRA Pro Single Copy:
1 computer $29 each
SANDRA Pro Site Licenses:
2 to 9 computers: $22 each
10 to 24 computers: $17 each
25 to 49 computers: $14 each
50 to 99 computers: $10 each
Jak vyzobat data? (SQL)
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 3.3.2000 12:02:31
> D3, RxLib2.60, MODBC komponenty, MS SQL 7, Paradox
>
> 1. Pouzivat TDBEdit, TDBGrid aj. komponenty jen pro zobrazeni a pro
> navadeni pouzivat dialogove okna s TEdity, TGridy apod? nebo 2. Po
> kazde udalosti OnDataChange projit vsechna pole a aktualizovat Edity
> (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)? nebo 3. Po kazde
> udalosti OnAfterScroll projit vsechna pole a aktualizovat Edity
> (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)?
Ja bych predevsim rad predeslal, ze knihovna mODBC je priserne
pomala. Provadel jsem nejaka mereni a zjistil jsem, ze pomalejsi
nez mODBC byl jen nevhodne nastaveny Adonis. Zjistil jsem dale,
ze BDE + ODBC neni rychlostne vubec spatne. (ale je tam to
BDE, coz neni prijemne). Radsi bych tedy mODBC zahodil a
hledal neco jineho. Dalsi zradou na mODBC je, ze TStoredProc
neni potomek TDataset, tj. umi provadet pouze ulozene procedury,
ktere nevraceji data!!
Jinak v bodu jedna nerozumim tomu navadeni. Pouzivam, a prijde
mi to spravne, DBGrid a spol. skutecne na prohlizeni dat a pro
editaci pouze nedatabazove komponenty. A tyto komponenty plnim
v OnAfterScroll.
Zacal jsem take dusledne pouzivat memory table
(RxMemoryData), takze potrebuji-li dotaz na SQL server, otevru
Query, nasypu vysledek do RxMemoryData, zavru Query a dale uz
pracuji jen s tim, co je v RxMemoryData.
Netroufam si posoudit, zda je to to nejlepsi, co se da delat,
nicmene dotaz znel, jak to delame.
>
> Pro body 2 a 3 mam nasledujici dotaz, jak se prochazi seznam zobrazeny
> TDBGridu. Uzivatel zmackne klavesu nebo mysi klikne na Scrollbar a
> jede to po jednotlivych zaznamech. Lec, nez se to nacte do tech Editu,
> tak to vice mene (casto vice) zadrhava. Odchytavat udalost onMouseDown
> a Up a OnKeyDown a Up? Nebo existuji elegantnejsi, jednodussi a
> prijatelnejsi reseni (klapky na ocich a zlozvyky...)? A ted se Delfici
> ukazte...
Tak to nevim. Jak jsem rikal vyse, ten DBGrid mam ve skutecnosti
opreny o RxMemoryData a zadne drhnuti jsem nezaregistroval.
>
David
Pocet kopii v QReporte
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 03.3.2000 12:26:29
> > Tisk vice kopii musi podporovat tiskarna, napriklad u pil (jehlickovych
> tiskaren)
> > toto vetsinou nefunguje.
> Aha. A je mozne zistit ci to tlaciaren podporuje predtym nez sa pokusam
> pocet kopii nastavit ? Ak nie asi by som potom musel vytlacit stranku 2x za
> sebou.
> BTW: nefunguje to na HP DeskJet 520.
Ja som mal podobny problem a asi najrychlejsi a najspolahlivejsi system je
strankovat to v programe sam. Pozor! Premennu s poctom stran si treba niekam
odpamatat a nastavit ju na 1, lebo inac na tych tlaciarnach, ktore to podporuju
sa
vytlaci este o to viac stran.
/LH
HLP X CHM
[*] Tom� Br�dle������i�^����? - 3.3.2000 12:27:57
Zdravim,
-----P�vodn� zpr�va-----
Od: Marek Soukup <marek(zv)comberg(tec)cz>>Ahoj,
>nevim, skoly nemam, ale html help se podle me prohlizi programem hh.exe
Ja vim, skoly mam a tak Ti reknu, ze se sice htm help prohlizi programem
hh.exe (! ma jen 27kB), ale ten vyuziva knihovnu SHDOCVW (2128kB),
ve ktere je komponenta na zobrazovani HTML.
>takze explorer potreba nejni. Nevim to ale jiste. Co se tyce tvorby html
Ja vim jiste, ze je. Protoze SHDOCVW je soucasti IE.
>exituje na to produkt HTML Help Workshop -
to ano
>akorat se obavam, ze bude stejnej
>jako ten Help Workshop. Za prve je oba delal Microsoft a za druhe bude
>filozofie tvorby podobna akorat RTF nahradi HTML.
>Mozna se ale pletu.
To zalezi na tom, jestli jsou to Tvoje vlastni zkusenosti nebo
"jedna pani povidala" (viz. zprava ADMINa ze 14.12.1999).
Ja jsem zkousel oboji, a myslim, ze se to neda srovnat. To, ze oba
programy delal MS neni rozhodujici. Mezi obema programy je rada
roku. Ja bych se za programy, ktere jsem delal pred 10-ti lety, dnes
stydel...
Tomas
t.bradle(zv)pvtnet(tec)cz
Delete v SQL
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 3.3.2000 12:28:26
2Miso:
Nejsem proti subquery (sam je casto pouzivam), bez nich skutecne nejde
udelat spoustu veci nebo alespon ne jednoduse. Spis jsem se podivil nad
vazanim v klauzuli where na tabulku, ktera neni soucasti from subquery,
takovyhle zpusob vazani jsem videl pouze pokud se pouzije subquery misto
nazvu sloupce za slovem select :
select sloupec,(...subquery..) as "jmeno", sloupec
from tabulka
...
Z hlediska zpracovani jsou nektera subquery velmi narocna na prostredky
(RAM, IO operace). Podobny rozdil je i v pouzivani count(*) a
count(sloupec). count(*) totiz prochazi celou tabulku aby melo jistotu, ze
projde skutecne vsechny radky, proto je lepsi pouzivat count(sloupec) a
nejlepsi je pokud vybrany sloupec ma index.
Je nepodstatne, ze nakonec tahle subquery vrati true/false pro dany radek,
je dulezite jak se k tomu dostane. Co jsem delal testy na ORACLE databazi
byly rychlostni pomery mezi subquery v in a tim ze se subquery prenese do
casti from az 20:1.
Ostatne je potreba si kazdy select otestovat a udelat si plan ten vypise
kolikrat se ktera cast selectu vykonava jake ma naroky na IO, jestli byly
pouzity indexy, atd. a podle toho optimalizovat select
Pro Sybase databaze ma syntaxi
select plan('...select...')
Pr:
select plan('select * from systable')
Vysledek pak vypada treba takhle
Estimate 27 I/O operations
Scan SYSTABLE sequentially
Estimate getting here 320 times
Na zaklade tehle testu vychazeji nevhodne pouzite subquery v in a exist za
nejnarocnejsi operace - neni to jen z me hlavy, staci si udelat par testu.
Pavel
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Michal Hlavac
Odesl�no: 3. b�ezna 2000 10:14
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Delete v SQL
2Bosnis:
To vobec nie je pravda.
Pozri si v helpe nieco ako SubQuery. Bez nej by si vela veci nedokazal. A
napr. to exists je condition ktora vracia hlavnej query iba true a false.
Miso
-----Original Message-----
delete from t1 where EXISTS (select * from t2 where t1.id=t2.id)
[takovyhle zapis jsem jeste nevidel, podle mne by asi negfungoval, protoze
uzavorkovana oblast by se mela vykonat jako samostatny prikaz a ten neni
spravny, pokud ale v jinych databazich funguje pak se mu da vytknout ta *
sem staci dat nejakou konstantu treba 1 coz by v pripade, ze tabulky
obsahuji hodne dat, sloupcu nebo mema, melo citelne urychlit]
jsou z hlediska optimalizace rychlosti databaze zcela neprijatelne ( i kdyz
treba funkcni )
Predstavte si ze kazda z tabulek t1 a t1 ma 1000 radku, pak pouziti in v
klauzuli where znamena, ze select v inu se provede prave tolikrat a jeste
pokazde musi prohledat celou t2 zda tam hodnota existuje.
bylo by mozne vymyslet i jine varianty
delete from t1 where t1.id in (select t1.id from t1,t2 where t1.id=t2.id)
(Pozn. vseobecne se bere, ze klauzule in a exist se maji pouzivat co
nejmene )
matematicke vzorecky HEEELP
[*] Grubhoffer(zv)software602(tec)cz - 3.3.2000 12:31:50
> ahojte,
> nevite nekdo, kde se daji na netu nalezti matematicke vzorce,
>
> respective potrebuji nutne
> vzorce na trojuhelnik
>
http://mathworld.wolfram.com/Triangle.html
J.G.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.115 / Virov� b�ze: 54 - datum vyd�n�: 23.12.1999
Volanie jedneho form z druheho form
[*] Ad�mi Jaromil <adami(zv)axa.sk> - 3.3.2000 13:01:40
Ahojte!
Chcem vytvorit projekt z viacerych uz existujucich formularov .
Mam styri formulare a hlavny formular, z ktoreho chcem tie ostatne styri
volat.
Nechcem, ale aby sa na obrazovke zobrazovali viacere okna.
Chcem tam mat vzdy len jedno, prave aktivne okno. Nemozem teda pouzit
ShowModal.Po uzavreti podriadeneho aktivneho formulara, by sa mal znovu
zobrazit hlavny formular.Porade mi prosim, ako na to.
***************************************************
Jaromil Adami
adami(zv)axa.sk
***************************************************OT: Prevod z C do Delphi
[*] Radek =?iso-8859-2?Q?Hole=E8ek?= <holecekr(zv)upfm(tec)cz> - 03.3.2000 13:03:19
Dobry den.
Pekne prosim, smutne koukam, bude nekdo ochoten mi prevest
nasledujici kod z Cecka do Delphi? Mel by to byt vypocet CRC
(nevim bohuzel jaky druh CRC to je) souboru.
Budu Vam moc zavazan (sice si za to nic nekoupite).
Mnohokrate diky.
Radek (holecekr(zv)upfm(tec)cz)
#include <stdio.h>
#include <string.h>
#define BUFLEN 32768
static unsigned int crctab[256];
/* inicializace */
static void InitCRC()
{
int i, j;
register unsigned int c;
static int _init_crc_ = 0;
if (_init_crc_) {
return;
}
for (i=0;i<256;i++)
{
for (c=i,j=0;j<8;j++)
{
if (c & 1)
{
c= (c>>1)^0xedb88320;
}
else
{
c= c>>1;
}
}
crctab[i]=c;
}
_init_crc_ = 1;
return;
}
/* vypocet segmentu kontrolnich souctu */
static int SegmentCRC (file, result)
char *file; /* jmeno souboru */
char *result; /* segment s kontrolnimi soucty */
{
unsigned char buf[BUFLEN];
register unsigned int crc = 0;
register unsigned int checksum = 0;
long length = 0;
long len;
FILE *fp;
if ((fp = fopen (file, "r")) == NULL) return (-2);
InitCRC();
while (fgets ((char*)buf, BUFLEN, fp) != NULL)
{
unsigned char *cp = buf;
register int i;
if (memcmp (buf, "CRC/(zv)|", 6) == 0) break;
i = 0;
while (buf[i])
{
checksum += buf[i++];
}
len = i;
length += len;
while (len--)
{
crc = (crc << 8) ^ crctab[((crc >> 24) ^ *(cp++)) & 0xFF];
}
}
fclose (fp);
if (ferror (fp)) return (-2);
len = length;
while (len > 0)
{
crc = (crc << 8) ^ crctab[((crc >> 24) ^ len) & 0xFF];
len >>= 8;
}
crc = ~crc & 0xFFFFFFFF;
sprintf (result, "CRC/(zv)|%lu|%lu|\n", checksum % 0xFFFF, crc);
return (1);
}Button a Focus
[*] garalda <garalda(zv)mail(tec)cz> - 3.3.2000 13:13:41
>
>mam jeden problem. Udelal jsem pole Buttonu (6 x 7 tlacitek), neco jako
>sachovnice. Aktivni je tlacitko napr vlevo nahore (Button1), takze po
stisku
>Space se stiskne. A ted bych chtel, aby po stisku napr klavesy R se
zamereni
>presunulo doprava, na druhe tlacitko (Button2) a po dalsim stisku na
Button3
>atd. Muhu to sice udelat, ze do udalosti klavesy R dam ActiveControl :=
>Button2;, ale je to strasne nesikovne. Takhle nez bych rozchodil zminenych
>42 Buttonu, bych zestarnul. Nevite nekdo, jak toto presouvani Focusu
vyresit
>elegantneji?
>
No a co kdybys si vytvoril strukturu ukazujici na okolni tlacitka, neco
jako:
PmyStruc = myStruc;
myStruc = record
topBtn, leftBtn, rightBtn, bottomBtn : TButton;
end;
a pak si na kazde tlacitko navazal ukazatel na tu strukturu (treba pres Tag)
a na vsechny tlacitka navazat jednu udalost OnKeyDown, kde osetrit -
if (Key = 'R') and (PmyStruc(ActiveControl.Tag).rightBtn <> nil) then
TButton(PmyStruc(ActiveControl.Tag).rightBtn).SetFocus;
Nevim, jestli to bude fungovat zrovna tak, jak jsem to napsal, ale zkusil
bych jit touto cestou...
Pristup na dolni cast pameti
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 03.3.2000 13:19:26
Zkus http://www.utilia(tec)cz/memio95
Vaclav Sazima
"Ing. Milan �orm" wrote:
>
> Dobry den,
> prosim o typ na zpusob prepsani 16 bitoveho unitu delphi, kter� slouzil k
> pristupu na dolni cast pameti - adresy okolo $D000, kde sidli merici karta.
> Z jednoduche zalezitosti typu ukazatel na segment, offset se pro me stala
> neresitelna vec. Slysel jsem nejaky pojem DDK, ale nevim, kde se o tom
> neco prehledneho dozvedet.
> Pouzivam D3 C/S.
>
> D�ky - Dalik.HLP X CHM
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 3.3.2000 14:01:16
Ahoj
Minimalne systemove poziadavky pre HTML help su podla MS
- procesor 486 alebo rychlejsi :-))))))
- 16 MB RAM
- 10 MB miesta na hard disku
- 32 bitovy OS - Win9x, Win NT, Win2000
- Internet Explorer 3.02 a vyssi, 4.0 je odporucany pre "plnu" funkcnost
Osobne som na vytvaranie HTML helpov vyuzival komercny produkt
RoboHELP HTML Edition 7.0 (www.blue-sky.com), ktory poskytuje
vsetko potrebne.
Tomas.> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Marek Soukup
> Sent: Friday, March 03, 2000 11:26 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: HLP X CHM
>
>
> Ahoj,
> nevim, skoly nemam, ale html help se podle me prohlizi
> programem hh.exe
> takze explorer potreba nejni. Nevim to ale jiste. Co se tyce
> tvorby html
> exituje na to produkt HTML Help Workshop - akorat se obavam,
> ze bude stejnej
> jako ten Help Workshop. Za prve je oba delal Microsoft a za druhe bude
> filozofie tvorby podobna akorat RTF nahradi HTML.
> Mozna se ale pletu. Ten HTML Workshop je ke stazeni na MS
> webu nebo byl
> nekde na nejakym CD v casaku.
>
> Marek Soukup
>
> > CHM jdou prohlizet ve Win98, tam je IE implicitne a smazat nejde
> > (nastesti).
> > Jak je to v NT to nevim, nemel sem s nimi cest, ale myslim si, ze v
> > novejsich verzich to pude urcite. Ve WIN2K jdou urcite. Ja
> bych asi zvolil
> > CHM. A pokud user nema IE, jeho blbost :-). A uz si nekdy zkousel
> > delat HLP
> > v Help Workshopu (z Delphi)? Ja sem se o to pokousel, ale
> naprosto bez
> > uspechu, je to strasnej program. Pro CHM by to melo jit
> prece psat v HTML
> > (to neni problem), pak k tomu udelat index, seznam slov a NEKDE to
> > zkompilovat, ale prave, v cem? Nebo mas neco na to? A co
> kdybys to udelal
> > jednoduse cely v HTML, pokud to nebude moc veliky (stovky
> > klicovejch slov),
> > tak by to bylo taky dobry reseni, nehlede na prakticky
> neomezene moznosti
> > formatovani.
> >
> > Hurricane
DialUp komponent pre BCB, please
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 3.3.2000 14:21:00
Podarilo sa mi najst komponent Alesa Berku DialUp pre Delphi.
Ja zacinam programovat v C++ Builderi, preto sa chcem opytat ci nema
niekto podobny komponent pre C++ Builder ?.
Podarilo sa mi nainstalovat DialUp pre Delphi do Builderu ale pri dvojkliku
na udalost OnActiveConnection a OnEntryGet dostanem hlasku "property and
method DialUp1ActiveConnection (DialUp1EntryGet) are not compatible"
Moze mi niekto pomoct?
Dik
Peter Mojdis
mojdis(zv)pobox.sk
>
ZIPTV...
[*] Michal Kopacek <m.kopacek(zv)volny(tec)cz> - 3.3.2000 15:40:57
nemate nahodou nekdo komponentu s nazvem ZipTV 2.12 (archivace
www.ziptv.com)
dik moc
************************************
Michal Kop��ek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
Heeeeeeeeeeelp...... nenavidim QReport.......
[*] Hlinka Jan <Hlinka(zv)dcomm(tec)cz> - 3.3.2000 16:23:27
Ahoj,
potrebuji vytisknout datab�zi fakturacnich adres do formulare, ktery pouziva
posta na zasilky posilane doporucene (cca pro 20 baliku ci dopisu). Udelal
jsem si hlavicku (PageHeader) jakou ma posta pod to jsem umistil Detail kam
jsem dal ty dbpolicka na fakturaci.... vysledek:
1, z hlavicky mi asi z 18 car vytiskne 3... vsechny jsou stejne
nadefinovany, ale proste tiskne jenom 3!!!!!
2, Detail nezacne tisknout pod hlavickou ( ja jsem to cekal) ale zacne ty
adresy frkat primo do hlavicky.... proc... to netusim...
Jak tisknete vy ostatni???? Nad timhle jsem stravil uz cely dva dny a
vysledek v nedohlednu....
Pokud pouzivate jakoukoliv jinou komponentu pro tisk reknete.... pokud neco
delam spatne reknete... nejradsi bych Delphi hodil do kose, ale to bych
prisel o praci :o(((( PROSIM HELP.....
Hippy alias Hlinka Jan
Delphi a Lotus Notes
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 3.3.2000 16:30:31
Haj hou!
From: "Lu�ek Tenkr�t" <tenkrat(zv)mvcr(tec)cz>
> nemate nekdo zkusenosti s propojenim Delphi s Lotus Notes? Nejlepsi by
byly
> nejake nativni komponenty.
Na Delphree je projekt N/D Library, coz je presne to co potrebujes (a je to
Open Source).
http://Delphree.clexpert.com
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
SQL
[*] FS Software s.r.o. <fs_software(zv)telecom(tec)cz> - 3.3.2000 17:16:10
D4+SP vse, stanice W98, server NT SP5, MS-SQL 7
Pri prohlizeni libovolne vetsi tabulky z databaze umistene na MS-SQL serveru pomoci DBGRIDu nebo pri hledani pomoci FindKey nebo FindNearest se po chvili objevi nasledujici hlaseni
Aplikace BL zp�sobila neplatnost str�nky
v modulu IDAPI32.DLL na adrese 015f:4be4359d.
(popripade v modulu KERNEL32)
K serveru se pristupuje pomoci BDE a ODBC (v soucasnosti jediny pro nas pripustny zpusob). Stejnou chybu to hlasi take na lokalni verzi SQL serveru ve Windows 98 na vice ruznych pocitacich.
D�k za radu.
J. Falt�nek
fs software(zv)telecom(tec)cz
Heeeeeeeeeeelp...... nenavidim QReport.......
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 3.3.2000 18:05:39
>
> Jak tisknete vy ostatni???? Nad timhle jsem stravil uz cely dva dny a
> vysledek v nedohlednu....
> Pokud pouzivate jakoukoliv jinou komponentu pro tisk reknete.... pokud
neco
> delam spatne reknete... nejradsi bych Delphi hodil do kose, ale to bych
> prisel o praci :o(((( PROSIM HELP.....
>
> Hippy alias Hlinka Jan
>
Co zkusit www.sinea(tec)cz
Vaclav Krmela
Adonis - nastaveni
[*] Lubo Fule <fule(zv)sct.sk> - 3.3.2000 18:38:31
> Dalsi vec je vyhled o budoucna - ODBC je odsouzeno k doziti,
> OLE DB lze naopak ocekavat casem i na jinych platformach nez
> MS Windows. Tedy, v ODBC nevidim perspektivu.
Ja by som ODBC este nezavrhoval. Microsoft v Books Online k MSSQL uvadza ze:
"Microsoft� SQL Server� supports ODBC as one of the native APIs for writing
C, C++, and Microsoft Visual Basic� applications that communicate with SQL
Server."
Okrem toho aj zakladne programy na spravu MSSQL 7.0 (Enterprise Manager,
Query Analyzer) chodia cez ODBC, z coho usudzujem, za aj Microsoft vo
svojich programoch uprednostnuje ODBC pokial nie je potrebna funkcionalita,
ktoru poskytuje OLEDB.
L.
Adonis - nastaveni
[*] Erik Salaj <winsoft(zv)napri.sk> - 3.3.2000 19:00:12
> Naprosto souhlasim s tim, ze rychlost neni vse. Na druhou stranu
> mi pri programovani databazovych aplikaci muze byt ukradene, ze
> OLEDB umi i neco jineho, kdyz to v danem pripade nepotrebuji.
:-)
> Ale kdyz uz jsme u toho - znamena to, ze ODBC se treba casem
> prestane vyskytovat v MDAC balicich? Myslim si, ze dokud bude
> ODBC k dispozici, nebudou aplikace psane s pomoci nej
> zavrzenihodne. Pro me jako vyvojare bude zajimave zacit pouzivat
> OLEDB k pristupu na MSSQL misto ODBC az teprve tehdy, az to
> bude prinaset nejake fakticke vyhody. Pokud u aplikaci
OLEDB prinasa tolko vyhod oproti ODBC, ze je to dost tazko vobec
porovnavat. Zo strany ODBC spominas jedinu vyhodu, ze nejake operacie
boli oproti ADO/OLEDB rychlejsie. Taketo "merania" by si mal
brat s rezervou (uplne inac to moze dopadnut na sieti s viac uzivatelmi,
zalezi tiez co a ako si testoval, ...). Dalej ide o problem, ktory sa da
velmi jednoducho a lacno riesit: vymenis rychlejsi procesor, das do pocitaca
viac pameti, rychlejsi disk a je to. Pritom ako programator nemusis pohnut
ani prstom aby si to vyriesil.
> nepredpokladam prenos na jine platformy, praci s jinymi daty nez
> MSSQL, nevidim ZADNY duvod, proc zatim nepouzivat ODBC.
Co predpokladame je jedna vec, co bude skutocnostou je vec druha
a s velkou pravdepodobnostou odlisna ;-).
Vecsina dat nie je v databazach (a asi nikdy ani nebude) ale vo forme
roznych Word, Excel, pdf, ...dokumentov, HTML stranok, e-mailov,
Outlook-u, v buducnosti zrejme XML suborov a s takymito informacie je tiez
potrebne nejako pracovat. A v tom, ze OLEDB to umoznuje je hlavny
rozdiel medzi databazovym rozhranim ODBC a medzi univerzalnym datovym
pristupom ADO/OLEDB. Pokial robis software profesionalne a budes chciet
program predat (samozrejme tam, kde funguje trhovy mechanizmus a nie u nas
kde treba akoze "vyhrat konkurz"), tak to moze byt dost podstatny dovod
na uspesnost a konkurencieschopnost Tvojho programu. Takisto nezabudaj,
ze program obvykle nepracuje izolovane ale musi komunikovat aj s inym
softwarom (a nemozes cakat, ze sa vsetci budu prisposobovat Tvojmu
programu), vtedy taketo moznosti takisto ocenis.
> Je take jasne, ze OLEDB se bude vyvijet a casem treba
> predstihne ODBC i v otazce rychlosti. Ale zaruceno to zatim neni.
> Nebo ano? A potvrdil vubec nekdo oficialne, ze vyvoj ODBC je u
> konce?
Microsoft sa jednoznacne vyjadril, ze buducnost v pristupe k udajom
je ADO/OLEDB.
Erik Salaj
ADONIS a Master-Detail
[*] Erik Salaj <winsoft(zv)napri.sk> - 3.3.2000 19:07:48
> jak se da zaridit pomoci komponent adonisu vztah master-detail mezi
nekolika
> otevrenymi query ?
Pomocou DataSource property, viz help, resp. mozem poslat priklad.
Erik Salaj
Heeeeeeeeeeelp...... nenavidim QReport.......
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 3.3.2000 19:28:28
ahoj,
spis nez hlavicku pouzij typ rbColumnHeader, taky se bude tisknout na
zacatku kazdy str
a vse mi chodilo ok. Data doufam plnis pri OnNeedData a doufam, ze zadny
QrBand nepresahuje
modry okraj (byt jen o <1mm) to mi delalo potiz v tom, ze to vytisklo 1.str.
bilou.
:((( To, ze QR je shit s tebou plne souhlasim. Doporucuju na slozitejsi veci
pouzit jiny generator
(sinea, report builder).
:(((((( a nekritizuj delphi kdyz QR neni od Borlandu
M.Jirman
From: Hlinka Jan <Hlinka(zv)dcomm(tec)cz>
Ahoj,
potrebuji vytisknout datab�zi fakturacnich adres do formulare, ktery pouziva
posta na zasilky posilane doporucene (cca pro 20 baliku ci dopisu). Udelal
jsem si hlavicku (PageHeader) jakou ma posta pod to jsem umistil Detail kam
jsem dal ty dbpolicka na fakturaci.... vysledek:
1, z hlavicky mi asi z 18 car vytiskne 3... vsechny jsou stejne
nadefinovany, ale proste tiskne jenom 3!!!!!
2, Detail nezacne tisknout pod hlavickou ( ja jsem to cekal) ale zacne ty
adresy frkat primo do hlavicky.... proc... to netusim...
Jak tisknete vy ostatni???? Nad timhle jsem stravil uz cely dva dny a
vysledek v nedohlednu....
Pokud pouzivate jakoukoliv jinou komponentu pro tisk reknete.... pokud neco
delam spatne reknete... nejradsi bych Delphi hodil do kose, ale to bych
prisel o praci :o(((( PROSIM HELP.....
Hippy alias Hlinka Jan
Trideni v SQL
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 3.3.2000 19:53:34
Zdravim vsechny,
potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
RichEdit
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 3.3.2000 20:16:42
ahoj,
Co takhle pomoci length(string) zjistovat delky a pomoci copy(string,
pocatek, delka),
stringy timto sesekavat nebo k nim pridavat dalsi a pak radek zapsat pomoci
richedit.lines.add(string)
M.Jirman
From: <vladimirp(zv)post(tec)cz>> No problem je, ze ja potrebuji do richeditu dat nekolik stringu za sebe,
jenze jejich delka musi byt porad stejna i kdyz text v nich treba neni
zadny. Potrebuji totiz vytvorit sloupce a to je jedina moznost, ktera me
napadla...
>
> Diky...
>
> > Zkus pouzit spis
> >
> > RichEdit1.Lines.Add (StringRetezec);
> >
> > (neprovadi to ale RTF konverzi)
> >
> > DiGi
> > --- DiGi(zv)MujMail(tec)cz ---------------------------------------------
> > -------------------------------------------- http://www.qr(tec)cz ---
> >
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > vladimirp(zv)post(tec)cz
> > Sent: Thursday, March 02, 2000 1:28 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject:
> >
> >
> > Hezky den...
> >
> > Mam nejake informace v promenne CHAR. Potrebuji je dostat do richedit.
> > Pokud pouziji toto:
> >
> > var
> > c: array[1..100] of char;
> > s, e: string;
> > delka_pole, d: integer;
> > begin
> > delka_pole := sizeof(c);
> > s := \\\'test\\\';
> > for d :=1 to delka_pole do
> > begin
> > c[d] := s[d];
> > end;
> > for d :=1 to delka_pole do
> > begin
> > richedit1.text := richedit1.text + c[d];
> > end;
> > end;
> >
> > Vypise se mi tam take hromada ruznych paznaku. Ke vsemu se mi zda, ze je
muj
> > source zbytecne slozity.
> >
> > Mam D3. Diky... VladimirP
> >
> > Kde najdete PRESNE to, co hledate?
> > *** http://NAJDI.TO
> >
> >
> >
>
> Chcete hledat nebo chcete najit?
> *** http://NAJDI.TO
>
>Button a Focus
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.3.2000 20:45:14
Ahoj,
mas-li nejakou matici buttonu m krat n, tak za predpokladu, ze je
mas cislovane zleva doprava a odshora dolu, napriklad
(m = 3, n = 2):
1 2 3
4 5 6
pak muzes udelat nasledujici funkce:
Function Doprava: TButton;
//vrati nasledne tlacitko nebo nil, je-li uplne napravo
begin
if ActualButton.Tag mod > 0 then Result := Button s tagem
aktualniho + 1 else Return nil;
end;
a podobne pro ostatni smery.
Pokud vyuzijes nazvu buttonu (Button1, ...), pak nemusis vyuzivat
tag (ale tag zase bude rychlejsi).
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Memo a Selection
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 3.3.2000 21:25:04
muzes mi dat prosim te na to priklad
budu mit v memu nekolik radku, a nekam vlozim text treba ('ahoj')
a pak ho budu chtit smazat
jak na to, jak si zapamatovat tu pozici?
diky moc, ja s Delphi zacinam, takze sorry ze se ptam na takovy prkotiny
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 10:44 PM
Subject: Re: Memo a Selection
> From: Jan Bachor <bachor(zv)iol(tec)cz>
> > diky moc, to prvni mi funguje ale to druhy ne
> > a to prvni je ok, ale jak udelat aby to vlozilo text za kurzor ale treba
> > rozdelilo na radky a nepsalo za sebou?
>
> Ahoj,
>
> Pak musis do toho retezce vlozit CRLF, tedy znaky #13#10.
>
> > maze to celej posledni radek, ale ja potrebuj smazat jenom posledni
vlozenej
> > text
>
> Jedna z moznosti je, ze si zapamatujes jeho pozici a delku a podle toho
jej
> pak opet vymazes.
>
> Petr Vones, amatersky programator
>
>
>OT: Editace MPG
[*] Michal Vojta <michal.vojta(zv)iol(tec)cz> - 04.3.2000 01:43:40
Sorry za OT, ale nevite nekdo o softu, ktery by umel vlozit "neco"
do videoformatu MPG (MPEG)? Konkretne mi jde o titulky.
Dik Michal
Trideni v SQL
[*] Pavel Tomes <tomes(zv)pal.skm.vutbr(tec)cz> - 4.3.2000 08:52:21
Zkus pouzit TQuery.> potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL
nez
> Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto
otevrene
> tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
Trideni v SQL
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 4.3.2000 08:52:53
SELECT [ ALL | DISTINCT ] [ FIRST | TOP n ] select-list
...[ INTO { host-variable-list | variable-list } ]
...[ FROM table-expression ]
...[ WHERE search-condition ]
...[ GROUP BY group-by-list ]
...[ HAVING search-condition ]
...[ ORDER BY { expression | integer } [ ASC | DESC ], ... ] <- tady
jsou tridici podminky
Jediny problem nastane tehdy ma-li se trideni provadet v subquery tam pak
pomuze jedine prikaz distinct, ktery je sice urcen k ziskani jednoznacnych
vysledku, ale jako vedlejsi produkt data setridi podle poradi sloupcu za
prikazem select
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Petr Reichl
Odesl�no: 3. b�ezna 2000 19:54
Komu: ListServ - Delphi
P�edm�t: Trideni v SQL
Zdravim vsechny,
potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
OT: Prevod z C do Delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.2000 08:53:10
<color><param>0100,0100,0100</param>On 3 Mar 00, at 13:03, Radek Hole=E8ek=
wrote:<color><param>7F00,0000,0000</param>> #include <<stdio.h>
> #include <<string.h>
>
> #define BUFLEN 32768
>
> static unsigned int crctab[256];</color>const
BUFLEN=3D32768;
var
crctab:array[0..255] of integer;<color><param>7F00,0000,0000</param>> /* inicializace */
> static void InitCRC()
> {
> int i, j;
> register unsigned int c;
> static int _init_crc_ =3D 0;
>
> if (_init_crc_) {
> return;
> }
> for (i=3D0;i<<256;i++)
> {
> for (c=3Di,j=3D0;j<<8;j++)
> {
> if (c & 1)
> {
> c=3D (c>>1)^0xedb88320;
> }
> else
> {
> c=3D c>>1;
> }
> }
> crctab[i]=3Dc;
> }
> _init_crc_ =3D 1;
> return;
> }</color>procedure InitCRC;
var
i, j:integer;
c:uint; // zde nevim, co presne dela deklarace register
begin
for i:=3D0 to 255 do
begin
c:=3Di;
for j:=3D0 to 7 do
if (c and 1)<<>0 then
c:=3D(c shr 1) xor $edb8832 else
c:=3Dc shr 1;
crctab[i]:=3Dc;
end;
end;<color><param>7F00,0000,0000</param>> /* vypocet segmentu kontrolnich souc=
tu */
> static int SegmentCRC (file, result)
> char *file; /* jmeno souboru */
> char *result; /* segment s kontrolnimi soucty */
> {
>
> unsigned char buf[BUFLEN];
> register unsigned int crc =3D 0;
> register unsigned int checksum =3D 0;
> long length =3D 0;
> long len;
> FILE *fp;
>
> if ((fp =3D fopen (file, "r")) =3D=3D NULL) return (-2);
>
> InitCRC();
>
> while (fgets ((char*)buf, BUFLEN, fp) !=3D NULL)
> {
> unsigned char *cp =3D buf;
> register int i;
>
> if (memcmp (buf, "CRC/(zv)|", 6) =3D=3D 0) break;
> i =3D 0;
> while (buf[i])
> {
> checksum +=3D buf[i++];
> }
> len =3D i;
>
> length +=3D len;
> while (len--)
> {
> crc =3D (crc <<<< 8) ^ crctab[((crc >> 24) ^ *(cp++)) & 0xFF];
> }
> }
>
> fclose (fp);
>
> if (ferror (fp)) return (-2);
>
> len =3D length;
> while (len > 0)
> {
> crc =3D (crc <<<< 8) ^ crctab[((crc >> 24) ^ len) & 0xFF];
> len >>=3D 8;
> }
>
> crc =3D ~crc & 0xFFFFFFFF;
> sprintf (result, "CRC/(zv)|%lu|%lu|\n", checksum % 0xFFFF, crc);
>
> return (1);
> }</color>function SegmentCRC(var filen, aresult:string):integer;
var
buf:array[0..BUFLEN-1] of char;
crc:uint;
checksum:uint;
length, len, readlen:longint;
fp:file;
cp:string;
i:integer;
j:integer;
begin
aresult:=3D'';
AssignFile(fp, filen);
Reset(f, 1);
if IOResult<<>0 then
begin
Result:=3D-2;
Exit;
end;
InitCRC;
BlockRead(pf, buf, BUFLEN, readlen);
while readlen>0 do
begin
cp:=3Dbuf;
if Pos('<color><param>7F00,0000,0000</param>CRC/(zv)|', cp)=3D1 then brea=
k;
</color> i:=3D0;
while buf[i]<<>#0 do
begin
checksum:=3Dchecksum+byte(buf[i]);
Inc(i);
end;
len:=3Di;
length:=3Dlength+len;
j:=3D1;
while len>0 do
begin
crc:=3D(crc shl 8) xor crctab[((crc shr 24) xor byte(cp[j])) and
$FF];
Inc(j);
end;
BlockRead(pf, buf, BUFLEN, readlen);
end;
CloseFile(fp);
if IOResult<<>0 then
begin
Result:=3D0;
Exit;
end;
len:=3Dlength;
while len>0 do
begin
crc:=3D(crc shl 8) xor crctab[((crc shr 24) xor len) and $FF];
len:=3Dlen shr 8;
end;
crc:=3Dnot crc and $FFFFFFFF;
aresult:=3DFormat('<color><param>0000,8000,0000</param><bigger>CRC/(zv)|%d|=
%d|'#13#10', [checksum mod
$FFFF, crc]);
result:=3D1;</color><smaller>
end;
Samozrejme bez zaruky, delal jsem to z hlavy...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak vyzobat data? (SQL)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.2000 08:53:10
On 3 Mar 00, at 9:21, Ren� Otisk wrote:
> Padlo tady nekolikrat, ze neni vhodne k zobrazeni dat pouzivat
> TDBEdity, TDBMema a podobne komponenty.
Pokud si dobre pamatuji, tak k zobrazovani pomoci techto
komponent vyhrady nebyly. Diskutovalo se tu spise editovani
pomoci techto komponent nad zivymi daty, zejmena u SQL
databaze.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Adonis - nastaveni
[*] Erik Salaj <winsoft(zv)napri.sk> - 4.3.2000 11:15:30
> Ja by som ODBC este nezavrhoval. Microsoft v Books Online k MSSQL uvadza
ze:
> "Microsoft� SQL Server� supports ODBC as one of the native APIs for
writing
> C, C++, and Microsoft Visual Basic� applications that communicate with SQL
> Server."
> Okrem toho aj zakladne programy na spravu MSSQL 7.0 (Enterprise Manager,
> Query Analyzer) chodia cez ODBC, z coho usudzujem, za aj Microsoft vo
> svojich programoch uprednostnuje ODBC pokial nie je potrebna
funkcionalita,
> ktoru poskytuje OLEDB.
Skor je to tym, ze ADO/OLEDB ma urcite obmedzenia co sa tyka DDL (k
dispozicii
je ADOX, ale ten je plne funkcny zatial len pre Access 2000 databazy).
ODBC ma byt aj nadalej podporovane v ramci UDA. Tu su informacie z MDAC 2.5,
ktore ale hovoria o prechode z ODBC na OLE DB, takze myslim je kazdemu hned
jasne co sa uprednostnuje a bude uprednostnovat:
---
It was by design, in response to consistent customer feedback, that the
evolutionary strategy for migrating from ODBC to OLE DB was created. The
very first OLE DB provider released by Microsoft was the OLE DB Provider for
ODBC, allowing applications to be written to the ADO or OLE DB interface,
with the OLE DB Provider for ODBC then connecting to the ODBC data source.
So now if an organization wants to change data sources, add data sources, or
change from the ODBC driver to a pure OLE DB provider for the existing data
source, the existing database application can be adapted with minimal
changes.
This strategy for migrating from ODBC to OLE DB carries some additional
important benefits: OLE DB and ADO service component features may be invoked
against ODBC data. For example, the ADO Find method provides for sorting and
filtering within a result set. Therefore, the result set can be reused and
further refined, without an additional round-trip to the server, a
capability unavailable to an ODBC client. This means that both new and
existing applications can gain additional data access features by using OLE
DB to call broadly supported ODBC drivers.
Organizations should continue to plan on broad availability and support for
ODBC drivers. And as they build new applications, they should look to the
Universal Data Access architecture, using ADO and OLE DB interfaces. For
relational data, organizations may choose between ODBC drivers and, as they
become available, OLE DB providers and components. And because of the
ability of OLE DB providers to expose nonrelational data, Microsoft believes
customer demand will drive the market for OLE DB components and that they,
too, will become broadly available. In the long term, able to freely choose
among and mix ODBC and OLE DB components, organizations will benefit from
the highest possible application performance and reliability while gaining
new capabilities at a pace that suits their unique requirements.
---
Erik Salaj
Jak vyzobat data? (SQL)
[*] Erik Salaj <winsoft(zv)napri.sk> - 4.3.2000 12:30:31
> Zacal jsem take dusledne pouzivat memory table
> (RxMemoryData), takze potrebuji-li dotaz na SQL server, otevru
> Query, nasypu vysledek do RxMemoryData, zavru Query a dale uz
> pracuji jen s tim, co je v RxMemoryData.
U ADO nepotrebujes ziadne RxMemoryData, pretoze ked pouzijes
klientsky recordset, tak to zabezpeci ADO automaticky. Dokonca
je to preferovany model (hlavne u Internet aplikacii). S klientskym
recordsetom (odpojenym od databazy) mozes aj lokalne pracovat
a vsetky zmeny potom jednym prikazom updatnut do databazy.
Erik Salaj
Programove prihlaseni k IB
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 4.3.2000 14:58:14
Preji vsem pekneho dne,
D5 Enterprise, SP1, IB 5.5, IBExpress
Potrebuji nechat uzivatele krome jmena a hesla zvolit databazi a
protokol. Pokud pouziji nize uvedeny kod, zahlasi mi to vyjimku:
EIBClientError with message 'DPB Constant (0) is unknown.'.
Nevite, kde je delana chyba?
Osobne si myslim, ze v tech konstantach u protokolu, ale
dokumentace jine neuvadi.
Diky za pripadne odpovedi.
Slavek
procedure TfrmConnect.bbtnConnectClick(Sender: TObject);
begin {TfrmConnect.bbtnConnectClick}
with IBDatabase do
begin
Params.Clear;
DatabaseName := edtDatabase.Text;
Params.Values ['USER NAME'] := edtUserName.Text;
Params.Values ['PASSWORD'] := edtPassword.Text;
with Params do
begin
if rgConnectionType.ItemIndex = 0 then //local
begin
Values ['PROTOCOL'] := 'sec_protocol_local';
end else begin //remote
Params.Values ['SERVER'] := edtServer.Text;
case cbxProtocol.ItemIndex of
0: Values ['PROTOCOL'] := 'sec_protocol_tcpip';
1: Values ['PROTOCOL'] := 'sec_protocol_netbeui';
2: Values ['PROTOCOL'] := 'sec_protocol_spx';
end;
end;
end; //with Params
Connected := True;
end; //with IBDatabase
end; {TfrmConnect.bbtnConnectClick}
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
GIF,JPG,JPEG,BMP-Clipboard->blob Paradox
[*] L. ZITA <konference(zv)sales(tec)cz> - 4.3.2000 15:51:06
Zdravim.
D5 prof. (Update Pack 1),W98
Problem : Jak ulo�it data z Clipboardu do blob pole paradoxu v puvodnim
formatu.
Mam databazi Paradoxu s polem Binary a do nej ukladam obrazky. Ukladam je ne
jako bitmapy (bmp) ale v puvodnim tvaru
(jpg, jpeg, gif). Vse mi funguje k plne spokojenosti pokud pri vkladani znam
format dat (tedy pokud tam vkladam obrazek z disku). Neumim ovsem udelat
totez pri vkladani z clipboardu. Napriklad pokud nekdo najde nejaky obrazek
na webu a v prohlizeci da Copy potrebuju to dostat do te databaze v puvodnim
tvaru (gif,jpg..) zatim to umim vlozit jen jako bmp.
Jak na to ?
Predem diky.
Ludek ZITA
Kopirovani z CD-ROM - konec
[*] Delphi <delphi(zv)deis(tec)cz> - 4.3.2000 19:22:08
Diky vsem za namety a prikladam pro pripadne zajemce upravenou proceduru pro
odstraneni atributu
procedure OdstranAtributy(APath: String;Maska:string);
var
FSearchRec : TSearchRec;
FoundFile:integer;
FileName1:string;
begin
APath := AddBackSlash(APath); // funkce pro pripadne pridani zpetneho
lomitka
FoundFile := FindFirst(APath+Maska,faAnyFile, FSearchRec);
while FoundFile = 0 do
begin
Filename1:=Apath+FSearchRec.Name;
FileSetAttr(FileName1,FileGetAttr(FileName1) And (Not faReadOnly));
if ((FSearchRec.Attr and faDirectory) = faDirectory) and
(pos('.', fSearchRec.Name) = 0) then
OdstranAtributy(APath+FSearchRec.Name,Maska); FoundFile := FindNext(FSearchRec);
end;
FindClose(FSearchRec);
end;
S pozdravem Heinisch Ji��
�e�en� pro va�i restauraci ��tenky,pokladna, kalkulace, receptury, sklady
http://www.deis(tec)cz/GastroSoft/Adonis - nastaveni
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.2000 19:44:43
On 3 Mar 00, at 18:38, Lubo Fule wrote:
> > Dalsi vec je vyhled o budoucna - ODBC je odsouzeno k doziti,
> > OLE DB lze naopak ocekavat casem i na jinych platformach nez
> > MS Windows. Tedy, v ODBC nevidim perspektivu.
>
> Ja by som ODBC este nezavrhoval. Microsoft v Books Online k MSSQL
> uvadza ze: "Microsoft� SQL Server� supports ODBC as one of the native
> APIs for writing C, C++, and Microsoft Visual Basic� applications that
> communicate with SQL Server."
Tamtez se vsak pise, ze jednoznacne doporuceni je pro OLE DB, pokud chces
docilit vysokeho vykonu.
"OLE DB is recommended for developing tools, utilities, or low-level
components that need high performance. The SQL Server OLE DB provider is a
native, high performance provider that directly accesses the SQL Server TDS
protocol."
Jinak je logicke, ze ODBC zatim musi byt podporovano, protoze hodne starsich
programu a knihoven ho pouziva. ODBC nelze zahodit ze dne na den. Nicmene
novy projekt nad MS SQL 7 bych nad ODBC nezacinal.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
AsyncPro 2.5
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 4.3.2000 20:42:32
Hello All!
Mam v pocitaci okrem 2 standardnych portov este dosku Moxa s dalsimi 8
portami. Aplikacia pod W95 i Win NT 4.0 SP3 funguje ok, ale pri vstupe do
dialogu na zmenu konfiguracie zavieram porty a program chce citat adresu
0000004. :-(
Konkretne je to v module AdPort.pas vo funkcii ComWindowProc hned na
zaciatku, je tam:
if (PortList<>nil) and ...
pritom Portlist je [] a podmienka je predsa splnena! Hodnota Portlist.Count
je v tom okamziku 6 (mal som otvorenych len 6 portov), ale zoznam PortList
je prazdny a pristup do neho generuje chybu. Co s tym? Prekladane D3
Standard.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Access violation error.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 4.3.2000 20:47:09
----- Original Message -----
From: Lauko �tefan <lauko(zv)salamon.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 12:58 PM
Subject: RE: Access violation error.> Ahoj,
> ak som dobre pochopil kod tak je tam chyba
>
> then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close; { skus
pouzit
> Free}
>
> Application.createform(TfrmCStaty,frmCStaty);
{lebo
> tu ho znova vytvaras
>
> alebo toto uz nepouzi}
> frmCStaty.ShowModal;
>
> ----- Original Message -----
> From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
> To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, March 01, 2000 11:46 PM
> Subject: Access violation error.
>
> > Zdravim tento kod mi robi access violation:
> >
> > ---------------------------------------------
> > if (aktivneokno('frmCStaty')<>0) and (btnStaty.Visible=True)// ak je
> > otvoreny ciselnik
> > then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close;
> >
> > Application.createform(TfrmCStaty,frmCStaty);
> > frmCStaty.ShowModal;
> >
> > if frmCStaty.OK then
> > begin
> > eStat.text:=frmCStaty.qStaty.FieldByName('stat').AsString;
> > eStat.SetFocus;
> > end;
> > frmCStaty.Free; // destroy and remove memory allocation
> > -------------------------------------------
> >
> > funkcia aktivne zistuje ci je MDIChild s nazvom frmCStaty aktivny ak ano
> tak
> > vrati jeho cislo MDIChildren.
> >
> > Chyba sa objavi len vtedy ak je frmCStaty zobrazeny ako MDIChild chcem
ho
> > zavriet pomocou tohto kodu.
> >
> > Best regards. Roland Turcan.
> >
> >
>
>
Je mi to uz jasne ze som nespomenul ak je spojitost s MDIChild a zobrazenim
ShowModal.
Takze:
Ak je okno frmCStaty volane z menu frmMain tak je volane takto:
----------
if aktivneokno('frmCStaty')=0 then
begin
Application.CreateForm(tfrmCStaty,frmCStaty);
frmCStaty.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
frmCStaty.formstyle:=fsMDIChild;
end
else begin
frmMain.mdichildren[aktivneokno('frmCStaty')-1].show;
frmMain.mdichildren[aktivneokno('frmCStaty')-1].windowstate:=wsNormal;
end;
--------------------
t.j. ze okno je implicitne nastavene ako fsNormal, ale pri volani z menu
nastavujem frmCStaty.formstyle na fsMDIChild.
S pozdravom Roland.BDE: TDataset.Refresh
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 4.3.2000 20:50:42
Hello All!
Refresh nerobi, to co som cakal, tak to riesim:
query1.active:=false;
query1.active:=true;
Na P100/W95 to slapalo ok. Ale po presunuti do PII/300, Win NT 4.0 SP3 s
upgradovanou BDE na 511 to zhruba kazde 2 hodiny (refresujem od timera
kazdych 8 sekund) vyhlasi 'Capability not supported'.
Zatial som medzi tie riadku strcil sleep(300), zajtra uvidime... Databaza je
Paradox.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Zajimavost pri volani metody
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 4.3.2000 22:07:59
Preji vsem pekneho dne,
ted jsem se tu potykal asi hodinu a pul s jednim problemem, ktery
by mohl nekoho zajimat. Upozornuji, ze pri zamysleni jde o zcela
jasnou a pochopitelnou vec. Bohuzel pri cca 3000 radcich za den
to jiz tolik nemysli.
je dana metoda (minimalni kod):
procedure X (const S: string);
var
MyMenu: TMenuItem;
begin
MyMenuItem := MainMenu.Items [3];
MainMenu.Delete (3)
MyMenuItem.Free;
ShowMessage (S);
//a nasleduje zase vytvoreni noveho prvku menu a vlozeni zpet
end;
a volani teto metody
X (MainMenu.Items [3].Caption);
Diky tomu, ze v definici metody je pouzito const, vede pouziti
ShowMessage (S) k sahnuti nekam uplne jinam, nez bylo puvodne
zamysleno.
Spravne by melo byt
PomS := MainMenu.Items [3].Caption;
X (PomS);
Co me vsak zarazilo, ze to sebou vzalo veskere menu ve w2k. Holt
stabilita je stabilita. :-) Na druhou stranu, w95 by to asi vzalo cele.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Programove prihlaseni k IB
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 5.3.2000 01:43:48
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Sent: Saturday, March 04, 2000 2:58 PM
Subject: Programove prihlaseni k IB
> D5 Enterprise, SP1, IB 5.5, IBExpress
>
> Potrebuji nechat uzivatele krome jmena a hesla zvolit databazi a
> protokol. Pokud pouziji nize uvedeny kod, zahlasi mi to vyjimku:
> EIBClientError with message 'DPB Constant (0) is unknown.'.
>
> procedure TfrmConnect.bbtnConnectClick(Sender: TObject);
> begin {TfrmConnect.bbtnConnectClick}
> with IBDatabase do
> begin
> Params.Clear;
> DatabaseName := edtDatabase.Text;
> Params.Values ['USER NAME'] := edtUserName.Text;
> Params.Values ['PASSWORD'] := edtPassword.Text;
Ahoj,
spravne ma byt tusim USER_NAME.
Pouzi radsej definovane konstanty pre username aj password.
with IBDatabase do begin
...
DBParamByDPB[isc_dpb_user_name] := edtUserName.Text;
DBParamByDPB[isc_dpb_password] := edtPassword.Text;
Palo.vynutena tlac bandu v QReporte
[*] Ja <klepoch(zv)ba.sknet.sk> - 5.3.2000 10:31:42
Ahojte,
mam maly problem :
potrebujem tlacit v QReporte databazu zoskupenu pomocou Group podla rokov.
Ak vsak nie je niektory rok v databaze, potrebujem vytlacit nieco ako : 1998 - nie je zaznam.
Napada ma riesenie tlacit to cez samostatny Band, ktory sa vytlaci z GroupHeder pri splneni
neakej podmienky formou Band.preview - ale nic take som nenasiel.
Je to mozne takto riesit ?
Ak nie takto, ako na to co najjednoduhsie ?
Dik za pomoc.
Mam Delphi 5 profesional, zatial bez servise packu.programova zmena struktury databazy
[*] Ja <klepoch(zv)ba.sknet.sk> - 5.3.2000 10:31:49
Ahoj,
1. mam problem s zmenou struktury databazy, konkretne pridanie, zmazanie alebo zmena typu stlpca -
teda to, co ide cez database desktop. Skusal som to spravit tak, ze som si spravil prazdnu tabulku (CreateTable)
s pozadovanou strukturou a prenasal som udaje po poliach, ale tam je problem s autoincrementom.
Je mozne naplnit autoincrement ?
Je mozne tieto zmeny struktury robit inak ?
2. A este nieco podobne : potrebujem programovo vytvorit DBF subor, pricom pre cislene polia chcem zadat
format typu N(7, 3) - teda 7 miest, z toho 3 desatinne. Cez preddefinovane typy to nejde : ftFloat je dany
presny rozsah. Pritom database desktop to vie. Napada ma riesenie vytvorit si neaku p�razdnu vzorovu tabulku,
tu si prekopirovat a potom ju naplnit.
3. Mam v databaze pole typu Currency. Cez vypocty som ho naplnal hodnotami. V niketorych pripadoch, ked
mal byt vysledok 0, tak tam v skutocnosti bolo nieco ako 0.0000xx. Dovod je jasny : zaokruhlovanie. Pri vsetkych
vypisoch to dava hodnotu 0, ale ak dam do SQL podmienku ze zostatok =0, tak taketo pole neprejde. Zatial som to vyriesil
tak, ze podmienka je zostatok < 0.01. Je mozne nastavit tgyp pola tak, aby tento problem odpadol ?
Mam Delphi 5 profesional, zatial bez servise packu. Dik.
Programove prihlaseni k IB
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.3.2000 11:16:15
Preji vsem pekneho dne,
D5 Enterprise, SP1, IB 5.5, IBExpress
Jeden problem byl vyresen (bohuzel ten jednodussi).. misto v user
name melo byt podtrzitko.
Ale s tim protokolem jsem na nic neprisel. Zatim jsem vypozoroval
nasledujici.
DPB je nejaky seznam, kde jsou informace pro server. Bohuzel
protocol se tam nevyskytuje, tudiz bych ho tam nemel ani davat.
Jenze jsem nenasel jedinou zminku, kam jej mam vlozit.
Na jednom pocitaci mam server. Pokud nastavim v editoru
komponent cokoliv, bude se to pripojovat pouze lokalne, tedy z
klienta to nespustim. Musim tedy program prelozit na klientovi a
program pak funguje (i na serverovi), ale bohuzel opet bez moznosti
zvolit si protokol.
Otazkou tedy zustava, jak donutim program pripojit se tak, jak
chce uzivatel? (local, tcpip, netbeui pripadne spx).
Hledal jsem i ve zdrojacich, krokoval, ale nic jsem nevydedukoval.
Editor komponenty IBDatabase, kde by mohlo byt reseni, se
nedodava.
Diky za kazdou radu.
Slavek
> Potrebuji nechat uzivatele krome jmena a hesla zvolit databazi a
> protokol. Pokud pouziji nize uvedeny kod, zahlasi mi to vyjimku:
> EIBClientError with message 'DPB Constant (0) is unknown.'.
> Nevite, kde je delana chyba?
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
RecNo v SQL
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 5.3.2000 12:45:52
Zdravim,
Ako by som mohol napisat na strane SQL servera funkciu, ktora mi vrati
hodnotu RecNo v danom View.
Viem, ze sa to tu uz preberalo, ale nemalo nijaky zaver.
Dik, Miso
D3, W95, Sybase SQL Anywhere 5.5
IB a SET TERM
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.3.2000 14:43:34
Preji vsem pekneho dne,
potrebuji na server IB pomoci TIBQuery poslat trigger (napriklad):
CREATE TRIGGER T_OSOBA_ID FOR OSOBA
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
NEW.O_ID = GEN_ID (G_OSOBA_ID, 1);
END##
K tomu je zapotrebi zavolat SET TERM ## ;
Pokud vsak poslu nejprve sql prikaz SET TERM, vyhodi me s vyjimkou:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 4
TERM
Jak tedy severu poslat trigger (programove samozrejme).
Diky za pripadne odpovedi.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
IB a SET TERM
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 5.3.2000 15:16:34
Tedka budu trosku hadat, ale snad to pomuze.
SET TERM neni prikaz Interbase, ale prikaz primo pro ISQL.
Pokud chces vytvorit jen jeden trigger, zkus ho poslat
bez ukoncovace, pokud jich vytvorit najednou vice, tak
je zkus posilat postupne.
Radim Kunz
-----Original Message-----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 5. b�ezna 2000 14:41
Subject: IB a SET TERM
Preji vsem pekneho dne,
potrebuji na server IB pomoci TIBQuery poslat trigger (napriklad):
CREATE TRIGGER T_OSOBA_ID FOR OSOBA
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
NEW.O_ID = GEN_ID (G_OSOBA_ID, 1);
END##
K tomu je zapotrebi zavolat SET TERM ## ;
Pokud vsak poslu nejprve sql prikaz SET TERM, vyhodi me s vyjimkou:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 4
TERM
Jak tedy severu poslat trigger (programove samozrejme).
Diky za pripadne odpovedi.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
IB a SET TERM
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.3.2000 15:20:05
Tady je problem, ze v tom triggru je strednik a on to vezme jako
konec prikazu, coz bohuzel neni pravda.
Slavek
> Tedka budu trosku hadat, ale snad to pomuze.
> SET TERM neni prikaz Interbase, ale prikaz primo pro ISQL.
> Pokud chces vytvorit jen jeden trigger, zkus ho poslat
> bez ukoncovace, pokud jich vytvorit najednou vice, tak
> je zkus posilat postupne.
>
> Radim Kunz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
IB a SET TERM
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.3.2000 15:32:18
> Tady je problem, ze v tom triggru je strednik a on to vezme jako
> konec prikazu, coz bohuzel neni pravda.
****Omlouvam se, neni to pravda, chyba byla mezi klavesnici a zidli.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
IB a SET TERM
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 5.3.2000 16:08:49
Zkusil jsem to, mam FIB.
Pomoci FIBQuery jsem tam protlacil tenhle prikaz:
CREATE TRIGGER TTR4 FOR T1
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
new.a = gen_id(g1,1);
new.b = gen_id(g2,1);
new.c = gen_id(g3,1);
END
Prikaz prosel, triggery tam jsou.
Radim Kunz
-----Original Message-----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 5. b�ezna 2000 15:17
Subject: Re: IB a SET TERM
Tady je problem, ze v tom triggru je strednik a on to vezme jako
konec prikazu, coz bohuzel neni pravda.
Slavek
> Tedka budu trosku hadat, ale snad to pomuze.
> SET TERM neni prikaz Interbase, ale prikaz primo pro ISQL.
> Pokud chces vytvorit jen jeden trigger, zkus ho poslat
> bez ukoncovace, pokud jich vytvorit najednou vice, tak
> je zkus posilat postupne.
>
> Radim Kunz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Trideni v SQL
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 5.3.2000 16:24:10
Ja bych jen dolozil polopate jednoduchym prikladkem, kdyby tvoji definici
nekdo nepochopil:
napr. v TQuery pouzit jako prikaz
SELECT sloupce k vybrani oddelene carkou FROM jmeno tabulky WHERE podminka
vyberu
ORDER BY sloupec podle ktereho to chces abecedne seradit a DESC nebo ASC
Doporucuju precist v chipu z min roku serial o SQL dil 7.
M.Jirman
From: Bosnis <bosnis(zv)atlas(tec)cz>
Sent: Saturday, March 04, 2000 8:52 AM
Subject: RE: Trideni v SQL
SELECT [ ALL | DISTINCT ] [ FIRST | TOP n ] select-list
...[ INTO { host-variable-list | variable-list } ]
...[ FROM table-expression ]
...[ WHERE search-condition ]
...[ GROUP BY group-by-list ]
...[ HAVING search-condition ]
...[ ORDER BY { expression | integer } [ ASC | DESC ], ... ] <- tady
jsou tridici podminky
Jediny problem nastane tehdy ma-li se trideni provadet v subquery tam pak
pomuze jedine prikaz distinct, ktery je sice urcen k ziskani jednoznacnych
vysledku, ale jako vedlejsi produkt data setridi podle poradi sloupcu za
prikazem select
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
Tisk obrazku z QuickReportu
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 5.3.2000 16:36:07
Na bublinkove barevne to tiskne JPEGy dobre, ale kdybys sis jich tam dal na
jednu stranku
8-12 (vic sem nastesti nezkousel), tak bys zjistil jeste jiny vedlejsi a
podstatne neprijemnejsi jev
a to ten, ze se mi ta stranka na 166MMX/64RAM zobrazi v Preview za 2min a
dele, a tiskne
rovnez, coz je tak neprijemny, ze doporucuju jedine zmenit generator
tiskovych (SINEA, Rep. Builder). Zvlaste u obrazku!
M.Jirman
----- Original Message -----
From: Petr Slovak <petr(zv)trilog(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 03, 2000 11:30 AM
Subject: Tisk obrazku z QuickReportu
> Mam problem s tiskem obrazku z QuickReportu.
> V archivu konference jsem sice par informaci k tomu nasel, ale nepomaha
to.
>
> Mam Delphi 5, k zacleneni obrazku do reportu pouzivam komponentu TQRImage
> (TQRDBImage se chova stejne)
>
> Kdyz tam mam BMP obrazek, vse vypada dobre. V Preview modu to je
samozrejme
> dobre barevne. Na cernobile tiskarne se obrazek vytiskne v odstinech sedi.
>
> Kdyz jsem zkousel GIF, kde byla jedna barva pruhledna, tak chyba byla uz v
> Preview modu, kdy pruhlednost barvy ignoroval a pouzil puvodni barvu. A na
> tiskarne mi potom vytiskl jen cerny obdelnik.
>
> A u JPG se chova zase uplne jinak. V Preview je vse v poradku (tam se neda
> ani nic zkazit), ale tiskne mi obrazek takovym tim novinovym zpusobem, kdy
> odstiny sedi nahrazuje ruznymi velikostmi cernych skvrn. Jde o ciste
> cernobily obrazek bez odstinu sedi.
>
> Zname demo s obrazky ryb mi tiskne stejne blbe, jako JPG. Tam je obrazek
> jako BLOB primo v datech, takze nevim v jakem je to formatu.
>
> Co s tim?
>
> P.S: Neni to chyba tiskarny (zkousel jsem jich nekolik) a ani nejake
spatne
> nastaveni na mem pocitaci (rovnez jsem jich zkousel nekolik).
>
> ================================
> Ing. Petr Slovak
> e-mail: petr(zv)trilog(tec)cz
> url: http://www.trilog(tec)cz
> tel: 0603 / 501 642
> SMS: +420603501642(zv)sms.paegas(tec)cz
> ================================
>
>Prevod z C do Delphi
[*] Patrik Plach� <plachy(zv)obis(tec)cz> - 5.3.2000 16:59:51
unit CRC_Check;
interface
const
Buflen=32768;
_init_crc_: Integer = 0;
_255 = 255; { delka tabulky }
var
CRCTab: array[0.._255] of Longint;
procedure InitCrc;
function SegmentCRC(FileName: string; var Results: String): Integer;
implementation
{ inicializace talubky }
procedure InitCRC;
var
I, J: Integer;
C: Longint;
begin
if _init_crc_ = 0 then { pri prvnim pusteni }
begin
for I := 0 to _255 do
begin
C := I;
for J := 0 to 7 do
begin
if (C AND 1) <> 0 then
begin
C := (C shr 1) XOR $EDB88320;
end
else
begin
C := C shr 1;
end;
end;
CRCTab[I] := C;
end;
_init_crc_ := 1; { tabulka je init }
end;
end;
{ vypocet segmentu kontrolnich souctu }
function SegmentCRC(FileName: String; var Results: String): Integer;
var
F: TextFile;
I, Len, Size: Integer;
CheckSum, Crc: LongInt;
St: String;
begin
Crc := 0; SegmentCRC := 1; CheckSum := 0; Len := 0;
AssignFile(F, FileName);
{$I-} Reset(F);
if IOResult = 0 then
begin
InitCRC; { inicializace tabulky }
repeat
ReadLn(F, St);
if Eof(F) then break;
if Copy(St, 1, 6) = 'CRC/(zv)|' then break;
I := 1;
while (I < Buflen) and (I<=Length(St))do
begin
CheckSum := CheckSum + Ord(St[I]);
I := I + 1;
end;
I := I - 1;
Len := Len + I; Size := I;
while I > 0 do
begin
Crc := ( Crc Shl 8) XOR Crctab[((Crc Shr 24)
XOR Ord(St[Size-I+1])) AND $FF];
I := I - 1;
end;
until Eof(F);
CloseFile(F);
if IOResult <> 0 then { chyba pri zavirani }
begin
SegmentCRC := -2;
Exit;
end;
end
else
begin
SegmentCRC := -2; { chyba pri otevirani }
Exit
end;
{$I+}
Size := Len;
while Len > 0 do
begin
Crc := ( Crc Shl 8) XOR Crctab[((Crc Shr 24)
XOR Len) AND $FF];
Len := Len Shr 8;
end;
Crc := Not(Crc) AND $FFFFFFFF;
Str(CheckSum Mod $FFFF, Results);
Str(Crc, St);
Results := 'CRC/(zv)|'+Results+'|'+St+'|';
end;
end.
**********************************************
Patrik Plachy
plachy(zv)obis(tec)cz
----- P�vodn� zpr�va -----
Od: Radek Hole�ek <holecekr(zv)upfm(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Odesl�no: 3. b�ezna 2000 13:03
P�edm�t: OT: Prevod z C do Delphi
> Dobry den.
>
> Pekne prosim, smutne koukam, bude nekdo ochoten mi prevest
> nasledujici kod z Cecka do Delphi? Mel by to byt vypocet CRC
> (nevim bohuzel jaky druh CRC to je) souboru.
> Budu Vam moc zavazan (sice si za to nic nekoupite).
>
> Mnohokrate diky.
>
> Radek (holecekr(zv)upfm(tec)cz)
>
> #include <stdio.h>
> #include <string.h>
>
> #define BUFLEN 32768
>
> static unsigned int crctab[256];
>
> /* inicializace */
> static void InitCRC()
> {
> int i, j;
> register unsigned int c;
> static int _init_crc_ = 0;
>
> if (_init_crc_) {
> return;
> }
> for (i=0;i<256;i++)
> {
> for (c=i,j=0;j<8;j++)
> {
> if (c & 1)
> {
> c= (c>>1)^0xedb88320;
> }
> else
> {
> c= c>>1;
> }
> }
> crctab[i]=c;
> }
> _init_crc_ = 1;
> return;
> }
>
> /* vypocet segmentu kontrolnich souctu */
> static int SegmentCRC (file, result)
> char *file; /* jmeno souboru */
> char *result; /* segment s kontrolnimi soucty */
> {
>
> unsigned char buf[BUFLEN];
> register unsigned int crc = 0;
> register unsigned int checksum = 0;
> long length = 0;
> long len;
> FILE *fp;
>
> if ((fp = fopen (file, "r")) == NULL) return (-2);
>
> InitCRC();
>
> while (fgets ((char*)buf, BUFLEN, fp) != NULL)
> {
> unsigned char *cp = buf;
> register int i;
>
> if (memcmp (buf, "CRC/(zv)|", 6) == 0) break;
> i = 0;
> while (buf[i])
> {
> checksum += buf[i++];
> }
> len = i;
>
> length += len;
> while (len--)
> {
> crc = (crc << 8) ^ crctab[((crc >> 24) ^ *(cp++)) & 0xFF];
> }
> }
>
> fclose (fp);
>
> if (ferror (fp)) return (-2);
>
> len = length;
> while (len > 0)
> {
> crc = (crc << 8) ^ crctab[((crc >> 24) ^ len) & 0xFF];
> len >>= 8;
> }
>
> crc = ~crc & 0xFFFFFFFF;
> sprintf (result, "CRC/(zv)|%lu|%lu|\n", checksum % 0xFFFF, crc);
>
> return (1);
> }
>
>
>
>
GIF,JPG,JPEG,BMP-Clipboard->blob Paradox
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 5.3.2000 17:43:02
Ahoj,
to nejspis nebude mozne, protoze kdyby ses podival do prohlizece stranek,
zjistis ze treba takovej Explorer uklada do clpbrd vsechny obrazky (at je to
JPEG nebo GIF) pod stejnym formatem (nejaky RASTR). Lepsi by bylo kdyby to
ten uzivatel misto kopirovat dal "ulozit obrazek jako..."
na nejaky smluveny adresar.
M.Jirman
From: L. ZITA <konference(zv)sales(tec)cz>
Zdravim.
D5 prof. (Update Pack 1),W98
Problem : Jak ulo�it data z Clipboardu do blob pole paradoxu v puvodnim
formatu.
Mam databazi Paradoxu s polem Binary a do nej ukladam obrazky. Ukladam je ne
jako bitmapy (bmp) ale v puvodnim tvaru
(jpg, jpeg, gif). Vse mi funguje k plne spokojenosti pokud pri vkladani znam
format dat (tedy pokud tam vkladam obrazek z disku). Neumim ovsem udelat
totez pri vkladani z clipboardu. Napriklad pokud nekdo najde nejaky obrazek
na webu a v prohlizeci da Copy potrebuju to dostat do te databaze v puvodnim
tvaru (gif,jpg..) zatim to umim vlozit jen jako bmp.
Jak na to ?
Predem diky.
Ludek ZITA
Datum a cas souboru
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 5.3.2000 18:03:01
Zdravim vsechny,
mam nasledujici problem: Spustim aplikaci (napr. test.exe) a potrebuji pri
startu programu zjistit datum a cas tohoto programu (tzn. test.exe) a dale s
nim uz pracovat. Tento ukon me, ale nejde napsat. Muzete mi prosim poradit?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
TDataset.Refresh
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 5.3.2000 18:11:03
ahoj,
Problem to sice neresi, ale co takhle volat Query1.Close a pak Query1.Open
misto Active
M.Jirman
From: Viliam Mlich <vmlich(zv)mbox.vol(tec)cz>> Hello All!
>
> Refresh nerobi, to co som cakal, tak to riesim:
>
> query1.active:=false;
> query1.active:=true;
>
> Na P100/W95 to slapalo ok. Ale po presunuti do PII/300, Win NT 4.0 SP3 s
> upgradovanou BDE na 511 to zhruba kazde 2 hodiny (refresujem od timera
> kazdych 8 sekund) vyhlasi 'Capability not supported'.
>
> Zatial som medzi tie riadku strcil sleep(300), zajtra uvidime... Databaza
je
> Paradox.
>
> Bye mailto:vmlich(zv)mbox.vol(tec)cz
> V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
>
>Datum a cas souboru
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.3.2000 18:20:30
Ahoj,
zkus tohle:
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage (DateTimeToStr ((FileDateToDateTime (FileAge
(ParamStr (0))))));
end;
Slavek
> mam nasledujici problem: Spustim aplikaci (napr. test.exe) a potrebuji pri
> startu programu zjistit datum a cas tohoto programu
> Petr Reichl
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
vynutena tlac bandu v QReporte
[*] Lauko �tefan <lauko(zv)salamon.sk> - 5.3.2000 20:11:47
Ahoj.
Kazdy "Band" ma udalost BeforePrint - v nej je mozne (ne)povolit tlac.
Dalej existuju Child (HasChild) - tam je mozne este dalsie vetvenie
reportu.
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
PrintBand:= (podmienka);
QRLabelXY.Caption:= '1998 - nie je zaznam.'; {QRLabelXY je v QRBand1}
end;
Ahoj.
----- Original Message -----
From: Ja <klepoch(zv)ba.sknet.sk>
To: Konferencia Delhi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 05, 2000 10:31 AM
Subject: vynutena tlac bandu v QReporte
> Ahojte,
>
> mam maly problem :
> potrebujem tlacit v QReporte databazu zoskupenu pomocou Group podla rokov.
> Ak vsak nie je niektory rok v databaze, potrebujem vytlacit nieco ako :
1998 - nie je zaznam.
>
> Napada ma riesenie tlacit to cez samostatny Band, ktory sa vytlaci z
GroupHeder pri splneni
> neakej podmienky formou Band.preview - ale nic take som nenasiel.
>
> Je to mozne takto riesit ?
> Ak nie takto, ako na to co najjednoduhsie ?
>
> Dik za pomoc.
>
> Mam Delphi 5 profesional, zatial bez servise packu.
>
> From owner-delphi-l(zv)fwd(tec)cz Sun Mar 5 13:57:14 2000
programova zmena struktury databazy
[*] Lauko �tefan <lauko(zv)salamon.sk> - 5.3.2000 20:19:34
Zmenit structuru tabulky je mozne SQL-prikazom "Alter Table ...".
Pole AutoIncrement je ReadOnly.
3. Neviem... ( podla mna to nejde) ked tam nieco je (0.000001) tak je to >0.
----- Original Message -----
From: Ja <klepoch(zv)ba.sknet.sk>
To: Konferencia Delhi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 05, 2000 10:31 AM
Subject: programova zmena struktury databazy
> Ahoj,
>
> 1. mam problem s zmenou struktury databazy, konkretne pridanie, zmazanie
alebo zmena typu stlpca -
> teda to, co ide cez database desktop. Skusal som to spravit tak, ze som si
spravil prazdnu tabulku (CreateTable)
> s pozadovanou strukturou a prenasal som udaje po poliach, ale tam je
problem s autoincrementom.
>
> Je mozne naplnit autoincrement ?
> Je mozne tieto zmeny struktury robit inak ?
>
> 2. A este nieco podobne : potrebujem programovo vytvorit DBF subor, pricom
pre cislene polia chcem zadat
> format typu N(7, 3) - teda 7 miest, z toho 3 desatinne. Cez preddefinovane
typy to nejde : ftFloat je dany
> presny rozsah. Pritom database desktop to vie. Napada ma riesenie vytvorit
si neaku p�razdnu vzorovu tabulku,
> tu si prekopirovat a potom ju naplnit.
>
> 3. Mam v databaze pole typu Currency. Cez vypocty som ho naplnal
hodnotami. V niketorych pripadoch, ked
> mal byt vysledok 0, tak tam v skutocnosti bolo nieco ako 0.0000xx. Dovod
je jasny : zaokruhlovanie. Pri vsetkych
> vypisoch to dava hodnotu 0, ale ak dam do SQL podmienku ze zostatok =0,
tak taketo pole neprejde. Zatial som to vyriesil
> tak, ze podmienka je zostatok < 0.01. Je mozne nastavit tgyp pola tak, aby
tento problem odpadol ?
>
> Mam Delphi 5 profesional, zatial bez servise packu.
>
> Dik.
>
> From owner-delphi-l(zv)fwd(tec)cz Sun Mar 5 13:54:11 2000
Programove prihlaseni k IB
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 6.3.2000 01:50:22
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Sent: Sunday, March 05, 2000 11:16 AM
Subject: Re: Programove prihlaseni k IB
> Otazkou tedy zustava, jak donutim program pripojit se tak, jak
> chce uzivatel? (local, tcpip, netbeui pripadne spx).
Ahoj,
protokol sa voli automaticky podla pouzitej formy zapisu
local - databasename
TCP/IP - server:databasename
NetBeui - \\server\databasename
SPX - neviem, ale asi analogicky,
kde databasename je uplna cesta databazy aj nazvom disku. V suvislosti s
tymto som uz zistoval v konferencii ci nieje mozne z UNC formatu ziskat
lokalnu cestu k databaze, ale nik nereagoval.
Dufam ze toto uz pomoze.
Palo.
programova zmena struktury databazy
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 6.3.2000 02:06:19
----- Original Message -----
From: Ja <klepoch(zv)ba.sknet.sk>
Sent: Sunday, March 05, 2000 10:31 AM
Subject: programova zmena struktury databazy
Ahoj Ja,
ad 3. Hadam skus pri tych vypoctoch zaokruhlovat a strkat do databazy len
take hodnoty ake by si chcel neskor ocakavat.
napr. na 0,01 sa da zaokruhlit takto: V:=Round(V*100)/100;
Palo.TDataset.Refresh
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 6.3.2000 04:24:21
Hello All!
>> Refresh nerobi, to co som cakal, tak to riesim:
>>
>> query1.active:=false;
>> query1.active:=true;
>>
>> Na P100/W95 to slapalo ok. Ale po presunuti do PII/300, Win NT 4.0 SP3 s
>> upgradovanou BDE na 511 to zhruba kazde 2 hodiny (refresujem od timera
>> kazdych 8 sekund) vyhlasi 'Capability not supported'.
> Problem to sice neresi, ale co takhle volat Query1.Close a pak Query1.Open
> misto Active
Tak uz mam viac informacii. Sekvencia close/open sa spravne vykona 764x a na
ten 765-ty raz 'Open' skonci s chybou 'Capability not supported'. Od toho
okamihu uz neprejde ziadne 'open', program treba 'vykrizkovat' a znovu
spustit. :-(
Nepomohlo downgrade BDE z 5.1.1. na 4.0, ani zrusenie NT a instalacia W95.
Zatial som tam dal pocitadlo a po prekroceni 700 (obcas tam niekto klikne a
urobi sa nejake close/open navyse) start druhej kopie programu a exit.
Ostuda! Pomooc! Ako urobit refresh bez Close? Ako to robi Database Desktop,
ze sa kazda zmena dat okamzite prejavi na obrazovke?
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Trideni v SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.3.2000 07:14:18
> -----P�vodn� zpr�va-----
> Od: Petr Reichl [mailto:reichl(zv)atlas(tec)cz]
> Odesl�no: 3. b�ezna 2000 19:54
> Komu: ListServ - Delphi
> P�edm�t: Trideni v SQL
>
>
> Zdravim vsechny,
>
> potrebuji poradit s nasledujicim problemem tykajici se spise
> jazyka SQL nez
> Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu
> v teto otevrene
> tabulce tridit podle urcitych kriterii. Muzete mi porait
> nejaky prikaz?
To nejde. SQL se nepouziva nad otevrenou tabulkou.
Muzes provest SQL dotaz a ten si nechat setridit
klauzuli ORDER BY. Jenomze v tom pripade pri zmene
tridiciho kriteria budes muset opakovane tahat data
z databaze. Tvuj dotaz na me pusobi, ze chces spis
nacist data a tridit je uz jenom na klientovi.
V tom pripade hledej v archivu, nekdo posilal
komponentu, tusim TempTable nebo tak nejak,
ktera umi tridit na klientovi.
Jura
programova zmena struktury databazy
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.3.2000 07:24:14
> -----P�vodn� zpr�va-----
> Od: Ja [mailto:klepoch(zv)ba.sknet.sk]
> Odesl�no: 5. b�ezna 2000 10:32
> Komu: Konferencia Delhi (el. adresa)
> P�edm�t: programova zmena struktury databazy
>
>
> Ahoj,
>
> 1. mam problem s zmenou struktury databazy, konkretne
> pridanie, zmazanie alebo zmena typu stlpca -
> teda to, co ide cez database desktop. Skusal som to spravit
> tak, ze som si spravil prazdnu tabulku (CreateTable)
> s pozadovanou strukturou a prenasal som udaje po poliach, ale
> tam je problem s autoincrementom.
>
> Je mozne naplnit autoincrement ?
Ano. U nekterych databazi to vsak nejde.
> Mam Delphi 5 profesional, zatial bez servise packu.
Bohuzel, tohle je v danou chvili nejmene zajimava informace.
Zajimavejsi by bylo vedet, jakou pouzivas databazi.
V dotazu byla rec o DBF, ale vztahovala se pouze ke druhemu
odstavci.
Jura
OnMouseOver
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 6.3.2000 07:32:31
Ahoj pisu komponentu (potomek TPanelu) se kterym pohybuji po formulari,
problem je v tom ze nemuzu udelat override metody OnMouseOver nebo
OnMouseDown (jsou virtualni takze nejde predeklarovat) nevite jak se to da
vyresit ?AsyncPro 2.5
[*] Roman Sladek (Bratislava) [slado(zv)datapac.sk] <slado(zv)datapac.sk> - 6.3.2000 07:45:22
Stiahni si upgrade na 2.58. Mne to robilo podobne veci a uz nerobi :-))]
---
bye
slado
-----Original Message-----
From: Viliam Mlich [mailto:vmlich(zv)mbox.vol(tec)cz]
Sent: Saturday, March 04, 2000 8:43 PM
To: Konference Delphi
Subject: AsyncPro 2.5
Hello All!
Mam v pocitaci okrem 2 standardnych portov este dosku Moxa s dalsimi 8
portami. Aplikacia pod W95 i Win NT 4.0 SP3 funguje ok, ale pri vstupe
do
dialogu na zmenu konfiguracie zavieram porty a program chce citat adresu
0000004. :-(
Konkretne je to v module AdPort.pas vo funkcii ComWindowProc hned na
zaciatku, je tam:
if (PortList<>nil) and ...
pritom Portlist je [] a podmienka je predsa splnena! Hodnota
Portlist.Count
je v tom okamziku 6 (mal som otvorenych len 6 portov), ale zoznam
PortList
je prazdny a pristup do neho generuje chybu. Co s tym? Prekladane D3
Standard.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.118 / V�rusov� datab�za: 56 - d�tum vydania: 17.1.2000
Jak vyzobat data? (SQL)
[*] Ren� Otisk - 6.3.2000 08:00:39
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 03, 2000 12:02 PM
Subject: Re: Jak vyzobat data? (SQL)> > D3, RxLib2.60, MODBC komponenty, MS SQL 7, Paradox
> >
> > 1. Pouzivat TDBEdit, TDBGrid aj. komponenty jen pro zobrazeni a pro
> > navadeni pouzivat dialogove okna s TEdity, TGridy apod? nebo 2. Po
> > kazde udalosti OnDataChange projit vsechna pole a aktualizovat Edity
> > (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)? nebo 3. Po kazde
> > udalosti OnAfterScroll projit vsechna pole a aktualizovat Edity
> > (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)?
>
> Ja bych predevsim rad predeslal, ze knihovna mODBC je priserne
> pomala. Provadel jsem nejaka mereni a zjistil jsem, ze pomalejsi
> nez mODBC byl jen nevhodne nastaveny Adonis. Zjistil jsem dale,
> ze BDE + ODBC neni rychlostne vubec spatne. (ale je tam to
> BDE, coz neni prijemne). Radsi bych tedy mODBC zahodil a
> hledal neco jineho. Dalsi zradou na mODBC je, ze TStoredProc
> neni potomek TDataset, tj. umi provadet pouze ulozene procedury,
> ktere nevraceji data!!
>
> Jinak v bodu jedna nerozumim tomu navadeni. Pouzivam, a prijde
> mi to spravne, DBGrid a spol. skutecne na prohlizeni dat a pro
> editaci pouze nedatabazove komponenty. A tyto komponenty plnim
> v OnAfterScroll.
> Zacal jsem take dusledne pouzivat memory table
> (RxMemoryData), takze potrebuji-li dotaz na SQL server, otevru
> Query, nasypu vysledek do RxMemoryData, zavru Query a dale uz
> pracuji jen s tim, co je v RxMemoryData.
>
> Netroufam si posoudit, zda je to to nejlepsi, co se da delat,
> nicmene dotaz znel, jak to delame.
>
> >
> > Pro body 2 a 3 mam nasledujici dotaz, jak se prochazi seznam zobrazeny
> > TDBGridu. Uzivatel zmackne klavesu nebo mysi klikne na Scrollbar a
> > jede to po jednotlivych zaznamech. Lec, nez se to nacte do tech Editu,
> > tak to vice mene (casto vice) zadrhava. Odchytavat udalost onMouseDown
> > a Up a OnKeyDown a Up? Nebo existuji elegantnejsi, jednodussi a
> > prijatelnejsi reseni (klapky na ocich a zlozvyky...)? A ted se Delfici
> > ukazte...
>
> Tak to nevim. Jak jsem rikal vyse, ten DBGrid mam ve skutecnosti
> opreny o RxMemoryData a zadne drhnuti jsem nezaregistroval.
> >
> David
ProcessMessages
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.3.2000 08:12:59
Ahoj,
existuje nejaka nahrada za Application.ProcessMessages???? Mam totiz
programek, kde neni objekt Application vubec vyuzity avsak je zde programova
smycka, ktera potom zazdi ostatni programy.
Jaro B.Programove prihlaseni k IB
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 6.3.2000 08:22:20
Haj hou!
Protokol se specifikuje jako soucast odkazu na databazi (tedy nazvu
databaze):
Priklady:
Pro lokalni server = c:\mojecesta\mojedb.gdb
Pro vzdaleny TCPIP: <host>:<lokalni cesta k db na serveru>
kde <host> je DNS jmeno nebo IP adresa, tedy
myhost:c:\mojecesta\mojedb.gdb
168.192.0.1:c:\mojecesta\mojedb.gdb
Pro vzdaleny NetBEUI: \\<pocitac\<cesta k databazi>
Pro IPX/SPX: <pocitac>(zv)<cesta k databazi>
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 05, 2000 11:16 AM
Subject: Re: Programove prihlaseni k IB
> Preji vsem pekneho dne,
>
> D5 Enterprise, SP1, IB 5.5, IBExpress
>
> Jeden problem byl vyresen (bohuzel ten jednodussi).. misto v user
> name melo byt podtrzitko.
>
> Ale s tim protokolem jsem na nic neprisel. Zatim jsem vypozoroval
> nasledujici.
>
> DPB je nejaky seznam, kde jsou informace pro server. Bohuzel
> protocol se tam nevyskytuje, tudiz bych ho tam nemel ani davat.
> Jenze jsem nenasel jedinou zminku, kam jej mam vlozit.
>
> Na jednom pocitaci mam server. Pokud nastavim v editoru
> komponent cokoliv, bude se to pripojovat pouze lokalne, tedy z
> klienta to nespustim. Musim tedy program prelozit na klientovi a
> program pak funguje (i na serverovi), ale bohuzel opet bez moznosti
> zvolit si protokol.
>
> Otazkou tedy zustava, jak donutim program pripojit se tak, jak
> chce uzivatel? (local, tcpip, netbeui pripadne spx).
>
> Hledal jsem i ve zdrojacich, krokoval, ale nic jsem nevydedukoval.
> Editor komponenty IBDatabase, kde by mohlo byt reseni, se
> nedodava.
>
> Diky za kazdou radu.
>
> Slavek
>
>
> > Potrebuji nechat uzivatele krome jmena a hesla zvolit databazi a
> > protokol. Pokud pouziji nize uvedeny kod, zahlasi mi to vyjimku:
> > EIBClientError with message 'DPB Constant (0) is unknown.'.
> > Nevite, kde je delana chyba?
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
ProcessMessages
[*] azeleny(zv)csas(tec)cz - 6.3.2000 08:28:02
Podivej se do SDK a pouzij Sleep(0), nebo sleep(1)
Na NT a Wir9x se chovahi tyto prikazy jinak, ale velmi hrube pozadaji
system, aby pridelil cas ostatnim (Wir9x to prodeli case tusim pro vsechny
prog. se stejnou prioritou, na NT se respektuji vsechny procesy podle
priority). Pokud to neni presne, tak mne netlucte, lovim to z hlavy uz je to
nejaky cas, kdy jsme to porteboval.
P.S.: Sleep(1) az sleep(25) ma stejny efekt, nebot 25 je nejmensi kvantum
stroj., casu pridelitelne ve win, pokud se nepletu.
Snad to pomuze.
a.
> existuje nejaka nahrada za Application.ProcessMessages???? Mam totiz
> programek, kde neni objekt Application vubec vyuzity avsak je
> zde programova
> smycka, ktera potom zazdi ostatni programy.Klientsky recordset(Was: Jak vyzobat data? (SQL))
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.3.2000 08:46:25
> > Zacal jsem take dusledne pouzivat memory table
> > (RxMemoryData), takze potrebuji-li dotaz na SQL server, otevru
> > Query, nasypu vysledek do RxMemoryData, zavru Query a dale uz
> > pracuji jen s tim, co je v RxMemoryData.
>
> U ADO nepotrebujes ziadne RxMemoryData, pretoze ked pouzijes
> klientsky recordset, tak to zabezpeci ADO automaticky. Dokonca
> je to preferovany model (hlavne u Internet aplikacii). S klientskym
> recordsetom (odpojenym od databazy) mozes aj lokalne pracovat a vsetky
> zmeny potom jednym prikazom updatnut do databazy.
Aha, to jsem nevedel. Je ovsem taky pravda, ze jsem dosud ADO
nepouzival a v soucasne dobe sonduji, kudy se dale ubirat. Proto
jsem take rad, ze tu vznikla o tom diskuse, at uz skonci jakkoli.
Ale chci se zeptat: muzete prosim trosinku podrobneji popsat
zpusob prace s klientskym recordsetem? (myslim tim, zda bude
treba pouzit komponentu TRecordSet, nebo staci u TDataset mit
kurzor clClient) Povede jeho pouzivani k tomu, ze jakmile nebude
treba udrzovat aktivni spojeni na SQL server, bude toto spojeni
zruseno? (obdoba KeepConnection = False u standardni
TDatabase).
Dik.
David
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] petr.palicka(zv)atlas(tec)cz - 6.3.2000 09:00:36
ahoj,
nejsem si jisty (knihu od SQL7 mam doma),
ale melo by to fungovat cca takto:
SELECT
*
FROM
server.databaze.tabulka
..
radsi si to over, ale jedna se o plne kvalifikovane nazvy objektu,
cili kdyz uvedes tabulka (nebo server..tabulka), automaticky predpoklada ze z aktualni database
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~programova zmena struktury databazy
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 6.3.2000 09:13:23
> > 1. mam problem s zmenou struktury databazy, konkretne
> > pridanie, zmazanie alebo zmena typu stlpca -
> > teda to, co ide cez database desktop. Skusal som to spravit
> > tak, ze som si spravil prazdnu tabulku (CreateTable)
> > s pozadovanou strukturou a prenasal som udaje po poliach, ale
> > tam je problem s autoincrementom.
> >
> > Je mozne naplnit autoincrement ?
>
> Ano. U nekterych databazi to vsak nejde.
Finta jak pracovat c autoinkremetem: Zmenit jej pomoco AlterTable na
Integer, naplnit jej a pak jej zase zmenit na Autoinkremet.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
ProcessMessages
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 6.3.2000 09:27:05
existuje nejaka nahrada za Application.ProcessMessages???? Mam totiz
programek, kde neni objekt Application vubec vyuzity avsak je zde programova
smycka, ktera potom zazdi ostatni programy.
Koukni se do zdrojaku, jak to maj delany. Musis si ty message obsluhovat sam. Uz jsem to taky jednou takhle musel resit.... Neni to moc tezky.InstallShield
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 6.3.2000 09:27:48
Zkusil jsem nacist instalacni projekt delany v IS pro D4 pomoci IS pro D5. Vse snad funguje, jen nemuzu zadat v Dialog Boxes v User Information Name, Company and Serial Number. Jde tam zadat jen Name and Company.Setkali jste se s tim nekdo?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Klientsky recordset(Was: Jak vyzobat data? (SQL))
[*] Ren� Otisk - 6.3.2000 09:29:08
Hi,
Pro mne zakladni otazka. Je to pro D3 C/S? Nebo je to otazka komercnich
komponent pripadne jakych a za kolik?
Dekuji
Sroub
> > > Zacal jsem take dusledne pouzivat memory table
> > > (RxMemoryData), takze potrebuji-li dotaz na SQL server, otevru
> > > Query, nasypu vysledek do RxMemoryData, zavru Query a dale uz
> > > pracuji jen s tim, co je v RxMemoryData.
> >
> > U ADO nepotrebujes ziadne RxMemoryData, pretoze ked pouzijes
> > klientsky recordset, tak to zabezpeci ADO automaticky. Dokonca
> > je to preferovany model (hlavne u Internet aplikacii). S klientskym
> > recordsetom (odpojenym od databazy) mozes aj lokalne pracovat a vsetky
> > zmeny potom jednym prikazom updatnut do databazy.
>
> Aha, to jsem nevedel. Je ovsem taky pravda, ze jsem dosud ADO
> nepouzival a v soucasne dobe sonduji, kudy se dale ubirat. Proto
> jsem take rad, ze tu vznikla o tom diskuse, at uz skonci jakkoli.
>
> Ale chci se zeptat: muzete prosim trosinku podrobneji popsat
> zpusob prace s klientskym recordsetem? (myslim tim, zda bude
> treba pouzit komponentu TRecordSet, nebo staci u TDataset mit
> kurzor clClient) Povede jeho pouzivani k tomu, ze jakmile nebude
> treba udrzovat aktivni spojeni na SQL server, bude toto spojeni
> zruseno? (obdoba KeepConnection = False u standardni
> TDatabase).
>
> Dik.
> David
Klientsky recordset(Was: Jak vyzobat data? (SQL))
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.3.2000 10:31:46
> Hi,
> Pro mne zakladni otazka. Je to pro D3 C/S? Nebo je to otazka
> komercnich komponent pripadne jakych a za kolik? Dekuji Sroub
>
Podle toho, co.
RxMemoryData je v RxLib a je free, Adonis je komercni a stoji,
pokud se nepletu, nejak okolo 7500 Kc.
Oboji by melo byt pouzitelne od D3.
David
Adonis - nastaveni 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.3.2000 10:39:09
Ahojte,
zeptam se jeste k Adonisu na tri veci a tim by se snad dalo tohle
tema uzavrit:
1) Je-li CursorLocation = clClient, tak se CacheSize nevyuziva,
protoze je k nicemu, nebo i tady ma vyznam? Pochopil jsem to
tak, ze se hlavne pouziva pri clServer.
2) Uz jsem to mozna nejak polozil v nekterem z predchozich mailu,
ale dam tu otazku konkretne:
Chci dosahnout toho, aby vsechna data, ktera nejaky select
vybere, byla dotazena na klienta, s temito daty aby bylo mozne
pracovat (zejmena Locate apod.) a pritom nebylo udrzovane spojeni
na SQL server, resp. aby jiz server nebyl nijak zatezovan (to proto,
ze uvazuji o pouzivani MSDE a pocet uzivatelu bude okolo 20,
pricemz MSDE je optimalizovano pro 5 uzivatelu). Jak toho tedy v
Adonisu konkretne dosahnout?
3) Adonis, komponenta TADODatabase, property
DatabaseConnect, zalozka All. Tam je nevyplnena Network Library.
Jaka se tedy pouzije? Chci-li pouzit TCP/IP nebo neco, k cemu
neni potreba konto v NT, kde je SQL server (tj. ne Named pipes),
jak ji nastavit?
Diky moc :)
David
Trideni v SQL
[*] Ren� Otisk - 6.3.2000 10:55:05
Hi,
Pomoci ORDER BY
Pr:
SELECT SLOUPEC1, SLOUPEC2... SLOUPECN FROM TABULKA ORDER BY SLOUPEC2
Sroub
Zdravim vsechny,
potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
Prehrani Wavka
[*] petr.palicka(zv)atlas(tec)cz - 6.3.2000 10:57:01
zkus toto (WinAPI):
BOOL PlaySound(
LPCSTR pszSound,
HMODULE hmod,
DWORD fdwSound
);
dekuji peca
GIF,JPG,JPEG,BMP-Clipboard->blob Paradox
[*] Ren� Otisk - 6.3.2000 11:00:46
Hi,
Slo by to delat pres Blobstream a TOlecontainer (Paste, LoadFromStream,
SaveToStream) ale nevim jestli to neni kanon na vrabecka.
Sroub.
Zdravim.
D5 prof. (Update Pack 1),W98
Problem : Jak ulo�it data z Clipboardu do blob pole paradoxu v puvodnim
formatu.
Mam databazi Paradoxu s polem Binary a do nej ukladam obrazky. Ukladam je ne
jako bitmapy (bmp) ale v puvodnim tvaru
(jpg, jpeg, gif). Vse mi funguje k plne spokojenosti pokud pri vkladani znam
format dat (tedy pokud tam vkladam obrazek z disku). Neumim ovsem udelat
totez pri vkladani z clipboardu. Napriklad pokud nekdo najde nejaky obrazek
na webu a v prohlizeci da Copy potrebuju to dostat do te databaze v puvodnim
tvaru (gif,jpg..) zatim to umim vlozit jen jako bmp.
Jak na to ?
Predem diky.
Ludek ZITA
Prehrani Wavka
[*] Grubhoffer(zv)software602(tec)cz - 6.3.2000 11:30:52
PlaySound(FileName,0,SND FILENAME+SND SYNC); PlaySound je v MMSystem
J.G.
-----Original Message-----
From: lumir.delphi(zv)post(tec)cz [mailto:lumir.delphi(zv)post(tec)cz]
Sent: Thursday, March 02, 2000 4:26 PM
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>; grubhoffer(zv)software602(tec)cz
Subject: Prehrani Wavka
Ahoj,
nevite nekdo jestli existuje nejaka procedurka nebo funkce pro prehrani WAV souboru, nebo jestli vzdy musim pouzit celou komponentu MediaPlayer. Hodilo by se mi neco jako Beep nebo MessageBeep();
Predem diky za rady. Lumir.Streams - definice, pouziti
[*] caoperator(zv)ozjc.cpost(tec)cz - 6.3.2000 12:32:12
Zdravim,
obracim se na vas s trivialnim dotazem:
Co si mam predstavit pod pojmem stream a k cemu to je dobre? Pokud jsem to spravne pochopil, jedna se o objekt, ktery "umi" byt cimkoliv - souborem pocinaje databazovym objektem konce. Ale v jakych typickych situacich bych ho mel pouzit a proc?
Dik za polopatickou odpoved.
David Viktora (038/7010362,7010380, 0603/844618)
region�ln� oper�tor certifika�n� autority
�esk� po�ta s.p., o.z. VTJ�
Nemanick� 16
370 20 �esk� Bud�jovice
hot-line 07:00 - 11:30, 12:00 - 15:00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000
Jednoduche splash-windows
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.3.2000 12:44:11
Ahoj,
nemate, prosim, nekdo po ruce jednoduchy priklad na CREATEWINDOW() pro
Delphi 1 a 2?
Potrebuji udelat velmi jednoduchy splash window s napisem 'cekejte, prosim',
doprostredka obrazovky, ale jen s vyuzitim API funkci (kvuli velikosti
vysledneho EXE).
Budu vdecny za jakykoliv priklad.
Diky
Jaro B.Konverze v grafickych formatech
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 6.3.2000 13:39:41
Ahojte,
obracim se na ctene forum s dotazem : "Existuje nejaka komponenta nebo klon TImage, ktera dokaze
ukladat obrazky v jinych grafickych formatech ( TIF, PCX, GIF)? Nebo mate nekdo nejakou funkci,
ktera toto umi?
D3 Profi.
Diky
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
==================================== Adonis - nastaveni 2
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.3.2000 13:51:49
On 6 Mar 00, at 10:39, David Lebeda wrote:
> 2) Uz jsem to mozna nejak polozil v nekterem z predchozich mailu, ale
> dam tu otazku konkretne:
> Chci dosahnout toho, aby vsechna data, ktera nejaky select
> vybere, byla dotazena na klienta, s temito daty aby bylo mozne
> pracovat (zejmena Locate apod.) a pritom nebylo udrzovane spojeni na
> SQL server, resp. aby jiz server nebyl nijak zatezovan (to proto, ze
> uvazuji o pouzivani MSDE a pocet uzivatelu bude okolo 20, pricemz MSDE
> je optimalizovano pro 5 uzivatelu). Jak toho tedy v Adonisu konkretne
> dosahnout?
Troska reklamy - tento pozadavek splnuji (resp. budou splnovat, az
to poslu na web :) moje OLE DB komponenty. V jednoduchosti -
datovy zdroj je pripojen ke gridu, ten si vycte data a udrzuje si je ve
svem bufferu. Pokud je program odpojeny od databaze, grid si to
pamatuje a po nacteni dat se zase promptne odpoji.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.3.2000 13:51:49
On 6 Mar 00, at 9:00, petr.palicka(zv)atlas(tec)cz wrote:
> nejsem si jisty (knihu od SQL7 mam doma),
> ale melo by to fungovat cca takto:
> SELECT
> *
> FROM
> server.databaze.tabulka
> ..
> radsi si to over, ale jedna se o plne kvalifikovane nazvy objektu,
> cili kdyz uvedes tabulka (nebo server..tabulka), automaticky
> predpoklada ze z aktualni database
Jsem pripojen k master, chci zjistit data z pubs:
select * from pubs..employee
Je to ono?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
vynutena tlac bandu v QReporte
[*] petr.palicka(zv)atlas(tec)cz - 6.3.2000 14:00:51
asi ti nezbyde, nez si do pracovniho fajlu (tabulky) nahazet seznam tech roku, s tim, ze pokud tako vy rok ve zdoji neni, doplnis ho navic s nejakou hlaskou.
z toho pak vyjedes tu sestavu
jinak mi neni jasne jak bys chtel tisknout neco co neexistuje
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~
-----Original Message-----
From: Ja [SMTP:klepoch(zv)ba.sknet.sk]
Sent: Sunday, March 05, 2000 10:32 AM
To: Konferencia Delhi (el. adresa)
Subject: vynutena tlac bandu v QReporte
potrebujem tlacit v QReporte databazu zoskupenu pomocou Group podla rokov.
Ak vsak nie je niektory rok v databaze, potrebujem vytlacit nieco ako : 1998 - nie je zaznam.Konverze v grafickych formatech
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 6.3.2000 14:03:29
> Ahojte,
>
> obracim se na ctene forum s dotazem : "Existuje nejaka
> komponenta nebo klon TImage, ktera dokaze
> ukladat obrazky v jinych grafickych formatech ( TIF, PCX,
> GIF)? Nebo mate nekdo nejakou funkci,
> ktera toto umi?
Ahoj,
potreboval jsem zobrazovat TIFF, podarilo se mi to tak, ze jsem si
naimportoval IMGEDIT.OCX (import ActiveX). Bohuzel nevim, jestli to pujde
pod D3, ja jsem to delal pod D5 a NT. Snad ti to pomuze jako impuls k
vyzkumu ;-).
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Konverze v grafickych formatech
[*] Mik Radim <mik(zv)oce(tec)cz> - 6.3.2000 15:30:59
Chodi to. Ja to zkousim pod D3 s Win98. Je potreba mit nainstalovanou
aplikaci Imagination ( standard pro Win xx).
Kdyz uy jsme u toho IMGEDit. Nevite nekdo, jak dosahnout pri tisku na
tiskarnu programovou zmenu formatu papiru ( Landscape/Portrait)?
Radim Mik, mik(zv)oce(tec)cz
> Ahoj,
>
> potreboval jsem zobrazovat TIFF, podarilo se mi to tak, ze jsem si
> naimportoval IMGEDIT.OCX (import ActiveX). Bohuzel nevim,
> jestli to pujde
> pod D3, ja jsem to delal pod D5 a NT. Snad ti to pomuze jako impuls k
> vyzkumu ;-).
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
> Rezident ve Windowsech
[*] Mik Radim <mik(zv)oce(tec)cz> - 6.3.2000 15:37:27
> netusite nekdo jak by slo spustit program v W9x
> tak, aby se rozjel ihned po spusteni pocitace jeste
> pred nalogovanim? Samozrejme to jde resit pres
> RunServices, ale program, ktery takto spustim se
> po odlogovani uzivatele uzavre take. Potreboval bych,
> aby bezel neustale (jako services v NT).
Pocatecni bod je opravdu v zavedeni programu jako RunServices.
V druhem kroku je potreba tento program po spusteni zaregistrovat jako
services pres volani funkce RegisterServiceProcess. Unit s definici
prikladam:
unit rhm1;
interface
Uses
Windows;
const
UNREGISTER_SERVICE = 0;
REGISTER_SERVICE = 1;
THIS_TASK = 0;
REGISTER_ERROR = 0;
REGISTER_OK = 1;
function RegisterServiceProcess( dwProcessID : DWORD; dwType : DWORD) :
DWORD; stdcall;
implementation
function RegisterServiceProcess; external kernel32 name
'RegisterServiceProcess';
end.
Jako treti krok, pres ktery jsem se zatim neprobil, je potreba prejmout na
sebe ( pravdepodobne WinMainHook) osetreni udalosti EX_LOGOFF_USER a
EX_SHUTDOWN. V pripade jen samotneho odhlaseni snad vratit OK a neukoncovat
program, v pripade shutdownu nebo restartu vratit OK a ukoncit se. ( To je
moje domenka, pokud se to podari rozchodit nekomu budu velice rad, kdyz da
vedet).
Radim Mik, mik(zv)oce(tec)cz
Komponenta pre spravu registrov
[*] Ad�mi Jaromil <adami(zv)axa.sk> - 6.3.2000 15:38:53
Ahojte,
Neviete niekto o nejakej komponente pre spravu systemovych registrov vo
W95/98.
Vopred dakujem.
***************************************************
Jaromil Adami
adami(zv)axa.sk
***************************************************Vytvorenie triedy
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 6.3.2000 15:59:07
Zdravim,
mam vytvorenu triedu:
TMyListBox = TCustomListBox
...
private
procedure DrawItem (Index: Integer; Rect: TRect; State: TOwnerDrawState);
Override;
...
end;
procedure TMyListBox.DrawItem;
begin
...
end;
Nevie niekto preco sa mi nevykona vobec nic z toho mojho DrawItem?
Miso
Vlastnosti tiskarny
[*] Boris Pe�ka <duhasystem(zv)volny(tec)cz> - 6.3.2000 16:15:41
Zdravim !
Kazda tiskarna ma svoje vlastni vlastnosti, ktere se zobrazi v nastavovacim dialogu tiskarny (napr. PrinterSetupDialog). Nevite nekdo, jak tyto specificke vlastnosti zobrazit ve svem vlastnim dialogu?
Diky za odpoved.
Boris
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] Petr Palicka <palicka(zv)aginfo(tec)cz> - 6.3.2000 16:28:56
Jsem pripojen k master, chci zjistit data z pubs:
select * from pubs..employee
Je to ono?
podle "mistrovstvi v SQL serveru 6.5" ma plne jmeno tabulky tri casti
database.vlastnik.tabulka
takze by to melo byt dobre
ja si myslim, ze v M$SQL_7.0 je to server.database.user.table,
to overim doma, a zitra potvrdim (pokud nezapomenu)
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~
> -----Original Message-----
> From: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Sent: Monday, March 06, 2000 1:52 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Spojeni dvou tabulek z ruznych databazi stejneho SQL
> Serveru
> Jak donutit Windows pouzit zmeny v registru
[*] Ondrej Majercik <majerco(zv)feld.cvut(tec)cz> - 6.3.2000 15:44:48 met-1mest
Zravim,
muj dotaz se netyka primo Delphi, ale programovani ve Windows
obecne.
Mym programem zmenim v registru jmeno souboru, pouzivaneho
jako tapetu na pozadi, ale nevim, jak prinutit Windows tuto zmenu
akceptovat, aniz bych musel restartovat.
Uz jsem zkousel poslat desktopu zpravu wm_paint, zkousel jsem
na nej RedrawWindow() a UpdateWindow(), zkousel jsem poslat
zpravu, ktera by mela informovat system o zmenach v registru
(neco jako wm_wininichange, ale trochu jiny nazev, zrovna si
nevzpominam). Akorat si nejsem jisty, zda jsem pri posilani
teto zpravy udelal vse potrebne.
Byl bych vdecny za nejakou (pokud mozno funkcni) radu.
Ondrej Majercik
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] Petr Palicka <palicka(zv)aginfo(tec)cz> - 6.3.2000 16:47:47
Jsem pripojen k master, chci zjistit data z pubs:
select * from pubs..employee
Je to ono?
podle "mistrovstvi v SQL serveru 6.5" ma plne jmeno tabulky tri casti
database.vlastnik.tabulka
takze by to melo byt dobre
ja si myslim, ze v M$SQL_7.0 je to server.database.user.table,
to overim doma, a zitra potvrdim (pokud nezapomenu)
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~
-----Original Message-----
From: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Sent: Monday, March 06, 2000 1:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Spojeni dvou tabulek z ruznych databazi
stejneho SQL Serveru
Button a Focus
[*] novacek(zv)vanicek(tec)cz - 6.3.2000 16:20:30
Dne 3 Mar 00 v 0:06, napsal Straka Josef:
> D4 standard W95 OSR2
>
> mam jeden problem. Udelal jsem pole Buttonu (6 x 7 tlacitek), neco jako
> sachovnice. Aktivni je tlacitko napr vlevo nahore (Button1), takze po stisku
> Space se stiskne. A ted bych chtel, aby po stisku napr klavesy R se zamereni
> presunulo doprava, na druhe tlacitko (Button2) a po dalsim stisku na Button3
> atd. Muhu to sice udelat, ze do udalosti klavesy R dam ActiveControl :=
Pokud jsou tlacitka sporavne poskladany podle TabOrder, je mozne provest:
ActiveControl:=FindNextControl (ActiveControl,False,True,False);
Udela to presun na dalsi tlacitko (nebo jiny objekt), stejnme jako stisk
klavesy Tab.
Zdar a silu.
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Pocet kopii v QReporte
[*] novacek(zv)vanicek(tec)cz - 6.3.2000 16:51:57
> > Tisk vice kopii musi podporovat tiskarna, napriklad u pil (jehlickovych
> > tiskaren) toto vetsinou nefunguje.
> > Petr Vones, amatersky programator
>
> Aha. A je mozne zistit ci to tlaciaren podporuje predtym nez sa pokusam
> pocet kopii nastavit ? Ak nie asi by som potom musel vytlacit stranku 2x za
> sebou.
Viz. nize.
> BTW: nefunguje to na HP DeskJet 520.
To je divny, me to na stejne tiskarne funguje. Mozna je to tim, ze si
zjistim jeji parametry a zaridim se podle nich. Viz.:
Procedure GetPrtParams;
Var
ADevice,ADriver,APort : Array [0..255] Of Char;
DevHandle : THandle;
DevMode : PDeviceMode; {Ukazatel na strukturu
DevMode}
Begin
{Nejdriv ziskam drzadlo struktury DevMode z objektu Printer}
Printer.GetPrinter (ADevice,ADriver,APort,DevHandle);
{Je-li v Devhandle porad 0 (nula), tak nani nahran ovladac tiskarny.
Nastavenim indexu tiskarny si vynutim jeho nahrani, cimz se
zpristupni drzadlo DevHandle}
If DevHandle = 0 Then
Begin
Printer.PrinterIndex:=Printer.PrinterIndex;
Printer.GetPrinter (ADevice,ADriver,APort,DevHandle);
end; {Of If DevHandle}
{Je-li v DevHandle porad 0, doslo k chybe}
If DevHandle = 0 Then
Raise EPrtError.Create ('Nen� mo�n� inicializovat strukturu
DevMode');
{Zjistim maximalni pocet kopii, ktere muze tiskarna vytisknout}
MaxCopies:=DeviceCapabilities
(ADevice,APort,DC_COPIES,Nil,Nil);
{If chyba ==> tiskne jen jednu kopii}
If MaxCopies < 1 Then MaxCopies:=1;
{Ziskam ukazatel na strukturu DevMode volanim GlobalLock}
DevMode:=GlobalLock (DevHandle);
{Nastavim potrebne parametry}
With DevMode^ Do
Begin
{Schovam si priznaky vlastnosti tiskarny}
... :=dmFields;
// obsahuji spoustu zajimavych informaci. Podrobnosti v helpu
{Kdyz tiskarna neumi tisknout vic kopii, tak shodim MaxCopies
(stejne by melo byt = 1}
If (PP.SavDMFlds And DM_COPIES) = 0 Then MaxCopies:=1;
// ... zde mohu nastavit pocet kopii na tiskarne
{Nastavim pocet kopii}
dmFields:=dmFields Or DM_COPIES;
dmCopies:=PozadovanyPocetKopii;
// ... konec nastavovani poctu kopii
end; {Of With DevMode}
{Uvolnim strukturu DevMode}
If DevHandle <> 0 Then GlobalUnlock (DevHandle);
end; {GetPrtParams}
// Pozn.aut.: Opsano z knizek o Delphi
Pozn.: jeste pozor na nastavni PrintDialog.Collate, tedy zpusobu, jak
se maji tisknou kopie za sebou.
Zdar a silu.
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Streams - definice, pouziti
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 6.3.2000 18:00:16
AHOJ,
ja myslim, ze 1.veta z Delphi help to rika docela vymluvne:
TStream is the base class type for stream objects that can read from or
write to various kinds of storage media, such as disk files, dynamic memory,
and so on.
Unit
classes
Description
Use specialized stream objects to read from, write to, or copy information
stored in a particular medium.
a mame ruzne typy:
TFileStream (for working with files)
TStringStream (for manipulating in-memory strings)
TMemoryStream (for working with a memory buffer)
TBlobStream (for working with BLOB fields)
TWinSocketStream (for reading and writing over a socket connection)
TOleStream (for using a COM interface to read and write)
...
Do you speak English?
M.Jirman
>From: <caoperator(zv)ozjc.cpost(tec)cz>
>
>Zdravim,
>
>obracim se na vas s trivialnim dotazem:
>Co si mam predstavit pod pojmem stream a k cemu to je dobre? Pokud jsem to
spravne pochopil, >jedna se o objekt, ktery "umi" byt cimkoliv - souborem
pocinaje databazovym objektem konce. >Ale v jakych typickych situacich bych
ho mel pouzit a proc?
>
>Dik za polopatickou odpoved.
>
>David Viktora (038/7010362,7010380, 0603/844618)
Detekce vysunuti CD
[*] DiGi <DiGi(zv)MujMail(tec)cz> - 6.3.2000 19:30:06
Ahoj,
mam zachycenou WM_DEVICECHANGE - message posilana pri vysunuti CD. Problem
je, ze z ty messge nevyctu JAKY CD bylo vysunuty (jake pismenko).
Pritom WinSight to vesele vypisuje... Pokud vite jak na to...
pozivam:
type
TPDEV_BROADCAST_HDR = ^TDEV_BROADCAST_HDR;
TDEV_BROADCAST_HDR = Record
dbch_size,
dbch_devicetype,
dbch_reserved : Cardinal;
end;
TMyMsg = Record
MessageType,
wParam : LongWord;
lParam : TPDEV_BROADCAST_HDR;
end;
procedure ejectCDnotify (var msg : TMyMsg); message WM_DEVICECHANGE;
pacham to v D5
DiGi
--- DiGi(zv)MujMail(tec)cz ---------------------------------------------
-------------------------------------------- http://www.qr(tec)cz --- Vykreslovani
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 6.3.2000 19:39:57
Zdravim vsechny,
Mam proceduru, kde kopiruji vice souboru a potrebuji zobrazovat informace o
prubehu.
lblInfo.Caption := 'Kopiruji 1 ...';
lblInfo.Update;
CopyFile ...
CopyFile ...
lblInfo.Caption := 'Kopiruji 2 ...'
lblInfo.Update;
CopyFile ...
... tato procedura se spousti v udalosti OnShow a lblInfo se vubec nezobrazi
natoz, aby se menilo podle aktualniho stavu. Muzete mi prosim poradit?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.3.2000 21:12:22
On 6 Mar 00, at 16:47, Petr Palicka wrote:
> Jsem pripojen k master, chci zjistit data z pubs:
>
> select * from pubs..employee
>
> Je to ono?
>
> podle "mistrovstvi v SQL serveru 6.5" ma plne jmeno tabulky tri casti
> database.vlastnik.tabulka
V tomto pripade jsou tam podstatne ty dve tecky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TMediaPlayer a odkl�dac� soubor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:24:42
From: Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz>
> nahravam-li pres TMediaPlayer dlouh� soubor (WAV), uklada se do pameti nejprve
> fyzicke a pak do swapu. Ukoncim-li nahravani treba po 5 hodinach a dam ulozit,
> tak MediaPlayer presype soubor ze swapu do souboru na disk. Jenze to trva dost
> dlouho a doba ukladani je primo zavisla na HW.
Ahoj,
V tomhle pripade bych nepouzival TMediaPlayer, ale radeji primo funkce pro praci
s WAV formatem. Priklad najdes tady (ACM.ZIP):
http://delphi-jedi.org/Jedi:APILIBRARY:837058485
Petr Vones, amatersky programator
Jak donutit Windows pouzit zmeny v registru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:24:53
From: Ondrej Majercik <majerco(zv)feld.cvut(tec)cz>
> muj dotaz se netyka primo Delphi, ale programovani ve Windows
> obecne.
>
> Mym programem zmenim v registru jmeno souboru, pouzivaneho
> jako tapetu na pozadi, ale nevim, jak prinutit Windows tuto zmenu
> akceptovat, aniz bych musel restartovat.
Ahoj,
Je treba to provest korektnim zpusobem - volanim prislusne funkce a ne zmenou
polozky v registru:
function SetDesktopWallpaper(const FileName: string): Boolean;
var
P: PChar;
begin
if Length(FileName) = 0 then P := '""' else P := PChar(FileName);
Result := SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, P,
SPIF_UPDATEINIFILE or SPIF_SENDCHANGE);
end;
Petr Vones, amatersky programator
Zajimavost pri volani metody
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:25:52
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Diky tomu, ze v definici metody je pouzito const, vede pouziti
> ShowMessage (S) k sahnuti nekam uplne jinam, nez bylo puvodne
> zamysleno.
Ahoj,
Vede k sahnuti do oblasti pameti, kterou jsi pred tim uz zrusil. Proto to pak
ma nepredvidatelne chovani.
> Co me vsak zarazilo, ze to sebou vzalo veskere menu ve w2k. Holt
> stabilita je stabilita. :-) Na druhou stranu, w95 by to asi vzalo cele.
Ve Win95 to jen zobrazi nesmyslny retezec :-)
Petr Vones, amatersky programator
Vytvorenie triedy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:25:27
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
> TMyListBox = TCustomListBox
> ...
> private
> procedure DrawItem (Index: Integer; Rect: TRect; State: TOwnerDrawState);
> Override;
> ...
> end;
>
> procedure TMyListBox.DrawItem;
> begin
> ...
> end;
>
> Nevie niekto preco sa mi nevykona vobec nic z toho mojho DrawItem?
Ahoj,
metoda DrawItem se vola pouze v pripade, ze TListBox.Style je nastaven na
lbOwnerDrawFixed nebo lbOwnerDrawVariable. Dale by jsi nemel snizovat
viditelnost metody, ktera je deklarovana v predkovi tridy (prekladac te na
to upozorni). Tedy, TMyListBox.DrawItem by melo byt v sekci protected.
Petr Vones, amatersky programator
Datum a cas souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:25:35
From: Petr Reichl <reichl(zv)atlas(tec)cz>
> mam nasledujici problem: Spustim aplikaci (napr. test.exe) a potrebuji pri
> startu programu zjistit datum a cas tohoto programu (tzn. test.exe) a dale s
> nim uz pracovat. Tento ukon me, ale nejde napsat. Muzete mi prosim poradit?
Ahoj,
Uprime receno, moc tomu nerozumim. Jde ti o to zjistit datum a cas EXE sveho
souboru ktery spoustis nebo datum a cas ve kterem byl spusten ?
Petr Vones, amatersky programator
OnMouseOver
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:26:56
From: Milos Sula <crkstrobe(zv)geocities.com>
> Ahoj pisu komponentu (potomek TPanelu) se kterym pohybuji po formulari,
> problem je v tom ze nemuzu udelat override metody OnMouseOver nebo
> OnMouseDown (jsou virtualni takze nejde predeklarovat) nevite jak se to da
> vyresit ?
Ahoj,
OnMouseDown a OnMouseOver nejsou metody ale udalosti. Ve VCL v mnoha pripadech
plati konvence, ze prislusna udalost OnXXX je volana z metody DoXXX (XXX), ktera
je virtualni, takze ji lze prepsat. V tvem pripade jsou to metody MouseDown a
MouseMove, ktere jsou definovane ve tride TControl.
Petr Vones, amatersky programator
Komponenta pre spravu registrov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:27:31
From: Ad�mi Jaromil <adami(zv)axa.sk>
> Neviete niekto o nejakej komponente pre spravu systemovych registrov vo
> W95/98.
Ahoj,
Podivej se do helpu na tridu TRegistry.
Petr Vones, amatersky programator
ProcessMessages
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:27:19
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> existuje nejaka nahrada za Application.ProcessMessages???? Mam totiz
> programek, kde neni objekt Application vubec vyuzity avsak je zde programova
> smycka, ktera potom zazdi ostatni programy.
Ahoj,
z popisu vyplyva, ze jde patrne o 16bit aplikaci. Tam neexistuje skutecny
multitasking a proto musis vzdy povolit zpracovani zprav ve sve aplikaci,
aby se dostalo i na ostatni. Typicke zpracovani zprav muze vypadat treba
takhle:
var
Msg: TMsg;
begin
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
Petr Vones, amatersky programator
Jednoduche splash-windows
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.3.2000 22:27:26
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> nemate, prosim, nekdo po ruce jednoduchy priklad na CREATEWINDOW() pro
> Delphi 1 a 2?
> Potrebuji udelat velmi jednoduchy splash window s napisem 'cekejte, prosim',
> doprostredka obrazovky, ale jen s vyuzitim API funkci (kvuli velikosti
> vysledneho EXE).
Ahoj,
Priklad na aplikaci psanou jen ve Win32 API najdes tady. Je to urceno pro D5,
ale melo by to jit prelozit i v nizsich verzich.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/DelphiDays99_Prezentace.zip
Petr Vones, amatersky programator
Vytvorenie triedy
[*] Lauko �tefan <lauko(zv)salamon.sk> - 6.3.2000 22:38:36
Nema to byt nahodou v casti:
protected
procedure DrawItem(Index: Integer; Rect: TRect;
State: TOwnerDrawState); virtual;
Ahoj.
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 06, 2000 3:59 PM
Subject: Vytvorenie triedy
> Zdravim,
>
> mam vytvorenu triedu:
>
> TMyListBox = TCustomListBox
> ...
> private
> procedure DrawItem (Index: Integer; Rect: TRect; State:
TOwnerDrawState);
> Override;
> ...
> end;
>
> procedure TMyListBox.DrawItem;
> begin
> ...
> end;
>
> Nevie niekto preco sa mi nevykona vobec nic z toho mojho DrawItem?
>
> Miso
>
Zotriedenie podla viac stlpcov v IB.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 7.3.2000 00:06:32
Zdravim !
Ako zotriedim "Select * from Skuska order by Text, Datum Collate PXW_CSY" ,
kde Datum je Date field. IB sa to nepaci.
Thenk ju. Roland.
Vytvorenie triedy
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 7.3.2000 00:47:21
Zdravim,
samozrejme, ze je to v sekcii protected, ale problem som uz nasiel (vlastne
Peter Vones). Je to v TlistBox.Style;
Dik, Petre, Miso
-----Original Message-----
Nema to byt nahodou v casti:
protected
procedure DrawItem(Index: Integer; Rect: TRect;
State: TOwnerDrawState); virtual;
Ahoj.
RecNo v SQL
[*] L. ZITA <konference(zv)sales(tec)cz> - 7.3.2000 01:27:38
Behalf Of Michal Hlavac
> Ako by som mohol napisat na strane SQL servera funkciu, ktora mi vrati
> hodnotu RecNo v danom View.
SELECT COUNT(*)FROM "TableName" WHERE "Description"
Ludek ZITA
Pocet userov na IB
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 7.3.2000 03:29:51
Zdravim.
Ako zistim programovo, kolko pripojeni je na konkretnej tabulke?
Hi. roland.Vykreslovani
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2000 06:03:01
Zkus to v udalosti OnActivate a na zacatku udelej Application.ProcessMessages
Jan Fiala
----- Original Message -----
From: Petr Reichl <reichl(zv)atlas(tec)cz>
Zdravim vsechny,
Mam proceduru, kde kopiruji vice souboru a potrebuji zobrazovat informace o
prubehu.
lblInfo.Caption := 'Kopiruji 1 ...';
lblInfo.Update;
CopyFile ...
CopyFile ...
lblInfo.Caption := 'Kopiruji 2 ...'
lblInfo.Update;
CopyFile ...
... tato procedura se spousti v udalosti OnShow a lblInfo se vubec nezobrazi
natoz, aby se menilo podle aktualniho stavu. Muzete mi prosim poradit?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
SQL insert
[*] Radek Dostal <Dostal(zv)GyZamb(tec)cz> - 7.3.2000 07:31:26
Zdravim
Mam na lokalnim paradoxu jednoduchy SQL dotaz, ktery funguje
insert into znalosti
(IdSlovicka,IDLekce)
Select IDSlovicka,IDLekce from slovicka
where IDSlovniku=1
jenze ja potrebuji, aby ke vsem takto vlozenym radku byla JESTE do sloupce
Znalosti.Nove vlozena hodnota True.
Dekuji vsem za pomoc.
S pozdravem Radek Dostal
Zotriedenie podla viac stlpcov v IB.
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.3.2000 07:51:50
Zkus takto (toto je z helpu)
<order_list> =
{ col | int} [COLLATE collation] [ASC[ENDING] | DESC[ENDING]]
[, <order_list>]
tedy: order by Text Collate PXW_CSY,Datum
Snad to bude fungovat, nezkousel jsem to
Slavek
Zdravim !
Ako zotriedim "Select * from Skuska order by Text, Datum Collate PXW_CSY" ,
kde Datum je Date field. IB sa to nepaci.
Thenk ju. Roland.
Chyba debugeru v D2 nebo kde?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.3.2000 08:22:55
Ahoj,
Potrebuji odladit program v D2 a program nedobehne. Pri pokusu ho ukoncit
zahlasi Error:"Debug process is already runnning" a neudela nic (nepovoli
ani restartovat Windows, to jde jen kouzelnym trojhmatem). Zobrazovany
proces (v mem pripade P1.EXE) jiz neni v zobrazovanych procesech. Co s tim?
Pouzita RXLib 2.75 (+FixBug) - s verzi 2.60 to ruzne zdechalo na Access
Violation pri uvolnovani komponent. Cely program neni nic nez main
menu/system menu (owner draw ) a animated tray icon s owner draw menu (je to
udelane podle RX demo programu). Ale zaviram ho poklepnutim na buttonek
Zavrit [X].
Setkal jste se s tim nekdo? Treba je to nejaka blbost, tak prikladam vypis
do prilohy.
Diky
Jaro B.
Priloha:
Tohle je prekresleni na zaklade TAG v MenuItem, SystImg je komponent PicClip
uschovavajici obrazek
funkce CreateRotatedFont je z VCLUtils RXLib.
** SYSTEMOVE MENU POD TRAYICON
procedure TForm1.SystMenuDrawMargin(Sender: TMenu; Rect: TRect);
const
Txt = 'PROGRAM V1.0';
begin
with SystMenu.Canvas.Font do begin
Name := 'Arial';
Style := [fsBold];
Size := 18;
Color := clWhite;
Handle := CreateRotatedFont(SystMenu.Canvas.Font, 90);
end;
SystMenu.DefaultDrawMargin(Rect, clTeal, RGB(GetRValue(clTeal) div 4,
GetGValue(clTeal) div 4, GetBValue(clTeal) div 4));
SetBkMode(SystMenu.Canvas.Handle, TRANSPARENT);
ExtTextOut(SystMenu.Canvas.Handle, Rect.Left, Rect.Bottom - 5,
ETO_CLIPPED,
(zv)Rect, Txt, Length(Txt), nil);
end;
procedure TForm1.SystMenuGetItemParams(Sender: TMenu; Item: TMenuItem;
State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor;
var Graphic: TGraphic; var NumGlyphs: Integer);
begin
Graphic := SystImg.GraphicCell[Item.Tag];
end;
** MENU HLAVNI
procedure TForm1.MainMenu1GetItemParams(Sender: TMenu; Item: TMenuItem;
State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor;
var Graphic: TGraphic; var NumGlyphs: Integer);
begin
Graphic := SystImg.GraphicCell[Item.Tag];
end;SQL insert
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 7.3.2000 08:27:42
Neviem ci to funguje aj na Paradoxe, ale v v SQL sa to napise
insert into znalosti
(IdSlovicka,IDLekce, Nove)
Select IDSlovicka,IDLekce, True from slovicka
where IDSlovniku=1
----- Original Message -----
From: Radek Dostal <Dostal(zv)GyZamb(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 07, 2000 7:31 AM
Subject: SQL insert
> Zdravim
> Mam na lokalnim paradoxu jednoduchy SQL dotaz, ktery funguje
> insert into znalosti
> (IdSlovicka,IDLekce)
> Select IDSlovicka,IDLekce from slovicka
> where IDSlovniku=1
>
> jenze ja potrebuji, aby ke vsem takto vlozenym radku byla JESTE do sloupce
> Znalosti.Nove vlozena hodnota True.
> Dekuji vsem za pomoc.
> S pozdravem Radek Dostal
>
>
>SQL insert
[*] radomir.chwalek(zv)rtscs(tec)cz - 7.3.2000 08:28:53
Ahoj,
insert into znalosti
(IdSlovicka,IDLekce, Nove)
Select IDSlovicka,IDLekce, 'TRUE' from slovicka
where IDSlovniku=1
Radek
> -----P�vodn� zpr�va-----
> Od: Radek Dostal [mailto:Dostal(zv)GyZamb(tec)cz]
> Odesl�no: 7. b�ezna 2000 7:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: SQL insert
>
>
> Zdravim
> Mam na lokalnim paradoxu jednoduchy SQL dotaz, ktery funguje
> insert into znalosti
> (IdSlovicka,IDLekce)
> Select IDSlovicka,IDLekce from slovicka
> where IDSlovniku=1
>
> jenze ja potrebuji, aby ke vsem takto vlozenym radku byla
> JESTE do sloupce
> Znalosti.Nove vlozena hodnota True.
> Dekuji vsem za pomoc.
> S pozdravem Radek Dostal
>
> Odchycen� zpr�vy
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 7.3.2000 08:35:13
Ahojte,
mam takovy cite teoreticky dotaz.Mam dva formy - jeden hlavni a druhy, ktery se otvira z menu hlavniho formu.Potrebuji, abych event minimalizace vedlejsiho formu odchytil v hlavnim formu.Momentalne mam ve vedlejsim formu predefinovanou WNDProc, krasne to odchytava, ale uz na ni neodchytnu event RESTORE,
protoze na liste mi zustane po provedeni POSTMESSAGE hlavni form, takze nejlepsi by bylo odchytit minimalizaci vedlejsiho formu v hlavnim formu, aby to bylo vsechno v jedne unite,ne?
Dal jsem tam POSTMESSAGE, protoze jakykoli jiny zpusob minimalizace shodi okno nad listu a ne do listy.
Jde mi o to, jak donutit vedlejsi form, aby event minimalizace neobslouzil a pustil ho k obslouzeni do hlavniho formu.Jde to nejak?
procedure TOKNO1.MyWndProc(var Message: TWMCommand);
begin
if (((Message.ItemID=SC MINIMIZE) or (Message.ItemID = SC ICON)) and (MainForm.Visible<>False)) then
begin
PostMessage(okno1.Handle,WM SYSCOMMAND,SC MINIMIZE,0);
PostMessage(MAINForm.Handle,WM SYSCOMMAND,SC MINIMIZE,0)
end
else
if (Message.ItemID = SC RESTORE) or (Message.ItemID = SC SIZE) then
begin
PostMessage(okno1.Handle,WM SYSCOMMAND,SC RESTORE,0);
PostMessage(MainForm.Handle,WM SYSCOMMAND,SC RESTORE,0)
end
else
inherited;
end;
Predem diky.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
P.S. WIn98, D4 SP3
BDE - detekce kompatibility
[*] azeleny(zv)csas(tec)cz - 7.3.2000 08:50:01
DDV,
mam problem (co jineho), muj programek napsany v D5 (s pouzitim BDE z D5) mi
krasne chodi na mem pc, ale kdyz jej zkusim pusit na PC, kde je BDE jeste
verze sirene s PX 7, tak se hned po spisteni napise Application Error a vita
mne DrWatson. Pritom se jeste nepripojuji k databazi, pouze zjistuji z
session seznam aliasu.
Potreboval bych vedet, jak zjistim verzi (nebo lepe kompatibilitu) BDE na
pocitaci, abych mohl pripadne napsat nejaky dialog a _LEGALNE_ ukoncit
program (lepe jej samozrejme sputit).
Jeste jsem nezousel API fce BDE, ale nevim, zda by nedoslo uz pri jejich
volani k chybe / ktere si muzu dovolit volat a ktere nikoliv.
Jakykoliv napad vitan.
Diky a.
----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.Odchyt tlacitek Minimalizovat/Maximalizovat
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 7.3.2000 08:59:55
Zdravim,
Jak lze jednoduse odchytit stisk tlacitek Minimalizovat/Maximalizovat/Obnovit/Zavrit, ktere jsou na Form vpravo nahore. Potrebuji vyhodnotit tento stisk jeste pred vlastnim provedenim akce Formulare.
Diky
Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~QReport - orientace sestavy
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 7.3.2000 09:00:27
Zdravim,
Jak zjistit u hotove sestavy z QReportu (presne receno u QRD) jak je nastavena Orientace: Na vysku/Na sirku. A jak zjistit velikost papiru (PaperSize).
QRPreview.QRPrinter.Orientation; -> toto funguje
QRPreview.QRPrinter.PaperSize; -> tato funkce vraci stale papir A4
Diky
Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~SQL insert
[*] Radek =?iso-8859-2?Q?Hole=E8ek?= <holecekr(zv)upfm(tec)cz> - 07.3.2000 09:05:19
Melo by fungovat:
Insert into Znalosti
(IdSlovicka, IdLekce, Nove)
VALUES (Select IDSlovicka, IDLekce, true
from Slovicka
where IDSlovniku = 1)
Nevim, ale jak by mela byt presne prezentovana
hodnota true (true nebo 1) na lokalnim paradoxu.
Radek
Radek Dostal wrote:
> Zdravim
> Mam na lokalnim paradoxu jednoduchy SQL dotaz, ktery funguje
> insert into znalosti
> (IdSlovicka,IDLekce)
> Select IDSlovicka,IDLekce from slovicka
> where IDSlovniku=1
>
> jenze ja potrebuji, aby ke vsem takto vlozenym radku byla JESTE do sloupce
> Znalosti.Nove vlozena hodnota True.
> Dekuji vsem za pomoc.
> S pozdravem Radek Dostal
Adonis - nastaveni 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.3.2000 09:13:59
> > 2) Uz jsem to mozna nejak polozil v nekterem z predchozich mailu,
> > ale dam tu otazku konkretne:
> > Chci dosahnout toho, aby vsechna data, ktera nejaky select
> > vybere, byla dotazena na klienta, s temito daty aby bylo mozne
> > pracovat (zejmena Locate apod.) a pritom nebylo udrzovane spojeni na
> > SQL server, resp. aby jiz server nebyl nijak zatezovan (to proto, ze
> > uvazuji o pouzivani MSDE a pocet uzivatelu bude okolo 20, pricemz
> > MSDE je optimalizovano pro 5 uzivatelu). Jak toho tedy v Adonisu
> > konkretne dosahnout?
>
> Troska reklamy - tento pozadavek splnuji (resp. budou splnovat, az to
> poslu na web :) moje OLE DB komponenty. V jednoduchosti - datovy zdroj
> je pripojen ke gridu, ten si vycte data a udrzuje si je ve svem
> bufferu. Pokud je program odpojeny od databaze, grid si to pamatuje a
> po nacteni dat se zase promptne odpoji.
Urcite se na to podivam. S jakym pocitate casovym vyhledem?
Nicmene - pokud si pamatuju na diskuse, ktere se okolo techto
komponent vedly, tyto komponenty by snad nemely byt potomky
TDataSet. Tzn. ze pokud mi v sade tech komponent bude neco
chybet, nebudu mit sanci si to sehnat od nekoho jineho, protoze to
nebude kompatibilni. Muzete tedy prosim blize popsat, ktere
konkretni komponenty tam budou? (to, co ja bych potreboval, je
neco ve stylu Query, StoredProc a z db-aware pak Grid, Edit,
LookupCombo (tedy spise by stacilo obycejne Combo, jehoz Items
budou plnene z databaze).
Dik
David
Parametre f-cii a procedur
[*] Tibor Galik <tgalik(zv)vsz.sk> - 07.3.2000 09:44:06
procedure P1(const InBlock; var OutBlock);
procedure P2( InBlock:Variant);
Prosim Vas aky je rozdiel medzi tmito dvoma procedurami ?
Ako s nimi pracovat v tele procedury ?
diky
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
BDE - detekce kompatibility
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 7.3.2000 10:43:01
Asi bych to udelal tak, ze nucene inicializuji BDE pomoci db_init a dam to do try..except.
Ale stejne, proc to nesiris pomoci InstallShieldu a nepribalis tam i BDE????
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> DDV,
> mam problem (co jineho), muj programek napsany v D5 (s pouzitim BDE z D5) mi
> krasne chodi na mem pc, ale kdyz jej zkusim pusit na PC, kde je BDE jeste
> verze sirene s PX 7, tak se hned po spisteni napise Application Error a vita
> mne DrWatson. Pritom se jeste nepripojuji k databazi, pouze zjistuji z
> session seznam aliasu.
>
> Potreboval bych vedet, jak zjistim verzi (nebo lepe kompatibilitu) BDE na
> pocitaci, abych mohl pripadne napsat nejaky dialog a _LEGALNE_ ukoncit
> program (lepe jej samozrejme sputit).
>
> Odchyt tlacitek Minimalizovat/Maximalizovat
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 7.3.2000 10:50:22
Pres WndProc, kdy chytas message WM_SYSCOMMAND
as takto ...
WM_SYSCOMMAND: begin
if message.wparam=SC_RESTORE then <kod>;
if Message.WParam=SC_MINIMIZE then <kod>;
end;
Druha varianta je tato :
Na menuitem Zavrit je to klasicka udalost OnClose nebo OnCloseQuery,
Minimalizovat, Maximalizovat a Obnovit jsou ud�losti na TApplication a to
OnRestore, OnMinimize
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================> -----P�vodn� zpr�va-----
> Od: Pavel ZIDEK [SMTP:kopr(zv)kopr(tec)cz]
> Odesl�no: 7. b�ezna 2000 9:00
> Komu: Konference DELPHI forum
> P�edm�t: Odchyt tlacitek Minimalizovat/Maximalizovat
>
> Zdravim,
> Jak lze jednoduse odchytit stisk tlacitek
Minimalizovat/Maximalizovat/Obnovit/Zavrit, ktere jsou na Form vpravo
nahore. Potrebuji vyhodnotit tento stisk jeste pred vlastnim provedenim
akce Formulare.
>
> Diky
> Pavel ZIDEK
>
> Pekny den (rano, vecer i noc) preje
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
> http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> <<Soubor: ATT00002.html>> AdoExpress vs Adonis
[*] Zak Robert <nrsys(zv)psn.sk> - 7.3.2000 11:30:03
Dobry den,
Omluvam sa uz vopred, viem ze podobne diskusie uz tu prebehli. Chcem sa
ale spytat, ideme od zaciatku stavat novy system (uz nie nad BDE) a neradi
by sme spravili hned na uvod chybu...
Co je lepsie pouzit ADOExpress alebo ADONIS? Ado Express mam pomerne
odskusany, Adonis som nikdy nevidel. Aky je medzi nimi rozdiel? Ma jeden
voci druhemu nejake zasadne vyhody ci nevyhody? ADOExpress dodava priamo
Inprise a ak som to spravne pochopil, Adonis je produkt tretej strany... Aka
je jeho podpora do buducnosti s novymi verziami Delphi, prip. s
vyskytujucimi sa chybami? Ak Adonis, kde sa da Adonis zohnat, predpokladam
ze to nie je free. Distribuuje to niekto na Slovensku?
Dakujem
Robo
BDE - detekce kompatibility
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 7.3.2000 11:38:23
Haj hou!
Bohuzel BDE je mapovano staticky, takze s tim asi nic moc nenadelas
( Jedina pomoc je poradne README.TXT
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: <azeleny(zv)csas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 07, 2000 8:50 AM
Subject: BDE - detekce kompatibility
> DDV,
> mam problem (co jineho), muj programek napsany v D5 (s pouzitim BDE z D5)
mi
> krasne chodi na mem pc, ale kdyz jej zkusim pusit na PC, kde je BDE jeste
> verze sirene s PX 7, tak se hned po spisteni napise Application Error a
vita
> mne DrWatson. Pritom se jeste nepripojuji k databazi, pouze zjistuji z
> session seznam aliasu.
>
> Potreboval bych vedet, jak zjistim verzi (nebo lepe kompatibilitu) BDE na
> pocitaci, abych mohl pripadne napsat nejaky dialog a _LEGALNE_ ukoncit
> program (lepe jej samozrejme sputit).
>
> Jeste jsem nezousel API fce BDE, ale nevim, zda by nedoslo uz pri jejich
> volani k chybe / ktere si muzu dovolit volat a ktere nikoliv.
>
> Jakykoliv napad vitan.
>
> Diky a.
>
> ----------------------------------------------------------------------
> Ale� Zelen�
> �esk� spo�itela a.s
> Na Per�t�n� 1
> 113 98 Praha 1
> Email: azeleny(zv)csas(tec)cz
> ----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.
>Adonis - nastaveni 2
[*] Erik Salaj <winsoft(zv)napri.sk> - 7.3.2000 12:13:18
> 1) Je-li CursorLocation = clClient, tak se CacheSize nevyuziva,
> protoze je k nicemu, nebo i tady ma vyznam? Pochopil jsem to
> tak, ze se hlavne pouziva pri clServer.
Neviem, v dokumentacii som nenasiel taku informaciu. Pre clClient
to asi vyznam nema.
> 2) Uz jsem to mozna nejak polozil v nekterem z predchozich mailu,
> ale dam tu otazku konkretne:
> Chci dosahnout toho, aby vsechna data, ktera nejaky select
> vybere, byla dotazena na klienta, s temito daty aby bylo mozne
> pracovat (zejmena Locate apod.) a pritom nebylo udrzovane spojeni
> na SQL server, resp. aby jiz server nebyl nijak zatezovan (to proto,
> ze uvazuji o pouzivani MSDE a pocet uzivatelu bude okolo 20,
> pricemz MSDE je optimalizovano pro 5 uzivatelu). Jak toho tedy v
> Adonisu konkretne dosahnout?
1. ADODataSet.CursorLocation := clUseClient
zabezpeci pouzitie clientskeho kurzora
2. ADODataSet.LockType := ltBatchOptimistic
umozni davkove updaty
Zdielanie db pripojeni zabezpecuje ADO automaticky,
ale je mozne sa odpojit pomocou prikazu:
ADODataSet.DatabaseConnection := ''
resp.
ADODataSet.Database := nil;
> 3) Adonis, komponenta TADODatabase, property
> DatabaseConnect, zalozka All. Tam je nevyplnena Network Library.
> Jaka se tedy pouzije? Chci-li pouzit TCP/IP nebo neco, k cemu
> neni potreba konto v NT, kde je SQL server (tj. ne Named pipes),
> jak ji nastavit?
Network Library: indicates the name of the network library (DLL) used to
communicate
with the SQL Server. The name should not include the path or the .dll file
name extension.
The default is provided by the SQL Server client configuration.
Erik Salaj
ComboBox a html
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 7.3.2000 12:27:08
Ahoj,
programem v delphi generuju html stranky kde mam neco jako:
.
.
<td width="210"><select name="D1" size="1">
<option value="-1">V�ichni</option>
<option value="1050">Nov�k Ji��</option>
<option value="40186">Pavelka Ji��</option>
<option value="40187">�ern� Petr</option>
.
.
atd.
coz me pri prohlizeni v IE vytvori stranku s ComboBoxem se seznamem jmen.
Pokud na teto strance zmacknu napr. klavesu N obsah ComboBoxu se prenastavi
na prvni jmeno zacinajici na N pokud ale zmacknu napr. � (C s hacem) nic se
nestane. Jak tu stranku napsat aby ComboBox reagoval i na znaky s hackama a
carkama ?
Dik
M.BDE - detekce kompatibility
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 7.3.2000 12:38:14
v helpu k BDE je tohle:
Get BDE system version information. This function can return the SYSVersion
structure or clear and add the information to the SysVerList TStringList. If
nil is passed in, only the SYSVersion structure is returned. This example
uses the following input:
Ver := fDbiGetSysVersion(MyList);
The function is:
function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;
var
Month, Day, iHour, iMin, iSec: Word;
Year: SmallInt;
begin
Check(DbiGetSysVersion(Result));
if (SysVerList <> nil) then begin
with SysVerList do begin
Clear;
Add(Format('ENGINE VERSION=%d', [Result.iVersion]));
Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel]));
Check(DbiDateDecode(Result.dateVer, Month, Day, Year));
Add(Format('VERSION DATE=%s', [DateToStr(EncodeDate(Year, Month,
Day))]));
Check(DbiTimeDecode(Result.timeVer, iHour, iMin, iSec));
Add(Format('VERSION TIME=%s', [TimeToStr(EncodeTime(iHour, iMin,
Sec div 1000, iSec div 100))]));
end;
end;
end;
M.
----- Original Message -----
From: <azeleny(zv)csas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 07, 2000 8:50 AM
Subject: BDE - detekce kompatibility
.
.
Potreboval bych vedet, jak zjistim verzi (nebo lepe kompatibilitu) BDE na
pocitaci, abych mohl pripadne napsat nejaky dialog a _LEGALNE_ ukoncit
program (lepe jej samozrejme sputit).
.
.Jak zjistit, zda jde o notebook?
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 7.3.2000 13:04:56
Zdravim a mam problem.
Potrebujeme zjistit, ze stroj, na ktery se bude instalovat nas SW je notebook.
Da se to nejak neovlivnitelne zjistit?
Diky za pomoc.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================pristup k SQL serveru cez RAS
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 7.3.2000 13:26:02
Zdravim,
myslim si ze Subject hovori o vsetkom. Vedel by ma niekto nakopnut, ako
pripojit aplikaciu k SQL serveru cez RAS.
W95, D3, Sybase SQL Anywhere 5.0 na Novell Netware 4.2
DIk, Miso
ps: pripada mi to ako SCI-FI
BDE - detekce kompatibility
[*] azeleny(zv)csas(tec)cz - 7.3.2000 13:37:22
Uff, to jsem prehlidl!
_VELMI_ dekuji, nebot apliakce obsahujici jen tuto fci mi funguje i na BDE
3.0 coz je pro mne celkem zachrana, ted muzu dohledat, kde je problem s tou
moji hroutici aplikaci.
Jen poznamka, k predchozim reakcim:
(1)Pokud se BDE linkuje staticky, tak si asi nepomohu, protoze prijdu na to,
ze v te me app je unita, ktera zpusobi tu chybu (podotykam, ze ty dva PC se
lisi jen tim, ze ja mam instalovane Delphi), ale muzu poustet nejakou
tetsovaci utilitku, coz by mi asi stacilo.
(2)Kdyby bylo mozne zabalit k aplikaci installshieldem BDE, tak bych to
udelal, ale ja musim brat ohled na PX7 aplikaci, ktera je vyrobcem
specifikovana na stare BDE a zmenou bych prisel o zaruku, jakkoliv bych
tvrdil, ze pripadny problem tim byt proste nemuze, protoze novejsi verze
jsou zpetne komatibilni... pouzit 5kove BDE by se mi libilo.
Diky vsem za pomoc!!!
----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.mailovani z Qreportu 2.0
[*] Filip Kinsky <delphi007(zv)angelfire(tec)com> - 07.3.2000 04:55:32 -0800
Zdar!
Nevite cirou nahodou, jak bych mohl posilat sestavu vygenerovanou QR emailem?? Potreboval bych to ale v nejake normalni forme, treba RTF nebo neco na ten zpusob, potrebuju totiz posilat i obrazky.
---
Filip Kinsky, student, amateur programmer :-))
xkinf01(zv)vse(tec)cz
Angelfire for your free web-based e-mail. http://www.angelfire.com
Zmeny na Screenu
[*] bures <bures(zv)ssakhk(tec)cz> - 7.3.2000 14:11:35
Ahoj mam takovy problemek v jedne aplikaci ukaladam scereen do TBitmap. Ale tento zpusob je velmi pomaly.
A proto se ptam zdali neexistuji nejake WinApi funkce ktere ukazuji jen na tu cast screenu ktera byla prave prekreslena ??20
Predem dekuji za odpoved Vlada
TService vs TDatabase
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 07.3.2000 14:36:32
cav,
robim jednoduchy program typu winnt service, ktory kazdy casovy interval (cez
ttimer) vykona nejaku akciu a jej vysledok zapise do databazy. problem je v tom,
ze vsetko prebehne v poriadku (kontrolne vypisy do suboru su v poriadku) az po
tdatabase.open - program nezahlasi chybu, ale ani sa nepripoji na databazu a
dalej v kode nepokracuje. nemate niekto nejaky napad preco?
delphi 5 + sp + winnt4 +sp6 + interbase 5.6
vdaka
--
mailto:lubos(zv)iname.com
http://www.geocities.com/~dusanic