Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Ctecka po x-te
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 25.3.2003 08:56:16
ze jeste otravuju s tou cteckou... je teda na klavesnicovych portech,
nevite, jestli teda bude aktivovat hook na klavesnici, kdyz z ni neco
prectu???
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
overrload staticke metody
[*] Rudolf Musil <musil(zv)ro.vutbr(tec)cz> - 25.3.2003 08:50:50
No popravde objektove slozitosti docela ovladam jen jsem chtel vedet zda
li neni nejaka moznost obejit chyby ve zdrojacich Borlandu. Napr. v CLX
TCustomImageList. Tam maji:
TCustomImageList = class(TComponent)
private
procedure DoDraw(Index: Integer; Canvas: TCanvas; X, Y: Integer;
AImage: TImageType; Enabled: Boolean); virtual;
public
procedure Draw(Canvas: TCanvas; X, Y, Index: Integer;
AImageType: TImageType = itImage; Enabled: Boolean = True);
end;
Existuje nejaka moznost??
Diky Ruda.M
Bronislav Klucka wrote:
>funkcnost:
>mejme 3 pripady
>
>1/
>a=class
>public
>procedure show;
>end;
>
>b=class(a)
>public
>procedure show;
>end;
>
>procedure a.show;
>begin
>showmessage('a');
>end;
>
>procedure b.show;
>begin
>showmessage('b');
>end;
>
>
>procedure delej;
>var x:a;
> y:b;
>begin
> y:=b.create;
> x:=y;
> x.Show; (zobrazi 'a');
> y.Show; (zobrazi 'b');
>end;
>
>
>2/
>a=class
>public
>procedure show;
>end;
>
>b=class(a)
>public
>procedure show;
>end;
>
>procedure a.show;
>begin
>showmessage('a');
>end;
>
>procedure b.show;
>begin
>inherited;
>showmessage('b');
>end;
>
>
>procedure delej;
>var x:a;
> y:b;
>begin
> y:=b.create;
> x:=y;
> x.Show; (zobrazi 'a');
> y.Show; (zobrazi 'a' a potom 'b');
>end;
>
>3/
>
>a=class
>public
>procedure show;virtual; {dynamic}
>end;
>
>b=class(a)
>public
>procedure show;override;
>end;
>
>procedure a.show;
>begin
>showmessage('a');
>end;
>
>procedure b.show;
>begin
>inherited;
>showmessage('b');
>end;
>
>
>procedure delej;
>var x:a;
> y:b;
>begin
> y:=b.create;
> x:=y;
> x.Show; (zobrazi 'b');
> y.Show; (zobrazi 'b');
>end;
>
>
>Jasne? ::)
>
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>Behalf Of Lebeda David
>Sent: Tuesday, March 25, 2003 7:13 AM
>To: delphi-l(zv)clexpert(tec)cz
>Subject: Re: overrload staticke metody
>
>
>
>
>>Je mozne nejakym zpusobem prepsat statickou metodu v objektu?
>>
>>
>
>Rekl bych ze ne, resp. jen s castecnym efektem a to muze byt horsi
>nez nic. Nic Ti nebrani v potomkovi zalozit novou metodu se
>stejnym jmenem, ale pak pozor - pri behu si musis davat setsakra
>pozor, ktera z nich se zavola:
>
>Necht napr. mame tridu
>
>class TPredek
> public
> procedure Pracuj;
>end;
>
>class TPotomek(TPredek)
> public
> procedure Pracuj;
>end;
>
>var
> x: TPredek;
> y: TPotomek;
>
>y := TPotomek.Create;
>x := y;
>
>x.Pracuj; //zavola Pracuj z predka
>y.Pracuj; //zavola Pracuj z potomka
>
>I navzdory tomu, ze skutecna instance, na kterou ukazuji promenne
>x a y, je stejneho typu.
>
>-------------------------------------
>Takhle jsem presvedcen, ze to je a doufam, ze nekecam, kdyz tak
>me nekdo opravte.
>
>David Lebeda
>
>
>
>
Synapse FTPSend - connected
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 25.3.2003 08:43:26
> D=EDky. Aplikace =ABek=E1 zadan=FD =ABas. interval (10 minut) a pak st=E1=
hne v=E1e
> nov=E9, co na ftp p=D9ibylo. Nejprve vylistuje a pak v cyklu st=E1hne. B=
�hem
> t�ch 10 minut ale m=EF=FEe doj=EDt k p=D9eru=E1en=ED spojen=ED a to t=ED=
m zp=EFsobem, co
> jsi popsal, nezjist=EDm...
Zjistis... zkusis poslat prikaz NOOP a podivas se, jestli rpobehl
dobre nebo jestli hodil chybu.
Ono to hlavne fakt jinak zjistit nejde! An, existuji komponenty,
ktere tu property Connected maji, ale zadivej se nekdy do zdrojaku,
jak je ta property vlastne obsluhovana.... Ono fakt rozpadle (nemam
na mysli korektne ukoncene) TCP spojeni nejde zjistit jinak nez
pokusem o komunikaci!
> Nefungoval mi postup: Login, sta=FEen=ED, logout a po 10 minut=E1ch znov=
u
> login... ten login u=FE neprob�hl - LastError bylo 10038 (Socket
> operation on nonsocket). Netu=E1=EDm p=D9esn� kde byla chyba, vy=D9e=E1i=
l jsem
> to t=EDm, =FEe ten objekt FTP po sta=FEen=ED zru=E1im a pak ho znovu vyt=
vo=D9=EDm...
> Takhle to funguje.
Aha... v tomto pripade by bylo lepsi normalne provest login, podivat
se na adresar, a pak provest logout. Po deseti minutach proces
opakovat. ;-)
> Jsem zv�davej, a=FE tu aplikaci d=E1me na server, jestli to dok=E1=FEe b=
�=FEet
> ve v=EDce instanc=EDch. S NMFTP to ne=E1lo - ob=ABas se to zakouslo, =FE=
e to
> n�=E1lo schodil ani killem.
Vice instanci opravdu neni pro Synapsi problem! ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Win98 a seriova tiskarna
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.3.2003 08:39:08
Dobry den,
u zakaznika jsem narazil ve Win98 na zajimavy problem: ma seriove tiskarny (termotransferovou a
dve pokladni). Pokud je tiskarna ve Win pozastavena a moje aplikace do ni neco posila, ulohy se
zpusobne radi do fronta. Pozastaveni se vypne, vse se vytiskne.
Pokud vsak fronta pozastavena neni a aplikace stejnym zpusobem posila data, nevytiskne se nic,
nebo treba jen cast prvni tiskove ulohy. Zbytek zmizi zpravidla beze stopy, nekdy to vypada,
jakoby vypadla data "z prostredka" - dojde k chybam pri tisku grafiky (sum).
U tiskaren pripojenych paralelne se tento jev nevyskytuje.
Setkal jste se s tim jiz nekdo? Dokazali byste poradit napravu? Zlobi to pri tisku grafiky, ale i
pri znakovem tisku.
Dekuji,
Karel Rys
Minimalizace DOS aplikace z Delphi aplikace.
[*] Petr Dedecek <petrd(zv)omega-lbc(tec)cz> - 25.3.2003 08:34:24
Ahoj,
DOS aplikace mi bezi na cele obrazovce, soucasne bezi Delphi program, =
ktery kdyz dostane od DOS aplikace textak, vykona nejakou operaci . =
Nedari se mi z Delphi programu shodit DOS aplikaci na listu, aby byl =
videt prubeh cinnosti Delphi programu. Zpatky DOS program na celou =
obrazovku umim roztahnout. Nevite co s tim. Dik. =20
Petr Dedecek
petrd(zv)omega-lbc(tec)cz
overrload staticke metody
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 25.3.2003 08:22:27
funkcnost:
mejme 3 pripady
1/
a=class
public
procedure show;
end;
b=class(a)
public
procedure show;
end;
procedure a.show;
begin
showmessage('a');
end;
procedure b.show;
begin
showmessage('b');
end;
procedure delej;
var x:a;
y:b;
begin
y:=b.create;
x:=y;
x.Show; (zobrazi 'a');
y.Show; (zobrazi 'b');
end;
2/
a=class
public
procedure show;
end;
b=class(a)
public
procedure show;
end;
procedure a.show;
begin
showmessage('a');
end;
procedure b.show;
begin
inherited;
showmessage('b');
end;
procedure delej;
var x:a;
y:b;
begin
y:=b.create;
x:=y;
x.Show; (zobrazi 'a');
y.Show; (zobrazi 'a' a potom 'b');
end;
3/
a=class
public
procedure show;virtual; {dynamic}
end;
b=class(a)
public
procedure show;override;
end;
procedure a.show;
begin
showmessage('a');
end;
procedure b.show;
begin
inherited;
showmessage('b');
end;
procedure delej;
var x:a;
y:b;
begin
y:=b.create;
x:=y;
x.Show; (zobrazi 'b');
y.Show; (zobrazi 'b');
end;
Jasne? ::)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lebeda David
Sent: Tuesday, March 25, 2003 7:13 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: overrload staticke metody
> Je mozne nejakym zpusobem prepsat statickou metodu v objektu?
Rekl bych ze ne, resp. jen s castecnym efektem a to muze byt horsi
nez nic. Nic Ti nebrani v potomkovi zalozit novou metodu se
stejnym jmenem, ale pak pozor - pri behu si musis davat setsakra
pozor, ktera z nich se zavola:
Necht napr. mame tridu
class TPredek
public
procedure Pracuj;
end;
class TPotomek(TPredek)
public
procedure Pracuj;
end;
var
x: TPredek;
y: TPotomek;
y := TPotomek.Create;
x := y;
x.Pracuj; //zavola Pracuj z predka
y.Pracuj; //zavola Pracuj z potomka
I navzdory tomu, ze skutecna instance, na kterou ukazuji promenne
x a y, je stejneho typu.
-------------------------------------
Takhle jsem presvedcen, ze to je a doufam, ze nekecam, kdyz tak
me nekdo opravte.
David Lebeda
Z jake aplikace byl spusten exe
[*] EFG Developer <developer(zv)efg(tec)cz> - 25.3.2003 08:30:19
Zdravim, lze nejakym zpusobem zjistit z jake aplikace byl spusten exe,
neco jako application parent nebo owner ?
mam aplikaci A a ta spousti dalsi moji aplikaci B. Potreboval bych v
aplikaci B zjistit, ze ji prave spustila aplikace A.
Nechci pouzit parametry.
Dekuji Sikola
Q: tvorba dialog-driven wizardu
[*] Eichler Marek <Marek.Eichler(zv)access-it(tec)cz> - 25.3.2003 07:14:15
zDRAVIM,
>>> nikodym.dvorak(zv)post(tec)cz 03/24 9:21 odp. >>>
>Dobry den,
>
>prosim o radu ve veci zminene (mozna nepresne)
>v subjektu. Chci vytvorit aplikaci v Delphi 6,
>ktera by se chovala podobne jako napr. vetsina
>instalacnich programu. Dialog uzivateli neco
>sdeli a ocekava, ze uzivatel stiskne Next,
>v dalsim dialogu treba navic neco vyklika a pak
>Vopet stiskne Next nebo uz Finish, atd. atp.
>
>Jakym zpusobem tohle resite? Je na to nejaky
>preddefinovany template v Delphi 6 (nejak jsem
>ho tam nemohl najit) nebo se to resi nejakou
>fintou? Pripada mi prilis drsne napr. kreslit
>a rusit dynamicky vsechny komponenty potrebne
>na konkretnim formulari/dialogu.
No ja bych to resil tak, ze bych na formular umistil komponentu
TPageControl a u jednotlivych zalozek (TTabSheet) bych nastavil
vlastnost TabVisible na false no a pomoci tlacitka DALSI bych prechazel
mezi jednotlivyma zalozkama
>Predem diky.
>--nik
overrload staticke metody
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.3.2003 07:12:47
> Je mozne nejakym zpusobem prepsat statickou metodu v objektu?
Rekl bych ze ne, resp. jen s castecnym efektem a to muze byt horsi
nez nic. Nic Ti nebrani v potomkovi zalozit novou metodu se
stejnym jmenem, ale pak pozor - pri behu si musis davat setsakra
pozor, ktera z nich se zavola:
Necht napr. mame tridu
class TPredek
public
procedure Pracuj;
end;
class TPotomek(TPredek)
public
procedure Pracuj;
end;
var
x: TPredek;
y: TPotomek;
y := TPotomek.Create;
x := y;
x.Pracuj; //zavola Pracuj z predka
y.Pracuj; //zavola Pracuj z potomka
I navzdory tomu, ze skutecna instance, na kterou ukazuji promenne
x a y, je stejneho typu.
-------------------------------------
Takhle jsem presvedcen, ze to je a doufam, ze nekecam, kdyz tak
me nekdo opravte.
tvorba dialog-driven wizardu
[*] bleak <bleak(zv)mvesely(tec)com> - 25.3.2003 06:30:41
tohle delam komponentou PageControl se skrytymi zalozkami...
bleak
----- Original Message -----
From: "Nikodym Dvorak" <nikodym.dvorak(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 24, 2003 9:21 PM
Subject: Q: tvorba dialog-driven wizardu
> Dobry den,
>
> prosim o radu ve veci zminene (mozna nepresne)
> v subjektu. Chci vytvorit aplikaci v Delphi 6,
> ktera by se chovala podobne jako napr. vetsina
> instalacnich programu. Dialog uzivateli neco
> sdeli a ocekava, ze uzivatel stiskne Next,
> v dalsim dialogu treba navic neco vyklika a pak
> opet stiskne Next nebo uz Finish, atd. atp.
>
> Jakym zpusobem tohle resite? Je na to nejaky
> preddefinovany template v Delphi 6 (nejak jsem
> ho tam nemohl najit) nebo se to resi nejakou
> fintou? Pripada mi prilis drsne napr. kreslit
> a rusit dynamicky vsechny komponenty potrebne
> na konkretnim formulari/dialogu.
>
> Predem diky.
> --nik
>
> --
> Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
> poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
> vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
>
>
TDBGrid - vyska radku
[*] <delphik(zv)email(tec)cz> - 24.3.2003 23:58:16
Tohle vim, ale nehodi se mi to. I presto dik za radu. Je nejaky jiny zpus=
ob, aniz bych musel menit velikost fontu ? Delphik
_________________________________________________________________________=
_____
U=B9et=F8=EDte, kdy=BE to stihnete... Slevy produkt=F9 HP a=BE 40 %! Note=
book 25.980 K=E8, server 19.980 K=E8, po=E8=EDta=E8 + monitor 17.700 K=E8=
! V=EDce http://www.email(tec)cz/akce_hp
TDBGrid - vyska radku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.3.2003 23:31:29
From: <delphik(zv)email(tec)cz>
> Zdravim, poradte, prosim, jak muzu nastavit vysku radku u TDBGrid. Dik za
Zmenou velikosti fontu - TDBGrid.Font
TDBGrid - vyska radku
[*] <delphik(zv)email(tec)cz> - 24.3.2003 23:03:21
Zdravim, poradte, prosim, jak muzu nastavit vysku radku u TDBGrid. Dik za=
rady. Delphik (D5, SP1)
_________________________________________________________________________=
_____
U=B9et=F8=EDte, kdy=BE to stihnete... Slevy produkt=F9 HP a=BE 40 %! Note=
book 25.980 K=E8, server 19.980 K=E8, po=E8=EDta=E8 + monitor 17.700 K=E8=
! V=EDce http://www.email(tec)cz/akce_hp
Sledovanie vymeny media pri TShellComboBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.3.2003 21:41:08
From: "Tomas Hustava" <tommyx(zv)zoznam.sk>
> viete mi niekto poradit s problemom pri komponente TShellComboBox?
> Potrebujem, aby sa po vymeneni media (napr. CD, disketa) a kliknuti na
> spominany komponent zobrazili spravne nazvy medii, tj. aj toho, ktore som
type
TForm1 = class(TForm)
ShellComboBox1: TShellComboBox;
private
procedure WMDeviceChange(var Message: TMessage); message WM_DEVICECHANGE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TCustomShellComboBoxAccess = class(TCustomShellComboBox);
{ TForm1 }
procedure TForm1.WMDeviceChange(var Message: TMessage);
begin
TCustomShellComboBoxAccess(ShellComboBox1).RootChanged;
inherited;
end;
Sledovanie vymeny media pri TShellComboBox
[*] Tomas Hustava <tommyx(zv)zoznam.sk> - 24.3.2003 21:24:42
Zdravim,
viete mi niekto poradit s problemom pri komponente TShellComboBox?
Potrebujem, aby sa po vymeneni media (napr. CD, disketa) a kliknuti na spominany
komponent zobrazili spravne nazvy medii, tj. aj toho, ktore som prave vymenil.
Ono si to totiz pamata stary nazov media, ale ja potrebujem aby mi to zistilo
nove medium (nieco podobne ako ked napr. Total Commander caka na medium).
Nemate niekto nejaku rutinku v asm, alebo nejaky delphi kod, ktory by "cakal"
kym bude nove medium pristupne a zistil by meno noveho vymeneneho media?
Dakujem.**********************************
TOMMY
http://tommyx.webpark.sk
mailto:tommyx(zv)zoznam.sk
**********************************
Q: tvorba dialog-driven wizardu
[*] Nikodym Dvorak <nikodym.dvorak(zv)post(tec)cz> - 24.3.2003 21:21:04
Dobry den,
prosim o radu ve veci zminene (mozna nepresne)
v subjektu. Chci vytvorit aplikaci v Delphi 6,
ktera by se chovala podobne jako napr. vetsina
instalacnich programu. Dialog uzivateli neco
sdeli a ocekava, ze uzivatel stiskne Next,
v dalsim dialogu treba navic neco vyklika a pak
opet stiskne Next nebo uz Finish, atd. atp.
Jakym zpusobem tohle resite? Je na to nejaky
preddefinovany template v Delphi 6 (nejak jsem
ho tam nemohl najit) nebo se to resi nejakou
fintou? Pripada mi prilis drsne napr. kreslit
a rusit dynamicky vsechny komponenty potrebne
na konkretnim formulari/dialogu.
Predem diky.
--nik
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
Pouziti Gameportu pro osciloskop
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.3.2003 21:13:09
From: "Milan Ne�as" <ok2umn.milan(zv)tiscali(tec)cz>
> touto problematikou se zab�v� kniha B.Kainky - vyu�it� rozhran� PC pod
> Windows, vydal HEL a prod�v� ji (v �e�tin�) tu��m, �e BEN. Je tam i soubor
> PORT.DLL, kter� se vyu��v� k p�enos�m v�emi mo�n�mi porty PC.
Zadnou nesmyslnou DLL nepotrebujes, viz API funkce joyGetPosEx a spol, tusim
ze na to byla i nejaka komponenta od Sinei, viz http://www.sinea(tec)cz
Petr Vones
Pouziti Gameportu pro osciloskop
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.3.2003 21:07:56
From: "Petr Pa��enko" <PetrPas(zv)volny(tec)cz>
> poterboval bych poradit s pouzitim GamePortu. Programuji aplikaci typu
> osciloskopu a potreboval bych cist analogovou hodnotu napeti, jez se meni s
> casem. Nevite nekdo jak z Delphi cist z GamePortu?
Cist se sice da ale k tomu ucelu je to naprosto nepouzitelne. Pouzij nejaky
A/D prevodnik.
Petr Vones
Pouziti Gameportu pro osciloskop
[*] Milan Ne�as <ok2umn.milan(zv)tiscali(tec)cz> - 24.3.2003 21:04:52
Zdrav=EDm v=9Aechny =E8ten=E1=F8e,
touto problematikou se zab=FDv=E1 kniha B.Kainky - vyu=9Eit=ED rozhra=
n=ED PC pod
Windows, vydal HEL a prod=E1v=E1 ji (v =E8e=9Atin=EC) tu=9A=EDm, =9Ee BEN=
. Je tam i soubor
PORT.DLL, kter=FD se vyu=9E=EDv=E1 k p=F8enos=F9m v=9Aemi mo=9En=FDmi por=
ty PC.
Provoz p=F8es GAME port jsem nezkou=9Ael, ale ostatn=ED m=E1m otestov=
an=E9 a jako
z=E1kladn=ED sezn=E1men=ED mohu i s hardwarov=FDmi 'bastly' doporu=E8it. =
Pro v=E1=9En=ECj=9A=ED
pr=E1ci je vhodn=ECj=9A=ED pou=9E=EDvat lep=9A=ED hardware (j=E1 pou=9E=ED=
v=E1m PICy ...... ale to
asi do t=E9to konference nepat=F8=ED).
Je=9At=EC si vzpom=EDn=E1m, =9Ee autor m=E1 svoje str=E1nky a na n=EC je =
odkaz tu=9A=EDm, =9Ee
pr=E1v=EC ze str=E1nek vydavatelstv=ED BEN.
K t=E9to problematice je=9At=EC malou pozn=E1mku - GAME port je nep=F8=
esn=FD, co=9E je
d=E1no jeho konstrukc=ED (tu=9A=EDm, =9Ee mal=E1 stabilizace referen=E8n=ED=
ho nap=ECt=ED).
Vhodn=ECj=9A=ED je p=F8evod nap=ECt=ED na digit=E1ln=ED veli=E8inu (nebo=
alespo=F2 kmito=E8et) a
jej=ED dal=9A=ED zpracov=E1n=ED.
Dal=9A=ED informace i s n=ECjakou rutinou vy=9Ala kdysi i v Amat=E9rs=
k=E9m Radiu
..... nutno p=E1trat ... p=F9vodn=ED =E8l=E1nek nem=E1m.
Milan
Ne=E8as - OK2UMN
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
Popup menu v treeview
[*] Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz> - 24.3.2003 20:46:44
This is a forwarded message
From: Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Date: Friday, March 21, 2003, 10:27:57 PM
Subject: Popup menu v treeview
===8<==============Original message text===============
Dobry den,
ve VCL moc nedelam a proto mi odpustte mozna zacatecnicky problem.
Potrebuji pracovat v TreeView s Popupmenu.
To lze standardne nastavit pro cely TreeView - dedeni z TControl.
Jak vsak mohu nastavit ruzne Popupmenu pro konkretni polozky v
TreeView.
Pr.:
root (potrebuju popup menu)
- dir1 (potrebuju popup menu)
- zaznam1 (potrebuju popup menu)
Diky za pripadny helpik :)
--
Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz>
E-mail klient :: TheBat! 1.62i/CZ
Antivirus :: Avast! 4.0 Home Edition
Dev :: Borland Delphi 7.0 Personal
avast! (VPS 21.3.2003): zprava neobsahuje virus
===8<===========End of original message text===========
--
Best regards,
Jakub mailto:jakub.cizek(zv)chatspace(tec)cz
Pouziti Gameportu pro osciloskop
[*] Petr Pa��enko <PetrPas(zv)volny(tec)cz> - 24.3.2003 20:44:06
Dobry den,
poterboval bych poradit s pouzitim GamePortu. Programuji aplikaci typu
osciloskopu a potreboval bych cist analogovou hodnotu napeti, jez se meni s
casem. Nevite nekdo jak z Delphi cist z GamePortu?
Pripadne pokud by mel nekdo nejaky napad jak to obejit pres jina zarizeni,
at mi prosim odpovi. Potrebuji kazdou radu. Seriovy ani paralelni port nelze
pouzit, protoze umoznuji jen digitalni vstup a ja potrebuji cist hodnoty
analogove.
S Pozdravem a diky za kazdou odpoved Petr Pascenko
ADOQuery - NextRecordSets count II
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.3.2003 19:41:47
>Zdravim.
> Jak zjistim pocet vracenych recordsetu abych mohl vsechny postupne
priradit
> pomoci
> ADODataSet1.RecordSet := ADOQuery1.NextRecordSet(i);
> cili jak ukoncit smycku
> while ?????? do
> begin
> ADODataSet1.RecordSet := ADOQuery1.NextRecordSet(i);
> Zpracuj(ADODataSet1);
> end;
Ahoj.
Jeste to trochu rozsirim.
Krom toho, ze dopredu nevim kolik ResultSetu mi to vrati tak jeste navic mam
problem pokud se mezi prikazy vracejici data vloudi nejaky ktery data
nevraci.
Napr.
select * from table1
select * from table2
select * from table3
je OK ale
select * from table1
update table2 set ....
select * from table3
Tady metoda ADOQuery.NextRecordSet(i) padne s hlaskou "Record set is not
open" a k resultu select * from table3 se nijak nedostanu.
Jeste jednou predem diky za kazde nakopnuti.
Ludek
Re[2]: Ctecka caroveho kodu
[*] WebPriestor <peter(zv)psoft.sk> - 24.3.2003 18:28:31 -0800
LG> My tohle vyresili tak, ze merime rychlost, jakou se ty znaky toho
LG> caroveho kodu sypou. Musi prichazet tak rychle, ze neni v lidskych
LG> suilach tak rychle ten kod vytukat.. a zaroven musi prichazet pomaleji,
LG> nez kdyz tam ten kod prdnes z clipboardu.. ;-)
A pritom najjednoduchsie je to naozaj prdnut na seriovy port, focus
moze byt kde chce prefix akykolvek a funguje to vzdy. Preto mam radsej
seriove scannery.
A este jedna vec : pokial mas pripojenu aj vahy, niektore vahy a
scannery potrebuju medzi sebou rozne potvrdenia prenosu, a to ti
klavesnica neurobi, ani keby bola neviem aka ...
Peter.
Velke problemy s ShellExecute a spousteni MS Wordu
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 24.3.2003 17:55:09
> Nekdy to probehne bleskove a je vse OK,
> nekdy to trva par sekund a nekdy i 20 minut.
Raz som zazil pripad, ze niekomu sa z internetu nanosilo do pocitaca
nejake ActiveX, ktore malo na nejaky server bonzovat adresne riadky s
MSIE. Prejavovalo sa to tak, ze po zadani novej adresy sa 30 sekund
nic nedialo (mrtvy MSIE, ako keby server bol down) a potom pohoda.
Pritom na klik na aktivny odkaz bola reakcia okamzita.
Keby ovsem ten server fungoval, tak by odozva bola zrejme okamzita
vzdy a naopak, ked nie je pripojenie na internet, moze timeout byt aj
niekolko minut.
bye
vmlich
WebBrowser a XML
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 24.3.2003 17:33:29
Myslim, ze delka souboru je ve Win max. 260 znaku.
Sablonu ti posilam na tvuj mail.
Tom
>
> Mohl by jsi mi tedy tu sablonu prosim poslat? Nebo mi rict kde ze je, ja
> jsem ji hledal, ale nenasel :o( ps. Co kdyz budu potrebovat nacpat vetsi
> soubor nez je 530 znaku? Mas jeste na tohle nejaky tip? Snad by se na to
slo
> dostat prez Document, ale zkousel jsem importovat MSHTML typovou knihovnu
a
> prilis to nedoporucuju, po naimportovani ma neco prez 300 000 radek a vazi
> neco prez 10 MB (myslim ten vytvorenej MSXML.pas) :o( a s tim se vazne
neda
> pracovat.
>
> Diky a zdar
komponenta
[*] <petr.vlasak(zv)centrum(tec)cz> - 24.3.2003 16:52:08
Zdravim, nevite nekdo, kde sehnat komponentu - panel palety barev -
takovy, jaky je treba v colordialogu v te rozsirene nabidce? nebo
alespon tu funkci, ktera to vykresluje (podle odstinu, sytosti,
svetelnosti urci hodnotu pro R,G,B)? diky za odpoved
--------------------
Chcete ADSL na mesic zdarma? http://user.centrum(tec)cz/redir.php?url=http://www.in192(tec)cz
Synapse FTPSend - connected
[*] <jimysforum(zv)centrum(tec)cz> - 24.3.2003 17:16:20
D=EDky. Aplikace =E8ek=E1 zadan=FD =E8as. interval (10 minut) a pak st=E1=
hne v=B9e=20
nov=E9, co na ftp p=F8ibylo. Nejprve vylistuje a pak v cyklu st=E1hne.=20
B=EChem t=ECch 10 minut ale m=F9=BEe doj=EDt k p=F8eru=B9en=ED spojen=ED=
a to t=EDm=20
zp=F9sobem, co jsi popsal, nezjist=EDm...
Nefungoval mi postup: Login, sta=BEen=ED, logout a po 10 minut=E1ch zno=
vu=20
login... ten login u=BE neprob=EChl - LastError bylo 10038 (Socket=20
operation on nonsocket). Netu=B9=EDm p=F8esn=EC kde byla chyba, vy=F8e=B9=
il jsem=20
to t=EDm, =BEe ten objekt FTP po sta=BEen=ED zru=B9im a pak ho znovu=20
vytvo=F8=EDm... Takhle to funguje.
Jsem zv=ECdavej, a=BE tu aplikaci d=E1me na server, jestli to dok=E1=BE=
e b=EC=BEet=20
ve v=EDce instanc=EDch. S NMFTP to ne=B9lo - ob=E8as se to zakouslo, =BE=
e to=20
n=EC=B9lo schodil ani killem.
Jinak musim uznat, =BEe je to slu=B9n=E1 sada komponent, v=B9echna =E8e=
st...
Jirka
______________________________________________________________
> Od: <delphi-l-owner(zv)clexpert(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:=20
> Datum: Mon, 24 Mar 2003 16:58:54 +0100
> P=F8edm=ECt: Re: Synapse FTPSend - connected
>
> > chci se zeptat, jak poznam u FTP Synapse, zda jsem prilogovanej ci
> > nikoliv? Je tu neco jako u NMFTP je property Connected?
>=20
> poznas to snadno... pripojeny jsi od okamziku, kdyz si dal=20
pozadavek na
> pripojeni (a skoncil uspesne). Pripojen jsi tak dlouho, dokud se
> neod[pojis, nebo dokud pri cteni ci zapisu dat nedojde k nejake=20
chybe,
> ktera vede k rozpojeni.
>=20
> > Moc se nevyznam v sitich, potrebuju jednou za dany casovy interval
> > vypsat obsah nejakeho adresare a stahnout ho. Dari se mi jen z=20
casti.
> > Po stazeni vsech souboru dam Logout a pri naslednem novem login za
> > deset minut uz se nepriloguju - po krokovani jsem zjistil, ze se
> > nastavi FSock.LastError na 10038 (Socket operation on nonsocket)=20
a to
> > vubec netusim, co znamena... poradi mi nekdo?
>=20
> Zkousis dnesni Synapsi? Jestli ne, tak doporucuji upgrade!
> Jinak mezi temi dvema pokusy likvidujes a znovu vytvaris objekt=20
TFTPSend?
>=20
> -- Lukas Gebauer.
>=20
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
> Library
>=20
--------------------
Zm=EC=F2 se d=EDky nov=FDm, barevn=FDm =E8o=E8k=E1m FreshLook! Nyn=ED a=
k=E8n=ED nab=EDdka. http://user.centrum(tec)cz/redir.php?url=3Dhttp://www=
=2Ecibavision(tec)cz=20
WebBrowser a XML
[*] Tom� Janta��������{����Y��̿ - 24.3.2003 17:06:58
Ahoj,
Mohl by jsi mi tedy tu sablonu prosim poslat? Nebo mi rict kde ze je, ja
jsem ji hledal, ale nenasel :o( ps. Co kdyz budu potrebovat nacpat vetsi
soubor nez je 530 znaku? Mas jeste na tohle nejaky tip? Snad by se na to slo
dostat prez Document, ale zkousel jsem importovat MSHTML typovou knihovnu a
prilis to nedoporucuju, po naimportovani ma neco prez 300 000 radek a vazi
neco prez 10 MB (myslim ten vytvorenej MSXML.pas) :o( a s tim se vazne neda
pracovat.
Diky a zdar
Tomas
> Zdar
> Muzes vypreparovat tu vnitrni sablonu (myslim, ze ji mam) a pak pomoci ni
> transformovat XML a vystup hodit do WB - pomoci streamu nebo Write metody.
> Jinak WB.Navigate ma omezeni delky parametru asi na 530 znaku.
> Tom
>
>> Ahoj,
>> nemate nekdo tuseni zda je mozne ve WebBrowseru zobrazovat XML kod aniz
>> bych jej musel nejdriv ulozit na disk? Kdyz WebBrowserem nactu soubor s
>> priponou XML tak se pouzije vnitrni sblona XSLT a IE XML data zobrazi
>> podle teto sblony. Napriklad pokud chci zobrazit HTML kod, staci pouzit
>> metodu Navigate: WebBrowser1.Navigate("about:<HTML><HR>blabla<HR></HTML
>> >"); a IE zobrazi uhlednou HTML stranku, ale neprisel jsem na to zda je
>> mozne nejakym podobnym zpusobem zobrazit XML stranku. Jedinou moznosti
>> je XML nejdrive ulozit na disk a pak pouzit: WebBrowser1.Navigate('D:\
>> xml.xml');
>> W2k, D5 prof.
>> Tomas Jantac
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov� b�ze: 248 - datum vyd�n�: 10.1.2003
Problem se scrollovanim TDrawGrid
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 24.3.2003 17:12:29
Narazil jsem na chybu v komponente TDrawGrid.
Pokud kliknu misi na posledni (spodni ) bunku, ktera neni cela viditelna=
,
tak se provede scroll ne o jeden ale o n=ECkolik radku.
Klavesnici to funguje OK.
Problem je zrejme v tom, ze scroll reaguje na to ze spodek bunky je mimo
okno misto toho aby reagoval na to ze mys je mimo okno.
Snazil jsem se zjistit ve zdrojaku cim to je, ale je to dost silene.
Resil jste to nekdo ?
Co s tim ?Synapse FTPSend - connected
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.3.2003 16:58:54
> chci se zeptat, jak poznam u FTP Synapse, zda jsem prilogovanej ci
> nikoliv? Je tu neco jako u NMFTP je property Connected?
poznas to snadno... pripojeny jsi od okamziku, kdyz si dal pozadavek na
pripojeni (a skoncil uspesne). Pripojen jsi tak dlouho, dokud se
neod[pojis, nebo dokud pri cteni ci zapisu dat nedojde k nejake chybe,
ktera vede k rozpojeni.
> Moc se nevyznam v sitich, potrebuju jednou za dany casovy interval
> vypsat obsah nejakeho adresare a stahnout ho. Dari se mi jen z casti.
> Po stazeni vsech souboru dam Logout a pri naslednem novem login za
> deset minut uz se nepriloguju - po krokovani jsem zjistil, ze se
> nastavi FSock.LastError na 10038 (Socket operation on nonsocket) a to
> vubec netusim, co znamena... poradi mi nekdo?
Zkousis dnesni Synapsi? Jestli ne, tak doporucuji upgrade!
Jinak mezi temi dvema pokusy likvidujes a znovu vytvaris objekt TFTPSend?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Jak nacist stukturu databaze
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 24.3.2003 16:53:31
Hrube nedoporucuji pouzivat tabulky sysobjects a syscolumns, MS primo
upozornuje na skutecnost, ze jejich struktura nemusi byt s verzemi zahovana,
vcetne pouzitych konstant. Lepsi reseni je pouziti systemovych view
INFORMATION_SCHEMA.* a procedur sp_help*
Pokud pozivas SQLAnalyser, tak tyto view jsou videt v DB master, ale
existuji ve vsech DB. Proc se tam nezobrazuji to nevim.
Pavel
PS: pokud by ses rozhodl presto pozivat sysobjects a syscolumns doporucuji
tato view jako "studijni material"> From: Ludek ZITA [mailto:konference(zv)sales(tec)cz]
> > Zdravim
> > Poradte prosim jak elegantne a pokud mozno bez velkeho programovani
> :))))))
> > nacist strukturu dat z MSSQL2000 databaze.
>
> Uz jsem to objevil.
> Je to zakleto v tabulkach sysobjects a syscolumns
>
> Ludek
overrload staticke metody
[*] Rudolf Musil <musil(zv)ro.vutbr(tec)cz> - 24.3.2003 16:18:34
Je mozne nejakym zpusobem prepsat statickou metodu v objektu?
Dik Ruda.M
Re[3]: Velke problemy s ShellExecute a spousteni M
[*] mstevlik(zv)gamo.sk - 24.3.2003 16:11:07
Skus si vytvorit jedno execko, kt. nebude robit nic ine len ten
ShellExecute na Word.
Potom nech tvoja aplikacia nevola priamo Word ale toto exe. Ma to dve
vyhody:
1. Spustenie toho execka je okamzite a tvoja aplikacia slape dalej
2. Ak by pri priamom volani nieco zblblo vo worde, nezamrzne tvoja
aplikacia ale to male execko
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
Synapse FTPSend - connected
[*] <jimysforum(zv)centrum(tec)cz> - 24.3.2003 15:50:52
Ahoj,
chci se zeptat, jak poznam u FTP Synapse, zda jsem prilogovanej ci
nikoliv? Je tu neco jako u NMFTP je property Connected?
Moc se nevyznam v sitich, potrebuju jednou za dany casovy interval
vypsat obsah nejakeho adresare a stahnout ho. Dari se mi jen z casti.
Po stazeni vsech souboru dam Logout a pri naslednem novem login za
deset minut uz se nepriloguju - po krokovani jsem zjistil, ze se
nastavi FSock.LastError na 10038 (Socket operation on nonsocket) a to
vubec netusim, co znamena... poradi mi nekdo?
Diky.
jirka
--------------------
Chcete ADSL na mesic zdarma? http://user.centrum(tec)cz/redir.php?url=http://www.in192(tec)cz
Re[3]: Velke problemy s ShellExecute a spousteni M
[*] <js-delphi(zv)quick(tec)cz> - 24.3.2003 15:22:06
Problem je v tom, ze ja sam mam uz zkusenosti s
pouzitim OLE a otviranim dokumentu, ale
dodavateli se do toho moc nechce a chtel by
zustat u tohoto zpusobu, ktery donedavna
fungoval... Problem je, ze i kdyz menime verzi IS
na nejakou prastarou, davame zpet stare sablony
MS Wordu, chova se to stejne a nejsme schopni
prijit na duvod tohoto chovani.
Proc myslis, ze se snazi Word otevrit vice
dokumentu? U nas to funguje tak, ze si uzivatel
vybere sablonu, podle ktere chce jet a ta ma
odkaz (referenci) jeste na jednu sablonu
(master), ktera pomoci DDE serveru zajistuje
komunikaci se serverem, od ktereho obdrzi data na
vyplneni poli sablony.
Tohle vsechno probiha korektne, novy dokument se
otevre, hodnoty se nactou, ve Wordu muzu psat,
takze to uz snad ani nema mit zadny duvod otvirat
dalsi dokument.
Problem je, ze to visi a visi. Nekdy to probehne
bleskove a je vse OK, nekdy to trva par sekund a
nekdy i 20 minut. Uz jsme si dali zobrazovani
hlasek pred ShellExecute a za nim coz nam
potvrdilo, ze to visi skutecne na tomto radku. :(
Nemas jeste nejakou ideu? "Treba" jak vystopovat
otevirani vice dokumentu v jedne instanci Wordu...
Ja jsem si do ted myslel, ze f-ce ShellExecute je
f-ce asynchronni, tzn. ze aplikace bude okamzite
pokracovat v behu dal.
Diky za kazdou radu
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
----- Puvodni zprava -----
> Word standardne otevira vice dokumentu v
> jedne instanci a patrne se o to
> snazi i v ShellExecute.
> Ale nemel by byt problem pres OLE otevrit
> dalsi instanci (word.application)
> a tam otevrit dalsi dokument.
Re[2]: Velke problemy s ShellExecute a spousteni M
[*] <js-delphi(zv)quick(tec)cz> - 24.3.2003 14:56:25
Ahoj.
Jsem trouba... Nenapsal jsem, ze Word uz je davno
otevreny, ja si v nem muzu vesele editovat, ale
program je "kously" na tom radku ShellExec();
Omlouvam se.
Co s tim?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
----- Puvodni zprava -----
> Je mozno vyzkouset spusteni wordu normalne,
> tedy z menu. Pokud se cekani
> projevuje stale, tak je to sitovou
> tiskarnou. Kdyz je defaultni tiskarna
> sitova a nedostupna, tak to strasne dlouho
> trva. Pomohlo nastavit jako
> defaultni jinou tiskarnu.
Re[2]: Velke problemy s ShellExecute a spousteni M
[*] Delphin <delphin(zv)post(tec)cz> - 24.3.2003 15:05:09
> Ahoj.
> Jsem trouba... Nenapsal jsem, ze Word uz je davno
> otevreny, ja si v nem muzu vesele editovat, ale
> program je "kously" na tom radku ShellExec();
> Omlouvam se.
> Co s tim?
Word standardne otevira vice dokumentu v jedne instanci a patrne se o to
snazi i v ShellExecute.
Ale nemel by byt problem pres OLE otevrit dalsi instanci (word.application)
a tam otevrit dalsi dokument.
Ctecka caroveho kodu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.3.2003 14:54:08
> Jenze ten pre/postfix si muzu z klavesnice vytukat taky, takze ses vedle jak
> ta jedle....
My tohle vyresili tak, ze merime rychlost, jakou se ty znaky toho
caroveho kodu sypou. Musi prichazet tak rychle, ze neni v lidskych
suilach tak rychle ten kod vytukat.. a zaroven musi prichazet pomaleji,
nez kdyz tam ten kod prdnes z clipboardu.. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Velke problemy s ShellExecute a spousteni MS Wordu
[*] Delphin <delphin(zv)post(tec)cz> - 24.3.2003 14:37:15
Je mozno vyzkouset spusteni wordu normalne, tedy z menu. Pokud se cekani
projevuje stale, tak je to sitovou tiskarnou. Kdyz je defaultni tiskarna
sitova a nedostupna, tak to strasne dlouho trva. Pomohlo nastavit jako
defaultni jinou tiskarnu.
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>
To: "konference delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 24, 2003 2:06 PM
Subject: Velke problemy s ShellExecute a spousteni MS Wordu s pramatrem
dokumentu, pls HLEP!> Ahoj.
> V praci delam neco jako admina a ted s
> dodavatelem jednoho IS resime nasledujici
> problem, ktery ZNACNE omezuje v praci vsechny
> uzivatele a proto MOC PROSIM o jakoukoliv radu!
> Predem diky!!!
> Jde o to, ze aplikace dojde na misto, kde se
> provadi klasicka API f-ce ShellExec(), kde se
> spousti MS Word a jako parametr se posle nazev
> dokumentu, ktery se ma vytvorit, popr. otevrit.
> PROBLEM:
> Nekdy to probehne bleskove a nekdy to strasne
> trva - i 20 minut!!!, coz uzivatele STRASNE
> omezuje v praci.
> Nesetkal jste se s tim nekdo?
> Oper. sys., kde se problem objevuje nejvic -
> W2000Prof(5.00.2195)+SP2
>
> Diky moc.
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>
>
Velke problemy s ShellExecute a spousteni MS Wordu
[*] <js-delphi(zv)quick(tec)cz> - 24.3.2003 14:06:49
Ahoj.
V praci delam neco jako admina a ted s
dodavatelem jednoho IS resime nasledujici
problem, ktery ZNACNE omezuje v praci vsechny
uzivatele a proto MOC PROSIM o jakoukoliv radu!
Predem diky!!!
Jde o to, ze aplikace dojde na misto, kde se
provadi klasicka API f-ce ShellExec(), kde se
spousti MS Word a jako parametr se posle nazev
dokumentu, ktery se ma vytvorit, popr. otevrit.
PROBLEM:
Nekdy to probehne bleskove a nekdy to strasne
trva - i 20 minut!!!, coz uzivatele STRASNE
omezuje v praci.
Nesetkal jste se s tim nekdo?
Oper. sys., kde se problem objevuje nejvic -
W2000Prof(5.00.2195)+SP2
Diky moc.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Ctecka caroveho kodu
[*] campulka <campulka(zv)czas(tec)cz> - 24.3.2003 14:05:58
> > > je nejak mozne rozeznat, co prislo z ctecky a co z klavesnice?
> >
> > Ne.
>
> Ale ano. Ctecka muze poslat prefix (a taky postfix), podle
> ktereho muze
> aplikacni program poznat co prislo ze ctecky.
>
> Jaroslav Nadhera
Jenze ten pre/postfix si muzu z klavesnice vytukat taky, takze ses vedle jak
ta jedle....
Jirka.
Ctecka caroveho kodu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 24.3.2003 13:17:50
> > je nejak mozne rozeznat, co prislo z ctecky a co z klavesnice?
>
> Ne.
Ale ano. Ctecka muze poslat prefix (a taky postfix), podle ktereho muze
aplikacni program poznat co prislo ze ctecky.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
Aky DBGrid
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 24.3.2003 13:08:02
Dobry den,
do obsluhy udalosti OnDrawColumnCell
DBGrid1.Canvas.TextRect(rect, rect.left, rect.Top,
Table1.FieldByName('Neco').AsString);
DBGrid1.Canvas.Draw(Rect.right, Rect.Top, obrazek);
Obrazek je TBitMap
Petr
----- Original Message -----
From: "Pavol Svorc" <svorcp(zv)pp.internet.sk>
> Zdravim,
> potreboval by som poradit ako do DBgrid dorobit nejaku bitmapu, ktora
> by sa zobrazovala celkom vlavo v kazdom riadku (v tej sedej casti, v
> zahlavi riadku ci ako to nazvat). Vyber ikonky by zavisel od hodnoty
> niektoreho fieldu v tom gride. V archive som nasiel ako farbit
> riadky, toto ale nie.
Aky DBGrid
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 24.3.2003 13:00:20
Zdravim,
potreboval by som poradit ako do DBgrid dorobit nejaku bitmapu, ktora
by sa zobrazovala celkom vlavo v kazdom riadku (v tej sedej casti, v
zahlavi riadku ci ako to nazvat). Vyber ikonky by zavisel od hodnoty
niektoreho fieldu v tom gride. V archive som nasiel ako farbit
riadky, toto ale nie.
V najhorsom pripade by sa ta ikona mohla zobrazovat aj ako prvy field
v tom gride.
Pripadne uvitam odkaz na nejaku, podla moznosti free, komponentu,
ktora by sa vedela ulozit do ini tak ako rxDBGrid. Pouzivat sa to
bude len na prezeranie, nie editaciu.
Vdaka.
P.Svorc
Ctecka caroveho kodu
[*] campulka <campulka(zv)czas(tec)cz> - 24.3.2003 12:58:03
> sorry, ze otravuju s tou cteckou ::), ale to se mi tedy pri
> cteni 10mistneho
> cisla zavola u editu 10x OnChange? U formulare 10x OnKeyDown?
Ano.
> je nejak mozne rozeznat, co prislo z ctecky a co z klavesnice?
Ne.
> mainform musi zachytavat nektere stiky (F1,^Q apod.) a jestli
> nepoznam, co
> je z ctecky a co z klavesnice, budu v tom mit peknej
> bordel... jak poznam,
> ze cteni bylo ukonceno, pokud mi neposle CRLF? nepoznam?
Ne.
Ale jeste sem nevidel ctecku, ktera CRLF neposila, nebo se u ni neda
nakonfigurovat
nakej ten ukoncovaci znak...
Jirka.
WebBrowser a XML
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 24.3.2003 12:47:16
Zdar
Muzes vypreparovat tu vnitrni sablonu (myslim, ze ji mam) a pak pomoci ni
transformovat XML a vystup hodit do WB - pomoci streamu nebo Write metody.
Jinak WB.Navigate ma omezeni delky parametru asi na 530 znaku.
Tom
> Ahoj,
>
> nemate nekdo tuseni zda je mozne ve WebBrowseru zobrazovat XML kod aniz
bych
> jej musel nejdriv ulozit na disk? Kdyz WebBrowserem nactu soubor s
priponou
> XML tak se pouzije vnitrni sblona XSLT a IE XML data zobrazi podle teto
> sblony. Napriklad pokud chci zobrazit HTML kod, staci pouzit metodu
> Navigate: WebBrowser1.Navigate("about:<HTML><HR>blabla<HR></HTML>"); a IE
> zobrazi uhlednou HTML stranku, ale neprisel jsem na to zda je mozne
nejakym
> podobnym zpusobem zobrazit XML stranku. Jedinou moznosti je XML nejdrive
> ulozit na disk a pak pouzit: WebBrowser1.Navigate('D:\xml.xml');
>
> W2k, D5 prof.
>
> Tomas Jantac
>
>
>
Ctecka caroveho kodu
[*] Bronislav Klucka <Bronislav.Klucka(zv)pro2-soft(tec)com> - 24.3.2003 11:52:49
sorry, ze otravuju s tou cteckou ::), ale to se mi tedy pri cteni 10mistneho
cisla zavola u editu 10x OnChange? U formulare 10x OnKeyDown?
je nejak mozne rozeznat, co prislo z ctecky a co z klavesnice?
mainform musi zachytavat nektere stiky (F1,^Q apod.) a jestli nepoznam, co
je z ctecky a co z klavesnice, budu v tom mit peknej bordel... jak poznam,
ze cteni bylo ukonceno, pokud mi neposle CRLF? nepoznam?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lukas Gebauer
Sent: Monday, March 24, 2003 11:19 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Ctecka caroveho kodu
Takova ctecka doslova simuluje klavesnici!
Takze se to bude chovat uplne stejne, jako kdybys v tu danou chvili
ty cisla caroveho kodu vytkaval rucne do klavesnice. takze si to
muzes nazorne vyzkouset, jak to bude vypadat i bez ctecky!
Budes-li mit focus na teditu, tak se ti kod napise do nej. Obvykle
jsou ctecky nastavene tak, ze posilaji na konci i ented, takze se to
zpracovava pohodlne.
> Zakaznik povidal, ze ctecky budou na PS/2 a na starem portu pro
> klavesnice (to kolecko, ja furt nevim jak se to jmenuje ::)) Tzn mam
> obsluhovat nejekej WMKEYDOWN? nebo co se mi vrati, pokud prejede prez
> ctecku? Co se stane, pokud budu mit focus v TEdit, a co se stane,
> pokud budu mit focus na TForm?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Vytvoreni NT service s DCOM
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 24.3.2003 12:21:29
ahoj,=0D
=0D
studoval sem prispevky v konferenci a jine prispevky na NETu o tvorbe
service s DCOM a vyplynulo z nich toto:=0D
=0D
server + service:=0D
1) vytvorim TServiceApplication - Name: DCOM_service=0D
2) vytvorim AutomationObject=0D
=0D
3) nainstaluju sluzbu=0D
4) zaregistruju AutomationObject=0D
5) volam fci RegisterAsService(AutomationObject_classID, 'DCOM_service')=0D
=0D
6) sluzbu nastavim na ucet UCT\kklimes=0D
7) AutomationObject nastavim na ucet UCT\kklimes=0D
=0D
client:=0D
- ConnectKind :=3D ckRunningInstance;=0D
=0D
=0D
- spustim sluzbu=0D
- spustim klienta=0D
=0D
pri volani metod AutomationObjektu z klienta dostanu hlasku:=0D
"Unable to retrieve a pointer to a running object registered with OLE for=
..
".=0D
=0D
PROC? Vzdyt sluzba bezi.=0D
=0D
=0D
dik=0D
=0D
Karel Klimes
Ctecka caroveho kodu
[*] Bronislav Klucka <Bronislav.Klucka(zv)pro2-soft(tec)com> - 24.3.2003 11:33:51
Je napojena na PS/2 port a na ten stary (kulaty) na klavesnici
Jak to teda je? Musi se teda obsluhovat nejaky WM_KEYDOWN?? co se stane,
pokud mam focus na TEdit? nebo na TForm?
Brona
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lukas Gebauer
Sent: Monday, March 24, 2003 8:40 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Ctecka caroveho kodu
> Nemate nekdo funkcni Freeware (nebo vlasni) program na obsluhu ctecky?
> nemohl byste mi ho poslat? (zdrojaky)
Pokud je napojena na klavesnici, pak nepotrebujes vubec zadny
software, je to stejne, ajklo kdyby ten kod obsluha vytukala na
klavesnici.
Pokud je seriova, tak ty ja obsluhuju svym SynaSerem. ;-) (viz link v
podpisu...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Ctecka caroveho kodu
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 24.3.2003 11:46:36
>Co se stane, pokud budu mit focus v TEdit,
> a co se stane, pokud budu mit focus na TForm?
Ku kazdemu snimacu byva prilozena knizecka s ciarovymi kodmi
obsahujucimi povely pre nakonfigurovanie. Okrem ineho sa tam da
nastavit aj znak preambuly a postambuly, to su kody, ktore sa prilepia
pred a za retazec s nacitanym kodom.
Takze tebe staci len definovat preambulovy kod ako hotkey pre formular
a nech je kurzor kdekolvek, aktivuje sa ti edit, do ktoreho sa ciarovy
kod normalne pise rucne. Pritom sa vyselektuje cely text, takze
nasledne nacitany retazec cely obsah editu prepise.
Ked si ako postambulu das Tab, tak pri vhodnom TabOrder ti to hned
skoci na edit pre vlozenie mnozstva. Alebo pri postambule CR ti urobi
OnClick na tlacitko s vlastnostou Default na true.
bye
vmlich
Tisk obecnych dat ve FastReportu?
[*] <rdanhel(zv)centrum(tec)cz> - 24.3.2003 11:41:05
Jde to . Je tam UserDataset ktery si osetris treba v eventu=20
OnGetValue. Dobre je se podivat na demo PrnGrid u FastReportu, je to=20
sice demo na grid, ale da se to aplikovat na libovolnou promenou z=20
programu. Je to celkem dobre modifikovatelne. Doporucuji take procist=20
manual.
S pozdravem Rostislav Danhel
> Ahoj vespolek, zkousim si hrat s FastReportem a zajima me, jak v nem
> tisknout obecna data, tj. data ne z databaze, ale treba z ListBoxu=20
apod. V
> teto souvislosti jsem si stahl i AllReport, ktery to umi (a zase=20
neumi
> databaze) a nemohu uverit, ze by to FastReport neumel. Muze me nekdo
> nasmerovat?
>=20
> Diky predem
>=20
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
> http://web.redbox(tec)cz/petr.brant
>=20
> D&COMM s.r.o.
> Korunova=E8n=ED 6
> Praha 7
> tel. +420724007234
>=20
--------------------
Zm=EC=F2 se d=EDky nov=FDm, barevn=FDm =E8o=E8k=E1m FreshLook! Nyn=ED a=
k=E8n=ED nab=EDdka. http://user.centrum(tec)cz/redir.php?url=3Dhttp://www=
=2Ecibavision(tec)cz=20
ADO a dlouhy dotaz: novy Thread nebo AsyncExecute?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.3.2003 11:33:05
Ahoj,
potrebuji spustit dlouho trvajici vypocet ve SP (asi 15 min) v ADO a
potrebuju, aby aplikace po dobu provadeni byla ziva.
V archivu jsem si nasel moznost spustit dotaz v threadu a druhou
moznosti je spustit dotaz asynchronne. Protoze v tomto jsem zcela
zacatecnik, muzete mi poradit, ktera moznost je lepsi? Pripadne pro a
proti?
SP spoustim pomoci TADOCommand, ktera nabizi i nastavit parametr
adAsyncExecute. SP nevraci zadna data, ale to je pro tento pripad asi
jedno.
D7Pro/Win98/MS SQL 2000
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
prezerac obrazkov
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.3.2003 01:13:58
> Odes=EDlatel: alex <bugala_a(zv)inMail.sk>
> na form-e mam niekolko TabSheet-ov na jednom z nich by som chcel =
zobrazovat
> obrazky. Problem je vsak v tom, ze ked do komponenty Image loadnem =
obrazok=20
> vacsi ako je TabSheet, nezobrazi sa cely.
> Potreboval by som to urobit tak, aby tam boli posuvniky, a funkcia =
lupy.
Nejdriv nastav velikost Image tak, aby odpovidal rozmerum obrazku.
Skutecna velikost je (myslim) neco jako Image.Picture.Width,Height.
Pak TImage.Stretch=3Dtrue (obrazek se bude prispusobovat velikosti =
komponenty Image).
Pak lupa je zvetseni/zmenseni TImage.Width,Height (nemel by se menit =
pomer vyska/sirka).
Kdyz to cele das do nejakeho scrollboxu, tak se tam (snad) objevi i =
posuvniky.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Ctecka caroveho kodu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.3.2003 11:18:35
Takova ctecka doslova simuluje klavesnici!
Takze se to bude chovat uplne stejne, jako kdybys v tu danou chvili
ty cisla caroveho kodu vytkaval rucne do klavesnice. takze si to
muzes nazorne vyzkouset, jak to bude vypadat i bez ctecky!
Budes-li mit focus na teditu, tak se ti kod napise do nej. Obvykle
jsou ctecky nastavene tak, ze posilaji na konci i ented, takze se to
zpracovava pohodlne.
> Zakaznik povidal, ze ctecky budou na PS/2 a na starem portu pro
> klavesnice (to kolecko, ja furt nevim jak se to jmenuje ::)) Tzn mam
> obsluhovat nejekej WMKEYDOWN? nebo co se mi vrati, pokud prejede prez
> ctecku? Co se stane, pokud budu mit focus v TEdit, a co se stane,
> pokud budu mit focus na TForm?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Ctecka caroveho kodu
[*] Bronislav Klucka <Bronislav.Klucka(zv)pro2-soft(tec)com> - 23.3.2003 11:13:15
Zakaznik povidal, ze ctecky budou na PS/2 a na starem portu pro klavesnice
(to kolecko, ja furt nevim jak se to jmenuje ::))
Tzn mam obsluhovat nejekej WMKEYDOWN? nebo co se mi vrati, pokud prejede
prez ctecku? Co se stane, pokud budu mit focus v TEdit, a co se stane, pokud
budu mit focus na TForm?
Brona
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lukas Gebauer
Sent: Monday, March 24, 2003 8:40 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Ctecka caroveho kodu
> Nemate nekdo funkcni Freeware (nebo vlasni) program na obsluhu ctecky?
> nemohl byste mi ho poslat? (zdrojaky)
Pokud je napojena na klavesnici, pak nepotrebujes vubec zadny
software, je to stejne, ajklo kdyby ten kod obsluha vytukala na
klavesnici.
Pokud je seriova, tak ty ja obsluhuju svym SynaSerem. ;-) (viz link v
podpisu...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Tisk obecnych dat ve FastReportu?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 24.3.2003 11:04:49
Ahoj vespolek, zkousim si hrat s FastReportem a zajima me, jak v nem
tisknout obecna data, tj. data ne z databaze, ale treba z ListBoxu =
apod. V
teto souvislosti jsem si stahl i AllReport, ktery to umi (a zase neumi
databaze) a nemohu uverit, ze by to FastReport neumel. Muze me nekdo
nasmerovat?
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
DataSet a dxDBGrid
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 24.3.2003 10:36:23
>Kde roste dxDBGrid? Vsimnul jsem si, ze jej pouziva IBExpert, docela se mi
>libi (rychlost&vzhled).
www.devexpress.com
Bohdan Voska
vyhladavanie v adotable
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 24.3.2003 10:33:38
>
> Mozete mi niekto napisat jednoduchy priklad na vyhladavanie zaznamov v
adotable?
Adotable.Locate(const KeyFields: String; const KeyValues: Variant; Options:
TLocateOptions
): Boolean; override;
To by melo stacit pro hledani daneho zaznamu.
Bohdan Voska
ANN: Synapse release 31
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.3.2003 09:08:37
Hlavni novinky:
- podpora protokolu IPv6
- jadro nove generace
- NNTP s podporou SSL/TLS
- podpora StreamSecII knihovny
- bugfixy
- optimalizace
- ...
Synapse je timto definitivne prvni free knihovnou pro Delhi/Kylix s
podporou protokolu IPv6!
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Ctecka caroveho kodu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.3.2003 08:40:22
> Nemate nekdo funkcni Freeware (nebo vlasni) program na obsluhu ctecky?
> nemohl byste mi ho poslat? (zdrojaky)
Pokud je napojena na klavesnici, pak nepotrebujes vubec zadny
software, je to stejne, ajklo kdyby ten kod obsluha vytukala na
klavesnici.
Pokud je seriova, tak ty ja obsluhuju svym SynaSerem. ;-) (viz link v
podpisu...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
prezerac obrazkov
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.3.2003 08:17:21
<<< 24. 3. 2003 8:16 - alex "bugala_a(zv)inMail.sk" >>>
a> Ahojte,
a> na form-e mam niekolko TabSheet-ov na jednom z nich by som chcel zobrazovat
a> obrazky. Problem je vsak v tom, ze ked do komponenty Image loadnem obrazok
a> vacsi ako je TabSheet, nezobrazi sa cely.
Pouzi TScrollBox a vloz ho to TTabSheet.
--
Best regards, TRoland
DataSet a dxDBGrid (Jaromir Solar)
[*] David Liska <konference(zv)thsoft(tec)cz> - 24.3.2003 08:30:16
Zjistil jsem reseni, ktere by se ti take mohlo hodit:
if dxDBGrid.FocusedNode.GetNextNode<>nil then
dxDBGrid.FocusedNode.GetNextNode.Focused:=3DTrue;
nazpatek GetPriorNode
David
----- Original Message -----
From: "Jarom=EDr Solar" <solar(zv)magion(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 24, 2003 6:44 AM
Subject: Re: DataSet a dxDBGrid
> Ahoj,
>
> > dxDbGrid.Datasource.DataSet.Next
>
> toto je sice hezke reseni, ale bohuzel nefunkcni, protoze dxDBGrid si t=
o
tridi
> sam. Jde to napr. pouzitim metod
> GotoFirst, GotoPrev, GotoNext a GotoLast. Byl v tom myslim problem, pok=
ud
bylo v
> gridu nejake grupovani. Ja jsem to nakonec vyresil tak ze si stejne
setridim i
> dataset (pouzivam TClientDataset, takze neni problem) a pak normalne
scroluji
> pres Dataset. Toto reseni zaroven umoznuje pouziti v generatoru sestav.
>
> S pozdravem
>
> Ing. Jarom=EDr Solar (jaromir.solar(zv)magion(tec)cz)
> MAGION system a.s. (http://www.magion(tec)cz)
> Tel.: 571-499-316
>
> > > pretridi. No, ale ted jde o to, ze potrebuju programove
> > > posouvat kurzor
> > > radek po radku tak jak je vidi uzivatel a ne tak jak jsou tridene v
> > > DataSetu. Neco jako dxDBGrid.Next :-)) Neresil jste toto uz nekdo?
>
>
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
>
>
DataSet a dxDBGrid (Miroslav Evjak)
[*] David Liska <konference(zv)thsoft(tec)cz> - 24.3.2003 08:18:44
www.devexpress.com
David
----- Original Message -----
> Kde roste dxDBGrid? Vsimnul jsem si, ze jej pouziva IBExpert, docela se=
mi
> libi (rychlost&vzhled).
>
> ME
>
> Ing.Miroslav Evj=E1k
> mailto:miroslav.evjak(zv)seznam(tec)cz
> +420 607 875748
Indy ver. 9 a komponenta IdHTTP client
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 24.3.2003 07:46:50
Zdravim Vas v novem tydnu a preji krasne jaro...
Pouzivate nekdo Indy ver. 9 ???
Konkretne IdHTTP clienta a odesilani dat metodou POST???
Kdyz to odchytim HTTP Sniferem, tak tam nevidim, ze by
Indy poslala ta data, ktera tam davam.
DataSet a dxDBGrid
[*] Jarom�r Solar <solar(zv)magion(tec)cz> - 24.3.2003 06:44:51
Ahoj,
> dxDbGrid.Datasource.DataSet.Next
toto je sice hezke reseni, ale bohuzel nefunkcni, protoze dxDBGrid si to tridi
sam. Jde to napr. pouzitim metod
GotoFirst, GotoPrev, GotoNext a GotoLast. Byl v tom myslim problem, pokud bylo v
gridu nejake grupovani. Ja jsem to nakonec vyresil tak ze si stejne setridim i
dataset (pouzivam TClientDataset, takze neni problem) a pak normalne scroluji
pres Dataset. Toto reseni zaroven umoznuje pouziti v generatoru sestav.
S pozdravem
Ing. Jarom�r Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316
> > pretridi. No, ale ted jde o to, ze potrebuju programove
> > posouvat kurzor
> > radek po radku tak jak je vidi uzivatel a ne tak jak jsou tridene v
> > DataSetu. Neco jako dxDBGrid.Next :-)) Neresil jste toto uz nekdo?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov� b�ze: 262 - datum vyd�n�: 17.3.2003
Kontrola SQL
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 24.3.2003 05:57:05
Na SQL existuje prikaz "set ParseOnly" nebo take "set NoExec", tak se
pripadne koukni na jejich rozdily do BOL.
(po jejich nastaveni muzes prikaz normalne odelat a odchytit si chyby)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
LZ> Zdravim
LZ> Poradte prosim jak elegantne a pokud mozno bez velkeho programovani :))
LZ> zkontrolovat SQL dotaz jako to dela MS Query Analyzer (Parse SQL)
LZ> t.j. i oznacit misto chyby.
LZ> Predem dik za kazdy podnet
LZ> Ludek
LZ> (MSSQL 2000, ADO, D6)
Ctecka caroveho kodu
[*] Bronislav Klu�ka <Bronislav.Klucka(zv)pro2-soft(tec)com> - 24.3.2003 01:34:27
Nemate nekdo funkcni Freeware (nebo vlasni) program na obsluhu ctecky?
nemohl byste mi ho poslat? (zdrojaky)
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
ADOQuery - NextRecordSets count
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.3.2003 00:45:58
Zdravim.
Jak zjistim pocet vracenych recordsetu abych mohl vsechny postupne priradit
pomoci
ADODataSet1.RecordSet := ADOQuery1.NextRecordSet(i);
cili jak ukoncit smycku
while ?????? do
begin
ADODataSet1.RecordSet := ADOQuery1.NextRecordSet(i);
Zpracuj(ADODataSet1);
end;
Predem dik.
Ludek
Jak nacist stukturu databaze
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.3.2003 00:41:02
----- Original Message -----
From: "Ludek ZITA" <konference(zv)sales(tec)cz>> Zdravim
> Poradte prosim jak elegantne a pokud mozno bez velkeho programovani
:))))))
> nacist strukturu dat z MSSQL2000 databaze.
Uz jsem to objevil.
Je to zakleto v tabulkach sysobjects a syscolumns
Ludek
Stay on top stylem Winamp
[*] Dobroslav Studnicka <morph(zv)centrum(tec)cz> - 24.3.2003 00:17:29
Tak po tydnu znova s upresnenim problemu
- potrebuju StayOnTop formular, ktery je ve strukture vlastnictvi asi
takhle:
Aplikace
Hlavni (nebo jakykoliv jiny formular)
Moje komponenta
Formular komponenty 01
Formular komponenty 02 ktery chci TopMost (StayOnTop)
Formular 02 se vytvari v Run-Time po stisku tlacitka na formulari 01.
Otevira se pomoci ShowModal a ja potrebuji aby v momente clicku na
tlacitko zustal z cele aplikace viditelny jako jediny. Nevite jak na to
?
Zatim jsem to resil
Hide;
frm_komponenta02.ShowModal;
Show;
coz ale neresi schovani ostatnich formularu aplikace a navic pak
nefunguje TopMost...
...pomoci
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or
SWP_NOMOVE or SWP_NOSIZE);
dik za kazdou radu
studna
SetWindowsHookEx
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.3.2003 14:23:50
From: "Bronislav Klu�ka" <delphi(zv)czechdance.com>
> ahoj, mam alikaci, ktera ma v creatu main formu volani funkce z DLL:
Pokud to ma souvislost s tim predchozim prispevkem tak asi nechces hookovat
zpravy se vsech aplikaci, ale jen ze sve. Pak predej jako ThreadID parametr
MainThreadID. Podivej se do zdrojaku VCL jak se to pouziva.
Petr Vones
Dostupnost Klavesy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.3.2003 14:21:07
From: "Bronislav Klu�ka" <delphi(zv)czechdance.com>
> Jde nejak udelat to, aby byla udalost klavesy dostupna z kazdeho formulare?
Pomoci actionlistu.
Petr Vones
Refresh TShellComboBox
[*] Tomas Hustava <tommyx(zv)zoznam.sk> - 23.3.2003 13:16:37
DD,
potrebujem poradit s komponentom TShellComboBox. Potrebujem aby sa po vlozeni
noveho media (CD) po kliknuti nan refreshli nazvy vsetkych diskovyh jednotiek.
Thanks.
**********************************
TOMMY
http://tommyx.webpark.sk
mailto:tommyx(zv)zoznam.sk
**********************************
prezerac obrazkov
[*] alex <bugala_a(zv)inMail.sk> - 23.3.2003 10:36:43
Ahojte,
na form-e mam niekolko TabSheet-ov na jednom z nich by som chcel zobrazovat
obrazky. Problem je vsak v tom, ze ked do komponenty Image loadnem obrazok
vacsi ako je TabSheet, nezobrazi sa cely.
Potreboval by som to urobit tak, aby tam boli posuvniky, a funkcia lupy.
Vobec neviem ako na to, mozete mi prosim niekto poradit?
Pripadne ma nakopnut k nejakej inej alternative...
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
XML konfigurace ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.3.2003 13:06:12
From: "Milan Cizek" <cizek.milan(zv)seznam(tec)cz>
> chtel bych se zeptat, jakym zpusobem vytvorit xml soubor. Lze k tomu
> pouzit TXMLDocument? Nejak na to nemuzu porad prijit, prikladek by
Lze. Nebo si udelej k te konfiguraci schema a vygeneruj primo interfacy pomoci
XML Data Binding wizardu.
Petr Vones
vyhladavanie v adotable
[*] taranis <taranis(zv)centrum.sk> - 23.3.2003 11:31:21
Ahoj,
Mozete mi niekto napisat jednoduchy priklad na vyhladavanie zaznamov v adotable?
Vopred dakujem.
S pozdravom Jaro.
(D5,win98)
------------------------------------------
student
Email : taranis(zv)centrum.sk
"Clovek je jediny tvor na Zemi, ktory sa vie smiat hoc ma na to najmenej dovodov."
Dostupnost Klavesy
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.3.2003 08:52:00
> Odes=EDlatel: Bronislav Klu=E8ka <delphi(zv)czechdance.com>
> Jde nejak udelat to, aby byla udalost klavesy dostupna z kazdeho =
formulare?
>=20
Pokud ti jde o to, abys nemusel tuto udalost osetrovat opakovane na =
kazdem formulari, je jedno z moznych reseni vyuziti dedicnosti:
Vsechny formulare oddedis od jednoho (abtraktniho) typu, na kterem tuto =
udalost osetris. Ostatni formulare pak uz toto osetreni udalosti =
automaticky maji.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
LoadFromFile & TImage
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 23.3.2003 02:03:12
Nemusis ho uvolnovat vubec, o to se Ti postara komponenta TImage sama. resp
z jakeho duvodu ho chces uvolnovat?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of D
Sent: Saturday, March 22, 2003 6:47 PM
To: Konfa Delphi
Subject: LoadFromFile & TImage
Ahojte,
na form-e mam niekolko TabSheet-ov a na jednom z nich mam
komponentu Image. V jednom TabSheet-e zadavam nazov cez
Edit, nasledne sa vypisu nejake udaje z databazy a ked kliknem
na jedno z tlacitok, prepnem sa na druhy TabSheet s Image-om,
kde sa pri prepnuti spusti nasledovny kod a nacita sa obrazok:
Image1.Picture.LoadFromFile(FileName);
Chcem sa len spytat, ako potom pri strateni focusu TabSheet-u
uvolnim z pamate naloadovany obrazok????
Dakujem,
alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
Popisky Tlacitok - BitBtn
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 23.3.2003 02:02:18
Komponenta TBitBtn ma vlasnost (property) Hint a to je prave ta zluta
bublina, ktera se zobrazi. Taky se podivej na vlastnost ShowHint(zda se ma
zobrazovat) a ParentShowHint (nastaveni zobrazovani dle rodicovske
komponenty)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of D
Sent: Saturday, March 22, 2003 6:28 PM
To: Konfa Delphi
Subject: Popisky Tlacitok - BitBtn
Ahojte,
na form-e mam niekolko tlacitok typu BitBtn, ako dosiahnem to, aby sa pri
najazde mysou na tlacitko, zobrazil kratky textovy popisok???
Dik,
Alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
LoadFromFile & TImage
[*] D <bugala_a(zv)inMail.sk> - 22.3.2003 18:47:21
Ahojte,
na form-e mam niekolko TabSheet-ov a na jednom z nich mam
komponentu Image. V jednom TabSheet-e zadavam nazov cez
Edit, nasledne sa vypisu nejake udaje z databazy a ked kliknem
na jedno z tlacitok, prepnem sa na druhy TabSheet s Image-om,
kde sa pri prepnuti spusti nasledovny kod a nacita sa obrazok:
Image1.Picture.LoadFromFile(FileName);
Chcem sa len spytat, ako potom pri strateni focusu TabSheet-u
uvolnim z pamate naloadovany obrazok????
Dakujem,
alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Popisky Tlacitok - BitBtn
[*] D <bugala_a(zv)inMail.sk> - 22.3.2003 18:28:02
Ahojte,
na form-e mam niekolko tlacitok typu BitBtn, ako dosiahnem to, aby sa pri
najazde mysou na tlacitko, zobrazil kratky textovy popisok???
Dik,
Alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
SetWindowsHook2
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 22.3.2003 23:20:45
Postu SetWindowsHookEx uz jsem si vyresil::), ale mam jiny problem, hlavni
okno ma tedy zahakony a odhakovany instrukce pomoci:
procedure TMainForm.HookApp;
var fStartH:procedure (fHandle:THandle);
begin
fHookH:=0;
fHookH:=LoadLibrary(pChar(m_HOOKDLL));
if fHookH<>0 then
begin
fStartH:=GetProcAddress(fHookH,pChar('StartHook'));
if assigned(fStartH) then
begin
fStartH(self.handle);
SetTimer(self.Handle,0,m_HOOKSEC*1000,nil);
end;
end;
end;
procedure TMainForm.UnHookApp;
var fUnH:procedure;
begin
if fHookH<>0 then
begin
fUnH:=GetProcAddress(fHookH,pChar('UnHook'));
if assigned(fUnH) then
begin
fUnH;
KillTimer(self.Handle,0);
end;
//FreeLibrary(fHookH);
end;
end;
problem je v tom, ze na tom "FreeLibrary" mi to pada...
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
SetWindowsHookEx
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 22.3.2003 23:08:03
ahoj, mam alikaci, ktera ma v creatu main formu volani funkce z DLL:
procedure StartHook(fHandle:THandle); stdcall;
begin
FormH:=fHandle; //handle na mainform, pouzivam pro SendMessage z dll
hHookMouse:=SetWindowsHookEx(WH_MOUSE,HookMouse,HInstance,0);
hHookKey:=SetWindowsHookEx(WH_KEYBOARD,HookKey,HInstance,0);
end;
a v klose ma volani fce z dll:
procedure UnHook; stdcall;
begin
UnhookWindowsHookEx(hHookMouse);
UnhookWindowsHookEx(hHookKey);
end;
kdyz to spustim z D7Ent, tak to funguje bez problemu, ale kdyz to spustim
napr z WinCMD a pokusim se to zavrit, tak to vypise:
"Instrukce na 0x0000000 se odkazovala na 0x000000, pamet nemuze byt read",
nevite, kde muze byt chyba?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
skin 2000
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 22.3.2003 22:59:17
Na www.torry.net hladaj komponentu MenuXP (alebo XPMenu, uz presne
neviem ako sa vola). Staci ju pridat na formular a automaticky zmeni na
XP vzhlad vsetky vybrane typy objektov. Ak by nebola tam, tak pozri
swissdelphicenter.com
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Kamil
>: Sent: Friday, March 21, 2003 8:28 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: skin 2000
>:=20
>: Nev=EDte pros=EDm n=ECkdo o n=ECjak=E9m sajtu, kde lze sehnat =
komponentu s
butony
>: ve
>: stylu Office 2000 (nebo XP)?
>:=20
>: D=ECkuji
>: kamil
>:=20
>:=20
>: ---
>: Odchoz=ED zpr=E1va neobsahuje viry.
>: Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
>: Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
>:=20
---
avast! Antivirus: Odchadzajuca sprava cista.
Virova databaza (VPS): 21. 3. 2003
Testovane: 22. 3. 2003 22:57:47
avast! (c) copyright 2000-2003 ALWIL Software.
http://www.avast.com
XML konfigurace ...
[*] Tomas Jantac <tomasnusle(zv)volny(tec)cz> - 22.3.2003 22:56:56
Ahoj,
Ja mam bohuzel jen D5, takze zminovanou komponentyu nemam, ale vyuzivam
typove knihovny od Microsoft XML. Koukni na tuhle adresu jsou tam priklady
jak na DOM (HTML/XML) s vyuzitim MS knihoven, nebo s vyuzitim jedne open
knihovny...
http://homepages.borland.com/ccalvert/TechPapers/Delphi/XMLSimple/XMLSimple.
html
Mala ukazka jak to pouzivam ja:
Var XmlDOM:TDOMDocument;
begin
XmlDOM:=TDOMDocument.Create(nil);
XmlDOM.documentElement:=FXML.createElement('rootXML');
XmlDOM.documentElement.setAttribute('atribut1','hodnota1');
XmlDOM.documentElement.appendChild(XmlDOM.createElement('firstNode'));
ShowMessage(XmlDOM.documentElement.Xml);
XmlDOM.destroy;
end;
pozor na metodu loadXML - nenatahuje soubor z disku, jako metoda load, ale
jejim parametrem je primo XML kod!
Tomas Jantac
> From: <skalsky(zv)oksystem(tec)cz>
> > Nejak se mi nepodarilo v archivu nalezt prispevky o XML konfiguraci
> > ... pouzivate nekdo pro konfiguraci programu (nejen
> konfiguraci, ale i
> > jako format pro sdileni dat vice aplikacemi) XML? Mohl by
> mi nektery
> > z vas doporucit dobrou komponentu/sadu komponent (pokud mozno s
> > moznosti videt zdrojak), ktere/ou bych mohl pouzit ?
>
> Pokud mas Delphi 6 a vyssi tak se podivej na komponentu TXMLDocument.
>
>> Petr Vones
>
>
>chtel bych se zeptat, jakym zpusobem vytvorit xml soubor. Lze k tomu
>pouzit TXMLDocument? Nejak na to nemuzu porad prijit, prikladek by
>potesil. Diky.
>
Jak nacist stukturu databaze
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 22.3.2003 22:35:28
Zdravim
Poradte prosim jak elegantne a pokud mozno bez velkeho programovani :))))))
nacist strukturu dat z MSSQL2000 databaze.
Potrebuji neco jako :
tablename1.FIELDNAME1 varchar(80)
tablename1.FIELDNAME2 integer
tablename2.FIELDNAME .....
...
viewname.FIELDNAME.....
...
a kdyby jeste bylo
spNAME PARAMETRNAME typ,....) a functionname(.....
pak by to byla parada.
Predem dik za kazdy podnet, alespon kudy jit "nejkratsi" cestou
Ludek
(MSSQL 2000, ADO, D6)
Kontrola SQL
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 22.3.2003 22:29:28
Zdravim
Poradte prosim jak elegantne a pokud mozno bez velkeho programovani :))
zkontrolovat SQL dotaz jako to dela MS Query Analyzer (Parse SQL)
t.j. i oznacit misto chyby.
Predem dik za kazdy podnet
Ludek
(MSSQL 2000, ADO, D6)
XML konfigurace ...
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 22.3.2003 20:49:04
> From: <skalsky(zv)oksystem(tec)cz>
> > Nejak se mi nepodarilo v archivu nalezt prispevky o XML konfiguraci
> > ... pouzivate nekdo pro konfiguraci programu (nejen
> konfiguraci, ale i
> > jako format pro sdileni dat vice aplikacemi) XML? Mohl by
> mi nektery
> > z vas doporucit dobrou komponentu/sadu komponent (pokud mozno s
> > moznosti videt zdrojak), ktere/ou bych mohl pouzit ?
>
> Pokud mas Delphi 6 a vyssi tak se podivej na komponentu TXMLDocument.
>
> Petr Vones
Ahoj,
chtel bych se zeptat, jakym zpusobem vytvorit xml soubor. Lze k tomu
pouzit TXMLDocument? Nejak na to nemuzu porad prijit, prikladek by
potesil. Diky.
S pozdravem Milan Cizek, amatersky programator, D6.02 Ent
Win2k (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
DBGrid - farba kurzoru
[*] D <bugala_a(zv)inMail.sk> - 22.3.2003 14:12:35
Ahojte,
mam dva dotazy:
1. ako zmenim farbu kurzoru v DBGrid-e ?
2. v DBGride potrebujem len vertikalny scrolbar, ako odstranim horizontalny?
Dik,
alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
DBGrid - farba kurzoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.3.2003 14:28:40
From: "D" <bugala_a(zv)inMail.sk>
> 1. ako zmenim farbu kurzoru v DBGrid-e ?
Colorizing a TDBGrid:
http://community.borland.com/article/0,1410,20845,00.html
> 2. v DBGride potrebujem len vertikalny scrolbar, ako odstranim horizontalny?
type
TDBGridHack = class(TDBGrid);
procedure TForm1.FormCreate(Sender: TObject);
begin
TDBGridHack(DBGrid1).ScrollBars := ssNone;
end;
Petr Vones
Free Komponenta for JPG ???
[*] D <bugala_a(zv)inMail.sk> - 22.3.2003 14:10:31
Ahojte,
potreboval som hodit do formulara komponentu na zobrazovanie obrazkov.
Ake vsak bolo moje sklamanie, ked som zistil, ze nepodporuje format *.JPG.
Neviete niekto o nejakej free komponente, pre spominany format ?
Za vsetky odpovede dakujem,
Alex
---------------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Free Komponenta for JPG ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.3.2003 14:20:29
From: "D" <bugala_a(zv)inMail.sk>
> potreboval som hodit do formulara komponentu na zobrazovanie obrazkov.
> Ake vsak bolo moje sklamanie, ked som zistil, ze nepodporuje format *.JPG.
Samozrejme ze podporuje, staci pridat unit Jpeg do daneho unitu. Tim se
zaregistruje JPG jako dalsi graficky format.
> Neviete niekto o nejakej free komponente, pre spominany format ?
Zadna komponenta neni treba.
Petr Vones
Udalosti v aplikaci
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.3.2003 08:29:01
V tom pripade napis hook take, vloz jej primo do sve aplikace a
zinicializuj jej pouze na handle sve aplikace :-)
>to ano, hook si napsat umim, ale to mi prijde, jako s kanonem na vrabce, ja
>nepotrebuji zahookovat cela wokna.... jenom tu mou aplikaci (a vsechny jeji
>formulare) S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Udalosti v aplikaci
[*] Bronislav Klucka <delphi(zv)czechdance(tec)com> - 22.3.2003 08:14:59
to ano, hook si napsat umim, ale to mi prijde, jako s kanonem na vrabce, ja
nepotrebuji zahookovat cela wokna.... jenom tu mou aplikaci (a vsechny jeji
formulare)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Tomas Rosa
Sent: Saturday, March 22, 2003 7:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Udalosti v aplikaci
No, zahookujes si udalosti ve windows a posilas si pri kazde zprave klavesy
a mysi we windows message na svoji hlavni aplikaci a tam to resis.
Hookovani musi byt napsano v samostatne DLL.
>Jak zjistit, zda v alikaci doslo k nejake udalosti mysi, nebo klavesou??
>
>proste potrebuji automaticke odhlasovani po 30sec (pozavirat vsechny
>formulare (krome hlavniho) a zobrazit okno pro prihlaseni
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Udalosti v aplikaci
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.3.2003 07:59:22
No, zahookujes si udalosti ve windows a posilas si pri kazde zprave klavesy
a mysi we windows message na svoji hlavni aplikaci a tam to resis.
Hookovani musi byt napsano v samostatne DLL.
>Jak zjistit, zda v alikaci doslo k nejake udalosti mysi, nebo klavesou??
>
>proste potrebuji automaticke odhlasovani po 30sec (pozavirat vsechny
>formulare (krome hlavniho) a zobrazit okno pro prihlaseni
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Udalosti v aplikaci
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 22.3.2003 01:29:56
Jak zjistit, zda v alikaci doslo k nejake udalosti mysi, nebo klavesou??
proste potrebuji automaticke odhlasovani po 30sec (pozavirat vsechny
formulare (krome hlavniho) a zobrazit okno pro prihlaseni
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Dostupnost Klavesy
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 22.3.2003 01:10:14
Jde nejak udelat to, aby byla udalost klavesy dostupna z kazdeho formulare?
resp. chci udelat to, abych napr. na F1 nadefinoval nejakou udalost
(hlavniho formulare) a ta se zpoustela at jsem na jakemkoliv jinem
formulari, v jakemkoliv ovladacim prvku
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Popup menu v treeview
[*] Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz> - 21.3.2003 22:27:57
Dobry den,
ve VCL moc nedelam a proto mi odpustte mozna zacatecnicky problem.
Potrebuji pracovat v TreeView s Popupmenu.
To lze standardne nastavit pro cely TreeView - dedeni z TControl.
Jak vsak mohu nastavit ruzne Popupmenu pro konkretni polozky v
TreeView.
Pr.:
root (potrebuju popup menu)
- dir1 (potrebuju popup menu)
- zaznam1 (potrebuju popup menu)
Diky za pripadny helpik :)
--
Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz>
E-mail klient :: TheBat! 1.62i/CZ
Antivirus :: Avast! 4.0 Home Edition
Dev :: Borland Delphi 7.0 Personal
WebBrowser a XML
[*] Tom� Janta��������{����Y��̿ - 21.3.2003 21:32:39
Ahoj,
nemate nekdo tuseni zda je mozne ve WebBrowseru zobrazovat XML kod aniz bych
jej musel nejdriv ulozit na disk? Kdyz WebBrowserem nactu soubor s priponou
XML tak se pouzije vnitrni sblona XSLT a IE XML data zobrazi podle teto
sblony. Napriklad pokud chci zobrazit HTML kod, staci pouzit metodu
Navigate: WebBrowser1.Navigate("about:<HTML><HR>blabla<HR></HTML>"); a IE
zobrazi uhlednou HTML stranku, ale neprisel jsem na to zda je mozne nejakym
podobnym zpusobem zobrazit XML stranku. Jedinou moznosti je XML nejdrive
ulozit na disk a pak pouzit: WebBrowser1.Navigate('D:\xml.xml');
W2k, D5 prof.
Tomas Jantac
FASTREPORT a CESTINA
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 21.3.2003 20:32:26
Mno, nejak moc jsem to nezkoumal (zatim jsem provozoval FR jen na W2K a X=
P),
ale problem byl s nastavenim fontu v reportu. Musel jsem pouzit "Arial CE=
",
"Tahoma CE: apod. V Win9x je nutna substituce fontu pro vyber spravneho
kodovani znaku.
Napr.:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\FontSubstitutes]
"Georgia CE,238"=3D"Georgia,238"
"Georgia CE,0"=3D"Georgia,238"
"Tahoma CE,238"=3D"Tahoma,238"
"Tahoma CE,0"=3D"Tahoma,238"
"Verdana CE,238"=3D"Verdana,238"
"Verdana CE,0"=3D"Verdana,238"
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
> -----Original Message-----
> Subject: FASTREPORT a CESTINA
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
OT: AVI subory pre TAnimate
[*] spisiak <spisiak(zv)zoznam.sk> - 21.3.2003 20:58:11
Dobry den,
daju sa niekde stiahnut free animacie (subory AVI) pre komponentu delphi
TAnimate?
Karol
DataSet a dxDBGrid
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 21.3.2003 20:32:25
Kde roste dxDBGrid? Vsimnul jsem si, ze jej pouziva IBExpert, docela se m=
i
libi (rychlost&vzhled).
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
export DBGridu
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 21.3.2003 20:42:57
Komponenty TMS mne take zaujaly, nicmene vsechny ty paradicky maji pomern=
e
velkou rezii. DBAdvStringGrid na 5000 zaznamech se jevil jako velmi pomal=
y
(nacitani dat do gridu, scrollovani - reseni mi neporadil ani support TMS=
).
Cili pro male datasety jo, jinak radeji jednoduse, ale rychle.
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
> -----Original Message-----
> Behalf Of rdanhel(zv)centrum(tec)cz
> Subject: Re: export DBGridu
>
>
> Doporucuji advancedColumnGrid z teto adresy
> http://www.tmssoftware.com/
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
Synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.3.2003 19:18:03
> st=E1hnul jsem si Synapsi... pot=D9ebuju z n=ED komponentu na stahov=E1n=
=ED
> ftp. Je spolehliv=E1 (na rozd=EDl od NMFTP)? Je to freeware nebo nikoliv=
?
Licence je na webu, v distribucnim balicku, ba i na zacatku kazdeho
souboru Synapse.
Nevim, co si predstavujes pod pojmem freeware, ale licence ti umoznuje
pouzivat Synapsi jak chces, musis ale u tveho programu uvest, ze jsi k
jeho napsani pouzil Synapsi. Podrobnosti se doctes v licenci.
Spolehlivost nech posoudi nekdo jiny, asi nemohu byt objektivni. Ja sam
jsem pochopitelne presvedcen, ze moje FTP implementace je nelepsi. ;-)))
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Zpravy v DLL
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 21.3.2003 18:16:47
Dobry vecer,
delam jakousi utilitku, ktera po stisku urcitych klaves ten text nahradi za
jiny, ale hned ze zacatku jsem narazil na problem, ktery zatim neumim
vyresit.
Globalni hooky musi byt v DLL, ale hlavicky procedury pro obsluhu udalosti s
direktivou message se zapisuje do sekce private urcite tridy, jenze v DLL
zadna neni.
Predem diky za rady
Petr Spurny
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::
DataSet a dxDBGrid
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 21.3.2003 17:15:33
dxDbGrid.Datasource.DataSet.Next
Danik
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of David Liska
> pretridi. No, ale ted jde o to, ze potrebuju programove
> posouvat kurzor
> radek po radku tak jak je vidi uzivatel a ne tak jak jsou tridene v
> DataSetu. Neco jako dxDBGrid.Next :-)) Neresil jste toto uz nekdo?
>
DataSet a dxDBGrid
[*] David Liska <konference(zv)thsoft(tec)cz> - 21.3.2003 16:13:06
Mam dxDBGrid pripojeny (pres DataSource) na nejaky DataSet. Kdyz si v gridu
uzivatel klikne na zahlavi nejakeho sloupce, grid se podle tohoto sloupce
pretridi. No, ale ted jde o to, ze potrebuju programove posouvat kurzor
radek po radku tak jak je vidi uzivatel a ne tak jak jsou tridene v
DataSetu. Neco jako dxDBGrid.Next :-)) Neresil jste toto uz nekdo?
Predem diky za odpoved.
David
Synapse
[*] <jimysforum(zv)centrum(tec)cz> - 21.3.2003 16:07:52
Ahoj,
st=E1hnul jsem si Synapsi... pot=F8ebuju z n=ED komponentu na stahov=E1=
n=ED=20
ftp. Je spolehliv=E1 (na rozd=EDl od NMFTP)? Je to freeware nebo nikoli=
v?
D=EDky.
Jirka
--------------------
Chcete ADSL na mesic zdarma? http://user.centrum(tec)cz/redir.php?url=3Dht=
tp://www.in192(tec)cz
Ladeni in-process COM objektu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.3.2003 14:43:52
On 21 Mar 2003 at 13:41, Karel Klimes wrote:
> Ale nepovedlo se mne to!
> Na breakpointech se mne to nezastavi a dokonce se ty breakpointy po
> spusteni oznaci, tak ze se na ne nikdy "nevleze". Kdyz server ukoncim
> a projekt (serveru) znovu "buildnu", tak sou ty breakpointy zase OK
> (tedy vypadato, ze se na ne v kodu dobehne).
>
> Nesetkal ste se s tim nekdo?
Setkal, nedavno jsem zde o tom psal. Chyba se tahne od D6 a ja z toho
uz silim. Grrrrrrrrrrrrrrrrr.
S pozdravem
Zbysek Hlinka
export DBGridu
[*] <rdanhel(zv)centrum(tec)cz> - 21.3.2003 13:43:20
Doporucuji advancedColumnGrid z teto adresy
http://www.tmssoftware.com/
umi hodne exportu a ma mnoho dalsich velmi zajimavych vlastnosti.=20
Pouzivam ho uz asi rok. Je free pro osobni pouziti.
s pozdravem Rostislav Danhel
>
> ahojte
>=20
> existuje nejaka komponenta, ktora dokaze vyexportovat obsah DBGridu=20
do
> excelu,html,txt atd...
>=20
> dakujem
> Peter
>=20
--------------------
Zm=EC=F2 se d=EDky nov=FDm, barevn=FDm =E8o=E8k=E1m FreshLook! Nyn=ED a=
k=E8n=ED nab=EDdka. http://user.centrum(tec)cz/redir.php?url=3Dhttp://www=
=2Ecibavision(tec)cz=20
MSDN
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.3.2003 13:34:32
From: "Bronislav Klu�ka" <delphi(zv)czechdance.com>
> Nevite nekdo, jestli je nekde ke stazeni MSDN?
To si musis koupit. Ke stazeni je jen Platform SDK.
Petr Vones
export DBGridu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.3.2003 13:33:46
toto jsem nasel na netu ...
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
const AValue: string);
var
L: Word;
const
{$J+}
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
{$J-}
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := ARow;
CXlsLabel[3] := ACol;
CXlsLabel[5] := L;
XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
XlsStream.WriteBuffer(Pointer(AValue)^, L);
end;
function SaveAsExcelFile2(AGrid: TStringGrid; AFileName: string): Boolean;
const
{$J+}
CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);
{$J-}
CXlsEof: array[0..1] of Word = ($0A, 00);
var
FStream: TFileStream;
I, J: Integer;
begin
Result := False;
FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
try
CXlsBof[4] := 0;
FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
for i := 0 to AGrid.ColCount - 1 do
for j := 0 to AGrid.RowCount - 1 do
XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
Result := True;
finally
FStream.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveAsExcelFile2(StringGrid1, `c:\Soubor.xls`) then
ShowMessage(`StringGrid ulozen!`);
end;
Jirka
Ladeni in-process COM objektu
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 21.3.2003 13:41:31
Ahoj vsem,=0D
jak ladit in-process server?=0D
=0D
Docetl sem se, ze staci oba projekty, tedy vlastni server (DLL) a klients=
kou
aplikaci, ulozit do jednoho projektu (BPG). V DLL nastavit jakp host app.
klientskou aplikaci, nastavit breakpointy v obou aplikacich a jedeeeem.=0D
=0D
Ale nepovedlo se mne to!=0D
Na breakpointech se mne to nezastavi a dokonce se ty breakpointy po spust=
eni
oznaci, tak ze se na ne nikdy "nevleze". Kdyz server ukoncim a projekt
(serveru) znovu "buildnu", tak sou ty breakpointy zase OK (tedy vypadato,=
ze
se na ne v kodu dobehne).=0D
=0D
=0D
Kdyz ladim dva out-process servery (EXE), tak si poustim 2x Delphi a vse =
je
OK.=0D
=0D
Archiv konference sem procetl, ale nenasel sem zpusob jak to rozchodit.=0D
=0D
=0D
Joooo a pokud se jedna o obycejou DLL, kterou si do aplikace natahuju
dynamicky (LoadLibrary), tak se mne to na breakpointech v te DLL taky
nezastavi a chova se to stejne jak uz sem popsal.=0D
=0D
=0D
Jeste jedna vec. Kdyz ladim neco co ma vice threadu a mam v metode Execut=
e
nastavenej breakpoint, tak se debuger nekdy kousne a trva i 10-15 min, ne=
z
tam dojde (pritom je to napr. prirazeni IHNED! na zacatku procedury).=0D
Dojde tam teda vzdycky ALE moje XPeeecka jsou tu tobu TOTALNE out.=0D
=0D
Nevim jestli nemam nahodou nejakou chybku v delphi (nemyslim bug, ale nec=
o
narusenyho - soubory, registry, INI,...)=0D
=0D
=0D
Nesetkal ste se s tim nekdo?=0D
=0D
dik=0D
=0D
Karel Klimes=0D
=0D
Windows XP b2600 SP1, Delphi 6 Proff UPD2
export DBGridu
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 21.3.2003 13:18:32
ahojte
existuje nejaka komponenta, ktora dokaze vyexportovat obsah DBGridu do
excelu,html,txt atd...
dakujem
Peter
FASTREPORT a CESTINA
[*] "Lubo� Nov�" - 21.3.2003 12:48:44
Zdravim
mam potize s cestinou ve fastreportu.
Nikoliv v predlohach napsanych vlastnim fastreportem, nybrz ve vkladanyc=
h databazovych polozkach. Nejde mi to ani pri spojeni s BDE (Paradox) an=
i s Interbase.
Teda lepe receno na W XP funguje vse, na W ME funguje cestina jen nekde =
a na starsich Windows cestina nefunguje prestoze mam v databazich vse na=
staveno spravne. (v Paradoxu Table Language Paradox Czech 852 a u Interb=
ase u vsech polozek CHARACTER SET WIN 1250)
Diky za kazdou radu,
barevne radku na DBGridu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.3.2003 09:41:35
a zkusil jsi se podivat do archivu konference ??? Omilalo se to tu
nekolikrat ....
Jirka
barevne radku na DBGridu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.3.2003 10:13:40
DBGrid1.DataSource.DataSet.RecNo
barevne radku na DBGridu
[*] Jan Harman <harman(zv)volny(tec)cz> - 21.3.03 09:37:18
Ahoj, chtel bych mit v dbGridu kazdy druhy radek s sedym pozadim.
Jak se dovim v udalosti OnDrawColumnCell ze ten radek je sudy,
nebo lichy? Dekuji.
Honza.
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
barevne radku na DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.3.2003 10:07:55
> Ahoj, chtel bych mit v dbGridu kazdy druhy radek s sedym pozadim. Jak
> se dovim v udalosti OnDrawColumnCell ze ten radek je sudy, nebo lichy?
No - na obecne urovni tezko. Zalezi totiz na tom, jaky mas dataset.
Napr. u RxMemoryData je podporovana property RecNo, ktera
udava cislo radku. U IBX by to mozna tez mohlo fungovat, ale krk za
to nedam. U nekterych datasetu je RecNo vzdy -1. Musis se podivat.
OnKeyDown na gridu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.3.2003 09:44:58
Diky.
V.
-----Original Message-----
From: Jiri Virt [mailto:virt(zv)volny(tec)cz]
Sent: Friday, March 21, 2003 9:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OnKeyDown na gridu
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP : begin ShowMessage('Nahoru'); Key:=3D0 end;
VK_DOWN: begin ShowMessage('Dolu'); Key:=3D0 end;
end;{case}
end;
Key :=3D 0 v pripade ze se nebude provadet klasicky posun po DBGridu .
Prihlaseni do W2000 bez prihlasovaciho dialogu
[*] Z�le��k Tom� - 21.3.2003 09:39:42
> nevite nekdo, jak se prihlasit do W2000 bez spusteni
> prihlasovaciho dilalogu po restartu nebo po zapnuti PC.
> Jde o to, ze potrebuji, aby mi najela aplikace
> automaticky i bez zasahu a pritomnosti uzivatele.
324737 - HOW TO: Turn On Automatic Logon in Windows:
http://support.microsoft.com/?id=3D310584
OnKeyDown na gridu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.3.2003 09:38:02
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP : begin ShowMessage('Nahoru'); Key:=0 end;
VK_DOWN: begin ShowMessage('Dolu'); Key:=0 end;
end;{case}
end;
Key := 0 v pripade ze se nebude provadet klasicky posun po DBGridu .
OnKeyDown na gridu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.3.2003 09:32:36
Ahoj,
muzete mi prosim poradit ? Chtel bych reagovat na stisknuti klavesy =
(sipka dolu a nahoru) na DBGridu.
Diky
MSDN
[*] Jiri Virt <virt(zv)volny(tec)cz> - 21.3.2003 09:30:43
staci si koupit MS Visual C++ standard .. cca 999 Kc me to stalo .. a mam k
tomu 2ks CD s MSDN ....
Jirka
MSDN
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.3.2003 09:25:46
> Nevite nekdo, jestli je nekde ke stazeni MSDN?
Neni. To je vzdy soucasti nejakeho vyvojarskeho baliku od MS.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
CHM Help
[*] Jan Harman <harman(zv)volny(tec)cz> - 21.3.03 09:20:25
Ale ty jako vyvojar, nebudes samozrejme hledat na
www.microsoft.com ani cz ale na http://msdn.microsoft.com/
Honza.> > toto je vysledek hledani na microsoft(tec)cz pri zadani
> > HtmlHelp:
> > Bohu=BEel nebyly vr=E1ceny =BE=E1dn=E9 v=FDsledky
>=20
> A coz tak zkusit microsoft.com? :-) V leve horni casti
> obrazovky je
> okynko Search For, tam napises HtmlHelp a vrati ti to
> (krom
> dalsich)
>=20
> Best Bets results for HTML Help Workshop
> HTML Help Start Page
> HTML Help Downloads <---- tot ono
> About HTML Help Workshop
> About the HTML Help Executable Program
> HTML Help Components
>=20
> Jirka.
>=20
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Jak na MSDN
[*] Gropl Tom� <tgropl(zv)DPO.CZ> - 21.3.2003 09:11:29
No my v praci odebirame full MSDN tedy verzi Universal a pokud myslis =
MSDN
Library, tak ta ma asi 1,8 GB, takze bych ti nedoporucoval ji nekde =
stahovat
z netu, ale spise navstivit =
http://msdn.microsoft.com/library/default.asp a
tam si najdi co potrebujes, nebo si to vyprintni ... Nebo mas-li cca =
270$
tak si na Microsoftu objednej rocni predplatne MSDN Subscription =
Library a
Microsoft ti bude posilat vsechny novinky a kvartalni aktualizace =
jejich
MSDN na CD nebo DVD primo domu ... Jsou to obvykle 3 - 4 CD nebo jedno =
DVD
Posledni co jsem zatim dostal byla=20
MSDN Januar2003 Library ... Ale nejvice se toho dozvis na
http://www.microsoft.com/cze/ms.htm
Tom
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
"blikani" obrazovky
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 21.3.2003 09:02:39
Pokud by jsi chtel jenom fullscreen, tak si udelej programek ve starem
dobrem Pascalu nebo v ASM a vyjde te to na par radku. Sice budes mit
externi EXE/COM, ale opravdu to potom vse bude zalezet na vykonosti
grafiky a monitoru.
Jak to udelas:
1} Inicializuj graficky rezim 320x200 s 256barvami
- tim dostanes celou obrazovku v cerne barve
2} Zmen paletu barev=20
- respektive barve s indexem 0 zmen RGB na 255,255,255 - dostanes bilou
barvu
A potom zase zpet zmen RGB na 0,0,0 - dostanes cernou barvu
Jak primitivni, ze?
Prikladek:
Inicializace 320x200x256
mov ax,13h
int 10h=20
Prepnuti bravy 0 na bilou:
mov bx,0
mov cx,0FFFFh
mov dx,0FF00h
mov ax,1010h
int 10h
Prepnuti bravy 0 na cernou:
mov bx,0
mov cx,0
mov dx,0
mov ax,1010h
int 10h
Jednoduche, ze?
S pozdravem Pavel Koukal.
PS: Jestli je to blbost, tak promin. Myslel jsem, ze by to takhle mohlo
fungovat.
> Zdravim!
> Potreboval bych udelat okno, ktere bude stridave menit
> cernou a bilou barvu. Potrebuji to ale udelat co nejrychleji.
>
> Diky
CHM Help
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 21.3.2003 08:58:54
> toto je vysledek hledani na microsoft(tec)cz pri zadani HtmlHelp:
> Bohu=BEel nebyly vr=E1ceny =BE=E1dn=E9 v=FDsledky
A coz tak zkusit microsoft.com? :-) V leve horni casti obrazovky je
okynko Search For, tam napises HtmlHelp a vrati ti to (krom
dalsich)
Best Bets results for HTML Help Workshop
HTML Help Start Page
HTML Help Downloads <---- tot ono
About HTML Help Workshop
About the HTML Help Executable Program
HTML Help Components
Prihlaseni do W2000 bez prihlasovaciho dialogu
[*] Ty�lic Ji�� - 21.3.2003 08:49:24
Lze nastavit v Mistnim zabezpeceni (Ovladaci panely - Mistni zasady =
zabezpeceni).
Bohuzel si uz nevzpomenu ktera polozka :-(
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]=20
Sent: Friday, March 21, 2003 7:56 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Prihlaseni do W2000 bez prihlasovaciho dialogu
Ahoj
Dle meho nazoru se vubec nepotrebujes=20
prihlasovat. Pouze musis vytvorit aplikaci,=20
kterou zaregistrujes a budes spustet jako sluzbu.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od: Ing. Zden=ECk =D8ezn=ED=E8ek <reznicek(zv)nem.pce(tec)cz>
Datum: p=E1tek, 21. b=F8ezna 2003 v 7:56 dop.
P=F8edm=ECt: Prihlaseni do W2000 bez prihlasovaciho=20
dialogu
> Zdrav=EDm vsechny,
> nevite nekdo, jak se prihlasit do W2000 bez
> spusteni prihlasovaciho dilalogu
> po restartu nebo po zapnuti PC. Jde o to, ze=20
> potrebuji, aby mi najela
> aplikace automaticky i bez zasahu a=20
> pritomnosti uzivatele.
>=20
> Diky Zdenek Reznicek
>=20
>=20
jazykova mutacia programu.
[*] Dusan Nagy <Nagy(zv)inomacomp.sk> - 21.3.2003 08:48:11
Dobr=FD den,
Neviete niekto cim vytvorim subor *.ts a prelozim ho do *.qm tvaru.
=20
--=20
S pozdravem,
Dusan
Nagy(zv)inomacomp.sk
ICQ 38686733
MSDN
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 21.3.2003 08:33:52
Ty se musi kupovat.
> Nevite nekdo, jestli je nekde ke stazeni MSDN?
CHM Help
[*] Petr Langer <langer(zv)xdom(tec)cz> - 21.3.2003 08:23:20
A co takhle pouzit hlavu a zkusit to najit na www.microsoft.com :-/
pl
----- Original Message -----
From: "bleak" <bleak(zv)mvesely.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 21, 2003 5:25 AM
Subject: Re: CHM Help
> toto je vysledek hledani na microsoft(tec)cz pri zadani HtmlHelp:
> Bohu�el nebyly vr�ceny ��dn� v�sledky
>
> bleak
> ----- Original Message -----
> From: "J�n Harman" <harman(zv)volny(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, March 20, 2003 8:38 PM
> Subject: Re: CHM Help
>
>
> Na Microsoftu hledej HtmlHelp.
> J�n Harman, Brno, harman(zv)volny(tec)cz
>
>
>
>
Mazani stejnych vet v IB tabulce
[*] Ing. Zdenek Rezn�cek <reznicek(zv)nem.pce(tec)cz> - 21.3.2003 08:01:50
Diky,
diplnil jsem prim. klic s indexem a vse funguje OK.
Diky Zdenek R
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 7:15 AM
Subject: Re: Mazani stejnych vet v IB tabulce
> > Zdtavim vsechny,
> > mam problem pri mazani vet na IB 6 pres BDE. Pokud se mi v tabulce
> > vyskytnou dve uplne stejne vety, hlasi mi BDE pri mazani at jiz v
> > aplikaci, nebo treba pomoci DBD 'Multiple record found, but only one
> > was expected.'
>
> A jak je mazes? Na urovni SQL jazyka nejsi schopen dve stejne vety
rozlisit. Pokud
> pouzijes TTable ci co a zavolas Table.Delete, mel by se smazat jen jeden
radek, ten
> na kterem stojis, ale BDE to neni schopno zajistit. V tom pripade budes
muset pouzit
> SQL prikaz delete, ktery Ti ovsem smaze vsechny stejne vety, nebo (a to je
jen
> domnenka) prejit na IBExpress, kde IBTable by mohla ty dve vety rozlisit
pomoci
> rdb$db_key pole ci jak se to jmenuje. V kazdem pripade lze jen doporucit
do tabulky
> pridat nejaky primarni index, napr. ID plnene generatorem.
>
> David Lebeda
skin 2000
[*] Kamil <baranek(zv)sterk-olomouc(tec)cz> - 21.3.2003 08:27:38
Nev=EDte pros=EDm n=ECkdo o n=ECjak=E9m sajtu, kde lze sehnat komponentu =
s butony ve
stylu Office 2000 (nebo XP)?
D=ECkuji
kamil
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Re[2]: Zmena kursoru v DBGridu
[*] <js-delphi(zv)quick(tec)cz> - 21.3.2003 08:08:52
Ahoj
Promin, to co jsem psal by bylo mozne pouzit jako
udalost OnClick, ale Ty potrebujes OnMouse -
takze jdi pres tyto udalosti komponenty DBGrid se
stejnym postupem jak jsem nastinil.
Pozice mysi->sloupec + radek gridu->aktualni
hodnota v Cells[x,y] a zrejme podle honoty pak
zobrazit bublinkovou napovedu, zmenit kurzor atd.
Jeste jednou se omlouvam. Je rano, mozek mi
teprve startuje... ;o)
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Prihlaseni do W2000 bez prihlasovaciho dialogu
[*] <js-delphi(zv)quick(tec)cz> - 21.3.2003 07:55:44
Ahoj
Dle meho nazoru se vubec nepotrebujes =
prihlasovat=2E Pouze musis vytvorit aplikaci=2C =
kterou zaregistrujes a budes spustet jako sluzbu=2E
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Ing=2E Zden=ECk =D8ezn=ED=E8ek =3Creznicek=40nem=2Epce=2Ecz=3E
Datum=3A p=E1tek=2C 21=2E b=F8ezna 2003 v 7=3A56 dop=2E
P=F8edm=ECt=3A Prihlaseni do W2000 bez prihlasovaciho =
dialogu
=3E Zdrav=EDm vsechny=2C
=3E nevite nekdo=2C jak se prihlasit do W2000 bez =
=3E spusteni prihlasovaciho dilalogu
=3E po restartu nebo po zapnuti PC=2E Jde o to=2C ze =
=3E potrebuji=2C aby mi najela
=3E aplikace automaticky i bez zasahu a =
=3E pritomnosti uzivatele=2E
=3E =
=3E Diky Zdenek Reznicek
=3E =
=3E
Zmena kursoru v DBGridu
[*] <js-delphi(zv)quick(tec)cz> - 21.3.2003 07:54:00
ahoj=2C
problem jsem resil tak=2C ze jsem si grid sam =
vykresloval=2E v procedure ondrawitem (nebo tak =
nejak =3A) ) dostanes pozici mysi=2C kterou =
prepocitas na sloupec a radek a a pak podle =
indexu bunky udelas co chces=2E=2E=2E (nekdy mam se =
zmenou kurzoru problemy a ty odstranim tak=2C ze =
provedu application=2Eprocesmessage=3B)
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Miroslav Evjak =3Cme=2Edelphi=40seznam=2Ecz=3E
Datum=3A p=E1tek=2C 21=2E b=F8ezna 2003 v 6=3A30 dop=2E
P=F8edm=ECt=3A Zmena kursoru v DBGridu
=3E Ahoj=2C
=3E =
=3E potreboval bych v DBGridu podle hodnoty v =
=3E datasetu zobrazit hodnotou jako
=3E hypertextovy odkaz a po kliknuti =
=3E ShellExecute=2E Coz by nebyl problem=2C pouze
=3E nevim jak spachat aby po prejeti mysi nad =
=3E textem v bunce (v nejhorsim na
=3E celou bunkou) se zmenil kurzor na crHand a =
=3E po opusteni zase zpatky=2E
=3E =
=3E Dekuji za nakopnuti spravnym smerem=2E
=3E =
=3E ME
=3E =
=3E Ing=2EMiroslav Evj=E1k
=3E miroslav=2Eevjak=40seznam=2Ecz
=3E +420 607 875748
=3E =
=3E ---
=3E Odchoz=ED zpr=E1va neobsahuje viry=2E
=3E Zkontrolov=E1no antivirov=FDm syst=E9mem AVG =
=3E (http=3A//www=2Egrisoft=2Ecz)=2EVerze=3A 6=2E0=2E462 / =
=3E Virov=E1 b=E1ze=3A 261 - datum vyd=E1n=ED=3A 13=2E03=2E2003
=3E =
=3E
Prihlaseni do W2000 bez prihlasovaciho dialogu
[*] Ing. Zden�k �ezn��ek - 21.3.2003 07:56:14
Zdrav=EDm vsechny,
nevite nekdo, jak se prihlasit do W2000 bez spusteni prihlasovaciho dilal=
ogu
po restartu nebo po zapnuti PC. Jde o to, ze potrebuji, aby mi najela
aplikace automaticky i bez zasahu a pritomnosti uzivatele.
Diky Zdenek Reznicek
CHM Help
[*] bleak <bleak(zv)mvesely(tec)com> - 21.3.2003 05:25:52
toto je vysledek hledani na microsoft(tec)cz pri zadani HtmlHelp:
Bohu�el nebyly vr�ceny ��dn� v�sledky
bleak
----- Original Message -----
From: "J�n Harman" <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 8:38 PM
Subject: Re: CHM Help
Na Microsoftu hledej HtmlHelp.
J�n Harman, Brno, harman(zv)volny(tec)cz
Zmena kursoru v DBGridu
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 21.3.2003 06:30:51
Ahoj,
potreboval bych v DBGridu podle hodnoty v datasetu zobrazit hodnotou jako
hypertextovy odkaz a po kliknuti ShellExecute. Coz by nebyl problem, pouz=
e
nevim jak spachat aby po prejeti mysi nad textem v bunce (v nejhorsim na
celou bunkou) se zmenil kurzor na crHand a po opusteni zase zpatky.
Dekuji za nakopnuti spravnym smerem.
ME
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.03.2003
MSDN
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 21.3.2003 01:51:59
Nevite nekdo, jestli je nekde ke stazeni MSDN?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
"blikani" obrazovky
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 21.3.2003 00:59:57
Na 70 zmen za sekundu bys musel mit hodne dobrej monitor a nizky rozliseni,
aby zvladnul takovou frekvenci a stejne clovek ve vysledku uvidi jen zrejme
nejaky odstin s prumernym jasem, takze zrejme sedou.
Jedine k cemu me napada, ze by se to dalo pouzit je vyvolani epileptickeho
zachvatu :-)
Jinak pokud si poridis hodne dobry monitor a hodne dobrou grafickou kartu
tak abys dosahnul zhruba 140 fps, tak to v DelphiX asi neni problem.
VJ
----- Original Message -----
From: "Pavel Zichovsky" <zichovsky(zv)trul(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 9:29 PM
Subject: RE: "blikani" obrazovky
Zdravim,
On 20 Mar 2003 at 21:18, Commanche wrote:
> > Co nazyvas "pomale"?
> > Je 15 zmen za sekundu pomale?
>
> no ja bych potreboval minimalne 70 zmen za sekundu
> a stabilne
Hmm.. k cemu to ma slouzit? Jestli me moje derava pamet neklame, tak aby
toto slo, tak bys musel mit obnovovaci frekvenci monitoru minimalne 140Hz a
to urcite bezne neni (pri "klasickych" rozlisenich 1024x768 a vice).
Proc potrebujes 70 zmen? to uz je prece mimo rozlisovaci schopnosti snad
temer vseho :)) Clovek neuvidi nic jineho nez 50% sedou.
S pozdravem
Pavel �ichovsk� (zichovsky(zv)trul(tec)cz)CHM Help
[*] Milo� Kastner - 21.3.2003 00:34:21
Zkus Help & Manual od EC Software
http://www.ec-software.com
Umi hodne.
Milos Kastner
kastner(zv)stereo(tec)cz
Puvodni zprava:
> nevite, kde se da stahnout program, kterym se delaji chm helpy?
Jak rozchodit FastReport - vyreseno
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 20.3.2003 22:28:13
Odpovidam si sam: Zkusil jsem to na jinem pocitaci a tam to chodilo. =
Tak
jsem preinstaloval Delphi a uz to funguje.=20
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
Re[2]: Jak poslat string pres UDP?
[*] Pavel Bambasek <pabam(zv)volny(tec)cz> - 20.3.2003 21:48:51
Moc dekuju, ale ma to jeden hacek - mam delphi 7 a nejde mi to
zkompilovat, je tam spousta veci ktery D7 nezna... :-/
-----------------------------------------------------
Thursday, March 20, 2003, 1:06:19 PM, jsi napsal(a):
>> > Neni tam nejaka moznost udalosti "onrecieve" nebo tak neco? Neco co se
>> > vyvola kdyz prijmu data.
PV> Ahoj, ja na odosielanie a prijem UDP paketov
PV> pouzivam nizsie uvedenu jednoucelovu unitu,
PV> ktoru som kedysi dostal od L.Bodecka a mierne
PV> upravil (redukoval).
PV> Vlkovic
PV> Predmetna unita sa pouziva takto:
PV> var
PV> UDPSocket: TUDPSocket;
PV> ...
PV> UDPSocket := TUDPSocket.Create(Self);
PV> UDPSocket.OnDataReceived := UDPSocketReceived; // obsluha prijmu
PV> UDPSocket.Port := 3333; // cislo portu
PV> UDPSocket.Active := True; // aktivuje
PV> Odoslanie vyzera takto:
PV> procedure TForm1.bSendClick(Sender: TObject);
PV> Const
PV> IP: TIPAddr = ( 10, 33, 33, 55 );
PV> begin
PV> UDPSocket.SendData ( IP, MText.Text );
PV> end;
PV> Obsluha udalosti na prijem UDP napriklad takto:
PV> procedure TForm1.UDPSocketReceived(Sender: TObject);
PV> var
PV> Data: Variant;
PV> begin
PV> UDPSocket.GetData ( Data );
PV> ShowMessage ( Data );
PV> end;
PV> A nakoniec este slubovana unita:
PV> UNIT UDP_Lib;
PV> INTERFACE
PV> uses
PV> Windows, WinSock, Messages, SysUtils, Classes;
PV> CONST
PV> MaxDataSize = 512;
PV> TYPE
PV> TIPAddr = array[1..4] of Byte;
PV> TSockBuf = array[1..MaxDataSize] of Byte;
PV> TSockEvent = procedure (Sender: TObject) of object;
PV> // Pre chyby socketu treba zmenit konstanty a doplnit texty do
PV> FDINFO.INC
PV> EFDSockError = class(Exception);
PV> // Ve variantu pro TUDPSocket mozno (zatial) pouzit len string
PV> // a ciselne typy (nie je kontrolovane !)
PV> TUDPSocket = class(TComponent)
PV> private
PV> FActive : Boolean;
PV> SockHandle: TSocket;
PV> WndHandle: HWND;
PV> DgramBuf: TSockBuf;
PV> FConnectPort: Word;
PV> FErrorCode: Integer;
PV> FBytesReceived: Integer;
PV> FRemoteIPAddr: TIPAddr;
PV> FOnDataReceived: TSockEvent;
PV> FOnError: TSockEvent;
PV> FPort : Word;
PV> procedure WndProc (var Msg: TMessage);
PV> procedure ProcessData;
PV> procedure SendToAddr (ToAddr: LongInt; var Data: Variant);
PV> procedure Cleanup;
PV> procedure SetActive(AActive : Boolean);
PV> public
PV> constructor Create (AOwner : TComponent); override;
PV> destructor Destroy; override;
PV> procedure GetData (var Data: Variant); // nacita prichadzajuce data
PV> (vyuzite z eventu OnDataReceived)
PV> procedure SendData (IPAddr: TIPAddr; Data: Variant); // posle data
PV> procedure BroadcastData (Data: Variant); // posle vsetkym staniciam
PV> property Active : Boolean read FActive write SetActive default
PV> False;
PV> property ConnectPort: Word read FConnectPort;
PV> property ErrorCode: Integer read FErrorCode; // kod chyby
PV> property BytesReceived: Integer read FBytesReceived;
PV> property RemoteIPAddr: TIPAddr read FRemoteIPAddr; // adresa,
PV> odkial prisli data
PV> published
PV> property Port: Word read FPort write FPort;
PV> property OnDataReceived: TSockEvent read FOnDataReceived write
PV> FOnDataReceived;
PV> property OnError: TSockEvent read FOnError write FOnError;
PV> end;
PV> // Konverzne funkcie
PV> function IPAddrToStr (IPAddr: TIPAddr): String;
PV> function StrToIPAddr (S: String; var IPAddr: TIPAddr): Boolean;
PV> IMPLEMENTATION
PV> USES Forms;
PV> CONST
PV> WSAVersion = 1 shl 8 + 1; { version 1.1 }
PV> WM_SOCKEVENT = WM_USER + $8FFF;
PV> VAR
PV> WSAData : TWSAData;
PV> procedure TUDPSocket.WndProc (var Msg: TMessage);
PV> begin
PV> with Msg do
PV> if ( Msg = WM_SOCKEVENT ) and
PV> ( LParamLo = FD_READ ) then
PV> ProcessData()
PV> else
PV> Result := DefWindowProc ( WndHandle, Msg, wParam, lParam );
PV> end;
PV> procedure TUDPSocket.ProcessData;
PV> var
PV> IPAddr: TSockAddr;
PV> Len: Integer;
PV> begin
PV> Len := Sizeof(IPAddr);
PV> FBytesReceived := WinSock.recvfrom ( SockHandle, DgramBuf,
PV> Sizeof(DgramBuf), 0, IPAddr, Len);
PV> if FBytesReceived > 0 then
PV> begin
PV> FRemoteIPAddr := TIPAddr ( IPAddr.sin_addr );
PV> if Assigned ( FOnDataReceived ) then
PV> FOnDataReceived ( Self );
PV> end
PV> else
PV> begin
PV> FErrorCode := WSAGetLastError();
PV> if Assigned ( FOnError ) then
PV> FOnError ( Self );
PV> end;
PV> end;
PV> procedure TUDPSocket.SendToAddr (ToAddr: LongInt; var Data: Variant);
PV> var
PV> IPAddr: TSockAddr;
PV> Len: Integer;
PV> S: String;
PV> begin
PV> FillChar ( IPAddr, Sizeof(IPAddr), 0 );
PV> IPAddr.sin_family := AF_INET;
PV> IPAddr.sin_port := FConnectPort;
PV> IPAddr.sin_addr.S_addr := ToAddr;
PV> Len := 0;
PV> Move ( Data, DgramBuf, Sizeof(Data) );
PV> if VarType ( Data ) = varString then
PV> begin
PV> Len := Length ( Data ) + 1;
PV> if Len + Sizeof(Data) > MaxDataSize then
PV> Len := MaxDataSize - Sizeof(Data);
PV> S := Copy ( Data, 1, Len - 1 );
PV> Move ( PChar(S)^, DgramBuf[Sizeof(Data)+1], Len );
PV> end;
PV> Inc ( Len, Sizeof(Data) );
PV> if sendto ( SockHandle, DgramBuf, Len, 0, IPAddr, Sizeof(IPAddr)) < 0
PV> then
PV> raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
PV> end;
PV> procedure TUDPSocket.Cleanup;
PV> begin
PV> if SockHandle <> INVALID_SOCKET then
PV> begin
PV> WinSock.closesocket ( SockHandle );
PV> SockHandle := INVALID_SOCKET;
PV> if WndHandle <> 0 then
PV> begin
PV> DeallocateHWnd(WndHandle);
PV> WndHandle := 0;
PV> end;
PV> end;
PV> end;
PV> constructor TUDPSocket.Create (AOwner : TComponent);
PV> begin
PV> inherited Create ( AOwner );
PV> FPort := 0;
PV> FActive := False;
PV> end;
PV> procedure TUDPSocket.SetActive(AActive : Boolean);
PV> const
PV> EnableBCast: Integer = 1;
PV> var
PV> IPAddr: TSockAddr;
PV> begin
PV> if AActive then
PV> begin
PV> FConnectPort := FPort;
PV> FillChar ( IPAddr, Sizeof(IPAddr), 0 );
PV> IPAddr.sin_family := AF_INET;
PV> IPAddr.sin_port := FConnectPort;
PV> IPAddr.sin_addr.S_addr := INADDR_ANY;
PV> SockHandle := WinSock.socket ( PF_INET, SOCK_DGRAM, 0 );
PV> if SockHandle = INVALID_SOCKET then
PV> raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
PV> if WinSock.bind ( SockHandle, IPAddr, Sizeof(IPAddr) ) <> 0 then
PV> raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
PV> if WinSock.setsockopt
PV> (
PV> SockHandle,
PV> SOL_SOCKET,
PV> SO_BROADCAST,
PV> PChar((zv)EnableBCast),
PV> Sizeof(EnableBCast)
PV> ) <> 0 then
PV> raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
PV> WndHandle := AllocateHWnd ( WndProc );
PV> if WSAAsyncSelect
PV> (
PV> SockHandle,
PV> WndHandle,
PV> WM_SOCKEVENT,
PV> FD_READ
PV> ) <> 0 then
PV> raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
PV> end
PV> else CleanUp();
PV> FActive := AActive;
PV> end;
PV> destructor TUDPSocket.Destroy;
PV> begin
PV> CleanUp();
PV> inherited Destroy;
PV> end;
PV> procedure TUDPSocket.GetData (var Data: Variant);
PV> var
PV> V: TVarData;
PV> begin
PV> Move ( DgramBuf, V, Sizeof(V) );
PV> if V.VType = varString then
PV> Data := StrPas ( PChar((zv)DgramBuf[Sizeof(V) + 1]) )
PV> else
PV> Data := Variant ( V );
PV> end;
PV> procedure TUDPSocket.SendData (IPAddr: TIPAddr; Data: Variant);
PV> begin
PV> SendToAddr ( LongInt(IPAddr), Data );
PV> end;
PV> procedure TUDPSocket.BroadcastData (Data: Variant);
PV> begin
PV> SendToAddr ( INADDR_BROADCAST, Data );
PV> end;
PV> function IPAddrToStr (IPAddr: TIPAddr): String;
PV> begin
PV> Result := IntToStr(IPAddr[1]) + '.' + IntToStr(IPAddr[2]) + '.' +
PV> IntToStr(IPAddr[3]) + '.' + IntToStr(IPAddr[4]);
PV> end;
PV> function StrToIPAddr (S: String; var IPAddr: TIPAddr): Boolean;
PV> var
PV> Code: Integer;
PV> S1: String;
PV> I, L: Integer;
PV> begin
PV> Result := False;
PV> if S <> '' then
PV> begin
PV> S1 := S + '.';
PV> for I := 1 to 4 do
PV> begin
PV> L := Pos('.', S1);
PV> if L = 0 then
PV> Exit;
PV> Val ( Copy ( S1, 1, L-1 ), IPAddr[I], Code );
PV> if Code <> 0 then
PV> Exit;
PV> Delete(S1, 1, L);
PV> end;
PV> Result := True;
PV> end;
PV> end;
PV> INITIALIZATION
PV> WSAStartup ( WSAVersion, WSAData );
PV> FINALIZATION
PV> WSACleanup();
PV> END.
"blikani" obrazovky
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 20.3.2003 21:29:43
Zdravim,
On 20 Mar 2003 at 21:18, Commanche wrote:
> > Co nazyvas "pomale"?
> > Je 15 zmen za sekundu pomale?
>
> no ja bych potreboval minimalne 70 zmen za sekundu
> a stabilne
Hmm.. k cemu to ma slouzit? Jestli me moje derava pamet neklame, tak aby
toto slo, tak bys musel mit obnovovaci frekvenci monitoru minimalne 140Hz =
a
to urcite bezne neni (pri "klasickych" rozlisenich 1024x768 a vice).
Proc potrebujes 70 zmen? to uz je prece mimo rozlisovaci schopnosti snad
temer vseho :)) Clovek neuvidi nic jineho nez 50% sedou.
S pozdravem
Pavel =AEichovsk=FD (zichovsky(zv)trul(tec)cz)
zpravy windows a sluzba TService
[*] Petr Varga <djvar(zv)post(tec)cz> - 20.3.03 21:29:52
Ahoj...
Pot=F8eboval bych poradit..Jak obslou=BEit zpr=E1vy v slu=BEb=EC?
Application.OnMessage nen=ED mo=BEn=E9, a jin=E9 vypracov=E1n=ED m=EC
nenapad=E1.. Nem=E1te n=ECkdo zku=B9enosti?
D=EDky Petr
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
ADMIN: OT: test
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.2003 21:20:50
Puvodni zprava, kterou napsal Tom=E1=B9 Janta=E8 dne 20 Mar 2003:
> omlouvam se za OT, ale prihlasil jsem se do konference a nejak do ni
> nemohu protlacit prizpevek :o(
Tak to je pekne, ze jsi protlacil aspon to, co sem vubec nepatri. Bud tak
hodny a precti si pravidla, nez zacnes priste zase neco tlacit...
Dekuji a jsem s pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
"blikani" obrazovky
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 20.3.2003 21:04:06
Co nazyvas "pomale"?
S DelphiX muzes udelat klidne 20-30 fps a kazdy z tech snimku muze mit jinou
barvu.
Je 15 zmen za sekundu pomale?
VJ
----- Original Message -----
From: "Commanche" <komurka(zv)myto(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 4:07 PM
Subject: "blikani" obrazovky
> Zdravim!
> Potreboval bych udelat okno, ktere bude stridave menit
> cernou a bilou barvu. Potrebuji to ale udelat co nejrychleji.
> Zkousel jsem to s DelphiX, ale zda se mi to pomale.
> Nebo nevite nekdo o nejakych vykonnejsich komponentach
> pro praci s grafikou?
>
> (Delphi 6 Ent, Win XP proff SP1)
>
> Diky
>
> ++++++++++++++++++++++++++++++
> + Commanche
> + mailto:milos(zv)komurka(tec)cz
> + http://www.komurka(tec)cz
> + ICQ: 149633182
> + IRCnet: #mejto (Commanche)
> ++++++++++++++++++++++++++++++
>
>