Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
CreateThread a predavani argumentu funkci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 02:13:36
From: "Jan Krizek" <krizek(zv)vitasw(tec)cz>
> 2. Neostrena vyjimka bude spravne zpracovana RTL ...
> Opravdu? Ja delam vsechny thready pres TThread a vim, ze kdyz zapomenu
> na osetreni vyjimky v Execute, tak na W9x se mi objevi modra smrt a v NT
V Delphi 5 je obsluha v TThread stejna jako v BeginThread. V Delphi 6 je cela
metoda Execute uzavrena v try..except bloku a pripadna neosetrena vyjimka je
pak dostupna v TThread.FatalException property.
Co neni dobre je to, ze dojde k BSOD na Windows 9x, pokud aplikace nebezi pod
debuggerem. Na jakych Windows se tak presne deje ? Zkousel jsem to jen na
Win95 OSR2 a tam se to tak chova. Po trose zabavneho ladeni se ukazalo, ze k
tomu dojde ve volani UnhandledExceptionFilter. Je to stejne i na Win98/Me ?
Petr Vones
TIBTransaction,ApplyUpdate URGENTNIIII
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 22.7.2002 06:13:35
Musis si komitnout i tu druhou transakci (transakce2.Commitreatining;)
Funguje to tak, ze v ramci transakce muzes a nemusis mit vice TIBDataset
(resp. Query, Table). Transakce.Commit ti potvrdi transakci a zavre vsechny
datasety, ktere tuto transakci pouzivaji (IBDataset.State.dsInactive),
CommitReatining ti potvrdi zmeny a necha prislusne datasety otevrene
(IBDataset.State.dsBrowse). Pokud chces tyto zmeny v ramci jinych transakci
videt, musis jeste udelat u prislusnych datasetu tech dalsich transakci
refresh a to bud pomoci tushim TDataset.RefreshSQL nebo
TDataset(DisableControls->Close->Open->Locate->EnableControls)...
Sroub
>
> Ahoj kluci muzete mi nekdo popsat jak ridit IBTransaction a jak updateovat
> datasety...Nejak tomu nerozumim,
> Kdyz zavolam starttransaction a commit transaction u jedne transakce a
> otevru a zavru jiny dataset co ma jinou transakci tak se tam zmeny
neobjevi.
> Muzete mi nekdo strucne popsat jak mam optimalne ridit transakce a jak je
> potvrzovat a jak pracovat s transakcema v PREHLED/DETAIL a jak idealne
> potvrzovat jednotlive akce.... NEBO MI POSLAT NEJAKOU UKAZKU....MOC BY MI
TO
> POMOHLOOO...DEKUJI...
>
> dotedka jsem to vse delal tak ze jsem mel na vse jednu transakci a tu jsem
> furt potvrzoval...
> jak ty zatroleny transakce fungujii...PLEASEEEE....
>
> Ales Pavel
> D6 Ent WXP
> laik v profesionalnim kolotoci
SQL - ruzne hodnoti poli do jinych poli
[*] =?koi8-r?B?SW5nLiBQYXZlbCCOaWxpbmVj?= <zilinec(zv)email(tec)cz> - 22.7.2002 07:39:19
Jeste by to slo nasledujicim zpusobem:
select ID_Klient,
M01 = sum(case ID_Mesic when 01 then 1 else 0 end),
M02 = sum(case ID_Mesic when 02 then 1 else 0 end),
M03 = sum(case ID_Mesic when 03 then 1 else 0 end),
M04 = sum(case ID_Mesic when 04 then 1 else 0 end),
M05 = sum(case ID_Mesic when 05 then 1 else 0 end),
M06 = sum(case ID_Mesic when 06 then 1 else 0 end),
M07 = sum(case ID_Mesic when 07 then 1 else 0 end),
M08 = sum(case ID_Mesic when 08 then 1 else 0 end),
M09 = sum(case ID_Mesic when 09 then 1 else 0 end),
M10 = sum(case ID_Mesic when 10 then 1 else 0 end),
M11 = sum(case ID_Mesic when 11 then 1 else 0 end),
M12 = sum(case ID_Mesic when 12 then 1 else 0 end)
from Tabulka
group by ID_Klient
U tech mesicu to pak nacita jejich pocet, tj. kde neni nula, tak byl
takovy mesic pritomny. Myslim, ze toto reseni vypada op trochu lepe a
na MSSQL jsem s 'case' nemel problemy, co se tyce ryhlosti.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
b> zdravim,
b> subj. je asi trochu nesrozumitelny. mam tabulku, kde jsou pole ID_KLIENT a
b> ID_MESIC. Kazde pole ID_KLIENT ma zaznamy s ID_MESIC v rozmezi 1-12.
b> Potreboval bych udelat SELECT tak, aby ve vysledku byl od kazdeho ID_KLIENT
b> jeden zaznam a ID_MESIC by bylo ulozeno v polich M1 - M12.
b> Nejak se mi nedari vytvorit vhodny SQL dotaz. Poradi nekdo, jak jej
b> vytvorit?
b> bleak
b> tabulka:
b> ID_KLIENT=100; ID_MESIC=1
b> ID_KLIENT=100; ID_MESIC=2
b> pozadovany vysledek:
b> ID_KLIENT=100;M1=1;M2=2;M3=Null
b> (M3=null, protoze neni zaznam ID_KLIENT=100;ID_MESIC=3)
b> atd...
D6 Personal
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.7.2002 07:59:21
Pro Personal verzi nelze pou��vat datab�zov� komponenty - program ti je
"nese�ere"...
Rumcajs
> Zdrav�m,
>
> Rad bych pouzival Delphi6 personal - nevite nekdo zda se nevali nekde na
> internetu komponenty pro Interbase?
> Staci mi pripojeni k IB serveru, IBQuery, IBTable + naky komponenty jako
> jsou Datasource a DBGrid.
> nechce se mi kupovat D6 professional, ale pokud to jinak nepujde tak budu
> muset :(
>
> Dik PEtr
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.374 / Virov� b�ze: 209 - datum vyd�n�: 9.7.2002
Pouzivani PChar jako navratovych hodnot z DLL funk
[*] "Jon� Mari�n, Ing." - 22.7.2002 08:00:54
>>Neni treba nejprve v aplikaci alokovat pamet pro TextChyby ?
> Dalibor Toman napsal :
>
> ano to jedno ze spravnych reseni.
>
> D. Toman
Mohu se optat jake jsou i jina spravna reseni ?
Marian Jonas
Pouzivani PChar jako navratovych hodnot z DLL funk
[*] "Jon� Mari�n, Ing." - 22.7.2002 08:07:36
> From: "Jon� Mari�n, Ing." <Jonas(zv)komercpoj(tec)cz>
> > Pro volani funkci v DLL knihovnach pouzivam tuhle strukturu :
> > type
> > TNChyba = record
> > KodChyby: integer;
> > TextChyby: PChar;
> > end;
>
> Petr Vones napsal :
> Pokud ta DLL slouzi jen jako zdroj chybovych zprav na zaklade
> ID tak by bylo
> asi lepsi to ulozit do resource jako String table nebo
> Message table a pouzit
> standardni API funkce.
>
> Petr Vones
Ta funkce provadi mat. vypocty. Vraci nejake vypoctene hodnoty a
zaroven take vraci chybovou hlasku ktera vetsinou vznika pomoci
funkce Format a dalsich stringovych operaci.
Marian Jonas
SimpleMAPI - hromadna korespondence
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 22.7.2002 08:08:32
Mate pravdu. Byla tam chyba. Bohuzel nevim jaka. Hlavne me zarazi, ze z
Delphi to jede, ale samostatne ne. :-)
Nicmene, jsem otestoval dalsi 4 komponenty a jedny z nich bezi bez problemu.
Takze se omlouvam za plany poplach. :-(
Dekuji za odpovedi.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
Komunikace pres modem
[*] Tomas Cieslar <cieslar(zv)efisyst(tec)com> - 22.7.2002 08:11:12
Cau,
nejprve musis zvladnout komunikaci pres seriovy port. K tomu lze pouzit
nejakou free komponentu, napr. AsyncFree, tu najdes zde
http://sourceforge.net/projects/asyncfree. Pripadne lze pouzit primo API
Windows, ty jsou popsany v napovede WinSDK. Samotny modem se ovlada pomoci
tzv. AT prikazu, coz jsou retezce znaku, vzdy AT + cosi. Popis prikazu lze
urcite ziskat u vyrobcu nebo v nejake literature venujici se seriove
komunikaci. Pokud se modemy spoji, potom komunikujes po seriove lince,
stejne jako by pocitace byly spojeny primo.
Cieslar
----- Original Message -----
From: "J�n Harman" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, July 21, 2002 9:40 PM
Subject: Komunikace pres modem
> Ahoj poradte prosim jak mam zacit. Potrebuji komunikovat pres modemy
(vymena
> dat). Co delat abych se spojil se vzdalenym PC (vytocit cislo...) a jak
> komunikovat? Diky moc. Honza.
>
>
Hlavicka a polozky kontra FB
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.7.2002 08:20:07
> Ahoj potreboval bych vedet jak resite propojeni hlavicka a polozky pred
> ulozenim.
> Jde mi o to ze pokud vyplnim hlavicku a pak zacnu vyplnovat polozky tak
> nemam vlastne jeste ID na hlavicku protoze neni ulozena.Kdyz budu ale pri
> pokusu o vytvoreni prvni polozky volat GEN_ID,tak sice budu generovat
> idealne cislo ale pri stornu budu muset polozky smazat a GEN_ID se zvedne
o
> 1 nadarmo. Jak tohle resite vy? Mate nekdo nejaky trik?
No a jak to ukladas? Jestli stiskem nejakeho tlacitka <OK> nebo podobnym
zpusobem, tak ulozis hlavicku, ziskas ID a vlozis polozky.
Roman
==============================
http://kouzelne.misto(tec)cz
text v editu na udalost key(down/press)
[*] Peter Jarunek <p_jarunek(zv)hotmail(tec)com> - 22.7.2002 08:25:37
Zdravim,
po eventu keydown na editu chci edit.text := 'nejaky text';
jenomze vysledek je vzdy ten zmacknuty znak + dany text
a ja to potrebuji bez toho znaku! jenom 'nejaky text'...
umite mi s tim poradit? dik, peter
win2k server; delphi 6 enterprise;
_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com
text v editu na udalost key(down/press)
[*] Ing. Pavel �ilinec����)b���zf���3 - 22.7.2002 08:38:28
Dej si pred vyskocenim z KeyDown
Key := #0;
Tim se Ti zrusi ta stisknuta klavesa a nemelo by se to promitnout do
editu.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PJ> Zdravim,
PJ> po eventu keydown na editu chci edit.text := 'nejaky text';
PJ> jenomze vysledek je vzdy ten zmacknuty znak + dany text
PJ> a ja to potrebuji bez toho znaku! jenom 'nejaky text'...
PJ> umite mi s tim poradit? dik, peter
PJ> win2k server; delphi 6 enterprise;
text v editu na udalost key(down/press)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 08:41:48
Udelej to v OnKeyPress:
Edit.Text := 'nejaky text';
Key:=#0;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.7.2002 Peter Jarunek:
> Zdravim,
> po eventu keydown na editu chci edit.text := 'nejaky text';
> jenomze vysledek je vzdy ten zmacknuty znak + dany text
> a ja to potrebuji bez toho znaku! jenom 'nejaky text'...
Komunikace pres modem
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.7.2002 08:47:27
Ja osobne si mysli, ze kuprikladu Win2k ( ba dokonce snad i Win98SE ) umi
vlasnimi prostredky vytvorit spojeni mezi dvema pocitaci a po nem
provozovat TCP/IP a tudiz je problem vyresen. Jakekoliv jone reseni
povazuji za noseni drivi do lesa. Tudiz bych hledal nastaveni RAS serveru a
klienta (vytacene pripojeni na internet), eventuelne VPN pres internet.
Proto treba hledejte na Torry: RAS.> > nejprve musis zvladnout komunikaci pres seriovy port. K tomu lze pouzit
> > nejakou free komponentu, napr. AsyncFree, tu najdes zde
> > http://sourceforge.net/projects/asyncfree. Pripadne lze pouzit primo API
> > Windows, ty jsou popsany v napovede WinSDK. Samotny modem se ovlada pomoci
> > tzv. AT prikazu, coz jsou retezce znaku, vzdy AT + cosi. Popis prikazu lze
> > urcite ziskat u vyrobcu nebo v nejake literature venujici se seriove
> > komunikaci. Pokud se modemy spoji, potom komunikujes po seriove lince,
> > stejne jako by pocitace byly spojeny primo.
> >
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Komunikace pres modem
[*] J�n HARMAN - 22.7.2002 08:55:49
Dik.
Taky jsem se docetl tady na konferenci ze je dobre pouzit TAPI, kvuli tomu
ze kazdy modem muze mit ruzne AT prikazy. Tu jsem si stahl z Jedi, ale neni
k tomu zadny popis. Nemate nekdo nejaky help prosim? Nejlepsi by byl nejaky
priklad se spojenim. Dekuji moc. Honza.
> Cau,
>
> nejprve musis zvladnout komunikaci pres seriovy port. K tomu lze pouzit
> nejakou free komponentu, napr. AsyncFree, tu najdes zde
> http://sourceforge.net/projects/asyncfree. Pripadne lze pouzit primo API
> Windows, ty jsou popsany v napovede WinSDK. Samotny modem se ovlada pomoci
> tzv. AT prikazu, coz jsou retezce znaku, vzdy AT + cosi. Popis prikazu lze
> urcite ziskat u vyrobcu nebo v nejake literature venujici se seriove
> komunikaci. Pokud se modemy spoji, potom komunikujes po seriove lince,
> stejne jako by pocitace byly spojeny primo.
>
> Cieslar
>
> ----- Original Message -----
> From: "J�n Harman" <harman(zv)atlas(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Sunday, July 21, 2002 9:40 PM
> Subject: Komunikace pres modem
>
>
> > Ahoj poradte prosim jak mam zacit. Potrebuji komunikovat pres modemy
> (vymena
> > dat). Co delat abych se spojil se vzdalenym PC (vytocit cislo...) a jak
> > komunikovat? Diky moc. Honza.
> >
> >
>
>
text v editu na udalost key(down/press)
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 22.7.2002 08:55:01
Zkus doplnit
Key:= #0;
Karel
>From: Peter Jarunek [mailto:p_jarunek(zv)hotmail.com]
>
>
>Zdravim,
>
> po eventu keydown na editu chci edit.text := 'nejaky text';
>
> jenomze vysledek je vzdy ten zmacknuty znak + dany text
> a ja to potrebuji bez toho znaku! jenom 'nejaky text'...
>
> umite mi s tim poradit? dik, peter
>
D6 Personal
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 22.7.2002 09:02:00
Pro soukrome ucely muzes pouzit IBO, ktere obsahuje vsechno, co budes
potrebovat.
Osobne si myslim, ze D6Prof. dnes nestoji zas tak moc.
Martin Ben
> -----Original Message-----
> From: Petr K. [mailto:xdelphi(zv)seznam(tec)cz]
>
> Rad bych pouzival Delphi6 personal - nevite nekdo zda se
> nevali nekde na
> internetu komponenty pro Interbase?
> Staci mi pripojeni k IB serveru, IBQuery, IBTable + naky
> komponenty jako
> jsou Datasource a DBGrid.
> nechce se mi kupovat D6 professional, ale pokud to jinak
> nepujde tak budu
> muset :(
Sklad.pohyby,uzavreni uctu a commity
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.7.2002 09:03:42
Ahoj
z popisu neni zcela zrejme jake cinosti chces provadet a jak jsi schopen
operace rozkladat, presto:
Standardni reseni je :
----------------------
a) rollback vsech zmen a novy pokus (nikdy se nic nestalo).
b) reseni vsech "spravnych" polozek, uzavreni dokladu, "problematicke"
polozky budou reseny novym samostatnym dokladem mimo tuto transakci.
c) Kombinaci obou predchozich metod, prvni pokus "vsechno nebo nic" v
pripade chyby rollback a nabidka na reseni "alespon neceho" a nove
zpracovani.
Transakce je nutne vytvaret co nejkratsi, v zadnem pripade necekat na vstup
od uzivatele, jinak je nebezpeci deadlocku velmi vysoke !
Zrovna nedavno jsem resil jeden takovy system : pri testovani (3 uzivatele)
to autorum pracovalo jako brus (odezva cca 5-10 sekund na doklad) po
nasazeni do ostreho provozu normalni konec. Po cca 30 minutach provozu (cca
30 uzivatelu) sla odezva k cca 10 minutam na doklad. Reseni bylo v naprosto
hrubem rozbiti transakci a jejich zjednoduseni, doplneni dalsich connection
pro cteni prehledu(povolen dirty read,...).
Pavel
> From: Ludek Paral [mailto:ludek.paral(zv)quick(tec)cz]
> resim obecne uzavirani uctu se sklad.pohyby na SQL servru.
>
> Ukol zni :
> - zkontrolovat formalni platnost dat, spojeni s cenikem,
> dostatecne zasoby
> - zakazat editaci uctu ostatnim uzivatelum
>
> pro kazdou polozku uctu :
> - zakazat editaci polozky ceniku (aby se neprovedlo v jednom
> okamziku na dvou mistech sql s updatem sklad.cen, jelikoz by
> pak se jedna zmena nezaznamenala
> - provest snizeni nebo zvyseni skladu, sklad pohyby
> - oznacit polozky uctu statusem uzavrene
> ---------------------------------
> - povolit prohlizeni uctu ostatnim uzivatelum.
>
> Jake by mohlo byt nejlepsi reseni:
> 1. V pripade problemu na nektere polozce uctu (neexistujici
> veta v ceniku, chyba pri zapisu do skl.polozek...) provedu
> rollback zmen na polozce uctu, ta zustava otevrena pro opravy
> a status uctu zustane - nevyrizen (je ovsem zakazana moznost
> editovat uzavrene polozky)
> 2. V pripade problemu se pokusit o navrat zmen na vsech
> polozkach (jenze zde nemohu asi provest jen rollback - napr.
> po zmene skl.ceny v ceniku musim provest commit, aby i dalsi
> klienti videli zmenu skladu a mohli provest spravne zmenu
> skladu, pred editaci ceniku musim provest commit statusu, aby
> mi dalsi klienti nelezli do zeli ...
>
> - nebo jina jednoducha myslenka
>
> Ludek
>
kolik pouziva aplikace pameti
[*] likeapear <likeapear(zv)centrum(tec)cz> - 22.7.2002 09:19:53
ahoj vsem,
potrebuji nejakym zpusobem zjistit, kolik pameti vyuziva moje aplikace (na
NT/W2K/XP) abych to na nejakym zpusobem mohl reagovat. hledal jsem v WinAPI
a nenasel...
diky
likeapear
CreateThread a predavani argumentu funkci
[*] Jan K��ek - 22.7.2002 09:25:12
> V Delphi 5 je obsluha v TThread stejna jako v BeginThread. V
> Delphi 6 je cela
> metoda Execute uzavrena v try..except bloku a pripadna
> neosetrena vyjimka je
> pak dostupna v TThread.FatalException property.
>
Takze pro me (Delphi5) je spravne reseni si tam to try ... exception
pridavat.
> Co neni dobre je to, ze dojde k BSOD na Windows 9x, pokud
> aplikace nebezi pod
> debuggerem. Na jakych Windows se tak presne deje ? Zkousel
> jsem to jen na
> Win95 OSR2 a tam se to tak chova. Po trose zabavneho ladeni
> se ukazalo, ze k
> tomu dojde ve volani UnhandledExceptionFilter. Je to stejne i
> na Win98/Me ?
>
Moc jsem to nezkoumal - ted se snazim delat vsechny thready s tim
ochranym blokem. Ale urcite to delalo i na W98( i SE - ty pouzivam
nejcasteji ). WinMe nevim ....
Honza +
TIBTransaction,ApplyUpdate URGENTNIIII
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.7.2002 09:37:11
> Ahoj kluci muzete mi nekdo popsat jak ridit IBTransaction a jak
> updateovat datasety...Nejak tomu nerozumim, Kdyz zavolam
> starttransaction a commit transaction u jedne transakce a otevru a
> zavru jiny dataset co ma jinou transakci tak se tam zmeny neobjevi.
> dotedka jsem to vse delal tak ze jsem mel na vse jednu transakci a tu
> jsem furt potvrzoval... jak ty zatroleny transakce
> fungujii...PLEASEEEE....
Ahoj,
zkusim nejak popsat princip. Predstav si, ze potrebujes udelat nejakou slozitou
operaci: v jedne tabulce neco smazat, v druhe vytvorit a ve treti upravit. Vymaz se
povede, insert se povede a update na treti tabulce z nejakeho duvodu krachne. V
tom pripade bys treba chtel i predchozi dve operace stornovat, uvest do puvodniho
stavu. K tomu prave slouzi transakce. Pred zapocetim vymazu reknes "ted zahajuji
trnasakci" a pak zkusis udelat vymaz, insert a ten update. Kdyz se vsechno povede,
na konci reknes "commit" a ty tri operace se prohlasi za platne. Kdyz zjistis, ze se
neco nepovedlo, muzes rict "rollback" a pak vse, co v ramci transakce bylo
provedeno, se uvede do puvodniho stavu. U transakci proto musis vzdy zvazovat, co
predstavuje v konkretnim pripade samostatnou nezavislou jednotku, kterou je treba
celou bud potvrdit nebo stornovat. Casto v transakci bude jen jeden prikaz, ale nekdy
ten logicky celek v jednom prikazu nelze provest. Transakce musi zajistit, aby se
neprovedlo treba jen pul pozadovane operace.
U FB v Delphi plati, ze prikazy tvorici transakci nemusi byt provadeny v jednom
datasetu. Tj. obecne muze mit vice datasetu jednu spolecnou transakci, ale casteji to
neodpovida logice veci a je obvykle smysluplne, aby kazdy dataset mel i svou vlastni
komponentu transakce.
1) Kazdy prikaz, tedy i select, musi byt proveden v ramci nejake transakce.
2) Dataset muze byt otevreny jen tehdy, je-li neukoncena i jeho transakce. Tj. mas-li
dbgrid, tak po celou dobu, kdy v nem ma byt neco videt, musi bezet transakce.
3) Pokud jsi pred otevrenim datasetu otevrel rucne transakci, zavreni datasetu
neznamena ukonceni transakce. To musis udelat ty rucne. Pokud pri pokusu o
otevreni datasetu neni transakce aktivni, dataset ji automaticky zahaji (IBDataset,
IBQuery apod., naopak IBSQL tuto automatiku nepodporuje).
4) Pokud zavres transakci, zpusobi to i zavreni vsech dosud otevrenych datasetu,
kvuli bodu 2.
Bod 4 je prave to nejvetsi riziko situace, kdy v aplikaci mas jednu komponentu
transakce spolecnou pro vsechny datasety. Pak totiz nekde udelas commit a ono to
zpusobi zavreni datasetu na jinem miste programu, aniz by sis to uvedomil. Naopak
ma-li kazdy dataset svou vlastni komponentu transakce, muzes se spolehnout, ze jeji
ukonceni nema vliv na jina zakouti programu.
Mimo to tez vis, ze komitujes ci rollbackujes opravdu jen zalezitost toho konkretniho
datasetu a ne treba nejaky rozpracovany ukon v jinem miste aplikace.
CommitRetaining a RollbackRetaining tak obvykle nepredstavuje spravne reseni
problemu, ale jen maskuje chyby pri praci s transakcemi.
Podle meho nazoru by mela byt snaha se Retaining ukoncenim transakci spise
vyhybat.
A ted k nastavenim transakci. Kdyz pouze polozis na form komponentu
IBTransaction, ma isolation level "snapsot". Tj. transakce vidi (v selectech apod.) jen
to, co bylo commitovane pred jejim zapocetim. Zmeny, ktere jsou commitovany
jinymi transakcemi (jini uzivatele nebo jine transakce v jedne aplikaci) po startu
transkace "snapshot" nejsou viditelne. V rade pripadu se to hodi a v rade to prekazi.
Po dvojkliku na komponentu transakce se objevi formularik, kde muzes isolation
level nastavit jinak. "Read commited" znamena, ze v ramci transakce vidis vsechny
zmeny commitovane jinymi transakcemi.
To by mohlo na uvod stacit. Jeste snad bych dal duraz na pouzivani try bloku, pokud
to jde, aby bylo garantovano ukonceni transakci:
1) Pro selecty:
IBTran.StartTransaction;
try
IBDataset.SelctSQL.Text := ...
...provedeni operaci nad dotazem
finally
IBTran.Commit;
end;
2) Pro inserty, updaty apod.:
IBTran.StartTransaction;
try
IBDataset.SelectSQL.Text := 'insert into...';
...provedeni prikazu
IBTran.Commit;
except
IBTran.Rollback;
//hlaseni o chybe zobrazit
end;
David Lebeda
Komunikace pres modem
[*] J�n HARMAN - 22.7.2002 10:07:51
Nejedna se o komunikaci se dvema PC, ale jedno PC a na druhe strane bude
Prumyslovy pocitac ke kteremu bude pripojen modem pres nejaky seriovy port.
Takze to chce asi ze zacatku resit spojeni mezi dvema modemy, aby se nejprve
domluvili na spojeni a potom uz to snad pujde.
diky Honza.
> Ja osobne si mysli, ze kuprikladu Win2k ( ba dokonce snad i Win98SE ) umi
> vlasnimi prostredky vytvorit spojeni mezi dvema pocitaci a po nem
> provozovat TCP/IP a tudiz je problem vyresen. Jakekoliv jone reseni
> povazuji za noseni drivi do lesa. Tudiz bych hledal nastaveni RAS serveru
a
> klienta (vytacene pripojeni na internet), eventuelne VPN pres internet.
> Proto treba hledejte na Torry: RAS.
>
> > > nejprve musis zvladnout komunikaci pres seriovy port. K tomu lze
pouzit
> > > nejakou free komponentu, napr. AsyncFree, tu najdes zde
> > > http://sourceforge.net/projects/asyncfree. Pripadne lze pouzit primo
API
> > > Windows, ty jsou popsany v napovede WinSDK. Samotny modem se ovlada
pomoci
> > > tzv. AT prikazu, coz jsou retezce znaku, vzdy AT + cosi. Popis prikazu
lze
> > > urcite ziskat u vyrobcu nebo v nejake literature venujici se seriove
> > > komunikaci. Pokud se modemy spoji, potom komunikujes po seriove lince,
> > > stejne jako by pocitace byly spojeny primo.
> > >
>
> S pozdravem
> Tomas Rosa
>
> ------------------------=[ pinknet on every
screen]=-----------------------
> Tomas Rosa
> Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
> +420 602 860 704
> PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
> --------------------------------------------------------------------------
-
>
kolik pouziva aplikace pameti
[*] Pavel T�e���k - 22.7.2002 10:10:38
Zkus MemProof (http://www.automatedqa.com/)
Pavel T�e���k [mailto:pavel.tresnak(zv)haida(tec)cz]
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of likeapear
Sent: Monday, July 22, 2002 9:20 AM
To: konference_delphi
Subject: kolik pouziva aplikace pameti
ahoj vsem,
potrebuji nejakym zpusobem zjistit, kolik pameti vyuziva moje aplikace (na
NT/W2K/XP) abych to na nejakym zpusobem mohl reagovat. hledal jsem v WinAPI
a nenasel...
diky
likeapear
Database MySQL na host.sk a pristup na ni
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 22.7.2002 10:17:04
Ahoj, jestli to neni tim, ze maji povoleny jenom pristup pres localhost.
Martin
-----Original Message-----
From: jtomecek [mailto:jtomecek(zv)dezadata(tec)cz]
Subject: Database MySQL na host.sk a pristup na ni
Omlouvam se za dotaz...ale nahodou mate nekdo vytvorenou MySQL databazi na
host.sk?
Proc se k ni nemuzu pripojit napr. pres Zeos Mysql komponenty....?
Drive to fungovalo...
Nejaky zmeny na host.sk?
Sinea tiskove sestavy
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 22.7.2002 10:38:50
Hi,
D5, Sinea 5.40.19
Mam tiskove sestavy s barevnymi texty i db polozkami, ale na CB tiskarnach
(Minolta SP3000, Minolta 1100PagePro, HP LaserJet4L, OkipageW) mi to ty
barevne polozky nevyjede. Nevite kde delam chybu? Na Minolta ColorPagePro to
je barevne bez problemu, cerne veci jsou OK i na cernobilych tiskarnach.
Zacalo to v okamziku, kdy jsem si upgadoval Sineu z verze 3.39x.
Nevite jak z demoverze zase dostanu ostrou verzi. Sest_ver.inc jsem
prekopiroval, ale nezadarila se kompilace (error in sestavy.pas)
Sroub
Problem s Exception
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 22.7.2002 11:07:35
Zdravim vsechny,
muj predchozi problem jsem vyresil (teda presneji receno obesel jsem ho),
ale vyvstal mi problem jiny.
V databazi mam ulozeny zaznam, ktery loaduji do detailoveho okna. Jeden udaj
ale porusuje bussines rules a tady je ten problem. Pokud se snazim loadnout
tento zaznam tak pri prirazovani do tohoto fieldu se vygeneruje vyjimka
(kterou ale sam odchycuji a zpracovavam v bloku try...except), ale problem
je v tom, ze nasleduje vyjimka Index out of bounds, ktera se vygeneruje na
cteni z IBDataset.Fields. Tento objekt ma najednou nastaveno Count na 0 coz
vubec nema byt pravda. Pravdepodobne to souvisi i s mym prechozim dotazem
kdy dochazelo ke stejnemu podivnemu chovani v pripade zobrazeni jakehokoliv
formulare... (MessageBox, MessageDlg...).
Tady jsou zdrojaky dotcenych metod:
function TDBRecord.DoLoadRecord(const Key: TDBColumnList): boolean;
var
TransactionRunning: boolean;
ColumnList: string;
i: integer;
begin
Result := false;
if Gor3WinApp.DBEngine = dbe_IB_6 then
begin
for i := 0 to Pred(FColumns.Count) do
if Assigned(FColumns[i]) then
if ColumnList = '' then
ColumnList := FColumns[i].ColumnName
else
ColumnList := ColumnList + ', ' + FColumns[i].ColumnName;
IBDataSet.SelectSQL.Text := 'Select ' + ColumnList + ' from ' +
TableName +
iff(Length(getWhereStr(Key)) = 0, '',
#13+'where'+#13+getWhereStr(Key));
TransactionRunning := IBDataset.Transaction.InTransaction;
Gor3WinApp.DoOnBeforeSQLStatement;
if not TransactionRunning then
IBDataset.Transaction.StartTransaction;
IBDataset.Prepare;
IBDataset.Open;
if IBDataset.RecordCount <> 0 then
begin
for i := 0 to Pred(IBDataSet.FieldCount) do
begin
if Assigned(ColumnByName(IBDataSet.Fields[i].FieldName)) then
{!!! Na nasledujicim radku prirazuji konkretni hodnotu, ktera porusuje
bussines rules !!!}
ColumnByName(IBDataSet.Fields[i].FieldName).asVariant :=
IBDataSet.Fields[i].AsVariant;
{!!! A tady to spadne na Index out of bounds !!!}
if Assigned(KeyColumnByName(IBDataSet.Fields[i].FieldName)) then
KeyColumnByName(IBDataSet.Fields[i].FieldName).asVariant :=
IBDataSet.Fields[i].AsVariant;
end;
Result := true;
end;
IBDataset.Close;
if not TransactionRunning then
IBDataset.Transaction.Commit;
Gor3WinApp.DoOnAfterSQLStatement;
FRecordState := rsUpdate;
end;
end;
procedure TTypeEdit.setAsVariant(const Value: Variant);
var
OldVal: Variant;
begin
if VarIsNull(Value) or VarIsEmpty(Value) then
begin
OldVal := asVariant;
Text := '';
DoChangeValue(OldVal);
end
else
case FEditType of
etInteger: asInteger := Value;
etSmallInt: asSmallInt := Value;
etFloat: asFloat := Value;
etDoublePrecision: asDoublePrecision := Value;
{!!! Jedna se o typ Numeric tudiz se vyvola nasledujici radek !!}
etNumeric: asNumeric := Value;
etDate: asDate := Value;
etTime: asTime := Value;
etCharacter: asCharacter := Value;
end;
end;
procedure TTypeEdit.setAsNumeric(const Value: Currency);
var
OldVal: Variant;
begin
OldVal := asVariant;
if Text <> FloatToStr(Value) then
begin
Text := FloatToStr(Value);
Modified := true;
end;
DoChangeValue(OldVal);
end;
procedure TTypeEdit.DoChangeValue(OldValue: Variant);
begin
FLastValInOnChangeValue := asVariant;
{!!! Nasledujici dva radky jsou nezajimave, protoze jeden priznak cele
vykonavani potlaci !!!}
if Assigned(FDataLink) then
FDataLink.ControlChanged(self, self.asVariant);
if Assigned(FOnChangeValue) then
FOnChangeValue(self, OldValue, self.asCharacter);
end;
procedure TCisTypeEdit.DoChangeValue(OldValue: Variant);
begin
inherited;
if (Length(Text) = 0) and Assigned(FCisTextLabel) then
FCisTextLabel.Caption := '';
if Length(Text) <> 0 then
Validate(false,false);
end;
function TCisTypeEdit.Validate(CheckRequired: boolean; OpenForm: boolean{;
ShowErrors: boolean}): boolean;
var
Value: Variant;
begin
Value := asVariant;
Result := Validate(Value, CheckRequired{, ShowErrors});
end;
function TCisTypeEdit.Validate(var Value: Variant; CheckRequired: boolean;
OpenForm: boolean{; ShowErrors: boolean}): boolean;
var
IsValid: boolean;
Val: Variant;
begin
Result := false;
try
if Length(Text) = 0 then
begin
if Length(getValueIfBlank) <> 0 then
begin
Text := getValueIfBlank;
DoChangeValue(Null);
end;
end;
Val := Value;
DoValidate(Value, CheckRequired, OpenForm);
if VarCompareValue(Value, Val) <> vrEqual then
Text := Value;
if Assigned(FOnValidate) then
begin
IsValid := true;
{!!! Tady je volana uzivatelska validace a na ni mam "povesenou" obsluhu
!!!}
FOnValidate(self, IsValid);
Result := IsValid;
end
else
Result := true;
except
on E: EValidateError do
begin
Self.SetFocus;
if FShowErrors and (Length(E.Message) <> 0) then
Application.MessageBox(PChar(E.Message), 'Chyba', MB_OK +
MB_ICONERROR);
end;
end;
if Result then
FLastValInValidate := asVariant
else
begin
asVariant := FLastValInValidate;
if Focused then
SelectAll;
end;
end;
procedure Tf_E_ZList.e_ID_ETSCORJ_DODValidate(Sender: TObject; var IsValid:
boolean);
begin
if Rec.DOD_ETSCORJ_Detail.EXTERNI.asBoolean then
raise EValidateError.Create('Dodavatel nesm� b�t extern� organizace
!!!');
end;
Spravne to skoci do sekce Except v metode TCisTypeEdit.Validate, ale tam
jako by ta vyjimka nezanikla a zpusobila vymaz vsech polozek v
IBDataset.Fields (metoda TDBRecord.DoLoadRecord).
Prosim vsechny o pomoc. Je to opravdu urgentni....
Dalsi info na soukr. mailu...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Pouzivani PChar jako navratovych hodnot z DLL funk
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.7.2002 11:11:15
>Mohu se optat jake jsou i jina spravna reseni ?
:-)
kazde reseni, ktere zaruci, ze prislusna pamet je platna ve chvili,
kdy se k ni pristupuje je platne.
D. Toman
Hlavicka a polozky kontra FB
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 22.7.2002 11:32:32
----- Original Message -----
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> > Jde mi o to ze pokud vyplnim hlavicku a pak zacnu vyplnovat polozky tak
> > nemam vlastne jeste ID na hlavicku protoze neni ulozena.Kdyz budu ale pri
> > pokusu o vytvoreni prvni polozky volat GEN_ID,tak sice budu generovat
> > idealne cislo ale pri stornu budu muset polozky smazat a GEN_ID se zvedne
> o
> > 1 nadarmo. Jak tohle resite vy? Mate nekdo nejaky trik?
>
> No a jak to ukladas? Jestli stiskem nejakeho tlacitka <OK> nebo podobnym
> zpusobem, tak ulozis hlavicku, ziskas ID a vlozis polozky.
Ano, to je samozrejme spravne reseni. Pokud ale napr. pri zapisu do radku
dojde k chybe a transakci rollbacknes, nevrati se GEN_ID o jednicku
zpet. To ale podle me nevadi, protoze by to mela byt vyjimka z realneho
provozu a Integer je prece jen obrovske cislo...
Martin Schayna
Sestava v QuickReportu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.7.2002 11:41:01
Ahoj,
tvorim v QuickReportu neco jako zasedaci poradek a potreboval bych poradit
jak na to, protoze je to v QR prvni pokus :O(
V podstate by to melo vypadat tak, ze na "radku" jsou vedle sebe ctyri
"chlivky" ve kterych jsou udaje o lidech /asi TQRRichEdit/ a pocet radku
je dynamicky ...
Napada me reseni dynamicky vkladat TQRSubDetail a do nej ctyri TQRRichEdity
... jenze jak to bude s Parent u tech dynamicky vytvarenejch RichEditu, aby
byly viditelne ??
Diky za rady
Radek
Komunikace pres modem
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 22.7.2002 11:53:16
Zdravim
Presne tak. Jeste je potreba se zeptat, jestli se bude spripojivat klasicky
pres sit naseho milovaneho monopolu, nebo chces ty modemy spojit primo proti
sobe. Pokud ano, tak na http://lunasoft.hyperlink(tec)cz najdes informace, jak
rozchodit takovou komunikaci.
Ovsem pozor, ten RAS server musis rozchodt na tom pocitaci, ke kteremu se
budes pripojivat. Na tom, ze ktereho se budes pripojovat je klasicke
telefonicke pripojeni site.
Zdenek
----- Original Message -----
> Ja osobne si mysli, ze kuprikladu Win2k ( ba dokonce snad i Win98SE ) umi
> vlasnimi prostredky vytvorit spojeni mezi dvema pocitaci a po nem
> provozovat TCP/IP a tudiz je problem vyresen. Jakekoliv jone reseni
> povazuji za noseni drivi do lesa. Tudiz bych hledal nastaveni RAS serveru
a
> klienta (vytacene pripojeni na internet), eventuelne VPN pres internet.
> Proto treba hledejte na Torry: RAS.
Sestava v QuickReportu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 12:01:49
22.7.2002 tomsir1.edu(zv)mail.cez(tec)cz:
> tvorim v QuickReportu neco jako zasedaci poradek a potreboval bych poradit
> jak na to, protoze je to v QR prvni pokus :O(
> Napada me reseni dynamicky vkladat TQRSubDetail a do nej ctyri TQRRichEdity
> ... jenze jak to bude s Parent u tech dynamicky vytvarenejch RichEditu, aby
> byly viditelne ??
Parent bude Band, na kterem jsou umisteny
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
OT: duveryhodnost v NT domene
[*] EFG developer <developer(zv)efg(tec)cz> - 22.7.2002 12:17:12
Zdravim, mam NT domenu (W2000) a preinstaloval jsem active directory, od
te doby se mi v eventlogu objevuji hlasky podobne nasledujici:
Po��ta� PC1 se pokusil p�ipojit k serveru \\SERVER pomoc� d�v�ryhodn�ho
vztahu, vytvo�en�ho dom�nou DOMENA. Po��ta� v�ak ztratil spr�vn�
identifik�tor zabezpe�en� (SID) z d�vodu zm�ny konfigurace dom�ny.
Obnovte vztah d�v�ryhodnosti.
Nevi nekdo z vas jak obnovit vztah duveryhodnosti ?
Dekuji
Petr Sikola
Hlavicka a polozky kontra FB
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 22.7.2002 12:18:48
>zpet. To ale podle me nevadi, protoze by to mela byt vyjimka z realneho
>provozu a Integer je prece jen obrovske cislo...
Pokud ovsem nejde o doklady kde je nutna neprerusena rada.
Na cislo dokladu se generator nehodi.
Viz Auditable Series of Number
http://www.ibobjects.com/TechInfo.html
Leos
ModifyMenu, owner draw a Win95
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 12:34:19
Pouzivam funkci ModifyMenu() na zobrazeni 2 polozek menu vpravo.
Na tyto polozky je aplikovan OwnerDraw a kresli se misto textu bitmapy.
U W95 je problem v tom, ze se menu rozhodi na 3 radky:
1.radek textove polozky
2.radek prazdny
3.radek vpravo zarovnane 2 polozky s obrazky.
--
Jan Fiala
MailTo:jan.fiala(zv)iol(tec)cz
ICQ: 23032692
OT: UNICODE
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 22.7.2002 12:58:12
Zdravim ve Foru ...
potreboval bych sehnat Stringgrid podporujici unicode. Zatim sem na netu
nasel Tnt komponenty, ktery jsou dobry, ale tam je jenom DBStringGrid a
jeste fungujici jen pod D6.
nevite nekdo o nejakejch ?
S pozdravem
Radek
ModifyMenu, owner draw a Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 13:02:33
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Pouzivam funkci ModifyMenu() na zobrazeni 2 polozek menu vpravo.
Nejjednodusi rada - nedelej to. Je to pomerne nestandartni a nepoziva se to,
takze je to spis matouci.
Petr Vones
ModifyMenu, owner draw a Win95
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 13:10:06
Dobre, jinak.
Mam ne MDI aplikaci a chtel bych tam zobrazit krizek na zavreni
aktivniho okna jako v MDI.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.7.2002 Petr Vones:
> From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Pouzivam funkci ModifyMenu() na zobrazeni 2 polozek menu vpravo.
> Nejjednodusi rada - nedelej to. Je to pomerne nestandartni a nepoziva se to,
> takze je to spis matouci.
> Petr Vones
ModifyMenu, owner draw a Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 13:13:38
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Mam ne MDI aplikaci a chtel bych tam zobrazit krizek na zavreni
> aktivniho okna jako v MDI.
To je jeste horsi ;-) Jeden uz tam prece je, a to v beznem okne, ne ?
Petr Vones
Sestava v QuickReportu
[*] Ing. Pavel �ilinec����)b���zf���3 - 22.7.2002 13:16:25
Pokud bude vse dynamicky (napr. bude plnit sestavu na zaklade nejakeho
seznamu objektu a ne treba z TQuery), tak potom si odchytavej udalost
OnNeedData, kde si budes rikat, zda se ma generovat dalsi detail (a
nemusis to vytvaret dynamicky) - jen si v kazdem tom kroku nadefinujes
ty 4 udaje o lidech.
Pokud to mas navazane na zdroj dat a chces, aby pro dany jeden zaznam
generoval neco jako subdetail (neznamo, kolik radku), tak pouzij
QRSubDetail a tam udelej to, co jsem pospal vyse.
Snad Ti to pomuze.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
temcc> Ahoj,
temcc> tvorim v QuickReportu neco jako zasedaci poradek a potreboval bych poradit
temcc> jak na to, protoze je to v QR prvni pokus :O(
temcc> V podstate by to melo vypadat tak, ze na "radku" jsou vedle sebe ctyri
temcc> "chlivky" ve kterych jsou udaje o lidech /asi TQRRichEdit/ a pocet radku
temcc> je dynamicky ...
temcc> Napada me reseni dynamicky vkladat TQRSubDetail a do nej ctyri TQRRichEdity
temcc> ... jenze jak to bude s Parent u tech dynamicky vytvarenejch RichEditu, aby
temcc> byly viditelne ??
temcc> Diky za rady
temcc> Radek
Komunikace pres Modem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 13:21:49
From: "J�n HARMAN" <harman(zv)atlas(tec)cz>
> ahoj, ptal jsem se na zpusob komunikovani pres modem. Bylo tady receno ze
> muzu normalne pres seriovy port. To by sice slo. No ale co kdy je modem
> ISDN? Ten neni pripojeny k seriovemu portu.
CAPI:
http://home.t-online.de/home/Peter.Zwosta/capiidx.htm
http://www.isdnobjects.de/
Petr Vones
duveryhodnost v NT domene
[*] Richard Siegl <rsiegl(zv)elas.sk> - 22.7.2002 12:28:25
skus PC1 nanovo zaregistrovat v domene .
nastav nech sa hlasi do nejakej skupiny a potom naspet nech sa hlasi do
domeny .. ona si potom vypyta login a heslo pre registrovanie v domene.
Rickie
----- Original Message -----
From: "EFG developer" <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 22, 2002 11:17 AM
Subject: OT: duveryhodnost v NT domene
Zdravim, mam NT domenu (W2000) a preinstaloval jsem active directory, od
te doby se mi v eventlogu objevuji hlasky podobne nasledujici:
Po��ta� PC1 se pokusil p�ipojit k serveru \\SERVER pomoc� d�v�ryhodn�ho
vztahu, vytvo�en�ho dom�nou DOMENA. Po��ta� v�ak ztratil spr�vn�
identifik�tor zabezpe�en� (SID) z d�vodu zm�ny konfigurace dom�ny.
Obnovte vztah d�v�ryhodnosti.
Nevi nekdo z vas jak obnovit vztah duveryhodnosti ?
Dekuji
Petr Sikola
Komunikace pres Modem
[*] J�n HARMAN - 22.7.2002 13:39:08
ahoj, ptal jsem se na zpusob komunikovani pres modem. Bylo tady receno ze
muzu normalne pres seriovy port. To by sice slo. No ale co kdy je modem
ISDN? Ten neni pripojeny k seriovemu portu.
Dekuji za kazdou radu.
Honza.
OT: UNICODE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.7.2002 13:48:56
On 22 Jul 2002 at 12:58, Radek Masnica - konference wrote:
> Zdravim ve Foru ...
>
> potreboval bych sehnat Stringgrid podporujici unicode. Zatim sem na
> netu nasel Tnt komponenty, ktery jsou dobry, ale tam je jenom
> DBStringGrid a jeste fungujici jen pod D6.
>
> nevite nekdo o nejakejch ?
Ja jeden mam u OLE DB, ale neni k nemu zadna dokumentace ani
priklady. A potrebuje jeden COM objekt.
S pozdravem
Zbysek Hlinka
Jak dostat do C++ Builerdu komunikaci s OPC server
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 22.7.2002 13:51:10
Nemate nekdo zkusenosti s vyse zminenym problemem?
Potrebuji cist a nastavovat nejake udaje v Simaticu a nevim jak na to. Jedna se mi konkretne o OPC server.
Nebyla by nejaka komponenta ?
Dekuji Tymi
aky server pouzit???
[*] Robert Suska <delphi(zv)korak.sk> - 22.7.2002 14:01:26
Ahojte!
Potrebujem "napisat", postavit server bud na IB alebo SQL proste nic
zloziteho len potrebujem nejake info aky server mam pouzit, chcem sa vyhnut
MS SQL resp. nieco co je zadarmo a pod Windows. Proste ide o to ze chcem
napisat nejaku jednoduchu databazu, lepsie povedane chcem sa to naucit robit
a urobit potom nieco zlozitejsie teraz chcu chlapi odo mna aby som napisal
nejaku databazu kontaktov a tak. A chcem sa uplne este vyhnut BDE s tym som
uz robil databazu ako sharing tabuliek bolo to postavene na paradoxe akoze
bezi to bez spadnutia 1 rok a 4 mesiace ale chcem sa naucit SQL. Prosim
podnety navrhy napady.
Dakujem
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
************************************
Komunikace pres Modem
[*] Peter Jurco <peter.jurco(zv)alcatel.sk> - 22.7.2002 14:01:32
Nazdar
Ak chces robit nieco pod Win tak skus
CAPI alebo TAPI programove rozhranie pre komunikaciu
s ISDN modemom.
S pozdravom
Peter
----- Original Message -----
From: "J�n HARMAN" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 22. j�l 2002 13:39
Subject: Komunikace pres Modem
> ahoj, ptal jsem se na zpusob komunikovani pres modem. Bylo tady receno ze
> muzu normalne pres seriovy port. To by sice slo. No ale co kdy je modem
> ISDN? Ten neni pripojeny k seriovemu portu.
> Dekuji za kazdou radu.
> Honza.
>
Re[2]: Fce na prevod diakritiky na bez diaktritiky
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 22.7.2002 14:25:11
10?
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Friday, July 19, 2002, 2:21:47 PM, you wrote:
>> V cem bude srozumitelnejsi? Jen budes muset pro kazdy pripad kdy
>> pouzijes ReplaceTable vyjmenovat male i velke varianty => vetsi
>> moznost chyby. A to nemluvime jen o konverzi diakritiky. Rychlejsi asi
>> bude. Ktere "typy funkci" mas na mysli? Smysl by to asi melo u typu funkci
>> ktere se pousti 10000x.
R> :-))))) Tak tos mel u te sve funkce napsat, ze je vhodna max pro 10 konverzi
R> :-))))
R> No comment...
R> Roman
OT: UNICODE
[*] Tom�s Bihary <delphi(zv)wige-mic(tec)cz> - 22.7.2002 14:31:45
----- Puvodn� zpr�va -----
> > potreboval bych sehnat Stringgrid podporujici unicode. Zatim sem na
> > netu nasel Tnt komponenty, ktery jsou dobry, ale tam je jenom
> > DBStringGrid a jeste fungujici jen pod D6.
> >
> > nevite nekdo o nejakejch ?
>
> Ja jeden mam u OLE DB, ale neni k nemu zadna dokumentace ani
> priklady. A potrebuje jeden COM objekt.
>
Muzu se zeptat, kde to roste?
Diky
Tomas Bihary
aky server pouzit???
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 22.7.2002 14:31:20
Ahoj,
tak IB pouzit muzes, ale tu zdarma jen v pripade, ze nebudes delat vicevlaknovou aplikaci. Pak to moc nechodi.
-----Original Message-----
From: Robert Suska [mailto:delphi(zv)korak.sk]
Sent: Monday, July 22, 2002 2:01 PM
To: Delphi konfera
Subject: aky server pouzit???
Ahojte!
Potrebujem "napisat", postavit server bud na IB alebo SQL proste nic
zloziteho len potrebujem nejake info aky server mam pouzit, chcem sa vyhnut
MS SQL resp. nieco co je zadarmo a pod Windows. Proste ide o to ze chcem
napisat nejaku jednoduchu databazu, lepsie povedane chcem sa to naucit robit
a urobit potom nieco zlozitejsie teraz chcu chlapi odo mna aby som napisal
nejaku databazu kontaktov a tak. A chcem sa uplne este vyhnut BDE s tym som
uz robil databazu ako sharing tabuliek bolo to postavene na paradoxe akoze
bezi to bez spadnutia 1 rok a 4 mesiace ale chcem sa naucit SQL. Prosim
podnety navrhy napady.
Dakujem
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
************************************
SQL dotaz spojeni
[*] Miroslav Kotasek <miro.delphi(zv)seznam(tec)cz> - 22.7.2002 14:33:54
Zdravim, potrebuji pomoci s jednoduchym SQL dotazem
select * from tab1 as x,
tab2 as y
group by x.ev_cislo,x.kod,y.kategorie
order by x.ev_cislo asc
Ale tento dotaz je vlastne kartezsky soucin a jeho slozitost je n*n
existuje nejaky jiny ekvivalentni, kde by byla slozitost linearni (n, 2n)?
podobny tomuto, jde jen o to, ze se ma udelat seznam vsech prvku z tab1 a k
nim z tab2 pridat ty ktere maji y.kod2 = x.kod
select * from tab1 as x,
tab2 as y
where x.kod=y.kod2
order by x.ev_cislo asc
tj kdyz bude tab1
ev cislo kod
1 12
3 14
a tab2
kod kategorie
12 student
15 ucitel
vysledkem bylo
ev cislo kod kategorie
1 12 student
3 14
Diky za radu M. Kotasek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.368 / Virov� b�ze: 204 - datum vyd�n�: 29.5.2002
ModifyMenu, owner draw a Win95
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 14:35:59
22.7.2002 Petr Vones:
> From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Mam ne MDI aplikaci a chtel bych tam zobrazit krizek na zavreni
>> aktivniho okna jako v MDI.
> To je jeste horsi ;-) Jeden uz tam prece je, a to v beznem okne, ne ?
Samozrejme, ze tam je, ale ten zavira celou aplikaci. Tak si predstav
aplikaci, kde mas okna na zalozkach, treba na PageControl. A chci mit
moznost zavrit okno (stranku), podobne jako u MDI aplikace, krizkem na
urovni menu.
Jasne, ze by to chtelo prepsat do MDI, casem k tomu urcite dojde. Ale
jen me zarazi to, ze se to na Win95 chova jinak nez na vsem ostatnim.
Asi se s tim budu muset smirit.
Jan Fiala
ModifyMenu, owner draw a Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 14:56:49
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Samozrejme, ze tam je, ale ten zavira celou aplikaci. Tak si predstav
> aplikaci, kde mas okna na zalozkach, treba na PageControl. A chci mit
> moznost zavrit okno (stranku), podobne jako u MDI aplikace, krizkem na
> urovni menu.
Ano, hlavne nepouzivat standartni uzivatelske rozhrani ;-)
> Jasne, ze by to chtelo prepsat do MDI, casem k tomu urcite dojde. Ale
No to by chtelo, asi ne casem, ale hned.
Petr Vones
CreateThread a predavani argumentu funkci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 14:58:47
From: "Jan K��ek" <krizek(zv)vitasw(tec)cz>
> Moc jsem to nezkoumal - ted se snazim delat vsechny thready s tim ochranym
> blokem. Ale urcite to delalo i na W98( i SE - ty pouzivam nejcasteji ).
No me prijde zajimavejsi spis ten pripad, kdy to nefunguje. Pokdu to delalo i
na Win98, tak je pravdepodobne ze to bude i na WinMe. Nicmene, mohl by to
nekdo potvrdit ?
Petr Vones
aky server pouzit???
[*] Robert Suska <delphi(zv)korak.sk> - 22.7.2002 15:00:23
Ahoj
co to znamena v tomto pripade viacvlaknova aplikacia ?
Dakujem
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: "Jaroslav Koh�k" <jaroslav.kohak(zv)dites(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 22, 2002 2:31 PM
Subject: RE: aky server pouzit???
Ahoj,
tak IB pouzit muzes, ale tu zdarma jen v pripade, ze nebudes delat
vicevlaknovou aplikaci. Pak to moc nechodi.
-----Original Message-----
From: Robert Suska [mailto:delphi(zv)korak.sk]
Sent: Monday, July 22, 2002 2:01 PM
To: Delphi konfera
Subject: aky server pouzit???
Ahojte!
Potrebujem "napisat", postavit server bud na IB alebo SQL proste nic
zloziteho len potrebujem nejake info aky server mam pouzit, chcem sa vyhnut
MS SQL resp. nieco co je zadarmo a pod Windows. Proste ide o to ze chcem
napisat nejaku jednoduchu databazu, lepsie povedane chcem sa to naucit robit
a urobit potom nieco zlozitejsie teraz chcu chlapi odo mna aby som napisal
nejaku databazu kontaktov a tak. A chcem sa uplne este vyhnut BDE s tym som
uz robil databazu ako sharing tabuliek bolo to postavene na paradoxe akoze
bezi to bez spadnutia 1 rok a 4 mesiace ale chcem sa naucit SQL. Prosim
podnety navrhy napady.
Dakujem
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
************************************
kolik pouziva aplikace pameti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 15:04:50
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> potrebuji nejakym zpusobem zjistit, kolik pameti vyuziva moje aplikace (na
> NT/W2K/XP) abych to na nejakym zpusobem mohl reagovat. hledal jsem v WinAPI
> a nenasel...
Nevim jak na to presne chces reagovat, ale muzes pouzit Performance data
helper. Viz PerfMon.zip tady: http://delphi-jedi.org/Jedi:APILIBRARY
Podivej se take na funkci SetProcessWorkingSetSize.
Petr Vones
ModifyMenu, owner draw a Win95
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2002 15:05:58
22.7.2002 Petr Vones:
>> Samozrejme, ze tam je, ale ten zavira celou aplikaci. Tak si predstav
>> aplikaci, kde mas okna na zalozkach, treba na PageControl. A chci mit
>> moznost zavrit okno (stranku), podobne jako u MDI aplikace, krizkem na
>> urovni menu.
> Ano, hlavne nepouzivat standartni uzivatelske rozhrani ;-)
Ve chvili, kdy jsem to psal, jsem o nejakem krizku jeste neuvazoval.
A z urciteho duvodu to bylo psano, tak, jak to je. V te dobe mi proste
MDI nevyhovovala.
>> Jasne, ze by to chtelo prepsat do MDI, casem k tomu urcite dojde. Ale
> No to by chtelo, asi ne casem, ale hned.
"Casem" pisu, protoze je to freeware, ktery delam ve volne chvili a
tolik casu, abych to rychle prepsal do MDI proste ted nemam.
K nahlednuti na (http://pspad.zde(tec)cz)
Neni to nic kritickeho. jen jsem se chtel zeptat, zda se s tim da neco
delat.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
aky server pouzit???
[*] Martin Valach <vachix(zv)centrum.sk> - 22.7.2002 15:08:14
MySQL + Zeos + Delphi
vachi
aky server pouzit???
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 22.7.2002 15:08:59
Hello, Jaroslav!
You wrote:
JKk> tak IB pouzit muzes, ale tu zdarma jen v pripade, ze nebudes delat
JKk> vicevlaknovou aplikaci. Pak to moc nechodi.
Nechodi jen v pripade ze pouzivas LocalConnect.
Jinak to funguje ;o)
With best regards, Alex Cherednichenko.
ModifyMenu, owner draw a Win95
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.7.2002 15:12:48
> From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> > Samozrejme, ze tam je, ale ten zavira celou aplikaci. Tak si predstav
> > aplikaci, kde mas okna na zalozkach, treba na PageControl. A chci mit
> > moznost zavrit okno (stranku), podobne jako u MDI aplikace, krizkem na
> > urovni menu.
>
> Ano, hlavne nepouzivat standartni uzivatelske rozhrani ;-)
Co je na PageControl nestandartniho??
Btw. dej si do toho menu toolbar a do nej tlacitko s krizkem.
> > Jasne, ze by to chtelo prepsat do MDI, casem k tomu urcite dojde. Ale
>
> No to by chtelo, asi ne casem, ale hned.
No ja nic prepisovat nebudu, zatim sou s PageControlem vsichni spokojeni
;-))
Roman
==============================
http://kouzelne.misto(tec)cz
List index out of bounds (0)
[*] Martinec <martin108(zv)post(tec)cz> - 22.7.2002 15:33:17
Na formulari mam vedle sebe 3 comboboxy - cbHouse, cbFloor, cbCategory. Obsah cbFloor zavisi na tom, ktera polozka z cbHouse je vybrana, a obsah cbCategory zavisi na vybrane polozce jak cbHouse, tak cbFloor.
Procedury GetHouse, GetFloor a GetCategory naplnuji jednotlive seznamy. GetHouse a GetFloor naplni seznamy spravne, ale pri volani GetCategory nastala vyjimka - radek oznaceny hvezdickou.
Predchozi radek (cbFloor.ItemIndex := 0) funguje spravne. Seznamy v cbHouse i cbFloor obsahuji data.
Kde mam chybu nebo kde ji mam hledat?
Dik
Martinec
procedure TFreeBeds.FormShow(Sender: TObject);
begin
DataModule.GetHouse(cbHouse.Items,true);
cbHouse.ItemIndex := 0;
DataModule.GetFloor(cbFloor.Items,Integer(cbHouse.Items.Objects[cbHouse.ItemIndex]));
cbFloor.ItemIndex := 0;
* DataModule.GetCategory(cbCategory.Items,
Integer(cbHouse.Items.Objects[cbCategory.ItemIndex]),
Integer(cbFloor.Items.Objects[cbFloor.ItemIndex]));
cbCategory.ItemIndex := 0;
end;
procedure TDataModule.GetFloor(pList: TStrings; pHouse: integer);
var
QTemp: TIB_Query;
ID: integer;
begin
QTemp := TIB_Query.Create(nil);
try
pList.Clear;
QTemp.SQL.Clear;
QTemp.SQL.Add('select distinct Floor from rooms');
QTemp.SQL.Add('where house_id = ' + IntToStr(pHouse));
QTemp.SQL.Add('order by Floor');
try
QTemp.Open;
pList.AddObject('<All>',Pointer(gcNone)); //const gcNone = -1
QTemp.First;
while not QTemp.Eof do
begin
ID := QTemp.Fields[0].AsInteger;
pList.AddObject(IntToStr(ID),Pointer(ID));
QTemp.Next;
end;
except
pList.Clear;
end;
finally
if QTemp.Active then QTemp.Close;
FreeAndNil(QTemp);
end;
end;
procedure TDataModule.GetCategory(pList: TStrings; pHouse, pFloor: integer);
var
QTemp: TIB_Query;
vWhere: string;
begin
vWhere := '';
QTemp := TIB_Query.Create(nil);
try
pList.Clear;
QTemp.SQL.Clear;
QTemp.SQL.Add('select distinct L.category_id, C.name');
QTemp.SQL.Add('from v_rooms L left join category C on L.category_id=K.id');
if pUbytID > -1 then vWhere := vWhere + ' L.house_id=' + IntToStr(pHouse);
if pPatro > -1 then
begin
if vWhere = '' then vWhere := vWhere + ' L.floor=' + IntToStr(pFloor)
else vWhere := vWhere + ' and L.floor=' + IntToStr(pFloor);
end;
if vWhere <> '' then QTemp.SQL.Add('where ' + vWhere);
QTemp.SQL.Add('order by C.name');
try
QTemp.Open;
pList.AddObject('<All>',Pointer(gcNone));
QTemp.First;
while not QTemp.Eof do
begin
pList.AddObject(QTemp.Fields[1].AsString,Pointer(QTemp.Fields[0].AsInteger));
QTemp.Next;
end;
except
pList.Clear;
end;
finally
if QTemp.Active then QTemp.Close;
FreeAndNil(QTemp);
end;
end;
----
EFEKTIVN� REKLAMA - DIRECT MAIL
vyu�ijte letn� slevy a oslovte sv� klietny, v�ce na http://reklama.volny(tec)cz
Sinea tiskove sestavy
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.7.2002 15:42:44
> From: Otisk Rene
> D5, Sinea 5.40.19
> .....
> Zacalo to v okamziku, kdy jsem si upgadoval Sineu z verze 3.39x.
> Nevite jak z demoverze zase dostanu ostrou verzi. Sest_ver.inc jsem
> prekopiroval, ale nezadarila se kompilace (error in sestavy.pas)
Prechod z verze X.39 na X.40 je placeny upgrade.
Je nutne koupit licenci na Sinea 2002.
Nestaci tak jako dosud prekopirovat nektere soubory
ze stare verze do nove.
Vaclav Krmela
List index out of bounds (0)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.7.2002 15:48:57
> procedure TFreeBeds.FormShow(Sender: TObject);
> begin
> DataModule.GetHouse(cbHouse.Items,true);
> cbHouse.ItemIndex := 0;
>
DataModule.GetFloor(cbFloor.Items,Integer(cbHouse.Items.Objects[cbHouse.Item
Index]));
> cbFloor.ItemIndex := 0;
> * DataModule.GetCategory(cbCategory.Items,
> Integer(cbHouse.Items.Objects[cbCategory.ItemIndex]),
Integer(cbHouse.Items.Objects[cbHouse.ItemIndex]) ???
Roman
==============================
http://kouzelne.misto(tec)cz
List index out of bounds (0)
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 22.7.2002 15:52:28
To je nejaka chyba ci vlastnost VCL, TStrings.Objects
nesmi obsahovat hodnotu -1, cert vi proc, nezkoumal
jsem to. Zapsat -1 jde, ale pri cteni dojde k Tebou
popisovane chybe. Dej tam neco jineho.
K reprodukci chyby staci udelat toho:
ComboBox1.Items.Clear;
ComboBox1.Items.AddObject('abcde',TObject(-1));
Caption:=IntToStr(Integer(ComboBox1.Items.Objects[0]));
Daniel
List index out of bounds (0)
[*] Ing. Pavel �ilinec����)b���zf���3 - 22.7.2002 16:01:25
Vzhledem k tomu, ze bys mel mit vzdy minimalne jeden zaznam ('<All>'),
tak bych zkusil dve veci:
Nastavovat ItemIndex na -1 a pak se podivat, jestli tam vybec jeste
neco je
Zeusit si try .. except a zkusit, jestli to nekde nepadne na chybu (a
tim padem se neprovede ani AddObject('<All>', ...
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
M> Na formulari mam vedle sebe 3 comboboxy - cbHouse, cbFloor, cbCategory. Obsah cbFloor zavisi na tom, ktera polozka z cbHouse je vybrana, a obsah cbCategory zavisi na vybrane polozce jak cbHouse,
M> tak cbFloor.
M> Procedury GetHouse, GetFloor a GetCategory naplnuji jednotlive seznamy. GetHouse a GetFloor naplni seznamy spravne, ale pri volani GetCategory nastala vyjimka - radek oznaceny hvezdickou.
M> Predchozi radek (cbFloor.ItemIndex := 0) funguje spravne. Seznamy v cbHouse i cbFloor obsahuji data.
M> Kde mam chybu nebo kde ji mam hledat?
M> Dik
M> Martinec
List index out of bounds (0)
[*] Martinec <martin108(zv)post(tec)cz> - 22.7.2002 16:06:25
Tyka se chyba (nebo vlastnost) jen -1 nebo vsech zapornych hodnot?
Martinec
PS: Mam D6PE, IBO, FB, WXP
> -----Original Message-----
> From: Daniel Rott [mailto:roxton(zv)seznam(tec)cz]
>
> To je nejaka chyba ci vlastnost VCL, TStrings.Objects
> nesmi obsahovat hodnotu -1, cert vi proc, nezkoumal
> jsem to. Zapsat -1 jde, ale pri cteni dojde k Tebou
> popisovane chybe. Dej tam neco jineho.
----
Nem�te na ni? http://dovolena.finance(tec)cz
List index out of bounds (0)
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 22.7.2002 16:12:15
> To je nejaka chyba ci vlastnost VCL, TStrings.Objects
> nesmi obsahovat hodnotu -1, cert vi proc, nezkoumal
> jsem to. Zapsat -1 jde, ale pri cteni dojde k Tebou
> popisovane chybe. Dej tam neco jineho.
>
> K reprodukci chyby staci udelat toho:
> ComboBox1.Items.Clear;
> ComboBox1.Items.AddObject('abcde',TObject(-1));
> Caption:=IntToStr(Integer(ComboBox1.Items.Objects[0]));
Neplati to vseobecne o TStrings.Objects (to je aj tak abstraktna trieda),
ale pre konkretne implementacie TCustomComboBoxStrings a TListBoxStrings.
-1 je totiz hodnota konstanty CB_ERR, ktoru vracia windows kombobox, ak pri
spracovani spravy CB_GETITEMDATA nastala nejaka chyba.
V takom pripade nie je mozne rozlisit, ci skutocne nastala chyba, alebo
kombo len vratilo spravnu hodnotu -1.
Riesenim je neukladat do Objects komboboxov a listboxov hodnotu -1. Na
hodnoty typu 'neplatny index' sa da pouzit nejaka ina hodota, napr. -2.
To iste plati aj pre listboxy, kde -1 je hodnota konstanty LB_ERR.
HTH
TOndrej
List index out of bounds (0)
[*] Martinec <martin108(zv)post(tec)cz> - 22.7.2002 16:12:08
Cely kod v TFreeBeds.FormShow jsem dal do bloku try...except...end, takze se mi formular zobrazi. cbCategory neobsahuje zadna data. Pokud zacnu volit ruzne hodnoty v cbHouse nebo cbFloor, cely system funguje tak jak ma - vcetne cbCategory.
Tak ted uz vubec nevim, ktera bije.
Martinec
---
Velk� letn� sleva 50% na ve�kerou bannerovou reklamu a� do 30.9.2002
http://reklama.volny(tec)cz
List index out of bounds (0)
[*] "K�ss, Pavel" <Pavel.Kaess(zv)trimondo(tec)com> - 22.7.2002 16:13:03
Zrejme ma byt spravne
* DataModule.GetCategory(cbCategory.Items,
Integer(cbHouse.Items.Objects[cbHouse.ItemIndex]),
<----
Integer(cbFloor.Items.Objects[cbFloor.ItemIndex]));
V dobe volani je cbCategory.Itemindex zrejme -1, proto ta chyba
S pozdravem
Pavel
> -----Original Message-----
> * DataModule.GetCategory(cbCategory.Items,
> Integer(cbHouse.Items.Objects[cbCategory.ItemIndex]),
> Integer(cbFloor.Items.Objects[cbFloor.ItemIndex]));
>
List index out of bounds (0)
[*] Martin Cajbik <cajbik(zv)sct.sk> - 22.7.2002 16:19:14
Je to tak preto, ze funkcia vracajuca objekt k urcitej polozke ListBox-u a
ComboBox-u ma v D5 a D6 hodnotu -1 vyhradenu pre chybu (CB_ERR = -1) vid.
zdrojak. U D4 to bola vacsia "zabava", tam bola tato funkcia implementovana
inak, a aj v pripade, ze sa objekt nepodarilo ziskat (napriklad ak bol index
polozky mimo rozsah) to vratilo TObject(-1).
function TCustomComboBoxStrings.GetObject(Index: Integer): TObject;
begin
Result := TObject(SendMessage(ComboBox.Handle, CB_GETITEMDATA, Index, 0));
if Longint(Result) = CB_ERR then
Error(SListIndexError, Index);
end;
MarCaNT (marcant(zv)sct.sk)> To je nejaka chyba ci vlastnost VCL, TStrings.Objects
> nesmi obsahovat hodnotu -1, cert vi proc, nezkoumal
> jsem to. Zapsat -1 jde, ale pri cteni dojde k Tebou
> popisovane chybe. Dej tam neco jineho.
>
> K reprodukci chyby staci udelat toho:
> ComboBox1.Items.Clear;
> ComboBox1.Items.AddObject('abcde',TObject(-1));
> Caption:=IntToStr(Integer(ComboBox1.Items.Objects[0]));
>
> Daniel
>
>
>
List index out of bounds (0)
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 22.7.2002 16:21:55
Problem je jen s -1.
Daniel
> -----Original Message-----
> From: "Martinec" <martin108(zv)post(tec)cz>
> Tyka se chyba (nebo vlastnost) jen -1 nebo
> vsech zapornych hodnot?
> > -----Original Message-----
> > From: Daniel Rott [mailto:roxton(zv)seznam(tec)cz]
> > To je nejaka chyba ci vlastnost VCL, TStrings.Objects
> > nesmi obsahovat hodnotu -1, cert vi proc, nezkoumal
> > jsem to. Zapsat -1 jde, ale pri cteni dojde k Tebou
> > popisovane chybe. Dej tam neco jineho.
duveryhodnost v NT domene
[*] EFG developer <developer(zv)efg(tec)cz> - 22.7.2002 16:27:12
Kdyz to mi bohuzel zahlasi "server RPC bohuzel neni k dispozici" a
neprida me to :(
Petr Sikola
> skus PC1 nanovo zaregistrovat v domene .
>
> nastav nech sa hlasi do nejakej skupiny a potom naspet nech
> sa hlasi do domeny .. ona si potom vypyta login a heslo pre
> registrovanie v domene.
>
> Rickie
Hint
[*] Richard Siegl <rsiegl(zv)elas.sk> - 22.7.2002 15:37:41
TO : K�ss, Pavel
Nazdar
sorry ze som neodpisal, riesil som iny projekt...
no urobil som ako si napisal, totiz potreboval ten hint zobrazit
aj ako ikonku v tray ... ono to potom zobrazuje aj pri minimalizovanom okne.
Ja mam od UtilMind komponent antTaskbarIcon aj so zdrojakom
a riesenie je uplne rovnake ako aj vo VisualBasicu a inych jazykoch (API).
Rickie
> ----- Original Message -----
> From: "K�ss, Pavel" <Pavel.Kaess(zv)trimondo.com>
> To: <rsiegl(zv)elas.sk>
> Sent: Monday, July 22, 2002 11:44 AM
> Subject: FW: Hint
>
>
> > Dobry den,
> > jedenact dni ubehlo a reseni nikde :(. Jak jste dopad?
> > S pozdravem
> > Pavel
> >
> > > -----Original Message-----
> > > Vim, jak zobrazit Hint, kdyz je aplikace minimalizovana v trayi. Mrkni
> se
> > > na
> > > komponentu CoolTrayIcon/TextTrayIcon (hledej tray na www.torry.net).
> Jsou
> > > k
> > > ni i zdrojaky - mozna to pujde podobne. Dej vedet.
> > > Pavel
> > >
> > > > -----Original Message-----
> > > > potreboval by som zobrazit Hint ked je aplikacia minimalizovana je
> > > > viditelna
> > > > iba v taskbare.
> > > >
> > >
> >
> >
>
Komponenta shelltreeview
[*] Delphi - konference <Delphikonf(zv)pilscom(tec)cz> - 22.7.2002 16:40:37
> ----------
> From: Jan Netrval
> Sent: Monday, July 22, 2002 4:40:37 PM
> To: Delphi - konference
> Subject: Komponenta shelltreeview
> Auto forwarded by a Rule
>
Nevite nekdo jak u jmenovane komponenty nastavit aktualni adresar?
Predem diky
Honza
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.377 / Virov� b�ze: 211 - datum vyd�n�: 15.7.2002
Komunikace pres Modem
[*] J�n HARMAN - 22.7.2002 16:46:10
Dik za radu, ale kde vemu nejakou napovedu nebo alespon jeden priklad
spojeni ci komunikace? Nemam o tom ani paru.
Honza.
Nazdar
Ak chces robit nieco pod Win tak skus
CAPI alebo TAPI programove rozhranie pre komunikaciu
s ISDN modemom.
S pozdravom
Peter
----- Original Message -----
From: "J�n HARMAN" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 22. j�l 2002 13:39
Subject: Komunikace pres Modem
> ahoj, ptal jsem se na zpusob komunikovani pres modem. Bylo tady receno ze
> muzu normalne pres seriovy port. To by sice slo. No ale co kdy je modem
> ISDN? Ten neni pripojeny k seriovemu portu.
> Dekuji za kazdou radu.
> Honza.
>Re[2]: Fce na prevod diakritiky na bez diaktritiky
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 22.7.2002 16:46:06
Friday, July 19, 2002, 5:30:25 PM, you wrote:
PV> Myslim, ze programator by sa mal snazit pracovat
PV> efektivne aj pri pisani zdanlivo bezvyznamych
PV> algoritmov. Ked si takyto sposob prace neosvoji
PV> pri programovani aj malych alebo malo exponovanych
PV> funkcii, tazko bude potom dosahovat dobre vysledky
PV> u vacsich alebo narocnejsich pasazi programu.
Bud efektivneji nebo univerzalneji. Mezi tim musis najit vhodny pomer,
nekde je to vhodne spis k rychlosti, jinde k univerzalnosti.
PV> Tomuto prilis nerozumiem. Ake konstanty?
Pro pouziti s odstranenim diakritiky se do ReplaceTable posilaji
konstanty, cili pri kompilaci vim co do ni posilam. Ovsem muzu ji
pouzit jakkoliv jinak, kdy tam poslu jakykoliv uzivatelsky string jako
prevodni tabulku, a v tom pripade netusim jestli obsahuje treba i
VELKE varianty znaku a chci to provest case insensitive.
PV> V pripade KAZDEHO pouzitia tebou propagovanej
PV> funkcie (t.j. ktora z hladiska rychlosti nie je
PV> celkom optimalna), vzdy musim mat na zreteli,
PV> ze nou nebudem prehanat velke objemy dat.
Ano s tim se pocita. Pro velke objemy dat je potreba opravdu funkce
optimalizovat. Me pri psani nenapadl duvod proc bych to nekdy chtel
pouzit pro velke objemy, cili jsem pro to pouzil ReplaceTable. Pro
velke objemy to nebudu predavat pres string.
PV> Vlkovic
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
aky server pouzit???
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 22.7.2002 17:23:19
----- Original Message -----
From: "Robert Suska" <delphi(zv)korak.sk>
> co to znamena v tomto pripade viacvlaknova aplikacia ?
>
Ze z jednoho klienta spustis vice threadu a v kazdem
se spojis s databazi a ctes/zapisujes data. Na IB je treba
aby mel kazdy thread vlastni transakci a aby pristupoval
k databazi sitovym protokolem a nikoliv lokalnim
(DatabaseName := 'server:cesta/soubor.gdb').
Pak to funguje.
Bohuzel je-li klientem Linuxova aplikace, nepomuze
ani to, v klientske knihovne IB je chyba ktera to
neumoznuje (testovano naposledy IB 6.5).
FB 1.0 by to mel mit opravene.
Martin Schayna
OT: UNICODE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.7.2002 17:26:59
On 22 Jul 2002 at 14:31, Tom�s Bihary wrote:
> > Ja jeden mam u OLE DB, ale neni k nemu zadna dokumentace ani
> > priklady. A potrebuje jeden COM objekt.
>
> Muzu se zeptat, kde to roste?
Zatim pouze privatne na http://www.hlinka(tec)cz/download/oledb6.zip
Je to ale na vlastni nebezpeci, protoze ne vsechny akce a moznosti
jsou jednoduse pruhledne ze zdrojaku.
S pozdravem
Zbysek Hlinka
Jak vytvorit folder nabidku
[*] Kub��ek Daniel <kubekonference(zv)atlas(tec)cz> - 22.7.2002 17:39:54
Prosim vas.
Ja lze vyvolat dialog ve kterem lze vybrat adresar. A jak lze potom dostat vsechny soubory *.txt z tohoto adresare do nejakeho pole. (Neco jako kdyz ve winampu vybereme slozku ve ktere mame mp3 a on je pak vsechny mp3 vlozi do playlistu)
D�kuji.
vyjimka pri UDP vysilani do vypnute site - rekapit
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 22.7.2002 17:56:03
Zdravim
Opravil jsme nektere chyby a dosle jsme k novym zaverum, takze to vezmu cele
od zacatku:
1) Popis programu:
Aplikace na bazi chatu vyuzivajici komponentu UDPSocket. Ta vysila promennou
VARIANT bud vsem pomoci broadcastoveho vysilani nebo na urcenou IP adresu.
Na druhe strane je tataz komponenta. Je to pro domaci sit a ta je dost casto
vypnuta. Pri spusteni program vysila broadcast, ze se spustil a at se
ostatni klienti refreshnou. Pokud je sit funkcni, je vsechno OK, ale pokud
je vypnuta, zobrazi se vyjimka "10065". Zdrojem problemu je tento kod:
try
UDPSocket1.BroadcastData('reload_ip');
except
end;
Na WinXP mi to s try..except funguje, vyjimka zustane skryta (zobrazi ji
pouze delphi, ale to je samozrejme v poradku) a aplikace bezi dal. Ale na
Win95 se mi program kousne.
Co tedy potrebuju:
Nejprve jistit, zda je funkcni sit a teprve pote vyslat broadcast.
Snad uz je to jasnejsi.
Zdenek
----- Original Message -----
> > byla pauznuta. Uz to vsechno funguje jak ma. Problem je stale v tom, ze
na
> > WinXP muzu vysilani do vypnute site osetrit pomoci try...except, ale
jednak
> > to podle me neni moc dobre reseni a na 9x to nefunguje.
>
> Takze znovu:
>
> 1. Co je to za komponentu
> 2. Co presne na Win9x nefunguje ?
UNICODE
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 22.7.2002 18:04:00
Kdyz uz jsme u tohoto tematu, nevite prosim, zda existuje pro
DELPHI4standart klasicky Label (s transparenci), podporujici UNICODE?
Diky
VJ
----- Original Message -----
From: "Radek Masnica - konference" <delphi(zv)wige-mic(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 22, 2002 12:58 PM
Subject: OT: UNICODE
> Zdravim ve Foru ...
>
> potreboval bych sehnat Stringgrid podporujici unicode. Zatim sem na netu
> nasel Tnt komponenty, ktery jsou dobry, ale tam je jenom DBStringGrid a
> jeste fungujici jen pod D6.
>
> nevite nekdo o nejakejch ?
>
> S pozdravem
>
> Radek
>
>
aky server pouzit???
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.7.2002 18:19:53
Haj hou!
On 22 Jul 2002 at 14:31, Jaroslav Koh�k wrote:
> Ahoj,
> tak IB pouzit muzes, ale tu zdarma jen v pripade, ze nebudes delat vicevlaknovou aplikaci. Pak to moc nechodi.
Proc by to nemelo chodit ?
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Unit Math - chyby pri vykonavani funkcii
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 20:03:06
From: "Martin Kasman" <martinkasman(zv)pobox.sk>
> Ako sa odchytavaju chyby v unite Math pri matematickych operaciach?
> Priklad: funkcia Power (n na x-tu) vracia hodnotu typu Extened. Ale pokial
> budu vstupovat cisla, kde n na x-tu bude mat vacsiu hodnotu ako extended,
> tak sa zobrazi sprava Floating point overflow. Presne to chcem odchytit.
uses
Math;
procedure TForm1.Button1Click(Sender: TObject);
var
Res: Extended;
begin
try
Res := Power(10000, 10000);
ShowMessageFmt('%g', [Res]);
except
on E: EOverflow do
ShowMessage('EOverflow');
else
raise;
end;
end;
Petr Vones
DBGrid, jak udelat sum jednoho column.
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 22.7.2002 20:44:03
Zdravim,
V DBGridu mam nactena data. Jednim z columns je price. Nevite prosim nekdo
jak bych mohl udelat sum pro tento column?
Diky za cas,
David
David Michal
BDE - kde se da najit
[*] Ing. Zden�k �ezn��ek - 22.7.2002 21:13:39
Zdravim,
nevite nekdo, kde se da stahnoud BDE ? Nemohu to nikde na borlandim vebu najit.
Dik
Zdenek Reznicek
BDE - kde se da najit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 21:17:31
From: "Ing. Zden�k �ezn��ek" <reznicek(zv)nem.pce(tec)cz>
> nevite nekdo, kde se da stahnoud BDE ? Nemohu to nikde na borlandim vebu
> najit.
http://info.borland.com/devsupport/bde/bdeupdate.html
Petr Vones
Nespolehlive mazani souboru a mazni toho co jsem n
[*] Honza <imconr(zv)volny(tec)cz> - 22.7.2002 22:15:07
Zdravim !
pouzivam rutinu na mazani souboru do kose z knihy 1001 tipu a triku pro
Delphi od P.Vonese a spol. ale bohuzel nepracuje na 100% a nevim si s tim
rady.
50% souboru lze smazat, u dalsich 50% souboru to nejde
(SHFileOperation(FileOp) nevraci 0). Nekdy se stane ze mi to hlasi ze chci
smazat vice souboru a nekdy to vymaze z disku ruzne jine soubory (ale ne do
kose !!!).
Pokud soubor nejde smazat touto rutinou, v pruzkumniku to jde bez problemu.
Zjistil jsem taky ze obcas staci zmenit jmeno a pak to jde.
Tady je poutzita rutina:
function DeleteToRecycleBin(const FileName: String): boolean;
var
FileOp: TSHFileOpStruct;
Att : integer;
begin
Att := Integer(GetFileAttributes(PChar(FileName)));
if Att <> -1 then
begin
FillChar(FileOp, SizeOf(FileOp),0);
FileOp.wFunc := FO_DELETE;
FileOp.pFrom := PChar(FileName);
FileOp.fFlags:= FOF_ALLOWUNDO or FOF_SILENT {or FOF_NOCONFIRMATION};
Result := (SHFileOperation(FileOp) = 0);
end
else
Result := False;
end;
Budu vdecny za vsechny pripominky.
Honza
Nespolehlive mazani souboru a mazni toho co jsem n
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2002 22:48:58
From: "Honza" <imconr(zv)volny(tec)cz>
> function DeleteToRecycleBin(const FileName: String): boolean;
> var
> FileOp: TSHFileOpStruct;
> Att : integer;
C: array [0..2047] of Char;
> begin
> Att := Integer(GetFileAttributes(PChar(FileName)));
> if Att <> -1 then
> begin
> FillChar(FileOp, SizeOf(FileOp),0);
> FileOp.wFunc := FO_DELETE;
FillChar(C, SizeOf(C), #0);
StrPLCopy(C, FileName, SizeOf(C) - 2);
FileOp.pFrom := C;
> FileOp.fFlags:= FOF_ALLOWUNDO or FOF_SILENT {or FOF_NOCONFIRMATION};
> Result := (SHFileOperation(FileOp) = 0);
> end
> else
> Result := False;
> end;
Petr Vones
Proc vyskakuje CPU okno pri pouziti TMediaPlayer?
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 23.7.2002 00:40:44
Ahoj,
potrebuju prehrat kousek videa, nic sloziteho. Pouzil jsem TMediaPlayer,
nastavil FileName, ale pri spusteni v Delphi vyskoci 2x CPU okno pri
MediaPlayer.Open. Pak to normalne jede. Pri spusteni *.exe se to taky
tvari OK, ale proc to CPU okno? Delam neco blbe nebo je to chyba Delphi?
Diky.
BTW kdyz uz se ptam, jake parametry pri spusteni ma samotny Media
player? V helpu jsem jaksi nic nenasel:-(
Miroslav Novosad
mirnov(zv)atlas(tec)cz
(Win2k SP2, D5 Std SP1)
Proc vyskakuje CPU okno pri pouziti TMediaPlayer?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 00:59:30
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
> potrebuju prehrat kousek videa, nic sloziteho. Pouzil jsem TMediaPlayer,
> nastavil FileName, ale pri spusteni v Delphi vyskoci 2x CPU okno pri
> MediaPlayer.Open. Pak to normalne jede. Pri spusteni *.exe se to taky
> tvari OK, ale proc to CPU okno? Delam neco blbe nebo je to chyba Delphi?
Patrne se jedna o zapomenuty breakpoint nekde v DLL, ktera slouzi jako kodek
pri prehravani videa nebo zvuku. Pouzivas nejake kodeky 'stazene odnekud z
Internetu' ?
> BTW kdyz uz se ptam, jake parametry pri spusteni ma samotny Media
> player? V helpu jsem jaksi nic nenasel:-(
TMediaPlayer (MPlayer.pas) je komponenta. Pokud mas namysli Windows Media
Player, tak tam mas nejlepsi si jej naimportovat jako ActiveX control do
Delphi.
Petr Vones
Jak vytvorit folder nabidku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 01:07:49
From: "Kub��ek Daniel" <kubekonference(zv)atlas(tec)cz>
> Ja lze vyvolat dialog ve kterem lze vybrat adresar.
Viz funkce SelectDirectory
> A jak lze potom dostat vsechny soubory *.txt z tohoto adresare do nejakeho
> pole.
Napriklad funkci BuildFileList v unitu JclFileUtils z JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Algoritmus - zistenie znaku v retazci
[*] Lauko Stefan <laukosw(zv)naex.sk> - 23.7.2002 01:51:57
Ahojte,
nedavno tu prebehla diskusia o sposobe programovania a ladeni funkcii. Bolo
tu niekolko expertov a preto by som ich
poziadal o pomoc.
Mam dva retazce:
S1:=^A^B^C^D^E^F^G;
S2:='XXXXXX'^G'XXXX';
Ako by som co najrychlejsie zistil ci S2 obsahuje znak obsiahnuty v S1?
Staci prvy vyskyt.
Bude sa jednat o texty niekolko desiatok/stoviek Kb, musi to byt velmi
rychle...
Kazdy riadok musim vyhodnotit zvlast.
Zatial ma napada len toto:
Function ObsahujeZnak(S1,S2:String):Boolean;
var
n:Integer;
begin
Result:=False;
For n:= 1 to Length(S1) do
if Pos(S1[n],S2) <> 0 then
begin
Result:=True;
Break;
end;
end;
Je to najrychlejsie? Vacsinou budu retazce ktore neobsahuju znak z S1 a tak
musi cyklus dobehnut do konca...
Lauko.ModifyMenu, owner draw a Win95
[*] Jan K��ek - 23.7.2002 06:11:18
> > Samozrejme, ze tam je, ale ten zavira celou aplikaci. Tak
> si predstav
> > aplikaci, kde mas okna na zalozkach, treba na PageControl.
> A chci mit
> > moznost zavrit okno (stranku), podobne jako u MDI aplikace,
> krizkem na
> > urovni menu.
>
> Ano, hlavne nepouzivat standartni uzivatelske rozhrani ;-)
>
Ja mam pocit, ze MDI uz nepouziva ani MS, viz Office 2000 a treba nove i
Visual Studio .Net.
Honza +
Algoritmus - zistenie znaku v retazci
[*] Jan K��ek - 23.7.2002 06:31:41
Pokud bude S2 opravdu velke ( jak pises kB) a v S1 bude vic jak jeden
znak, tak by se ti mohlo vyplatit udelat inS1 : array[char] of boolean,
ktere naplnis:
for ch := low(char) to high(char) do inS1[ch] := False;
for i := 1 to Length(S1) do inS1[ S1[i] ] := True;
tedy u znaku, ktere jsou v S1, bude v inS1 True
Pak musis projit cele S2:
for i := 1 to Length(S2) do
if inS1[S2[i]] then
begin
// nalezen znak S2[i] na pozici i
result := True;
break;
end;
Ale to, ze pokud chces zjistit, ze retezec neobsahuje zadany znak, tak
musis cely retezec projit, samozrejme zustava :-)
Jen doufam, ze takove prochazeni stringu uz je v poradku (viz.
pripominka PV na zpomaleni od reference counting pri prirazovani na
pozici v stringu), ale snad to by melo.
Honza +
> -----Original Message-----
> From: Lauko Stefan [mailto:laukosw(zv)naex.sk]
> Sent: Tuesday, July 23, 2002 1:52 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Algoritmus - zistenie znaku v retazci
>
>
> Ahojte,
> nedavno tu prebehla diskusia o sposobe programovania a ladeni
> funkcii. Bolo
> tu niekolko expertov a preto by som ich
> poziadal o pomoc.
>
> Mam dva retazce:
> S1:=^A^B^C^D^E^F^G;
> S2:='XXXXXX'^G'XXXX';
> Ako by som co najrychlejsie zistil ci S2 obsahuje znak
> obsiahnuty v S1?
> Staci prvy vyskyt.
> Bude sa jednat o texty niekolko desiatok/stoviek Kb, musi to byt velmi
> rychle...
> Kazdy riadok musim vyhodnotit zvlast.
> Zatial ma napada len toto:
>
> Function ObsahujeZnak(S1,S2:String):Boolean;
> var
> n:Integer;
> begin
> Result:=False;
> For n:= 1 to Length(S1) do
> if Pos(S1[n],S2) <> 0 then
> begin
> Result:=True;
> Break;
> end;
> end;
>
> Je to najrychlejsie? Vacsinou budu retazce ktore neobsahuju
> znak z S1 a tak
> musi cyklus dobehnut do konca...
> Lauko.
>
>
>
>
ModifyMenu, owner draw a Win95
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.7.2002 06:35:30
MjMuNy4yMDAyIEphbiBL+O2+ZWs6DQo+PiBBbm8sIGhsYXZuZSBuZXBvdXppdmF0IHN0YW5kYXJ0
bmkgdXppdmF0ZWxza2Ugcm96aHJhbmkgOy0pDQoNCj4gSmEgbWFtIHBvY2l0LCB6ZSBNREkgdXog
bmVwb3V6aXZhIGFuaSBNUywgdml6IE9mZmljZSAyMDAwIGEgdHJlYmEgbm92ZSBpDQo+IFZpc3Vh
bCBTdHVkaW8gLk5ldC4NCg0KVmlzdWFsIHN0dWRpbyBqc2VtIHBvcmFkbmUgbmV2aWRlbCwgYWxl
IHYgT2ZmaWNlIHRvIHBvcmFkIGplc3RlIE1ESQ0KamUsIHBvdXplIHNlIG5hIHNwb2RuaSBsaXN0
ZSBwcmlkYXZhamkgb2RrYXp5IG5hIG9rbmEgKGpha28gYnkgamljaCB0YW0NCmJ5bG8gbWFsbykN
Cg0KTmEgdG8gc3RhY2kgdSBva25hIHByZXBzYXQgbWV0b2R1IENyZWF0ZVBhcmFtcw0KDQpwcm90
ZWN0ZWQNCiAgQ3JlYXRlUGFyYW1zKHZhciBQYXJhbXM6IFRDcmVhdGVQYXJhbXMpOyBvdmVycmlk
ZTsNCg0KaW1wbGVtZW50YXRpb24NCg0KcHJvY2VkdXJlIEZvcm0xLkNyZWF0ZVBhcmFtcyh2YXIg
UGFyYW1zOiBUQ3JlYXRlUGFyYW1zKTsNCmJlZ2luDQogIGluaGVyaXRlZDsNCiAgd2l0aCBQYXJh
bXMgZG8NCiAgYmVnaW4NCiAgICBFeFN0eWxlIDo9IEV4U3R5bGUgb3IgV1NfRVhfQVBQV0lORE9X
Ow0KICAgIFduZFBhcmVudCA6PSBHZXREZXNrdG9wV2luZG93Ow0KICBlbmQ7DQplbmQ7DQoNCg0K
LS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3o=
ModifyMenu, owner draw a Win95
[*] Jan K��ek - 23.7.2002 06:47:31
> 23.7.2002 Jan K��ek:
> >> Ano, hlavne nepouzivat standartni uzivatelske rozhrani ;-)
>
> > Ja mam pocit, ze MDI uz nepouziva ani MS, viz Office 2000 a
> treba nove i
> > Visual Studio .Net.
>
> Visual studio jsem poradne nevidel, ale v Office to porad jeste MDI
> je, pouze se na spodni liste pridavaji odkazy na okna (jako
> by jich tam
> bylo malo)
>
> Na to staci u okna prepsat metodu CreateParams
>
> protected
> CreateParams(var Params: TCreateParams); override;
>
> implementation
>
> procedure Form1.CreateParams(var Params: TCreateParams);
> begin
> inherited;
> with Params do
> begin
> ExStyle := ExStyle or WS_EX_APPWINDOW;
> WndParent := GetDesktopWindow;
> end;
> end;
>
Ja bych rekl, ze je to slozitejsi
- kdyz mam otevreny dva dokumenty, tak mam dve hlavni okna (class
OpusApp) a uvnitr kazdeho je jeden dokument, dve menu a tak dale.
- nemam zadna tlacitka pro maximalizaci, minimalizaci a zavreni
dokumentu, pouze toho hlavniho okna. Ale pokud mam jen jeden dokument,
tak se mi vytvori tlacitko pro zavreni toho dokumentu.
- lze mit jeden dokument (presneji jeho hlavni okno) maximalizovany a
druhy normalizovany - coz je jedna z velkych neprijemnosti MDI, viz i
nektere maily zde v konferenci.
Osobne mi pripada, ze z MDI tam zustalo pouze menu Window (resp. Okno]
se seznamem oken Wordu...
BTW: WS_EX_APPWINDOW znam a nedavno jsem tu resil jeste par malickosti,
ktere je treba s jeho pouzitim spojit (zkousel jsem si udelat aplikaci s
podobnych chovanim oken jako Outlook). Zkusil jsem si vygenerovat novou
MDI aplikaci a pridal jsem ji metodu CreateParams do MDIChild, ale to
nezabralo.
Honza +
p.s. Vse me vychazi ze znalosti D5Prof
ModifyMenu, owner draw a Win95
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.7.2002 07:02:40
MjMuNy4yMDAyIEphbiBL+O2+ZWs6DQo+IEphIGJ5Y2ggcmVrbCwgemUgamUgdG8gc2xveml0ZWpz
aQ0KPiAgLSBrZHl6IG1hbSBvdGV2cmVueSBkdmEgZG9rdW1lbnR5LCB0YWsgbWFtIGR2ZSBobGF2
bmkgb2tuYSAoY2xhc3MNCj4gT3B1c0FwcCkgYSB1dm5pdHIga2F6ZGVobyBqZSBqZWRlbiBkb2t1
bWVudCwgZHZlIG1lbnUgYSB0YWsgZGFsZS4NCj4gIC0gbmVtYW0gemFkbmEgdGxhY2l0a2EgcHJv
IG1heGltYWxpemFjaSwgbWluaW1hbGl6YWNpIGEgemF2cmVuaQ0KPiBkb2t1bWVudHUsIHBvdXpl
IHRvaG8gaGxhdm5paG8gb2tuYS4gQWxlIHBva3VkIG1hbSBqZW4gamVkZW4gZG9rdW1lbnQsDQo+
IHRhayBzZSBtaSB2eXR2b3JpIHRsYWNpdGtvIHBybyB6YXZyZW5pIHRvaG8gZG9rdW1lbnR1Lg0K
PiAgLSBsemUgbWl0IGplZGVuIGRva3VtZW50IChwcmVzbmVqaSBqZWhvIGhsYXZuaSBva25vKSBt
YXhpbWFsaXpvdmFueSBhDQo+IGRydWh5IG5vcm1hbGl6b3ZhbnkgLSBjb3ogamUgamVkbmEgeiB2
ZWxreWNoIG5lcHJpamVtbm9zdGkgTURJLCB2aXogaQ0KPiBuZWt0ZXJlIG1haWx5IHpkZSB2IGtv
bmZlcmVuY2kuDQoNCj4gT3NvYm5lIG1pIHByaXBhZGEsIHplIHogTURJIHRhbSB6dXN0YWxvIHBv
dXplIG1lbnUgV2luZG93IChyZXNwLiBPa25vXQ0KPiBzZSBzZXpuYW1lbSBva2VuIFdvcmR1Li4u
DQoNClphc2UgdGFrIHNsb3ppdGUgYnljaCB0byBuZXZpZGVsLiBQb2t1ZCB1IG9rbmEgbmVjaGFt
IHBvdXplIHphdnJlbmkNCihrcml6ZWssIGt0ZXJ5IHRhbSBqZSksIHNrcnlqaSBtaW5pbWFsaXph
Y2kgYSBtYXhpbWFsaXphY2kgYSBwcmkNCnV6YXZyZW5pIGZvcm11bGFyZSBzaSB6a29udHJvbHVq
aSwga29saWsgbWFtIG90ZXZyZW55Y2ggb2tlbiwgYSBwb2t1ZA0KamUgamljaCB2aWMsIHRhayB6
YXZydSBqZW4gamVkbm8gYSBha3RpdnVqaSBkYWxzaSwgdGFrIG1hbSB2ZSBzcG9qZW5pDQpzIENy
ZWF0ZVBhcmFtcyBjaG92YW5pIFdvcmR1Lg0KDQotLSANCmluZy4gSmFuIEZpYWxhDQptYWlsdG86
amFuLmZpYWxhQGlvbC5jeg==
Komunikace pres Modem
[*] Peter Jurco <peter.jurco(zv)alcatel.sk> - 23.7.2002 07:50:45
Nazdar
skus napr.
http://home.t-online.de/home/Peter.Zwosta/capiidx.htm
www.capi.org
vsetko vlastne funguje na vymene sprav po signalizacnom D kanali.
(vytvorenie spojenia, posielanie sprav, doplnkove sluzby, rusenie spojenia)
Capi ma k tomu aj prisposobene funkcie. Je hlavne urceny na ISDN.
Skus sa najprv pozret do dokumentacie CAPI a potom skus daky
vzorovy zdrojak zo stranky.
TAPI rozhranie je popisane asi dakde v Microsoft dokumentacii.
Maj sa
Peto
----- Original Message -----
From: "J�n HARMAN" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 22. j�l 2002 16:46
Subject: Re: Komunikace pres Modem
Dik za radu, ale kde vemu nejakou napovedu nebo alespon jeden priklad
spojeni ci komunikace? Nemam o tom ani paru.
Honza.
Nazdar
Ak chces robit nieco pod Win tak skus
CAPI alebo TAPI programove rozhranie pre komunikaciu
s ISDN modemom.
S pozdravom
Peter
----- Original Message -----
From: "J�n HARMAN" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 22. j�l 2002 13:39
Subject: Komunikace pres Modem
> ahoj, ptal jsem se na zpusob komunikovani pres modem. Bylo tady receno ze
> muzu normalne pres seriovy port. To by sice slo. No ale co kdy je modem
> ISDN? Ten neni pripojeny k seriovemu portu.
> Dekuji za kazdou radu.
> Honza.
>
Uvozovky ve Firebirdu 1.0
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 23.7.2002 08:09:01
Hi,
mam drobny problem. Pri psani scriptu ve Firebirdu 1.0 (na Win2000) musim
kdyz uvadim nazev tabulky ci sloupce psat tyto nazvy do uvozovek. Jinak mi
to vyhodi hlasku ze danou tabulku ci sloupec nezna (SQL Error code = -204,
Table unknown).
Firebird 1.0.0.796, Windows 2000 SP2
Lze se tech uvozovek nejak zbavit?
Diky
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
Pruvodce filtrovanim seznamu
[*] Karel Klimes <kkonf(zv)email(tec)cz> - 23.7.2002 08:16:37
ahoj,
delam aplikaci, kterou budou pouzivat temer pocitacovy laikove. Aplikace
bude zobrazovat seznam (tisice) polozek, ktere bude mozne filtrovat. Jak
ale prakticky vymyslet nejaky visualni pruvodce, ktery by tomuto uzivateli
pomohl "sesmolit" ten filtr? Mate nejaky napady, linky, apod.
THX kchodl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
ModifyMenu, owner draw a Win95
[*] Jan K��ek - 23.7.2002 08:18:21
>
> Zase tak slozite bych to nevidel. Pokud u okna necham pouze zavreni
> (krizek, ktery tam je), skryji minimalizaci a maximalizaci a pri
> uzavreni formulare si zkontroluji, kolik mam otevrenych oken, a pokud
> je jich vic, tak zavru jen jedno a aktivuji dalsi, tak mam ve spojeni
> s CreateParams chovani Wordu.
>
A jak dosahnu toho, ze mam jeden dokument na pozadi maximalizovany a nad
nim v normalizovanem tvaru dalsi dokument? Koukni se na Word2K pres
Spy++ nebo WinSight a uvidis, ze jsou tam dve hlavni okna.
Honza +
duveryhodnost v NT domene
[*] Richard Siegl <rsiegl(zv)elas.sk> - 23.7.2002 07:54:31
skus pozriet ci nemas zablokovane sluzby RPC na klientovi a tiez na servery
(lokator a mapovac)
Rickie
----- Original Message -----
From: "EFG developer" <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 22, 2002 3:27 PM
Subject: RE: duveryhodnost v NT domene
> Kdyz to mi bohuzel zahlasi "server RPC bohuzel neni k dispozici" a
> neprida me to :(
>
> Petr Sikola
>
> > skus PC1 nanovo zaregistrovat v domene .
> >
> > nastav nech sa hlasi do nejakej skupiny a potom naspet nech
> > sa hlasi do domeny .. ona si potom vypyta login a heslo pre
> > registrovanie v domene.
> >
> > Rickie
>
>
>
aky server pouzit???
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 23.7.2002 09:23:50
No kdyz Ti v programu pobezi nekolik paralelnich procesu (multitasking). Proste kdyz v aplikaci zalozis vice vlaken - Threads (od TThreads) a vic jich pracuje s SQL tak se ti IB6 zacne kousat. Jine verze to nedelaji, ale jsou placene :o(
-----Original Message-----
From: Robert Suska [mailto:delphi(zv)korak.sk]
Sent: Monday, July 22, 2002 3:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: aky server pouzit???
Ahoj
co to znamena v tomto pripade viacvlaknova aplikacia ?
Dakujem
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: "Jaroslav Koh�k" <jaroslav.kohak(zv)dites(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 22, 2002 2:31 PM
Subject: RE: aky server pouzit???
Ahoj,
tak IB pouzit muzes, ale tu zdarma jen v pripade, ze nebudes delat
vicevlaknovou aplikaci. Pak to moc nechodi.
-----Original Message-----
From: Robert Suska [mailto:delphi(zv)korak.sk]
Sent: Monday, July 22, 2002 2:01 PM
To: Delphi konfera
Subject: aky server pouzit???
Ahojte!
Potrebujem "napisat", postavit server bud na IB alebo SQL proste nic
zloziteho len potrebujem nejake info aky server mam pouzit, chcem sa vyhnut
MS SQL resp. nieco co je zadarmo a pod Windows. Proste ide o to ze chcem
napisat nejaku jednoduchu databazu, lepsie povedane chcem sa to naucit robit
a urobit potom nieco zlozitejsie teraz chcu chlapi odo mna aby som napisal
nejaku databazu kontaktov a tak. A chcem sa uplne este vyhnut BDE s tym som
uz robil databazu ako sharing tabuliek bolo to postavene na paradoxe akoze
bezi to bez spadnutia 1 rok a 4 mesiace ale chcem sa naucit SQL. Prosim
podnety navrhy napady.
Dakujem
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
************************************
Pruvodce filtrovanim seznamu
[*] Richard Siegl <rsiegl(zv)elas.sk> - 23.7.2002 09:03:18
ak v tom zozname bude nevelky a fixny pocet stpcov tak nad kazdy stlpec daj
editbox,
ked bude v editboxe napr. nad stlpcom "mesto" napr "br" tak v zozname budu
iba polozky ktore tomuto filtru vyhovuju.atd.. ... naplnat zoznam budes cez
select alebo cez pole prip kolekciu
Rickie
----- Original Message -----
From: "Karel Klimes" <kkonf(zv)email(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 23, 2002 7:16 AM
Subject: Pruvodce filtrovanim seznamu
> ahoj,
> delam aplikaci, kterou budou pouzivat temer pocitacovy laikove. Aplikace
> bude zobrazovat seznam (tisice) polozek, ktere bude mozne filtrovat. Jak
> ale prakticky vymyslet nejaky visualni pruvodce, ktery by tomuto uzivateli
> pomohl "sesmolit" ten filtr? Mate nejaky napady, linky, apod.
>
> THX kchodl
>
----------------------------------------------------------------------------
----
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
>
TabSheet.Enabled nereaguje
[*] Miroslav Kortus <delphi(zv)nemocnice-vs(tec)cz> - 23.7.2002 10:03:12
Ahoj.
Mam D3S.
Na formulari komponentu PageControl a na ni nekolik TabSheet.
Kdyz jsem vse poprve naprogramoval, mohl jsem ovladat pristup k jednotlivym
TabSheet pomoci property Enabled.
Pak jsem asi udelal neco, nevim co a nyni mi TabSheet na nastaveni Enabled
nereaguji a chovaji se jako by byly vsechny stale ve stavu Enabled := true.
Mohl by mi nekdo poradit co mam udelat, aby TabSheet reagovaly na nastaveni
Enabled
Dekuji
Mira
Cannot use SAVE TRANSACTION within a distributed t
[*] pilifs <pilifs(zv)seznam(tec)cz> - 23.7.2002 10:28:10
Zdravim,
muzete mi nekdo poradit z chybovou hlaskou viz. subjekt.
Ze sve aplikace upravuji zaznamy v lokalni databazi a v tabulce, ktera
je napojena na centralni DB (tabulku) na centralnim serveru.
Asi taklhle:
Provedu napr. UPDATE zaznamu, poslu jej pomoci procedury do lokalni
tabulky, v teto tabulce se pomoci triggeru provede UPDATE na
centralnim serveru a pokud je vse v poradku tak se zmena projevi jak
na lokale na centralnim serveru.
Problem je v tom, ze pokud toto provedu z Delphi pres ADO tak se
objevi vyse uvedena chyba. Pokud ale pouziji na to same Query Analyzer
tak vse projde v poradku.
Pouzivam D6Ent, MSSQL2000, W2000.
Diky za kazdou radu,
Lada.
barevny ListView
[*] <ivan.virag(zv)aliatel(tec)cz> - 23.7.2002 10:30:25
Zdravim.
Uz mnohokrat tu probehlo reseni na odliseni barev radku a sloupcu DBGridu v zavislosti na hodnotach jednotlivych bunek. Existuje takove reseni i pro ListView? Dekuji.
Ivan Virag
farebny dbgrid
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 23.7.2002 10:43:17
Hi, co se tyce dbgridu, tak toto tema je tu dost casto, zkus projet archiv.
Jinak zakladni idea je obsluha udalosti OnDrawDataCell.
Pavel
The following example conditionally changes the font color of rows in a DB
Grid. The following code is added to the DB Grid's OnDrawDataCell event. If
the field Size is greater than 10, the row's font will be red.
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName('Size').AsFloat > 10 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
//----------------------
Zdravim,
potreboval by som poradit ako nastavit farbu jednotlivej bunky v
dbgrige podla obsahu bunky. Napr. 0-20 zelena, 21-80 zlta, 81-100
cervena.
Este lepsie by bolo keby kazda bunka mohla obsahovat ako
pozadie miniaturny progressbar.
Mate nejake napady?
Dakujem.
P.Svorc
farebny dbgrid
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 23.7.2002 10:43:17
Vykreslovani funguje nejak takto.
procedure TSpravci_DHMp.Pohyb1RxDBGrid1GetCellParams(Sender: TObject;
Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if V_SpravceINT_DOKLAD.AsInteger in [0..20] then
AFont.Color := clGreen
else if V_SpravceINT_DOKLAD.AsInteger in [21..40] then
AFont.Color := clRed
else
AFont.Color := clNavy;
end;
Pokud by jsi chtel vykreslovat pomernou cast (asi jako progresbar) tak potom
v udalosti onDrawDataCell resp OnDrawColumnCell. Mas tam Rect a jeho sirka
bude tvych 100%.
Sroub
> Zdravim,
> potreboval by som poradit ako nastavit farbu jednotlivej bunky v
> dbgrige podla obsahu bunky. Napr. 0-20 zelena, 21-80 zlta, 81-100
> cervena.
> Este lepsie by bolo keby kazda bunka mohla obsahovat ako
> pozadie miniaturny progressbar.
> Mate nejake napady?
> Dakujem.
> P.Svorc
barevny ListView
[*] Ing. Pavel �ilinec����)b���zf���3 - 23.7.2002 11:13:41
Odchyt OnCustomDrawItem:
procedure lvPolozkyCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
inherited;
Sender.Canvas.Brush.Color := clWindow;
if (Item.SubItems[8]= '0') then
lvPolozky.Canvas.Brush.Color := clLtGray;
end;
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
ivac> Zdravim.
ivac> Uz mnohokrat tu probehlo reseni na odliseni barev radku a sloupcu DBGridu v zavislosti na hodnotach jednotlivych bunek. Existuje takove reseni i pro ListView? Dekuji.
ivac> Ivan Virag
farebny dbgrid
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 23.7.2002 10:14:18
Zdravim,
potreboval by som poradit ako nastavit farbu jednotlivej bunky v
dbgrige podla obsahu bunky. Napr. 0-20 zelena, 21-80 zlta, 81-100
cervena.
Este lepsie by bolo keby kazda bunka mohla obsahovat ako
pozadie miniaturny progressbar.
Mate nejake napady?
Dakujem.
P.Svorc
TabSheet.Enabled nereaguje
[*] Ing. Pavel �ilinec����)b���zf���3 - 23.7.2002 11:18:45
Pokud by ti nevadilo, ze nebude videt vubec, tak zkus TabVisible
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
MK> Ahoj.
MK> Mam D3S.
MK> Na formulari komponentu PageControl a na ni nekolik TabSheet.
MK> Kdyz jsem vse poprve naprogramoval, mohl jsem ovladat pristup k jednotlivym
MK> TabSheet pomoci property Enabled.
MK> Pak jsem asi udelal neco, nevim co a nyni mi TabSheet na nastaveni Enabled
MK> nereaguji a chovaji se jako by byly vsechny stale ve stavu Enabled := true.
MK> Mohl by mi nekdo poradit co mam udelat, aby TabSheet reagovaly na nastaveni
MK> Enabled
MK> Dekuji
MK> Mira
Uvozovky ve Firebirdu 1.0
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.7.2002 12:02:14
> mam drobny problem. Pri psani scriptu ve Firebirdu 1.0 (na Win2000)
> musim kdyz uvadim nazev tabulky ci sloupce psat tyto nazvy do
> uvozovek. Jinak mi to vyhodi hlasku ze danou tabulku ci sloupec nezna
> (SQL Error code = -204, Table unknown).
>
> Lze se tech uvozovek nejak zbavit?
Uvozovky by nemely byt potreba, kdyz pri definici tabulek apod. pouzivas vsude
velka pismena. Pri pouzivani techto objektu to jiz neni potreba, ale pri definici ano.
Aspon pri praci s IBExpertem to takhle funguje.
David Lebeda
aky server pouzit???
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.7.2002 12:07:09
Proste kdyz v aplikaci zalozis vice vlaken - Threads
> (od TThreads) a vic jich pracuje s SQL tak se ti IB6 zacne kousat.
> Jine verze to nedelaji, ale jsou placene :o(
Ahoj, tohle nepotvrzuji. IMHO IB6 se ve vicevlaknovych aplikacich nekouse, kdyz se
spravne pouziva. Kouse-li se Ti, cekal bych problem spise v aplikaci.
David Lebeda
Algoritmus - zistenie znaku v retazci
[*] Pavel Kral <kral(zv)zoner(tec)com> - 23.7.2002 12:14:30
Ahoj,
> nedavno tu prebehla diskusia o sposobe programovania a ladeni
> funkcii. Bolo
kdyz jsem potreboval co nejrychlejsi textove funkce pro Delphi,
zkusil jsem hledat na webu a nasel stranku s odkazem na free
knihovnu HyperString. Jeji pouziti fakt vse zrychlilo mnohonasobne,
doporucuji.
Ted kdyz jsem to zkusil hledat na Googlu, tak mi to vyhodilo i
FastStrings na torry.net, pry jeste rychlejsi.
>
> Function ObsahujeZnak(S1,S2:String):Boolean;
...
>
> Je to najrychlejsie? Vacsinou budu retazce ktore neobsahuju
tady to muze dost zpomalit uz samotne predavani parametru do funkce,
lepsi je deklarovat parametry jako const, kdyz se v prubehu nemeni:
Function ObsahujeZnak( CONST S1,S2:String):Boolean;
Samotne prepsani deklaraci mi to taky vyrazne zrychlilo.
Pavel
aky server pouzit???
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 23.7.2002 12:21:30
> No kdyz Ti v programu pobezi nekolik paralelnich procesu (multitasking).
Proste kdyz v aplikaci zalozis vice vlaken - Threads (od TThreads) a vic
jich pracuje s SQL tak se ti IB6 zacne kousat. Jine verze to nedelaji, ale
jsou placene :o(
V kazdem vlakne musis mit samostatnou TIBDatabase a TIBTransaction, pak to
funguje bez problemu. Uz z principu, kdyby SQL server nepodporoval
multitasking, tak nevim jak by fungoval v sitovem provozu.
Uvozovky: SQL/delphi
[*] EFG developer <developer(zv)efg(tec)cz> - 23.7.2002 12:31:37
Zdravim, jak resite ukladani textu s uvozovkami do databaze?
kdyz dam napriklad
query.execSQL('insert into DATA (A,B,C) values (''' + edit1.text +
''',''' + edit2.text + ''',''' + edit3.text + ''')');
co kdyz uzivatel zada do edit1(2,3) text obsahujici znak ' ?
lze toto nejak jednoduse resit ?
Petr Sikola
Uvozovky: SQL/delphi
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.7.2002 12:38:59
> query.execSQL('insert into DATA (A,B,C) values (''' + edit1.text +
> ''',''' + edit2.text + ''',''' + edit3.text + ''')');
>
> co kdyz uzivatel zada do edit1(2,3) text obsahujici znak ' ?
>
> lze toto nejak jednoduse resit ?
>
Ahoj,
presne z techle duvodu nejradeji pouzivam SQL dotaz s parametry, tj.
query.execSQL('insert into DATA (A,B,C) values (:a, :b, :c)');
ParamByName('a').AsString := Edit1.Text;
ParamByName('b').AsString := Edit2.Text;
ParamByName('c').AsString := Edit3.Text;
Nebo si napsat funkci na zdvojeni apostrofu, ktera vsechny vyskyty apostrofu v
predanem retezci zdvoji, ale ten prvni zpusob se mi libi vic.
David Lebeda
************************************************************
David Lebeda, program�tor
ComArr s. r. o.
Tolarova 291, 533 51 Pardubice
Telefon: 040/6889 111 (�st�edna), 040/6889 225 (p��m� linka)
Fax: 040/6415 481
E-mail: lebeda(zv)comarr(tec)cz
http://www.comarr(tec)cz
************************************************************
Uvozovky: SQL/delphi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.7.2002 12:42:11
A co to neskladat, ale pouzit parametry ?
query.SQL := 'insert into DATA (A,B,C) values (:Edit1, :Edit2,
:Edit3';
Query.paramByname('Edit1').AsString := Edit1.Text;
Query.paramByname('Edit2').AsString := Edit2.Text;
Query.paramByname('Edit3').AsString := Edit3.Text;
Query.ExecSQL;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.7.2002 EFG developer:
> Zdravim, jak resite ukladani textu s uvozovkami do databaze?
> kdyz dam napriklad
> query.execSQL('insert into DATA (A,B,C) values (''' + edit1.text +
> ''',''' + edit2.text + ''',''' + edit3.text + ''')');
> co kdyz uzivatel zada do edit1(2,3) text obsahujici znak ' ?
> lze toto nejak jednoduse resit ?
> Petr Sikola
Cannot use SAVE TRANSACTION within a distributed t
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.7.2002 12:50:47
Jak to pouzivas:
1. Volas to jako ulozenou proceduru nebo SQL prikaz,
2. transakce je kodu procedury (prikazu) nebo Connection.BeginTransaction
Pavel
> -----Original Message-----
> From: pilifs [mailto:pilifs(zv)seznam(tec)cz]
> Sent: Tuesday, July 23, 2002 10:28 AM
> To: Delphi Forum
> Subject: Cannot use SAVE TRANSACTION within a distributed transaction
>
>
> Zdravim,
> muzete mi nekdo poradit z chybovou hlaskou viz. subjekt.
>
> Ze sve aplikace upravuji zaznamy v lokalni databazi a v tabulce, ktera
> je napojena na centralni DB (tabulku) na centralnim serveru.
>
> Asi taklhle:
> Provedu napr. UPDATE zaznamu, poslu jej pomoci procedury do lokalni
> tabulky, v teto tabulce se pomoci triggeru provede UPDATE na
> centralnim serveru a pokud je vse v poradku tak se zmena projevi jak
> na lokale na centralnim serveru.
>
> Problem je v tom, ze pokud toto provedu z Delphi pres ADO tak se
> objevi vyse uvedena chyba. Pokud ale pouziji na to same Query Analyzer
> tak vse projde v poradku.
>
> Pouzivam D6Ent, MSSQL2000, W2000.
>
> Diky za kazdou radu,
> Lada.
>
Uvozovky: SQL/delphi
[*] Ing. Pavel �ilinec����)b���zf���3 - 23.7.2002 12:56:58
Mas dve moznosti:
Bud to davat pres parametry a pak se o to nemusis starat
Query.SQL.Text := 'Insert into Datat (a, b, c) values (:A, :B, :C)');
Query.ParamByName('A').AsString := Edit1.Text; ....
nebo u Tveho prikladu jeste prohnat ten text nahrazenim znaku ' za 2
takove a pak uz je to zase OK (spis bych takovy znak uplne vyhodil :))
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Ed> Zdravim, jak resite ukladani textu s uvozovkami do databaze?
Ed> kdyz dam napriklad
Ed> query.execSQL('insert into DATA (A,B,C) values (''' + edit1.text +
Ed> ''',''' + edit2.text + ''',''' + edit3.text + ''')');
Ed> co kdyz uzivatel zada do edit1(2,3) text obsahujici znak ' ?
Ed> lze toto nejak jednoduse resit ?
Ed> Petr Sikola
Uvozovky: SQL/delphi
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.7.2002 13:11:19
Mnohem pohodlnejsi je pouzit funkci QuotedStr.
function QuotedStr(const S: string): string;
Description
Use QuotedStr to convert the string S to a quoted string. A single quote
character (') is inserted at the beginning and end of S, and each single
quote character in the string is repeated.
Pavel
> -----Original Message-----
> From: Ing. Pavel �ilinec [mailto:zilinec(zv)email(tec)cz]
> Sent: Tuesday, July 23, 2002 12:57 PM
> To: EFG developer
> Subject: Re: Uvozovky: SQL/delphi
>
>
> Mas dve moznosti:
> Bud to davat pres parametry a pak se o to nemusis starat
> Query.SQL.Text := 'Insert into Datat (a, b, c) values
> (:A, :B, :C)');
> Query.ParamByName('A').AsString := Edit1.Text; ....
> nebo u Tveho prikladu jeste prohnat ten text nahrazenim znaku ' za 2
> takove a pak uz je to zase OK (spis bych takovy znak uplne
> vyhodil :))
>
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
>
> Prog-Soft s.r.o. Plzen
> Informacni system pro vyrobce
> a distributory napoju
>
> Ed> Zdravim, jak resite ukladani textu s uvozovkami do databaze?
>
> Ed> kdyz dam napriklad
>
> Ed> query.execSQL('insert into DATA (A,B,C) values (''' +
> edit1.text +
> Ed> ''',''' + edit2.text + ''',''' + edit3.text + ''')');
>
> Ed> co kdyz uzivatel zada do edit1(2,3) text obsahujici znak ' ?
>
> Ed> lze toto nejak jednoduse resit ?
>
> Ed> Petr Sikola
>
vyjimka pri UDP vysilani do vypnute site - rekapit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.7.2002 13:18:21
> try
> UDPSocket1.BroadcastData('reload_ip');
> except
> end;
>
> Na WinXP mi to s try..except funguje, vyjimka zustane skryta
(zobrazi ji
> pouze delphi, ale to je samozrejme v poradku) a aplikace bezi dal.
Ale na
> Win95 se mi program kousne.
nemas od te komponenty zdrojak abys zjistil kde to vlastne zlobi?
> Co tedy potrebuju:
> Nejprve jistit, zda je funkcni sit a teprve pote vyslat broadcast.
to je podle me nesmyslne. Pricinu problemu to nevyresi (alespon ne
spolehlive). Zahodil bych tu komponentu a napsal bych to primo pomoci
Winsock API ....
D. Toman
TELNET
[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 23.7.2002 13:24:38
Dobr� den,
By� jsem se sna�il jak �ert, ani v historii konference, ani jinde na s�ti jsem nena�el indicie vedouc� ke kvalitn�mu �e�en� n�sleduj�c�ho probl�mku: Pot�ebuji vytvo�it velice jednoduch� termin�lov� okno - bez pot�eby emulace r�zn�ch termin�l� �i k�dov�ch str�nek.
V�m, �e tento probl�m byl p�ed n�jakou dobou v konferenci aktu�ln�, ale jak ��k�m - nepoda�ilo se mi naj�t nic, co by m�, jako�to laika popostr�ilo kousek kup�edu.
Pokud tedy, n�kdo z V�s, m� s n���m takov�m zku�enost dejte mi v�d�t: velmi r�d bych pro tento ��el pou�il ��el pou�il Synapse (n�jak jsem si na tento geni�ln� v�tvor v posledn� dob� zvyknul). -> respektive doporu�en� �i odkaz na sta�en� �ehokoliv komer�n�ho je mi naprosto k ni�emu.
S d�ky,
Michael Jane�ek
Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz
Optimalizace SQL dotazu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.7.2002 13:42:14
Zdravim.
Chci se zeptat odborniku na SQL ktery z dotazu bude na MS SQL2000 serveru
optimalnejsi pouzit :
select MNFYZICKYSTAV as Skladem from zbozskl
JOIN zbozi ON zbozskl.IDZBOZI=zbozi.IDZBOZI
WHERE zbozi.cis_zbozi='P0007'
nebo
select zbozskl.MNFYZICKYSTAV FROM zbozskl, zbozi
WHERE
zbozi.cis_zbozi='P0007'
and
zbozskl.IDZBOZI=zbozi.IDZBOZI
Neboli obecne zda je lepsi pouzivat konstrukci JOIN nebo druhy pripad.
Dekuji
Ludek
TELNET
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.7.2002 14:03:59
> Pokud tedy, n�kdo z V�s, m� s n���m takov�m zku�enost dejte mi v�d�t:
> velmi r�d bych pro tento ��el pou�il ��el pou�il Synapse (n�jak jsem
> si na tento geni�ln� v�tvor v posledn� dob� zvyknul). -> respektive
> doporu�en� �i odkaz na sta�en� �ehokoliv komer�n�ho je mi naprosto k
> ni�emu.
No, se Synapsi bys musel trosku programovat. Prima podpora telnetu
tam zatim jste neni, ale uz se na jeho implementaci pomalu chystam.
(do konce prazdnin to ale nebude)... koketuji take s SSH. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Filtrovani tabulky - kde je chyba
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 23.7.2002 14:20:48
Servus ve spolek,
resim problem s KaDaoTable. Problem je ve filtrovani tabulky, kde pole
"Datum" je typu Date. Jako filtr pouzivam toto:
Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
4.7.2002 and Datum <= 4.7.2002 and Vyvoz = False
Tady to vyhodi "Chyba v syntaxi cisla ...", tak jsem ty datov� polo�ky taky
uzavrel do apostrof a vyhodilo to "Nesoulad datovych typu..."
Nevite nekdo v cem delam chybu?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.374 / Virov� b�ze: 209 - datum vyd�n�: 9.7.2002
TELNET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 14:29:47
From: "Jane�ek Michael" <michael.janecek(zv)spar-cr(tec)cz>
> Pot�ebuji vytvo�it velice jednoduch� termin�lov� okno - bez pot�eby emulace
> r�zn�ch termin�l� �i k�dov�ch str�nek.
Pokud ti jde o vizualni komponentu, tak se podivej na AfTerminal z AsyncFree:
http://sourceforge.net/project/showfiles.php?group_id=20226&release_id=61248
Petr Vones
Optimalizace SQL dotazu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.7.2002 14:51:12
Obecne to vyjde na stejno, protoze optimaliator si s tim poradi.
Obycejny Join je ekvivalentni druhemu pripadu.
Pouze je obvykle (druhy pripad) napred uvest spojovaci podminky a pak
dalsi omezeni.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.7.2002 Ludek ZITA:
> Zdravim.
> Chci se zeptat odborniku na SQL ktery z dotazu bude na MS SQL2000 serveru
> optimalnejsi pouzit :> select MNFYZICKYSTAV as Skladem from zbozskl
> JOIN zbozi ON zbozskl.IDZBOZI=zbozi.IDZBOZI
> WHERE zbozi.cis_zbozi='P0007'
> nebo
> select zbozskl.MNFYZICKYSTAV FROM zbozskl, zbozi
> WHERE
> zbozi.cis_zbozi='P0007'
> and
> zbozskl.IDZBOZI=zbozi.IDZBOZI
> Neboli obecne zda je lepsi pouzivat konstrukci JOIN nebo druhy pripad.
> Dekuji
> Ludek
AsyncFree
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 23.7.2002 15:23:37
Ahoj vsichni
Mam dotaz nekolik dotazu na vas vsechny a hlavne na Petra Vonese.
1. Jak to vypada s AsyncFree? Mam posledni verzi ze 17.10.1999. Je nejaka
novejsi? Funguje i pod Delphi 6?
2. Mam takovyto problem. S AsyncFree jsem vytvoril program na komunikaci se
cteckou karet. Pouziva komponent AfCommPort,AfDataDispatcher. U nas ve firme
(na pomalych strojich) funguje dobre, u zakaznika (ma rychle stroje Dell
>1Ghz ) nacte cislo karty na kazdy druhy pokus.
komunikace spociva v tom ze poslu pozadavek (writestring) dam sleep a
opakuju readstring sleep dokud nedostanu dostatecny pocet znaku, nebo
nevycerpam pokusy). Nevite co bych mel zkontrolovat. Deje se mi to, ze
dvakrat zasebou nactu stejnou kartu, i kdyz ji vymenim.
Jaromir Cermak
Frm z Dll
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 23.7.2002 15:25:48
Hi all,
Mam otazku, predpokladam, ze niekto z vas tu uz ma isto vyriesene
Chcem do dllka vlozit formular (klasicky TForm). A potom by som rad, tento
formular chcel pouzivat v MDI aplikacii, kt. si zavola pomocou LoadLibrary
to moje dllko.
Form zatial v tom dllku som skusal vytvorit cez:
1. frm := CreateParented(ClientHandleMainFormuApplikacie)
(tento sposob mi robi problemy, pri FreeLibrary, hodi to AV, ak
ostali nejake okna
z dllka otvorene)
2. frm := Create(Application); // t.j. application dllka
frm.ParentWindow := ClientHandleMainFormuApplikacie;
(tento sa sprava korektne pri FreeLibrary, otvorenen okna si zavrie)
Oba pripady, vsak maju jednu dost podstatnu chybu a to, ze takto vytvorene
okno, sa neda v aplikacii zaktivnit (t.j. pruh je stale sedy a neodchytavava
stlacene klavesy (myska mi funguje korektne))
Viete mi niekto pomoct, co stym, alebo mi navrhnut ine riesenie
Dakujem
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
AsyncFree
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 15:29:28
From: "CERMAK" <CERMAK(zv)procom(tec)cz>
> 1. Jak to vypada s AsyncFree? Mam posledni verzi ze 17.10.1999.
> Je nejaka novejsi?
Ne, a patrne uz asi nebude.
> Funguje i pod Delphi 6?
Ano.
> komunikace spociva v tom ze poslu pozadavek (writestring) dam sleep a
> opakuju readstring sleep dokud nedostanu dostatecny pocet znaku, nebo
> nevycerpam pokusy). Nevite co bych mel zkontrolovat. Deje se mi to, ze
Pouzivat programovani rizene udalostmi. Tedy zadne Sleep apod, ale zkratka
spustit timer (nebo neco podobneho) a pockat az (jestli vubec) dojde k
udalosti OnDataReceived a v ni data postupne nacitat do nejakeho bufferu.
Pokud prijdou, zastavit timer.
Pokud ma byt cela logika komunikace v samostatnem threadu, tak je lepsi ty
komponenty vubec nepouzivat a pouzit asi jen tu zakladni tridu TAfComPortCore.
> dvakrat zasebou nactu stejnou kartu, i kdyz ji vymenim.
Je mozne, ze je tam nejaka chyba v tech bufferech, v tomto pripade asi staci
pouzivat jen AfComPort.
Petr Vones
Filtrovani tabulky - kde je chyba
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 23.7.2002 15:32:55
Ak fungujes nad MSAccessosom tak sa mi zda ze ten tam zapisuje datum so
znakmi #
Skus si v Accessese vytvorit cez navrhar takyto select a potom sa pozri na
jeho SQL tvar
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----P�vodn� zpr�va-----
Od: Rumcajs [mailto:prajz.rumcajs(zv)quick(tec)cz]
Odesl�no: 23. �ervence 2002 14:21
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Filtrovani tabulky - kde je chyba
Servus ve spolek,
resim problem s KaDaoTable. Problem je ve filtrovani tabulky, kde pole
"Datum" je typu Date. Jako filtr pouzivam toto:
Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
4.7.2002 and Datum <= 4.7.2002 and Vyvoz = False
Tady to vyhodi "Chyba v syntaxi cisla ...", tak jsem ty datov� polo�ky taky
uzavrel do apostrof a vyhodilo to "Nesoulad datovych typu..."
Nevite nekdo v cem delam chybu?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.374 / Virov� b�ze: 209 - datum vyd�n�: 9.7.2002
aky server pouzit???
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 23.7.2002 15:36:16
To by bylo trosku neprakticky. Protoze mam aplikaci kde se vlakna generuji podle vznikajicich udalosti. A ze bych mel vzdy
vytvaret novej conection?! Staci kdyz si ohlidas sdileni. U jinych verzi IB vse funguje OK, ale u IB6 mi to po nejake dobe havarovalo (za nekolik dni). Ale treba jsem mel nejakou spatnou verzi.
-----Original Message-----
From: Richard Kejval [mailto:kejval.delphi(zv)centrum(tec)cz]
Sent: Tuesday, July 23, 2002 12:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: aky server pouzit???> No kdyz Ti v programu pobezi nekolik paralelnich procesu (multitasking).
Proste kdyz v aplikaci zalozis vice vlaken - Threads (od TThreads) a vic
jich pracuje s SQL tak se ti IB6 zacne kousat. Jine verze to nedelaji, ale
jsou placene :o(
V kazdem vlakne musis mit samostatnou TIBDatabase a TIBTransaction, pak to
funguje bez problemu. Uz z principu, kdyby SQL server nepodporoval
multitasking, tak nevim jak by fungoval v sitovem provozu.
vyjimka pri UDP vysilani do vypnute site - rekapit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 15:41:24
From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> try
> UDPSocket1.BroadcastData('reload_ip');
> except
> end;
Bohuzel, porad nevime co je to *presne* za komponentu ? Podle nazvu to sice
vypadalo na TUDPSocket v Delphi, ale tam neni metoda BroadcastData.
> Snad uz je to jasnejsi.
Neni.
Zkus pouzit treba UDP z Indy nebo Synapse.
Petr Vones
Optimalizace SQL dotazu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.7.2002 15:43:37
Ahoj,
jde o tutez syntaxi, ta prvni je vsak citelnejsi a odpovida
standardu. Pokud tedy muzes, pouzivej prave ji. V pripade, ze hodlas
dotaz pouzivat i na Oracle 8 a starsi, pouzij druhou, protoze Oracle
dosud nepochopil vyznam slova standard.
Slavek
> Zdravim.
> Chci se zeptat odborniku na SQL ktery z dotazu bude na MS SQL2000
> serveru optimalnejsi pouzit :
>
>
> select MNFYZICKYSTAV as Skladem from zbozskl
> JOIN zbozi ON zbozskl.IDZBOZI=zbozi.IDZBOZI
> WHERE zbozi.cis_zbozi='P0007'
>
> nebo
>
> select zbozskl.MNFYZICKYSTAV FROM zbozskl, zbozi
> WHERE
> zbozi.cis_zbozi='P0007'
> and
> zbozskl.IDZBOZI=zbozi.IDZBOZI
>
> Neboli obecne zda je lepsi pouzivat konstrukci JOIN nebo druhy pripad.
>
> Dekuji
> Ludek
>
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Frm z Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 15:43:47
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> Mam otazku, predpokladam, ze niekto z vas tu uz ma isto vyriesene
> Chcem do dllka vlozit formular (klasicky TForm). A potom by som rad, tento
> formular chcel pouzivat v MDI aplikacii, kt. si zavola pomocou LoadLibrary
1. Aplikaci i DLL preloz s runtime balicky
2. Podivej se na tenhle clanek, je uz sice trochu zastaraly ale zakladni idea
je porad stejna: http://www.obsof.com/delphi_tips/DL613.html
> Viete mi niekto pomoct, co stym, alebo mi navrhnut ine riesenie
Neni vhodne mi zakladni kod VCL vicekrat v jednom procesu, viz nahore.
Petr Vones
Filtrovani tabulky - kde je chyba
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 23.7.2002 15:48:46
V apostrofech by mely byt ty datove hodnoty.
Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
'4.7.2002' and Datum <= '4.7.2002' and Vyvoz = False
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Tuesday, July 23, 2002, 2:20:48 PM, you wrote:
R> Servus ve spolek,
R> resim problem s KaDaoTable. Problem je ve filtrovani tabulky, kde pole
R> "Datum" je typu Date. Jako filtr pouzivam toto:
R> Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
R> 4.7.2002 and Datum <= 4.7.2002 and Vyvoz = False
R> Tady to vyhodi "Chyba v syntaxi cisla ...", tak jsem ty datov� polo�ky taky
R> uzavrel do apostrof a vyhodilo to "Nesoulad datovych typu..."
R> Nevite nekdo v cem delam chybu?
R> Rumcajs
R> ---
R> Odchoz� zpr�va neobsahuje viry.
R> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
R> Verze: 6.0.374 / Virov� b�ze: 209 - datum vyd�n�: 9.7.2002
Firebird a SELECT ID AS TYPE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.7.2002 15:49:30
Preji vsem pekneho dne,
kolaga napsal pomerne rozsahlou aplikaci nad InterBasi 5.6 a ve
velkem mnozstvi pripadu pouziva prikaz podobny nasledujicimu:
select sloupecek as type from tabulka
Nyni prechazi (chce prejit) na FireBird, kde ovsem neprojde prave to
slovicko type ani kdyz je vlozeno do uvozovek ci apostrofu. Je nejaka
moznost, jak na Firebirdu pojmenovat sloupecek type nebo musi udelat
zasah ve velkem mnozstvi kodu a doufat, ze na nic nezapomnel? ;-)
Diky za kazde info
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Frm z Dll
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 23.7.2002 15:53:54
No velmi mi nepomohlo buildnut dllko aj aplikaciu s packages (teda ak je to
ze som zaskrtol v project options na zalozke Packages polozku Build with
runtime packaes) :((
Okno sa stale tvari ako neaktivne (sedy pruh, a nefunguju mi shortcuty
nadnim)
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----P�vodn� zpr�va-----
Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 23. �ervence 2002 15:44
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: Frm z Dll
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> Mam otazku, predpokladam, ze niekto z vas tu uz ma isto vyriesene
> Chcem do dllka vlozit formular (klasicky TForm). A potom by som rad, tento
> formular chcel pouzivat v MDI aplikacii, kt. si zavola pomocou LoadLibrary
1. Aplikaci i DLL preloz s runtime balicky
2. Podivej se na tenhle clanek, je uz sice trochu zastaraly ale zakladni
idea
je porad stejna: http://www.obsof.com/delphi_tips/DL613.html
> Viete mi niekto pomoct, co stym, alebo mi navrhnut ine riesenie
Neni vhodne mi zakladni kod VCL vicekrat v jednom procesu, viz nahore.
Petr Vones
Frm z Dll
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 23.7.2002 16:00:28
A este jedna otazka
Kebyze ten form nedam do dllka ale do package
Je mozne volat takto vytvorenu package i v inych jazykoch okrem delphi (napr
VisualBasic ...)
Nemam vobec ziadne skusenosti s Packages, preto som ani velmi nerozchodil,
preco to mam zbuildovat (to dllko i tu aplikaciu) s packages :(
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----P�vodn� zpr�va-----
Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 23. �ervence 2002 15:44
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: Frm z Dll
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> Mam otazku, predpokladam, ze niekto z vas tu uz ma isto vyriesene
> Chcem do dllka vlozit formular (klasicky TForm). A potom by som rad, tento
> formular chcel pouzivat v MDI aplikacii, kt. si zavola pomocou LoadLibrary
1. Aplikaci i DLL preloz s runtime balicky
2. Podivej se na tenhle clanek, je uz sice trochu zastaraly ale zakladni
idea
je porad stejna: http://www.obsof.com/delphi_tips/DL613.html
> Viete mi niekto pomoct, co stym, alebo mi navrhnut ine riesenie
Neni vhodne mi zakladni kod VCL vicekrat v jednom procesu, viz nahore.
Petr Vones
Filtrovani tabulky - kde je chyba
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 23.7.2002 16:03:17
Jo, pokud ale pouziju nize uvedene, tak mi to vyhodi (jak sem psal)
"Nesoulad datovych typu" ...
Rumcajs
> V apostrofech by mely byt ty datove hodnoty.
>
> Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
> '4.7.2002' and Datum <= '4.7.2002' and Vyvoz = False
>
> Jakub Dusek
> R> Servus ve spolek,
> R> resim problem s KaDaoTable. Problem je ve filtrovani tabulky, kde pole
> R> "Datum" je typu Date. Jako filtr pouzivam toto:
> R> Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
> R> 4.7.2002 and Datum <= 4.7.2002 and Vyvoz = False
> R> Tady to vyhodi "Chyba v syntaxi cisla ...", tak jsem ty datov� polo�ky
taky
> R> uzavrel do apostrof a vyhodilo to "Nesoulad datovych typu..."
> R> Nevite nekdo v cem delam chybu?
> R> Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.374 / Virov� b�ze: 209 - datum vyd�n�: 9.7.2002
Filtrovani tabulky - kde je chyba
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 23.7.2002 16:10:58
----- Original Message -----
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 23, 2002 4:03 PM
Subject: Re: Filtrovani tabulky - kde je chyba
> Jo, pokud ale pouziju nize uvedene, tak mi to vyhodi (jak sem psal)
> "Nesoulad datovych typu" ...
> Rumcajs
>
>
> > V apostrofech by mely byt ty datove hodnoty.
> >
> > Storno = False and Hotovo = True and Material = 'Odpad' and Datum >=
> > '4.7.2002' and Datum <= '4.7.2002' and Vyvoz = False
Zkus takhle:
Storno = False and Hotovo = True and (Material = 'Odpad') and (Datum >=
'4.7.2002') and (Datum <= '4.7.2002') and Vyvoz = False
Nekdy to nema rado, kdyz neni porovnani stringu v zavorce.
Petr Hlozek
Frm z Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 16:14:57
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> No velmi mi nepomohlo buildnut dllko aj aplikaciu s packages (teda ak je to
> ze som zaskrtol v project options na zalozke Packages polozku Build with
> runtime packaes) :((
A vyhodil jsi z toho vsechny ty dalsi opicarny s prirazovanim handle apod ?
Tim ze to prelozis s balicky se to chova presne tak, jako by to byla jedna
aplikace.
Petr Vones
ImageList and Invalid Image Size.
[*] Vlada Ponechal <vlada_ponechal(zv)post(tec)cz> - 23.7.2002 17:04:53
Zdar panove,
Pridavam do ImageListu ikony pres image:
image1.Picture.LoadFromFile(path);
IconImageList.Add(image1.Picture.Bitmap, nil);
nastane chyba: Invalid ImageSize.
Problem: Vkladam ruzne velikosti obrazku. Nevadi mi, kdyz je ImageList upravil na jednu velikost, jsou to ikony. Evidentne to vsak nedela. V konferenci jsem nasel jenom to, ze to existuje ale ne to jak to odstranit. Pls, Poradite?
Diky za pomoc,
Vl.
----
Jak u�et�it na dovolenou? http://dovolena.finance(tec)cz
1001TT(735): Pouziti nestandardnich barev v aplika
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 23.7.2002 17:32:22
Ahoj,
kniha 1001 Tipu a triku pro Delphi obsahuje priklad (735), jak zmenit
barevne schema dane aplikace. Pise se zde "uprava bude platna pouze pro
danou aplikaci, nepromitne se do nastaveni systemu." To vsak neni pravda,
jelikoz uvedeny postup skutecne zmeni barvy celeho systemu. Jak to udelat,
aby se nastaveni barev aplikovalo jen na mou aplikaci?
procedure TForm1.Button2Click(Sender: TObject);
var par1, par2: array[1..2] of dword; // puvodne: var par1, par2: tArr;
(tArr vsak moje D4 neznaji...)
begin
par1[1] := color_btnface;
par1[2] := color_btntext;
par2[1] := clblack;
par2[2] := clwhite;
setsyscolors(2,par1, par2);
end;
SQL dotaz - vyber datumu vetsi nez...
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 23.7.2002 17:45:45
Zdravim,
Pokousim se pouzit tento dotaz:
select * from invoice where InvoiceDate >= 7/18/2002
Ale muj MSSQL2000 mi stale vraci vsechny zaznamy.
Format 7/18/2002 mi vraci delphoni po DateToStr(NejakyDate);
Jakym zpusobem selectujete zaznamy dle datumu?
Diky za cas,
David Michal
SQL dotaz - vyber datumu vetsi nez...
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 23.7.2002 18:58:10
Hi,
zpusob zapisu datumu zalezi na narodnim nastaveni primo na SQL serveru.
Nejjednoduseji to zjistis, kdyz si spustis Query Analyzer a najdes spravny
zpusob zapisu.
Napr.
Select * from invoice where InvoiceDate >= '7.18.2002'
Select * from invoice where InvoiceDate >= '7/18/2002'
Select * from invoice where InvoiceDate >= '07.18.2002'
Select * from invoice where InvoiceDate >= '07/18/2002'
atd.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
Pokousim se pouzit tento dotaz:
select * from invoice where InvoiceDate >= 7/18/2002
Format 7/18/2002 mi vraci delphoni po DateToStr(NejakyDate);
Frm z Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 19:19:40
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> Je mozne volat takto vytvorenu package i v inych jazykoch okrem delphi (napr
> VisualBasic ...)
Ne, balicky jsou pouze rozsirenim kompilatoru, je to trochu podobne jako treba
runtime nebo MFC knihovny u MSVC.
> Nemam vobec ziadne skusenosti s Packages, preto som ani velmi nerozchodil,
> preco to mam zbuildovat (to dllko i tu aplikaciu) s packages :(
Je dobre si pro zacatek precist ten clanek, na ktery jsem posilal odkaz.
S vyjimkou nekolika veci je jeho obsah stale platny.
Petr Vones
Problem s formatem data, TDataTimePicker a SQL ser
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 23.7.2002 19:20:34
Zdravim,
V aplikaci mam:
DateSeparator := '/';
ShortDateFormat := 'mm/dd/yyyy';
Rad bych pouzil dd/mm/yyyy, jenze pak mi SQL server vraci error (MSSQL) pri insert ci update.
Pro tyto prikazy pouzivam syntaxi podobnou teto:
With Query1 do
begin
Close;
Sql.text := 'Update table1 Set Date = :Date';
ParamByName('Date').AsString := DateToStr(DataTimePicker1.Date);
ExecSql;
end;
A takto to funguje, ale v DBGridu mam format data mm/dd/yyyy a v TDateTimePicker dd.mm.yyyy.
Mam tedy dva problemy, jak donutit server aby prijimal datum ve formatu dd/mm/yyyy?
Napriklad: Update table1 Set Date = '23/07/2002'
Dalsi problem proc TDataTimePicker nezobrazuje datum dle nastaveneho formatu? Ale bere si format data z regional options systemu windows.
Diky,
David Michal
SQL dotaz - vyber datumu vetsi nez...
[*] =?utf-8?Q?J=C3=A1n_Harman?= <harman(zv)atlas(tec)cz> - 23.7.2002 19:50:23
Podivej se jaky datovy format ma ten SQL server. Honza.
Zdravim,
Pokousim se pouzit tento dotaz:
select * from invoice where InvoiceDate >= 7/18/2002
Ale muj MSSQL2000 mi stale vraci vsechny zaznamy.
Format 7/18/2002 mi vraci delphoni po DateToStr(NejakyDate);
Jakym zpusobem selectujete zaznamy dle datumu?
Diky za cas,
David Michal
kde v programu dojde k chybe (D6P)?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2002 20:06:25
From: "bleak" <bleak(zv)atlas(tec)cz>
> jsem ponekud zmateny. Nejaky prikaz v mem programu zpusobuje vyjimku
> EConvertError. Program se proste zastavi a objevi se hlaseni o vyjimce a
> neni zvyrazneny radek, kde doslo k chybe. Pokud zvolim Use Debug DCUs,
> program se zastavi v unitu SysUtils v procedure ConvertErrorFmt.
> Nemuzu se dokrokovat k mistu v mem programu, kde k chybe dochazi. Pokud mam
Ale ano, pokud das breakpoint do ConvertErrorFmt a pak se podivas na Call
Stack (View | Debug Windows | Call Stack) tak vidis odkud se to volalo.
Petr Vones