Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Lock jedineho zaznamu
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 15.7.1999 08:57:07
Beru zpet, uz jsme na to prisli, ale zcela jinym zpusobem.
Martin Lasevic
> -----Puvodni zprava-----
> Od: Martin Lasevic, ing. [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odeslano: 15. eervence 1999 8:34
> Komu: 'DELPHI FORUM 98'
> Poedmit: Lock jedineho zaznamu
>
> Ahojte,
>
> muzete mi nekdo poradit, jestli existuje nejaka moznost jak uzamknout v D3
> pro editaci paradoxovske tabulky jediny zaznam a ne celou tabulku? Zatim
> jsem prisel jen na to, ze pokud hodim tabulku do editu, tak si na siti uz
> nikdo neskrtne.
>
> V PARADOXu 7.0 tato funkce implmentovana je ( asi prime volani nejake
> funkce BDE), ale ani po dvou dnech se mi nepodarilo vytipovat, ktera funkce
> to je ( mozna je to i trochu slozitejsi, nevim).
>
> Diky za kazde nakopnuti.
>
> Martin Lasevic
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> mailto:+420603338765(zv)sms.paegas(tec)cz
> http:/cement.fmi(tec)cz/ml_software
> ICQ:33630882
> ============================================
>
>
>
>
> Prosba
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 15.7.1999 09:03:37
> -----P�vodn� zpr�va-----
> Od: Tomas Matousek [mailto:matousek(zv)havit(tec)cz]
> Odesl�no: 13. �ervence 1999 19:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Prosba
>
>
> Zkratka je to prasarna.
> Vsimnete si hlavne nezanetbatelneho rozdilu mezi real mode
> procesoru (DOS) a
> protected mode (WinXX).
>
:-))
Diky za oceneni mych kvalit. Tesi mne, ze se mnou diskutuje clovek,
ktery dokaze z vety:"M�m program napsan� v TurboPascalu a pot�eboval
bych ho p�epsat do Dephi, ale proto�e jsem laik, byl bych r�d kdyby se toho
n�kdo ujal."
vytezit maximum informaci a pozna, ze ten program je napsany v realmode
a ze jej chce autor provozovat v systemech s Win32S.
Vubec mi z puvodniho prispevku
nebylo jasne, jestli inkriminovany program byl prekladan pro Real mode
nebo Protected mode, v jakem Delphi a pro jaky system ma byt portovan.
A uz vubec mi nebylo jasne, jakym zpusobem je dany HW ovladan.
Smekam pred Tebou,
Jura
Spojeni nekolika RichEditu
[*] mbartone(zv)Synthesia(tec)cz - 15.7.1999 09:25:27
Ahoj
V tabulce mam 8 memo polozek ve kterych je ulozen text ve formatu RTF.
Techto 8 polozek potrebuji sloucit s nadpisy do jednoho RichEditu.
Pokud to udalam takto
if DM1.Zdravotni2ZasazeniOci.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni oci');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniOci.Value);
end;
if DM1.Zdravotni2ZasazeniKuze.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni kuze');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniKuze.Value);
end;
.....
vlozi mi to tam klasicky text se vsemi priznaky textu
{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans
Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}}....
Pokud pouziji
RENadpis(REZdravotni,'Poziti');
DM1.Zdravotni2Poziti.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
REZdravotni.Lines.LoadFromStream(Stream);
je to v poradku, ale funguje to jen pro jednu polozku. Nevim jak je pripadne
spojit .
Dekuji Milan
Table is Full
[*] Roman �ev��k����ǯr(�j�k�o� - 15.7.1999 10:08:33
Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to hlasi Table is Full.
Nevite nekdo co s tim ?
Diky.
Roman �ev��k
ARTRON s.r.o.
R��ov� n�m�st� 3
Boskovice 680 01
Tel.: 0501-454101
Lock jedineho zaznamu
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 15.7.1999 10:21:37
Jdes na to celkem spravne, je to BDE, ale neni tam zadna lock funkce.
Dela se to pri GetRecord(), tak, ze nastavis typ zamku, ktery chces
vystavit. ale to uz si mimo VCL....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Lasevic, ing. [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 15. �ervence 1999 8:34
> Komu: 'DELPHI FORUM 98'
> P�edm�t: Lock jedineho zaznamu
>
> Ahojte,
>
> muzete mi nekdo poradit, jestli existuje nejaka moznost jak uzamknout
> v D3
> pro editaci paradoxovske tabulky jediny zaznam a ne celou tabulku?
> Zatim
> jsem prisel jen na to, ze pokud hodim tabulku do editu, tak si na siti
> uz
> nikdo neskrtne.
>
> V PARADOXu 7.0 tato funkce implmentovana je ( asi prime volani nejake
> funkce BDE), ale ani po dvou dnech se mi nepodarilo vytipovat, ktera
> funkce
> to je ( mozna je to i trochu slozitejsi, nevim).
>
> Diky za kazde nakopnuti.
>
> Martin Lasevic
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> mailto:+420603338765(zv)sms.paegas(tec)cz
> http:/cement.fmi(tec)cz/ml_software
> ICQ:33630882
> ============================================
>
> Klientska plocha
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 15.7.1999 10:24:49
Zdravim!
Mam dotaz, potreboval bych zmenit klientskou plochu okna - proste aby mi
napr. 20 bodu kolem okraje nemohl nikdo umistit zadnou visble komponentu.
Dik Pavel Polak
QR do HTML ?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 15.7.1999 10:30:17
Je mozne dostat report z QR do HTML 20
Existuje nato komponenta alebo nieco podobne ?
TUNGLI Jan
tungli(zv)pvt.sk
vice formu & help
[*] Pavel Martinek <xmarti(zv)albert.osu(tec)cz> - 15.7.1999 11:43:16
Caute Vseci
Mam maly zacatecnicky problem
Mam aplikaci s vice Formy, ktere vyvolavam Form1.ShowModal
V kazdem formu mam status bar a pomoci Application.OnHint v nem zobrazuji
napovedu jenze napoveda se zobrazi pouze u Formu ktery je prvni podle
abecedy.
Neco podobneho se deje i pri pouzivani Application.Title. Pri minimalizaci
vsech formu je vzdy v liste pouze jmeno Formu ktery je prvni dle abecedy.
Dik vsem, ktoz se ozvou s pomoci.
email: pavel.ma(zv)post(tec)cz Bezici aplikace
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 15.7.1999 11:02:56
### Petr Vones napsal dne 14 Jul 99, v 23:51 :
> 1. Pouzit funkce na prochazeni bezicich procesu (toolhelp), ktere jsou ale
> jine u Win9x a NT4 a pomoci timeru zjistovat zmeny. Toto reseni vypada na
> prvni pohled dost tupe, ale v praxi se mi osvedcilo v aplikaci na
> zjistovani bezicich procesu. Nicmene pro tvoji potrebu to muze vizualne
> vypadat trochu divne, kdyz se seznam uloh bude aktualizovat rekneme po
> 500ms.
to funguje, ovsem problemem muze byt, ze nemusi zachytit
aplikaci, ktera bezi kratsi cas nez nastaveny interval
(muze ovsem ve Woknech takova rychla aplikace
vubec existovat? :-)))
>
> 2. Pouzit systemovy hook WH_SHELL ktery oznamuje vytvoreni a ruseni
> top-level oken. Tento zpusob pouziva i Explorer ve Windows. Problem je, ze
> v Delphi se hooky spatne pisi, protoze linker neumi generovat sekci
> sdilenych promennych. Lze to sice trochu komplikovane obejit pomoci memory
> mappeed files a mutexu, jenze ani tak mi to nefungovalo. Dival jsem se po
> Internetu a vetsina reseni byla bud nefunkcni nebo danou DLL s hook funkci
> napsali v C++ a zbytek kodu v Delphi. Moznou pricinou neuspechu v Delphi
> muze byt i nastaveni flagu koprocesoru 8087CW jenzprovadi runtime knihovna
> Delphi a ktere je jine nez pouziva M$ v MSVC++. Dal jsem s tim ale
> neexperimentoval.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator * http://www.bojkot(tec)cz *
> ************************
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
OLE Automation Server in Word
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 15.7.1999 11:02:56
No a co je tedy tohle???
:-))))
### Menfy napsal dne 14 Jul 99, v 21:11 :
> Ja nevim jak, ale potrebuju mit pravo zasilat prispevky do konf...
> _______
>
> Menfy design - vse pro internetovou prezentaci...
> Filip Rejlek
> tel.: 0602 / 816 151
> e-mail : menfy.design(zv)telecom(tec)cz
> menfy(zv)iol(tec)cz
> web : http://web.iol(tec)cz/menfy
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
WINOA386
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 15.7.1999 11:02:56
Ahoj
### Petr Vones napsal dne 14 Jul 99, v 23:48 :
> Pred casem jsem psal aplikaci ktera zjistuje prave bezici procesy a dalsi
> informace s nimi spojene a taky jsem na to neprisel. Casem bych to asi
taky jsem neco takoveho delal a podarilo se mi to trochu
obejit pres zjisteni titulku onoho okna. Nesedim prave ted
u toho PC, v kterem mam zdroje, takze radeji nebudu
mlzit o presnem postupu. Ale v zasade to fungovalo, napr.:
"C:\WIN95\SYSTEM\WINOA386.MOD" "MODEML"
a resilo by to i ten problem s jmenem otevreneho souboru...
Zmeny titulku v case je ovsem treba uvazovat a osetrit :-)
> poslal do Delphree. Tipoval bych, ze bude potreba volat nejake funkce z
> DDK, ale na to jiz je treba napsat VxD.
>
> Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove veci se
> mi ale osobne vubec nelibi), tak je mozne udelat hook na API funkci
> ShellExecute kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad
> najdes tady:
>
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecuteHoo
> k.zip
>
> > Druha otazka je obdobna, je mozne nejak zjistit treba jaky soubor je
> > otevren ve WORDU, excellu, nebo D3.
>
> Podivej se na http://www.sysinternals.com tam je nekolik systemovych
> utilit a mezi nimi i OPENLIST ktera zobrazuje seznam vsech otevrenych
> souboru. Tezko ale neco takoveho napises v Delphi, protoze je to opet
> realizovano pomoci VxD. Dalsi problem je i to, ze ne vsechny aplikace maji
> otevreny soubor po celou dobu kdy s nim pracujes. Casto se pouziva zpusob
> kdy soubor otrevres, natahnes do pameti a zavres.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator * http://www.bojkot(tec)cz *
> ************************
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
ZipTv
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 15.7.1999 12:04:17
Zdrav�m Delphisty!
M�m mal� probl�me�ek, st�hl jsem si ZipTv, moc p�kn� komponentky, ale na jin� ma�in�, ne� na m� zobrazuj� okno, �e nejsou registrovan�, jak se toho zbavit. Bohu�el v sou�asn� dob� jsem bez Inetu (to je v�m hr�za). Pora�te pros�m, d�ky. M&B
Table is Full
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 15.7.1999 12:19:17
V jak� je to datab�zi?
Ivan Vir�g
> ----------
> From: Roman �ev��k[SMTP:rsevcik(zv)artron(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 15. �ervence 1999 10:08
> To: delphi-l(zv)fwd(tec)cz
> Subject: Table is Full
>
> Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to
> hlasi Table is Full.
> Nevite nekdo co s tim ?
> Diky.
>
> Roman �ev��k
>
> ARTRON s.r.o.
> R��ov� n�m�st� 3
> Boskovice 680 01
> Tel.: 0501-454101
> WINOA386 neco o spehovani
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 15.7.1999 12:20:19
Ahoj
Nerad bych tady spustil nejakou diskuzi o tom je-li spravne spehovat jake
procesy se dejou v systemu, a ktera bude
celkem k nicemu. Proc jsem to ale zacal psat? Za prve - je to pro moji
vlastni potrebu, coz byl zamer, ktery jsem
mel uz pred nekolika lety a porad jsem na to nemel cas. Za druhe - coz je
dnes vlastne hlavni pricina, nekdo se
v dobe kdy je moje pracoviste prazdne, tedy v dobach sobotnich, nocnich atd
coura po pracovisti a dela si tu
neco na pocitacich. Bohuzel to doslo tak daleko, ze je to dnes polocejni
zalezitost a moje lenost a urcita
neochota psat takovy program se prikazem reditele razem stala nejakutnejsi.
Jestli se mi to libi nebo ne to
je k dnesnimu dni celkem nepodstatny faktor. Mame tady data, ktera stala
hodne penez a ktera jsou dost
dulezita. Takze potud moje vyjadreni.
Libor
----- Original Message -----
From: Jano <jj_delphi(zv)ke.ubp.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, July 15, 1999 12:31 PM
Subject: Re: WINOA386
> -----Original Message-----
> From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: 15. j�l 1999 8:02
> Subject: RE: WINOA386
>
>
> >Ja jsem ho zkousel, ale bohuzel mi to hlasi chybu na radku
> > TShellExComObjectFactory.Create(ComServer, TTShellExecuteHook,
> > Class_TShellExecuteHook, 'TShellExecuteHook',
> > 'ShellExecute hook sample',
> > ciMultiInstance, tmApartment);
> >v sekci inifialization (unita ShellExecuteHookObj)
> >a to "Too many actual parameters"
>
> Ahoj,
> trosku offtopic k tvojmu problemu. Ked si skompilujes prilozeny priklad
aplikacie (pouzil som D4), ktora pouziva hooklib.dll od Petra Vonese:
>
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecuteHook.
zip
> a spustis ho, vyzera to tak, vsetko bezi OK, ale ked som prilinkoval
skompilovanu hooklib.dll v inej aplikacii, zacala sa spravat velmi zakerne.
V okamihu nabehnutia novej aplikacie program 1) pokial totalne nehavaroval s
mnozstvom Error hlaseni jeden za druhym a okamzite odstrelil Win, 2) tak pri
uzatvoreni aplikacie ku ktorej bola prilinkovana, spadol program pod nim,
ktoreho Main okno sa stalo najrchnejsim. Podozrenie padlo na HookLib.dll,
ale tam chyba nebola. Chyba bola v samotnom priklade. Urobil som nasledujucu
zmenu v programe, ku ktoremu som ju prilinkoval a vsetko zacalo bezat OK.
>
> TForm1 = class(TForm)
> Memo1: TMemo;
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> private
> // deklar. proced. "WndProc" prehodit do sekcie "public"
> procedure WndProc(var Msg: TMessage); override;
> public
> { Public declarations }
> end;
>
> >Navic je to knihovna a neni mi moc jasne, kterou
> >exportovanou funkci na co pouzit.
>
> Myslim, ze v prilozenom priklade ako pouzivat funcie z HookLib.dll je to
uplne jasne...
>
> Nakoniec som od pouzitia ShellHook upustil, lebo mi to nechytalo spustenie
aplikacii, ktora nevytvarala ziadne okno :-( Napr. mi to vobec nechytilo
spustenie programu Getright, comu som sa velmi divil...ale dalej som to uz
nestudoval, preco.
>
> Jano
> jj_delphi(zv)ke.ubp.sk
>
> >
> >> -----
> >> Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove veci
> >> se mi
> >> ale osobne vubec nelibi), tak je mozne udelat hook na API funkci
> >> ShellExecute
> >> kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad najdes
> >> tady:
> >>
> >> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecut
> >> eHook.zip
> >>
> >>
> >
> >WINOA386
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 15.7.1999 11:31:10
-----Original Message-----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 15. j�l 1999 8:02
Subject: RE: WINOA386
>Ja jsem ho zkousel, ale bohuzel mi to hlasi chybu na radku
> TShellExComObjectFactory.Create(ComServer, TTShellExecuteHook,
> Class_TShellExecuteHook, 'TShellExecuteHook',
> 'ShellExecute hook sample',
> ciMultiInstance, tmApartment);
>v sekci inifialization (unita ShellExecuteHookObj)
>a to "Too many actual parameters"
Ahoj,
trosku offtopic k tvojmu problemu. Ked si skompilujes prilozeny priklad aplikacie (pouzil som D4), ktora pouziva hooklib.dll od Petra Vonese:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecuteHook.zip
a spustis ho, vyzera to tak, vsetko bezi OK, ale ked som prilinkoval skompilovanu hooklib.dll v inej aplikacii, zacala sa spravat velmi zakerne. V okamihu nabehnutia novej aplikacie program 1) pokial totalne nehavaroval s mnozstvom Error hlaseni jeden za druhym a okamzite odstrelil Win, 2) tak pri uzatvoreni aplikacie ku ktorej bola prilinkovana, spadol program pod nim, ktoreho Main okno sa stalo najrchnejsim. Podozrenie padlo na HookLib.dll, ale tam chyba nebola. Chyba bola v samotnom priklade. Urobil som nasledujucu zmenu v programe, ku ktoremu som ju prilinkoval a vsetko zacalo bezat OK.
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
// deklar. proced. "WndProc" prehodit do sekcie "public"
procedure WndProc(var Msg: TMessage); override;
public
{ Public declarations }
end;
>Navic je to knihovna a neni mi moc jasne, kterou
>exportovanou funkci na co pouzit.
Myslim, ze v prilozenom priklade ako pouzivat funcie z HookLib.dll je to uplne jasne...
Nakoniec som od pouzitia ShellHook upustil, lebo mi to nechytalo spustenie aplikacii, ktora nevytvarala ziadne okno :-( Napr. mi to vobec nechytilo spustenie programu Getright, comu som sa velmi divil...ale dalej som to uz nestudoval, preco.
Jano
jj_delphi(zv)ke.ubp.sk
>
>> -----
>> Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove veci
>> se mi
>> ale osobne vubec nelibi), tak je mozne udelat hook na API funkci
>> ShellExecute
>> kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad najdes
>> tady:
>>
>> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecut
>> eHook.zip
>>
>>
>
>Dve otazecky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.7.1999 12:39:06
Mirun wrote:
> > Pokud vim, tak Piette ma neprijemne licencni podminky - nelze z
> > toho delat komercni aplikace...
> >
> Neni pravda...
> Permission is granted to anyone to use this software for any
> purpose, including commercial applications, and to alter it
> and redistribute it freely, subject to the following
> restrictions:
> blablabla...
Ze by dostal rozum? :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prohlizec textovych DOS souboru pod Win
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 15.7.1999 12:53:22
Kdosi kdysi potreboval tsiknout DOSove textove soubory pod Win.
Na adrese
http://www.stud.fee.vutbr(tec)cz/~xbrozm00/
je asi reseni
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Data s TQuery
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 15.7.1999 12:56:41
Ahoj Lidi...
Mel bych jeden takovej problemek....
Potreboval bych ulozit data s TQuery do jineho DBF souboru...
(sql dotaz v ni se meni dle kriterii ktera si vybere uzivatel)...
Jde o to, ze ty data bych chtel pouzit treba v excelu....
Nebo jde to nejak pres schranku, nebo podobnym zpusobem?
Predem dik
Dalibor
Table is Full
[*] Roman �ev��k����ǯr(�j�k�o� - 15.7.1999 13:13:17
Sorry,
D3p a v BDE verze 4.0
----- Original Message -----
From: Robert Jendrisak
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, July 16, 1999 11:33 AM
Subject: Re: Table is Full
Napis o aky databazovy system sa jedna, aku architekturu a verziu D..atd.
Mne sa doma nenataca satelit ked stlacim packu.
Werki
----- Original Message -----
From: Roman �ev��k
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, 15 July 1999 10:08
Subject: Table is Full
Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to hlasi Table is Full.
Nevite nekdo co s tim ?
Diky.
Roman �ev��k
ARTRON s.r.o.
R��ov� n�m�st� 3
Boskovice 680 01
Tel.: 0501-454101
Table is Full
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 15.7.1999 13:28:46
To je v Paradoxu ?
Pokud ano, tak
1. Pust si BDE administrator, zajed si do konfigurace driveru, je tam polozka Block size, nastav ji
na vetsi hodnotu.
3. Vytvor tabulku znova, a data do ni zkopiruj.
Radim
-----P�vodn� zpr�va-----
Od: Roman �ev��k <rsevcik(zv)artron(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 15. �ervence 1999 10:18
P�edm�t: Table is Full
Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to hlasi Table is Full.
Nevite nekdo co s tim ?
Diky.
Roman �ev��k
ARTRON s.r.o.
R��ov� n�m�st� 3
Boskovice 680 01
Tel.: 0501-454101
ZipTv
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 15.7.1999 13:30:07
Rada je jednoducha, kup si je. :-))
Radim
> Zdrav�m Delphisty!
>M�m mal� probl�me�ek, st�hl jsem si ZipTv, moc p�kn� komponentky, ale na
jin� ma�in�, ne� na m� zobrazuj� okno, �e nejsou registrovan�, jak se toho
zbavit. Bohu�el v sou�asn� dob� jsem bez Inetu (to je v�m hr�za). Pora�te
pros�m, d�ky.
>
> M&B
vice formu & help
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 15.7.1999 13:36:10
Myslim ze nerozlisujes pojem prvni form podle abecedy
a hlavni formular. Kde mas umisteno Application.OnHint := BleBle
a jaky je obsah procedury BleBle a odkud volas ty metody formularu
ShowModal?
> -----P�vodn� zpr�va-----
> Od: Pavel Martinek [mailto:xmarti(zv)albert.osu(tec)cz]
> Odesl�no: 15. �ervence 1999 11:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: vice formu & help
>
>
>
> Caute Vseci
>
> Mam maly zacatecnicky problem
>
> Mam aplikaci s vice Formy, ktere vyvolavam Form1.ShowModal
> V kazdem formu mam status bar a pomoci Application.OnHint v
> nem zobrazuji
> napovedu jenze napoveda se zobrazi pouze u Formu ktery je prvni podle
> abecedy.
> Neco podobneho se deje i pri pouzivani Application.Title. Pri
> minimalizaci
> vsech formu je vzdy v liste pouze jmeno Formu ktery je prvni
> dle abecedy.
>
> Dik vsem, ktoz se ozvou s pomoci.
> email: pavel.ma(zv)post(tec)cz
> Klientska plocha
[*] Pavel �im��ek - 15.7.1999 13:38:34
>Zdravim!
>
>Mam dotaz, potreboval bych zmenit klientskou plochu okna - proste aby mi
>napr. 20 bodu kolem okraje nemohl nikdo umistit zadnou visble komponentu.
>
>Dik Pavel Polak
>
>
>
Kdo nikdo? Ty jsi programator tak si snad navrhujes formular sam? Asi jsem
to nejak nepochopil.
Prosim blize vysvetlit.
Pavel
Table is Full
[*] Roman �ev��k����ǯr(�j�k�o� - 15.7.1999 13:45:28
Paradoxov� tabulky
> V jak� je to datab�zi?
>
> Ivan Vir�g
>
> > ----------
> > From: Roman �ev��k[SMTP:rsevcik(zv)artron(tec)cz]
> > Reply To: delphi-l(zv)fwd(tec)cz
> > Sent: 15. �ervence 1999 10:08
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Table is Full
> >
> > Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to
> > hlasi Table is Full.
> > Nevite nekdo co s tim ?
> > Diky.
> >
> > Roman �ev��k
> >
> > ARTRON s.r.o.
> > R��ov� n�m�st� 3
> > Boskovice 680 01
> > Tel.: 0501-454101
> >vice formu & help
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.7.1999 14:06:16
Myslim, ze to neni podle abecedy ale podle toho, ktery form
je hlavni ;-) Udelej to (napriklad) tak, ze v hlavnim formu
povesis na Application.OnHint svoji proceduuru a pri zobrazovani
dalsiho formu musis na Application.OnHint povesit jinou proceduru
a po jeho uzavreni vratit tu puvodni.
napr. :
procedure Form1.FormCreate(Sender...
begin
Application.OnHint:=MOJE_PROCEDURA_1;
end;
procedure Form1.Button1Click(Sender...)
var
OnHintStiore : TNotifyEvent;
begin
OnHintStore:=Application.OnHint;
Application.OnHint:=MOJE_PROCEDURA_2;
Form2.ShowModal;
Application.OnHint:=OnHintStore;
end;
A k tomu druhemu odstavci, tam to bude to same, musis zmenit
Application.Title (normalne se pouzije jmeno projektu).
Dobra.
> ----------
> Mam aplikaci s vice Formy, ktere vyvolavam Form1.ShowModal
> V kazdem formu mam status bar a pomoci Application.OnHint v nem
> zobrazuji
> napovedu jenze napoveda se zobrazi pouze u Formu ktery je prvni podle
> abecedy.
> Neco podobneho se deje i pri pouzivani Application.Title. Pri
> minimalizaci
> vsech formu je vzdy v liste pouze jmeno Formu ktery je prvni dle
> abecedy.
>
> Start PC
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 15.7.1999 14:10:16
Zdravim,
lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl zapnut
pocitac?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Jak zkopmrovat obrazovku do Clibbordu?
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 15.7.1999 14:17:52
Sice nevim co to je "zkopmrovat" a "Clibbord" proc mne a ostatni
chces "zdrvit", ale ja bych kopiroval "obrzovku" pres
device context obrazovky a api funkce pro kopirovani bitmap.
DC obrazovky myslim ziskas GetDC(0). Podivej se do helpu
na operace s GDI. Ale nevim ktery tvuj problem to bude resit
jestli mal"i" nebo velky ale kazdopadne nebudes muset stisknout
"kalavesu".
Ale tvou druhou vetu jsem nepochopil ani jazykove natoz programatorsky:
"SaveToClipbordFormat kdeje cesta jakou bmp pot�ebuji zkop�rovat to to
nen�."
Ani pri nejlepsi vuli nechapu o co ti jde.
> -----P�vodn� zpr�va-----
> Od: Libor Vltrovec [mailto:vetrak(zv)hotmail.com]
> Odesl�no: 15. �ervence 1999 11:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Jak zkopmrovat obrazovku do Clibbordu?
>
>
> Zdrv�m v�echny p��znivce
> m�m mal� i velk� probl�m a to zkop�rovat obrzovku an� by jsem musel
> stisknout kal�vesu PrtScr. SaveToClipbordFormat kdeje cesta jakou bmp
> pot�ebuji zkop�rovat to to nen�. Dekuji za pomoc.
>
>
> ,,,
> /'^'\
> ( o o )
> ------------------------oOOO--(_)--OOOo----
> Libor V�trovec
> ---------------
> Winterthur pojist'ovna
> Panska 7
> 110 00 PRAHA 1 .oooO
> ( ) Oooo.
> --------------------------\ (----( )-----
> \_) ) /
> (_/
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
> ZipTv
[*] rjunga(zv)oku-ka(tec)cz - 15.7.1999 14:25:59
Mam volne siritelne komponenty pro pakovani souboru, nezobrazuji zadne
hlasky, ale nepsacuji (pravdepodobne) s formatem ZIP.
Chces je? Tak mi napis na RJUNGA(zv)OKU-KA.CZ
Martin Bab?k <M.Babik(zv)mus(tec)cz> na 15.07.99 12:04:17
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Roman Junga/IDC/OkUKarvina/CZ)
Subject: ZipTv
Zdrav?m Delphisty!
M?m mal? probl?me?ek, st?hl jsem si ZipTv, moc p?kn? komponentky, ale na
jin? ma?in?, ne? na m? zobrazuj? okno, ?e nejsou registrovan?, jak se toho
zbavit. Bohu?el v sou?asn? dob? jsem bez Inetu (to je v?m hr?za). Pora?te
pros?m, d?ky.
M&B
Delka videa 2
[*] Martin Bobak <bobak(zv)minv.sk> - 15.7.1999 14:35:02
no ak kazdy frame ma rovnaku casovu dlzku, tak z ich poctu by nemal byt problem vyratat dlzku celeho videa , myslim si. Ale ak nie tak neviem ;o))
----- Original Message -----
From: Petr Voborn�k
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, July 13, 1999 1:57 PM
Subject: Delka videa 2
Nedavno jsem tu mel dotaz ohledne zjistovani delky videa (AVI, MPG, MOV...). Problem byl v tom, ze TMediaPlayer mi vrati funkci Length pocet framu (obrazku), ale ne pocet sekund, nebo milisekund. Neda se zjistit ani pocet obrazku za sekundu, takze delku videa nelze zjistit. Na tento dotaz mi bohuzel nikdo neodpovedel, tak to zkousim znovu, jestli uz to nahodou nekdo nevite.
vobornik(zv)ssakhk(tec)cz
Start PC
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.7.1999 14:37:59
Slo by to, napsat si program, ktery das bud do...
a) do autoexec.bat
b) do registru windows (sekce HK_LOCAL\MACHINE\
Soft\Microsoft\Windows\Current\Run[Services]
c) do skupiny "Po spu�t�n�"
...ale v�echno jde snadno "obej�t"
Jinak, myslils-li jak dlouho uz bezi, tak na to je
API funkce myslim GetTickCount, ktery Ti rekne, jak
dlouho uz bezi Windows. Jinak to podle me nejde.
Dobra.
> ----------
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl
> zapnut
> pocitac?
> Klientska plocha
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 15.7.1999 15:01:43
Zdravim!
No asi tak aby se to chovalo jako klasickej formular, to znamena, aby se
daly komponenty umistovat az pod titulek okna, doufam ze sem to dobre
vysvetlil.
Pavel Polak
----- P�vodn� zpr�va -----
Od: Pavel Sim��ek <simicek(zv)foresta(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 15. �ervence 1999 13:38
P�edm�t: Re: Klientska plocha
> >Zdravim!
> >
> >Mam dotaz, potreboval bych zmenit klientskou plochu okna - proste aby mi
> >napr. 20 bodu kolem okraje nemohl nikdo umistit zadnou visble komponentu.
> >
> >Dik Pavel Polak
> >
> >
> >
>
> Kdo nikdo? Ty jsi programator tak si snad navrhujes formular sam? Asi jsem
> to nejak nepochopil.
> Prosim blize vysvetlit.
> Pavel
>
>
>
Start PC
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.7.1999 15:34:30
Ahoj,
mam malinky programek, ktery je pousten v autoexecu a ktery mi do
souboru zapisuje aktualni cas a datum, kdy byl pocitac zapnut i
restartovan. Funguje mi to uz od r. 1995 kdy jsem delal jeste prevazne v
DOSu a Win3.1 a pise to ve formatu "** 16.11.95 -- 06:04:34". Na to, ze
mi to uz funguje na ctyri roky je vystup dost maly cca 100 KB ;-)
Zdravim
Jaro B.
http://www.micrel-dev.com/delphi/
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 15. �ervence 1999 14:10
> Komu: '*** Delphi'
> P�edm�t: Start PC
>
> Zdravim,
>
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl
> zapnut
> pocitac?
>
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ============================================== Delka videa 2
[*] Pavel �im��ek - 15.7.1999 16:05:26
-----P�vodn� zpr�va-----
Od: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 15. �ervence 1999 15:33
P�edm�t: Delka videa 2
Nedavno jsem tu mel dotaz ohledne zjistovani delky videa (AVI, MPG, MOV...). Problem byl v tom, ze TMediaPlayer mi vrati funkci Length pocet framu (obrazku), ale ne pocet sekund, nebo milisekund. Neda se zjistit ani pocet obrazku za sekundu, takze delku videa nelze zjistit. Na tento dotaz mi bohuzel nikdo neodpovedel, tak to zkousim znovu, jestli uz to nahodou nekdo nevite.
vobornik(zv)ssakhk(tec)cz
Nevim jestli ti pomuzu, ale hledal bych strukturu hlavicek takovychto souboru, a v te urcite musi byt uvedeno pocet framu. A rekl bych ze TMediaPlayer musi tu hlavicku nacist a zpracovat, takze pokud se pohrabes nekde ve zdrojacich, tak by to tam melo byt.
P.
Klientska plocha
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.7.1999 16:33:33
Abych se priznal, take to nechapu, vzdyt uzivatel
uz si preci na formular zadne komponenty umistovat
nebude. Ty mu tam umistis Ty.
Dobra.
> ----------
> No asi tak aby se to chovalo jako klasickej formular, to znamena, aby
> se
> daly komponenty umistovat az pod titulek okna, doufam ze sem to dobre
> vysvetlil.
> ----- P�vodn� zpr�va -----
> > >Mam dotaz, potreboval bych zmenit klientskou plochu okna - proste
> aby mi
> > >napr. 20 bodu kolem okraje nemohl nikdo umistit zadnou visble
> komponentu.
> > >
> > >Dik Pavel Polak
> > >
> > Kdo nikdo? Ty jsi programator tak si snad navrhujes formular sam?
> Asi jsem
> > to nejak nepochopil.
> > Prosim blize vysvetlit.
> > Pavel
> >
> Start PC
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 15.7.1999 16:35:03
No jeste mne krom jiz uvedeneho napadla takova mala lumparna. Co takhle
vyuzit cas souboru ''bootlog.txt''?
Jasne. V registrech je to elegantnejsi a navic nevim jestli w95 nejsou
jedine, kdo tento soubor pouziva, ale nouzve pouzitelne to byt muze :-)
(hlavne, pokud nekdo potrebuje tuto informaci jednou a ne az od pristiho
startu). A da se to zjistit i z dosove app.
Mti.
-----P�vodn� zpr�va-----
>lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl zapnut
>pocitac?
Klientska plocha
[*] Pavel �im��ek - 15.7.1999 16:45:21
>Zdravim!
>
>No asi tak aby se to chovalo jako klasickej formular, to znamena, aby se
>daly komponenty umistovat az pod titulek okna, doufam ze sem to dobre
>vysvetlil.
>
Nejak to porad nechapu.
P.
WINOA386 neco o spehovani
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 15.7.1999 16:45:45
No, nechtel bych to tady nejak rozsirit, ale proc si jednoduse
nezaheslis pristup? Jestli dobre dekoduju tvuj mail, tak jses odnekud z
ustavu jaderne fyziky, a to by melo byt sakra dobre zabezpecene, ne? Tak
jakepak courani v noci po kancelarich? Copak jste mlikarna?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Libor Nosek [SMTP:nosek(zv)ujf.cas(tec)cz]
> Odesl�no: 15. �ervence 1999 12:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: WINOA386 neco o spehovani
>
> Ahoj
> Nerad bych tady spustil nejakou diskuzi o tom je-li spravne spehovat
> jake
> procesy se dejou v systemu, a ktera bude
> celkem k nicemu. Proc jsem to ale zacal psat? Za prve - je to pro moji
> vlastni potrebu, coz byl zamer, ktery jsem
> mel uz pred nekolika lety a porad jsem na to nemel cas. Za druhe - coz
> je
> dnes vlastne hlavni pricina, nekdo se
> v dobe kdy je moje pracoviste prazdne, tedy v dobach sobotnich,
> nocnich atd
> coura po pracovisti a dela si tu
> neco na pocitacich. Bohuzel to doslo tak daleko, ze je to dnes
> polocejni
> zalezitost a moje lenost a urcita
> neochota psat takovy program se prikazem reditele razem stala
> nejakutnejsi.
> Jestli se mi to libi nebo ne to
> je k dnesnimu dni celkem nepodstatny faktor. Mame tady data, ktera
> stala
> hodne penez a ktera jsou dost
> dulezita. Takze potud moje vyjadreni.
> Libor
>
> ----- Original Message -----
> From: Jano <jj_delphi(zv)ke.ubp.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, July 15, 1999 12:31 PM
> Subject: Re: WINOA386
>
>
> > -----Original Message-----
> > From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> > To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> > Date: 15. j�l 1999 8:02
> > Subject: RE: WINOA386
> >
> >
> > >Ja jsem ho zkousel, ale bohuzel mi to hlasi chybu na radku
> > > TShellExComObjectFactory.Create(ComServer, TTShellExecuteHook,
> > > Class_TShellExecuteHook, 'TShellExecuteHook',
> > > 'ShellExecute hook sample',
> > > ciMultiInstance, tmApartment);
> > >v sekci inifialization (unita ShellExecuteHookObj)
> > >a to "Too many actual parameters"
> >
> >
> > Ahoj,
> > trosku offtopic k tvojmu problemu. Ked si skompilujes prilozeny
> priklad
> aplikacie (pouzil som D4), ktora pouziva hooklib.dll od Petra Vonese:
> >
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecut
> eHook.
> zip
> > a spustis ho, vyzera to tak, vsetko bezi OK, ale ked som prilinkoval
> skompilovanu hooklib.dll v inej aplikacii, zacala sa spravat velmi
> zakerne.
> V okamihu nabehnutia novej aplikacie program 1) pokial totalne
> nehavaroval s
> mnozstvom Error hlaseni jeden za druhym a okamzite odstrelil Win, 2)
> tak pri
> uzatvoreni aplikacie ku ktorej bola prilinkovana, spadol program pod
> nim,
> ktoreho Main okno sa stalo najrchnejsim. Podozrenie padlo na
> HookLib.dll,
> ale tam chyba nebola. Chyba bola v samotnom priklade. Urobil som
> nasledujucu
> zmenu v programe, ku ktoremu som ju prilinkoval a vsetko zacalo bezat
> OK.
> >
> > TForm1 = class(TForm)
> > Memo1: TMemo;
> > procedure FormCreate(Sender: TObject);
> > procedure FormDestroy(Sender: TObject);
> > private
> > // deklar. proced. "WndProc" prehodit do sekcie "public"
> > procedure WndProc(var Msg: TMessage); override;
> > public
> > { Public declarations }
> > end;
> >
> > >Navic je to knihovna a neni mi moc jasne, kterou
> > >exportovanou funkci na co pouzit.
> >
> > Myslim, ze v prilozenom priklade ako pouzivat funcie z HookLib.dll
> je to
> uplne jasne...
> >
> > Nakoniec som od pouzitia ShellHook upustil, lebo mi to nechytalo
> spustenie
> aplikacii, ktora nevytvarala ziadne okno :-( Napr. mi to vobec
> nechytilo
> spustenie programu Getright, comu som sa velmi divil...ale dalej som
> to uz
> nestudoval, preco.
> >
> > Jano
> > jj_delphi(zv)ke.ubp.sk
> >
> > >
> > >> -----
> > >> Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove
> veci
> > >> se mi
> > >> ale osobne vubec nelibi), tak je mozne udelat hook na API funkci
> > >> ShellExecute
> > >> kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad
> najdes
> > >> tady:
> > >>
> > >>
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecut
> > >> eHook.zip
> > >>
> > >>
> > >
> > >WINOA386 neco o spehovani
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 15.7.1999 15:58:06
-----Original Message-----
From: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
>Ahoj
>Nerad bych tady spustil nejakou diskuzi o tom je-li spravne spehovat jake
>procesy se dejou v systemu, a ktera bude
>celkem k nicemu.
>Proc jsem to ale zacal psat? Za prve - je to pro moji
>vlastni potrebu, coz byl zamer, ktery jsem
>mel uz pred nekolika lety a porad jsem na to nemel cas. Za druhe - coz je
>dnes vlastne hlavni pricina, nekdo se
>v dobe kdy je moje pracoviste prazdne, tedy v dobach sobotnich, nocnich atd
>coura po pracovisti a dela si tu
>neco na pocitacich
Ahoj,
no tak toto Ti nezavidim, len ma tak napada, ani clovek nie velmi znaly veci, aby Ti dotycny program eliminoval lahko, ked napr. uvidi nieco divne v taskbare, to zvladne. Budes mat viac problemov ako ho skryt spred jeho oci. Samotne sledovanie beziacich procesov oproti tomu nie je az take zlozite. Ked si pozries maily od 3.99 najdes mnoho rieseni ako na to, a najdes medzi nimi urcite nieco aj na to skryvanie aplikacii. Ked by si to dotiahol do takej dokonalosti, ze Ti bude sledovat aj co robi v urcitej aplikacii, (ktore okna mal pootvarane...), tak klobuk dolu. Trochu Ti pomozem. Tu mas priklad, ktory Ti zistuje v "idle" rezime, ake boli aktivne okna.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/ScanWnd_Example.zip
Je to sposorb riesenia trochu netradicny. Na zaklade ziskanej hodnoty ProcessID okna zistis kto je jeho vlasnikom, a dostanes dotycny spusteny exac. Len to vsetko staci niekam logovat na disk a mas to. Islo mi o netradicne riesenie...
Jano
jj_delphi(zv)ke.ubp.sk
Jano
jj_delphi(zv)ke.ubp.sk
Klientska plocha
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.7.1999 17:48:14
Pavel Polak wrote:
> Mam dotaz, potreboval bych zmenit klientskou plochu okna - proste aby mi
> napr. 20 bodu kolem okraje nemohl nikdo umistit zadnou visble komponentu.
Patrne mas na mysli formular? To musis udelat potomka TForm,
osetrit tam ClientRect, zaregistrovat ho a lupnout ho mezi wizardy.
Podivej se na Wizardy v Delphree.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TThread (D3 C/S) a synchronize, potazmo VCL.
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 15.7.1999 18:02:16
On Thu, 15 Jul 1999, Petr Vones wrote:
> Jinak pokud jsem to jen trochu pochopil, tak ti jde o volani databazovych
> funkci v threadu. Podivej se pro zacatek na priklad Demos\Db\BkQuery.
> Pointa je v tom, ze musis vytvorit novou Session a Database pro beh kodu
> v threadu a pridelit jim jedinecny nazev. Uprime receno jsem dodnes zcela
> nepochopil tu funkci GetUniqueNumber, asi jednodussi by bylo pouzit pro
> jedinecny nazev treba GetCurrentThreadId.
Ahoj,
zrovna se zabyvam necim podobnym, s tim rozdilem, ze se pokousim v
nekolika threadech volat nekolik TQuery. Problem je v tom, ze query se
SELECTem probehnou celkem dobre, ale jak se pokusim o UPDATE tak se zacnou
dit hrozny veci. (Access violation, Neplatna operace... skoro pokazdy je
treba restartovat winsy). Je docela mozne, ze za to ExecSQL nemuze a chyba
je jinde, ale kdyz je zaremovanej tak se to chova relativne dost stabilne.
Nepokouseli jste se nekdo o neco podobneho? Jaka jsou uskali?
Uz jsem z toho docela zoufalej. :-(
(BkQuery jsem samozrejme prostudoval, ale maj tam jen jednu queeery, tak
jim to celkem facha :-))
(Jo jde o D4 SP3)
diky
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
WINOA386 neco o spehovani
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 15.7.1999 18:44:12
Libor Nosek <nosek(zv)ujf.cas(tec)cz> wrote:
> Nerad bych tady spustil nejakou diskuzi o tom je-li spravne spehovat jake
> procesy se dejou v systemu, a ktera bude
> celkem k nicemu.
Kdyz uz jsme u toho spehovani: vsiml jsem si, ze se mi pod W98 v adresari
WINDOWS\APPLOG vytvareji podezrele textove soubory *.lgc a *.lgd, pricemz
explorer o existenci podadresare APPLOG cudne mlci :-(
Takze nejspis uz nas Gates spehuje sam, a to dost detailne, protoze to
vypada jako chronolicky zaznam aktivit spusteneho procesu. Nevi o tom
podadresari nekdo neco?
Thanx, pf
S3 Virge a BusThrotle
[*] Stanislav �mejkal <S.Smejkal(zv)sh.cvut(tec)cz> - 15.7.1999 20:28:23
Nevite nekdo kam se presne pise to BusThrotle nebo tak nejak
aby se Delphi 4 nesekaly?
Diky
Standa
Zpozdeni zapis na disk Win95-98
[*] Vlada Cadsky <cadskyk1(zv)atlas(tec)cz> - 15.7.1999 20:36:31
Zdravim
Jiz se na konferenci objevily dotazy tykajici se tohoto tematu ale zadna
odpoved, proto to ted zkusim ja.
Mam cast programu kde vytvorim soubor, zapisu do nej a uzavru. Neprodlene
potom chci soubor zabalit pomoci TZipMaster. V systemu Win95, 98 se zabaly
nesmysl nebo nic. V systemu WinNT to funguje OK.
Ruznymi smyckami cekam az se ini soubor zapise na disk abych s nim mohl dale
pracovat, ale moc spolehlive to neni.
Existuje alespon nejaka funkce ktera mi rekne ze se soubor kompletne zapsal
na disk ?
Priklad:
if fileExists(zipInfo) then if not Deletefile(zipInfo) then abort;
ini := TInifile.Create(zipInfo);
try
ini.WriteInteger(cn_setapp, 'ver', rApp.verze);
finally
ini.Free;
end;
// zdrzeni z duvodu zapisu cache na disk u systemu Win95-98
repeat until FileIsShareExclusive(ZipInfo); // moje funkce
Delay(4000); // taky moje funkce
with ZipMaste do begin
ZipFileName := zipName;
ExtrBaseDir := GetAdrTemp;
FSpecArgs.Clear;
FSpecArgs.Add(ZipInfo);
add; // zipuj do temp
end;
Vlada Cadsky, Mobil 0603 470965
E-mail na mobil: cadsky(zv)atlas(tec)cz (pouze zpravy BEZ prilohy)
E-mail pro prijem priloh: CadskyMega(zv)atlas(tec)cz
Start PC
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 15.7.1999 21:12:21
Krayzel Libor wrote:
> Zdravim,
>
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl zapnut
> pocitac?
>
Treba takhle :
ShowMessage(TimeToStr(Time -
(TimeStampToDateTime(MSecsToTimeStamp(GetTickCount)))));
eL..MessageBox s checkboxem
[*] Jaro <jaro(zv)sinea(tec)cz> - 15.7.1999 21:35:48
Myslim, ze je velice snadne udelat si vlastni formular s jednim
tlacitkem a jednim
checkbox-em v levem dolnim rohu. Dale si muzes udelat velmi
jednoduchou funkci
pro snadnejsi volani formulare.
Problem spociva v tom, ze je potreba nekam ukladat informaci, ze se
ten
formular ma nebo nema nastavovat (stav checkbox-u ) a to v kazdem
jinem miste volani formulare.
Proto je nutne ten stav ukladat parametricky. Dale je potreba zajistit
cteni teto informace, ktera
rozhodne o zobrazeni formulare. Ja to resim ukladanim do ini souboru,
o coz se postara samotny formular.
Tim si dost setrim praci, protoze pri opakovanem volani formulare se
uz o nic nestaram.
Je pak tez snadne udelat jeste jedno okno na ditaci toho ini souboru.
Musi byt nekde moznost vratit zobrazovani takovych formularu do
puvodniho stavu.
Uz z toho je patrne, ze asi nejaky jednoduchy dialog box to nevyresi.
Musel by to byt dialog,
ktery by pouze vracel hodnotu checkbox-u jako parametr a o vse ostatni
by ses musel stejne postarat
sam. To je ovsem mene efektivni, protoze bys to programoval opakovne,
nebo bys nusel resit dalsi funkci.
Jaro
-----P�vodn� zpr�va-----
Od: Petr Ga�ourek <geta(zv)telecom(tec)cz>
Komu: DELPHI Konference <delphi-l(zv)fwd(tec)cz>
Datum: 12. �ervence 1999 10:48
P�edm�t: MessageBox s checkboxem
>Ahoj,
>
>nevite nekdo, zda lze v nejake standardni DLL nalest MessageBox s
>checkboxem v levem dolnim rohu dialogu. Nejcasteji se pouziva pro
zpavu
>s moznosti jeji dalsi zobrazovani zakazat.
>
>
>Diky
>
>Petr Gadourek
>
>
>Zpozdeni zapis na disk Win95-98
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:20:58
Vlada Cadsky wrote:
>
> Zdravim
> Jiz se na konferenci objevily dotazy tykajici se tohoto tematu ale zadna
> odpoved, proto to ted zkusim ja.
> Mam cast programu kde vytvorim soubor, zapisu do nej a uzavru. Neprodlene
> potom chci soubor zabalit pomoci TZipMaster. V systemu Win95, 98 se zabaly
> nesmysl nebo nic. V systemu WinNT to funguje OK.
> Ruznymi smyckami cekam az se ini soubor zapise na disk abych s nim mohl dale
> pracovat, ale moc spolehlive to neni.
> Existuje alespon nejaka funkce ktera mi rekne ze se soubor kompletne zapsal
> na disk ?
Ahoj,
Pouzij metodu TIniFile.UpdateFile. Podle toho jak to popisujes by to melo
vyresit tvuj problem.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Data s TQuery
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:20:03
Bednarcik Dalibor wrote:
>
> Ahoj Lidi...
>
> Mel bych jeden takovej problemek....
> Potreboval bych ulozit data s TQuery do jineho DBF souboru...
> (sql dotaz v ni se meni dle kriterii ktera si vybere uzivatel)...
> Jde o to, ze ty data bych chtel pouzit treba v excelu....
> Nebo jde to nejak pres schranku, nebo podobnym zpusobem?
Ahoj,
Kopirovani datasetu do schranky se tu nedavno probiralo, jednoduchy
priklad je v archivu:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=Jul&den=08&first=61&soubor=dlfaaacv.htm
Dalsi moznost muze byt ulozeni vysledku do permanentni tabulky pomoci
BDE API funkci DbiMakePermanent nebo DbiQInstantiateAnswer.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Database a thread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:22:33
Petr Mys wrote:
> Nekdy V threadu vytvorim tez pomocnou Query, ktere priradim DatabaseName
> komponenty z hlavniho okna.
Ahoj,
Ohledne pouziti threadu a BDE vychazim z toho co se pise v helpu o TSession:
Finally, database applications that must establish multiple, concurrent connections
to the same database, such as performing two queries against the same data at once,
are multi-threaded applications. Multi-threaded applications must create and maintain
one additional session component for each simultaneous connection to a single database
server.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
WINOA386
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:22:20
Jano wrote:
> Ahoj,
> trosku offtopic k tvojmu problemu. Ked si skompilujes prilozeny priklad aplikacie (pouzil som D4), ktora pouziva hooklib.dll od Petra Vonese:
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecuteHook.zip
> a spustis ho, vyzera to tak, vsetko bezi OK, ale ked som prilinkoval skompilovanu > hooklib.dll v inej aplikacii, zacala sa spravat velmi zakerne. V okamihu nabehnutia novej
Ahoj,
To jsi trochu zamotal do sebe dva ruzne priklady, v tom o kterem pisu zadna
knihovna hooklib.dll neni. Jsou tam totiz dva priklady, ktere maji podobne
jmeno, ale jinak jsou zcela odlisne:
Example_ShellExecuteHook:
ukazuje implementaci rozhrani IShellExecuteHook ktere rozsiruje chovani funkce
ShellExecute ci ShellExecuteEx tak, ze muzes sledovat jeji pouziti a pripadne
zamezit danemu pozadavku na spusteni. Nemely by s ni byt v D4 problemy.
Takhle muze vypadat logovani spousteni s pouzitim toho prikladu:
function TTShellExecuteHook.Execute(var ShellExecuteInfo: TShellExecuteInfo): HResult;
const
CRLF = #13#10;
var
LogFileName, LogMsg: String;
LogFileHandle: THandle;
DesktopFolder: IShellFolder;
Ret: STRRET;
procedure AddMsgLine(P: PChar);
begin
if P <> nil then LogMsg := LogMsg + ' ' + P + CRLF;
end;
begin
Result := S_FALSE;
LogFileName := 'C:\ShellExecuteLog.txt';
LogFileHandle := CreateFile(PChar(LogFileName), GENERIC_WRITE,
FILE_SHARE_READ, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if LogFileHandle <> INVALID_HANDLE_VALUE then
begin
with ShellExecuteInfo do
begin
LogMsg := FormatDateTime('dd.mm.yyyy hh:nn:ss ', Now) + lpVerb + CRLF;
AddMsgLine(lpFile);
AddMsgLine(lpParameters);
if (lpFile = nil) and (fMask and SEE_MASK_IDLIST <> 0) then
begin
if (SHGetDesktopFolder(DesktopFolder) = NOERROR) and
(DesktopFolder.GetDisplayNameOf(lpIDList, SHGDN_NORMAL, Ret) = NOERROR) then
case Ret.uType of
STRRET_CSTR:
AddMsgLine(Ret.cStr);
end;
DesktopFolder := nil;
end;
end;
SetFilePointer(LogFileHandle, 0, nil, FILE_END);
FileWrite(LogFileHandle, Pointer(LogMsg)^, Length(LogMsg));
CloseHandle(LogFileHandle);
end;
end;> aplikacie program 1) pokial totalne nehavaroval s mnozstvom Error hlaseni jeden za druhym > a okamzite odstrelil Win, 2) tak pri uzatvoreni aplikacie ku ktorej bola prilinkovana,
ShellHook_example:
tento priklad ukazuje mozne pouziti systemovych hook funkci (SetWindowsHookEx)
a to konkretne WH_SHELL Hook. Jak jsem jiz psal vcera, s psanim hook funkci v
Delphi jsou problemy a zatim jsem nevidel zadne plne funkcni reseni. Proto ti
to stale padalo. Priklad spise ukazuje, jak by to mohlo jit obejit v Delphi,
kdyby to ale fungovalo :-) K tomu jeste jedna poznamka, z ruznych prispevku v
Borland newsech vyplyva, ze ve Win98 jsou pry s hook funkcemi obecne nejake
problemy ...
> Nakoniec som od pouzitia ShellHook upustil, lebo mi to nechytalo spustenie aplikacii,
> ktora nevytvarala ziadne okno :-( Napr. mi to vobec nechytilo spustenie programu
> Getright, comu som sa velmi divil...ale dalej som to uz nestudoval, preco.
To je ale naprosto v poradku. WM_SHELL hook neoznamuje spusteni a ukonceni
procesu, ale vytvareni a ruseni top-level oken. Pokud tedy aplikace nemela
zadne okno, nemohlo se ti to v tomto pripade projevit.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QR do HTML ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:22:54
> TUNGLI Jan wrote:
>
> Je mozne dostat report z QR do HTML ?
> Existuje nato komponenta alebo nieco podobne ?
Ahoj,
Pokud mas QR 3.0.4 (D4), tak tam mas komponentu TQRHTMLFilter. Ale jeji vystup
je pomerne "zakladni".
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.7.1999 21:23:25
Puvodni zprava, kterou napsal Martin Bab�k dne 15 Jul 99,:
> M�m mal� probl�me�ek, st�hl jsem si ZipTv, moc p�kn� komponentky, ale na
> jin� ma�in�, ne� na m� zobrazuj� okno, �e nejsou registrovan�, jak se toho
> zbavit. Bohu�el v sou�asn� dob� jsem bez Inetu (to je v�m hr�za). Pora�te
> pros�m, d�ky.
Poradim Ti neco, co bys mozna nejmene cekal :) Je to jednoduche,
zaregistruj si je, tj. zaplat registraci poplatek...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
WINOA386
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:23:04
Mal� Dobromil wrote:
>
> Ja jsem ho zkousel, ale bohuzel mi to hlasi chybu na radku
> TShellExComObjectFactory.Create(ComServer, TTShellExecuteHook,
> Class_TShellExecuteHook, 'TShellExecuteHook',
> 'ShellExecute hook sample',
> ciMultiInstance, tmApartment);
> v sekci inifialization (unita ShellExecuteHookObj)
> a to "Too many actual parameters"
> Navic je to knihovna a neni mi moc jasne, kterou
> exportovanou funkci na co pouzit.
>
> Mam D3.
Ahoj,
To bude problem, ten parametr ktery tam nemas urcuje threading model, ktery
je pokud vim v D3 napevno jako tmSingle. Muzes si to sice potom rucne zmenit
v registru, ale je otazka jestli to nebude vadit vlastni implementaci COMu
v D3.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak =?iso-8859-2?Q?zkop=EDrovat?= obrazovku do Cli
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 22:23:35
"Libor V�trovec" wrote:
>
> Zdrv�m v�echny p��znivce
> m�m mal� i velk� probl�m a to zkop�rovat obrzovku an� by jsem musel
> stisknout kal�vesu PrtScr. SaveToClipbordFormat kdeje cesta jakou bmp
> pot�ebuji zkop�rovat to to nen�. Dekuji za pomoc.
Ahoj,
Napriklad takhle:
procedure ScreenToBitmap(Bitmap: TBitmap);
var
ScreenCanvas: TCanvas;
ScreenRect: TRect;
begin
ScreenRect := Rect(0, 0, Screen.Width, Screen.Height);
Bitmap.Height := ScreenRect.Bottom;
Bitmap.Width := ScreenRect.Right;
ScreenCanvas := TCanvas.Create;
try
ScreenCanvas.Handle := GetWindowDC(GetDesktopWindow);
Bitmap.Canvas.CopyRect(ScreenRect, ScreenCanvas, ScreenRect);
finally
ScreenCanvas.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
ScreenToBitmap(Bitmap);
Clipboard.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QR do HTML ?
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 15.7.1999 23:19:05
na http://www.qusoft.com pisou, ze to umi verze QR Professional
(zdrojaky + dalsi vylepseni).
stoji ovsem $99.
michel
> -----Original Message-----
> Je mozne dostat report z QR do HTML ?
> Existuje nato komponenta alebo nieco podobne ?
> �
> TUNGLI� Jan
> tungli(zv)pvt.sk <mailto:tungli(zv)pvt.sk> Delka videa 2
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 15.7.1999 23:58:42
Petr Voborn�k wrote:
> Nedavno jsem tu mel dotaz ohledne zjistovani delky videa (AVI, MPG,
> MOV...). Problem byl v tom, ze TMediaPlayer mi vrati funkci Length
> pocet framu (obrazku), ale ne pocet sekund, nebo milisekund. Neda se
> zjistit ani pocet obrazku za sekundu, takze delku videa nelze zjistit.
> Na tento dotaz mi bohuzel nikdo neodpovedel, tak to zkousim znovu,
> jestli uz to nahodou nekdo nevite. vobornik(zv)ssakhk(tec)cz
A nepomohlo by, co je napsano v helpu Delphi pro property
TMediaPlayer.TimeFormat?
Z helpu VCL:
TMediaPlayer.TimeFormat
Determines the format used to specify position information.
type TMPTimeFormats = (tfMilliseconds, tfHMS, tfMSF, tfFrames,
tfSMPTE24, tfSMPTE25, tfSMPTE30, tfSMPTE30Drop, tfBytes, tfSamples,
tfTMSF);
property TimeFormat: TMPTimeFormats;
Description
TimeFormat determines how the StartPos, Length, Position, Start, and
EndPos properties are interpreted. For example, if Position is 180 and
TimeFormat is tfMilliseconds, the current position is 180 milliseconds
into the medium. If Position is 180 and TimeFormat is tfMSF, the current
position is 180 minutes into the medium.
...
Takze pak uz staci jen precist TMediaPlayer.Length...
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
WINOA386 neco o spehovani
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 16.7.1999 00:23:28
Ahoj,
jen tak se vlozim, abych alespon obcas neco napsal :-)),
Petr Fejfar wrote:
> Kdyz uz jsme u toho spehovani: vsiml jsem si, ze se mi pod W98 v adresari
> WINDOWS\APPLOG vytvareji podezrele textove soubory *.lgc a *.lgd, pricemz
> explorer o existenci podadresare APPLOG cudne mlci :-(
O tehle souborech lidi z Grisoftu mluvi jako o log souborech pro
aplikace (a ja bych jim veril). 98-cky je pak udajne zpetne analyzuji a
aplikaci podle nich optimalizuji na vyssi vykon. Jestli na tom neco je,
nebo ne, to vi jen buh ...
> Takze nejspis uz nas Gates spehuje sam, a to dost detailne, protoze to
> vypada jako chronolicky zaznam aktivit spusteneho procesu. Nevi o tom
> podadresari nekdo neco?
Mimochodem, ten samy zdroj vypravi o tom, ze pokud je spustena aplikace,
jsou logy prakticky dva - jeden je ukladan do adresare applog, ten druhy
se snad dokonce vyrabi v adresari, ze ktereho jsi program spusil a ma
priponu ".~~" ...
Je to obycejne logovani pro optimalizaci :-) - ale kdo vi, co ma pro nas
Bill pripraveneho :-))
Peter Rus
mailto:peterrus(zv)intesys(tec)cz
ps. paranoidni predpovedi prosim na muj soukromy email ;-))))))) nemusi
z vas mit srandu cela republika ;-))Start PC
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 16.7.1999 00:29:07
Hello All!
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl
> zapnut pocitac?
Prvych 49.7 dni vystacis s Win32 fciou GetTickCount, potom jedine na NT
dostanes 8-bytovu hodnotu (HKEY_DYN_DATA?).
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
UPDATE v SQL s vysledekem v jednom kroku
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 16.7.1999 00:51:31
Zdravim vsechny.
Mam tento problem. Potrebuji v aplikaci vytvorit a obslouzit tabulky s
ciselniky. Tabulka by mela vypadat asi takto :
Typ : Char 1
Cislo : integer
No a potrebuji v jednom kroku zvysit cislo o jednu a hned si precist tu
vyslednou hodnotu. Asi takto :
UPDATE "Ciselnik.DB" SET Cislo = (Cislo + 1) WHERE (Typ = 'A')
a aby to nebylo tak jednoduche potrebuji aby to byl postup, ktery by
mohl byt aplikovan jak na Paradox tabulkach tak obecne na SQL serveru.
(samozrejme , ze urcite upravy v kodu nevadi, ale aby tento postup bylo
mozno principielne pouzit na obojim)
Obecne jde o to zvysit cislo v ciselniku o jednu a dozvedet se ho pri
moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit a pak
precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k tomu, ze
nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi nastat.
Zamknuti tabulky a provedeni dvou kroku bych se rad z pochopitelnych
duvodu (chcipnuti stanice) vyhnul.
Predem diky za odpovedi.
eL..Je mezne dat Edit do Menu ?
[*] Libor V�trovec <vetrak(zv)hotmail(tec)com> - 16.7.1999 00:33:08 pdt
V Microsoft Access pri stisku L.tlacitka mysi je v menu filtrace s editacnim
radkem rad byjsem to udelal i v Delphi(mam 3.01) je to mozne udelat? Pokud
ano tak prosim jak mam pocit ze oni tam pouzivaji form ale nejsem si jist
proto se obracim na vas zda nekdo jste uz s timto pracoval. predem dekuji za
vasi pomoc
,,,
/'^'\
( o o )
------------------------oOOO--(_)--OOOo----
Libor V�trovec
---------------
.oooO
( ) Oooo.
--------------------------\ (----( )-----
\_) ) /
(_/
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Table is Full
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.7.1999 06:21:19
Radim Kunz wrote:
> To je v Paradoxu ?
> Pokud ano, tak
> 1. Pust si BDE administrator, zajed si do konfigurace driveru, je tam
> polozka Block size, nastav ji na vetsi hodnotu. 3. Vytvor tabulku znova, a
> data do ni zkopiruj.
Mno, pri takovemhle poctu bych hned po tomhle doporucoval zacit
premyslet o jine databazi. :-)
>
> Radim
> -----P�vodn� zpr�va-----
> Od: Roman �ev��k <rsevcik(zv)artron(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 15. �ervence 1999 10:18
> P�edm�t: Table is Full
>
>
> Mam tabulku o 260 000 zaznamech. Potrebuji pridat dalsi, ale stale to
> hlasi Table is Full. Nevite nekdo co s tim ?
> Diky.
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
WINOA386 neco o spehovani
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.7.1999 06:21:19
Jano wrote:
> no tak toto Ti nezavidim, len ma tak napada, ani clovek nie velmi znaly
> veci, aby Ti dotycny program eliminoval lahko, ked napr. uvidi nieco divne
> v taskbare, to zvladne. Budes mat viac problemov ako ho skryt spred jeho
> oci.
Schovat program pro taskbar je to nejmensi. Myslim, ze to je
ShowWindow(Application.Handle,sw_Hide);
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Start PC
[*] Ing. �ubom�r G�L - 16.7.1999 07:21:15
stacia aj dva davkove prikazy:
DATE >> E:\ARCHIV\X.log < E:\ARCHIV\CR.DAT
TIME >> E:\ARCHIV\X.log < E:\ARCHIV\CR.DAT
kde subor CR.DAT obsahuje iba prikaz CR (novy riadok - 1xENTER v NOTEPADe)
LuGa
******************************
Lubomir "Levec" GAL, -LuGa
IS, NUPSESO, a.s. Nitra, SK
mailto:lgal(zv)nupseso.sk
******************************
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 15. j�l 1999 1534
Subject: RE: Start PC
Ahoj,
mam malinky programek, ktery je pousten v autoexecu a ktery mi do
souboru zapisuje aktualni cas a datum, kdy byl pocitac zapnut i
restartovan. Funguje mi to uz od r. 1995 kdy jsem delal jeste prevazne v
DOSu a Win3.1 a pise to ve formatu "** 16.11.95 -- 06:04:34". Na to, ze
mi to uz funguje na ctyri roky je vystup dost maly cca 100 KB ;-)
Zdravim
Jaro B.
http://www.micrel-dev.com/delphi/
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 15. �ervence 1999 14:10
> Komu: '*** Delphi'
> P�edm�t: Start PC
>
> Zdravim,
>
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl
> zapnut
> pocitac?
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================Jaky typ tabulek a jeste TQUERY
[*] Dalibor Bednar��k - 16.7.1999 07:41:15
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Mam napsat program pro knihovnu....
Poradte mi, jaky je na to nejlepsi typ tabulek..
Paradox, DBase .....(to co standartne nabizi podpora delphi 3)
Popisete mi vyhody, nevyhody?
V tomhle se nejak moc dobre neorientuju...
Uvazuju, ze bych to napsal pro Interbase...
Predem moc dekuji za jakekoliv rady, pripominky...
Dalibor......
A jeste jedna vec ohledne TQUERY...
Potrebuju zkopirovat vysledna data s TQuery do souboru.....
Myslel jsem si, ze bych to mohl udelat nejak takhle
with Table1 do
begin
Active := False;
DatabaseName := '';
TableType := ttDBASE;
TableName := savedialog1.filename;
with FieldDefs do
begin
Clear;
Assign(Nabehy.FieldDefs);
end;
CreateTable;
end;
BatchMove1.Execute;
Jenze bohuzel, nevytvori se mi cela struktura ze zdrojove tabulky.....(pouzivaji se tam pole pres LOOKUP a ty se prave nevytvori)
S3 Virge a BusThrotle
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 16.7.1999 07:53:53
SYSTEM.INI:
[Display]
BusThrottle=on
Cau Mira
----- P�vodn� zpr�va -----
Od: Stanislav �mejkal <S.Smejkal(zv)sh.cvut(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 15. �ervence 1999 20:28
P�edm�t: S3 Virge a BusThrotle
> Nevite nekdo kam se presne pise to BusThrotle nebo tak nejak
> aby se Delphi 4 nesekaly?
>
> Diky
> Standa
>
>
>ZipTv
[*] Ing. J�n Kuch�r�����!j��G - 16.7.1999 08:00:47
kde sa ti podarilo splasit tie komponenty, daj vediet
WINOA386 neco o spehovani
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 16.7.1999 08:02:39
----- P�vodn� zpr�va -----
Od: Jano <jj_delphi(zv)ke.ubp.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 15. �ervence 1999 16:58
P�edm�t: Re: WINOA386 neco o spehovani
> Budes mat viac problemov ako ho skryt spred jeho oci
Nebudes, na DSP (nebo Torry ?) je komponenta Phantom, dela vse, co se v
tomhle ohledu muze chtit.
Mira
Jaky typ tabulek a jeste TQUERY
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 08:26:02
-----Original Message-----
From: Dalibor Bednar��k [mailto:d.bednarcik(zv)vpfm(tec)cz]
Sent: Friday, July 16, 1999 7:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Jaky typ tabulek a jeste TQUERY
Mam napsat program pro knihovnu....
[Polak Jiri]
pro Statni vedeckou knihovnu nebo pro domaci knihovnu Tveho sefa?
Anebo to bude ShareWare za $5.00 ?
Co to ma umet? Evidenci knih, evidenci zapujcek, napojeni
na knihkupectvi a vyber knih, ktere v knihovne nejsou?
Je to projekt na tyden nebo na rok? Treba by stacila
evidence v Excelu?
Poradte mi, jaky je na to nejlepsi typ tabulek..
[Polak Jiri]
Zalezi na tom, co od toho pozadujes. Jestli to bude software
pro velky pocet zakazniku, je asi nejlepsi vystacit s Paradoxem nebo jinou
souborovou nenarocnou databazi. Pokud je to zakazkovy SW pro jednoho
klienta, je dobre vzit to nejlepsi, co ma k dispozici anebo mu prodat
nejakou databazi, kterou vyuzije i jinak nez pro knihovnu.
Paradox, DBase .....(to co standartne nabizi podpora delphi 3)
Popisete mi vyhody, nevyhody?
V tomhle se nejak moc dobre neorientuju...
Uvazuju, ze bych to napsal pro Interbase...
Predem moc dekuji za jakekoliv rady, pripominky...
Dalibor......
A jeste jedna vec ohledne TQUERY...
Potrebuju zkopirovat vysledna data s TQuery do souboru.....
Myslel jsem si, ze bych to mohl udelat nejak takhle
with Table1 do
begin
Active := False;
DatabaseName := '';
TableType := ttDBASE;
TableName := savedialog1.filename;
with FieldDefs do
begin
Clear;
Assign(Nabehy.FieldDefs);
end;
CreateTable;
end;
BatchMove1.Execute;
Jenze bohuzel, nevytvori se mi cela struktura ze zdrojove
tabulky.....(pouzivaji se tam pole pres LOOKUP a ty se prave nevytvori)
[Polak Jiri]
Jestli jsem to dobre pochopil, v tabulce mas FOREIGN KEY do jinych tabulek a
chces
mit v exportu jine polozky z referencovanych tabulek.
Tak pro ten export nepouzivej TTable, ale TQuery. V SQL dotazu namisto
LOOKUPU
vytvor JOIN pres tato pole (*).
(*) Jestli neovladas SQL a posles do konference popis tabulek i s pozadavkem
na vystup,
nekdo Ti ten prikaz urcite posle.
Jura
UPDATE v SQL s vysledekem v jednom kroku
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 16.7.1999 08:37:52
Hi,
na takovehle univerzalni unikatni citace pouzivam (jak jinak) malinkou
aplikaci, ktera bezi nekde na serveru a klient se na ni pripoji pomoci
TCP/IP, rekne o jakou promennou ma zajem, server vyhleda, zvysi (nebo
neco jineho), a vrati hodnotu. Do doby vraceni zadnemu jinemu klientu tu
hodnotu neposkytne. Tohle je neprustrelne (co se unikatnosti tyka). Ma
to svoje problemy, ale klady vyrazne prevazuji nad zapory. Tak to zkus.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> Odesl�no: 16. �ervence 1999 0:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: UPDATE v SQL s vysledekem v jednom kroku
>
> moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit a
> pak
> precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k tomu,
> ze
> nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi
> nastat.
>
> Zamknuti tabulky a provedeni dvou kroku bych se rad z pochopitelnych
> duvodu (chcipnuti stanice) vyhnul.
>
> ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 08:39:59
> Zdrav�m Delphisty!
> M�m mal� probl�mecek, st�hl jsem si ZipTv, moc pekn�
> komponentky, ale na jin� masine, nez na m� zobrazuj� okno, ze
> nejsou registrovan�, jak se toho zbavit. Bohuzel v soucasn�
> dobe jsem bez Inetu (to je v�m hruza). Poradte pros�m, d�ky.
>
>
> M&B
par lidi Ti radilo, ze si mas komponenty koupit. Ja to ZipTv neznam,
nevim vubec, o co jde a jak to vypada, mohu se jenom dohadovat.
Nevim, jestli jsou share, free nebo jiny ware, ale prvni precteni
Tveho mejlu na mne zapusobilo tak,
ze to nejspis bude mit neco spolecneho s registraci v systemu.
Nejsou to nahodou komponenty typu COM? Pokud ano,
mely by patrne priponu dll, exe nebo ocx, mohl bys je zkusit zaregistrovat.
dela se to programem regsvr32, parametr je jmeno souboru. Napr:
C:\>regsvr32.exe COMKomponenta.dll
dalsi moznost je, ze vyuzivaji nejakou komponentu, ktera se zaregistrovala
s jinym SW, Ty ji mas a na ostatnich machinkach neni.
Anebo je to nejaka verze, ktera muze jet jenom s prostredim Delphi
a na ostatnich machinkach neni. To by asi byl pripad s tou koupi
a registraci.
Ale to by bylo dobre znat presnou hlasku, co ti to napsalo.
Jura
ZipTv
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.7.1999 08:41:54
Zkus http://www.ziptv.com :-)
> ----------
> kde sa ti podarilo splasit tie komponenty, daj vediet
> WINOA386 neco o spehovani
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.7.1999 09:02:53
Yo, ale neschovas ho pro TaskMan, ale to se da zase udelat takle
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
a skryti aplikace se potom provede
RegisterServiceProcess(GetCurrentProcessID, 1);
a "odkryti" se provede
RegisterServiceProcess(GetCurrentProcessID, 0);
Dobra.
> ----------
> > no tak toto Ti nezavidim, len ma tak napada, ani clovek nie velmi
> znaly
> > veci, aby Ti dotycny program eliminoval lahko, ked napr. uvidi nieco
> divne
> > v taskbare, to zvladne. Budes mat viac problemov ako ho skryt spred
> jeho
> > oci.
>
> Schovat program pro taskbar je to nejmensi. Myslim, ze to je
> ShowWindow(Application.Handle,sw_Hide);
>
>
> ZipTv
[*] rdocekal(zv)csas(tec)cz - 16.7.1999 09:09:15
> > Zdrav�m Delphisty!
> > M�m mal� probl�mecek, st�hl jsem si ZipTv, moc pekn�
> > komponentky, ale na jin� masine, nez na m� zobrazuj� okno, ze
> > nejsou registrovan�, jak se toho zbavit. Bohuzel v soucasn�
> > dobe jsem bez Inetu (to je v�m hruza). Poradte pros�m, d�ky.
> >
> >
> > M&B
>
> par lidi Ti radilo, ze si mas komponenty koupit. Ja to ZipTv neznam,
> nevim vubec, o co jde a jak to vypada, mohu se jenom dohadovat.
> Nevim, jestli jsou share, free nebo jiny ware, ale prvni precteni
> Tveho mejlu na mne zapusobilo tak,
> ze to nejspis bude mit neco spolecneho s registraci v systemu.
> Nejsou to nahodou komponenty typu COM? Pokud ano,
> mely by patrne priponu dll, exe nebo ocx, mohl bys je zkusit
> zaregistrovat.
> dela se to programem regsvr32, parametr je jmeno souboru. Napr:
> C:\>regsvr32.exe COMKomponenta.dll
>
> dalsi moznost je, ze vyuzivaji nejakou komponentu, ktera se
> zaregistrovala
> s jinym SW, Ty ji mas a na ostatnich machinkach neni.
> Anebo je to nejaka verze, ktera muze jet jenom s prostredim Delphi
> a na ostatnich machinkach neni. To by asi byl pripad s tou koupi
> a registraci.
> Ale to by bylo dobre znat presnou hlasku, co ti to napsalo.
>
> Jura
>
Je to shareware. Jedna se o sadu komponent, pracujici se znacnym mnozstvim
formatu archivu - ZIP, ARJ, LHA, RAR, GZIP atd. vcetne SFX verzi. Omezenim
tohoto shareware je to, ze funguje jen pri spousteni z Delphi, na jinem
pocitaci to hodi hlasku o neregistrovanosti. IMHO pro Delphi neexistuje
lepsi varianta, pokud musite zpracovavat ruzne formaty archivu.
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
WINOA386 a neco o spehovani, konec a mozna zbytecn
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 16.7.1999 09:23:34
Ahoj
Vsem diky za temata a rady. Pokud nize napsane se vam zda zbytecne nectete.
Asi bych mel jeste vysvetlit par detailu. Jsem opravdu z Ustavu Jaderne Fyziky AV CR. Zabezpeceni
je nekolika urovnove, a to pro cely areal jako hlavni ochrany system a nekolik podrizenich urovni na
jednotlivych pracovistich ( uklada nam to novy atomovy zakon). Jenze kazdy zabezpecovaci system
funguje do te doby, nez ho nekdo prokoukne a zda se ze to je nas pripad. Ukolem a cilem je zjistit
co se vlastne deje, jde-li o nejakeho humoristu, ktery bezplatne vyuziva druzicove spojeni od nas do
sveta (tvar prime propojeni na komunikacni druzici, rychlost 500MGB/s - stazeni 1000mega dat z
Nasa mi trva kolem 5 minut ve spicce - vzhledem k nasemu postaveni ho mame zadarmo, jinak pry cena
za propojeni je ukrutna), popr. opravdu krade realna data (tech je bohuzel dost), popr. neco jeste dalsiho.
Ze nam tady nekdo systematicky brouzda se vi delsi dobu. Obcas se na neco prislo, obcas ne.
Vekere odpovedne organy od nas davaji ruce pryc, protoze je posledni dobou lepsi vsechno nechat spat
nez stouchat klackem vosi hnizdo (asi znate zakon padajiciho hovna). Nikdo zatim neni takovej blbec
aby nam kradl radioaktivni latky - nastesti, ale jinak je dost veci k uziti, zejmena v oblasti SW a dat z
projektu. Zatim to vypada tak, ze je schopen obejit ruzne alarmy a takoveto blbovinky.
A posledni, kdysi jsme meli tzv, zvlasti uroven ostrahy, v roce 93 jista hlavapomazana prohlasila, ze tento
system je zbytecny (duvod cena) a ze staci standardni zpusoby ochrany ( zejmena firemni) no a my v tom ted
litame. Nevim kolik ma kdo penez, ale nemuzeme si dovolit rocne uvolnit nekolik melounu prasuli na obnovu
zabezpecovacich zarizeni, ktery jak se mi zatim zda jsou stejne naprd.
Tot asi vse stran vysvetleni
S pozravem Libor. ZipTv
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.7.1999 09:34:45
Ahoj,
napsal jsem komponenty TZip a TUnzip (podle zdroju A.Byrneho) a
TZipList, ktere jsou primo kompatibilni s PKZIP1.1, plne nativni (cca 45
KB kodu), ale dostatecne jednoduche a nizkourovnove (nejsou obaleny
zadnym manazerem, umi pouze zabalit-rozbalit zip-unzip), ktere pouzivam
pro archivace a dearchivace (delam s nimi instalaky). Mam je odzkousene
v DOS i Delphi 1 a funguji mi ve vice jak 2000 programech. Nejsou ale
odladene (upravene) pro Win32 (nemam na to bohuzel cas).
Pokud nekdo o ne projevite zajem (nebo kdyby mi nekdo chtel pomoci :-) s
prevodem do Win32), ozvete se mi na mailto:JBenes(zv)cpoj(tec)cz. Pokud by se
vse podarilo, vystavil bych je pote na me stranecce drobnosti, aby pak
byly pro vsechny zajemce k dispozici a to jak ve verzi Windows tak treba
i ve verzi DOS (samozrejme se zdrojaky).
Zdravim
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 16. �ervence 1999 8:40
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: ZipTv
>
> > Zdrav�m Delphisty!
> > M�m mal� probl�mecek, st�hl jsem si ZipTv, moc pekn�
> > komponentky, ale na jin� masine, nez na m� zobrazuj� okno, ze
> > nejsou registrovan�, jak se toho zbavit. Bohuzel v soucasn�
> > dobe jsem bez Inetu (to je v�m hruza). Poradte pros�m, d�ky.
> >
> >
> > M&B
>
> par lidi Ti radilo, ze si mas komponenty koupit. Ja to ZipTv neznam,
> nevim vubec, o co jde a jak to vypada, mohu se jenom dohadovat.
> Nevim, jestli jsou share, free nebo jiny ware, ale prvni precteni
> Tveho mejlu na mne zapusobilo tak,
> ze to nejspis bude mit neco spolecneho s registraci v systemu.
> Nejsou to nahodou komponenty typu COM? Pokud ano,
> mely by patrne priponu dll, exe nebo ocx, mohl bys je zkusit
> zaregistrovat.
> dela se to programem regsvr32, parametr je jmeno souboru. Napr:
> C:\>regsvr32.exe COMKomponenta.dll
>
> dalsi moznost je, ze vyuzivaji nejakou komponentu, ktera se
> zaregistrovala
> s jinym SW, Ty ji mas a na ostatnich machinkach neni.
> Anebo je to nejaka verze, ktera muze jet jenom s prostredim Delphi
> a na ostatnich machinkach neni. To by asi byl pripad s tou koupi
> a registraci.
> Ale to by bylo dobre znat presnou hlasku, co ti to napsalo.
>
> Jura
ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 09:51:04
> -----Original Message-----
> From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> Sent: Friday, July 16, 1999 10:07 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: ZipTv
> :))) Nechci rejpat, ale ja bych to preci jen zkusil zaregistrovat
> spise pomoci te kreditni karty nez programkem regsvr32.exe.
>
Ty vtipalku :-). Ze Tveho mejlu nebylo
zrejme, ze ZipTv znas. Kdyby ses
vyjadril mene tajemne, neztratil bych
svuj predrahoceny cas odpovidanim na neco,
na co jsem mel pocit, ze bylo odpovezeno ledabyle.
Timhle chci podekovat hlavne Radkovi Docekalovi,
ze mne uvedl do spravneho svetla. A Tebe a ostatni
tajuplne radce prosim, aby si uvedomili, ze nekomunikuji
pouze s tazatelem, ale ze je sleduji dalsi lide
(i kdyz uznavam, je to tezke a nekdy to nejde).
Ted uz si nemyslim, ze:
"kdyz se rekne 'registrace'
prvni veci co napadne pocitacoveho experta
jsou penize a poplatky autorovi". :-)
Jura
Soubor v Mail klientovi
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 16.7.1999 09:01:39
Zdravicko,
pred nedavnem se tady objevilo jak spustit externiho klienta s nastavenym
subjektem a textem
[ ShellExecute(Handle, nil, PChar('mailto:niekto(zv)ahoj.sk?Subject=Text'),
nil, nil, SW_SHOW ); ]
Dal by se podobne urcit i soubor k odeslani ? Tzn. subjekt + text + soubor.
Dik
T.B.
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 09:07:05
Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
> Tveho mejlu na mne zapusobilo tak,
> ze to nejspis bude mit neco spolecneho s registraci v systemu.
> Nejsou to nahodou komponenty typu COM? Pokud ano,
> mely by patrne priponu dll, exe nebo ocx, mohl bys je zkusit
> zaregistrovat. dela se to programem regsvr32, parametr je jmeno souboru.
> Napr: C:\>regsvr32.exe COMKomponenta.dll
:))) Nechci rejpat, ale ja bych to preci jen zkusil zaregistrovat
spise pomoci te kreditni karty nez programkem regsvr32.exe.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ZipTv
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.7.1999 10:16:07
> Anebo je to nejaka verze, ktera muze jet jenom s prostredim Delphi
> a na ostatnich machinkach neni. To by asi byl pripad s tou koupi
> a registraci.
Presne tak.Start PC
[*] sup(zv)svitap(tec)cz - 16.7.1999 10:21:06
Pouzij API funkci GetTickCount, ktery Ti rekne, jak
dlouho uz bezi Windows a odecti to od aktualniho casu.
Ziskas cas startu Windows. Cas zapnuti PC nevim... :-((
> ----------
> lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl
> zapnut
> pocitac?
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
QR - Page Range a Zip
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 16.7.1999 11:12:51
1. Ak report natiahnem zo suboru *.QR potom nie je mozne vybrat stranku pre tlac. Ako to vyriesit ?
2. Ako vyriesit aby QR pri ulozeni reportu do suboru urobil aj zipovanie. Potom pri load aby zase urobil unzip ?
Mate nejaky napad ?
TUNGLI Jan
tungli(zv)pvt.sk
ZipTv
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 16.7.1999 11:12:54
Taky nechci rejpat (jak jinak :-), ale nezapomnel si napsat, ze to taky
prodavas?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 16. �ervence 1999 9:51
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: ZipTv
>
> > -----Original Message-----
> > From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> > Sent: Friday, July 16, 1999 10:07 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: RE: ZipTv
> > :))) Nechci rejpat, ale ja bych to preci jen zkusil zaregistrovat
> > spise pomoci te kreditni karty nez programkem regsvr32.exe.
> >
>
> Ty vtipalku :-). Ze Tveho mejlu nebylo
> zrejme, ze ZipTv znas. Kdyby ses
> vyjadril mene tajemne, neztratil bych
> svuj predrahoceny cas odpovidanim na neco,
> na co jsem mel pocit, ze bylo odpovezeno ledabyle.
>
> Timhle chci podekovat hlavne Radkovi Docekalovi,
> ze mne uvedl do spravneho svetla. A Tebe a ostatni
> tajuplne radce prosim, aby si uvedomili, ze nekomunikuji
> pouze s tazatelem, ale ze je sleduji dalsi lide
> (i kdyz uznavam, je to tezke a nekdy to nejde).
> Ted uz si nemyslim, ze:
> "kdyz se rekne 'registrace'
> prvni veci co napadne pocitacoveho experta
> jsou penize a poplatky autorovi". :-)
>
> Jura
Soubor v Mail klientovi
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 16.7.1999 11:13:39
mam takove krkolovne reseni:
vygenerujes si temp HTML stranku, ktera bude posilat FORM ACTION=mailto:....
a pres to by mohlo jit poslat text
Pokud chces priklad te html tak napis na muj email
Soubor nevim
Zdravi Michal HAMPL
-----P�vodn� zpr�va-----
Od: Tomas Balusek <tpplus(zv)zasova(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 16. �ervence 1999 9:49
P�edm�t: Soubor v Mail klientovi
>Zdravicko,
>
>pred nedavnem se tady objevilo jak spustit externiho klienta s nastavenym
>subjektem a textem
>[ ShellExecute(Handle, nil, PChar('mailto:niekto(zv)ahoj.sk?Subject=Text'),
>nil, nil, SW_SHOW ); ]
>
>Dal by se podobne urcit i soubor k odeslani ? Tzn. subjekt + text + soubor.
>
>Dik
>T.B.
>
>ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 11:28:13
> -----Original Message-----
> From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> Sent: Friday, July 16, 1999 11:49 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: ZipTv
>
> > Ted uz si nemyslim, ze:
> > "kdyz se rekne 'registrace'
> > prvni veci co napadne pocitacoveho experta
> > jsou penize a poplatky autorovi". :-)
>
> Ale jo, jo :))) A to je to prvni, na co ma programator
> myslet - jak zaplatit za to, co chce pouzivat, pokud
> to neni free... A ono to neni free :)
>
To neni pravda, na to programator vubec nemusi myslet.
Programator jenom da pozadavky, ze chce neco pouzivat
a jakym zpusobem se to k nemu dostane, ho nezajima.
Ma to na starosti obchodnicke, technicke a janevimjake
oddeleni plus uctarna. Ty ale neuvazujes jako programator,
ale jako obchodnik (nebo oba dohromady, protoze si asi
delas vsechno sam). Ja naopak o licencich nevim skoro nic
(teda vim, kolik mame licenci PowerBuilderu, o ktery se staram),
ale kdyz chci pouzit nejaky soft, kontaktuji cloveka, ktery
ho ma na starosti a on mi to bud dovoli nebo ne. A proto taky,
kdyz se rekne registrace, me jako prvni napadne systemova registrace.
A v tom - budes se divit - je prave ta nejasnost. Protozes nerekl,
ze ten produkt znas, v konferenci se projevujes vice jako
obchodnik nez programator (aspon mi to tak pripada), napadlo
me, ze sis vylozil slovo registrace mozna spatnym, neprogramatorskym
zpusobem.
A ze Te nenapadl i jiny vyznam toho slova.
Jura
UPDATE v SQL s vysledekem v jednom kroku
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 16.7.1999 11:47:17
Martin Fron�k wrote:
> Hi,
>
> na takovehle univerzalni unikatni citace pouzivam (jak jinak) malinkou
> aplikaci, ktera bezi nekde na serveru a klient se na ni pripoji pomoci
> TCP/IP, rekne o jakou promennou ma zajem, server vyhleda, zvysi (nebo
> neco jineho), a vrati hodnotu. Do doby vraceni zadnemu jinemu klientu tu
> hodnotu neposkytne. Tohle je neprustrelne (co se unikatnosti tyka). Ma
> to svoje problemy, ale klady vyrazne prevazuji nad zapory. Tak to zkus.
>
Diky. Ale tohle je pro mne ponekud neschudna cesta. Aplikace nebude vzdy
sitova (t.j. musi dokazat bezet i na jednom stroji) a jde mi o to dodrzet
stejny princip take pri pouziti BDE a Paradox tabulek (a to zase muze klidne
bezet na dejme tomu 3-4 PC propojenych peer-to-peer)
eL..
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> > Odesl�no: 16. �ervence 1999 0:52
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: UPDATE v SQL s vysledekem v jednom kroku
> >
> > moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit a
> > pak
> > precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k tomu,
> > ze
> > nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi
> > nastat.
> >
> > Zamknuti tabulky a provedeni dvou kroku bych se rad z pochopitelnych
> > duvodu (chcipnuti stanice) vyhnul.
> >
> >
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 10:48:46
Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
> > :))) Nechci rejpat, ale ja bych to preci jen zkusil zaregistrovat
> > spise pomoci te kreditni karty nez programkem regsvr32.exe.
>
> Ty vtipalku :-). Ze Tveho mejlu nebylo
> zrejme, ze ZipTv znas. Kdyby ses
> vyjadril mene tajemne, neztratil bych
> svuj predrahoceny cas odpovidanim na neco,
> na co jsem mel pocit, ze bylo odpovezeno ledabyle.
:))) No jo, kdybych to nevedel, tak neodpovidam. Vzdyt jsem napsal
toto:
------------------------------------------------------------------
Poradim Ti neco, co bys mozna nejmene cekal :) Je to jednoduche,
zaregistruj si je, tj. zaplat registraci poplatek...
------------------------------------------------------------------
A myslel jsem si, ze je to dost jasne. Nebo ne?
> Timhle chci podekovat hlavne Radkovi Docekalovi,
> ze mne uvedl do spravneho svetla. A Tebe a ostatni
> tajuplne radce prosim, aby si uvedomili, ze nekomunikuji
> pouze s tazatelem, ale ze je sleduji dalsi lide
> (i kdyz uznavam, je to tezke a nekdy to nejde).
Ale ja jen nechapu, co je na me odpovedi tajuplneho. Snazil
jsem se odpovedet dost zretelne a srozumitelne :)))
> Ted uz si nemyslim, ze:
> "kdyz se rekne 'registrace'
> prvni veci co napadne pocitacoveho experta
> jsou penize a poplatky autorovi". :-)
Ale jo, jo :))) A to je to prvni, na co ma programator
myslet - jak zaplatit za to, co chce pouzivat, pokud
to neni free... A ono to neni free :)
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
WINOA386 neco o spehovani
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 11:49:05
Peter Rus <peterrus(zv)intesys(tec)cz> wrote:
>> Kdyz uz jsme u toho spehovani: vsiml jsem si, ze se mi pod W98 v adresari
>> WINDOWS\APPLOG vytvareji podezrele textove soubory *.lgc a *.lgd, pricemz
>> explorer o existenci podadresare APPLOG cudne mlci :-(
>
>O tehle souborech lidi z Grisoftu mluvi jako o log souborech pro
>aplikace (a ja bych jim veril). 98-cky je pak udajne zpetne analyzuji a
>aplikaci podle nich optimalizuji na vyssi vykon. Jestli na tom neco je,
>nebo ne, to vi jen buh ...
Dik za odpoved.
Dival jsem se na ty soubory podrobneji a zda se, ze je Gates opravdu pouziva
k optimalizaci rychlosti jejich spousteni, kdy na zaklade posbiranych
statistik o cteni souboru je umoznuje lepe fyzicky usporadat na disku.
Vypada to, ze do souboru *.lgc a *.lgd se zapisuji vsechny aktivity pri
cteni souboru, pricemz *.lgc pro soubory spojene se systemem a *.lgd pro
soubory, spojene s aplikaci. Polozky v techto souborech maji zrejme vyznam
(Open, Read, Close):
o <FileID> <FileSize> <FileName>
R <FileID> <Offset> <Length>
C <FileID>
Kdyz se spusti defrag, tak jeste pred zobrazenim okna se v adresari APPLOG\
vytvori soubor OPTLOG.TXT, ve kterem jsou shrnuty statistiky logu do seznamu
souboru, vhodnych k optimalizaci. Obsah souboru ma legible formu a poskytuje
docela zajimave info o pouzivani pocitace.
Jeste se mi tam jednou objevil soubor *.lge, ovsem u toho neni na prvni
pohled patrne, k cemu to je.
Bye, pf
Vyska ComboBoxu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.7.1999 11:49:06
Ahoj,
mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
neco jineho?
Diky
Jaro B.vice formu & help
[*] Ivo.Herles(zv)pvt(tec)cz - 16.7.1999 11:51:06
Me se osvedcilo dat prirazeni Application.OnHint do eventu OnActivate vsech
formu.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 15. �ervence 1999 14:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: vice formu & help
>
>
> Myslim, ze to neni podle abecedy ale podle toho, ktery form
> je hlavni ;-) Udelej to (napriklad) tak, ze v hlavnim formu
> povesis na Application.OnHint svoji proceduuru a pri zobrazovani
> dalsiho formu musis na Application.OnHint povesit jinou proceduru
> a po jeho uzavreni vratit tu puvodni.
> napr. :
> procedure Form1.FormCreate(Sender...
> begin
> Application.OnHint:=MOJE_PROCEDURA_1;
> end;
>
> procedure Form1.Button1Click(Sender...)
> var
> OnHintStiore : TNotifyEvent;
> begin
> OnHintStore:=Application.OnHint;
> Application.OnHint:=MOJE_PROCEDURA_2;
> Form2.ShowModal;
> Application.OnHint:=OnHintStore;
> end;
>
> A k tomu druhemu odstavci, tam to bude to same, musis zmenit
> Application.Title (normalne se pouzije jmeno projektu).
>
> Dobra.
>
> > ----------
> > Mam aplikaci s vice Formy, ktere vyvolavam Form1.ShowModal
> > V kazdem formu mam status bar a pomoci Application.OnHint v nem
> > zobrazuji
> > napovedu jenze napoveda se zobrazi pouze u Formu ktery je
> prvni podle
> > abecedy.
> > Neco podobneho se deje i pri pouzivani Application.Title. Pri
> > minimalizaci
> > vsech formu je vzdy v liste pouze jmeno Formu ktery je prvni dle
> > abecedy.
> >
> >
> ZipTv
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 16.7.1999 12:00:34
Martin Bab�k wrote:
> Zdrav�m Delphisty!
> M�m mal� probl�me�ek, st�hl jsem si ZipTv, moc p�kn� komponentky, ale na jin� ma�in�, ne� na m� zobrazuj� okno, �e nejsou registrovan�, jak se toho zbavit. Bohu�el v sou�asn� dob� jsem bez Inetu (to je v�m hr�za). Pora�te pros�m, d�ky.
>
> M&B
Ja pouzivam free komponentu ZipMaster (umi jen ZIP a s aplikaci musis sirit dve DLLka)
eL..
WINOA386 neco o spehovani
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 16.7.1999 11:09:44
Ahoj,
doporucuji vasi pozornosti soubor OPTLOG.TXT tamtez.
### Peter Rus napsal dne 16 Jul 99, v 0:23 :
> > Kdyz uz jsme u toho spehovani: vsiml jsem si, ze se mi pod W98 v
> > adresari WINDOWS\APPLOG vytvareji podezrele textove soubory *.lgc a
> > *.lgd, pricemz explorer o existenci podadresare APPLOG cudne mlci :-(
>
> O tehle souborech lidi z Grisoftu mluvi jako o log souborech pro
> aplikace (a ja bych jim veril). 98-cky je pak udajne zpetne analyzuji a
> aplikaci podle nich optimalizuji na vyssi vykon. Jestli na tom neco je,
> nebo ne, to vi jen buh ...
> Je to obycejne logovani pro optimalizaci :-) - ale kdo vi, co ma pro nas
> Bill pripraveneho :-))
Kdovi, jestli se krome optimalizace M$ aplikaci
neprovadi take anti-optimalizace ostatnich/konkurencnich.
To se to pak provadeji srovnavaci testy!
:-)))
P.S. srandy se nebojte, na mnozstvi nehledte!
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 12:12:09
> -----Original Message-----
> From: Martin Fron�k [mailto:FRONEK(zv)zznslany(tec)cz]
> Sent: Friday, July 16, 1999 11:13 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: ZipTv
>
>
> Taky nechci rejpat (jak jinak :-), ale nezapomnel si napsat,
> ze to taky
> prodavas?
>
Nejsem si jisty, jestli reagujes na me nebo na Petra, ale
vzhledem k tomu, zes odpovidal na mejl ode mne, vztahnu to
na sebe.
Jak jsem napsal uz Petrovi, ja nic nekupuju a nic neprodavam.
O tom nevim skoro nic. Kdyz zjistim, ze nas zakaznik potrebuje
urcity SW, domluvim se s nim a predam pozadavek
obchodnimu useku. A je na obchodnicich, jakou udelaji se zakaznikem
smlouvu, jakym zpusobem ziskaji dany SW, .... Muzou to koupit,
vycucat si to z prstu anebo pozadaji, aby to programatori
naimplementovali. Podobne postupuju, kdyz neco potrebuji ja.
Dam pozadavek: chci tenaten soft, tuhle knizku, novy pocitac
nebo odpadkovy kos, vzdycky se nekdo najde, kdo to ma na starosti
a opatri mi to.
To je vyhoda trochu vetsi firmy oproti male, kde vsichni delaji vsechno.
Je tady specializace a lepsi predpoklady pro kvalitni praci
(tim ale nerikam, ze mensi firmy delaji nekvalitni SW).
Proto jsem presvedcen, ze programator se nemusi obtezovat
licencnimi podminkami, ale muze se soustredit na programovani.
Jura
Vyska ComboBoxu
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 12:18:38
Ne, nejde to diky ikone sipky vpravo. Mozna existuje neco na RxLibrary, nevim.
Martin
-----Puvodni zprava-----
Od: Bene? Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
Odeslano: 16. eervence 1999 11:49
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Vyska ComboBoxu
Ahoj,
mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
neco jineho?
Diky
Jaro B.
ZipTv
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 12:20:07
Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> wrote:
>To neni pravda, na to programator vubec nemusi myslet.
>Programator jenom da pozadavky, ze chce neco pouzivat
>a jakym zpusobem se to k nemu dostane, ho nezajima.
>Ma to na starosti obchodnicke, technicke a janevimjake
>oddeleni plus uctarna.
Hi,
Abych se vyhnul polemice na tema "kdo je to programator", tak jenom jednu
drobnou poznamku, ze kazdy vetsi SW projekt by mel mit nejakou feasibility
study popr. projektovou studii a kdyz bychom se drzeli napr. normy ANSI 84,
tak ta tusim cleni takovou studii do vice nez 15 kapitol, z nichz jenom
_jedina_ se v postate zabyva vlastni funkci systemu. Ostatni se tykaji napr.
pozadavku na HW, co se kde nakoupi a za kolik, kdo co vyvine a za kolik, jak
bude vedena dokumetace, kdo, co a jak bude testovat, jaky bude predpokladany
zivotni cyklus projektu, jeho udrzba a inovace etc.......
Takze bych rekl, ze u vetsich projektu to rozhodne neni otazka obchodnika,
ale projektanta, ktery specifikuje pozadavky na projekt a ze sirsi pohled na
problematiku tvorby SW je temer nevyhnutelny.
Bye, pf
Zpozdeni zapis na disk Win95-98
[*] Vlada Cadsky <cadskyk1(zv)atlas(tec)cz> - 16.7.1999 12:21:47
>Vlada Cadsky wrote:
>>
>> Zdravim
>> Jiz se na konferenci objevily dotazy tykajici se tohoto tematu ale zadna
>> odpoved, proto to ted zkusim ja.
>> Mam cast programu kde vytvorim soubor, zapisu do nej a uzavru. Neprodlene
>> potom chci soubor zabalit pomoci TZipMaster. V systemu Win95, 98 se
zabaly
>> nesmysl nebo nic. V systemu WinNT to funguje OK.
>> Ruznymi smyckami cekam az se ini soubor zapise na disk abych s nim mohl
dale
>> pracovat, ale moc spolehlive to neni.
>> Existuje alespon nejaka funkce ktera mi rekne ze se soubor kompletne
zapsal
>> na disk ?
>
>Ahoj,
>
>Pouzij metodu TIniFile.UpdateFile. Podle toho jak to popisujes by to melo
>vyresit tvuj problem.
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
Cau.
Hele ja nemam v Delphi 3 metodu TIniFile.UpdateFile. Nemas zdroj unity
IniFiles ?
Vlada
WINOA386 neco o spehovani
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 16.7.1999 11:37:37
Ahoj, mohl bych ti nabidnout k otestovani svoji "spehujici" aplikaci,
pokud mas zajem. Zatim ji provozuji nekolik mesicu na nekolika
strojich (386,486SX-DX,AMDK6-2,PII) s Win95/98 (problemy nezjisteny).
Sleduje i start a konec win, normalni i nenormalni ("ukonceni" Win
sitovym vypinacem) je schopna rozlisit. Aplikace je neviditelna v
taskbaru.
Samozrejme jeste neni dokonala, planuji nekolik zdokonaleni,
ale zatim to nehori, tak to jeste pocka :-)
Na konci mailu (dole) uvadim infomace z logovaciho souboru na ukazku
(to podivne cislo je PID :-).
Chces-li podrobnejsi informace nebo to zkusit, napis.
### Libor Nosek napsal dne 15 Jul 99, v 12:20 :
> Ahoj
> Nerad bych tady spustil nejakou diskuzi o tom je-li spravne spehovat jake
> procesy se dejou v systemu, a ktera bude celkem k nicemu. Proc jsem to ale
> zacal psat? Za prve - je to pro moji vlastni potrebu, coz byl zamer, ktery
> jsem mel uz pred nekolika lety a porad jsem na to nemel cas. Za druhe -
> coz je dnes vlastne hlavni pricina, nekdo se v dobe kdy je moje pracoviste
> prazdne, tedy v dobach sobotnich, nocnich atd coura po pracovisti a dela
> si tu neco na pocitacich. Bohuzel to doslo tak daleko, ze je to dnes
> polocejni zalezitost a moje lenost a urcita neochota psat takovy program
> se prikazem reditele razem stala nejakutnejsi. Jestli se mi to libi nebo
> ne to je k dnesnimu dni celkem nepodstatny faktor. Mame tady data, ktera
> stala hodne penez a ktera jsou dost dulezita. Takze potud moje vyjadreni.
> Libor
ukazka logovaciho souboru (zkraceno):
S 15.7.1999 9:25:18
U 15.7.1999 9:25:18 <none>
Z 15.7.1999 9:25:18 -1088645 "C:\WIN95\SYSTEM\KERNEL32.DLL" "?"
Z 15.7.1999 9:25:18 -54325 "C:\WIN95\SYSTEM\MSGSRV32.EXE" "???"
Z 15.7.1999 9:25:18 -51629 "C:\WIN95\SYSTEM\MPREXE.EXE" "Zadat s�ov�
heslo"
Z 15.7.1999 9:25:18 -23669 "C:\WIN95\SYSTEM\MSTASK.EXE" "SYSTEM AGENT
COM WINDOW"
Z 15.7.1999 9:25:18 -121153 "C:\WIN95\REGSERV.EXE" "REGSERV"
Z 15.7.1999 9:25:18 -115117 "C:\WIN95\SNMP.EXE" "?"
Z 15.7.1999 9:25:19 -185305 "C:\WIN95\SYSTEM\MSDTCW.EXE" "?"
Z 15.7.1999 9:25:26 -80117 "C:\WIN95\SYSTEM\mmtask.tsk" "???"
Z 15.7.1999 9:25:32 -29133 "C:\WIN95\SYSTEM\RPCSS.EXE" "?"
U 15.7.1999 9:25:58 zde_bylo_jmeno_uzivatele_ktery_se_prihlasil
Z 15.7.1999 9:26:22 -74745 "C:\WIN95\SYSTEM\mmtask.tsk" "?"
Z 15.7.1999 9:26:22 -208801 "C:\WIN95\EXPLORER.EXE" "?"
K 15.7.1999 9:26:23 -74745 0 0:00:00 "C:\WIN95\SYSTEM\mmtask.tsk" "?"
Z 15.7.1999 9:26:24 -306205 "C:\WIN95\SYSTEM\WINOA386.MOD" "Synchro
Time se Slunce"
K 15.7.1999 9:26:33 -306205 0 0:00:08 "C:\WIN95\SYSTEM\WINOA386.MOD"
"Synchro Time se Slunce - NET"
Z 15.7.1999 9:26:34 -315761 "C:\UTIL\OKNO.EXE" "?"
Z 15.7.1999 10:02:52 -442901 "C:\WIN95\SETIHOME.SCR" "Screen Saver"
K 15.7.1999 10:44:51 -442901 0 0:41:58 "C:\WIN95\SETIHOME.SCR"
"Screen Saver"
...vypusteno...
...konec win session:
E 15.7.1999 11:03:23
...nebo po resetu (zatuhnuti win) posledni cas, kdy win byl zivy:
R 15.7.1999 11:38:35
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
QR export to then RTF
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 16.7.1999 12:40:01
Je mozne exportovat report do RTF formatu?
Ja viem treba nastavit RTF: TQRRTFExportFilter. Ale neviem kde to je.
Mam QR 2.
TUNGLI Jan
tungli(zv)pvt.sk
DateTime - rozdil
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.7.1999 12:42:30
Zdravim,
chci od sebe odecist dve casove hodnoty, ale jako vysledek dostavam pouze
cele hodiny:
MaskEdit3.Text:=TimeToStr(StrToTime(MaskEdit2.Text) -
StrToTime(MaskEdit1.Text));
Delam neco spatne?
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 11:51:13
Puvodni zprava, kterou napsal Martin Fron�k dne 16 Jul 99,:
> Taky nechci rejpat (jak jinak :-), ale nezapomnel si napsat, ze to taky
> prodavas?
Zklamu te, ale tohle neprodavam a prodavat nebudu.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 12:02:52
Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
> > Ale jo, jo :))) A to je to prvni, na co ma programator
> > myslet - jak zaplatit za to, co chce pouzivat, pokud
> > to neni free... A ono to neni free :)
>
> To neni pravda, na to programator vubec nemusi myslet.
> Programator jenom da pozadavky, ze chce neco pouzivat
> a jakym zpusobem se to k nemu dostane, ho nezajima.
> Ma to na starosti obchodnicke, technicke a janevimjake
> oddeleni plus uctarna. Ty ale neuvazujes jako programator,
> ale jako obchodnik (nebo oba dohromady, protoze si asi
Ja uvazuji jako kazdy normalni programator - kdyz neco
potrebuji pro svou praci, hledam to, a pak me take zajima,
kolik za to zaplatim. Jestlize je to drahe a nevyplati
se mi to, nekoupim...
> delas vsechno sam). Ja naopak o licencich nevim skoro nic
:))) Nejsem si jist, zda je to dobre :)))
> (teda vim, kolik mame licenci PowerBuilderu, o ktery se staram),
> ale kdyz chci pouzit nejaky soft, kontaktuji cloveka, ktery
> ho ma na starosti a on mi to bud dovoli nebo ne. A proto taky,
> kdyz se rekne registrace, me jako prvni napadne systemova registrace.
Ja kdyz vidim takovy dotaz, tak neodpovidam to, co me napadne
jako prvni podle jednoho terminu, ktery znam :), ale nejdrive
premyslim o tom, co asi ma ten clovek za problem. A protoze
vim, ze ZipTV je shareware, za ktery se plati, a ze je to
nativni VCL knihovna bez ActiveX, a ze trial verze pod Delphi
se chrani vetsinou tak, ze jedou jen pod spustenym Delphi,
pak me ani nenapadne registrace s regsvr32.exe, ale proste
registrace pomoci platebni karty. Tak odpovim, nacez nekdo
si mysli, ze to prodavam, a jiny si zase mysli, ze se to
registruje jinak. A co ja s tim? Budeme si tady vykladat,
koho co napadne a proc ho to napadne?
> A v tom - budes se divit - je prave ta nejasnost. Protozes nerekl,
> ze ten produkt znas, v konferenci se projevujes vice jako
A proc bych to rikal? Snad kdyz neco do konference napisu,
tak se implicitne predpoklada, ze to znam a ze vim, o cem
mluvim. Kdybych si nebyl jisty, tak naopak napisu, ze si
to myslim.
> obchodnik nez programator (aspon mi to tak pripada), napadlo
> me, ze sis vylozil slovo registrace mozna spatnym, neprogramatorskym
> zpusobem.
> A ze Te nenapadl i jiny vyznam toho slova.
No tak Te to napadlo, no, neni to takova tragedie, proste
te to napadlo spatne. Ale nemusime se tu snad dohadovat
a vysvetlovat si ptakoviny... Ja holt budu v konferenci
zodpovidat ty obchodni dotazy a ty budes radit jako
opravdovy programator. OK, jsme domluveni? :)))
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
MDI a TPageControl
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.7.1999 13:04:01
Zdravim,
mate nekdo zaruceny tip, jak spojit MDI childy s zalozkama TPageControlu?
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== WINOA386 a neco o spehovani, konec a mozna zbytecn
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 16.7.1999 12:10:35
Ahoj,
chlape, tak toto ti zavidim :-(
Jano
jj delphi(zv)ke.ubp.sk
-----Original Message-----
From: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 16. j�l 1999 9:26
Subject: WINOA386 a neco o spehovani, konec a mozna zbytecny dodatek s vysvetlenim, kdo chce at si ho precte.
Ahoj
Vsem diky za temata a rady. Pokud nize napsane se vam zda zbytecne nectete.
(tvar prime propojeni na komunikacni druzici, rychlost 500MGB/s - stazeni 1000mega dat z
Nasa mi trva kolem 5 minut ve spicce - vzhledem k nasemu postaveni ho mame zadarmo, jinak pry cena
za propojeni je ukrutna), popr. opravdu krade realna data (tech je bohuzel dost), popr. neco jeste dalsiho.
Tot asi vse stran vysvetleni
S pozravem Libor.
Delphi direct
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 16.7.1999 13:12:39
Spr�va vo form�te MIME rozdelen� na viac �ast�.
zdravim,
stale sa mi spusta Delphi Direct a skusa sa napoit na Internet. Ako to vypnem ?
Martin
MessageBox s checkboxem
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 16.7.1999 13:15:03
Jaro wrote:
> Myslim, ze je velice snadne udelat si vlastni formular s jednim
> tlacitkem a jednim checkbox-em v levem dolnim rohu.....
Diky za odpoved. Ke stejnemu reseni jsem take dosel a to i vcetne INI
souboru Jen jsem si myslel, ze existuje neco hotove, kdyz to dnes pouziva
temer kazdy program.
> Je pak tez snadne udelat jeste jedno okno na ditaci toho ini souboru.
> Musi byt nekde moznost vratit zobrazovani takovych formularu do
> puvodniho stavu.
Jo, to je dobra pripominka. Na to jsem nepomyslel. Diky.
Pter Gadourek
Table is Full
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 13:15:49
Robert Jendrisak wrote:
>
> > Roman �ev��k wrote:
> >
> > > Napis o aky databazovy system sa jedna, aku architekturu a verziu
> > > D..atd. Mne sa doma nenataca satelit ked stlacim packu.
> >
> > U splachovace? To je zajimave, mne take ne. Asi to bude tim, ze
> > nemam zavrene dvere...
> >
>
> To bude v dokrcenom koberci, len si ten chlp nevytahuj lebo sa resetnes :)
>
Ne, ja myslim, ze zluta bude lepsi.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 13:18:43
> -----Original Message-----
> From: Petr Fejfar [mailto:callnet(zv)telecom(tec)cz]
> Sent: Friday, July 16, 1999 12:20 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: ZipTv
>
>
> Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> wrote:
>
> >To neni pravda, na to programator vubec nemusi myslet.
> >Programator jenom da pozadavky, ze chce neco pouzivat
> >a jakym zpusobem se to k nemu dostane, ho nezajima.
> >Ma to na starosti obchodnicke, technicke a janevimjake
> >oddeleni plus uctarna.
>
> Hi,
>
> Abych se vyhnul polemice na tema "kdo je to programator", tak
> jenom jednu
> drobnou poznamku, ze kazdy vetsi SW projekt by mel mit
> nejakou feasibility
> study popr. projektovou studii a kdyz bychom se drzeli napr.
> normy ANSI 84,
> tak ta tusim cleni takovou studii do vice nez 15 kapitol, z
> nichz jenom
> _jedina_ se v postate zabyva vlastni funkci systemu. Ostatni
> se tykaji napr.
> pozadavku na HW, co se kde nakoupi a za kolik, kdo co vyvine
> a za kolik, jak
> bude vedena dokumetace, kdo, co a jak bude testovat, jaky
> bude predpokladany
> zivotni cyklus projektu, jeho udrzba a inovace etc.......
>
> Takze bych rekl, ze u vetsich projektu to rozhodne neni
> otazka obchodnika,
> ale projektanta, ktery specifikuje pozadavky na projekt a ze
> sirsi pohled na
> problematiku tvorby SW je temer nevyhnutelny.
>
Samozrejme, jenomze u vetsich projektu nemuze vsechny
aspekty postihnout jeden clovek. A pokud ano, potom je to nekdo
se vseobecnym prehledem, neda se o nem rict, ze neni obchodnik ani
ze neni programator.
K teto diskusi jsme se ale dostali pres registrace.
Nemuzu zjistovat, kdyz potrebuju pouzit nejaky soft,
jestli je zaregistrovan, jestli mame dostatecny pocet licenci a jestli
ja nebudu tim prvnim, kdo prekroci limit. (To by firma asi nepotrebovala
zakazky - dostatecne by se zamestnala sama).
Jinak k tem pozadavkum na projekt - ve velkem mnozstvi projektu,
na kterych jsem delal, bylo prostredi, nekdy i nastroje vstupnim
pozadavkem projektu. Jen malo projektu asi byva takovych, ze ma realizacni
tym volnost ve volbe prostredku. Vetsinou zadavatel projektu rekne
tohle mame, vase reseni to musi (nebo muze) vyuzivat, s timhle budete
spolupracovat, muzete pouzit jednu z techto
dvou databazi, atd... Potom na programatorech je pouze rict, jestli
zvladnou realizaci nebo ne.
Jura
MDI a TPageControl
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 13:21:51
Jak to myslis, spojit?
,,,
/'^'\
( o o )
-------oOOO--(_)--OOOo--------------
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http:/cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odeslano: 16. eervence 1999 13:04
Komu: '*** Delphi'
Poedmit: MDI a TPageControl
Zdravim,
mate nekdo zaruceny tip, jak spojit MDI childy s zalozkama TPageControlu?
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
Start PC
[*] David Svoboda <dsvoboda(zv)iol(tec)cz> - 16.7.1999 13:25:36
Robert Jendrisak wrote:
>
> >
> >
> > Krayzel Libor wrote:
> >
> > > Zdravim,
> > >
> > > lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl zapnut
> > > pocitac?
Cas, odkdy bezi Windows, pokud tedy nebezi dele nez 49.7 dne
ShowMessage( FormatDateTime( 'c', Now - ((GetTickCount / 1000) *
1/(24*60*60)) ));
Pointa: Aktualni cas - jak dlouho bezi Win
David Svoboda
Start PC
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.7.1999 13:36:31
> Ehm...co tak
> do startupu hodit jednoduxu rutinku obsahujucu
>
> showmessage(DateToStr(Date));
> showmessage(TimeToStr(Time));
Startup se provede az po najeti Windowsu. Predtim treba bezi pulhodiny SCAN.Hinty a vyjimky - jsem blby ja nebo Delphi
[*] Karel Kral <kral(zv)purus(tec)cz> - 16.7.1999 13:38:20
Prosim posudte nasledujicich par radku, u kterych na radek Result:=
false Delphi hlasi:
(Hint): Value assigned to TMainForm.ExecGenOpt never used.
Podle me ale, kdyz si odpustim prvni radek ve funkci (Result:= false) a
dojte k vyjimce v TFrmGenOpt, pak skoncim ve finally a vysledek Result
neni definovan. Co vy na to?
// spusti generovaci parametry
function TMainForm.ExecGenOpt: boolean;
begin
Result:= false;
with TfrmGenOpt.Create(Self) do
try
Result:= ShowModal = mrOk;
finally
Free;
end;
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Vyska ComboBoxu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.7.1999 13:38:57
To znamena ze nemohu udelat ani nejaky OwnerDraw?
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Martin Lasevic, ing. [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 16. �ervence 1999 12:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Vyska ComboBoxu
>
> Ne, nejde to diky ikone sipky vpravo. Mozna existuje neco na
> RxLibrary, nevim.
> Martin
>
> -----Puvodni zprava-----
> Od: Bene? Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odeslano: 16. eervence 1999 11:49
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Vyska ComboBoxu
>
> Ahoj,
>
> mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
> Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
> neco jineho?
>
> Diky
>
> Jaro B.
> UPDATE v SQL s vysledekem v jednom kroku
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 16.7.1999 14:01:33
No dobra, tak polopaticky. Za server muzes prohlasit libovolny stroj v
siti, nebo i jen jeden pocitac. Pak pouzijes sw loopback, tj. adresu
127.0.0.1 - to bude fungovat i bez LAN karty, jen musis instalovat
protokol TCP/IP. Tak, jeste nejaka nejasnost? Myslim, ze to je
dostacujici vysvetleni. Nebo bys mohl mit dve ruzna DLL, ktere by si
aplikace po startu cucla, a vubec by ji nezajimalo, kde a jak to cisla
ta DLL sezene. A pak by ses obesel na jednom stroji i bez TCP/IP, proste
bys tam dal knihovnu, ktera tohle resi lokalne. A presto bys mohl mit
jednu aplikaci, jen dve ruzne DLL. (Nedavno se tu nekdo ptal, k cemu je
dobre mit DLL, tak treba k tomuhle.)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> Odesl�no: 16. �ervence 1999 11:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: UPDATE v SQL s vysledekem v jednom kroku
>
>
>
> Martin Fron�k wrote:
>
> > Hi,
> >
> > na takovehle univerzalni unikatni citace pouzivam (jak jinak)
> malinkou
> > aplikaci, ktera bezi nekde na serveru a klient se na ni pripoji
> pomoci
> > TCP/IP, rekne o jakou promennou ma zajem, server vyhleda, zvysi
> (nebo
> > neco jineho), a vrati hodnotu. Do doby vraceni zadnemu jinemu
> klientu tu
> > hodnotu neposkytne. Tohle je neprustrelne (co se unikatnosti tyka).
> Ma
> > to svoje problemy, ale klady vyrazne prevazuji nad zapory. Tak to
> zkus.
> >
>
> Diky. Ale tohle je pro mne ponekud neschudna cesta. Aplikace nebude
> vzdy
> sitova (t.j. musi dokazat bezet i na jednom stroji) a jde mi o to
> dodrzet
> stejny princip take pri pouziti BDE a Paradox tabulek (a to zase muze
> klidne
> bezet na dejme tomu 3-4 PC propojenych peer-to-peer)
>
> eL..
>
> > Martin Fron�k
> > ZZN Slan� a.s.
> > Pra�sk� 1579, 274 49, Slan�
> > tel. +420-314-522986
> > e-mail: fronek(zv)zznslany(tec)cz
> >
> > > -----P�vodn� zpr�va-----
> > > Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> > > Odesl�no: 16. �ervence 1999 0:52
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: UPDATE v SQL s vysledekem v jednom kroku
> > >
> > > moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit
> a
> > > pak
> > > precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k
> tomu,
> > > ze
> > > nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi
> > > nastat.
> > >
> > > Zamknuti tabulky a provedeni dvou kroku bych se rad z
> pochopitelnych
> > > duvodu (chcipnuti stanice) vyhnul.
> > >
> > >
>
> ZipTv
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 14:03:49
> -----Original Message-----
> From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> Sent: Friday, July 16, 1999 1:03 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: ZipTv
>
>
> Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
>
> > > Ale jo, jo :))) A to je to prvni, na co ma programator
> > > myslet - jak zaplatit za to, co chce pouzivat, pokud
> > > to neni free... A ono to neni free :)
> >
> > To neni pravda, na to programator vubec nemusi myslet.
> > Programator jenom da pozadavky, ze chce neco pouzivat
> > a jakym zpusobem se to k nemu dostane, ho nezajima.
> > Ma to na starosti obchodnicke, technicke a janevimjake
> > oddeleni plus uctarna. Ty ale neuvazujes jako programator,
> > ale jako obchodnik (nebo oba dohromady, protoze si asi
>
> Ja uvazuji jako kazdy normalni programator - kdyz neco
> potrebuji pro svou praci, hledam to, a pak me take zajima,
> kolik za to zaplatim. Jestlize je to drahe a nevyplati
> se mi to, nekoupim...
:-) tohle nema cenu, nejak se to zacyklilo...
>
> > delas vsechno sam). Ja naopak o licencich nevim skoro nic
>
> :))) Nejsem si jist, zda je to dobre :)))
Mozna to neni dobre, ale neni fyzicky mozne, abych mel
prehled o veskerem software, ktery pouzivam. Nedokazu si predstavit,
ze bych pri spusteni programu obtelefonovaval celou firmu, abych
spocital, kolik lidi prave dany soft pouziva a jestli nejsem sesty,
kdyz mame jen pet licenci. Proste spoleham na to, ze clovek, ktery to
ma na starosti, dobre odhadl a koupil pocet potrebnych licenci a
firma tak se svym stadem programatoru nekomu zrovna neskodi.
> Ja kdyz vidim takovy dotaz, tak neodpovidam to, co me napadne
> jako prvni podle jednoho terminu, ktery znam :), ale nejdrive
> premyslim o tom, co asi ma ten clovek za problem. A protoze
Ano, a protoze spousta lidi tam pise, co je napadne, chci
cloveka upozornit, ze to muze byt blbost. A ze si neuvedomujes
co presne pises, to uz jsme si overili minimalne jednou, nekdy
pred pulrokem. Ale nic Ti nevycitam, je to prirozene a ja jsem
se uz taky napsal dost blbosti, kterych jsem potom litoval.
Tak se netvar tak dotcene. A misto zesmesnovani nekoho za to,
ze nezna nejakou potroublou komponentu, by sis mohl radeji
vytvorit signatu: Vzdycky vim, co pisu.
>
> > A v tom - budes se divit - je prave ta nejasnost. Protozes nerekl,
> > ze ten produkt znas, v konferenci se projevujes vice jako
>
> A proc bych to rikal? Snad kdyz neco do konference napisu,
> tak se implicitne predpoklada, ze to znam a ze vim, o cem
> mluvim. Kdybych si nebyl jisty, tak naopak napisu, ze si
> to myslim.
Implicitne to predpoklada mozna nekdo, kdo s Tebou nema zadnou nebo
jen dobre zkusenosti. Ja jsem to nepredpokladal. :-)
> No tak Te to napadlo, no, neni to takova tragedie, proste
> te to napadlo spatne. Ale nemusime se tu snad dohadovat
> a vysvetlovat si ptakoviny... Ja holt budu v konferenci
> zodpovidat ty obchodni dotazy a ty budes radit jako
> opravdovy programator. OK, jsme domluveni? :)))
Souhlasim, tak s tim rypanim priste nezacinej, kdyz je Ti
nad Slunce jasne, jak se veci maji.
Jura
Vyska ComboBoxu
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 14:06:56
Asi ne. Nam se to nepodarilo zlomit.
Mozna by to spravila odvozena komponenta, kde by se nejak tato vlastnost comba ignorovala.
Nam se tento venovany cas nevyplatil, takze jsme toho zavcasu nechali.
,,,
/'^'\
( o o )
-------oOOO--(_)--OOOo--------------
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http:/cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Bene? Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
Odeslano: 16. eervence 1999 13:39
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: Vyska ComboBoxu
To znamena ze nemohu udelat ani nejaky OwnerDraw?
Jaro B.
> -----Puvodni zprava-----
> Od: Martin Lasevic, ing. [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odeslano: 16. eervence 1999 12:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: RE: Vyska ComboBoxu
>
> Ne, nejde to diky ikone sipky vpravo. Mozna existuje neco na
> RxLibrary, nevim.
> Martin
>
> -----Puvodni zprava-----
> Od: Bene? Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odeslano: 16. eervence 1999 11:49
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Vyska ComboBoxu
>
> Ahoj,
>
> mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
> Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
> neco jineho?
>
> Diky
>
> Jaro B.
>
Zpozdeni zapis na disk Win95-98
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 14:10:29
Vlada Cadsky <cadskyk1(zv)atlas(tec)cz> wrote:
>Hele ja nemam v Delphi 3 metodu TIniFile.UpdateFile. Nemas zdroj unity
>IniFiles ?
Ta metoda vola jen API funkci WritePrivateProfileString(), ktere kdyz se
neuvedou jmena sekci a polozek flushne pod W95 cache:
WritePrivateProfileString(nil,nil,nil,pChar(IniFile.FileName));
Bye, pf
Vyska ComboBoxu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.7.1999 14:21:24
Zavisi to na vysce pouziteho pisma, takze jedine zmenit pismo.
Dobra.
> ----------
> mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
> Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
> neco jineho?
> Hinty a vyjimky - jsem blby ja nebo Delphi
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.7.1999 14:33:42
> -----Original Message-----
> From: Karel Kral [mailto:kral(zv)purus(tec)cz]
> Sent: Friday, July 16, 1999 1:38 PM
> To: Konference Delphi
> Subject: Hinty a vyjimky - jsem blby ja nebo Delphi
>
>
> Prosim posudte nasledujicich par radku, u kterych na radek Result:=
> false Delphi hlasi:
> (Hint): Value assigned to TMainForm.ExecGenOpt never used.
zcela spravne - prirazujes do Resultu hodnotu, kterou nikdy nepouzijes.
Ta hodnota se pouzije pouze ve vyjimecnem pripade a Delphi Te spravne
varuji.
Nevsimej si toho Hintu. Anebo to trochu prekopej, treba takto:
function TMainForm.ExecGenOpt: boolean;
begin
// --- Result:= false; -- pryc
with TfrmGenOpt.Create(Self) do
try
try
Result:= ShowModal = mrOk;
except
on Exception do begin
Result:= false;
//znovunahodime vyjimku
raise;
end;
end;
finally
Free;
end;
end;
Jura
ZipTv
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.7.1999 14:34:58
Myslim, ze tam, kde na projektu pracuje vice (hodne)
lidi se programator skutecne nemusi zajimat o to,
kolik komponenty stoji, protoze o vydajich vubec, ale
vubec nerozhoduje. Proste dostane ukol neco vytvorit,
rekne si, co k tomu bude potrebovat (napriklad po
zvazeni nakladu na vyvoj vlastnich komponent) a zalezi
na jeho zamestnavateli, zda mu da prostredky a pokud
by byl vyvoj vlastnich komponnet drazsi, nez jejich
zakoupeni, taxi myslim, ze mu je proste koupi.
I kdyz ja to delam tak, jak pises Ty, ale protoze
jsem sam a snazim se jenom si obcas privydelat.
>Ja uvazuji jako kazdy normalni programator - kdyz neco
>potrebuji pro svou praci, hledam to, a pak me take zajima,
>kolik za to zaplatim. Jestlize je to drahe a nevyplati
>se mi to, nekoupim...
Tohle neni uplne tak pravda, vzpomen si na svou radu,
kdyz jeden clovek chtel zmenit barvu tlacitka. Poradil
jsi mu, a to dost jizlive, aby zmenil vlastnost Color
na pozadovanou hodnotu. Pritom std. tlacitka ani
SpeedButtony takovou vlastnost vubec nemaji.
>Ja kdyz vidim takovy dotaz, tak neodpovidam to, co me napadne
>jako prvni podle jednoho terminu, ktery znam :), ale nejdrive
>premyslim o tom, co asi ma ten clovek za problem.
> >A proc bych to rikal? Snad kdyz neco do konference napisu,
> >tak se implicitne predpoklada, ze to znam a ze vim, o cem
> >mluvim. Kdybych si nebyl jisty, tak naopak napisu, ze si
> >to myslim.
>
>
PS: Ja jsem si nedavno zrovna TV stahnul (zatim jsem
se jeste nedostal k tomu, abych je pouzil), ale musim
se prikznat, ze jsem si nikde nevsimnul ze jsou shareware,
ani kolik stoji. Zkratka jsem mel az dosud dojem, ze jsou
free.
PS: Na ftp.mlp(tec)cz jsou nekde jine komponenty (i s priklady),
mozna mene "pohodlne", ale zato uplne zadarmo.
(sekce konference myslim 'other')
Dobra.MDI a TPageControl
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 14:39:42
Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> wrote:
>mate nekdo zaruceny tip, jak spojit MDI childy s zalozkama TPageControlu?
Nevim, jestli spravne rozumim dotazu a zrejme nemam ani zaruceny tip, ale
aplikaci, ktera pouziva nize uvedene reseni, jsme prodali radove v tisicich
a nikdy s tim nebyly zadne tezkosti.
Bylo to vyvijeno v D1, kde jsem potreboval, aby se mi pri prepinani TabSetu
obnovovala velikost MDI oken spojenych s urcitou jeho strankou a ostatni MDI
okna aby se minimalizovala a obracene: kdyz nekdo obnovil velikost MDI
child, tak aby se mi zase prepnula spravna stranka na TabSetu.
Delal jsem to nejak takhle:
1. Vytvoril jsem si globalniho spravce MDI children s metodami AddChild(),
RemoveChild(), RearrangeChildren(), SearchForChild()
2. Vytvoril jsem si potomka tMDIChildForm = class(tForm) a v nem
a. property TabIndex, kde se pamatuje stranka
b. odchytil WM_SIZE a pamatoval si posledni hodnotu WindowState
c. V pripade, ze zmena byla typu SIZE_RESTORED a puvodni stav
wsMinimized, tak
jsem postnul message s TabIndex jako wParam hlavnimu formu, aby si
prepnul TabSet
3. V hlavnim formu jsem osetril event TabSet.OnChange, ktera volala
ReArrangeChildren(NewTabIndex) a ta zajistila zmenu stavu vsech spravovanych
MDI children.
Treba ti to pomuze.
Bye, pf
MDI a TPageControl
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.7.1999 14:53:40
> Jak to myslis, spojit?
Ovladani otevrenych MDI childu pres zalozky dole (napr. UltraEdit).Hinty a vyjimky
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.7.1999 14:54:42
Nevim, jestli ted nenapisu nejake kravinimum, ale nechapu
tu hlasku "value ... never used", vzdyt ExecGenOpt je preci
funkce a ne zadna value... Nemuze to by tedy tim, ze jsi
nikde v kodu tu funkci nepouzil a je tim padem cela funkce
zbytecna ?
Dobra.
> ----------
> Prosim posudte nasledujicich par radku, u kterych na radek Result:=
> false Delphi hlasi:
> (Hint): Value assigned to TMainForm.ExecGenOpt never used.
>
> Podle me ale, kdyz si odpustim prvni radek ve funkci (Result:= false)
> a
> dojte k vyjimce v TFrmGenOpt, pak skoncim ve finally a vysledek Result
> neni definovan. Co vy na to?
>
> // spusti generovaci parametry
> function TMainForm.ExecGenOpt: boolean;
> begin
> Result:= false;
> with TfrmGenOpt.Create(Self) do
> try
> Result:= ShowModal = mrOk;
> finally
> Free;
> end;
> end;
>
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
> Hinty a vyjimky - jsem blby ja nebo Delphi
[*] Ing. Leopold Grepl <Grepl(zv)melzer(tec)cz> - 16.7.1999 14:58:59
Result = False je default hodnota a proto se nemusi explicitne plnit. Neexistuje Boolean hodnota vracejici nic.
Ing. Leopold Grepl
-----P�vodn� zpr�va-----
Od: Karel Kral [SMTP:kral(zv)purus(tec)cz]
Odesl�no: 16. �ervence 1999 13:38
Komu: Konference Delphi
P�edm�t: Hinty a vyjimky - jsem blby ja nebo Delphi
Prosim posudte nasledujicich par radku, u kterych na radek Result:=
false Delphi hlasi:
(Hint): Value assigned to TMainForm.ExecGenOpt never used.
Podle me ale, kdyz si odpustim prvni radek ve funkci (Result:= false) a
dojte k vyjimce v TFrmGenOpt, pak skoncim ve finally a vysledek Result
neni definovan. Co vy na to?
// spusti generovaci parametry
function TMainForm.ExecGenOpt: boolean;
begin
Result:= false;
with TfrmGenOpt.Create(Self) do
try
Result:= ShowModal = mrOk;
finally
Free;
end;
end;
--
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
ZipTv
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 14:59:17
Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> wrote:>K teto diskusi jsme se ale dostali pres registrace.
O.K. Nechame toho.
Bye, pf
ZipTv
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 15:02:43
Robert Jendrisak <delphi(zv)minv.sk> wrote:
>poznam ludi ktori su zamestnancami fieriem a na ktorych bohatnu firmy. (za
>par rokov to budu chudaci nestaciaci na mladsiu generaciu)
To je pravda a IHMO na to neni zase tak moc divneho. OTOH jim dnes vetsinou
nic nebrani, aby zmenili svuj status ze zamestance na zamestnavatele a
zkusili pro zmenu bohatnout sami :-)
Bye, pf
MDI a TPageControl
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 15:19:43
Tak, jestli jsem to dobre pochopil ( na MDI formu TPageControl a prepinanim
pacek si zapinam MDI Childy - tak to nevim, jeste jsem to nezkousel). Ale
co takhle to neresit pres MDI childy a plochou jednotlivych TabSheetu
nahradit ty child formy.
,,,
/'^'\
( o o )
-------oOOO--(_)--OOOo--------------
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http:/cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odeslano: 16. eervence 1999 14:54
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: MDI a TPageControl
> Jak to myslis, spojit?
Ovladani otevrenych MDI childu pres zalozky dole (napr. UltraEdit).
Hinty a vyjimky - jsem blby ja nebo Delphi
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 15:30:24
Karel Kral <kral(zv)purus(tec)cz> wrote:
>Podle me ale, kdyz si odpustim prvni radek ve funkci (Result:= false) a
>dojte k vyjimce v TFrmGenOpt, pak skoncim ve finally a vysledek Result
>neni definovan. Co vy na to?
Problem je v tom, ze ty neskoncis ve finally - tim to jen projde a raisne to
do volajiciho kodu, kde se to zastavi na nejakem except (if any). V takovem
pripade je ovsem navratova hodnota irelevantni. Takze takove veci se
zpravidla pisi takhle:
try with tFrmGenOpt.Create(self) do
try
Result := ShowModal=mrOK;
finally
Release;
end;
except
on E:Exception do
begin
{$IfDef vccLogging}
LOG.LogException('tMainForm.ExeGenOpt',[E]);
{$endif}
Result := FALSE;
end;
end;
Vyska ComboBoxu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 16.7.1999 15:34:07
Mal� Dobromil wrote:
>
> Zavisi to na vysce pouziteho pisma, takze jedine zmenit pismo.
> Dobra.
>
> > ----------
> > mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
> > Porad se mi to vraci na defaultni hodnotu. Nebo musim nastavit jeste
> > neco jineho?
> >
No... Trosku funguje
MyComboBox.Perform(CB_SETITEMHEIGHT,-1,vyska);
ale po rozbaleni se to zase nejak samo vrati... Moc se mi s tim nechce
experimentovat, tak si hrajte.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)paradox
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 16.7.1999 15:40:21
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Chcem natiahnut udaje do excelu z Paradox tabulky. Ale vypise mi ze Nelze najit nainstalovany ISAM. Co to znamena ?
Okrem toho som si vsimol ze najvysia dostupna verzia v Office je paradox 5. Takze 7 - ku excel alebo excel nenacita ?
Martin
Prehravani AVI
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 16.7.1999 15:58:31
Zdravim vsechny,
nevite nekdo prosim jak mam prehrat AVI soubor v Delphi 4 Standard.
Zkousel jsem VCL TAnimate (zalozka Win32), v object inspectoru property
FileName jsem zvolil muj soubor AVI. Jenze po vybrani souboru Delphi oznami
chybu Cannot open AVI, ale tento soubor lze ve Windows p�ehr�t.
Jeste jsem zkousel pouzit komponentu MediaPlayer, ale nevim jak prehravat
ten AVI porad dokola. Predem vsem
mnohokrat dekuji
Jindrich
Nikodem
ZipTv - Flame War.
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 16.7.1999 15:34:28
Nadherny flame war, takhle pred vikendem docela potesi....
Je videt, ze nemate co na praci a uz se vidite nekde na plovarne :-). No,
taky uz se vidim nekde jinde, takze se pripojuji, ale protoze k tomu nekde
je treba se tam nejdriv dostat, tak se strategicky zapojim jen malo.
nebudu zasahovat do polemiky registrace versus registrace (btw, vy jste
prisli jen na dva vyznamy toho slova, ale je jich mnohem vic :-))).
Ale pane pocitacovy experte (kez ja bych byl nekdy pocitacovy expert, zatim
je jim jen Bill a pan eee, no pocitacovy expert, no). Jasne ze taky uznavam
JEN registrovane verze programu, a samozrejme ze neuznavam zadne nelegalni
uzivani softwaru a rozhodne nic takoveho nedelam, stejne jako se radne
chovam ke vsem zakonum te krasne republiky v ktere.... no dobre, to nema
cenu :-))).
Ale i pres to, ze uznavam toto, tak programy, ktere se nechaji volne
poustet, ale musi mit pusteny Delphi jsou docela ujety. Meli jsme tu jednu
komponentu na praci s Databazi, ale specifikace problematiky a vseho rikala,
ze nez se mohlo rozhodnout pro jeji uziti, bylo treba ji vyzkouset na kompu,
na kterem to nakonec melo bezet. Ten komp byl dosti chudak a mel co delat,
ze tam vubec utahl NTcka. Opravdu jsme meli velkou radost, ze musime jeste
nainstalovat Delphi, pretahnout zdrojaky, prijit na to, proc to nechce
prelozit :-) a po dni usilovneho instalovani uznat, ze ty komponenty to
vlastne zas tak moc dobre neresi a pak odinstalovavat delphi... aby nebyla
nuda, tak druhy den cely NT a stroj :-(((.
A vubec, cokoliv, co presahuje BeerWare je ujety. No, ale dokud jsou ty
penize, tak chapu proc to vsechno je, ale nikde jsem nerekl, ze by se mi
zamlouval penezni system...
Uff, vite co? Ja radsi mizim, sorry, ale vase debata byla fakt na tolik
zajimava, a hlavne RESICI problem, ze jsem taky musel trochu pomoc.
Jo, jeste k Polakovi:
-----P�vodn� zpr�va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Dam pozadavek: chci tenaten soft, tuhle knizku, novy pocitac
nebo odpadkovy kos, vzdycky se nekdo najde, kdo to ma na starosti
a opatri mi to.
To je vyhoda trochu vetsi firmy oproti male, kde vsichni delaji vsechno.
Je tady specializace a lepsi predpoklady pro kvalitni praci
Proto jsem presvedcen, ze programator se nemusi obtezovat
licencnimi podminkami, ale muze se soustredit na programovani.
Jojo, specializace je vyborna vec. Clovek je pak uplne totalni machr v
noseni kosu do mistnostni, ale jinak neumy vubec nic, ani si namazet chleba
(mate na to taky odborniky?).
Uf, nemyslim to nijak moc zle, ale hlavne to pisu kvuli tomu, ze i kdyz uz
se specializujes na jednu oblast (proti tomu nic nemam, ja taky nemam paru o
stepeni kvaziparaelnich castic qiunskou metodou), tak by jsi rozhodne mel
mit alespon zakladni znalost veci, kterych se tva cinnost dotyka. A licence,
plus autorsky zakon v tom myslim je.
Ale jo, nechavam toho, autobus ceka :-)...
Jenom jeste, ze male firmy jsou zase mnohem flexibilnejsi a navic
roztomilejsi a mene monopolisticke a mene narocne na administrativu a navic
nemam rad microsoft! :-)
Tak hezkej flaming...
Hinty a vyjimky - jsem blby ja nebo Delphi
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 16:43:53
Ing. Leopold Grepl <Grepl(zv)melzer(tec)cz> wrote:> Result = False je default hodnota a proto se nemusi explicitne plnit.
Neexistuje Boolean hodnota vracejici nic.
Brrrr, to je ale hloupost. Result je kus zasobniku, ktery svym rozmerem
odpovida velikosti typu vysledku a chova se jako kazda jina lokalni
promenna. A nikdo ten stack pred volanim nenastavuje na zadnou default
hodnotu. Proste se od SP odecte pozadovany pocet bytu a nastavi se stack
frame. V pripade jednoduchych funkci a zapnute optimalizaci se ani takova
promenna na stacku nealokuje a vse se odehraje v registrech CPU.
Mas-li D4, tak pouzij View CPU a zkus si nasleduji programek. Uvidis, ze do
promenne B se priradi posledni hodnota, ktera byla v registru AL tj.
hodnota, kterou priradis ve funkci ReturnInteger()
To, ze nebude fungovat prikaz CASE a funkce ORD(), uz je bordel Delphi,
ktery misto typu boolean naprosto bezostysne pouziva typ bytebool a skoro by
se dalo souhlasit s Tvym tvrzeni, ze neexistuje boolean hodnota vracejici
nic :-((((
Ovsem jak ilustruje programek nize, lze v Delphi skutecne psat programy,
ktere delaji zejmena cokoli :-))
****
{$OPTIMIZATION ON}
function ReturnInteger: integer;
begin
Result := $9999;
end;
function ReturnBoolean: boolean;
begin
// nic, navratova hodnota je nedefinovana
end;
var
N: integer;
B: boolean;
begin
N := ReturnInteger;
B := ReturnBoolean;
case B of
FALSE: Caption := 'FALSE';
TRUE: Caption := 'TRUE';
else Caption := format('Bordel=%4.4x, negace=%4.4x',[ord(B),
ord(not B)]);
end;
end;ZipTv - OOT, Flame, no need for reading this stuff
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 16.7.1999 15:43:23
Jeeeee, ten OutLook je jetej, on mi kus konference nahazel jinam :-(((.
>Prestante,
Spravne :-).
>>Aj ked raz budu zit vlci a ovecky v miery, vsadim na vlkov.
Jaky je kurz? Ja vsadim na ovecky. Neb prijdou lidi a vlky vymlati, aby jim
nezrali ovecky...
>nakodit, len nakodim, ked ma bavi predavat v akvaristike, vyhodim komputer
>von
>z okna a dozijem sa o 20 rokov viac.
Co? Vyhazovani pocitacu prodluzuje vek??? Btw, co to je nakodit?>Sme len ludia.
Jojo, opravdu JENOM. Ale s tim clovek moc nadelat nemuze :-).
>C u
>Werki
H u
Hinty a vyjimky
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 16.7.1999 16:46:54
Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> wrote:
>Nevim, jestli ted nenapisu nejake kravinimum, ale nechapu
>tu hlasku "value ... never used", vzdyt ExecGenOpt je preci
>funkce a ne zadna value... Nemuze to by tedy tim, ze jsi
>nikde v kodu tu funkci nepouzil a je tim padem cela funkce
>zbytecna ?
Ne, to vyplyva jeste ze syntaxe Pascalu pred zavedenim lokalni promenne
Result, kdy se psalo ExecGenOpt := FALSE; Ostatne ta syntaxe se da stale
pouzivat.
Bye, pf
Jaky typ tabulek a jeste TQUERY
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.7.1999 17:40:06
Dalibor Bednar��k wrote:
> Mam napsat program pro knihovnu....
> Poradte mi, jaky je na to nejlepsi typ tabulek..
>
> Paradox, DBase .....(to co standartne nabizi podpora delphi 3)
> Popisete mi vyhody, nevyhody?
:-) Opomnel jsi zminit drobne nepodstatne detaily, jako na jakem
OS to pobezi, zda na lokale ci siti, pro kolik uzivatelu, jaky objem
dat se ocekava, zda to bude nutne replikovat ci ne, ...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 16:49:16
Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
> K teto diskusi jsme se ale dostali pres registrace.
> Nemuzu zjistovat, kdyz potrebuju pouzit nejaky soft,
> jestli je zaregistrovan, jestli mame dostatecny pocet licenci a jestli ja
> nebudu tim prvnim, kdo prekroci limit. (To by firma asi nepotrebovala
> zakazky - dostatecne by se zamestnala sama).
Ha, ha, ha :))) To si ale uz delas fakt legraci, co?
A taky nemas cas premyslet nad tim, jestli uz jsi
svacil a nebo nesvacil, ze?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ZipTv
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 17:01:48
Puvodni zprava, kterou napsal Polak Jiri dne 16 Jul 99,:
> > :))) Nejsem si jist, zda je to dobre :)))
>
> Mozna to neni dobre, ale neni fyzicky mozne, abych mel
> prehled o veskerem software, ktery pouzivam. Nedokazu si predstavit,
> ze bych pri spusteni programu obtelefonovaval celou firmu, abych
> spocital, kolik lidi prave dany soft pouziva a jestli nejsem sesty,
> kdyz mame jen pet licenci. Proste spoleham na to, ze clovek, ktery to ma
> na starosti, dobre odhadl a koupil pocet potrebnych licenci a firma tak se
> svym stadem programatoru nekomu zrovna neskodi.
Ale jo, ja ti to neberu. To je v poradku. Jenze je to take
malinko jinak. Pokud jsi to ty, kdo porusuje licenci, pak
porusujes zakon. Chapes? Takze bys preci jen aspon to neco
malo o tom vedet mel. Ale nebudeme dal diskutovat, to nema
s Delphi nic spolecneho.
> Ano, a protoze spousta lidi tam pise, co je napadne, chci
> cloveka upozornit, ze to muze byt blbost. A ze si neuvedomujes
> co presne pises, to uz jsme si overili minimalne jednou, nekdy
> pred pulrokem. Ale nic Ti nevycitam, je to prirozene a ja jsem
:)))
> se uz taky napsal dost blbosti, kterych jsem potom litoval.
> Tak se netvar tak dotcene. A misto zesmesnovani nekoho za to,
> ze nezna nejakou potroublou komponentu, by sis mohl radeji
> vytvorit signatu: Vzdycky vim, co pisu.
Ja se netvarim dotcene, ani te nezesmesnuji. Ty jsi zacal
debatu.
> Implicitne to predpoklada mozna nekdo, kdo s Tebou nema zadnou nebo
> jen dobre zkusenosti. Ja jsem to nepredpokladal. :-)
:)))
> > No tak Te to napadlo, no, neni to takova tragedie, proste
> > te to napadlo spatne. Ale nemusime se tu snad dohadovat
> > a vysvetlovat si ptakoviny... Ja holt budu v konferenci
> > zodpovidat ty obchodni dotazy a ty budes radit jako
> > opravdovy programator. OK, jsme domluveni? :)))
>
> Souhlasim, tak s tim rypanim priste nezacinej, kdyz je Ti
> nad Slunce jasne, jak se veci maji.
:))) OK, necham Te priste placat :)))
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ZipTv - Flame War.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.7.1999 17:07:58
Puvodni zprava, kterou napsal Hrabi of Chmeliste dne 16 Jul 99,:
> cenu :-))). Ale i pres to, ze uznavam toto, tak programy, ktere se nechaji
> volne poustet, ale musi mit pusteny Delphi jsou docela ujety. Meli jsme tu
A jak se maji jinak ti autori chranit? Oni chteji penize, pokud
to bude plne fungovat a penize pozadovat na "pekne prosim", tak
si to mozna koupim tak akorat ja :))) Vsak vis, jak to chodi...
> cokoliv, co presahuje BeerWare je ujety. No, ale dokud jsou ty penize, tak
:))) Vsechno je ujety. Kde pracujes? Dostavas zaplaceno za
svou praci? A myslis si, ze programatori si nezaslouzi penize
za to, co udelali? A nebo ze bys zil v komunismu? Tam prece
se rika: "Kazdy podle svych moznosti, kazdemu podle jeho
potreb." - je to tak?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
nahtenm dat JPG do TImage pxes TMemoryStream
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 16.7.1999 18:19:25
Diky za upozorneni, ten try byl opravdu spatne, ani jsem si toho nevsiml.
Free misto Destroy je taky asi lepsi, ikdyz ten puvodni vzor byl od
Borlandu -) a meli tam destroy. Ta treti vec je jen dusledkem spatneho try.
-----P�vodn� zpr�va-----
Od: Petr�j Zden�k [SMTP:ZPetruj(zv)qgir(tec)cz]
Odesl�no: 14. �ervence 1999 8:26
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
Kod od pana Bardone je podle meho nazoru blbe.
1. Misto DESTROY se ma pozivat FREE - viz. diskuze o ruseni TFileStream
2. Pouziti TRY ... FINALLY je v tomto pripade naprosto scestne:
V idealnim pripade to sice bude fungovat ALE jestlize nastane chyba
v LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead) pak bude kod
pokracovat ve finally bloku a bude chtit uvolnovat neexistujici
instanci objektu LJpeg a LStream!!!
Pri ochrane uvolnovani objektu ve finally bloku by mel byt
CREATE objektu PRED !!! TRY, protoze v pripade chyby pri CREATE
se instance nevytvori a tudiz se nesmi ani uvolnovat.
A jeste poznamka objekt by se mel vytvaret az tesne pred pouzitim.
3. V pripade chyby nebude inicializovana imgData.Visible na zadnou hodnotu
ale bude mit puvodni - asi by bylo treba osetrit i tuto vec.
Kod po oprave:
procedure TfrmObjDokObr.ZobrazJPEG ;
var LStream: TBlobStream;
LJPEG: TJPEGImage;
begin
If Not tblZaznamyDATA.IsNull then
begin
LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead); //OPRAVENO
UMISTENI
try
LStream.Position:=0;
try
LJpeg:=TJPEGImage.Create; //OPRAVENO UMISTENI
LJpeg.LoadFromStream(LStream);
imgData.Picture.Assign(LJPEG);
imgData.Visible:=True;
finally
LJpeg.Free; //OPRAVENO
end;
finally
LStream.Free; //OPRAVENO
end;
end
else
begin
imgData.Visible:=False;
end;
end ;
> -----P�vodn� zpr�va-----
> Od: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
> Odesl�no: 13. �ervence 1999 13:35
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
>
> Ja to delam takto: (opsal jsem to z nejakeho prikladu na www)
>
> {*************************************************************
> ****************}
> procedure TfrmObjDokObr.ZobrazJPEG ;
> var LStream: TBlobStream;
> LJPEG: TJPEGImage;
> begin
> If Not tblZaznamyDATA.IsNull then
> begin
> try
> LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
> LJpeg:=TJPEGImage.Create;
> LStream.Position:=0;
> LJpeg.LoadFromStream(LStream);
> imgData.Picture.Assign(LJPEG); // imgData: TImage
> imgData.Visible:=True;
> finally
> LJpeg.Destroy;
> LStream.Destroy;
> end;
> end
> else
> begin
> imgData.Visible:=False;
> end;
> end ;
>
> -----P�vodn� zpr�va-----
> Od: Jansta Kv�toslav [SMTP:KJ(zv)lcs(tec)cz]
> Odesl�no: 13. �ervence 1999 9:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: na�ten� dat JPG do TImage p�es
> TMemoryStream ????
>
> jo, LoadFromFile je jasn� v�c, to funguje bez probl�m�,
> ale j� bych to pot�eboval na��tat z TMemoryStreamu, o to mi jde.
> a nev�m co s t�m ..................
> Bohu�el v Delphi je jen JPEG.dcu, to mi moc nepom��e.
>
> m� s t�m n�kdo n�jak� zku�enosti ?????????
>
> Sl�va
>
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
>
> > ----------
> > Odes�latel: Miroslav Topol��[SMTP:topolar(zv)iol(tec)cz]
> > Odpov�di: delphi-l(zv)fwd(tec)cz
> > Odesl�no: 12. �ervence 1999 20:59
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: na�ten� dat JPG do TImage ????
> >
> > Jak pou��vat obr�zky typu JPG
> >
> > DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat
> > soubory
> > JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
> >
> --------------------------------------------------------------
> ------------
> > --
> > ----
> > procedure ShowJPG(FileName:string);
> > var Imageb:TImage;
> > temp:boolean;
> > begin
> > imageb:=TImage.Create(FORM1);
> > temp:=Imageb.Picture.Graphic is TJPEGImage;
> > Imageb.Picture.LoadFromFile(filename);
> > FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
> > imageb.free;
> > end;
> >
> --------------------------------------------------------------
> ------------
> > --
> > ----
> > Procedura pou��v� knihovny JPEG a ExtCtrls.
> >
> >
> >
> > V�pisek z Online Program�torsk� p��ru�ky
> >
> > http://web.iol(tec)cz/mister
> > ----- Original Message -----
> > From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Monday, July 12, 1999 7:29 PM
> > Subject: na�ten� dat JPG do TImage ????
> >
> >
> >
> > �au ,
> >
> > pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> > komponent� typu TImage ?????????????
> >
> > zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i
> zobrazov�n� (
> > JPEG Error # 41 ) , :
> >
> > var
> > F1 : file of Byte;
> > ChByte : Byte;
> > FName : string;
> > MStream : TMemoryStream;
> > MBuffer : PByte;
> > MSize : integer;
> > MP : PByte;
> > Gr : TJPEGImage;
> > Image : TImage;
> > begin
> > FName:='A.jpg';
> > MSize:=0;
> >
> > if FileExists(FName) then
> > begin
> > AssignFile(F1, FName);
> > Reset(F1);
> > MSize := FileSize(F1);
> > GetMem(MBuffer, MSize);
> > MP := MBuffer;
> > while not Eof(F1) do
> > begin
> > Read(F1, ChByte);
> > MP^ := ChByte;
> > Inc(MP);
> > end;
> > MStream := TMemoryStream.Create;
> > MStream.Write(MBuffer^, MSize);
> >
> > // Image.Picture.Graphic.LoadFromStream(MStream);
> > Gr := TJPEGImage.Create;
> > Gr.LoadFromStream(MStream);
> > Image.Picture.Graphic := Gr;
> > CloseFile(F1);
> > MStream.Free;
> > end;
> >
> > v�m �e funguje LoadFromFile, ale pot�eboval bych to touto
> metodou, p�es
> > �ten� Byte po Bytu.
> >
> > d�ky za ka�dou odpov��,
> >
> > Sl�va
> >
> >
> >
> >
> > Kv�toslav JANSTA, v�voj HELIOS(r)
> > LCS International, a.s., Slezsk� 96, Praha 3
> > Telefon : 02 / 691 13 80, linka 224
> > E-mail: KJ(zv) lcs(tec)cz
> > http://www.lcs(tec)cz/
> >
> >
>
>
Spojeni nekolika RichEditu
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 16.7.1999 18:40:02
Obavam se, ze to vubec neni tak jednoduche, jak bychom si vsichni prali. Po
dlouhem hledani jsem nenasel nic chytrejsiho, nez to nacist do RichEditu a
pripojit k textu v jinech RichEditu. Jestli nekdo zna elegantnejsi postup,
sem s nim.
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
Odesl�no: 15. �ervence 1999 9:25
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Spojeni nekolika RichEditu
Ahoj
V tabulce mam 8 memo polozek ve kterych je ulozen text ve formatu RTF.
Techto 8 polozek potrebuji sloucit s nadpisy do jednoho RichEditu.
Pokud to udalam takto
if DM1.Zdravotni2ZasazeniOci.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni oci');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniOci.Value);
end;
if DM1.Zdravotni2ZasazeniKuze.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni kuze');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniKuze.Value);
end;
.....
vlozi mi to tam klasicky text se vsemi priznaky textu
{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans
Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans
Serif;}}....
Pokud pouziji
RENadpis(REZdravotni,'Poziti');
DM1.Zdravotni2Poziti.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
REZdravotni.Lines.LoadFromStream(Stream);
je to v poradku, ale funguje to jen pro jednu polozku. Nevim jak je
pripadne
spojit .
Dekuji Milan
UPDATE v SQL s vysledekem v jednom kroku
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 16.7.1999 20:46:35
Martin Fron�k wrote:
> No dobra, tak polopaticky. Za server muzes prohlasit libovolny stroj v
> siti, nebo i jen jeden pocitac. Pak pouzijes sw loopback, tj. adresu
> 127.0.0.1 - to bude fungovat i bez LAN karty, jen musis instalovat
> protokol TCP/IP. Tak, jeste nejaka nejasnost?
Napriklad, ze pokud nekde jsou 3-4 PC peer-to-peer byva tam NetBUI a jeden
z nich je pripojeny modemem na Inet (casta to kombinace). No a pak povolovat
sdileni pro TCP/IP neni nevhodnejsi reseni.
> Myslim, ze to je
> dostacujici vysvetleni. Nebo bys mohl mit dve ruzna DLL, ktere by si
> aplikace po startu cucla, a vubec by ji nezajimalo, kde a jak to cisla
> ta DLL sezene. A pak by ses obesel na jednom stroji i bez TCP/IP, proste
> bys tam dal knihovnu, ktera tohle resi lokalne. A presto bys mohl mit
> jednu aplikaci, jen dve ruzne DLL. (Nedavno se tu nekdo ptal, k cemu je
> dobre mit DLL, tak treba k tomuhle.)
>
OK. to jiste jde. Ja vsak spise touzim po reseni, ktere by bylo pro
rozsireni na nejaky databazovy stroj kompatibilni po strance struktury
databaze. To Tvoje reseni samozrejme nevylucuje, ale preci jenom mi to
pripada trochu komplikovane i kdyz jiste spolehlive.
Optam se tedy take polopaticky :
Pomoci SQL dotazu to tedy nejde ?.> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> > Odesl�no: 16. �ervence 1999 11:47
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: UPDATE v SQL s vysledekem v jednom kroku
> >
> >
> >
> > Martin Fron�k wrote:
> >
> > > Hi,
> > >
> > > na takovehle univerzalni unikatni citace pouzivam (jak jinak)
> > malinkou
> > > aplikaci, ktera bezi nekde na serveru a klient se na ni pripoji
> > pomoci
> > > TCP/IP, rekne o jakou promennou ma zajem, server vyhleda, zvysi
> > (nebo
> > > neco jineho), a vrati hodnotu. Do doby vraceni zadnemu jinemu
> > klientu tu
> > > hodnotu neposkytne. Tohle je neprustrelne (co se unikatnosti tyka).
> > Ma
> > > to svoje problemy, ale klady vyrazne prevazuji nad zapory. Tak to
> > zkus.
> > >
> >
> > Diky. Ale tohle je pro mne ponekud neschudna cesta. Aplikace nebude
> > vzdy
> > sitova (t.j. musi dokazat bezet i na jednom stroji) a jde mi o to
> > dodrzet
> > stejny princip take pri pouziti BDE a Paradox tabulek (a to zase muze
> > klidne
> > bezet na dejme tomu 3-4 PC propojenych peer-to-peer)
> >
> > eL..
> >
> > > Martin Fron�k
> > > ZZN Slan� a.s.
> > > Pra�sk� 1579, 274 49, Slan�
> > > tel. +420-314-522986
> > > e-mail: fronek(zv)zznslany(tec)cz
> > >
> > > > -----P�vodn� zpr�va-----
> > > > Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> > > > Odesl�no: 16. �ervence 1999 0:52
> > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > P�edm�t: UPDATE v SQL s vysledekem v jednom kroku
> > > >
> > > > moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit
> > a
> > > > pak
> > > > precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k
> > tomu,
> > > > ze
> > > > nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi
> > > > nastat.
> > > >
> > > > Zamknuti tabulky a provedeni dvou kroku bych se rad z
> > pochopitelnych
> > > > duvodu (chcipnuti stanice) vyhnul.
> > > >
> > > >
> >
> >
UPDATE v SQL s vysledekem v jednom kroku
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 16.7.1999 20:46:30
Robert Jendrisak wrote:
> > Zdravim vsechny.
> >
> > Mam tento problem. Potrebuji v aplikaci vytvorit a obslouzit tabulky s
> > ciselniky. Tabulka by mela vypadat asi takto :
> > Typ : Char 1
> > Cislo : integer
> > No a potrebuji v jednom kroku zvysit cislo o jednu a hned si precist tu
> > vyslednou hodnotu. Asi takto :
> > UPDATE "Ciselnik.DB" SET Cislo = (Cislo + 1) WHERE (Typ = 'A')
>
> YEAHHHHHH prave si mi nextiac poradil aky je rozdiel medzi SQL a paradox
> SHIT SQL. Dik.
> Cela grupa mi vravela ze je to to iste, uz som myslel ze som debil :)
>
> > a aby to nebylo tak jednoduche potrebuji aby to byl postup, ktery by
> > mohl byt aplikovan jak na Paradox tabulkach tak obecne na SQL serveru.
> > (samozrejme , ze urcite upravy v kodu nevadi, ale aby tento postup bylo
> > mozno principielne pouzit na obojim)
> >
> > Obecne jde o to zvysit cislo v ciselniku o jednu a dozvedet se ho pri
> > moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit a pak
> > precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k tomu, ze
> > nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi nastat.
>
> V informixe je na to interna funkcia, ale SHITTY DUMB PARADOX je tupy
> sprosty a debilny.
> Nevie to :(
> Este raz dik za pomoc, takze sa ti pokusim napisat ako by som to spravil ja.
> Neviem ci pomozem, ale ak mas na mysli vlozenie zaznamu do ciselnika s
> urcitym
> novym cislom, a ihned aj zistenie toho cisla pre pripadne updates....(bez
> toho aby ho zatial mohol pouzit niekto iny, postupuj takto)
Prave ze to je jinak. Nejde o vlozeni noveho zaznamu (to bych napriklad delal
tak, ze bych ten sloupec dal jako primarni index) a pak bych si1 selectnul
maximalni cislo
2 zvysil bych o jednu
3 pridal bych zaznam
4 pokud by se to povedlo tak konec a OK a pokud ne (nekdo mne predbehl) tak
znovu na bod cislo 1
(mozna ze by to i fungovalo a asi by bylo potreba tam do te smycky dat nejaky
nahodny Delay aby se to nezacyklilo)
Muj problem je jiny. Ja potrebuji v takovehle tabulce :
Typ Cislo
---------- -------
Housky 5
Kralici 103
Auta 682
....... .......
Zvysit cislo o jednu a pouzit ten vysledek aniz by mi do toho nekdo vlezl. Takze
i kdyby to zavolaly dve stanice ve stejnem case s parametrem Kralici, tak jedna
musi dostat 104, druha 105 a 105 musi zustat v ciselniku.
Ted mne tak napada, ze by to mohlo nejak jit pres transakce. Nikdy jsem s tim
nedelal ale mozna by mi mohl nekdo poradit.
treba nejak takhle ?
1 MEMCIS := SELECT CISLO..
2 zacatek transakce
3 UPDATE .. CISLO=CISLO+1
4 SELECT CISLO..
5 IF CISLO= ( MEMCIS +1) then COMMIT else ROLLBACK a GOTO 1
fuj to vypada spis jak Basic a SQL vyvojari se jezi vlasy na hlave
nejake transakce snad jdou i v BDE takze by to nejak mohlo jit.
no a pokud uz se nekdo bude se mnou trapit a radit mi tak by to jeste melo umet
to, ze pokud nebude jeste existovat dany Typ
(napriklad "Vlci") tak to prida do ciselniku ten zaznam a priradi tomu cislo 1.
eL..
> Skusim to sem nakodit narychlo s pomocnou premennou...vsak sa to da este
> zjednodusit, ale to je uz na tebe.
>
> // cez hlavu ale predsa
> ////////////////////////////////////
> checkout:=100; // toto je pomocny riadok v tabulke
> while (checkout>1) do
> begin //
> checkout:=random(100)+1;
> selekt:='insert into osoba (checkout) values ('+inttostr(checkout)+')';
> data.pomoc.sql.clear;
> data.pomoc.sql.add(selekt);
> data.pomoc.execsql;
> selekt:='select pco from osoba where checkout='+inttostr(checkout);
> data.pomoc.sql.clear;
> data.pomoc.sql.add(selekt);
> data.pomoc.open;
>
> if data.pomoc.recordcount>1 then
> begin
> selekt:='delete from osoba where checkout='+inttostr(checkout);
> data.pomoc2.sql.clear;
> data.pomoc2.sql.add(selekt);
> data.pomoc2.execsql;
> end;
> checkout:=data.pomoc.recordcount;
> end; //
> if checkout=0 then
> begin // 2
> codeform.atention(owner,'Nepodarilo sa ziskat pristup ku datab�ze, pok�ste
> sa zopakova� �kon');
> exit;
> end; // 2
> pcb:=data.pomoc.Fields[0].asstring; // tu mam v pcb nove cislo na ktore
> mozem robit volne update
> ////////////////////////////////
>
> ide o to:
> 1 - vlozis do premennej autoincrement nic=pocitac si vymysli cislo
> 2 - kedze spolu s nim vlozis aj nahodne cislo (ktore si zapametas) vies sa k
> nemu vratit
> 3 - zistis ci v tabulke nemas viac ako 1 zaznam s tvojim nahodnym cislom
> 4 - ak hej, odznova (x krat) (ten pomocny collumn samozrejme nulujes)
> 5 - ak nie, tak mas cislo zaznamu ktore mozes volne updatovat
> 6 - si si isty ze nexes zmenit paradox za cosi solidnejsie???
>
> Skusim to narychlo nasadit medzi ludi ktorym hladim na HD.
> 280 ludi to spustilo naraz a mam tu...280 zaznamov. Takze uz to mas aj
> odskusane.
>
> >
> > Zamknuti tabulky a provedeni dvou kroku bych se rad z pochopitelnych
> > duvodu (chcipnuti stanice) vyhnul.
> >
> > Predem diky za odpovedi.
> >
> > eL..
>
> Niet zac, ya dakujem
>
> Werki
Vyska ComboBoxu
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 16.7.1999 22:08:23
Hello All!
16. �ervence 1999 Bene� Jaroslav wrote:
> mam stupidni dotaz. Jak zmenim defaultni vysku comboboxu na napr. 21 ?
Skus zmenit velkost pisma.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Spojeni nekolika RichEditu
[*] Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz> - 16.7.1999 23:26:06
Delal jsem neco podobneho pri generovani jednoho rtf pro prelozeni napovedy
k programu ulozene v memech.
Skoncil jsem tak, ze jsem proste analyzoval rtf syntaxi.
Vzal jsem hlavicku prvniho, poskladal si poradi (idexaci) fontu a podle toho
precisloval ostatni rtf.
To same s barvama.
Nebylo to nic hezkeho. Trochu jsem si pomohl tim, ze jsem dal natvrdo 4
fonty a 16 barev.
Petr Medek
----- P�vodn� zpr�va -----
Od: Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 16. �ervence 1999 18:40
P�edm�t: RE: Spojeni nekolika RichEditu
Obavam se, ze to vubec neni tak jednoduche, jak bychom si vsichni prali. Po
dlouhem hledani jsem nenasel nic chytrejsiho, nez to nacist do RichEditu a
pripojit k textu v jinech RichEditu. Jestli nekdo zna elegantnejsi postup,
sem s nim.
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
Odesl�no: 15. �ervence 1999 9:25
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Spojeni nekolika RichEditu
Ahoj
V tabulce mam 8 memo polozek ve kterych je ulozen text ve formatu RTF.
Techto 8 polozek potrebuji sloucit s nadpisy do jednoho RichEditu.
Pokud to udalam takto
if DM1.Zdravotni2ZasazeniOci.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni oci');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniOci.Value);
end;
if DM1.Zdravotni2ZasazeniKuze.Value > '' then
begin
RENadpis(REZdravotni,'Zasazeni kuze');
REZdravotni.Lines.Add(DM1.Zdravotni2ZasazeniKuze.Value);
end;
.....
vlozi mi to tam klasicky text se vsemi priznaky textu
{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans
Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans
Serif;}}....
Pokud pouziji
RENadpis(REZdravotni,'Poziti');
DM1.Zdravotni2Poziti.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
REZdravotni.Lines.LoadFromStream(Stream);
je to v poradku, ale funguje to jen pro jednu polozku. Nevim jak je
pripadne
spojit .
Dekuji Milan
Popupmenu
[*] velky(zv)broucek(tec)cz - 17.7.1999 11:01:14
nemate prosim nekdo komponentu podobnou standartnimu
popupmenu, takovou ze by v pripade kdy obsahuje menu hodne
polozek(treba 30-50) byla zalomena alespon na 2. casti
diky Jenik
paradox
[*] Erik Salaj <winsoft(zv)napri.sk> - 17.7.1999 11:38:13
Excel 97 pouziva Jet Engine 3.5. Pre import/export do Paradoxu
je potrebne doinstalovat Paradox ISAM driver, ktory je sucastou
ValuePack-u a nachadza sa na MS Office instalacnom CD-cku.
Paradox ISAM podporuje Paradox 3.x, Paradox 4.x a Paradox 5.x
formaty. Paradox 7.x format je podporovany az v Jet Engine 4.0
(vyzaduje ale nainstalovane BDE), takze by to malo chodit
s Excelom 2000.
Erik
----- Original Message -----
From: Martin Talian
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, July 16, 1999 3:40 PM
Subject: paradox
Chcem natiahnut udaje do excelu z Paradox tabulky. Ale vypise mi ze Nelze najit nainstalovany ISAM. Co to znamena ?
Okrem toho som si vsimol ze najvysia dostupna verzia v Office je paradox 5. Takze 7 - ku excel alebo excel nenacita ?
Martin
Delka videa 2
[*] Robert Jendrisak <delphi(zv)minv.sk> - 17.7.1999 12:08:43
Informacie byvaju zvacsa v hlavicke suboru. Kazdy subor ho ma inde. Zadava sa zvacsa v milliosecondax.
Keep well
Werki
----- Original Message -----
From: Martin Bobak
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, 15 July 1999 14:35
Subject: Re: Delka videa 2
no ak kazdy frame ma rovnaku casovu dlzku, tak z ich poctu by nemal byt problem vyratat dlzku celeho videa , myslim si. Ale ak nie tak neviem ;o))
----- Original Message -----
From: Petr Voborn�k
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, July 13, 1999 1:57 PM
Subject: Delka videa 2
Nedavno jsem tu mel dotaz ohledne zjistovani delky videa (AVI, MPG, MOV...). Problem byl v tom, ze TMediaPlayer mi vrati funkci Length pocet framu (obrazku), ale ne pocet sekund, nebo milisekund. Neda se zjistit ani pocet obrazku za sekundu, takze delku videa nelze zjistit. Na tento dotaz mi bohuzel nikdo neodpovedel, tak to zkousim znovu, jestli uz to nahodou nekdo nevite.
vobornik(zv)ssakhk(tec)cz
Start PC
[*] Robert Jendrisak <delphi(zv)minv.sk> - 17.7.1999 12:24:23
>
>
> Krayzel Libor wrote:
>
> > Zdravim,
> >
> > lze nejakym jednoduchym zpusobem zjistit, kdy (v kolik hodin) byl zapnut
> > pocitac?
> >
>
> Treba takhle :
> ShowMessage(TimeToStr(Time -
> (TimeStampToDateTime(MSecsToTimeStamp(GetTickCount)))));
>
> eL..
>
Ehm...co tak
do startupu hodit jednoduxu rutinku obsahujucu
showmessage(DateToStr(Date));
showmessage(TimeToStr(Time));
???
Werki
UPDATE v SQL s vysledekem v jednom kroku
[*] Robert Jendrisak <delphi(zv)minv.sk> - 17.7.1999 12:58:11
> Zdravim vsechny.
>
> Mam tento problem. Potrebuji v aplikaci vytvorit a obslouzit tabulky s
> ciselniky. Tabulka by mela vypadat asi takto :
> Typ : Char 1
> Cislo : integer
> No a potrebuji v jednom kroku zvysit cislo o jednu a hned si precist tu
> vyslednou hodnotu. Asi takto :
> UPDATE "Ciselnik.DB" SET Cislo = (Cislo + 1) WHERE (Typ = 'A')
YEAHHHHHH prave si mi nextiac poradil aky je rozdiel medzi SQL a paradox
SHIT SQL. Dik.
Cela grupa mi vravela ze je to to iste, uz som myslel ze som debil :)
> a aby to nebylo tak jednoduche potrebuji aby to byl postup, ktery by
> mohl byt aplikovan jak na Paradox tabulkach tak obecne na SQL serveru.
> (samozrejme , ze urcite upravy v kodu nevadi, ale aby tento postup bylo
> mozno principielne pouzit na obojim)
>
> Obecne jde o to zvysit cislo v ciselniku o jednu a dozvedet se ho pri
> moznosti soucasneho pristupu vice uzivatelu, takze nejprve zvysit a pak
> precist nejde, jelikoz by pri soucasnem pristupu mohlo dojit k tomu, ze
> nez prectu vysledek uz ho zvysi nekdo jiny a to samozrejme nesmi nastat.
V informixe je na to interna funkcia, ale SHITTY DUMB PARADOX je tupy
sprosty a debilny.
Nevie to :(
Este raz dik za pomoc, takze sa ti pokusim napisat ako by som to spravil ja.
Neviem ci pomozem, ale ak mas na mysli vlozenie zaznamu do ciselnika s
urcitym
novym cislom, a ihned aj zistenie toho cisla pre pripadne updates....(bez
toho aby ho zatial mohol pouzit niekto iny, postupuj takto)
Skusim to sem nakodit narychlo s pomocnou premennou...vsak sa to da este
zjednodusit, ale to je uz na tebe.
// cez hlavu ale predsa
////////////////////////////////////
checkout:=100; // toto je pomocny riadok v tabulke
while (checkout>1) do
begin //
checkout:=random(100)+1;
selekt:='insert into osoba (checkout) values ('+inttostr(checkout)+')';
data.pomoc.sql.clear;
data.pomoc.sql.add(selekt);
data.pomoc.execsql;
selekt:='select pco from osoba where checkout='+inttostr(checkout);
data.pomoc.sql.clear;
data.pomoc.sql.add(selekt);
data.pomoc.open;
if data.pomoc.recordcount>1 then
begin
selekt:='delete from osoba where checkout='+inttostr(checkout);
data.pomoc2.sql.clear;
data.pomoc2.sql.add(selekt);
data.pomoc2.execsql;
end;
checkout:=data.pomoc.recordcount;
end; //
if checkout=0 then
begin // 2
codeform.atention(owner,'Nepodarilo sa ziskat pristup ku datab�ze, pok�ste
sa zopakova� �kon');
exit;
end; // 2
pcb:=data.pomoc.Fields[0].asstring; // tu mam v pcb nove cislo na ktore
mozem robit volne update
////////////////////////////////
ide o to:
1 - vlozis do premennej autoincrement nic=pocitac si vymysli cislo
2 - kedze spolu s nim vlozis aj nahodne cislo (ktore si zapametas) vies sa k
nemu vratit
3 - zistis ci v tabulke nemas viac ako 1 zaznam s tvojim nahodnym cislom
4 - ak hej, odznova (x krat) (ten pomocny collumn samozrejme nulujes)
5 - ak nie, tak mas cislo zaznamu ktore mozes volne updatovat
6 - si si isty ze nexes zmenit paradox za cosi solidnejsie???
Skusim to narychlo nasadit medzi ludi ktorym hladim na HD.
280 ludi to spustilo naraz a mam tu...280 zaznamov. Takze uz to mas aj
odskusane.
>
> Zamknuti tabulky a provedeni dvou kroku bych se rad z pochopitelnych
> duvodu (chcipnuti stanice) vyhnul.
>
> Predem diky za odpovedi.
>
> eL..
Niet zac, ya dakujem
Werki
ZipTv
[*] Robert Jendrisak <delphi(zv)minv.sk> - 17.7.1999 13:03:59
Prestante,
poznam ludi co si analyzuju/programuju/predavaju svoje produkty a zarabaju
millions,
poznam ludi ktori su zamestnancami fieriem a na ktorych bohatnu firmy. (za
par rokov to budu chudaci nestaciaci na mladsiu generaciu)
poznam ludi ktory robia u firiem a nezaujimaju sa o nic, len o svoj kusok
kodu a predavaju herbalife.
poznam ludi co su genialny programmers a predavaju v akvaristike
Co sa trapit
Aj ked raz budu zit vlci a ovecky v miery, vsadim na vlkov.
Verim sebe, ked viem cosi predat, predam, ked viem len
nakodit, len nakodim, ked ma bavi predavat v akvaristike, vyhodim komputer
von
z okna a dozijem sa o 20 rokov viac.
Sme len ludia.
C u
Werki
Pinger
[*] Martin Klacansky <soulfly(zv)Vadium.Sk> - 17.7.1999 14:49:34
Zdravim,
potreboval by som proceduru, funkciu alebo aspon nejake info na temu ping.
Sposob typu programu PING.EXE vo Windows.
Konkretne: pro zadani IP adresy potrebujem zistit ci server na moje spravy reaguje.
Vdaka za pomoc
Martin soulfly(zv)vadium.sk
COM a eventy
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 17.7.1999 18:12:12
Pro vsechny zoufalce, kteri se snazi zprovoznit COM
s eventy, at uz s vlastnim COM servrem, nebo napr. s MS Office,
jsem objevil tuhle stranku.
http://www.castle.net/~bly/Programming/Delphi/index.html
Radim