Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
seznam vsech formu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 19.10.2001 11:11:29
> Odes�latel: cis <cis(zv)atlas(tec)cz>
> nevite jak najit form v aplikaci a vytvorit ho? Jde o ty formy ktere nejsou
> automaticky vytvorene.
Promin, ale jestli ti rozumim, tak to je zakladni nepochopeni prace s objekty (formulari) v ObjectPascalu.
Kdyz formular neni vytvoren (autocreate), tak jak ho chces najit?
Formular daneho typu (TMyForm) vytvoris prikazem TMyForm.Create(AOwner).
AOwner je vlastnik formulare, tedy ten, kdo zodpovida za to, aby ve svem destructoru zrusil vsechny komponenty, ktere vlastni, tedy i nove vytvoreny formular.
Abys ale mohl s nove vytvorenym formularem pracovat, je dobre si odkaz na tento objekt (instanci tridy TMyForm) ulozit do nejake promenne. Nejlepe do promenne MyForm, kterou Delphi automaticky deklaruje v prislusne unite, ve ktere mas deklaraci formulare TMyForm. Tedy napr.
MyForm:=TMyForm.Create(Application);
nebo z metody nejakeho formulare
MyForm:=TMyForm.Create(self);
a pak samozrejme
MyForm.Show nebo MyForm.ShowModal.
Seznam vsech vytvorenych formularu mas v promenne
Screen.Forms[i], i=0..Screen.FormCount-1.
Pri zavirani formulare (TMyForm.OnClose) lze pak ovlivnit, zda se jenom schova (caHide) nebo doopravdy zrusi (caFree).
Viz "Delphi: Zakladni kurz".
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================seznam vsech formu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.10.2001 11:29:51
> nevite jak najit form v aplikaci a vytvorit ho? Jde o ty
> formy ktere nejsou automaticky vytvorene.
jestli to chces delat ve vlastni aplikaci, tak bych hledal v nejakym
kontejneru TApplication a zjistoval, zda je dany objekt TForm. pokud jo,
nekam si to uloz, pokud ne nic se nedej, zkousej az do poctu vlastnenych
objektu.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
problem s TIBEvents
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.10.2001 11:49:08
pres IBEvents resim rychle zobrazeni polozek DB v Listu. pokud je do DB
pridan zaznam, prijde event a v obsluze udalosti OnEventAlert se zavola
procedura, ktera novou polozku zaradi do listu. problem je prave v tom, ze
pokud spustim cyklus (jak jsem napsal) a zapisu vice polozek do DB nedostanu
nazpet prislusny pocet eventu. 1 a 2 zaznamy funguji bez problemu.
zkusil jsem udelat jednoduchou aplikaci, kde na stisk tlacitka zapisu 5
zaznamu do DB (kazdy zaznam zvlast commitnu (samozrejme)). v obsluze
udalosti se inkrementuje promenna integer a zobrazi se na labelu. po
ukonceni cyklu na labelu sviti cislo jen o 2 vyssi. pokud krokuju, udalost
probehne opravdu jen 2x.
v. sykora
-----Original Message-----
> mam cyklus ve kterem pridavam zaznamy do DB. pokud jich pridam napr. 5
> (za kazdym z nich provedu commit), IB mi posle event o pridani zaznamu
> jen 2x. ja vsak potrebuji, abych dostal event pri kazde zmene. pripada
> mi, ze to je nejake omezeni IB serveru.
S eventy jsme nemeli nikdy tyto problemy, takze si myslim, ze
problem na serveru nebude. Musis ale napsat vic podrobnosti,
napr. jak a odkud eventy posilas a pak neco o tom, co s nima dals
ve sve aplikaci. Nemuze byt treba problem v tom, ze driv nez
skonci obsluha jednoho eventu uz prijde dalsi?
David Lebeda
problem s TIBEvents
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.10.2001 12:08:27
muzete mi poradit jak by mela takova SP + UDF vypadat? nebo alespon odkaz,
kde bych o tom nasel nejake informace.
s pozdravem, v. sykora
From: <vaclav.sykora(zv)accidis(tec)cz>
> mam cyklus ve kterem pridavam zaznamy do DB. pokud jich pridam napr. 5 (za
> kazdym z nich provedu commit), IB mi posle event o pridani zaznamu jen 2x.
> ja vsak potrebuji, abych dostal event pri kazde zmene. pripada mi, ze to
je
> nejake omezeni IB serveru. lze to omezeni nejak odstranit? existuje jine
> reseni jak, ziskat prehled o VSECH provadenych zmenach v DB?
Nejde o obmedzenie IB Servru. Vec sa ma tak ze eventy sa poslu aplikacii po
commite trasakcie. Ked event zavolas 5 krat tak sa "zapamatuje" ze event sa
volal 5 krat a pri commite sa posle aplikacii nazov eventu a pocet volani,
cize sa to dozvies. Ak by si ale chcel dostavat eventy vzdy prave pri
prevedeni akcie (zrovna pri update alebo insertech bez potvrdeia trnsakcie
sa mi to zda byt zbytocne) tak by si to musel riesit napriklad pomocou SP +
UDF.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
seznam vsech formu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.10.2001 12:15:41
> > nevite jak najit form v aplikaci a vytvorit ho? Jde o ty
> > formy ktere nejsou automaticky vytvorene.
> jestli to chces delat ve vlastni aplikaci, tak bych hledal v nejakym
> kontejneru TApplication a zjistoval, zda je dany objekt
peca, premejslej, nez napises nejakou kravinu. kdyz ty formy nejsou
vytvoreny, tezko je muzes hledat nekde v TApplication. tak asi tak.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Interbase: repair; Sweep
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 19.10.2001 12:34:27
Ahoj,
existuje jeste jedna verze IB, kterou udrzuje Oleg Loa (myslim, ze je Rus),
ktery udajne drzi kompatibilitu s Firebirdem, ale pridava ruzna vylepseni,
jednim z nich je i moznost nastavit priority threaduu. Posilam, jak jsem
dostal, vic o tom nevim, ale treba ti to pomuze:
----- Original Message -----
From: Oleg LOA <loa(zv)mail.ru>
Newsgroups: epsylon.public.interbase
Sent: Saturday, September 22, 2001 11:34 AM
Subject: ?????? FB 401 ??? WIN32
> ?????? 401 ??? WIN32.
> ????????? ????????? ? ibconfig
>
> #WIN32_DISABLE_FILE_CACHE 0
> #WIN32_NO_PAGE_CACHE 0
> #FORCE_RESHEDULE 1
> #THREAD_QUANTUM 250
> #SWEEP_THREAD_QUANTUM 100
>
> ???? FORCE_RESHEDULE 0, ?? ??????????? ?? ????????? THREAD_QUANTUM 100,
> SWEEP_THREAD_QUANTUM 5
>
> ???????? ?
http://www.private.peterlink.ru/rcav/fb/fb_401_win32_unstable.rar
> 620 ?? (ibserver.exe + ibconfig)
>
> P.S. ???? ??????????? ?? ???????????? ? ???????????....
Hodne zdaru
Mirek
| > V cem je problem ? V nastaveni priority sweep threadu v IB6/FB.
| > Je nizka, aby sweep neblokoval "uzitecnou" praci serveru. Vedlejsi
| > efekt je, ze sweep nepracuje "s vetsim nasazeni" ani kdyz ma
| > server rauchpauzu. Proc ? Protoze to tak urcil operacni system.
|
| diky za vysvetleni,
| napa da me, mam nejak moznost (aktualne W2000 prof)
| nastavit prioritu z venci? tedy nejakym nastrojem, utilitkou
| jakozto uzivatel, nebo spravce, systemu?
|
| asi ne, co?
| no, ja to skousnu, problem nastava u uzivatelu, kteri jsou
| bezne zvykli pocitac na noc vypinat (cti kdyz jim konci smena)
|
| dekuji PeC(zv)
Interbase: repair; Sweep
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 19.10.2001 12:37:48
Koukam, ze si Outlook neporadil s azbukou. Pokud chces, poslu ti text jako
prilohu na soukromy mail.
Mirek
Brutalni ukoneni formulare
[*] Zden�k Sv�en - 19.10.2001 13:05:41
Ahoj,
mam takovy problemek, ktery mozna vyplyva i z toho, ze stavba me aplikace
neni zrovna idealni. Bohuzel jsem musel prevzit jeji budovani po kolegovi a
nechce se mi ji nejak radikalne predelavat.
Z hlavniho formu se otevre formular JednotkaForm. V udalosti OnIdle se
neustale neco zkouma, pocita, testuje atd. Stiskem jednoho z tlacitek na
JednotkaFormu se rozenehne dosti dlouho trvajici proces -> posloupnost
procedur, ktere se spousteji navzajem + nejaka ta rekurze ... a v prubehu
tohoto procesu se vola application.processmessages, takze aplikace
nevytuhne.
Pokud uzivatel stiskne tlacitko storno, tak se vola FREE. Formular je
znicen, ale procedury dobihaji a vyvolavaji vyjimku "Access violation ...".
Muzu je nejak odstrelit, aby nedobihaly? Lze to nejak elegantne, jednoduse a
rychle predelat s pouzitim threadu (jak napriklad?) ?
Diky za nasmerovani
Z.S.overeni existence aliasu
[*] Martin Kr�kora <krakora(zv)prvnielektro(tec)cz> - 19.10.2001 13:14:37
Zdravim
Potreboval bych poradit, jak v programu zjistit zda je uz vytvoreny urcity
alias. Jedna se o to, aby si aplikace, hlavne po prvnim spusteni, zjistila
jestli existuje alias pro databazi a pokud tomu tak neni, tak aby ho
vytvorila.
Predem diky za pripadne rady.radkovani v RichEditu
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.10.2001 13:24:05
da se nejak nastavit radkovani v RichEditu? potrebuji aby mely radky
rozestupy alespon 1,5. existuje nejaka komponenta, ktera to umi?
s pozdravem, v. sykora
problem s TIBEvents
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 13:34:09
Relativne jednoducho:
SP:
procedure InsertOrUpdateRecord(params...)
begin
...
insert into table ....
/* volanie UDfunkcie */
SendMessageForApplication(NejakyParamAleboNic)
...
end;
UDF:
function SendMessageForApplication;
begin
SendMessage(Apphandle or AppServerHandle, WM_Nieco, 0, ...);
end;
Ale mozno ze by to slo este riesit inak. Pomocou generatorov - ich hodnoty
pred cyklom a po cykle by sa mohli odcitavat - tie idu mimo transakcie s tym
ze pre kazdu SP alebo tabulku ci fiedl by bol jeden generator. Alebo by sa
mohli zapisovat do tabuliek.
Ale takto moc nevymysilm je treba mat viac informacii o probleme a potom sa
da varit ale bez infomacii nie :)
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: <vaclav.sykora(zv)accidis(tec)cz>
> muzete mi poradit jak by mela takova SP + UDF vypadat? nebo alespon odkaz,
> kde bych o tom nasel nejake informace.
> Nejde o obmedzenie IB Servru. Vec sa ma tak ze eventy sa poslu aplikacii
po
> commite trasakcie. Ked event zavolas 5 krat tak sa "zapamatuje" ze event
sa
> volal 5 krat a pri commite sa posle aplikacii nazov eventu a pocet volani,
> cize sa to dozvies. Ak by si ale chcel dostavat eventy vzdy prave pri
> prevedeni akcie (zrovna pri update alebo insertech bez potvrdeia trnsakcie
> sa mi to zda byt zbytocne) tak by si to musel riesit napriklad pomocou SP
+
> UDF.
> Kaka�ka Pavol
problem s TIBEvents
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 14:01:18
Este ma napadlo, ake komponenty k IB (a verziu IB/FB) pouzivas?
Kakacka Pavol
KasiX(zv)atlas(tec)cz
From: <vaclav.sykora(zv)accidis(tec)cz>
> pres IBEvents resim rychle zobrazeni polozek DB v Listu. pokud je do DB
> pridan zaznam, prijde event a v obsluze udalosti OnEventAlert se zavola
> procedura, ktera novou polozku zaradi do listu. problem je prave v tom, ze
> pokud spustim cyklus (jak jsem napsal) a zapisu vice polozek do DB
nedostanu
> nazpet prislusny pocet eventu. 1 a 2 zaznamy funguji bez problemu.
Multiple UNIQUE
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 19.10.2001 14:22:10
> Nesleduji tuto diskusi od zacatku, takze nevim, v cem presne je
> problem,
OK, pokusim se jeste jednou vysvetlit muj problem (ted jiz uplne):
Mam tabulku A(ID "primarykey", POCET )
a tabulku B(RF_ID "reference A(ID)" , ... )
A.POCET znamena, kolik moznych referenci z B na A.ID je mozno provest.
Problem zni: jaky mechanismus pouzit, aby se mi pri insertu do B
neprekrocil limit referenci na jedno A.ID ???
> ale predpokladam, ze transakce maji nastaveno Read
> commited (po dvojkliku na transakci). To ale skutecne neresi
> situaci, kdy jsou soucasne otevrene necommitovane dve takove
> transakce. Tam by asi bylo potreba sahnout po vyssi urovni izolace
> nez read commited (nevim ted, jak se to jmenuje, snad Table
> Stability) - samozrejme jen pro transakce, v nichz bezi takoveto
> haklive zalezitosti, takze ostatni prace probihaji v transakci s
> beznou urovni izolace.
To by problem asi vyresilo, ale nelibi se mi, ze pokud klient spusti
danou operaci ve spatne nastavenem izolacnim levelu transakce, znici
integritu dat na serveru. Chtel jsem to udelat tak, aby vsechna integritni
omezeni byla hlidana serverem.
Podobne jako kdyz updatuju nejaky zaznam, ostatni transkace (a at uz maji
isolation level nastaveny jakkoliv) ktere se jej pokusi take
updaovat, proste cekaji (pripadne primo failnou) jak dopadne transakce,
ktera zacala updatovat jako prvni (jestli COMMITne, nebo
ROLLBACKne).
V mem pripade bych si predstavoval, ze tabulka A bude locknuta (pro cteni
i zapis), dokud prvni transakce neskonci. Otazka tedy zni - lze nejak v
IB6 locknout tabulku (stacil by mi i jen jeden konkretni zaznam).
Pokud nekdo vite, jak to vyresit, budu vdecny, zacina to spechat (beru i
kdyz mi poradite jiny navrh schema databaze)
--MM
problem s TIBEvents
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.10.2001 14:55:20
pouzivam InterBase Express (IBX) na D6
v. sykora
Este ma napadlo, ake komponenty k IB (a verziu IB/FB) pouzivas?
Kakacka Pavol
KasiX(zv)atlas(tec)cz
From: <vaclav.sykora(zv)accidis(tec)cz>
> pres IBEvents resim rychle zobrazeni polozek DB v Listu. pokud je do DB
> pridan zaznam, prijde event a v obsluze udalosti OnEventAlert se zavola
> procedura, ktera novou polozku zaradi do listu. problem je prave v tom, ze
> pokud spustim cyklus (jak jsem napsal) a zapisu vice polozek do DB
nedostanu
> nazpet prislusny pocet eventu. 1 a 2 zaznamy funguji bez problemu.
ColorDialog a clInfoBk, barvy clSkyBlue, clCream,
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 19.10.2001 14:55:55
Nevite nekdo proc mi ColorDialog odmita vykreslovat nasledujici barvu v
CustomColors?
clInfoBk - RGB(255,255,225) = -2147483624: $80000018
- zadavam ji jako ColorA=80000018
Zvlastni, je ze kdyz ji zvolim a uziju (...B.Color := Color1.Color), tak je
to OK. Co s tim?
Taky me celkem dozira, ze ve vyberu barvy Object inspectora jsou barvy
clSkyBlue, clCream a clMoneyGreen, ale v kodu si je pokazde musim definovat
sam... Dik za reseni,
Adam Feistner (D5Ent)
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Brutalni ukoneni formulare
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 14:56:12
A nebolo by lepsie v tych procedurach testovat ci je formular (a jeho
property na ktore sa dotazuje) zivy a ak nie tak je ukoncit?
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
----- Original Message -----
From: "Zden�k Sv��en" <dkonf(zv)seznam(tec)cz>
> Z hlavniho formu se otevre formular JednotkaForm. V udalosti OnIdle se
> neustale neco zkouma, pocita, testuje atd. Stiskem jednoho z tlacitek na
> JednotkaFormu se rozenehne dosti dlouho trvajici proces -> posloupnost
> procedur, ktere se spousteji navzajem + nejaka ta rekurze ... a v prubehu
> tohoto procesu se vola application.processmessages, takze aplikace
> nevytuhne.
> Pokud uzivatel stiskne tlacitko storno, tak se vola FREE. Formular je
> znicen, ale procedury dobihaji a vyvolavaji vyjimku "Access violation
...".
> Muzu je nejak odstrelit, aby nedobihaly? Lze to nejak elegantne, jednoduse
a
> rychle predelat s pouzitim threadu (jak napriklad?) ?
Zjisteni zda existuje alias pro databazi
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 14:58:57
From: "Martin Kr�kora" <krakora(zv)prvnielektro(tec)cz>
> potreboval bych poradit, jak zjistit v programu zda uz existuje alias
> databaze. Potrebuju to pro program, kde chci alias vytvorti pokud jeste
> neexistuje.
Myslis cez BDE? Ak ano tak sa pozri na metodu Session.GetAliasNames()
Kakacka Pavol
KasiX(zv)atlas(tec)cz
problem s TIBEvents
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 15:18:33
Ake verzie !!!???
No to je jedno, ide o to ze v IBX aspon tych novsich je chyba v komponente
IBEvents a udalosti ukazuju nespravne :(( Bohuzial viac neviem este som
nemal cas sa na to pozriet. Asi budes musiet pockat na opravu.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
From: <vaclav.sykora(zv)accidis(tec)cz>
> pouzivam InterBase Express (IBX) na D6
> Este ma napadlo, ake komponenty k IB (a verziu IB/FB) pouzivas?
>
> Kakacka Pavol
> KasiX(zv)atlas(tec)cz
> From: <vaclav.sykora(zv)accidis(tec)cz>
> > pres IBEvents resim rychle zobrazeni polozek DB v Listu. pokud je do DB
> > pridan zaznam, prijde event a v obsluze udalosti OnEventAlert se zavola
> > procedura, ktera novou polozku zaradi do listu. problem je prave v tom,
ze
> > pokud spustim cyklus (jak jsem napsal) a zapisu vice polozek do DB
> nedostanu
> > nazpet prislusny pocet eventu. 1 a 2 zaznamy funguji bez problemu.
Multiple UNIQUE
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 19.10.2001 15:57:19
Ahoj,
jednou z moznosti je update provadet pouze pomoci ulozene procedury (shodit
grants pro uzivatele a nechat je pouze procedure) a zde si nastavit
potrebnou isolation level.
Jinou moznosti je kontrolu zahrnout do insert triggeru a v pripade naruseni
podminky raisnout error (trigger bezi v defaultove transakci).
Pozor,
transakce nejsou zamky a jejich vzajemna podobnost je pouze zdanliva.
Vetsina serveru neumoznuje zamky primo ovladat, to si resi transakce prave
podle nastavene isolation level objemu a charakteru operace (vetsinou je
mozne zamky explicitne vypnout nebo zapnout, ale nejde je nasadit).
Pokud se jedna o vice uzivatelsky pristup k datum, tak by mely byt transakce
co nejkratsi, jinak je nutno jit do vsokych urovni isolation level a vykon
jde rychle do haje a riziko deadlocku prudce stoupa (pri trose stesti si
deadlock udelasi i sam na sebe).
Pavel
> > Nesleduji tuto diskusi od zacatku, takze nevim, v cem presne je
> > problem,
>
> OK, pokusim se jeste jednou vysvetlit muj problem (ted jiz uplne):
>
> Mam tabulku A(ID "primarykey", POCET )
> a tabulku B(RF_ID "reference A(ID)" , ... )
>
> A.POCET znamena, kolik moznych referenci z B na A.ID je mozno provest.
>
> Problem zni: jaky mechanismus pouzit, aby se mi pri insertu do B
> neprekrocil limit referenci na jedno A.ID ???
>
> > ale predpokladam, ze transakce maji nastaveno Read
> > commited (po dvojkliku na transakci). To ale skutecne neresi
> > situaci, kdy jsou soucasne otevrene necommitovane dve takove
> > transakce. Tam by asi bylo potreba sahnout po vyssi urovni izolace
> > nez read commited (nevim ted, jak se to jmenuje, snad Table
> > Stability) - samozrejme jen pro transakce, v nichz bezi takoveto
> > haklive zalezitosti, takze ostatni prace probihaji v transakci s
> > beznou urovni izolace.
>
> To by problem asi vyresilo, ale nelibi se mi, ze pokud klient spusti
> danou operaci ve spatne nastavenem izolacnim levelu transakce, znici
> integritu dat na serveru. Chtel jsem to udelat tak, aby
> vsechna integritni
> omezeni byla hlidana serverem.
>
> Podobne jako kdyz updatuju nejaky zaznam, ostatni transkace
> (a at uz maji
> isolation level nastaveny jakkoliv) ktere se jej pokusi take
> updaovat, proste cekaji (pripadne primo failnou) jak dopadne
> transakce,
> ktera zacala updatovat jako prvni (jestli COMMITne, nebo
> ROLLBACKne).
>
> V mem pripade bych si predstavoval, ze tabulka A bude
> locknuta (pro cteni
> i zapis), dokud prvni transakce neskonci. Otazka tedy zni -
> lze nejak v
> IB6 locknout tabulku (stacil by mi i jen jeden konkretni zaznam).
>
> Pokud nekdo vite, jak to vyresit, budu vdecny, zacina to
> spechat (beru i
> kdyz mi poradite jiny navrh schema databaze)
>
> --MM
> Zacatek skupiny v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 19.10.2001 23:26:41
Ahoj,
> procedure TForm1.Sestava1TiskOddilu(Sender: TSestava; Index: Integer;
> var Tisknout: Boolean);
> begin
> case Index of
> odSkupiny: FPrvniTeloSkupiny := true;
> odTela: if FPrvniTeloSkupiny then
^^^^^^^^^
A ty konstanty (nebo promenne??) maji jake hodnoty?
> begin
> Tisknout := false;
> FPrvniTeloSkupiny := false;
> end;
> end;
> end;
Mno a jak to mam vyresit, pokud mam skupiny umistene v TSestDetail?
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
QuickReport a Close pri vytvareni Preview
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.10.2001 11:32:33
Ahoj,
pokud si zobrazim nahled sestavy (Preview), ktera ma hodne stranek, a tento
nahled zavru driv, nez dojde k vytvoreni vsech stran, obdrzim v nejlepsim
pripade hlasku "Access violation...". Jak to muzu osetrit?
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
JvMail a HTML mail
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.10.2001 11:35:06
A jeste jedna otazka,
muzu pomoci kompomenty JvMail vytvorit (odeslat) HTML mail? Jak? (!DOCTYPE nejak
nefunguje...)
Dik,
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Pristup k FireBirdu cez PHP
[*] Roland Turcan <rolo(zv)sedas.sk> - 20.10.2001 11:54:58
Zdravim,.
Co vsetko potrebujem pre %subj%.
Dakujem
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Zacatek skupiny v Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.10.2001 12:51:08
> From: Roman
> > procedure TForm1.Sestava1TiskOddilu(Sender: TSestava; Index: Integer;
> > var Tisknout: Boolean);
> > begin
> > case Index of
> > odSkupiny: FPrvniTeloSkupiny := true;
> > odTela: if FPrvniTeloSkupiny then
> ^^^^^^^^^
> A ty konstanty (nebo promenne??) maji jake hodnoty?
Jsou to konstanty deklarovane v SEST_TYP.PAS,
staci pridat Sest_Typ do uses.
odZacatku = 0;
odHlavy = 1;
odTela = 2;
odKonce = 3;
odPaty = 4;
odSkupiny = 5; {index oddilu zacatku prvni skupiny}
odSkupiny+1; {index oddilu konce prvni skupiny}
odSkupiny+2*(n-1); {index oddilu zacatku n-te skupiny}
odSkupiny+2*(n-1)+1; {index oddilu konce n-te skupiny}
>
> Mno a jak to mam vyresit, pokud mam skupiny umistene v TSestDetail?
V detailu to takto nejde.
Nedoporucuji kombinovat skupiny a detaily dohromady.
Doporucuji to resit jako vnorene skupiny bez detailu.
Take doporucuji zvazit vhodnost pouzite datove
struktury. Proc jsou hlavicky skupin zamichane
mezi radky tabulky?
Vaclav Krmela
JvMail a HTML mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2001 14:41:09
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> muzu pomoci kompomenty JvMail vytvorit (odeslat) HTML mail? Jak?
Ahoj,
bohuzel nijak, HTML mail nelze poslat pres Simple MAPI. Jinak misto te
komponenty pouzivej radeji tridu TJclEmail z JCL, je tam opraveno par chyb a
pridany novy vlastnosti: http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
OT: FAT32
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 20.10.2001 14:46:02
Dobry den,
Nemate nekdo odkaz na polopaticky popis FAT32 a struktury dat na HDD vcetne
orientace v datech (nejlepe v cestine).
Dekuji
Zdenek Janish
JvMail a HTML mail
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.10.2001 16:39:33
> > muzu pomoci kompomenty JvMail vytvorit (odeslat) HTML mail? Jak?
> bohuzel nijak, HTML mail nelze poslat pres Simple MAPI. Jinak misto te
> komponenty pouzivej radeji tridu TJclEmail z JCL, je tam opraveno par chyb
> a pridany novy vlastnosti: http://delphi-jedi.org/Jedi:CODELIBJCL
Jinak to ale jde pres prime odeslani pomoci SMTP... Coz sice nepouzijes
MAPI, ale zato to bude fungovat trebas i na Linuxu, ze? ;-) (pokud tedy
pouzijes Synapsi ci Indy.)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
JvMail a HTML mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2001 16:58:31
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Jinak to ale jde pres prime odeslani pomoci SMTP... Coz sice nepouzijes
> MAPI, ale zato to bude fungovat trebas i na Linuxu, ze? ;-) (pokud tedy
> pouzijes Synapsi ci Indy.)
Ahoj,
jenze je tu opet jiz znamy problem s nastavenim uctu a take ne kazdy musi mit
zrovna SMTP. Osobne bych videl asi jako nejlepsi reseni vubec neposilat HTML
maily ;-)
Petr Vones
Ukladani Blobu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 20.10.2001 19:54:38
Haj hou!
On 18 Jun 2001, at 13:08, EFG developer wrote:
> D5, BDE, MSSQL, potrebuju ukladat velka data do databaze, V tabulce mam
> sloupec typu image, field je typu Blob.
>
> Poradte mi jak do toho blobu mam ulozit data ze streamu.
Podivej se do helpu na TBlobField.LoadFromStream
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
jak na podminku?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 20.10.2001 20:04:35
Zdravim
Mam problem se sepsanim jedne podminky.
if ((TXTforalltypes) = true and
(ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '.txt'))
or
if ((TXTforalltypes) = false and
(ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '')) then else
Potrebuju to mit rozdelene na dve vetve. Jedna pokud je TXTforalltypes =
true a druha pokud je false. Jenze mi to hlasi "Operator not applicable to
this operand type." Netusite nekdo co s tim?
----------------
Predchozi problem se zapisovanim do potomka OpenDialog1.FileName jsem
vyresil oklikou. Pri OnTypeChanged nezapisuju primo do FileName, ale volam
primo moji proceduru ulozenou ve zdrojaku toho potomka a predam ji novy
FileName jako parametr.
Diky
Hurricane
jak na podminku?
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 20.10.2001 20:15:07
if TXTforalltypes
then if ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '.txt'
then begin
//neco proved
end
else
else if ExtractFileName(HurricaneCustomSaveDialog1.FileName) = ''
then begin
//neco proved
end;
?!? Tak nevim, zda to je to pozadovane, ale chodit by to melo...
Zdenek Janish
jak na podminku?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 20.10.2001 20:30:49
Zdravim
Ano, tak nejak to potrebuju, akorat ze //neco proved je v obou pripadech
stejne. Mohl bych do programu pridat dalsi proceduru a tu odtud volat, ale
snad by to slo i bez toho.
Hurricane
----- Original Message -----
> if TXTforalltypes
> then if ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '.txt'
> then begin
> //neco proved
> end
> else
> else if ExtractFileName(HurricaneCustomSaveDialog1.FileName) = ''
> then begin
> //neco proved
> end;
>
> ?!? Tak nevim, zda to je to pozadovane, ale chodit by to melo...jak na podminku?
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 20.10.2001 22:22:40
if (( TXTforalltypes) and
(ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '.txt')) or
((not TXTforalltypes) and
(ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '' ))
then begin
//neco proved
end
Takhle?
Zdenek Janish
jak na podminku?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2001 22:46:45
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Mam problem se sepsanim jedne podminky.
>
> if ((TXTforalltypes) = true and
> (ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '.txt'))
> or
> if ((TXTforalltypes) = false and
> (ExtractFileName(HurricaneCustomSaveDialog1.FileName) = '')) then else
var
Ext: string;
Ext := AnsiLowerCase(ExtractFileName(HurricaneCustomSaveDialog1.FileName));
if (TXTforalltypes and (Ext = '')) or
(not TXTforalltypes and (Ext = '.txt')) then
begin
end;
Petr Vones
jak na podminku?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2001 22:51:07
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Vlastne je to opacne ;-)
var
Ext: string;
Ext := AnsiLowerCase(ExtractFileName(HurricaneCustomSaveDialog1.FileName));
if (TXTforalltypes and (Ext = '.txt')) or
(not TXTforalltypes and (Ext = '')) then
begin
end;
Petr Vones
OT: 1001 t&t pro Delphi - doprovodne CD
[*] L.Svoboda <konference(zv)fdsystem(tec)cz> - 21.10.2001 00:12:49
Omlouvam se za jeste jeden OT.
Ve ctvrtek vecer jsme se sesli vsichni ctyri autori v jedne utulne hospudce
v Praze.
Vybiral ji Petr Vones a ma za to nasi pochvalu za dobry vkus!
Takze jsme si knizku v soukromi pokrtili, ale o tom jsem vlastne nechtel
psat.
Za tenhle mail, ktery jsme si vsichni onen zminovany vecer cetli,
mate nase tisicere diky! Diky takovehlemu oceneni ma nase
prace najednou uplne jiny smysl. Jeste jednou diky.
Mozna to zni ponekud pateticky, ale je to fakt.
Jestli nekdo z ucastniku teto konference nekdy vydaval nejakou publikaci,
tak vi, o cem je rec. O penezich tahle vec opravdu neni.
Co se tyka druheho dilu...
Zadnou takovouhle akci neplanujeme. Ne, ze by nebyl zajem,
ale uprimne receno, nevime, co bychom do toho druheho dilu psali.
Verte neverte, ale byl docela problem, dat dohromady tuhle sadu tipu.
Ono se to nezda, kdyz mate v penezence 1001 korun, tak to neni nic moc.
Ale napsat 1001 alespon trochu smysluplnych prikladu - dalo nam to zabrat.
Pokud bude o knihu na trhu zajem, tak je ale mozny nasledujici postup,
a to ten, ze se bude delat dotisk - rekneme druhe, doplnene vydani.
Urcite se v knize najdou nejake chyby nebo preklepy, zname to vsichni.
Takze v dotisku se toto opravi a pridaji se nejake dalsi tipy.
Kdo z vas ma doma treba knizku 1001 T&T pro Internet v druhem vydani,
tak ten vi, o cem mluvim. Je tam bez ohledu na nazev tech prikladu o neco
vic.
Ale nic vic nemohu slibit. Pokud by nekdo prisel se seznamem tipu pro druhy
dil, tak myslim neni problem to v redakcni rade prosadit a ten druhy dil
vydat.
Ale jak jsem psal, my jsme ted docela vycerpali zasoby.
Preji vsem hezky den
L.Svoboda
----- Original Message -----
From: Jaroslav Pospisil <delphi(zv)japos.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 15, 2001 10:04 PM
Subject: RE: OT: 1001 t&t pro Delphi - doprovodne CD
> Myslim si, ze takto napsana kniha ma pro skutecneho programatora cenu
zlata
> a je uplne jedno zda je s CD nebo ne.
> (Muj OCR s tim nema zadny problem.) Dulezite je, ze nekdo dokazal sebrat
to,
> co si kazdy programator za cas nastrada v poznamkovych souborech i na
> popsanych papirech a ma tu velkorysost, ze to za smesny peniz da vsem.
>
> Jste frajeri a spousta vyvojaru nejen v Delphi dostala svou bibli.
>
> Kdy vyjde druhy dil?
>
> Jarda Pospisil
> JAPOS
Delphi - Unix
[*] Ivan Virag <virag(zv)quick(tec)cz> - 21.10.2001 00:53:25
Dobry den.
Nevite nekdo, jak spustit tlacitkem s aplikace napsane v Delphi 5 Ent proces
na Unixovem serveru (Linux, Solaris) bez overovani? Znam hostname, username,
heslo, jmeno programu na UNIXu i jeho pripadne parametry. Dost me to pali a
nikde nemuzu nic sehnat. Pokud by nekdo neco vedel, velice by mi pomohl.
Dekuji.
Ivan Virag
Delphi - Unix
[*] Ivan Virag <virag(zv)quick(tec)cz> - 21.10.2001 03:52:52
>> Nevite nekdo, jak spustit tlacitkem s aplikace napsane v Delphi 5 Ent
proces
>> na Unixovem serveru (Linux, Solaris) bez overovani? Znam hostname,
username,
>> heslo, jmeno programu na UNIXu i jeho pripadne parametry.
>Navic jsem nepochopil, proc bez overovani, kdyz znate heslo ...
>S heslem se muzete vzdalene prihlasit i pomoci telnetu (bude na to
>urcitei i nejaka komponenta do Delphi).
>Jinak ja bych v ramci bezpecnosti doporucoval to ssh.
Dobry den.
Bez overovani myslim situaci, ze vse probehne na pozadi bez toho, aby
uzivatel musel zadavat username, heslo a samotny proces spoustet v nejakem
telnetovem okne. Vim, ze to jde, protoze u klienta implementujeme system
napsany v Delphi (je to verze nizsi nez Delphi 5) a jeden z jeho modulu po
zadani jmena daneho unixoveho procesu a jeho parametru umi tento spustit
pouze "stisknutim tlacitka". Ted jsem nucen toto chovani napodobit a bohuzel
vubec nemam tuseni, jak se to da udelat a jak je to pripadne komplikovane.
Stacil by mi pouze prikladek na spusteni napriklad prikazu
touch "file_name"
kde file_name bych zadal v Delphi jako parametr.
Ivan Virag
Zachyceni SQLCODE - konec
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 21.10.2001 10:24:20
> Jeste doplnuji konfiuraci
>
> D5 Prof , SP1 . IBX463 , FB 1.0.0.338 beta 2 , WIN 2000
>
>
> 1.Nedari mi zachytit a priradit do navratove promenne ":CODE" hodnotu
> SQL
> v ulozene procedure.
Uz jsem na to prisel (?). Chyba zrejme neni mezi klavesnici a zidli ale v te
konfiguraci.
( D5 Prof , SP1 . IBX463 , FB 1.0.0.338 beta 2 , WIN 2000)
Pri vyzkouseni v Delphi 6 to funguje tak jak ma.
Jiri Heinisch
Delphi - Unix
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 21.10.2001 10:32:13
> Nevite nekdo, jak spustit tlacitkem s aplikace napsane v Delphi 5 Ent proces
> na Unixovem serveru (Linux, Solaris) bez overovani? Znam hostname, username,
> heslo, jmeno programu na UNIXu i jeho pripadne parametry. Dost me to pali a
> nikde nemuzu nic sehnat. Pokud by nekdo neco vedel, velice by mi pomohl.
Bez overovani to nepujde. Ale pokud mate na mysli bez overovani heslem,
pak se kouknete na ssh. Neokynkovy portu pro Win je v projektu cygwin
(http://www.cygwin.com/) pro linux pak openssh (http://www.openssh.com/).
Pomoci klicu to umi bezpecnou autentizaci a ma to kryptovany prenos.
Jinak by vam mohlo pomoci neco jako rsh, ci rlogin, ale o tom moc nevim,
ale kazdy slusny port unixu rsh a rlogin zna.
Navic jsem nepochopil, proc bez overovani, kdyz znate heslo ...
S heslem se muzete vzdalene prihlasit i pomoci telnetu (bude na to
urcitei i nejaka komponenta do Delphi).
Jinak ja bych v ramci bezpecnosti doporucoval to ssh.
Doufam, ze jsem pomohl
Luf
JvMail a HTML mail
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.10.2001 11:56:23
> jenze je tu opet jiz znamy problem s nastavenim uctu a take ne kazdy musi
> mit zrovna SMTP. Osobne bych videl asi jako nejlepsi reseni vubec
> neposilat HTML maily ;-)
Jakepak nastaveni uctu? Neprehanej to... Potrebujes vedet pouze a jedine
adresu SMTP serveru! (kterou uzivatel potrebuje stejne tak vedet kvuli
jinym vecem, trebas uz jen proto, aby si mohl nastavit onen postovni
program, se kterym ty pak komunikujes pres MAPI. ;-))
A jako ne kazdy musi mit SMTP server, stejne tak ne kazdy musi mit na
pocitaci MAPI.
Kazdopadne posilace HTML mailu bych nejradeji zakazal. Posilaci HTML
mailu se deli na dve skupiny:
1. posilaji tim stejne holy text
2. posilaji se tim pestrobarevne SPAMy... :-(
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
JvMail a HTML mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2001 12:20:06
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Jakepak nastaveni uctu? Neprehanej to... Potrebujes vedet pouze a jedine
> adresu SMTP serveru! (kterou uzivatel potrebuje stejne tak vedet kvuli
Ahoj,
jeste taky adresu odesilatele a jmeno ;-)
> A jako ne kazdy musi mit SMTP server, stejne tak ne kazdy musi mit na
> pocitaci MAPI.
Presne tak, na prvni pohled tak jednoducha vec nema temer reseni, pokud se
pohybujes v neznamem prostredi. Nejde ani o tom jestli pouzit SMTP nebo MAPI,
ale jak udelat aplikaci, ktera bude schopna bez zasahu uzivatele odesilat
postu z daneho pocitace podle jeho konfigurace. Teoreticky by slo projit
registry na vsechny zname postovni klienty a nabidnout uzivateli seznam vsech
uctu ktere to naslo.
> Kazdopadne posilace HTML mailu bych nejradeji zakazal. Posilaci HTML
To ja taky, ono by ale asi uplne stacilo, kdyby HTML maily nebyly nastaveny
jako vychozi volba v Outlook Expressu :-(
Petr Vones
Multiple UNIQUE
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.10.2001 13:03:31
> Odes�latel: Mirek Melichar <mirek(zv)psi(tec)cz>
> OK, pokusim se jeste jednou vysvetlit muj problem (ted jiz uplne):
>
> Mam tabulku A(ID "primarykey", POCET )
> a tabulku B(RF_ID "reference A(ID)" , ... )
>
> A.POCET znamena, kolik moznych referenci z B na A.ID je mozno provest.
>
> Problem zni: jaky mechanismus pouzit, aby se mi pri insertu do B
> neprekrocil limit referenci na jedno A.ID ???
Ale ted ten problemek vypada uz mnohem lepe...
Do tabulky A bych pridal polozku POCET s integritnim omezenim check(POCET < 3).
Na tabulce B v triggeru after insert, after delete budu pricitat/odecitat do polozky POCET v tabulce A.
Pokud se mi pritom sejdou dva lidi najednou, ohlasi to chybu jako pri jakemkoli jinem pokusu o opravu jednoho zaznamu v tabulce.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Delphi - Unix
[*] Ivan Virag <virag(zv)quick(tec)cz> - 21.10.2001 15:52:34
Obavam se, ze jsem byl precenen. Nevim, co je rcmd.
Ivan Virag
>Ak to pouzivas na W2000 tak staci normalne spustit rcmd a na unixe spustis
>co xes, inak sa tam
>normalne naloguj cez nejaky telnet na pozadi (sokety predpokladam ovladas)
a
>spusti tam co xes.
Werki
> >> Nevite nekdo, jak spustit tlacitkem s aplikace napsane v Delphi 5 Ent
> proces
> >> na Unixovem serveru (Linux, Solaris) bez overovani? Znam hostname,
> username,
> >> heslo, jmeno programu na UNIXu i jeho pripadne parametry.
>
> Stacil by mi pouze prikladek na spusteni napriklad prikazu
>
> touch "file_name"
>
> kde file_name bych zadal v Delphi jako parametr.
>
> Ivan Virag
>
>
---
Prichozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virova baze: 152 - datum vydani: 9.10. 2001
JvMail a HTML mail
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.10.2001 17:30:58
> > Jakepak nastaveni uctu? Neprehanej to... Potrebujes vedet pouze a jedine
> > adresu SMTP serveru! (kterou uzivatel potrebuje stejne tak vedet kvuli
> jeste taky adresu odesilatele a jmeno ;-)
Jmeno? na co? :-) Staci adresa odesilatele.. ale svou e-mail adresu szna
i ten nejvetsi lamer, to snad nechces povazovat za prekazku, vid ze ne?
;-)
> Presne tak, na prvni pohled tak jednoducha vec nema temer reseni, pokud se
> pohybujes v neznamem prostredi. Nejde ani o tom jestli pouzit SMTP nebo
> MAPI, ale jak udelat aplikaci, ktera bude schopna bez zasahu uzivatele
> odesilat postu z daneho pocitace podle jeho konfigurace. Teoreticky by slo
> projit registry na vsechny zname postovni klienty a nabidnout uzivateli
> seznam vsech uctu ktere to naslo.
Tak, tak.. univerzalni reseni tohoto problemu totiz NEEXISTUJE. Tim chci
rict, ze jak SMTP, tak i MAPI neni spasne reseni na vsechny pripady a
vzdy se najde system, kde si jedno ci druhe reseni vylame zuby.
SMTP ma oproti MAPI jednu velkou vyhodu: neni vazana na windows!
Ma ale i nevyhodu: Musis se starat o vlastni format zpravy, nicmene to za
tebe resi existujici knihovny. :-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
OT: tlacitka na hlavnim panelu
[*] <bukaj(zv)iol(tec)cz> - 21.10.2001 19:20:56
Mam problem s DelphiX. Kdyz mam aplikaci ve fullscreenu, tak mi potom na
hlavnim panelu zustavaji tlacitka, ktera po odmacknuti zmizi. Neda se tomu
nejak zamezit? Nebo na to neni nejaky programek?
Kuba
Sit Microsoft
[*] Michal Vojta <michal.vojta(zv)iol(tec)cz> - 22.10.2001 01:16:57
Ahoj,
mam par PC, kde pouzivam jen sit Microsoft a TCP/IP kvuli jednoduche rucni
vymene dat. Na tech PC mi bezi muj komunikacni soft (RS-485) a tyto zaroven
loguji do sdilenych adresaru. Kdyz si potom z jine stanice nekdo tento log
stahne, zustane jaksi "pripojeny", ponevadz kdyz vecer tyto PC vypinam (z
kodu), hodi mi to hlasku, ze "nekdo zustal pripojeny". Zkousel jsem peclive
procist help k ExitWindows i ExitWindowsEx, ale na nic jsem neprisel. Vite
nekdo?
Diky
Michal VOJTA
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Kylix 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 02:03:24
Ahoj,
Borland, which makes tools that help programmers develop software, will
announce version 2 of its Kylix package Tuesday:
http://www.zdnet.com/zdnn/stories/newsbursts/0,7407,5098572,00.html
Petr Vones
osetreni chyb
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 02:07:12
From: "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz>
> chtel bych udelat nejaky soubor, ktery by obsahoval chybova hlaseni
> programu. Neco jako chyba �.1 Neni zadan autor...
> Jak se neco takoveho dela? Pomoci DBF, textoveho, nebo datoveho souboru?
Ahoj,
zalezi na tom, jestli ma byt ten soubor pristupny 'pokrocilejsimu' uzivateli
aby si do neho mohl napriklad doplnovat dalsi hlaseni. Pokud ano, tak je tu
treba INI file. V pripade ze toto neni zadouci je asi nejlepsi pouzit DLL do
ktere das pouze resourcestringy.
Petr Vones
HTMLHelp a access violation pri unload
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 02:16:29
From: "Radim Kunz" <privat(zv)casestudio.com>
> pouzivam HTML Help API z Jedi. Pokud si
> nastavim dynamicke zavadeni knihoven,
> to je direktiva HTMLHELP_DYNAMIC_LINK,
> pak mi to asi pri tretim ukonceni programu vyhodi
> access violation. Na vine je procedura UnLoadHtmlHelp,
> ktera se vola ve finalization v HtmlHelp.pas. Pokud tuhle
> proceduru odstranim, funguje to bezchybne. Navic se
Ahoj,
poslal jsem dotaz autorovi.
> A jeste neco, existuji nejake verze Windows, ve kterych
> neni nainstalovany HTML Help ? Pokud ano (asi w95),
> co staci doinstalovat ? IE4 ?
http://msdn.microsoft.com/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownl
oads.asp
Petr Vones
Sit Microsoft
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 02:23:53
From: "Michal Vojta" <michal.vojta(zv)iol(tec)cz>
> mam par PC, kde pouzivam jen sit Microsoft a TCP/IP kvuli jednoduche rucni
> vymene dat. Na tech PC mi bezi muj komunikacni soft (RS-485) a tyto zaroven
> loguji do sdilenych adresaru. Kdyz si potom z jine stanice nekdo tento log
> stahne, zustane jaksi "pripojeny", ponevadz kdyz vecer tyto PC vypinam (z
> kodu), hodi mi to hlasku, ze "nekdo zustal pripojeny". Zkousel jsem peclive
Ahoj,
uzivatele by melo jit odpojit tusim pomoci NetSessionDel, podivej se na
priklad v LanManager konverzi: http://delphi-jedi.org/Jedi:APILIBRARY
Petr Vones
JvMail a HTML mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 02:29:36
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Jmeno? na co? :-) Staci adresa odesilatele.. ale svou e-mail adresu szna
Ahoj,
Slusi se to ;-)
> Tak, tak.. univerzalni reseni tohoto problemu totiz NEEXISTUJE. Tim chci
> rict, ze jak SMTP, tak i MAPI neni spasne reseni na vsechny pripady a
> vzdy se najde system, kde si jedno ci druhe reseni vylame zuby.
Prave proto by bylo dobre mit reseni, ktere je schopno pouzit to ci ono v
zavislosti na konfiguraci pocitace.
Petr Vones
tlacitka na hlavnim panelu
[*] Martin Kr�kora <krakora(zv)prvnielektro(tec)cz> - 22.10.2001 06:07:34
Ahoj
Jestli jsem to dobre pochopil, tak kdyz tu svoji aplikaci ukoncis, tak ti
na hl. panelu po ni zustane tlacitko. Tenhle problem nemusi byt v tve
aplikaci, ale ve windows. Stava se to u vicero aplikaci a da se tomu pry
zabranit tim, ze odstranis z hlavniho panelu ikonu pro zobrazeni a prepinani
klavesnice (v ovladacich panelech pod ikonou klavesnice). Sam jsem to jeste
neskousel a se zustavajicimi tlacitky jsem se smiril, protoze casto prepinam
mezi ceskou a anglickou klavesnici, takze indikace klavesnice by mi dost
chybela. Snad to bude ono a podari se ti ten problem odstranit.
S pozdravem Martin Krakora.
----- P�vodn� zpr�va -----
Od: <bukaj(zv)iol(tec)cz>
Komu: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 21. ��jna 2001 19:20
P�edm�t: OT: tlacitka na hlavnim panelu
> Mam problem s DelphiX. Kdyz mam aplikaci ve fullscreenu, tak mi potom na
> hlavnim panelu zustavaji tlacitka, ktera po odmacknuti zmizi. Neda se tomu
> nejak zamezit? Nebo na to neni nejaky programek?
>
> Kuba
>Brutalni ukoneni formulare
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 06:24:05
> Z hlavniho formu se otevre formular JednotkaForm. V udalosti OnIdle se
> neustale neco zkouma, pocita, testuje atd. Stiskem jednoho z tlacitek
> na JednotkaFormu se rozenehne dosti dlouho trvajici proces ->
> posloupnost procedur, ktere se spousteji navzajem + nejaka ta rekurze
> ... a v prubehu tohoto procesu se vola application.processmessages,
> takze aplikace nevytuhne. Pokud uzivatel stiskne tlacitko storno, tak
> se vola FREE. Formular je znicen, ale procedury dobihaji a vyvolavaji
> vyjimku "Access violation ...".
>
Ahoj,
nepomohlo by misto Free zavolat Application.Terminate? Jinak si
myslim, ze rozumna (nevim, zda uskutecnitelna) cesta je v tech
procedurach pridat neco jako if Application.Terminated then konec.
David Lebeda
seznam vsech formu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 06:56:33
> Abys ale mohl s nove vytvorenym formularem pracovat, je dobre si odkaz
> na tento objekt (instanci tridy TMyForm) ulozit do nejake promenne.
> Nejlepe do promenne MyForm, kterou Delphi automaticky deklaruje v
> prislusne unite, ve ktere mas deklaraci formulare TMyForm. Tedy napr.
>
Ahoj,
ja uz se mockrat setkal s nespravnym pouzivanim globalni
promenne pro dany formular, vznikle chyby se pak komplikovane
osetrovaly pomoci if MyForm <> nil apod., ale to neni stoprocentni,
pokud neni dobre reseno osetreni vyjimek a navic jde obvykle o
nesystemove reseni. Mam na mysli tyto dve zalezitosti:
1) Tuto globalni promennou nelze uzit pro formulare, ktere mohou
existovat ve vice instancich soucasne.
2) Setkal jsem se s tim, ze nekde v aplikaci v ramci jednoho
formulare se vytvori jedna instance formulare, autor ji tam neuvolni,
protoze si treba neuvedomi, ze by to mel udelat a o uvolneni se
postara nekde v uplne jinem miste aplikace, kde to z logiky veci
nema co delat, nebo tesne pred dalsim vytvorenim tohoto
formulare. Jiste jsou situace, kdy to jinak nejde, ale ja mam na
mysli ty evidentni chyby, kterych uz jsem videl dost.
Zvykl jsem si u vsech formularu, ktere nejsou Autocreate, uplne
smazat deklaraci globalni promenne v unite toho formulare, a
dusledne pri pozadavku na pouziti formulare pouzivat lokalni
promenne. Spousta formularu (zejmena pouzivanych jako modalni
okna) se uziva jen lokalne (create/ShowModal/Free) v ramci jedne
procedury nebo jednoho jineho objektu, a proto by prislusne
promenne mely byt lokalni.
Je to jen muj nazor, ktery nikomu nevnucuji, jen davam k uvaze.
David Lebeda
seznam vsech formu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 22.10.2001 07:26:03
Jen bych chtel podotknout, ze pro ruseni formy by se melo pouzivat metody
Release a ne Free.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Zvykl jsem si u vsech formularu, ktere nejsou Autocreate, uplne
> smazat deklaraci globalni promenne v unite toho formulare, a
> dusledne pri pozadavku na pouziti formulare pouzivat lokalni
> promenne. Spousta formularu (zejmena pouzivanych jako modalni
> okna) se uziva jen lokalne (create/ShowModal/Free) v ramci jedne
> procedury nebo jednoho jineho objektu, a proto by prislusne
> promenne mely byt lokalni.
>
> Je to jen muj nazor, ktery nikomu nevnucuji, jen davam k uvaze.
>
> David Lebeda
Upper a parametr
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 08:28:54
> Noa v teto podobe to nesezere - nezna slovo collate.
nejsem si jisty, ale nemelo byt misto "collate" spise "chracter set"
(bez uvozovek ;)? collate je imho urceni trideni. navic zkus to
pretypovat:
where upper(nazev) starting with upper(cast(:parametr as Varchar(10)
characte set win1250))
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Brutalni ukoneni formulare
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2001 08:53:08
----- Original Message -----
From: Tomas Rosa <trosa(zv)seznam(tec)cz>
> > takze aplikace nevytuhne. Pokud uzivatel stiskne tlacitko storno, tak
> > se vola FREE. Formular je znicen, ale procedury dobihaji a vyvolavaji
> > vyjimku "Access violation ...".
>
> Dle meho je jedina spravna cesta na brutalni vypocet THREAD. A v threadu
> neni Application.ProcessMessages ale je tam jen "if terminated then
Exit;".
> To je cele a jednoduche. Pak staci jen ve formulari v OnDestroy dat
> "mujthread.Terminate; mujthread.Free" a on se ukonci.
Myslim ze lepsie by bolo namiesto mujthread.Free; dat mujthread.WaitFor; a
nastavit mujthread.FreeOnTerminate:=true;
Tym sa po poziadavke na ukoncenie threadu pocka na jeho skutocne dobehnutie
a poskytne cas aby si thread za sebou upratal.
Pavol Stolc
pstolc(zv)sc.sknet.sk
Pouzivani View
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 09:03:39
Ahoj,
mel bych takovy dotaz do strev IB6. Mam tabulku, ktera obsahuje
rekneme 50 sloupcu, z toho 10 sloupcu je odkaz do malych
ciselnicku (napr. hlavni tabulka obsahuje cislo referenta a
ciselnicek seznam referentu). A mam view, ktere vraci vsechny
vsechny sloupce s vyjimkou tech odkazu - misto nich vraci popis z
toho ciselnicku (jmeno referenta). Neboli select s deseti left joiny.
Aplikace na klientovi nyni chce tento pohled zobrazit, ale zajima ji
jen rekneme 5 sloupcu, z toho 3 odkazovane.
Je lepsi delat select z toho obrovskeho, lec hotoveho view, nebo si
v IBDatasetu na sestavit vlastni select, ktery bude podstatne
jednodussi (jen 5 sloupcu a 3 left joiny)? Z hlediska objemu
komunikace mezi klientem a serverem v obou postupech prakticky
neni vyznamny rozdil, ale jde mi vyhodnoceni dotazu na serveru.
Nebude select z komplikovaneho view pro server tak slozity, ze se
vyplati sestavit jednodussi dotaz na klientu i presto, ze ho server
bude muset zanalyzovat a pripravit?
David Lebeda
Spusteni s parametrem jedne instance formulare....
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 22.10.2001 09:08:19
Ahoj vsem v konferenci,
mam takovy problem. Pri startu aplikace zkoumam, zda je jiz jedna instance
spustena a v pripade, ze je, pak ji jenom prevedu do popredi. Mam ale
problem. Jsou dve moznosti jak aplikaci spustit. Prvni je regulerni spusteni
poklepanim na exe soubor nebo jeho zastupce. V tom problem neni. Pustim-li
vsak aplikaci poklepanim na soubor, ktery vytvorila, pousti se aplikace s
parametrem a pak to neni problem, kdyz jeste neexistuje. Jestlize existuje,
pak potrebuji nekam do nize uvedeneho kodu dat, ze se ma hlavni formular
krome prevedeni do popredi take ukazat, nebo-li potrebuji aktivovat udalost
OnShow. Nevite, jak to elegantne udelat ? Nebo nemate nekdo jine, treba
lepsi reseni ? Mam na OnShow hlavniho formulare proceduru, ktera obslouzi to
spusteni s parametrem a proto ji potrebuji vyvolat.
Diky za pomoc.
{$R *.RES}
var Wnd: word;
begin
Wnd:= FindWindow('TfrmHlavni', Nil);
if Wnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TDM, DM);
if DM.Nezdar = False then
begin
Application.CreateForm(THAplikace, HAplikace);
Application.CreateForm(THModuly, HModuly);
Application.CreateForm(THOkna, HOkna);
Application.CreateForm(TESoubor, ESoubor);
Application.CreateForm(TENastroje, ENastroje);
Application.CreateForm(TOSoubor, OSoubor);
Application.CreateForm(TOUpravy, OUpravy);
Application.CreateForm(TOZobrazit, OZobrazit);
Application.CreateForm(TONastroje, ONastroje);
frmSplashForm := TfrmSplashForm.Create(Application);
Try
frmSplashForm.Show;
frmSplashForm.Update;
finally
frmSplashForm.Release;
end;
Application.CreateForm(TfrmHlavni, frmHlavni);
Application.Run;
end
else
begin
Application.Terminate;
end;
end
else begin
if not IsWindowVisible(Wnd) then
PostMessage(Wnd, WM_USER, 0, 0);
SetForegroundWindow(Wnd);
end;
end.
====================================
Filip Hazuka
S�pkova 363
L�zne Bohdanec, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================Brutalni ukoneni formulare
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 22.10.2001 09:14:11
> To je cele a jednoduche. Pak staci jen ve formulari v OnDestroy dat
> "mujthread.Terminate; mujthread.Free" a on se ukonci.
Ahoj
Jeste bych se primlouval k tomu dat mezi to Terminate a Free jeste WaitFor :-)
Bez toho to totiz muze delat peknou neplechu.
Preji hodne zdaru
Jirka Upper a parametr
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 09:36:59
> > Noa v teto podobe to nesezere - nezna slovo collate.
>
> nejsem si jisty, ale nemelo byt misto "collate" spise "chracter set"
> (bez uvozovek ;)? collate je imho urceni trideni. navic zkus to
> pretypovat:
>
> where upper(nazev) starting with upper(cast(:parametr as Varchar(10)
> characte set win1250))
>
Ne. To character set tam nepatri, ostatne viz help nebo si zkus
nejaky takovy select napsat. Verzi s castem jsem nerozchodil ani
s parametrem (nepozna to typ parametru a ja jsem nezjistil, jak ho
nastavit), ale zkousel jsem to v IBExpertu, kdy misto parametru
jsem dal natvrdo retezec - a nefunguje to).
Podle me jde o bug a abych se nezdrzoval, prepsal jsem to
bez parametru, i kdyz to je horsi reseni.
David Lebeda
Teckovana cara
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 22.10.2001 09:59:18
Ahoj,
potreboval bych nakreslit caru z tecek, stejnou jako je napr. stromecek v
TTreeView.
Pokud pouziju Canvas.Pen.Style := psDot tak mi to kresli caru z malych carek a
ne
z tecek. Kde je chyba?
Win 98 SE CZ
D5 Professional + Update Pack 1
Diky
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
Delphi - Unix
[*] Werki <delphi(zv)minv.sk> - 22.10.2001 10:01:33
Ak to pouzivas na W2000 tak staci normalne spustit rcmd a na unixe spustis
co xes, inak sa tam
normalne naloguj cez nejaky telnet na pozadi (sokety predpokladam ovladas) a
spusti tam co xes.
Nuz...tak tak
Werki
> >> Nevite nekdo, jak spustit tlacitkem s aplikace napsane v Delphi 5 Ent
> proces
> >> na Unixovem serveru (Linux, Solaris) bez overovani? Znam hostname,
> username,
> >> heslo, jmeno programu na UNIXu i jeho pripadne parametry.
>
> >Navic jsem nepochopil, proc bez overovani, kdyz znate heslo ...
> >S heslem se muzete vzdalene prihlasit i pomoci telnetu (bude na to
> >urcitei i nejaka komponenta do Delphi).
>
> >Jinak ja bych v ramci bezpecnosti doporucoval to ssh.
>
> Dobry den.
>
> Bez overovani myslim situaci, ze vse probehne na pozadi bez toho, aby
> uzivatel musel zadavat username, heslo a samotny proces spoustet v
nejakem
> telnetovem okne. Vim, ze to jde, protoze u klienta implementujeme system
> napsany v Delphi (je to verze nizsi nez Delphi 5) a jeden z jeho modulu po
> zadani jmena daneho unixoveho procesu a jeho parametru umi tento spustit
> pouze "stisknutim tlacitka". Ted jsem nucen toto chovani napodobit a
bohuzel
> vubec nemam tuseni, jak se to da udelat a jak je to pripadne komplikovane.
>
> Stacil by mi pouze prikladek na spusteni napriklad prikazu
>
> touch "file_name"
>
> kde file_name bych zadal v Delphi jako parametr.
>
> Ivan Virag
>
>Brutalni ukoneni formulare
[*] Werki <delphi(zv)minv.sk> - 22.10.2001 10:03:25
> Jeste bych se primlouval k tomu dat mezi to Terminate a Free jeste WaitFor
:-)
Neprotireci si nahodou slovicko WaitFor a Brutal ? :))
Werki
Upper a parametr
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 10:05:22
> Podle me jde o bug a abych se nezdrzoval, prepsal jsem to
> bez parametru, i kdyz to je horsi reseni.
me jeste akorat napadlo, ze ten na parametr si muzes udelat
AnsiUpperCase jeste nez ho priradis. vzdyt je to nakonec jedno, ne?
potom uz tam nebude upper v dotazu, jenom u polozky a tam je collate uz
v deklaraci, ze?
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Zmena aktivniho prvku
[*] Roman Kunovsk� <delphi-konference(zv)bcpraha(tec)com> - 22.10.2001 10:06:35
Ahoj!
Existuje nejaka zprava Windows, ktera se posle aplikaci (popripade oknu) pri
zmene aktivniho prvku? (zmeni se focus).
Vim, ze u tridy TScreen existuje udalost OnActiveControlChange, ale ja bych
potreboval primo zpravu Windows (pokud tedy existuje)
Dik.
Roman
Sit Microsoft
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.10.2001 10:20:03
----- Original Message -----
From: "Michal Vojta" <michal.vojta(zv)iol(tec)cz>
> procist help k ExitWindows i ExitWindowsEx, ale na nic jsem neprisel. Vite
> nekdo?
>
Ahoj.
1) Jedna se o W2000 nebo W95
2) Zkousel jsi EWX_FORCE
ad 1: priklad pro w2000 :
{flag EWX_REBOOT/EWX_POWEROFF/EWX_SHUTDOWN [or EWX_FORCE]}
function Restart2000(Flag: Word): Boolean;
var
hToken, hProcess: THandle;
tp, prev_tp: TTokenPrivileges;
Len: DWORD;
begin
Result := False;
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, GetCurrentProcessID);
try
if not OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then Exit;
finally
CloseHandle(hProcess);
end;
try
if not LookupPrivilegeValue('', 'SeShutdownPrivilege',
tp.Privileges[0].Luid) then Exit;
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges(hToken, False, tp, SizeOf(prev_tp),
prev_tp, Len) then Exit;
finally
CloseHandle(hToken);
end;
end;
Result := True;
ExitWindowsEx(Flag , 0);
end;
ad 2:
Pokud pouzijes napr flag:=EWX_POWEROFF tak se bude system dotazovat
aplikaci jestli se muze ukoncit (CloseQuery) pokud nastavis
flag:=EWX_POWEROFF or EWX_FORCE tak se nikoho a niceho ptat nebude a prikaz
se provede.
Ludek
Zmena aktivniho prvku
[*] Lubo Fule <fule(zv)ekosoft.sk> - 22.10.2001 10:22:22
WM_SETFOCUS - okno "ziskalo" focus
WM_KILLFOCUS - okno "strati" focus
L.
> Existuje nejaka zprava Windows, ktera se posle aplikaci
> (popripade oknu) pri
> zmene aktivniho prvku? (zmeni se focus).
> Vim, ze u tridy TScreen existuje udalost OnActiveControlChange,
> ale ja bych
> potreboval primo zpravu Windows (pokud tedy existuje)
Spusteni s parametrem jedne instance formulare....
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.10.2001 10:23:14
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
Ahoj.
Posli si do te spustene aplikace zpravu s informaci o tom parametru.
Ludek
Upper a parametr
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 10:34:07
> > Podle me jde o bug a abych se nezdrzoval, prepsal jsem to
> > bez parametru, i kdyz to je horsi reseni.
>
> me jeste akorat napadlo, ze ten na parametr si muzes udelat
> AnsiUpperCase jeste nez ho priradis. vzdyt je to nakonec jedno, ne?
> potom uz tam nebude upper v dotazu, jenom u polozky a tam je collate
> uz v deklaraci, ze?
To je fakt pekne reseni a celkem se stydim, ze me to nenapadlo.
Diky. Jen ted nevim - bude to fungovat i na anglickych Windows?
Nemam s tim zkusenosti, ale takovi uzivatele jiste budou existovat.
David Lebeda
seznam vsech formu
[*] cis <cis(zv)atlas(tec)cz> - 22.10.2001 10:37:22
Hi,
asi jsem to spatne popsal. Mam definovane formy
TFrm1=class(TForm)
....
TFrm2=class(TForm)
....
Formy nejsou automaticky vytvoreny. Da se od nekud vytahnout seznam vsech
nadefinovanych formu v aplikaci?
Pak si ho pres TFormClass uz jednoduse vytvorim.
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Lebeda David
> Sent: Monday, October 22, 2001 6:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: seznam vsech formu
>
>
> > Abys ale mohl s nove vytvorenym formularem pracovat, je dobre si odkaz
> > na tento objekt (instanci tridy TMyForm) ulozit do nejake promenne.
> > Nejlepe do promenne MyForm, kterou Delphi automaticky deklaruje v
> > prislusne unite, ve ktere mas deklaraci formulare TMyForm. Tedy napr.
> >
>
> Ahoj,
>
> ja uz se mockrat setkal s nespravnym pouzivanim globalni
> promenne pro dany formular, vznikle chyby se pak komplikovane
> osetrovaly pomoci if MyForm <> nil apod., ale to neni stoprocentni,
> pokud neni dobre reseno osetreni vyjimek a navic jde obvykle o
> nesystemove reseni. Mam na mysli tyto dve zalezitosti:
Pouzivani View
[*] bosnis <bosnis(zv)yo(tec)cz> - 22.10.2001 10:39:21
From: Lebeda David <david.lebeda(zv)comarr(tec)cz>
Subject: Pouzivani View
> Nebude select z komplikovaneho view pro server tak slozity, ze se
> vyplati sestavit jednodussi dotaz na klientu i presto, ze ho server
> bude muset zanalyzovat a pripravit?
Objem prenesenych dat bude stejny, ale naroky na server a DB budou v pripade
selectu ze slozitejsiho view vetsi (data v uvedenych sloucich pouzitych ve
view se musi cist do cache DB a tam zpracovavat, byt se nakonec z nich
vybere jen minimum ), nez z jednodussiho noveho selectu.
Podle mne se to rozhodne vyplati.
---------------------------------------------------------------
Ing. Pavel �PEJTEK
bosnis(zv)yo(tec)cz
http://freeweb.starweb(tec)cz/ps/
---------------------------------------------------------------
Upper a parametr
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 11:04:26
> Diky. Jen ted nevim - bude to fungovat i na anglickych Windows?
ja mam anglickou verzi W2000 prof. a tam to funguje normalne (i s
ceskejma stringama). akorat predpokladam, ze your locale (location) musi
bejt nastaveno na czech (je to v ovladacich panelech, regional
settings). coz ja osobne mam.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Jak zjistit RAM na PC?
[*] plupinek(zv)synthesia(tec)cz - 22.10.2001 11:07:07
Zdravim,
jakym zpusobem lze zjistit na jinem PC (zadanem pomoci \\JMENO) velikost
RAM nebo jine parametry (treba vetev registru na vzd. PC)?
Pro lokal pouzivam z knihovky JCL funkci GetTotalPhysicalMemory (nekdy
.dwTotalPhys).
Diky.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel. 040/6825535
mob. 0602/406235
JvMail a HTML mail
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2001 11:20:07
> A jako ne kazdy musi mit SMTP server, stejne tak ne kazdy musi mit na
> pocitaci MAPI.
>
> Kazdopadne posilace HTML mailu bych nejradeji zakazal. Posilaci HTML
> mailu se deli na dve skupiny:
>
> 1. posilaji tim stejne holy text
> 2. posilaji se tim pestrobarevne SPAMy... :-(
1.Hm, to je sice mozne, jenze ja potrebuji poslat jednoduchou tabulku
s objednavkou na zbozi tak, aby i sexretarka vedela, co se po ni
chce...
2. SMTP pouzit nechci. MAPI je pouzito protoze:
a) neni pevne pripojeni na net, posta se hodi do Posty k odeslani
(outlook) a pak
b) uzivatel vytvoreny mejl pouzije spise jako sablonu, tu a tam
jeste neco pripise nebo
c) udela z nej HTML a dopise do nej tu zminovanou tabulku.
Takze spis pouziju nejaky Outlook OLE.
Roman
______________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
Teckovana cara
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 11:20:54
From: "Jaroslav Sipek" <jaroslav.sipek(zv)idea(tec)cz>
> potreboval bych nakreslit caru z tecek, stejnou jako je napr. stromecek v
> TTreeView. Pokud pouziju Canvas.Pen.Style := psDot tak mi to kresli caru z
> malych carek a ne z tecek.
Ahoj,
> Kde je chyba? Win 98 SE CZ
^^^^^^ tady.
Win9x zkratka neumi nakreslit teckovanou caru ;-) Musis ji kreslit rucne,
podivej se treba na funkci DottedLineTo z unitu JclGraphUtils.
Petr Vones
JvMail a HTML mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 11:22:36
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> 1.Hm, to je sice mozne, jenze ja potrebuji poslat jednoduchou tabulku
> s objednavkou na zbozi tak, aby i sexretarka vedela, co se po ni
> chce...
Ahoj,
a co to poslat jako prilohu ?
Petr Vones
Pristup k FireBirdu cez PHP
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 22.10.2001 11:37:09
On Sat, 20 Oct 2001, Roland Turcan wrote:
> Zdravim,.
>
> Co vsetko potrebujem pre %subj%.
> Dakujem
PHP skompilovane s podporou Interbase a klientskou knihovnu gds32.dll nebo
libgds.so (podle platformy).
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
seznam vsech formu
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 11:39:01
Cital si toto co som uz pisal??? :
From: "cis"
> nevite jak najit form v aplikaci a vytvorit ho? Jde o ty formy ktere
nejsou
> automaticky vytvorene.
Myslis tym najst form (resp. jeho classu) a vytvorit instanciu objektu
(formu) z roznych unit? Takto to riesit sa mi zda byt zbytocne zlozite, skus
napisat k comu to konkterne potrebujes.
btw: Riesenim by bolo:
1. Pouzit metodu RegisterClass() + FindClass() + ApplicationCreateForm
2. Urobit z Formov COM objekty
3. ...
Kakacka Pavol
KasiX(zv)atlas(tec)cz
From: "cis" <cis(zv)atlas(tec)cz>
> Hi,
> asi jsem to spatne popsal. Mam definovane formy
> TFrm1=class(TForm)
> ....
> TFrm2=class(TForm)
> ....
> Formy nejsou automaticky vytvoreny. Da se od nekud vytahnout seznam vsech
> nadefinovanych formu v aplikaci?
> Pak si ho pres TFormClass uz jednoduse vytvorim.
> alda
DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 22.10.2001 11:42:13
Hi,
dival jsem se na to vlakno a mam to v podstate podobne. Akorat nevytvarim
novy connect.
unit vlaknoRefresh;
interface
uses
Classes, dbClient, ScktComp, SConnect, forms, StdCtrls;
type
TThreadRefresh = class(TThread)
private
{ Private declarations }
fRefresh: Boolean;
fPopis: string;
fLabelPopis: TLabel;
fTConnectionBroker: TConnectionBroker;
protected
procedure Execute; override;
published
constructor Create(_ConBroker:TConnectionBroker; _Refresh: Boolean;
_Popis: Tlabel);
end;
implementation
uses Global, activeX;
{ TThreadRefresh }
constructor TThreadRefresh.Create(_ConBroker:TConnectionBroker;_Refresh:
Boolean; _Popis: TLabel);
begin
inherited Create(true); // Create thread suspended
fRefresh:= _Refresh;
// fPopis:= _Popis;
fLabelPopis:= _Popis;
fTConnectionBroker:= _ConBroker;
Priority:= tpNormal;
FreeOnTerminate:= true;
Suspended := false;
fLabelPopis.Caption:= fTConnectionBroker.appserver.getalert;
end;
procedure TThreadRefresh.Execute;
begin
CoInitialize(nil);
while (not Terminated) and (fTConnectionBroker.Connected) do
begin
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// fLabelPopis.Caption:= fTConnectionBroker.appserver.getalert;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
frefresh:= true;
end; // while
CoUninitialize;
end;
end.
Potrebuju ovsem cist kolem dokola funkci GetAlert ale na tom mi to vyhodi
hlasku ye nepodporuje variant. Netusis cim by to mohlo byt? V Create se fce
precte v pohode.
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Grman
> Sent: Thursday, October 18, 2001 1:11 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: DCOM a rusenie padlej konekcie
>
>
> > Jeste se vratim k tomu threadu, pokud ho spustim v create,
> probehne ok ale
> v
> > execute vzhodi hlasku: Variant is not a an array. Ani na serveru se
> > nevytvori novy remotedatamodul. Mohl bych poprosit o maly
> prikladek tohoto
> > threadu?
>
> Napriklad TAKTO:
>
> TClientThread = class(TThread)
>
1001 T&T
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 22.10.2001 11:44:14
Uz ji (knizku 1001 TIPU a TRIKU) mam taky :o). A stoji fakt za to.
Kdyby tak byla i elektronicka podoba (htmlhelp) - to by byla bomba.
S uctou Brejsa Zdenek - Programator
HJ-SOFT s.r.o., Hradebni 3, 56301 Lanskroun
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Zacatek skupiny v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2001 11:52:52
Dne 20.��jen�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> > Mno a jak to mam vyresit, pokud mam skupiny umistene v TSestDetail?
>
> V detailu to takto nejde.
> Nedoporucuji kombinovat skupiny a detaily dohromady.
> Doporucuji to resit jako vnorene skupiny bez detailu.
Takze lookup nebo calculated?
> Take doporucuji zvazit vhodnost pouzite datove
> struktury. Proc jsou hlavicky skupin zamichane
> mezi radky tabulky?
? Datova struktura? To je obsah faktury, uvedu priklad:
Za prace na XXXXX od XXXXX do XXXX vam fakturujeme:
Kolo od vozu ... 1000,-
Hlinu ... 250,-
Navic pripocitavama za praci na XXX:
Jeden natreny plot ... 500,-
Hlavicka skupiny (a paticka) maji byt barevne odliseny. Na tistene
fakture pak maji byt (nebo nemusi byt) sumare za jednotlive skupiny.
Problem je v tom "barevnem odliseni". Jinak bych nemusel vubec pouzit
skupiny...
Roman
______________________________________________________________________
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
HP 2100 + QuickReport, rucni podavani papiru
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 22.10.2001 11:56:36
Pri tisku sestav na tiskarne HP2100 nastal nasledujici problem.
Tiskarna zpracovava sestavu (v pameti) a pak se misto tisku prepne do
modu kdy je trba potvrdit tisk tlacitkem na tiskarne, jako kdyby mela
nastaveno rucni zakladani papiru.
Z Wordu to samozrejme tiskne normalne, dela to pouze QuickReport.
Setkal jste se s tim nekdo, a jak 100ho ven?
Jiri Fait
Informacni systemy
ICQ: 113357332
Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
JvMail a HTML mail
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2001 11:58:59
Dne 22.��jen�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> > 1.Hm, to je sice mozne, jenze ja potrebuji poslat jednoduchou tabulku
> > s objednavkou na zbozi tak, aby i sexretarka vedela, co se po ni
> > chce...
>
> Ahoj,
>
> a co to poslat jako prilohu ?
V priloze uz je fotka (vzory zbozi), a ten mejl jako sablona ma byt
editovatelny. Treba se do te tabulky jeste neco pripise apod... a
kdyz to na druhe strane pride, ma to byt co nejjednodussi. A posila
se jen vyvolenym, co maji Outlooka ;-))
Roman
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
Pridat pole v DBF
[*] prajz.rumcajs(zv)quick(tec)cz - 22.10.2001 12:07:54
Servus vsem,
mam aplikaci, ktera si vytvorila pomoci TTable databazi
(data.dbf). Ted resim problem, jak pridat do jiz existujiciho souboru dbf
dalsi pole (ftGraphic). Vsechny dosavadni pokusy vytvorili TField, pridali
ho k TTable (Table1.Fields.Add(TField)), ale jinak se nic nedeje. Kdyz dam
DBImage1.DataField := 'Foto', tak to rve, ze toto pole neexistuje ...
D4, Win Me
OOOOO
OOOOO
OOOOOOO
(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
----------oOOO--(_)--OOOo------------------------------
Lukas Weiss receny Rumcajs
e-mail: rumcajs(zv)email(tec)cz
ooO
-------------( )--Ooo--------------------------------
\ ( ( )
\_) ) /
(_)seznam vsech formu
[*] cis <cis(zv)atlas(tec)cz> - 22.10.2001 12:07:36
Hi,
zkusim to trochu popsat. Skoro vsechny formulare se generuji automaticky.
Ale mam nejake specialni u kterych to nejde.A tyto prave potrebuju z menu
vyvolat tak ze zadam class.. Bohuzel to nemuzu udelat natvrdo v menu,
protoze i to se generuje automaticky.
Mozna nejjednodussi cesta je udelat si tobjectList a tam nacpat definice.
Nevyhoda - dopisovani formu.
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Kakacka Pavol
> Sent: Monday, October 22, 2001 11:39 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: seznam vsech formu
>
> zlozite, skus
> napisat k comu to konkterne potrebujes.
DCOM a rusenie padlej konekcie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 22.10.2001 12:12:27
> dival jsem se na to vlakno a mam to v podstate podobne. Akorat nevytvarim
> novy connect.
V prvom rade robis zasadnu chybu v pouzivani VCL komponetu v Execute metoe
vlakna....
VCL nie je Thread save - aspon v D5 nie a pochybujem ze v D6 ano...
Kazde volanie VCL musi bezat v hlavnom vlakne - robi sa to pomocou
Synchronize (vid. help)...
Teda napr. Synchronize(ShowResult);
a
procedure TThreadRefresh.ShowResult;
begin
fLabelPopis.Caption:= fTConnectionBroker.appserver.getalert;
end;
No a ak to nepojde ani potom, tak potom je este mozne ze spojenie je
nezdielatelne cez viac vlaken.
To ale neviem... najprv urcite musis "zosynchronizovat" VCL volania.
> constructor TThreadRefresh.Create(_ConBroker:TConnectionBroker;_Refresh:
> Boolean; _Popis: TLabel);
> begin
... cast CREATE bezi este v hlavnom vlakne
tam este vsetko bezi...
> fTConnectionBroker:= _ConBroker;
....
> fLabelPopis.Caption:= fTConnectionBroker.appserver.getalert;
> end;
> procedure TThreadRefresh.Execute;
> begin
> CoInitialize(nil);
> while (not Terminated) and (fTConnectionBroker.Connected) do
> begin
TOTO NESMIES !
> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> // fLabelPopis.Caption:= fTConnectionBroker.appserver.getalert;
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> frefresh:= true;
> end; // while
> CoUninitialize;
> end;
>
> end.
Ahoj.
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
Ukonceni programu
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 22.10.2001 12:16:58
Zdravim,
muj program "sedi" v tray a kdyz klepnu na ikonku tak se obnovi a zobrazi.
Pri stisku [X] close se misto ukonceni minimalizuje zpet do tray. Ale kdyz
koncim
Windows 2000, tak bych potreboval, aby zjistil, ze ho ukoncuji Windows a
misto
minimalizace do tray se ukoncil (jinak blokuje ukonceni W2000).
Nevite nekdo, jak na to?
R. Plzak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.285 / Virov� b�ze: 151 - datum vyd�n�: 5.10.2001
Pouzivani View
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 12:18:39
zkusil jsem select se zobrazenim dvou sloupcu, ale joinem na dve
tabulky:
select
klic, prijmeni
from
t1
left join t2 t1.rc = t2.rc
left join t3 t3.polozka = t1.polozka
select bez joinu na t3 byl o 15 sekund rychlejsi na 150 tisici
zaznamech.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Zacatek skupiny v Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.10.2001 12:29:56
> From: Roman
>
> ? Datova struktura? To je obsah faktury, uvedu priklad:
> Za prace na XXXXX od XXXXX do XXXX vam fakturujeme:
> Kolo od vozu ... 1000,-
> Hlinu ... 250,-
> Navic pripocitavama za praci na XXX:
> Jeden natreny plot ... 500,-
Rozumim tomu spravne, ze se jedna o pet radku
jedne tabulky? Pokud ano, tak se vubec nejedna
o nejake hlavicky skupin, alespon ne v terminologii
generatoru Sinea.
Skupiny v terminologii Sinea znamenaji toto:
Mam tabulku a v ni napriklad dva Fieldy,
TypPolozky: Char, M=material, P=prace
ObsahPolozky: string
V tabulce budou tri radky:
M | Kolo od vozu ... 1000,-
M | Hlinu ... 250,-
P | Jeden natreny plot ... 500,-
V generatoru Sinea udelam skupinu
pres skupinovou polozku TypPolozky.
Ve vysledku budu mit
- zacatek skupiny M
- dva radky tabulky
- zacatek skupiny P
- jeden radek tabulky
Takto chape skupiny generator Sinea.> Hlavicka skupiny (a paticka) maji byt barevne odliseny. Na tistene
> fakture pak maji byt (nebo nemusi byt) sumare za jednotlive skupiny.
> Problem je v tom "barevnem odliseni". Jinak bych nemusel vubec pouzit
> skupiny...
To co ty chces je pravdepodobne barevne odliseni
jednotlivych RADKU sestavy, nikoliv skupin.
Co obsahuji jednotlive radky, je to jedna textova polozka,
nebo je to poskladane z vice samostatnych polozek?
Co je kriteriem pro to, jak se maji jednotlive radky tisknout?
Vaclav Krmela
Zobrazeni animovanych ikon u uzlu TreeView
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 22.10.2001 12:33:15
Ahoj,
muzete mi prosim nekdo poradit, proc mi nasledujici kod nefunguje ? Jak ma
byt nastaven TreeView ?
procedure TfrmSeznam.Timer(Sender: TObject);
var R: TRect;
BlinkNode: TTreeNode;
ImageWidth: Integer;
begin
with Seznam do BlinkNode:= Items[Items.Count - 2];
with BlinkNode do
begin
ImageIndex:= ImageIndex xor MaxInt;
SelectedIndex:= SelectedIndex xor MaxInt;
if IsVisible then
begin
ImageWidth := TTreeView(TreeView).Images.Width;
R:= DisplayRect(True);
R.Right:= R.Left + ImageWidth;
OffsetRect(R, -ImageWidth - 4, 0);
InvalidateRect(GetHandle, (zv)R, True);
end;
end;
end;
Diky za pomoc.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================seznam vsech formu
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 12:58:52
From: "cis" <cis(zv)atlas(tec)cz>
> zkusim to trochu popsat. Skoro vsechny formulare se generuji automaticky.
> Ale mam nejake specialni u kterych to nejde.A tyto prave potrebuju z menu
> vyvolat tak ze zadam class.. Bohuzel to nemuzu udelat natvrdo v menu,
> protoze i to se generuje automaticky.
> Mozna nejjednodussi cesta je udelat si tobjectList a tam nacpat definice.
> Nevyhoda - dopisovani formu.
Dopisovani formu? Myslis tym tento jeden riadok v unite formu v casti
initialization?
---
initialization
MyProcForRegisterFormClass(TMyForm);
---
To snad nie :))
pricom ta Tvoja registracna procedura "MyProcForRegisterFormClass(AClass:
TClass)" by iba pridala clasu do zoznamu vsetkych class a mohol by si s tym
robit co by si chcel.
Alternativou v tomto pripade ale je ako som uz pisal pouzitie metody
RegisterClass().
viz { Class registration routines } v unite Classes.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
DBGrid a Scrollbar !
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 22.10.2001 13:07:13
Mam DBGrid, v nem vic polozek nez muze zobrazit, ma nastaveny scrollbary na
ssvertical. A ten zmetek ho nezobrazi. Koukal jsem do archivu konfery, snad
do vsech nastaveni ty mizerny komponenty a uz me nenapada nic lepsiho nez
vedle toho gridu narvat samostatny scrollbar a nejak silene to prepocitavat.
PROSIM, nevite nekdo co sem prehlid? Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Callback a MIDAS
[*] Ing. Jarom�r Sola� <solar(zv)magion(tec)cz> - 22.10.2001 13:14:21
Zdravim vsechny,
nevite nekdo, jak bych mohl z aplikacniho serveru informovat klienta o
nejakych udalostech? Zkousel jsem callback pres predani interface z klienta
na server, ale nevim, jak vyvolat udalost z hlavniho vlakna aplikacniho
serveru, pokud je thread model serveru apartment. U modelu single to
funguje. Nebo existuje nejaka jina moznost?
(D5Ent+SP1, WinNT 4.0 SP5)
S pozdravem
Jaromir Solar
DBGrid a Scrollbar !
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 22.10.2001 13:25:01
Ahoj,
podobnou vlastnost ma i TDBComboBox (nacpe obe sipky do jednoho radku), ja
to resim tak, ze zavolam PrislusnyDataset.FetchAll.
IMHO je problem v promenne RecordCount na Datasetu. Tato promenna totiz
neudava pocet prvku (jaxem se mylne domnival), ale pocet prave
nafetchovanych klientu (natazenych na klienta).
FetchAll natahne vsechny zaznamy a RecordCount ma hodnotu vetsi nez jedna.
Pokud by FetchAll trval dlouho (hodne dat), tak zkus nekolikrat zavolat
metodu Next (podle toho, kolik zaznamu predpokladas, ze bude maximalne videt
plus 1 :-).
Holt DB-aware komponenty nejsou vzdy idealni, ale to uz tu nekdo rekl..:-)
Pokud to nepomuze, tak napis a upresni DB a pripojeni.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
> Mam DBGrid, v nem vic polozek nez muze zobrazit, ma nastaveny
> scrollbary na
> ssvertical. A ten zmetek ho nezobrazi.
seznam vsech formu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2001 13:45:55
> Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> ja uz se mockrat setkal s nespravnym pouzivanim globalni
> promenne pro dany formular,
Globalni promenne jsou podle meho soudu obecne spatne.
Ale kdyz vim, ze ten formular bude existovat jenom jednou, tak to (s uzardenim) prekousnu.
> 1) Tuto globalni promennou nelze uzit pro formulare, ktere mohou
> existovat ve vice instancich soucasne.
Jasna vec.
> 2) Setkal jsem se s tim, ze nekde v aplikaci v ramci jednoho
> formulare se vytvori jedna instance formulare, autor ji tam neuvolni,
> protoze si treba neuvedomi, ze by to mel udelat a o uvolneni se
OnClose: Action:=caFree;
OnDestroy: Form1:=nil;
To mi pripada docela bezpecne.
> promenne. Spousta formularu (zejmena pouzivanych jako modalni
> okna) se uziva jen lokalne (create/ShowModal/Free) v ramci jedne
> procedury nebo jednoho jineho objektu, a proto by prislusne
> promenne mely byt lokalni.
Urcite.
Nebo dokonce vubec bez promenne:
with TForm2.Create(nil) do
try
ShowModal;
finally
Free;
end;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Pouzivani View
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 13:55:31
> select
> klic, prijmeni
> from
> t1
> left join t2 t1.rc = t2.rc
> left join t3 t3.polozka = t1.polozka
>
> select bez joinu na t3 byl o 15 sekund rychlejsi na 150 tisici
> zaznamech.
Ale tohle (zda se mi) nesouvisi s puvodnim dotazem. Naprosto
nepochybuji o tom, ze ubranim joinu se to zrychli.
Jde mi o to, jestli je lepsi delat jednoduchy dotaz z
komplikovaneho view s mnoha sloupci a joiny, tj.
select id, nazev from V_MyView,
kde V_MyView je view obsahujici select cca 50 sloupcu a 10 joinu,
nebo radeji
select id, nazev from T_Tabulka
left join blabla
left join blabla
V obou pripadech se nejaky join dela, jenze v druhem pripade je
maly a jednoduchy, zatimco v prvnim je ukryty ve view a je
komplikovany. Laicky se mi zda, ze delat vyber nejake
podmnoziny z view je komplikovanejsi nez ten dotaz sestavit
rovnou na miru, protoze jde vlastne o select ze selectu a to mi
implikuje zaver, ze delat mohutna univerzalni view je nesmysl.
Uspora, kterou server ziska tim, ze view muze byt
predkompilovane, podle me muze byt zakryta komplikovanosti toho
view - a na to se ptam.
David Lebeda
Pouzivani View
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 14:01:34
> > select bez joinu na t3 byl o 15 sekund rychlejsi na 150 tisici
> > zaznamech.
> Ale tohle (zda se mi) nesouvisi s puvodnim dotazem. Naprosto
> nepochybuji o tom, ze ubranim joinu se to zrychli.
> Jde mi o to, jestli je lepsi delat jednoduchy dotaz z
> komplikovaneho view s mnoha sloupci a joiny, tj.
..............zkraceno..............
ja to pochopil, ja jenom chtel nadnest, ze je lepsi bud udelat odlehcene
view s potrebnym poctem sloupcu, nebo primo poslat sestaveny dotaz. tedy
nedelat ty zbytecne joiny. jinymy slovy, ja si myslim, ze velke
universalni view je zbytecne zatezovani serveru. bud potrebuju nejake
view, pak si ho udelam na miru. nebo si poslu konkretni dotaz, ale
udelat si view pro jednodussi dotazovani, ktere vsak zbytecne mrha
vykonem... no, leda pro uzivatele, ze vy si to mohl poustet z nejakeho
tabulkace pres ODBC, nebo tak neco.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Callback a MIDAS
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2001 14:01:15
Dotaz predavam V.Bodeckovi,
ktery tyto techniky predvadi na kurzu COM/DCOM.
Jan Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: Ing. Jarom�r Sola� <solar(zv)magion(tec)cz>
> Komu: Delphi konference <delphi-l(zv)clexpert(tec)cz>
> P�edm�t: Callback a MIDAS
> Datum: 22. ��jna 2001 13:14
>
> Zdravim vsechny,
> nevite nekdo, jak bych mohl z aplikacniho serveru informovat klienta o
> nejakych udalostech? Zkousel jsem callback pres predani interface z klienta
> na server, ale nevim, jak vyvolat udalost z hlavniho vlakna aplikacniho
> serveru, pokud je thread model serveru apartment. U modelu single to
> funguje. Nebo existuje nejaka jina moznost?
>
> (D5Ent+SP1, WinNT 4.0 SP5)
>
> S pozdravem
> Jaromir Solar
> DBGrid a Scrollbar !
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 22.10.2001 14:22:05
Diky. Pred chvilkou jsem prisel na reseni a s timto primo souvisi:
stacilo vypnout anchory (pravy a dolni) a do udalosti OnShow dat:
If TableC.RecordCount>0 then TableC.First
----- Original Message -----
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
Sent: Monday, October 22, 2001 1:25 PM
> Pokud by FetchAll trval dlouho (hodne dat), tak zkus nekolikrat zavolat
> metodu Next (podle toho, kolik zaznamu predpokladas, ze bude maximalne
videt
> plus 1 :-).
> > Mam DBGrid, v nem vic polozek nez muze zobrazit, ma nastaveny
> > scrollbary na
> > ssvertical. A ten zmetek ho nezobrazi.
seznam vsech formu
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 14:27:14
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> > Dopisovani formu? Myslis tym tento jeden riadok v unite formu v casti
> > initialization?
>
> Nevyhoda nespociva v tom, jestli jde o hodne/malo kodu, ale ze se
> na to nesmi zapomenout pri pridavani dalsiho formulare. Coz
> nemusi byt problem ted, ale treba za par roku, az nekdo uplne cizi
> bude chtit tu aplikaci rozsirit a ani ho nenapadne, ze by mel neco
> takoveho udelat.
>
> Tim ale nechci polemizovat s navrzenym resenim, jen upresnit vyse
> uvedene tvrzeni, tedy pokud jsem to pochopil spravne.
Ano, mas pravdu :) polemizovat nebudeme ... , len dodam ze na to aby sa
niekedy nieco niekam nezabudlo su vyborne Asserty!!!
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Zmena aktivniho prvku
[*] <kuchar(zv)unicodesys(tec)cz> - 22.10.2001 14:30:08
no jo ale co s faktem ze kdyz dam programove prikaz napr.
button1.top:=button1.top+20, tak
sice k focusu nedojde, ale tlacitko se posune a ani WM_SETFOCUS a ani
WM_KILLFOCUS
to nezachyti, je i na to nejaka zprava, nebo nejaky zpusob jak to zachytit ?
> WM_SETFOCUS - okno "ziskalo" focus
> WM_KILLFOCUS - okno "strati" focus
>
> L.
>
> > Existuje nejaka zprava Windows, ktera se posle aplikaci
> > (popripade oknu) pri
> > zmene aktivniho prvku? (zmeni se focus).
> > Vim, ze u tridy TScreen existuje udalost OnActiveControlChange,
> > ale ja bych
> > potreboval primo zpravu Windows (pokud tedy existuje)
>
>Zahadne zpomalovani timeru
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 22.10.2001 14:41:52
Hello brant(zv)dcomm(tec)cz!
> v mem programu bezi dynamicky vygenerovany timer,
> ktery vzdy po 5 vterinach hrabne do jakesi databaze
> (BDE, Paradox)
> se tu a tam stane, ze se tento timer z nejakeho
> zahadneho duvodu zpomali az na periodu 2 minuty
Nechaj si zobrazovat velkost suboru PARADOX.USR ( .LCK? alebo tak nejak, uz
som to presne meno zabudol) a pochopis. Nez som opustil paradox, musel som
to trapne riesit tak, ze po X periodach som aplikaciu ukoncil, ale predtym
nastartoval jej novu instanciu.
Bye
V.Mlich http://www.rar(tec)cz
seznam vsech formu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2001 14:51:47
> > Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> > ja uz se mockrat setkal s nespravnym pouzivanim globalni
> > promenne pro dany formular,
> > 2) Setkal jsem se s tim, ze nekde v aplikaci v ramci jednoho
> > formulare se vytvori jedna instance formulare, autor ji tam
> > neuvolni, protoze si treba neuvedomi, ze by to mel udelat a o
> > uvolneni se
> OnClose: Action:=caFree;
> OnDestroy: Form1:=nil;
> To mi pripada docela bezpecne.
Snad ano, myslim, ze si rozumime. Problem vidim spise v tom, ze
Delphi globalni promennou automaticky vytvari a rada zacatecniku
a samouku ji pak takto precizne nepouziva (precisnosti zde
rozumim to pouziti OnClose a OnDestroy), neuvedomi si problem,
protoze je prece tak jednoduche jen pouzit to, co Delphi zalozilo
automaticky a o nic se nestarat a pak ty aplikace obcas padaji na
AV... mluvim z praxe, uz jsem prebiral po ruznych lidech par
aplikaci, ale tohle korektne pouzite nemel snad nikdo z nich, a ty
aplikace kvuli tomu opravdu padaly, tak jsem na to chtel jen
upozornit a dat to na svetlo.
David Lebeda
Problem s UPDATE
[*] <kuchar(zv)unicodesys(tec)cz> - 22.10.2001 14:52:27
caute,
mam nasledujici problem s SQL, mam dve tabulky s rozdilnym poctem zaznamu,
pricem tabulka 1 ma vestsi pocet zaznamu nez tabulka 2, nad tabulkou
1potrebuju udelat update zaznamu podle tabulky 2 a zmenit udaje mam pro to
nasledujici prikaz, ale nejak to nefunguje :
----------------------------------------------------------------------------
-------------
update tab1 set tab1.suma=tab2.suma,
tab1.cena =tab2.cena
from tab1, tab2
WHERE EXISTS (select tab1.ean from tab1 WHERE tab1.ean=tab2.ean)
----------------------------------------------------------------------------
-------------
kde ean je sloupec s jednoznacnou hodnotou, cela operace trva neunosne
dlouho a navic to
udela uplne blbosti, tak pokud nekdo vite kde delam chybu tak poradte
DIK
DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 22.10.2001 14:52:09
Hi,
velmi diky ted to slape.
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Grman
> Sent: Monday, October 22, 2001 12:12 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: DCOM a rusenie padlej konekcie
>
> > procedure TThreadRefresh.Execute;
> > begin
> > CoInitialize(nil);
> > while (not Terminated) and (fTConnectionBroker.Connected) do
> > begin
>
> TOTO NESMIES !
Problem s UPDATE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.10.2001 15:43:22
> update tab1 set tab1.suma=tab2.suma,
> tab1.cena =tab2.cena
> from tab1, tab2
> WHERE EXISTS (select tab1.ean from tab1 WHERE tab1.ean=tab2.ean)
tipnu si, takze bez zaruky, ale me prijde logicky todle:
update tab1
set
tab1.suma=tab2.suma,
tab1.cena=tab2.cena
from
tab2
WHERE
tab1.ean=tab2.ean
teda, ja delam do interbase a tudle vymozenost nema, takze nestrilet,
nekamenovat. pouze vyzkouset ;)
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Zmena aktivniho prvku
[*] Lubo Fule <fule(zv)ekosoft.sk> - 22.10.2001 15:51:27
WM_MOVE
myslim, ze nazvy sprav su dost intuitivne, takze staci spustit help k WIN
API (Win32 Programmer's Reference) a v indexe pozerat na hesla zacinajuce sa
na WM_xxx... ja to tiez neviem naspamat, ale hladam v helpe...
L.
> no jo ale co s faktem ze kdyz dam programove prikaz napr.
> button1.top:=button1.top+20, tak
> sice k focusu nedojde, ale tlacitko se posune a ani WM_SETFOCUS a ani
> WM_KILLFOCUS
> to nezachyti, je i na to nejaka zprava, nebo nejaky zpusob jak to
> zachytit ?
Problem s UPDATE
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 22.10.2001 15:52:57
update tab1 set tab1.suma=tab2.suma,
tab1.cena =tab2.cena
from tab1
join tab2 on (tab1.ean=tab2.ean)
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> caute,
>
> mam nasledujici problem s SQL, mam dve tabulky s rozdilnym poctem zaznamu,
> pricem tabulka 1 ma vestsi pocet zaznamu nez tabulka 2, nad tabulkou
> 1potrebuju udelat update zaznamu podle tabulky 2 a zmenit udaje mam pro to
> nasledujici prikaz, ale nejak to nefunguje :
> ------------------------------------------------------------------
> ----------
> -------------
> update tab1 set tab1.suma=tab2.suma,
> tab1.cena =tab2.cena
> from tab1, tab2
> WHERE EXISTS (select tab1.ean from tab1 WHERE tab1.ean=tab2.ean)
> ------------------------------------------------------------------
> ----------
> -------------
> kde ean je sloupec s jednoznacnou hodnotou, cela operace trva neunosne
> dlouho a navic to
> udela uplne blbosti, tak pokud nekdo vite kde delam chybu tak poradte
>Komponenta ActiveX
[*] Peter Surovy <psurovy(zv)uevora.pt> - 22.10.2001 15:03:32
Zdravim
nainstaloval som si novu komponentu ActiveX
konkretne sa jedna o Map z triedy zrejme MapObjects nie som si celkom isty
Chcel by som vediet ci mozem sa dostat k zdrojakom tejto komponenty
resp ich menit a ako??
Viem si najst nejake zdrojaky vo vetve
Program Files\Borland\Delphi \Imports
ale tie uz vyzeraju ako keby obsahovali data z formulara na ktory
som ich vlozil Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
seznam vsech formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 16:04:40
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Nevyhoda nespociva v tom, jestli jde o hodne/malo kodu, ale ze se
> na to nesmi zapomenout pri pridavani dalsiho formulare. Coz
> nemusi byt problem ted, ale treba za par roku, az nekdo uplne cizi
> bude chtit tu aplikaci rozsirit a ani ho nenapadne, ze by mel neco
> takoveho udelat.
Ahoj,
za par roku uz tomu stejne nikdo neporozumi ;-) Pokud to ale chces mit temer
blbovzdorne, tak by to slo udelat tak, ze bude registrovat vsechny formulare,
tedy i datove moduly do nejakeho seznamu. Ten pak porovnas se seznamem vsech
formularu ulozenych jako resource v EXE souboru. Zjednodusene by to mohlo
vypadat treba takhle:
unit FormsList;
interface
uses
Classes, SysUtils, Contnrs, Forms;
procedure CheckRegistration;
procedure RegisterFormOrDataModule(AClass: TClass);
function RegisteredList: TClassList;
implementation
uses
JclPeImage;
resourcestring
RsInvalidClass = 'Invalid class';
RsClassNotRegistered = 'Class %s is not registered';
var
List: TClassList;
procedure CheckRegistration;
var
I, N: Integer;
BorImage: TJclPeBorImage;
Name: string;
Found: Boolean;
begin
BorImage := TJclPeBorImage.Create;
try
BorImage.AttachLoadedModule(HInstance);
for I := 0 to BorImage.FormCount - 1 do
begin
Name := BorImage.Forms[I].FormClassName;
Found := False;
for N := 0 to List.Count - 1 do
if SameText(List[N].ClassName, Name) then
begin
Found := True;
Break;
end;
if not Found then
raise Exception.CreateResFmt((zv)RsClassNotRegistered, [Name]);
end;
finally
BorImage.Free;
end;
end;
procedure RegisterFormOrDataModule(AClass: TClass);
begin
if AClass.InheritsFrom(TCustomForm) or AClass.InheritsFrom(TDataModule) then
List.Add(AClass)
else
raise Exception.CreateRes((zv)RsInvalidClass);
end;
function RegisteredList: TClassList;
begin
Result := List;
end;
initialization
List := TClassList.Create;
finalization
FreeAndNil(List);
end.
Uvedene reseni neni ale uplne idealni, protoze muze dojit k situaci, kdy je do
vysledneho souboru vlozen jeste dalsi formular, napriklad Customize dialog z
ActionBars. To by bylo mozne resit dalsim senzamem ve kterem by byly nazvy
trid ktere se maji ignorovat.
Petr Vones
1001 T&T pro Delphi - StartService
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.10.2001 16:18:11
Ahoj.
Tip v knihe cislo 745 ma hned po begin napisane:
ss.dwCurrentState:=-1;
Ale dwCurrentState je typu DWord ale Dword moze byt len v rozmedzi
Longword 0..4294967295 unsigned 32-bit.
Dalej StartService vrati false. Ja spustam sluzbu "InterbaseGuardian"
Co dal ?
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Problem s UPDATE
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 22.10.2001 16:19:18
Ja bych to napsal takto
update tab1 t1
set
suma = (select suma from tab2 t2 where t2.ean = t1.ean),
cena = (select cena from tab2 t3 where t3.ean = t1.ean)
where ean in (select ean from tab2)
Toto musi fungovat a spolehlive, i kdyz upozornuji predem, ze to
bude desne pomaly, myslim si ze bude podstatne rychlejsi udelat
ulozenou proceduru a do ni napsat nasledujici kod
declare variable ean xxxx;
Declare variable suma xxxx;
declare variable cena xxxx;
as
for
select ean, suma, cena
from tab2
into :ean, :suma, :cena
do begin
update tab1
set
suma = :suma,
cena = :cena
where ean = :ean;
end
Tohle si myslim, ze bude rychlejsi, ale je treba to vyzkouset.
Jeste bych tam mozna udelal kontrolu s tabulkou 1, aby se
neupdatovalo to co se nemusi, pak by to bylo asi takto
declare variable ean xxxx;
Declare variable suma xxxx;
declare variable cena xxxx;
as
for
select t2,ean, t2.suma, t2.cena
from tab2 t2, tab1 t1
where t2.ean = t1.ean AND
(
t2.suma <> t1.SUMA Or
(t2.suma is null AND t1.suma is not null) Or
(t1.suma is null AND t2.suma is not null)
OR
t2.cena <> t1.cena Or
(t2.cena is null AND t1.cena is not null) Or
(t1.cena is null AND t2.cena is not null)
)
into :ean, :suma, :cena
do begin
update tab1
set
suma = :suma,
cena = :cena
where ean = :ean;
end
> caute,
>
> mam nasledujici problem s SQL, mam dve tabulky s rozdilnym poctem zaznamu,
> pricem tabulka 1 ma vestsi pocet zaznamu nez tabulka 2, nad tabulkou
> 1potrebuju udelat update zaznamu podle tabulky 2 a zmenit udaje mam pro to
> nasledujici prikaz, ale nejak to nefunguje :
> ----------------------------------------------------------------------------
> -------------
> update tab1 set tab1.suma=tab2.suma,
> tab1.cena =tab2.cena
> from tab1, tab2
> WHERE EXISTS (select tab1.ean from tab1 WHERE tab1.ean=tab2.ean)
> ----------------------------------------------------------------------------
> -------------
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
Problem s UPDATE
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 22.10.2001 16:20:03
asi jsi to chtel takhle:
update tab1
set tab1.suma=tab2.suma,
tab1.cena =tab2.cena
from tab1, tab2
where tab1.ean=tab2.ean
update se provede je na zaznamy v tab1, ke kterym existuje odpovidajici zaznam v tab2
v puvodnim dotazu se provede update na podmnozinu kartezskeho soucinu tab1 a tab2 splnujici dane omezeni (pouzije vsechny zaznamy z
tab1 a ty zaznamy z tab2, ke kterym existuje odpovidajici zaznam v tab1; tab 1 v poddotazu nema nic spolecneho s tab1 v update);
vsechny zaznamy v tab1 se updatujou tolikrat, kolik je pouzito zaznamu z tab2 - proto je to pomale a pole ean zde vubec nefiguruje -
proto jsou tam blbosti
no, nejak jsem se rozpovidal mozna az k nesrozumitelnosti, zkusim jeste priklad
tab1 ma 4 zaznamy, oznacme si je A, C, D, F
tab2 ma 3 zaznamy, oznacme si je b, c, d
necht zaznamy C a c maji stejne ean
necht zaznamy D a d maji stejne ean
necht ostatni hodnoty ean jsou ruzne
pak dotaz bude provede update pto tyto dvojice zaznamu z tab1 a tab2:
A-c
A-d
C-c
C-d
D-c
D-d
F-c
F-d
Marek Muller
-----Original Message-----
update tab1
set tab1.suma=tab2.suma,
tab1.cena =tab2.cena
from tab1, tab2
WHERE EXISTS (select tab1.ean from tab1 WHERE tab1.ean=tab2.ean)
----------------------------------------------------------------------------
kde ean je sloupec s jednoznacnou hodnotou, cela operace trva neunosne
dlouho a navic to
udela uplne blbosti, tak pokud nekdo vite kde delam chybu tak poradte
Zacatek skupiny v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2001 16:25:43
> Rozumim tomu spravne, ze se jedna o pet radku
> jedne tabulky? Pokud ano, tak se vubec nejedna
> o nejake hlavicky skupin, alespon ne v terminologii
> generatoru Sinea.
Ano, pet radku jedne tabulky. Dobre, vim ze bych asi nemel srovnat s
QR /:-)/, ale tam zacina skupina tehdy, kdyz dojde ke zmene hodnoty
vybraneho pole, tak sem cekal, ze to bude obdobne.
> Skupiny v terminologii Sinea znamenaji toto:
> Mam tabulku a v ni napriklad dva Fieldy,
> TypPolozky: Char, M=material, P=prace
> ObsahPolozky: string
> V tabulce budou tri radky:
> M | Kolo od vozu ... 1000,-
> M | Hlinu ... 250,-
> P | Jeden natreny plot ... 500,-
> V generatoru Sinea udelam skupinu
> pres skupinovou polozku TypPolozky.
> Ve vysledku budu mit
> - zacatek skupiny M
> - dva radky tabulky
> - zacatek skupiny P
> - jeden radek tabulky
> Takto chape skupiny generator Sinea.
Takze dojde i k prehazeni radku? Tj. nejdriv se vytisknout vsechny
"M" pak "P" atd. nebo kdyz dam dalsi radek "M", tak bude dalsi
skupina podle "M"?
> To co ty chces je pravdepodobne barevne odliseni
> jednotlivych RADKU sestavy, nikoliv skupin.
>
> Co obsahuji jednotlive radky, je to jedna textova polozka,
> nebo je to poskladane z vice samostatnych polozek?
> Co je kriteriem pro to, jak se maji jednotlive radky tisknout?
Radek(id,druh,text,mnozstvi,mj,cenamj,dph,celkem)
Tiskne se:
text,mnozstvi,mj,cenamj,dph,celkem
Pro zahlavi skupiny plati, ze se zobrazuje pouze "text".
Pro zapati skupiny plati, ze se zobrazuje pouze "text","celkem".
Kriteriem je polozka "druh", podle toho se urcuje typ radku, tj.
zahlavi, popr. zapati apod.
Mozna bych, mohl dat hodnotu "text" ze zahlavi skupiny jako novou
polozku ke kazdemu radku z teto skupiny a radky udavajici zahlavi
odfiltrovat. Pak bych do zahlavi v sestave napsal tuto hodnotu
"text".
Roman
______________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
JvMail a HTML mail
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.10.2001 16:28:07
----- Original Message -----
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> V priloze uz je fotka (vzory zbozi), a ten mejl jako sablona ma byt
> editovatelny. Treba se do te tabulky jeste neco pripise apod... a
> kdyz to na druhe strane pride, ma to byt co nejjednodussi. A posila
> se jen vyvolenym, co maji Outlooka ;-))
Ahoj.
Zkus se podivat na format *.eml. Staci nejakou zpravu z outlook expressu dat
"ulozit jako.."
Je to textovy format, ktery OE otevre a da se to dal editovat. Jde takhle
ulozit i html zprava.
Takze to prozkoumat a vygenerovat takovyhle soubor. Ten pak uzivatel odevre
a muze v nem editovat az do aleluja.
Kdysi jsem s tim zacal laborovat, ale nakonec to zakaznich nepotreboval (a
tim padem neplatil), takze to zustalo ve stadiu napadu.
Vzhledem k tomu, ze se jena o normalni format, ktery se posila do SMTP, tak
by to melo pomoci synapse jit vygenerovat.
Ludek
Trial version of Delphi 6
[*] J�n Drot�r - 22.10.2001 16:45:41
Mam Trial verziu Enterprise Delphi 6.
Co sa stane ak vyprsi casovy limit?
Bude sa dat spustit Delphi?
Da sa Delphi potom odinstalovat a znovu nainstalovat?
Dik za odpoved !!1001 T&T pro Delphi - StartService
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.10.2001 17:20:20
> Tip v knihe cislo 745 ma hned po begin napisane:
>
> ss.dwCurrentState:=-1;
> Ale dwCurrentState je typu DWord ale Dword moze byt len v rozmedzi
> Longword 0..4294967295 unsigned 32-bit.
>
Zmatek u Borlandu - mezi verzemi Delphi (pozoroval jsem mezi D3 a D5,
mohlo to byt predelane uz V D4) dost zasadne zmenil natypovani
standardnich Windowsich typu (parametru funkci atd).
Nacpi tam $FFFFFFFF nebo pouzij preddefinovanou konstantu
(SERVICE_NO_CHANGE ??)> Dalej StartService vrati false. Ja spustam sluzbu
"InterbaseGuardian"
>
GetLastError() ?
D. Toman
TStringGrid + zarovnani
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 22.10.2001 17:51:24
Zdravim,
jak zarovnat v TStringGridu text v bunce doprava? Dik
M&B
Zacatek skupiny v Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.10.2001 17:54:06
> From: Roman
>
> Ano, pet radku jedne tabulky. Dobre, vim ze bych asi nemel srovnat s
> QR /:-)/, ale tam zacina skupina tehdy, kdyz dojde ke zmene hodnoty
> vybraneho pole, tak sem cekal, ze to bude obdobne.
Nevim jak to dela QR, ale u Siney zacne nova skupina,
pokud se zmeni hodnota skupinove polozky.
O tom snad neni sporu, nebo jo?
> Takze dojde i k prehazeni radku? Tj. nejdriv se vytisknout vsechny
> "M" pak "P" atd. nebo kdyz dam dalsi radek "M", tak bude dalsi
> skupina podle "M"?
O zadnem prehazeni radku jsem nepsal.
Sinea neprovedi zadne prehazovani radku.
Radky jsou zpracovavany jednopruchodove tak,
jak prichazi z DataSource.
> Mozna bych, mohl dat hodnotu "text" ze zahlavi skupiny jako novou
> polozku ke kazdemu radku z teto skupiny a radky udavajici zahlavi
> odfiltrovat. Pak bych do zahlavi v sestave napsal tuto hodnotu
> "text".
Toto je spravny postup.
Nevim, proc davas zahlavi skupin na samostatne radky,
ktere potom jako radky vubec nechces tisknout.
Vaclav Krmela
D6 a SQL Monitor, Bug?
[*] David Maly <david(zv)archa(tec)com> - 22.10.2001 18:28:54
Nezkousel jste nekdo pustit SQL Monitor s aplikaci prelozenou pod D6??
Nechapu jak je to mozne, ale v monitoru se nic neukaze ...!?
konfigurace:
BDE, native link na ORACLE 7 nebo MSSQL 6.5 (chova se stejne, je jedno kam
se pripojim...),
trivialni aplikace s jednou komponentou TQuery a TDatabase, beze zmeny
prelozeno pod D3, D5, D6.
Beze zmeny nastaveny SQL Monitor.
Vysledne exe z D3 a D5 se pri spusteni (open toho Query) dotazy v SQL
Monitoru objevi, u toho exe z D6 se neobjevi nic.
(zkousel jsem vic aplikaci, ruzne pocitace, ruzne nastaveni SQL Monitoru, D3
C/S, D5Ent., D6Ent.)
Napada nekoho neco? Diky predem...
David
StringGrid a multi select
[*] <idulgerov(zv)centrum.sk> - 22.10.2001 22:42:19
Zdravim vsetkych.
Mam jednu drobnu otazocku.
Potrebujem pracovat z viacerimi polozkami
StringGridu odrazu.
Takze som si vytvoil udalost OnKeyPress a v nej pridavam
jednotlive hodnoty do StringListu (uzivatel stlaci
shift+kurzorovu sipku)
MojStringList.Add( StringGrid1.Cells[StringGrid1.Col,
StringGrid1.Row] );
Otazka : Ako by sa dalo nieco podobne urobit pri tahani mysou?
S pozdravom
Ivan Dulgerov
programator-amater, mladost v prdeli do penzie daleko
SLOVAK REPUBLIC
K chatovaniu je tu http://www.XChat.sk
Zalo�te si svoj mail na http://mail.centrum.sk
tlacitka na hlavnim panelu
[*] ing. V�t Jur�sek - 23.10.2001 00:06:47
Mam stejny problem, ale doted jsem neprisel na to proc to dela.
Zjistil jsem, ze v 90 procentech to dela, kdyz se aplikace spousti v DELPHI.
Kdyz se spusti samostatny exe soubor (mimo delphi), tak to tlacitko tam
z 90 procent neni.
dalsi jev, na ktery jsem prisel, ze mi to nedela prazdna tlacitka ani v
delphi,
kdyz aplikaci nenutim prejit do full screenu, ale necham ji pracovat pouze v
okne
VJ
> Mam problem s DelphiX. Kdyz mam aplikaci ve fullscreenu, tak mi potom na
> hlavnim panelu zustavaji tlacitka, ktera po odmacknuti zmizi. Neda se tomu
> nejak zamezit? Nebo na to neni nejaky programek?
>
> Kuba
>
>
>Slozeny SQL dotaz
[*] <suky(zv)atlas(tec)cz> - 23.10.2001 01:58:48
Ahoj, nevite proc mi toto nefunguje v BDE s paradox tabulkou?
SELECT neco1, neco2, neco3 , (SELECT count(*) FROM table1 WHERE table1.id = table2.id) FROM table2
Pokazde mi ten vnoreny dotaz vrati nulu :(
Michal
Slozeny SQL dotaz
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2001 07:37:03
zkus to napsat takto:
Select t1.neco1, t1.neco2, t1.neco3, count(t2.*) as Pocet_Z_T2
from Table1, Table2
where
Table1.ID = Table2.ID
nebo
Select t1.neco1, t1.neco2, t1.neco3, count(t2.*) as Pocet_Z_T2
from Table1
inner join Table2
on Table1.ID = Table2.ID
S pozdravem
Milan Tome�
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Ahoj, nevite proc mi toto nefunguje v BDE s paradox tabulkou?
>
> SELECT neco1, neco2, neco3 , (SELECT count(*) FROM table1 WHERE
> table1.id = table2.id) FROM table2
>
> Pokazde mi ten vnoreny dotaz vrati nulu :(
> Michal
Brutalni ukoneni formulare
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 23.10.2001 08:10:47
> > Z hlavniho formu se otevre formular JednotkaForm. V udalosti OnIdle se
> > neustale neco zkouma, pocita, testuje atd. Stiskem jednoho z tlacitek
> > na JednotkaFormu se rozenehne dosti dlouho trvajici proces ->
> > posloupnost procedur, ktere se spousteji navzajem + nejaka ta rekurze
> > ... a v prubehu tohoto procesu se vola application.processmessages,
> > takze aplikace nevytuhne. Pokud uzivatel stiskne tlacitko storno, tak
> > se vola FREE. Formular je znicen, ale procedury dobihaji a vyvolavaji
> > vyjimku "Access violation ...".
Dle meho je jedina spravna cesta na brutalni vypocet THREAD. A v threadu
neni Application.ProcessMessages ale je tam jen "if terminated then Exit;".
To je cele a jednoduche. Pak staci jen ve formulari v OnDestroy dat
"mujthread.Terminate; mujthread.Free" a on se ukonci. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Delphi 6 versus Delphi 5 (pro porovnani)
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 23.10.2001 08:12:48
Ahoj,
chtel bych se asi hloupe pozeptat, jaky je rozdil mezi D5 a D6 napriklad v
IDE (odhlednu od technologii, ktere jsou v D6 nove, napr. na internet -
nainstaloval jsem si personal verzi a tam spousta veci neni). Zajimaly by me
spis rozdily ci vylepseni v IDE, rozsireni komponent, ktere jsou i v D5 a
tak. Zatim spis vidim (na prvni pohled) jen kosmeticke zmeny. Diky
Ka.Zmena aktivniho prvku
[*] <kuchar(zv)unicodesys(tec)cz> - 23.10.2001 08:18:32
no a ted si predstav pripad na formu je panel a v panelu je button a ted
programove provedu
button1.top:=button1.top+20
a v tu chvili mi WM_MOVE nic nezachyti protoze zachytava jenom zpravy
panelu.
> WM_MOVE
>
parametry a la MS
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 23.10.2001 08:22:11
Ahoj,
existuje nejaky soubor funkci v D5 nebo nejaka funkce pro praci s parametry
napr. '1,2,,,,"AS,AL,AP",,3,,,"Times Roman",,,,0,0'
setkal jsem se s tim pri nacitani tzv. nestandardnich ini souboru kde jsou
hruzna zverstva s retezci v uvozovkach (vnorene parove uvozovku aj.). Umim
dostat z retezce n-ty parametr (i prazdny), ale pokud je to uzavreno v
retezcich napr. ve stylu 1,,,2,"c:\Program Files\EQC\EQD.EXE -n -p -r1000
"%1" -rew:1,3,4,5,,,2 "param:"%2" -sav"",,,2,2 tak nedokazu poznat, co je ci
oddelovac a spravne to vyriznout. Nebo se to dela nejak jinak?
Diky
Ka.Interbase6 & float field
[*] Petr Savinec <delphi(zv)ges(tec)cz> - 23.10.2001 08:38:09
Krasny den,
potreboval bych poradit. Nadefinoval jsem si pole typu float a ulozil jsem
do neho hodnotu 0,5.
Bohuzel ve skutecnosti se ukazuje 0,4999999. Da se to nejak osetrit?
Dik.
StringGrid a multi select
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 23.10.2001 09:27:14
Mozes to urobit napriklad na eventu OnMouseMove kde budes testovat na ktorej
bunke je mys a to ci je dana bunka vyplnena. Ak neni vyplnena tak ju
naplnis.
Ako priklad Ti moze posluzit toto:
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Column, Row: Longint;
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
StringGrid1.Cells[Column, Row] := 'Col ' + IntToStr(Column) +
',Row ' + IntToStr(Row);
end;
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: <idulgerov(zv)centrum.sk>
> Mam jednu drobnu otazocku.
> Potrebujem pracovat z viacerimi polozkami
> StringGridu odrazu.
> Takze som si vytvoil udalost OnKeyPress a v nej pridavam
> jednotlive hodnoty do StringListu (uzivatel stlaci
> shift+kurzorovu sipku)
> MojStringList.Add( StringGrid1.Cells[StringGrid1.Col,
> StringGrid1.Row] );
>
> Otazka : Ako by sa dalo nieco podobne urobit pri tahani mysou?
Interbase6 & float field
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 23.10.2001 09:38:24
Ahoj,
obecny problem ulozeni desetinnych cisel. Musis na strane klienta provest
zaokrouhleni na platny pocet mist. U floatu to je 7. Viz dokumentace k
Interbase.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
> potreboval bych poradit. Nadefinoval jsem si pole typu float a ulozil jsem
> do neho hodnotu 0,5.
> Bohuzel ve skutecnosti se ukazuje 0,4999999. Da se to nejak osetrit?
> Dik.
>
Odchytavanie cinnosti
[*] <delphi(zv)zvlauto.sk> - 23.10.2001 09:38:12
[P��loha v souboru: winmail.dat]
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze mnozstvo
dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa spocitavali. Daju
sa takto odchytit osobytne len data ktore idu z PC alebo ktore idu do PC z
danou IP adresou?
Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje vyslane?
Ale asi by som chcel privela co?
Vdaka za kazdy napad.Slozeny SQL dotaz
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 23.10.2001 09:41:05
Jeste by to po tobe mohlo chtit group by
Sroub
> zkus to napsat takto:
>
> Select t1.neco1, t1.neco2, t1.neco3, count(t2.*) as Pocet_Z_T2
> from Table1, Table2
> where
> Table1.ID = Table2.ID
>
> nebo
>
> Select t1.neco1, t1.neco2, t1.neco3, count(t2.*) as Pocet_Z_T2
> from Table1
> inner join Table2
> on Table1.ID = Table2.ID
>
> S pozdravem
>
> Milan Tome�
> Vedouc� v�vojov�ho t�mu Windows
> Softwarehouse HAiDA s.r.o.
> Nov� Bor
> tel: 0424/722291, 0424/222284
> email: Milan.Tomes(zv)haida(tec)cz
>
> > Ahoj, nevite proc mi toto nefunguje v BDE s paradox tabulkou?
> >
> > SELECT neco1, neco2, neco3 , (SELECT count(*) FROM table1 WHERE
> > table1.id = table2.id) FROM table2
> >
> > Pokazde mi ten vnoreny dotaz vrati nulu :(
> > Michal
OT: Dlha odozva Windows NT pri pristupe na okolite
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 23.10.2001 09:54:52
Ahoj,
sorry za OT, ale uz som skusal vselico a dost ma to znervoznuje.
Mame lokalnu siet (koax - asi 10 pocitacov).
Na jednom pocitaci, (server Windows NT 4.0) je pri pristupe
k okolitym pocitacom strasne dlha odozva.
Na PC s nainstalovanymi Windows 95 (98) a tiez u Windows 2000
taketo problemy nie su.
Nestretol ste sa niekto s podobnym problemom?
Kde by mohla byt chyba.
Vdaka.
Vlkovic
Zmena aktivniho prvku
[*] Lubo Fule <fule(zv)ekosoft.sk> - 23.10.2001 09:55:13
Musis oprogramovat event Application.OnMessage, ten zachytava vsetky spravy
posielane vsetkym oknam aplikacie.
L.
> no a ted si predstav pripad na formu je panel a v panelu je button a ted
> programove provedu
> button1.top:=button1.top+20
> a v tu chvili mi WM_MOVE nic nezachyti protoze zachytava jenom zpravy
> panelu.
Interbase6 & float field
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 09:58:47
Hodnotu 0.5 jsi tam nemohl ulozit, toto cislo nelze v dvojkove soustave napsat.
Jinak se to resi pomoci zoukrouhlovani pri ZOBRAZENI, ne pri cteni z DB.
napriklad typ single musis zaokrouhlovat na 5 platnych mist, typ double na 12,
tak aby cislo bylo alespon o rad presnejsi nez zobrazovana cast.
dalsim resenim je pouzit typ numeric (coz je integer a ve vysledku se posouva
des. carka), ale pozor, delphi s tim neumi pracovat spravne prevedou si to na
float a pak je vse ztraceno, musis zaokrouhlovat.
Slavek
> Krasny den,
> potreboval bych poradit. Nadefinoval jsem si pole typu float a ulozil jsem
> do neho hodnotu 0,5.
> Bohuzel ve skutecnosti se ukazuje 0,4999999. Da se to nejak osetrit?
> Dik.
>
> Brutalni ukoneni formulare
[*] Filip Skalka <skalka(zv)atlascon(tec)cz> - 23.10.2001 10:20:40
> Z hlavniho formu se otevre formular JednotkaForm. V udalosti OnIdle se
> neustale neco zkouma, pocita, testuje atd. Stiskem jednoho z tlacitek
> na JednotkaFormu se rozenehne dosti dlouho trvajici proces ->
> posloupnost procedur, ktere se spousteji navzajem + nejaka ta rekurze
> ... a v prubehu tohoto procesu se vola application.processmessages,
> takze aplikace nevytuhne. Pokud uzivatel stiskne tlacitko storno, tak
> se vola FREE. Formular je znicen, ale procedury dobihaji a vyvolavaji
> vyjimku "Access violation ...".
Misto Free zkuste pouzit Release.
Skalka
Seminar Delphi 2002
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.10.2001 10:28:31
Vazeni pratele,
dovolte abych vam oznamil,
ze ve dnech 6.-7.2.2002 se bude konat 4.rocnik tradicniho seminare "Delphi 2002".
Podrobnosti naleznete na http://www.haes(tec)cz.
Dobre vite, ze konferenci Delphi pozorne sleduji.
Proto dovolte, abych zvlaste ty z vas, kteri se diskuse aktivne zucastnuji, soucasne poprosil o nejaky prispevek na seminar. Tema si zvolte sami...
Pokud si v tomto okamziku vzpomenu na zajimave diskuse v ramci konference, pak me zaujala treba takova temata jako:
-
Delphi6/Kylix, VCL/CLX, Windows/Linux
-
SQL databaze: InterBase/MSSQL
-
Specifika prace Delphi/SQL
-
atd.
Tesim se na vasi ucast
Jan Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Brutalni ukoneni formulare
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 23.10.2001 10:34:59
From: "Filip Skalka" <skalka(zv)atlascon(tec)cz>
> > se vola FREE. Formular je znicen, ale procedury dobihaji a vyvolavaji
> > vyjimku "Access violation ...".
>
> Misto Free zkuste pouzit Release.
>
> Skalka
K comu by to bolo dobre? Release iba cez POSTmessage zavola Free!
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Interbase6 & float field
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.10.2001 10:37:52
Haj hou!
On 23 Oct 2001, at 8:38, Petr Savinec wrote:
> potreboval bych poradit. Nadefinoval jsem si pole typu float a
> ulozil jsem do neho hodnotu 0,5. Bohuzel ve skutecnosti se ukazuje
> 0,4999999. Da se to nejak osetrit?
Presne takhle se ma ale typ float chovat :) Uchovava totiz cisla v
exponencialnim tvaru. Pokud chcete uchovavat data presne,
pouzijte NUMERIC nebo DECIMAL. FLOAT je pro vypocty v
pohyblive radove carce.
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Delphi 6 versus Delphi 5 (pro porovnani)
[*] David Janko <djanko(zv)infoware(tec)cz> - 23.10.2001 10:47:20
Dne �t 23. ��jen 2001 08:12 jste napsal(a):
> Ahoj,
>
> chtel bych se asi hloupe pozeptat, jaky je rozdil mezi D5 a D6 napriklad v
> IDE (odhlednu od technologii, ktere jsou v D6 nove, napr. na internet -
> nainstaloval jsem si personal verzi a tam spousta veci neni). Zajimaly by
> me spis rozdily ci vylepseni v IDE, rozsireni komponent, ktere jsou i v D5
> a tak. Zatim spis vidim (na prvni pohled) jen kosmeticke zmeny. Diky
>
> Ka.
Odhlednu-li od veci ktere jsou tam nove, tak asi nic ale to bude u vsech
verzi vsech programu ;-).
Je tam zcela nova (a pro treba naprosto fundamentalni) lib CLX ktera mi
umoznuje psat aplikace, ktere spustim v linuxu (pro me tedy konkretne spise
naopak). Pro nekoho nic zajmaveho, pro me (skoro) borland zacal znovu
existovat ......
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Problem s vice desetinymi misty u AdoExpress
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.10.2001 11:03:51
Ahoj,
nevite nekdo, jak donutit AdoExpress, aby vracel u desetinych cisel vice nez
4 desetina mista ?
At zadam do databaze (MS-SQL) jakykoliv pocet desetinych mist zobrazi se mi
vzdy 4, jak pro typ numeric tak float.
Diky Pavel Lstiburek
D5E, MS-SQL 7.0
TStringGrid + zarovnani
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 23.10.2001 11:07:03
Ahoj,
On 22 Oct 2001, at 17:51, Martin Bab�k wrote:
> Zdravim,
> jak zarovnat v TStringGridu text v bunce doprava? Dik
zkus toto, sloupce 1 a 2 budou zarovnany doprava
procedure Txx.StringGridDrawCell(Sender: TObject; ACol, ARow:
Integer;
Rect: TRect; State: TGridDrawState);
var
Value : string;
X : Integer;
begin
if (ACol in [1, 2]) then
begin
Value := Trim(StringGrid.Cells[ACol, ARow]);
{ clear the cell}
StringGrid.Canvas.FillRect(Rect);
{ and draw one to Right }
X := StringGrid.Canvas.TextWidth(Value);
StringGrid.Canvas.TextOut(Rect.Right -4 - X, Rect.Top + 2,
Value);
end;
end;
Jarek Uher
Interbase6 & float field
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.10.2001 11:09:55
Domnivam se, ze cislo 0.5 ma konecny dvojkovy rozvoj a to 2 na -1 (1/2). Tj.
toto cislo by se melo zobrazovat i ve float presne. Nekonecny rozvoj ma
napr. cislo 0.1.
Se zbytkem vysvetleni prace s cisly float plne souhlasim.
Pavel
> Hodnotu 0.5 jsi tam nemohl ulozit, toto cislo nelze v
> dvojkove soustave napsat.
> Jinak se to resi pomoci zoukrouhlovani pri ZOBRAZENI, ne pri
> cteni z DB.
> napriklad typ single musis zaokrouhlovat na 5 platnych mist,
> typ double na 12,
> tak aby cislo bylo alespon o rad presnejsi nez zobrazovana cast.
> dalsim resenim je pouzit typ numeric (coz je integer a ve
> vysledku se posouva
> des. carka), ale pozor, delphi s tim neumi pracovat spravne
> prevedou si to na
> float a pak je vse ztraceno, musis zaokrouhlovat.
>
> Slavek
Odchytavanie cinnosti
[*] David Janko <djanko(zv)infoware(tec)cz> - 23.10.2001 11:14:24
Dne �t 23. ��jen 2001 09:38 jste napsal(a):
> Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze mnozstvo
> dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa spocitavali. Daju
> sa takto odchytit osobytne len data ktore idu z PC alebo ktore idu do PC z
> danou IP adresou?
> Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje vyslane?
> Ale asi by som chcel privela co?
>
> Vdaka za kazdy napad.
Nenapsali jste jestli jde o linux nebo win - jestli o linux, tak bych mohl
trochu poradit, ale vy asi myslite win - jestli ne, tak se ozvete ...
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Dlha odozva Windows NT pri pristupe na okolite poc
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 23.10.2001 11:29:40
Kdysi jsem ty problemy take mel. Vse se vyresi preinstalovanim
pocitace. :)
Ale vazne: muze to udelat nova sitova karta, kdy si ji automaticky
rozpozna a tu starou "zahodi". Ale i presto mu ta minula sitovka
zustane nekde v systemu viset. Bohuzel uz nevim, kde presne jsem ji
nasel, ale hledal jsem to dlouho a pak po odstraneni toho ovladace se
to zacalo chovat rozumne.
Dale jsem se to snazil kdysi vyresit preskladanim poradi hledani v
sitich (pokud mas TCP/IP, IPX, ... a pouzivas jen TCP/IP, je asi
rozumnejsi ostatni protokoly odinstalovat).
Preji Ti, aby se ti to povedlo vyresit.
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
23.10.2001 Peter Vlkovic:
> Ahoj,
> sorry za OT, ale uz som skusal vselico a dost ma to znervoznuje.
> Mame lokalnu siet (koax - asi 10 pocitacov).
> Na jednom pocitaci, (server Windows NT 4.0) je pri pristupe
> k okolitym pocitacom strasne dlha odozva.
> Na PC s nainstalovanymi Windows 95 (98) a tiez u Windows 2000
> taketo problemy nie su.
> Nestretol ste sa niekto s podobnym problemom?
> Kde by mohla byt chyba.
> Vdaka.
> Vlkovic
OT:Dlha odozva Windows NT pri pristupe na okolite
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 11:33:53
Zkus prejit pouze na jeden protokol, nejlepe na TCP/IP, me to delalval
netbui (prechod musi byt na vsech PC v siti).
Slavek
> Na jednom pocitaci, (server Windows NT 4.0) je pri pristupe
> k okolitym pocitacom strasne dlha odozva.
> Na PC s nainstalovanymi Windows 95 (98) a tiez u Windows 2000
> taketo problemy nie su.
>
> Nestretol ste sa niekto s podobnym problemom?
> Kde by mohla byt chyba.Delphi 6 versus Delphi 5 (pro porovnani)
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.10.2001 11:36:59
> Odes�latel: Ka.Kewasa <kewasa(zv)quick(tec)cz>
> chtel bych se asi hloupe pozeptat, jaky je rozdil mezi D5 a D6 napriklad v
> IDE (odhlednu od technologii, ktere jsou v D6 nove, napr. na internet -
> nainstaloval jsem si personal verzi a tam spousta veci neni). Zajimaly by me
> spis rozdily ci vylepseni v IDE, rozsireni komponent, ktere jsou i v D5 a
> tak. Zatim spis vidim (na prvni pohled) jen kosmeticke zmeny. Diky
Tezko odpovedet strucne.
Podle meho soudu je nejdulezitejsi to, ze dostavame propojeni
TClientDataset - TDataSetProvider - TDataSet do Delphi Professional,
a to vcetne dbExpress.
Taky muze byt zajimave
TClientDataSet.SaveToFile/LoadFromFile ve tvaru XML.
A samoz�ejm� CLX aplikace, ale to je uplne jina kapitola...
Jinak souhlas, jen kosmeticke zmeny.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================