Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1999 23:21:12
Martin Galik wrote:
>
> Zdar!
> Moze mi niekto poradit s threadmi?
> Vytvoril som dva child-form ako thread (sposobom run-time) z toho isteho
> formu.
> Vo vnutry formu je cyklus (bezi asi 1 min.). Potrebujem aby ten cyklus bezal
> v oboch childoch sucasne (doteraz sa mi podarilo iba to, ze bezali po sebe -
> nepouzil som ziadnu synchronizaciu, alebo mi to vyhlasilo acces denied).
> Maly priklad by bol dobry.
Ahoj,
Pokud volas kod VCL z Threadu, tak musis temer vzdy pouzivat metodu
Synchronize. Podivej se na priklad \Demos\Threads , popripade to zkus
nejak vic popsat.
--
Petr Vones, amatersky programator
ShellExecute a mailto
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 20.9.1999 23:59:33
Ahoj,
Ta puvodni procedura (v puvodnim MAPI.PAS v D4) je takto:
procedure InitMapi;
begin
if MAPIModule = 0 then
MAPIModule := LoadLibrary(PChar(MAPIDLL));
end;
tam zadny registry nejsou.
PS: Ono je zajimavy, jak se chovaji komunikacni knihovny rozdilne ve
W95 a W98. Minuly tyden jsem na W98 odladil jednoduche odeslani mailu
s attachmentem pomoci jine komponenty a prisel jsem k zakaznikovi a
ouha - pod W95 to zacalo rvat tusim acces violation ve WSOCK32.DLL
Honza.
----- P�vodn� zpr�va -----
Od: Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. z��� 1999 18:10
P�edm�t: Re: ShellExecute a mailto
> Me to s Outlookem 4 jeste fungovalo, s Outlookem 5 uz ne. Vyzkousej
v
> MAPI.PAS z InitMapi vyhazet testovani registru, aby zbylo jenom
toto:
>
> procedure InitMapi;
> begin
> if not MAPIChecked then
> begin
> MAPIChecked := True;
> {... tady byly zruseny ruzne radky}
> MAPIModule := LoadLibrary(PChar(MAPIDLL));
> end;
> end;
>
> Zajimalo by mne, jestli to pomuze. Podle mne to testovani registru
ma vyznam
> jen kdyz je nainstalovany M$ Exchange.
>
> S pozdravem
>
> Pavel Kriz
>
>
> TDS - Technicky a databazovy software
> Praha 8, Palaskova 1107/2
> tel.: 02/ 6891 444
> http://www.tds-technik(tec)cz
>TThread
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 20.9.1999 22:15:59 pdt
Zdar!
ide o to, ze to nesmie byt synchronizovane (musi to bezat spolu v tom istom
okamihu a nie za sebou). Robym vlastne komunikaciu cez com port a potrebujem
aby sucastne islo viac portov naraz, zatial sa mi to podarilo vzdy len tak,
ze sa nejak zosynchronizovali a isli za sebou, ale to je uplne nevyhovujuce,
lebo komunikacia jednym portom moze trvat aj niekolko minut (na komunikaciu
s portom som pouzil komponentu TComPort alebo AsynFree-zakazdym mi to islo
po sebe).
Vdaka za vsetky rady a napady.
>From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: delphi-l(zv)fwd(tec)cz
>Subject: Re: TThread
>Date: Mon, 20 Sep 1999 23:21:12 +0200
>
>Martin Galik wrote:
> >
> > Zdar!
> > Moze mi niekto poradit s threadmi?
> > Vytvoril som dva child-form ako thread (sposobom run-time) z toho isteho
> > formu.
> > Vo vnutry formu je cyklus (bezi asi 1 min.). Potrebujem aby ten cyklus
>bezal
> > v oboch childoch sucasne (doteraz sa mi podarilo iba to, ze bezali po
>sebe -
> > nepouzil som ziadnu synchronizaciu, alebo mi to vyhlasilo acces denied).
> > Maly priklad by bol dobry.
>
>Ahoj,
>
>Pokud volas kod VCL z Threadu, tak musis temer vzdy pouzivat metodu
>Synchronize. Podivej se na priklad \Demos\Threads , popripade to zkus
>nejak vic popsat.
>
>--
>
> Petr Vones, amatersky programator
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
ShellExecute a mailto
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 21.9.1999 01:06:06
Tak jsem to nakonec rozchodil. Podarilo se mi pomoci MAPI odeslat vse,
tedy Predmet, Zpravu i Soubor. Zat�m jenom jeden. Musim to nastudovat
dal. Vyhazel jsem ty registry, jak jsi psal a chodi to i s 5-kou.
Pokud ovsem pouzijes funkci MapiSendDocuments, tak to tuhne, jak jsi
taky napsal. S pomoci funkce MAPISendMail lze ale odeslat vse i soubor
a netuhne to. Ovsem vse jsem pripojil z programu, takze se Outlook
vubec nerozjel. Po otevreni Outlooku se to objevilo v Poste k
odeslani.
Ahoj, Honza.
----- P�vodn� zpr�va -----
Od: Jan Naiser <tua(zv)ltm(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. z��� 1999 23:59
P�edm�t: Re: ShellExecute a mailto
> Ahoj,
>
> Ta puvodni procedura (v puvodnim MAPI.PAS v D4) je takto:
>
> procedure InitMapi;
> begin
> if MAPIModule = 0 then
> MAPIModule := LoadLibrary(PChar(MAPIDLL));
> end;
>
> tam zadny registry nejsou.
Omlouvam se, jsou. Me se tam pripletla jina verze MAPI.PAS.
===============================================
>
> PS: Ono je zajimavy, jak se chovaji komunikacni knihovny rozdilne ve
> W95 a W98. Minuly tyden jsem na W98 odladil jednoduche odeslani
mailu
> s attachmentem pomoci jine komponenty a prisel jsem k zakaznikovi a
> ouha - pod W95 to zacalo rvat tusim acces violation ve WSOCK32.DLL
>
> Honza.
>
> ----- P�vodn� zpr�va -----
> Od: Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 20. z��� 1999 18:10
> P�edm�t: Re: ShellExecute a mailto
>
>
> > Me to s Outlookem 4 jeste fungovalo, s Outlookem 5 uz ne.
Vyzkousej
> v
> > MAPI.PAS z InitMapi vyhazet testovani registru, aby zbylo jenom
> toto:
> >
> > procedure InitMapi;
> > begin
> > if not MAPIChecked then
> > begin
> > MAPIChecked := True;
> > {... tady byly zruseny ruzne radky}
> > MAPIModule := LoadLibrary(PChar(MAPIDLL));
> > end;
> > end;
> >
> > Zajimalo by mne, jestli to pomuze. Podle mne to testovani registru
> ma vyznam
> > jen kdyz je nainstalovany M$ Exchange.
> >
> >
> > S pozdravem
> >
> > Pavel Kriz
> >
> >
> >
> > TDS - Technicky a databazovy software
> > Praha 8, Palaskova 1107/2
> > tel.: 02/ 6891 444
> > http://www.tds-technik(tec)cz
> >CZ RES pro RXLIB
[*] Bednar��k Dalibor - 21.9.1999 07:14:40
Ahoj
Muzete mi poradit jak se presne instalujou prelozene zdroje do cestiny pro RXLIB?
Nejak jsem to udelal, ale misto diakritiky se mi pak v aplikaci zobrazuje podrzitko
Predem dik
Dalibor
Nesouhlas parametru pri vyvolani DLL ?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.9.1999 07:16:13
Ahoj,
mel bych maly dotaz na DLL.
Mam deklarovanou funkci v DLL jako
function Xfnc(a,b,c:Pchar):Byte;Export;
po prekladu pod BP7 nebo D1 je vsechno OK, funkce chodi (vyvolana z Progress
7, 16 bitovy), parametry pro organizaci (stdcall,cdecl) zadne nema.
Prelozim-li tutez funkci pod 32 bity v D4, mam problem ji v systemu vubec
vyvolat, musim dopsat direktivu stdcall,
tj. function X(a,b,c:PChar):Byte;StdCall;Export;
Ovsem i tak po uspesnem provedeni dojde k chybe "'C' Call Stack has been
compropised after calling Xfnc in XY.DLL (6069)". Tuto hlasku hlasi system
Progress (8, 32 bitovy) po vyvolani funkce jako svoji interni chybu, ze
ktere se ovsem zotavi a bezi dal.
Pri pouziti direktivy cdecl odmitne kernel DLL vubec zavest.
Neni pouzite VCL, jen Windows a SysUtils unit. Zkouseno pod W95/98/NT
Muj dotaz je nasledujici: Je chyba v deklaraci teto funkce pro prevod do 32
bitu?
Dekuji za jakoukoliv radu
Jaro B.Antwort: RE: Zjisteni jmena CD a adresarove strukt
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 21.9.1999 07:35:16
Pou�ij tohle
//******************************************************************************
function IsCDROM: boolean;
var
buf: array[0..99] of char;
dr: PChar;
begin
Result := false;
dr := (zv)buf[0];
GetLogicalDriveStrings(199,dr);
while (dr^ <> #0) and (not Result) do
begin
if GetDriveType(dr) = DRIVE_CDROM then Result := true;
inc(dr,4);
end {while dr^...};
end {IsCDROM};
//******************************************************************************
function GetCDROMDrive: char;
var
buf: array[0..99] of char;
dr: PChar;
begin
Result := #0;
dr := (zv)buf[0];
GetLogicalDriveStrings(99,dr);
while (dr^ <> #0) and (Result = #0) do
begin
if GetDriveType(dr) = DRIVE_CDROM then Result := dr^;
inc(dr,4);
end {while dr^...};
end {GetCDROMDrive};
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: martin.falta(zv)obi(tec)cz [SMTP:martin.falta(zv)obi(tec)cz]
> Odesl�no: 20. z��� 1999 17:01
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Antwort: RE: Zjisteni jmena CD a adresarove struktury
>
>
>
> Ono to ma jeste jeden hacek. Na kazdem pocitaci ma CD mechanika jine pismeno
> (nekde je to D: jinde E:).
>
> Martin
>
>
>
> Skusenosti s LOCAL SHARE
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 21.9.1999 06:38:47
Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi metoda FlusBuffers.
Slavomir Skopalik
-----P�vodn� zpr�va-----
Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
Odesl�no: 20. z��� 1999 11:18
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Skusenosti s LOCAL SHARE
Martin Lasevic wrote:
> > -----P�vodn� zpr�va-----
> > Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
> > Odesl�no: 17. z��� 1999 18:13
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Skusenosti s LOCAL SHARE
> >
> > Vie mi niekto vysvetlit, ako funguje nastavenie Local Share v BDE ?
> >
> >
> >
> >
> Melo by to mit ten vliv, ze na loklanim disku Ti umozni viceuzivatelsky
> pristup k tabulkam. Ve skutecnosti ( nevim proc), se pri LOCAL Share na
> True minimalizuje moznost crruptovani tabulky.
Ja som s tym trochu experimentoval a zistil som, ze pri jednoduchej
jednouzivatelskej praci ak mam LOCAL SHARE na FALSE, tak sa mi data
neukladaju na disk priebezne, ak mam TRUE, tak sa na disk ukladaju zrejme
okamzite po volani Post. Ked som drastisticky vypol pocitac, pri LOCAL
SHARE=FALSE som prisiel o vsetky data, ktore som pocas celej prace s
aplikaciou ulozit do tabulky. Pri LOCAL SHARE=TRUE som neprisiel ani o
riadok.
Som z toho zmeteny, pretoze v dokumentacii sa nic taketo nespomina ani
nikde som nenasiel zmienku, ze sa to da takto vyuzivat, takze neviem, ci
robim spravne, ale v instalackach nastavujem vzdy LOCAL SHARE=TRUE.Skusenosti s LOCAL SHARE
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 21.9.1999 06:40:39
Zalezi na podminkach, je docela nebezbecny nechat si jinou aplikaci menit zpracovavana data.
Tento system nezna Transakce !
Slavomir Skopalik
-----P�vodn� zpr�va-----
Od: Martin Lasevic [SMTP:vyvoj(zv)atlascon(tec)cz]
Odesl�no: 20. z��� 1999 11:42
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Skusenosti s LOCAL SHARE
Ono asi at je to jak chce, kazdy, koho jsem se ptal, doporucuje Local Share na True.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml software
====================================
> Som z toho zmeteny, pretoze v dokumentacii sa nic taketo nespomina ani
> nikde som nenasiel zmienku, ze sa to da takto vyuzivat, takze neviem, ci
> robim spravne, ale v instalackach nastavujem vzdy LOCAL SHARE=TRUE.
>
>
> Ovladac na pristup do fyzickej pamati
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 21.9.1999 07:57:58
Ahojte !
Nevie niekto nahodou pomoct (uz som sa raz dotazoval),
ako z Delphi pristupovat na presne vymedzenu oblast dolnej
pamati. Podla vsetkeho je to mozne len cez specialny ovladac.
Nepovaluje sa niekomu na disku nieco okolo %subj% ?
Neviem, ani kde zacat.
Peter
Web
[*] "Ing. Toma? Tominec" - 21.9.1999 08:15:31
Ahoj,
stale otravuju s tim webem. Poradte nekdo - potreboval bych nejak pomoci
delphi 4 z web clienta dostat soubor (doc,txt) na web server. Na HTML
strance vyberu soubor pomoci <input type=file ...> mam ho v
request.content a nemohu ho dostat z request.content. A nevim co dal.
Dik za radu
Tomas
Delphi 5 bug
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.9.1999 08:30:23
Tak jsem s nadsenim nainstaloval Delphi5, ale nadseni
netrvalo dlouhu. Po chvili zacali Delphi5 hlasit chyby
OutOfMemory az se z toho sesypali. Zjistil jsem ze
po kazdem prekladu jedne z mych aplikaci, si Delphi5
alokuji dalsich 60MB ! To neni divu ze pamet brzo dojde.
Navic pokud dam Compile dvakrat po sobe tak mam rovnou
120MB v haji. Samozrejme, pomuze Delphi5 po kazdem
prekladu ukoncit a znovu spustit, ale to prave orechove
to neni.
Hledal jsem pricinu a zjistil jsem na vine je pravdepodobne
modul RLINK, ktery blbne, kdyz projekt obsahuje
ResourceStringy se stejnym ResID, a ruznymi LangID.
To se tyka nekterych mych aplikaci, ktere jsem lokalizoval
do vice jazyku (takze mluvi, tim jazykem, jaky je nastaven
v ovladacich panelech). Zatim jsem neprisel na zpusob,
jak tuto chybu obejit, takze zustavam pod Delphi4.
Postup pro demonstraci chyby.
Vytvorte soubor Pokus.RC a vlozte do nej nasledujici radky.
LANGUAGE LANG_CZECH, SUBLANG_DEFAULT
STRINGTABLE
{
49900,"Program %s nenalezen"
}
LANGUAGE LANG_SLOVAK, SUBLANG_DEFAULT
STRINGTABLE
{
49900,"Program %s nenalezeny"
}
LANGUAGE LANG_ENGLISH, SUBLANG_DEFAULT
STRINGTABLE
{
49900,"Program %s not found"
}
Nyni pomoci utility BRCC32.exe soubor zkompilujte. Vytvori se
soubor Pokus.RES. Dale v Delphi zvolte New Application a
do Unit1.pas vlozte {$R Pokus.RES}. Nyni muzete dat Compile,
ale predem si spustte TaskManager a nechte si u procesu Delphi32
zobrazit velikost virtualni pameti. Compile muzete opakovat kolikrat
chcete a vzdy dojde ke zvyseni pouzite pameti asi o 1 MB. A pri-
tom tato aplikace nic neumi a obsahuje jedinou lokalizovanou
vetu ...
Daniel Rott
roxton(zv)iol(tec)cz
CZ RES pro RXLIB
[*] rdocekal(zv)csas(tec)cz - 21.9.1999 08:34:06
Preklad jsem provadel na NT4 angl. Zkus prelozit *.RC na svem systemu
(programem ..\BIN\BRCC32.EXE).
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
-----P�vodn� zpr�va-----
Od: Bednar��k Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Odesl�no: 21. z��� 1999 7:15
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: CZ RES pro RXLIB
Ahoj
Muzete mi poradit jak se presne instalujou prelozene zdroje do cestiny pro
RXLIB?
Nejak jsem to udelal, ale misto diakritiky se mi pak v aplikaci zobrazuje
podrzitko
Predem dik
Dalibor
Skusenosti s LOCAL SHARE
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 21.9.1999 08:46:58
Slavomir Skopalik wrote:
> Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi metoda FlusBuffers.
>
> Slavomir Skopalik
>
Tak to sa mylis - skus nastavit LOCAL SHARE na FALSE, zadat par riadkov v aplikacii a
resetnut pocitac. Potom to skus s nastavenim na TRUE. LOCAL SHARE ma zasadny vplyv na
ukladanie dat a sice ten, ze pri FALSE sa zmeny priamo na disk nezapisuju (po resete
sa stratia vsetky riadky zapisane metodou POST).text do Interbase
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.9.1999 08:48:56
Haj hou!
From: TUNGLI Jan Potrebujem rozsiahly text (obsah Memo) ulozit do Intarbase tabulky.
Ktory typ je na to a ako sa to robi20
Standardne pres memo polozky (TMemoField). Pokud mas text ve TStrings, pak je mozne jej ulozit do memo pomoci Memofield.assign (MyStrings). Rovnez je mozne pouzit metody LoadFromStream/SaveTostream.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
text do Interbase
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 21.9.1999 09:08:50
> Potrebujem rozsiahly text (obsah Memo) ulozit do Intarbase tabulky.
> Ktory typ je na to a ako sa to robi?
>
Pouzivam k tomu Blob, subtype text.
CREATE TABLE TABLE1
(BLOB1 BLOB SUB_TYPE 1);
Pristup k poli pres AsString
MojeMemo.Lines.Text:=MujTIBDataset.FieldByname('BLOB1').AsSt
ring;
MujTIBDataset.FieldByname('BLOB1').AsString:=MojeMemo.Lines.
Text
Pro texty do 32KB lze pouzita i typ varchar
Jiri Binder
CZ RES pro RXLIB
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 21.9.1999 09:09:29
Ahoj,
ty soubory RC se musi znovu prekompilovat.
K tomu pouzij BRC32.exe z adresare ..\Delphi\Bin
Pak vygenerovane RES prekopiruj do adresare UNITS z RxLib.
A to je vsechno
S pozdravem
Pavel Kriz, TDS
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Bednar��k Dalibor
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, September 21, 1999 7:14 AM
Subject: CZ RES pro RXLIB
Ahoj
Muzete mi poradit jak se presne instalujou prelozene zdroje do cestiny pro RXLIB?
Nejak jsem to udelal, ale misto diakritiky se mi pak v aplikaci zobrazuje podrzitko
Predem dik
Dalibor
Borlandi maji zmatek v zemepise
[*] Burger, Tomas <tomas.burger(zv)sap(tec)com> - 21.9.1999 09:11:39
> -----Original Message-----
> From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
>
> hned pod sebou Czech Republic a Czechoslovakia. Slovac
Videj jsem to taky uz nekde a vysvetleni je mimoradne snadne...
Co maji delat s lidmi, registrovanymi pred rokem 93...?
Smazat i se statem (kaskadni integrita to jisti... :-) )? Podle nejakeho
(ale jakeho?) algoritmu je rozdelit na Cechy a Slovaky...?
Meli by zmenit (tak jak jsem to nekde videl) text "Czechoslovakia" na
"Czechoslovakia - former", ale nechat ho tam museji...
Tomas
Nesouhlas parametru pri vyvolani DLL ?
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 21.9.1999 09:12:52
Ahoj,
a v importu tam mas take stdcall ??
S pozdravem
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 21, 1999 7:16 AM
Subject: Nesouhlas parametru pri vyvolani DLL ?> Ahoj,
>
> mel bych maly dotaz na DLL.
>
> Mam deklarovanou funkci v DLL jako
> function Xfnc(a,b,c:Pchar):Byte;Export;
> po prekladu pod BP7 nebo D1 je vsechno OK, funkce chodi (vyvolana z
Progress
> 7, 16 bitovy), parametry pro organizaci (stdcall,cdecl) zadne nema.
> Prelozim-li tutez funkci pod 32 bity v D4, mam problem ji v systemu vubec
> vyvolat, musim dopsat direktivu stdcall,
> tj. function X(a,b,c:PChar):Byte;StdCall;Export;
> Ovsem i tak po uspesnem provedeni dojde k chybe "'C' Call Stack has been
> compropised after calling Xfnc in XY.DLL (6069)". Tuto hlasku hlasi system
> Progress (8, 32 bitovy) po vyvolani funkce jako svoji interni chybu, ze
> ktere se ovsem zotavi a bezi dal.
> Pri pouziti direktivy cdecl odmitne kernel DLL vubec zavest.
> Neni pouzite VCL, jen Windows a SysUtils unit. Zkouseno pod W95/98/NT
>
> Muj dotaz je nasledujici: Je chyba v deklaraci teto funkce pro prevod do
32
> bitu?
>
> Dekuji za jakoukoliv radu
>
> Jaro B.
>ShellExecute a mailto
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 21.9.1999 09:17:28
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 20, 1999 11:13 PM
Subject: Re: ShellExecute a mailto
> V MSDN to maji takhle:
>
> http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp
>
> --
>
> Petr Vones, amatersky programator
Tak to jsme se vubec nikam neposunuli...
Jako zaklad je to dobre, ale popis nam nerika nic noveho. Stale to neresi
problem radkovani v "Body" ani attachementy. Ani neni zrejme, jestli to
podporuji SW od jinych firem nez M$.
S pozdravem
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
CreateThread
[*] Ivan Zernovac <ivan(zv)gratis.sk> - 21.9.1999 09:22:57
Ahoy
>Na tohle pozor, v Delphi by jsi nemel nikdy volat primo CreateThread
Nehadam sa, je to mozne, ale ja som s CreateThread nemal nikdy ziadne
problemy. Ani moj znamy, ktory je profesionalny programator v Kanade. A
v knihe Teach yourself Delphi 2 in 21 days je priklad s CreateThread. A
tu knihu reviewvoval Lloyd Linklater.
Ivan
Vypnuti usporneho rezimu
[*] Ivan Zernovac <ivan(zv)gratis.sk> - 21.9.1999 09:24:13
Ahoy,
pokial viem, flag SPI_SETLOWPOWERACTIVE funguje pod Win95, ale iba v 16
bitovych aplikaciach. Pod WinNT zase funguje v 32 bitovych, pod Win98 v
16 aj 32 bitovych.
Ivan
Petr Vaclavek wrote:
> Ahoj
>
> Pokousim se vypnout setric (proste aby nenaskocil), usporny rezim a
> vypnuti monitoru (a pote to vse zase zapnout)
>
> Setric jsem vypnul nasledovne:
>
> if (not SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, 0, nil, 0))
> then ShowMessage ('Nepovedlo se vypnout setric');
>
> To bylo bez problemu...
> Problemy prisly s uspornym rezimem a vypnutim monitoru
>
> if (not SystemParametersInfo (SPI_SETLOWPOWERACTIVE, 0, nil, 0))
> then ShowMessage ('Nepovedlo se zakazat zapnout usporny rezim');
>
> if (not SystemParametersInfo (SPI_SETPOWEROFFACTIVE, 0, nil, 0))
> then ShowMessage ('Nepovedlo se zakazat vypnout monitor');
>
> Proste mi to nejde. Nevite kde je chyba?
>
> Petr
>
> ==< Petr Vaclavek >---- --- --- -- -- - - -
> ====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
> `=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
> `======--- ------ ---- --- -- -- - - -
Verze DLL
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 21.9.1999 09:25:47
Cauec,
>zrovna pacham nejakou DLLku a potrebuji do ni dostat cislo verze. Pouzil
>jsem Project/Options/VersionInfo, zaskrtl jsem "Include version
>information in project", u Module attributes jsem zaskrtl DLL a nic. Ve
>vlastnostech souboru se verze neobjevi. Co delam spatne?
library MyDLL;
{$R *.RES}
^^^^^^^^^^^ tohle tam dopln rucne...
uses
SysUtils, Classes,
Bye Ludan
Delphi 5 bug
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.9.1999 09:28:40
Haj hou!
From: Daniel Rott <roxton(zv)atlas(tec)cz>
> Hledal jsem pricinu a zjistil jsem na vine je pravdepodobne
> modul RLINK, ktery blbne, kdyz projekt obsahuje
> ResourceStringy se stejnym ResID, a ruznymi LangID.
> To se tyka nekterych mych aplikaci, ktere jsem lokalizoval
> do vice jazyku (takze mluvi, tim jazykem, jaky je nastaven
> v ovladacich panelech). Zatim jsem neprisel na zpusob,
> jak tuto chybu obejit, takze zustavam pod Delphi4.
Nemile. Co kdyby jsi zkusil lokalizovat pomoci doplnkovych DLL, tak jak je
na to Delphi pripravena ? Na Delphree je k mani Zbyskuv Localizator (z
darma). To tvuj problem spolehlive vyresi. Jinak by rovnez mohlo pomoci
rozdelit ruzne jazykove verze do vice .RES souboru (ale Localizator je
mnohem lepsi reseni, neb umi lokalizovat i DFM).
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
Klavesnice a menu
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 21.9.1999 09:32:59
> > 2) jak odchytit klavesovou zkratku Ctrl+/
> > -----------------------------------------
> >
> > Ahoj, zkus pouzit tohle (obsluha eventu OnKeyDown):
> >
> > procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:
> > TShiftState);
> > begin
> > if Key = 191 then // lomitko vraci kod 191, jestli ma nejakou
> > konstantu ve VK_ nevim
> > // kdybys chtel pouzit lomitko na
> keypadu, je na to
> > konstanta VK_DIVIDE
> > begin
> > if ssCtrl in Shift then
> > begin
> > MessageDlg('Byla klapka Ctrl + / !', mtConfirmation,
> [mbOK], 0);
> > Key := 0;
> > end;
> > end;
> > end;
> >
> > Tohle je OnKeyDown z hlavniho formu, kdybys to chtel
> pouzit, pokud ma
> > fokus jiny objekt (napriklad modalni formular, musis
> nastavit KeyPrewiev
> > na true.
>
> *** No bud jsem se seknul ja, nebo ty.
> Ale rozhodne (at' uz jsem predtim psal cokoliv) bych chtel odchytit
> klavesovou zkratku Ctrl + \ (a ne /) - takze opacne lomitko.
> Cely postup je mi jasny, akorat nevim jak zjistit to cisilko - Key
> konkretene u tohoto tlacitka.
> Pokud dam aby na OnKeyDown vypsal Key zmacknute klavesy, tak mi to
> vratati 220, pokud tam dam na tu 220 obsluhu, tak se neprovede, takze
> otazka zni jake Key ma ta klavesa?????
Puvodni dotaz znel na Ctrl+/, ale to na veci nic nemeni - pro obracene
lomitko pouzij kod 220.
Nevim presne co myslis obsluhou, ale pokud chces neco udelat po
stisknuti Ctrl+\, tak to dej tam, kde v prikladu volam MessageDlg. Takze
asi takhle:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 220 then
begin
if ssCtrl in Shift then
begin
Key := 0;
// tady muzes vlozit vlastni obsluhu, napr.
MessageDlg('Byla klapka Ctrl + \ !', mtConfirmation, [mbOK], 0);
end;
end;
end;
Jeste jednou pripominam, ze pokud to chces odchytavat na udalosti
OnKeyDown hlavniho formu, musis si nastavit Form1.KeyPreview := true!
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Verze DLL
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 21.9.1999 08:36:21
Ahoj vsem,
zrovna pacham nejakou DLLku a potrebuji do ni dostat cislo verze. Pouzil
jsem Project/Options/VersionInfo, zaskrtl jsem "Include version
information in project", u Module attributes jsem zaskrtl DLL a nic. Ve
vlastnostech souboru se verze neobjevi. Co delam spatne?
Mam D3 Standard, Win95 OSR/2.
Diky vsem za rady
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
Vypnuti usporneho rezimu
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 09:50:28
> Ahoy,
> pokial viem, flag SPI_SETLOWPOWERACTIVE funguje pod Win95, ale iba v 16
> bitovych aplikaciach. Pod WinNT zase funguje v 32 bitovych, pod Win98 v
> 16 aj 32 bitovych.
Aha, a muze mi tedy nekdo poradit, jak zakazu (povolim) usporny rezim
a vypnuti monitoru?
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - EXE - files
[*] martin.falta(zv)obi(tec)cz - 21.9.1999 09:53:17
>Nev�te pros�m n�kdo jak se naprogramuje
>1) spou�t�n� EXE soubor�
>2) vypnut� Windows
> v�m jen -> "rundll32 user,exitwindows" ... jde to i jinak
>
>p�edem d�ky za Va�e rady :)))
2) Zkus to takhle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
EWX LOGOFF = 0; // Odhl�sit aktu�ln�ho u
?ivatele
EWX SHUTDOWN = 1; // Vypnut� syst�mu
EWX REBOOT = 2; // Restart syst�mu
EWX FORCE = 4;
EWX POWEROFF = 8;
{$R *.DFM}
function ExitWindowsEx (Flags: LongInt; dwReserved: LongInt): LongInt; stdcall;
external 'user32.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
l: LongInt;
begin
if RadioButton1.Checked then l := ExitWindowsEx (EWX SHUTDOWN, 0)
else l := ExitWindowsEx (EWX REBOOT, 0);
end;
end.Problem s DecisionCube
[*] Pavel Fiser <fiser(zv)mefisto(tec)cz> - 21.9.1999 10:00:23
Me zdlouhave pokusy vedly ke zjisteni, ze DC neumi bezproblemove grupovat/zobrazovat dimenze typu string. Po pouziti smallintu a nasledne vlastniho vykreslovani
stringu v DecGridu to chodi dobre. Ja pouzivam (spis z historickych duvodu) pro DC pdox-temp-tabulku vytvorenou pomoci BatchMove z TQuery napojeneho na Interbase
- na velkych datech pak chodi docela dobre i prepocitavani DecCube. Ale myslim, ze bez tech stringu by to chodilo i primo napojene na IB. Hodne uspechu preje
Pavel Fiser
"Mgr. Fojtik Daniel" wrote:
> Ahoj,
> Chtel bych se zeptat na jeden problem:
> Podarilo se nekomu rozhybat desicionCube v Delphi3 nebo Delphi4 ? Ja kdy� tuto komponentu napojim na Interbase databazi tak mam velke problemy to zprovoznit.
> Obvykle kdy� nastavim pouze 2 dimenze, tak to po odklepani cca 2-5 chyb funguje, ale p�i vetsi dimenzi to proste nebezi.
> Chybove hlasky jsou povetsinou typu "Index is out of bounds"
>
> Diky za odpoved
>
> Daniel Fojtik
CZ RES pro RXLIB
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 21.9.1999 10:00:25
Mel jsem stejny problem. Pomohlo prekompilovani *.rc souboru
programem brcc32.exe. (Dle slov autora cestiny to prekladal na
WinNT ENG a pod Win95/98 to nejak zlobi...)
Otakar Milink
-----P�vodn� zpr�va-----
Ahoj
Muzete mi poradit jak se presne instalujou prelozene zdroje do cestiny pro
RXLIB?
Nejak jsem to udelal, ale misto diakritiky se mi pak v aplikaci zobrazuje
podrzitko
Predem dik
Dalibor
Posilani zprav
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 21.9.1999 10:09:08
Ahoj,
Potreboval bych primo z programu poslat mail. Neco jsem nasel, ale bylo to
jen neco v tom smyslu, ze musim pouzit komponentu SMTP a POP.
Ja ale nevim jak a tak bych si dovolil poprosit o malou napovedu.
Diky za kazdou radu a priklad by byl uplne super .
Delphi 3.02 C/S; W-NT 4.00
S pozdravem
Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/513471 linka 639 Ovladac na pristup do fyzickej pamati
[*] Lubomir RACKO <LRacko(zv)vsz.sk> - 21.9.1999 10:23:13
>ako z Delphi pristupovat na presne vymedzenu oblast dolnej
>pamati. Podla vsetkeho je to mozne len cez specialny ovladac.
pred casom som sa o to zauimal, potreboval som si "odovzdavat" zopar bajtov cez RAM, potom som to vzdal. Ale radu mam. Nasiel som VXD spolu s komponentmi atd, vsetko pre delphi, umoznuju citat aj zapisovat do pamati, dokonca obsluhuju interrupty a podobne. Demo chodilo, viac som naskusal.
Ak by som to chcel pouzit pre seba, chcel by som to upravit (zjednodusit) a to presahovalo moje schopnosti, co vsak mozno nie je tvoj problem ... Skus pozriet na , popripade pohladat starsie verzie, nieco je ako shareware, nieco stare bolo tusim aj free...
http://www.entechtaiwan.com/tools.htm
Lubo Racko
QReport
[*] Ivan Kodaj <Ivan.Kodaj(zv)ibaware.sk> - 21.9.1999 10:26:10
Nazdar vsetci,
Neviete niekto, ako sa da urobit to, ze ked prezeram Preview QR, tak aby
ta forma na ktorej to je bola MDIChild?
Ivan
Nesouhlas parametru pri vyvolani DLL ?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.9.1999 10:28:18
Ahoj,
import je resen v Progressu jako
PROCEDURE xfnc EXTERNAL "xy.dll" ORDINAL 1.
pro deklaraci nezna nic jineho nez CDECL tj. muzu to napsat pred ORDINAL
Jaro B.> -----P�vodn� zpr�va-----
> Od: Kriz Pavel, TDS [SMTP:kriz.tds(zv)ms.easynet(tec)cz]
> Odesl�no: 21. z��� 1999 9:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Nesouhlas parametru pri vyvolani DLL ?
>
> Ahoj,
>
> a v importu tam mas take stdcall ??
>
> S pozdravem
>
> Pavel Kriz
>
>
>
>
> TDS - Technicky a databazovy software
> Praha 8, Palaskova 1107/2
> tel.: 02/ 6891 444
> http://www.tds-technik(tec)cz
>
>
> ----- Original Message -----
> From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, September 21, 1999 7:16 AM
> Subject: Nesouhlas parametru pri vyvolani DLL ?
>
>
> > Ahoj,
> >
> > mel bych maly dotaz na DLL.
> >
> > Mam deklarovanou funkci v DLL jako
> > function Xfnc(a,b,c:Pchar):Byte;Export;
> > po prekladu pod BP7 nebo D1 je vsechno OK, funkce chodi (vyvolana z
> Progress
> > 7, 16 bitovy), parametry pro organizaci (stdcall,cdecl) zadne nema.
> > Prelozim-li tutez funkci pod 32 bity v D4, mam problem ji v systemu
> vubec
> > vyvolat, musim dopsat direktivu stdcall,
> > tj. function X(a,b,c:PChar):Byte;StdCall;Export;
> > Ovsem i tak po uspesnem provedeni dojde k chybe "'C' Call Stack has been
> > compropised after calling Xfnc in XY.DLL (6069)". Tuto hlasku hlasi
> system
> > Progress (8, 32 bitovy) po vyvolani funkce jako svoji interni chybu, ze
> > ktere se ovsem zotavi a bezi dal.
> > Pri pouziti direktivy cdecl odmitne kernel DLL vubec zavest.
> > Neni pouzite VCL, jen Windows a SysUtils unit. Zkouseno pod W95/98/NT
> >
> > Muj dotaz je nasledujici: Je chyba v deklaraci teto funkce pro prevod do
> 32
> > bitu?
> >
> > Dekuji za jakoukoliv radu
> >
> > Jaro B.
> >rozvetvena published property jako TFont
[*] Honza <delphi(zv)mis-net(tec)cz> - 21.9.1999 10:41:57
M�m D3, proto prosim o zaslani Controls.pas nejakou dobrou osobou, ktera ma
D4 nebo D5
predem diky
..........Honza
PS: Bude toto reseni funkcni i v D3 ?>> Honza wrote:
>>
>> Zdar,
>> prosim o radu
>>
>> Jak dos�hnout toho, aby moje komponenta mela napr. v ObjectInspektoru
>> property
>> Pages s znamenkem "+" v levo, jako treba Font a po rozbaleni
>> se dalo zeditovat napr. 2 stringov� promenne, jedna logicka a tri
>> numericke
>>
>> A to bez pouziti dialogoveho formulare (font lze nastavit 2 zpusoby, me
>> staci jen jeden)
>
>Ahoj,
>
>Pokud tomu dobre rozumim, tak ta property musi byt objekt odvozeny alespon
>od TPersistent ktery ma pak jednotlive published polozky. Podivej se treba
>na TSizeConstraints v Controls.pas (D4 a vyssi).
>
>--
>
> Petr Vones, amatersky programator
>Delphi 5 bug
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 21.9.1999 10:44:15
Opravte me, jestli se mylym, ale na Delphi99 Days ukazovali, ze se
lokalizuji i formulare, takze Zbyskuv lokalizator neni jediny. Nechci hajit
Borlandy, myslim ze lokalizator je lepsi a zda se mi ze to nekde odkoukali
(ze by v cechach?).
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: Pavel Cisar [mailto:pcisar(zv)aktis(tec)cz]
Odesl�no: 21. z��� 1999 9:29
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Delphi 5 bug
Haj hou!
From: Daniel Rott <roxton(zv)atlas(tec)cz>
> Hledal jsem pricinu a zjistil jsem na vine je pravdepodobne
> modul RLINK, ktery blbne, kdyz projekt obsahuje
> ResourceStringy se stejnym ResID, a ruznymi LangID.
> To se tyka nekterych mych aplikaci, ktere jsem lokalizoval
> do vice jazyku (takze mluvi, tim jazykem, jaky je nastaven
> v ovladacich panelech). Zatim jsem neprisel na zpusob,
> jak tuto chybu obejit, takze zustavam pod Delphi4.
Nemile. Co kdyby jsi zkusil lokalizovat pomoci doplnkovych DLL, tak jak je
na to Delphi pripravena ? Na Delphree je k mani Zbyskuv Localizator (z
darma). To tvuj problem spolehlive vyresi. Jinak by rovnez mohlo pomoci
rozdelit ruzne jazykove verze do vice .RES souboru (ale Localizator je
mnohem lepsi reseni, neb umi lokalizovat i DFM).
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
Filozofovanie na temu EXE
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.9.1999 10:59:03
>
>Svata pravda. Pokial niekomj prekaza velkost suboru, su tu ASpack,
>PEPack, Shrinker, PKlite, UPX a podobne (nemusim zdoraznovat, ze po
>spusteni programu sa program rozbali opat na povodnu velkost, takze
Po precteni http://www.jordanr.dhs.org/striprlc.htm bych si to s exe kompresi hodne rozmyslel.
D. Toman
Win95
[*] Tibor Galik <tgalik(zv)vsz.sk> - 21.9.1999 11:01:38
Hi,
viem, je to trochu mimo, ale ako zistim OSR verziu WIN95?
Viem, ze vo vlastnostiach systemu za cislom verzie B-cko znamena OSR2.X, ale ake X to je to neviem.
V MSDOS prompte na prikaz Ver dostanem verziu 4.00.1111, da sa to zistit z toho? A ked, tak ako?
diky
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
rozvetvena published property jako TFont - OK
[*] Honza <delphi(zv)mis-net(tec)cz> - 21.9.1999 11:05:35
Diky za pomoc, jiz nic nepotrebuji posilat.
Zkusil jsem to a je to ono.
Ja to nededil z TPersistentu ale z TObjectu
potom se me ObjectInspektor zacal choval multiSelektove a ja z toho byl na
vetvi :-)
.......Honza
Delphi 5 bug
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.9.1999 11:09:58
Haj hou!
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>>Opravte me, jestli se mylym, ale na Delphi99 Days ukazovali, ze se
>lokalizuji i formulare, takze Zbyskuv lokalizator neni jediny. Nechci hajit
>Borlandy, myslim ze lokalizator je lepsi a zda se mi ze to nekde odkoukali
>(ze by v cechach?).
ITS je pouze v baleni Enterprise. Ti co si vystaci s Profi balenim mohou
pouzit Localizator, neb umi prakticky totez co ITS.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
sirka textu
[*] jdanek(zv)fnbrno(tec)cz - 21.9.1999 11:11:27
Ahojte,
chtel bych formatovat text na vystupu napriklad tak, abych dosahl.
neco jako novinovy sloupecek, kde znaky budou od kraje do kraje
roztazeny. V textovem rezimu MS/DOSu se pocitaly znaky, protoze
mely vsechny stejnou sirku. Ve Windows vsak maji stejnou sirku
pouze znaky Fontu Courier.
Jelikoz tedy kazdy znak ma pri ruzne velikosti a pouziti jineho
typu Fontu ruznou sirku, nevim jak to pocitat. Snad podle sirky
stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
(snad v pixelech?) apod.
Prosim, zkuste mi nekdo naznacit, kudy vede cesta, ci jestli
je takova vec vubec mozna. (Pouzivam W95 a D3.)
Diky
Jozka
jdanek(zv)fnbrno(tec)cz
Verze DLL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.9.1999 10:19:06
Puvodni zprava, kterou napsal Petr Brant dne 21 Sep 99,:
> zrovna pacham nejakou DLLku a potrebuji do ni dostat cislo verze. Pouzil
> jsem Project/Options/VersionInfo, zaskrtl jsem "Include version
> information in project", u Module attributes jsem zaskrtl DLL a nic. Ve
> vlastnostech souboru se verze neobjevi. Co delam spatne?
Musis do hlavniho souboru (DPR) te DLL pridat tento radek:
{$R *.RES}
Protoze jinak to tam neprida jako resource...
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
prikaz v Query SQL
[*] jdanek(zv)fnbrno(tec)cz - 21.9.1999 11:25:55
Ahoj,
nefunguje mi pod Query SQL prikaz pro vystup do souboru
output to. Napriklad
select * from datab;
output to 'vystup.txt'
Vycetl jsem to u Sybase v Helpu, ale v Delphi3 mi to nefunguje
a hl�s� chybu. Delam neco spatne nebo to takto nejde?
Diky za kazdou odpoved. (Pouzivam W95 a D3.) Jozka
jdanek(zv)fnbrno(tec)cz
Delphi 5 bug
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.9.1999 11:39:45
> Nemile. Co kdyby jsi zkusil lokalizovat pomoci doplnkovych DLL, tak jak je
> na to Delphi pripravena ? Na Delphree je k mani Zbyskuv Localizator (z
> darma). To tvuj problem spolehlive vyresi. Jinak by rovnez mohlo pomoci
> rozdelit ruzne jazykove verze do vice .RES souboru (ale Localizator je
> mnohem lepsi reseni, neb umi lokalizovat i DFM).
Rozdeleni do vice RES souboru nepomuze. Reseni se samostatnymi DLL
se mi nelibi, mam rad jediny EXE soubor. Localizator jsem zkousel, ale
znamenalo by to cele predelat, coz by byla fura prace, nebot takovychto
projektu mam vice.
Diky
Daniel
LOCAL SHARE
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 21.9.1999 11:44:10
Da se LOCAL SHARE nastavit programove?
(Delphi 1)
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Odpoved: QReport
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 21.9.1999 12:03:27
[P��loha v souboru: marekhr.vcf]
Toto je zpr�va z v�ce ��st� ve form�tu MIME.
Ivan Kodaj p�e:
> Nazdar vsetci,
>
> Neviete niekto, ako sa da urobit to, ze ked prezeram Preview QR, tak aby
> ta forma na ktorej to je bola MDIChild?
>
> Ivan
Je nutne vytvorit vlastni form pro preview, jinak se pouzije implicitni od
QReportu. Na domovskych stranach
QuickReportu je priklad jak vytvorit sve preview(treba MDIChild). Je to soubor
CUSTOMPREV.ZIP v dowload area.
cau Marek
Posilani zprav
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 21.9.1999 12:05:09
Ted tady o tom diskutujeme
viz Subject "ShellExecute a mailto"
S pozdravem
Pavel Kriz, TDS
----- Original Message -----
From: Brabec Tom� <brabec(zv)nym.pvt(tec)cz>
To: 'DELPHI-Konference' <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 21, 1999 10:09 AM
Subject: Posilani zprav
Ahoj,
Potreboval bych primo z programu poslat mail. Neco jsem nasel, ale bylo to
jen neco v tom smyslu, ze musim pouzit komponentu SMTP a POP.
Ja ale nevim jak a tak bych si dovolil poprosit o malou napovedu.
Diky za kazdou radu a priklad by byl uplne super .
Delphi 3.02 C/S; W-NT 4.00
S pozdravem
Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/513471 linka 639
CZ RES pro RXLIB - DIKY
[*] Bednar��k Dalibor - 21.9.1999 12:16:53
DIKY VSEM ZA ODPOVEDI. A POMOC
UZ MI TO FUNGUJE
Skusenosti s LOCAL SHARE
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 21.9.1999 11:25:23
Nedavno jsem to zkousel (pro jednu aplikaci, data se stratila vzdy!), jedinny zpusob jak zapsat data na disk je FlushBuffers,
testoval jsem to takto: Pradox V3, delphi zapisovali a ja cetl pres nc5 (dbview). Data se tam neulozili.
Pripoustim, ze to muze mit nekdy vliv, ale spolehat se na to neda.
Local Shere slouzi pro sdileni DB mezi vice aplikaci (mezi BDE a nonBDE).
Slavomir Skopalik
-----P�vodn� zpr�va-----
Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
Odesl�no: 21. z��� 1999 7:47
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Skusenosti s LOCAL SHARE
Slavomir Skopalik wrote:
> Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi metoda FlusBuffers.
>
> Slavomir Skopalik
>
Tak to sa mylis - skus nastavit LOCAL SHARE na FALSE, zadat par riadkov v aplikacii a
resetnut pocitac. Potom to skus s nastavenim na TRUE. LOCAL SHARE ma zasadny vplyv na
ukladanie dat a sice ten, ze pri FALSE sa zmeny priamo na disk nezapisuju (po resete
sa stratia vsetky riadky zapisane metodou POST).
Chyby v D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 12:38:25
Ahoj,
narazil jste uz nekdo na nasledujici chybu?
D5, W98:
Mam v projektu otevreny program a balicek zaroven. Udelam
zmeny v komponente z balicku, zkompiluji balicek. Preskocim na
urcity formular z programu a chci ho pomoci F12 zobrazit (nemusi
tam ani byt ladena komponenta) a misto formulare na me vybafne
hlaska "Access violation at address xxxx in module
CORIDE50.BPL. Read of address FFFFFFFF".
Formular je "inherited" jineho formulare. Pokud tedy otevru nejdrive
rodicovsky formular, pak ten potomek lze otevrit take. Uz jste se s
tim take nekdo setkal?
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
Delphi 5, MS SQL 7 a varchar(2000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 12:38:25
ing. Ale� Da�a wrote:
> Ja jsem mel problem s blobem, ktery nesel zapisovat a pomohl az
> upgrade BDE. Ale proc lze u Interbase pouzit delsi varchar nez 255.
Zalezi na implementaci te ktere databaze vuci rozhrani DBLib.
Microsoft se rozhodl to nepodporit.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Zbysek Hlinka Sent: Tuesday, September 14, 1999 2:53 PM To:
> delphi-l(zv)fwd(tec)cz Subject: RE: Delphi 5, MS SQL 7 a varchar(2000)
>
>
> ing. Ales Da�a wrote:
>
> > Myslim, ze jsem mel podobny problem a pomohlo update BDE na vyssi
> > verzi.
>
> O tom dost pochybuji, protoze primo v dokumentaci k MS SQL 7 je
> poznamka, ze varchar delsi nez 255 nejsou v DBLib podporovany.
>
> >
> > mam Delphi 3 a MS SQL 7
> > nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v
> > Delphi na varchar(255).
> >
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
LOCAL SHARE
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 21.9.1999 12:40:51
V D1, nevi, v D2-4 ano , mam na to unitu, kterou Ti muzu poslat ( mozna zabere i na D1.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odesl�no: 21. z��� 1999 11:44
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: LOCAL SHARE
>
> Da se LOCAL SHARE nastavit programove?
>
> (Delphi 1)
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+Umisteni listy ve Woknows ; Mirror Torryho
[*] tmara(zv)itsys(tec)cz - 21.9.1999 12:48:03
Hezky den,
Chtel bych se zeptat, zda je mozne v�Delphim udelat, aby byla woknowska
lista (s tlacitkem Start) nahore, vlevo...proste zmenit jeji umisteni. D�le
zda jde programove zmenit, aby se lista schovavala.
Potreboval bych to do W95/ 98/ NT - tedy do vsech
Bud pro D3 C/S, nebo D4 Prof.
A je�t� druhy dotaz. Neplanujete n�kdo udelat mirror Torryho?
Thx a lot...ByE.
- TMa - Chyby v D5
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.9.1999 12:57:16
Haj hou!
> narazil jste uz nekdo na nasledujici chybu?
>
> D5, W98:
>
> Mam v projektu otevreny program a balicek zaroven. Udelam
> zmeny v komponente z balicku, zkompiluji balicek. Preskocim na
> urcity formular z programu a chci ho pomoci F12 zobrazit (nemusi
> tam ani byt ladena komponenta) a misto formulare na me vybafne
> hlaska "Access violation at address xxxx in module
> CORIDE50.BPL. Read of address FFFFFFFF".
>
> Formular je "inherited" jineho formulare. Pokud tedy otevru nejdrive
> rodicovsky formular, pak ten potomek lze otevrit take. Uz jste se s
> tim take nekdo setkal?
Jo. Uplne normalni :-) Zkusenost z Delphi 3.
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
TTabbedNotebook Component
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 21.9.1999 12:58:13
>nevite, prosim, nekdo jak sdilet jednu stranku z TTabbedNotebook komponentu
>ve dvou zaroven? Stranku mam kompletne navrzenou v jednom TabbedNotebooku a
Neviem ci som dobre pochopil, ale "presunut" napr. objekt
Edit1: TEdit umiestneny na stranke X na inu stranku,
napriklad stranku Y, sa da zmenou jej Parent, tj:
Edit1.Parent := TWinControl(TabbedNotebook1.Pages.Objects[Y]);
tj analogicky presunut naspat:
Edit1.Parent := TWinControl(TabbedNotebook1.Pages.Objects[X]);
X, Y: Integer z intervalu < 0; TabbedNotebook1.Pages.Count - 1 >
To iste plati aj pre TNotebook.
Ale mozno by viac vyhovovala komponenta TTabControl
z Win32 - obsahuje vzdy len jednu stranku, takze na nej
umiestnene objekty su "viditelne" po zvoleni lubovolneho
ucha (zalozky).
forgo
sirka textu
[*] Iko <iko(zv)kamarad(tec)cz> - 21.9.1999 13:05:53
> Ahojte,
>
> chtel bych formatovat text na vystupu napriklad tak, abych dosahl.
> neco jako novinovy sloupecek, kde znaky budou od kraje do kraje
> roztazeny. V textovem rezimu MS/DOSu se pocitaly znaky, protoze
> mely vsechny stejnou sirku. Ve Windows vsak maji stejnou sirku
> pouze znaky Fontu Courier.
> Jelikoz tedy kazdy znak ma pri ruzne velikosti a pouziti jineho
> typu Fontu ruznou sirku, nevim jak to pocitat. Snad podle sirky
> stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
> (snad v pixelech?) apod.
> Prosim, zkuste mi nekdo naznacit, kudy vede cesta, ci jestli
> je takova vec vubec mozna. (Pouzivam W95 a D3.)
> Diky
> Jozka
> jdanek(zv)fnbrno(tec)cz
>
Skus Canvas.TextWidth('text'). Vrati ti to sirku v pixeloch. Tak isto
je aj TextHeight. Sirku vrati podla aktualneho fontu v Canvase. iko
iko(zv)kamarad(tec)cz
sirka textu
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 21.9.1999 13:27:32
TCanvas.TextWidth
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: Iko [mailto:iko(zv)kamarad(tec)cz]
Odesl�no: 21. z��� 1999 13:06
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: sirka textu
> Ahojte,
>
> chtel bych formatovat text na vystupu napriklad tak, abych dosahl.
> neco jako novinovy sloupecek, kde znaky budou od kraje do kraje
> roztazeny. V textovem rezimu MS/DOSu se pocitaly znaky, protoze
> mely vsechny stejnou sirku. Ve Windows vsak maji stejnou sirku
> pouze znaky Fontu Courier.
> Jelikoz tedy kazdy znak ma pri ruzne velikosti a pouziti jineho
> typu Fontu ruznou sirku, nevim jak to pocitat. Snad podle sirky
> stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
> (snad v pixelech?) apod.
> Prosim, zkuste mi nekdo naznacit, kudy vede cesta, ci jestli
> je takova vec vubec mozna. (Pouzivam W95 a D3.)
> Diky
> Jozka
> jdanek(zv)fnbrno(tec)cz
>
Skus Canvas.TextWidth('text'). Vrati ti to sirku v pixeloch. Tak isto
je aj TextHeight. Sirku vrati podla aktualneho fontu v Canvase. iko
iko(zv)kamarad(tec)cz
sirka textu
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 21.9.1999 13:29:33
Pozri sa na TCanvas.TextWidth( s: String ):integer. Snad to pomoze.
jdanek(zv)fnbrno(tec)cz wrote:
> Ahojte,
>
> chtel bych formatovat text na vystupu napriklad tak, abych dosahl.
> neco jako novinovy sloupecek, kde znaky budou od kraje do kraje
> roztazeny. V textovem rezimu MS/DOSu se pocitaly znaky, protoze
> mely vsechny stejnou sirku. Ve Windows vsak maji stejnou sirku
> pouze znaky Fontu Courier.
> Jelikoz tedy kazdy znak ma pri ruzne velikosti a pouziti jineho
> typu Fontu ruznou sirku, nevim jak to pocitat. Snad podle sirky
> stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
> (snad v pixelech?) apod.
> Prosim, zkuste mi nekdo naznacit, kudy vede cesta, ci jestli
> je takova vec vubec mozna. (Pouzivam W95 a D3.)
> Diky
> Jozka
> jdanek(zv)fnbrno(tec)cz
Skusenosti s LOCAL SHARE
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 21.9.1999 13:34:33
Ja som skusil zapisat par viet v aplikacii v Delphach do Paradoxovskej tabulky, vypol som pocitac a ked som ho zapol, tie vety
tam boli (pri LOCAL SHARE=TRUE, BDE 4.5). Odvtedy nerobim zapis cez FlushBuffers, iba nastavujem LOCAL SHARE=TRUE, ale neviem,
ake sprievodne ucinky to este ma, pretoze v helpe sa o takomto fungovani nepise. Na akej verzii BDE si to skusal? Mozno ze na
starsich verziach BDE to nefungovalo - neviem...
Slavomir Skopalik wrote:
> Nedavno jsem to zkousel (pro jednu aplikaci, data se stratila vzdy!), jedinny zpusob jak zapsat data na disk je FlushBuffers,
> testoval jsem to takto: Pradox V3, delphi zapisovali a ja cetl pres nc5 (dbview). Data se tam neulozili.
> Pripoustim, ze to muze mit nekdy vliv, ale spolehat se na to neda.
> Local Shere slouzi pro sdileni DB mezi vice aplikaci (mezi BDE a nonBDE).
>
> Slavomir Skopalik
>
> -----P�vodn� zpr�va-----
> Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
> Odesl�no: 21. z��� 1999 7:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Skusenosti s LOCAL SHARE
>
> Slavomir Skopalik wrote:
>
> > Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi metoda FlusBuffers.
> >
> > Slavomir Skopalik
> >
>
> Tak to sa mylis - skus nastavit LOCAL SHARE na FALSE, zadat par riadkov v aplikacii a
> resetnut pocitac. Potom to skus s nastavenim na TRUE. LOCAL SHARE ma zasadny vplyv na
> ukladanie dat a sice ten, ze pri FALSE sa zmeny priamo na disk nezapisuju (po resete
> sa stratia vsetky riadky zapisane metodou POST).
>
> ------------------------------------------------------------------------
>
> Part 1.2 Type: application/ms-tnef
> Encoding: base64
Problem s prevodem z D4 do D5
[*] Ing. Jaroslav �ke��k - 21.9.1999 13:46:02
Prevedl jsem nektere programy z D4 do D5.
Vcelku nenastaly zadne problemy ... az na jeden vazny.
Bohuzel se mi vsak nepodarilo prijit na to, jak ho odstranit
nebo obejit. Proto se i touto cestou snazim zjistit,
zda-li ma nekdo podobny problem.
Jedna se o spolupraci DBGridu s formularem. Pro rychlejsi
zpusob zobrazovani se mi velmi osvedcilo nasledujici reseni.
DBGrid je pripojen na TQuery1, kde SELECT obshuje
seznam jenom vybranych polozek - tech co se ukazuji v tom DBGRIDU.
Ostatni polozky (zejmena Blob) se ukazuji na formulari (v DBText)
vedle toho DBGridu, vzdy pro jeden radek na nemz je ukazatel v DBgridu.
Aby to chodilo rychle, tak to zajistuji pomoci druheho TQuery2,
ktery je spojen s TQuery1 relaci 1:1 pres ID.
Je to zajisteno klasickou relaci pomoci parametru: WHERE ID = :ID
Vsechny objekty DBText jsou napojeny na TQuery2.
Do TQuery2 se tak natahuji vsechny polozky ale vzdy pouze
pro jediny radek. Kdyz delam napr. hledani (Locate),
tak odpojim relaci (datasource = nill) a po nalezeni ji zase pripojim.
Tahle konstrukce se mi velice osvedcila a pracuje to
opravdu rychle i s vetsimi objemy dat.
V D4 to funguje perfektne. V D5 to nefunguje, resp. funguje to jen nekdy.
Kdyz kliknu mysi na jiny radek v DBgridu, tak se mi vetsinou neaktualizuji
polozky v tech DBText-tech. Obcas se to ale provede dobre.
Pri pusunu kurzorem o jeden radek to funguje, ale pri delsim podrzeni,
uz zase ne. Refresch formulare umisteny v DataSource.OnDataChange
nepomaha. Nevim co s tim, nevim co je spatne.
Mozna to je chyba D5, kdyz to v D4 funguje dobre
Jaro
T�m
Procedura s parametrem v procedure na IB
[*] Pavel Bare� <Atoll(zv)telecom(tec)cz> - 21.9.1999 13:54:17
Lze nejak v konstrukci For Selec v procedure pouzit proceduru, ktera potrebuje parametr ?
Takto to nejde:
for select * from procedura (parametr) into .... do begin
dekuji za radu
Pavel Bare�
Atoll s.r.o.sirka textu
[*] Pavol Griga <paly(zv)sct.sk> - 21.9.1999 13:57:04
Funkcia TextExtent v triede TCanvas vrati rozmery stringu v pixeloch,
mozno Ti to pomoze.
Pavol Griga
>stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
>(snad v pixelech?) apod.
--- SQL --- !!!!!!!!!!!
[*] Ing. Jaroslav �ke��k - 21.9.1999 14:00:22
No ja bych to takto nerekl. Delphi ma svou implementaci SQL v BDE.
Nestaci pouze, aby to bylo podporovano urcitym serverem, musi to jeste
podporovat BDE. Ne vsechno, co umi nektere servery lze zajistit
pre BDE napojeni.
SQL pro lokalni tabulky je take veci BDE.
Kdyz se pripojujes na server pres TTable, tak je tu zase BDE,
ktere to prevede na SQL.
Jaro
> >SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len
> tupo
> >posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4",
ale
> "SQL
> >pre [Interbase, Oracle, Sybase atd]". Delphi ziadne prikazy SQL
> nepodporuju.
> >
>
> Dobre. A kde zjistim spravnou syntaxi pro SQL nad lokalno databazi, napr.
> Paradox? To neni zadny SQL Server, a presto to jede...
>
>
> >"Radim Tichy (VAIPE)" wrote:
> >
> >> Ahoj vsichni !
> >>
> >> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe)
o
> >> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> >> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu
je
> 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
>--- SQL --- !!!!!!!!!!!
[*] Radim Tich� (VAIPE) <tichyr(zv)vaipe(tec)cz> - 21.9.1999 14:05:01
Ahoj vsichni !
Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe) o
"SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu je mam
napsat. Napr. : klicove slovo "UPDATE" zvyrazni delphi tucne (to jako ze ho
zna), ale jeho detailni (vlastne zadny) popis v HELPU ani nikde jinde
nenajdu.
Zkousel jsem prepisovat nejake priklady z literatury o SQL obecne, ale
zadany prikaz neslo spustit (byla tam nejaka syntakticka chyba). Jaka to uz
jsem se nedozvedel.
Poslete mi nekdo prosim nejaky popis. PLEASE !!! Nebo alespon nejakou www ze
ktere buch to mohl stahnout.
Diky Radim
sirka textu
[*] Tomas Folprecht <tomas.folprecht(zv)iol(tec)cz> - 21.9.1999 14:08:17
> Jelikoz tedy kazdy znak ma pri ruzne velikosti a pouziti jineho
> typu Fontu ruznou sirku, nevim jak to pocitat. Snad podle sirky
> stringu. Nemohu vsak najit funkci, ktera by mi vratila sirku stringu
> (snad v pixelech?) apod.
A co tohle, to by ti nepomohlo?
TCanvas.TextExtent
TextExtent gives the width and height, in pixels, of a string rendered
in the current font.
function TextExtent(const Text: string): TSize;
TSize = record
cx: Longint;
cy: Longint;
end;
A pak jeste:
function TextWidth(const Text: string): Integer;
function TextHeight(const Text: string): Integer;
Ahoj
Tomas FOLPRECHT
Nutnost papirovych sestav
[*] Ing. Jaroslav �ke��k - 21.9.1999 14:11:45
Na papire musi byt pouze veskere dokumenty vyzadujici podpis, tj smlouvy,
objednavky, danove doklady, dodaci listy inventurni sestavy,
ktere podepisuje skladnik a inventurizacni komise a pod.
Vse ostatni jako ucetni knihy, vysledovky, prehledove sestavy atd.
muzete archivovat na magnetickem mediu.
Pri danove kontrole postaci vytisknout pozaovane informace na pozadani
kontroly. Mnozi kontrolori se casto spokoji i s nahledem do pocitace.
V kazdem pripade postaci tisk az v dobe kontroly.
Je to tedy pouze veci vasi duvery v el. media. Dle meho nazoru je
mnohem bezpecnejsi dobre zajisteny server a vypalene archivy na CD
uchovavane na ruznych mistech.
Jaro
> Ahoj,
> rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT
k
> dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
> Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k
dispozici
> elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire.
>
> Dik a sorry za OFF TOPIC.
> Leos
>
>Jeste k te klavesove zkratce Ctrl+\
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 14:32:58
Ahoj
Diky za radu (chyba byla u me)
Mam TreeView a v nem si odchytnu tu klavesovou zkratku Ctrl+\
Vse je OK, udelam co chci (zabalim vsechny rozbalene vetve) ale potom
to jeste pipne, coz se mi vubec nelibi.
Pritom Key nuluji hned na zacatku.
procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 220 then
begin
if ssCtrl in Shift then
begin
Key := 0;
TreeView1.FullCollapse;
end;
end;
end;
Muze mi nekdo vysvetlit proc to pipa a poradit jak to udelat, aby to
nepipalo?
Diky
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Web
[*] Luk� Zach <L.Zach(zv)Aquasoft(tec)cz> - 21.9.1999 14:44:01
Priklad z Delphi4 "\Demos\Internet\Http" znas? Nepomuze?
----------------------------
Lukas Zach
Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
----------------------------
-----Original Message-----
From: "Ing. Toma? Tominec" [mailto:tomas.tominec(zv)transgas(tec)cz]
Sent: Tuesday, September 21, 1999 8:16 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: Web
Ahoj,
stale otravuju s tim webem. Poradte nekdo - potreboval bych nejak pomoci
delphi 4 z web clienta dostat soubor (doc,txt) na web server. Na HTML
strance vyberu soubor pomoci <input type=file ...> mam ho v
request.content a nemohu ho dostat z request.content. A nevim co dal.
Dik za radu
Tomas
Chyby v D5
[*] Jaroslav S�pek - 21.9.1999 14:46:56
S podobnym problemem v D3 se setkavam dost casto, protoze vytvarim aplikaci
a urcite komponenty soucasne. Hlavne kdyz pridam nebo uberu nejakou
property. Resim to tak, ze kdyz danou komponentu zmenim, tak ji nejprve
odeberu z formulare, pak zkompiluji balicek a pak tu komponentu dam znova na
formular.
Pokud to tak neudelam, tak pri pokusu o zobrazeni formulare mi to napise
chybu, ze property neexistuje (coz se da ignorovat) nebo nize popsanou
chybu. Pak mi pomuze jedine rucne odstanit komponentu ze souboru .dfm.
Co se tyce inherited formularu, myslim si, ze rodicovky formular musi byt
otevreny proto, protoze v souboru .dfm inherited formulare jsou pouze zmeny
oproti rodicovskemu formulari.
Jaroslav Sipek
E-mail: jaroslav.sipek(zv)idea(tec)cz
Ahoj,
narazil jste uz nekdo na nasledujici chybu?
D5, W98:
Mam v projektu otevreny program a balicek zaroven. Udelam
zmeny v komponente z balicku, zkompiluji balicek. Preskocim na
urcity formular z programu a chci ho pomoci F12 zobrazit (nemusi
tam ani byt ladena komponenta) a misto formulare na me vybafne
hlaska "Access violation at address xxxx in module
CORIDE50.BPL. Read of address FFFFFFFF".
Formular je "inherited" jineho formulare. Pokud tedy otevru nejdrive
rodicovsky formular, pak ten potomek lze otevrit take. Uz jste se s
tim take nekdo setkal?
Posilani zprav
[*] Kovac <kovac(zv)pvt.sk> - 21.9.1999 15:22:27
--komponenta NMSMTP zo zalozky internet (Delphi4)
mMail:TNMSMTP;
begin
mMail.Host := 'ip adresa mail servera';
mMail.UserID := 'tvoje konto na mail serveri';
-- staci raz, ak posielas viac sprav v cykle
mMail.Connect;
while ... do begin
mMail.PostMessage.FromAddress := 'from';
mMail.PostMessage.ToAddress.Clear;
mMail.PostMessage.ToAddress.Add('x(zv)y');
...
mMail.PostMessage.Body.Clear;
mMail.PostMessage.Body.Add('sprava');
try
mMail.SendMail;
except
--osetrenie
end;
end;
Ak by si chcel vylepsit header mailu (charset, priority, atd),
tak napises obsluhu eventu OnSendStart:
procedure TfMail.mMailSendStart(Sender: TObject);
begin
-- teraz sa ale vymaze mMail.FromAddress a ToAddress,
-- ktore boli uvedene hore, preto musis zlozit kompletny header:
mMail.FinalHeader.Clear;
-- toaddress sa asi v cykle meni, preto
mMail.FinalHeader.Add('To: x(zv)y');
-- zvysok moze byt v nejakej sablone, ale bacha na to,
-- lebo zle skomponovany header by mohol ponicit cielove mailboxy
mMail.FinalHeader.AddStrings('Header template');
end;
-----Original Message-----
From: Brabec Tom� <brabec(zv)nym.pvt(tec)cz>
To: 'DELPHI-Konference' <delphi-l(zv)fwd(tec)cz>
Date: 21. september 1999 11:00
Subject: Posilani zprav
>Ahoj,
>Potreboval bych primo z programu poslat mail. Neco jsem nasel, ale bylo to
>jen neco v tom smyslu, ze musim pouzit komponentu SMTP a POP.
>Ja ale nevim jak a tak bych si dovolil poprosit o malou napovedu.
>
>Diky za kazdou radu a priklad by byl uplne super .
>
>Delphi 3.02 C/S; W-NT 4.00
>
>S pozdravem
> Tom
>
>Tom� Brabec
>PVT Nymburk, a.s.
>e_mail: Tomas.Brabec(zv)pvt(tec)cz
> brabec(zv)nym.pvt(tec)cz
>tel: 0325/513471 linka 639
>--- SQL --- !!!!!!!!!!!
[*] voltrr1.epr(zv)mail.cez(tec)cz - 21.9.1999 14:34:34
Podivej se do adresare BDE a najdi si tam soubor localsql.hlp.
Je tam popis SQL ktere lze pouzivat na lokalni tabulky a pro zakladni
prehled syntaxe
SQL to uplne dostacuje.
Pro slozitejsi veci jako jsou trigery a stored procedures je lepsi mit
dokumentaci od te ktere
firmy od ktere mas SQL server.
Radek V.> Ahoj vsichni !
> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe) o
> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> Poslete mi nekdo prosim nejaky popis. PLEASE !!! Nebo alespon nejakou www
ze
> ktere buch to mohl stahnout.
OFF: Nutnost papirovych sestav
[*] Ing. Jaroslav Ske��k - 21.9.1999 15:55:34
O prvotnich dokladech neni sporu, ale penezni denik si vytisknu az pri
kontrole.
Jedine co mi zakon krome radne evidence prvotnich dokladu narizuje,
je "prukazne vedeni ucetnictvi" dle zakona o ucetnictvi.
Podstatne jsou nalezitosti dane timto zakonem, ale formu si muzu zvolit..
Vse co je "prukazne" je pouzitelne.
U sestav (dokumentu) u nichz neni rozhodujici datum
vzniku, u nichz neni nutny original (zejmena z duvodu podpisu)
a daji se tisknout opakovane neexistuje jediny duvod, proc by se nemohly
vytisknout az na pozadani.
Zeptej se svoji manzelky, co by mi asi tak mohla namitnout, kdyz mesicni
uzaverku vytisknu pre ni. Povinnost prukazne evidence jsem splnil.
Krome toho existuje pouze rocni ucetni obdobi. Mesicni ucetni
uzaverky jsou jenom vnitrni zalezitosti podniku, ale nelze je vyzadovat.
To je opravdu legracni, kdyz ruzne mistni "urady" na to maji ruzny nazor,
- kdyz zakon je jenom jeden. To opravdu stavi jejich "kompetentnost"
do zvlastni pozice.
Bohuzel je to tak, ze mnoho kontroloru casto zbytecne vyzaduji hromady
tisku a staraji se tak jen o prosperitu papiren. U nas tomu tak nastesti
neni.
Jaro
> > rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI
BYT k
> > dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
> > Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k
dispozici
> > elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire
>
> Bohuzel Te musime zklamat, nebot ma draha chot (jinak to clenka
kontrolniho oddeleni mistniho financniho uradu) tvrdi ze:
>
> na papire nutne:
> zaverka (mesicni, rocni), obratova hlavni kniha, prvotni doklady
>
> Pri kontrole moznost vytisknout polozky obratu na jednotlivych uctech za
kontrolovane obdobi
>
> Nevim, zda jsem nejaky pojem nezkomolil a vse se tyka podvojneho
ucetnictvi. U jednoducheho je to analogicke.
> Za nejdulezitejsi se povazuji prvotni doklady (jejich ztrata se tresta)
> Podle zeny se muze stat to, ze se pozadavky jednotlivych uradu budou mirne
lisit, ale mistni urednice chteji to co jsem uvedl vyse.
>
> S pozdravem
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============
>
> ... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco
dela a je zcela zdarma :-)
>Jeste dotaz na PC Speaker
[*] Mojm�r <xmojmr(zv)volny(tec)cz> - 21.9.1999 16:40:30
procedure Sound(Hz:word);
procedure Delay(Ms:Word);
procedure NoSound;
const
silent:boolean=false;
sounding:boolean=false;
{=======================================================
Song Weng Sam
Blk 772,
Yishun Ave. 3,
#10-221,
Singapore 760772
======================================================}
procedure SetPort(address:word; value:byte);
begin
asm
mov DX, address
mov AL, Value
out DX, AL
end;
end;
function GetPort(address: Word): byte;
var
Value: Byte;
begin
asm
mov DX, address
in AL, DX
mov Value, AL
end;
result := Value;
end;
procedure Delay;
begin
if sounding and silent then exit;
Sleep(MS);
end;
procedure Sound;
var
B: Word;
begin
sounding:=true;
if silent then exit;
if Hz > 18 then begin
Hz := Word(1193181 div LongInt(Hz));
B := GetPort($61);
if (B and 3) = 0 then begin
SetPort($61, B or 3);
SetPort($43, $B6);
end;
SetPort($42, Hz);
SetPort($42, (Hz SHR 8));
end;
end;
procedure NoSound;
begin
sounding:=false;
if not silent then SetPort($61,GetPort($61) and $FC);
end;
initialization
if Win32Platform=VER_PLATFORM_WIN32_NT then silent:=true
end.--- SQL --- !!!!!!!!!!!
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 21.9.1999 17:08:12
Vrele bych doporucil podivat se na CD s Delphi do adresare s instalaci
Delphi1 a tam nekde najit
prirucky k InterBase ve formatu PDF (Acrobat reader). Uz si presne
nepamatuji, ktera to bola prirucka, ale jedna popisovala obecne SQL 89
(ne uplny, ale postacujici, urcite pro local SQL z BDE). Bylo tam
hodne prikladu, perfektni vysvetleni pojmu. Zatim jsem lepsi popis
pouzivani SQL nevidel nikde.
Neni to sice primo popis SQL v Delphi, ale jak ti nekdo radil najdes
si v Helpu LocalSQL a k jednotlivym prikazum muzes dostat opravdu
podrobne informace v spominane prirucce.
Jirka
-----P�vodn� zpr�va-----
>Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke
podobe) o
>"SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete
nemuzu
>prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu
je mam
>napsat. Napr. : klicove slovo "UPDATE" zvyrazni delphi tucne (to jako
ze ho
>zna), ale jeho detailni (vlastne zadny) popis v HELPU ani nikde jinde
>nenajdu.
>Zkousel jsem prepisovat nejake priklady z literatury o SQL obecne,
ale
>zadany prikaz neslo spustit (byla tam nejaka syntakticka chyba). Jaka
to uz
>jsem se nedozvedel.
>Poslete mi nekdo prosim nejaky popis. PLEASE !!! Nebo alespon nejakou
www ze
>ktere buch to mohl stahnout.
>
>Diky Radim
FindFirst
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 21.9.1999 17:15:06
>
> Watch okno pre SearchRec.Name mi dava '..'
To je prece v poradku, to je prvni z tech souboru, co muzes dostat.
Tom
Chyby v D5
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 17:36:45
Ahoj,
me se dost casto stava, ze kdyz vytvorim nejakou metodu
poklepanim na ovladaci prvek (treba tlacitko, ktere vygeneruje
OnClick), tak mi Delfinci telo vygeneruji mezi e a nd zaverecneho
endu (end.). Vyjimka byla, kdyz to udelali mezi en a d. :-) Ale s
touto chybkou jsem se setkaval i v D4SP3, tak nevim.. :-( Staci
odklepnout chybovou hlasku, pak to upravit rucne ve zdrojaku a je
klid.
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Sybase SQL
[*] Michal Hlav�� - 21.9.1999 17:50:48
Zdravim,
nevie niekto o konferencii ohladom Sybase SQL Anywhere
Dik
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Delphi 5 bug
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.9.1999 16:53:37
Puvodni zprava, kterou napsal Linhart Petr dne 21 Sep 99,:
> Opravte me, jestli se mylym, ale na Delphi99 Days ukazovali, ze se
> lokalizuji i formulare, takze Zbyskuv lokalizator neni jediny. Nechci
> hajit Borlandy, myslim ze lokalizator je lepsi a zda se mi ze to nekde
> odkoukali (ze by v cechach?).
To spis okoukali nekde jinde, protoze kdyby to okoukali od Zbyska,
tak by to bylo rozhodne lepsi, nez to je :)))
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 5 bug
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 18:19:57
Pavel Cisar wrote:
> >Opravte me, jestli se mylym, ale na Delphi99 Days ukazovali, ze se
> >lokalizuji i formulare, takze Zbyskuv lokalizator neni jediny. Nechci
> >hajit Borlandy, myslim ze lokalizator je lepsi a zda se mi ze to
> >nekde odkoukali (ze by v cechach?).
>
> ITS je pouze v baleni Enterprise. Ti co si vystaci s Profi balenim
> mohou pouzit Localizator, neb umi prakticky totez co ITS.
:-)) Mno, nevim, chlubit se nechci, ale mam takovy pocit, ze muj
Lokalizator toho umi podstatne vic.
Treba: udrzovat vice verzi prekladu jednoho vyrazu; vytvaret inverzni
slovniky (mejme anglicko-cesky, vytvorim si cesko-anglicky); ma
podstatne lepe vyreseny automaticky preklad; umi zamykat
jednotlive radky proti prekladu; .... atd.
A ted bonbonek: ITS nesnasi knihovnu Orpheus (patrne jednotku
OvcBase), nemluve o tom, ze vubec nezna tabulku retezcu ve stylu
TurboPower. Pri pokusu nacist formular s uvedenou jednotkou mi
Translation Manager vynada "ObjectTextToResource failed. File
saved <cesta>\Unit1.ERR_DFM". O kompilaci prelozeneho
projektu si tedy mohu nechat jen zdat. Dale nesnasi nektere dalsi
komponenty, ovsem trochu vice zakerne, zkousel jsem na
ApdComPort (AsyncPro). Vysledek je, ze prelozim, zkompiluji, ale
po spusteni program spadne na Runtime error 216 (nejspis chyba v
sestaveni resourcu, s tim jsem se na zacatku potykal take).
Kdo si nainstaloval RX komponenty a ma verzi Enterprise, necht si
radeji predem vyzkousi lokalizaci s ITS, nez se do neceho pusti.
Nebo je tu jeste jina varianta... :-)
Netvrdim, ze muj Lokalizator je zcela bez zaludnosti, ale takto
trivialni zalezitosti mam jiz vychytane. :-)
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
Win95
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 21.9.1999 17:41:39
jestli se nemylim, je to podle konce oznaceni verze:
.950
.950a
.950b (FAT32) = OSR2
.950b + USB support = OSR2.1
### Tibor Galik napsal dne 21 Sep 99, v 11:01 :
> viem, je to trochu mimo, ale ako zistim OSR verziu WIN95?
> Viem, ze vo vlastnostiach systemu za cislom verzie B-cko znamena OSR2.X,
> ale ake X to je to neviem. V MSDOS prompte na prikaz Ver dostanem verziu
> 4.00.1111, da sa to zistit z toho? A ked, tak ako?
>
> diky
>
> tg
>
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
prikaz v Query SQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 19:06:48
Ahoj,
a jsi napojeny na Sybase? Pokud ne, pak se ani nedivim. :-) Toto neni
standardni prikaz normy SQL, tedy to nepodporuji vsichni.
Slavek
> nefunguje mi pod Query SQL prikaz pro vystup do souboru
> output to. Napriklad
>
> select * from datab;
> output to 'vystup.txt'
>
> Vycetl jsem to u Sybase v Helpu, ale v Delphi3 mi to nefunguje
> a hl�s� chybu. Delam neco spatne nebo to takto nejde?
>
> Diky za kazdou odpoved. (Pouzivam W95 a D3.)
>
>
> Jozka
> jdanek(zv)fnbrno(tec)cz
>
>
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Threads - planovani zateze na zaklade vyuziti CPU
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 21.9.1999 19:28:04
Hi all,
kdyz uz jsme u tech threadu: potreboval bych na Gatesovi nejak vyloudit okamzitou hodnotu vyuziti CPU. Hodilo by se mi to pri planovani zateze pro thready bezici na pozadi.
bye pf, callnet(zv)telecom(tec)cz
Chyby v D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 20:16:13
Jaroslav S�pek wrote:
> S podobnym problemem v D3 se setkavam dost casto, protoze vytvarim
> aplikaci a urcite komponenty soucasne. Hlavne kdyz pridam nebo uberu
> nejakou property. Resim to tak, ze kdyz danou komponentu zmenim, tak
> ji nejprve odeberu z formulare, pak zkompiluji balicek a pak tu
> komponentu dam znova na formular. Pokud to tak neudelam, tak pri
> pokusu o zobrazeni formulare mi to napise chybu, ze property
> neexistuje (coz se da ignorovat) nebo nize popsanou chybu. Pak mi
> pomuze jedine rucne odstanit komponentu ze souboru .dfm. Co se tyce
> inherited formularu, myslim si, ze rodicovky formular musi byt
> otevreny proto, protoze v souboru .dfm inherited formulare jsou pouze
> zmeny oproti rodicovskemu formulari.
Tohle je ovsem o necem dost jinem. Od Delphi 4 je mozne otevrit
najednou vice projektu v jedne instanci Delphi. Formular mi hlasi
chybu i v pripade, ze na nem zadna komponenta z kompilovaneho
balicku neni.
----------------
> Formular je "inherited" jineho formulare. Pokud tedy otevru nejdrive
> rodicovsky formular, pak ten potomek lze otevrit take. Uz jste se s
> tim take nekdo setkal?
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
D5 a barvy
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 20:16:13
Ahoj,
kdyz se snazim zalistovat v nejake komponente ve vlastnosti Color
az na konec, vzdy mi to vraci chybu 'clCream' is not a valid integer
value. Dale to pokracuje pres clMoneyGreen a clSkyBlue. Mate
tento problem take?
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
Threads - planovani zateze na zaklade vyuziti CPU
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 20:53:57
Ahoj,
to uz tu bylo (myslim, ze Petr Vones):
function GetCPULoad:longint;
var reg:Tregistry;
b:longint;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_DYN_DATA;
reg.OpenKey('\PerfStats\StatData',false);
reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
reg.CloseKey;
reg.Free;
result:=b;
end;
Ale dej pozor, at tvoje aplikace nedela nic jineho nez prepina
prioritu vlaken. CPU zere malo -> zvysime prioritu -> CPU zere
moc -> snizime prioritu -> CPU zere malo -> ...
Slavek
> Hi all,
>
> kdyz uz jsme u tech threadu: potreboval bych na Gatesovi nejak vyloudit
> okamzitou hodnotu vyuziti CPU. Hodilo by se mi to pri planovani zateze pro
> thready bezici na pozadi.
>
> bye pf, callnet(zv)telecom(tec)cz
>
>
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
D5 a barvy
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 20:59:12
Ahoj,
co to znamena "nejaka komponenta"? Zkousel jsem TShape,
TLabel a dokonce i TForm a ani jedna z Tebou uvedenych barev
tam neni.
Slavek
> Ahoj,
>
> kdyz se snazim zalistovat v nejake komponente ve vlastnosti Color
> az na konec, vzdy mi to vraci chybu 'clCream' is not a valid integer
> value. Dale to pokracuje pres clMoneyGreen a clSkyBlue. Mate tento problem
> take?
>
>
> S pozdravem
>
> Zbysek Hlinka
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Threads - planovani zateze na zaklade vyuziti CPU
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 21.9.1999 21:12:05
Zkus pouzit ToolHelp API - unita TlHelp32. Struktura TThreadEntry32
obsahuje cntUsage, co to je nevim ale mohlo by to pomoct.
> kdyz uz jsme u tech threadu: potreboval bych na Gatesovi nejak vyloudit
okamzitou hodnotu vyuziti CPU. Hodilo by se mi to pri planovani zateze pro
thready bezici na pozadi.
Skusenosti s LOCAL SHARE
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 21.9.1999 21:42:38
Ahoj,
podle chovani nekterych mych programu v praxi mi pripada, jako by ten
pad dat byl zavisly i na velikosti (paradoxich) souboru DB. Na jedne
aplikaci mam par souboru v DB, ktere nepresahnou velikost cca 300 kB a
jeden velikosti asi 1,4MB a vsechny jsou po padu programu nebo systemu
vporadku, i kdyz se s nima v te dobe pracuje, jenom ten nejvetsi je
vzdy poskozeny i pri LOCAL SHARE na TRUE.
Honza Naiser.
----- P�vodn� zpr�va -----
Od: Slavomir Skopalik <skopalik(zv)atlas(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 21. z��� 1999 12:25
P�edm�t: RE: Skusenosti s LOCAL SHARE
Nedavno jsem to zkousel (pro jednu aplikaci, data se stratila vzdy!),
jedinny zpusob jak zapsat data na disk je FlushBuffers,
testoval jsem to takto: Pradox V3, delphi zapisovali a ja cetl pres
nc5 (dbview). Data se tam neulozili.
Pripoustim, ze to muze mit nekdy vliv, ale spolehat se na to neda.
Local Shere slouzi pro sdileni DB mezi vice aplikaci (mezi BDE a
nonBDE).
Slavomir Skopalik
-----P�vodn� zpr�va-----
Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
Odesl�no: 21. z��� 1999 7:47
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Skusenosti s LOCAL SHARE
Slavomir Skopalik wrote:
> Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi
metoda FlusBuffers.
>
> Slavomir Skopalik
>
Tak to sa mylis - skus nastavit LOCAL SHARE na FALSE, zadat par
riadkov v aplikacii a
resetnut pocitac. Potom to skus s nastavenim na TRUE. LOCAL SHARE ma
zasadny vplyv na
ukladanie dat a sice ten, ze pri FALSE sa zmeny priamo na disk
nezapisuju (po resete
sa stratia vsetky riadky zapisane metodou POST).
prikaz v Query SQL
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.9.1999 21:47:46
Podla mne ak je v dokumentaci Sybase tak to musi ist.
Napr takto:
with Query1 do begin
Sql.Clear;
SQl.add('Select * from DB output to File');
ExecSQL; // nie open lebo nema vratit nic
end;
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. september 1999 19:45
P�edm�t: Re: prikaz v Query SQL
>Ahoj,
>
>a jsi napojeny na Sybase? Pokud ne, pak se ani nedivim. :-) Toto neni
>standardni prikaz normy SQL, tedy to nepodporuji vsichni.
>
>Slavek
>
>> nefunguje mi pod Query SQL prikaz pro vystup do souboru
>> output to. Napriklad
>>
>> select * from datab;
>> output to 'vystup.txt'
>>
>> Vycetl jsem to u Sybase v Helpu, ale v Delphi3 mi to nefunguje
>> a hl�s� chybu. Delam neco spatne nebo to takto nejde?
>>
>> Diky za kazdou odpoved. (Pouzivam W95 a D3.)
>>
>>
>> Jozka
>> jdanek(zv)fnbrno(tec)cz
>>
>>
>
>
>----------------------------------------------
>http://atrey.karlin.mff.cuni(tec)cz/~rk
>----------------------------------------------
>TreeView
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.9.1999 21:59:09
Ake ma obmedzenia TreeView?
Mam rozsiahlu tabulku (100 000 viet)
a potrebujem zobrazit tabulku ako strom.
Je mozne pouzit TreeView ? Neviem ci zvladne tolko recordov?
Viete otom nieco20
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
D5 a barvy
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1999 22:01:43
Slavek Rydval wrote:
> co to znamena "nejaka komponenta"? Zkousel jsem TShape,
> TLabel a dokonce i TForm a ani jedna z Tebou uvedenych barev
> tam neni.
Aha, uz jsem na to prisel. Tyhle barvy se tam snazi nahrat
Orpheus, ale nejak se to Delpham 5 nelibi.
> >
> > kdyz se snazim zalistovat v nejake komponente ve vlastnosti Color az
> > na konec, vzdy mi to vraci chybu 'clCream' is not a valid integer
> > value. Dale to pokracuje pres clMoneyGreen a clSkyBlue. Mate tento
> > problem take?
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
prikaz v Query SQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.9.1999 22:32:12
Ahoj,
Ale znovu se ptam, jsi opravdu na Sybase spravne napojen?
Slavek
> Podla mne ak je v dokumentaci Sybase tak to musi ist.
> Napr takto:
> with Query1 do begin
> Sql.Clear;
> SQl.add('Select * from DB output to File');
> ExecSQL; // nie open lebo nema vratit nic
> end;
>
> TUNGLI J�nos
> EMail: jan.tungli(zv)seznam(tec)cz
> My Home Page: http://free.netlap.hu/4321/
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Threads - planovani zateze na zaklade vyuziti CPU
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.9.1999 22:42:24
Mojmir Nimeeek wrote:
>
> Zkus pouzit ToolHelp API - unita TlHelp32. Struktura TThreadEntry32
> obsahuje cntUsage, co to je nevim ale mohlo by to pomoct.
Ahoj,
cntUsage je pocitadlo referenci na thread, takze to asi nebude ono. Pod
Win95 neco takoveho umi WinTop, ktery ale pouziva vlastni VxD. Pod NT by
mozna mohla pomoct funkce GetThreadTimes.
--
Petr Vones, amatersky programator
Skusenosti s LOCAL SHARE
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 21.9.1999 22:46:03
Slavomir Skopalik wrote:
>
> Nedavno jsem to zkousel (pro jednu aplikaci, data se stratila vzdy!), jedinny zpusob jak zapsat data na disk je FlushBuffers,
> testoval jsem to takto: Pradox V3, delphi zapisovali a ja cetl pres nc5 (dbview). Data se tam neulozili.
> Pripoustim, ze to muze mit nekdy vliv, ale spolehat se na to neda.
> Local Shere slouzi pro sdileni DB mezi vice aplikaci (mezi BDE a nonBDE).
S BDE se potykam jiz od 16b verze s Paradoxem 5 a 7. Pokud nenastavis
LOCAL SHARE na TRUE nefunguje ani sdileni dat. To znamena pokud otevru
jednu tabulku ze dvou aplikaci a potom v jedne udelam zmeny ulozim na
disk tak v pripade LOCAL SHARE na FALSE neuvidim na druhe aplikaci zmenu
dokud tabulku znovu neotevru. Ve starem (5) paradoxu bylo v helpu
uvedeno, ze LOCAL SHARE znamena sdileni lokalnich tabulek. a ze na FALSE
se smi dat jen tehdy pokud k tabulce pristupuje vzdy jen jeden uzivatel.
v BDE se totiz asi pod pojmem LOCAL ukryva i sitovy provoz nad tabulkami
Paradox. (viz LOCAL SQL). Takze ja kdyz v dokumentaci vidim LOCAL
prirazuji si tenhle pojem vzdy k tabulkam PARADOX (mozna i DBASE ale s
temi nedelam) a to i ve viceuzivatelskem nebo chces-li sitovem priszupu
k tabulkam.
eL..
TThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.9.1999 22:52:49
Martin Galik wrote:
>
> Zdar!
> ide o to, ze to nesmie byt synchronizovane (musi to bezat spolu v tom istom
> okamihu a nie za sebou). Robym vlastne komunikaciu cez com port a potrebujem
> aby sucastne islo viac portov naraz, zatial sa mi to podarilo vzdy len tak,
> ze sa nejak zosynchronizovali a isli za sebou, ale to je uplne nevyhovujuce,
> lebo komunikacia jednym portom moze trvat aj niekolko minut (na komunikaciu
> s portom som pouzil komponentu TComPort alebo AsynFree-zakazdym mi to islo
> po sebe).
Ahoj,
Pokud mas z obou portu pomerne velky tok dat, tak budes muset zobrazovani
udelat tak, ze ti v jedne udalosti zobrazi maximalne N znaku misto celeho
bufferu a zbytek zustane v bufferu pro pristi zobrazeni. Coz ale muze v
nepriznivem pripade vest k tomu, ze to zobrazovani nebude stihat a casem
se ti buffer preplni (pokud nepouzivas potvrzovaci protokol). Jakou mas
rychlost na tech obou portech ?
--
Petr Vones, amatersky programator
TThread
[*] Petr Ga�ourek <gadourek(zv)centrum(tec)cz> - 21.9.1999 22:52:38
Ahoj,
mohl by nekdo z vas,kdo pouziva Delphi 5, sdelit, zda ma smysl vym�nit D4
Standart za D5 Standart. Jde mi hlavne navaznost na Win2000. Nebude do
budoucna problem s programy v D4 ve Win2000?
D�ky Petr Gadourek
Chyby v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.9.1999 22:53:38
Slavek Rydval wrote:
> me se dost casto stava, ze kdyz vytvorim nejakou metodu
> poklepanim na ovladaci prvek (treba tlacitko, ktere vygeneruje
> OnClick), tak mi Delfinci telo vygeneruji mezi e a nd zaverecneho
> endu (end.). Vyjimka byla, kdyz to udelali mezi en a d. :-) Ale s
> touto chybkou jsem se setkaval i v D4SP3, tak nevim.. :-( Staci
> odklepnout chybovou hlasku, pak to upravit rucne ve zdrojaku a je
> klid.
Ahoj,
Klasika, tohle uz se deje tusim od Delphi 2 :-) Nejhorsi je, ze se mi zatim
nepodarilo najit situaci kdy to udela vzdycky, chova se to dost nahodile.
--
Petr Vones, amatersky programator
Skusenosti s LOCAL SHARE
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 21.9.1999 22:53:11
Slavomir Skopalik wrote:
>
> Zalezi na podminkach, je docela nebezbecny nechat si jinou aplikaci menit zpracovavana data.
> Tento system nezna Transakce !
>
Castecne ano, i kdyz se to s tema "dospelejma" neda uplne srovnat.
Jinak samozrejme s tim musis pocitat jako na kterekoliv souborove
databazi a pouzit primarni klice aby se dalo vkladat, nechat BDE
blokovat zaznam a pravidelne refreshovat tabulky abys mel stale aktivni
udaje (coz je jiz spolecny problem vseho).
I tak na tom proste desitky uzivatelu behat nemuzou.
eL..CreateThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.9.1999 22:55:41
Ivan Zernovac wrote:
> >Na tohle pozor, v Delphi by jsi nemel nikdy volat primo CreateThread
> Nehadam sa, je to mozne, ale ja som s CreateThread nemal nikdy ziadne
> problemy. Ani moj znamy, ktory je profesionalny programator v Kanade. A
> v knihe Teach yourself Delphi 2 in 21 days je priklad s CreateThread. A
> tu knihu reviewvoval Lloyd Linklater.
Ahoj,
Problem je v tomhle. Pokud pred tim explicitne nenastavis globalni promennou
IsMultiThread na True (coz prave dela BeginThread) a pak v kodu v threadu
pouzivas pro alokace pameti standartni Delphi memory manager, tak se ti to
muze lehce slozit.
--
Petr Vones, amatersky programator
BDE 510
[*] cis(zv)atlas(tec)cz - 21.9.1999 23:04:02
Zkousel jiz nekdo BDE 510?
Ales Dana
CIS. s.r.o.Vicenasobne volani stejneho okna s ruznymi daty
[*] Petr Ga�ourek <gadourek(zv)centrum(tec)cz> - 21.9.1999 23:11:21
Diky za rady. Pokusim se s tim poprat, ale potreboval bych jeste nakopnout s
jednou veci.
Z hlavniho okna jsem otevrel nekolik oken (Create, Show), jedno okno uzavru
(neni AutoCreateForms a OnClose - Action:=caFree) a ted potrebuji do
hlavniho okna predat zmenene parametry, ktere v nem ukladam. Zatim to resim
pres soubory na disku (kazde okno ma vlastni soubor), ktere pri aktivovani
hlavniho okna nacitam a ukladam.
Petr
Chyba v grid.pas?
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 21.9.1999 23:29:29
[P��loha v souboru: chyba.zip]
Udelal jsem si vlastni verzi dbGridu, ktera automaticky upravuje
sirky sloupcu, aby to vyslo akorat. Nakonec jsem narazil na
problem v pripade, ze jsem v nem mel sloupce a posledni z nich
byl neviditelny. Po par ztracenych hodinach si myslim, ze chyba je
u Borlandu v grid.pas. V priloze (je jen 2kb) jsem si dovolil prilozit
priklad, ktery demonstruje, ze stejne se chova i originalni dbgrid.
(testoval jsem to na 5.0, 4.0 momentalne nemam u sebe).
Chybne chovani spociva v tom, ze pri rolovani se okno
neprekresluje, nebo se prekresluje spatne. Casti okna k
prekresleni se urcuji v metode Scroll a to vola metodu
BoxRect , ktera ma prevest oblast vyjadrenou v bunkach na rect
canvasu. Tato metoda vracela v pripadech chyby nulovou delku.
Misto, kde nastala chyba (?) je uvedeno v souboru chyba.pas.
Pri pocitani sirky oblasti se nezapocte posledni (neviditelny)
sloupec. a protoze neviditelny sloupec vraci jako sirku -1 vyjde v
dusledku toho celkova sirka oblasti o jednicku vetsi nez rozsah
klienta. To se testuje a v takovem pripade funkce vraci nulu
(proc??, ocekaval bych spis ze vrati max. sirku, ale mozna to ma
duvod).
Pokud budete mit nekdo naladu, prosil bych o overeni. Jde-li
opravdu o chybu, snad to nekomu usetri cas ( me to sezralo cele
odpoledne).
Mimochodem pozoruhodne chovani fce Register, ktera je pseudo
case sensitiv pretrvalo do verze 5.0.
Jiri Binder
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: chyba.zip
Date: 21 Sep 1999, 23:04
Size: 2446 bytes.
Type: ZIP-archive
Direktivum pro D5
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 21.9.1999 23:45:08
>kdo vi jake je direktivum verze pro D5
>{$DEFINE VER???}
Vseobecne plati directivum sa obsadzuje podla cisla verzie kompileru
.
.
.
DELPHI 4 = 120
DELPHI 5 = 125 // mam betu takze na ostrej si to racej over , je to program
dcc32
Ivan Turcan
TThread
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 21.9.1999 21:59:44 pdt
Zdar.
No tie rychlosti budu 9600 a viac.
Chcel by som to vyriesit nejakym jednoduchym sposobom, ale ako vidim to asi
nepojde. Asi to spravym ako dva nezavysle exe programi s tym, ze informacie
si budu predavat bud pomocou message -sov, alebo cez nejaky subor.
Zatial vdaka.>From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: delphi-l(zv)fwd(tec)cz
>Subject: Re: TThread
>Date: Tue, 21 Sep 1999 22:52:49 +0200
>
>Martin Galik wrote:
> >
> > Zdar!
> > ide o to, ze to nesmie byt synchronizovane (musi to bezat spolu v tom
>istom
> > okamihu a nie za sebou). Robym vlastne komunikaciu cez com port a
>potrebujem
> > aby sucastne islo viac portov naraz, zatial sa mi to podarilo vzdy len
>tak,
> > ze sa nejak zosynchronizovali a isli za sebou, ale to je uplne
>nevyhovujuce,
> > lebo komunikacia jednym portom moze trvat aj niekolko minut (na
>komunikaciu
> > s portom som pouzil komponentu TComPort alebo AsynFree-zakazdym mi to
>islo
> > po sebe).
>
>Ahoj,
>
>Pokud mas z obou portu pomerne velky tok dat, tak budes muset zobrazovani
>udelat tak, ze ti v jedne udalosti zobrazi maximalne N znaku misto celeho
>bufferu a zbytek zustane v bufferu pro pristi zobrazeni. Coz ale muze v
>nepriznivem pripade vest k tomu, ze to zobrazovani nebude stihat a casem
>se ti buffer preplni (pokud nepouzivas potvrzovaci protokol). Jakou mas
>rychlost na tech obou portech ?
>
>--
>
> Petr Vones, amatersky programator
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
BDE 510
[*] Libor V�trovec <vetrak(zv)hotmail(tec)com> - 21.9.1999 23:00:30 pdt
Ano nad MSAcess 97 a je to �patn� aplikace mi p�estali chodit hl�s� mi
nesmysln� hl�ky
>From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
>Subject: RE: BDE 510
>Date: Wed, 22 Sep 1999 07:02:43 +0200
>
>Ano. Ale zatim jen letmo nad PARADOXem.
>
>P�kny den a pilotum mnoho stastnych pristani...
>====================================
>ML Software - Martin Lasevic
>Budovatelska 459
>Ostrava - Poruba, 708 00
>tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
>fax.: +420 (69) 691 85 11
>E-mail : ml_software(zv)email(tec)cz
>WWW: http://cement.fmi(tec)cz/ml_software
>====================================
>
>
>
> > Zkousel jiz nekdo BDE 510?
> >
> > Ales Dana
> > CIS. s.r.o.
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Chyba v grid.pas?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 22.9.1999 01:45:06
Uz ma dlhsi cas trapi tato chyba, ovsem
tvoj riadok (kde je chyba) nenasiel som v Grid.pas
Mam D2 a D3.
Ak mi mozes poradit ako to odstanit budem dacny.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
-----P�vodn� zpr�va-----
Od: Jiri Binder <j.binder(zv)albacon(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. september 1999 0:42
P�edm�t: Chyba v grid.pas?
Udelal jsem si vlastni verzi dbGridu, ktera automaticky upravuje
sirky sloupcu, aby to vyslo akorat. Nakonec jsem narazil na
problem v pripade, ze jsem v nem mel sloupce a posledni z nich
byl neviditelny. Po par ztracenych hodinach si myslim, ze chyba je
u Borlandu v grid.pas. V priloze (je jen 2kb) jsem si dovolil prilozit
priklad, ktery demonstruje, ze stejne se chova i originalni dbgrid.
(testoval jsem to na 5.0, 4.0 momentalne nemam u sebe).
Chybne chovani spociva v tom, ze pri rolovani se okno
neprekresluje, nebo se prekresluje spatne. Casti okna k
prekresleni se urcuji v metode Scroll a to vola metodu
BoxRect , ktera ma prevest oblast vyjadrenou v bunkach na rect
canvasu. Tato metoda vracela v pripadech chyby nulovou delku.
Misto, kde nastala chyba (?) je uvedeno v souboru chyba.pas.
Pri pocitani sirky oblasti se nezapocte posledni (neviditelny)
sloupec. a protoze neviditelny sloupec vraci jako sirku -1 vyjde v
dusledku toho celkova sirka oblasti o jednicku vetsi nez rozsah
klienta. To se testuje a v takovem pripade funkce vraci nulu
(proc??, ocekaval bych spis ze vrati max. sirku, ale mozna to ma
duvod).
Pokud budete mit nekdo naladu, prosil bych o overeni. Jde-li
opravdu o chybu, snad to nekomu usetri cas ( me to sezralo cele
odpoledne).
Mimochodem pozoruhodne chovani fce Register, ktera je pseudo
case sensitiv pretrvalo do verze 5.0.
Jiri Binder
BDE 510
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1999 02:20:31
Puvodni zprava, kterou napsal cis(zv)atlas(tec)cz dne 21 Sep 99,:
> Zkousel jiz nekdo BDE 510?
Ja ho nainstaloval, nic se nedeje, funguje to :)))
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
TreeView
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 22.9.1999 05:09:23
nevite nekdo, jak se zbavit hintu objevujiciho se nad
jednotlivymi uzly v TTreeView20
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
Tree View - cudne chovani
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 22.9.1999 05:16:02
Ak pouzijem uvedenu metodu na Drag&Drop - obcas sa stane ze TreeView
neprekopiruje len ale aj duplikuje.
Robim nieco zle?
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X,Y: Integer);
var
mSelected, mTarget: TTreeNode;
begin
mSelected := (Sender as TTreeView).Selected;
mTarget := (Sender as TTreeView).DropTarget;
if (mSelected = nil) or (mTarget = nil) then Exit;
if not mTarget.HasAsParent(mSelected) then mSelected.MoveTo(mTarget, naAddChild);
end;
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
Language Driver
[*] Bednar��k Dalibor - 22.9.1999 06:20:45
Ahoj...
Mam takovej dotaz.
Jak se resi pristup k databazim s ruznym kodovanim cestiny ale stejnym typem.
Priklad:
Dejme tomu, ze mam na serveru dva adresare se soubory DBF(FOXPRO), ale jeden je v 852 a druhy ve 1250.
BDE 510
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 22.9.1999 07:02:43
Ano. Ale zatim jen letmo nad PARADOXem.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> Zkousel jiz nekdo BDE 510?
>
> Ales Dana
> CIS. s.r.o.Chyby v D5
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 22.9.1999 07:42:31
>>>> Petr Vones <pvones(zv)mbox.vol(tec)cz> 09/21 10:53 >>>
>>Slavek Rydval wrote:
>> me se dost casto stava, ze kdyz vytvorim nejakou metodu
>> poklepanim na ovladaci prvek (treba tlacitko, ktere vygeneruje
>> OnClick), tak mi Delfinci telo vygeneruji mezi e a nd zaverecneho
>> endu (end.). Vyjimka byla, kdyz to udelali mezi en a d. :-) Ale s
>> touto chybkou jsem se setkaval i v D4SP3, tak nevim.. :-( Staci
>> odklepnout chybovou hlasku, pak to upravit rucne ve zdrojaku a je
>> klid.
>Ahoj,
>Klasika, tohle uz se deje tusim od Delphi 2 :-) Nejhorsi je, ze se mi zatim
>nepodarilo najit situaci kdy to udela vzdycky, chova se to dost nahodile.
Mn� zase (v D4) nahodile, ale dost �asto, kdy� si pot�ebuji prohl�dnout star�� k�d a otev�u unitu v Delphi, tak mi na n� p�i kompilaci zahl�s� chybu, co� je samoz�ejmn� vet�inou se v n� odkazuji na unity, kter� nejsou v projektu, ale pro� to sakra kompiluje, kdy� to k projektu nepat��. Nebo, kdy� nedej bo�e otev�u unitu stejn�ho jm�na, to mi pak brut�ln� sk��e do n� a n� do t� co je v projektu. N�kdy pom��e tu unitu zav��t, ale v�t�inou to jist� shozen� Delph�n. :-((( M&B
Petr Vones a listbox na DD99
[*] Ing. J�n Kuch�r�����!j��G - 22.9.1999 08:13:46
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
takto som to vedel aj ja, ale povedzme ze ziadne slovo nieje dlhsie ako sirka listboxu, ale tento prikaz aj tak tam prida posuvnu listu, ja by som potreboval, ale vediet taky prikaz, ktory tam tu listu da iba ked je sirka slova vacsia ako sirka listboxu
-----P�vodn� zpr�va-----
Od: Daniel Resler - ATC Group <daniel resler(zv)atcgroup(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. september 1999 15:57
P�edm�t: Re: Petr Vones a listbox na DD99
No musi se zavolat jedna funkce:
ListBox1.Perform(LB SETHORIZONTALEXTENT,sirka,0);
Tato metoda posila zpravu ListBoxu Windows. Treti parametr 0 je nepouzity parametr ! Jinak doporucuji zjistit delku nejvetsiho retezce v bodech a to funkci ListBox1.Canvas.TextWidth(Items[i]) treba v cyklu for !
Daniel Resler
----- Original Message -----
From: Ing. J�n Kuch�r
To: Delphi konferencia
Sent: Monday, September 20, 1999 9:24 AM
Subject: Petr Vones a listbox na DD99
Cau
mohol by si mi este raz zopakovat ako sa prida do listboxu horizontalny posuvnik, (ukazoval si to na prezentacii )
dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk Lokalizace Interbase
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 22.9.1999 08:33:25
Zdravim,
myslim, ze to tady uz jednou bylo, ale v archivu jsem nic nenasel. Nevite
nekdo o moznosti lokalizovat soubor Interbase.MSG
Diky
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
Funkce Oracle LPAD(x,y,z) do MS SQL
[*] mbartone(zv)Synthesia(tec)cz - 22.9.1999 08:38:00
Ahoj,
obracim se s prozbou jak by se dala prepsat funkce z Oracle
LPAD(DOPLUDAJ,10,'0') - Vrati retezec DOPLUDAJ dorovnany zleva '0' na delku 10
znaku
do MS SQL
ORACLE
create or replace view O_NYSVL_TMP as
select DLVCIS,DOPLPOR,DOPLKOD,
TO_NUMBER('2' || RTRIM(LPAD(DOPLUDAJ,10,'0'))) DOPLUDAJ,
LISTDRUH,LISTCIS,DOPLVZ,DOPLZM
from NYSVL135
WHERE LENGTH(TO_CHAR(DOPLUDAJ))<11
AND DOPLKOD=93
UNION
select DLVCIS,DOPLPOR,DOPLKOD,DOPLUDAJ,
LISTDRUH,LISTCIS,DOPLVZ,DOPLZM
from NYSVL135
WHERE LENGTH(TO_CHAR(DOPLUDAJ))=11
AND DOPLKOD=93;
MS SQL
if exists (select * from sysobjects where id = object_id(N'O_NYSVL_TMP') and
OBJECTPROPERTY(id, N'IsView') = 1)
drop view O_NYSVL_TMP
GO
create view O_NYSVL_TMP as
select DLVCIS,DOPLPOR,DOPLKOD,
CONVERT(numeric,'2'+RTRIM(DOPLUDAJ)) DOPLUDAJ,
LISTDRUH,LISTCIS,DOPLVZ,DOPLZM
from NYSVL135
WHERE LEN(CONVERT(char,DOPLUDAJ))<11
AND DOPLKOD=93
UNION
select DLVCIS,DOPLPOR,DOPLKOD,DOPLUDAJ,
LISTDRUH,LISTCIS,DOPLVZ,DOPLZM
from NYSVL135
WHERE LEN(CONVERT(char,DOPLUDAJ))=11
AND DOPLKOD=93
GO
Dekuji
Milan
Thread a modalni okno
[*] Tom� Br�dle������i�^����? - 22.9.1999 08:40:24
Zdravim vsechny,
mam taky dotaz ohledne threadu. Pouzivam formular, ve kterem mi bezi nekolik
threadu (VCL TThread). Z tohoto threadu (podle podminek) potrebuji zavolat
modalni okno k tomu formu. Provadim synchronizaci pres sendmessage tomu
formu (nevim, jestli to tak muze byt, ale TThread pouziva neco podobneho, a
zatim to chodi).
Problem je v tom ze zavolane modalni okno vubec neni modalni k tomu formu,
ale objevi se mi na taskbaru dalsi tlacitko, jakoby se melo jednat o dalsi
aplikaci. Chci se tedy zeptat, jestli nedelam neco spatne, jak by se dalo
docilit modalnosti k vychozimu formulari.
diky
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
--- SQL --- !!!!!!!!!!!
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 08:46:36
SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len tupo
posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4", ale "SQL
pre [Interbase, Oracle, Sybase at�]". Delphi ziadne prikazy SQL nepodporuju.
"Radim Tich� (VAIPE)" wrote:
> Ahoj vsichni !
>
> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe) o
> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu je mam
> napsat. Napr. : klicove slovo "UPDATE" zvyrazni delphi tucne (to jako ze ho
> zna), ale jeho detailni (vlastne zadny) popis v HELPU ani nikde jinde
> nenajdu.
> Zkousel jsem prepisovat nejake priklady z literatury o SQL obecne, ale
> zadany prikaz neslo spustit (byla tam nejaka syntakticka chyba). Jaka to uz
> jsem se nedozvedel.
> Poslete mi nekdo prosim nejaky popis. PLEASE !!! Nebo alespon nejakou www ze
> ktere buch to mohl stahnout.
>
> Diky Radim
Install packages v D5
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 08:49:22
Vazeny stastni majitelia D5,
vyskusajte, prosim, ci sa da v D5 odinstalovat packages. Skusal som to v D5
Enterprise Trial a vzdy, ked som odinstaloval niekolko balickov, Delphi padli
(raz som musel pocitac resetovat tlacidlom, lebo stuhol uplne (Win95) a raz mi
Trial verzia ohlasila, ze uz expirovala...). Ak takto veselo pada aj ostra
verzia, oplati sa ostat pri D3.
DBgrid velkost,copy,paste
[*] olej.jozef(zv)slsp.sk - 22.9.1999 08:53:21
Ahoj,
Chcel by som sa opytat ci nema niekto skusenosti z :
-Mam v D3 fromular s WindowsState wsMaximized a na nom DBgrid s Align
allBottom ak to spustim na 1024x768 tak mi zostane
prazda diera medzi DBgridom a Buttons co su na panely v hornej casti fromsu.
Existuje moznost aby sa grid tiez natiahol smerom nahor?
- Ako je najjednoduchsie spravit Copy,Paste z gridu?
Dakujem
Jozef
Chyby v D5
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.9.1999 08:54:06
> -----P�vodn� zpr�va-----
> Od: Martin Bab�k [SMTP:M.Babik(zv)mus(tec)cz]
> Odesl�no: 22. z��� 1999 7:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Chyby v D5
>
>
>
> >>>> Petr Vones <pvones(zv)mbox.vol(tec)cz> 09/21 10:53 >>>
> >>Slavek Rydval wrote:
>
> >> me se dost casto stava, ze kdyz vytvorim nejakou metodu
> >> poklepanim na ovladaci prvek (treba tlacitko, ktere vygeneruje
> >> OnClick), tak mi Delfinci telo vygeneruji mezi e a nd zaverecneho
> >> endu (end.). Vyjimka byla, kdyz to udelali mezi en a d. :-) Ale s
> >> touto chybkou jsem se setkaval i v D4SP3, tak nevim.. :-( Staci
> >> odklepnout chybovou hlasku, pak to upravit rucne ve zdrojaku a je
> >> klid.
>
> >Ahoj,
>
> >Klasika, tohle uz se deje tusim od Delphi 2 :-) Nejhorsi je, ze se mi
> zatim
> >nepodarilo najit situaci kdy to udela vzdycky, chova se to dost nahodile.
[Bene� Jaroslav] Tohle se mi take stava, ale jen kdyz to kompiluji a nemam to v IDE.
Pokud to natahnu do IDE, tak se DFM synchronizuje a po dalsim prekladu je
vse OK. Do projektu jsou zahrnovany i unity, ktere nemam primo explicitne
vyjmenovane. Tyka se to hlavne takovych, ktere maji dalsi pomocny unit s
formularem, napr nejaky editor atp. to pak musim IDE protahnout...
Jaro B.>
>
> Mn� zase (v D4) nahodile, ale dost �asto, kdy� si pot�ebuji prohl�dnout
> star�� k�d a otev�u unitu v Delphi, tak mi na n� p�i kompilaci zahl�s�
> chybu, co� je samoz�ejmn� vet�inou se v n� odkazuji na unity, kter� nejsou
> v projektu, ale pro� to sakra kompiluje, kdy� to k projektu nepat��. Nebo,
> kdy� nedej bo�e otev�u unitu stejn�ho jm�na, to mi pak brut�ln� sk��e do
> n� a n� do t� co je v projektu. N�kdy pom��e tu unitu zav��t, ale v�t�inou
> to jist� shozen� Delph�n. :-(((
>
>
> M&B
Opet web
[*] "Ing. Toma? Tominec" - 22.9.1999 09:01:56
Diky za radu, ale neni to to prave orechove. Ja mam CGI aplikaci na web
serveru a potrebuju v prohlizeci z obycejne stranky bez postovniho klienta
prenest soubor (jedna se mi o Wordovske dokumenty .doc) na server a tam ho
dale zpracovat. Neco podobneho funguje na post(tec)cz - z web stranky je mozno
poslat zpravu s pripojenym souborem. Kdyz odeslu stranku s vybranym
souborem tak v Request.Content mam obsah toho souboru. Ale pouze pokud
soubor je typu txt nebo rtf tak ho dokazu z Request.Content rucne dostat,
ale to neni ono. Kdyby Vas nekoho neco napadlo, byl bych rad. Dik za rady
-----Puvodni zprava-----
Od: owner-delphi-l(zv)fwd(tec)cz
Odeslano: 21. zaoi 1999 16:44
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: Web
Priklad z Delphi4 "\Demos\Internet\Http" znas? Nepomuze?
----------------------------
Lukas Zach
Aquasoft s.r.o.
E-mail:luki(zv)aquasoft(tec)cz
----------------------------
Zapis do registru
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 22.9.1999 09:07:01
Zdravim!
Urcite to bude trivialni dotaz ale nevim jak precist/zapsat z/do registru hodnotu ktera se v regeditu naz�va (v�chozi), poradi mi nekdo jak na to?
Dik Pavel
D5+Asi se jim nelibim
[*] Matula M <asexrm(zv)telecom(tec)cz> - 22.9.1999 09:22:39
Mam projekt, ten v Delphi5 otevru a Delphi ukoncim.
Pripoustim, ze chyba je u mne, ale stejne by to nemelo skoncit takhle.(Nekdy
uplne zablokuji okna).
Pouzivam W95.
Mirek
Aplikace DELPHI32 zp�sobila neplatnost str�nky
v modulu VCL50.BPL na adrese 0137:40008924.
Registry:
EAX=01a30c94 CS=0137 EIP=40008924 EFLGS=00010297
EBX=4000891c SS=013f ESP=0069fc2c EBP=0069fc40
ECX=0069fc48 DS=013f ESI=0069fb28 FS=419f
EDX=40008921 ES=013f EDI=0069fc20 GS=37ce
Bajty v CS:EIP:
8b 00 89 45 f8 83 7d f8 00 75 c7 5f 5e 5b 59 59
V�pis z�sobn�ku:
40000000 4000a4ec 00000000 01a30c94 40000000 0069fc58 40008968 0069fe28
400089ac 0069fc58 4015d110 0069fc6c 4000a5aa 4000a61a 8163a098 000001fb
Chyba v grid.pas?
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 22.9.1999 09:22:01
[P��loha v souboru: oprava2.zip]> Uz ma dlhsi cas trapi tato chyba, ovsem
> tvoj riadok (kde je chyba) nenasiel som v Grid.pas
> Mam D2 a D3.
> Ak mi mozes poradit ako to odstanit budem dacny.
>
> TUNGLI J�nos
Prikladam vetsi cast okoli kde (jak se domnivam) je chyba. Snad
by to melo byt nyni snadneji lokalizovane (alespon v D5 a D4,
pokud zjistis, ze je v D2 aD3 neco podstatne jineho, tak se na
zkusim jeste podivat)
Jiri Binder
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: oprava2.zip
Date: 22 Sep 1999, 9:12
Size: 774 bytes.
Type: ZIP-archive
sirka textu II.
[*] Petrik <petrik(zv)geocities(tec)com> - 22.9.1999 09:34:49
Cauves
koukam, samy chytry hlavy ...
a jakpak ziskam sirku textu na NE-TCANVASU,
neboli na device contextu.
Jedina funkce, kterou sem na to nasel je :
GetTextExtentPoint32(hdc,(zv)stringicek,length(stringicek),pom);
sirkatextu:=pom.cx; //// kde VAR pom:SIZE;
chodi hezky, jenze POUZE na Fixed-width fonty (Fixedsys, Courier,..)
pokud pouziju (=SelectObject(hcd,myfont);)
proporcionalni
(= myfont:=CreateFont(16,0,0,0,FW_NORMAL,0,0,0,
EASTEUROPE_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH,PChar('Arial')); )
font tak to spocte jako kdyby byl fixed. Zjistil jsem
ze pouzije prumernou delku znaku a tu vynasobi delkou stringu.
A to jeste nekdy vypocte pokazdy jinak. Takze to dopadne tak, ze
'....' je DELSI nez 'WWW', ackoli je to presne obracene.
Ale tohle delat NEMA (dle Win32.hlp).
Znate jinou fci ? Vite jak to zprovoznit ?
DIKY. DIKY. DIKY.
Ps. jeste jste mi neodpovedeli proc HBRUSH je jen 8x8 na Win95/98
(tak ma bejt), ale na Win98OSR2 je velikej podle bitmapy (je
to hezky, ale nema bejt). A tim padem, nemate napad jak RYCHLE
nakreslit velkou bitmapu do device contextu i na Win95/98?
A to sem se jeste nezminil, ze na Win95OSR2-CZ mi HBRUSH nefunguje
VUBEC !!! (???????????)
Cus,
Petrik mailto:petrik(zv)geocities.com
D5 a barvy
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 22.9.1999 09:39:26
> > co to znamena "nejaka komponenta"? Zkousel jsem TShape,
> > TLabel a dokonce i TForm a ani jedna z Tebou uvedenych barev
> > tam neni.
>
> Aha, uz jsem na to prisel. Tyhle barvy se tam snazi nahrat
> Orpheus, ale nejak se to Delpham 5 nelibi.
>
Orpheus nemam a dela me to taky.
Mam tomu rozumet tak, ze by to mohl byt stav po instalaci
nekterych dalsich komponent? Jakou cestou by k tomu doslo?
Jiri Binder
Borlandi maji zmatek v zemepise
[*] Robert Jendrisak <delphi(zv)minv.sk> - 22.9.1999 09:41:27
> > hned pod sebou Czech Republic a Czechoslovakia. Slovac
> Videj jsem to taky uz nekde a vysvetleni je mimoradne snadne...
> Co maji delat s lidmi, registrovanymi pred rokem 93...?
> Smazat i se statem (kaskadni integrita to jisti... :-) )? Podle nejakeho
> (ale jakeho?) algoritmu je rozdelit na Cechy a Slovaky...?
> Meli by zmenit (tak jak jsem to nekde videl) text "Czechoslovakia" na
> "Czechoslovakia - former", ale nechat ho tam museji...
>
> Tomas
Preco niekomu vadi siroky vyber? Mne by nevadilo ani Rakusko-Uhorsko,
pripadne
Velke Nemecko okres Kurilske ostrovy alebo Praha.
Werki
Install packages v D5
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.9.1999 09:53:03
Haj hou!
> vyskusajte, prosim, ci sa da v D5 odinstalovat packages. Skusal som to v
D5
> Enterprise Trial a vzdy, ked som odinstaloval niekolko balickov, Delphi
padli
> (raz som musel pocitac resetovat tlacidlom, lebo stuhol uplne (Win95) a
raz mi
> Trial verzia ohlasila, ze uz expirovala...). Ak takto veselo pada aj ostra
> verzia, oplati sa ostat pri D3.
Trial nam to nedelala a ani ostra D5 Pro to nedela.
Hodne zdaru
Borlandi maji zmatek v zemepise
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.9.1999 10:02:02
> -----P�vodn� zpr�va-----
> Od: Burger, Tomas [mailto:tomas.burger(zv)sap.com]
> Odesl�no: 21. z��� 1999 9:12
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Borlandi maji zmatek v zemepise
>
>
> > -----Original Message-----
> > From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> >
> > hned pod sebou Czech Republic a Czechoslovakia. Slovac
> Videj jsem to taky uz nekde a vysvetleni je mimoradne snadne...
> Co maji delat s lidmi, registrovanymi pred rokem 93...?
Nenechat je registrovat pred rok 93 ale k aktu�ln�mu datu.
Asi sis precetl nepozorne pr�spevek. Byl o registraci, ne zobrazov�n�
dr�ve registrovan�ch �daju.
Jura
Threads - planovani zateze na zaklade vyuziti CPU
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 22.9.1999 09:08:33
Je to v (datab�zi) registry, pod klicem
HKEY_DYN_DATA\StatData\StartStat
### Petr Fejfar napsal dne 21 Sep 99, v 19:28 :
> kdyz uz jsme u tech threadu: potreboval bych na Gatesovi nejak vyloudit
> okamzitou hodnotu vyuziti CPU. Hodilo by se mi to pri planovani zateze pro
> thready bezici na pozadi.
>
> bye pf, callnet(zv)telecom(tec)cz
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
DBgrid velkost,copy,paste
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 22.9.1999 10:08:59
On Wed, 22 Sep 1999 olej.jozef(zv)slsp.sk wrote:
> Ahoj,
>
> Chcel by som sa opytat ci nema niekto skusenosti z :
> -Mam v D3 fromular s WindowsState wsMaximized a na nom DBgrid s Align
> allBottom ak to spustim na 1024x768 tak mi zostane
> prazda diera medzi DBgridom a Buttons co su na panely v hornej casti fromsu.
> Existuje moznost aby sa grid tiez natiahol smerom nahor?
Ahoj,
nastav tomu gridu Anchors.akTop na true.
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
TreeView
[*] Karel Kral <kral(zv)purus(tec)cz> - 22.9.1999 10:25:38
Ja ho pouzivam, ale dat v nem mam malo. Co Vam muzu rict uz ted je to,
ze se Vam takove mnozstvi dat bude natahovat do TreeView nechutne
dlouho. Navrhoval bych spise natahnout pouze data pro prvni uroven uzlu
a pak pri expanzi uzlu (udalost OnEpanding) natahnout detaily k uzlu.
> TUNGLI Jan wrote:
>
> Ake ma obmedzenia TreeView?
> Mam rozsiahlu tabulku (100 000 viet)
> a potrebujem zobrazit tabulku ako strom.
> Je mozne pouzit TreeView ? Neviem ci zvladne tolko recordov?
> Viete otom nieco?
>
> TUNGLI J�nos
> EMail: jan.tungli(zv)seznam(tec)cz
> My Home Page: http://free.netlap.hu/4321/
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
prikaz v Query SQL
[*] Roman Sladek <slado(zv)datapac.sk> - 22.9.1999 10:26:52
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.
Cau,
������� Ja by som tam nedal ExecSQL ale Open aj ked to nema co vratit.
�
----
bye
��� slado
-----Original Message-----
From: TUNGLI Jan [ mailto:tungli(zv)pvt.sk]
Sent: Tuesday, September 21, 1999 9:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: prikaz v Query SQL
Podla mne ak je v dokumentaci Sybase tak to musi ist.
Napr takto:
with Query1 do begin
� Sql.Clear;
� SQl.add('Select * from DB output to File');
� ExecSQL;� // nie open lebo nema vratit nic
end;
TUNGLI� J�nos
EMail:� jan.tungli(zv)seznam(tec)cz
My Home Page:� http://free.netlap.hu/4321/
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. september 1999 19:45
P�edm�t: Re: prikaz v Query SQL
>Ahoj,
>
>a jsi napojeny na Sybase? Pokud ne, pak se ani nedivim. :-) Toto neni
>standardni prikaz normy SQL, tedy to nepodporuji vsichni.
>
>Slavek
>
>> nefunguje mi pod Query SQL prikaz pro vystup do souboru
>> output to. Napriklad
>>
>> select� *� from datab;
>> output to 'vystup.txt'
>>
>> Vycetl jsem to u Sybase v Helpu, ale v Delphi3 mi to nefunguje
>> a hl�s� chybu. Delam neco spatne nebo to takto nejde?
>>
>>��� Diky za kazdou odpoved.����� (Pouzivam W95 a D3.)
>>
>>
>>������ Jozka
>>������� jdanek(zv)fnbrno(tec)cz
>>
>>
>
>
>----------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
>----------------------------------------------
>
Direktivum pro D5
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 22.9.1999 10:41:19
Zdravim,
kdo vi jake je direktivum verze pro D5
{$DEFINE VER???}
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~OFF: Nutnost papirovych sestav
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 22.9.1999 10:58:45
Ahoj,
rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT k
dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k dispozici
elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire.
Dik a sorry za OFF TOPIC.
Leos
Zapis do registru
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.9.1999 11:09:03
Trivialni to opravdu je ValueName=''
Ahoj
Daniel
----- P�vodn� zpr�va -----
Od: Pavel Polak
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 22. z��� 1999 9:07
P�edm�t: Zapis do registru
Zdravim!
Urcite to bude trivialni dotaz ale nevim jak precist/zapsat z/do registru hodnotu ktera se v regeditu naz�va (v�chozi), poradi mi
nekdo jak na to?
Dik Pavel
DBgrid velkost,copy,paste
[*] Pavel �im��ek - 22.9.1999 11:18:16
Pokud mas ty Buttons jak pises na panelu tak u nej nastav Align allTop a pak
s klidem nastav Align u DBGrid na allClient a on se ti roztahne az po ten
panel.
Cau Pavel
-----P�vodn� zpr�va-----
Od: olej.jozef(zv)slsp.sk <olej.jozef(zv)slsp.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. z��� 1999 10:32
P�edm�t: DBgrid velkost,copy,paste
>Ahoj,
>
>Chcel by som sa opytat ci nema niekto skusenosti z :
>-Mam v D3 fromular s WindowsState wsMaximized a na nom DBgrid s Align
>allBottom ak to spustim na 1024x768 tak mi zostane
>prazda diera medzi DBgridom a Buttons co su na panely v hornej casti
fromsu.
>Existuje moznost aby sa grid tiez natiahol smerom nahor?
>- Ako je najjednoduchsie spravit Copy,Paste z gridu?
>
>Dakujem
>
>Jozef
>Trvaly scrollbar u mema a gridu
[*] Pavel �im��ek - 22.9.1999 11:26:40
Ahoj vsem!
Potreboval bych u StringGridu nastavit vertikalni ScrollBar stejny jako je u
Mema. T.j. takovy, aby v pripade ze je nepotrebny nezmizel ale pouze byl
Disable. Zkousel jsem to delat pres SetScrollInfo kde jsem nastavoval u LPSI
hodnotu fMask na SIF_DISABLENOSCROLL ale nepomohlo to. Asi je tam potreba
jeste neco, nebo jsem volal SetScrollInfo na nespravnem miste.
Jak je to udelano v Memu se mi nepodarilo zjistit.
Nevite nekdo jak by se to dalo udelat.
Dik Pavel
Chybne predavani PCHar ?
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 22.9.1999 10:31:24
Ahoj,
setkal jsem se s ponekud zarazejici situaci:
Mam DLL v C++, do ktere se krome jineho predava PChar z Delphi. S tim
predanym retezcem se zachazi vice ci mene brutalne, protoze se jeho
obsah pozmenuje (funkce strtok z neho vyzobava jednotlive polozky).
Vysledek se pak zobrazuje v nejakem dialogu. To volani v Delphi vypada
takto:
CopyLic('predavany retezec',PChar(Edit2.Text),0 );
Vsechno chodi v pohode az na jednu vec: Beda, kdyz se tataz funkce
zavola podruhe, protoze se nepredava ten puvodni retezec, ALE TEN
POZMENENY ! Resim to tak, ze si v te DLL udelam kopii toho predavaneho
retezce a s ni pak pracuji. Ale stejne me zajima, jak je to mozne.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************Zapis do registru
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.9.1999 11:34:01
Cauec,
Urcite to bude trivialni dotaz ale nevim jak precist/zapsat z/do registru hodnotu ktera se v regeditu naz�va (v�chozi), poradi mi nekdo jak na to?
procedure TForm1.Button1Click(Sender: TObject);
const Key = '\Software\Moje';
var R: TRegIniFile;
begin
R := TRegIniFile.Create(Key);
R.WriteString('Sekce', '', Edit1.Text);
R.Free;
end;
Bye Ludan
Chybne predavani PCHar ?
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 22.9.1999 11:46:20
> Mam DLL v C++, do ktere se krome jineho predava PChar z Delphi. S tim
> predanym retezcem se zachazi vice ci mene brutalne, protoze se jeho
> obsah pozmenuje (funkce strtok z neho vyzobava jednotlive polozky).
> Vysledek se pak zobrazuje v nejakem dialogu. To volani v Delphi vypada
> takto:
>
> CopyLic('predavany retezec',PChar(Edit2.Text),0 );
>
> Vsechno chodi v pohode az na jednu vec: Beda, kdyz se tataz funkce
> zavola podruhe, protoze se nepredava ten puvodni retezec, ALE TEN
> POZMENENY !
No jo, jestli se ti "zmeni" ten 'predavany retezec', eg. ten konstantni
string, tak to neni nic divneho, kdyz ho v te DLL menis. Delphi si
takoveto konstatni retezce ulozi do kodu a pak se na ne pouze odkazuji
ukazatelem, ciliz pres ten ukazatel ten retezec zmenis. Jedno reseni jsi
uz popsal - predavat lokalne vytvoreny retezec, nebo ten parametr v te DLL
nemenit primo na puvodni adrese, ale udelat si jeho kopii a s tou pak
pracovat.
K.C.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
TreeView
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 22.9.1999 12:02:41
Asi pred rokem mi pan Vones poradil nasledujici postup (funguje
pod�WinNT, D3):
�
const
� TVS_NOTOOLTIPS = $0080;
var
� Style��: DWORD;
� with TreeView1 do
� begin
��� Style := GetWindowLong(Handle, GWL_STYLE);
��� Style := Style or TVS_NOTOOLTIPS;
��� SetWindowLong(Handle, GWL_STYLE, Style);
� end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
�
nevite nekdo, jak se zbavit hintu objevujiciho se nad
jednotlivymi uzly v TTreeView?
�
�Delphi 5 - ze by dalsi bug?
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 22.9.1999 12:06:35
Zdravim,
Skusil jsem v Trial verzi D5 jednu vec, ktera me trapi v D3 a jake bylo moje
rozcarovani:
Vytvoril jsem ActiveX Library, ActiveX componentu od TEdit. Zkompilova,
zaregistroval a pridal jako komponentu na panel...
Vytvoril jsem dalsi ActiveX library a do ni ActiveForm. Do nej jsem dal muj
EditX. Zkomiloval, zaregistroval a pridal do palety....
Vytvoril jsem novy projek a na formular vrznul muj activeform zkompioval a
spustil....:(((
Aplikace nelze spustit, ze pry property ParentFont neexistuje a Delphi se mi
zblazni.. Pokud na ActiveForm dam obycejny edit, tak je to ok..
Vse je bez jedine radky pridavneho kodu..
V D3 tento postup fungoval, ale v EditX neslo pouzivat sipky <- a -> vyhodi
to Stack overflow...
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
Direktivum pro D5
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.9.1999 12:09:24
Haj hou!
> kdo vi jake je direktivum verze pro D5
> {$DEFINE VER???}
VER130
--- SQL --- !!!!!!!!!!!
[*] sup(zv)svitap(tec)cz - 22.9.1999 12:30:26
>SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len
tupo
>posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4", ale
"SQL
>pre [Interbase, Oracle, Sybase at�]". Delphi ziadne prikazy SQL
nepodporuju.
>
Dobre. A kde zjistim spravnou syntaxi pro SQL nad lokalno databazi, napr.
Paradox? To neni zadny SQL Server, a presto to jede...
>"Radim Tich� (VAIPE)" wrote:
>
>> Ahoj vsichni !
>>
>> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe) o
>> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
>> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu je
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
D5 a barvy
[*] mdvorak(zv)csas(tec)cz - 22.9.1999 12:33:49
Mne to dela Delphi 5 taky a Orpheus nemam. Mam pouze standardni komponenty
D5 Trial.
M. Dvorak
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
Odesl�no: 21. z��� 1999 22:02
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: D5 a barvy
Slavek Rydval wrote:
> co to znamena "nejaka komponenta"? Zkousel jsem TShape,
> TLabel a dokonce i TForm a ani jedna z Tebou uvedenych barev
> tam neni.
Aha, uz jsem na to prisel. Tyhle barvy se tam snazi nahrat
Orpheus, ale nejak se to Delpham 5 nelibi.
> >
> > kdyz se snazim zalistovat v nejake komponente ve vlastnosti Color az
> > na konec, vzdy mi to vraci chybu 'clCream' is not a valid integer
> > value. Dale to pokracuje pres clMoneyGreen a clSkyBlue. Mate tento
> > problem take?
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
Chyba v grid.pas?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:41:38
> Chybne chovani spociva v tom, ze pri rolovani se okno
> neprekresluje, nebo se prekresluje spatne. Casti okna k
> prekresleni se urcuji v metode Scroll a to vola metodu
> BoxRect , ktera ma prevest oblast vyjadrenou v bunkach na rect
> canvasu. Tato metoda vracela v pripadech chyby nulovou delku.
> Misto, kde nastala chyba (?) je uvedeno v souboru chyba.pas.
> Pri pocitani sirky oblasti se nezapocte posledni (neviditelny)
> sloupec. a protoze neviditelny sloupec vraci jako sirku -1 vyjde v
> dusledku toho celkova sirka oblasti o jednicku vetsi nez rozsah
> klienta. To se testuje a v takovem pripade funkce vraci nulu
> (proc??, ocekaval bych spis ze vrati max. sirku, ale mozna to ma
> duvod).
Je to chyba, ale neni to dobre opravene.
Cela chyba je v chybnem vypoctu LastFullVisibleCell, ktera
neuvazuje neviditelne sloupce se sirkou -1 (nebo v
chybnem pouziti teto hodnoty).
Klidne pak je LastFullVisibleCell rovna sloupci ktery neni visible!
V procedure CalcAxis se to pak testuje:
if GridRectMax > LastFullVisibleCell then
begin
GridRectMax := LastFullVisibleCell;
if GridRectMax < GridCellCount - 1 then Inc(GridRectMax);
if LinePos(AxisInfo, GridRectMax) = 0 then
Dec(GridRectMax);
end;
Duvod je ten, ze bunka se v kazdem pripade bere jako FullVisible
i kdyz jiz neni viditelna prava resp. dolni cara. Jeji pozici
vraci LinePos. Pokud cara jiz mimo grid vrati 0 (zde je ten smysl
vraceni 0).
Takze jsou dve moznosti jak to opravit:
1) opravit vypocet LastFullVisibleCell v lokalni
procedure CalcAxis private metody CalcDrawInfoXY
2) opravit pouziti ve vyse zminene lokalni procedure
CalcAxis private metody GridRectToScreenRect
To ale neopravi ostatni problemova mista.
Bohuzel ani jednu z oprav nelze provest bez zasahu do
originalniho grids.pas nebo bez uplne kopie teto
a nekolika dalsich unit coz ne vzdy bude vyhovovat.
Udelat si vlastniho dedice TCustomGridu, ktery je OK
je podle mne nemozne (rad se necham poucit viz BTW).
Rob
BTW: Myslim, ze na tomto priklade by nam
Pavel Cisar mohl ukazat jak to myslel,
kdyz v hadce s Erikem Salajem rikal,
ze vzdy najde nejake reseni jak opravu provest
i kdyz je metoda staticka a nejlepe private.
Na druhou stranu by Erik mohl naznacit co delat
kdyz by nemel ani tu moznost zasahu do zdrojoveho
kodu, protoze konstatovani, ze grid za urcitych
okolnosti spatne prekresluje a hlaseni Inprise,
doufaje ze to tento opravi je temer marne.
Ten totiz na chyby prdi a tak se fatalni chyby tahnou
od Delphi 2,3,4 pres vsechny servis packy az po 5.
S kazdou verzi se pak programatori modli,
aby byla nejakym zazrakem opravena
prave ta jejich chyba.
Vetsinou jsou ale zklamani :-(
Hlaseni chyb (Was: Borlandi maji zmatek v zemepise
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:41:56
> Ahoj,
> Dobra pripominka, uz jsem je na to upozornil :-)
> Petr Vones, amatersky programator
Jak?
To uz existuje nejaky zpusob jak Inprisum
hlasit problemy, ktery se docka odpovedi?
Nebo mas nejaky vlastni kanal?
Rob
D5 a barvy
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:42:14
> > > kdyz se snazim zalistovat v nejake komponente ve vlastnosti Color az
> > > na konec, vzdy mi to vraci chybu 'clCream' is not a valid integer
> > > value. Dale to pokracuje pres clMoneyGreen a clSkyBlue. Mate tento
> > > problem take?
>
> Aha, uz jsem na to prisel. Tyhle barvy se tam snazi nahrat
> Orpheus, ale nejak se to Delpham 5 nelibi.
No nevim, Orpheus nemam,
ale ja mam tyto barvy instalovane pomoci z RXLib (viz. unit VCLUtils).
Ale v D5 jsem to nezkousel.
Rob
Chyby v D5
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:42:10
>Tohle je ovsem o necem dost jinem. Od Delphi 4 je mozne otevrit
>najednou vice projektu v jedne instanci Delphi. Formular mi hlasi
>chybu i v pripade, ze na nem zadna komponenta z kompilovaneho
>balicku neni.
Velmi zakerna chyba minimalne v Delphi 3.02 i 4.03.
Hlaseno Inprise nejmene dvakrat pres bugreport.
Muzete to nekdo (Zbysku) zkusit pod D5?
Velmi detailni postup jak to 100% vyvolat v D3 a D4
(mozna to jde i jednoduseji,
ale podle mne si to mohou minimalizovat sami a lepe):
Delphi sometimes looses property value!
Value of any property of object presented in repository
referencing component from other module will disappear.
1) Prepare project
- create new form
- place DBGrid on it (grdTest)
- save (fmRepTest.pas)
- add fmRepTest to Repository
- Create new Application
- save project (RepositoryError.dpr)
- save main form (fmMain.pas)
- create datemodule
- place query (qryTest)
- place datasource (dstTest)
- assign dstTest.DataSet to qryTest
- save (dmTest.pas)
- create new form as inherited!!! from fmRepTest
- add dmTest to uses part
- assign grdTest.DataSource to dmTest.dstTest
- save (fmTest.pas)
2) Prepare package
- now create package or use any package you already have, content of package
is not important
- choose Component/New component
- ancestor TLabel
- class name TLabel1
- palette page Samples
- choose unit name (Label1.pas)
- press Install
- choose Into new package
- filename dplTest.dpk
- press OK
3) Now the BUG: loosing datasource fmTest.grdTest.DataSource
- open project RepositoryError.dpr
- open form fmTest
- open package dplTest (or any other)
- press compile package
- goto fmTest.grdTest
- choose File/Save
- click DataSource property
- datasource
disappears!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Grrr
4) Notes
- datasource sometimes disappears also in other times or other conditions
but I was not able to find any other deterministic way yet.
- it disappears if datamodule is open or not
- if it is not open then you even get exception if you click drop down
button in
datasource property
- it is not problem only of datasource
- value of any property of object presented in repository
referencing component from other module will disappear
- problem is probably in procedure FindGlobalComponent in forms.pas (but
which has
probably diferent implementation in Delphi IDE) or in procedure
GlobalFixupReferences
in classes.pas that is calling it
- tester on WinNT, Win95, different PCs
5) Workaround
- declare new string property of grid place here name of datasource and use
FindGlobalComponent in runtime to fill reference
but you must do this for all such components and properties
Rob