Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Tisk primo na port tiskarny
[*] <tks(zv)mail(tec)cz> - 07.4.2002 23:03:26
Ahoj
Potrebuju umoznit tisk ve znakovem rezimu primo na port tiskarny (jehlickova - ani nemusi byt nainstalovana v systemu). Jak se toho da dosahnout?
Dik
---------------------------------------
Nav�tivte http://www.globalsearch(tec)cz/ !
Tisk primo na port tiskarny
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 8.4.2002 00:19:23
> From: tks(zv)mail(tec)cz
>
> Potrebuju umoznit tisk ve znakovem rezimu primo na port
> tiskarny (jehlickova - ani nemusi byt nainstalovana v
> systemu). Jak se toho da dosahnout?
Asi p�ed dvema tydny jsem navrhoval toto reseni:
var F: TFileStream;
begin
try
F := TFileStream.Create('LPT1', fmCreate);
F.Write(neco, dlouhe);
nebo
F.CopyFrom(z jineho streamu, 0);
F.Free;
except
end;
end;
Toto reseni nestaci?
Vaclav Krmela
IB Stored procedure
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.4.2002 00:35:00
----- Original Message -----
>From: "Josef K�n" <jkyn(zv)iol(tec)cz>
>Nevite zda je mozne zjistit aktualni datum v ulozene procedure d�kuji
Funkcia NOW
TRoland.Tisk primo na port tiskarny
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 7.4.2002 23:41:56
no, neviem ci priamo na port tlacit ide, vo NT-based systemoch to bude robit
urcite problemy (teda WinNT, W2k, Win XP)
Ale ked sa mi ozves na mail, tak ti poslem dva unity ktore riesia presne to
co chces. A funguju na vsetkych Win32 platformach.> Potrebuju umoznit tisk ve znakovem rezimu primo na port tiskarny
(jehlickova - ani nemusi byt nainstalovana v systemu). Jak se toho da
dosahnout?
IB Stored procedure
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.4.2002 01:29:36
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 08, 2002 12:35 AM
Subject: Re: IB Stored procedure
----- Original Message -----
>From: "Josef K�n" <jkyn(zv)iol(tec)cz>
>Nevite zda je mozne zjistit aktualni datum v ulozene procedure d�kuji
current_TIMESTAMP
TRoland.
Re[2]: Distinct v SQL
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 8.4.2002 06:05:37
Tady bych to videl jako zbytecne slozite.
Asi bych to zapsal takto:
Select Distinct CisloPojisteni, DatumPlatnosti = Min(DatumPlatnosti) from ....
Where Agent = ...
group by CisloPojisteni
Order by 2
Zvol si, jestli tam nechces Max(), pze pak by to radil vzestupne podle
posledniho zapisu (ted je to vzestupne podle prvniho zapisu)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Reseni napr:
> ------------
> SELECT Distinct CisloPojisteni,
> ( SELECT TOP 1 DatumPlatnostu
> FROM ... X
> WHERE x.CisloPojisteni = CisloPojisteni
> ) AS DatumPlatnosti
> FROM .....
> Pavel Lstiburek
OT: Jak dostat data z vlastniho CD-RW?
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 8.4.2002 08:29:25
Mam stejnou zkusenost...
Sroub
> Puvodni zprava, kterou napsal Miroslav Novosad dne 5 Apr 2002:
>
> > nemohu dostat z�lohy z meho vlastniho (tj. mnou vytvoreneho) CD-RW, na
> > ktere postupne prihravam ruzne veci, predevsim postahovane z netu. Je na
> > nem odhadem min 70 MB veci k Delphi + vsechny data z konference, coz se
> > moc nechce stahovat znova (modemem), a prave zrovna tohle nemohu
najednou
> > precist. Dostanu hlasku:
>
> Ja mam pocit, ze jsem tu pred casem psal o tom, ze UDF je velmi
> nebezpecny, protoze se mi pred nekolika lety stalo totez. Od te doby jsem
> na UDF nesahl...
Tisk primo na port tiskarny
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 8.4.2002 08:35:25
Ja to resim tak, ze si otevru soubor lpt1 a hrnu to do nej.
> Ahoj
> Potrebuju umoznit tisk ve znakovem rezimu primo na port tiskarny
> (jehlickova - ani nemusi byt nainstalovana v systemu). Jak se toho da
> dosahnout? S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Checkbox do StringGrid
[*] bardon <bardon(zv)akord-soft(tec)cz> - 8.4.2002 09:03:28
Prosim nemate nekdo navod jak jednoduse dostat do jednoho sloupce
StringGridu checkboxy?
Delphi update 2 (Was: Pouzivanie WebServicov napis
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 8.4.2002 09:16:54
Dekuji za informaci o VariantManageru. HeapManager znam, ale tento jsem
neznal.
Typ Variant pouzivam v property, ktera cte vlastnosti heterogennich objektu,
kdy vysledek
je jednou Boolean, Integer, Longword a obcas String nebo Double. Takze temer
idealni situace pro Variant.
A. Martinik
TMetafileCanvas.StretchDraw na Win9x / W2K
[*] Lauko �tafan <laukosw(zv)naex.sk> - 8.4.2002 09:17:33
Ahojte,
mam problem s metodou TMetafileCanvas.StretchDraw.
- na QuickRep som umiestnil QRBand1.bandType:= rbDetail
- natiahol som ho na celu stranku
- vlozil som nan QRImage - natiahol som ho na velkost QRBand1
- v QRBand1BeforePrint generujem TMetafile a metodou
QRImage.Picture.Assign priradim TMetafile do QRImage.
Na generovany Metafile vkladam text a obrazky. Obrazky metodou StretchDraw.
Vsetko funguje bez problemu na Win9x/ME. Na Win2000 je problem s vlozenim
obrazku nizsie ako cca 2/3 strany. Najprv som mal podozrenie na nespravne
zadanie suradnic pre StreetchDraw ale skusil som namiesto vlozenia obrazku
nakreslit RectAngle - to bez problemu.
TMetafile, TMetafileCanvas ma obmezenie na velkost?
Pripadne v com moze byt problem?
D 5.1, Win2000 bez SP.
Dakujem, Lauko.Volani pokazde jine procedury ve funkci
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 8.4.2002 09:25:01
D5 Prof
Snad se mi podari nastinit problem. Ve sve knihovne funkci mam univerzalni
funkci, v jejiz tele chci volat nejakou proceduru. Pro kazdy program, ve
kterem tuto funkci ale bude procedura jina, popr. bude obsahovat jine
prikazy. Jaka a ktere prikazy to budou ale v teto dobe jeste nevim. Nechci
vytvaret desitky kopii funkce pro kazdy specificky pripad - udrzba by byla
hrozna - funkce je dost slozita. Podle programu ve kterem chci funkci pouzit
potrebuji menit volanou proceduru. Napada me nejak predat parametrem nazev
vykonavane procedury, ale jak?
Diky za kazde nove rano (napad).
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.344 / Virov� b�ze: 191 - datum vyd�n�: 2.4.2002
Checkbox do StringGrid
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 8.4.2002 08:30:39
to same s comboboxem jsem videl v 1000+1 Delphi triky, knizku ted u sebe
bohuzel nemam, tak kdyztak zitra.
pokud si pamatuju, tak se vytvori pri form.create comboBox a dal se visble
na false, a v OnCellDraw se hodil visible na true a bringToFront. Vic si ted
bohuzel nepamatuju.
Vagy
-----Original Message-----
From: bardon [mailto:bardon(zv)akord-soft(tec)cz]
Sent: Monday, April 08, 2002 9:03 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Checkbox do StringGrid
Prosim nemate nekdo navod jak jednoduse dostat do jednoho sloupce
StringGridu checkboxy?
Volani pokazde jine procedury ve funkci
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 8.4.2002 09:34:02
A neslo by to tak, ze nekde ve sdilenem adresari bude sdilena
unita kde bude tato tvoje funkce a bude volat pokazde stejnou
proceduru, ale unita kde bude ta procedura bude vzdy u aktualniho
projektu.
> D5 Prof
>
> Snad se mi podari nastinit problem. Ve sve knihovne funkci mam
> univerzalni funkci, v jejiz tele chci volat nejakou proceduru. Pro
> kazdy program, ve kterem tuto funkci ale bude procedura jina, popr.
> bude obsahovat jine prikazy. Jaka a ktere prikazy to budou ale v teto
> dobe jeste nevim. Nechci vytvaret desitky kopii funkce pro kazdy
> specificky pripad - udrzba by byla hrozna - funkce je dost slozita.
> Podle programu ve kterem chci funkci pouzit potrebuji menit volanou
> proceduru. Napada me nejak predat parametrem nazev vykonavane
> procedury, ale jak?
>
> Diky za kazde nove rano (napad). S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Volani pokazde jine procedury ve funkci
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.4.2002 09:51:46
> Snad se mi podari nastinit problem. Ve sve knihovne funkci mam
univerzalni
> funkci, v jejiz tele chci volat nejakou proceduru. Pro kazdy
program, ve
> kterem tuto funkci ale bude procedura jina, popr. bude obsahovat
jine
> prikazy. Jaka a ktere prikazy to budou ale v teto dobe jeste nevim.
Nechci
> vytvaret desitky kopii funkce pro kazdy specificky pripad - udrzba
by byla
> hrozna - funkce je dost slozita. Podle programu ve kterem chci
funkci pouzit
> potrebuji menit volanou proceduru. Napada me nejak predat parametrem
nazev
> vykonavane procedury, ale jak?
>
- predat volanou proceduru prez pointer
- includnout prislusny kod do hlavni procedury pomoci include
D. Toman
Ulozeni, nacten vlastnosti komponent
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 8.4.2002 10:15:40
Ahoj, potreboval bych proceduru, ktera mi ulozi vsechny komponenty
formulare, ktere maji
treba vlastnost Caption do INI
A pak dalsi proceduru, ktera to z toho INI nacte zpet.
Nemate nekdo neco podobneho...
Dekuji.
Checkbox do StringGrid
[*] bardon <bardon(zv)akord-soft(tec)cz> - 8.4.2002 10:25:48
V kap.977. jt tam ComboBox, CheckBox bohuzel ne :-(
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vagner Pavel
to same s comboboxem jsem videl v 1000+1 Delphi triky, knizku ted u sebe
IF nebo CASE v sekci RESOURCESTRING
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 8.4.2002 10:30:26
Ahoj,
rad bych vas poprosil o radu. Potreboval bych do sekce RESOURCESTRING
dat IF, popr. CASE, ale nevim jak.
Poradi mi prosim nekdo ?
Diky
Vasek
Kylix a kompilace
[*] ales.pavel(zv)popron(tec)cz - 8.4.2002 10:35:54
Ahoj kluci o vikendu jsem testoval Kylix a zjistil jsem zajimavou vec,nemohu
zpustit vec kterou zkompiluju nevite jak na to?
Jo a jeste jsem instaloval pod rootem a ted bych chtel delat pod beznym
userem a nejde mi to rozchodit.Jak jste to delali vy?
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent,Kylix W2000,SUSE 5.2
Quick Report a Windows XP
[*] Turek Petr <turek(zv)bsm(tec)cz> - 8.4.2002 10:47:59
Ahoj vsichni.
Mam problem s Quick Reportem pod Windows XP.
Mam nainstalovane Delphi 4 s opravnymi balicky 2 a 3. Pokud vytvorim
projekt, ve kterem pouziji QuickReport a potom dam nahled, tak pri urcitem
poctu stranek vse funguje Ok, ale od urcitejho poctu stranek (spis si
myslim, ze jde o pocet cerpanych dat z databaze) mi to hlasi chybu ve smyslu
"Can not create file". Bohuzel nevim jakej soubor a kde chce vytvaret a proc
ho nevytvori? Pod Windows 95/98/ME vse funguje dobre.
Zkousel jsem pod XP i original demo projekt, kterej je v adresari
Borland\Delphi4\Demos\Quickrpt a ten taky nechodi, takze je nejakej problem
v Delphi nebo v QuickReportu.
Nevite nekdo, jak chybu opravit, popripade co a kde stahnout, aby vse pod XP
fungovalo?
Diky Petr Turek
OT 64bit Was: DELPHI - spolehlivost 16 nebo 32 bi
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 8.4.2002 10:49:07
Podle mne nema smysl resit, jestli bude 32 bit pomalejsi nez 64 bit,
jelikoz stejne vetsina prekladacu pouziva pro int nativni delku.
Pokud opravdu pouzijes 32bit (longint v delphi), tak asi bude o neco
pomalejsi (ale nemusi to byt pravda).
Duvod: Neocekavam, ze by nove CPU (s novou architekturou) umely
takove zvracenosti jako x86 (napriklad adresovat byte, word, atd.).
Prace s 8,16,32 bity by mela byt zalezitosti prekladace a ne CPU.
Cim mene instrukci tim je mozne jejich rychlejsi zpracovani a hlavne
to chce velke mnozstvi internich registru CPU.
Slavek
> Neni duvod aby byly operace v 32bit promennymi pomalejsi. To bude zalezet
> predevsim na architekture procesoru. V tomto ohledu vypada daleko vice nadejne
> Hammer od AMD nez ta deset let stara vec od Intelu. Uvidime jak to v praxi
> dopadne.
>
> > Napiste sem dalsi vyhody a nevyhody prechodu na 64 bitu, pripadne
> > me omyly.
>
Kde sa nachadzaju systemove priecinky?
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 8.4.2002 09:53:11
Tak toto asi nie je celkom spravne. Vysledok bude dobry, ale na toto by sa
mali pouzivat API funkcie urcene na to. (momentalne neviem ktore, nie som na
svojom PC, ale niekto iny urcite poradi :-)
Co ak sa MS rozhodne, ze od dalsej verzie to presunie ?
> Hledej v registru
>
> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders
>
> Ako zistit kde sa nachadzaju systemove priecinky ako Temporary Internet
> Files a My documents aktualneho uzivatela?
> Potrebujem zdrojak, nie komponentu.
Volani pokazde jine procedury ve funkci - Vyreseno
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 8.4.2002 11:01:30
podarilo se mi najit toto reseni:
procedure uni(var aProc: TProcedureType); // moje univerzalni funkce
begin
ShowMessage('ted to prijde');
if Assigned(Proc) then
aProc(1)
else
ShowMessage('nic nebude');
end;
procedure p1;
begin
ShowMessage('provadi se p1');
end;
procedure p2;
begin
ShowMessage('provadi se p2');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
proc := Addr(p1);
uni(proc);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
proc := Addr(p2);
uni(proc);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
proc := nil;
uni(proc);
end;
Petr
-----Original Message-----
Snad se mi podari nastinit problem. Ve sve knihovne funkci mam univerzalni
funkci, v jejiz tele chci volat nejakou proceduru. Pro kazdy program, ve
kterem tuto funkci ale bude procedura jina, popr. bude obsahovat jine
prikazy. Jaka a ktere prikazy to budou ale v teto dobe jeste nevim. Nechci
vytvaret desitky kopii funkce pro kazdy specificky pripad - udrzba by byla
hrozna - funkce je dost slozita. Podle programu ve kterem chci funkci pouzit
potrebuji menit volanou proceduru. Napada me nejak predat parametrem nazev
vykonavane procedury, ale jak?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.344 / Virov� b�ze: 191 - datum vyd�n�: 2.4.2002
ScrollBox a zakazani ScrollInView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.4.2002 11:03:09
Preji vsem pekneho dne,
mam ScrollBox a na nem napriklad par tlacitek (TButton) a v pripade,
ze ,,zaktivnim`` nejake tlacitko, ktery neni videt cele, pak se
automaticky provede ScrollInView a tlacitko je videt cele. To
nepotrebuji (tedy chci, aby se to chovalo jako MDI). Prusvih je to,
ze ScrollInView neni virtualni a nelze jej tedy ,,opravit``.
Jak na to?
Diky za kazde info
Slavek
ScrollBox a zakazani ScrollInView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.4.2002 11:15:20
Do dvou minut po odeslani jsem na to prisel. Ucelem je v potomkovi
potlacit metodu:
procedure AutoScrollInView(AControl: TControl); override;
begin
//nic nedelej
end;
> Preji vsem pekneho dne,
>
> mam ScrollBox a na nem napriklad par tlacitek (TButton) a v pripade,
> ze ,,zaktivnim`` nejake tlacitko, ktery neni videt cele, pak se
> automaticky provede ScrollInView a tlacitko je videt cele. To
> nepotrebuji (tedy chci, aby se to chovalo jako MDI). Prusvih je to, ze
> ScrollInView neni virtualni a nelze jej tedy ,,opravit``.
>
> Jak na to?
>
> Diky za kazde info
>
> Slavek
>
Hinty v IDE (D5) nad ikonami komponent
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 8.4.2002 11:22:30
Ahoj,
zmizely (nezobrazuji se) hinty nad ikonami komponent v IDE D5 pod
Win2000(+SP) a zmrskaly se (nejsou transparentni) i ikony v programech,
ktere pouzivaji speedbar z RXLib. Ale na jinych strojich (W2K, W98,ME) to
paradne chodi. Kde muze byt problem? Ja se s tim jeste nesetkal.
Diky
Ka.
Nova verze RXLib
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 8.4.2002 11:24:27
Ahoj,
je nejaka nova verze RXLib? To co jsem videl pro D6 je jen upravena 2.75
(upraveny hlavicky unit, a uses), ale ne vlastni kod, prip. opravy chyb.
Diky
Ka.
Nejdou spustit Delphi.
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 8.4.2002 11:28:30
Ja mel tenhle problem dneska a vsechno bylo o tom, ze jsem mel ruzne runtime
BPL v WINNT\SYSTEM32 a ve Projects\BPL a nejak se to mydlilo sss-ss-s----
A dostaval jsem obdobne hlasky...
Ka.
"Vstupni bod procedury (zv)SysUtils(zv)CheckWin32Version$qqrii se nepodarilo v
dynamicky propojovane knihovne rtl60.bpl nalezt."
Volani pokazde jine procedury ve funkci
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 8.4.2002 11:34:09
> D5 Prof
>
> Snad se mi podari nastinit problem. Ve sve knihovne funkci mam univerzalni
> funkci, v jejiz tele chci volat nejakou proceduru. Pro kazdy program, ve
> kterem tuto funkci ale bude procedura jina, popr. bude obsahovat jine
> prikazy.
parametr typu funkce ci procedura to vyresi
type
TMyProc = procedure (const Param1: Integer);
TMyFce = function (const Param1: Integer): Integer;
..
procedure Volani(Proc: TMyProc; ...);
begin
..
Proc(Neco);
..
end;
Alexandr STEFEK
Directiva Operacni System
[*] ales.pavel(zv)popron(tec)cz - 8.4.2002 11:37:01
Ahoj kluci je nejaka direktiva ktera urcuje jestli je to pro ten ci onen
operacni system,
neco jako
{$If W2000}
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
Spusteni jineho programu z Delphi
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 8.4.2002 11:56:30
Ahoj,
rad bych poprosil o radu. Chtel bych z Delphi spustit program napsany
treba ve VB nebo v Jave. Poradi mi prosim nekdo jak na to ?
Diky
Vasek
Quick Report a Windows XP
[*] Ing. Pavel Spsiar <pajastudio(zv)wo(tec)cz> - 8.4.2002 12:04:23
Tento problem byl i D3, ale na strankach QR je uvedeno, ze je nutne u OS W2000,
XP nastavit adresare pro docasne ukladani kratkeho tvaru napr. C:\TEMP.
Na mych strankach www.mujweb(tec)cz/www/pajastudio proto uvadim toto:
Windows 2000/XP:
Pokud mate problem s tiskem a nahledy v operacnim systemu W2000/XP tak je to proto, ze mate nastaven prilis dlouhy nazev adresare pro ukladani docasnych souboru; tento problem odstranite nasledovne:
Zmena se provadi v ikona "Tento pocitac" - lokalni menu (prave tlacitko mysi) vybrat "Vlastnosti" otevre se "Vlastnosti systemu" - zalozka Upresnit - vybrat Promenne prostredi a zde nastavit promenne TEMP a TMP, jak u administratora (pokud mate pristup) a v Systemovych promennych na adresar napr.: C:\TEMP (musi existovat)
Snad je tento problem resitelny takto i u D4.
Ahoj Pavel Spisar
----- Original Message -----
From: "Turek Petr" <turek(zv)bsm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 08, 2002 10:47 AM
Subject: Quick Report a Windows XP
> Ahoj vsichni.
>
> Mam problem s Quick Reportem pod Windows XP.
>
> Mam nainstalovane Delphi 4 s opravnymi balicky 2 a 3. Pokud vytvorim
> projekt, ve kterem pouziji QuickReport a potom dam nahled, tak pri urcitem
> poctu stranek vse funguje Ok, ale od urcitejho poctu stranek (spis si
> myslim, ze jde o pocet cerpanych dat z databaze) mi to hlasi chybu ve smyslu
> "Can not create file". Bohuzel nevim jakej soubor a kde chce vytvaret a proc
> ho nevytvori? Pod Windows 95/98/ME vse funguje dobre.
>
> Zkousel jsem pod XP i original demo projekt, kterej je v adresari
> Borland\Delphi4\Demos\Quickrpt a ten taky nechodi, takze je nejakej problem
> v Delphi nebo v QuickReportu.
>
> Nevite nekdo, jak chybu opravit, popripade co a kde stahnout, aby vse pod XP
> fungovalo?
>
> Diky Petr Turek
>
>
Nekorektna velkost WinControl pri bsSizeable
[*] Marian Muller <mman(zv)home.sk> - 8.4.2002 12:38:39
Nazdar vsetkym,
pri BorderStyle=bsSizeable sa na niektorych PC zle zobrazia niektore
TWinControl (napr. Memo, ListView...). Ide hlavne o sirku a vysku objektu.
Vyuzivam Anchors pre aut. zmenu tychto rozmerov, ale ked sa program spusti
na urcitom PC, tak tie Anchors ma uplne sklamu a nastavia blbe rozmery
(napr. sirsie ako je TForm). Vo vacsine PC to funguje vsak spravne. Pri
bsDialog to funguje bez problemov vsade.
Nestretol sa niekto s podobnym problemom?
Vdaka, Marian.
IF nebo CASE v sekci RESOURCESTRING
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 08.4.2002 12:40:47
Jedine
{$DEFINE TEST}
resourcestring
s1='sdfsdfsdf';
{$IFDEF TEST}
s2='sdfsdfsdfsdf';
{$ELSE}
s2='xcvxcvxcvcv';
{$ENDIF}
Resourcestringy se pouzivaji pri prekladu.
>rad bych vas poprosil o radu. Potreboval bych do sekce RESOURCESTRING
>dat IF, popr. CASE, ale nevim jak.
>Poradi mi prosim nekdo ?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Kylix a kompilace
[*] Ing Ales Gardavsky <garalda(zv)email(tec)cz> - 8.4.2002 12:42:03
>Ahoj kluci o vikendu jsem testoval Kylix a zjistil jsem zajimavou vec,nemohu
>zpustit vec kterou zkompiluju nevite jak na to?
>
U instalace je textovy soubor, kde je popis jak spustit prelozeny soubor. Musi se prilinkovat nejake knihovny...
>Jo a jeste jsem instaloval pod rootem a ted bych chtel delat pod beznym
>userem a nejde mi to rozchodit.Jak jste to delali vy?
>
U instalace je informace o tom, proc instalovat jako root a proc jako obycejny uzivatel. Ja jsem si to radeji nainstaloval jako obycejny uzivatel a nemam problem. Mozna zkusit zmenit opravneni k tem adresarum...
>Ahoj kluci je nejaka direktiva ktera urcuje jestli je to pro ten ci onen
>operacni system,
>neco jako
>{$If W2000}
>
myslim, ze je tam neco jako
{$IFDEF WIN32}
{$ENDIF}
ev
{$IFDEF LINUX}
{$ENDIF}
jsou jeste dalsi, ted si z hlavy nevzpomenu....
Snad to aspon trosku pomuze.
Garalda
______________________________________________________________________________
Nakupujte na internetu levn�ji - http://www.pconline(tec)cz
PC d�ly, PDA, software, digital foto, GSM
jclDebug a vypis stack listu - jak a co v tom hled
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 08.4.2002 13:44:24
Zdravim,
zacal jsem pouzivat jclDebug a jejich ExceptDialog a vypada zajimave,
ale jak mam rozumnet tomu Slack listu? Co v tom vubec je - to co se
neuvolnilo, co se volalo, ci neco uplne jineho?
Napriklad u me (nejaka prapodivna chyba pri zavirani) se vypise toto ->
je tam kliknuti na tlacitko (TBItemNewClick), modalni formular (VyberTyp) a
pak zavreni hlavniho okna (TCustomForm.Destroy). Ale to poradi me nejak
mate a hlavne souvislost - po tlacitku Novy a modalnim romulari bylo jeste
jedno tlacitko i dalsi modalni formular (to uz tu neni ?!?!?). Co to tedy
znamena. Predem diky.
Exception class: EAccessViolation
Exception address: 01F48F3C
IsMainThread: True
----------------------------------------------------------------------------------------------------
Stack list, generated 8.4.2002 13:24:25
[01F48F3C] ExtCtrls.TNotebook.SetPageIndex + $8
[01EF3415] System.(zv)HandleAnyException + $35
[01F2B88B] Controls.TWinControl.CMInvalidate + $4B
[01F269E0] Controls.TControl.WndProc + $114
[01F2952B] Controls.TWinControl.WndProc + $1D7
[01F574F6] JclDebug.TJclStackBaseList.Create (Line 3075, "JclDebug.pas" +
3) + $5
[01FDD12F] DrawTypeFormU.TDrawTypeForm.VyberTyp (Line 52,
"DrawTypeFormU.pas" + 4) + $0
[01FDFCCD] DrawMainU.TDrawMain.TBItemNewClick (Line 644, "DrawMainU.pas" +
7) + $14
[01F3D13F] Forms.TCustomForm.DoDestroy + $37
[01F3CFAD] Forms.TCustomForm.BeforeDestruction + $65
[01EF32E0] System.(zv)BeforeDestruction + $C
[01F3CFBB] Forms.TCustomForm.Destroy + $B
[01EF2F3F] System.TObject.Free + $B
[01F40885] Forms.TCustomForm.CMRelease + $5
[01F269E0] Controls.TControl.WndProc + $114
[01F2952B] Controls.TWinControl.WndProc + $1D7
[01F3DEBF] Forms.TCustomForm.WndProc + $3AF
[01F017A1] Classes.TThreadList.UnlockList + $9
[01F0FA41] Graphics.FreeMemoryContexts + $9D
[01F2912B] Controls.TWinControl.MainWndProc + $2F
[01F29143] Controls.TWinControl.MainWndProc + $47
[01F3B3FA] Forms.StdWndProc + $16
----------------------------------------------------------------------------------------------------
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Nova verze RXLib
[*] <ivan.virag(zv)aliatel(tec)cz> - 8.4.2002 13:57:55
Jedine, co jsem nasel je:
http://www.sgbsoftware.com/
Ivan Virag
> je nejaka nova verze RXLib? To co jsem videl pro D6 je jen
> upravena 2.75 (upraveny hlavicky unit, a uses), ale ne vlastni kod, prip.
> opravy chyb.
jclDebug a vypis stack listu - jak a co v tom hled
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:11:25
From: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
> zacal jsem pouzivat jclDebug a jejich ExceptDialog a vypada zajimave,
> ale jak mam rozumnet tomu Slack listu? Co v tom vubec je - to co se
> neuvolnilo, co se volalo, ci neco uplne jineho?
Nejdrive je dobre vedet jakou mas vlastne verzi. Posledni je 1.20 Build 754 +
patch na JclDebug.pas unit, vse je ke stazeni tady:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=81364
Vypis ukazuje volani jednotlivych metod az k mistu vyvolani dane vyjinky. Muze
se stat, ze nektere metody ve vypisu nebudou, zalezi na zpusobu prochazeni
stacku. JclDebug ma dva rezimy:
1. Stack frames: V tomto rezimu se pouzivaji stackframes ktere generuje
prekladac pro kazdou funkci/metodu (je nutne zapnout v compiler options).
Bohuzel v kompilatoru je nejaka chyba, ktera zpusobuje ze se stackframes
nevytvori pro nektere funkce. Z tohoto duvodu je tento zpusob v praxi temer
nepouzitelny, ackoli by byl jinak idealni.
2. Raw stack: Prochazi se cely zasobnik a z neho se postupne vybiraji adresy
ktere davaji smysl, tedy ukazauji nekam do kodu. Zaroven se kontroluje aby se
stejna adresa nezapsala dvakrat za sebou. Tento rezim se pouziva take v tom
dialogu. Obcas se ale muze stat, ze se ve vypisu objevi neco nemyslneho nebo
naopak neco chybi, ale stale je to lepsi nez nic.
> pak zavreni hlavniho okna (TCustomForm.Destroy). Ale to poradi me nejak
> mate a hlavne souvislost - po tlacitku Novy a modalnim romulari bylo jeste
> jedno tlacitko i dalsi modalni formular (to uz tu neni ?!?!?). Co to tedy
To se stat muze, nicmene podle toho vypisu vznika chyba v SetPageIndex. Dale
to podle adresy vypada, ze se nejedna o EXE ale o DLL ci BPL.
Petr Vones
Nekorektna velkost WinControl pri bsSizeable
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:18:59
From: "Marian Muller" <mman(zv)home.sk>
> pri BorderStyle=bsSizeable sa na niektorych PC zle zobrazia niektore
> TWinControl (napr. Memo, ListView...). Ide hlavne o sirku a vysku objektu.
> Vyuzivam Anchors pre aut. zmenu tychto rozmerov, ale ked sa program spusti
> na urcitom PC, tak tie Anchors ma uplne sklamu a nastavia blbe rozmery
> (napr. sirsie ako je TForm). Vo vacsine PC to funguje vsak spravne. Pri
> bsDialog to funguje bez problemov vsade.
Verze Delphi, verze OS na kterem to nefunguje ?
Petr Vones
Blokovani behu programu, CallBack f-ce
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 08.4.2002 14:25:26
Zdravim,
mam trivrstvou aplikaci C/S a klient ma volani f-ci delane tak ze
vygeneruje XML a posle serveru a zaradi pointer na CallBack funknci spolu s
ID zpravy do stacku. Server zpracuje a nekdy (casem :) ) posle odpoved. Ja
ji odchytim, najdu ID a podle toho mam i CallBack funkci a tu zavolam spolu
s vysledkem. Problem je ale v tom, kdyz potrebuji aby ta f-ce kterou
uzivatel vola (tedy ta uplne prvni) neskoncila hned po poslani pozadavku,
ale cekala na odpoved - tedy byla blokujici. Mam tech f-ci asi 70 a nikde
jsem to nepotreboval a pokud ano, pouzil jsem modalni formular, ktery jsem
pres PostMessage ustrelil z callbackove f-ce. To vse je OK, ale ted
potrebuji mit blokovane cteni z DB radku po radce a zda se mi zverstvo
pokazde pro kazdnou radku zobrazovat modalni formular - to je pak jako
stroboskop :))
Zkousel jsem i TEvent, ale ten zase pri cekani zere 100% CPU a to neni
nejoptimalnejsi. Hlavne taky proto ze prichozi odpovedi jsou zpracovany
thredem, rozparsovany a predany pres PostMessage neviditelnemu oknu, ktere
se postara o nalezeni spravneho ID a CallBackove f-ce kterou zavola a pokud
mam TEvent, nechodi mi messagesky (PostMessage, SendMessage) :(
Je i jina varianta jak to udelat?? S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT: BMP to ICO
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 8.4.2002 14:27:26
Zdarec, portebuji previst BMP na ICO ?
Nevite jak, nemate nekdo nejaky program ?.
Dik Jan Sebesta
Ulozeni, nacten vlastnosti komponent
[*] Bednarcik Dalibor <dalibor(zv)torola(tec)cz> - 8.4.2002 14:49:12
Ahoj, potreboval bych proceduru, ktera mi ulozi vsechny komponenty
formulare, ktere maji treba vlastnost Caption do INI A pak dalsi proceduru,
ktera to z toho INI nacte zpet.
Nemate nekdo neco podobneho...
Dekuji.
Directiva Operacni System
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:52:25
From: <ales.pavel(zv)popron(tec)cz>
> Ahoj kluci je nejaka direktiva ktera urcuje jestli je to pro ten ci onen
> operacni system, neco jako
> {$If W2000}
Tezko, protoze to musis provest za behu aplikace a ne pri prekladu.
Petr Vones
Hinty v IDE (D5) nad ikonami komponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:53:10
From: "Ka.Kewasa" <kewasa(zv)quick(tec)cz>
> zmizely (nezobrazuji se) hinty nad ikonami komponent v IDE D5 pod
> Win2000(+SP) a zmrskaly se (nejsou transparentni) i ikony v programech,
> ktere pouzivaji speedbar z RXLib. Ale na jinych strojich (W2K, W98,ME) to
> paradne chodi. Kde muze byt problem? Ja se s tim jeste nesetkal.
Patrne v RxLib.
Petr Vones
Directiva Operacni System
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 08.4.2002 14:53:02
Boduzel, pouze rozlisis Win32 a Linux. Ale verze Win32 musis rozlisovat
v runtime, napr. pomoci knihoven JCL.
ales.pavel(zv)popron(tec)cz wrote:
>
> Ahoj kluci je nejaka direktiva ktera urcuje jestli je to pro ten ci onen
> operacni system,
> neco jako
> {$If W2000}
>
> Ales Pavel
> Technical Specialist
> Popron Consulting - Your System Integrator
> HW-25 let,SW-D6 Ent W2000
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Delphi update 2 (Was: Pouzivanie WebServicov napis
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:54:46
From: "Ales Martinik" <amartinik(zv)artbrno(tec)cz>
> Typ Variant pouzivam v property, ktera cte vlastnosti heterogennich objektu,
> kdy vysledek je jednou Boolean, Integer, Longword a obcas String nebo
> Double. Takze temer idealni situace pro Variant.
Temer, mozna by bylo lepsi pouzit variantni record nebo objekt.
Petr Vones
Volani pokazde jine procedury ve funkci - Vyreseno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:57:32
From: "Ing. Petr Svejda" <lingvista(zv)lingvista(tec)cz>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> proc := Addr(p2);
> uni(proc);
> end;
A proc to nepredat rovnou jako parametr, tedy:
uni(p2);
Mozna by take nebylo spatne se podivat na takove veci jako dedicnost u trid.
Petr Vones
Nejdou spustit Delphi.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 14:59:53
From: "Kru��k Tom�" <T.Kruzik(zv)Aquasoft(tec)cz>
> Ahoj vsem nevite cim by mohlo byt, ze najednou uz asi od ctvrtka se mi
> po spusteni delphi 6 Ent. na W2k objevi hlaska:
>
>"Vstupni bod procedury (zv)SysUtils(zv)CheckWin32Version$qqrii se nepodarilo v
> dynamicky propojovane knihovne rtl60.bpl nalezt."
>
> a Delphi se nespusti. Zkousel jsem uz Delphi odinstalovat a znovu
> nainstalovat, ale stale stejna hlaska.
* Odinstaluj Delphi
* Smaz vsechny BPL soubory v System adresari
* Smaz vsechny polozky nalezici Delphi v registru
* Nainstaluj Delphi
* Nainstaluj Update Pack #2
Petr Vones
Kde sa nachadzaju systemove priecinky?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 15:03:11
From: "Ondrej Krsko" <krsko(zv)gjh.sk>
> Tak toto asi nie je celkom spravne. Vysledok bude dobry, ale na toto by sa
> mali pouzivat API funkcie urcene na to. (momentalne neviem ktore, nie som na
Ano, presne takhle vznikaji aplikace, kde pak dochazi k dotazum: "Proc mi to
nefunguje na nove verzi Windows ?". Odpoved: "Protoze to tak nikdy fungovat
nemelo".
Petr Vones
BMP to ICO
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 15:04:36
From: "Sebesta Jan" <delcomseb(zv)volny(tec)cz>
> Zdarec, portebuji previst BMP na ICO ?
Napriklad funkci BitmapToIcon v JclGraphics:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
FTP server teto konference
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 8.4.2002 15:04:42
Dovolte abych oznamil, ze soucasny FTP server teto konferecne na
ftp://ftp.mlp(tec)cz/pub/misc/delphi/ je od teto chvile mimo provoz.
Aby vam to vsak nebylo lito, tak byl zprovoznen FTP server novy na
adrese:
ftp:\\ftp.delphi(tec)cz\
uzivatel: delphi
heslo: archivar
Obsah stareho FTP serveru byl na tento novy presunut.
Pozor, nyni mate na tom serveru prava cist i mazat, takze apeluji na
vasi soudnost, ze se tam budete vsichni chovat rozumne!
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Kylix a kompilace
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 8.4.2002 15:19:18
>Ahoj kluci o vikendu jsem testoval Kylix a zjistil jsem zajimavou
vec,nemohu
>zpustit vec kterou zkompiluju nevite jak na to?
>
GUI aplikace pouzivaji dve knihovny (QT) ke kterym musis exportovat cestu -
prohledej archiv
konference, kdyz se podivas na ty skripty kterymi se startuje kylix tak by
ti to mohlo stacit.
A jestli ne, tak napis ja si to taky z hlavy nepamatuji.
>Jo a jeste jsem instaloval pod rootem a ted bych chtel delat pod beznym
>userem a nejde mi to rozchodit.Jak jste to delali vy?
>
Instaloval jsem jako root a pracuji jako normalni uzivatel, co presne ti
nejde (zkus byt trochu
konkretnejsi)?
Demo programy si nahrej do svojeho adresare, protoze normalni uzivatel ma v
puvodnich
adresarich prava je pro cteni.
Radek �ervinka, Ing.
--
Odchoz� zpr�va je mo�n� zavirov�na. Nev�m. Nikdo ji nekontroloval.
OT 64bit
[*] Erik Salaj <winsoft(zv)stonline.sk> - 8.4.2002 15:23:17
> Presne tak. Je otazka, zdali to cele neni prilis komplikovane (napriklad
> optimalizace je prenesena na vyrobce kompilatoru) na vysledny vykon.
Hammer je
programovat Itanium je znacne komplikovane. Pouziva EPIC archtekturu,
t.j. procesor je schopny vykonat sucasne v ramci jednej instrukcie viac
operacii
(az 3), ktore musia byt explicitne vopred urcene tak, aby nedochadzalo
ku vzajomnym konfliktom. Na taketo programovanie sa samozrejme
predpoklada pouzitie nejakeho software. Urcite zjednodusenie je na druhej
strane v tom, ze je tam 128 64bitovych univerzalnych registrov a dalsich
128 80-bitovych registrov pre FP a registre je mozno postupne
alokovat/uvolnovat. Itanium ma hardwarovu podporu aj pre x86
programy, ktore ale samozrejme nemoze vyuzit vsetky jeho moznosti.
> sice rozsireni puvodni architektury, coz ale nemusi byt nutne horsi, navic
je
> tu i marketingove lakadlo vetsi zpetne kompatibility. Obavam se, ze
nakonec
> jako vzdy rozhodne cokoli jineho nez technicke vlastnosti.
tak to uz chodi
> Nedokazu si predstavit ze by tu nebyla implementace pro Itanium i Hammer.
I
> kdyz Microsoft bude tlacit vsechno hlavne k Intelu, tak AMD uz davno neni
> nevyznamna firma a .NET muze prave pomerne dobre udbourat rozdily mezi
obema
pre rozsirenia x86 architektury software nie je problemom. Vecsi prinos .Net
vidim v tom, ze moze bezat na odlisnych procesoroch. V pripade neuspechu
Itania vraj Intel tiez planuje nieco podobne ako Hammer.
> procesory. V zasade to vypada, ze z ciste technickeho hlediska je .NET
dobra
> vec, nejvetsi nebezpeci se ale skryva v politice Microsoftu.
ja za ovela vecsie nebezpecenstvo povazujem to, ze Microsoft investuje
obrovske peniaze do vyskumu, aj do povedzme dost riskantnych oblasti,
ktore su momentalne komercne nezaujimave ale zdaju sa byt perspektivnymi
v buducnosti. Skratka vsade kde sa na web strankach ohladom computingu
pohnem, tak narazim bud na MS alebo MS Research.
Erik
Zamedzenie sirenia spravy
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.4.2002 15:46:04
Ahojte !
Je toto povoleny postup, alebo to Abort tam nema co hladat ?
TRoland.
procedure TIBDate.CMExit(var Message:TCMExit);
begin
if IsError then
begin
SetFocus;
Abort;
end;
Message.Result:=1;
inherited;
end;
Vicejazycne aplikace
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 8.4.2002 15:59:33
Ahoj,
morem se s vicejazycnou aplikaci. Poradite mi prosim nekdo, jak na to ?
Diky
V.
Iconic MDI okno a jeho sirka
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.4.2002 16:08:43
Preji vsem pekneho dne,
mam MDI aplikaci a potrebuji znat sirku a vysku toho fujtajbliku, co
mi zbude, kdyz uvnitr zminimalisuji MDI okno. Jak to zjistim?
Diky za kazde info
Slavek
Zmena TMyEdit.ButtonVisible v design time
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.4.2002 16:25:28
Ahojte!
Mam na TCustomEdite dokreslene tlacitko (TSpeedButton), podla vzoru v
TSpinEdit, ale ked menim v ObjectInspectore ButtonVisible, tak sa mi
neprekresluje (show,hide) button. V design time je vzdy vidiet button aj ked
je ButtonVisible:=false;
V aplikacii je to OK.
Dakujem
TRoland - D5.01
Pridanie TSpeedButton do TCustomCombobox
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.4.2002 16:28:20
Ahojte!
Ako pridam %subj%. Do TCustomEdit-u to islo super podla vzoru TSpinEdit, ale
v combaku mi to prekresluje sipku dole, za mojim TSpeedbutton je standartny
button combaka.
Dakujem
TRoland - D5.01
Zamedzenie sirenia spravy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.4.2002 16:37:31
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Je toto povoleny postup, alebo to Abort tam nema co hladat ?
Nema tam co delat, staci nevolat inherited v handleru zpravy.
Petr Vones
Vicejazycne aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.4.2002 16:42:45
On 8 Apr 2002 at 15:59, LUKES V�clav wrote:
> morem se s vicejazycnou aplikaci. Poradite mi prosim nekdo, jak na to
> ?
To je jednoduche. Napises to cele v jednom jazyce, a pak si vyrobis
potrebne jazykove mutace datovych DLL s prelozenymi texty. Hlavne
musis deklarovat vsechny texty urcene k prekladu jako resourcestring,
ne jako const, a uz vubec nesmeji byt rozhazene uvnitr kodu. Nic na
tom neni.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
OT: hledam zakazku
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.4.2002 16:52:40
Hledam nejakou vhodnou zakazku v Delphi 5 a vyse, na externi
spolupraci, priblizne od kvetna az cervna. muze byt i delsi
spoluprace.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
OT: IIS - ISAPI - Webserv demo (D5)
[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 08.4.2002 17:05:55
Zdravim Delfare!
Nevim proc, ale kdyz zkousim jak svoji(podle navodu) aplikaci tak
vyse uvedene demo na ISAPI, tak se mi nedari pod IIS spustit vyvolani
stranky pri volani napr. http://localhost/aplikace.dll/neco.
Pokud to "neco" vynecham, stranka nabehne, ale odkazy z ni taktez
nefunguji.
Demo aplikace ve WINCGI funguje s odkazy(/neco) bez problemu.
Muzete mi prosim poradit co delam spatne ?
Dekuji
J.Z.
--------------
D5+,WinXP
--------------
______________________________________________________________________
Reklama:
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky.
http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
Zjistit odpor pres COM1 pomoci delphi
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 8.4.2002 17:09:04
Zdravim
Vcelku zajimava uvaha ...
Co vim, tak na USB uz nejde pristupovat stejne jednoduse jako na COM nebo
LPT. Na USB konektoru je 0 a 5V, takze by timto napetim sla taky nabijet RC
kombinace. Nicmene uz je to rozdil vuci 24V z COMu. Teoreticky by sel pouzit
stejny princip, ale rekl bych, ze by to moc nefungovalo. Pokud USB pouziva
urovnovou logiku TTL (tusim, ze ano), tak deleni hodnot je takoveto:
L - 0V - 0,8V
? - 0,8V - 2V
H - 2V - 5V
Cteni BOOL hodnoty samozrejme nevraci hodnotu neurcito, takze jeste zustava
otazkou, kdy se to preklopi z L na H muze to byt na 0.8V nebo az nekde kolem
2V. Ty 2V by se mozna daly pouzit, ale nevim nevim. Pak jeste zbyva napsat
driver, ktery vraci BOOL hodnoty na Rx lince a umoznuje nastavovat Tx linku.
Radsi bych to resil nejak jinak.
Pokud je k dispozici LPT port jde pouzit externi AD prevodnik (napr.
vyprodejovy C520 (3 digity v BCD kodu multiplexne prepinane na vystupu - 4+3
vystupni linky)) a napsat program, ktery z multiplexne prepinanych dat na
vstupu LPT portu udela pouzitelne cislo.
Pokud neni ani LPT, tak se obavam, ze jedina moznost bude koupit nejaky
moderni (a patricne drahy) multimetr, ktery se k PC pripojuje pres USB.
Zdenek
----- Original Message -----
> Dej si pozor, hodne novych notebooku nema COM porty (ja bych ty vyrobce
> tlouk...) . Takze pokud to opravdu ma chodit vsude, tak spis koukej po
USB.
Socket Server - tuhne spojenie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 8.4.2002 17:39:02
Ahoj,
- mam client/server aplikaciu
- 2 druhy spojenia - TDCOMConnection, TSocketConnection
- pri SOCKET spojeni z klienta beziaceho pod W98 sa stava ze klient
zatuhne - zaroven na serveri zatuhne aj SOCKET server
- SOCKET spojenie z W2000 je stabilne - aspon sa zda !
- DCOM spojenie je stabilne aj z W98
- chyba sa prejavuje vo verzii kompilovanej v D5 aj D6
- mam SILNE podozrenie ze problem je v mnozstve dat prenasanych v
parametroch funkcie COM servera
- COM server ma vsetky funkcie tvaru:
function Funkcia(Type: Smallint; var Data: WideString): WideString; dispid
X;
- pouzitim komprimovania - vid. \demos\midas\intrcpt som dosiahol ze v
znamych pripadoch zatuhnutia sa uz program nezasekol !
Prosim - zaobera sa niekto seriozne spojenim cez TSocketConnection a pozna
podobny problem - jeho riesenie.
Moje hypotezy:
- SOCKET nedokaze data kvantovat do paketov - treba to osetrit - ako ?
- moje parametre su WideString - teda OLE/UNICODE retazce - ma 9x problem s
UNICODE ? - ako ostranit ?
Vdaka za kazdy hint, link a podobne.
Pekny den.
janog(zv)pluto.elf.stuba.sk
Ulozeni, nacten vlastnosti komponent
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 08.4.2002 19:32:52
At 10:15 8.4.2002 +0200, you wrote:
>Ahoj, potreboval bych proceduru, ktera mi ulozi vsechny komponenty
>formulare, ktere maji
>treba vlastnost Caption do INI
>A pak dalsi proceduru, ktera to z toho INI nacte zpet.
>
>Nemate nekdo neco podobneho...
>
>Dekuji.
Co tohle?
http://www.builder(tec)cz/art/delphi/ini_files.html
Spusteni jineho programu z Delphi
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 08.4.2002 19:34:15
At 11:56 8.4.2002 +0200, you wrote:
>Ahoj,
>
>rad bych poprosil o radu. Chtel bych z Delphi spustit program napsany
>treba ve VB nebo v Jave. Poradi mi prosim nekdo jak na to ?
>
>Diky
>
>Vasek
Zkus fci ShellExecute. Unita ShellApi.
Re[2]: OT: DELPHI - spolehlivost 16 nebo 32 bitu?
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 8.4.2002 19:42:59
Mno, znam taky jednoho vazeneho dlouholeteho programatora, ktery
obhajuje BASIC a programovani v nem. Jak je naprosto prehledny, uzasny
... blablabla ... a ma asi 30 let praxi ... mno nic, jenom to s tou
vaznosti negdy neni tak idealni :)
--
> Bohuzel, na aprila to nebylo. Taky jsem na nej koukal. Ale vzhledem k tomu,
> ze je to "vazeny" programator s 10 letou praxi, tak jsem se s nim nehadal
> ;-)
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Checkbox do StringGrid
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 8.4.2002 22:37:45
Cau
> Prosim nemate nekdo navod jak jednoduse dostat do jednoho sloupce
> StringGridu checkboxy?
Jestli jsi to jeste nevyresil, tak mam dodelanou komponentu AdvStringGrid
(naslednik TStringGrid), ktera umoznuje
vlozit do bunky jakykoli prvek TWinControl (mysleno jako libovolny editor,
ale ted jsem to zkusil i s TCheckBoxem a funguje to). Jeste jsem to
nestacil hodit na svuj web, takze kdyz budes mit zajem, napis na
mailto:tomkrysl(zv)quick(tec)cz Musi se ale taky poupravit Grids.pas protoze tam
je jedna chybka (raw D5Ent). Poslal bych Ti to kompletni, ale vono se totiz
asi nesmi sirit casti zdrojaku VCL.
Tomas Krysl.OT: Bitmapovy brush
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 8.4.2002 22:58:49
Cau,
nacitam monochromatickou bitmapu (DIB, cerna a bila barva) do brushe jako
vzor (pomoci LoadFromResourceName) a pri vykresleni se vzor chova stale jako
bitmapa, tj. cernobila. Ja chci ale ty barvy zmenit (cernou treba na
cervenou a bilou na barvu pozadi). Zkousel jsem to pres pole
TLogBrush.lbColor u fce CreateBrushIndirect (BS_PATTERN), zmenit fci
SetPaletteEntries paletu bitmapy (vysledek 2) a fci SetBkColor (pozadi
brushe). Bezuspesne. Poradi nekdo?
Dik
Tomas Krysl
Seriova komunikace - chybne prijeti bytu
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 9.4.2002 00:07:03
Zdravim vsechny,
delam komunikaci s jednocipem (AT89C2051+MAX232) pres seriovy port, pouzivam
Synapsi - objekt TBlockSerial. Vsechno mi chodilo takrikajic skoro na prvni
nakopnuti (jen nejaky drobnosti v nastaveni parametru). Ted, ale po nejakych
drobnych zmenach v SW na obou stranach mi PeCecko prijima uplne nesmyslny
bajty a nekdy neprijme vubec nic. Vratil jsem se k puvodnim verzim (tem
chodivejm) softwaru a chyba je stale.
Nevi nekdo, cim to muze bejt ? Vypada to jako by se rozjela synchronizace.
(D5, w2k)
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Nekorektna velkost WinControl pri bsSizeable
[*] Marian M�ller <mman(zv)home.sk> - 9.4.2002 06:10:13
kompilujem to na D5Ent, Win98/Win2k.
Na Win2k to ide vsade. Nefunguje to iba na niektorych Win98, neviem prist na
to, cim to bude.
Marian.> pri BorderStyle=bsSizeable sa na niektorych PC zle zobrazia niektore
> TWinControl (napr. Memo, ListView...). Ide hlavne o sirku a vysku objektu.
> Vyuzivam Anchors pre aut. zmenu tychto rozmerov, ale ked sa program spusti
> na urcitom PC, tak tie Anchors ma uplne sklamu a nastavia blbe rozmery
> (napr. sirsie ako je TForm). Vo vacsine PC to funguje vsak spravne. Pri
> bsDialog to funguje bez problemov vsade.
Verze Delphi, verze OS na kterem to nefunguje ?
Petr Vones
Seriova komunikace - chybne prijeti bytu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 9.4.2002 07:51:26
> delam komunikaci s jednocipem (AT89C2051+MAX232) pres seriovy port, pouzivam
> Synapsi - objekt TBlockSerial. Vsechno mi chodilo takrikajic skoro na prvni
> nakopnuti (jen nejaky drobnosti v nastaveni parametru). Ted, ale po nejakych
> drobnych zmenach v SW na obou stranach mi PeCecko prijima uplne nesmyslny
> bajty a nekdy neprijme vubec nic. Vratil jsem se k puvodnim verzim (tem
> chodivejm) softwaru a chyba je stale.
> Nevi nekdo, cim to muze bejt ? Vypada to jako by se rozjela synchronizace.
Vzpominej co si zmenil od doby, kdy to chodilo... mas nastavene urcte
spravne komunikacni parametry? (rychlost, pocet bitu, stopbity,
parity, handshake,....)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Quick Report a Windows XP
[*] Turek Petr <turek(zv)bsm(tec)cz> - 9.4.2002 07:52:14
Ahoj.
Velice dekuji za vyreseni problemu s Quick Reportem. Pod D4 to taky chodi a
nyni je vse super.
Petr Turek
Problem s COM objektem
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 9.4.2002 08:09:42
Pokud se potrebujes pripojit na bezici instanci, tak zkus ROT (pokud to COM
objekt podporuje).
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Ahoj,
> jak bych zjistil referenci na rozhrani uz beziciho COM objektu na vzdalene
> masine. Jmeno stroje a ClassID znam. Neco jako :
> function GetActiveOleObject(const ClassName: string): IDispatch;
> ale pro jiny pocitac.
>
> Diky za kazdou radu.
Seriova komunikace - chybne prijeti bytu
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 9.4.2002 08:15:16
> drobnych zmenach v SW na obou stranach mi PeCecko prijima uplne nesmyslny
To by mohlo byt rozdilne nastaveni (rychlost, ...).
Doporucil bych nejdrive zkontrolovat HW, pak stranu s jednocipem, pak PC.
Pavel
Re[2]: Distinct v SQL
[*] Martin Cajbik <cajbik(zv)sct.sk> - 9.4.2002 08:38:46
Naco je tam to DISTINCT ?. Ved je to uz GROUP BY CisloPojisteni.
MarCaNT (marcant(zv)sct.sk)> Tady bych to videl jako zbytecne slozite.
> Asi bych to zapsal takto:
>
> Select Distinct CisloPojisteni, DatumPlatnosti = Min(DatumPlatnosti) from
....
> Where Agent = ...
> group by CisloPojisteni
> Order by 2
>
> Zvol si, jestli tam nechces Max(), pze pak by to radil vzestupne podle
> posledniho zapisu (ted je to vzestupne podle prvniho zapisu)
>
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
>
> Prog-Soft s.r.o. Plzen
> Informacni system pro vyrobce
> a distributory napoju
>
> > Reseni napr:
> > ------------
>
> > SELECT Distinct CisloPojisteni,
> > ( SELECT TOP 1 DatumPlatnostu
> > FROM ... X
> > WHERE x.CisloPojisteni = CisloPojisteni
> > ) AS DatumPlatnosti
> > FROM .....
>
> > Pavel Lstiburek
>
>
>
Posielanie e-mailu z Delphi
[*] Martin Cajbik <cajbik(zv)sct.sk> - 9.4.2002 08:52:40
Zdravim,
viem ze to tu uz asi bolo niekolkokrat preberane ale bohuzial nemam archiv
konferencie.
Potreboval by som vediet ako co najjednoduchsie poslat e-mail z Delphi.
Nepotrebujem to spustat na pozadi, skor by som si to predstavoval tak, ze sa
programovo uzivatelovi otvori jeho default mail klient s vyplnenou adresou a
textom. Samotne odoslanie by uz vykonal uzivatel podla potreby (pripadne by
vykonal este nejake zmeny v texte spravy). Nepotrebujem ziadnu funkcnost
naviac, to znamena ziadne informacie o tom, ci bola sprava skutocne
odoslana, s akym textom, ako dopadlo odoslanie...
MarCaNT (marcant(zv)sct.sk)
korektni ukonceni formulare
[*] Zdenek Navratil <zdnav(zv)monoceros.physics.muni(tec)cz> - 9.4.2002 08:55:52
Pekny den,
potreboval bych poradit s timto problemem -
mam MDI okno, ktere periodicky oteviram a zaviram (metodou release).
Nekdy se podle meho dojmu stane, ze formular je uz zruseny, ale jeste jsou
asi ve fronte nejake zpravy (pro OnMoveEvent apod.). Nasledne vznikne
velmi neprijemna chyba ochrany pameti.
Mam nejprve odstranit Event handlery nebo neco podobneho?
Dekuji za radu.
W98, D5Standard
S pozdravem
Zdenek Navratil.
Re[4]: Distinct v SQL
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 9.4.2002 08:58:14
Jasne ze je to tam uplne zbytecne :))
Ja psal automaticky vse a po dodani grupovani jsem to zapomnel smazat.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Naco je tam to DISTINCT ?. Ved je to uz GROUP BY CisloPojisteni.
> MarCaNT (marcant(zv)sct.sk)>> Tady bych to videl jako zbytecne slozite.
>> Asi bych to zapsal takto:
>>
>> Select Distinct CisloPojisteni, DatumPlatnosti = Min(DatumPlatnosti) from
> ....
>> Where Agent = ...
>> group by CisloPojisteni
>> Order by 2
>>
Posielanie e-mailu z Delphi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.4.2002 09:02:20
Pokud netrvas na textu zpravy, staci funkce ShellExecute. Pro psani
e-mailu s textem, je nejjednodussi vyuzit knihovnu JCL, konkretne
unita JCLMAPI.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
9.4.2002 Martin Cajbik:
> Zdravim,
> viem ze to tu uz asi bolo niekolkokrat preberane ale bohuzial nemam archiv
> konferencie.
> Potreboval by som vediet ako co najjednoduchsie poslat e-mail z Delphi.
> Nepotrebujem to spustat na pozadi, skor by som si to predstavoval tak, ze sa
> programovo uzivatelovi otvori jeho default mail klient s vyplnenou adresou a
> textom. Samotne odoslanie by uz vykonal uzivatel podla potreby (pripadne by
> vykonal este nejake zmeny v texte spravy). Nepotrebujem ziadnu funkcnost
> naviac, to znamena ziadne informacie o tom, ci bola sprava skutocne
> odoslana, s akym textom, ako dopadlo odoslanie...
Posielanie e-mailu z Delphi
[*] Martin Cajbik <cajbik(zv)sct.sk> - 9.4.2002 09:27:35
Vdaka,
uz som na to medzitym prisiel, pouzil som ShellExecute a
mailto:..?subject=...&body=...
Jediny problem je nutnost prekodovat vsetky specialne znaky na hexa kod %xx.
Napriklad koniec riadku je %0A. Nevie niekto, ci ma mailto obmedzenie na
dlzku textu ?
MarCaNT (marcant(zv)sct.sk)> Pokud netrvas na textu zpravy, staci funkce ShellExecute. Pro psani
> e-mailu s textem, je nejjednodussi vyuzit knihovnu JCL, konkretne
> unita JCLMAPI.
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 9.4.2002 Martin Cajbik:
> > Zdravim,
> > viem ze to tu uz asi bolo niekolkokrat preberane ale bohuzial nemam
archiv
> > konferencie.
> > Potreboval by som vediet ako co najjednoduchsie poslat e-mail z Delphi.
> > Nepotrebujem to spustat na pozadi, skor by som si to predstavoval tak,
ze sa
> > programovo uzivatelovi otvori jeho default mail klient s vyplnenou
adresou a
> > textom. Samotne odoslanie by uz vykonal uzivatel podla potreby (pripadne
by
> > vykonal este nejake zmeny v texte spravy). Nepotrebujem ziadnu funkcnost
> > naviac, to znamena ziadne informacie o tom, ci bola sprava skutocne
> > odoslana, s akym textom, ako dopadlo odoslanie...
>
>
Spusteni jineho programu z Delphi
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.4.2002 09:42:43
Dalsi moznosti poskytuje JCL library, unita JclShell.pas.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
>
> >Ahoj,
> >
> >rad bych poprosil o radu. Chtel bych z Delphi spustit program napsany
> >treba ve VB nebo v Jave. Poradi mi prosim nekdo jak na to ?
> >
>
> Zkus fci ShellExecute. Unita ShellApi.
korektni ukonceni formulare
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.4.2002 09:58:10
To asi nebude tim, protoze kdyz zmizi okno, zmizi i jeho fronta zprav.
Neznam tu metodu Release, ale proc nepouzivas obvykle Close nebo Free? Spise
bych to tipoval na nejakou jinou chybu (pristup z hlavniho formu na nejaky
objekt toho MDI okna apod.)
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: korektni ukonceni formulare
>
> potreboval bych poradit s timto problemem -
> mam MDI okno, ktere periodicky oteviram a zaviram (metodou release).
> Nekdy se podle meho dojmu stane, ze formular je uz zruseny, ale jeste jsou
> asi ve fronte nejake zpravy (pro OnMoveEvent apod.). Nasledne vznikne
> velmi neprijemna chyba ochrany pameti.
> Mam nejprve odstranit Event handlery nebo neco podobneho?
> Dekuji za radu.
> W98, D5Standard
> S pozdravem
> Zdenek Navratil.
Posielanie e-mailu z Delphi
[*] Roland Turcan <rolo(zv)sedas.sk> - 9.4.2002 10:01:03
----- Original Message -----
From: "Martin Cajbik" <cajbik(zv)sct.sk>
> viem ze to tu uz asi bolo niekolkokrat preberane ale bohuzial nemam archiv
> konferencie.
Da sa stiahnut z webu.
> Potreboval by som vediet ako co najjednoduchsie poslat e-mail z Delphi.
pozri si www.delphi-jedi.org a tam je kniznica JCL a tam najdes TEmail, ....
TRoland.
korektni ukonceni formulare
[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 9.4.2002 10:27:24
MDI okna zavirat Close, ne Release.
Ne MDI zavirat/likvidovat Release ne free. (u modalnich je jedno)
Danik
> To asi nebude tim, protoze kdyz zmizi okno, zmizi i jeho fronta zprav.
> Neznam tu metodu Release, ale proc nepouzivas obvykle Close
> nebo Free? Spise
> bych to tipoval na nejakou jinou chybu (pristup z hlavniho
> formu na nejaky
> objekt toho MDI okna apod.)
> >
> > potreboval bych poradit s timto problemem -
> > mam MDI okno, ktere periodicky oteviram a zaviram (metodou release).
> > Nekdy se podle meho dojmu stane, ze formular je uz zruseny,
> ale jeste jsou
> > asi ve fronte nejake zpravy (pro OnMoveEvent apod.).
> Nasledne vznikne
> > velmi neprijemna chyba ochrany pameti.
> > Mam nejprve odstranit Event handlery nebo neco podobneho?
> > Dekuji za radu.
> > W98, D5Standard
> > S pozdravem
> > Zdenek Navratil.
>
EnumServicesStatus na WinXP
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 9.4.2002 10:51:33
Zdravim vsechny,
mam problem. Ve FreeVCS (konkretne v aplikacnim serveru) je pouzita
nasledujici funkce v inicializaci, ale na WinXP toto neprojde resp. dojde k
zacykleni v repeat....until. Nevite nekdo proc ???
function GetServices(ServiceState: TServiceState): TServiceStatusArray;
type
TEnumServiceStatusArray = array[0..0] of TEnumServiceStatus;
PEnumServiceStatusArray = ^TEnumServiceStatusArray;
var
lbRetVal: Boolean;
SvcMgr, i, liLength, liServiceState: Integer;
lwBytesNeeded, lwResumeHandle, lwServicesReturned: DWord;
MyServiceStatus: PEnumServiceStatusArray;
begin
SetLength(Result, 0);
case ServiceState of
ssActive: liServiceState := SERVICE_ACTIVE;
ssInactive: liServiceState := SERVICE_INACTIVE;
ssAll: liServiceState := SERVICE_ACTIVE or SERVICE_INACTIVE;
else
liServiceState := 0;
end;
//-- Get a handle to the Service Control Manager
SvcMgr := OpenSCManager(nil, nil, SC_MANAGER_ENUMERATE_SERVICE);
if SvcMgr = 0 then RaiseLastWin32Error;
try
//-- Initialize variables
lwBytesNeeded := 0;
lwResumeHandle := 0;
lwServicesReturned := 0;
//-- Get some memory for the Enum-Results
GetMem(MyServiceStatus, 256);
try
repeat
FillChar(PChar(MyServiceStatus)^, 256, 0);
//-- enummerate all active services
lbRetVal := EnumServicesStatus(SvcMgr, SERVICE_WIN32,
liServiceState,
PEnumServiceStatus(MyServiceStatus)^, 256, lwBytesNeeded,
lwServicesReturned, lwResumeHandle);
//-- if call fails and last error isn't ERROR_MORE_DATE,
//-- we have a "real" error!
if not lbRetVal then
if GetLastError <> ERROR_MORE_DATA then
RaiseLastWin32Error;
//-- build result Copy
liLength := Length(Result);
SetLength(Result, liLength + Integer(lwServicesReturned));
for i := 0 to lwServicesReturned - 1 do
begin
Result[liLength + i].ServiceStatus :=
MyServiceStatus^[i].ServiceStatus;
Result[liLength + i].DisplayName :=
MyServiceStatus^[i].lpDisplayName;
Result[liLength + i].ServiceName :=
MyServiceStatus^[i].lpServiceName;
end;
//-- if we don't have a ResumeHandle, we're done
until lwResumeHandle = 0;
finally
//-- free memory for Enum-Results
FreeMem(MyServiceStatus);
end;
finally
//-- release Service Control Manager handle
CloseServiceHandle(SvcMgr);
end;
end;
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Socket Server - tuhne spojenie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 9.4.2002 11:02:36
Takze upresnim.
Mam COM objekt s funkciou procedure TESTSERVER.Method1(var Param1:
WideString);
Z klienta do PARAM1 davam retazec istej dlzky.
Ak sa klient klient spaja cez TDCOMConnection je vsetko v poriadku a
prenesiem aj retazec dlzky 100 000 znakov.
Ak sa klient spaja cez TSocketConnection...
- a bezi na W2000 - je vsetko v poriadku
- ak bezi na W98 - potom do dlzky 2159 je vsetko v poriadku,
pri dlzke nad 2160 znakov sa klient zasekne - presnejsie povedane -
spracovanie trva radovo dlhsie - pricom niekedy som sa nedockal, na strane
serveru zacne SOCKET server "konzumovat" procesor, volanie sa do COM objektu
nedostane
Urobil som uplne jednoduchy SERVER - jeden REMOTE DATA MODUL. Klient tiez
trivialny.
Dokonca som zistil ze ak dam parametre dva. Sucet vkladanych retazcov nesmie
prekrocit hranicu 2155. Teda 4 byte menej ako pri jednom parametri (co by
zodpovedalo velkosti referencie na druhy parameter).
Cim to je ? Ako to zmenit ? Co doinstalovat do W98 ? Co nastavit ?
Kto naozaj seriozne pouziva klient/server architekturu a spojenie cez
TSocketConnection musel na tento problem narazit.
Na poziadanie poslem na sukromny email ten maly testovaci projekt
(poziadavku piste priamo - nie do konferencie !).
Vdaka.
janog(zv)pluto.elf.stuba.sk
Inctalace JVCL
[*] <ivan.virag(zv)aliatel(tec)cz> - 9.4.2002 11:10:31
Zdravim.
Pokousim se instalovat JVCL do Delphi 6 a pri pokusu o Install JVCL100_Design.dpk se mi objevi pri kompilaci krome mnoha varovani toto:
[Error] JvSysComp.pas(656): Undeclared identifier: 'wvWinNT3'
[Error] JvSysComp.pas(656): Incompatible types: 'Integer' and 'TWindowsVersion'
[Fatal Error] JVCL100_R60.dpk(349): Could not compile used unit 'JvSysComp.pas'
a zastavi se to v jednotce JvSysComp.pas na slove "wvWinNT3" v nasledujicim kodu:
begin
FEntries.Clear;
if GetWindowsVersion in [wvWinNT3, wvWinNT4] then
BuildListPS
else
BuildListTH;
end;
Nevite nekdo neco? Dekuji.
Ivan Virag
IB 6 - grant na trigger
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 9.4.2002 11:18:34
IB 6, D5 Ent, W98
Ahoj,
mam tabulku A na kterou je povesen trigger before delete TR_A. V triggeru se
mazou data z tabulky B s B.ID = A.ID.
Jsou nastaveny nasledujici granty
1. Grant delete on A to user
2. Grant delete on B to TR_A
Podle toho, jak jsem pochpil help, by melo jit mazat z A bez problemu, ale
neni tomu tak. Prikaz delete from A skonci chybou, ze neni grant delete na
tabulku B.
Primo z tabulky B by nemelo byt povoleno mazat.
Delam neco spatne, nebo si spatne vykladam help.
Predem diky za rady
Ales
MDI form a zakaz scroll. CHILD formu
[*] Igor Bak�a - 9.4.2002 11:47:45
Prosim o radu.
Vytvaram MDI aplikaciu a potrebujem dosiahnut to, aby sa mi pri posunuti
CHILD okna mimo
plochu MDI okna (pr�padne jeho zvacsenia) na MDI okne nezobrazili
scrollovacie listy.
Tak ako je to v roznych MDI aplikaciach ako napr. Corel, Photoshop,
Acrobat....
Ako na to ?
shellexecute v presmerovani vystupu
[*] <mmira(zv)centrum(tec)cz> - 09.4.2002 11:49:32
ahoj,
mel bych takovej problem: pres prikaz shellexecute spoustim program
php.exe takto:
ShellExecute(handle, 'open', 'php.exe', 'phpinfo.php > c:\phpinfo.html', 'c:\php4\' , sw_shownormal);
a tim chci aby php prelozil soubor phpinfo.php a presmeroval vystup do souboru phpinfo.html
to bohuzel ale nefunguje
pouze probehne vystup na monitor a nic...
ted kdyz nad tim premejslim... parametr se preda jen phpinfo.php a presmerovani je uz zase neco windowsackyho, ale nevim
diky za radu
Mi
--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...
Socket Server - tuhne spojenie
[*] Erik Salaj <winsoft(zv)stonline.sk> - 9.4.2002 11:54:32
> Mam COM objekt s funkciou procedure TESTSERVER.Method1(var Param1:
> WideString);
>
> Z klienta do PARAM1 davam retazec istej dlzky.
> Ak sa klient klient spaja cez TDCOMConnection je vsetko v poriadku a
> prenesiem aj retazec dlzky 100 000 znakov.
> Ak sa klient spaja cez TSocketConnection...
> - a bezi na W2000 - je vsetko v poriadku
> - ak bezi na W98 - potom do dlzky 2159 je vsetko v poriadku,
>
> pri dlzke nad 2160 znakov sa klient zasekne - presnejsie povedane -
> spracovanie trva radovo dlhsie - pricom niekedy som sa nedockal, na strane
> serveru zacne SOCKET server "konzumovat" procesor, volanie sa do COM
objektu
> nedostane
nebolo by rozumnejsie pouzit SOAP?
Erik
Posielanie e-mailu z Delphi
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 9.4.2002 12:18:54
> Pokud netrvas na textu zpravy, staci funkce ShellExecute. Pro psani
> e-mailu s textem, je nejjednodussi vyuzit knihovnu JCL, konkretne
> unita JCLMAPI.
Ahoj,
k tomu ShellExecute... nevim, zda slo o mou chybu ci to je obecna vlastnost, ale
pokud uzivatel pouzival Outlook ci OE, fungovalo to spravne, ale s Pegasus Mailem
se nevytvorilo okno s novou zpravou, pouze se aplikace aktivovala do popredi.
David Lebeda
>
> > archiv konferencie. Potreboval by som vediet ako co najjednoduchsie
> > poslat e-mail z Delphi. Nepotrebujem to spustat na pozadi, skor by
> > som si to predstavoval tak, ze sa programovo uzivatelovi otvori jeho
> > default mail klient s vyplnenou adresou a textom. Samotne odoslanie
Seriova komunikace - chybne prijeti bytu
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 9.4.2002 12:31:57
Nastaveni mam stejne, vidim to spis na HW zavadu v jednocipu, protoze kdys
spojim u PC vystup se vstupem, tak to funguje (co vyslu to dostanu zpet).
Zkousel jsem vymenit tu 2051 ale je to stejne. To nastaveni jsem kontroloval
snad tisickrat....
diky
----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 09, 2002 8:15 AM
Subject: Re: Seriova komunikace - chybne prijeti bytu
> > drobnych zmenach v SW na obou stranach mi PeCecko prijima uplne
nesmyslny
>
> To by mohlo byt rozdilne nastaveni (rychlost, ...).
> Doporucil bych nejdrive zkontrolovat HW, pak stranu s jednocipem, pak PC.
>
> Pavel
>
Transparentni obrazek a paleta barev
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 9.4.2002 12:34:03
Ahoj.
Pri pouzivani Transparent := True u TIMage s obrazkem s 256 barvami a
"neWindows" paletou na Win98 jsem narazil na ponekud "malou"
pruhlednost... tedy da se rict ze je skoro vzdy videt jen
netransparentni obrazek, obcas prosvitaji nektere (!!!) barvy z
podkladu. Chybu jsem nasel v nejakem buglistu, tahne se uz od verze D3
(nechapu Borland).
Problem je v tom, ze pro spravnou funkci je potreba aby paleta
obsahovala na prvnich a poslednich 8 pozicich standardni systemove
barvy. To jsem schopen dodrzet, ale nejak se mi nepodarilo svuj obrazek
tak, aby paleta obsahovala barvy tak jak je potreba. Bud jsou v palete
jen barvy z obrazku, nebo mam kompletni win paletu a obrazek je
prizpusoben. Nevite o nastroji, ktery dokaze editovat palety barev (tedy
nejak inteligentne dve sloucit) nebo o jinem zpusobu, jak vyrobit
"spravny" obrazek?
Ales
Service a tray icon
[*] EFG developer <developer(zv)efg(tec)cz> - 9.4.2002 12:40:35
Zdravim,
Mam GUI (forms,...) aplikaci, kterou spoustim p�es program treti strany
jako service.
Pokud nastavim aby aplikace bezela pod uctem X, tak po zalogovani
uzivatele X se aplikace zobrazi na plose a ma ikonu na hlavnim
panelu.... Potud OK.
Ale kdy� zakazu aby se aplikace zobrazovala na hlavnim panelu a mela jen
tray ikonu, tak se na program NEDOSTANU proto�e je pristupnz pouze p�es
tray ikonu, kter� tam neni.
Otazka:
jak zobrazit po zalogovani uzivatele X ikonku programu (kter� bezi jako
service) v tray ?
Dekuji Petr Sikola
Seriova komunikace - chybne prijeti bytu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 9.4.2002 12:46:16
To je propojene jak? Trivodicem? prijima to uplne nesmysly, nebo se
jen vynechavaji znaky? nemas tam treba spatne stopbity (mnoho lidi je
trosku vydesenych z toho, ze 1 znamena 1.5 stopbitu a 0 znamena 1
stopbit...)
Da se nejak vyzkouset spojeni vstupu s vystupem jen u oho
jednocipaku, aby sis overil ze on sam se sebou komunikuje?
> Nastaveni mam stejne, vidim to spis na HW zavadu v jednocipu, protoze kdys
> spojim u PC vystup se vstupem, tak to funguje (co vyslu to dostanu zpet).
> Zkousel jsem vymenit tu 2051 ale je to stejne. To nastaveni jsem kontroloval
> snad tisickrat....
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Checkbox do StringGrid
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 9.4.2002 12:49:14
Treba takhle. CheckBox se objevi na kazdem radku.
procedure Form1.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Checked: UINT;
ControlRect: TRect;
begin
ControlRect.TopLeft:= Rect.TopLeft;
ControlRect.Bottom:= Rect.Bottom;
ControlRect.Right:= Rect.Left + StringGrid.RowHeights[ARow];
if StringGrid.Cells[ACol, ARow]= '0' then
Checked:= DFCS_BUTTONCHECK
else
Checked:= DFCS_BUTTONCHECK or DFCS_CHECKED;
DrawFrameControl(strgrdRele.Canvas.Handle, ControlRect, DFC_BUTTON,
Checked);
end;
Pro editaci policka mysi napr.
procedure TfrmGrantEntry.strgrdReleSelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol = X then
begin
if StringGrid1.Cells[ACol, ARow] = '0' then
StringGrid1.Cells[ACol, ARow]:= '1'
else
StringGrid1.Cells[ACol, ARow]:= '0'
end;
end;
Ales Janda
----- Original Message -----
From: "bardon" <bardon(zv)akord-soft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 08, 2002 9:03 AM
Subject: Checkbox do StringGrid
> Prosim nemate nekdo navod jak jednoduse dostat do jednoho sloupce
> StringGridu checkboxy?
>
>
shellexecute v presmerovani vystupu
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 9.4.2002 12:55:15
> mel bych takovej problem: pres prikaz shellexecute spoustim program
> php.exe takto:
>
> ShellExecute(handle, 'open', 'php.exe', 'phpinfo.php >
> c:\phpinfo.html', 'c:\php4\' , sw_shownormal);
>
> a tim chci aby php prelozil soubor phpinfo.php a presmeroval
> vystup do souboru phpinfo.html
> to bohuzel ale nefunguje
>
> pouze probehne vystup na monitor a nic...
>
> ted kdyz nad tim premejslim... parametr se preda jen
> phpinfo.php a presmerovani je uz zase neco windowsackyho, ale nevim
Funkce byla na presmerovani tracert vystupu do souboru, ale myslim ze to
staci :)
Ales
function TracertRedirected(const Adresa, Separator, OutputFile: string):
Boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
SecAtrrs: TSecurityAttributes;
hInputFile, hOutputFile: THandle;
tempInt: Cardinal;
begin
Result := False;
hOutputFile := CreateFile(PChar(OutPutFile), GENERIC_READ or
GENERIC_WRITE,
FILE_SHARE_READ, CreateInheritable(SecAtrrs), OPEN_ALWAYS,
FILE_ATTRIBUTE_TEMPORARY, 0);
if hOutputFile <> INVALID_HANDLE_VALUE then
begin
SetFilePointer (hOutputFile, 0, 0, FILE_END);
WriteFile (hOutputFile, Separator[1], length (Separator), tempInt,
nil);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
StartupInfo.wShowWindow := SW_HIDE;
StartupInfo.hStdOutput := hOutputFile;
StartupInfo.hStdInput := 0;
Result := CreateProcess(nil, PChar('tracert ' + Adresa), nil, nil,
True,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo,
ProcessInfo);
if Result then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
CloseHandle(hOutputFile);
end;
end;
Delphi 6 - Access violation v IDE
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 9.4.2002 13:04:23
Ahoj!
Obcas se mi stava toto: normalne ladim aplikaci a nekdy pri spusteni
aplikace z IDE mo to hazi nasledujici hlasky:
"Access violation at address 4011079C in module 'VCL.BPL'. Read of address
FFFFFFFF."
a potom
"Access violation at address 00584A2 in module 'COREIDE60.BPL'. Read of
address FFFFFFFF."
Kdyz ukoncim a zase spustim Delphi, tak to zase nejakou dobu funguje
normalne a pak zase.
Kdyz ukoncim a zase spustim Delphi...........
Neporadite nekdo, co s tim, nechce se mi znovu instalovat W98 ani D6P!
Diky
S pozdravem
Ing. Petr J�nsk�
---
Odchoz� zpr�va mo�n� neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.342 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
Service a tray icon
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 9.4.2002 13:28:49
----- Original Message -----
From: "EFG developer" <developer(zv)efg(tec)cz>
> Mam GUI (forms,...) aplikaci, kterou spoustim p�es program treti strany
> jako service.
> Pokud nastavim aby aplikace bezela pod uctem X, tak po zalogovani
> uzivatele X se aplikace zobrazi na plose a ma ikonu na hlavnim
> panelu.... Potud OK.
>
> Ale kdy� zakazu aby se aplikace zobrazovala na hlavnim panelu a mela jen
> tray ikonu, tak se na program NEDOSTANU proto�e je pristupnz pouze p�es
> tray ikonu, kter� tam neni.
To teda nevim jestli by se mely psat services jako GUI programy,
spravnejsi by melo byt psat je nevizualni a komunikovat s nimi
prostredky operacniho systemu pomoci klienta ktery GUI ma
(a ktery tedy muze byt na liste jako tray ikona).
Martin Schayna
Kursor PopupMenu
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 09.4.2002 13:35:12
Ahoj,
snazim se nejakym zpusobem zmenit kursor na PopupMenu
na main manu se mi to uz podarilo, odchycenim udalosti WM_INITMENU
na okne mam ToolBar a nekolik ToolButtonu
ToolButton.Style = tbsDropDown
ToolButton.DropdownMenu = PopupMenu
snazil jsem se o neco takoveho
var
OldWndProcToolBar:TWndMethod;
procedure TForm1.NewWndProcToolBar(var AMsg:TMessage);
begin
if AMsg.Msg=WM_INITMENUPOPUP then
SetCursor(Screen.Cursors[crHandPoint]);
OldWndProcToolBar(AMsg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OldWndProcToolBar:=ToolBar1.WindowProc;
ToolBar1.WindowProc:=NewWndProcToolBar;
{
nebo i pro ToolButton
OldWndProcToolBar:=ToolButton1.WindowProc;
ToolButton1.WindowProc:=NewWndProcToolBar;
}
end;
neprovedlo se to i pri klasickem PopupMenu, jak na ToolBaru i ToolButtonu
ToolBar.PopupMenu = PopupMenu
ToolButton.PopupMenu = PopupMenu
-------------------------------------
zkousel jsem dat Formu PopupMenu a odchytavat WM_INITMENUPOPUP, ale take nic
procedure WMInitMenuPopup(var AMsg:TMessage);message WM_INITMENUPOPUP;
procedure TForm1.WMInitMenuPopup(var AMsg:TMessage);
begin
SetCursor(Screen.Cursors[crHandPoint]);
inherited;
end;
-------------------------------------
zavolam-li PopupMenu klasicky fci z API
procedure WMRButtonDown(var AMsg:TMessage);message WM_RBUTTONDOWN;
procedure TForm1.WMRButtonDown(var AMsg:TMessage);
var FPoint:TPoint;
begin
GetCursorPos(FPoint);
TrackPopupMenu(PopupMenu1.Handle,TPM_LEFTALIGN,FPoint.x,FPoint.y,0,Form1.Handle,nil);
inherited;
end;
udalost WM_INITMENUPOPUP se vyvola
v cem je zakopany pes, a jak tedy mam nastavit kursor PopupMenu
Diky za kadou radu..... (W2k SP2, D5Ent SP2)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Seriova komunikace - chybne prijeti bytu
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 9.4.2002 13:38:49
> Nastaveni mam stejne, vidim to spis na HW zavadu v jednocipu, protoze kdys
> spojim u PC vystup se vstupem, tak to funguje (co vyslu to dostanu zpet).
> Zkousel jsem vymenit tu 2051 ale je to stejne. To nastaveni jsem
kontroloval
> snad tisickrat....
>
a co vymenit MAX232 ? nebo radeji predtim prekontrolovat jeho napajeni
(byva u neho asi 5 kondenzatoru )
Pavel
Imagelist a transtparentni bitmapy?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 9.4.2002 13:44:43
Zdravim ve spolek
mam tento problem: V aplikaci pouzivam jeden imagelist kde mam ulozene
vsechny pouzivane bitmapy (ikony do tlacitek). Na tlacitcich a v nabidkach
se mi zobrazuji spravne. Pokud ale chci bitmapu (GetBitmap) vykreslit na
Canvas tak se mi ta transparentnost pomrsi - bitmapa je pruhledna i tam kde
nema bejt.
Zkusil jsem zmenit v imagelistu vlastnost Masked na True a stalo se to ze na
Canvas uz vykresluju spravne ale tlacitka maji kolem sebe zase transparentni
barvu.
Nevite jak z tohodle ven?
Diky
D5Ent, W2000
Service a tray icon
[*] EFG developer <developer(zv)efg(tec)cz> - 9.4.2002 13:49:02
> panelu a mela
> > jen tray ikonu, tak se na program NEDOSTANU proto�e je
> pristupnz pouze
> > p�es tray ikonu, kter� tam neni.
>
> To teda nevim jestli by se mely psat services jako GUI
> programy, spravnejsi by melo byt psat je nevizualni a
> komunikovat s nimi prostredky operacniho systemu pomoci
> klienta ktery GUI ma (a ktery tedy muze byt na liste jako tray ikona).
>
> Martin Schayna
Naprosto souhlasim, jenomze aplikace je psana jako desktopova a pote
vyvstal pozadavek spoustet ji jako service (proto ten externi spustec).
...
Neexistuje nejaky API message neco jako UserChanged nebo UserLogged ?
Petr Sikola
Inctalace JVCL
[*] Roland Turcan <rolo(zv)sedas.sk> - 9.4.2002 14:01:16
----- Original Message -----
From: <ivan.virag(zv)aliatel(tec)cz>
> a zastavi se to v jednotce JvSysComp.pas na slove "wvWinNT3" v
nasledujicim kodu:
oprav na > if GetWindowsVersion in [wvWinNT31,wvWinNT4] then
TRoland.
array of TNeco
[*] ales.pavel(zv)popron(tec)cz - 9.4.2002 14:02:58
Ahoj kluci,
mam array of TNeco ve sluzbe NT a kdyz data uz nepotrebuji nastavuji
SetLength(TNeco,0) a furt dokola,jenze mam pocit ze se pri tom neuvolnuje
korektne pamet. Vola se jeste neco na uvolneni pameti? Nejaky finalize ci
co?
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
RichEdit - chyba ve Win2k, XP, NT4
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 9.4.2002 14:06:47
Mam pro Vas zajimavou vec.
V programu jsem si do RichEditu pod Win9x nacital seznamy. Ikdyz toho
bylo asi 1200 radku slo to v poradku.
Pokud totez udelam pod Win2k, XP, NT4 najednou to RichEdit usekne a
nezobrazi vsechno. Bylo to promenne podle startovaci pozice.
Chybu jsme nasli.
Ono totiz proste jenom staci na tom RichEditu nastavit hodnotu
"MaxLength" na nejake definovane cislo ... treba na 999999999 a pak to
jde v poradku. Proste to nesmi byt prazdne nebo na "0".
Co si o tom myslite. Pry neni RichEdit omezen na delku ???
D.
DBGRID SCROLL
[*] Jaro <jaroslav.hanusek(zv)nou.sk> - 9.4.2002 14:24:59
Zdravim, neviem, ci robim niekde chybu ale v poslednej dobe sa mi zopakoval
jeden divny problem:
Tabulka (paradox), ktora je zobrazena v DBgride sa prestane scrollovat. pri
pouziti sipiek alebo scrollbaru
sa sice kurzor v tabulke posuva, ale DBgrid sa odmieta refreshnut. Pri
opatovnom nastaveni focusu
na niektoru bunku (napr.kliknutim) sa obsah tej ktorej bunky zobrazi
spravne, pricom ostatne bunky zobrazuju
stale neodscrollovane bunky. Nie je mozne, ze je chyba v BDE?
Otevreni slozky Tento pocitac
[*] David Kraina <DKx(zv)seznam(tec)cz> - 09.4.2002 14:30:43
Ahoj,
neumite nekdo otevrit slozku Tento pocitac ? Dik DKx...
#DKx* - nemazat prosim, index do
filtru
______________________________________________________________________
Reklama:
Co vidite? - Odpovezte a vyhrajte Nokia 8310. Vice na http://ad2.seznam(tec)cz/redir.cgi?instance=25745%26url=http://www.covidite(tec)cz
Seriova komunikace - chybne prijeti bytu
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 9.4.2002 14:37:44
Zkus loopback zvetsit: vytahni 2051 a spoj v patici prijem a vysilani. Pak
by melo PC stale prijimat co vysle.
Tim vyloucis 232 u 2051.
Pak se podivej, jestli mas na zacatku komunikace stop bit. Obcas clovek
zapomene, nastavi port do stopbitu a HNED chce komunikovat - ale ono se musi
chvili (10bitu) pockat (zvlast, kdyz se pin pouziva na vic funkci). Taky se
obcas stane, ze tam ten stopbit je, ale pri inicializaci ser. portu se tam
dostane puls do 0 - a je hotovo.
A. Martinik
DBGRID SCROLL
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.4.2002 15:08:54
BDE si obcas dela co chce, ale tady bych to tipoval spise na tvoji chybu.
Tohle byva dusledek toho, ze metody DisableControls/EnableControls tridy
TDataSet byly spoustene neparove (tj. k nejakemu spusteni DisableControls
chybi EnableControls). Pripadne mohlo dojit k nejake vyjimce apod., kterou
mas sice osetrenou, ale zapomnel jsi (EnableControls) povolit updatovani
DBGridu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Zdravim, neviem, ci robim niekde chybu ale v poslednej dobe sa mi
zopakoval
> jeden divny problem:
> Tabulka (paradox), ktora je zobrazena v DBgride sa prestane scrollovat.
pri
> pouziti sipiek alebo scrollbaru
> sa sice kurzor v tabulke posuva, ale DBgrid sa odmieta refreshnut. Pri
> opatovnom nastaveni focusu
> na niektoru bunku (napr.kliknutim) sa obsah tej ktorej bunky zobrazi
> spravne, pricom ostatne bunky zobrazuju
> stale neodscrollovane bunky. Nie je mozne, ze je chyba v BDE?
Delphi 6 - Access violation v IDE
[*] ales.pavel(zv)popron(tec)cz - 9.4.2002 15:08:32
>Neporadite nekdo, co s tim, nechce se mi znovu instalovat W98 ani D6P!
Staci preinstalovat W98 na W2000:-) me to delalo taky nez jsem presel na
W2000:-) ja bych rekl ze se stim neda nic delat a souvisi to nejak s
tlacitkem reset, pri ladeni:-)
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
DbGrid - ulozeni a nacteni vlastnosti sloupcu
[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 9.4.2002 15:19:33
Ahoj,
existuje nejaka komponenta na ulozeni a nacteni vlastnosti jednotlivych sloupcu v DbGridu ?
Petr Dedecek
petrd(zv)atlas(tec)cz
Seriova komunikace - chybne prijeti bytu
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 9.4.2002 15:21:53
Diky vsem za odpovedi. Myslim, ze jsem ten vydesenej pripad. Nastavil jsem
nulu jako jeden stop bit a vsechno je OK.
Tomas
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 09, 2002 12:46 PM
Subject: Re: Seriova komunikace - chybne prijeti bytu
>
> To je propojene jak? Trivodicem? prijima to uplne nesmysly, nebo se
> jen vynechavaji znaky? nemas tam treba spatne stopbity (mnoho lidi je
> trosku vydesenych z toho, ze 1 znamena 1.5 stopbitu a 0 znamena 1
> stopbit...)
>Parametry pro SetTextAlign a ExtTextOut
[*] Str�n�k Franti�ek - 9.4.2002 15:29:16
Pratele - otazka:
Jak nastavit parametry pro API funkci SetTextAlign(), aby funkce ExtTextOut() vykreslila zadany retezec doprostred zadaneho Rect (ktery je vetsi nez sirka a vyska retezce !!!).
Diky za nazorny priklad.
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
Transparentni obrazek a paleta barev
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 9.4.2002 15:38:20
Paint Shop Pro pri konverzi True Color -> 256 barev ma zatrzitko, zda
maji byt v palete i Windows barvy.
Honza +
> From: Ales Radikovsky [mailto:radik(zv)allstar(tec)cz]
> ...
>
> prizpusoben. Nevite o nastroji, ktery dokaze editovat palety
> barev (tedy
> nejak inteligentne dve sloucit) nebo o jinem zpusobu, jak vyrobit
> "spravny" obrazek?
stored proc v IB 6
[*] Ing. Josef Kasal <kasal(zv)applic(tec)cz> - 9.4.2002 15:40:30
V nasledijici proc:
CREATE PROCEDURE SET_RM
(
VYR VARCHAR(25),
POS INTEGER
)
RETURNS
(
RETMIN INTEGER,
RETMAX INTEGER,
RET1 INTEGER,
RET2 INTEGER,
RET3 INTEGER
)
AS
DECLARE VARIABLE PosMin INTEGER;
DECLARE VARIABLE PosMax INTEGER;
BEGIN
PosMin = POS - 1;
RET1 = PosMin;
PosMin = RET1 / 15;
RET2 = PosMin;
PosMin = RET2 * 15;
RET3 = PosMin;
RETMIN = PosMin;
RETMAX = PosMax;
END;
V pripade ze pos je napr 2, RET2 = 0 ( 1 / 15 = 0);
V pripade ze pos je napr 12, RET2 = 1 ( 12 / 15 = 1);
Prosim nevi nekdo v cem je chyba? Nevi nekdo jak udelat, aby 12 / 15 = 0?
PS: mnozstvi promnenych odpovida memu stavu .... laborvani
Dik za kazdou odpoved.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.345 / Virov� b�ze: 193 - datum vyd�n�: 9.4.2002
zkouska postovniho serveru
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 09.4.2002 15:41:14
Dobry den,
nevite nekdo jak bych mohl otestovat jestli jsou parametry postovniho
serveru (SMTP) zadany spravne? Predem dik...
Service a tray icon
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.4.2002 15:43:47
>Mam GUI (forms,...) aplikaci, kterou spoustim p�es program treti
strany
>jako service.
>Pokud nastavim aby aplikace bezela pod uctem X, tak po zalogovani
>uzivatele X se aplikace zobrazi na plose a ma ikonu na hlavnim
>panelu.... Potud OK.
>
>Ale kdy� zakazu aby se aplikace zobrazovala na hlavnim panelu a mela
jen
>tray ikonu, tak se na program NEDOSTANU proto�e je pristupnz pouze
p�es
>tray ikonu, kter� tam neni.
>
>Otazka:
>jak zobrazit po zalogovani uzivatele X ikonku programu (kter� bezi
jako
>service) v tray ?
Services standardne zadne GUI nemaji. Pokud ano musi se o tom Service
manager informovat.
Druha vec je ta, ze system tray neexistuje stale. Vytvari se az
nejakou chvili po prihlaseni uzivatele a jediny zpusob jak rozumne
detekovat jeho vytvoreni je odchytit "TaskbarCreated" message viz:
TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
Teprve potom je mozne pridat ikonu to traye
D> Toman
Delphi 6 - Access violation v IDE
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 9.4.2002 15:44:55
>
> >Neporadite nekdo, co s tim, nechce se mi znovu instalovat W98 ani D6P!
>
> Staci preinstalovat W98 na W2000:-) me to delalo taky nez jsem presel na
> W2000:-) ja bych rekl ze se stim neda nic delat a souvisi to nejak s
> tlacitkem reset, pri ladeni:-)
>
Ja bych tak nejasal. Mam W2K, v D5 i 6 vidim AV v VCL*.bpl a CorIDE*.bpl
kazdou chvili.
AV pri spusteni muze souviset s ruznyma wizardama doinstalovanyma do IDE.
Neprijenne je, ze Delphi po chybe v IDE nejak zapomenou rozlozeni toolbaru.
Tom
MySQL + Zeos
[*] smallbear <smallbear(zv)centrum(tec)cz> - 9.4.2002 16:39:20
Ahoj,
stahnul jsem si na www.zeoslob.org balik pro primy pristup do dtb, konk. MySQL. Bohuzel ani na jejich strankach ani v zip bailku jsem nenasel zadny manual a nedari se mi to nainstalovat. Daval jste to nekdo nekdy dohromady? Popisete mi postup?
Diky, Tomas
Transparentni obrazek a paleta barev
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 09.4.2002 16:40:15
Jasc PaintShop Pro 7.0 (ted uza od verze 5).
Barvy -> Snizit -> Snizit na 256 barev -> [x] Zahrnout barvy Windows
>prizpusoben. Nevite o nastroji, ktery dokaze editovat palety barev (tedy
>nejak inteligentne dve sloucit) nebo o jinem zpusobu, jak vyrobit
>"spravny" obrazek?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
zkouska postovniho serveru
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 09.4.2002 16:43:10
Pripojit se a kouknout jesli poslal HELLO -> kazdy SMTP server se po
pripojeni predstavi.
Kuprikladu odpoved smtp.seznam(tec)cz:
220 Welcome ESMTP Sendmail 8.8.5/8.8.8; ESMTP
ci jinak:
220 www.flamingo(tec)cz ESMTP Sendmail 8.11.6/8.11.6; Tue, 9 Apr 2002 16:40:57
+0200
>nevite nekdo jak bych mohl otestovat jestli jsou parametry postovniho
>serveru (SMTP) zadany spravne? Predem dik...
>
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Kylix a DB
[*] ales.pavel(zv)popron(tec)cz - 9.4.2002 17:19:44
Mam doma Kylix personal free verzi, dotaz zni..jak je vlastne resena
komunikace s DB v kylixu (ja ji tam nejak nevidim:-)))) a jestli neexistujou
nejake free veci na komunikaci treba s IB/FB,MySQL
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
stored proc v IB 6
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 9.4.2002 17:35:09
Hi, Ing. !
you wrote:
[Skipped]
IJK> V pripade ze pos je napr 2, RET2 = 0 ( 1 / 15 = 0);
IJK> V pripade ze pos je napr 12, RET2 = 1 ( 12 / 15 = 1);
IJK> Prosim nevi nekdo v cem je chyba? Nevi nekdo jak udelat, aby 12 / 15 = 0?
Skousil jsem tuto proceduru na FireBird, a 12 / 15 = 0.
Co pouzivas ty ?
Best regards, Alex Cherednichenko.
test stanice
[*] cYd <cYd(zv)seznam(tec)cz> - 9.4.2002 17:41:27
Hezky den,
pracuji v internetove kavarne a obcas se mi stane, ze prijde vicero lidi
najednou, zalezou nekam k zadnim pocitacum, ja si jich nevsimnu a zapomenu
jim zapnout odpocet casu, ktery byli u pc. Proto bych chtel udelat nejaky
programek, ktery by sondoval, kdy zakaznik zacne pracovat s pc. Stacilo by,
aby mi na pc vyskocila nejaka hlaska, jako kdyz se treba pouzije obycejne
"net send stanice4 "pokuz"". Jak nejlepe tento problem vyresit? Napada Vas
neco? Predem Diky.
zapomnel jsem dodat, ze mam D3 C/S a win2000, omlouvam se :O)Service a tray icon
[*] EFG developer <developer(zv)efg(tec)cz> - 9.4.2002 17:46:45
> Services standardne zadne GUI nemaji. Pokud ano musi se o tom
> Service manager informovat. Druha vec je ta, ze system tray
> neexistuje stale. Vytvari se az nejakou chvili po prihlaseni
> uzivatele a jediny zpusob jak rozumne detekovat jeho
> vytvoreni je odchytit "TaskbarCreated" message viz:
> TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
>
> Teprve potom je mozne pridat ikonu to traye
>
> D> Toman
Myslim ze to bude ono, ale jak to napsat do kodu?
Do FormCreate dam
TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
Ale jak tu zpravu odchytnu ?
Pomohl by kousek kodu s deklaraci.
dekuji
Petr Sikola
Kylix a DB
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 09.4.2002 18:01:39
NEJSOU !!!, stejne tak jako u Delphi X Standard (ja mel verzi 4 i 5). Proto
byly take tak levne. Proste tam chybi databaze.
>Mam doma Kylix personal free verzi, dotaz zni..jak je vlastne resena
>komunikace s DB v kylixu (ja ji tam nejak nevidim:-)))) a jestli neexistujou
>nejake free veci na komunikaci treba s IB/FB,MySQL
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
test stanice
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 09.4.2002 18:06:34
Pouzil bych HOOK f-ce (mohu zaslat), ktere dokazi monitorovat pouzivani
mysi a klavesnice. Pokud by se tedy zacalo hybat mysi a hybalo by se treba
30sec (aby se zabranilo nechetenemu stouchnuti do krysy), pak by se poslala
zprava treba pres TCP/IP, nebo klidne pres to "net send....".
Hook f-ce musi byt DLL a pak k tomu aplikace (treba po startu), ktera
zavede tu DLL a pusti hakovani.
Jako notifikace bych pouzival TCP/IP spojeni a zasilal informace o
vyuziti pocitace k obsluze (kase).
>pracuji v internetove kavarne a obcas se mi stane, ze prijde vicero lidi
>najednou, zalezou nekam k zadnim pocitacum, ja si jich nevsimnu a zapomenu
>jim zapnout odpocet casu, ktery byli u pc. Proto bych chtel udelat nejaky
>programek, ktery by sondoval, kdy zakaznik zacne pracovat s pc. Stacilo by,
>aby mi na pc vyskocila nejaka hlaska, jako kdyz se treba pouzije obycejne
>"net send stanice4 "pokuz"". Jak nejlepe tento problem vyresit? Napada Vas
>neco? Predem Diky.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Service a tray icon
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 09.4.2002 18:10:01
type
TForm1=class...
...
protected
procedure WndProc(var Message: TMessage); override;
...
procedure TForm1.WndProc(var Message: TMessage);
begin
if message.Msg=TaskBarCreatedMessage then
begin
//...zpracovani me messagesky
end;
inherited;
end;
>Do FormCreate dam
> TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
>
>Ale jak tu zpravu odchytnu ?
>Pomohl by kousek kodu s deklaraci.
>
>dekuji
>Petr Sikola
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Kylix a DB
[*] Martin Chaloupka <Martin.Chaloupka(zv)gmx(tec)net> - 9.4.2002 18:16:07
> Mam doma Kylix personal free verzi, dotaz zni..jak je vlastne resena
> komunikace s DB v kylixu (ja ji tam nejak nevidim:-)))) a jestli
> neexistujou
> nejake free veci na komunikaci treba s IB/FB,MySQL
>
Zkuste se mrknout na http://sourceforge.net/ , urcite tam neco zajimaveho
najdete.
Nebo existuje take (pro Oracle) www.crlab.com - maj tam perfektni
komponentu, ovsem ve freewarove verzi Vam to bude pravidelne vyhazovat hlaseni, ze se
jedna o trial (nebo neco takopveho).
S pozdravem Martin Chaloupka
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
test stanice
[*] Roland Turcan <rolo(zv)sedas.sk> - 9.4.2002 19:35:00
----- Original Message -----
From: "cYd" <cYd(zv)seznam(tec)cz>
> Hezky den,
> pracuji v internetove kavarne a obcas se mi stane, ze prijde vicero lidi
> najednou, zalezou nekam k zadnim pocitacum, ja si jich nevsimnu a zapomenu
> jim zapnout odpocet casu, ktery byli u pc. Proto bych chtel udelat nejaky
> programek, ktery by sondoval, kdy zakaznik zacne pracovat s pc. Stacilo
by,
> aby mi na pc vyskocila nejaka hlaska, jako kdyz se treba pouzije obycejne
> "net send stanice4 "pokuz"". Jak nejlepe tento problem vyresit? Napada Vas
> neco? Predem Diky.
Ja som to vyriesil, nasledovne. Zakaznik si zapina aj vypina PC, t.j. mam
maly programcek na serveri, ktory kazdu minutu spravi PING PC1, PING PC2 a
ked nejaky pribudne tak zalogujem ze pribudol a ked uz ho vypli tak zase
zalogujem ze ho vypli. Sluzi mi to na kontrolu ci casnicky neklamu na
internete a ak by zakaznik nevypol PC tak je to vec casnicky, lebo ma za
ulohu sledovat ci bolo PC vypnute.
Ak chces poslem ti ten programik.
TRoland.
DbGrid - ulozeni a nacteni vlastnosti sloupcu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 9.4.2002 18:57:20
Ahoj,
On 9 Apr 2002, at 15:19, Petr Dedecek wrote:
> existuje nejaka komponenta na ulozeni a nacteni vlastnosti
> jednotlivych sloupcu v DbGridu ?
na to nepotrebujes komponentu. Podivej se na metody
DBGrid.Columns.SaveToFile a DBGrid.Columns.LoadFromFile
Jarek Uher
DBGRID SCROLL
[*] miro mrazik <preas_w(zv)stonline.sk> - 9.4.2002 19:58:41
Ahoj,
mne sa kedysi nieco podobneho dialo v suvislosti s poskodenou tabulkou neslo
ju opravit ani utilitami na opravu pdx tabuliek. Dialo sa mi to od urciteho
zaznamu.
Tiez sa to javilo ako problem so scroolovanim v dbgride.
Potom som zaznamy po tento vadny zaznam musel skopirovat do jednej tabulky,
presunut sa zan a prepisat tie dalsie zaznamy tiez do novej tabulky.
Utility na opravu tabuliek mi hlasili vsetko OK, ze tabulku opravili OK.
Tabulka sa nedala ani prekopirovat pomocou BatchMove a nedala sa ani
previest do formatu DBF.
Miro
> > Tabulka (paradox), ktora je zobrazena v DBgride sa prestane scrollovat.
> pri
> > pouziti sipiek alebo scrollbaru
> > sa sice kurzor v tabulke posuva, ale DBgrid sa odmieta refreshnut. Pri
test stanice
[*] cYd <cYd(zv)seznam(tec)cz> - 9.4.2002 20:44:22
to se mi zrovna moc nehodi, ja mam ty pocitace nalogovany stale a nevypinam
je...u w2000 to neni (vetsinou :O) treba
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 09, 2002 7:35 PM
Subject: Re: test stanice
>
> ----- Original Message -----
> From: "cYd" <cYd(zv)seznam(tec)cz>
> > Hezky den,
> > pracuji v internetove kavarne a obcas se mi stane, ze prijde vicero lidi
> > najednou, zalezou nekam k zadnim pocitacum, ja si jich nevsimnu a
zapomenu
> > jim zapnout odpocet casu, ktery byli u pc. Proto bych chtel udelat
nejaky
> > programek, ktery by sondoval, kdy zakaznik zacne pracovat s pc. Stacilo
> by,
> > aby mi na pc vyskocila nejaka hlaska, jako kdyz se treba pouzije
obycejne
> > "net send stanice4 "pokuz"". Jak nejlepe tento problem vyresit? Napada
Vas
> > neco? Predem Diky.
>
> Ja som to vyriesil, nasledovne. Zakaznik si zapina aj vypina PC, t.j. mam
> maly programcek na serveri, ktory kazdu minutu spravi PING PC1, PING PC2 a
> ked nejaky pribudne tak zalogujem ze pribudol a ked uz ho vypli tak zase
> zalogujem ze ho vypli. Sluzi mi to na kontrolu ci casnicky neklamu na
> internete a ak by zakaznik nevypol PC tak je to vec casnicky, lebo ma za
> ulohu sledovat ci bolo PC vypnute.
> Ak chces poslem ti ten programik.
>
> TRoland.
>
>
Service a tray icon
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.4.2002 21:07:44
>
> Myslim ze to bude ono, ale jak to napsat do kodu?
>
> Do FormCreate dam
> TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
>
> Ale jak tu zpravu odchytnu ?
> Pomohl by kousek kodu s deklaraci.
>
tu zpravu broadcastuje Windows vsem oknum (a mozna i jinam). cili musis
vytvorit okno (neviditelne) a k nemu prislusnou WndProc, ktera cte a
zpracovava zpravy. Pokud se ta zprava broadcastuje i threadum tak by stacilo
cist fronti zprav pro thread.
Vice viz msdn.microsoft.com
Service a tray icon
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.4.2002 21:09:04
> type
> TForm1=class...
> ...
> protected
> procedure WndProc(var Message: TMessage); override;
> ...
>
> procedure TForm1.WndProc(var Message: TMessage);
> begin
> if message.Msg=TaskBarCreatedMessage then
> begin
> //...zpracovani me messagesky
> end;
> inherited;
> end;
>
pouzivat TForm v service neni ta nejstastnejsi vec...
D. Toman
Otevreni slozky Tento pocitac
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2002 23:39:18
From: "David Kraina" <DKx(zv)seznam(tec)cz>
> neumite nekdo otevrit slozku Tento pocitac ? Dik DKx...
uses
JclShell, ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenSpecialFolder(CSIDL_DRIVES);
end;
Petr Vones
array of TNeco
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2002 23:41:19
From: <ales.pavel(zv)popron(tec)cz>
> mam array of TNeco ve sluzbe NT a kdyz data uz nepotrebuji nastavuji
> SetLength(TNeco,0) a furt dokola,jenze mam pocit ze se pri tom neuvolnuje
> korektne pamet. Vola se jeste neco na uvolneni pameti? Nejaky finalize ci
> co?
Pokud je TNeco typ ktery vyzaduje dalsi alokaci (jako napriklad string,
dyn.pole nebo Variant) tak prekladac musi vlozit kod ktery provede uvolneni
pameti na kterou to pole ve skutecnosti ukazuje. Vice Finalize procedure v
helpu.
Petr Vones
Delphi 6 - Access violation v IDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2002 23:52:04
From: "Petr Jansky" <delphi(zv)amzdy(tec)cz>
> Obcas se mi stava toto: normalne ladim aplikaci a nekdy pri spusteni
> aplikace z IDE mo to hazi nasledujici hlasky:
> "Access violation at address 4011079C in module 'VCL.BPL'. Read of address
>
> Neporadite nekdo, co s tim, nechce se mi znovu instalovat W98 ani D6P!
1. Instalovat aktualni Update Packy (jak na Delphi tak na OS)
2. Odstranit veskere 3rd party komponenty a IDE experty (po te je nutne
restartovat IDE) a pozorovat jestli se neco zmeni
3. Podivat se jestli se do procesu nenatahuje DLL od nejakeho spatneho print
driveru (predevsim od HP) popripade od nejake zmatlane utility pouzivajici
systemove hooky apod.
4. Nepouzivat rezidentni antiviry
5. Obecne se Win9x na vyvoj aplikaci nehodi a ladeni (hlavne multithreadovych
aplikaci) je dost problematicke. Resenim je pouzivat operacni system k tomu
ucelu zhotoveny, tedy Windows 2000 nebo XP.
Petr Vones
Komponenta COM, ovladani TxD
[*] Michal VOJTA <michal.vojta(zv)iol(tec)cz> - 10.4.2002 01:27:36
Ahoj,
nevite nekdo o komponente, co umi jednoduse ovladat TxD na COM portu?
Na normalni komunikaci pouzivam Async32, ale ta to neumi.
Potrebuji 3 vystupy na ovladani externiho hardware, DTR a RTS je sranda,
jenom nemuzu najit nic na TxD.
Torryho jsem prosmejdil, ale zkouset vsech cca 50 komponent se mi moc nechce
:-(.
Michal VOJTA
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.343 / Virov� b�ze: 190 - datum vyd�n�: 22.3.2002
DBGRID SCROLL
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 10.4.2002 06:39:33
Nemas treba problem s nastavenim TDataset.DisableControls a naslednym
vynechani EnableControls?
Sroub
> Zdravim, neviem, ci robim niekde chybu ale v poslednej dobe sa mi
zopakoval
> jeden divny problem:
> Tabulka (paradox), ktora je zobrazena v DBgride sa prestane scrollovat.
pri
> pouziti sipiek alebo scrollbaru
> sa sice kurzor v tabulke posuva, ale DBgrid sa odmieta refreshnut. Pri
> opatovnom nastaveni focusu
> na niektoru bunku (napr.kliknutim) sa obsah tej ktorej bunky zobrazi
> spravne, pricom ostatne bunky zobrazuju
> stale neodscrollovane bunky. Nie je mozne, ze je chyba v BDE?
Hinty v IDE (D5) nad ikonami komponent
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 10.4.2002 07:00:20
Tim to asi nebude, stalo se to pred tremi dny, a RX mam uz dva roky. Nemuze
to byt instalaci nejake verze DirectX nebo ovladace ci kodeku? Zda se mi ze,
od te doby jsou i nestabilni Delphi 5 (na Win2K se mi to prijde divne). A
kazda aplikace, kterou ladim, se neukonci, zustane viset v debug modu a
musim odstrelit IDE Delphi (a jedna se o aplikace, ktere byly vzdy
bezpecne). Teprve pak to shodim. Mam preinstalovat Delphi nebo nekde neco
nastavit?
Diky
Ka
> > zmizely (nezobrazuji se) hinty nad ikonami komponent v IDE D5 pod
> > Win2000(+SP) a zmrskaly se (nejsou transparentni) i ikony v programech,
> > ktere pouzivaji speedbar z RXLib. Ale na jinych strojich (W2K, W98,ME)
to
> > paradne chodi. Kde muze byt problem? Ja se s tim jeste nesetkal.
>
> Patrne v RxLib.
>
> Petr Vones
Kylix a DB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.4.2002 07:26:39
Haj hou!
On 9 Apr 2002, at 17:19, ales.pavel(zv)popron(tec)cz wrote:
> Mam doma Kylix personal free verzi, dotaz zni..jak je vlastne
resena
> komunikace s DB v kylixu (ja ji tam nejak nevidim:-)))) a jestli
neexistujou
> nejake free veci na komunikaci treba s IB/FB,MySQL
V Kylixu OE podpora databazi neni, ale na SourceForge ma
Borland projekt FreeCLX, ktery ji ma a da se pry s trochou dobre
vule dostat. Jinak vetsina lidi pouziva s Kylixem OE ZEOS
komponenty (rovnez open source).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Service a tray icon
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 10.4.2002 06:30:04
Ja to resim tak, ze pri spusteni sluzby si zaregistruji message
TaskbarCreated a pak ve wndproc kontroluji tuto zpravu a eventuelne
vytvarim znovu tray ikonu. Pozor funguje to pouze s MSIE 5.0 a vyssim.
Kousek kodu :
var
FTaskbarCreated: DWord;
procedure Initialize;
begin
FTaskbarCreated:=RegisterWindowMessage('TaskbarCreated');
end;
procedure TMainForm.WndProc(var Message: TMessage);
begin
if Message.Msg = FTaskbarCreated then
begin
AddTrayIcon;
Refresh;
end;
inherited WndProc(Message);
end;
Marian
> EFG developer napsal
>
> Zdravim,
>
> Mam GUI (forms,...) aplikaci, kterou spoustim p�es program
> treti strany
> jako service.
> Pokud nastavim aby aplikace bezela pod uctem X, tak po zalogovani
> uzivatele X se aplikace zobrazi na plose a ma ikonu na hlavnim
> panelu.... Potud OK.
>
> Ale kdy� zakazu aby se aplikace zobrazovala na hlavnim panelu
> a mela jen
> tray ikonu, tak se na program NEDOSTANU proto�e je pristupnz
> pouze p�es
> tray ikonu, kter� tam neni.
>
> Otazka:
> jak zobrazit po zalogovani uzivatele X ikonku programu (kter�
> bezi jako
> service) v tray ?
Komponenta COM, ovladani TxD
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 10.4.2002 07:39:38
> nevite nekdo o komponente, co umi jednoduse ovladat TxD na COM portu?
Myslim si, ze nic nenajdes. TxD je signal, po kterem se prenaseji data.
Muzes nastavit rychlost, pocet prenasenych bitu, atd...,
pak nastavis BYTE na port, a ten je pak zpracovan hardwarem portu.
Pavel
Komponenta COM, ovladani TxD
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 10.4.2002 07:42:50
Mas na mysli jak rucne natvrdo nastavit tento signal na 1 ci 0? Pokud
je mi znamo, tak to pres Windows nejde... Pokud nekdo vi jak na to,
rad to do Synaseru zadratuji. ;-)
> nevite nekdo o komponente, co umi jednoduse ovladat TxD na COM portu?
> Na normalni komunikaci pouzivam Async32, ale ta to neumi.
> Potrebuji 3 vystupy na ovladani externiho hardware, DTR a RTS je sranda,
> jenom nemuzu najit nic na TxD.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: #DKx*
[*] David Kraina <DKx(zv)seznam(tec)cz> - 10.4.2002 07:42:57
Nekolikrat jste se me ptali, co znamena to
#DKx* - nemazat prosim, index do filtru.
Pokud server e-mailu nalezne ve zprave #DKx*, preposle mi tuto spravu
na mobil. Proto mam lepsi prehled o tom, zdali mi nekdo odpovedel na
muj dotaz, a nemuze se mi stat, ze to jako uz nekolikrat smazu.
Vetsine dotazu do konference nerozumim, proto je mazu uz jenom podle
subjektu. Co vypada zajimave prectu, pokud vim, tak se pokusim
odpovedet.
Takze prosim #DKx* nemazte. Dekuji
DKx.
______________________________________________________________________
Reklama:
Penize petkrat jinak... http://www.genius(tec)cz