Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Obrazky a QuickReport
[*] David Maly <dmal3233(zv)ss1000.ms.mff.cuni(tec)cz> - 25.6.1998 10:15:35
Hi,
�ter�, 24 �erven 97, Zdenek wrote:
> Nevite nekdo jak tisknout v quickreportu formulare obrazky ve kvalitnim
> rozliseni. Jestlize tisknu primo na Canvas tiskarny tak muzu dosahnout
> velice kvalitnich obrazku.
> Kdyz ale tisknu obrazek v dokumentu quickreportu tak to samozrejme
> tiskne obrazek stejny jako na n�vrhov�m formulari a tim padem ve velice
> mizernem rozliseni.
To je pravda pro staticke obrazky. Myslim ze se to necha obejit, kdyz
tisknes obrazek z databaze (DBImage) - tj. obrazek neni v staticky na
formulari - ten se pak tiskne dobre. Je to sice krkolomny ale tusim to
funguje.
David
mailto:dmal3233(zv)ss1000.ms.mff.cuni(tec)cz
URL: http://www.ms.mff.cuni(tec)cz/~dmal3233
Zacatecnicka rada
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.6.1998 10:19:44
> Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji freewarovou
> verzi a zajimala by mne jedna vec. Pokud chci nacitat z modemu, musim to
> delat pres event. Ja ale chci mit funkci, napr.
> ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny retezec,
> popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?
Jo jinak odpovidam jeste jednou - ted jsem tak premyslel, jestli
vis nebo nevis, co ti ma prijit a napadlo me, ze mozna cekas
na ne nahodny, ale proste urcity retezec. Pak primo pouzijes
jednu ze dvou moznosti, ktere v tomto Async Professional nabizi.
Bud funkci WaitString (nebo tak nejak se jmenuje), no a nebo
si nadefinujes trigger na cekani urciteho retezce. Oboji je
velmi jednoduche. Navic je moznost pouzit pakety, kdy si nadefinujes
parametry a ono ti to odchyti konkretni paket, tedy nejaky
blok s definovanym zacatkem a koncem... Async Professional ma v tomto
mnoho moznosti a vetsinu veci lze udelat vice moznostmi tak,
jak ti to vyhovuje.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================ovladani modemu
[*] VTech Kavan <vtech(zv)kavan.org> - 25.6.1998 10:28:58
...'lip pracuje' je relativni, ja jsem plechar a VCL neni zrovna muj
ideal...
VTech
Zbysek Hlinka wrote:
> VTech Kavan wrote:
>
> > ja pouzivam pro ovladani modemu unit ktery jsem pripojil k mailu.
>
> No, AsyncPro je na rozdil od teto unitky komplexnejsi, podporuje radu
> protokolu, je postavena z komponent (takze se s tim lip pracuje) a
> jsou ke vsemu zdrojaky.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Tisk na jehlickovych tiskarnach
[*] pedskola <pedskolakv(zv)mbox.vol(tec)cz> - 25.6.1998 11:01:25
musis myt nastavenou kvalitu draft a je nejlepsi pouzivat nakej font
tiskarny,kterej umi ramecky, proste tisknout jako dryv z dosu. Tzn. Tady sou
ti reporty na nic, musis si udelat vlastni rutiny pro vyber dat z database,
pak je poskladat a poslat na tiskarnu.
Mozna by na tohle mohli existovat naky komponenty, protoze je to dost
potrebna vec podivej se na naky stranky
a pak mi dej vedet co si nasel, zrovna delam aplikaci kde budu potrebovat to
samy.
podivej se sem:
http://www.torry.ru
http://SunSITE.icm.edu.pl/delphi/
Cau Sopak
-----P�vodn� zpr�va-----
Od: Martin Kubecka <martin.kubecka(zv)dytron(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 19. �ervna 1998 15:51
P�edm�t: Tisk na jehlickovych tiskarnach
>Zdravim vsechny zucastnene a preji pekny den,
>
>nevite nekdo jak tisknout na jehlickove tiskarne znakove a ne graficky?
>Lze to vubec? A pokud ano tak jak? Napr. pro tisky pokladnich dokladu
>(aby bylo mozno pouzivat pruklepy). V grafice je to vetsinou dost
>pomale.
>
>Prostredi D3 a W95/NT.
>
>Za podnety diky
>
>Martin Mac Kubecka
>
GIS Engine
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 25.6.1998 11:38:36
Diky vsem za reakce ...
Ladislav Nagy
CPL
[*] Radek Adamec <adamecr(zv)sh.cvut(tec)cz> - 25.6.1998 12:14:19
Ahoj,
no vlastne to jsou prejmenovane DLL soubory.
Kdysi davno jsem psal CPL pro Win 3.1, takze nevim, jestli to co napisu
je jeste platne :(
Tato knihovna musi exportovat calback fci CPLApplet:
function CPLApplet HCPl:HWnd; Message:Word;lParam1,lParam2:LongInt)
:Longint;export;
Do teto funkce prichazeji messages CPl_xxxx, ktere je nutno osetrit.
Jedna knihovna muze obsahovat vice polozek v Control Panelu, informace o
nich (ikona, nazev,context help,..) se vraci po prijeti CPl_NewInquire.
Pocet po CPl_GetCount.
Po CPl_Init je treba vracet 1 no a konecne vlastni vykona cast se vola
po CPl_DblClk.
Pokud se nechces prilis hrabat v helpech, muzu Ti poslat onu aplikaci a
pak s tim muzes laborovat jak je libo.
Bye Radek
______________________________________________________________________
Radek Adamec tel: ++ 420 2 717 40 205
IS Administrator fax: ++ 420 2 717 40 203
Technology Practice
Accord Group ECE mobile: ++ 420 602 299 512
Prague, Czech Republic email: r.adamec(zv)accord-ece.com
______________________________________________________________________
Ing. Lud�k Florian wrote:
>
> Cauec vsichni,
>
> nevi nekdo, co je to za soubory CPL (ovladaci panely) a jak je v Delphi
> vytvorit ?
>
> Nekde jsem kdysi cetl, ze se jedna o prejmenovane DLL soubory, ale nejak se
> nedari...
>
> Bye Ludan
>
> ludan(zv)bluerose(tec)cz
Resource WorkShop ???
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.6.1998 13:03:21
> chtel jsem se zeptat jestli nekdo nevi jestli existuje neco jako Resource
> WorkShop (a kde), ale s vlastnostma W95. Potrebuji prepsat v DLL dialog, ale
> cestina pak nefunguje kdyz pouziju WorkShop.
> Mam Resource Workshop verzi 4.5. Je snad novejsi? Jina moznost jak to
> udelat?
A mas ho nastaveny na Win32? On totiz umi take Win16...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================CPL
[*] Hrb�� David - 25.6.1998 13:27:04
Daji se delat pomoci delphi. Komponenty mohu zaslat.
David
-----P�vodn� zpr�va-----
Od: Radek Adamec <adamecr(zv)sh.cvut(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 25. �ervna 1998 13:09
P�edm�t: Re: CPL
Ahoj,
no vlastne to jsou prejmenovane DLL soubory.
Kdysi davno jsem psal CPL pro Win 3.1, takze nevim, jestli to co napisu
je jeste platne :(
Tato knihovna musi exportovat calback fci CPLApplet:
function CPLApplet HCPl:HWnd; Message:Word;lParam1,lParam2:LongInt)
:Longint;export;
Do teto funkce prichazeji messages CPl_xxxx, ktere je nutno osetrit.
Jedna knihovna muze obsahovat vice polozek v Control Panelu, informace o
nich (ikona, nazev,context help,..) se vraci po prijeti CPl_NewInquire.
Pocet po CPl_GetCount.
Po CPl_Init je treba vracet 1 no a konecne vlastni vykona cast se vola
po CPl_DblClk.
Pokud se nechces prilis hrabat v helpech, muzu Ti poslat onu aplikaci a
pak s tim muzes laborovat jak je libo.
Bye Radek
______________________________________________________________________
Radek Adamec tel: ++ 420 2 717 40 205
IS Administrator fax: ++ 420 2 717 40 203
Technology Practice
Accord Group ECE mobile: ++ 420 602 299 512
Prague, Czech Republic email: r.adamec(zv)accord-ece.com
______________________________________________________________________
Ing. Lud�k Florian wrote:
>
> Cauec vsichni,
>
> nevi nekdo, co je to za soubory CPL (ovladaci panely) a jak je v Delphi
> vytvorit ?
>
> Nekde jsem kdysi cetl, ze se jedna o prejmenovane DLL soubory, ale nejak
se
> nedari...
>
> Bye Ludan
>
> ludan(zv)bluerose(tec)cz
hesla NT a MSSQL
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 25.6.1998 14:44:11
Obavam se, ze to nepujde, protoze ze stanice Windows95 neni podle mne
zadna moznost jak zmenit heslo na NT serveru - to jde pouze z NT
stanice. Mimochodem tu funkci PwdChangePassword jsem nikde v popisu
Win32 API nenasel, kde je popsana ?
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: sula milos
> Odesl�no: 25. �ervna 1998 7:50
> Komu: DELPHI Distribution List
> P�edm�t: Re: hesla NT a MSSQL
>
> Bohuzel jsem zjistil ze funkce NetUserChangePassword neni
> podporovana ve
> win95 ale snad by to mnelo jit pomoci funkce PwdChangePassword.
>
> >Hledej v helpu k API funkci NetUserChangePassword.
> >
> >> Prosim vas nevite nekdo jak zmenit heslo do site Microsoft NT a
> >> do
> >> MS SQL ?
> >> Mam na mysli zda neexistuje nejaka API funkce.CPL
[*] Mik Radim <mik(zv)oce(tec)cz> - 25.6.1998 14:56:13
Ahoj,
mam podobny problem. Zkousel jsem z UNDU priklad na CPL, ale bohuzel
mi po zkompilovani popd Delphi3 nechodil.
Pokud nekdo ma chodici priklad pod D3, prosim poslete ho na mou adresu.
Diky
Radim H. Mik
mik(zv)oce(tec)cz
Jeste jednou OpenDialog
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 25.6.1998 15:16:05
Ahoj vsem!
Tak se teda priznam ze onen zminovany problem uz je vyresen.
Cele to bylo v tom, ze onen doubleklik do OpenDialogu se prenesl do
udalosti OnMouseUp okna, ktere teprve po vybrani soboru vzniklo!!!!
prave pod nabo nad??? onim OpenDialog.
No a v one procedure nastavene k OnMouseUp se provadelo
prenastaveni Zoom o kterem jsem nevedel proc se meni.
Ale proc to pisu. Zajimal by mne vas nazor na tohleto prenaseni
udalosti k objektum kterym nepatri, nerkuli jeste nejsou
vytvorene?!?!
Ahoj Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
CPL
[*] Marcel Telka <marcel(zv)vadium.sk> - 25.6.1998 15:18:29
Nebolo by lepsie zverejnit na FTP (WWW)?
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
>Daji se delat pomoci delphi. Komponenty mohu zaslat.
>David
>
>
Exe soubor
[*] K�ra Petr <Petr.Kara(zv)ul.ds.mfcr(tec)cz> - 25.6.1998 15:22:39
P�kn� den
Mam takovy problem. Potrebuju spustit dosovsky .exe soubor a odchytit
jeho chybove hlaseni.
Poradte mi prosim n�kdo.
S pozdravem Petr K�ra
Email: petr.kara(zv)ul.ds.mfcr(tec)cz
CPL
[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 25.6.1998 15:49:56
Hrb�� David wrote:
> Daji se delat pomoci delphi. Komponenty mohu zaslat.
> David
>
> -----P�vodn� zpr�va-----
> Od: Radek Adamec <adamecr(zv)sh.cvut(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 25. �ervna 1998 13:09
> P�edm�t: Re: CPL
>
> Ahoj,
>
> no vlastne to jsou prejmenovane DLL soubory.
> Kdysi davno jsem psal CPL pro Win 3.1, takze nevim, jestli to co napisu
> je jeste platne :(
>
> Tato knihovna musi exportovat calback fci CPLApplet:
> function CPLApplet HCPl:HWnd; Message:Word;lParam1,lParam2:LongInt)
> :Longint;export;
> Do teto funkce prichazeji messages CPl_xxxx, ktere je nutno osetrit.
> Jedna knihovna muze obsahovat vice polozek v Control Panelu, informace o
> nich (ikona, nazev,context help,..) se vraci po prijeti CPl_NewInquire.
> Pocet po CPl_GetCount.
> Po CPl_Init je treba vracet 1 no a konecne vlastni vykona cast se vola
> po CPl_DblClk.
> Pokud se nechces prilis hrabat v helpech, muzu Ti poslat onu aplikaci a
> pak s tim muzes laborovat jak je libo.
>
> Bye Radek
> ______________________________________________________________________
> Radek Adamec tel: ++ 420 2 717 40 205
> IS Administrator fax: ++ 420 2 717 40 203
> Technology Practice
> Accord Group ECE mobile: ++ 420 602 299 512
> Prague, Czech Republic email: r.adamec(zv)accord-ece.com
> ______________________________________________________________________
> Ing. Lud�k Florian wrote:
> >
> > Cauec vsichni,
> >
> > nevi nekdo, co je to za soubory CPL (ovladaci panely) a jak je v Delphi
> > vytvorit ?
> >
> > Nekde jsem kdysi cetl, ze se jedna o prejmenovane DLL soubory, ale nejak
> se
> > nedari...
> >
> > Bye Ludan
> >
> > ludan(zv)bluerose(tec)cz
Soubory CPL jsou skutecne DLL. Od nekad jsem vybral priklad psani techto
modulu, ale bohuzel jsem to jeste nerozebehnul. Pokud o to mas zajem, klidne
ti to poslu.
Ales
Resource WorkShop ???
[*] Vesna <veselyt(zv)sagas(tec)cz> - 25.6.1998 18:28:13
Diky moc a omlouvam se, jsem vobcas blbej jak troky.
S pozdravem
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 25. �ervna 1998 14:04
P�edm�t: Re: Resource WorkShop ???> chtel jsem se zeptat jestli nekdo nevi jestli existuje neco jako Resource
> WorkShop (a kde), ale s vlastnostma W95. Potrebuji prepsat v DLL dialog,
ale
> cestina pak nefunguje kdyz pouziju WorkShop.
> Mam Resource Workshop verzi 4.5. Je snad novejsi? Jina moznost jak to
> udelat?
A mas ho nastaveny na Win32? On totiz umi take Win16...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
Delphi a prace s registrem
[*] Petr Kmoch <kmoch(zv)sitkhaso(tec)cz> - 25.6.1998 19:23:09
Potreboval bych programove zmenit hodnoty v registru, ktere se tykaji ODBC-v
registru strom HKEY_LOCAL_MACHINE.Zkousel jsem volat funkci
delph openkey,ale funkce mi neustale vraci false.Zrejme nezadavam spravne
prvni parametr, ktery identifikuje cestu v registru.
Predem dekuji za radu Petr
****************************************************
* SIT & KHASO v.o.s. *
* Politickych veznu 9 *
* 111 21 PRAHA 1 *
* Czech republik, Europe *
* *
* Ekonomicky software VABANK *
* Celni programy JCD&TCP *
* *
* Tel.: +42-2-24210172 l.4355,4318 *
* Fax.: +42-2-24236658 *
* BBS : +42-2-24237372 *
* *
* *
* Mail: sitkhaso(zv)sitkhaso(tec)cz *
**************************************************** InstallShield Delphi Edition
[*] �ke��k Jaroslav�������6�����̿ - 25.6.1998 21:13:37
Napis si na nasi adresu jaro(zv)sinea(tec)cz.
V pripade zajmu poslu veskere informace.
Podrobnosti nechci uvadet do konference,
protoze je to mimo tuto konferenci
a jednou ze zasad je, ze se tu nesmi
provadet otevrena komerce.
Jaro.
>Ahoj,
>chtel jsem se zeptat, kde sezenu tu pocestenou verzi InstallShield Expresu,
>Sinea ji nema na svych
>home page.
>
>Diky
>
>Vesna
>-----P�vodn� zpr�va-----
>Od: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
>Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
>Datum: 24. �ervna 1998 19:34
>P�edm�t: RE: InstallShield Delphi Edition
>
>
>Ahoj,
>
>zatim pouzivame pocestenou verzi od f. Sinea.
>Ale ma 'mouchy' a podle reakci f. Sinea neni jasne jak moc vazne to berou.
>
>Instala�n� program na Win NT pou�ije misto Program Files
>lokalizovan� n�zev 'Programov� soubory' :), ale na Win95 spr�vn� Program
>Files
>Jednou to p�e Serial a podruh� Licence, atd.
>
>P�i definici insta�n�ho skriptu lze zadat zobrazen� dialogu pro
>UserName,CompanyName a SerialNo.
>Tyto informace instala�n� program ulo�� do registr�.
>
>Lze definovat Custom,Typical,Compact typy instalac�.
>Nekdy mi stava, ze skript 'neudrzi' informaci, ze mnou definovana slozka
>instalace (Components)
>BDEFiles obsahuje skupiny (Groups) BDE/IDAPI Files,BDE/IDAPI CNF
>File,BDE/IDAPI BLL Files
>a je potreba toto prirazeni definovat znovu a znovu ...
>
>Docela by me zajimalo, jake moznosti navic (krome toho ze to funguje OK)
>nabizi vyssi verze.
>
>Milos Skacel
>
>verzia dll
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 25.6.1998 21:25:44
Potreboval by som zistit verziu DLL kniznice, najlepsie funkciu ako napr.
GetDLLVersion(file : string) : string alebo nieco podobne.
Dik moc
Pavel Koutny, EMPEKO
Lermontova 12, 036 01 MARTIN
Slovenska Republika
++421 905 349609
Exe soubor
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.6.1998 21:28:16
K�ra Petr wrote:
> Mam takovy problem. Potrebuju spustit dosovsky .exe soubor a
> odchytit jeho chybove hlaseni.
function Shell(const AFile,AParam,ADir:string;Memo:TMemo):integer;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
s:string;
i,j,l:integer;
saAttr:TSecurityAttributes;
begin
Result:=-1;
Memo.Lines.Add('>> Start at '+DateTimeToStr(Now));
Memo.Lines.Add(AFile+' '+AParam);
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK
or STARTF_USESTDHANDLES;
wShowWindow := SW_HIDE;
saAttr.nLength:=Sizeof(TSECURITYATTRIBUTES);
saAttr.bInheritHandle:=TRUE;
saAttr.lpSecurityDescriptor:=nil;
CreatePipe(hStdInput,hStdOutput,(zv)saAttr,102400);
end;
if CreateProcess(nil,PChar(AFile+' '+AParam),nil,nil,true,
NORMAL_PRIORITY_CLASS,nil,PChar(ADir),StartupInfo,ProcessInfo)
then
begin
WaitforSingleObjectEx(ProcessInfo.hProcess,INFINITE,false);
if not GetExitCodeProcess(ProcessInfo.hProcess,Result)
then Result:=GetLastError;
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
with StartupInfo do
begin
SetLength(s,102400);
ReadFile(hStdInput,s[1],102400,l,nil);
s[l+1]:=#0;
i:=1;
j:=1;
while i<l do
begin
while (i<l) and not (s[i] in [#10,#13]) do Inc(i);
if i>j then Memo.Lines.Add(Copy(s,j,i-j));
j:=i;
while (i<l) and (s[i] in [#10,#13]) do Inc(i);
if i-j-2>0 then Memo.Lines.Add('');
j:=i;
end;
Memo.Lines.Add('>> End at '+DateTimeToStr(Now));
Memo.Lines.Add('');
SetLength(s,0);
CloseHandle(hStdInput);
CloseHandle(hStdOutput);
end;
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
QuickReport a Delphi 1.02
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.6.1998 21:44:20
> zkousel jsem se divat na www.qusoft.com, nasel jsem patricne verze,
> bylo tam take napsano, ze to je quickreport pro delphi, ale kdyz to
> chci stahnout, chce to ode mne heslo.
>
> KDE TO HESLO ZISKAM ?
>
> Jen mi nepiste ze v manualu, tam jsem ho nanasel.
To se pokousis stahnout ostre verze QuickReportu, ktere jsou komercni.
To heslo dostanes, az zaplatis QuSoftu $99 za ostrou verzi... Pokud
chces update na QuickReport, ktery mas v Delphi 2/3, musis stahovat
jen update, pripadne si muzes stahnout trial verze...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Paleta komponentov
[*] psoft <psoft(zv)kosice.telecom.sk> - 25.6.1998 22:39:20
Zdravim,
taka somarina, ale uz mi to lezie na nervy.
Neviete niekto ako mozete pri editacii palety komponentov (chcem
poprehazdovat komponenty medzi zalozkami, niektore zneviditelnit ...)
rychlo najst ten komponent ktory chcem ? Ak dam zobrazit vsetky, je
ich tam kopa a strasne tazko sa mi tam hlada. Alebo ako to zotriedit,
resp., podla coho je to tam usporiadane ?
Dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> CAB soubory & Patche
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 25.6.1998 22:39:34
Ahoj Delphici,
po nejake dobe, zase dotaz :-)).
Mila Sally, moc bych potreboval vedet, jestli existuje nejaka komponenta
(anebo DLL nebo API atd. atd. atd.) pro praci s .CAB soubory. Rad bych
dal svojim vecem profesionalni raz (aspon tak, kdyz program stoji za
...).
A dalsi vec - nevite nekdo, jak funguji .RTP patche? Pouziva je skoro
kazdy a daly by se s tim delat pekne veci :-)). Takze pokud by zasejc
nekdo vedel o nejake komponente, postupu anebo tak neco, budu moc
zavazan.
Mejte se krasne,
Peter
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz
Delphi a prace s registrem
[*] roman.palarcik(zv)spt(tec)cz - 26.6.1998 07:01:53
>Potreboval bych programove zmenit hodnoty v registru, ktere se tykaji ODBC-v
>registru strom HKEY_LOCAL_MACHINE.Zkousel jsem volat funkci
>delph openkey,ale funkce mi neustale vraci false.Zrejme nezadavam spravne
>prvni parametr, ktery identifikuje cestu v registru.
> Predem dekuji za radu Petr
Posilam ukazku ze sveho programu, snad to pomuze.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
procedure TProg1.ReadRegisters;
const
rPrograms = '\Software\MujProgram\Polozka1';
var
I, J: Integer;
L: TStringList;
R: TRegistry;
S: string;
begin
L:=TStringList.Create;
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
try
if R.OpenKey(rPrograms, False) then begin
R.GetKeyNames(L);
for I:=0 to L.Count-1 do begin
R.OpenKey(rPrograms + '\' + L.Strings[I], False);
S:=L.Strings[I] + #9 + R.ReadString('Command');
J:=R.ReadInteger('Short Cut')+1;
ListBox1.Items.AddObject(S, TObject(J));
end;
end;
finally
R.Free;
L.Free;
end;
end;relace
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 26.6.1998 07:27:04
Zdravim vsetkych v konferencii.
Ked som robil databazu v Accese, nastavil som si relace 1:N a ak som zmenil
hodnotu pola (ktore je pouzite na spojenie tabuliek v relaci) v primarnej
tabulke, automaticky sa mi zmenila hodota prislusneho pola v sek. tabulkach
napojenych na prim tabulku. Da sa to nejak nadefinovat aj v Delphi 2.0,
alebo ak uzivatel zmeni udaj v primarnej tabulke , musim v sekundarnych
tabulkach to aktualizovat kodom ?
dakujem za kazdu odpoved
Martin Talian
Geoplan spol s r.o. ,Kezmarok
e-mail : geoplan(zv)pp.sinet.sk
Acces do Paradoxu
[*] stingp1.eti(zv)mail.cez(tec)cz - 26.6.1998 07:29:58
Protoze pravdepodobne nemas nastaveny langdriver pri vytvareni tabulky
Pdox.
Kdyz ji totiz vytvaris v Database Desktopu, da se nastavit property Table
language.
Pak to chodi bez problemu.
Cau, Pavel
stingp1.eti(zv)mail.cez(tec)cz
zpetruj(zv)zebra(tec)cz na 25.06.97 13:53:29
Odpov?zte pros?m - delphi(zv)pinknet(tec)cz
Komu: delphi(zv)io.pinknet(tec)cz
Kopie: (Na v?dom?: Stingl Pavel/2310/ETI/CEZ)
P?edm?t: Acces do Paradoxu
Nevite proc mi Borland datova pumpa mrsi cestinu pri exportu Accessovske
tabulky do Paradoxovske tabulky at zkousim language drivery horem dolem
jak chci???
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
Delphi a prace s registrem
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 26.6.1998 07:29:02
-----Puvodni zprava-----
Od: Petr Kmoch
Odeslano: 25. eervna 1998 19:23
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Delphi a prace s registrem
Potreboval bych programove zmenit hodnoty v registru, ktere se tykaji ODBC-v
registru strom HKEY_LOCAL_MACHINE.Zkousel jsem volat funkci
delph openkey,ale funkce mi neustale vraci false.Zrejme nezadavam spravne
prvni parametr, ktery identifikuje cestu v registru.
Predem dekuji za radu Petr
****************************************************
* SIT & KHASO v.o.s. *
* Politickych veznu 9 *
* 111 21 PRAHA 1 *
* Czech republik, Europe *
* *
* Ekonomicky software VABANK *
* Celni programy JCD&TCP *
* *
* Tel.: +42-2-24210172 l.4355,4318 *
* Fax.: +42-2-24236658 *
* BBS : +42-2-24237372 *
* *
* *
* Mail: sitkhaso(zv)sitkhaso(tec)cz *
****************************************************
[Petr Brant]
Zde je funkce, kde jsem cetl z registru. Uprav si ji, jak potrebujes:
function FoundDataPathKey(SourceKey:string):integer ;
var s:string;
begin
MyReg:=TRegistry.Create;
MyReg.RootKey:=HKEY_LOCAL_MACHINE;
Result:=-3; {pro pripad, ze by se nepodarilo precist SourceKey}
if MyReg.OpenKey(SourceKey,False) then
begin
s := MyReg.ReadString('DataPath');
if s = '' then Result:=-3 else Result := 0;
end;
if Result=0 then WriteToLogFile('Reading key '+'DataPath'+'...success.')
else
WriteToLogFile('Reading key '+'DataPath'+'...failed.');
MyReg.Free;
end;*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************verzia dll
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 26.6.1998 07:40:20
-----Puvodni zprava-----
Od: Pavel Koutny
Odeslano: 25. eervna 1998 21:26
Komu: delphi(zv)pinknet(tec)cz
Poedmit: verzia dll
Potreboval by som zistit verziu DLL kniznice, najlepsie funkciu ako napr.
GetDLLVersion(file : string) : string alebo nieco podobne.
Dik moc
Pavel Koutny, EMPEKO
Lermontova 12, 036 01 MARTIN
Slovenska Republika
++421 905 349609
[Petr Brant]
Posilam C-ckovy kod, v Delphi lze funkce GetFileVersionInfoSize a
GetFileVersionInfo volat rovnez a vypada to ponekud mene hruzostrasne nez
toto. Bye.
DWORD dwHandle;
DWORD dwSize = ::GetFileVersionInfoSize("XXXXXX.DLL", &dwHandle);
if (dwSize) {
LPBYTE lpData = new BYTE[dwSize];
if (::GetFileVersionInfo("XXXXXX.DLL", dwHandle, dwSize, lpData)) {
UINT uiSize = UINT(sizeof(VS_FIXEDFILEINFO));
LPVOID lpData2 = new BYTE[uiSize];
::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
CString csVersion;
csVersion.Format("%d.%02d.%02d",
HIWORD(pvs_info->dwProductVersionMS),
HIWORD(pvs_info->dwProductVersionLS),
LOWORD(pvs_info->dwProductVersionLS));
}
delete lpData;
}
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************relace
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 26.6.1998 07:40:17
Kdyz budes pristupovat k databazi MSAccess pres posledni verzi BDE,
tak to bude fungovat jako v Accessu. O vse se stara BDE.
Vcera zkouseno.
D.
Martin Talian wrote:
>
> Zdravim vsetkych v konferencii.
>
> Ked som robil databazu v Accese, nastavil som si relace 1:N a ak som zmenil
> hodnotu pola (ktore je pouzite na spojenie tabuliek v relaci) v primarnej
> tabulke, automaticky sa mi zmenila hodota prislusneho pola v sek. tabulkach
> napojenych na prim tabulku. Da sa to nejak nadefinovat aj v Delphi 2.0,
> alebo ak uzivatel zmeni udaj v primarnej tabulke , musim v sekundarnych
> tabulkach to aktualizovat kodom ?
>
> dakujem za kazdu odpoved
>
> Martin Talian
> Geoplan spol s r.o. ,Kezmarok
> e-mail : geoplan(zv)pp.sinet.sk
hesla NT a MSSQL
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 26.6.1998 07:53:24
Ja si myslim ze to urcite jde , nebot mam napr.program usermanager, ktery
umoznuje z win95 menit hesla ostatnim uzivatelum samozrejme za predpokladu
ze mate admin. prava. Pomoci funkce PwdChangePassword jde zmenit ale pouze
heslo do NT aktivne prihlaseneho uzivatele(ale take heslo screensaveru a
heslo do windows). Tato funkce je popsana ve win32.hlp ale pouze pri zadani
vyhledavani, ne pres rejstrik(nevim sice proc ale je to tak).
DWORD PwdChangePassword(LPCTSTR lpProvider, HWND hwndOwner, DWORD dwFlags);
Changes the user's system logon password or a password provider's password.
Master provider router (MPR) displays a dialog box for changing the
password. If the user changes the logon password, MPR reencrypts the user's
password cache with the new password. Password providers are notified
through the PPChangePassword function.
Pro zmenu hesla do NT je nutno zadat jako provider "MSNP32"
pro windows staci nastavit provider na null
pro scrennsaver na "SCRSAVER"
a pro novell myslim "NWNP32"
tato funkce neni standartne nadefinovana v unitu windows a proto je nutne si
ji nadeklarovat nasledovne(dovoluji si ji poupravit, nebot spravna syntaxe
neodpovida syntaxi uvedene v API helpu, ale je tam o jeden parametr vice)
function
PwdChangePasswordA(provider:PAnsiChar;handle:HWnd;user1,user2:DWORD):DWORD;s
tdcall; external 'mpr.dll';
priklad:
provider:='MSNP32';
PwdChangePasswordA(provider,Form1.handle,0,0);
-----P�vodn� zpr�va-----
Od: Vodnansky David <Vodnansky(zv)allianz(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 25. �ervna 1998 17:55
P�edm�t: RE: hesla NT a MSSQL
>Obavam se, ze to nepujde, protoze ze stanice Windows95 neni podle mne
>zadna moznost jak zmenit heslo na NT serveru - to jde pouze z NT
>stanice. Mimochodem tu funkci PwdChangePassword jsem nikde v popisu
>Win32 API nenasel, kde je popsana ?
>
>-----------------------------------------------------
>David Vodnansky - database analyst
><mailto: vodnansky(zv)allianz(tec)cz>
>-----------------------------------------------------
>
>> -----P�vodn� zpr�va-----
>> Od: sula milos
>> Odesl�no: 25. �ervna 1998 7:50
>> Komu: DELPHI Distribution List
>> P�edm�t: Re: hesla NT a MSSQL
>>
>> Bohuzel jsem zjistil ze funkce NetUserChangePassword neni
>> podporovana ve
>> win95 ale snad by to mnelo jit pomoci funkce PwdChangePassword.
>>
>> >Hledej v helpu k API funkci NetUserChangePassword.
>> >
>> >> Prosim vas nevite nekdo jak zmenit heslo do site Microsoft NT a
>> >> do
>> >> MS SQL ?
>> >> Mam na mysli zda neexistuje nejaka API funkce.Jak vytvo�it OLE/OCX v Delphi 2.0 ?
[*] MotlicekP(zv)TESCOSW.CZ - 26.6.1998 08:40:31
Zdravim,
Z User's Guide Delphi 2.0 Developer jsem nepochopil, jak vytvorit OLE
server - komponentu pro pouziti v jinych aplikacich.
Jedna se mi o to, jak vytvorit nejaky ten redistibutovatelny soubor
komponenta.ocx nebo komponenta.dll ci komponenta.exe v
Delphi 2.0 Developer.
Diky za rady
Petr Motlicek
D3 > D1
[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 26.6.1998 08:44:02
Ahoj vsichni!
Potreboval bych vedet, jestli nejdeou prevest objekty z D3 (pripadne D2)
do D1, a kdyz ano, tak jak.
Zdravi MYRA.problem s IniFile
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 26.6.1998 08:55:58
Zdravim,
muze mi nekdo poradit, co ze to mam v programu spatne:
var
IniFile : TIniFile;
sPath,
sText : String;
begin
{Nacteni cesty k IniFile}
GetDir(0,sPath);
IF (Length(sPath)>0)AND(Copy(sPath,Length(sPath),1)<>'\') THEN
sPath := sPath+'\' ;
{Pripraveni HTML}
IniFile := TIniFile.Create(sPath+'DFtpOut.cfg');
PutLine('<HTML>');
PutLine('<HEAD>');
sText :=IniFile.ReadString('HTML','Title','V�sledek ');
^^^^^^ a tady pri tom cteni to krachuje (neplatna operace v
KRNL386.EXE)^^^^^^^
PutLine('<TITLE>'+sText+'</TITLE>');
PutLine('</HEAD>');
...... a potom dale....
Spadne to vzdy kdyz dany IniFile (soubor 'DFtpOut.cfg' ) neexistuje nebo je
nulovy nebo tam dana sekce ani data nejsou. Pokud tuto radku z programu
odstranim, tak to krachne na dalsim cteni (za stejnych podminek).
Pokud je inifile tam kde ma byt a je spravne naplnen, tak aplikace beha k
plne spokojenosti.
Pokud program krokuji, tak to projde take v pohode (i kdyz dany inifile tam
vubec neni).
Zdenek
prantl(zv)ptc.pvt(tec)cz
Exe soubor
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 26.6.1998 09:11:58
> -----Original Message-----
> From: K�ra Petr [SMTP:Petr.Kara(zv)ul.ds.mfcr(tec)cz]
> Sent: Thursday, June 25, 1998 3:23 PM
> Subject: Exe soubor
>
> P�kn� den
>
> Mam takovy problem. Potrebuju spustit dosovsky .exe soubor a odchytit
> jeho chybove hlaseni.
Odkud spustit a jak odchytit ?
dosovsky exe by mel pri padu nebo pri ukonceni vracet ErrorLevel. Mel jsem
kdysi pod dosem udelan takovy priklad, ktery mi pres ErrorLevel vracel den v
tydnu. Bat soubor ze ktereho jsem to spoustel vypadal nasledovne:
==============================
vitej.exe
IF ErrorLevel == 106 GOTO Sobota
IF ErrorLevel == 105 GOTO Patek
IF ErrorLevel == 104 GOTO Ctvrtek
IF ErrorLevel == 103 GOTO Streda
IF ErrorLevel == 102 GOTO Utery
IF ErrorLevel == 101 GOTO Pondeli
IF ErrorLevel == 100 GOTO Nedele
:Nedele
ECHO Dele neco ....
GOTO Konec
:Pondeli
....
==================================
Zdenek
prantl(zv)ptc.pvt(tec)cz
D3 > D1
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.1998 09:15:11
> Potreboval bych vedet, jestli nejdeou prevest objekty z D3 (pripadne D2)
> do D1, a kdyz ano, tak jak.
Co myslis terminem objekty?
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Jak vytvo�it OLE/OCX v Delphi 2.0 ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.1998 09:15:11
> Z User's Guide Delphi 2.0 Developer jsem nepochopil, jak vytvorit OLE
> server - komponentu pro pouziti v jinych aplikacich.
> Jedna se mi o to, jak vytvorit nejaky ten redistibutovatelny soubor
> komponenta.ocx nebo komponenta.dll ci komponenta.exe v
> Delphi 2.0 Developer.
Delphi 2 neumi udelat OCX, to umi az Delphi 3.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================CPL
[*] Hrb�� David - 26.6.1998 09:30:12
[P��loha v souboru: d3controlpanel.zip]
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
-----P�vodn� zpr�va-----
Od: Mik Radim <mik(zv)oce(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 25. �ervna 1998 16:54
P�edm�t: RE:CPL
>Ahoj,
>
> mam podobny problem. Zkousel jsem z UNDU priklad na CPL, ale bohuzel
>mi po zkompilovani popd Delphi3 nechodil.
>
> Pokud nekdo ma chodici priklad pod D3, prosim poslete ho na mou adresu.
>Diky
> Radim H. Mik
> mik(zv)oce(tec)cz
CPL
[*] Hrb�� David - 26.6.1998 09:31:21
Moc se vsem omlouvam, ale odeslal jsem zdrojak nechte do konference, misto
na soukromou adresu!!
David
Exe soubor
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 26.6.1998 09:36:56
Tohle nefunguje na DOSovskym EXE, konkretne to vyhuci na ReadFile. Win32
konzolovka OK.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
>K�ra Petr wrote:
>
>> Mam takovy problem. Potrebuju spustit dosovsky .exe soubor a
>> odchytit jeho chybove hlaseni.
>
>function Shell(const AFile,AParam,ADir:string;Memo:TMemo):integer;
[...]
>end;
>
>Zbysek Hlinka
problem s IniFile
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 26.6.1998 09:59:19
Zdravim,
muze mi nekdo poradit, co ze to mam v programu spatne:
var
IniFile : TIniFile;
sPath,
sText : String;
begin
{Nacteni cesty k IniFile}
GetDir(0,sPath);
IF (Length(sPath)>0)AND(Copy(sPath,Length(sPath),1)<>'\') THEN
sPath := sPath+'\' ;
{Pripraveni HTML}
IniFile := TIniFile.Create(sPath+'DFtpOut.cfg');
PutLine('<HTML>');
PutLine('<HEAD>');
sText :=IniFile.ReadString('HTML','Title','V�sledek ');
^^^^^^ a tady pri tom cteni to krachuje (neplatna operace v
KRNL386.EXE)^^^^^^^
PutLine('<TITLE>'+sText+'</TITLE>');
PutLine('</HEAD>');
...... a potom dale....
Spadne to vzdy kdyz dany IniFile (soubor 'DFtpOut.cfg' ) neexistuje nebo je
nulovy nebo tam dana sekce ani data nejsou. Pokud tuto radku z programu
odstranim, tak to krachne na dalsim cteni (za stejnych podminek).
Pokud je inifile tam kde ma byt a je spravne naplnen, tak aplikace beha k
plne spokojenosti.
Pokud program krokuji, tak to projde take v pohode (i kdyz dany inifile tam
vubec neni).
Zdenek
prantl(zv)ptc.pvt(tec)cz
D3 > D1
[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 26.6.1998 10:08:34
On Fri, 26 Jun 1998, Petr Zahradnik wrote:
> > Potreboval bych vedet, jestli nejdeou prevest objekty z D3 (pripadne D2)
> > do D1, a kdyz ano, tak jak.
>
> Co myslis terminem objekty?
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
>
Promin, spatne jsem se vyjadril. Myslim tim, jako jestli nejde nejakym
zpusobem dostat z knihovny objektu v D3 nejaky v D1 neexistujici objekt do
knihovny v D1.MSSQL and NT
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 26.6.1998 10:13:01
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
mam nasledujici dotaz:
Nastavil jsem na MSSQL security na mixed(je mozno pouzivat hesla z NT pro pristup do MSSQL). Problem je ale v tom ze po prihlaseni win95 do NT a napojeni na MSSQL se MSSQL jiz nezepta na heslo, nebot jmeno uzivatele ktery se prihlasuje do MSSQL je stejne jako uzivatel prave prihlaseny do NT. Jak by se dalo toto osetrit tak aby se MSSQL ptal pri kazdem pokusu o pripojeni na heslo a toto heslo take pouzil k autentizaci?QuickReport a Delphi 1.02
[*] Vesna <veselyt(zv)sagas(tec)cz> - 26.6.1998 10:17:51
Heslo ti meli poslat emailem a take na papire, kde mas licencni cislo. Pokud
jsi ho zapomnel, tak kontaktuj sales(zv)qusoft.com . Samozrejme musis mit
koupeny QuickReport od Qusoftu, ne jen verzi od Borlandu.
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 25. �ervna 1998 19:25
P�edm�t: Re: QuickReport a Delphi 1.02
>> Presne tak, K-cko je posledni verze a pry by mela ted brzy vyjet nova.
>>
>> Vesna
>>
>> Pismeno za cislem je taky poradi? Pokud mam 2.0J, je starsi nez ta tvoje?
>>
>> Kupka Lubomor
>> -------------------------------------------------------------------------
---
>> Posledni verze je 2.0K. Nevim, jak jste objednavali QuickReport, ale asi
po
>> inetu. QuSoft Vam poslal heslo pro volne upgrady, ktere jsou na jejich
>> strance stazitelne (www.qusoft.com ). V pripade problemu mailuj
>> sales(zv)qusoft.com.
>>
>
>Srdecne zdravim,
>zkousel jsem se divat na www.qusoft.com, nasel jsem patricne verze,
>bylo tam take napsano, ze to je quickreport pro delphi, ale kdyz to
>chci stahnout, chce to ode mne heslo.
>
>KDE TO HESLO ZISKAM ?
>
>Jen mi nepiste ze v manualu, tam jsem ho nanasel.
>
>
>S pozdravem Zdenek
>---------------------------------------------------------
>: o__o Zdenek Sraier sraierzd(zv)czn(tec)cz :
>: ( o o) users(tec)czn(tec)cz/~sraierzd/ :
>: (. .) Stranky Potapecske www.byll(tec)cz/scuba/ :
>---------------------------------------------------------
>This message was delivered using 100% recyclable electrons.
>WorkShop a cestina?
[*] Vesna <veselyt(zv)sagas(tec)cz> - 26.6.1998 10:26:44
Sorry, asi uz Vas trapim touhle priblblou otazkou, ale kdyz v Resource
WorkShopu edituji dll,
pisu do ni cesky, napr. buttony necham si ukazat test ve WorkShopu -> vse je
O.K., ale jak dll
spoustim v programu cestina je v pr.. . Uz jsem celkem zoufalej. Jak ???
Diky
Vesna, SagaS
Jak vytvorit OLE server v Delphi 2.0
[*] MotlicekP(zv)TESCOSW.CZ - 26.6.1998 10:50:16
OCX treba ne, ale DLL umi vytvorit. A v User's guide je popsany postup
pro vytvoreni OLE In-Process serveru (tj. DLL), ale nejsem z toho
moudry.
Presnejsi otazka zni: Co musim udelat, aby cizi aplikace dokazala
vytvorit OLE objekt z DLL ? (Tedy jak to DLL vytvorit).
Diky za odpovedi.
Petr Motlicek, OLE zacatecnik
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 26. �ervna 1998 10:15
>
> > Z User's Guide Delphi 2.0 Developer jsem nepochopil, jak vytvorit
> OLE
> > server - komponentu pro pouziti v jinych aplikacich.
> > Jedna se mi o to, jak vytvorit nejaky ten redistibutovatelny soubor
> > komponenta.ocx nebo komponenta.dll ci komponenta.exe v
> > Delphi 2.0 Developer.
>
> Delphi 2 neumi udelat OCX, to umi az Delphi 3.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> verzia dll - problem 2
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 26.6.1998 12:16:18
>[Petr Brant]
>
>Posilam C-ckovy kod, v Delphi lze funkce GetFileVersionInfoSize a
>GetFileVersionInfo volat rovnez a vypada to ponekud mene hruzostrasne nez
>toto. Bye.
>
>DWORD dwHandle;
>DWORD dwSize = ::GetFileVersionInfoSize("XXXXXX.DLL", &dwHandle);
>if (dwSize) {
> LPBYTE lpData = new BYTE[dwSize];
> if (::GetFileVersionInfo("XXXXXX.DLL", dwHandle, dwSize, lpData)) {
> UINT uiSize = UINT(sizeof(VS_FIXEDFILEINFO));
> LPVOID lpData2 = new BYTE[uiSize];
> ::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
> VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
> CString csVersion;
> csVersion.Format("%d.%02d.%02d",
> HIWORD(pvs_info->dwProductVersionMS),
> HIWORD(pvs_info->dwProductVersionLS),
> LOWORD(pvs_info->dwProductVersionLS));
> }
> delete lpData;
>}
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************
OK, skusil som to prelozit, a narazil som na toto:
procedurer BinaryFileVersion(subor : string) : string;
type
vs_fixedfileinfo = record
dwSignature : dword;
dwStructVersion : dword;
dwFileVersionMS : dword;
dwFileVersionLS : dword;
dwProductVersionMS : dword;
dwProductVersionLS : dword;
dwFileFlagsMask : dword;
dwFileFlags : dword;
dwFileOS : dword;
dwFileType : dword;
dwFileSubtype : dword;
dwFileDateMS : dword;
dwFileDateLS : dword;
end;
var dwHandle : dword;
dwSize : dword;
lpData : ^word;
lpData2 : ^word;
pvs_info : vs_fixedfileinfo;
csVersion : string;
uiSize : integer;
begin
New(lpData);
dwSize := GetFileVersionInfoSize(subor,dwHandle);
if GetFileVersionInfo(subor,dwHandle,dwSize,lpData) then begin
uiSize := sizeof(VS_FIXEDFILEINFO);
New(lpData2);
{ ****************************** Ako prelozit toto ???
*************************
::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;****************************************************************************
**** }
csVersion :=
Format('%d.%02d.%02d',[hiword(pvs_info.dwProductVersionMS),hiword(pvs_info.d
wProductVersionLS),loword(pvs_info.dwProductVersionLS)]);
Dispose(lpData2);
end;
Dispose(lpData);
BinaryFileVersion := csVersion;
end;
Pavel Koutny
Minimalizace
[*] Ing. J�n Kuch�r�����!j��G - 26.6.1998 13:12:43
Cau !
Mal by som tiez zaujem o danu komponentu, tak mi ju prosim Ta posli.
E-mail : kuchar(zv)tuke.sk
-----P�vodn� zpr�va-----
Od: Petr Kandera <p_kandera(zv)usa.net>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. j�n 1998 22:52
P�edm�t: Re: Minimalizace
>Ahoj,
>
>na Internetu, uz nevim kde, jsem nasel komponentu TRAYICON, ktera asi by
>mohla delat co potrebujes. Das ji na formular a jak aplikaci spustis,
>objevi se jeji icona vedle hodin a je i v taskbaru. Po minimalizaci je
>pouze u hodin. Ma metody na klik, dvojklik i pop-up menu. Kdyz pri
>startu aplikaci zminimalizujes, bude jen vedle hodin. Pokud mas zajem,
>poslu Ti ji primo, at to nejde pres konferenci, je to sice jen
>4 KB, ale prece. Jinak se daji najit podobne i na DSP nebo Torry.
>
>Petr Kandera
>p_kandera(zv)usa.net
>
>
>svatos(zv)af(tec)czu(tec)cz wrote:
>>
>> Ahoj Delphinari !!!
>>
>> Bavili jste se o tom, jak zmizet aplikaci z TaskBaru.
>> Nuze, vyskousel jsem vase rady a jsem spokojen.
>> Ovsem ...
>>
>> Predstavte si:
>> 1) Aplikace se mi ukaze jen ve treji, dvojitym poklepanim na ikonku
>> ji aktivuji (=ukazi patricne okynko)
>> 2) pak kliknu na ikonku minimalizace a chci, aby to okynko zase
>> zmizelo z TaskBaru
>>
>> ???? Existuje nejaka zprava ci co ??????
>> Prosim pomozte !!!!
>>
>> Svatos Hynek
>> svatos(zv)af(tec)czu(tec)cz
>exec
[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 26.6.1998 13:20:21
Muzete mi poradit, proc se to kouse :
...
...
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
function Shell(const AFile,AParam,ADir:string;Memo:TMemo):integer;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
s:string;
i,j,l:integer;
saAttr:TSecurityAttributes;
begin
Result:=-1;
Memo.Lines.Add('>> Start at '+DateTimeToStr(Now));
Memo.Lines.Add(AFile+' '+AParam);
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK
or STARTF_USESTDHANDLES;
wShowWindow := SW_HIDE;
saAttr.nLength:=Sizeof(TSECURITYATTRIBUTES);
saAttr.bInheritHandle:=TRUE;
saAttr.lpSecurityDescriptor:=nil;
CreatePipe(hStdInput,hStdOutput,(zv)saAttr,102400);
end;
if CreateProcess(nil,PChar(AFile+' '+AParam),nil,nil,true,
NORMAL_PRIORITY_CLASS,nil,PChar(ADir),StartupInfo,ProcessInfo)
then
begin
WaitforSingleObjectEx(ProcessInfo.hProcess,INFINITE,false);
if not GetExitCodeProcess(ProcessInfo.hProcess,Result)
then Result:=GetLastError;
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
with StartupInfo do
begin
SetLength(s,10240);
<><><><><> ReadFile(hStdInput,s[1],10240,l,nil);
<tady se to kouse>
s[l+1]:=#0;
i:=1;
j:=1;
while i<l do
begin
while (i<l) and not (s[i] in [#10,#13]) do Inc(i);
if i>j then Memo.Lines.Add(Copy(s,j,i-j));
j:=i;
while (i<l) and (s[i] in [#10,#13]) do Inc(i);
if i-j-2>0 then Memo.Lines.Add('');
j:=i;
end;
Memo.Lines.Add('>> End at '+DateTimeToStr(Now));
Memo.Lines.Add('');
SetLength(s,0);
CloseHandle(hStdInput);
CloseHandle(hStdOutput);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
shell('arj.exe',' /?','',memo1);
end;
....
Nevim uz co s tim, urcite to bude najaka banalita
Ales
Accses
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 26.6.1998 13:46:03
Zdravim vsetkych v konferencii,
Nainstaloval som si BDE v 4.51. Aj tak sa nemozem pripojit na Acces
databazu, vypisuje ze CHYBY SYSTEMOVA DATABAZE.
nevie niekto poradit ?
Martin Talian
Geoplan spol s r.o. ,Kezmarok
e-mail : geoplan(zv)pp.sinet.sk
Jak vytvorit OLE server v Delphi 2.0
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 26.6.1998 14:48:04
Petre,
OLE server komunikuje se svym okolim pres COM interface, v pripade OCX
vyhradne pres OLE Automation/IDispatch/dispinterface. D2 nema primou podporu
pro COM interface v zadne podobe, mimo velmi komplikovane (na pochopeni) a
limitovane podpory OLE Automation. Pokud mas zajem vyuzivat COM/OLE v
jakekoliv podobe, mohu opravdu jen doporucit upgrade na D3 nebo D4, kde uz
je to velmi "snadna" zalezitost.
Haj hou!
-----P�vodn� zpr�va-----
OCX treba ne, ale DLL umi vytvorit. A v User's guide je popsany postup
pro vytvoreni OLE In-Process serveru (tj. DLL), ale nejsem z toho
moudry.
Presnejsi otazka zni: Co musim udelat, aby cizi aplikace dokazala
vytvorit OLE objekt z DLL ? (Tedy jak to DLL vytvorit).
Diky za odpovedi.verzia dll - problem 2
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 26.6.1998 15:35:31
>[Petr Brant]
>
>Posilam C-ckovy kod, v Delphi lze funkce GetFileVersionInfoSize a
>GetFileVersionInfo volat rovnez a vypada to ponekud mene hruzostrasne nez
>toto. Bye.
>
>DWORD dwHandle;
>DWORD dwSize = ::GetFileVersionInfoSize("XXXXXX.DLL", &dwHandle);
>if (dwSize) {
> LPBYTE lpData = new BYTE[dwSize];
> if (::GetFileVersionInfo("XXXXXX.DLL", dwHandle, dwSize, lpData)) {
> UINT uiSize = UINT(sizeof(VS_FIXEDFILEINFO));
> LPVOID lpData2 = new BYTE[uiSize];
> ::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
> VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
> CString csVersion;
> csVersion.Format("%d.%02d.%02d",
> HIWORD(pvs_info->dwProductVersionMS),
> HIWORD(pvs_info->dwProductVersionLS),
> LOWORD(pvs_info->dwProductVersionLS));
> }
> delete lpData;
>}
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************
OK, skusil som to prelozit, a narazil som na toto:
procedurer BinaryFileVersion(subor : string) : string;
type
vs_fixedfileinfo = record
dwSignature : dword;
dwStructVersion : dword;
dwFileVersionMS : dword;
dwFileVersionLS : dword;
dwProductVersionMS : dword;
dwProductVersionLS : dword;
dwFileFlagsMask : dword;
dwFileFlags : dword;
dwFileOS : dword;
dwFileType : dword;
dwFileSubtype : dword;
dwFileDateMS : dword;
dwFileDateLS : dword;
end;
var dwHandle : dword;
dwSize : dword;
lpData : ^word;
lpData2 : ^word;
pvs_info : vs_fixedfileinfo;
csVersion : string;
uiSize : integer;
begin
New(lpData);
dwSize := GetFileVersionInfoSize(subor,dwHandle);
if GetFileVersionInfo(subor,dwHandle,dwSize,lpData) then begin
uiSize := sizeof(VS_FIXEDFILEINFO);
New(lpData2);
{ ****************************** Ako prelozit toto ???
*************************
::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;****************************************************************************
**** }
csVersion :=
Format('%d.%02d.%02d',[hiword(pvs_info.dwProductVersionMS),hiword(pvs_info.d
wProductVersionLS),loword(pvs_info.dwProductVersionLS)]);
Dispose(lpData2);
end;
Dispose(lpData);
BinaryFileVersion := csVersion;
end;
Pavel Koutny
problem s IniFile
[*] Milan Krumpolec <mkr(zv)roedl(tec)cz> - 26.6.1998 17:39:51
U techto veci byva zvykem davat exeption,
pokud nastane vyjimka tak se vyhodi nejake
informativni okno.
> Zdravim,
>
> muze mi nekdo poradit, co ze to mam v programu spatne:
>
> var
> IniFile : TIniFile;
> sPath,
> sText : String;
> begin
> {Nacteni cesty k IniFile}
> GetDir(0,sPath);
> IF (Length(sPath)>0)AND(Copy(sPath,Length(sPath),1)<>'\') THEN
> sPath := sPath+'\' ;
> {Pripraveni HTML}
> IniFile := TIniFile.Create(sPath+'DFtpOut.cfg');
> PutLine('<HTML>');
> PutLine('<HEAD>');
> sText :=IniFile.ReadString('HTML','Title','Vysledek ');
> ^^^^^^ a tady pri tom cteni to krachuje (neplatna operace v
> KRNL386.EXE)^^^^^^^
>
> PutLine('<TITLE>'+sText+'</TITLE>');
> PutLine('</HEAD>');
> ...... a potom dale....
>
> Spadne to vzdy kdyz dany IniFile (soubor 'DFtpOut.cfg' ) neexistuje nebo je
> nulovy nebo tam dana sekce ani data nejsou. Pokud tuto radku z programu
> odstranim, tak to krachne na dalsim cteni (za stejnych podminek).
> Pokud je inifile tam kde ma byt a je spravne naplnen, tak aplikace beha k
> plne spokojenosti.
> Pokud program krokuji, tak to projde take v pohode (i kdyz dany inifile tam
> vubec neni).
>
> Zdenek
> prantl(zv)ptc.pvt(tec)cz
>
Milan Krumpolec
Roedl & Partner, k.s.
Platnerska 4, Praha 1
tel. +420 2 211 08 368
E-mail: mkr(zv)roedl(tec)cz
problem s IniFile
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.6.1998 18:03:07
Zdenek Prantl wrote:
A mas nastaveno Project /Options /Compiler /Strict var-strings na
false?
> muze mi nekdo poradit, co ze to mam v programu spatne:
>
> var
> IniFile : TIniFile;
> sPath,
> sText : String;
> begin
> {Nacteni cesty k IniFile}
> GetDir(0,sPath);
> IF (Length(sPath)>0)AND(Copy(sPath,Length(sPath),1)<>'\') THEN
> sPath := sPath+'\' ;
> {Pripraveni HTML}
> IniFile := TIniFile.Create(sPath+'DFtpOut.cfg');
> PutLine('<HTML>');
> PutLine('<HEAD>');
> sText :=IniFile.ReadString('HTML','Title','V�sledek ');
> ^^^^^^ a tady pri tom cteni to krachuje (neplatna operace v
> KRNL386.EXE)^^^^^^^
>
> PutLine('<TITLE>'+sText+'</TITLE>');
> PutLine('</HEAD>');
> ...... a potom dale....
>
> Spadne to vzdy kdyz dany IniFile (soubor 'DFtpOut.cfg' ) neexistuje
> nebo je nulovy nebo tam dana sekce ani data nejsou. Pokud tuto radku
> z programu odstranim, tak to krachne na dalsim cteni (za stejnych
> podminek). Pokud je inifile tam kde ma byt a je spravne naplnen, tak
> aplikace beha k plne spokojenosti. Pokud program krokuji, tak to
> projde take v pohode (i kdyz dany inifile tam vubec neni).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
D3 > D1
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.1998 20:20:57
> Promin, spatne jsem se vyjadril. Myslim tim, jako jestli nejde nejakym
> zpusobem dostat z knihovny objektu v D3 nejaky v D1 neexistujici objekt do
> knihovny v D1.
Takze jako myslis nejake komponenty? Zalezi, v jakem tvaru ty komponenty
mas. Pokud mas jen DCU, tak ty jsou vzajemne nekompatibilni a z toho
nic nedostanes nikam. Pokud mas zdrojaky, tedy PAS, pak samozrejme ano,
ovsem jen za predpokladu, ze ta komponenta nevyuziva jinych komponent,
moznosti, metod ci funkci a procedur, ktere nejsou implementovany v D1.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Jak vytvorit OLE server v Delphi 2.0
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.1998 20:20:57
> OCX treba ne, ale DLL umi vytvorit. A v User's guide je popsany postup
> pro vytvoreni OLE In-Process serveru (tj. DLL), ale nejsem z toho
> moudry.
> Presnejsi otazka zni: Co musim udelat, aby cizi aplikace dokazala
> vytvorit OLE objekt z DLL ? (Tedy jak to DLL vytvorit).
A nemyslis toto?
\DELPHI20\DEMOS\OLEAUTO\AUTOSERV\
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================D3 > D1
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.1998 20:29:49
Ondrej Valentik wrote:
>
> On Fri, 26 Jun 1998, Petr Zahradnik wrote:
>
> > > Potreboval bych vedet, jestli nejdeou prevest objekty z D3 (pripadne D2)
> > > do D1, a kdyz ano, tak jak.
> >
> > Co myslis terminem objekty?
> >
> > S pozdravem
> > Petr Zahradnik, pocitacovy expert
> >
> > ==============================================================
> > === Petr Zahradnik - Computer Laboratory ===
> > === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> > === Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
> > === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> > ==============================================================
> >
> Promin, spatne jsem se vyjadril. Myslim tim, jako jestli nejde nejakym
> zpusobem dostat z knihovny objektu v D3 nejaky v D1 neexistujici objekt do
> knihovny v D1.
Ahoj,
Jake objekty mas konkretne namysli, nejake z VCL knihovny ?
Petr Vones, amatersky programator
Accses
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.1998 22:24:13
> Nainstaloval som si BDE v 4.51. Aj tak sa nemozem pripojit na Acces
> databazu, vypisuje ze CHYBY SYSTEMOVA DATABAZE.
Chybi se pise s "I" na konci. Pokud ta databaze, kterou se snazis
otvirat, je ochranena s pristupem jen pro nektere uzivatele
(ne normalni heslo, ale proste pristup pres uzivatele/heslo),
pak musis mi systemovou databazi a pochopitelne ta musi byt
pritomna pro kazdou praci s touto databazi.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Casio
[*] Pavel Drtil <drtil(zv)norek.list.skm.vutbr(tec)cz> - 26.6.1998 23:18:31
Potreboval bych nejake komponenty pro komunikaci
diare Casio s PC.
Uz to tu bylo, ale na archivu konference jsem
to nejak nenasel.
Diky za kazdy odkaz, soubor, informaci....
Pavel
----------------------------------------
Pavel Drtil - mailto:xdrtil00(zv)stud.fee.vutbr(tec)cz
talk drtil(zv)drtil.list.skm.vutbr(tec)cz
exec
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.6.1998 07:23:16
Krautvor Ale| wrote:
> Muzete mi poradit, proc se to kouse :
> ...
> ...
> type
> TForm1 = class(TForm)
> Memo1: TMemo;
> Button1: TButton;
>
> function Shell(const AFile,AParam,ADir:string;Memo:TMemo):integer;
...
> SetLength(s,10240);
> <><><><><> ReadFile(hStdInput,s[1],10240,l,nil);
> <tady se to kouse>
...
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> shell('arj.exe',' /?','',memo1);
> end;
> ....
Protoze jsem toto zplodil ja, take odpovim. Mohlo by se jednat o
problem konverze mezi string a PChar. Zmen si proto deklaraci funkce
na: function Shell(const AFile,AParam,ADir:PChar;...
a uprav prislusne i vnitrni pristup k parametrum, napr.
Memo.Lines.Add(string(AFile)+' '+string(AParam));
a volani by melo vypadat takto:
shell('arj.exe',' /?',nil,memo1);
Pak uz by to fungovat mohlo. Je vsak otazka, jak to bude vypadat u
DOS programu.
Ja tuto funkci pouzivam v puvodni podobe tak, ze tam cpu druhy
parametr jako PChar a treti parametr je neprazdny, a volam Win32
konzolove programy, takto mi to take funguje. Nicmene priznavam, ze
to ma sve slabiny.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Paleta komponentov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 21:40:22
Marek Repisk� wrote:
>
> > Zdravim,
> >
> > taka somarina, ale uz mi to lezie na nervy.
> > Neviete niekto ako mozete pri editacii palety komponentov (chcem
> > poprehazdovat komponenty medzi zalozkami, niektore zneviditelnit ...)
> > rychlo najst ten komponent ktory chcem ? Ak dam zobrazit vsetky, je
> > ich tam kopa a strasne tazko sa mi tam hlada. Alebo ako to zotriedit,
> > resp., podla coho je to tam usporiadane ?
> >
> > Dakujem.
>
> Ak mas D3, tak cez menu Project/Option/Packages sa daju odskrtat vybrane komponenty.
> Myslim, ze by to mohlo ist aj s instalovanymi komponentamy.
> V D1,D2 :-(?
Ahoj,
v Delphi 2 si muzes vytvorit vice knihoven komponent (*.DCL), pak lze pomoci
Component|Open Library otevrit tu ktera ti svym usporadanim v dane situaci
vyhovuje.
Petr Vones, amatersky programator
Off Topic - vymena harddisku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 21:41:12
Jan.Kubeczka(zv)gate.trz(tec)cz wrote:
>
> Ahoj!
>
> Mam problem. Potrebuji vymenit maly harddisk (1.28GB) za vetsi. Potiz je v
> tom, ze mam na nem hodne programu,
> a chtel bych se vyhnout opetovnym instalacim. Neexistuje nejaky software
> pro zalohovani a opetovne nainstalovani
> ze zalohy ? Samozrejme, ze se bude muset nainstalovat OS nejprve a pak az
> programy a data ze zalohy.
> Bylo by mozne, aby software obnovil registry ze zalohy, DLL atd.?
> Predem dekuji.
Ahoj,
O zadne takove moznosti nevim, nicmene obcasne preinstalovani systemu
ma docela pozitivni vliv v tom, ze tam pak znovu das jen aplikace ktere
skutecne pouzivas :-)
Petr Vones, amatersky programator
custom open dialog + TDBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 21:42:37
Kelle Ondrej wrote:
>
> Ahoj,
>
> snazim sa vytvorit potomka TOpenDialog s pouzitim panelu, na ktorom
> chcem zobrazit DBGrid. Pozrel som si zdrojak TOpenPictureDialog a robim
> to podobne. V konstruktori si vytvorim Panel, DataSet, DataSource, a
> DBGrid, ktoremu priradim Panel ako Parent (a samozrejme Align :=
> alClient). V DoShow potom priradim FPanel := Handle.
>
Ahoj,
Problem je ve funkcich GetParentForm a ValidParentForm, pokud ti staci
mit ten DBGrid jako ReadOnly tak to jde udelat takhle, ale mozna v tom
budou jeste nejake neosetrene sitace vyvolavajici chyby:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtDlgs, Db, DBTables, DBGrids, Buttons, ExtCtrls,
DBCtrls;
type
TXYDBGrid = class(TDBGrid)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure SetFocus; override;
public
constructor Create(AOwner: TComponent); override;
end;
TGridOpenDialog = class(TOpenDialog)
private
FDBGrid: TXYDBGrid;
FTable: TTable;
FDataSource: TDataSource;
FGridPanel: TPanel;
protected
procedure DoSelectionChange; override;
procedure DoShow; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TXYDBGrid }
constructor TXYDBGrid.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Name := 'DialogGrid';
Options := Options + [dgRowSelect];
ReadOnly := True;
end;
procedure TXYDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
SetFocus;
inherited MouseDown(Button, Shift, X, Y);
end;
procedure TXYDBGrid.SetFocus;
begin
Windows.SetFocus(Handle);
end;
{ TGridOpenDialog }
constructor TGridOpenDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FGridPanel := TPanel.Create(Self);
FTable := TTable.Create(Self);
FTable.DatabaseName := 'DBDEMOS';
FDataSource := TDataSource.Create(Self);
FDataSource.DataSet := FTable;
with FGridPanel do
begin
Name := 'GridPanel';
SetBounds(204, 5, 169, 200);
FDBGrid := TXYDBGrid.Create(Self);
with FDBGrid do
begin
Parent := FGridPanel;
Align := alClient;
DataSource := FDataSource;
end;
end;
end;
destructor TGridOpenDialog.Destroy;
begin
FTable.Close;
FDBGrid.Free;
FGridPanel.Free;
FTable.Free;
FDataSource.Free;
inherited Destroy;
end;
procedure TGridOpenDialog.DoSelectionChange;
begin
FTable.Close;
if FileExists(FileName) then
begin
FTable.TableName := FileName;
FTable.Open;
end;
end;
procedure TGridOpenDialog.DoShow;
var
PreviewRect, StaticRect: TRect;
begin
GetClientRect(Handle, PreviewRect);
StaticRect := GetStaticRect;
PreviewRect.Left := StaticRect.Left + (StaticRect.Right - StaticRect.Left);
Inc(PreviewRect.Top, 4);
FGridPanel.ParentWindow := Handle;
FGridPanel.BoundsRect := PreviewRect;
inherited DoShow;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
AliasParams: TStringList;
begin
AliasParams := TStringList.Create;
try
Session.GetAliasParams('DBDEMOS', AliasParams);
with TGridOpenDialog.Create(Self) do
begin
InitialDir := AliasParams.Values['PATH'];
Filter := 'DB Tables|*.DB';
Options := Options + [ofFileMustExist];
Template := 'DLGTEMPLATE';
Execute;
Free;
end;
finally
AliasParams.Free;
end;
end;
end.
Petr Vones, amatersky programator
Pocet barev u TMetaFile
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 21:46:16
roman.palarcik(zv)spt(tec)cz wrote:
>
> Zdravim,
>
> mam takovou drobnost, nevite jak by se dalo zjistit pocet bar u
> TMetaFile ? U TBitmap je property PixelFormat, ale u TMetaFile nic
> takoveho neni. Zkousel jsem hledat v API funkcich primo neco pres
> HPALETTE, ale zjisteni poctu barev tam neni. Vsude se pracuje s
> jednotlivymi polozkami palety, ale jak zjistit jejich pocet to nikde
> neni. Nebo jsem neco prehledl ?
>
> Roman Palarcik
> roman.palarcik(zv)spt(tec)cz
Ahoj,
Mozna by to mohlo jit pomoci API funkce GetEnhMetaFileHeader ktera vyplni
strukturu ENHMETAHEADER a v ni je polozka :
nPalEntries: DWORD
Specifies the number of entries in the enhanced metafile's palette.
Ale nezkousel jsem to.
Petr Vones, amatersky programator
OpenDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 21:56:53
Simicek Pavel wrote:
>
> Ahoj vsem!
> Na uvod dekuji tem kdoz se ozvali ohledne problemu s ukladanim
> vlastnosti objektu.
>
> A ted bych mel jednu otazku ohledne OpenDialogu.
> Mam MDI aplikaci na prohlizeni grafu. Pres OpenDialog si vyberu
> soubor s daty ktere chci v grafu zobrazit a u Child oken v OnCreate
> zalozim object pro zobrazovani, otevru soubor, nactu data a nastavim
> vlastnosti onoho zobrazovaciho objektu podle posledniho nastaveni
> pred zavrenim. Tyto vlastnosti jsou ulozeny v souboru se stejnym
> jmenem jako ma datovy soubor ovsem s jinou priponou.
>
> V cem je problem. Pokud pri vyberu souboru v OpenDialogu kliknu na
> tlacitko [ Otevrit ], vse je OK. Ovsem pokud provedu otevreni
> doubleklikem na jmeno souboru (v OpenDialogu), tak nastaveni
> zobrazovaciho objektu neodpovida ulozenemu nastaveni, a pokud
> oteviram soubor poprve (zde se nastavuji nejake defaultni hodnoty),
> tak ani ty neodpovidaji.
> A kdyz jsem program krokoval tak v obou vyse uvedenych pripadech bylo
> vse v poradku.
>
> Myslim si ze problem nastava nekde pri predavani parametru jmena
> souboru. Nenapadlo mne totiz nic rozumnejsiho nez pred volanim
> konstruktoru Child okna ulozit jmeno souboru do promenne hlavniho
> okna a pak se na nej dotazovat v metode OnCreate. Ale co mi neni jasne
> je proc se to chova dvema ruznymi zpusoby pri vyberu souboru.
>
> Dekuji za kazdou radu
Ahoj,
tak se podivej na string ktery ti vraci TOpenDialog.FileName. Z toho by
jsi mel poznat kde je chyba.
Petr Vones, amatersky programator
verzia dll - problem 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1998 23:08:15
Pavel Koutny wrote:
>
> >[Petr Brant]
> >
> >Posilam C-ckovy kod, v Delphi lze funkce GetFileVersionInfoSize a
> >GetFileVersionInfo volat rovnez a vypada to ponekud mene hruzostrasne nez
> >toto. Bye.
> >
> >DWORD dwHandle;
> >DWORD dwSize = ::GetFileVersionInfoSize("XXXXXX.DLL", &dwHandle);
> >if (dwSize) {
> > LPBYTE lpData = new BYTE[dwSize];
> > if (::GetFileVersionInfo("XXXXXX.DLL", dwHandle, dwSize, lpData)) {
> > UINT uiSize = UINT(sizeof(VS_FIXEDFILEINFO));
> > LPVOID lpData2 = new BYTE[uiSize];
^^^^^^^^^^^^^^^^ - ?
> > ::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
Priznavam se ze C moc neovladam, ale pokud jsem to dobre pochopil, tak
lpData2 obsahuje pointer ktery ukazuje nekam do prostoru dat lpData,
proc se tedy alokuje znovu pamet pro lpData2 ktera se pak neuvolonuje ?
> > VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
> > CString csVersion;
> > csVersion.Format("%d.%02d.%02d",
> > HIWORD(pvs_info->dwProductVersionMS),
> > HIWORD(pvs_info->dwProductVersionLS),
> > LOWORD(pvs_info->dwProductVersionLS));
> > }
> > delete lpData;
> >}
> >
> >*************************************************************************
> >Petr Brant [pbrant(zv)softhome.net]
> >programator v MSVC++, obcas Delphi nebo Visual Basic
> >*************************************************************************
>
> OK, skusil som to prelozit, a narazil som na toto:
Ahoj,
ja jsem to prepsal takhle:
function BinaryFileVersion(const FileName: String): String;
var
dwHandle: THandle;
dwSize: DWORD;
lpData, lpData2: Pointer;
uiSize: UINT;
begin
Result := '';
dwSize := GetFileVersionInfoSize(PChar(FileName), dwSize);
if dwSize <> 0 then
begin
GetMem(lpData, dwSize);
if GetFileVersionInfo(PChar(FileName), dwHandle, dwSize, lpData) then
begin
uiSize := Sizeof(TVSFixedFileInfo);
VerQueryValue(lpData, '\', lpData2, uiSize);
with PVSFixedFileInfo(lpData2)^ do Result := Format('%d.%02d.%02d', [
HiWord(dwProductVersionMS),
HiWord(dwProductVersionLS),
LoWord(dwProductVersionLS)]);
end;
FreeMem(lpData, dwSize);
end;
end;
Petr Vones, amatersky programator
>
> procedurer BinaryFileVersion(subor : string) : string;
> type
> vs_fixedfileinfo = record
> dwSignature : dword;
> dwStructVersion : dword;
> dwFileVersionMS : dword;
> dwFileVersionLS : dword;
> dwProductVersionMS : dword;
> dwProductVersionLS : dword;
> dwFileFlagsMask : dword;
> dwFileFlags : dword;
> dwFileOS : dword;
> dwFileType : dword;
> dwFileSubtype : dword;
> dwFileDateMS : dword;
> dwFileDateLS : dword;
> end;
> var dwHandle : dword;
> dwSize : dword;
> lpData : ^word;
> lpData2 : ^word;
> pvs_info : vs_fixedfileinfo;
> csVersion : string;
> uiSize : integer;
> begin
> New(lpData);
> dwSize := GetFileVersionInfoSize(subor,dwHandle);
> if GetFileVersionInfo(subor,dwHandle,dwSize,lpData) then begin
> uiSize := sizeof(VS_FIXEDFILEINFO);
> New(lpData2);
>
> { ****************************** Ako prelozit toto ???
> *************************
>
> ::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
> VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
>
> ****************************************************************************
> **** }
>
> csVersion :=
> Format('%d.%02d.%02d',[hiword(pvs_info.dwProductVersionMS),hiword(pvs_info.d
> wProductVersionLS),loword(pvs_info.dwProductVersionLS)]);
> Dispose(lpData2);
> end;
> Dispose(lpData);
> BinaryFileVersion := csVersion;
> end;
>
> Pavel Koutny
Odpoved - Jak zjistit aktualni adresu v IE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1998 23:35:06
Ahoj,
Melo by to jit takhle pomoci DDE. Zkousel jsem to s IE 3.02 CZ a nefunguje
to v pripade vice instanci IE :-( Zkousel jsem i druhou variantu pres OLE
se stejnym vysledkem, navic M$ doporucuje pouzivat DDE, protoze verze pod
3.02 se pry sami neregistruji. (viz M$ Knowledge Base Article ID: Q160976)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DdeMan, StdCtrls;
type
TForm1 = class(TForm)
DdeClientConv1: TDdeClientConv;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
I: Integer;
begin
with DdeClientConv1 do
begin
if SetLink('IEXPLORE', 'WWW_GetWindowInfo') then
S := StrPas(RequestData('WWW_GetWindowInfo')) else S := '';
I := Pos(',', S);
if I > 0 then
begin
S := Copy(S, 1, I - 2);
System.Delete(S, 1, 1);
end;
CloseLink;
end;
ShowMessage(S);
end;
end.
Petr Vones, amatersky programator
Off Topic - vymena harddisku
[*] Daniel Prynych <Daniel.Prynych(zv)hornet(tec)cz> - 29.6.1998 06:14:31
Nejlepsi reseni je pripojit novy disk jako master(1) stary jako
slave(1) nebo master(2) nebo slave(2). Pak nainstaluju Win 95
a nakenec prekopiruju data za stareho na novy ktery pak mohu odpojit,
Ale disky musim (mel bych) kopirovat nekterym ze specialnich programu,
Seagate ho k nekterym diskum dodavala. Pak je vse bez problemu, ja jsem
takto prechazel z 1GB na 2GB.
Dan
----------
> Odes�latel: Jan.Kubeczka(zv)gate.trz(tec)cz
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Off Topic - vymena harddisku
> Datum: 26. �ervna 1998 14:50
>
>
>
>
> Ahoj!
>
> Mam problem. Potrebuji vymenit maly harddisk (1.28GB) za vetsi. Potiz je v
> tom, ze mam na nem hodne programu,
> a chtel bych se vyhnout opetovnym instalacim. Neexistuje nejaky software
> pro zalohovani a opetovne nainstalovani
> ze zalohy ? Samozrejme, ze se bude muset nainstalovat OS nejprve a pak az
> programy a data ze zalohy.
> Bylo by mozne, aby software obnovil registry ze zalohy, DLL atd.?
> Predem dekuji.
>
> Jan Kubeczka
> jan.kubeczka(zv)trz(tec)cz
Acces
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 29.6.1998 07:11:12
Zdravim,
V Acces 7 uz systemova databaza neexistuje, je len informacny subor pracovni
skupiny, ktory ma koncovku MDW, namiesto MDA. Skusal som do konfiguracie BDE
napisat cestu s nazvom systemove databaze ale napisal mi hlasku chybny
subor.
Este jeden dotaz k delphi
Mam v TXT subore udaje. Na zaciatku programu ich potrebujem natiahnut do
pamati. Su to zoznami suradnic XY. Natahujem ich do dvojrozmerneho pola.
Potom s nimi pracujem. Problem je ze nikdy neviem, kolko ich bude v TXT.
Preto deklarujem pole trebars na 30000 zaznamov. Ak ich je menej, je
zbytocne vyhradena pamat, ktora sa nepouzije, ak ich bude viac nenacitam
ich. Myslim ze je nieco do coho sa daju pridavat zaznami a deklaruje si to
pamat dynamicky. Vie mi niekto poradit ?
Mimochodom este k Accesu. Nastavil som si zabezbecenie, uzivatelov a
pristupove prava. Na pocitaci, kde som to nastavil som si pustil Acces a
islo to v poriadku , ale ak som to preniesol na iny, kde bol iny informacny
subor, ani sa ma neopytal na heslo a otvoril databzu. Neroby tu niekto s
Accesom 7 , kto by vedel v com je zrada? Pozor ide o Acces, nie o delphi.
Martin Talian
geoplan(zv)pp.sinet.sk
>> Nainstaloval som si BDE v 4.51. Aj tak sa nemozem pripojit na Acces
>> databazu, vypisuje ze CHYBY SYSTEMOVA DATABAZE.
>Chybi se pise s "I" na konci. Pokud ta databaze, kterou se snazis
>otvirat, je ochranena s pristupem jen pro nektere uzivatele
>(ne normalni heslo, ale proste pristup pres uzivatele/heslo),
>pak musis mi systemovou databazi a pochopitelne ta musi byt
>pritomna pro kazdou praci s touto databazi.
thready?
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 29.6.1998 07:50:38
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Muze mi nekdo poradit s nasledujicim mozna trivialnim problemem?
mam ftp clienta, ktery pri stahovani vola nasledujici funkci, ktera po 2048 bytech cte soubor s ftp serveru.
Pri stahovani delsich souboru se vsak neda pohybovat s oknem dokud neprobehne tato funkce.
Jak by se to dalo osetrit? Staci pouze nejaky example.
function TForm1.downfile:boolean;
var jmeno:string;
delka,fh,pruchod:longint;
ret:boolean;
ih:HINTERNET;
buf:Array[1..2048] of byte;
r,read:DWORD;
begin
r:=sizeof(buf);
jmeno:=getselfile;
delka:=getselfilesize;
pruchod:=1;
label8.caption:=jmeno;
fh:=FileCreate(jmeno);
ih:=FtpOpenFile(hftp,PChar(jmeno),GENERIC READ,FTP TRANSFER TYPE BINARY,0);
if (fh > 0) and (ih <> nil) then
begin
repeat
read:=0;
ret:=InternetReadFile(ih,(zv)buf,r,read);
FileWrite(fh,buf,read);
Gauge1.Progress:=round(pruchod*r/delka*100);
inc(pruchod);
until (read=0) or (ret=false);
end;
FileClose(fh);
InternetCloseHandle(ih);
end;Animovany Gif
[*] Ing. J�n Kuch�r�����!j��G - 29.6.1998 08:27:54
Cau
Pokila by Ti to nevadilo mal by som zaujem o tu tvoju komponentu, tak mi ju
prosim Ta posli.
Dik
E-mail : kuchar(zv)tuke.sk
-----P�vodn� zpr�va-----
Od: Vesna <veselyt(zv)sagas(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 17. j�n 1998 18:56
P�edm�t: Re: Animovany Gif
>Ja pouzivam RXLib 2.4 a jsem s ni spokojen. Jsou tam zdrojaky.
>Myslim si, ze memcheck neni vzdy to prave orechove, co kdyz se neco
>freeuje az pri ukoncovani ve finallize bloku?.
>
>Vesna, SagaS
>
>-----P�vodn� zpr�va-----
>Od: Vaclav Sazima <sazima(zv)comp(tec)cz>
>Komu: Delphi <delphi(zv)io.pinknet(tec)cz>
>Datum: 16. �ervna 1998 21:22
>P�edm�t: Animovany Gif
>
>
>>Dobry den,
>>ve svem programu potrebuji pouzivat animovane gify, komponent jsem si na
>>to
>>ruznych stahl a odskousel radu (DSP aj). Kupodivu ani jedna neprosla
>>testem na opetovne
>>uvolneni alokovane pameti (Ta unit memcheck, kterou do konference nekdo
>>dodal,
>>je opravdu super). Vzhledem k tomu ze se obrazky vytvareji dynamicky tak
>>je to velka
>> vada. Nevite o nejake bez tohoto nedostatku? A kdyby nepouzivala VCL
>>to by se mi taky hodilo.
>> Dik Vaclav Sazima
>>
>
>Neviditelne okno
[*] Ing. J�n Kuch�r�����!j��G - 29.6.1998 08:28:11
Dik
-----P�vodn� zpr�va-----
Od: Petr Brant <pbrant(zv)softhome.net>
Datum: 4. august 1998 14:29
P�edm�t: FW: Neviditelne okno
>
>-----Puvodni zprava-----
>Od: Ing. Jan Kuchar
>Odeslano: 24. eervna 1998 10:02
>Komu: Delphi
>Poedmit: Neviditelne okno
>
>Caute !
>Potrebujem poradit v nasledujucej veci. Pre svoju aplikaciu musim zostrojit
>jedno neviditelne okno, ktore by sa nachadzalo nad vsetkymi spustenymi
>aplikaciami vo WIN95 a nevim ako na to ( jedna sa mi v podstate o
>priesvitne okno ). Ak niekto viete ako take okno zostrojim dajte mi vediet.
>
> Dik
>
>Katedra vyrobnych inovacii
>SjF TU Ko?ice
>Ing. Jan Kuchar
>E-mail : kuchar(zv)tuke.sk
>
>[Petr Brant]
>Nastav vlastnosti okna takto:
>
> BorderIcons = []
> BorderStyle = bsNone
> FormStyle = fsStayOnTop
> Position = poScreenCenter
> Style = wsMaximized
>
>a zakaz prekreslovani okna:
>
> private
> procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message
>WM_ERASEBKGND;
>
>......
>
>procedure TForm1.WMEraseBkgnd(var Message: TWMEraseBkgnd);
>begin
> Message.Result := 1;
> zde se NESMI napsat inherited :-)
>end;
>
>Takze v tomto "okne" muzes odchytavat cokoli a uzivatel
>z toho bude patrne pekne vydeseny :-))), kdyz se mu bude
>desktop chovat jinak nez standardne
>thready?
[*] Vesna <veselyt(zv)sagas(tec)cz> - 29.6.1998 08:55:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
V tehto cyklech musis davat aplikaci moznost zpracovavat messages a dalsi veci takze staci dat
do cyklu Application.ProcesMessages a vse bude O.K.
Cau
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: sula milos <crkstrobe(zv)geocities.com>
Komu: delphi konference <delphi(zv)pinknet(tec)cz>
Datum: 29. �ervna 1998 7:51
P�edm�t: thready?
Muze mi nekdo poradit s nasledujicim mozna trivialnim problemem?
mam ftp clienta, ktery pri stahovani vola nasledujici funkci, ktera po 2048 bytech cte soubor s ftp serveru.
Pri stahovani delsich souboru se vsak neda pohybovat s oknem dokud neprobehne tato funkce.
Jak by se to dalo osetrit? Staci pouze nejaky example.
function TForm1.downfile:boolean;
var jmeno:string;
delka,fh,pruchod:longint;
ret:boolean;
ih:HINTERNET;
buf:Array[1..2048] of byte;
r,read:DWORD;
begin
r:=sizeof(buf);
jmeno:=getselfile;
delka:=getselfilesize;
pruchod:=1;
label8.caption:=jmeno;
fh:=FileCreate(jmeno);
ih:=FtpOpenFile(hftp,PChar(jmeno),GENERIC READ,FTP TRANSFER TYPE BINARY,0);
if (fh > 0) and (ih <> nil) then
begin
repeat
read:=0;
ret:=InternetReadFile(ih,(zv)buf,r,read);
FileWrite(fh,buf,read);
Gauge1.Progress:=round(pruchod*r/delka*100);
inc(pruchod);
until (read=0) or (ret=false);
end;
FileClose(fh);
InternetCloseHandle(ih);
end;problem s IniFile
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 29.6.1998 09:08:11
> -----Original Message-----
> From: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Sent: Friday, June 26, 1998 8:03 PM
> Subject: Re: problem s IniFile
>
> Zdenek Prantl wrote:
>
> A mas nastaveno Project /Options /Compiler /Strict var-strings na
> false?
Ne. A proc ?
Jenom bych chtel jeste dodat, ze to je v unite dohromady s CGIExpertem a mam
silne podezreni, ze se prave tyto dva (CGIExpert a TIniFile) nesnaseji. Pokud
totiz to same delam v jinych programech, tak je vse O.K.
Jo a taky pokud pouzivate CGIExperta, tak se nesnazte pouzivat v nem kratke
stringy (Huge string = false). Ono to totiz kompilaci projde, ale pak program
hazi chyby treba v HttpDBGrid, ktere se moc spatne dohledavaji. Na to jsem
prisel kdyz jsem hledal tu chyby s TIniFilem.
Dik
Zdenek
Prepinani parent ...
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 29.6.1998 09:27:15
For i:=0 to ControlCount-1 do
Controls[i].Parent:=fmMain.TabControl1; //pokud ti ovsem zalezi na poradi
TabControl, pak to bude slozitejsi cyklus
Pro nektere, kteri pouzivaji tuto techniku: Mam jednu komponentu, ktera se vaze
vzajemne s asi dvema dalsimi
a pri destroy hlavniho formulare mi pak hazela ruzne exception(zrejme bude
spatne napsana, ale ja jsem
nenasel zdroj potizi). Musel jsem to resit vracenim parentu na puvodni formular
v onDestroy daneho formulare.
(treba to nekomu bude povedome a pomuze to nekomu vybrednout z potizi).
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Od: Miloslav Skacel
> ..................
> Inspiroval jsem se maily 'Prepinani parent'.
> Hlavni formular fmMain obsahuje TabControl1.
> Kazda zalozka ma svoji podobu definovanu ve formulari fmMainPageX.
>
> Pri prepinani zalozek se vytvari konkretni fmMainPageX
> a nastavi se vlastnost Parent. Pokud se to udela nasledovne
>
> procedure TfmMainPage1.FormCreate(Sender: TObject);
> begin
> Parent:=fmMain.TabControl1
> end;
>
> tak se v TabControl1 objevi cely formular TfmMainPage1- to je nezadouci.
> Jak to udelat, aby v TabControl1 byly videt pouze komponenty z fmMainPage1?
>
> Milos Skacel
>verzia dll - problem 2
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 29.6.1998 09:34:37
-----Puvodni zprava-----
Od: Pavel Koutny
Odeslano: 26. eervna 1998 15:36
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Fw: verzia dll - problem 2
>[Petr Brant]
>
>Posilam C-ckovy kod, v Delphi lze funkce GetFileVersionInfoSize a
>GetFileVersionInfo volat rovnez a vypada to ponekud mene hruzostrasne nez
>toto. Bye.
>
>DWORD dwHandle;
>DWORD dwSize = ::GetFileVersionInfoSize("XXXXXX.DLL", &dwHandle);
>if (dwSize) {
> LPBYTE lpData = new BYTE[dwSize];
> if (::GetFileVersionInfo("XXXXXX.DLL", dwHandle, dwSize, lpData)) {
> UINT uiSize = UINT(sizeof(VS_FIXEDFILEINFO));
> LPVOID lpData2 = new BYTE[uiSize];
> ::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
> VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;
> CString csVersion;
> csVersion.Format("%d.%02d.%02d",
> HIWORD(pvs_info->dwProductVersionMS),
> HIWORD(pvs_info->dwProductVersionLS),
> LOWORD(pvs_info->dwProductVersionLS));
> }
> delete lpData;
>}
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************
OK, skusil som to prelozit, a narazil som na toto:
procedurer BinaryFileVersion(subor : string) : string;
type
vs_fixedfileinfo = record
dwSignature : dword;
dwStructVersion : dword;
dwFileVersionMS : dword;
dwFileVersionLS : dword;
dwProductVersionMS : dword;
dwProductVersionLS : dword;
dwFileFlagsMask : dword;
dwFileFlags : dword;
dwFileOS : dword;
dwFileType : dword;
dwFileSubtype : dword;
dwFileDateMS : dword;
dwFileDateLS : dword;
end;
var dwHandle : dword;
dwSize : dword;
lpData : ^word;
lpData2 : ^word;
pvs_info : vs_fixedfileinfo;
csVersion : string;
uiSize : integer;
begin
New(lpData);
dwSize := GetFileVersionInfoSize(subor,dwHandle);
if GetFileVersionInfo(subor,dwHandle,dwSize,lpData) then begin
uiSize := sizeof(VS_FIXEDFILEINFO);
New(lpData2);
{ ****************************** Ako prelozit toto ???
*************************
::VerQueryValue(lpData, "\\", &lpData2, &uiSize);
VS_FIXEDFILEINFO* pvs_info = (VS_FIXEDFILEINFO*)lpData2;****************************************************************************
**** }
csVersion :=
Format('%d.%02d.%02d',[hiword(pvs_info.dwProductVersionMS),hiword(pvs_info.d
wProductVersionLS),loword(pvs_info.dwProductVersionLS)]);
Dispose(lpData2);
end;
Dispose(lpData);
BinaryFileVersion := csVersion;
end;
Pavel Koutny
[Petr Brant]
Nejsem odbornikem na Delphi, tak jsem se podival do helpu a do unitu Windows.pas. Tam je u definice funkce VerQueryValue napsano toto:
help:
BOOL VerQueryValue(
const LPVOID pBlock, // address of buffer for version resource
LPTSTR lpSubBlock, // address of value to retrieve
LPVOID *lplpBuffer, // address of buffer for version pointer - zde vznika dojem, ze sem lze napsat (zv)lpdata2
PUINT puLen // address of version-value length buffer
);
Windows.Pas:
function VerQueryValue(
pBlock: Pointer;
lpSubBlock: PChar;
var lplpBuffer: Pointer; - dojem byl mylny, musi se napsat obecny pointer a pak pretypovat
var puLen: UINT): BOOL;
Takze pokud vse chapu dobre, melo by to vypadat takto (pokud se mylim, nebijte mne, opravdu to v Delphi moc neumim):
var pnt : pointer;
(...)
VerQueryValue(lpdata, '\', pnt, uiSize);
(...)
Snad je to dobre, kdyz tak napis.
Ahoj
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Vyvolanie reakcie
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 29.6.1998 09:36:21
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby stlacil klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru by system zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
Acces
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 29.6.1998 10:01:15
-----Puvodni zprava-----
Od: Martin Talian
Odeslano: 29. eervna 1998 7:11
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Acces
Zdravim,
Este jeden dotaz k delphi
Mam v TXT subore udaje. Na zaciatku programu ich potrebujem natiahnut do
pamati. Su to zoznami suradnic XY. Natahujem ich do dvojrozmerneho pola.
Potom s nimi pracujem. Problem je ze nikdy neviem, kolko ich bude v TXT.
Preto deklarujem pole trebars na 30000 zaznamov. Ak ich je menej, je
zbytocne vyhradena pamat, ktora sa nepouzije, ak ich bude viac nenacitam
ich. Myslim ze je nieco do coho sa daju pridavat zaznami a deklaruje si to
pamat dynamicky. Vie mi niekto poradit ?
[Petr Brant]
type p_struct = ^struct;
struct = record
x,y:integer;
...dalsi udaje
next, prev: p_struct;
end;
var data:struct;
pri naplnovani struktury postupuj napr. takto:
new(data);
data.x:=....
data.y:=....
....
data.prev:= pointer na predchozi zaznam
data.next:=nil;
s tim, ze musis uchovavat pointer na zacatek struktury a ze si musis vzdy
pamatovat pointer na data, ktera jsi zrovna pridal s tim, ze tento se
pouzije jako next u predchoziho bloku dat. Tento postup a mnohe dalsi je v
prastare "bibli" Pascalu Jinoch-Muller-Vogel: Programovani v Pascalu nebo
tak nejak podobne. Ale autori jsou tutove spravne.
Kdyz tak napis a podivam se na to (ale 1.7. az 12.7. jsem mimo !).
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Mimochodom este k Accesu. Nastavil som si zabezbecenie, uzivatelov a
pristupove prava. Na pocitaci, kde som to nastavil som si pustil Acces a
islo to v poriadku , ale ak som to preniesol na iny, kde bol iny informacny
subor, ani sa ma neopytal na heslo a otvoril databzu. Neroby tu niekto s
Accesom 7 , kto by vedel v com je zrada? Pozor ide o Acces, nie o delphi.
Martin Talian
geoplan(zv)pp.sinet.sk
[Petr Brant] Bohuzel, Access neumim :-(
Process Message
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 29.6.1998 10:08:27
Nedavno jsem tady resil problem s Clipboardem (pipani pri nekolikanasobnem
prenosu RichTextu). Problem se mi
sice nepodarilo zcela uspokojive vyresit, ale podarilo se mi jej minimalizovat
(takrka vyresit:-) ). Uz jsem si chtel
pohvizdovat, ale...:-(( Nastalo rozcarovani.
Pro reseni jsem pouzil volani ProcessMessages behem kopirovani do a z
clipboardu, cimz by se mela cistit fronta
zprav. Fungovalo to OK do te doby, nez jsem se ocitl na TabControl. Na OnExit z
TabSheetu na danem
TabControl jsem pouzil kopirovani pres clipboard. Ale kdyz jsem stiskl tlacitko
KONEC, ktere mi melo
ukoncit formular. Tak se nejdrive zavolal OnExit z tabsheetu a pak teprve
OnClick tlacitka KONEC.
Jenze ProcessMessages pri kopirovani vycistil frontu zprav nejak divne, takze
tlacitko KONEC sice na
OnClick zareagovalo, ale jen tim, ze se stisklo, ale formular neukoncilo. Kdyz
jsem pres nej pak mysi prejizdel,
tak se jakoby vizualne stiskalo. Ukoncit formular slo az po dalsim stisku (kdy
se vlastne OnExit z tab sheetu
uz nevolal, protoze focus melo jiz to tlacitko).
Resenim by bylo zrusit ProcessMessages, cimz se mi vrati problem s clipboardem
nebo zjistit, ze chci ukoncit formular (stisk na tlacitku KONEC), ale to neumim
pred nebo v OnExit TabSheetu.
Neporadite nekdo?
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/FTP pro konferenci
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.6.1998 10:26:31
DDV,
aby se predeslo posilani mailu s attacementy obsahujicimi velke
soubory nabizim nasladujici (bude-li zajem):
Vytvorim na nasem FTP adresar, pro download by byl public, pro upload
bych do konference zverejnil nejaky account.
veskere komponenty a ukazkove aplikace by se tam mohly poslat (server
podporuje obnovu spadlych spojeni, pokud to umi i klient).
Nebulo by tedy treba posilat soubory nekomu, at je nekam da a splnilo
by to ucel pro pohodlnou vymenu zdrojaku, dll, packages a jinych veci.
Co vy na to?
Pekny den!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Tisk na jehlickovych tiskarnach
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.6.1998 10:33:13
DDV,
pekne prosim...
> Jestli chces, poslu ti komponetu pro generator sestav ve znakovem
> rezimu s primym vystupem na tiskarnu (primo na port tiskarny mimo
> spooling windows)
> Komponentu nabizime zdarma. Bude-li vetsi zajem, umistim komponentu
> na nas server pro stazeni.
> Ve vylepsene podobe se tato komponenta stane soucasti
> ceskeho generatoru sestav verze 4.
> V samostatne podobe je k dispozici bezplatne a je k ni uplna
> dokumentace a priklad.
> Piste si na mail jaro(zv)sinea(tec)cz
> --------------------------------------------------------------------------
> -- ---
>
> -----P�vodn� zpr�va-----
> Od: Martin Kubecka <martin.kubecka(zv)dytron(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 19. �ervna 1998 16:04
> P�edm�t: Tisk na jehlickovych tiskarnach
>
>
> >Zdravim vsechny zucastnene a preji pekny den,
> >
> >nevite nekdo jak tisknout na jehlickove tiskarne znakove a ne graficky?
> >Lze to vubec? A pokud ano tak jak? Napr. pro tisky pokladnich dokladu
> >(aby bylo mozno pouzivat pruklepy). V grafice je to vetsinou dost pomale.
> >
> >Prostredi D3 a W95/NT.
> >
> >Za podnety diky
> >
> >Martin Mac Kubecka
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Pokus o instalaci RX-lib
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 29.6.1998 11:10:28
Vazeni,
pokusil jsem se o instalaci knihovny RX do Delphi 2.0 pod W95.
Postupoval jsem presne podle navodu, ale uspech se nedostavil.
Muj pokus skoncil tim, ze nelze nalezt soubor ShlObj.PAS, pozadovany
v implementacni sekci unity FileUtil. Unitu ShlObj skutecne ve svem
PC nemam a nevim, co s tim. Budu vdecny za kazdy tip, ktery povede k
cili.
S pozdravem
J.Plisek
-------------------------------------------------------
Ing.Jan Plisek,
Stredni prumyslova skola elektrotechnicka a Vyssi
odborna skola
Karla IV. 13 Phone: +42 40 51 68 21
531 69 Pardubice Fax: +42 40 51 70 37
Czech Republic Email: plisek(zv)spse(tec)cz
-------------------------------------------------------
CPL
[*] Ing. Lud�k Florian <bluerose(zv)pce(tec)cz> - 29.6.1998 11:18:14
Priklad od Davida je pod D3 funkcni. Dekuji moc.
Ale jeste dotaz. Pod D2, kde travim vic casu, protoze tam mam daleko vic
komponent, to nejak nejde. Nejdriv to nenajde unit CPL, pak tridu TApplet.
Je to dobre, nebo jsem nekde neco zvoral ?
Bye Ludan
ludan(zv)bluerose(tec)cz
>> mam podobny problem. Zkousel jsem z UNDU priklad na CPL, ale bohuzel
>>mi po zkompilovani popd Delphi3 nechodil.
thready?
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 29.6.1998 11:19:07
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Pozor! Na WinNT mi pouzivani Application.ProcesMessages
nahodne zapricini nenavrat do aplikace (zbytek procedury za volanim
Application.ProcesMessages jiz neni proveden, okno pritom prijima nove zpravy).
Testovano ovsem pouze s aplikaci vytvorene v D1.
Neexistuje nejaka jistejsi metoda pouzitelna i pro NT ?
kulheim(zv)fp-brno(tec)cz
Jaroslav KULHEIM
WDT s.r.o.
-----P�vodn� zpr�va-----
Od: Vesna <veselyt(zv)sagas(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 29. �ervna 1998 11:00
P�edm�t: Re: thready?
V tehto cyklech musis davat aplikaci moznost zpracovavat messages a dalsi veci takze staci dat
do cyklu Application.ProcesMessages a vse bude O.K.
Cau
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: sula milos <crkstrobe(zv)geocities.com>
Komu: delphi konference <delphi(zv)pinknet(tec)cz>
Datum: 29. �ervna 1998 7:51
P�edm�t: thready?
Muze mi nekdo poradit s nasledujicim mozna trivialnim problemem?
mam ftp clienta, ktery pri stahovani vola nasledujici funkci, ktera po 2048 bytech cte soubor s ftp serveru.
Pri stahovani delsich souboru se vsak neda pohybovat s oknem dokud neprobehne tato funkce.
Jak by se to dalo osetrit? Staci pouze nejaky example.
function TForm1.downfile:boolean;
var jmeno:string;
delka,fh,pruchod:longint;
ret:boolean;
ih:HINTERNET;
buf:Array[1..2048] of byte;
r,read:DWORD;
begin
r:=sizeof(buf);
jmeno:=getselfile;
delka:=getselfilesize;
pruchod:=1;
label8.caption:=jmeno;
fh:=FileCreate(jmeno);
ih:=FtpOpenFile(hftp,PChar(jmeno),GENERIC READ,FTP TRANSFER TYPE BINARY,0);
if (fh > 0) and (ih <> nil) then
begin
repeat
read:=0;
ret:=InternetReadFile(ih,(zv)buf,r,read);
FileWrite(fh,buf,read);
Gauge1.Progress:=round(pruchod*r/delka*100);
inc(pruchod);
until (read=0) or (ret=false);
end;
FileClose(fh);
InternetCloseHandle(ih);
end;Hledam PRACI v Delphi
[*] Jaros Jan <xjaros03(zv)stud.fee.vutbr(tec)cz> - 29.6.1998 11:28:49
Jsem student 4.rocniku FEI VUT v Brne a hledam praci v okoli BRNA
na plny prac. uvazek. ( nejlepe v Delphi )
Kontakt:
Jan Jaros
Kamenna 30
BRNO 639 00
E-mail: xjaros03(zv)stud.fee.vutbr(tec)cz
ps: Urceno pro Libora Kuceru
posilal jsem vam postu, ale vratila se mi zpet
pokud tedy ctete tuto zpravu poslete mi prosim vice informaci
dekuji Jan Jaros
directx pod NT
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.6.1998 11:32:55
Ruzne gamesy jej tam priinstaluji (e.g. BrokenSword II).
> zdravim,
>
> vim, ze je to docela off, ale je to pro me dooost dulezity. Zabyvam se
> programovanim pod DirectX v delphi a chci prejit na NT. Problem je v tom,
> ze potrebuju DirectX 5 a ne DirectX 3, kterej je v SP3. Nevite nekdo
> nahodou jak uchodit DirectX 5 pod NTckama (nepiste pls, ze mam pockat na
> NT 5.0). Moc byste mi pomohli.
>
> {--------------------------------------------------------------------}
> {Jakub Marsik web http://www.gbn(tec)czn(tec)cz/marsik/index.htm } {K
> Homolce 294 admin of mail & www server of Gymnazium Benesov } {257
> 21 Porici n.Saz. }
> {--------------------------------------------------------------------}
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Acces
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 29.6.1998 11:35:30
> V Acces 7 uz systemova databaza neexistuje, je len informacny subor pracovni
> skupiny, ktory ma koncovku MDW, namiesto MDA. Skusal som do konfiguracie BDE
To je prave ta systemova databaze...
> napisat cestu s nazvom systemove databaze ale napisal mi hlasku chybny
> subor.
A kam jsi to napsal? Me to pracuje.
> Mimochodom este k Accesu. Nastavil som si zabezbecenie, uzivatelov a
> pristupove prava. Na pocitaci, kde som to nastavil som si pustil Acces a
> islo to v poriadku , ale ak som to preniesol na iny, kde bol iny informacny
> subor, ani sa ma neopytal na heslo a otvoril databzu. Neroby tu niekto s
> Accesom 7 , kto by vedel v com je zrada? Pozor ide o Acces, nie o delphi.
Tak jsi to nezabezpecil poradne. Pokud jsi jen nastavil hesla, to nestaci,
musis to zabezpecit pres zabezpeceni v menu. Pak to je teprve opravdu
zabezpecena databaze a nepujde spustit bez systemove databaze.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================verzia dll - problem 2
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 29.6.1998 11:56:07
Existuje na to free komponenta
TVersionInfoResource v2.22
Zkuste nejake prohledavace, nevim jiz odkud to bylo.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Acces
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 29.6.1998 12:17:58
Ide to aj jednoduchsie pomocou GetMem a FreeMem ktor umoznia rezervovat v runtime
tolko miesta kolko presne potrebujes.
Tungli
----------
> Od: Petr Brant <pbrant(zv)softhome.net>
> Pre: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
> Predmet: FW: Acces
> D�tum: 29. j�n 1998 10:01
>
>
>
> -----Puvodni zprava-----
> Od: Martin Talian
> Odeslano: 29. eervna 1998 7:11
> Komu: delphi(zv)pinknet(tec)cz
> Poedmit: Acces
>
> Zdravim,
>
> Este jeden dotaz k delphi
> Mam v TXT subore udaje. Na zaciatku programu ich potrebujem natiahnut do
> pamati. Su to zoznami suradnic XY. Natahujem ich do dvojrozmerneho pola.
> Potom s nimi pracujem. Problem je ze nikdy neviem, kolko ich bude v TXT.
> Preto deklarujem pole trebars na 30000 zaznamov. Ak ich je menej, je
> zbytocne vyhradena pamat, ktora sa nepouzije, ak ich bude viac nenacitam
> ich. Myslim ze je nieco do coho sa daju pridavat zaznami a deklaruje si to
> pamat dynamicky. Vie mi niekto poradit ?
>
> [Petr Brant]
> type p_struct = ^struct;
> struct = record
> x,y:integer;
> ...dalsi udaje
> next, prev: p_struct;
> end;
>
> var data:struct;
> pri naplnovani struktury postupuj napr. takto:
>
> new(data);
> data.x:=....
> data.y:=....
> ....
> data.prev:= pointer na predchozi zaznam
> data.next:=nil;
>
> s tim, ze musis uchovavat pointer na zacatek struktury a ze si musis vzdy
> pamatovat pointer na data, ktera jsi zrovna pridal s tim, ze tento se
> pouzije jako next u predchoziho bloku dat. Tento postup a mnohe dalsi je v
> prastare "bibli" Pascalu Jinoch-Muller-Vogel: Programovani v Pascalu nebo
> tak nejak podobne. Ale autori jsou tutove spravne.
>
> Kdyz tak napis a podivam se na to (ale 1.7. az 12.7. jsem mimo !).
>
> *************************************************************************
> Petr Brant [pbrant(zv)softhome.net]
> programator v MSVC++, obcas Delphi nebo Visual Basic
> *************************************************************************
>
>
>
> Mimochodom este k Accesu. Nastavil som si zabezbecenie, uzivatelov a
> pristupove prava. Na pocitaci, kde som to nastavil som si pustil Acces a
> islo to v poriadku , ale ak som to preniesol na iny, kde bol iny informacny
> subor, ani sa ma neopytal na heslo a otvoril databzu. Neroby tu niekto s
> Accesom 7 , kto by vedel v com je zrada? Pozor ide o Acces, nie o delphi.
>
> Martin Talian
> geoplan(zv)pp.sinet.sk
>
> [Petr Brant] Bohuzel, Access neumim :-(
>
>
> FTP pro konferenci
[*] Lubo Fule <fule(zv)sct.sk> - 29.6.1998 13:06:50
Dobra myslienka...
-----Original Message-----
From: Ales Zeleny [mailto:zelenya(zv)mlp(tec)cz]
Sent: Monday, June 29, 1998 10:27 AM
To: delphi(zv)pinknet(tec)cz
Subject: FTP pro konferenci
DDV,
aby se predeslo posilani mailu s attacementy obsahujicimi velke
soubory nabizim nasladujici (bude-li zajem):
Vytvorim na nasem FTP adresar, pro download by byl public, pro upload
bych do konference zverejnil nejaky account.
veskere komponenty a ukazkove aplikace by se tam mohly poslat (server
podporuje obnovu spadlych spojeni, pokud to umi i klient).
Nebulo by tedy treba posilat soubory nekomu, at je nekam da a splnilo
by to ucel pro pohodlnou vymenu zdrojaku, dll, packages a jinych veci.
Co vy na to?
Pekny den!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Tisk na jehlickovych tiskarnach
[*] Dan Rulicek <daniel.r(zv)avizo(tec)cz> - 29.6.1998 13:17:28
Mel bych taky zajem,
diky
-----P�vodn� zpr�va-----
Od: Ales Zeleny [SMTP:zelenya(zv)mlp(tec)cz]
Odesl�no: 29. �ervna 1998 10:33
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Tisk na jehlickovych tiskarnach
DDV,
pekne prosim...
> Jestli chces, poslu ti komponetu pro generator sestav ve znakovem
> rezimu s primym vystupem na tiskarnu (primo na port tiskarny mimo
> spooling windows)
> Komponentu nabizime zdarma. Bude-li vetsi zajem, umistim komponentu
> na nas server pro stazeni.
> Ve vylepsene podobe se tato komponenta stane soucasti
> ceskeho generatoru sestav verze 4.
> V samostatne podobe je k dispozici bezplatne a je k ni uplna
> dokumentace a priklad.
> Piste si na mail jaro(zv)sinea(tec)cz
> --------------------------------------------------------------------------
> -- ---
>
> -----P�vodn� zpr�va-----
> Od: Martin Kubecka <martin.kubecka(zv)dytron(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 19. �ervna 1998 16:04
> P�edm�t: Tisk na jehlickovych tiskarnach
>
>
> >Zdravim vsechny zucastnene a preji pekny den,
> >
> >nevite nekdo jak tisknout na jehlickove tiskarne znakove a ne graficky?
> >Lze to vubec? A pokud ano tak jak? Napr. pro tisky pokladnich dokladu
> >(aby bylo mozno pouzivat pruklepy). V grafice je to vetsinou dost pomale.
> >
> >Prostredi D3 a W95/NT.
> >
> >Za podnety diky
> >
> >Martin Mac Kubecka
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.WorkShop a cestina?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1998 13:18:57
Zdenek Petruj wrote:
Sekci Strings a Delphacke forms umi prelozit muj Lokalizator, na
prekladu MS dialogu se pracuje.
> Narazil jsem na stejny problem. Ja jsem ale asi byl ve vyhode ze
> jsem mel zdrojaky a potreboval jsem vytahnout jen RES soubor a ten
> pak pouzit ve svem projektu. Taky mi to fungovalo tak jak tobe. tak
> jsem provedl nasledujici operaci. Resourci jsem prelozil ve
> workshopu. Pak jsem Resource ulozil jako textak *.rc a ten jsem
> zpetne prelozil do *.res pomoci BRCC32.EXE z Delphi 3 a cestina byla
> v poradku. Jestli ale potrebujes prelozit Resourci uvnitr DLL tak
> uznavam ze je ti muj postup platny jak mrtvemu zimnik. Obcas bych
> taky potreboval prelozit do cestiny nejakou DLL nebo EXE ale
> bohuzel. Pokud prijdes na to jak na to tak dej prosim vedet !!!
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
>
>
> > -----P�vodn� zpr�va-----
> > Od: Vesna [SMTP:veselyt(zv)sagas(tec)cz]
> > Odesl�no: 26. �ervna 1998 10:27
> > Komu: DELPHI Distribution List
> > P�edm�t: WorkShop a cestina?
> >
> > Sorry, asi uz Vas trapim touhle priblblou otazkou, ale kdyz v Resource
> > WorkShopu edituji dll,
> > pisu do ni cesky, napr. buttony necham si ukazat test ve WorkShopu ->
> > vse je
> > O.K., ale jak dll
> > spoustim v programu cestina je v pr.. . Uz jsem celkem zoufalej. Jak
> > ???
> > Diky
> >
> > Vesna, SagaS
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
FTP pro konferenci
[*] Ing. Miroslav Ond��ek - 29.6.1998 13:36:53
Otazka z kategorie zbytecnych. :) Samozrejme ano, ano, ano.
S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail: bonnel(zv)telecom(tec)cz
http://www.bonnel-tech.com
DDV,
aby se predeslo posilani mailu s attacementy obsahujicimi velke
soubory nabizim nasladujici (bude-li zajem):
Vytvorim na nasem FTP adresar, pro download by byl public, pro upload
bych do konference zverejnil nejaky account.
veskere komponenty a ukazkove aplikace by se tam mohly poslat (server
podporuje obnovu spadlych spojeni, pokud to umi i klient).
Nebulo by tedy treba posilat soubory nekomu, at je nekam da a splnilo
by to ucel pro pohodlnou vymenu zdrojaku, dll, packages a jinych veci.
Co vy na to?
Pekny den!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.DOS Pascal a P2
[*] Ing. Lud�k Florian <bluerose(zv)pce(tec)cz> - 29.6.1998 13:53:05
Cauec,
pred nedavnem se bud tady nebo na konferenci o Win probiral problem
nefungovani DOS programu v Pascalu na P2 pro chybu v CRT (moc rychlej CPU).
Muze me nekdo odkazat na nejaky fix k tomuto problemu ?
Dik.
Bye Ludan
ludan(zv)bluerose(tec)cz
Vyvolanie reakcie
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 29.6.1998 14:11:23
Cau
Asi sme sa dobre nepochopili, ja potrebujem nasledovne :
uzivatel stlaci lave tlacitko na mysi v jednom okne a v pocitai musi nastat
rovnaka reakcia ako keby stlacil klavesu A v inom okne.
V podstate mi ide o ovladanie ineho programu ktory sa ovlada pomocou
klavesnice a potrebujem ho ovladat pomocou mysi, zdrojaky tohto programu
nemam.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. august 1998 11:25
P�edm�t: Re: Vyvolanie reakcie
>Ahoj,
>snad by to slo takto:
>s pomoci hook funkce odchytit zpravu mysi, zjistit, na ktere okno je
>smerovana
>a poslat na stejne okno zpravu wm_keydown, wm_keyUp nebo wm_Char
>
>Pavel Kral
> -----Original Message-----
> From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
> To: Delphi <delphi(zv)pinknet(tec)cz>
> Date: 5. srpna 1998 9:43
> Subject: Vyvolanie reakcie
>
>
> Caute
> Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel
>stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby stlacil
>klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru by system
>zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
>
>Dik
>
> Katedra v�robn�ch inov�ci�
> SjF TU Ko�ice
> Ing. J�n Kuch�r
> E-mail : kuchar(zv)tuke.sk
>
>
>FTP pro konferenci
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 29.6.1998 14:16:14
Skquely napad, do toho !
-----P�vodn� zpr�va-----
Od: Ales Zeleny [SMTP:zelenya(zv)mlp(tec)cz]
Odesl�no: 29. j�n 1998 10:27
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: FTP pro konferenci
DDV,
aby se predeslo posilani mailu s attacementy obsahujicimi velke
soubory nabizim nasladujici (bude-li zajem):
Vytvorim na nasem FTP adresar, pro download by byl public, pro upload
bych do konference zverejnil nejaky account.
veskere komponenty a ukazkove aplikace by se tam mohly poslat (server
podporuje obnovu spadlych spojeni, pokud to umi i klient).
Nebulo by tedy treba posilat soubory nekomu, at je nekam da a splnilo
by to ucel pro pohodlnou vymenu zdrojaku, dll, packages a jinych veci.
Co vy na to?
Pekny den!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.
Table is full
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 29.6.1998 14:19:34
Pri behu aplikace pracujici nad Paradox tabulkami dosahl jeden soubor
velikosti 135MB a objevila se hlaska "Table is full". Protoze na disku bylo
mista dostatek, usuzuji ze jde o nejake omezeni PARADOXu. Je to tak?
Za pripadne reakce dekuji.
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
fax number : +420-(0)508-330302
Hledani v Databazi
[*] East Trading Company s.r.o. <vit(zv)ardo(tec)cz> - 29.6.1998 14:41:41
Ahoj delphini nezacatecnici!
Ja zacatecnik (uz jsem sem jednou psal - dekuji za ohlasy), se na Vas opet
obracim. Pisu "jednoduchy" programek pro sledovani pohybu zbozi. Uspesne se
mi povedlo prolezt helpy a priklady a pochopil jsem spoustu novych veci. Uz
2 dny se trapim s takovou malou nesrovnalosti.
Vychozi podminky :
Databaze Paradox 7 nazvana Vagony.DB, na fomrular pridana pomoci s polozkami
datumovymi a textovymi. Mam vytvorene dva sekundarni klice jeden nazvany
IDHledej (polozka ID obsahuje identifikacni cislo dodavky, v tomto pripade
SPZ kamionu se zbozim), druhy klic je DojeloHledej (polozka obsahuje datum
prijeti kamionu do firmy). Na formulari je vytvoreno tlacitko, kterym chci
spustit hledani v databazi. Udalost OnClickButton :
procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.SetKey;
Table1.IndexName:='IDHledej'
*** Table1.FieldByName('ID').AsString := InputBox('Hled�n�', 'Zadejte
hledan� c�slo', '');
Table1.FindNearest;
end;
Pri pokusu o spusteni se objevi chyba na radku oznacenem *** : Chybi
operator nebo zavorka (Missing operator or semicolon). Nevite co to ma
znamenat? Kde bude chyba?
Svatopluk Vit
zacatecnik
Acces
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 29.6.1998 16:05:38
Ahoj,
Muzes pouzit TList, nebo TStringList, a nebo moje jedno a dvou rozmerne pole na
ukladani cisel typu Integer, nebo Real. (bohuzel ta 2rozmernost je omezena tim,
ze nez to zacnes plnit, tak musis rict (za behu) rozmery).
Muzu poslat.
Cago
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
.....
> -----Puvodni zprava-----
> Od: Martin Talian
> Zdravim,
>
> Este jeden dotaz k delphi
> Mam v TXT subore udaje. Na zaciatku programu ich potrebujem natiahnut do
> pamati. Su to zoznami suradnic XY. Natahujem ich do dvojrozmerneho pola.
> Potom s nimi pracujem. Problem je ze nikdy neviem, kolko ich bude v TXT.
> Preto deklarujem pole trebars na 30000 zaznamov. Ak ich je menej, je
> zbytocne vyhradena pamat, ktora sa nepouzije, ak ich bude viac nenacitam
> ich. Myslim ze je nieco do coho sa daju pridavat zaznami a deklaruje si to
> pamat dynamicky. Vie mi niekto poradit ?
....Off Topic - vymena harddisku
[*] Miroslav Karl��ek - 29.6.1998 16:12:10
Nevim presne jestli se to menuje DRIVE COPY , ale asi jo a ten to stahne
uplne vsecho (mam pocit i se systemem) a je to od autoru Partition Magic
Bye Sid
-----P�vodn� zpr�va-----
Od: Jan.Kubeczka(zv)gate.trz(tec)cz <Jan.Kubeczka(zv)gate.trz(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 26. �ervna 1998 16:43
P�edm�t: Off Topic - vymena harddisku
>
>
>Ahoj!
>
>Mam problem. Potrebuji vymenit maly harddisk (1.28GB) za vetsi. Potiz je v
>tom, ze mam na nem hodne programu,
>a chtel bych se vyhnout opetovnym instalacim. Neexistuje nejaky software
>pro zalohovani a opetovne nainstalovani
>ze zalohy ? Samozrejme, ze se bude muset nainstalovat OS nejprve a pak az
>programy a data ze zalohy.
>Bylo by mozne, aby software obnovil registry ze zalohy, DLL atd.?
>Predem dekuji.
>
>Jan Kubeczka
>jan.kubeczka(zv)trz(tec)cz
>verzia dll - problem 2
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 29.6.1998 17:39:50
viz http://www.aye.net/~bstowers/delphi/
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Existuje na to free komponenta
TVersionInfoResource v2.22
IPX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1998 18:17:24
Jirka Stepanek wrote:
>
> Zdravim vsechny Delphisty,
> potreboval bych nejaky unit pro komunikaci v prostredi IPX nebo SPX
> (Novell,W95 apod.)
> Muze mi nekdo pomoct?
>
> Pavook
Ahoj,
nejake komponenty jsou zde:
http://www.kobira.co.jp/sakura/d_net_lan.htm
http://developer.novell.com/engsup/sample/tids/ships3/ships3.htm
Petr Vones, amatersky programator
Funkcie & Pointery
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1998 18:28:02
psoft wrote:
>
> Zdravim,
>
> viete mi niekto poradit, preco je mozne nieco take :
>
> function test:Integer;
> begin
> ....
> end;
>
> var P:Pointer;
> ...
> P:=(zv)test;
>
> ale nezoberie mi P:=(zv)sin, resp. ziadnu z funkcii v unite system.
> (Tam je v deklaracii pisane _SIN, nie SIN)
> Zahlasi mi, ze k tomu sin potrebuje parametre (akoby to chcel
> normalne vyhodnotit).
>
> Preco ?
>
> Dakujem.
Ahoj,
Bude to asi tim ze Sin() neni vlastne uplne cista funkce, je to spis
neco mezi funkci a prikazem jazyka (nevim jak to lip popsat), podobne
se chova treba Str() nebo Writeln coz je "funkce" kterou asi tezko
napises v Pascalu. Slo by to ale obejit takhle:
function MySin(X: Extended): Extended;
begin
Result := Sin(X);
end;
var P:Pointer;
P := (zv)MySin;
Petr Vones, amatersky programator
Table is full
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1998 18:46:02
Vit Malecek wrote:
>
> Pri behu aplikace pracujici nad Paradox tabulkami dosahl jeden soubor
> velikosti 135MB a objevila se hlaska "Table is full". Protoze na disku bylo
> mista dostatek, usuzuji ze jde o nejake omezeni PARADOXu. Je to tak?
> Za pripadne reakce dekuji.
>
Ahoj,
reseni je zde:
http://www.inprise.com/devsupport/bde/qanda/1352.html
Petr Vones, amatersky programator
thready?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1998 19:07:25
> sula milos wrote:
>
> Muze mi nekdo poradit s nasledujicim mozna trivialnim problemem?
> mam ftp clienta, ktery pri stahovani vola nasledujici funkci, ktera po 2048 bytech cte soubor s ftp serveru.
> Pri stahovani delsich souboru se vsak neda pohybovat s oknem dokud neprobehne tato funkce.
> Jak by se to dalo osetrit? Staci pouze nejaky example.
>
>
> function TForm1.downfile:boolean;
> var jmeno:string;
> delka,fh,pruchod:longint;
> ret:boolean;
> ih:HINTERNET;
> buf:Array[1..2048] of byte;
> r,read:DWORD;
> begin
> r:=sizeof(buf);
> jmeno:=getselfile;
> delka:=getselfilesize;
> pruchod:=1;
> label8.caption:=jmeno;
> fh:=FileCreate(jmeno);
> ih:=FtpOpenFile(hftp,PChar(jmeno),GENERIC_READ,FTP_TRANSFER_TYPE_BINARY,0);
> if (fh > 0) and (ih <> nil) then
> begin
> repeat
> read:=0;
> ret:=InternetReadFile(ih,(zv)buf,r,read);
> FileWrite(fh,buf,read);
> Gauge1.Progress:=round(pruchod*r/delka*100);
> inc(pruchod);
> until (read=0) or (ret=false);
> end;
> FileClose(fh);
> InternetCloseHandle(ih);
> end;
Ahoj,
napis to jako Thread. V Delphi dej File|New -> Thread Object, a vicemene
cele to muzes napsat do metody Execute (aspon na prvni pohled). Ale POZOR,
vsechny volani ve kterych menis napriklad nejake vlastnosti komponent na
formulari (v tvem pripade Label a Gauge) musis volat pres Synchronize
(tak jak to je naznaceno v komentari v unitu kde mas Thread). Pak asi jeste
budes muset trochu zmenit predavani hodnot Jmeno a Delka, treba v Create
tveho Threadu.
Jinak tato situace take svadi k pouziti Application.ProcessMessages, ale
to neni nejlepsi reseni, byvaji s tim problemy a neni to uplne ciste. Je
to asi neco jako prikaz Goto v paskalu ..... :-) Petr Vones, amatersky programator
Pokus o instalaci RX-lib
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1998 19:14:30
Plisek Jan Ing. wrote:
>
> Vazeni,
>
> pokusil jsem se o instalaci knihovny RX do Delphi 2.0 pod W95.
> Postupoval jsem presne podle navodu, ale uspech se nedostavil.
> Muj pokus skoncil tim, ze nelze nalezt soubor ShlObj.PAS, pozadovany
> v implementacni sekci unity FileUtil. Unitu ShlObj skutecne ve svem
> PC nemam a nevim, co s tim. Budu vdecny za kazdy tip, ktery povede k
> cili.
Ahoj,
Ja jej tam mam. Muze to byt ale tim ze ty mas Delphi 2.0 a ja mam
Delphi 2.01. Pokud opravdu nemas verzi 2.01 tak si ji zkus rychle
obstarat (uz je to tusim jen jako doprodej). Je tam opraveno par chyb,
pridany komponenty pro Internet a hlavne pouzitelny help. Vyjde to ted
asi na 500 Kc coz je docela unosna cena.
Petr Vones, amatersky programator
DOS Pascal a P2
[*] Pavel <kopr(zv)applet(tec)cz> - 29.6.1998 19:42:16
Existuje progr�mek k oprav� exe souboru - a funguje to. Dokonce pou��v�m spakovan� exe soubory, kter� se v RAMce rozbal� a dokonce pou��vam OVR a taky to funguje.
Z�tra ti to po�lu
Cau Pavel
----------
> Odes�latel: Ing. Lud�k Florian <bluerose(zv)pce(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: DOS Pascal a P2
> Datum: 29. �ervna 1998 13:53
>
> Cauec,
>
> pred nedavnem se bud tady nebo na konferenci o Win probiral problem
> nefungovani DOS programu v Pascalu na P2 pro chybu v CRT (moc rychlej CPU).
>
> Muze me nekdo odkazat na nejaky fix k tomuto problemu ?
>
> Dik.
>
> Bye Ludan
>
> ludan(zv)bluerose(tec)cz
> Table is full
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 29.6.1998 19:57:11
Ahoj,
- Max. velikost Pdx tabulky = 65000*BlockSize
- BlockSize je parametr BDE pro Paradox
- V tomto pripade je asi BlockSize = 2048.
- Jiz existujici tabulku, je treba restrukturalizovat a nastavit napr.
BlockSize = 4096
Priklady na to jsou napr. na www.inprise.com .. Dev. Support .. BDE
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
>Pri behu aplikace pracujici nad Paradox tabulkami dosahl jeden soubor
>velikosti 135MB a objevila se hlaska "Table is full". Protoze na disku bylo
>mista dostatek, usuzuji ze jde o nejake omezeni PARADOXu. Je to tak?
Hledani v Databazi
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 29.6.1998 20:04:54
>procedure TForm1.Button3Click(Sender: TObject);
>begin
> Table1.SetKey;
> Table1.IndexName:='IDHledej'
Za timhle radkem ti chybi strednik. To je onen "semicolon".> *** Table1.FieldByName('ID').AsString := InputBox('Hled�n�', 'Zadejte
>hledan� c�slo', '');
> Table1.FindNearest;
>end;
>
>Pri pokusu o spusteni se objevi chyba na radku oznacenem *** : Chybi
>operator nebo zavorka (Missing operator or semicolon). Nevite co to ma
>znamenat? Kde bude chyba?
>
>Svatopluk Vit
>zacatecnik
>
Radim Kunz
News From The Electricity Forum
[*] rwh(zv)istar.ca - 29.6.1998 20:07:25
Greetings From The Electricity Forum at: http://www.electricityforum.com
A recent survey of the internet found that you or your organization has an interest in electrical engineering. As such, we would like to bring your attention to our web site, which gets more than 170,000 hits per month!
We offer a FREE MEMBERSHIP to our web site, which gives you a regular e-mail newsletter about current North American electric utility industry news, corporate news and product information, as well as updates on our latest technical training seminars and conferences. Join the thousands of electrical industry professionals who are already FREE members.
We also have the largest and most complete on-line Transmission and Distribution Product Directory and Buyer's Guide with hundreds of leading T&D manufacturers and more than 900 product categories to browse.
Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums and Conferences, Industry Links, Product Showcases, Classifieds, Carreers, etc.
Thanks very much for your time,
Randy Hurst
President
rwh(zv)istar.ca
If you wish to be removed from this advertiser's future mailings, please reply with the subject "Remove" and this software will automatically block you from their future mailings.
Tisk na jehlickovych tiskarnach
[*] �ke��k Jaroslav�������6�����̿ - 29.6.1998 20:40:20
Panove.
Komponentu pro znakovy tisk vam rad poslu,
ale musite mi napsat svuj mail.
Nemohu to posilat pres konferenci,
protoze to ma asi 150 kB v zabalenem stavu
a konferenci by to zatizilo.
Vsichni ucastnici konference o to asi zajem nemaji.
Napicte mi radeji rovnou na muj mail jaro(zv)sinea(tec)cz
Jaro
---------------------------------------
Mel bych taky zajem,
diky
-----P�vodn� zpr�va-----
Od: Ales Zeleny [SMTP:zelenya(zv)mlp(tec)cz]
Odesl�no: 29. �ervna 1998 10:33
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Tisk na jehlickovych tiskarnach
DDV,
pekne prosim...
> Jestli chces, poslu ti komponetu pro generator sestav ve znakovem
> rezimu s primym vystupem na tiskarnu (primo na port tiskarny mimo
> spooling windows)
> Komponentu nabizime zdarma. Bude-li vetsi zajem, umistim komponentu
> na nas server pro stazeni.
> Ve vylepsene podobe se tato komponenta stane soucasti
> ceskeho generatoru sestav verze 4.
> V samostatne podobe je k dispozici bezplatne a je k ni uplna
> dokumentace a priklad.
> Piste si na mail jaro(zv)sinea(tec)cz
> --------------------------------------------------------------------------
> -- ---
>
> -----P�vodn� zpr�va-----
> Od: Martin Kubecka <martin.kubecka(zv)dytron(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 19. �ervna 1998 16:04
> P�edm�t: Tisk na jehlickovych tiskarnach
>
>
> >Zdravim vsechny zucastnene a preji pekny den,
> >
> >nevite nekdo jak tisknout na jehlickove tiskarne znakove a ne graficky?
> >Lze to vubec? A pokud ano tak jak? Napr. pro tisky pokladnich dokladu
> >(aby bylo mozno pouzivat pruklepy). V grafice je to vetsinou dost pomale.
> >
> >Prostredi D3 a W95/NT.
> >
> >Za podnety diky
> >
> >Martin Mac Kubecka
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.problem s IniFile
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1998 20:54:27
Zdenek Prantl wrote:
> > A mas nastaveno Project /Options /Compiler /Strict var-strings na
> > false?
>
> Ne. A proc ?
Protoze se tak zbavim prisne kontroly pri praci se stringy.
> Jenom bych chtel jeste dodat, ze to je v unite dohromady s
> CGIExpertem a mam silne podezreni, ze se prave tyto dva (CGIExpert a
> TIniFile) nesnaseji. Pokud totiz to same delam v jinych programech,
> tak je vse O.K.
Zkus vypnout var-strings a uvidis, jestli to bude stejne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Funkcie & Pointery
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1998 20:54:25
psoft wrote:
> viete mi niekto poradit, preco je mozne nieco take :
>
> function test:Integer;
> ...
> var P:Pointer;
> ...
> P:=(zv)test;
>
> ale nezoberie mi P:=(zv)sin, resp. ziadnu z funkcii v unite system.
> (Tam je v deklaracii pisane _SIN, nie SIN) Zahlasi mi, ze k tomu sin
> potrebuje parametre (akoby to chcel normalne vyhodnotit).
Protoze funkce Sin ma parametry, tvoje funkce nikoliv. Takze pokud
bys takto chtel prirazovat, musel bys udelat takovouhle deklaraci:
ftyp=function(x:extended):extended;
...
var p:ftyp;
...
p:=(zv)Sin;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizator - oprava
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1998 20:54:25
V Lokalizatoru 3.0 freeware i 3.5 byly drobne chyby. Na domovskem
webu jsou jiz opravene verze k volnemu stazeni. Pro stahovani update
verze 3.5 (plati i pro verzi shareware) a vyssi lze s vyhodou vyuzit
stahovani pomoci praveho buttonu na toolbaru s obrazkem globu -
nemusite tahat plky uvedene na webu. Pred nahranim nove verze si
smazte stary soubor Localize.csy (Localize.sky).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ASP - Off topic
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 29.6.1998 21:32:01
On Friday, June 26, 1998 1:33 PM, Jarek M. [SMTP:marecek(zv)melzer(tec)cz]
wrote:
> Nevite prosim nekdo jakym zpusobem se udela prihlasovaci dialog na
> Web serveru pomoci
Myslis neco jako na http://www.delphi(tec)cz/admin/ ? :))
Staci sebrat prava defaultnimu uzivateli IUSER_<comp_name>.
Tomas
Windows mwnu
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 29.6.1998 21:33:46
Nevite nekdo, jak prepsat v delphi standardni windows menu (co se zobrazuje na
leve horni ikonce - takove to Restore, Move, Minimize, Maximize ... nebo
vyskakuje jako popup pri minimalizovanem formulari ci aplikaci) popr. jak se
rozsiruje o dalsi polozky nebo prehazuje poradi?
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/verzia DLL
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 29.6.1998 22:42:09
Dakujem vsetkym, ktory prispeli k mojemu problemu.
Uz to beha, spravim na to novu komponentu (zistovanie verzie .exe,.dll,.drv,...) a potom to niekam umiestnim, dam vcas vediet.
S pozdravom
Pavel Koutny, koutny(zv)tkcmt.sk
EMPEKO, Lermontova 12, 036 01 MARTIN, Slovenska republika
phone/fax: ++421 842 224621, mobil: ++421 905 349609
Interbase cp852 -> win1250
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 29.6.1998 23:11:10
Zdravim,
nevi nekdo o nejake elegantni metode jak prevest interbasovou databasi z
cp852 do win1250. Nechce se mi psat konverzni program.
Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
V�voj SW
CAB soubory & Patche
[*] Alan Cermak <alex(zv)mas(tec)cz> - 29.6.1998 23:50:31
-----P�vodn� zpr�va-----
Od: Peter Rus <peterrus(zv)intesys(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Datum: 25. �ervna 1998 23:43
P�edm�t: .CAB soubory & Patche
>Ahoj Delphici,
>
>po nejake dobe, zase dotaz :-)).
>
>Mila Sally, moc bych potreboval vedet, jestli existuje nejaka komponenta
>(anebo DLL nebo API atd. atd. atd.) pro praci s .CAB soubory. Rad bych
>dal svojim vecem profesionalni raz (aspon tak, kdyz program stoji za
>...).
>
>Mejte se krasne,
>
>Peter
>mailto:peterrus(zv)intesys(tec)cz
>http://www.intesys(tec)cz
Existuje od Microsoftu "Cabinet SDK". Jsou tam programy pro vytvareni i cteni *.cab, nejake popisy a taky dll a priklady v C. Je to ke stazeni na http://www.microsoft.com/workshop/management/cab/cabdl.asp a ma to asi pul mega.
Alan Cermak
Alexoft
alex(zv)mas(tec)cz
ICQ: 13863597
Funkcie & Pointery
[*] psoft <psoft(zv)kosice.telecom.sk> - 30.6.1998 00:00:34
Zdravim,
viete mi niekto poradit, preco je mozne nieco take :
function test:Integer;
begin
....
end;
var P:Pointer;
...
P:=(zv)test;
ale nezoberie mi P:=(zv)sin, resp. ziadnu z funkcii v unite system.
(Tam je v deklaracii pisane _SIN, nie SIN)
Zahlasi mi, ze k tomu sin potrebuje parametre (akoby to chcel
normalne vyhodnotit).
Preco ?
Dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Table is full
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 30.6.1998 00:04:00
> Pri behu aplikace pracujici nad Paradox tabulkami dosahl jeden soubor
> velikosti 135MB a objevila se hlaska "Table is full". Protoze na disku bylo
> mista dostatek, usuzuji ze jde o nejake omezeni PARADOXu. Je to tak?
> Za pripadne reakce dekuji.
>
> Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
>
Tabulka v Paradoxu je omezena co do velikosti poctem bloku
(maximalne 2^16 .. 65536). Pro standardni nastaveni velikosti
bloku 2048 byte je maximalni velikost tabulky 128 MB.
(BDEadmin /configuration/drivers/native/paradox/block size)
Pro nastaveni level=4 (... kompatibilni s DOSovskym PDOX45) muzes
nastavit velikost bloku 1024, 2048 nebo 4096 B.
Pokud si nastavis na tom samem miste level=7 muzes zvetsit blok az
na 32768 B.
Pozor !!! Toto nastaveni plati pro nove vytvorene tabulky, stavajici
se nemeni. Musis je vytvorit znova a ADDnout do nich stara data.
S pozdravem Zdenek
---------------------------------------------------------
: o__o Zdenek Sraier sraierzd(zv)czn(tec)cz :
: ( o o) users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske www.byll(tec)cz/scuba/ :
---------------------------------------------------------
This message was delivered using 100% recyclable electrons.Off Topic - vymena harddisku
[*] Jan.Kubeczka(zv)gate.trz(tec)cz - 30.6.1998 05:50:45
Diky vsem.
jan.kubeczka(zv)trz(tec)cz
FTP pro konferenci
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 30.6.1998 06:14:09
Super! Aka je ta adresa?
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
----------
> Odes�latel: Ales Zeleny <zelenya(zv)mlp(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: FTP pro konferenci
> Datum: 29. j�n 1998 10:26
>
> DDV,
> aby se predeslo posilani mailu s attacementy obsahujicimi velke
> soubory nabizim nasladujici (bude-li zajem):
> Vytvorim na nasem FTP adresar, pro download by byl public, pro upload
> bych do konference zverejnil nejaky account.
>
> veskere komponenty a ukazkove aplikace by se tam mohly poslat (server
> podporuje obnovu spadlych spojeni, pokud to umi i klient).
>
> Nebulo by tedy treba posilat soubory nekomu, at je nekam da a splnilo
> by to ucel pro pohodlnou vymenu zdrojaku, dll, packages a jinych veci.
>
> Co vy na to?
>
> Pekny den!
>
>
> +------------------------+ +---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
> |Mestska knihovna v Praze| |Municipal Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1 |
> |115 72 | |115 72 |
> | | | |
> |Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
> |E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
> +------------------------+ +---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
> Multitasking means that applications can crash simultaneously.Table is full
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 30.6.1998 06:57:20
No a ja bych uz jen doplnil, ze Paradox tabulky pouzivaji
obousmerny linkovany seznam, kde jsou ukazatele na jednotlive
bloky. Bloku muze byt 65535 a je-li velikost bloku 1024 lze z toho
odvodit, kolik zaznamu se tam asi vejde. Pozor, mas-li delku vety
1023 zustava jeden bajt nepouzit. Mas-li ale 513 bajtu pak zustava
nepouzito 511 bajtu! Hruza, co!
Jo od techto cisel nutno odecist 6 bajtovou hlavicku bloku.
Martin
DOS Pascal a P2
[*] Pavel <kopr(zv)applet(tec)cz> - 30.6.1998 06:58:19
[P��loha v souboru: tppatch.zip]
Toto je v�ced�ln� zpr�va form�tu MIME.
Zde je ten progr�mek
Kdybys mel probl�my, tak napis
Pavel
----------
> Odes�latel: Pavel <kopr(zv)applet(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: Re: DOS Pascal a P2
> Datum: 29. �ervna 1998 19:42
>
> Existuje progr�mek k oprav� exe souboru - a funguje to. Dokonce pou��v�m spakovan� exe soubory, kter� se v RAMce rozbal� a dokonce pou��vam OVR a taky to funguje.
> Z�tra ti to po�lu
> Cau Pavel
> ----------
> > Odes�latel: Ing. Lud�k Florian <bluerose(zv)pce(tec)cz>
> > Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> > P�edm�t: DOS Pascal a P2
> > Datum: 29. �ervna 1998 13:53
> >
> > Cauec,
> >
> > pred nedavnem se bud tady nebo na konferenci o Win probiral problem
> > nefungovani DOS programu v Pascalu na P2 pro chybu v CRT (moc rychlej CPU).
> >
> > Muze me nekdo odkazat na nejaky fix k tomuto problemu ?
> >
> > Dik.
> >
> > Bye Ludan
> >
> > ludan(zv)bluerose(tec)cz
> >
CPL
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 30.6.1998 07:01:24
{$DEFINE Debug}
{$IFDEF Debug}
program Program;
{$ELSE}
library P-CPL;
{$ENDIF}
uses
Forms,
WinTypes,WinProcs,
Cpl,
Dialogs, ... a tak dale
{$R *.RES}
function CPLApplet(hWndCpl: HWnd; msg: Word; lParam1, lParam2: Longint):
Longint; export;
begin
case msg of
cpl_Init:begin
Result:=1;
end;
cpl_GetCount:begin
Result:=1;
end;
cpl_Inquire:begin
with PCPLInfo(LParam2)^ do begin
idIcon:=203;
idName:=1;
idInfo:=2;
lData:=0;
end;
Result:=1;
end;
cpl_DblClk:begin
PanelForm:=TPanelForm.Create(nil);
PanelForm.ShowModal;
PanelForm.Free;
Result:=1;
end;
cpl_Stop:begin
Result:=1;
end;
cpl_Exit:begin
Result:=1;
end;
end;
end;
exports CPLApplet;
begin
{$IFDEF Debug}
Application.Title := 'Testy';
Application.CreateForm(TPanelForm, PanelForm);
Application.Run;
{$ENDIF}
end.
Tohle mi funguje, ALE zkousel jsem to jen v D1 a bohuzel musim konstatovat,
ze pod
NT mi to nejede.
Nebude to asi tim, ze NT nevezmou 16bit CPL? Otazka do plena.
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen?: http://www.geocities.com/Athens/Olympus/5260
DOS Pascal a P2
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 30.6.1998 07:02:27
>
> Cauec,
>
> pred nedavnem se bud tady nebo na konferenci o Win probiral problem
> nefungovani DOS programu v Pascalu na P2 pro chybu v CRT (moc rychlej CPU).
>
> Muze me nekdo odkazat na nejaky fix k tomuto problemu ?
>
> Dik.
>
> Bye Ludan
>
> ludan(zv)bluerose(tec)cz
Je jich asi vic, jeden je na http://www.turbopower.com/
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Acces
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 30.6.1998 07:24:30
Zdravim,
cestu a nazov systemovej databazy som napisal do BDE configuracie, do driver
MSACCESS do polozky SYSTEM DATABASE. Ked to neslo skusil som to napisat aj
do DATABASE EXPLORER do polozky SYSTEM DATABASE. Nepomohlo.
Co myslite pod zabezpecenim cez menu ? Zabezpecil som to v Menu nastroje,
polozka ZABEZPECENI a PRAVA UZIVATELU A SKUPIN. Ide to iba na pocitaci, na
ktorom som to zabezpecil. Na Inom tu dabaazu kludne otvori hocikto.
Martin
-----P�vodn� spr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Pre: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
D�tum: 29. j�n 1998 16:34
Predmet: Re: Acces
> V Acces 7 uz systemova databaza neexistuje, je len informacny subor
pracovni
> skupiny, ktory ma koncovku MDW, namiesto MDA. Skusal som do konfiguracie
BDE
To je prave ta systemova databaze...
> napisat cestu s nazvom systemove databaze ale napisal mi hlasku chybny
> subor.
A kam jsi to napsal? Me to pracuje.
> Mimochodom este k Accesu. Nastavil som si zabezbecenie, uzivatelov a
> pristupove prava. Na pocitaci, kde som to nastavil som si pustil Acces a
> islo to v poriadku , ale ak som to preniesol na iny, kde bol iny
informacny
> subor, ani sa ma neopytal na heslo a otvoril databzu. Neroby tu niekto s
> Accesom 7 , kto by vedel v com je zrada? Pozor ide o Acces, nie o delphi.
Tak jsi to nezabezpecil poradne. Pokud jsi jen nastavil hesla, to nestaci,
musis to zabezpecit pres zabezpeceni v menu. Pak to je teprve opravdu
zabezpecena databaze a nepujde spustit bez systemove databaze.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
Windows mwnu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 30.6.1998 07:45:59
-----Puvodni zprava-----
Od: Greissler Ronald
Odeslano: 29. eervna 1998 21:34
Komu: 'DELPHI Distribution List'
Poedmit: Windows mwnu
Nevite nekdo, jak prepsat v delphi standardni windows menu (co se zobrazuje na
leve horni ikonce - takove to Restore, Move, Minimize, Maximize ... nebo
vyskakuje jako popup pri minimalizovanem formulari ci aplikaci) popr. jak se
rozsiruje o dalsi polozky nebo prehazuje poradi?
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
[Petr Brant]
Poidani polo?ky do systemoveho menu:
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
const
idSysAbout = 100;
idReindex = 200;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WMSysCommand (var Msg: TMessage);
message wm_SysCommand;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
{ add a separator and a menu item to the system menu}
AppendMenu (GetSystemMenu (Handle, FALSE),
MF_SEPARATOR, 0, '');
AppendMenu (GetSystemMenu (Handle, FALSE),
MF_STRING, idSysAbout, '&About...');
AppendMenu (GetSystemMenu (Handle, FALSE),
MF_STRING, idReindex, 'Database reindex...');
end;
procedure TForm1.WMSysCommand (var Msg: TMessage);
begin
{ handle a specific command}
if Msg.WParam = idSysAbout then
ShowMessage ('Mastering Delphi: SysMenu example');
if Msg.WParam = idReindex then
ShowMessage ('Reindexing');
inherited;
end;
end.
[Petr Brant]
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Pokus o instalaci RX-lib
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 30.6.1998 07:55:22
> Date: Mon, 29 Jun 1998 19:14:30 +0200
> From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Subject: Re: Pokus o instalaci RX-lib
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Plisek Jan Ing. wrote:
> >
> > Vazeni,
> >
> > pokusil jsem se o instalaci knihovny RX do Delphi 2.0 pod W95.
> > Postupoval jsem presne podle navodu, ale uspech se nedostavil.
> > Muj pokus skoncil tim, ze nelze nalezt soubor ShlObj.PAS, pozadovany
> > v implementacni sekci unity FileUtil. Unitu ShlObj skutecne ve svem
> > PC nemam a nevim, co s tim. Budu vdecny za kazdy tip, ktery povede k
> > cili.
>
> Ahoj,
>
> Ja jej tam mam. Muze to byt ale tim ze ty mas Delphi 2.0 a ja mam
> Delphi 2.01. Pokud opravdu nemas verzi 2.01 tak si ji zkus rychle
> obstarat (uz je to tusim jen jako doprodej). Je tam opraveno par chyb,
> pridany komponenty pro Internet a hlavne pouzitelny help. Vyjde to ted
> asi na 500 Kc coz je docela unosna cena.
>
> Petr Vones, amatersky programator
Nazdar,
chyba je jiz vyresena. Reseni je na strance http://demo.ru v casti
"Known problems" jako problem c.1 .
Dekuji za radu.
>
>
-------------------------------------------------------
Ing.Jan Plisek,
Stredni prumyslova skola elektrotechnicka a Vyssi
odborna skola
Karla IV. 13 Phone: +42 40 51 68 21
531 69 Pardubice Fax: +42 40 51 70 37
Czech Republic Email: plisek(zv)spse(tec)cz
-------------------------------------------------------
remove
[*] Ivo Brhel <ib(zv)unex(tec)cz> - 30.6.1998 07:55:08
rwh(zv)istar.ca wrote:
>
> Greetings From The Electricity Forum at: http://www.electricityforum.com
>
> A recent survey of the internet found that you or your organization has an interest in electrical engineering. As such, we would like to bring your attention to our web site, which gets more than 170,000 hits per month!
>
> We offer a FREE MEMBERSHIP to our web site, which gives you a regular e-mail newsletter about current North American electric utility industry news, corporate news and product information, as well as updates on our latest technical training seminars and conferences. Join the thousands of electrical industry professionals who are already FREE members.
>
> We also have the largest and most complete on-line Transmission and Distribution Product Directory and Buyer's Guide with hundreds of leading T&D manufacturers and more than 900 product categories to browse.
>
> Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums and Conferences, Industry Links, Product Showcases, Classifieds, Carreers, etc.
>
> Thanks very much for your time,
>
> Randy Hurst
> President
> rwh(zv)istar.ca
>
> If you wish to be removed from this advertiser's future mailings, please reply with the subject "Remove" and this software will automatically block you from their future mailings.
--
Ivo Brhel, UNEX a.s. Unicov
783 93 Unicov
mail: ib(zv)unex(tec)cz
problem s IniFile
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 30.6.1998 08:36:44
> -----Original Message-----
> From: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Sent: Monday, June 29, 1998 10:54 PM
> Subject: RE: problem s IniFile
>
> Zdenek Prantl wrote:
>
> > > A mas nastaveno Project /Options /Compiler /Strict var-strings na
> > > false?
> >
> > Ne. A proc ?
>
> Protoze se tak zbavim prisne kontroly pri praci se stringy.
> Zkus vypnout var-strings a uvidis, jestli to bude stejne.
Mel si pravdu, uz je to O.K.
Diky. Zdenek
Porovnavanie zvuku
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 30.6.1998 08:37:54
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute !
Moja otazka znie : da sa nejako inteligentne porovnava� dva WAV subory v Delphi. Ide mi konkretne o to, aby program zistil ci 2 rozne subory ( nahovorene cez mikrofon ) obsahuju rovnaky text ( zadanie vstupneho hesla, potrebujem kontrolovat obsah zpravy a identifikaciu hlasu - uzivatela ).
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
Funkcie & Pointery - mat. parser
[*] Pavel Kral <kral(zv)afx(tec)cz> - 30.6.1998 08:43:21
-----Original Message-----
Nuz, to tvoje riesenie je dobre, ale ma muchu v tom, ze ja to
potrebujem na parser, takze takto predefinovat mi treba skoro cely
unit system.pas a zeby hadam aj z math.pas ? (Teda skoro vsetko
podstatne ....).
----
ma DSP je docela dobra komonenta - parser mat. funkci.
adresa: http://sunsite.icm.edu.pl/delphi/ftp/d10free/parser10.zip
Treba ti bude stacit.
Pavel
Remove
[*] Marcel Telka <marcel(zv)vadium.sk> - 30.6.1998 08:47:51
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
-----P�vodn� zpr�va-----
Od: rwh(zv)istar.ca <rwh(zv)istar.ca>
Komu: rwh(zv)istar.ca <rwh(zv)istar.ca>
Datum: 30. j�n 1998 0:01
P�edm�t: News From The Electricity Forum
>Greetings From The Electricity Forum at: http://www.electricityforum.com
>
>A recent survey of the internet found that you or your organization has an
interest in electrical engineering. As such, we would like to bring your
attention to our web site, which gets more than 170,000 hits per month!
>
>We offer a FREE MEMBERSHIP to our web site, which gives you a regular
e-mail newsletter about current North American electric utility industry
news, corporate news and product information, as well as updates on our
latest technical training seminars and conferences. Join the thousands of
electrical industry professionals who are already FREE members.
>
>We also have the largest and most complete on-line Transmission and
Distribution Product Directory and Buyer's Guide with hundreds of leading
T&D manufacturers and more than 900 product categories to browse.
>
>Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D
Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums
and Conferences, Industry Links, Product Showcases, Classifieds, Carreers,
etc.
>
>Thanks very much for your time,
>
>Randy Hurst
>President
>rwh(zv)istar.ca
>
>
>
>If you wish to be removed from this advertiser's future mailings, please
reply with the subject "Remove" and this software will automatically block
you from their future mailings.
>
>DeviceIOControl
[*] stingp1.eti(zv)mail.cez(tec)cz - 30.6.1998 08:48:34
Cau vsichni,
narazil jsem na takovy problem, potreboval bych pomoc od nejakeho API guru
:)
Delam takovy mensi program, a potreboval bych softwarove otevrit a zavrit
CD mechaniku, ale bez pouziti MMSystem, a to z toho duvodu, ze staci mit
spusteny nejaky program, ktery pouziva cdaudio a uz to nefunguje.
Zkousel jsem vytvorit handle zarizeni pres CreateFile, v domneni, ze bych
to
pak mohl obstarat pres fci API DeviceIOControl, ale CreateFile mi zarputile
vraci invalid_handle. Jestli nekdo vite o lepsim zpusobu, poradte prosim.
1) Jak zjistit handle zarizeni
2) Zjistit stav zarizeni (jedna se mi hlavne o CD - zavrene,otevrene)
Diky vsem, cau Pavel
stingp1.eti(zv)mail.cez(tec)cz
Windows mwnu
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 30.6.1998 08:48:17
> Nevite nekdo, jak prepsat v delphi standardni windows menu (co se
> zobrazuje na leve horni ikonce - takove to Restore, Move, Minimize,
> Maximize ... nebo vyskakuje jako popup pri minimalizovanem formulari ci
> aplikaci) popr. jak se rozsiruje o dalsi polozky nebo prehazuje poradi?
>
Utrzky kodu:
//v implementaci:
const
idSysAbout = 100;
idSysOnTop = 101;
idSysCPUSpeed = 102;
//dale:
procedure TMemForm.WMSysCommand (var Msg: TMessage);
{var
Item: TMenuItem;}
begin
// Obslu� moje p��kazy menu
if Msg.WParam = idSysAbout then
ShowMessage('Nejuzasnejsi program, podpora: ' +
'patricij(zv)zemeplocha.vesmir');
if Msg.WParam = idSysOnTop then
SetTopMode;
(* Delej praci dalsich prikazu menu. *)
// puvodn� p��kazy menu
inherited;
end;//...
procedure TMemForm.FormCreate(Sender: TObject);
begin
AppendMenu (GetSystemMenu (Handle, FALSE),
MF_SEPARATOR, 0, '');
AppendMenu (GetSystemMenu (Handle, FALSE),
MF_STRING, idSysOnTop, 'On &Top');
//...
(* takto se tam ty polozky pridavaji. MF_SEPARATOR je oddelovaci
cara. Co ovsem neumim, je jak zmenit nabidku pro kliknuti pravym
tlacitkem na task baru (natoz to obslouzit) *).+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Table is full
[*] Z�vada Ji�� <ZAVADA(zv)autocont(tec)cz> - 30.6.1998 09:05:36
Jedna se o spravne nastaveni BDE, konkretne nastaveni BLOCKSIZE v�BDE
Administratoru. Kdysi jsem tu chybu dohledaval a nasel neco u Corelu na
strankach podpory Paradoxu. Asi ti bude stacit zmenit hodnotu na vyssi
(pokud me pamet neklame, mus� to byt nasobky 1024), protoze z�velikosti
clusteru se nejak odvozuje nejvyssi dostupna velikost tabulky..
S�pozdravem
Jiri Zavada
AT Computers, a.s.
-----Puvodn� zpr�va-----
Od: Vit Malecek [SMTP:malecek(zv)melzer(tec)cz]
Odesl�no: 29. cervna 1998 14:20
Komu: 'Konference Delphi'
Predmet: Table is full
Pri behu aplikace pracujici nad Paradox tabulkami dosahl jeden
soubor
velikosti 135MB a objevila se hlaska "Table is full". Protoze na
disku bylo
mista dostatek, usuzuji ze jde o nejake omezeni PARADOXu. Je to
tak?
Za pripadne reakce dekuji.
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov,
Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302,
privat : +420-(0)508-27141
fax number : +420-(0)508-330302
Windows NT 4.0 server & databaze corrupt
[*] Vesna <veselyt(zv)sagas(tec)cz> - 30.6.1998 09:28:41
Ahoj vsichni,
mam problem s Windows NT Server 4.0 a databazema, pokud se pouziva jako
stanice. Tento problem je popsan napr. v souboru careware.txt, ktery je na
DelphiSitu, ale ja to nemohu rozchodit.
Porad padaj tabulky na rozhozeni indexu. Mam nainstalovanu SP3 a pouzivam
Delphi 3.0 Profi.
V Carewaru.txt je aby se nasledujici veci napsali do registru. Za prve tyto
polozky neexistuji a kdyz je vytvorim, tak to stejne nefunguje. Muzete nekdo
poradit? Problem je ve zpozdenem zapisovani na WinNT, ale jak to vyresit, to
nevim.
Diky za kazy tip.
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentcontrolSet\Services\LanmanServer\Parameter
s]
"EnableOplocks"=dword:OOOOOOOO
"CachedOpenLimit"=dword:OOOOOOOO
Vesna, SagaS
FTP pro konferenci
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 30.6.1998 09:37:08
DDV,
tedy pro klid moderatora:
Adresa: ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference
Pro cteni lze pouzit normalni pristup anonymous.
Pro zapis je treba se prihlasit jako
username: delphi
password: borland
(* vzpominkove :-) *)
Pak mate pravo zapisu i cteni.
Hlasite-li se jako uzivatel "delphi" pak plati:
pokud zadate ftp://ftp.mlp(tec)cz
pak budete automaticky vrzeni do adresare konference,
pozijete-li ftp://ftp.mlp(tec)cz/ pak se dostanete na root ftp odkud se
muzete probrodit do pozadovaneho adresare.
P.S.: z Netscape do neanonymniho ftp takto: ftp://delphi(zv)ftp.mlp(tec)cz a
pak mate v menu volbu "uplad file" (ja to do dneska netusil, tak se
omlouvam, pokud je to notoricky znama vec).+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Windows mwnu
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 30.6.1998 09:38:31
Ahoj,
pridat a obsluhovat polozku 'Vlastnosti ... ' systemoveho menu muzes treba
takto:
const idmVlastnosti = 1;
constructor TQadroForm.Create(AComponent: TComponent);
begin
inherited;
InsertMenu(GetSystemMenu(Handle,FALSE),
5,MF_STRING+MF_BYPOSITION,
idmVlastnosti,'&Vlastnosti ...');
....
procedure TQadroForm.WndProc(var AMessage:TMessage);
begin
with AMessage do
case Msg of
WM_SYSCOMMAND: if WParamLo=idmVlastnosti then begin
DoVlastnosti;
Result:=0;
end
end;
inherited WndProc(AMessage);
end;{WndProc}
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
>Nevite nekdo, jak prepsat v delphi standardni windows menu (co se zobrazuje
na
>leve horni ikonce - takove to Restore, Move, Minimize, Maximize ... nebo
>vyskakuje jako popup pri minimalizovanem formulari ci aplikaci) popr. jak
se
>rozsiruje o dalsi polozky nebo prehazuje poradi?
BDE
[*] Vesna <veselyt(zv)sagas(tec)cz> - 30.6.1998 09:51:03
Jeste jedn otazka,
nevite, jak nebo kde je popsano, co se musi vse udelat pro nainstalovani BDE
na pocitaci. Myslim tim samozrejmne programovou instalaci BDE (kopirovani,
registry atd. atd...), ne ze si mam spustit setup.exe.
Diky
Vesna, SagaS
Porovnavanie zvuku
[*] VTech Kavan <vtech(zv)kavan.org> - 30.6.1998 09:59:35
pro funkcni rozpoznani hlasu je treba neuronova sit, prosty porovnani
samplu nehrozi, protoze ty soubory nikdy nebudou stejny.
VTech
Ing. J�n Kuch�r wrote:
> Caute ! Moja otazka znie : da sa nejako inteligentne porovnava� dva
> WAV subory v Delphi. Ide mi konkretne o to, aby program zistil ci 2
> rozne subory ( nahovorene cez mikrofon ) obsahuju rovnaky text (
> zadanie vstupneho hesla, potrebujem kontrolovat obsah zpravy a
> identifikaciu hlasu - uzivatela
> ).
> Dik
>
> Katedra v�robn�ch inov�ci�
> SjF TU Košice
> Ing. J�n Kuch�r
> E-mail : kuchar(zv)tuke.sk
Titulkovy pruh
[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 30.6.1998 10:04:39
Hola lidi!
Nevite nekdo, jak udelat (pokud je to mozne) vicebarevny titulkovy pruh u
nejake aplikace.
Diky za vsechny navrhy.Windows mwnu
[*] V�t�zslav Gazda������u��n�?��? - 30.6.1998 10:16:35
Podivej se na API funkci GetSystemMenu. Tato funkce umi zjistit handle
systemoveho menu daneho okna. Tento handle pak muzes pouzit stejne jako
handle normalniho menu, to znamena, ze pro modifikaci muzes pouzit API
funkce AppendMenu, InsertMenu, ModifyMenu, RemoveMenu atd. Funkce
GetSystemMenu umi take vratit systemove menu do puvodniho stavu.
Vita
Memory Manager
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 30.6.1998 10:36:13
Ahoj vespolek,
nevite negdo o nejakem (inteligentnim :-) ) sledovaci celkove pameti pro
W95/98 ???
Mam na mysli neco takoveho, jako je v NT4 ze to zobrazuje pamet
alokovanou jednotlivymi applikacemi, popripade procesy. Popripade, jak
takovou vec napsat v D3.
Diky, Diky, Diky, ...
PS1: To FTP je sqelej pocin.
PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
se zelenaji ..., nevite negdo jak se
_VYHNOUT__VOJNE_ ?!?!?
Konci mi odklad, a nechci se zabit, nebo si uriznout
nohu/ruku/hlavu/atd...
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Acces
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.6.1998 10:45:47
> cestu a nazov systemovej databazy som napisal do BDE configuracie, do driver
> MSACCESS do polozky SYSTEM DATABASE. Ked to neslo skusil som to napisat aj
To je divne, me to chodi...
> Co myslite pod zabezpecenim cez menu ? Zabezpecil som to v Menu nastroje,
> polozka ZABEZPECENI a PRAVA UZIVATELU A SKUPIN. Ide to iba na pocitaci, na
> ktorom som to zabezpecil. Na Inom tu dabaazu kludne otvori hocikto.
Totiz ono jedna vec je nastaveni prav uzivatelu a skupin a druha vec je
prevest databazi na zabezpecenou. Prvni v podstate neude nic, vsak si
vyzkousej pristup jinym uzivatelem do tabulky, ktera pro nej neni pristupna.
Ja mam anglicky Access, takze ti to nereknu presne cesky, ale musis
udelat toto: Tools - Security - User-Level Security Wizard. Pak se z toho
udela opravdu zabezpecena databaze, kterou na cizim pocitaci bez systemove
databaze neotevres.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Hledani v Databazi
[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 30.6.1998 12:34:20
Semicolon neni zavorka, ale strednik. Chybi na radku pred ***.
Jinak jsem zdrojovz text nezkoumal.
>
> procedure TForm1.Button3Click(Sender: TObject);
> begin
> Table1.SetKey;
> Table1.IndexName:='IDHledej'
> *** Table1.FieldByName('ID').AsString := InputBox('Hled�n�', 'Zadejte
> hledan� c�slo', '');
> Table1.FindNearest;
> end;
>
> Pri pokusu o spusteni se objevi chyba na radku oznacenem *** : Chybi
> operator nebo zavorka (Missing operator or semicolon). Nevite co to ma
> znamenat? Kde bude chyba?
>
> Svatopluk Vit
> zacatecnik
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+Funkcie & Pointery
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.6.1998 12:38:47
psoft wrote:
> > ftyp=function(x:extended):extended;
> > ...
> > var p:ftyp;
> > ...
> > p:=(zv)Sin;
>
> Musim ta opravit, ale nie je to preto.
> 1. skusal som to a aj tak pyta parametre
> 2. moja premenna p nie je ftyp ale pointer - netypovy, a aj chcem,
> aby ostal iba pointer, aby som tam mohol priradzovat funkcie s
> roznymi parametrami. 3. preco by potom ak dam napr. vlastnu funkciu
> test(x,y:...):boolean
> bralo aj p:=(zv)test, kde p=pointer ?
> 4. preco mi funkcie, ktore niesu v unite system, ale math berie ?
> napr taky ArcSin ma deklaraciu taku isty, a s tym problem nie je.
>
> Ja vidim problem v tom, ze napr. sin ani nie je funkcia. Je to len
> akasi finta kompilatora, lebo ak pouzivas funkciu sin, musim mat v
> uses pouzity unit system. Ale skusim v tom unite system najst
> funkciu sin. Ak ju tam najdes, pozvem ta na pivo... Spomina sa tam
> vsak cosi o "magic functions" .....
OK, je to tak, neproveril jsem si to. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Klavesa
[*] kubork(zv)post.sk - 30.6.1998 13:25:16
Nazdar,
potreboval by som poradit, ci je mozne tesovat stlacenie klavesnice z ineho programu. Ak ano, ako je to mozne otestovat.
V daka za kazdu odpoved
Rado Kubala
kubork(zv)post.sk
----------------------------------------
WWW.POST.SK - e-mail pre kazdeho zadarmo
ExecSQL
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 30.6.1998 13:54:08
Nejprve se omlouvam, ze mam zase asi jeden pro mne nevysvestlitelny problem. Soucasne dekuji
za odpoved na vcerejsi dotaz. Opravdu mi to pomohlo. A nyni k veci. Mam kus kodu:
QExecSQL.SQL.Text := 'select Count(*) from t016 where IC_001 = :parIC_001 '
+ 'and Atribut = ''Filtr'' and Objekt = :parObjekt';
QExecSQL.Prepare;
QExecSQL.ParamByName('parIC_001').AsInteger := parIC;
QExecSQL.ParamByName('parObjekt').AsString := Trim(parObjekt);
QExecSQL.Open;
Po prikazu Open obdrzim hlaseni "General SQL error. arithmetic exception, numeric overflow,
or string truncation.". Nejpodivuhodnejsi ovsem je, ze kdyz vynecham sekci and Objekt = :parObjekt
tak to jede. Rovnez kdyz tuto sekci nahradim sekci and Objekt = ''d0207.Q024'' tedy
(QExecSQL.SQL.Text := 'select Count(*) from t016 where IC_001 = :parIC_001 '
+ 'and Atribut = ''Filtr'' and Objekt = ''d0207.Q024''';) tak program funguje. Kontroloval
jsem obsah parObjekt i QExecSQL.ParamByName('parObjekt').AsString pred provedenim
prikazu Open a opravdu tam byla hodnota d0207.Q024. Takze opravdu nevim. Vi snad nekdo?
Diky.
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
fax number : +420-(0)508-330302
Memory Manager
[*] roman.palarcik(zv)spt(tec)cz - 30.6.1998 14:05:52
Ahoj vespolek,
nevite negdo o nejakem (inteligentnim :-) ) sledovaci celkove pameti pro
W95/98 ???
Mam na mysli neco takoveho, jako je v NT4 ze to zobrazuje pamet
alokovanou jednotlivymi applikacemi, popripade procesy. Popripade, jak
takovou vec napsat v D3.
Diky, Diky, Diky, ...
PS1: To FTP je sqelej pocin.
PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
se zelenaji ..., nevite negdo jak se
_VYHNOUT__VOJNE_ ?!?!?
Konci mi odklad, a nechci se zabit, nebo si uriznout
nohu/ruku/hlavu/atd...
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
----------------------------------------------------
Neco takoveho dela program WinTop. Je to myslim primo od MS jako
soucast nejakych utilit. Muzu poslat.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz