Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Volani FormKeyDown z OnShow formulare
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 17.10.2003 13:20:14
Kdepak. To mi nejde. Uz jsem z toho magor...
[Error] MtzCisMObor.pas(96): Not enough actual parameters
V.
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Friday, October 17, 2003 12:54 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Volani FormKeyDown z OnShow formulare
17.10.2003 LUKES Vaclav:
> Me to proste nechodi.
> Ve FormShow mam:
> Frm.OnKeyDown(Self, 0, 0);
> a dostanu nasledujici hlasku:
> [Error] MtzCisMObor.pas(93): Types of actual and formal var parameters must be identical
Pokud je parametr typu VAR, tak mu tam nemuzes predhodit primo cislo,
ale musis pouzit promennou !
Zkus to jinak. Zavolej v OnShow primo
Form.KeyDown;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
tvorba menu
[*] mato <mato.tino(zv)inmail.sk> - 17.10.2003 11:40:01
no jasne, tak to by ma nenapadlo.
>
> Nemas nahodou zapnutou funkci v systemu "Zobrazovat zkratkove klavesy az
> po stisknuti Alt"
> nebo tak nejak se to jmenuje.
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
> =====================================
Volani FormKeyDown z OnShow formulare
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 17.10.2003 11:40:01
Me to proste nechodi.
Ve FormShow mam:
Frm.OnKeyDown(Self, 0, 0);
a dostanu nasledujici hlasku:
[Error] MtzCisMObor.pas(93): Types of actual and formal var parameters must be identical
V.
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Friday, October 17, 2003 10:52 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Volani FormKeyDown z OnShow formulare
> Jan Fiala:
> V OnShow si zavolej primo obsluhu udalosti:
> FormKeyDown(Self);
>
-------------
> Od: LUKES Vaclav <lukes(zv)ans(tec)cz>
> To mi prace nejde:
>
> [Error] MtzCisMObor.pas(94): Not enough actual parameters
--------------
No to jsem Ti psal presne v mem navrhu. Udalost OnFormKeyDown ma urcite jako dalsi parametr hodnotu stisknute klavesy a mozna i parametr o stisknute spec. klavese (ted si to z hlavy nevybavuju)
Pokud tedy chces volat obsluhu udalosti OnFormKeyDowm z OnShow bude to vypadat nejak takhle:
procedure TForm1.OnShow (Sender : TObject);
begin
Form1.OnKeyFormDown(Self, 0, 0);
end;
pokud je FormKeyDown takhle:
procedure TForm1.OnFormKeyDown (Sender : TObject; Key : integer; Shift : TShift);
Jeste jednou pripominam, ze si nevybavuju jake jsou vsechny paramtery u ty procedury.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
Prevod castky v kc do slovni podoby
[*] Kacka software <kackasw(zv)kackasw(tec)cz> - 17.10.2003 12:58:07
> Mate nekdo algoritmus, ktery prevede castku v Kc na slovni vyjadreni
(pokud mozno vcetne haleru).
>
> Diky.
>
>
Tady to mas, ale neni to na halere, snadno si to uz doplnis
function TFrTSlozA.Slovy(cislo : string): string;
var stra,str,
jed,des,sto,tis,destis,stotis,mil,desmil,
njed,ndes,nsto,ntis,ndestis,nstotis,nmil,ndesmil:string;
SprDelka, delka : integer;
begin
strA:= cislo;
str:=trim(strA);
delka := length(str);
jed:=copy(str,delka,1);
if jed='1' then Njed:='jeden';
if jed='2' then Njed:='dva';
if jed='3' then Njed:='t?i';
if jed='4' then Njed:='ety?i';
if jed='5' then Njed:='pit';
if jed='6' then Njed:='sest';
if jed='7' then Njed:='sedm';
if jed='8' then Njed:='osm';
if jed='9' then Njed:='devit';
sprDelka := delka - 1;
if sprdelka > 0 then
begin
des:=copy(str,sprdelka,1);
if (des='1') AND (jed='1') then Ndes:='jedenact';
if (des='1') AND (jed='2') then Ndes:='dvanact';
if (des='1') AND (jed='3') then Ndes:='t?inact';
if (des='1') AND (jed='4') then Ndes:='etrnact';
if (des='1') AND (jed='5') then Ndes:='patnact';
if (des='1') AND (jed='6') then Ndes:='sestnact';
if (des='1') AND (jed='7') then Ndes:='sedmnact';
if (des='1') AND (jed='8') then Ndes:='osmnact';
if (des='1') AND (jed='9') then Ndes:='devatenact';
if (des='1') AND (jed='0') then Ndes:='deset';
if des='2' then Ndes:='dvacet';
if des='3' then Ndes:='t?icet';
if des='4' then Ndes:='ety?icet';
if des='5' then Ndes:='padesat';
if des='6' then Ndes:='sedesat';
if des='7' then Ndes:='sedmdesat';
if des='8' then Ndes:='osmdesat';
if des='9' then Ndes:='devadesat';
end;
sprDelka := delka - 2;
if sprdelka > 0 then
begin
sto:=copy(str,sprdelka,1);
if sto='1' then Nsto:='jednosto ';
if sto='2' then Nsto:='dvisti ';
if sto='3' then Nsto:='t?ista ';
if sto='4' then Nsto:='ety?ista ';
if sto='5' then Nsto:='pitset ';
if sto='6' then Nsto:='sestset ';
if sto='7' then Nsto:='sedmset ';
if sto='8' then Nsto:='osmset ';
if sto='9' then Nsto:='devitset ';
end;
sprDelka := delka - 3;
if sprdelka > 0 then
begin
tis:=copy(str,sprdelka,1);
if tis='1' then Ntis:='jedentisic ';
if tis='2' then Ntis:='dvatisice ';
if tis='3' then Ntis:='t?itisice ';
if tis='4' then Ntis:='ety?itisice ';
if tis='5' then Ntis:='pittisic ';
if tis='6' then Ntis:='sesttisic ';
if tis='7' then Ntis:='sedmtisic ';
if tis='8' then Ntis:='osmtisic ';
if tis='9' then Ntis:='devittisic ';
end;
sprDelka := delka - 4;
if sprdelka > 0 then
begin
destis:=copy(str,sprdelka,1);
if (destis='1') AND (tis='1') then NdesTis:='jedenacttisic ';
if (destis='1') AND (tis='2') then NdesTis:='dvanacttisic ';
if (destis='1') AND (tis='3') then NdesTis:='t?inacttisic ';
if (destis='1') AND (tis='4') then NdesTis:='etrnacttisic ';
if (destis='1') AND (tis='5') then NdesTis:='patnacttisic ';
if (destis='1') AND (tis='6') then NdesTis:='sestnacttisic ';
if (destis='1') AND (tis='7') then NdesTis:='sedmnacttisic ';
if (destis='1') AND (tis='8') then NdesTis:='osmnacttisic ';
if (destis='1') AND (tis='9') then NdesTis:='devatenacttisic ';
if (destis='1') AND (tis='0') then NdesTis:='desettisic ';
if (destis='2') AND (tis='0') then NdesTis:='dvacettisic ';
if (destis='2') AND (tis<>'0') then NdesTis:='dvacet';
if (destis='3') AND (tis<>'0') then NdesTis:='t?icet';
if (destis='4') AND (tis<>'0') then NdesTis:='ety?icet';
if (destis='5') AND (tis<>'0') then NdesTis:='padesat';
if (destis='6') AND (tis<>'0') then NdesTis:='sedesat';
if (destis='7') AND (tis<>'0') then NdesTis:='sedmdesat';
if (destis='8') AND (tis<>'0') then NdesTis:='osmdesat';
if (destis='9') AND (tis<>'0') then NdesTis:='devadesat';
if (destis='2') AND (tis='0') then NdesTis:='dvacettisic ';
if (destis='3') AND (tis='0') then NdesTis:='t?icettisic ';
if (destis='4') AND (tis='0') then NdesTis:='ety?icettisic ';
if (destis='5') AND (tis='0') then NdesTis:='padesattisic ';
if (destis='6') AND (tis='0') then NdesTis:='sedesattisic ';
if (destis='7') AND (tis='0') then NdesTis:='sedmdesattisic ';
if (destis='8') AND (tis='0') then NdesTis:='osmdesattisic ';
if (destis='9') AND (tis='0') then NdesTis:='devadesattisic ';
end;
sprDelka := delka - 5;
if sprdelka > 0 then
begin
stotis:=copy(str,sprdelka,1);
if stotis='1' then NstoTis:='sto';
if stotis='2' then NstoTis:='dvisti';
if stotis='3' then NstoTis:='t?ista';
if stotis='4' then NstoTis:='ety?ista';
if stotis='5' then NstoTis:='pitset';
if stotis='6' then NstoTis:='sestset';
if stotis='7' then NstoTis:='sedmset';
if stotis='8' then NstoTis:='osmset';
if stotis='9' then NstoTis:='devitset';
end;
sprDelka := delka - 6;
if sprdelka > 0 then
begin
mil:=copy(str,sprdelka,1);
if mil='1' then Nmil:='jedenmilion ';
if mil='2' then Nmil:='dvamiliony ';
if mil='3' then Nmil:='t?imiliony ';
if mil='4' then Nmil:='ety?imiliony ';
if mil='5' then Nmil:='pitmilionu ';
if mil='6' then Nmil:='sestmilionu ';
if mil='7' then Nmil:='sedmmilionu ';
if mil='8' then Nmil:='osmmilionu ';
if mil='9' then Nmil:='devitmilionu ';
end;
sprDelka := delka - 7;
if sprdelka > 0 then
begin
desmil:=copy(str,sprdelka,1);
if (desmil='1') AND (mil='1') then Ndesmil:='jedenactmilionu ';
if (desmil='1') AND (mil='2') then Ndesmil:='dvanactmiliinu ';
if (desmil='1') AND (mil='3') then Ndesmil:='t?inactmiliinu ';
if (desmil='1') AND (mil='4') then Ndesmil:='etinactmiliinu ';
if (desmil='1') AND (mil='5') then Ndesmil:='patnactmiliinu ';
if (desmil='1') AND (mil='6') then Ndesmil:='sestnactmiliinu ';
if (desmil='1') AND (mil='7') then Ndesmil:='sedmnactmiliinu ';
if (desmil='1') AND (mil='8') then Ndesmil:='osmnactmiliinu ';
if (desmil='1') AND (mil='9') then Ndesmil:='devatenactmiliinu ';
if desmil='1' then Ndesmil:='desetmiliinu ';
if desmil='2' then Ndesmil:='dvacet';
if desmil='3' then Ndesmil:='t?icet';
if desmil='4' then Ndesmil:='ety?icet';
if desmil='5' then Ndesmil:='padesat';
if desmil='6' then Ndesmil:='sedesat';
if desmil='7' then Ndesmil:='sedmdesat';
if desmil='8' then Ndesmil:='osmdesat';
if desmil='9' then Ndesmil:='devadesat';
end;
if (des<>'1') AND (destis<>'1') AND (desmil<>'1') then
slovy:=Ndesmil+nmil+Nstotis+Ndestis+Ntis+NSto+Ndes+Njed;
if (des='1' ) AND (destis<>'1') AND (desmil<>'1') then
slovy:=Ndesmil+nmil+Nstotis+Ndestis+Ntis+NSto+Ndes ;
if (des<>'1') AND (destis='1' ) AND (desmil<>'1') then
slovy:=Ndesmil+nmil+Nstotis+Ndestis+ NSto+Ndes+Njed;
if (des='1' ) AND (destis='1' ) AND (desmil<>'1') then
slovy:=Ndesmil+nmil+Nstotis+Ndestis+ NSto+Ndes ;
if (des<>'1') AND (destis<>'1') AND (desmil='1') then slovy:=Ndesmil+
Nstotis+Ndestis+Ntis+NSto+Ndes+Njed;
if (des='1' ) AND (destis<>'1') AND (desmil='1') then slovy:=Ndesmil+
Nstotis+Ndestis+Ntis+NSto+Ndes ;
if (des<>'1') AND (destis='1' ) AND (desmil='1') then slovy:=Ndesmil+
Nstotis+Ndestis+ NSto+Ndes+Njed;
if (des='1' ) AND (destis='1' ) AND (desmil='1') then slovy:=Ndesmil+
Nstotis+Ndestis+ NSto+Ndes ;
end;Volani FormKeyDown z OnShow formulare
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 17.10.2003 12:54:07
17.10.2003 LUKES Vaclav:
> Me to proste nechodi.
> Ve FormShow mam:
> Frm.OnKeyDown(Self, 0, 0);
> a dostanu nasledujici hlasku:
> [Error] MtzCisMObor.pas(93): Types of actual and formal var parameters must be identical
Pokud je parametr typu VAR, tak mu tam nemuzes predhodit primo cislo,
ale musis pouzit promennou !
Zkus to jinak. Zavolej v OnShow primo
Form.KeyDown;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Volani FormKeyDown z OnShow formulare
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 17.10.2003 12:38:06
Prave, ze mam problem, jake parametry tam dat...
V.
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Friday, October 17, 2003 12:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Volani FormKeyDown z OnShow formulare
17.10.2003 LUKES Vaclav:
>> poradite mi prosim ?
>> Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad
>> spoustel i pri OnShow formulare.
> V OnShow si zavolej primo obsluhu udalosti: FormKeyDown(Self);
> [Error] MtzCisMObor.pas(94): Not enough actual parameters
Predpokladal jsem, ze si ty dalsi parametry doplnis, v hlave je
nenosim. Zrejme jsem tammel dopsat ...
Ta chyba by ti ale mela rict, co s tim musis delat
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prevod castky v kc do slovni podoby
[*] Stanislav PETR - GLUX(tec)cz <stanislav.petr(zv)glux(tec)cz> - 17.10.2003 12:10:03
Dobry den,
Friday, October 17, 2003, 11:25:59 AM, jste napsal(a):
FM> Mate nekdo algoritmus, ktery prevede castku v Kc na slovni
FM> vyjadreni (pokud mozno vcetne haleru).
Nejjednoduzsi je pouzit case v nejakem cyklu a skladat to po
cislicich.
Pokud to nezvladnete, podivejte se v knihpupectvi po knizce Priklady z
Pascalu (nebo tak nejak), je tak resenejch spousta takovychto uloh.
--
Stanislav PETR
Network specialist
glux(zv)glux(tec)cz
www.GLUX(tec)cz
tel.: 732 654 455
PGP: http://www.glux(tec)cz/pgp/stanislav_petr.txt
ICQ: 51846098
Prevod castky v kc do slovni podoby -> OT
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 17.10.2003 12:30:05
Dovol mi Te trosku opravit: Halere budou, ale hotovostni platby budou
probihat maximalne na padesatniky. Nicmene na pokladnich dokladech se
halerove vyjadreni nezapisuje slovne, ale cislicemi.
;-)
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
software, obchod, servis
tel. +420 776 677 776
tel. +420 465 321 555
+420 465 320 141
fax +420 465 320 143
http://www.4squares.net
mailto:support(zv)4squares.net
ICQ# 169852749
**************************************
* Zajimate se o automobilovy sport ? *
* http://www.zavodydovrchu(tec)cz *
**************************************
> -----Original Message-----
> From: Petr Zahradnik
> V archivu toho jiste najdes spousty, tak si to vyhledej. No a jinak
> halere uz brzy nebudou, jak jiste vis :-)
Volani FormKeyDown z OnShow formulare
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 17.10.2003 12:08:03
17.10.2003 LUKES Vaclav:
>> poradite mi prosim ?
>> Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad
>> spoustel i pri OnShow formulare.
> V OnShow si zavolej primo obsluhu udalosti: FormKeyDown(Self);
> [Error] MtzCisMObor.pas(94): Not enough actual parameters
Predpokladal jsem, ze si ty dalsi parametry doplnis, v hlave je
nenosim. Zrejme jsem tammel dopsat ...
Ta chyba by ti ale mela rict, co s tim musis delat
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
tvorba menu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 17.10.2003 11:27:59
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of mato
> zdravim,
Ahoj,
> v D7 skusam urobit menu so zvyraznenym pismenom pre spustenie
> cez zkratkovu
> klavesu ALT -
> do caption som dal &Subor. V menu designery mi UKaze S
> podtrzene ale vo
> formulary uz nie. Co robim zle ?
Nemas nahodou zapnutou funkci v systemu "Zobrazovat zkratkove klavesy az
po stisknuti Alt"
nebo tak nejak se to jmenuje.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
TWebBrowser - ukoncenie - II
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 17.10.2003 12:00:02
17.10.2003 KALUS Jozef:
>> a ako si zistil, ze sa TWebBrowser zavrel? ja to akosi nemozem
>> vysnorit, to by mi uplne stacilo :o) zavrel by som aplikaciu a bolo by
>> vsetko v poriadku, ziadna chyba :o)
> Delal jsem to (trochu prasacky) pres TPaintBox. Jeho metoda OnPaint se
> vyvola az po skryti TWebBrowser, ktery byl pres ni. Pak staci v OnPaint
> zavrit aplikaci.
> tak toto funguje, ale ma to jeden zadrhel, v momente ked je v evente OnPaint
> napr. ShowMessage, po jeho odkliknuti znova vyskoci vynimka, treba aplikaciu
> hned zlikvidovat application.terminate, potom vynimka nevyskoci...
Jako prvni, co v tom OnPaint udelas udelej:
PaintBox.OnPaint := nil;
Tim zabranis dalsimu vyvolavani.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prevod castky v kc do slovni podoby
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.10.2003 11:34:00
Puvodni zprava ze dne 17.10.2003:
> Mate nekdo algoritmus, ktery prevede castku v Kc na slovni
> vyjadreni (pokud mozno vcetne haleru).
V archivu toho jiste najdes spousty, tak si to vyhledej. No a jinak
halere uz brzy nebudou, jak jiste vis :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Prevod castky v kc do slovni podoby
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 17.10.2003 11:25:59
Mate nekdo algoritmus, ktery prevede castku v Kc na slovni vyjadreni (pokud mozno vcetne haleru).
Diky.tvorba menu
[*] mato <mato.tino(zv)inmail.sk> - 17.10.2003 11:13:57
zdravim,
v D7 skusam urobit menu so zvyraznenym pismenom pre spustenie cez zkratkovu
klavesu ALT -
do caption som dal &Subor. V menu designery mi UKaze S podtrzene ale vo
formulary uz nie. Co robim zle ?Volani FormKeyDown z OnShow formulare
[*] js-delphi(zv)quick(tec)cz - 17.10.2003 10:51:56
> Jan Fiala:
> V OnShow si zavolej primo obsluhu udalosti:
> FormKeyDown(Self);
>
-------------
> Od: LUKES Vaclav <lukes(zv)ans(tec)cz>
> To mi prace nejde:
>
> [Error] MtzCisMObor.pas(94): Not enough actual parameters
--------------
No to jsem Ti psal presne v mem navrhu. Udalost OnFormKeyDown ma urcite jako dalsi parametr hodnotu stisknute klavesy a mozna i parametr o stisknute spec. klavese (ted si to z hlavy nevybavuju)
Pokud tedy chces volat obsluhu udalosti OnFormKeyDowm z OnShow bude to vypadat nejak takhle:
procedure TForm1.OnShow (Sender : TObject);
begin
Form1.OnKeyFormDown(Self, 0, 0);
end;
pokud je FormKeyDown takhle:
procedure TForm1.OnFormKeyDown (Sender : TObject; Key : integer; Shift : TShift);
Jeste jednou pripominam, ze si nevybavuju jake jsou vsechny paramtery u ty procedury.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
customizace formu - plovouci panely
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 17.10.2003 10:47:56
Na to se da Toolbar97 pouzit rovnez. Podivej se na mou stranku, program
"Parametricke systemy funkci", tam je to pouzite.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o. Nejde mi jen o menu a toolbary, jde mi o celz form, o panelz na
formu. > Jordan Russell - Toolbar97, viz http://www.jrsoftware.org/.
> Free pro nekomercni vyuziti.
> Mam nekolik panelu, uzivatel by si mel mit moznost
> urcit, kde ktery
> bude, jestli bude videt a tak podobne.
> na tech panelech jsou nejake ovladaci prvky a gridy.
customizace formu - plovouci panely
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 17.10.2003 10:37:55
Nejde mi jen o menu a toolbary, jde mi o celz form, o panelz na formu.
Petr Sikola
> Jordan Russell - Toolbar97, viz http://www.jrsoftware.org/.
> Free pro nekomercni vyuziti.
> Mam nekolik panelu, uzivatel by si mel mit moznost
> urcit, kde ktery
> bude, jestli bude videt a tak podobne.
> na tech panelech jsou nejake ovladaci prvky a gridy.
customizace formu - plovouci panely
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 17.10.2003 10:07:52
> -----Original Message-----
> Mam nekolik panelu, uzivatel by si mel mit moznost urcit, kde ktery
> bude, jestli bude videt a tak podobne.
> na tech panelech jsou nejake ovladaci prvky a gridy.
>
> Nevite o nejake komponente, ktera toto implementuje?
Jeste v JVCL TJvCaptionPanel. Me se celkem libi, ale zase je hooone pomalej
pri prekreslovani... :-(
Danik
customizace formu - plovouci panely
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 17.10.2003 10:13:53
Jordan Russell - Toolbar97, viz http://www.jrsoftware.org/. Free pro
nekomercni vyuziti.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
Potreboval bych do sve aplikace udelat moznost prizpusobeni
uzivatelem,
aby si mohl vyhazet to, co nepotrebuje, narovnat panely na formu
tak,
jak mu to vyhovuje.
Mam nekolik panelu, uzivatel by si mel mit moznost urcit, kde ktery
bude, jestli bude videt a tak podobne.
na tech panelech jsou nejake ovladaci prvky a gridy.
Volani FormKeyDown z OnShow formulare
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 17.10.2003 09:25:49
To mi prace nejde:
[Error] MtzCisMObor.pas(94): Not enough actual parameters
V.
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Friday, October 17, 2003 9:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Volani FormKeyDown z OnShow formulare
17.10.2003 LUKES Vaclav:
> Ahoj,
> poradite mi prosim ?
> Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad spoustel i pri OnShow formulare.
V OnShow si zavolej primo obsluhu udalosti: FormKeyDown(Self);
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
TWebBrowser - ukoncenie - II
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 17.10.2003 09:25:49
> a ako si zistil, ze sa TWebBrowser zavrel? ja to akosi nemozem
> vysnorit, to by mi uplne stacilo :o) zavrel by som aplikaciu a bolo by
> vsetko v poriadku, ziadna chyba :o)
Delal jsem to (trochu prasacky) pres TPaintBox. Jeho metoda OnPaint se
vyvola az po skryti TWebBrowser, ktery byl pres ni. Pak staci v OnPaint
zavrit aplikaci.
tak toto funguje, ale ma to jeden zadrhel, v momente ked je v evente OnPaint
napr. ShowMessage, po jeho odkliknuti znova vyskoci vynimka, treba aplikaciu
hned zlikvidovat application.terminate, potom vynimka nevyskoci...
otazka:
da sa nejako mojim kodom osetrit tato vynimka: Class OLE Error with message:
Could not obtain OLE control window handle.... ? zrejme sa znova snazi
nejako inicializovat TWebBrowser... vsetky moje pokusi ju odchytit mi akosi
zlyhali
dik
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus
L. Stura 17/28
018 61 BELUSA
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
Web: http://www.equipment.sk
Jak casovat animaci v Delphi, aby
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 17.10.2003 09:49:51
Ahoj,
%subj% nedochazelo k zasekavani (nebo se aspon o dost snizilo) pri
pretahovani jinych formu aplikace nebo napr. stisknuti malych buttonku pro
zavreni/minimalizaci/maximalizaci okna?
Animacni komponentu casuju timerem nebo vlastnim threadem se synchronizaci -
zasekava se v obou pripadech (patrne na te synchronizaci).
Totez by se hodilo vyresit pri aktualizaci prijatych dat z jineho threadu na
mainformu - tam to ale tak nevadi.
Je to vubec mozne?
Diky
Tomas
D7, XP
Pocitac s w2k se misto vypnuti zrestartuje
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.10.2003 09:41:50
Zdravim
Mel jsem stejny problem s infraportem MA-620 na USB. Pokud jsem neodpojil
(nevysunul) toto zarizeni PC s W2k nevypinal, ale restartoval.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> Dobry den,
> prosim o radu:
> pred nedavnou dobou se nam prestaly vypinat pocitace - misto vypnuti se
> restartuji:
> w2k sp4, ACPI zapnuto.
> Smula je ta, ze podobny problem ma i nas dodavatel :-(
> Nevite nekdo, jak tohle vyresit - setkal se nekdo s tim?
customizace formu - plovouci panely
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 17.10.2003 09:29:49
Zdravim,
Potreboval bych do sve aplikace udelat moznost prizpusobeni uzivatelem,
aby si mohl vyhazet to, co nepotrebuje, narovnat panely na formu tak,
jak mu to vyhovuje.
Mam nekolik panelu, uzivatel by si mel mit moznost urcit, kde ktery
bude, jestli bude videt a tak podobne.
na tech panelech jsou nejake ovladaci prvky a gridy.
Nevite o nejake komponente, ktera toto implementuje?
Zkousel jsem si napsat vlastni drag&drop, trapil jsem se tam s
alignmentama a nepodarilo se mi po ukonceni aplikace narovnat panely
tak, jak jsem skoncil.
Proto hledam nejake hotove reseni.
Koukal jsem na TMS na jejich toolpanel, vcelku to vzpada dobre, ale
stale to neni ono.
Take jsem koukal na Dev. Express na LayoutControl s podobnym zaverem :-(
Dik za nasmerovani
Petr Sikola
Volani FormKeyDown z OnShow formulare
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 17.10.2003 09:21:48
17.10.2003 LUKES Vaclav:
> Ahoj,
> poradite mi prosim ?
> Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad spoustel i pri OnShow formulare.
V OnShow si zavolej primo obsluhu udalosti: FormKeyDown(Self);
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Pocitac s w2k se misto vypnuti zrestartuje
[*] Petr Langer <langer(zv)xdom(tec)cz> - 17.10.2003 09:09:47
Zkuste se podivat do registru na:
HKLM\Software\Microsoft\WindowsNT\CurrentVersion\Winlogon
mel by tam byt klic "PowerdownAfterShutdown" typu "REG_SZ" a hodnota "1"
Ja osobne neuspesne resim problem s tim, ze pri vypinani se mi sice notebook
vypne, ale po hibernaci se mi restartuje... Pokud vas problem neni zpusoben
uvedenym nastavenim registru a prijdete na jine reseni, dejte mi prosim
vedet, mozna by to pomohlo i mne.
S pozdravem,
Petr Langer
----- Original Message -----
From: "Bohac Frantisek" <bohacf(zv)vnol(tec)cz>
Subject: OT: Pocitac s w2k se misto vypnuti zrestartuje
> Dobry den,
>
> prosim o radu:
>
> pred nedavnou dobou se nam prestaly vypinat pocitace - misto vypnuti se
> restartuji:
>
> w2k sp4, ACPI zapnuto.
>
> Smula je ta, ze podobny problem ma i nas dodavatel :-(
> Nevite nekdo, jak tohle vyresit - setkal se nekdo s tim?
>
> Dekuji za jakoukoliv radu.
>
> S pozdravem
>
> Frantisek Bohac
Volani FormKeyDown z OnShow formulare
[*] js-delphi(zv)quick(tec)cz - 17.10.2003 09:07:47
From: LUKES Vaclav
> Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad spoustel i pri OnShow
> formulare.
Ahoj!
V pripade, ze Te zajima stejna f-ce i v momente, ze formular dostane hlaseni udalosti OnShow, tak tam asi moc kodu ke klavesnici nemas, vid? :)
Pak by to slo resit vytvorenim procedury nebo funkce (mimo obe zminene procedury) a tu pak volat z obou events.
No a nebo Te zajima co opravdu uzivatel zmacknul a pak to z nejakeho duvodu nepotrebujes u OnShow. Tak to by slo v obsluze udalosti OnShow volat obsluhu udalosti FormKeyDown, kdyz doplnis vsechny predavane parametry. Cislo stisknute klavesy si muzes vymyslet (to by jsi mohl pouzit pro rozliseni zda to prislo opravdu z klavesnice nebo z OnShow) a object (sender) muzes dat self. (pocet parametru si z hlavy nepamatuju, ale max tam bude jeste shift - urcuje spec. klavesy alt,shift,atd. tak mu muzes predat taky libovolnou hodnotu)
Melo by to fungovat.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
Vyuzitie CPU
[*] Petr Langer <langer(zv)xdom(tec)cz> - 17.10.2003 09:03:47
Nejjednoduseji asi pres system counters.
Petr Langer
----- Original Message -----
From: "Ing. Slavomir Timko" <timko(zv)novisoft.sk>
Subject: Vyuzitie CPU
> Zdravim,
>
> vie mi niekto poradit, ako zistim vyuzitie pamate a zatazenie CPU pre
> konkretny proces?
>
> Vdaka
> Slavo
Vyuzitie CPU
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 17.10.2003 08:57:46
Zdravim,
vie mi niekto poradit, ako zistim vyuzitie pamate a zatazenie CPU pre
konkretny proces?
Vdaka
Slavo
Volani FormKeyDown z OnShow formulare
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 17.10.2003 08:51:46
Ahoj,
poradite mi prosim ?
Na Formu ve FormKeyDown mam nejaky kod. Ten bych ale rad spoustel i pri OnShow formulare.
Diky
V.
OT: Pocitac s w2k se misto vypnuti zrestartuje
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 17.10.2003 08:45:45
Dobry den,
prosim o radu:
pred nedavnou dobou se nam prestaly vypinat pocitace - misto vypnuti se
restartuji:
w2k sp4, ACPI zapnuto.
Smula je ta, ze podobny problem ma i nas dodavatel :-(
Nevite nekdo, jak tohle vyresit - setkal se nekdo s tim?
Dekuji za jakoukoliv radu.
S pozdravem
Frantisek Bohac
Viceradkovy hint
[*] Blazek Jaroslav <jaroslav.blazek(zv)access-it(tec)cz> - 17.10.2003 08:35:44
Ahoj,
> lukes(zv)ans(tec)cz 10/16 3:04 odp. >>>
>muzete mi prosim poradit, jak udelam viceradkovy hint ?
http://www.radekchalupa(tec)cz/clanek.aspx?id=clanky/bcb_hint
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Cannot assign - podruhe
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 17.10.2003 08:27:43
> Kolekci jsem zvolil kvuli (jak jsem si myslel) snadnejsi
> manipulaci s polozkama...
TCollection je navrhnuta tak, ze moze obsahovat len prvky danej triedy
(TCollection.ItemClass).
Ak potrebujes zoznam, ktory ma obsahovat prvky roznych tried, TCollection Ti
nepomoze.
> Nebylo lepsi zustat u retezce? (myslim "TNeco = record
> <x,y,z...>;Prev,Next: PNeco") Tam jsem si s tim mohl
> delat co jsem chtel...
Asi budes musiet zavrhnut TCollection a pouzit nieco ine. Napriklad aj ten
linked list, pripadne TList ci TObjectList, alebo nieco celkom ine, podla
toho, ake su poziadavky.
HTH
TOndrej
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 17.10.2003 07:53:41
> > ADOConnection := ODBC pripojeni do Pervasive;
> > ADOQuery.SQL.Text := 'SELECT * FROM tabulka_src';
> > SQLConnection := pripojeni k mySQL;
> > SQLQuery.SQL.Text := 'INSERT INTO SELECT * FROM :ADOQuery';
> > SQLQuery.Execute;
>
> Ano, urcite. ADO pouzijes standardnym sposobom na select z Pervasive a
> dbExpress standardnym sposobom na insert do mySQL.
>
> HTH
> TOndrej
Ondreji,
diky za rady, ted se tomu bohuzel nemuzu venovat. Zatim to mam vyreseno tak,
ze misto procedury ClientDataSet.Append (ktera byla hrozne pomala) pouzivam
SQLQuery.Execute, ktera je mnohem rychlejsi.
PH.
Jak dostat data z DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.10.2003 06:19:35
> potreboval bych nejak prekonvertovat data z DBGridu do StringGridu
> Nebo alespon precist hodnotu z bunky DBGridu na
> pozici[integer,integer]
Ahoj,
musis si uvedomit, ze kdyz tabulka zobrazovana v gridu ma rekneme 500 radku, tak
to neznamena, ze grid ma 500 radku. Grid sam data neobsahuje, musel bys na to jit
oklikou:
Cislo radku musis urcit na datasetu (zalezi, o jaky jde a nad jakou databazi).
Funguje-li RecNo, muzes prirazenim Dataset.RecNo premistit aktualni radek na
radek s takovym cislem. Nefunguje-li, muzes zkusit udelat First a odpocitat v cyklu
potrebny pocet Next (nejde-li o velke objemy dat, to by ses nacekal).
Sloupec, resp. Field v datasetu pak ziskas rovnez oklikou: DBGrid ma property
Columns, takze umis zjistit DBGrid.Columns[i].Field, z nehoz muzes vycist hodnotu.
David Lebeda
Cannot assign TLine to TLine - nechapu
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 17.10.2003 00:51:13
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
> Metoda Assign funguje tak, ako je napisana, aby fungovala. Zrejme pri
praci
> s novymi pojmami je ucinnejsie pouzit dokumentaciu a zdrojaky nez
spoliehat
> sa na svoje ocakavania.
Pravda, ale Assign neni novy pojem a pouzil jsem ji nescetnekrat. Proc
myslis, ze by me melo napadnout ji nejak zvlast studovat, kdyz dotedka
fungovala. Proste potrebuju priradit fyzicky obsah, nejen ukazatel, tak
volam Assign. Nejak to ume nezpusobovalo potrebu vic se o to zajimat:-)
> Unika mi suvislost s Assign. Praca s instanciami tried je zlozitejsia
ako
> priradzovanie hodnot ordinalnym premennym.
Ja nerikam ze ne, to byl jen priklad a princip. Proste kdyz napises 2+4
tak cekas, ze pocitac vyplivne 6 a vubec Te nezajima, jak se pri tom
prohaneji elektrony v procesoru. Stejne tak spolu souvisi prirazeni
ordinalnich promennych a prekopirovani nejake struktury z jedne casti
pameti do druhe. Proste by me to nemuselo zajimat.
> > Pak by se to definovalo hned v TPersistent a byl by pokoj.
> Urcite by bolo mozne to tak urobit.
Tak vidis:-)
> Avsak musis si uvedomit, ze takato
> implementacia by na druhej strane nesplnala ocakavania inych ludi.
To mi trosku unika. Kdyz chci neco nekam priradit, tak snad budou po
prirazeni dve stejne struktury. Co na tom nesplnuje ocekavani? Kdo chce,
aby se mu behem kopirovani napr. polovina "postracela" muze si ji
predefinovat, ne?
Ja takhle misto reseni algoritmu ztracim cas tim, ze PC je tak trochu
blb, co neumi sam zkopirovat kus pameti.
> Vezmi si priklad
>
> type
> TSomething = class(TPersistent)
> private
> FData: Pointer;
> ...
> end;
>
> Predpokladajme, ze TSomething alokuje pamet pre FData v konstruktore a
> uvolnuje ju v destruktore. Alokovanie a uvolnovanie FData je teda v
rezii
> TSomething.
>
> Tebou navrhovana implementacia A.Assign(B) by 1) sposobila memory leak
tym,
> ze odkaz na pamet alokovanu pre B.FData je strateny bez uvolnenia
pameti, a
To je nejake rychle... Proc by mel byt ztraceny? B se prece nerusi?
> 2) po A.Free nastava situacia, ze B.FData je neplatny odkaz, takze je
otazka
> casu, kedy dojde k access violation (najneskor pri uvolneni B, ked sa
B
> pokusi o uvolnenie pameti pre B.FData).
No hura, konecne padny argument. Ja to este nakonec pochopim:-)
> Moze existovat trieda
>
> ktora FData pouziva len ako odkaz na pamet alokovanu a uvolnovanu mimo
tej
> triedy.
> V tomto pripade by jednoduche kopirovanie instance data pri
A.Assign(B)
> mohlo mat zmysel.
To se podoba tomu, co mam, proto mi takove chovani pripada(lo) logicke.
> Assign, ktora by mala spravne fungovat vseobecne pre vsetky triedy, by
> musela analyzovat kod a snazit sa dedukovat zamer autora. Podla mna je
len
> dobre, ze sa o to nesnazi ;-)
To asi ano. Diky.
M. Novosad
PS:
Ted me jeste nakopni s tim dalsim mailem a budu Ti vdecny.
Cannot assign - podruhe
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 16.10.2003 23:43:09
Ahoj,
Potrebuju nakopnout.
Assign metody jsem si dopsal a funguje to. Mam ale jiny problem.
Nedokazu manipulovat s puvodni kolekci, protoze pokud potrebuju vlozit
novy prvek do seznamu, tak "Seznam.Insert (pozice)" vytvori prvek
TEntity, ktremu jaksi TLine nepriradim, resp. nejde mi to.
Vola se Assign z TEntity, jenze jak nemuzu napsat prirazeni pro jeste
neexistujici typy (potomky), takze TEntity.Assign neni, tudis se vola
(pro line) TLine.AssignTo, ale jak priradit TLine do TEntity, kdyz Desc
je pri behu TEntity?? Pri snaze o pretypovani to jednou projde a podruhe
uz je access violation a CPU okno?
Vyresil jsem to tak, ze vytvorim postupne novou kolekci, podle typu
polozky volam prislusny konstruktor a na konci puvodni zrusim a priradim
novou. Sice to funguje, ale nelibi se mi to.
procedure TForm1.Duplikuj (var Zdroj: TCollection);
...
begin
temp := TCollection.Create (TEntity);
try
for i:= 0 to Zdroj.Count-1 do
begin
if Zdroj.Items[i].ClassType = TLine then item := TLine.Create
(temp)
else item := TArc.Create (temp);
item.Assign(Zdroj.Items[i]);
...
end;
//Zdroj.Assign (temp); //toto nefunguje
Zdroj.Free; // toto funguje, ale nelibi se mi to - pusobi to divne
Zdroj := temp;
Ten konstruktor dle typu je taky problem. Kdyz (nahodou) pridam dalsi
typ, tak ho tam budu muset dopsat, coz neni moc OOP:-(
Potreboval bych neco jako
item := Zdroj.Items[i].ClassType.Create
Mam dojem, ze se to tu uz probiralo, ale nemuzu nic najit.
BTW:
Kolekci jsem zvolil kvuli (jak jsem si myslel) snadnejsi manipulaci s
polozkama...
Nebylo lepsi zustat u retezce? (myslim "TNeco = record
<x,y,z...>;Prev,Next: PNeco") Tam jsem si s tim mohl delat co jsem
chtel...
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
Co spustilo program?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 16.10.2003 22:05:02
----- Original Message -----
From: "Martin Pavera" <martin.pavera(zv)cmail(tec)cz>
> pri spusteni me aplikace potrebuji zjistit, ktery program ji spustil. A po
> ukonceni se potrebuji vratit do programu, ktery ji spustil.
> Jde to nejak zjistit?
Ahoj.
Obavam se, ze to co pozadujes by mela byt funkcnost to prveho programu, to
zda bude cekat na ukonceni tveho programu je resp. bylo v rukach tvurce toho
programu.
Jak zjistit ktera aplikace spustila tvuj prg. mne nenapada, ale netvrdim, ze
je to nemozne. Mozna nejaky hook ne spusteni procesu nebi nejak tak.
Ludek
Jak dostat data z DBGridu
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 16.10.2003 17:32:40
Zdar,
potreboval bych nejak prekonvertovat data z DBGridu do StringGridu
Nebo alespon precist hodnotu z bunky DBGridu na pozici[integer,integer]
Dik za kazdou radu
Petr
Jak na packet filter?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.10.2003 17:14:38
> Ahojte,
> chtel bych si udelat jednoduchy packet filter. Nasel jsem na webu,
ze u
> Win2000+ lze pouzit interni filter a funkce jako napr.
> PfAddFiltersToInterface. Nenasel jsem sice zadny Delphi wrapper, ale
to by
> nebyl problem. Existuji jeste nejake jine moznosti nebo free
knihovny, s
> pomoci kterych byt to byl schopny udelat?
> Zachytavat pakety neni problem (napr. WinPCap nebo raw socket), ale
jak je
> potvrdit, nebo odmitnout jsem nenasel...
>
podle msdn by podpora pro tohle male byt jen ve Win2K server a Win2003
server.
Jedina poradna metoda je bohuzel prez drivery (bud klasicky
Intermediate driver nebo filter driver - tusim od Win2K). Existuji
dokonce na WWW temer hotova reseni (bohuzel za tucny peniz). Ale mozna
se jiz objevilo i neco free.
D. Toman
Ovladanie TV karty
[*] p.sestak(zv)corag.sk - 16.10.2003 15:40:33
Potrebujes na to nejake kniznice, ktore bud dodava sam vyrobca(alebo ich
ma niekde na sieti)
alebo to uz niekto napisal (tiez niekde na sieti).
Hlavne co potrebujes je nejake API vo forme bud obycajnej DLL, COM alebo
len jednoduchy
popis windows sprav, na ktore dana aplikacia reaguje.
Pre ATI AllInWonder je to napr. jeden COM server + zoznam sprav s popisom,
ktore sa mu mozu posielat.
Palo Sestak.
>Ide mi hlavne o ladenie tunera a capturing obrazu a zvuku.
>Vdaka za radu.
Viceradkovy hint
[*] Lukacs Peter <peter.lukacs(zv)fst1.siemens(tec)cz> - 16.10.2003 15:26:22
ale me to funguje... D6/wXP sp1
a co #10 ?
Nemas nekde preklep v kodu?
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:14 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkovy hint
To bylo prvni, co jsem udelal, ale nic...
V.
-----Original Message-----
From: Lukacs Peter [mailto:peter.lukacs(zv)fst1.siemens(tec)cz]
Sent: Thursday, October 16, 2003 3:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkovy hint
Myslim, ze by melo stacit toto:
..hint:= 'prvni radek'+#13+'druhz radek';
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Viceradkovy hint
Ahoj,
muzete mi prosim poradit, jak udelam viceradkovy hint ?
Diky
V.TWebBrowser a chyba skriptovani - vyreseno
[*] prgx(zv)email(tec)cz - 16.10.2003 15:38:28
Tak to bylo tim, ze stranka se nekdy nenacetla uplne. Zaradil jsem na toto kontrolu + pripadne znovunacteni stranky a uz to slape tak jak ma :-)
to joka: dik za tip
RAVE a tisk RTF z TRichEditu
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 16.10.2003 15:32:27
----- Original Message -----
> Mam k Vam par dotazu ohledne D7 a RAVE....
> 3) Vysledny projekt *.rav - da se nejak prilinkovat k projektu, nebo
> musi byt dodavan s nim jako samostatny soubor?
Ne.
> 4) Kde se da stahnout patch na RAVE?
>
Na http://www.borland.com/products/downloads/download_delphi.html v sekci
Registered users ->Updates
J. Luhan
Borland CZ
Viceradkovy hint
[*] Tvrz Miroslav <miroslav.tvrz(zv)merlin(tec)cz> - 16.10.2003 15:16:21
> Myslim, ze by melo stacit toto:
> ..hint:= 'prvni radek'+#13+'druhz radek';
A nebo zkus
hint := 'prvni radek' + 10#+#13 + 'druhy radek';
MI'RA
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:14 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkovy hint
To bylo prvni, co jsem udelal, ale nic...
V.
-----Original Message-----
From: Lukacs Peter [mailto:peter.lukacs(zv)fst1.siemens(tec)cz]
Sent: Thursday, October 16, 2003 3:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkovy hint
Myslim, ze by melo stacit toto:
..hint:= 'prvni radek'+#13+'druhz radek';
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Viceradkovy hint
Ahoj,
muzete mi prosim poradit, jak udelam viceradkovy hint ?
Diky
V.Ovladanie TV karty
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 16.10.2003 15:22:21
Ide mi hlavne o ladenie tunera a capturing obrazu a zvuku.
Vdaka za radu.
> A co vsechno chces ovladat?
> Zkus si najit komponentu treba VideoCap
>
> > prosim vas, vie niekto povedat, ako sa da ovladat televizna karta v
delphi
> > aplikacii?
> > (D6, W2k, LifeView3000FM).
> > Vdaka za tipy
> > Slavo
Viceradkovy hint
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 16.10.2003 15:14:20
To bylo prvni, co jsem udelal, ale nic...
V.
-----Original Message-----
From: Lukacs Peter [mailto:peter.lukacs(zv)fst1.siemens(tec)cz]
Sent: Thursday, October 16, 2003 3:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkovy hint
Myslim, ze by melo stacit toto:
..hint:= 'prvni radek'+#13+'druhz radek';
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Viceradkovy hint
Ahoj,
muzete mi prosim poradit, jak udelam viceradkovy hint ?
Diky
V.
Viceradkovy hint
[*] Lukacs Peter <peter.lukacs(zv)fst1.siemens(tec)cz> - 16.10.2003 15:10:20
Myslim, ze by melo stacit toto:
.hint:= 'prvni radek'+#13+'druhz radek';
-----Original Message-----
From: LUKES Vaclav [mailto:lukes(zv)ans(tec)cz]
Sent: Thursday, October 16, 2003 3:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Viceradkovy hint
Ahoj,
muzete mi prosim poradit, jak udelam viceradkovy hint ?
Diky
V.Viceradkovy hint
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 16.10.2003 15:04:19
Ahoj,
muzete mi prosim poradit, jak udelam viceradkovy hint ?
Diky
V.
Ovladanie TV karty
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 16.10.2003 14:08:15
Zdravim,
prosim vas, vie niekto povedat, ako sa da ovladat televizna karta v delphi
aplikacii?
(D6, W2k, LifeView3000FM).
Vdaka za tipy
Slavo
RAVE a tisk RTF z TRichEditu
[*] delphi.info(zv)centrum(tec)cz - 16.10.2003 14:08:15
Mam k Vam par dotazu ohledne D7 a RAVE....
1) Kdyz Predam do DataMemo obsah komponenty TRichEdit, tak mi
nefunguji nektere veci, a to: text se mi nejak podivne naformatuje,
proste se rozhaze, velikost fontu zustane zachovana dle RichEditu,
ale styl fontu, typ, a barva se nezachovaji. Nevite prosim co s tim?
2) Da se nejak nastavit, aby se velikost Regionu v RAVE na strance
prizpusobila velikosti stranky(A4, A5, A3), nebo jejimu natoceni
(portrait, landscape)?
3) Vysledny projekt *.rav - da se nejak prilinkovat k projektu, nebo
musi byt dodavan s nim jako samostatny soubor?
4) Kde se da stahnout patch na RAVE?
Budu se tesit na vasi odpoved,
s pozdravem
Ing. Miloslav Kos
--------------------
Nakup ojeteho vozu ... v pohode na www.vyzkouseno(tec)cz
http://user.centrum(tec)cz/redir.php?url=http://www.vyzkouseno(tec)cz TWebBrowser a chyba skriptovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.10.2003 14:12:16
From: <prgx(zv)email(tec)cz>
> Mate nekdo nejaky navrh, jak to poresit ?
Opravit chybu ve skriptu na te strance.
Petr Vones
Ovladanie TV karty
[*] Dalibor <dalibor(zv)torola(tec)cz> - 16.10.2003 14:12:16
A co vsechno chces ovladat?
Zkus si najit komponentu treba VideoCap
> prosim vas, vie niekto povedat, ako sa da ovladat televizna karta v delphi
> aplikacii?
> (D6, W2k, LifeView3000FM).
> Vdaka za tipy
> Slavo
>
>TWebBrowser - ukoncenie
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 16.10.2003 14:04:15
16.10.2003 KALUS Jozef:
>> 2. alebo sa da odchytit zatvorenie TWebBrowser ?
> Nevim o nicem. Ja jsem to resil tak, ze jsem si pod TWebBrowser schoval
> komponentu. Kdyz se WebBrowser zavrel, ona se aktivovala a ja jsem
> WebBrowser znovu vytvoril, zobrazil a natahl puvodni obsah.
> a ako si zistil, ze sa TWebBrowser zavrel? ja to akosi nemozem vysnorit, to
> by mi uplne stacilo :o) zavrel by som aplikaciu a bolo by vsetko v poriadku,
> ziadna chyba :o)
Delal jsem to (trochu prasacky) pres TPaintBox. Jeho metoda OnPaint se
vyvola az po skryti TWebBrowser, ktery byl pres ni. Pak staci v
OnPaint zavrit aplikaci.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Co spustilo program?
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 16.10.2003 14:00:14
Zdravim,
resim nasledujici problem:
pri spusteni me aplikace potrebuji zjistit, ktery program ji spustil. A po
ukonceni se potrebuji vratit do programu, ktery ji spustil.
Jde to nejak zjistit?
Navrat do programu resim pomoci funkci FindWindow a ShowWindow, kde musim
znat jmeno okna programu... Existuje nejake lepsi reseni?
Dik
Martin Pavera
TWebBrowser a chyba skriptovani
[*] prgx(zv)email(tec)cz - 16.10.2003 13:48:12
to joka:
Presne tak, "druha strana" je mimo muj vliv. Vsechny pole (6) jsou trvale visible a enable a tlacitka (2) taky. Ale zkusim se mrknout na to, zda se stranka nacetla uplne.
TWebBrowser - ukoncenie
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 16.10.2003 13:40:11
> 2. alebo sa da odchytit zatvorenie TWebBrowser ?
Nevim o nicem. Ja jsem to resil tak, ze jsem si pod TWebBrowser schoval
komponentu. Kdyz se WebBrowser zavrel, ona se aktivovala a ja jsem
WebBrowser znovu vytvoril, zobrazil a natahl puvodni obsah.
a ako si zistil, ze sa TWebBrowser zavrel? ja to akosi nemozem vysnorit, to
by mi uplne stacilo :o) zavrel by som aplikaciu a bolo by vsetko v poriadku,
ziadna chyba :o)
joka
TWebBrowser - ukoncenie
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 16.10.2003 13:34:11
16.10.2003 KALUS Jozef:
> zdravim,
> mam taku specialitku a neviem sa z nej vysomarit:
> mam komponentu twebbrowser (okolo nej nic zaujimave) a zobrazujem v nej
> jednu nasu intranet stranku (ktoru neviem ovplyvnit) a kedze sa normalne na
> intranete tato stranka otvara ako "modalne" onko IE je na nej aj zatvaracie
> tlacitko, ktore vykona v JavaScripte metodu window.close() cim toto okno
> zavrie. V mojej aplikacii, ale nemam nadradene okno a tak sa vlastne akoby
> zavrel (pravdaze po otazke IE Zavriet Ano/Nie) komponenta, ktoru mam v
> aplikacii takze ked chcem znova zobrazit odkaz tak to hodi chybu chybajuceho
> OLE objektu.
> Otazky:
> 1. da sa tomu zabranit z D6 ? (komponenta zostane aj nadalej zobrazena)
Ne
> 2. alebo sa da odchytit zatvorenie TWebBrowser ?
Nevim o nicem. Ja jsem to resil tak, ze jsem si pod TWebBrowser
schoval komponentu. Kdyz se WebBrowser zavrel, ona se aktivovala a ja
jsem WebBrowser znovu vytvoril, zobrazil a natahl puvodni obsah.
Mozna nekdo prijde na neco jednodussiho.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
TWebBrowser a chyba skriptovani
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 16.10.2003 13:20:09
skor by som sa priklanal k riadnemu osetreniu na urovni
HTML/JScrip/VBScript.... ale mam pocit, ze asi nemas nadvladu nad druhou
stranou ....
osobne by som najskor zistil, kde je konkretny problem, ak som to spravne
pochopil, tvojou aplikaciou vyplnujes polia na IE stranke t.j. simulujes
cinnost uzivatela... takze niekde je nieco co sposobi tu chybu (mozno nie je
nacitana komplet stranka... atd...) skus problem trosicka viac popisat,
hlavne zo strany WWW, je tam Form a na nom tlacitka, su vsetky enable,
visible... atd... alebo hod link, inak sa tazko radi...
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus
L. Stura 17/28
018 61 BELUSA
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
Web: http://www.equipment.sk
-----Original Message-----
From: prgx(zv)email(tec)cz [mailto:prgx(zv)email(tec)cz]
Sent: Thursday, October 16, 2003 11:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: TWebBrowser a chyba skriptovani
......
Vypnuti skriptovani v MSIE pomuze (hlaska pak nevyskakuje), ale zpusobi to
jine problemy a proto vypnuti skriptovani je nepouzitelne.
Mate nekdo nejaky navrh, jak to poresit ?
Asi neco v tom smyslu:
- zjistit, ze vyskocila hlaska
- bud simulovat odklepnuti A/N nebo ukoncit aplikaci a znovu spustit
- nebo nejak jinak ?
TWebBrowser - ukoncenie
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 16.10.2003 13:10:09
zdravim,
mam taku specialitku a neviem sa z nej vysomarit:
mam komponentu twebbrowser (okolo nej nic zaujimave) a zobrazujem v nej
jednu nasu intranet stranku (ktoru neviem ovplyvnit) a kedze sa normalne na
intranete tato stranka otvara ako "modalne" onko IE je na nej aj zatvaracie
tlacitko, ktore vykona v JavaScripte metodu window.close() cim toto okno
zavrie. V mojej aplikacii, ale nemam nadradene okno a tak sa vlastne akoby
zavrel (pravdaze po otazke IE Zavriet Ano/Nie) komponenta, ktoru mam v
aplikacii takze ked chcem znova zobrazit odkaz tak to hodi chybu chybajuceho
OLE objektu.
Otazky:
1. da sa tomu zabranit z D6 ? (komponenta zostane aj nadalej zobrazena)
2. alebo sa da odchytit zatvorenie TWebBrowser ?
dik za kazde naslapnutie :o))
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus
L. Stura 17/28
018 61 BELUSA
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
Web: http://www.equipment.sk
ADO Recordset binding
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 16.10.2003 13:04:08
> ukazku najdes v Adonise http://www.winsoft.sk/adonis.htm
stahul jsem si demo, ale nasel jsem jen vyuziti Adonisu a ne primo ADO,
bohuzel uz mam hotovy projekt primo pres ADO a predelavat ho na Adonis ted
neni mozne, chtel jsem ho jen trochu vylepsit, presto diky
Jak na packet filter?
[*] Petr Langer <langer(zv)xdom(tec)cz> - 16.10.2003 12:28:06
Ahojte,
chtel bych si udelat jednoduchy packet filter. Nasel jsem na webu, ze u
Win2000+ lze pouzit interni filter a funkce jako napr.
PfAddFiltersToInterface. Nenasel jsem sice zadny Delphi wrapper, ale to by
nebyl problem. Existuji jeste nejake jine moznosti nebo free knihovny, s
pomoci kterych byt to byl schopny udelat?
Zachytavat pakety neni problem (napr. WinPCap nebo raw socket), ale jak je
potvrdit, nebo odmitnout jsem nenasel...
Diky za tipy,
Petr Langer
RichEdit a link na file
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 16.10.2003 12:02:04
Takze na netu jsem nasel nasledujici procedurku, ktera resi muj problem a
meni kursor mysi na crHandPoint nad nazvem souboru:
var
OldWstart : Integer = 0; //Remember OldWord
OldWLen : integer = 0;
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
cPos : LongInt; //PosFromChar
WStart, WLen : Integer;
OldSelLen, //Remember Current
OldSelStart : Integer;
P : TPoint;
begin
P := Point(X,y);
cPos := LoWord(RxRichEdit1.Perform(EM_CHARFROMPOS,0,DWord((zv)P))); //Get
the CharIndex
WStart := RxRichEdit1.Perform(EM_FINDWORDBREAK,WB_Left,CPos); //Get
Left WordBreak
WLen := RxRichEdit1.Perform(EM_FINDWORDBREAK,WB_Right,CPos) - WStart -1;
//Get Length of Word
If ((WStart <> OldWStart) or (WLen <> OldWLen)) then //if it a new word
begin
RxRichEdit1.Perform(EM_HIDESELECTION,1,0); //disable Showing of
selection
OldSelStart := RxRichEdit1.SelStart; //Set the Old Word to black
and NoUnderline
OldSelLen := RxRichEdit1.SelLength;
RxRichEdit1.SelStart := OldWStart;
RxRichEdit1.SelLength := OldWLen;
RxRichEdit1.SelStart := WStart; //Set the New Word to red and
Underline
RxRichEdit1.SelLength := WLen;
if RxRichEdit1.SelAttributes.Color = clBlue then
RxRichEdit1.Cursor := crHandPoint
else
RxRichEdit1.Cursor := crDefault;
OldWstart := WStart; //Remember New Word
OldWLen := WLen;
RxRichEdit1.SelStart := OldSelStart; //Back to Current
RxRichEdit1.SelLength := OldSelLen;
RxRichEdit1.Perform(EM_HIDESELECTION,0,0); //Enable Selection Showing
end;
end;
> Bohuzel je treba. Mel jsem a vlastne mam asi takovou predstavu, ze ty
nazvy
> souboru v textu maji ENM_PROTECTED priznak (spolu s mezerou pred nazvem,
aby
> user nahodou nespojil dva nazvy souboru), budou formatem vypadat jako
> hyperlink (modre, podtrzene). Mozna by stacilo jen nejak osetrit
> OnMouseMove, aby se zmenil cursor mysi na crHandPoint nad textem, ktery ma
> format ala hyperlink a crDefault kde je jen "obycejny text". Pak
> doubleclickem vygenerovat nazev souboru z textu a otevrit z databaze uz
> umim. Hyperlinku sice staci na otevreni single click, ale to uz by byla
dan
> za tenhle pozadavek
>
> Sroub
>
> > From: "Otisk Rene" <otisk(zv)misel(tec)cz>
> > > Nevite nekdo jak bych do richeditu dostal odkazy na nazvy souboru z
> > > databazi? Predstava je takova, ze nazev toho souboru by byl hyperlink
v
> > > textu to richeditu, ale bez file:// a taky by respektoval mezery v
> nazvech
> > > souboru a uzivatel by v obecnem textu jen kliknul na odkaz a soubor by
> se
> > > otevrel...
> > > Diky za kazde nakopnuti pripadne za jine alternativy
> >
> > Tohle bych spis resil v HTML a za pouziti TWebBrowser, pokud ten text
neni
> > treba editovat.
> >
> > Petr Vones
> >
> >
> >
>
>Jak zakazat Just In Time Debugung v Delphi 7
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 16.10.2003 11:26:01
Potrebaval bych zakazat %subj% a pokud mozno jej take i povolit v WinXP.
Je neprijemne kdyz se stratuji cele delphi kvuli chybe v cizi aplikaci
se kterou stejne nic neudelam.
Diky Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
Czech Republic
----------------------------------------------
Tel: 585 353 548
Mobil: 602 795 874
Fax: 585 352 364
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
ADO Recordset binding
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 16.10.2003 11:24:01
> kdysi tady nekdo psal o tzv. ADO Recordset binding (myslim ze erik salaj),
> ale nemuzu o tom zjistit nic podrobnejsiho.
>
> takze muj problem mam ADO aktivex object Recordset z naimportovane unity
> ADODB_TLB, jak rozchodim ten binding? (nejlepe nejakou ukazku)
ukazku najdes v Adonise http://www.winsoft.sk/adonis.htm
Erik
TWebBrowser a chyba skriptovani
[*] prgx(zv)email(tec)cz - 16.10.2003 11:32:02
Ahoj.
Mam aplikaci, ktera provadi aktualizaci dat z internetu a to tak, ze v aplikaci mam zabudovan TWebBrowser, aplikace si zobrazi stranku, vyplni formular, odesle a kdyz vse spravne probehne (vetsinou to tak je), tak se zobrazi stranka s udaji pro aktualizaci a s tim se pak dale pracuje.
Problem - obcas se stane, ze behem vyplnovani formulare vybehne nasledujici hlaska:
****************************************************************************
* Chyba skriptu aplikace Internet Explorer
*
* radek: 454
* znak: 9
* chyba: ovladaci prvek nelze aktivovat, protoze neni zobrazen nebo je
* vypnuty, pripadne neni k aktivaci urcen
* kod: 0
* url: www.abcdefghij(tec)cz
*
* Chcete na teto strance i nadale spoustet skripty ? A / N
****************************************************************************
No a to jsem pak v pr.... , protoze aplikace ceka na odklepnuti Ano/Ne .
Vypnuti skriptovani v MSIE pomuze (hlaska pak nevyskakuje), ale zpusobi to jine problemy a proto vypnuti skriptovani je nepouzitelne.
Mate nekdo nejaky navrh, jak to poresit ?
Asi neco v tom smyslu:
- zjistit, ze vyskocila hlaska
- bud simulovat odklepnuti A/N nebo ukoncit aplikaci a znovu spustit
- nebo nejak jinak ?Floating point division by zero
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 16.10.2003 11:18:00
Ahojte!
Stiahol som si komponentu na tvorenie grafickych efektov pri zobrazeni a
schovani formulara a najpr som pracoval na masine kde bol CPU 1.7Ghz Intel
celeron. Vsetko fungovalo ako ma a skompilovany exe som testoval aj na CPU
Intel PIII 500MHz a tiez v pohode. Teraz som ten exe chcel spustit na CPU
Intel PIV 3GHz 800MHz HT a zrazu sa mi zacala objavovat chyba $SUBJ$. Vsade
mam OS Windows XP Eng vsetky updates + SP1. Delphi 6 Ent. UpdatePack#2.
Neviem co to moze sposobovat ked na vsetkych moznych masinach ten exe bezi
len na PIV to nejde... :)
Dakujem za odpovede
Robo
ADO Recordset binding
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 16.10.2003 10:55:59
Dobry den
kdysi tady nekdo psal o tzv. ADO Recordset binding (myslim ze erik salaj),
ale nemuzu o tom zjistit nic podrobnejsiho.
takze muj problem mam ADO aktivex object Recordset z naimportovane unity
ADODB_TLB, jak rozchodim ten binding? (nejlepe nejakou ukazku)
diky za kazdy nakopnuti
Previest cm na pixle - hotovo
[*] mstevlik(zv)gamo.sk - 16.10.2003 10:47:58
Dakujem vsetkym uz som to vyriesil
Pre ostatnych
uses
JclUnitConv;
Result := Trunc(Form1.PixelsPerInch * CmToInch(1));
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Cannot assign TLine to TLine - nechapu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 16.10.2003 10:11:55
> Proc Assign nefunguje tak (jak bych logicky cekal)
Metoda Assign funguje tak, ako je napisana, aby fungovala. Zrejme pri praci
s novymi pojmami je ucinnejsie pouzit dokumentaciu a zdrojaky nez spoliehat
sa na svoje ocakavania.
> , ze proste vezme x bajtu od pozice y a zkopiruje
> na misto z? Kdyz kopiruju Integer z A do B, tak
> taky napisu jen B := A a nemusim mu rikat vezmi 4
> byte z xy a uloz je na xz.
Unika mi suvislost s Assign. Praca s instanciami tried je zlozitejsia ako
priradzovanie hodnot ordinalnym premennym.
> Nebo snad instance tridy neni jasne definovana
> struktura u ktere lze tim padem zjistit velikost?
Ale ano.
> Pak by se to definovalo hned v TPersistent a byl by pokoj.
Urcite by bolo mozne to tak urobit. Avsak musis si uvedomit, ze takato
implementacia by na druhej strane nesplnala ocakavania inych ludi.
Ja danu implementaciu akceptujem a pripada mi vhodne, ze Assign sa nesnazi
defaultne jednoducho kopirovat instance data. Ani v pripade, ze zdroj a ciel
su instancie tej istej triedy, to predsa nemusi byt spravna implementacia. A
vo vecsine pripadov asi ani nie je.
Vezmi si priklad
type
TSomething = class(TPersistent)
private
FData: Pointer;
...
end;
Predpokladajme, ze TSomething alokuje pamet pre FData v konstruktore a
uvolnuje ju v destruktore. Alokovanie a uvolnovanie FData je teda v rezii
TSomething.
Tebou navrhovana implementacia A.Assign(B) by 1) sposobila memory leak tym,
ze odkaz na pamet alokovanu pre B.FData je strateny bez uvolnenia pameti, a
2) po A.Free nastava situacia, ze B.FData je neplatny odkaz, takze je otazka
casu, kedy dojde k access violation (najneskor pri uvolneni B, ked sa B
pokusi o uvolnenie pameti pre B.FData).
Moze existovat trieda
type
TSomething2 = class(TPersistent)
private
FData: Pointer;
...
property Data: Pointer read FData write FData;
end;
ktora FData pouziva len ako odkaz na pamet alokovanu a uvolnovanu mimo tej
triedy.
V tomto pripade by jednoduche kopirovanie instance data pri A.Assign(B)
mohlo mat zmysel.
Zrejme vsak nie je mozne napisat Assign vseobecne pre vsetky triedy. Preto
je myslim spravne, ze TPersistent.Assign vyvola exception. Ak chces, aby
Tvoja trieda bola schopna pouzit Assign, musis totiz definovat, co Assign
pre tu triedu konkretne znamena.
Assign, ktora by mala spravne fungovat vseobecne pre vsetky triedy, by
musela analyzovat kod a snazit sa dedukovat zamer autora. Podla mna je len
dobre, ze sa o to nesnazi ;-)
HTH
TOndrej
Previest cm na pixle
[*] dphi_forum(zv)proces.sk - 16.10.2003 10:29:57
Skus toto
Stano
************************************************************************************************************
TGmMeasurement = (GmUnits, GmPixels, GmMillimeters, GmCentimeters,
GmInches);
function ConvertValue(AValue: Extended; UnitsFrom, UnitsTo:
TGmMeasurement): Extended;
var
AsUnits: Extended;
begin
AsUnits := AValue;
case UnitsFrom of
GmMillimeters: AsUnits := (AValue * 100);
GmCentimeters: AsUnits := (AValue * 1000);
GmInches : AsUnits := (AValue * 100) * 25.4;
GmPixels : AsUnits :=((AValue * 100) * 25.4) /
Screen.PixelsPerInch;
end;
Result := AsUnits;
case UnitsTo of
GmMillimeters: Result := (AsUnits / 100);
GmCentimeters: Result := (AsUnits / 1000);
GmInches : Result := (AsUnits / 100) / 25.4;
GmPixels : Result :=((AsUnits / 100) / 25.4) *
Screen.PixelsPerInch;
end;
end;
Previest cm na pixle
[*] mstevlik(zv)gamo.sk - 16.10.2003 10:21:56
Hi all,
Viete mi pomoct ako previest cm/mm na pixle alebo opacne
Ide i o to, potrebujem povedat ze 1cm je XXX pixlov
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Kolecko mysi
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 16.10.2003 10:09:54
Ahoj,
muzete mi prosim poradit ? Jde o kolecko mysi - o pohyb v po DBGridu.
Diky
V.
asm v pascalu do delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.10.2003 09:51:53
> 16.10.2003 tomsir1.edu(zv)mail.cez(tec)cz:
> > to neni tak docela pravda, protoze onen prilozeny priklad,
zkompilovany v
> > TP funguje i ve win ...
>
> I ve WinNT (W2k, WinXP) ?
samozrejme, ze musi fungovat v libovolne verzi Windows, ktera je
schopna spoustet "stare" DOSovske aplikace. DOS box emulator musi
vytvorit totozne (odchylky samozrejme jsou) prostredi s puvodnim
"cistym" DOSem (i BIOSem atd)
A protoze aplikace psane v Delphi jsou nativni Win32 aplikace, je
logicke, ze INT 21h (DOS entry point) volat nelze, protoze Windows nic
takoveho Win32 aplikacim nezpristupnuji...
D. Toman
RichEdit a link na file
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 16.10.2003 08:45:49
Bohuzel je treba. Mel jsem a vlastne mam asi takovou predstavu, ze ty nazvy
souboru v textu maji ENM_PROTECTED priznak (spolu s mezerou pred nazvem, aby
user nahodou nespojil dva nazvy souboru), budou formatem vypadat jako
hyperlink (modre, podtrzene). Mozna by stacilo jen nejak osetrit
OnMouseMove, aby se zmenil cursor mysi na crHandPoint nad textem, ktery ma
format ala hyperlink a crDefault kde je jen "obycejny text". Pak
doubleclickem vygenerovat nazev souboru z textu a otevrit z databaze uz
umim. Hyperlinku sice staci na otevreni single click, ale to uz by byla dan
za tenhle pozadavek
Sroub
> From: "Otisk Rene" <otisk(zv)misel(tec)cz>
> > Nevite nekdo jak bych do richeditu dostal odkazy na nazvy souboru z
> > databazi? Predstava je takova, ze nazev toho souboru by byl hyperlink v
> > textu to richeditu, ale bez file:// a taky by respektoval mezery v
nazvech
> > souboru a uzivatel by v obecnem textu jen kliknul na odkaz a soubor by
se
> > otevrel...
> > Diky za kazde nakopnuti pripadne za jine alternativy
>
> Tohle bych spis resil v HTML a za pouziti TWebBrowser, pokud ten text neni
> treba editovat.
>
> Petr Vones
>
>
>Adresar zdielane dokumenty
[*] Suvarina, Vladimir <vladimir.suvarina(zv)siemens(tec)com> - 16.10.2003 08:13:47
>> Zdravim
>> Je mozne spolahlivo programovo zistit kde sa nachadza adresar "Zdielane
dokumenty" (shared docs). Dakujem.
Zkus pouzit funkci SHGetSpecialFolderLocation, treba takhle
function GetSystemPath(Folder: Integer): string;
var
PIDL: PItemIDList;
Path: LPSTR;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
if SHGetPathFromIDList(PIDL, Path) then
Result := Path;
SHGetMalloc(AMalloc);
AMalloc.Free(PIDL);
StrDispose(Path);
end;
Kde promenna Folder ke tzv. CSIDL (identifikatro slozky). Tyto hodnoty
najdes v platform SDK. Funkce predpoklada shell32.dll verze 4.7 a vyssi, dle
vyjadreni SDK by to melo byt W95+IE4/NT4+SP3 vyssi.
======
Vladimir Suvarina, Siemens s.r.o
D7Ent, W2K Pro + SP3
======asm v pascalu do delphi
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 16.10.2003 08:05:46
16.10.2003 tomsir1.edu(zv)mail.cez(tec)cz:
> to neni tak docela pravda, protoze onen prilozeny priklad, zkompilovany v
> TP funguje i ve win ...
I ve WinNT (W2k, WinXP) ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
asm v pascalu do delphi
[*] ludvil1.edu(zv)mail.cez(tec)cz - 16.10.2003 07:57:45
<pac int $21 ve Win nezavolas
ale ja ten pascalovskej exac poustim z Windows a funguje
ale je pravda, ze je to cista dos aplikace, a Delphi vytvori Win32 aplikaci
LL
asm v pascalu do delphi
[*] Jiri Virt <virt(zv)volny(tec)cz> - 16.10.2003 07:53:45
jenze priklad v TP jede po "emulaci" command.com ... ;o)
ve WinAPI se to vola pres IOCTL:
ja to delam takto ...
unit ioctl;
interface
uses sysutils,windows;
const
VWIN32_DIOC_DOS_IOCTL = 1;
VWIN32_DIOC_DOS_INT25 = 2;
VWIN32_DIOC_DOS_INT26 = 3;
VWIN32_DIOC_DOS_INT13 = 4;
VWIN32_DIOC_DOS_DRIVEINFO = 6;
Win95_IOCTL_DEV = '\\.\vwin32';
FILE_DEVICE_8042_PORT =WORD($00000027);
FILE_DEVICE_ACPI =WORD($00000032);
FILE_DEVICE_BATTERY =WORD($00000029);
FILE_DEVICE_BEEP =WORD($00000001);
FILE_DEVICE_BUS_EXTENDER =WORD($0000002A);
FILE_DEVICE_CD_ROM =WORD($00000002);
FILE_DEVICE_CD_ROM_FILE_SYSTEM =WORD($00000003);
FILE_DEVICE_CHANGER =WORD($00000030);
FILE_DEVICE_CONTROLLER =WORD($00000004);
FILE_DEVICE_DATALINK =WORD($00000005);
FILE_DEVICE_DFS =WORD($00000006);
FILE_DEVICE_DFS_FILE_SYSTEM =WORD($00000035);
FILE_DEVICE_DFS_VOLUME =WORD($00000036);
FILE_DEVICE_DISK =WORD($00000007);
FILE_DEVICE_DISK_FILE_SYSTEM =WORD($00000008);
FILE_DEVICE_DVD =WORD($00000033);
FILE_DEVICE_FILE_SYSTEM =WORD($00000009);
FILE_DEVICE_FULLSCREEN_VIDEO =WORD($00000034);
FILE_DEVICE_INPORT_PORT =WORD($0000000A);
FILE_DEVICE_KEYBOARD =WORD($0000000B);
FILE_DEVICE_KS =WORD($0000002F);
FILE_DEVICE_KSEC =WORD($00000039);
FILE_DEVICE_MAILSLOT =WORD($0000000C);
FILE_DEVICE_MASS_STORAGE =WORD($0000002D);
FILE_DEVICE_MIDI_IN =WORD($0000000D);
FILE_DEVICE_MIDI_OUT =WORD($0000000E);
FILE_DEVICE_MODEM =WORD($0000002B);
FILE_DEVICE_MOUSE =WORD($0000000F);
FILE_DEVICE_MULTI_UNC_PROVIDER =WORD($00000010);
FILE_DEVICE_NAMED_PIPE =WORD($00000011);
FILE_DEVICE_NETWORK =WORD($00000012);
FILE_DEVICE_NETWORK_BROWSER =WORD($00000013);
FILE_DEVICE_NETWORK_FILE_SYSTEM =WORD($00000014);
FILE_DEVICE_NETWORK_REDIRECTOR =WORD($00000028);
FILE_DEVICE_NULL =WORD($00000015);
FILE_DEVICE_PARALLEL_PORT =WORD($00000016);
FILE_DEVICE_PHYSICAL_NETCARD =WORD($00000017);
FILE_DEVICE_PRINTER =WORD($00000018);
FILE_DEVICE_SCANNER =WORD($00000019);
FILE_DEVICE_SCREEN =WORD($0000001C);
FILE_DEVICE_SERENUM =WORD($00000037);
FILE_DEVICE_SERIAL_MOUSE_PORT =WORD($0000001A);
FILE_DEVICE_SERIAL_PORT =WORD($0000001B);
FILE_DEVICE_SMARTCARD =WORD($00000031);
FILE_DEVICE_SMB =WORD($0000002E);
FILE_DEVICE_SOUND =WORD($0000001D);
FILE_DEVICE_STREAMS =WORD($0000001E);
FILE_DEVICE_TAPE =WORD($0000001F);
FILE_DEVICE_TAPE_FILE_SYSTEM =WORD($00000020);
FILE_DEVICE_TERMSRV =WORD($00000038);
FILE_DEVICE_TRANSPORT =WORD($00000021);
FILE_DEVICE_UNKNOWN =WORD($00000022);
FILE_DEVICE_VDM =WORD($0000002C);
FILE_DEVICE_VIDEO =WORD($00000023);
FILE_DEVICE_VIRTUAL_DISK =WORD($00000024);
FILE_DEVICE_WAVE_IN =WORD($00000025);
FILE_DEVICE_WAVE_OUT =WORD($00000026);
type
regster = record
reg_ebx:dword;
reg_edx:dword;
reg_ecx:dword;
reg_eax:dword;
reg_edi:dword;
reg_esi:dword;
reg_cflag:dword;
end;
function IoCtl_DriveInfo(Regist:regster):boolean;forward;
function IoCtl_Int13h(Regist:regster):boolean;forward;
function IoCtl_Int21h(Regist:regster):boolean;forward;
function IoCtl_Int25h(Regist:regster):boolean;forward;
function IoCtl_Int26h(Regist:regster):boolean;forward;
function IoCtl_Int2Fh(Regist:regster):boolean;forward;
implementation
function IoCtl_DriveInfo(Regist:regster):boolean;
var
hd:Thandle;
ret:Dword;
begin
result := false;
try
hd := CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result :=
DeviceIoControl(hd,VWIN32_DIOC_DOS_DRIVEINFO,(zv)regist,sizeof(regist),(zv)regist,
sizeof(regist),ret,NIL);
CloseHandle(hd);
finally
end;
end;
function IoCtl_Int13h(Regist:regster):boolean;
var
hd:Thandle;
ret:Dword;
begin
try
hd := CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result :=
DeviceIoControl(hd,VWIN32_DIOC_DOS_INT13,(zv)regist,sizeof(regist),(zv)regist,size
of(regist),ret,NIL);
CloseHandle(hd);
finally
end;{try}
end;
function IoCtl_Int21h(Regist:regster):boolean;
var
hd:Thandle;
ret:Dword;
begin
result := false;
try
hd := CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result :=
DeviceIoControl(hd,VWIN32_DIOC_DOS_IOCTL,(zv)regist,sizeof(regist),(zv)regist,size
of(regist),ret,NIL);
CloseHandle(hd);
finally
end;{try}
end;
function IoCtl_Int25h(Regist:regster):boolean;
var
hd:Thandle;
ret:Dword;
begin
result := false;
try
hd := CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result:=
DeviceIoControl(hd,VWIN32_DIOC_DOS_INT25,(zv)regist,sizeof(regist),(zv)regist,size
of(regist),ret,NIL);
CloseHandle(hd);
finally
end;{try}
end;
function IoCtl_Int26h(Regist:regster):boolean;
var
hd:Thandle;
ret:Dword;
begin
result := false;
try
hd := CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result :=
DeviceIoControl(hd,VWIN32_DIOC_DOS_INT26,(zv)regist,sizeof(regist),(zv)regist,size
of(regist),ret,NIL);
CloseHandle(hd);
finally
end;
end;
function IoCtl_Int2Fh(Regist:regster):boolean;
var
ret:Dword;
hd:THandle;
begin
result:=False;
try
hd:=CreateFile(Win95_IOCTL_DEV,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd<>INVALID_HANDLE_VALUE then
result :=
DeviceIoControl(hd,VWIN32_DIOC_DOS_IOCTL,(zv)regist,sizeof(regist),(zv)regist,size
of(regist),ret,NIL);
CloseHandle(hd);
finally
end;
end;
end.
spachal:
Jirka Virt ;o)
asm v pascalu do delphi
[*] Jiri Virt <virt(zv)volny(tec)cz> - 16.10.2003 07:29:43
pac int $21 ve Win nezavolas ...
Jirka
asm v pascalu do delphi
[*] tomsir1.edu(zv)mail.cez(tec)cz - 16.10.2003 07:39:43
to neni tak docela pravda, protoze onen prilozeny priklad, zkompilovany v
TP funguje i ve win ...
Radek
"Jiri Virt" <virt(zv)volny(tec)cz>(zv)clexpert(tec)cz on 16.10.2003 07:29:43
Odpovezte prosim - delphi-l(zv)clexpert(tec)cz
Odeslano kym: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
Predmet: Re: asm v pascalu do delphi
pac int $21 ve Win nezavolas ...
Jirka
asm v pascalu do delphi
[*] ludvil1.edu(zv)mail.cez(tec)cz - 16.10.2003 07:27:42
Prosim o radu s asemblerem.
Kdyz totiz pustim pod delphi tento kod:
asm
mov ah,$30
int $21
xchg ah,al
end;
tak preruseni 21 zpusobi chybu v krnl386.
Ale nize prelozeny kod v TP5.5 to chodi. Proc?
program verze_prodos;
uses dos;
function DosVersion : Word;
{-Returns the DOS version number. High byte has major version number,
low byte has minor version number. Eg., DOS 3.1 => $0301.}
begin
inline(
$B4/$30/ {mov ah,$30}
$CD/$21/ {int $21}
$86/$C4); {xchg ah,al}
end;
begin
Writeln(LO(DosVersion),'.',HI(DosVersion));
Write('Stisknete <Enter> pro konec');
Readln;
end.Adresar zdielane dokumenty
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 15.10.2003 21:52:14
Zdravim
Je mozne spolahlivo programovo zistit kde sa nachadza adresar
"Zdielane dokumenty" (shared docs).
Dakujem. Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)hotmail.com
Tento e-mail bol skontrolovany sluzbou ST Online Antivirus MAIL
This e-mail has been scanned by ST Online Antivirus MAIL.Cannot assign TLine to TLine - nechapu
[*] delphin(zv)post(tec)cz - 15.10.2003 20:58:10
> Udelate mi v tom nekdo jasno?
Proste zkopirovani bytu nefunguje na reference-counted promenne, tj. napr na
stringy, dynamicke pole, nektere typy variantu atd.freereport
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 15.10.2003 20:04:07
Diky to je presne ono
PS prosim ignorujte moji predeslou zapravu opet mi ujelo quotovani
>1. na form vloz komponentu TfrReport
>2. dvojklikni na ni
>3. v Designeru si nekam vloz object (ikona Insert rectangle object) 4.
dvojklikni na nej a napis treba [E1] (pozor, identifikator musi byt >v
>v hranatych zavorkach)
>5. a nakonec v
>procedure TFormPrintXXX.frReport1GetValue(const ParName:
>String; var ParValue: Variant);
>begin
> if AnsiUpperCase(ParName) = 'E1' then ParValue := Edit1.Text; end;
>Jarek Uher
Cannot assign TLine to TLine - nechapu
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 15.10.2003 19:20:03
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> A prepsat jsi metody Assign/AssignTo tak aby umely pracovat s temi
tridami
> TLine a TEntity ? Podivej se treba na implementaci TStrings.Assign
Ooo, jak proste. Ja tusil, ze chyba bude jinde nez ji hledam...
V tom pripade si ale musim pujcit nazev jednoho filmu a pouzit ho na
pocitac, protoze jsem asi prave zjistil, ze pocitac je jeste vetsi
blbec, nez jsme doufali.
Proc Assign nefunguje tak (jak bych logicky cekal), ze proste vezme x
bajtu od pozice y a zkopiruje na misto z? Kdyz kopiruju Integer z A do
B, tak taky napisu jen B := A a nemusim mu rikat vezmi 4 byte z xy a
uloz je na xz. Nebo snad instance tridy neni jasne definovana struktura
u ktere lze tim padem zjistit velikost? Pak by se to definovalo hned v
TPersistent a byl by pokoj.
Udelate mi v tom nekdo jasno?
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
RichEdit a link na file
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 19:30:04
From: "Otisk Rene" <otisk(zv)misel(tec)cz>
> Nevite nekdo jak bych do richeditu dostal odkazy na nazvy souboru z
> databazi? Predstava je takova, ze nazev toho souboru by byl hyperlink v
> textu to richeditu, ale bez file:// a taky by respektoval mezery v nazvech
> souboru a uzivatel by v obecnem textu jen kliknul na odkaz a soubor by se
> otevrel...
> Diky za kazde nakopnuti pripadne za jine alternativy
Tohle bych spis resil v HTML a za pouziti TWebBrowser, pokud ten text neni
treba editovat.
Petr Vones
TFrame v Delphi 7
[*] delphin(zv)post(tec)cz - 15.10.2003 19:20:03
V rozsahle aplikaci mam vice nez 50x jeden z 5 druhu Frame, na kazdem z nich
je DBGrid a nemam s tim zadny problem. Nemel jsem ovsem zadny problem ani
pod D5.
----- Original Message -----
From: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 14, 2003 5:21 PM
Subject: TFrame v Delphi 7
> Dobry den,
> chci se zeptat jak dobre funguji TFrame v D7. Pokud vim, tak v D5 byly
> problemy s gridy a dalsimi vecmi na frame. Pokud se neco nastavilo pouze
na
> formulari, kam byl frame polozen, dely se psi kusy - od neexistence
handleru
> eventu po acces violation.
> Takze otazka:
> 1) Pouzivate nekdo nejak vic framy ve svych projektech pod D7?
> 2) Jsou alespn ty nejzakladnejsi chyby z D5 v D7 opraveny?
>
> Diky,
> Danik
>
>
>Export do excelu
[*] Karel Machac <machackarel(zv)quick(tec)cz> - 15.10.2003 18:52:01
Pouzivam bud propracovany nastroj Flexcel na
http://www.freewebs.com/flexcel/
nebo jednodussi TscExcelExport na
http://users.pandora.be/stefancr/Index%20Eng.htm
Oba s demo priklady a popisem na dobre urovni.
Karel Machac
----- Original Message -----
From: "Matejcek Petr" <konference(zv)crhov.komfi(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 14, 2003 7:21 PM
Subject: Export do excelu
> Zdravim
>
> neznate nekdo nejakou komponentu ktera umi ukladat data do excelu ?
>
> Nejlepe kdyz ji podstrcim dataSource a on mi tam ulozi obsag Dbgridu
>
> Dik Petr
>
>
>Sluzba a posilani zprav kuryrni sluzbou
[*] Vlko II. <vlko(zv)zilina(tec)net> - 15.10.2003 16:51:53
On Wed, 15 Oct 2003 16:43:52 +0200, Tomas Jantac <tomasnusle(zv)volny(tec)cz>
wrote:
skus nieco taketo:
For writing to an existing mailslot (send a message over the network), all
you have to do is to thread the mailslot as a file on the target machine,
whith this filename :
"\\"+Server_Name+"\mailslot\messngr"
To write to this file, first open it like this :
Handle := CreateFile("\\THOR\mailslot\messngr",
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
-1)
The handle returned can then be used in a call to write to the file like
this :
WriteFile(Handle,
Data,
Size(Data),
BytesWritten,
NIL)
It is wise to close the handle after user with a call like this :
CloseHandle(Handle)
toto obide netsend a malo by to poslat (zapisat spravu:) za kazdych
okolnosti
a aby som nezabudol, format spravy:
Next we were looking for the format of a message - that was not so
difficult to find out of by sending messages. A recieved block of data is
threaded as folow three NULL terminated strings after each other :
Sender
Reciever
Message
So 'MARTIN'#0'DON'#0'Hi'#0 is a message from Martin to Don with the
message Hi.
Vlko
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
Sluzba a posilani zprav kuryrni sluzbou
[*] Tomas Jantac <tomasnusle(zv)volny(tec)cz> - 15.10.2003 16:43:52
> No, mame stejny problem, kuryrni sluzba nam funguje pouze v APP rezimu,
> pokud to chceme ze service tak ani nahodou.
> Mam takovy dojem jestli to je vubec mozne, posilat zpravy pres kuryrni
> sluzby ze service :(
Ted jsem si to zkousel orezat od vseho ostatniho a napsal jsem jen to
posilani zprav a kupodivu to funguje. Coz nejak nechapu protoze stejnou
funkci volam i v te sve "opravdove" sluzbe, dokonce probehne a vrati stejny
vysledek. Pro zajimavost prikladam cast kodu. Jedine co me napada by mohl
byt nejaky problem s vlakny. Pouzivam komponentu AfComPort od Petra Vonese a
tuto funkci NetSend vyvolava udalost OnDataRecived. Ale ta je pokud vim
volana vramci lokalniho vlakna.
Funkcni priklad v D7 Prof (jestli si to chcete zkouset, doporucuji
nezapomenout dat do Timeru vetsi interval :o))):
unit uMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
ExtCtrls;
type
TService1 = class(TService)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure ServiceExecute(Sender: TService);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;
var
Service1: TService1;
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
function NetSend(dest, Source, Msg: string): Longint; overload;
type
TNetMessageBufferSendFunction = function(servername, msgname, fromname:
PWideChar; buf: PWideChar; buflen: Cardinal): Longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar: PWideChar;
DestWideChar: PWideChar;
MessagetextWideChar: PWideChar;
Handle: THandle;
begin
Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
Exit;
end;
(zv)NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if (zv)NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit;
end;
MessagetextWideChar := nil;
SourceWideChar := nil;
DestWideChar := nil;
try
GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Msg, MessagetextWideChar, Length(Msg) *
SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if Source = '' then Result := NetMessageBufferSend(nil, DestWideChar,
nil, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
FreeMem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;
procedure TService1.Timer1Timer(Sender: TObject);
begin
NetSend('localhost','','Test');
end;
procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated do ServiceThread.ProcessRequests(True);
end;
Sluzba a posilani zprav kuryrni sluzbou
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.10.2003 16:59:53
> GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
Asi skor GetMem(MessagetextWideChar, (Length(Msg) + 1) * SizeOf(WideChar));
pretoze ten null-terminator na konci je tiez widechar.
Ale da sa to aj jednoduchsie:
var
SourceW, DestW, MsgW: WideString;
// Delphi to pri priradeni automaticky spravne naalokuje a skopiruje
SourceW := Source;
DestW := Dest;
MsgW := Msg;
...
a tam, kde potrebujes predavat parameter typu PWideChar, staci potom
typecast: PWideChar(DestW) atd.
Uvolnenie je pritom tiez automaticke, kedze su to lokalne premenne.
HTH
TOndrej
RichEdit a link na file
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 15.10.2003 16:09:48
> Nevite nekdo jak bych do richeditu dostal odkazy na nazvy souboru z
> databazi? Predstava je takova, ze nazev toho souboru by byl hyperlink v
> textu to richeditu, ale bez file:// a taky by respektoval mezery v nazvech
> souboru a uzivatel by v obecnem textu jen kliknul na odkaz a soubor by se
> otevrel...
> Diky za kazde nakopnuti pripadne za jine alternativy
>
> Sroub
O jedny alternative bych vedel, jmenuje se htmlLite, stahnout se da z
www.pbear.com (kdyby to neslo stahnout tak muzu poslat). Je to jen prohlizec
na html (nepotrebuje IE), RTF sice nezvlada, ale prevod rtf -> html zvlada
dneska kde co, takze by nejakej velkej problem byt nemel.
snad jsem pomohl...
Spider_X
Nastavenie setrica z kodu DELPHI vo W98, W2k
[*] Lukacs Peter <peter.lukacs(zv)fst1.siemens(tec)cz> - 15.10.2003 16:09:48
V NT systemech Ti to funguje, ale W98 nepouzivaji stejne klice, kam se
zapisuje screen saver. Snazim se ted zjistit. kam to uklada, ale prozatim
marne. Aktivuje se nastavenim hodnoty desktop\screensaveactive na "1".
Mozna bych to zkusil jeste takhle:
kdyz kliknes pravym tlacitkem na scr soubor, nabidne Ti to polozku
instalovat. Kdyz kouknes do registru, tak zjistis, ze se vola "run32dll.exe
desk.cpl,InstallScreenSaver %l
misto %l pouzij cestu k saveru a je to :o)
-----Original Message-----
From: Tomas Hustava [mailto:tommyx(zv)zoznam.sk]
Sent: Wednesday, October 15, 2003 11:37 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Nastavenie setrica z kodu DELPHI vo W98, W2k
Zdravim konferu,
potrebujem nastavit vlastny setric do vlastnosti obrazovky priamo z kodu
delphi. Pouzivam dolu uvedeny kod (uryvok), ktory mi ale ide len pod
Windows NT (2000) ale nefunguje pod W98. Skusal som aj priamy zapis do
uvedenej vetvy v reg., ale ani po restarte sa nic nezmenilo. Prosim Vas,
pomozte, som uz bezradny.
Dakujem!
Tommy (w2k cz sp4, d7)
Kod:
function SetScreenSaver(FullSCRName : string):boolean;
var Reg: TRegistry;
r, b: Bool;
begin
Reg := TRegistry.Create;
Result:=True;
with Reg do begin
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Control Panel\Desktop', TRUE) then
begin
WriteString('SCRNSAVE.EXE',
ExtractShortPathName (FullSCRName));
BroadCastSystemMessage
(0, (zv)r, WM_SETTINGCHANGE, 0, 0);
SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,10,(zv)b,0);
end
else Result:=False;
Finally
Free;
end; //try
end;//with
end;Sluzba a posilani zprav kuryrni sluzbou
[*] Tomas Jantac <tomasnusle(zv)volny(tec)cz> - 15.10.2003 16:13:49
Ahoj,
diky za napad, bohuzel nepomohl :o( Sluzba bezi, metody se volaji a
probehnou vporadku, ale nic mi nikam neprijde, ani emailem ani kuryrem :o(
Sluzba ma od prirody nastaven ucet na Mistni sitovy ucet (Local System).
Tomas
> Mozna bych zkusil zmenit ucet pod kterym ta sluzba bezi, tj. jestli jsou v
poradku
> opravneni. Ale chyba muze byt i uplne nekde jinde.
>
> Slavek
>
> > Vytvoril jsem Service ktera komunikuje s HW po seriovem portu.
Zpracovava
> > a zaznamenava nejake zpravy do souboru. Pokud ovsem vznikne nejaka
> > situace o ktere je nutno informovat uzivatele v siti ma tato sluzba za
> > ukol poslat email na predem definovanou adresu a nebo ma poslat zpravu
za
> > pomoci kuryrni sluzby windows (NET SEND). Vse mi funguje pokud svoje
> > metody volam z aplikace. Pokud ovsem tyto metody pouziji v zminovane
> > sluzbe, jejich volani probehne bez chyb, ale zadne zpravy neprijdou.
> > Muzete nekdo poradit cim by to mohlo byt? Sluzba bezi, zaznamenava
> > namerena data, ale neodesila ty zpravy :o((
> >
> > K posilani emailu pouzivam Indy komponentu IdSMTP a k posilani zprav
> > funkci NetMessageBufferSend z DLL knihovny NETAPI32.DLL.
> > Mozna nemam spravne nastaveny Dependencies, ty jsou nyni nastaveny na
> > Messenger a SMTPSVC.
> >
> > Tomas J.
> >
> > D7 Prof, WinXP/2000
program z D5 na D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 16:33:51
From: "mato" <mato.tino(zv)inmail.sk>
> co je to zac ten RaveReport ?
Novy generator sestav dodavany s Borland produkty http://www.nevrona.com/rave/
> V com to je lepsie ako qreport ?
Netusim.
> Co velkost vyslednych exe ?
Dnes zcela nepodstatne.
Petr Vones
Sluzba a posilani zprav kuryrni sluzbou
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 15.10.2003 16:13:49
No, mame stejny problem, kuryrni sluzba nam funguje pouze v APP rezimu,
pokud to chceme ze service tak ani nahodou.
Mam takovy dojem jestli to je vubec mozne, posilat zpravy pres kuryrni
sluzby ze service :(
Petr Sikola
> pomoci kuryrni sluzby windows (NET SEND). Vse mi funguje
> pokud svoje metody volam z aplikace. Pokud ovsem tyto metody
> pouziji v zminovane sluzbe, jejich volani probehne bez chyb,
> ale zadne zpravy neprijdou. Muzete nekdo poradit cim by to
Sluzba a posilani zprav kuryrni sluzbou
[*] Vlko II. <vlko(zv)zilina(tec)net> - 15.10.2003 16:27:50
On Wed, 15 Oct 2003 16:07:48 +0200, Tomas Jantac <tomasnusle(zv)volny(tec)cz>
wrote:
> ps. Neznate treba WinPopup, nebo NetPopup? je to trosku lepsi pro
> komunikaci
> mezi uzivateli
no mam pocit, ze WinPopup som robil ja (samozrejme ak hovorime o tom
istom:) v podstate som
na posielanie a (prijimanie) pouzil komponentu: mdMailSlot z
http://www.djernaes.dk/martin
Vlko
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
pristup k Visual foxpro
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 16:21:50
ak sa este mozem opytat aky je medzi nimi rozdiel ?
----- Original Message -----
From: "Redlich Software" <redlichdaniel(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 15, 2003 2:07 PM
Subject: Re: pristup k Visual foxpro
> > zdravim, ako zozeniem ovladace k databaze vizual foxpro? Je to sucastou
> > nejakeho office ? Je to v MDAC 2.8 ? Chcem pristupovat cez ADO
komponenty v
> > D7
>
> na WWW MS je k dispozici ODBC ovladac v souboru VFPODBC.msi a oledb v v
souboru vfpoledb.exe.
>
> Daniel
>
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
>
>Sluzba a posilani zprav kuryrni sluzbou
[*] Tomas Jantac <tomasnusle(zv)volny(tec)cz> - 15.10.2003 16:07:48
Ahoj,
> No podla mojho nazoru implementovanie kuryrni sluzby (messenger) je to
> najnestastnejsie
> riesenie. Napriklad na nasej podsieti cca 100 PC sa pouziva ako nahrada
> lokalneho
> chatovacieho programu. V pripade, ze by sa ten server pripojil na tuto
> siet toto
> logovanie sprav by stratilo zmysel. Odporucal by som radsej zasielanie bud
> UDP
> paketov, alebo pouzit TCP-IP. Vsetko je krasne spravene aj v INDY.
>
> BTW: cez NET SEND (Messenger) nemozes poslat spravu dlhsiu ako 400 znakov.
> A v podstate ani nechci vediet ako funguje (nieco ako zapis do virtualneho
> suboru na
> disku, cize problem moze robit aj nastavenie FireWallu).
Nevim zda jsi me spravne pochopil. Ta moje sluzba ma pri prekroceni nejake
extremni hodnoty, rekneme teploty, poslat upozorneni a to treba nekolika
lidem najednou a ruznymi zpusoby. Prozatim: Emailem a Kuryrni sluzbou. To
ze v nejake firme pouzivaji kuryrni sluzbu k chatovani a muze se tato
dulezita zprava ztratit je jiz jiny problem. Moje sluzba ma poskytovat
jednoduchy system pro upozorneni ktery bude mozne vyuzit aniz by bylo nutne
instalovat vlastni aplikaci.
ps. Neznate treba WinPopup, nebo NetPopup? je to trosku lepsi pro komunikaci
mezi uzivateli
Tomas J.
Sluzba a posilani zprav kuryrni sluzbou
[*] Vlko II. <vlko(zv)zilina(tec)net> - 15.10.2003 15:47:46
On Wed, 15 Oct 2003 15:23:39 +0200, Tomas Jantac <tomasnusle(zv)volny(tec)cz>
wrote:
> Vytvoril jsem Service ktera komunikuje s HW po seriovem portu.
> Zpracovava a zaznamenava nejake zpravy do souboru. Pokud ovsem vznikne
> nejaka situace o ktere je nutno informovat uzivatele v siti ma tato
> sluzba za ukol poslat email na predem definovanou adresu a nebo ma
> poslat zpravu za pomoci kuryrni sluzby windows (NET SEND). Vse mi
No podla mojho nazoru implementovanie kuryrni sluzby (messenger) je to
najnestastnejsie
riesenie. Napriklad na nasej podsieti cca 100 PC sa pouziva ako nahrada
lokalneho
chatovacieho programu. V pripade, ze by sa ten server pripojil na tuto
siet toto
logovanie sprav by stratilo zmysel. Odporucal by som radsej zasielanie bud
UDP
paketov, alebo pouzit TCP-IP. Vsetko je krasne spravene aj v INDY.
BTW: cez NET SEND (Messenger) nemozes poslat spravu dlhsiu ako 400 znakov.
A v podstate ani nechci vediet ako funguje (nieco ako zapis do virtualneho
suboru na
disku, cize problem moze robit aj nastavenie FireWallu).
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
Sluzba a posilani zprav kuryrni sluzbou
[*] Tomas Jantac <tomasnusle(zv)volny(tec)cz> - 15.10.2003 15:23:39
Vytvoril jsem Service ktera komunikuje s HW po seriovem portu. Zpracovava a zaznamenava nejake zpravy do souboru. Pokud ovsem vznikne nejaka situace o ktere je nutno informovat uzivatele v siti ma tato sluzba za ukol poslat email na predem definovanou adresu a nebo ma poslat zpravu za pomoci kuryrni sluzby windows (NET SEND). Vse mi funguje pokud svoje metody volam z aplikace. Pokud ovsem tyto metody pouziji v zminovane sluzbe, jejich volani probehne bez chyb, ale zadne zpravy neprijdou. Muzete nekdo poradit cim by to mohlo byt? Sluzba bezi, zaznamenava namerena data, ale neodesila ty zpravy :o((
K posilani emailu pouzivam Indy komponentu IdSMTP a k posilani zprav funkci NetMessageBufferSend z DLL knihovny NETAPI32.DLL.
Mozna nemam spravne nastaveny Dependencies, ty jsou nyni nastaveny na Messenger a SMTPSVC.
Tomas J.
D7 Prof, WinXP/2000
Sluzba a posilani zprav kuryrni sluzbou
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.10.2003 15:43:46
Mozna bych zkusil zmenit ucet pod kterym ta sluzba bezi, tj. jestli jsou v poradku
opravneni. Ale chyba muze byt i uplne nekde jinde.
Slavek
> Vytvoril jsem Service ktera komunikuje s HW po seriovem portu. Zpracovava
> a zaznamenava nejake zpravy do souboru. Pokud ovsem vznikne nejaka
> situace o ktere je nutno informovat uzivatele v siti ma tato sluzba za
> ukol poslat email na predem definovanou adresu a nebo ma poslat zpravu za
> pomoci kuryrni sluzby windows (NET SEND). Vse mi funguje pokud svoje
> metody volam z aplikace. Pokud ovsem tyto metody pouziji v zminovane
> sluzbe, jejich volani probehne bez chyb, ale zadne zpravy neprijdou.
> Muzete nekdo poradit cim by to mohlo byt? Sluzba bezi, zaznamenava
> namerena data, ale neodesila ty zpravy :o((
>
> K posilani emailu pouzivam Indy komponentu IdSMTP a k posilani zprav
> funkci NetMessageBufferSend z DLL knihovny NETAPI32.DLL.
> Mozna nemam spravne nastaveny Dependencies, ty jsou nyni nastaveny na
> Messenger a SMTPSVC.
>
> Tomas J.
>
> D7 Prof, WinXP/2000
>
>
Hladanie v ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 15:15:39
From: <delphinpp(zv)seznam(tec)cz>
> Akym sposobom zistit poziciu urciteho Itemu v ListView podla nazvu v prvom
> stlpci.. ListView ma IndexOf, ale ako parameter je TListItem...
Viz metoda TListView.FindCaption v helpu.
Petr Vones
program z D5 na D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 14:43:35
From: "mato" <mato.tino(zv)inmail.sk>
> dalej mam formular report s komponentami Qreport. V D7 to vobec nieje a
> samozrejme vypise ze npozna triedu. To v D7 to neexistuje alebo co robim zle
Doporucuji si precist soubor Readme.txt v adresari Delphi 7. Tam to mas presne
popsane.
Petr Vones
pristup k Visual foxpro
[*] Redlich Software <redlichdaniel(zv)seznam(tec)cz> - 15.10.2003 14:07:23
> zdravim, ako zozeniem ovladace k databaze vizual foxpro? Je to sucastou
> nejakeho office ? Je to v MDAC 2.8 ? Chcem pristupovat cez ADO komponenty v
> D7
na WWW MS je k dispozici ODBC ovladac v souboru VFPODBC.msi a oledb v v souboru vfpoledb.exe.
Daniel
program z D5 na D7
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 15.10.2003 14:07:23
----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>> co je to zac ten RaveReport ? V com to je lepsie ako qreport ? Co velkost
> vyslednych exe ?
>
>
Rave pouziva externi datovy soubor (nebo i vic) pro vsechny sestavy projektu
a do exe toho zas tako moc neprida (mene nez QR). Vyhdou je, ze kdyz neco
potrebujes zmenit v sestavach, nemusis provadet novou kompilaci a posilat
nekomu cele EXE. Ale jinak je to spis o zvyk, neco ma lepsi, neco ma horsi,
chyby jsou v obojim :-(
J. Luhan
Borland CZ
Delay
[*] Jiri Virt <virt(zv)volny(tec)cz> - 15.10.2003 14:21:30
Sleep(msTimeOut);
Jirka
ako sa nacitava MDB?
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 14:21:30
zdravim,
ak mam databazu mdb na suborovom serveri. A zo stanice sa k nej pripaja
program pouzivajuci ADO komponent. Pouziva napr. len 1 tabulku. Ako to
funguje ? Musi stiahnut cely mdb subor napr je v nom 20 tabuliek, a potom si
z neho vyberie len to co potrebuje ? Pytam sa preto lebo ak ma napr. mdb 25
MB a niektore velke tabulky sa vzdy nepouzivaju tak ak by som to rozdelil na
viac mdb mozno by to urychlilo.Delay
[*] Karol Chupek <chupek(zv)apollo.sk> - 15.10.2003 14:27:30
skus prikaz sleep()
> Zdar jak muzu jednoduse udelat neco jako bylo delay? Pres timer mi to
> pride moc divoky :o) Diky Fido
Delay
[*] Holan Jaromir <holan_jaromir(zv)cz.tesco-europe(tec)com> - 15.10.2003 14:17:29
Zdar jak muzu jednoduse udelat neco jako bylo delay? Pres timer mi to
pride moc divoky :o) Diky Fido
Delphi 6.0
zahada USB ve WindowsXP
[*] Pavel Cabak <delphikonf(zv)cross(tec)cz> - 15.10.2003 14:03:23
Napr. z Windows Commandera:
- pravym tlacitkem mysi ma tlacitku disku
- polozka Vlastnosti
- zalozka Hardware
- vyberes USB zarizeni u ktereho to chces nastavit
- tlacitko Vlastnosti
- zalozka Zasady
- tam si vyberes druh optimalizace
V praxi vyzkouseno pouze na USB disku QDI.
Omlouvam se za zpozdeni, byl jsem sluzebne mimo.
S pozdravem
Pavel CABAK
cabak(zv)cross(tec)cz
>
> Muzes prosim blize specifikovat kde se to da nastavit?
>
> Diky Petr
>
> -----Original Message-----
>
> Ve WinXP je nastaveni optimalizace zapisu na USB zarizeni.
> Standardne to je
> nastavene pro co nejrychlejsi odpojeni USB zarizeni = bez
> pouziti mezipameti
> -> ocividne zpomaleni zapisu.
>
Export do excelu
[*] horky(zv)cominn(tec)cz - 15.10.2003 13:21:12
> From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
> Sent: Tuesday, October 14, 2003 7:21 PM
> neznate nekdo nejakou komponentu ktera umi ukladat data
> do excelu ?
Podivej se na Zive:
Tipy a triky v Delphi, tip 81 a 82
--
S pozdravem Karel Horky, CLX, D6 SP2, FB 1.0.3, IBX 6.03, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
pristup k Visual foxpro
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 15.10.2003 13:33:20
Microsoft OLE DB Provider for ODBC Drivers
Microsoft FoxPro Driver(*.dbf) nebo Microsoft VisualFoxPro Driver
> From: mato [mailto:mato.tino(zv)inmail.sk]
>
> zdravim, ako zozeniem ovladace k databaze vizual foxpro? Je
> to sucastou
> nejakeho office ? Je to v MDAC 2.8 ? Chcem pristupovat cez
> ADO komponenty v
> D7
> Variantni grid
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 15.10.2003 13:19:12
www.devexpress.com - drahy (grid suite asi $700-$1000/vyvojar) ale podle
meho the best.
TmsAdv grid je podle meho horsi (testoval jsme oboji asi pred rokem a pul -
pomalejsi, vetsi naroky na pamet, mnohem horsi trideni, nedatabazovy
vzhled), ale je levnejsi a umi rtf a html formatovani bunek.
Danik
> -----Original Message-----
> mozna by vam vyhovoval grid od firmy www.tmssoftware.com
Variantni grid
[*] Petr Hlozek <petr_h(zv)mrp(tec)cz> - 15.10.2003 12:57:10
Dobry den,
mozna by vam vyhovoval grid od firmy www.tmssoftware.com
Petr
--
email : petr_h(zv)mrp(tec)cz;ok2cqr(zv)post(tec)cz
work : www.mrp(tec)cz
home : www.webpark(tec)cz/ok2cqr
ICQ : 165536992
Dalibor Faltynek wrote:
>> Ahoj, muzete mi nekdo doporucit komponentu, ktera by se chovala jako
>> grid
> se sloupci ruznych typu (TEdit, TCombo, TCheck, TBitmap,...),
> pripadne u ktereho lze nadefinovat vlastni typ sloupce. Muze byt i
> komercni.
Variantni grid
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 15.10.2003 12:20:59
> Ahoj, muzete mi nekdo doporucit komponentu, ktera by se chovala jako grid
se sloupci ruznych typu (TEdit, TCombo, TCheck, TBitmap,...), pripadne u
ktereho lze nadefinovat vlastni typ sloupce. Muze byt i komercni.
Ahoj,
Dobry byl Advancedgrid nebo Advancegrid ci jak se to jmenovalo. Nekde jsem
to nasel na www. Byl komercni, ale mel demo.
Dalibor Faltynek
Orgrez, a. s.
tel.: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
program z D5 na D7
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 13:03:10
co je to zac ten RaveReport ? V com to je lepsie ako qreport ? Co velkost
vyslednych exe ?
> V D7 je QReport nahrazen RaveReportem, ale QReport tam je stale, jen neni
standardne v palete komponent. Musis si ho tam pridat sam, pak to pujde
prelozit a pouzivat.
>
> Marek Dostal
> D7Proff
>
Zobrazeni 2 des. mist v DBGRIDU
[*] Lenka Donatova <lenkad(zv)nemocnice-vs(tec)cz> - 15.10.2003 11:58:52
Mam problem se zobrazenim urciteho poctu desetinych mist v dbgridu.
Pouzivam komponenty ADO pro pristup k databazim *.MDB.
Mam field u nehoz mam v databazi nastaven typ cislo-jednoducha
presnost-pocet des mist: 2. Pokud se na to divam pres MS Access vidim napr
hodnotu
55.5 ale pokud si stejna data zobrazim programove v D6 pres
TADODataset,TDAtaSource a TDBGrid u nekterych radku se mi zobrazuje
napr 55.5000001405.
Muzete mi prosim nekdo poradit co mam nastavit a kde aby se mi zobrazovala
pouze 2 des. mista.
Predem dekuji
Lenka Donatova
TFrame v Delphi 7
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 15.10.2003 11:48:50
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of ludek.paral(zv)quick(tec)cz
> > odkazy treba na datasource apod.
> - ano, musim to resit tak, ze v tframe_table mam
> dbgrid.datasource=ds_table;, u jinych komponent nez je dbgrid
> se mi to ale nestalo.
Se mistava treba i u DBEditu :(. Resim to take prave uvedenym postupem -
manualni prirazeni
datasourcu vsech db komponent(projistotu). Ale vzhledem k tomu, ze se jedna
prave
o frame tak si s tim tu praci proste jednou dam a vickrat uz to neni treba.
Proste soucasti
framu mam:
property DataSource: TDataSource read GetDataSource write SetDataSource;
Pri nastaveni teto property se v SetDataSource prolezou patricne komponenty
a
nastavi se jim ten datasource. Tzn. v creatu formulare s framem udelam
MujFrame.DataSource:= dsXXX
a je to.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Zobrazeni 2 des. mist v DBGRIDU
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.10.2003 12:12:54
Property DisplayFormat u prislusneho fieldu, pripadne OnGetText (tam si lze
formatovat jakoliv).
0.## nebo 0.00
Slavek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Lenka Donatova
> Sent: Wednesday, October 15, 2003 11:59 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Zobrazeni 2 des. mist v DBGRIDU
>
>
> Mam problem se zobrazenim urciteho poctu desetinych mist v dbgridu.
> Pouzivam komponenty ADO pro pristup k databazim *.MDB.
> Mam field u nehoz mam v databazi nastaven typ cislo-jednoducha
> presnost-pocet des mist: 2. Pokud se na to divam pres MS Access vidim napr
> hodnotu
> 55.5 ale pokud si stejna data zobrazim programove v D6 pres
> TADODataset,TDAtaSource a TDBGrid u nekterych radku se mi zobrazuje
> napr 55.5000001405.
> Muzete mi prosim nekdo poradit co mam nastavit a kde aby se mi zobrazovala
> pouze 2 des. mista.
> Predem dekuji
>
> Lenka Donatova
>
>
>program z D5 na D7
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 15.10.2003 12:00:53
> pustil som projekt , ktory mi ide normalne v D5 do Delphi 7. Pri komplikacii
> vypisalo chybu ve kode kde som priradoval taxtovej premennej hodnotu NULL
> premn:=Null;
>
> D5 to vzala
V D7 si musis do uses pridat jednotku Variants.> dalej mam formular report s komponentami Qreport. V D7 to vobec nieje a
> samozrejme vypise ze npozna triedu. To v D7 to neexistuje alebo co robim zle ?
V D7 je QReport nahrazen RaveReportem, ale QReport tam je stale, jen neni standardne v palete komponent. Musis si ho tam pridat sam, pak to pujde prelozit a pouzivat.
Marek Dostal
D7Proff
program z D5 na D7
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 15.10.2003 11:52:51
dalej mam formular report s komponentami Qreport. V D7 to vobec nieje a
samozrejme vypise ze npozna triedu. To v D7 to neexistuje alebo co robim zle
pro quick report si musis naistalovat package "dclqrt70.bpl" a jestli
pouzivas QRChart tak jeste "dcltqr70.bpl"
vitek
pristup k Visual foxpro
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 15.10.2003 11:50:51
On 15 Oct 2003 at 10:28, mato wrote:
> zdravim, ako zozeniem ovladace k databaze vizual foxpro? Je to sucastou
> nejakeho office ? Je to v MDAC 2.8 ? Chcem pristupovat cez ADO komponenty v
> D7
u M$ hledej VFPCOM Utility for Visual FoxPro
Jarek Uher
Nastavenie setrica z kodu DELPHI vo W98, W2k
[*] Tomas Hustava <tommyx(zv)zoznam.sk> - 15.10.2003 11:36:49
Zdravim konferu,
potrebujem nastavit vlastny setric do vlastnosti obrazovky priamo z kodu
delphi. Pouzivam dolu uvedeny kod (uryvok), ktory mi ale ide len pod
Windows NT (2000) ale nefunguje pod W98. Skusal som aj priamy zapis do
uvedenej vetvy v reg., ale ani po restarte sa nic nezmenilo. Prosim Vas,
pomozte, som uz bezradny.
Dakujem!
Tommy (w2k cz sp4, d7)
Kod:
function SetScreenSaver(FullSCRName : string):boolean;
var Reg: TRegistry;
r, b: Bool;
begin
Reg := TRegistry.Create;
Result:=True;
with Reg do begin
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Control Panel\Desktop', TRUE) then
begin
WriteString('SCRNSAVE.EXE',
ExtractShortPathName (FullSCRName));
BroadCastSystemMessage
(0, (zv)r, WM_SETTINGCHANGE, 0, 0);
SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,10,(zv)b,0);
end
else Result:=False;
Finally
Free;
end; //try
end;//with
end;
freereport
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 15.10.2003 11:50:51
On 14 Oct 2003 at 19:37, Matejcek Petr wrote:
> mam komponentu freereport a potrebuju do ni dostat promennou z
> Edit1.text
> Pls umi nekdo poradit jak na to ?
1. na form vloz komponentu TfrReport
2. dvojklikni na ni
3. v Designeru si nekam vloz object (ikona Insert rectangle object)
4. dvojklikni na nej a napis treba [E1] (pozor, identifikator musi byt v
v hranatych zavorkach)
5. a nakonec v
procedure TFormPrintXXX.frReport1GetValue(const ParName:
String; var ParValue: Variant);
begin
if AnsiUpperCase(ParName) = 'E1' then ParValue := Edit1.Text;
end;
Jarek Uher
program z D5 na D7
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 15.10.2003 11:52:51
Myslim, ze uz pod D6 je NULL v unite Variants. V D7 to bude zrejme obdobne.
Tak si ji dej do uses.
Jirka Matejka
> pustil som projekt , ktory mi ide normalne v D5 do Delphi 7. Pri
komplikacii
> vypisalo chybu ve kode kde som priradoval taxtovej premennej hodnotu NULL
> premn:=Null;
>
> D5 to vzala
TFrame v Delphi 7
[*] Pavel Chaloupka <chaloup(zv)cmail(tec)cz> - 15.10.2003 10:54:45
Taky se mi to stavalo. Zacal jsem takto jeden projekt a musel jsem to
preprogramovat na klasicky postup.
Ty odkazy na DataSource se rozpadaji naprosto nahodile, je treba byt ve
strehu.
Staci formular jen otevrit a zase ulozit, bez jakekoli zmeny.
----- Original Message -----
From: "Pavel Malinsky" <malinsky(zv)pmcom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 15, 2003 10:10 AM
Subject: Re: TFrame v Delphi 7
> no, v D5 i D7 se mi stava, ze za urcitych (bohuzel sem nezjistil
> kterych:( ) okolnosti se proste ztrati odkazy treba na datasource apod.
> Takze jsem pouziti framu s DBAware komponentami omezil na minimum,
> ale nejradsi bych to nepouzival vubec (myslim tim spojeni frame a
DBAware).
program z D5 na D7
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.10.2003 11:26:47
> pustil som projekt , ktory mi ide normalne v D5 do Delphi 7.
> Pri komplikacii vypisalo chybu ve kode kde som priradoval
> taxtovej premennej hodnotu NULL
> premn:=Null;
Ako je deklarovana ta 'taxtova premenna'? Predpokladam, ze je to var premn:
string;
Aka je to chyba (presne znenie)? Predpokladam, ze je to Undeclared
identifier: 'Null'.
Potom je riesenim pridat Variants do uses.
Avsak preco Null (typu Variant)?
Ak je to premenna typu string, potom predsa staci premn := '';
> D5 to vzala
;-)
> dalej mam formular report s komponentami Qreport. V D7 to
> vobec nieje a samozrejme vypise ze npozna triedu.
QuickReport v Delphi 7 je. Pre Delphi 6 to bolo v Professional a vyssie:
http://www.borland.com/delphi/pdf/del6_feamatrix.pdf a myslim, ze pre D7 je
to tiez od Professional a vyssie.
Mozno ho vsak nemas nainstalovany na paletu. Je to designtime package
dclqrt70.bpl a nachadza sa v adresari $(DELPHI)\Bin. Na paletu to dostanes
cez menu Component\Install Packages.
HTH
TOndrej
TFrame v Delphi 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 02:28:57
From: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
> chci se zeptat jak dobre funguji TFrame v D7. Pokud vim, tak v D5 byly
> problemy s gridy a dalsimi vecmi na frame. Pokud se neco nastavilo pouze na
> formulari, kam byl frame polozen, dely se psi kusy - od neexistence handleru
> eventu po acces violation.
Pokud mas nejaky specificky pripad na kterem to muzes vyzkouset tak si stahni
trial verzi a tam si to zkus:
http://www.borland.com/products/downloads/download_delphi.html
> 2) Jsou alespn ty nejzakladnejsi chyby z D5 v D7 opraveny?
Nektere opraveny, jine zase vytvoreny ;-)
Petr Vones
Typ RECORD
[*] jsdelphi(zv)creatix(tec)cz - 15.10.2003 00:26:41
Zdravim vsechny,
prosim o nasledujici radu:
Je mozne predat libovolny record jako parametr nejake procedure a nasledne
analyzovat jeho strukturu, pripadne do ni zapisovat?
Jan Skopovy
Cannot assign TLine to TLine - nechapu
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 15.10.2003 00:26:41
Ahoj,
mam tezky problem. Potrebuju neco pridelat do prg - cekal jsem 10 minut
prace, uz tim travim treti hodinu:-(
Potrebuju zduplikovat polozky v TCollection
pr. 1,2,3... -> 1,1,2,2,3,3...
Mam neco takoveho:
TEntity = class(TCollectionItem)
TLine = class(TEntity)
TArc = class(TEntity)
Seznam1 := TCollection (TEntity)
Seznam2 := TCollection (TEntity)
a procedure Duplikuj (var Zdroj: TCollection);
Myslel jsem si, ze bude stacit
for i:= 0 to Zdroj.Count-1 do
(Zdroj.Insert (2*i+1)).Assign(Zdroj.Items[2*i]);
ale pise mi to "Cannot assign TLine to TEntity" a vsechny pokusy o
pretypovani konci "Invalid class typecast"
V pokusech jsem dosel az k verzi
procedure TForm1.Duplikuj (var Zdroj: TCollection);
var temp: TCollection;
item: TEntity;
begin
temp := TCollection.Create (TEntity);
try
for i:= 0 to Zdroj.Count-1 do
begin
if Zdroj.Items[i].ClassType = TLine then item := TLine.Create
(temp)
else item := TArc.Create (temp);
item.Assign(Zdroj.Items[2*i]);// Proc nelze?
//jeste pro 2*i+1
end;
Zdroj.Assign (temp);
finally
temp.Free;
end;
end;
Vysledkem je "Cannot assign TLine to TLine"
Co je to za blbost a proc nemuzu do CollectionItem, ktery je TEntity
priradit TLine, kdyz je potomkem TEntity?
Kde uvazuju blbe?
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
Export do excelu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.10.2003 23:04:18
Puvodni zprava ze dne 14.10.2003:
> No v podstate je to jedno jestli primo do excelu nebo do xls souboru sel
> bych jednodussi cestou jen nevim ktera to je :-)
> Co doporucujete ?
Doporucuji zacit poradne quotovat.
A co se tyka Excelu, to si preci musis rozmyslet sam, jestli se
spokojis s tim, ze tam Excel bude, nebo to chces bez Excelu. Nejaka
komponenta nebo kod na primy zapis XLS se jiste take nekde najde.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
TFrame v Delphi 7
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 14.10.2003 22:48:14
14.10.2003 Daniel Frantik:
> Dobry den,
> chci se zeptat jak dobre funguji TFrame v D7. Pokud vim, tak v D5 byly
> problemy s gridy a dalsimi vecmi na frame. Pokud se neco nastavilo pouze na
> formulari, kam byl frame polozen, dely se psi kusy - od neexistence handleru
> eventu po acces violation.
> Takze otazka:
> 1) Pouzivate nekdo nejak vic framy ve svych projektech pod D7?
> 2) Jsou alespn ty nejzakladnejsi chyby z D5 v D7 opraveny?
Frame pouzivame hojne. Pouzivali jsme je bez problemu i na D5. Po
prechodu na D7 se nevyskytly zadne problemy. Ale nepouzivame na
frame zadne dbAware komponenty.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Export do excelu
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.10.2003 20:37:42
No v podstate je to jedno jestli primo do excelu nebo do xls souboru sel
bych jednodussi cestou jen nevim ktera to je :-)
Co doporucujete ?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Petr Zahradnik
Sent: Tuesday, October 14, 2003 7:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Export do excelu
Puvodni zprava ze dne 14.10.2003:
> neznate nekdo nejakou komponentu ktera umi ukladat data do excelu ?
> Nejlepe kdyz ji podstrcim dataSource a on mi tam ulozi obsag Dbgridu
Nevim, co mas na mysli... jestli jako opravdu do Excelu nebo tim myslis do
XLS souboru bez Excelu. Pokud vazne to, co pises, tak se podivej treba na
tohle:
http://sourceforge.net/projects/tpofficepartner/
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
SSH protokol
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 14.10.2003 19:35:23
Ahoj,
muzete mne prosim nekdo nasmerovat, jak z Delphi pracovat s protokolem
SSH. Konkretne pripojeni do databaze MySQL na vzdalenem serveru pres
SSH.
Predem dik.
ME
Ing.Miroslav Evjak
KEN System v.o.s.
mailto:me(zv)kensystem(tec)cz
http://www.kensystem(tec)cz
ICQ:313884739
+420 607 875748
test verzie operacneho systemu v tp 5.5
[*] Bohuslav Svancara <bsv(zv)softprojekt(tec)cz> - 14.10.2003 19:43:28
function DosVersion : Word;
{-Returns the DOS version number. High byte has major version number,
low byte has minor version number. Eg., DOS 3.1 => $0301.}
inline(
$B4/$30/ {mov ah,$30}
$CD/$21/ {int $21}
$86/$C4); {xchg ah,al}
S pozdravem
Bohuslav Svancara, prom. mat.
svancara(zv)softprojekt(tec)cz
freereport
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.10.2003 19:37:24
Zdravim
mam komponentu freereport a potrebuju do ni dostat promennou z
Edit1.text
Pls umi nekdo poradit jak na to ? Export do excelu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.10.2003 19:25:22
Puvodni zprava ze dne 14.10.2003:
> neznate nekdo nejakou komponentu ktera umi ukladat data do excelu ?
> Nejlepe kdyz ji podstrcim dataSource a on mi tam ulozi obsag Dbgridu
Nevim, co mas na mysli... jestli jako opravdu do Excelu nebo tim
myslis do XLS souboru bez Excelu. Pokud vazne to, co pises, tak se
podivej treba na tohle:
http://sourceforge.net/projects/tpofficepartner/
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Export do excelu
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.10.2003 19:21:22
Zdravim
neznate nekdo nejakou komponentu ktera umi ukladat data do excelu ?
Nejlepe kdyz ji podstrcim dataSource a on mi tam ulozi obsag Dbgridu
Dik Petr
Velikost interbase
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.10.2003 19:09:20
Zdravim,
kolik maximalne zaznamu v tabulce resp v databazi je unosnych pro
rozumnou praci s Interbasi?
Rekneme ze mam 3 tabulky cca po 10 sloupcich kolik radku do nich muzu ulozit
aby databaze nebyla lina ?
Dik PM TFrame v Delphi 7
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 14.10.2003 17:21:01
Dobry den,
chci se zeptat jak dobre funguji TFrame v D7. Pokud vim, tak v D5 byly
problemy s gridy a dalsimi vecmi na frame. Pokud se neco nastavilo pouze na
formulari, kam byl frame polozen, dely se psi kusy - od neexistence handleru
eventu po acces violation.
Takze otazka:
1) Pouzivate nekdo nejak vic framy ve svych projektech pod D7?
2) Jsou alespn ty nejzakladnejsi chyby z D5 v D7 opraveny?
Diky,
Danik
RichEdit a link na file
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 14.10.2003 16:48:45
Hi,
D5, MSSQL
Nevite nekdo jak bych do richeditu dostal odkazy na nazvy souboru z
databazi? Predstava je takova, ze nazev toho souboru by byl hyperlink v
textu to richeditu, ale bez file:// a taky by respektoval mezery v nazvech
souboru a uzivatel by v obecnem textu jen kliknul na odkaz a soubor by se
otevrel...
Diky za kazde nakopnuti pripadne za jine alternativy
Sroub
Problem s tabulkou Paradox
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 14.10.2003 16:20:42
> Zdravim Vas,
> viete mi prosim poradit ako dostanem!!! data z tabulky, ked mi zacalo
> vyhlasovat chybu:
> "Corrupt table/index header"
> a nemozem ju ziadno otvorit ?
> Jedna sa o tabulku Paradox.
Nekdy pomuze i odmazani *.px souboru.
Jirka Matejka
Problem s tabulkou Paradox
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 14.10.2003 16:16:42
> viete mi prosim poradit ako dostanem!!! data z tabulky, ked mi zacalo
> vyhlasovat chybu:
> "Corrupt table/index header"
> a nemozem ju ziadno otvorit ?
> Jedna sa o tabulku Paradox.
Skus utilitu Paradox table repair z
http://info.borland.com/devsupport/bde/delphifiles.html
HTH
TOndrej
Problem s tabulkou Paradox
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 14.10.2003 16:12:41
Mrkni na http://www.rksolution(tec)cz, tam je PdoxRebuild, treba to s tim pujde.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
viete mi prosim poradit ako dostanem!!! data z tabulky, ked mi zacalo
vyhlasovat chybu: "Corrupt table/index header" a nemozem ju ziadno otvorit ?
Jedna sa o tabulku Paradox.
Ako z kodu DELPHI nastavit setrica vo W98, W2k
[*] Tomas Hustava <tommyx(zv)zoznam.sk> - 14.10.2003 16:08:41
Zdravim konferu,
potrebujem nastavit vlastny setric do vlastnosti obrazovky priamo z kodu
delphi. Pouzivam dolu uvedeny kod (uryvok), ktory mi ale ide len pod
Windows NT (2000) ale nefunguje pod W98. Skusal som aj priamy zapis do
uvedenej vetvy v reg., ale ani po restarte sa nic nezmenilo. Prosim Vas,
pomozte, som uz bezradny.
Dakujem!
Tommy (w2k cz sp4, d7)
Kod:
function SetScreenSaver(FullSCRName : string):boolean;
var Reg: TRegistry;
r, b: Bool;
begin
Reg := TRegistry.Create;
Result:=True;
with Reg do begin
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Control Panel\Desktop', TRUE) then
begin
WriteString('SCRNSAVE.EXE',
ExtractShortPathName (FullSCRName));
BroadCastSystemMessage
(0, (zv)r, WM_SETTINGCHANGE, 0, 0);
SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,10,(zv)b,0);
end
else Result:=False;
Finally
Free;
end; //try
end;//with
end;
Problem s tabulkou Paradox
[*] Robo Fujak <robof(zv)inmail.sk> - 14.10.2003 15:54:39
Zdravim Vas,
viete mi prosim poradit ako dostanem!!! data z tabulky, ked mi zacalo
vyhlasovat chybu:
"Corrupt table/index header"
a nemozem ju ziadno otvorit ?
Jedna sa o tabulku Paradox.
Dakujem. Robo.
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu (zme.zoner.sk)SpeedButton
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.10.2003 15:14:35
> Zdravim a prosil bych o radu jeste jednou:
> Jak zakazu vlastnost speedbuttonu aby reagoval na stisk podtrzeneho
> znaku bez ALT??
Zkus tohle:
1) Do private sekce formulare pridat
procedure CMDialogChar(var Message: TCMDialogChar); message
CM_DIALOGCHAR;
2)
procedure TForm1.CMDialogChar(var Message: TCMDialogChar);
begin
with Message do
if KeyData and $20000000 = 0 then
// Result := 1
else
inherited;
end;
Uz nevim, proc je ten radek s resultem zakomentarovan, muzes to zkusit vykoumat.
Tohle mi kdysi nekdo poradil, i kdyz se nejednalo o Speedbutton.
David Lebeda
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 14.10.2003 15:12:35
> mas tim na mysli neco v tomto smyslu?
>
> for i := 0 to dm.ClientDataSet2.RecordCount - 1 do
> begin
> dm.ClientDataSet1.Insert;
> dm.ClientDataSet1.Fields[0].Value :=
> dm.ClientDataSet2.Fields[0].Value;
> dm.ClientDataSet1.Post;
> dm.ClientDataSet2.Next;
> end;
> dm.ClientDataSet1.ApplyUpdates(-1);
Myslel som while not EOF, pretoze na RecordCount sa neda vzdy spolahnut.
src.First;
while not src.EOF do
begin
dst.Insert;
try
dst.FieldByName('field1').AsString :=
src.FieldByName('field1').AsString;
dst.FieldByName('field2').AsInteger :=
src.FieldByName('field2').AsInteger;
...
dst.Post;
except
dst.Cancel;
raise;
end;
src.Next;
end;
if dst.ChangeCount > 0 then
dst.ApplyUpdates(0);
> funguje to, ale je to hrozne pomaly :-( Kdyby slo o par
> zaznamu, tak je mi to celkem jedno, ale pri 40 000 uz
> je to fakt na kavicku.
Ak Ti ide o rychlost, mozes pouzit priamo SQL a neist na to zbytocne cez
clientdataset a providera.
Napriklad TSQLQuery (dst) s TSQLConnection (conn):
dst.SQL.Text := 'insert field1, field2, ... into table1 values (:field1,
:field2, ...)';
dst.Prepared := True; // * vid nizsie
// ak potrebujes zarucit prenos bud vsetkych dat alebo ziadnych v pripade
chyby, pouzi transakciu
conn.StartTransaction;
try
src.First;
while not src.EOF do
begin
dst.ParamByName('field1').AsString :=
src.FieldByName('field1').AsString;
dst.ParamByName('field2').AsInteger :=
src.FieldByName('field2').AsInteger;
...
dst.ExecSQL;
src.Next;
end;
conn.Commit;
except
conn.Rollback;
raise;
end;
* Zaujimave, v helpe pisu, ze TSQLQuery.Prepared treba nastavit na False, ak
menis hodnotu parametra.
Predpokladam, ze je chyba v helpe a chceli napisat, ze ma byt False, ak
menis _typ_ parametra.
Nie som si isty, pretoze dbExpress som zatial este nepouzil.
HTH
TOndrej