Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
x obrazek ^
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 5.2.2003 21:13:46
Ahoj,
nejsem si jisty, jestli to bude presne to, co potrebujes, ale zkus si
naimportovat do ActiveX "Ovl�dac� prvek Kodak Image Edit" - ImgEdit.ocx. Ja
to pouzivam pro konverzi TIFF do JPG vcetne zvetsovani a zmensovani. Jo, mam
W2K, jestli to je na nizsich verzich, nevim...
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Kraina
> Sent: Wednesday, February 05, 2003 8:07 PM
> To: Delphi Konference
> Subject: 2x obrazek ^
>
> Ahoj,
> potreboval bych link na nejakou komponentu, ktera umi
> zoomovat TBitmap a
> ukladat v BMP,JPG a GIF. Mohou byt i dve. Moc dik. DKx
>
>
Delka textu
[*] tondrej(zv)t-online.de (TOndrej) - 5.2.2003 21:16:55
> Ahoj, potrebuju zjistit delku text v pixelech, pri danem fontu.
>
> napr: Label1.Caption:='aaaaa';
> Label2.Caption:='aaaaa';
> Label2.left:=Label1.left+label1."delka v pixelex"
>
> Jak se jmenuje takova funkce.
Canvas.TextWidth
alebo ak je Label1.AutoSize potom tiez Label2.Left := Label1.Left +
Label1.Width;
HTH
TOndrej
Re[4]: zeosdbo - problem pri instalaci (d(e)s(i)gn
[*] Jaroslav �ezn�k�������(����̿ - 5.2.2003 21:49:47
Ani DesignIntf? Ja jsem mel problemy v D5, tam je DsgnIntf a zeos
chtel prave DesignIntf. Nejlepsi je mrknout do konfery zeos-general.
Tam je to denni chleba, proste chybicka se obcas vloudi. Jinak pomalu
se objevuji alfa verze, tusim ze znacene jako 6.neco. Uz se tesim!
Rezza
Rk> 1, V D6 ta unita DsgnIntf neni a tu co mi poslal ... haze jeden error za
Rk> druhym.
Rk> 2, Dyt to ksakru fungovalo a na jinem stroji s taky D6 to jede - to nechapu
Rk> Rumcajs
Ini - seznam sekci
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.2.2003 22:36:35
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Asi to bude tim, ze pri predavani odkazu na objekty je var neuvadi :-)
No to si to chapani var parametru dost zjednodujes, protoze
je podstatny rozdil, jestli napises:
1. procedure AAA(var AObject:TObject);
2. procedure AAA(AObject:TObject);
protoze pokud pouzijes definici ad 1), tak se predpoklada, ze v tele
procedury udelas neco jako
AObject := TObject.Create;
tj. vratis instanci tridy, zatimco v ad 2) dostanes hodnotou odkaz na
existujici instanci tridy a s tou muzes delat vse, co Ti dovoli mj. treba
vratit nejaka vystupni data z procedury - to ale nema nic spolecneho s var
parametrem.
Bye, pf
Ini - seznam sekci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.2.2003 22:48:09
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> 1. procedure AAA(var AObject:TObject);
> 2. procedure AAA(AObject:TObject);
>
> protoze pokud pouzijes definici ad 1), tak se predpoklada, ze v tele
> procedury udelas neco jako
>
> AObject := TObject.Create;
>
> tj. vratis instanci tridy, zatimco v ad 2) dostanes hodnotou odkaz na
Pro ten pripad 1. se jeste lepe hodi out, tedy:
procedure AAA(out AObject: TObject);
Petr Vones
Ini - seznam sekci
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.2.2003 22:51:58
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Pro ten pripad 1. se jeste lepe hodi out, tedy:
>
> procedure AAA(out AObject: TObject);
Jiste, ja jen abych neodbocoval od toho VAR.
Bye, pf
Zaokrouhlovani a verze OS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 01:50:32
From: "Rumcajs-konfera" <konfera(zv)rumcajs.com>
> Pouzivam nasledujici funkci: FloatToStrF(Table3Cp.Value, ffFixed, 3, 3);
Pro zacatek bylo bylo dobre vedet co vlastne do te funkce presne predavas.
Dale jakeho typu je Table3Cp.Value (Variant ?)
Petr Vones
IPC (InterProcess Communication)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 01:52:27
From: "Pavel Cab�k" <cabak(zv)cross(tec)cz>
> daji se NamedPipe a MailSlots pouzit i pro vzdalene pripojeni pocitacu
> (napr. telefonickym pripojenim) nebo to je jen pro zalezitost lokalni site?
Pri pouziti telefonickeho pripojeni pouzij radsi TCP/IP.
Petr Vones
Prenos dat po TCPIP
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 6.2.2003 07:28:08
Servus!
Chtel bych se poradit ohledne prenosu dat po TCP IP. Na jedne strane je
pocitac propojen pres RS232 na externi stroj, ktery neustale posila
informace o stavu a ja potrebuju tyto informace posilat dal po siti. Zkousel
sem TCP server + client od Indy, ale po chvilce se mi server zahltil
(ponekud to nestihal predavat). Existuje nejak komponenta, ktera by tento
prenos zvladala?
Lukas "Rumcajs" WeissServus!
Chtel bych se poradit ohledne prenosu dat po TCP IP. Na jedne strane je
pocitac propojen pres RS232 na externi stroj, ktery neustale posila
informace o stavu a ja potrebuju tyto informace posilat dal po siti. Zkousel
sem TCP server + client od Indy, ale po chvilce se mi server zahltil
(ponekud to nestihal predavat). Existuje nejak komponenta, ktera by tento
prenos zvladala?
Lukas "Rumcajs" Weiss
AW: Borland IDE pro .NET bude ...
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 6.2.2003 07:30:40
Zdravim konferenciu
V utorok a stredu som bol na dot.net konferencii vo Franfurkte a videl som
ten Sidewinder. Je to velmi podobne Visual studiu. Pre delphistov bude
len plug-in do prostredia. Podla toho co vyprodukoval Keynotespeaker
(za 20 minut asi 2 vety o delphi) delphi nie je ziadna priorita. Bude to v
prvom
rade pre C#. Dobra sprava bude Delphi 8.
Laco
Borland to offer IDE for Microsoft's .Net
http://www.infoworld.com/article/03/02/04/HNsidewinder_1.html
Petr Vones
StringGrid
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 06.2.2003 07:36:47
> 1/ lze nejak nastavit u %SUBJ% alignment bunek ??
V konferenci kdysi nekdo poslal tohle, zkus se tim nechat inspirovat. Uvedeny priklad
by mel delat zarovnani na stred.
OnDrawCell:
procedure TForm.StringGridOnDrawCell(Sender: TObject; ACol, ARow:
Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid do
begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+((Rect.Right-Rect.Left) div
2)-(Canvas.TextWidth(Cells[Acol,ARow]) div
2),Rect.Top,Cells[ACol,ARow]);
end;
end;
David Lebeda
Vyvoj pod NT, beh pod XP
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.2.2003 07:49:51
Petr Vones dne 5 Feb 2003 v 20:02:
> Ohledne korektniho chovani ve Windows XP. Pokud je to aplikace s GUI,
> tak potrebujes podporu temat, ktera je ve VCL az v Delphi 7.
> Samozrejme aplikace ze starsi verze Delphi taky "nejak pobezi", ovsem
> nesmis se divit kdyz nebude fungovat nebo se chovat tak, jak by mela
> (vcetne vzhledu).
Kdyz vytvarim aplikaci v D6 pod W2K, jake jine zmeny ci problemy mohou nastat, kdyz aplikaci nekdo
pusti pod XP? Doufal jsem, ze lisit se muze jen ten vzhled...
Karel Rys
Prenos dat po TCPIP
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 6.2.2003 08:03:13
From: "Rumcajs-konfera" <konfera(zv)rumcajs.com>
> sem TCP server + client od Indy, ale po chvilce se
> mi server zahltil (ponekud to nestihal predavat).
> Existuje nejak komponenta, ktera by tento
> prenos zvladala?
Tak to budes muset naprogramovat zpusobem, jakym se takove ulohy zpravidla
resi (v tom Ti nejspis zadna komponenta nepomuze) tj. rozdelit to na 2
samostatne thready a synchronizovat je:
1. prijimaci, ktery bude strkat prijata data
pres RS232 do fronty se semaforem
2. vysilaci, ktery bude cekat u semaforu
a odesilat data z fronty
bye, pf
Instalace klienta FB
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 6.2.2003 09:21:45
Potreboval bych poradit, co vse je potreba, krome nahrati gds32.dll, =
udelat na pocitaci s windows, na nejz chci nainstalovat klienta pro =
FireBird? Neco zapsat do registru nebo tak neco?
Diky, Marek Dost=E1l
Prenos dat po TCPIP
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 6.2.2003 09:37:12
Ahoj,
zkus se podivat na stranky www.olympo(tec)cz, a asi dalsi, zde prodavaji primo
prevodnik RS232<->TCP/IP, krery je mozno snadno konfigurovat a programovat.
Pavel
> From: Rumcajs-konfera [mailto:konfera(zv)rumcajs.com]
> Servus!
> Chtel bych se poradit ohledne prenosu dat po TCP IP. Na jedne
> strane je
> pocitac propojen pres RS232 na externi stroj, ktery neustale posila
> informace o stavu a ja potrebuju tyto informace posilat dal
> po siti. Zkousel
> sem TCP server + client od Indy, ale po chvilce se mi server zahltil
> (ponekud to nestihal predavat). Existuje nejak komponenta,
> ktera by tento
> prenos zvladala?
> Lukas "Rumcajs" Weiss Vyvoj pod NT, beh pod XP
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.2.2003 09:37:51
Vzhled se nebude lisit. Lisil by se v pripade, ze bys pouzil manifest.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.2.2003 Karel Rys:
> Petr Vones dne 5 Feb 2003 v 20:02:
>> Ohledne korektniho chovani ve Windows XP. Pokud je to aplikace s GUI,
>> tak potrebujes podporu temat, ktera je ve VCL az v Delphi 7.
>> Samozrejme aplikace ze starsi verze Delphi taky "nejak pobezi", ovsem
>> nesmis se divit kdyz nebude fungovat nebo se chovat tak, jak by mela
>> (vcetne vzhledu).
> Kdyz vytvarim aplikaci v D6 pod W2K, jake jine zmeny ci problemy mohou nastat, kdyz aplikaci nekdo
> pusti pod XP? Doufal jsem, ze lisit se muze jen ten vzhled...
> Karel Rys
OT: Nic nerobiaci prikaz
[*] �velta Jaroslav <jsvelta(zv)ciglersw.sk> - 6.2.2003 10:21:08
Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit =
breakpoint), ale nic neurobi?
Obdoba instrukcie NOP v assembleri
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V=EDrusov=E1 datab=E1za: 251 - d=E1tum vydania: 27. 1. =
2003
=20
Com + Win Service
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 06.2.2003 10:53:58
Ahoj,
mam problem, ktery se mi nedari rozlousknout, prosim tedy o pomoc.
Je program (server), ktery bezi na jednom pocitaci. Na jinem je
spusten klient, ktery komunikuje se serverem pres DCOM. Server ma
ikonku napravo v pruhu uloh.
Novy pozadavek zni: udelat ze serveru service, pri zachovani puvodni
funkcnosti, tedy i DCOM komunikace. Nedari se mi to zprovoznit tak,
aby si klient zavolal uz spustenou instanci, vzdy si pousti novou
instanci.
Je to placena zakazka, pokud to nekdo umi, milerad mu to prenecham.
Termin do konce unora, vcetne osetreni chyb a jejich logovani do
databaze (to je trivialita, prostredi je na to uz pripravene).
S pozdravem
Zbysek Hlinka
OT: OE6 a zkratkove klavesy
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 6.2.2003 10:59:52
Sorry za OT, ale uz nevim kam s tim:
Mam nainstalovane WinME a OE6. Kdyz stisknu Ctrl+Shift+E tak se mi otevre
okno s novym majlem, a to i kdyz neni OE spusten nebo aktivni. Na makrosh=
itu
po me chteli hromadu pic... a nez sem se dostal k vlastnimu dotazu, tak s=
em
se dozvedel, ze ac volam z jakehokoliv duvodu, chyba neni u Makroshitu
(ostatne jako vzdy).
Nevite nekdo jak se da zakazat tahle kombinace klaves (pravdepodobne je t=
o
nekde primo v Oknech)?
S uctou k trpelivosti dosti nastvany Lukas "Rumcajs" Weiss
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Nic nerobiaci prikaz
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 6.2.2003 11:14:49
Pouzivam toto, mam to od nekoho v konferenci:
{** No Operation. Nic nedel=E1, jen se do n=ED daj=ED predat argumenty =
pro
oklam=E1n=ED
optimalizace prekladu. Pokud je prvn=ED argument Boolean nebo =
Integer,
vrac=ED jeho hodnotu (0=3DFalse).
Vol=E1n=ED nap=F8. NxNop([i]);
}
function NxNop(Args: array of const): Boolean;
begin
Result :=3D False;
with Args[Low(Args)] do
case VType of
vtBoolean: Result :=3D VBoolean;
vtInteger: Result :=3D (VInteger <> 0);
end;
end;
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
breakpoint), ale nic neurobi?
Obdoba instrukcie NOP v assembleri
OT: Nic nerobiaci prikaz
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 06.2.2003 11:22:12
Proboha, k cemu ze to ma byt dobre? ;-O
> Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
> breakpoint), ale nic neurobi? Obdoba instrukcie NOP v assembleri
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: Nic nerobiaci prikaz
[*] Tom� Fajman��������ڎf����{� - 6.2.2003 11:29:18
DQpOZWNoYXB1IHNpY2UgayBjZW11IGplIHRvIGRvYnJ5LCBhbGUgdHJlYmEgICAgICAgICAgZm9y
IGk6PTEgdG8gMSBkbw0KY29udGludWU7DQoNCg0KDQoNCiAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0K
ICAgICAgICAgICAgICAgICAgICAgIIp2ZWx0YSBKYXJvc2xhdiAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgDQogICAgICAgICAgICAgICAgICAgICAgPGpzdmVsdGFAY2ln
bGVyc3cgICAgICAgIEtvbXU6ICAgICA8ZGVscGhpLWxAY2xleHBlcnQuY3o+ICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgICAgICAgICAg
ICAgICAgICAgICAuc2s+ICAgICAgICAgICAgICAgICAgICAgS29waWU6ICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgIA0KICAgICAgICAgICAgICAgICAgICAgIE9kZXNsYWw6ICAgICAgICAgICAgICAg
ICBQ+GVkbex0OiAgT1Q6IE5pYyBuZXJvYmlhY2kgcHJpa2F6ICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogICAgICAgICAgICAgICAgICAgICAg
ZGVscGhpLWwtb3duZXJAY2wgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAN
CiAgICAgICAgICAgICAgICAgICAgICBleHBlcnQuY3ogICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICANCiAgICAgICAgICAgICAgICAgICAgICAwNi4wMi4yMDAzIDEwOjIxICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICAgICAgICAgICAgICAgICAgICAg
IE9kcG927Hp0ZSBwcm9z7W0gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
DQogICAgICAgICAgICAgICAgICAgICAgdZ5pdmF0ZWxpICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICANCiAgICAgICAgICAgICAgICAgICAgICBkZWxwaGktbCAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCg0KDQoNCg0KRXhpc3R1amUgdiBk
ZWxwaGkgcHJpa2F6LCBrdG9yeSBzYSB2eWtvbmEgKG1vemVtIG5hIG5laG8gdW1pZXN0bml0DQpi
cmVha3BvaW50KSwgYWxlIG5pYyBuZXVyb2JpPw0KT2Jkb2JhIGluc3RydWtjaWUgTk9QIHYgYXNz
ZW1ibGVyaQ0KDQpKYXJvc2xhdiCKdmVsdGENClByb2dyYW3hdG9yDQotLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpDzUdMRVIgU09GVFdBUkUgU2xv
dmFraWEsIGEucy4NClNsaWHoc2thIDEwLCA4MzEgMDIgQnJhdGlzbGF2YSwgU0sNCi0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCg0KLS0tDQpPZGNo
4WR6YWr6Y2Egc3By4XZhIG5lb2JzYWh1amUgdu1ydXN5Lg0KU2tvbnRyb2xvdmFu6SBhbnRpdu1y
dXNvdv1tIHN5c3TpbW9tIEFWRyAoaHR0cDovL3d3dy5ncmlzb2Z0LmN6KS4NClZlcnppYTogNi4w
LjQ0OSAvIFbtcnVzb3bhIGRhdGFi4XphOiAyNTEgLSBk4XR1bSB2eWRhbmlhOiAyNy4gMS4gMjAw
Mw0KDQoNCg0K
Nic nerobiaci prikaz
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 6.2.2003 11:31:24
asm
nop
end;
----- Original Message -----
From: "�velta Jaroslav" <jsvelta(zv)ciglersw.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 06, 2003 10:21 AM
Subject: OT: Nic nerobiaci prikaz
Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
breakpoint), ale nic neurobi?
Obdoba instrukcie NOP v assembleri
Jaroslav �velta
Program�tor
----------------------------------------------------
C�GLER SOFTWARE Slovakia, a.s.
Slia�ska 10, 831 02 Bratislava, SK
----------------------------------------------------
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V�rusov� datab�za: 251 - d�tum vydania: 27. 1. 2003
Nic nerobiaci prikaz
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 6.2.2003 11:42:38
Ja bych pouzil assemblerovsky NOP:
procedure abc;
begin
neco;
asm nop end;
necojineho;
end;
Ma to vyhodu v rychlosti a da se na to nastavit breakpoint.
Ahoj Jarda
----- Original Message -----
From: "=A9velta Jaroslav" <jsvelta(zv)ciglersw.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 06, 2003 10:21 AM
Subject: OT: Nic nerobiaci prikaz
Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
breakpoint), ale nic neurobi?
Obdoba instrukcie NOP v assembleri
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V=EDrusov=E1 datab=E1za: 251 - d=E1tum vydania: 27. 1. =
2003
OT: Nic nerobiaci prikaz
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.2.2003 11:44:13
VHJlYmEgU2xlZXAoMSkgLSBuaWMgbmV1ZGVsYSBhIHBvY2thIDEgbXMNCg0KLS0gDQpKYW4gRmlh
bGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjYuMi4yMDAzIKl2ZWx0YSBKYXJvc2xhdjoN
Cj4gRXhpc3R1amUgdiBkZWxwaGkgcHJpa2F6LCBrdG9yeSBzYSB2eWtvbmEgKG1vemVtIG5hIG5l
aG8gdW1pZXN0bml0DQo+IGJyZWFrcG9pbnQpLCBhbGUgbmljIG5ldXJvYmk/IE9iZG9iYSBpbnN0
cnVrY2llIE5PUCB2IGFzc2VtYmxlcmkNCg0KIA==
Nic nerobiaci prikaz
[*] Tomas Cieslar <cieslar(zv)efisyst(tec)com> - 6.2.2003 11:47:07
Nesta=E8ilo by pou=BE=EDt samostatn=FD st=F8edn=EDk? Asi takto:
procedure Neco;
begin
;
end;
Cieslar
Com + Win Service
[*] tondrej(zv)t-online.de - 06.2.2003 11:51:07
> Je program (server), ktery bezi na jednom pocitaci. Na
> jinem je spusten klient, ktery komunikuje se serverem
> pres DCOM.
> Server ma ikonku napravo v pruhu uloh.
>
> Novy pozadavek zni: udelat ze serveru service, pri
> zachovani puvodni funkcnosti, tedy i DCOM
> komunikace. Nedari se mi to zprovoznit tak,
> aby si klient zavolal uz spustenou instanci, vzdy si
> pousti novou instanci.
Neviem, ci Ti nasledovny link pomoze prave s problemom instancii, ale
mozes to skusit:
http://www.aldyn.ru/products/svcom/
U nas sme nedavno kupili zdrojaky, prave s tym laborujem ;-)
Robim viacvrstvovu MIDAS aplikaciu cez TWebConnection a appserver je
pomocou tejto kniznice implementovany ako service.
Zatial je to u nas v stadiu experimentov, ale prvy dojem je dobry.
HTH
TOndrej
Instalace klienta FB
[*] tondrej(zv)t-online.de - 06.2.2003 11:53:47
> Potreboval bych poradit, co vse je potreba, krome nahrati
> gds32.dll, udelat na pocitaci s windows, na nejz chci
> nainstalovat klienta pro FireBird? Neco zapsat do
> registru nebo tak neco?
Vobec nic. Staci gds32.dll. A samozrejme fungujuca siet cez TCP/IP.
HTH
TOndrej
OT: Nic nerobiaci prikaz
[*] �velta Jaroslav <jsvelta(zv)ciglersw.sk> - 6.2.2003 12:02:36
Napr. ak mas funkciu, ktora sa ti v programe vola napr. 1000x
a ty potrebujes otestovat jej funkcnost pre specificku sadu argumentov, =
alebo premennych...
Ak si v nej das breakpoint tak sa asi zblaznis, kym sa dostanes
k potrebnej situacii...
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
-----Original Message-----
From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]
Sent: Thursday, February 06, 2003 11:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT: Nic nerobiaci prikaz
Proboha, k cemu ze to ma byt dobre? ;-O
> Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
> breakpoint), ale nic neurobi? Obdoba instrukcie NOP v assembleri
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
---
Prich=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V=EDrusov=E1 datab=E1za: 251 - d=E1tum vydania: 27. 1. =
2003
=20
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V=EDrusov=E1 datab=E1za: 251 - d=E1tum vydania: 27. 1. =
2003
=20
OT: Nic nerobiaci prikaz
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 6.2.2003 12:07:45
From: "�velta Jaroslav" <jsvelta(zv)ciglersw.sk>
> Ak si v nej das breakpoint tak sa asi zblaznis,
> kym sa dostanes k potrebnej situacii...
A nestacilo by Ti na nastavit u breakpointu Pass Count popr. Condition?
HTH, pf
OT: Nic nerobiaci prikaz
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 06.2.2003 12:07:05
> Treba Sleep(1) - nic neudela a pocka 1 ms
Coz neni pravda... pocka MINIMALNE 1ms... ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: Nic nerobiaci prikaz
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 06.2.2003 12:11:25
Asi jsem fakt natvrdlej, ale opravdu nechapu, cim ti pomuze NOP?
Neni lepsi pouzit breakpoint a nastavit mu, za jakych podminek smi
byt vyvolan? nebo mu take muzes nastavit, ze ma byt vyvolan treba az
pri petistem pruchodu...
> Napr. ak mas funkciu, ktora sa ti v programe vola napr. 1000x
> a ty potrebujes otestovat jej funkcnost pre specificku sadu
> argumentov, alebo premennych... Ak si v nej das breakpoint tak sa asi
> zblaznis, kym sa dostanes k potrebnej situacii...
> Proboha, k cemu ze to ma byt dobre? ;-O
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: Nic nerobiaci prikaz
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 6.2.2003 12:20:55
Mozna jsem to nepochopil, ale nestacilo by ti nastavit vlastnosti
breakpointu?
Jarda
----- Original Message -----
From: "=A9velta Jaroslav" <jsvelta(zv)ciglersw.sk>
Sent: Thursday, February 06, 2003 12:02 PM
Subject: RE: OT: Nic nerobiaci prikaz
Napr. ak mas funkciu, ktora sa ti v programe vola napr. 1000x
a ty potrebujes otestovat jej funkcnost pre specificku sadu argumentov,
alebo premennych...
Ak si v nej das breakpoint tak sa asi zblaznis, kym sa dostanes
k potrebnej situacii...
Jaroslav =A9velta
Program=E1tor
AW: Forward slash (/) v maskedit
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 6.2.2003 12:25:39
Skus uvodzovky
Potrebujem zadavat masku s charakterom /, pretoze ale maskedit pouziva /
Vlko
--
--------------
vlko_(zv)pobox.sk format MenuItem
[*] "Jakub �r�mek" - 6.2.2003 12:39:04
Ahoj,
chtel bych se vas zaptat, jake jsou moznosti pri vlastnim =
vykreslovani polozek menu. Co umim je to, ze v udalosti OnDrawItem poloz=
ky =
menu jsem schopen na jeho canvas kreslit a taky kreslim. Chtel bych vsak=
=
zmenit vzhled celeho menu - tim mam namysli rozbaleny seznam zobrazeny p=
o =
kliknuti na polozku z listy hlavni nabidky (napr. po klinuti ma menu =
"Soubor" se mi rozbali submenu - a to chci upravit). Moje idea je naprik=
lad =
ta, ze rozbaleny seznam submeny bude v cernem ramecku se sedym stinem. =
Jedine co me napada jak toho docilit, tak je podivat se primo na TMenu n=
ebo =
TMenuItems - tam to upravit, vytvorit dcu a soupnout je na prislusna mis=
ta. =
Nikdy jsem to takhle nedelaj a je to mozna uplna blbost..., ale fakt nev=
im =
jak nato.
A jeste jedna vec me napada, na kterou se chci zeptat. Kdyz ve win2000 =
kliknete na nabidku START, tak se rozbali nabidka, kde ja vlevo barevny =
pruh =
"Windows 2000 Professional". Jak ho vykreslit do meho menu? Co me napadl=
o je =
rozdelit ho do dilcich bitmap a ty pak vykreslovat v prislusnych polozka=
ch =
menu. Nejak jsem se rozepsal, ale snad je to srozumitelne...
Dik za rady a tipy...
Ahoj, Kuba.
Nic nerobiaci prikaz
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 6.2.2003 12:49:22
Ja pouzivam write.
Napr.
if neco then
write
a na druhy radek nastavim breakpoint.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
----- Original Message -----
From: "Svoboda Jiri" <jsvoboda(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
>
> Existuje v delphi prikaz, ktory sa vykona (mozem na neho umiestnit
> breakpoint), ale nic neurobi?
> Obdoba instrukcie NOP v assembleri
Nic nerobiaci prikaz
[*] �velta Jaroslav <jsvelta(zv)ciglersw.sk> - 6.2.2003 12:58:42
Dakujem za vsetky ohlasy.
Pomohli ste mi.
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.449 / V=EDrusov=E1 datab=E1za: 251 - d=E1tum vydania: 27. 1. =
2003
=20
Forward slash (/) v maskedit
[*] Vlko II. <vlko(zv)zilina(tec)net> - 06.2.2003 13:09:04
bez efektu jednoducho ak najde forward slash (/) zmeni to na bodku (podla
nastavenia
regialneho oddelovaca datumov). To na to v borlande nemysleli? Mam spravit
masku pre zadavanie cisla zmluvy a oni tam to tak pouzivaju. A myslim, ze
je to len chyba borlandu, pretoze
je to prerabane z accessu a tam / normalne pouzivaju.
On Thu, 6 Feb 2003 12:25:39 +0100, Burkovsky Ladislav
<Ladislav.Burkovsky(zv)autinform.de> wrote:
Skus uvodzovky
>
> Potrebujem zadavat masku s charakterom /, pretoze ale maskedit pouziva /
> ako
> oddelovac datumu, nie je mozne pouzit takto. V helpe sa pise aby sa pri
> roznych
> znakoch pouzil \znak, ale ani \/ nepomaha. neriesil to niekto???
--
--------------
vlko_(zv)pobox.sk
Komponenta Session ???
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 13:12:35
> Odes=EDlatel: Alex Bugala <bugala_a(zv)post.sk>
> moze mi prosim niekto vysvetlit, na co je komponenta Session a ako sa
> pouziva ????
Strucne:
V BDE je veskera komunikace s databazi (databazemi) realizovana pres =
objekt TSession.
To dokonce i tehdy, kdyz zadnou komponentu TSession explicitne =
nepouzijes.
Standardni (default) Session (promenna v unit DBTables) se totiz vytvari =
pri inicializaci unity.
K cemu to je - viz properties a metody TSession.
Kdy pouzit komponentu TSession explicitne?
Podle mne je jedinym duvodem multi-thredovy pristup k databazi.
Pres tu standardni Seesion muzeme pracovat pouze v hlavnim threadu.
Tedy pokud se nemylim...:-)
viz Zakladni kurz Delphi
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Zaokrouhlovani a verze OS
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 13:26:17
> Odes=EDlatel: Rumcajs-konfera <konfera(zv)rumcajs.com>
> Pouzivam nasledujici funkci: FloatToStrF(Table3Cp.Value, ffFixed, 3, =
3);
> Sloupec Table3Cp.Value je typu Float. Vse behalo OK, zakaznik ma ale =
Win95.
> Ty se upgradovaly balikem DCOM a od te doby se tahle funkce neprovede =
s
> hlaskou '' is not floating point. Setkal se s tim uz nekdo?
Field.Value je typu Variant.
Ja se tomuto typu vyhybam jako cert krizi, protoze nikdy nevim, cim me =
prekvapi.
Tedy pokud to jde.=20
Pokud to nejde, musim si dat pozor, abych k praci usedal dobre naladen. =
Jinak by hrozilo, ze pocitac roztriskam.=20
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Com + Win Service
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 6.2.2003 13:30:01
>
> Novy pozadavek zni: udelat ze serveru service, pri zachovani puvodni
> funkcnosti, tedy i DCOM komunikace. Nedari se mi to zprovoznit tak,
> aby si klient zavolal uz spustenou instanci, vzdy si pousti novou
> instanci.
>
Lze leccos prevest z klasicke aplikace na DCOM Service. Je tady nekolik
podminek, ktere je nutno dodrzet.
1. Do registru je nutne pridat nekolik klicu s patricnymi hodnotami.
2. Je nutne instalovat sluzbu a registrovat jako COM zvlast. tj. nedrive
*.exe -INSTALL a potom *.exe -REGSERVER
Dale je dobre vedet, ze toto reseni je sice funkcni, ale neni zcela idealni.
Zapredpokladu, ze se jedna o jediny COM objekt v ramci service je ovsem
dostatecny.
App.Exe:
ComServer.UIInteractive := False;
if FindSwitch('INSTALL') then begin
CreateRegKey('CLSID\' + GUIDToString(CLASS_MyCOMObject), 'AppID',
GUIDToString(CLASS_MyCOMObject)); //CLASS ID COM objektu
CreateRegKey('AppID\' + GUIDToString(CLASS_MyCOMObject), '', DCOMName);
//Symbolicke jmeno, muze byt zde cokoliv, toto se objevi v ramci DCOMcnfg
CreateRegKey('AppID\' + GUIDToString(CLASS_MyCOMObject), 'LocalService',
'MyCOMObject'); //Nazev sluzby, ktera je spojena s DCOM objektem
end else if FindSwitch('UNINSTALL') then begin
DeleteRegKey('CLSID\' + GUIDToString(CLASS_MyCOMObject));
DeleteRegKey('AppID\' + GUIDToString(CLASS_MyCOMObject));
end;
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TMyCOMObject, MyCOMObject);
SvcMgr.Application.Run;
impMyComObject.pas
initialization
{
Class factory nesmi byt vytvorena, dochazi-li k instalaci ci odinstalaci
sluzby
}
if not (FindSwitch('INSTALL') or FindSwitch('UNINSTALL') then
TAutoObjectFactory.Create(ComServer, impMyCOMObject.TMyCOMObject,
Class_MyCOMObject,
ciMultiInstance, tmApartment);
end.
Dale staci do aplikace doplnit modul typu TService jeho name urcuje "Nazev
sluzby, ktera je spojena s DCOM objektem"
To je snad tak vse, co je nutne vedet k uspesnemu zprovozneni.
V pripade nutnosti doladim.
Alexandr STEFEK
Nic nerobiaci prikaz
[*] Tom xXx <assas(zv)bonbon(tec)net> - 6.2.2003 13:37:49
> Nesta=E8ilo by pou=BE=EDt samostatn=FD st=F8edn=EDk? Asi takto:
>=20
> procedure Neco;
> begin
> ;
> end;
>=20
To bych si teda tipl, ze at strednik jeden, nebo milion stredniku,
vzdycky s tim nejspis uz lexikalni analyzator musi udelat jedinou vec
.... zahodit.
T.
Tisk stromu TreeView
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 6.2.2003 13:39:35
Pros=EDm o radu, jak nejl=E9pe vytisknout rozvinut=FD TreeView? Je na to =
n=ECjak=E1 komponenta nebo n=ECjak=FD rozmun=FD zp=F9sob?=20
D=EDky, Marek Dost=E1l
TComboBox.DropDownWidth
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 6.2.2003 13:42:47
Lze nastavit TComboBox tak, aby sirka seznamu v rozbalenem
stavu byla vetsi ? Ve WinAPI jsem podobnou vec delal pomoci
SetWindowPos v reakci na notifikaci CBN_DROPDOWN,
ale jak na to ve VCL ?
Diky
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
OT: Nic nerobiaci prikaz
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 6.2.2003 13:48:55
----- Original Message -----
From: "Jaroslav Bu�ek" <bucek(zv)eskon(tec)cz>
>Mozna jsem to nepochopil, ale nestacilo by ti nastavit vlastnosti
>breakpointu?
Nastaveni vlastnosti breakpointu znacne zpomaluji beh programu, coz nekdy
muze vadit (napr. pri dlouhych cyklech).
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
OT: Nic nerobiaci prikaz
[*] Vlastimil Bardo� <bardon(zv)akord-soft(tec)cz> - 6.2.2003 13:49:46
... ale na tohle pouzivam podmiku u breakpointu.
-----Original Message-----
From: =A9velta Jaroslav [mailto:jsvelta(zv)ciglersw.sk]
Sent: Thursday, February 06, 2003 12:03 PM
Napr. ak mas funkciu, ktora sa ti v programe vola napr. 1000x
a ty potrebujes otestovat jej funkcnost pre specificku sadu argumentov,
alebo premennych...
Ak si v nej das breakpoint tak sa asi zblaznis, kym sa dostanes
k potrebnej situacii...
Com + Win Service
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 13:50:53
Vim, Zbysku, ze nejses v tomto oboru zadnej zacatecnik :-)
Presto to zkusime predat V.Bodeckovi (kurz COM/DCOM)
Zkuste se nejak domluvit.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Com + Win Service
> Datum: 6. =FAnora 2003 10:53
>=20
> Ahoj,
>=20
> mam problem, ktery se mi nedari rozlousknout, prosim tedy o pomoc.
>=20
> Je program (server), ktery bezi na jednom pocitaci. Na jinem je=20
> spusten klient, ktery komunikuje se serverem pres DCOM. Server ma=20
> ikonku napravo v pruhu uloh.
>=20
> Novy pozadavek zni: udelat ze serveru service, pri zachovani puvodni=20
> funkcnosti, tedy i DCOM komunikace. Nedari se mi to zprovoznit tak,=20
> aby si klient zavolal uz spustenou instanci, vzdy si pousti novou=20
> instanci.
>=20
> Je to placena zakazka, pokud to nekdo umi, milerad mu to prenecham.=20
> Termin do konce unora, vcetne osetreni chyb a jejich logovani do=20
> databaze (to je trivialita, prostredi je na to uz pripravene).
>=20
> S pozdravem
>=20
> Zbysek Hlinka
>
>
Zaokrouhlovani a verze OS
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 6.2.2003 13:51:55
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Field.Value je typu Variant.
> Ja se tomuto typu vyhybam jako cert krizi,
> protoze nikdy nevim, cim me prekvapi.
Naprosto s Tebou souhlasim - variant se hodi jen pro pomerne malou tridu
aplikaci - jinak je to cesta do pekel, protoze ztracis kontrolu nad vlastnim
programem.
Minuly tyden jsem napr. zjistil, ze mi ADO mrsi BLOBy a kdyz jsem to hledal,
tak jsem trasovanim ADO objevil, ze pokud se do parametru strci blob ve
forme ANSIStringu, tak ho v metode TParameter.SetValue() spravne prevedou na
VarArray, ale pokud tu hodnotu prectu zpatky, tak dostanu zmrseninu, protoze
v metode GetValue() obracenou konverzi neudelali a vlivem neznameho VarType
to spadne do default OS konverze, ktera z toho vyprasi jednoduse wide string
:-((
A kolik to stalo casu a nervu, nez jsem na to prisel.
Bye, pf
chyba externiho DLL
[*] J�n Kuch�r - 6.2.2003 13:54:40
caute,
v aplikaci pouzivam jednu knihovnu od jineho autora, kdyz v te knihovne
dojde k vyjimce zobrazi se okno s chybovou hlaskou ( kterou dokazu odchytit
i ja ) a moje aplikace zustane stat na miste dokud uzivatel nepotvrdi tu
chybovou hlasku, otazka zni da se nejakym zpusobem zakazat te knihovne
zobrazovni techto hlasek ?
dik
Forward slash (/) v maskedit
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 13:54:02
> Odes=EDlatel: Vlko II. <vlko(zv)zilina.net>
> Potrebujem zadavat masku s charakterom /, pretoze ale maskedit pouziva =
/=20
> ako
> oddelovac datumu, nie je mozne pouzit takto. V helpe sa pise aby sa =
pri=20
> roznych
> znakoch pouzil \znak, ale ani \/ nepomaha. neriesil to niekto???
No, ja jsem MaskEdit zahodil uz v Delphi 1.
Pak mi spravnost meho rozhodnuti neprimo potvrdila i tato konference...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Borland IDE pro .NET bude ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 13:58:35
From: "Burkovsky Ladislav" <Ladislav.Burkovsky(zv)autinform.de>
> V utorok a stredu som bol na dot.net konferencii vo Franfurkte a videl som
> ten Sidewinder. Je to velmi podobne Visual studiu. Pre delphistov bude
Takze s koupi Visual Studia tedy jeste pockat ? :-)
> len plug-in do prostredia. Podla toho co vyprodukoval Keynotespeaker
Patrne jako pro ostatni jazyky, pokud je filozofie podobna s VS.NET
> (za 20 minut asi 2 vety o delphi) delphi nie je ziadna priorita. Bude to v
> prvom rade pre C#. Dobra sprava bude Delphi 8.
To je vcelku logicke, takove prostredi pak bude asi hostovat jakyoli jazyk a
Delphi .NET prekladac zatim nevypada uplne hotove. Koneckoncu C# neni spatny.
Petr Vones
VirtualProtect a PResStringRec
[*] Milan Ruksak <ruksak(zv)volny(tec)cz> - 6.2.2003 14:06:10
Zdravim,
udelal jsem si programek na zamenu retezcu. V pohode 14 dni fungoval a
najednou vyhazuje chybu
"Access violation at address .... " !?
VirtualProtect((zv)SMsgDlgYes, sizeof(PResStringRec),
PAGE_EXECUTE_READWRITE,(zv)OldProtect);
PResStringRec((zv)SMsgDlgYes).Identifier :=
PResStringRec((zv)SMsgDlgYesNew).Identifier; {na tomhle radu ---> hodnoty 65352
a 65159}
VirtualProtect((zv)SMsgDlgYes, sizeof(PResStringRec), OldProtect, (zv)OldProtect);
Mam Delphi 6 a Windows XP
Nevite nekdo, co s tim ?
Diky, Rooksy
OT: Nic nerobiaci prikaz
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 14:08:07
> > Treba Sleep(1) - nic neudela a pocka 1 ms
> Odes=EDlatel: Lukas Gebauer <gebylist(zv)mlp(tec)cz>
> Coz neni pravda... pocka MINIMALNE 1ms... ;-)
A navic nejak prerusi (pozastavi - hledam vhodne slovo) beh prislusneho =
threadu.=20
To dokonce i Sleep(0), pokud vim.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
IPC (InterProcess Communication)
[*] Pavel Cab�k <cabak(zv)cross(tec)cz> - 6.2.2003 14:09:31
Potrebuji prenaset vlastni data ze serveru do klienta. Jake cislo portu =
muzu
pouzit pro spojeni klienta se serverem? Seznam=20
vyhrazenych portu jsem nasel. U nekterych ale vubec netusim k prenosu =
ceho
jsou dobre?
Pavel CAB=C1K
cabak(zv)cross(tec)cz
>> From: "Pavel Cab=E1k" <cabak(zv)cross(tec)cz>
>> > daji se NamedPipe a MailSlots pouzit i pro vzdalene=20
>> pripojeni pocitacu
>> > (napr. telefonickym pripojenim) nebo to je jen pro=20
>> zalezitost lokalni site?
>=20
> Pri pouziti telefonickeho pripojeni pouzij radsi TCP/IP.
>=20
> Petr Vones
nasledne povoleni restartu Windows
[*] Ing. Pavel Spisar <pajastudio(zv)wo(tec)cz> - 6.2.2003 14:11:48
Prosim o pomoc s nasledujicim problemem:
Jak lze nasledne povolit nebo provest restart, ci vypnuti Windows,
kdy jej predtim pri odchyceni zpravy WM_QUERYENDSESSION
zakazi? Asi bych potreboval zjistit parametry pro proceduru ExitWindows,
nebo ExitWindowsEx
Dokaze mi nekdo poradit?
Diky Pavel
TComboBox.DropDownWidth
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 14:13:08
> Odes=EDlatel: Daniel Rott <roxton(zv)seznam(tec)cz>
> Lze nastavit TComboBox tak, aby sirka seznamu v rozbalenem
> stavu byla vetsi ? Ve WinAPI jsem podobnou vec delal pomoci
> SetWindowPos v reakci na notifikaci CBN_DROPDOWN,
> ale jak na to ve VCL ?
Z hlavy nevim, jestli to umi kazdy "combo",=20
ale TDBLookupComboBox ma urcite DropDownWidth.
Jan Sebelik
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TComboBox.DropDownWidth
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.2.2003 14:15:21
Treba ComboBox.Perform(CB_SETDROPPEDWIDTH, 150, 0);
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.2.2003 Daniel Rott:
> Lze nastavit TComboBox tak, aby sirka seznamu v rozbalenem
> stavu byla vetsi ? Ve WinAPI jsem podobnou vec delal pomoci
> SetWindowPos v reakci na notifikaci CBN_DROPDOWN,
> ale jak na to ve VCL ?
Zaokrouhlovani a verze OS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 14:23:41
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> Naprosto s Tebou souhlasim - variant se hodi jen pro pomerne malou tridu
> aplikaci - jinak je to cesta do pekel, protoze ztracis kontrolu nad vlastnim
> programem.
Hlavnim problemem je ponechani implicitni konverze Variantu na nejaky jiny typ
kde pak vznikaji ruzne nezadouci jevy. Pokud prevadim Variant na neco jineho
(predevsim string) je bezpecnejsi radsi pouzit nejakou funkci typu VarToXXX.
Samozrejme uplne nejlepsi je Varianty pokud mozno vubec nepouzivat :-)
Petr Vones
OT: Nic nerobiaci prikaz
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 06.2.2003 14:40:24
> > > Treba Sleep(1) - nic neudela a pocka 1 ms
> > Coz neni pravda... pocka MINIMALNE 1ms... ;-)
> A navic nejak prerusi (pozastavi - hledam vhodne slovo) beh
> prislusneho threadu. To dokonce i Sleep(0), pokud vim.
Pochopitelne.. to je to 'pockani'.
pri Sleep se volany thread vzda zbytku prideleneho strojoveho casu, a
dalsi strojovy cas mu muze byt prideleny nejdrive po uplynuti
pozadovaneho casu.
kdy to vsak nastane zavisi na tom, kolik casu si mezitim budou zadat
thready na vysich prioritach i na stejnych prioritach.
Sleep(0) zpusobi, ze se ihned vzdas strojoveho casu a system se
pokusi prodelit ti strojovy cas pri prvni dalsi prilezitosti. Ovsem
pri volani tohoto rozhodne nemaji sanci dostat strojovy cas thready
bezici na nizsi priorite.
Ty maji sanci az pri volani sleep(1) a vyse.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
chyba externiho DLL
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 6.2.2003 14:59:05
Podle me to nepujde. Je to dost nestastne resena knihovna. Obvykle se vra=
ci
chybovy kod do volajici aplikace a nevola se zadne chybove hlaseni.
Popripade by tam mela byt nejaka moznost vypnuti zobrazovani techto hlase=
k.
Ahoj Jarda
----- Original Message -----
From: "J=E1n Kuch=E1r" <kuchar(zv)unicodesys(tec)cz>
Sent: Thursday, February 06, 2003 1:54 PM
Subject: chyba externiho DLL
> caute,
>
> v aplikaci pouzivam jednu knihovnu od jineho autora, kdyz v te knihovne
> dojde k vyjimce zobrazi se okno s chybovou hlaskou ( kterou dokazu
odchytit
> i ja ) a moje aplikace zustane stat na miste dokud uzivatel nepotvrdi t=
u
> chybovou hlasku, otazka zni da se nejakym zpusobem zakazat te knihovne
> zobrazovni techto hlasek ?
>
TCP IP prenos
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 6.2.2003 15:18:19
Servus,
jeste jednou se vratim k prenosu po TCP IP;
prenos z portu na server sem uz vyresil, ale ma to jeden hacek, obcas
potebuju, aby server zaslal urcite informace na client, anizch by o ne
client musel zadat, coz predpokladam nelze. Zeptam se tedy takto, jak bys=
te
vyresili obousmernou komunikaci po TCP IP, tzn tak aby jeden pocitac mohl
zasilat prikazy pro druhy pocitac bez predchoziho dotazu?
Lukas "Rumcajs" Weiss
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Forward slash (/) v maskedit
[*] Vlko II. <vlko(zv)zilina(tec)net> - 06.2.2003 15:33:00
No mozno sa to niekomu raz hodi, ked mi nikto neporadil a to lomitko sa tam
neda
vobec vlozit, tak som to urobil takto:
Maska mala vyzerat takto: '0000\/00\/cccccccccccc',
kedze lomitko bralo ako bodku zmenil som ju na
masku: '0000C00Ccccccccccccc'
no a potom som do TDBEditu vlozil:
procedure TZmluva.eCisloChange(Sender: TObject);
begin
//ak je field prazdny, tak ho napln
if (sender as tdbedit).Field.AsString='' then
(sender as tdbedit).Field.AsString:='0000/00/';
end;
procedure TZmluva.eCisloKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//aby nenastala zmena lomitka, za ziadnych okolnosti:)
if (sender as tdbedit).SelText='/' then
begin
(sender as tdbedit).selstart:=(sender as tdbedit).selstart+1;
key:=0;
end
end;
procedure TZmluva.eCisloKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//ak je pozicia pred lomitkom tak skoc za lomitko
if ((sender as tdbedit).selstart=4) or ((sender as tdbedit).selstart=7)
then (sender as tdbedit).selstart:=(sender as tdbedit).selstart+1;
end;
aj ked to vyzera blbo:). Mozno sa to raz niekomu zide.
On Wed, 05 Feb 2003 17:00:47 +0100, Vlko II. <vlko(zv)zilina.net> wrote:
> No vcera som sa to pytal, ale nejako nikto nereagoval, tak to skusim
> znova a potom sa uz musim zariadit nejako sam:)
>
> Potrebujem zadavat masku s charakterom /, pretoze ale maskedit pouziva /
> ako
> oddelovac datumu, nie je mozne pouzit takto. V helpe sa pise aby sa pri
> roznych
> znakoch pouzil \znak, ale ani \/ nepomaha. neriesil to niekto???
>
> Vlko
>
--
--------------
vlko_(zv)pobox.sk
sqlite a dbExpress
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 06.2.2003 15:49:31
Dobry den,
zacinam s Delphi a zkousim se pripojit k SQLite databazi pomoci
dbExpress. Potreboval bych ale poradit. Ctu knihu Myslime v jazyku
Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=True.
Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky
ani sloupce. Pokud dotaz zapisu rucne, a dam Active=True, tak to pise:
Invalid field size. Nevite co s tim?
diky moc
Michal Aichinger
TCP IP prenos
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 6.2.2003 16:02:47
Prosim o radu, ktera z uvedenych dvou moznosti bude rychlejsi v pripade, =
ze soubor nebude existovat? Zkusit LoadFromFile, nebo otestovat =
existenci souboru?
prvni varianta :
try =20
bitmap.LoadFromFile('xxx.bmp')
except
bitmap.LoadFormResource...
druha varianta:
if FileExists('xxxx.bmp') then
bitmap.LoadFromFile('xxx.bmp')
else
bitmap.LoadFormResource...
=20
TCP IP prenos
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 16:05:17
From: "Marek Dost�l" <dostal(zv)agnis(tec)cz>
> Prosim o radu, ktera z uvedenych dvou moznosti bude rychlejsi v pripade, ze
> soubor nebude existovat? Zkusit LoadFromFile, nebo otestovat existenci
> souboru?
Samozrejme ta druha, nicmene i tak ti muze vzniknout vyjimka v te metode,
protoze soubor sice muze existovat, ale muze mit spatny format apod.
Petr Vones
Zebedee vs. FireBird
[*] Roland Turcan <rotursoft(zv)post.sk> - 06.2.2003 16:20:15
Hello Delphi CZ konferencia!
Hral sa uz niekto so %subj%. Ake ste mali skusenosti,...
--
Best regards, TRoland
Re[2]: TCP IP prenos
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 6.2.2003 16:20:38
Rozhodne pouzij druhou variantu, nevim jestli je rychlejsi ale
rozhodne cistsi.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Thursday, February 6, 2003, 4:02:47 PM, you wrote:
MD> Prosim o radu, ktera z uvedenych dvou moznosti bude rychlejsi v pripade, ze soubor nebude existovat? Zkusit LoadFromFile, nebo otestovat existenci souboru?
MD> prvni varianta :
MD> try
MD> bitmap.LoadFromFile('xxx.bmp')
MD> except
MD> bitmap.LoadFormResource...
MD> druha varianta:
MD> if FileExists('xxxx.bmp') then
MD> bitmap.LoadFromFile('xxx.bmp')
MD> else
MD> bitmap.LoadFormResource...
TCP IP prenos
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.2.2003 16:21:45
>jeste jednou se vratim k prenosu po TCP IP;
>prenos z portu na server sem uz vyresil, ale ma to jeden hacek, obcas
>potebuju, aby server zaslal urcite informace na client, anizch by o
ne
>client musel zadat, coz predpokladam nelze. Zeptam se tedy takto, jak
byste
>vyresili obousmernou komunikaci po TCP IP, tzn tak aby jeden pocitac
mohl
>zasilat prikazy pro druhy pocitac bez predchoziho dotazu?
bud prenos budes uskutecnovat po blocich, kazdy blok ponese informace
o typu bloku, pak muzes prenaset blok typu 'data ze seriovky' a blok
typu 'povel xy'.
Pripadne muzes realizovat soubezne dalsi TCP/IP spojeni a posilat
informace po nem
D. Toman
Co je rychlejsi
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 6.2.2003 16:23:22
Omlouvam se za spatny subject a posilam tedy dotaz jeste jednou:
Prosim o radu, ktera z uvedenych dvou moznosti bude rychlejsi v pripade, =
ze soubor nebude existovat? Zkusit LoadFromFile, nebo otestovat =
existenci souboru?
prvni varianta :
try =20
bitmap.LoadFromFile('xxx.bmp')
except
bitmap.LoadFormResource...
druha varianta:
if FileExists('xxxx.bmp') then
bitmap.LoadFromFile('xxx.bmp')
else
bitmap.LoadFormResource...
=20
nasledne povoleni restartu Windows
[*] Marek Spisak <spishark(zv)post(tec)cz> - 06.2.2003 16:46:57
Ahoj
> Jak lze nasledne povolit nebo provest restart, ci vypnuti Windows,
> kdy jej predtim pri odchyceni zpravy WM_QUERYENDSESSION
> zakazi? Asi bych potreboval zjistit parametry pro proceduru ExitWindows,
> nebo ExitWindowsEx
> Dokaze mi nekdo poradit?
> Diky Pavel
ExitWindowsEx(EWX_POWEROFF + EWX_FORCE, 0);
ale je to trosku drsarna :-), zalezi na co to potrebujes.
EWX_LOGOFF
EWX_POWEROFF
EWX_REBOOT
EWX_FORCE
EWX_SHUTDOWN
jsou dalsi hodnoty parametru fcd ExitWindowsEx.
Marek
Forward slash (/) v maskedit
[*] Vlko II. <vlko(zv)zilina(tec)net> - 06.2.2003 16:49:03
No ale ja to pouzivam pri standardnych databazovych komponentoch pri
editmask.
vyriesil som to nasledujuco
Maska mala vyzerat takto: '0000\/00\/cccccccccccc',
kedze lomitko bralo ako bodku zmenil som ju na
masku: '0000C00Ccccccccccccc'
no a potom som do TDBEditu vlozil:
procedure TZmluva.eCisloChange(Sender: TObject);
begin
//ak je field prazdny, tak ho napln
if (sender as tdbedit).Field.AsString='' then
(sender as tdbedit).Field.AsString:='0000/00/';
end;
�
procedure TZmluva.eCisloKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//aby nenastala zmena lomitka, za ziadnych okolnosti:)
if (sender as tdbedit).SelText='/' then
begin
(sender as tdbedit).selstart:=(sender as tdbedit).selstart+1;
key:=0;
end
end;
�
procedure TZmluva.eCisloKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//ak je pozicia pred lomitkom tak skoc za lomitko
if ((sender as tdbedit).selstart=4) or ((sender as tdbedit).selstart=7)
then (sender as tdbedit).selstart:=(sender as tdbedit).selstart+1;
end;
�
aj ked to vyzera blbo:). Mozno sa to raz niekomu zide.
On Thu, 6 Feb 2003 13:54:02 +0100, Jan Sebel�k <honza(zv)haes(tec)cz> wrote:
>> Odes�latel: Vlko II. <vlko(zv)zilina.net>
>> Potrebujem zadavat masku s charakterom /, pretoze ale maskedit pouziva /
>> ako
>> oddelovac datumu, nie je mozne pouzit takto. V helpe sa pise aby sa pri
>> roznych
>> znakoch pouzil \znak, ale ani \/ nepomaha. neriesil to niekto???
>
> No, ja jsem MaskEdit zahodil uz v Delphi 1.
> Pak mi spravnost meho rozhodnuti neprimo potvrdila i tato konference...
>
> Honza
> =========================================
> = HAES - RNDr. Jan Sebelik
> = http://www.haes(tec)cz
> = Skolici a konzultacni stredisko pro Delphi a Win32
> = Vojtiskova 206
> = 507 81 Lazne Belohrad
> = tel. 493 792 931 (mobil 776 347735)
> =========================================
>
>
--
--------------
vlko_(zv)pobox.sk
Zaokrouhlovani a verze OS
[*] Marek Spisak <spishark(zv)post(tec)cz> - 06.2.2003 16:53:57
> From: "Petr Fejfar" <development(zv)callnet(tec)cz>
>
>>Naprosto s Tebou souhlasim - variant se hodi jen pro pomerne malou tridu
>>aplikaci - jinak je to cesta do pekel, protoze ztracis kontrolu nad vlastnim
>>programem.
>
>
> Hlavnim problemem je ponechani implicitni konverze Variantu na nejaky jiny typ
> kde pak vznikaji ruzne nezadouci jevy. Pokud prevadim Variant na neco jineho
> (predevsim string) je bezpecnejsi radsi pouzit nejakou funkci typu VarToXXX.
> Samozrejme uplne nejlepsi je Varianty pokud mozno vubec nepouzivat :-)
>
Z nutnosti jsem pouzival Varianty, kdyz jsem potreboval volat funkce z
dll napsaneho ve Visual C++ a to jak z Builderu, tak i z Delphi. Predat
to do funkce slo jeste jaks-taks, ale vysekat z parametru a navratovych
hodnot rozumny vysledek, to uz bylo dilo. Hrozna prace. Don't like
variant :-((
Marek
Zaokrouhlovani a verze OS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.2.2003 16:57:45
From: "Marek Spisak" <spishark(zv)post(tec)cz>
> Z nutnosti jsem pouzival Varianty, kdyz jsem potreboval volat funkce z
> dll napsaneho ve Visual C++ a to jak z Builderu, tak i z Delphi. Predat
K tomu ale prece neni vubec nutne pouzivat varianty. Z obou prostredi muzes
pouzit normalni typy parametru.
Petr Vones
sqlite a dbExpress
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.2.2003 17:17:26
> Odes=EDlatel: Michal Aichinger <michal.aichinger(zv)talk21.com>
> Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=3DTrue.=20
> Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz=20
> dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi=20
> se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky=20
> ani sloupce. Pokud dotaz zapisu rucne, a dam Active=3DTrue, tak to =
pise:=20
> Invalid field size. Nevite co s tim?
No, mozna jsem prilis velky puritan, ale ja bych misto=20
TSQLClientDataSet
pouzil radsi kombinaci
TSQLDataSet+TDataSetProvider+TClientDataSet.
Snad by se mi zuzil prostor pro hledani chyby.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TGIFImage ^
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 6.2.2003 19:48:49
Nazdar,
vcera jsem se dotazoval na zoom obrazku a ukladani do JPG/GIF. Za ten den
jsem prisel na zoom pomoci CopyRect, na to ze v Delphi 6 je implicitne unita
JPG resici vse, ale GIF mi nejak nejde.
Nasel jsem TGIFImage pro Delphi 5, ale urcite pujde narvat i pod 6. Ale mam
uz ponekolikate tento zacatnicky problem - mam nekoluk *.dcu, hodim je do
packu, a at se snazim jak to jde, nenainstaluje to bez *.pas. Neni to
poprve. Kde se to da vypnout ci nemate nekdo k TGIFImage vsechny "paska"
(GIFImage.pas+GIFReg.pas+TimerEx.pas). Dik DKx
TCP IP prenos
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 6.2.2003 21:09:48
> jak byste vyresili obousmernou komunikaci po TCP IP,
> tzn tak aby jeden pocitac mohl zasilat prikazy pro druhy
> pocitac bez predchoziho dotazu?
Vsetko je len otazka terminologie. Pocitac, ktory posiela poziadavky
(dotazy) sa nazyva klient a ten, ktory ich ocakava a plni, sa nazyva
server. Ktorykolvek pocitac moze byt sucasne klientom i serverom,
potom to mas 'obojsmerne'.
Aby sa to managerom neplietlo, vymysleli mudri pani slovo 'agent' - to
je kryci nazov serverovskeho procesu nastartovaneho na 'klientskom'
pocitaci.
A clovek sa lisi od zvierata tym, ze ma lytko.
bye
vmlich
Komponenta Session ???
[*] D <bugala_a(zv)inmail.sk> - 6.2.2003 23:52:51
Dobry den,
moze mi prosim niekto vysvetlit, na co je komponenta Session a ako sa
pouziva ????
Dakujem,
Alex
Win2000 Cz Prof, SP2, Delphi 3 Client/Server Suite
--------------------------------------------------------------------
Alex Bugala - stredoskolak
----------
Teraz si uz KAZDY moze registrovat svoju domenu .SK
Viac info na: http://www.SlovakNET.sk/predregistracia.asp
Zebedee vs. FireBird
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 7.2.2003 06:50:17
Jo
funguje to urcite rychleji (pokud prenasite vice dat a mate zapnutou
kompresi). My mame napr. FB na linux serveru (pro tvorbu dynamickych www
stranek z dat ve FB) nekde v praze a databazi aktualizujeme pres
internet. Nacitani dat je podstatne rychlejsi.
Milos Sula
-----Original Message-----
From: Roland Turcan [mailto:rotursoft(zv)post.sk]=20
Sent: Thursday, February 06, 2003 4:20 PM
To: Delphi CZ konferencia
Subject: Zebedee vs. FireBird
Hello Delphi CZ konferencia!
Hral sa uz niekto so %subj%. Ake ste mali skusenosti,...
--=20
Best regards, TRoland
Zaokrouhlovani a verze OS
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 7.2.2003 06:58:37
Mam-li se tedy Variantum vyhnoout, jak=FD m=E1m pouzivat typ pro desetinn=
e
cislo?
Lukas "Rumcajs" Weiss
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Co je rychlejsi
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 07.2.2003 07:10:34
> Prosim o radu, ktera z uvedenych dvou moznosti bude rychlejsi v
> pripade, ze soubor nebude existovat? Zkusit LoadFromFile, nebo
> otestovat existenci souboru?
>
> prvni varianta :
> try
> bitmap.LoadFromFile('xxx.bmp')
> except
> bitmap.LoadFormResource...
>
>
> druha varianta:
>
> if FileExists('xxxx.bmp') then
> bitmap.LoadFromFile('xxx.bmp')
> else
> bitmap.LoadFormResource...
>
Ahoj,
ja sice nevim, co je rychlejsi, ale:
1) Druhy postup je cistsi, prvni bych povazaoval za prasarnu. Jak tady zduraznuje
stale Petr Vones, vyjimky by se nemely pouzivat timto zpusobem.
2) V kazdem pripade by nemel byt problem si to zmerit. Pred a za kazdou konstrukci
si dej GetTickCount, rozdil bude udavat dobu trvani v nejakych jednotkach. Traba se
to bude dostatecne verohodne lisit.
David Lebeda
Co je rychlejsi
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 7.2.2003 07:52:28
Z hlediska cistoty kodu by try melo sve opodstatneni i v druhe variante, =
napr. pokud by xxx.bmp bylo otevreno exkluzivne jinym procesem.
Ober
Zebedee vs. FireBird
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 7.2.2003 08:28:39
----- Original Message -----
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
> Jo
> funguje to urcite rychleji (pokud prenasite vice dat a mate zapnutou
> kompresi). My mame napr. FB na linux serveru (pro tvorbu dynamickych www
> stranek z dat ve FB) nekde v praze a databazi aktualizujeme pres
> internet. Nacitani dat je podstatne rychlejsi.
Mozes to popisat blizsie? Co je to "urcite rychleji"? Aspon o 75%?
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Zebedee vs. FireBird
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.2.2003 08:37:18
> > funguje to urcite rychleji (pokud prenasite vice dat a mate zapnutou
> > kompresi). My mame napr. FB na linux serveru (pro tvorbu dynamickych
> > www stranek z dat ve FB) nekde v praze a databazi aktualizujeme pres
> > internet. Nacitani dat je podstatne rychlejsi.
> Mozes to popisat blizsie? Co je to "urcite rychleji"? Aspon o 75%?
No, treba u nasich IB apliakci pouzivame kompresi dat na urovni
datove linky. Honime pres to normalni SQL provoz, a dlouhodoba
komprese cini 3.5:1, coz je velmi slusne.
Ostatne kdyz si zachytis packety interbaziho protokolu, tak zjistis,
ze packety jsou vystlany prazdnymi misty, az je to nechutne...
Chtel jsem se optat, FB pouziva jen a jen protokol kompatibilni s IB,
nebo jej lze donutit k nejakemu lepsimu komunikacnimu protokolu?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Zaokrouhlovani a verze OS
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 07.2.2003 08:59:45
To me zajima. Jak jsi tedy vyresil tu praci s BLOBy?
>
> Minuly tyden jsem napr. zjistil, ze mi ADO mrsi BLOBy a kdyz jsem to hledal,
> tak jsem trasovanim ADO objevil, ze pokud se do parametru strci blob ve
> forme ANSIStringu, tak ho v metode TParameter.SetValue() spravne prevedou na
> VarArray, ale pokud tu hodnotu prectu zpatky, tak dostanu zmrseninu, protoze
> v metode GetValue() obracenou konverzi neudelali a vlivem neznameho VarType
> to spadne do default OS konverze, ktera z toho vyprasi jednoduse wide string
> :-((
>
> A kolik to stalo casu a nervu, nez jsem na to prisel.
>
> Bye, pf
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Tisk stromu TreeView
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 7.2.2003 09:01:13
> -----Original Message-----
> Behalf Of Marek Dost�l
> Sent: Thursday, February 06, 2003 1:40 PM
>
> Pros�m o radu, jak nejl�pe vytisknout rozvinut� TreeView? Je na
> to n�jak� komponenta nebo n�jak� rozmun� zp�sob?
>
> D�ky, Marek Dost�l
Ahoj!
Vetsina komponent typu TreeView me metodu SaveToFile. Vysledkem je textovy
soubor, ve kterem jsou jednotlive node na jednotlivych radcich a posunute
tabelatory, takze soubor vypada jako kompletne rozbaleny strom. Zkus to pres
tento soubor.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov� b�ze: 251 - datum vyd�n�: 27.1.2003
Shutdown XP
[*] <kuba.zubaty(zv)centrum(tec)cz> - 07.2.2003 09:14:22
Ahoj, potreboval bych vypnout WinXP, ale procedura ExitWindowsEx
(EWX_SHUTDOWN,0);nefunguje. Kde je chyba?
Diky Kuba
--------------------
Poslouchejte Radio Impuls a vyhrajte v=EDkendy pro dva v evropsk=FDch
metropol=EDch. V=EDce na Radiu Impuls a http://www.netimpuls(tec)cz!Shutdown XP
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 7.2.2003 09:18:13
Ahoj
toto nejaka dobra dusa hodila do konfery tak Ti to posielam
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function MyExitWindows(RebootParam: Longword): Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.MyExitWindows(RebootParam: Longword): Boolean;
var TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
//univerzalny ovladac pre rozne druhy vypinania Windows
if Win32Platform=VER_PLATFORM_WIN32_NT then
begin
//nastavenie pristupovych prav vo WinNT a Win2000
tpResult:=OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd);
if tpResult then
begin
tpResult:=LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount:=1;
TTokenPvg.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
cbtpPrevious:=SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg,
cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
end;
end;
//samotne zresetovanie alebo vypnutie (podla parametra)
Result:=ExitWindowsEx(RebootParam, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;
end.************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: <kuba.zubaty(zv)centrum(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 07, 2003 9:14 AM
Subject: Shutdown XP
Ahoj, potreboval bych vypnout WinXP, ale procedura ExitWindowsEx
(EWX_SHUTDOWN,0);nefunguje. Kde je chyba?
Diky Kuba
--------------------
Poslouchejte Radio Impuls a vyhrajte v�kendy pro dva v evropsk�ch
metropol�ch. V�ce na Radiu Impuls a http://www.netimpuls(tec)cz!
Tisk stromu TreeView
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 7.2.2003 09:28:14
Ano, ale problem je v tom, ze se mi nechce psat nejaky slozity tisk, =
ktery mi bude vykreslovat spojovac=ED cary mezi uzly atd. Zatim to mam =
tak, ze jsem vysledek natahl do RichEditu, uzly jsem pospojoval pomoci =
znaku plus, pomlcka, svislitko, ale nevypada to uplne dobre. Takze muj =
problem by vyresilo i to, kdybych dokazal v RichEditu pouzit graficke =
znaky pro roh, rovnou caru, svislou caru. Zmenou fontu to nejde a udelat =
zmenu char setu jen pro oznacenou cast textu se mi take nepodarilo.=20
Budu vdecny za kazdou radu.
Diky, Marek Dostal
> > Pros=EDm o radu, jak nejl=E9pe vytisknout rozvinut=FD TreeView? Je =
na
> > to n=ECjak=E1 komponenta nebo n=ECjak=FD rozmun=FD zp=F9sob?
>=20
> Vetsina komponent typu TreeView me metodu SaveToFile. Vysledkem je =
textovy
> soubor, ve kterem jsou jednotlive node na jednotlivych radcich a =
posunute
> tabelatory, takze soubor vypada jako kompletne rozbaleny strom. Zkus =
to pres
> tento soubor.
Shutdown XP
[*] <js-delphi(zv)quick(tec)cz> - 07.2.2003 09:34:30
Ahoj, potreboval bych vypnout WinXP, ale
procedura ExitWindowsEx
(EWX_SHUTDOWN,0);nefunguje. Kde je chyba?
Diky Kuba
Ahoj,
u WinNt byl problem v tom, ze jsi musel pred
restartem nebo vypnutim systemu nastavit patricna
privilegia.
Pokud se mnou budes souhlasit, mrkni do archivu
konfery, urcite tam pod heslem "privilege" nebo
podobne urcite neco najdes.
Ahoj
Jirka
--------------------------------------------------
--
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Zaokrouhlovani a verze OS
[*] Marek Spisak <spishark(zv)post(tec)cz> - 07.2.2003 09:35:34
Petr Vones wrote:
> From: "Marek Spisak" <spishark(zv)post(tec)cz>
>
>>Z nutnosti jsem pouzival Varianty, kdyz jsem potreboval volat funkce z
>>dll napsaneho ve Visual C++ a to jak z Builderu, tak i z Delphi. Predat
>
>
> K tomu ale prece neni vubec nutne pouzivat varianty. Z obou prostredi muzes
> pouzit normalni typy parametru.
>
> Petr Vones
Mas naprostou pravdu, ale to byly fce, ktere vyzadovaly Varianty v
parametrech a navic s nimi nebylo (dle meho nazoru) zcela korektne
nakladano. Pokud ma funkce v parametrech napr. Integery nebo PChar, neni
nutno vytvaret potencionalni problemy diky Variantum, staci si dat pozor
na spravne Calling convetions.
Marek
Validace cisla uctu
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 7.2.2003 10:02:24
Na overeni spravnosti cisla uctu (bankovniho) existuje nejaky =
algoritmus. Neznate ho nekdo. D=EDky.
S pozdravem Vaclav Riha
Tisk stromu TreeView
[*] <js-delphi(zv)quick(tec)cz> - 07.2.2003 10:13:58
A neslo by si vygenerovat pomocny form rozmeru =
rozbaleneho stromu=2C nemusel by bytt mozna ani =
videt a pomoci metody print a clipboardu ziskat =
bitmapu=2C kterou si muzes dat kamkoliv=3F
Je to jen uvaha =2E=2E=2E
--------------------------------------------------
--
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Marek Dost=E1l =3Cdostal=40agnis=2Ecz=3E
Datum=3A p=E1tek=2C 7=2E =FAnora 2003 v 9=3A28 dop=2E
P=F8edm=ECt=3A Re=3A Tisk stromu TreeView
=3E Ano=2C ale problem je v tom=2C ze se mi nechce =
=3E psat nejaky slozity tisk=2C ktery mi bude =
=3E vykreslovat spojovac=ED cary mezi uzly atd=2E =
=3E Zatim to mam tak=2C ze jsem vysledek natahl do =
=3E RichEditu=2C uzly jsem pospojoval pomoci znaku =
=3E plus=2C pomlcka=2C svislitko=2C ale nevypada to =
=3E uplne dobre=2E Takze muj problem by vyresilo i =
=3E to=2C kdybych dokazal v RichEditu pouzit =
=3E graficke znaky pro roh=2C rovnou caru=2C svislou =
=3E caru=2E Zmenou fontu to nejde a udelat zmenu =
=3E char setu jen pro oznacenou cast textu se mi =
=3E take nepodarilo=2E =
=3E Budu vdecny za kazdou radu=2E
=3E =
=3E Diky=2C Marek Dostal
=3E =
=3E =3E =3E Pros=EDm o radu=2C jak nejl=E9pe vytisknout =
=3E rozvinut=FD TreeView=3F Je na
=3E =3E =3E to n=ECjak=E1 komponenta nebo n=ECjak=FD rozmun=FD =
=3E zp=F9sob=3F=3E =
=3E =3E Vetsina komponent typu TreeView me metodu =
=3E SaveToFile=2E Vysledkem je textovy
=3E =3E soubor=2C ve kterem jsou jednotlive node na =
=3E jednotlivych radcich a posunute
=3E =3E tabelatory=2C takze soubor vypada jako =
=3E kompletne rozbaleny strom=2E Zkus to pres
=3E =3E tento soubor=2E
=3E =
=3E =
=3E
TGIFImage
[*] <js-delphi(zv)quick(tec)cz> - 07.2.2003 10:15:45
Ahoj=2E
O TGIFimage uz tady bylo napsano doecla dost=2E =
Stejne tak i o tom=2C ze *=2Edcu z jednotlivych verzi =
delphi nejsou mezi sebou kompatibilni=2E
K tomu=2C abys nasel i zdrojaky TGIFImage se zkus =
mrknout do archivu konference=2E Vim=2C ze posledni =
aktualni verzi jsem nasel na strankach projectu =
JEDI (P=2E Vones by ti okamzite rekl i adresu - ja =
si ted na ni nevzpomenu=2C ale ve vyhledavaci to =
zvladnes) hledej JEDI Component Library apod=2E
Nicmene =2E=2E=2E se zobrazovanim GIFu jsem mel dost =
problemy=2E Uz jen pro to=2C ze zminena komponenta =
byla delana na nejako prastarou verzi a pak byla =
prekopavana na novejsi a novejsi=2E
Mel jsem problemy s uvolnovanim pameti=2C casto pri =
uvolnovani mi aplikace skoncila vyjimkou=2E
Pokud tedy nepotrebujes zobrazovat libovolne GIFy =
(ruznych formatu s ruznymi prodlevami mezi =
snimky) - napr=2E chces zobrazit jen logo aplikace=2C =
popr=2E logo BuildWithDelphi atd=2E =3A) =2C doporucuju =
Ti vytahnout si jednotlive snimky a udelat si =
valstni Thread=2C kterym si budes jednotlive snimky =
sam prehazovat=2E
Ahoj
Jirka
P=2ES=2E=3AJestli Ti to nebude vadit=2C dej mi vedet =
(treba jen soukrome)=2C jak jsi s tim GIFem =
spokojen a zda Ti vse jede OK=2E Pripoustim=2C ze =
jsem nekde mohl udelat botu a docela by me =
zajimalo=2C kde=2E =
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A David Kraina =3CDKx=40Seznam=2Ecz=3E
Datum=3A =E8tvrtek=2C 6=2E =FAnora 2003 v 7=3A48 odp=2E
P=F8edm=ECt=3A TGIFImage =5E
=3E Nazdar=2C
=3E vcera jsem se dotazoval na zoom obrazku a =
=3E ukladani do JPG/GIF=2E Za ten den
=3E jsem prisel na zoom pomoci CopyRect=2C na to =
=3E ze v Delphi 6 je implicitne unita
=3E JPG resici vse=2C ale GIF mi nejak nejde=2E
=3E Nasel jsem TGIFImage pro Delphi 5=2C ale =
=3E urcite pujde narvat i pod 6=2E Ale mam
=3E uz ponekolikate tento zacatnicky problem - =
=3E mam nekoluk *=2Edcu=2C hodim je do
=3E packu=2C a at se snazim jak to jde=2C =
=3E nenainstaluje to bez *=2Epas=2E Neni to
=3E poprve=2E Kde se to da vypnout ci nemate nekdo =
=3E k TGIFImage vsechny =22paska=22
=3E (GIFImage=2Epas+GIFReg=2Epas+TimerEx=2Epas)=2E Dik DKx
=3E =
=3E
error creating form
[*] Peter Jurco <peter.jurco(zv)alcatel.sk> - 7.2.2003 10:21:30
Zdravim Vas
Pri otv=E1rani projektu Open project - projekt.dpr mi Delphi vyhodi nasle=
dovnu
chybovu hlasku:
"Error creating form: Error reading rtfProcess.Lines.Strings: Richedit li=
ne
insertion error"
po odkliknuti OK, delphi otvori projekt, da sa aj skompilovat ale neda sa
spustit.
Tato chyba sa objavila neviem z akej priciny, vcera to slo, dnes nie.
Viete prosim Vas niekto kde moze byt chyba?
Dik
Peter
Delphi 5 Enterprise, WinNT
error creating form
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.2.2003 10:28:06
ViBSaWNoRWRpdHUgbWFzIHYgZGVzaWduIHRpbWUgbmFwc2FubyBuZWNvLCBzIGNpbSBzaSBEZWxw
aGkgbmVwb3JhZGkuDQpEb3BvcnVjdWppIHNpIHYgbmVqYWtlbSB0ZXh0b3ZlbSBlZGl0b3J1IG90
ZXZyaXQgcHJpbW8gLkRGTSwgbmFqaXQNCnptaW5lbnkgUmljaEVkaXQgYSB2eW1hemF0IG9ic2Fo
IExpbmVzLg0KUG9rdWQgbmVtYXMgZm9ybSB2IHRleHRvdmUgcG9kb2JlLCBwb3V6aWogdXRpbGl0
dSBDb252ZXJ0LkVYRSwga3RlcmENCmplIHYgLlxEZWxwaGk1XEJpbg0KDQotLSANCkphbiBGaWFs
YQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KNy4yLjIwMDMgUGV0ZXIgSnVyY286DQo+IFBy
aSBvdHbhcmFuaSBwcm9qZWt0dSBPcGVuIHByb2plY3QgLSBwcm9qZWt0LmRwciBtaSBEZWxwaGkg
dnlob2RpIG5hc2xlZG92bnUNCj4gY2h5Ym92dSBobGFza3U6DQo+ICJFcnJvciBjcmVhdGluZyBm
b3JtOiBFcnJvciByZWFkaW5nIHJ0ZlByb2Nlc3MuTGluZXMuU3RyaW5nczogUmljaGVkaXQgbGlu
ZQ0KPiBpbnNlcnRpb24gZXJyb3IiDQo+IHBvIG9ka2xpa251dGkgT0ssIGRlbHBoaSBvdHZvcmkg
cHJvamVrdCwgZGEgc2EgYWogc2tvbXBpbG92YXQgYWxlIG5lZGEgc2ENCj4gc3B1c3RpdC4NCg0K
PiBUYXRvIGNoeWJhIHNhIG9iamF2aWxhIG5ldmllbSB6IGFrZWogcHJpY2lueSwgdmNlcmEgdG8g
c2xvLCBkbmVzIG5pZS4NCj4gVmlldGUgcHJvc2ltIFZhcyBuaWVrdG8ga2RlIG1vemUgYnl0IGNo
eWJhPw0KDQog
Co je rychlejsi
[*] Delphin <delphin(zv)post(tec)cz> - 7.2.2003 10:33:27
> prvni varianta :
> try
> bitmap.LoadFromFile('xxx.bmp')
> except
> bitmap.LoadFormResource...
>
> druha varianta:
>
> if FileExists('xxxx.bmp') then
> bitmap.LoadFromFile('xxx.bmp')
> else
> bitmap.LoadFormResource...
>
Druha varianta je jednoznacne rychlejsi, ale funkcnost neni ekvivalentni
prvni. Kdyz totiz soubor existuje ale nastane v LoadFromFile jina vyjimka,
napr chyba pri cteni, tak se neprovede LoadFromResource. Takze se to stejne
bude resit try except.
koupim Delphi5 Standard
[*] Zdenek Navratil <zdnav(zv)monoceros.physics.muni(tec)cz> - 7.2.2003 10:54:44
Pekny den,
rad bych koupil Delphi5 Standard (vcetne licence :-)).
Podminkou je, ze to nesmi byt upgrade.
Nabidky prosim zasilejte na adresu
zdenek(zv)physics.muni(tec)cz.
Dekuji.
Zdenek Navratil
PrF MU Brno
Tisk stromu TreeView
[*] Marek Dost�l <dostal(zv)agnis(tec)cz> - 7.2.2003 10:54:00
> A neslo by si vygenerovat pomocny form rozmeru=20
> rozbaleneho stromu, nemusel by bytt mozna ani=20
> videt a pomoci metody print a clipboardu ziskat=20
> bitmapu, kterou si muzes dat kamkoliv?
Take me to napadlo, ale jednak tisk byl strasne malinky a nevybadal =
jsem, jak to jednoduse zvetsit a navic nevim, jak ten strom bude moci =
byt velky a musel bych vypocitat velikost canvasu podle veslikosti =
rozbaleneho stromu.=20
Re[2]: Zebedee vs. FireBird
[*] Roland Turcan <rotursoft(zv)post.sk> - 07.2.2003 11:12:19
<<< 7. 2. 2003 11:11 - Lukas Gebauer "gebylist(zv)mlp(tec)cz" >>>
>> > funguje to urcite rychleji (pokud prenasite vice dat a mate zapnutou
>> > kompresi). My mame napr. FB na linux serveru (pro tvorbu dynamickych
>> > www stranek z dat ve FB) nekde v praze a databazi aktualizujeme pres
>> > internet. Nacitani dat je podstatne rychlejsi.
>> Mozes to popisat blizsie? Co je to "urcite rychleji"? Aspon o 75%?
LG> No, treba u nasich IB apliakci pouzivame kompresi dat na urovni
LG> datove linky. Honime pres to normalni SQL provoz, a dlouhodoba
LG> komprese cini 3.5:1, coz je velmi slusne.
LG> Ostatne kdyz si zachytis packety interbaziho protokolu, tak zjistis,
LG> ze packety jsou vystlany prazdnymi misty, az je to nechutne...
LG> Chtel jsem se optat, FB pouziva jen a jen protokol kompatibilni s IB,
LG> nebo jej lze donutit k nejakemu lepsimu komunikacnimu protokolu?
A je mozne nastavit Zebedee aj tak, aby vyuzival iba kompresiu a
nesifroval? Ako ?
--
Best regards, TRoland
Validace cisla uctu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 7.2.2003 11:16:22
Hi,
function TForm1.ValidateUcet(S : string; Hlaseni : Boolean) : Boolean;
const
MyVahy : array [1..10] of Byte =3D (6, 3, 7, 9, 10, 5, 8, 4, 2, 1);
var
Pom : string;
i : Byte;
Vysledek : Integer;
=20
//______________________________________________________________________=
____
__
function StrLeft(Zdroj: String; Pocet: integer): String;
begin
Result :=3D copy(Zdroj, 1, Pocet);
end;
=20
//______________________________________________________________________=
____
__
function StrRight(Zdroj: String; Pocet: integer): String;
begin
Result :=3D copy(Zdroj, Length(Zdroj) - Pocet, Pocet);
end;
=20
//______________________________________________________________________=
____
__
function StrSub(Zdroj: String; Pozice, Pocet: Integer): String;
begin
Result :=3D copy(Zdroj, Pozice, Pocet);
end;
=20
//______________________________________________________________________=
____
__
function ReplaceStr(Zdroj, hledany, nahradit: String): String;
var
i : integer;
begin
Result :=3D '';
for i :=3D 1 to Length(zdroj) do
if copy(zdroj, i, 1) =3D hledany then Result :=3D Result + =
nahradit
else Result :=3D Result + =
copy(zdroj, i,
1);
end;
=20
//______________________________________________________________________=
____
__
function Occurs(Hledany, Zdroj: String) : Integer;
var
i : integer;
begin
result :=3D 0;
for i :=3D 1 to Length(zdroj) do
if copy(zdroj,i,1) =3D hledany then inc(Result);
end;
=20
//______________________________________________________________________=
____
__
function NPos(Hledej, Zdroj: String; Kolikate: Integer): Integer;
var
i, j : integer;
begin
Result :=3D 0;
j :=3D 0;
for i :=3D 1 to length(Zdroj) do begin
if copy(zdroj, i, 1) =3D hledej then begin
inc(j);
if j =3D kolikate then Result :=3D i;
end;
end;
end;
=20
//______________________________________________________________________=
____
__
function StrPadL(Zdroj: String; Delka: Integer; Doplnit: String): =
String;
var
pomoc : String;
i : integer;
begin
for i :=3D 1 to Delka do pomoc :=3D pomoc + doplnit;
result :=3D copy(pomoc,1,delka - Length(Zdroj)) + zdroj;
end;
=20
//______________________________________________________________________=
____
__
begin
Vysledek :=3D 0;
// Z poslan=E9ho =FA=E8tu mus=EDm p=F8=EDpadn=EC vyhodit =
p=F8ed=E8=EDsl=ED =FA=E8tu a =E8=EDslo pobo=E8ky
Pom :=3D ReplaceStr(S, ' ', '');
case Occurs('-', Pom) of
{M=E1m tady nav=EDc bu=EF p=F8ed=E8=EDsl=ED nebo =E8=EDslo =
pobo=E8ky.
Pokud je zbytek =E8=EDsla krat=B9=ED jak 4 znaky, tak jde o =
=E8=EDslo pobo=E8ky a
j=E1 mus=EDm vz=EDt to, co je p=F8edt=EDm, jinak vezmu ten konec}
1 : if Length(Pom) - Pos('-', Pom) <=3D 3 then
Pom :=3D StrLeft(Pom, Pos('-', Pom) - 1)
else Pom :=3D StrRight(Pom, Length(Pom) - Pos('-', Pom));
// M=E1 tady jak p=F8ed=E8=EDsl=ED, tak =E8=EDslo pobo=E8ky, =
tak=BEe vezmu jen ten st=F8ed
2 : Pom :=3D StrSub(Pom, Pos('-', Pom) + 1, NPos('-', Pom, 2) - =
Pos('-',
Pom) - 1);
end;
// Nesm=ED m=EDt v=EDc jak 10 znak=F9 a mus=ED tam b=FDt jen =
=E8=EDslice
Result :=3D (Length(Trim(Pom)) <=3D 10) and (StrToInt64Def(Trim(Pom), =
-1) >
0);
if Result then begin
// Dopln=EDme zleva nuly
Pom :=3D StrPadL(Trim(Pom), 10, '0');
for i :=3D 1 to 10 do
Vysledek :=3D Vysledek + StrToInt(Pom[i])*MyVahy[i];
if Vysledek mod 11 <> 0 then
Result :=3D False;
end;
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz=20
http://www.totalcommander(tec)cz
.. -----Original Message-----
.. From: Vaclav Riha - Soft Consult =
[mailto:vaclav_riha(zv)softconsult(tec)cz]
.. Na overeni spravnosti cisla uctu (bankovniho) existuje=20
.. nejaky algoritmus. Neznate ho nekdo. D=EDky.Zahada s verzi WinXP
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 7.2.2003 11:17:15
Ahoj vsem,
narazil jsem na zahadu - mam ne prilis slozitou aplikaci, ve ktere pomoci
JEDI zjistuju verzi systemu. Na platformach Win95 az W2K je to OK, ale na
WinXP mi to vraci "NT 4.0. sestaveni:1381 SP5"!. Udelal jsem si testovaci
programek jen na tenhle problem a ten vraci spravne hodnoty. Takze - muze
existovat neco, co ovlivni promenne Win32MajorVersion a Win32MinorVersion ?
Protoze tak se to jevi.
D4Pro
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
IC: 62026631 DIC: 273-62026631
Tel./fax: 465 321096, 465 322889, 465 324795
hotline: 465 324795
Mobil Eurotel: 724 185948; T-Mobile : 603 833124
www.hjsoft(tec)cz
ICQ: 47636291
koupim Delphi5 Standard
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 7.2.2003 11:17:20
Zkousel jsi se ozvat primo Borlandu? Me ho taky driv prodali i kdyz uz
ho nemeli v nabidce.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Friday, February 7, 2003, 10:54:44 AM, you wrote:
ZN> Pekny den,
ZN> rad bych koupil Delphi5 Standard (vcetne licence :-)).
ZN> Podminkou je, ze to nesmi byt upgrade.
ZN> Nabidky prosim zasilejte na adresu
ZN> zdenek(zv)physics.muni(tec)cz.
ZN> Dekuji.
ZN> Zdenek Navratil
ZN> PrF MU Brno
error creating form
[*] Peter Jurco <peter.jurco(zv)alcatel.sk> - 7.2.2003 11:19:38
Skusal so porovnavat template.dfm, nic som tam nenasiel rozdielne.
Zaujimave je ze kolegovi funguje spusti projekt, mne Delphi tvrdosijne
vypisuje error hlasku.
(template.dfm mame to iste).
Nerozumiem tomu.
S pozdravom
Peto
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 7. febru=E1r 2003 10:28
Subject: Re: error creating form
> V RichEditu mas v design time napsano neco, s cim si Delphi neporadi.
> Doporucuji si v nejakem textovem editoru otevrit primo .DFM, najit
> zmineny RichEdit a vymazat obsah Lines.
> Pokud nemas form v textove podobe, pouzij utilitu Convert.EXE, ktera
> je v .\Delphi5\Bin
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 7.2.2003 Peter Jurco:
> > Pri otv=E1rani projektu Open project - projekt.dpr mi Delphi vyhodi
nasledovnu
> > chybovu hlasku:
> > "Error creating form: Error reading rtfProcess.Lines.Strings: Richedi=
t
line
> > insertion error"
> > po odkliknuti OK, delphi otvori projekt, da sa aj skompilovat ale ned=
a
sa
> > spustit.
>
> > Tato chyba sa objavila neviem z akej priciny, vcera to slo, dnes nie.
> > Viete prosim Vas niekto kde moze byt chyba?
>
>
Re[2]: Zebedee vs. FireBird
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.2.2003 11:21:32
> A je mozne nastavit Zebedee aj tak, aby vyuzival iba kompresiu a
> nesifroval? Ako ?
To fakt nevim, ja na tu kompresi nepouzivam Zabedee, ja to kompresuji
primo na urovni sitovych routeru. ;-) (tedy naprosto vsechno, co tou
linkou tece...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Zatuhavani systemu - Delphi,OpenDialog
[*] Dalibor <dalibor(zv)torola(tec)cz> - 07.2.2003 11:33:06
Ahoj, mam Win2000, Delphi 5Prof.
Pri ladeni programu se mi stava, ze pri vyvolani OpenDialog.Execute
v nem, mi totalne zamrze system.
Nestava se to, kdyz program spustim primo jako exe.
Nevite, kde by mohla byt chyba?
Dik. Zaokrouhlovani a verze OS
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.2.2003 11:50:25
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> To me zajima. Jak jsi tedy vyresil tu praci s BLOBy?
Nevyresil, ale preplanoval v todo listu s nizkou prioritou, protoze to
momentalne prakticky k nicemu nepotrebuju - pisu neco jako "remote sql" pres
XML a tam se mi TADOQuery vyskytuje jen na strance serveru, takze mi nevadi,
ze hodnotu Blob parametru neumim precist zpatky.
Nastaveni parametru na hodnotu blobu v ANSIStringu vypada napr. takto:
var
Param: Parameter;
begin
Param := NativeQuery.Parameters.ParamByName(aName);
Param.DataType := ftBlob;
Param.Value := aValue;
end;
Cteni blobu do ANSIStringu vypada treba takhle:
if Field.IsBlob then
Result := (Field as TBlobField).Value
else
...
Re[4]: Zebedee vs. FireBird
[*] Roland Turcan <rotursoft(zv)post.sk> - 07.2.2003 11:54:29
<<< 7. 2. 2003 11:54 - Lukas Gebauer "gebylist(zv)mlp(tec)cz" >>>
>> A je mozne nastavit Zebedee aj tak, aby vyuzival iba kompresiu a
>> nesifroval? Ako ?
LG> To fakt nevim, ja na tu kompresi nepouzivam Zabedee, ja to kompresuji
LG> primo na urovni sitovych routeru. ;-) (tedy naprosto vsechno, co tou
LG> linkou tece...)
A to co su za routre?
--
Best regards, TRoland
Validace cisla uctu
[*] Vladislav Cadsky <delphi(zv)cadsky(tec)cz> - 7.2.2003 12:03:17
Ahoj, posilam funkci kterou pouzivam ovsem mam stale problem s pomlckou v
cisle. Nebezi to na 100 %
Vlada
//-----------------------------------------------------------------------=
---
----
{
Zaji=B9ten=ED c=EDsel =FActu modulo 11
V mezibankovn=EDm platebn=EDm styku mus=ED b=FDt podpole prvn=ED c=E1st c=
=EDsla =FActu a
druh=E1 c=E1st c=EDsla =FActu v pol=EDch UD: a UK: zaji=B9tena modulo 11 =
s vahami
uveden=FDmi v n=E1sleduj=EDc=ED tabulce.
Algoritmus kontroly c=EDsla ABCDEFGHIJ na modulo 11:
C=EDslice A B C D E F G H I J
V=E1hy*) 6 3 7 9 10 5 8 4 2 1
*)Pozn.: V=E1hy jsou z=EDsk=E1ny jako rozd=EDl n-t=E9 mocniny 2 a nejbli=BE=
=B9=EDho ni=BE=B9=EDho
n=E1sobku 11.
V=E1hy se k c=EDslic=EDm na jednotliv=FDch pozic=EDch c=EDsla =FActu prir=
azuj=ED zprava.
C=EDslo ABCDEFGHIJ je zaji=B9teno modulo 11, pokud je soucet S beze zbytk=
u
deliteln=FD 11, pricem=BE
}
// zadej cislo uctu bez kodu banky
function JeUcetMudulo11(AcUctu :String) :Boolean;
var
n, x :Integer;
const
cnDelkaUctu =3D 10;
pole :Array[0..9] of Integer =3D (6, 3, 7, 9, 10, 5, 8, 4, 2, 1);
begin
// odstraneni pomlcky na tretim a ctvrtem miste
if pos('-', AcUctu)=3D3 then AcUctu :=3D copy(AcUctu, 4, 10);
if pos('-', AcUctu)=3D5 then AcUctu :=3D copy(AcUctu, 6, 10);
// odstraneni ostatnich pomlcek
//AcUctu :=3D NahradStr(AcUctu, '-', '');
// doplneni nul do poctu 10
for n:=3Dlength(AcUctu) to cnDelkaUctu-1 do
AcUctu :=3D '0'+AcUctu;
//
x :=3D 0;
for n:=3D0 to cnDelkaUctu-1 do
x :=3D x + (StrToInt(AcUctu[n+1]) * pole[n]);
//
result :=3D (x/11) - Trunc(x/11) =3D 0;
end;
----- Original Message -----
From: "Vaclav Riha - Soft Consult" <vaclav_riha(zv)softconsult(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 07, 2003 10:02 AM
Subject: Validace cisla uctu
Na overeni spravnosti cisla uctu (bankovniho) existuje nejaky algoritmus.
Neznate ho nekdo. D=EDky.
S pozdravem Vaclav Riha
Tisk stromu TreeView
[*] <js-delphi(zv)quick(tec)cz> - 07.2.2003 12:08:48
> Take me to napadlo, ale jednak tisk byl
> strasne malinky a nevybadal jsem, jak to
> jednoduse zvetsit a navic nevim, jak ten
> strom bude moci byt velky a musel bych
> vypocitat velikost canvasu podle veslikosti
> rozbaleneho stromu.
>
Hmm, to bude problem. Kdysi jsem chtel taky
tisknout obsah formulare a zjistil jsem, ze pokud
chci, aby to po tisku trochu vypadalo, tak musim
pred tiskem zmenit vsechny fonty (nejlepsi je,
kdyz potomci prebiraji typ fontu) na truetype a
zmenit velikost z 8 na 12 a pak uz byly vysledky
pouzitlene.
Problem mozna je, ze jsi trochu nespecifikoval na
co to potrebujes.
Pak by nastoupila klasika - nelze-li problem
vyresit, musi se nejak elegantne obejit ... ;o)
Kdyz tu ziskanou bitmapu vlozis do canvasu jine
nejake komponenty typu TBitmap, mel bys byt
schopen menit jeji velikost, popr. ji roznout
atd. Jak jsem rekl, nevim k cemu to ma presne byt
a jaky je Tvuj cil ...
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
OT: Re: Re[4]: Zebedee vs. FireBird
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.2.2003 12:27:42
> LG> To fakt nevim, ja na tu kompresi nepouzivam Zabedee, ja to
> kompresuji LG> primo na urovni sitovych routeru. ;-) (tedy naprosto
> vsechno, co tou LG> linkou tece...)
>
> A to co su za routre?
Cisco... konkretne STAC komprese na interfacu. Zatim kazdy Cisco
router ktery jsme videl, tak to umel. (casto, aniz by o necem takovem
'experti' ruznych internetovych provideru meli tuseni...) ;-)
Na nekterych linkach mame podobnou kompresi mezi linuxovymi routery v
ramci IPsec tunelu.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
error creating form
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.2.2003 12:33:37
> Odes=EDlatel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> V RichEditu mas v design time napsano neco, s cim si Delphi neporadi.
> Doporucuji si v nejakem textovem editoru otevrit primo .DFM, najit
> zmineny RichEdit a vymazat obsah Lines.
> Pokud nemas form v textove podobe, pouzij utilitu Convert.EXE, ktera
> je v .\Delphi5\Bin
Je otazka, jak si s tim ten convert.exe poradi, pokud je dfm nejak =
naborene.
Za normalnich okolnosti by melo stacit na formulari=20
Right-Click a Text DFM (nebo tak neco)
A misto externiho editoru "view as text".
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Zaokrouhlovani a verze OS
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.2.2003 12:47:42
> Odes=EDlatel: Rumcajs-konfera <konfera(zv)rumcajs.com>
> Mam-li se tedy Variantum vyhnoout, jak=FD m=E1m pouzivat typ pro =
desetinne
> cislo?
Desetinna cisla do variantu?
Variant je proto Variant, ze "nejak" muze obsahovat jakykoli typ.
Viz type TVarData (myslim).
Desetinna cisla (co to je desetinne cislo?) muzes ukladat do rady =
vhodnych typu:
Single, Double, Real, Real48, Extended, Currency, ...
(Object Pascal Language Guide)
viz Zakladni kurz Delphi
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Co je rychlejsi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.2.2003 13:02:21
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> 1) Druhy postup je cistsi, prvni bych povazaoval za prasarnu.
> Jak tady zduraznuje stale Petr Vones, vyjimky by se nemely pouzivat timto
> zpusobem.
Pokud neznas presne pozadavky na reseny algoritmus, tezko muzes vyslovit
soud, ze je nektery postup cistsi. Podle jakych kriterii? Pouzivani vyjimek
neni dogma a existuji kriteria jak urcit, zda je jejich pouziti opravnene.
Nejvetsi vahu maji:
a. bezpecnost kodu
b. cena operace vedouci k jejich eliminovani
Existuji jeste podruzna kriteria jako
c. rychlost vysledneho kodu
d. slozitost algoritmu
A napr. bod d) se da na zaklade SW fyziky dale hodnotit nakolik je nachylny
k chybam programatora, na kolik je modifikovatelny, citelny etc..
***
To, ze Delphi ma defaultne zapnute Stop on Exception, jeste neni duvodem
k jednoznacnemu uprednostnovani ofezivnich postupu. Kdyz vezmu jen kriteria
a) tak bezpecnost kodu je vyssi v pripade pouziti bloku try-exept, jak uz
tady mnozi upozornovali
b) cena operace FileExists() je akceptovatelna, protoze je implementovana
pomoci FindFirst() a to stejne musi OS vnitrne pri volani funkce
CreateFile() udelat, takze lze uvazovat o nahrazeni urcitych trid vyjimek
ofenzivnim postupem s touto operaci.
Takze hlavne bude zalezet, jak se to ma cele chovat: jestlize napr. cteni
z resource je soucasti zotaveni z chyby, nebo jestli se ma chyba pri cteni
ze souboru hlasit jako chyba obsluze, zda se ma napr., pockat v pripade, ze
soubor existuje, ale je otevren jinym procesem atd...
Doporucoval bych si precist doporuceni o pouzivani exception z dokumentace k
jazyku ADA, ktery je jako prvni zavedl (pripojuju se pres mobil, tak nemam
po ruce URL)
HTH, pf
Co je rychlejsi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.2.2003 13:03:20
From: "Delphin" <delphin(zv)post(tec)cz>
> Druha varianta je jednoznacne rychlejsi, ale funkcnost neni ekvivalentni
> prvni.
Ano, druha varianta je rychlejsi. Je otazkou o kolik a jaky to ma prakticky
vyznam:
1. Zachycenim chyby pomoci try-except ztratis radove
stovky micro sekund, zrejme to nebude nikdy vice nez 0.5 ms.
2. Operace FileExists(), implementovana pomoci FindFirst(), kterou vnitrne
vykona i OS v pripade pokusu o otevreni souboru, trva pri prvnim pokusu
radove stovky mili sekund (!!!) (nez se nactou sektory obsahujici
adresarove
struktury z disku do pameti)
Takze aby ta ztrata 0.5 ms mela nejaky prakticky dopad, muselo by jit
o nejaky delsi cyklus, jinak je diskuse o rychlosti zcela bezpredmetna.
Takze IMHO by se dotycny programator mel soustredit na bezpecnost a
srozumitelnost napsaneho kodu, nez na honeni duchu.
HTH, pf
error creating form
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.2.2003 13:09:53
Ny4yLjIwMDMgSmFuIFNlYmVs7Ws6DQo+PiBPZGVz7WxhdGVsOiBpbmcuIEphbiBGaWFsYSA8amFu
LmZpYWxhQGlvbC5jej4NCj4+IFYgUmljaEVkaXR1IG1hcyB2IGRlc2lnbiB0aW1lIG5hcHNhbm8g
bmVjbywgcyBjaW0gc2kgRGVscGhpIG5lcG9yYWRpLg0KPj4gRG9wb3J1Y3VqaSBzaSB2IG5lamFr
ZW0gdGV4dG92ZW0gZWRpdG9ydSBvdGV2cml0IHByaW1vIC5ERk0sIG5haml0DQo+PiB6bWluZW55
IFJpY2hFZGl0IGEgdnltYXphdCBvYnNhaCBMaW5lcy4NCj4+IFBva3VkIG5lbWFzIGZvcm0gdiB0
ZXh0b3ZlIHBvZG9iZSwgcG91emlqIHV0aWxpdHUgQ29udmVydC5FWEUsIGt0ZXJhDQo+PiBqZSB2
IC5cRGVscGhpNVxCaW4NCg0KPiBKZSBvdGF6a2EsIGphayBzaSBzIHRpbSB0ZW4gY29udmVydC5l
eGUgcG9yYWRpLCBwb2t1ZCBqZSBkZm0gbmVqYWsgbmFib3JlbmUuDQo+IFphIG5vcm1hbG5pY2gg
b2tvbG5vc3RpIGJ5IG1lbG8gc3RhY2l0IG5hIGZvcm11bGFyaSANCj4gUmlnaHQtQ2xpY2sgYSBU
ZXh0IERGTSAobmVibyB0YWsgbmVjbykNCj4gQSBtaXN0byBleHRlcm5paG8gZWRpdG9ydSAidmll
dyBhcyB0ZXh0Ii4NCg0KQSBqYWsgdG8gdWRlbGFzLCBrZHl6IHRpIGplaiBJREUgb2RtaXRuZSB6
b2JyYXppdCA/DQoNCi0tIA0KSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg==
Zaokrouhlovani a verze OS
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 7.2.2003 13:20:27
Potom nechapu jedine: Float =3D Variant?
Rumcajs
Desetinna cisla do variantu?
Variant je proto Variant, ze "nejak" muze obsahovat jakykoli typ.
Viz type TVarData (myslim).
Desetinna cisla (co to je desetinne cislo?) muzes ukladat do rady vhodnyc=
h
typu:
Single, Double, Real, Real48, Extended, Currency, ...
(Object Pascal Language Guide)
viz Zakladni kurz Delphi
Honza
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
ZEOS - filtrovani dle: pole NOT LIKE "hodnota" vra
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 07.2.2003 13:28:41
ahoj vsem,
pouzivam komponenty ZEOS (verze 5.3.4) pro pristup k MySQL.
Mam data modul, kterej obsahuje ZMySQLDatabase, ZMySQLTransact a ZMySQLQuery.
V ZMySQLQuery mam nastaveno Filtered na true, v Options mam zahrnuto
doSqlFilter a Filter je nastaveno na:
pole NOT LIKE "hodnota"
Toto mne vrati chybu SyntaxError.
Pokud vsak tuto chybu chytnu v try except a ignoruju ju a potom provedu
ZMySQLQuery.Open, je vse OK. Pravdepodobne je chyba v SQL parseru.
Toto chovani mne delalo i ve verzi 5.3.0. build 6. Setkali ste se s tim
nekdo? Na strankach ZEOSu sem zadnej patch nenasel.
Karel Klimes
D6 UPD 2, WinXP
Co je rychlejsi
[*] Petr Langer <langer(zv)xdom(tec)cz> - 7.2.2003 14:11:31
Souhlas.
Je to mozna muj pocit, ale prijde mne, ze se pouzivani vyjimek zbytecne
apriory zatracuje.
Proc by reseni
> try
> bitmap.LoadFromFile('xxx.bmp')
> except
> bitmap.LoadFormResource...
melo byt spatne, kdyz napr. vim, ze v 99% pripadu ten soubor bude existovat
a v 1% ne (tzn. situace je "exceptional" :-)) ?
Proc bych proto mel pokazde testovat, jestli existuje? Vzdyt to prave muze
kod zpomalovat...
Navic, jak uz psal Delphin predemnou, neni to totez jako druha varianta.
Co kdyz to .bmp bude vadne a vyhuci to na chybe?
Petr Langer
----- Original Message -----
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 07, 2003 1:03 PM
Subject: Re: Co je rychlejsi
> From: "Delphin" <delphin(zv)post(tec)cz>
>
> > Druha varianta je jednoznacne rychlejsi, ale funkcnost neni ekvivalentni
> > prvni.
>
> Ano, druha varianta je rychlejsi. Je otazkou o kolik a jaky to ma
prakticky
> vyznam:
>
> 1. Zachycenim chyby pomoci try-except ztratis radove
> stovky micro sekund, zrejme to nebude nikdy vice nez 0.5 ms.
>
> 2. Operace FileExists(), implementovana pomoci FindFirst(), kterou vnitrne
> vykona i OS v pripade pokusu o otevreni souboru, trva pri prvnim
pokusu
> radove stovky mili sekund (!!!) (nez se nactou sektory obsahujici
> adresarove
> struktury z disku do pameti)
>
> Takze aby ta ztrata 0.5 ms mela nejaky prakticky dopad, muselo by jit
> o nejaky delsi cyklus, jinak je diskuse o rychlosti zcela bezpredmetna.
>
> Takze IMHO by se dotycny programator mel soustredit na bezpecnost a
> srozumitelnost napsaneho kodu, nez na honeni duchu.
>
> HTH, pf
>
>
>
Co je rychlejsi
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 7.2.2003 14:32:51
1) A co kdyz ti to vyhuci na LoadFromResource? Pak kod musi vypadat
try
bitmap.LoadFromFile('xxx.bmp')
except
try
bitmap.LoadFormResource...
except
hmm nenia ni tam
end
end
A tohle uz prestava byt citelne....
Krome toho, kdyz nekdo dopise za cteni neco jako Bitmp2:= ...Create tak mu
nemusi dojit, ze se pak nemusi uvolnit/provest/...
2) Vysledek je, ze pokud je to v nejake sekci, ktera se provadi casteji/na
zacatku ... donutis vsechny ostatni cleny tymu vypnout tuto vyjimku v IDE
Delphi, coz zase vytvari problemy pri ladeni...
3) Shrnuti: ja bych to napsal s IF a cele v TRY bloku. (tak mi to pripada
spravne)
Danik,
striktni zastance minima vyjimek pri ladeni (nevypinam zadnou, krome
Delphi default)
PS:Co treba takhle ;-) (nebrat vazne please)
try
if FileExists('xxx.bmp') then
bitmap.LoadFromFile(...
else
raise exeption.create('Cvicna exception bude chycena v except bloku');
except
bitmap.LoadFromResource(...
end;
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Langer
>
> Souhlas.
> Je to mozna muj pocit, ale prijde mne, ze se pouzivani
> vyjimek zbytecne
> apriory zatracuje.
> Proc by reseni
> > try
> > bitmap.LoadFromFile('xxx.bmp')
> > except
> > bitmap.LoadFormResource...
>
> melo byt spatne, kdyz napr. vim, ze v 99% pripadu ten soubor
> bude existovat
> a v 1% ne (tzn. situace je "exceptional" :-)) ?
> Proc bych proto mel pokazde testovat, jestli existuje? Vzdyt
> to prave muze
> kod zpomalovat...
> Navic, jak uz psal Delphin predemnou, neni to totez jako
> druha varianta.
> Co kdyz to .bmp bude vadne a vyhuci to na chybe?
Co je rychlejsi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2003 14:37:33
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> melo byt spatne, kdyz napr. vim, ze v 99% pripadu ten soubor bude existovat
> a v 1% ne (tzn. situace je "exceptional" :-)) ?
Jenze tohle zadani (vlastne jakekoli zadani) v tom dotazu chybelo. Pokud to
bylo mysleno tak, ze se "predpoklada, ze ten soubor nebude v mnoha pripadech
existovat", tak je lepsi to otestovat predtim a vubec pak nevolat tu cast kodu
(metodu), kde se bitmapa nahrava.
> Proc bych proto mel pokazde testovat, jestli existuje? Vzdyt to prave muze
> kod zpomalovat...
Stejne tak jako pripadne zotaveni z vyjimky, ktera bude treba vznikat v 95%
pripadu, pri prochazeni tisicu souboru. Do celkoveho casu zpracovani operace,
ktera na zaklade predaneho souboru indikuje neexistenci souboru musis take
dale zapocitat dobu vytvareni TBitmap objektu, pokud se tento vytvari vzdy pro
kazdy soubor zvlast. Takze misto volani FileExists mas: vytvoreni objektu,
volani metody LoadFromFile, osetreni vyjimky, uvolneni objektu, zotaveni z
vyjimky. Samozrejme to nemusi byt presne takto napsane, ale muze. To bohuzel z
puvodniho dotazu neni zrejme.
> Navic, jak uz psal Delphin predemnou, neni to totez jako druha varianta.
> Co kdyz to .bmp bude vadne a vyhuci to na chybe?
To uz se tu prece psalo, samozrejme ze vyjimka muze vzniknout a ma byt
osetrena v kazdem pripade. Ale v tom dotazu slo (alespon tak jak jsem to
pochopil) o to, co je rychlejsi pokud jiz predem predpokladam urcity typ chyby
a tento pripad chci zpracovat co nejrychleji.
Ono take zalezi na platforme, treba v .NETu je zotaveni z vyjimek rychlejsi,
takze tam to lze pojmout vice 'ciste'.
Petr Vones
Borland IDE pro .NET bude ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2003 15:33:25
From: "Burkovsky Ladislav" <Ladislav.Burkovsky(zv)autinform.de>
> V utorok a stredu som bol na dot.net konferencii vo Franfurkte a videl som
> ten Sidewinder. Je to velmi podobne Visual studiu. Pre delphistov bude
Prvni screenshoty http://www.drbob42.net/SideWinder/
Petr Vones
Zahada s verzi WinXP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2003 15:54:38
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
> narazil jsem na zahadu - mam ne prilis slozitou aplikaci, ve ktere pomoci
> JEDI zjistuju verzi systemu. Na platformach Win95 az W2K je to OK, ale na
> WinXP mi to vraci "NT 4.0. sestaveni:1381 SP5"!. Udelal jsem si testovaci
Jaka je to presne verze JCL ?
> programek jen na tenhle problem a ten vraci spravne hodnoty. Takze - muze
> existovat neco, co ovlivni promenne Win32MajorVersion a Win32MinorVersion ?
Muze do nich nejaky kod zapsat cokoli, protoze jsou to jen promenne.
Petr Vones
Zjisteni vlastnika processu
[*] <aldik(zv)quick(tec)cz> - 07.2.2003 16:07:44
Ahoj kluci jak zjistim vlastnika procesu ve w2000
a wxp? Jedna se o tu informaci co se zobrazi v
taskbaru kdyz se prihlasim jako admin.Mimo jmena
processu je tam i vlastnik processu...nebo spis
lepe receno, pod kterym uctem proces bezi...???
Diky moc...
Aldik Pavel
WXP D6Ent
sqlite a dbExpress
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 07.2.2003 16:22:51
No pokud mi popisete jak to udelat, rad to tak udelam, jsem zacatecnik
a myslim, ze SQLite jinak nez pres dbExpress rozchodit nejde.
s pozdravem
michal aichinger
On 6 Feb 2003 at 17:17, Jan Sebel=EDk wrote:
> > Odes=EDlatel: Michal Aichinger <michal.aichinger(zv)talk21.com>
> > Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=3DTrue.
> > Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
> > dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
> > se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky
> > ani sloupce. Pokud dotaz zapisu rucne, a dam Active=3DTrue, tak to pis=
e:
> > Invalid field size. Nevite co s tim?
>
> No, mozna jsem prilis velky puritan, ale ja bych misto
> TSQLClientDataSet
> pouzil radsi kombinaci
> TSQLDataSet+TDataSetProvider+TClientDataSet.
>
> Snad by se mi zuzil prostor pro hledani chyby.
>
> Honza
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> =3D HAES - RNDr. Jan Sebelik
> =3D http://www.haes(tec)cz
> =3D Skolici a konzultacni stredisko pro Delphi a Win32
> =3D Vojtiskova 206
> =3D 507 81 Lazne Belohrad
> =3D tel. 493 792 931 (mobil 776 347735)
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ImageList.RedResource
[*] Ji�� Baudy� - 7.2.2003 16:47:28
Kr=E1sn=E9 p=E1te=E8n=ED odpoledne,
d=ECl=E1m jakousi aplikaci kde m=E1m v resource obr=E1zky a po=F8ebuji je=
na=E8=EDst do
ImageList-u. V=B9e je v podstat=EC OK, a=BE na to, =BEe na=E8en=E9 obr=E1=
zky se "zdrcnou"
na 16 barev ? (alspo=F2 m=F9j pocit).
Tu=B9=EDte nekdo co s t=EDm ?
D=EDky
Jirka
Borland IDE pro .NET bude ...
[*] Petr Langer <langer(zv)xdom(tec)cz> - 7.2.2003 16:48:44
Nemuzu si pomoct, ale kdyz to na prvni pohled (podle obrazku) srovnam se
SharpDevelopem, ktery je OpenSource... :-)
Uz se jinak vi, jak to bude s Delphi.NET ? Myslim tim stabilni kompilator
Delphi kod --> MSIL ?
Petr Langer
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 07, 2003 3:33 PM
Subject: Re: Borland IDE pro .NET bude ...> From: "Burkovsky Ladislav" <Ladislav.Burkovsky(zv)autinform.de>
> > V utorok a stredu som bol na dot.net konferencii vo Franfurkte a videl
som
> > ten Sidewinder. Je to velmi podobne Visual studiu. Pre delphistov bude
>
> Prvni screenshoty http://www.drbob42.net/SideWinder/
>
> Petr Vones
>
Validace cisla uctu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 7.2.2003 16:58:01
Cislo uctu je dlouhe 16 znaku,=20
sklada se ze dvou casti:
a) predcisli 6 znaku
b) cislo uctu 10 znaku.
tj. tvar je XXXXXXYYYYYYYYYY
zapisuje se XXXXXX-YYYYYYYYYY
Na obe se algoritnus aplikuje zvlast !
tj. 10 znaku z prava=20
a samostatne na nasledujicich 6 znaku !
obe kontroly musi dopadnout OK !
PLATI POUZE PRO CISLA UCTU V CR !!
Casto se pouziva zapis XXX-XXXXXXX (pocet cislic v=20
jednotlivych castech je libovolny) tj. zapisi se pouze cislice lisici se =
od
nuly !
Nektere banky pouzivaji zapis XXXX-YYYYY-ZZZ (pocet cislic v=20
jednotlivych castech je libovolny) !
Potom je treba
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Pokud jsou v cisle uctu pomlcky je nutno rozhodnout zda jsou :
a) v zakladni casti (nejcasteji na 2 nebo 3=20
pozici z prava, oddelujici cislo pobocky) to staci vyhodit.
b) oddelovac predcisli a cisla uctu ( nejcasteji nekde za 6 mistem zprava=
)
v tom pripade v miste pomlcky retezec rozdelime rozdelime
a pocitame obe castti zvlast:
tj. zprava az k pomlcce
zprava od pomlcky az zcela doleva
Pavel
> From: Vladislav Cadsky [mailto:delphi(zv)cadsky(tec)cz]
> Ahoj, posilam funkci kterou pouzivam ovsem mam stale problem=20
> s pomlckou v
> cisle. Nebezi to na 100 %
> Vlada
>=20
> //------------------------------------------------------------
> --------------
> ----
> {
> Zaji=B9ten=ED c=EDsel =FActu modulo 11
> V mezibankovn=EDm platebn=EDm styku mus=ED b=FDt podpole prvn=ED c=E1st=
=20
> c=EDsla =FActu a
> druh=E1 c=E1st c=EDsla =FActu v pol=EDch UD: a UK: zaji=B9tena modulo 1=
1 s vahami
> uveden=FDmi v n=E1sleduj=EDc=ED tabulce.
> Algoritmus kontroly c=EDsla ABCDEFGHIJ na modulo 11:
> C=EDslice A B C D E F G H I J
> V=E1hy*) 6 3 7 9 10 5 8 4 2 1
> *)Pozn.: V=E1hy jsou z=EDsk=E1ny jako rozd=EDl n-t=E9 mocniny 2 a=20
> nejbli=BE=B9=EDho ni=BE=B9=EDho
> n=E1sobku 11.
>=20
> V=E1hy se k c=EDslic=EDm na jednotliv=FDch pozic=EDch c=EDsla =FActu=20
> prirazuj=ED zprava.
> C=EDslo ABCDEFGHIJ je zaji=B9teno modulo 11, pokud je soucet S beze zby=
tku
> deliteln=FD 11, pricem=BE
> }
> // zadej cislo uctu bez kodu banky
> function JeUcetMudulo11(AcUctu :String) :Boolean;
> var
> n, x :Integer;
> const
> cnDelkaUctu =3D 10;
> pole :Array[0..9] of Integer =3D (6, 3, 7, 9, 10, 5, 8,=20
> 4, 2, 1);
> begin
> // odstraneni pomlcky na tretim a ctvrtem miste
> if pos('-', AcUctu)=3D3 then AcUctu :=3D copy(AcUctu, 4, 10);
> if pos('-', AcUctu)=3D5 then AcUctu :=3D copy(AcUctu, 6, 10);
> // odstraneni ostatnich pomlcek
> //AcUctu :=3D NahradStr(AcUctu, '-', '');
> // doplneni nul do poctu 10
> for n:=3Dlength(AcUctu) to cnDelkaUctu-1 do
> AcUctu :=3D '0'+AcUctu;
> //
> x :=3D 0;
> for n:=3D0 to cnDelkaUctu-1 do
> x :=3D x + (StrToInt(AcUctu[n+1]) * pole[n]);
> //
> result :=3D (x/11) - Trunc(x/11) =3D 0;
> end;
>=20
> ----- Original Message -----
> From: "Vaclav Riha - Soft Consult" <vaclav_riha(zv)softconsult(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, February 07, 2003 10:02 AM
> Subject: Validace cisla uctu
>=20
>=20
> Na overeni spravnosti cisla uctu (bankovniho) existuje nejaky=20
> algoritmus.
> Neznate ho nekdo. D=EDky.
>=20
> S pozdravem Vaclav Riha
>=20
>=20
>=20
>=20
Borland IDE pro .NET bude ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2003 17:18:42
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Nemuzu si pomoct, ale kdyz to na prvni pohled (podle obrazku) srovnam se
> SharpDevelopem, ktery je OpenSource... :-)
A ktery ma tak vyborny debugger ;-)
> Uz se jinak vi, jak to bude s Delphi.NET ? Myslim tim stabilni kompilator
> Delphi kod --> MSIL ?
Prekladac bude, jeho betaverzi mas v krabici s Delphi 7 a update pak na webu.
Petr Vones
Re[2]: sqlite a dbExpress
[*] Martin Falta <martin(zv)aprog(tec)cz> - 7.2.2003 17:21:41
Hello Michal,
MA> No pokud mi popisete jak to udelat, rad to tak udelam, jsem zacatecnik
MA> a myslim, ze SQLite jinak nez pres dbExpress rozchodit nejde.
ale pujde: http://www.torry.net/db/direct/db_directsql/sqlitedb.zip
MA> s pozdravem
MA> michal aichinger
MA> On 6 Feb 2003 at 17:17, Jan Sebel�k wrote:
>> > Odes�latel: Michal Aichinger <michal.aichinger(zv)talk21.com>
>> > Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=True.
>> > Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
>> > dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
>> > se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky
>> > ani sloupce. Pokud dotaz zapisu rucne, a dam Active=True, tak to pise:
>> > Invalid field size. Nevite co s tim?
>>
>> No, mozna jsem prilis velky puritan, ale ja bych misto
>> TSQLClientDataSet
>> pouzil radsi kombinaci
>> TSQLDataSet+TDataSetProvider+TClientDataSet.
>>
>> Snad by se mi zuzil prostor pro hledani chyby.
>>
>> Honza
>> =========================================
>> = HAES - RNDr. Jan Sebelik
>> = http://www.haes(tec)cz
>> = Skolici a konzultacni stredisko pro Delphi a Win32
>> = Vojtiskova 206
>> = 507 81 Lazne Belohrad
>> = tel. 493 792 931 (mobil 776 347735)
>> =========================================
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
Tisk stromu TreeView
[*] J�n Harman <harman(zv)volny(tec)cz> - 7.2.2003 17:47:22
Ja myslim ze by to slo celkem inteligentne pomoci dvou, tri bitmap,
vytisknout i QuickReportem.
J=E1n Harman, Brno, harman(zv)volny(tec)cz
Ano, ale problem je v tom, ze se mi nechce psat nejaky slozity tisk, kter=
y
mi bude vykreslovat spojovac=ED cary mezi uzly atd. Zatim to mam tak, ze =
jsem
vysledek natahl do RichEditu, uzly jsem pospojoval pomoci znaku plus,
pomlcka, svislitko, ale nevypada to uplne dobre. Takze muj problem by
vyresilo i to, kdybych dokazal v RichEditu pouzit graficke znaky pro roh,
rovnou caru, svislou caru. Zmenou fontu to nejde a udelat zmenu char setu
jen pro oznacenou cast textu se mi take nepodarilo.
Budu vdecny za kazdou radu.
Diky, Marek Dostal
> > Pros=EDm o radu, jak nejl=E9pe vytisknout rozvinut=FD TreeView? Je na
> > to n=ECjak=E1 komponenta nebo n=ECjak=FD rozmun=FD zp=F9sob?
>
> Vetsina komponent typu TreeView me metodu SaveToFile. Vysledkem je text=
ovy
> soubor, ve kterem jsou jednotlive node na jednotlivych radcich a posunu=
te
> tabelatory, takze soubor vypada jako kompletne rozbaleny strom. Zkus to
pres
> tento soubor.
ImageList.RedResource
[*] Ji�� Binder<j.binder(zv)albacon(tec)cz> - 7.2.2003 19:06:25
=3E d=ECl=E1m jakousi aplikaci kde m=E1m v resource obr=E1zky a po=F8ebuji je=
na=E8=EDst do
=3E ImageList-u=2E V=B9e je v podstat=EC OK=2C a=BE na to=2C =BEe na=E8en=E9=
obr=E1zky se =22zdrcnou=22
=3E na 16 barev =3F =28alspo=F2 m=F9j pocit=29=2E
Prikladam proceduru=2C ktera mi funguje=2E Nacita bitmapu ze zdroju v dll=2C=
je-li zadan hres=2C
nebo z resourcu volajici aplikace=2E
Pro zachovani barev je podstatne pouziti InsertMasked=2E
Jiri Binder
procedure LoadImages=28HRes=3A THandle=3B ResName=3A string=3B Count=3A=
integer=3B IML=3A TImageList=29=3B
var
BMP=3A TBitmap=3B
HResInfo=3A THandle=3B
ResType=3A PChar=3B
begin
if Hres =3D 0 then Hres =3A=3D hInstance=3B
=2F=2F HResInfo =3A=3D FindResource=28hRes=2C PChar=28ResName=29=2C ResType=
=29=3B
=2F=2F if HresInfo =3D 0 then Exit=3B
BMP =3A=3D TBitmap=2ECreate=3B
try
BMP=2ETransparent =3A=3D True=3B
BMP=2ETransparentMode =3A=3D tmAuto=3B
BMP=2ELoadFromResourceNAme=28hRes=2C ResName=29=3B
IML=2EClear=3B
IML=2EHeight =3A=3D BMP=2EHeight=3B
if Count =3D 0 then
IML=2EWidth =3A=3D BMP=2EHeight
else
IML=2EWidth =3A=3D BMP=2EWidth div Count=3B
IML=2EMasked =3A=3D True=3B
IML=2EBkColor =3A=3D clNone=3B
IML=2EDrawingStyle =3A=3D dsNormal=3B
IML=2EInsertMasked=280=2C BMP=2C BMP=2ETransparentColor=29=3B
finally
BMP=2EFree=3B
end=3B
end=3B
SetLength a array of char
[*] <bukaj(zv)iol(tec)cz> - 7.2.2003 21:21:52
Dobry den,
muzete mi prosim poradit, co je spatne na tomhle kodu?
Vzdycky mi to hodi AV na radku s druhym SetLength.
var FS: TFileStream;
Buffer: array of char;
begin
FS := TFileStream.Create('soubor.dat', fmOpenRead);
try
SetLength(Buffer, 4);
FS.Read(Buffer, 4);
SetLength(Buffer, 6); // tady
FS.Read(Buffer, 6);
finally
FS.Free;
end;
end;
SetLength a array of char
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.2.2003 22:43:45
7.2.2003 bukaj(zv)iol(tec)cz:
> Dobry den,
> muzete mi prosim poradit, co je spatne na tomhle kodu?
> Vzdycky mi to hodi AV na radku s druhym SetLength.
> var FS: TFileStream;
> Buffer: array of char;
> begin
> FS := TFileStream.Create('soubor.dat', fmOpenRead);
> try
fs.Position := 0;
> SetLength(Buffer, 4);
> FS.Read(Buffer, 4);
> SetLength(Buffer, 6); // tady
> FS.Read(Buffer, 6);
> finally
> FS.Free;
> end;
> end;
Je treba nastavit ukazatel pozice na 0
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
SetLength a array of char
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 7.2.2003 22:48:33
> FS.Read(Buffer, 4);
Kdyz uz takhle, tak bych dal radeji
FS.Read(Buffer[0],4);
jinak se Ti prepise ukazatel, ne data.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Moznosti paradox-u ?
[*] Alex Bugala <bugala_a(zv)post.sk> - 8.2.2003 00:25:50
Dobry den,
pri vytvarani svojej aplikacie, ktora pouziva databazu PARADOX, som
narazil na nasledovny problem.
Na formulary mam Edit, niekolko DBMemo-v a jeden DBGrid.
Po zadani nazvu do Editu a naslednom stlaceni tlacidla OK, sa otvori
prislusna tabulka (paradox) a do DBMemo-v sa nacitaju prislusne udaje
podla nadstaveneho DataField-u. Jedna sa o udaje, ktore sa nemenia a
ani sa dalsie nepridavaju.
(Pr.: datum narodenia, miesto narodenia,
...)
Avsak v DBGrid-e su nacitane udaje, ku ktorym sa pridavaju nove udaje.
(Pr.: datum ockovania, Meno veterinara, pouzita vakcina, doba ucinku,
cena ....)
Ide mi o to, aby som mohol pridavat iba udaje, ktore budu zobrazene v
DBGrid-e, a pri posuvani sa po riadkoch boli povodne udaje v DBMem-ach
stale viditelne!
Chcem sa spytat, je to mozne v dtb PARADOX ?
Ak ano, ako to mam vyriesit?!
Ak nie, co mam pouzit?
Aplikacia bude nainstalovana len na jednom (mojom) PC, ziadna siet
a pod.
Za vsetky odpovede dakujem,
Alex
________
Pocitacove hry? http://hry.sme.sk
Re[2]: sqlite a dbExpress
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 08.2.2003 12:04:56
a jak to potom napojim na nejaky DBGrid?
michal aichinger
> Hello Michal,
>
> MA> No pokud mi popisete jak to udelat, rad to tak udelam, jsem zacatecn=
ik
> MA> a myslim, ze SQLite jinak nez pres dbExpress rozchodit nejde.
> ale pujde: http://www.torry.net/db/direct/db_directsql/sqlitedb.zip
>
> MA> s pozdravem
> MA> michal aichinger
>
> MA> On 6 Feb 2003 at 17:17, Jan Sebel=EDk wrote:
>
> >> > Odes=EDlatel: Michal Aichinger <michal.aichinger(zv)talk21.com>
> >> > Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=3DTrue.
> >> > Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
> >> > dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
> >> > se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky
> >> > ani sloupce. Pokud dotaz zapisu rucne, a dam Active=3DTrue, tak to =
pise:
> >> > Invalid field size. Nevite co s tim?
> >>
> >> No, mozna jsem prilis velky puritan, ale ja bych misto
> >> TSQLClientDataSet
> >> pouzil radsi kombinaci
> >> TSQLDataSet+TDataSetProvider+TClientDataSet.
> >>
> >> Snad by se mi zuzil prostor pro hledani chyby.
> >>
> >> Honza
> >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> >> =3D HAES - RNDr. Jan Sebelik
> >> =3D http://www.haes(tec)cz
> >> =3D Skolici a konzultacni stredisko pro Delphi a Win32
> >> =3D Vojtiskova 206
> >> =3D 507 81 Lazne Belohrad
> >> =3D tel. 493 792 931 (mobil 776 347735)
> >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>
>
>
>
>
> --
> Best regards,
> Martin mailto:martin(zv)aprog(tec)cz
>
Linearizace hlasitosti
[*] <kuba.zubaty(zv)centrum(tec)cz> - 08.2.2003 13:12:00
Ahoj, potreboval bych k ActiveX mediaplayeru udelat ovladani=20
hlasitosti, ale neznam presne rovnici.=20
Pomoci excelu jsem zjistil:=20
Volume:=3D692,17*Ln(x)-3087,7;
Ale to se netvari uplne presne. Nevite jaky je presny tvar teto=20
rovnice, nebo jak jinak linearizovat?
Diky
--------------------
Darujte k Valent=FDnu Modr=E9 z nebe od Orionu. Po=B9lete zdarma p=F8=E1=
n=ED, loga a melodie na mobil! http://user.centrum(tec)cz/redir.php?url=3Dh=
ttp://www.orionmodreznebe(tec)cz=20
Re[4]: sqlite a dbExpress
[*] Martin Falta <martin(zv)aprog(tec)cz> - 8.2.2003 16:48:37
Hello Michal,
tohle na DB-aware komponenty nenapojis. Osobne si myslim, ze je lepsi
se DB-aware komponentam vyhnout.
Saturday, February 8, 2003, 12:04:56 PM, you wrote:
MA> a jak to potom napojim na nejaky DBGrid?
MA> michal aichinger
>> Hello Michal,
>>
>> MA> No pokud mi popisete jak to udelat, rad to tak udelam, jsem zacatecnik
>> MA> a myslim, ze SQLite jinak nez pres dbExpress rozchodit nejde.
>> ale pujde: http://www.torry.net/db/direct/db_directsql/sqlitedb.zip
>>
>> MA> s pozdravem
>> MA> michal aichinger
>>
>> MA> On 6 Feb 2003 at 17:17, Jan Sebel�k wrote:
>>
>> >> > Odes�latel: Michal Aichinger <michal.aichinger(zv)talk21.com>
>> >> > Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=True.
>> >> > Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
>> >> > dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
>> >> > se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabulky
>> >> > ani sloupce. Pokud dotaz zapisu rucne, a dam Active=True, tak to pise:
>> >> > Invalid field size. Nevite co s tim?
>> >>
>> >> No, mozna jsem prilis velky puritan, ale ja bych misto
>> >> TSQLClientDataSet
>> >> pouzil radsi kombinaci
>> >> TSQLDataSet+TDataSetProvider+TClientDataSet.
>> >>
>> >> Snad by se mi zuzil prostor pro hledani chyby.
>> >>
>> >> Honza
>> >> =========================================
>> >> = HAES - RNDr. Jan Sebelik
>> >> = http://www.haes(tec)cz
>> >> = Skolici a konzultacni stredisko pro Delphi a Win32
>> >> = Vojtiskova 206
>> >> = 507 81 Lazne Belohrad
>> >> = tel. 493 792 931 (mobil 776 347735)
>> >> =========================================
>>
>>
>>
>>
>>
>> --
>> Best regards,
>> Martin mailto:martin(zv)aprog(tec)cz
>>
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
Zaokrouhlovani a verze OS
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.2.2003 18:23:44
> Odes=EDlatel: Rumcajs-konfera <konfera(zv)rumcajs.com>
> Potom nechapu jedine: Float =3D Variant?
Typ Float v Object Pascalu neni.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=20
> Desetinna cisla do variantu?
>=20
> Variant je proto Variant, ze "nejak" muze obsahovat jakykoli typ.
> Viz type TVarData (myslim).
>=20
> Desetinna cisla (co to je desetinne cislo?) muzes ukladat do rady =
vhodnych
> typu:
> Single, Double, Real, Real48, Extended, Currency, ...
> (Object Pascal Language Guide)
>=20
> viz Zakladni kurz Delphi
>=20
> Honza
>=20
>=20
>=20
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Re[4]: sqlite a dbExpress
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 08.2.2003 21:25:44
No a proto jsem se ptal na to proc mi to nechodi s DBExpress. Je pro
to udelana DLL, ale nevim jak to mam zbusit, aby to behalo, protoze pri
jakemkoli nazvu tabulky, a typu ctTable, to rika Invalid field size. Navi=
c
pri pokusu o pristup do Mysql, to hazi nejake Exception(zamena
connection SQLite za MySQL), fakt nevim
michal aichinger
On 8 Feb 2003 at 16:48, Martin Falta wrote:
> Hello Michal,
>
> tohle na DB-aware komponenty nenapojis. Osobne si myslim, ze je lepsi
> se DB-aware komponentam vyhnout.
>
> Saturday, February 8, 2003, 12:04:56 PM, you wrote:
>
> MA> a jak to potom napojim na nejaky DBGrid?
>
> MA> michal aichinger
>
> >> Hello Michal,
> >>
> >> MA> No pokud mi popisete jak to udelat, rad to tak udelam, jsem zacat=
ecnik
> >> MA> a myslim, ze SQLite jinak nez pres dbExpress rozchodit nejde.
> >> ale pujde: http://www.torry.net/db/direct/db_directsql/sqlitedb.zip
> >>
> >> MA> s pozdravem
> >> MA> michal aichinger
> >>
> >> MA> On 6 Feb 2003 at 17:17, Jan Sebel=EDk wrote:
> >>
> >> >> > Odes=EDlatel: Michal Aichinger <michal.aichinger(zv)talk21.com>
> >> >> > Delphi 6. Podle ni pridam TSQLConection. NAstavim Connected=3DTr=
ue.
> >> >> > Potom dam TSQLClientDataSet nastavim mu DBConnection, ale kdyz
> >> >> > dam CommandType ctQuery, tak kdyz kliknu na CommandText, objevi
> >> >> > se okno pro tvorbu dotazu. V tomto okne se mi ale nezobrazi tabu=
lky
> >> >> > ani sloupce. Pokud dotaz zapisu rucne, a dam Active=3DTrue, tak =
to pise:
> >> >> > Invalid field size. Nevite co s tim?
> >> >>
> >> >> No, mozna jsem prilis velky puritan, ale ja bych misto
> >> >> TSQLClientDataSet
> >> >> pouzil radsi kombinaci
> >> >> TSQLDataSet+TDataSetProvider+TClientDataSet.
> >> >>
> >> >> Snad by se mi zuzil prostor pro hledani chyby.
> >> >>
> >> >> Honza
> >> >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> >> >> =3D HAES - RNDr. Jan Sebelik
> >> >> =3D http://www.haes(tec)cz
> >> >> =3D Skolici a konzultacni stredisko pro Delphi a Win32
> >> >> =3D Vojtiskova 206
> >> >> =3D 507 81 Lazne Belohrad
> >> >> =3D tel. 493 792 931 (mobil 776 347735)
> >> >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> >>
> >>
> >>
> >>
> >>
> >> --
> >> Best regards,
> >> Martin mailto:martin(zv)aprog(tec)cz
> >>
>
>
>
>
>
> --
> Best regards,
> Martin mailto:martin(zv)aprog(tec)cz
>
DDL prikazy a transakcie
[*] Roland Turcan <rotursoft(zv)post.sk> - 08.2.2003 22:13:00
Hello Delphi CZ konferencia!
Momentalne sa mi objavila jedna chyba pri update databazy. Informacie
o verzii databazy si pisem do tabulky.
Zjednoduseny kod:
1.zahaj transakciu
try
2.prikaz na zmenu databazy
3.zaprotokoluj mi updatovanie do tabulky (insert to tabulky)
4.commit
except
5.rollback
end;
lenze sa stalo to, ze sa mal pridat Constraint na tabulku a on sa sice
pridal, ale asi nieco (neviem co) sa stalo a 3. bod kodu sa nevykonal,
lebo s chybou isiel na 5 bod a rollbackol ho.
Ako postupovat, alebo co sa mohlo stat, ze mi nezbehol
--
Best regards, TRoland
Filt v tabulce pro DBGrid
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.2.2003 10:03:18
Zdravim,
mam DBGrid, kde jsou oznaceny nektere zaznamy pomoci
SelectedRows.CurrentRowSelected.
Potrebuji udelat Filtr pro tabulku oznacenych zaznamu, abych videl pouze
oznacene zaznamy.
Diky za podnet
Pavel ZIDEL
Prenos videa cez net (realtime)
[*] delphi(zv)szm.sk - 9.2.2003 10:44:33
Ahojte
Chcel by som sa vas spytat, ci nahodou niekto nevie nejake komponenty na prenos videa cez net, v realnom case (client/server), myslim, nieco ako netmeeting, alebo podobne, alebo nejaku dokumentaciu, alebo odkazy. Este by bolo super, keby sa to dalo zakodovat, ale to uz je asi moc:-)
Diky moc
IBHoney :-)Jak na datetime ??
[*] <tomsir1.edu(zv)mail.cez(tec)cz> - 9.2.2003 11:09:57
Ahoj,
proc mi delphi stale nuti 31.12.1899, kdyz mam v db zaznam 0000-00-00 ???
Lze to obejit/umravnit delphi a popripade jak ??? Na formu si to opravit dokazu, ale v quickreportu to muze byt problem ...
Diky Radek
Filt v tabulce pro DBGrid
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 9.2.2003 11:20:50
> Odes=EDlatel: Pavel ZIDEK <delphi(zv)kopr(tec)cz>
> mam DBGrid, kde jsou oznaceny nektere zaznamy pomoci
> SelectedRows.CurrentRowSelected.
> Potrebuji udelat Filtr pro tabulku oznacenych zaznamu, abych videl =
pouze
> oznacene zaznamy.
Ja se obavam, ze tento pozadavek jde uz za ramec relacnich databazi.
At filtruju pomoci "select...where..." nebo pomoci property Filter, =
predpoklada se, ze budu znat nejakou smyslupnou podminku.
Jedinou cestu vidim v "posbirani" vsech vybranych zaznamu a sestaveni =
filtrovaci podminky (treba pres primarni klic), ktera bude obsahovat 50x =
"or".=20
Anebo v selectu "where ID in (vycet 50 ID oddelenych carkami...).
Dost velke zverstvo.
Tohle je spis uloha pro CheckListBox nebo pro multiselect ListBox.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Jak na datetime ??
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 9.2.2003 11:25:46
> Odes=EDlatel: tomsir1.edu(zv)mail.cez(tec)cz
> proc mi delphi stale nuti 31.12.1899, kdyz mam v db zaznam 0000-00-00 =
???
> Lze to obejit/umravnit delphi a popripade jak ??? Na formu si to =
opravit dokazu, ale v quickreportu to muze byt problem ...
Pokud bude v databazi NULL, pak by Field.asString melo vratit prazdny =
retezec.
Pokud tam bude 0, pak Field.asString vrati 31.12.1899.
Zpusob zobrazeni hodnoty lze jeste ovlivnit v udalosti Field.OnGetText.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Jak na datetime ??
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2003 13:53:23
From: <tomsir1.edu(zv)mail.cez(tec)cz>
> proc mi delphi stale nuti 31.12.1899, kdyz mam v db zaznam 0000-00-00 ???
Viz napoveda k typu TDateTime:
The integral part of a Delphi TDateTime value is the number of days that have
passed since 12/30/1899.
Petr Vones
zavreni datasetu pri table.post u IBTable
[*] Petr Varga <djvar(zv)post(tec)cz> - 09.2.2003 18:20:20
Ahoj.
Pot=F8eboval jsem radu.=20
M=E1m aplikaci, kterou p=F8ed=ECl=E1v=E1m z BDE na interbase/firebird..
No v podstat=EC mi to do te=EF ned=EClalo =BE=E1dn=EC probl=E9my.. A=BE do =
te=EF
kdy jsem narazil na pro m=EC novou v=ECc. Otev=F8u si form, kter=FD m=E1
dbgrid a je propojen=FD p=F8ez datasource na IBTable --> Database. No
kdy=BE jen norm=E1ln=EC proj=ED=BEd=EDm dbgrid, chov=E1 se to st=ECjn=EC ja=
ko BDE..
Ale pokud chci zm=ECnit n=ECjak=FD z=E1znam tak p=F8i zavol=E1n=ED IBTable.=
Post
se mi dataset uzav=F8e. Co=BE se mi zna=E8n=EC nel=EDb=ED a nev=EDm co s t=
=EDm.=20
No jde taky o to, =BEe hned po tom zavol=E1n=ED Post vol=E1m je=B9t=EC
IBTransaction.commit. A to proto, abych hned zm=ECnu poslal na
server a z=E1znam byl okam=BEit=EC zm=ECn=ECn. Kdy=BE bych commit nezavola=
l
tak se dataset nezav=F8e ale data se na serveru nezm=ECn=ED.
Nev=EDte n=ECkdo co s t=EDm?=20
D=ECkuji p=F8edem Petr
Pripojeni disku vzdaleneho pocitace pres internet
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 9.2.2003 21:16:38
Dobry den,
poterboval bych poradit. Na pocitaci, ktery je pripojeny k internetu,
mam spusteny program, vytvoreny v Delphi, k nemu se pres internet pripojim a
chtel bych pomoci techto svych dvou programu posilat nejake soubory. Problem
je v tom, ze se mi nechce nechce psat tak slozity program a tak se chci
zeptat, jestli by neslo nejak nadefinovat sdileni disku pres internet primo
ve windows. Nejlepe, aby to slo pomoci Delphi potom zapnou a vypnout. Predem
diky za odpoved
Pripojeni disku vzdaleneho pocitace pres internet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2003 21:28:32
From: "Ale� Kresta" <kresta.ales(zv)seznam(tec)cz>
> poterboval bych poradit. Na pocitaci, ktery je pripojeny k internetu,
> mam spusteny program, vytvoreny v Delphi, k nemu se pres internet pripojim a
> chtel bych pomoci techto svych dvou programu posilat nejake soubory. Problem
> je v tom, ze se mi nechce nechce psat tak slozity program a tak se chci
> zeptat, jestli by neslo nejak nadefinovat sdileni disku pres internet primo
> ve windows. Nejlepe, aby to slo pomoci Delphi potom zapnou a vypnout. Predem
> diky za odpoved
Jenze tohle reseni by bylo daleko slozitejsi, navic sluzba sdileni souboru
nemusi byt na tom pocitaci vubec instalovana. Prenos souboru je vcelku snadny,
mas k tomu plno komponent a knihoven (TTcpClient/Server, WinInet, Indy,
Synapse ...)
Petr Vones