Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
NT a RemoveDir
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 28.2.2000 09:41:17
Delame to pod loginem ADMINA.
Ale uz je to stejne passe, uz jsme prisli na to. Delal to jeden zasity kus kodu, kde
autor zapomel FindClose :-))).
No a W95 toto sice prejdou a smazou, ale NT s NTFS to nesmazou.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Milan Sorm [SMTP:xsorm(zv)informatics.muni(tec)cz]
> Odesl�no: 23. �nora 2000 17:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: NT a RemoveDir
>
> Thu, Feb 17, 2000 ve 02:42:38PM +0100 Martin Lasevic napsal:
> # Zdravim a mam mensi problem na Win NT 4.0, SP5.
> #
> # V moji aplikaci, ktera je modularni se stava pravidelne, ze mam nejakou
> # adresarovou strukturu, kde je ve vercholovem adresari nejaky soubor.
> #
> # Mam utilitku, ktera mi ma cely strom odmazat, ale ouha soubory odstrani a
> # necha jen
> # strom s tim, ze removedir hlasi False a pri pokusu o rucni smazani je chyba
> # sdileni.
> #
> # Otazka zni: Na Wi 95 tento problem neni - muze byt zavislost na typu FAT
> # tabulky?
> # Da se nejak zjistit, ktery proces tento adresar drzi?
> #
>
> Prava na adresare ? Delate to jako Administrator nebo jako uzivatel ?
> Pozor na ruzne chovani aplikaci typu POSIX a Win32 (v pristupu k pravum na
> adresare...)
>
> --milan sorm
>
> web kamera - hardware
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 28.2.2000 09:42:19
Ahojka,
muj nadrizeny se vzhledl v moznostech webu a videa
a chce nam poridit na vstupni dvere video kameru (nebo neco
jineho) abychom mohli sledovat kdo prichazi do firmy.
Damska cast osazenstva se vecer vice boji. :-)
Tak by me zajimaly zkusenosti s hardwarem, jak jej
programovat, kde jej koupit a podobne. Jsme tu
sami kutilove a mame i trosku toho cinu na pripadne
vyrobky. Navic je to celkem prijemne povyrazeni z
nudneho pracovniho dne.
Dekuji
Martin
SQL
[*] Juraj Skotnicky <juraj.skotnicky(zv)jdsoftware.sk> - 28.2.2000 09:43:49
Ahoj,
SQL prikaz:
SELECT os, COUNT(os) FROM tabulka
GROUP BY os
HAVING COUNT(os) > 1
vypise, kolko krat sa dane os nachadza v stlpci, ak je tam viac
ako jeden krat.
Juro
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Miroslav �ipel
Sent: Monday, February 28, 2000 9:19 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL
ahoj,
mam tabulku s polem id - autoincrement, os - integer a jmeno - string a
chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve sloupci os
(osobni cisla).
M.Pakovanie InterBase databazy.
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 28.2.2000 09:45:16
K tomu be mela slouzit volba sweep na serveru.
Pavel
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, February 27, 2000 11:36 PM
Subject: Pakovanie InterBase databazy.> Zdravim.
>
> Je mozne nejakym rozumnejsim sposobom pakovat databazy IB, ako cez
IBServer
> Manager pomocou BackUp a nasledny restore ?
>
> Hi. Roland.
>
SQL
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 28.2.2000 09:46:32
SELECT os, count(*) from <table> group by os having count(*)>1
Petr
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Miroslav �ipel
> Sent: Monday, February 28, 2000 9:19 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: SQL
>
>
>
> ahoj,
>
> mam tabulku s polem id - autoincrement, os - integer a
> jmeno - string a
> chtel bych se zeptat jak pomoci SQL zjistit duplicitn�
> polo�ky ve sloupci os
> (osobni cisla).
>
>
> M.
> Pakovanie InterBase databazy.
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 28.2.2000 09:59:19
Ahoj,
Slavomir Skopalik wrote:
> O zadnem jinem zpusobu nevim, spis bych se podival na nastaveni SweepInterval,
> nebot interbase vytvari pri kazdem update novou kopii zaznamu, stare zaznamy odstrani
> az po zavolani funkce SWEEP, nebo automaticky po urcitem poctu transakci, defautne
> 20000.
tohle neni pravda, tech 20000 je rozdil mezi poradovym cislem pristi transakce a OIT
("nejstarsi zajimava transakce") - viz. dokumentace
stare verze zaznamu se napr. taky uvolnuji tim, ze s nimi db engine neco provede - napr.
select * from tabulka where id=5 automaticky odstrani jiz nepotrebne verze zaznamuv
tabulce, kde id=5
> Zdravim.
>
> Je mozne nejakym rozumnejsim sposobom pakovat databazy IB, ako cez IBServer
> Manager pomocou BackUp a nasledny restore ?
>
> Hi. Roland.
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
SQL
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 28.2.2000 10:03:28
Select os, count(os) from table
group by os
having count(os)>1
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Miroslav �ipel
> Sent: Monday, February 28, 2000 9:19 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: SQL
>
>
> ahoj,
>
> mam tabulku s polem id - autoincrement, os - integer a jmeno
> - string a
> chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve
> sloupci os
> (osobni cisla).
>
> M.
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
SQL
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 28.2.2000 10:20:53
select os,count(*)
from tabulka
group by os
having count(*)>1
tehle select vypise jen duplicitni os a pocet vyskytu.
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Miroslav �ipel
Odesl�no: 28. �nora 2000 9:19
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: SQL
ahoj,
mam tabulku s polem id - autoincrement, os - integer a jmeno - string a
chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve sloupci os
(osobni cisla).
M.
SQL
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 28.2.2000 10:29:56
mam tabulku s polem id - autoincrement, os - integer a jmeno - string a
chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve sloupci os
(osobni cisla).
SELECT OS, Count(OS) AS Pocet
FROM Tabulka
GROUP BY OS
HAVING Pocet>1
Velikost client area u MDIForm
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.2.2000 10:37:49
Ahoj,
pri vytvareni MDIChild okna jsem narazil na problem presneho urceni
velikosti client area na MDIForm. Pokud do udalosti FormCreate child okna
dam
...
Top := 0;
Left := 0;
Width := FrameForm.ClientWidth; // Frame Form je MDIForm
Height := FrameForm.ClientHeight;
tak se vytvori Child okno tak, ze se nevejde do Client area (vytvori se
scrollbary). Pokud sirku a vysku zmensim o 4, vejde se (to plati jen pro
pripad, ze na MDIFormu neni zadny status bar apod.). Zkousel jsem volat i
ruzne funkce API (uz si nepamatuju, ktere to vsechny byly) pro ClientHandle,
ale bez vysledku. Pritom bych rekl, ze to nejak fungovat musi, protoze kdyz
zavolam Tile na jeden MDIChild, tak se to roztahne presne. Bohuzel funkce
Tile konci volanim
SendMessage(ClientHandle, WM_MDITILE, TileParams[FTileMode], 0);
coz mi o rozmerech Client area rekne kulove.
Nevite tedy nekdo, jak ty rozmery ziskat ?
Diky za napady.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
SQL
[*] Kalivoda Jozef <KaliJ(zv)spas.sk> - 28.2.2000 10:38:11
select count(*),os from tabulka group by os
-----Original Message-----
From: Miroslav �ipel [mailto:Miroslav.Cipel(zv)oku-tu(tec)cz]
Sent: Monday, February 28, 2000 9:19 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL
ahoj,
mam tabulku s polem id - autoincrement, os - integer a jmeno - string a
chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve sloupci os
(osobni cisla).
M.query a BLOB
[*] j_jura(zv)adast(tec)cz <j_jura(zv)adast(tec)cz> - 28.2.2000 10:41:20
Zdarec
Chtel bych se zeptat, zda-li jde nejakym rozumnym zpusobem ulozit
text vetsi jak 32 kB. Na serveru AS/400 mam k dispozici datove typy jako
CLOB, DBCLOB, BLOB. Zkousel jsem ukladat pres SQL (definoval jsem
parametr jako BLOB, pristup k AS/400 pres ODBC), ale dotaz skoncil na
hlasce: podpora extended danamic znepristupnena i pres to, ze ji mam v
definici konkretniho ODBC zdroje povolenu. Poradte mi prosim jak na to,
predem dekuji.
Jarda
SQL
[*] Radek =?iso-8859-2?Q?Hole=E8ek?= <holecekr(zv)upfm(tec)cz> - 28.2.2000 10:46:40
> mam tabulku s polem id - autoincrement, os - integer a jmeno - string a
> chtel bych se zeptat jak pomoci SQL zjistit duplicitn� polo�ky ve sloupci os
> (osobni cisla).
Melo by to jit takhle:
SELECT Os, Count(*)
FROM tabulka
HAVING Count(*) > 1
GROUP BY Os
Radek
off top. NT a sdileni
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 28.2.2000 11:15:54
Ahoj predem se omlouvam za off topic ale stava se mi tu dost casto ze pokud
mame nastaveno mapovani na sdilenou jednotku (pres telefonni linku
pomoci prikazu WNetAddConnection2) tak se obcas stane, ze se spojeni
prerusi a na NT serveru zustane viset sdilena jednotka napr. L: (ktera se
tvarila predtim jako L:\\192.168.1.1\share),ktera se neda odmapovat, protoze
hlasi ze: Not connected to specified resource or on specified device a kdyz
dam aby se znovu namapovala tak hlasi: Local device already assigned.
Je to bludnej kruh a jediny reseni je restart. Nevite nekdo co s tim ?
nebo pripadne nasmerovat na spravnou konferenci.
diky
Showexecute...minimalized
[*] Michal Kop��ek - 28.2.2000 11:24:00
Dotaz,
mam prikaz pro exec. : shellexecute ...
shel
lexe
cute(Application.handle,nil,(zv)current_file[1],nil,nil,SW_SHOWMINNOACTIVE);
a pot�ebuju aby okno, kter� otv�r�m bylo minimalizovan� ale i s touto
deklarac� se tak ned�je?
nevite prosim nekdo v cem je chyba?
dik
************************************
Michal Kop��ek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
rozdielna velkost pri tlaceni BMP
[*] Lauko �tefan <lauko(zv)salamon.sk> - 28.2.2000 11:37:58
Dobry,
ten priklad nebol uplny myslel som ze sa pozriete do helpu. Ziskanie PixelsPerInch (monitora) je nasledovne.
GetDeviceCaps(GetDC(0), LOGPIXELSX).
Vyskusajte toto:
var
DC: HDC;
begin
DC := GetDC(0); {Handle monitora}
Caption:=IntToStr(GetDeviceCaps(DC, LOGPIXELSX));
end;
----- Original Message -----
From: Ing. J�n Kuch�r
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, February 28, 2000 9:33 AM
Subject: Re: rozdielna velkost pri tlaceni BMP
caute
pred casom som sa pytal na rozdielnu velkost pri tlaci BMP obrazku na tlaciarni.
Bolo mi doporucene nasobit dlzku a vysku obrazku cez vypocitany pomer, teraz som
sa k tomu konecne dostal a mam nasledovny problem, ked urobim vypocet pomeru
podla doporucenia, stale dojde k chybe stym ze nulou sa neda delit, to znamena ze
GetDeviceCaps(0, LOGPIXELSY)=0, co stym
doporuceny priklad :
Pomer := GetDeviceCaps(Printer.handle, LOGPIXELSY) div GetDeviceCaps(0, LOGPIXELSY);
Printer.Canvas.StretchDraw(rect(0,0,Bmp.Width * Pomer,Bmp.Height * Pomer),Bmp);rozdielna velkost pri tlaceni BMP - doplenenie
[*] Lauko �tefan <lauko(zv)salamon.sk> - 28.2.2000 11:58:16
Este by som to doplnil :
Pri vypocte pomeru musite brat do uvahy zvysok pri deleni cel. cisel.
Na konci odstarnit DC ( ReleaseDC(0, DC);).
Uplny priklad je asi takto:
Var
Pomer : Real;
DC : HDC;
begin
DC:= GetDC(0);
try
Pomer := GetDeviceCaps(Printer.handle, LOGPIXELSX) / GetDeviceCaps(DC, LOGPIXELSX);
Printer.Canvas.StretchDraw(rect(0,0,Round(Bmp.Width * Pomer),Round(Bmp.Height * Pomer),Bmp);
finally
ReleaseDC(0, DC);
end;
end;
----- Original Message -----
From: Ing. J�n Kuch�r
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, February 28, 2000 9:33 AM
Subject: Re: rozdielna velkost pri tlaceni BMP
caute
pred casom som sa pytal na rozdielnu velkost pri tlaci BMP obrazku na tlaciarni.
Bolo mi doporucene nasobit dlzku a vysku obrazku cez vypocitany pomer, teraz som
sa k tomu konecne dostal a mam nasledovny problem, ked urobim vypocet pomeru
podla doporucenia, stale dojde k chybe stym ze nulou sa neda delit, to znamena ze
GetDeviceCaps(0, LOGPIXELSY)=0, co stym
doporuceny priklad :
Pomer := GetDeviceCaps(Printer.handle, LOGPIXELSY) div GetDeviceCaps(0, LOGPIXELSY);
Printer.Canvas.StretchDraw(rect(0,0,Bmp.Width * Pomer,Bmp.Height * Pomer),Bmp);emailovani z Qreportu
[*] Filip Kinsky <delphi007(zv)angelfire(tec)com> - 28.2.2000 03:04:48 -0800
Zdar!
Nevite nekdo, jak by se dalo mailovat z Qreportu?
---
Filip Kinsky, student, amateur programmer :-))
Angelfire for your free web-based e-mail. http://www.angelfire.com
MessageDlg
[*] Lauko �tefan <lauko(zv)salamon.sk> - 28.2.2000 12:08:16
Dobry,
mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by som aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze.
Dakujem Lauko.
OT:HW Test
[*] L. ZITA <konference(zv)sales(tec)cz> - 28.2.2000 12:09:33
Zdravim.
Omlouvam se za mirny OT.
Nevite nekdo nejakem rozumnem SW pro otestovani bezchybne funkce HW.
(Pamet, procesor, HDD...).
Samozrejme pokud mozno free.
Diky
Ludek ZITA
MessageDlg
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 28.2.2000 12:29:38
Co zkusit Application.MessageBox.
Vaclav Sazima
> Lauko �tefan wrote:
>
> Dobry,
> mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval
> by som aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom
> OS sa to spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze.
>
> Dakujem Lauko.
>exception = blue death
[*] Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz> - 28.2.2000 12:44:34
Ahoj,
PC: Celeron 400, 64MB, 4.3GB, S3 Trio3D/2x, OS WIN98 SE CZ
DELPHI 4 std + SP3
mam nasledujici problem:
pokud spustim nasledujici cast kodu
procedure TForm1.Button1Click(Sender: TObject);
var a, b: single;
begin
a := 1; b := 0;
try
ShowMessageFmt('a/b=%f', [a / b]);
except
raise;
end;
end;
tak mi Windows vyhodi modrou obrazovku a hlasku: Na adrese xxxx:yyyy doslo
k
zasadni vyjimce 0E ....
Na pocitaci jsou cisty disk nainstalovany W98 nic vic. Na notebooku to
probehne jak ma.Poradte prosim, kde hledat pricinu.
Diky
P.R.
MessageDlg
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.2.2000 12:45:19
Pouzij misto MessageDlg funkci Application.MessageBox(..);
Jan Fiala
----- Original Message -----
From: Lauko �tefan
Dobry,
mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by som
aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to spusti
(CZ/SK/ENG). Lokalizacia D mi nepomoze.
Dakujem Lauko.
exception = blue death
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 28.2.2000 13:15:16
Nulou nelze delit ani na uvedene konfiguraci s
cistym diskem a Win98 :-)
Martin
-----P�vodn� zpr�va-----
>PC: Celeron 400, 64MB, 4.3GB, S3 Trio3D/2x, OS WIN98 SE CZ
>DELPHI 4 std + SP3
>
>mam nasledujici problem:
>pokud spustim nasledujici cast kodu
>
>procedure TForm1.Button1Click(Sender: TObject);
>var a, b: single;
>begin
> a := 1; b := 0;
> try
> ShowMessageFmt('a/b=%f', [a / b]);
> except
> raise;
> end;
>end;
>
>tak mi Windows vyhodi modrou obrazovku a hlasku: Na adrese xxxx:yyyy doslo
>k
>zasadni vyjimce 0E ....
>Na pocitaci jsou cisty disk nainstalovany W98 nic vic. Na notebooku to
>probehne jak ma.Poradte prosim, kde hledat pricinu.
>
> Diky
> P.R.
>
MessageDlg
[*] Martin Koller <koller(zv)gema(tec)cz> - 28.2.2000 13:34:10
Ahoj
Pouzij MessageBoxA(Handle,Text,Popiska,MB_TaskModal Or MB_Icon... Or
MB_YesNo atd.)
Marty.MessageDlg
[*] Marian Goryl <goryl(zv)otcina.sk> - 28.2.2000 13:36:29
Pouzi API funkcu Windows MessageBoxEx
----- Original Message -----
From: Lauko �tefan
To: Delphi CZ konferencia
Sent: Monday, February 28, 2000 12:08 PM
Subject: MessageDlg
Dobry,
mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by som aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze.
Dakujem Lauko.
MessageDlg
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 28.2.2000 13:54:36
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nepouzivej MessageDlg, ale Application.MessageBox. Umi to co MessageDlg a
bere si standardni okna systemu, tedy na ceskych Windows ceska a na
anglickych anglicka.
Jaromir Cermak
-----Original Message-----
From: Lauko �tefan [mailto:lauko(zv)salamon.sk]
Sent: Monday, February 28, 2000 12:08 PM
To: Delphi CZ konferencia
Subject: MessageDlg
Dobry,
mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by som
aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to
spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze.
Dakujem Lauko.
OT:HW Test
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 28.2.2000 14:05:14
Na pamet je treba http://reality.sgi.com/cbrady_denver/memtest86/
Ales
> Nevite nekdo nejakem rozumnem SW pro otestovani bezchybne funkce HW.
> (Pamet, procesor, HDD...).
> Samozrejme pokud mozno free.
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
exception = blue death
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.2.2000 14:31:59
On 28 Feb 00, at 13:15, Martin Nedopil wrote:
> Nulou nelze delit ani na uvedene konfiguraci s
> cistym diskem a Win98 :-)
To sice ano, ale evidentni zadrhel je v tom, proc to try .. except neosteri...
Zkusil bych dopsat
raise Exception.Create('Bla bla bla');
co to udela.
> -----P�vodn� zpr�va-----
>
> >PC: Celeron 400, 64MB, 4.3GB, S3 Trio3D/2x, OS WIN98 SE CZ
> >DELPHI 4 std + SP3
> >
> >mam nasledujici problem:
> >pokud spustim nasledujici cast kodu
> >
> >procedure TForm1.Button1Click(Sender: TObject);
> >var a, b: single;
> >begin
> > a := 1; b := 0;
> > try
> > ShowMessageFmt('a/b=%f', [a / b]);
> > except
> > raise;
> > end;
> >end;
> >
> >tak mi Windows vyhodi modrou obrazovku a hlasku: Na adrese xxxx:yyyy
> >doslo k zasadni vyjimce 0E .... Na pocitaci jsou cisty disk
> >nainstalovany W98 nic vic. Na notebooku to probehne jak ma.Poradte
> >prosim, kde hledat pricinu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Showexecute...minimalized
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 28.2.2000 14:45:17
Neviem, mne to funguje. Nebude problem v tom, ze ta spustana aplikacia
neumoznuje minimalizaciu ?
----- Original Message -----
From: Michal Kop��ek <m.kopacek(zv)volny(tec)cz>
To: Delphi-Forum <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 11:24 AM
Subject: Showexecute...minimalized
> Dotaz,
>
> mam prikaz pro exec. : shellexecute ...
>
> shel
> lexe
> cute(Application.handle,nil,(zv)current_file[1],nil,nil,SW_SHOWMINNOACTIVE);
>
> a pot�ebuju aby okno, kter� otv�r�m bylo minimalizovan� ale i s touto
> deklarac� se tak ned�je?
>
> nevite prosim nekdo v cem je chyba?
>
> dik
>
> ************************************
> Michal Kop��ek
> http://www.hanatour(tec)cz/mikosoft
> m.kopacek(zv)volny(tec)cz
> mikosoft(zv)seznam(tec)cz
> xkopm13(zv)vse(tec)cz
> ************************************
>
>
>Pervasive SQL
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 28.2.2000 14:54:54
Preji pekny den,
W98SE, D4S
ODBC: Pervasive software ODBC-32, ver. 2.53.03.00
pri pripojeni na Pervesive SQL pres ODBC se mi ve vsech numerickych fieldech
typu FLOAT, SMALLINT krome TINYINT objevi 0 i kdyz realne obsahuji hodnoty.
Pri zobrazeni pomoci nastroje SQLScope primo od Pervesive software je vse
vporadku.
Nesetkal jste se stim nekdo?
Diky, Honza Naiser.
D5 nejdou spustit - vysledek
[*] Anton�n Blatn� - 28.2.2000 15:56:59
Zdravim!
To jsem ja, co mel ty problemy se spustenim D5 na NT4, jak mi Delphi vzdy
skoncily bez napsani jakekoliv hlasky. Pro informaci ostatnim uvadim
vysledky svych pokusu. Nejspise se totiz jedna o "nejak" spatne CD, nebo co.
Kdyz jsem zkusil D5 nainstalovat na W95, instalace probehla uspesne, ale pri
kazdem spusteni se objevovaly rozmanite chybove hlasky, po kterych se Delphi
ani nespustily:
- DSNIDE50.BPL je propojen na chybejici export VCL50.BPL
- Zarizeni pripojene k systemu nefunguje (CommCtrl)
- Chybne volani dynamickeho volani od VWIN32
- obecne poruseni ochrany Kernel32
atd.
Zkusil jsem to znovu odinstalovat a nainstalovat jako Full a najednou uz to
psalo jenom jednu chybu: Can'n load package ...\dclite50.bpl - access
violation in module VCL50.BPL. Po odkliknuti se ale delphi aspon spustily. A
zda se, ze dany package zatim nepotrebuji, protoze mi to funguje. Zkusil
jsem tedy to same na NT4. Vsechno jsem odinstaloval a znovu nainstaloval
jako full (nainstaluj uplne vsechno) a najednou to taky zacalo chodit. Pro
zmenu ale pise hlasku Can't load package ... dphcrb50.bpl a poruchu ve
Vcldb50. Ale uz se to alespon spusti. Je to pro mne zahada, ale jsem rad, ze
kvuli D5 nemusim menit grafickou kartu, ze chyba bude asi nekde jinde.
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
exception=blue death
[*] Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz> - 28.2.2000 14:57:03
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 2:31 PM
Subject: Re: exception = blue death
> On 28 Feb 00, at 13:15, Martin Nedopil wrote:
>
> > Nulou nelze delit ani na uvedene konfiguraci s
> > cistym diskem a Win98 :-)
>
> To sice ano, ale evidentni zadrhel je v tom, proc to try .. except
neosteri...
>
> Zkusil bych dopsat
>
> raise Exception.Create('Bla bla bla');
> co to udela.
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Zkusil jsem - zadna zmena :(
P.R.Co je lepsi pro Create formu?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 28.2.2000 14:59:58
Ahoj,
potykam se problemem pri pouziti explicitne vytvarenych formularu. Je lepsi
pouzit:
Procedure Form1Execute;
Var
Form1:TForm;
Begin
Form1:=TForm.Create(Application);
Try
Form1.ShowModal
Finally
Form1.Free
End;
End;
nebo
Procedure Form1Execute;
Var
Form1:TForm;
Begin
Form1:=TForm.Create(Nil);
Try
Form1.ShowModal
Finally
Form1.Free
End;
End;
?
A proc? Nebo je v tom nejaky rozdil? A lisi se to od verze Delphi?
Mam D1,D2 a D3.
Diky
Jaro B.
mailto:JBenes(zv)cpoj(tec)cz
http://www.micrel(tec)cz/delphi/Prenos Delphi.
[*] Anton�n Blatn� - 28.2.2000 16:02:33
pro D3Prof: Pouzivam nekolik komponent tretich stran a nekolik vlastnich
komponent. Z me instalace D3 mi vsechno chodi (projekty jdou prelozit ...).
Potreboval bych poradit presny a bezpecny zpusob, jak toto sve prostredi
Delphi prenest na jinou instalaci D3 bez nutnosti instalovat komponentu po
komponente. Jde mi o to, abych sve projekty mohl rychle prelozit u nekoho
jineho, kdo ma taky Delphi, ale nema moje komponenty. Navic abych mohl
rychle uvest jeho Delphi do puvodniho stavu. Jake soubory si musim
zkopirovat? A jak vyresit cesty?
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
dokumentace
[*] Miroslav Stulik <mira.delphi(zv)email(tec)cz> - 28.2.2000 15:07:20
Cau
nemate nekdo ceskou dokumentace k Delphi 4.0 nebo Delphi 5.0 ve formatu doc,txt,html,atd.
pokud ano tak mi ji prosim zaslete na mail mira.stulik(zv)post(tec)cz
predem vsem dekuji
mira
Kniha k delphi
[*] Josef ��P����*?j�Z��3 - 28.2.2000 15:20:51
Chtel bych se zeptat jaky je vas nazor na kniky "Borland Delphi - pr�vodce
v�voj��e "
Pripadne mohl by mi nekdo doporucit nejakou kniku k Delphi.
Dik.MessageDlg
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 28.2.2000 15:37:38
Pouzij Application.MessageBox. Muzu ti poslat utilitku, kde si zadas texty,
vyberes ikonu, tlacitka, vyzkousis vzhled a kdyz se ti to libi, tak ti to do
clipboardu rovnou da "Application.MessageBox(.........);" a to jenom pastnes
do zdrojaku
jestli to chces poslat, ozvi se mi na mail
Lubos Rybnicek
ICQ UIN 18817151
Phone: +420 603 916889
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Lauko
�tefan
Sent: Monday, February 28, 2000 12:08 PM
To: Delphi CZ konferencia
Subject: MessageDlg
Dobry,
mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by som
aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to
spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze
Dakujem Lauko
Memo a Selection
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 28.2.2000 15:56:06
Dobry den
mam dotaz
mam na formulari Memo
a po kliknuti na tlacitko chci aby se mi vlozila selekce(text) za kurzor
mysi
prikaz memo1.lines.add(text) se text prida na konec mema, ale je porebuju
aby se vlozil tam kde je kurzor
a jeste druhej dotaz, jak smazat posledni vlozenej text do mema?
deto nejak?
diky moc
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
potlacenie chybovych hlaseni sql servera
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 28.2.2000 16:08:46
Zdravim,
chcem sa spytat, ze ako potlacim chybove hlasenia Sql servera, a namiesto
nich dam svoje err. msg.
Dik, Miso
Podivne chovanie ToolButton-ov
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 28.2.2000 16:47:42
Doteraz som na tlacitka v programe pouzival Panel a SpeedButtony, ale prednedavnom som skusil prejst na ToolBar a ToolButtony a zaregistroval som toto zvlastne chovanie: otvorim si nejaky modalny dialog - napriklad OpenDialog a v nom si dvojklikom vyberiem subor. Ak je na mieste na ktorom som spravil dvojklik v dialogu v spodnom formulari ToolButton, tak sa nanho tato sprava mysi z dialogu prenesie - taketo chovanie vsak ma iba ToolButton - nema ho ani SpeedButton ani ziadna ina komponenta ktoru som vyskusal. Je to sice mozno trivialita, ale pre uzivatela to moze byt dost nebezpecne - z nicoho nic sa mu zacne vykonavat operacia ktoru nechcel vyvolat. Da sa toto chovanie nejako obist ? Pripadne na ake dalsie prekvapenia sa mam pripravit pri pouziti ToolBaru a ToolButtonov ?
Shellexecute...minimalized
[*] Michal Kop��ek - 28.2.2000 17:06:40
muj program spousti Internet explorer a tam natahuje danou stranku?
************************************
Michal Kop��ek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
-----Original Message-----
Neviem, mne to funguje. Nebude problem v tom, ze ta spustana aplikacia
neumoznuje minimalizaciu ?
----- Original Message -----
> Dotaz,
mam prikaz pro exec. : shellexecute ...
she
llex
ecute(Application.handle,nil,(zv)current_file[1],nil,nil,SW_SHOWMINNOACTIVE);
> a pot�ebuju aby okno, kter� otv�r�m bylo minimalizovan� ale i s touto
> deklarac� se tak ned�je?
> nevite prosim nekdo v cem je chyba?
> dik
exception = blue death
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 28.2.2000 17:24:23
Problem mozna bude v tom, ze k tomu deleni nulou dochazi pri vyhodnocovani
parametru ShowMessageFmt. A proc tu vyjimku vlastne vyvolavas? EDivByZero se
raisne uplne samo
co tohle?
procedure TForm1.Button1Click(Sender: TObject);
var a, b: single;
c: real;
begin
a := 1; b := 0;
try
c := a / b;
ShowMessageFmt('a/b=%f', [c]);
except
on E:EDivByZero do begin
ShowMessage('deleni nulou');
end;
end;
end;
Ale jestli trvas na rucnim vyvolani vyjimky, tak vzdycky musis uvest jeji
typ:
raise EDivByZero.Create('Deleni nulou');
Lubos Rybnicek
ICQ UIN 18817151
Phone: +420 603 916889
> >mam nasledujici problem:
> >pokud spustim nasledujici cast kodu
> >
> >procedure TForm1.Button1Click(Sender: TObject);
> >var a, b: single;
> >begin
> > a := 1; b := 0;
> > try
> > ShowMessageFmt('a/b=%f', [a / b]);
> > except
> > raise;
> > end;
> >end;
> >
> >tak mi Windows vyhodi modrou obrazovku a hlasku: Na adrese
> xxxx:yyyy doslo
> >k
> >zasadni vyjimce 0E ...Shellexecute...minimalized
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 28.2.2000 17:47:34
Ak pod tym myslis volanie v style shellexecute(Application.handle,nil,
PChar('xxx.htm'), nil, nil, SW_SHOWMINNOACTIVE) tak je jasne, ze SW_SHOW..
nefunguje pretoze to ma vplyv iba pri priamom spustani programu a nie pri
otvarani dokumentu.> muj program spousti Internet explorer a tam natahuje danou stranku?
>
Remote Access Service
[*] mdvorak(zv)csas(tec)cz - 28.2.2000 17:56:54
Nazdar,
protoze RAS je sluzba W-NT, tak mas dve moznosti detekce. A to bud pres SCM
nebo dotazem do Registry.
S pozdravem
M. Dvorak
-----P�vodn� zpr�va-----
Od: Ale� Va���ek [mailto:vasicek(zv)ecommerce(tec)cz]
Odesl�no: 23. �nora 2000 15:01
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Remote Access Service
Ahoj,
tak jsem se probiral archivem konference a nasel jsem tam sice odpoved na
mou otazku, ale je celkem k nicemu. Milan Schembera tam pise toto:
V adresari \winnt\system32 musi existovat soubor rasapi32.dll ;-)
To je sice pravda, kdyz jsem ve windows nainstaloval RAS, tak pak se lze
toto reseni (i kdyz ponekud "kostrbate") pouzit. Ale kdyz ze sluzeb windows
RAS odinstaluju, tak tam to DLL ZUSTANE, ale RAS uz neni normalne funkcni! A
to potom problem je. Muze mi prosim nekdo poradit jak na to?
Diky, Ales
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ale� Va���ek
> Sent: Wednesday, February 23, 2000 1:27 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Remote Access Service
>
>
> Zdravim,
>
> potreboval bych vedet, jak zjistim, ze je na pocitaci nainstalovan Remote
> Access Service.
>
> Dik, Ales.
>
>Servisni aplikace a ODBC
[*] mdvorak(zv)csas(tec)cz - 28.2.2000 18:00:35
Nazdar,
pri hledani chyby, bych asi vysel z omezeni systemoveho uctu. Viz nize.
S pozdravem
M. Dvorak
The LocalSystem Account
. The service cannot open the registry key HKEY_CURRENT_USER.
. The service can open the registry key HKEY_LOCAL_MACHINE\SECURITY.
. The service has limited access to network resources, such as shares
and pipes, because it has no credentials and must connect using a null
session.
. The service cannot share objects with other applications, unless
they are opened using a DACL which allows a user or group of users access or
NULL DACL, which allows everyone access. Specifying a NULL DACL is not the
same as specifying NULL, which means that access is only granted to
applications with the same security context. For more information, see
Allowing Access.
. If the service opens a command window and runs a batch file, the
user could hit CTRL+C to terminate the batch file and gain access to a
command window with LocalSystem permissions.
-----P�vodn� zpr�va-----
Od: Milos Sula [mailto:crkstrobe(zv)geocities.com]
Odesl�no: 24. �nora 2000 10:06
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Servisni aplikace a ODBC
Opravdu nikdo nevi proc mi to ODBC nefunguje v servisni aplikaci ? >:(
----- P�vodn� zpr�va -----
Od: Milos Sula <crkstrobe(zv)geocities.com>
Komu: delphi konference <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. �nora 2000 16:33
P�edm�t: Servisni aplikace a ODBC
Tak zase jsem narazil na neco co mi nefunguje. Kdyz ze servisni aplikace
poustim dalsi aplikaci (ktera tak bezi pod systemovym uctem stejne jako
service) tak ma problemy s connectovanim pres ODBC na databaze. Nevite proc
? data source v ODBC mam vytvoreny v system DSN.
OT:HW Test
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 28.2.2000 18:09:38
Treba Linux :-)
...nebo Windows, ale ty zatim nejsou freeeeee....
sorry, ale takhle obecne se to asi neda resit,
na kazdy HW bude specificky test a univerzalni
testovaci SW tezko bude zadarmo.
Zkus Sisoft SANDRA, ale jestli se nemylim, je to
shareware.
### L. ZITA napsal dne 28 Feb 00, v 12:09 :
> Zdravim.
>
> Omlouvam se za mirny OT.
> Nevite nekdo nejakem rozumnem SW pro otestovani bezchybne funkce HW.
> (Pamet, procesor, HDD...).
> Samozrejme pokud mozno free.
>
> Diky
> Ludek ZITA
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Delphi 2
[*] bigzero(zv)post(tec)cz - 28.2.2000 18:26:32
Zdravim !
V koute se mi krci orig. krabice s Delphi 2 Desktop.
Kdo by o ne mel zajem necht mi zasle zpravu kolik (stovek) je za ne ochotny dat a ja je obratem zaslu.
Honza
----------------------
email: bigzero(zv)post(tec)cz
Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
*** http://PRESS.CZ
Kniha k delphi
[*] bigzero(zv)post(tec)cz - 28.2.2000 18:36:27
Zdary !
Tato kniha existuje ve dvou vydanich, a obe jsou urcene spise pro trochu zkusenejsi programatory. Na rozdil od ostatnich, u nas vydanych publikaci, jde vic do hloubky (napr. popisuje nektere casti Win API).
Prvni vydani je z roku 1996(+/-) a venuje se Delphi 1, takze nepopisuje radu pozdeji implementovanych rozsireni.
Druhe vydani z lonskeho roku je podstatne rozsirene (6 dilu) a zabyva se primarne Delphi 4. Je tu ovsem drobny problem: Prvni dil vysel nekdy loni na jare a k dnesku neni stale vydano vse (aspon co je mi znamo).
Mimo toho mohu doporucit knizky od M. Cantu, nejsou prilis povrchni a ani nejdou moc do hloubky - idealni pro zacatecniky v Delphi. Posledni co od nej u nas vyslo je \"Delphi 4 - Grada 99\" (myslim ze mi jeste nekde v knihovne prebyva - kdyztak se ozvi).
Honza
> Chtel bych se zeptat jaky je vas nazor na kniky \"Borland Delphi - pr�vodce
> v�voj��e \"
> Pripadne mohl by mi nekdo doporucit nejakou kniku k Delphi.
> Dik.
>
Kniha k delphi
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 28.2.2000 19:12:38
ahoj,
Dost dobre je mistrovstvi v DELPHI 3
a knihy pro DELPHI od Marco Cantu,
ale ja bych mel nejradsi neco pro D5
M.Jirman
----- Original Message -----
From: Josef ��P <sip(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 3:20 PM
Subject: Kniha k delphi
Chtel bych se zeptat jaky je vas nazor na kniky "Borland Delphi - pr�vodce
v�voj��e "
Pripadne mohl by mi nekdo doporucit nejakou kniku k Delphi.
Dik.
PaintBox
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 28.2.2000 21:17:29
Prijemn� den,
D4 standard W95 OSR2
mam na formulari dve komponenty PaintBox. Na jedne je pozadi (bmp) a na
druhou vykresluji pomoci Canvas.Draw(x,y,bmp) nejaky maly obrazek.
Vykresluji kazdou vterinu s tim, ze ten predchozi tam zustava. Kdyz ale chci
pred vterinou nakresleny obrazek vymazat a namalovat jiny maly nekde o
kousek jinde, pouzivam pre vykreslovanim PainBox.Refresh;
To ale dosti blika, nevi nekdo, jak mazat namalovane objekty bez blikani?
Snad jsem se vyjadril dost srozumitelne.
Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
Zacinajici amatersky programator
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Adonis - nastaveni
[*] Erik Salaj <winsoft(zv)napri.sk> - 28.2.2000 21:39:26
> 1) Vlastnosti v ADODataset: CacheSize a PageSize. Co znamenaji
> a jaky je v nich rozdil? Ja jsem nejlepsiho vykonu dosahoval pri
> nastaveni CacheSize okolo 500. Pri zvyseni nebo snizeni tohoto
> cisla jiz pomerne znatelne klesala rychlost. Znamena to, ze 500 je
> nejake obecne platne optimum, nebo to souviselo s konkretnim
> dotazem a budu muset vzdy experimentovat?
CacheSize - pocet zaznamov, ktore prislusny provider cita naraz
a uklada si ich do svojej lokalnej pameti. Default hodnota je 1. Teda
je to velkost cache zaznamov udavana poctom zaznamov. Vhodna
volba velkosti cache moze mat znacny vplyv na vykon aplikacie.
PageSize - udava pocet zaznamov na logickej stranke, co je uzitocne
napr. u web aplikacii, kde sa zobrazuje na web stranke urcity pocet
zaznamov. Default hodnota je 10. ADO poskytuje podporu pre nastavenie
aktualnej stranky (AbsolutePage) a zistenie poctu stranok (PageCount).
PageSize teda sluzi na ulahcenie programovania (automaticky prepocitava
poziciu logickych stranok), na vykon aplikacie nema vplyv.
> 2) Musi se u kazde vyvijene aplikace pokusne zjistovat, jak Adonis
> co nejlepe vyladit? Jake mate zkusenosti?
Myslim, ze ano, aj ked existuju urcite obecne pravidla
viz. http://www.cybermagic.co.nz/winsoft/adofaq.htm.
> 3) U ODBC se nastavovala rada veci - DSN, Network Library pro
> pristup na SQL server... U OLEDB to neni nezbytne. Znamena to,
> ze OLEDB jaksi automaticky pouziva to nejlepsi, co v dane situaci
> lze? Da se nejak nastavovat a hlavne - ma to prakticky vyznam?
OLEDB je nativne rozhranie pre MS SQL 7, takze je to automaticky
najvyhodnejsie rozhranie z hladiska rychlosti. Nejake globalne nastavenia
tam asi nie su, pomocou roznych properties ADO objektov je vsak
mozne optimalizovat vykon.
Erik Salaj
exception = blue death
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 28.2.2000 22:30:02
----- Original Message -----
From: Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz>
Sent: Monday, February 28, 2000 12:44 PM
Subject: exception = blue death
> Ahoj,
>
> PC: Celeron 400, 64MB, 4.3GB, S3 Trio3D/2x, OS WIN98 SE CZ
> DELPHI 4 std + SP3
>
> mam nasledujici problem:
> pokud spustim nasledujici cast kodu
>
> procedure TForm1.Button1Click(Sender: TObject);
> var a, b: single;
> begin
> a := 1; b := 0;
> try
> ShowMessageFmt('a/b=%f', [a / b]);
> except
> raise;
> end;
> end;
>
ak nechces aby nastala vynimka skus to takto:
try
ShowMessageFmt('a/b=%f', [a / b]);
except
end;
resp. to este rozdrobit na mesie etapy:
var a, b, c: single;
...
try
c := a / b;
ShowMessageFmt('a/b=%f', [c]);
except
end;
raise ma vyznam len ak po osetreni vyjimky (co tu nie je) chcem vyvolat
vynimku znova.
Palo.Showexecute...minimalized
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:35:48
From: Michal Kop��ek <m.kopacek(zv)volny(tec)cz>
> mam prikaz pro exec. : shellexecute ...
>
> shel
> lexe
> cute(Application.handle,nil,(zv)current_file[1],nil,nil,SW_SHOWMINNOACTIVE);
>
> a pot�ebuju aby okno, kter� otv�r�m bylo minimalizovan� ale i s touto
> deklarac� se tak ned�je?
Ahoj,
ta aplikace patrne ignoruje vychozi stav okna ktery se mu takto predava.
Tento problem mela treba VCL v Delphi 2, kde se tento parametr vubec
nebral v uvahu.
Petr Vones, amatersky programator
Velikost client area u MDIForm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:35:39
From: Foldyna Ji�� <jiri.f(zv)avizo(tec)cz>
> pri vytvareni MDIChild okna jsem narazil na problem presneho urceni
> velikosti client area na MDIForm. Pokud do udalosti FormCreate child okna
> dam
>
> ...
> Top := 0;
> Left := 0;
> Width := FrameForm.ClientWidth; // Frame Form je MDIForm
> Height := FrameForm.ClientHeight;
>
> tak se vytvori Child okno tak, ze se nevejde do Client area (vytvori se
> scrollbary). Pokud sirku a vysku zmensim o 4, vejde se (to plati jen pro
Ahoj,
Podle mne se jedna o chybu ve VCL. Lze to obejit treba takhle:
procedure TMDIChild.FormCreate(Sender: TObject);
var
R: TRect;
begin
Win32Check(Windows.GetClientRect(MainForm.ClientHandle, R));
BoundsRect := R;
end;
Petr Vones, amatersky programator
Podivne chovanie ToolButton-ov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:35:07
From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> Doteraz som na tlacitka v programe pouzival Panel a SpeedButtony, ale prednedavnom
> som skusil prejst na ToolBar a ToolButtony a zaregistroval som toto zvlastne
> chovanie: otvorim si nejaky modalny dialog - napriklad OpenDialog a v nom si
> dvojklikom vyberiem subor. Ak je na mieste na ktorom som spravil dvojklik v dialogu
> v spodnom formulari ToolButton, tak sa nanho tato sprava mysi z dialogu prenesie -
Ahoj,
Jakou mas verzi Delphi a knihovny COMCTL32.DLL ?
Petr Vones, amatersky programator
Memo a Selection
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:35:53
From: Jan Bachor <bachor(zv)iol(tec)cz>
> mam na formulari Memo
> a po kliknuti na tlacitko chci aby se mi vlozila selekce(text) za kurzor
> mysi
> prikaz memo1.lines.add(text) se text prida na konec mema, ale je porebuju
> aby se vlozil tam kde je kurzor
Ahoj,
napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1 do
begin
SelLength := 0;
SelText := 'Vlozeny text';
end;
end;
> a jeste druhej dotaz, jak smazat posledni vlozenej text do mema?
procedure TForm1.Button2Click(Sender: TObject);
begin
with Memo1.Lines do
Delete(Count - 1);
end;
Petr Vones, amatersky programator
emailovani z Qreportu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:36:14
From: Filip Kinsky <delphi007(zv)angelfire.com>
> Nevite nekdo, jak by se dalo mailovat z Qreportu?
Ahoj,
A co si pod tim predstavujes ? Poslat sestavu QuickReportu mailem jako
prilohu ? Potom je dulezite v jakem formatu.
Petr Vones, amatersky programator
Handle procesu (TerminateProccess)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:36:09
From: Lubo Fule <fule(zv)sct.sk>
> Mam problem, potrebujem z programu "killnut" iny proces. Viem to urobit
> pomocou fcie TerminateProccess, ale na to aby som to mohol urobit,
> potrebujem zistit Handle prislusneho procesu. Ide o proces, ktory sa spusta
Ahoj,
K tomu muzes pouzit komponentu TJvProcessList (Processes_reg.pas). Priklad
pouziti najdes v adresari \Demo\ProcessListExample.dpr, process pak muzes
ukoncit metodou TJvProcessEntry.Terminate.
http://www.volweb(tec)cz/pvones/download/JediVCL_Vones_mirror.zip
Petr Vones, amatersky programator
Kniha k delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:36:22
From: p. Jirman <jim.design(zv)iol(tec)cz>
> Dost dobre je mistrovstvi v DELPHI 3
> a knihy pro DELPHI od Marco Cantu,
> ale ja bych mel nejradsi neco pro D5
Ahoj,
Marco Cantu napsal "Mastering Delphi 5", ale nevim jestli to tu vyslo v
prekladu. Dalsi informace na jeho strance: http://www.marcocantu.com/
Petr Vones, amatersky programator
Pakovanie InterBase databazy.
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 28.2.2000 22:37:11
----- Original Message -----
From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
Sent: Monday, February 28, 2000 4:15 AM
Subject: RE: Pakovanie InterBase databazy.
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
Sent: Sunday, February 27, 2000 11:36 PM
Subject: Pakovanie InterBase databazy.> Zdravim.
>
> Je mozne nejakym rozumnejsim sposobom pakovat databazy IB, ako cez
IBServer
> Manager pomocou BackUp a nasledny restore ?
>
Asi bude dost zavisiet od toho co je to podla teba "rozumnejsi sposob". Snad
pouzit niektoru z volne dostupnych komponent pouzivajucich zipovanie
suborov, alebo priamo utilitu gbak ($INTERBASE\bin\gbak.exe, popis vid
"Operations Guide"). V pripade ze je databaza aktivna je restore pomocou
gbak ta spravna alternativa.
Palo.
Sorry, asi som hned nepochopil o co ide... Ak sa jedna o sweeping, potom
pouzi utilitu gfix.
Syntax: gfix -s[weep] db_name
Description: Force an immediate sweep of the database. Useful if automatic
sweeping is disabled. Exclusive access is not necessary.
Viacej najdes v prirucke Operations Guide (chapter 7, gfix command-line
tool)
Palo.Remote Access Service
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 22:43:32
From: Ale� Va���ek <vasicek(zv)ecommerce(tec)cz>
> potreboval bych vedet, jak zjistim, ze je na pocitaci nainstalovan Remote
> Access Service.
Ahoj,
Na MSDN maji priklad: Q181518
Petr Vones, amatersky programator
PaintBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2000 23:01:37
From: Straka Josef <strakaj(zv)hba(tec)czn(tec)cz>
> D4 standard W95 OSR2
>
> mam na formulari dve komponenty PaintBox. Na jedne je pozadi (bmp) a na
> druhou vykresluji pomoci Canvas.Draw(x,y,bmp) nejaky maly obrazek.
> Vykresluji kazdou vterinu s tim, ze ten predchozi tam zustava. Kdyz ale chci
> pred vterinou nakresleny obrazek vymazat a namalovat jiny maly nekde o
> kousek jinde, pouzivam pre vykreslovanim PainBox.Refresh;
> To ale dosti blika, nevi nekdo, jak mazat namalovane objekty bez blikani?
> Snad jsem se vyjadril dost srozumitelne.
Ahoj,
Toto je dano tim, ze komponenta standartne vykresluje sve cele pozadi,
potom se "pres" nej vyresluje tvoje kresba a proto to tak blika. Jedno
z moznych reseni je zamezit vykreslovani pozadi, pak jsi ale zodpovedny
za spravne vykresleni cele klientske oblasti komponenty. Lze to nastavit
takto:
procedure TForm1.FormCreate(Sender: TObject);
begin
with PaintBox1 do
ControlStyle := ControlStyle + [csOpaque];
end;
Dalsi moznost je si pripravit kresbu v bitmape a tu pak celou prekopirovat
do PaintBoxu. Takto se vlastne chova komponenta TImage.
Petr Vones, amatersky programator
OT:HW Test
[*] L. ZITA <konference(zv)sales(tec)cz> - 28.2.2000 23:47:23
Behalf Of
> Ales Radikovsky
>
> Na pamet je treba http://reality.sgi.com/cbrady_denver/memtest86/
>
> Ales
>
> > Nevite nekdo nejakem rozumnem SW pro otestovani bezchybne funkce HW.
> > (Pamet, procesor, HDD...).
> > Samozrejme pokud mozno free.
>
> --
>
> Ale� Radikovsk�
> mail: radik(zv)seznam(tec)cz
> tel: +420 603 300093
Myslim ze mi odpustite podekovani za tento link.
Vsem mohu vrele doporucit, MEMTEST-86 odhalil chybu kterou jsem tusil ale
zadny z mne znamych "komplexnich" testiku a benchmarku ji nedokazal najit.
Projevovala se obcasnou (nekdy i jen jednou za 3 dny) hlaskou "Chyba pri
pristupu do systemoveho registru")
Ludek ZITA
seriovy port
[*] David KALLAB <dkallab(zv)scova.vabo(tec)cz> - 29.2.2000 05:49:34
pratele
Poradte mi pros�m jakym zpusobem je mozne komunikovat pres RS232 s externim
zarizenim. Existuje nejaka komponenta?
Diky DaK
OT: Pripojeni k Internetu zdarma
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.2.2000 06:11:46
----- Original Message -----
From: Hurricane <hurricane(zv)iol(tec)cz>> Zdravim
>
> Kdes to slysel, ze VOLNY neni vsude? Je vsude uz asi mesic.
Neni. Je vsude jen asi ve 33 mestech. to ze ma cislo s tarifem Internat2000
neznamena, ze je to celorepublikove cislo.
Jan Fiala
TDBMemo nejde editovat
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 29.2.2000 06:32:33
Ahoj,
D3, IB5, FibComponents
na formulari mam niekolko db-aware komponent, medziinymi aj TDBMemo, ktory je linkovany na pole typu Blob Sub type Text. Moj problem je ze vsetky db-komponenty su editovatelne, len to memo nie? Pozna niekto kde je problem? Treba nejake zvlastne nastavenia aby bola aj tato komponenta editovatelna?
Dik, Pavol Stolc
pstolc(zv)sc.sknet.sk
MessageDlg
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 29.2.2000 06:42:00
-----Original Message-----
From: Lauko �tefan
Sent: Monday, February 28, 2000 12:08 PM
Subject: MessageDlg
> Dobry,
> mam taky banalny problem. V programe pouzivam MessageDlg. Potreboval by
som
> aby tlacitka a nazov okna bol v jazyku OS. Podla toho na akom OS sa to
> spusti (CZ/SK/ENG). Lokalizacia D mi nepomoze
> Dakujem Lauko
Rozviniem otazku:
Je mozne niekde ziskat nazvy tlacitiek v jazyku OS, ak potrebujem vytvarat
vlastne dialogy ?
Palo.
Pri instalaci komponenty D3 hlasi *.DCR not found
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 29.2.2000 06:55:47
Ahoj,
Pri instalaci komponenty D3 hlasi *.DCR not found i kdyz je *.pas, *.dcr a
*.dcu ve stejnem adresari.
Progr-Amather -Kchodl-� 1989-2000
web kamera - hardware
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 06:57:28
cca pred pul rokem jsem pasl softik, kterej v zadanych intervalech ukladal
obrazky z usb kamery (obecne jakekoliv) do tabulky. jo abylo tam myslim videt i preview
softik nedam, ale muzu poskytnout unitu pro zachytavani videa, ta je nejaka free.
jo ta kamera byla philips, a rozliseni nic moc, ale za asi 3000 az 4000 Kc.
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~Velikost Hlavniho panelu
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 06:58:40
mno,
to by mohlo jit asi takto (pouze teorie o moznostech api funkci):
zjistit handle panelu (uz bylo v konferenci)
pomoci patricnych api fci zjistit parametry (vlastnosti?, metriku??) okna se zjistenim handlem
viz take:
// the following code places notepad directly underneath the running application (Xavier Pacheco (TeamB)):
var
hw: HWND;
wp: TWindowPlacement;
begin
hw := FindWindow('Notepad', nil);
if hw <> 0 then
GetWindowPlacement(Handle, (zv)wp);
SetWindowPlacement(hw, (zv)wp);
end;
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~
-----Original Message-----
From: Pavel ZIDEK [mailto:kopr(zv)kopr(tec)cz]
Sent: Friday, February 25, 2000 11:26 AM
To: Konference DELPHI forum
Subject: Velikost Hlavniho panelu
Zdravim,
jak zjistit velikost (rozliseni) monitoru je snadne. Ale jak zjistim velikost (vyska) a umisteni (vlevo / dole / vpravo...) "Hlavniho panelu" na plose Windows - myslim tim listu, kde je nabidka "Start". Jeste dodatek, problem potrebuji resit ve Win95/98 a NT (a asi ve win2000).
Diky
Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK <mailto:kopr(zv)kopr(tec)cz>
<http://www.kopr(tec)cz/w-delphi.htm> <http://www.kopr(tec)cz>
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Umisteni uvitaci obrazovky s logem
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 06:59:19
// toto vrazis do unity s formularem pro logo
begin
fLogo:=TfLogo.Create(Application);
fLogo.Show;
fLogo.Update;
end.
// toto do OnCreate ivnty hlavniho formu:
procedure TfMain.FormCreate(Sender: TObject);
begin
fLogo.Release;
end;
jo a formular loga samozrejmne nesmi byt autocreate
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~
-----Original Message-----
From: Tom� Fr�ba [mailto:fryba(zv)volny(tec)cz]
Sent: Friday, February 25, 2000 9:21 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Umisteni uvitaci obrazovky s logem
Porteboval bych poradit, jak mam p�i startu nechat zobrazit uvitaci obrazovku s logem (ve forme obrazku). Jiz jsem se marne pokousel dosahnout tohoto cile tim, ze jsem pouzil specialniho formulare. Ale me snahy vysly naprazdno a nic nefungovalo dle mych predstav. Ted jsem slysel od znameho, ze pry se kdysi, kdyz jsem jeste nebyl prihlasen, probiralo i zde na konferenci a ze pry se to upravuje kdesi v projectu. Zadam Vas proto velice o radu.
Dekuji.
Tomas Fryba <mailto:fryba(zv)volny(tec)cz>Funkce GetUserName
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 07:00:36
nejsem si jisty, ale co takhle:
procedure TFrm_Email.FormShow(Sender: TObject);
var
Jmeno: Pchar;
nSize: Cardinal;
begin
nSize := length(jmeno);
SetLength(jmeno, nSize + 1);
GetUserName(Jmeno, nSize);
Txt_Name.Text := Jmeno;
Txt_Name.SetFocus;
end;
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~Prevod dat z PC Fandu
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 07:01:54
nutne musis mit strukturu souboru z fandu,
nejlepe otevreny projekt.
dala mas dve moznosti
1/ pomoci fandu to nasypat do DBF (nebo i do txt),
a s tema uz pracujes z delphi.
2/ cist fandovske soubory primo pomoci delphi,
coz je pomerne pracne, ale pokud to nechces sdilet,
muzes data nacitat opakovane (prubezny prenos do win aplikaci).
je ovsem nutne vedet, jak PC-FAND uklada data:
4 byte: po cet vet v souboru (u indexoveho zaporne)
2 byte: delka recordu v bytech
nasleduji jednotlive recordy pricemz
delky jednotlivych udaju lze odvodit nasledovne:
A, n; = n bytu ve fajlu
N, n; = int(n/2)+1 bytu
D; = 6 byte (pascalsky real48)
pokud od D odectes 693594 dostanes cislo datum ve formatu TDate
F,x.y; = todle se blbe pocita,
musis si zjisti pocet cislic, ktere se daji maximalne zadat, a najit nejblizsi vyssi pocet byte, do kterych to dokazes nacpat (jo a myslim si, ze se pouziva intelovskej endian (akorat nevim, jestli je to malej, nebo velkej ;-) ))
R; = pascalackej real na 6 byte
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~
> potreboval bych jednorazove dostat data z PC Fandu do
> nejakeho normalniho datoveho formatu.Prevod dat z PC Fandu
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 07:02:19
produkt druha miza vyvijela fma Kastner Jezek.
jednalo se o projekt pro prevod PC-FANDovskych uloh do woken.
pokud si odnich nekdo koupil delphi, dostal to (pry) zadarmo.
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~
> Pocul som aj o komponente TFTable pre DELPHI
> ktora priamo pristupuje na subory FANDu (tiez je potrebna
> struktura). Volalo sa to "Druha miza" (ze bola zdarma).Zatvorenie formu z OnActivate.
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 07:02:45
Application.Terminate; // to schodi celou aplikaci
samotnej form neumim, a jestli mysli pri aktivovani jako�e p�epnuti z do pop�edi, tak se jedna o udalost Application.OnActivate
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~
> Ako zatvorim okno z udalosti OnActivate ? Pokial je mozne bez pouzitia
> semaforu.vektorizace
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 07:06:14
ahoj
prosim aspon, kopnout vubec nevim kudy do toho
chci vektorovat cernobile mapy (pripadne i barevne, ale to neni uz tak zhavy)
prosim pekne
kopnete me nekdo, kde ziskat informace, komponenty, rady
pripadne podelte vlastnimi skusenostmi
dekuji
Kniha k delphi
[*] caoperator(zv)ozjc.cpost(tec)cz - 29.2.2000 7:14:46
No, ja osobne pouzivam knihu Mistrovstvi v Delphi IV (autor Tom Swan, vyd. Computer Press, cena cca. 750 KC vcetne CD) a mohu rici, ze pro zacinajiciho programatora v Delphi je tato knizka perfektni. Jsou tam vysvetlene (pomerne polopaticky) zakladni postupy programovani grafiky, GUI, databazi apod. Na CD jsou priklady a dema, ktera se daji tez s uspechem pouzit.
S pozdravem
David Viktora
-----Original Message-----
From: sip(zv)atlas(tec)cz [mailto:sip(zv)atlas(tec)cz]
Sent: Monday, February 28, 2000 3:21 PM
To: <delphi-l(zv)fwd(tec)cz>; caoperator(zv)ozjc.cpost(tec)cz
Subject: Kniha k delphi
Chtel bych se zeptat jaky je vas nazor na kniky "Borland Delphi - pr�vodce
v�voj��e "
Pripadne mohl by mi nekdo doporucit nejakou kniku k Delphi.
Dik.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000
Memo a Selection
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 29.2.2000 07:55:08
Nechci byt stoura, ale co kdyz ten text vlozim doprostred mema? Pak to asi fungovat nebude.
Neslo by nejak vyuzit toho, ze posledni vlozeny text je stale selectnuty a vybrany?
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 28. �nora 2000 22:36
> Komu: Konference Delphi
> P�edm�t: Re: Memo a Selection
>
> > a jeste druhej dotaz, jak smazat posledni vlozenej text do mema?
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> with Memo1.Lines do
> Delete(Count - 1);
> end;
>
> Petr Vones, amatersky programator
>
>
>
> Co je lepsi pro Create formu?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 29.2.2000 08:01:16
> potykam se problemem pri pouziti explicitne vytvarenych formularu. Je lepsi
> pouzit:
>
> Form1:=TForm.Create(Application);
>nebo
> Form1:=TForm.Create(Nil);
(zkraceno)
Ahoj,
ten parametr, co se dava do Create je owner tveho okna. Mel by se
napr. postarat o to, pokud bys to okno zapomnel uvolnit z pameti,
ze pri svem ukonceni (toho ownera) uvolni i tve okno.
Podle meho nazoru v pripadech podobnych tomu Tvemu je
celkem jedno, zda tam das nil, Application nebo (asi nejlepe) Self.
Z hlediska jakesi programatorske cistoty by mi tam nejvic sedelo
to Self, pokud okno vytvaris z formu, nebo Application, pokud okno
vytvaris z projektu nebo odnekud, co Self nema.
David
GIS knihovny nebo komponenty
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 08:14:12
ahoj
shanim komponenty nebo alespon knihovny GIS
pro praci s mapami a mapovymi soubory
pripadne neco na praci s velkymi obrazky (bmp, cit, arcinfo a pod)
free i komercni (koupime)
plis help
peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~Pripojeni k Internetu zdarma
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 29.2.2000 08:17:12
No v UTO 187 Susice (alias Horazdovice) NENI a na tom si stojim.
Pavel
----- Original Message -----
> Kdes to slysel, ze VOLNY neni vsude? Je vsude uz asi mesic. A jak to
myslis
> s tou kvalitou VOLNYho, ja mam pocit ze spis VOLNY nedosahuje kvalit IOLu.
>
> Hurricane
>
Podivne chovanie ToolButton-ov
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 29.2.2000 09:01:27
Delphi 4 Build 5.108 Update Pack 3, Windows NT 4.0 CZ Build 1381 Service
Pack 5 a verzia Comctl32.dll 5.80.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 10:35 PM
Subject: Re: Podivne chovanie ToolButton-ov
> From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> > Doteraz som na tlacitka v programe pouzival Panel a SpeedButtony, ale
prednedavnom
> > som skusil prejst na ToolBar a ToolButtony a zaregistroval som toto
zvlastne
> > chovanie: otvorim si nejaky modalny dialog - napriklad OpenDialog a v
nom si
> > dvojklikom vyberiem subor. Ak je na mieste na ktorom som spravil
dvojklik v dialogu
> > v spodnom formulari ToolButton, tak sa nanho tato sprava mysi z dialogu
prenesie -
>
> Ahoj,
>
> Jakou mas verzi Delphi a knihovny COMCTL32.DLL ?
>
> Petr Vones, amatersky programator
>
>
>potlacenie chybovych hlaseni sql servera
[*] Brabec Tom� <Tomas.Brabec(zv)pvt(tec)cz> - 29.2.2000 09:05:57
Ahoj, musis si sam odchytavat chyby jeste nez je posles na server. Napr.
update datumovych polozek:
Nez provedes nejaky select, zkontroluj si, jestli edtDatumOd.Text je typu
datum a jestlize ne, tak nut uzivatele zadat hodnotu znovu. Na server uz
potom budes posilat spravne hodnoty.
Princip je jednoduchy. Musis odchytit chybu driv, nez hodnoty posles na sql
server
Tom
Zdravim,
chcem sa spytat, ze ako potlacim chybove hlasenia Sql servera, a namiesto
nich dam svoje err. msg.
Dik, Miso
dokumentace
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 29.2.2000 09:07:13
To jses dobry, to by chtel kazdy. Knizek o DELPHI je spousta, pouze je staci
koupit.
Pavel ZIDEK
----- Original Message -----
From: Miroslav Stulik <mira.delphi(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 3:07 PM
Subject: dokumentace
> Cau
> nemate nekdo ceskou dokumentace k Delphi 4.0 nebo Delphi 5.0 ve formatu
doc,txt,html,atd.
> pokud ano tak mi ji prosim zaslete na mail mira.stulik(zv)post(tec)cz
>
> predem vsem dekuji
> mira
>Memo a Selection
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 29.2.2000 09:20:13
Slovo "amat�r" lze prelozit jako laik, ale puvodni vyznam byl, ze je to
clovek, ktery dela danou vec rad a nepozaduje za to penize. Budme radi, ze
Petr je tak skromny a vsem nam pomaha.
Pavel ZIDEK
> s tim amatersky pr. uz toho fakt nech - odpovidas tady na vsechno co snad
> jde tak tam napis neco jinyho !!! :)
>
> ************************************
> Michal Kop��ek
> http://www.hanatour(tec)cz/mikosoft
> m.kopacek(zv)volny(tec)cz
> mikosoft(zv)seznam(tec)cz
> xkopm13(zv)vse(tec)cz
> ************************************
>
> > a jeste druhej dotaz, jak smazat posledni vlozenej text do mema?
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> with Memo1.Lines do
> Delete(Count - 1);
> end;
>
> Petr Vones, amatersky programator :((((((((((((((((((((
>
>Pripojeni k Internetu zdarma
[*] caoperator(zv)ozjc.cpost(tec)cz - 29.2.2000 9:22:58
Pokud je mi znamo, zatim jediny poskytovatel internetu zdarma s celorepublikovym cislem je World OnLine. To je jeho nejvetsi konkurencni vyhoda oproti VOL, ale podle zprav, ktere mam k dispozici, ma tato vyhoda brzy padnout, protoze VOL ma take ziskat celorepublikove cislo, pry do mesice.
Co se tyce kvality pripojeni, mohu srovnavat dva uzly VOL - budejovicky a ceskolipsky. V Ceske Lipe mam ve vecernich hodinach problemy se pripojit - bud je obsazeno anebo se modem spoji, overi se jmeno a heslo a spojeni zase spadne. V Ceskych Budejovicich takove problemy nemam. Ono tedy hodne zalezi na provozu v tom kterem uzlu a na vybavenosti toho uzlu modemy. Pokud se ale pripojim, pak je spojeni stabilni a docela rychle (oboji testovano pomoci interniho RockWell 56kb modemu).
S pozdravem
David Viktora
-----Original Message-----
From: Pavel.Medek(zv)talema(tec)cz [mailto:Pavel.Medek(zv)talema(tec)cz]
Sent: Tuesday, February 29, 2000 8:17 AM
To: <delphi-l(zv)fwd(tec)cz>; caoperator(zv)ozjc.cpost(tec)cz
Subject: Re: Re: Pripojeni k Internetu zdarma
No v UTO 187 Susice (alias Horazdovice) NENI a na tom si stojim.
Pavel
----- Original Message -----
> Kdes to slysel, ze VOLNY neni vsude? Je vsude uz asi mesic. A jak to
myslis
> s tou kvalitou VOLNYho, ja mam pocit ze spis VOLNY nedosahuje kvalit IOLu.
>
> Hurricane
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000
plocha oblasti
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 29.2.2000 09:30:38
Mam hranici objektu v souradnicich jednotlivych bodu
hranice a potrebuji vsem bodum uvnitr hranice priradit
nejakou hodnotu. Nemate nekdo algoritmus a nebo
nevite nekdo o nejakem zdroji na internetu ????
S pozdravem
Zdenek Petruj
--------------------------
adresa: RNDr. Zden�k Petr�j
N�lepkovo n�m. 930/20
708 00 Ostrava
--------------------------
tel/fax:(069)6926355
e-mail: zpetruj(zv)qgir(tec)cz
plocha oblasti
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 29.2.2000 09:51:34
Ahoj,
co treba takto:
- vezmi sobe nejaky rozumny obdelnik ohranicujici danou oblast bys
nemusel celou bitmapu obchazeti jak nemocny osel.
- vytvor sobe region podle jednotlivych bodu hranice pomoci
CreatePolygonRgn nebo, jde-li o vice regionu CreatePolyPolygonRgn.
Jen pozor dej na alternate.
- vycaruj funkci PtInRegion nebo RectInRegion a zris, zda je dany bod jest
v regionu ci nikolvek.
- dal uz je to rutina alchimistova :-)
A to je vse pratele...
Martin
-----P�vodn� zpr�va-----
Mam hranici objektu v souradnicich jednotlivych bodu
hranice a potrebuji vsem bodum uvnitr hranice priradit
nejakou hodnotu. Nemate nekdo algoritmus a nebo
nevite nekdo o nejakem zdroji na internetu ????pevne ukotveni oken MDIChild
[*] garalda <garalda(zv)mail(tec)cz> - 29.2.2000 10:00:54
Ahoj,
nevite nekdo nahodou jak bych mohl pevne ukotvit okna MDIChild?
Jedna se o nasledujici problem:
Mam hlavni okno, ve kterem mam 3 podokna (okno1, okno2, okno3), ale
zobrazuji soucasne vzdy jen dve podokna (okno1, okno3 nebo okno2, okno3) a
to viditelne podokno proste hodim dopredu (BringToFront). Podokna okno1 a
okno2 jsou jen orientacni k oknu3, takze jsou rozmerove mensi - nemuzu tedy
pouzit Tile (alespon predpokladam). Podokna zabiraji celou plochu hlavniho
okna. Jak ale muzu zakazat uzivateli, aby chytil kterekoliv podokno a
posunul ho stranou? U formu jsem nenasel zadnou udalost OnMove nebo neco
podobneho.
(D4 Pro, WinNT 4)
Diky
MessageDlg
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 29.2.2000 10:38:32
kdysi, ale uz hodne davno, sem to nahodou nasel nekde v registrech. ale uz
netusim kde a v jake verzi Windows
Lubos
> Rozviniem otazku:
> Je mozne niekde ziskat nazvy tlacitiek v jazyku OS, ak potrebujem vytvarat
> vlastne dialogy ?
>
> Palo
plocha oblasti
[*] Petruj Zdenek <ZPetruj(zv)qgir(tec)cz> - 29.2.2000 10:44:17
Takto bych to udelal take, ale bohuzel potrebuji matematicky
algoritmus, protoze jde o program na nizsi urovni primo pro
hardware a tam jsou mi windowsy platne jak mrtvemu zimnik.
> -----Original Message-----
> From: Martin Nedopil [mailto:nedopil(zv)eskon(tec)cz]
> Sent: Tuesday, February 29, 2000 9:52 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: plocha oblasti
>
>
> Ahoj,
> co treba takto:
>
> - vezmi sobe nejaky rozumny obdelnik ohranicujici danou oblast bys
> nemusel celou bitmapu obchazeti jak nemocny osel.
>
> - vytvor sobe region podle jednotlivych bodu hranice pomoci
> CreatePolygonRgn nebo, jde-li o vice regionu CreatePolyPolygonRgn.
> Jen pozor dej na alternate.
>
> - vycaruj funkci PtInRegion nebo RectInRegion a zris, zda je
> dany bod jest
> v regionu ci nikolvek.
>
> - dal uz je to rutina alchimistova :-)
>
> A to je vse pratele...
>
> Martin
>
>
> -----P�vodn� zpr�va-----
>
>
> Mam hranici objektu v souradnicich jednotlivych bodu
> hranice a potrebuji vsem bodum uvnitr hranice priradit
> nejakou hodnotu. Nemate nekdo algoritmus a nebo
> nevite nekdo o nejakem zdroji na internetu ????
>
>
>
> Rolovani scrollbaru v DBGridu
[*] garalda <garalda(zv)mail(tec)cz> - 29.2.2000 11:17:16
Zdravim,
Mam dotaz. Potreboval bych plynule s pohybem scrollbaru pohybovat obsahem
DBGridu. Ve StringGridu jsem nasel vlastnost Options = goThumbTracking,
ktery to umoznuje, pro DBGrid jsem vsak bohuzel nic takoveho nenasel.
Napadlo mne, ze bych si k DBGridu treba pripojil vlastni Scrollbar, ale jak
mam zakazat scrollbary v DBGridu? Zkousel jsem ho vlozit do ScrollBoxu, ale
ani u ScrollBoxu jsem nenasel potrebnou vlastnost. Nemate s tim nekdo
zkusenost, pripadne nevite o nejake komponente, ktera by to umela? (v
RxDBGrid jsem taky nic nenasel)
Uz jsem se tady na to sice jednou ptal, ale bez reakce, tak treba se ted uz
diva nekdo, kdo by vedel...
Diky
web kamera - hardware
[*] petr.palicka(zv)atlas(tec)cz - 29.2.2000 11:38:28
hi
junita pro praci s videem je na mem verejnem disku
http://mujdisk.atlas(tec)cz/petr.palicka
vyber si verejny disk
E:
DELPHI
a tam je AviCap32.pas
cau peca
TAction a TSpeedButton
[*] Ing. Piotr Grodzicki <ineq-soft(zv)ova.eridan(tec)cz> - 29.2.2000 11:43:26
Mam nadefinovane polozky pro komponentu Taction vcetne Caption.
Po zarazeni do menu je vse ok. U SpeedButtonu mi to tlaci caption
i kdyz chci zobrazit jen bitmapu
Piotr G
pevne ukotveni oken MDIChild
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 29.2.2000 12:39:41
Nerad bych se mylil, ale onresize se vola i pri pohybu, takze tam.
From: "garalda" <garalda(zv)mail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Subject: pevne ukotveni oken MDIChild
Date sent: Tue, 29 Feb 2000 10:00:54 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj,
>
> nevite nekdo nahodou jak bych mohl pevne ukotvit okna MDIChild?
> Jedna se o nasledujici problem:
>
> Mam hlavni okno, ve kterem mam 3 podokna (okno1, okno2, okno3), ale
> zobrazuji soucasne vzdy jen dve podokna (okno1, okno3 nebo okno2, okno3) a
> to viditelne podokno proste hodim dopredu (BringToFront). Podokna okno1 a
> okno2 jsou jen orientacni k oknu3, takze jsou rozmerove mensi - nemuzu tedy
> pouzit Tile (alespon predpokladam). Podokna zabiraji celou plochu hlavniho
> okna. Jak ale muzu zakazat uzivateli, aby chytil kterekoliv podokno a
> posunul ho stranou? U formu jsem nenasel zadnou udalost OnMove nebo neco
> podobneho.
>
> (D4 Pro, WinNT 4)
>
> Diky
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Rolovani scrollbaru v DBGridu
[*] Mirun <forcom(zv)telecom(tec)cz> - 29.2.2000 13:05:34
Ahoj,
vytvor si potomka nejakeho TCustomDBGridu, a zkopiruj puvodni WMVScroll a
a puvodni kod
...
case ScrollCode of
...
SB_THUMBPOSITION :
...
prepis na :
...
case ScrollCode of
...
SB_THUMBPOSITION,SB_THUMBTRACK :
...
Timto bude grid reagovat nejen na zmenu pozice Scrollbaru ale i na jeho
tazeni.
Bude to ovsem fungovat jen Pdx a dBase tabulek, a ma to nejake dalsi
neprijemnosti (proto se tomu Borland vyhnul). Kazdopadne by te to melo
navest k nejakemu reseni.
Mirun
----- Original Message -----
From: garalda <garalda(zv)mail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 29, 2000 11:17 AM
Subject: Rolovani scrollbaru v DBGridu
> Zdravim,
>
> Mam dotaz. Potreboval bych plynule s pohybem scrollbaru pohybovat obsahem
> DBGridu. Ve StringGridu jsem nasel vlastnost Options = goThumbTracking,
> ktery to umoznuje, pro DBGrid jsem vsak bohuzel nic takoveho nenasel.
> Napadlo mne, ze bych si k DBGridu treba pripojil vlastni Scrollbar, ale
jak
> mam zakazat scrollbary v DBGridu? Zkousel jsem ho vlozit do ScrollBoxu,
ale
> ani u ScrollBoxu jsem nenasel potrebnou vlastnost. Nemate s tim nekdo
> zkusenost, pripadne nevite o nejake komponente, ktera by to umela? (v
> RxDBGrid jsem taky nic nenasel)
>
> Uz jsem se tady na to sice jednou ptal, ale bez reakce, tak treba se ted
uz
> diva nekdo, kdo by vedel...
>
> Diky
>
>
>Adonis - nastaveni
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.2.2000 13:18:02
On 28 Feb 00, at 21:39, Erik Salaj wrote:
> > 3) U ODBC se nastavovala rada veci - DSN, Network Library pro
> > pristup na SQL server... U OLEDB to neni nezbytne. Znamena to, ze
> > OLEDB jaksi automaticky pouziva to nejlepsi, co v dane situaci lze?
> > Da se nejak nastavovat a hlavne - ma to prakticky vyznam?
>
> OLEDB je nativne rozhranie pre MS SQL 7, takze je to automaticky
> najvyhodnejsie rozhranie z hladiska rychlosti. Nejake globalne
> nastavenia tam asi nie su, pomocou roznych properties ADO objektov je
> vsak mozne optimalizovat vykon.
OLE DB se nastavuje v principu uplne stejne (z vnejsiho pohledu
uzivatele), jako ADO. Veskera nastaveni se provadeji az pri vlastni
inicializaci komponent (jako u ADO), je tam vsak vice ruznych
moznosti. Pri primem pristupu na OLE DB je vsak slozitejsi se v
tom orientovat, oproti ADO.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Velikost client area u MDIForm
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 29.2.2000 14:00:24
> From: Foldyna Ji�� <jiri.f(zv)avizo(tec)cz>
> > pri vytvareni MDIChild okna jsem narazil na problem presneho urceni
> > velikosti client area na MDIForm. Pokud do udalosti
> FormCreate child okna
> > dam
> >
> > ...
> > Top := 0;
> > Left := 0;
> > Width := FrameForm.ClientWidth; // Frame Form je MDIForm
> > Height := FrameForm.ClientHeight;
> >
> > tak se vytvori Child okno tak, ze se nevejde do Client area
> (vytvori se
> > scrollbary). Pokud sirku a vysku zmensim o 4, vejde se (to
> plati jen pro
>
> Ahoj,
>
> Podle mne se jedna o chybu ve VCL. Lze to obejit treba takhle:
>
> procedure TMDIChild.FormCreate(Sender: TObject);
> var
> R: TRect;
> begin
> Win32Check(Windows.GetClientRect(MainForm.ClientHandle, R));
> BoundsRect := R;
> end;
>
> Petr Vones, amatersky programator
Diky,
navrzene reseni funguje. Dival jsem se do VCL a zda se, ze skutecne jde o
chybu uvnitr Controls.pas - nenasel jsem nikde volani GetClientRect z
WinAPI. Spis to vypada, ze se ClientRect odvodi z rozmeru formulare a pak uz
s nim jen hybou pri zmene velikosti. To by vysvetlovalo, proc si to nevsima
napriklad alBottom statusbaru. To je ale trochu bordel, ne ?
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
BDE
[*] j_jura(zv)adast(tec)cz <j_jura(zv)adast(tec)cz> - 29.2.2000 14:03:34
Zdarec,
tak jak se zda, problem s BLOBy na AS400, bude asi v BDE. Uz jenom
v Database Exploreru se sloupec BLOB jevi jako CHAR, coz asi moc rozumne
nebude. Ovsem zato prace s BLOBy pod PARADOXem je bezproblemova.
Mam k dispozici Delphi 3 C/S a chtel bych se zeptat kde presne se da
stahnout free upgrade na BDE nebo nejaky service patch (jest-li vubec).
Dikec
Jarda
Distribuce apl. s ODBC
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 29.2.2000 14:09:45
Ahoj,
chtel bych poprosit vsechny, kdo to uz nekdy delali, o nazor. Mam
databazovou aplikaci vyuzivajici ODBC. Jak jste resili jeho
nastaveni u zakaznika? Nemam problem nainstalovat MDAC. Jde
mi o to, ze standardni pristup na SQL (MSSQL 7) je pres named
pipes. Ja potrebuji toto (tj. network library) zmenit na TCP/IP. Rad
bych, aby toto konfigurovani delal program.
Pokud tedy distribuujete aplikace s ODBC, jak resite nastaveni?
Dik, David
pevne ukotveni oken MDIChild
[*] garalda <garalda(zv)mail(tec)cz> - 29.2.2000 14:31:18
>
>Nerad bych se mylil, ale onresize se vola i pri pohybu, takze tam.
>
Tak ted jsem to vyzkousel a bohuzel, nevola.
>>
>> nevite nekdo nahodou jak bych mohl pevne ukotvit okna MDIChild?
>> Jedna se o nasledujici problem:
>>
BDE
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 29.2.2000 14:33:07
> Zdarec,
> tak jak se zda, problem s BLOBy na AS400, bude asi v
> BDE. Uz jenom
> v Database Exploreru se sloupec BLOB jevi jako CHAR, coz asi
> moc rozumne
> nebude. Ovsem zato prace s BLOBy pod PARADOXem je bezproblemova.
> Mam k dispozici Delphi 3 C/S a chtel bych se zeptat kde presne se da
> stahnout free upgrade na BDE nebo nejaky service patch
> (jest-li vubec).
> Dikec
> Jarda
Update BDE (5.1.1 z 16.2.2000) si muzes stahnout zde:
http://www.borland.com/devsupport/bde/bdeupdate.html
Je toho ale pres 11 M.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Adonis - nastaveni
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 29.2.2000 14:42:13
> > OLEDB je nativne rozhranie pre MS SQL 7, takze je to automaticky
> > najvyhodnejsie rozhranie z hladiska rychlosti. Nejake globalne
> > nastavenia tam asi nie su, pomocou roznych properties ADO objektov je
> > vsak mozne optimalizovat vykon.
>
> OLE DB se nastavuje v principu uplne stejne (z vnejsiho pohledu
> uzivatele), jako ADO. Veskera nastaveni se provadeji az pri vlastni
> inicializaci komponent (jako u ADO), je tam vsak vice ruznych
> moznosti. Pri primem pristupu na OLE DB je vsak slozitejsi se v
> tom orientovat, oproti ADO.
>
> Zbysek Hlinka
Jeste vcera jsem si myslel, ze umim nastavit Adonis tak, aby byl
rychlejsi nez ODBC. ted jsem zjistil, ze to byl omyl - je-li
nastavene asynchronni fetchovani, dostal jsem sice vysledek
rychleji, ale rada zaznamu ve vysledku chybela. Vim, ze jsem asi s
asynchronnim rezimem nepracoval spravne, ale bez teto volby
jsem nedokazal zaridit, aby Adonis byl rychlejsi nez ODBC
komponenty od L. Fuleho.
Nemam zatim zadny duvod verit, ze ADO je rychlejsi nez
ODBC. Mne se jevi nejen pomalejsi, ale navic rychlost pri stejnem
nastaveni zavisi na objemu vysledne mnoziny dat. ODBC
komponenty davaji pri nejakem doporucenem nastaveni "vzdy"
dobry vysledek. U Adonisu hodne zalezi na tom, v jakem vztahu k
sobe je velikost datove cache a pocet zaznamu, ktere jsou vraceny
dotazem. Rozhodne nepovazuji za prakticke u kazdeho dotazu
zjistovat, kolik asi tak prumerne vraci dat, abych tomu Adonis
prizpusobil.
Jake mate zkusenosti vy, databazari? :))
David
Pocet kopii v QReporte
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 29.2.2000 15:02:26
Ahoj,
D3, QR20k
chcem vytlacit 2 kopie dokumentu pomocou QReportu, a hoci nastavim PrinterSettings.Copies := 2 tlaciaren vytlaci iba jednu stranku. Neviete niekto ako to dosiahnut?
Pouzivam nasledovny postup:
...
PrintDocument(True, 2);
...
v unite QRep.pas, kde je definovany TQuickRep je public fcia
procedure PrintDocument(DoPreview: Boolean; Copies: Integer);
var
QRDocument: TQRDocument;
begin
QRDocument := TQRDocument.Create(Application);
with QRDocument do
begin
PrinterSettings.Copies := Copies; // nastavim pocet kopii, ale nic sa neudeje
if DoPreview then
Preview
else
Print;
Free;
end;
end;
Dik za namety.
Pavol Stolc
pstolc(zv)sc.sknet.sk
Interbase a ziskani mesice a roku
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 29.2.2000 14:28:34 -0000
IB 5.5; D 5 Ent UP 1; Win 98 / NT 4.0 SP 5
Nevite prosim nekdo nahodou jak ziskat na Interbase serveru v ulozene procedure aktualni rok,mesic a ulozit ho do promene typu VARCHAR ?
Neco podobneho jako pro polozky typu DATE mohu zadat "NOW".
Dik Jirka Majvald
Ukladani komponent
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 29.2.2000 15:32:43
Ahojte
mam nasledujici problem:
ukladam formular do stream pomoci writecomponent, vetsinou se ulozi spravne, ale kdyz mam
na formu nejakou komponentu, ktera obsahuje dalsi komponenty v sobe, tak ty se neulozi.
Pritom v poli Components jsou. Ulozi se mi vzdy jen komponenta, ktera nema jmeno, ale ty
ostatni jmeno musi mit.
Nevite nekdo?
Pavel
----------------------------------
Pavel Krehula <pavel(zv)mas(tec)cz>
M and S spol. s r.o. Boskovice
----------------------------------
exception = blue death
[*] Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz> - 29.2.2000 16:45:44
----- Original Message -----
From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 10:30 PM
Subject: RE: exception = blue death
> ----- Original Message -----
> From: Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz>
> Sent: Monday, February 28, 2000 12:44 PM
> Subject: exception = blue death
>
>
> > Ahoj,
> >
> > PC: Celeron 400, 64MB, 4.3GB, S3 Trio3D/2x, OS WIN98 SE CZ
> > DELPHI 4 std + SP3
> >
> > mam nasledujici problem:
> > pokud spustim nasledujici cast kodu
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var a, b: single;
> > begin
> > a := 1; b := 0;
> > try
> > ShowMessageFmt('a/b=%f', [a / b]);
> > except
> > raise;
> > end;
> > end;
> >
>
> ak nechces aby nastala vynimka skus to takto:
>
> try
> ShowMessageFmt('a/b=%f', [a / b]);
> except
> end;
>
> resp. to este rozdrobit na mesie etapy:
>
> var a, b, c: single;
> ...
> try
> c := a / b;
> ShowMessageFmt('a/b=%f', [c]);
> except
> end;
>
> raise ma vyznam len ak po osetreni vyjimky (co tu nie je) chcem vyvolat
> vynimku znova.
>
> Palo.
Problem je ze mi nejde o vyvolani vyjimky. Posledni kod co jsi napsal mi
prave taky zpusobi modrou obrazovku a pomuze jen restart. Podle me jde
evidentne o nesouhru HW a OS, protoze mi tato chyba nastala na trech uplne
stejnych masinach (jedna uz je u zakaznika), ale da se tohle nejak vyresit,
resp. je tohle chovani pocitace reklamovatelne, nebo co mam vlasne delat?
P.R.exception = blue death
[*] Pavel Rechberg <rec10um(zv)fpf.slu(tec)cz> - 29.2.2000 16:49:49
----- Original Message -----
From: Lubos RYBNICEK <mosek(zv)admiton(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 5:24 PM
Subject: RE: exception = blue death
> Problem mozna bude v tom, ze k tomu deleni nulou dochazi pri vyhodnocovani
> parametru ShowMessageFmt. A proc tu vyjimku vlastne vyvolavas? EDivByZero
se
> raisne uplne samo
> co tohle?
>
> procedure TForm1.Button1Click(Sender: TObject);
> var a, b: single;
> c: real;
> begin
> a := 1; b := 0;
> try
> c := a / b;
> ShowMessageFmt('a/b=%f', [c]);
> except
> on E:EDivByZero do begin
> ShowMessage('deleni nulou');
> end;
> end;
> end;
>
> Ale jestli trvas na rucnim vyvolani vyjimky, tak vzdycky musis uvest jeji
> typ:
> raise EDivByZero.Create('Deleni nulou');
>
> Lubos Rybnicek
> ICQ UIN 18817151
> Phone: +420 603 916889
>
>
Samozrejme mas pravdu, vyjimku vubec nechci vyvolat, vsechny tve navrhy
bohuzel konci stejne - modra obrazovka
P.R.
Interbase a ziskani mesice a roku
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 29.2.2000 17:07:46
To je sice ta nejspravnejsi cesta, ale napr. verze pod novell to
neumi a pak je jedina moznost napsat si na to stored proceduru.
Je to sice o neco pomalejsi, ale funguje to spolehlive.
> Na to treba UDF naprogramovat do DLL
> Email: tungli(zv)datapac.sk
> jan.tungli(zv)seznam(tec)cz
> Subject: Interbase a ziskani mesice a roku
> IB 5.5; D 5 Ent UP 1; Win 98 / NT 4.0 SP 5
>
> Nevite prosim nekdo nahodou jak ziskat na Interbase serveru v ulozene =
> procedure aktualni rok,mesic a ulozit ho do promene typu VARCHAR ?
> Neco podobneho jako pro polozky typu DATE mohu zadat "NOW".
>
> Dik Jirka Majvald
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
web kamera - hardware
[*] Michal Kop��ek - 29.2.2000 17:30:14
d�k,
ted se k tomu nedostanu ale muze se to nekdy hodit ..... :)
************************************
Michal Kop�cek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
petr.palicka(zv)atlas(tec)cz
Sent: Tuesday, February 29, 2000 11:38 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: web kamera - hardware
hi
junita pro praci s videem je na mem verejnem disku
http://mujdisk.atlas(tec)cz/petr.palicka
vyber si verejny disk
E:
DELPHI
a tam je AviCap32.pas
cau peca
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.126 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
Memo a Selection
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 29.2.2000 17:32:57
Cauves
diky moc, to prvni mi funguje ale to druhy ne
a to prvni je ok, ale jak udelat aby to vlozilo text za kurzor ale treba
rozdelilo na radky a nepsalo za sebou?
maze to celej posledni radek, ale ja potrebuj smazat jenom posledni vlozenej
text
dikes
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 10:35 PM
Subject: Re: Memo a Selection
> From: Jan Bachor <bachor(zv)iol(tec)cz>
> > mam na formulari Memo
> > a po kliknuti na tlacitko chci aby se mi vlozila selekce(text) za kurzor
> > mysi
> > prikaz memo1.lines.add(text) se text prida na konec mema, ale je
porebuju
> > aby se vlozil tam kde je kurzor
>
> Ahoj,
>
> napriklad takhle:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with Memo1 do
> begin
> SelLength := 0;
> SelText := 'Vlozeny text';
> end;
> end;
>
> > a jeste druhej dotaz, jak smazat posledni vlozenej text do mema?
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> with Memo1.Lines do
> Delete(Count - 1);
> end;
>
> Petr Vones, amatersky programator
>
>
>
Interbase a ziskani mesice a roku
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 29.2.2000 16:50:05 -0000
To me taky napadlo ale doufal jsem ze to pujde nejak jinak ... neco jako EncodeDate(... v delphi.
Jirka Majvald
----- Original Message -----
From: J�n Tungli
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 22, 2000 12:30 PM
Subject: RE: Interbase a ziskani mesice a roku
Na to treba UDF naprogramovat do DLL
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
jan.tungli(zv)seznam(tec)cz
tel: 07 / 5565096 -8 kl.102
fax: 07 / 55410384
URL: http://free.netlap.hu/4321
----- Original Message -----
From: Jirka Majvald
To: Delphi konference
Sent: Tuesday, February 29, 2000 3:28 PM
Subject: Interbase a ziskani mesice a roku
IB 5.5; D 5 Ent UP 1; Win 98 / NT 4.0 SP 5
Nevite prosim nekdo nahodou jak ziskat na Interbase serveru v ulozene procedure aktualni rok,mesic a ulozit ho do promene typu VARCHAR ?
Neco podobneho jako pro polozky typu DATE mohu zadat "NOW".
Dik Jirka Majvald
Memo a Selection
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.2.2000 18:04:57
On 29 Feb 00, at 9:20, Pavel ZIDEK wrote:
BEGIN OT
> Slovo "amat�r" lze prelozit jako laik, ale puvodni vyznam byl, ze je
> to clovek, ktery dela danou vec rad a nepozaduje za to penize. Budme
> radi, ze Petr je tak skromny a vsem nam pomaha. Pavel ZIDEK
Mno, skromny... Ja bych to nazval trochu jinak. :-) Kdyz jsem ho
chtel vylakat (a nejen ja) na profesionalni drahu (tedy aby
programoval za penize), hodne se vzpouzel. :-)
END OT.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zmena DialogUnit a ListView
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 29.2.2000 18:06:13
Ahoj,
Aplikaciu ktoru programujem, pouziva viacero zakaznikov s nastavenim "Large Fonts" (velke pismo). Dialogove okna sa tejto zmene dobre prisposobia, takze vzhlad aj funkcnost je v poriadku. problem je len s komponentou ListView, ktorej ColumnHeader sa neprisposobi nojej dialogovej jednotke a stlpce su odrazu uzsie. Je toto spravanie typicke alebo sa jedna o chybu VCL? Ma niekto napad ako to obist?
Dik, Pavol Stolc
pstolc(zv)sc.sknet.sk
exception = blue death
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 29.2.2000 18:25:40
> > procedure TForm1.Button1Click(Sender: TObject);
> > var a, b: single;
> > c: real;
> > begin
> > a := 1; b := 0;
> > try
> > c := a / b;
> > ShowMessageFmt('a/b=%f', [c]);
> > except
> > on E:EDivByZero do begin
> > ShowMessage('deleni nulou');
> > end;
> > end;
> > end;
>
> Samozrejme mas pravdu, vyjimku vubec nechci vyvolat, vsechny tve navrhy
> bohuzel konci stejne - modra obrazovka
> P.R>
aha, tak to nevim. ja osobne bych asi preinstaloval windowsy. ale je mi
jasny, ze to je to posledni co chces delat
Lubos
Umisteni uvitaci obrazovky s logem
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 29.2.2000 19:38:23
>From: <petr.palicka(zv)atlas(tec)cz>
>
> toto vrazis do unity s formularem pro logo
>begin
> fLogo:=TfLogo.Create(Application);
> fLogo.Show;
> fLogo.Update;
>end.
Kam presne? Kdyz to vrazim do implementation, tak mi vybehne EResNotFound!
M.Jirman
Prevod dat z PC Fandu
[*] Delphi <delphi(zv)deis(tec)cz> - 29.2.2000 21:14:48
> potreboval bych jednorazove dostat data z PC Fandu do nejakeho normalniho
> datoveho formatu.
Pokud povazujes Dbase za normalni tak si nadefinuj pozadovanou strukturu v
ve fandu
kapitola
Typ=F
Nazev =prevod.dbf
text= vlastni struktura dat
a mergem to tam preved a pak si to pres BDE dej kam potrebujes
Co se tyka cestiny bude asi nutne provest jeste prevod typ 'LW'
S pozdravem Heinisch Ji��
http://www.deis(tec)cz/GastroSoft/
�e�en� pro va�i restauraci - ��tenky,pokladna, kalkulace, receptury, sklady
GIS knihovny nebo komponenty
[*] E&J soft <uli(zv)internet.sk> - 29.2.2000 22:07:07
Pekny den preji,
Map Object od Esri (Arc View, Arc Info).
Maji na sve strance demoverzi.
http://www.esri.com
About ArcView IMS. About MapObjects IMS. Order Serving Maps on the Internet,
a book from ESRI Press. �. GIS Day. �. Climate Mapping. �. Spatial...
URL: maps.esri.com/
Jaro
Adonis - nastaveni
[*] Erik Salaj <winsoft(zv)napri.sk> - 29.2.2000 22:27:30
> Jeste vcera jsem si myslel, ze umim nastavit Adonis tak, aby byl
> rychlejsi nez ODBC. ted jsem zjistil, ze to byl omyl - je-li
> nastavene asynchronni fetchovani, dostal jsem sice vysledek
> rychleji, ale rada zaznamu ve vysledku chybela. Vim, ze jsem asi s
> asynchronnim rezimem nepracoval spravne, ale bez teto volby
> jsem nedokazal zaridit, aby Adonis byl rychlejsi nez ODBC
> komponenty od L. Fuleho.
Asynchronne fetchovanie dotahuje zaznamy na pozadi, asi este neboli
dotiahnute vsetky (je to mozne testovat, pripadne pockat na ukoncenie).
> Nemam zatim zadny duvod verit, ze ADO je rychlejsi nez
> ODBC. Mne se jevi nejen pomalejsi, ale navic rychlost pri stejnem
> nastaveni zavisi na objemu vysledne mnoziny dat. ODBC
> komponenty davaji pri nejakem doporucenem nastaveni "vzdy"
> dobry vysledek. U Adonisu hodne zalezi na tom, v jakem vztahu k
> sobe je velikost datove cache a pocet zaznamu, ktere jsou vraceny
> dotazem. Rozhodne nepovazuji za prakticke u kazdeho dotazu
> zjistovat, kolik asi tak prumerne vraci dat, abych tomu Adonis
> prizpusobil.
Skontroluj, ci mas nastaveny SQLOLEDB provider a clServer CursorLocation.
Dalsie properties, ktore maju vplyv na vykon su CursorType (nastav na
ctForwardOnly),
LockType (nastav na ltReadOnly), CommandType (nastav na ctTable ak zadavas
nzaov tabulky,
alebo ctText, ak zadavas SQL prikaz). Toto je asi najrychlejsie nastavenie
(ovsem s obmedzenim
urcitej funkcionality, co je logicke) a vhodnou volbou tychto nastaveni by
malo byt mozne najst
vhodny kompromis vykon/funkcnost.
U klientskeho recordsetu (clClient CursorLocation) znacne spomaluje citanie
aktualnej
pozicie zaznamu, preto je mozne toto vypnut pomocou property Options
(opWithoutAbsolutePosition).
Erik Salaj
Delphi 5 - krokovani programu
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 29.2.2000 22:44:44
Panove ( a damy ?), help ...
Pri krokovani programu v D5 pomoci F7/F8 se uprostred procedury najednou
program pri dalsim kroku rozbehne, jako kdybych ho spustil (F9)
V procedure se jen nacita obsah z recodru v tabulce do nejakeho objektu.
Kdyz spustim program bez trasovani, tak se provede jen cast te procedury.
Zadne exceptiony to nehlasi a program normalne bezi.
Myslim, ze na konferenci nedavno neco podobneho bezelo, ale nemuzu to najit.
Nevim, co to muze byt za cihost.
Diky za kazdou radu
Mirek
Konfigurace:
P166/64 MB, W98, D5 Pro, patch mam , ale zatim jsem ho nenaistaloval.Nekolik dotazu
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 01.3.2000 04:26:51 pst
ad 2)
muzes pouzit globalni promennou Screen (Typ TScreen), dale viz help
ale staci se podivat na property formu Position - poScreenCenter
----Original Message Follows----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
Reply-To: delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
Subject: Nekolik dotazu
Date: Wed, 1 Mar 2000 12:16:15 +0100
Dobry den,
mam nekolik dotazu, a to:
1) Kdyz ma soubor nastaven atribut jen ke cteni a oteviram jej pomoci
FileOpen(jmeno, fmOpenRead), tak mi vrati handle -1. Pokud jej vsak
oteviram pomoci AssignFile(p, jmeno) - Reset(p), tak je vse v
poradku. Ja se tedy ptam, jakym zpusobem se da otevrit soubor pomoci
funkce FileOpen, a pritom soubor zustal stale s atributem pro cteni.
2) Jak mohu zjistit rozliseni monitoru v bezici aplikaci. Jde mi o
to, jak hodit do stredu obrazovky program, ktery chci spustit.
Dekuji za jakekoliv konstruktivni odpovedi.
S pozdravem Petr Kucera.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Umisteni uvitaci obrazovky s logem
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 1.3.2000 06:11:37
Tohle se dava do sekce initialization unity, ktera obsahuje definici tohoto
Splash-screenu (zrusi se to v onCreate hlavniho formulare nebo explicitne
pred Application.Run DPR souboru). Jiste komplikace nastanou, je-li tento
dialog prekryvan jinym, z nejake jednotky, ktera je podobne pripojovana.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: p. Jirman [SMTP:jim.design(zv)iol(tec)cz]
> Odesl�no: 29. �nora 2000 19:38
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Umisteni uvitaci obrazovky s logem
>
>
> >From: <petr.palicka(zv)atlas(tec)cz>
> >
>
> > toto vrazis do unity s formularem pro logo
> >begin
> > fLogo:=TfLogo.Create(Application);
> > fLogo.Show;
> > fLogo.Update;
> >end.
>
>
> Kam presne? Kdyz to vrazim do implementation, tak mi vybehne EResNotFound!
>
>
> M.Jirman
>
> TDBMemo nejde editovat
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 1.3.2000 06:17:04
----- Original Message -----
From: Pavol Stolc
Sent: Tuesday, February 29, 2000 6:32 AM
Subject: TDBMemo nejde editovat
> na formulari mam niekolko db-aware komponent, medziinymi aj TDBMemo, ktory je linkovany na pole typu Blob
> Sub type Text. Moj problem je ze vsetky db-komponenty su editovatelne, len to memo nie? Pozna niekto kde je
> problem? Treba nejake zvlastne nastavenia aby bola aj tato komponenta editovatelna
Sorry, uz som to nasiel. Ten dbmemo lezal na paneli s Enabled:=False a akosi to nebolo vidiet...
P.Interbase 5.5: Co na server a co na klienta?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.2.2000 21:55:32 -0800
Preji vsem pekneho dne,
mam pocitace propojene nejakou siti, protokol je tcp/ip. Na jednom
z nich chci mit IB 5.5, na ostatnich program v D5 Enterprise,
pristup nativne a mam par otazek:
a) Co vse je potreba dat na server? Staci pouze nainstalovat IB?
b) Co vse musim mit na klientovi? Musim mit klienta IB? Musim
mit link? Musi se neco nastavovat krome IP adresy, kdyz chci k
databazi pristoupit?
Diky za kazde info.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Adonis - nastaveni
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.3.2000 07:44:31
On 29 Feb 00, at 14:42, David Lebeda wrote:
> Jeste vcera jsem si myslel, ze umim nastavit Adonis tak, aby byl
> rychlejsi nez ODBC. ted jsem zjistil, ze to byl omyl - je-li nastavene
> asynchronni fetchovani, dostal jsem sice vysledek rychleji, ale rada
> zaznamu ve vysledku chybela. Vim, ze jsem asi s asynchronnim rezimem
> nepracoval spravne, ale bez teto volby jsem nedokazal zaridit, aby
> Adonis byl rychlejsi nez ODBC komponenty od L. Fuleho.
Jak jsem jiz drive psal, zjistil jsem (pri urcitem konkretnim
zamereni testu), ze pristup pres ODBC je ve vetsine pripadu
rychlejsi nez BDE+nativni drajv nebo ADO (testoval jsem MS SQL
7). A to i v kombinaci BDE+ODBC. Pristup pres ADO byl pak
mirne pomalejsi nez pres OLE DB (je to logicke, zde dochazi k
mirne ztrate diky dalsi vrstve komponent). Povazuji to vsak za
logicke, protoze OLE DB je postavene jinak nez ODBC, jinymi
slovy OLE DB ma vetsi rezii.
Rychlost vsak neni vse, protoze OLE DB umoznuje podstatne vice
nez OLE DB, krome toho je to obecnejsi rozhrani k pristupu k
datum. ODBC umi jen databaze, OLE DB umi (pres providery)
jakakoliv data.
Dalsi vec je vyhled o budoucna - ODBC je odsouzeno k doziti,
OLE DB lze naopak ocekavat casem i na jinych platformach nez
MS Windows. Tedy, v ODBC nevidim perspektivu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Interbase 5.5: Co na server a co na klienta?
[*] Lu�ek Tenkr�t - 1.3.2000 08:25:18
mam pocitace propojene nejakou siti, protokol je tcp/ip. Na jednom
z nich chci mit IB 5.5, na ostatnich program v D5 Enterprise,
pristup nativne a mam par otazek:
a) Co vse je potreba dat na server? Staci pouze nainstalovat IB?
Na server je potreba nainstalovat InterBase a nekam umistit datovy soubor.
b) Co vse musim mit na klientovi? Musim mit klienta IB? Musim
mit link? Musi se neco nastavovat krome IP adresy, kdyz chci k
databazi pristoupit?
Pri nativnim pristupu je potreba IB klient a do ..\WINDOWS\hosts napsat:
jmenoserveru IP adrea
a pak uz se jen pripojit na "jmenoserveru:DISK:\cesta k datum\soubor.gdb".
(jestli jde nejak udelat "IP_adresa:DISK:\cesta k datum\soubor.gdb" nebo
jeste lepe "IP_adresa:alias" dejte mi prosim vedet)
Honza Seifert
Prace se skupinou Labelu
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 1.3.2000 08:26:32
Nejlepe udelas, kdyz si nastavis Tag vlastnost pro ty Label prvky, ktere
chces testovat:
with (Sender as TLabel) do begin
if Tag = 1 then ...
end;
Petr
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Lumir Karas
> Sent: Wednesday, March 01, 2000 9:29 AM
> To: Konference Delphi
> Subject: Prace se skupinou Labelu
>
>
> Ahoj,
>
> Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou
> Labelu napr. Label1..Label25? Potreboval bych to napr. pro
> tyto pripady:
>
> Znak:=(Sender as TLabel).Caption;
> If TLabel(Components[a]).Caption=Key then...
>
> ale bere to vsechny Labely na Formulari.
>
> Diky za kazdou radu. Lumir.
> seriovy port
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 1.3.2000 08:28:12
pouzitelna je freeware componenta TComm. Posilam hlavicku z prislusne unity.
V pripade potreby muzu poslat uvedenou komponentu i s popisem ve verzi pro
D3 do Vasi schranky.
Jaromir Cermak
//**************************************************************************
****
// VARIAN ASYNC32 COMPONENT v1.25
// (c) VARIAN SOFTWARE SERVICES NL 1996-1997
// ALL RIGHTS RESERVED
//**************************************************************************
****
//Written by Varian Software Services NL, The Netherlands
//Subject: Async32 Component
//Version: 1.26
//Platform: Delphi 3, Win95, NT
//Date: 2 June 1997
//Last update: 16st December 1997
//Release: Freeware, just let us know what you think of it....
//if you make any modifications to the source, please send us a copy.
//We will verify your changes and give you proper credit when included.
//Please send any questions, remarks or suggestions to our following
//address: Varian(zv)worldaccess.nl
// THIS SOFTWARE IS PROVIDED 'AS-IS', WITHOUT ANY EXPRESS OR IMPLIED
//WARRANTY. IN NO EVENT WILL THE AUTHOR BE HELD LIABLE FOR ANY DAMAGES
// ARISING FROM THE USE OF THIS SOFTWARE.
//**************************************************************************
**
// Our thanks goes to all the people who helped creating and
// testing this component for their support and suggestions.
//**************************************************************************
**
-----Original Message-----
From: David KALLAB [mailto:dkallab(zv)scova.vabo(tec)cz]
Sent: Tuesday, February 29, 2000 5:50 AM
To: delphi
Subject: seriovy port
pratele
Poradte mi pros�m jakym zpusobem je mozne komunikovat pres RS232 s externim
zarizenim. Existuje nejaka komponenta?
Diky DaK
Interbase a ziskani mesice a roku
[*] Pavel Bare� <Atoll(zv)telecom(tec)cz> - 1.3.2000 08:31:18
Tyto funkce jsou v knihovne FreeUDFLib, ktera je ke stazeni i s popisem na : http://www.interbase.dthomas.co.uk/ibdownloads.htm
jmenuje se to F MONTH,F YEAR
Pavel Bare�
Atoll s.r.o.
----- Original Message -----
From: Jirka Majvald
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 29, 2000 5:50 PM
Subject: Re: Interbase a ziskani mesice a roku
To me taky napadlo ale doufal jsem ze to pujde nejak jinak ... neco jako EncodeDate(... v delphi.
Jirka Majvald
----- Original Message -----
From: J�n Tungli
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 22, 2000 12:30 PM
Subject: RE: Interbase a ziskani mesice a roku
Na to treba UDF naprogramovat do DLL
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
jan.tungli(zv)seznam(tec)cz
tel: 07 / 5565096 -8 kl.102
fax: 07 / 55410384
URL: http://free.netlap.hu/4321
----- Original Message -----
From: Jirka Majvald
To: Delphi konference
Sent: Tuesday, February 29, 2000 3:28 PM
Subject: Interbase a ziskani mesice a roku
IB 5.5; D 5 Ent UP 1; Win 98 / NT 4.0 SP 5
Nevite prosim nekdo nahodou jak ziskat na Interbase serveru v ulozene procedure aktualni rok,mesic a ulozit ho do promene typu VARCHAR ?
Neco podobneho jako pro polozky typu DATE mohu zadat "NOW".
Dik Jirka Majvald
Prace se skupinou Labelu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 1.3.2000 08:37:30
Ahoj,
pro skupinu labelu jsem pouzival:
a/ pomoci tag jsem je seskupoval do skupin a pak testoval If (Sender As
TLabel3D).Tag=8 Then ...
b/ pomoci panelu - If (Sender As TLabel3D).Parents=Panel1 Then ...
nebo ve smycce For I:=0 To ComponentCount-1 Do If Components[I] is
TPubEdit Then With TPubEdit(Components[I]) Do If Parent=Panel1 Then ...
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Lumir Karas [SMTP:lumir.delphi(zv)post(tec)cz]
> Odesl�no: 1. b�ezna 2000 9:29
> Komu: Konference Delphi
> P�edm�t: Prace se skupinou Labelu
>
> Ahoj,
>
> Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou
> Labelu napr. Label1..Label25? Potreboval bych to napr. pro tyto pripady:
>
> Znak:=(Sender as TLabel).Caption;
> If TLabel(Components[a]).Caption=Key then...
>
> ale bere to vsechny Labely na Formulari.
>
> Diky za kazdou radu. Lumir.pevne ukotveni oken MDIChild
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 1.3.2000 08:39:39
A co ti brani si tam nieco ako OnMove pridat, staci pridat obsluhu sprav
WM_MOVE alebo WM_MOVING.
type
TForm1 = class(TForm)
...
procedure FormMove(var Message: TWMMove); message WM_MOVE;
...
end;
----- Original Message -----
From: garalda <garalda(zv)mail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 29, 2000 10:00 AM
Subject: pevne ukotveni oken MDIChild
> Ahoj,
>
> nevite nekdo nahodou jak bych mohl pevne ukotvit okna MDIChild?
> Jedna se o nasledujici problem:
>
> Mam hlavni okno, ve kterem mam 3 podokna (okno1, okno2, okno3), ale
> zobrazuji soucasne vzdy jen dve podokna (okno1, okno3 nebo okno2, okno3) a
> to viditelne podokno proste hodim dopredu (BringToFront). Podokna okno1 a
> okno2 jsou jen orientacni k oknu3, takze jsou rozmerove mensi - nemuzu
tedy
> pouzit Tile (alespon predpokladam). Podokna zabiraji celou plochu hlavniho
> okna. Jak ale muzu zakazat uzivateli, aby chytil kterekoliv podokno a
> posunul ho stranou? U formu jsem nenasel zadnou udalost OnMove nebo neco
> podobneho.
>
> (D4 Pro, WinNT 4)
>
> Diky
>
>
>Prace se skupinou Labelu
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 1.3.2000 08:44:30
> Ahoj,
> Nevite prosim nekdo jak bych mohl pracovat pouze s
> vybranou skupinou Labelu napr. Label1..Label25?
> Potreboval bych to napr. pro tyto pripady:
>
> Znak:=(Sender as TLabel).Caption;
> If TLabel(Components[a]).Caption=Key then...
>
> ale bere to vsechny Labely na Formulari.
>
> Diky za kazdou radu. Lumir.
>
Vyuzij vlastnosti Tag (integer) komponenty. Vsem pozadovanym labelum zmen
Tag napr na hodnotu 1, potom:
if (Sender as TLabel).Tag=1 then
...tady si delej co chces se spravnym labelem...
Progr-Amather -Kchodl-� 1989-2000
NT a ADO
[*] Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz> - 1.3.2000 07:52:18 -0000
zravim pany delfisty,
Snazim se vytvorit pomoci ISAPI, aplikaci pro internet a spravce
serveru mi zakazal nainstalovat BDE a proto hledam jine reseni a napadlo mne
pristup pres ADO, ale nevim jestli win NT ve standartn� konfiguraci
podporuji tento pristup, nebo jestli se musi doinstalovavat a nemam s tim
vubec zadne zkusenosti. Pokud nekdo mate zkusenosti s touto problematikou a
trochu casu a chuti prosim poslete mi nejake informace.
Diky
Amatersky programator JC
Delphi 5 - krokovani programu
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 1.3.2000 09:00:49
Pred tydnem jsem mel podobne problemy s debugovanim (konkretne pri
debugovani ActiveX componenty). Obcas to neslo vubec, nekdy nejak pochybne.
Po nainstalovani patche to vse funguje dobre.
Nevim jestli to muze byt stejne i u tebe, ale myslim, ze za nainstalovani
patche nic nedas (nebo jo?).
Pavel Vasek
----- Original Message -----
From: Mirek Junek <mjunek(zv)uo.fairnet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 29, 2000 10:44 PM
Subject: Delphi 5 - krokovani programu
> Panove ( a damy ?), help ...
>
> Pri krokovani programu v D5 pomoci F7/F8 se uprostred procedury najednou
> program pri dalsim kroku rozbehne, jako kdybych ho spustil (F9)
> V procedure se jen nacita obsah z recodru v tabulce do nejakeho objektu.
> Kdyz spustim program bez trasovani, tak se provede jen cast te procedury.
> Zadne exceptiony to nehlasi a program normalne bezi.
>
> Myslim, ze na konferenci nedavno neco podobneho bezelo, ale nemuzu to
najit.
>
> Nevim, co to muze byt za cihost.
>
> Diky za kazdou radu
> Mirek
>
> Konfigurace:
> P166/64 MB, W98, D5 Pro, patch mam , ale zatim jsem ho nenaistaloval.Prace se skupinou Labelu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 1.3.2000 09:04:57
Mozes napriklad do property Labelxx.Tag dat nejaku hodnotu povedzme 1 a vsetky, ktore maju tuto hodnotu patria do nejakej skupiny, ...
Pavol Kakacka
paka(zv)aktis(tec)cz
Ahoj,
Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou Labelu napr. Label1..Label25? Potreboval bych to napr. pro tyto pripady:
Znak:=(Sender as TLabel).Caption;
If TLabel(Components[a]).Caption=Key then...
ale bere to vsechny Labely na Formulari.
Diky za kazdou radu. Lumir.Prace se skupinou Labelu
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 1.3.2000 09:07:27
> Ahoj,
>
> Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou Labelu
napr. Label1..Label25? Potreboval bych to napr. pro tyto pripady:
>
> Znak:=(Sender as TLabel).Caption;
> If TLabel(Components[a]).Caption=Key then...
>
> ale bere to vsechny Labely na Formulari.
>
> Diky za kazdou radu. Lumir.
>
Vyuzij vlastnosti Tag (integer). Pozadovane skupine Labelu pridel stejny Tag
(napr. 1), potom:
if (Sender as TLabel).Tag=1 then
...tady si delej co uznas za vhodne...
Progr-Amather -Kchodl-� 1989-2000
Kniha k delphi
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 1.3.2000 09:09:09
Myslim, ze uz zde padlo dost nazoru, jaka kniha o Delphi je dobra, ale ja se
presto pripojim.
Z knih, ktere zde byly zminovany jsem snad vsechny vydel (nerikam, ze cele
cetl) a za apsolutne nejlepsi povazuji Mistrovstvi v Delphi 3.0. Najde se
tady skoro vsechno, od prehledu zakladu Pascalu, az po ActiveX, Databaze,
Komponenty a zminka je i o hakach (to jiz je ale opravdu jen zminka). Pritom
je kniha psana velmi prehledne.
Je vsak pravda, ze delphi jsou jiz ve verzi 5.0.
Pavel Vasek
----- Original Message -----
From: Josef ��P <sip(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 28, 2000 3:20 PM
Subject: Kniha k delphi
> Chtel bych se zeptat jaky je vas nazor na kniky "Borland Delphi - pr�vodce
> v�voj��e "
> Pripadne mohl by mi nekdo doporucit nejakou kniku k Delphi.
> Dik.Prace se skupinou Labelu
[*] Radek =?iso-8859-2?Q?Hole=E8ek?= <holecekr(zv)upfm(tec)cz> - 01.3.2000 09:12:46
Melo by to jit za pomoci vlastnisti Tag. Tam si dosadis cisla podle
pozadovanych
skupin, napr. Label1..Label25.Tag :=1, Label26..Label30.Tag = 2 atd.
Potom staci doplnit podminku AND TLabel(Components[a]).Tag = 1
Radek
> Ahoj, Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou
> skupinou Labelu napr. Label1..Label25? Potreboval bych to napr. pro
> tyto pripady: Znak:=(Sender as TLabel).Caption; If
> TLabel(Components[a]).Caption=Key then...ale bere to vsechny Labely na
> Formulari.Diky za kazdou radu. Lumir.Interbase a ziskani mesice a roku
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 01.3.2000 09:27:01
Ahoj,
jde to takhle - i bez pouziti UDF
set term ^ ;
create procedure yearmonth
returns (result varchar(8))
as
begin
select extract(year from cast ('now' as date))||','||extract(month
from cast ('now' as date)) from RDB$DATABASE into :result;
suspend; /* tohle tu samozrejme nemusi byt */
end ^
commit ^
set term ; ^
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Prace se skupinou Labelu
[*] Lumir Karas <lumir.delphi(zv)post(tec)cz> - 1.3.2000 00:29:22 -0800
Ahoj,
Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou Labelu napr. Label1..Label25? Potreboval bych to napr. pro tyto pripady:
Znak:=(Sender as TLabel).Caption;
If TLabel(Components[a]).Caption=Key then...
ale bere to vsechny Labely na Formulari.
Diky za kazdou radu. Lumir.OLE Registrace typu souboru
[*] Ji�� Fait���}���6���3 - 1.3.2000 09:47:45
Hi,
mam takovy problem. Pouzivame urcity komunikacni program pro faxovani
(nebudu delat reklamu) ktery vyzaduje aby soubor odesilany jako fax byl
zaregistrovan jako OLE Objekt.
Pokud jsme pouzivali Fax od MS stacilo vytvorit programek ktery po
asociaci extenze souboru jej otevrel pripadne vytiskl. Ted tento postup
nenuzeme pouzit.
Nemate nekdo skusenosti jak na to. Neni problem ze bych neumel vytvorit
Automation Objekt a zaregistrovat jej, ale nevim jak dale.
Jedna se o ulozene soubory QuickReportu.
Diky
TTreeView a Scroll
[*] David Svoboda <svoboda(zv)mefisto(tec)cz> - 01.3.2000 10:08:27
Prosim o pomoc s nasledujicim problemem v D5:
Ve formulari mam treeview s desitkami polozek, takze pri rozbaleni
nekolika vetvi se vsechny do treeview nevejdou a zobrazi se scrollbar.
Do tohoto treeview pretahuji Drag&Drop na danou vetev udaje z jinych
komponent ve formu. Problem ale je, kdyz dana vetev neni zobrazena.
Chtel jsem posunovat zobrazovany vyrez, pokud uzivatel najede mysi ke
kraji treeview (kurzor mysi je stale uvnitr treeview). Bohuzel jsem
zjistil, ze hierarchie treeview je TWinControl -> TCustomTreeView ->
TTreeView, takze nema property HorzScrollBar, VertScrollBar (coz je u
TWinScrollControl). Metoda ScrollBy( DeltaX, DeltaY : integer) nevede k
uspechu, nebo ji spatne pouzivam, resp. nevolam dalsi nutne fce. Prosim
o napady, jak tento problem vyresit, protoze v archivu konference jsem
nic nenalezl.
Diky David Svoboda
NT a ADO
[*] No Comment Group, s.r.o. / Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 1.3.2000 10:10:31
S tym by nemal byt ziadni problem. Mne uz takato aplikacia cez ado bez bde
bezi (pripajam sa na oracle). Pokial viem tak ado sa da stiahnut z
microsoftu a je aj na cd delphi.
Bohdan Pomsahar
----- Original Message -----
From: Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 8:52 AM
Subject: NT a ADO
>
> zravim pany delfisty,
> Snazim se vytvorit pomoci ISAPI, aplikaci pro internet a spravce
> serveru mi zakazal nainstalovat BDE a proto hledam jine reseni a napadlo
mne
> pristup pres ADO, ale nevim jestli win NT ve standartn� konfiguraci
> podporuji tento pristup, nebo jestli se musi doinstalovavat a nemam s tim
> vubec zadne zkusenosti. Pokud nekdo mate zkusenosti s touto problematikou
a
> trochu casu a chuti prosim poslete mi nejake informace.
>
> Diky
>
> Amatersky programator JC
Prace se skupinou Labelu
[*] No Comment Group, s.r.o. / Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 1.3.2000 10:19:41
napriklad takto:
procedure ....
var
nazov:string;
cislo:integer;
begin
nazov:=(Sender as TLabel).Name;
cislo:=strtoint(copy(nazov,6,length(nazov)-5));
if (cislo>1) and (cislo<26) then showmessage ('OK');
end;
len musis dorzat standartne nazvy Labelov
Bohdan Pomsahar
----- Original Message -----
From: Lumir Karas
To: Konference Delphi
Sent: Wednesday, March 01, 2000 9:29 AM
Subject: Prace se skupinou Labelu
Ahoj,
Nevite prosim nekdo jak bych mohl pracovat pouze s vybranou skupinou Labelu napr. Label1..Label25? Potreboval bych to napr. pro tyto pripady:
Znak:=(Sender as TLabel).Caption;
If TLabel(Components[a]).Caption=Key then...
ale bere to vsechny Labely na Formulari.
Diky za kazdou radu. Lumir.Delphi 5 - krokovani programu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 1.3.2000 10:44:50
| Pri krokovani programu v D5 pomoci F7/F8 se uprostred procedury najednou
| program pri dalsim kroku rozbehne, jako kdybych ho spustil (F9)
| V procedure se jen nacita obsah z recodru v tabulce do nejakeho objektu.
| Kdyz spustim program bez trasovani, tak se provede jen cast te procedury.
| Zadne exceptiony to nehlasi a program normalne bezi.
| Myslim, ze na konferenci nedavno neco podobneho bezelo, ale nemuzu to
najit.
| Nevim, co to muze byt za cihost.
Tiez sa pozri na to ci subor, ktory krokujes, je zkomilovany v projekte.
t.j. Mozes krokovat sice ten isty subor, ale textova forma sa lisi od jeho
zkompilovanej (rozdiel verzii). Schvalne si zapis nejaku chybnu syntax a
skus dat Build, ak narazi na problem tak ho kompiluje a problem je inde.
Cau.
Pavol Kaka�ka
paka(zv)aktis(tec)cz
Prace se skupinou Labelu
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 1.3.2000 10:57:43
> napriklad takto:
>
> procedure ....
> var
> nazov:string;
> cislo:integer;
> begin
> nazov:=(Sender as TLabel).Name;
> cislo:=strtoint(copy(nazov,6,length(nazov)-5));
> if (cislo>1) and (cislo<26) then showmessage ('OK');
> end;
>
> len musis dorzat standartne nazvy Labelov
>
a neni lepsi jiz uvedeny Tag?NT a ADO
[*] Tom� Br�dle������i�^����? - 1.3.2000 11:39:29
Zdravim,
-----P�vodn� zpr�va-----
Od: Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz>>pristup pres ADO, ale nevim jestli win NT ve standartn� konfiguraci
>podporuji tento pristup, nebo jestli se musi doinstalovavat a nemam s tim
podivej se jestli v adresari C:\Program Files\Common Files\SYSTEM\ADO
je knihovna MSADO15.DLL, a pres zalozku vlastnosti se podivej na verzi.
Pokud je alespon 2.10 tak je to OK. Je sice uz 2.5, ale ta je pro w2000.
Tomas
t.bradle(zv)pvtnet(tec)cz
Excel a Delphi 5 - jak na to?
[*] danikonf(zv)atlas(tec)cz - 1.3.2000 12:10:04
Zdravim,
zrovna se bavim kopirovanim dat z IB do Excelu, chtel bych to resit pomoci novych OLE komponent v Delphi 5. Zatim se ucim otevrit Excel, ale nejak se mi nedari. Toto mi nechodi, ale nevim proc:
ExcelApplication1.Visible := True;
Mate nekdo radu nebo nejaky funkcni priklad? Uvitam cokoliv na toto tema. Cik.
S pranim hezkeho dne
Daniel Martinec
-----
a tady je to, co jsem zatim vytvoril:
procedure TDataModule3.pupExportDat;
var
Template, NewTemplate, ItemIndex : OleVariant;
begin
try
Template := EmptyParam;
NewTemplate := True;
ItemIndex := 1;
try
ExcelApplication1.Connect;
except
MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
Abort;
end;
ExcelApplication1.Visible[1]; // := True;
ExcelApplication1.Caption := 'Delphi automation';
{Create new document}
Template := EmptyParam;
NewTemplate := False;
ExcelApplication1.Workbooks.Add(Template, NewTemplate);
{Assign ExcelWorkbook1 component}
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[(ItemIndex)]);
except
on E: Exception do
begin
ShowMessage(E.Message);
ExcelApplication1.Disconnect;
end;
end;
end;Nekolik dotazu
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 1.3.2000 12:16:15
Dobry den,
mam nekolik dotazu, a to:
1) Kdyz ma soubor nastaven atribut jen ke cteni a oteviram jej pomoci
FileOpen(jmeno, fmOpenRead), tak mi vrati handle -1. Pokud jej vsak
oteviram pomoci AssignFile(p, jmeno) - Reset(p), tak je vse v
poradku. Ja se tedy ptam, jakym zpusobem se da otevrit soubor pomoci
funkce FileOpen, a pritom soubor zustal stale s atributem pro cteni.
2) Jak mohu zjistit rozliseni monitoru v bezici aplikaci. Jde mi o
to, jak hodit do stredu obrazovky program, ktery chci spustit.
Dekuji za jakekoliv konstruktivni odpovedi.
S pozdravem Petr Kucera.