Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Umiestnenie textu v TEdit
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 31.3.2003 09:56:09
Ahojte,
mohol by mi prosim niekdo poradit ci sa nejakym sposobom da upravit
vertikatne umiestnenie textu v komponente TEdit (napr. vycentrovat na
vysku).
Na zmenu umiestnenia textu v horizontalnom smere som nasiel nieco ako
EM_SETMARGINS, ale je nieco take ak na zmenu vertikalneho umiestnenia???
Dakujem,
Lubos
Mesacne aktulizace
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 31.3.2003 09:08:38
Jestli existuje, to netusim. Ale na ftp.delphi(tec)cz (username DELPHI, =
heslo
ARCHIVAR) jsou v adresari Other/KonfViewTxtData data za rok 2000, 2001 =
a od
ledna do listopadu 2002. Novejsi jsem bohuzel na strance Slavka Rydvala
nenasel.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
existuje este ten dobrak, co kazdy mesiac urobil davku s dotazmi
konferencie
hodnota faArchive u f-ce FindFirst je zarazena do
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 31.3.2003 08:41:56
Znamena to, ze tato konstanta je platformove zavisla (neexistuje v
Kylixu). Takze pokud hces delat kod, ktery pujde zkompilovat i pod
Kylixem, musis si to osetrit.
Pokud delas kod jen pro Windows, spis si najdi, jak vypnout hlaseni,
tykajici se platformoveho varovani.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
31.3.2003 js-delphi(zv)quick(tec)cz:
> Ahoj.
> Mam dotaz viz %subjekt%. Pouzivam v aplikaci f-ci
> FindFirst, protoze chci zobrazit vsechny soubory
> s patricnou priponou.
> Pro vyhledavani pouziju faArchive, ale Delphi mi
> porad hlasi Warning: faArchive is in platfomr
> (nebo tak neco)
> Kdyz jsem se kouknul do zdrojaku, tak tam je
> opravdu u faArchive:
> faArchive=$000020 platform;
> Jenze co s tim? Kdyz ho nezadam, vysledek hledani
> je 0. Kdyz ho zadam, Delphi me varuji, ze neco
> delam spatne.
> Co s tim? Co znamena presne, ze je neco v
> platforme?
> Diky za radu
Balicky ???
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 31.3.2003 08:29:39
> Potrebuju radu ohledne vytvareni balicku (W2k, D5, SP1). S balicky je
> to muj prvni pokus. Archiv jsem procital, ale porad mi neni mnoho
> jasneho. Jak urcim, co bude v balickach, jak urcim jejich nazvy, ...
> ??? Privital bych radu nekoho zkuseneho, ktery mi to poda pekne
> polopate :-)
Ahoj,
pokusim se. Ke kazdemu "beznemu" programu v Delphi je krome Tveho kodu
prilinkovana knihovna VCL a pripadne dalsi kod pro komponenty tretich stran apod.
To tvori podstatnou cast velikosti exe. Pokud budes napr. budovat system slozeny z
vice modulu, at uz DLL nebo EXE, za normalnich okolnosti by kazdy takovy modul v
sobe obsahoval tuto VCL. Vznikla proto myslenka, takovyto potencialne spolecny
kod nelinkovat do EXE, ale dat ho do balicku a aplikace by pak tyto balicky pouzivaly
podobne jako DLL. Standardni knihovna VCL byla proto rozdelena do balicku se
standardnimi jmeny, najdes je v systemovem adresari Windows (pripona BPL).
Z uvedeno plyne, ze pokud aplikaci prelozis s balicky, bude vysledne exe sice mensi,
ale pri distribuci musis sirit i ty balicky. A to se (ve smyslu velikosti souboru) asi
nevyplati u malych jednoduchych aplikaci, ale u systemu, kde dochazi ke sdileni
kodu v balicku vice moduly. Tolik k zakladni myslence, s urcitym zjednodusenim -
prosim nekamenovat.
Mimo techto standardnich balicku si muzes ty sam rozhodnout, ze cast aplikace das
do balicku. Pak si jmeno i obsah balicku urcujes ty, ale samozrejme stale plati, ze s
aplikaci budes muset sirit i ten balicek.
Jestli to neni to, co jsi chtel slyset, tak promin.
hodnota faArchive u f-ce FindFirst je zarazena do
[*] <js-delphi(zv)quick(tec)cz> - 31.3.2003 08:21:34
Ahoj.
Mam dotaz viz %subjekt%. Pouzivam v aplikaci f-ci
FindFirst, protoze chci zobrazit vsechny soubory
s patricnou priponou.
Pro vyhledavani pouziju faArchive, ale Delphi mi
porad hlasi Warning: faArchive is in platfomr
(nebo tak neco)
Kdyz jsem se kouknul do zdrojaku, tak tam je
opravdu u faArchive:
faArchive=$000020 platform;
Jenze co s tim? Kdyz ho nezadam, vysledek hledani
je 0. Kdyz ho zadam, Delphi me varuji, ze neco
delam spatne.
Co s tim? Co znamena presne, ze je neco v
platforme?
Diky za radu
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Create Thread
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 31.3.2003 07:43:55
> Nikdy nevolej CreateThread, ale kdyztak uz BeginThread
> aby se nastavil memory manager do multithread rezimu.
Presne toto pisou v helpu. Ale uz jsem tam nenasel zminku
o tom, ze je potreba i upravit predavani parametru ...
(Mozna jsem spatne hledal ...)
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Bitmap 2 Icon
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 31.3.2003 08:06:15
> Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "1001
> tipu a triku pro Delphi"
>
> zdrojak je:
>
> function Bmp2Ico(Bitmap:TBitmap):TIcon;
> var IconSizeX:Integer;
> IconSizeY:Integer;
> AndMask:TBitmap;
> IConInfo:TIconInfo;
> begin
> //velikost ikony
> IconSizeX:=GetSystemMetrics(SM_CXICON);
> IconSizeY:=GetSystemMetrics(SM_CYICON);
> //vytvoreni AND bitmapy
> AndMask:=TBitmap.Create;
> AndMask.Monochrome:=true;
> AndMask.Width:=IconSizeX;
> AndMask.Height:=IconSizeY;
> AndMask.Canvas.Brush.Color:=clBlack;
> AndMask.Canvas.FillRect(Rect(0,0,IconSizeX,IconSizeY));
> //Vytvoreni ikony
> result:=TIcon.Create;
> IconInfo.fIcon:=true;
> IconInfo.xHotspot:=0;
> IconInfo.yHotspot:=0;
> IconInfo.hbmMask:=AndMask.Handle;
> IconInfo.hbmColor:=Bitmap.Handle;
> result.Handle:=CreateIconIndirect(IconInfo);
> AndMask.Free;
> end;
>
> procedure TForm1.ConvertBClick(Sender: TObject);
> begin
> Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
> Dest.Picture.SaveToFile('i.ico');
> ReLoad.Picture.Icon.LoadFromFile('i.ico');
> end;
>
> "Source" je TImage, kde je nactena zdrojova Bitmapa
> "Dest" je TImage do ktereho se vytvari Icona ze "Source"
> "ReLoad" je ulozena icona z "Dest" znova otevrena
>
> problem je v tom, ze v "Dest" se mi icona zobrazi spravne, ale jakmile ji
> ulozim a znovu nactu ma jenom 16 standardnich Windows barev (ani ne 16
> podobnych originalu)...
>
> Nevi nekdo, kde je problem?
>
Dobrz den !
Pokud volate vicekrat Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
opakovane vytvarite bitmapu result:=TIcon.Create; aniz ji rusite (ticon.free).
Poznamka a doporuceni :
Pokud nekde vytvarite objekt Object.create (...) musite jej i zrusit (object.free)
a to nejlepe ve stejne urovni na jake byl vytvoren.
Jak nacist PNG obrazek
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 31.3.2003 06:44:18
Ing. Jan Dubsk=FD - Stroj=EDrna P=E1lava dne 31 Mar 2003 v 7:29:
> Potrebuji nacist obrazek ve formatu PNG. Moje predstava byla
> nasledujici:
> Kde je chyba, pripadne nemate nekdo komponentu, ktera umi nacist PNG.
Ahoj, pouzivam tPngImage z http://pngdelphi.sourceforge.net
Gustavo Huffenbacher Daud
Currently, contact at: gubadaud(zv)terra.com.br
Plna spokojenost, free i pro komercni ucely.
Karel Rys
Jak nacist PNG obrazek
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 31.3.2003 07:29:23
Potrebuji nacist obrazek ve formatu PNG. Moje predstava byla
nasledujici:
var
Bitmap: TBitmap;
begin
Bitmap :=3D TBitmap.Create;
try
Bitmap.LoadFromFile('C:\MyBitmap.png');
Image1.Canvas.Brush.Bitmap :=3D Bitmap;
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
finally
Image1.Canvas.Brush.Bitmap :=3D nil;
Bitmap.Free;
end;
end;
Pokud m=EDsto 'C:\MyBitmap.png' nacitam obrazek ve formatu BMP, tak to
funguje. Pokud chci nacist PNG tak dostanu hlasku "Bitmap image is not
valid." Pritom podle helpu je mozno png timto zpusobem nacist. PNG
obrazek je OK a v IRFANU nebo jinem prohlizeci obrazku jde normalne
otevrit.
Kde je chyba, pripadne nemate nekdo komponentu, ktera umi nacist PNG.
Dik za radu
Honza
Porovnavani struktury DB
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 31.3.2003 07:30:53
www.clevercomponents.com - Database Comparer. Je free pro nekomercni ucely.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Navite nekdo o Free nastroji na porovnavani IB/FB databaze.
> Slavek
OT: Vzdalene pripojeni site
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 31.3.2003 07:15:57
Ahoj pratele,
poradi mi nekdo jak cist na dalku soubory z pocitace pres modemy? Na
vzdalenem PC je W98, na blizkem PC W95. Zaridil jsem na obou telefonicke
pripojeni, na vzdalenem server tf. pripojeni. Po vytoceni cisla vzdaleneho
PC se mi pocitace pekne spoji, ale nevim jak uvidet prislusny sdileny
adresar vzdaleneho PC. Mel jsem predstavu, ze bych k nemu mohl pristupovat,
jako by byl u mne na disku treba pres windows commander a z Delphi cist
nektere vybrane soubory (periodicky testuji zmenu v souboru). Nemusim
nastavovat neco v siti, nebo jde to vubec takto delat?
Dekuji za pripadne rady - Dalik.
dalibor.faltynek(zv)orgrez(tec)cz
Lokalizace Acess violation
[*] Ing. Zden�k �ezn��ek - 30.3.2003 22:37:55
> > Aplikace komunikuje pre seriovy port s A/D prevodniky pripojenymi pres
> > RS232/RS485.
>
> Pomoci ceho (knihovny) ? Treba prave tam muze byt problem.
Komunikuju pres RS232 pomoci komponenty stazene z Internetu z
http://www2.arnes.si/~sopecrni (ComPort Library 2.63 Dejam Crnila) Jasne,
ze by to mohl byt ten problem, ale zda se, ze pokud aplikace nepracuje na
siti, je vse O.K. Doma mi to bezi prakticky nepretrzite jiz tyden a nic.
Pravda, nemohu zapojit napriklad tolik prevodniku, jako u uzivatele, protoze
je nemam, takze uplne srovnatelne to neni ale myslim, ze se z toho da rict,
ze ten port beha dobre.
> > Pouzivam totiz jeste Paradox, ale dodelavam konecne prevod pod IB 6 pres
> > BDE.
>
> Z blata do louze, hlavne ne BDE. To je ztrata casu a na danou vec se
naprosto
> nehodi, navic je to uz dale nepodporovana vec ktera se nebude nijak
rozvijet.
> Kdyz IB tak InterbaseExpress nebo dbExpress.
Prvni SQL verzi budu muset kratkodobe pustit pres BDE (bylo to nejrychlejsi)
a hned potom pujdu pres IBExpress. Jde o to, ze dosud jsem nemel zadne
zkusenosti s SQL, tak jsem sel nejjednodussi cestou.
Nevis, jak se da zaridit, aby pri jakemkoli cteni z tabulky se mi
nezobrazoval kurzor presypacek s SQL indexem ? Pristupuji totiz sice dosti
casto, zato do velmi malych tabulek (az na vyjimky, kde bych samozrejme
presypacky nechal - pri statistice)
Dik Zdenek R.
obrazky na tlacitka
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.3.2003 21:50:31
Do adresare
\Program Files\Common Files\Borland Shared\Images
jsi se uz urcite dival, ze ?
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.3.2003 petr.vlasak(zv)centrum(tec)cz:
> Zdravim, nevite nekdo o strance, kde jsou obrazky na tlacitka? Nejaky
> pekny, aby to treba slo stahnou zabaleny.
Sejmuti obrazovky ve vlakne - snad naposled
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 21:13:29
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> Procedure TMain.Sejmi;
> Begin
> CreateThread(0,0,(zv)TMain.SejmiProc,0,0,W);
Nikdy nevolej CreateThread, ale kdyztak uz BeginThread aby se nastavil memory
manager do multithread rezimu. Navic je asi snazsi pouzit tridu TThread.
> 1) Pokud provedu SejmiProc primo, nahled se zobrazi bez problemu, ale pokud
> je funkce spustena ve vlakne, obrazek nahledu pouze problikne, a nic se
> nezobrazi. Pri opakovanem volani bez reakce. Problem ale je, ze nahled se
Kod v threadu musis synchronizovat, takze obsah obrazovky je vhodne ulozit do
nejakeho seznamu a ten pak z hlavniho threadu cist.
Petr Vones
Sejmuti obrazovky ve vlakne - snad naposled
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 30.3.2003 21:06:16
Dobry den,
snad naposledy zadam konferenci o pomoc pri upravovani aplikace SaveSnap,
kde jsem predelal proceduru sejmuti obrazovky na sejmuti s vytvorenim noveho
vlakna.
Kod:
- Main.I : TImage (vizualni komponenta)
Procedure TMain.Sejmi;
Begin
CreateThread(0,0,(zv)TMain.SejmiProc,0,0,W);
End;
procedure TMain.SejmiProc;
Var R:TRect;
DCanvas:TCanvas;
Begin
R:=Rect(0,0,Screen.Width,Screen.Height);
DCanvas:=TCanvas.Create;
DCanvas.Handle:=GetDC(0);
Main.I.Canvas.CopyRect(Rect(0,0,185,129),DCanvas,R); //zde je problem
...
1) Pokud provedu SejmiProc primo, nahled se zobrazi bez problemu, ale pokud
je funkce spustena ve vlakne, obrazek nahledu pouze problikne, a nic se
nezobrazi. Pri opakovanem volani bez reakce. Problem ale je, ze nahled se
zobrazi asi 1 z 100 pokusu. Kdyz pouziju misto Rect(0,0,185,129), funguje to
vzdy, ale ne jako nahled. Nechapu proc, tak proto se ptam, co s tim,
pripadne nejake podobne reseni, jak zobrazit nahled sejmuti obrazovky
(185x129) ve vlakne.
2) Po skonceni procedury vlakna se automaticky ukonci, nebo je jej treba
nejak zabit ?
Znovu dopredu diky
S pozdravem
===================================================
David Kraina
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================
Lokalizace Acess violation
[*] Ing. Zden�k �ezn��ek - 30.3.2003 20:56:41
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, March 30, 2003 8:31 PM
Subject: Re: Lokalizace Acess violation
> From: "Ing. Zden=ECk =D8ezn=ED=E8ek" <reznicek(zv)pce(tec)cz>
> > Nevim, jestli jde o chybu debuugeru, ale ja hladam chybu aplikace, kt=
era
se
> > prijevuje jeji zatuhnutim. Nereaguje na mys, ale Widows pracuji
normalne -
> > mohu napr. spustit jinou aplikaci. Proste to jen "vytuhne", ale zadno=
u
chybu
> > to nenahlasi. Mel jsem spis podezreni na zacykleni aplikace, ale nevi=
m
jak
>
> To muze byt nekdy slozite, jake je vytizeni CPU pro ten process v momen=
te
kdyz
> to zatuhne (a nebezi to pod debuggerem) ?
Jasne, jenze chyba se projevuje jiz dele, uzivatel zacina byt nervozni a
nevim jestli si necha vysvelit, jak se podivat na zatez procesoru.
> > Cetnost vyskytu chyby je tak 1x za den az dva. Ja jsem ji na vlastni =
oci
> > jeste nevidel. Takto mi to pomerne podrobne popsal uzivatel.
>
> Pak je to temer neresitelne dokud tu chybu nejsi schopen sam reprodukov=
at.
> Muzes do ruznych mist aplikace pridat logovani (coz ale muze mit ten
nasledek
> ze chyba zmizi) nebo tu aplikaci u zakaznika ladit pomoci Remote
Debuggeru,
> pokud to ovsem umoznuje konfigurace site. Oba pristupy jsou ale casove
dost
> narocne s nejistym vysledkem.
Asi mi nezbyde nez logovat, vsechno mozne
> Zacal bych asi tim jaka je to vlastne aplikace, pokud s necim komunikuj=
e
tak
> se podivat jestli treba tam neni nejaky problem. Zvlastni kapitola jsou
pak
> databaze a jejich 'uzasna' schopnost zotaveni se z chyby sitove
komunikace.
Aplikace komunikuje pre seriovy port s A/D prevodniky pripojenymi pres
RS232/RS485.
Sit je take moznym problemem. Uzivatel ma velmi pretizenou sit, sam jsem =
tam
"nachytal" pomerne dost request rimeoutu.
Co se tyce databaze - tam je to muj prusvih, za ktery se sam stydim.
Pouzivam totiz jeste Paradox, ale dodelavam konecne prevod pod IB 6 pres
BDE. Fofrem to dodelam - tady bude mozna nejlepe zacit. Faktem ale je, ze
tato stanice, kde se problem objevuje nepristupuje k tabulkam pres sit,
protoze je ma na lokal.dislu, ale naopak 2 jini uzivatele pristupuji k te=
to
tabulce prostrednictvim zminene pretizene site.
Mimochodem jeden z problemu, kery mi zbyva doresit je, jak udelat, aby se=
mi
na obrazovce nezobrazovali presypacky s SQL, kdyz ctu z IB tabulky. Neres=
il
jsi to nekdy ?
Diky Zdenek Reznicek
Lokalizace Acess violation
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 21:08:37
From: "Ing. Zden�k �ezn��ek" <reznicek(zv)pce(tec)cz>
> Jasne, jenze chyba se projevuje jiz dele, uzivatel zacina byt nervozni a
> nevim jestli si necha vysvelit, jak se podivat na zatez procesoru.
Potom tu zatez musis sledovat sam nejakou dalsi aplikaci a logovat to.
> Asi mi nezbyde nez logovat, vsechno mozne
Coz se hodi vseobecne pro beh aplikace.
> Aplikace komunikuje pre seriovy port s A/D prevodniky pripojenymi pres
> RS232/RS485.
Pomoci ceho (knihovny) ? Treba prave tam muze byt problem.
> Pouzivam totiz jeste Paradox, ale dodelavam konecne prevod pod IB 6 pres
> BDE.
Z blata do louze, hlavne ne BDE. To je ztrata casu a na danou vec se naprosto
nehodi, navic je to uz dale nepodporovana vec ktera se nebude nijak rozvijet.
Kdyz IB tak InterbaseExpress nebo dbExpress.
Petr Vones
Lokalizace Acess violation
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 20:31:06
From: "Ing. Zden�k �ezn��ek" <reznicek(zv)pce(tec)cz>
> Nevim, jestli jde o chybu debuugeru, ale ja hladam chybu aplikace, ktera se
> prijevuje jeji zatuhnutim. Nereaguje na mys, ale Widows pracuji normalne -
> mohu napr. spustit jinou aplikaci. Proste to jen "vytuhne", ale zadnou chybu
> to nenahlasi. Mel jsem spis podezreni na zacykleni aplikace, ale nevim jak
To muze byt nekdy slozite, jake je vytizeni CPU pro ten process v momente kdyz
to zatuhne (a nebezi to pod debuggerem) ?
> Cetnost vyskytu chyby je tak 1x za den az dva. Ja jsem ji na vlastni oci
> jeste nevidel. Takto mi to pomerne podrobne popsal uzivatel.
Pak je to temer neresitelne dokud tu chybu nejsi schopen sam reprodukovat.
Muzes do ruznych mist aplikace pridat logovani (coz ale muze mit ten nasledek
ze chyba zmizi) nebo tu aplikaci u zakaznika ladit pomoci Remote Debuggeru,
pokud to ovsem umoznuje konfigurace site. Oba pristupy jsou ale casove dost
narocne s nejistym vysledkem.
Zacal bych asi tim jaka je to vlastne aplikace, pokud s necim komunikuje tak
se podivat jestli treba tam neni nejaky problem. Zvlastni kapitola jsou pak
databaze a jejich 'uzasna' schopnost zotaveni se z chyby sitove komunikace.
Petr Vones
Lokalizace Acess violation
[*] Ing. Zden�k �ezn��ek - 30.3.2003 20:21:47
Nevim, jestli jde o chybu debuugeru, ale ja hladam chybu aplikace, ktera =
se
prijevuje jeji zatuhnutim. Nereaguje na mys, ale Widows pracuji normalne =
-
mohu napr. spustit jinou aplikaci. Proste to jen "vytuhne", ale zadnou ch=
ybu
to nenahlasi. Mel jsem spis podezreni na zacykleni aplikace, ale nevim ja=
k
to najit. Tak jsem si myslel, ze jsem chybu nasel. Cetnost vyskytu chyby =
je
tak 1x za den az dva. Ja jsem ji na vlastni oci jeste nevidel. Takto mi t=
o
pomerne podrobne popsal uzivatel.
Pokud je to chyba debuggeru, nevis cim by se dala chytit moje chyba ?
Diky
Zdenek Reznicek
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, March 30, 2003 7:36 PM
Subject: Re: Lokalizace Acess violation
> From: "Ing. Zden=ECk =D8ezn=ED=E8ek" <reznicek(zv)pce(tec)cz>
> > Acess violation adress 087B2D03 in module BORDBK61.DLL. Read of addre=
ss
> > 0888B000.
>
> Toto je chyba v debuggeru Delphi a ne v tvoji aplikaci. Projevuje se to
jen
> pri ladeni nebo dochazi k chybam i kdyz aplikaci pustis bez debuggeru ?
>
> Petr Vones
>
Balicky ???
[*] <delphik(zv)email(tec)cz> - 30.3.2003 19:41:51
Dik za informaci. Ale potreboval bych radu ci vysvetleni v nasledujicim (=
v mem prvnim dotazu jsem se asi blbe vyjadril): Predpokladam, ze kdyz ude=
lam aplikaci s balicky, vzniknou nekde ty balicky (*.bpl). Jestli jsem do=
bre pochopil Petra, mam je hledat ve WINNT\System32 nebo tak nejak. Ale j=
ak se ty bpl soubory nazyvaji ? Muzu nejak stanovit jejich nazvy ? Jak ur=
cim, co ktery balicek obsahuje ? Delphik
_________________________________________________________________________=
_____
U=B9et=F8=EDte, kdy=BE to stihnete... Slevy produkt=F9 HP a=BE 40 %! Note=
book 25.980 K=E8, server 19.980 K=E8, po=E8=EDta=E8 + monitor 17.700 K=E8=
! V=EDce http://www.email(tec)cz/akce_hp
nestandardni formular aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 20:03:56
From: "Bronislav Klu�ka" <delphi(zv)pro2-soft.com>
> Apllication.CreateForm('TMujForm',MujForm1); ale nejde to nejak dat do te
> nabidky pro neco noveho (Application, Unit, DataModule...) a aby mi tlacitko
> "NewForm" vracelo ten muj formular a uplne nejlepsi by bylo, kdybych si mohl
V Object Repository dialogu si muzes u formularu zaskrtnout 'New form' a 'Main
form'.
Petr Vones
Lokalizace Acess violation
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 19:36:01
From: "Ing. Zden�k �ezn��ek" <reznicek(zv)pce(tec)cz>
> Acess violation adress 087B2D03 in module BORDBK61.DLL. Read of address
> 0888B000.
Toto je chyba v debuggeru Delphi a ne v tvoji aplikaci. Projevuje se to jen
pri ladeni nebo dochazi k chybam i kdyz aplikaci pustis bez debuggeru ?
Petr Vones
Balicky ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 19:54:17
From: <delphik(zv)email(tec)cz>
> Predpokladam, ze kdyz udelam aplikaci s balicky, vzniknou nekde ty balicky
> (*.bpl).
Ne, balicky uz jsou vytvorene Borlandem, pouze se pouziji.
> Jestli jsem dobre pochopil Petra, mam je hledat ve WINNT\System32 nebo tak
> nejak. Ale jak se ty bpl soubory nazyvaji ? Muzu nejak stanovit jejich
> nazvy ?
Nazvy pouzitych balicku najdes v Project | Information (Packages Used).
Lokalizace Acess violation
[*] Ing. Zden�k �ezn��ek - 30.3.2003 19:28:59
Zdravim vespolek,
mam problem se spatne polapitelnou chybou aplikace, ktera obcas "vytuhne",
nereaguje na kontextova PopupMenu (prave
tlac. mysi), vlastne na nic. Do jine aplikace se ale da prepnout, mys na
pohyb reaguje.
Zavada se projevi tak 3x do tydne - prakticky ji neumim vyvolat.
Pred chvili se mi to po nekolika dnech behu aplikace spustene z D6 podarilo.
Chybova hlaska mi ale mnoho nerika:
Acess violation adress 087B2D03 in module BORDBK61.DLL. Read of address
0888B000.
Nevite nekdo, jak zjistim kde k chybe dochazi ?
Diky Zdenek Reznicek
obrazky na tlacitka
[*] <petr.vlasak(zv)centrum(tec)cz> - 30.3.2003 19:23:44
Zdravim, nevite nekdo o strance, kde jsou obrazky na tlacitka? Nejaky
pekny, aby to treba slo stahnou zabaleny.
ADMIN: Bitmap 2 Icon
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.3.2003 18:08:40
Puvodni zprava, kterou napsal Bronislav Klu=E8ka dne 30 Mar 2003:
> Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "100=
1
> tipu a triku pro Delphi"
Bud tak hodny a prestan posilat opakovane tentyz dotaz. Prave jsi ho
poslal poctvrte.
Dekuji a jsem s pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Bitmap 2 Icon
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 30.3.2003 17:43:49
Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "1001
tipu a triku pro Delphi"
zdrojak je:
function Bmp2Ico(Bitmap:TBitmap):TIcon;
var IconSizeX:Integer;
IconSizeY:Integer;
AndMask:TBitmap;
IConInfo:TIconInfo;
begin
//velikost ikony
IconSizeX:=GetSystemMetrics(SM_CXICON);
IconSizeY:=GetSystemMetrics(SM_CYICON);
//vytvoreni AND bitmapy
AndMask:=TBitmap.Create;
AndMask.Monochrome:=true;
AndMask.Width:=IconSizeX;
AndMask.Height:=IconSizeY;
AndMask.Canvas.Brush.Color:=clBlack;
AndMask.Canvas.FillRect(Rect(0,0,IconSizeX,IconSizeY));
//Vytvoreni ikony
result:=TIcon.Create;
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=AndMask.Handle;
IconInfo.hbmColor:=Bitmap.Handle;
result.Handle:=CreateIconIndirect(IconInfo);
AndMask.Free;
end;
procedure TForm1.ConvertBClick(Sender: TObject);
begin
Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
Dest.Picture.SaveToFile('i.ico');
ReLoad.Picture.Icon.LoadFromFile('i.ico');
end;
"Source" je TImage, kde je nactena zdrojova Bitmapa
"Dest" je TImage do ktereho se vytvari Icona ze "Source"
"ReLoad" je ulozena icona z "Dest" znova otevrena
problem je v tom, ze v "Dest" se mi icona zobrazi spravne, ale jakmile ji
ulozim a znovu nactu ma jenom 16 standardnich Windows barev (ani ne 16
podobnych originalu)...
Nevi nekdo, kde je problem?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Balicky ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 17:45:06
From: <delphik(zv)email(tec)cz>
> Predpokladal jsem, ze v "c:\test\bpl" bude *.bpl. Kde je nejaky balicek ???
Runtime balicky Delphi jsou (bohuzel) nainstalovany v systemovem adresari
Windows. Tam je najdes. Pokud budes chtit aplikaci s balicky distribuovat tak
nedelej stejnou hloupost jako Borland, ale dej je do adresare tve aplikace
spolecne s EXE.
Petr Vones
Balicky ???
[*] <delphik(zv)email(tec)cz> - 30.3.2003 17:10:07
Zdravim.
Potrebuju radu ohledne vytvareni balicku (W2k, D5, SP1). S balicky je to =
muj prvni pokus. Archiv jsem procital, ale porad mi neni mnoho jasneho. =
Jak urcim, co bude v balickach, jak urcim jejich nazvy, ... ??? Privital =
bych radu nekoho zkuseneho, ktery mi to poda pekne polopate :-)
Zkusil jsem si udelat uplne jednoduchy projekt (jedno okno, jeden button =
a jeden edit). V Project/Options/Directories nastavim cesty pro Output...=
"c:\test\exe", Unit..."c:\test\unit", BPL..."c:\test\bpl" a DCP..."c:\tes=
t\dcp", na zalozce Packages zaskrtnu Build with runtime... a odmazu vse, =
krome VCL*50. Potom dam Build Project. Ve slozce "c:\test\exe" pak je exa=
c (cca 17kB), ve slozce "c:\test\unit" je *.dcu, ale "c:\test\bpl" a "c:\=
test\dcp" jsou prazdne. Predpokladal jsem, ze v "c:\test\bpl" bude *.bpl.=
Kde je nejaky balicek ???
Kdyz zrusim zaskrtnuti Build with runtime... a znovu prelozim, tak exe ma=
asi 305kB
Diky moc kazdemu, kdo poradi mene (vyrazne) zkusenemu. Delphik
_________________________________________________________________________=
_____
U=B9et=F8=EDte, kdy=BE to stihnete... Slevy produkt=F9 HP a=BE 40 %! Note=
book 25.980 K=E8, server 19.980 K=E8, po=E8=EDta=E8 + monitor 17.700 K=E8=
! V=EDce http://www.email(tec)cz/akce_hp
nestandardni formular aplikace
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 30.3.2003 17:09:51
ja bych nechtel, jako novy formular, ale jako hlavni formular, tusim, ze =
by
to slo udelat vyhozenim Unit1 z Project1 a do p...dpr dat
Apllication.CreateForm('TMujForm',MujForm1); ale nejde to nejak dat do te
nabidky pro neco noveho (Application, Unit, DataModule...) a aby mi tlaci=
tko
"NewForm" vracelo ten muj formular a uplne nejlepsi by bylo, kdybych si m=
ohl
zvolit, jestli bude to tlaciko vytvaret TForm, nebo nejakej TMyForm
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Sunday, March 30, 2003 4:24 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: nestandardni formular aplikace
From: "Bronislav Klu=E8ka" <delphi(zv)pro2-soft.com>
> Pokud zvolim a hlavniho menu File/New/Application, zobrazi se mi
> "standardni" formular Delphi... da se nejak udelat, aby se zobrazoval
nejaky
> muj formular?
Co je to "tvuj formular" ? Pokud mas namysli takovy kde jsou uz treba nej=
ake
komponenty, tak si jej muzes ulozit do Object Repository a odtud pak pouz=
it
jako novy formular.
Petr Vones
nestandardni formular aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 16:23:49
From: "Bronislav Klu�ka" <delphi(zv)pro2-soft.com>
> Pokud zvolim a hlavniho menu File/New/Application, zobrazi se mi
> "standardni" formular Delphi... da se nejak udelat, aby se zobrazoval nejaky
> muj formular?
Co je to "tvuj formular" ? Pokud mas namysli takovy kde jsou uz treba nejake
komponenty, tak si jej muzes ulozit do Object Repository a odtud pak pouzit
jako novy formular.
Petr Vones
nestandardni formular aplikace
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 30.3.2003 16:19:00
Pokud zvolim a hlavniho menu File/New/Application, zobrazi se mi
"standardni" formular Delphi... da se nejak udelat, aby se zobrazoval nejaky
muj formular?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
problemy s verzi ComCtl vz. ImageList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2003 16:01:41
From: "Ji�� Baudy�" <baudys(zv)duplikace(tec)cz>
> vyskytl se mi probl�m s knihovnou ComCtl32.dll vz. ImageList. P�i n�kter�ch
> kombinac�ch to hl�s� nesmysly a n�kde to nefunguje v�bec.
VCL vyzaduje COMCTL32.dll dodavanou s IE4 a vyssi, dnes je na vetsine pocitacu
bezne asi verze z IE5 nebo 6. Pokud se jedna o problemy tak jsou spise jinde,
casto jsou to spatne drivery videokarty (obsah imagelistu se nekdy v driveru
cachuje) popripade nedokoncena instalace operacniho systemu (bar.hloubka pouze
16 barev). Zkus vice popsat o jake problemy se presne jedna. Jeste je dobre
upozornit ze imagelist je urcen k uchovavani malych obazku/ikon pro toolbary,
treeview, listview a podobne. Nekteri vyvojari se jej pak nekdy chybne snazi
pouzivat i pro velke obrazky.
Petr Vones
Q: zacatecnicka otazka k property Enabled
[*] Nikodym Dvorak <nikodym.dvorak(zv)post(tec)cz> - 30.3.2003 13:55:12
Dobry den vsem,
myslel jsem si - kdyz chci znemoznit kliknuti
na tlacitko, staci, kdyz mu nastavim Enabled
na False; ale chova se to jinak, nez bych chtel.
Pokud na nej uzivatel klikne, udalost asi ceka
ve fronte a provede se, az je tlacitko opet
Enabled, coz je nezadouci. Musim tedy tu udalost
nejak umele vyzrat/zahodit? Jak to udelam?
Predem dik za radu.
--nik
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
RitchEdit problem
[*] Slafco <skippo(zv)post.sk> - 29.3.2003 15:18:58
Cest praci delfini,
za behu programu vytvaram richedity a uchovavam si ich v poli... problem je v
tom ze mi na nich prestala reagovat klavesa DEL. netusite niekto v com je
hacik? ani richedit.onkeydown stlacenie DEL neodchyti(key=VK_DELETE), nerozumiem preco.
Dik za hocijaku radu.
pripadne neviete o nejakej lepsiej komponente, ktoru by som mohol pridat ku zdrojakom bez nutnosti instalacie do delphi
--
Vsetko dobre,
Slafco mailto:skippo(zv)matfyz.sk
________
prevod z BINARU do HEX ci DEC
[*] Franti�ek Ml�och <frantisek.mlcoch(zv)vsb(tec)cz> - 29.3.2003 09:51:13
Jsou na to funkce HexToBin nebo BinToHex.
F.
----- Original Message -----
From: "Pavel �imek" <kejchal(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 28, 2003 5:34 PM
Subject: prevod z BINARU do HEX ci DEC
>
> Zdravim vsechny,
>
> potrebuji prevest binarni cislo, ktere mam ulozene ve stringu do formatu
DEC
> ci HEXa. Absolutne si nevim rady.. Prosim pomozte.
>
> Kejchal
>
>
>
serazeni
[*] J�n Harman <harman(zv)volny(tec)cz> - 28.3.2003 21:10:18
ListBox.AlphaSort;
> Zdravim
>
> nemate negdo algoritmus na sezareni zprav podle subjektu ?
>
> potreboval bych vytvorit seznam mailu a chci aby pod
> nejakou spravou byly vsechny spravy ktere jsou odpoved 're:'
> uz dlouho se stim trapim a furt mi to nejede
>
> --
> Best regards,
>
> Milan Vymazal
> Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
>
>
W98 a pismeno jednotky
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 28.3.2003 19:07:35
tusim, ze to prave u cdrom jde - nekde myslim na karte hardware ve
vlastnosti CDrom jednotky.
mam tu ale W2k, takze to pisu z hlavy.
VJ
----- Original Message -----
From: "Jiri Novacek" <Delphi(zv)spst(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 28, 2003 2:07 PM
Subject: W98 a pismeno jednotky
> Dobry den
>
> Je mozne ve W98 zmenit pismeno jednotky.
> Mechanika CDROM ma E: a ja potrebuji aby mela napr.: R:
> Ve Windows zalozenych na technologii NT to neni problem, ale pro W98
> jsem neco takoveho zatim nevidel.
>
> Predem dekuji
>
> Jirka
>
>
Mesacne aktulizace
[*] Milan F�bik - KINEKUS <fabik(zv)kinekus.sk> - 28.3.2003 18:45:12
Mam dotaz :
existuje este ten dobrak, co kazdy mesiac urobil davku s dotazmi konferencie
a dal to na web. Mam dojem, ze zaplavy sposobili vypadok.
Dakujem za odpoved.
Porovnavani struktury DB
[*] <dssoft(zv)centrum(tec)cz> - 28.3.2003 18:24:17
Delam to tak, ze si pomoci IBOConsole vytahnu "metadata" do souboru. A pak pomoci Total Commanderu (Drive Windows Commander)
porovnam obsahy tech souboru. (Total Comander neni Free)
David
----- Puvodn� zpr�va -----
Od: "Skopalik Slavomir" <skopalik(zv)hlubocky.del(tec)cz>; <delphi-l-owner(zv)clexpert(tec)cz>; <delphi-l-owner(zv)clexpert(tec)cz>
Odesl�no: 28. brezna 2003 16:04
Predmet: Porovnavani struktury DB
> Navite nekdo o Free nastroji na porovnavani IB/FB databaze.
> Zkousel jsem AdeptSQL Diff, ale stoji 150$ a generuje
> rozdilovy skript plny chyb.
>
> Slavek
objekt Application v DataModulu
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 28.3.2003 18:22:38
Application je verejna promenna unity Forms... Pokud vytvoris DM, tak ten
unitu Forms nevyuziva...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Miroslav Dolecek
Sent: Friday, March 28, 2003 5:15 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: objekt Application v DataModulu
Ahoj,
jednoduchy dotaz: Proc neni pristupny objekt Application v DataModulu?
Dik
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
prevod z BINARU do HEX ci DEC
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 28.3.2003 18:12:11
function BinToInt(bin: string): integer;
var i:integer;
begin
result:=3D0;
for i:=3Dlength(bin) downto 1 do
begin
if bin[i]<>'0' then
begin
result:=3Dresult+round(power(2,length(bin)-i));
end;
end;
end;
function BinToHex(bin: string): string;
var num:string;
begin
result:=3D'';
while (length(bin) mod 4)<>0 do bin:=3D'0'+bin;
while length(bin)>0 do
begin
num:=3DCopy(bin,1,4);
Delete(Bin,1,4);
if num=3D'0000' then result:=3Dresult+'0'
else if num=3D'0001' then result:=3Dresult+'1'
else if num=3D'0010' then result:=3Dresult+'2'
else if num=3D'0011' then result:=3Dresult+'3'
else if num=3D'0100' then result:=3Dresult+'4'
else if num=3D'0101' then result:=3Dresult+'5'
else if num=3D'0110' then result:=3Dresult+'6'
else if num=3D'0111' then result:=3Dresult+'7'
else if num=3D'1000' then result:=3Dresult+'8'
else if num=3D'1001' then result:=3Dresult+'9'
else if num=3D'1010' then result:=3Dresult+'a'
else if num=3D'1011' then result:=3Dresult+'b'
else if num=3D'1100' then result:=3Dresult+'c'
else if num=3D'1101' then result:=3Dresult+'d'
else if num=3D'1110' then result:=3Dresult+'e'
else if num=3D'1111' then result:=3Dresult+'f'
else ;//chyba
end;
end;
snad je to dobre, psal jsem to ted z hlavy, tak si to zkontroluj a pridej
kriticky sekce
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavel =A9imek
Sent: Friday, March 28, 2003 5:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: prevod z BINARU do HEX ci DEC
Zdravim vsechny,
potrebuji prevest binarni cislo, ktere mam ulozene ve stringu do formatu =
DEC
ci HEXa. Absolutne si nevim rady.. Prosim pomozte.
Kejchal
objekt Application v DataModulu
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 28.3.2003 17:15:17
Ahoj,
jednoduchy dotaz: Proc neni pristupny objekt Application v DataModulu?
Dik
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
prevod z BINARU do HEX ci DEC
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 28.3.2003 17:34:14
Zdravim vsechny,
potrebuji prevest binarni cislo, ktere mam ulozene ve stringu do formatu DEC
ci HEXa. Absolutne si nevim rady.. Prosim pomozte.
Kejchal
Bitmap2Icon
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 28.3.2003 16:38:33
Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "1001
tipu a triku pro Delphi"
zdrojak je:
function Bmp2Ico(Bitmap:TBitmap):TIcon;
var IconSizeX:Integer;
IconSizeY:Integer;
AndMask:TBitmap;
IConInfo:TIconInfo;
begin
//velikost ikony
IconSizeX:=GetSystemMetrics(SM_CXICON);
IconSizeY:=GetSystemMetrics(SM_CYICON);
//vytvoreni AND bitmapy
AndMask:=TBitmap.Create;
AndMask.Monochrome:=true;
AndMask.Width:=IconSizeX;
AndMask.Height:=IconSizeY;
AndMask.Canvas.Brush.Color:=clBlack;
AndMask.Canvas.FillRect(Rect(0,0,IconSizeX,IconSizeY));
//Vytvoreni ikony
result:=TIcon.Create;
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=AndMask.Handle;
IconInfo.hbmColor:=Bitmap.Handle;
result.Handle:=CreateIconIndirect(IconInfo);
AndMask.Free;
end;
procedure TForm1.ConvertBClick(Sender: TObject);
begin
Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
Dest.Picture.SaveToFile('i.ico');
ReLoad.Picture.Icon.LoadFromFile('i.ico');
end;
"Source" je TImage, kde je nactena zdrojova Bitmapa
"Dest" je TImage do ktereho se vytvari Icona ze "Source"
"ReLoad" je ulozena icona z "Dest" znova otevrena
problem je v tom, ze v "Dest" se mi icona zobrazi spravne, ale jakmile ji
ulozim a znovu nactu ma jenom 16 standardnich Windows barev (ani ne 16
podobnych originalu)...
Nevi nekdo, kde je problem? S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.3.2003 16:33:24
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> V aktu�ln�m D7 mo�n� ano. V D3, kter� u n�s do��v�, Search-Find Error
> funguje jen kdy� se mu zachce a se SYSTEM.PAS se obzlṻ nem� r�d (i s
> debug verz�).
Dobre, ale D3 uz je opravdu dost mimo.
> $8000_0000 > $7000_0000 ;-)
Jiste, proto v oblasti mezi $70000000 a $80000000 muze byt umistena moje DLL a
tedy me zajima i obsah stacku z tohoto prostoru, tedy >$70000000 ;-)
> Co� u n�kter�ch z�kazn�k� m��e vyvolat zd�n� neprofesionality v situaci,
> kdy program m�sto elegantn�ho bug reportu su�e vyp�e call stack spolu se
> jm�ny soubor� a ��sly ��dk�, tak�e �asto se taky z�m�rn� nedod�vaj� :-)
To prece zakaznik nemusi vubec videt, staci to logovat nekam do souboru a ten
nejakym zpusobem odeslat (mailem, vlastni komunikacni reseni apod).
Petr Vones
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 16:17:28
>> >> relativni := absolutni - $0040_1000;
> Pokud se jedna o EXE soubor, chyba ale muze vzniknout i v DLL nebo balicku.
Spr�vn� p�ipom�nky.
>> >> Relativn� adresy men�� ne� cca $3000 odignoruj, ty spadaj� do SYSTEM.PAS.
> Neni duvod je ignorovat, naopak mohou napomoci k lokalizaci chyby nebo to muze
> byt dokonce primo ten problem, i v RTL kodu jsou chyby.
V aktu�ln�m D7 mo�n� ano. V D3, kter� u n�s do��v�, Search-Find Error
funguje jen kdy� se mu zachce a se SYSTEM.PAS se obzlṻ nem� r�d (i s
debug verz�).
>> >> Podobn� absolutn� (!) adresy > $7000_0000 spadaj� do prostoru opera�n�ho
>> >> syst�mu a jeho DLLek, tak�e ty taky ignoruj.
> To neni tak docela pravda, napriklad na Windows 9x jsou nektere systemove DLL
> v oblasti nad $80000000. Pokud vznikne chyba je dobre mit co nejvice informaci
> a ne je ignorovat, akorat je treba urcit ktere z nich jsou spise zavadejici.
$8000_0000 > $7000_0000 ;-)
>> > Ale jak to chces delat, kdyz bude mit zakaznik jinou verzi ? Navic se
>> > adresy meni kazdym prekladem :-(
> Prave proto se debug informace dodavaji primo s aplikaci.
Co� u n�kter�ch z�kazn�k� m��e vyvolat zd�n� neprofesionality v situaci,
kdy program m�sto elegantn�ho bug reportu su�e vyp�e call stack spolu se
jm�ny soubor� a ��sly ��dk�, tak�e �asto se taky z�m�rn� nedod�vaj� :-)
Nav�c se znalost� debug informac� se v programech �ikovn�j��m konc�k�m l�pe
upravuj� nevhodn� funcionality.
--
Ond�ej Tu�n�
serazeni
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 28.3.2003 16:15:04
Zdravim
nemate negdo algoritmus na sezareni zprav podle subjektu ?
potreboval bych vytvorit seznam mailu a chci aby pod
nejakou spravou byly vsechny spravy ktere jsou odpoved 're:'
uz dlouho se stim trapim a furt mi to nejede
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Bitmap 2 Icon
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 28.3.2003 16:12:04
Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "1001
tipu a triku pro Delphi"
zdrojak je:
function Bmp2Ico(Bitmap:TBitmap):TIcon;
var IconSizeX:Integer;
IconSizeY:Integer;
AndMask:TBitmap;
IConInfo:TIconInfo;
begin
//velikost ikony
IconSizeX:=GetSystemMetrics(SM_CXICON);
IconSizeY:=GetSystemMetrics(SM_CYICON);
//vytvoreni AND bitmapy
AndMask:=TBitmap.Create;
AndMask.Monochrome:=true;
AndMask.Width:=IconSizeX;
AndMask.Height:=IconSizeY;
AndMask.Canvas.Brush.Color:=clBlack;
AndMask.Canvas.FillRect(Rect(0,0,IconSizeX,IconSizeY));
//Vytvoreni ikony
result:=TIcon.Create;
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=AndMask.Handle;
IconInfo.hbmColor:=Bitmap.Handle;
result.Handle:=CreateIconIndirect(IconInfo);
AndMask.Free;
end;
procedure TForm1.ConvertBClick(Sender: TObject);
begin
Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
Dest.Picture.SaveToFile('i.ico');
ReLoad.Picture.Icon.LoadFromFile('i.ico');
end;
"Source" je TImage, kde je nactena zdrojova Bitmapa
"Dest" je TImage do ktereho se vytvari Icona ze "Source"
"ReLoad" je ulozena icona z "Dest" znova otevrena
problem je v tom, ze v "Dest" se mi icona zobrazi spravne, ale jakmile ji
ulozim a znovu nactu ma jenom 16 standardnich Windows barev (ani ne 16
podobnych originalu)...
Nevi nekdo, kde je problem? S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Porovnavani struktury DB
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 28.3.2003 16:04:13
Navite nekdo o Free nastroji na porovnavani IB/FB databaze.
Zkousel jsem AdeptSQL Diff, ale stoji 150$ a generuje
rozdilovy skript plny chyb.
Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
Czech Republic
----------------------------------------------
Tel: 585 353 548
Mobil: 602 795 874
Fax: 585 352 364
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.3.2003 15:05:12
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> >> relativni := absolutni - $0040_1000;
Pokud se jedna o EXE soubor, chyba ale muze vzniknout i v DLL nebo balicku.
> >> Relativn� adresy men�� ne� cca $3000 odignoruj, ty spadaj� do SYSTEM.PAS.
Neni duvod je ignorovat, naopak mohou napomoci k lokalizaci chyby nebo to muze
byt dokonce primo ten problem, i v RTL kodu jsou chyby.
> >> Podobn� absolutn� (!) adresy > $7000_0000 spadaj� do prostoru opera�n�ho
> >> syst�mu a jeho DLLek, tak�e ty taky ignoruj.
To neni tak docela pravda, napriklad na Windows 9x jsou nektere systemove DLL
v oblasti nad $80000000. Pokud vznikne chyba je dobre mit co nejvice informaci
a ne je ignorovat, akorat je treba urcit ktere z nich jsou spise zavadejici.
> > Ale jak to chces delat, kdyz bude mit zakaznik jinou verzi ? Navic se
> > adresy meni kazdym prekladem :-(
Prave proto se debug informace dodavaji primo s aplikaci.
Petr Vones
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.3.2003 14:59:48
From: <js-delphi(zv)quick(tec)cz>
> V aplikaci jsem pouzil na odchyceni chybu
> komponentu z JCL. Mam dotaz, zda mi muzete
> poradit, jak se dopatrat k problemu, ktery
> zpusobil kolaps me aplikace.
Jak uz tu bylo receno, musis vygenerovat potrebne debug informace. Mas nekolik
moznosti, popsane jsou v Readme. Budto pouzijes Detailed MAP file nebo jeho
komprimovanou verzi (cca 12% puvodni velikosti) kterou vlozis primo do EXE
souboru. K tomu slouzi bud IDE expert nebo command-line utilita MakeJclDebug.
Jeste k tem prubeznym zmenam v kodu a pouziti vypisu stacku o kterych se tu
psalo. Pokud vznikne chyba u zakaznika v nejake starsi verzi tak uz muze byt
informace o cislu radky zavadejici, protoze v aktualni verzi zdrojoveho kodu
je na te radce treba uz neco jineho. Proto je vypis v tomto formatu:
uMain.TfPSPad.aBlockSumExecute (Line 8585, "uMain.pas" + 1) + $C
Kde "+ 1" znamena pocet radek od "begin" metody s danym nazvem, tim lze snaze
urcit o ktery radek jde, pokud uz nelze pouzit cislo radku v celem unitu. Ta
posledni hodnota "+ $C" je offset adresy na stacku vuci nejblizsi zname debug
informaci o cislu radku. V praxi se tak da v CPU okne urcit na ktere instrukci
doslo k chybe apod.
Petr Vones
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 28.3.2003 14:59:46
Jestli chces podrobny vypis vyjimek lepsi nez z JCL, stahni si MadExcept z
http://www.madshi.net. Je to free pro nekomercni uziti.
Tom
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 14:49:09
>> ---------------------------------
>> Stack list, generated 28.2.2003 10:50:24
>> [00402850]
>> [00402944]
>> [00402850]
>> [00507209] <-- prvn� rozumn� adresa
>> [00507286]
> <snip>
>> [0046EB86]
>> [0051735B] <-- z�ejm� posledn� adresa na stacku
>> -------------------
> V tv�m p��pad� n�s bude zaj�mat jako prvn� asi ta posledn� adresa
Tady jsem to splet: zaj�m� n�s prvn� rozumn� adresa ze za��tku seznamu,
tedy $0050_7290. Kdy� jsem to �etl poprv�, tak jsem si nev�iml ��dku:
Exception address: 00402850
ze kter�ho vypl�v� orientace seznamu.
> $0051_735B. �pravou z�sk�me relativn� adresu $11_635B, kterou u� m��e�
> skusit zadat do Search-Find Error (a� na to podtr��tko, to lze jen ve
> Flexu).
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
Service a priorita
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 14:47:34
>> ...Service Control Manager fyzicky spust� a� po p�ihl�en�?
>>
> Slu�ba se spust� hned na zacatku, mohu s ni pomoc� TCP/IP komunikovat, ale to
> vypnut� se provede a� kdy� se p�ihlasi nekdo do Novellovske site, co� muze
> nejakou dobu trvat. Pripada mi, ze Novell nedovoly provest akci dokud je
> aktivni a vse se zapise do nejake fronty a provede az po prihlaseni.
Je to dost mo�n�. Novell je krysa. Jeden �as jsme ho pou��vali jako file
server, ale po �ase jsme p�e�li na W2K Server, proto�e Novell za�al b�t
pon�kud vzd�len� sv�t s�m pro sebe.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.3.2003 13:51:14
Vygenerovat MAP soubor (nastaveni kompilatoru - detailni informace) a
pak dostanes i unitu, proceduru, cislo radku a radek ze zdrojaku, kde
je chyba + par radku pred tim. A z toho uz se vyjit da.
Stack list, generated 19.3.2003 10:46:14
[005CC7DB] uMain.TfPSPad.aBlockSumExecute (Line 8585, "uMain.pas" + 1) + $C
[00403607] System.(zv)HandleAnyException + $33
[0041A61B] Classes.TBasicAction.Execute + $F
[00443535] ActnList.TContainedAction.Execute + $31
.....
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
28.3.2003 js-delphi(zv)quick(tec)cz:
> Ahoj.
> V aplikaci jsem pouzil na odchyceni chybu
> komponentu z JCL. Mam dotaz, zda mi muzete
> poradit, jak se dopatrat k problemu, ktery
> zpusobil kolaps me aplikace.
> Error log mi dava tyto informace:
> nazev chyby, trida chyby, nahrane knihovny, info
> o oper. systemu - to je OK, tomu rozumim ;o).
> K cemu ale muzu vyuzit "Stack list" (vypis
> zasobniku - zjistim z nej neco, kdyz nedalam v
> assembleru?) a "Active Controls hiearchy" (tohle
> je mi jasne podle nazvu, ale jake je poradi? za
> dvojteckou je posledni aktivni prvek nebo jak?)
> Posilam kus toho error logu a prosim o radu, co
> vsechno lze vycist.
> Diky Jirka
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 14:45:56
>> Ano, m��e� tak naj�t m�sto, na kter�m program zdechnul. Nejd��ve se
>> absolutn� adresa mus� upravit na relativn� adresu v r�mci samotn�ho k�du
>> aplikace a v�sledn� ��slo se pou�ije v Search-Find Error. Delphi pak
>> zpravidla uk�e odpov�daj�c� ��dek.
>> P�epo�et na relativn� adresu:
>> relativni := absolutni - $0040_1000;
>> $0040_0000 je standardn� image base (adresa na kterou se program nahraje do
>> pam�ti) EXE. $1000 je offset za��tku code segmentu (provediteln�ho k�du).
>> Relativn� adresy men�� ne� cca $3000 odignoruj, ty spadaj� do SYSTEM.PAS.
>> Podobn� absolutn� (!) adresy > $7000_0000 spadaj� do prostoru opera�n�ho
>> syst�mu a jeho DLLek, tak�e ty taky ignoruj.
> Ale jak to chces delat, kdyz bude mit zakaznik jinou verzi ? Navic se
> adresy meni kazdym prekladem :-(
Kdy� distribuuje� verzi z�kazn�kovi, tak si _pochopiteln�_ *schov�*:
-- ve�ker� zdroj�ky
-- aktu�ln� build prost�ed� (p�eklada�, skripty, nastaven�)
-- ve�ker� vygenerovan� zdroj�ky
-- ve�ker� vygenerovan� map fily
Jen tak bude� moct poskytovat kvalitn� servis.
U n�s se nov� revize z�kazn�k�m generuj� i n�kolikr�t denn�, archivujeme
�pln� v�echno (> 100 MB na jeden build) a jsme spokojen�.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
W98 a pismeno jednotky
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 28.3.2003 14:35:34
Ahoj!
Ovladacie panely - System - zalozka device manager kliknut pravym tlacitkom
na jednotku cd-rom vybrat vlastnosti a zmenit meno jednotky tak ze sa
vyberie z ComboBoxu a da ok a restart systemu a jeto
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
****************************************
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jiri Novacek
Sent: Friday, March 28, 2003 2:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: W98 a pismeno jednotky
Dobry den
Je mozne ve W98 zmenit pismeno jednotky.
Mechanika CDROM ma E: a ja potrebuji aby mela napr.: R:
Ve Windows zalozenych na technologii NT to neni problem, ale pro W98 jsem
neco takoveho zatim nevidel.
Predem dekuji
Jirka
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Jon�s Marian <Jonas(zv)komercpoj(tec)cz> - 28.3.2003 13:50:50
Aby ti ten Stack list byl k necemu, musis mit aplikaci prelozenou=20
s detailed map filem - Project options / Linker / Map file detailed a
zaroven v menu Project zasktnout polozku Insert JCL Debug data.
Pak budes mit .map soubor prilinkovany primo do .EXE a ve
stack listu uvidis primo volani metod, funkci a procedur vcetne
nazvu unity a cisla radku.
Marian
> -----Original Message-----
> From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
> Sent: Friday, March 28, 2003 1:41 PM
> To: konference delphi
> Subject: Popis Err vystup z JEDI - jak zjistim pricinu padu aplikace?
>=20
>=20
> Ahoj.
> V aplikaci jsem pouzil na odchyceni chybu=20
> komponentu z JCL. Mam dotaz, zda mi muzete=20
> poradit, jak se dopatrat k problemu, ktery=20
> zpusobil kolaps me aplikace.
> Error log mi dava tyto informace:
> nazev chyby, trida chyby, nahrane knihovny, info=20
> o oper. systemu - to je OK, tomu rozumim ;o).
> K cemu ale muzu vyuzit "Stack list" (vypis=20
> zasobniku - zjistim z nej neco, kdyz nedalam v=20
> assembleru?) a "Active Controls hiearchy" (tohle=20
> je mi jasne podle nazvu, ale jake je poradi? za=20
> dvojteckou je posledni aktivni prvek nebo jak?)
> Posilam kus toho error logu a prosim o radu, co=20
> vsechno lze vycist.
> Diky Jirka
>=20
> ****************************************
> Invalid pointer operation.
>=20
> Exception class: EInvalidPointer
> Exception address: 00402850
> ---------------------------------
> Stack list, generated 28.2.2003 10:50:24
> [00402850]
> [00402944]
> [00402850]
> [00507209]
> [00507286]
> [00453380]
> [004533A5]
> [004533FC]
> [0045341F]
> [0044F087]
> [0041E771]
> [0042E94D]
> [00451CA7]
> [00451CBE]
> [00427886]
> [0044F087]
> [0045202C]
> [00451CA7]
> [00451CBF]
> [00427886]
> [0046E8EC]
> [0046E923]
> [0046EB43]
> [0046EB86]
> [0051735B]
> -------------------
> Active Controls hiearchy:
> TStringGrid "KosikGrid"
> TScrollBox "ScrollBox3"
> TObr5_Kosik "Obr5_Kosik"
> TScrollBox "ScrollBox1"
> TForm1 "Form1"
> ---------------------------------
> ****************************************
>=20
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>=20
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.3.2003 14:29:00
MjguMy4yMDAzIE9uZPhlaiBUdehu/ToNCj4+IEsgY2VtdSBhbGUgbXV6dSB2eXV6aXQgIlN0YWNr
IGxpc3QiICh2eXBpcw0KPj4gemFzb2JuaWt1IC0gemppc3RpbSB6IG5laiBuZWNvLCBrZHl6IG5l
ZGFsYW0gdiANCj4+IGFzc2VtYmxlcnU/KSBhICJBY3RpdmUgQ29udHJvbHMgaGllYXJjaHkiICh0
b2hsZQ0KDQo+IEFubywgbfmeZZogdGFrIG5hau10IG3tc3RvLCBuYSBrdGVy6W0gcHJvZ3JhbSB6
ZGVjaG51bC4gTmVqZPjtdmUgc2UNCj4gYWJzb2x1dG7tIGFkcmVzYSBtdXPtIHVwcmF2aXQgbmEg
cmVsYXRpdm7tIGFkcmVzdSB2IHLhbWNpIHNhbW90bulobyBr82R1DQo+IGFwbGlrYWNlIGEgdv1z
bGVkbukg6O1zbG8gc2UgcG91nmlqZSB2IFNlYXJjaC1GaW5kIEVycm9yLiBEZWxwaGkgcGFrDQo+
IHpwcmF2aWRsYSB1a+GeZSBvZHBvdu1kYWrtY+0g+OFkZWsuDQoNCj4gUPhlcG/oZXQgbmEgcmVs
YXRpdm7tIGFkcmVzdToNCg0KPiAgIHJlbGF0aXZuaSA6PSBhYnNvbHV0bmkgLSAkMDA0MF8xMDAw
Ow0KDQo+ICQwMDQwXzAwMDAgamUgc3RhbmRhcmRu7SBpbWFnZSBiYXNlIChhZHJlc2EgbmEga3Rl
cm91IHNlIHByb2dyYW0gbmFocmFqZSBkbw0KPiBwYW3sdGkpIEVYRS4gJDEwMDAgamUgb2Zmc2V0
IHph6OF0a3UgY29kZSBzZWdtZW50dSAocHJvdmVkaXRlbG7paG8ga/NkdSkuDQoNCj4gUmVsYXRp
dm7tIGFkcmVzeSBtZW6a7SBuZZ4gY2NhICQzMDAwIG9kaWdub3J1aiwgdHkgc3BhZGFq7SBkbyBT
WVNURU0uUEFTLg0KPiBQb2RvYm7sIGFic29sdXRu7SAoISkgYWRyZXN5ID4gJDcwMDBfMDAwMCBz
cGFkYWrtIGRvIHByb3N0b3J1IG9wZXJh6G7taG8NCj4gc3lzdOltdSBhIGplaG8gRExMZWssIHRh
a55lIHR5IHRha3kgaWdub3J1ai4NCg0KQWxlIGphayB0byBjaGNlcyBkZWxhdCwga2R5eiBidWRl
IG1pdCB6YWthem5payBqaW5vdSB2ZXJ6aSA/IE5hdmljIHNlDQphZHJlc3kgbWVuaSBrYXpkeW0g
cHJla2xhZGVtICA6LSgNCg0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.3.2003 13:51:22
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>
Subject: Popis Err vystup z JEDI - jak zjistim pricinu padu aplikace?
> V aplikaci jsem pouzil na odchyceni chybu
> komponentu z JCL. Mam dotaz, zda mi muzete
> poradit, jak se dopatrat k problemu, ktery
> zpusobil kolaps me aplikace.
> Error log mi dava tyto informace:
> nazev chyby, trida chyby, nahrane knihovny, info
> o oper. systemu - to je OK, tomu rozumim ;o).
> K cemu ale muzu vyuzit "Stack list" (vypis
> zasobniku - zjistim z nej neco, kdyz nedalam v
> assembleru?) a "Active Controls hiearchy" (tohle
Jsem si jist ze na tohle odpovi beze zbytku Petr Vones, ale
presto: k tomu aby ti Stack list vypisoval take jmena
metod, procedur a funci potrebujes aplikaci zkompilovat
s "detailed map file", napr. dcc32.exe -gm projekt.dpr,
popripade odpovidajici nastaveni v Options projektu.
To ti vygeneruje soubor projekt.MAP, ktery musi byt
u projekt.EXE aby JCL Debug Info mohl stack list vypsat.
Krome toho lze soubor MAP "zakompilovat" do toho
EXE jako resource(?), tam ho JCL najde take. To snad take
dela expert do IDE Delphi, ktery take najdes v JCL.
Pro preklad z prikazove radky jsem si udelal malou
utilitku ktera to umi, je to jen trochu jinak pouzity kod z toho
experta.
Martin Schayna
W98 a pismeno jednotky
[*] Jiri Novacek <Delphi(zv)spst(tec)cz> - 28.3.2003 14:07:51
Dobry den
Je mozne ve W98 zmenit pismeno jednotky.
Mechanika CDROM ma E: a ja potrebuji aby mela napr.: R:
Ve Windows zalozenych na technologii NT to neni problem, ale pro W98
jsem neco takoveho zatim nevidel.
Predem dekuji
Jirka
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 14:08:38
> K cemu ale muzu vyuzit "Stack list" (vypis
> zasobniku - zjistim z nej neco, kdyz nedalam v
> assembleru?) a "Active Controls hiearchy" (tohle
Ano, m��e� tak naj�t m�sto, na kter�m program zdechnul. Nejd��ve se
absolutn� adresa mus� upravit na relativn� adresu v r�mci samotn�ho k�du
aplikace a v�sledn� ��slo se pou�ije v Search-Find Error. Delphi pak
zpravidla uk�e odpov�daj�c� ��dek.
P�epo�et na relativn� adresu:
relativni := absolutni - $0040_1000;
$0040_0000 je standardn� image base (adresa na kterou se program nahraje do
pam�ti) EXE. $1000 je offset za��tku code segmentu (provediteln�ho k�du).
Relativn� adresy men�� ne� cca $3000 odignoruj, ty spadaj� do SYSTEM.PAS.
Podobn� absolutn� (!) adresy > $7000_0000 spadaj� do prostoru opera�n�ho
syst�mu a jeho DLLek, tak�e ty taky ignoruj.
> ---------------------------------
> Stack list, generated 28.2.2003 10:50:24
> [00402850]
> [00402944]
> [00402850]
> [00507209] <-- prvn� rozumn� adresa
> [00507286]
<snip>
> [0046EB86]
> [0051735B] <-- z�ejm� posledn� adresa na stacku
> -------------------
V tv�m p��pad� n�s bude zaj�mat jako prvn� asi ta posledn� adresa
$0051_735B. �pravou z�sk�me relativn� adresu $11_635B, kterou u� m��e�
skusit zadat do Search-Find Error (a� na to podtr��tko, to lze jen ve
Flexu).
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
Service a priorita
[*] Jiri Novacek <Delphi(zv)spst(tec)cz> - 28.3.2003 14:03:56
Ond=F8ej Tu=E8n=FD p=ED=B9e:
> ...Service Control Manager fyzicky spust=ED a=BE po p=F8ihl=E1=B9en=ED?
>
Slu=BEba se spust=ED hned na zacatku, mohu s ni pomoc=ED TCP/IP komunikov=
at, ale to
vypnut=ED se provede a=BE kdy=BE se p=F8ihlasi nekdo do Novellovske site,=
co=BE muze
nejakou dobu trvat. Pripada mi, ze Novell nedovoly provest akci dokud je
aktivni a vse se zapise do nejake fronty a provede az po prihlaseni.
Jirka
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.3.2003 13:48:45
Musis u parametru linkeru nastavit Map file na "Detailed" a ten soubor =
MAP
distribuovat spolu s EXE. Pak budes mit u tech polozek stack listu i =
nazvy
procedur a cisla radku, napriklad takto:
T=F8=EDda v=FDjimky: EDBEngineError
Adresa v=FDjimky: 004829C2
-------
Stav z=E1sobn=EDku 19.3.2003 14:12:24
[004829C2] DBTables.DbiError + $16
[004829CE] DBTables.Check + $A
[004889EC] DBTables.TBDEDataSet.InternalRefresh + $3C
[00476F6B] Db.TDataSet.Refresh + $3B
[00476F95] Db.TDataSet.Refresh + $65
[005B751E] TachoAETR.TTachoAETRForm.BtAktualizujClick (Line 439,
"TachoAETR.pas" + 2) + $0
Existuje i moznost komprese MAP souboru, ale s tim jsem nedelal.=20
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
V aplikaci jsem pouzil na odchyceni chybu=20
komponentu z JCL.=20
K cemu ale muzu vyuzit "Stack list" (vypis=20
zasobniku - zjistim z nej neco, kdyz nedalam v=20
assembleru?)=20
****************************************
Invalid pointer operation.
Exception class: EInvalidPointer
Exception address: 00402850
---------------------------------
Stack list, generated 28.2.2003 10:50:24
[00402850]
[00402944]
FB a nastaveni Charset 1250
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 28.3.2003 13:49:21
aldik(zv)quick(tec)cz, <mailto:aldik(zv)quick(tec)cz>:
aqc> nemate nekdo napad v cem to bude?
aqc> Proste jsem zmenil pole na win1250 z defaultniho
Cela database musi jiz od zacatku byt vytvorena v CP 1250, pokud jsi
ji vytvoril bez vyslovneho urceni CP, je to spatne.
Musis ji vytvorit znovu a s prikazem 'default character set WIN1250 '.
Jeste poznamka, na pole v tabulkach jsou vyborne domeny:
'CREATE DOMAIN S30 AS VARCHAR(30) CHARACTER SET WIN1250 COLLATE PXW_CSY'
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Service a priorita
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 13:43:08
> Uz zase tapu.
> Mam pro W XP v D7 napsanu sluzbu, ktera pracuje spravne v pripade, ze
> neni nainstalovan klient Novell Netvar. V okamziku, kdy tohoto klienta
> nainstaluji, zacne sluzba provadet akce az po Novellovskem prihlaseni
> (napr.: vzdalene vypnuti pocitace). Jak jsem jiz psal, v pr�pade
> microsoft�ho prihlasovaciho dialogu vse funguje jak si p�edstavuji.
> Poradte, jak zajistit, aby ma sluzba dokazala vypnout pocitac i v
> pripade, ze je aktivni prihlasovaci dialog Novellu.
Co �e m� ten servis d�lat? Za n�jak�ch podm�nek shutdownovat po��ta�? Pod
"zacne sluzba provadet akce az po Novellovskem prihlaseni" se rozum� to, �e
ji Service Control Manager fyzicky spust� a� po p�ihl�en�?
A nemohlo by to b�t nevhodn�m nastaven�m z�vislost� mezi servisy? Nen� ten
tv�j servis nakonfigurov�n tak, �e se spou�t� a� po n�jak�m jin�m servisu
X, kter� se u MS Novell klienta spou�t� spou�t� nez�visle na loginu,
zat�m co za p��tomnosti Novell Novell klienta a� po prvn�m loginu?
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
Popis Err vystup z JEDI - jak zjistim pricinu padu
[*] <js-delphi(zv)quick(tec)cz> - 28.3.2003 13:40:33
Ahoj.
V aplikaci jsem pouzil na odchyceni chybu
komponentu z JCL. Mam dotaz, zda mi muzete
poradit, jak se dopatrat k problemu, ktery
zpusobil kolaps me aplikace.
Error log mi dava tyto informace:
nazev chyby, trida chyby, nahrane knihovny, info
o oper. systemu - to je OK, tomu rozumim ;o).
K cemu ale muzu vyuzit "Stack list" (vypis
zasobniku - zjistim z nej neco, kdyz nedalam v
assembleru?) a "Active Controls hiearchy" (tohle
je mi jasne podle nazvu, ale jake je poradi? za
dvojteckou je posledni aktivni prvek nebo jak?)
Posilam kus toho error logu a prosim o radu, co
vsechno lze vycist.
Diky Jirka
****************************************
Invalid pointer operation.
Exception class: EInvalidPointer
Exception address: 00402850
---------------------------------
Stack list, generated 28.2.2003 10:50:24
[00402850]
[00402944]
[00402850]
[00507209]
[00507286]
[00453380]
[004533A5]
[004533FC]
[0045341F]
[0044F087]
[0041E771]
[0042E94D]
[00451CA7]
[00451CBE]
[00427886]
[0044F087]
[0045202C]
[00451CA7]
[00451CBF]
[00427886]
[0046E8EC]
[0046E923]
[0046EB43]
[0046EB86]
[0051735B]
-------------------
Active Controls hiearchy:
TStringGrid "KosikGrid"
TScrollBox "ScrollBox3"
TObr5_Kosik "Obr5_Kosik"
TScrollBox "ScrollBox1"
TForm1 "Form1"
---------------------------------
****************************************
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Service a priorita
[*] Jiri Novacek <Delphi(zv)spst(tec)cz> - 28.3.2003 13:24:58
Dobry den.
Uz zase tapu.
Mam pro W XP v D7 napsanu sluzbu, ktera pracuje spravne v pripade, ze
neni nainstalovan klient Novell Netvar. V okamziku, kdy tohoto klienta
nainstaluji, zacne sluzba provadet akce az po Novellovskem prihlaseni
(napr.: vzdalene vypnuti pocitace). Jak jsem jiz psal, v pr=EDpade
microsoft=EDho prihlasovaciho dialogu vse funguje jak si p=F8edstavuji.
Poradte, jak zajistit, aby ma sluzba dokazala vypnout pocitac i v
pripade, ze je aktivni prihlasovaci dialog Novellu.
Predem dekuji
Jirka
Find OutlookExpres
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 28.3.2003 12:12:10
Nemuzu na to prijit :((
Nevim jak programove prochazet adresar a porovnavat v nem napr. tel.cislo,
zda se shoduje s hledanym...
Muzes me prisim te poradi jak na to?
Diky Vlasta
> From: "Vlastimil Zden�k" <delphi(zv)gestore(tec)cz>
> > Jak najit bez nutnosti uzivatelske komunikace v OutlookExpresu kontakt??
> > Na radu Petra Vonese jsem si stahnul z JEDI konverzi WABu. Vse chodi,
ale
> > potreboval bych prave vynechat dialogovy form na zadani hledane
promenne...
>
> Staci prece programove prochazet jednotlive polozky v tom adresari a
vyhledat
> to podle potreby.
>
> Petr Vones
>
>rxFolderMonitor II
[*] Dalibor <dalibor(zv)torola(tec)cz> - 28.3.2003 11:45:12
Tak rxFolderMonitoru jsem se zbavil a na oznameni o zmene obsahu adresare
jsem pouzil tohle....
Odskouseno na Win2000, Win98
------------------------------------------------
var notifyHandle : cardinal;
function NotifyThreadProc(dummy: pointer) : cardinal; stdcall;
begin
=A0result:=3D0;
=A0repeat
=A0=A0=A0WaitForSingleObject(notifyHandle,INFINITE);
=A0=A0=A0beep;
=A0=A0=A0SetForegroundWindow(Application.handle);
=A0=A0=A0MessageBox(Application.handle,'Something has=20
changed...','Information',0);
=A0until not FindNextChangeNotification(notifyHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
var tid : cardinal;
begin
=A0notifyHandle:=3DFindFirstChangeNotification('C:\',false,FILE_NOTIFY_CH=
ANGE_FILE_NAME=20
or
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0FILE_NOTIFY_CHANGE_DIR_NAME=20
=A0or
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0FILE_NOTIFY_CHANGE_ATTRIBUTES)=20
;
=A0if notifyHandle<>INVALID_HANDLE_VALUE then begin
=A0=A0=A0CloseHandle(CreateThread(nil,0,(zv)notifyThreadProc,nil,0,tid)); //=
Don't=20
like Delphi threads...
=A0end else begin
=A0=A0=A0beep;
=A0=A0=A0MessageBox(0,'FindFirstChangeNotification could not be=20
installed...','Information',0);
=A0end;
end;
end.
konec radku CRLF
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.3.2003 11:35:39
28.3.2003 Lebeda David:
> no ale prave proto by clovek cekal, ze celkem jedno, jestli napred dam hlavu na
> zacatek a pak posunu papir, nebo obracene. Jenze CRLF a LFCR se v jistych
> situacich chova ruzne - priklady jsem uvedl.
Teoreticky to jedno je. Neni to ale jedno v procedure, ktera textovy
soubor nacita. Tam zalezi na implementaci. Takze pokud si nechces
komplikovat zivot a zjistit, ze mas v textu navic treba volne radky,
pouzivej standard CrLf
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
problemy s verzi ComCtl vz. ImageList
[*] Ji�� Baudy� - 28.3.2003 11:24:56
Kr=E1sn=FD den,
vyskytl se mi probl=E9m s knihovnou ComCtl32.dll vz. ImageList. P=F8i n=EC=
kter=FDch
kombinac=EDch to hl=E1s=ED nesmysly a n=ECkde to nefunguje v=F9bec. Nepot=
kal jste
n=ECkdo na netu soupis verz=ED t=E9to knihovny vz. probl=E9m=F9 s nimi.
D5, prof.
ComCtl32.dll 5.81.4916.400 /Sys Win98, IE 6/
D=EDky Jirka
rfFolderMonitor
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 28.3.2003 10:56:36
Cau Dalibor,
Friday, March 28, 2003, 10:53:20 AM, you wrote:
> Ahoj, pouzil jsem ve sve aplikaci rxFolderMonitor a pri spusteni na
> Win98(na WinXP a Win2000 vse OK) mi aplikace nahlasi chybu Win32.Error =
> code 87, parametr neni spravny
Neni to nahodou pouze na NT systemy ?
a jakej mate nastavenej parametr pro tu slozku co chcete monitorovat ?
> Nevite nekdo co s tim?
S pozdravem
Milan Vymazal
rfFolderMonitor
[*] Dalibor <dalibor(zv)torola(tec)cz> - 28.3.2003 10:53:20
Ahoj, pouzil jsem ve sve aplikaci rxFolderMonitor a pri spusteni na
Win98(na WinXP a Win2000 vse OK) mi aplikace nahlasi chybu Win32.Error =
code 87, parametr neni spravny,
Nevite nekdo co s tim?
konec radku CRLF
[*] Ond�ej Tu�n������'�������̿ - 28.3.2003 10:17:36
> no ale prave proto by clovek cekal, ze celkem jedno, jestli napred dam hlavu na
> zacatek a pak posunu papir, nebo obracene. Jenze CRLF a LFCR se v jistych
> situacich chova ruzne - priklady jsem uvedl.
Jen�e soubor nen� tisk�rna. Tisk�rna prov�d� p��kazy jeden po druh�m, pro
soubory plat� pevn� stanoven� konvence - CR LF.
--
Ond�ej Tu�n�,
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
konec radku CRLF
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.3.2003 10:05:11
> LD> Ja bych rad zduraznil jeste jednu zkusenost - totiz ze na poradi
> tech dvou znaku opravdu zalezi.
>
> Z historie radkovych tiskaren:
> CR = Carriage Return = Navrat voziku = tiskova hlava na zacatek radku
> LF = Line Feed = Posun radku = valec s papirem se fyzicky pootoci o
> jeden radek
Ahoj,
no ale prave proto by clovek cekal, ze celkem jedno, jestli napred dam hlavu na
zacatek a pak posunu papir, nebo obracene. Jenze CRLF a LFCR se v jistych
situacich chova ruzne - priklady jsem uvedl.
lokalizacia vo FastReport
[*] delphin <delphinPP(zv)seznam(tec)cz> - 28.3.2003 09:46:27
Zdar!
..potrebujem pomoct s lokalizovanim vo FastReporte, nemate niekto kusok
funkcneho kodu?.. chcem pouzit lokalizovanie on-the-fly cez DLL, ale to, co
je uvedene v helpe, t.j. napr.
frLocale.LoadDll('FR_SLO.DLL');
...
frLocale.UnloadDll;
mi nefunguje... urobil som si jednoduchu aplikaciu, kde mam len frReport,
Button, ktory vyvola Designer, pred volanim Designeru mam LoadDLL a nic..
kde moze byt problem?
Dik
W2kSP2,D6EntSP2,FR2.46
FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 28.3.2003 09:43:52
Tech 10s mohlo byt naprosto normalni cekani na odezvu serveru. Na
internetu neni 10 sekund zadny kriticky cas, staci aby nekde
zazlobilo spojeni po ceste, nebo aby server byl necim chvilku
vytizeny, a hnedka je deset sekund na svete.
Jinak timeouty jsou v Synapsi skutecne vsechny v ms.
> No zamrzlo n=E1m to zat=EDm jednou a mo=FEn=E1 se opravdu nejednalo o
> zamrznut=ED. Dnes r=E1no se n=E1m to stalo znovu, ale aplikace se asi za=
10
> sekund rozjela d=E1l... Tud=ED=FE nejsp=ED=E1 do=E1lo k "zamrznut=ED" p=D9=
i pr=E1ci s
> ftp - mo=FEn=E1 bylo pomal=E9 spojen=ED =ABi n�co takov=E9ho a =ABekalo =
se na
> odpov�=AC... Chceme tam tedy d=E1t Timeout. Chci se V=E1s zeptat, ten je
> nejsp=ED=E1 v ms, =FEe?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
FTP
[*] <jimysforum(zv)centrum(tec)cz> - 28.3.2003 09:32:03
No zamrzlo n=E1m to zat=EDm jednou a mo=BEn=E1 se opravdu nejednalo o=20
zamrznut=ED. Dnes r=E1no se n=E1m to stalo znovu, ale aplikace se asi z=
a 10=20
sekund rozjela d=E1l... Tud=ED=BE nejsp=ED=B9 do=B9lo k "zamrznut=ED" p=
=F8i pr=E1ci s=20
ftp - mo=BEn=E1 bylo pomal=E9 spojen=ED =E8i n=ECco takov=E9ho a =E8eka=
lo se na=20
odpov=EC=EF... Chceme tam tedy d=E1t Timeout. Chci se V=E1s zeptat, ten=
je=20
nejsp=ED=B9 v ms, =BEe?
Je=B9t=EC chci =F8=EDct, =BEe ta komponenta je opravdu dobr=E1 a musel =
jste si s=20
n=ED d=E1t dost pr=E1ce... V=B9echna =E8est! :-)
D=EDky
Jirka
______________________________________________________________
> Od: <delphi-l-owner(zv)clexpert(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:=20
> Datum: Thu, 27 Mar 2003 17:11:10 +0100
> P=F8edm=ECt: Re: FTP
>
> > Tento postup samoz=D9ejm pou=FE=EDv=E1m... testuju zda se p=D9ilogu=
ju a zda=20
byl
> > soubor sta=FEen, nav=EDc jsem to dal je=E1t mezi try-except-end. Ne=
n=ED
> > probl=E9m, =FEe to m=E1me napsan=E9 v Delphi 5?
>=20
> To je fakt uplne jedno, jestli to mas na Delphi 3, na Delphi 7 ci na
> Kylixu... :-)
>=20
> Ale vsadim se, ze problem neni vubec na strane tve aplikace, spise=20
to
> fakt vypada na nejake omezeni neceho po trase, bud jak jsem mluvil o
> tom omezeni na pristup z jedne Ip, nebo treba nejake hloupe omezeni
> na firewallu, nebo tak neco.
>=20
>=20
> --
> Lukas Gebauer.
>=20
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
>=20
konec radku CRLF
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 28.3.2003 09:06:43
Lebeda David, <mailto:david.lebeda(zv)comarr(tec)cz>:
LD> Ja bych rad zduraznil jeste jednu zkusenost - totiz ze na poradi tech dvou znaku
LD> opravdu zalezi. Spravne je #13#10. Kdyz se to prohodi, tak:
LD> - napr. v Memo se to nechova jako odradkovani
LD> - generator sestav se zacne chovat velice prapodivne u viceradkovych parametru
Z historie radkovych tiskaren:
CR = Carriage Return = Navrat voziku = tiskova hlava na zacatek radku
LF = Line Feed = Posun radku = valec s papirem se fyzicky pootoci o
jeden radek
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Bitmap 2 Icon
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 28.3.2003 03:46:39
Zdar mam problem, prevadim Bitmapu na Iconu a pouzil jsme tip 322 z "1001
tipu a triku pro Delphi"
zdrojak je:
function Bmp2Ico(Bitmap:TBitmap):TIcon;
var IconSizeX:Integer;
IconSizeY:Integer;
AndMask:TBitmap;
IConInfo:TIconInfo;
begin
//velikost ikony
IconSizeX:=GetSystemMetrics(SM_CXICON);
IconSizeY:=GetSystemMetrics(SM_CYICON);
//vytvoreni AND bitmapy
AndMask:=TBitmap.Create;
AndMask.Monochrome:=true;
AndMask.Width:=IconSizeX;
AndMask.Height:=IconSizeY;
AndMask.Canvas.Brush.Color:=clBlack;
AndMask.Canvas.FillRect(Rect(0,0,IconSizeX,IconSizeY));
//Vytvoreni ikony
result:=TIcon.Create;
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=AndMask.Handle;
IconInfo.hbmColor:=Bitmap.Handle;
result.Handle:=CreateIconIndirect(IconInfo);
AndMask.Free;
end;
procedure TForm1.ConvertBClick(Sender: TObject);
begin
Dest.Picture.Icon:=Bmp2Ico(Source.Picture.Bitmap);
Dest.Picture.SaveToFile('i.ico');
ReLoad.Picture.Icon.LoadFromFile('i.ico');
end;
"Source" je TImage, kde je nactena zdrojova Bitmapa
"Dest" je TImage do ktereho se vytvari Icona ze "Source"
"ReLoad" je ulozena icona z "Dest" znova otevrena
problem je v tom, ze v "Dest" se mi icona zobrazi spravne, ale jakmile ji
ulozim a znovu nactu ma jenom 16 standardnich Windows barev (ani ne 16
podobnych originalu)...
Nevi nekdo, kde je problem? S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Archiv ARC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.3.2003 00:49:35
From: "Martin Falta" <martin(zv)aprog(tec)cz>
> Opravdu nikdo o nicem nevi? :-(
http://www.torry.net/compressstd.htm
prezerac obrazkov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.3.2003 23:40:35
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Na OnMouseDown si zapamatujes pozici mysi
> Na OnMouseMove pohnes s obrazkem o rozdil mezi zapamatovanou pozici a
> X,Y, ktere dostanes z metody
Kdysi jsem neco takoveho psal, tady je to ke stazeni:
http://www.volweb(tec)cz/pvones/download/JpegViewer.zip
prezerac obrazkov
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 21:32:07
27.3.2003 alex:
> Chcem sa este spytat:
> 1. ako docielim, aby som mohol hybat velkym obrazkom tak, ze ho vlastne
> prichytim mysou a nasledne potiahnem a nebudem musiet pouzit posuvniky ?
> 2. je na to treba nejaka komponenta, alebo to ide aj inak?
> 3. ak ano, ako ?
Neni treba komponenta.
Na OnMouseDown si zapamatujes pozici mysi
Na OnMouseMove pohnes s obrazkem o rozdil mezi zapamatovanou pozici a
X,Y, ktere dostanes z metody
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Archiv ARC
[*] Martin Falta <martin(zv)aprog(tec)cz> - 27.3.2003 21:32:16
Opravdu nikdo o nicem nevi? :-(
This is a forwarded message
From: Martin Falta <martin(zv)aprog(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Date: Tuesday, March 25, 2003, 6:06:41 PM
Subject: Archiv ARC
===8<==============Original message text===============
Ahoj,
nevite nekdo o nejake free (neni podminkou) komponente nebo ActiveX, ktera
by umela rozbali archiv ARC?
Diky
Martin
===8<===========End of original message text===========
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
Licence pro volne sireni
[*] Ji�� Pag�� - 27.3.2003 21:05:07
GNU/GPL licence, musi byt v anglictine, aby platila:
http://www.gnu.org/
Jiri Pagac
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Vita J.
Sent: Thursday, March 27, 2003 6:28 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Licence pro volne sireni
Zdravim konferenci.
Mohl by mi prosim nekdo poradit nejaky vzor licencni smlouvy v cestine,
kterou bych mohl pridavat k programu sirenemu bezplatne (neco jako
freeware) a ve ktere by byly zachyceny takove ty zakladni prava a
povinnosti me i lidi (jako ze nesmi sirit program ve zmenenem stavu,
nesmi ho dekompilovat, ze nenesu odpovednost za skody v programu, ze
nesmi pouzivat jeho casti pro svoji potrebu apod.)? Vim ze existuji i
nejake standarty licenci (pojmy tusim typu GNU apod), ale mam v tom
strasny chaos a nevyznam se v tom, proto prosim o pomoc zkusenejsi
kolegy.
Poradi prosim nekdo?
Odpovedi prosim (pokud nebudou mit informacni hodnotu pro vsechny) na
svuj soukromy mail viju(zv)vegateam(tec)cz)
Predem moc diky za pomoc...
Vita J.
prezerac obrazkov
[*] alex <bugala_a(zv)inMail.sk> - 27.3.2003 20:19:28
Ahojte,
zmensovanie a zvacsovanie obrazku uz mam vyriesene, dakujem!
Chcem sa este spytat:
1. ako docielim, aby som mohol hybat velkym obrazkom tak, ze ho vlastne
prichytim mysou a nasledne potiahnem a nebudem musiet pouzit posuvniky ?
2. je na to treba nejaka komponenta, alebo to ide aj inak?
3. ak ano, ako ?
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Sejmuti obrazovky -> ulozeni obrazku
[*] <js-delphi(zv)quick(tec)cz> - 27.3.2003 19:17:20
Dobry den=2E
Mozna se zeptam hloupe=2C ale brani Ti neco udelat =
si i to sejmuti v tom threadu=3F
Proste=3A udalost -=3E sejmuti obr=2E -=3E vytvarim =
thread=2C ktery sejme a ulozi=2E Pokud to budu chtit =
10 do min=2C rozjede se mi trebas 10 threadu=2E
Nezkousel jsem to=2C tak nevim jestli u toho muze =
vzniknout nejaky problem=2E Vznikne=3F
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A David Kraina =3CDKx=40Seznam=2Ecz=3E
Datum=3A st=F8eda=2C 26=2E b=F8ezna 2003 v 9=3A30 odp=2E
P=F8edm=ECt=3A Sejmuti obrazovky -=3E ulozeni obrazku
=3E Mam takovou vizi=2C ze bych sejmul obrazovku a =
=3E vytvoril samostatne vlakno=2C kde
=3E by se program nezastavil na ukladani=2C a mohl =
=3E by sejmout dalsi=2E Tu ale
=3E nastava problem=2C jak okamzite predat bitmapu =
=3E tak=2C aby behem ukladani mohla
=3E byt vyvolana funkce znovu s multitaskingem=2E ==3E David Kraina
Re[2]: Sejmuti obrazovky -> ulozeni obrazku
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 27.3.2003 18:57:03
------------
> > bitmapy su dost velke, so zapisom velkych suborov
> > je samozrejme urcita rezia. Co takto ukladat ich
> > v JPEG formate?
>
> JPEG format je naprosto nevhodny pro ukladani obrazovek a jinych "umelych"
> obrazku. Ja bych radeji volil GIF nebo BMP s kompresi.
------------
Oboji to uz podporuje, ale je to casove k nerozeznani s BMP bez komprese.
Ona ta komprese tez neco tva, a u cele obrazovky (800x600=1,4 MB) to neni
zrovna hned...
S pozdravem
===================================================
David Kraina
---------------------------
Vedouc� v�voj�rsk�ho t�mu MX-3, program�tor
http://DKx.on.to
http://MX-3.w3.to
===================================================
Sejmuti obrazovky -> ulozeni obrazku
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 26.3.2003 21:30:07
Dobry den,
vcera jsem do konference pridal dotaz, jak rychle jemout obrazovky. Bohuzel
stejny kod jako jsem dostal jiz pouzivam, a zjistil jsem, ze nejpomalejsi je
ukladani.
Mam takovou vizi, ze bych sejmul obrazovku a vytvoril samostatne vlakno, kde
by se program nezastavil na ukladani, a mohl by sejmout dalsi. Tu ale
nastava problem, jak okamzite predat bitmapu tak, aby behem ukladani mohla
byt vyvolana funkce znovu s multitaskingem. Jde tato idea nejak realizovat
v Delphi (6) ?
Diky skvele konferenci za spolupraci
S pozdravem
===================================================
David Kraina
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================
OT: Licence pro volne sireni
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 27.3.2003 18:28:09
Zdravim konferenci.
Mohl by mi prosim nekdo poradit nejaky vzor licencni smlouvy v cestine,
kterou bych mohl pridavat k programu sirenemu bezplatne (neco jako freeware)
a ve ktere by byly zachyceny takove ty zakladni prava a povinnosti me i lidi
(jako ze nesmi sirit program ve zmenenem stavu, nesmi ho dekompilovat, ze
nenesu odpovednost za skody v programu, ze nesmi pouzivat jeho casti pro
svoji potrebu apod.)?
Vim ze existuji i nejake standarty licenci (pojmy tusim typu GNU apod), ale
mam v tom strasny chaos a nevyznam se v tom, proto prosim o pomoc zkusenejsi
kolegy.
Poradi prosim nekdo?
Odpovedi prosim (pokud nebudou mit informacni hodnotu pro vsechny) na svuj
soukromy mail viju(zv)vegateam(tec)cz)
Predem moc diky za pomoc...
Vita J.
FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.3.2003 17:11:10
> Tento postup samoz=D9ejm� pou=FE=EDv=E1m... testuju zda se p=D9iloguju a=
zda byl
> soubor sta=FEen, nav=EDc jsem to dal je=E1t� mezi try-except-end. Nen=ED
> probl=E9m, =FEe to m=E1me napsan=E9 v Delphi 5?
To je fakt uplne jedno, jestli to mas na Delphi 3, na Delphi 7 ci na
Kylixu... :-)
Ale vsadim se, ze problem neni vubec na strane tve aplikace, spise to
fakt vypada na nejake omezeni neceho po trase, bud jak jsem mluvil o
tom omezeni na pristup z jedne Ip, nebo treba nejake hloupe omezeni
na firewallu, nebo tak neco.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
BLOB jako parametr v StoredProc - vyreseno
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 27.3.2003 16:58:28
Ahoj,
konecne jsem se dobral reseni. Nize uvedena chyba se vyskytne v pripade
pokud mam v tabulce pole, ktere je cizim klicem v jine tabulce a pokusim =
se
insert/update vetu, ktera ma tyto pole 'null'. Sice porad nechapu proc
'invalid BLOB ID' :-( , nicmene mam overeno, ze tomu tak je :-).
Takze plati: Never tomu, co to rikaji, pravde je uplne jinde.
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
> -----Original Message-----
> Nicmene problem ("invalid BLOB ID") se objevil u jine tabulky znova,
> tentokrat pri INSERTU i UPDATE, prestoze jsem proceduru napsal
> rucne, abych
> vyloucil chybu IBExperta.
> Takze vubec nevim, ktera bije.
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
FTP
[*] <jimysforum(zv)centrum(tec)cz> - 27.3.2003 16:40:27
Tento postup samoz=F8ejm=EC pou=BE=EDv=E1m... testuju zda se p=F8iloguj=
u a zda=20
byl soubor sta=BEen, nav=EDc jsem to dal je=B9t=EC mezi try-except-end.=
Nen=ED=20
probl=E9m, =BEe to m=E1me napsan=E9 v Delphi 5?
D=EDky.
Jirka
______________________________________________________________
> Od: <delphi-l-owner(zv)clexpert(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:=20
> Datum: Thu, 27 Mar 2003 15:59:21 +0100
> P=F8edm=ECt: Re: FTP
>
> Mozne to pochopitelne je, a specielne se Synapsi to sam pouzivam, a
> neni s tim sebemensi problem!
>=20
> Pokud ale ovsem nelezes na nejaky FTP server, ktery ma schvalne
> zablokovany vicenasobny pristup z jedne IP adresy. Takove FTP=20
servery
> existuji!
>=20
> Nicmene v takovem pripade by ti mel v Synapsi vracet TFTPsend.login
> false a ty na to muzes v programu zareagovat.
>=20
> > mli jsme n=E1sleduj=EDc=ED probl=E9m: m=E1me aplikaci, kter=E1 stah=
uje=20
soubory z
> > ftp, po dan=E9m =ABasov=E9m intervalu se tam "znovu pod=EDv=E1" a s=
t=E1hne ty,
> > kter=E9 je=E1t nem=E1me. P=EFvodn jsme pou=FE=EDvali komponentu NMF=
TP. Za=ABali
> > jsme ale stahovat ze dvou m=EDst, tud=ED=FE spou=E1t=EDme dv instan=
ce t=E9=FEe
> > aplikace. Aplikace se ale za=ABali kousat a na MS 2000 Serveru ne=E1=
li
> > shodit ani p=D9=EDkazem kill.
> >
> > Poohl=E9dli jsme se po jin=E9 komponent - FTPSend ze Synapse. Ov=E1=
em s=20
tou
> > to dl=E1 taky. Netu=E1=ED nkdo, v =ABem by mohl b=FDt zakopan=FD pe=
s? U=20
=46TPSend
> > nastavujeme: TargetHost, TargetPort, Username, Password,=20
BinaryMode :=3D
> > False a DirectFile :=3D True. V jedn=E9 =AB=E1sti programu provedem=
e=20
Login,
> > v=FDpis soubor=EF-FTPSend.List- a Logout. V dal=E1=ED =AB=E1sti pro=
gramu pak
> > Login, sta=FEen=ED souboru-FTPSend.RetrieveFile- a Logout. Netu=E1=ED=
=20
nkdo, v
> > =ABem by mohla b=FDt chyba? Nem=E1 se nastavovat je=E1t nco jin=E9h=
o? Je=20
mo=FEn=E9
> > v=EFbec ve Windows komunikovat p=D9es FTP paraleln?
>=20
>=20
> --
> Lukas Gebauer.
>=20
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
>=20
Like v MSSQL
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 27.3.2003 16:30:32
select JMENO from JMENA where JMENO like 'm%' COLLATE SQL_Czech_CP1250_CS_AS
by mohlo pomoct.
Ahoj Jarda
----- Original Message -----
From: "tintin tintin" <tintin.tintin(zv)seznam(tec)cz>
Sent: Thursday, March 27, 2003 3:45 PM
> Zdravim..
>
> nevite nahodou nekdo, jak lze zaridit, aby mi select s LIKE rozlisoval
> mala-velka pismana..
>
> viz..
>
> select JMENO from JMENA where JMENO like 'm%'
>
> aby tento dotaz vracel jen ta jmena s malym m... Porad mi to tvrdosijne
> vraci zaznamy jak s malymi pismeny tak velkymi.. (:
>
> Help my please..
>
> Delphi 6prof, Win2000, MSSQL
>
>
FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.3.2003 15:59:21
Mozne to pochopitelne je, a specielne se Synapsi to sam pouzivam, a
neni s tim sebemensi problem!
Pokud ale ovsem nelezes na nejaky FTP server, ktery ma schvalne
zablokovany vicenasobny pristup z jedne IP adresy. Takove FTP servery
existuji!
Nicmene v takovem pripade by ti mel v Synapsi vracet TFTPsend.login
false a ty na to muzes v programu zareagovat.
> m�li jsme n=E1sleduj=EDc=ED probl=E9m: m=E1me aplikaci, kter=E1 stahuje =
soubory z
> ftp, po dan=E9m =ABasov=E9m intervalu se tam "znovu pod=EDv=E1" a st=E1h=
ne ty,
> kter=E9 je=E1t� nem=E1me. P=EFvodn� jsme pou=FE=EDvali komponentu NMFTP.=
Za=ABali
> jsme ale stahovat ze dvou m=EDst, tud=ED=FE spou=E1t=EDme dv� instance t=
=E9=FEe
> aplikace. Aplikace se ale za=ABali kousat a na MS 2000 Serveru ne=E1li
> shodit ani p=D9=EDkazem kill.
>
> Poohl=E9dli jsme se po jin=E9 komponent� - FTPSend ze Synapse. Ov=E1em s=
tou
> to d�l=E1 taky. Netu=E1=ED n�kdo, v =ABem by mohl b=FDt zakopan=FD pes? =
U FTPSend
> nastavujeme: TargetHost, TargetPort, Username, Password, BinaryMode :=3D
> False a DirectFile :=3D True. V jedn=E9 =AB=E1sti programu provedeme Log=
in,
> v=FDpis soubor=EF-FTPSend.List- a Logout. V dal=E1=ED =AB=E1sti programu=
pak
> Login, sta=FEen=ED souboru-FTPSend.RetrieveFile- a Logout. Netu=E1=ED n�=
kdo, v
> =ABem by mohla b=FDt chyba? Nem=E1 se nastavovat je=E1t� n�co jin=E9ho? =
Je mo=FEn=E9
> v=EFbec ve Windows komunikovat p=D9es FTP paraleln�?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Like v MSSQL
[*] tintin tintin <tintin.tintin(zv)seznam(tec)cz> - 27.3.2003 15:45:11
Zdravim..
nevite nahodou nekdo, jak lze zaridit, aby mi select s LIKE rozlisoval
mala-velka pismana..
viz..
select JMENO from JMENA where JMENO like 'm%'
aby tento dotaz vracel jen ta jmena s malym m... Porad mi to tvrdosijne
vraci zaznamy jak s malymi pismeny tak velkymi.. (:
Help my please..
Delphi 6prof, Win2000, MSSQL
Find OutlookExpres
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 27.3.2003 15:42:09
nebo jeste trosku jinak:
1, zobrazit vyhledavaci formular Outlooku
2, automaticky vyplnit pozadovyne kriterium pro hledani
3, stisknout tlacitko "Najit"
Slo by toto nejak automaticky provest ??
> Zdravim,
> uz jsem se na to ptal, ale nikdo neodpovede, tak to zkusim jeste
raz....:))
>
> Jak najit bez nutnosti uzivatelske komunikace v OutlookExpresu kontakt??
> Na radu Petra Vonese jsem si stahnul z JEDI konverzi WABu. Vse chodi, ale
> potreboval bych prave vynechat dialogovy form na zadani hledane
promenne...
>
> Diky za radu
> Vlasta
>
> D5 Ent
>
>
>Find OutlookExpres
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.3.2003 15:38:08
From: "Vlastimil Zden�k" <delphi(zv)gestore(tec)cz>
> Jak najit bez nutnosti uzivatelske komunikace v OutlookExpresu kontakt??
> Na radu Petra Vonese jsem si stahnul z JEDI konverzi WABu. Vse chodi, ale
> potreboval bych prave vynechat dialogovy form na zadani hledane promenne...
Staci prece programove prochazet jednotlive polozky v tom adresari a vyhledat
to podle potreby.
Petr Vones
Find OutlookExpres
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 27.3.2003 15:15:59
Zdravim,
uz jsem se na to ptal, ale nikdo neodpovede, tak to zkusim jeste raz....:))
Jak najit bez nutnosti uzivatelske komunikace v OutlookExpresu kontakt??
Na radu Petra Vonese jsem si stahnul z JEDI konverzi WABu. Vse chodi, ale
potreboval bych prave vynechat dialogovy form na zadani hledane promenne...
Diky za radu
Vlasta
D5 Ent
TStringList a vlakna
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.3.2003 15:12:29
> Jednotka Windows se v Kylixu pod Linuxem moc nechyta :)
> Taktez procedury InitializeCriticalSection a
> DeleteCrticalSection.
Tie budu pre Kylix zrejme v unite LibC. Kod, ktory ich pouziva ma direktivy
pre podmieneny preklad v klauzulach uses, takze Delphi pouziva unitu Windows
a Kylix unitu Libc, a v nich su deklarovane funkcie s rovnakymi nazvami a
parametrami ale roznymi implementaciami pre obe platformy.
> Znovu dodavam ze to potrebuju do Kylixu. Zatim to zkousim
> resit pres TThreadList.
Ak si schopny pouzivat TThreadList, musis byt schopny pouzivat aj critical
sections, totiz TThreadList ich sam pouziva. Tipujem, ze to najdes v unite
LibC.
HTH
Zmena farby pri polozke v CheckListBox a TreeView
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 27.3.2003 13:56:59
prepis jim metodu OnDrowItem (nebo tak nejak), nezapomen nastavit vlastnost
OwnerDraw
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of mstevlik(zv)gamo.sk
Sent: Thursday, March 27, 2003 10:05 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zmena farby pri polozke v CheckListBox a TreeView
Hi all,
Chcem sa vas opytat, ako zmenit farbu pre kazdu polozku v TreeView a
CheckListBox (rad by som mal kazdu polozku vypisanu inou farbou podla
nejakej podmienky)
Viete mi poradit ako na to?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
icq: 34893645
BLOB jako parametr v StoredProc
[*] tintin tintin <tintin.tintin(zv)seznam(tec)cz> - 27.3.2003 14:24:03
Zdravim..
> Pouzivate vubec nekdo ulozeni BLOBu ulozenou procedurou ? Uplne mi
> staci textova data, binarni si osetrim jinak.
Jasne.. Pouzivam to k ukladani textu a funguje to dobre.. Myslim, ze z kodu
je jasne o co jde.. (nevim jestli to funguje, psal jsem to z hlavy.. :)
Delphi 6prof, Win2000
function UlozPoznamkuDoDatabaze: Boolean;
var
S: TMemoryStream;
Text: TStringList;
begin
Result := False;
try
if not (DM.Tx1.InTransaction) then DM.Tx1.StartTransaction;
Text := TStringList.Create;
S := TMemoryStream.Create;
Text.SaveToStream (S);
S.Position := 0;
SProc.StoredProcName := 'KALENDAR_POZNAMKY_I';
SProc.ParamByName ('POZNAMKA').LoadFromStream (S, ftBlob);
SProc.ExecProc;
DM.Tx1.Commit;
Result := True;
S.Free;
except;
DM.Tx1.Rollback;
Raise;
end;
end;
FTP
[*] <jimysforum(zv)centrum(tec)cz> - 27.3.2003 14:08:43
Ahoj,
m=ECli jsme n=E1sleduj=EDc=ED probl=E9m: m=E1me aplikaci, kter=E1 stahu=
je soubory z=20
ftp, po dan=E9m =E8asov=E9m intervalu se tam "znovu pod=EDv=E1" a st=E1=
hne ty,=20
kter=E9 je=B9t=EC nem=E1me. P=F9vodn=EC jsme pou=BE=EDvali komponentu N=
MFTP. Za=E8ali=20
jsme ale stahovat ze dvou m=EDst, tud=ED=BE spou=B9t=EDme dv=EC instanc=
e t=E9=BEe=20
aplikace. Aplikace se ale za=E8ali kousat a na MS 2000 Serveru ne=B9li=20
shodit ani p=F8=EDkazem kill.
Poohl=E9dli jsme se po jin=E9 komponent=EC - FTPSend ze Synapse. Ov=B9e=
m s=20
tou to d=ECl=E1 taky. Netu=B9=ED n=ECkdo, v =E8em by mohl b=FDt zakopan=
=FD pes? U=20
=46TPSend nastavujeme: TargetHost, TargetPort, Username, Password,=20
BinaryMode :=3D False a DirectFile :=3D True. V jedn=E9 =E8=E1sti progr=
amu=20
provedeme Login, v=FDpis soubor=F9-FTPSend.List- a Logout. V dal=B9=ED =
=E8=E1sti=20
programu pak Login, sta=BEen=ED souboru-FTPSend.RetrieveFile- a Logout.=
=20
Netu=B9=ED n=ECkdo, v =E8em by mohla b=FDt chyba? Nem=E1 se nastavovat =
je=B9t=EC n=ECco=20
jin=E9ho? Je mo=BEn=E9 v=F9bec ve Windows komunikovat p=F8es FTP parale=
ln=EC?
D=EDky.
Jirka
BLOB jako parametr v StoredProc
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 27.3.2003 14:07:54
Ahoj,
On 26 Mar 2003 at 20:12, Miroslav Evjak wrote:
> jeste jednou se vracim k problemu viz %subj%. (Uz jsem z toho trotl).
>
> > nejak si nevim rady s updatem tabulky s BLOBy (text) pomoci ulozene
> > procedury. Pole BLOB je typu BLOB SUB_TYPE 1 (cili text). Pokud
> > predam parametr do SP takto:
> >
> > ParamByName('poznamka').Value := MemoPoznamka.Text
>
> > tak insert skonci chybou "invalid BLOB ID", zatimco update probehne
> > bez problemu. Tusim, ze databaze asi nepochopi pri insertu typ blobu
> > jako SUB_TYPE 1, ale nejak po svem.
> >
>
> Myslel jsem si, ze jsem problem odhalil. IBExpert pri generovani SUID
> procedur vynecha u input parametru typu BLOB klauzuli "SUB_TYPE 1
> SEGMENT SIZE ...". Tak jsem to spachal rucne SQL skriptem a vsechno
> zacalo fungovat.
>
> Nicmene problem ("invalid BLOB ID") se objevil u jine tabulky znova,
> tentokrat pri INSERTU i UPDATE, prestoze jsem proceduru napsal rucne,
> abych vyloucil chybu IBExperta. Takze vubec nevim, ktera bije.
>
> Pouzivate vubec nekdo ulozeni BLOBu ulozenou procedurou ? Uplne mi
> staci textova data, binarni si osetrim jinak.
jedine, k cemu jsme se dopracovali a funguje je ukladani obrazku (BMP)
IBStoredProc.Params.CreateParam(ftBLOB,'OBR',ptInput);
IBStoredProc.Params.ParamByName('OBR').LoadFromFile(sPathToPicture,ftBlob);
Re[4]: Ako na service application
[*] Roland Turcan <rolo(zv)sedas.sk> - 27.3.2003 09:18:56
<<< 27. 3. 2003 9:18 - Jon=E1s Marian "Jonas(zv)komercpoj(tec)cz" >>>
>> -----Original Message-----
>> From: Roland Turcan [mailto:rolo(zv)sedas.sk]
>> Sent: Wednesday, March 26, 2003 2:40 PM
>> To: Ludek ZITA
>> Subject: Re[2]: Ako na service application
>>
>> Ale musi existovat nejaky postup, lebo aj IBGuard.exe a IBServer.e=
xe
>> je aj ako app aj ako service.
>>=20
JM> Podivej se na scktsrvr.dpr v source\vcl
JM> Marian
-------------------------------------------
My answer:
----------
Ja mam D5 a tam to nie je.
--=20
Best regards, TRoland
Zmena farby pri polozke v CheckListBox a TreeView
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 27.3.2003 13:56:22
prepis jim metodu OnDrowItem (nebo tak nejak), nezapomen nastavit vlastnost
OwnerDraw
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of mstevlik(zv)gamo.sk
Sent: Thursday, March 27, 2003 10:05 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zmena farby pri polozke v CheckListBox a TreeView
Hi all,
Chcem sa vas opytat, ako zmenit farbu pre kazdu polozku v TreeView a
CheckListBox (rad by som mal kazdu polozku vypisanu inou farbou podla
nejakej podmienky)
Viete mi poradit ako na to?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
icq: 34893645
TStringList a vlakna
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.3.2003 13:29:46
Podla mna by threadsafe stringlist nemal byt potomkom TStringList ani
TStrings ani TThreadList, ale uplne nova trieda napisana podobne ako
TThreadList.
Problem s dedenim od TStrings alebo TStringList je v tom, ze uz TStrings
obsahuje niektore non-threadsafe metody, ktore nie su virtualne a nedaju sa
teda prepisat.
Vlastne uz z principu nie je mozne napisat thread-safe triedu, ktora
predstavuje nejaky zoznam poloziek a spristupnuje ich indexy a zaroven
pristup k nim: pri sucasnom pristupe z viacerych threadov totiz index
zisteny v predoslom volani uz nemusi byt platny, ak bol medzitym obsah
zoznamu zmeneny (zmazane polozky alebo zmenene ich indexy).
Preto jedine riesenie je nespristupnovat indexy a polozky priamo, ale
poskytnut funkciu, ktora zamkne cely zoznam a vrati instanciu, s ktorou sa
da dalej pracovat, ako je to u triedy TThreadList. Napriklad:
type
TThreadStringList = class
private
FStringList: TStringList;
FLock: TRTLCriticalSection;
public
constructor Create;
destructor Destroy; override;
function Lock: TStringList;
procedure Unlock;
end;
{ TThreadStringList public }
constructor TThreadStringList.Create;
begin
inherited Create;
InitializeCriticalSection(FLock);
FStringList := TStringList.Create;
end;
destructor TThreadStringList.Destroy;
begin
Lock;
try
FStringList.Free;
inherited Destroy;
finally
Unlock;
DeleteCriticalSection(FLock);
end;
end;
function TThreadStringList.Lock: TStringList;
begin
EnterCriticalSection(FLock);
Result := FStringList;
end;
procedure TThreadStringList.Unlock;
begin
LeaveCriticalSection(FLock);
end;
Potom na ulahcenie prace je este mozne pridat niektore metody, napriklad
Add, Clear a podobne. Ale napriklad Add nesmie byt funkcia, ktora vrati
index pridaneho stringu ako je to v TStrings.Add; volajuci kod sa totiz
nemoze spoliehat na spravnost vratenej hodnoty. Preto je napriklad
TThreadList.Add deklarovana iba ako procedura bez navratovej hodnoty.
Volajuci kod potom moze vyzerat takto:
with MyThreadStringList.Lock do // zamkne a vrati TStringList
try
... // tu sa da pracovat s instanciou TStringList, ostatne thready
cakaju
finally
Unlock;
end;
Este upozornenie: ten kod som pisal prave teraz; sice sa skompiluje, ale
netestoval som ho.
HTH
Destroy vs. Free
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.3.2003 13:23:16
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
> fObjekt.Free;
Tady bych pouzil FreeAndNil aby pri pripadne chybe ktera by se snazila
instanci objektu dale pouzivat se toto lepe odhalilo. Stejne tak je to i
vyhodne pro ladeni, zvlaste pak u multithread aplikaci.
Petr Vones
Destroy vs. Free
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.3.2003 12:47:21
----- Original Message -----
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> uz jsem se ponekolikate setkal tady v konferenci, ze nekdo pouzil u
objektu
> Destroy misto Free. Neni to nahodou ptakovina? Pokud vim, tak se Destroy
> automaticky vola z Free, to jse ale jeste provadi dalsi potrebna
uvolnovani,
> nebo ne? Je tedy nekdy lepsi pouzit Destroy?
Jak uz zminili dalsi, je Free vlastne Destroy s testem na nil.
Vyhodnejsi je vzdy pouzivat Free. Ukazu na klasickem prikladu,
kdy by samotne Destroy osklive popadalo:
type
TTrida = class
fObjekt: TJinaTrida;
constructor Create;
destructor Destroy; override;
end;
constructor TTrida.Create;
begin
Neco;
{ pokud by tady doslo k vyjimce, runtime Delphi
automaticky vyvola destructor TTrida.Destroy
a touto dobou je jeste fObjekt nil }
fObjekt := TJinaTrida.Create;
end;
destructor TTrida.Destroy;
begin
{ pokud by tady bylo fObjekt.Destroy,
a fObjekt by byl nil, padlo by to }
fObjekt.Free;
inherited;
end;
Martin Schayna
TStringList a vlakna
[*] Petr Herma <herma(zv)alsoft(tec)cz> - 27.3.2003 13:07:43
Ve ctvrtek, 27. brezna 2003 v 11:02:10 (GMT +0100),
napsal(a) Daniel VALS:
> Dne Thursday 27 March 2003 10:31, jste napsal:
>> 27.3.2003 Daniel VALS:
>> > Nevi nekdo jestli je StringList vlaknove bezpecny? Mam vice vlaken, ktere
>> > ze StringListu umazavaji zaznamy metodou StringList.Delete
>> >
>> > Kylix 2, Redhat 8.0
>>
>> Musis si to zabezpecit pomoci CriticalSection. TStringList je obycejny
>> seznam stringu
> Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je nasledujici
> reseni spravne?
Tohle nebude mit ten efekt, ktery potrebujes. Inicializovat bys ji mel predtim,
nez spustit vlakna a uvolnit az po jejich ukonceni.
// start programu
// inicializace kriticke sekce
KritickaSekce:= TCriticalSection.Create;
// spusteni vlaken
v kazdem threadu synchronizovat pres
KritickaSekce.Enter;
try
Operace se StringListem
finally
KritickaSekce.Leave;
end;
// ukonceni vlaken
// ukonceni kriticke sekce
KritickaSekce.Free;
// konec programu
--
hermik
> var
> KritickaSekce: TCriticalSection;
> begin
> KritickaSekce:= TCriticalSection.Create;
> KritickaSekce.Acquire;
> KritickaSekce.Enter;
> try
> Operace se StringListem
> finally
> KritickaSekce.Leave;
> KritickaSekce.Release;
> KritickaSekce.Destroy;
> end;
> end;
Komponenty pre Mobily
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.3.2003 13:01:30
> neviete niekto, kde najst komponenty pre ovladanie mobilneho telefonu
> po kably? Mam na mysli spravu telefonu ako tel. zoznam, sms, loga,
> melodie. Ak by som mal byt konkretnejsi, tak pre mobil Panasonic GD67.
> Ked som haldal na nete, tak som nasiel len same Un-lock komponenty :(
> Ak mate niekto s tymto skusenosti, stacia mi aj linky na nejake
> "normalne" stranky. Ale pozor: nehcem Nokiu. Resp. chcem komponentu
> "aj pre" Panasonic. Dakujem... Vito
Vetsina dnesnich mobilu se da ovladat normalnimi AT modemovymi
prikazy.
Takze ti na to staci cokoliv, co zvlada praci se seriovymi porty..
treba muj SynaSer. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
TStringList a vlakna
[*] Daniel VALS <vals(zv)apls(tec)cz> - 27.3.2003 12:59:45
Jednotka Windows se v Kylixu pod Linuxem moc nechyta :) Taktez procedury=20
InitializeCriticalSection a DeleteCrticalSection. Znovu dodavam ze to=20
potrebuju do Kylixu. Zatim to zkousim resit pres TThreadList.
Dne Thursday 27 March 2003 12:45, jste napsal:
> Ahoj,
>
> Tady je kratky prikladek jak pouzivat CS.....
>
> interface
>
> uses windows, (nejaka ta knihovna obsahujici StringList);
>
> Type TMyStringList=3Dclass(TStringList);
> private
> csNeco:TRTLCriticalSection;
> public
> Constructor Create; override; // (
> Create(AOwner:TComponent); override )? =09Destructor Destroy;
> Procedure DeleteString(I:Integer);
> Function GetString(I:Integer):String;
> end;
>
> implementation
>
> constructor TMyStringList.Create;
> begin
> InitializeCriticalSection(csNeco);
> Inherited;
> end;
>
> destructor TMyStringList.Destroy;
> begin
> DeleteCrticalSection(csNeco);
> Inherited;
> end;
>
> Procedure TMyStringList.DeleteString(I:Integer);
> begin
> EnterCriticalSection(csNeco);
> RemoveString(I); // <- tady pouzijes klasicke metody
> StringListu LeaveCriticalSection(csNeco);
> end;
>
> Function TMyStringList.GetString(I:Integer):String;
> begin
> EnterCriticalSection(csNeco);
> Result:=3DItem[I]; // <- tady pouzijes klasicke metody
> StringListu LeaveCriticalSection(csNeco);
> end;
>
> atd.....
>
> Tomas Jantac
>
> >Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je
>
> nasledujici >reseni spravne?
>
> >var
> > KritickaSekce: TCriticalSection;
> >
> >begin
> > KritickaSekce:=3D TCriticalSection.Create;
> > KritickaSekce.Acquire;
> > KritickaSekce.Enter;
> > try
> > Operace se StringListem
> > finally
> > KritickaSekce.Leave;
> > KritickaSekce.Release;
> > KritickaSekce.Destroy;
> > end;
> >end;
TStringList a vlakna
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 27.3.2003 12:47:40
>> Musis si to zabezpecit pomoci CriticalSection.
Este upresnenie: Nehodi sa volat 'Delete' v kritickej sekcii:
KritSekce.Enter;
Seznam.Delete(n);
KritSekce.Leave;
ale lepsie je u svojho potomka Stringlistu redefinovat metodu Delete a
az v nej mozes:
KritSekce.Enter;
try Inherited;
finally KritSekce.Leave;
end;
ovsem ani to ti pravdepodobne nepomoze. Len zaistis, ze ktokolvek
kedykolvek zavola metodu Delete, urcite sa do jej implementacie
nevstupi viackrat 'sucasne'.
Problem zostava este v tom 'n'. Po ukonceni prveho mazania sa Items
precisluju a to druhe 'n' prestane byt platne! Takze metoda je sice
chranena pred viacnasobnym vstupom, ale nie pred zlymi parametrami.
Neviem. podla coho to 'n' urcujes, ale zrejme by v kritickej sekcii
malo byt aj to hladanie. Uplne najlepsia by bola nova metoda
FindAndDelete, ktora by bola v kritickej sekcii cela. Ak je to podla
textu. Ale ak to N vypocitavas (random) alebo ho zadava operator, tak
pomoze len zamykanie.
Niekto by si mohol povedat, preco ti Borlandi nie su schopni VCL
napisat threadsafe. Ale uz pri takejto zdanlivej samozrejmosti sa
ukazuje, ze riesenie niekedy ani nemusi existovat.
bye
vmlich
TStringList a vlakna
[*] tomasnusle(zv)volny(tec)cz - 27.3.2003 12:45:41
Ahoj,
Tady je kratky prikladek jak pouzivat CS.....
interface
uses windows, (nejaka ta knihovna obsahujici StringList);
Type TMyStringList=class(TStringList);
private
csNeco:TRTLCriticalSection;
public
Constructor Create; override; // (
Create(AOwner:TComponent); override )? Destructor Destroy;
Procedure DeleteString(I:Integer);
Function GetString(I:Integer):String;
end;
implementation
constructor TMyStringList.Create;
begin
InitializeCriticalSection(csNeco);
Inherited;
end;
destructor TMyStringList.Destroy;
begin
DeleteCrticalSection(csNeco);
Inherited;
end;
Procedure TMyStringList.DeleteString(I:Integer);
begin
EnterCriticalSection(csNeco);
RemoveString(I); // <- tady pouzijes klasicke metody
StringListu LeaveCriticalSection(csNeco);
end;
Function TMyStringList.GetString(I:Integer):String;
begin
EnterCriticalSection(csNeco);
Result:=Item[I]; // <- tady pouzijes klasicke metody
StringListu LeaveCriticalSection(csNeco);
end;
atd.....
Tomas Jantac
>Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je
nasledujici >reseni spravne?
>
>var
> KritickaSekce: TCriticalSection;
>
>begin
> KritickaSekce:= TCriticalSection.Create;
> KritickaSekce.Acquire;
> KritickaSekce.Enter;
> try
> Operace se StringListem
> finally
> KritickaSekce.Leave;
> KritickaSekce.Release;
> KritickaSekce.Destroy;
> end;
>end;
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Destroy vs. Free
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.3.2003 12:25:05
> uz jsem se ponekolikate setkal tady v konferenci, ze nekdo
> pouzil u objektu Destroy misto Free. Neni to nahodou
> ptakovina?
Bezpecnejsie je pouzit Free. Tam je totiz kontrola, ci Self nie je nahodou
nil:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
V helpe je to popisane takto: "Do not call Destroy directly. Call Free
instead. Free verifies that the object reference is not nil before calling
Destroy."
> Pokud vim, tak se Destroy automaticky vola z Free, to jse
> ale jeste provadi dalsi potrebna uvolnovani, nebo ne? Je tedy
> nekdy lepsi pouzit Destroy?
Ta kontrola tam ma svoj vyznam. Volanie Destroy (a vlastne akejkolvek
metody, ktora pristupuje k datam instancie) na nilovom odkaze je jasna
blbost a koledovanie o access violation.
Zas na druhej strane, ak mas istotu, ze ten odkaz nie je nil, a mas pocit,
ze mas na to dovod a vies, co robis, tak na vlastne riziko mozes pouzit aj
Destroy. Mne osobne sa to ale nepaci a nepouzivam to. Usetrit tych par
instrukcii procesora podla mna nestoji za to.
HTH
Zmena farby pri polozke v CheckListBox a TreeView
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 11:55:08
NodeRect ti urcuje oblast, kam se bude vykreslovat.
Jak jsem psal, Node nema canvas. Canvas ma TTreeView.
Takze:
TreeView.Canvas.Font...
TreeView.Canvas.TextOut...
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.3.2003 mstevlik(zv)gamo.sk:
> Ok, ak ked uz mam Rect toho node tak co stym dalej?
> Rect nema property font.color :(
> Napisal som toto, ale nezobrazuje mi uz teraz ani tie + a - :((
> procedure TMainForm.TreeAdresAdvancedCustomDrawItem(
> Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
> Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
> var
> NodeRect: TRect;
> begin
> with TreeAdres.Canvas do
> begin
> DefaultDraw := False;
> NodeRect := Node.DisplayRect(True);
> // FillRect(NodeRect);
> TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
> end;
> end;
Destroy vs. Free
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 12:07:07
Free provede pred Destroy kontrolu na prirazeni objektu (zda odkaz
neni nastaven na nil) a pak zavola Destroy
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.3.2003 Petr Langer:
> Ahojte,
> uz jsem se ponekolikate setkal tady v konferenci, ze nekdo pouzil u objektu
> Destroy misto Free. Neni to nahodou ptakovina? Pokud vim, tak se Destroy
> automaticky vola z Free, to jse ale jeste provadi dalsi potrebna uvolnovani,
> nebo ne? Je tedy nekdy lepsi pouzit Destroy?
Tuhnuti WXP pri prechodu DOS ulohy na celou obrazo
[*] Jiri Virt <virt(zv)volny(tec)cz> - 27.3.2003 11:03:31
Jo, s tema ATI ovladacema mam podobne zkusenosti .. vymenit za jinou kartu
a maka to .. ATIse opravdu nepovedlo .... (XPERT / RAGE XL)
TStringList a vlakna
[*] Daniel VALS <vals(zv)apls(tec)cz> - 27.3.2003 11:03:24
Dne Thursday 27 March 2003 10:31, jste napsal:
> 27.3.2003 Daniel VALS:
> > Nevi nekdo jestli je StringList vlaknove bezpecny? Mam vice vlaken, k=
tere
> > ze StringListu umazavaji zaznamy metodou StringList.Delete
> >
> > Kylix 2, Redhat 8.0
>
> Musis si to zabezpecit pomoci CriticalSection. TStringList je obycejny
> seznam stringu
Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je nasledujic=
i=20
reseni spravne?
var
KritickaSekce: TCriticalSection;
=20
begin
KritickaSekce:=3D TCriticalSection.Create;
KritickaSekce.Acquire;
KritickaSekce.Enter;
try
Operace se StringListem
finally
KritickaSekce.Leave;
KritickaSekce.Release;
KritickaSekce.Destroy;
end;
Destroy vs. Free
[*] Petr Langer <langer(zv)xdom(tec)cz> - 27.3.2003 11:54:41
Ahojte,
uz jsem se ponekolikate setkal tady v konferenci, ze nekdo pouzil u objektu
Destroy misto Free. Neni to nahodou ptakovina? Pokud vim, tak se Destroy
automaticky vola z Free, to jse ale jeste provadi dalsi potrebna uvolnovani,
nebo ne? Je tedy nekdy lepsi pouzit Destroy?
Diky
Petr Langer
Tuhnuti WXP poi prechodu DOS ulohy na celou obrazo
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 11:15:55
27.3.2003 Macko Martin:
> Neco podobnyho jsem zazil i na W2000 s FoxPro - mozna to uplne
> nezatuhne, ale spomali se nejakej casovac a vsechno jede silene pomalu,
> procesor vytizenej na 100% - pomohl programek se jmenem neco jako ?TAME?
To je spatnym nastavenim zastupce. Pokud mu tam nenastavis limity pro
pamet, FoxPro si nastrankuje celou pamet. Pak zdrzuje swapovani s
jinymi programy. A pritom ji staci 4MB XMS :-)
Co se tyka vytizeni procesoru, to neni vec FoxPro, ale DOS programu
obecne.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zmena farby pri polozke v CheckListBox a TreeView
[*] mstevlik(zv)gamo.sk - 27.3.2003 11:40:18
Ok, ak ked uz mam Rect toho node tak co stym dalej?
Rect nema property font.color :(
Napisal som toto, ale nezobrazuje mi uz teraz ani tie + a - :((
procedure TMainForm.TreeAdresAdvancedCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
with TreeAdres.Canvas do
begin
DefaultDraw := False;
NodeRect := Node.DisplayRect(True);
// FillRect(NodeRect);
TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
end;
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
TStringList a vlakna
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 27.3.2003 11:41:21
----- Original Message -----
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 27, 2003 11:34 AM
Subject: Re: TStringList a vlakna
> ----- Original Message -----
> From: "Daniel VALS" <vals(zv)apls(tec)cz>
> Dne Thursday 27 March 2003 10:31, jste napsal:
> > Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je
nasledujici
> > reseni spravne?
> >
> > var
> > KritickaSekce: TCriticalSection;
> >
> > begin
> > KritickaSekce:= TCriticalSection.Create;
>
> to ne, kriticka sekce musi byt vyrobena jen jednou
> a tato instance musi byt dostupna pro vsechny thready
>
> > KritickaSekce.Acquire;
> to je zbytecne Acquire=Enter
>
> > KritickaSekce.Enter;
> > try
> > Operace se StringListem
> > finally
> > KritickaSekce.Leave;
>
> > KritickaSekce.Release;
> to je zbytecne Leave=Release
>
> > KritickaSekce.Destroy;
> > end;
> > end;
>
> Docela hezke je take obalit stringlist obalkou, ktera
> umi "zamknout" cely, pricemz ta kriticka sekce je
> field v te obalce -- viz priklad v Classes.pas trida
> TThreadList a jeji metody LockList / UnlockList;
>
> Martin Schayna
>
>
Podle me by bylo nejlepsi podivat se na zdrojaky od
TThreadList a podle toho udelat ten
novy TStringList.
Radim
TStringList a vlakna
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.3.2003 11:34:29
----- Original Message -----
From: "Daniel VALS" <vals(zv)apls(tec)cz>
Dne Thursday 27 March 2003 10:31, jste napsal:
> Moc jsem nepochopil jak se vlastne kriticka sekce definuje. Je nasledujici
> reseni spravne?
>
> var
> KritickaSekce: TCriticalSection;
>
> begin
> KritickaSekce:= TCriticalSection.Create;
to ne, kriticka sekce musi byt vyrobena jen jednou
a tato instance musi byt dostupna pro vsechny thready
> KritickaSekce.Acquire;
to je zbytecne Acquire=Enter
> KritickaSekce.Enter;
> try
> Operace se StringListem
> finally
> KritickaSekce.Leave;
> KritickaSekce.Release;
to je zbytecne Leave=Release
> KritickaSekce.Destroy;
> end;
> end;
Docela hezke je take obalit stringlist obalkou, ktera
umi "zamknout" cely, pricemz ta kriticka sekce je
field v te obalce -- viz priklad v Classes.pas trida
TThreadList a jeji metody LockList / UnlockList;
Martin Schayna
Komponenty pre Mobily
[*] <vito(zv)centrum(tec)cz> - 27.3.2003 11:28:58
Achojte,
neviete niekto, kde najst komponenty pre ovladanie mobilneho telefonu
po kably? Mam na mysli spravu telefonu ako tel. zoznam, sms, loga,
melodie. Ak by som mal byt konkretnejsi, tak pre mobil Panasonic
GD67. Ked som haldal na nete, tak som nasiel len same Un-lock
komponenty :(
Ak mate niekto s tymto skusenosti, stacia mi aj linky na
nejake "normalne" stranky. Ale pozor: nehcem Nokiu. Resp. chcem
komponentu "aj pre" Panasonic.
Dakujem...
Vito
D5 Ent.; W2K,XP
Tuhnuti WXP poi prechodu DOS ulohy na celou obrazo
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 27.3.2003 11:26:36
skus dos aplikaciu spustat cez prikaz start kde sa da nastavit priorita
procesu (start /? pre help)
joka
-----Original Message-----
From: Macko Martin [mailto:martin.macko(zv)m-pro(tec)cz]
Sent: Thursday, March 27, 2003 11:04 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Tuhnuti WXP poi prechodu DOS ulohy na celou obrazovku
Neco podobnyho jsem zazil i na W2000 s FoxPro - mozna to uplne
nezatuhne, ale spomali se nejakej casovac a vsechno jede silene pomalu,
procesor vytizenej na 100% - pomohl programek se jmenem neco jako ?TAME?
Zmena farby pri polozke v CheckListBox a TreeView
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 11:20:02
Node nema Canvas. Canvas ma TreeView. U TTreeView doporucuji udalost
AdvancedCustomDrawItem
Na Rect se dostanes pomoci: Rect:=Node.DisplayRect(True);
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.3.2003 mstevlik(zv)gamo.sk:
> No podarilo sa mi uz vyriesit CheckBoxList ale z toho prikladu pre
> TreeView som velmi nie mudry :((
> Ako sa dostanem na Canvas daneho Node?
Tuhnuti WXP pri prechodu DOS ulohy na celou obrazo
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 11:17:46
27.3.2003 Jiri Virt:
> Jo, s tema ATI ovladacema mam podobne zkusenosti .. vymenit za jinou kartu
> a maka to .. ATIse opravdu nepovedlo .... (XPERT / RAGE XL)
Dovolil bych si nesouhlasit. Ja nikdy s ATI (na rozdil od ruznych
jinych karet) problemy nemel a to ruzne ATI pouzivam od W95, W98, W2k,
WinXP spolu s DOS aplikacemi.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zmena farby pri polozke v CheckListBox a TreeView
[*] mstevlik(zv)gamo.sk - 27.3.2003 11:09:54
No podarilo sa mi uz vyriesit CheckBoxList ale z toho prikladu pre
TreeView som velmi nie mudry :((
Ako sa dostanem na Canvas daneho Node?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
Tuhnuti WXP poi prechodu DOS ulohy na celou obrazo
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 27.3.2003 11:03:46
Neco podobnyho jsem zazil i na W2000 s FoxPro - mozna to uplne
nezatuhne, ale spomali se nejakej casovac a vsechno jede silene pomalu,
procesor vytizenej na 100% - pomohl programek se jmenem neco jako ?TAME?
-----Original Message-----
From: Vaclav Riha - Soft Consult [mailto:vaclav_riha(zv)softconsult(tec)cz]=20
Sent: Thursday, March 27, 2003 10:44 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Tuhnuti WXP poi prechodu DOS ulohy na celou obrazovku
Nemate nekdo zkusenost s timto problemem. V okne vse OK ale po stisknuti
Alt+Enter uloha zatuhne. Na nekolika PC s XPHome i XP Pro to dela s
libovolnym DOS programem. Video jsou zrejme ATI.
S pozdravem Vaclav Riha
TStringList a vlakna
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 10:31:59
27.3.2003 Daniel VALS:
> Nevi nekdo jestli je StringList vlaknove bezpecny? Mam vice vlaken, ktere ze
> StringListu umazavaji zaznamy metodou StringList.Delete
> Kylix 2, Redhat 8.0
Musis si to zabezpecit pomoci CriticalSection. TStringList je obycejny
seznam stringu
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
OT: Tuhnuti WXP p�i prechodu DOS ulohy na celou ob
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 27.3.2003 10:43:46
Nemate nekdo zkusenost s timto problemem. V okne vse OK ale po stisknuti
Alt+Enter uloha zatuhne. Na nekolika PC s XPHome i XP Pro to dela s
libovolnym DOS programem. Video jsou zrejme ATI.
S pozdravem Vaclav Riha
Zmena farby pri polozke v CheckListBox a TreeView
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.3.2003 10:30:46
Pouzij uzivatelske vykreslovani - OwnerDraw metody
V helpu je obvykle priklad
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.3.2003 mstevlik(zv)gamo.sk:
> Hi all,
> Chcem sa vas opytat, ako zmenit farbu pre kazdu polozku v TreeView a
> CheckListBox (rad by som mal kazdu polozku vypisanu inou farbou podla
> nejakej podmienky)
> Viete mi poradit ako na to?
TStringList a vlakna
[*] Daniel VALS <vals(zv)apls(tec)cz> - 27.3.2003 10:30:02
Nevi nekdo jestli je StringList vlaknove bezpecny? Mam vice vlaken, ktere=
ze=20
StringListu umazavaji zaznamy metodou StringList.Delete
Kylix 2, Redhat 8.0
Daniel VALS - programator
APLS s.r.o. Zlin
Zmena farby pri polozke v CheckListBox a TreeView
[*] mstevlik(zv)gamo.sk - 27.3.2003 10:05:28
Hi all,
Chcem sa vas opytat, ako zmenit farbu pre kazdu polozku v TreeView a
CheckListBox (rad by som mal kazdu polozku vypisanu inou farbou podla
nejakej podmienky)
Viete mi poradit ako na to?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
Sejmuti obrazovky -> ulozeni obrazku
[*] Pavel Kriz <delphi(zv)tds-technik(tec)cz> - 27.3.2003 08:22:05
> bitmapy su dost velke, so zapisom velkych suborov
> je samozrejme urcita rezia. Co takto ukladat ich
> v JPEG formate?
JPEG format je naprosto nevhodny pro ukladani obrazovek a jinych "umelych"
obrazku. Ja bych radeji volil GIF nebo BMP s kompresi.
Pavel Kriz
COM Server, typova knihovna a zapis do registru
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 27.3.2003 08:12:42
> Ahoj,
>
> asi bych mel upresnit situaci. Jednak jde o Delphi 6 SP 2. Do me aplikace
> jsem si naimportoval typovou knihovnu (pro Windows Script Host, ale to je
> myslim jedno) a dale tam mam COM objekty, ktere predavam prave uvedene
TLB.
> Tedy nejde o pouziti COM objektu z me aplikace jinou aplikaci, ktera si o
nej
> rekne, ale pouzitim nekym jinym, komu COM objekt vnutim.
>
> Slavek
>
Kdysi jsem to taky delal a pokud si dobre vzpominam, tak to vyzadovalo
automation objekt (com s IDispatch). Standardni implementace TAutoObject
vyzaduje pri volani metody GetTypeInfo typovou knihovnu, takze ta bude
nezbytna.
TAutoObject je navic s ComServerem v Delphi celkem dost provazany.
Nevim, jak je registrovany WSH, ale pokud je v ramci surrogate, stejne se
bude
delat marshalling. Pokud bych se chtel obejit bez typove knihovny, byl by to
problem. Pokud bych se chtel obejit bez zapisu do registru, nebude to o
mnoho
jednodussi. Zrejme by to znamenalo zahodit jednotku ComServ nebo ji vyznamne
upravit.
Jak je osetrena registrace v D6, nevim, v D7 je to OK. Skoro bych rekl, ze
problem bude nekde jinde.
Pokud si dobre vzpominam, tak jeden ze zasadnich problemu bylo, ze predavany
objekt musel existovat po celou dobu prace s WSH.
Alexandr STEFEK
Sejmuti obrazovky -> ulozeni obrazku
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 27.3.2003 08:08:02
Ahoj,
bitmapy su dost velke, so zapisom velkych suborov
je samozrejme urcita rezia. Co takto ukladat ich
v JPEG formate? Posielam priklad.
Vlkovic
uses
..., jpeg, ...
var
DC: HDc;
Rct: TRect;
Img: TCanvas;
Bmp: TBitmap;
Jpg: TJPEGImage;
Cnt: Integer;
inicializacia...
DC := GetWindowDC(GetDeskTopWindow);
Rct := Rect(0,0,Screen.Width,Screen.Height);
Img:=TCanvas.Create;
Bmp:=TBitmap.Create;
Jpg:=TJPEGImage.Create;
Img.Handle:=DC;
Bmp.Height:=Screen.Height;
Bmp.Width:=Screen.Width;
snimanie a ukladanie obrazovky...
Bmp.Canvas.CopyRect(Rct, Img, Rct);
Inc(Cnt);
Jpg.Assign(Bmp);
Jpg.SaveToFile ( Format ( 'c:\screen%d.jpg', [Cnt] ) );
uvolnenie objektov...
Img.Free();
Bmp.Free();
Jpg.Free();
konec radku CRLF
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.3.2003 07:54:15
> PJ>> POZOR CRLF jsou dva znaky #10#13!
>
> A navic je to jeste obracene #13#10 :-)
Ja bych rad zduraznil jeste jednu zkusenost - totiz ze na poradi tech dvou znaku
opravdu zalezi. Spravne je #13#10. Kdyz se to prohodi, tak:
- napr. v Memo se to nechova jako odradkovani
- generator sestav se zacne chovat velice prapodivne u viceradkovych parametru
a jiste budou existovat i dalsi situace. My jsme zatim zaregistrovali tohle. Takze
bacha na spravne poradi pri pouzivani.
FB a nastaveni Charset 1250
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.3.2003 07:48:20
> >4. Mas nastaveny dialect 3?
> ne, mam dialect 1
Ahoj,
a mas k tomu nejaky duvod? Pro FB by se mel pouzit dialekt 3, jednicka je stara
zalezitost, patrne kvuli snazsimu prechodu z nizsich verzi IB. Obecne plati:
1) Charset se nastavuje jednak pro databazi, a to jde uz pri create database - charset
pak plati pro vsechna znakova pole. Dale se nastavuje pro spojeni - v Delphi v
IBDatabase, jak Ti uz popsali. Oba charsety se mohou lisit a FB pak zajisti konverzi -
ale jen v pripade, ze ani jeden neni "nevyplneny".
2) Pro pole, kde se muze vyskytnou diakritika, lze jen doporucit nastavovat
COLLATE PXW_CSY. To na urovni databaze nejde, musi se specifikovat u kazdeho
pole - nebo lepe - pouzivat domeny a COLLATE nastavit na domene. Prestoze se
vsude uvadi, ze COLLATE ma vliv jena na setrideni, moje zkusenosti ukazuji, ze ve
skutecnosti to ovlivnuje i dalsi veci, ktere s tridenim nijak nesouvisi - napr. funkce
UPPER. No a protoze clovek nevi, kdy neco takoveho pouzije a seno to snad
nezere, tak proc to nepouzivat?
Jestli je tohle vsechno splneno, tak by s cestinou nemel byt problem.
Znovunavazani spojeni s komponentou IdHTTP
[*] petr-kucera(zv)volny(tec)cz - 27.3.2003 07:33:21
Dobry den,
prosim Vas, da se nejakym zpusobem znovunavazat spojeni
pomoci komponenty IdHTTP tak, aby se nestahovala i data z
predchozi connection, ale pokracovalo se ve stahovani tam, kde se
pred tim skoncilo? Popr. da se toto provest pomoci nejake jine
komponenty?
Dekuji.
S pozdravem Petr Kucera.
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Sejmuti obrazovky -> ulozeni obrazku
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 26.3.2003 21:33:18
Dobry den,
vcera jsem do konference pridal dotaz, jak rychle jemout obrazovky. Bohuzel
stejny kod jako jsem dostal jiz pouzivam, a zjistil jsem, ze nejpomalejsi je
ukladani.
Mam takovou vizi, ze bych sejmul obrazovku a vytvoril samostatne vlakno, kde
by se program nezastavil na ukladani, a mohl by sejmout dalsi. Tu ale
nastava problem, jak okamzite predat bitmapu tak, aby behem ukladani mohla
byt vyvolana funkce znovu s multitaskingem. Jde tato idea nejak realizovat
v Delphi (6) ?
Diky skvele konferenci za spolupraci
S pozdravem
===================================================
David Kraina
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================
Oprava: vyhladavanie v adotable
[*] taranis <taranis(zv)centrum.sk> - 26.3.2003 21:16:07
Ako prejdem na dalsi najdeny zaznam ?>
>Za odpoved dakujem ale ako prejdem na dalsi zaznam ?
>
>>
>>>
>>> Mozete mi niekto napisat jednoduchy priklad na vyhladavanie zaznamov v
>>adotable?
>>
>>Adotable.Locate(const KeyFields: String; const KeyValues: Variant; Options:
>>TLocateOptions
>>): Boolean; override;
>>
>>To by melo stacit pro hledani daneho zaznamu.
>>
>>
>>Bohdan Voska
>>
>>
>>
>>
>
>
>
>Balicky - vynuceni buildu balicku
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 26.3.2003 20:59:27
:) Nev=EDm, kde je allways compile. Predpokladam, ze je to v D5 schovano
pod Rebuild as needed. To jsme meli ze zacatku a meli jsme s tmi
nejake problemy (uz ani nevim jake) a museli jsme to zmenit na
Explicit rebuild. Snad Ti to nejak pomuze.
Rozhodne pouzivame i balicky tretich stran a opet si nepamatuji nejaky
problem.
--------
ing. Pavel Zilinec =20
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
MR> Ahoj,
MR> muzu jeste otravovat s temi balicky?
MR> Mam balicek, do nej vlozim formular, na formular komponentu treti
MR> strany.
MR> Muj balicek je allways compile. Po vlozeni komponenty treti strany mi
MR> to hlasi pri buildu:
MR> Never build package ECQDBCD7 must by recompiled.
MR> Proc?
MR> Ja jen pouzil komponentu z toho balicku.
MR> Co se stane, kdyz za nejaky cas vlozim dalsi fomular, provedu tedy
MR> rekompilaci pozadovaneho balicku. Jak poznam co mam tedy poslat
MR> uzivateli?
BLOB jako parametr v StoredProc
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 26.3.2003 20:12:18
Ahoj,
jeste jednou se vracim k problemu viz %subj%. (Uz jsem z toho trotl).
> nejak si nevim rady s updatem tabulky s BLOBy (text) pomoci ulozene
> procedury.
> Pole BLOB je typu BLOB SUB_TYPE 1 (cili text). Pokud
> predam parametr do SP takto:
>
> ParamByName('poznamka').Value :=3D MemoPoznamka.Text
> tak insert skonci chybou "invalid BLOB ID", zatimco update probehne bez
> problemu. Tusim, ze databaze asi nepochopi pri insertu typ blobu jako
> SUB_TYPE 1, ale nejak po svem.
>
Myslel jsem si, ze jsem problem odhalil. IBExpert pri generovani SUID
procedur vynecha u input parametru typu BLOB klauzuli "SUB_TYPE 1 SEGMEN=
T
SIZE ...". Tak jsem to spachal rucne SQL skriptem a vsechno zacalo fungov=
at.
Nicmene problem ("invalid BLOB ID") se objevil u jine tabulky znova,
tentokrat pri INSERTU i UPDATE, prestoze jsem proceduru napsal rucne, aby=
ch
vyloucil chybu IBExperta.
Takze vubec nevim, ktera bije.
Pouzivate vubec nekdo ulozeni BLOBu ulozenou procedurou ? Uplne mi staci
textova data, binarni si osetrim jinak.
Dekuju za namety.
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
TComboBox rozdil v D3 a D7.
[*] Anton <tantonin(zv)cbox(tec)cz> - 26.3.2003 19:07:48
Ahoj,
Predelavam projekt z D3 do D7 a narazil jsem na zajimave a neprijemne
chovani TComboBox. Pokusim se TO popsat na malem prikladu:
Na form dam 2x TComboBox a 1x TLabel.
Nastavim
Form1. KeyPreview = True
ComboBox1.Style = csDropDownList
ComboBox2.Style = csDropDownList
Naplnim ComboBox1.Items.
Obslouzim udalosti
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
//pro pohyb po enteru
if (Key = VK_RETURN) then
SelectNext(ActiveControl as TWinCOntrol, GetKeyState(VK_SHIFT) >= 0,
True);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Caption:=inttostr(TComboBox(Sender).ItemIndex);
end;
Spustim projekt, ComboBox1 je activecontrol. Stisknu Alt-vk_down cimz
otevru seznam. Stisknu pismeno napr. 'a' v seznamu se posunu na zaznam
zacinajici pismenem 'a' a je spustena udalost ComboBox1Change. Tohle je
zatim OK. A ted stisknu enter, tim se posunu na ComboBox2,
ComboBox1.items se vrati na puvodni hodnotu, ale ComboBox1Change jiz
neni spustena. V D3 zustane nastavena ta hodnota, ktera je vybrana po
stisku pismena 'a'.
Nevite nekdo co s tim. Podle me je to spatne v D7. Kdyz uz nezustane
nastavena hodnota po stisku pismene 'a' tak se meni na puvodni hodnotu a
ma byt spustena udalost ComboBox1Change.
Diky za kazdou pomoc
S pozdravem Antonin.
D7 Prof.,W2000 sp2
IDE - paleta komponent "na patro"
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.3.2003 17:04:08
----- Original Message -----
From: "Miroslav Novosad" <mirnov2(zv)seznam(tec)cz>
To: "Delphi forum" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 26, 2003 1:34 AM
Subject: IDE - paleta komponent "na patro"> Ahoj,
>
> nevite jak dosahnout viceradeho usporadani zalozek na palete komponent?
> viz. http://home.arcor.de/groschh/timewatch/kopf.gif
>
> Je na to nejake udelatko nebo jde o vymozenost vyssich verzi?
>
>
> Miroslav Novosad
> mirnov2(zv)seznam(tec)cz
>
> (D5Std)
>
http://www.gexperts.org
AW: IDE - paleta komponent "na patro"
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 26.3.2003 17:03:40
kukni na http://www.gexperts.org/
laco
nevite jak dosahnout viceradeho usporadani zalozek na palete komponent?
viz. http://home.arcor.de/groschh/timewatch/kopf.gif