Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Dva dotazy (Alignment ; QReport)
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 13.2.2002 18:39:22
Zdravim,
tentokrat jsem si vymyslel dva dotazy.
1) lze nejak /jak/ vytvorit,ziskat, obejit vlastnost DBEdit alignment
/zarovn�n�/ ??
ja tuto vlastnost nasel akorat u Label. V aplikaci mam nekolik DBEdit-u
pod sebou a oprvadu to nevypada pekne, kdyz je "kazdy pes jina ves"
2)QReport pouzivam k tisku.
Mam Qreport,DetailBand, na kterym jsou umisteny QRLabel-y. Nekolik
techto QRlabel-u doplnuju pred QReport.PreviewModal.
Bohuzel mi aplikace casto spadne prave pri QReport.PreviewModal a nahlasi
to:
"A call to an OS function failed."
Pak aplikace funguje,ale nevytisknu nic. Jedina cesta je vypnout aplikaci,
objevi se dve systemove chybove hlaseni jako ze Aplikace XY.exe provedla
neplatnou operaci a ... a pak dalsi, ze doslo k chybe na nejake adrese a
zase klasicke hlasky.
Driv jsem pouzival jen QReport.Preview jenze uz tenkrat me to zlobilo, tak
jsem vas tady ptal co s tim a jedna dobra duse mi odpovedela, ze se s timhle
problemem setkal, a ze stacilo v jeho pripade pouzivat QReport.PreviewModal.
U me ne.
Co s tim???
Diky
Jirka
SOKOL
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
Komponenta - vlastnosti
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 13.2.2002 18:47:47
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 6:21 PM
Subject: Komponenta - vlastnosti
> Ahoj
> chcel by som pocas runtime vytvorit
> jednu komponentu resp.jej instanciu.
> Ta komponenta je vizualna a podobne ako
> napr SpeedButton ked si ju zobrazim ako
> text ma jednu z vlastnosti = data ako napr.:
> Glyph.Data = {
> EE000000424DEE0000000000000076000000280000000D0000000F0000000100
> 04000000000078000000120B0000120B00001000000000000000000000000000
> ........
> Ked si tu komponentu dam na form tie data
> sa tam vlozia automaticky
> ale ja ju chcem vytvorit az v runtime
> a pokial tie data nezadam nezobrazi sa.
>
> <problem>A samozrejme tie data zadata neviem, pretoze taka vlastnost
> ako Komponenta.Data neexistuje rovnako ako neexistuje ani
> SpeedButton.Glyph.Data</problem>
>
Ahoj.
Napadaji mne dve veci :
1) Glyph take musis jak pri navrhu tak pri runtime odnekud natahnout
2) Neni to nahodou tim, ze nezadas parenta ?
procedure TForm1.Button1Click(Sender: TObject);
var x : TSpeedButton;
begin
x := TSpeedButton.Create(self);
x.Glyph.LoadFromFile('C:\Dokumenty\Delphi\Glyphs\1\copy.bmp');
// Cili tady taky musis nejak ziskat "data".
// mozna ve tvem pripade to muze byt tazeno z resourcu.
// koukni na neco jako LoadFromResourceName nebo LoadFromResourceID
x.Left := 10;
x.Top := 10;
x.Parent := Form1;
// pokud nedas parent, tak se button nezobrazi
end;
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
Spusteni dalsi SP v ramci transakce
[*] Rado Benc <bego(zv)pobox.sk> - 13.2.2002 18:57:16
Nazdar,
> v ulozene procedure v IB6 vytvorim zaznam. V te same procedure
> spustim dalsi
> ulozenou proceduru, ktera do prave vytvoreneho zaznamu potrebuje zapsat
> nejake udaje.
IMHO je v tejto situacii lepsie pouzit BEFORE INSERT trigger.
Typickym pouzitim BEFORE INSERT triggra je manipulacia s polozkami
zaznamu pri jeho vlozeni - napriklad prepocty hodnot, tahanie dat z
inych tabuliek na zaklade poloziek retazca apod.
> Bohuzel to zarve na deadlock. Da se nejak nastavit, aby se
> vsechno, co se provadi v procedure provadelo v ramci jedne
> transakce /tj. i procedury spustene v hlavni procedure/?
Za normalnych okolnosti sa procedura vykonava v ramci transakcie
(teda aj procedury, ktore tato procedura vola sa vykonavaju v ramci tej
istej transakcie). Stored procedura neukoncuje ani nijak inak neovplyvnuje
transacnu kontrolu - ani nemoze, pricinu deadlocku by som teda hladal inde.
Inymi slovami, vsetko, co sa prevadza v procedure sa prevadza v ramci
jednej transakcie.
> Nebo je nejake jine reseni?
Pomohlo by viac informacii - IB / FB verzia, platforma, cokolvek,
coho by sa dalo chytit...
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - urcujeme trendy
OT: MDB
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.2.2002 18:59:38
Puvodni zprava, kterou napsal Bednar��k Dalibor dne 13 Feb 2002:
> Snazim se otevrit MDB soubor. Ale porad mi to hlasi, ze nemam opravneni ho
> otevrit, pritom to nechce zadne heslo. Kde se nastavuji nejake ty
> opravneni? Muzete mi s tim poradit?
Tak to je MDB zabezpecena systemem pristupu, musis mit systemovy soubor a
prihlasit se jmenem/heslem.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================porovnani IBObjects a FIBPlus
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.2.2002 19:00:13
>ahoj,
>
>po prednasce na seminari jsem dospel k rozhodnuti,
>ze je nacase opustit IBX (z duvodu budouci podpory
>FireBirdu) a vybrat jine vhodne komponenty.
>
>poohlizel jsem se po IBO a FIBP.
>byl bych velmi vdecny, kdyby ti kteri je pouzivaji
>zodpovedne napsali co si na nich nejvice cenite,
>co vam naopak nejvice vadi a nejlepe i duvod,
>ktery vas vedl k te vasi volbe.
Mam FIBPlus a pouzivam hlavne FIBQuery (nema predka TDataset) s ruznymi
MemoryTables a gridy apod v "balickove" aplikaci. Pouzival jsem stejnym
zpusobem IBO, ale docetl jsem
se, ze pro mensi objemy dat jsou FIB rychlejsi a musim s tim souhlasit
(mozna jsem jenom spatne pouzival IBO :-)).
Zatim mi vadi pouze to, ze lokalni setrideni nepodporuje collation...
>osobne to zatim vidim spis na IBO, byt za vyssi cenu,
>ale neuveritelny komfort, vcetne exportu do txt a dbf,
>vlastnich dbAware komponent a spousty dalsich vychytavek.
>
>FIBP jsou spise jednodussi a IBX velmi podobne, vzdyt maji
>konec koncu stejny pocatek ve FreeIB komponentach.
Me to prijde, ze FIBP jsou komponenty pro pristup k IB, kdezto IBO je
"vsechnomozne"
pro IB ;-)
Nejake srovnani byly i na www.devrace.com
Roman
jedna instance
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 13.2.2002 19:00:30
From: "Zden�k �t�p�nek" <zstepanek(zv)atlas(tec)cz>
> Diky za upozorneni, to me nenapadlo, ja myslel,
> ze tam muze byt cokoliv.
Takze mozna je na case si neco precist o tom, jak vlastne tech
"Tvych 5 radku" vlastne funguje ;-)
Bye, pf
nakup a technicka podpora u IBObjects
[*] miromr <miromr(zv)hotmail(tec)com> - 13.2.2002 19:18:54
Ahoj
napr. firma www.jimaz(tec)cz ti zaisti registraciu komponent, a ty uhradis
fakturu im v KC takze mas aj doklad.
Ja to chapem tak ze po dobu 6 mesiacov mam pristup na www lokalitu, ktoru mi
autor oznamil, od kial si mozem zdarma stahovat co tam je.
Miro
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 4:37 PM
Subject: OT: nakup a technicka podpora u IBObjects
ahoj,
k mym predchozim dotazum pripojim jeste jeden.
chtel bych vedet, jak se vlastne plati. jasne
vyplaznu (ja ne, sef) balik dolaru, ale jak
upgrade, dokumentace a technicka podpora?
dostanu od nich nejaky doklad pro ucetnictvi?
Dva dotazy (Alignment ; QReport)
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 13.2.2002 20:15:30
Zdravim,
u DBEdit nelze z vnejsku zarovnani nijak ovlivnit. Zarovnani se ridi dle
typu promenne, ktere je zase dano tvou tabulkou.
Ja, a myslim ze i ostatni, to delaji tak, ze data zadavaji do normalniho
TEditu - nebo nejake komponente odvozene z TEditu a teprve pak data prevedou
do tabulku.
Lepe se tim i osetruji chyby ze strany uzivatelu, napr. datum, cas, ruzne
Mask apod.
Preju mnoho restartu pri ladeni
pavel
> 1) lze nejak /jak/ vytvorit,ziskat, obejit vlastnost DBEdit alignment
> /zarovn�n�/ ??
> ja tuto vlastnost nasel akorat u Label. V aplikaci mam nekolik DBEdit-u
> pod sebou a oprvadu to nevypada pekne, kdyz je "kazdy pes jina ves"
>
Komponenta - vlastnosti
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 13.2.2002 20:20:31
Zdravim,
tu mas navod co musis obecne vzdy udelat. Priklad je vyrobeni nekolik
buttonu
var
a : Array[1..5] of TSpeedButton;
i: integer;
begin
for i := 1 to 5 do
begin
a[i] := TSpeedButton.create(form1);
a[i].parent := form1; // kam se m� TSpeedButton vytvo�it ...
a[i].top := i * 21; // rozmery
a[i].left := i * 4; // *
a[i].width := i * 10; // *
a[i].height := i * 10; // *
a[i].visible := true; // taky je to treba zviditelnit
end;
end;
Pavel
Jak zjistit Application.MainForm.Handle z DLL
[*] <xwoman2(zv)centrum(tec)cz> - 13.2.2002 21:03:27
Co takhle to udelat obracene a zavolat pred pouzivanim DLL jeji
proceduru init
{initp(application.handle);} ktera vypada takto.
procedure init(h:THandle);
begin
application.handle:=h;
end;
______________________________________________________________
> Od: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:
> Datum: Wed, 13 Feb 2002 07:59:12 +0100
> P�edm�t: Re: Jak zjistit Application.MainForm.Handle z DLL
>
> > > Potreboval bych v knihovne *.dll zjistit handle na hlavni
okno aplikace,
> > > kter� toto *.dll vola.
> > > - Aplikace nemusi byt vytvorena v Delphi
> >
>
> > za teto podminky je to temer neresitelne. V pripade Delphi
aplikace totiz
> lze
> > zjistit jen skryte okno TApplication a ne hlavni okno
aplikace ktere je ve
> VCL
> > jako Application.MainForm.Handle.
> >
> > Petr Vones
> >
>
> Ahoj
>
> Zkusim to tedy jinak:
>
> Kdyz na DESKTOPu najdu 2 okna programu, kter� hled�m,
> jak zjistim, kter� z nich spustil moji knihovnu *.dll ?
>
> Je pravdepodobne, ze obe instance programu moje *.dll
pou��vaj�, ale mne
> zajima
> momentalne jen jedna.
>
> Pavel
>
>
>
-------------------------------
Bronislav Klucka
mail: xwoman2(zv)centrum(tec)cz
ICQ: 109718536
telefon: +420605582922
===== www.centrum(tec)cz doporu�uje =====
Centrum pro milovn�ky pen�z http://finance.centrum(tec)cz
Odpojeni modemu
[*] ing. Pavel V�jtek <vujtek(zv)quick(tec)cz> - 13.2.2002 21:12:50
Prosim o radu jak odpojit z programu vytvorenem v Delphi3 modem.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
OT: nakup a technicka podpora u IBObjects
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 13.2.2002 21:21:32
Haj hou!
Je to proste mily Watsone. Upgrade je placeny (viz. Upgrade
Subscription) na 6 mesicu dopredu. Tzn. ze dostanes kazdy
upgrade, ktery bude vyprodukovan v prubehu techto sesti mesicu.
Zaplacenim produktu / licence mas predplaceno na rok pro male
updaty a na pul roku pro velke (zmena verze).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
MDI aplikace - spusteni vnitrni proc.
[*] <xwoman2(zv)centrum(tec)cz> - 13.2.2002 21:41:05
Nevim, proc tak slozite, proste z te procedury v MDIChildForm
udelat public a do implementation uses MDIMainFormu pridat unitu
pracujici s im MDIChildFormem a je to vyresene...
______________________________________________________________
> Od: Martin �ajbik <cajbik(zv)sct.sk>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:
> Datum: Wed, 13 Feb 2002 12:57:06 +0100
> P�edm�t: Re: MDI aplikace - spusteni vnitrni proc.
>
> Toto spusti proceduru pre i-te MDIChild okno
> if MDIChildren[i] is TMDIForm then
> TMDIForm(MDIChildren[0]).mojaprocedura;
>
> ak to chces spustit pre prave aktivne MDIChild tak potom
> if ActiveMDIChild <> nil then
> if ActiveMDIChild is TMDIForm then
> TMDIForm(ActiveMDIChild).mojaprocedura;
>
> MarCaNT (marcant(zv)sct.sk)
>
>
> Jeste jeden dotaz...
> Mam MDI aplikaci,
> MDIMaster - je form s menu
> MDIForm - je formular ktery se spousti kolikrat chci.
Zobrazuji na nem
> jakesi smlouvy.
> ALE jak mam spustit nejakou proceduru, kterou mam v MDIForm z
hlavniho menu.
>
> MDIChildren[0].mojeprocedura;
>
> nefunguje, muzete mi nekdo prosim poradit ...
> diky, Lubos
>
>
> ===== www.centrum(tec)cz doporu�uje =====
Novinky v automobilov�m sv�t� na:
http://auto.centrum(tec)cz
OT: Delphi & CGI
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 13.2.2002 21:46:25
Ahoj,
chtel bych se zeptat, jestli ma nekdo zkusenosti s psanim CGI v Delphi a jak
v HTML kodu tento CGI skript zavolat. Pripadne ukazky prosim na mail
dmiroslav(zv)seznam(tec)cz
Za ukazky a vubec vsechny rady predem dekuji
Mirek Drancak
P.S. Moc to potrebuji. Diky!Dva dotazy (Alignment ; QReport)
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 13.2.2002 21:55:59
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 8:15 PM
Subject: Re: Dva dotazy (Alignment ; QReport)> Zdravim,
> u DBEdit nelze z vnejsku zarovnani nijak ovlivnit. Zarovnani se ridi dle
> typu promenne, ktere je zase dano tvou tabulkou.
> Ja, a myslim ze i ostatni, to delaji tak, ze data zadavaji do normalniho
> TEditu - nebo nejake komponente odvozene z TEditu a teprve pak data
prevedou
> do tabulku.
> Lepe se tim i osetruji chyby ze strany uzivatelu, napr. datum, cas, ruzne
> Mask apod.
Ahoj.
Jde to.
Napriklad DBedit.Field.Alignment := taCenter;
Ovsem projevi se to na vsech vizualnich komponentach pripojenych na tenhle
Field.
Jinak s tim ze editovat v DBEditu nebo nedej boze v DBGridu neni to uplne
nejlepsi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
Odpojeni modemu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.2.2002 23:07:13
----- Original Message -----
From: "ing. Pavel V�jtek" <vujtek(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 9:12 PM
Subject: Odpojeni modemu
>Prosim o radu jak odpojit z programu vytvorenem v Delphi3 modem.
1) nejdriv zjistit handle na spojeni: RASEnumConnections umozni prochazet
vsechny aktualne navazane spojeni
2) RASHangUp - zavesi spojeni
---
Odchozi/Prichozi (co ja vim) zpr�va obsahuje viry (co kdyby, ze).
>Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
nejakej ten update pozadu :-)
D. Toman
Spusteni dalsi SP v ramci transakce
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.2.2002 23:40:37
>Nazdar,
>IMHO je v tejto situacii lepsie pouzit BEFORE INSERT trigger.
>Typickym pouzitim BEFORE INSERT triggra je manipulacia s polozkami
>zaznamu pri jeho vlozeni - napriklad prepocty hodnot, tahanie dat z
>inych tabuliek na zaklade poloziek retazca apod.
Ja vim, ja tu ulozenou proceduru spustim jen za urcitych okolnosti, tudiz je
zbytecne to davat do triggeru...
> Bohuzel to zarve na deadlock. Da se nejak nastavit, aby se
> vsechno, co se provadi v procedure provadelo v ramci jedne
> transakce /tj. i procedury spustene v hlavni procedure/?
>Za normalnych okolnosti sa procedura vykonava v ramci transakcie
>(teda aj procedury, ktore tato procedura vola sa vykonavaju v ramci tej
>istej transakcie). Stored procedura neukoncuje ani nijak inak neovplyvnuje
>transacnu kontrolu - ani nemoze, pricinu deadlocku by som teda hladal inde.
>Inymi slovami, vsetko, co sa prevadza v procedure sa prevadza v ramci
>jednej transakcie.
No jo, to jsem potreboval potvrdit :-)
Uz jsem se toho problemu zbavil a bohuzel nevim jak... mam podezreni, ze
jsem se pokousel zapsat zaznam, ktery tam uz jednou byl, udelal jsem
backup/restore a je to ok... ale proc to hlasilo deadlock...?
A jinak diky
Roman
Spojeni dvou poli v IBase
[*] ales(zv)kerner(tec)cz - 14.2.2002 06:09:25
Nevite nekdo, jak spojit v IBase dve pole tak, aby se tvarili na vystupu jako
jedno. Chtel bych neco jako select jmeno+' '+prijmeni as celejmeno from tabulka.
dik
Ales
Ulozeni Stringu do pointeru
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 14.2.2002 06:48:07
Uplne presne tomu nerozumim. Znamena to, ze tak jak to mam, to muzu pouzit
bez nejakeho nebezpeci, ze mi bude dochazet ke spatne dealokaci pameti nebo
to musim napsat jinak? Kdyz pouziju Add(muj_string) a priradim ho do
pointeru a pak zase zpet do promenne a udelam muj_string := '', tak je
dealokace v poradku? Co kdyz budu record alokovat pomoci getmem, pre move ho
zkopiruji i s pointerem na string, a pak ho zase vratim zpet (ale jak ho
vratim do lokalni promenne?, pretypuji ho? String(pointer)??)
Diky
Ka.
----- Original Message -----
From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 9:31 AM
Subject: Re: Ulozeni Stringu do pointeru
> > mam pole recordu, kde je pres pointer ukazovano na string. Potrebuji
> > ukazovat na dlouhy string, tak aby se mi potom dobre dealokoval. Jak
> AnsiString je sam o sobe pointer - cil typ polozky bude String;
> Vetsinou se i sam dealokuje (kompilator dela co muze). Pokud delas
> nejaky cunarny (pretypovani oblasti pameti, dynamicke alokace pomoci
> GetMem, atd) pak musis:
> 1) pred prvnim pouzitim prepsat pointry na budouci stringa na NIL
> 2) po ukonceni prace (pred dealokaci struktury) provest:
> promenna.stringmember := '' (tedy nechat odalokovat stringo)
> > type
> > Tjistina=Record
> > ...
> > obsah:Pointer;
> > end;
> > S:='blabla'; {S je lokalni promenna}
> > jistina1.obsah:=Addr(S); {??? je to tak dobre ???}
> Je-li S lokalni promenna ( v nejake funkci) pak po opusteni funkce
> bude dealokovana pamet pouzita pro stringo (pokud nebyla vyrobena
> dalsi reference prirazenim do jine promenne - to ale prirazeni adresy
> do samozrejme neudela)
> D. Toman
Spojeni dvou poli v IBase
[*] voltrr1.epr(zv)mail.cez(tec)cz - 14.2.2002 06:55:57
> jedno. Chtel bych neco jako select jmeno+' '+prijmeni as celejmeno from
tabulka.
No, ja potreboval secist dva stringy v trigeru a nakonec jsem dopadl tak ze
jsem si udelala UDF funkci ktera je secte. Ta by sla pouzit asi i tady
Pokud to nekdo umi i bez funkce (i v trigeru) budu jenom rad, ja to nenasel
Radek Voltr
Spojeni dvou poli v IBase
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2002 06:57:56
select
jmeno || ' ' || prijmeni as celejmeno
from
tabulka
dekuji PeC(zv)OT: Delphi & CGI
[*] voltrr1.epr(zv)mail.cez(tec)cz - 14.2.2002 06:59:33
> chtel bych se zeptat, jestli ma nekdo zkusenosti s psanim CGI v Delphi a
jak
> v HTML kodu tento CGI skript zavolat. Pripadne ukazky prosim na mail
Zkusenosti mam (asi i docela dost ;-)) a odpoved na tvou otazku je
jednoducha
CGI zavolas tak ze ho vlozis do ACTION u FORMu na HTML strance.
napr.
<form action="/scripts/mojecgi.exe" method="GET">
Cus
Radek Voltr
Spojeni dvou poli v IBase
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2002 08:08:33
> No, ja potreboval secist dva stringy v trigeru a nakonec jsem
> dopadl tak ze jsem si udelala UDF funkci ktera je secte.
grumf?
standartni operator zretezeni v SQL je || (dve trubky).
problem muze byt u poli CHAR, kdy se zahovaji mezery
na konci pole. nebo nekdy naopak VARCHAR, kde ty mezery
nejsou. to je ale uz jiny problem :)
dekuji PeC(zv)Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.2.2002 08:22:27
>
> * V DLL muzes zjistit ID procesu do ktereho byla knihovna nahrana
>
> Petr Vones
>
Toto se mi nedari, k dalsim krokum jsem se jeste nedostal.
Pavel
Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.2.2002 08:31:52
> Co takhle to udelat obracene a zavolat pred pouzivanim DLL jeji
> proceduru init
> {initp(application.handle);} ktera vypada takto.
>
> procedure init(h:THandle);
> begin
> application.handle:=h;
>
> end;
>
Toto prave nelze pouzit.Pomale nacitani ze StoredProc u IB
[*] Jirka <W.Jirka(zv)seznam(tec)cz> - 14.2.2002 09:15:43
Ahoj Vsem
Mam nasledujici problem a doufam ze se najde nekdo kdo mi poradi :-)
Pro select z tabulky pouzivam StoredProc.
Ted jsem si tam zkusil dat 1000 zaznamu a zjistil jsem ze Server tu proceduru spousti 0,25 s.
Pokud ovsem pridam za select z tej procedury order by tak ji Server spousti 5s.
Priklad:
SELECT * FROM MY_SP; - tohle trva 0,25s
SELECT * FROM MY_SP order by DATUM - tohle trva 5s :-(
Predem diky za jakoukoliv radu
Jirka
MDI aplikace - spusteni vnitrni proc.
[*] Martin �ajbik <cajbik(zv)sct.sk> - 14.2.2002 09:23:04
To je sice velmi pekne, ale ja som to pisal pre pripad, ze tych MDIForm je
viac a s hlavneho menu sa ma ta procedura volat pre urcite z nich, alebo pre
prave aktivny. Tak som to aspon pochopil z otazky.
MarCaNT (marcant(zv)sct.sk)> Nevim, proc tak slozite, proste z te procedury v MDIChildForm
> udelat public a do implementation uses MDIMainFormu pridat unitu
> pracujici s im MDIChildFormem a je to vyresene...
>
> >
> > Toto spusti proceduru pre i-te MDIChild okno
> > if MDIChildren[i] is TMDIForm then
> > TMDIForm(MDIChildren[0]).mojaprocedura;
> >
> > ak to chces spustit pre prave aktivne MDIChild tak potom
> > if ActiveMDIChild <> nil then
> > if ActiveMDIChild is TMDIForm then
> > TMDIForm(ActiveMDIChild).mojaprocedura;
> >
> > MarCaNT (marcant(zv)sct.sk)
> >
> >
> > Jeste jeden dotaz...
> > Mam MDI aplikaci,
> > MDIMaster - je form s menu
> > MDIForm - je formular ktery se spousti kolikrat chci.
> Zobrazuji na nem
> > jakesi smlouvy.
> > ALE jak mam spustit nejakou proceduru, kterou mam v MDIForm z
> hlavniho menu.
> >
> > MDIChildren[0].mojeprocedura;
> >
> > nefunguje, muzete mi nekdo prosim poradit ...
> > diky, Lubos
> >
> >
> >
>
>
>
>Pomale nacitani ze StoredProc u IB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 14.2.2002 09:33:54
Haj hou!
On 14 Feb 2002, at 9:15, Jirka wrote:
> Ahoj Vsem
>
> Mam nasledujici problem a doufam ze se najde nekdo kdo mi poradi :-)
>
> Pro select z tabulky pouzivam StoredProc.
> Ted jsem si tam zkusil dat 1000 zaznamu a zjistil jsem ze Server tu proceduru spousti 0,25 s.
> Pokud ovsem pridam za select z tej procedury order by tak ji Server spousti 5s.
>
> Priklad:
> SELECT * FROM MY_SP; - tohle trva 0,25s
> SELECT * FROM MY_SP order by DATUM - tohle trva 5s :-(
>
> Predem diky za jakoukoliv radu
Je to logicke mily Watsone. Prvni zapis cte vzdy jednu vetu, uspi
proceduru a pri pozadavku na dalsi vetu ji opet probudi za
SUSPEND. Druhy zapis precte vsechna data a setridi je do
temporary souboru, odkud je pak posila klientovi. Diky mensimu
prepinani kontextu je druhy pripad rychlejsi (ale pouze pokud je
volan z klienta, pri volani z jine ul. proc. nebo triggeru to bude tak
nastejno).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Pomale nacitani ze StoredProc u IB
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.2.2002 09:36:07
----- Original Message -----
From: "Jirka" <W.Jirka(zv)seznam(tec)cz>
> Ahoj Vsem
>
> Mam nasledujici problem a doufam ze se najde nekdo kdo mi poradi :-)
>
> Pro select z tabulky pouzivam StoredProc.
> Ted jsem si tam zkusil dat 1000 zaznamu a zjistil jsem ze Server tu
proceduru spousti 0,25 s.
> Pokud ovsem pridam za select z tej procedury order by tak ji Server
spousti 5s.
>
> Priklad:
> SELECT * FROM MY_SP; - tohle trva 0,25s
> SELECT * FROM MY_SP order by DATUM - tohle trva 5s :-(
Ahoj.
No v prvnim pripade se provede optimalizovany dotaz a ve druhem pripade to
server musi navic pretridit.
Zkus :
1) pokud to potrebujes tridit podle datumu porad pak to order by zabuduj
primo do procedury, melo by to byt sviznejsi
2) nevim jak vypada tvije SP uvnitr, ale zkus treba pridat nejaky index k
tabulkam
3) Pokud potrebujes tridit podle vice podminek ale neni jich moc udelej si
procedury via bod 1 pro vsechny moznosti (MY_SP_ByDatum, MY_SP_ByNeco ....
2) setridit az na klientovi - to ovsem celkove asi rychlost nezvysi
Celkove to ale spis svedci o neprilis dobrem datovem modelu aplikace.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
sql z dvoch databaz
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 14.2.2002 09:41:52
Ahoj,
a co zkusit si tabulku z druhe databaze prilinkovat do databaze prvni a tam
pracovat tak jako by tam dana tabulka ve skutecnosti existovala.
Prilinkovani lze udelat v MS Access nabo programove. Tento postup je i
doporucovan v MS Access helpu.
Petr
----- Original Message -----
From: "Mato" <mato.tino(zv)inmail.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 08, 2002 10:02 AM
Subject: Re: sql z dvoch databaz
> > Hi,
> >
> > mam dve tabulky acces kazdu v inom subore MDB. Pristupujem k nim cez
> > DAOQuery. Chcel by som napisat sql v ktorom ich spojim. Ide mi to ale
iba
> ak
> > su obe tabulky v jednom subore mdb. Da sa to nejak inak ?
> >
> > tu je sql funguje z dvoma tabulkami v jednom subore mdb
> >
> > SELECT info_dennik.C_ZAKAZKY, evid_zak.zakazka
> >
> > FROM info_dennik LEFT JOIN evid_zak ON info_dennik.C_ZAKAZKY =
> > evid_zak.zakazka;
> >
> >
> >
> > vdaka
> >
> >
> >
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
OT podivne chovani NT 4.0
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 14.2.2002 09:41:52
Ahoj vsichni
U nas ve firme se objevila zahada. V D5 na W2000 (stanice] se pri praci
podarilo to ze castecne zmizely soubory s nazvem projektu z adresare.
Castecne znamena ze v adresari byly sice nazvy, ale system se tvaril, ze tam
nejsou soubory. Kdyz jsem je chtel obnovit ze zalohy, podarilo se mi nahrat
je znovu a tak jsem mel dane, stejne pojmenovane soubory v adresari dvakrat
a oba klony se daly otevrit. Kdyz jsem jeden z nich smazal, podarilo se to,
ale jeho dvojce neslo otevrit a opet system zarval, ze soubor tam neni.
Soubory byly ulozeny na serveru s WIN NT 4 (SP6 ?) asi s NTFS. Nesetkali
jste se s tim nekdo? Neumite to nekdo vysvetlit? Nebo si mam myslet, ze mi v
NT strasi?
Jaromir Cermak
Pomale nacitani ze StoredProc u IB
[*] �imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.2.2002 09:51:31
Oindexovat sloupec DATUM.
JirkaS
> -----Original Message-----
> From: Jirka [mailto:W.Jirka(zv)seznam(tec)cz]
> Sent: Thursday, February 14, 2002 9:16 AM
> To: Konference DELPHI
> Subject: Pomale nacitani ze StoredProc u IB
>
>
> Ahoj Vsem
>
> Mam nasledujici problem a doufam ze se najde nekdo kdo mi poradi :-)
>
> Pro select z tabulky pouzivam StoredProc.
> Ted jsem si tam zkusil dat 1000 zaznamu a zjistil jsem ze
> Server tu proceduru spousti 0,25 s.
> Pokud ovsem pridam za select z tej procedury order by tak ji
> Server spousti 5s.
>
> Priklad:
> SELECT * FROM MY_SP; - tohle trva 0,25s
> SELECT * FROM MY_SP order by DATUM - tohle trva 5s :-(
>
> Predem diky za jakoukoliv radu
>
> Jirka
> Dva dotazy (Alignment ; QReport)
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.2.2002 09:55:17
>Ahoj.
>Jde to.
>Napriklad DBedit.Field.Alignment := taCenter;
>Ovsem projevi se to na vsech vizualnich komponentach pripojenych na tenhle
>Field.
>
>Jinak s tim ze editovat v DBEditu nebo nedej boze v DBGridu neni to uplne
>nejlepsi.
>
>Ludek
Dekuji za radu, ale te posledni vete nerozumim. To jako, ze nemam pouzivat
DBEdit?? DBGRid mam vzdy nastaveno na reda only, ale DBEdit pouzivam.
Pripoustim, ze par starosti me uz potkalo, ale jaky je duvod k tomu tvrzeni,
v ty posledni vete?
Jirka
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
QReport - zlobi, pomuzete?
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.2.2002 09:59:06
Zdravim,
QReport pouzivam k tisku.
Mam QReport,DetailBand, na kterym jsou umisteny QRLabel-y. Nekolik
techto QRlabel-u doplnuju pred QReport.PreviewModal.
Bohuzel mi aplikace casto spadne prave pri QReport.PreviewModal a nahlasi
to:
"A call to an OS function failed." a hned po OK
"A component named QRStandardPreview already exists."
Pak aplikace funguje,ale nevytisknu nic. Jedina cesta je vypnout aplikaci,
objevi se dve systemove chybove hlaseni jako ze Aplikace XY.exe provedla
neplatnou operaci a ... a pak dalsi, ze doslo k chybe na nejake adrese a
zase klasicke hlasky.
Driv jsem pouzival jen QReport.Preview jenze uz tenkrat me to zlobilo, tak
jsem vas tady ptal co s tim a jedna dobra duse mi odpovedela, ze se s timhle
problemem setkal, a ze stacilo v jeho pripade pouzivat QReport.PreviewModal.
U me ne.
Co s tim???
Diky
Jirka
______________________________________________________________________
"Vyhodna nabidka se neodmita ..." Oskarovi sluzby firmam.
http://ad2.seznam(tec)cz/redir.cgi?instance=20991%26url=http://www.oskarmobil(tec)cz/cz/business/b_index.html
Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.2.2002 10:00:24
> >
> > * V DLL muzes zjistit ID procesu do ktereho byla knihovna nahrana
> >
> > Petr Vones
> >
>
> Toto se mi nedari, k dalsim krokum jsem se jeste nedostal.
>
> Pavel
>
Ted jsem to znovu zkousel a aniz bych provedl nejake zasadni zmeny, zacalo
to asi fungovat:
GetCurrentProcess
GetCurrentProcessID
Proc mi to nefungovalo nevim, ale opravdu jsem dostaval spatna cisla.
Nevi nekdo v cem by mohl byt problem, na co si dat pozor?
Diky
Pomale nacitani ze StoredProc u IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2002 10:06:29
> > SELECT * FROM MY_SP; - tohle trva 0,25s
> > SELECT * FROM MY_SP order by DATUM - tohle trva 5s
> Oindexovat sloupec DATUM.
obavam se, ze index na SP nelze.
co by ale mohlo jit, jestlize uvnitr SP
je konstrukce FOR-SELECT-DO, tak dat
order by podle indexu uz v tom selectu.
dekuji PeC(zv)Pomale nacitani ze StoredProc u IB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 14.2.2002 10:38:29
Hello, Jirka!
You wrote :
[Skipped]
J> SELECT * FROM MY_SP; - tohle trva 0,25s
J> SELECT * FROM MY_SP order by DATUM - tohle trva 5s :-(
Je to proto ze IB musi mit vsechny data z MY_SP, aby mohl je sortovat.
Ve vetsine pripadu pro selectyvni SP plan bude:
PLAN SORT ((Table NATURAL))
Funguje to tak:
SELECT * -> soubor TMP -> order by -> fetch
Pukud je mozne, premisti order by uvnitr SP.
With best regards, Alex Cherednichenko.QReport - zlobi, pomuzete?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.2.2002 10:50:38
Ing. Ji�� SOKOL dne 14 Feb 2002 v 9:59:
> QReport pouzivam k tisku.
> Mam QReport,DetailBand, na kterym jsou umisteny QRLabel-y. Nekolik
> techto QRlabel-u doplnuju pred QReport.PreviewModal. Bohuzel mi
> aplikace casto spadne prave pri QReport.PreviewModal a nahlasi to:
>
> "A call to an OS function failed." a hned po OK
> "A component named QRStandardPreview already exists."
Ahoj,
nevim, jestli je to prave tim, ale... Mam pocit, ze PreviewModal neni tak docela modalni a uzivatel se muze prepnout do
jineho okna. No a pokud jsi sestavu vytvoril v tom "jinem" okne a nyni ho uzivatel zavre drive, nez okno s nahledem, muze
to zlobit.
Tu chybu Ti to nahlasi vzdycky nebo jen pri urcitem postupu?
Karel Rys
Spojeni tabulek
[*] ales(zv)kerner(tec)cz - 14.2.2002 10:50:54
Potreboval bych spoji v Gridu 2 tabulky (neni to databaze)
napr. faktury a klienti a to tak, abych z klientu faktur vzal cislo klienta a
klientu bankovni ucet.
Poradite?
Ales
Pomale nacitani ze StoredProc u IB
[*] �imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 14.2.2002 10:55:31
Nemyslel sem vytvaret index ve stored procedure, ale vytvorit index tabulky
primo na DB serveru.
JirkaS
> -----Original Message-----
> From: Petr Palicka [mailto:petr.palicka(zv)atlas(tec)cz]
> Sent: Thursday, February 14, 2002 10:06 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Pomale nacitani ze StoredProc u IB
>
>
> > > SELECT * FROM MY_SP; - tohle trva 0,25s
> > > SELECT * FROM MY_SP order by DATUM - tohle trva 5s
>
> > Oindexovat sloupec DATUM.
>
> obavam se, ze index na SP nelze.
>
> co by ale mohlo jit, jestlize uvnitr SP
> je konstrukce FOR-SELECT-DO, tak dat
> order by podle indexu uz v tom selectu.
>
> dekuji PeC(zv)
> Win2000: Zjisteni uzivatele prihlaseneho do Novell
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.2.2002 10:56:23
Nevite prosim nekdo, jak zjistit, kdo je na stanici s Win2000 prihlasen do Novellu? Pouzivame orig.
novellovskeho klienta. GetUserName vraci jmeno uzivatele prihlaseneho do Windows (napr. Administrator), coz nepotrebuju...
Dekuji,
Karel Rys
Komponenta - vlastnosti - RIESENIE
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.2.2002 10:14:28 -0000
Ahoj
tak zabudol som napisat kto je Parent
Totiz som si vo svojej nevinnosti myslel, ze staci ked dam
Komponenta:=TKomponenta.create(MainForm)
ale treba este Komponenta.Parent:=MainForm.
------------------------------------------------
while not radcovia.EOF do radcovia.dakujem:=true
S pozdravom Peter Surovy
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
Sent: Wednesday, February 13, 2002 5:21 PM
> Ahoj
> chcel by som pocas runtime vytvorit
> jednu komponentu resp.jej instanciu.
> Ta komponenta je vizualna a podobne ako
> napr SpeedButton ked si ju zobrazim ako
> text ma jednu z vlastnosti = data ako napr.:
> Glyph.Data = {
> EE000000424DEE0000000000000076000000280000000D0000000F0000000100
> 04000000000078000000120B0000120B00001000000000000000000000000000
> ........
> Ked si tu komponentu dam na form tie data
> sa tam vlozia automaticky
> ale ja ju chcem vytvorit az v runtime
> a pokial tie data nezadam nezobrazi sa.
>
> <problem>A samozrejme tie data zadata neviem, pretoze taka vlastnost
> ako Komponenta.Data neexistuje rovnako ako neexistuje ani
> SpeedButton.Glyph.Data</problem>
>
> Komponenta je odvodena od TOleControl.
Active Directory Service Interfaces
[*] Martin JE�EK <jezek(zv)marbes(tec)cz> - 14.2.2002 11:15:20
Ahoj, m�m probl�m s ADSI. Zde je uk�zka k�du:
var DomainPath: WideString;
Domain: IAdsContainer;
UserObj: IAdsUser;
begin
DomainPath := 'WinNT://marbes(tec)cz/jezek,user';
AdsGetObject(PWideChar(DomainPath), IID_IADsUser, UserObj);
ShowMessage(UserObj.Get_FullName);
ShowMessage(UserObj.Get_FirstName);
end;
Posledn� ��dka vyhl�s� chybovou hl�ku: Vlastnost slu�by Active Directory
nebyla v mezipam�ti nalezena.
P�edt�m jsem do delphi nainstaloval type library "Active DS" pro p��stup do
Active Directory. Jako mo�n�
probl�m bych vid�l �e je t�eba DSClient (podle MSDN), ale nemohu ho nikde
naj�t (na MS webu atd.) a ani
v MSDN nen� zm�nka o� jde. Nev�m jestli je/nen� tento klient sou��st� w2000.
D�kuji, Martin JE�EK
OT podivne chovani NT 4.0
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 14.2.2002 11:16:14
Ahoj Jardo,
davej si bacha na funkcnost W2000 pri suspend. Kdyz startujes normalne
vypnuty system, pak si W2000 nactou FATku do pameti. Kdyz potom das suspend,
a opet W2000 pustis, tak Ti sice system nabehne rychleji, ale neobnovi se
FATka v pameti (zkratka ji system znovu nenacita z disku). A jestlize si z
jineho systemu udelal zmeny v souborech, tak sis zapricinil nekonzistentnost
FAT udaju.
Snad se Ti tato informace bude hodit.
Michal
----- Original Message -----
From: "CERMAK" <CERMAK(zv)procom(tec)cz>
To: "Konference Delphi (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 14, 2002 9:41 AM
Subject: OT podivne chovani NT 4.0
> Ahoj vsichni
>
> U nas ve firme se objevila zahada. V D5 na W2000 (stanice] se pri praci
> podarilo to ze castecne zmizely soubory s nazvem projektu z adresare.
> Castecne znamena ze v adresari byly sice nazvy, ale system se tvaril, ze
tam
> nejsou soubory. Kdyz jsem je chtel obnovit ze zalohy, podarilo se mi
nahrat
> je znovu a tak jsem mel dane, stejne pojmenovane soubory v adresari
dvakrat
> a oba klony se daly otevrit. Kdyz jsem jeden z nich smazal, podarilo se
to,
> ale jeho dvojce neslo otevrit a opet system zarval, ze soubor tam neni.
> Soubory byly ulozeny na serveru s WIN NT 4 (SP6 ?) asi s NTFS. Nesetkali
> jste se s tim nekdo? Neumite to nekdo vysvetlit? Nebo si mam myslet, ze mi
v
> NT strasi?
>
> Jaromir Cermak
>
>Pomale nacitani ze StoredProc u IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2002 11:24:36
> Nemyslel sem vytvaret index ve stored procedure, ale vytvorit
> index tabulky primo na DB serveru.
> > > > SELECT * FROM MY_SP; - tohle trva 0,25s
> > > > SELECT * FROM MY_SP order by DATUM - tohle trva 5s
jiste, ale prave v tomto pripade index na tabulce nepomuze
nejprve probehne SP a teprve jeji vysledek se tridi a tady
neni mozne zadny index pouzit. jedine reseni by bylo cist
data dle indexu uvnitr SP, coz ale zalezi, jak je to uvnitr
napsany a jak a z ceho se vystup vubec vytvari...
dekuji PeC(zv)Dva dotazy (Alignment ; QReport)
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.2.2002 11:24:54
----- Original Message -----
From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
>
>Jinak s tim ze editovat v DBEditu nebo nedej boze v DBGridu neni to uplne
>nejlepsi.
>
>Ludek
Dekuji za radu, ale te posledni vete nerozumim. To jako, ze nemam pouzivat
DBEdit?? DBGRid mam vzdy nastaveno na reda only, ale DBEdit pouzivam.
Pripoustim, ze par starosti me uz potkalo, ale jaky je duvod k tomu tvrzeni,
v ty posledni vete?
Ahoj.
Jde o to, ze pri pouziti DBAware komponent jakmile zacne uzivatel editovat
je nejakym zpusobem zive pripojeny k datum (v pripade souborovych DB je
tabulka otevrena pro zapis, zamyka se record apod., v pripade SQL je aktivni
transakce) no a ten uzivatelsky vstup trva dost dlouho. POkud ale pouzijes
normalni Edity a teprve po uplnem porizeni tyhle data najednou
vlozis/prepises v databzi, trva "zive" kriticke pripojeni k datum jen malou
chvili.
Samozrejme je to cele o trochu slozitejsi, zalezi take na typu pouziteho
datasetu.
Vsude, kde jsem tohle dusledne dodrzel to prispelo k bezproblemovemu chodu
aplikace. Jak drive v Paradoxu, tak nyni na IB6.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
porovnani IBObjects a FIBPlus
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 14.2.2002 11:31:26
> >po prednasce na seminari jsem dospel k rozhodnuti,
> >ze je nacase opustit IBX (z duvodu budouci podpory
> >FireBirdu) a vybrat jine vhodne komponenty.
Ahoj,
pripojil bych se s otazkou na znalce Firebirdu. Jak je to s
nekompatibilitou horke? Ubira se FB smerem k nekompatibilite na
urovni klienta? Pokud ano, da se odhadnout, zda by nekdo v takovem
pripade upravil i IBX? Autor IBX to jiste nebude, ale pripadne upravy
by nemusely byt tak rozsahle, pokud jsou ovsem licencne mozne.
Jiri Binder
porovnani IBObjects a FIBPlus
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 14.2.2002 12:06:09
From: "Jiri Binder" <j.binder(zv)albacon(tec)cz>
> pripojil bych se s otazkou na znalce Firebirdu. Jak je to s
> nekompatibilitou horke? Ubira se FB smerem k nekompatibilite na
> urovni klienta? Pokud ano, da se odhadnout, zda by nekdo v takovem
> pripade upravil i IBX? Autor IBX to jiste nebude, ale pripadne upravy
> by nemusely byt tak rozsahle, pokud jsou ovsem licencne mozne.
Iste si pocul ze NIE IBPhoenix sa odklana ale je to bohuzial snaha Borlandu.
Momentalne pouzivam IBX i IBO a obe su plne kompatibilne s IB i FB. Ak budes
pouzivat tie komponenty iba na SQL prikazy (IBDatabase, IBTransaction,
IBQuery, IBDataset, IBSQL, IBStoredProc) tak zatial nehrozi ziadna
nekompatibilta a myslim ze este hodne dlho.
Ak ale zacnes pouzivat podporu XML, System metadata security a pod. tak tam
sa s nekompatibilitou samozrejme stretnes.
Ak sa ale prave teraz rozhodujes co pouzit tak asi FIBPlus, aby si potom
nemusel mat problem s preklapanim.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Win2000: Zjisteni uzivatele prihlaseneho do Novell
[*] "Grubhoffer Jind�ich" - 14.2.2002 13:05:12
> Nevite prosim nekdo, jak zjistit, kdo je na stanici s Win2000
> prihlasen do Novellu? Pouzivame orig.
> novellovskeho klienta. GetUserName vraci jmeno uzivatele
> prihlaseneho do Windows (napr. Administrator), coz nepotrebuju...
Funkci NWDSWhoAmI z Novell Developer Kit viz http://developer.novell.com/ndk/
JG
Po�et otev�en�ch soubor�
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 14.2.2002 13:10:13
Dekuji mooooc Vam vsem. Moc jste mi pohohli.
Diky.
Martin Pavera
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Outlook Data
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.2.2002 12:17:18 -0000
Ahoj
viem ze spravy v Outlook Express
sa ukladaju do vetvy
windows\Application Data\Identities\{77d21...}\Microsoft\OutlookExpress
ale kde sa ukladaju prilohy?
Problem: Dostal som prilohu, ktorej nazov
je s diakritikou slovenskou a neviem ju otvorit ani ulozit.
Pouzivam Win98ME en
Vdaka
S pozdravom Peter Surovy
Outlook Data
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.2.2002 13:31:17
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> viem ze spravy v Outlook Express
> sa ukladaju do vetvy
> windows\Application Data\Identities\{77d21...}\Microsoft\OutlookExpress
>
> ale kde sa ukladaju prilohy?
>
Ahoj.
Zklamu te. Ukladaji se tamtez.
Jedine zkus Jcl tam by snad neco na cteni zprav OE (pokud se nemylim tak jen
z dorucene posty) melo byt.
Hledej v archivu konference prispevky od p. Vonese.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
Lock na zaznamu
[*] ales(zv)kerner(tec)cz - 14.2.2002 13:42:09
jak s komponentou table zjistim, ze je veta zamcena nebo jak osetrim chyby
zamcenene vety - da se nekde sehnat nejaky podrobny popis?
Ales
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Martin Kolos <koki(zv)monoceros.physics.muni(tec)cz> - 14.2.2002 13:55:35
ahoj
muze mi nekdo poslat zdroj, odkud se da zjistit podrobnejsi informace
napr. jak je ten minimlisticky efekt vyrazny nebo jakym zpusobem se to
dokazuje?
martin
On Wed, 13 Feb 2002, Tomas Vladik wrote:
> > otazka preco funkcia Round zaokruhluje nahor od cisla 6 a nie od cisla 5
> > ? Existuje nejaka ina funkcia, ktora to robi spravne ?
> >
>
> Zde je otazkou, co rozumis pod pojmem "spravne". V Delphi mas stejne
> zaokrouhlovani jako v intelovskych CPU, je to zaokrouhlovani doporucene
> IEEE, ktere ma statisticky minimalizovat efekt zaokrouhlovani, ale tusim se
> tu o tom jiz nekolikrat diskutovalo, takze koukni do archivu.
>
> T.
>
> From: TeamB (rick(zv)fenestra.com_(Rick_Rogers)
> Subject: Re: Question about round function
> Newsgroups: borland.public.delphi.objectpascal
> View this article only
> Date: 1998/09/01
>
> On Mon, 31 Aug 1998 17:06:28 -0500, "Luis Cantu"
> <al538164(zv)campus.cdj.itesm.mx> wrote:
>
> > Why rounding 1.5 or any .5 odd number returns the lower number
>
> Prior to Delphi 4, the Delphi documentation for the Round function is
> incorrect. The way you've described Round working is the way it is
> supposed to work (and has worked, since Borland Pascal 7), and the way
> it is documented in D4.
>
> That is how the Intel Numeric Processing Unit (NPU) rounds numbers by
> default, and consequently that is how the Delphi Round() function
> works. When the fractional part of the real is exactly 0.5 rounding is
> done to the nearest =even= number.
>
> Actually, it would be better to say that Intel chose this algorithm
> because that's what IEEE floating point is supposed to do.
> The following table shows why this method of rounding is necessary:
>
> "error"
> 0.0 -> 0.0 0.0
> 0.1 -> 0.0 -0.1
> 0.2 -> 0.0 -0.2
> 0.3 -> 0.0 -0.3
> 0.4 -> 0.0 -0.4
> 0.5 -> ???
> 0.6 -> 1.0 0.4
> 0.7 -> 1.0 0.3
> 0.8 -> 1.0 0.2
> 0.9 -> 1.0 0.1
>
> 4 values are rounded down (0.1 .. 0.4) and 4 values are rounded up
> (0.6 .. 0.9) and 0.0 isn't changed. If 0.5 is always rounded up, then
> on average the errors would total 0.5, while if 0.5 is always rounded
> down, then the average error would be -0.5.
>
> By rounding 0.5 down half the time, and up the other half, the
> average errors would balance out.
>
> This illustrates how quickly rounding errors can accumulate in a
> simple total.
>
> IEEE "Traditional"
> 0.5 -> 0 1
> 1.5 -> 2 2
> 2.5 -> 2 3
> 3.5 -> 4 4
> ---------------------------------------------
> Total 8 10
> Error 0 2 ( 25%)
>
> Accountants and bankers are aware of how traditional rounding can
> distort their bookkeeping records over time. Hence, the IEEE
> method is sometimes called "banker's rounding".
>
> If you don't agree with the logic behind the way Delphi implements the
>
> Round function, and you don't mind accumulating statistical errors,
> then use this algorithm, which always rounds up:
>
> function AlwaysRoundUp(X: Extended): Extended;
> begin
> Result := Trunc(X) + Trunc ( Frac(X) * 2 );
> end;
>
>
> IB: prekopirovani zaznamu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.2.2002 14:14:26
Ahoj,
snazim se prekopirovat vetsi mnozstvi zaznamu z tabulky v MDB do IB.
Delam to pomoci IBPump.
Pri nejkem 359744 zaznamu to hodi
Fatal Error :Temporary table resource limit.
Nevite nekdo co to znamena?Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.2.2002 14:49:33
----- Original Message -----
From: "Martin Kolos" <koki(zv)monoceros.physics.muni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 14, 2002 1:55 PM
Subject: RE: Divne zaokruhlovanie cisel pomocou funkcie Round()> ahoj
> muze mi nekdo poslat zdroj, odkud se da zjistit podrobnejsi informace
> napr. jak je ten minimlisticky efekt vyrazny nebo jakym zpusobem se to
> dokazuje?
> martin
Ahoj.
To mas prece jasne.
Mejme cisla
1.5
2.5
3.5
4.5
5.5
6.5
7.5
8.5
9.5
10.5
Prumer je 60/10 = 6
Ted je zaokrouhlime tak jak ty cekas :
2
3
4
5
6
7
8
9
10
11
Prumer je 65/10 = 6.5 zaokrohleno = 7
Ted je zaokrouhlime podle IEEE
2
2
4
4
6
6
8
8
10
10
Prumer je 60/10 = 6
Takze tady na tomhle prikladu vidis, ktere prumerovani je ze statistickeho
hlediska presnejsi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
Outlook Data
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.2.2002 14:50:31
Zkus na to pouzit program Express Archiver
http://expressarchiver.com/download.html
> > viem ze spravy v Outlook Express
> > sa ukladaju do vetvy
> > windows\Application Data\Identities\{77d21...}\Microsoft\OutlookExpress
> >
> > ale kde sa ukladaju prilohy?
> >
Ulozeni Stringu do pointeru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2002 15:01:05
From: "Ka.Kewasa" <kewasa(zv)quick(tec)cz>
> Uplne presne tomu nerozumim. Znamena to, ze tak jak to mam, to muzu pouzit
No, ja tomu take presne nerozumim ;-) Neslo by to resit jednoduse, tedy tak,
ze v tom recordu pouzijes primo string ?
Petr Vones
Nekompatibilita typoveho souboru z Pascalu a Delph
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2002 15:08:59
From: "Ji�� G�th" <jiri_goth(zv)gordic(tec)cz>
> - nadefinujes record s klicovym slovem "packed"
Spravne, protoze tento problem se tyka jen zaznamu ktere potrebujes ukladat a
cist z nejakeho streamu.
> - v nastaveni Projectu zrusis nastaveni directivy Aligned record fields.
Spatne. Globalnim nastavenim ovlivnis daleko vic veci nez je potreba. Smysl
zarovnavani je v tom, aby procesor mohl lepe (rychleji) pristupovat k datum.
Tim ze to globalne nastavis pro cely projekt zbytecne zhorsis efektivitu kodu,
navic z pouziti 'packed record' je daleko vice zjevne, ze je z nejakeho duvodu
nutne zaznam nezarovnat (coz neni jinak bezny pripad).
Petr Vones
Jak zjistit Application.MainForm.Handle z DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2002 15:14:26
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> GetCurrentProcess
> GetCurrentProcessID
Patrne jsi zamenil GetCurrentProcessID za GetCurrentProcess. V tvem pripade
potrebujes ID daneho procesu (tedy jeho jedinecny identifikator v systemu) a
ne handle procesu, kterych muze byt samozrejme vic.
> Nevi nekdo v cem by mohl byt problem, na co si dat pozor?
GetCurrentProcessID je API funkce jadra, nevim o pripadu ze by takto zasadni
funkce nekdy selhala.
Petr Vones
Zavreni aplikace pri ukonceni Windows
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 14.2.2002 15:28:18
pro p. Martina Schayna: Diky za pomoc
Jeste vsak mam jeden problem:
procedure TInformerMain.OnENDSESSION(var Message: TWMEndSession);
begin
inherited;
If Message.EndSession then // tady mam stale FALSE
begin
fCanclose := True; // takze sem to nikdy neprijde
Close;
end;
Message.Result := 0;
end;
(Mam Delphi 6.0 Ent, Windows 2000 Pro CZ) Robert Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Schayna
Sent: Wednesday, February 13, 2002 5:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Zavreni aplikace pri ukonceni Windows
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>> Zdravim,
> mam tu jeden problemek. Moje aplikace se na FormClose nezavira ale schova
do
> traye. Jenze, kdyz ukoncuji Wokna a ty zaviraji programy, tak ta aplikace
se
> misto ukonceni zase schova do toho traye :o(.
Implementuj WMQueryEndSession i WMEndSession, napr.:
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := fCanClose;
if not CanClose then Hide;
end;
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
inherited;
Msg.Result := 1;
end;
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
inherited;
if Msg.EndSession then begin
fCanClose := True;
Close;
end;
Msg.Result := 0;
end;
Martin Schayna
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Outlook Data
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2002 15:32:03
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> Jedine zkus Jcl tam by snad neco na cteni zprav OE (pokud se nemylim tak jen
> z dorucene posty) melo byt.
Ahoj,
Ze subjektu neni bohuzel prilis jasne, ze se jedna o Outlook Express a ne
'velky' Outlook. V tomto pripade je to podstatny rozdil, protoze OE nema zadne
OLE Automation. Data OE jsou ukladana v DBX souborech, jejichz format neni
dokumentaovan a muze se tedy lisit od verze OE. V systemu existuje sice
knohovna DIRECTDB.DLL, ktera ocividne umoznuje pristup k temtu souborum a
obsahuje nejake COM objekty, bohuzel k ni neni jak uz to u Microsoftu byva
dokumentace. Moznosti jsou tedy minimalne 3.
1. Jednotlive zpravy lze exportovat rucne pomoci Drag&Drop do libovolneho
adresare cimz vznikne soubor s priponou .EML, coz je vlastne textovy soubor.
2. Zjistit strukturu DBX souboru a vycist z neho zpravy programove. Neco
takoveho existuje, ale muze tu byt problem s kompatibilitou u ruznych verzi.
Vice na teto strance (dole): http://www.djpate.freeserve.co.uk/AutoOE.htm
3. Pouzitim Simple MAPI. Nevyhodou je, ze lze takto cist *pouze* z hlavniho
Inbox adresare, ne z podadresaru. Vyhodou je trasparentnost, takze nezalezi na
verzi OE, protoze vsechny podporuji Simple MAPI. Priklad najdes v JCL, jmenuje
se ReadMailExample.dpr http://delphi-jedi.org/Jedi:CODELIBJCL
Pokud chces v danem prikladu cist i prilohy tak je nutne upravit radek 61 v
ReadMailDemoMain.pas na:
Email.Read([roAttachments]);
Tim budou prilohy po nahledu ulozeny v Internet Explorer Temporary Files a
dostanes plnou cestu k temto souborum.
Petr Vones
StringGrid - zobrazeni textu delsiho nez bunka
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 14.2.2002 15:33:44
Ahoj,
poradi nekdo, jak v TStringGridu zobrazit text, ktery je delsi nez bunka
tak, aby byl neustale cely viditelny (s sirkou bunky/sloupce hybat nemohu)?
Diky predem, zdravim
Petr Mohapl, D5 Prof / W98
DLL a PChar
[*] mstevlik(zv)gamo.sk - 14.2.2002 15:47:31
Cafte
Mam v DLL fciu
function DajVysledok: PChar
begin
Result := PChar(NejakyString);
end;
Tato fcia mi na Ende vyhlasi AccessViolation ak tam dam NejakyString velmi
dlhy (napr. 200 000 znakov)
Viete mi poradit kde moze byt problem?
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
DLL a PChar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2002 16:05:20
From: <mstevlik(zv)gamo.sk>
> Mam v DLL fciu
> function DajVysledok: PChar
> begin
> Result := PChar(NejakyString);
> end;
> Tato fcia mi na Ende vyhlasi AccessViolation ak tam dam NejakyString velmi
> dlhy (napr. 200 000 znakov)
> Viete mi poradit kde moze byt problem?
Ahoj,
problem je v tom, ze tvuj kod dela totez (krome pripadu ze DLL i EXE je
prelozeno s runtime balicky), jako kdyby jsi napsal:
Result := PChar(Random(MaxInt) + 1);
DLL nemuze vracet pointer protoze volajici aplikace nic nevi o memory manageru
dane DLL (s vyjimkou uvedenou dale), takze pokus o uvolneni pameti alokovane v
DLL memory managerem EXE konci logicky chybou.
Reseni je nekolik:
1. Pouzit ShortString, ten je ovsem omezen jen na 255 znaku.
2. Pouzit WideString. V Delphi (pro Windows) typ WideString znamena zaroven
BSTR pro COM, takze je alokovan spolecnym memory managerem operacniho systemu
a ne vlastnim managerem v RTL Delphi. V Kylixu je vsak WideString alokovan
jako ostatni promenne, takze tam nelze toto pouzit.
3. Prelozit jak EXE tak i DLL s runtime balicky
4. Pouzit unit ShareMem, nevyhodou je nutnost distribuce DELPHIMM.DLL
5. Kopirovanim do predem alokovaneho bufferu ve volajici aplikaci. Toto je asi
nejpouzivanejsi zpusob (podobne se to resi v C, viz API funkce). Viz priklad:
// funkce v DLL
function ReturnsStringFromDLL(Buffer: PChar; MaxLen: Integer): Integer;
var
TempString: string;
begin
TempString := 'A text';
StrPLCopy(Buffer, TempString, MaxLen);
Result := Min(Length(TempString), MaxLen);
end;
// volani z aplikace
function GetStringFromDLL: string;
var
Buffer: array[0..2047] of Char;
begin
SetString(Result, Buffer, ReturnsStringFromDLL(Buffer, SizeOf(Buffer)));
end;
Petr Vones
DLL a PChar
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.2.2002 16:22:41
> Mam v DLL fciu
> function DajVysledok: PChar
> begin
> Result := PChar(NejakyString);
> end;
> Tato fcia mi na Ende vyhlasi AccessViolation ak tam dam NejakyString velmi
> dlhy (napr. 200 000 znakov)
Zalezi na zpusobu prace, alokovani a uvolneni pameti.
Taky jsem mel problemy, protoze jsem se musel podridit cizimu programu,
o jehoz zpusobu prace jsem nic nevedel (napr. neslo vratit NIL pro prazdny
retezec)
Ted pouzivam tuto konstrukci:
Function Verze: Pchar; cdecl; export;
begin
Result := StrAlloc(length(VerStr)+1);
StrPCopy(Result,VerStr+#0);
end;
Delka je opravdu velka, mozna je chyba jinde.
Pavel
Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.2.2002 16:24:48
> Patrne jsi zamenil GetCurrentProcessID za GetCurrentProcess. V tvem
pripade
> potrebujes ID daneho procesu (tedy jeho jedinecny identifikator v systemu)
a
> ne handle procesu, kterych muze byt samozrejme vic.
>
> Petr Vones
>
Nezamenil, ale ted se mi v projevuji i jine podivnosti, tak je mozna chyba
nekde uplne jinde.
Diky za pomoc.
Pavel
DLL a PChar
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.2.2002 16:37:35
> Ted pouzivam tuto konstrukci:
>
> Function Verze: Pchar; cdecl; export;
> begin
> Result := StrAlloc(length(VerStr)+1);
> StrPCopy(Result,VerStr+#0);
> end;
>
pokud je tohle funkce z DLL pak je sice pravda, ze to bude fungovat
ale pri castem volani te funkce se dostanes do potizi. Funkce totiz
dynamicky alokuje pamet, ktera se nikde neuvolnuje. Neni ani mozne
uvolnit tu pamet mimo DLL v kodu, ktery DLL volal, protozse StrAlloc
pouziva GetMem - tedy pouziva borlandi memory manager, jehoz kopie z
DLL neni standardne totozna s tou v aplikaci (pokud je vuibec aplikace
taky psana v Delphi).
Pokud je VerStr staticka zalezitost (coz asi je) neni problem opravdu
vratit jen pointr na pchar:
Result := PChar(VerStr)
Pokud je VerStr menici se promenna je nutne nejak vyrobit snapshot -
nejlepe tak, ze volajici sam pripravi buffer predpokladane delky a do
nej se zkopiruje aktualni obsah VerStr (tak jak to jiz naznacil P.
Vones).
PS: Dalsi (mozna uz ponekud cunackou) variantou je predat DLLku
pointer na nejakiou alokacni rutinu aplikace (StrAlloc, GetMem,...)
atd ta DLLka (kdyz uz musi) naalokuje pamet sama volanim pametoveho
manageru z aplikace. Otazkou je jestli neni lepsi pouzit HeapAlloc a
spol, kterezto funkce nevyuzivaji zadny pametovy manazer aplikace (ani
DLL) a jimi alokovana pamet muze byt druhou stranou vesele
dealokovana...
D. Toman
Spojeni tabulek
[*] pavel.ales(zv)popron(tec)cz - 14.2.2002 16:46:05
Ales wrote:
-----------
Potreboval bych spoji v Gridu 2 tabulky (neni to databaze)
napr. faktury a klienti a to tak, abych z klientu faktur vzal cislo klienta
a
klientu bankovni ucet.
Taky Ales na to:
-------------
No to se dela tak ze udelas Query se
Select a.pole1table1,a.pole2table1,b.pole1table2,b.pole2table2 From table1 a
join table2 b on a.pole1table1=b.pole1table2
pokud tam ten zaznam v druhe tabulce nemusi bejt das
LEFT OUTER JOIN
Nebo muzes udelat s uplne stejnym selectem pohled.(view) na pevno do DB.
Jak tomu mam rozumnet neni to DB?Jako ze to nejsou 2 DB?
Ales Pavel
Technical Specialist
D5 Ent W200
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
QReport - zlobi, pomuzete?
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.2.2002 18:13:53
>Ing. Ji�� SOKOL dne 14 Feb 2002 v 9:59:
>> QReport pouzivam k tisku.
>> Mam QReport,DetailBand, na kterym jsou umisteny QRLabel-y. Nekolik
>> techto QRlabel-u doplnuju pred QReport.PreviewModal. Bohuzel mi
>> aplikace casto spadne prave pri QReport.PreviewModal a nahlasi to:
>>
>> "A call to an OS function failed." a hned po OK
>> "A component named QRStandardPreview already exists."
>Ahoj,
>
>nevim, jestli je to prave tim, ale... Mam pocit, ze PreviewModal neni tak docela modalni a
uzivatel
>se muze prepnout do
>jineho okna. No a pokud jsi sestavu vytvoril v tom "jinem" okne a nyni ho uzivatel zavre drive,
nez
>okno s nahledem, muze
>to zlobit.
>
>Tu chybu Ti to nahlasi vzdycky nebo jen pri urcitem postupu?
>
>Karel Rys
Diky za napad, asi to bude cesta. Chyba se, jako vzdy :(((( a bohuzel, objevuje
nahodne a proto se mi ji nedari podchytit.
Jen abych vysvetlil co presne delam:
vyplnim zaznam v Praradox tabulce a pak chci urcite udaje vytisknout. K tomu pouzivam
komponentu QReport, na ktere jsem si vytvoril DetailBand, ve kterem mam spoustu QRLabel-u.
Nektere se nemeni a nektere menim v zavislosti na obsahu zaznamu z jiz zminene tabulky.
K tisku pristoupim pres udalost Buttonu, kdy provedu dosazeni hodnot do tech QRLabel-u.
Toto dosazeni mam osetreno vyjimkou. Dale uz jen provedu QReport.PreviewModal.
Ta chyba nastene tak, ze ani ten prvni preview neprobehne, protoze se ani nezobrazi to
preview - vytvori se formular, ale je prazdny a funguji pouze tlacitka QReport-u.
Pochopitelne, ze jedine co pak chci udelat, kdyz se nic neobjevi, je zavrit ten nahled a pak uz
se zobrazi hlasky uvedene na zacatku tohoto mailu.
Myslim si, ze nedoslo k tomu, abych spoustel 2x nebo vicekrat stejny QReport. Takze fakt nevim,
kde a co mam zkusit.
Jde nejak testovat, jestli uz mi QReport nebezi? Ted me napadlo, ze by slo hledat okno,
ale jestli to jen nekde "vytuhne", tak ho pomoci FINDWINDOW najit nemusim.
Nemam QReport nejakou vlastnost neco jako already begining, run nebo tak neco??? To bych
pak mohl testovat pred tim, nez bych dal provest ten QR.PreviewModal.
Poradite?
Jirka
______________________________________________________________________
"Vyhodna nabidka se neodmita ..." Oskarovi sluzby firmam.
http://ad2.seznam(tec)cz/redir.cgi?instance=20991%26url=http://www.oskarmobil(tec)cz/cz/business/b_index.html
MDB
[*] JIM Design <jim.design(zv)iol(tec)cz> - 14.2.2002 19:37:10
ahoj,
default je myslim user:'admin' pass:''
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Bednar��k Dalibor
Snazim se otevrit MDB soubor. Ale porad mi to hlasi, ze nemam opravneni ho
otevrit, pritom to nechce zadne heslo.
Kde se nastavuji nejake ty opravneni? Muzete mi s tim poradit?
Diky
jedna instance
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 01:48:38
From: "Zden�k �t�p�nek" <zstepanek(zv)atlas(tec)cz>
> Pouze jsem si myslel, ze se mutex vytvari z Handle aplikace, ne z toho
> textu.
Co je to Handle aplikace ? Pokud by se jednalo o nejakou hodnotu specifickou
pro process (treba process ID) tak jak by jsi potom poznal, ze se jedna o
dalsi instanci *teze* aplikace. Jako jedinecny string se da pouzit napriklad
neco zalozeneho na jmenu souboru (vcetne cesty).
Petr Vones
Parent formu v DLL (MainFormCenter)
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 15.2.2002 07:34:06
ahoj,
vim, ze se tu neco podobneho nedavno resilo, bohuzel mi ale nejde
konfview (RichEdit line insertion error), tudiz se predem omlouvam,
jestli budu neco opakovat.
Mam form v DLL, z aplikace si predam HWND (AppHandle). Vse mi uz
temer funguje az na jeden drobny detail - potrebuju, aby se mi to
modalni okno (volano primo DLL) vycentrovalo pred hlavnim oknem
aplikace. Dialog jsem zkousel nastavi na poMainFormCenter i na
poOwnerFormCenter, ale nefunguje mi to.
V DLL fukci vytvarim form takto:
try
AboutForm:=TAboutForm.CreateParented(AppHandle);
AboutForm.ParentWindow:=AppHandle;
AboutForm.ShowModal;
finally
AboutForm.Free;
end;
Muzete mi nekdo ukazat, kde delam chybu?
PS: Jaky je rozdil mezi Application.Mainform.Handle a
Application.Handle?
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
Problem s Firebirdom
[*] dphi_forum(zv)proces.sk - 15.2.2002 09:33:21
Zdravim Vas a prosim o pomoc s nasledovnym problemom:
V praci pouzivame IntwrBase WI-V6.0.1.0
a doma pouzivam FireBird WI-T6.2.679 Firebird Release Candidate 2
Mam databazu v ktorej mam tabulku
/* Table: O_PARTNERI */
CREATE TABLE O_PARTNERI (
PARTNER_ID INTEGER NOT NULL,
NAZOV_PARTNERA VARCHAR(50) character set WIN1250 NOT NULL collate
PXW_CSY,
ICO VARCHAR(8) character set WIN1250 collate PXW_CSY,
CISLO T_DOUBLE_PREC,
ADRESA_ULICA VARCHAR(30) character set WIN1250 collate PXW_CSY,
.....
NADR_ID INTEGER);/* Indices definition */
CREATE UNIQUE INDEX O_PARTNERI_PK ON O_PARTNERI (NAZOV_PARTNERA);
.....
A tu je ten problem:
toto
select nazov_partnera from o_partneri
prebehne aj v praci aj doma OK
-> PLAN (O_PARTNERI NATURAL)
ale toto
select nazov_partnera from o_partneri order by nazov_partnera
mi na Firebirde vrati vzdy len 2 zaznamy
(vzdy tie iste, nie su to zaznamy ani zo zaciatku tabulky ani z konca a ani
nenasleduju po sebe)
-> PLAN (O_PARTNERI ORDER O_PARTNERI_PK)
Robim nieco zle alebo je to nejaky problem Firebirdu ?
Ak robim chybu ja, tak kde ?
A ak je to chyba FB tak pracuje sa na nej alebo ako na to ?
Dik. NORO.IB a insert do NotNull poli
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.2.2002 09:50:04
Ahoj,
mam databazi v IB6 se spoustou tabulek a tyto tabulky az na
vyjimky maji radu poli Not Null s nejakou default hodnotou.
Je aplikace napsana s pomoci IBDatasetu a jeho properties
InsertSQL, ModifySQL, DeleteSQL, editace se porvadi pomoci db-
aware komponent. Problem je, ze pokud uzivatel nejaky udaj
nevyplni, vznikne na serveru validation error - pokus o vlozeni
hodnoty NULL do NotNull pole.
Dotaz: da se IB6 server nejak presvedcit, aby pri vlozeni NULL
hodnoty do not null sloupce automaticky pouzil default? Nebo - da
se rict IBDatasetu, aby pri insertu NULL hodnoty vypustil?
Prikaz v InsertSQL musi z principu zahrnovat vsechny sloupce,
ktere lze na danem formulari editovat a pak to takhle vypada.
Prosim nepiste mi nic o nevhodnosti pouzivani db-aware
komponent. To vim, nicmene situace je dana a menit se nebude.
Diky.
David Lebeda
Odeslani dat do WWW formulare metodou POST
[*] martin.falta(zv)obi.de - 15.2.2002 09:57:31
This is a multi-part message in MIME format.
Ahoj,
pisu aplikaci, ze ktere potrebuji poslat data na www server. Tato data lze
zadavat i prostrednictvim www formulare. Data se z tohoto formulare
odesilaji metodou POST. Ja bych potreboval, aby moje aplikace umela poslat
data pres tento formular. Nevite nekdo jak na to?
Predem dekuji.
S pozdravem
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.Jak umistit jeden form do jineho formu?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 15.2.2002 09:58:56
Zdravim,
potrebuji umistit form na panel jineho formu (do MDIChild). Pri vlozeni na
tento panel vsak nemohu spravne nastavit posici tohoto formu (pokud dam
napr. SetBounds(1,1,300,200) tak je to stejne umisteno nekde uplne jinde,
pokud dam Align := alClient tak se roztahne i mimo panel a stejne nereaguje
na zmenu velikosti Parenta).
Muzete mi poradi co delam blbe.
Diky Lada.
D5Ent.IB a insert do NotNull poli
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 15.2.2002 10:11:44
Myslim, ze staci vypnout u TField vlastnost Required. a razem to
zacne fungovat.
> Ahoj,
>
> mam databazi v IB6 se spoustou tabulek a tyto tabulky az na
> vyjimky maji radu poli Not Null s nejakou default hodnotou.
>
> Je aplikace napsana s pomoci IBDatasetu a jeho properties
> InsertSQL, ModifySQL, DeleteSQL, editace se porvadi pomoci db-
> aware komponent. Problem je, ze pokud uzivatel nejaky udaj
> nevyplni, vznikne na serveru validation error - pokus o vlozeni
> hodnoty NULL do NotNull pole.
>
> Dotaz: da se IB6 server nejak presvedcit, aby pri vlozeni NULL
> hodnoty do not null sloupce automaticky pouzil default? Nebo - da se
> rict IBDatasetu, aby pri insertu NULL hodnoty vypustil?
>
> Prikaz v InsertSQL musi z principu zahrnovat vsechny sloupce,
> ktere lze na danem formulari editovat a pak to takhle vypada.
>
> Prosim nepiste mi nic o nevhodnosti pouzivani db-aware
> komponent. To vim, nicmene situace je dana a menit se nebude.
>
> Diky.
>
> David Lebeda
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
ASPI
[*] HOST user <cico(zv)host.sk> - 15.2.2002 10:16:54
Neviete niekto, kde by som mohol najst nejaky popis k ASPI funkciam????
(nejake prikladiky by tiez neuskodili..)
Vdaka za odpoved..
Peter Laufer
ASPI
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 15.2.2002 10:29:07
> Neviete niekto, kde by som mohol najst nejaky popis k ASPI funkciam????
> (nejake prikladiky by tiez neuskodili..)
Zkus si stahnout tyhle komponenty, mozna ze tam najdes nejakou inspiraci...
http://koti.mbnet.fi/~megari/cddbcomp.zip
Nacteni obsahu adresare
[*] ales(zv)kerner(tec)cz - 15.2.2002 10:35:46
Jak mam jednoduse nacist strukturu adresare?
Potreboval bych to nejlepe do ComboBoxu.
Dik
Ales
Nacteni obsahu adresare
[*] ales(zv)kerner(tec)cz - 15.2.2002 10:43:33
Co je lepsi pouzivat pri definici databazi
characterset none nebo win1250, popripade v cem jsou vyhody a nevyhody.
Dik
Ales Nacteni obsahu adresare
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.2.2002 10:44:43
Podivej se do helpu na funkci FindFirst (hlavne na example)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.2.2002 ales(zv)kerner(tec)cz:
> Jak mam jednoduse nacist strukturu adresare?
> Potreboval bych to nejlepe do ComboBoxu.
Characterset a InterBase
[*] ales(zv)kerner(tec)cz - 15.2.2002 10:44:31
Co je lepsi pouzivat pri definici databazi
characterset none nebo win1250, popripade v cem jsou vyhody a nevyhody.
Dik
Ales
msword a wrap format
[*] iturcan(zv)gamo.sk - 15.2.2002 10:48:46
Hi all,
neviete ako sa da prostrednictvom OLE vlozeny obrazok umiestnit pod text.
Nieco ako v nastaveniach wordu vo vlastnostiach obrazku text wrapping
nastavenie "Behind text " ? Ktory objekt, resp vlastnost ci metoda je na
to ? a ako ju nastavit ?
vdaka za radu
Ivan Turcan
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Erik Salaj <winsoft(zv)stonline.sk> - 15.2.2002 11:07:15
> To mas prece jasne.
>
> Mejme cisla
>
> Prumer je 60/10 = 6
>
> Ted je zaokrouhlime tak jak ty cekas :
>
> Prumer je 65/10 = 6.5 zaokrohleno = 7
>
> Ted je zaokrouhlime podle IEEE
> Prumer je 60/10 = 6
>
> Takze tady na tomhle prikladu vidis, ktere prumerovani je ze statistickeho
> hlediska presnejsi.
zaokruhlovanie na parnu cislicu funguje "statisticky" spravne, ak pocet
cisel s parnou a neparnou cislicou pred petkou je rovnaky. Je tu teda
otazka, ci je taky predpoklad prakticky pouzitelny. Nie je problem
navrhnut ine systemy zaokruhlovania, ktore by mali byt zo "statistickeho
hladiska" lepsie:
1. nahodne zaokruhlovat petku nadol a nahor
2. striedavo zaokruhlovat petku nadol a nahor
Zase otazka, ci taketo "statisticke" spekulacie prinesu nejake
prakticke efekty (velmi zabavna moze byt kontrola vypoctu :-) ).
Podla mojho nazoru najvyhodnejsi je jednoduchy system zaokruhlovania
5 nahor. Pokial viem, tak je to asi aj najpouzivanejsi system. Co sa tyka
PC-cka, tak procesor podporuje 4 rezimy zaokruhlovania: Nearest
(even), -Infinity (down), +Infinity (up), Zero (truncate/chop), takze
staci si vybrat. Je celkom mozne, ze (nahodne?) striedanie tychto
rezimov zabezpeci statisticky najlepsie vysledky ;-).
Erik
IB a insert do NotNull poli
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.2.2002 11:09:45
> Myslim, ze staci vypnout u TField vlastnost Required. a razem to zacne
> fungovat.
Ne. To mam samozrejme udelane. Tu chybu nehlasi Delphi, ale
SQL server.
David Lebeda
> > mam databazi v IB6 se spoustou tabulek a tyto tabulky az na
> > vyjimky maji radu poli Not Null s nejakou default hodnotou.
> >
> > Je aplikace napsana s pomoci IBDatasetu a jeho properties
> > InsertSQL, ModifySQL, DeleteSQL, editace se porvadi pomoci db-
> > aware komponent. Problem je, ze pokud uzivatel nejaky udaj
> > nevyplni, vznikne na serveru validation error - pokus o vlozeni
> > hodnoty NULL do NotNull pole.
> >
> > Dotaz: da se IB6 server nejak presvedcit, aby pri vlozeni NULL
> > hodnoty do not null sloupce automaticky pouzil default? Nebo - da se
> > rict IBDatasetu, aby pri insertu NULL hodnoty vypustil?
> >
> > Prikaz v InsertSQL musi z principu zahrnovat vsechny sloupce,
> > ktere lze na danem formulari editovat a pak to takhle vypada.Broadcast mask
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.2.2002 11:18:46
Jen pro doplneni citat z MSDN:
--
To send a broadcast (on a SOCK_DGRAM only), the address in the to
parameter should be constructed using the special IP address
INADDR_BROADCAST (defined in Winsock2.h), together with the intended
port number. It is generally inadvisable for a broadcast datagram to
exceed the size at which fragmentation can occur, which implies that
the data portion of the datagram (excluding headers) should not exceed
512 bytes.
--
Cili zrejme neni nutne znat presnou broadcastovou adresu interface.
Na druhou stranu tato metoda zrejem bradcastuje vsemi sitovkami
najednou? Co v pripade, ze na jedne sitovce je nekolik nastavenych
IPcek (subnet)?
D. Toman
Problem s Firebirdom
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.2.2002 11:46:13
Haj hou!
Predpokladam, ze doma (Firebird) pouzivas databazi prinesenou z
prace (IB6), je to tak ? A neprovedl jsi backup/restore pri prenosu,
je to tak ? FB ma jinou (presneji receno opravenou) implementaci
collate PXW_CSY, takze na binarni urovni jsou nekompatibilni a
vysledky nepredvidatelne. Zazalohovani databaze na IB6 a obnoveni
pod RC2 by melo problem spolehlive odstranit.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Characterset a InterBase
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.2.2002 11:46:13
Haj hou!
On 15 Feb 2002, at 10:44, ales(zv)kerner(tec)cz wrote:
> Co je lepsi pouzivat pri definici databazi
>
> characterset none nebo win1250, popripade v cem jsou vyhody a nevyhody.
Vzdycky nastavuje charset na odpovidajici vkladanym datum.
Pokud nechas NONE, budes mit mnoho problemu pokud:
a) budes chtit tridit cesky (ORDER BY)
b) budes pritupovat k datum z klientu pouzivajicich ruzna kodovani
(UNICODE, LATIN2, WIN1250 atd.)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB a insert do NotNull poli
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.2.2002 12:16:29
leda trigger before insert a do nej:
if (new.PolozkaX is null) then new.PolozkaX:=neco
pac, jestli se na server posila null do one polozky, tak
ti server spravne vynada.
dekuji PeC(zv)602 PC Suite - OLE Automation
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 15.2.2002 12:21:02
Nemate nekdo zkusenosti s ovladanim baliku od 602software pres OLE ?
Majkrosroti Word a Excel zvladame, ale nejak se v zemich ceskych rozmaha
prave PC Suite ...
(Delphi 2 a 5)
Dik za odpoved.
Martin MACKO,
M-PRO s.r.o.
U mesta Chersonu 1595/1
tel.: +420 (35) 610 79 48,
610 72 31 az 33
martinm(zv)m-pro(tec)cz
+420 (603) 48 39 40
---
Avast: Odchozi zprava vyhodnocena jako eista
Datum a eas testovani: 15.2.2002 12:21:02
Datum virove databaze (VPS): 14.2.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 14.2.2002): zprava neobsahuje virus
602 PC Suite - OLE Automation
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 15.2.2002 12:29:25
Mam nejakou dokumentaci, protoze to take potrebujeme, ale je to velice
nedostacujici. Podporuji pouze OLE a na COM kaslou :(
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Nemate nekdo zkusenosti s ovladanim baliku od 602software pres OLE ?
> Majkrosroti Word a Excel zvladame, ale nejak se v zemich ceskych rozmaha
> prave PC Suite ...Jak umistit jeden form do jineho formu?
[*] Martin �ajbik <cajbik(zv)sct.sk> - 15.2.2002 12:40:00
Musi to byt nutne Form ? Nemozes pouzit Frame alebo Panel ?
MarCaNT
> Zdravim,
> potrebuji umistit form na panel jineho formu (do MDIChild). Pri vlozeni na
> tento panel vsak nemohu spravne nastavit posici tohoto formu (pokud dam
> napr. SetBounds(1,1,300,200) tak je to stejne umisteno nekde uplne jinde,
> pokud dam Align := alClient tak se roztahne i mimo panel a stejne
nereaguje
> na zmenu velikosti Parenta).
> Muzete mi poradi co delam blbe.
> Diky Lada.
>
> D5Ent.
>
>Problem s Firebirdom
[*] Rado Benc <bego(zv)pobox.sk> - 15.2.2002 12:47:25
Nazdar,
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of dphi_forum(zv)proces.sk
> Sent: Friday, February 15, 2002 9:33 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Problem s Firebirdom
>
>
> Zdravim Vas a prosim o pomoc s nasledovnym problemom:
>
> V praci pouzivame IntwrBase WI-V6.0.1.0
> a doma pouzivam FireBird WI-T6.2.679 Firebird Release Candidate 2
>
> Mam databazu v ktorej mam tabulku
[snip]
> ale toto
> select nazov_partnera from o_partneri order by nazov_partnera
> mi na Firebirde vrati vzdy len 2 zaznamy
> (vzdy tie iste, nie su to zaznamy ani zo zaciatku tabulky ani z
> konca a ani nenasleduju po sebe)
> -> PLAN (O_PARTNERI ORDER O_PARTNERI_PK)
Par poznamok:
V SQL databazach nema zmysel hovorit o zaznamoch zo zaciatku
tabulky a z konca a ani nasledujucich po sebe. Poradie zaznamov
nie je definovane - mozes len definovat SQL konstrukciou, v akom
poradi chces mat zaznamy vo vysledku zotriedene.
Tvoj problem som sa pokusal zrekonstruovat, nenarazil som vsak na
problem (na FireBird WI-T6.2.567 RC1) a ani neviem o tom ze by sa
na firebird-devel takato chyba vyskytla. V definicii tabulky mi vsak
chyba primarny kluc - a tu vidim mozny problem. V principe, primarny kluc
sluzi na jednoznacnu identifikaciu zaznamov v tabulke a mnohe
databazove tooly sa na jeho pritomnost "spoliehaju". To, ze mas
vytvoreny UNIQUE index je fajn, ale ten nezastupuje primarny kluc
tabulky - teda zacal by som tu.
> Robim nieco zle alebo je to nejaky problem Firebirdu ?
> Ak robim chybu ja, tak kde ?
> A ak je to chyba FB tak pracuje sa na nej alebo ako na to ?
Tazko povedat. Nepises, akeho klienta pouzivas - isql, IBConsole,
iny? Tu moze byt problem. Co vracia select count(*) from o_partneri,
select distinct count(*) from o_partneri apod?
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - spolahliva a bezpecna prevadzka
Odeslani dat do WWW formulare metodou POST
[*] JIM Design <jim.design(zv)iol(tec)cz> - 15.2.2002 13:01:18
Ahoj,
Uz se to tu nekolikrat resilo!
Lze na to pouzit celou radu web komponent jako treba Synapsi,TWebBrowser
apod., detaily najdes v archivu konference.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of martin.falta(zv)obi.de
Sent: Friday, February 15, 2002 9:58 AM
Ahoj,
pisu aplikaci, ze ktere potrebuji poslat data na www server. Tato data lze
zadavat i prostrednictvim www formulare. Data se z tohoto formulare
odesilaji metodou POST. Ja bych potreboval, aby moje aplikace umela poslat
data pres tento formular. Nevite nekdo jak na to?
602 PC Suite - OLE Automation
[*] skalsky(zv)oksystem(tec)cz - 15.2.2002 13:16:12
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahojky,
Ohledne Soft602 je problem v tom, ze MagicTab (eq. Excel) nepodporuje OLE
- a dle vyjadreni podpory 602 ani v nejblizsich verzich podporovat nebude
(nedavno jsem mel stejny problem, toto mi rekli na jejich Hotline)
WinText OLE podporuje - alespon neco ... ale vse, co se delat v MagicTabu, s
nim proste neudelas :(
Milan
-----Original Message-----
From: Martin Macko [mailto:martinm(zv)m-pro(tec)cz]
Sent: Friday, February 15, 2002 12:21 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: 602 PC Suite - OLE Automation
Nemate nekdo zkusenosti s ovladanim baliku od 602software pres OLE ?
Majkrosroti Word a Excel zvladame, ale nejak se v zemich ceskych rozmaha
prave PC Suite ...
Odeslani dat do WWW formulare metodou POST
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 15.2.2002 13:22:19
Ahoj Martine,
stahni si Proxomitron (dej si ho vyhledat v Seznamu). Nastav si ho ve www
prohlizeci dle napovedy. Otevri v prohlizeci onen tvuj www formular pro
zadavani dat. Otevri si Proxomitron Log window a tam zvol View posted data.
V prohlizeci zadej do formulare nejaka data a odesli je. V log window se Ti
objevi co se vlastne posila a to pouzijes (samozrejmne s upravenyma
hodnotama) do fce MakeTextForSend. A ted fragment kodu do Tve aplikace:
function GetUrlEncodingText(const Text: String): String; // pouzita v
MakeTextForSend
var i: Integer;
begin
Result := '';
for i:=1 to Length(Text) do
case Ord(Text[i]) of
48..57{0..9},64..90{(zv),A..Z},97..122{a..z},
42{*},45{-},46{.},95{_}: Result := Result + Text[i];
else Result := Result + '%' + IntToHex(Ord(Text[i]),2);
end;
end;
function TFrm.MakeTextForSend: String;
begin
Result :=
'poleNejakeCislo=123&'+
'polePrazdnaHodnota=&'+ // nebo to uplne vynechas
'poleNejakejString='+GetUrlEncodingText('nejaka ceska pismena')+'&'+
'polePosledniPoleNeniZakonceneAmprsandem=1';
end;
function TFrm.PostDataToWWW(const Response: TStringStream): Boolean;
function CheckResponse(const Data: String): Boolean;
begin
Result := UpperCase(Data)='OK';
end;
var Source: TStringStream;
begin
Result := false;
HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
Response.Seek(0,soFromBeginning);
Source := TStringStream.Create('');
try
Source.WriteString(MakeTextForSend);
try
HTTP.Post('http://www.nejakaadresa(tec)cz/nejakastranka.asp?', Source,
Response); // nebo .php, ? je kvuli zabraneni kesovani
except
on E: Exception do begin
MessageDlg(E.Message,mtError,[mbOk],0);
Exit;
end;
end;
finally
Source.Free;
end;
Result := CheckResponse(Response.DataString);
end;
procedure TFrm.btnSendClick(Sender: TObject);
var Response: TStringStream;
begin
Response := TStringStream.Create('');
try
PostDataToWWW(Response);
finally
Response.Free;
end;
end;
Kde HTTP je typu TIdHTTP (komponenta z INDY) a ma takto nastavene hodnoty:
HTTP.Request.ProxyServer := '127.0.0.1'; // dej pres Proxomitron - kvuli
debugu
HTTP.Request.ProxyPort := 8080; // standard v Proxomitronu
HTTP.Request.Username := ''; // nejake jmeno a heslo - do Proxomitronu neni
treba
HTTP.Request.Password := '';
P.S.: kod jsem psal primo do mailu, takze tam mozna jsou nejake syntakticke
preklepy - dulezita je vsak ta idea...
Uspech preje
Michal Prokopec
----- Original Message -----
From: <martin.falta(zv)obi.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 15, 2002 9:57 AM
Subject: Odeslani dat do WWW formulare metodou POST
> Ahoj,
>
> pisu aplikaci, ze ktere potrebuji poslat data na www server. Tato data lze
> zadavat i prostrednictvim www formulare. Data se z tohoto formulare
> odesilaji metodou POST. Ja bych potreboval, aby moje aplikace umela poslat
> data pres tento formular. Nevite nekdo jak na to?
>
> Predem dekuji.
>
> S pozdravem
> Martin Falta
> OBI IT
> tel.: +420 2 96576 156
> GSM: +420 603 151147
>
>last modify souboru
[*] pavel.ales(zv)popron(tec)cz - 15.2.2002 14:05:47
Jak zjistim Lastmodify souboru?Diky moc nejak jsem to zapomnel..
Ales Pavel
D5Ent W2000
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
OT: SELECT z vice databazi MS SQL
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 15.2.2002 14:13:20
Ahoj,
lze vytvorit select z nekolika tabulek, kdy je kazda tabulka v jine MS SQL
databazi. Nenasel jsem zatim zadny zpusob jak to udelat, ale zamestnavatel
to po me pozaduje. V pripade, ze to nelze, by se mi Vase nazory hodily jako
argument pro to, aby se tabulky premistily do jedne databaze, o cemz ale
zamestnavatel nechce ani slyset. Pouzivam (zacinam pouzivat) MS SQL 8.
Budu vdecny za pozitivni i negativni radu.
Petr
Dockable objects
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 15.2.2002 14:18:39
Hello All!
Pekne komentovany (bohuzial len anglicky) priklad na %subj% je na:
http://www.gajits.com/p_docking.asp
Bye
V.Mlich http://www.rar(tec)cz
last modify souboru
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.2.2002 14:28:19
function GetFileLastModDate (FileName: string): TDateTime;
var Rec : TSearchRec;
SysTime : _SYSTEMTIME;
begin
if FindFirst (FileName, faAnyFile, Rec) = 0 then
begin
FileTimeToSystemTime (Rec.FindData.ftLastWriteTime, SysTime);
Result := SystemTimeToDateTime (SysTime);
end
else
Result := 0;
FindClose (Rec);
end;
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
> From: <pavel.ales(zv)popron(tec)cz>
> Jak zjistim Lastmodify souboru?Diky moc nejak jsem to zapomnel..
> Ales Pavel
INI a W95
[*] Ing. Vladim�r R��i�ka������rFv("��� - 15.2.2002 14:42:40
Zdarec vsem,
pri otevreni hlavniho okna aplikace nacitam data z ini souboru, ktery se mi
na WIN98 vytvori, ale ejhle na WIN95 se mi ne.
Jde s tim neco delat ?
Nebo musim vzdycky nejake defaultni nastaveni ulozit napr. pomoci
WriteString?
Uses IniFiles;
Procedure NactiNastaveni;
var
Regi:TIniFile;
begin
Regi:=TIniFile.Create(extractfilepath(application.exename)+'SpExport.ini');
FormNastaveni.RB.Caption:=Regi.ReadString('Transakce','neomezeny','ahoj');
Regi.destroy;
end;
Dik za odpoved.
Vladimir D3, D4, WIN98, WIN95, WIN NT 4.0
Dockable objects
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 14:44:20
From: "Viliam Mlich" <vmlich(zv)mbox.vol(tec)cz>
> Pekne komentovany (bohuzial len anglicky) priklad na %subj% je na:
Porad lepsi nez kdyby to bylo treba madarsky <g>. Mozna by bylo dobre opet
pripomenout, ze v jinem jazyce nez anglictine tezko najdes nejake informace.
Tak uz to proste je a bude. Podobny clanek popisujici docking vysel kdysi v
The Delphi Magazine - Issue 63, priklady si je mozne stahnout volne:
http://www.thedelphimagazine.com/disks.php
Petr Vones
IB a insert do NotNull poli
[*] Rado Benc <bego(zv)pobox.sk> - 15.2.2002 14:47:43
Nazdar,
> Dotaz: da se IB6 server nejak presvedcit, aby pri vlozeni NULL
> hodnoty do not null sloupce automaticky pouzil default? Nebo - da
> se rict IBDatasetu, aby pri insertu NULL hodnoty vypustil?
Da.
CREATE TRIGGER "FOO_SET_DEFAULT" FOR "FOO"
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.FOO_FIELD_ID IS NULL) THEN
NEW.FOO_FIELD_ID = 12345;
END
Samozrejme, miesto 12345 mozno podla potreby zmenit.
HTH,
Rado
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
SELECT z vice databazi MS SQL
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 15.2.2002 14:48:17
:: lze vytvorit select z nekolika tabulek, kdy je kazda tabulka v jine MS
SQL databazi.
ale lze:
select *
from databaze1.dbo.tabulka1, databaze2.dbo.tabulka2
where ....
J.
===========================================
Ji�� Kr�l jr.
administr�tor IT
tisk�rna Printo, spol. s r.o.
http://www.printo(tec)cz
mailto:admin(zv)printo(tec)cz
ICQ#15303940
tel.: +420 (69) 693 84 00, linka 143
INI a W95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 14:49:48
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> pri otevreni hlavniho okna aplikace nacitam data z ini souboru, ktery se mi
> na WIN98 vytvori, ale ejhle na WIN95 se mi ne.
> Jde s tim neco delat ?
> Nebo musim vzdycky nejake defaultni nastaveni ulozit napr. pomoci
> WriteString?
Ahoj,
tak pokud tam nic nezapises tak nema smysl aby ten soubor existoval. Na Win9x
je jeste dobre pred uzavrenim volat TIniFile.UpdateFile.
> Regi.destroy;
Nikdy nevolej primo Destroy. K uvolneni slouzi metoda Free. Dale viz help.
Petr Vones
Nacteni obsahu adresare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 15:02:34
From: <ales(zv)kerner(tec)cz>
> Jak mam jednoduse nacist strukturu adresare?
> Potreboval bych to nejlepe do ComboBoxu.
Ahoj,
Napriklad funkci BuildFileList z http://delphi-jedi.org/Jedi:CODELIBJCL
uses
JclFileUtils;
procedure TForm1.FormCreate(Sender: TObject);
begin
BuildFileList('*.*', faArchive or faReadOnly, ComboBox1.Items);
end;
Petr Vones
TDBGrid + Cestina
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 15.2.2002 15:13:12
Zdravim,
mam problem s cestinou v TDBgridu, nezobrazuje se mi korektne.:-( Grid je napojeny pres TDataSource a TTAble na textovy soubor a pomoci souboru "sch". Poradite jak odstranit # jenz jsou misto ceskych znaku. D5 NT4. Diky. M&B Jak na celkovy pocet handlu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 15:21:39
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> 1. pdh.dll neni defaultne soucasti WinNT
Pro NT4 je soucasti Resource Kitu
> 2. nazvy counteru jsou jazykove zavisle
Aha, tak to je slabsi. Predpokladam ze v registry budou i nejake zakladni
anglicke nazvy.
> 3. jsou zde problemy pri odkaze na proces s vice instancemi
Pravda.
Task Manager s nejvetsi pravdepodobnosti pouziva nedokumentovanou funkci NT
jadra - NtQuerySystemInformation. V newsech se daji najit nejake popisy a
priklady.
Petr Vones
Prekresleni nebo prebarveni scrollbaru
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 15.2.2002 15:44:08
Ahojky.
Nema nekdo napad, jak "rozumne" prekreslovat, nebo alespon prebarvovat
(jako IE) scroll bary u komponent typu RichEdit, Memo, ScrollBox,
DrawGrid a spol? Hledal jsem a nic....
Ales
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.2.2002 16:08:10
Jak jsem studoval pdh.dll tak jsem zjistil, ze se pouze snazi
vytvorit interface na registery, konkretne na:
HKEY_PERFORMANCE_DATA
Zde jsem narazil na jednu zvlastnost, delphi
trida TRegistry nedokaze cist tyto udaje, je treba je cist
primo API funkci RegQueryValueEx.
Chce to zjistit strukturu tohoto klice, jelikoz by zde melo byt
i PID, takze pak by melo stacit projit si vsechny dostupne instance
a porovnat PID se svym.
Slavek
> > 2. nazvy counteru jsou jazykove zavisle
>
> Aha, tak to je slabsi. Predpokladam ze v registry budou i nejake zakladni
> anglicke nazvy.
>
> > 3. jsou zde problemy pri odkaze na proces s vice instancemi
>
> Pravda.
>
> Task Manager s nejvetsi pravdepodobnosti pouziva nedokumentovanou funkci NT
> jadra - NtQuerySystemInformation. V newsech se daji najit nejake popisy a
> priklady.
>
> Petr Vones
> Jak na celkovy pocet handlu
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 15.2.2002 16:19:36
Teda nesleduju tuhle debatu od zacatku, takze mozna nosim drivi do lesa,
ale nejde pouzit rovnou Perfutils
http://www.aldyn.ru/products/perfutils/index.html ?
Ales
> Jak jsem studoval pdh.dll tak jsem zjistil, ze se pouze snazi
> vytvorit interface na registery, konkretne na:
> HKEY_PERFORMANCE_DATA
> Zde jsem narazil na jednu zvlastnost, delphi
> trida TRegistry nedokaze cist tyto udaje, je treba je cist
> primo API funkci RegQueryValueEx.
> Chce to zjistit strukturu tohoto klice, jelikoz by zde melo byt
> i PID, takze pak by melo stacit projit si vsechny dostupne instance
> a porovnat PID se svym.IB a insert do NotNull poli
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.2.2002 16:36:02
> > Dotaz: da se IB6 server nejak presvedcit, aby pri vlozeni NULL
> > hodnoty do not null sloupce automaticky pouzil default? Nebo - da se
> > rict IBDatasetu, aby pri insertu NULL hodnoty vypustil?
>
> Da.
>
> CREATE TRIGGER "FOO_SET_DEFAULT" FOR "FOO"
> ACTIVE BEFORE INSERT POSITION 0
> AS
> BEGIN
> IF (NEW.FOO_FIELD_ID IS NULL) THEN
> NEW.FOO_FIELD_ID = 12345;
> END
>
Tohle jsem nemyslel, to umim, jenze je to silene pracne (hodne
tabulek, hodne sloupecku a co kdyz se pak rozhodnu default
upravit..., nezapomenout na to pri pridani novych tabulek...).
Dlouho bych popisoval, proc to potrebuji, ale doufal jsem, ze
existuje nejaky flag nebo neco, co bez zasahu do databaze i do
programu rekne serveru, ze kdyz prijde prikaz
insert into bla (...) values (..., NULL, ...) a dany sloupec nebude
bude NOT NULL s default hodnotou, tak aby ji pouzil misto NULL.
Vim, ze to je nestandardni chovani a teprve pokud by to neslo
zajistit, budu hledat nahradni reseni.
V kazdem pripade to davam jako argument proti pouzivani dbaware
komponent pro editaci.
David Lebeda
602 PC Suite - OLE Automation
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 15.2.2002 18:10:37
----- Original Message -----
From: "Martin Macko" <martinm(zv)m-pro(tec)cz>
> Nemate nekdo zkusenosti s ovladanim baliku od 602software pres OLE ?
Ahoj.
Mrkni na :
http://www.software602(tec)cz/produkty/pcsuite/ole_auto.htm
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
IB a insert do NotNull poli
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 15.2.2002 21:10:18
Ahoj,
On 15 Feb 2002, at 16:36, Lebeda David wrote:
> V kazdem pripade to davam jako argument proti pouzivani dbaware
> komponent pro editaci.
tech argumentu se teto v konferenci za posledni dobu (2-3 roky) uz
objevilo tolik, ze jen SEBEVRAH nebo MASOCHISTA je jeste muze
zacit (to asi neni Tvuj pripad) pouzivat.
Jarek Uher
IB a insert do NotNull poli
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2002 21:51:41
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
> > V kazdem pripade to davam jako argument proti pouzivani dbaware
> > komponent pro editaci.
>
> tech argumentu se teto v konferenci za posledni dobu (2-3 roky) uz
> objevilo tolik, ze jen SEBEVRAH nebo MASOCHISTA je jeste muze
> zacit (to asi neni Tvuj pripad) pouzivat.
Ahoj,
ackoli databazim prilis nerozumim (a ani nechci), tak me prijde ze cele tyto
diskuze jsou o necem jinem nez dbaware komponentach. Tyto komponenty jsou
navazany na nejakeho potomka datasetu, v mnoha pripadech se tak pouzivalo BDE
pro SQL databaze. To melo za nasledek, ze veskere operace byly provadeny na
urovni zaznamu, coz je asi nepouzitelne. To ale prece neznamena, ze misto
potomka v podobe TQuery nemohu pouzit dataset, ktery si interne ulozi data z
dotazu databaze, veskere operace provedene dbaware komponentami si pamatuje a
pak je schopen tyto zmeny najednou provest v databazi. Uz v BDE byl o neco
takoveho pokus, jmenovalo se to cached updates. Lepsi reseni je dnes pouziti
TClientDataSet, ktery je od D6 i v ve verzi Professional.
ClientDataset as a Replacement for Cached Updates by Dan Miser
http://community.borland.com/article/0,1410,20567,00.html
When do I need to buy a MIDAS License?
http://community.borland.com/article/0,1410,20870,00.html
Petr Vones
Outlook Data
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.2.2002 22:12:41
Ahoj
Utilitku mam (DBXtract). Muzu poslat.>Kompletni posta (i s prilohama) se uklada do slozky, kterou nastavi
uzivatel. Vetsinou to byva ta, kterou napsal Ludek, ale >nekteri uzivatele
maji tu slozku jinde (treba ja, kvuli bezpecnejsimu disku). Je to obycejna
nejaka (druh nevim) databaze. >Existuje na to nejaka utilitka (ted ji tady
bohuzel nemam), ktera umi maily z techto databazi extrahovat (samotnou
prilohu >nedostanes, ta je soucasti mailu), tusim ze byla i se zdrojakama.
Kdyztak napis a ja se po tom budu pidit.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
IB na Win2000 a subor services
[*] MiroM <miromr(zv)hotmail(tec)com> - 15.2.2002 23:11:33
Zdravim vsetkych,
pokusam sa nainstalovat Firebird na Win2000. Neviem ci aj tam je treba
zapisat do suboru services
riadok
gds_db 3050/tcp
Ak ano kde sa tento subor spravidla nachadza?
Diky miro
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.2.2002 00:46:38
----- Original Message -----
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> zaokruhlovanie na parnu cislicu funguje "statisticky" spravne, ak pocet
> cisel s parnou a neparnou cislicou pred petkou je rovnaky. Je tu teda
Ano to je pravda.
> Podla mojho nazoru najvyhodnejsi je jednoduchy system zaokruhlovania
> 5 nahor. Pokial viem, tak je to asi aj najpouzivanejsi system.
Je to ovsem "statisticky" to nejhorsi. V kazdem pripade je "parne"
zaokrouhleni IMHO o 50% presnejsi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
Remote time
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 16.2.2002 06:58:29
>> nevite nekdo jak zjistim aktualni cas na jinem pocitaci
> ak sa daju na nom zdielat subory, skusil by som na nom vytvorit
> tmp subor a potom sa spytat na cas jeho vytvorenia.
K tomu este dodatok: Ked je to na Novellovskom serveri, tak cas zistovany
Win32 API funkciou GetFileTime je nejaky podivny, zato ten udaj, co da
FindFirstFile, sa pouzit da. Na inych serveroch som neskusal. Mozno je to aj
klientom.
bye
vmlich http://www.rar(tec)cz
IB a insert do NotNull poli
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 16.2.2002 10:02:29
On 15 Feb 2002 at 21:51, Petr Vones wrote:
> ackoli databazim prilis nerozumim (a ani nechci), tak me prijde ze
> cele tyto diskuze jsou o necem jinem nez dbaware komponentach. Tyto
> komponenty jsou navazany na nejakeho potomka datasetu, v mnoha
> pripadech se tak pouzivalo BDE pro SQL databaze. To melo za nasledek,
> ze veskere operace byly provadeny na urovni zaznamu, coz je asi
> nepouzitelne. To ale prece neznamena, ze misto potomka v podobe TQuery
> nemohu pouzit dataset, ktery si interne ulozi data z dotazu databaze,
> veskere operace provedene dbaware komponentami si pamatuje a pak je
> schopen tyto zmeny najednou provest v databazi. Uz v BDE byl o neco
> takoveho pokus, jmenovalo se to cached updates. Lepsi reseni je dnes
> pouziti TClientDataSet, ktery je od D6 i v ve verzi Professional.
Ono nejde jen o to, poslat celou zmenu najednou do databaze, ale take
o to, ze kdyz uzivatel edituje, a pak si to rozmysli a da Cancel, pak
mohou nastat problemy s uvadenim datasetu do puvodniho stavu. Krome
toho, cached update mel take sve problemy, tedy prinejmensim v dobe,
kdy jsem se jim naposledy zabyval. Optimalni je opravdu editovat
vsechno mimo, a teprve po potvrzeni uprav poslat vse do datasetu (a
databaze).
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
IB na Win2000 a subor services
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.2.2002 12:45:14
Haj hou!
On 15 Feb 2002, at 23:11, MiroM wrote:
> Zdravim vsetkych,
> pokusam sa nainstalovat Firebird na Win2000. Neviem ci aj tam je treba
> zapisat do suboru services
> riadok
> gds_db 3050/tcp
> Ak ano kde sa tento subor spravidla nachadza?
Find File nepomaha ? Nejsem zrovna na NT, ale pokud me pamet
neklame tak je to nekde ve WinNT\System32\drivers\etc nebo tak
nejak.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Apostrof v TCustomEdit
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 16.2.2002 13:06:02
Zdravim,
resim tu takovy problem - mam globalne ve sve aplikaci odfiltrovany stisk
klavesy s jednoduchym apostrofem v editacnich polich, kvuli triggerum v SQL
databazi, protoze je pak tim apostrofem "rozhozeny" sql prikaz, ktery je
temi triggery generovan. Ta filtrace funguje bajecne, ale nekteri uzivatele
programu to dokazi obejit pres Ctrl+C a Ctrl+V nebo obecne pres funkci
"Vlozit". A ted se ptam: Je nejak jednoduse mozne pred pouzitim Windows
featury "Vlozit Ctrl-V" ten vkladany text z clipboardu nejak odkontrolovat ?
Nechce se mi to delat pro kazdy TCustomEdit nebo TField, je jich v aplikaci
radove stovky.
Diky za kazdy namet.
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
software, obchod, servis
tel. 0 776 677 776
0 608 9 44444
tel. 0467 521 555
0467 520 141
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
***************************
http://www.auto-pujcovny(tec)cz
http://www.koncese.com
http://www.mismarket(tec)cz
http://www.mismarket.com
Apostrof v TCustomEdit
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.2.2002 13:54:25
----- Original Message -----
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
> resim tu takovy problem - mam globalne ve sve aplikaci odfiltrovany stisk
> klavesy s jednoduchym apostrofem v editacnich polich, kvuli triggerum v
SQL
> databazi, protoze je pak tim apostrofem "rozhozeny" sql prikaz, ktery je
> temi triggery generovan. Ta filtrace funguje bajecne, ale nekteri
uzivatele
> programu to dokazi obejit pres Ctrl+C a Ctrl+V nebo obecne pres funkci
> "Vlozit". A ted se ptam: Je nejak jednoduse mozne pred pouzitim Windows
> featury "Vlozit Ctrl-V" ten vkladany text z clipboardu nejak odkontrolovat
?
> Nechce se mi to delat pro kazdy TCustomEdit nebo TField, je jich v
aplikaci
> radove stovky.
>
Ahoj.
Treba navesit na vsechny odalosti OnChange tohle :
procedure TForm1.AllEditsChange(Sender: TObject);
begin
if (Sender is TCustomEdit) then (Sender as TCustomEdit).Text :=
StringReplace((Sender as TCustomEdit).Text,#39,'',[]);
end;
Nebo tak nejak...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
FB/IB Kompatibilita klienta
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.2.2002 14:06:45
Zdravim.
Je FB kompatibilni s IB na urovni klienta ?
Jde mi o to, ze hodlam prevest postupne sve aplikace z IB na FB. To
samozrejme neudelam najednou, takze budu potrebovat ze sveho notebooku
nejaky cas pristupovat k FB i IB.
Taky nejaka ta udrzba klientskych SW bude behem te doby potreba provadet
paralelne (D5prof a IBX).
Co mne pri tom jeste ceka za problemy krom nekompatibility databaze na
binarni urovni.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
FB/IB Kompatibilita klienta
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.2.2002 14:18:13
Haj hou!
On 16 Feb 2002, at 14:06, Lud�k ZITA wrote:
> Je FB kompatibilni s IB na urovni klienta ?
> Jde mi o to, ze hodlam prevest postupne sve aplikace z IB na FB. To
> samozrejme neudelam najednou, takze budu potrebovat ze sveho notebooku
> nejaky cas pristupovat k FB i IB.
> Taky nejaka ta udrzba klientskych SW bude behem te doby potreba provadet
> paralelne (D5prof a IBX).
> Co mne pri tom jeste ceka za problemy krom nekompatibility databaze na
> binarni urovni.
Na urovni API jsou IB 6 a FB 1 kompatibilni. Je ovsem dobre
pouzivat klientskou knihovnu (GDS32.DLL na windows, gds.so na
Linuxu) FB k pristupu na FB a klientskou knihovnu IB k pristupu na
IB.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB na Win2000 a subor services
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.2.2002 15:17:10
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Find File nepomaha ? Nejsem zrovna na NT, ale pokud me pamet
> neklame tak je to nekde ve WinNT\System32\drivers\etc nebo tak nejak.
Jo, presne tam. Jinak pro zapis/cteni toho souboru jsou Winsock funkce.
Petr Vones
FB/IB Kompatibilita klienta
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.2.2002 15:56:54
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> On 16 Feb 2002, at 14:06, Lud�k ZITA wrote:
> > Je FB kompatibilni s IB na urovni klienta ?
> Na urovni API jsou IB 6 a FB 1 kompatibilni. Je ovsem dobre
> pouzivat klientskou knihovnu (GDS32.DLL na windows, gds.so na
> Linuxu) FB k pristupu na FB a klientskou knihovnu IB k pristupu na
> IB
Diky.
Jak toho muzu v praxi dosahnout ? POkud se nemylim, tak klientska knihvna
pro IB je take gds32.dll.
Jeste jsem se vlastne ani nezeptal, zda muzu mit na jednom stoji
nainstalovanu najednou IB i FB. Nebylo by sice nutne je provozovat najednou,
ale jinak by to asi stejne bylo na rozdeleni na dva stroje (:
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
OT cislo CD ve Windows
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 16.2.2002 16:57:46
Dobry den,
nevite jak ziskat cislo CD ve Windows, ktere se pouziva v CDPLAYER.INI ?
Image a Icon
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 16.2.2002 17:29:24
D6, WinXP
Chcem ulozit Image do suboru ako ikonu. Pokusal som sa to robit tak, ze som
exportoval obrazok do Icon a potom to ulozil. Nejde mi to. Mozete mi to
niekto ukazat na kode?
Vdaka za kazdu radu.
Pocet suborov v adresare
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 16.2.2002 19:44:59
D6
Potrebujem zistit SUBJECT. Pouzivam k tomu tuto funkciu:
function TMainTrap.Velkost(Subor: String): Longword;
var sr: TSearchRec; r:integer;
var Ext: String;
var C: Longword;
begin
C:=0;
IF (Pos('*', Subor)<>0) OR (Pos('?', Subor)<>0) THEN
begin
IF Pos(' <s podprie�inkami>', Subor)<>0 THEN
begin
Ext:=StrOdstran(' <s podprie�inkami>', Copy(Subor, PosN('\', Subor,
StrVyskyt('\', Subor))+1, Length(Subor)));
Subor:=Copy(Subor, 1, PosN('\', Subor, StrVyskyt('\', Subor))-1);
C:=C+Velkost(Subor+'\*.*');
r:=FindFirst(Subor+'\'+Ext,faDirectory,sr);
while r=0 do
begin
IF (copy(sr.name,1,1)<>'.') AND DirectoryExists(Subor+'\'+sr.name) THEN
C:=C+Velkost(Subor+'\'+sr.name+'\'+Ext+' <s podprie�inkami>');
r:=FindNext(sr);
end;
FindClose(sr);
end else
begin
Ext:=Copy(Subor, PosN('\', Subor, StrVyskyt('\', Subor))+1,
Length(Subor));
Subor:=Copy(Subor, 1, PosN('\', Subor, StrVyskyt('\', Subor))-1);
r:=FindFirst(Subor+'\'+Ext,faAnyFile,sr);
while r=0 do
begin
IF FileExists(Subor+'\'+sr.name) THEN C:=C+Velkost(Subor+'\'+sr.name);
r:=FindNext(sr);
end;
FindClose(sr);
end;
end else
begin
C:=1;
end;
Velkost:=C;
end;
Vzdy funguje spolahlivo, no problem je v tom, ze je hrozne zdlhava. Nedalo
by sa to nejako zrychlit? Alebo existuje v Delphi na to funkcia?
Vdaka za kazdu radu.
PS: Ospravdlnujem sa za dlhsi prispevok.
obarveni textu a pozadi panelu TSatusBaru
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 16.2.2002 19:49:52
Ahoj,
potreboval bych programove vypisovat texty do nekolika panelu
TStatusBaru. Potrebuji u nich menit barvu pozadi a barvu textu tak, aby
kazdy panel mohl mit jine zabarveni.
Lze to?
Tomas
Pocet suborov v adresare
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.2.2002 22:38:46
> function TMainTrap.Velkost(Subor: String): Longword;
> var sr: TSearchRec; r:integer;
> var Ext: String;
> var C: Longword;
> begin
> C:=0;
> IF (Pos('*', Subor)<>0) OR (Pos('?', Subor)<>0) THEN
> begin
> IF Pos(' <s podprie�inkami>', Subor)<>0 THEN
> begin
> Ext:=StrOdstran(' <s podprie�inkami>', Copy(Subor, PosN('\', Subor,
> StrVyskyt('\', Subor))+1, Length(Subor)));
> Subor:=Copy(Subor, 1, PosN('\', Subor, StrVyskyt('\', Subor))-1);
> C:=C+Velkost(Subor+'\*.*');
> r:=FindFirst(Subor+'\'+Ext,faDirectory,sr);
> while r=0 do
> begin
> IF (copy(sr.name,1,1)<>'.') AND DirectoryExists(Subor+'\'+sr.name) THEN
> C:=C+Velkost(Subor+'\'+sr.name+'\'+Ext+' <s podprie�inkami>');
> r:=FindNext(sr);
> end;
> FindClose(sr);
> end else
> begin
> Ext:=Copy(Subor, PosN('\', Subor, StrVyskyt('\', Subor))+1,
> Length(Subor));
> Subor:=Copy(Subor, 1, PosN('\', Subor, StrVyskyt('\', Subor))-1);
> r:=FindFirst(Subor+'\'+Ext,faAnyFile,sr);
> while r=0 do
> begin
> IF FileExists(Subor+'\'+sr.name) THEN C:=C+Velkost(Subor+'\'+sr.name);
> r:=FindNext(sr);
> end;
> FindClose(sr);
> end;
> end else
> begin
> C:=1;
> end;
> Velkost:=C;
> end;
>
> Vzdy funguje spolahlivo, no problem je v tom, ze je hrozne zdlhava. Nedalo
> by sa to nejako zrychlit? Alebo existuje v Delphi na to funkcia?
>
1) operace se stringy jsou vzdy velmi pomale - zvlaste pokud se v cyklu
opakuji casto.
> IF (copy(sr.name,1,1)<>'.') AND DirectoryExists(Subor+'\'+sr.name) THEN
Operace typu "if Copy(SS,1,1) ,. '.' je neefektivni a vzdy je mnohem
rychlejsi toto:
if (S <> '') and (S[1] <> '.') then
pokud ma cast za za AND za ukol zjistit zda nalezene jmeno je adresar pak
ji lze nahradit prostym
porovnanim sr.attr. DirectoryExist pacha zrejme interne dalsi FindFirst cili
hodne zdrzuje
Cely radek pak bude v efektivejsim podani vypadat:
if (sr.name <> '') and (sr.name[1] <> '.') and (sr.attr and faDirectory > 0)
then
dalsiho zrychleni lze docilit vyhozenim kontroly "sr.name <> '', protoze po
uspesnem volani FindFirst/FindNext nikdy nebude sr.name prazdne (NIL)
2) operace se scitanim stringu, ktere lze elimonovat je vhodne eliminovat.
Tj secist co jde dopredu jeste pred cyklem.
misto vkladani "<s podprie�inkami>" do jmena hledaneho souboru by bylo
urcite rychlejsi a take nazornejsi pouzit nejaky dalsi argument funkce
Velkost()
3) pri prolezani struktury adresaru muze byt efektivnejsi nejprve zjistit
informace o polozkach daneho adresare a teprve pak se zanorovat do dalsi
urovne. Vetsinou jsou polozky adresare v clusterech jdoucich za sebou takze
jejich nacteni je rychle. Pokud se ale odskakuje do dalsich adresaru (cili
musi se cist z uplne jine oblasti disku a pak se zase vracet zpet) muze to
vest k citelnemu zpomaleni. Pravda dickova cache by mela ledacos
eliminovat - ale jen pokud je dost velka. Prochaz�=li se hlubsi stromova
struktura adresaru, kde je velke mnozstvi souboru nemusi cache stacit.
---
D. Toman
UpDate
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 17.2.2002 08:46:23
Ked program vykonava nejaku dlhsiu ulohu. Na obrazovku hodim teda
ProgressBar a vzdy, ked sa urbi dalsia cast z ulohy tak posuniem
ProgressBar.Position a dam ProgressBar.UpDate. Takze by sa mala na obrazovke
zobrazit aktualna pozicia ulohy. To vsetko aj funguje az na Windows XP. Tu
sa to posuva, pokial nekliknem na nejaku inu aplikaciu. Ked sa vratim na tu
moju, tak uz sa nic nedeje. Pri krokovani nevznika ziadna chyba, dokonca ked
pri behu programu pockam, tak sa po chvyli skutocne priebeh ulohy spravne
ukonci, lenze ProgressBas sa neposuva. Co s tym?
Vdaka za kazdu radu.
CustomScroolbars
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 17.2.2002 10:21:30
Chtel bych udelat nejakou kreslici plochu, na kterou bych kreslil jen
programove, ale jde mi o to, abych si tam mohl vytvorit vlastni
scrollbary. Poradite mi?
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi
5
______________________________________________________________________
Cesky film Zatraceni v kinech od 7. unora 2002 - vice na www.zatraceni(tec)cz
hraji: Jan Plouhar, Jan Revai, Dana Vavrova, Isabela Bencova, rezie Dan Svatek
THotPointImage
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 17.2.2002 10:23:12
Zdravim
Chtel bys poprosit o pomoc. Urcite se zde najde nekdo kdo rozumi
tvorbe komponent vice nez ja. Potreboval bych vytvorit pro mne
obtiznou komponentu, rad bych si ji udelal sam, ale ponekud s tim
pospicham. Proto bych vas chtel poprosit jestli byste mi s tim
nepomohli.
Nyni popisu par bodu, ktere bych od komponenty potreboval:
- pracovni nazev by zatim byl THotPointImage a jako predka bych asi
urcil TImage
- melo by jit vlastne o TImage s definovatelnymi oblastmi
(hotpointy), ktere by reagovali na udalosti OnMouseClick a
OnMouseOver
- definice umisteni jednotlivych oblasti by byli ulozeny ve
vlastnosti typu TStrings, na kazdem radku by byly uchovany informace
o umisteni a rozmerech oblasti
- dalsi dulezitou vlastnosti by melo byt neco na zpusob array of
THotPoints, ktere by obsahovalo jednotlive HotPointy
- kazdy THotPoint by mel mit vlastnosti:
* id (celociselna identifikace hotpointu prirazena pri nacitani z
TStrings a postupne inkrementovana)
* bordercolor (barva jednoducheho ramecku kazdeho hotpointu)
* borderwidth (sirka ramecku)
* bordercolorover (barva ramecku pri prejezdu mysi nad
hotpointem)
* bordercolorclick (barva ramecku pri kliknuti na hotpoint)
* checked (stav hotpointu meneny za behu programu)
* uncheckedcolor (barva vyplne pri checked := false)
* checkedcolor (barva vyplne pri checked := true)
- za behu programu bych chtel k jednotlivym hotpointum pristupovat
pred jejich id (napr. HotPointImage1.HotPoints[3].checked := true)
Tak to bude asi vse. Predem upozornuji, ze komponentu nechci pouzit v
zadnem komerecnim programu. Docela nutne ji potrebuju pouzit v
programu pro maturitni praci, ktera se kontroluje priblizne za mesic,
takze mam co delat. Moc dekuji za ochotu a vubec bych se nezlobil,
kdyby se nekomu chtelo vytvorit to cele.
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi
5
______________________________________________________________________
Cesky film Zatraceni v kinech od 7. unora 2002 - vice na www.zatraceni(tec)cz
hraji: Jan Plouhar, Jan Revai, Dana Vavrova, Isabela Bencova, rezie Dan Svatek
Upravy DBGrid - zruseni ScrollBars
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 17.2.2002 12:11:06
Zdravim,
kdosi potreboval upravit DBGrid - zrusit jeden nebo oba ScroolBary.
Moje prvni uprava spocivala ve vytvoreni dedice originalniho TDBGrid. Bohuze
dochazelo k nezadoucim jevum - problikavani vertikalniho Scrollbaru.
Druha uprava spocivala v totalni upravy originalu DBGridu. Uz nic
neproblikava a je vse OK.
Bohuzel upravy jsou pouze pro D6, protoze nevlastnim D5, nevim jestli to v
D5 pojede.
Zdrojaky na www.kopr(tec)cz/delphi/index.htm#TKxDBGrid
Pavel ZIDEK
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Automation, Destroy
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 17.2.2002 15:28:18
Ahoj,
potreboval by som spravit Automation Object, ktory by pri uvolneni napriklad
zobrazil MessageBox.
teda napriklad kod:
Set A = CreateObject("Auto.Auto")
Set A = nil
by zobrazilo MessageBox, s informaciou "Objekt zruseny".
existuje nejaka metoda, ktora je vyvolana pri "Set A = nil" ???
Za radu dakuje
Ondrej Krsko
prevod stringu na Real48
[*] Zden�k Sv�en - 17.2.2002 16:01:17
Ahoj,
uzivatel vyplnuje do inputboxu realne cislo (formou textu). Potrebuju tedy
prevest string na real, konkretne Real48, protoze ho musim zapsat do
typoveho souboru, kde je pouzit Real48.
A ted problem:
Var Cislo:Real48;
CisloText:string;
CisloText := '0.2';
Cislo := StrToFloat(CisloText);
no a vysledkem je 0.2000000000181 nebo 0.200000000092 nebo 0.199999999999
Proste to prevadi nejak divne a nevim, co je spatne.
Vi to nekdo?
Dik.
Zdenek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
prevod stringu na Real48
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 17.2.2002 16:21:24
----- Original Message -----
From: "Zden�k Sv�en" <dkonf(zv)seznam(tec)cz>
> uzivatel vyplnuje do inputboxu realne cislo (formou textu). Potrebuju tedy
> prevest string na real, konkretne Real48, protoze ho musim zapsat do
> typoveho souboru, kde je pouzit Real48.
>
> A ted problem:
>
> Var Cislo:Real48;
> CisloText:string;
>
> CisloText := '0.2';
> Cislo := StrToFloat(CisloText);
>
> no a vysledkem je 0.2000000000181 nebo 0.200000000092 nebo 0.199999999999
>
Ahoj.
Nevim, jstli to pomuze, ale existuje directiva {$REALCOMPATIBILITY ON} ktera
se typu Real48 tyka.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
INI files
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 17.2.2002 17:29:40
Ahoj,
viete niekto, kam by standartne mala Win32 aplikacia ukladat INI subory (pre
kazdeho uzivatela zvlast)
videl som uz viac moznosti, kam to byva ulozene:
$DOCANDSETTINGS \ user \
$DOCANDSETTINGS \ user \ Local Settings
$DOCANDSETTINGS \ user \ Local Settings \ Data aplikac�
$DOCANDSETTINGS \ user \ Data aplikac�
...
ale chcem si byt isty, ze to davam na spravne miesto a ze to dobre pojde aj
skupinam "users" a "power-users".
> popripade ak by sa dalo, tak aj priklad ako zistit cestu k tomu adresaru.
Caute
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Programovanie pre deti - Robot Karol++
http://ono.host.sk/karol
Ikonka v taskbaru vedle hodin a popupMenu
[*] Vladimir Ponechal <vladimir_ponechal(zv)post(tec)cz> - 17.2.2002 18:32:47
Zdar vsichni,
Udelal jsem si ikonku v pravem dolnim rohu v taskbaru (vedle hodin), ale nevim, jak na tuto ikonku muzu udelat PopupMenu. Poradte jak na to.
Mam D6prof.
Diky moc...
Vlada
Apropo kod me ikonky:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, shellApi, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
PopupMenu1: TPopupMenu;
est1: TMenuItem;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MyNotifyStruct: TNotifyIconData;
icons : integer;
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with MyNotifyStruct do begin
cbSize:= sizeof(MyNotifyStruct);
Wnd:= form1.handle;
uID:= 1;
uFlags:= NIF_ICON or NIF_TIP;
hIcon:= form2.Image1.picture.icon.handle;
szTip:= 'My notify icon';
end;
Shell_NotifyIcon(NIM_ADD, (zv)MyNotifyStruct);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_Delete, (zv)MyNotifyStruct);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
icons := icons + 1;
StrPCopy(MyNotifyStruct.szTip,TimetoStr(Time));
if icons = 1 then MyNotifyStruct.hIcon:= form2.image1.picture.icon.handle;
if icons = 2 then MyNotifyStruct.hIcon:= form2.image2.picture.icon.handle;
if icons = 3 then MyNotifyStruct.hIcon:= form2.image3.picture.icon.handle;
if icons = 4 then MyNotifyStruct.hIcon:= form2.image4.picture.icon.handle;
if icons = 5 then MyNotifyStruct.hIcon:= form2.image5.picture.icon.handle;
if icons = 6 then MyNotifyStruct.hIcon:= form2.image6.picture.icon.handle;
if icons = 7 then MyNotifyStruct.hIcon:= form2.image7.picture.icon.handle;
if icons>=7 then icons := 0;
Shell_NotifyIcon(NIM_Modify, (zv)MyNotifyStruct);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_Delete, (zv)MyNotifyStruct);
end;Ikonka v taskbaru vedle hodin a popupMenu
[*] Milan ��ek - 17.2.2002 20:16:55
> Zdar vsichni,
> Udelal jsem si ikonku v pravem dolnim rohu v taskbaru (vedle
> hodin), ale nevim, jak na tuto ikonku muzu udelat PopupMenu.
> Poradte jak na to.
Ahoj,
treba takto:
public
{ Public declarations }
procedure WMTrayAppNotify(var M: TMessage); message WM_TRAYAPPNOTIFY;
end;
procedure TForm1.WMTrayAppNotify(var M: TMessage);
var
P: TPoint;
begin
with M do
case lParam of
WM_LBUTTONUP: // lev� tla��tko
Application.MessageBox('Na ikon� bylo kliknuto!', 'Tray', 0);
WM_RBUTTONUP: // prav� tla��tko
begin
GetCursorPos(P); // z�sk�me sou�adnice kurzoru
PopupMenu1.Popup(P.X, P.Y); // a zobraz�me na nich menu
end;
end;
end;
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
QReport vs. cestina
[*] tomsir1.edu(zv)mail.cez(tec)cz - 17.2.2002 20:45:07
Ahoj,
zacinam pracovat s QReportem a mam nasledujici problemek : vytahnu data z
db /MySQL/ a vlozim je do QReportu, dam Preview .... potud vse v poradku,
cestina na obrazovce vypada tak jak ma ... ovsem, kdyz dam tisknout, na
papir vyleze vse mozne, jen ne ceske znaky ... no abych nelhal, znaky " �
� � " se vytisknou spravne, ostatni /�, �, �, .../ nikoliv ... je to
chyba moje, QReportu, tiskarny .. ??
Diky za pomoc
Radek
prevod stringu na Real48
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2002 06:44:06
> > uzivatel vyplnuje do inputboxu realne cislo (formou textu).
> > Potrebuju tedy prevest string na real, konkretne Real48, protoze ho
> > musim zapsat do typoveho souboru, kde je pouzit Real48.
> >
> > A ted problem:
> >
> > Var Cislo:Real48;
> > CisloText:string;
> >
> > CisloText := '0.2';
> > Cislo := StrToFloat(CisloText);
> >
> > no a vysledkem je 0.2000000000181 nebo 0.200000000092 nebo
> > 0.199999999999
Ahoj,
rekl bych, ze toho se asi nezbavis a myslim, ze to moc nesouvisi s
tim, ze jde o typ Real48. V�dy bude existovat cislo v CisloText,
ktere v dvojkove reprezentaci nepujde zapsat zcela presne. Pred
pouzitim takoveho cisla ho muzes zkusit zaokrouhlit na nejaky
pocet desetinnych mist, podle moznosti ho uchovavat jako string,
je-li pozadovany pocet desetinnych mist maly, zkusit currency a
ruzne jine experimenty.
David Lebeda
OT cislo CD ve Windows
[*] campulka <campulka(zv)czas(tec)cz> - 18.2.2002 07:07:49
GetVolumeInformation
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of 3dimenzion
> Sent: Saturday, February 16, 2002 4:58 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT cislo CD ve Windows
>
>
> Dobry den,
> nevite jak ziskat cislo CD ve Windows, ktere se pouziva v
> CDPLAYER.INI ?
>
> ---
> -= P��choz� zpr�va neobsahuje viry. =-
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
>
---
-= Odchoz� zpr�va neobsahuje viry. =-
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
UpDate
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 18.2.2002 07:33:15
Zkus tam jeste poslat Application.ProcessMessages. Treba to pomuze
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
17.2.2002 Martin Kasman:
> Ked program vykonava nejaku dlhsiu ulohu. Na obrazovku hodim teda
> ProgressBar a vzdy, ked sa urbi dalsia cast z ulohy tak posuniem
> ProgressBar.Position a dam ProgressBar.UpDate. Takze by sa mala na obrazovke
> zobrazit aktualna pozicia ulohy. To vsetko aj funguje az na Windows XP. Tu
> sa to posuva, pokial nekliknem na nejaku inu aplikaciu. Ked sa vratim na tu
> moju, tak uz sa nic nedeje. Pri krokovani nevznika ziadna chyba, dokonca ked
> pri behu programu pockam, tak sa po chvyli skutocne priebeh ulohy spravne
> ukonci, lenze ProgressBas sa neposuva. Co s tym?
> Vdaka za kazdu radu.UpDate
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.2.2002 07:45:23
Zkus misto ProgressBar.Update dat ProgressBar.Refresh
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
> 17.2.2002 Martin Kasman:
>> Ked program vykonava nejaku dlhsiu ulohu. Na obrazovku hodim teda
>> ProgressBar a vzdy, ked sa urbi dalsia cast z ulohy tak posuniem
>> ProgressBar.Position a dam ProgressBar.UpDate. Takze by sa mala na obrazovke
>> zobrazit aktualna pozicia ulohy. To vsetko aj funguje az na Windows XP. Tu
>> sa to posuva, pokial nekliknem na nejaku inu aplikaciu. Ked sa vratim na tu
>> moju, tak uz sa nic nedeje. Pri krokovani nevznika ziadna chyba, dokonca ked
>> pri behu programu pockam, tak sa po chvyli skutocne priebeh ulohy spravne
>> ukonci, lenze ProgressBas sa neposuva. Co s tym?
>> Vdaka za kazdu radu.