Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SQL dotaz , vraceni noveho pole
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2002 09:15:57
> Odes�latel: Jakub �r�mek <jsramek(zv)kodys(tec)cz>
> Bohuzel to potrebuju vratit primo v datasetu...
A nestacilo by ti CalculatedField?
To je primo v datasetu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Proc tuhne SocketServer?
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 22.10.2002 09:17:43
Mal som pred casom problem s prenosom retazcov (rozumej v parametre funkcie
vo volani DCOM objektu) cez TSocketConnection.
Cez TDComConnection bolo vsetko OK. Nikto mi neporadil... tak som patral vo
svete.
No a.. poradil mi jeden Amik. Vraj to upravil. Islo o zamrzanie pri prenose
vacsich paketov.
Zaujimave bolo ze na roznych pocitacoch bola dlzka retazca ktory na server
dokazal poslat rozna.
Mozno to nesuvisi... ale co ked. Hlavne ak si ten stav kde to zmzne dokazes
nasimulovat, ze?
Na poziadanie Ti poslem zdroje upravy 30kb. Mimo konferenciu samozrejme...
tu sa to nesmie...
jg
None
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 22.10.2002 09:37:37
Zdenku,
co s protokolem NetBEUI ? To je shit tak pro 2 pocitace v siti peer-to-peer.
Kdo to dal na server, je blazen. NetBEUI neni routovatelnej protokol a jeho
pakety se "rozprsknou" po siti a kazda sitovka si musi overit, zda-li
nahodou neni pro ni - zatezuje to sit, a to tak ze dost. Nevim, proc delas
krok zpet ... TCP/IP je dnes snad mozno pouzit v kazdym OS, i na DC s OS
Win2k Srv.
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
software, obchod, servis
tel. +420 776 677 776
tel. +420 465 321 555
+420 465 320 141
fax +420 465 320 143
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
ICQ# 169852749
**************************************
* Zajimate se o automobilovy sport ? *
* http://www.zavodydovrchu(tec)cz *
**************************************> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zdenek Brejsa
> Sent: Friday, November 22, 2002 8:55 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject:
>
> Ahoj,
> mam problem a potrebuju radu odborniku:
> Nedari se pripojit na IB-Server protokolem NETBEUI (p�es
> TCP/IP je to OK).
> Pri pokusu o prihlaseni v IBConsole vypadne hlaska "Cannot attach to
> password database".
> Pritom protokol samotny funguje (napr. lze kopirovat
> soubory), i diagnostika
> v IBConsole jej oznaci jako funkcni (passed). Vypada to, ze po testu v
> diagnostice se v InterBase.log objev� zpr�va:
> "WNET/wnet_error: ReadFile
> end-of-file errno = 109".
> Server ma OS Windows 2000 Server. Nevim, jestli to muze nejak
> souviset s
> tim, ze byl na server nainstalov�n domenovy radic.
>
> predem dekuji za pomoc
>
> Zdenek Brejsa - programator HJ-SOFT s.r.o.
> Hradebni 3
> 56301 Lanskroun
> Tel: 511096, 522889, 524795
> Mob: 0602592948, 0603833124
> ICQ: 47636291
>
Nefunguje pripojeni k IB pres NETBUI
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.10.2002 09:52:46
<<< 22. 11. 2002 9:51 - Zdenek Brejsa "prog(zv)hjsoft(tec)cz" >>>
ZB> Omlouvam se za prispevek bez predmetu
ZB> Ahoj,
ZB> mam problem a potrebuju radu odborniku:
ZB> Nedari se pripojit na IB-Server protokolem NETBEUI (p�es TCP/IP je to OK).
ZB> Pri pokusu o prihlaseni v IBConsole vypadne hlaska "Cannot attach to
NetBEUI funguje len ak je server postaveny na WinNT. Na playstation
funguje len TCP/IP
--
Best regards, TRoland
FORMULAR & GRID a obracene
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 22.10.2002 09:53:35
Nevim, ale myslim, ze tudy cesta nevede... Nedari se.
V.
-----Original Message-----
From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Thursday, November 21, 2002 3:33 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: FORMULAR & GRID a obracene
> Mam FORM a na nem dva BUTTONy a jeden DBGRID. kotvim to a kdyz menim
> velikost formu, je to OK. Ale ja chci poslat treba zmenit HEIGHT a
> WITH u DBGRIDU a chci, aby se mi na zaklade teto zmeny vse zmenilo. V.
Ahoj,
grid ma fixni velikost, takze menit jeho rozmery budes muset programem.
Nepomohlo by za teto situace, na tom formu nastavit property AutoSize?
Pisu bez zkouseni, je to jen napad.
David Lebeda
OT: FoxPro6 na IB6
[*] Dalibor <dalibor(zv)torola(tec)cz> - 22.10.2002 10:03:59
Ahoj,
muzete mi nekdo rict, jestli se dostanu z FoxPro6 na Interbase6?
Cekani na ukonceni aplikace - Outlook Express
[*] Petr Langer <langer(zv)xdom(tec)cz> - 22.10.2002 10:16:57
Ahojte,
Potrebuju spustit z aplikace Outlook Express a pockat na jeho ukonceni.
Spustit ho neni problem, ale jak pockat na ukonceni?
Zkousel jsem WaitForSingleObject + GetExitCodeProcess coz normalne funguje,
ale v pripade OE se zda, jako by se ukoncil, presto bezi dal...
WaitForSingleObject projde dal, WaitForMultipleObjects vraci WAIT_OBJECT_0,
GetExitCodeProcess vraci 0, tj. vsechno vypada, jako by se to ukoncilo
korektne :-(
Jsem schopny nejak zjistit, jestli je handle procesu spravny nebo ne?
Diky
Petr Langer
(D5 Ent. UP1, WinXP SP1, OE 6)IDE D5 a krokovani projektu
[*] Sl�va <sliva(zv)csh(tec)cz> - 22.10.2002 09:19:12 -0000
Zdravim konferenci
snazim se spustit a krokovat projekt v D5, ale nelze to, hlasi mi chybu
"Debugger Kernel BORDBK50.DLL is missing or not registered " nespusti se mi
vubec projekt(dale zminena volba je zaskrtla) . Po te co nazaskrtnu volbu
"Integrated debugging" v Tools/Debugger Options, lze projekt z prostredi D5
aspon spustit (chybova hlaska se jiz neobjevi) ale nelze krokovat projekt.
Prosim o radu co s tim.
mam na PC Win2000,D5 ale take D4(krokovani projektu v D4 funguje)
ing. Sl�va Josef, program�tor
e-mail: sliva(zv)csh(tec)cz
______________________________
None
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.10.2002 10:24:05
>
>NetBEUI neni routovatelnej protokol
Tohle neni zadnej argument proti NETBEUI. Muze to byt dokonce vyhoda.
pokud vim tak drtiva vetsina firemnich siti zadnej router nepotrebuje.
V lepsim pripade je sit switchem rozseknuta na segmenty.
> a jeho pakety se "rozprsknou" po siti a kazda sitovka si musi
overit, zda-li
> nahodou neni pro ni - zatezuje to sit, a to tak ze dost.
to bude nejakej nesmysl. Chces tvrdit, ze vsechny NETBEUI packety jsou
posilany jako ethernet broadcasty? To by byla dost velka chyba.
>Nevim, proc delas
udajne ma NETBEUI mensi overhead nez TCP/IP (mensi hlavicka v packetu,
atd) cili udajne je rychlejsi nez TCP/IP ( i kdyz rozdil nebude asi
tak velky)
D. Toman
TForm.Width/Height
[*] J�n Harman - 22.10.2002 10:25:48
Ahoj, problem "Nelze otervit GDB" vyresen. Bylo to attributem ReadOnly.
Dekuji vsem za rady.
Ted neco jineho: Jak zjistim rozmery a pozici okna pro obnoveny stav, pokud
je maximalizovane?
totizto vlastnosti width, height, left a top udavaji aktualni pozici a pokud
zaviram okno maximalizovane, tak bych si chtel zapamatovat pozici a state.
Aby pri znovu otevreni aplikace se okno otevrelo sice treba maximalizovane,
ale kdy se obnovi pozice, tak aby se zarovnalo do pozic predtim. Nekde to
musi mit ulozene, kdyz si to pamatuje system ze?
diky Honza.
TForm.Width/Height
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 22.10.2002 10:32:56
> Jak zjistim rozmery a pozici okna pro obnoveny stav, pokud
> je maximalizovane?
Ve WinAPI je na to funkce GetWindowPlacement.
Pozor vsak na SetWindowPlacement ve VCL, muzes
se dostat do nekorektniho stavu, napr. kdyz okno
obnovis do puvodni velikosti a VCL o tom nebude
vedet :-)
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] David Michal <david.michal(zv)www-bv(tec)com> - 22.10.2002 10:38:12
Zdravim,
Na Visual SourceSafe jsem se koukal, a asi to bude opravdu pekny nastroj a
pomocnik. Jenomze na FreeVCS se mi libi to slovicko free. Preci jen, kdyz si
spocitam kolik jiz mne stal veskery SW. :( Ale to uz je opravdu silne OT.
Takze s touto debatou koncim.
David
jedna z moznosti je Source Offsite http://www.sourcegear.com/sos/
Pouzivam to (iba klienta) a chodi to bez problemov, na serveri to vyuziva
Visual SourceSafe.
Erik
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.422 / Virus Database: 237 - Release Date: 20/11/2002
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] David Michal <david.michal(zv)www-bv(tec)com> - 22.10.2002 10:41:17
Zdravim,
A co tedy potom pouzit za nastroj, pokud je kazdy z clenu tymu pripojen
pouze pres internet, tzn. bez pristupu k file server?
Vim o komercnim produktu od Microsoftu, ale stale doufam v nejake hezke
jednoduche free reseni. :)
David
FreeVCS pracuje na principu zamykani souboru, tedy ten kdo chce s nejakym
souborem pracovat udela Check out (od tohoto okamziku na nem nemuze pracovat
nikdo jiny), pak se muze odpojit a kdyz na nem praci dokonci udela Check in.
Samozrejme je vhodny nejaky dalsi komunikacni kanal (idealne treba ICQ) pro
komunikaci s ostatnimi pro pripady ze nekdo jiny potrebuje zrovna v tom
samem
souboru neco udelat nebo zjistit jake se tam provadeji upravy apod. Soucasti
kazdeho check-inu by mel byt i popis toho co se tam provedlo za zmeny.
Petr Vones
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.422 / Virus Database: 237 - Release Date: 20/11/2002
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 22.10.2002 10:47:57
> A co tedy potom pouzit za nastroj, pokud je kazdy z clenu
> tymu pripojen pouze pres internet, tzn. bez pristupu k file
> server?
K FreeVCS tiez nepotrebujes file server. Klient komunikuje so servrom cez
TCP/IP, to plati aj o stahovani suborov.
Napriklad JEDI pouziva tiez FreeVCS, a to je team rozhodeny po celom svete,
a funguje to.
HTH
TOndrej
Cekani na ukonceni aplikace - Outlook Express
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 22.10.2002 10:51:33
Nevim jak outlook spoustis, predpokladam ze jako CreateOLEObject....
Mel sem stejny problem. Nedela to pokud promena do ktere priradis interface
toho Outlooku
(ja to daval do Variant) je jen lokalni (napr. jen v nejake funkce) Mam-li
ji jako property
tridy outlook se sice vypne ale TaskManager ho porad ukazuje....
Staci vsak jednoducha pomoc, priradit jinou hodnotu do Variantu, ktery
odkazuje na ten interface: napr.
Outl:=CreateOLEObject('Outlook.Application');
Outl.Quit;
Outl:=0;
----- Original Message -----
From: "Petr Langer" <langer(zv)xdom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 22, 2002 10:16 AM
Subject: Cekani na ukonceni aplikace - Outlook Express
> Ahojte,
> Potrebuju spustit z aplikace Outlook Express a pockat na jeho ukonceni.
> Spustit ho neni problem, ale jak pockat na ukonceni?
> Zkousel jsem WaitForSingleObject + GetExitCodeProcess coz normalne
funguje,
> ale v pripade OE se zda, jako by se ukoncil, presto bezi dal...
> WaitForSingleObject projde dal, WaitForMultipleObjects vraci
WAIT_OBJECT_0,
> GetExitCodeProcess vraci 0, tj. vsechno vypada, jako by se to ukoncilo
> korektne :-(
> Jsem schopny nejak zjistit, jestli je handle procesu spravny nebo ne?
>
> Diky
> Petr Langer
>
> (D5 Ent. UP1, WinXP SP1, OE 6)
>
>
FoxPro6 na IB6
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 22.10.2002 11:07:13
> muzete mi nekdo rict, jestli se dostanu z FoxPro6 na Interbase6?
leda by FoxPro umela ODBC, nebo pouzivat DLL a pak bys musel
jet skrz IB_API v gds32.dll
peca
None
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 22.10.2002 11:11:36
On 22 Nov 2002 at 9:37, Milan Schembera wrote:
> co s protokolem NetBEUI ? To je shit tak pro 2 pocitace v siti
> peer-to-peer. Kdo to dal na server, je blazen. NetBEUI neni
> routovatelnej protokol a jeho pakety se "rozprsknou" po siti a kazda
> sitovka si musi overit, zda-li nahodou neni pro ni - zatezuje to sit,
> a to tak ze dost.
No, je pravda, ze s NetBEUI jsme pro bobtnani site meli kdysi jiste
problemy ktere jsme vyresili proste jeho odbouranim, ale zrovna
tahle argumentace mi pripada trochu mimo. Ze je neroutovatelnej je
pravda, to ale nesouvisi s tim, ze se pakety "rozprsknou" po siti. V
jednom segmentu ethernetu (pouzijme toto oznaceni i kdyz je
nepresne) se pakety "rozprsknou" bez ohledu na protokol a medium
(koax,UTP) - i UTP huby posilaji vsechny pakety na vsechny
vystupy krome toho, ze ktereho je dostaly. Switche pracujici na 2
vrstve pracuji s MAC adresami a chovaji se k nemu stejne jako ke
kazdemu jinemu - cili ty pakety distribuuji spravne a nikam je
nerozprskavaji. No a teprve v siti kde se pouzivaji switche na treti
vrstve nebo routery ztraci tenhle protokol glanc. Pres router se
nedostane, to je jasny, ale lze si predstavit situace, kde to nejen
nevadi ale muze to byt i vyhoda.
Z.Kalhous
Spatny Recordcount (Firebird)
[*] Valenta P <valentapat(zv)volny(tec)cz> - 22.10.2002 11:18:18
Zdravim, chci se zetpat, (Firebird)
cim muze byt dano ze "select * from table" mi vrati jen jeden zaznam,
pricemz evidentne vim ze jich ma byt vic. Stejny prikaz v IB adminovi vrati
pocet spravne.
Mam podezreni na napojeni na spolecny IBdatabase a ze nekde nedobehla
transakce .... ale v dobe volani toho prikazu jsou 100% vsechny TQuery v
klidu.
nemate nejaky napad?
valik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
OT: ORACLE problem
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 22.10.2002 11:33:01
Hi all,
Mam otazku na ORACLE specialistov v tejto konfere (pevne verim ze sa nejaky
najdu)
Mam tabulku ClientGroup v kt. su uvedeny skupiny klientov, pricom skupina
moze byt definovana ako vymenovana (potom sa ID klientov nachdazju v tabulke
ClientGroupDetail (previazanej cez IDClientGroup), alebo cez VARCHAR2 Field
s v kt. je definova Where klausula napr: ' AND IDClient IS NOT NULL'
No a potrebujem urobit univerzalnu funkciu, kt. mi najekym sposobom vrati
zoznam IDClient podla zadanej IDClientGroup (t.j. FUNCTION
GetIDClientsFromClientGroup(anIDClientGroup: NUMBER) RETURN ...) a aby sa
tato fcia dala pouzit priamo v selecte t.j.
Select ... From ... Where IDClient IN GetIDClientsFromClientGroup(...)
Zatial sa mi podarilo vytvorit tu fciu tak, ze mi vracia cursor obsahujuci
IDClient ale tuto fciu nemozem zavolat za IN
Viete mi poradit ako nato?
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 241010111 (181)
fax: +420 241010165
icq: 38493645
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.10.2002 11:38:07
Visual SourceSafe chodi dobre, pokial je na nom iba zopar ludi a mate ho
na lokalnej sieti, on je totizto (teda este som iny nevidel) orientovany
iba fajlovo a vsetky veci ktore mu date uklada do podivnych adresarov
typu aaaaabbc a podobne, takze ziadna db (myslim ze som niekde zazrel aj
VSS server ale funkcny som ho nevidel), no a potom staci jeden subor
velky zopar MB a cely VSS je zahlteny, vsetci ostatny stoja... to sa nam
stava pravidelne ... a to nehovorim o tom, ze sme ako pobocka na nejakej
linke cca 128k tak to sa s tym neda niekedy vobec robit...
priklonil by som sa k nejakej DB aplikacii, ale neviem ako su na tom
free aplikacie.... predsa len db server je o niecom inom ako nejake
zdielanie adresarov pri VSS :o)
joka
-----Original Message-----
From: David Michal [mailto:david.michal(zv)www-bv.com]
Sent: Friday, November 22, 2002 10:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: FreeCVS, jak to pouzit pokud kazdy z tymu sedi na jinem
konci sveta?
Zdravim,
Na Visual SourceSafe jsem se koukal, a asi to bude opravdu pekny nastroj
a
pomocnik. Jenomze na FreeVCS se mi libi to slovicko free. Preci jen,
kdyz si
spocitam kolik jiz mne stal veskery SW. :( Ale to uz je opravdu silne
OT.
Takze s touto debatou koncim.
David
OT: FoxPro6 na IB6
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 22.10.2002 11:58:21
Haj hou!
On 22 Nov 2002 at 10:03, Dalibor wrote:
> Ahoj,
> muzete mi nekdo rict, jestli se dostanu z FoxPro6 na Interbase6?
Neznam FoxPro 6, ale podporuje pristup k databazim pres ODBC nebo OLE DB
? Pokud ano, tak existuji ovladace pro IB/FB.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Spatny Recordcount (Firebird)
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2002 12:10:07
> Zdravim, chci se zetpat, (Firebird)
> cim muze byt dano ze "select * from table" mi vrati jen jeden zaznam,
> pricemz evidentne vim ze jich ma byt vic. Stejny prikaz v IB adminovi
> vrati pocet spravne.
Select * from table nevraci pocet, takze v IBAdminovi zadavas
nejspis neco jineho. Jestli ale pouzivas RecordCount na klientovi,
tak se musis smirit s tim, ze ten ukazuje spravny udaj jen tehdy,
byly-li jiz na klienta dotazeny vsechny zaznamy. Tj. po volani Last,
FetchAll apod. Dokud tam nejsou vsechny ukazuje RecordCount jen
pocet vet, ktere si klient dosud vyzadal. Coz na zacatku je jedna
veta.
David Lebeda
Spatny Recordcount (Firebird)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2002 12:28:22
> Zdravim, chci se zetpat, (Firebird)
> cim muze byt dano ze "select * from table" mi vrati jen jeden zaznam,
> pricemz evidentne vim ze jich ma byt vic. Stejny prikaz v IB adminovi
vrati
> pocet spravne.
>
> Mam podezreni na napojeni na spolecny IBdatabase a ze nekde nedobehla
> transakce .... ale v dobe volani toho prikazu jsou 100% vsechny TQuery v
> klidu.
>
> nemate nejaky napad?
Me napada, ze bys nam moh napsat, jak a pomoci ceho ten pocet zjistujes
:-))) "Select *" ti pocet rozhodne nevrati.
JInak na prvni pohled to vypada, ze fetchnes jenom prvni radek a pak se
snazis zjistit hodnotu RecordCount.
Roman
==============================
http://kouzelne.misto(tec)cz
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] Erik Salaj <winsoft(zv)stonline.sk> - 22.10.2002 12:32:03
> Visual SourceSafe chodi dobre, pokial je na nom iba zopar ludi a mate ho
> na lokalnej sieti, on je totizto (teda este som iny nevidel) orientovany
> iba fajlovo a vsetky veci ktore mu date uklada do podivnych adresarov
> typu aaaaabbc a podobne, takze ziadna db (myslim ze som niekde zazrel aj
> VSS server ale funkcny som ho nevidel), no a potom staci jeden subor
neviem ako je to na serveri, ale vraj pouziva VSS, cize malo by to byt ok.
Pokial viem, tak problemom SourceSafe je, ze je to dost drahe.
> velky zopar MB a cely VSS je zahlteny, vsetci ostatny stoja... to sa nam
> stava pravidelne ... a to nehovorim o tom, ze sme ako pobocka na nejakej
> linke cca 128k tak to sa s tym neda niekedy vobec robit...
to neviem, ja MB zdrojaky nemam, ale silne pochybujem, ze sa to tak sprava.
Nic take som si nikdy nevsimol. Nechapem, preco ma niekto stat, ked ja
internetom posielam subor.
> priklonil by som sa k nejakej DB aplikacii, ale neviem ako su na tom
> free aplikacie.... predsa len db server je o niecom inom ako nejake
> zdielanie adresarov pri VSS :o)
nechapem, co tym chces povedat. Poznam x firiem, ktore v pohode
pouzivaju VSS, je to na ten ucel robene, tak nechapem, co ma byt
o niecom inom.
Erik
ORACLE problem
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.10.2002 12:49:12
s ORACLE robim ale to co chces nevie ani ORACLE, takze v ORACLE sa take
nieco robi vyskladanim stringu kde mas cely select teda napriklad
my_select:='select ..... IN ('+xx1+','+......... a potom sa priradi k
bloku kde sa da Execute_query, alebo pre Delphi priradis to nejakej
komponente... inak neviem
joka
-----Original Message-----
From: �tevl�k Mari�n [mailto:Marian.Stevlik(zv)merlin(tec)cz]
Sent: Friday, November 22, 2002 11:33 AM
To: Konf Delphi (el. adresa)
Subject: OT: ORACLE problem
Hi all,
Mam otazku na ORACLE specialistov v tejto konfere (pevne verim ze sa
nejaky
najdu)
Mam tabulku ClientGroup v kt. su uvedeny skupiny klientov, pricom
skupina
moze byt definovana ako vymenovana (potom sa ID klientov nachdazju v
tabulke
ClientGroupDetail (previazanej cez IDClientGroup), alebo cez VARCHAR2
Field
s v kt. je definova Where klausula napr: ' AND IDClient IS NOT NULL'
No a potrebujem urobit univerzalnu funkciu, kt. mi najekym sposobom
vrati
zoznam IDClient podla zadanej IDClientGroup (t.j. FUNCTION
GetIDClientsFromClientGroup(anIDClientGroup: NUMBER) RETURN ...) a aby
sa
tato fcia dala pouzit priamo v selecte t.j.
Select ... From ... Where IDClient IN GetIDClientsFromClientGroup(...)
Zatial sa mi podarilo vytvorit tu fciu tak, ze mi vracia cursor
obsahujuci
IDClient ale tuto fciu nemozem zavolat za IN
Viete mi poradit ako nato?
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 241010111 (181)
fax: +420 241010165
icq: 38493645
__________ Informacia od NOD32 1.331 (20021121) __________
Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.eset.sk
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.10.2002 12:53:00
> priklonil by som sa k nejakej DB aplikacii, ale neviem ako su na tom
> free aplikacie.... predsa len db server je o niecom inom ako nejake
> zdielanie adresarov pri VSS :o)
nechapem, co tym chces povedat. Poznam x firiem, ktore v pohode
pouzivaju VSS, je to na ten ucel robene, tak nechapem, co ma byt
o niecom inom.
apropo som zabudol povedat je je tam niekolko desiatok uzivatelov cca
niekedy aj do 100... a potom sa to naozaj tak chova, my (firma)
zvazujeme preist na nieco ine, ale nemam to v kompetencii, len som pocul
nieco o ClearCase alebo tak nejak...
kolko maju tie firmy na tom zavesenych uzivatelov ?
Re[2]: FreeCVS, jak to pouzit pokud kazdy z tymu s
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 22.10.2002 12:55:57
Cau Erik,
Friday, November 22, 2002, 12:32:03 PM, you wrote:
>> Visual SourceSafe chodi dobre, pokial je na nom iba zopar ludi a mate ho
>> na lokalnej sieti, on je totizto (teda este som iny nevidel) orientovany
>> iba fajlovo a vsetky veci ktore mu date uklada do podivnych adresarov
>> typu aaaaabbc a podobne, takze ziadna db (myslim ze som niekde zazrel aj
>> VSS server ale funkcny som ho nevidel), no a potom staci jeden subor
> neviem ako je to na serveri, ale vraj pouziva VSS, cize malo by to byt ok.
> Pokial viem, tak problemom SourceSafe je, ze je to dost drahe.
My taky pozivame VSS ale pro vzdalene pripojeni je to k nicemu. Navic
jsem zhanel neco co by umoznilo bezpecny prenost dat (sdilene slozky
nejsou moc bezpecne) a nasel jse reseni se sifrovanym prenosem za
1995$
>> velky zopar MB a cely VSS je zahlteny, vsetci ostatny stoja... to sa nam
>> stava pravidelne ... a to nehovorim o tom, ze sme ako pobocka na nejakej
>> linke cca 128k tak to sa s tym neda niekedy vobec robit...
> to neviem, ja MB zdrojaky nemam, ale silne pochybujem, ze sa to tak sprava.
> Nic take som si nikdy nevsimol. Nechapem, preco ma niekto stat, ked ja
> internetom posielam subor.
>> priklonil by som sa k nejakej DB aplikacii, ale neviem ako su na tom
>> free aplikacie.... predsa len db server je o niecom inom ako nejake
>> zdielanie adresarov pri VSS :o)
> nechapem, co tym chces povedat. Poznam x firiem, ktore v pohode
> pouzivaju VSS, je to na ten ucel robene, tak nechapem, co ma byt
> o niecom inom.
> Erik
S pozdravem
Milan Vymazal
Spatny Recordcount (Firebird)
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2002 12:55:14
> Odes�latel: Valenta P <valentapat(zv)volny(tec)cz>
> Zdravim, chci se zetpat, (Firebird)
> cim muze byt dano ze "select * from table" mi vrati jen jeden zaznam,
> pricemz evidentne vim ze jich ma byt vic.
No, pokud ti rozumim:
RecordCount je neco jineho nez select count(*) from table, tedy alespon u SQL databazi.
Na Query.RecordCount se muzes spolehnout az v tom okamziku, kdyz na klienta "pritecou" vsechny zaznamy.
To neni hned po otevreni (Query.Open).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Spatny Recordcount (Firebird)
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 22.10.2002 12:55:58
to je jednoducheee....FB alokuje jen prvni zaznam...musel by jsi volat
fetchall,nebo tak nejak...taky uz mi to tu nekdo rekl...
pokud se hrabes radky delej to pomoci next a while not EOF..tak to delam
jaaa
> cim muze byt dano ze "select * from table" mi vrati jen jeden zaznam,
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
ORACLE problem
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 22.10.2002 13:11:24
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> No a potrebujem urobit univerzalnu funkciu, kt. mi najekym sposobom vrati
> zoznam IDClient podla zadanej IDClientGroup (t.j. FUNCTION
> GetIDClientsFromClientGroup(anIDClientGroup: NUMBER) RETURN ...) a aby sa
> tato fcia dala pouzit priamo v selecte t.j.
> Select ... From ... Where IDClient IN GetIDClientsFromClientGroup(...)
> Zatial sa mi podarilo vytvorit tu fciu tak, ze mi vracia cursor obsahujuci
> IDClient ale tuto fciu nemozem zavolat za IN
A nejde napisat nasledovne?
Select ... From ... Where ID Client IN ( select IDClientNeboCo from
GetIDClientsFromClientGroup(...) )
alebo tu fciu prijoinovat?
Kakacka Pavol
KasiX(zv)atlas(tec)cz
TJCLEmail
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 22.10.2002 13:11:34
Ahoj,
> pvones(zv)mbox.vol(tec)cz 21.11.02 23:23 >>>
>Tezko, Simple MAPI je velmi jednoduche rozhrani, problem bude spis v jeho
>implementaci tim klientem. Zkus prilohy zadat s plnou cestou.
tak jsem si to zkusil porovnat....
poslal jsem pomoci TJCLEmail a potom z Outlooku soubor TXT a EXE
prislo to jako...
<TJCLEmail>
TXT i EXE
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64
</TJCLEmail>
<Outlook 2k>
TXT
Content-Type: text/plain;name="SouborTXT.txt"
Content-Transfer-Encoding: quoted-printable
EXE
Content-Type: application/octet-stream;name="SouborEXE.exe"
Content-Transfer-Encoding: base64
</Outlook 2k>
Zrejme spatne asociuje priponu toho souboru...
proc to MAPI posila s timto typem " application/ms-tnef " " Transport Neutral Encapsulation Format "
v registrech na klientovi ani na masine, kde bezi MS Exchange, takovy typ nejni, tak odkud si to MAPI bere ?
jak docilit toho, aby to spravne asociovalo prilohy?
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Testovani Terminated
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 22.10.2002 13:16:07
Ahoj,
muze konstrukce
procedure TImportThread.Execute;
...
while not(Terminated) do
ProcessData((zv)Terminated);
end;
...
procedure ProcessData(Terminated : ^boolean);
...
while not(Terminated^) do
...
end;
...
zpusobit nejake problemy ? Na stole to funguje, ale potrebuji to mit na DB
serveru 7x24...
Potrebuji co nejrychleji zpracovat promenlive mnozstvi vstupnich dat a
soucasne potrebuji mit moznost rychle ukoncit aplikaci (je to sluzba -
reakce na shutdown), kvuli rezii vytvareni datovych objektu nechci opoustet
proceduru ProcessData, driv nez je vsechno hotovo (jen pripade ukonceni
threadu). Procedura je pouzivana jedinym vlaknem.
Diky za nazory.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Spatny Recordcount (Firebird)
[*] Valenta P <valentapat(zv)volny(tec)cz> - 22.10.2002 13:25:17
Bylo ukazano na takovem jednoduchem selectu ....
jasne ten select vrati X zaznamu, a funkce RecordCount mi vrati = 1
Takze tento mail je pro me dulezity, diky moc.
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
..... jen tehdy,
> byly-li jiz na klienta dotazeny vsechny zaznamy. Tj. po volani Last,
> FetchAll apod. Dokud tam nejsou vsechny ukazuje RecordCount jen
> pocet vet, ktere si klient dosud vyzadal. Coz na zacatku je jedna
> veta.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Lokalizace- DLL wizard
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 22.10.2002 13:25:38
Cau lidi,
asi budu mit zacatecnickej dotaz. Podle helpu D5 jsem zkousel udelat
testovaci vicejazcnou(CZ+DEU) aplikacku. Dll wizardem jsem se prokousal, pak
to skoci do Translation manageru, kde jsou obe verze programu. Ruco jsem
prepsal potrebne captiony v DEU verzi. Je to desna pakarna, takze je mi
jasny ze tudy cesta nevede.
Tak jsem zkousel udelat rc file se stringama co se budou dosazovat do
Captionu a Hintu a udelat z nej res, to se povedlo bez problemu
//
STRINGTABLE DISCARDABLE
{
// main menu items
11000 "Datei"
11001 "Oefnen"
11002 "Schliessen"
// Button captions
12000 "Das Angebot"
}
Chtel bych se tedy zeptat jak udelat, abych tenhle resource napasoval na
moji aplikaci, tedy aby se jen doplnilo do Caption a Hintu komponent to co
je v resource.
predem dik pavel
IDE D5 a krokovani projektu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 22.10.2002 13:27:10
----- Original Message -----
From: "Sl�va" <sliva(zv)csh(tec)cz>
> snazim se spustit a krokovat projekt v D5, ale nelze to, hlasi mi chybu
> "Debugger Kernel BORDBK50.DLL is missing or not registered " nespusti se mi
> vubec projekt(dale zminena volba je zaskrtla) . Po te co nazaskrtnu volbu
> "Integrated debugging" v Tools/Debugger Options, lze projekt z prostredi D5
> aspon spustit (chybova hlaska se jiz neobjevi) ale nelze krokovat projekt.
Ladit pod uctem ktery je ve skupine Administrators?
Martin Schayna
OT: FoxPro6 na IB6
[*] Roland Turcan <rolo(zv)sedas.sk> - 22.10.2002 13:29:25
<<< 22. 11. 2002 13:28 - Dalibor "dalibor(zv)torola(tec)cz" >>>
D> muzete mi nekdo rict, jestli se dostanu z FoxPro6 na Interbase6?
Predpokladam, ze to bude cez ODBC, pozri na www.ibphoenix.com
--
Best regards, TRoland
Dve zalohy
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.10.2002 13:52:05
Ahoj,
mate nekdo nejake zkusenosti s tim, co se stane, kdyz prave
probiha zalohovani databaze FireBird a nekdo v te dobe rovnez
zkusi provest zalohu? Muzou se vubec potkat dva procesy zalohy?
Diky
David Lebeda
Re[2]: FB/IB a BLOB
[*] Martin Falta <martin(zv)aprog(tec)cz> - 22.10.2002 13:57:36
JU> nepises co presne potrebujes.
potrebuju do BLOBu ulozit nejaky textovy soubory a nekolik typovych
souboru.
JU> Napr. obrazek muzes vlozit takto:
JU> IBStoredProc.Params.CreateParam(ftBLOB,'OBR',ptInput);
JU> IBStoredProc.Params.ParamByName('OBR').LoadFromFile(sPathToPicture,ftBlob);
jak to napsat v Delphi vim. Spis bych potreboval nejakej priklad te
ulozene procedury.
Martin mailto:martin(zv)aprog(tec)cz
OT: FREEEXCEL SYLK 1.08.beta
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 22.10.2002 14:04:15
Nezmar David Lebeda op�t se op�t probudil a opravil trochu na�I unitu
FreeExcelSylk 1.08beta
pro export do excelu bez excelu pomoci symbol linking (sylk)....
m��ete si ji op�t st�hnout na http://Talpa.chytrak(tec)cz
pokud budete chtit byt pravidelne informovani o vyvoji unity ozvete se mi!!!
************************************************************
FREEEXCEL SYLK 1.08.beta rann� vyd�n� Davida Lebedy
Zm�ny (op�t pod taktovkou Davida Lebedy, d�kujeme za �pravy):
* Zrychlen export vytvo�en�m TEMP souboru p�i vytv��en� exportovan�ho
souboru
* ���ka sloupce koncep�n� �prava dle chodu unity
Oprava chyb:
* O�et�ena chyba MS WORD ve funkci �et�zec,objevuj�c� se p�i zad�n�
hodnoty ";" **************************************************************
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Dve zalohy
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 22.10.2002 14:06:12
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> mate nekdo nejake zkusenosti s tim, co se stane, kdyz prave
> probiha zalohovani databaze FireBird a nekdo v te dobe rovnez
> zkusi provest zalohu? Muzou se vubec potkat dva procesy zalohy?
Nestane sa vobec nic. Jedna z nich bude aktualnejsia :) Akurat nesmu
zapisovat do toho isteho suboru.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Re[2]: FB/IB a BLOB
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2002 14:07:24
> JU> nepises co presne potrebujes.
> potrebuju do BLOBu ulozit nejaky textovy soubory a nekolik typovych
> souboru.
>
> JU> Napr. obrazek muzes vlozit takto:
> JU> IBStoredProc.Params.CreateParam(ftBLOB,'OBR',ptInput);
> JU>
IBStoredProc.Params.ParamByName('OBR').LoadFromFile(sPathToPicture,ftBlob);
> jak to napsat v Delphi vim. Spis bych potreboval nejakej priklad te
> ulozene procedury.
create procedure ulozblob (neco blob)
as
begin
insert into tabulka_s_blobem (pole_blob) values (:neco);
end
Roman
==============================
http://kouzelne.misto(tec)cz
Velkost suborov
[*] Dusan Nagy <Nagy(zv)inomacomp.sk> - 22.10.2002 14:28:53
Dobr� den,
Ako najrychlejsie zistim velkost disku a ked mam vela suborov
ich celkovu velkost.
Nema niekto priklad ako vypocitat velkost
adresara z mnozstvom suborov?
--
Nagy(zv)inomacomp.sk
Cekani na ukonceni aplikace - Outlook Express
[*] Marek Eichler <marek.eichler(zv)seznam(tec)cz> - 22.10.2002 14:35:29
Zdravim,
> Nevim jak outlook spoustis, predpokladam ze jako CreateOLEObject....
> Mel sem stejny problem. Nedela to pokud promena do ktere priradis
interface
> toho Outlooku
> (ja to daval do Variant) je jen lokalni (napr. jen v nejake funkce) Mam-li
> ji jako property
> tridy outlook se sice vypne ale TaskManager ho porad ukazuje....
>
> Staci vsak jednoducha pomoc, priradit jinou hodnotu do Variantu, ktery
> odkazuje na ten interface: napr.
>
> Outl:=CreateOLEObject('Outlook.Application');
> Outl.Quit;
> Outl:=0;
**** V puvodnim dotazu se pise Outlook Express a ten rozhodne nepodporuje
OLE Automation, takze tento postup bohuzel nefunguje
S pozdravem Marek Eichler
Ziskat obrazok zo scanera alebo web camenry
[*] Roman Newman <r.newman(zv)zmail.sk> - 22.10.2002 14:43:46
Zdravim vsetkych
Neviete my poradit ci sa da v delphi ziskat obrazov zo scanera, ale tak aby
sa nespustal obsluzni program ku scaneru (zavolat nejaku funkciu ktora
naskenuje nahlad, a nejaku inu ktora nascenuje vybrani region vo vybranom
rozliseni), resp. nieco co stiahne aktualny obrazok snimany web camerov.
Roman Newman
Lokalizace- DLL wizard
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.10.2002 14:47:45
On 22 Nov 2002 at 13:25, Vagner Pavel wrote:
> Cau lidi,
> asi budu mit zacatecnickej dotaz. Podle helpu D5 jsem zkousel udelat
> testovaci vicejazcnou(CZ+DEU) aplikacku. Dll wizardem jsem se
> prokousal, pak to skoci do Translation manageru, kde jsou obe verze
> programu. Ruco jsem prepsal potrebne captiony v DEU verzi. Je to desna
> pakarna, takze je mi jasny ze tudy cesta nevede.
>
> Tak jsem zkousel udelat rc file se stringama co se budou dosazovat do
> Captionu a Hintu a udelat z nej res, to se povedlo bez problemu
>
> //
> STRINGTABLE DISCARDABLE
> {
> }
>
> Chtel bych se tedy zeptat jak udelat, abych tenhle resource napasoval
> na moji aplikaci, tedy aby se jen doplnilo do Caption a Hintu
> komponent to co je v resource.
Opet prasarnou. Musis v OnCreate tahat retezce z resourcu, myslim, ze
je na to funkce LoadString, nebo neco takoveho.
Tlacitko.Caption := LoadString(11000);
Nebo lokalizuj az hotovy exac.
S pozdravem
Zbysek Hlinka
Cekani na ukonceni aplikace - Outlook Express
[*] Petr Langer <langer(zv)xdom(tec)cz> - 22.10.2002 15:28:20
Ahojte,
ano, jedna se opravdu o OE a spoustim ho pomoci CreateProcess primo z jeho
adresare.
pl
----- Original Message -----
From: "Marek Eichler" <marek.eichler(zv)seznam(tec)cz>> Zdravim,
>
> > Staci vsak jednoducha pomoc, priradit jinou hodnotu do Variantu, ktery
> > odkazuje na ten interface: napr.
> >
> > Outl:=CreateOLEObject('Outlook.Application');
> > Outl.Quit;
> > Outl:=0;
>
> **** V puvodnim dotazu se pise Outlook Express a ten rozhodne nepodporuje
> OLE Automation, takze tento postup bohuzel nefunguje
>
> S pozdravem Marek Eichler
>
>
>Spravny VGA driver pro Delphi
[*] Petr Fojt�k <fof(zv)foresta(tec)cz> - 22.10.2002 15:50:47
Dobry den, nepouzivate nekdo na Windows2000 VGA kartu
"3D Prophet 4500 TV OUT", 32MB od firmy Hercules ?
Nemuzu s ni rozchodit svoje Delphi4, mam rozbite ikony.
Zatim se mi nepodarilo najit driver, ktery je nekazi.
Dekuji za radu.
`````````````````````````````````````````````````````````````
Petr Fojt�k, fof(zv)foresta(tec)cz
Export z QR do RTF,DOC apod...
[*] Lukas Horky <LukasHorkyDF(zv)seznam(tec)cz> - 22.10.2002 15:51:40
Dne 22.�listopad�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
Diky, ale nemate nekdo ptrosim tip na nejakej trebai podomacku
vyrobenej fltr do rtf, nebo popr. na na nejakej free generator
sestav.
Moc se mi nechce kvuli jednomu detailu kupovat QR Prof.
Diky za pomoc Lukas
______________________________________________________________________
Reklama:
Ak�n� nab�dka Volkswagen Polo nyn� na Volkswagen Leasing s nulov�m nav��en�m a akontac� ji� od 30%. http://ad2.seznam(tec)cz/redir.cgi?instance=37505%26url=http://www.volkswagen(tec)cz/podzimnifascinace
Export z QR do RTF,DOC apod...
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.10.2002 15:57:23
>Diky, ale nemate nekdo ptrosim tip na nejakej trebai podomacku
>vyrobenej fltr do rtf, nebo popr. na na nejakej free generator
>sestav.
>Moc se mi nechce kvuli jednomu detailu kupovat QR Prof.
No, koneckoncu, RTF si muzes vytvorit i sam. Specifikace RTF uz tu kdysi
probehla, na internetu ji urcite najdes a kdyby ne, tak ti ji muzu poslat.
Roman
==============================
http://kouzelne.misto(tec)cz
Testovani Terminated
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2002 16:36:19
> Odes�latel: Jiri Foldyna <jiri.f(zv)avizo(tec)cz>
> muze konstrukce
> zpusobit nejake problemy ? Na stole to funguje, ale potrebuji to mit na DB
> serveru 7x24...
Nevim, nevim, ale me se to vnorene "while" zda zbytecne.
Pokud by "ProcessData" (bez parametru) proste provedlo totez, co to vnitrni "while", tak to snad vyjde na stejno.
Navic "Terminated" je property a pointer na property ??? Odkud vim, ze tam neni nejaka "read property" funkce? Samoz�ejm�, ze zdrojaku, ale preci jenom...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
> procedure TImportThread.Execute;
> ...
> while not(Terminated) do
> ProcessData((zv)Terminated);
> end;
> ...
>
> procedure ProcessData(Terminated : ^boolean);
> ...
> while not(Terminated^) do
> ...
> end;
> ...
>
>
> Potrebuji co nejrychleji zpracovat promenlive mnozstvi vstupnich dat a
> soucasne potrebuji mit moznost rychle ukoncit aplikaci (je to sluzba -
> reakce na shutdown), kvuli rezii vytvareni datovych objektu nechci opoustet
> proceduru ProcessData, driv nez je vsechno hotovo (jen pripade ukonceni
> threadu). Procedura je pouzivana jedinym vlaknem.
>
> Diky za nazory.
>
> Zdravim
>
> Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
FreeCVS, jak to pouzit pokud kazdy z tymu sedi na
[*] Erik Salaj <winsoft(zv)stonline.sk> - 22.10.2002 17:03:02
> apropo som zabudol povedat je je tam niekolko desiatok uzivatelov cca
> niekedy aj do 100... a potom sa to naozaj tak chova, my (firma)
> zvazujeme preist na nieco ine, ale nemam to v kompetencii, len som pocul
> nieco o ClearCase alebo tak nejak...
>
> kolko maju tie firmy na tom zavesenych uzivatelov ?
celkovo do 10 uzivatelov, sucasne zavesenych mozno polovica. Podla
mna by tam problemy nemali byt, ale mozno to naozaj nemaju dobre
urobene pre viac uzivatelov, to neviem. Zda sa mi to dost divne,
pretoze takyto software je prave vhodne pouzivat vtedy ak uzivatelov
je vela.
Erik
Export z QR do RTF,DOC apod...
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 22.10.2002 18:25:44
Ahoj,
On 22 Nov 2002 at 15:51, Lukas Horky wrote:
> Dne 22.�listopad�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
>
> Diky, ale nemate nekdo ptrosim tip na nejakej trebai podomacku
> vyrobenej fltr do rtf, nebo popr. na na nejakej free generator
> sestav.
FreeReport ma exporty od *.RTF, *.CSV, *.HTML, *.TXT
je free vcetne zdroju
http://freereport.sourceforge.net/en/
Jarek Uher
Testovani Terminated
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 22.10.2002 20:29:22
> Nevim, nevim, ale me se to vnorene "while" zda zbytecne.
> Pokud by "ProcessData" (bez parametru) proste provedlo totez,
> co to vnitrni "while", tak to snad vyjde na stejno.
> Navic "Terminated" je property a pointer na property ???
> Odkud vim, ze tam neni nejaka "read property" funkce?
> Samoz�ejm�, ze zdrojaku, ale preci jenom...
> Honza
No, ja samozrejme vim, ze je to humus :-), ale jde o to, ze procedura
ProcessData zpracovava data ze SQL serveru ze vstupni fronty (tabulka) a
potrebuje je setridene. Jde o technologickou zalezitost (mereni), kde jsou
tvrde pozadavky na odezvu. Data do vstupni fronty mohou prichazet v pomerne
velkych davkach (i desetitisice udaju), takze setridovani je casove dost
narocne. Kdybych tam nechal jen ten vnejsi while, snadno se mi muze stat, ze
prosvihnu odezvu na signal shutdown, coz by mohlo vest ke ztrate konzistence
importovanych dat. Cili jsou zde dva protichudne pozadavky - na jedno
setrideni zpracovat celou vstupni frontu a soucasne zarucit primerenou
odezvu na shutdown. Jiste by to slo udelat treba pres event, ale pokud
testovani Terminated neni nic proti nicemu...
Ted mne napadlo, ja prece muzu predat misto adresy Terminated odkaz na
instanci threadu, a testovat to jako properties, ne ? Asi takto:
procedure TImportThread.Execute;
...
while not(Terminated) do
ProcessData(Self);
end;
...
procedure ProcessData(Thread : TThread);
...
while not(Thread.Terminated) do
...
end;
...
To je ciste, ne ?
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
DelphiX
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 22.10.2002 21:25:54
Oni programy se starsimi verzemi DELPHIX nebezi pod novejsimi directy?
V.
----- Original Message -----
From: "Branislav Dimo�" <listonos(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 21, 2002 8:27 PM
Subject: Re: DelphiX
> Mam DelphiX pre Delphi6 ale nevola sa to DelphiX ale DXT a je to bez
> zdroj. suborov. Skus hladat DXT3 konkretne DXT3.zip
>
> Uz to nerobil ten Japonec ale nejaka firma ale je to to iste a myslim ze
> to podporuje aj DirectX 8
>
> >: V�en� program�to�i,
> >: Ur�it� jste ji� zde �e�ili probl�m DelphiX pro Delphi v.6. Kde bych
> >: mohl tuto komponentu stahnout, nebo mi ji pros�m n�kdo po�lete. Moc
> >: D�k
>
>
>
ico vo viac ako 16 farbach
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 23.10.2002 00:46:58
D6
Ako ulozim TImage do suboru s priponou ico, teda do ikony, s viac ako 16
farbami.
Komponenty, zdrojak....
Vdaka za kazdu radu.
Cekani na ukonceni aplikace - Outlook Express
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 23.10.2002 01:27:18
Chybicka se vloudila, to jsem prehlid :-)
----- Original Message -----
From: "Marek Eichler" <marek.eichler(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 22, 2002 2:35 PM
Subject: Re: Cekani na ukonceni aplikace - Outlook Express
> Zdravim,
>
> > Nevim jak outlook spoustis, predpokladam ze jako CreateOLEObject....
> > Mel sem stejny problem. Nedela to pokud promena do ktere priradis
> interface
> > toho Outlooku
> > (ja to daval do Variant) je jen lokalni (napr. jen v nejake funkce)
Mam-li
> > ji jako property
> > tridy outlook se sice vypne ale TaskManager ho porad ukazuje....
> >
> > Staci vsak jednoducha pomoc, priradit jinou hodnotu do Variantu, ktery
> > odkazuje na ten interface: napr.
> >
> > Outl:=CreateOLEObject('Outlook.Application');
> > Outl.Quit;
> > Outl:=0;
>
> **** V puvodnim dotazu se pise Outlook Express a ten rozhodne nepodporuje
> OLE Automation, takze tento postup bohuzel nefunguje
>
> S pozdravem Marek Eichler
>
>
Delphi .NET preview update s VCL.NET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.2002 03:03:30
Najdete tady (pod Registered Users - Updates, Delphi 7):
http://www.borland.com/products/downloads/download_delphi.html
Vloudila se tam mensi chybicka, v unitu Borland.Vcl.Forms je treba v metode
TApplication.Idle na konci zakomentovat radek "Done := False;", protoze ani
jedna z predchozich IF podminek neni pro CLR switch splnena. Pak staci jen
spustit rebuild.bat
Petr Vones
Prevod cisel
[*] Jan �imeck� - 23.10.2002 09:57:46
Dobry den,
mam takovy dotaz, a to jak se daji cisla typu integer prevest na setnastkove
a pak na string a naopak (v promene typu string mam sestnastkove a to chcu
prevest na normalni integer).
Predem dekuji za vasi odpoved.
S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.394 / Virov� b�ze: 224 - datum vyd�n�: 3.10.2002
Prevod cisel
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 23.10.2002 11:38:46
i := StrToIntDef('$' + 'ABCD', -1); hexa string na integer
i := StrToInt('$' + 'ABCD'); hexa string na integer
s := IntToHex(1234, 4); integer na hexa string
vice viz help
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> mam takovy dotaz, a to jak se daji cisla typu integer prevest
> na setnastkove
> a pak na string a naopak (v promene typu string mam
> sestnastkove a to chcu
> prevest na normalni integer).
Prevod cisel
[*] tomsir1.edu(zv)mail.cez(tec)cz - 23.10.2002 11:46:01
1/ decimalni na hexadecimalni : fce IntToHex - vraci string, zkus
ShowMessage('$'+IntToHex(16,2));
2/ hexadecimalni na decimalni: v podstate staci, kdyz prevedes
hexadecimalni zapis ze stringu na tvar $xx a potom to cislo dal pouzijes
bez onoho $ a pracujes s nim jako s decimalnim ...
zkus toto :
var x : integer;
s : string;
begin
s:= '10'; //hexadecimalni vyjadreni cisla v promenne string
s := '$' + s; //prevedeme na tvar pouzity pro hexadecimalni vyjadreni cisla
showmessage('hexa :'+s);
x := StrToInt(s); // -- prevod ze stringu na integer
showmessage('decimal : '+IntToStr(x));
end;
Snad je to odpoved na tve dotazy ...
Radek
"Jan �imeck�" <jsimecky(zv)zskuldova(tec)cz>(zv)clexpert(tec)cz on 23.11.2002 09:57:46
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Prevod cisel
Dobry den,
mam takovy dotaz, a to jak se daji cisla typu integer prevest na
setnastkove
a pak na string a naopak (v promene typu string mam sestnastkove a to chcu
prevest na normalni integer).
Predem dekuji za vasi odpoved.
S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.394 / Virov� b�ze: 224 - datum vyd�n�: 3.10.2002
DelphiX
[*] Slafco <skippo(zv)post.sk> - 23.10.2002 15:08:41
musis prepisat stary balicek pre delphi5(directx7 - od toho japonca:).... problem je v tom ze niektore assemblerovske veci sa inak zapisuju v delphi6 ako v delphi5. ja som to tak prepisal a funguje mi to v pohode.
inac komponenty pre directx8 by som si aj ja rad pozrel...
> Oni programy se starsimi verzemi DELPHIX
> nebezi pod novejsimi directy?
> V.
>
> ----- Original Message -----
> From: "Branislav Dimo�" <listonos(zv)stonline.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, November 21, 2002 8:27 PM
> Subject: Re: DelphiX
>
>
> > Mam DelphiX pre Delphi6 ale nevola sa to
> DelphiX ale DXT a je to bez
> > zdroj. suborov. Skus hladat DXT3 konkretne
> DXT3.zip
> >
> > Uz to nerobil ten Japonec ale nejaka firma
> ale je to to iste a myslim ze
> > to podporuje aj DirectX 8
> >
> > >: V�en� program�to�i,
> > >: Ur�it� jste ji� zde �e�ili probl�m
> DelphiX pro Delphi v.6. Kde bych
> > >: mohl tuto komponentu stahnout, nebo mi ji
> pros�m n�kdo po�lete. Moc
> > >: D�k
> >
> >
> >
>
________
Pocitacove hry? http://hry.sme.sk
Ziskat obrazok zo scanera alebo web camenry
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.10.2002 20:27:19
<<< 23. 11. 2002 20:25 - Roman Newman "r.newman(zv)zmail.sk" >>>
RN> Neviete my poradit ci sa da v delphi ziskat obrazov zo scanera, ale tak aby
RN> sa nespustal obsluzni program ku scaneru (zavolat nejaku funkciu ktora
RN> naskenuje nahlad, a nejaku inu ktora nascenuje vybrani region vo vybranom
RN> rozliseni), resp. nieco co stiahne aktualny obrazok snimany web camerov.
Kniznica SineaVCL ma komponentu na TWAIN rozhranie (TScanerSinea), ale nemam ziadne
skusenosti s tym, len o tom viem.
Pozri na www.sinea(tec)cz
--
Best regards, TRoland
Ziskat obrazok zo scanera alebo web camenry
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 24.10.2002 00:30:21
> From: Roland Turcan
>
> RN> Neviete my poradit ci sa da v delphi ziskat obrazov zo
> scanera, ale tak aby
> RN> sa nespustal obsluzni program ku scaneru (zavolat nejaku
> funkciu ktora
> RN> naskenuje nahlad, a nejaku inu ktora nascenuje vybrani
> region vo vybranom
> RN> rozliseni), resp. nieco co stiahne aktualny obrazok
> snimany web camerov.
>
> Kniznica SineaVCL ma komponentu na TWAIN rozhranie
> (TScanerSinea), ale nemam ziadne
> skusenosti s tym, len o tom viem.
> Pozri na www.sinea(tec)cz
TScanerSinea pouziva klasicke TWAIN rozhrani,
tedy vola obsluzny program zarizeni.
Neumi primy pristup na zarizeni bez volani
obsluzneho programu.
Vaclav Krmela
Delphi a CVS - dost to hori ... pls
[*] Ivan Turcan <iturcan(zv)drake.sk> - 24.10.2002 08:56:28
Ahoj kolegovci,
potreboval by som integrovat do jednej firmy CVS do delphi. Problem je v tom
ze musi splnat urcite minimalne poziadavky:
- vlozenie do menu Delphi
- jeden textovy repozitar na UNIXe ( pripadne na vzdialenom PC ) pre vsetky
projekty
- rozdelenie UNITov po projektov, aby nevadili rovnake nazvy
- lockovanie, uvolnovanie a atd ...
najlepsie by bolo mozno potom aj daky konenkt link na Inet ...
Prosim dajte mi vediet o niecom co by splnalo tieto poziadavky, dost to
ponahla.
Dakujem vsetkym
Ivan
ako zatvorit aplikaciu....
[*] Slafco <skippo(zv)post.sk> - 24.10.2002 14:54:55
ahojte potreboval by som aby pri pokuse o zatvorenie mojej app sa uzivatelovi vypisalo nieco v zmysle : skutocne chces skoncit? ano/nie
problem je v tom ze neviem docielit to aby pri volani onclose sa pri nejakej podmienke aplikacia neukoncila.
diky za nejaky papad.
S.
________
Pocitacove hry? http://hry.sme.sk
ako zatvorit aplikaciu....
[*] Petr Varga <djvar(zv)post(tec)cz> - 24.10.2002 15:39:47
----- Original Message -----
From: "Slafco" <skippo(zv)post.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Subject: ako zatvorit aplikaciu....> ahojte potreboval by som aby pri pokuse o zatvorenie mojej app sa
uzivatelovi vypisalo nieco v zmysle : skutocne chces skoncit?
ano/nie > problem je v tom ze neviem docielit to aby pri volani
onclose sa pri nejakej podmienke aplikacia neukoncila.
> diky za nejaky papad.
> S.
No to je lep�� pou��t ud�lost OnCloseQuery formula�e a nastaven�
parametru CanClose na False se aplikace nezav�e....
--
---
Zaj�mav� reklamn� produkty, v�hodn� cena, c�len� na u�ivatele
...http://reklama.volny(tec)cz
ako zatvorit aplikaciu..
[*] Slafco <skippo(zv)post.sk> - 24.10.2002 19:48:19
no dostal som do uzkych... pri zatvarani MDI app prejdem vsetky childokna a zatvorim ich, pricom v kazdom childwindow-onqueryclose sa pytam ci ulozit - ano,ne,cancel. Problem je v tom ze delphi po kliknuti na X v mainform najprv zavola u vsetkych childokien onqueryclose a potom mainform-onclose -> spravuje moj cyklus - teda onqueryclose sa vlastne vola u kazdeho child okna dva-krat. neviete ako zrusit alebo obist to prve automaticke volanie?? dik
________
Pocitacove hry? http://hry.sme.sk
StayOnTop
[*] J�n Harman <harman(zv)atlas(tec)cz> - 24.10.2002 22:19:06
Zdravim Vas,
Zajimave: zavolam form1.ShowModal a v nem otevru dalsi form2 s FormStyle
fsSatyOnTop. form2 se sice zobrazi, ale pokud se zamerim na form1, tak form2
se pod neho schova, ikdyz je StayOnTop. To bude zrejme tim ze je rodicovske
okno Modalni, tudiz bude zrejme taky StayOnTop, da se to nejak obejit?
Dekuji. Honza.
Komunikace client-server
[*] S-m-i-s-e-k <s-m-i-s-e-k(zv)seznam(tec)cz> - 24.10.2002 23:13:35
Dobry vecer,
jsem v Delphi zacatecnikem a mam mensi otazecku:
Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
Diky moc
Smisek
s-m-i-s-e-k(zv)seznam(tec)cz
Zmena stisknute klavesy v komponente
[*] MJsoft <delphi(zv)mjsoft(tec)cz> - 24.10.2002 23:35:30
Ahoj,
potreboval bych v komponente odchytit stisknutou klavesu a pokud se jedna
o sipku nahoru, tak aby to dale vypadalo jako SHIFT+TAB. Nevite jak toho
docilit. TAB me nedela problemy, delam to takto:
type
TDBJEdit = class(TDBEdit)
private
.
.
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
.
.
end;
procedure TDBJEdit.CNKeyDown(var Message: TWMKeyDown);
begin
if Message.CharCode=VK_UP then
Message.CharCode := VK_TAB;
inherited;
end; Jenom nevim jak tam dostat ten SHIFT. Za pripadne odpovedi predem dekuji.
S pozdravem
Karel
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
Zmena stisknute klavesy v komponente
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 25.10.2002 03:48:27
Taky to jde takhle:
procedure TKDBEdit.KeyDown(var Key: Word; Shift: TShiftState);
var
FEditTemp : TCustomForm;
begin
if (Key = VK_DOWN) then
begin
FEditTemp := GetParentForm(Self);
SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
{parametr '0' za WM_NEXTDLGCTL znamen� FocusControll na n�sleduj�c�}
Key := 0;
exit;
end;
if (Key = VK_UP) then
begin
FEditTemp := GetParentForm(Self);
SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 1, 0);
{parametr '1' za WM_NEXTDLGCTL znamen� FocusControll na p�edchoz�}
Key := 0;
exit;
end;
inherited KeyDown(Key,Shift);
end;
POZOR na DBCtrlGrid, zde se pohyb pomoci sipek programuje jinak ... myslim
tim pohyb uvnitr DBCtrlGrid a to mzi jednotlivymi DBEdit
Jinak original najdes na http://www.kopr(tec)cz/delphi,
----- Pavel ZIDEK -----
>
> potreboval bych v komponente odchytit stisknutou klavesu a pokud se
jedna
> o sipku nahoru, tak aby to dale vypadalo jako SHIFT+TAB. Nevite jak toho
> docilit. TAB me nedela problemy, delam to takto:
>
Nedokreslovani TreeView
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 25.10.2002 06:23:08
Heureka,
vyreseno. Na stejnem formu jsem mel komponentu TMainMenu se dvema
podpolozkami, ktere jsem delsi dobu nevyuzival (disabled).Z nejakeho hnuti
mysli, vyvolaneho nesjpis podzimnim nedostatkem osluneni jsem v ramci
"uklidu" ve zdrojaku
unity deklaraci techto podpolozek vymazal (ale ne pres editor
TMainMenu).Kompilator kupodivu neprotestoval, PC s W2k a WXP vykreslovaly
normalne, pouze starsi PC s W9x nedokreslovaly TreeView. Jako vyjimka
potvrzujici pravidlo se uplatnil prehistoricky notebook s W95 ktery i tuto
mou skolackou chybu velkoryse prehledl a vykresloval OK.
Jsou to veci co?
Zdravi Jirka
Base64 - Decoder
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 25.10.2002 07:50:15
Zdravim,
prevedl jsem si retezec pomoci Base64Encoder.
Mam problem - nevim jak ziskat puvodni retezec. Z napovedy jsem vycetl, ze si musim
vytvorit objek typu TBase64Decoder, ale co dal jsem uz z napovedy nepochopil.
Muzete me nekdo "silne" :o)) nakopnout?
Diky
Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
http://audioexpert(tec)cz / http://videoexpert(tec)cz / http://fotoexpert(tec)cz
...experti nejenom prodavaji :-)
IB/FB - refresh
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 25.10.2002 07:56:29
Ahoj,
mam databazi, transakci, query, ve kterym jsem si udelal select nad tabulkou.
Jak zajistim, aby uzivatele meli vzdy aktualni data?(napr. nekdo udelal update,
insert, delete)
Zatim to resim tak, ze jsem si udelal triger, ktery mi posle event, ze doslo
k nejake zmene a program pak provede close query a znovu ho otevre.
Je to spravne?
Jde mi o to, ze kdyz bude uzivatel na zaznamu napr. 20000, provede se znovu select
a pak ho musim znovu vratit na zaznam, na kterym byl. Jenze to znamena, ze bude muset
cekat, az se mu min. vsech 20000 zaznamu znovu nacte a to je brutalni.
Jak to resite vy?
Diky za napady.
Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Kliknete, hlasujte a vyhrajte v ankete Nejoblibenej�i automobil roku 2003 v Ceske republice ceny za milion!! http://www.autoroku(tec)cz
Spatny Recordcount (Firebird)
[*] Jan Fiala [work] <delphi(zv)kvasar(tec)cz> - 25.10.2002 08:22:01
jeden zaznam mi vracel MSSQL, kdyz na tabulce nebyl primarni klic. pridanim
primarniho klice uz vracel spravny pocet zaznamu. mozna to bude stejne i na
firebird
Honza Fiala
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Valenta P
Sent: Friday, November 22, 2002 1:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Spatny Recordcount (Firebird)
Bylo ukazano na takovem jednoduchem selectu ....
jasne ten select vrati X zaznamu, a funkce RecordCount mi vrati = 1
Takze tento mail je pro me dulezity, diky moc.
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
..... jen tehdy,
> byly-li jiz na klienta dotazeny vsechny zaznamy. Tj. po volani Last,
> FetchAll apod. Dokud tam nejsou vsechny ukazuje RecordCount jen
> pocet vet, ktere si klient dosud vyzadal. Coz na zacatku je jedna
> veta.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
IB/FB - refresh
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.10.2002 08:35:39
> mam databazi, transakci, query, ve kterym jsem si udelal select nad
> tabulkou. Jak zajistim, aby uzivatele meli vzdy aktualni data?(napr.
> nekdo udelal update, insert, delete) Zatim to resim tak, ze jsem si
> udelal triger, ktery mi posle event, ze doslo k nejake zmene a program
> pak provede close query a znovu ho otevre. Je to spravne? Jde mi o to,
> ze kdyz bude uzivatel na zaznamu napr. 20000, provede se znovu select
> a pak ho musim znovu vratit na zaznam, na kterym byl. Jenze to
> znamena, ze bude muset cekat, az se mu min. vsech 20000 zaznamu znovu
> nacte a to je brutalni.
Ahoj,
jinak to nejde. To je princip SQL databaze - SQL prikaz select ti vrati mnozinu dat
platnou v okamziku jeho provedeni. Chces-li aktualni stav, musis si znovu pozadat
prikazem select.
Prace s DBGridem teto filosofii bohuzel prilis neodpovida. Takze bud to budes delat
tak, jak pises, pripadne ve vylepsene podobe (refreshe na pozadi v threadu apod., co
by Te tak mohlo napadnout, i kdyz je treba to delat opatrne, aby se uzivateli nahle
data nemenila pod rukou), nebo nezbyva nez se snazit, abys najednou nepotreboval
tolik zaznamu (nevim, jestli to jde - napr. nepouzivat grid nebo pouzivat omezeni
vyberu, aby tam nebylo tolik radku, pokus nacitat jen tech par radku, ktere uzivatel
vidi apod. To uz musis zvazit sam.)
David Lebeda
ako zatvorit aplikaciu....
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 25.10.2002 08:53:31
Ahoj
v podmince napis
CanClose:=False; // Aplikace se neukonci
Petr
----- Original Message -----
From: "Slafco" <skippo(zv)post.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, November 24, 2002 2:54 PM
Subject: ako zatvorit aplikaciu....> ahojte potreboval by som aby pri pokuse o zatvorenie mojej app sa
uzivatelovi vypisalo nieco v zmysle : skutocne chces skoncit? ano/nie
> problem je v tom ze neviem docielit to aby pri volani onclose sa pri
nejakej podmienke aplikacia neukoncila.
> diky za nejaky papad.
> S.
>
> ________
> Pocitacove hry? http://hry.sme.sk
ako zatvorit aplikaciu....
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 25.10.2002 09:02:12
Promin, jeste jsem zapomnel dodat ze je to v OnCloseQuery...
> Ahoj
>
> v podmince napis
> CanClose:=False; // Aplikace se neukonci
> > ahojte potreboval by som aby pri pokuse o zatvorenie mojej app sa
> uzivatelovi vypisalo nieco v zmysle : skutocne chces skoncit? ano/nie
> > problem je v tom ze neviem docielit to aby pri volani onclose sa pri
> nejakej podmienke aplikacia neukoncila.
prohlizecka/editor pro ClientDataSet
[*] likeapear <likeapear(zv)centrum(tec)cz> - 25.10.2002 09:56:00
ahoj,
nevite nekdo o nejake prohlizecce/editoru tabulek ve formatu ClientDataSet?
Vim, ze muzu hodit do formu par komponent a mam to. Zajimalo by me zda uz
neco takoveho (free) neexistuje, co by se pripadne dalo doporucit
zakaznikovi pro jednoduchou upravu dat.
likeapear
Kylix a SQL
[*] Petr Ku�era <pkucera(zv)mh.vri(tec)cz> - 25.10.2002 10:09:29
Dobry den,
prosim Vas, chtel jsem vyzkouset Kylix, a tak jsem si
nainstaloval trial verzi 3. Chtel jsem zkusit napsat nejakou aplikaci
(program) s vyuzitim databazove tabulky a SQL, avsak k memu nemilemu
prekvapeni je to v Kylixu uplne jinak nez, jak jsem byl zvykly, v
Delphi. Mohl by mi tedy nekdo poradit, co vse potrebuji k tomu, abych
mohl vytvaret uplne jednoduche SQL dotazy v Kylixu?
Dekuji.
S pozdravem Petr Kucera.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
DBChart se zobrazenou mezi
[*] Macecek Marcel <marcel.macecek(zv)siemens(tec)com> - 25.10.2002 10:30:47
Potreboval bych do DBChartu vlozit primku zobrazujici nejakou mez.
Nevite nahodou nekdo, jak by se to dalo do neho vlozit (zobrazit) ???
Diky
Marcel
Kylix 3 a Postgres native connection
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.10.2002 10:55:03
DD,
nemate nekdo po ruce prepis interface k libpg knihovne pro Kylix 3?
Nasel jsem jen verzi pro FreePascal a jeste to vypada, ze jde o
interface k nejake starsi verzi libpg/Postrgres.
Pozn: spojeni prez ODBC a borlandi DB komponenty me nezajima -
potrebuji z duvodu rychlosti a velikosti kodu jen nativni interface.
Diky
Dalibor Toman
Object Inspector
[*] Lenka Don�tov� - 25.10.2002 12:00:23
Nevite nekdo jak nastavit v prostredi Delphi aby bylo okno Object Inspector
porad navrchu?
Diky za odpoved
Lenka
Object Inspector
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 25.10.2002 12:04:10
Nad oknem Object Inspector klkni pravym tlacitkem mysi a vyber Stay on Top
Subject: Object Inspector
> Nevite nekdo jak nastavit v prostredi Delphi aby bylo okno Object
Inspector
> porad navrchu?
> Diky za odpoved
> Lenka
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
FB vnoreny select
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 25.10.2002 12:21:02
Ahoj,
potreboval bych udelat vnoreny select z treti tabulky, ale nedari se
:(
Jedna se mi (jen o zjisteni) poctu zaznamu K.KOD_OSOBY v te 3
tabulce
select
K.PRIJMENI || ' '||K.JMENO ||' '||K.TITUL AS PRIJMENI,
K.OBEC,K.TEL_DOMU,
M.MAKLER,
K.ULICE,K.KOD_OSOBY,K.ID
/** (select COUNT(*) from PRIPADY P where (P.DEL = 0) AND
(P.KOD_KONT = K.KOD_OSOBY)) **/
from KONTAKTY K
JOIN MAKLERI M
ON (M.KOD_MK = K.FIRST_USER)
where (K.DEL = 0)
Muze mi nekdo poradit, hlavne jestli je to takto vubec resitelne,
dekuji a preji hezky den
Jarek Uher
DBChart se zobrazenou mezi
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 25.10.2002 13:22:31
Ahoj,
takto kreslim caru zobrazujici aktualni cas,
jinak dost lze vycist ze zdroju v TeeChart.
Pavel
procedure TGrafForm.GrafBeforeDrawAxes(Sender: TObject);
var
tmpRect:TRect;
XPosition:Integer;
Time : TDateTime;
begin
With Chart do
Begin
tmpRect := ChartRect;
Time := Now;
if (BottomAxis.Minimum < Time) and
(BottomAxis.Maximum > Time) then
With Canvas do
begin
XPosition := BottomAxis.CalcXPosValue(Time);
Pen.Width:= TimeLineSize;
Pen.Style:=psSolid;
Pen.Color:= TimeLineColor;
MoveTo(XPosition,ChartRect.Bottom);
LineTo(XPosition,ChartRect.Top);
end;
end;
end;
> Potreboval bych do DBChartu vlozit primku zobrazujici nejakou mez.
> Nevite nahodou nekdo, jak by se to dalo do neho vlozit (zobrazit) ???
>
Pouziti IBRestoreService
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.10.2002 13:32:02
Ahoj,
pouzivate nekdo ve sve aplikaci IBRestore service k obnove databaze ze zalohy?
Rec je o FireBirdu 1.0, IBX4.52.
Jde mi o to, jak to udelat bezpecne. Jelikoz uz jsem se setkal s tim, ze obnova ze
zalohy se obcas nepovede, nechci delat obnovu primo do puvodniho gdb souboru,
aby v pripade techto problemu mel uzivatel alespon stav pred zalohou. Kdyz ale
zase udelam obnovu do vedlejsiho souboru, nevim, jak jej prekopirovat na
pozadovany nazev (nemam tam prava k souborum, coz je v poradku).
Takze vidim dve moznosti:
1) Riskovat obnovu do stvajiciho gdb souboru s rizikem, ze obnova selze a uzivatel
nebude mit nic
2) Obnovu delat do jineho souboru a pak pozadat spravce serveru, aby mi ji laskave
zkopiroval namisto puvodniho gdb souboru.
To, co by se mi libilo a co nevim, jestli jde, je, treba s pomoci komponenty
TIBDatabase nebo jine gdb soubor zkopirovat nebo prejmenovat, klidne v ramci
jednoho adresare.
Dik
David Lebeda
Jak na zpravu WM_DRAWITEM - zmena barvy menu
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 25.10.2002 13:33:06
Ahoj,
chtel jsem si zmenit barvu MainMenu. V helphu a tak ruzne jsem se docetl, ze je mozne tohoto
docilit, kdyz menu nastavim vlastnost OwnerDraw na true a odchytim si zpravu WM_DRAWITEM.
OK, to jsem zvladl. Problem mam, ze lparametr teto zpravy je pointer na pole(record) typu
DRAWITEMSTRUCT, ktere obsahuje "item-drawing information".
Jenze neumim ten parametr spravne pouzit. Delam toto:
procedure TForm1.WndProc(var msg:TMessage);
var
Stru:TDrawItemStruct;
begin
if (msg.message=WM_DRAWITEM)and(msg.wParam=0) then
begin
stru:=(zv)msg.lparam;
ShowMessage('Handle menu by mel byt: '+IntToStr(stru.hwndItem));
end;
end;
Problem je v tom, ze se nedostavam ke spravnym datum. Nekde delam chybu, ale netusim kde. Ten
pointer pouzivam nejspis spatne, ale jak je to spravne?
Poradite? Diky.
Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Podobn� ��sla
[*] Pavel <pavel.skulil(zv)jerid(tec)cz> - 25.10.2002 13:43:20
DQpN4W0gdiBkYXRhYuF6aSB0YWJ1bGt1IGR2YW7hY3Rpbe1zdG79Y2gg6O1zZWwgKPjhZG927CBz
dGF0aXPtY2UNCnBvbG++ZWspLiBBIG3hbSBwcm9t7G5ub3UsIHZlIGt0ZXLpIGplIG7samFr6SBk
dmFu4WN0aW3tc3Ru6SDo7XNsby4NClBvdPhlYnVqdSB6amlzdGl0LCBqZXN0bGkgc2UgdiBkYXRh
YuF6aSBuYWNo4XrtIHBvbG++a2Egc2hvZG7hIChjb74gamUNCnRyaXZp4Wxu7SksIG5lYm8gcG9s
b75rYSBwb2RvYm7hIChsabntY+0gc2UgdiBqZWRu6SBsaWJvdm9sbukNCujtc2xpY2kpLiBaYXTt
bSB0byD4ZbntbSB0YWssIL5lIHNpIHZ5dHZv+O1tIHBvbW9jbm91IHRhYnVsa3UNCnBvdGVuY2nh
bG7tY2ggcG9kb2Ju/WNoIOjtc2VsICh0ai4gMTIgeCAxMCA9IDEyMCD44WRr+SkgYSBwb3Jvdm7h
duFtDQpqaSBzICJ2ZWxrb3UiIHRhYnVsa291LiBGdW5ndWplIHRvLCBhbGUgcG90+GVidWppIHRv
IGNlbOkgdmVsbWkgZG9i+GUNCm9wdGltYWxpem92YXQgbmEgcnljaGxvc3QgKG9i7CB0YWJ1amt5
IGpzb3UgcG9jaG9waXRlbG7sIGluZGV4b3ZhbukpLg0KSmUgamlu4SBtb75ub3N0PyBO7Gpha+kg
buFwYWR5PyBNb2NrcuF0IGTsa3VqaS4uLg0KDQotLSANCkJlc3QgcmVnYXJkcywNCiBQYXZlbCAg
ICAgICAgICAgICAgICAgICAgICAgICAgbWFpbHRvOnBhdmVsLnNrdWxpbEBqZXJpZC5jeg==
Spusteni Excel
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 25.10.2002 13:48:17
Zdravim,
ExcelApp:=CreateOLEObject('Excel.Application');
ExcelApp.Visible:= true;
Vse funguje jak ma (spusteni excelu a jeho zobrazeni), ale jen tehdy mamli
promenou ExcelApp jako globalni.
Jakmile ji dam jak lokalni (napr jen v ButtonClick), tak se mi vse provede,
ale hned se Excel opet vypne. S wordem se to nedeje a pouziju-li
GetActiveOLEObject('Excel.Application') na ziskani jiz zpusteneho okna
Excelu, tak je vse take OK.
Nesetkal jste se s tim nekdo?
Pavel Poles
FB vnoreny select
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 25.10.2002 13:53:59
Na prvni pohled (nepouzivam FB ale MS SQL) ti tam chybi carka za K.ID
(mozna je to ale nasledek toho zakomentovani)
Co presne nefunguje ?
-----Original Message-----
From: Jaroslav Uher [mailto:moravia(zv)mbox.vol(tec)cz]
Sent: Monday, November 25, 2002 12:21 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: FB vnoreny select
Ahoj,
potreboval bych udelat vnoreny select z treti tabulky, ale nedari se
:(
Jedna se mi (jen o zjisteni) poctu zaznamu K.KOD_OSOBY v te 3
tabulce
select
K.PRIJMENI || ' '||K.JMENO ||' '||K.TITUL AS PRIJMENI,
K.OBEC,K.TEL_DOMU, M.MAKLER, K.ULICE,K.KOD_OSOBY,K.ID
/** (select COUNT(*) from PRIPADY P where (P.DEL = 0) AND
(P.KOD_KONT = K.KOD_OSOBY)) **/
from KONTAKTY K
JOIN MAKLERI M
ON (M.KOD_MK = K.FIRST_USER)
where (K.DEL = 0)
Muze mi nekdo poradit, hlavne jestli je to takto vubec resitelne,
dekuji a preji hezky den
Jarek Uher
Base64 - Decoder
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 25.10.2002 13:56:51
Zdar a silu,
na www.volny(tec)cz/pejasoft/delphi/
jsem hoopnul soubor mimedecode.pas. Krome Base64 koderu a dekoderu jsou tam
i jine procedurky.
S pozdravem
Petr Jarkovsky
pejasoft(zv)volny(tec)cz
----- Original Message -----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
Zdravim,
prevedl jsem si retezec pomoci Base64Encoder.
Mam problem - nevim jak ziskat puvodni retezec. Z napovedy jsem vycetl, ze
si musim
vytvorit objek typu TBase64Decoder, ale co dal jsem uz z napovedy
nepochopil.
Muzete me nekdo "silne" :o)) nakopnout?
Diky
Jirka
FB vnoreny select
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.10.2002 13:58:36
> potreboval bych udelat vnoreny select z treti tabulky, ale nedari se
> :( Jedna se mi (jen o zjisteni) poctu zaznamu K.KOD_OSOBY v te 3
> tabulce
>
> select
> K.PRIJMENI || ' '||K.JMENO ||' '||K.TITUL AS PRIJMENI,
> K.OBEC,K.TEL_DOMU, M.MAKLER, K.ULICE,K.KOD_OSOBY,K.ID
> /** (select COUNT(*) from PRIPADY P where (P.DEL = 0) AND
> (P.KOD_KONT = K.KOD_OSOBY)) **/
> from KONTAKTY K
> JOIN MAKLERI M
> ON (M.KOD_MK = K.FIRST_USER)
> where (K.DEL = 0)
Ahoj,
jedine, co me napada, jestli neni nutne v tom vnorenem SELECTu napsat COUNT(p.*), nebo
COUNT(p.NejakePole). Jinak mi to pripada spravne, za ten SELECT jeste obvykle pisu neco jako AS
POCET apod...
Karel Rys
MyProgram.exe.Manifest
[*] Roland Turcan <rolo(zv)sedas.sk> - 25.10.2002 13:59:02
Hello delphi-l(zv)clexpert(tec)cz!
Cim sa tvoria subory pre XP s priponou Manifest, alebo ake su tam
podmienky?
Dakujem.
--
Best regards, TRoland
FB vnoreny select
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 25.10.2002 13:59:10
>Ahoj,
>potreboval bych udelat vnoreny select z treti tabulky, ale nedari se
>:(
>Jedna se mi (jen o zjisteni) poctu zaznamu K.KOD_OSOBY v te 3
>tabulce
Ahoj zkus tohle, ale pisu to zhlavy tak sorry za chybicky :-)
select
K.PRIJMENI || ' '||K.JMENO ||' '||K.TITUL AS PRIJMENI,
K.OBEC,K.TEL_DOMU,
M.MAKLER,
K.ULICE,K.KOD_OSOBY,K.ID,
Count(P.KOD_KONT)
from KONTAKTY K
JOIN MAKLERI M ON (M.KOD_MK = K.FIRST_USER)
LEFT JOIN PRIPADY P ON (P.KOD_KONT = K.KOD_OSOBY)
where (K.DEL = 0) AND (P.DEL = 0)
GROUP BY
K.PRIJMENI ,K.JMENO ,K.TITUL,
K.OBEC,K.TEL_DOMU,
M.MAKLER,
K.ULICE,K.KOD_OSOBY,K.ID
Preji hodne zdaru
Jirka
Podobn� ��sla
[*] Radek KALA <Kala(zv)BetaControl(tec)cz> - 25.10.2002 14:34:10
Mam napsany UDF, ktery umi vyhledavat v textech s toleranci
prekledpu, mozna by to slo pouzit.
>
> M�m v datab�zi tabulku dvan�ctim�stn�ch ��sel (��dov� statis�ce
> polo�ek). A m�m prom�nnou, ve kter� je n�jak� dvan�ctim�stn� ��slo.
> Pot�ebuju zjistit, jestli se v datab�zi nach�z� polo�ka shodn� (co� je
> trivi�ln�), nebo polo�ka podobn� (li��c� se v jedn� libovoln�
> ��slici). Zat�m to �e��m tak, �e si vytvo��m pomocnou tabulku
> potenci�ln�ch podobn�ch ��sel (tj. 12 x 10 = 120 ��dk�) a porovn�v�m
> ji s "velkou" tabulkou. Funguje to, ale pot�ebuji to cel� velmi dob�e
> optimalizovat na rychlost (ob� tabujky jsou pochopiteln� indexovan�).
> Je jin� mo�nost? N�jak� n�pady? Mockr�t d�kuji...
>
> --
> Best regards,
> Pavel mailto:pavel.skulil(zv)jerid(tec)cz
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
Jak na zpravu WM_DRAWITEM - zmena barvy menu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.10.2002 14:52:00
> chtel jsem si zmenit barvu MainMenu. V helphu a tak ruzne
> jsem se docetl, ze je mozne tohoto
> docilit, kdyz menu nastavim vlastnost OwnerDraw na true a
> odchytim si zpravu WM_DRAWITEM.
V Delphi 6 nemusis tu spravu odchytavat, staci, ak si nastavis
TMainMenu.OwnerDraw na True (alebo priradis Images) a potom mozes pouzit
event OnDrawItem alebo OnAdvancedDrawItem. Musis ale ten event priradit
kazdej polozke zvlast.
Ak to chces priradit v runtime vsetkym polozkam v menu, da sa to napriklad
takto:
type
TMenuItemProc = procedure (Item: TMenuItem) of object;
procedure TForm1.UpdateItem(Item: TMenuItem);
begin
Item.OnDrawItem := MainMenu1DrawItem;
end;
procedure IterateMenuItems(Items: TMenuItem; IterateProc: TMenuItemProc);
var
I: Integer;
begin
for I := 0 to Items.Count - 1 do
IterateMenuItems(Items[I], IterateProc);
IterateProc(Items);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MainMenu1.OwnerDraw := True;
IterateMenuItems(MainMenu1.Items, UpdateItem);
end;
procedure TForm1.MainMenu1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect:
TRect; Selected: Boolean);
begin
// a tu si uz kreslis sam
end;
HTH
TOndrej
Vyuziti CPU
[*] Ji�� Svoboda <SvobodaJiri.1(zv)seznam(tec)cz> - 25.10.2002 15:15:19
Prosim o radu,potrebuji programove zjistit aktualni vyuziti CPU.
Nasel tipy pro Win95/98,ale pro NT,2000,XP bohuzel nic.
Nevite nekdo nahodou,jak na to?
Diky za kazdou radu
______________________________________________________________________
Reklama:
Alcatel 311 za 2.577 Kc. Telefony za nejlepsi ceny na trhu! http://ad2.seznam(tec)cz/redir.cgi?instance=38636%26url=http://www.oskarmobil(tec)cz/handsets/handset.php
Pridani uzivatele na Firebird pod linuxem
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 25.10.2002 15:21:09
Ahoj Konference,
delam zacatecnicke pokusy s Firebirdem pod linuxem
a nevim jak pridat dalsiho uzivatele. Muzete mi nekdo
poradit?
Existuje neco ja IBConsole pod linuxem?
S pozdravem
Libor Filip
Spusteni Excel
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 25.10.2002 15:33:36
Nemuze to byt tim, ze ti prestane existovat lokalni promenna, ktera drzi
instanci excelu => reference counting ti snizi pocet referenci na instanci
=> pokud mas jen jeden odkaz na ten excel, dojde i ke zruseni instance
Excelu. Reseni: pouzit _AddRef, pripadne (pouzivat opatrne) pretypovat
promennou, ktera ti drzi instanci Excelu na pointer a priradit do ni nil.
Delphi pak si pak mysli, ze je "prazdna" a nevolaji na ni _Release pri jejim
ruseni.
O :-))
> -----P�vodn� zpr�va-----
> Vse funguje jak ma (spusteni excelu a jeho zobrazeni), ale jen tehdy mamli
> promenou ExcelApp jako globalni.
> Jakmile ji dam jak lokalni (napr jen v ButtonClick), tak se mi
> vse provede,
> ale hned se Excel opet vypne.
Spusteni Excel
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 25.10.2002 15:44:05
Nejspis to je tim, ze neexistuje lokalni promena, jen me zarazi, ze pro
Outlook a Word to timto zpusobem funguje normalne, ale pro Excel ne....
Pavel Poles
----- Original Message -----
From: "Malecek Ondrej" <ondrej.malecek(zv)radom-cz(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 25, 2002 3:33 PM
Subject: RE: Spusteni Excel
> Nemuze to byt tim, ze ti prestane existovat lokalni promenna, ktera drzi
> instanci excelu => reference counting ti snizi pocet referenci na instanci
> => pokud mas jen jeden odkaz na ten excel, dojde i ke zruseni instance
> Excelu. Reseni: pouzit _AddRef, pripadne (pouzivat opatrne) pretypovat
> promennou, ktera ti drzi instanci Excelu na pointer a priradit do ni nil.
> Delphi pak si pak mysli, ze je "prazdna" a nevolaji na ni _Release pri
jejim
> ruseni.
>
> O :-))
>
> > -----P�vodn� zpr�va-----
> > Vse funguje jak ma (spusteni excelu a jeho zobrazeni), ale jen tehdy
mamli
> > promenou ExcelApp jako globalni.
> > Jakmile ji dam jak lokalni (napr jen v ButtonClick), tak se mi
> > vse provede,
> > ale hned se Excel opet vypne.
>
>
odchytavanie prenosu na sietovu kartu
[*] Ivan Turcan <iturcan(zv)drake.sk> - 25.10.2002 15:49:27
Ahojte,
Potrebujem vytvorit jednu malicku aplikaciu ktora by mala odchytavat prenos
cez sietovu kartu.
Predpokladom je ze by sa mala zadat adresa karty a potom by sa mohli
odchytavat pakety smerujuce na prislusny port. Ma niekto s tym skusenosti ?
nejake doporucenie ? komponenta ? utilita ?
dakujem
Ivan T.
delphi5 + midas.dll verze7
[*] likeapear <likeapear(zv)centrum(tec)cz> - 25.10.2002 16:00:14
ahoj vsichni,
nevite zda je knihovna midas.dll z delphi7 pouzitelna s delphi5?
likeapear
Pouziti IBRestoreService
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 25.10.2002 16:03:48
> 1) Riskovat obnovu do stvajiciho gdb souboru s rizikem, ze
> obnova selze a uzivatel nebude mit nic
no, vetsinou se data obnouvuji, protoze uz jsou nekde ztracena.
potom, kdyz se to nepovede, jedna se vetsinou o pokazenou zalohu a to
zpravidla vinou nespravneho skladovani (diskety, lokalni HDD, kde se
cela
aplikace provozuje). kdyz se to povede, zajasa nad dokonalosti pouzite
technologie ;o)
> 2) Obnovu delat do jineho souboru a pak pozadat spravce
> serveru, aby mi ji laskave zkopiroval namisto puvodniho gdb souboru.
to je IMHO zcestna myslenka. tak jak backup/restore funguje, funguje
dobre. jestlize dotycny neni schopen zalohu bezpecne skladovat, bude
si muset sehnat (zaplatit) nekoho, kdo mu s tim pomuze.
jinac ja osobne jsem do zalohy pridal moznost zabalit to zipem (TZIP) a
to jak na HDD tak na FDD a odeslani mejlem. jednodussi uz to user mit
asi nebude (leda doplnit vypaleni na CD-R(W).
nicmene je vhodne uzivatele upozornit, ze zalohu je opravdu nutne mit
bezpecne ulozenou. to znamena treba na ZIPce, nebo CDcku, nebo
prenosnem HDD, kterezto jsou pak skladovany oddelene od pocitace,
v zaruvzdornem trezoru a podobne. CDcka nesmi lezet na slunicku ani
na z venci prosvetlenem miste atd. muzes to potom pouzit jako alibi, az
ta zaloha nepujde obnovit ;o). zni to huste, ale zivot je k datum tak
kruty...
peca
Freereport ???
[*] Lukas Horky <LukasHorkyDF(zv)seznam(tec)cz> - 25.10.2002 16:08:57
Zdravim,
stahnul jsem si od nekud FreeReport (myslim ze je snad z Ruska)
protoze jsem potreboval genereator sestav kterej jse schopnej
exportovat i do rtf apod... a tenhle funguje perfekten... az
podezrele!!
Proto mam dotaz jestli s tim mate nekdo nejaky zkusenosti nebo vite o
nejkym zadrhelu .... nez do toho predelam vsechny sestavy:-(
Dik moc
Lukas
______________________________________________________________________
Reklama:
Alcatel 311 za 2.577 Kc. Telefony za nejlepsi ceny na trhu! http://ad2.seznam(tec)cz/redir.cgi?instance=38636%26url=http://www.oskarmobil(tec)cz/handsets/handset.php
Jak na zpravu WM_DRAWITEM - zmena barvy menu
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 25.10.2002 16:26:38
----- Original Message -----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
OK, to jsem zvladl. Problem mam, ze lparametr teto zpravy je pointer na
pole(record) typu
DRAWITEMSTRUCT, ktere obsahuje "item-drawing information".
Jenze neumim ten parametr spravne pouzit. Delam toto:
-----------------------------
pCaption : PChar;
DI : PDrawItemStruct;
DI := Ptr(msg.lparam);
// DI.itemState = 1 kdyz je kurzor nad item - 257 je na Win2000
// DI.itemState = 0 kdyz je kurzor mimo item
// DI.itemAction = 1 kdyz polozka nebyla zobrazena a musi se vykreslit
// DI.itemAction = 2 kdyz polozka byla zobrazena a nemusi se prekreslit
pCaption := Ptr(DI.itemData); // vrati caption
TextOut(DI.hDC, DI.rcItem.Left, DI.rcItem.Top, pCaption,
StrLen(pCaption));
Jsou to jen kousky z jednoho meho programu. Snad Ti to pomuze. Ty konstanty
jsem zjistoval nejak zbesile, takze ani nevim, jak se jmenuji spravne
konstanty.
Ahoj, Jarda
Jak na zpravu WM_DRAWITEM - zmena barvy menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.2002 16:29:27
From: "Jaroslav Bu�ek" <bucek(zv)eskon(tec)cz>
> // DI.itemState = 1 kdyz je kurzor nad item - 257 je na Win2000
> // DI.itemState = 0 kdyz je kurzor mimo item
> // DI.itemAction = 1 kdyz polozka nebyla zobrazena a musi se vykreslit
> // DI.itemAction = 2 kdyz polozka byla zobrazena a nemusi se prekreslit
Tak takhle opravdu ne. Co se treba podivat do dokumentace a pouzit konstanty ?
ms-help://MS.PSDK.1033/shellcc/platform/commctls/comboboxes/comboboxreference/
comboboxstructures/drawitemstruct.htm
> Jsou to jen kousky z jednoho meho programu. Snad Ti to pomuze. Ty konstanty
> jsem zjistoval nejak zbesile, takze ani nevim, jak se jmenuji spravne
> konstanty.
Mozna by bylo dobre to delat zpusobem jakym to nabizi VCL, viz odpoved kterou
poslal Ondrej Kelle.
Petr Vones
soucet CHAR poli na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 25.10.2002 16:37:09
zdravim,
kdyz provedu:
SELECT (prijmeni || ',' || jmeno) as jmeno FROM table
tak ve vysledku pole jmeno vypada takto:
|Novak ,Petr |
jak se vyhnout tem mezeram, ktere tam jsou doplneny na velikost puvodnich
poli?
Existuje neco jako funkce TRIM na odstraneni mezer? V popis funkci pro
Interbase nic takoveho neni.
bleak
delphi5 + midas.dll verze7
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 25.10.2002 16:49:37
Nekde na internetu jsem videl opravenou verzi Midass.DLL z D7 a tvrdili, ze
je spetne kompatibilni.
Jaromir Cermak
-----Original Message-----
From: likeapear [mailto:likeapear(zv)centrum(tec)cz]
Sent: Monday, November 25, 2002 4:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: delphi5 + midas.dll verze7
ahoj vsichni,
nevite zda je knihovna midas.dll z delphi7 pouzitelna s delphi5?
likeapear
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
ORACLE problem
[*] ViragI(zv)logica(tec)com - 25.10.2002 17:10:52
Ten dotaz je pomerne neprehledny. Pokud mas svazany dve tabulky pres urcite
ID (v tomto pripade IDClientGroup) a podrizena tabulka ClientDetails ma
vlastni ID (IDClient) potom neni nic lehciho nez se vyhnout funkci a napsat:
select * from ClientDetails
where IDClientGroup = <value_of_IDClientGroup>;
pripadne
select * from ClientDetails
where IDClientGroup in (LOV_of_IDClientGroup_separated_by_carka);
Pokud to tak neni, tak jsem dotaz nepochopil.
Ivan Virag
-----Original Message-----
From: �tevl�k Mari�n [mailto:Marian.Stevlik(zv)merlin(tec)cz]
Sent: Friday, November 22, 2002 11:33 AM
To: Konf Delphi (el. adresa)
Subject: OT: ORACLE problem
Mam tabulku ClientGroup v kt. su uvedeny skupiny klientov, pricom
skupina moze byt definovana ako vymenovana (potom sa ID klientov nachdazju v
tabulke ClientGroupDetail (previazanej cez IDClientGroup), alebo cez
VARCHAR2
Field s v kt. je definova Where klausula napr: ' AND IDClient IS NOT NULL'
No a potrebujem urobit univerzalnu funkciu, kt. mi najekym sposobom
vrati zoznam IDClient podla zadanej IDClientGroup (t.j. FUNCTION
GetIDClientsFromClientGroup(anIDClientGroup: NUMBER) RETURN ...) a aby
sa tato fcia dala pouzit priamo v selecte t.j.
Select ... From ... Where IDClient IN GetIDClientsFromClientGroup(...)
Zatial sa mi podarilo vytvorit tu fciu tak, ze mi vracia cursor
obsahujuci
IDClient ale tuto fciu nemozem zavolat za IN
This e-mail and any attachment is for authorised use by the intended recipient(s) only. It may contain proprietary material, confidential information and/or be subject to legal privilege. It should not be copied, disclosed to, retained or used by, any other party. If you are not an intended recipient then please promptly delete this e-mail and any attachment and all copies and inform the sender. Thank you.
Pouziti IBRestoreService
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.10.2002 17:24:39
Lebeda David dne 25 Nov 2002 v 13:32:
> Takze vidim dve moznosti:
>
> 1) Riskovat obnovu do stvajiciho gdb souboru s rizikem, ze obnova
> selze a uzivatel nebude mit nic
>
> 2) Obnovu delat do jineho souboru a pak pozadat spravce serveru, aby
> mi ji laskave zkopiroval namisto puvodniho gdb souboru.
Ahoj,
no, nevim, proc obnova selze; mozna bys mohl obnovu udelat (na prani uzivatele) do nejake Temp
databaze, a kdyz by tahle obnova probehla dobre, udelat pak obnovu na ostro... Nebo pred obnovou
jeste udelat zalohu te stavajici databaze... Pravda, znamena to zdrzeni, ovsem jak casto se to
bude pouzivat?
Karel Rys
delphi5 + midas.dll verze7
[*] likeapear <likeapear(zv)centrum(tec)cz> - 25.10.2002 17:55:16
to ja taky, jenom jestli s tim ma nekdo zkusenosti, abych nenarazil...
likeapear
> Nekde na internetu jsem videl opravenou verzi Midass.DLL z D7 a tvrdili,
ze
> je spetne kompatibilni.
>
> Jaromir Cermak
FB vnoreny select
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 25.10.2002 18:10:58
Ahoj,
On 25 Nov 2002 at 13:58, Karel Rys wrote:
> > potreboval bych udelat vnoreny select z treti tabulky, ale nedari se
> > :( Jedna se mi (jen o zjisteni) poctu zaznamu K.KOD_OSOBY v te 3
> > tabulce
> >
> > select
> > K.PRIJMENI || ' '||K.JMENO ||' '||K.TITUL AS PRIJMENI,
> > K.OBEC,K.TEL_DOMU, M.MAKLER, K.ULICE,K.KOD_OSOBY,K.ID
> > /** (select COUNT(*) from PRIPADY P where (P.DEL = 0) AND
> > (P.KOD_KONT = K.KOD_OSOBY)) **/
> > from KONTAKTY K
> > JOIN MAKLERI M
> > ON (M.KOD_MK = K.FIRST_USER)
> > where (K.DEL = 0)
>
> jedine, co me napada, jestli neni nutne v tom vnorenem SELECTu napsat
> COUNT(p.*), nebo COUNT(p.NejakePole). Jinak mi to pripada spravne, za
> ten SELECT jeste obvykle pisu neco jako AS POCET apod...
>
> Karel Rys
diky moc, mas pravdu, melo by to vypadat takto
(select COUNT(P.KOD_PP) from PRIPADY P where (P.DEL = 0) AND
(P.KOD_KONT = K.KOD_OSOBY)) AS POCET
a mile mne prekvapila i rychlost celeho vyberu.
Jarek
Jak ulozit TXT soubor do pole BLOB
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 25.10.2002 19:38:33
Zdrav�m, potrebuju trochu nakopnout - mam soubor txt a potrebuju to pomoci
SQL dotazu narvat do databaze IB&FB do pole BLOB.
Diky za radu
PEtr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
Freereport ???
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 25.10.2002 20:25:33
Ahoj,
On 25 Nov 2002 at 16:08, Lukas Horky wrote:
> stahnul jsem si od nekud FreeReport (myslim ze je snad z Ruska)
> protoze jsem potreboval genereator sestav kterej jse schopnej
> exportovat i do rtf apod... a tenhle funguje perfekten... az
> podezrele!!
>
> Proto mam dotaz jestli s tim mate nekdo nejaky zkusenosti nebo vite o
> nejkym zadrhelu .... nez do toho predelam vsechny sestavy:-(
tisky posledniho projektu jsme postavili na FreeReportu, ale
zadne slozite reporty. Jen automaticke generovani sestav z
TStringGridu a TDBGridu. Bez problemu, coz nemohu rici o
QR. Overlay se da elegantne pouzit pro demo verzi.
V dalsim "malem programku" se mi nepodarilo tisknout z
TRichEditu, ale to muze byt ma chyba.
Pokud Ti nebude stacit FreeReport muzes IMHO prejit
jednoduse na FastReport (sice neni free, ale da se koupit v CR
- dealer Petr Zahradnik, cena cca 3.500,-Kc), autor je stejny.
Umi toho daleko vice, viz demo a help na autorove webu.
Jarek Uher
Spravny VGA driver pro Delphi
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 25.10.2002 20:27:24
Taky jsem kdysi mival ikonky rozhozeny (na palete s komponentama) a vyresila
to az nova instalace delphi + rekompilace vsech komponentovych balicku.
Driverem to nejspis nevyresis, to je spis chyba delphi (jedna zmala) :-(
novy drivery bys mohl najit na http://europe.hercules.com, ale jestli ti
muzu doporucit tak tyhle karty se co nejdriv zbav a porid si treba geforce.
Zdravi
Spider_X
----- Original Message -----
From: "Petr Fojt�k" <fof(zv)foresta(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 22, 2002 3:50 PM
Subject: Spravny VGA driver pro Delphi
Dobry den, nepouzivate nekdo na Windows2000 VGA kartu
"3D Prophet 4500 TV OUT", 32MB od firmy Hercules ?
Nemuzu s ni rozchodit svoje Delphi4, mam rozbite ikony.
Zatim se mi nepodarilo najit driver, ktery je nekazi.
Dekuji za radu.
`````````````````````````````````````````````````````````````
Petr Fojt�k, fof(zv)foresta(tec)cz
Pouzitie databazy, ktorej ???
[*] Robert Suska <delphi(zv)korak.sk> - 25.10.2002 20:31:04
Ahojte !
Mam tri otazky, chcem urobit program ktory bude vlastne katalogizator CD
diskov a stojim pred otazkou aky databazovy engin :) pouzit. V kylixe sa mi
velmi zapacil format xml ako sa to da pouzit vo windows, aky nastroj je na
vytvaranie xml suborov. Lebo nechcem pouzivat paradox a dbf a podobne
formaty uz ma to nebavi a prestalo sa mi to pacit. Chcem nieco nove. A
lepsie. A posledna otazka je existuje nejaka prirucka ku Kylixu ako vlastne
pisat ten univerzalny kod ktory by sa dal prelozit aj pod win aj pod kylixom
ak to vobec ide za kazdej situacie ?
Dakujem
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Pouzitie databazy, ktorej ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.2002 20:39:37
From: "Robert Suska" <delphi(zv)korak.sk>
> Mam tri otazky, chcem urobit program ktory bude vlastne katalogizator CD
> diskov a stojim pred otazkou aky databazovy engin :) pouzit. V kylixe sa mi
> velmi zapacil format xml ako sa to da pouzit vo windows, aky nastroj je na
> vytvaranie xml suborov. Lebo nechcem pouzivat paradox a dbf a podobne
Ve spojeni s databazi treba TClientDataSet.
> formaty uz ma to nebavi a prestalo sa mi to pacit. Chcem nieco nove. A
> lepsie. A posledna otazka je existuje nejaka prirucka ku Kylixu ako vlastne
> pisat ten univerzalny kod ktory by sa dal prelozit aj pod win aj pod kylixom
> ak to vobec ide za kazdej situacie ?
O knize nevim. V zasade logika aplikace by se tak psat dala pokud se vyvarujes
primych volani systemovych funkci na jednotlivych operacnich systemech a ty
zapouzdris do nejakych funkci nebo objektu, v jejich implementaci pak pouzijes
podmineny preklad. Uzivatelske rozhrani ovsem musis psat pro kazdy OS zvlast
(na hruzu jakou je CLX pod Windows rovnou zapomen).
Petr Vones
Jak ulozit TXT soubor do pole BLOB
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 25.10.2002 20:41:19
Ahoj,
On 25 Nov 2002 at 19:38, Petr K. wrote:
> Zdrav�m, potrebuju trochu nakopnout - mam soubor txt a potrebuju to
> pomoci SQL dotazu narvat do databaze IB&FB do pole BLOB.
IBQueryTmp.SQL.Add('INSERT INTO TABULKA);
IBQueryTmp.SQL.Add('(POLE_BLOB) VALUES (:POLE_BLOB)');
IBQueryTmp.Params[0].DataType := ftBLOB;
IBQueryTmp.Params[0].Value := Null;
IBQueryTmp.Params[0].LoadFromFile(Muj_Soubor.txt,ftBlob);
ale jak uz jsem odpovidal minuly tyden na podobny thread, nejprve si
precti tento clanek, zda vubec potrebujes BLOB
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
Jarek Uher
Vyuziti CPU
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.2002 20:43:51
From: "Ji�� Svoboda" <SvobodaJiri.1(zv)seznam(tec)cz>
> Prosim o radu,potrebuji programove zjistit aktualni vyuziti CPU.
> Nasel tipy pro Win95/98,ale pro NT,2000,XP bohuzel nic.
Performance data helper - PerfMon.zip: http://delphi-jedi.org/APILIBRARY
Petr Vones
NET Aplikacia
[*] PetoSoft <Petosoft(zv)centrum.sk> - 25.10.2002 23:20:27
Zdravim.
Ako spravit aby ja som zadal co ma program hladat(na nete). Program by to
zacal hladat na mne urcenej vyhladavacej stranke, potom by mi ukazal odkaz,
potom ak by som chcel tak by mi zobrazil stranku s danym odkazom a dokazal
by aj stiahnut stranku z toho odkazu. A este aby vedel hladat text na
urcenej stranke.
Dakujem za vase odpovede.
Vytvorenie aliasu cez Session
[*] bugi <bugala_a(zv)centrum.sk> - 26.10.2002 00:24:14
Zdar vsetci!
Na Forme mam komp. Session, vsetky vlastnosti mam nadstavene nasledovne:
AutoSessionName True
Active True
v udalosti OnCreate hlavneho Formu mam:
begin
Session.AddStandardAlias('Blok', 'D:Program Files\Gardap\data',
'Paradox' );
Session.SaveConfigFile;
end;
a nefunguje mi to!
Neviete niekto preco ????
A co sa stane, ked spominany alias uz existuje, nastane chyba, alebo co ...?
Dik,
Alex
Problem s IDAPI32.CFG
[*] bugi <bugala_a(zv)centrum.sk> - 26.10.2002 00:33:29
Ahojte,
mam len malu otazocku a velky preblem:
Na PC ktore je pripojene vo velkej podnikovej LAN sieti naistaloval kamarat
Delphi.
Po prihlaseni do siete sa mu zobrazia sietove disky.
Ked chce vytvorit pre svoj program nejaky Alias DatabaseDesktopom,
subor IDAPI32.CFG mu Delphi nacita z nejakeho sietoveho disku.
A ak chce pridat a ulozit svoj Alias, oznami mu to, ze nema pravo zapisovat
do tohto
suboru.
Chcem sa spytat:
da sa nejak v prostredi Delphi nadstavit, nakonfigurovat na tvrdo cesta k
spominanemu
suboru IDAPI32.CFG na lokalnom disku ????
(aby sa nesnazil tahat z a ukladat do toho sietoveho IDAPI32.CFG)
Moc by mu to pomohlo !!!
Za vsetky odpovede dakujem,
Alex
soucet CHAR poli na FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 26.10.2002 06:29:35
> Odes�latel: bleak <bleak(zv)mvesely.com>
> SELECT (prijmeni || ',' || jmeno) as jmeno FROM table
> |Novak ,Petr |
> jak se vyhnout tem mezeram, ktere tam jsou doplneny na velikost puvodnich
prijmeni, jmeno jsou asi typu CHAR(x), mely by byt VARCHAR(x)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Problem s IDAPI32.CFG
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 26.10.2002 06:33:59
> Odes�latel: bugi <bugala_a(zv)centrum.sk>
> subor IDAPI32.CFG mu Delphi nacita z nejakeho sietoveho disku.
Je to nekde v registrech.
Ale melo by stacit DBEAdmin a "save as..." na lokalni disk.
Pak by se to melo prenastavit.
Je divny, ze se to takhle nastavilo pri instalaci...?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Pridani uzivatele na Firebird pod linuxem
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 26.10.2002 06:35:27
> Odes�latel: Libor Filip <filip(zv)agrokonzulta(tec)cz>
> delam zacatecnicke pokusy s Firebirdem pod linuxem
> a nevim jak pridat dalsiho uzivatele. Muzete mi nekdo
> poradit?
> Existuje neco ja IBConsole pod linuxem?
Nevim, jesli je to pro tebe ta spravna rada, ale FB/IB muzes administrovat vzdalene z Windows.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
prejmenovat tabulku na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 26.10.2002 07:00:29
zdravim,
Jak prejmenovat tabulku na FB?
ALTER TABLE table1 RENAME table2 //tak bych to delal na MySQL
bleak
Barva u buttonu
[*] Ales Kerner <kerner(zv)metalcom(tec)cz> - 26.10.2002 07:04:47
Zdravim
Nevite nekdo jak zmenit barvu u buttonu?
dik
Ales
----- Original Message -----
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 25, 2002 8:25 PM
Subject: Re: Freereport ???> Ahoj,
>
> On 25 Nov 2002 at 16:08, Lukas Horky wrote:
>
> > stahnul jsem si od nekud FreeReport (myslim ze je snad z Ruska)
> > protoze jsem potreboval genereator sestav kterej jse schopnej
> > exportovat i do rtf apod... a tenhle funguje perfekten... az
> > podezrele!!
> >
> > Proto mam dotaz jestli s tim mate nekdo nejaky zkusenosti nebo vite o
> > nejkym zadrhelu .... nez do toho predelam vsechny sestavy:-(
>
> tisky posledniho projektu jsme postavili na FreeReportu, ale
> zadne slozite reporty. Jen automaticke generovani sestav z
> TStringGridu a TDBGridu. Bez problemu, coz nemohu rici o
> QR. Overlay se da elegantne pouzit pro demo verzi.
>
> V dalsim "malem programku" se mi nepodarilo tisknout z
> TRichEditu, ale to muze byt ma chyba.
>
> Pokud Ti nebude stacit FreeReport muzes IMHO prejit
> jednoduse na FastReport (sice neni free, ale da se koupit v CR
> - dealer Petr Zahradnik, cena cca 3.500,-Kc), autor je stejny.
> Umi toho daleko vice, viz demo a help na autorove webu.
>
> Jarek Uher
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
soucet CHAR poli na FB
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 26.10.2002 07:08:46
On 25 Nov 2002 at 16:37, bleak wrote:
> SELECT (prijmeni || ',' || jmeno) as jmeno FROM table
> jak se vyhnout tem mezeram, ktere tam jsou doplneny na velikost
> puvodnich poli? Existuje neco jako funkce TRIM na odstraneni mezer?
Kdyz si nainstalujete UDF funkce dodavane jako priklad, tak tam
sice neni TRIM ale LTRIM a RTRIM. Chodi to a pro tento pripad
staci RTRIM.
Pridani uzivatele na Firebird pod linuxem
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 26.10.2002 07:16:37
From: "Libor Filip" <filip(zv)agrokonzulta(tec)cz>
> Existuje neco jako IBConsole pod linuxem?
viz: http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_contrib_download
Inak, je priamo u FB celkom pekny nastroj "isql".
Kakacka Pavol
KasiX(zv)atlas(tec)cz
prejmenovat tabulku na FB
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 26.10.2002 07:19:28
From: "bleak" <bleak(zv)mvesely.com>
> Jak prejmenovat tabulku na FB?
> ALTER TABLE table1 RENAME table2 //tak bych to delal na MySQL
Bohuzial! Vygeneruj si DDL tabulky (skript) a tabulku znovu vytvor pod inym
menom. :(
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Freereport ???
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.10.2002 07:42:42
> stahnul jsem si od nekud FreeReport (myslim ze je snad z Ruska)
> protoze jsem potreboval genereator sestav kterej jse schopnej
> exportovat i do rtf apod...
Ahoj,
jen pro info - export do rtf a html umi i Sinea, vse je navic cesky. Viz
www.sinea(tec)cz. To jen, abys mel z ceho vybirat :)
Export do rtf pouzivame a funguje to vyborne.
David Lebeda
Vyuziti CPU
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.10.2002 08:07:38
> Prosim o radu,potrebuji programove zjistit aktualni vyuziti CPU.
> Nasel tipy pro Win95/98,ale pro NT,2000,XP bohuzel nic.
>
> Nevite nekdo nahodou,jak na to?
Pouzi performance counters, a info na
http://support.microsoft.com/default.aspx?scid=KB;en-us;q262938
HTH
TOndrej
Service pro Win2K, rizeni behu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 26.10.2002 08:12:47
Ahoj,
nevite nekdo jak zjistim ze mi bezi service (ze je instalovana a ze je spustena/zastavena) a jak do programu service poslat registrovanou zpravu? A jak se da jinym programem zastavit?
Diky
Jaro B.
Pouziti IBRestoreService
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.10.2002 08:26:17
> no, nevim, proc obnova selze; mozna bys mohl obnovu udelat (na prani
> uzivatele) do nejake Temp databaze, a kdyz by tahle obnova probehla
> dobre, udelat pak obnovu na ostro... Nebo pred obnovou jeste udelat
> zalohu te stavajici databaze... Pravda, znamena to zdrzeni, ovsem jak
> casto se to bude pouzivat?
Asi by bylo vhodne vysvetlit, k cemu to potrebuji. Tady jde o neco jineho. Zalohovani
se provadi dvakrat denne automaticky mimo rizeni aplikace - o tom rec neni.
Ale zalohu a obnovu se doporucuje provadet obcas z cvicnych duvodu, aby se
databaze procistila. Mame databazi s nekolika sty tabulek. Jednou za cas tam prijdu
se skriptem a strukturu databaze chci doplnit, popr. opravit chyby. Chci proto predtim
databazi zazalohovat, a kdyz se pak neco nepovede (z ruznych duvodu), obnovenim
se vratit k puvodnimu stavu.
Bohuzel, pokud je gdb soubor "trochu naboreny", muze vzniknout problem. Napr.
obnova vyhucela na tom, ze v jedne tabulce v poli not null byly tri radky s hodnotou
null. To uz jsem psal pred casem. Je uplne jedno, jak a proc to vzniklo, podstatne je,
ze obnova ze zalohy kvuli tomu zkolabovala. Kdybych obnovoval rovnou do
puvodniho souboru, tak mam gbk soubor, ze ktereho nelze provest obnovu a kousek
noveho gdb souboru. Nejsem pak schopen se vratit ani do stavu platneho pred tim,
nez jsem vubec prisel.
Provest obnovu nejprve cvicne do pomocneho souboru a v pripade uspechu teprve
do ostreho souboru by bylo hezke, kdyby ta obnova netrvala pul hodiny.
Reseni to ale asi nema, jelikoz v jinem threadu jsem se pred chvili docetl, ze tabulku
(a asi ani databazi) prejmenovat proste nejde.
David Lebeda
Service pro Win2K, rizeni behu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.10.2002 08:34:33
>nevite nekdo jak zjistim ze mi bezi service (ze je instalovana a ze
je spustena/zastavena)
mas v podstate dve moznosti:
a) Tvuj program zaregistruje nejaky globalni objekt (mapovany file
atd) pod jmenem, ktere budes hledat (zkouset otevrit)
b) zeptas se primo service manageru, zda dana sluzba bezi
>a jak do programu service poslat registrovanou zpravu?
zrejme PostMessage/SendMessage s HWDN_BROADCAST flagem? Pripadne pokud
zjistis handle na thread sluzby pak PostThreadMessage..
>A jak se da jinym programem zastavit?
zase (pokud ma program prislusna prava) komunikaci se service
managerem:
schManager := OpenSCManager(NIL,NIL,SC_MANAGER_ALL_ACCES);
if schManager <> 0 then
begin
schService :=
OpenService(schManager,c_ServiceName,SERVICE_ALL_ACCESS);
if schService <> 0 then
begin
if ControlService(schService,SERVICE_CONTROL_STOP,ssStatus) then
Zdravi
D. Toman
Pouziti IBRestoreService
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 26.10.2002 08:35:17
Lebeda David dne 26 Nov 2002 v 8:26:
> Reseni to ale asi nema, jelikoz v jinem threadu jsem se pred chvili
> docetl, ze tabulku (a asi ani databazi) prejmenovat proste nejde.
Ahoj,
jeste me napada, ze by sis mohl napsat service, ktera pobezi na stejnem PC jako IB server. Udelal
bys obnovu do nejakeho temp souboru a zkusil se k nemu pripojit. Pokud by to proslo, poslal bys te
Tve service pres TCP/IP zadost o zruseni puvodni databaze a prejmenovani te temp na normalni.
Pokud k zadne z tech dvou databazi nebude v tu chvili nikdo pripojen, melo by to nejspis fungovat,
i kdyz potvrdit by to mel spis Pavel Cisar :-) Pres TCP/IP se k tomu serveru urcite pripojis a
nepotrebujes tam zadne sdileni ani pristupova prava.
Karel Rys
Podobn� ��sla
[*] <tuffi(zv)email(tec)cz> - 26.10.2002 08:57:18
Ahoj,
teoreticky by mohlo byt reseni, kdyz bys vyhledaval jako varcharovou polozku stylem
select ..... where (cislo like '_123456')or(cislo like '0_23456')...
melo by to najit vsechny. _ zastupuje jeden znak
--- P�vodn� zpr�va ---
Od: Pavel <pavel.skulil(zv)jerid(tec)cz>
Datum: 25.11.2002 14:26:31
M�m v datab�zi tabulku dvan�ctim�stn�ch ��sel (��dov� statis�ce
polo�ek). A m�m prom�nnou, ve kter� je n�jak� dvan�ctim�stn� ��slo.
Pot�ebuju zjistit, jestli se v datab�zi nach�z� polo�ka shodn� (co� je
trivi�ln�), nebo polo�ka podobn� (li��c� se v jedn� libovoln�
��slici). Zat�m to �e��m tak, �e si vytvo��m pomocnou tabulku
potenci�ln�ch podobn�ch ��sel (tj. 12 x 10 = 120 ��dk�) a porovn�v�m
ji s "velkou" tabulkou. Funguje to, ale pot�ebuji to cel� velmi dob�e
optimalizovat na rychlost (ob� tabujky jsou pochopiteln� indexovan�).
Je jin� mo�nost? N�jak� n�pady? Mockr�t d�kuji...
--
Best regards,
Pavel mailto:pavel.skulil(zv)jerid(tec)cz
______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!Service pro Win2K, rizeni behu
[*] Petr Langer <langer(zv)xdom(tec)cz> - 26.10.2002 08:57:16
Stahni si http://www.jgsoftware.com/Software/jgnt20.zip, jsou to OSS
knihovny pro NT. Vyvoj je sice ukoncen, ale je to funkcni.
V JCL jsou taky knihovny, ktere to umi i s ukazkama (NtSvc*.*).
HTH
pl
----- Original Message -----
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 26, 2002 8:12 AM
Subject: Service pro Win2K, rizeni behu
Ahoj,
nevite nekdo jak zjistim ze mi bezi service (ze je instalovana a ze je
spustena/zastavena) a jak do programu service poslat registrovanou zpravu? A
jak se da jinym programem zastavit?
Diky
Jaro B.
Spravny VGA driver pro Delphi
[*] Vojtech Albrecht <vojtech.albrecht(zv)quick(tec)cz> - 26.10.2002 09:00:14
Nepouzivam zrovna tuto kartu ale problem by mohl bejt
v Hardwarova akcelerace .Zkus j� dat na minimum.
(Zobrazeni-Vlastnosti-Poradce pri potizich)
>
> ----- Original Message -----
> From: "Petr Fojt�k" <fof(zv)foresta(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, November 22, 2002 3:50 PM
> Subject: Spravny VGA driver pro Delphi
>
>
> Dobry den, nepouzivate nekdo na Windows2000 VGA kartu
> "3D Prophet 4500 TV OUT", 32MB od firmy Hercules ?
> Nemuzu s ni rozchodit svoje Delphi4, mam rozbite ikony.
> Zatim se mi nepodarilo najit driver, ktery je nekazi.
> Dekuji za radu.
> `````````````````````````````````````````````````````````````
> Petr Fojt�k, fof(zv)foresta(tec)cz
>
>
Re[2]: Freereport ???
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.10.2002 09:03:05
<<< 26. 11. 2002 9:01 - Lebeda David "david.lebeda(zv)comarr(tec)cz" >>>
LD> jen pro info - export do rtf a html umi i Sinea, vse je navic cesky.
OK, ale FastReport aj FreeReport ma lokalizacie do roznych jazykov.
Zvlada plno veci, ktore este Sinea len planuje.
--
Best regards, TRoland
MAPI - zjisteni odchozi adresy (Jeste jednou)
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 26.10.2002 09:04:09
Zdravim,
Jak zjistim emailovou adresu, ktera bude v emailu odeslanem pres MAPI
(TJCLEmail) jako adresa OD:
Nebo to nejde?
Diky,
Danik
Re[2]: Pouziti IBRestoreService
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.10.2002 09:07:41
<<< 26. 11. 2002 9:04 - Lebeda David "david.lebeda(zv)comarr(tec)cz" >>>
LD> Bohuzel, pokud je gdb soubor "trochu naboreny", muze vzniknout problem. Napr.
LD> obnova vyhucela na tom, ze v jedne tabulce v poli not null byly tri radky s hodnotou
LD> null. To uz jsem psal pred casem. Je uplne jedno, jak a proc to vzniklo, podstatne je,
LD> ze obnova ze zalohy kvuli tomu zkolabovala.
Moj nazor je ze ak si do tabulky robil Alter Table XXX add ColumnABC
... not null, tak si to hned mal aj naplnit niecim, lebo iste vies, ze
IB/FB nekontroluje naplnenie not null poloziek, lebo v pridavani
stlpca nie je mozne zadat nieco ako alter table XXX add ColumnsABC
smallint not null (value=0); Musis to urobit na dva kroky, ale nesmies
na to zabudnut. A tento problem by si nemal.
--
Best regards, TRoland
Vytvorenie aliasu cez Session
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.10.2002 09:14:26
Pouzivam toto, ale nepsal jsem to. Je to ale bez ulozeni do konfiguracniho
souboru:
function SetBDEEnvironment: boolean;
{ nastavi parametry prostredi pro BDE - Alias, adresare atd. }
var MyParams: TStringList;
begin
Session.Active:= false; { uzavri session }
Session.ConfigMode:= cmAll;
if not Session.IsAlias('ITR_CISELNIKY') then
Session.AddStandardAlias('ITR_CISELNIKY',G2.DirDB_General,'PARADOX');
if not Session.IsAlias('ITR_EMPTY') then
Session.AddStandardAlias('ITR_EMPTY',G2.DirDB_Empty,'PARADOX');
MyParams:= TStringList.Create;
MyParams.Clear; { uprav adresar u databaze ciselniku }
MyParams.Add ('PATH='+G2.DirDB_General);
Session.ModifyAlias ('ITR_CISELNIKY',MyParams);
MyParams.Clear; { uprav adresar u prazdnyh databazi }
MyParams.Add ('PATH='+G2.DirDB_Empty);
Session.ModifyAlias ('ITR_EMPTY',MyParams);
MyParams.Free;
Result:= true;
end;
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: Vytvorenie aliasu cez Session
Na Forme mam komp. Session, vsetky vlastnosti mam nadstavene
nasledovne:
AutoSessionName True
Active True
v udalosti OnCreate hlavneho Formu mam:
begin
Session.AddStandardAlias('Blok', 'D:Program Files\Gardap\data',
'Paradox' );
Session.SaveConfigFile;
end;
a nefunguje mi to!
MySQL vs. Transakcie
[*] Robert Suska <delphi(zv)korak.sk> - 26.10.2002 09:15:33
Ahojte!
Z Delphi chceme pracovat s MySQL serverom. Pri rieseni nasej aplikacie
potrebujeme aj transakcie. Bohuzial v dokumentacii sme nerarazili ze by
MySQL server vedel pracovat s transakciami. Nasa otazka je ci podporuje
MySQL server transakcie? Mame server postaveny na Linuxe a pripajame sa s
Delphi 6-7 Ent. OS pre clienta Win 2000 / XP
Dakujeme
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
MyProgram.exe.Manifest
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.10.2002 09:15:41
www.zive(tec)cz a hledej "manifest". Bylo soucasti serialu o Delphi
Soubor Manifest ma strukturu XML a tusim, ze musi byt v UTF-8
Bud jej mas jako externi soubor nebo je soucasti aplikace pomoci
resource.
Obsah:
===============================
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="Tvuj program"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Windows Shell</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
25.11.2002 Roland Turcan:
> Hello delphi-l(zv)clexpert(tec)cz!
> Cim sa tvoria subory pre XP s priponou Manifest, alebo ake su tam
> podmienky?
> Dakujem.
soucet CHAR poli na FB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 26.10.2002 09:30:13
Haj hou!
On 25 Nov 2002 at 16:37, bleak wrote:
> kdyz provedu:
> SELECT (prijmeni || ',' || jmeno) as jmeno FROM table
> tak ve vysledku pole jmeno vypada takto:
>
> |Novak ,Petr |
>
> jak se vyhnout tem mezeram, ktere tam jsou doplneny na velikost puvodnich
> poli?
> Existuje neco jako funkce TRIM na odstraneni mezer? V popis funkci pro
> Interbase nic takoveho neni.
Funkce LTRIM a RTRIM jsou v knihovne ib_udf dodavane s Firebirdem. Skript
na definici UDF do databaze je v podadresari examples.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Pridani uzivatele na Firebird pod linuxem
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 26.10.2002 09:30:13
Haj hou!
On 25 Nov 2002 at 15:21, Libor Filip wrote:
> Ahoj Konference,
> delam zacatecnicke pokusy s Firebirdem pod linuxem
> a nevim jak pridat dalsiho uzivatele. Muzete mi nekdo
> poradit?
V /opt/interbase/bin je program gsec
> Existuje neco ja IBConsole pod linuxem?
Treba IBAccess na http://sf.net/projects/ibaccess
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
MySQL vs. Transakcie
[*] Marek Eichler <marek.eichler(zv)seznam(tec)cz> - 26.10.2002 09:39:02
Zdravim,
----- P�vodn� zpr�va -----
Od: "Robert Suska" <delphi(zv)korak.sk>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 26. listopadu 2002 9:15
P�edm�t: MySQL vs. Transakcie
> Ahojte!
>
> Z Delphi chceme pracovat s MySQL serverom. Pri rieseni nasej aplikacie
> potrebujeme aj transakcie. Bohuzial v dokumentacii sme nerarazili ze by
> MySQL server vedel pracovat s transakciami. Nasa otazka je ci podporuje
> MySQL server transakcie? Mame server postaveny na Linuxe a pripajame sa s
> Delphi 6-7 Ent. OS pre clienta Win 2000 / XP
>
**** MySQL v zaklade transakce neumi, ale tusim, ze pro verzi 3 existuji
nejaka reseni od jinych progrmatoru. Verze 4 snad bude transakce podporovat.
Asi nejlepsi odpoved dostanes na nejake konferenci o PHP nebo o DB.
Doporucuju www.builder(tec)cz, kde je jak konference o PHP, tak o Databazich a
na obou se tohle uz nejakym zpusobem resilo
S pozdravem Marek Eichler
Barva u buttonu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 26.10.2002 09:42:16
Ales Kerner, <mailto:kerner(zv)metalcom(tec)cz>:
AK> Nevite nekdo jak zmenit barvu u buttonu?
Button.Brush.Color := clRed;
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1