Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Programovacia technika
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 05.8.1999 13:02:35
Martin Fron�k wrote:
>
> Je mi to jasne jen trochu. Jedna se ti patrne o to, ze jsou data
> rozsekana po paketech. Tak si udelej nejaky protokol, a na zacatku tech
> dat proste napis, jak dlouha ta data budou. Nebo je to jinak?
>
> > potreboval by som help s jednou technikou.
> > Cez TCP prijmam data, ktore citam v ondatavaiable
> > data su vsak rozsekane, takze ked spracuvavam prve data,
> > v ktorych citam escape sequence a zrazu sa retazec konci,
> > a pokracuje v dalsom, mam trosicku problem prijst na najlepsiu cestu
> > ako to spravit aby som plynule pokracoval.
> > Dik
> >
> > priklad:
> > 1-5-4 Koniec prvej
> > Zaciatok dalsej sekvencie: 5-8-3...atd
> >
> > Vyznam ma ale len 5-4-5
Podle toho prikladu bych si tipnul, ze budes potrebovat napsat si neco,
co bude fungovat jako jednoduchy konecny automat. Ale nevim, jestli to
Tvemu zameru odpovida.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Neopravneny WARNING v D4 prof. + U3
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 5.8.1999 13:16:33
Zden�k Moravec <zmo(zv)telecom(tec)cz> wrote:
> V puvodnim textu jsem naznacil, jak bych to resil ja.
> Predpokladam, ze element e0 je jakysi dummy
> jinde nepouzity prvek.
Diky, ale zrejme jsi ten muj prispevek nedocetl do konce, protoze otazka znela:
>> Nenapada nekoho, jak potlacit ta varovani/hinty,
>> aniz bych to prepsal bez toho continue napr. takto:
>>
>>
>>else if () then
>> Item := e....
>>else
>> Item := eNonAvailable;
>>if Item<>eNonAvailable then
>> begin
>> include(UsedItems,Item);
>> end;
>>
Kde eNonAvalilable je to, co jsi ty oznacil jako e0.
Bye, pf
ShowModal
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 5.8.1999 13:19:33
Ahoj
nevite nekdo jak pomoci API funkci realizovat toto :
potrebuji z klasickeho okna udelat okno modalni (tj aby se slo prepnout na
jina okna aplikaci az po jeho zavreni), pomoci API f-ci, jestli teda nejake
k tomuto ucelu vubec ve woknech jsou. Nejedna se mi o implementaci tohoto
problemu do Delphi, ale do jineho programovaciho jazyku (konkretne
PowerBuilder, ale na tom nesejde o jaky prog. jazyk jde).
predem diky
Programovacia technika
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 5.8.1999 13:33:36
Robert Jendrisak [SMTP:delphi(zv)minv.sk] wrote:
> a pokracuje v dalsom, mam trosicku problem prijst na najlepsiu cestu
> ako to spravit aby som plynule pokracoval.
Pokud chces opravdu nejlepsi techniku, tak tu nazval M. A. Jackson (neni to ten zpevak) ve sve metodice JSP v roce tusim 1974 inverzi programu. Jedna se v podstate o subrutinu, ktera ma statickou stavovou promennou a na zacatku se provede rozskok podle posledniho stavu. Vlastni algoritmus zpracovani dat se pak vubec nezabyva tim, ze chodi po paketech. Vse se odehraje v operaci cteni, ktera v okamziku, kdy nejsou data, si zapamatuje svuj stav a opusti subrutinu. Na JSP je kouzelne, ze tato inverze se provadi mechanicky podle nekolika trivialnich pravidel, ovsem za predpokladu, ze pouzivas nejaky tool/case, ktery umi pracovat se struktogramy, u nas napr. legendardni SGP.
Podrobnosti viz napr. original M.A.Jackson: Principles of program design, Academic Press, New York 1975.
Bye, pf
Bye, pf
Tisk bez DataSetu
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 5.8.1999 14:41:54
�us,
lze, t�eba z txt souboru RBuilder-em od
http://digital-metaphors.com ,
a snad by to mohlo j�t ud�lost� OnNext, pod�oupnout j� data,
ale to jsem je�t� nepot�eboval.
Se Sineou, to u� je trochu d�l, co jsem j� pitval, ale taky jsem to
tam dok�zal,
ne teda ze souboru, ale p��mo jsem j� podsouval m� hodnoty,
tu��m v n�jak� ud�losti OnStepData a OnGetData,
tam to �lo p�eprogramovat,
a snad tam byl i help�k k tomu.
Kdy� by tam bylo dokonalej�� OOP programov�n� tak bych byl i mo�n�
spokojen,
hlavn� co se t��e �pravy p�edlohy a jej� Save-ing.
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/> ----------
> Odes�latel: Riedel Petr[SMTP:Petr.Riedel(zv)ipbpojistovna(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 5. srpna 1999 9:05
> Komu: DELPHI Distribution List (el. adresa 2)
> P�edm�t: Tisk bez DataSetu
>
> Dobry den,
>
> lze tisknout v nejakem generatoru tiskovych sestav (QuickReport, Sinea,
> nebo jine) bez napojeni na databaze?
>
> S pozdravem
>
> Petr Riedel
> mailto:petr.riedel(zv)ipbpojistovna(tec)cz
> Fatal Error
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 05.8.1999 15:25:32
Radim Ludv�k wrote:
> Zdrav�m,p�i p�ekladu v D3 mi ob�as vysko�� tato chyba, nev�te co je to
> za�? Fatal error: (0): Internal error: L1086 Radim Ludv�k
> BN Soft Znojmo
> radiml(zv)bnsoft(tec)cz
Koukni se na tuhle adresu:
http://www.borland.com/devsupport/delphi/fixes/delphi4/compiler.html#delphi\errors
and warnings
Daji se tam najit nejen popisy chyb, ale i opravy (pokud existuji nebo
budou existovat)...
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Podivne chovani konkatenace stringu
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 5.8.1999 16:13:02
Nevite proc mi nefunguje konkatenace u WindowsDir ??
function ServicesFName: string;
var WindowsDir: string;
begin
SetLength( WindowsDir, MAX_PATH);
GetWindowsDirectory( PChar(WindowsDir), MAX_PATH); // WindowsDir =
'C:\WINDOWS'
WindowsDir:= WindowsDir + '\services'; // WindowsDir je stale
'C:\WINDOWS' !!
result:= WindowsDir;
end;
Jaroslav KULHEIM
kulheim(zv)fitness(tec)cz
Algoritmus na zmenu textu
[*] MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz> - 5.8.1999 17:04:56
Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
stovky textovych souboru, vyplatil by se na to programek v Delphi. Vim
ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal velky.
Konverze textu by mela fungovat takto (priklad):
pred zmenou:
1. THE 59TH STREET BRIDGE SONG
po zmene:
1. The 59Th Street Bridge Song
Jestli jste nekdy nekdo neco takoveho delal, zkuste poradit, jak na to.
Dik.
Premek
ShowModal
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 05.8.1999 17:12:59
sula milos wrote:
>
> Ahoj
> nevite nekdo jak pomoci API funkci realizovat toto :
> potrebuji z klasickeho okna udelat okno modalni (tj aby se slo prepnout na
> jina okna aplikaci az po jeho zavreni), pomoci API f-ci, jestli teda nejake
> k tomuto ucelu vubec ve woknech jsou. Nejedna se mi o implementaci tohoto
> problemu do Delphi, ale do jineho programovaciho jazyku (konkretne
> PowerBuilder, ale na tom nesejde o jaky prog. jazyk jde).
> predem diky
Treba takto:
if SetOnTop then
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOACTIVATE or SWP_NOMOVE
or SWP_NOSIZE)
else
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOACTIVATE or
SWP_NOMOVE or SWP_NOSIZE);
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Kurz TCP/IP - uvodni omacka
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.8.1999 17:22:36
>Hmmm...... tak at mi nekdo vysvetli, proc me to na nekolika (asi 5)
>masinach 19-ty a dalsi socket nespojilo. Ale to stejne neni dulezite,
>jen jsem upozornoval na urcite omezeni, je jen potesujici, ze vam to
>vytvori vic spojeni.
jaky chybovy kod to vracelo? V jake funkci?
Zdravi
D. Toman
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Atoll <atoll(zv)telecom(tec)cz> - 5.8.1999 17:25:01
Umel by mi prosim nekdo poradit jak nastavit transakci ve FreeIB, tak aby byl editovan� zaznam zamcen ?
dekuji
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
Narocnost na win.resources u aplikaci v D2 a D4
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 5.8.1999 17:30:24
Ahoj,
zjistili jsme, ze aplikace, ktere jsme prelozili pod D4 zerou dvakrat vice
zdroju nez puvodni aplikace v D2. Bohuzel jsme mezitim i neco upravovali,
takze nevim jestli je to zpusobeno jen verzemi nebo jestli neco nemame
(hlavne v balickach) spatne.
Nas zakaznik - BetaTester hlasi, ze driv spustil treba 10 aplikaci najednou,
ted uz jenom pet.
Zkousel jsem MemorySleuth a zatim jsem zjistil ze obycejny formular opravdu
zabere skoro 2x vice pameti v D4 nez v D2. Navic uziva o 2 vice fontu a
paletu navrch.
Nemate s tim nekdo podobne zkusenosti? Je to obecny jev s nimz se musim
smirit?
Diky
Leos
Podivne chovani konkatenace stringu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.8.1999 17:31:18
>function ServicesFName: string;
>var WindowsDir: string;
>begin
> SetLength( WindowsDir, MAX_PATH);
> GetWindowsDirectory( PChar(WindowsDir), MAX_PATH); // WindowsDir =
>'C:\WINDOWS'
> WindowsDir:= WindowsDir + '\services'; // WindowsDir je stale
>'C:\WINDOWS' !!
> result:= WindowsDir;
>end;
problem je s koncovou nulou. Pravdepodobne WindowsDir obsahuje to co ma, ale take nadbytecnou #0 pred "\services" a pri zobrazovani ve watch window se to orizne
Zdravi
D. Toman
Podivne chovani konkatenace stringu
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 5.8.1999 17:32:01
Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> wrote:
> SetLength( WindowsDir, MAX_PATH);
> GetWindowsDirectory( PChar(WindowsDir), MAX_PATH);
> WindowsDir:= WindowsDir + '\services';
> result:= WindowsDir;
To je jesny, protoze ty ten string pouzivas jako pamet o velikosti MAX_PATH+1 znaku a funkce GetWindowsDirectory() ti do nej nakopiruje ASCIIZ string. Tim porusis vnitrni konzistenci ANSIStringu, protoze ten si delku stringu explicitne pamatuje a ta zustava MAX_PATH.
Ono to ve skutecnosti kopiruje "C:\WINDOWS\"#0<nedefinovany obsah do MAX_PATH>+"\services", ale Watch ti to ukaze jen jako ASCIIZ.
Odstranis to napr. takto:
SetLength(WindowsDir,GetWindowsDirectory(PChar(WindowsDir),MAX_PATH));
Bye, pf
Kopirovani pomoci UNC a IP adresy
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.8.1999 17:32:36
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Dobry den, rano i vecer
-----------------------
Enviroment: Win95, D3
keywords: UNC, IP, Copy
q: Nevite nekdo proc kopirovani pomoci klasicke UNC adresy
(napr \\PC001\Data\File.xyz) pomoci API funkce CopyFile
(ale i pomoci FileStreamu) projde uplne v pohode,
ale pomoci \\127.1.1.12\Data\File.xyz uz GetLastError
vrati hodnotu 55 a soubor nezkopiruje ? Pomoci prikazu
"command.com /c copy \\172.1.1.12\Data\File.xyz File.New"
se soubor normalne zkopiruje.
Diky za informace...
...Dobra.
Algoritmus na zmenu textu
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 5.8.1999 17:56:34
On Thu, 5 Aug 1999, [iso-8859-2] MIKE� P�emysl wrote:
> Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> stovky textovych souboru, vyplatil by se na to programek v Delphi. Vim
> ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal velky.
>
> Konverze textu by mela fungovat takto (priklad):
>
> pred zmenou:
> 1. THE 59TH STREET BRIDGE SONG
> po zmene:
> 1. The 59Th Street Bridge Song
>
> Jestli jste nekdy nekdo neco takoveho delal, zkuste poradit, jak na to.
> Dik.
Ahoj,
Stahni si Far Commander od Eugena Roshala. K Faru existuje plugin, ktery to
umi (filecase.dll). Kdybys mel problemy, tak se ozvi na soukr. mail.
bye
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Tisk bez DataSetu
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 5.8.1999 18:36:20
Ja v tomhle pripade pouzivam RxMemoryData z RxLib.
Zda se mi to nejjednodussi.
Radim Kunz >Dobry den,
>
>lze tisknout v nejakem generatoru tiskovych sestav (QuickReport, Sinea,
>nebo jine) bez napojeni na databaze?
>
>S pozdravem
>
>Petr Riedel
>mailto:petr.riedel(zv)ipbpojistovna(tec)cz
Kopirovani pomoci UNC a IP adresy
[*] muher(zv)csas(tec)cz - 5.8.1999 18:59:58
Zrejme prikazovy interpret provadi tuto koverzi (IP -> hostname) defaultne
sam. Text chyby je "The specified network resource or device is no longer
available.". Pradvepodobne zustava tento preklad na tobe. Meli by ti stacit
tri funkce. WSAStartup, gethostbyaddr a WSACleanup. Pokud jsou ty pocitace
ne jinych segmentech, tak musis pouzivat WINS server, DNS Server nebo
editovat soubor hosts, resp lmhosts.
Martin Uher
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: 5. srpna 1999 17:33
> To: #Delphi-K
> Subject: Kopirovani pomoci UNC a IP adresy
>
> Dobry den, rano i vecer
> -----------------------
> Enviroment: Win95, D3
> keywords: UNC, IP, Copy
>
> q: Nevite nekdo proc kopirovani pomoci klasicke UNC adresy
> (napr \\PC001\Data\File.xyz) pomoci API funkce CopyFile
> (ale i pomoci FileStreamu) projde uplne v pohode,
> ale pomoci \\127.1.1.12\Data\File.xyz uz GetLastError
> vrati hodnotu 55 a soubor nezkopiruje ? Pomoci prikazu
> "command.com /c copy \\172.1.1.12\Data\File.xyz File.New"
> se soubor normalne zkopiruje.
>
>
> Diky za informace...
> ...Dobra.
> Kurz TCP/IP - uvodni omacka
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 5.8.1999 19:01:25
Prave ze to zadny chybovy kod nevratilo, jen socket se proste nespojil.
Jinak se to tvarilo uplne normalne.
Jeste se chci omluvit za nezaslani dnesniho prikladu na TCP/IP, posilam
hned zitra rano (patek 6.8.99) - nestiham
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Dalibor Toman [SMTP:dtoman(zv)fortech(tec)cz]
> Odesl�no: 05. srpna 1999 17:23
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Kurz TCP/IP - uvodni omacka
>
>
>
> >Hmmm...... tak at mi nekdo vysvetli, proc me to na nekolika (asi 5)
> >masinach 19-ty a dalsi socket nespojilo. Ale to stejne neni dulezite,
> >jen jsem upozornoval na urcite omezeni, je jen potesujici, ze vam to
> >vytvori vic spojeni.
>
>
> jaky chybovy kod to vracelo? V jake funkci?
>
> Zdravi
> D. Toman
> Algoritmus na zmenu textu
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 05.8.1999 20:34:14
Tak na to je nejlepsi Perl a ne Delphi. Pokud Ti nikdo neporadi zadnej
rozumnej zpusob tak Ti ten programek v Perlu klidne napisu (zadarmo
:-)))
Pavel
mailto: bansky(zv)club(tec)cz
> zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal velky.
>
> Konverze textu by mela fungovat takto (priklad):
>
> pred zmenou:
> 1. THE 59TH STREET BRIDGE SONG
> po zmene:
> 1. The 59Th Street Bridge Song
>
> Jestli jste nekdy nekdo neco takoveho delal, zkuste poradit, jak na to.
> Dik.
>
> Premek
Algoritmus na zmenu textu
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 5.8.1999 22:02:29
Prosimte, psal jsem to davno, je to hodne stary, ale funguje mi to:
function Zmen(CO: string): string;
var
I: Integer;
begin
Result := AnsiUpperCase(CO[1]);
for I := 2 to Length(CO) do
if CO[I - 1] = ' ' then
Result := Result + AnsiUpperCase(CO[I])
else {_ NOT If CO[I - 1] = ' ' Then _}
Result := Result + AnsiLowerCase(CO[I]);
end; {_ 1: _}
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. srpna 1999 17:04
P�edm�t: Algoritmus na zmenu textu
> Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> stovky textovych souboru, vyplatil by se na to programek v Delphi. Vim
> ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal velky.
>
> Konverze textu by mela fungovat takto (priklad):
>
> pred zmenou:
> 1. THE 59TH STREET BRIDGE SONG
> po zmene:
> 1. The 59Th Street Bridge Song
>
> Jestli jste nekdy nekdo neco takoveho delal, zkuste poradit, jak na to.
> Dik.
>
> Premek
Ikony v IDE Delphi 4
[*] Heinisch Jiri <HeiJu(zv)sol(tec)cz> - 5.8.1999 22:19:53
Ahoj
Bohuzel na Asusu maji prd.
Budu se snazit pretit na ATI
S pozdravem Heinisch Jiri
> Podivej se na internet, zda neni k dispozici novejsi ovladac.
> Ovladace dodavane s kartou byvaji znacne zastarale.
> Nektere graficke karty maji s Delphi problemy. Vetsina
> jich ale funguje bez problemu.
> Zarucene pomuze vymena karty za jinou.
> Jaro
>
> ----- Original Message -----
> From: Heinisch Jiri <HeiJu(zv)sol(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, August 03, 1999 10:35 AM
> Subject: Re: Ikony v IDE Delphi 4
>
>
> > Podobne to dela u V3000ZX pro AGP !!!
> > Znici mi obrazky v TImages
> >
> > dela to i D3 i D4
> >
> > Je to chyba karty, ovladace nebo Delphi ?
> >
> > ----- Original Message -----
> > From: BoboX <bobox(zv)post(tec)cz>
> > To: Delphi <delphi-l(zv)fwd(tec)cz>
> > Sent: Monday, August 02, 1999 12:15 AM
> > Subject: Ikony v IDE Delphi 4
> >
> >
> > > Zdravim,
> > > ked som nahodil do kompu graficku kartu STB VELOCITY 128,
> > > uplne sa mi znetvorili ikony v IDE Delphi 4, v ostatnych programoch
> > > su OK. Neviete co sa stym da robit. Ovladace som skusal rozne, ale
> > > vzdy to bolo rovnake.
> > > Dik, cau.
> > > --
> > > BoboX
> > > bobox(zv)post(tec)cz
> > > Europa
> > >
> >
> >
> Delphi 5 - prima konektivita Interbase
[*] Ing. Jaroslav �ke��k - 5.8.1999 22:21:32
Dik za odkaz.
Myslis, ze to oznaceni "InterBase Express" je ONO?
Jaro
>
> Je to napriklad tady, ale je otazka zdali to opet neupravi, jako ze
> zacatku s SQL Linky u Prof.verze :-)
>
> http://www.borland.com/delphi/productinfo/description.html
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
>
>Tisk bez DataSetu
[*] Ing. Jaroslav �ke��k - 5.8.1999 22:33:05
V Sinea generatoru to jde. Podivej se na www.sinea(tec)cz
Je tam na to myslim dokonce ke stazeni prikladek.
Melo by to jit ale i v QuickReport-u
Jaro
> �us,
>
> lze, t�eba z txt souboru RBuilder-em od
> http://digital-metaphors.com ,
> a snad by to mohlo j�t ud�lost� OnNext, pod�oupnout j� data,
> ale to jsem je�t� nepot�eboval.
>
> Se Sineou, to u� je trochu d�l, co jsem j� pitval, ale taky jsem to
> tam dok�zal,
> ne teda ze souboru, ale p��mo jsem j� podsouval m� hodnoty,
> tu��m v n�jak� ud�losti OnStepData a OnGetData,
> tam to �lo p�eprogramovat,
> a snad tam byl i help�k k tomu.
> Kdy� by tam bylo dokonalej�� OOP programov�n� tak bych byl i mo�n�
> spokojen,
> hlavn� co se t��e �pravy p�edlohy a jej� Save-ing.
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
>
> > ----------
> > Odes�latel: Riedel Petr[SMTP:Petr.Riedel(zv)ipbpojistovna(tec)cz]
> > Odpov�di: delphi-l(zv)fwd(tec)cz
> > Odesl�no: 5. srpna 1999 9:05
> > Komu: DELPHI Distribution List (el. adresa 2)
> > P�edm�t: Tisk bez DataSetu
> >
> > Dobry den,
> >
> > lze tisknout v nejakem generatoru tiskovych sestav (QuickReport, Sinea,
> > nebo jine) bez napojeni na databaze?
> >
> > S pozdravem
> >
> > Petr Riedel
> > mailto:petr.riedel(zv)ipbpojistovna(tec)cz
> >
>
Narocnost na win.resources u aplikaci v D2 a D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1999 22:38:56
Leos Urban wrote:
>
> Ahoj,
> zjistili jsme, ze aplikace, ktere jsme prelozili pod D4 zerou dvakrat vice
> zdroju nez puvodni aplikace v D2. Bohuzel jsme mezitim i neco upravovali,
> takze nevim jestli je to zpusobeno jen verzemi nebo jestli neco nemame
> (hlavne v balickach) spatne.
> Nas zakaznik - BetaTester hlasi, ze driv spustil treba 10 aplikaci najednou,
> ted uz jenom pet.
> Zkousel jsem MemorySleuth a zatim jsem zjistil ze obycejny formular opravdu
> zabere skoro 2x vice pameti v D4 nez v D2. Navic uziva o 2 vice fontu a
> paletu navrch.
> Nemate s tim nekdo podobne zkusenosti? Je to obecny jev s nimz se musim
> smirit?
Ahoj,
Na tohle uz jsem taky narazil, budes se s tim muset asi smirit. Pouzivas
v te aplikaci hodne komponent ktere maji glyphy (TSpeedButton, TDBNavigator,
TBitBtn) ? Pokud ano, tak chyba je v metode TBitmap.Dormant, ktera v rozporu
s helpem neuvolni handle bitmapy. Toto by melo byt prave dobre pozorovatelne
pomoci MemorySleuth. Mozna je tam ale jeste jina dalsi chyba, pokud by jsi
narazil na nejake vetsi rozdily ve vyuziti syst.zdroju mezi D2 a D4, tak se
prosim ozvi. Jinak uz asi pred rokem jsem o tom psal tady:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1998\aug\01\dlfaaaad.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Registrace DLL a OCX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1999 22:39:17
Robert Jendrisak wrote:
> Ja som to tiez robil cez regsrv, ktory sa spustil na zaciatku programu,
> pokial nebol spusteny uz pred tym. (v subore som si uchovaval stav
> registracie)
> Inak to zatial spravit neviem. Kazde ocx sa zrejme v registry zapise inde
> (vid scaner/graficky server atd...)
> takze ani velmi neviem ako to zistit.
Ahoj,
Podivej se treba na zdrojak TREGSVR, najdes jej v \Demos\ActiveX\Tregsvr
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
SelectedRows v DBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1999 22:39:22
"Jezek Petr, Ing. (DELVINA)" wrote:
>
> Chtel bych se zeptat, zda se da v DBGridu nastavit, abych nemusel
> drzet CTRL nebo SHIFT pri oznacovani radku.
Ahoj,
Dobre, ale jak si to ovladani pak predstavujes ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Algoritmus na zmenu textu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1999 22:39:37
MIKE� P�emysl wrote:
>
> Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> stovky textovych souboru, vyplatil by se na to programek v Delphi. Vim
> ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal velky.
>
> Konverze textu by mela fungovat takto (priklad):
>
> pred zmenou:
> 1. THE 59TH STREET BRIDGE SONG
> po zmene:
> 1. The 59Th Street Bridge Song
Ahoj,
Muzes to udelat treba takhle:
procedure ProperStr(var S: String);
const
SpaceChars = [#9, #32, #13, #10];
var
P: PChar;
FirstChar: Boolean;
begin
P := PChar(S);
FirstChar := True;
while P^ <> #0 do
begin
if P^ in SpaceChars then
FirstChar := True
else
if FirstChar then
begin
CharUpperBuff(P, 1);
FirstChar := False;
end else
CharLowerBuff(P, 1);
Inc(P);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
FS: TFileStream;
begin
FS := TFileStream.Create('unit1.pas', fmOpenRead or fmShareDenyWrite);
try
SetLength(S, FS.Size);
FS.ReadBuffer(Pointer(S)^, FS.Size);
ProperStr(S);
Memo1.Lines.Text := S;
finally
FS.Free;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Delphi 5 - prima konektivita Interbase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1999 23:14:23
Ing. Jaroslav �ke��k wrote:
>
> Dik za odkaz.
> Myslis, ze to oznaceni "InterBase Express" je ONO?
Jo, je to tak. Otazkou ale zustava jak bude vypadat konecne rozdeleni vlastnosti
do jednotlivych verzi Delphi. Je to vlastne zalozene na Free IB components, viz
odkaz: http://www.itecuk.com/devrev/revs/0174.pdf
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Algoritmus na zmenu textu
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 5.8.1999 23:23:03
On Thu, 5 Aug 1999, Lukas Voborsky wrote:
> On Thu, 5 Aug 1999, [iso-8859-2] MIKE� P�emysl wrote:
> Ahoj,
> Stahni si Far Commander od Eugena Roshala. K Faru existuje plugin, ktery to
> umi (filecase.dll). Kdybys mel problemy, tak se ozvi na soukr. mail.
Joj, sorac, spatne jsem si precetl zadani problemu. Tohle je pouzitelne na
prejmenovani nazvu souboru. (Ale je docela mozne, ze driv nez bys to
stahnul, by sis to naprogramoval).
cau
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Fatal Error
[*] Jan Najvarek <najvarek(zv)seznam(tec)cz> - 5.8.1999 22:09:24 -0400
Interni chyba kompilatopru (linkeru), na mem projektu se napr. vyskytuje vzdy, kdyz delam Build All a nelze tedy sestavit program. Compile to ale udela ?! Zkousel jsem to na D4, tak to hlasi jine cislo, ale jinak problem stejny. Po nainstalovani packu 3 problem vymizel :)
Jan Najvarek
----- Original Message -----
From: Radim Ludv�k
To: Delphi Forum
Sent: Thursday, August 05, 1999 5:43 AM
Subject: Fatal Error
Zdrav�m,
p�i p�ekladu v D3 mi ob�as vysko�� tato chyba, nev�te co je to za�?
Fatal error: (0): Internal error: L1086
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
DrawText, dt_Center format, OwnerDraw
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.8.1999 07:18:22
Ahoj,
vyskytl se mi problem. Potrebuji ownerdraw vykreslit retezec v listboxu,
ktery je centrovan dt_Center a vykreslovan pomoci funkce
DrawText(Canvas.Handle, Znaky, -1, Rect, dt_SingleLine Or dt_Center Or
dt_VCenter Or dt_NoPrefix);. Specialni na tom je to, ze v retezci jsou ruzne
barvy a styly fontu (nektera slova jsou barevne pripadne stylem odlisena)
coz delam vykreslovanim retezce po castech od pocatecniho bodu (zleva,
zprava). Pri zarovnani vlevo nebo vpravo je mozne se zachytit krajnich
okraju Rect, u zarovnani dt_Center mi to jde pouze v pripade, ze je
vykreslovany retezec kratsi nez sirka Rect (zjistuji to Canvas.TextWidth();)
tj. je uvnitr Rect. Ale jak to udelat, kdyz je retezec sirsi nez Rect a ja
ho chci vycentrovat i se zvyraznenim? Poradite mi nekdo, prosim?
Dekuji za kazdou radu
Jaro B.SelectedRows v DBGrid
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 6.8.1999 07:56:51
Tak, ze bych (podle nejake promene/vlastnosti) nastavil, ze se nemaji
odznacovat
radky pri klik na jiny. Trochu jsem se dival do zdroju a asi bych musel
skopirovat
cely zdrojak TCustomDBGrid a v MouseDown (a asi taky KeyDown) bych
upravil kod. Ale neslo by to
nejak jinak. Dedenim asi ne, protoze vsechno dulezite je v
TCustomDBGridu privatni.
if (dgMultiSelect in Options) and FDatalink.Active then
with FBookmarks do
begin
FSelecting := False;
if ssCtrl in Shift then
CurrentRowSelected := not CurrentRowSelected
else
begin
Clear; // Toto by asi chtelo pryc
CurrentRowSelected := True;
end;
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Thursday, August 05, 1999 10:39 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SelectedRows v DBGrid
"Jezek Petr, Ing. (DELVINA)" wrote:
>
> Chtel bych se zeptat, zda se da v DBGridu nastavit, abych nemusel
> drzet CTRL nebo SHIFT pri oznacovani radku.
Ahoj,
Dobre, ale jak si to ovladani pak predstavujes ?
--
Internet proti monopolu. Petr Vones, amatersky
programator
* http://www.bojkot(tec)cz *
************************DrawText, dt_Center format, OwnerDraw
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 06.8.1999 08:12:54
Bene� Jaroslav wrote:
>
> vyskytl se mi problem. Potrebuji ownerdraw vykreslit retezec v listboxu,
> ktery je centrovan dt_Center a vykreslovan pomoci funkce
> DrawText(Canvas.Handle, Znaky, -1, Rect, dt_SingleLine Or dt_Center Or
> dt_VCenter Or dt_NoPrefix);. Specialni na tom je to, ze v retezci jsou ruzne
> barvy a styly fontu (nektera slova jsou barevne pripadne stylem odlisena)
> coz delam vykreslovanim retezce po castech od pocatecniho bodu (zleva,
> zprava). Pri zarovnani vlevo nebo vpravo je mozne se zachytit krajnich
> okraju Rect, u zarovnani dt_Center mi to jde pouze v pripade, ze je
> vykreslovany retezec kratsi nez sirka Rect (zjistuji to Canvas.TextWidth();)
> tj. je uvnitr Rect. Ale jak to udelat, kdyz je retezec sirsi nez Rect a ja
> ho chci vycentrovat i se zvyraznenim? Poradite mi nekdo, prosim?
>
Ja bych zkusil spocitat celkovou sirku a tisknul bych do toho Rectu,
ktery odpovida listboxu, na uplne stejne dopocitane souradnice nako v
prvnim pripade. Jediny rozdil by spocival v tom, ze bych to tisknul s
clippingem - orezavanim - na ten Rect. Ale jak jsem tedka zjistil v
helpu, tak clipping dela DrawTextEx automaticky.
Pokud jsem to nepochopil, zkuste to upresnit.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Ikony v menu
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 6.8.1999 08:15:45
Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke obrazky,
ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup nebo
musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery by to
udelal za mne, nejlip se zdrojaky?
Dik. Viktor
Kopirovani pomoci UNC a IP adresy
[*] mdvorak(zv)csas(tec)cz - 6.8.1999 08:24:27
Nazdar,
kopirovani pomoci IP adresy mi funguje zcela bez problemu na NT. Na W95 to
oravdu nefunguje a vraci chybu, asi jde opet, jak byva u Mrkvosoftu dobrym
zvykem, o rozdilnou implementaci stejne funkce v NT a 95. :-(((
M. Dvorak
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 5. srpna 1999 17:33
> Komu: #Delphi-K
> P�edm�t: Kopirovani pomoci UNC a IP adresy
>
> Dobry den, rano i vecer
> -----------------------
> Enviroment: Win95, D3
> keywords: UNC, IP, Copy
>
> q: Nevite nekdo proc kopirovani pomoci klasicke UNC adresy
> (napr \\PC001\Data\File.xyz) pomoci API funkce CopyFile
> (ale i pomoci FileStreamu) projde uplne v pohode,
> ale pomoci \\127.1.1.12\Data\File.xyz uz GetLastError
> vrati hodnotu 55 a soubor nezkopiruje ? Pomoci prikazu
> "command.com /c copy \\172.1.1.12\Data\File.xyz File.New"
> se soubor normalne zkopiruje.
>
>
> Diky za informace...
> ...Dobra.
> Registrace DLL a OCX
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 06.8.1999 08:33:25
ja to delam nejak takhle:
// Volani AutoRegisterDLL
procedure AutoRegister(Libpath:string);
var Lib:THandle;
S:String;
P:TProcedure;
begin
OleInitialize(nil);
try
Lib:=LoadLibrary(PChar(LibPath));
if Lib<HINSTANCE_ERROR then
raise Exception.CreateFmt('Cannot initialize library %s. Internal
Windows error %d',[S,Lib]);
try
P:=GetProcAddress(Lib,'DllRegisterServer');
if not Assigned(P) then raise Exception.Create('Cannot find procedure
DllRegisterServer');
P;
finally
LogSoubor.Add('Autoregister '+LibPath);
FreeLibrary(Lib);
end;
finally
OleUninitialize;
end;
end;
//Volani AutoUnregister DLL
procedure AutoUnregister(Libpath:string);
var Lib:THandle;
S:String;
P:TProcedure;
begin
Lib:=LoadLibrary(PChar(LibPath));
if Lib<HINSTANCE_ERROR then
raise Exception.CreateFmt('Cannot initialize library %s. Internal Windows
error %d',[S,Lib]);
try
P:=GetProcAddress(Lib,'DllUnregisterServer');
if not Assigned(P) then raise Exception.Create('Cannot find procedure
DllUnregisterServer');
P;
finally
FreeLibrary(Lib);
end;
end;
Kopirovani pomoci UNC a IP adresy
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1999 08:38:55
Jeste bych rad vedel, odkud mas ten text chyby,
ja to hledal v helpu, ale nenasel :-(
Diky...
...Dobra
> ----------
>
> Zrejme prikazovy interpret provadi tuto koverzi (IP -> hostname)
> defaultne
> sam. Text chyby je "The specified network resource or device is no
> longer
> available.". Pradvepodobne zustava tento preklad na tobe. Meli by ti
> stacit
> tri funkce.alias
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 6.8.1999 08:47:59
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Zdravim,
Mam nejaku databazu DBF, paradox, prip. acces. Mam k nej vytvoreny alias. Da sa to nejak urobit tak aby som mal sice nainstalovane BDE ale nemusel v nom mat definovany alias ? Pouzivam komponenty Query. Je to v D4. Neda sa to nahodou komponentou Database 20
Maly priklad by bodol.
vdaka
Martin
Ikony v menu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1999 08:47:14
Ja na to pouzil rxMenu
Dobra.
> ----------
> Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke
> obrazky,
> ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup
> nebo
> musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery
> by to
> udelal za mne, nejlip se zdrojaky?
> alias
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1999 08:53:46
Muzes to udelat bud tak, ze
a) u toho Query nastavis property DataBaseName
napr. na C:\MyProg\Data
nebo za
b) vlozis si na Form (nebo do DatModule) TDatabase
vyplnis si nejake DataBaseName, jako DriverName
das normalne STANDARD (nebo co potrebujes) a
do Params pridas radeh PATH=C:\MyProg\Data
Dobra.
> ----------
> Mam nejaku databazu DBF, paradox, prip. acces. Mam k nej vytvoreny
> alias. Da sa to nejak urobit tak aby som mal sice nainstalovane BDE
> ale nemusel v nom mat definovany alias ? Pouzivam komponenty Query. Je
> to v D4. Neda sa to nahodou komponentou Database ?
> DrawText, dt_Center format, OwnerDraw
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.8.1999 09:05:19
Ahoj,
> -----P�vodn� zpr�va-----
> Od: Martin Bodlak [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 6. srpna 1999 8:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: DrawText, dt_Center format, OwnerDraw
>
>
> Bene� Jaroslav wrote:
> >
> > vyskytl se mi problem. Potrebuji ownerdraw vykreslit retezec v listboxu,
> > ktery je centrovan dt_Center a vykreslovan pomoci funkce
> > DrawText(Canvas.Handle, Znaky, -1, Rect, dt_SingleLine Or dt_Center Or
> > dt_VCenter Or dt_NoPrefix);. Specialni na tom je to, ze v retezci jsou
> ruzne
> > barvy a styly fontu (nektera slova jsou barevne pripadne stylem
> odlisena)
> > coz delam vykreslovanim retezce po castech od pocatecniho bodu (zleva,
> > zprava). Pri zarovnani vlevo nebo vpravo je mozne se zachytit krajnich
> > okraju Rect, u zarovnani dt_Center mi to jde pouze v pripade, ze je
> > vykreslovany retezec kratsi nez sirka Rect (zjistuji to
> Canvas.TextWidth();)
> > tj. je uvnitr Rect. Ale jak to udelat, kdyz je retezec sirsi nez Rect a
> ja
> > ho chci vycentrovat i se zvyraznenim? Poradite mi nekdo, prosim?
> >
> Ja bych zkusil spocitat celkovou sirku a tisknul bych do toho Rectu,
> ktery odpovida listboxu, na uplne stejne dopocitane souradnice nako v
> prvnim pripade. Jediny rozdil by spocival v tom, ze bych to tisknul s
> clippingem - orezavanim - na ten Rect. Ale jak jsem tedka zjistil v
> helpu, tak clipping dela DrawTextEx automaticky.
[Bene� Jaroslav]
Take to tak delam, spocitam celkovou sirku a pak vykresluji pismenko
po pismenku do presne stanoveneho RECT_Local, ktery adjustuji na RECT
puvodni . Napadlo me, ze pri centrovani by se dal mozna retezec nejak
rozdelit a casti vykreslovat se zarovnanim vlevo a pak vpravo. Zda se mi
to ale dost slozite, obzvlast, obsahuje-li retezec netisknutelne znaky pro
rizeni stylu a barvy pisma a instantni reseni neznam.
>
> Pokud jsem to nepochopil, zkuste to upresnit.
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)Delphi + WinBase602
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 6.8.1999 09:22:05
Vazeny kolegovia,
vsetkych ktory pristupuju na databazovy stroj WinBase602 by som chcel upozornit
na to ze
boli vytvorene www stranky venujuce sa tomuto pristupu. Ich adresa je
www.software602(tec)cz/wde
tx
Ivan Turcan
Development Specialist for Windows 9x/NT
(Delphi, C++, Assembler, InterBase, Informix, WinBase602 )
WDE HomePage: www.software602(tec)cz/wde
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
WWW Server: www.gamo.sk
GAMO a.s.
Slovakia
alias
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 6.8.1999 09:26:05
Pozri TSession
Priklad:
if Session.IsAlias('CurrentDir') then Session.DeleteAlias('CurrentDir');
Session.AddStandardAlias('CurrentDir',GetCurrentDir,'DBASE');
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
-----P�vodn� zpr�va-----
Od: Martin Talian <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. august 1999 9:15
P�edm�t: alias
Zdravim,
Mam nejaku databazu DBF, paradox, prip. acces. Mam k nej vytvoreny alias. Da sa to nejak urobit tak aby som mal sice nainstalovane BDE ale nemusel v nom mat definovany alias ? Pouzivam komponenty Query. Je to v D4. Neda sa to nahodou komponentou Database 20
Maly priklad by bodol.
vdaka
Martin
Ikony v menu
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 6.8.1999 09:31:51
Jake menu mas na mysli? MainMenu?
Jestli myslis MaiMenu tak v D4 je v properties Bitmap. Co dodat.
Pavel ZIDEK
----------
> Odes�latel: Viktor Lostak <Viktor.Lostak(zv)chmi(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ikony v menu
> Datum: 6. srpna 1999 8:15
>
> Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke obrazky,
> ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup nebo
> musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery by to
> udelal za mne, nejlip se zdrojaky?
>
> Dik. Viktor
> DrawText, dt_Center format, OwnerDraw
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 06.8.1999 09:53:01
Bene� Jaroslav wrote:
>
> > Ja bych zkusil spocitat celkovou sirku a tisknul bych do toho Rectu,
> > ktery odpovida listboxu, na uplne stejne dopocitane souradnice nako v
> > prvnim pripade. Jediny rozdil by spocival v tom, ze bych to tisknul s
> > clippingem - orezavanim - na ten Rect. Ale jak jsem tedka zjistil v
> > helpu, tak clipping dela DrawTextEx automaticky.
> [Bene� Jaroslav]
> Take to tak delam, spocitam celkovou sirku a pak vykresluji pismenko
> po pismenku do presne stanoveneho RECT_Local, ktery adjustuji na RECT
> puvodni . Napadlo me, ze pri centrovani by se dal mozna retezec nejak
> rozdelit a casti vykreslovat se zarovnanim vlevo a pak vpravo. Zda se mi
> to ale dost slozite, obzvlast, obsahuje-li retezec netisknutelne znaky pro
> rizeni stylu a barvy pisma a instantni reseni neznam.
Ja jsem to myslel tak, ze kdyz uz si spocitam ten skutecny rozmer
(MyRect), muzu si ho vycentrovat vzhledem k puvodnimu Rectu a pak uz
muzu tisknout do MyRect zarovnavane doleva a postupne.
Dalo by se (podle povahy tisknutych dat?) pouzit TextOut se vztahem k
SetTextAlign(...TA_UPDATECP...). Najdete si to v helpu, mne se to nechce
opisovat. :) Pak by se jednotlive casti proste tiskly za sebou bez
ohledu na nejake souradnice.
Nemam ale nejak cas si s tim sam hrat - chce to experimentovat...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Ikony v menu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.8.1999 09:57:03
Posilam maly priklad ze SWAG
Jaro B.
Is that a bitmap I see on your menu item?
----------------------------------------------------------------------------
----
Have you been envious of the Windows 95 Start Menu, because of the way it's
able to display bitmaps on its menu items? Well, it's not too hard to add
small bitmaps to your menu items by using the following function:
procedure AddBitmapToMenuItem(
PopupMenu : TPopupMenu;
nItemPos : integer;
Bitmap : TBitmap );
begin
SetMenuItemBitmaps(
PopupMenu.Handle,
nItemPos,
MF_BYPOSITION,
Bitmap.Handle,
Bitmap.Handle );
end;
The Windows API function "SetMenuItemBitmaps()" is mostly used to set
bitmaps for "checkable" menu items -- menu items with two bitmaps for
checked and unchecked states. To keep the "AddBitmapToMenuItem()" function
simple, we're not changing menu item's
size according to the size of the bitmap. This means, you can only pass
bitmaps that are small enough to fit in the default size of your menu items.
To keep the bitmaps for your menu items built into your application:
(a) Drop a "TImage" component on your form.
(b) Assign a bitmap of your choice to the "Picture" property of the newly
created "TImage" component.
(c) Call "AddBitmapToMenuItem()" function as follows from your
"FormCreate()" event (assuming that the pop-up menu that you're assigning
the bitmap to is named "PopupMenu1," the image component you're using is
named "Image1," and the position of the
actual menu item you want to set the bitmap on is 0 -- 1st item = 0, 2nd
item = 1, 3rd item = 2, etc.):
AddBitmapToMenuItem(
PopupMenu1,
0,
Image1.Picture.Bitmap );
To load the menu item bitmaps at the run-time:
procedure TForm1.
FormCreate(Sender: TObject);
var
BMP : TBitmap;
begin
BMP := TBitmap.Create;
BMP.LoadFromFile(
'MyBitmap.BMP' );
AddBitmapToMenuItem(
PopupMenu1, 0, BMP );
end;> -----P�vodn� zpr�va-----
> Od: Viktor.Lostak(zv)chmi(tec)cz [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> Odesl�no: 6. srpna 1999 8:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ikony v menu
>
> Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke obrazky,
> ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup nebo
> musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery by
> to
> udelal za mne, nejlip se zdrojaky?
>
> Dik. Viktor
> DrawText, dt_Center format, OwnerDraw
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.8.1999 09:59:41
Ahoj,
moc diky na napad nakreslit to do neceho jineho a pak to zkopirovat do
zmineneho listboxu. Libi se mi to a snad to zvladnu, diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> Odesl�no: 6. srpna 1999 10:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: DrawText, dt_Center format, OwnerDraw
>
> Ahoj,
>
> nejsem si jist, zda jsem to spravne pochopil. Pokud ti jde o to,
> nakreslit jenom tu _stredni_ cast retezce, ktera by se do Rect vesla,
> tak by to mozna slo takhle:
>
> Zjisti si pro vsechny casti retezce vcetne mezer mezi slovy jejich
> sirku. Staci u funkce DrawText pouzit parametr DT_CALCRECT. Pak poscitej
> vsechny sirky, tim dostanes celkovy rozmer. Pak uz by melo jit nakreslit
> tenhle text do nejakeho canvasu a tu odpovidajici cast se sirkou
> odpovidajici sirce tveho Canvasu prenest do toho Canvasu, kam
> potrebujes. Pochopil jsem to dobre?
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> > Odesl�no: 6. srpna 1999 7:18
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: DrawText, dt_Center format, OwnerDraw
> > D�le�itost: Velk�
> >
> > Ahoj,
> >
> > vyskytl se mi problem. Potrebuji ownerdraw vykreslit retezec v
> > listboxu,
> > ktery je centrovan dt_Center a vykreslovan pomoci funkce
> > DrawText(Canvas.Handle, Znaky, -1, Rect, dt_SingleLine Or dt_Center Or
> > dt_VCenter Or dt_NoPrefix);. Specialni na tom je to, ze v retezci jsou
> > ruzne
> > barvy a styly fontu (nektera slova jsou barevne pripadne stylem
> > odlisena)
> > coz delam vykreslovanim retezce po castech od pocatecniho bodu (zleva,
> > zprava). Pri zarovnani vlevo nebo vpravo je mozne se zachytit krajnich
> > okraju Rect, u zarovnani dt_Center mi to jde pouze v pripade, ze je
> > vykreslovany retezec kratsi nez sirka Rect (zjistuji to
> > Canvas.TextWidth();)
> > tj. je uvnitr Rect. Ale jak to udelat, kdyz je retezec sirsi nez Rect
> > a ja
> > ho chci vycentrovat i se zvyraznenim? Poradite mi nekdo, prosim?
> >
> > Dekuji za kazdou radu
> > Jaro B.DrawText, dt_Center format, OwnerDraw
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 6.8.1999 09:01:33
Ahoj,
nejsem si jist, zda jsem to spravne pochopil. Pokud ti jde o to,
nakreslit jenom tu _stredni_ cast retezce, ktera by se do Rect vesla,
tak by to mozna slo takhle:
Zjisti si pro vsechny casti retezce vcetne mezer mezi slovy jejich
sirku. Staci u funkce DrawText pouzit parametr DT_CALCRECT. Pak poscitej
vsechny sirky, tim dostanes celkovy rozmer. Pak uz by melo jit nakreslit
tenhle text do nejakeho canvasu a tu odpovidajici cast se sirkou
odpovidajici sirce tveho Canvasu prenest do toho Canvasu, kam
potrebujes. Pochopil jsem to dobre?
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odesl�no: 6. srpna 1999 7:18
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DrawText, dt_Center format, OwnerDraw
> D�le�itost: Velk�
>
> Ahoj,
>
> vyskytl se mi problem. Potrebuji ownerdraw vykreslit retezec v
> listboxu,
> ktery je centrovan dt_Center a vykreslovan pomoci funkce
> DrawText(Canvas.Handle, Znaky, -1, Rect, dt_SingleLine Or dt_Center Or
> dt_VCenter Or dt_NoPrefix);. Specialni na tom je to, ze v retezci jsou
> ruzne
> barvy a styly fontu (nektera slova jsou barevne pripadne stylem
> odlisena)
> coz delam vykreslovanim retezce po castech od pocatecniho bodu (zleva,
> zprava). Pri zarovnani vlevo nebo vpravo je mozne se zachytit krajnich
> okraju Rect, u zarovnani dt_Center mi to jde pouze v pripade, ze je
> vykreslovany retezec kratsi nez sirka Rect (zjistuji to
> Canvas.TextWidth();)
> tj. je uvnitr Rect. Ale jak to udelat, kdyz je retezec sirsi nez Rect
> a ja
> ho chci vycentrovat i se zvyraznenim? Poradite mi nekdo, prosim?
>
> Dekuji za kazdou radu
> Jaro B.copy properties
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 6.8.1999 10:04:25
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
Ikony v menu
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 6.8.1999 09:19:23
Ahoj,
zkust si to stahnout z
http://www.geocities.com/SiliconValley/Lab/6806/advmenu.htm
nebo napis, jakou mas verzi Delphi (tohle je pro D2 a D3) a poslu ti to.
Bohuzel u toho neni zdrojak, autor za to chce $20. Zkousel jsem i takove
obludnosti, jako dat tam bitmapu 1024*768 a nespadlo to !
Nebo priklad, ktery mi kdysi poslal Zdenek Fryz, takze se muzes
inspirovat. Ja jsem ten problem, ktery jsem s tim tehdy mel, vyresil
nakonec bez toho, jinak bych ti poslal svoje reseni:
... pro inspiraci jednoduchy priklad kresleni v menu - ve vsech
polozkach
MainMenu1, ktere maji Tag >0
priklad ale nebere v uvahu disable polozky, hotkeys ....
vyzkouseno v D3/Win95
Zdenek Fryz
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, Menus, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
mnuFile: TMenuItem;
mnuOpen: TMenuItem;
mnuClose: TMenuItem;
Image1: TImage;
mnuEdit: TMenuItem;
mnuCopy: TMenuItem;
mnuCut: TMenuItem;
mnuPaste: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure ChangeMenu(MenuItems: TMenuItem);
private
{ Private declarations }
procedure wmdrawitem(var msg: twmdrawitem);message wm_drawitem;
procedure wmmeasureitem(var msg: twmmeasureitem);message
wm_measureitem;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ChangeMenu(MenuItems: TMenuItem);
var
i: integer;
begin
for i:=0 to MenuItems.Count -1 do begin
ChangeMenu(MenuItems[i]);
if (MenuItems[i].Caption <> '-') and (MenuItems[i].tag > 0) then
ModifyMenu(MainMenu1.Handle ,
MenuItems[i].command,
MF_OWNERDRAW or MF_BYCOMMAND,
MenuItems[i].command,
nil );
end;
end;
procedure TForm1.wmdrawitem(var msg: twmdrawitem);
var
hFontOld: hFont;
szText: array[0..80] of char;
dwCheck: longint;
Retang: TRect;
c: TCanvas;
item: TMenuItem;
begin
with Msg.DrawItemStruct^ do begin
c:=TCanvas.Create;
c.handle:=hDc;
c.brush.color:=clMenu;
c.Font.Color:=clMenuText;
c.Font:=canvas.Font;
hFontOld:=hFont(SelectObject(hDc,canvas.Font.handle));
item:=MainMenu1.FindItem(itemID,fkCommand);
StrPCopy(szText,item.caption);
if (itemstate and ODS_SELECTED)>0 then begin
c.Font.Color:=clWhite;
c.brush.color:=clRed;
end;
Retang:=Rect(rcItem.left,rcItem.Top,rcItem.Right,rcItem.Bottom);
c.FillRect(Retang);
dwcheck:=getmenuCheckmarkDimensions;
c.TextRect(Retang,rcItem.left+loword(dwCheck)+16,rcItem.Top,szText);
// tady by bylo lepsi kreslit bitmapu z ImageListu:
// imagelist1.Draw(c,0,0,item.tag);
if item = mnuOpen then
c.Draw(0,0,image1.picture.bitmap);
c.Free;
SelectObject(hDC,hFontOld);
end;
end;
procedure TForm1.wmmeasureitem(var msg: twmmeasureitem);
var
sText: string;
dwCheck: longint;
item: TMenuItem;
begin
With Msg.MeasureItemStruct^ do begin
item:=MainMenu1.FindItem(itemID,fkCommand);
sText:=item.caption;
dwcheck:=getmenuCheckmarkDimensions;
ItemWidth:=canvas.TextWidth(sText)+LoWord(dwcheck)+14;
ItemHeight:=canvas.TextHeight(sText);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ChangeMenu(MainMenu1.Items);
canvas.font.name:='Tahoma';
canvas.font.size:=10;
canvas.font.style:=[fsBold];
end;
end.
Zdravim a preji uspech.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Viktor.Lostak(zv)chmi(tec)cz [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> Odesl�no: 6. srpna 1999 8:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ikony v menu
>
> Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke
> obrazky,
> ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup
> nebo
> musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery
> by to
> udelal za mne, nejlip se zdrojaky?
>
> Dik. Viktor
> Kopirovani pomoci UNC a IP adresy - text chyby
[*] muher(zv)csas(tec)cz - 6.8.1999 10:23:17
Je to nejaka cast dokumentace MS. Jmenuje se "Platform Software Development
Kit". Fotmatu Infoview. Velikost 70MB.
Martin Uher
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: 6. srpna 1999 8:39
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Kopirovani pomoci UNC a IP adresy
>
>
> Jeste bych rad vedel, odkud mas ten text chyby,
> ja to hledal v helpu, ale nenasel :-(
>
> Diky...
> ...Dobra
>
> > ----------
> >
> > Zrejme prikazovy interpret provadi tuto koverzi (IP -> hostname)
> > defaultne
> > sam. Text chyby je "The specified network resource or device is no
> > longer
> > available.". Pradvepodobne zustava tento preklad na tobe. Meli by ti
> > stacit
> > tri funkce.
> SelectedRows v DBGrid
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 6.8.1999 10:33:05
> Tak, ze bych (podle nejake promene/vlastnosti) nastavil, ze se nemaji
> odznacovat
> radky pri klik na jiny. Trochu jsem se dival do zdroju a asi bych musel
> skopirovat
> cely zdrojak TCustomDBGrid a v MouseDown (a asi taky KeyDown) bych
> upravil kod. Ale neslo by to
> nejak jinak. Dedenim asi ne, protoze vsechno dulezite je v
> TCustomDBGridu privatni.
>
> if (dgMultiSelect in Options) and FDatalink.Active then
> with FBookmarks do
> begin
> FSelecting := False;
> if ssCtrl in Shift then
> CurrentRowSelected := not CurrentRowSelected
> else
> begin
> Clear; // Toto by asi chtelo pryc
> CurrentRowSelected := True;
> end;
Ja bych udelal dedice TMyDBGrid, zdedil MouseDown:
procedure TMyDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
Cell: TGridCoord;
begin
Cell := MouseCoord(X, Y);
if not (csDesigning in ComponentState) and
(Cell.Y >= TitleOffset) and
not (ssDouble in Shift) and
(dgMultiSelect in Options) and
Datalink.Active {podminky, za kterych to prochazi k vyse uvedene
multiselectovaci casti}
{and nejaky vhodny test na ssShift,ssCtrl,ssAlt (nechce se mi nad tim
premyslet)}
then
inherited MouseDown(Button,Shift+[ssCtrl],X,Y)
{vnitrek rutiny si mysli, ze je Ctrl stisknut i kdyz neni}
else
inherited;
end;
Snad to bude fungovat. Ja totiz takto resil presny opak, tj. aby to pri
clicku bez Ctrl nebo Shift
neoznacovalo nic.
Rob
copy properties
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 06.8.1999 10:39:50
TUNGLI Jan wrote:
> Je mozne kopirovat vlastnosti componenty A na component B ? Napr.
> Mam Label6 a chcem aby Label7 ziskal vsetky vlastnosti Label6
A co zkusit Label7.Assign(Label6) ???
K.C.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
INTERBASE
[*] vabo <dkallab(zv)scova.vabo(tec)cz> - 6.8.1999 10:43:18
pratele zdravim Vas
mam takovy maly problem. Pouzivam delphi aplikace proti SQL serveru Interbase na OS Linux. V adresari .../interbase/ se nachazi soubor interbase.log. Tento soubor dosahuje velikosti pres 100MB a blokuje mi misto pro soubory *.gdb. Vi nekdo k cemu slouzi tento soubor, jak se da zakazak jeho vtorba atd.
Jeste doplnujici udaje. Server ma PII s 384MB RAM pokud to nejak souvisi.
Za jakoukoliv odpoved Vam dekuje a preje prijemne leto
DaK
Narocnost na win.resources u aplikaci v D2 a D4
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 6.8.1999 10:43:43
A nevideli jste nekdo nekde popis upravy teto chyby ?
Predpokladam, ze se jedna o pridani nejakeho radku do nize zminene
procedury.
Jaroslav KULHEIM
kulheim(zv)fitness(tec)cz
>
>Na tohle uz jsem taky narazil, budes se s tim muset asi smirit. Pouzivas
>v te aplikaci hodne komponent ktere maji glyphy (TSpeedButton,
TDBNavigator,
>TBitBtn) ? Pokud ano, tak chyba je v metode TBitmap.Dormant, ktera v
rozporu
>s helpem neuvolni handle bitmapy. Toto by melo byt prave dobre
pozorovatelne
>pomoci MemorySleuth. Mozna je tam ale jeste jina dalsi chyba, pokud by jsi
>narazil na nejake vetsi rozdily ve vyuziti syst.zdroju mezi D2 a D4, tak se
>prosim ozvi. Jinak uz asi pred rokem jsem o tom psal tady:
>
>http://www.delphi(tec)cz/soubor.asp?path=\archiv\1998\aug\01\dlfaaaad.htm
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>copy properties
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1999 10:58:05
Nevim, jak by to slo, ale vsechny stejne kopirovat
nemuzes, protoze property Name musi byt jedinecna.
> ----------
> Je mozne kopirovat vlastnosti componenty A na component B ?
> �
> Napr.
> � Mam Label6
> � a chcem aby Label7 ziskal vsetky vlastnosti Label6
> Win9x nebo WinNT ?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1999 11:11:57
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nekdo tu nedavno chtel zjistit, jestli program bezi na Win9x
nebo na WinNT, zrovna ted jsem to potreboval a udelal jsem
to takto :
uses Windows;
var OSVInfo : TOSVersionInfo;
begin
OSVInfo.dwOSVersionInfoSize:=SizeOf(OSVInfo);
if not GetVersionEx(OSVInfo) then
raise Exception.Create('Zjisteni verze selhalo');
case OSVInfo.dwPlatformId of
VER_PLATFORM_WIN32s : Win32s na Windows 3.1
VER_PLATFORM_WIN32_WINDOWS : Windows 9x (snad i pro W 98)
VER_PLATFORM_WIN32_NT : Windows NT
----------------------
Dobra.
BTW: tady mate jedno zajimave logo do tech Vasich NTycek...
http://dcomp.8m.com/temp/NTLogo.gif
Programovacia technika
[*] Robert Jendrisak <delphi(zv)minv.sk> - 6.8.1999 11:18:34
Caff lidi,
potreboval by som help s jednou technikou.
Cez TCP prijmam data, ktore citam v ondatavaiable
data su vsak rozsekane, takze ked spracuvavam prve data,
v ktorych citam escape sequence a zrazu sa retazec konci,
a pokracuje v dalsom, mam trosicku problem prijst na najlepsiu cestu
ako to spravit aby som plynule pokracoval.
Dik
priklad:
1-5-4 Koniec prvej
Zaciatok dalsej sekvencie: 5-8-3...atd
Vyznam ma ale len 5-4-5
Ikony v menu - uz jsem to vyresil
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 6.8.1999 11:22:30
Uz to mam vyresene, nejaky dobry clovek poslal odkaz na www.codeguru.com a
hned jsem to tam nasel a stahl. Tak dik. Viktor
Registrace DLL a OCX
[*] Robert Jendrisak <delphi(zv)minv.sk> - 6.8.1999 11:26:03
> Puvodni zprava, kterou napsal Jaroslav ��pek dne 5 Aug 99,:
>
> > nemate nekdo zkusenoti s registraci DLL a OCX. Potrebuji udelat
instalacni
> > program, ktery mi zkopiruje mj. i nejake knihovny a ActiveX komponenty a
> > nasledne je musim zaregistrovat ve Windows a nechci to delat pres volani
> > Regsrv32.exe. Taky bych potreboval zjistit, co se zapisuje pri
registraci
> > do registru kvuli odinstalovani. Dekuji predem za jakoukoliv radu.
>
> Je to velice jednoduche a je na to v Delphi dokonce priklad:
>
> c:\Delphi4\Demos\Activex\Tregsvr\
>
> Kvuli odinstalovani se do registru pise nazev programu a cesta
> na odinstalacni program, podivej se sem:
>
> HK_LM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
>
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
Vazeny pocitacovy EXPERT, on chcel ocx zaregistrovat, nie odinstalovat.
Ja som to tiez robil cez regsrv, ktory sa spustil na zaciatku programu,
pokial nebol spusteny uz pred tym. (v subore som si uchovaval stav
registracie)
Inak to zatial spravit neviem. Kazde ocx sa zrejme v registry zapise inde
(vid scaner/graficky server atd...)
takze ani velmi neviem ako to zistit.
Keep well
werki
copy properties
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 6.8.1999 11:28:57
> Je mozne kopirovat vlastnosti componenty A na component B ?
>
> Napr.
> Mam Label6
> a chcem aby Label7 ziskal vsetky vlastnosti Label6
Snad pomoci TWriter a TReader:
KomponentaOdkud.WriteState;
Reader.ReadComponent( KomponentaKam );
Ale nezkousel jsem to.
Tom
copy properties
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 6.8.1999 11:29:39
pouzij dedicnost
----- Original Message -----
From: TUNGLI Jan
To: DELPHI Distribution List
Sent: Friday, August 06, 1999 10:04 AM
Subject: copy properties
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
copy properties
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 6.8.1999 12:11:10
AKO ?
-----P�vodn� zpr�va-----
Od: Milan N�mec <nemec(zv)goldcard(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. august 1999 11:59
P�edm�t: Re: copy properties
pouzij dedicnost
----- Original Message -----
From: TUNGLI Jan
To: DELPHI Distribution List
Sent: Friday, August 06, 1999 10:04 AM
Subject: copy properties
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
Ikony v menu
[*] Jan Bartu�ek <jan.bartusek(zv)spojprojekt(tec)cz> - 6.8.1999 12:39:30
V D4 to zle udelat tak, ze se na formular vlozi TImageList
(ze zalozky WIN32), do ktereho se nahraji obrazky. V MainMenu
nastav odkaz na ImageList do property Images. V jednotlivych
polozkach MainMenu pak nastav v property ImageIndex poradove
cislo obrazku ze seznamu komponenty ImageList.
--------------------------------------------------------------------------
Jan Bartusek
jan.bartusek(zv)spojprojekt(tec)cz
stredisko 350 - radiokomunikace
Spojprojekt Praha a.s.
www.spojprojekt(tec)cz
copy properties
[*] Jan Bartu�ek <jan.bartusek(zv)spojprojekt(tec)cz> - 6.8.1999 12:58:00
>Je mozne kopirovat vlastnosti componenty A na component B ? Napr. Mam Label6 >a chcem aby Label7 ziskal vsetky vlastnosti Label6 TUNGLI J�nos
Pokud jde o design-time, resi to zkopirovani komponenty pres schranku.
--------------------------------------------------------------------------
Jan Bartu�ek
jan.bartusek(zv)spojprojekt(tec)cz
st�edisko 350 - radiokomunikace
Spojprojekt Praha a.s.
www.spojprojekt(tec)cz
copy properties
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 6.8.1999 13:08:40
Mo�n� by sta�ilo tohle:
Label7 := Label6
Va�ek
Odpov�zte pros�m u�ivateli: delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Vaclav Lukes/IT/EuroTel)
P�edm�t zpr�vy: Re: copy properties
AKO ?
-----P�vodn� zpr�va-----
Od: Milan N�mec <nemec(zv)goldcard(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. august 1999 11:59
P�edm�t: Re: copy properties
pouzij dedicnost
----- Original Message -----
From: TUNGLI Jan
To: DELPHI Distribution List
Sent: Friday, August 06, 1999 10:04 AM
Subject: copy properties
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
Chci svuj disk - big problem
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 6.8.1999 13:12:58
Chci, aby se ma databaze (ona to teda neni databaze, ale neco jako, zkratka
takova halda dat s priblizne stromovou strukturou) tvarila jako dalsi disk
ve Windows. Snad by se dalo udelat neco jako ovladac (?), co by umelo zapsat
do souboru, cist z neho, vytvorit jej a takove nejake veci a pak by se to
nejak (???) zaclenilo do Windows. Ovsem nemam ani nejmensi potuchu o tom,
jak (jestli) se da neco takoveho udelat. Nemate nejaky napad nebo informaci?
Dik. Viktor
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.8.1999 13:17:29
Atoll wrote:
> Umel by mi prosim nekdo poradit jak nastavit transakci ve FreeIB, tak aby
> byl editovan� zaznam zamcen ?
Eh?? Nejdrive si musis zjistit, zda zamykani zaznamu vubec
umoznuje samotna IB. Pokud ano, teprve potom je cas zjistovat,
jak to udelat, ale je treba zacit u dokumentace IB.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
copy properties
[*] Pavel �im��ek - 6.8.1999 13:24:05
Mozna metodou Assign.
P.
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 6. srpna 1999 12:31
P�edm�t: copy properties
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
OFF: font pro anglickou vyslovnost
[*] sup(zv)svitap(tec)cz - 6.8.1999 13:43:56
>Ahoj,
>omlouvam se za offtopic, chtel bych si napsat vlastni aplikaci na anglicke
>fraze, ale nevim, kde sehnat font, ktery obsahuje VSECHNY znaky pouzivane
>pro prepis anglicke vyslovnosti. Jde mi o vselijake ty "ae", obracene e,
>skrtle O a spol.
>Neco z toho je soucasti klasickych fontu, ale rozhodne ne vsechno.
>Dik za kazdou radu,
>Leos
>
Zkus si ho udelat. Existuje program Fontographer, ke stazeni je na
ftp.svitap(tec)cz/pub/misc.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Ikony v menu
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 06.8.1999 13:51:15
very easy !
1. Poloz na formular komponentu ImageList (zalozka WIN32)
2. Napln ho ikonama
3. potom tam poloz Menu (zalozka Standart)
4. V properties Menu nastav [Images] jako jmeno toho ImageListu
5. Vytvarej menu a kazde polozce prirad properites [ImageIndex] a cislo
obrazku v tom ImageListu
Kdyz tak ti muzu poslat nejakej prikladek
Pavel
mailto: bansky(zv)club(tec)cz
> Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke obrazky,
> ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup nebo
> musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery by to
> udelal za mne, nejlip se zdrojaky?Sitovy semafor - zamek (RE: Zamykani zaznamu na IB
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 6.8.1999 14:28:10
Kdyz uz si nakousnul to zamykani, tvrdy zamek na IB neni. Muzu nabidnout
ten svuj, co pouziva ke sve cinnosti protokol TCP/IP. Je to hotove,
server je ve forme exace, klient je DLL a par dobre definovanych funkci.
Podstata je takova, ze k zadnemu zamykani nedochazi, ale klient si
zamyka zaznamy mimo IB, a ostatni klienti to respektuji. Ale nic jim
nebrani zaznam pouzit, kdyz nebudou zamek brat na vedomi. Je to
spolehlive reseni, pouzivam to dlouho. Kdyz uz narazis na problem se
zamkem, vzdy se ukaze, ze muzes pouzit tento zpusob.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 06. srpna 1999 13:17
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Zamykani zaznamu na IB s pouzitim FreeIB
>
> Atoll wrote:
>
> > Umel by mi prosim nekdo poradit jak nastavit transakci ve FreeIB,
> tak aby
> > byl editovan� zaznam zamcen ?
>
> Eh?? Nejdrive si musis zjistit, zda zamykani zaznamu vubec
> umoznuje samotna IB. Pokud ano, teprve potom je cas zjistovat,
> jak to udelat, ale je treba zacit u dokumentace IB.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Chci svuj disk - big problem
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 6.8.1999 14:29:47
Pouzij PGP, a mas to i kryptovane. http://www.pgpi.com ale stahni si
verzi 6.0.x, ve vyssi verzi neni PGP Disk.
Vic nevim.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Viktor.Lostak(zv)chmi(tec)cz [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> Odesl�no: 06. srpna 1999 13:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Chci svuj disk - big problem
>
> Chci, aby se ma databaze (ona to teda neni databaze, ale neco jako,
> zkratka
> takova halda dat s priblizne stromovou strukturou) tvarila jako dalsi
> disk
> ve Windows. Snad by se dalo udelat neco jako ovladac (?), co by umelo
> zapsat
> do souboru, cist z neho, vytvorit jej a takove nejake veci a pak by se
> to
> nejak (???) zaclenilo do Windows. Ovsem nemam ani nejmensi potuchu o
> tom,
> jak (jestli) se da neco takoveho udelat. Nemate nejaky napad nebo
> informaci?
> Dik. Viktor
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 06.8.1999 14:40:56
>
> Eh?? Nejdrive si musis zjistit, zda zamykani zaznamu vubec
> umoznuje samotna IB. Pokud ano, teprve potom je cas zjistovat,
> jak to udelat, ale je treba zacit u dokumentace IB.
>
(Eh?? Zbysek Hlinka nevi, zda IB umi zamykat zaznamy?)
Jiste ze umi. Je treba nastavit u TDatabase TransIsolation na RepeatableRead a
pak jakmile nejaka transakce sahne na zaznam tak do jejiho commitu se na nej
nikdo jiny nedostane.Chci svuj disk - big problem
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 6.8.1999 14:52:37
Urcite to nejak jde - viz PGP.
Tam maji PGP disk, ktery chova takto:
Nekde na disku se vytvori fiktivni logicky disk (je to soubor), ktery se i
formatuje a chova se jako obycejny disk. Tento disk se pripoji treba dvojklikem
na jmenu souboru (ktery predstavuje ten disk), zada se heslo (fraze), a
odkazuje se na nej jako na normalni logicky disk (treba M:). Pokud se na tento
disk po urcitou dobu (jde nastavit) nepristoupi, sam se odpoji.
Zaroven se toho da vyuzit, ze to je soubor. Da se to cele prekopirovat jinam
(zaloha), nekomu poslat, ale i vymazat. Podle me je to DOBRY.
www.pgp(tec)cz , www.pgp.net/pgpnet
Pavel
----------
Odes�latel: Viktor Lostak[SMTP:Viktor.Lostak(zv)chmi(tec)cz]
Odpov�di: delphi-l(zv)fwd(tec)cz
Odesl�no: 6. srpna 1999 13:12
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Chci svuj disk - big problem
Chci, aby se ma databaze (ona to teda neni databaze, ale neco jako, zkratka
takova halda dat s priblizne stromovou strukturou) tvarila jako dalsi disk
ve Windows. Snad by se dalo udelat neco jako ovladac (?), co by umelo zapsat
do souboru, cist z neho, vytvorit jej a takove nejake veci a pak by se to
nejak (???) zaclenilo do Windows. Ovsem nemam ani nejmensi potuchu o tom,
jak (jestli) se da neco takoveho udelat. Nemate nejaky napad nebo informaci?
Dik. Viktor
windows temp dir.
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 6.8.1999 14:52:07
Cau vsichni,
nevite negdo prosim vas jak co nejjednodusejc v delphi zjistit windowsovskej
temp. adresar ...?
zatim diky a cau Jirka ...MSSQL7 a image
[*] Ing. Leopold Grepl <Grepl(zv)melzer(tec)cz> - 6.8.1999 14:54:00
Zdravim,
potreboval bych scriptem plnit field typu Image. Udelam script prikazu
Insert into xxx (ID,Image) values (1,"data image");
za sebou. Vse ulozene v souboru *.sql. Pokud tento script pustim v ISQL.exe, OSQL.exe nebo v Query Analyzatoru oreze mi tento script. ( nenacte ho cely ). Neni to zadnym znakem protoze to oreze vzdy, pokud jsou data vetsi nez 990 bytu. Tento insert se potom neprovede, protoze se nenacte ukoncovaci " .
Query Analyzator mi tento soubor ani nenacte, oreze ho pri nacitani, tudiz neni ani co provadet. Zkousel jsem text scriptu prenest i pres Clipboard, ale dopadlo to stejne.
Budu vdecen za kazdou radu
Ing. Leopold Grepl
Melzer s. r. o.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.69 / Virov� b�ze: 37 - datum vyd�n�: 28.6.1999
Programovacia technika
[*] Robert Jendrisak <delphi(zv)minv.sk> - 6.8.1999 14:57:01
Fajn, nejaku techniku som spravil, potreboval som sa ist na to len fyzicky
vy*rat.
Spravil som taku mensiu rekurziu v cikle, s pouzitim 2 globalnych
premennych...
Funguje to KRASNE!! :))
(len mi to trvalo preprogramovat 2 hodiny, kazdopadne som usetril 30 riadkov
zdrojaku)
Dakujem za odpovede,
Werki
PS: kto to nepochopil, v retazci, po prijati ktoreho mam jedinu moznost na
obsluzenie boli podskupiny retazcov, na ktore bolo treba spravit vnorenia do
ciklov, len ked zrazu retazec skoncil niekde uprostred 3 vnorenia, bol
problem nejako
zachovat stavy a nejako prerusit napriklad umiestnovanie kurzora/funkcia na
prepocet pozicie/konverzia hex/dec...v strede, pretoze to bolo obrovske.
Teraz som to spravil trosicku...
poviem to pysne...genialne, takze je to krasne nazorne a prakticke.copy properties
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 6.8.1999 15:02:02
class TLabel6 : public TLabel
{
// vlastnosti Labelu6
};
class TLabel7 : public TLabel6
{
// vlastnosti Labelu6 + Labelu7
};
----- Original Message -----
From: TUNGLI Jan
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, August 06, 1999 12:11 PM
Subject: Re: copy properties
AKO ?
-----P�vodn� zpr�va-----
Od: Milan N�mec <nemec(zv)goldcard(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. august 1999 11:59
P�edm�t: Re: copy properties
pouzij dedicnost
----- Original Message -----
From: TUNGLI Jan
To: DELPHI Distribution List
Sent: Friday, August 06, 1999 10:04 AM
Subject: copy properties
Je mozne kopirovat vlastnosti componenty A na component B ?
Napr.
Mam Label6
a chcem aby Label7 ziskal vsetky vlastnosti Label6
TUNGLI J�nos
email: tungli(zv)pvt.sk
emial: jan.tungli(zv)seznam(tec)cz
My Home Pages:
Hungary : http://www.nexus.hu/tungli
USA : http://www.freeyellow.com/members8/tungli
Czech : http://freeweb.coco(tec)cz/tungli
Pridani polozek do Popup Menu
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 6.8.1999 14:26:10
Ahojte,
potreboval bych pridat nejake svoje polozky do standardniho popup menu napr. u Edit-u.
Ma s tim nekdo nejake zkusenosti?
Delphi 4 C/S, Win 95.
Za kazdou konstruktivni odpoved diky
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Volani funkce z dll-knihovny
[*] Kriz David <david.kriz(zv)ccv(tec)cz> - 6.8.1999 15:39:21
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Dobry den,
chtel bych se zeptat, jestli je pri volani nejake funkce z dll-knihovny
nejak omezena delka predavanych parametru.
Jde o Delphi 3 C/S na Windows 95 OSR2 CZ.
Podpis (ENG:signature, DEU:unterschrift, ESP:firma)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
David K��,
CCV s.r.o., Drobneho 49, Brno, 602 00, Czech republic - vyrobce ekonomickeho
IS "NPro"
mailto:david.kriz(zv)ccv(tec)cz
http://www.ccv(tec)cz
Telefon: +420-5-41 21 21 99 / klapka 32; Fax: +420-5-41 21 21 99
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Hardlock
[*] Radoslav Jalc <RJalc(zv)ke.telecom.sk> - 6.8.1999 16:08:09
Cest praci ...
Mate niekto skusenosti s Hardlockom Fast E-Y-E ?
Je spolahlivy? Myslim ci aplikacia chranena tymto "lockom" je v bezpeci ?
S pozdravom
Radoslav Jalc
Algoritmus na zmenu textu
[*] MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz> - 6.8.1999 16:24:21
Ahoj Petre.
diky za reakci. Nezlob se prosim, ale ja nejsem programator a potreboval
bych trochu polopaticky. Pochopil jsem, ze musim dat na fomular
komponentu Memo a Button, pricemz do udalosti OnClick toho tlacitka dam
tu v poradi druhou proceduru. Ale cemu mam priradit tu prvni? (procedure
ProperStr(var S: String).
Diky a nezlob se, ze se ptam na takovou asi samozrejmou vec.
Premek
> Ahoj,
>
> Muzes to udelat treba takhle:
>
> procedure ProperStr(var S: String);
> const
> SpaceChars = [#9, #32, #13, #10];
> var
> P: PChar;
> FirstChar: Boolean;
> begin
> P := PChar(S);
> FirstChar := True;
> while P^ <> #0 do
> begin
> if P^ in SpaceChars then
> FirstChar := True
> else
> if FirstChar then
> begin
> CharUpperBuff(P, 1);
> FirstChar := False;
> end else
> CharLowerBuff(P, 1);
> Inc(P);
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> S: String;
> FS: TFileStream;
> begin
> FS := TFileStream.Create('unit1.pas', fmOpenRead or
> fmShareDenyWrite);
> try
> SetLength(S, FS.Size);
> FS.ReadBuffer(Pointer(S)^, FS.Size);
>
> ProperStr(S);
>
> Memo1.Lines.Text := S;
>
> finally
> FS.Free;
> end;
> end;
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> ************************
> windows temp dir.
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 6.8.1999 18:19:50
> nevite negdo prosim vas jak co nejjednodusejc v delphi zjistit
windowsovskej
> temp. adresar ...?
var
adresar: array[0..64] of char;
begin
GetTempPath (65, adresar); // delka, prostor na vysledek
// vraci 'C:\WINDOWS\TEMP\' u W95
end;
Leos
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.8.1999 08:52:51
Pavel Fiser wrote:
> (Eh?? Zbysek Hlinka nevi, zda IB umi zamykat zaznamy?)
A proc by to mel vedet, kdyz se IB nezabyva? :-)
> Jiste ze umi. Je treba nastavit u TDatabase TransIsolation na
> RepeatableRead a pak jakmile nejaka transakce sahne na zaznam tak do
> jejiho commitu se na nej nikdo jiny nedostane.
Je tu ovsem otazka, za jakych okolnosti tohle zamykani pouzit.
Pokud se to nastavi uz na urovni TDatabase, je to podle me
hovadina, protoze dle meho nazoru ma byt takovyhle zpusob
zamknuti velice dobre zduvodnen. Z cehoz mi plyne, ze to bude
pouzivane (pokud vubec) pouze u nekterych tabulek, ale urcite ne u
cele databaze.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
D4 a Oracle
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 7.8.1999 09:05:19
Hello All!
5. srpna 1999 tomas.mazurek wrote:
> nejjednodussi a nejrychlejsi je pouzit komp., ktere chodi pres
> OCI.DLL (Oracle Call Interface).
Mam podobny problem: Potrebujem pristupovat k datam na DB2 (IBM), najlepsie
z D4 stand. ale podla moznosti hlavne bez BDE. Nestretli ste niekto na to
komponentu?
BTW hlasovanie do konferencie bol pekne debilny napad a prekvapivo hodne
ludi na to skocilo. :-( Prispejem aj ja, ale tak, aby to nieslo aspon
nejaky ten bitik informacie:
Pri citani konferencie delphi spravy ihned odmazavam, ale tie, ktore
obsahuju uzitocnu informaciu, nechavam. Robim to od 17.11.1998 a nazbieralo
sa mi cez 1000 sprav. Ked kliknem na stlpec 'From', dostanu sa mi k sebe
spravy od jedneho autora. Dal som si kvoli vam tu pracu a spocital ludi, od
ktorych je 10 a viac sprav:
11 Benes Jaroslav
17 Dalibor Toman
10 Fryz Zdenek
14 Jan Fiala
11 Jan Sebelik
17 Jaro
11 Lubo Fule
32 Maly Dobromil
12 Martin Kubecka
10 Mir. Cipel (ak Mirek je ten isty ako Miroslav)
16 Pavel Cisar
20 Petr Brant
142 Petr Vones (to nie je presne, tu som pocital len PgDn x 20)
11 Petr Zahradnik
12 Polak Jiri
10 Slavek Rydval
10 TUNGLI Jan
21 Zbysek Hlinka
dalsich asi 600 sprav je od cca 150 ludi priemerne po 4 spravy.
Bohuzial kos pravidelne vysypavam, takze nemozem k poctu 'uzitocnych' sprav
pridat pocet 'balastu' (pisem to v uvodzovkach, lebo pri viacerych
odpovediach na nejaky dotaz archivujem iba tu najpresnejsiu a do kosa
padaju casto celkom dobre spravy) pre vycislenie prinosnosti
prispievatelov.
Dalsi zaujimavy ukazovatel by bol pomer poctu bytov svojho textu k
citaciam, ale na to nepoznam nastroj (neurobite niekto?)
Zatial vas len mozem poziadat, aby ste sa snazili svoje spravy pisat tak,
aby ste sa jedneho dna, az ktosi tu statistiku urobi, neobjavili medzi
celnymi 'zasieracmi'.
... "Nezasierajte echo" vravi sprievodca turistom hukajucim do Grand
Canyonu
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Otazka ?! Ceska liga
[*] David Otoupalik <Dvaidkonf(zv)atlas(tec)cz> - 7.8.1999 10:41:46
Nemas nahodou neco spolecneho z vyvojem Ceske ligy pro Windows s Davidem
Dousou ?
David Otoupalik
D4 a Oracle
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 7.8.1999 13:20:50
>Hello All!
>
>5. srpna 1999 tomas.mazurek wrote:
>
>> nejjednodussi a nejrychlejsi je pouzit komp., ktere chodi pres
>> OCI.DLL (Oracle Call Interface).
>
>Mam podobny problem: Potrebujem pristupovat k datam na DB2 (IBM), najlepsie
>z D4 stand. ale podla moznosti hlavne bez BDE. Nestretli ste niekto na to
>komponentu?
>
Podivej se na
http://www.sqldirect-soft.com/
Radim
D4 a Oracle ........ DB2 bez BDE
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 7.8.1999 13:45:58
�au,
....tak co jsem tak p�tral a zkou�el bez BDE, tak se jev� jako
schopn� komponenta
tbDBF od http://members.xoom.com/t_byte/
je to sice shareware za 20$,
ale hlavn� �e to je bez BDE, um� to filtrovat, neum� to pracovat s
indexy a memama,
tak nev�m jestli ti to bude vyhovovat,
t��d�n� jsem vy�e�il napojen�m na expresGrid , kterej to um� s�m o
sob�,
tak�e v pohod�.
( vyzkou�en� na Delphi 4.02 )
m�j se,
Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/> ----------
> Odes�latel: Viliam Mlich[SMTP:vmlich(zv)mbox.vol(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 7. srpna 1999 9:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: D4 a Oracle
>
> Hello All!
>
> 5. srpna 1999 tomas.mazurek wrote:
>
> > nejjednodussi a nejrychlejsi je pouzit komp., ktere chodi pres
> > OCI.DLL (Oracle Call Interface).
>
> Mam podobny problem: Potrebujem pristupovat k datam na DB2 (IBM),
> najlepsie
> z D4 stand. ale podla moznosti hlavne bez BDE. Nestretli ste niekto na to
> komponentu?
>
> BTW hlasovanie do konferencie bol pekne debilny napad a prekvapivo hodne
> ludi na to skocilo. :-( Prispejem aj ja, ale tak, aby to nieslo aspon
> nejaky ten bitik informacie:
>
> Pri citani konferencie delphi spravy ihned odmazavam, ale tie, ktore
> obsahuju uzitocnu informaciu, nechavam. Robim to od 17.11.1998 a
> nazbieralo
> sa mi cez 1000 sprav. Ked kliknem na stlpec 'From', dostanu sa mi k sebe
> spravy od jedneho autora. Dal som si kvoli vam tu pracu a spocital ludi,
> od
> ktorych je 10 a viac sprav:
>
> 11 Benes Jaroslav
> 17 Dalibor Toman
> 10 Fryz Zdenek
> 14 Jan Fiala
> 11 Jan Sebelik
> 17 Jaro
> 11 Lubo Fule
> 32 Maly Dobromil
> 12 Martin Kubecka
> 10 Mir. Cipel (ak Mirek je ten isty ako Miroslav)
> 16 Pavel Cisar
> 20 Petr Brant
> 142 Petr Vones (to nie je presne, tu som pocital len PgDn x 20)
> 11 Petr Zahradnik
> 12 Polak Jiri
> 10 Slavek Rydval
> 10 TUNGLI Jan
> 21 Zbysek Hlinka
>
> dalsich asi 600 sprav je od cca 150 ludi priemerne po 4 spravy.
>
> Bohuzial kos pravidelne vysypavam, takze nemozem k poctu 'uzitocnych'
> sprav
> pridat pocet 'balastu' (pisem to v uvodzovkach, lebo pri viacerych
> odpovediach na nejaky dotaz archivujem iba tu najpresnejsiu a do kosa
> padaju casto celkom dobre spravy) pre vycislenie prinosnosti
> prispievatelov.
>
> Dalsi zaujimavy ukazovatel by bol pomer poctu bytov svojho textu k
> citaciam, ale na to nepoznam nastroj (neurobite niekto?)
>
> Zatial vas len mozem poziadat, aby ste sa snazili svoje spravy pisat tak,
> aby ste sa jedneho dna, az ktosi tu statistiku urobi, neobjavili medzi
> celnymi 'zasieracmi'.
>
> ... "Nezasierajte echo" vravi sprievodca turistom hukajucim do Grand
> Canyonu
>
> Bye mailto:vmlich(zv)mbox.vol(tec)cz
> V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
>
> init directory
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 7.8.1999 15:16:57
PrgAdresar := GetCurrentDir;
-----P�vodn� zpr�va-----
Od: Jenik <velky(zv)broucek(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. srpna 1999 12:27
P�edm�t: init directory
ahojte
lide dobri muzete prosim nekdo poradit jak zjistit cestu k
adresari z ktereho se spousti exac ? Me totiz napadlo jen strasne
krkolomne reseni najit ten soubor a z toho to zjistit :-)
dik moc Jenda
MediaPlayer D4
[*] Eduard Navr�til <enavratil(zv)iol(tec)cz> - 7.8.1999 21:00:35
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim
Prosim o radu, kde by mohla bejt chyba. Na formular v D4 umistim komponentu MediaPlayer,
do property DeviceType := dtCDAudio a pri pokusu o MediaPlayer.Open vyhodi:
" Exception EMCIDeviceError in module PROJECT1.EXE at 0003D4F5.
MMSYSTEM296 Na uvedenem zarizeni MCI nelze soubor prehrat.
Soubor je poskozen nebo nema spravny format. "
nevim jestli nemam nekde neco spatne nastavene nebo jestli neni problem v D4, protoze
ostatni DeviceType mi jedou bez problemu a v D3 na stejnem pocitaci mi
DeviceType := dtCDAudio jelo bez chyby. Po instalaci D4Upgd#3 zadna zmena.
Diky za pomoc EN
init directory
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 7.8.1999 21:42:03
> PrgAdresar := GetCurrentDir;
Zalezi na vyznamu vety "cestu k adresari z ktereho se spousti exac".
Funkce GetCurrentDir vraci aktualni adresar volajiciho procesu.
Napriklad:
Stojim v adresari "C:\ProgramFiles\Borland\Delphi"
Spoustim "Projekty\Testik\Test.exe" (treba z Faru)
Po spusteni mne GetCurrentDir vraci "C:\ProgramFiles\Borland\Delphi".
Pokud chci adresar kde je _UMISTENA_ aplikace, pouziju
ExtractFileDir(ParamStr(0))
Leos
>> lide dobri muzete prosim nekdo poradit jak zjistit cestu k
>> adresari z ktereho se spousti exac ? Me totiz napadlo jen strasne
Dynamicke volani funkce
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 07.8.1999 21:43:16
ave Vsichni !
nevite nekdo jak predat jmeno funkce nejake procedure
ktera tu funkci potom vyvola.
diky Pavel !
mailto: bansky(zv)club(tec)cz
ff a memo
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 7.8.1999 22:11:47
U memo polozek by teoreticky melo take fungovat
MTable1.Fields[5].AsString:=FFT.Fields[1].AsString;
S pozdravem,
Zden�k Moravec zmo(zv)telecom(tec)cz
Prace s komponentou pomoci fce jine DLL
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 7.8.1999 22:22:50
Ahoj,
mam nasledujici problem: mam dll ,
ve ktere je fce, ktere predam StringGrid patrici Formu
vytvorenem v teto dll ktera mu nastavi property a naplni ho.
Mam druhou dll, ve ktere mam take formular a na nem
opet StringGrid, na jehoz nastaveni a naplneni jsem
si chtel zavolat tu exportovanou fci z te prvni dll.
Kdyz vsak ta fce zacne nastavovat a plnit predany
StringGrid z druhe dll tak to jde tezce do haje (GPF).
Otazka zni: lze si vubec mezi knihovnama takhle
predavat komponenty a pracovat s nimi? Jestli ano
tak to delam blbe:-((.
Priklad:
function VlozHodnoty(var SG: TStringGrid): Boolean; export;
begin
SG.Cells[1,1]:= 'Help'; // projde jen pri plneni StringGridu vlastni dll
...
end;
S pozdravem a dikem za kazdou informaci
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
Dynamicke volani funkce
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.8.1999 22:44:55
kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> wrote:
>nevite nekdo jak predat jmeno funkce nejake procedure
>ktera tu funkci potom vyvola.
Hi,
AFAIK, jmeno funkce se predat neda, ale da se predat jeji adresa.
To potom muze vypadat treba takhle:
// Tohle je definice typu predavane funkce
type
tfAnyFunction = function(aPar1:integer): boolean;// Tohle je funkce, ktera dostane jako parametr jinou funkci
// a tu vola
procedure CallingProc(aFunction:tfAnyFunction);
const
cOdd: array[boolean] of string = ('sude','liche');
var
n: integer;
begin
n := 2;
Form1.Caption := Format('%d je %s Liche cislo',[n,cOdd[aFunction)]]);
end;
// Tohle je ta funkce, ktera se predava jako parametr
function CalledFunction(aNumber:integer): boolean;
begin
Result := odd(aNumber);
end;
// Tohle ukazuje, jak se ta funkce predava jako parametr
procedure TForm1.Button1Click(Sender: TObject);
begin
CallingProc(addr(CalledFunction));
end;
Bye, pf
Prace s komponentou pomoci fce jine DLL
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.8.1999 22:48:39
Pavel Malinsk� <spiderland(zv)seznam(tec)cz> wrote:
>Kdyz vsak ta fce zacne nastavovat a plnit predany
>StringGrid z druhe dll tak to jde tezce do haje (GPF).
>Otazka zni: lze si vubec mezi knihovnama takhle
>predavat komponenty a pracovat s nimi? Jestli ano
>tak to delam blbe:-((.
Rekl bych, ze to souvisi s predavanim ANSI stringu alokovanych na heapu DLL.
Podivej se do helphu na heslo "sharemem" - tuhle unit musis dat do uses jako prvni a treba se to spravi :-)
Bye, pf
Vyvojove prostredi Delphi 4 prof. - toolbuttons
[*] Tom� Br�dle������i�^����? - 7.8.1999 23:17:50
Zdravim vsechny,
chci se zeptat jestli nekdo nema zkusenosti s nasledujici neprijemnou veci.
V Delphi 4 prof. jsem si mirne upravil prostredi panelu nastroju (par
tlacitek pryc, nejake pridat, nektere panely presunout). Toto nastaveni se
pamatuje dokud nedojde k exception v prostredi Delphi (ale ne pri kazdem
exception, jen nekdy). Pak se obnovi puvodni toolbary s tlacitky, jak bylo
po instalaci. Setkal se s tim nekdo, popr. jak se tomu da predejit, ev. jak
si nekam to svoje nastaveni ulo�it (zazalohovat).
predem diky
Tomas
t.bradle(zv)pvtnet(tec)cz
D4 a Oracle
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.8.1999 08:59:05
Viliam Mlich wrote:
> Mam podobny problem: Potrebujem pristupovat k datam na DB2 (IBM),
> najlepsie z D4 stand. ale podla moznosti hlavne bez BDE. Nestretli ste
> niekto na to komponentu?
Hledam testery na moje OLE DB komponenty. Vyzkousej je, kdyz
to nepujde primo, tak pres ODBC. Jestlize te to neuspokoji, pak
vyzkousej nejake ADO komponenty.
> BTW hlasovanie do konferencie bol pekne debilny napad a prekvapivo hodne
> ludi na to skocilo. :-( Prispejem aj ja, ale tak, aby to nieslo aspon
> nejaky ten bitik informacie:
>
> 32 Maly Dobromil
> 142 Petr Vones (to nie je presne, tu som pocital len PgDn x 20)
:-)) Nevim, jestli sis toho vsiml, ale rekl jsi mnoha slovy totez, k
cemu jinym stacila slova dve. Jinak jsem rad, ze se zase podarilo
prelstit zavist. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Hardlock
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.8.1999 11:25:28
Puvodni zprava, kterou napsal Radoslav Jalc dne 6 Aug 99,:
> Mate niekto skusenosti s Hardlockom Fast E-Y-E ?
>
> Je spolahlivy? Myslim ci aplikacia chranena tymto "lockom" je v bezpeci ?
Ten klic neznam. Ale chci jen rici, ze to, zda bude Tva aplikace
v bezpeci, nezalezi jen na kvalite hardwaroveho klice. I s tim
nejkvalitnejsim klicem muzes udelat stupidni ochranu, ktera bude
snadno napadnutelna, a i bez klice muzes udelat kvalitni ochranu.
Zalezi na tobe, jak to vymyslis, kde to budes kontrolovat apod.
A nezapomen na jedno prislovi: "Retez je jen tak pevny, jak je
pevny jeho nejslabsi clanek" (tak nejak to je)... chci tim rici,
ze casto programatori vymysli dumyslne a slozite ochrany, jenze
ta aplikace ma slabe misto uplne jinde, na coz se oni vyprdnou.
Treba telefonni seznam chraneny silenymi kody, ale databaze je
v Accessu, kde se da snadno prijit na heslo :)
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Atoll <atoll(zv)telecom(tec)cz> - 8.8.1999 14:56:33
Dekuji vam, za vase nazory.
Jiste ze, je dobry duvod zamykat zaznamy.
Bohuzel jste se oba trochu odchylili od FreeIB komponent, tam se totiz
transakce nastavuji zadanim kombinaci ruznych parametru,
ktere jsou popsany v API Guide k IB. Zkousel jsem ruzne kombinace, ale nikdy
se mi nepodarilo zamknout ani zaznam, ani celou tabulku.
Pavel Bares
Atoll s.r.o.
www.atoll(tec)cz
----- P�vodn� zpr�va -----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. srpna 1999 8:52
P�edm�t: Re: Zamykani zaznamu na IB s pouzitim FreeIB
> Pavel Fiser wrote:
>
> > (Eh?? Zbysek Hlinka nevi, zda IB umi zamykat zaznamy?)
>
> A proc by to mel vedet, kdyz se IB nezabyva? :-)
>
> > Jiste ze umi. Je treba nastavit u TDatabase TransIsolation na
> > RepeatableRead a pak jakmile nejaka transakce sahne na zaznam tak do
> > jejiho commitu se na nej nikdo jiny nedostane.
>
> Je tu ovsem otazka, za jakych okolnosti tohle zamykani pouzit.
> Pokud se to nastavi uz na urovni TDatabase, je to podle me
> hovadina, protoze dle meho nazoru ma byt takovyhle zpusob
> zamknuti velice dobre zduvodnen. Z cehoz mi plyne, ze to bude
> pouzivane (pokud vubec) pouze u nekterych tabulek, ale urcite ne u
> cele databaze.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>Prace s komponentou pomoci fce jine DLL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.8.1999 17:04:25
Petr Fejfar wrote:
> >Kdyz vsak ta fce zacne nastavovat a plnit predany
> >StringGrid z druhe dll tak to jde tezce do haje (GPF).
> >Otazka zni: lze si vubec mezi knihovnama takhle
> >predavat komponenty a pracovat s nimi? Jestli ano
> >tak to delam blbe:-((.
>
> Rekl bych, ze to souvisi s predavanim ANSI stringu alokovanych na heapu
> DLL. Podivej se do helphu na heslo "sharemem" - tuhle unit musis dat do
> uses jako prvni a treba se to spravi :-)
Nebo by take mozna pomohlo obalit predavani stringu tak, aby se
predavaly jako PChar.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
init directory
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 8.8.1999 18:11:31
var Cesta : string;
begin
Cesta := ExtractFilePath(Application.ExeName); Sl�va
Konference, drive D4 a Oracle
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.8.1999 17:13:10
Puvodni zprava, kterou napsal Viliam Mlich dne 7 Aug 99,:
> Pri citani konferencie delphi spravy ihned odmazavam, ale tie, ktore
> obsahuju uzitocnu informaciu, nechavam. Robim to od 17.11.1998 a
> nazbieralo sa mi cez 1000 sprav. Ked kliknem na stlpec 'From', dostanu sa
> mi k sebe spravy od jedneho autora. Dal som si kvoli vam tu pracu a
> spocital ludi, od ktorych je 10 a viac sprav:
[... kraceno ...]
> dalsich asi 600 sprav je od cca 150 ludi priemerne po 4 spravy.
>
> Bohuzial kos pravidelne vysypavam, takze nemozem k poctu 'uzitocnych'
> sprav pridat pocet 'balastu' (pisem to v uvodzovkach, lebo pri viacerych
> odpovediach na nejaky dotaz archivujem iba tu najpresnejsiu a do kosa
> padaju casto celkom dobre spravy) pre vycislenie prinosnosti
> prispievatelov.
Vyhledem k tomu, ze ja skladuji zpravy vsechny, a ted jich tu
mam 29.870 kousku, tak by podle Tveho byl balast pomerne veliky,
protoze by byl uzitecny jen 1 tisic z 30 tisic zprav. Ale to si
ja myslim, ze tu za tu dobu bylo urcite vice nez tisic zprav,
ktere byly uzitecne. Je jen otazka nazoru, co komu pripada
uzitecne. Jinymi slovy - pro psychiatra by se tu mohlo najit
uzitecnych tak 90% zprav, pro zacatecnika treba 30% zprav,
pro me to muze byt napriklad 1% zprav, pro Petra Vonese asi
ani to a pro Fronka tak leda jeho vlastni zpravy...
> ... "Nezasierajte echo" vravi sprievodca turistom hukajucim do Grand
> Canyonu
:) COOL :)
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Delphi a Plug-In
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 08.8.1999 18:23:19
ave !
nemate nekdo zkusenosti se psanim Plug-Inu do Netscape ci IE
v Delphi 4.
diky Pavel
mailto: bansky(zv)club(tec)cz
Dynamicke volani funkce
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 08.8.1999 18:31:50
Byl tu ohlas na zverejneni meho reseni.
Definujte novy typ:
type MojeFunkce = function(par : string) : boolean of object; // of
object je to nejdulezitejsi
.
. definice formu atd atd.....
.
procedure TForm1.zavolej(co : MojeFunkce);
begin
if co('parametrik') then ......
end;
procedure TForm1.Button1Click(sender : TObject);
begin
zavolej(nejakafunkce); // a nemusite psat (zv) ani Addr
end;
function TForm1.NejakaFunkce(parametr : string) : boolean;
begin
........
end;
Verte neverte funguje to ! A usetri to spoustu prace.
Pavel
mailto: bansky(zv)club(tec)cz
> Uz jsem na to prisel !MS Access a Delphi !
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.8.1999 18:34:35
Vim. Zkus si komponenty DAODS popr. Adonis od Erika Salaje. Myslim, ze
investice se vyplati (aspon nam se vyplatila ;-)
http://www.winsoft.sk
Mac
"kInKy aL!GaT(zv)r" wrote:
> Nevite nekdo jak solidne pracovat s MS Access databazi v
> Delphi 4.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
instalace MS SQL Serveru ????
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.8.1999 18:52:18
Dal jsi tam IE 4.01 SP1 nebo IE 5.0 (je to nutne)? Nechapu, jak ti muze chybet
adresar LOG? ;-) Osobne jsem instaloval SQL 7.0 asi 10x + cca 5x MSDE 1.0 a
nemel jsem problem ani jednou a to jak na W95, W98 i NT 4.0 WKS + SRV.
Jinak s tim 'named pipes' asi nepochodis na W9x protoze to system neumi (az NT).
Takze doporucuju TCP/IP...
Mac
Jansta Kv�toslav wrote:
> Ahoj,
>
> cht�l bych se zeptat jestli n�kdo m�l podobn� zku�enosti s instalac�
> jako j�,
> nebo co jsem nastavil �patn�:
>
> tedy je to na P300A, 64RAM, W98, Delphi 4.2 C/S,
> instalace Desktop, typical,
>
> nejd��ve jsem zkou�el samotn� MSDE, i bez Accesu2000, s upraven�m
> kl��em v registru,
> ale proto�e se to stejn� nerozeb�hlo, tak uninstall,
> a pak ten MS SQL Server 7.00
>
> ten se nainstaloval celkem v pohod�, jenom ne a ne se spustit,
> a� po t�dnu jsem odhalil, po mnoha zp�sob� nastaven� a p�einstalac�,
> �e chyb� adres��
> Log, a v tom to bylo, zkr�tka jak chyb�, tak bez jak�koli hl�ky se
> nespust�,
> holt to je od MS.
> Pot� se u� spustil, ale nemohl jsem se k n�mu v�bec p�ihl�sit,
> po instalaci Patche 1, na to spustil je�t� 6 sql script�, a zd� se
> �e u� to �lape.
> jenom v log souboru to furt hl�s� n�jakou chybu, co s t�m ?????
>
> <<ERRORLOG.txt>> zde je p��loha log souboru,
> PC m�m bez s�t�,
> nastaven� v Server network utility : Server network library :Named
> Pipes
> Client network utility : Default network library:
> Named Pipes
> protokoly s�t� jsem zkou�el r�zn� kombinace instalace,
> TCP-IP ,IPX,NetBios,
> ale furt to hl�s� v logu n�jak� nesrovnalosti,
>
> Server is unnamed.
> 1999-08-03 19:34:47.99 kernel Using 'SQLEVN70.DLL' version '7.00.623'.
> 1999-08-03 19:34:48.02 kernel Using 'OPENDS60.DLL' version '7.00.00.0623'.
> 1999-08-03 19:34:48.11 ods Using 'SSMSSH70.DLL' version '7.0.623' to
> listen on ''.
> 1999-08-03 19:34:48.18 ods Using 'SSMSSO70.DLL' version '7.0.623' to
> listen on '1433'.
> 1999-08-03 19:34:48.24 ods Using 'SSMSRP70.DLL' version '7.0.623' to
> listen on 'SLAVA'.
> 1999-08-03 19:34:49.01 ods Error: 17826, Severity: 18, State: 1
> 1999-08-03 19:34:49.01 ods Could not set up ListenOn connection
> 'SLAVA'..
> 1999-08-03 19:34:49.00 ods Operating system error 1747., Overovac�
> slu�ba nen� zn�m�.
> 1999-08-03 19:34:49.10 spid1 Skipping startup of clean database id 4
>
> d�k za radu,
> Sl�va
>
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Prace s komponentou pomoci fce jine DLL II
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 8.8.1999 22:12:57
Dik za reakce, ale:
ShareMem tam mam kvuli fcim, ktere vraci string,
ale ja mluvim o tom, ze z druhe dll predam jako parametr
VAR nejaky StringGrid do te fce v prvni dll takze jsem mel zato,
ze bude pracovat s predavanou komponentou a ne
s lokalni kopii. Delam s nim ruzne veci, ne jen plneni Cells.
Asi jsem se spatne vyjadril, omlouvam se...
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- P�vodn� zpr�va -----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. srpna 1999 17:04
P�edm�t: Re: Prace s komponentou pomoci fce jine DLL
> Petr Fejfar wrote:
>
> > >Kdyz vsak ta fce zacne nastavovat a plnit predany
> > >StringGrid z druhe dll tak to jde tezce do haje (GPF).
> > >Otazka zni: lze si vubec mezi knihovnama takhle
> > >predavat komponenty a pracovat s nimi? Jestli ano
> > >tak to delam blbe:-((.
> >
> > Rekl bych, ze to souvisi s predavanim ANSI stringu alokovanych na heapu
> > DLL. Podivej se do helphu na heslo "sharemem" - tuhle unit musis dat do
> > uses jako prvni a treba se to spravi :-)
>
> Nebo by take mozna pomohlo obalit predavani stringu tak, aby se
> predavaly jako PChar.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Vyvojove prostredi Delphi 4 prof. - toolbuttons
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.8.1999 23:44:18
Tom� Br�dle wrote:
>
> Zdravim vsechny,
>
> chci se zeptat jestli nekdo nema zkusenosti s nasledujici neprijemnou veci.
> V Delphi 4 prof. jsem si mirne upravil prostredi panelu nastroju (par
> tlacitek pryc, nejake pridat, nektere panely presunout). Toto nastaveni se
> pamatuje dokud nedojde k exception v prostredi Delphi (ale ne pri kazdem
> exception, jen nekdy). Pak se obnovi puvodni toolbary s tlacitky, jak bylo
> po instalaci. Setkal se s tim nekdo, popr. jak se tomu da predejit, ev. jak
> si nekam to svoje nastaveni ulo�it (zazalohovat).
Ahoj,
A mas instalovany update pack #3 ? Me to sice taky obcas spadne, ale nastaveni
panelu nastroju zustane. Jinak to nastaveni je ulozeno v registru.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Narocnost na win.resources u aplikaci v D2 a D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.8.1999 23:44:10
Jaroslav KULHEIM wrote:
>
> A nevideli jste nekdo nekde popis upravy teto chyby ?
> Predpokladam, ze se jedna o pridani nejakeho radku do nize zminene
> procedury.
Ahoj,
Kdepak, to neni tak jednoduchy :-) Uprava je vicemene nemozna, protoze
je to ukryto pomerne hluboko ve VCL. Resit se to da ale jinak. Nepouzivat
TSpeedButton (neni ani proc, daleko lepsi je TToolBar), zrici se TBitBtn
a misto TDBNavigatoru pouzit TToolBar s vyuzitim prislusnych standart
Action.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Pridani polozek do Popup Menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.8.1999 23:44:23
> Michal Motalik wrote:
>
> Ahojte,
>
> potreboval bych pridat nejake svoje polozky do standardniho popup menu napr. u Edit-u.
Ahoj,
Pokud ti jde o TEdit, tak si muzes napsat vlastni PopupMenu, kterym
nahradis to puvodni. Puvodni funkci menu udelas snadno pomoci metod
TEdit (CutToClipboard, CopyToClipboard....).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
MediaPlayer D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.8.1999 23:50:00
> Eduard Navr�til wrote:
>
> Zdravim
>
> Prosim o radu, kde by mohla bejt chyba. Na formular v D4 umistim komponentu MediaPlayer,
> do property DeviceType := dtCDAudio a pri pokusu o MediaPlayer.Open vyhodi:
> " Exception EMCIDeviceError in module PROJECT1.EXE at 0003D4F5.
> MMSYSTEM296 Na uvedenem zarizeni MCI nelze soubor prehrat.
> Soubor je poskozen nebo nema spravny format. "
> nevim jestli nemam nekde neco spatne nastavene nebo jestli neni problem v D4, protoze
> ostatni DeviceType mi jedou bez problemu a v D3 na stejnem pocitaci mi
> DeviceType := dtCDAudio jelo bez chyby. Po instalaci D4Upgd#3 zadna zmena.
Ahoj,
Mas pravdu, nefunguje to. Vypada to, ze chyba je v metode Open v radce:
FFlags := FFlags or mci_Open_Element;
Pokud se tam ta konstanta do Flags neprida tak to funguje. Problem ale
bude to odstranit, protoze je to cele v jedne metode VCL. Napadlo me
ale jedno naprosto silene reseni, je to spis takova legracka, nikdy bych
to v nicem asi radsi nepouzil :-) Taky to nemusi fungovat pod NT. Jde o
to, ze ten radek je pak v kodu prelozen jako:
OR [ESI + $2C8], $00000200
Za urcitych okolnosti je tedy mozne za behu programu zjistit adresu metody
TMediaPlayer.Open a odpocitat offset k te instrukci a nahradit tu konstantu
hodnotou 0. K tomu je jeste navic treba pocitat s tim, ze kod muze byt i v
balicku. Cele to pak pro D4.03 vypada takhle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, StdCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
class function FixMediaPlayerOpenBug: Boolean;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
class function TForm1.FixMediaPlayerOpenBug: Boolean;
const
ReplacedInstruction: packed array[1..8] of Byte =
($81, $8E, $C8, $02, $00, $00, $00, $02); // OR [ESI + $2C8], $00000200
TMediaPlayer_Open_MethodName = '(zv)Mplayer(zv)TMediaPlayer(zv)Open$qqrv';
// Jmeno metody TMediaPlayer.Open v balicku
var
MethodAdress: PChar;
VCLX40PackageHandle: HMODULE;
function SafeReplace: Boolean;
var
SaveProtect, OldProtect: DWORD;
begin
Result := VirtualProtect(MethodAdress, 4096, PAGE_READWRITE, (zv)SaveProtect);
if not Result then Exit;
Result := CompareMem(MethodAdress + $AE, (zv)ReplacedInstruction, Sizeof(ReplacedInstruction));
if Result then PByte(MethodAdress + $B5)^ := 0; // Zmena na: OR [ESI + $2C8], $000000000
Result := VirtualProtect(MethodAdress, 4096, SaveProtect, (zv)OldProtect);
end;
begin
Result := False;
VCLX40PackageHandle := GetModuleHandle('VCLX40.BPL');
if VCLX40PackageHandle = 0 then
begin // neni pouzit balicek
MethodAdress := (zv)TMediaPlayer.Open;
Result := SafeReplace;
end else
begin // je pouzit VCLX40.BPL
MethodAdress := GetProcAddress(VCLX40PackageHandle, TMediaPlayer_Open_MethodName);
if MethodAdress <> nil then Result := SafeReplace;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if not FixMediaPlayerOpenBug then
raise EInvalidOperation.Create('Instruction not found');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Prace s komponentou pomoci fce jine DLL
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 07:26:51
Zbysek Hlinka <zhlinka(zv)login(tec)cz> wrote:> Nebo by take mozna pomohlo obalit predavani stringu tak, aby se
> predavaly jako PChar.
Jo, buffer/max size/actual length, to je nejcistsi zpusob, jak predavat jakakoli data mezi DLL a aplikaci. U dynamicky alokovanych dat se da jeste pouzit callback do aplikace, aby si ta data z nejakeho bufferu nasackovala na vlastni heap treba ve forme objektu nebo ANSI stringu. Pouzivam to napr. pri predavani dat z modalnich dialogu v DLL, ktere se dynamicky zavadeji. Ten CallBack je pak soucasti interface unit spolu s LoadLibrary() a GetProcAddress().
Bye, pf
Dynamicke volani funkce
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 07:28:39
kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> wrote:
>type MojeFunkce = function(par : string) : boolean of object;
> // of object je to nejdulezitejsi
Jen pro toho, kdo chce dynamicky volat metodu tridy. Jinak je mu tam na dve veci :-)
Bye, pf
Dynamicke volani funkce
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 07:31:15
kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> wrote:>type MojeFunkce = function(par : string) : boolean of object;
> // of object je to nejdulezitejsi
Jen pro toho, kdo chce dynamicky volat metodu tridy. Jinak je mu tam na dve veci :-)
BTW, zrovna tady probiha diskuse na tema kvality prispevku do konference. Tak se podivej na svuj SUBJ: kde je tam zminka, ze chces volat funkci, ktera je metodou tridy? :-(((
Bye, pf
V�ta byla zm�n�na
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 09.8.1999 07:59:31
Zdrav�m obec program�tor�!
M�j probl�m spo��v� v tom �e u n�kolika v�t v datab�zi mi p�i pokusu o zm�nu hl�s� �e v�ta byla zm�n�na jin�m u�ivatelem a pot� se program zhrout� na I/O operac�ch. Hl�s� to jen u n�kter�ch v�t (u jin�ch to funguje spolehliv�) na po��ta��ch u�ivatel� (u mne bohu�el ne, v�e mi projde !nejen! p�i krokov�n� v po��dku). P��stup do Informixu je p�es BDE. Naprogramov�no v D4, nev�te n�kdo jak se toho zbavit? M&B
Linux - SQL
[*] PacakP(zv)tescosw(tec)cz - 9.8.1999 08:01:53
Pou��v�m Oracle 8.0.5 enterprise edition a zat�m nem�m pot�e.
Pro p�ipojen� pou��v�m BDE.
Na klienta je ale nutno nainstalovat SQLNET nebo Net8 (oboje od Oracle).
Co se t��e v�konu, maj� WinNT je�t� co doh�n�t.
Petr Pac�k
> -----P�vodn� zpr�va-----
> Od: Oldrich Balak [SMTP:kkwest(zv)iol(tec)cz]
> Odesl�no: 2. srpna 1999 10:43
> Komu: Konference DELPHI
> P�edm�t: Linux - SQL
>
> Dobry den,
>
> mate nekdo nejake zkusenosti s SQL servery pro Linux. Mysl�m hlavne
> napojeni
> na Delphi v siti typu Linux - server, W95 nebo W98 - stanice.
>
> Ing. Oldrich Balak
> obal(zv)iol(tec)cz
> Prace s komponentou pomoci fce jine DLL II
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 08:16:50
Pavel Malinsk� <spiderland(zv)seznam(tec)cz> wrote:> ze z druhe dll predam jako parametr
> VAR nejaky StringGrid do te fce v prvni dll takze jsem mel zato,
> ze bude pracovat s predavanou komponentou a ne
> s lokalni kopii.
Tomu nerozumim. Jaka lokalni kopie? Bez ohledu na VAR, objekt v Delphi predavas vzdycky jako pointer na instanci, ktera je alokovana na heapu aplikace. To VAR se vztahuje jen a jen na ten pointer. Atributy takto predane tridy bys mohl menit ad lib, pokud ovsem nejsou dynamicky alokovany, protoze data pri pripadne zmene se alokuji na heapu DLL.
Takze prvni problematicka zalezitost jsou ta dynamicky alokovana data. Jestli pomuze pouziti sharemem nemam praktivky odzkouseno, protoze jsem tento problem resil kdysi v D1 a tam sharemem nebyla, takze jsem to resil jinak a od te doby me to nepali (viz predchozi mail). Nezapominej na to, ze ta dynamicka manipulace s daty muze byt dost hluboko ve VCL.
Dalsi vec, ktera byla v D1 problematicka, byly segmenty. Ve flat modelu by tento problem mel vymizet, ale priznam se, ze neumim odpovedet, jak se chova 32-bitovy Delphi v nasledujici situaci:
1. Zpravidla jak DLL tak i aplikace pouzivaji units jako system, sysutils apod.
2. Ty ovsem obsahuji staticke globalni promenne.
3. Optimalizujici linker vypousti promenne, na ktere se nikdo neodkazuje
4. D1 jsem nachytal, ze offsety stejne promenne uvnitr VCL se u DLL a EXE lisily, coz je logicke, protoze procesy linkovani DLL a EXE jsou na sobe nezavisle.
Jak to resi 32bitova verze, nevim. Jestli neexistuje zadna staticka promenna, na kterou by se nikdo neodkazoval v nejcasteji pouzivanych units, nebo jestli linker unit jadra neoptimalizuje ci zda k takovemu jevu stale dochazi a pak by to mohla byt pricina tvych potizi?
Docela by me to zajimalo, bohuzel nemam cas, abych si s tim hral.
Bye, pf
Tisk
[*] Tomas Folprecht <tomas.folprecht(zv)iol(tec)cz> - 9.8.1999 08:19:07
Vazeni,
muj problem je nasledujici. Tisknu v QuickReportu graf.
Rad bych, aby byl na barevnych tiskarnach vytist�n barevne,
na jinych ruzne krivky ruznym typem cary (.....,-----, atd).
Neporadite mi nekdo, jak poznam, ze aktualni tiskarna je barevna?
Dekuji
Tomas Folprecht
copy properties
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.8.1999 08:30:55
Ahoj,
tohle by podle meho nazoru nestacilo, protoze
Label6 je jen ukazatel na objekt typu TLabel,
takze by jsi mel dva ukazatele na stejny objekt.
Dobra.
> ----------
> Mo�n� by sta�ilo tohle:
>
> Label7 := Label6
>
>
> Ve Win98 OK, ve Win95 nefunkcni
[*] Ji�� Ho�ek <j.hosek(zv)mmo(tec)cz> - 9.8.1999 08:45:43
Program odladeny a funkcni na Win98 se na Win95 zasekava.
Konkretne v konstrukci na prikazu FindFirst
Query1.Close;
Query1.Prepare;
Query1.Open;
Query1.Filter := 'ID = ' + IntToStr(ID);
Query1.FindFirst;
a take pri otevreni okna ve kterem je pouzit DBLookupComboBox.
Databaze jede na lokalnim InterBase servru. Setkali jste se nekdo
s necim podobnym ?
Diky, za jakekoliv postrehy. Jiri Hosek
Pripojeni na MS SQL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.8.1999 09:01:04
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
poradte prosim. Potrebuju se dostat z W95 & D3 Prof.
(pripadne C/S) na databazi MS SQL 6.5 (WinNT 4 Srv).
Jeste nikdy jsem pripojeni na jiny stroj nedelal.
Poradite mi prosim, (polopate) jak to udelat ?
Najde se nekdo, kdo si udela cas a vysvetli mi, jaxe
delaji stored procedures a triggers ?
Diky
Dobra.
ShowModal
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 9.8.1999 09:02:39
No zkousel jsem to, ale neni to presne to co potrebuji.
1. Chtel bych aby mi to okno prekrylo vzdy jen okna v me aplikaci, a ne
vsechna okna ve windows.
2. Aby neslo hybat s okny me aplikace (a ani je zavrit), ktere jsou pod
timto oknem, dokud se nezavre, coz v tomto pripade jde a to mi celkem dost
vadi.
Nemate proto nekdo nejakej jinej napad ?
jinak diky
----- P�vodn� zpr�va -----
Od: Martin Bodlak <vyvoj(zv)atlascon(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. srpna 1999 17:12
P�edm�t: Re: ShowModal
>
> sula milos wrote:
> >
> > Ahoj
> > nevite nekdo jak pomoci API funkci realizovat toto :
> > potrebuji z klasickeho okna udelat okno modalni (tj aby se slo prepnout
na
> > jina okna aplikaci az po jeho zavreni), pomoci API f-ci, jestli teda
nejake
> > k tomuto ucelu vubec ve woknech jsou. Nejedna se mi o implementaci
tohoto
> > problemu do Delphi, ale do jineho programovaciho jazyku (konkretne
> > PowerBuilder, ale na tom nesejde o jaky prog. jazyk jde).
> > predem diky
>
> Treba takto:
>
> if SetOnTop then
> SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOACTIVATE or SWP_NOMOVE
> or SWP_NOSIZE)
> else
> SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOACTIVATE or
> SWP_NOMOVE or SWP_NOSIZE);
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)
>Dynamicke volani funkce
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.8.1999 09:32:55
kInKy aL!GaT(zv)r wrote:
> Byl tu ohlas na zverejneni meho reseni.
> Definujte novy typ:
Tohle reseni je samozrejme take mozne. Pokud bys vsak
deklaroval funkci mimo tridu (tedy neobsahovala by dodatek "of
object"), musel bys ji volat se zavinacem, tak jak se objevilo v
prikladu od nekoho jineho. Zde je totiz treba rozlisovat
samostatnou funkci od metody tridy.
> type MojeFunkce = function(par : string) : boolean of object; // of
> object je to nejdulezitejsi
> .
> . definice formu atd atd.....
> .
> procedure TForm1.zavolej(co : MojeFunkce);
> begin
> if co('parametrik') then ......
> end;
>
> procedure TForm1.Button1Click(sender : TObject);
> begin
> zavolej(nejakafunkce); // a nemusite psat (zv) ani Addr
> end;
>
> function TForm1.NejakaFunkce(parametr : string) : boolean;
> begin
> ........
> end;
>
> Verte neverte funguje to ! A usetri to spoustu prace.
>
> Pavel
> mailto: bansky(zv)club(tec)cz
>
>
> > Uz jsem na to prisel !
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vyvojove prostredi Delphi 4 prof. - toolbuttons
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 9.8.1999 09:53:20
> > chci se zeptat jestli nekdo nema zkusenosti s nasledujici neprijemnou veci.
> > V Delphi 4 prof. jsem si mirne upravil prostredi panelu nastroju (par
> > tlacitek pryc, nejake pridat, nektere panely presunout). Toto nastaveni se
> > pamatuje dokud nedojde k exception v prostredi Delphi (ale ne pri kazdem
> > exception, jen nekdy). Pak se obnovi puvodni toolbary s tlacitky, jak bylo
> > po instalaci. Setkal se s tim nekdo, popr. jak se tomu da predejit, ev. jak
> > si nekam to svoje nastaveni ulo it (zazalohovat).
>
> A mas instalovany update pack #3 ? Me to sice taky obcas spadne, ale nastaveni
> panelu nastroju zustane. Jinak to nastaveni je ulozeno v registru.
>
> Internet proti monopolu. Petr Vones, amatersky programator
Me to dela i se SP3. Odpovidajici vetev v registrech jsen si ulozil do
*.reg souboru. Pokud se stane nejaka "prihoda" staci poklepat na
soubor a regedit ho tam opet vpravi.
Jiri Binder Delphi a Plug-In
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 9.8.1999 09:53:20
> ave !
>
> nemate nekdo zkusenosti se psanim Plug-Inu do Netscape ci IE
> v Delphi 4.
>
> diky Pavel
> mailto: bansky(zv)club(tec)cz
>
Na torry jsem si vsimnul v komponentach ze 6.8. nejakeho wizarda
na tvorbu pluginu, je to i se zdroji
Jiri Binder Narocnost na win.resources u aplikaci v D2 a D4
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 9.8.1999 09:53:20
>
> Kdepak, to neni tak jednoduchy :-) Uprava je vicemene nemozna, protoze
> je to ukryto pomerne hluboko ve VCL. Resit se to da ale jinak. Nepouzivat
> TSpeedButton (neni ani proc, daleko lepsi je TToolBar), zrici se TBitBtn
> a misto TDBNavigatoru pouzit TToolBar s vyuzitim prislusnych standart
> Action.
>
> Internet proti monopolu. Petr Vones, amatersky programator
Tato rada Petra Vonese mi nedavno pomohla. Program, ktery
sezral cca 30% GDI jich po nahrazeni vsech TBitbtn a zejmena
odvozenin od SpeedButtonu sezral jiz jen 20%. Ovsem i to je moc,
neco malo pomohlo vytvareni nekterych formu za chodu, ale podle
meho nazoru jeste nekde musi nejaky neprimereny zrout byt.
Zatim jsem to odlozil do nove verze Delphi.
Jiri Binder
Informix + serial
[*] Ivo.Herles(zv)pvt(tec)cz - 9.8.1999 09:56:35
Ja zjistuji serial ze SQLCA recordu, ktery se da zjistit ihned po provedeni
INSERT, UPDATE, SELECT, nasledujicim zpusobem (vcetne struktury SQLCA):
type
TSQLCA = record
sqlcode: Longint;
sqlerrm: array [1..72] of char; // error message parameters
sqlerrp: array [1..8] of char;
sqlerrd: array [1..6] of longint;
// 1 - estimated number of rows returned
// 2 - serial value after insert or ISAM error code
// 3 - number of rows processed
// 4 - estimated cost
// 5 - offset of the error into the SQL statement
// 6 - rowid after insert
sqlwarn: array [1..8] of Char;
// 1 = W if any of sqlwarn[2-8] = W
// 2 = W if any truncation occurred or database has transactions
// 3 = W if a null value returned or ANSI database
// 4 = W if no. in select list != no. in into list or turbo backend
// 5 = W if no where clause on prepared update, delete or incompatible
float format
// 6 = W if non-ANSI statement */
// 7 reserved */
// 8 reserved */
end;
procedure CLSQLCA(ADataBase: TDataBase; var ASQLCA: TSQLCA);
var
W: Word;
begin
FillChar(ASQLCA, 0, SizeOf(ASQLCA));
DbiGetProp(hDBIObj(ADatabase.Handle), drvNATIVESQLCA, (zv)ASQLCA,
SizeOf(ASQLCA), W);
end;
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: Honza Jochman [mailto:Jan.Jochman(zv)ais(tec)cz]
> Odesl�no: 4. srpna 1999 16:29
> Komu: Delphi konference
> P�edm�t: Informix + serial
>
>
> Nevite nekdo jak zjistim v D3 po INSERT hodnotu serial ?
> Honza
> ShowModal
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 9.8.1999 10:07:39
A co kdyby jsi u ownera noveho okna nastavil enable := false.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: sula milos [mailto:crkstrobe(zv)geocities.com]
Sent: Monday, August 09, 1999 9:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: ShowModal
No zkousel jsem to, ale neni to presne to co potrebuji.
1. Chtel bych aby mi to okno prekrylo vzdy jen okna v me aplikaci, a ne
vsechna okna ve windows.
2. Aby neslo hybat s okny me aplikace (a ani je zavrit), ktere jsou pod
timto oknem, dokud se nezavre, coz v tomto pripade jde a to mi celkem
dost
vadi.
Nemate proto nekdo nejakej jinej napad ?
jinak diky
----- P�vodn� zpr�va -----
Od: Martin Bodlak <vyvoj(zv)atlascon(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 5. srpna 1999 17:12
P�edm�t: Re: ShowModal
>
> sula milos wrote:
> >
> > Ahoj
> > nevite nekdo jak pomoci API funkci realizovat toto :
> > potrebuji z klasickeho okna udelat okno modalni (tj aby se slo
prepnout
na
> > jina okna aplikaci az po jeho zavreni), pomoci API f-ci, jestli
teda
nejake
> > k tomuto ucelu vubec ve woknech jsou. Nejedna se mi o implementaci
tohoto
> > problemu do Delphi, ale do jineho programovaciho jazyku (konkretne
> > PowerBuilder, ale na tom nesejde o jaky prog. jazyk jde).
> > predem diky
>
> Treba takto:
>
> if SetOnTop then
> SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOACTIVATE or
SWP_NOMOVE
> or SWP_NOSIZE)
> else
> SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOACTIVATE or
> SWP_NOMOVE or SWP_NOSIZE);
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)
>Win9x nebo WinNT ?
[*] kelleon(zv)nnsk.sk - 9.8.1999 10:19:01
------Original message-------
> Nekdo tu nedavno chtel zjistit, jestli program bezi na Win9x
> nebo na WinNT, zrovna ted jsem to potreboval a udelal jsem
> to takto :
>
> uses Windows;
>
> var OSVInfo : TOSVersionInfo;
> begin
> OSVInfo.dwOSVersionInfoSize:=SizeOf(OSVInfo);
> if not GetVersionEx(OSVInfo) then
> raise Exception.Create('Zjisteni verze selhalo');
>
> case OSVInfo.dwPlatformId of
> VER_PLATFORM_WIN32s : Win32s na Windows 3.1
> VER_PLATFORM_WIN32_WINDOWS : Windows 9x (snad i pro W 98)
> VER_PLATFORM_WIN32_NT : Windows NT
Toto robi Delphi automaticky, vid premennu Win32Platform v SysUtils.
Ondrej Kelle
Tray Bar
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 9.8.1999 10:45:30
Chtel bych se zeptat, jakou zpravu musim poslat pomoci
SendMessage(????????), abych simuloval dvojklik na nejakou ikonu v Tray
baru. Vim ze budu potrebovat Handle, ten zjistim pomoci FindWindow(?????),
ale nevim jaky pouzit Class Name?
Diky!!!
Novak J.
BDE Erorr Index read-only
[*] Luk� Gallina - 9.8.1999 10:49:54
Wazeni,
uz je mi z toho spatne. W D2 mam udelanou dat v Paradoxu 5 a dela mi to, ze kdyz dam .post u zaznamu, vyhodi BDE hlasku>
.....bla bla...EDBEngineError with message 'Index is read only'....bla bla.
Ten soubor indexu read-only neni, v Databaze Desktopu sem zadny odpowidajici prepinac nenasel, tak cim to je?
Pouziwam D2 ale BDE mam z D4, do tedka me to chodilo........
Lukas Gallina
racek(zv)devacomm(tec)cz
RxDBGrid
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 9.8.1999 10:51:42
hi,
potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci. Konkretne mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale aby se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
Muzete me nakopnout spravnym smerem?
bye
Pavel Serbajlo
Pripojeni na MS SQL
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 09.8.1999 11:00:19
Cau,
mas vice moznosti. Napr. pres ODBC + BDE coz by ti melo jit i s D3 Prof.
Nejprve si v Control Panel otevres ODBC Manager (Zdroje dat ODBC).
Pridas novy uzivatelsky zdroj dat - jako ovladac zvolis SQL Server a
nastavis parametry (jmeno SQL serveru, nazev ODBC pripojeni atd.). Pak
uz by si to mel videt jak v BDE Administratoru tak v Delphi (po restartu
Delphi pokud se nepletu).
No a nebo pres ADO (napr. komponenty Adonis - trial verze na
http://www.winsoft.sk ) ci pres OLEDB z Delphree od Zbyska (to jsem
zatim ale nemel cas odzkouset). V tomto pripade si ale nejprve na
klientskou masinu nainstaluj MDAC 2.1 SP2 - ke stazeni na
http://www.microsoft.com/data. Pak nepotrebujes BDE a jen nastavis
'connection string' v Adonisu (popr. primo pres 'imort type library').
Mac
P.S. Co se tyka strored procedures a triggers tak idealni je kdyz mrknes
do BOL (books-on-line), tam je to myslim docela dobre popsano...
Mal� Dobromil wrote:
> Ahoj,
>
> poradte prosim. Potrebuju se dostat z W95 & D3 Prof.
> (pripadne C/S) na databazi MS SQL 6.5 (WinNT 4 Srv).
> Jeste nikdy jsem pripojeni na jiny stroj nedelal.
> Poradite mi prosim, (polopate) jak to udelat ?
>
> Najde se nekdo, kdo si udela cas a vysvetli mi, jaxe
> delaji stored procedures a triggers ?
>
> Diky
> Dobra.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.8.1999 11:22:54
Mozna je lepsi pouzivat format s jednoznacne urcenym
dnem a mesicem: #yyyy-mm-dd#
Napr.:
select * from tabulka where datum < #1999-01-01#
u formatu v uvozovkach nebo apostrofech
nebylo jasne, co je mesic a co den, nasel jsem
tento format a spolehlive mi funguje (ale nezkousel
jsem to z Delphi).
Jura
> -----Original Message-----
> From: Martin O�en� [mailto:ocenas(zv)proces.sk]
> Sent: Tuesday, July 27, 1999 3:09 PM
> To: Delphi konf.
> Subject: Re: SQL
>
>
> select * from tabulka where datum < '1.1.1999'
> MSSQL7 a image
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 9.8.1999 11:36:24
[P��loha v souboru: testsql.zip]
> potreboval bych scriptem plnit field typu Image. Udelam script prikazu
> Insert into xxx (ID,Image) values (1,"data image");
> za sebou. Vse ulozene v souboru *.sql. Pokud tento script pustim v
ISQL.exe, OSQL.exe nebo v Query Analyzatoru oreze mi tento script. ( nenacte
ho cely ). Neni to zadnym znakem protoze to oreze vzdy, pokud jsou data
vetsi nez 990 bytu. Tento insert se potom neprovede, protoze se nenacte
ukoncovaci " .
> Query Analyzator mi tento soubor ani nenacte, oreze ho pri nacitani, tudiz
neni ani co provadet. Zkousel jsem text scriptu prenest i pres Clipboard,
ale dopadlo to stejne.
No ja nevim, mne skript v priloze projde v Query Analyzeru uplne bez
problemu.
Tj. nactu ho prikazem open a execnu prikazem Execute.
Byl by nejaky konkretni priklad? Nebo upresneni otazky?
SQL server mam 7.00.699 (tj. myslim SP1) a Query Analyzer 7.00.694
Rob
PS pro nepratele attachmentu:
Jako prilohu jsem to poslal proto, ze SQL script obsahuje nekolik retezcu o
delce 1000 znaku.
Navic opravdu nevim kolik majleru prezije radky dlouhe 1000 a vice znaku.
Mohl jsem to dat primo do tela zpravy, ale podle mne je lepsi poslat cca
436 bytu misto cca 4478, nebo ne?
Nekde vystavovat to taky nehodlam, protoze je to soucast teto zpravy a ta
bez toho nema smysl.
Takze pokud bude nasledna flame war kratsi nez cca 10 mailu po 1000 znacich:
Usetrite az 1 sekundu (4000B je 32000b=>cca 1sec pri 33kb/sec).
Pri poctu uzivatelu okolo 700 je to jiz 700 sekund tj. temer 12 minut.
Pri poplatcich Telecomu tak usetrite az neuveritelnych 15,60Kc!
Tak a ted mate tu zpravu nejmene o 200-300 bytu delsi, takze to bude presne
14,82Kc :-)
Tecka vs. carka u pole Float (SQL)
[*] Ren� Otisk - 9.8.1999 12:16:14
Hi,
Mam problem. Pouzivam D3 a tabulky Paradoxu. V nich mam nadefinovane pole Float nebo Currency a jim podobne. Problem je ze v Selectu mi to vrati hodnotu "5,3" ale pri Insertu je nutno zmenit desetinnou carku na tecku "5.3". Zkousel jsem to zmenit i v BDE-INIT, ale nereagoval.
Dekuji Sroub
IP
[*] Vladimir Ponechal <vladimir_ponechal(zv)tesco-europe(tec)com> - 9.8.1999 12:47:25
Preji hezky den...
Rad bych resil nasledujici problem... Chtel bych si naprogramovat kratkou
utilitu, ktera by mi automaticky cekovala dostupnost serveru nebo jakekoliv
masiny s IP adresou. Predpokladam, ze by se to melo dit za pomoci neceho
jako PING.
Chtel bych, aby to v behu vypadalo tak, ze v pripade Ok je ikonka ja nevim
treba zelena a v pripade vypadku cervena.
Problem je v tom, ze jsem to nikdy predtim nedelal a nedokazu to udelal...
Dekuji za pomoc
Vlada
RxDBGrid
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 09.8.1999 13:24:31
Pavel Serbajlo wrote:
>
> hi,
>
> potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci. Konkretne
> mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale aby
> se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam
> docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
>
> Muzete me nakopnout spravnym smerem?
>
> bye
>
> Pavel Serbajlo
Posielam kus zdrojaku
Hi
M.
procedure TfrmDokladyE.DBGrid1DrawColumnCell(Sender:
TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
G : TDBGrid;
begin
inherited;
G := Sender as TDBGrid;
if (G.DataSource.DataSet['KURZ_ROZDIEL'] <> NULL) and
(G.DataSource.DataSet['KURZ_ROZDIEL'] = 1) then begin
if (gdSelected in State ) and (G.focused = TRUE) then
begin
G.Canvas.BRUSH.Color := clInactiveCaption;
G.Canvas.Font.Color := clWhite;
end else begin
G.Canvas.Font.Color := clInactiveCaption;
end;
end;
if (G.DataSource.DataSet['PREDPIS_ID'] <> NULL) or
(G.DataSource.DataSet['UHRADA_ID'] <> NULL) then begin
if (gdSelected in State ) and (G.focused = TRUE) then
begin
G.Canvas.BRUSH.Color := clMaroon;
G.Canvas.Font.Color := clWhite;
end else begin
G.Canvas.Font.Color := clMaroon;
end;
end;
G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
// WriteCurrNum(DBGrid1, Column, Rect, 2);
end;RxDBGrid
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 13:35:46
Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> wrote:
> zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam
> docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo
Hi,
zrovna jsem tady napsal OwnerDraw metodu pro tStringGrid, takze by ti
mohla poslouzit jako vzor. Take nezapomen nastavit DefaultDrawing na FALSE.
Bye, pf
{-------------------------------------------------------------------}
{M}{----} procedure TAgentForm.GridCPBxDrawCell {*}
{*} (aSender:TObject; ACol,ARow:Integer; {*}
{*} aRect:TRect; aState:TGridDrawState); {*}
{-------------------------------------------------------------------}
var
VOfs: integer;
HOfs: integer;
S: ANSIstring;
begin
with GridCPBx,Canvas do
begin
Canvas.Font := GridCPBx.Font;
HOfs := 4;
VOfs := (DefaultRowHeight-TextHeight('I')) div 2;
Brush.Style := bsSolid;
with Brush do
if gdSelected in aState then
Color := clHighlight
else if gdFocused in aState then
Color := clHighlight
else if gdFixed in aState then
Color := clBtnFace
else
Color := clWindow;
S := Cells[aCol,aRow];
if aRow=0 then
Font.Color := clBtnText
else
case aCol of
1: DetermineColor(Canvas,FCPBxNumbers[aRow],S,cSMSnumChars,CPBxNumLng);
2: DetermineColor(Canvas,FCPBxTexts [aRow],S,cSMStxtChars,CPBxTxtLng);
else Font.Color := clBtnText;
end;
FillRect(aRect);
TextRect(aRect,aRect.Left+HOfs,aRect.Top+VOfs,S);
if gdFocused in aState then
DrawFocusRect(aRect);
end;
RxDBGrid
[*] Dalibor Bednar��k - 9.8.1999 14:01:01
No, nevim jestli je to to co potrebujes, ale mozna jo
U DBGridu to delam treba takhle....
Musis jeste nastavit Property DefaultDrawing na False....
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
C : TCanvas;
begin
C := (Sender as TDBGrid).Canvas;
C.Font.Color:=clRed
(Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
-----P�vodn� zpr�va-----
Od: serb(zv)mikulov.sol(tec)cz <serb(zv)mikulov.sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. srpna 1999 14:42
P�edm�t: RxDBGrid
>
>
>
>hi,
>
>
>potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci. Konkretne
>mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale aby
>se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam
>docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
>
>
>Muzete me nakopnout spravnym smerem?
>
>
>bye
>
>
>
>Pavel Serbajlo
>
>
>
>
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
><HTML><HEAD>
><META content="text/html; charset=iso-8859-2" http-equiv=Content-Type>
><META content="MSHTML 5.00.2314.1000" name=GENERATOR>
><STYLE></STYLE>
></HEAD>
><BODY bgColor=#ffffff>
><DIV><FONT face="Arial CE" size=2>hi,</FONT></DIV>
><DIV> </DIV>
>
><DIV><FONT face="Arial CE" size=2>potrebuju mirne zmenit vzhled Gridu, aby
>ladil z celou aplikaci. Konkretne mi jde o to, aby se prave vybrany zaznam
>nepodbarvoval tmave modre, ale aby se zmenila barva pisma ve vsech bunkach
>tohoto zaznamu. Nevim, jak toho mam docilit pres OwnerDraw , zkousel
>jsem
>
>to uz ruzne, ale nic nezabralo.</FONT></DIV>
><DIV> </DIV>
><DIV><FONT face="Arial CE" size=2>Muzete me nakopnout spravnym
>smerem?</FONT></DIV>
><DIV> </DIV>
><DIV><FONT face="Arial CE" size=2>bye</FONT></DIV>
><DIV> </DIV>
><DIV><FONT face="Arial CE" size=2>Pavel Serbajlo</FONT></DIV></BODY></HTML>
>
>IP
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 9.8.1999 14:08:20
Czescz,
mam docela dobrou zkusenost s ICS komponentou TPing
(http://www.rtfm.be/fpiette/indexuk.htm, soubor je primo tady
http://sme.belgium.eu.net/~vip107/ping.zip (cca 20kB i s prikladem, navic je
free).
V tehle komponente se jednoduse v eventu OnEchoReply zjisti chybovy stav -
povedlo / nepovedlo.
Bye T.B.
-----Puvodni zprava-----
Od: Vladimir Ponechal <vladimir_ponechal(zv)tesco-europe.com>
P�edm�t: IP
> Rad bych resil nasledujici problem... Chtel bych si naprogramovat kratkou
>utilitu, ktera by mi automaticky cekovala dostupnost serveru nebo jakekoliv
>masiny s IP adresou. Predpokladam, ze by se to melo dit za pomoci neceho
>jako PING.
>Chtel bych, aby to v behu vypadalo tak, ze v pripade Ok je ikonka ja nevim
>treba zelena a v pripade vypadku cervena.
>Problem je v tom, ze jsem to nikdy predtim nedelal a nedokazu to udelal...
Pripojeni na MS SQL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.8.1999 15:17:21
Jo, vypada to, ze to pujde. Bezva, diky. Ted jeste bych
potreboval info, jak takovy zdroj dat (v tom ODBC) udelam
programove, jak uzivatel toto ODBC ziska (jinak nez v Office),
kolik to stoji a naposledy by me moc zajimalo (znate to,
s tim, jak podate prst a seberou Vam celou ruku :-) kde
se da sehnat nejaka CZ "nalejvarna" na MS SQL
Jo, a jeste, tim BOL jsi myslel www.bol.com ?
To je ale nejaky obchod s knihami....
Jeste jednou diky.
Dobra.
> ----------
> mas vice moznosti. Napr. pres ODBC + BDE coz by ti melo jit i s D3
> Prof.
> Nejprve si v Control Panel otevres ODBC Manager (Zdroje dat ODBC).
> Pridas novy uzivatelsky zdroj dat - jako ovladac zvolis SQL Server a
> nastavis parametry (jmeno SQL serveru, nazev ODBC pripojeni atd.). Pak
> uz by si to mel videt jak v BDE Administratoru tak v Delphi (po
> restartu
> Delphi pokud se nepletu).
>
> P.S. Co se tyka strored procedures a triggers tak idealni je kdyz
> mrknes
> do BOL (books-on-line), tam je to myslim docela dobre popsano...
>
> RxDBGrid
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 9.8.1999 15:29:09
Vsechno moc slozity. Proc jednoduse nepouzit udalost OnGetCellParams,
tady se jednoduse vyplnis co chces za font, barvu a jeste ti na
stribrnem podnose dodaji, zda-li se jedna o radku highlight - tedy
zvyraznenou. Ale, proc to delat jednoduse, kdyz to jde slozite :-)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin O�en� [SMTP:ocenas(zv)proces.sk]
> Odesl�no: 09. srpna 1999 13:25
> Komu: delphi
> P�edm�t: Re: RxDBGrid
>
>
>
> Pavel Serbajlo wrote:
> >
> > hi,
> >
> > potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci.
> Konkretne
> > mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre,
> ale aby
> > se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak
> toho mam
> > docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic
> nezabralo.
> >
> > Muzete me nakopnout spravnym smerem?
> >
> > bye
> >
> > Pavel Serbajlo
>
> Posielam kus zdrojaku
> Hi
> M.
>
> procedure TfrmDokladyE.DBGrid1DrawColumnCell(Sender:
> TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> var
> G : TDBGrid;
> begin
> inherited;
> G := Sender as TDBGrid;
> if (G.DataSource.DataSet['KURZ_ROZDIEL'] <> NULL) and
> (G.DataSource.DataSet['KURZ_ROZDIEL'] = 1) then begin
> if (gdSelected in State ) and (G.focused = TRUE) then
> begin
> G.Canvas.BRUSH.Color := clInactiveCaption;
> G.Canvas.Font.Color := clWhite;
> end else begin
> G.Canvas.Font.Color := clInactiveCaption;
> end;
> end;
> if (G.DataSource.DataSet['PREDPIS_ID'] <> NULL) or
> (G.DataSource.DataSet['UHRADA_ID'] <> NULL) then begin
> if (gdSelected in State ) and (G.focused = TRUE) then
> begin
> G.Canvas.BRUSH.Color := clMaroon;
> G.Canvas.Font.Color := clWhite;
> end else begin
> G.Canvas.Font.Color := clMaroon;
> end;
> end;
> G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
>
> // WriteCurrNum(DBGrid1, Column, Rect, 2);
> end;RxDBGrid
[*] rjunga(zv)oku-ka(tec)cz - 9.8.1999 15:40:11
Mrkni se na EVENTS komponenty RXDBGRID a najdes tam ONGETCELLPARAMS.
Staci kdyz budes menit dle nejake podnimky promenne AFont a Background.
Roman Junga
"Pavel Serbajlo" <serb(zv)mikulov.sol(tec)cz> na 09.08.99 10:51:42
Odpov?zte pros?m - delphi-l(zv)fwd(tec)cz
Komu: "delphi" <delphi-l(zv)fwd(tec)cz>
Kopie: (Na v?dom?: Roman Junga/IDC/OkUKarvina/CZ)
P?edm?t: RxDBGrid
hi,
potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci. Konkretne
mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale aby
se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam
docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
Muzete me nakopnout spravnym smerem?
bye
Pavel Serbajlo
InstallShield express 4.0 -- *.ins soubory
[*] Skoloud, Otakar <skoloud(zv)ziba(tec)cz> - 9.8.1999 15:44:19
Ahoj ve spolek, omlouvam se, ze tema s programovanim s delphi primo
nesouvisi, nicmene......
mam nasledujici problem.... u instalace vygenerovanem vyse uvedenym
programem, bych potreboval zjistit... co vsechno provadi --- intaluje....
nevite kde bych nasel utilitu ktera by to umoznovala?
Dik
Otakar SKoloud jr.bdgrid
[*] Ivan Kodaj <Ivan.Kodaj(zv)ibaware.sk> - 9.8.1999 15:47:15
Zdravim vsetkych
Neviete niekto, kde by sa mohla nachadzat komponenta dbgrid, ktora by
mala vlastnost, ze stlpce mozu byt
rozneho typu. T.j. fieldy v stlpci budu typu TDBComboBox alebo TSpinEdit
atd.
Vdaka vopred.
i.k.RxDBGrid
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 9.8.1999 15:57:32
Diky vsem za rady, to co jsem potreboval je jenom tahle podminecka if
(gdSelected in State ) ;-)
----- P�vodn� zpr�va -----
Od: Martin O�en� <ocenas(zv)proces.sk>
Komu: delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. srpna 1999 13:24
P�edm�t: Re: RxDBGrid
>
> Pavel Serbajlo wrote:
> >
> > hi,
> >
> > potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci.
Konkretne
> > mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale
aby
> > se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho
mam
> > docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
> >
> > Muzete me nakopnout spravnym smerem?
> >
> > bye
> >
> > Pavel Serbajlo
>
> Posielam kus zdrojaku
> Hi
> M.
>
> procedure TfrmDokladyE.DBGrid1DrawColumnCell(Sender:
> TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> var
> G : TDBGrid;
> begin
> inherited;
> G := Sender as TDBGrid;
> if (G.DataSource.DataSet['KURZ_ROZDIEL'] <> NULL) and
> (G.DataSource.DataSet['KURZ_ROZDIEL'] = 1) then begin
> if (gdSelected in State ) and (G.focused = TRUE) then
> begin
> G.Canvas.BRUSH.Color := clInactiveCaption;
> G.Canvas.Font.Color := clWhite;
> end else begin
> G.Canvas.Font.Color := clInactiveCaption;
> end;
> end;
> if (G.DataSource.DataSet['PREDPIS_ID'] <> NULL) or
> (G.DataSource.DataSet['UHRADA_ID'] <> NULL) then begin
> if (gdSelected in State ) and (G.focused = TRUE) then
> begin
> G.Canvas.BRUSH.Color := clMaroon;
> G.Canvas.Font.Color := clWhite;
> end else begin
> G.Canvas.Font.Color := clMaroon;
> end;
> end;
> G.DefaultDrawColumnCell(Rect, DataCol, Column, State);
>
> // WriteCurrNum(DBGrid1, Column, Rect, 2);
> end;
>