Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Traffic a rychlost site
[*] jan misek <Jmdelphi(zv)atlas(tec)cz> - 23.2.2002 23:55:23
Ahoj
Potreboval bych pocitat kolik B projde pres sitove zarizeni (pripadne
vsechny) a dale pak rychlost.
(nejde o RAS)
Muzete mi nekdo poslat ukazku zdrojaku, nebo me nasmerovat na nejakou dobrou
URL k tomuto tematu
Predem diky
Jan Misek
Dodatek k Delphi 6 UPD#2
[*] Robert Kindl <rob(zv)exec(tec)cz> - 24.2.2002 00:50:23
> > Misto robustniho reseni se pridavaji nedodelky a polovicata reseni napr.
na
> > ADOX,DBX, IBX
> Databaze - nejsem schopen posoudit.
No situace je obdobna tem ActionsBands.
Na news, codecentral hromady patchu at jiz oficialnich nebo neoficilnich.
Pro ADOX vydal Borland kratce po uvedeni samostatny SP.
Situaci s upgradem IBX jsi napr. mohl sledovat v tehle konferenci.
> > ActionBands atd.
> Hm, tady se ale dotycny vyvojar alespon snazil vypoustet prubezne
neoficialni
> opravy na (http://www.geocities.com/delphihelp), plno veci bylo i v
newsech.
> Ja jsem to zatim nepouzival, protoze to melo zasadni vadu v tom, ze to
neslo
> pouzit v komponente TControlBar. Ta verze co je v Upd#2 se uz chova o
trochu
> lepe, jen co bude cas tak se to znovu pokusim nejak pouzit.
To samozrejme vim.
Ono to ma stale i dalsi mouchy napr. to nefunguje s MDI (WindowMenu).
Ja to nepouzil protoze neco tak chyboveho jsem si zatim nedovolil
nasadit na zakazniky.
Pripadalo mi to jako semetralni prace nejakeho studenta - je to pekne, ale
urcite to spadne.
Take se vsak ted na to chci znovu podivat.
> > Nebo proc vyrabeji evidentni chyby napr:
> > function TApplication.IsMDIMsg(var Msg: TMsg): Boolean;
> Myslel jsem ze tohle uz je davno opravene, neni :-/
No a jsme na zacatku tehle nasi diskuse. Proc uz to neni davno opravene?.
Kruh se uzavrel :-)
Rob
Dodatek k Delphi 6 UPD#2
[*] Robert Kindl <rob(zv)exec(tec)cz> - 24.2.2002 00:51:57
> > Ale opet je tu problem.
> > Temer vsechny nove veci mely brutalni radu trivialnich chyb.
> > Misto robustniho reseni se pridavaji nedodelky
> > a polovicata reseni napr. na ADOX,DBX, IBX, ActionBands atd.
> > A nebyly to jen detske nemoci. Casto se daly odstranit
> > jen kdyby se to u Borlandu pokusil nekdo trochu pouzit/otestovat.
> to je totiz ta zvlastna Borland strategia: vsetko tajit do poslednej
minuty
> a ked sa znenazdajky objavi hotovy produkt, spusta veci v nom nefunguje,
> pretoze nebol dostatocne otestovany. Presne opacne postupuje Microsoft,
> tam je mozne stiahnut si z webu na vyskusanie este aj takmer
"neexistujuci"
> produkt. Vysledkom tychto odlisnych pristupov je daleko vyssia stabilita
> a zvysujuca sa kvalita MS produktov a skolacke chyby v produktoch
> Borladu.
> Erik
No, Eriku, po dlouhe dobe musim rici, ze s tebou bezvyhradne souhlasim :-)
Rob
WinNT - procesy, uzivatele
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 03:50:34
From: <xwoman2(zv)centrum(tec)cz>
> Mam nainstalovanou sluzbu pod WinNT4, potreboval bych zjistit
> jmeno prihlaseneho uzivatele. Sluzba na nej nejak nevidi,
Ahoj,
funkce GetInteractiveUserName (unit JclSecurity) v JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Balicky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 03:58:49
From: "Jaroslav Kuba" <jarda(zv)tresoft(tec)cz>
> katastroficky, dialog s nekolika prvky v balicku dosahuje velikosti az 6 MB
> coz pri velikosti vysledneho exe cca 14MB je naprosto nepochopitelne.
Ahoj,
podivej se co presne zpusobuje velikost toho balicku. Kdyz pouzijes PE Viewer
(http://www.volweb(tec)cz/pvones/delphi) tak v Sections najdes seznam sekci a udaj
o tom kolik procent souboru zabiraji. Dale se jeste muzes podivat v detailnim
pohledu na resources (View | View resources) na jednotlive formulare (uzel
RCData) a take na seznam unitu v balicku (RCData\PACKAGEINFO)
Petr Vones
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.2.2002 08:51:21
On 23 Feb 2002 at 23:17, Erik Salaj wrote:
> > V danem prikladu neni 24:00 nesmysl. Konec dne je skutecne tento
> > cas, 0:00 je uz zacatek dalsiho dne. Je lhostejne, ze se tyto casy
> > ve skutecnosti kryji. V ruznych situacich existuje rada dobrych
> > duvodu setrvat v ramci dne, pak je nutne ho ukoncit hodnotou 24:00.
> > Kdybys mel napsat program pro sledovani dochazky, velice brzy bys to
> > zjistil. Zcela konkretni priklad. Priplatek za svatek se pocita od
> > 0:00 do 24:00. Jakmile z toho vypustis 24:00, pak musis definovat ze
> > se priplatek pocita od 0:00 do 0:00 nasledujicicho dne, coz ti pekne
> > zkomplikuje algoritmus vypoctu, a snadno ztratis nekde minutu.
>
> jeden den potom ale trva 24hodin a jednu sekundnu. Gratulujem
> k prevratnemu objavu :-)
24:00:00 - 0:00:00 = 24:00:00
Nauc se pocitat, nic na tom neni... :-)
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.2.2002 08:53:24
On 23 Feb 2002 at 23:37, Petr Vones wrote:
> Pokus pouzivas typ TDateTime (je jedno jestli v databazi nebo jinde) a
> chces casovy udaj prevest na string, tak je "24:00" nesmysl. Potom by
> jsi musel pouzivat jiny zpusob ukladani data a casu, napriklad
> rozdeleny na hodiny a minuty.
Z pohledu typu TDateTime ano. Z pohledu praktickych potreb nikoliv. Z
cehoz plyne, ze potrebuje-li nekdo pracovat s hodnotami 24:00 a
vyssimi, nemuze pouzit TDateTime.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Ulozenie ikony
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 24.2.2002 09:32:16
Dodnes mi nikto neodpovedal na tento e-mail. Aspon mi prosim povedzte, ci
teda to nie je vobec mozne v Delphi alebo je to prilis zlozite?
----- Original Message -----
> Mam obrazok v Image a chcem ho ulozit do suboru ako ikonu. Napadlo ma, ze
by
> som to mohol spravit nasledovne:
>
> Icon:=TIcon.Create;
> Image2.Picture.Bitmap.SaveToClipboardFormat(MyFormat,AData,APalette);
> ClipBoard.SetAsHandle(MyFormat,AData);
> Icon.LoadFromClipboardFormat(MyFormat,AData,APalette); *
> Icon.SaveToFile(SavePictureDialog1.FileName);
> Icon.Free;
>
> Pri riadku s hviezdickou mi vsak vypise hlasku Clipboard does not support
> Icons. Podla mojho nazoru je to len preto, ze v image mam 24 bit-ovi
> obrazok, co nie je pripustne pre objekt Icon. Smola je, ze neviem ako to
mam
> zmenit.
BDE a legalnost kopirovania
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 24.2.2002 09:33:08
Uz niekolko mesiacov mam na svojej stranke program z BDE. Problem je vsak v
tom, ze BDE nie je priamo v instalackach ale ako samostatne instalacky s
moyznostou stiahnutia. Az teraz ma napadlo, ci je vobec legalne takto
samostatne ponukat produkt Borlandu alebo to mam cim skvor zo stranky
vyhodit?
Vdaka za kazdu radu.
Rozlozenie nazvu suboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.2.2002 11:28:02
ExtractFileDrive()
ExtractFilePath() popr. ExtractFileDir() - rozdil v konecnem lomitku
ExtractFileName()
ExtractFileExt()
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
21.2.2002 Martin Kasman:
> Kedysi som pouzival jednu Delphi funkciu, do ktorej vstup bol nazov suboru s
> celou cestou a vystup bol cesta subora, nazov a pripona zvlast. Nemozem tu
> funkciu teraz narychlo najst. Neviete niekto jej nazov?> Vdaka za kazdu radu.> --------------
> Ikony pre svoje programy najdete na www.kasman.martin.as
BDE a legalnost kopirovania
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.2.2002 11:31:39
BDE muzes sirit spolu se svym programem. Uz neni receno (aspon tusim),
zda to musi byt soucasti jednoho instalacniho baliku nebo ne.
Pouze bys mel BDE instalovat pomoci autorizovaneho instalacniho
nastroje, coz je treba InstallShield.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.2.2002 Martin Kasman:
> Uz niekolko mesiacov mam na svojej stranke program z BDE. Problem je vsak v
> tom, ze BDE nie je priamo v instalackach ale ako samostatne instalacky s
> moyznostou stiahnutia. Az teraz ma napadlo, ci je vobec legalne takto
> samostatne ponukat produkt Borlandu alebo to mam cim skvor zo stranky
> vyhodit?Cas v tabulce
[*] Reesha <reeshad(zv)seznam(tec)cz> - 24.2.2002 11:36:36
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zbysek Hlinka
> Sent: Sunday, February 24, 2002 8:51 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Cas v tabulce
>
>
> On 23 Feb 2002 at 23:17, Erik Salaj wrote:
>
> > > V danem prikladu neni 24:00 nesmysl. Konec dne je skutecne tento
> > > cas, 0:00 je uz zacatek dalsiho dne. Je lhostejne, ze se tyto casy
> > > ve skutecnosti kryji. V ruznych situacich existuje rada dobrych
> > > duvodu setrvat v ramci dne, pak je nutne ho ukoncit hodnotou 24:00.
> > > Kdybys mel napsat program pro sledovani dochazky, velice brzy bys to
> > > zjistil. Zcela konkretni priklad. Priplatek za svatek se pocita od
> > > 0:00 do 24:00. Jakmile z toho vypustis 24:00, pak musis definovat ze
> > > se priplatek pocita od 0:00 do 0:00 nasledujicicho dne, coz ti pekne
> > > zkomplikuje algoritmus vypoctu, a snadno ztratis nekde minutu.
> >
> > jeden den potom ale trva 24hodin a jednu sekundnu. Gratulujem
> > k prevratnemu objavu :-)
>
> 24:00:00 - 0:00:00 = 24:00:00
>
> Nauc se pocitat, nic na tom neni... :-)
>
> S pozdravem
>
> Zbysek Hlinka
>
> Phone: 0603 551 282
(Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To znamena, ze
24:00:00 - 0:00:00 = 23:59:59
Podle tebe je ale den od 0:00 do 24:00 hodin.
To by znamenalo, ze den nema presne 24 hodin, ale 24 hod a 1 minutu (nebo
sekund... podle toho, jak hluboko jdeme). A jestli 24:00 = 0:00, tak 0:00 by
patrilo do minuleho dne a dalsi den by zacinal 0:01, dalsi 0:02 atd...
Takze pokud den zacina 0:00, neni mozne, aby do nej patril udaj 24:00.
S pozdravem
R. Strunc
Cas v tabulce
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 24.2.2002 11:49:06
> > Pokus pouzivas typ TDateTime (je jedno jestli v databazi nebo jinde) a
> > chces casovy udaj prevest na string, tak je "24:00" nesmysl. Potom by
> > jsi musel pouzivat jiny zpusob ukladani data a casu, napriklad
> > rozdeleny na hodiny a minuty.
>
> Z pohledu typu TDateTime ano. Z pohledu praktickych potreb nikoliv. Z
> cehoz plyne, ze potrebuje-li nekdo pracovat s hodnotami 24:00 a
> vyssimi, nemuze pouzit TDateTime.
Myslim ze tato virtualni prestrelka uz neprinese nic moc pozitivniho ani
nedonuti tabulku aby hodnotu 24:00 prijala za svou.
Zkousel jsem v Database Desktopu tabulku Paradox a ta pri zadani casu 24:00
automaticky preklopi cas na 00:00
Jelikoz mam par znamych pedagogu, kteri vyucuji matematiku a fyziku polozil
jsem jim otazku "24:00 - 00:00"
Mohu rici, ze v prevazne vetsine jsem je "zaskocil" nicmene rezume bylo v
souladu s mym nazorem.
Den je casovy usek rozdeleny na 24hodin, 14400 minut, 86400 vterin.
86400sta vterina je bod ktery ukoncuje dany den a soucasne bod ktery
zahajuje nasledujici den
Tedy v okamziku kdy je "24:00" je ukoncen den ale soucasne je "00:00"
nasledujiciho dne (pricemz z nadchazejiciho dne dosud neuplynul zadny cas)
Jestli ma tato diskuse nekam vyustit, pozadal bych Petr Vones o zarazeni
reseni tohoto stavu ve forme tipu na sve stranky.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Cas v tabulce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.2.2002 12:15:31
Puvodni zprava, kterou napsal Reesha dne 24 Feb 2002:
> (Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To znamena, ze
> 24:00:00 - 0:00:00 = 23:59:59
Coze? To si delas legraci, ne?
0:00:00 <> 0? A kolik teda 0:00:00 je hodin, minut, sekund, milisekund?
24:00:00 - 0:00:00 = 23:59:59? Jak jsi k tomu prosim dosel? Takze jako
myslis, ze 0:00:01 - 0:00:00 = 0:00:00 a 0:00:00 - 0:00:00 = -0:00:01?
Jsi koukam vytuneloval jednu sekundu...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Cas v tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 13:30:11
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Z pohledu typu TDateTime ano. Z pohledu praktickych potreb nikoliv. Z
> cehoz plyne, ze potrebuje-li nekdo pracovat s hodnotami 24:00 a
> vyssimi, nemuze pouzit TDateTime.
Pouzit ho muze, ale pak si musi napsat vlastni formatovaci funkce, ktere to
budou takto nesmyslne prevadet. Pomoci TField.OnGetText/OnSetText to pak
napoji na pole TDateTime, takze udaj "2.1.2002 0:00" bude pomoci toho
formatovani interpretovan jako retezec "1.1.2002 24:00". Kam se ale podela
logika uz je vec jina ;-)
Petr Vones
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.2.2002 14:58:22
On 24 Feb 2002 at 13:30, Petr Vones wrote:
> > Z pohledu typu TDateTime ano. Z pohledu praktickych potreb nikoliv.
> > Z cehoz plyne, ze potrebuje-li nekdo pracovat s hodnotami 24:00 a
> > vyssimi, nemuze pouzit TDateTime.
>
> Pouzit ho muze, ale pak si musi napsat vlastni formatovaci funkce,
> ktere to budou takto nesmyslne prevadet. Pomoci
> TField.OnGetText/OnSetText to pak napoji na pole TDateTime, takze udaj
> "2.1.2002 0:00" bude pomoci toho formatovani interpretovan jako
> retezec "1.1.2002 24:00". Kam se ale podela logika uz je vec jina ;-)
Hm, tak jinak, pro ty pomalejsi. :-) V promenne mam TOLIKO cas, bez
datumu (protoze v obecne rovine me datum vubec nezajima, sluzebni
cesta se pocita v ramci nejakeho dne, predem je vsak lhostejne,
ktereho; podstatne je, ze se pocita v rozmezi 0:00 - 24:00 hodin).
Pri zadavani hodnot tedy nemohu pouzit tvuj navrh, to bych skutecne
rozboril celou logiku.
Pri konkretnim vypoctu mam nejaky den, opet lhostejno jaky. Maximalne
me zajima, zda se jedna o den pracovni nebo svatek (z toho duvodu
vsak potrebuji sluzebku posuzovat v ramci daneho dne). Pro vypocet me
zajima, zda sluzebka skoncila tyz den (tedy do 24:00), nebo se
prehoupla do dne dalsiho (0:01). Kdybych do toho motal 0:00 s novym
dnem, logika by sla do haje, protoze v tomto pripade ma vyznam
uplynuly cas, tedy alespon 1 minuta (v praxi spise hodina, ale to je
ted fuk). Prvni udaj v danem dni, ktery ma smysl, je tedy 0:01, a
pokud zacla sluzebka v 0:00, pak trvala prave minutu. Pokud vsak
zacla sluzebka ve 23:59, pak cela minuta patri do dne, kdy sluzebka
zacala, takze je nutne porovnat hodnotu prave vuci 24:00, abychom
ziskali tu minutu.
Sluzebka tedy NEMUZE koncit v 0:00, protoze to rozhodi logiku
pocitani k nejakemu dni. Sluzebka muze toliko zacinat v 0:00, ale
nemuze zacinat ve 24:00. Proto tvrdim, ze v techto pripadech nelze
rozumne pouzit TDateTime, ale je treba na to jit jinak.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.2.2002 15:00:24
On 24 Feb 2002 at 11:36, Reesha wrote:
> (Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To
> znamena, ze 24:00:00 - 0:00:00 = 23:59:59
:-))))))) Aha, takze 10 - 0 = 9, ze?
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.2.2002 15:04:28
On 24 Feb 2002 at 11:49, Viktor Marek wrote:
> Myslim ze tato virtualni prestrelka uz neprinese nic moc pozitivniho
> ani nedonuti tabulku aby hodnotu 24:00 prijala za svou. Zkousel jsem v
> Database Desktopu tabulku Paradox a ta pri zadani casu 24:00
> automaticky preklopi cas na 00:00 Jelikoz mam par znamych pedagogu,
> kteri vyucuji matematiku a fyziku polozil jsem jim otazku "24:00 -
> 00:00" Mohu rici, ze v prevazne vetsine jsem je "zaskocil" nicmene
> rezume bylo v souladu s mym nazorem.
Jsem presvedcen o tom, ze tato debata vyznam ma. A to ten, ze je
treba si uvedomit, ze pro reseni urcitych uloh neni spravne pouziti
typu TDateTime, byt se tam pracuje s casem. Protoze jsem tento
problem musel resit, vim, o cem mluvim.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Cas v tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 15:32:23
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Hm, tak jinak, pro ty pomalejsi. :-) V promenne mam TOLIKO cas, bez
> datumu (protoze v obecne rovine me datum vubec nezajima, sluzebni
> cesta se pocita v ramci nejakeho dne, predem je vsak lhostejne,
> ktereho; podstatne je, ze se pocita v rozmezi 0:00 - 24:00 hodin).
To je uz ale pomerne neprijemne omezeni, protoze TDateTime se pro vypocet
delky casoveho obdobi hodi pomerne dobre.
> Sluzebka tedy NEMUZE koncit v 0:00, protoze to rozhodi logiku
> pocitani k nejakemu dni. Sluzebka muze toliko zacinat v 0:00, ale
Otazka jestli ta logika neni spatna. Rekneme ze sluzebka konci v 19:00, ten
problem je prece uplne stejny. Pokud pocitas cas pro:
1.1.2002 10:00 az 1.1.2002 19:00 => 9 hodin
1.1.2002 10:00 az 2.1.2002 0:00 => 14 hodin
v obou pripadech je koncovy cas zapocitan nevcetne, tedy dana akce zacala v
10:00 a byla ukoncena v 19:00 nebo 0:00 dalsiho dne. Pokud mas uzivatelske
rozhrani postaveno tak, ze se udaj zadava vzdy v ramci jednoho dne, tak prece
neni problem udelat zadavani textove podoby koncoveho casu tak, aby se
zobrazoval/zadaval bud jako "24:00" nebo jinym zpusobem a fyzicky byl ulozen
jako odpovidajici TDateTime udaj pouzitelny pro vypocet casoveho obdobi.
function DateTimeToMSec(const DateTime: TDateTime): Int64;
begin
Result := Round(DateTime * MSecsPerDay);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
StartTime, EndTime: TDateTime;
Delta: Int64;
begin
StartTime := EncodeDate(2002, 1, 1) + EncodeTime(10, 0, 0, 0);
EndTime := EncodeDate(2002, 1, 1) + EncodeTime(19, 0, 0, 0);
Delta := DateTimeToMSec(EndTime) - DateTimeToMSec(StartTime);
ShowMessageFmt('Delta = %5.2f hours', [Delta / 1000 / 60 / 60]);
StartTime := EncodeDate(2002, 1, 1) + EncodeTime(10, 0, 0, 0);
EndTime := EncodeDate(2002, 1, 2) + EncodeTime(0, 0, 0, 0);
Delta := DateTimeToMSec(EndTime) - DateTimeToMSec(StartTime);
ShowMessageFmt('Delta = %5.2f hours', [Delta / 1000 / 60 / 60]);
end;
Petr Vones
Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.2.2002 16:03:53
> > jeden den potom ale trva 24hodin a jednu sekundnu. Gratulujem
> > k prevratnemu objavu :-)
>
> 24:00:00 - 0:00:00 = 24:00:00
>
> Nauc se pocitat, nic na tom neni... :-)
cas od 00:00:00 po 24:00:00 vratane je presne 24 hodin a jedna sekunda
Erik
OT:Diar
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 24.2.2002 18:11:02
Nevite nahodou o nejakem firmware a duchaplnejsim software pro diar CASIO
SF-5580 ?GetTempPath
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 18:35:40
From: "Milan ��ek" <Cizek.Milan(zv)seznam(tec)cz>
> pomoci funkce GetTempPath zjistuji cestu na temp adresar. Prilis se
> mi ale nehodi, ze se cesta vraci ve zkraceenm tvatu s ~. Existuje
> nejaky zpusob, jak ziskat tuto cestu v plne podobe?
uses
JclFileUtils, JclSysInfo;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(PathGetLongName2(GetWindowsTempFolder));
end;
Petr Vones
Cas v tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 18:48:36
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Den je casovy usek rozdeleny na 24hodin, 14400 minut, 86400 vterin.
A jsme zase na zacatku:
"casovy usek rozdeleny na 24hodin" - ktere se oznacuji cislicemi 0 az 23, tedy
celkem 24 hodnot pro 24 hodin.
> Jestli ma tato diskuse nekam vyustit, pozadal bych Petr Vones o zarazeni
> reseni tohoto stavu ve forme tipu na sve stranky.
Nastesti zadne takove stranky nemam ;-)
Petr Vones
Sitove adresare
[*] <xwoman2(zv)centrum(tec)cz> - 24.2.2002 19:18:53
potreboval bych udelat takovy vlastni TreeView, jako je v
pruzkumnikovi, jde mi hlavne o okolni pocitace, plochu apod
Diky
-------------------------------
Bronislav Klucka
mail: xwoman2(zv)centrum(tec)cz
ICQ: 109718536
telefon: +420605582922
===== www.centrum(tec)cz doporu�uje =====
�ena v centru pozornosti na http://zena.centrum(tec)cz
Cas v tabulce
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 24.2.2002 19:18:40
> > Den je casovy usek rozdeleny na 24hodin, 14400 minut, 86400 vterin.
> A jsme zase na zacatku:
> "casovy usek rozdeleny na 24hodin" - ktere se oznacuji cislicemi 0 az 23,
tedy
> celkem 24 hodnot pro 24 hodin.
Zeptam se tedy trochu jinak. V kterem casovem okamziku je zavrsen den.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Cas v tabulce
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 24.2.2002 19:21:48
Hi,
..
.. Zeptam se tedy trochu jinak. V kterem casovem okamziku je
.. zavrsen den.
podle mne v 0:00:00
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
Cas v tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 19:27:45
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Zeptam se tedy trochu jinak. V kterem casovem okamziku je zavrsen den.
Tesne pred tim, nez nastane Den + 1 0:00 hodin. Zalezi na presnosti s kterou
to chceme pocitat.
Petr Vones
Existuje podpora CAB souboru v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 19:55:09
From: "Milan ��ek" <Cizek.Milan(zv)seznam(tec)cz>
> DLL_hwnd:=LoadLibrary('setupapi.dll');
Drobna poznamka, HWND (handle okna) nema nic spolecneho s handle zavedene
knihovny.
Petr Vones
Flash->Jak na odkazy?
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 24.2.2002 19:56:34
Zdravim,
mam flashove soubory (*.swf) ktere prehravam pomoci activeX
komponenty swflash.ocx importovane do Delphi.
Ve flashi jsou odkazy pro spousteni dalsich flashovych souboru.
To funguje krasne.
Ve flashi jsou ale take odkazy na cgi skripty.
Bohuzel ty se mi neprovadi!
Pritom kdyz ten stejny flash spustim v okne Exploreru, jede vse jak ma...
Nastavuji nekde neco u komponenty TShockwaveFlash spatne?
PS. jako reseni jsem chtel zkusit vlozit do aplikace activeX komponentu
exploreru - tu jsem ale nenasel, i kdyz IE5.5 mam nainstalovany...
Doufam ze se nepletu, ze explorer je (byl?) k dispozici jako activeX
Diky!
Mirek Melichar
Flash->Jak na odkazy?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 19:58:12
From: "Mirek Melichar" <mirek(zv)psi(tec)cz>
> PS. jako reseni jsem chtel zkusit vlozit do aplikace activeX komponentu
> exploreru - tu jsem ale nenasel, i kdyz IE5.5 mam nainstalovany...
Pokud mas Delphi 5 a vyssi tak uz jej mas naimportovany rovnou jako komponentu
TWebBrowser.
Petr Vones
Cas v tabulce
[*] Reesha <reeshad(zv)seznam(tec)cz> - 24.2.2002 20:14:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Zahradnik
> Sent: Sunday, February 24, 2002 12:16 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Cas v tabulce
>
>
> Puvodni zprava, kterou napsal Reesha dne 24 Feb 2002:
>
> > (Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To
> znamena, ze
> > 24:00:00 - 0:00:00 = 23:59:59
>
> Coze? To si delas legraci, ne?
>
> 0:00:00 <> 0? A kolik teda 0:00:00 je hodin, minut, sekund, milisekund?
>
> 24:00:00 - 0:00:00 = 23:59:59? Jak jsi k tomu prosim dosel? Takze jako
> myslis, ze 0:00:01 - 0:00:00 = 0:00:00 a 0:00:00 - 0:00:00 = -0:00:01?
> Jsi koukam vytuneloval jednu sekundu...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
Bylo to mysleno tak, ze 0:00:00 je 1. sekunda dne (patrici do 1. minuty).
23:59:59 je posleduni sekunda dne. Nemuzes jentak rict, ze 1. sekunda dne =
0 a proto kdyz odstranis 1. sekundu dne (podle toho co napsal Zbysek 0) bude
mit stejne 24 hod. To proste nejde.
Pokud casovy udaj beru jako dobu trvani tak samozrejme 0:00:00 = 0 (a
24:00:00 by byla delka celeho dne). Jedna-li se vsak o casovy sled, a udaj
0:00:00 je udaj na casove ose, tak dle meho nazoru plati to, co jsem napsal
vyse (ze nemuzes jentak udaj 0:00:00 vypustit a rict ze se nic nestalo).
Asi je tato diskuse bezpredmetna
S pozdravem
R. Strunc
Sitove adresare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 20:33:24
From: <xwoman2(zv)centrum(tec)cz>
> potreboval bych udelat takovy vlastni TreeView, jako je v
> pruzkumnikovi, jde mi hlavne o okolni pocitace, plochu apod
Ahoj,
V Delphi 6 pomoci komponenty TShellTreeView, jinak GExplorer:
http://gxexplorer.namsys.com.au/gxexplorer/
Petr Vones
Existuje podpora CAB souboru v D5
[*] Milan ��ek - 24.2.2002 20:43:12
ahoj,
moc tomu nerozumim, znamena to, ze HWND je neco jineho nez THandle? Nebo
pouze zkratka hwnd znamena "Handle okna"? Diky za objasneni.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
> From: "Milan ��ek" <Cizek.Milan(zv)seznam(tec)cz>
> > DLL_hwnd:=LoadLibrary('setupapi.dll');
>
> Drobna poznamka, HWND (handle okna) nema nic spolecneho s handle zavedene
> knihovny.
>
> Petr Vones
Existuje podpora CAB souboru v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 20:46:52
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> moc tomu nerozumim, znamena to, ze HWND je neco jineho nez THandle? Nebo
> pouze zkratka hwnd znamena "Handle okna"? Diky za objasneni.
Presne tak. Typ HWND se pouziva vyhradne pro handle okna.
Petr Vones
Cas v tabulce
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 24.2.2002 21:19:09
Zajiste se shodneme, ze hodina ma 60 minut, ktere oznacujeme 0 az 59
analogicky ma den 24 hodin, ktere oznacujeme 0 az 23
z tohoto pohledu je tedy casovy udaj 24:00 nesmyslny.
ovsem z pohledu uzivatele (kteremu muze byt nejaka
konverze string <---> TDateTime naprosto ukradena)
muze myt smysl v tom, ze tento udaj muze jaksi intuitivne
chapat jako konec dne.
Pokud tedy chceme brat ohled na uzivatele mela by si pak
s touto situaci aplikace umet poradit...
Den IMHO konci v okamzik zmeny casoveho udaje z 23:59:59
na 00:00:00 nasledujiciho dne. Tedy konec dne nemuzeme urcit
pomoci jednoho casoveho udaje, pouze plati ze 23:59:59 patri
do jednoho dne a 00:00:00 uz do dne nasledujiciho. Mezi temito
dvema udaji jiz zadny jiny neni (samozrejme bez ohledu na milisec)
Ahoj
Tomas Bihary
----- Original Message -----
> Zeptam se tedy trochu jinak. V kterem casovem okamziku je zavrsen den.
Soubor napovedy k WinInet
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 24.2.2002 22:26:00
Ahoj,
nevite nekdo, kde by se dal sehnat %subj%? Uz jsem prohledal snad
vsechno a nikde jsem nic nenasel. Pripadne, pokud ho nekdo mate,
poslete mi ho na soukr. mail.
Predem dekuji.
--
Martin
Soubor napovedy k WinInet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.2.2002 22:36:51
From: "Martin Falta" <martin.falta(zv)atlas(tec)cz>
> nevite nekdo, kde by se dal sehnat %subj%? Uz jsem prohledal snad
Na MSDN Online:
http://msdn.microsoft.com/workshop/networking/wininet/wininet.asp
Popripade ke stazeni v Platform SDK:
http://www.microsoft.com/msdownload/platformsdk/sdkupdate/
Integrace MSDN nebo Platform SDK do Delphi IDE:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16981
Petr Vones
IB - dotahovani zaznamu z vice tabulek
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 24.2.2002 23:17:24
Zdravim vyvojare,
rad bych znal vas nazor na reseni nasledujici situace.
Musim zobrazit data z nasledujicich tabulek:
Kontrakt (obsahuje zakladni udaje o kontraktu, kazdy zaznam je neco jako
obalka s hlavickovymi udaji)
OBJ_PRIJ (obsahuje udaje o prijate objednavce, kazdy zaznam patri jednomu
kontraktu)
OBJ_VYD (obsahuje udaje o vydane objednavce, kazdy zaznam patri jednomu
kontraktu)
Kazda tabulka ma jedinecne ID pole. OBJ_PRIJ a OBJ_VYD maji take ID
kontraktu, ke kteremu patri.
Kazdy kontrakt muze mit libovolny pocet prijatych i vydanych objednavek.
Pokud bude mit kontrakt vice OBJ_PRIJ nebo OBJ_VYD, budou se moct jednotlive
OBJ_XXX prohazovat pomoci napr. PageControlu nebo jinych "precvakavacu".
Predbezny navrh obrazovky, pro predstavu, je na adrese:
www.volny(tec)cz/pejasoft/navrh.jpg.
A ted k otazce:
Je vyhodnejsi nacist vsechny tri tabulky do pameti (do IBQuery), "chodit" po
kontraktech a v AfterScroll skakat na pozadovane zaznamy v OBJ_PRIJ a
OBJ_VYD, nebo nacist pouze malou tabulku Kontrakty a zbytek dotahovat v
AfterScroll pres SELECT z databaze?
Prvni moznost je relativne nenarocna na server, ale data nemusi byt aktualni
a bude to pri velkem poctu zrejme narocne na pamet (OBJ_XXX maji kolem 20 az
30 poli a maximalne do 20 000 zaznamu).
Druha moznost zase bude asi dost pomala, hlavne pri scrollingu, kdy sice
muzu dotahovat objednavky po treba 300ms prodleve (pres Timer), ale uzivatel
se bude orientovat hlavne podle dat z obednavek.
Mnohokrat dekuji za kazdou odpoved.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.2.2002 23:37:52
> (Casovy udaj 0:00:00) <> (0). Je to jiz nejaky casovy udaj. To znamena, ze
> 24:00:00 - 0:00:00 = 23:59:59
>
> Podle tebe je ale den od 0:00 do 24:00 hodin.
>
> To by znamenalo, ze den nema presne 24 hodin, ale 24 hod a 1 minutu (nebo
> sekund... podle toho, jak hluboko jdeme). A jestli 24:00 = 0:00, tak 0:00
by
> patrilo do minuleho dne a dalsi den by zacinal 0:01, dalsi 0:02 atd...
>
> Takze pokud den zacina 0:00, neni mozne, aby do nej patril udaj 24:00.
presne tak
Erik
NetRemoteTOD este raz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 25.2.2002 00:14:08
Existuje teda sposob ako zistit systemovy cas na pocitaci na ktorom bol
spusteny program bez obmedzenia OS ?
Vlado
> Nijak, tato funkce je zkratka podporovana pouze na NT, viz napoveda k teto
> funkci, kde je to uvedeno:
>
> Requirements
> Windows NT/2000/XP: Included in Windows NT 3.1 and later.
> Windows 95/98/Me: Unsupported.
>
Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.2.2002 00:23:27
> Jelikoz mam par znamych pedagogu, kteri vyucuji matematiku a fyziku
polozil
> jsem jim otazku "24:00 - 00:00"
> Mohu rici, ze v prevazne vetsine jsem je "zaskocil" nicmene rezume bylo v
> souladu s mym nazorem.
>
> Den je casovy usek rozdeleny na 24hodin, 14400 minut, 86400 vterin.
> 86400sta vterina je bod ktery ukoncuje dany den a soucasne bod ktery
> zahajuje nasledujici den
> Tedy v okamziku kdy je "24:00" je ukoncen den ale soucasne je "00:00"
> nasledujiciho dne (pricemz z nadchazejiciho dne dosud neuplynul zadny cas)
urcita sekunda teda patri sucasne do dvoch odlisnych dni? Pocas tejto
sekundy neviem rozhodnut aky je den, alebo si mozem vybrat jeden
z nich alebo zaroven obidva?
Erik
Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.2.2002 01:22:41
> Zeptam se tedy trochu jinak. V kterem casovem okamziku je zavrsen den.
uplynutim jeho poslednej sekundy (alebo aj minuty, hodiny a pod.)
Erik
Traffic a rychlost site
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 25.2.2002 07:26:46
> Potreboval bych pocitat kolik B projde pres sitove zarizeni (pripadne
> vsechny) a dale pak rychlost. (nejde o RAS)
No, a co je to sitove zarizeni? Router,switch,HUB,linka,modem,...?
Modernejsi a lepsi zarizeni (routery,switche) zpravidla maji
moznost pouzit nejakou uroven RMON a pak z nich lze vycist
pocty bytu ktere se prenesly na jednotlivych portech a take dalsi
statistiky. Ale to asi neni ono, ze.
Z.Kalhous
Cas v tabulce
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 25.2.2002 08:21:11
On 24 Feb 2002 at 21:19, Tomas Bihary wrote:
> Zajiste se shodneme, ze hodina ma 60 minut, ktere oznacujeme 0 az 59
> analogicky ma den 24 hodin, ktere oznacujeme 0 az 23
>
> z tohoto pohledu je tedy casovy udaj 24:00 nesmyslny.
>
> ovsem z pohledu uzivatele (kteremu muze byt nejaka
> konverze string <---> TDateTime naprosto ukradena)
> muze myt smysl v tom, ze tento udaj muze jaksi intuitivne
> chapat jako konec dne.
> Pokud tedy chceme brat ohled na uzivatele mela by si pak
> s touto situaci aplikace umet poradit...
>
> Den IMHO konci v okamzik zmeny casoveho udaje z 23:59:59
> na 00:00:00 nasledujiciho dne.
Presne tak. 0:00:00 NENI prvni vterina, ale ZACATEK prvni vteriny
dne. V tom je rozdil. Podobne 24:00:00 NENI posledni vterina, ale
KONEC posledni vteriny dne. Jedna se o symbolicke oznaceni konce dne,
stejne jako 0:00:00 je symbolicke oznaceni zacatku dne, pricemz
24:00:00 = 0:00:00 pro ucely vypoctu. Jedna se proste o urcity bod
(nikoliv vterinu) na casove ose, ktery ve skutecnosti nema zadnou
velikost.
Tedy oznaceni 24:00:00 slouzi skutecne pouze pro prehled uzivatele,
kdy je treba odlisit konec dne od zacatku dne dalsiho. Ma to vyznam
napriklad pri pocitani ruznych priplatku za soboty a nedele a
podobne.
Je tu ovsem jedna vyjimka - obcas je den kvuli astronomickym korekcim
prodlouzen o jednu vterinu, takze 24:00:00 < 0:00:00. Pro bezne
vypocty to vsak nema vyznam, pro astronomicke vsak ano.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
IB - dotahovani zaznamu z vice tabulek
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 25.2.2002 08:27:04
po zkusenostech z vlastniho
projektu, bych volil pristup,
kdy se po casove prodleve dotahne
detail k aktualni vete.
tu casovou prodlevu bych dal spis
delsi. tak 0.5 az 1 sec. oni totiz
uzivatele jsou schopni scrollovat
dost pomalu a kdyz uz jednou select
zacne, tak jej neprerusis.
taky by stacilo nacist jenom data
do viditelne zalozky a dalsi data,
az pri prepnuti na dalsi stranku,
nebo opet po pause.
mozna by mel mit uzivatel moznost
zapnout okamzite nacitani, pokud
projizdi zaznamy a "chce" koukat
hnet do tech detailu...
dekuji PeC(zv)Zahada s CRC32
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.2.2002 08:32:39
ahoj,
resim ve sve aplikaci automaticky update z internetu. Nove soubory
stahuju v jednom .cab archivu, ktery nasledne rozbalim pres stavajici
aplikaci (pomoci externiho programku). Potrebuji samozrejme
zkontrolovat, jestli se soubor stahl v poradku. Vytvoril jsem si na
to funkci, ktera mi vrati CRC32 onoho souboru. Stejny udaj mam k
dispozici na webu.
Muj problem:
na lokalni stanici si pomoci teto fce zjistim aktualni CRC32. Tento
udaj umistim do kontrolniho souboru na netu. Pokud nyni stahnu
pozadovany .cab a znovu na nej pouziju CRC32 funkci, hodnota je zcela
odlisna. Soubor neni corrupted a da se normalne rozbalit.
Nevite nekdo, v cem je hacek?
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
"Vyhodna nabidka se neodmita ..." Oskarovy sluzby firmam.
http://ad2.seznam(tec)cz/redir.cgi?instance=20991%26url=http://www.oskarmobil(tec)cz/cz/business/b_index.html
Traffic a rychlost site
[*] jan misek <Jmdelphi(zv)atlas(tec)cz> - 25.2.2002 08:36:01
Jde o sitovou kartu, nejvice by mi asi pomohla nejaka komponenta
----- Original Message -----
From: "Kalhous Zdenek" <zdenek.kalhous(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 25, 2002 7:26 AM
Subject: Re: Traffic a rychlost site
> > Potreboval bych pocitat kolik B projde pres sitove zarizeni (pripadne
> > vsechny) a dale pak rychlost. (nejde o RAS)
> No, a co je to sitove zarizeni? Router,switch,HUB,linka,modem,...?
OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 25.2.2002 08:40:56
On 21 Feb 2002, at 7:52, Milan Tomes wrote:
> > On 20 Feb 2002, at 16:00, Tomas Vida wrote:
> > > nevite jak na stahovani tarifikacnich udaju z tel. ustreden? Je na
> > > to nejaky obecny postup?
> > V podstate je obecny postup v tom, ze se ctou data s toho portu. Ale
> > vazne - je potreba vedet, v jakem formatu ta ustredna data posila.
> > To je pro kazdou jine a velice rozmanite, zhruba se to da
>
> V podstate mas pravdu, ale vzdycky jsou to textova data. Staci vsechno
> prijmout a pak si podle prijatych dat udelat nejaky parser, ktery
> rozebere jednoduchy soubor. Tusim, ze je pravidlem, ze vsechny
> ustredny to posilaji ve formatu, ktery ma pevne umistene jednotlive
> sloupce, tudiz tam nejsou oddelovace.
Neni tomu tak.
Jeste jedna vec - zajisti si
> prubezne stahovani, protoze ustredny maji docela maly buffer (tusim,
> ze 616-ka ma jenom 32kB).
Casto je ale ustredna doplnena externim bufferem, ktery je potreba
z programu taky "nakopnout" aby zacal posilat data.
> > odpozorovat od oka. Nektere ustredny potrebuji nakopnout - nez
> > zacne posilat data, musi se na ten port neco poslat a to neco
> > muze byt zase ruzne. Nektere ustredny data posilaji a nestaraji se o
> > ne, jine pozaduji za kazdou vetou ACK.
>
> Vetsina ustreden kasle na potvrzovani - lze pripojit i seriovou
> tiskarnu.
>
Z.Kalhous
Zahada s CRC32
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.2.2002 08:53:35
Milan ��ek dne 25 Feb 2002 v 8:32:
> na lokalni stanici si pomoci teto fce zjistim aktualni CRC32. Tento
> udaj umistim do kontrolniho souboru na netu. Pokud nyni stahnu
> pozadovany .cab a znovu na nej pouziju CRC32 funkci, hodnota je zcela
> odlisna. Soubor neni corrupted a da se normalne rozbalit.
>
> Nevite nekdo, v cem je hacek?
Kdyz vezmes originalni soubor a ten stazeny a porovnas je napr. programem FC - nahlasi Ti to
nejake rozdily? Pokud ano, problem pri stahovani (FTP: binarni rezim...?), pokud ne, mas asi chybu
ve vypoctu CRC32 (inicializace promennych?).
Karel Rys
download v threadu
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.2.2002 08:58:31
ahoj,
mam ve sve tride jednu funkci, kterou bych potreboval prepsat do
threadu - to by nebyl az takovy problem. Po cele te funkci mam ale
rozhazene pristupy k ProgressBaru a posilani zprav do logu. Zkousel
jsem dat kompletne tu funkci do metody synchronize, ale prilis mi to
vytezuje aplikaci pri startu - zpomali se vykresleni formulare. Jsou
tam casove narocnejsi akce jako stazeni souboru z internetu a
dekomprese. Muzete mi nekdo naznacit, jak volat metodu synchronize z
ruznych mist metody execute. Muzu nejakym zpusobem predavat do metody
synchronize parametry, bez pouziti glob. promenych?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
______________________________________________________________________
Jake bude pocasi? http://pocasi.seznam(tec)cz
OT - verze delphi + koupe
[*] Vladimir Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 25.2.2002 09:21:19
Dobry den,
jako soukroma osoba jsem si chtel pro sve hratky koupit delphi,
ovsem pokud jsem tomu dobre porozumel tak aplikace vytvorene ve
verzi 6 standart neni mozne dale komercne vyuzivat. Nevzpominam si
( a u borland(tec)cz jsem to nenasel ), ale v nizsich verzich tohle
omezeni nebylo...? Nizsi verze uz kazdopadne borland(tec)cz nenabizi.
Kazdopadne pokud by nekomu po upgrade zbyla nevyuzita licence pro
standart verzi delphi verzi 3-5 tak bych o ni za rozumnou cenu mel
zajem, samozrejme ze pouze original s reg. kartou.
Pripadne nabidky prosim na muj mail.
S pozdravem
V.Nikel
Ulozenie ikony
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.2.2002 09:23:08
At 09:32 24.2.2002 +0100, you wrote:
>Dodnes mi nikto neodpovedal na tento e-mail. Aspon mi prosim povedzte, ci
>teda to nie je vobec mozne v Delphi alebo je to prilis zlozite?
function CreateIcon(ABitmap:TBitmap):TIcon;
var
IconSizeX : integer;
IconSizeY : integer;
XOrMask : TBitmap;
MonoMask:TBitmap;
BlackMask:TBitmap;
IconInfo : TIconInfo;
R:trect;
transcolor:Tcolor;
begin
{Get the icon size}
{IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);}
IconSizeX := 16;
IconSizeY := 16;
R:=Rect(0, 0, IconSizeX, IconSizeY); {Create the "XOr" mask}
XOrMask := TBitmap.Create;
XOrMask.Width := IconSizeX;
XOrMask.Height := IconSizeY;
{stretchdraw mypaint}
XorMask.canvas.draw(0,0,Abitmap);
//transcolor:=XorMask.Canvas.Pixels [0,IconSizeY-1];
transcolor:=clFuchsia;
{Create the Monochrome mask}
MonoMask := TBitmap.Create;
MonoMask.Width := IconSizeX;
MonoMask.Height := IconSizeY;
MonoMask.Canvas.Brush.Color := Clwhite;
MonoMask.Canvas.FillRect(R);
{Create the Black mask}
BlackMask := TBitmap.Create;
BlackMask.Width := IconSizeX;
BlackMask.Height := IconSizeY; {if black is not the transcolor we must replace black
with a temporary color}
if transcolor<>clblack then begin
BlackMask.Canvas.Brush.Color := $F8F9FA;
BlackMask.Canvas.FillRect(R);
BlackMask.canvas.BrushCopy(R,XorMask,R,clblack);
XorMask.Assign (BlackMask);
end;
{now make the black mask}
BlackMask.Canvas.Brush.Color := Clblack;
BlackMask.Canvas.FillRect(R);
{draw the XorMask with brushcopy}
BlackMask.canvas.BrushCopy(R,XorMask,R,transcolor);
XorMask.Assign (BlackMask);
{Assign and draw the mono mask}
XorMask.Transparent:=true;
// XorMask.TransparentColor :=transcolor;
XorMask.TransparentColor :=clblack;
MonoMask.Canvas.draw(0,0,XorMask);
MonoMask.canvas.copymode:=cmsrcinvert;
MonoMask.canvas.CopyRect (R,XorMask.canvas,R);
MonoMask.monochrome:=true;
// XorMask.transparent:=false;
{restore the black color in the image}
BlackMask.Canvas.Brush.Color := Clblack;
BlackMask.Canvas.FillRect(R);
BlackMask.canvas.BrushCopy(R,XorMask,R,$F8F9FA);
XorMask.Assign (BlackMask); {Create a icon}
result := TIcon.Create;
IconInfo.fIcon := true;
IconInfo.xHotspot := 0;
IconInfo.yHotspot := 0;
IconInfo.hbmMask := MonoMask.Handle;
IconInfo.hbmColor := XOrMask.Handle;
result.Handle := CreateIconIndirect(IconInfo);
{Destroy the temporary bitmaps}
XOrMask.Free;
MonoMask.free;
BlackMask.free;
end; S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Zahada s CRC32
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 25.2.2002 09:26:00
> Kdyz vezmes originalni soubor a ten stazeny a porovnas je napr. programem FC - nahlasi Ti to
> nejake rozdily? Pokud ano, problem pri stahovani (FTP: binarni rezim...?), pokud ne, mas asi chybu
> ve vypoctu CRC32 (inicializace promennych?).
jeste mne napada.. pokud by sobr byl skutecne binarne steny a CRC
nesedel, tak muze byt problem v rozdinych zpusobech vypoctu CRC. jsou
znamy totiz dva ruzne zpusoby vypoctu CRC. (jeden se nazyva tusim
CCITT CRC a druhy tusim ISO CRC)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.OT: Dva dotazy k Win95
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 25.2.2002 09:28:33
Netusite nekdo:
- Proc ve Win95 nejde rucne posunovat ikony na plose a kopirovat
na plochu zastupce primo ze slozek? Jinak vsechny volby
automatickeho prerovnavani ikon a vytvareni novych zastupcu primo
na plose funguji.
- K cemu slouzi NTKERN.VXD? Nejak se objevil v SYSTEM.INI ale
neexistuje na disku takze pri spousteni to hlasi chybu. Po
odklepnuti se win rozjedou a zda se ze az na predchozi
problemecek jedou normalne.
Z.Kalhous
Chybovnik IB serveru
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.2.2002 09:42:57
Ahoj,
V logu SQL serveru (Firebird - nejaky starsi) jsme nasli neco
takoveho:
ben (Server) Mon Dec 31 08:15:18 2001
Super Server/main: Bad client socket, send()
resulted in SIGPIPE, caught by server
client exited improperly or crashed
????
(Server) Mon Dec 31 08:15:18 2001
INET/inet_error: read errno = 110
????
(Server) Mon Dec 31 08:15:18 2001
INET/inet_error: send errno = 32
Nevite nekdo o nejake dokumentaci, kde by se dalo zjistit, co to je
za chyby? Aby se vedelo, co znamena to errno 110 apod., prip. i ta
prvni chyba. V dokumentaci, kterou mam, jsem nic podobneho
nenasel.
Diky.
David Lebeda
Zahada s CRC32
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.2.2002 09:51:24
Ahoj Lukasi,
nejde o FTP prenos ale o HTTP. Myslim, ze v nahodne inicializaci
promenych to neni - ty ruzne 2 generovane vysledky jsou vzdy shodne
(souborove odlisne), krom toho neni co inicializovat. Pro jistotu
prikladam tu mou funkci... Jinak bych se jeste rad zeptal: CRC32 je
pokryto nejakou normou? Ten konstantni polynom v konstante je urceny?
- myslim, ze jsem videl nekolik variant.
const
ReadBufferSize = 4096;
Crc32Table: array[0..255] of Cardinal = (
$00000000, $04C11DB7, ... $B1F740B4);
function UpdateCRC32(Value: byte; CRC32: cardinal): Cardinal;
begin
Result:=((CRC32 shr 8) and $00FFFFFF) xor CRC32Table[Byte(CRC32 xor
Value) and $000000FF];
end;
function GetCRC32OfFile(FileName: string): Cardinal;
var FileHandle: HWND; Buffer: array[0..ReadBufferSize-1] of Byte;
NumRead,Pos: DWORD;
begin
Result:=$FFFFFFFF;
FileHandle:=CreateFile(PChar(FileName),GENERIC_READ,FILE_SHARE_READ,nil,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN,0);
if FileHandle>0 then
begin
repeat
if ReadFile(FileHandle,Buffer,ReadBufferSize,NumRead,nil)
then
for Pos:=1 to NumRead do
Result:=UpdateCrc32(Ord(Buffer[Pos]),Result)
else NumRead:=0;
until NumRead<>ReadBufferSize;
CloseHandle(FileHandle);
end;
end;
> > Kdyz vezmes originalni soubor a ten stazeny a porovnas je napr. programem FC - nahlasi Ti to
> > nejake rozdily? Pokud ano, problem pri stahovani (FTP: binarni rezim...?), pokud ne, mas asi chybu
> > ve vypoctu CRC32 (inicializace promennych?).
>
> jeste mne napada.. pokud by sobr byl skutecne binarne steny a CRC
> nesedel, tak muze byt problem v rozdinych zpusobech vypoctu CRC. jsou
> znamy totiz dva ruzne zpusoby vypoctu CRC. (jeden se nazyva tusim
> CCITT CRC a druhy tusim ISO CRC)
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Digitalni podpis programu
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 25.2.2002 09:54:34
Nevite nekdo, zda se da digitalne podepsat program vytvoreny v Delphi ? (tak
aby se dal program po prislusnem potvrzeni povazovat za program z
duveryhodneho zdroje)
Jde mi take o pripadnou instalaci (Inno Setup, Install Shield) a taky o
podpisy maker v excelovskych tabulkach (tak aby se excelovska tabulka s
makry data spustit bez dotazu).
Co je k tomu potreba ? Tusim, ze existuje nekolik kategorii digitalnich
podpisu.
A kde se to da poridit - samozrejme nejlepe zadarmo :-)
Tomas
Interbase id
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 25.2.2002 09:56:44
zdrav�m kolegov�
pros�m o radu
Mam v Interbasi tabulku a v ni polozku ID. Poterbuji aby se automaticky
plnila hodnotou. Lze to nejak provest?
dekuji
zdarvi Stepan Vasek
Digitalni podpis programu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.2.2002 10:14:39
> Nevite nekdo, zda se da digitalne podepsat program vytvoreny
> v Delphi ? (tak aby se dal program po prislusnem potvrzeni
> povazovat za program z duveryhodneho zdroje)
Sucastou MS Platform SDK je signcode.exe. Da sa nim podpisat akykolvek
executable subor, ale napriklad aj "cabinet" subory (.cab).
HTH
TOndrej
icona
[*] Standa <Ooman(zv)centrum(tec)cz> - 25.2.2002 10:42:34
Jde ulozit iconu (TIcon), tak aby mela vic nez 256 barev???
Pokud ano, jak :-).OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 25.2.2002 10:49:27
No, ja jsem si k seriovemu vystupu z ustredny pripojil COMport monitor,
a nejake data z toho lezly, ale byl to pekny paskvil, ktery se ani
omylen nepodoba ani casovemu udaji, ani tel. cislu, ani nicemu
podobnemu. Asi bych potreboval algoritmus, jak z tohoto nesmyslu dostat
rozumny textovy retezec.
Tomas V.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Kalhous Zdenek
Sent: Monday, February 25, 2002 8:41 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: OT: stahovani tarifikacnich udaju z tel. ustredny Panasonic
Casto je ale ustredna doplnena externim bufferem, ktery je potreba
z programu taky "nakopnout" aby zacal posilat data.
> > odpozorovat od oka. Nektere ustredny potrebuji nakopnout - nez zacne
> > posilat data, musi se na ten port neco poslat a to neco muze byt
> > zase ruzne. Nektere ustredny data posilaji a nestaraji se o ne, jine
> > pozaduji za kazdou vetou ACK.
>
> Vetsina ustreden kasle na potvrzovani - lze pripojit i seriovou
> tiskarnu.
>
Z.Kalhous
OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 25.2.2002 10:53:20
> No, ja jsem si k seriovemu vystupu z ustredny pripojil COMport monitor,
> a nejake data z toho lezly, ale byl to pekny paskvil, ktery se ani
> omylen nepodoba ani casovemu udaji, ani tel. cislu, ani nicemu
> podobnemu. Asi bych potreboval algoritmus, jak z tohoto nesmyslu dostat
> rozumny textovy retezec.
>
> Tomas V.
Uz si to nepamatuju, ale neni nutne neco nakonfigurovat na ustredne ? Mam
takovy pocit, ze je moznost zmenit format posilanych dat.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Zahada s CRC32
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 25.2.2002 11:06:10
> Ahoj Lukasi,
> nejde o FTP prenos ale o HTTP. Myslim, ze v nahodne inicializaci
> promenych to neni - ty ruzne 2 generovane vysledky jsou vzdy shodne
> (souborove odlisne), krom toho neni co inicializovat. Pro jistotu
> prikladam tu mou funkci... Jinak bych se jeste rad zeptal: CRC32 je
> pokryto nejakou normou? Ten konstantni polynom v konstante je urceny?
> - myslim, ze jsem videl nekolik variant.
Ja prave zazil jen dve varianty... obecne pouzivane CRC je tusim
definovano prave ISO normou, a je to to CRC, ktere se nejcasteji
pouziva.
kdysi kdyz jsem programoval ZMODEM protokol, tak jsem prisel na to,
ze tam se CRC pocita jinak. (to je ta varanta tusim CCITT) respektive
v tom vzorecku bylu nejak jinak rozmistene zavorky a ty logicke
operatory... ta tabulka byla jinak uplne stejna.
Nicmene jsem se ve tvem prolemu trosku ztratil. Problem je ten, ze se
ti pokazde stahne jinak vypadajici soubor? nebo je problem v tom, ze
soubor je stejny, ale CRC je jine? pocitas to CRC uplne stejnou
rutinou? jsou ty soubory opravdu stejne?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Digitalni podpis programu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.2.2002 11:14:02
Puvodni zprava, kterou napsal Tomas Grepl dne 25 Feb 2002:
> Co je k tomu potreba ? Tusim, ze existuje nekolik kategorii digitalnich
> podpisu. A kde se to da poridit - samozrejme nejlepe zadarmo :-)
Musis mit v prvni rade certifikat. Kdyz si ho vytvoris sam sobe, tak je
to na prd, protoze si ho kazdy musi nainstalovat, protoze neni vystaven
duveryhodnou certifikacni autoritou. Kdyz si ho koupis od certifikacni
autority, tak za nej zaplatis par stovek dolaru (www.thawte.com,
www.verisign.com).
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 25.2.2002 11:14:26
From: "Tomas Vida" <vida(zv)uniware(tec)cz>
> No, ja jsem si k seriovemu vystupu z ustredny pripojil COMport
monitor,
> a nejake data z toho lezly, ale byl to pekny paskvil, ktery se ani
> omylen nepodoba ani casovemu udaji, ani tel. cislu, ani nicemu
> podobnemu.
A jsi si jist, ze jsi mel nastavenou spravnou prenosovou rychlost?
Zkus projit celou radu rychlosti rekneme od 9600 nahoru, jestli se to
nezlepsi.
Bye, pf
Zahada s CRC32
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.2.2002 11:18:04
> Nicmene jsem se ve tvem prolemu trosku ztratil. Problem je ten, ze se
> ti pokazde stahne jinak vypadajici soubor? nebo je problem v tom, ze
> soubor je stejny, ale CRC je jine? pocitas to CRC uplne stejnou
> rutinou? jsou ty soubory opravdu stejne?
Porovnal jsem soubory pomoci WinCommandera, ktery je oznacil za
identicke. Presne tak, z jednoho programu mi vyleze jiny CRC nez z
druheho. Pritom pouzivam v obouch tech programech sdilenou unitu
prave s touto funkci. Prosel jsem znovu vsechny promene (cardinal),
jestli mi to nekde nepreteka, ale podle me je to ok.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.2.2002 11:20:18
> No, ja jsem si k seriovemu vystupu z ustredny pripojil COMport
monitor,
> a nejake data z toho lezly, ale byl to pekny paskvil, ktery se ani
> omylen nepodoba ani casovemu udaji, ani tel. cislu, ani nicemu
> podobnemu. Asi bych potreboval algoritmus, jak z tohoto nesmyslu
dostat
> rozumny textovy retezec.
staci nastavit parametry COM portu v PC stejne jako v ustredne...
D. Toman
Interbase id
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 25.2.2002 11:25:11
create generator my_table_gen;
set term !! ;
create trigger my_table_bi for my_table before insert
as begin
new.id = gen_id(my_table_gen,1);
end;
set term ; !!
Martin Ben
> -----Original Message-----
> From: VASEK STEPAN [mailto:vaseks(zv)stp(tec)cz]
>
> zdrav�m kolegov�
> pros�m o radu
>
> Mam v Interbasi tabulku a v ni polozku ID. Poterbuji aby se
> automaticky
> plnila hodnotou. Lze to nejak provest?TreeView a konfigurace hodnot
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 25.2.2002 11:29:32
Dobry den,
mam takovyto problem, chtel bych udelat konfiguraci nektery hodnot
zpusobem, ze budou zobrazeny v TreeView a pokud kliknu na editovanou
polozku, aby se hned u ni zobrazil ComboBox (viz. nastavovani
tiskaren apod.). Akorat nevim jakou technologii narvani ComboBoxu za
text pouzit. Neresil jste to nekdo?
Diky
Petr
______________________________________________________________________
GPRS> V�dy p�ipojen - Ov��eno na lidech http://ad2.seznam(tec)cz/redir.cgi?instance=12345%26url=http://www.gprsforum(tec)cz
Zahada s CRC32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.2.2002 11:32:45
Puvodni zprava, kterou napsal Milan ��ek dne 25 Feb 2002:
> na lokalni stanici si pomoci teto fce zjistim aktualni CRC32. Tento
> udaj umistim do kontrolniho souboru na netu. Pokud nyni stahnu
> pozadovany .cab a znovu na nej pouziju CRC32 funkci, hodnota je zcela
> odlisna. Soubor neni corrupted a da se normalne rozbalit.
Inicializujes znovu CRC na spravnou seed hodnotu?
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================TreeView a konfigurace hodnot
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 25.2.2002 11:34:52
> Dobry den,
> mam takovyto problem, chtel bych udelat konfiguraci nektery hodnot
> zpusobem, ze budou zobrazeny v TreeView a pokud kliknu na editovanou
> polozku, aby se hned u ni zobrazil ComboBox (viz. nastavovani
> tiskaren apod.). Akorat nevim jakou technologii narvani ComboBoxu za
> text pouzit. Neresil jste to nekdo?
http://www.lischke-online.de/VirtualTreeview/VT.html
Ales
TreeView a konfigurace hodnot
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 25.2.2002 11:41:26
----- Original Message -----
From: "Petr Kukl�k" <Petr.Kuklik(zv)seznam(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 25, 2002 11:29 AM
Subject: TreeView a konfigurace hodnot
Dobry den,
mam takovyto problem, chtel bych udelat konfiguraci nektery hodnot
zpusobem, ze budou zobrazeny v TreeView a pokud kliknu na editovanou
polozku, aby se hned u ni zobrazil ComboBox (viz. nastavovani
tiskaren apod.). Akorat nevim jakou technologii narvani ComboBoxu za
text pouzit. Neresil jste to nekdo?
Diky
Petr
www.eldos.org
hledej ElTreeLite
Radim
Jak pristupovat k MS SQL
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 25.2.2002 11:47:45
Jak mohu pristupovat k MS SQL serveru - a jake vlastnosti musim dane
komponenty nastavit?
Diky...Zahada s CRC32 - objasneno
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.2.2002 11:49:50
Dne 25.��nor�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> Inicializujes znovu CRC na spravnou seed hodnotu?
ahoj,
ten problem jsem jis nasel. Na vine je patrne funkce ReadInteger z
ini souboru. Sta�ilo zapnou overflow a range checking a uz mi to
hlasilo. Nasledne totiz porovnavamnove ziskane CRC (cardinal) s
hodnotou prectenou z toho ini, coz je sice take cardinal, ale pri
ReadInteger to pretece/posune.
Jak to mam tedy vyresit:
1) existuje funkce jako je ReadInteger, ktera dokaze zpracovat vetsi
cisla? (cardinal,int64...)
2) mam to vse pretypovat na integer a az pote porovnat?
Diky moc za pomoc.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Jsi muz? Jsi spokojen se svym sexualnim zivotem nebo chces zvysit svou
sexualni vykonnost. Ted mas sanci. Chyt ji hned. http://www.zdravimuze(tec)cz Nastaveni urovni na RS232
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 25.2.2002 11:51:42
Pratele, potreboval bych pomoci Delphi5 na ComPortu prepinat logicke urovne
na signalech CTS,RTS,DTR,CD (je mi jedno jak, ale libovolne dva z techto
signalu potrebuji dostat do 0 a dva do 1.) Zkousel jsem ruzne komponenty pro
RS232, ale ty umely nastavit maximalne RTS a DTR. Nev�te, prosim jak na to?
D5 pro, W2000
Dik zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
Zahada s CRC32
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.2.2002 11:54:07
Milan ��ek dne 25 Feb 2002 v 9:51:
> if FileHandle>0 then
> begin
> repeat
> if ReadFile(FileHandle,Buffer,ReadBufferSize,NumRead,nil) then
> for Pos:=1 to NumRead do
> Result:=UpdateCrc32(Ord(Buffer[Pos]),Result)
> else NumRead:=0;
> until NumRead<>ReadBufferSize;
> CloseHandle(FileHandle);
> end;
> end;
Mozna je problem i v tom, ze buffer je indexovan od 0, ale v cyklu ho
prochazis od 1, takze obcas nejaky ten byte nezapocitas.
Zkousel jsi ty soubory porovnat tim FC, jak jsem psal puvodne? Jsou skutecne
shodne?
Karel Rys
Digitalni podpis programu
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 25.2.2002 12:19:07
> > Co je k tomu potreba ? Tusim, ze existuje nekolik kategorii digitalnich
> > podpisu. A kde se to da poridit - samozrejme nejlepe zadarmo :-)
> Musis mit v prvni rade certifikat. Kdyz si ho vytvoris sam sobe, tak je
> to na prd, protoze si ho kazdy musi nainstalovat, protoze neni vystaven
> duveryhodnou certifikacni autoritou.
To by zase tak moc nevadilo - zakazniku, kteri by toto potrebovali neni
mnoho a neni problem u nich jednorazove cokoli nainstalovat.
Jde mi predevsim o to zabezpecit instalaci novych verzi, kterych muze byt
postupne mnoho a taky o to, aby tabulky z Excelu obsahujici makra behaly bez
potreby rucne potvrzovat zabezpeceni maker proti virum.
Jak bych mel v takovemto pripade postupovat - kde vezmu ten certifikat ?
Tomas
Minimalizace aplikace pri minimalizaci modalniho f
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 25.2.2002 12:22:50
ja pouzivam toto a zatim se zda ze to funguje
> procedure TForm2.DoSCMinimize(var Message: TWMSysCommand);
> begin
if (TWMSysCommand(Message).CmdType and $FFF0=SC_MINIMIZE) then
begin Msg.Result:=0; EnableWindow (Application.Handle,true);
Application.Minimize; exit; end;
> end;
ISNULL na FB
[*] Anton�n �ez�� - 25.2.2002 12:32:27
Zdravim,
docela by se mi hodila na FB podobna funkce jako je v MS SQL "ISNULL(check expr,replacement value)"
Nepodarilo se mi vsak nic objevit, existuje neco takoveho ?
Vojta
konference o C++
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 25.2.2002 12:34:18
mailing list - na www.pandora(tec)cz konference cecko
www.eternal(tec)cz
www.codeguru.com
www.codecentral.com
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: ZPS konference [SMTP:delphi(zv)zps.skoda-auto(tec)cz]
>
> muzete mi nekdo prosim poradim dobry mailing list o C++, nebo primo
> zamerenou na MS Visual C++.
> Existuje archiv konference C++, tak jako u Delphi konference?
> Existuje v cesku server zabivajici se C++, jaky zahranicni (v anglictine)
> server o C++ byste mi doporucili.
> Zahada s CRC32 - objasneno
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 25.2.2002 12:37:44
> Jak to mam tedy vyresit:
> 1) existuje funkce jako je ReadInteger, ktera dokaze zpracovat vetsi
> cisla? (cardinal,int64...)
> 2) mam to vse pretypovat na integer a az pote porovnat?
Byl bych tvrdej a suse pretypovaval.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Digitalni podpis programu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.2.2002 12:43:59
Puvodni zprava, kterou napsal Tomas Grepl dne 25 Feb 2002:
> To by zase tak moc nevadilo - zakazniku, kteri by toto potrebovali neni
> mnoho a neni problem u nich jednorazove cokoli nainstalovat. Jde mi
> predevsim o to zabezpecit instalaci novych verzi, kterych muze byt
> postupne mnoho a taky o to, aby tabulky z Excelu obsahujici makra behaly
> bez potreby rucne potvrzovat zabezpeceni maker proti virum. Jak bych mel v
> takovemto pripade postupovat - kde vezmu ten certifikat ?
Jak se podepisuji makra Excelu, to z hlavy nevim, ja podepisuji jen EXE a
OCX apod. To se dela utilitou signcode.exe. Musis vytvorit privatni klic
a pak certifikat. Na to je par utilit (makecert.exe apod.), ktere najdes
v InetSDK od MS. Hledej na MS webu treba signcode.exe nebo makecert.exe a
najdes jiste download i popis...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================kreslenie ciar [runtime]
[*] iturcan(zv)gamo.sk - 25.2.2002 12:52:36
Ahojte,
potrebujem vyriesit jeden malicky problem. Hladam nejaku komponentu do
Delphi ktora by dokazala kreslit ciary. Jeda sa mi o to ze tieto ciary by
sa mali dat po nakresleni dalej natahovat,presuvat popripade zalamovat a
pod.. Jestvuje na to nejaka komponenta ? ak ano aka ?
dakujem za kazdu radu
Ivan
PickList v DBGridu
[*] Michal Hampl <DELPHI(zv)WSC.CZ> - 25.2.2002 13:11:13
Ahoj, sice pozde, ale prece:
DBGrid1.SelectedIndex := 0; //tady vyberes sloupec, pokud chces u
aktualniho, nemusi to tu byt
DBGrid1.EditorMode := True;
PostMessage(DBGrid1.InplaceEditor.Handle, WM_KEYDOWN, VK_DOWN,
558891009);
// programove stisknuti klaves ALT+DOWN
Nevim, jestli je to spolehlive, ale me to zatim fungovalo.
Michal
>From: Eva Risicov�
>potrebovala bych na stisk nejake klavesy na bunce v komponente DBGrid
>rozbalit obsah PickListu (vlastne ten comboBox, ktery se tam vytvori).OT : konference o C++
[*] Karasek Jaroslav <Jaroslav.Karasek(zv)swh.sk> - 25.2.2002 13:19:03
Zdravim,
Na Pandore : cecko(zv)pandora(tec)cz
Jaro Karasek
> -----Original Message-----
> From: ZPS konference [mailto:delphi(zv)zps.skoda-auto(tec)cz]
> Sent: Monday, February 25, 2002 11:50 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: konference o C++
>
>
> Dobry den,
>
> muzete mi nekdo prosim poradim dobry mailing list o C++, nebo primo
> zamerenou na MS Visual C++.
> Existuje archiv konference C++, tak jako u Delphi konference?
> Existuje v cesku server zabivajici se C++, jaky zahranicni
> (v anglictine)
> server o C++ byste mi doporucili.
>
> Diky Ales Gregor
> Seznam oprav zdrojaku pro D6
[*] Karel Cibulka <KCibulka(zv)seznam(tec)cz> - 25.2.2002 13:41:40
Ahoj,
se zajmem jsem sledoval diskuzi na tema D6 a SP#2 a vyplynula z toho
pro me jedna zajimava informace - kdosi se tam zminoval, ze si sam
rucne "patchuje" do zdrojaku opravy, ktere jaksi Borlandi opomeli
naimplementovat nebo opravou vyrobili (viz. fce
TApplication.IsMDIMsg).
Chtel jsem se tedy zeptat - ma nekdo nebo vi nedko o strance, kde by
byl uverejnen seznam znamych a neimplementovanych oprav zdrjaku, tak
aby si clovek aspon rucne mohl neco sam opravit a nebyl zavisly ciste
na opravach oficialne uverejnenych Borlandem? Nemusi to byt ciste pro
D6, myslim si ze by nebylo od veci rozdeleni na jednotlive verze,
protoze ne kazdy automaticky prechazi na novou verzi prostredi...
K.C.
______________________________________________________________________
Jsi muz? Jsi spokojen se svym sexualnim zivotem nebo chces zvysit svou
sexualni vykonnost. Ted mas sanci. Chyt ji hned. http://www.zdravimuze(tec)cz OT: Pascal a pam�
[*] Zdenek Delphi <dkonf(zv)seznam(tec)cz> - 25.2.2002 13:50:44
Ahoj lidickove,
chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
Lze nejak vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak
bych rad vedel jak :-)
Dik moc.
Zdenek
______________________________________________________________________
"Http://poradna.bilezbozi(tec)cz - poradte se s nasim servisnim technikem!"TrueType v PDF
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.2.2002 13:57:37
Zdar,
delam TpdfCanvas, ktery bude umet ukladat do PDF a narazil jsem na
problem jak ulozit TrueType font do PDF souboru. Vsechno se mi podarilo
zjistit a dat do PDF, ale nevim co mam ulozit jako soubor - kdyz tam vlozim
primo treba TAHOMA.TTF tak mi do Adobe Acrobat neprecte a nahradi teckami.
Poradi nekdo? Nevite trebas alespon nejaky link? Predem dikes. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Nazev pocitace
[*] Commanche <komurka(zv)myto(tec)cz> - 25.2.2002 14:13:31
Zdravim,
poradte mi jak zjistit nazev pocitace na kterem bezi program,
existuje nejaka funkce?
Diky
Commanche
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.319 / Virov� b�ze: 178 - datum vyd�n�: 28.1.2002
Zobrazen� seznamu View v IB6
[*] Jaroslav Blazek <blazek(zv)zhc(tec)cz> - 25.2.2002 14:16:04
Ahoj,
seznam tabulek v databazi IB zobrazim pomoci IBDatabase1.GetTableNames(Memo1.Lines,False).
Jak zobrazim deklarovan� View 20
Diky za radu.
Jarda Blazek blazek(zv)zhc(tec)cz
Nazev pocitace
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 25.2.2002 14:22:21
function CurrPCName: string;
var
CompName: PChar;
Delka: cardinal;
begin
Delka:=100;
GetMem(CompName,Delka);
try
GetComputerName(CompName,Delka);
Result:=CompName;
finally
FreeMem(CompName);
end;
end;
Martin Ben
> -----Original Message-----
> From: Commanche [mailto:komurka(zv)myto(tec)cz]
>
> Zdravim,
>
> poradte mi jak zjistit nazev pocitace na kterem bezi program,
> existuje nejaka funkce?
>
> Diky
> Commanche
download v threadu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 25.2.2002 14:23:54
Ja to volam takto:
// volani udalosti OnProgress
procedure THTTPGetThread.DoProgress;
begin
if not Terminated and Assigned(FOnProgress) then
FOnProgress(Self, FFileSize, FBytesReaded);
end;
...
a pak po kazdych prijatych 1000 bytech:
Synchronize(DoProgress);
Vsechny promenne, ktere chci predat (FFileSize, FBytesReaded) jsou pole
objektu THTTPGet, tedy naslednika TThread.
Milan ��ek wrote:
> Muzete mi nekdo naznacit, jak volat metodu synchronize z
> ruznych mist metody execute. Muzu nejakym zpusobem predavat do metody
> synchronize parametry, bez pouziti glob. promenych?
>
> Diky
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
> Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
> ______________________________________________________________________
> Jake bude pocasi? http://pocasi.seznam(tec)cz
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Pascal a pam�
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 25.2.2002 14:24:48
> P�edm�t: OT: Pascal a pam�
>
> chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
> pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
> Lze nejak vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak
> bych rad vedel jak :-)
Ahoj,
u BP 7.0 muzes pouzit v menu Compile/Target volbu Protected. Je to ale 286
protected mode, takze adresuje max. 16 MB a v tomto modu jsou i mensi
problemy s kompatibilitou s real mode (typicky primo adresovana videopamet).
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
OT: Pascal a pam�
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.2.2002 14:25:05
Pokud pouzijes misto TurboPascalu BorlandPascal (obe jsou verze tusim
7.0), mely by se tve problemy vyresit.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
25.2.2002 Zdenek Delphi:
> chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
> pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
> Lze nejak vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak
> bych rad vedel jak :-)Nazev pocitace
[*] Radek Hole�ek <radek.holecek(zv)fire(tec)cz> - 25.2.2002 14:26:29
Zdravim,
doufam, ze Ti to bude fungovat.
procedure NazevPC;
const cnMaxUserNameLen = 254;
var sUserName :string;
dwUsernamelen:dword;
Pocitac : string;
begin
{ jmeno PC }
dwUserNameLen:=cnMaxUserNameLen - 1;
SetLength(sUsername,cnMaxUserNameLen);
GetComputerName(Pchar(sUserName),dwUserNameLen);
SetLength(sUserName,dwUserNameLen);
Pocitac := sUserName;
end;
S pozdravem
Radek Holecek
>Zdravim,
>poradte mi jak zjistit nazev pocitace na kterem bezi program,
>existuje nejaka funkce?
>Diky
>Commanche
TrueType v PDF
[*] Roman Toda <toda(zv)digitaldocuments.org> - 25.2.2002 14:32:41
Ake presne problemy mas? Vlozit font file? zistit diferences? urobit
/ToUnicode table? alebo zapisat text pomocou tohoto fontu?
Povedal by som, ze si si vybral tazku ulohu a radsej by som to robil
standardnymi Acrobatovymi fontami (base14) a nie vkladat font.
Najviac a nejlepsie je o tom pisane v PDF reference (partners.adobe.com)
Roman
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> Sent: Monday, February 25, 2002 1:58 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: TrueType v PDF
>
>
> Zdar,
>
> delam TpdfCanvas, ktery bude umet ukladat do PDF a narazil jsem na
> problem jak ulozit TrueType font do PDF souboru. Vsechno se mi podarilo
> zjistit a dat do PDF, ale nevim co mam ulozit jako soubor - kdyz
> tam vlozim
> primo treba TAHOMA.TTF tak mi do Adobe Acrobat neprecte a nahradi
> teckami.
> Poradi nekdo? Nevite trebas alespon nejaky link? Predem dikes.FB: Commit versus CommitRetaining
[*] Martinec <martin108(zv)post(tec)cz> - 25.2.2002 14:41:25
Muzete mi nekdo vysvetlit rozdil mezi Commit a CommitRetaining. Dival jsem se do dokumentace, ale nejak se mi nedari to pochopit.
Dekuji Martinec
Momentary Lapse of Reason
Kniha 1001 tipu a triku pro Delphi
[*] Igor Svetlik <Igor.Svetlik(zv)statistics.sk> - 25.2.2002 14:48:02
Zdravim Vas vsetkych. Moj problem spociva v tom ze v uvedenej knihe je na s.121 priklad c.327 Nacteni obrazku ve formatu JPG ze souboru zdroju ( v danom priklade ma soubor zdroju meno TEST.RES). Cely priklad mi je viacmenej jasny, nie je mi vsak jasne, ako vytvorim uvedeny soubor zdroju TEST.RES . Uvital by som napisanie celej procedury, pripadne i priklad volania tejto procedury s parametrami ako vytvorit uvedeny soubor zdroju obrazkov jpg. V priklade chyba navod, ako uvedeny soubor zdroju vytvorit.
Vopred dakujem.
Igor Svetlik
OT: Pascal a pam�
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.2.2002 14:53:56
Zdenek Delphi dne 25 Feb 2002 v 13:50:
> Ahoj lidickove,
>
> chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
> pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti. Lze nejak
> vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak bych rad vedel
> jak :-)
Ahoj,
jestli pouzivas Borland Pascal, je moznost prelozit program v Protected mode; pak bys mel k
dispozici i extended memory a dalo by se k ni pristupovat normalne pomoci prikazu pro alokaci
pameti.
Potize mohou nastat ovsem tehdy, pokud nekde provadis pocitani s ukazateli (zvyseni hodnoty
segmentu "se nesmi"). Rovnez oblibene konstanty $A000 apod. se musi nahradit k tomu ucelu
existujicimi promennymi (tusim SegA000?).
Pokud se rozhodnes pro chraneny rezim, doporucuju nejprve zazalohovat puvodni verzi programu a pak
se pustit do reseni potizi :-)
Karel Rys
Commit versus CommitRetaining
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 25.2.2002 14:59:29
Rozdil je v tom, ze Commit provede uplatneni zmen v aktualni transakci a
pote tu transakci ukonci. CommitRetaining provede to same jako Commit, jen s
tim rozdilem, ze pote "spusti" novou transakci.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Muzete mi nekdo vysvetlit rozdil mezi Commit a CommitRetaining. Dival jsem
se do dokumentace, ale nejak se mi nedari to pochopit.
>
> Dekuji Martinec
>
> Momentary Lapse of Reason
>Commit versus CommitRetaining
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 25.2.2002 15:52:36
> ukonci. CommitRetaining provede to same
> jako Commit, jen s tim rozdilem, ze pote
> "spusti" novou transakci.
nejsem si jisty, jestli "spusti" novou transakci,
ja mel za to, ze necha tu rozjetou tu puvodni,
pouze zplatni doposud provedene dotazy.
tedy, podstatne je to, zda se zmeni cislo transakce
ci nikoliv. to proto, jestli transakcepo
CommitReataining uvidi nove verze zaznamu nebo ne.
podle helpu:
The current transaction is the last transaction
started by calling StartTransaction.
takze _ne_spusti, ale pokracuje v te puvodni,
se vsemi dusledky z toho vyplyvajicimi.
dekuji PeC(zv)Proxies
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 25.2.2002 16:05:04
Unita DesignEditors ma v uses deklaraci Proxies. Nemuzu ji najit nevite kde
se nachazi popripade jak to obejit
Dik
CreateTable
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 25.2.2002 16:11:33
Zdravim,
zkousim vytvorit table v paradoxu pomoci T&T 507, pres TTAble, ale kdyz tam nedam index, tak mi to spadne na invalid parameter. To nejde vytvorit table bez indexu?:-( Mam to jen pro nacteni z txt a drobne upravy cca 30-50 radek. D5, NT4. Diky. M&B Problem s vytvorenim souboru zdroju test.res podla
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 25.2.2002 16:20:17
Zdravim Vas vsetkych. Moj problem spociva v tom ze v knihe 1001 tipu a triku
pro Delphi je na s.121 priklad c.327 Nacteni obrazku ve formatu JPG ze
souboru zdroju ( v danom priklade ma soubor zdroju meno TEST.RES). Cely
priklad mi je viacmenej jasny, nie je mi vsak jasne, ako vytvorim uvedeny
soubor zdroju TEST.RES . Uvital by som napisanie celej procedury, pripadne i
priklad volania tejto procedury s parametrami ako vytvorit uvedeny soubor
zdroju obrazkov jpg. V priklade chyba navod, ako uvedeny soubor zdroju
vytvorit.
Vopred dakujem.
Igor Svetlik
Pascal a pam�
[*] Zden�k Moravec <moravec(zv)alpha.ujep(tec)cz> - 25.2.2002 16:35:19
Ahoj,
pokud jde o Borland Pascal 7.0 (nevim jak ve starsich verzich), tak jsem v
menu Compile-Target zaskrtaval "Protected mode application" (misto "Real
mode application") a potom se da adresovat az asi 16MB pameti pomoci
dynamicky alokovanych promennych/pointeru. Ta pamet musi byt myslim
pristupna zavedenim ovladace EMM386 v autoexec.bat nebo config.sys nebo tak
nejak, uz to dlouho nepouzivam, tak nevim presne.
Zdenek Moravec
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zdenek Delphi
> Sent: Monday, February 25, 2002 1:51 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Pascal a pam�
>
> Ahoj lidickove,
>
> chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
> pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
> Lze nejak vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak
> bych rad vedel jak :-)
>
> Dik moc.
>
> Zdenek
>
> ______________________________________________________________________
> "Http://poradna.bilezbozi(tec)cz - poradte se s nasim servisnim technikem!"Jak programove zjistim DPI na tiskarne?
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 25.2.2002 16:39:39
Pozri funkci GetDeviceCaps
napr. PixPerInchX = GetDeviceCaps(printer.handle, LOGPIXELSX)
Dan
----- Original Message -----
From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
To: "dotaz-delp" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 25, 2002 4:52 PM
Subject: Jak programove zjistim DPI na tiskarne?
Ahoj,
na muj minuly dotaz ohledne pixelu nikdo nereagoval -
usuzuji, ze dotaz byl neresitelny a tak to zkusim jinak.
Jak zjistim DPI na tiskarne?
Lze nejak zjistit, jake okraje ma tiskarna nastavene?
Kdyz zjistim max pocet bodu v x a y(Printer.Width;Printer.Height),
muzu zjistit kolik milimetru to ve skutecnosti bude?
Diky
Jirka
______________________________________________________________________
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
Jak programove zjistim DPI na tiskarne?
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 25.2.2002 16:52:50
Ahoj,
na muj minuly dotaz ohledne pixelu nikdo nereagoval -
usuzuji, ze dotaz byl neresitelny a tak to zkusim jinak.
Jak zjistim DPI na tiskarne?
Lze nejak zjistit, jake okraje ma tiskarna nastavene?
Kdyz zjistim max pocet bodu v x a y(Printer.Width;Printer.Height),
muzu zjistit kolik milimetru to ve skutecnosti bude?
Diky
Jirka
______________________________________________________________________
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
Proxies
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 17:05:00
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Unita DesignEditors ma v uses deklaraci Proxies. Nemuzu ji najit nevite kde
> se nachazi popripade jak to obejit
Ahoj,
neni treba to obchazet, protoze se jedna o chybu v tvem kodu. Musis do design
time balicku kde pouzivas property editory pridat designide.dcp do Requires.
Petr Vones
Nazev pocitace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 17:06:56
From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> function CurrPCName: string;
> var
> CompName: PChar;
> Delka: cardinal;
> begin
> Delka:=100;
Ahoj,
toto je spatne. Dle dokumetnace musi mit buffer delku MAX_COMPUTERNAME_LENGTH
+ 1.
Petr Vones
TMemoStream
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 25.2.2002 17:06:42
Zdravim vespolek,
lze nejak jednoduse (ne znak po znaku) nacist cast streamu do stringu. Napr. od pozice 5 do 15? Diky
M&B Jak programove zjistim DPI na tiskarne?
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 25.2.2002 17:06:32
> P�edm�t: Jak programove zjistim DPI na tiskarne?
>
> na muj minuly dotaz ohledne pixelu nikdo nereagoval -
> usuzuji, ze dotaz byl neresitelny a tak to zkusim jinak.
> Jak zjistim DPI na tiskarne?
> Lze nejak zjistit, jake okraje ma tiskarna nastavene?
> Kdyz zjistim max pocet bodu v x a y(Printer.Width;Printer.Height),
> muzu zjistit kolik milimetru to ve skutecnosti bude?
Ahoj,
parametry tiskarny zjistuji pomoci API fce GetDeviceCaps. Lze toho zjistit
hodne (v zasade vse, co potrebujes), podrobnosti hledej v helpu k API.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Volani procedury obecne
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 25.2.2002 17:30:10
Mam nasledujici problem. Mam nekolik formularu ktere vsechny obsahuji
stejnou proceduru(teda nazev delaji neco jineho pro kazdy formular).
Dostal jsem se do situace kdy mam handle formulare ale nejsem schopen tuto
proceduru zavolat protoze neni napsana na urovni tridy. Jak s toho ven
predelavat celou app je blbost prece musi existovat nejaka cesta jak na to
napr. ziskat nejaky seznam vsech procedur nebo tak neco ted me jeste napada
jestli se neda nejak zjistit pointer na tu proceduru a potom to zavolat. Uz
se s tim morim asi 2 hod a na nic nemuzu prit.
Jak na to
Diky
Problemy s IB serverem / klientem
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 25.2.2002 17:41:53
Podle vypisu odhaduji ze IB server je Classic Server.
Zkuste stesti se Super Serverem...
Martin Schayna
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Ahoj,
mame aplikaci, ktera pravidelne rekneme jednou za 5 minut ma
provadet jakousi aktualizaci dat na serveru. Problem je v tom, ze
nahodne, jednou za cas, vznikne vyjimka a my nezname duvod,
proc. To by ale nevadilo - umime ji osetrit, aplikace se z ni zotavi.
Horsi je, ze klientska aplikace pred vznikem vyjimky dle zapisu z
logu stoji cca 15-16 minut a pak teprve ohlasi exception, pote
se jeho osetrenim vzpamatuje.Pascal a pam�
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.2.2002 17:50:43
> > jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
> > Lze nejak vyuzivat jinou nez konvencionalni pamet? Jestli jo, tak
> > bych rad vedel jak :-)
>
> Ahoj,
>
> u BP 7.0 muzes pouzit v menu Compile/Target volbu Protected. Je to
ale 286
> protected mode, takze adresuje max. 16 MB a v tomto modu jsou i
mensi
> problemy s kompatibilitou s real mode (typicky primo adresovana
videopamet).
jinak je mozne po strankach nacitat XMS pamet (stranka tusim mela
16KB - bylo to vhodne na data)
D. Toman
Problem s vytvorenim souboru zdroju test.res podla
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 17:53:41
From: "Igor Svetl�k" <igor.svetlik(zv)statistics.sk>
> Zdravim Vas vsetkych. Moj problem spociva v tom ze v knihe 1001 tipu a triku
> pro Delphi je na s.121 priklad c.327 Nacteni obrazku ve formatu JPG ze
> souboru zdroju ( v danom priklade ma soubor zdroju meno TEST.RES). Cely
> priklad mi je viacmenej jasny, nie je mi vsak jasne, ako vytvorim uvedeny
> soubor zdroju TEST.RES . Uvital by som napisanie celej procedury, pripadne i
V Delphi IDE zmacni 'New' v toolbaru, v Dialogu New Items pak File. Soubor
uloz napriklad jako 'Test.rc'. Do souboru napis:
TEST RCDATA "YourPicture.jpg"
Delphi 5 a 6: V Project Manageru pridej tento .rc soubor do projektu pomoci
popup menu volbou Add. Pak preloz projekt.
Delphi 4: Soubor Test.rc je nutne prelozit rucne pomoci utility BRCC32.EXE a
pak priadat do unitu {$R TEST.RES}
uses
Jpeg;
procedure LoadPictureFromResource(Picture: TPicture; const ResName: string);
var
ResStream: TResourceStream;
JpegImage: TJPEGImage;
begin
JpegImage := nil;
ResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
try
JpegImage := TJPEGImage.Create;
JpegImage.LoadFromStream(ResStream);
Picture.Assign(JpegImage);
finally
JpegImage.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadPictureFromResource(Image1.Picture, 'TEST');
end;
Petr Vones
Volani procedury obecne
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 18:34:02
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Mam nasledujici problem. Mam nekolik formularu ktere vsechny obsahuji
> stejnou proceduru(teda nazev delaji neco jineho pro kazdy formular).
>
> Dostal jsem se do situace kdy mam handle formulare ale nejsem schopen tuto
> proceduru zavolat protoze neni napsana na urovni tridy. Jak s toho ven
> predelavat celou app je blbost prece musi existovat nejaka cesta jak na to
Budto zavedes spolecneho predka pro vsechny formulare (coz se ti asi nechce)
anebo si nadefinujes interface ktery pak bude implementovan ve formularich kde
je to potreba.
Priklad. U nekterych formularu budes chtit mit metodu ShowMyMessage ktera bude
na jeho urovni nejak implementovana.
unit Unit3;
interface
type
IMyForm = interface
['{E3AE45E3-3406-4216-811F-DB8A11C9B71E}']
procedure ShowMyMessage(const MessageText: string);
end;
Vlastni implementace ve danem formulari bude napriklad takova:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit3;
type
TForm2 = class(TForm, IMyForm)
private
{ Private declarations }
public
procedure ShowMyMessage(const MessageText: String);
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TForm2 }
procedure TForm2.ShowMyMessage(const MessageText: String);
begin
Application.MessageBox(PChar(MessageText), PChar(Caption), MB_OK or
MB_ICONINFORMATION);
end;
Volani metody daneho interface (pokud jej dany formular implementuje) pro
vsechny formulare v aplikaci pak muze vypada treba takto:
procedure TForm1.Button2Click(Sender: TObject);
var
MyFormIntf: IMyForm;
I: Integer;
begin
for I := 0 to Screen.FormCount - 1 do
if Supports(Screen.Forms[I], IMyForm, MyFormIntf) then
MyFormIntf.ShowMyMessage('123');
end;
Petr Vones
problemy s MDI frm a childy
[*] David Janko <djanko(zv)infoware(tec)cz> - 25.2.2002 19:38:10
Zdravim vsechny,
narazil jsem na nejake veci/problemy ohledne MDI app. a Child formu:
1. Jak vypnout jeho automaticke show - kdyz ho dam create, tak se totiz
automaticky udela show, a to ja nechci - chci si ho shownout sam az ja budu
chtit :(. (V nekterych pripadech se to da obejit Create-Hide-Show, ale to
neni pekne a jsou pripady kdy to takhle nestaci ...);
Popravde, vubec nechapu, proc normalni form se normalne creatne a pak ho
zobrazim, a MDI child se rovnou zobrazi ???
2. Jeden z MDI childu jsem chtel zobrazit jako normalni SDI form nad jinym
MDI childem (proste polozky fa nad jejimi prehledy), a tak jsem ho nastavil
na normal - jenze jakmile se creatnul, tak se ostatni MDIChild formy
demaximalizovali - a nejdou maximalizovat ani poslanim WM_SIZE tomu oknu na
maximalizaci (presneji, dosahl jsem toho, ze se maximalizovalo ve smyslu, ze
z neho zmizely systemove tlacitka a presunuly se na main form, ale samo okno
velikost nezmeni a nepomuze ani refresh nebo repaint);
Pripada mi, ze mi delphi skryvaji skutecne vlastnosti formu - proste neco
nastavuji aniz by to z dostupnych vlastnosti formulare bylo videt :(.
Diky
David Janko
problemy s MDI frm a childy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 19:57:41
From: "David Janko" <djanko(zv)infoware(tec)cz>
> Popravde, vubec nechapu, proc normalni form se normalne creatne a pak ho
> zobrazim, a MDI child se rovnou zobrazi ???
Protoze dle specifikace MDI rozhrani nemuze byt MDI child okno neviditelne.
Petr Vones
jak zmerit velikost Sent & Received
[*] Christopher <Christopherj(zv)seznam(tec)cz> - 25.2.2002 19:58:26
Ahoj
chtel bych poprosit o radu jak se da jednoduse merit velikost stahnutych a odeslanych dat ve win, je nato primo nejaka komponenta?.
dekuji R'o)
OT: Pascal a pam�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 20:02:15
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Pokud pouzijes misto TurboPascalu BorlandPascal (obe jsou verze tusim
> 7.0), mely by se tve problemy vyresit.
Castecne. Ziskas tim DPMI kde takto muzes alokovat z vice nez zakladni 640k
pameti, ovsem stale jen v 64k blocich protoze ta verze je pouze 16ti bitova,
coz je IMHO porad k nicemu. Navic pokud se jedna o nejakou aplikaci ktera
pristupuje k hardwaru tak pouziti DPMI obcas zpusobovalo problemy (bylo to
pomalejsi). Mozna by bylo efektivnejsi to prepsat jako normalni aplikaci nebo
tu veselost prenechat nekomu v Technickem Muzeu.
Petr Vones
Nastaveni urovni na RS232
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 20:13:34
From: "Zapl�k" <zaplik(zv)volny(tec)cz>
> Pratele, potreboval bych pomoci Delphi5 na ComPortu prepinat logicke urovne
> na signalech CTS,RTS,DTR,CD (je mi jedno jak, ale libovolne dva z techto
> signalu potrebuji dostat do 0 a dva do 1.) Zkousel jsem ruzne komponenty pro
> RS232, ale ty umely nastavit maximalne RTS a DTR. Nev�te, prosim jak na to?
Mozna by nebylo spatne si predtim neco o RS232 rozhrani precist. Signaly RTS
a DTR jsou totiz vystupni, zatimco ty ostatni vstupni.
http://www.hw(tec)cz/projects/rs232/
Petr Vones
NetRemoteTOD este raz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 25.2.2002 20:42:32
> > Existuje teda sposob ako zistit systemovy cas na pocitaci na ktorom bol
> > spusteny program bez obmedzenia OS ?
>
> 3. Volat prikaz "NET TIME" a precist vystup z konzole.
Tento sposob je asi najefektivnejsi. Ako zistim v akom formate vracia
funkcia net time udaje ? Ako tento vysledok previest na TDateTime ? Vysledok
funkcie je nasledovny
Current time at \\keder is 2/25/2002 8:27 PM
The command completed successfully.
Vlado
Zapis do TCheckListBox, TStringGrid v TThreadu
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 25.2.2002 22:08:21
Dobry den,
existuje nejaky zpusob jak zapisovat do TCheckListBox nebo TStringGrid ve
vlakne bez pouziti synchronize? Zapisuji hromadu dat, kde prevazna vecina
casu je prave venovana zapisu, vlastni vypocet je minimum.
Nebo-li: Existuje nejaka nahrada komponent, ktere by si to nechaly libit?
Jedna z moznosti je ulozit data "stranou", ale nejak nemohu prijit na zadnou
elegantni metodu prenosu dat do komponent.
Dekuji
Zdenek Jansih
NetRemoteTOD este raz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 25.2.2002 22:08:05
Ahoj
V predchadzajucom maily som potreboval pomoct s funkciou NetRemoteTOD -
zistenie systemoveho casu na pocitaci odkial je spustena aplikacia. Tato
funkcia mi funguje, ale iba pod OS WinXP, Win2000. Pri spusteni aplikacie
pod WinME hlasi
... file is linked to missing export NETAPI32DLL:NetRemoteTOD
Ja by som potreboval, aby som mohol spustat program aj pod WinME, Win98.
Je to mozne ?
Dakujem za pomoc
Vlado
P.S. Podla toho prispevku volam funkciu :
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=jul&den=02&soubor=dlfaaabh.ht
m
NetRemoteTOD este raz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 22:26:14
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> V predchadzajucom maily som potreboval pomoct s funkciou NetRemoteTOD -
> zistenie systemoveho casu na pocitaci odkial je spustena aplikacia. Tato
> funkcia mi funguje, ale iba pod OS WinXP, Win2000. Pri spusteni aplikacie
> pod WinME hlasi
> ... file is linked to missing export NETAPI32DLL:NetRemoteTOD
Musis danou funkci importovat dynamicky, protoze toho API je jen na NT.
Petr Vones
NetRemoteTOD este raz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 25.2.2002 22:30:57
Prikaz NET TIME spustam nasledovnou konstrukciou Tip 724
cmdLine:= 'command.com /k net time \\keder >skuska.txt'; ---> toto sa bude
vytvarat dynamicky
WinExec(PChar(cmdLine), SW_HIDE);
Po vykonani prikazu potrebujem aby sa DOS okno zavrelo. Ak by som vykonaval
staticky prikaz ako je tu, stacilo by umiestnit prikaz do bat suboru
net time \\keder >skuska.txt
exit
Ibaze ja cestu potrebujem napisat podla stroja z ktoreho bol program
spusteny. Ako riesenie ma napada otvorit subor, prepisat prvy riadok,
zavriet a spustit, alebo rychlejsie vytvorit subor, vykonat a zmazat bat
subor.
Dakujem za Vasu trpezlivost a hlavne Petrovi Vonesovi
Vlado
Zapis do TCheckListBox, TStringGrid v TThreadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 23:10:42
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> existuje nejaky zpusob jak zapisovat do TCheckListBox nebo TStringGrid ve
> vlakne bez pouziti synchronize? Zapisuji hromadu dat, kde prevazna vecina
> casu je prave venovana zapisu, vlastni vypocet je minimum.
Ne. Lepsi je ale pouzit komponentu, ktere pouze predas pocet radek a v jeji
udalosti pak vracis data pro index ktery je treba zobrazovat. Vlastni data si
pak ukladas jak potrebujes. Prikladem jsou napriklad TListView (vlastnost
OwnerData nastavis na True), TDrawGrid (tam si musis text vykreslovat sam)
nebo TListBox/TCheckListBox v Delphi 6 (Style lbVirtual/OwnerDraw).
Petr Vones
NetRemoteTOD este raz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 25.2.2002 23:18:54
Dakujem za radu, ale ani teraz z toho nie som velmi mudry. Ak je to iba na
NT ako ju dostanem na WinME ? Mozno sa pytam hlupo, ale asi by som
potreboval priklad ako deklarovat a volat funkciu. Je nutne nahrat aj subor
netapi32.dll z WinXP, 2000 ?
Vlado
> From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> > V predchadzajucom maily som potreboval pomoct s funkciou
NetRemoteTOD -
> > zistenie systemoveho casu na pocitaci odkial je spustena aplikacia. Tato
> > funkcia mi funguje, ale iba pod OS WinXP, Win2000. Pri spusteni
aplikacie
> > pod WinME hlasi
> > ... file is linked to missing export NETAPI32DLL:NetRemoteTOD
>
> Musis danou funkci importovat dynamicky, protoze toho API je jen na NT.
>
> Petr Vones
>Chybovnik IB serveru
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 25.2.2002 23:28:24
Haj hou!
On 25 Feb 2002, at 9:42, Lebeda David wrote:
> Nevite nekdo o nejake dokumentaci, kde by se dalo zjistit, co to je
> za chyby? Aby se vedelo, co znamena to errno 110 apod., prip. i ta
> prvni chyba. V dokumentaci, kterou mam, jsem nic podobneho
> nenasel.
Podivej se napr. na MSDN na chybove kody Winsock2
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
NetRemoteTOD este raz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.2.2002 23:42:58
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> Dakujem za radu, ale ani teraz z toho nie som velmi mudry. Ak je to iba na
> NT ako ju dostanem na WinME ? Mozno sa pytam hlupo, ale asi by som
Nijak, tato funkce je zkratka podporovana pouze na NT, viz napoveda k teto
funkci, kde je to uvedeno:
Requirements
Windows NT/2000/XP: Included in Windows NT 3.1 and later.
Windows 95/98/Me: Unsupported.
> potreboval priklad ako deklarovat a volat funkciu.
Jak ji dynamicky importovat a volat ?
> Je nutne nahrat aj subor netapi32.dll z WinXP, 2000 ?
To v zadnem pripade, za prve to nebude fungovat a za druhe to neni v souladu s
licencnimi podminkami.
Petr Vones
problemy s MDI frm a childy
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.2.2002 00:46:16
From: "David Janko" <djanko(zv)infoware(tec)cz>
Sent: Monday, February 25, 2002 7:38 PM
> 1. Jak vypnout jeho automaticke show - kdyz ho dam create, tak se totiz
> automaticky udela show, a to ja nechci - chci si ho shownout sam az ja
budu
> chtit
Ja to riesim takto:
Application.CreateForm(tfrmCBanky,frmCBanky);
with frmCBanky do
begin
BorderIcons:=[biSystemMenu,biMinimize];
windowstate:=wsMinimized;
formstyle:=fsMDIChild;
windowstate:=wsNormal;
end;
t.j. moj buduci child form je nastaveny na fsNormal a az v tomto kode ho
nastavim na msMDIChild a on sa mi az vtedy zobrazi.> Popravde, vubec nechapu, proc normalni form se normalne creatne a pak ho
> zobrazim, a MDI child se rovnou zobrazi ???
Proste je to tak.
Roland
NetRemoteTOD este raz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 01:53:55
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> Existuje teda sposob ako zistit systemovy cas na pocitaci na ktorom bol
> spusteny program bez obmedzenia OS ?
1. Napsat si vlastni reseni zalozene napriklad na TCP/IP
2. Je mozne, ze tato funkce bude nejakym zpusobem v 16bit knihovne na Win9x,
protoze ty sitove funkce jsou pouze thunk z teto knihovny. Teoreticky by to
mozna slo za pouziti nejakych nedokumentovanych funkci (je treba hledat v
newsech), ale s tim jsou vetsinou jen problemy.
3. Volat prikaz "NET TIME" a precist vystup z konzole.
Petr Vones
nastaveni textu v ComboBoxu
[*] Konference <prajz.rumcajs(zv)quick(tec)cz> - 26.2.2002 06:11:54
Pokud mas nastaveno Style = csDropDownList pak nelze primo nastavit hodnotu.
Ale de to treba takhle:
ComboBox1.ItemIndex := i; kde i je cislo polozky z DropDown menu.> Dobry den,
> nedari se mi nastavit v programu text v ComboBoxu.
> prikaz ComboBox1.text := 'XYZ'; nefunguje.
> Dekuji za rady.
>
>Adresar z Windowsu - MAPIAddress
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 26.2.2002 07:10:17
Zdravim odbornici,
potreboval bych poradit, jakym zpusobem se dostat na default adresar (seznam
kontaktu s adresou a telefony) ve Windows (nap�. C:\Program Files\Outlook
Express\Wab.exe).
Potrebuji ho umet spustit aby si v nem user mohl delat upravy a take ho
potom zobrazit pro vyber zaznamu pro dalsi cinnost (hromadna koresp., sms,
email...).
Pekne prosim o radu :o)
Robert Plz�k
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Registrace a inicializace programu
[*] Vlastimil Zden�k <gestore(zv)wo(tec)cz> - 26.2.2002 07:14:40
Zdravim a prosim o radu:
Potreboval bych zaregistrovat ve W98,WNT, W2000.. svuj prohlizec obrazku.
Myslim tim, aby se mi soubory
s prislusnymi priponamy dvojklikem zinicializovaly s mym programem. Take aby
mely mit jeho ikonu. (stejne
jako to dela excel,word, notepad, ...)
Diky moc za kazdou radu.
P.S. Vyborny by byl kus kodu
Vlasta, D5Ent,WNT
Nastaveni urovni na RS232
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 26.2.2002 07:18:58
> Mozna by nebylo spatne si predtim neco o RS232 rozhrani precist. Signaly
RTS
> a DTR jsou totiz vystupni, zatimco ty ostatni vstupni.
To vsechno chapu, ale otazka znela jestli nekdo nevi jak na to. Potrebuji
napajet z portu malej hardware. Pokud to opravdu nejde ani nejak natvrdo,
tak mi staci napsat "Nejde to". A pokud zrovna ty napises, ze to nelze, tak
nemam sebemensi duvod tomu neverit.
zaplik
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
Nastaveni urovni na RS232
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 26.2.2002 07:42:13
Cauec,
> To vsechno chapu, ale otazka znela jestli nekdo nevi jak na to. Potrebuji
> napajet z portu malej hardware. Pokud to opravdu nejde ani nejak natvrdo,
Co to je malej HW ? V�stupy jsou sice dost odolne, ale proud, kterym muzes
ten svuj HW napajet, je max. 10mA. Coz je tak akorat na vybuzeni LED nebo
vykonoveho stupne. Ale napajet tim neco vetsiho je silenost.
Bye Ludan
Jak programove zjistim DPI na tiskarne?
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 26.2.2002 07:45:07
Hi,
nastaveni leveho a horniho okraje tiskarny lze zjistit takto
LeftOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX)/Res);
TopOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY)/Res);
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
.. From: Ing. Ji�� SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
.. Subject: Jak programove zjistim DPI na tiskarne?
..
.. Lze nejak zjistit, jake okraje ma tiskarna nastavene?Pascal a pam�
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 26.2.2002 07:46:58
> From: Zdenek Delphi
>
> chci poprosit vsechny Pascal veterany drevniho DOSu, aby mi trochu
> pomohli. Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
Vedle doporucovaneho pouziti DPMI existuje jeste jedna
technika pro realny mod. Je sice mene ucinna,
ale jednodussi na realizaci. Je to pouziti Overlay.
Nevede k ziskani nove pameti, ale k uspore stavajici,
presunem casti programu do prekryvnych modulu.
Hledej v helpu slova Overlay, OvrInitEms.
Vaclav Krmela
Nastaveni urovni na RS232
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 26.2.2002 08:14:08
Podivej se tady:
http://www.hw(tec)cz/constrc/maxims/max860_rs232.html
tomas
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Zapl�k
Sent: Tuesday, February 26, 2002 7:19 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Nastaveni urovni na RS232
> Mozna by nebylo spatne si predtim neco o RS232 rozhrani precist.
> Signaly
RTS
> a DTR jsou totiz vystupni, zatimco ty ostatni vstupni.
To vsechno chapu, ale otazka znela jestli nekdo nevi jak na to.
Potrebuji napajet z portu malej hardware. Pokud to opravdu nejde ani
nejak natvrdo, tak mi staci napsat "Nejde to". A pokud zrovna ty
napises, ze to nelze, tak nemam sebemensi duvod tomu neverit.
Nastaveni urovni na RS232
[*] snehulak <snehulak(zv)izs-br(tec)cz> - 26.2.2002 08:28:01
rs232 je na takove experimentovani spatne daleko horsi nez port paraelni.S
rs232 jsem delal experimenty na stare sumce a odpalil jsem je pri proudu asi
40mA, ale dlouhodobe vydrzely neco kolem 20mA, ale je to risk a nemuzete na
to spolehat
Zaokrouhlovani
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 26.2.2002 08:31:40
Pri pokusu o zaoukrouhleni vysledku mi kompilator vyhodi "Invalid Variant
type Conversion"
Data jsou ulozeny jako Float a vysledek by mel byt zaokrouhlen na xx,xx Kc
Table1.FieldValues['Tank']:=Round(Table1.FieldValues['PHMPlaceno'] /
Table1.FieldValues['CenaLitr']);
Poradi nekdo kde mam koninu?
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
IP komunikace IB/FB ve win95
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)oku-uo(tec)cz> - 26.2.2002 08:47:10
DD,
prosil bych jeste jednou o radu. Mam IP sit win95/98 pocitace mezi sebou normalne pingnou.
Na jednom z nich je nainstalovan InterBase server. Z klienta Win98 se normalne konektnu k databazi, ale
problemy jsou z klientu Win95. Tam to pri konektu k databazi napise nasledujici:
Unable to complete network request to host "192.168.0.20".
Failed to lacate host machine.
The specified name was not found in the hosts file or Domain Name Services.
Podotykam, ze v komponente IBDataBase (D6Prof.) v properties DataBaseName je nasledujici:
"192.168.0.20:C:\IB\aaa.gdb" tedy konekt primo na IP adresu, nikoliv na jmeno.
Aby toho nebylo malo, tak z nekterych klientu Win95 se k databazi konektnu, ale doposavad se mi nepodarilo
vysledovat ze ketrych resp. , kde je rozdil.
V archivu jsem hledal a zkistil, ze nekdy ve 2.pol min. roku to tu nekde nadnesl, ale prip pripojeni k
InterBase pres BDE, ale strejne mi nebylo jasne, kde byl problem.
Mohl by me nekdo jeste nakopnut kam se ma me patrani ubirat ?
Za kazdy kop budu vdecny.
Dekuji.
Martin Bednar
bednar(zv)mujweb(tec)cz
Pascal a pam�
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 26.2.2002 08:47:24
Jeste taky zalezi na tom, pri cem se Ti nedostatek pameti projevuje. Kdysi v
Turbopascalu 5.5 jsem narazil na strop pri ladeni programu v prostredi
ladiciho debuggeru. Konkretne nesel uz prelozit a vypsal hlasku tusim out of
memory. Vyresil jsem to prekladem z prikazoveho radku.
Tak jsem program rozdelil pro ladici ucely na mensi kousky, ktere uz
prelozit pod debuggerem sli. Kdyz jednotlive kousky fungovaly, celek jsem
pak prelozil z prikazoveho radku Dosu.
Zdravi Dalik.> Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
IP komunikace IB/FB ve win95
[*] voltrr1.epr(zv)mail.cez(tec)cz - 26.2.2002 08:54:28
> The specified name was not found in the hosts file or Domain Name
Services.
> Mohl by me nekdo jeste nakopnut kam se ma me patrani ubirat ?
> Za kazdy kop budu vdecny.
Na obou pocitacich musis pridat oba pocitace se jmenem a ip adresou
do souboru Hosts (LMHosts). Pak uz to pujde.
Je to divne ale IB to vyzaduje i kdyz pouzivas primo IP adresu
cus
Radek Voltr
Zaokrouhlovani
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 26.2.2002 08:56:42
Neni nahodou hodnota null? Ja bych radeji napsal
FindField('PHMPlaceno').AsFloat. Tam bude vzdy nejake cislo.
Bohdan Voska
> Pri pokusu o zaoukrouhleni vysledku mi kompilator vyhodi "Invalid Variant
> type Conversion"
> Data jsou ulozeny jako Float a vysledek by mel byt zaokrouhlen na xx,xx Kc
>
> Table1.FieldValues['Tank']:=Round(Table1.FieldValues['PHMPlaceno'] /
> Table1.FieldValues['CenaLitr']);
>
MAPI - sluzba v Outlooku
[*] Marian M�ller <mman(zv)home.sk> - 26.2.2002 09:12:16
Zdravim,
vedel by mi niekto poradit, ako sa da urobit (zrejme cez MAPI) taka
vec, ze
ked pride novy mail, tak to prejde najprv cez nejaku moju proceduru
(program) a az potom do Outlooku, aby som mohol odchytit kazdu prilohu v
kazdom maile, pretoze potrebujem odchytit urcity typ suboru a spracovat
ho
okamzite a automaticky, bez toho, aby ho musel uzivatel napr. mysou
pretiahnut na moj program?
Je to urcite nejako mozne, lebo na podobnom principe funguju rozne
antivirove programy, napr. Nod32. Nejakym sposobom sa to do Outlooku
nainstaluje ako sluzba a funguje to tak, ze po prichode kazdeho mailu to
prebehne cez tuto sluzbu, Nod32 ho skontroluje a prida na koniec textu
mailu
hlasku, ze je to nezavirene. Z toho vyplyva, ze on vie odchytit kazdy
novy
mail a zaroven ho aj patricne upravit. A presne toto by som potreboval
aj
ja, aby som zachytil urcity typ suboru v prilohe a rovno ho spracoval
sam.
Marian.Zobrazen� seznamu View v IB6
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 26.2.2002 09:23:30
Hello, Jaroslav!
You wrote :
JB> seznam tabulek v databazi IB zobrazim pomoci
JB> IBDatabase1.GetTableNames(Memo1.Lines,False). Jak zobrazim deklarovan� View
JB> ? Diky za radu.
SELECT DISTINCT RDB$VIEW_NAME FROM RDB$VIEW_RELATIONS;
With best regards, Alex Cherednichenko.Canvas.textout
[*] EFG developer <developer(zv)efg(tec)cz> - 26.2.2002 09:31:18
Zdravim, muzete mi n�kdo poradit jak v OnCustomDraw
p�i pouziti canvas.TextOut nastavim barvu textu na clBtnFace a napisu to
kurzivou?
Potom samozdrejme vse vratim do povodniho stavu (aby ostatn� texty byly
cerne a bez kurzivy)
Kousek kodu by pomohl ...
Dekuji Petr Sikola
Canvas.textout
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.2.2002 09:38:45
Canvas.Font.Color := slBtnFace;
Canvas.Font.Style := [fsItalic];
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.2.2002 EFG developer:
> Zdravim, muzete mi n�kdo poradit jak v OnCustomDraw
> p�i pouziti canvas.TextOut nastavim barvu textu na clBtnFace a napisu to
> kurzivou?
> Potom samozdrejme vse vratim do povodniho stavu (aby ostatn� texty byly
> cerne a bez kurzivy)
> Kousek kodu by pomohl ...
> Dekuji Petr Sikola