Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zruseni indexu v DBF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 19:40:23
Stanislav Cerny wrote:
>
> Zdravim vsechny,
> Nedavno tu byla diskuse na tema vytvoreni indexu
> u databazi DBF pomoci Table.AddIndex.
> To funguje dobre, vytvori se indexni soubor *.MDX
> a do databaze se zapise propojeni.
> Problem nastane v pripade smazani tohoto indexniho
> souboru. Potom ho nelze znovu vytvorit, dokud neni
> zruseno ono propojeni.
> Nevite jak ho zrusit primo z aplikace?
> Diky za radu
Ahoj,
index muzes zrusit pomoci BDE API funkce dbiDeleteIndex, priklad pouziti
najdes v BDE API Helpu. Dalsi moznost je pomoci lokalniho SQL, napr index
SYMBOL u tabulky HOLDINGS.DBF zrusis takhle (tabulka musi byt zavrena):
DROP INDEX "HOLDINGS.DBF".SYMBOL
--
Petr Vones, amatersky programator
Cestina ve Win NT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 19:41:55
Milan Schembera wrote:
>
> Musis nastavit ve Font property Charset na EASTEUROPE_CHARSET, nikoli
> DEFAULT_CHARSET, protoze NT jsou od Microsoftu a i kdyz je mas cesky, tak
> DEFAULT neni EASTEUROPE (co si budeme o Microsoftu povidat, ze ?).
>
> Abys na to nemusel myslet, nastav si to jako vychozi vlastnost formulare,
> ktery si dej do Repository a nastav si ho jako vychozi.
>
> V Delphi 1 musis nastavit Arial CE, ale v NT Ti to stejne nebude chodit,
> pokud budes mit Service Pack 3 a Servis Pack na Office 97 ;-)
Ahoj,
problem je ze v Delphi 2 u TFont jeste neni vlastnost CharSet jako v pozdejsich
verzich Delphi, ale je to tam pevne nastavene na DEFAULT_CHARSET. Asi nejjednodusi
reseni by bylo to prepsat v unitu Graphics na EASTEUROPE_CHARSET a prelozit.
(Nebo si koupit novejsi verzi Delphi :-)
--
Petr Vones, amatersky programator
Popup Menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 20:08:06
Lukes V�clav wrote:
>
> Hallo,
>
> mate prosim nekdo zkusenosti s Popup Menu ?
>
> Ja si ve Form1 vytvorim PopupMenu, ktere je prazdne. Potom bych chtel do nej
> v jinem unitu pridat polozky. To se mi dari. problem je v tom, ze se mi do
> PopupMenu pridavaji za sebe. Pouzil jsem Delete ( TPopupMenu.Items.Delete(I)
> ) v cyklu, ale nedari se mi. Porad mi to hlasi chybu.
>
> Nevite nekdo, jak vycistit popup menu pred pridabanim polozek do nej ?
Ahoj,
jde to takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
with PopupMenu1.Items do
while Count > 0 do Delete(0);
end;
--
Petr Vones, amatersky programator
Nulova hodnota Date
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 20:09:06
Petr Posp�il wrote:
>
> Zdravim vsechny !
> Chtel jsem pouzit komponentu TDateTimePicker pro zadavani datumu do
> database,ale s moznosti uzivatelsky nezadavat zadne datum. A tady jsem
> narazil,protoze tato komponenta uz pri vytvoreni
> ve formulari okamzite nastavuje platnou hodnotu.Kdyz nezadam ve vlastnosti
> Date hodnotu ,tak se mi automaticky zapise hodnota
> "31.12.1889" , nebo nejak tak.
> Vedel by nekdo , jak aplikovat v teto komponente nulovou hodnotu?
>
> Predem diky !
Ahoj,
muzes to udelat pomoci checkboxu v DateTimePickeru, nastav si u neho vlastnost
ShowCheckBox a potom pomoci Checked muzes testovat zdali jej uzivatel zaskrtnul
a tudiz se ma nastavena hodnota pouzit.
--
Petr Vones, amatersky programator
ToolButtons v Delphi4
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 20:37:02
> > A pouzivas ActionList? Ten se na to pouziva, pomoci neho
> > spojis ToolBar s Menu a budes to ovladat najednou
> > (disablovat, enablovat), dokonce i OnClick, obrazky
> > a popisy se ti samy doplni.
>
> Nepouzivam. Asi Ti nedosly jine zpravy, ve kterych
> jsem rikal, ze se na ten ActionList podivam.
Ale jo, dosly mi vsechny zpravy, ale samozrejme konference
neni uplne on-line, nejaky cas trva, nez se to vsem rozesle.
No a casto se stava, ze dopoledne vidim dotaz, odpovim na
nej, vecer pak prijde nekolik dalsich odpovedi a moje se
objevi treba az v noci nebo druhy den.
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 ===
==============================================================ComboBox
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 21:08:18
> Diky za radu, ale toto mi nepomohlo.
> Ja nepotrebujem pridat Item do ComboBox-u. Tato Item (moj string) tam uz
> je !
> Potrebujem ho v�ak 'aktivovat' na zaklade inych premennych. Viem aj jeho
> ItemIndex ale to mi akosi
> nechodi
A co to je za typ ComboBoxu? Zkousel jsi dat Combo.Text := 'text' ?
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================Pad programu
[*] Peter Arbet <arbet(zv)px.psg.sk> - 11.9.1998 00:05:27
Hi.
Tvoja otazka tak trochu suvisi s tym, na com teraz robim. Preto je tu kusok programu, co sa uz v tejto konferencii objavil (nerad sa opakujem). Je to cast vypisu projektoveho suboru:
var
OldExitProc:pointer;
procedure
SysDone;far;
begin
// obnovenie povodnej ExitProc
ExitProc:=OldExitProc;
// tu bude tvoje osetrenie akehokolvek ukoncenia programu
end;
procedure
SysInit;
begin
// zachovas povodnu ExitProc
OldExitProc:=ExitProc;
// samotne presmerovanie
ExitProc:=(zv)SysDone;
end;
begin
Application.Initialize;
// presmerujes povodnu ExitProc na svoju vlastnu
SysInit;
... vytvorenie formularov atd. ...
Application.Run;
end.
Teraz trochu teorie. Na zaciatku programu presmerujes povodnu ExitProc na telo vlastnej exit procedury. ExitProc je ukazatel na proceduru, ktora sa vykona pri akomkolvek ukonceni programu. Sposoby ukoncenia su:
1. Normalne ukoncenie - ExitCode sa rovna nule a ErrorAddr sa rovna nil.
2. Ukoncenie programu cez Halt - ExitCode sa rovna kodu predanom v procedure Halt a ErrorAddr sa rovna nil.
3. Runtime Error - ExitCode obsahuje cislo chyby a ErrorAddr ukazuje na adresu kodu, kde k chybe doslo.
Posledna exit procedura, ktoru instaluje Runtime Library uzavrie I/O subory. V pripade, ze ErrorAddr nie je nil, vypise standardne okno s hlaskou o Runtime Error. Ak chces vypisovat hlasky vo vlastnej exit procedure, tak pred jej ukoncenim nastav ErrorAddr na nil. Zabranis tak spominanemu standardnemu vypisu. ExitCode mozes este pouzit ako navratovu hodnotu programu pre Windows.
Mimochodom, exit procedura je volana pred tym, nez sa spustia finalization sekcie jednotlivych unitov. Vo vlastnej exit procedure presmeruj najskor hodnotu premennej ExitProc na tu, ktoru si si na zaciatku programu uchoval.
Ako ti uz urcite svitlo, jednotlive exit procedury sa vykonaju v opacnom poradi, nez boli nainstalovane. Ak sa v tvojej exit procedure vyskytne chyba, nebude uz znovu zavolana. V skutocnosti to funguje asi tak, ze program vola exit procedury dovtedy, kym premenna ExitProc neobsahuje nil. Pre istotu Delphi nastavia pred kazdym volanim dalsej exit procedury do ExitProc nil. Dalsiu exit proceduru teda zavolaju len v pripade, ze hodnota ExitProc bola zmenena na nieco ine nez nil. Znie to asi trosku zamotane, ale ceruzka, papier a trocha kreslenia to vyriesia.
Na zaver dolezite upozornenie. Tvoja exit procedura musi pouzivat volaci model far.
A aby som sa nechvalil cudzim perim, vsetky tieto informacie sa nachadzaju v Delphi Help. Vyhladaj si heslo Exit procedures.
S pozdravom
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
-----Original Message-----
From: Honza Fiala <fala(zv)imc(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 10. september 1998 11:59
Subject: Pad programu
Cao All,
chtel bych se zeptat, jestli v Delphi existuje nejaky event, ktery dokaze odchytit pad programu.
Dik
Fala
fala(zv)imc(tec)cz
http://www.sws(tec)cz/fs.htm
SQL Server na CD-ROM
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 00:56:20
Ahoj,
lze nejak zaridit, aby nejaky SQL Server pracoval,
pokud je databaze ulouena na CD-ROM, tedy chranena
proti zapisu? Asi ne, co?
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 ===
==============================================================Encryptace data
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 01:47:54
> No, dovolil bych si nesouhlasit, pouzivame Informix-OnLine 7.14, coz je =
> zcela nepochybne naprosto "normalni" SQL server. Bezi na AIX-u, kde ma =
> vymezenou jistou oblast, kam si uklada data, jiste vite, jak to funguje. =
> K datum se pomoci prostredku OS dostat neda, ale pokud nekdo napise =
> aplikaci, ketra si na tomto SQL Serveru udela databazi, tabulky a do =
> nich ulozi nejaka sva data, pres klasicky nastroj DBACCESS (myslim, ze =
> na MS SQL je to Enterprice Manager) se do teto databaze dostane =
> prinejmensim spravce serveru, takze data v ramci SQL kodovana nejsou !=20
Pokud ma tabulka nastavena prava, ze tam muze pracovat PETR a PAVEL,
pak se tam nikdo jiny nedostane. Aspon u normalnich SQL serveru to
tak je. Administrator samozrejme muze vsude, pokud si to sam
nezakaze, nicmene administrator je snad spolehlivy clovek... Pokus
ne, pak nema co delat na pozici administratora.
> >No a ja jsem ti RSA snad vysvetlil spatne?
>
> To bylo spis pro toho cloveka, co chtel informace o MD5.
> Doufam, ze jsi se neurazil :-), ale schanim dalsi a dalsi,
> informace. Konkretni priklad, (kde bude P=3D1021, Q=3D23, ...)
> metody lusteni, ...
Ja jsem se neurazil, pozadal jsi me o konkretni vysvetleni
kodovani RSA, tak jsem si s tim dal praci a pul hodiny jsem
ti to popisoval do mailu, no a ty ses pak ani neobtezoval
mi rici "dostal jsem to", kdyz uz jsi nepodekoval. Ne ze
bych byl nejak zvlast citlivy na dekovani. Ale mam holt
zakoreneno, ze kdyz se na nekoho obratim s nejakou zadosti
primym mailem a on mi odpovi, aspon podekuji, ze mi venoval
svuj cas, ktereho ma urcite malo, prestoze se na me mohl
take vykaslat... A propos, kdybys byl byval racil odepsat,
treba i malinko podekoval a pozadal me o konkretni priklad,
tedy kus programu (kdyz uz tak vehementne shanis dalsi
a dalsi informace), byl bych ti ho byval poslal.
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 ===
==============================================================Internet
[*] ikino(zv)pobox.sk (Ivan Zatka) - 11.9.1998 06:15:58
Zdar,
neviete mi poradit, ako z programu zistim, ci sa pocitac pripojil (z ineho programu) na internet cez dialup? Nieco ako net watcher.
A dalej, ako jednoducho napr. cez winsock.dll poslem e-mail.
IKO
ikino(zv)pobox.sk
--
____________________________________
P. S. V. P. U.
http://www.pobox.sk/referencie
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 11.9.1998 06:23:05
> To mi je jasne, ale som myslel, ze ak ma pri mazani procedura prehladavat
> celu tabulku, bude to pomalsie.
Nebude sa cela prehladavat, pokial bude na klucovych poliach definovany
index.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Zpravy od modemu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.9.1998 06:43:28
Dobry den,
potrebuji sledovat spojeni na modemu v Delphi 1 (ukonceni spojeni na
aktivni lince). Je mozne ziskat nekde funkcni priklad nebo demo ? D�kuji.
J. Bene�, micrel(zv)micrel(tec)cz
> >
> > Prosim o radu,
> > Jak ziskat zpravu od modemu napr. ze bylo spojeni pres modem ukonceno.
> > Existuj� ve Windows takove zpravy (pripadne jak je napojit na aktualni
> > sluzbu formu), nebo je potreba primo posilat k modemu com retezce a
> > zji�tovat odezvy? Dekuji
> > Jaroslav Benes
>
> Ahoj,
>
> Zalezi na tom jak to spojeni bylo vytvoreno, jedna z moznosti je
> monitorovat
> stav daneho TAPI zarizeni. Nevim jakou mas verzi Delphi, u D4 uz je
> konecne
> v helpu popsano TAPI, ale stale tam chybi hlavickove soubory (vi nekdo
> proc ?).
> Priklad je na DSP, hledej tam soubor d_tapi.zip
>
> --
> Petr Vones, amatersky programator
>
pokud jde o zjistovani aktivniho spojeni v RASu, jedinou metodou, kterou
znam je periodicke dotazovani
RASu, zda je to a to spojeni funkcni...
Pravda existuji naznaky, ze to jde i jinak a lepe - ve Win95 preci je
sledovac pripojeni, ktery vyhazuje okenka typu spojeni se rozpadlo, atd.
Ovsem to je dilo Microsoftu a je docela mozne ze se o nejakou zajimavou
vlastnost RASu nedokazal s ostatnim svetem podelit.
Taky nejak nemuzu pochopit, ze oficialne neexistuje notification pres
message nebo lepe pres hook o zmenach ve stavu linek...
Zdravi
D. Toman
> CMOS
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 11.9.1998 06:46:44
Posli taky na Marian.Morzol(zv)ostrava.aksignal(tec)cz
Diky
> -----P�vodn� zpr�va-----
> Od: Ales Bukovsky [SMTP:elidisp(zv)mbox.vol(tec)cz]
> Odesl�no: 10. z��� 1998 15:09
> Komu: DELPHI Distribution List
> P�edm�t: Re: CMOS
>
> Trochu jsem to popletl, ten programek sice olizne cmosku, ale uz ji
> dal
> nepitva a celou ji frkne do filu... :(
>
> NICMENE! Mam tady dosovsky TechHelp, kde je (mimo jine) velice
> podrobny
> popis struktury CMOS (4 tiskove strany). Nechce se mi to opisovat, ale
> poslu to kazdemu zajemci (ma to 230K, takze to nechci posilat sem do
> konference). Kdo mate zajem ozvete se!!!
>
> Cteni z CMOS:
> OUT 70H,addr
> IN 71H
>
> Zapis do CMOS:
> OUT 70H,addr
> OUT 71H
>
> kde addr je adresa prisluneho zaznamu struktury (viz. zmineny
> TEchHelp).
>
> -Ales-
Pad programu
[*] Mirun <forcom(zv)telecom(tec)cz> - 11.9.1998 06:51:06
>Ahoj,
>m�m podobn� probl�m. Pokou��m se nal�zt chybu v programu, kter�
pou��v�
>RXLib a Orpheus knihovnu (je v Delphi 1). Po ukon�en� programu (tj a�
pro
>proveden� Destroy hlavn�ho formul��e) mi v�dy hl�s� GPF a uk�e
adresu na
>stejn� m�sto. A nev�m si rady.
>Jaro Bene�
>JBenes(zv)cpoj(tec)cz
Pokud pouzivas vice formularu, a odvolavas se z jednoho do druheho,
tak se ti muze stat, ze pri skonceni programu je jeden formular uz
Destroy, ale jiny se na nej stale jeste odvolava, a dojde samozrejme
ke GPF.
Projdi si zdrojak, a skus se nad tim zamyslet.
Trivialni pripad :
Skus si dat na MainForm Timer,nastav active na False, nastav kratky
interval a v udalosti OnTimer se odvolavej na jiny formular, v jehoz
OnCreate spust Timer a v zadnem pripade Timer nikde nevypinej. Myslim
ze by melo dojit ke GPF pri zavreni MainFormu. (prosim Vas, k tomuhle
zadny komentare...)
Asi to nebude v tvem programu takhle trivialni, ale jako ukazka by ti
to mohlo pomoci...
Vavrin Miroslav
------------------------------------------------------------
<forcom(zv)telecom(tec)cz>
<http://web.telecom(tec)cz/forcom>
Internet
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.9.1998 06:52:48
Dobre rano,
zjisteni dialup potrebuji take, pro posilani E-mailu pouzivam
vyvolani shell api funkci k zavolani postovniho clienta viz nasledujici
priklad:
if ShellExecute(0, 'open', 'mailto:micrel(zv)micrel(tec)cz', '', '', SW_SHOWNORMAL)
<= 32 then
ShowMessage('Nemohu spustit mail client, patrn� nepracuje spr�vn� v
syst�mu.');
J. Benes micrel(zv)micrel(tec)cz
> -----P�vodn� zpr�va-----
> Od: ikino(zv)pobox.sk [SMTP:ikino(zv)pobox.sk]
> Odesl�no: 11. z��� 1998 6:16
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Internet
>
> Zdar,
>
> neviete mi poradit, ako z programu zistim, ci sa pocitac pripojil (z ineho
> programu) na internet cez dialup? Nieco ako net watcher.
>
> A dalej, ako jednoducho napr. cez winsock.dll poslem e-mail.
>
> IKO
> ikino(zv)pobox.sk
>
> --
>
>
> ____________________________________
> P. S. V. P. U.
> http://www.pobox.sk/Pad programu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.9.1998 07:05:13
Ahoj,
v mem programu je asi 50 formularu a ke vsem, krome hlavniho,
pristupuji, jako by byly v DLL tj. jsou obaleny v Execute procedure, ve
ktere je jak Create tak Free formulare a vyvolavani parametru je prisne pres
hlavicku procedury. Tim padem neni primy vliv na hlavni formular a presto se
na me sklebi GPF a ja nepoznam, jestli mi ukradl nejake zdroje.
J. Benes JBenes(zv)cpoj(tec)cz
> -----P�vodn� zpr�va-----
> Od: Mirun [SMTP:forcom(zv)telecom(tec)cz]
> Odesl�no: 11. z��� 1998 6:51
> Komu: DELPHI Distribution List
> P�edm�t: Re: Pad programu
>
> >Ahoj,
> >m�m podobn� probl�m. Pokou��m se nal�zt chybu v programu, kter�
> pou��v�
> >RXLib a Orpheus knihovnu (je v Delphi 1). Po ukon�en� programu (tj a�
> pro
> >proveden� Destroy hlavn�ho formul��e) mi v�dy hl�s� GPF a uk�e
> adresu na
> >stejn� m�sto. A nev�m si rady.
>
> >Jaro Bene�
>
> >JBenes(zv)cpoj(tec)cz
>
> Pokud pouzivas vice formularu, a odvolavas se z jednoho do druheho,
> tak se ti muze stat, ze pri skonceni programu je jeden formular uz
> Destroy, ale jiny se na nej stale jeste odvolava, a dojde samozrejme
> ke GPF.
> Projdi si zdrojak, a skus se nad tim zamyslet.
> Trivialni pripad :
> Skus si dat na MainForm Timer,nastav active na False, nastav kratky
> interval a v udalosti OnTimer se odvolavej na jiny formular, v jehoz
> OnCreate spust Timer a v zadnem pripade Timer nikde nevypinej. Myslim
> ze by melo dojit ke GPF pri zavreni MainFormu. (prosim Vas, k tomuhle
> zadny komentare...)
> Asi to nebude v tvem programu takhle trivialni, ale jako ukazka by ti
> to mohlo pomoci...
>
> Vavrin Miroslav
> ------------------------------------------------------------
> <forcom(zv)telecom(tec)cz>
> <http://web.telecom(tec)cz/forcom>
> Encryptace data
[*] Jan Nov�k���r����n�?��? - 11.9.1998 07:16:17
Nevim kdo mel komu podekovat , ale ja jsem nic nedostal
primou postou. Pokud doslo k poslani na chybnou adresu
predme dekuji jestli mi neco prijde. Pokud se mne to netika ,
tal presto dekuji vsem , kteri mi poradili.
Jan Novak
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 5:09
P�edm�t: RE: Encryptace data
> No, dovolil bych si nesouhlasit, pouzivame Informix-OnLine 7.14, coz je =
> zcela nepochybne naprosto "normalni" SQL server. Bezi na AIX-u, kde ma =
> vymezenou jistou oblast, kam si uklada data, jiste vite, jak to funguje. =
> K datum se pomoci prostredku OS dostat neda, ale pokud nekdo napise =
> aplikaci, ketra si na tomto SQL Serveru udela databazi, tabulky a do =
> nich ulozi nejaka sva data, pres klasicky nastroj DBACCESS (myslim, ze =
> na MS SQL je to Enterprice Manager) se do teto databaze dostane =
> prinejmensim spravce serveru, takze data v ramci SQL kodovana nejsou !=20
Pokud ma tabulka nastavena prava, ze tam muze pracovat PETR a PAVEL,
pak se tam nikdo jiny nedostane. Aspon u normalnich SQL serveru to
tak je. Administrator samozrejme muze vsude, pokud si to sam
nezakaze, nicmene administrator je snad spolehlivy clovek... Pokus
ne, pak nema co delat na pozici administratora.
> >No a ja jsem ti RSA snad vysvetlil spatne?
>
> To bylo spis pro toho cloveka, co chtel informace o MD5.
> Doufam, ze jsi se neurazil :-), ale schanim dalsi a dalsi,
> informace. Konkretni priklad, (kde bude P=3D1021, Q=3D23, ...)
> metody lusteni, ...
Ja jsem se neurazil, pozadal jsi me o konkretni vysvetleni
kodovani RSA, tak jsem si s tim dal praci a pul hodiny jsem
ti to popisoval do mailu, no a ty ses pak ani neobtezoval
mi rici "dostal jsem to", kdyz uz jsi nepodekoval. Ne ze
bych byl nejak zvlast citlivy na dekovani. Ale mam holt
zakoreneno, ze kdyz se na nekoho obratim s nejakou zadosti
primym mailem a on mi odpovi, aspon podekuji, ze mi venoval
svuj cas, ktereho ma urcite malo, prestoze se na me mohl
take vykaslat... A propos, kdybys byl byval racil odepsat,
treba i malinko podekoval a pozadal me o konkretni priklad,
tedy kus programu (kdyz uz tak vehementne shanis dalsi
a dalsi informace), byl bych ti ho byval poslal.
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 ===
==============================================================
Ales Bukovsky - TechHelp
[*] Jaroslav Weiss <svitap(zv)svitap(tec)cz> - 11.9.1998 07:19:54
|NICMENE! Mam tady dosovsky TechHelp, kde je (mimo jine) velice podrobny
|popis struktury CMOS (4 tiskove strany). Nechce se mi to opisovat, ale
|poslu to kazdemu zajemci (ma to 230K, takze to nechci posilat sem do
|konference). Kdo mate zajem ozvete se!!!
kde addr je adresa prisluneho zaznamu struktury (viz. zmineny TEchHelp).
|
|-Ales-
Prosim, muzes mi poslat cely ten TechHelp. Budu ti nesmirne zauzlovan.
JWeiss
svitap(zv)svitap(tec)cz
PS: To master: sorry za off topic. JW
Problemy s QuickReportem
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 11.9.1998 07:20:07
> Problem je nasledujici : jak vypnout tisk detailu, aby se scital
> GroupFoother (nastaveni vysky na 0 a barvy pisma na bilou se mi moc
nezda)
Nazdar,
skus pre DetailBand nastavit v evente BeforePrint parameter PrintBand na
False;
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Pozice PopupMenu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 11.9.1998 07:38:48
-----Puvodni zprava-----
Od: Mor?ol Marian
Odeslano: 10. zaoi 1998 10:21
Komu: 'delphi(zv)pinknet(tec)cz'
Poedmit: Pozice PopupMenu
Poradi nekdo jak se daji zjistit souradnice PopupMenu, tj. ty na kterych
bude PopupMenu zobrazeno funkci Popup(X,Y) ?
Diky.
Marian.Morzol(zv)ostrava.aksignal(tec)cz
[Petr Brant]
Podle manualu by to melo byt na souradnicich [X; Y], ale je treba pocitat s
tim, ze to jsou absolutni souradnice, tj. vztahujici se k plose desktopu.
Pokud potrebujes menu na urcitem miste, musis pripocitat jeste Top a Left
prislusneho formu.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Pad programu
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 11.9.1998 07:52:45
zdravim,
ak ti ide len o ErrorLog, ja podobne veci robim tak, ze
osetrim Application.OnException event
//ukazka z helpu
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
//zapis do suboru logov...atd.
//Append(LogFile); //otvorime si ho
//writeln(LogFile, datum, cas, E.Message ....);
//closefile(LogFile); //aby sa zmeny okamzite zapisali
end;
takze tak
Honza Fiala wrote:
> Cao,
> no me zase zajima k cemu mi je hlaska typu Access violation at adress xxxx
> ? Da se z toho vubec neco vycist? Ovsem ja to potrebuji pro zapis do
> nejakeho souboru, abych vedel kde, kdy a jaka nastala chyba. V podstate mi
> jde o nejaky errorlog.
>
--
Maj sa,
R.
Screen saver.
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 11.9.1998 08:00:23
-----Puvodni zprava-----
Od: madr(zv)telecom(tec)cz
Odeslano: 10. zaoi 1998 10:07
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Screen saver.
Zdravim vsechny.
Nevite prosim nekdo, jestli jde (a jak) z delphi zavolat screen saver,
ktery je prave nastaveny ve vlastnostech obrazovky?
Diky, Michal Madr.
[Petr Brant]
Spusteni je jednoduche:
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('c:\windows\trf102.scr /s',SW_SHOW);
^^^ parametr /s znamena spusteni, /c je konfigurovani
end;
V SYSTEM.INI v sekci [boot] v klici SCRNSAVE.EXE ma system zapsano, ktery
screensaver se pouziva. V registrech jsem vsak tento zapis nenasel.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
PopupMenu
[*] V�t�zslav Gazda������u��n�?��? - 11.9.1998 08:00:59
while PopupMenu1.Items.Count > 0 do PopupMenu1.Items.Delete(0);
Vita
Nahrazeni prikazu D1 na D3
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 11.9.1998 08:02:59
Ahoj
tohle jsem nasel v "Delphi VCL Extensions (RX) demo program" v
ABOUT.PAS
procedure TAboutDialog.UpdateMemoryInfo;
{$IFDEF WIN32}
var
MemStatus: TMemoryStatus;
{$ENDIF}
begin
{$IFDEF WIN32}
MemStatus.dwLength := SizeOf(TMemoryStatus);
GlobalMemoryStatus(MemStatus);
FMemSize.Caption := Format(sFreeMemory, [FormatFloat(',0.##',
MemStatus.dwTotalPhys / 1024.0)]);
FPercent.Caption := Format('%d %%', [MemStatus.dwMemoryLoad]);
{$ELSE}
FMemSize.Caption := Format(sFreeMemory, [FormatFloat(',0.##',
GetFreeSpace(0) / 1024.0)]);
FPercent.Caption := Format('%d %%',
[GetFreeSystemResources(GFSR_SYSTEMRESOURCES)]);
{$ENDIF}
end;
M.
-----P�vodn� zpr�va-----
Od: Bardon <INEQSW(zv)ova.pvtnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 10. z��� 1998 22:01
P�edm�t: RE: Nahrazeni prikazu D1 na D3
Ve WIN 95 existuje rsrc32.dll, kde je 32 bit interface na n�e uveden�
funkce - jmenuje se _MyGetFreeSystemResources32(zv)4. Ve WIN NT neexistuje.
Podle helpu ji m� nahrazovat funkce GlobalMemoryStatus, ale a� jsem se
sna�il sebev�ce, nepochopil jsem jak to je. Pokud n�kdo v�, co doopravdy
nahrazuje uveden� funkce pod NT, sem s t�m.
-----P�vodn� zpr�va-----
Od: Nosek Libor [SMTP:nosek(zv)ujf.cas(tec)cz]
Odesl�no: 10. z��� 1998 10:04
Komu: Distribu�n� list DELPHI (el. adresa)
P�edm�t: Nahrazeni prikazu D1 na D3
Dobry den
Nevite nekdo jakymi procedurami v D3 se nahradi tyto procedury y D1
GetFreeSystemResources(GFSR_GDIResources);
GetFreeSystemResources(GFSR_SystemResources);
GetFreeSystemResources(GFSR_UserResources);
Diky
Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68
tel: 66173163
fax: 6857003
nosek(zv)ujf.cas(tec)cz
Pad programu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 11.9.1998 08:05:46
-----Puvodni zprava-----
Od: Honza Fiala
Odeslano: 10. zaoi 1998 10:43
Komu: DELPHI Distribution List
Poedmit: Pad programu
Cao All,
chtel bych se zeptat, jestli v Delphi existuje nejaky event, ktery dokaze
odchytit pad programu.
Dik
Fala
fala(zv)imc(tec)cz
http://www.sws(tec)cz/fs.htm
[Petr Brant]
Rekl bych, ze spise ne, protoze kdyz program padne, tak se nedostane uz ani
na tu instrukci, ktera ma v pripade padu neco udelat. Da se to sledovat
jedine z vnejsku, jako to dela Norton CrashGuard z Norton Utilities. Ale
JAK to dela, to bohuzel netusim.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************<none>
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 11.9.1998 08:09:12
Pratele, sousede, bratri v Delphi !
Je tu udalost, na kterou jste urcite vsichni netrpelive cekali.
Ano, prave otvirame novou stranku Delphi kuchyne� na adrese
http://kuchyn.delphi(tec)cz.
Najdete tam vse co jste se kdy bali naprogramovat a jako novinku na
privitanou odtajnil jsem archivy a prihodil komponentku pro praci
s OpenGL (D2 a vyse :-(
Takze stahujte, mailujte a jinak kulturne zijte s nasi novou Delphi kuchyni.
Na zaver chci podekovat Tomasi Burgerovi za pomoc a firme MIUS za
poskytnuti "dobreho" jmena a prostoru.
!!! Prave otvirame !!!
Martin Nedopil
kuchyn(zv)delphi(tec)cz
Delphi kuchyn�: http://kuchyn.delphi(tec)cz
P.S. Vildovi Svobodovi - ja sice hraju ForeHelp, ale fandim ti ... jen houst
a vetsi kapky.Kompatibilita D4->D3
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 11.9.1998 08:12:52
Ahoj vsichni,
po nejake dobe mam zase dotaz. Mozna budu mit v praci D4, ale doma mam D3.
Kdyz udelam v praci neco pod D4, budu to moci doma upravovat pod D3
(vzhledem k verzim "standard" se nepredpokladaji zadne C/S aplikace.
Predpokladaji se standardni aplikace a navic i patrne bez databazi)?
Diky za vsechny odpovedi.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************AllocateHWND, GetWindowLong, Thead, Timer, AktaX .
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.9.1998 08:12:41
Hi,
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: Richard Willmann [SMTP:sales(zv)nocomment.sk]
> Odesl�no: 10. z��� 1998 9:09
> Komu: DELPHI Distribution List
> P�edm�t: AllocateHWND, GetWindowLong, Thead, Timer, AktaX ...
>
> Ahoj,
>
> cital som si zdrojovy text k TTrayIcon z RXLIB a narazil som na
> niekolko
> malych otazok:
>
> * co robi AllocateHWND?
> (HWND ziskay uvedenou funkciou je predany ako handle okna)
[Martin Fron�k] ?
> * co robi GetWindowLong ?
> (vysvetlenie WIN32API je pomerne strohe)
[Martin Fron�k] Jine ani byt nemuze, GetWindowLong je funkce,
ktera proste precte LONG ze struktury okna, co ale cte zalezi na jejich
parametrech
> * preco sa pouziva pre napr. systematicke vykreslovanie niecoho Thread
> a nie
> Timer...
> (to plati aj pre seriovu komunikaciu, podobne som sa stretol s tym, ze
> pre
> 16bit wokna je
> vzdy pouzity Timer)
[Martin Fron�k] Je to jednodussi a v 16-bit to nejde, protoze
tam zadny thread neni...
> ak si niekto najde chvilku ...
>
> dakujem
>
>
> Richard
Form
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 11.9.1998 08:12:17
> v aplikaci generuji formular z externiho souboru. Tech souboru je vic a
> v kazdem je definice nekolika ruznych objektu v tom formulari (napr.
> TLabel, TEdit, TListBox). V aplikaci jej tedy vygeneruji, pak SHOWMODAL,
> ALE! Jak zajistit "sber" udaju po vyplneni poli a nastaveni hodnot
> (napr. v listboxech) po stisku tlacitka OK?
Nazdar,
Ak som spravne pochopil Tvoju otazku, tak by som to robil asi takto:
Prechadzal by som componenty na forme a podla typu componenty ich
spracovaval
i:=Form1.ComponentCount;
while i>0 do
begin
dec(i);
if Form1.Components[i] is TEdit then ...
if Form1.Components[i] is TListBox then ...
...
end;
Este pri vytvarani componenty, ktora reprezentuje objekt(parameter) v
subore,
by som pre spravne priradenie hodnoty parametru dal do jej Tag-u cislo
parametra,
alebo do Name, pripadne Caption, meno parametra.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
DBF komponenta bez BDE
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.9.1998 08:14:09
Jedna takova ja na DSP, ale ta vykazuje chyby, pokud naplnis cely field - muzu poslat. Treba chybu najdes a opravis a muzes mi to pak poslat zpatky :-)
Sveho casu jsem to hledal, ale nic kloudneho jsem nenasel, tedy-ne DBF, ale nasel jsem
-BinaryDataSet (Copyright (C) 1998 by Steven R. Kamradt (skamradt(zv)mediaone.net)) bohuzel, uz nevim kde ale taky muzu poslat
-take mam jednu od pana Petra Vonese
D.
----------
Od: Petr Hronek[SMTP:trit(zv)cbnet(tec)cz]
Odesl�no: 10. z��� 1998 13:58
Komu: delphi distribution list
P�edm�t: DBF komponenta bez BDE
Je to ji� n�jak� �as, co tu o tom prob�hla informace. Pros�m kdo by jste o n��em takov�m v�d�l ev. n�co takov�ho m�l (FREE) dejte mi info pop�. m��ete poslat na
Petr Hronek
trit(zv)cbnet(tec)cz
Pad programu
[*] Petr Kundrata <pksoft(zv)iol(tec)cz> - 11.9.1998 08:16:39
> Cao,
>
> no me zase zajima k cemu mi je hlaska typu Access violation at adress xxxx
> ? Da se z toho vubec neco vycist? Ovsem ja to potrebuji pro zapis do
> nejakeho souboru, abych vedel kde, kdy a jaka nastala chyba. V podstate mi
> jde o nejaky errorlog.
>
> Fala
> fala(zv)imc(tec)cz
> http://www.sws(tec)cz/fs.htm
> Ahoj,
> m�m podobn� probl�m. Pokou��m se nal�zt chybu v programu, kter� pou��v�
> RXLib a Orpheus knihovnu (je v Delphi 1). Po ukon�en� programu (tj a� pro
> proveden� Destroy hlavn�ho formul��e) mi v�dy hl�s� GPF a uk�e adresu na
> stejn� m�sto. A nev�m si rady.
>
> Jaro Bene�
>
> JBenes(zv)cpoj(tec)cz
>
Ahoj,
m�m zpusob jak analyzovat adresu typu "Access violation at
adress xxxx". Nasledujici funkce zpracuje ErrorAddr a
prohleda .map soubor programu a pokud vse vyjde, tak
nalezne unit,radek a funkci ve ktere doslo k chybe.
Pro pouziti s Delphi 1 to bude potrebovat upravit (16 bitove
adresy), ale zakladni myslenka by mohla fungovat. Doporucuji
prohlednout MAP file.
Nezapomente zapnout Project/Options/Map file/Detailed.
function FindError : string;
label Closing;
var MapFilename : string;
F : text;
line : string;
ErrorBaseMap : integer;
// adresa referencni procedury SysGetMem z Map souboru
ErrorTestMap : integer; // aktualni adresa v map souboru
FindErrorMap : integer;
// adresa chyby prevedena do adresoveho prostoru map souboru
err : integer; // chybovy kod konverze Val()
ModuleName : string; // hledany Unit
ProcedureName : string; // hledana procedura
i : integer;
FalseHit : boolean; // pro preskoceni jednoho radku
begin
Result := '$'+IntToHex(Integer(ErrorAddr),8);
if ErrorAddr = nil then exit;
MapFilename := ChangeFileExt(ParamStr(0),'.map');
Assign(F,MapFilename);
{$i-}
Reset(F);
if IOResult <> 0 then exit;
{$i+}
FalseHit := true;
// nalezeni sekce Publics by Value
ProcedureName := '';
repeat
if Eof(F) then goto Closing;
readln(F,line);
until Copy(line,1,34) = ' Address Publics by Value';
readln(F,line);
FindErrorMap := $7FFFFFFF;
repeat
readln(F,line);
if line = '' then break;
// Hledam SysGetMem - jedna z prvnich procedur
if Copy(line,22,255) = 'SysGetMem' then begin
Val('$'+Copy(line,7,8),ErrorBaseMap,err);
if err > 0 then goto Closing;
FindErrorMap := ErrorBaseMap + integer(ErrorAddr) -
integer((zv)SysGetMem);
Result := '$'+IntToHex(FindErrorMap,8);
end;
// Preskoceni Segment jiny nez 0001
if Copy(line,2,4) <> '0001' then continue;
Val('$'+Copy(line,7,8),ErrorTestMap,err);
if err > 0 then break;
if ErrorTestMap > FindErrorMap then break;
ProcedureName := Copy(line,22,255);
until Eof(f);
Result := ProcedureName+':$'+IntToHex(FindErrorMap,8);
// nalezeni cisla radku
repeat
repeat
if Eof(F) then goto Closing;
readln(F,line);
until Copy(line,1,16) = 'Line numbers for';
i := Pos('(',line)+1;
ModuleName := Copy(line,i,Pos(')',line)-i);
readln(F,line); // empty
while not Eof(f) do begin
readln(F,line);
if line = '' then break;
for i := 0 to 3 do begin // 4 radky na line
Val('$'+Copy(line,i*20+13,8),ErrorTestMap,err);
if err > 0 then break;
if ErrorTestMap > FindErrorMap then begin
if not FalseHit then
Result := ModuleName+ ':'+Copy(line,i*20+1,6)+
'('+ProcedureName+')';
goto Closing;
end else FalseHit := false;
end;
end;
until Eof(f);
Closing:
Close(F);
end;HELP --- HELP
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.9.1998 08:18:55
Hi,
casu mame kazdy malo, ale penez jeste mene, takze si nemuzeme komponenty
KUPOVAT, je lepe chvilku hledat FREE komponentu, ktera bude umet to, co
pozadujeme, pripadne trochu upravit.....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 10. z��� 1998 12:38
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: HELP --- HELP
>
Petr Provazn=A1k wrote:
> prosim o radu ... marne se snazim nacist data s externiho zarizeni
pres
> seriovy port (COM2) ... Mam nejakou komponentu QCComm32, ale nejak
jsem
> nedosel k prijatelnemu reseni ...
Je to stale dokola. Porad se tu toci dotazy, jak se dorozumet se=20
seriovym portem, ale vyzkouset AsyncPro se chce malokomu.=20
Copak ma kazdy tolik casu, aby se slozite prohrabaval vecmi jiz=20
vyresenymi?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
> TRichEdit a wm_Paste nefunguje
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 11.9.1998 08:38:02
Omlouv�m se, n�jak se mi to popletlo. Existuje EM PASTESPECIAL, kter� je deklarov�na v unitu richedit. Jinak mi funguje spr�vn� zd�d�n� metoda PasteFromClipboard. WM PASTE vyzkou��m, bude-li trocha �asu.
-----P�vodn� zpr�va-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odesl�no: 11. z��� 1998 8:08
Komu: DELPHI Distribution List
P�edm�t: RE: TRichEdit a wm Paste nefunguje
<<Soubor: ATT00003.txt; charset = windows-1250>>
Internet (poslani posty)
[*] Jan Fiala <fiala(zv)iname(tec)com> - 11.9.1998 09:00:10
Priklad na poslani posty pres MAPI
Otevre se ti dialogove okno postovniho klienta na poslani posty. samozrejme by to slo udelat, aby posta primo odesla bez dialogu (viz funkci MapiSendMail)
Pro odeslani posty je nutne, pokud nepouzivas Exchange nastavit napr. u Outlooku, ze ma byt vychozi klient pro MAPI
Uses ......, Mapi;
procedure TfrmAbout.SendMailClick(Sender: TObject);
var
MapiMessage: TMapiMessage;
Originator : TMapiRecipDesc;
begin
With Originator Do Begin
ulReserved := 0;
ulRecipClass := Mapi To;
lpszName := 'Jmeno komu to ma prijit';
lpszAddress := 'SMTP:majlikova(zv)adresa';
ulEIDSize := 0;
lpEntryID := nil;
End;
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := 'Tady se muze prednastavit subject';
lpszNoteText := nil;
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount :=1;
lpRecips := (zv)Originator;
nFileCount := 0;
lpFiles := nil;
end;
If 0 <> MapiSendMail(0, 0, MapiMessage,
MAPI DIALOG or MAPI LOGON UI or MAPI NEW SESSION, 0)
then Begin
MessageBeep(mb IconHand);
MessageDlg('Nepoda�ilo se poslat zpr�vu elektronickou po�tou.' + #13#13 +
'Pokud pou��v�te Outlook expres, zkontrolujte, zda je nastaven'
+ ' jako v�choz� klient MAPI.' , mtError, [mbOK], 0);
End;
end;
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: Ivan Zatka <ikino(zv)pobox.sk>
neviete mi poradit, ako z programu zistim, ci sa pocitac pripojil (z ineho programu) na internet cez dialup? Nieco ako net watcher.
A dalej, ako jednoducho napr. cez winsock.dll poslem e-mail.
IKO
ikino(zv)pobox.sk
--
P. S. V. P. U.
http://www.pobox.sk/Dotaz na BLOB
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 11.9.1998 09:01:57
Doporucil bych help k polozce TBLOBField a pruzkum metod LoadFromFile,
LoadFromStream. Myslim, ze pak se mnohe vyjasni...
> -----P�vodn� zpr�va-----
> Od: David_Zabensky.UNION(zv)union(tec)cz
> Odesl�no: 10. z��� 1998 10:01
> Komu: DELPHI Distribution List
> P�edm�t: Dotaz na BLOB
>
> Ahoj vsichni,
>
> mam takovy maly dotaz - zacinam si hrat s databazema a potreboval
> bych do
> BLOB pole ulozit graficky stream. Poradte mi prosim jak na to. Neco
> takoveho jako
>
> Fields[0].AsString:= ....
>
> pro grafiku neexistuje.
>
> Dekuji za vsechny odpovedi, David;SQL Server na CD-ROM
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 11.9.1998 09:04:10
Pr� ano. J� to neum�m, ale jeden m�j kolega tvrd�, �e to um�. (MS SQL Server)
-----P�vodn� zpr�va-----
Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
Odesl�no: 11. z��� 1998 8:17
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: SQL Server na CD-ROM
Ahoj,
lze nejak zaridit, aby nejaky SQL Server pracoval,
pokud je databaze ulouena na CD-ROM, tedy chranena
proti zapisu? Asi ne, co?
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 ===
==============================================================
Internet
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 09:07:26
> A dalej, ako jednoducho napr. cez winsock.dll poslem e-mail.
Pomoci protokolu SMTP, tedy navazat spojeni s postovnim
serverem na danem portu a poslat tam tu zpravu.
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 ===
==============================================================Encryptace data
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 09:07:26
> Nevim kdo mel komu podekovat , ale ja jsem nic nedostal
> primou postou. Pokud doslo k poslani na chybnou adresu
> predme dekuji jestli mi neco prijde. Pokud se mne to netika ,
> tal presto dekuji vsem , kteri mi poradili.
Ale ne, to byl jen malinky dodatek pro kolegu Maleho,
on se na me obratil primo mimo konferenci s dotazem
na popis kodovani RSA, ktere jsem mu posilal.
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 ===
==============================================================JPEG do BLOB
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 11.9.1998 09:08:12
Doporucil bych help k polozce TBLOBField a pruzkum metod LoadFromFile,
LoadFromStream. Myslim, ze pak se mnohe vyjasni...
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Libor Junek
> Odesl�no: 10. z��� 1998 14:05
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: JPEG do BLOB
>
> Muzete mi nekdo poradit jak v D4 priradit do pole typu BLOB obrazek
> JPEG?
> Zkou�el jsem to pres DBImage a funkci Assign, ale umi to ulozit
> pouze BMP.
> �
> Libor Junek
> libor(zv)thsoft(tec)cz <mailto:libor(zv)thsoft(tec)cz>Splash screen
[*] Jan Fiala <fiala(zv)iname(tec)com> - 11.9.1998 09:10:46
Pred nedavnem tu probehla debata na tema uvodni obrazovky.
Nebudu tu opakovat, jak ji zobrazit (kod v hlavnim projektu).
Pokud chcete, aby byl na obrazovce jen splash screen (a ne pod nim hlavni formular), dokud se neprovede cela inicializace, staci nastavit Visible u hlavniho formulare na False a Visible:=True mu dat az na konci create posledniho formulare, ktery se automaticky vytvari (zmizi splash screen a objevi se hlavni formular).
Docela efektni je pruhledny splash screen, kdy je videt jen Image a nejake labely. Dosahnete toho, kdyz do create splash screenu napisete :
Brush.Style := bsClear;
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
AllocateHWND, GetWindowLong, Thead, Timer, AktaX .
[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 11.9.1998 09:14:50
>cital som si zdrojovy text k TTrayIcon z RXLIB a narazil som na niekolko
>malych otazok:
>
>* co robi AllocateHWND?
>(HWND ziskay uvedenou funkciou je predany ako handle okna)
viz. help - vytvori neviditelne okno a vrati jeho handler. Pouziva se pro
zaklad nevisualnich komponent s prijmem udalosti
>* co robi GetWindowLong ?
>(vysvetlenie WIN32API je pomerne strohe)
je to Ceckova zalezitost, souvisi s funkci SetWindowLong, ktera muze menit
atributy okna, vetsinou se poziva pro nastaveni uzivatelskych dat (32b)
napr.
nejake parametry, ukazatel na strukturu,data..GetWindowLong cte tyto udaje.>* preco sa pouziva pre napr. systematicke vykreslovanie niecoho Thread a
nie
>Timer...
>(to plati aj pre seriovu komunikaciu, podobne som sa stretol s tym, ze pre
>16bit wokna je
>vzdy pouzity Timer)
16b Win nemely vicevlaknovou technologii.
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz
Dotaz na BLOB
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 11.9.1998 09:16:31
Z�le�� na tom, co bude zdrojem grafick�ch dat. Bude-li ti TDbImage, nepotrebujes nic, jen to pripojis na Field, popripade vyuzijes metodu LoadPicture pri natahovani obrazku.
Bude-li to jiny zdroj, pak to pujde pres stream - ukazka je z OleContaineru:
var
LStream: TBlobStream ;
begin
if Table1.Active then
if OleContainre1.State in [osEmpty] then
begin
Table1BLOB.Clear ; // Table1BLOB vytvorena field editorem
end
else
begin
LStream := TBlobStream.Create(Table1BLOB, bmReadWrite) ;
try
OleContainer1.SaveToStream( LStream ) ;
finally
LStream.Free ;
end ;
end ;
end ;
Jestli se ti to nelibi, muzes si to ohnout do nove property AsBlob. Neco analogickeho se da videt v sestavach firmy Sinea - primo v unitu Sestavy.pas, tusim tam maji neco jako AsEditor, nebo tak nejak.
-----P�vodn� zpr�va-----
Od: David Zabensky.UNION(zv)union(tec)cz [SMTP:David Zabensky.UNION(zv)union(tec)cz]
Odesl�no: 11. z��� 1998 8:06
Komu: DELPHI Distribution List
P�edm�t: Dotaz na BLOB
Ahoj vsichni,
mam takovy maly dotaz - zacinam si hrat s databazema a potreboval bych do
BLOB pole ulozit graficky stream. Poradte mi prosim jak na to. Neco
takoveho jako
Fields[0].AsString:= ....
pro grafiku neexistuje.
Dekuji za vsechny odpovedi, David;Zatuhnuti debuggeru
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 11.9.1998 09:18:16
> Hi,
>
> netusite nekdo, proc mi vytuhne pri debuggerovani debugger ?
> Jdu F8 po zdrojaku a najednou stojim a nicim to nemuzu rozhybat.
>
> Vasek
>
Kterou verzi pouzivas? Ja pouzivam D3 a delalo mi to podobne. A co
delalo pravidelne bylo totalni zatuhnuti delphi pri zastaveni
programu na breakpointu.
Pak jsem nahodou zjistil ze pomuze kdyz pred spustenim delphi ukoncim
nejaky program pres Ctrl-Alt-Del, a v takovem tom pseudo task
manageru dam ukoncit ukol. Delam to vetsinou s Kosem. Pak delphi
netuhnou.
Cau Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Screen saver.
[*] Jan Fiala <fiala(zv)iname(tec)com> - 11.9.1998 09:20:24
V registrech je screen saver pod
HKey Current User\Control Panel\Desktop
ScreeenSaverActive "0" nebo "1"
ScreenSaverIsSecure "0" nebo "1"
ScreenSaverTimeOut pocet sekund
ScrnSave.EXE SCR soubor s celou cestou
S pozdravem "klid zbran�m a program�torum"
se te�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
V registrech jsem vsak tento zapis nenasel.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
SQL Server na CD-ROM
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 11.9.1998 09:21:17
Ahoj,
tak jsem to zkoumal pro svuj oblibeny Oracle a v helpu je primo postup jak
takovou databzi, respektive jeji cast na obecne WORM mediu. Takze to jde,
jestli i pro neco jineho to nevim, ale rekl bych, ze podobna moznost bude u
vsech vetsich serveru.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik
> Odesl�no: 11. z��� 1998 1:56
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: SQL Server na CD-ROM
>
> Ahoj,
>
> lze nejak zaridit, aby nejaky SQL Server pracoval,
> pokud je databaze ulouena na CD-ROM, tedy chranena
> proti zapisu? Asi ne, co?
>
> 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 ===
> ==============================================================Encryptace data
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.9.1998 09:23:09
Ahoj,
>Administrator samozrejme muze vsude, pokud si to sam
>nezakaze, nicmene administrator je snad spolehlivy clovek... Pokud
>ne, pak nema co delat na pozici administratora.
Kdyz to je tezky, no, v jednom mailu pises, ze heslo nema vedet
ani administrator (s tim souhlasim), potom pises, ze kazdy normalni
SQL server sva data koduje (s tim nesouhlasim) a ted doufas, ze
je administrator spolehlivy. Ale ja, kdybych mel napsat nejakou
apliakci, a chtel mit nejaka jeji citliva data v bezpeci, na to
spolehat nebudu. >Ja jsem se neurazil, pozadal jsi me o konkretni vysvetleni
>kodovani RSA, tak jsem si s tim dal praci a pul hodiny jsem
>ti to popisoval do mailu,
Doufam, ze se neurazis, nevim, jestli to napisu, tak jak chci,
aby jsi to pochopil, byl jsem samozrejme rad, ze jsi mi to posalal,
nicmene tam nebyly popsany vsechny podminky, pro spravnou funkci,
nechtel jsem Te dale obtezovat. Te pulhodiny si vazim a jsem rad,
ze jsi mi ji venoval.
>no a ty ses pak ani neobtezoval mi rici "dostal jsem to",
Tak tedy ano, dostal jsem to. Promin.
( ted si delam legraci : A znovu to dostanu za 28 dni :-) )>kdyz uz jsi nepodekoval. Ne ze bych byl nejak zvlast citlivy
>na dekovani....
Vetsinou pisu "Mohl by jste mi poslat ...... . {predem}Diky "
a tam uz to podekovani je a tim usetrim jeden mail.
Jsem na pevne lince, takze me jeden mail navic (ani 5MB) nevytrhne,
ale mam pochopeni pro dialup-isty, navic v obchodni koresponcenci,
kdy napriklad zadame (dopisem pozemni postou) o opravu toho ci onoho
pisu "Zadame Vas o to a to. Dekuji" a kdyz nam to poslou opraveny,
uz jim taky znovu nepisu.
Mail, ktery jsem psal jsem smazal, takze se nemuzu presvedcit, ale
je ovsem mozne, ze jsem to tam proste nenapsal. Neni to ovsem
zpusobeno spatnym vychovanim, takze se omlouvam a dodatecne dekuji.
>A propos, kdybys byl byval racil odepsat,
>treba i malinko podekoval a pozadal me o konkretni priklad,
>tedy kus programu (kdyz uz tak vehementne shanis dalsi
>a dalsi informace), byl bych ti ho byval poslal.
Tak tedy odepisuji (tentokrate naposledy na toto tema takto verejne,
do konference) a zadam Te, mas-li neco jiz napsaneho, ci by Te
neobtezovalo neco napsat, konkretni P a Q, konkretni text, postup i
s poznamkama...
Budu taky trochu konkretni, mam fci na test, zda je parametr (napr. W)
prvocislo, porovnavam, je-li pro I od 2 do Sqrt(W) bezezbytku delitelny
cislem I, problem je vsak v tom, ze pokud pouziju W:extended (delam to
v TPascalu), mam problemy pri velkych cislech zjistit delitelnost beze
zbytku (I je taky extended) tak to resim tak, ze zkoumam zda je za desetinnou
teckou nejake cislo ruzne od nuly, ale pro velka cisla to muze byt treba az na
biliontinach, a tam mam problemy. Mas nejaky napad, ci priklad ?
(Blik)Tak me napada, I preci nemusi byt extended, protoze LongInt^2 je uz
samo o sobe dost velke.
Navic, mi neni uplne jasny, pokud je soucasti verejneho klice soucin P a Q,
je preci rozkladem toho soucinu mozne zjistit puvodni P a Q, ne ?
Diky
Dobra.Encryptace data
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.9.1998 09:26:10
Ahoj,
to se tykalo mne.
Dobra.
----------
Od: Jan Nov�k[SMTP:csobta(zv)mbox.vol(tec)cz]
Odesl�no: 11. z��� 1998 7:16
Komu: DELPHI Distribution List
P�edm�t: Re: Encryptace data
Nevim kdo mel komu podekovat , ale ja jsem nic nedostal
primou postou. Pokud doslo k poslani na chybnou adresu
predme dekuji jestli mi neco prijde. Pokud se mne to netika ,
tal presto dekuji vsem , kteri mi poradili.
Jan Novak
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 5:09
P�edm�t: RE: Encryptace data
> No, dovolil bych si nesouhlasit, pouzivame Informix-OnLine 7.14, coz je =
> zcela nepochybne naprosto "normalni" SQL server. Bezi na AIX-u, kde ma =
> vymezenou jistou oblast, kam si uklada data, jiste vite, jak to funguje. =
> K datum se pomoci prostredku OS dostat neda, ale pokud nekdo napise =
> aplikaci, ketra si na tomto SQL Serveru udela databazi, tabulky a do =
> nich ulozi nejaka sva data, pres klasicky nastroj DBACCESS (myslim, ze =
> na MS SQL je to Enterprice Manager) se do teto databaze dostane =
> prinejmensim spravce serveru, takze data v ramci SQL kodovana nejsou !=20
Pokud ma tabulka nastavena prava, ze tam muze pracovat PETR a PAVEL,
pak se tam nikdo jiny nedostane. Aspon u normalnich SQL serveru to
tak je. Administrator samozrejme muze vsude, pokud si to sam
nezakaze, nicmene administrator je snad spolehlivy clovek... Pokus
ne, pak nema co delat na pozici administratora.
> >No a ja jsem ti RSA snad vysvetlil spatne?
>
> To bylo spis pro toho cloveka, co chtel informace o MD5.
> Doufam, ze jsi se neurazil :-), ale schanim dalsi a dalsi,
> informace. Konkretni priklad, (kde bude P=3D1021, Q=3D23, ...)
> metody lusteni, ...
Ja jsem se neurazil, pozadal jsi me o konkretni vysvetleni
kodovani RSA, tak jsem si s tim dal praci a pul hodiny jsem
ti to popisoval do mailu, no a ty ses pak ani neobtezoval
mi rici "dostal jsem to", kdyz uz jsi nepodekoval. Ne ze
bych byl nejak zvlast citlivy na dekovani. Ale mam holt
zakoreneno, ze kdyz se na nekoho obratim s nejakou zadosti
primym mailem a on mi odpovi, aspon podekuji, ze mi venoval
svuj cas, ktereho ma urcite malo, prestoze se na me mohl
take vykaslat... A propos, kdybys byl byval racil odepsat,
treba i malinko podekoval a pozadal me o konkretni priklad,
tedy kus programu (kdyz uz tak vehementne shanis dalsi
a dalsi informace), byl bych ti ho byval poslal.
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 ===
==============================================================
Dotaz na BLOB
[*] Lubo Fule <fule(zv)sct.sk> - 11.9.1998 09:37:40
Napriklad:
(Fields[0] as TBlobField).LoadFromStream(...)
alebo
(Fields[0] as TBlobField).LoadFromFile(...)
alebo
Fields[0].Assign(...)
podrobnejsie sa dozvies v helpe
S pozdravom
Lubo Fule
> -----Original Message-----
> From: David_Zabensky.UNION(zv)union(tec)cz
> [mailto:David_Zabensky.UNION(zv)union(tec)cz]
> Sent: Thursday, September 10, 1998 10:01 AM
> To: DELPHI Distribution List
> Subject: Dotaz na BLOB
>
>
> Ahoj vsichni,
>
> mam takovy maly dotaz - zacinam si hrat s databazema a potreboval bych do
> BLOB pole ulozit graficky stream. Poradte mi prosim jak na to. Neco
> takoveho jako
>
> Fields[0].AsString:= ....
>
> pro grafiku neexistuje.
>
> Dekuji za vsechny odpovedi, David;
>
> JPEG do BLOB
[*] Lubo Fule <fule(zv)sct.sk> - 11.9.1998 09:40:11
Skus to priamo zo suboru:
(Fields[x] as TBlobField).LoadFromFile('obrazok.jpg');
S pozdravom
Lubo Fule
-----Original Message-----
From: Libor Junek [mailto:libor(zv)thsoft(tec)cz]
Sent: Thursday, September 10, 1998 2:05 PM
To: delphi(zv)pinknet(tec)cz
Subject: JPEG do BLOB
Muzete mi nekdo poradit jak v D4 priradit do pole typu BLOB obrazek
JPEG?
Zkou�el jsem to pres DBImage a funkci Assign, ale umi to ulozit pouze
BMP.
Libor Junek
libor(zv)thsoft(tec)cz
SQL Server na CD-ROM
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 11.9.1998 09:43:12
Dne Fri, 11 Sep 1998 00:56:20 +0100 Petr Zahradnik napsal:
> Ahoj,
>
> lze nejak zaridit, aby nejaky SQL Server pracoval,
> pokud je databaze ulouena na CD-ROM, tedy chranena
> proti zapisu? Asi ne, co?
Umi to nejnovejsi WinBase602, ty zmeny uklada na HDD pak je pouziva
misto tech CDckovej (nezmeneny samozrejme bere dal z CD)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.9.1998 09:50:02
>Zdar,
>
>neviete mi poradit, ako z programu zistim, ci sa pocitac pripojil (z
ineho programu) na internet cez dialup? Nieco ako net watcher.
napadaji me tyto metody detekce:
1) sledovani aktivnich spojeni realizovanych RASem - musite znat jmeno
spojeni, ktere je urceno k pripojeni do internetu
2) sledovani IP adres existujicich na danem PC - predpoklada, ze jste
schopen zjistit, ktera IP jsou loklani a ktere patri do Internet IP
rozsahu
3) sledovat routovaci tabulku a v ni default route
4) testovat dosazitelnost nejakeho inetovskeho zdroje - pingat na
nekolik serveru v internetu (jeden nestaci - server nemusi zrovna
bezet). Je to univerzalni metoda, al ma nectnosti: realizace pingu (ci
jine metody), pokud nahodou na PC bezi dial on demand (RRAS, atd) pak by
to mohlo zpusobovat nechtene vytaceni spojeni.
>
>A dalej, ako jednoducho napr. cez winsock.dll poslem e-mail.
jednoduse snad jedine nejakou komponentou na smtp
Zdravi
D. Toman
ScreenSaver
[*] Ing. J�n Kuch�r�����!j��G - 11.9.1998 10:02:04
Cau
Mal by som o to zaujem
Dik
-----P�vodn� zpr�va-----
Od: Radek Soucek <rsoucek(zv)email(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 16. september 1998 21:27
P�edm�t: Re: ScreenSaver
>Ja mam utilitku, ktera ti z tebou vytvoreneho programu (kde si udelas to,
co
>potrebujes - treba nejakou animaci) udela klasicky SCR soubor. Zkousel jsem
>to jen jednou, ale jelo to. Ten program byl i se zdrojaky a tusim obsahoval
>chybu, ktera ale sla odstranit. Zajemcum mohu poslat.
>
>Radek
>
>-----P�vodn� zpr�va-----
>Od: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
>Komu: '- Konf Delphi' <delphi(zv)pinknet(tec)cz>
>Datum: 16. z��� 1998 8:22
>P�edm�t: ScreenSaver
>
>
>>Ahoj,
>> vite nekdo jak v D3 udelat vlastni screensaver ?
>>
>>Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt",
>ktery
>>by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo
>mnou
>>zvolitelny animovany GIF.
>>
>>Diky za pomoc.
>>
>> Dobromil Maly
>> mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
>>
>
>Pad programu
[*] V�t�zslav Gazda������u��n�?��? - 11.9.1998 10:18:05
V knize "Windows pro pokrocile a experty" jsem se docetl toto:
"System povazuje provadeci tok za zablokovany v pripade, ze tok po dobu
delsi nez 5 sekund nezpracoval zadnou zpravu.
Mozna, ze ti to pomuze.
Vita
ACCESS versus BDE
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 11.9.1998 10:42:26
Jan Nov�k wrote:
>
> Potyka se s nasledujicim problemem.
> Pouzivam Delphi verze 3 a BDE 4.51 , pristupuji
> k MS Acccessu nativnim pristupem .To mi funguje. Problem
> nastane pokud databasi Accessu priradim heslo . Pak mi nejde
> v programu ani databasovem exploreru
> database otevrit a objevi se chyba "External exception EEFFACE."
> Nevite nekdo cim to je a jak chybu odstranit ?
> Dekuji za radu.
Mam pocit, ze se chyba prestala projevovat po zadani
systemove databaze do konfigurace BDE pro dany Alias.
Neco o systemovych databazich je v helpu Accessu97.
--
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Nenapadny puvab multithreadingu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 11.9.1998 11:23:21
Zdar !
Zacinam se trochu vice zabyvat multithreadingem pod Win95 a narazil jsem
na neco, co nemohu nejak uspokojive vysvetlit.
Mejme jednoduchy thread s timto kodem:
procedure TThread1.Execute;
begin
repeat
{Sleep(1);}
until Terminated;
end;
Pri tomto kodu hlasi nejruznejsi CPU monitory 100% vyuziti procesoru
(prioritu nemenim).
Jakmile vsak odstranim zavory vse se ustali na cca 20%, zavisi na typu
procesoru.
Zda se to byt divne, i bez toho Sleep by to melo krepcit stejnou rychlosti
?! Nebo ne !?
Staci tak malo?!
Dejme hlavy dohromady.
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen�: http://kuchyn.delphi(tec)cz
Nulova hodnota Date
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 11.9.1998 12:10:51
>
> > Navic TDateTimePicker ma tu nevyhodu, ze pokud by si chtel program
> > distribuovat, potrebujes na cilovem pocitaci knihovnu COMCTL32.DLL
verze
> > 4.7 a vyssi (je to ve Win95 OSR 2 nebo v PlusPacku).
>
> Vsak COMCTL32.DLL je volne siritelna CORE knihovna, kterou staci
> pridat do instalace... V cem je ta nevyhoda? Kdyz uz se instaluje
> nekolikamegove BDE, tak 400 kilova DLL neni problem.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
Asi nejsem dost velky POCITACOVY EXPERT, ale nenapsal jsem nic o tom, ze by
se ta knihovna nedala sirit. ;-)
Jenom jsem na to upozornoval, ze ji tam potrebuje. Nemuzu za to, ze nekoho
napada, ze bych ji snad chtel prodavat (a on jako obchodnik z toho nemel
profit). Hawgh.
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
property Parent
[*] Pavel Cabak <cabak(zv)zl.inext(tec)cz> - 11.9.1998 12:11:39
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahojte,
mam takovyto problem. Dole je okopirovana testovaci unita a chtel bych se zeptat, proc pri nastaveni
TestObjekt.Parent:=Self;
metoda CopyRect (v RodicObjekt.Paint) funguje, ale pri nastaveni
TestObjekt.Parent:=RodicObjekt;
tato metoda okopiruje svuj vlastni Canvas. Ja prave potrebuju ten druhy pripad, kdy to nefunguje.
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TRodicObjekt = class(TCustomControl)
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
end;
TTestObjekt = class(TGraphicControl)
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
public
RodicObjekt: TRodicObjekt;
TestObjekt: TTestObjekt;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TRodicObjekt.Paint;
begin
with Canvas do
begin
Pen.Color:=clBlack;
Pen.Style:=psSolid;
Pen.Width:=1;
Brush.Style:=bsClear;
Rectangle(0, 0, Width, Height);
CopyMode:=cmSrcCopy;
CopyRect(Rect(100, 100, 200, 200), Form1.TestObjekt.Canvas, Rect(0, 0, 100, 100));
end;
end;
constructor TRodicObjekt.Create(AOwner: TComponent);
begin
inherited;
Left:=50;
Top:=50;
Width:=200;
Height:=200;
end;
procedure TTestObjekt.Paint;
begin
with Canvas do
begin
Pen.Color:=clBlack;
Pen.Style:=psSolid;
Pen.Width:=5;
Brush.Color:=clWhite;
Brush.Style:=bsSolid;
Rectangle(0, 0, Width, Height);
MoveTo(0, 0);
LineTo(Width, Height);
end;
end;
constructor TTestObjekt.Create(AOwner: TComponent);
begin
inherited;
Left:=0;
Top:=0;
Width:=100;
Height:=100;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RodicObjekt:=TRodicObjekt.Create(Self);
RodicObjekt.Parent:=Self;
TestObjekt:=TTestObjekt.Create(RodicObjekt);
TestObjekt.Parent:= RodicObjekt nebo Self;
end;
end.
Pavel CABAK
cabak(zv)zl.inext(tec)cz
SQL Server na CD-ROM
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 11.9.1998 12:15:54
Ahoj,
MS SQL Server pouziva pro vysledky vsech dotazu a mezivysledky ulozenych
procedur specialni databazi (ta musi byt na HDD) a nevadi tedy, ze potrebna
databaze (*.mdf) je na CD (a tedy read-only).
Pak jeste zbyva nasmerovat nekam jinam (nez na CD) transactionlog file
(*.ldf).
Zkusil jsem si pod MS SQL 7.0 B3 databazi nastavit vse potrebne a klast
nejake jednoduche dotazy. Vysledkem bylo, ze datum posledni modifikace
souboru s databazi (*.mdf) se nezmenil.
CD s MS SQL 7.0 B3 lze poridit zdarma pres Microsofty.
Ladislav Nagy
lada(zv)kolej.mff.cuni(tec)cz
> Ahoj,
>
> lze nejak zaridit, aby nejaky SQL Server pracoval,
> pokud je databaze ulouena na CD-ROM, tedy chranena
> proti zapisu? Asi ne, co?
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
Ikona aplikace...
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 11.9.1998 12:35:03
...tak jsem chtel udelat uzivatelum radost a pridal jsem do aplikace vlastni
ikonu, kterou jsem chtel nahradit ten defaultni anticky plapolak...
Ikonku jsem nakreslil a pomoci LoadIcon vlozil do vlastnosti projektu. Ale
ouha - v kompilatu mam obe ikony a pouziva se porad ta plapolaci...
V res je jen jedna ikona, exac jsem zkusil smazat, ale nic nepomohlo...
Co o tom vite vy...?
Tomas
--------------------------------------
Tomas.Burger(zv)mius(tec)cz
Tomas.Burger(zv)sms.paegas(tec)cz
http://www.mius(tec)cz/; http://www.delphi(tec)cz/
http://www.sever(tec)cz/; http://www.teplice(tec)cz/
ICQ: 3908757
--------------------------------------
USES OBJECTS
[*] Ing. J�n Kuch�r�����!j��G - 11.9.1998 13:00:43
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovny problem. Dostal som ya ulohu prerobit stary DOSovsky program a zachovat pri tom jeho strukturu. Narazil som na definiciu novych premennych pomocou prikazu OBJECT. Tento prikaz je nadefinovany v Pascale pod Usesom OBJECTS, ale D3 tento Uses nepozna. Poradte mi niekto ako na to.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Delphi 4 Prof. Upgrade
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 11.9.1998 13:13:59
Pekny den vsem,
nevite nekdo, z ceho vseho je mozne provest upgrade D4 Proffesional?
Je tam nejaka zminka i o konkurencim upgrade. Znamena to, ze pokud ma
zakaznik napr. Visual Basic Learning Edition tak muze pouzit D4 Pro
Upgrade? Je nekde seznam, ktery konkurencni sw je potreba vlastnit, aby
byl upgrade legalni?
Diky
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================dotaz na DBGrid
[*] AlaMac <alame(zv)bigfoot(tec)com> - 11.9.1998 13:15:28
Huj Delphisti!
Nemate nekdo zkusenosti s nejakou slusnou free komponentu odvozenou od DB
Grid. Mela by umet poradny multi select (klavesnici i mysi, pouzivat Ctrl a
Shift), mela by mit poradny Scroll Bar, ne jako u DB Gridu pouze tri
polohovy a hlavne by mela umet editaci MEMO polozky.
Na DSP a Torry jsem se dival ale z takoveho mnozstvi se kvalitni neda
vybrat.
Predem dekuji.
Alame
Database Login
[*] Jan Nov�k���r����n�?��? - 11.9.1998 13:35:45
Cau vespolek.
Potreboval bych poradit /mam Delphi 3+ Interbase./
Kdyz se pripojuji k InterBase databasi objevi se standardni dialog
--------------------------------------------------
Database login
User Name : SYSDBA
Password : masterkey . To je jasne.
-- OK--- ----Cancel---
----------------------------------------------------
KDYZ zvolim Cancel program pokracuje dal , pouze se objevi chyba.
Kdyz dam spatne heslo take se objevi chyba a program pokracuje dal.
Jak se da osetrit , aby pri stisku Cancel se program neprovadel
a pri spatnem, hesle se objevila moje vlastni hlaska.
Diky za radu.
Com port
[*] Jan Fiala <fiala(zv)iname(tec)com> - 11.9.1998 14:42:27
Jak nainicializovat Com port podle jeho nastaveni ve Windows
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Transparentni ikona
[*] vtulapvo <vtulapvo(zv)pha.pvtnet(tec)cz> - 11.9.1998 14:49:48
Ahoj
Poradi mi nekdo? V Delphi bych potreboval na obrazovce generovat
transparentni ikony, aby se pohybovaly a mohl jsem mysi cist jeji
polohu, respektive je po kliknuti nejakym zpusobem ovladat a cist jejich
atributy(vlastnosti).
Roman Carda <vtulapvo(zv)pha.pvtnet(tec)cz>
640*486 X 800*600
[*] lnovy(zv)unicos(tec)cz - 11.9.1998 14:51:52
Vazeni delphisti,
jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres celou
obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
leve horni casti obrazovky.
Diky moc za jakoukoliv radu
DBF komponenta bez BDE
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 11.9.1998 15:49:56
Neco informaci je zde: http://www.kylecordes.com/
Bohuzel vetsina neni free...
Mac
Petr Hronek wrote:
>
> Je to ji� n�jak� �as, co tu o tom prob�hla informace. Pros�m kdo by jste o n��em takov�m v�d�l ev. n�co takov�ho m�l (FREE) dejte mi info pop�. m��ete poslat na
> Petr Hronek
> trit(zv)cbnet(tec)cz
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================SQL Server na CD-ROM
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 16:19:18
> > lze nejak zaridit, aby nejaky SQL Server pracoval,
> > pokud je databaze ulouena na CD-ROM, tedy chranena
> > proti zapisu? Asi ne, co?
> Umi to nejnovejsi WinBase602, ty zmeny uklada na HDD pak je pouziva
> misto tech CDckovej (nezmeneny samozrejme bere dal z CD)
Ajaj, tak to je zrovna SQL Server, ktery bych nechtel.
To je v pytli. Me prave slo spise o cteni dat, neni
potreba zapis ani zadne zmeny. Ja jsem si jen myslel,
ze by bylo dobre, kdybych mel nejakou velikou databazi
na CD-ROM a delal na ni hledani apod. Zkousel jsem na
to Sybase SQL Anywhere a ten to tvrde neotevre, musim
jeste projit nejake parametry a jinak to asi budu muset
udelat jinym zpusobem - ozelim SQL a pouziji FlashFiler.
Jinak diky!
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 ===
==============================================================Parametry v ADODataset dotazech (Adonis, OLEDB)
[*] Erik Salaj <erik(zv)dodo.sk> - 11.9.1998 17:05:43
Skor je to problem MS SQL (pripadne OLE DB providera pre MS SQL),
pretoze napr. v pripade MS Access databazy to takto nie je obmedzene.
ADO rozhodne nedefinuje, ze nazvy parametrov musia byt s otaznikmi
a mimo MS SQL sa to tak asi ani nikde nepouziva.
Erik Salaj
-----Original Message-----
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 9. september 1998 12:26
Subject: RE: Parametry v ADODataset dotazech (Adonis, OLEDB)>Ono to souvisi s definici ADO, tam to totiz je definovano takto s
otaznikama
>
>Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
>Mius a.s. (http://www.mius(tec)cz)
>Dlouha 2940
>415 01 TEPLICE
>Czech Republic
>
>> -----P�vodn� zpr�va-----
>> Od: Martin Kuska [SMTP:martin.kuska(zv)amenit(tec)cz]
>> Odesl�no: 6. z��� 1998 16:36
>> Komu: DELPHI Distribution List
>> P�edm�t: Re: Parametry v ADODataset dotazech (Adonis, OLEDB)
>>
>> Ladislav Nagy wrote:
>>
>> > Ahoj Delpfini.
>> > Prosel jsem si dukladne obe Adonis komponenty, ale jedna vec se mi
>> > nepodarila - a sice pouziti parametru v dotazu (AdoDataSet s nastavenym
>> > CommandType = ctText).
>> >
>> > Zadam napr:
>> >
>> > ... WHERE job_id = :muj_parametr
>> >
>> > V Params listu se ale nic neobjevi. Uziva se jina syntaxe parametru?
>> Nebo je
>> > zadrhel jinde?
>> > Mohl byste mi nekdo poradit?
>> >
>> > Diky, Ladislav Nagy
>> > lada(zv)kolej.mff.cuni(tec)cz
>> >
>>
>> Cau, na to jsem taky narazil. Ono to totiz neumi pojmenovavat parametry.
>> Misto
>> toho ":muj_parametr" musis napsat jen "?". Na miste prvniho otazniku se
>> pouzije
>> hodnota prvniho parametru nadefinovaneho v Params. V miste druheho se
>> pouzije
>> hodnota druheho parametru atd. Ma to jednu nevyhodu. Pokud potrebujes
>> jeden
>> parametr pouzit v dotazu na X mistech, musis proto v Params nadefinovat X
>> parametru a vsem priradit stejnou hodnotu.
>>
>> Zdar, Martin.
>>
>>
>>
>>
>> --
>> ==============================================================
>> = Ing. Martin Ku�ka - Amenit s.r.o. =
>> = Na Valech - budova Dytron, 741 01 Novy Jicin =
>> = http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
>> ==============================================================
>>
>
screen saver
[*] madr(zv)telecom(tec)cz - 11.9.1998 17:14:23
Diky vsem za odpovedi.
MM.Jeste jednou Popup Menu.
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 11.9.1998 17:26:18
Ahoj,
mam jeste jeden dotaz stran Popup Menu, ktery se tyka pridavani polozek do
nej. Pro ukazku prikladam nasledujici zdrojak:// Naplneni Popup Menu
function PMenu_Napln(Par: Integer): Integer;
var
MenuItem: TMenuItem;
begin
try
if (Par = 1) then begin with Form1 do begin
while PMenu101.Items.Count > 0 do PMenu101.Items.Delete(0);
for A := 0 to High(Pole1) do begin
MenuItem := TMenuItem.Create(PMenu101);
MenuItem.Caption := Pole1[A].A;
MenuItem.Name := 'PMenu1010'+IntToStr(A+1);
PMenu101.Items.Add(MenuItem);
end;
end;
end;
except
end;
Result := GetLastError;
end;
Ve Form1 mam PopupMenu PMenu101. Nejdrive v nem chci zrusit vsechny zaznamy
( to se dari whilem ) a nasledne do nej chci zapisovat data z Pole1, coz se
nedari. Haze mi to chybu: EComponenError with Message 'A component named
PMenu101002 already exists.
Uz jsem z toho fakt na prasky. Muzete mi prosim nekdo poradit ?
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Lokalizace
[*] heinisch(zv)post(tec)cz - 11.9.1998 19:03:32
pro lokalizaci hlasek pouzivam nasledujici postup.
prelozim primo zdrojove resource string v souborech *.pas adresari
\delphi\lib
a provedu uplny preklad. to funguje pouze pokud si nechci projekt
nabalickovat
V pripade ze chci pouzivat balicky tak se pouzije original *.DPL ktere ale
nejdou v editovat v Component \ install packages a tim padem ani
rekompilovat.
Kdo poradi ?
Diky HeiJu
Encryptace data
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 20:13:54
> Kdyz to je tezky, no, v jednom mailu pises, ze heslo nema vedet
> ani administrator (s tim souhlasim), potom pises, ze kazdy normalni
> SQL server sva data koduje (s tim nesouhlasim) a ted doufas, ze
> je administrator spolehlivy. Ale ja, kdybych mel napsat nejakou
> apliakci, a chtel mit nejaka jeji citliva data v bezpeci, na to
> spolehat nebudu.
Ale prosimte, musis rozlisovat mezi bezpecnosti a bezpecnosti.
Ja tvrdim, ze hesla by nemel znat ani administrator, takze hesla
zakodujes pomoci hash funkce MD5 a nikdo je nevidi, ani ty,
ani administrator, pricemz neni potreba je dekodovat. Ale zato
anglicko-cesky slovnik muze administrator samozrejme videt.
Ale samozrejme, muzes mit jine naroky na bezpecnost, to ti prece
neberu. K tomu kodovani dat - muj Sybase SQL Anywhere, ktery
je proti Informixu orezavatko, databazi koduje, proto si myslim,
ze by Informix snad mohl take. Treba se to da zvolit pri
vytvareni databaze.
> Doufam, ze se neurazis, nevim, jestli to napisu, tak jak chci,
> aby jsi to pochopil, byl jsem samozrejme rad, ze jsi mi to posalal,
> nicmene tam nebyly popsany vsechny podminky, pro spravnou funkci,
> nechtel jsem Te dale obtezovat. Te pulhodiny si vazim a jsem rad,
> ze jsi mi ji venoval.
V tom, co jsem ti poslal, byl kompletni popis algoritmu RSA.
Nepovazoval jsem za nutne a ani unosne ti vysvetlovat pomerne
slozitou aritmetiku velkych cisel... to neni jednoduche...
> Vetsinou pisu "Mohl by jste mi poslat ...... . {predem}Diky "
> a tam uz to podekovani je a tim usetrim jeden mail.
> Jsem na pevne lince, takze me jeden mail navic (ani 5MB) nevytrhne,
> ale mam pochopeni pro dialup-isty, navic v obchodni koresponcenci,
> kdy napriklad zadame (dopisem pozemni postou) o opravu toho ci onoho
> pisu "Zadame Vas o to a to. Dekuji" a kdyz nam to poslou opraveny,
> uz jim taky znovu nepisu.
Ale vzdyt o nic nejde, ja to psal jen jako, aby rec nestala.
Ale mimochodem - zadal jsi me o to mimo konferenci, ja jsem
ti to posilal mimo konferenci, tak snad jsme nikoho nezatizili...
> Tak tedy odepisuji (tentokrate naposledy na toto tema takto verejne,
> do konference) a zadam Te, mas-li neco jiz napsaneho, ci by Te
> neobtezovalo neco napsat, konkretni P a Q, konkretni text, postup i
> s poznamkama...
P a Q jsou nahodne zvolena "dostatecne velika" prvocisla. Pozor,
z nich prave vychazi tajny a verejny klic, takze nemuzes pouzit
uz nejaka, proste si je musi nahodne vypocitat. A kdyz pisu, ze
jsou dostatecne velika, tak to nejsou cisla 7 a 13. Jsou to
treba 100 mistna numera.
Pokud te zajima konkretni mala prvocisla, pak si muzes pouzit
treba 31 a 37, pak N = P * Q = 1147. Sifrovaci exponent
S = 7, je nesoudelitelny. (P-1)(Q-1) = 1080. Desifrovaci
exponent T * 7 = 1 mod 1080, tedy T = 463.
Konkretni text? To nechapu, rovnice je rovnice. Jestli neco
nechapes, pak se prece muzes zeptat, prece ti nemuzu vysvetlovat
uplne vsechno, co o tom vim, protoze bych nasledujici mesic
nedelal nic jineho, kdyz notabene urcite vynasobit dve cisla
umis, tak to ti vysvetlovat nemusim.
Postup i s poznamkama? Ten jsem ti poslal... ach jo.
> Budu taky trochu konkretni, mam fci na test, zda je parametr (napr. W)
> prvocislo, porovnavam, je-li pro I od 2 do Sqrt(W) bezezbytku delitelny
> cislem I, problem je vsak v tom, ze pokud pouziju W:extended (delam to
> v TPascalu), mam problemy pri velkych cislech zjistit delitelnost beze
> zbytku (I je taky extended) tak to resim tak, ze zkoumam zda je za desetinnou
> teckou nejake cislo ruzne od nuly, ale pro velka cisla to muze byt treba az na
> biliontinach, a tam mam problemy. Mas nejaky napad, ci priklad ?
> (Blik)Tak me napada, I preci nemusi byt extended, protoze LongInt^2 je uz
> samo o sobe dost velke.
Musim te zklamat, s cisly Integer neudelas poradne RSA zakodovani,
protoze tam nenacpes 100 mistna cisla. A mala cisla jsou nebezpecna.
Musis si holt neco precist o aritmetice velkych cisel. Pro tak
velika cisla nelze pouzit postupne testovani delitelnosti az
do druhe odmocniny, protoze by ses nedopocital ani do roku 2000.
Pri takto vysokych cislech se uvazuje o "pravdepodobnych prvocislech".
A priznavam, opravdu to neni jednoduche pocitat s takto dlouhymi
cisly, nicmene je nekolik moznych zpusobu. Ale neni v mych silach
to hloubeji rozebirat, protoze (a) je to slozite, (b) je toho
moc a (c) mnohdy tomu ani nerozumim...
> Navic, mi neni uplne jasny, pokud je soucasti verejneho klice soucin P a Q,
> je preci rozkladem toho soucinu mozne zjistit puvodni P a Q, ne ?
Pokud zvolis cisla 31 a 37, je to jednoduche. Pokud zvolis 100-mistna
cisla, je to malinko slozitejsi. Uvedom si, ze mezi 100-mistnymi
cisly existuje 3.9 * 10^97 prvocisel, ktera bys musel delit.
Pravdepodobnost, ze na to prijdes nahodou, je zanedbatelne mala,
konkretne 4.3 * 10^-391.
Pokud zvolis 128-bitova P a Q, pokud jsem dobre pocital, znamena
to 41-mistne desitkove cislo. Klidne se pouzivaji 1024 bitove klice...
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 ===
==============================================================Nulova hodnota Date
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.9.1998 23:05:29
> > > Navic TDateTimePicker ma tu nevyhodu, ze pokud by si chtel program
> > > distribuovat, potrebujes na cilovem pocitaci knihovnu COMCTL32.DLL
> verze
> > > 4.7 a vyssi (je to ve Win95 OSR 2 nebo v PlusPacku).
> >
> > Vsak COMCTL32.DLL je volne siritelna CORE knihovna, kterou staci
> > pridat do instalace... V cem je ta nevyhoda? Kdyz uz se instaluje
> > nekolikamegove BDE, tak 400 kilova DLL neni problem.
> Asi nejsem dost velky POCITACOVY EXPERT, ale nenapsal jsem nic o tom, ze by
> se ta knihovna nedala sirit. ;-)
> Jenom jsem na to upozornoval, ze ji tam potrebuje. Nemuzu za to, ze nekoho
> napada, ze bych ji snad chtel prodavat (a on jako obchodnik z toho nemel
> profit). Hawgh.
Prosimte, nech si sve trapne impertinence, ktere ti mozna pripadaji
velmi vtipne, od cesty a vysvetli mi, v cem spociva ta nevyhoda, kterou
uvadis na prvnim radku mnou quotovaneho textu. Ty jsi neupozornoval,
ze ji tam potrebuje, ale uvedl jsi to jako nevyhodu. Ja se te slusne
(uz podruhe) ptam, v cem spociva ta nevyhoda, a pridavam sve stanovisko,
kde tvrdim, ze me to jako nevyhoda nepripada. Chci znat tvuj nazor,
ne nejake radoby chytre vyplody 4-leteho synka...
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 ===
==============================================================640*486 X 800*600
[*] Michal Konicek <M.Konicek(zv)sh.cvut(tec)cz> - 11.9.1998 23:36:44 met dst
> jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres celou
> obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
> stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
> cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
> leve horni casti obrazovky.
>
> Diky moc za jakoukoliv radu
Zadna jednoducha rada na todle neni!
Musis si pohlidat (OnResize) kdy se meni velikost daneho Formulare a
presunout si vsechny komponenty rucne.
Hobbys
Ikona aplikace...
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 12.9.1998 00:16:35
Zdravim,
co takhle zkusit nastaveni v Project Options,
zalozka Application ?
Tam k tomu snad neni co dodat.
S pozdravem Pavel Malinsky
spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: Burger Tom� <tomasb(zv)manwe.mius(tec)cz>
Komu: PinkNet Delphi (el. adresa) <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 22:35
P�edm�t: Ikona aplikace...>...tak jsem chtel udelat uzivatelum radost a pridal jsem do aplikace
vlastni
>ikonu, kterou jsem chtel nahradit ten defaultni anticky plapolak...
>Ikonku jsem nakreslil a pomoci LoadIcon vlozil do vlastnosti projektu. Ale
>ouha - v kompilatu mam obe ikony a pouziva se porad ta plapolaci...
>V res je jen jedna ikona, exac jsem zkusil smazat, ale nic nepomohlo...
>Co o tom vite vy...?
>
>Tomas
>
>
>--------------------------------------
>Tomas.Burger(zv)mius(tec)cz
>Tomas.Burger(zv)sms.paegas(tec)cz
>http://www.mius(tec)cz/; http://www.delphi(tec)cz/
>http://www.sever(tec)cz/; http://www.teplice(tec)cz/
>ICQ: 3908757
>--------------------------------------
>
>
640*486 X 800*600
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 12.9.1998 00:16:55
Ahoj,
jedno z moznych reseni je nahazet na TForm hromadu TPanelu (kdyz nemaji
okraje tak neni za behu poznat ze tam nejake panely jsou). U tech panelu
nastavite sikovne align (top, bottom, client, ...). Pri zvetseni obrazovky
se pak automaticky zvetsi client panely.
(Napr. Nahore Toolbar, vpravo tlacitka a vlevo Memo => Panel na Toolbaar
(top), Panel na buttony (right), Memo s alignem = client)
Nevyhoda tohoto reseni : "Panely zerou resourcy".
S pozdravem,
Mgr. Ladislav Nagy
lada(zv)kolej.mff.cuni(tec)cz
>Vazeni delphisti,
>
> jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres
celou
>obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
>stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
>cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
>leve horni casti obrazovky.
>
> Diky moc za jakoukoliv radu
Popup Menu
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 12.9.1998 00:17:27
> Hallo,
> mate prosim nekdo zkusenosti s Popup Menu ?
> Ja si ve Form1 vytvorim PopupMenu, ktere je prazdne. Potom bych chtel do nej
> v jinem unitu pridat polozky. To se mi dari. problem je v tom, ze se mi do
> PopupMenu pridavaji za sebe. Pouzil jsem Delete ( TPopupMenu.Items.Delete(I)
> ) v cyklu, ale nedari se mi. Porad mi to hlasi chybu.
> Nevite nekdo, jak vycistit popup menu pred pridabanim polozek do nej ?
Ja to delam takhle :
// Vyprazdneni menu "MojePopUpMenu"
for i:=0 to MojePopUpMenu.Items.Count-1 do
MojePopUpMenu.Items.Remove(MojePopUpMenu.Items[0]);
Vojtech Semecky
640*486 X 800*600
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 12.9.1998 00:34:38
Zdravim,
jak to mysles?? Chces snad zvetsovat rozmery komponent?
S pozdravem
Pavel Malinsky
spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: lnovy(zv)unicos(tec)cz <lnovy(zv)unicos(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 23:31
P�edm�t: 640*486 X 800*600
>Vazeni delphisti,
>
> jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres
celou
>obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
>stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
>cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
>leve horni casti obrazovky.
>
> Diky moc za jakoukoliv radu
Ikona aplikace...
[*] Vit Kovalcik <vkovalcik(zv)iname(tec)com> - 12.9.1998 06:44:02
Mozna by pomohlo, kdybys nakreslil malou i velkou ikonu (jestli je uz nemas)
Vita
-----Original Message-----
From: Burger Tom� <tomasb(zv)manwe.mius(tec)cz>
To: PinkNet Delphi (el. adresa) <delphi(zv)pinknet(tec)cz>
Date: 11. z��� 1998 22:28
Subject: Ikona aplikace...>...tak jsem chtel udelat uzivatelum radost a pridal jsem do aplikace
vlastni
>ikonu, kterou jsem chtel nahradit ten defaultni anticky plapolak...
>Ikonku jsem nakreslil a pomoci LoadIcon vlozil do vlastnosti projektu. Ale
>ouha - v kompilatu mam obe ikony a pouziva se porad ta plapolaci...
>V res je jen jedna ikona, exac jsem zkusil smazat, ale nic nepomohlo...
>Co o tom vite vy...?
>
>Tomas
>
>
>--------------------------------------
>Tomas.Burger(zv)mius(tec)cz
>Tomas.Burger(zv)sms.paegas(tec)cz
>http://www.mius(tec)cz/; http://www.delphi(tec)cz/
>http://www.sever(tec)cz/; http://www.teplice(tec)cz/
>ICQ: 3908757
>--------------------------------------
>
>OffTopic: WWW Server ve Windows 95
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 12.9.1998 10:37:59
Vazeni,
muzete mi nekdo poradit, jak nejjednoduseji
testovat CGI skripty v Perlu ve Windows 95?
Tj. exituje nejaky WWW server, ktery lze
rozchodit na lokalni stanici?
Dekuji Vam vse za namety
S pozdravem
Mgr. Jan Sluka, snipe(zv)mail.cybernet(tec)cz
Tkalcovska 856/B, 688 01 Uhersky Brod
tel: 0633/639250, 0602/854725
OffTopic: WWW Server ve Windows 95
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 12.9.1998 10:53:12
Ahoj,
skoro vsechny :-)) - muzes zkusit Xitami Web Server
(http:/www.xitami.com), ale asi nejvic doporucuji Personal Web Server
(je k dostani na cd s FrontPage nebo je soucasti Option Packu pro Win95
- http://www.microsoft.com)
Hodne stesti,
Peter
peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz/studio-r
Mgr. Jan Sluka wrote:
>
> Vazeni,
>
> muzete mi nekdo poradit, jak nejjednoduseji
> testovat CGI skripty v Perlu ve Windows 95?
> Tj. exituje nejaky WWW server, ktery lze
> rozchodit na lokalni stanici?
>
> Dekuji Vam vse za namety
>
> S pozdravem
>
> Mgr. Jan Sluka, snipe(zv)mail.cybernet(tec)cz
> Tkalcovska 856/B, 688 01 Uhersky Brod
> tel: 0633/639250, 0602/854725
Database Login
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 12.9.1998 12:00:00
Ahoj
>Kdyz se pripojuji k InterBase databasi objevi se standardni dialog
... Misto pokusu o otevreni database komponenty (TDatabase, TTable, ...)
otevri
svuj formular, ktery si muzes nadesignovat, aby vypadal jako :
>--------------------------------------------------
>Database login
>User Name : SYSDBA
>Password : masterkey . To je jasne.
> -- OK--- ----Cancel---
>----------------------------------------------------
Osetris si obe tlacitka
OK -> naplnis parametry TDatabase komponenty a pak se pokusis v try-except
bloku naconnectit TDatabase (nepovede se -> exception)
Cancel -> neco
S pozdavem,
Mgr. Ladislav Nagy
lada(zv)kolej.mff.cuni(tec)cz
Baader Computer, spol. s r.o.
Com port
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 12:13:45
> Jan Fiala wrote:
>
> Jak nainicializovat Com port podle jeho nastaveni ve Windows
Ahoj,
Pokud ti jde o inicializaci hodnot struktury DCB podle nastaveni ve Windows tak
to jde udelat takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
CommConfig: TCommConfig;
BufSize: DWORD;
begin
FillChar(CommConfig, Sizeof(CommConfig), 0);
CommConfig.dwSize := Sizeof(CommConfig);
if GetDefaultCommConfig('COM1', CommConfig, BufSize) then
begin
// V CommConfig.dcb mas DCB podle nastaveni ve Windows pro COM1
end;
end;
--
Petr Vones, amatersky programator
Aktivace okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 12:17:49
Kolar Lubor wrote:
>
> Dne Wed, 09 Sep 1998 21:41:35 +0200 Petr Vones napsal:
>
> > Kolar Lubor wrote:
> > >
> > > Delfini, next problem:
> > > Mam MDI aplikaci a obcas otevre jinej dialogovej form pres ShowModal. Po
> > > zavreni tohoto dial. formu se mi ale hlavni aplikace neaktivuje, musim
> > > do ni kliknout.
> >
> > Ahoj,
> >
> > to je zvlastni, jestli jsem to dobre pochopil tak je to stejna situace jako
> > v MDI aplikaci z Object Repository kdyz tam das v menu Help|About ?
> No, zhruba tak, zjistil jsem, ze mi to dela i pro form.Show (ten modal
> tam neni nutnej), nicmene oboje se vola z threadu jineho nez je hlavni
> aplikacni thread. Jak poslu oknu zpravu tak, aby se aktivovalo? To preci
> nejak jit musi.
A volas ten Show z threadu pomoci Synchronize ?
--
Petr Vones, amatersky programator
Kompatibilita D4->D3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 12:17:40
Petr Brant wrote:
>
> Ahoj vsichni,
>
> po nejake dobe mam zase dotaz. Mozna budu mit v praci D4, ale doma mam D3.
> Kdyz udelam v praci neco pod D4, budu to moci doma upravovat pod D3
> (vzhledem k verzim "standard" se nepredpokladaji zadne C/S aplikace.
> Predpokladaji se standardni aplikace a navic i patrne bez databazi)?
Ahoj,
myslim si ze z toho muze byt dost problemu. V D4 je ve VCL pridano nekolik
novych vlastnosti (Constraints, Docking, Action List) a hlavne doslo i k
nekterym zmenam na urovni kompilatoru (typy promennych, pretezovani funkci).
Z techto duvodu mi prijde lepsi si poridit D4 Standard, neni to az tak
financne neunosne a navic mas zaklad pro dalsi upgrade. Potom mas jeste
jednu moznost, 24.9 probiha seminar o Delphi 4 a na zaver se losuji ceny,
treba budes mit stesti :-)
--
Petr Vones, amatersky programator
OffTopic: WWW Server ve Windows 95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 13:10:08
Peter Rus wrote:
>
> Ahoj,
>
> skoro vsechny :-)) - muzes zkusit Xitami Web Server
> (http:/www.xitami.com), ale asi nejvic doporucuji Personal Web Server
> (je k dostani na cd s FrontPage nebo je soucasti Option Packu pro Win95
> - http://www.microsoft.com)
Ahoj,
Personal Web Server je i na instalacnim CD Win95 OSR2, v Ovl.panelelech:
Sit -> Pridat -> Sluzba -> Osobni WWW server. Po pridani u neho jeste budes
muset ve vlastnostech nastavit mistni zabezpeceni na false, jinak to porad
hlasi chybu pri bootovani systemu.
--
Petr Vones, amatersky programator
RX - datum
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 13:26:14
SATON Glass s.r.o. wrote:
>
> Zdravim,
> pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale nevim jak
> to udelat ( pokud to tedy vubec jde ).
> Chtel bych tam mit nazvy dnu a mesicu v cestine.
> Predem diky za informace.
Ahoj,
k RxLib existuji ceske resource, meli by byt dostupne na http://rx.demo.ru,
nebo hledej soubor rx250cze.zip na DSP.
--
Petr Vones, amatersky programator
Off - PS/2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 13:30:18
SATON Glass s.r.o. wrote:
>
> Zdravim,
> kolega mne rozslapl koncovku od PS/2 portu (tu placatou, co se strka do
> boardu).
> Nekam jsem zasantrocil jeji popis. Nemate nekdo po ruce jeji popis zapojeni?
> pozn. typ TomatoBoard.
Zkus se podivat do Hardware Book, je tam popis mnoha ruznych konektoru, je to na:
http://www.hw(tec)cz/win/docs/hwb/hwb.html
--
Petr Vones, amatersky programator
Nenapadny puvab multithreadingu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.9.1998 14:30:55
Martin Nedopil wrote:
>
> Zdar !
>
> Zacinam se trochu vice zabyvat multithreadingem pod Win95 a narazil jsem
> na neco, co nemohu nejak uspokojive vysvetlit.
>
> Mejme jednoduchy thread s timto kodem:
> procedure TThread1.Execute;
> begin
> repeat
> {Sleep(1);}
> until Terminated;
> end;
>
> Pri tomto kodu hlasi nejruznejsi CPU monitory 100% vyuziti procesoru
> (prioritu nemenim).
> Jakmile vsak odstranim zavory vse se ustali na cca 20%, zavisi na typu
> procesoru.
> Zda se to byt divne, i bez toho Sleep by to melo krepcit stejnou rychlosti
> ?! Nebo ne !?
> Staci tak malo?!
>
> Dejme hlavy dohromady.
Ahoj,
Ten jev se da popsat na nasledujicim jednoduchem prikladu:
type
TDemoThread = class(TThread)
private
FCount: LongWord;
procedure UpdateCount;
protected
procedure Execute; override;
public
constructor Create;
end;
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure Delay(Ms: Word);
var
ET: DWORD;
begin
ET := GetTickCount + Ms;
while GetTickCount < ET do;
end;
{ TDemoThread }
constructor TDemoThread.Create;
begin
inherited Create(True);
FreeOnTerminate := True;
Resume;
end;
procedure TDemoThread.Execute;
begin
while not Terminated do
begin
Inc(FCount);
Sleep(100); // Delay(100);
Synchronize(UpdateCount);
end;
end;
procedure TDemoThread.UpdateCount;
begin
Form1.Label1.Caption := IntToStr(FCount);
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
TDemoThread.Create;
Button1.Enabled := False;
end;
Priklad se bude na prvni pohled chovat stejne kdyz v metode TDemoThread.Execute
pouzijes Sleep nebo Delay. Nicmene mezi obema zpusoby je zasadni rozdil. Pri
pouziti Delay system stale prideluje cas procesoru danemu threadu i kdyz v tu
dobu vykonava Delay vlastne zbytecnou cinnost (cekani) a tim zatezuje procesor.
Pokud ale pouzijes Sleep (coz je spravne reseni) tak tim pozastavis provadeni
daneho threadu po zadanou dobu a system mu neprideluje zadny cas a proto nedochazi
ke zbytecne zatezi procesoru.
Jinak na tema "Co vsechno jste chteli vedet o threadech a bali jste se zeptat"
doporucuji knizku "Windows pro pokrocile a experty", jsou tam detailne popsany
i dalsi veci tykajici se jadra systemu Win32 (procesy, kriticke sekce, mutexy,
asynchronni operace atd...) Ma 600 stran, jsou tam i priklady na CD, jsou vsak
(logicky) v MS VC++, ale i tak pro ilustraci pomohou a cist C kod neni snad az
takovy problem (hlavne v Delphi 4 kde jiz editor podporuje zvyraznovani syntaxe
pri oteverni C kodu).
--
Petr Vones, amatersky programator
OffTopic: WWW Server ve Windows 95
[*] lisi(zv)sh.cvut(tec)cz - 12.9.1998 16:14:34
> Vazeni,
>
> muzete mi nekdo poradit, jak nejjednoduseji
> testovat CGI skripty v Perlu ve Windows 95?
> Tj. exituje nejaky WWW server, ktery lze
> rozchodit na lokalni stanici?
>
Microsoft Personal Web Server....
Petr Fischer
HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...
[*] Alame <alame(zv)bigfoot(tec)com> - 12.9.1998 17:07:32
Omlouvam se, muzete mi prosim trosku poradit? (programatora mam ted pryc:)
ja tam mam jen nejake .dll:
// ************************************************************************
//
// Type Lib: C:\WINNT\system32\Shdocvw.dll
// IID\LCID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\0
// Helpfile:
// HelpString: Microsoft Internet Controls
// Version: 1.1
// ************************************************************************
//
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 18. srpna 1998 10:04
P�edm�t: Re: HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...>Dostat IE do Delphi se da tak, ze si nainstalujete do Delphi jeho ActiveX
>komponentu. Musite mit IE nainstalovaneho.
>Pres menu Component-Import ActiveX control si pridejte Microsoft Internet
>Controls, tam je komponenta TWebBrowser a na internetu muzete najit i jeji
popis. Na adrese
>http://msdn.microsoft.com/developer/sdk/inetsdk/help/itt/internet.htm
>najdete popis ruznych komponent microsoftu spojenych s internetem.
>
>Pavel
>
>>
>>zkousim neco udelat s HTML soucasti programu v delphi a jako realne vidim
3
>>moznosti:
>>
>>a) dostat FrontPage do wokna me aplikace (Nejde a nejde! Umi to nekdo?
>>Proste to neni Word/Excel/Proj98)
>> [pokud se toho nekdo chce za uplatu ujmout, cekam na nabidky
>>schopnejsich nez ja]
>>
>>b) dostat tam alespon Explorera a implementovat v nem HTMLed (viz novinka
>na
>>insidedhtml.com, docela bomba, mozna lepsi nez FP98 Editor! Jen jeste
>prijit
>>na to jak to efektne sejvnout do souboru nebo treba do SQL serveru)
>>
>>Dostat IE4 do wokna Delphi aplikace je ale take asi nad neci (me:) sily
>>(ackoliv to jiste de, ale asi pres API, nebot HomeSite3 (www.alaire.com)
>IE4
>>ma uplne transparentne v sobe se vsemi vlastnostmi IE nastaveni) a je tez
>>programovana v D3..
>>
>>Pokud byste meli tip, jak pres API dostat IE4 do wokna aplikace (jen
screen
>>bez buttonku), tak diky za nej sem.
>>
>>Al.
>>
>>
>>
>
>HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...
[*] Alame <alame(zv)bigfoot(tec)com> - 12.9.1998 17:11:25
Ahoj,
mam neco jako:
*** ThtmlViewer 6.1a, (c) L. David Baldwin, http://www.pbear.com ***
Nicmene at u toho nastavuju charset jaky chci (ANSI, OEM, EE...), porad mi
to nepise zpravne cesky, i fonty jsem zkousel Arial,Arial CE apod.., ale nic
Asi to bude nejaka hloupost, ale poradi mi nekdo?
Dekuji.
Al.
-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 18. srpna 1998 10:49
P�edm�t: RE: HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...>> Pokud byste meli tip, jak pres API dostat IE4 do wokna
>> aplikace (jen screen
>> bez buttonku), tak diky za nej sem.
>
>Hledej na DSP, nebo na Torry komponentu TPreviewHTML.
>
> S pozdravem
>
> Libor Krayzel
>Czech Television, Television Studio Ostrava
>Dvorakova 18
>729 20 Ostrava
>
>Phone: (069) 6201 375
>E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
>Homepage: http://members.tripod.com/~sovtop
>Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
>E-mail2: mailto:sovtop(zv)yahoo(tec)cz
>
Uvolneni zdroje pres ukazatel
[*] heinisch(zv)post(tec)cz - 12.9.1998 17:19:43
Ahoj all
Jak mam provest free takto vytvorenych instanci tridy TImage tj pres
pointer.
Dost dulezite /pro me/
Diky HeiJu
// funkce na vytvoreni promenneho poctu TImage
function TfoParametry.UdelejUkazatelNaObrazek(var Value:TlistItem):Boolean;
var
Filename:string;
begin
filename:=Value.subItems[0];
if SysUtils.FileExists(Filename)
then
begin
try
FObrazGz:=TImage.Create(self);
except
MessageDlg('Chyba p�i zpracov�n� grafick� zna�ky'+#13#10+Filename , mtError,
mbOk], end;
// FObrazGz = private promenna typu TImage
FObrazGz.Picture.LoadFromFile(filename);
Value.Data:=FObrazGz.Picture;
Result:=True;
end;
Lokalizace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.9.1998 17:28:18
> pro lokalizaci hlasek pouzivam nasledujici postup.
>
> prelozim primo zdrojove resource string v souborech *.pas adresari
> \delphi\lib
> a provedu uplny preklad. to funguje pouze pokud si nechci projekt
> nabalickovat
>
> V pripade ze chci pouzivat balicky tak se pouzije original *.DPL ktere ale
> nejdou v editovat v Component \ install packages a tim padem ani
> rekompilovat.
>
> Kdo poradi ?
Balicky neprelozis normalnim zpusobem. Za prve proto, ze k nim
neni zdroj, za druhe proto, ze se to ani nedoporucuje prekompilovat.
Rozumej, kdyz budes distribuovat aplikaci s balickem a ja taky,
pricemz kazdy balicek bude jiny, je to problem. Samozrejme,
v pripade pouheho prekladu ne tak strasny, ale to se take nemusi
povest, pokud dojde ke kompilaci. Navic ten balicek muze s tvym
programem fungovat a s jinym jiz treba ne... Proto take napriklad
firma TurboPower ma sve runtime balicky digitalne podepsane
a zakazuje se sireni modifikovanych runtime balicku. Muzes si
udelat sve vlastni, ale ne sirit ty jejich upravene.
Je nekolik reseni, jak to udelat. Dokonce nemusis vubec prekladat
soubory *.pas. Ono to ma totiz take velke nevyhody - prijde
update od Borlandu a muzes prekladat znovu, nebo tam neco pridaji,
ty si toho nevsimnes a mas po zizalkach. A to nemluvim o nove
verzi Delphi vubec, protoze to muzes vsechny stavajici preklady
vyhodit.
Pouzij jazykovy lokalizator od Zbyska Hlinky. Je v soucasne dobe
ve dvou verzich 3 FREE a 4 SHARE. Zbysek byl tak moc hodny
a uvolnil verzi 3 pro vseobecne pouziti. Verze 4 je placena, ale
neni tak moc draha. Nactes primo EXE, BPL, DPL, OCX, DLL, cokoliv,
kde je 32-bitovy resource, no a prelozis. Verze 3 umi udelat
jazykove lokalizovany resource, ktery si program z Delphi 3 sam
natahne, tedy nemodifikujes balicek. Ma to take vyhodu, ze muzes
udelat soubory pro ruzne jazyky a on si je bude sam vybirat
a nebo manualne... Verze 4 umi navic jeste silene kvantum veci,
od zastrceni resourcu zpet do programu, pres lokalizaci vsech
Win32 programu (ne jen z Delphi3, ale take Delphi2 a 4, ale take
treba programy z kompilatoru od Microsoftu apod.), az po mnoha
dalsi vylepseni, ktere to znacne zjednodusi. Vyhodou lokalizatoru
je, ze si pamatuje preklady a priste uz to nemusis znovu tukat.
Konec koncu, podivej se na:
http://www.clexpert(tec)cz/software/localize/
a stahni si treba tu volne siritelnou verzi...
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 ===
==============================================================bsDialog okno a TMenu
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 12.9.1998 17:29:50
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim,
nevite prosim nekdo jak pri pouziti stylu okna bsDialog
soucastne pouzit i cmp. TMenu.
V tomto rezimu okna je menu ignorovano a je nepouzitelne.
Diky za kazdy napad
S pozdravem
Pavel Malinsky
spiderland(zv)usa.net
Kompatibilita D4->D3
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 12.9.1998 17:46:26
Ahoj,
jeste nemel jsem tu cest zkusit D4 takze nemuzu nic tvrdit,
ale myslim ze by mohlo dojit k podobnym problemum jako D3->D2
(napr. prop. Font.CharSet apod.).
S pozdravem PM
spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: Petr Brant <pbrant(zv)softhome.net>
Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 13:02
P�edm�t: Kompatibilita D4->D3
>Ahoj vsichni,
>
>po nejake dobe mam zase dotaz. Mozna budu mit v praci D4, ale doma mam D3.
>Kdyz udelam v praci neco pod D4, budu to moci doma upravovat pod D3
>(vzhledem k verzim "standard" se nepredpokladaji zadne C/S aplikace.
>Predpokladaji se standardni aplikace a navic i patrne bez databazi)?
>
>Diky za vsechny odpovedi.
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************
>Uvolneni zdroje pres ukazatel
[*] Pavel Kral <kral(zv)afx(tec)cz> - 12.9.1998 18:30:35
Melo by to jit takto:
TImage(Data.Value).Free
Pokud je Value typu TObject, mohlo by stacit
Data.Value.Free, jak jsem se tady dozvedel, ale
nemam to vyzkousene.
Pavel
-----Original Message-----
Jak mam provest free takto vytvorenych instanci tridy TImage tj pres
pointer.
Dost dulezite /pro me/
Diky HeiJu
// funkce na vytvoreni promenneho poctu TImage
function TfoParametry.UdelejUkazatelNaObrazek(var Value:TlistItem):Boolean;
var
Filename:string;
begin
filename:=Value.subItems[0];
if SysUtils.FileExists(Filename)
then
begin
try
FObrazGz:=TImage.Create(self);
except
MessageDlg('Chyba p�i zpracov�n� grafick� zna�ky'+#13#10+Filename , mtError,
mbOk], end;
// FObrazGz = private promenna typu TImage
FObrazGz.Picture.LoadFromFile(filename);
Value.Data:=FObrazGz.Picture;
Result:=True;
end;
Kompatibilita D4->D3
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.9.1998 21:33:39
Obracene by to mohlo jit, ale takto urcite ne.
V D4 jsou nove komponenty, ale i nektere puvodni maji
nove vlastnosti a udalosti. Musel by ses jim vyhnout
a to neni realne. Ani potom vsak nelze uspech zarucit.
Na tvem miste bych se dotazal na Borland, zda si muzes
poridit kopii Delphi od zamestnavatele pouze za ucelem pokracovani
na praci pro zamestnavatele. Pokud neuspejes, tak si radeji
kup D4. Zamestnavtel ti jiste rad prispeje, kdyz pro nej pracujes i doma.
Jaro.
>Ahoj vsichni,
>
>po nejake dobe mam zase dotaz. Mozna budu mit v praci D4, ale doma mam D3.
>Kdyz udelam v praci neco pod D4, budu to moci doma upravovat pod D3
>(vzhledem k verzim "standard" se nepredpokladaji zadne C/S aplikace.
>Predpokladaji se standardni aplikace a navic i patrne bez databazi)?
>
>Diky za vsechny odpovedi.
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************Zruseni indexu v DBF
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 12.9.1998 21:54:35
Dekuji, moc mi to pomohlo.
Standa C
-----P�vodn� zpr�va-----
Od: Jozef Strn�dik <strnadik(zv)mbox.mrp(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 10. z��� 1998 19:35
P�edm�t: RE: Zruseni indexu v DBF
Je potrebne vynulovat 28 bajt v prislusnom DBF subore.
procedure OdpojIndex(const FileName: string);
var f: file;
b: byte;
begin
Assign(f, FileName);
Reset(f, 1);
Seek(f, 28);
b := 0;
BlockWrite(f, b, 1);
Close(f);
SysUtils.DeleteFile(ChangeFileExt(FileName, '.mdx'));
end;
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
-----P�vodn� zpr�va-----
Od: Stanislav Cerny [SMTP:s.cerny(zv)mod(tec)cz]
Odesl�no: 9. september 1998 21:08
Komu: DELPHI Distribution List
P�edm�t: Zruseni indexu v DBF
Zdravim vsechny,
Nedavno tu byla diskuse na tema vytvoreni indexu
u databazi DBF pomoci Table.AddIndex.
To funguje dobre, vytvori se indexni soubor *.MDX
a do databaze se zapise propojeni.
Problem nastane v pripade smazani tohoto indexniho
souboru. Potom ho nelze znovu vytvorit, dokud neni
zruseno ono propojeni.
Nevite jak ho zrusit primo z aplikace?
Diky za radu
Standa C.
RX - datum
[*] Petr Ma��k - 12.9.1998 22:16:52
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 23:40
P�edm�t: RX - datum
>Zdravim,
>pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale nevim jak
>to udelat ( pokud to tedy vubec jde ).
>Chtel bych tam mit nazvy dnu a mesicu v cestine.
>Predem diky za informace.
> Kuba
>---------------------------------------------------------------------------
-
>---------------------------------
>SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
>Klicperova 26, Brno, 628 00 �R
>Tel.:+420 5 44217819 Fax.:+420 5 44217529
>Mob:+420 603 429505
>mail: info(zv)saton(tec)cz
>---------------------------------------------------------------------------
-
>---------------------------------
>Na torry.rimini.com je posledni verze RxLib V 2.50 vcetne Patch a ceskych
resource
petr Marik
mail rtepema(zv)mbox.vol(tec)cz
>640*486 X 800*600
[*] moscovic <moscovic(zv)fred.utc.sk> - 13.9.1998 00:07:27
-----Original Message-----
From: lnovy(zv)unicos(tec)cz <lnovy(zv)unicos(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 11. september 1998 23:36
Subject: 640*486 X 800*600
>Vazeni delphisti,
>
> jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres
celou
>obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
>stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
>cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
>leve horni casti obrazovky.
>
> Diky moc za jakoukoliv radu
Zdar...
Nuz toto som kdesika objavil... Dufam, ze to nie je odveci, a ze to bude
fungovat...
Mas hned 2 moznosti:
1. Skus sa pozriet na metodu formulara ScaleBy (umoznuje rucnu zmenu
velkosti formulara a vsetkych jeho komponent).
2. (efektnejsia) Nastav vlastnost formulara Scaled na true a Delphi sa
postaraju o zvysok. Ak je totiz vlastnost Scaled nastavena na true, velkost
formulara sa riadi podla vlastnosti PixelsPerInch, ktora je nastavovana v
zavislosti na rozliseni a type fontov (Small Fonts/Large Fonts). Nezabudni
sak nastavit hodnotu vlastnosti AutoScroll na False, inac by sa zmenila iba
velkost obsahu formulara, ale okraj by ostal povodny.
Tvoj (Vas) verny Salmon Salmonovic
PS: daj mi vediet ci to funguje (nikdy som to nemal cas vyskusat)
bsDialog okno a TMenu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1998 03:00:30
> Pavel Malinsk� wrote:
>
> Zdravim,
>
> nevite prosim nekdo jak pri pouziti stylu okna bsDialog
> soucastne pouzit i cmp. TMenu.
> V tomto rezimu okna je menu ignorovano a je nepouzitelne.
>
Ahoj,
po zbeznem pohledu do zdrojaku VCL to vypada ze by stacilo priradit menu
pri vytvareni toho formulare, napr. pro MainMenu1 takhle:
procedure TForm1.FormCreate(Sender: TObject);
begin
SetMenu(Handle, MainMenu1.Handle);
end;
--
Petr Vones, amatersky programator
ACCESS versus BDE
[*] Jan Nov�k���r����n�?��? - 13.9.1998 08:04:38
Chyba se projevuje i pri zadani systemove database.
Access ma moznost nastavit jednak uzivatele + hesla
a take heslo pro databazi. Pokud se pouzije pouze
uzivatel+heslo tak to funguje. Kdyz se pouzije
jeste heslo databaze objevi se chyba o ktere pisi. Zkus to vyzkouset
a uvidis sam.
-----P�vodn� zpr�va-----
Od: Martin Dupal <mdupal(zv)vision(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 11. z��� 1998 21:02
P�edm�t: Re: ACCESS versus BDE
>Jan Nov�k wrote:
>>
>> Potyka se s nasledujicim problemem.
>> Pouzivam Delphi verze 3 a BDE 4.51 , pristupuji
>> k MS Acccessu nativnim pristupem .To mi funguje. Problem
>> nastane pokud databasi Accessu priradim heslo . Pak mi nejde
>> v programu ani databasovem exploreru
>> database otevrit a objevi se chyba "External exception EEFFACE."
>> Nevite nekdo cim to je a jak chybu odstranit ?
>> Dekuji za radu.
>
>Mam pocit, ze se chyba prestala projevovat po zadani
>systemove databaze do konfigurace BDE pro dany Alias.
>Neco o systemovych databazich je v helpu Accessu97.
>
>--
>+----------------------------------+
>| Ing. Martin Dupal |
>| address: Geislerova 6 |
>| Olomouc 2, 772 00 |
>| Czech republic |
>| tel.: +420/68/5313130 |
>| fax.: +420/68/5313132 |
>| http://www.vision(tec)cz |
>| mailto:mdupal(zv)vision(tec)cz |
>+----------------------------------+
>
>Platba za program do zahranici
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 13.9.1998 09:09:27
Ahoj,
Potrebuji zaplatit do USA cca $400 za software vcetne zdroju.
Autor je zasila emailem, tj. software neni na zadnem mediu.
Poradite jak je to s placenim cla, dane a moznosti odpisu ?
Pry jeste zalezi na tom, jestli je software samostatne fungujici,
ale to tady bohuzel neni.
Pro odpis vynalozenych prostredku pry musim si to nechat poslat
mezinarodni kuryrni sluzbou, ale to je zase drazsi.
Vypada to, ze jedina moznost platby dotycne firme je pres kartu
( tu si musim nechat tedy vystavit) a ne bankovnim prevodem.
Napiste prosim Vase zkusenosti se %subj. a jakym zpusobem jste provedli
platbu a odpis do ucetnictvi.
Sorry za non-Delphi tema, snad vase zkusenosti poradi i jinym.
Jaroslav KULHEIM
kulheim(zv)fp-brno(tec)cz
Lokalizace
[*] heinisch(zv)post(tec)cz - 13.9.1998 10:21:37
Dik za pomoc
HeiJu
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 12. z��� 1998 18:28
P�edm�t: Re: Lokalizace
>http://www.clexpert(tec)cz/software/localize/OffTopic: WWW Server ve Windows 95
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 13.9.1998 11:35:23
Vazeni,
otazku jsem polozil trochu jinak nez jsem chtel, ale stalo se.
Mam tedy nainstalovany Personal Web Server chci tedy spoustet
CGI skripty v Perlu. Vim, ze jsem se kdysi s necim podobnym
setkal u NT serveru a tam 'stacilo' do registru pridat:
HKEY_LOCAL_MACHINE -> System -> CurrentControlSet ->
-> Services ->W3Svc -> Parameters -> ScriptMap
polozku:
.pl "c:\perl\bin\perl.exe %s"
vlastne jak ma WWW server interpretovat skripty s koncovkou PL.
Toto jsem podobne udelal na mem pocitaci s Windows 95, ale
bohuzel to hlasi pri spusteni CGI skriptu v Perlu nasledujici:
HTTP/1.0 501 Nepodporovano
Podle hlasky usuzuji, ze ten muj WWW server nevi cim interpretovat
ty moje CGI skripty v Perlu.
Pokud vite nekdo jak na to, budu Vam nesmirne vdecen za kazdou
radu.
S pozdravem
Mgr. Jan Sluka, snipe(zv)mail.cybernet(tec)cz
Tkalcovska 856/B, 688 01 Uhersky Brod
tel: 0633/63 92 50, 0602/854 725
Platba za program do zahranici
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.1998 11:44:45
> Potrebuji zaplatit do USA cca $400 za software vcetne zdroju.
> Autor je zasila emailem, tj. software neni na zadnem mediu.
> Poradite jak je to s placenim cla, dane a moznosti odpisu ?
Na software a sluzby zaplacene v zahranici se clo ani DPH nevztahuje.
Z nosice dat se plati clo + DPH, z manualu jen DPH. Pokud jde
software e-mailem, nejsou nosice ani manualy a tedy to nema
s celnici co delat. Odepsat do ucetnictvi to samozrejme lze,
pokud mas fakturu - doklad.
> Pry jeste zalezi na tom, jestli je software samostatne fungujici,
> ale to tady bohuzel neni.
Kdo to povidal? To neni pravda, na nicem nezalezi.
> Pro odpis vynalozenych prostredku pry musim si to nechat poslat
> mezinarodni kuryrni sluzbou, ale to je zase drazsi.
Opet neni pravda. Kde jsi cerpal tyto informace? Never jim.
> Vypada to, ze jedina moznost platby dotycne firme je pres kartu
> ( tu si musim nechat tedy vystavit) a ne bankovnim prevodem.
Karta je samozrejme nejlepsi zpusob platby, protoze je rychly
a spolehlivy. Pokud firma neakceptuje bankovni prevod, vetsinou
lze nakoupit take pomoci seku, ktery se posle postou.
> Napiste prosim Vase zkusenosti se %subj. a jakym zpusobem jste provedli
> platbu a odpis do ucetnictvi.
Uplne normalne - kartou, sekem, jak je libo. A das si to do nakladu.
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 ===
==============================================================Uvolneni zdroje pres ukazatel
[*] heinisch(zv)post(tec)cz - 13.9.1998 12:09:12
ahoj all
diky za namet
jde o to zda timto nezrusim pouze ukazatel na objekt a ne tak samotny
objekt
coz by asi nemelo ale 100% to nevim.
po odeslani puvodni zpravy me napadlo pouzit objekt TList kde udrzuji
seznam vytvorenych objektu a pred ukoncenim jej prochazim a tyto objekty
rusim metodou
free. Ovsem pro mne by bylo lepsi je likvidovat pres primo pres ukazatel.
Principialne by to snad melo byt to same jako metoda free pres TLIST.
Potvrdi nebo poradi nekdo
diky HeiJu
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 12. z��� 1998 19:30
P�edm�t: Re: Uvolneni zdroje pres ukazatel
>Melo by to jit takto:
>
>TImage(Data.Value).Free
>
>Pokud je Value typu TObject, mohlo by stacit
>Data.Value.Free, jak jsem se tady dozvedel, ale
>nemam to vyzkousene.
>
>Pavel
>
>-----Original Message-----
>
>Jak mam provest free takto vytvorenych instanci tridy TImage tj pres
>pointer.
>
>Dost dulezite /pro me/
>
>Diky HeiJu
>
>
>// funkce na vytvoreni promenneho poctu TImage
>
>function TfoParametry.UdelejUkazatelNaObrazek(var Value:TlistItem):Boolean;
>var
>Filename:string;
>begin
>filename:=Value.subItems[0];
>if SysUtils.FileExists(Filename)
>then
> begin
> try
>
>FObrazGz:=TImage.Create(self);
>except
>MessageDlg('Chyba p�i zpracov�n� grafick� zna�ky'+#13#10+Filename ,
mtError,
>mbOk], end;
>
>// FObrazGz = private promenna typu TImage
>
>FObrazGz.Picture.LoadFromFile(filename);
>Value.Data:=FObrazGz.Picture;
>Result:=True;
>end;
>HSCROLL & VSCROLL
[*] heinisch(zv)post(tec)cz - 13.9.1998 12:11:07
Nejsem si jisty zda tato komponenta podporuje horizontalni scroll bar
HeiJu
-----P�vodn� zpr�va-----
Od: Kosta <kosta(zv)iol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 12:28
P�edm�t: HSCROLL & VSCROLL
>Omlouvam se za trapny dotaz.
>Ve vlastni komponente (potomek TCustomListBox) potrebuji za behu stridave
>zapinat vertikalni nebo horizontakni scroll bar a nejak nevim jak. Poradte
>prosim.
>
>Diky
>
>Kosta (kosta(zv)iol(tec)cz)
>Platba za program do zahranici
[*] heinisch(zv)post(tec)cz - 13.9.1998 12:35:12
AHOJ ALL
To je ale tema - sice trochu off pro Delphi, ale pro nas vsechny asi
potrebne
Na toto tema by se dal napsat / i zanadavat si / rozsahly clanek, ale to by
bylo lepsi od p. Vladimira Smejkala ktery je k tomu podstatne povolanejsi.
Moznostni je snad nekolik, ale jako nejschudnejsi pro ucely ceskeho ucetniho
a danoveho systemu , / vcetne toho co vim z praxe o FU a jeho nazorech o IT
/
jit se zasilkou a vytistenou fakturou / snad nejakou k zasilce prilozi v
elektronicke forme/ na celnici k procleni.
CLO+DPH
Pro prokazani uhrady / zvlast pokud vedes JU / je potreba nejaky solidni
doklad
s platebni kartou nemam zkusenosti
ale podle mne by melo jit sehnat od banky pisemny doklad o pohybu penez.
Dale se nesmi zapomenou ze touto akci zavedeme valutou pokladnu ci ucet a
musime se potykat s kursovymi
rozdily a podobnymi hovadinkami.
HeiJu
Legenda
p. Vladimir SMEJKAL - odbornik na pocitacove pravo
FU - Financni urad
IT- vse SOFT & HARD & Zbytek
JU - jednoduche ucetnictvi / pouze podle nazvu /
CLO - poplatek za zbozi prechazejici pres hranice statu / ovsem jak ktereho
/
DPH - nauka jak usetrit penize ktere vetsina zaplati / jsem bohuzel spatny
zak /
HeiJu - tak to jsem ja
P.S.
Pripadne nadavky za nemistne zertovani prosim zasilejte primo na
heinisch(zv)post(tec)cz
-----P�vodn� zpr�va-----
Od: Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 13. z��� 1998 2:00
P�edm�t: Platba za program do zahranici
>Ahoj,
>Potrebuji zaplatit do USA cca $400 za software vcetne zdroju.
>Autor je zasila emailem, tj. software neni na zadnem mediu.
>Poradite jak je to s placenim cla, dane a moznosti odpisu ?
>Pry jeste zalezi na tom, jestli je software samostatne fungujici,
>ale to tady bohuzel neni.
>Pro odpis vynalozenych prostredku pry musim si to nechat poslat
>mezinarodni kuryrni sluzbou, ale to je zase drazsi.
>Vypada to, ze jedina moznost platby dotycne firme je pres kartu
>( tu si musim nechat tedy vystavit) a ne bankovnim prevodem.
>
>Napiste prosim Vase zkusenosti se %subj. a jakym zpusobem jste provedli
>platbu a odpis do ucetnictvi.
>
>Sorry za non-Delphi tema, snad vase zkusenosti poradi i jinym.
>
>Jaroslav KULHEIM
>kulheim(zv)fp-brno(tec)cz
>
Platba za program do zahranici
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 13.9.1998 13:35:24
Myslim, ze v tomto pripade se nejedna ani o clo, ani o DPH. Tedy pokud je to
pro tebe a ne pro dalsi prodej.
Zatim jsem vsechny programy platil jen pres banku a doklad o zaplaceni (BU +
kopii platebniho dokladu) jsem dal do ucta.
Co se tyce odpisu - primo do nakladu. Software byl do nedavna odpisovatelny
az od hranice 40.000,-. Ted byly nejake zmeny a nevim jestli se tahle
hranice nezvysovala. Ale tuto hranici mailem zasilany software asi hned tak
nepreleze.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 13. z��� 1998 10:19
P�edm�t: Platba za program do zahranici
>Ahoj,
>Potrebuji zaplatit do USA cca $400 za software vcetne zdroju.
>Autor je zasila emailem, tj. software neni na zadnem mediu.
>Poradite jak je to s placenim cla, dane a moznosti odpisu ?
>Pry jeste zalezi na tom, jestli je software samostatne fungujici,
>ale to tady bohuzel neni.
>Pro odpis vynalozenych prostredku pry musim si to nechat poslat
>mezinarodni kuryrni sluzbou, ale to je zase drazsi.
>Vypada to, ze jedina moznost platby dotycne firme je pres kartu
>( tu si musim nechat tedy vystavit) a ne bankovnim prevodem.
>
>Napiste prosim Vase zkusenosti se %subj. a jakym zpusobem jste provedli
>platbu a odpis do ucetnictvi.
>
>Sorry za non-Delphi tema, snad vase zkusenosti poradi i jinym.
>
>Jaroslav KULHEIM
>kulheim(zv)fp-brno(tec)cz
>
>Delphi 4.0 & RX
[*] Dusan_Jirasko(zv)sameleon.fido(tec)cz (Dusan Jirasko) - 13.9.1998 14:08:42
Ahoj All ..
Podarilo se nekomu zkompilovat RX knihovny pro D4 ? Nebo uz jsou RX primo pro
novy Delphi ?
ByE, [ E-Mail : Dusan(zv)Sameleon.Fido(tec)cz ]
Tameleon [HGC-Team] [ICQ] [ http://www.psynet.net/Sameleon ]
... Lepsi byt zdravy a bohaty nez chudy a nemocny ...Uvolneni zdroje pres ukazatel
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.9.1998 14:34:45
Free se vola jako metoda objektu, takze se tim zrusi
cely objekt.
Proveri se to snadno: deklarujte objekt, ktery obsahuje treba
1 MB dat, vytvorte ho, vlozte do nekolika poli Data, sledujte ubytek
volne pameti a potom je zruste.
vyraz TNejakaTrida(Ukazatel) pretypuje pointer na objekt,
coz je mozne, protoze kazda promenna obsahujici instanci
objektu je vlastne ukazatel na objekt.
Zdravim
Pavel Kral
-----Original Message-----
diky za namet
jde o to zda timto nezrusim pouze ukazatel na objekt a ne tak samotny
objekt
coz by asi nemelo ale 100% to nevim.
po odeslani puvodni zpravy me napadlo pouzit objekt TList kde udrzuji
seznam vytvorenych objektu a pred ukoncenim jej prochazim a tyto objekty
rusim metodou
free. Ovsem pro mne by bylo lepsi je likvidovat pres primo pres ukazatel.
Principialne by to snad melo byt to same jako metoda free pres TLIST.
Potvrdi nebo poradi nekdo
diky HeiJu
-----P�vodn� zpr�va-----
>Melo by to jit takto:
>
>TImage(Data.Value).Free
>
>Pokud je Value typu TObject, mohlo by stacit
>Data.Value.Free, jak jsem se tady dozvedel, ale
>nemam to vyzkousene.
>
>Pavel
>
kalkulacka vo W95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1998 14:45:50
> Ing. J�n Kuch�r wrote:
>
> Caute
> Mam nasledovny problem. Pomocou prikazu winexec volam v D3 z W95 kalkulacku.
> Po vypocitani nejakych hodnot ale potrebujem aby program zistil posledne cislo
> na kalkulacke a zapamatal si ho, poradte ako prenesiem toto cislo do svojho
> programu,be z toho aby ho uzivatel znova zadaval.
Ahoj,
mas nekolik moznosti:
1. Kalkulacka umoznuje ulozit hodnotu do schranky.
2. Precist primo hodnotu z Kalkulacky, slo by to udelat nejak takhle, problem
ale vznikne v pripade ze mas spustenych vice kalkulacek a navic to nemusi
fungovat napr ve Win98 nebo NT protoze tam muze byt kalkulacka jinak udelana:
function GetWinCalcValue(var Value: Extended): Boolean;
var
CalcWin, DisplayWnd: HWnd;
C: array[0..20] of Char;
begin
CalcWin := FindWindowEx(GetDesktopWindow, 0, 'SciCalc', nil);
Result := (CalcWin <> 0);
if Result then
begin
DisplayWnd := GetDlgItem(CalcWin, 414);
if not IsWindowVisible(DisplayWnd) then
DisplayWnd := GetDlgItem(CalcWin, 413);
if not IsWindowVisible(DisplayWnd) then
Result := False
else
begin
GetWindowText(DisplayWnd, C, Sizeof(C));
try
Value := StrToFloat(C);
except
Result := False;
end;
end;
end;
end;
3. Pokud ti staci jen zakladni matematicke operace tak v RxLib mas primo
komponentu Calculator a taky TEdit ktery ma u sebe tlacitko kterym muzes
kalkulacku primo vyvolat. Toto reseni me prijde asi nejlepsi.
--
Petr Vones, amatersky programator
Ikona aplikace...
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.9.1998 16:07:26
Hi,
mozna by ses mel podivat do nastaveni projektu, tam je (alspon v
Builderu) moznost nastavit ikonu aplikace.
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: Burger Tom� [SMTP:tomasb(zv)manwe.mius(tec)cz]
> Odesl�no: 11. z��� 1998 12:35
> Komu: PinkNet Delphi (el. adresa)
> P�edm�t: Ikona aplikace...
>
> ...tak jsem chtel udelat uzivatelum radost a pridal jsem do aplikace
> vlastni
> ikonu, kterou jsem chtel nahradit ten defaultni anticky plapolak...
> Ikonku jsem nakreslil a pomoci LoadIcon vlozil do vlastnosti projektu.
> Ale
> ouha - v kompilatu mam obe ikony a pouziva se porad ta plapolaci...
> V res je jen jedna ikona, exac jsem zkusil smazat, ale nic
> nepomohlo...
> Co o tom vite vy...?
>
> Tomas
>
>
> --------------------------------------
> Tomas.Burger(zv)mius(tec)cz
> Tomas.Burger(zv)sms.paegas(tec)cz
> http://www.mius(tec)cz/; http://www.delphi(tec)cz/
> http://www.sever(tec)cz/; http://www.teplice(tec)cz/
> ICQ: 3908757
> --------------------------------------
> Database Login
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.9.1998 16:09:27
Hi,
tak nejlepsi bude, kdyz si svou vlastni hlasku zmenis na prihlasovaci
dialog. Pak to muze byt i cesky, a muzes tam mit mnohem vic veci (treba
podle uzivatele nastavovat polohu oken....)
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: Jan Nov�k [SMTP:csobta(zv)mbox.vol(tec)cz]
> Odesl�no: 11. z��� 1998 13:36
> Komu: Delphi
> P�edm�t: Database Login
>
> Cau vespolek.
> Potreboval bych poradit /mam Delphi 3+ Interbase./
> Kdyz se pripojuji k InterBase databasi objevi se standardni dialog
> --------------------------------------------------
> Database login
> User Name : SYSDBA
> Password : masterkey . To je jasne.
> -- OK--- ----Cancel---
> ----------------------------------------------------
> KDYZ zvolim Cancel program pokracuje dal , pouze se objevi chyba.
> Kdyz dam spatne heslo take se objevi chyba a program pokracuje dal.
> Jak se da osetrit , aby pri stisku Cancel se program neprovadel
> a pri spatnem, hesle se objevila moje vlastni hlaska.
> Diky za radu.
> RX - datum
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.9.1998 16:37:41
Hi,
Myslim, ze to je zavisle na jazykovem prostredi Windows. Jaky mas
default prostredi?
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: info(zv)saton(tec)cz [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 29. srpna 1998 23:59
> Komu: DELPHI Distribution List
> P�edm�t: Re: RX - datum
>
> Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v principu
> je to
> jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> protoze
> napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je
> cesky. Co
> ale neni cesky jsou nazvy dnu a mesicu.
> Kde tohle najdu??
> Kuba
> ----------------------------------------------------------------------
> ------
> ---------------------------------
>
>
> >SATON Glass s.r.o. wrote:
> >>
> >> Zdravim,
> >> pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale
> nevim
> jak
> >> to udelat ( pokud to tedy vubec jde ).
> >> Chtel bych tam mit nazvy dnu a mesicu v cestine.
> >> Predem diky za informace.
> >
> >Ahoj,
> >
> >k RxLib existuji ceske resource, meli by byt dostupne na
> http://rx.demo.ru,
> >nebo hledej soubor rx250cze.zip na DSP.
> >
> >--
> > Petr Vones, amatersky
> programator
> >
> >
> kalkulacka vo W95
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.9.1998 16:44:18
Hi,
radeji pouzij RXLib, tam maji kalkulacku, a jeji vysledek si muzes
normalne precist. O cisle z te Win by se dalo rict asi to, ze se da
kopirovat a vlozit jako text. To ale znamena poslat ji nejakou
zpravu(y), takze to je mnohem jednodussi pouzit RX.
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: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 07. z��� 1998 12:54
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: kalkulacka vo W95
>
> Caute
> Mam nasledovny problem. Pomocou prikazu winexec volam v D3 z� W95
> kalkulacku. Po vypocitani nejakych hodnot ale potrebujem aby program
> zistil posledne cislo na kalkulacke a zapamatal si ho, poradte ako
> prenesiem toto cislo do svojho programu,be z toho aby ho uzivatel
> znova zadaval.
> ����������������������������������������������������������������������
> ������������������������� Dik
> �
>
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko�ice
> Letn� 9
> 040 01 Ko�ice
> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk> Transparentni ikona
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1998 17:51:53
vtulapvo wrote:
>
> Ahoj
> Poradi mi nekdo? V Delphi bych potreboval na obrazovce generovat
> transparentni ikony, aby se pohybovaly a mohl jsem mysi cist jeji
> polohu, respektive je po kliknuti nejakym zpusobem ovladat a cist jejich
> atributy(vlastnosti).
Ahoj,
moc tomu nerozumim, ale ikony muzes vlozit do ImageListu a pak je vykreslovat
pomoci jeho metody Draw.
--
Petr Vones, amatersky programator
HSCROLL & VSCROLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1998 17:54:56
Kosta wrote:
>
> Omlouvam se za trapny dotaz.
> Ve vlastni komponente (potomek TCustomListBox) potrebuji za behu stridave
> zapinat vertikalni nebo horizontakni scroll bar a nejak nevim jak. Poradte
> prosim.
Ahoj,
S vertikalnim scrollbarem to bude horsi, budes si muset odvodit novou komponetu
a prepsat CreateParams:
procedure TXYListbox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style and (not WS_VSCROLL);
end;
Horizontani scrollbar muzes zobrazit pomoci zpravy LB_SETHORIZONTALEXTENT:
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 300, 0);
--
Petr Vones, amatersky programator
Platba za program do zahranici
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.1998 18:04:07
> Myslim, ze v tomto pripade se nejedna ani o clo, ani o DPH. Tedy pokud je to
Ano, to je pravda.
> pro tebe a ne pro dalsi prodej.
To uz neni pravda. Je jedno, jestli je to pro spotrebu nebo pro prodej,
na vstupu zadne clo ani DPH u software neplatis. Neco jineho je to
na vystupu - pri prodeji...
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 ===
==============================================================Farby v TRichEdit pripadne TMemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.9.1998 18:05:37
moscovic wrote:
>
> Zdar seci,
>
> potrebujem spravit nieco ako textovy editor, ktory by podla obsahu menil
> farbu casti napisaneho textu. Napriklad (upozornujem je to sprosty priklad)
> ked uzivatel napise "red" aby dany text zmenil farbu na cervenu atd. Kedze
> TMemo nepozna farby (teda nic o tom neviem) rozhodol som sa pouzit
> TRichEdit... Ma sice naviac aj nastavenie velkosti pisma atd. ale farby
> pozna.
>
> Zial neviem pristupovat k attributom textu inac ako SelAttributes, co zacalo
> byt nepouzitelne, pretoze ked pouzijem SelAttributes tak to blika ako keby
> to za to platili...
>
> Takze moja otazka: Da sa pristupovat k attributom textu pristupovat aj inac
> ako cez SelAttributes, prip. ako si upravit inu komponentu (napr. TMemo) tak
> aby sa spravala tak ako si ja predstavujem.
>
> Vopred vdaka za vsetky napady.
Ahoj,
pokud chces vytvorit neco jako zvyraznovani syntaxe pomoci RichEditu tak ten na
to prilis vhodny neni, navic pri vetsich souborech je to dost pomale. Existuji
nektere hotove komponenty, ale jsou komercni. Treba velmi dobre dle dema vypada
TSyntaxMemo.
--
Petr Vones, amatersky programator
RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 13.9.1998 18:42:07
Ceske. Myslis, ze se nazvy tahaji ze systemu? To se mne moc nezda.
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
Hi,
Myslim, ze to je zavisle na jazykovem prostredi Windows. Jaky mas
default prostredi?
> Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v principu
> je to
> jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> protoze
> napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je
> cesky. Co
> ale neni cesky jsou nazvy dnu a mesicu.
> Kde tohle najdu??
> Kuba
> ----------------------------------------------------------------------
Uvolneni zdroje pres ukazatel - Konec
[*] heinisch(zv)post(tec)cz - 13.9.1998 18:43:03
Diky kdyz se to vysvetli je to fajn.
HeiJu
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 13. z��� 1998 15:34
P�edm�t: Re: Uvolneni zdroje pres ukazatel
>Free se vola jako metoda objektu, takze se tim zrusi
>cely objekt.
>Proveri se to snadno: deklarujte objekt, ktery obsahuje treba
>1 MB dat, vytvorte ho, vlozte do nekolika poli Data, sledujte ubytek
>volne pameti a potom je zruste.
>
>vyraz TNejakaTrida(Ukazatel) pretypuje pointer na objekt,
>coz je mozne, protoze kazda promenna obsahujici instanci
>objektu je vlastne ukazatel na objekt.
>
>
>Zdravim
>
>Pavel Kral
>
>
>-----Original Message-----
>
>
>diky za namet
>
>jde o to zda timto nezrusim pouze ukazatel na objekt a ne tak samotny
>objekt
>coz by asi nemelo ale 100% to nevim.
>
>po odeslani puvodni zpravy me napadlo pouzit objekt TList kde udrzuji
>seznam vytvorenych objektu a pred ukoncenim jej prochazim a tyto objekty
>rusim metodou
>free. Ovsem pro mne by bylo lepsi je likvidovat pres primo pres ukazatel.
>Principialne by to snad melo byt to same jako metoda free pres TLIST.
>
>Potvrdi nebo poradi nekdo
>
>diky HeiJu
>
>
>
>-----P�vodn� zpr�va-----
>>Melo by to jit takto:
>>
>>TImage(Data.Value).Free
>>
>>Pokud je Value typu TObject, mohlo by stacit
>>Data.Value.Free, jak jsem se tady dozvedel, ale
>>nemam to vyzkousene.
>>
>>Pavel
>>
>RX - datum
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.9.1998 19:15:26
Myslim ze ano, protoze mam neco podobneho od autora \Bourmad Mehdi\ a
tam tomu tak je.....
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: info(zv)saton(tec)cz [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 13. z��� 1998 18:42
> Komu: DELPHI Distribution List
> P�edm�t: Re: RX - datum
>
> Ceske. Myslis, ze se nazvy tahaji ze systemu? To se mne moc nezda.
> ----------------------------------------------------------------------
> ------
> ---------------------------------
> SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn�
> techniky
> Klicperova 26, Brno, 628 00 �R
> Tel.:+420 5 44217819 Fax.:+420 5 44217529
> Mob:+420 603 429505
> mail: info(zv)saton(tec)cz
> ----------------------------------------------------------------------
> ------
> Hi,
>
> Myslim, ze to je zavisle na jazykovem prostredi Windows. Jaky mas
> default prostredi?
>
> > Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v
> principu
> > je to
> > jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> > protoze
> > napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je
> > cesky. Co
> > ale neni cesky jsou nazvy dnu a mesicu.
> > Kde tohle najdu??
> > Kuba
> >
> ----------------------------------------------------------------------
> Platba za program do zahranici
[*] heinisch(zv)post(tec)cz - 13.9.1998 20:18:30
Pokud se chcete neco dovedet o teto problematice neco blizsiho doporucuji
clanek
v Soft. novinach �. 9/98 strana 88
HeiJu
Lokalizace v Delphi 2
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 13.9.1998 21:17:57
Nezna nekdo program nebo komponenty pro lokalizaci
v Delphi 2 ? Pokud mozno s nejakym externim editorem,
abych mohl preklad zadat nekomu jinemu.
Muze byt i shareware.
Radim Kunz
Ikona aplikace...
[*] micrel <micrel(zv)bohem-net(tec)cz> - 13.9.1998 21:27:53
Ahoj,
Ikonu aplikace je potreba nastavit jako hlavn� (mainicon) ktera ma interni
cislo 0 dalsi ikony maji 1, 2, .. n. Hlavni ikona se nastavi pro cely
projekt (a je v nahledu hned videt). Kazda dalsi ikona je brana prave od
mainicon.
Jaro micrel(zv)micrel(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
Odesl�no: 13. IX 1998 15:07
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Ikona aplikace...
Hi,
mozna by ses mel podivat do nastaveni projektu, tam je (alspon v
Builderu) moznost nastavit ikonu aplikace.
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: Burger Tom� [SMTP:tomasb(zv)manwe.mius(tec)cz]
> Odesl�no: 11. z��� 1998 12:35
> Komu: PinkNet Delphi (el. adresa)
> P�edm�t: Ikona aplikace...
>
> ...tak jsem chtel udelat uzivatelum radost a pridal jsem do aplikace
> vlastni
> ikonu, kterou jsem chtel nahradit ten defaultni anticky plapolak...
> Ikonku jsem nakreslil a pomoci LoadIcon vlozil do vlastnosti projektu.
> Ale
> ouha - v kompilatu mam obe ikony a pouziva se porad ta plapolaci...
> V res je jen jedna ikona, exac jsem zkusil smazat, ale nic
> nepomohlo...
> Co o tom vite vy...?
>
> Tomas
>
>
> --------------------------------------
> Tomas.Burger(zv)mius(tec)cz
> Tomas.Burger(zv)sms.paegas(tec)cz
> http://www.mius(tec)cz/; http://www.delphi(tec)cz/
> http://www.sever(tec)cz/; http://www.teplice(tec)cz/
> ICQ: 3908757
> --------------------------------------
>OffTopic: WWW Server ve Windows 95
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 13.9.1998 22:47:15
Ahoj,
> Personal Web Server je i na instalacnim CD Win95 OSR2, v Ovl.panelelech:
> Sit -> Pridat -> Sluzba -> Osobni WWW server. Po pridani u neho jeste budes
> muset ve vlastnostech nastavit mistni zabezpeceni na false, jinak to porad
> hlasi chybu pri bootovani systemu.
>
> --
> Petr Vones, amatersky programator
Nevite nekdo v teto souvislosti, jak jej rozchodit na PC W95,
ktere ma dial-up napojeni na internet?
Respektive, jak spravne nakonfigurovat TCP/IP, aby to fungovalo.
Bud mi chodi lokalni server, a nejde se pripojit do internetu
(nefunguje TCP/IP), nebo naopak.
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: drvota(zv)zds(tec)cz (Win1250/ISO-8859-2)
http://www.zds(tec)cz
*-----------------------------------------------*Zpravy od modemu
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 13.9.1998 22:47:15
> Dobry den,
> potrebuji sledovat spojeni na modemu v Delphi 1 (ukonceni spojeni na
> aktivni lince). Je mozne ziskat nekde funkcni priklad nebo demo ? D�kuji.
Mimochodem, existuje moznost sledovat pomoci modemu,
jestli se z paralelniho telefonniho pristroje (pruchozi modem
nebo rozdvojka) vytaci nejake cislo (a jake), jestli doslo
ke spojeni, jak dlouho trvalo, atd. ???
Proste takovy maly spion na telefonni lince :-) ,
tarifikator z obycejneho modemu.
Jestli ano, JAK?
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: drvota(zv)zds(tec)cz (Win1250/ISO-8859-2)
http://www.zds(tec)cz
*-----------------------------------------------*Lokalizace v Delphi 2
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.1998 23:56:53
> Nezna nekdo program nebo komponenty pro lokalizaci
> v Delphi 2 ? Pokud mozno s nejakym externim editorem,
> abych mohl preklad zadat nekomu jinemu.
> Muze byt i shareware.
No vzdyt to umi Jazykovy lokalizator od Zbyska Hlinky:
http://www.clexpert(tec)cz/software/localize/
Delphi 2 neumi verze 3, ktera je free, ale jen verze 4,
ktera je shareware. Je potreba mit retezce v resource
a pak to prelozit pod NT a soupnout to primo zpet do
programu - s lokalizatorem zadny problem. V ramci
licence muzes program nahrat prekladateli, ktery jej
pouzije pro preklad a vrati ti prelozene soubory, slovnik
apod. A na to nemusi mit NT, na to staci W95.
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 ===
==============================================================RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 00:39:10
Muzete se nekdo, kdo pracuje s knihovnou RX podivat jestli po pocesteni
(pouziti ceskych resource) zustavaji v DBDateEdit nazvy mesicu a dnu v
anglictine? Moc Diky.
Kuba
----------------------------------------------------------------------------
---------------------------------
Myslim ze ano, protoze mam neco podobneho od autora \Bourmad Mehdi\ a
tam tomu tak je.....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> Ceske. Myslis, ze se nazvy tahaji ze systemu? To se mne moc nezda.
> ----------------------------------------------------------------------
> Hi,
>
> Myslim, ze to je zavisle na jazykovem prostredi Windows. Jaky mas
> default prostredi?
>
> > Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v
> principu
> > je to
> > jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> > protoze
> > napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je
> > cesky. Co
> > ale neni cesky jsou nazvy dnu a mesicu.
> > Kde tohle najdu??
> > Kuba
SQL - vyber dle datumu
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 01:01:12
Zdravim,
vim ze se o tom v konferenci uz debatovalo, ale nepodarilo se mi to v
archivu najit.
Mam Pdox databazi a v ni polozku typu Date. Potreboval bych v SQL dotazu dle
teto polozky vybirat. Nedari se mi.
Je to zajimave, jak si uvedomuji nikdy jsem zatim test dle celeho datumu
nepotreboval. Vzdy mne stacil jen dotaz na rok.
Diky za kazdou radu.
Kuba
----------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
Diskety 8"
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 14.9.1998 07:31:20
-----Puvodni zprava-----
Od: Jaro
Odeslano: 11. zaoi 1998 8:20
Komu: DELPHI Distribution List
Poedmit: Fw: Diskety 8"
Vazeni pratele
nevite o nekom, kdo umi precist disketu 8", dve strany, 40 stop, 9 sektoru,
512 bajtu na sektor?
Za jakoukoliv informaci predem dekuji.
Vaclav Krmela
krmela(zv)stapro(tec)cz
krmela(zv)sinea(tec)cz
[Petr Brant]
Zkus se obratit na nejakou velmi malou a velmi chudou stredni skolu. Tam se
kdysi dodavaly zhruba 30kilove (to je vaha, ne kapacita :) ) mechaniky,
ktere pracovaly s 8" disketami ve spojeni s "pocitacem" IQ 151. Treba ji
jeste nekde maji.
Mnoho stesti
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
OffTopic: WWW Server ve Windows 95
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 14.9.1998 08:09:13
> muzete mi nekdo poradit, jak nejjednoduseji
> testovat CGI skripty v Perlu ve Windows 95?
> Tj. exituje nejaky WWW server, ktery lze
> rozchodit na lokalni stanici?
Osobne pouzivam OmniHTTPd Professional od firmy Omnicron Technologies
(http://www.omnicron.ab.ca/httpd/)
Je rychly, zvladne dost klientu, nezdrzuje, v pameti moc nezabira (cca
1.5MB), podporuje standard CGI (exe i Perl, da se nastavit prakticky
cokoliv), navic podporuje i WIN-CGI (pro to se skvele pise v Delphi), umi
delat virtulani servery (pod jinym jmenem taha data z jineho adresare, sam
tak mam na jednom stroji vytvoreny 4 nezavisle weby), docela dobre ma
vyreseno zabezpeceni pristupu. Fakticky proti PS od MS naprosta spicka
(akorat teda nepodporuje FP Extensions). Zatim jsem s nim nemel zadne
problemy. (PS jsem zkousel 14 dni, a furt neco nefungovalo).
Jo, a je zdarma (teda casove omezena betaverze (cca pul roku), dle
informaci od Omnicronu "vzdycky bude k dispozici casove omezena beta
nejnovejsi verze OmniHTTPd zdrama", ale muzete si koupit ne-beta verzi (s
podrobnym manualem (k bete je strucny, ale dostacujici), podporou atd.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: pavel.zichovsky(zv)sms.paegas(tec)cz (120 znaku)
ICQ: 13484112
PGP podporovano a vitano
Nulova hodnota Date
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 14.9.1998 08:09:22
> > > > Navic TDateTimePicker ma tu nevyhodu, ze pokud by si chtel program
> > > > distribuovat, potrebujes na cilovem pocitaci knihovnu COMCTL32.DLL
> > verze
> > > > 4.7 a vyssi (je to ve Win95 OSR 2 nebo v PlusPacku).
> > >
> Prosimte, nech si sve trapne impertinence, ktere ti mozna pripadaji
> velmi vtipne, od cesty a vysvetli mi, v cem spociva ta nevyhoda, kterou
> uvadis na prvnim radku mnou quotovaneho textu. Ty jsi neupozornoval,
> ze ji tam potrebuje, ale uvedl jsi to jako nevyhodu. Ja se te slusne
> (uz podruhe) ptam, v cem spociva ta nevyhoda, a pridavam sve stanovisko,
> kde tvrdim, ze me to jako nevyhoda nepripada. Chci znat tvuj nazor,
> ne nejake radoby chytre vyplody 4-leteho synka...
>
Nevyhoda spociva prave v tom, ze ji MUSI sirit, pokud nema jistotu, ze na
cilovem pocitaci je. Tvrdis, ze nejakejch 400kB se v megabajtech BDE
ztrati, ale co kdyz budu chtit distribuovat program, kterej bude mit radove
150kB, to uz je pak 400kB pekne dost navrch ...
Sorry, ale nemusis se hnedka rozcilovat, kdyz neco nevis ;-)
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
Jeste jednou Popup Menu.
[*] V�t�zslav Gazda������u��n�?��? - 14.9.1998 08:15:13
Pomoci metody Delete odstranis item pouze z komponenty TPopupMenu, ale
samotna komponenta TMenuItem stale existuje. Musis proto zavolat jeste
TMenuItem.Free. To ty neudelas a potom se snazis vytvorit novou se stejnym
nazvem a to samozrejmne nejde. To znamena, ze ta vymazavaci cast by mohla
vypadat treba takto:
while PMenu101.Items.Count > 0 do PMenu101.Items[0].Free;
Vita
Nenapadny puvab multithreadingu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 14.9.1998 08:17:34
V knizce "Windows pro pokrocile a experty" jsem nasel jakes takes
uspokojujici
vysvetleni. Mohlo by to byt tim, ze proces na popredi ma ve Win95 vyssi
prioritu nez
ty na pozadi (ve WinNT ma akorat vice casu, zalezi na nastaveni NT). A
protoze
planovac ve Win95 napred pousti procesy s vyssi prioritou a teprve potom
(je-li cas) ty
ostatni, da prednost memu threadu, ten se ale tvari jako velmi zamestnany a
tak
dostane procesor i priste. Takovahle logika se mi ale moc nelibi. V knizce
navic
doporucuji dat Sleep(0) coz zpusobi jen prepnuti bez cekani. Ja se spise
bojim
toho indikatoru CPU, ktery takto ukazuje 100%. Nerad bych, aby mi zase
uzivatele
hodili na hlavu, ze muj 32bit program jim sezral veskery vykon.
Martin
>> Zacinam se trochu vice zabyvat multithreadingem pod Win95 a narazil jsem
>> na neco, co nemohu nejak uspokojive vysvetlit.
>>
>> Mejme jednoduchy thread s timto kodem:
>> procedure TThread1.Execute;
>> begin
>> repeat
>> {Sleep(1);}
>> until Terminated;
>> end;
>>
>> Pri tomto kodu hlasi nejruznejsi CPU monitory 100% vyuziti procesoru
>> (prioritu nemenim).
>> Jakmile vsak odstranim zavory vse se ustali na cca 20%, zavisi na typu
>> procesoru.
>> Zda se to byt divne, i bez toho Sleep by to melo krepcit stejnou
rychlosti
>> ?! Nebo ne !?
>> Staci tak malo?!
>>>Priklad se bude na prvni pohled chovat stejne kdyz v metode
TDemoThread.Execute
>pouzijes Sleep nebo Delay. Nicmene mezi obema zpusoby je zasadni rozdil.
Pri
>pouziti Delay system stale prideluje cas procesoru danemu threadu i kdyz v
tu
>dobu vykonava Delay vlastne zbytecnou cinnost (cekani) a tim zatezuje
procesor.
>Pokud ale pouzijes Sleep (coz je spravne reseni) tak tim pozastavis
provadeni
>daneho threadu po zadanou dobu a system mu neprideluje zadny cas a proto
nedochazi
>ke zbytecne zatezi procesoru.
>
>Jinak na tema "Co vsechno jste chteli vedet o threadech a bali jste se
zeptat"
>doporucuji knizku "Windows pro pokrocile a experty", jsou tam detailne
popsany
>i dalsi veci tykajici se jadra systemu Win32 (procesy, kriticke sekce,
mutexy,
>asynchronni operace atd...) Ma 900 stran, jsou tam i priklady na CD, jsou
vsak
CGI script help
[*] SIMKOVIC Peter <simicek(zv)vadium.sk> - 14.9.1998 08:29:59
Zdravim vsetkych,
mam na Vas jenu malu otazku. Nevedel by mi tu niekto z Vas poradit ohladom
vyroby CGI scriptu v Delphi. Ide mi hlavne o tu cast kodu, kde program
prebera hodnotu z WEBU (napriklad z formulara). Akym sposobom som schopny
precitat nejaku polozku do mojho programu a po vyhodnoteni ako mozem nejaky
vysledok odoslat do WEB browsera k danemu klientovi.
Peter SIMKOVIC
http://simi.vadium.sk
simkovic(zv)vadium.sk
simicek(zv)vadium.sk
640*486 X 800*600
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 14.9.1998 08:35:49
> jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres celou
> obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
> stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka pres
> cely monitor, ale vsechny buttony a edity zustanou ve stejne velikosti v
> leve horni casti obrazovky.
>
> Diky moc za jakoukoliv radu
Je to jen takovy napad, ale pokud je ten formular jen jeden/dva, tak by asi
slo to, ze by jsi si udelal dva/ctyri formulare, na zacatku aplikace by se
zjistilo rozliseni obrazovky a podle toho by jsi si pomoci create vytvoril
ten ci onen formular. Ale jak rikam, je to jen takovy plac, plac, ...
Dobra.
Lokalizace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.1998 08:40:33
heinisch(zv)post(tec)cz wrote:
> prelozim primo zdrojove resource string v souborech *.pas adresari
> \delphi\lib
> a provedu uplny preklad. to funguje pouze pokud si nechci projekt
> nabalickovat
Brrrr.
> V pripade ze chci pouzivat balicky tak se pouzije original *.DPL ktere
> ale nejdou v editovat v Component \ install packages a tim padem ani
> rekompilovat.
>
> Kdo poradi ?
:-) Treba ja. Do balicku se dostanes mym Lokalizatorem.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
640*486 X 800*600
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.1998 08:40:33
Michal Konicek wrote:
> > jak mam udelat, aby muj program, ktery pisi na 640*480 (a mam ho pres
> > celou
> > obrazovku ) mohl byt i na 800*600 po cele obrazovce. Momentalne se mi po
> > stisknuti tlacitka na maximalizaci (u 800*600) zvetsi sice obrazovka
> > pres cely monitor, ale vsechny buttony a edity zustanou ve stejne
> > velikosti v leve horni casti obrazovky.
> >
> Zadna jednoducha rada na todle neni!
Je. Delphi 4 a ukotvovani komponent, nebo metoda ScaleBy.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
bsDialog okno a TMenu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 14.9.1998 08:48:22
Ahoj, myslim, ze v "Mistrovstvi v Delphi" jsem cetl, ze kvuli nejake chybe
Windows (nebo co) to Delphi proste neudelaji, ale da se to udelat pomoci
API (osidit Delphi), ale to menu potom za moc nestoji.
Dobra.
----------
Od: Pavel Malinsk�[SMTP:spiderland(zv)usa.net]
Odesl�no: 12. z��� 1998 17:29
Komu: DELPHI Distribution List
P�edm�t: bsDialog okno a TMenu
<<Soubor: ATT00001.html>>
Zdravim,
nevite prosim nekdo jak pri pouziti stylu okna bsDialog
soucastne pouzit i cmp. TMenu.
V tomto rezimu okna je menu ignorovano a je nepouzitelne.
Diky za kazdy napad
S pozdravem
Pavel Malinsky
spiderland(zv)usa.net
SQL - vyber dle datumu
[*] Jan Fiala <fiala(zv)iname(tec)com> - 14.9.1998 09:03:10
pokud datum pouzivas jako parametr, tak to jde normalne pres
Query.ParamByName('Datum').AsString := MaskEdit.Text; nebo
Query.ParamByName('Datum').AsDate := StrToDate(MaskEdit.Text);
Pokud si skladas select tak
Query.SQL.Add('Datum = "' + MaskEdit.Text + '"'); ta hodnota musio byt v uvozovkach (nebo v apostrofech, pokud mas cely string v uvozovkach )
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Zdravim,
vim ze se o tom v konferenci uz debatovalo, ale nepodarilo se mi to v
archivu najit.
Mam Pdox databazi a v ni polozku typu Date. Potreboval bych v SQL dotazu dle
teto polozky vybirat. Nedari se mi.
Je to zajimave, jak si uvedomuji nikdy jsem zatim test dle celeho datumu
nepotreboval. Vzdy mne stacil jen dotaz na rok.
Diky za kazdou radu.
Kuba
----------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
RX - datum
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 14.9.1998 09:09:22
Ahoj,
taky si myslim, ze se tahaji. Nic jsem nikde nemenil a mam je tam cesky.
Dobra.
>Ceske. Myslis, ze se nazvy tahaji ze systemu? To se mne moc nezda.
----------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
Hi,
Myslim, ze to je zavisle na jazykovem prostredi Windows. Jaky mas
default prostredi?
> Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v principu
> je to
> jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> protoze
> napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je
> cesky. Co
> ale neni cesky jsou nazvy dnu a mesicu.
> Kde tohle najdu??
> Kuba
> ----------------------------------------------------------------------
Nenapadny puvab multithreadingu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.9.1998 09:14:09
>Zdar !
>
>Zacinam se trochu vice zabyvat multithreadingem pod Win95 a narazil
jsem
>na neco, co nemohu nejak uspokojive vysvetlit.
>
>Mejme jednoduchy thread s timto kodem:
>procedure TThread1.Execute;
>begin
> repeat
> {Sleep(1);}
> until Terminated;
>end;
>
>Pri tomto kodu hlasi nejruznejsi CPU monitory 100% vyuziti procesoru
>(prioritu nemenim).
>Jakmile vsak odstranim zavory vse se ustali na cca 20%, zavisi na typu
>procesoru.
>Zda se to byt divne, i bez toho Sleep by to melo krepcit stejnou
rychlosti
program stale neco "dela", takze dostava vsechen volny cas, co na nej
zbyva po vykonani ostatnich procesu - co je na tom divneho. Podezrelejsi
by bylo kdyby i v tomto pripade byl system v idle stavu... Musis si
zvyknout, ze kazdy thread musi vzdy kdyz ceka na neco, pouzivat funkce k
tomu urcene (Sleep, nebo ruzne WaitXY...)
Zdravi
D. Toman
RX - datum
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 14.9.1998 09:14:18
Ahoj
nazvy mesicu jsou v systemovych souborech RES Delphi. Pokud mas
zdrojove soubory, pak je muzes primo pocestit (v RS - resource scriptech)
jinak musis pouzit Resource Workshop a pocestit je jako stringtables (jde to
ale je to hruza). Stingtables jsou v Sysutils.Res a cisla jsou 65504 az
65517 (tak to mam ja).
Jaro B. micrel(zv)micrel(tec)cz
> -----P�vodn� zpr�va-----
> Od: info(zv)saton(tec)cz [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 29. srpna 1998 23:59
> Komu: DELPHI Distribution List
> P�edm�t: Re: RX - datum
>
> Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v principu je
> to
> jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim,
> protoze
> napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je cesky.
> Co
> ale neni cesky jsou nazvy dnu a mesicu.
> Kde tohle najdu??
> Kuba
> --------------------------------------------------------------------------
> --
> ---------------------------------
>
>
> >SATON Glass s.r.o. wrote:
> >>
> >> Zdravim,
> >> pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale nevim
> jak
> >> to udelat ( pokud to tedy vubec jde ).
> >> Chtel bych tam mit nazvy dnu a mesicu v cestine.
> >> Predem diky za informace.
> >
> >Ahoj,
> >
> >k RxLib existuji ceske resource, meli by byt dostupne na
> http://rx.demo.ru,
> >nebo hledej soubor rx250cze.zip na DSP.
> >
> >--
> > Petr Vones, amatersky programator
> >
> >
> Delphi 2 a Btrieve
[*] Milan Scho�ovsk� - 14.9.1998 09:21:41
Dobre jeste rano,
mate nekdo zkusenost s Delphi 2 a Btrieve na Novellu. Lze pristupovat k
databazim na Btirieve pomoci Delphi?
Diky Krtek
krte(zv)jd(tec)cz
kalkulacka vo W95
[*] V�t�zslav Gazda������u��n�?��? - 14.9.1998 10:02:50
Tato funkce zjisti aktualni hodnotu z kalkulacky.
function GetCalcResult;
const
CALC_WNDCLASS = 'SciCalc';
CALC_EDITID = 414;
var
hFind:HWND;
pText:PChar;
nLength:Integer;
begin
Result := '';
hFind := FindWindow(CALC_WNDCLASS,nil);
if hFind <> 0 then
begin
hFind := GetDlgItem(hFind,CALC_EDITID);
if hFind <> 0 then
begin
nLength := GetWindowTextLength(hFind);
if nLength > 0 then
begin
pText := StrAlloc(nLength + 1);
GetWindowText(hFind,pText,nLength);
Result := StrPas(pText);
StrDispose(pText);
end;
end;
end;
end;
Vita