Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
1 instance programu...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.2.1999 09:12:27
ahoj
existuje nekolik zpusobu, jak zajistit beh jedne instance aplikace...
ale nevim, jakym zpusobem predat bezici aplikaci parametry - napr. seznam
souboru
dekuji za pripadne odpovedi
zdenek
Windows NT a hardwarovy klic
[*] David Kriz <david.kriz(zv)ccv(tec)cz> - 18.2.1999 09:44:24
Ahoj vsichni,
potreboval bych vedet, jestli je pravda, ze pod Windows NT nelze
provozovat aplikace chranene harwarovym klicem.Re[3]: Cestina do delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.1999 09:50:46
Puvodni zprava, kterou napsal Zbysek Hlinka dne 18 Feb 99,:
> Spust si resxplor a podivej se, jak jsou ulozeny v resources stringy a jak
> ty TurboPoweracke lokalizacni hruzy. Pak se podivej, jak jsou ktere texty
> volane. Beru to, ze je to jaks taks prijatelne reseni pro D1 a D2, ale uz
> nevyhovujici pro D3 a vyse.
Ja to vim, jak je to delane. V Delphi 1/2 totiz neni jina moznost,
tam je to asi nutnost. Pravda je, ze pro Delphi 3/4 je mnohem
lepsi reseni resourcestrings. Jenze oni chteji mit stejny kod
pro vsechny Delphi. Uz me parkrat napadlo, ze by to slo
predelat...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Windows NT a hardwarovy klic
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 18.2.1999 09:56:40
David Kriz wrote:
> Ahoj vsichni,
>
> potreboval bych vedet, jestli je pravda, ze pod Windows NT nelze
> provozovat aplikace chranene harwarovym klicem.
nie je
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
Resource DLL wizard
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.1999 09:57:07
Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, Bonne dne 18 Feb 99,:
> Bud v klidu, uz jsem psal primo Zbyskovi - ja mam 4.02 Profi a take ho tam
> nevidim. Posilal jsem mu screenshot - proto jsem to neposlal do
> konference.
Ja mam take D4.02 Professional a kdyz dam File - New, tak hned
na listu New vidim: Resource DLL Wizard
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Windows NT a hardwarovy klic
[*] Sotona Ond�ej <sotona(zv)pce.pvt(tec)cz> - 18.2.1999 10:04:53
Pouz�vame System En. od LBMS a museli jsme doinstalovat speci�ln�
ovlada� pro NT. Po instalaci ovlada�e v�e chod� bez probl�m�.
Ond�ej Sotona - Ondrej.Sotona(zv)pvt(tec)cz
PVT a.s., OZ Pardubice, Pernerova 444, 530 02 Pardubice
tel. 040/6048 222
-----P�vodn� zpr�va-----
Od: David Kriz [mailto:david.kriz(zv)ccv(tec)cz]
Odesl�no: 18. �nora 1999 9:44
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Windows NT a hardwarovy klic
Ahoj vsichni,
potreboval bych vedet, jestli je pravda, ze pod Windows NT nelze
provozovat aplikace chranene harwarovym klicem.Resource DLL wizard
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.2.1999 10:08:28
> Ja mam take D4.02 Professional a kdyz dam File - New, tak hned
> na listu New vidim: Resource DLL Wizard
No a ve STANDARD verzi to neni?Nemuzu odpovedet odesilateli?
[*] junek <junek(zv)hrk.pvtnet(tec)cz> - 18.2.1999 10:08:31
Ahoj
omlouvam se za otazku mimo Delphi.
Nekdy se mi stane ze v MS Exchange nemohu odpovedet odesilateli - pokud nemam zobrazenou zpravu tak mi to napise "Polozku nelze nalezt. Akci nebylo mozno dokoncit." a pokud mam zpravu zobrazenu tak mi to skonci na "Program provedl neplatnou operaci ...".
Zkousel jsem i outlook a tam jsou tlacitka pro odpoved, predani,.. sediva, takze tam akce vubec nejde spustit.
Zajimave je, ze nekdy to funguje, ale zatim nevim proc jednou jo a petkrat ne ?
V cem by mohl byt problem? Mam neco blbe nastavenyho nebo mi odchazeji W95 do vecnych lovist?
Dik za odpoved Pavel
PS: Byla tu v konferenci rec o tom, ze nekomu pri behu D4 na chvili ztuhne PC a po case se rozbehne. Me to dela na jednom PC taky, ale nehledal bych problem v D4 (ty tam nemam). Koncem roku jsem porizoval novy disk (Seagate 6GB) a vse jsem preinstalovaval. Mam dojem, ze mi to zacalo delat po instalaci MSIE4.01 (asi).Jinak tam Mam W95 OSR2, D1 a D3. Puvodni konfigurace byla disk WD 3 GB, W95 OSR2 a MSIE 3.12.Windows NT a hardwarovy klic
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 18.2.1999 10:11:02
Jsem stastnym majitelem Sentinel developer's kit, a tam je receno,
ze to jde, jenom musis nainstalovat specialni driver.
Radim
-----P�vodn� zpr�va-----
Od: David Kriz <david.kriz(zv)ccv(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 9:52
P�edm�t: Windows NT a hardwarovy klic
>Ahoj vsichni,
>
>potreboval bych vedet, jestli je pravda, ze pod Windows NT nelze
>provozovat aplikace chranene harwarovym klicem.Resource DLL wizard
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.1999 10:13:41
Puvodni zprava, kterou napsal Krayzel Libor dne 18 Feb 99,:
> > Ja mam take D4.02 Professional a kdyz dam File - New, tak hned
> > na listu New vidim: Resource DLL Wizard
>
> No a ve STANDARD verzi to neni?
To ja nevim, pac mam jen Professional, musis se zeptat nejakeho
standardaka...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Ako na multiuser BDE?
[*] junek <junek(zv)hrk.pvtnet(tec)cz> - 18.2.1999 10:15:40
Ahoj,
nasel jsem docela popisny clanek na www.acsi.bc.ca - Installing BDE Application & Network Installation of Delphi.
Pavel
[Radoslav Jalc]
Uz viackrat som sa pokusal zistit nieco blizsie o BDE nastaveni, no skoro nikde som neuspel.
Nakoniec na Inprise webe som nasiel nejake SPEEDTIPS, ktore neriesia problemy v rychlosti BDE a DB tabuliek v multiuser sieti peer-to-peer, ale iba SQL atd.
...Barva radku DBGridu
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 18.2.1999 10:25:41
> chtel jsem nastavit ruzne dve barvy pro radky dbgridu dle hodnoty z
> tabulky.Nevite, co delam spatne?
> Fce je prevzana z Delphi Question and Answer Index.
> ...
> if Length(Table1.FieldValues['VYRIZEN'])=0 then
Spatne delas to, ze se ptas na AKTUALNI ZAZNAM z Table1.
(Ta procedura se vola pro vsechny zaznamy, ktere jsou videt
v gridu a potrebujes se rozhodovat podle hodnot toho zaznamu,
ktery prave kreslis).
Tom
QuickReport a Dataset
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 18.2.1999 10:35:01
Doporucil bych nil;
Date sent: Wed, 17 Feb 1999 16:44:59 +0100 (MET)
To: delphi-l(zv)fwd(tec)cz
From: brcko(zv)pobox.sk (Ing. Brcko)
Subject: QuickReport a Dataset
Send reply to: delphi-l(zv)fwd(tec)cz
> Vie mi niekto pomoct ako v priebehu programu nastavit property dataset pre QuickReport na prazdnu hodnotu ?
>
> Vdaka
>
> ____________________________________
> P. S. V. P. U.
> http://www.pobox.sk/
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4555 1269
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Nemuzu odpovedet odesilateli?
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.2.1999 10:35:43
Viz nize.
> -----P�vodn� zpr�va-----
> Od: junek [SMTP:junek(zv)hrk.pvtnet(tec)cz]
> Odesl�no: 18. �nora 1999 10:09
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Nemuzu odpovedet odesilateli?
>
> Ahoj
>
> omlouvam se za otazku mimo Delphi.
>
> Nekdy se mi stane ze v MS Exchange nemohu odpovedet odesilateli -
> pokud nemam zobrazenou zpravu tak mi to napise "Polozku nelze nalezt.
> Akci nebylo mozno dokoncit." a pokud mam zpravu zobrazenu tak mi to
> skonci na "Program provedl neplatnou operaci ...".
>
[Petr Brant] Tak tohle znam _velmi_ dobre, me to delalo taky.
Tak jsem nainstaloval Outlook a uz to chodilo. Takze zkusil bych
reinstalovat MS Exchange.
> Zkousel jsem i outlook a tam jsou tlacitka pro odpoved, predani,..
> sediva, takze tam akce vubec nejde spustit.
>
> Zajimave je, ze nekdy to funguje, ale zatim nevim proc jednou jo a
> petkrat ne ? [Petr Brant] ..tak me to neslo NIKDY :-)))
>
> V cem by mohl byt problem? Mam neco blbe nastavenyho nebo mi odchazeji
> W95 do vecnych lovist? [Petr Brant] Tezko rict, ale je jednodussi
> reinstalovat Exchange nez cely wokna.
>
> Dik za odpoved Pavel
>
>
> PS: Byla tu v konferenci rec o tom, ze nekomu pri behu D4 na chvili
> ztuhne PC a po case se rozbehne. Me to dela na jednom PC taky, ale
> nehledal bych problem v D4 (ty tam nemam). Koncem roku jsem porizoval
> novy disk (Seagate 6GB) a vse jsem preinstalovaval. Mam dojem, ze mi
> to zacalo delat po instalaci MSIE4.01 (asi).Jinak tam Mam W95 OSR2, D1
> a D3. Puvodni konfigurace byla disk WD 3 GB, W95 OSR2 a MSIE 3.12.
[Petr Brant] ..mam taky 6 GB Seagate a dela mi to to same (na
W95 OSR 2/32 RAM bez MSIE i na W98/64 RAM s MSIE 4.01). Disk se na
chvilku zastavi a vsechno stoji. Za chvilku se zase rozbehne a vsechno
je OK. Kdyz jsem se ptal dodavatele, ktery je muj dobry znamy (a asi by
mi nelhal), rekl mi, ze on ma tentyz disk a dela mu to taky, takze je to
patrne cosi hardwaroveho.
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
1 instance programu...
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.2.1999 10:37:51
Pokud aplikace UZ BEZI, neni to tak jednoduche. Napada mne pouzit
mechanismus SendMessage, kde budes predavat pointer na nejaky ten text
apod., ovsem aplikace uz musi na takovy message umet reagovat.
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
> Odesl�no: 18. �nora 1999 9:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: 1 instance programu...
>
> ahoj
>
> existuje nekolik zpusobu, jak zajistit beh jedne instance aplikace...
> ale nevim, jakym zpusobem predat bezici aplikaci parametry - napr.
> seznam
> souboru
>
> dekuji za pripadne odpovedi
>
> zdenek
Ako na multiuser BDE?
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 18.2.1999 10:48:37
-----P�vodn� zpr�va-----
Od: junek <junek(zv)hrk.pvtnet(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 18. febru�r 1999 9:58
P�edm�t: Re: Ako na multiuser BDE?>Ahoj,
>
>nasel jsem docela popisny clanek na www.acsi.bc.ca - Installing BDE
Application & Network Installation of Delphi.
>
>Pavel
[Radoslav Jalc]
Vdaka za TIP, ale moc som z toho nezmudrel..:-) Je to naposledy updatovane v
Decembri 1997 ;-)
Ale aj tak vdaka ....
Prosim o dalsie napady (SHAREDMEMSIZE -> naco to je?)...atd.
S pozdravom
Radoslav Jalc
Ako na BDE ???
[*] Administrator <Administrator(zv)rosoft.sk> - 18.2.1999 11:14:25
[Administrator]
Martin Fronek prosim ta mozes mi popisat co vsetko a kde sa da nastavit
aby mi BDE slapalo co mozno najefektivnejsie
na lokalnom pocitaci?
Velmi moc dik.
Patrik Tesar
Nemuzu odpovedet odesilateli?
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.2.1999 11:30:00
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> > to zacalo delat po instalaci MSIE4.01 (asi).Jinak tam Mam W95 OSR2,
> D1
> > a D3. Puvodni konfigurace byla disk WD 3 GB, W95 OSR2 a MSIE 3.12.
> [Petr Brant] ..mam taky 6 GB Seagate a dela mi to to same (na
> W95 OSR 2/32 RAM bez MSIE i na W98/64 RAM s MSIE 4.01). Disk se na
> chvilku zastavi a vsechno stoji. Za chvilku se zase rozbehne a vsechno
> je OK. Kdyz jsem se ptal dodavatele, ktery je muj dobry znamy (a asi
> by
> mi nelhal), rekl mi, ze on ma tentyz disk a dela mu to taky, takze je
> to
> patrne cosi hardwaroveho.
[Martin Fron�k] :-))) Asi disk zrovna zvraci. :-)))))Windows NT a hardwarovy klic
[*] Jirka <virt(zv)pepa(tec)cz> - 18.2.1999 11:40:16
Ne.
Beha mi na tom Autocad 13 Profi.
Jirka Virt
email: virt(zv)pepa(tec)cz
-----P�vodn� zpr�va-----
Od: David Kriz <david.kriz(zv)ccv(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 10:32
P�edm�t: Windows NT a hardwarovy klic
>Ahoj vsichni,
>
>potreboval bych vedet, jestli je pravda, ze pod Windows NT nelze
>provozovat aplikace chranene harwarovym klicem.
>!!!!!!!! RE: Kompresia *.exe
[*] IKO <iko(zv)kamarad(tec)cz> - 18.2.1999 11:41:47
Nazdar ludia,
chcem vam povedat nejake poznatky ohladom programu ASPack z
adresy www.alenka.spb.ru/aspack.
Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
Teraz neviem, ci tam ten virus naozaj je (rusi robia dobre virusy...),
alebo je to len nahoda.
IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO
BMP -> ICO
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 18.2.1999 11:45:01
Zdravim,
mate nekdo nejake zkusenosti s prevodem BMP obrazku do ICO. Potreboval bych udelat programek, ktery by z v podstate libovolneho BMP obrazku udelal ikonu (16x16, 32x32). Muzete mi pripadne poradit nejaky zdroj informaci?
Dik,
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
V�ber posledn�ch X
[*] Lubomir Bulej <pallas(zv)kadan(tec)cz> - 18.2.1999 11:45:02 -0100
Hi,
zkus neco jako:
DECLARE c CURSOR for SELECT * FROM transakce ORDER BY datum DESC
FETCH 20 IN C
Nevim jak se to vyrobi primo v paradoxu, SQL server vetsinou dotazuju z PHP.
Lubos
BMP -> ICO
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.2.1999 12:19:31
> mate nekdo nejake zkusenosti s prevodem BMP obrazku do ICO. Potreboval bych udelat programek, ktery by z v podstate libovolneho BMP obrazku udelal ikonu (16x16, 32x32). Muzete mi pripadne poradit nej>
****Encyklopedie Grafickych formatu? Jinak, pokud tu BMP mas
v pozadovane velikosti, pak by mohl stacit Image Editor.
Slavek
> Tomas Skopik
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Problem s NEZADOUCI prodlevou pred Application.ini
[*] Karel Pechanec <ka.pecha(zv)ova.pvtnet(tec)cz> - 18.2.1999 12:30:33
Omlouvam se za porad stejne tema ale upresnim svuj problem:
(nemohu ho nejak uspokojive vysvetlit)
1.) funkce DLLcek volam daleko, daleko po application.Initialize
a po uvodnim dlg.
2.) DLLcka volam a rusim explicitne (dynamicky v kodu) pomoci API
(LoadLibrary(dllname:PChar):THandle, GetProcAddress(hDll:THandle; procName:PChar), FreeLibrary(hDll:THandle))
3.) zadne jine (implicitni) delarace procedur DLLcek nejsou
4.) problem s nezadouci prodlevou se objevuje uz pred Application.Initialize
(zde bych prave potrevoval nejaky kod na alespon zamaskovani)
5.) myslim si (ale presne to nevim) ze za to mohou prave DLLcka, ale kdyz to volam exlicitne tak je to hodne divny.
jeste jeden problem :)
mam Win98 kde mi program bezi normalne. V 95 mi vsak program zamrzne pri
ukonceni volani DLL funkce (neni odpoved). Kod volani a ruseni je pritom spravny, a je pouzit jak v 98 tak 95 . Jesli to neni tim, ze exlicitne volane funkce DLL volam jeste jednu funkci z jineho DLL, ale implicitne)
!!!!!!!! RE: Kompresia *.exe
[*] rdocekal(zv)csas(tec)cz - 18.2.1999 12:53:43
KTERY antivirak?
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P�vodn� zpr�va-----
> Od: IKO [mailto:iko(zv)kamarad(tec)cz]
> Odesl�no: 18. �nora 1999 11:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: !!!!!!!! RE: Kompresia *.exe
>
>
> Nazdar ludia,
>
> chcem vam povedat nejake poznatky ohladom programu ASPack z
> adresy www.alenka.spb.ru/aspack.
> Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
> stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
> to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
> ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
>
> Teraz neviem, ci tam ten virus naozaj je (rusi robia dobre
> virusy...),
> alebo je to len nahoda.
>
> IKO
> ikino(zv)pobox.sk
> http://freeweb.coco(tec)cz/IKO
> Vlozeni okna do OpenDialogu ?
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.2.1999 13:02:54
Ahoj vsichni,
chtel bych, aby se v OpenDialogu krome standardnich prvku objevilo i
okenko "Preview", kde se zobrazi ukazka souboru, na kterem se klikne. Da
se takove okenko nejak do OpenDialogu vlozit nebo si musim takovy
OpenDialog napsat sam?
Diky za vsechny odpovedi.
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
!!!!!!!! RE: Kompresia *.exe
[*] Lubomir Bulej <pallas(zv)kadan(tec)cz> - 18.2.1999 13:03:49 -0100
Hi,
> Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
> stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
> to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
> ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
>
> Teraz neviem, ci tam ten virus naozaj je (rusi robia dobre virusy...),
> alebo je to len nahoda.
Hmm, rekl bych, ze je to plany poplach heuristiky toho AV. Ten treba
analyzoval startup kod ty DLL a zjistil, ze se tam zapisuje casti pameti,
ktera by mela patrit kodu (nekam se to prece musi rozpakovat) ...
Hlavu bych si z toho nedelal a pokud jo, tak vem debug a odtrasuj si
startup kod ty DLL ... Co se tyce viru, vzdycky jsem si myslel, ze viry
delaj vetsinou firmy, co vyrabi antivirovy software :P
Lubos
!!!!!!!! RE: Kompresia *.exe
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.2.1999 13:05:13
Dobry antivirak kontroluje i velikost souboru, dela si CRC check apod., no
a pokud mu pak zmenis velikost *.exe filu tak je docela pochopitelne, ze
se o tu svoji ovecku boji. Ale to je jen jedna z moznosti ;-)
Mac
IKO wrote:
> Nazdar ludia,
>
> chcem vam povedat nejake poznatky ohladom programu ASPack z
> adresy www.alenka.spb.ru/aspack.
> Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
> stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
> to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
> ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.Problem s NEZADOUCI prodlevou pred Application.ini
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.2.1999 13:05:40
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Karel Pechanec [SMTP:ka.pecha(zv)ova.pvtnet(tec)cz]
> Odesl�no: 18. �nora 1999 12:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Problem s NEZADOUCI prodlevou pred
> Application.initialize
>
> Omlouvam se za porad stejne tema ale upresnim svuj problem:
> (nemohu ho nejak uspokojive vysvetlit)
> �
> 1.) funkce DLLcek volam daleko, daleko po application.Initialize
> a po uvodnim dlg.
> 2.) DLLcka volam a rusim explicitne (dynamicky v kodu) pomoci API
> ��� (LoadLibrary(dllname:PChar):THandle, GetProcAddress(hDll:THandle;
> procName:PChar), FreeLibrary(hDll:THandle))
> 3.) zadne jine (implicitni) delarace procedur DLLcek nejsou
> 4.) problem s nezadouci prodlevou se objevuje uz pred
> Application.Initialize
> ��� (zde bych prave potrevoval nejaky kod na alespon zamaskovani)
> 5.) myslim si (ale presne to nevim) ze za to mohou prave DLLcka, ale
> kdyz to volam exlicitne tak je to hodne divny.
[Martin Fron�k] Za to nemohou DLL, to je normalni.
> �
> jeste jeden problem :)
> mam Win98 kde mi program bezi normalne. V 95 mi vsak program zamrzne
> pri
> ukonceni volani DLL funkce (neni odpoved). Kod volani a ruseni je
> pritom spravny, a je pouzit jak v 98 tak 95 . Jesli to neni tim, ze
> exlicitne volane funkce DLL volam jeste jednu funkci z jineho DLL, ale
> implicitne)
>
[Martin Fron�k] Tak to je tim, protoze v inicializacni sekci
DLL nesmis volat dalsi DLL. Taky jsem to hledal.......
> �
> �BMP -> ICO
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 18.2.1999 13:21:12
http://www.geocities.com/Hollywood/2430
Heretic-X
!!!!!!!! RE: Kompresia *.exe
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 18.2.1999 13:23:00
>to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
>ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
ktery antivirovy program? BTW: je to celkem casty jev, ze antivirove viry
povazuji proveditelne soubory s nestadardni exe hlavickou etc za podezrele,
takze nezbyva nic nez to ignorovat... Heretic-X
Windows NT a hardwarovy klic
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 18.2.1999 13:24:19
>Beha mi na tom Autocad 13 Profi.
>
chytre hw klice maji pro Windows NT napsane services, ktere se staraji o
korektni komunikaci. Myslim ze prave podle tohoto lze poznat, ktery klic
pod NT pojede, ci nikoliv.
Heretic-X
!!!!!!!! RE: Kompresia *.exe
[*] BEKE Frantisek <beke(zv)asset.sk> - 18.2.1999 13:24:04
Aku mas verziu toho aspack-u? v starsich verziach sa to tak spravalo...
ak nemas najnovsiu, tak skus si stiahnut...
Feri Beke
> -----Original Message-----
> From: IKO [mailto:iko(zv)kamarad(tec)cz]
> Sent: Thursday, February 18, 1999 11:42 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: !!!!!!!! RE: Kompresia *.exe
>
>
> Nazdar ludia,
>
> chcem vam povedat nejake poznatky ohladom programu ASPack z
> adresy www.alenka.spb.ru/aspack.
> Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
> stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
> to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
> ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
>
> Teraz neviem, ci tam ten virus naozaj je (rusi robia dobre
> virusy...),
> alebo je to len nahoda.
>
> IKO
> ikino(zv)pobox.sk
> http://freeweb.coco(tec)cz/IKO
> dbf
[*] Martin <geoplan(zv)pp.sinet.sk> - 18.2.1999 13:30:21
zdravim,
Vie niekdo o nejakej free alebo trial komponente na nahradu BDE k pripojeniu
na dbf subory ? Da sa pomocou tychto komponent normalne pouzivat napr.
DBGRID, DBEDIT ?
vdaka za kazdu odpoved,
Martin
Setup
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 18.2.1999 13:35:21
Ahojte,
co pouzivate pro ukladani setupu aplikace(nastaveni cest, cislovani,...) ?
Ja jsem nasel TRegistryIniFile,atd. u kterych je napsane, ze jsou
low-level for W95/NT.
�plne malicky prikladek by mi strasne pomohl.
Diky
Petr
p.sadovsky(zv)atlas(tec)cz
BMP -> ICO
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 18.2.1999 13:40:42
> mate nekdo nejake zkusenosti s prevodem BMP obrazku do ICO. Potreboval bych udelat >programek, ktery by z v podstate libovolneho BMP obrazku udelal ikonu (16x16, 32x32). >Muzete mi pripadne poradit nej>
>****Encyklopedie Grafickych formatu? Jinak, pokud tu BMP mas
>v pozadovane velikosti, pak by mohl stacit Image Editor.
Ja prave potrebuju, aby to ICO umel udelat z libovolne velkeho BMP.
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
Vybaleni primo do pameti
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.1999 13:57:25
Mimochodem, kdyz jsme u toho ASPacku, umite nekdo udelat
vybaleni neceho do pameti kodu a spusteni - presne to, co
dela tento program - nekde neco nacte, soupne to do
pameti, spusti a sebe ukonci...?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
dbf
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.2.1999 14:19:07
Nen� probl�m m�t na disku tabulky DBF a p�itupovat na n�.
Va�ek
-----P�vodn� zpr�va-----
Od: Martin [mailto:geoplan(zv)pp.sinet.sk]
Odesl�no: 18. �nora 1999 13:30
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: dbf
zdravim,
Vie niekdo o nejakej free alebo trial komponente na nahradu BDE k pripojeniu
na dbf subory ? Da sa pomocou tychto komponent normalne pouzivat napr.
DBGRID, DBEDIT ?
vdaka za kazdu odpoved,
Martin
BMP -> ICO
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 18.2.1999 14:20:49
Tomas Skopik wrote:
> Ja prave potrebuju, aby to ICO umel udelat z libovolne velkeho BMP.
>
> Tomas Skopik
> ( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
:)) a ako si predstavujes, ze bude pracovat nejaky stretch, ak mas, povedzme, bitmapu 100x100 a ikony 16x16?
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
Winsock - 10055
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.2.1999 14:44:41
DD,
netusi nahodou nekdo jakym zpusobem lze zabranit chybe 10055 (WSAENOBUFS),
kterou system dava najevo, ze ma malo bufferu a vubec neotevre socket nebo
neprovede connect()?
MS KB nerika nic, krome nekolika radku popisu chyby, ktere jako obvykle
vlastne nic nevysvetluji.
Podle mych zkusenosti se to objevuje snad jen na Win9x platforme, takze
teoreticky by to mohl byt i zakutany problem ve starsi verzi Winsocku
Zdravi
D. Toman
dbf
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 18.2.1999 15:08:55
vselijaky nahrady BDE jsou tady:
http://www.kylecordes.com/bag/listbycategory.html
M.
-----P�vodn� zpr�va-----
Od: Martin <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 14:04
P�edm�t: dbf
>zdravim,
>
>Vie niekdo o nejakej free alebo trial komponente na nahradu BDE k
pripojeniu
>na dbf subory ? Da sa pomocou tychto komponent normalne pouzivat napr.
>DBGRID, DBEDIT ?
>
>vdaka za kazdu odpoved,
>
>Martin
>
>
SQL
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 18.2.1999 16:14:56
Zatim jsem delal na Informixu, ale potrebuju nyni udelat jeden program
v Delphi 1 nad Paradoxem a mam jeden problem.
Nemuzu provest Sql prikaz na vymazani radku:
DELETE FROM [table1] WHERE column IN
(SELECT column1 FROM [table2])
Toto na Informixu chodi, ale na paradoxu mi zahlasi, ze
nejsou podporovany vnorene prikazy. Da se to nejak jinak?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+Offtopic - spolecny adresar pro mail adresy
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.2.1999 16:36:45
Ahoj, sorry za off-topic.
Potreboval bych u zakaznika (sit s NT 4.0 server + W95 a NT 4.0 WKS)
nastavit nejak spolecny (sdileny) adresar s kontakty (maily). Pouziva se
tam dial-up pripojeni s WinRoute jako lokalnim mail serverem. Nevite
nekdo jak na to. Nejlepe s Outlook Expressem jako mail klientem (ale
neni nutno).
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
1 instance programu...
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 18.2.1999 17:09:41
jestli mas Delphi 3 tak se podivej do Delphi 3\Demos\Ipcdemos
M.
-----P�vodn� zpr�va-----
Od: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 9:29
P�edm�t: 1 instance programu...>ahoj
>
>existuje nekolik zpusobu, jak zajistit beh jedne instance aplikace...
>ale nevim, jakym zpusobem predat bezici aplikaci parametry - napr. seznam
>souboru
>
>dekuji za pripadne odpovedi
>
>zdenek
>
V�ber posledn�ch X z�znamov v SQL
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 18.2.1999 17:37:47
> Odes�latel: Branislav Danko <danko(zv)basl.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: V�ber posledn�ch X z�znamov v SQL
> Datum: 18. listopadu 1998 9:59
>
> Nazdar,
> m�m tak�to probl�m: Existuje tabu�ka s transakciami (obsahuje d�tum, �as, ��slo karty ...), index neexistuje ?iadny autoincrement. Potreboval by som vybra? posledn�ch 20 transakci�. Je to mo?n� zrealizova? nejak�m SQL pr�kazom, aby
> som to nemusel prech�dza? v cykle a nap��a? in� tabu�ku. Tabu�ka je pod Paradoxom, teda je mo?n� pou?i? len SQL ?tandard. Neexistuje tu nie�o podobn� ako ROWNUM, ROWIN v Oracle?
==================================
Jan Sebelik:
Obavam se, ze jsou-li nedostatky v datovem modelu (faze analyzy), lze to pak v aplikaci resit budto tezko nebo vubec ne.
Proc tam neni identifikacni atribut - primarni klic? Byl pozadavek na poslednich 20 transakci uveden v "system requirements"? Proc se to nejak neodrazilo ve strukture tabulky?
Pracujeme-li s relacnimi databazemi, smirme se s tim, ze relace je podmnozinou kartezskeho soucinu - v takove podmnozine se tezko budeme vyporadavat s pozadavkem na "poslednich 20 prvku".
Ted k veci:
Neni mi znamo, ze by bylo jine rozumne reseni, nez otevrit TQuery, napr.
SELECT * FROM transakce ORDER BY datum DESC
a pak nejak zaridit (TDBGrid?, kopie do TStringGrid?) aby uzivatel pracoval pouze s prvnimi dvaceti zaznamy.
(Avsak ani toto za moc rozumne povazovat nelze.)
Jan Sebelik
==============================
= Skolici stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= http://www.haes(tec)cz
= tel. 0434 692 931
==============================Class
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.2.1999 17:48:04
Jezek Petr, Ing. (DELVINA) wrote:
> To sice vytvori formu, ale ja bycg to aj tak chtel delat
> ve vlastni funkci (jeste tam budou nejake nastavovacky),
> ale ten parametr v me funkci se asi nebude dat nejak
> zobecnit, co?
> Mam TfrmAktiva, TFrmPasiva, ...
> BTW: MDIchild form se neda zobrazit ShowModal?
>
>
> > -----Original Message-----
> > From: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> >
> > Podivej se na TApplication.CreateForm. To by zrejme melo byt ono.
Ja myslim, ze ti nic nebrani od tohoto vzoru odvodit svou funkci. Ja
to tak delam bezne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Re[3]: Cestina do delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.2.1999 17:48:04
Petr Zahradnik wrote:
> > Spust si resxplor a podivej se, jak jsou ulozeny v resources stringy a
> > jak ty TurboPoweracke lokalizacni hruzy. Pak se podivej, jak jsou ktere
> > texty volane. Beru to, ze je to jaks taks prijatelne reseni pro D1 a D2,
> > ale uz nevyhovujici pro D3 a vyse.
>
> Ja to vim, jak je to delane. V Delphi 1/2 totiz neni jina moznost,
> tam je to asi nutnost. Pravda je, ze pro Delphi 3/4 je mnohem
> lepsi reseni resourcestrings. Jenze oni chteji mit stejny kod
> pro vsechny Delphi. Uz me parkrat napadlo, ze by to slo
> predelat...
Ja jim kvuli tomu dokonce psal. Marne, pouze se vykrucovali...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Re[3]: Cestina do delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.1999 18:15:32
Puvodni zprava, kterou napsal Zbysek Hlinka dne 18 Feb 99,:
> > Ja to vim, jak je to delane. V Delphi 1/2 totiz neni jina moznost,
> > tam je to asi nutnost. Pravda je, ze pro Delphi 3/4 je mnohem
> > lepsi reseni resourcestrings. Jenze oni chteji mit stejny kod
> > pro vsechny Delphi. Uz me parkrat napadlo, ze by to slo
> > predelat...
>
> Ja jim kvuli tomu dokonce psal. Marne, pouze se vykrucovali...
Ja se jim nedivim, vzdyt to maji jednodussi, kdyz je cely kod
uplne spolecny pro vsechno. V jejich pripade to chapu, chteji
byt kompatibilni s D1/2. Ale na druhou stranu uz by se mohlo
pomalu na D1/2 zapomenout... Mimochodem sis take vsiml, ze ted
odstranili centralni SRMGR a davaji do kazdeho produktu svuj
zvlastni, nevim proc. Mohl bych se na to klidne podivat a asi
bych mel byt schopen udelat programek, ktery by to modifikoval
na praci s resourcestring...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
BMP -> ICO
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 18.2.1999 19:01:32
>> Ja prave potrebuju, aby to ICO umel udelat z libovolne velkeho BMP.
>
>:)) a ako si predstavujes, ze bude pracovat nejaky stretch, ak mas, povedzme, bitmapu 100x100 a ikony 16x16?
No, to se tady prave pokousim zjistit.:))
Bye,
Tomas
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )TBatchMove kontra autoinkrement pole
[*] Pavol Griga <paly(zv)sct.sk> - 18.2.1999 19:59:42
Nevie mi niekto poradit ako prinutit TBatchMove, aby lokalnu
tabulku v paradoxe, ktora ma autoinkrementalny primarny kluc, prehodil
na MS-SQL server, tak aby tam bola tiez autoinkremntalnym primarnym
klucom (tzv. IDENTITY a PRIMARY KEY).
Alebo nevie mi niekto povedat nejakej free utilite prip. komponente
ktora to dokaze (pozn. DataPump to tiez nedokaze).
vopred vdaka za kazdu radu
Pavol Griga
V�ber posledn�ch X
[*] Lubomir Bulej <pallas(zv)kadan(tec)cz> - 18.2.1999 20:01:48 -0100
Hi,
> Jan Sebelik:
> Obavam se, ze jsou-li nedostatky v datovem modelu (faze analyzy), lze to pak v aplikaci resit budto tezko nebo vubec ne.
> Proc tam neni identifikacni atribut - primarni klic? Byl pozadavek na poslednich 20 transakci uveden v "system requirements"?
> Proc se to nejak neodrazilo ve strukture tabulky?
Jak by se takova struktura navrhovala ? Me by to docela zajimalo, protoze
jak jsi uvedl:
> Pracujeme-li s relacnimi databazemi, smirme se s tim, ze relace je podmnozinou kartezskeho soucinu - v
> takove podmnozine se tezko budeme vyporadavat s pozadavkem na "poslednich 20 prvku".
Takze uz z principielne se tohle neda resit v datovem modelu, rozhodne ne v
relacnim. Resp. by me zajimalo
jestli se pletu a v cem :) Mnou navrhovane reseni bylo obdobne - vyrobit
kursor na ten select a z nej pak
fetchnout prvnich 20 polozek. Hmm, myslel jsem si, ze kurzory jsou v SQL
_standardni_ - ony nejsou ?
Lubos
SQL
[*] Lubomir Bulej <pallas(zv)kadan(tec)cz> - 18.2.1999 20:21:35 -0100
Hi,
> v Delphi 1 nad Paradoxem a mam jeden problem.
> Nemuzu provest Sql prikaz na vymazani radku:
> DELETE FROM [table1] WHERE column IN
> (SELECT column1 FROM [table2])
Hmm, nenapada me nic jinyho, nez tupe ten SELECT nekam nasosat a pak brat
ty polozky jednu po druhe a s kazdou provest DELETE. Ale to te asi napadlo
taky :)
Lubos
Povoleni pohybu okna
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.2.1999 20:49:34
Preji vsem pekneho dne,
prichazim s opacnym problemem. Zakazal jsem pohyb okna:
DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE, MF_BYCOMMAND);
a ted bych rad, aby jsem ho zase ucinil pohybuschopnym. Jaka je
inverzni funkce?
Dekuji za kazde rady.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Vlozeni okna do OpenDialogu ?
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 18.2.1999 23:03:13
Ahoj,
jestli mas na mysli neco jako to dela napr
NC tak bych rekl, ze si to musis napsat sam.
Mozna existuje neco free, ale nevim o tom.
Pro graficke formaty muzes pouzit TOpenPictureDialog,
ale to asi vis:-).
S pozdravem
================================
> Pavel Malinsky; spiderland(zv)usa.net <
>==============================<
> ...The Truth Is Out There... <
================================
GSM: 0602 652 203
-----P�vodn� zpr�va-----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 15:21
P�edm�t: Vlozeni okna do OpenDialogu ?>Ahoj vsichni,
>
>chtel bych, aby se v OpenDialogu krome standardnich prvku objevilo i
>okenko "Preview", kde se zobrazi ukazka souboru, na kterem se klikne. Da
>se takove okenko nejak do OpenDialogu vlozit nebo si musim takovy
>OpenDialog napsat sam?
>
>Diky za vsechny odpovedi.
>
>********************************************************
>Petr Brant [p.brant(zv)samo(tec)cz]
>
>programator v MSVC++, obcas Delphi nebo Visual Basic
>********************************************************
>
>Vlozeni okna do OpenDialogu ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.2.1999 23:15:47
Petr Brant wrote:
>
> Ahoj vsichni,
>
> chtel bych, aby se v OpenDialogu krome standardnich prvku objevilo i
> okenko "Preview", kde se zobrazi ukazka souboru, na kterem se klikne. Da
> se takove okenko nejak do OpenDialogu vlozit nebo si musim takovy
> OpenDialog napsat sam?
Ahoj,
Neuvadis jakou mas verzi Delphi, ale v D4 (a tusim i D3) mas komponentu
TOpenPictureDialog kde je to udelane, takze si to podle toho muzes potom
napsat.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
1 instance programu...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.2.1999 23:22:16
"Fryz, Zdenek" wrote:
>
> ahoj
>
> existuje nekolik zpusobu, jak zajistit beh jedne instance aplikace...
> ale nevim, jakym zpusobem predat bezici aplikaci parametry - napr. seznam
> souboru
Ahoj,
Moznosti je nekolik, jde o to jestli tvoje aplikace ma asociovany nejaky typ
souboru ktery pak otvira a ty chces pri dalsim prikazu "Otevrit" predat vybrany
soubor(y) do jiz bezici instance tve aplikace, nebo jestli chces jen komunikaci
mezi aplikacemi.
V tom prvnim pripade je nejlepsi to resit pres DDE, je podporovano primo v
asociacich souboru a zaroven ti nebude spoustet dalsi instanci aplikace. Mam
na toho predavani nazvu souboru a prikazu udelanou komponentu, kdyztak ti ji
poslu.
V druhem pripade muzes pouzit bud DDE, predavani pomoci zprav, nebo pametove
mapovane soubory.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Povoleni pohybu okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.2.1999 23:32:36
Slavek Rydval wrote:
>
> Preji vsem pekneho dne,
>
> prichazim s opacnym problemem. Zakazal jsem pohyb okna:
>
> DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE, MF_BYCOMMAND);
>
> a ted bych rad, aby jsem ho zase ucinil pohybuschopnym. Jaka je
> inverzni funkce?
Ahoj,
Systemove menu okna vratis do puvodniho stavu takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
GetSystemMenu(Handle, True);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
1 instance programu...
[*] Jirka <virt(zv)pepa(tec)cz> - 19.2.1999 07:26:08
Ahoj,
zkus tohle:
{---}
var
hwnd:HWND;
begin
Application.Initialize;
hwnd:= FindWindow('Tform1','Form1');{hledej okno s nazvem Form1}
if hwnd <> 0 then {jestlize okno
existuje}
begin
SetForegroundWindow(hwnd); {nastav puvodni okno Form1}
Application.Terminate; {a ukonci tuto aplikaci}
end;
{jestlize okno neni nalezeno, pokracuj v
provadeni teto aplikace}
Application.createForm(Tform1,Form1);
Application.Run;
end.
{---}
Zapis kodu je do source.
Cau
Jirka Virt
email: virt(zv)pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 17:41
P�edm�t: Re: 1 instance programu...
jestli mas Delphi 3 tak se podivej do Delphi 3\Demos\Ipcdemos
M.
-----P�vodn� zpr�va-----
Od: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 9:29
P�edm�t: 1 instance programu...>ahoj
>
>existuje nekolik zpusobu, jak zajistit beh jedne instance aplikace...
>ale nevim, jakym zpusobem predat bezici aplikaci parametry - napr. seznam
>souboru
>
>dekuji za pripadne odpovedi
>
>zdenek
>BMP -> ICO
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 19.2.1999 07:37:51
...nasledujici fce z bitmapy 'udela' ikonu (vraci handle ikony), samozrejme
bez validaci a osetreni vyjimek ....
function BmpToIco(B: TBitmap):HIcon;
var
bTmp: TBitmap;
IconInfo: TIconInfo;
begin
bTmp:=TBitmap.Create;
bTmp.Height:=32;
bTmp.Width:=32;
bTmp.Canvas.StretchDraw(Rect(0,0,32,32),b);
IconInfo.fIcon:=True;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmColor:=bTmp.Handle;
IconInfo.hbmMask:=bTmp.MaskHandle;
result:=CreateIconIndirect(IconInfo);
bTmp.Free;
end;
zdenek
> -----P�vodn� zpr�va-----
> Od: Tomas Skopik [SMTP:skopik(zv)vtv(tec)czn(tec)cz]
> Odesl�no: 18.02.1999 11:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: BMP -> ICO
>
> Zdravim,
>
> mate nekdo nejake zkusenosti s prevodem BMP obrazku do ICO. Potreboval
> bych udelat programek, ktery by z v podstate libovolneho BMP obrazku
> udelal ikonu (16x16, 32x32). Muzete mi pripadne poradit nejaky zdroj
> informaci?
>
> Dik,
> Tomas Skopik
> ( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
> Setup
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 07:41:30
Upresnim to
Jakym zpusobem ukladate ve svych aplikacich nastaveni tech aplikaci.
Petr
p.sadovsky(zv)atlas(tec)cz
-----P�vodn� zpr�va-----
Od: Petr S <p.sadovsky(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. �nora 1999 14:36
P�edm�t: Setup
>Ahojte,
>
> co pouzivate pro ukladani setupu aplikace(nastaveni cest, cislovani,...)
?
>
> Ja jsem nasel TRegistryIniFile,atd. u kterych je napsane, ze jsou
>low-level for W95/NT.
> �plne malicky prikladek by mi strasne pomohl.
>
>Diky
>
>Petr
>p.sadovsky(zv)atlas(tec)cz
>
>
Setup
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.2.1999 07:57:03
> Jakym zpusobem ukladate ve svych aplikacich nastaveni tech aplikaci.
V knihovne RXLib jsou komponenty TFormPlacement a TFormStorage. Tu prvni
staci polozit na formular, nastavit jestli ukladat nastaveni do INI souboru
nebo do REGISTRY a aplikace si pak "pamatuje" umisteni a velikost formu. Ta
druha umoznuje v podstate to same ale navic si muzes nastavit ukladani
kterehokoli objektu na formu a jeho vlastnosti.
Mam s tim velice dobre zkusenosti.
==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================Setup
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 08:02:59
> Upresnim to
>
> Jakym zpusobem ukladate ve svych aplikacich nastaveni tech aplikaci.
>
Ukladam:
Nektera nastaveni do registru HKEY_LOCAL_MACHINE
Uzivatelska nastaveni (barvy aplikace, konfirmace, atd)
do HKEY_CURRENT_USER
Nektera nastaveni do ini - hlavne u sitove provozovanych aplikaci
Nektera nastaveni jsou v databazi v C/S databazove aplikaci
Az budu delat distribuovanou aplikaci, budu nektera nastaveni
ukladat na aplikacnim serveru
Zpusob ukladani nastaveni je zavisly na pouzitem prostredku.
Vetsinou se jedna o funkce pracujici s registry, inifilem
nebo SQL prikazy.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Ako na BDE ???
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 19.2.1999 08:10:27
Myslim, ze v tomto by ti mnohem lepe poradil mailto:jaro(zv)sinea(tec)cz
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Administrator [SMTP:Administrator(zv)rosoft.sk]
> Odesl�no: 18. �nora 1999 11:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Ako na BDE ???
>
> [Administrator]
> Martin Fronek prosim ta mozes mi popisat co vsetko a kde sa da
> nastavit
> aby mi BDE slapalo co mozno najefektivnejsie
> na lokalnom pocitaci?
>
> Velmi moc dik.
>
> Patrik Tesar
Setup
[*] Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. <bonnel(zv)telecom(tec)cz> - 19.2.1999 08:14:25
Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri instalaci
jinych programu, ktere behem casu zaneradi registry hroznym balastem, o
kterem jiz casto instalacni progam nevi. Pokud by nekdo vedel o
komponente, ktera umi pracovat se soubory stejneho typu jako jsou
registry, ale samostatnym, libovolne umistenym, mazatelnym atd. Proste
takovy INI soubor se strukturou Registru. Nebyl by to namet pro Delphree
?
Pomoc� INI souboru umistenem v hlavnim adresari aplikace:
Na�ten�:
procedure TMain.FormCreate(Sender: TObject);
var
IniF:TIniFile;
S:String;
begin
S:=ExtractFilePath(Application.ExeName)+'Nastav.INI';
IniF := TIniFile.Create(S);
PortN.Value := IniF.ReadInteger('Options','Port',4); {4 = default,
pokud zapis v INI neexistuje}
Tim.Value := IniF.ReadInteger('Options','TimeOut',60);
IniF.Free;
end;
Zaps�n�:
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
IniF:TIniFile;
S:String;
begin
S:=ExtractFilePath(Application.ExeName)+'Nastav.INI';
IniF := TIniFile.Create(S);
IniF.WriteInteger('Options','Port',Round(PortN.Value));
IniF.WriteInteger('Options','TimeOut',Round(Tim.Value));
IniF.Free;
end;
Krome Read[Write]Integer jeste existuji
ReadString,ReadBool,ReadDate,ReadTime,ReadDateTime,ReadFloat a
samozrejme Write ekvivalenty.
Cau
Mira
-----P�vodn� zpr�va-----
Od: Petr S <p.sadovsky(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. �nora 1999 7:48
P�edm�t: Re: Setup
Upresnim to
Jakym zpusobem ukladate ve svych aplikacich nastaveni tech aplikaci.
Petr
!!!!!!!! RE: Kompresia *.exe
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 19.2.1999 08:16:50
Ktery antivir to byl? Ja ASPack i jim kompresovane EXE
spoustel na pocitaci, kde mi bezi rezidentne Avast! a ten
nic nehlasi. Ted jsem nechal oskenovat cely pocitac a zese cisto.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/7755345
038/7512861
IKO wrote:
>
> Nazdar ludia,
>
> chcem vam povedat nejake poznatky ohladom programu ASPack z
> adresy www.alenka.spb.ru/aspack.
> Neviem, ci je to vzdy pravidlo, alebo nahoda to co sa mi stalo, ale
> stalo sa takto. Jeden soft, co som spravil som s tym spakoval. Islo
> to pekne. Zo 650 to dalo na 250 kilov. Len "problem" je v tom, ze
> ho antivirak oznacil, ze obsahuje neznamy virus pre Win95.
>
> Teraz neviem, ci tam ten virus naozaj je (rusi robia dobre virusy...),
> alebo je to len nahoda.
>
> IKO
> ikino(zv)pobox.sk
> http://freeweb.coco(tec)cz/IKO
Setup
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 08:51:59
-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 19. �nora 1999 8:31
P�edm�t: RE: Setup
>> Jakym zpusobem ukladate ve svych aplikacich nastaveni tech aplikaci.
>
>V knihovne RXLib jsou komponenty TFormPlacement a TFormStorage. Tu prvni
>staci polozit na formular, nastavit jestli ukladat nastaveni do INI souboru
>nebo do REGISTRY a aplikace si pak "pamatuje" umisteni a velikost formu. Ta
>druha umoznuje v podstate to same ale navic si muzes nastavit ukladani
>kterehokoli objektu na formu a jeho vlastnosti.
Potreboval bych vlastne ulozit par konstant (cislo pracoviste,cislo
utvaru,...) tak, aby bylo mozno to modifikovat z aplikace. Z tech konstant
se skladaji ruzna evidencni cisla.
Udelaji ty komponenty i toto?
Diky.
Petr
p.sadovsky(zv)atlas(tec)cz
Large fonts - small fonts
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 19.2.1999 08:51:51
Nevie niekto ako jednoducho eliminovat rozdiely medzi
nastaveniami u zakaznika a vyvojara typu Large fonts - small
fonts.(zvacsene formulare, vytekajuce komponenty atd).
Pomohol by nejaky sample.
D.
Martin.V�ber posledn�ch X z�znamov v SQL
[*] Kovac <kovac(zv)pvt.sk> - 19.2.1999 09:04:33
Skus:
select * from table t1
where (select count(*) from table t2
where t1.datum_cas<t2.datum_cas)<20
Mne to zbehlo v D4 na paradoxe,
ale neviem od ktorej verzie podporuje local SQL
vnorene selecty.
-----Original Message-----
From: Branislav Danko <danko(zv)basl.sk>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 18. febru�r 1999 9:57
Subject: V�ber posledn�ch X z�znamov v SQL
>Nazdar,
> m�m tak�to probl�m: Existuje tabu�ka s transakciami (obsahuje d�tum, �as,
��slo karty ...), index neexistuje ?iadny autoincrement. Potreboval by som
vybra? posledn�ch 20 transakci�. Je to mo?n� zrealizova? nejak�m SQL
pr�kazom, aby
>som to nemusel prech�dza? v cykle a nap��a? in� tabu�ku. Tabu�ka je pod
Paradoxom, teda je mo?n� pou?i? len SQL ?tandard. Neexistuje tu nie�o
podobn� ako ROWNUM, ROWIN v Oracle?
>Setup
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 09:21:30
> -----Original Message-----
> From: Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o.
> [mailto:bonnel(zv)telecom(tec)cz]
> Sent: Friday, February 19, 1999 8:14 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Setup
>
>
> Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri
> instalaci
> jinych programu, ktere behem casu zaneradi registry hroznym
> balastem, o
> kterem jiz casto instalacni progam nevi.
To je snad chyba tech programu a ne registru.
> Pokud by nekdo vedel o
> komponente, ktera umi pracovat se soubory stejneho typu jako jsou
> registry, ale samostatnym, libovolne umistenym, mazatelnym atd. Proste
> takovy INI soubor se strukturou Registru. Nebyl by to namet
> pro Delphree
> ?
A resit sam to, co uz mas vyreseno ve Windows?
Treba HKEY_CurrentUser?
Ne, registry jsou dobra vec. Vsechno se ale
musi pouzivat s rozvahou. Viz muj predchozi mail,
kazde nastaveni ma urcitou charakteristiku
a chce zvazit, co od nej ocekavam.
Pokud se jedna o lokalni nastaveni uzivatele,
preferuji registry s HKEY_CURRENT_USER.
V ostatnich pripadech je to, myslim, jedno a
zalezi na libovuli tvurce, co zvoli.
Ja osobne mam nejradeji INI soubory v adresari aplikace.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!V�ber posledn�ch X z�znamov v SQL
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.2.1999 09:29:27
Ahoj!
Jak by se takova struktura navrhovala?
Predevsim bych se zeptal, proc prave "poslednich 20 zaznamu". Proc ne 19 nebo 22, proc ne zaznamy za poslednich x-minut.
Pokud bych prosadil cas, byl by select trivialni (a ja bych ho prosadil!).
Pokud ne, resil bych to generatorem (problem nesouvisle rady!).
Drive, nez zacneme nejaky problem resit, ptejme se zadavatele/uzivatele, proc ho mame resit. Pozaduje-li nesmysl, nabidneme mu lepsi reseni, ktere nas pritom bude stat mene namahy. To je taky vyvojarske umeni, nejen znat techniku programovani.
Honza
==============================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931
==============================
----------
> Odes�latel: Lubomir Bulej <pallas(zv)kadan(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: V�ber posledn�ch X z�znamov v SQL
> Datum: 18. �nora 1999 22:01
>
> Hi,
>
> > Jan Sebelik:
> > Obavam se, ze jsou-li nedostatky v datovem modelu (faze analyzy), lze to pak v aplikaci resit budto tezko nebo vubec ne.
>
> Jak by se takova struktura navrhovala ? Me by to docela zajimalo, protoze
> jak jsi uvedl:
>
> > Pracujeme-li s relacnimi databazemi, smirme se s tim, ze relace je podmnozinou kartezskeho soucinu - v
> > takove podmnozine se tezko budeme vyporadavat s pozadavkem na "poslednich 20 prvku".
>
> Takze uz z principielne se tohle neda resit v datovem modelu, rozhodne ne v
> relacnim. Resp. by me zajimalo
> jestli se pletu a v cem :) Mnou navrhovane reseni bylo obdobne - vyrobit
> kursor na ten select a z nej pak
> fetchnout prvnich 20 polozek. Hmm, myslel jsem si, ze kurzory jsou v SQL
> _standardni_ - ony nejsou ?
>
> Lubos
TQuery - NET
[*] Ji�� Toman <jiri.toman(zv)seznam(tec)cz> - 19.2.1999 09:31:45
Ahoj vsichni...
Dokoncil jsem jeden soft v D4, ale jake bylo moje prekvapeni, kdyz
mi na siti pokud ho zacne pouzivat dalsi uzivatel ohlasi:
Exception EDBEngineError in module LUZKA.EXE at 000B9D56.
Directory is controlled by other .NET file.
Directory: C:\AWSCAN3\
File: I:\SPITAL\TABUNIS\OBLOZNOST\PDOXUSRS.LCK
V programu pouzivam TQuery na sdilene Pdox. tabulky. Myslel jsem,
ze pokud vybiram zaznamy pomoci SQL dotazu, tak ze by to melo bez
problemu na siti chodit. Prosim o radu jak nastavit TQuery, aby to na
siti chodilo. Nebo se musi nejak nastavit DBE ??? Na BDE jsem se
dival, ale nic me nenapada.
Diky za kazdou radu. Jiri Toman
PS: Pozor na laviny !!!!!!Setup
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.2.1999 09:34:33
> Potreboval bych vlastne ulozit par konstant (cislo pracoviste,cislo
> utvaru,...)
> Udelaji ty komponenty i toto?
Pokud je v prograsmu editujes (napr. v nejakem dialogu NASTAVENI), tak je
muzes pomoci tech komponent i ulozit.Setup
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.2.1999 09:36:14
Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, Bonne dne 19 Feb 99,:
> Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri instalaci
> jinych programu, ktere behem casu zaneradi registry hroznym balastem, o
> kterem jiz casto instalacni progam nevi. Pokud by nekdo vedel o
Registr je moc dobra a dulezita vec...
> komponente, ktera umi pracovat se soubory stejneho typu jako jsou
> registry, ale samostatnym, libovolne umistenym, mazatelnym atd. Proste
> takovy INI soubor se strukturou Registru. Nebyl by to namet pro Delphree ?
A jak udelas sekci uzivatelu? Pro to uz je podpora primo v registru
a to je velke ulehceni.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Lokalizator - charset
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 19.2.1999 09:47:16
Je mozne v lokalizatore menit charset pre fonty ?
olej
ikona
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 19.2.1999 09:51:32
Hello,
Nevite nekdo , jak vytvorit svoji dalsi ikonu (tlacitko) vedle tech jak jsou v pravem
hornim rohu ( zavrit, maximalizovat,minimalizovat, help) ?
Dik
kminek(zv)mite(tec)cz
www.mite(tec)cz
TQuery - NET
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 19.2.1999 10:02:33
Zdravim 'Ji�� Toman', odpovidam na Tvou zpr�vu z '19.2.1999 9:31:45':
>Exception EDBEngineError in module LUZKA.EXE at 000B9D56.
>Directory is controlled by other .NET file.
>Directory: C:\AWSCAN3\
>File: I:\SPITAL\TABUNIS\OBLOZNOST\PDOXUSRS.LCK
>
Zkontroluj nastaveni NET DIR v BDE. Na vsech stanicich musi byt tahle cesta
shodna , ne, ze jen bude ukazovat na stejne misto.
Nejlepe se osvedcuji pipelines "\\locahhos\shareddir\datadir".
Bye
T.B.
Barva radku DBGridu
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 19.2.1999 09:51:29
Mimochodem me napadlo jestli text nezmizi proto, ze ma nastavenou stejnou
barvu jako pozadi. Jinak by tato konstrukce fungovat mela.
Zden=ECk Moravec zmo(zv)telecom(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. =FAnora 1999 20:16
P=F8edm=ECt: Re: Barva radku DBGridu
Text nastav=ED=9A takto:
Prvn=ED IF je pro barvu ostatn=EDho textu a druhej je pro barvu
textu vybran=E9ho (modr=E9ho) r=E1dku.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Table1.FieldByName('VYRIZEN').AsString =3D '' then begin
DBGrid1.Canvas.Font.Color :=3D clRed;
if (DBGrid1.Focused) and (GdSelected in state) then
DbGrid1.Canvas.Font.Color :=3D clWhite;
end;
DbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
>
>>
>zkousel jsem ,
>funguje
>ale zmizne bohuzel i text.
>
>co je potreba jeste nastavit
>
>
>
>Diky Heinisch Jiri
>
>
>
>
>
V�ber posledn�ch X z�znamov v SQL
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 19.2.1999 09:53:26
>Jak by se takova struktura navrhovala ? Me by to docela zajimalo, protoz=
e
>jak jsi uvedl:
>
>> Pracujeme-li s relacnimi databazemi, smirme se s tim, ze relace je
podmnozinou kartezskeho soucinu - v
>> takove podmnozine se tezko budeme vyporadavat s pozadavkem na "posledn=
ich
20 prvku".
Staci zavest polozku "Cas vlozeni do databaze" a pak lehce ziskas posledn=
ich
x zaznamu.
Zden=ECk Moravec zmo(zv)telecom(tec)cz
Nemodalni formular v DLL
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 19.2.1999 10:15:17
Caute,
mam velky problem. V modularnim programu jsou jednotlive moduly
realizovany jako nemodalni formulare v DLL knihovnach. Pro vsechny
moduly mam nadefinovaneho predka odvozeneho z TForm. Prepsal jsem jeho
Create:
constructor TBaseForm.Create(AOwner: TComponent);
begin
AppForm := TForm(AOwner); // interni promenne
RunParams := AppForm.Tag; // -||-
AppHandle := AppForm.Handle; // -||-
BorderSize := GetSystemMetrics(SM_CYSIZEFRAME); // -||-
inherited Create(nil);
end {TBaseForm.Create};
Z tohoto predka mame momentalne odvozene dva moduly.
Jeden z nich funguje vzdy a vsude korektne.
Ten druhy ale na nekterych noteboocich nefunguje (zatim vim jen o Texas
Instruments Extensa 510, nejmene 2ks). Vyhuci to na exception nekde
uvnitr inherited Create.
Zkousel jsem inherited Create predavat nejen nil, ale i formular
hlavniho programu, stav se nezmenil.
Nevite nekdo, cim to muze byt zpusobeno?
Podotykam, ze at delam co delam, jeden modul funguje vsude, druhy
nefunguje na TI Extensa 510.
Pokud jde o slozitost modulu, jsou si tak asi fifty-fifty. TabNotebook,
neco pres 10 TabSheetu, kolem 15-20 tabulek, nejake dalsi controls. Ten
modul, ktery ma problemy, mi nicmene pripada slozitejsi, ma tech
controls o neco vic.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Setup
[*] Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. <bonnel(zv)telecom(tec)cz> - 19.2.1999 10:18:55
To, ze jsou registry uzitecne neni predmetem sporu. Zvlaste pokud jde o
uzivatelska nastaveni. To neni ten problem. Jenze obcas by se hodilo
(zvlast pro nastaveni vetsiho mnozstvi vice strukturovanych parametru
mit k dispozici neco jako INI soubor se strukturou registru. Uzivatelsky
citlive parametry se do tech registru daji nadrapat vzdycky, to prece
neni to tema.
Mira
-----P=F9vodn=ED zpr=E1va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. =FAnora 1999 9:48
P=F8edm=ECt: Re: Setup
Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, Bonne dne 19 Feb
99,:
> Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri
instalaci
> jinych programu, ktere behem casu zaneradi registry hroznym balastem,
o
> kterem jiz casto instalacni progam nevi. Pokud by nekdo vedel o
Registr je moc dobra a dulezita vec...
> komponente, ktera umi pracovat se soubory stejneho typu jako jsou
> registry, ale samostatnym, libovolne umistenym, mazatelnym atd. Proste
> takovy INI soubor se strukturou Registru. Nebyl by to namet pro
Delphree ?
A jak udelas sekci uzivatelu? Pro to uz je podpora primo v registru
a to je velke ulehceni.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D Petr Zahradnik - Computer Laboratory =3D=3D=3D
=3D=3D=3D Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 =3D=3D=3D
=3D=3D=3D telefon: 047-5500610, telefon/fax: 047-5501627 =3D=3D=3D
=3D=3D=3D mobilni telefon GSM (hotline): 0602-409601 =3D=3D=3D
=3D=3D=3D http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz =3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ICQ: 21215917, PGP vitano
Offtopic - spolecny adresar pro mail adresy
[*] zavada(zv)atcomp(tec)cz - 19.2.1999 10:20:03
Stejny problem jsem resil takto (nedelam si ale iluze, jak
elegantni a krasne reseni to je):
Ve sdilenem adresari na fileserveru je jeden (vychozi)
soubor adresare - nazvu jej master.pab, z nej se odvozuje
skupina obrazu.pab, se kterymi pracuji uzivatele, pricemz
obrazy se z mastru odvozuji kopirovanim. Kopirovani zajisti
automaticky spousteny kopirovaci program (v mem pripade NT
service), ktery napr. kazdych 30 min provede rozkopirovani
masteru na obrazy. Nevyhodou (v nasem pripade ale zamerem)
je, ze se upravuje jen master, ucinene zmeny vidi vsichni
uzivatele obrazu. P=F8i kopirovani je soubor *.pab zamceny,
pokud je otevreny Outlook - proto jsme volili variantu s
pravidelnym automatickym kopirovanim, kter=E9 v pripade
nedostupnosti zdroje ci cile neprobehne.=20
Ji=F8=ED Z=E1vada
Kr=F9=E8kova 221/2
721 00 Ostrava - Svinov
tel. 069/434383
zavada(zv)atcomp(tec)cz <mailto:zavada(zv)atcomp(tec)cz>=20
-----P=F9vodn=ED zpr=E1va-----
Od: Martin Kubecka
[SMTP:martin.kubecka(zv)amenit(tec)cz]
Odesl=E1no: 18. =FAnora 1999 16:37
Komu: DELPHI Distribution List
P=F8edm=ECt: Offtopic - spolecny adresar pro mail
adresy
Ahoj, sorry za off-topic.
Potreboval bych u zakaznika (sit s NT 4.0 server +
W95 a NT 4.0 WKS)
nastavit nejak spolecny (sdileny) adresar s kontakty
(maily). Pouziva se
tam dial-up pripojeni s WinRoute jako lokalnim mail
serverem. Nevite
nekdo jak na to. Nejlepe s Outlook Expressem jako
mail klientem (ale
neni nutno).
Mac
--
=09
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D
=3D Ing. Martin Kubecka - Amenit s.r.o.
=3D
=3D Na Valech - budova Dytron, 741 01 Novy Jicin
=3D
=3D telefon/fax: +420 656 706203 mobil: +420 603
265926 =3D
=3D http://www.amenit(tec)cz
mailto:martin.kubecka(zv)amenit(tec)cz =3D
=3D ICQ: 8906773 GSM (SMS):
martin.kubecka(zv)sms.paegas(tec)cz =3D
=09
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D
=09
RX 2.60
[*] Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. <bonnel(zv)telecom(tec)cz> - 19.2.1999 10:20:39
Mate uz nekdo zkusenosti s RX lib 2.60 pod D4 ? Zajimaji me hlavne
negativni.
Diky Mira
Off topic - prechod W95 -> NT
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 19.2.1999 10:26:37
> - nemate nekdo CESKE programatorske rozlozeni (takove, kde zakladni
> rozlozeni je ceske QWERTY a pres AltGr se pisou originalni znaky
> angl.klavesnice)? Ve W95 jsem s uspechem pouzival ceske progr.rozlozeni
> od Michala Marese, ale neni u ni ani kontakt na nej :-(
Moc jste me neuspokojili, tak jsem si musel pomoci sam.
V prvni fazi jsem se pri slideni po Michalu Baresovi dozvedel, ze bohuzel
cca pred 2 roky zemrel za zahadnych okolnosti v lese (vazne - smutne, co?).
V druhe fazi jsem se nastval a prepsal rozlozeni Ceske(QWERTY), takze uz to
pres AltGr-; pise i ten apostrof, kterej mi tam dost silne chybel.
Takze jestli nekdo chcete ceskou programatorskou klavesnici, ktera pise
kompletne cesky a pres AltGr pise puvodni americke znaky (!(zv)#$%^&*()-[]{}<>)
vcetne '\', muzu poskytnout upraveny kbdcz1.dll.
Jinak diky za snahu. Zdar PF
Volani DLL z MSSQL
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 19.2.1999 10:33:47
Nazdar chlapi ...
prosim vas, nemate nekdo zkusenost, jak volat DLL (ktery je napsany v
Delphi) z MS SQL (to moje je 6.5) ...
DLL se mi v pohode zavola , ale mam problem s predavanim parametru ...
diky za kazdou zkusenost a odpoved ....
__________________
Jiri Fejfar
e-mail: fejfarj(zv)iol(tec)cz
__________________
Barevne Memo
[*] Petr Kandera <p_kandera(zv)usa(tec)net> - 19.2.1999 10:41:16
Mam nesmely dotaz, nevite jak v Memu udelat ruznobarevne radky?
Diky
Petr Kandera
<p_kandera(zv)usa.net>DOS nazev souboru
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.2.1999 10:51:31
Zdravim,
mam pocit ze to tu pred nedavnem bylo, ale vzhledem k tomu, ze archiv nejede
(www.delphi(tec)cz), prosim o radu. Jak zjistit kratky nazev souboru (8.3)?==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
Opet neco jako makrosubstituce
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 10:57:16
Ahojte,
potreboval bych vytvorit tabulku v promenne pom je jeji nazev a fce
CreaSpis() mi vraci strukturu tabulky a D4 nemuzu donutit, aby mi to vzalo.
create table pom+' '+CreaSpis()
Diky za kazdou radu.
Petr
p.sadovsky(zv)atlas(tec)cz
SQL
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 10:57:10
To se opravdu neda nejak obejit tento delete prikaz (Delphi 1, paradox):
DELETE FROM [table1] WHERE column IN
(SELECT column1 FROM [table2])
jinak nez nacitani select do Query a pak pro kazdy zaznam za volat
delete?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+
DOS nazev souboru
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 19.2.1999 11:01:59
>
> mam pocit ze to tu pred nedavnem bylo, ale vzhledem k tomu, ze archiv nejede
> (www.delphi(tec)cz), prosim o radu. Jak zjistit kratky nazev souboru (8.3)?
>
GetShortPathName
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Setup
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 11:07:49
-----P=F9vodn=ED zpr=E1va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 19. =FAnora 1999 10:18
P=F8edm=ECt: RE: Setup
>> Potreboval bych vlastne ulozit par konstant (cislo pracoviste,cislo
>> utvaru,...)
>> Udelaji ty komponenty i toto?
>
>Pokud je v prograsmu editujes (napr. v nejakem dialogu NASTAVENI), tak j=
e
>muzes pomoci tech komponent i ulozit.
Diky moc zkusim ty komponenty i INI a uvidim,co mi bude vyhovovat.Do
registru hrabat radsi nebudu i kdyz vzdycky je to jednou poprve ;-))
Petr
p.sadovsky(zv)atlas(tec)cz
P.S. Nemohl byste mi nekdo poslat nejaky priklad na ukladani do registru =
v
D4 .
Volani DLL z MSSQL
[*] muher(zv)csas(tec)cz - 19.2.1999 11:07:58
Ten problem jsem mel taky. Nakonec jsem toho nechal a delal
jsem to pres OLE.
V SQL skriptu pak vytvorim objekt a volam jeho metody nebo
ctu jeho promenne.
Martin UHER
-----Original Message-----
From: Jirka Fejfar [SMTP:fejfarj(zv)iol(tec)cz]
Sent: Friday, February 19, 1999 10:34 AM
To: DELPHI Distribution List
Subject: Volani DLL z MSSQL
Nazdar chlapi ...
prosim vas, nemate nekdo zkusenost, jak volat DLL
(ktery je napsany v
Delphi) z MS SQL (to moje je 6.5) ...
DLL se mi v pohode zavola , ale mam problem s
predavanim parametru ...
diky za kazdou zkusenost a odpoved ....
__________________
Jiri Fejfar
e-mail: fejfarj(zv)iol(tec)cz
__________________
Zmena classu
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 11:11:01
Vytvoril jsem Form s mnoha Tedit prvky.
Ted bych ale chtel zmenil aby nebyly
TEdit ale mym classem (potomek TEdit).
Kdyz to prepisu v unite, tak mi pak
hlasi, ze ten a ten by mel byt TEdit
a jestli chci deklaraci opravit.
Co musim jeste udelat? Nebo se to musi jinak?
BTW : jak se da zjistit jakeho classu je dany
objekt?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+Barevne Memo
[*] iturcan(zv)gamo.sk - 19.2.1999 11:12:48
>Mam nesmely dotaz, nevite jak v Memu udelat ruznobarevne radky?
Pouzi TRichEdit
Ivan Turcan
GAMO a.s.
e-mail: iturcan (zv)gamo.sk
ComboBox
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 19.2.1999 11:17:17
Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nechat zapsat. (Neco jako ReadOnly) Dik za podnety.
M&B
Zmena classu
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 19.2.1999 11:21:16
"Jezek Petr, Ing. (DELVINA)" wrote:
> Vytvoril jsem Form s mnoha Tedit prvky.
> Ted bych ale chtel zmenil aby nebyly
> TEdit ale mym classem (potomek TEdit).
> Kdyz to prepisu v unite, tak mi pak
> hlasi, ze ten a ten by mel byt TEdit
> a jestli chci deklaraci opravit.
> Co musim jeste udelat? Nebo se to musi jinak?
caves,
skus si nainstalovat gexperts - je tam moznost nahrady jednej komponenty za
druhu. adresa je http://www.gexperts.com
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
Zmena classu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.2.1999 11:26:50
<color><param>7F00,0000,0000</param>> BTW : jak se da zjistit jakeho classu je dany
> objekt?</color>class function ClassName: ShortString;
Slavek
<color><param>7F00,0000,0000</param>> +-------------------------------+
> | Ing. Petr Jezek |<nofill>
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Zastavit SQL
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 19.2.1999 11:27:47
Nevite, prosim, jestli lze jednoduse zastavit probihajici TQuery.Open,
tak jako to jde v microsoftim ISQL?
Moje predstava je modalni okno s buttonem "Zastavit".
Ale mam strach, ze to nepujde jinak, nez nejaky samostatny thread a
ani tak nevim, jak bych to delal.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
ComboBox
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 19.2.1999 11:31:26
Martin Bab=EDk wrote:
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci=
nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nec=
hat zapsat. (Neco jako ReadOnly) Dik za podnety.
>
> M&B
skus si dat combobox1.stype:=3D csDropDownList;
a v oncreate formy nastavit, ktory riadok z listu sa ma zobrazit:
combobox1.itemindex:=3D 0; // prvy
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
Re[3]: Cestina do delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.2.1999 11:37:48
Petr Zahradnik wrote:
> > Ja jim kvuli tomu dokonce psal. Marne, pouze se vykrucovali...
>
> Ja se jim nedivim, vzdyt to maji jednodussi, kdyz je cely kod
> uplne spolecny pro vsechno. V jejich pripade to chapu, chteji
> byt kompatibilni s D1/2. Ale na druhou stranu uz by se mohlo
> pomalu na D1/2 zapomenout... Mimochodem sis take vsiml, ze ted
> odstranili centralni SRMGR a davaji do kazdeho produktu svuj
> zvlastni, nevim proc. Mohl bych se na to klidne podivat a asi
> bych mel byt schopen udelat programek, ktery by to modifikoval
> na praci s resourcestring...
>
Vsimnul, a divil jsem se, az mi bylo divno. Ono tech zmen je zda
se vic - zrejme prestali pouzivat i spolecnou knihovnu StDate. Ani
neni divu, protoze to vzdy znamenalo delat hromadny update na
temer vsechno. :-)
Ted je jeste dotlacit k tomu, aby zakonzervovali nejaky stav pro D1
a D2 a vyvijeli uz jen pro D3 a vyse.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Opet neco jako makrosubstituce
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 11:41:57
> Ahojte,
> potreboval bych vytvorit tabulku v promenne pom je jeji nazev a fce
> CreaSpis() mi vraci strukturu tabulky a D4 nemuzu donutit,
> aby mi to vzalo.
>
> create table pom+' '+CreaSpis()
>
> Diky za kazdou radu.
>
> Petr
> p.sadovsky(zv)atlas(tec)cz
Nemuzes byt jeste strucnejsi?
To si mame domyslet, kam to "create table pom+' '+CreaSpis()"
vlastne pises? Aby nakonec vyslo najevo, ze michas
Pascal a SQL dohromady? Nebo s temi registry - nikomu
asi nebylo moc jasny, o co ti jde.
"Jakym zpusobem ukladate nastaveni aplikaci?" je otazka
stejne obecna, jako kdybych se ptal "Jakym zpusobem
ridis auto?". Co bys mi odpovedel? Ze jezdis rychle,
ze se musi strcit klicek do zapalovani nebo ze zalezi
jestli jedes na silnici nebo v terenu? Vsechny ty odpovedi
by na tu otazku byly stejne dobre.
Zkus priste napsat, co presne ti nefunguje.
Je to naposled, co ti odpovidam na dotaz ktery si musim sam domyslet.
to, cos napsal (create table pom+' '+CreaSpis()), by nedavalo
smysl ani v pascalu, ani v databazi s ulozenymi procedurami,
ktera by to provadela jako SQL. V pascalu zadny prikaz
create table neexistuje, v SQL by vznikla tabulka 'pom'.
Pokud chces neco podobneho provest z Delphi, zkus to takhle:
var
QueryInstance: TQuery;
...
QueryInstance.SQL.Clear;
QueryInstance.SQL := 'create table ' + pom + ' ' + CreaSpis();
QueryInstance.ExecSQL;
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Zmena classu
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 19.2.1999 11:45:58
robi to GExperts
olej
> -----Original Message-----
> From: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Sent: Friday, February 19, 1999 11:11 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Zmena classu
>
> Vytvoril jsem Form s mnoha Tedit prvky.
> Ted bych ale chtel zmenil aby nebyly
> TEdit ale mym classem (potomek TEdit).
> Kdyz to prepisu v unite, tak mi pak
> hlasi, ze ten a ten by mel byt TEdit
> a jestli chci deklaraci opravit.
> Co musim jeste udelat? Nebo se to musi jinak?
> BTW : jak se da zjistit jakeho classu je dany
> objekt?
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 11:50:46
> To se opravdu neda nejak obejit tento delete prikaz (Delphi
> 1, paradox):
> DELETE FROM [table1] WHERE column IN
> (SELECT column1 FROM [table2])
> jinak nez nacitani select do Query a pak pro kazdy zaznam za volat
> delete?
neznam moc paradox, ale vzhledem k tomu, ze by mu melo
byt LocalSQL site na miru, tak asi ne.
Kdyz jsem ale delal v Delphi 1 nad paradox. tabulkami,
mazal jsem radeji bez SQL primo pomoci TTable.
Bylo nekolikrat rychlejsi prochazet TTable nez TQuery.
Myslim, ze to bude i rychlejsi nez opakovane volani DELETE.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Zjisteni modalniho okna
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 19.2.1999 11:53:40
Jak se da, prosim, zjistit, zda je prave otevrene okno modalni?
(tedy zobrazene pomoci ShowModal?). Jsem schopen zjistit o tom okne
(formulari) kde co, ale toto prosim ne.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/Setup
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 19.2.1999 11:57:49
Haj hou!
> Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri
instalaci
> jinych programu, ktere behem casu zaneradi registry hroznym
balastem, o
> kterem jiz casto instalacni progam nevi. Pokud by nekdo vedel o
> komponente, ktera umi pracovat se soubory stejneho typu jako
jsou
> registry, ale samostatnym, libovolne umistenym, mazatelnym atd.
Proste
> takovy INI soubor se strukturou Registru. Nebyl by to namet pro
Delphree ?
Prave takovou vec pouzivame v praci, rikame tomu repozitor. Je to
posazene na structured strage a interface to ma jako registry,
vcetne takovych vychytavek jako HKEY_currentuser a
HKEY_localmachine. Je to sdilene po siti danou aplikaci a je v
tom vsechno, co dana instalace potrebuje.
Podobnou ale trochu lepe promyslenou (ono je to preci jen uz dva
roky stare) vec chystam do Nexu v Delphree. Predpokladam, ze na
ni prijde tak za 2-3 mesice. Pokud si chces neco takoveho vyrobit
sam, staci pospasovat se structured storage (najdes to v OLE
helpu v Delphi).
HTH
TQuery - NET
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 19.2.1999 11:58:09
Ahoj,=20
mel jsem presne stejny problem na Novellu. Pokud sdilis adresare pod W95,=
tak to funguje jak ma, pokud dam data a aplikaci na Novellsky server, je=
potreba spravne nastavit pristupova prava k danym adresarum. Kde se vytv=
ari *.lck soubory, musi byt umozneno taky zapisovani a mazani.
V BDE musi byt nastaven net dir na vsech PC stejne - akorat nazev disku s=
e muze lisit. (Treba PC1 - H:\myapp\mydir, PC2 L:\myapp\mydir).
Ahoj Pavel
-----P=F9vodn=ED zpr=E1va-----
Od: Ji=F8=ED Toman [SMTP:jiri.toman(zv)seznam(tec)cz]
Odesl=E1no: 19. =FAnora 1999 9:32
Komu: delphi-l(zv)fwd(tec)cz
P=F8edm=ECt: TQuery - NET
Ahoj vsichni...
Dokoncil jsem jeden soft v D4, ale jake bylo moje prekvapeni, kdyz=20
mi na siti pokud ho zacne pouzivat dalsi uzivatel ohlasi:
Exception EDBEngineError in module LUZKA.EXE at 000B9D56.
Directory is controlled by other .NET file.
Directory: C:\AWSCAN3\
File: I:\SPITAL\TABUNIS\OBLOZNOST\PDOXUSRS.LCK
V programu pouzivam TQuery na sdilene Pdox. tabulky. Myslel jsem,
ze pokud vybiram zaznamy pomoci SQL dotazu, tak ze by to melo bez=20
problemu na siti chodit. Prosim o radu jak nastavit TQuery, aby to na=20
siti chodilo. Nebo se musi nejak nastavit DBE ??? Na BDE jsem se
dival, ale nic me nenapada.=20
Diky za kazdou radu. Jiri Toman
PS: Pozor na laviny !!!!!!ComboBox
[*] Mik Radim <mik(zv)oce(tec)cz> - 19.2.1999 11:58:36
ItemIndex :=
Style := csDropDownList
> ----------
> Odes�latel: Martin Bab�k[SMTP:M.Babik(zv)mus(tec)cz]
> Odpovedi: delphi-l(zv)fwd(tec)cz
> Odesl�no: 19. �nora 1999 11:17
> Komu: delphi-l(zv)fwd(tec)cz
> Predmet: ComboBox
>
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni
> ci nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe
> neco nechat zapsat. (Neco jako ReadOnly) Dik za podnety.
>
>
>
> M&B
> ComboBox
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 19.2.1999 12:00:49
Nevim, zda jsem uplne spravne pochopil,=20
ale mohlo by pomoci property Style na DropDownList=20
a pri aktivaci nastavit ItemIndex na prislusnou hodnotu.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P=F9vodn=ED zpr=E1va-----
> Od: Martin Bab=EDk [SMTP:M.Babik(zv)mus(tec)cz]
> Odesl=E1no: 19. =FAnora 1999 11:17
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: ComboBox
>=20
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci
> nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco =
nechat
> zapsat. (Neco jako ReadOnly) Dik za podnety.
>=20
>=20
>=20
> M&B
ComboBox
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 12:04:21
-----P=F9vodn=ED zpr=E1va-----
Od: Martin Bab=EDk <M.Babik(zv)mus(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. =FAnora 1999 11:50
P=F8edm=ECt: ComboBox
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci
nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nech=
at
zapsat. (Neco jako ReadOnly) Dik za podnety.
Nastav pri aktivaci formu
ComboBox1.ItemIndex:=3D0; /0-_pocet items_-1
Petr
p.sadovsky(zv)atlas(tec)cz
Zmena classu
[*] BEKE Frantisek <beke(zv)asset.sk> - 19.2.1999 12:05:32
Na form-e daj prave talcitko a tam View as Text,
tam potom zamen TEdit na co xces a zas prave tlacitko v editore a View as
Form,
potom save-ni tu unitu a ked sa ta bude pytat nieco take, ze:
Field <form name>.Edit1 should be of type <tvoj class> but is declared as
TEdit.
Correct the declaration?
tak potvrd Yes pre kazdy TEdit a mas to...
bye,
Feri (the bjs)
- beke(zv)asset.sk - telnet://sano.sk:7000 -
> -----Original Message-----
> From: Jezek Petr, Ing. (DELVINA) [mailto:PETR(zv)sevis.sk]
> Sent: Friday, February 19, 1999 11:11 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Zmena classu
>
>
> Vytvoril jsem Form s mnoha Tedit prvky.
> Ted bych ale chtel zmenil aby nebyly
> TEdit ale mym classem (potomek TEdit).
> Kdyz to prepisu v unite, tak mi pak
> hlasi, ze ten a ten by mel byt TEdit
> a jestli chci deklaraci opravit.
> Co musim jeste udelat? Nebo se to musi jinak?
> BTW : jak se da zjistit jakeho classu je dany
> objekt?
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
>
Volani DLL z MSSQL
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.2.1999 12:09:27
Hm, hm,
DLL napsana v Delphi by mela byt korektni.
Moznym duvodem problemu muze byt, ze za deklaraci neni uvedena klauzule "=
stdcall".
Myslim si to prave proto, ze duvodem problemu je predavani parametru.
Alespon tak se to ucime na kurzech Delphi.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Jirka Fejfar <fejfarj(zv)iol(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> P=F8edm=ECt: Volani DLL z MSSQL
> Datum: 19. =FAnora 1999 10:33
>=20
> Nazdar chlapi ...
>=20
> prosim vas, nemate nekdo zkusenost, jak volat DLL (ktery je napsany v
> Delphi) z MS SQL (to moje je 6.5) ...
>=20
> DLL se mi v pohode zavola , ale mam problem s predavanim parametru ...
>=20
> diky za kazdou zkusenost a odpoved ....
> __________________
>=20
> Jiri Fejfar
> e-mail: fejfarj(zv)iol(tec)cz
> __________________
ComboBox
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 19.2.1999 12:09:47
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci
nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nech=
at
zapsat. (Neco jako ReadOnly) Dik za podnety.
>
Combo.Style nastavit jako sDropDownList
Pri create formu nastavit Combo.ItemIndex na hodnotu, kterou pozadujes.
Pozor, cislovano od nuly
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn=ED system pro n=E1poj=E1re
-----------------------------------------------------------------
Lokalizator - charset
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.2.1999 12:13:51
OLEJNIK Andrej wrote:
> Je mozne v lokalizatore menit charset pre fonty ?
V tom mem ano. Pro formulare se to sice musi delat rucne v
editoru formulare, ale program je chytry :-) a pamatuje si to i pro
dalsi lokalizace tehoz formulare, pokud ovsem nevymazes soubory
s informacemi o poslednim stavu prekladu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Setup
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.2.1999 12:23:20
> Diky moc zkusim ty komponenty i INI a uvidim,co mi bude vyhovovat.Do
> registru hrabat radsi nebudu i kdyz vzdycky je to jednou poprve ;-))
Do registru s nima nemusis. Pekne je to, ze si muzes vybrat kam ukladat
nastaveni - zda do registru, nebo do ini souboru.
SQL
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 19.2.1999 12:25:57
> To se opravdu neda nejak obejit tento delete prikaz (Delphi 1, paradox):
> DELETE FROM [table1] WHERE column IN
> (SELECT column1 FROM [table2])
> jinak nez nacitani select do Query a pak pro kazdy zaznam za volat
> delete?
v RxLib je komponenta TQBEQuery, kde se to da udelat jednoduchym askem v QBE
tak jako primo v Paradoxu, nebo v DBDesktopu. Ale ted koukam, ze delas v D1,
tak nevim, jestli je D1 podporovano od RX...?
Zdar PF
ComboBox
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.2.1999 12:39:41
Teda nevim,
ale pokud neni problem nejak slozitejsi, staci nastavit=20
Style=3DcdDropDownList
a
Combo.ItemsIndex:=3D0;
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D----------
> Odes=EDlatel: Martin Bab=EDk <M.Babik(zv)mus(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: ComboBox
> Datum: 19. =FAnora 1999 11:17
>=20
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci=
nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nec=
hat zapsat. (Neco jako ReadOnly) Dik za podnety.
>=20
>=20
>=20
> M&B
ComboBox
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 19.2.1999 12:40:15
> Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni ci
nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco nechat
zapsat. (Neco jako ReadOnly) Dik za podnety.
>>Combo.Style nastavit jako sDropDownList
>>Pri create formu nastavit Combo.ItemIndex na hodnotu, kterou pozadujes.
>>Pozor, cislovano od nuly
To by bylo dobre, kdybych jeste vedel, coz jsem ovsem poprve zapomnel podotknout, jak nevybrat pak zadnou polozku, tj. aby ComboBox.Text bylo prazdne. Vybiram takhle tituly a hold se vsichni tak dobre neucili :-)))
M&B
Result set from Oracle stored procedure
[*] suvak(zv)pbko.sk - 19.2.1999 12:45:58
Ahojte,
mozno sa tu najde niekto, kto by mi vedel pomoct s nasledovnym problemom:
Potrebujem z mnoziny vybratej kurzorom v ulozenej procedure vratit jej
podmnozinu.
Koli zlozitym podmienkam sa neda pouzit prikaz select, ktory by vybral
pozadovanu
mnozinu dat.. Musim teda prechadzat po jednotlivych zaznamoch v cykle a
testovat,
ci vyhovuje danej podmienke. Mohlo by to vyzerat asi takto:
CREATE PROCEDURE VyberKontrakt AS
CURSOR Kontrakt IS
SELECT * FROM ZoznamKontraktov WHERE <vyberova podmienka>
Riadok Kontrakt%ROWTYPE;
BEGIN
OPEN Kontrakt;
LOOP
<<DALSI_RIADOK>>
FETCH Kontrakt INTO Riadok;
EXIT WHEN Kontrakt%NOTFOUND;
-- tu nasleduje kopec podmienok, a ak zaznam nevyhovuje, nasleduje skok
na navestie DALSI_RIADOK,
-- kde sa nacita dalsi riadok
IF <zoznam nevyhovujucich podmienok> THEN
GOTO DALSI_RIADOK;
END IF;
-- tu by som chcel vybrat iba riadok, ktory mi vyhovuje, ale neviem ako
to urobit
. . .
END LOOP;
CLOSE Kontrakt;
END;
Otazka znie: Da sa to vobec urobit, a ak ano, ako ???
Dakujem
Peter Suvak
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice
tel.: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
=============================================================
Zmena classu
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.2.1999 12:46:25
Soubory .dmf lze prekonvertovat do textoveho tvaru: convert.exe unit1.dfm
(convert.exe je v Delphi\bin)
Pak to muzes v editaci hromadne nahradit: TEdit -> TMyEdit
A pak to zkonvertujes zpatky: convert.exe unit1.txt
Kazdy objekt ma property ClassName.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P=F8edm=ECt: Zmena classu
> Datum: 19. =FAnora 1999 11:11
>=20
> Vytvoril jsem Form s mnoha Tedit prvky.
> Ted bych ale chtel zmenil aby nebyly
> TEdit ale mym classem (potomek TEdit).
> Kdyz to prepisu v unite, tak mi pak
> hlasi, ze ten a ten by mel byt TEdit
> a jestli chci deklaraci opravit.
> Co musim jeste udelat? Nebo se to musi jinak?
> BTW : jak se da zjistit jakeho classu je dany
> objekt?
>=20
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
ComboBox
[*] rdocekal(zv)csas(tec)cz - 19.2.1999 12:52:47
Tak nastav ItemIndex na -1. Nebo taky muzes dat do Items prazdnej radek a
pak ItemIndex na 0.
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P=F9vodn=ED zpr=E1va-----
> Od: Martin Bab=EDk [mailto:M.Babik(zv)mus(tec)cz]
> Odesl=E1no: 19. =FAnora 1999 12:40
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Re: ComboBox
>=20
>=20
>=20
>=20
> > Nevim, jak combo presvedcit, aby nabizelo pri aktivaci=20
> Formu prvni ci
> nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do=20
> sebe neco nechat
> zapsat. (Neco jako ReadOnly) Dik za podnety.
>=20
> >>Combo.Style nastavit jako sDropDownList
> >>Pri create formu nastavit Combo.ItemIndex na hodnotu,=20
> kterou pozadujes.
> >>Pozor, cislovano od nuly
>=20
> To by bylo dobre, kdybych jeste vedel, coz jsem ovsem poprve=20
> zapomnel podotknout, jak nevybrat pak zadnou polozku, tj. aby=20
> ComboBox.Text bylo prazdne. Vybiram takhle tituly a hold se=20
> vsichni tak dobre neucili :-)))
>=20
>=20
>=20
> M&B
>=20
>=20
ComboBox
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 19.2.1999 12:53:11
Martin Bab=EDk wrote:
> > Nevim, jak combo presvedcit, aby nabizelo pri aktivaci Formu prvni c=
i
> nekolikatou hodnotu z Items, aniz by dovolilo uzivateli do sebe neco ne=
chat
> zapsat. (Neco jako ReadOnly) Dik za podnety.
>
> >>Combo.Style nastavit jako sDropDownList
> >>Pri create formu nastavit Combo.ItemIndex na hodnotu, kterou pozaduje=
s.
> >>Pozor, cislovano od nuly
>
> To by bylo dobre, kdybych jeste vedel, coz jsem ovsem poprve zapomnel =
podotknout, jak nevybrat pak zadnou polozku, tj. aby ComboBox.Text bylo p=
razdne. Vybiram takhle tituly a hold se vsichni tak dobre neucili :-)))
>
> M&B
skus
combobox1.itemindex:=3D -1;
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
TBatchMove kontra autoinkrement pole
[*] Kovac <kovac(zv)pvt.sk> - 19.2.1999 13:05:48
TBatchMove ma property Mappings. Urcuje, ktore fieldy sa maju prenasat
a kam ( ak tabulky nemaju zhodnu strukturu, alebo nechces prenasat vsetky
fieldy).
Takze mozes to skusit napr. takto:
Tabulku na MS SQL vytvor aj s identity column.
TBatchMove nastav Mode na batAppend.
Do Mappings napis vsetky polia okrem identity.
(pisu sa tam tusim riadky
source_field1=3Ddest_field1
source_field2=3Ddest_field2
...
)
Execute.
-----Original Message-----
From: Pavol Griga <paly(zv)sct.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 18. febru=E1r 1999 20:38
Subject: TBatchMove kontra autoinkrement pole
> Nevie mi niekto poradit ako prinutit TBatchMove, aby lokalnu
>tabulku v paradoxe, ktora ma autoinkrementalny primarny kluc, prehodil
>na MS-SQL server, tak aby tam bola tiez autoinkremntalnym primarnym
>klucom (tzv. IDENTITY a PRIMARY KEY).
>
> Alebo nevie mi niekto povedat nejakej free utilite prip. kompone=
nte
>ktora to dokaze (pozn. DataPump to tiez nedokaze).
>
> vopred vdaka za kazdu radu
>
> Pavol Griga
>
>Nastavenie fontu
[*] Lubos <bruce(zv)pobox.sk> - 19.2.1999 13:11:06
Caute All !
Da sa nejako nastavit konkretny font pre celu aplikaciu ?
vdaka.
/LH
Indexy
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.2.1999 13:21:48
Ahoj,
Mam nasledujici zdrojak:
( Pokousim se vytvorit za behu tabulku a indexy k ni (a prave
s tema indexama mam jeden problem)
Na formulari mam tabulku tbMail a tlacitko Button1, kterym se
spusti tato procedurka:
{-------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
tbMail.TableName := 'Tabulka3';
tbMail.DatabaseName := 'F:\';
tbMail.TableType := ttParadox;
{ Definice atributu tabulky }
with tbMail.FieldDefs do begin
Clear;
Add ('Date', ftDateTime, 0, true);
Add ('From', ftString, 50, false);
Add ('Subject', ftString, 100, False);
Add ('Mail', ftMemo, 0, False);
end;
{ Vytvorime indexy podle Data, Subjectu a From }
tbMail.IndexDefs.Clear;
tbMail.IndexDefs.Add ('iDate', 'Date', [ixPrimary]);
tbMail.IndexDefs.Add ('iFrom', 'From', []);
tbMail.IndexDefs.Add ('iSubject', 'Subject', [ixDescending]);
tbMail.CreateTable;
tbMail.Open;
end;
{-------------------------------------------------------------}
Kdyz to spustim tak to hlasi tuto chybu:
-----------------------------------------------------------
Project Pr1.exe raised exception class EDBEngineError with
message 'Invalid Index/tag name.
Table does not exist.
Table: F:\Tabulka3
Index: iFrom
File or directory does not exist.
File: F:\Tabulka3.DB'
Process stoppped Use Step or Run to continue.
-----------------------------------------------------------
Pokud ale misto prazdnych zavorek ([])
tbMail.IndexDefs.Add ('iFrom', 'From', []);
zapisu
tbMail.IndexDefs.Add ('iFrom', 'From', [ixDescending]);
Tak je to v pohode....jenomze to ja nepotrebuju :-((
Nevite co s tim, kde je chyba? Muze mi nekdo poradit?
Petr Vaclavek
SQL
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 13:30:16
To by me zajimalo jak to myslis.
Ja mam tabulku2 s fieldy PK a typ
a chci z tabulky1 vymazat vsechny radky,
kde typ='neco', pricemz v teto
tabulce je sloupec PK (foreign key).
Jak se pri pouziti TTable (oproti TQuery)
vyhnu vicenasobnemu pouziti delete?
Prece to budu volat stejne, jen budu mit
vecsi mnozinu dat, ne?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+> -----Original Message-----
> From: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
> Sent: Friday, February 19, 1999 11:51 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: SQL
>
>
> > To se opravdu neda nejak obejit tento delete prikaz (Delphi
> > 1, paradox):
> > DELETE FROM [table1] WHERE column IN
> > (SELECT column1 FROM [table2])
> > jinak nez nacitani select do Query a pak pro kazdy zaznam za volat
> > delete?
>
> neznam moc paradox, ale vzhledem k tomu, ze by mu melo
> byt LocalSQL site na miru, tak asi ne.
> Kdyz jsem ale delal v Delphi 1 nad paradox. tabulkami,
> mazal jsem radeji bez SQL primo pomoci TTable.
> Bylo nekolikrat rychlejsi prochazet TTable nez TQuery.
> Myslim, ze to bude i rychlejsi nez opakovane volani DELETE.
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!
>
ComboBox
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 19.2.1999 13:37:56
>>Tak nastav ItemIndex na -1. Nebo taky muzes dat do Items prazdnej radek a
>>pak ItemIndex na 0.
Jak uzivatel nastavi ItemIndex na -1?
M&B
Opet neco jako makrosubstituce
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 19.2.1999 13:46:49
Petr
p.sadovsky(zv)atlas(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 19. =FAnora 1999 12:57
P=F8edm=ECt: RE: Opet neco jako makrosubstituce
>> Ahojte,
>> potreboval bych vytvorit tabulku v promenne pom je jeji nazev a fce
>> CreaSpis() mi vraci strukturu tabulky a D4 nemuzu donutit,
>> aby mi to vzalo.
>>
>> create table pom+' '+CreaSpis()
>>
>> Diky za kazdou radu.
>>
>> Petr
>> p.sadovsky(zv)atlas(tec)cz
>
>Nemuzes byt jeste strucnejsi?
>To si mame domyslet, kam to "create table pom+' '+CreaSpis()"
>vlastne pises? Aby nakonec vyslo najevo, ze michas
>Pascal a SQL dohromady? Nebo s temi registry - nikomu
>asi nebylo moc jasny, o co ti jde.
>"Jakym zpusobem ukladate nastaveni aplikaci?" je otazka
>stejne obecna, jako kdybych se ptal "Jakym zpusobem
>ridis auto?". Co bys mi odpovedel? Ze jezdis rychle,
>ze se musi strcit klicek do zapalovani nebo ze zalezi
>jestli jedes na silnici nebo v terenu? Vsechny ty odpovedi
>by na tu otazku byly stejne dobre.
>Zkus priste napsat, co presne ti nefunguje.
>
>Je to naposled, co ti odpovidam na dotaz ktery si musim sam domyslet.
Verejne se vsem omlouvam, budu se snazit dotazy presne specifikovat,
ale zkuste se zeptat na neco o cem nemate paru a taky kazdy si to jinak
vylozi a hned je vic reseni.
>to, cos napsal (create table pom+' '+CreaSpis()), by nedavalo
>smysl ani v pascalu, ani v databazi s ulozenymi procedurami,
>ktera by to provadela jako SQL. V pascalu zadny prikaz
>create table neexistuje, v SQL by vznikla tabulka 'pom'.
>Pokud chces neco podobneho provest z Delphi, zkus to takhle:
>
>var
> QueryInstance: TQuery;
>...
>
>QueryInstance.SQL.Clear;
>QueryInstance.SQL :=3D 'create table ' + pom + ' ' + CreaSpis();
>QueryInstance.ExecSQL;
Ahaaa, zase jsem zplacal dohromady Pasca a SQL.
Diky moc.TQuery - NET podekovani
[*] Ji�� Toman <jiri.toman(zv)seznam(tec)cz> - 19.2.1999 13:52:16
Hura, hura ... uz to chodi !!!
Dekuji Vsem, kteri mi poradili. Clovek nekdy uplne zblbne. Ja jsem totiz
na zkusebnim pocitaci instaloval znovu BDE a tak jsem tam nemel
nastavenou cestu na .NET. Jeste jednou DIKY.
Ahoj Jirka Toman
>
> >Exception EDBEngineError in module LUZKA.EXE at 000B9D56.
> >Directory is controlled by other .NET file.
> >Directory: C:\AWSCAN3\
> >File: I:\SPITAL\TABUNIS\OBLOZNOST\PDOXUSRS.LCK
> >
>
> Zkontroluj nastaveni NET DIR v BDE. Na vsech stanicich musi byt tahle cesta
> _shodna_, ne, ze jen bude ukazovat na stejne misto.
> Nejlepe se osvedcuji pipelines "\\locahhos\shareddir\datadir".
>
> Bye
> T.B.
Notebook
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 14:10:27
V Deplhi 1 pouzivam object Notebook. V nem jsou tri strany
a na kazde jsou nejake Edity.
Jak k nim muzu pristupovat pres ControlCount
for i:= 0 to Notebook.<neco>.ControlCount-1 do
if (Notebook.<neco>.Controls[i] is TEdit)
and (Notebook.<neco>.Controls[i].Tag = 1) then ...
Co mam za <neco> dosadit? Hledal jsem v helpu a zkousel jsem
vsecno co me napadlo, ale nevim jak z toho.
Da se to sice pres form for i:= 0 to ComponentCount-1 do
ale to bude prochazet vic objektu.
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+Volani DLL z MSSQL
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 19.2.1999 14:12:51
>DLL napsana v Delphi by mela byt korektni.
>Moznym duvodem problemu muze byt, ze za deklaraci neni uvedena klauzule
"stdcall".
>Myslim si to prave proto, ze duvodem problemu je predavani parametru.
ne ne tim to urcite neni ... stejne tak muze byt za deklaraci cdecl apod.
... to jsem vsechno odzkousel, ale nepomohlo to, ... koukal jsem se na
zdrojaky z visual C++ a je jasny, ze pro komunikaci pres DLL s MS SQL
Serverem je potreba nejaka microsofti knihovna srv.h, kde je vyreseny to
predavani parametru ... proste MS SQL s normalnima DLL odmita normalne
pracovat ...
takze bohuzel normalni Delphi DLL volat asi nepujde ... budu to zkouset prez
to C++ .... sakra ... ale vubec se mi to nelibi ... :-(((
zatim diky za ohlasy ...
Jiri Fejfar
Vypocet veku z data narozeni v SQL
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 19.2.1999 14:25:46
Vazeni kolegove,
mam zacatecnicky problem. Pristupuji k dBase tabulce ZACI pomoci
komponenty Query a potrebuji z datumove polozky Narozen vypocitat vek
osoby. Zkousel jsem prikaz ve tvaru:
SELECT Jmeno, Prijmeni, Narozen,(Date()-Narozen)/365 as Vek from ZACI
ale bez uspechu. Proste nevim, jak dostat do SQL dnesni datum
- zkousel jsem SysDate, CurrentDate, ToDay(),_DiaryDate - vsechno
marne. Pokusy jsou neuspesne i v Database Exploreru.
Problem jsem se snazil resit i pomoci parametru takto:
Select Jmeno,Prijmeni,Narozen,:Vek as Vek from Zaci
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var Dnesek:TDateTime;
begin
Dnesek:=Date;
Query1.FieldByName('Vek').AsFloat:=(Dnesek-Query1.FieldByName('Naro
zen').AsDateTime)/365
end;
Ani to vsak nevedlo k uspechu. Pouzivam Delphi 2.0 Developer.
Prosim, poradte, co mam jeste zkusit.
Dekuji J.P
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================
Result set from Oracle stored procedure
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 14:26:59
Nevim jak na Oraclu, ale na Informixu by to bylo takhle:
FOREACH
SELECT a,b,c INTO nA, nB, nC FROM table
If <nejaka podmika> Then
RETURN nA, nB, nC WITH RESUME;
End If;
END FOREACH;
Procedura by vratila pomnozinu dat z table, ktere
vyhovuji pominkam <nejaka pominka>.
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+> -----Original Message-----
> From: suvak(zv)pbko.sk [mailto:suvak(zv)pbko.sk]
> Sent: Friday, February 19, 1999 12:46 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Result set from Oracle stored procedure
>
>
>
>
> Ahojte,
>
> mozno sa tu najde niekto, kto by mi vedel pomoct s
> nasledovnym problemom:
>
> Potrebujem z mnoziny vybratej kurzorom v ulozenej procedure vratit jej
> podmnozinu.
> Koli zlozitym podmienkam sa neda pouzit prikaz select, ktory by vybral
> pozadovanu
> mnozinu dat.. Musim teda prechadzat po jednotlivych zaznamoch
> v cykle a
> testovat,
> ci vyhovuje danej podmienke. Mohlo by to vyzerat asi takto:
>
> CREATE PROCEDURE VyberKontrakt AS
> CURSOR Kontrakt IS
> SELECT * FROM ZoznamKontraktov WHERE <vyberova podmienka>
>
> Riadok Kontrakt%ROWTYPE;
>
> BEGIN
> OPEN Kontrakt;
> LOOP
> <<DALSI_RIADOK>>
> FETCH Kontrakt INTO Riadok;
> EXIT WHEN Kontrakt%NOTFOUND;
> -- tu nasleduje kopec podmienok, a ak zaznam nevyhovuje,
> nasleduje skok
> na navestie DALSI_RIADOK,
> -- kde sa nacita dalsi riadok
> IF <zoznam nevyhovujucich podmienok> THEN
> GOTO DALSI_RIADOK;
> END IF;
> -- tu by som chcel vybrat iba riadok, ktory mi vyhovuje,
> ale neviem ako
> to urobit
> . . .
>
> END LOOP;
> CLOSE Kontrakt;
> END;
>
> Otazka znie: Da sa to vobec urobit, a ak ano, ako ???
>
> Dakujem
> Peter Suvak
>
> =============================================================
> Ing. Peter Suvak, veduci oddelenia spravy systemov
> Priemyselna banka, a.s. Kosice
> Sturova 27
> 040 01 Kosice
>
> tel.: 095 / 6804 282
> fax: 095 / 6804 510
> mobil: 0903 610 901
> =============================================================
>
>
Indexy
[*] Petr Hartman <medisoft(zv)uo.fairnet(tec)cz> - 19.2.1999 15:02:33
Ahoj,
v pripade, ze vytvaris index pouze nad jednim polem tabulky, musis pouzit jmeno indexu stejne jako nazev pole. Nazev indexu ruzny od nazvu pole muzes pouzit v pripade, ze parametr [] nebude prazdny, tedy kdyz pouzijes napr. [ixDescending] nebo [ixCaseInsensitive].
Tedy:
tbMail.IndexDefs.Add ('From', 'From', []);
nebo
tbMail.IndexDefs.Add ('iFrom', 'From', [ixCaseInsensitive]);
S pozdravem
Petr Hartman
----------
Od: Slavek Rydval[SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
Odesl�no: 19. �nora 1999 13:21
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: (Fwd) Indexy
Ahoj,
Mam nasledujici zdrojak:
( Pokousim se vytvorit za behu tabulku a indexy k ni (a prave
s tema indexama mam jeden problem)
Na formulari mam tabulku tbMail a tlacitko Button1, kterym se
spusti tato procedurka:
{-------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
tbMail.TableName := 'Tabulka3';
tbMail.DatabaseName := 'F:\';
tbMail.TableType := ttParadox;
{ Definice atributu tabulky }
with tbMail.FieldDefs do begin
Clear;
Add ('Date', ftDateTime, 0, true);
Add ('From', ftString, 50, false);
Add ('Subject', ftString, 100, False);
Add ('Mail', ftMemo, 0, False);
end;
{ Vytvorime indexy podle Data, Subjectu a From }
tbMail.IndexDefs.Clear;
tbMail.IndexDefs.Add ('iDate', 'Date', [ixPrimary]);
tbMail.IndexDefs.Add ('iFrom', 'From', []);
tbMail.IndexDefs.Add ('iSubject', 'Subject', [ixDescending]);
tbMail.CreateTable;
tbMail.Open;
end;
{-------------------------------------------------------------}
Kdyz to spustim tak to hlasi tuto chybu:
-----------------------------------------------------------
Project Pr1.exe raised exception class EDBEngineError with
message 'Invalid Index/tag name.
Table does not exist.
Table: F:\Tabulka3
Index: iFrom
File or directory does not exist.
File: F:\Tabulka3.DB'
Process stoppped Use Step or Run to continue.
-----------------------------------------------------------
Pokud ale misto prazdnych zavorek ([])
tbMail.IndexDefs.Add ('iFrom', 'From', []);
zapisu
tbMail.IndexDefs.Add ('iFrom', 'From', [ixDescending]);
Tak je to v pohode....jenomze to ja nepotrebuju :-((
Nevite co s tim, kde je chyba? Muze mi nekdo poradit?
Petr Vaclavek
Indexy
[*] Karel Chmel <kchmel(zv)csob(tec)cz> - 19.2.1999 15:03:57
Pokud se vytvari index jenom z jedne polozky, musi se bud jmenovat stejne=
jako=20
ta polozka (v tomto pripade tedy "From"), nebo musi byt vyplnen typ
(treba IxCaseInsensitive)
Karel
----------
> Odes=EDlatel: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: (Fwd) Indexy
> Datum: 19. =FAnora 1999 13:21
>=20
> Ahoj,
>=20
> Mam nasledujici zdrojak:
> ( Pokousim se vytvorit za behu tabulku a indexy k ni (a prave=20
> s tema indexama mam jeden problem)
> Na formulari mam tabulku tbMail a tlacitko Button1, kterym se
> spusti tato procedurka:
>=20
> {-------------------------------------------------------------}
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> tbMail.TableName :=3D 'Tabulka3';
> tbMail.DatabaseName :=3D 'F:\';
>=20
> tbMail.TableType :=3D ttParadox;
>=20
> { Definice atributu tabulky }
> with tbMail.FieldDefs do begin
> Clear;
> Add ('Date', ftDateTime, 0, true);
> Add ('From', ftString, 50, false);
> Add ('Subject', ftString, 100, False);
> Add ('Mail', ftMemo, 0, False);
> end;
>=20
> { Vytvorime indexy podle Data, Subjectu a From }
> tbMail.IndexDefs.Clear;
> tbMail.IndexDefs.Add ('iDate', 'Date', [ixPrimary]);
> tbMail.IndexDefs.Add ('iFrom', 'From', []);
> tbMail.IndexDefs.Add ('iSubject', 'Subject', [ixDescending]);
>=20
> tbMail.CreateTable;
>=20
> tbMail.Open;
> end;
> {-------------------------------------------------------------}
>=20
> Kdyz to spustim tak to hlasi tuto chybu:
> -----------------------------------------------------------
> Project Pr1.exe raised exception class EDBEngineError with=20
> message 'Invalid Index/tag name.
> Table does not exist.
> Table: F:\Tabulka3
> Index: iFrom
> File or directory does not exist.
> File: F:\Tabulka3.DB'=20
> Process stoppped Use Step or Run to continue.
> -----------------------------------------------------------
>=20
> Pokud ale misto prazdnych zavorek ([])
> tbMail.IndexDefs.Add ('iFrom', 'From', []);
> zapisu
> tbMail.IndexDefs.Add ('iFrom', 'From', [ixDescending]);
> Tak je to v pohode....jenomze to ja nepotrebuju :-((
>=20
> Nevite co s tim, kde je chyba? Muze mi nekdo poradit?
>=20
> Petr Vaclavek
SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 15:05:03
> To by me zajimalo jak to myslis.
> Ja mam tabulku2 s fieldy PK a typ
> a chci z tabulky1 vymazat vsechny radky,
> kde typ='neco', pricemz v teto
> tabulce je sloupec PK (foreign key).
> Jak se pri pouziti TTable (oproti TQuery)
> vyhnu vicenasobnemu pouziti delete?
> Prece to budu volat stejne, jen budu mit
> vecsi mnozinu dat, ne?
Nebudes volat SQL prikaz Delete, ale metodu TTable.
A to je rychlejsi - nepamatuji si presne,
ale uz jenom sekvencni prochazeni datasetu
(Prior a Next) bylo v D1 vs PDox nekolikrat
rychlejsi u TTable nez TQuery.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
ComboBox
[*] Mik Radim <mik(zv)oce(tec)cz> - 19.2.1999 15:05:50
ItemIndex= -1 je automaticky po startu, dokud uyivatel nic nevyplni.
Jakmile s tim hne, tak to lze vratit zpet jen programem.
> ----------
> Odes�latel: Martin Bab�k[SMTP:M.Babik(zv)mus(tec)cz]
> Odpovedi: delphi-l(zv)fwd(tec)cz
> Odesl�no: 19. �nora 1999 13:37
> Komu: delphi-l(zv)fwd(tec)cz
> Predmet: RE: ComboBox
>
>
> Jak uzivatel nastavi ItemIndex na -1?
>
>
>
> M&B
> Result set from Oracle stored procedure
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.2.1999 15:32:22
> Nevim jak na Oraclu, ale na Informixu by to bylo takhle:
>
> FOREACH
> SELECT a,b,c INTO nA, nB, nC FROM table
> If <nejaka podmika> Then
> RETURN nA, nB, nC WITH RESUME;
> End If;
> END FOREACH;
>
> Procedura by vratila pomnozinu dat z table, ktere
> vyhovuji pominkam <nejaka pominka>.
Souhlasim s Informixem a prilozim polinko pro MS SQL.
Tam lze fetchovane radky ukladat do docasne tabulky
a na konci procedury provest prikaz
SELECT * FROM TempTable
ktery to vrati
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Vypocet veku z data narozeni v SQL
[*] Petr Hartman <medisoft(zv)uo.fairnet(tec)cz> - 19.2.1999 15:36:59
Ahoj,
pokud bys chtel dnesni datum dostat do SQL prikazu pomoci parametru, muselo by to vypadat asi takto:
SELECT Jmeno, Prijmeni, Narozen,(:Datum-Narozen)/365 as Vek from ZACI
Pred provedenim prikazu bys musel naplnit parametr Datum
Query1.ParamByName('Datum').asDateTime := Date;
Query1.Open;
Nesmele ovsem podotykam, ze zjistovat vek vydelenim poctu dnu 365 neni asi nejvhodnejsi metoda (co prestupne roky ?). Navic jako vysledek dostanes realne cislo, takze bys ho stejne musel jeste nejak upravit.
S pozdravem
Petr Hartman
----------
Od: Plisek Jan Ing.[SMTP:Plisek(zv)spse(tec)cz]
Odesl�no: 19. �nora 1999 14:25
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Vypocet veku z data narozeni v SQL
Vazeni kolegove,
mam zacatecnicky problem. Pristupuji k dBase tabulce ZACI pomoci
komponenty Query a potrebuji z datumove polozky Narozen vypocitat vek
osoby. Zkousel jsem prikaz ve tvaru:
SELECT Jmeno, Prijmeni, Narozen,(Date()-Narozen)/365 as Vek from ZACI
ale bez uspechu. Proste nevim, jak dostat do SQL dnesni datum
- zkousel jsem SysDate, CurrentDate, ToDay(), DiaryDate - vsechno
marne. Pokusy jsou neuspesne i v Database Exploreru.
Problem jsem se snazil resit i pomoci parametru takto:
Select Jmeno,Prijmeni,Narozen,:Vek as Vek from Zaci
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var Dnesek:TDateTime;
begin
Dnesek:=Date;
Query1.FieldByName('Vek').AsFloat:=(Dnesek-Query1.FieldByName('Naro
zen').AsDateTime)/365
end;
Ani to vsak nevedlo k uspechu. Pouzivam Delphi 2.0 Developer.
Prosim, poradte, co mam jeste zkusit.
Dekuji J.P
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================
RX 2.60
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 19.2.1999 15:40:21
Na slabsich strojich haze kompilace DCLRXDB4 interni chybu
kompilatoru pri zapnutem Implicit Build u DCLRX4.
Ondrej Krajicek
Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. wrote:
>
> Mate uz nekdo zkusenosti s RX lib 2.60 pod D4 ? Zajimaji me hlavne
> negativni.
>
> Diky Mira
RX 2.60
[*] milank(zv)gratex.sk - 19.2.1999 16:02:55
D=E1vam tie=9E perli=E8ku k dobru:
Defaultn=E1 hodnota pre EditDate sa zmenila z 0 na -693594, co je z 31.12=
.1899
na 1.1.0000
preto, ak m=E1 niekto v programe podmienku pre nezadan=FD d=E1tum na test=
ovanie
defaultnej hodnoty(value=3D0) prestane to fungova=9D.
Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. wrote:
>=20
> Mate uz nekdo zkusenosti s RX lib 2.60 pod D4 ? Zajimaji me hlavne
> negativni.
>=20
> Diky Mira
ComboBox
[*] Ji�� Toman <jiri.toman(zv)seznam(tec)cz> - 19.2.1999 16:33:15
=3D?ISO-8859-1?Q?Martin=3D20Bab=3DEDk?=3D p=ED=9Ae:
>=20
> >>Tak nastav ItemIndex na -1. Nebo taky muzes dat do Items prazdnej rad=
ek a
> >>pak ItemIndex na 0.
>=20
> Jak uzivatel nastavi ItemIndex na -1?
>=20
> M&B
Nastav to treba v FormShow.
Jirka.
Notebook
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 19.2.1999 16:34:57
Controls nebo Components viz. help k TControl
Ondrej Krajicek
Jezek Petr, Ing. (DELVINA) wrote:
>
> V Deplhi 1 pouzivam object Notebook. V nem jsou tri strany
> a na kazde jsou nejake Edity.
> Jak k nim muzu pristupovat pres ControlCount
> for i:= 0 to Notebook.<neco>.ControlCount-1 do
> if (Notebook.<neco>.Controls[i] is TEdit)
> and (Notebook.<neco>.Controls[i].Tag = 1) then ...
>
> Co mam za <neco> dosadit? Hledal jsem v helpu a zkousel jsem
> vsecno co me napadlo, ale nevim jak z toho.
>
> Da se to sice pres form for i:= 0 to ComponentCount-1 do
> ale to bude prochazet vic objektu.
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
Enter klavesa + Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.2.1999 16:51:35
V Delphi 1:
1) Potreboval bych premapovat ENTER klavesu na TAB.
Zkousel jsem to v OnKeyDown formu (s nastavenym KeyPreview
=true), ale jak mam zmenit Key nebo ho uplne ignorovat?
Zkousel jsem prirazovat do Key neco jineho,
ale nejak to neslo (narozdil od KeyPress).
2) Kdyz mam v tabulce (Paradox) nejake indexy a pouzivam
TQuery, je zabezpecene, ze budou pouzity spravne
indexy nebo se to musi nejak nastavit (kde)?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+
Enter klavesa + Paradox
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 19.2.1999 17:19:15
Martin Fron=ECk
ZZN Slan=FD a.s.
Pra=BEsk=E1 1579, 274 49, Slan=FD
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P=F9vodn=ED zpr=E1va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> P=F8edm=ECt: Enter klavesa + Paradox=20
>=20
> 1) Potreboval bych premapovat ENTER klavesu na TAB.
> Zkousel jsem to v OnKeyDown formu (s nastavenym KeyPreview
> =3Dtrue), ale jak mam zmenit Key nebo ho uplne ignorovat?
> Zkousel jsem prirazovat do Key neco jineho,=20
> ale nejak to neslo (narozdil od KeyPress).
>=20
[Martin Fron=ECk] Jednoduse priradis do Key jinou hodnotu, nebo 0
RX 2.60
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.2.1999 17:43:54
V komponente TDBStatusLabel (vyborna vec pro databaze, strkame to do
status baru - ukazuje to na kterem zaznamu z kolika jsi napr. 345:1526 a
pak to umi ukazat jeste obrazkem jestli je dataset v editu nebo insertu
ci browsu). No a tahle skvela komponenta ve 2.60 nechodi, kdyz je
AutoSize na False, cimz mi prestala chodit ve vsech programech.
Mac
P.S. Kdyby jste se nekdo nudil a zjistil cim to je (potazmo to opravil)
tak bych byl desne vdecen. Ja to nestiham a ani nevim, jestli bych to
umel :-) Psal jsem o tom jednomu z autoru (tomu tretimu v seznamu ;-) a
zadna odezva...
"Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o." wrote:
> Mate uz nekdo zkusenosti s RX lib 2.60 pod D4 ? Zajimaji me hlavne
> negativni.
>
> Diky Mira
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Zmena classu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.2.1999 18:09:28
Jezek Petr, Ing. (DELVINA) wrote:
> Vytvoril jsem Form s mnoha Tedit prvky.
> Ted bych ale chtel zmenil aby nebyly
> TEdit ale mym classem (potomek TEdit).
> Kdyz to prepisu v unite, tak mi pak
> hlasi, ze ten a ten by mel byt TEdit
> a jestli chci deklaraci opravit.
> Co musim jeste udelat? Nebo se to musi jinak?
> BTW : jak se da zjistit jakeho classu je dany
> objekt?
Jeste je treba vlezt do zdroje dfm (Alt+F12) a prepsat to i tam.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
D2 C/S-> D4 C/S
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 19.2.1999 19:47:55
Ahoj,
planujeme prechod z Delphi 2.0 na Delphi 4.0, oboje C/S edice.
Chtel bych se zeptat co muzeme ocekat za problemy, jedeme proti Informixu.
Pujde bez problemu prelozit D2 aplikace v D4?
Co SQL Linky a BDE, jak je to s kompatibilitou?
Dik.
Leos Urban
RX 2.60
[*] Mirun <forcom(zv)telecom(tec)cz> - 19.2.1999 19:53:08
Nevim jak v D4, ale pokud je u DBGridu nastaven RowLines a ColLines na Fa=
lse
a TitleButtons na True, tak se blbe zobrazuje radek na kterym je Focus (d=
ela
to bile mezery mezi sloupci a radky). Zatim jsem nemel cas najit kde je
zakopanej pes...
Jeste je tam jedna takova neprijemnost v DBGridu, zobrazovani znacky
setrideni se neustale zobrazuje vpravo, i kdyz je Title zarovnan doprava,
coz se micha s textem, musel jsem si to dopsat sam - drive byla s autory
komunikace lepsi, ted uz na namitky neodpovidaji. (ale za ty prachy :-)))
Jeste jedna podobna pripominka ke QuickReportu v3 Pro, autori v QuSoftu s=
e
stale jeste nenaucili pouzivat Free. Nekdy mam pocit, ze je to naschval, =
aby
si uzivatel musel koupit zdrojaky, a dopsat si to sam (coz nastesti neni =
tak
slozite, ale kdyz uz si neco koupim, bylo by dobre mit to v cene)
Mirun
-----P=F9vodn=ED zpr=E1va-----
Od: Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. <bonnel(zv)telecom(tec)cz=
>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 19. =FAnora 1999 12:54
P=F8edm=ECt: RX 2.60
>Mate uz nekdo zkusenosti s RX lib 2.60 pod D4 ? Zajimaji me hlavne
>negativni.
>
>Diky Mira
>
>Setup
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 19.2.1999 20:30:40
[P��loha v souboru: Peter �IRIP.vcf]
Zdravim,
ja problem s registrami nevidim, su vyborne, ale vadi mi na nich jedna vec :
casto sa mi stane, ze si zababrem Windows kadejakymi demami, ktore ale
nechaju po odinstalacii vela humusu v registroch. Windows sa mi potom
velmi-velmi spomaluje a preto ho jednoducho zmazem, a tym zmazem aj
registre. Mam ale nejakz SW ktory ma nastavenia velmi siroke, preto by
strasne bodlo, keby sa to predsa len dalo do nejakeho externeho suboru. A
tiez pri praci v sieti ten subor mohol byt zdielany ...
Peter.
PETER CIRIP - PSOFT
Delphi components, barcode
psoft(zv)ke.telecom.sk
http://www.ke.telecom.sk/psoft
-----P�vodn� spr�va-----
Od: Ing. Miroslav Ondrisek, Bonnel Technologie, s.r.o. <bonnel(zv)telecom(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 19. febru�r 1999 13:45
Predmet: Re: Setup
>To, ze jsou registry uzitecne neni predmetem sporu. Zvlaste pokud jde o
>uzivatelska nastaveni. To neni ten problem. Jenze obcas by se hodilo
>(zvlast pro nastaveni vetsiho mnozstvi vice strukturovanych parametru
>mit k dispozici neco jako INI soubor se strukturou registru. Uzivatelsky
>citlive parametry se do tech registru daji nadrapat vzdycky, to prece
>neni to tema.
>
>Mira
>
>-----P�vodn� zpr�va-----
>Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 19. �nora 1999 9:48
>P�edm�t: Re: Setup
>
>
>Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, Bonne dne 19 Feb
>99,:
>
>> Nerad pouzivam Registry, protoze vim, jak me to rozciluje pri
>instalaci
>> jinych programu, ktere behem casu zaneradi registry hroznym balastem,
>o
>> kterem jiz casto instalacni progam nevi. Pokud by nekdo vedel o
>
>Registr je moc dobra a dulezita vec...
>
>> komponente, ktera umi pracovat se soubory stejneho typu jako jsou
>> registry, ale samostatnym, libovolne umistenym, mazatelnym atd. Proste
>> takovy INI soubor se strukturou Registru. Nebyl by to namet pro
>Delphree ?
>
>A jak udelas sekci uzivatelu? Pro to uz je podpora primo v registru
>a to je velke ulehceni.
>
>
>S pozdravem
> Petr Zahradnik, pocitacovy expert
>
>Autorizovany dealer TurboPower Software... knihovny pro Delphi
>==============================================================
>=== Petr Zahradnik - Computer Laboratory ===
>=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
>=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
>=== mobilni telefon GSM (hotline): 0602-409601 ===
>=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
>==============================================================
>ICQ: 21215917, PGP vitano
>
>
>ComboBox
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.2.1999 21:29:15
> Jak uzivatel nastavi ItemIndex na -1?
****Teeezko. Resim to tak, ze jako prvni je text jako treba "Nic z toho" nebo
"--NIC--" a podobne. Dale muzes vedle toho dat tlacitko, ktere to vymaze a
podobne.
Slavek
> > M&B
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Setup
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.2.1999 23:34:07
Puvodni zprava, kterou napsal Ing. Miroslav Ondrisek, Bonne dne 19 Feb 99,:
> To, ze jsou registry uzitecne neni predmetem sporu. Zvlaste pokud jde o
> uzivatelska nastaveni. To neni ten problem. Jenze obcas by se hodilo
> (zvlast pro nastaveni vetsiho mnozstvi vice strukturovanych parametru mit
> k dispozici neco jako INI soubor se strukturou registru. Uzivatelsky
> citlive parametry se do tech registru daji nadrapat vzdycky, to prece neni
> to tema.
OK, da se prece ulozit TTreeView, tak by to slo...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano