Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zistenie prihlaseneho uzivatela
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 13.3.2001 04:28:05
function FUserName: string;
const
MAX_USERNAME_LENGTH = 255;
var
C : array[0..MAX_USERNAME_LENGTH] of char;
L : DWORD;
begin
L := MAX_USERNAME_LENGTH;
if GetUserName(C, L) then
RESULT := C
else
RESULT := '????';
end;
----- Original Message -----
From: "�u#ka R�bert" <spravca(zv)lumen.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 12, 2001 4:33 PM
Subject: Zistenie prihlaseneho uzivatela
> Zdravim konf.
>
> potrebujem vediet nejake funkcie pomocou ktorych zistim ktory uzivatel je
> prihlaseny v systeme. Potrebujem zistit aj anonymneho uzivatela ked sa
> mackne ESC. Totiz robim program ktory sa podla prihlaseneho uzivatela bude
> rozne spravat. A ked sa masina prihlasi ako anonymouse cez ESC tak
> potrebujem zablokovat pristup. Pouzivam W95/98 ako klientov siete NT
>
> Dakujem
>
> S pozdravom,
>
> --------------------------------------------------------
> Robert Suska, spravca siete, amatersky programator
> Radio Lumen, Banska Bystrica
> Slovenska republika
> www.lumen.sk
> spravca(zv)lumen.sk
> ICQ Id: 82600022
> mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
> 088/41 25 739 kl.14
> --------------------------------------------------------
>KILIX - za kolik?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.3.2001 07:45:39
> 1) Jaka je to verze Kilix Open Ed.?
pouze pro psani open softu, odpovida to desktop edici. akorat nema
nejaky srandicky jako kompletaci kodu, hinty s obsahem promenne v
debugeru a pod.
> 2) Kolik stoji, co umi a kde ji sehnat?
je zadara a sehnat nelze, dokud ji Borland neuvolni, co imho neudela,
dokud neproda dostatek desktop a server edici.
> 3) Jakou verzi Linuxu podporuje?
oficialne mandrake, redhat a suse, pracuje se vsak na dalsich a melo by
to jit nainstalovat rucne kamkoliv (jsou potreba upgradovat nejake
libraries).
> 4) Vi nekdo neco blizsiho?
blize asi p.Cisar
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/kontrola pravopisu
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 13.3.2001 08:10:19
Ahoj,
co vim tak vyvojem jazykoveho softu se zabyva firma Lingea z Brna (viz
http:\\www.lingea(tec)cz). Kdysi jsem s nima jednal o dodavce knihoven jako
jazykoveho jadra pro fulltextove vyhledavani. Maji v knihovne fukce, ktere
umi vratit ze zadaneho slova vsechny jeho tvary a naopak vratit zakladni
tvar slova.
Je to sice dva roky, ale jejich produkty se dale prodavaji, tak ze by meli
"zit".
Ing. Igor Vodicka
informacn� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrabuvka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jir� Foldyna
> Sent: Monday, March 12, 2001 11:33 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: kontrola pravopisu
>
>
> Ahoj,
>
> za parsovani v souvislosti se spellcheckerem samozrejme
> nepovazuji pouhou
> tokenizaci textu, to fakt neni problem :-), ale kontrolu textu podle
> lexikalnich pravodel jazyka (ne tedy mechanicke srovnani se
> slovnikem - to
> by musel byt ten slovnik ku..vsky dlouhy). Spellcheckery
> pokud mam hodne
> chabou povedomost o jejich funkci to delaji tak, ze rozparou
> text na slova
> podle nejakych pravidel a pak jednotliva slova zkusi
> napasovat na na neco,
> co maji v zabudovanem slovniku (matne si vzpominam na veci
> jako je slovni
> zaklad, pripona, predpona, tvaroslovi a tak podobne z davnych
> dob skolni
> dochazky). Pokud timto mlynkem slovo neprojde, zkontroluje se jeste
> CUSTOM.DIC, jestli tam nahodou neni (ale pozor, tam se
> kontroluje presna
> shoda, takze by tam musi byt kazdy tvar - viz. checkovani
> jmen treba ve
> Wordu), no a kdyz ho ani tam nenajde, tak by to mel oznamit spolu s
> pripadnymi doporucenimi ohledne oprav. Takhle nejak funguje
> implementace
> spellcheckeru spellers z TORRY - tam se prave pouziva
> spellchecker z M$
> Wordu pres CSAPI. No a jabych potreboval prave ten checkovaci engine s
> implementaci pravidel ceskeho pravopisu a slovnikem.
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
>
> > -----P�vodn� zpr�va-----
> > Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> > Pavol Kakacka
> > Odesl�no: 12. b�ezna 2001 11:05
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: kontrola pravopisu
> >
> >
> > Coz to, parser na text neni problem, ale nejde hlavne o to
> co sa s tym
> > vyslednym "Tokenom" (slovom) z parseru ma robit?
> > Respektivne, co povazujes za vysledok parsrovania?
> >
> > Pavol Kakacka
> > kasix(zv)atlas(tec)cz
> >
> > ----- Original Message -----
> > From: "Jir� Foldyna" <jiri.f(zv)avizo(tec)cz>
> >
> > tohle umim, ale potreboval bych neco, co neni vazano na M$. Ani ne
> > komponentu, spis neco, co proparsuje zadany text s tim, ze vysledky
> > parsovani si osetrim sam.
> >
> >
> >
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001
InnoSetup+ScriptMaker
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.3.2001 08:27:21
Dival jsem se na IS Tools a vypada rozhodne lepe a prehledneji nez
ScriptMaker.
"Fait Ji��, ml." wrote:
>
> No nejake update tam je, ale osobne doporucuji prejit na ISTools.
> Puvodne jsem take pouzival ScriptMaker ale ten opravdu na delsi dobu
> 'zatuhl'. ISTools maji podle mne sirsi podporu.
>
> Ale je to jen muj nazor, nikomu jej nevnucuji.
>
> -----Original Message-----
> From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
> Sent: Monday, March 12, 2001 10:03 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: InnoSetup+ScriptMaker
>
> ahoj,
> a existuje uz ScriptMaker pro verzi InnoSetup 2.0???
>
> S pozdravem Milan Cizek, D5 Ent
>
> > Tohle vsechno umi nova verze 2.0, zatim jsem to nezkousel. Jinak jiz
> > drive zminovane Inno Setup Extensions. Lokalizace do cestiny najdes na
> > Inno Setup a Inno Setup Ext.
> _____________________________________________________________________
> WWW stranky zdarma na http://www.sweb(tec)cz
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
WinMe a volna pamet 640K
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.3.2001 08:30:00
Samozrejme, ze je mam legalne. Ovsem mam OEM, a tam se muzu obratit tak
sam na sebe. A krome toho, pokud jsi nekdy komunikoval s hot-line M$, uz
jsi mohl zjistit, ze to rozhodne neni misto, kde se cokoliv dozvis.
"ing. Jan Fiala" wrote:
>
> Ale ony WinME ten DOS maji, akorat se ho snazi co nejvice maskovat,
> aby MS uzivatele donutil ty dosovske programy opustit :-)
> Verim tomu, ze to nastavit pujde, pouze se bude muset jit do
> System.INI, podobne jako u max. poctu otevrenych souboru. Pokud je mas
> koupene legalne, od ceho je hotline MS ? :-)
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 12.03.2001 Martin Bobak:
> > s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z 9x.
> > Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Karel Kral
> > Sent: Monday, March 12, 2001 11:58 AM
> > To: Konference Delphi
> > Subject: OT: WinMe a volna pamet 640K
>
> > Dobry den,
> > potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> > nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> > vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> > neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> > kB.
>
> > Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> > Prosim i o odpoved, ze to zarucene nejde a proc.
> > --
> > ______________________________________________________
> > Karel Kral, informatik
> > Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> > Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> > E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> > ______________________________________________________
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
InnoSetup2 & ISTool
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 13.3.2001 09:05:12
ahoj,
tak jsem nainstaloval Inno2.0.4, dokonce se mi podarilo ho i pocestit. Nicmene porad nemuzu zjistit, jak udelat, aby mi program pred zacatkem vlastni instalace schodil jiz bezici program (aby se prepsal). Taky mam problem s ikonou - nedari se mi dostat tam takovy to okno po instalaci: pridat na plochu, do quickbaru, do start menu.
Da se v registrech nastavit, aby se pri instalaci klic nevytvarel, ale kompletne se odebral pri odinstalaci?
Diky za jakoukoli radu...
S pozdravem Milan Cizek, amatersky samouk, D5 Ent
_____________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
Administrace IB6
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 13.3.2001 09:05:53
Nazdar
Neznate nekdo nahodou nastroj pro export a import dat z databaze IB6?
Predstavuji si asi takhle. Mam treba tabulku CHYBY no a chci ulozit
vsechna data z teto tabulky ve forme sql.
Takze vystup by mel vypadat takhle
INSERT INTO CHYBY VALUES(1,.....)
INSERT INTO CHYBY VALUES(2,.....)
.....
....
...
atd. pro kazdy zaznam v tabulce CHYBY.
S pozdravem
Dusan Fojtik
Refresh DBASE na sieti
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 13.3.2001 09:06:48
Moj problem ktory ma vedie k zufalstvu:
DBase - sietova aplikacia - Delphi 5
Jeden klient zapise do DBF tabulky nieco.
U druheho klienta otvaram znovu Query ale zaznam tam nie je.
Ale je zaujimave ze ak u druheho klienta restartujem aplikaciu, tak uz tam
je ten zaznam.
Preco , Preco?????
Sposob ulozenia zaznamu:
Queryx.Insert;
Queryx.FieldByName('XY').asString=Hodnota;
SQLUpdate1.Apply(ukInsert);
Queryx.Pos;
Queryx.FlushBuffers; // ( vyprazdnenie bufferu)
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli
NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )
> -----P�vodn� zpr�va-----
> Od: Petr [SMTP:DelphiForum(zv)seznam(tec)cz]
> Odesl�no: 8. marec 2001 6:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: simulace stisku klavesy
>
> Vsechny virtualni kody najdes v souboru Windows.pas v adresari
> Source\Rtl\Win tam, kde mas Delphi.
>
> Petr Jur�k, Spr�vce s�t�, program�tor
> COMET System s.r.o.
> 1.M�je 1220
> 756 61 Ro�nov pod Radho#t�m
> tel. 0651/653990
> fax. 0651/653993
> www.cometsystem(tec)cz
>
>
> ----- Original Message -----
> From: SlavekB <VlcekB(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, March 06, 2001 7:36 PM
> Subject: Re: simulace stisku klavesy
>
>
> > s tim stiknutim tlacitek jsem mel taky takovej problem., mohl bych se
> dostat
> > nejak k tem virtualnim kodu klaves please?
> > dost by se mi to hodilo
> > Slavek
> >
> >
> > ----- Original Message -----
> > From: <tomsir1.edu(zv)mail.cez(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Tuesday, March 06, 2001 12:26 AM
> > Subject: Re: simulace stisku klavesy
> >
> >
> > >
> > > Tak to zkus takhle treba pro pismeno "A" :
> > >
> > > PostMessage(Handle,WM_KEYDOWN,VK_A,0).
> > >
> > > pokud to projde, muzu ti poslat xls soubor se seznamem vsech
> virtualnich
> > > kodu klaves.
> > >
> > >
> > > Radegast
> > >
> > >
> > >
> > >
> > >
> > > <giorgione(zv)email(tec)cz>(zv)fwd(tec)cz on 05.03.2001 23:25:17
> > >
> > > Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
> > >
> > > Odesl�no k�m: owner-delphi-l(zv)fwd(tec)cz
> > >
> > >
> > > Komu: <delphi-l(zv)fwd(tec)cz>
> > > Kopie:
> > > P�edm�t: simulace stisku klavesy
> > >
> > >
> > > Zdravicko!
> > >
> > > Mam handle nejakeho okna. Timto zpusobem jsem schopen provest simulaci
> > > stisku
> > > klavesy Enter pro toto okno:
> PostMessage(Handle,WM_KEYDOWN,VK_return,0).
> > > Podobne napr. pro klavesu ESC:
> > PostMessage(Handle,WM_KEYDOWN,VK_cancel,0).
> > > Jakmile se ale pokusim poslat obycejnou klavesu (napr. A), nic se
> nestane.
> > > Tento kod nic viditelneho neprovede: PostMessage(Handle,WM_KEYDOWN,ord
> > > ('A'),0)
> > >
> > > V cem je problem?
> > > Predem diky za nakopnuti :-)
> > >
> > > EMAIL.CZ - Vase posta je vzdy s Vami na
> > > http://www.email(tec)cz
> > >
> > >
> > >
> > >
> > >
> >
> >
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> COMET System Network Administrator.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
CoUninitialize a EAccessViolation
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 09:07:04
> Dobry den vsem,
>
> mam takovy problem s CoUninitialize. V konzolovych aplikacich
> se mi vytrvale vyhazuje vyjimka po zavolani
> CoUninitialize. Vyjimka ma bazovou adresu 0x004..., takze
> se vyhodi az v kodu RTL, ale dojde k ni jenom v pripade,
> ze volam CoUninitialize.
>
> Mam D5Pro a W2K Pro SP1, ale delaji mi to i
> Delphi 4 Standard na W98. Vzhledem k tomu,
> ze Delphi pracuji s interfacema trochu skryte,
> tak se v tom moc nevyznam.
>
Mel jsem podobne problemy. Projevovaly se tim, ze debugger se zdanlive
zblaznil pri pokusu o krokovani ukonceni programu. Dochazelo tusim k
exceptions v nebo okolo CoUninitialize a taky k problemum s deinicializaci
DLLka (debugger kricel "Too many exceptions"). Vyresilo se to az spravnym
serazenim prirazeni NILu promennym instanci interfacu pred volanim
CoUninitialize.
Musim ale podotknout, ze vetsina problemu byla dusledkem toho, ze muj kod
volajici COMy byl umisten v DLLku - na coz zda se Borlandi ponekud
pozapomneli. Obyc Aplikace - jakmile prilinkuje ComObj.dcu automaticky vola
CoInitialize/CoUnInitialize...
D. Toman
RAS server
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 09:09:41
> Ahoj,
> nevite prosim nekdo o komponente/unite, ktera umi connect na RAS spojeni ?
Mam jednu (MagRAS), ktera ovsem pracuje prilis slozitym zpusobem a navic mam
podezreni, ze ma chybu, ktera pri pouzivani bere pamet v IDE Delphi tak
dlouho, az dojde ke zhrouceni PC (pri 200-300 MB vyuziti pameti).
> Rekapitulace stavajiciho stavu :
> - pred connectem navolim jmeno, heslo, telefon, atd.
> - komponenta ma event StateChanged - ten musim pretypovat a nacist handle
a SubEntitu spojeni do lokalnich promennych, eventuelne resit veskere kolize
> -pak provest connect s volanim handle
> -disconnect volat take s handlem
>
> Chteny stav:
> - pouze provadet connect a disconnect urciteho jmena RAS, o nastaveni, a
stavy se nestarat
>
nejlepsi je podivat se na http://msdn.microsoft.com na popis RasDial,
RasEnumConnections, RasEnumEntries a napsat si prislusny kod sam. Neni to
tak slozite...
D. Toman
QRep & QRCompositeReport
[*] Lauko #tefan <laukosw(zv)naex.sk> - 13.3.2001 09:21:32
Ahoj,
mam problem s QRCompositeReport. Mam dva QuickRep ktore som spojil do
QRCompositeReport. Ked zavolam QRCompositeReport1.PreView je vsetko v
poriadku ale ked kliknem na "Print" v tom momente hlasi Acess violation.
Tlaciaren je nainstalovana spravne, ostatne - QuickRep1.PreView - "Print"
funguju.
Co mam zle nastavene? (v podstate som nic nenastavoval vsetko je "Default")
<D5, QR 3.0.7, W2000>
Dakujem...
Lauko
OT: Ochrana freeware proti piratstvi?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.3.2001 09:58:15
Preji vsem pekneho dne,
obracim se na vas jako na programatory, kteri obcas nejaky
freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
)mail, ze program pouzivate. Bohuzel maily chodi maximalne v
pripade, ze ma uzivatel problem nebo by rad neco noveho.
Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
vubec freeware nebo to je neco jineho?
Prosim odpovedi na mou soukromou adresu.
Diky
Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Ochrana freeware proti piratstvi?
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.3.2001 10:32:40
Ahoj,
rekl bych, ze to je zcela na vuli autora programu. Pokud bude nekdo chtit
program pouzit, musi vuli autora respektovat. Freeware je jen skatulka, neni
to zadna licence jako treba GPL (aspon myslim). Mne osobne by to vubec
nevadilo.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Slavek Rydval
> Odesl�no: 13. b�ezna 2001 9:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OT: Ochrana freeware proti piratstvi?
>
> Preji vsem pekneho dne,
>
> obracim se na vas jako na programatory, kteri obcas nejaky
> freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
> Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> vubec freeware nebo to je neco jineho?
>
> Prosim odpovedi na mou soukromou adresu.
>
> Diky
>
> Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
>
Dokovani oken
[*] Listuj <listuj(zv)centrum(tec)cz> - 13.3.2001 10:37:11
Zdravim vsechny,
chtel bych se vas zeptat jak v aplikaci vytvorit dokovatelna
okna. To ze to D5 prof. umi vim, dokonce jsem se koukal i do
Developers Quide, ale je toho tam moc malo napsanyho.
Rad bych vytvoril neco, co vypada jako "upravna maker" ve Wordu
nebo Excelu. Tj. Po obvodu dat dokovatelna okna s ruznymi
informacemi a pres hlavni cast MDI okna natahnout formular.
Nemate nekdo nejakou ukazku jak se takove prostredi s dokovanim
tvori? Byl bych vam moc vdecny
Dekuji predem a preji prijemny den.*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Ochrana freeware proti piratstvi?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 10:53:25
> Preji vsem pekneho dne,
>
> obracim se na vas jako na programatory, kteri obcas nejaky
> freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
> Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> vubec freeware nebo to je neco jineho?
>
podle me zalezi velmi na tom o jaky typ programu se vlastne jedna a jaky je
o nej mezi lidmi zajem.
registracni klic muze zvysit pocet registrovanych uzivatelu, ale snizit
celkovy pocet uzivatelu programu (radeji pouzijou ekvivalentni program,
ktery registraci nevyzaduje). Je-li ten Tvuj prrogram rozsireny a lidi maji
zajem, pak se stejne _brzy_ objevi nekde na astalaviste a spol "verejny"
registracni klic nebio generator klicu nebo crack.
Urcitym resenim muze byt pozadavek vyplneni nejakeho formulare pred
downloadem programu. Ale tim se odriznes od moznosti vystavit program na
ruznych shareware archivech...
D. Toman
Databaze -> TQuery vs. TTable
[*] Ji�� Kr�l jr. - 13.3.2001 10:55:30
kazdy sam sveho stesti strojvudcem :-)
ja jsem presel presne timto stadiem. No vsak uvidis sam.
V soucasne dobe mam ve sve aplikaci dbaware !pouze! na prohlizeni zaznamu.
Veskere update/insert/delete je spachano pomoci TADOStoredProc.
co se tyka TQuery:
- musi mit live=true ale pak nastane problem s lookupfieldy / podciselniky
apod.
- muzes pouzit nomalni editaci v gridu
- doporucuji pouzit transakce
pokud chces do TQuery dat jen SQL statement ktery nevraci kurzor, pak musis
dat namisto query.open query.execSQL,
napr. pro
INSERT INTO cosik (aa,bb,cc) VALUES ('sdasd',123,212)
do values samozrejme muzou prijit parametry (:a1, :a2, :a3)
re: aktualizace
to je trosku problem, resis vlastne vyvazeni mezi zatezi serveru a
cerstvosti dat
zaklad je dobra definice referencni integrity v aplikaci
ten pripad, kdy nekdo ti smaze pol. v ciselniku a ty ji chces zrovna ulozit,
to proste musis zkusit ulozit a odchytit a osetrit pripadnou chybu
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Hazuka Filip
>>Sent: Monday, March 12, 2001 10:44 PM
>>To: 'delphi-l(zv)fwd(tec)cz'
>>Subject: Databaze -> TQuery vs. TTable
>>
>>
>>Ahoj vsem kdo mi radili. Nejprve bych vam chtel moc podekovat.
>>
>>Reknu vam, moc jasno jste mi v tom neudelali. Trochu jste mi z
>>toho zamotali
>>hlavu. Jeden rika pouzij Query, jiny zase OleDB atd..
>>Rekneme, ze jsem videl aplikaci, ktera behala velmi dobre vuci SQL severu
>>7.0 a problemy s tim nebyli.
>>Zustanu tedy u teto verze. Zkusim zatim prejit na TQuery.
>>
>>Nemate nekdo nejaky kod, jakym zpusobem plnite databazi pres
>>Query ? Zajimal
>>by me insert, update a delete. Dale nevim, jak dosahnout toho, abych
>>zajistil neustalou aktualizaci. Napriklad kdyz nacitam pres Query do
>>ComboBoxu polozky z ciselniku, pak mi treba neni jasne jak zajistim, aby
>>kdyz mi nekdo ve chvili, kdy chci z comba prirazovat ten zaznam v
>>ciselniku
>>smaze, aby se mi to do neho promitlo a zaznam neukazoval na neexistujici
>>polozku. Tyto problemy s aktualizaci a dalsi mi nejsou vubec
>>jasne. U TTablu
>>to mam docela zmaknuty, tam je pomerne rozsahla moznost Refreshe.
>>
>>Reknu vam jen takovou vec. Duvod, proc chci prejit od TTable k
>>TQuery je jen
>>jediny a to je rychlost. Ja osobne zas tolik problemu s TTable
>>nemam, az na
>>par, ktere meli reseni.
>>
>>Poslete mi nekdo prosim nejaky kod s Query ?
>>Diky moc za kazdou pomoc. Potreboval bych malicko popostrcit, abych s ni
>>mohl zacit delat.
>>
>>Ahoj Filip.
>>
OT: Ochrana freeware proti piratstvi?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 11:06:46
Naprosto s tim souhlasim a myslim si, ze dnes pri rozsirenosti
internetu je to pomerne rozumna "obrana". Jsem rad kdyz lide muj program
pouzivaji a jsem jeste radsi, kdyz o tech lidech vim. Z vlastni zkusenosti
vim, ze tak 90% lidi program pouziva a ozve se az kdyz neco potrebuje.
Osobne toto reseni budu take zavadet.
>Preji vsem pekneho dne,
>
>obracim se na vas jako na programatory, kteri obcas nejaky
>freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
>ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
>)mail, ze program pouzivate. Bohuzel maily chodi maximalne v
>pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
>Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
>registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
>vubec freeware nebo to je neco jineho?
>
>Prosim odpovedi na mou soukromou adresu.
>
>Diky
>
>Slavek
>
>
>Setrete vodou. Sprchujte se s pritelem/pritelkyni.
>-------------------------------------------------
>http://atrey.karlin.mff.cuni(tec)cz/~rk
>http://swnet(tec)cz
>-------------------------------------------------
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
InnoSetup2 & ISTool
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 11:11:33
>ahoj,
>tak jsem nainstaloval Inno2.0.4, dokonce se mi podarilo ho i pocestit.
>Nicmene porad nemuzu zjistit, jak udelat, aby mi program pred zacatkem
>vlastni instalace schodil jiz bezici program (aby se prepsal). Taky mam
>problem s ikonou - nedari se mi dostat tam takovy to okno po instalaci:
>pridat na plochu, do quickbaru, do start menu.[Icons]
Name: "{userdesktop}\Effata"; Filename: "{app}\effata.exe"; Components:
effata; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Effata";
Filename: "{app}\effata.exe"; Components: effata; Tasks: quicklaunchicon
[Tasks]
Name: desktopicon; Description: "Create a &desktop icon"; GroupDescription:
"Additional icons:"; Components: effata
Name: quicklaunchicon; Description: "Create a &Quick Launch icon";
GroupDescription: "Additional icons:"; Components: effata; Flags: unchecked
[registry]
Root: HKCU; Subkey: "SOFTWARE\effata"; Flags: uninsdeletekey
***to ho sice vytvori, ale zase ho cely smaze vcetne pridanych podklicu pri
odinstalaci. Snad je to vsechno so jsi potreboval.>Da se v registrech nastavit, aby se pri instalaci klic nevytvarel, ale
>kompletne se odebral pri odinstalaci?
>
>Diky za jakoukoli radu...
>
>S pozdravem Milan Cizek, amatersky samouk, D5 Ent
>_____________________________________________________________________
>Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
WinMe a volna pamet 640K
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 11:14:56
No, predem uprimnou soustrast :)
Jinak WinME jsou tak deb...i, ze i kdyz souboru autoexec.bat a config.sys
vytvoris, oni je pri bootu iniciativne smazou. Pokud vim, tak alespon do
Win98 byl potreba soubor dos_start.bat a k nemu prislusny .pif soubor a tam
se dali nastavit vlastnosti dosoveho "bootu".
>Samozrejme, ze je mam legalne. Ovsem mam OEM, a tam se muzu obratit tak
>sam na sebe. A krome toho, pokud jsi nekdy komunikoval s hot-line M$, uz
>jsi mohl zjistit, ze to rozhodne neni misto, kde se cokoliv dozvis.
>
>"ing. Jan Fiala" wrote:
> >
> > Ale ony WinME ten DOS maji, akorat se ho snazi co nejvice maskovat,
> > aby MS uzivatele donutil ty dosovske programy opustit :-)
> > Verim tomu, ze to nastavit pujde, pouze se bude muset jit do
> > System.INI, podobne jako u max. poctu otevrenych souboru. Pokud je mas
> > koupene legalne, od ceho je hotline MS ? :-)
> >
> > ------
> > ing. Jan Fiala
> > mailto:jan.fiala(zv)iol(tec)cz
> >
> > 12.03.2001 Martin Bobak:
> > > s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname
> z 9x.
> > > Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
> >
> > > -----Original Message-----
> > > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > > Karel Kral
> > > Sent: Monday, March 12, 2001 11:58 AM
> > > To: Konference Delphi
> > > Subject: OT: WinMe a volna pamet 640K
> >
> > > Dobry den,
> > > potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> > > nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> > > vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> > > neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> > > kB.
> >
> > > Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> > > Prosim i o odpoved, ze to zarucene nejde a proc.
> > > --
> > > ______________________________________________________
> > > Karel Kral, informatik
> > > Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> > > Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> > > E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> > > ______________________________________________________
>
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Databaze -> TQuery vs. TTable
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 13.3.2001 11:26:48
On 12 Mar 2001, at 22:43, Hazuka Filip wrote:
> Nemate nekdo nejaky kod, jakym zpusobem plnite databazi pres Query ?
> Zajimal by me insert, update a delete. Dale nevim, jak dosahnout toho,
> abych zajistil neustalou aktualizaci. Napriklad kdyz nacitam pres
> Query do ComboBoxu polozky z ciselniku, pak mi treba neni jasne jak
> zajistim, aby kdyz mi nekdo ve chvili, kdy chci z comba prirazovat ten
> zaznam v ciselniku smaze, aby se mi to do neho promitlo a zaznam
> neukazoval na neexistujici polozku.
Nejlepe pres ulozene procedury. V procedure naplnis parametry,
ktere hodnoty chces do databaze poslat. Procedura pak
zkontroluje, zda zaznam v ciselniku existuje. Pokud ne, vrati chybu
a ty ji pak muzes osetrit, treba chybovou hlaskou a refreshem
ciselniku. Je to sice trochu vic programovani, ale zase je to
spolehlivy a bezpecny postup.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TGroupControl
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 13.3.2001 11:26:48
On 12 Mar 2001, at 23:57, Jan Skopov� wrote:
> Mam nasledujici problem. Omlouvam se pokud to bude obsahlejsi.
>
> (Pisi o design modu)
>
> Vytvarim si v podstate jednoduchou nevisualni komponentu, ktera
> obsahuje seznam vybranych trid (komponent odvozenych pres TControl).
> Neni problem zobrazit seznam dostupnych trid na formulari a potrebny
> seznam si vytvorit. Neni problem udrzovat seznam, pokud nejakou tridu
> (komponentu) zrusim. Az potud je to snadne.
>
> Co ale nevim je, jak mam poznat, ze jsem nejakou tridu (komponentu)
> prejmenoval. Pokud tridu (komponentu) prejmenuji a pote si vlezu do
> editace meho seznamu trid, vse se mi opravi protoze si pamatuji
> pointer na zvolene tridy.
Nerozummim. Prejmenovavas TControl.Name, nebo treba TEdit na
TNovyEdit???
> Pokud ale zapomenu vlezt do tohoto seznamu, tak se mi jmena neopravi a
> ... a tim jsem v coudu, protoze pointer v design a runtime je
> pochopitelne jiny. Takze v runtime musim dohledat pointery na tridy
> (komponenty) podle jejich jmena.
>
> Lze si v design modu vytvorit vnitrni timer, ktery mi bude seznam
> neustale kontrolovat a opravovat jej podle potreby. To funguje, ...,
> ale je to prasarna.
A coz takhle na zmenu jmena povesit udalost, ktera automaticky
projde vsechny seznamy a provede nutne upravy?
Ale obecne poradit neumim, protoze nevim, co vlastne chces delat.
Takhle si vybavuji nekolik variant, ale kazda se resi uplne jinak.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ochrana freeware proti piratstvi?
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 13.3.2001 11:32:38
Pripada mi to naprosto fer, ze za poskytnuty program, na kterem se stravi
mnoho casu, chci vedet, kdo ho pouziva. Nase firma pouziva stejny princip
pro poskytovani free verze ucetnictvi.
Ing. Petr Klinger
www.sitkhaso(tec)cz
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 9:58 AM
Subject: OT: Ochrana freeware proti piratstvi?> Preji vsem pekneho dne,
>
> obracim se na vas jako na programatory, kteri obcas nejaky
> freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
> Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> vubec freeware nebo to je neco jineho?
>
> Prosim odpovedi na mou soukromou adresu.
>
> Diky
>
> Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
Administrace IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 13.3.2001 11:47:34
Ahoj,
napr. IBExpert - neni zdarma, ale urcite se vyplati.
http://www.ibexpert.com
Tom
Dusan Fojtik wrote:
>
> Nazdar
> Neznate nekdo nahodou nastroj pro export a import dat z databaze IB6?
> Predstavuji si asi takhle. Mam treba tabulku CHYBY no a chci ulozit
> vsechna data z teto tabulky ve forme sql.
> Takze vystup by mel vypadat takhle
> INSERT INTO CHYBY VALUES(1,.....)
> INSERT INTO CHYBY VALUES(2,.....)
> .....
> ....
> ...
> atd. pro kazdy zaznam v tabulce CHYBY.
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Ochrana freeware proti piratstvi?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 13.3.2001 11:58:15
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Preji vsem pekneho dne,
>
> obracim se na vas jako na programatory, kteri obcas nejaky
> freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> pripade, ze ma uzivatel problem nebo by rad neco noveho.
>
> Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> vubec freeware nebo to je neco jineho?
Ahoj.
Jiste by mi to nevadilo. Jako autor si muzes do podminek dat temer cokoliv.
Mozna by to byla i jedna z cest jak eliminovat hrozbu vyberu desatku
potencialnim
kolektivnim spravcem typu OSA. Tim pridelenim cisla by si naprosto
jednoznacne
udelil kazdemu konkretnimu uzivateli pravo SW pouzivat.
Zkus se s timhle obratit na www.zastudena(tec)cz. Tam by Ti mohli poradit
pravnici.
Ludek
OT: Ochrana freeware proti piratstvi?
[*] Milan Dvorak <Dvorak.Ucitel.GYMNAZIUM(zv)mamut.gymzn(tec)cz> - 13.3.2001 12:02:59
Ahoj,
nevim jestli uz takovy pojem neexistuje, ale neni to treba emailware.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
freeware
[*] brant(zv)dcomm(tec)cz - 13.3.2001 12:20:03
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
ne ze bych byl nejaky pravnik, ale domnivam se, ze freewaru nijak nevadi,
kdyby chtel registracni cislo byt ziskane zdarma (freeware znamena, ze prava
k uziti programu davas gratis, ale ne ze se vzdavas autorskeho prava k
programu). Ale je dobre uvazovat tak, ze by to ten program mel chtit treba
az po nejake dobe, ne pri prvnim spusteni, jinak to uzivatele znechuti a
program si ani nevyzkousi.
Zdravim
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7 OT: Ochrana freeware proti piratstvi?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 12:25:55
> Naprosto s tim souhlasim a myslim si, ze dnes pri rozsirenosti
> internetu je to pomerne rozumna "obrana". Jsem rad kdyz lide muj program
> pouzivaji a jsem jeste radsi, kdyz o tech lidech vim. Z vlastni zkusenosti
> vim, ze tak 90% lidi program pouziva a ozve se az kdyz neco potrebuje.
> Osobne toto reseni budu take zavadet.
Proc?
Existuje nejaky jiny duvod nez ten ze budes znat pocet uzivatelu ( o zajmu o
program muze snadneji vypovidat pocet downloadu, navstevnost WWW, atd)?
Stejne je to nepresne (pocet bude vyjadrovat jen to , ze nekdy nekdo ten
program pouzival - ted uz ho pouzivat nemusi).
D. Toman
Freeware
[*] Ond�ej Frant�k <frantik(zv)atlascon(tec)cz> - 13.3.2001 12:30:31
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
>Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
>registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
>vubec freeware nebo to je neco jineho?
Co takhle nova kategorie: mailware :-)
Ondra
OT: Ochrana freeware proti piratstvi?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 12:48:21
No, duvodu je hned nekolik - napriklad dobry napad viz predchozi mail na
toto tema od p.Zity - OSA a seriove cislo. Dalsi duvod je ten, ze
registrace, ktera zabere kolem jedne mituny a 0,-Kc (ci $) mi muze
napovedet kdo muj program pouziva (OS, Zeme, Profese). Dalsi a tou
neposledni je i snadny pristup (pokud zakaznik chce) k novyp updatum -
pokud chce a zaskrtne si to, zaradim ho do databaze a pak ho muzu
informovat o novinkach.
Samozrejmne, ze podobne je postcardware a tim zase vim odkud kdo je - je to
zajimava alternativa hlavne pro sberatele poohledu a znamek :)
Hlavne uzivatel programu tak vyjadruje solidaritu s autorem a alespon nejak
si "ceni" toho ze muze pouzivat tento program free.
>Proc?
>Existuje nejaky jiny duvod nez ten ze budes znat pocet uzivatelu ( o zajmu o
>program muze snadneji vypovidat pocet downloadu, navstevnost WWW, atd)?
>Stejne je to nepresne (pocet bude vyjadrovat jen to , ze nekdy nekdo ten
>program pouzival - ted uz ho pouzivat nemusi).
>
>D. Toman
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
TreeView a posun ScrollBaru pri otevreni formu
[*] Ren� Otisk - 13.3.2001 13:08:52
Hi,
D5
Mam TTreeVeiw a pri otevreni okna jsou Node posunuty tak, ze neni videt
ikony a horizont. scrollbar je posunuty. Japa to udelat, aby horizontalni
ScrollBar zustal vlevo. TreeView.ScrollBy(x, y) mi to nebere. Nevite nekdo
co s tim?
Sroub
TreeView a posun ScrollBaru pri otevreni formu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.3.2001 13:20:51
Ahoj,
nevim jestli myslime oba to same, ale ja vetsinou povesim do OnChange volani
metody Node.MakeVisible. To posibuje TreeView tak, ze je vybrany node videt
cely.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Ren� Otisk
> Odesl�no: 13. b�ezna 2001 13:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TreeView a posun ScrollBaru pri otevreni formu
>
>
> Hi,
>
> D5
>
> Mam TTreeVeiw a pri otevreni okna jsou Node posunuty tak, ze
> neni videt
> ikony a horizont. scrollbar je posunuty. Japa to udelat, aby
> horizontalni
> ScrollBar zustal vlevo. TreeView.ScrollBy(x, y) mi to nebere.
> Nevite nekdo
> co s tim?
>
> Sroub
>
>
Databaze -> TQuery vs. TTable
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 13.3.2001 13:24:04
Jen tak problem trochu mimo.
Jak zjistim pocet zmenenych zaznamu?
pr: Update nejaka_tabulka Set Jmeno = 'Franta' where Jmeno = 'Tonda'
A nyni potrebuji vypsat, kolik vlastne bylo zmeneno zaznamu?
Diky
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
From: Ji�� Kr�l jr. [mailto:admin(zv)printo(tec)cz]
Sent: Tuesday, March 13, 2001 10:56 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Databaze -> TQuery vs. TTable
kazdy sam sveho stesti strojvudcem :-)
ja jsem presel presne timto stadiem. No vsak uvidis sam.
V soucasne dobe mam ve sve aplikaci dbaware !pouze! na prohlizeni zaznamu.
Veskere update/insert/delete je spachano pomoci TADOStoredProc.
co se tyka TQuery:
- musi mit live=true ale pak nastane problem s lookupfieldy / podciselniky
apod.
- muzes pouzit nomalni editaci v gridu
- doporucuji pouzit transakce
pokud chces do TQuery dat jen SQL statement ktery nevraci kurzor, pak musis
dat namisto query.open query.execSQL,
napr. pro
INSERT INTO cosik (aa,bb,cc) VALUES ('sdasd',123,212)
do values samozrejme muzou prijit parametry (:a1, :a2, :a3)
re: aktualizace
to je trosku problem, resis vlastne vyvazeni mezi zatezi serveru a
cerstvosti dat
zaklad je dobra definice referencni integrity v aplikaci
ten pripad, kdy nekdo ti smaze pol. v ciselniku a ty ji chces zrovna ulozit,
to proste musis zkusit ulozit a odchytit a osetrit pripadnou chybu
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Hazuka Filip
>>Sent: Monday, March 12, 2001 10:44 PM
>>To: 'delphi-l(zv)fwd(tec)cz'
>>Subject: Databaze -> TQuery vs. TTable
>>
>>
>>Ahoj vsem kdo mi radili. Nejprve bych vam chtel moc podekovat.
>>
>>Reknu vam, moc jasno jste mi v tom neudelali. Trochu jste mi z
>>toho zamotali
>>hlavu. Jeden rika pouzij Query, jiny zase OleDB atd..
>>Rekneme, ze jsem videl aplikaci, ktera behala velmi dobre vuci SQL severu
>>7.0 a problemy s tim nebyli.
>>Zustanu tedy u teto verze. Zkusim zatim prejit na TQuery.
>>
>>Nemate nekdo nejaky kod, jakym zpusobem plnite databazi pres
>>Query ? Zajimal
>>by me insert, update a delete. Dale nevim, jak dosahnout toho, abych
>>zajistil neustalou aktualizaci. Napriklad kdyz nacitam pres Query do
>>ComboBoxu polozky z ciselniku, pak mi treba neni jasne jak zajistim, aby
>>kdyz mi nekdo ve chvili, kdy chci z comba prirazovat ten zaznam v
>>ciselniku
>>smaze, aby se mi to do neho promitlo a zaznam neukazoval na neexistujici
>>polozku. Tyto problemy s aktualizaci a dalsi mi nejsou vubec
>>jasne. U TTablu
>>to mam docela zmaknuty, tam je pomerne rozsahla moznost Refreshe.
>>
>>Reknu vam jen takovou vec. Duvod, proc chci prejit od TTable k
>>TQuery je jen
>>jediny a to je rychlost. Ja osobne zas tolik problemu s TTable
>>nemam, az na
>>par, ktere meli reseni.
>>
>>Poslete mi nekdo prosim nejaky kod s Query ?
>>Diky moc za kazdou pomoc. Potreboval bych malicko popostrcit, abych s ni
>>mohl zacit delat.
>>
>>Ahoj Filip.
>>Open Tools API help
[*] Brano Vislocky <delphi(zv)jdsoftware.sk> - 13.3.2001 13:32:13
Ahojte,
neviete mi poradit, ci existuje niekde Borland OpenTools API help ?
Predpokladam, ze asi od Borlandu nebude, ale to nevadi.
Dakujem
Brano
Ochrana freeware proti piratstvi?
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 13.3.2001 13:37:34
Zajimalo by mne, jak to mate technicky resene. Treba to cislo na zpristupneni programu je stale stejne? Pak se ale neda zarucit, ze ho nejaky uzivatel toho freewaru da volne k dispozici...
Diky za odpoved
S pozdravem Milan Cizek, D5 Ent
> Pripada mi to naprosto fer, ze za poskytnuty program, na kterem se stravi
> mnoho casu, chci vedet, kdo ho pouziva. Nase firma pouziva stejny princip
> pro poskytovani free verze ucetnictvi.
>
> Ing. Petr Klinger
> www.sitkhaso(tec)cz
_____________________________________________________________________
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Komunikace mezi aplikacemi
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 13:47:44
Zdravim,
narazil jsem na problem, ze mam jednu (ale nekdy i vice) hlavnich
aplikaci a jedno DLL (to zavadi system) a potrebuji, aby v dany okamzik
(shell context menu v exploreru) dokazalo DLL zjistit seznam vsech mych
bezicich aplikaci a ze vsech pak nejaka data (kolem 20-50 zaznamu
(stringu)). Nasledne pak vybrany zaznam vratit prislusne aplikaci. (Delam
neco jako ma WinZip v menu).
DLL nemuze spolehat ze nektera aplikace bezi a naopak jich muze bezet i 5.
Predem dekuji za jakekoliv nakopnuti.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Databaze -> TQuery vs. TTable
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 13.3.2001 13:57:45
V TQuery je na to property RowsAffected, viz. help
TQuery.RowsAffected
property RowsAffected: Integer;
Description
Check RowsAffected to determine how many rows were updated or deleted by the
last query operation. If RowsAffected is -1, the query did not update or
delete any rows.
S pozdravem Pavel Koukal.> From: Pesek Michal [mailto:Michal.Pesek(zv)mnul(tec)cz]
> Subject: RE: Databaze -> TQuery vs. TTable
>
>
> Jen tak problem trochu mimo.
>
> Jak zjistim pocet zmenenych zaznamu?
>
> pr: Update nejaka_tabulka Set Jmeno = 'Franta' where Jmeno = 'Tonda'
>
> A nyni potrebuji vypsat, kolik vlastne bylo zmeneno zaznamu?
>
> Diky
>
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz OT: Ochrana freeware proti piratstvi?
[*] Garalda <garalda(zv)mail(tec)cz> - 13.3.2001 14:07:46
>
> > Naprosto s tim souhlasim a myslim si, ze dnes pri rozsirenosti
> > internetu je to pomerne rozumna "obrana". Jsem rad kdyz lide muj program
> > pouzivaji a jsem jeste radsi, kdyz o tech lidech vim. Z vlastni
zkusenosti
> > vim, ze tak 90% lidi program pouziva a ozve se az kdyz neco potrebuje.
> > Osobne toto reseni budu take zavadet.
>
No ja bych s tim normalne take souhlasil, ale zel znam radu lidi, kteri
pripojeni na inet nemaji a k software se dostanou napr. jen pres CDcka,
ktera se dodavaji k casopisum. Pokud pak narazi na takovy program, ktery by
je zajimal, tak to resi pres normalni postu. Ziskani takoveho serioveho
cisla pak muze trvat treba mesic... Otazkou zustava, zda o ten program budou
mit zajem i kdyz budou muset tak dlouho cekat. Jiste, ted muzete namitnout,
ze to uz je jejich problem, ale pokud delam nejaky freeware, tak bych byl
rad, aby ho mohli lidi pouzivat. Pokud tedy zvolit takove reseni, a nic
lepsiho mne nenapada, tak navrhuji, at to treba mesic bezi jako trial verze
(jen s informaci pri spusteni) a pak to zacne vyzadovat to seriove cislo. Do
te doby uz by ho mohli obdrzet.
S pozdravem
OT: Ochrana freeware proti piratstvi?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 14:09:28
> No, duvodu je hned nekolik - napriklad dobry napad viz predchozi mail na
> toto tema od p.Zity - OSA a seriove cislo.
to muze byt argument - ovsem zrejme pokud se program siri pouze v Cechach.
Doufam, ale ze tyhle veci se nejak vyresi lepsimi cestami. A zatim je
predcasne se tim zabyvat, nebo ne? Pokud se situace vyvrbi tak, ze sami
uzivatele budou touzit po registracnim cisle aby nemuseli plati poplatky pak
se ale cela situace meni - dostavam se z role nekoho kdo nuti lidi k
registraci do role nekoho kdo poskytuje zadanou sluzbu.>Dalsi duvod je ten, ze
> registrace, ktera zabere kolem jedne mituny a 0,-Kc (ci $) mi muze
> napovedet kdo muj program pouziva (OS, Zeme, Profese).
a to Te opravdu zajima? Navic mam pocit, ze vyplnovani registracniho
formulare je procedura, ktera dost lidi odradi....
>Dalsi a tou
> neposledni je i snadny pristup (pokud zakaznik chce) k novyp updatum -
> pokud chce a zaskrtne si to, zaradim ho do databaze a pak ho muzu
> informovat o novinkach.
to je vec ktera s registraci vubec nesouvisi. Je zvykem ji resit jinak
(moznost zarazeni email adresy do listu, na ktery se posilaji anonce).
Navic spousta lidi behem kratke doby meni emaily jako ponozky (a spousta
lidi ani neumi svuj vlastni email napsat spravne).> Samozrejmne, ze podobne je postcardware a tim zase vim odkud kdo je - je
to
> zajimava alternativa hlavne pro sberatele poohledu a znamek :)
no tak zacni sbirat znamky :-)
>
> Hlavne uzivatel programu tak vyjadruje solidaritu s autorem a alespon
nejak
> si "ceni" toho ze muze pouzivat tento program free.
pro me je to zatim jen nuceni uzivatelu do neceho co neni nezbytne...
D. Toman
Zpravy pri aktivovanem menu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 13.3.2001 14:17:12
From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> Toto se dela, tak, ze pro tlacitka na toolbaru, ktera
> se takto maji chovat(resp. vsechny) musi byt nastaveno
> Grouped na True. Oznac vsechny tlacitka na toolbaru
> (drz Shift a na kazde klikni) a v OI nastav Grouped na True.
Tak spatne na tom jeste nejsem
> Jinak to co jsem popisoval je odzkousene, pri aktivovanem
> menu.
Nevim, jestli jsi to opravdu zkousel, ale nechodi, alespone me ne
(D5). Pro jistotu jsem to zkusil znovu s mainmenu.
Mezitim jsem jeste zkusil okno aplikace zahakovat pomoci
HookMainWindow, ale to take k nicemu nevede.
> Jakakoli jina obsluha je ZBYTECNA.
Mozna zbytecna, ale standardni chovani menu je, ze kdyz se mysi
pri rozbalenem menu najede nad jinou polozku nejvyssi urovne ta
se rozbali (bez kliknuti). Samozrejme se svet nezbori, kdyz bude
nutne mysi klepnout, ale az na nektere nedotazene pokusy o
menu na toolbaru to tak vzdy je a je lepsi dodrzet ocekavane
chovani.
Jiri Binder
> > Behalf Of Jiri Binder
> > problem je v tom, ze v okamziku, kdy se menu aktivuje, zpravy
> > prestanou dochazet (zkousel jsem s popup menu, ale to je jedno).
> > Pritom WinSpy je vidi a podle neho by mely byt urceny (pokud jsem to
> > spravne identifikoval) pro skryte okno aplikace, takze me
> > prekvapilo, ze jsem je nevidel ve zpracovani OnMessage, kam by mely
> > prijit jako prvni. Obdobne zpravy od klavesnice jsou adresovany oknu
> > formu, ale ani ty jsem zatim neodchytil.
> >
> > Mam vlastni toolbar s menu a potreboval jsem to k tomu, abych
> > mohl pri spustenem menu prejit na vedlejsi nabidku presunutim mysi
> > nebo klavesou, jak je to obvykle.
> >
> > Jiri Binder
> >
> > From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> > > jestli jsem pochopil o co ti jde tak treba takhle:
> > >
> > > type
> > > TForm1 = class(TForm)
> > > [...]
> > > private
> > > { Private declarations }
> > > procedure WMNCHitTest(var Message: TMessage); message
> > > WM_NCHITTEST;
> > > public
> > > { Public declarations }
> > > end;
> > >
> > > procedure TForm1.WMNCHitTest(var Message: TMessage);
> > > begin
> > > with Message,
> > > ScreenToClient(Point(LOWORD(lParam),HIWORD(lParam))) do
> > > Caption:= Format('X: %d, Y: %d',[x,y]);
> > > inherited;
> > > end;
> > >
> > > > Behalf Of Jiri Binder
> > > > nejak se mi nedari zachytit zpravy mysi (konkretne
> > > > wm_mousemove) a wm_keydown up, pri aktivovanem menu.
> > > > Ani Application.OnMessage nepomaha. Nevite nahodou kde je
> > > > zakopany pes, resp. ty zpravy?
> > > > Jiri Binder
> >
> >
>
>
OT: Ochrana freeware proti piratstvi?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 14:21:16
>rad, aby ho mohli lidi pouzivat. Pokud tedy zvolit takove reseni, a nic
>lepsiho mne nenapada, tak navrhuji, at to treba mesic bezi jako trial verze
>(jen s informaci pri spusteni) a pak to zacne vyzadovat to seriove cislo. Do
>te doby uz by ho mohli obdrzet.
***Ano, to je velice rozumne a take s tim souhlasim. Napriklad PNWS
(pnws.pinknet(tec)cz) se rozsiril vice az pomoci PC WORDu a jeho CD a take
pomoci CHIP CD. Takze toto reseni je asi jedine shudne:
1) program vyzaduje seriove cislo
2) bez nej bezi v plne variante jako trial verze po dobu treba 1 mesice
3) seriove cislo se ziska zcela zdarma pomoci internetu (okamzite), nebo
pomoci normalni posty, ci treba SMS
4) pro pripad vydavani CD, je mozne vydat trial cislo s "delsi"
platnosti (napr. 2 mesice) S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT: Ochrana freeware proti piratstvi?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 14:31:09
> > No, duvodu je hned nekolik - napriklad dobry napad viz predchozi mail na
> > toto tema od p.Zity - OSA a seriove cislo.
>
>to muze byt argument - ovsem zrejme pokud se program siri pouze v Cechach.
>Doufam, ale ze tyhle veci se nejak vyresi lepsimi cestami. A zatim je
>predcasne se tim zabyvat, nebo ne? Pokud se situace vyvrbi tak, ze sami
>uzivatele budou touzit po registracnim cisle aby nemuseli plati poplatky pak
>se ale cela situace meni - dostavam se z role nekoho kdo nuti lidi k
>registraci do role nekoho kdo poskytuje zadanou sluzbu.
***ano, ale pokud je zacneme pozvolna pripravovat, bude to pro ne snazsi...> >Dalsi duvod je ten, ze
> > registrace, ktera zabere kolem jedne mituny a 0,-Kc (ci $) mi muze
> > napovedet kdo muj program pouziva (OS, Zeme, Profese).
>
>a to Te opravdu zajima? Navic mam pocit, ze vyplnovani registracniho
>formulare je procedura, ktera dost lidi odradi....
***Zajima - kolikrat lidi ani nevi co maji nainstalovano a treba
registracni formular se to muze pokusit zjistit. Ostatne ze se bojite neco
vyplnovat je vec nazoru a medii. Ja osobne radeji vyplnim formular treba u
drive zminovaneho vmware a dostanu seriove cislo, nez abych sel a ukradl si
ho, nebo hledal nejake alternativy. Proc by me mel bolet email, ci jmeno
nebo ma profese? To jsou veci, ktere si stejne muze kazdy zjisit. Uz jste
snad videl nekde nejake free- hosting, mail, chat, vyhledavac ci neco
podobneho, kde po vas nic nechteli?
> >Dalsi a tou
> > neposledni je i snadny pristup (pokud zakaznik chce) k novyp updatum -
> > pokud chce a zaskrtne si to, zaradim ho do databaze a pak ho muzu
> > informovat o novinkach.
>
>to je vec ktera s registraci vubec nesouvisi. Je zvykem ji resit jinak
>(moznost zarazeni email adresy do listu, na ktery se posilaji anonce).
>Navic spousta lidi behem kratke doby meni emaily jako ponozky (a spousta
>lidi ani neumi svuj vlastni email napsat spravne).
***s tim souhlasim, ale proc to nedelat najednou?
>pro me je to zatim jen nuceni uzivatelu do neceho co neni nezbytne...
***Neni nezbytne, ale pokud chci s uzivatelema udrzovat urcity kontakt, ci
sledovat kdo a na co to pouziva, je to urcite prinosem. Napriklad rozumne
reseni je treba (ala Corel) nechat toto preskocit (program funguje stale) a
nabidnout treba az za 14 dni znovu.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Prave tlacitko mysi & StringGrid
[*] Tomas Meduna <tm.konf(zv)atlas(tec)cz> - 13.3.2001 14:33:40
Potrebuji nastavit stisk praveho tlacitka mysi na StringGridu tak, aby se vybral radek ve StringGridu, na nejz kurzor mysi ukazuje (= aby se provedlo to same, co pri stisku leveho tlacitka).
Poradite mi nekdo?
Diky Tomas
Prave tlacitko mysi & StringGrid
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.3.2001 14:42:06
procedure TMainForm.ActiveUsersMouseDown(Sender: TObject; Button:
TMouseButton; Shift: ShiftState; X, Y: Integer);
var m:TWMLButtonDown;
begin
if button=mbRight then
begin
//pokud je to prave tlacitko, posli jeste i leve
m.Keys:=0;
m.XPos:=x;
m.YPos:=y;
PostMessage(ActiveUsers.handle,WM_LBUTTONDOWN,m.keys,integer(m.pos));
end;
end;
Namisto ActiveUsers dej svuj StringGrid.
At 14:33 13.3. 2001 +0100, you wrote:
>Potrebuji nastavit stisk praveho tlacitka mysi na StringGridu tak, aby se
>vybral radek ve StringGridu, na nejz kurzor mysi ukazuje (= aby se
>provedlo to same, co pri stisku leveho tlacitka).
>Poradite mi nekdo?
>Diky Tomas
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Databaze -> TQuery vs. TTable
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 13.3.2001 14:53:00
Nejdrive spust dotaz:
select count(Jmeno) as Pocet
from nejaka_tabulka
where
Jmeno = 'Tonda'
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Pesek Michal
> Sent: Tuesday, March 13, 2001 1:24 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Databaze -> TQuery vs. TTable
>
>
> Jen tak problem trochu mimo.
>
> Jak zjistim pocet zmenenych zaznamu?
>
> pr: Update nejaka_tabulka Set Jmeno = 'Franta' where Jmeno = 'Tonda'
>
> A nyni potrebuji vypsat, kolik vlastne bylo zmeneno zaznamu?
>
> Diky
>
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz
>
>
>
>
> -----Original Message-----
> From: Ji�� Kr�l jr. [mailto:admin(zv)printo(tec)cz]
> Sent: Tuesday, March 13, 2001 10:56 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Databaze -> TQuery vs. TTable
>
>
> kazdy sam sveho stesti strojvudcem :-)
>
> ja jsem presel presne timto stadiem. No vsak uvidis sam.
>
> V soucasne dobe mam ve sve aplikaci dbaware !pouze! na prohlizeni zaznamu.
> Veskere update/insert/delete je spachano pomoci TADOStoredProc.
>
> co se tyka TQuery:
>
> - musi mit live=true ale pak nastane problem s lookupfieldy / podciselniky
> apod.
> - muzes pouzit nomalni editaci v gridu
> - doporucuji pouzit transakce
>
> pokud chces do TQuery dat jen SQL statement ktery nevraci kurzor, pak musis
> dat namisto query.open query.execSQL,
> napr. pro
> INSERT INTO cosik (aa,bb,cc) VALUES ('sdasd',123,212)
>
> do values samozrejme muzou prijit parametry (:a1, :a2, :a3)
>
> re: aktualizace
> to je trosku problem, resis vlastne vyvazeni mezi zatezi serveru a
> cerstvosti dat
> zaklad je dobra definice referencni integrity v aplikaci
> ten pripad, kdy nekdo ti smaze pol. v ciselniku a ty ji chces zrovna ulozit,
> to proste musis zkusit ulozit a odchytit a osetrit pripadnou chybu
>
>
> ==========================================================
> Bc. Jiri Kral
> administrator IT
> tiskarna Printo, spol. s r.o.
> e-mail: admin(zv)printo(tec)cz
> mobil e-mail: jirka.kral(zv)click(tec)cz
> ICQ# 15303940
> PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>
> >>-----Original Message-----
> >>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> >>Hazuka Filip
> >>Sent: Monday, March 12, 2001 10:44 PM
> >>To: 'delphi-l(zv)fwd(tec)cz'
> >>Subject: Databaze -> TQuery vs. TTable
> >>
> >>
> >>Ahoj vsem kdo mi radili. Nejprve bych vam chtel moc podekovat.
> >>
> >>Reknu vam, moc jasno jste mi v tom neudelali. Trochu jste mi z
> >>toho zamotali
> >>hlavu. Jeden rika pouzij Query, jiny zase OleDB atd..
> >>Rekneme, ze jsem videl aplikaci, ktera behala velmi dobre vuci SQL severu
> >>7.0 a problemy s tim nebyli.
> >>Zustanu tedy u teto verze. Zkusim zatim prejit na TQuery.
> >>
> >>Nemate nekdo nejaky kod, jakym zpusobem plnite databazi pres
> >>Query ? Zajimal
> >>by me insert, update a delete. Dale nevim, jak dosahnout toho, abych
> >>zajistil neustalou aktualizaci. Napriklad kdyz nacitam pres Query do
> >>ComboBoxu polozky z ciselniku, pak mi treba neni jasne jak zajistim, aby
> >>kdyz mi nekdo ve chvili, kdy chci z comba prirazovat ten zaznam v
> >>ciselniku
> >>smaze, aby se mi to do neho promitlo a zaznam neukazoval na neexistujici
> >>polozku. Tyto problemy s aktualizaci a dalsi mi nejsou vubec
> >>jasne. U TTablu
> >>to mam docela zmaknuty, tam je pomerne rozsahla moznost Refreshe.
> >>
> >>Reknu vam jen takovou vec. Duvod, proc chci prejit od TTable k
> >>TQuery je jen
> >>jediny a to je rychlost. Ja osobne zas tolik problemu s TTable
> >>nemam, az na
> >>par, ktere meli reseni.
> >>
> >>Poslete mi nekdo prosim nejaky kod s Query ?
> >>Diky moc za kazdou pomoc. Potreboval bych malicko popostrcit, abych s ni
> >>mohl zacit delat.
> >>
> >>Ahoj Filip.
> >>Zmena LangDrivera tabulky
[*] mms(zv)host.sk - 13.3.2001 15:06:21
Ahojte
1. Ako sa da u uz existujucej tabulky zmenit langdriver?
2. Pre svoje tabulky pouzivam PDX CZ. Takze ked vytvaram novu tabulku
automaticky ho dostane aj nova tabulka. Ako by sa dala vytvorit jedna tabulka s
inym langdriverom a ostatne uz zase potom s tym co je prednastaveny v BDE
administratore?
Diky
Ochrana freeware proti piratstvi?
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 13.3.2001 15:10:41
Ahoj,
u freeware samozrejme nelze nic namitat. Nektere SW firmy vsak takto
"chrani" i sve komercni produkty, coz je pri preinstalaci Windows naprosta
tragedie. V lepsim pripade cekate dny (tydny) na registracni klic a nemate
napr. ucetnictvi, v horsim pripade firma zkrachovala a Vas drahy SW je
naprosto k nicemu.
Ale jak jsem rekl na zacatku, u freeware je to vec autora. Po mych
zkusenostech s takto chranenymi (komercnimi) programy bych si to asi
nenainstaloval.
Dale pak tento program asi neuspeje u "instalateru", lidi co neustale
stahuji a instaluji freeware az do skonani Windows. Otazka je, zda to vubec
vadi.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Ludek ZITA
> Sent: Tuesday, March 13, 2001 11:58 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Ochrana freeware proti piratstvi?
>
>
> ----- Original Message -----
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
>
> > Preji vsem pekneho dne,
> >
> > obracim se na vas jako na programatory, kteri obcas nejaky
> > freeware pouzivaji ci programuji. Jak znamo, freeware je zdarma,
> > ale obcas je v ,,licenci`` pouzivani dodatek ve smyslu poslete (e-
> > )mail, ze program pouzivate. Bohuzel maily chodi maximalne v
> > pripade, ze ma uzivatel problem nebo by rad neco noveho.
> >
> > Jak by se vam libilo, kdyzbyste si stahli program a ten po vas chtel
> > registracni cislo, ktere ziskate ZDARMA od autora? Je tohle jeste
> > vubec freeware nebo to je neco jineho?
>
> Ahoj.
> Jiste by mi to nevadilo. Jako autor si muzes do podminek dat
> temer cokoliv.
> Mozna by to byla i jedna z cest jak eliminovat hrozbu vyberu desatku
> potencialnim
> kolektivnim spravcem typu OSA. Tim pridelenim cisla by si naprosto
> jednoznacne
> udelil kazdemu konkretnimu uzivateli pravo SW pouzivat.
> Zkus se s timhle obratit na www.zastudena(tec)cz. Tam by Ti mohli poradit
> pravnici.
>
> Ludek
>
>
>
Ochrana freeware proti piratstvi?
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 13.3.2001 16:03:09
Um�me program "prispendlit" na dan� hardware a tento postup pouz�v�me pouze
pro ty uzivatele, kter� si chtej� cel� program vyzkouset bez omezen�
demoverze a tak vyd�v�me licencn� c�sla pro dan� poc�tac omezen� na treba
mes�c provozu. U ostr�ch verz� to nedel�me, protoze ve sv�m dusledku by toto
opatren� slo proti leg�ln�m uzivatelum a pir�ti si stejne vzdy pomohou.
Freeware je ostr� program zdarma - pro koho m� i toto smysl kr�st - at si
poslouz�. Prijdou t�m o moznost podpory u nas� firmy a moznost se nechat
informovat o dals�ch novink�ch. Tak at kazd� prem�sl�, co se mu vyplat�.
Ing. Petr Klinger
www.sitkhaso(tec)cz
----- Original Message -----
From: "Milan C�zek" <Cizek.Milan(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 1:37 PM
Subject: Re: Ochrana freeware proti piratstvi?> Zajimalo by mne, jak to mate technicky resene. Treba to cislo na
zpristupneni programu je stale stejne? Pak se ale neda zarucit, ze ho nejaky
uzivatel toho freewaru da volne k dispozici...
>
> Diky za odpoved
> S pozdravem Milan Cizek, D5 Ent
>
> > Pripada mi to naprosto fer, ze za poskytnuty program, na kterem se
stravi
> > mnoho casu, chci vedet, kdo ho pouziva. Nase firma pouziva stejny
princip
> > pro poskytovani free verze ucetnictvi.
> >
> > Ing. Petr Klinger
> > www.sitkhaso(tec)cz
>
> _____________________________________________________________________
> Poctenicko pro kazdy den: http://www.novinky(tec)cz
Asociace souboru
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 13.3.2001 16:53:14
Zdravim,
asociuji soubor DBF s programem. Vse vypada v poradku. Pruzkumnik ukazuje dobrou ikonu a po poklepani na soubor se program skutecne otevre a v nem dany soubor. Ale uz jsem narazil na par programu, ktere mi misto me ikony u DBF souboru ukazuji ikonu obecnou (jestli se ji tak da rici). Predpokladam, ze se ma jeste neco zaregistrovat. Ale bohuzel nevim co. Muzete mi nekdo poradit? Tady je kod, ktery nyni pouzivam:
Reg.CreateKey('DBF.DatView');
Reg.OpenKey('\DBF.DatView',True);
Reg.CreateKey('DefaultIcon');
Reg.OpenKey('\DBF.DatView\DefaultIcon',True);
Reg.WriteString('',Application.ExeName+',0');
Reg.OpenKey('\DBF.DatView',True);
Reg.CreateKey('shell');
Reg.OpenKey('\DBF.DatView\shell',True);
Reg.CreateKey('open');
Reg.OpenKey('\DBF.DatView\shell\open',True);
Reg.CreateKey('command');
Reg.OpenKey('\DBF.DatView\shell\open\command',True);
Reg.WriteString('',Application.ExeName+' %1');
Reg.CloseKey;
Reg.RootKey:=HKEY CLASSES ROOT;
Reg.OpenKey('\.DBF',True);
Asociace:=Reg.ReadString('');
Reg.DeleteValue('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
Reg.Free;
Promenna Asociace je zde jen kvuli tomu, aby si uzivatel mohl vratit puvodin nastaveni.
Predem diky za jakoukoli radu.
Mirek Drejcek.
TWebBrowser
[*] JIM Design <jim.design(zv)iol(tec)cz> - 13.3.2001 16:55:16
ahoj,
a co takhle pouzit OnNavigateComplete nebo OnBeforeNavigate, ted nevim
jestli to je primo v TWebBrowser nebo vkus TEmbeddedWb
http://www.euromind.com/iedelphi/embeddedwb.htm
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Sula Milos
Sent: Monday, March 12, 2001 9:54 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: TWebBrowser
Caute
pouzivam ve sve aplikaci TWebBrowser. Kdyz dam Navigate2, tak se mi v okne
zobrazi html stranka jen v pripade ze se ukonci procedura ve ktere Navigate2
volam, ale ja mam za Navigate2 jeste nejaky cyklus ktery chvili trva a dokud
se neukonci tak mi to proste nezacne stahovat. Mate s tim nejake zkusenosti
?
dik
Spoluprace Delphi & MS Wordu
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 13.3.2001 18:46:55
Nazdar
Resim takovyto problem. Mam v aplikaci na vyber seznam sablon. Kdyz si z
nich jednu vyberu otevre se Word a v nem vytvorim novy dokument a ten
ulozim. Potrebuji zjistit, pok jakym jmenem se novy dokument
ulozil.Nevite nekdo jak na to ? Zkousel jsem pouzit OLE, ale to se mi
nezda jako moc schudne reseni.
S pozdravem
Dusan Fojtik
fojtikd(zv)tescosw(tec)cz
Registracia fontu
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.3.2001 19:02:26
Ahoj,
nedari sa mi uspokojivo vyriesit problem s instalaciou
vlastneho fontu do Windows.
Font najskor skopirujem do adresara "Fonts" a potom pomocou:
AddFontResource ( PChar(FontFile) )
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 )
zaregistrujem do systemu.
Obcas vsak AddFontResource vrati hodnotu 0.
Podla helpu to znaci chybu, kod tejto chyby mozno vyzdvihnut
volanim GetLastError. Kupodivu vsak tato funkcia vracia 0,
ako keby bolo vsetko OK. Font pritom zacne byt "aktivny",
t.j. je dostupny vo Worde a pod. V zlozke "Pisma" sa vsak nezobrazi.
Poznamenavam, ze dotycny font sa v systeme pred jeho registraciou
bezpecne nenachadza.
Pri odstranovani fontu funkcia RemoveFontResource obcas
dany font vobec neoregistruje (niekedy sa dokonca prislusny
TTF subor nejakym sposobom "zablokuje", takze ho nemozno
odstranit uz ani manualnym vyzmazanim.
Inokedy aj po odstraneni fontu, sa tento nadalej prezentuje
v systeme (pricom z prislusneho adresara uz bol vymazany).
Ak napriklad opatovne zaregistrujem takyto neexistujuci font,
funkcia AddFontResource vrati jednotku a tvari sa, ze je vsetko OK.
Dokonca mozno dotycny font pouzivat vo Worde a pod.
To vsak funguje samozrejme len do restartu pocitaca.
Mam taky pocit, ze Windows uchovava odstraneny font
niekde vo svojej cache (da sa to nejako obist?).
Poznamenavam, ze nepomaha ani viacnasobne volanie
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 )
Nestretol sa uz niekto s podobnymi problemami?
Vlkovic
Image & JPEG
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 13.3.2001 19:22:02
> > 1) existuje nejaka finta jak menit velikost obrazku tak, aby zustal
> > proporcionalne spravny?
Ja to delam takto:
procedure TForm1.Nacti;
var x,y: integer;
p: real;
jm: string;
begin
Image1.Stretch:=false;Image1.AutoSize:=true;
jm:='obrazek.XXX';
Image1.Picture.LoadFromFile(Jm);
Image1.AutoSize:=false;Image1.Stretch:=true;
x:=Image1.Width;y:=Image1.Height;
repeat
if x>IWidth then begin p:=IWidth/x;x:=IWidth;y:=round(y*p) end;
if y>IHeight then begin p:=IHeight/y;y:=IHeight;x:=round(x*p) end;
until (x<=IWidth) and (y<=IHeight);
Image1.Width:=x;Image1.Height:=y;
Image1.Left:=(IWidth-x) div 2;
Image1.Top:=(IHeight-y) div 2;
end;
> > 2) Jak zajistit (udelat) konverzi obrazku do JPG?
procedure BmpToJpg(Bmp:TBitmap;JmFile:string;var Jpg:TJpegImage);
begin
Jpg:=TJpegImage.Create;
Jpg.CompressionQuality:=100;
Jpg.Assign(Bmp);
if length(JmFile)>0 then begin Jpg.SaveToFile(JmFile);exit end;
Jpg.Free;
end;
Mirek Drancak
TSHFileOpStruct - vice adresaru v pTo
[*] Ivo =?iso-8859-1?Q?Karko=9Aka?= <ivo.karkoska(zv)accubatt.ktv-ova(tec)cz> - 13.3.2001 19:55:13
Zdravim.
Uz se tim trapim nekolik dni a porad na to ne a ne prijit. Potreboval bych, aby
se v parametru pTo dalo nejak zadat vice adresaru, do kterych bych mohl z pFrom
kopirovat. Je nejaka moznost v API a nebo existuje neco jineho pro kopirovani
vice souboru do vice destinaci ?
Ivo Karkoska
------------------------------------
var
FileOp: TSHFileOpStruct;
begin
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom := 'L:\FILES\*.txt'#0#0;
pTo := 'C:\MAIL\OUT\\'#0#0;
fFlags := FOF_SILENT + FOF_NOCONFIRMATION;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Error');CoUninitialize a EAccessViolation - VYRESENO
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 13.3.2001 19:59:10
Zda se, ze problem byl v tom, ze do projektu se nedopatremin
dostala i unita Forms (skrz ACTIVEDS_TLB.pas, kde jsem
neopatrne zatrhl generovani komponent), ktera
se jaxi nesnasi s volanim CoUninitialize.
Kdyz jsem toto volani odstranil a misto CoInitializeEx
jsem nastavil CoInitFlags a zavolal Application.Initialize,
tak uz to fungovalo bez problemu.
Dekuji za spolupraci,
Ondrej Krajicek
Dalibor Toman wrote:
>
> > Dobry den vsem,
> >
> > mam takovy problem s CoUninitialize. V konzolovych aplikacich
> > se mi vytrvale vyhazuje vyjimka po zavolani
> > CoUninitialize. Vyjimka ma bazovou adresu 0x004..., takze
> > se vyhodi az v kodu RTL, ale dojde k ni jenom v pripade,
> > ze volam CoUninitialize.
> >
> > Mam D5Pro a W2K Pro SP1, ale delaji mi to i
> > Delphi 4 Standard na W98. Vzhledem k tomu,
> > ze Delphi pracuji s interfacema trochu skryte,
> > tak se v tom moc nevyznam.
> >
>
> Mel jsem podobne problemy. Projevovaly se tim, ze debugger se zdanlive
> zblaznil pri pokusu o krokovani ukonceni programu. Dochazelo tusim k
> exceptions v nebo okolo CoUninitialize a taky k problemum s deinicializaci
> DLLka (debugger kricel "Too many exceptions"). Vyresilo se to az spravnym
> serazenim prirazeni NILu promennym instanci interfacu pred volanim
> CoUninitialize.
>
> Musim ale podotknout, ze vetsina problemu byla dusledkem toho, ze muj kod
> volajici COMy byl umisten v DLLku - na coz zda se Borlandi ponekud
> pozapomneli. Obyc Aplikace - jakmile prilinkuje ComObj.dcu automaticky vola
> CoInitialize/CoUnInitialize...
>
> D. Toman
--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------
TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 13.3.2001 20:07:08
a) myslim zmenu jmena komponenty na formulari
b) nemohu povesit udalost na zmenu jmena libovolne komponenty na formulari
Vysvetleni:
Ja si chci ze vsech komponent na formulari vytvorit nejaky seznam, ktery
bude cast techto komponent obsahovat (muze obsahovat pouze komponenty na
formulari, ale nemusi obsahovat vsechny komponenty). Tento seznam neumi
odchytavat nejake zpravy o zmene jmena komponent na formulari.
Jan Skopovy
----- Original Message -----
From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 11:26 AM
Subject: Re: TGroupControl
> On 12 Mar 2001, at 23:57, Jan Skopov� wrote:
>
> > Mam nasledujici problem. Omlouvam se pokud to bude obsahlejsi.
> >
> > (Pisi o design modu)
> >
> > Vytvarim si v podstate jednoduchou nevisualni komponentu, ktera
> > obsahuje seznam vybranych trid (komponent odvozenych pres TControl).
> > Neni problem zobrazit seznam dostupnych trid na formulari a potrebny
> > seznam si vytvorit. Neni problem udrzovat seznam, pokud nejakou tridu
> > (komponentu) zrusim. Az potud je to snadne.
> >
> > Co ale nevim je, jak mam poznat, ze jsem nejakou tridu (komponentu)
> > prejmenoval. Pokud tridu (komponentu) prejmenuji a pote si vlezu do
> > editace meho seznamu trid, vse se mi opravi protoze si pamatuji
> > pointer na zvolene tridy.
>
> Nerozummim. Prejmenovavas TControl.Name, nebo treba TEdit na
> TNovyEdit???
>
> > Pokud ale zapomenu vlezt do tohoto seznamu, tak se mi jmena neopravi a
> > ... a tim jsem v coudu, protoze pointer v design a runtime je
> > pochopitelne jiny. Takze v runtime musim dohledat pointery na tridy
> > (komponenty) podle jejich jmena.
> >
> > Lze si v design modu vytvorit vnitrni timer, ktery mi bude seznam
> > neustale kontrolovat a opravovat jej podle potreby. To funguje, ...,
> > ale je to prasarna.
>
> A coz takhle na zmenu jmena povesit udalost, ktera automaticky
> projde vsechny seznamy a provede nutne upravy?
>
> Ale obecne poradit neumim, protoze nevim, co vlastne chces delat.
> Takhle si vybavuji nekolik variant, ale kazda se resi uplne jinak.
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Refresh DBASE na sieti
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.3.2001 21:29:48
> DBase - sietova aplikacia - Delphi 5
>
>Jeden klient zapise do DBF tabulky nieco.
>U druheho klienta otvaram znovu Query ale zaznam tam nie je.
>Ale je zaujimave ze ak u druheho klienta restartujem aplikaciu, tak uz tam
>je ten zaznam.
Skus nastavit v BDE Administratore LOCAL SHARE na TRUE.
Mne to pomohlo vyriesit podobny problem s Crystal Reportom.
Erik
TSHFileOpStruct - vice adresaru v pTo
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.3.2001 21:32:48
> Zdravim.
>
> Uz se tim trapim nekolik dni a porad na to ne a ne prijit. Potreboval bych,
aby
> se v parametru pTo dalo nejak zadat vice adresaru, do kterych bych mohl z
pFrom
> kopirovat. Je nejaka moznost v API a nebo existuje neco jineho pro kopirovani
> vice souboru do vice destinaci ?
Tak to udelej postupne pro vsechny zadane cesty. Dej je treba do nejakeho
TStringList, a pak to vyresis cyklem:
for i:=0 to myStringList.Count-1 do ZkopirujSlozku(ZdrojovaSlozka,
myStringList[i]);
Pricemz "ZkopirujSlozku" obsahuje treba ten kod, cos tu uvadel...
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Database paradox
[*] josef kyn <jkyn(zv)iol(tec)cz> - 13.3.2001 22:04:11
Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
paradoxu.
Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a nicily
se indexy.
dekuji za ka�d� podnet Josef K�n
Nahravani zvuku v Delphi
[*] Martin \"MaVac\" V�clav�k <martin.vaclavik(zv)sh.cvut(tec)cz> - 13.3.2001 22:24:04
Rozhodl jsem se, ze zkusim naprogramovat neco jako osciloskop v Delphi pres
zvukovku, proto se chci zeptat, jakym nejlepsim zpusobem ziskavat v Delhi
data ze zvukove karty...Nejde mi o zadny format, proste jen hola data...
Mockrat diky,
Martin "MaVac" V�clav�k
Strahov 7/333
email: martin.vaclavik(zv)sh.cvut(tec)cz
ICQ: 61103032
Ovladani CD-Rom mechaniky
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 13.3.2001 22:27:13
no pouzivam jen ShellExecute - a je bohuzel jedno, jestli ve forme s param
'open'+nazev avicka a nebo pomoci ext. prog. :
procedure TForm1.lblPlayClick(Sender: TObject);
begin
if prog='Default Player' then
ShellExecute(0,'open',PChar(video),nil,nil,Sw_ShowNormal)
else ShellExecute(0,'open',PChar(prog),PChar(video),nil,Sw_ShowNormal);
end;
Petr Haslar
----- Original Message -----
From: "Jan Skopov�" <jsdelphi(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 12:00 AM
Subject: Re: Ovladani CD-Rom mechaniky
> Mozna by bylo lepsi poslat rutinu pro prehravani videa.
>
> Jan Skopovy
>
> ----- Original Message -----
> From: Petr Ha#lar <rincewind(zv)volny(tec)cz>
> To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, March 12, 2001 7:42 PM
> Subject: Ovladani CD-Rom mechaniky
>
>
> > Ahoj,
> > mam problem s vysouvanim video CD - kdyz ho pomoci nize popsane
procedury
> > vysunu (ale az po prehrani videa), tak mi naskoci 'modra obrazovka
smrti',
> > ve ktere po me windows (98SE) chteji opetovne vlozeni cedecka do
> mechaniky.
> > Z CD by pritom nemel zadny program nic nacitat ! Da se to nejak
odstranit?
> >
> > Diky za kazdou radu.
> >
> > S pozdravem
> > Petr Ha#lar
> >
> > pouzivam takovouto proc. na ovladani cd-rom :
> >
> > procedure OpenCloseCdDrive(const OpenMode: Boolean; const Drive: Char);
> > const
> > OpenCmd: array [Boolean] of DWORD =
> > (MCI_SET_DOOR_CLOSED, MCI_SET_DOOR_OPEN);
> > var
> > Mci: TMCI_Open_Parms;
> > MciResult: MCIERROR;
> > Param: DWORD;
> > DriveName: array[0..2] of Char;
> > begin
> > Param := MCI_OPEN_TYPE or MCI_OPEN_TYPE_ID;
> > FillChar(Mci, SizeOf(Mci), #0);
> > Mci.lpstrDeviceType := PChar(MCI_DEVTYPE_CD_AUDIO);
> > if Drive <> #0 then
> > begin
> > Mci.lpstrElementName := StrFmt(DriveName, '%s:', [UpCase(Drive)]);
> > Inc(Param, MCI_OPEN_ELEMENT);
> > end;
> > MciResult := MciSendCommand(0, MCI_OPEN, Param, Cardinal((zv)Mci));
> > if mciResult <> 0 then
> > raise Exception.Create('Error');
> > MciSendCommand(Mci.wDeviceID, MCI_SET, OpenCmd[OpenMode], 0);
> > MciSendCommand(Mci.wDeviceID, MCI_CLOSE, 0, 0);
> > end;
> >
> >
>
>MessageDlg
[*] Pavel Kupka <pavel.kupka(zv)atlas(tec)cz> - 13.3.2001 22:50:37
Nevite, existuje nejaka cesla verze funkce MessageDlg? Nelibi se mi Yes, No, chci Ano, Ne atd.
Application.MessageBox mi nevyhovuje.
Diky
Pavel Kupka
CoUninitialize a EAccessViolation - VYRESENO
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2001 22:55:37
> Zda se, ze problem byl v tom, ze do projektu se nedopatremin
> dostala i unita Forms (skrz ACTIVEDS_TLB.pas, kde jsem
> neopatrne zatrhl generovani komponent), ktera
> se jaxi nesnasi s volanim CoUninitialize.
> Kdyz jsem toto volani odstranil a misto CoInitializeEx
> jsem nastavil CoInitFlags a zavolal Application.Initialize,
> tak uz to fungovalo bez problemu.
ComObj (nebo jak se jmenuje) cpe do promenne InitProc adresu procedury ktera obsahuje volani CoInitialize. Form (resp asi TApplication) pak InitProc vola behem Application.Initialize. ComObj ve Finalization pak jeste vola CoUninitailze...
D. Toman
Zpravy pri aktivovanem menu
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 13.3.2001 23:23:37
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jiri Binder
> Sent: Tuesday, March 13, 2001 2:17 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Zpravy pri aktivovanem menu
>
>
> From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> > Toto se dela, tak, ze pro tlacitka na toolbaru, ktera
> > se takto maji chovat(resp. vsechny) musi byt nastaveno
> > Grouped na True. Oznac vsechny tlacitka na toolbaru
> > (drz Shift a na kazde klikni) a v OI nastav Grouped na True.
>
> Tak spatne na tom jeste nejsem
Ahoj,
NO NO, JA JSEM TE TAKY NECHTEL URAZIT !!!
TEZKO MUZU VEDET JAK NA TO JSES A SNAHA BYLA POMOCI.
>
> > Jinak to co jsem popisoval je odzkousene, pri aktivovanem
> > menu.
> Nevim, jestli jsi to opravdu zkousel, ale nechodi, alespone me ne
> (D5). Pro jistotu jsem to zkusil znovu s mainmenu.
>
> Mezitim jsem jeste zkusil okno aplikace zahakovat pomoci
> HookMainWindow, ale to take k nicemu nevede.
>
> > Jakakoli jina obsluha je ZBYTECNA.
> Mozna zbytecna, ale standardni chovani menu je, ze kdyz se mysi
> pri rozbalenem menu najede nad jinou polozku nejvyssi urovne ta
> se rozbali (bez kliknuti). Samozrejme se svet nezbori, kdyz bude
> nutne mysi klepnout, ale az na nektere nedotazene pokusy o
> menu na toolbaru to tak vzdy je a je lepsi dodrzet ocekavane
> chovani.
Treba se jenom nemuzeme domluvit. Testovaci program
posilam na soukr. mail a rekl bych, ze se Menu na ToolBaru
chova tak ja je bezne.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 Chyba pri vytvarani Foreing key na IB6
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 13.3.2001 23:25:22
Zdravim.
Skusam toto:
-------------------------------------------
alter table BANVYPIS
add constraint FK_BANVYPIS_STREDISKO
foreign key (STREDISKO)
references STREDISKA(CISLO)
on update CASCADE
-------------------------------------------
Polozka v tabulke banvypis je takto vytvorena:
STREDISKO D_STREDISKO collate WIN1250
v tabulke STREDISKA je takto vytvorena:
CISLO D_STREDISKO NOT NULL collate WIN1250
a este je na nu dany aj UNIQUE index
domena D_STREDISKO je vytvorena takto:
CREATE DOMAIN D_STREDISKO AS VARCHAR(8) CHARACTER SET WIN1250 COLLATE
WIN1250
a neustale mi hlasi takuto hlasku:
unsuccessful metadata update
STORE RDB$REF_CONSTRAINTS failed
action cancelled by trigger (1) to preserve data integrity
Name of Referential Constraint not defined in constraints table
pre istotu som vymazal obe tabulky. A toto sa mi stava bezne ze mi to nejde
vytvorit a uz som z toho zufaly.
Dakujem za kazdy mail.
Roland - zufalec;
MessageDlg
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 13.3.2001 23:27:59
Ahoj,
a) pocestit si Consts.pas a Dialogs.pas
NEBO
b) http://www.localizator.com/localize/czech/
B je spravne...postupujes do dalsiho kola:)))
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Pavel Kupka
> Sent: Tuesday, March 13, 2001 10:51 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: MessageDlg
>
>
> Nevite, existuje nejaka cesla verze funkce MessageDlg? Nelibi se
> mi Yes, No, chci Ano, Ne atd.
> Application.MessageBox mi nevyhovuje.
> Diky
> Pavel Kupka
>
> MessageDlg
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.3.2001 23:33:36
Treba made by PV ;-)
function amMessBox(const Text: string; Flags: Word): Integer;
begin
with Application do Result := MessageBox(PChar(Text), PChar(Title), Flags);
end;
Mac
----- Original Message -----
From: "Pavel Kupka" <pavel.kupka(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 10:50 PM
Subject: MessageDlg
> Nevite, existuje nejaka cesla verze funkce MessageDlg? Nelibi se mi Yes,
No, chci Ano, Ne atd.
> Application.MessageBox mi nevyhovuje.
> Diky
> Pavel Kupka
>
>dodatek k Ovladani CD-Rom mechaniky
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 13.3.2001 23:53:34
Obcas to vysunuti zadnou chybu nezpusobi, vetsinou staci chvili pockat po
spin-downu mechaniky a proves 'Eject'..
ale i tak - nevim nevim.
----- Original Message -----
From: "Jan Skopov�" <jsdelphi(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 12:00 AM
Subject: Re: Ovladani CD-Rom mechaniky
> Mozna by bylo lepsi poslat rutinu pro prehravani videa.
>
> Jan Skopovy
>
> ----- Original Message -----
> From: Petr Ha#lar <rincewind(zv)volny(tec)cz>
> To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, March 12, 2001 7:42 PM
> Subject: Ovladani CD-Rom mechaniky
>
>
> > Ahoj,
> > mam problem s vysouvanim video CD - kdyz ho pomoci nize popsane
procedury
> > vysunu (ale az po prehrani videa), tak mi naskoci 'modra obrazovka
smrti',
> > ve ktere po me windows (98SE) chteji opetovne vlozeni cedecka do
> mechaniky.
> > Z CD by pritom nemel zadny program nic nacitat ! Da se to nejak
odstranit?
> >
> > Diky za kazdou radu.
> >
> > S pozdravem
> > Petr Ha#lar
> >
> > pouzivam takovouto proc. na ovladani cd-rom :
> >
> > procedure OpenCloseCdDrive(const OpenMode: Boolean; const Drive: Char);
> > const
> > OpenCmd: array [Boolean] of DWORD =
> > (MCI_SET_DOOR_CLOSED, MCI_SET_DOOR_OPEN);
> > var
> > Mci: TMCI_Open_Parms;
> > MciResult: MCIERROR;
> > Param: DWORD;
> > DriveName: array[0..2] of Char;
> > begin
> > Param := MCI_OPEN_TYPE or MCI_OPEN_TYPE_ID;
> > FillChar(Mci, SizeOf(Mci), #0);
> > Mci.lpstrDeviceType := PChar(MCI_DEVTYPE_CD_AUDIO);
> > if Drive <> #0 then
> > begin
> > Mci.lpstrElementName := StrFmt(DriveName, '%s:', [UpCase(Drive)]);
> > Inc(Param, MCI_OPEN_ELEMENT);
> > end;
> > MciResult := MciSendCommand(0, MCI_OPEN, Param, Cardinal((zv)Mci));
> > if mciResult <> 0 then
> > raise Exception.Create('Error');
> > MciSendCommand(Mci.wDeviceID, MCI_SET, OpenCmd[OpenMode], 0);
> > MciSendCommand(Mci.wDeviceID, MCI_CLOSE, 0, 0);
> > end;
> >
> >
>
>Spoluprace Delphi & MS Wordu
[*] bosnis(zv)yo(tec)cz - 14.3.2001 05:35:11
Napadaji mne tyto varianty:
1) v sablone muzes mit automaticke makro, a v nem provest co by bylo
potrebne, asi nejlepsi (WordBasic)
Macro name When it runs
------------------------------
AutoExec When you start Word or load a global template
AutoNew Each time you create a new document
AutoOpen Each time you open an existing document
AutoClose Each time you close a document
AutoExit When you quit Word or unload a global template
2) pokud potrebujes jmeno posledne ulozeneho souboru pak
pomoci prikazu (WordBasic)
CommandBars("File").Controls.Item(x).Caption
prochazet menu Soubor, kde musi byt zapnuta nabidka posledne
editovanych souboru posledni soubor bude zacinat "&1 "
----------------------------
Ing. Pavel SPEJTEK
bosnis(zv)yo(tec)cz
http://freeweb.starweb(tec)cz/ps
----------------------------
Citace Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz>:
> Nazdar
> Resim takovyto problem. Mam v aplikaci na vyber seznam sablon. Kdyz
si z
> nich jednu vyberu otevre se Word a v nem vytvorim novy dokument a
ten
> ulozim. Potrebuji zjistit, pok jakym jmenem se novy dokument
> ulozil.Nevite nekdo jak na to ? Zkousel jsem pouzit OLE, ale to se
mi
> nezda jako moc schudne reseni.
> S pozdravem
> Dusan Fojtik
> fojtikd(zv)tescosw(tec)cz
> TSHFileOpStruct - vice adresaru v pTo
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 14.3.2001 05:57:22
Cau,
jednotlive adresare oddelis #0
pTo:= 'C:\'#0 + 'C:\MAIL\'#0 + 'C:\MAIL\OUT\'#0#0
Ladap
>>> ivo.karkoska(zv)accubatt.ktv-ova(tec)cz 13.3.01 19:55 >>>
Zdravim.
Uz se tim trapim nekolik dni a porad na to ne a ne prijit. Potreboval bych, aby
se v parametru pTo dalo nejak zadat vice adresaru, do kterych bych mohl z pFrom
kopirovat. Je nejaka moznost v API a nebo existuje neco jineho pro kopirovani
vice souboru do vice destinaci ?
Ivo Karkoska
------------------------------------
var
FileOp: TSHFileOpStruct;
begin
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom := 'L:\FILES\*.txt'#0#0;
pTo := 'C:\MAIL\OUT\\'#0#0;
fFlags := FOF_SILENT + FOF_NOCONFIRMATION;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Error');
Heslo a zip soubor
[*] Zaplik <zaplik(zv)volny(tec)cz> - 14.3.2001 06:48:17
Zdravim
Moc by mne zajimalo, jestli je mozne pokud znam heslo, pod kterym je zip
soubor zabalen, toto heslo zmenit , aniz bych musel soubor rozbalit a znovu
zabalit. Pro rozbalovani pouzivam komponenty DynaZip32, ale pokud by to melo
nejak jit, nebranim se zmene. Osobne si ale myslim, ze to bez prebalovani
nepujde. Pouziva se snad heslo jako komprimacni klic?
D5, W98-W2000
dik Zaplik
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
Chyba pri vytvarani Foreing key na IB6
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 14.3.2001 07:01:59
Napsal jsem to takto :
CREATE DOMAIN D_STREDISKO AS VARCHAR(8) CHARACTER SET WIN1250 COLLATE
WIN1250;
create table banvypis
(
stredisko d_stredisko
);
create table strediska
(
cislo d_stredisko not null unique
);
alter table BANVYPIS
add constraint FK_BANVYPIS_STREDISKO
foreign key (STREDISKO)
references STREDISKA(CISLO)
on update CASCADE
a jede to jako po masle.
Asi bude problem v tom ze jsi se mu snazil vnutit dvakrat collate Win1250 (v
deklaraci domeny i ve vytvareni tabulky), ale netvrdim to. Kazdopadne tak
jak jsem to tady napsal to jede.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 13, 2001 11:25 PM
Subject: Chyba pri vytvarani Foreing key na IB6
> Zdravim.
>
> Skusam toto:
> -------------------------------------------
> alter table BANVYPIS
> add constraint FK_BANVYPIS_STREDISKO
> foreign key (STREDISKO)
> references STREDISKA(CISLO)
> on update CASCADE
> -------------------------------------------
> Polozka v tabulke banvypis je takto vytvorena:
>
> STREDISKO D_STREDISKO collate WIN1250
>
> v tabulke STREDISKA je takto vytvorena:
>
> CISLO D_STREDISKO NOT NULL collate WIN1250
> a este je na nu dany aj UNIQUE index
>
> domena D_STREDISKO je vytvorena takto:
>
> CREATE DOMAIN D_STREDISKO AS VARCHAR(8) CHARACTER SET WIN1250 COLLATE
> WIN1250
>
> a neustale mi hlasi takuto hlasku:
>
> unsuccessful metadata update
> STORE RDB$REF_CONSTRAINTS failed
> action cancelled by trigger (1) to preserve data integrity
> Name of Referential Constraint not defined in constraints table
>
> pre istotu som vymazal obe tabulky. A toto sa mi stava bezne ze mi to
nejde
> vytvorit a uz som z toho zufaly.
>
> Dakujem za kazdy mail.
>
> Roland - zufalec;
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
OT: Ochrana freeware proti piratstvi?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 14.3.2001 07:08:50
Ostatne ze se bojite
> neco vyplnovat je vec nazoru a medii. Ja osobne radeji vyplnim
> formular treba u drive zminovaneho vmware a dostanu seriove cislo, nez
> abych sel a ukradl si ho, nebo hledal nejake alternativy. Proc by me
> mel bolet email, ci jmeno nebo ma profese?
Nemyslim, ze jde o strach, ale spis pohodlnost. Jestlize na
internetu neco hledam a najdu 5 free programu, ktere by mozna
mohly resit muj problem, vyzkousim si napred ty, ktere po me nic
nechteji, a az "teprve v pripade nouze" ty ostatni, kde se musi
neco vyplnovat. Zejmena v pripadech, kdy se ma posilat pohlednice
nekam do ciziny apod.
David Lebeda
KonfView
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.3.2001 07:38:53
> To ano, ale IB me kazdodenne presvedcuje, ze je sice skvelou
> nahradou za Paradox, ale jinak je to bez dalsich a dalsich
> ,,pluginu`` nepouzitelne pro seriozni praci.
jakych pluginu? ja ji pouzivam celkem bez problemu, na rozdil od M$DE,
ktery jsem v sice rozjel, ale bez dalsich M$ nastroju to bylo
nepouzitelny ;).
> Nechci tim ovsem vyvolat flamewar.
ani ja ne, ale vazne by me zajimalo, co ti v IB chybi?
pokud vim, tak snad jedina zasadni vec by mohly byt replikace a zatim
jsem je nepotreboval. mozne ze az se s repl. setkam, zmenim nazor. zatim
u me vyhrava IB, predevsim:
win i linux
hromada komponent od ruznych autoru
hromada administracnich nastroju od ruznych autoru
cenova dostupnost a rychlost vyvoje
> pouze rikam svuj nazor podlozeny neprijemnymi
> zkusenostmi.
> Slavek
rad bych vedel jakymi neprijemnymi, mohlo by to upozornit na nejake
nedostatky, ktere jsem neobjevil.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Spoluprace Delphi & MS Wordu
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 14.3.2001 07:49:06
A proc si ho neulozis pod svym definovatelnym nazvem ???
My pouzivame tuto konstrukci (pres DDE):
makro = "[FileOpen(\""+TemplatePath()+da["sablona"]+"\")]"+
"[MailMergeToDoc]"
makro = "[Activate \""+DAName["Name"]+DAName["Ext"]+"\"]"+
"[DocClose 2]"+
"[EditSelectAll]"+
"[On Error Goto pokracuj]"+
"[UnlinkFields]"+
"[pokracuj:]"+
"[FileSaveAs .Name = \""+da["dokument"]+"\"]"+
"[DocClose 2]"+
"[FileOpen(\""+da["dokument"]+"\")"
Je to sice z paradoxu, ale funguje to i s Wordem 2000.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf
> Of Dusan Fojtik
> Sent: Tuesday, March 13, 2001 6:47 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Spoluprace Delphi & MS Wordu
>
>
> Nazdar
> Resim takovyto problem. Mam v aplikaci na vyber seznam sablon. Kdyz si z
> nich jednu vyberu otevre se Word a v nem vytvorim novy dokument a ten
> ulozim. Potrebuji zjistit, pok jakym jmenem se novy dokument
> ulozil.Nevite nekdo jak na to ? Zkousel jsem pouzit OLE, ale to se mi
> nezda jako moc schudne reseni.
> S pozdravem
> Dusan Fojtik
> fojtikd(zv)tescosw(tec)cz
ControlBar & ToolBar v MDI aplikaci
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 14.3.2001 07:49:46
Zdravim vsechny!
Potreboval bych poradit s jednim problemem. Mozna by stacilo mne nasmerovat
na nejake priklady nebo odkazy na web.
Delam MDI aplikaci, ve ktere mam toolbary umistene v controlbaru. Chci
dosahnout toho, aby si uzivatel mohl uskladat toolbary jak se mu libi,
pripadne si je vytahnout a zase zadokovat zpet do controlbaru (to by snad az
takovy problem nemel byt, ale priklad by bodnul). Hlavni vec, kterou zatim
neumim vyresit je to, aby se toolbary chovaly korektne, kdyz menim velikost
hlavniho okna aplikace. Toolbary se zmensuji, a kdyz je pak preskladam a
hlavni okno zvetsim, tak se toolbary nezvetsuji a tlacitka zustavaji
nepristupna.
Chtel bych, aby se toolbary chovali stejne jako v hlavnim ovladacim okne
Delphi. At je skladam jak chci a okno zmensuji nebo zvetsuji, mam je porad
korektne k dispozici.
Predem diky za napady
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001
Database paradox
[*] borkovec(zv)email(tec)cz - 14.3.2001 08:06:41
Z mych funkcnich zkusenosti:
1. BDE Local share nastavit jako TRUE (u klientu i na serveru - nebo tam,
kde jsou data)
2. Z klientu namapovat sdilenz datovy disk pod stejnym pismenem
3. Nastavit cestu Pdoxusr.net na tento sdileny disk z klientu i ze serveru
4. Nastavit alias z klientu i ze serveru opet na tento disk
Aby se zabranilo hlasce Record Locked (pesimisticky pristup Paradoxu) je dobre
v aplikaci napr. Timerem postovat otevrene zaznamy. Samozrejme na vyjimku
- neni dobre zavirat polozku v polovine. Docela se mi osvedcil timer na 60000.
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
CoUninitialize a EAccessViolation - VYRESENO
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 14.3.2001 08:42:37
> ComObj (nebo jak se jmenuje) cpe do promenne InitProc adresu procedury
ktera obsahuje volani CoInitialize. Form (resp asi TApplication) pak
InitProc vola behem Application.Initialize. ComObj ve
Finalization pak jeste vola CoUninitailze...
To sem si vsiml, ale podle meho by jedno volani
CoInitializeEx/CoUninitialize navic nemelo byt vubec na skodu.
Jenomze jaxe zda, je :). Rekl bych, ze tam dochazi
k tomu, ze diky tem inicializacnim/finalizacnim proceduram
dojde k tomu, ze CoInitializeEx se neprovede, ale
provede se k nemu korespondujici CoUninitialize,
takze moje volani CoUninitialize je tam pak navic.
No a takovehle veci me na Delphi stvou daleko
nejvic.
Ondrej Krajicek
--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------
Database paradox
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 14.3.2001 08:42:20
Ve strucnosti :
1) V BDE nastavit adresar NET DIR . Tady ale doporucuji pouzit property
TSession.NetFileDir a NET DIR si nastavit pro vlastni aplikaci. Pokusy u
vetsich instalaci jsme zjistili, ze PARADOX nezpomaluje ani tak pocet
potevrenych tabulek na siti, ale pocet prihlaseni k danemu souboru
PARADOX.NET. Ale muzes si to nastavit i na spolecny. Dalsi vyyhoda je ta, ze
Ti nikdo v BDE adminu nezrusi nastaveni NETDIRu.
2) V programu nastavit property TSession.PrivateDir nekam na lokalni disk,
nejlepe do TEMP adresare. Private dir je adresar, kde si paradox vytvari
pomocne soubory a je zbytecne nechat to valet na siti - proc taky? Defaultne
si to myslim bere jako adresar aplikace.
3) Podle toho soubor net.cfg - to mas jeste 16-ti bit paradox?
==================================
ing. Martin Lasevi�
Software specialist
Office :
ratiopharm CZ, s r. o.
B�lehradsk� 54
120 00 Praha 2
tel.: +420 2 510 21 130
fax.: +420 2 510 21 123
mobil +420 602 298 904
mlasevic(zv)ratiopharm(tec)cz
http://www.ratiopharm(tec)cz
==================================
-----Original Message-----
From: josef kyn [mailto:jkyn(zv)iol(tec)cz]
Sent: Tuesday, March 13, 2001 10:04 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Database paradox
Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
paradoxu.
Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a nicily
se indexy.
dekuji za kazd� podnet Josef K�n
OT: Ati Rage 128 Pro
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.3.2001 08:49:25
Ahoj.
1)
Po nainstalovani ovladacu pro kartu viz %sub%.
Se mi pri kazdem startu windowsu objevi hlaska
WARNING: Failed to open Registry handle in ATIPool.
Nevite nekdo v cem je chyba?
2)
Tato karta ma video-vstup.
Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila snimani obrazu
v urcitem okamziku..
Nebo nejake rady, komponety atd.
Prede dekuji..
Dalibor
Zpravy pri aktivovanem menu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 14.3.2001 08:58:46
From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> Treba se jenom nemuzeme domluvit. Testovaci program
> posilam na soukr. mail a rekl bych, ze se Menu na ToolBaru
Ahoj,
dekuji za pomoc. Nyni je jasne v cem byl rozdil. Pri menu na
ToolBaru to opravdu funguje vse jak jsi v poslednim prispevku psal
a pokud mys zajede mimo menu tak do nej chodi i mysi zpravy.
Ja jsem to vzdy zkousel pouze s MainMenu nebo PopupMenu,
protoze prave o to mi slo. Z urcitych posetilych duvodu jsem totiz
nechtel pouzit ToolBar, ale svoji nahrazku ToolBaru, ale zrejme
jsem se nejasne vyjadril.
Jadro meho problemu tedy je otazka: Jak zjistim, kde se mi toula
mys, mam-li rozbalene MainMenu nebo PopupMenu a tez jak
zjistim pri rozbalenem PopupMenu stisk klavesy.
Jiri Binder
Heslo a zip soubor
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 14.3.2001 09:00:03
Bez rozbalovani by to melo jit, ale musis do desifrovat starym klicem a
znovu zasifrovat podle noveho klice viz. nize.
Michal
{-----------------------------------------------------------------------------}
{ PKZIP ENCRYPTION ALGORITHM
}
{-----------------------------------------------------------------------------}
{
Decryption
----------
The encryption used in PKZIP was generously supplied by Roger
Schlafly. PKWARE is grateful to Mr. Schlafly for his expert
help and advice in the field of data encryption.
PKZIP encrypts the compressed data stream. Encrypted files must
be decrypted before they can be extracted.
Each encrypted file has an extra 12 bytes stored at the start of
the data area defining the encryption header for that file. The
encryption header is originally set to random values, and then
itself encrypted, using 3, 32-bit keys. The key values are
initialized using the supplied encryption password. After each byte
is encrypted, the keys are then updated using psuedo-random number
generation techniques in combination with the same CRC-32 algorithm
used in PKZIP and described elsewhere in this document.
The following is the basic steps required to decrypt a file:
1) Initialize the three 32-bit keys with the password.
2) Read and decrypt the 12-byte encryption header, further
initializing the encryption keys.
3) Read and decrypt the compressed data stream using the
encryption keys.
Step 1 - Initializing the encryption keys
-----------------------------------------
Key(0) <- 305419896
Key(1) <- 591751049
Key(2) <- 878082192
loop for i <- 0 to length(password)-1
update_keys(password(i))
end loop
Where update_keys() is defined as:
update_keys(char):
Key(0) <- crc32(key(0),char)
Key(1) <- Key(1) + (Key(0) & 000000ffH)
Key(1) <- Key(1) * 134775813 + 1
Key(2) <- crc32(key(2),key(1) >> 24)
end update_keys
Where crc32(old_crc,char) is a routine that given a CRC value and a
character, returns an updated CRC value after applying the CRC-32
algorithm described elsewhere in this document.
Step 2 - Decrypting the encryption header
-----------------------------------------
The purpose of this step is to further initialize the encryption
keys, based on random data, to render a plaintext attack on the
data ineffective.
Read the 12-byte encryption header into Buffer, in locations
Buffer(0) thru Buffer(11).
loop for i <- 0 to 11
C <- buffer(i) ^ decrypt_byte()
update_keys(C)
buffer(i) <- C
end loop
Where decrypt_byte() is defined as:
unsigned char decrypt_byte()
local unsigned short temp
temp <- Key(2) | 2
decrypt_byte <- (temp * (temp ^ 1)) >> 8
end decrypt_byte
After the header is decrypted, the last two bytes in Buffer
should be the high-order word of the CRC for the file being
decrypted, stored in Intel low-byte/high-byte order. This can
be used to test if the password supplied is correct or not.
Step 3 - Decrypting the compressed data stream
----------------------------------------------
The compressed data stream can be decrypted as follows:
loop until done
read a charcter into C
Temp <- C ^ decrypt_byte()
update_keys(temp)
output Temp
end loop
}
On Wed, 14 Mar 2001, Zaplik wrote:
> Zdravim
> Moc by mne zajimalo, jestli je mozne pokud znam heslo, pod kterym je zip
> soubor zabalen, toto heslo zmenit , aniz bych musel soubor rozbalit a znovu
> zabalit. Pro rozbalovani pouzivam komponenty DynaZip32, ale pokud by to melo
> nejak jit, nebranim se zmene. Osobne si ale myslim, ze to bez prebalovani
> nepujde. Pouziva se snad heslo jako komprimacni klic?
> D5, W98-W2000
>
> dik Zaplik
> zaplik(zv)volny(tec)cz
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
>
FileVersion
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 14.3.2001 09:01:55
Zdravim,
V D4Pro ve volbe "Project/Options Shift+Ctrl+F11" je mozne nastavit Version Info. Jak tyto informace za behu programu prectu.
Jsou tyto informace jenom interni zalezitost, nebo lze je nejak zakompilovat do EXE a pak tyto informace cist.
Diky za radu
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~MainMenu a ShortCut
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 14.3.2001 09:06:03
Zdravim,
muj dotaz nejak zapadl a pokusim se zeptat jeste jednou:
Potrebuji zadat netypicke kombinace klaves ktere nejsou uvedeny v ShortCut.
V MainMenu1 potrebuji u ShortCut zadat napr. Ctrl+PageUp, ktere nejsou v nabidce
Napr. Ctrl+Home lze zadat, i kdyz v nabidce neni.
Ctrl+Space taky lze zadat - ale pro uzivatele bych chtel aby videli Ctrl+Mezern�k
Diky za rady
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~FileVersion
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 14.3.2001 09:19:14
Zdravim,
V D4Pro ve volbe "Project/Options Shift+Ctrl+F11" je mozne nastavit Version
Info. Jak tyto informace za behu programu prectu.
Jsou tyto informace jenom interni zalezitost, nebo lze je nejak zakompilovat
do EXE a pak tyto informace cist.
Diky za radu
Pavel
Ahoj,
ja pouzivam tohle:
function GetVersionText : string;
var
V1, V2, V3, V4 : word;
VerInfoSize : DWORD;
VerInfo : Pointer;
VerValueSize : DWORD;
VerValue : PVSFixedFileInfo;
Dummy : DWORD;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
if VerInfoSize = 0 then
begin
Result := 'unknown';
end
else
begin
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
Result := Format('%d.%d.%d.%d', [V1, V2, V3, V4]);
end;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
MessageDlg
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 14.3.2001 09:35:42
Edge komponentoch je TEMSG komponent vyprogramovany. Tam mozes pouzit
lubovolne buttony.
Komponenty naides na nizsie uvedenych strankach.
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli
NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )
> -----P�vodn� zpr�va-----
> Od: Pavel Kupka [SMTP:pavel.kupka(zv)atlas(tec)cz]
> Odesl�no: 13. marec 2001 22:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: MessageDlg
>
> Nevite, existuje nejaka cesla verze funkce MessageDlg? Nelibi se mi Yes,
> No, chci Ano, Ne atd.
> Application.MessageBox mi nevyhovuje.
> Diky
> Pavel Kupka
OT: skladani PC
[*] Ji�� Kr�l jr. - 14.3.2001 09:41:22
Dobry den,
prosim neznate nekdo co presne musi po pravni strance splnovat firma, ktera
chce skladat PC z dilu a prodavat hotove sestavy?
diky
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
Database paradox
[*] brant(zv)dcomm(tec)cz - 14.3.2001 09:43:03
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Mjusis na kazde stanici nakonfigurovat BDE (pomoci BDE Administratoru) a to
tak, ze polozku Configuration/drivers/native/paradox/net dir nastavis na
vsech stanicich fyzicky i logicky stejne a polozku system/init/localshare
nastavis na true. Samozrejme do adresare net dir musi byt garantovan plny
pristup. To je zakladni nastaveni a to ostatni se nastavi podle potreby.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: josef kyn [mailto:jkyn(zv)iol(tec)cz]
Sent: Tuesday, March 13, 2001 10:04 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Database paradox
Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
paradoxu.
Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a nicily
se indexy.
dekuji za kazd� podnet Josef K�n
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001
FileVersion
[*] daniel.hrna(zv)sme(tec)cz - 14.3.2001 09:48:11
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Kdy� zkompiluje# EXE tak si n�m (p��mo na n�m) klepni prav�m a vlastnosti.
Tam to je.
-----Original Message-----
From: Pavel ZIDEK [mailto:delphi(zv)kopr(tec)cz]
Sent: Wednesday, March 14, 2001 9:02 AM
To: Konference DELPHI forum
Subject: FileVersion
Zdravim,
V D4Pro ve volbe "Project/Options Shift+Ctrl+F11" je mozne nastavit Version
Info. Jak tyto informace za behu programu prectu.
Jsou tyto informace jenom interni zalezitost, nebo lze je nejak zakompilovat
do EXE a pak tyto informace cist.
Diky za radu
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz <mailto:kopr(zv)kopr(tec)cz>
http://www.kopr(tec)cz/w-delphi.htm <http://www.kopr(tec)cz/w-delphi.htm>
http://www.kopr(tec)cz <http://www.kopr(tec)cz>
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
Ati Rage 128 Pro
[*] Ji�� Kr�l jr. - 14.3.2001 09:52:51
>>2)
>>Tato karta ma video-vstup.
>>Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila
>>snimani obrazu
>>v urcitem okamziku..
nechci ti kazit radost, ale pochybuju, ze je to TV-in. Ten maji pouze ATI
rady All-in-Wonder
ostatni maji nanejvys TV-out pro video vystup na TV/VCR
J.
FileVersion
[*] Ji�� Kr�l jr. - 14.3.2001 10:02:12
nasel jsem to v KonfView
a neposilej do konfery HTML mejl, Admin to nema rad a hned se pere :-))
J.
odpoved:
moznosti mas nekolik. Jedna je na
http://atrey.karlin.mff.cuni(tec)cz/~rk/fileversion.shtml (komponenta
cetne zdroje).OT- Self-extractor
[*] honza.dforum <honza.dforum(zv)atlas(tec)cz> - 14.3.2001 10:05:23
Ja jsem tento problem kdysi resil takto. To co chci rozbalit jsem ulozil do
RES a skompiloval. Program si pri rozbalovani vytahl vsechno ze sv�ch
resource a to ulozil venku
a spustil a je to. A to vsechno za behu.
Honza
>-----Original Message-----
>Prosim Vas, nevite nekdo o free self-extractoru, ktery by:
>po jeho spusteni rozbalil obsah archivu a potom spustil aplikaci rozbalenou
>z archivu. Musi umet zvolit, jestli chci uzivateli dat moznost vyberu cesty
>pro rozbaleni nebo ne. Dale nechci potvrzovani dialogu typu
>provest/neprovest, spustit/nespustit. Plne by mi vyhovoval extractor z
>Salamanderu 1.6beta, ale autori chteji cca. 2000,- .Hlavne aby byl bez
>reklam!!!!
>Dik Zaplik
Odchoz� zpr�va je uplne v poradku.
Zkontrolov�no antivirov�m syst�mem BABICKA(http://www.griotkasoft(tec)cz).
Verze: 0.0.226b / Virov� b�ze: 1 - datum vyd�n�: 1.1.1991 :)MessageDlg
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 14.3.2001 10:09:42
Ahoj zkus tuto f-ci.
function TfrmHlavni.MsgDlg(AText, ACaption: String; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): TModalResult;
var
B:TButton; i:Integer;
begin
with CreateMessageDialog(AText,DlgType,Buttons) do
try
Caption:=ACaption;
for i:=0 to ControlCount-1 do begin
try
B:=Controls[i] as TButton;
case B.ModalResult of
mrCancel : B.Caption:='&Storno';
mrAbort : B.Caption:='&P�eru#it';
mrRetry : B.Caption:='&Znovu';
mrIgnore : B.Caption:='&Ignorovat';
mrYes : B.Caption:='&Ano';
mrNo : B.Caption:='&Ne';
mrAll : B.Caption:='&V#echno';
mrYesToAll : B.Caption:='An&o v#em';
mrNoToAll : B.Caption:='N&e v#em';
end;
except
continue;
end;
end;
Result:=ShowModal;
finally
Free;
end
end;
Ahoj
Filip
TreeView, StateImages a StateIndex
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 14.3.2001 10:11:44
Zdravim,
vyskytl se mi jeden problem. V ImageList mam tri ikony (cislovane jsou 0, 1,
2). Tento seznam vyuziva TreeView coby StateImages. Pokud nejakemu uzlu
priradim StateIndex 1 nebo dva, tak to tu ikonu zobrazi spravne. Pokud ale
zadam 0, tak se nezobrazi nic. Koukal jsem do helpu, jestli neni treba nulty
index nejak specialni, ale zjistil jsem, ze pro nevykresleni ikony ma byt
StateIndex -1.
Nevite nekdo, jestli je to chyba Delphi nebo jak se to da opravit?
Mam D4.
Diky
Petr
Jak zjistit minimalizovane okno.
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 14.3.2001 10:45:08
Nevite jak zjistim z Delphi 5 jestli nejake okno je minimalizovane ?
Znam jen jeho handl. Diky.
Z.Kalhous
MDI aplikace a Master-Detail tabulky
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 14.3.2001 10:47:35
Zdravim,
Mam aplikaci, ktera otevira DBF soubory. Uzivatel si jich muze otevrit vice (MDI aplikace). Chtel bych, aby si uzivatel mohl nastavit vztah mezi dvema otevrenyma tabulkama.
Vim, ze se toto nastavuje v Table (MasterSource,...), jenomze to je vzdy Table1, vzhledem k tomu, ze vsechny formulare jsou MDIChild.
Muzete mi prosim nekdo poradit?
Dekuji.
Mirek Drejcek.
Prehravac Flash ve formulari
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 14.3.2001 10:53:50
Zdravim vsechny,
zajimalo by me jest-li nevite o nejakem zpusobu jak prehrat ve formulari
FLASH animaci.
Za kazdou radu dik.
Petr.TGroupControl
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.3.2001 10:59:23
On 13 Mar 2001, at 20:07, Jan Skopov� wrote:
> a) myslim zmenu jmena komponenty na formulari
> b) nemohu povesit udalost na zmenu jmena libovolne komponenty na
> formulari
>
> Vysvetleni:
> Ja si chci ze vsech komponent na formulari vytvorit nejaky seznam,
> ktery bude cast techto komponent obsahovat (muze obsahovat pouze
> komponenty na formulari, ale nemusi obsahovat vsechny komponenty).
> Tento seznam neumi odchytavat nejake zpravy o zmene jmena komponent na
> formulari.
Porad jeste nevim, jak to mas udelane. Na tom hodne zalezi. Kdyz
v seznamu nemusi byt vsechny komponenty, pak to mas mozna
nejak takto:
MujList := TObjectList.Create;
for i := 0 to Pred(ControlCount) do
if ... then MujList.Add(Controls[i]);
A kdyz zmenis jmeno komponenty
TControl(MujList[Index]).Name := 'Blabla';
(samozrejme s kontrolou duplicity), tak se ti to automaticky
promitne vsude.
Takovy seznam lze i tridit, muzes si z nej zobrazit seznam jmen i
ListBoxu nebo kdekoliv jinde (s trochou programovani). V cem je
tedy problem?
> Jan Skopovy
>
> ----- Original Message -----
> From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, March 13, 2001 11:26 AM
> Subject: Re: TGroupControl
>
>
> > On 12 Mar 2001, at 23:57, Jan Skopov� wrote:
> >
> > > Mam nasledujici problem. Omlouvam se pokud to bude obsahlejsi.
> > >
> > > (Pisi o design modu)
> > >
> > > Vytvarim si v podstate jednoduchou nevisualni komponentu, ktera
> > > obsahuje seznam vybranych trid (komponent odvozenych pres
> > > TControl). Neni problem zobrazit seznam dostupnych trid na
> > > formulari a potrebny seznam si vytvorit. Neni problem udrzovat
> > > seznam, pokud nejakou tridu (komponentu) zrusim. Az potud je to
> > > snadne.
> > >
> > > Co ale nevim je, jak mam poznat, ze jsem nejakou tridu
> > > (komponentu) prejmenoval. Pokud tridu (komponentu) prejmenuji a
> > > pote si vlezu do editace meho seznamu trid, vse se mi opravi
> > > protoze si pamatuji pointer na zvolene tridy.
> >
> > Nerozummim. Prejmenovavas TControl.Name, nebo treba TEdit na
> > TNovyEdit???
> >
> > > Pokud ale zapomenu vlezt do tohoto seznamu, tak se mi jmena
> > > neopravi a ... a tim jsem v coudu, protoze pointer v design a
> > > runtime je pochopitelne jiny. Takze v runtime musim dohledat
> > > pointery na tridy (komponenty) podle jejich jmena.
> > >
> > > Lze si v design modu vytvorit vnitrni timer, ktery mi bude seznam
> > > neustale kontrolovat a opravovat jej podle potreby. To funguje,
> > > ..., ale je to prasarna.
> >
> > A coz takhle na zmenu jmena povesit udalost, ktera automaticky
> > projde vsechny seznamy a provede nutne upravy?
> >
> > Ale obecne poradit neumim, protoze nevim, co vlastne chces delat.
> > Takhle si vybavuji nekolik variant, ale kazda se resi uplne jinak.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
FileVersion
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 14.3.2001 11:01:29
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
procedure TForm1.BuildInfo(Files: PChar; var I1, I2, I3, I4: Word);
var
InfoSize : DWord;
Info : Pointer;
ValueSize : DWord;
Value : PVSFixedFileInfo;
Dummy : DWord;
begin
InfoSize := GetFileVersionInfoSize(Files, Dummy);
if InfoSize = 0 then begin
Dummy := GetLastError;
I1 := 0; I2 := 0;
I3 := 0; I4 := 0;
Exit;
end;
GetMem(Info, InfoSize);
GetFileVersionInfo(Files, 0, InfoSize, Info);
VerQueryValue(Info,'\', Pointer(Value), ValueSize);
with Value^ do begin
I1 := dwFileVersionMS shr 16;
I2 := dwFileVersionMS and $FFFF;
I3 := dwFileVersionLS shr 16;
I4 := dwFileVersionLS and $FFFF;
end;
FreeMem(Info, InfoSize);
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
var
I1, I2, I3, I4: Word;
begin
BuildInfo(PChar(FileListBox1.FileName),I1, I2, I3, I4);
Label5.Caption := IntToStr(I1);
Label6.Caption := IntToStr(I2);
Label7.Caption := IntToStr(I3);
Label8.Caption := IntToStr(I4);
end;
-----Original Message-----
From: Pavel ZIDEK [mailto:delphi(zv)kopr(tec)cz]
Sent: Wednesday, March 14, 2001 9:02 AM
To: Konference DELPHI forum
Subject: FileVersion
Zdravim,
V D4Pro ve volbe "Project/Options Shift+Ctrl+F11" je mozne nastavit Version
Info. Jak tyto informace za behu programu prectu.
Jsou tyto informace jenom interni zalezitost, nebo lze je nejak zakompilovat
do EXE a pak tyto informace cist.
Diky za radu
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz <mailto:kopr(zv)kopr(tec)cz>
http://www.kopr(tec)cz/w-delphi.htm <http://www.kopr(tec)cz/w-delphi.htm>
http://www.kopr(tec)cz <http://www.kopr(tec)cz>
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
OT: Ati Rage 128 Pro
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 14.3.2001 11:03:55
1. zkus posledni verzi ovladacu. Je z 2/2001. Ja mel porad problemy. A ted vse pominulo.
2.urcite ma video vstup? Neni to pouze TV-cinch vystup?
S pozdravem
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
On 14.3.2001 at 8:49 Bednar��k Dalibor wrote:
>Ahoj.
>
>1)
>
>Po nainstalovani ovladacu pro kartu viz %sub%.
>Se mi pri kazdem startu windowsu objevi hlaska
>
>WARNING: Failed to open Registry handle in ATIPool.
>
>Nevite nekdo v cem je chyba?
>
>2)
>Tato karta ma video-vstup.
>Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila snimani obrazu
>v urcitem okamziku..
>Nebo nejake rady, komponety atd.
>
>Prede dekuji..
>
>Dalibor
Nahravani zvuku v Delphi
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.3.2001 11:09:48
Mrkni se do napovedy k MM API a hledej slovicka zacinajici wavein*, je tam tusim i priklad, jinak na www.torry.ru jsem videl zdrojaky...
Roman
> Rozhodl jsem se, ze zkusim naprogramovat neco jako osciloskop v Delphi pres
> zvukovku, proto se chci zeptat, jakym nejlepsim zpusobem ziskavat v Delhi
> data ze zvukove karty...Nejde mi o zadny format, proste jen hola data...
> Mockrat diky,
_____________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
JPEG manipulace
[*] Ji�� Kr�l jr. - 14.3.2001 11:10:00
hledam nej. knihovnu, ve ktere by byla fce na resize JPG obrazku.
hledal jsem na torrym, ale tohle jsem zatim nenasel
prosim doporucte mi neco.
diky
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)JPEG manipulace
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.3.2001 11:11:24
Na resize nejen JPG pouzivam JCL /link si nepamatuju, ale byl tu uz hodnekrat/...
> hledam nej. knihovnu, ve ktere by byla fce na resize JPG obrazku.
> hledal jsem na torrym, ale tohle jsem zatim nenasel
> prosim doporucte mi neco.
>
> diky
_____________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
TWebBrowser
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.3.2001 11:37:30
Ahoj,
Cekal bych, ze problem je v tom, ze se zastavi po dobu cyklu zpracovani
zprav v aplikaci. Ja bych zkusil pouzit problematicke
application.processmessages za navigate2, eventualne bych tim prolozil i
ten cyklus. Nebo ten cyklus do vlastniho vlakna.
Vaclav Sazima
JIM Design wrote:
>
> ahoj,
>
> a co takhle pouzit OnNavigateComplete nebo OnBeforeNavigate, ted nevim
> jestli to je primo v TWebBrowser nebo vkus TEmbeddedWb
> http://www.euromind.com/iedelphi/embeddedwb.htm
>
> M.Jirman
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Sula Milos
> Sent: Monday, March 12, 2001 9:54 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: TWebBrowser
>
> Caute
> pouzivam ve sve aplikaci TWebBrowser. Kdyz dam Navigate2, tak se mi v okne
> zobrazi html stranka jen v pripade ze se ukonci procedura ve ktere Navigate2
> volam, ale ja mam za Navigate2 jeste nejaky cyklus ktery chvili trva a dokud
> se neukonci tak mi to proste nezacne stahovat. Mate s tim nejake zkusenosti
> ?
> dik
OT: Ati Rage 128 Pro
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.3.2001 11:37:19
Ahoj,
1. ja jsem s touhle kartou mel zase jine problemy (kdyz se kreslilo na
VGA, praskalo to ve zvukove karte). Problem jsem odstranil
nainstalovanim novych ovladacu (r. 2001, ty z podzimu 2000 jeste
nefungovaly spravne), treba Ti to pomuze. Bohuzel k tomu chtej Directx8,
takze dohromady jsem musel stahnout skoro 20M.
2.
Pouzit Video for windows (pro delphi komponenta TVideo, nebo
ATI Direct Video Access (DVA), najdes u ATI, Pascal Translation najdes
na JEDI.
Ale myslim si, ze tahle karta ma pouze televizni vystup!.
Vaclav Sazima
Bednar��k Dalibor wrote:
>
> Ahoj.
>
> 1)
>
> Po nainstalovani ovladacu pro kartu viz %sub%.
> Se mi pri kazdem startu windowsu objevi hlaska
>
> WARNING: Failed to open Registry handle in ATIPool.
>
> Nevite nekdo v cem je chyba?
>
> 2)
> Tato karta ma video-vstup.
> Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila snimani obrazu
> v urcitem okamziku..
> Nebo nejake rady, komponety atd.
>
> Prede dekuji..
>
> Dalibor
Dokovani oken
[*] Listuj <listuj(zv)centrum(tec)cz> - 14.3.2001 11:49:05
Zdravim vsechny,
chtel bych se vas zeptat jak v aplikaci vytvorit dokovatelna
okna. To ze to D5 prof. umi vim, dokonce jsem se koukal i do
Developers Quide, ale je toho tam moc malo abych to spravne mohl
pouzit.
Rad bych vytvoril neco, co vypada jako "upravna maker" ve Wordu
nebo Excelu. Tj. Po obvodu dat dokovatelna okna s ruznymi
informacemi a pres hlavni cast MDI okna natahnout formular.
Nemate nekdo nejakou ukazku jak se takove prostredi s dokovanim
tvori? Byl bych vam moc vdecny
Zkousel jsem to, ale napr. s TPanel mi to dela tuto vec.
Zadokuji ho do TCoolBar, jakmile ho prenesu nekam nad plochu tak
je to tak jak to ma vypadat. Pri dalsim kliknuti nebo presunuti
se mi panel zobrazi pouze jako panel bez okolniho ramecku okna,
po dalsim opet jako formular (nedokovany). Prosim prosim o radu.
Dekuji predem a preji prijemny den.
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
dbase a microsoft ODBC
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 14.3.2001 11:54:05
Nevite nekdo jak zakazat translation dbf souboru kdyz ho oteviram pres
microsoft ODBC driver ? mam dbf kde jsou data ulozena ve win1250 ale je tam
ulozena v tom dbf nejspise jina kodova stranka a MS ODBC driver to
automaticky zkonvertuje >:(
diky
Este raz PRADOX na sieti
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 14.3.2001 12:03:27
Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do nej
udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a druhy
podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel riesit
tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale zase
neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
???. Viem ze je to asi blbost ale preto pisem tento mail. :)
Vdaka za radu
S pozdravom,
--------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
ICQ Id: 82600022
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
088/41 25 739 kl.14
--------------------------------------------------------
JPEG manipulace
[*] stingp1.eti(zv)mail.cez(tec)cz - 14.3.2001 12:36:42
> hledam nej. knihovnu, ve ktere by byla fce na resize JPG obrazku.
> hledal jsem na torrym, ale tohle jsem zatim nenasel
> prosim doporucte mi neco.
JCL na http://www.delphi-jedi.org, ale musi se to delat
pres bitmapu, coz zase neni az takovy problem. Na druhou
stranu to zase umi resamplovaci filtry v celkem solidni
kvalite. (procedura Stretch v JCLGraphics)
--------------------------------
Pavel Stingl
mailto: stingp1.eti(zv)mail.cez(tec)cz
--------------------------------
Database paradox
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 14.3.2001 12:39:26
Treba nastavit aj privateDir pre kezeho usera iny ?
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli
NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )
> -----P�vodn� zpr�va-----
> Od: brant(zv)dcomm(tec)cz [SMTP:brant(zv)dcomm(tec)cz]
> Odesl�no: 14. marec 2001 9:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Database paradox
>
> Mjusis na kazde stanici nakonfigurovat BDE (pomoci BDE Administratoru) a
> to tak, ze polozku Configuration/drivers/native/paradox/net dir nastavis
> na vsech stanicich fyzicky i logicky stejne a polozku
> system/init/localshare nastavis na true. Samozrejme do adresare net dir
> musi byt garantovan plny pristup. To je zakladni nastaveni a to ostatni se
> nastavi podle potreby.
>
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
> ICQ # 68652380
>
> D&COMM s.r.o
> Korunovaen� 6
> Praha 7
>
>
> -----Original Message-----
> From: josef kyn [ <mailto:jkyn(zv)iol(tec)cz>]
> Sent: Tuesday, March 13, 2001 10:04 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Database paradox
>
>
> Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
> paradoxu.
> Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a
> nicily
> se indexy.
>
> dekuji za ka�d� podnet Josef K�n
> ---
> Pr�choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG ( <http://www.grisoft(tec)cz>).
> Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001
> Jak zjistit minimalizovane okno.
[*] brant(zv)dcomm(tec)cz - 14.3.2001 12:42:01
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Je na to API funkce BOOL IsIconic(HWND handle okna).
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: Kalhous Zdenek [mailto:zdenek.kalhous(zv)comarr(tec)cz]
Sent: Wednesday, March 14, 2001 10:45 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Jak zjistit minimalizovane okno.
Nevite jak zjistim z Delphi 5 jestli nejake okno je minimalizovane 20
Znam jen jeho handl. Diky.
Z.Kalhous
TV karty
[*] prajz.rumcajs(zv)quick(tec)cz - 14.3.2001 12:49:16
>nechci ti kazit radost, ale pochybuju, ze je to TV-in. Ten maji pouze ATI
>rady All-in-Wonder
>ostatni maji nanejvys TV-out pro video vystup na TV/VCR
Pro zmenu zase pro tebe (asi to bude novinka), je i vicero vyrobcu TV karet,
nejenom ATI. Sam sem jich uz nekolik mel. Co se tyce pristupu na TV kartu a
snimani obrazu, vysla knizka Vuziti rozhrani PC. Je k tomu i CD s knihovnou,
ktera se umi napojit temer na vsechny rozhrani PC (TV, zvukova karta, COM,
LPT, PCI).
S pozdravem RUMcajs, ne-programator
skladani PC
[*] Ing. Ji�� Vojtek - 14.3.2001 12:22:59 -0000
Musi tam byt nekdo, kdo ma 50ku paragraf alespon 8
S pozdravem Jiri Vojtek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ji��
Kr�l jr.
Sent: Wednesday, March 14, 2001 8:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: skladani PC
Dobry den,
prosim neznate nekdo co presne musi po pravni strance splnovat firma, ktera
chce skladat PC z dilu a prodavat hotove sestavy?
diky
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)Nahravani zvuku v Delphi
[*] Ing. Ji�� Vojtek - 14.3.2001 12:22:59 -0000
Neco podobneho je reseno v knize Vyuziti rozhrani PC pro Windows. Tam je to
i se zdrojakama. Neprijemne je, ze na porty se pristupuje pres jejich DLL
coz neni moc ciste vzhledem k jejimu chovani.
S pozdravem Jiri Vojtek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Roman
Sent: Wednesday, March 14, 2001 10:10 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Nahravani zvuku v Delphi
Mrkni se do napovedy k MM API a hledej slovicka zacinajici wavein*, je tam
tusim i priklad, jinak na www.torry.ru jsem videl zdrojaky...
Roman
> Rozhodl jsem se, ze zkusim naprogramovat neco jako osciloskop v Delphi
pres
> zvukovku, proto se chci zeptat, jakym nejlepsim zpusobem ziskavat v Delhi
> data ze zvukove karty...Nejde mi o zadny format, proste jen hola data...
> Mockrat diky,
_____________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
Este raz PRADOX na sieti
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 14.3.2001 13:38:51
O tohle se postara BDE. Proste tu tabulku nech na siti a BDE si samo natahne dat
a. Je uplne jedno jestli na jednom PC bude mit tabulka trideni dle primarniho kl
ice a ostatni podle nejakeho jineho.
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
> Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
> sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do nej
> udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
> jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a druhy
> podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel riesit
> tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
> pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale zase
> neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
> ???. Viem ze je to asi blbost ale preto pisem tento mail. :)
>
> Vdaka za radu
>
> S pozdravom,
>
> --------------------------------------------------------
> Robert Suska, spravca siete, amatersky programator
> Radio Lumen, Banska Bystrica
> Slovenska republika
> www.lumen.sk
> spravca(zv)lumen.sk
> ICQ Id: 82600022
> mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
> 088/41 25 739 kl.14
> --------------------------------------------------------
MDI aplikace a Master-Detail tabulky
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 14.3.2001 13:43:44
Ja toto vyresil, tak ze v menu ma dve funkce v podstate open table
a open child.
no a kdyz si vybere funkci open child tak se ho napred zepta na
tabulku stejne jako predtim a pak vyskoci dialog kde zada jak se to
ma navazat.
Jako master se predpoklada ta ktera mela focus kdyz si vybral
open child.
> Zdravim,
> Mam aplikaci, ktera otevira DBF soubory. Uzivatel si jich muze otevrit vice (MDI aplikace). Chtel bych, aby si uzivatel mohl nastavit vztah mezi dvema otevrenyma tabulkama.
> Vim, ze se toto nastavuje v Table (MasterSource,...), jenomze to je vzdy Table1, vzhledem k tomu, ze vsechny formulare jsou MDIChild.
> Muzete mi prosim nekdo poradit?
> Dekuji.
> Mirek Drejcek.
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Komponenta Timer
[*] Ji�� Nov��ek <jnovacek(zv)spst(tec)cz> - 14.3.2001 13:54:25
Ahoj lidi.
Je mozne pouzit Timer bez formulare?
Predpokladam, ze ano.
Jak se s Timer pak pracuje?
Predem dekuji
Jirka
TV karty
[*] Jir� Kr�l jr. <admin(zv)printo(tec)cz> - 14.3.2001 14:08:33
zadna novinka, vim :-) , ja mam ASUS 7100 DLC, Rumcajzi
od ATI maji TV in JEN rada AiWonder
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
>>Behalf Of prajz.rumcajs(zv)quick(tec)cz
>>Sent: Wednesday, March 14, 2001 12:49 PM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: TV karty
>>
>>
>>>nechci ti kazit radost, ale pochybuju, ze je to TV-in. Ten maji pouze ATI
>>>rady All-in-Wonder
>>>ostatni maji nanejvys TV-out pro video vystup na TV/VCR
>>
>>Pro zmenu zase pro tebe (asi to bude novinka), je i vicero
>>vyrobcu TV karet,
>>nejenom ATI. Sam sem jich uz nekolik mel. Co se tyce pristupu na
>>TV kartu a
>>snimani obrazu, vysla knizka Vuziti rozhrani PC. Je k tomu i CD s
>>knihovnou,
>>ktera se umi napojit temer na vsechny rozhrani PC (TV, zvukova
>>karta, COM,
>>LPT, PCI).
>>S pozdravem RUMcajs, ne-programator
>>
Este raz PRADOX na sieti
[*] brant(zv)dcomm(tec)cz - 14.3.2001 14:24:41
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
O to trideni se nemusis starat, to zarizuje BDE. Pokud se jedna o sitovou
instalaci, chova se tabulka u kazdeho uzivatele tak, jako by byla u neho na
lokale. To cteni lze jednoduse zaridit tim, ze nastavis property ReadOnly
objektu TTable na true. Ja resim update pres specialni databazi, kam se
aplikace kazdych nekolik sekund koukaji. Chces-li, poslu zdrojak na soukromy
mail.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: �u#ka R�bert [mailto:spravca(zv)lumen.sk]
Sent: Wednesday, March 14, 2001 12:03 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: Este raz PRADOX na sieti
Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do nej
udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a druhy
podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel riesit
tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale zase
neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
???. Viem ze je to asi blbost ale preto pisem tento mail. :)
Vdaka za radu
S pozdravom,
--------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
ICQ Id: 82600022
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
088/41 25 739 kl.14
--------------------------------------------------------
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001
Database paradox
[*] brant(zv)dcomm(tec)cz - 14.3.2001 14:26:47
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
To jsem nikdy nenastavoval a ani nevim, ze neco takoveho existuje. Ale
pravdepodobne ano, nejjednodussi to bude do nejakeho adresare TEMP apod.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
Treba nastavit aj privateDir pre kezeho usera iny ?
Jan Tungli
>
> Mjusis na kazde stanici nakonfigurovat BDE (pomoci BDE Administratoru) a
> to tak, ze polozku Configuration/drivers/native/paradox/net dir nastavis
> na vsech stanicich fyzicky i logicky stejne a polozku
> system/init/localshare nastavis na true. Samozrejme do adresare net dir
> musi byt garantovan plny pristup. To je zakladni nastaveni a to ostatni se
> nastavi podle potreby.
>
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
>
> Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
> paradoxu.
> Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a
> nicily
> se indexy.
>
> dekuji za ka�d� podnet Josef K�n
>skladani PC
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.3.2001 14:31:33
Zivnostesky list na Nakup za ucelem prodeje. Pokud nehodlate delat do tech PC
zadne upravy, tak by mel stacit paragraf 4 nebo 5 vyhlasky 50. Pro presnejsi ijnformace
kontaktujte nejakoho revizniho technika.
Slavek
>
> Dobry den,
> prosim neznate nekdo co presne musi po pravni strance splnovat firma, ktera
> chce skladat PC z dilu a prodavat hotove sestavy?
>
> diky
> Este raz PRADOX na sieti
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 14.3.2001 14:32:28
Tak tohle asi neumi. To by si musel resit p�es prava na siti vzhledem k
tomu, ze potrebujes primou viditelnost dat.
Takze kdyz si to omezis na klientovi, tak Ti to stejne nekdo sfoukne na siti
primo souborove.
Martin
-----Original Message-----
From: �u#ka R�bert [mailto:spravca(zv)lumen.sk]
Sent: Wednesday, March 14, 2001 12:03 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: Este raz PRADOX na sieti
Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do nej
udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a druhy
podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel riesit
tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale zase
neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
???. Viem ze je to asi blbost ale preto pisem tento mail. :)
Vdaka za radu
S pozdravom,
--------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
ICQ Id: 82600022
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
088/41 25 739 kl.14
--------------------------------------------------------
Database paradox
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 14.3.2001 14:37:33
To neni potreba, protoze private dir by mel uz z principu smerovat na
lokalni disk - jde pouze o pracovni adresare.
==================================
ing. Martin Lasevi�
Software specialist
Office :
ratiopharm CZ, s r. o.
B�lehradsk� 54
120 00 Praha 2
tel.: +420 2 510 21 130
fax.: +420 2 510 21 123
mobil +420 602 298 904
mlasevic(zv)ratiopharm(tec)cz
http://www.ratiopharm(tec)cz
==================================
-----Original Message-----
From: Jan Tungli [mailto:Jan.Tungli(zv)datapac.sk]
Sent: Wednesday, March 14, 2001 12:39 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Database paradox
Treba nastavit aj privateDir pre kezeho usera iny ?
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli
NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )
> -----P�vodn� zpr�va-----
> Od: brant(zv)dcomm(tec)cz [SMTP:brant(zv)dcomm(tec)cz]
> Odesl�no: 14. marec 2001 9:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Database paradox
>
> Mjusis na kazde stanici nakonfigurovat BDE (pomoci BDE Administratoru) a
> to tak, ze polozku Configuration/drivers/native/paradox/net dir nastavis
> na vsech stanicich fyzicky i logicky stejne a polozku
> system/init/localshare nastavis na true. Samozrejme do adresare net dir
> musi byt garantovan plny pristup. To je zakladni nastaveni a to ostatni se
> nastavi podle potreby.
>
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
> ICQ # 68652380
>
> D&COMM s.r.o
> Korunovaen� 6
> Praha 7
>
>
> -----Original Message-----
> From: josef kyn [ <mailto:jkyn(zv)iol(tec)cz>]
> Sent: Tuesday, March 13, 2001 10:04 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Database paradox
>
>
> Prosim poradi nekdo jak rozchodit sitove aplikaci na pouzivajici soubory
> paradoxu.
> Delal jsem pokusy se souborem net.cfg ale nejak se mi to nepovedlo a
> nicily
> se indexy.
>
> dekuji za ka�d� podnet Josef K�n
> ---
> Pr�choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG ( <http://www.grisoft(tec)cz>).
> Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001
> TV karty
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 14.3.2001 14:44:19
U Rage128 Pro se jedna o tzv. VIVO variantu. Opravdu VideoIn, VideoOut. U ATI karet to ma tato a nejaky Radeon.
Ale mam otazku. Mam tu kartu S3 Trio 3D 2, ta nema OpenGL a Direct3D mi na ni z me zahadneho duvodu nejede (mam pouze soft.
render.). Proto uvazuju o novy karte a Rage128Pro mi prijde nejvyhodneji (zvlaste pro svoji cenu).
Jde mi o to, ze u karty chci OpenGL a videovstup/vystup. Je to predevsim na "smazeni" veci jako Unreal, apod. Mate nejaky typ? Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: <prajz.rumcajs(zv)quick(tec)cz>
Subject: TV karty
> >nechci ti kazit radost, ale pochybuju, ze je to TV-in. Ten maji pouze ATI
> >rady All-in-Wonder
> >ostatni maji nanejvys TV-out pro video vystup na TV/VCR
>
> Pro zmenu zase pro tebe (asi to bude novinka), je i vicero vyrobcu TV karet,
> nejenom ATI. Sam sem jich uz nekolik mel. Co se tyce pristupu na TV kartu a
> snimani obrazu, vysla knizka Vuziti rozhrani PC. Je k tomu i CD s knihovnou,
> ktera se umi napojit temer na vsechny rozhrani PC (TV, zvukova karta, COM,
> LPT, PCI).
> S pozdravem RUMcajs, ne-programator
>Kniha o Delphi
[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 14.3.2001 15:11:19
Kamarad zacina s Delphi. Chtel pujcit nejakou knizku, tak jsem mu ukazal
mistrovstvi v Delphi a "malem ho porazilo" jak je "tlusta". Ja jinou
nepouzivam. Nevite nekdo o necem "stravitelnejsim" pro zacatecniky ?
Diky za Vlastu - Milan
OT: Ati Rage 128 Pro - Upresneni
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.3.2001 15:11:32
Na manualu je napsano ATI RAGE 128 - USING Video In / Video Out.
V systemu se mi karta hlasi jako Karta ATI FURE PRO.
Diagnosticky nastroj ATIINFO.EXE hlasi . RAGE 128 PRO - 3D graphics/Video
Accelerator --
TAKZE SUMA SUMARUM ..Mam ATI Rage 128 Pro s VIDEO Vstupem/Vystupem.
Kdyz sa na kartu podivam primo...Ma tyto konektory -
Video Input, Composite
Out, S-Video Output, Vga Monitor Conector
JINAC DEKUJI VSEM, KTERI ME ODKAZALI NA NOVE DRIVERY, UZ JE TO BEZ PROBLEMU!
----- Original Message -----
From: "Vaclav Sazima" <sazima(zv)comp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 14, 2001 11:37 AM
Subject: Re: OT: Ati Rage 128 Pro
> Ahoj,
> 1. ja jsem s touhle kartou mel zase jine problemy (kdyz se kreslilo na
> VGA, praskalo to ve zvukove karte). Problem jsem odstranil
> nainstalovanim novych ovladacu (r. 2001, ty z podzimu 2000 jeste
> nefungovaly spravne), treba Ti to pomuze. Bohuzel k tomu chtej Directx8,
> takze dohromady jsem musel stahnout skoro 20M.
>
> 2.
> Pouzit Video for windows (pro delphi komponenta TVideo, nebo
> ATI Direct Video Access (DVA), najdes u ATI, Pascal Translation najdes
> na JEDI.
>
> Ale myslim si, ze tahle karta ma pouze televizni vystup!.
>
> Vaclav Sazima
> Bednar��k Dalibor wrote:
> >
> > Ahoj.
> >
> > 1)
> >
> > Po nainstalovani ovladacu pro kartu viz %sub%.
> > Se mi pri kazdem startu windowsu objevi hlaska
> >
> > WARNING: Failed to open Registry handle in ATIPool.
> >
> > Nevite nekdo v cem je chyba?
> >
> > 2)
> > Tato karta ma video-vstup.
> > Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila snimani
obrazu
> > v urcitem okamziku..
> > Nebo nejake rady, komponety atd.
> >
> > Prede dekuji..
> >
> > Dalibor
>TV karty
[*] Ing. Ji�� Vojtek - 14.3.2001 14:12:01 -0000
V puvodnim mailu byla rec o ATIne a tam je to pravda do posledniho pismenka.
Vystup composite je pomerne casty. Vstup maji pouze TV Wonder - samostatny
tuner nebo ATI All in One. Mohu vrele nedoporucit. Zelezo je dobre, ale ty
ovladace si clovek musi temer cele dodelat. No o podpore zakazniku radsi
nemluvim. O te knihovne jsem psal v predchozim mailu a mimochodem pod W2000
i Windows ME je to mimo.
S pozdravem Jiri Vojtek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
prajz.rumcajs(zv)quick(tec)cz
Sent: Wednesday, March 14, 2001 11:49 AM
To: delphi-l(zv)fwd(tec)cz
Subject: TV karty
>nechci ti kazit radost, ale pochybuju, ze je to TV-in. Ten maji pouze ATI
>rady All-in-Wonder
>ostatni maji nanejvys TV-out pro video vystup na TV/VCR
Pro zmenu zase pro tebe (asi to bude novinka), je i vicero vyrobcu TV karet,
nejenom ATI. Sam sem jich uz nekolik mel. Co se tyce pristupu na TV kartu a
snimani obrazu, vysla knizka Vuziti rozhrani PC. Je k tomu i CD s knihovnou,
ktera se umi napojit temer na vsechny rozhrani PC (TV, zvukova karta, COM,
LPT, PCI).
S pozdravem RUMcajs, ne-programator
Nahravani zvuku v Delphi
[*] radek cervinka <radek.cervinka(zv)centrum(tec)cz> - 14.3.2001 15:40:14
Presne to same (osciloskop pres zvukovou kartu jsem delal vcetne prepinani
rozsahu). Mam unit ktery ti nahraje data, umi FFT, a spol. Jestli chces tak
na soukromy mail.
Uplatneni toho je ale velmi sporne (samplerate 44khz ).
Radek
----- Original Message -----
From: Roman <sw.maurice(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 14, 2001 11:09 AM
Subject: Re: Nahravani zvuku v Delphi
> Mrkni se do napovedy k MM API a hledej slovicka zacinajici wavein*, je tam
tusim i priklad, jinak na www.torry.ru jsem videl zdrojaky...
>
> Roman
>
> > Rozhodl jsem se, ze zkusim naprogramovat neco jako osciloskop v Delphi
pres
> > zvukovku, proto se chci zeptat, jakym nejlepsim zpusobem ziskavat v
Delhi
> > data ze zvukove karty...Nejde mi o zadny format, proste jen hola data...
> > Mockrat diky,
>
> _____________________________________________________________________
> Kam do kina ci divadla? http://kultura.seznam(tec)cz
>
>Este raz PRADOX na sieti
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 14.3.2001 15:45:30
> Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
> sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do
nej
> udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
> jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a
druhy
> podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel
riesit
> tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
> pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale
zase
> neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
Na siti ma kazdy uzivatel spustenou svoji aplikaci na svem pocitaci a tam ma
svuj TTable nebo TQuery, kde ma svoje trideni apod. Takze se nemusi delat
zadna akrobacie s batchmove. Uplne normalne se jednotlive aplikace apustene
z jednotlivych stanic napoji na data na serveru a kazda stanice si nastavi
co chce a jak chce. No a aby mohla jedna stanice zapisovat a osotavi jen
cist se musi udelat nejakymi pristupovymi pravy ve vlastni aplikaci. Na
jedne stanici se nastavi pravo R/W a na ostatnich jen R. Ale to se musi
naprogramovat.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
OT:DirectX 8
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.3.2001 15:54:55
Prosim Vas, je tady nekdo kdo by mi byl ochoten zaslat DirectX 8 pro Win2000
na soukromej majl.
dalibor(zv)torola(tec)cz.
Buh je mi svedkem ze jsem se to snazil stahnout 3x z Microsoftu, ale
nepovedlo se.
Vsechny soubory maji stejnou velikost, ale bohuzel obsahove se lisi.
Predem moc dekuji.
TV karty
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.3.2001 15:55:26
GeeForce MX (pokud mas malo penez), nebo pokud mas hodne, tak GeeForce GTS, nebo GeeForce 3.
Bohuzel, konkurence zde jiz neni.
Slavek
> Ale mam otazku. Mam tu kartu S3 Trio 3D 2, ta nema OpenGL a Direct3D mi na ni z me zahadneho duvodu nejede (mam pouze soft.
> render.). Proto uvazuju o novy karte a Rage128Pro mi prijde nejvyhodneji (zvlaste pro svoji cenu).
>
> Jde mi o to, ze u karty chci OpenGL a videovstup/vystup. Je to predevsim na "smazeni" veci jako Unreal, apod. Mate nejaky typ?
>
>
> Dik,Asociace souboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.3.2001 16:22:29
Registrace souboru aby byla korektni musi byt na dvou mistech v
registrech (viz jakykoliv typ)
1. Klic ".DBF" a v nem pouze uvedeny odkaz na dalsi klic napr. DBF file
2. Klic "DBF file" a v nem konkretni udaje o asociovanem programu.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
13.03.2001 "Mirek Drej�ek":
> Zdravim,
> asociuji soubor DBF s programem. Vse vypada v poradku. Pruzkumnik ukazuje dobrou ikonu a po poklepani na soubor se program skutecne otevre a v nem dany soubor. Ale uz jsem narazil na par programu,
> ktere mi misto me ikony u DBF souboru ukazuji ikonu obecnou (jestli se ji tak da rici). Predpokladam, ze se ma jeste neco zaregistrovat. Ale bohuzel nevim co. Muzete mi nekdo poradit? Tady je kod,
> ktery nyni pouzivam:
> Reg.CreateKey('DBF.DatView');
> Reg.OpenKey('\DBF.DatView',True);
> Reg.CreateKey('DefaultIcon');
> Reg.OpenKey('\DBF.DatView\DefaultIcon',True);
> Reg.WriteString('',Application.ExeName+',0');
> Reg.OpenKey('\DBF.DatView',True);
> Reg.CreateKey('shell');
> Reg.OpenKey('\DBF.DatView\shell',True);
> Reg.CreateKey('open');
> Reg.OpenKey('\DBF.DatView\shell\open',True);
> Reg.CreateKey('command');
> Reg.OpenKey('\DBF.DatView\shell\open\command',True);
> Reg.WriteString('',Application.ExeName+' %1');
> Reg.CloseKey;
> Reg.RootKey:=HKEY_CLASSES_ROOT;
> Reg.OpenKey('\.DBF',True);
> Asociace:=Reg.ReadString('');
> Reg.DeleteValue('');
> Reg.WriteString('','DBF.DatView');
> Reg.CloseKey;
> Reg.Free;
> Promenna Asociace je zde jen kvuli tomu, aby si uzivatel mohl vratit puvodin nastaveni.
> Predem diky za jakoukoli radu.
> Mirek Drejcek.
Antwort: FileVersion
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.3.2001 16:24:31
function TfAbout.GetFileVer(const FileName:string):string;
type
TFVInfo=packed record
pad1,pad2:DWORD;
MSLo,MSHi,LSLo,LSHi:WORD;
pad3:array[1..16] of BYTE;
OS:DWORD;
pad4:array[1..16] of BYTE;
end;
var
V1, V2, V3, V4 : Word;
VSize,VHandle:DWORD;
VSize2:UINT;
Buffer,Buffer2:Pointer;
FVI:TFVInfo;
PVI:^TFVInfo;
P,P2:array[0..255] of char;
begin
Result:='';
StrPCopy(P,FileName);
StrPCopy(P2,'\');
VSize:=GetFileVersionInfoSize(P,VHandle);
if VSize>0 then
begin
try
GetMem(Buffer,VSize);
if GetFileVersionInfo(P,VHandle,VSize,Buffer)=True then
if VerQueryValue(Buffer,P2,Buffer2,VSize2)=True then
begin
PVI:=Buffer2;
FVI:=PVI^;
V1:=FVI.MsHi;
V2:=FVI.MsLo;
V3:=FVI.LsHi;
V4:=FVI.LsLo;
Result:=Format('%d.%d.%d.%d',[V1,V2,V3,V4]);
end;
FreeMem(Buffer);
except
Result:='';
end;
end;
end;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.03.2001 martin.falta(zv)obi.de:
> Ahoj,
> nekde jsem na to nasel komponentu. Posilam Ti ji na soukr. mail.
> Martin
> Von: delphi(zv)kopr(tec)cz(zv)fwd(tec)cz am 14.03.2001 09:01
> Bitte antworten an delphi-l(zv)fwd(tec)cz
> Gesendet von: owner-delphi-l(zv)fwd(tec)cz
> An: delphi-l(zv)fwd(tec)cz
> Kopie:
> Thema: FileVersion
> Zdravim,
> V D4Pro ve volbe "Project/Options Shift+Ctrl+F11" je mozne nastavit
> Version Info. Jak tyto informace za behu programu prectu.
> Jsou tyto informace jenom interni zalezitost, nebo lze je nejak
> zakompilovat do EXE a pak tyto informace cist.
> Diky za radu
> Pavel
> Pekny den (rano, vecer i noc) preje
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~� ~ ~ ~ ~ ~� ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> KOPR software����� Pavel ZIDEK���� mailto:kopr(zv)kopr(tec)cz
> http://www.kopr(tec)cz/w-delphi.htm���� http://www.kopr(tec)cz
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~� ~ ~ ~ ~ ~� ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> IMPORTANT NOTICE:
> This email is confidential, may be legally privileged, and is for the
> intended recipient only. Access, disclosure, copying, distribution, or
> reliance on any of it by anyone else is prohibited and may be a criminal
> offence. Please delete if obtained in error and email confirmation to the sender.
dbase a microsoft ODBC
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.3.2001 16:30:18
V DBF tabulkach neni ulozena zadna kodova stranka. Ale ODBC
predpoklada DBF tabulky s CP852, tzn Latin II :-(
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.03.2001 Sula Milos:
> Nevite nekdo jak zakazat translation dbf souboru kdyz ho oteviram pres
> microsoft ODBC driver ? mam dbf kde jsou data ulozena ve win1250 ale je tam
> ulozena v tom dbf nejspise jina kodova stranka a MS ODBC driver to
> automaticky zkonvertuje >:(
> diky
RAS server
[*] JIM Design <jim.design(zv)iol(tec)cz> - 14.3.2001 17:00:53
ahoj,
na http://delphi-jedi.org/Jedi:APILIBRARY je RAS.zip a v nem i priklady na
pripojeni do inetu (jsou to myslim prelozene hlavicky RAS funkci)
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Lud�k
P�ral
Sent: Monday, March 12, 2001 9:24 PM
To: Delphi forum (el. adresa)
Subject: RAS server
Ahoj,
nevite prosim nekdo o komponente/unite, ktera umi connect na RAS spojeni ?
Mam jednu (MagRAS), ktera ovsem pracuje prilis slozitym zpusobem a navic mam
podezreni, ze ma chybu, ktera pri pouzivani bere pamet v IDE Delphi tak
dlouho, az dojde ke zhrouceni PC (pri 200-300 MB vyuziti pameti).
Rekapitulace stavajiciho stavu :
- pred connectem navolim jmeno, heslo, telefon, atd.
- komponenta ma event StateChanged - ten musim pretypovat a nacist handle a
SubEntitu spojeni do lokalnich promennych, eventuelne resit veskere kolize
-pak provest connect s volanim handle
-disconnect volat take s handlem
Chteny stav:
- pouze provadet connect a disconnect urciteho jmena RAS, o nastaveni, a
stavy se nestarat
Lud�k P�ral
ludek.paral(zv)telecom(tec)cz
http://web.redbox(tec)cz/lupasoft
http://www.lupasoft.webpark(tec)cz
Registry v NT 4.0
[*] mvip(zv)atlas(tec)cz - 14.3.2001 17:07:03
Zjistil jsem, ze ve Windows NT 4.0 nefunguje nacteni polozky z registru (HKEY_LOCAL_MACHINE\SOFTWARE\...), pokud prihlaseny uzivatel nema prava "Administrator" ?! (Delphi 5.0 CS, pou��v�m TRegistry.Create a pak OpenKey)
Dekuji predem,
Marek V.DelphiX & TBackgroundSprite
[*] Luis <xx1(zv)atlas(tec)cz> - 14.3.2001 17:27:14
Ahoj vsichni,
rano sem posilal mail, ale asi se spatne odeslal, takze se zeptam znovu :
Nevite nekdo, jak nacist do TBackgroundSprite.Image bitmapu
jinak, nez z TDXImageListu ?
Pouzivam to takhle :
With TBackgroundSprite.Create(DXEngine.Engine) do
begin
......
Image:=DXImageList.Items.Found('Background');
......
end;
Nejlepsi by bylo, kdyby to slo nacist primo z TBitMap asi takhle :
Image.Picture.BitMap.LoadFromFile('background.bmp') ,
ale to mi nejde.
Predem diky za radu nebo nakopnuti.
Luis
DirectX 8
[*] Kalivoda Jozef <KaliJ(zv)spas.sk> - 14.3.2001 18:24:11
skus tunak....
http://dodokl.host.sk/data/DX80NTeng.exe
lebo 7,5MB cez mail....hmm obdivuhodna trpezlivost...:-)))
-----Original Message-----
From: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
Sent: Wednesday, March 14, 2001 3:55 PM
To: forum
Subject: OT:DirectX 8
Prosim Vas, je tady nekdo kdo by mi byl ochoten zaslat DirectX 8 pro Win2000
na soukromej majl.
dalibor(zv)torola(tec)cz.
Buh je mi svedkem ze jsem se to snazil stahnout 3x z Microsoftu, ale
nepovedlo se.
Vsechny soubory maji stejnou velikost, ale bohuzel obsahove se lisi.
Predem moc dekuji.
Kniha o Delphi
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 14.3.2001 18:24:36
From: Milan Ri i <milanrisi(zv)volny(tec)cz>
> Kamarad zacina s Delphi. Chtel pujcit nejakou knizku, tak jsem mu
> ukazal mistrovstvi v Delphi a "malem ho porazilo" jak je "tlusta". Ja
> jinou nepouzivam. Nevite nekdo o necem "stravitelnejsim" pro
> zacatecniky ?
Mohlo by vyhovovat z GRADY Zaciname programovat v DELPHI
Jiri Binder
Registry v NT 4.0
[*] Kalivoda Jozef <KaliJ(zv)spas.sk> - 14.3.2001 18:47:13
citanie registru funguje ale zapis nie preto treba dat
OpenKeyReadOnly potom by to malo chodit...aspon mne to tak chodi...
na nt4.0 ak nieje uzivatel admin ide zapisovat iba do HKEY_CURRENT_USER\...
-----Original Message-----
From: mvip(zv)atlas(tec)cz [mailto:mvip(zv)atlas(tec)cz]
Sent: Wednesday, March 14, 2001 5:07 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Registry v NT 4.0
Zjistil jsem, ze ve Windows NT 4.0 nefunguje nacteni polozky z registru
(HKEY_LOCAL_MACHINE\SOFTWARE\...), pokud prihlaseny uzivatel nema prava
"Administrator" ?! (Delphi 5.0 CS, pou��v�m TRegistry.Create a pak OpenKey)
Dekuji predem,
Marek V.Este raz PRADOX na sieti
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 14.3.2001 19:47:37
----- Original Message -----
From: "�u#ka R�bert" <spravca(zv)lumen.sk>
> Mam taku otazocku, ked dam na server databazovu tabulku paradox aj s jej
> sek. indexami a chcem aby iba jeden uzivatel z celej firmy zapisoval do
nej
> udaje a vsetci ostatny iba ich prezerali tak sa to da??? ale zase je tu
> jedna otazka co s tym ked jeden to bude chciet triedit podla kluca A a
druhy
> podlat kluca B. Ako sa ta tabulka bude chovat potom. Ja som to chcel
riesit
> tak ze si tabluky aj s indexami skopirujem na lokal a tam budem s nimi
> pracoval a potom pomocov BATCHMOVE robit iba UpDate dopisanych dat ale
zase
> neviem ako poslat message po sieti do ineho windows pre nejaku aplikaciu
> ???. Viem ze je to asi blbost ale preto pisem tento mail. :)
Ahoj.
Trideni a ostatni veci nech na BDE (musi ho ale spravne nastavit - viz temer
soubezny thread "Database paradox")
Pri spravnem nastaveni BDE (Musis mit jiny NET DIR , DATA, a PrivateDir) by
melo jit nastavit prava pro adresar DATA jen pro cteni a zabranit
v zapisu jiz na souborovem systemu. Jinak lze take jeste vyuzit systemu
heslovani paradoxovych tabulek,. Tam to jde taky nastavit.
Pokud to omezis jen na klientovi tak je to k nicemu.
Ludek ZITA
Kniha o Delphi
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 14.3.2001 20:09:12
Jiri Binder wrote:
>
> From: Milan Ri i <milanrisi(zv)volny(tec)cz>
> > Kamarad zacina s Delphi. Chtel pujcit nejakou knizku, tak jsem mu
> > ukazal mistrovstvi v Delphi a "malem ho porazilo" jak je "tlusta". Ja
> > jinou nepouzivam. Nevite nekdo o necem "stravitelnejsim" pro
> > zacatecniky ?
>
> Mohlo by vyhovovat z GRADY Zaciname programovat v DELPHI
>
> Jiri Binder
Zrovna dneska mi jeden znamy (shodou okolnosti take
zacatecnik v Delphi a navic zacatecnik programator),
ze tahle knizka mu opravdu vyhovuje, takze
na tom asi neco bude.
Ondrej Krajicek
--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------
Ati Rage 128 Pro
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 14.3.2001 21:02:25
----- Original Message -----
From: Bednar��k Dalibor <dalibor(zv)torola(tec)cz>
Sent: Wednesday, March 14, 2001 8:49 AM
Ahoj,
> 2)
> Tato karta ma video-vstup.
> Nemate nekdo nejakou podporu pro delphi, ktera by mi umoznila snimani
obrazu
> v urcitem okamziku..
ja som pouzival Matrox TV-kartu v spolupraci s AVICAP32.DLL a
pascal-interface na tuto kniznicu. Nasiel som to niekde na DSP
http://sunsite.icm.edu.pl/delphi. Mozem poslat.
Pavol Stolc
pstolc(zv)sc.sknet.sk
Handle predchozi aktivni aplikace
[*] DJ <giorgione(zv)email(tec)cz> - 14.3.2001 21:18:36
Dobry den,
jakym zpusobem je mozne zjistit handle predchozi aktivni aplikace? Tzn. aplikace,
ktera je ve vypisu po Alt+Tab na druhem miste?
Jde mi o to, ze kdyz uzivatel aktivuje moji aplikaci, potrebuju zjistit, ktere
okno bylo aktivni tesne predtim.
Predem diky za odpovedi
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
KonfView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.3.2001 22:02:55
Ahoj,
> > To ano, ale IB me kazdodenne presvedcuje, ze je sice skvelou
> > nahradou za Paradox, ale jinak je to bez dalsich a dalsich
> > ,,pluginu`` nepouzitelne pro seriozni praci.
> jakych pluginu? ja ji pouzivam celkem bez problemu,
****,,Pluginy`` jsem myslel UDF, ktere si musis naprogramovat,
abys dostal to, co jine databazove stroje umi standardne.
> na rozdil od M$DE,
> ktery jsem v sice rozjel, ale bez dalsich M$ nastroju to bylo
> nepouzitelny ;).
*****No. IB bez dalsich nastroju take neni zadna slast obsluhovat.
U MS mas vyhodu, ze to dodava jediny dodavatel.
> > Nechci tim ovsem vyvolat flamewar.
> ani ja ne, ale vazne by me zajimalo, co ti v IB chybi?
*****Stabilita, veci, ktere jine databaze maji standardne, lepsi
obsluha. Na nekolik takovych konkretnich problemu, na ktere jsem
narazil, najdes v archivu konference (vcetne one stability).
> u me vyhrava IB, predevsim:
> win i linux
****Beru...
> hromada komponent od ruznych autoru
*****Na MS SQL Server ti staci ADO. ;-)
> hromada administracnich nastroju od ruznych autoru
*****Pouzitelne nastroje od jedineho dodavatele.
> cenova dostupnost
*****Ok, v tom MS ponekud zaostava... :-)
> a rychlost vyvoje
*****To neni ani tolik o databazi jako o metodice.
> rad bych vedel jakymi neprijemnymi, mohlo by to upozornit na nejake
> nedostatky, ktere jsem neobjevil.
****Jak jsem psal, zahledej v archivu, jsou tam konkretni veci, ktere
me stvou.
Nechci zde pusobit jako propagator MS, ale posledni dobou
zacinaji delat veci, ktere se i nechaji pouzivat.
Slavek
> dekuji PeC(zv)
>
> CU onTheFutureOfMatrix
> MatriX.CyberSpace.Cz
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Chyba pri vytvarani Foreing key na IB6
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 14.3.2001 22:47:18
Ja pouzivam asi 30 foreing key indexov, ale asi polovicu z nich mi spravil
iba vtedy ak som obe tabulky vymazal (DROP TABLE, DROP TRIGGER), vcetne
triggerov a CREATE TABLE, CREATE TRIGGER a potom definicia Foreing key a
islo to, ale zase druhu polovicu som vytvoril bez problemov. Len nech mi
niekto vysvetli, ze preco mu to pomoze ak ich vymazem. Nie su v tabulkach
ziadne data, takze nie je to problem ze by bola porusena podmienka pre
FOREING Key.
Kto ma zaujem poslem tu databazu na sukromny mail a nech si to odskusa.
Roland.
----- Original Message -----
From: "Petr" <DelphiForum(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 14, 2001 7:01 AM
Subject: Re: Chyba pri vytvarani Foreing key na IB6
> Napsal jsem to takto :
>
> CREATE DOMAIN D_STREDISKO AS VARCHAR(8) CHARACTER SET WIN1250 COLLATE
> WIN1250;
>
> create table banvypis
> (
> stredisko d_stredisko
> );
>
> create table strediska
> (
> cislo d_stredisko not null unique
> );
>
> alter table BANVYPIS
> add constraint FK_BANVYPIS_STREDISKO
> foreign key (STREDISKO)
> references STREDISKA(CISLO)
> on update CASCADE
>
> a jede to jako po masle.
> Asi bude problem v tom ze jsi se mu snazil vnutit dvakrat collate Win1250
(v
> deklaraci domeny i ve vytvareni tabulky), ale netvrdim to. Kazdopadne tak
> jak jsem to tady napsal to jede.
>
> Petr Jur�k, Spr�vce s�t�, program�tor
> COMET System s.r.o.
> 1.M�je 1220
> 756 61 Ro�nov pod Radho#t�m
> tel. 0651/653990
> fax. 0651/653993
> www.cometsystem(tec)cz
>
>
> ----- Original Message -----
> From: Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk>
> To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, March 13, 2001 11:25 PM
> Subject: Chyba pri vytvarani Foreing key na IB6
>
>
> > Zdravim.
> >
> > Skusam toto:
> > -------------------------------------------
> > alter table BANVYPIS
> > add constraint FK_BANVYPIS_STREDISKO
> > foreign key (STREDISKO)
> > references STREDISKA(CISLO)
> > on update CASCADE
> > -------------------------------------------
> > Polozka v tabulke banvypis je takto vytvorena:
> >
> > STREDISKO D_STREDISKO collate WIN1250
> >
> > v tabulke STREDISKA je takto vytvorena:
> >
> > CISLO D_STREDISKO NOT NULL collate WIN1250
> > a este je na nu dany aj UNIQUE index
> >
> > domena D_STREDISKO je vytvorena takto:
> >
> > CREATE DOMAIN D_STREDISKO AS VARCHAR(8) CHARACTER SET WIN1250 COLLATE
> > WIN1250
> >
> > a neustale mi hlasi takuto hlasku:
> >
> > unsuccessful metadata update
> > STORE RDB$REF_CONSTRAINTS failed
> > action cancelled by trigger (1) to preserve data integrity
> > Name of Referential Constraint not defined in constraints table
> >
> > pre istotu som vymazal obe tabulky. A toto sa mi stava bezne ze mi to
> nejde
> > vytvorit a uz som z toho zufaly.
> >
> > Dakujem za kazdy mail.
> >
> > Roland - zufalec;
> >
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> COMET System Network Administrator.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
>
>Chyba v Databazi
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 14.3.2001 23:05:19
Ahoj,
vypada to, ze se muj dotaz asi nekde ztratil a tak se zeptam jeste jednou.
Potreboval bych poradit s nasledujici chybou. Mam tabulku Vyrobku, na kterou
jsou navazany ciselniky Vykresy a dalsi dokumentace atd. Stava se mi ale, ze
kdyz otevru tabulku Vyrobky a vlozim do ni neco, zavru ji a otevru tabulku
Vykresy, ze vyskoci takovato hlaska. Upozornuji, ze se to nestava pravidelne
!!! Coz je prave nejhorsi, jelikoz se mi nedari odpozorovat v cem muze byt
zakopany pes.
Key Violation
General SQL error.
[Microsoft][ODBC SQL Server Driver]Pripojeni je zaneprazdneno vysledky pro
jine hstmt.
OK
Nevite nekdo v cem je problem ?
Diky Filip.
WinSock problem
[*] radek cervinka <radek.cervinka(zv)centrum(tec)cz> - 15.3.2001 00:14:27
Ahoj,
mam dva programy, Server a Client, Server cte data ze ser. portu a
zprostredkovava data prostrednictvim TCP/IP pres sokety WinSocku (bez
TServerSocket). To urcite funguje.
Nasledne musim udelat klienta pres WinSock (opet bez komponent, je to CGI
skript).
Komunikace probiha dejme tomu pres port 1024. Nepodari se mi navazat
spojeni...
Navratove hodnoty fce si nevsimejte, pouzival jsem to castecne pro testovani
CGI nez jsem
pouzil konzolovou aplikaci. Na volani Connect to zatuhne, kdyz tam nedam
Connect tak recv vrati -1, tj. Error.WSAGetLastError vrati 10057.
Co mam delat?
Predem diky. Radek
const cBindPort=1024;
function getvalue:single;
var err:integer;
s:string;
j:integer;
ClientSocketHandle: WinSock.TSocket;
WData: TWSAData;
Addr: TSockAddr;
timeout:integer;
p:string;
begin
Result:=0;
err := WSAStartup($101, WData);
if err <> 0 then
exit;
ClientSocketHandle := socket(PF_INET, SOCK_STREAM , IPPROTO_TCP);
if ClientSocketHandle = INVALID_SOCKET then
exit;
result:=0.1;
Addr.sin_family := AF_INET;
Addr.sin_port := htons(cBindPort);
Addr.sin_addr.s_addr := inet_addr('158.196.151.30');
if bind(ClientSocketHandle, Addr, SizeOf(Addr)) = SOCKET_ERROR then
exit;
Result:=0.2;
if connect(ClientSocketHandle,Addr,sizeof(addr))= SOCKET_ERROR then
exit;
setlength(s,20);
timeout:=300;
repeat
j:=recv(ClientSocketHandle,s[1],15, 0);
dec (timeout);
until (j>0) or (timeout<0);
if j<0 then writeln(WSAGetLastError);
CloseSocket(ClientSocketHandle);
WSACleanup;
try
result:=strtofloat(s);
except
result:=j; // navratova hodnota recv
end;
end;
Nahravani zvuku v Delphi
[*] Martin \"MaVac\" V�clav�k <martin.vaclavik(zv)sh.cvut(tec)cz> - 15.3.2001 00:25:09
Tu knihu o vyuziti portu ve Win mam, ale tam je to na nic...
A mimochodem, dekuji vsem za napady, ale napada mne, ze to stejne bude na
nic, nebot zvukovka ma na vstupu kondenzator a tak to nebude merit obdelniky
atd...pokud se mylim, opravte mne....
Martin "MaVac" V�clav�k
Strahov 7/333
email: martin.vaclavik(zv)sh.cvut(tec)cz
ICQ: 61103032
>Presne to same (osciloskop pres zvukovou kartu jsem delal vcetne prepinani
>rozsahu). Mam unit ktery ti nahraje data, umi FFT, a spol. Jestli chces tak
>na soukromy mail.
>Uplatneni toho je ale velmi sporne (samplerate 44khz ).
>Radek
>
>
>----- Original Message -----
>From: Roman <sw.maurice(zv)seznam(tec)cz>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Wednesday, March 14, 2001 11:09 AM
>Subject: Re: Nahravani zvuku v Delphi
>
>
>> Mrkni se do napovedy k MM API a hledej slovicka zacinajici wavein*, je
tam
>tusim i priklad, jinak na www.torry.ru jsem videl zdrojaky...
>>
>> Roman
>>
>> > Rozhodl jsem se, ze zkusim naprogramovat neco jako osciloskop v Delphi
>pres
>> > zvukovku, proto se chci zeptat, jakym nejlepsim zpusobem ziskavat v
>Delhi
>> > data ze zvukove karty...Nejde mi o zadny format, proste jen hola
data...
>> > Mockrat diky,
>>
>>
>> _____________________________________________________________________
>> Kam do kina ci divadla? http://kultura.seznam(tec)cz
>>
>>
>Komponenta Timer
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 15.3.2001 01:12:03
Jiste. Napriklad:
var X: TTimer;
procedure PripravTimer;
begin
X := TTimer.Create(nil);
X.OnTimer := DoOnTimer;
X.Interval := 5000;
X.Enabled := true;
end;
procedure ZnicTimer;
begin
X.Free;
X := nil;
end;
procedure DoOnTimer(Sender: TObject);
begin
X.Enabled := false;
...
X.Enabled := true;
end;
Jan Skopovy
----- Original Message -----
From: Ji�� Nov��ek <jnovacek(zv)spst(tec)cz>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 14, 2001 1:54 PM
Subject: Komponenta Timer
> Ahoj lidi.
>
> Je mozne pouzit Timer bez formulare?
> Predpokladam, ze ano.
> Jak se s Timer pak pracuje?
>
> Predem dekuji
>
> Jirka
>
>