Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT-software pro registraci obsahu webu do vyhledav
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 15.1.2003 07:50:11
Muze mi nekdo poradit, kde muzu najit software, ktery mi zaregistruje obsah
webovych stranek do vyhledavacu...
Dekuji...
J.
Tlacitka: YES NO
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 15.1.2003 07:59:31
Nazdar,
pro tento ucel je vhodne vyuzivat funkce uschovny. Na adresu
www.uschovna(tec)cz se provede upload a dopln=ED se nejake udaje
a Tvoje E-mail adresa, dostanes zpravu s linkem, kde to je
ulozeno a to posles do konference. Kazdy si to muze odtud
stahnout, nemel by vsak pouzit funkci 'Vymazat po stazeni',
aby to zustalo zachovano pro ostatni.
Jan Dvorak
>
> Ahoj, ja na to pouzivam jednotku, kterou jsem pred cca 2
roky
> nekde stahnul
> a
> bezi to vsechno na vybornou - pokud ma nekdo zajem, mohu
ji zaslat
>
> MI'RA
>
>
Tlacitka: YES NO
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.1.2003 08:10:30
> Mel jsem o Delphi lepsi mineni, ale jest-li mam kazdou udalost a
> hlasku obsluhovat pomoci vyjimek (protoze jinou rozumnou cestu
> neznam), tak "NO NAZDAR" ... A to nemluvim o lokalizaci, kterou budu
> potrebovat!
Ahoj,
ja osobne pouzivam Language Localizator Zbyska Hlinky. Ten je sice primarne urcen
k lokalizaci aplikace (takze tim zabijes vice much jednou ranou), ale stejne dobre
poslouzi k lokalizaci z angliny do cestiny. Slovnik, ktery obsahuje ceske preklady
Delphi vyjimek, je jiz prilozen, takze lokalizaci do cestiny ziskas nejen pocesteni
buttonu na dialozich, ale i pocesteni jinych standardnich dialogu (napr. login dialog
do databaze apod., ceske texty vyjimek apod.
Viz www.localizator.com, jestli nedoslo k nejake zmene.
Stejne tak se mi zda "ujety" psat vyjimku jen proto, aby
> program napsal misto "Key Violation" neco srozumitelneho pro
> obycejneho ceskeho uzivatele.
No a jak bys to chtel udelat? Key violation je pomerne obecna chyba, kdy se do
sloupce s unikatnimi hodnotami vlozi nejaka duplicita. Typu situaci, kdy takova
okolnost nastane, ale jiste je spousta. Cemu rikas psat vyjimku? Key violation muzes
chytat v try..except bloku a pomoci MessageDlg napsat lepsi hlasku, ktera odpovida
situaci, v niz chyba vznikla.
Druha vec je, komu rikas obycejny cesky uzivatel. Pokud to je nejaka sekretarka,
ktera se pocitaci klani a nikdy ho nezapomene pozdravit, tak tu vydesi jakakoli
hlaska, i kdyby byla v cestine. :)
> O reseni bych vedel, ale zatim to neumim udelat - napsat potomky
> dialogu s vlastnostmi popis tlacitek ...
Navody na unity s vlastnim dialogem tu uz probehly, podobne i navod na upravu
textu v consts.pas, to se muzes podivat do archivu. Spis nez potomky by ses mohl
inspirovat pohledem do Dialogs.pas na zdrojak fce MessageDlg a podobne treba
udelat neco sveho podobneho... nevim, nezkousel jsem.
David Lebeda
Jaky jazyk
[*] Dalibor <dalibor(zv)torola(tec)cz> - 15.1.2003 08:11:54
Ahoj,
jak zjistim, jaky jazyk je nainstalovan ve Win. (9x,2000,XP)
(D5 Prof, Win2000)PDFExport pro FastReport a cestina
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 15.1.2003 08:21:12
Martin Schayna dne 14 Jan 2003 v 18:51:
> Podpora cestiny je bohuzel v PDF problem, ktery pokud vim
> umi resit pouze komercni komponenty llPDFLib od llionsoft
> www.llion.net
Ahoj,
zkousel jste nekdo dukladneji PDF995? Zatim jsem u nej na zadne problemy s cestinou nenarazil,
spise mi vadi, ze pri malem zvetseni vypadaji pismenka osklive (ale pri velkem kupodivu dobre -
puvodne jsem si myslel, ze vse uklada jako grafiku...).
Karel Rys
Ukladani komponent do souboru a jejich nasledne na
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 15.1.2003 09:00:23
Pratele, dekuji vsem za pomoc pri reseni tohoto problemu.
Jelikoz vsak zadne reseni nebylo tim pravym, byl jsem=20
nucen zakoupit publikaci "Mistrovstvi v Delphi 6" a musim
rict, ze je nabita velmi zajimavymi ukazkami a je tam=20
vysvetleno velike mnozstvi problemu, ktere jinde nejsou.
Proto ji (i prez jeji cenu bezmala 800 Kc) doporucuji vsem
k nahlednuti.
MI'RA
Miroslav Tvrz
Software Development Specialist
MERLIN
=A9tef=E1nikova 32
150 00 Prague 5
Czech Republic
Tel.: (+420) 241010111
Fax: (+420) 241010165
E-mail: miroslav.tvrz(zv)merlin(tec)cz=20
http://www.merlinlogic.com/=20
http://www.merlin(tec)cz/Jak zjistit OS?
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 15.1.2003 09:34:47
Ahoj,
pratele, jak v D4 zjistim na jakych windowsech program bezi ? (konkretne
potrebuju vedet, ze se jedna o XP)
diky za pomoc
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
IC: 62026631 DIC: 273-62026631
Tel./fax: 465 321096, 465 322889, 465 324795
hotline: 465 324795
Mobil Eurotel: 724 185948; T-Mobile : 603 833124
www.hjsoft(tec)cz
ICQ: 47636291
Cteni BMP po pixlech
[*] Martin =?ISO-8859-2?Q?Nov=E1k?= <mnk(zv)centrum(tec)cz> - 15.1.2003 09:41:54
Zdravim,
potreboval bych vedet, jak nactu obrazek BMP, abych ho mohl cist po=20
pixlech v X a Y souradnice a jak zmenim tento pixel. V Delphi 5.
Dekuji.
S pozdravem Martin Novak.
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m in=
ternetu - sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
Jak zjistit OS?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 09:44:29
> pratele, jak v D4 zjistim na jakych windowsech program bezi ?
> (konkretne potrebuju vedet, ze se jedna o XP)
pozri si JclSysInfo v JCL. Nie som si isty, ci JCL este podporuje D4, ale
zdrojak funkcie GetWindowsVersion by Ti mal pomoct.
HTH
TOndrej
Jak zjistit OS?
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 15.1.2003 09:52:21
Mam na to procedurku, vyctes si to:
Procedure GetWindowsVersion;
begin
Titul.VerSys.Caption:=3D'Info: Nezn=E1m=FD syst=E9m.';
Titul.Win_System:=3D'0';
Case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS: begin
Titul.VerSys.Caption:=3D'Info: =
Nezn=E1m=FD syst=E9m Win9x.';
Case Win32MinorVersion of
0 : Begin
=
Titul.VerSys.Caption:=3D'Info: System Win95.';
Titul.Win_System:=3D'1';
end;
10 : Begin
=
Titul.VerSys.Caption:=3D'Info: System Win98.';
Titul.Win_System:=3D'2';
end;
90 : Begin
=
Titul.VerSys.Caption:=3D'Info: System WinME.';
Titul.Win_System:=3D'5';
end;
end;
end;
VER_PLATFORM_WIN32_NT : begin
Titul.VerSys.Caption:=3D'Info: =
Nezn=E1m=FD system WinNT.';
Case Win32MajorVersion of
3,4 : Begin
=
Titul.VerSys.Caption:=3D'Info: System WinNT.';
Titul.Win_System:=3D'3';
end;
5 : Begin
=
Titul.VerSys.Caption:=3D'Info: System Win2K / XP.';
Titul.Win_System:=3D'4';
end;
end;
end;
end;
end;
-----Original Message-----
From: Zdenek Brejsa [mailto:prog(zv)hjsoft(tec)cz]=20
Sent: Wednesday, January 15, 2003 9:35 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak zjistit OS?
Ahoj,
pratele, jak v D4 zjistim na jakych windowsech program bezi ? (konkretne =
potrebuju vedet, ze se jedna o XP)
diky za pomoc
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
IC: 62026631 DIC: 273-62026631
Tel./fax: 465 321096, 465 322889, 465 324795
hotline: 465 324795
Mobil Eurotel: 724 185948; T-Mobile : 603 833124
www.hjsoft(tec)cz
ICQ: 47636291
Jaky jazyk
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 09:54:57
> jak zjistim, jaky jazyk je nainstalovan ve Win. (9x,2000,XP)
>
> (D5 Prof, Win2000)
V SysUtils globalna premenna SysLocale. Ak to v D5 este nie je, potom skus
API funkcie GetSystemDefaultLangID, GetUserDefaultLangID.
HTH
TOndrej
Thrd a Array u TForm
[*] Petr Varga <djvar(zv)post(tec)cz> - 15.1.2003 09:58:59
Zdrav=EDm v=B9echny.=20
Pot=F8eboval jsem poradit. V=EDm, =BEe kdy=BE p=F8istupuji k prvku VCL z
vl=E1kna tak mus=EDm rad=B9i pou=BE=EDt Synchronize. No ale m=E1m pro m=EC
zat=EDm takovou kompikaci. Hlavn=ED formul=E1=F8 vlastn=ED dinamick=E9 pole=
.
Toto pole je type TPole=3DRecord Thrd:TMyThread
Win: TFormWithThread
end
TArrPole=3DArray of TPole
Dejme tomu je to takto.=20
No a j=E1 potrebuji obcas vystoupit z nejak=E9ho toho threadu v tom
poli a zmenit neco v formul=E1=F8i ktery je v zadanem miste v poli
spolu s tim threadem. Tohle by nebyl az zase takovy problem.=20
Ale hlavni formular vlastni jeste jedno vlakno, ktere je velmi
dulezite. Prez toto vlakno probihaji vsechny komunikace. Toto
vlakno ma v sobe vytvoreny objekt, prez ktery se tedy komunikuje.
No ale protoze to nekdy muze trvat trosku dele je to v threadu.
Ale jak mam pristoupit k tomuto vlaknu jez vlastni Hlavni
formular z nejakeho toho vlakna v poli, jinak nez prez
synchronize? (aby se mi aplikace nekousala) Nebo nejlepe kam tedy
umistit ono dinamicke pole typu TArrPole. Abych nemusel
pristupovat prez hlavni formular? Asi je to napsano dost
zmatene. Ale kdyby se v tom prece jenom nekdo vyznal, tak necht
napise jestli vi jak to vyresit. Dekuji
Petr Varga
Tlacitka: YES NO
[*] Roman Konecny <rkonecny(zv)datis(tec)cz> - 15.1.2003 10:06:44
Ahoj,
pro lokalizaci lze upravit 2 nebo 3 unity a ty pak v programech
pouzivat. Jenom je zkopirujes do adresare, kde *.dpr soubor projektu. To,
ze se mnohe programy nelokalizuji neni chyba software. Jinak sanozrejme
muzes zustat u Cecka a stale budes mit vetsi sance pri hledani zamestnani a
podobne vyhody, jako help v cestine, uzasnou kompatibilitu s V.Basicem ( a
jine neuveritelne vyhody ). A taky si myslim, ze dve nebo tri tlacitka by te
nemusely tolik rozhodit. Kazdy SW ma svoje pro a proti a to proste budes
muset akceptovat.
Roman
> 14.1.2003 Milan Ruksak:
> > Tak ted uz z toho mam "maglajs" i ja. S delphi vicemene zacinam, ale
chcete
> > tim rict, ze to nejde ? V C++, VisualBasicu i VisualFoxpro to jde a jen
> > Delphi to neumi ? Protoze nevim, zda nekdo bude mit ceske, anglicke nebo
> > nemecke Windows, asi Windows okna nebudou resenim !!! Mel jsem o Delphi
> > lepsi mineni, ale jest-li mam kazdou udalost a hlasku obsluhovat pomoci
> > vyjimek (protoze jinou rozumnou cestu neznam), tak "NO NAZDAR" ... A to
> > nemluvim o lokalizaci, kterou budu potrebovat! Stejne tak se mi zda
"ujety"
> > psat vyjimku jen proto, aby program napsal misto "Key Violation" neco
> > srozumitelneho pro obycejneho ceskeho uzivatele.
> > A nebo jsem jako zacatecnik uplne mimo misu ...?
>
> Problem je v tom, ze klasicky MessageDlg() Delphi pouziva retezce z
> Consts.PAS. Takze jsou vzdy anglicke.
> Pokud pouzijes Application.MessageBox(), budes vazany na jazykovou
> verzi OS. Takze na ceskych Windows bude program anglicky, ale dialogy
> budou cesky (podobne jako ve VB nebo C)
> Dalsi moznost je pouzit API funkci MessageBoxEx(), ve ktere je
> poslednim parametrem LanguageID. Ale tam taky nezvolis libovolny
> jazyk.
>
> Ja pouzivam klasicky MessageDlg() z Delphi a pro lokalizaci si zavolam
> tohle (kdysi P.Vones):
>
> type
> TLocalizeResString = record
> ResString: PResStringRec;
> LocalizedText: string;
> end;
>
> {-----------------------------------------------------------------
> Prepsani resource v dialozich
> ------------------------------------------------------------------}
> procedure LocalizeResStrings(const Strings: array of TLocalizeResString);
> var
> I: Integer;
> OldProtect, Dummy: DWORD;
> begin
> for I := Low(Strings) to High(Strings) do
> with Strings[I] do
> begin
> Win32Check(VirtualProtect(ResString, SizeOf(TResStringRec),
> PAGE_READWRITE, OldProtect));
> try
> ResString^.Identifier := Integer(PChar(LocalizedText));
> finally
> VirtualProtect(ResString, SizeOf(TResStringRec), OldProtect,
Dummy);
> end;
> end;
> end;
>
> {-----------------------------------------------------------------
> Lokalizace dialogu
> ------------------------------------------------------------------}
> procedure LocalizeDialogs;
> var
> ResStrings: array[0..8] of TLocalizeResString;
> begin
> ResStrings[0].ResString := (zv)SMsgDlgYes;
> ResStrings[0].LocalizedText := rs_Yes;
> ResStrings[1].ResString := (zv)SMsgDlgNo;
> ResStrings[1].LocalizedText:= rs_No;
> ResStrings[2].ResString := (zv)SMsgDlgWarning;
> ResStrings[2].LocalizedText:= rs_Warning ;
> ResStrings[3].ResString := (zv)SMsgDlgError;
> ResStrings[3].LocalizedText:= rs_Error;
> ResStrings[4].ResString := (zv)SMsgDlgInformation;
> ResStrings[4].LocalizedText:= rs_Asterisk;
> ResStrings[5].ResString := (zv)SMsgDlgConfirm;
> ResStrings[5].LocalizedText:= rs_Question;
> ResStrings[6].ResString := (zv)SMsgDlgAll;
> ResStrings[6].LocalizedText:= rs_All;
> ResStrings[7].ResString := (zv)SMsgDlgCancel;
> ResStrings[7].LocalizedText:= rs_Cancel;
> ResStrings[8].ResString := (zv)SMsgDlgYesToAll;
> ResStrings[8].LocalizedText:= rs_YesToAll;
> LocalizeResStrings(ResStrings);
> end;
>
> Do rs_??? se dosadi prislusny lokalizovany string. Staci zavolat
> jednou kdekoliv v programu. Po zmene retezcu na jiny jazyk a
> opetovnem zavolani jsou dialogy v jinem jazyku.
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
>
Tlacitka: YES NO
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 15.1.2003 10:12:12
> 14.1.2003 Petr Vones:
> > Pouzivat standardni dialogy Windows, ve VCL je to =
Application.MessageBox.
> Odes=EDlatel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> A pak z toho je mezinarodni maglajz, pokud m=E1=B9 anglick=E9 windows =
nebo
> to chce=B9 lokalizovat.
Navrhy na reseni tu uz probehly, takze jenom nazor:
1. Standardni hlasky (knofliky) atd.
Souhlasim s Petrem: pokud uzivateli vyskoci knofliky Yes, No, Cancel,=20
pak ustojim svoji pozici aplikacniho programatora s argumentaci: "To =
jsem ja nepsal, to napsal Bill. Preci po me nechcete, abych po nem =
preprogramovaval Windows".
2. Key violation
Pokud to uzivateli prelozim jako "duplicitni klic", tak zacne vytahovat =
z kapes klice a divit se: "vzdyt mam jenom jedny".
Resenim je osetrit tyto typy vyjimek na miste, kde vznikly. Tam =
pravdepodobne jsme schopni byt konkretnejsi.
I takova hlaska od SQL serveru jako "Violation of constraint PK_FAKTURA" =
se da uzivateli prelozit jako "Faktura s timto cislem uz existuje".
3. Lokalizace
Zbyskuv Localizator (www.localizator.com) to ma uz vychytany v maximalni =
mire.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Thrd a Array u TForm
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 15.1.2003 10:18:37
A kebyze ten thread uz ma v sebe premennu kt. ukazuje na form, voci kt. =
ma
komunikovat. Tuto premennu by si si naplnal pri vytvoreni threadu
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 241010111 (181)
fax: +420 241010165
icq: 38493645
-----P=F9vodn=ED zpr=E1va-----
Od: Petr Varga [mailto:djvar(zv)post(tec)cz]
Odesl=E1no: 15. ledna 2003 9:59
Komu: delphi-l(zv)clexpert(tec)cz
P=F8edm=ECt: Thrd a Array u TForm
Zdrav=EDm v=B9echny.=20
Pot=F8eboval jsem poradit. V=EDm, =BEe kdy=BE p=F8istupuji k prvku VCL =
z
vl=E1kna tak mus=EDm rad=B9i pou=BE=EDt Synchronize. No ale m=E1m pro =
m=EC
zat=EDm takovou kompikaci. Hlavn=ED formul=E1=F8 vlastn=ED dinamick=E9 =
pole.
Toto pole je type TPole=3DRecord Thrd:TMyThread
Win: TFormWithThread
end
TArrPole=3DArray of TPole
Dejme tomu je to takto.=20
No a j=E1 potrebuji obcas vystoupit z nejak=E9ho toho threadu v tom
poli a zmenit neco v formul=E1=F8i ktery je v zadanem miste v poli
spolu s tim threadem. Tohle by nebyl az zase takovy problem.=20
Ale hlavni formular vlastni jeste jedno vlakno, ktere je velmi
dulezite. Prez toto vlakno probihaji vsechny komunikace. Toto
vlakno ma v sobe vytvoreny objekt, prez ktery se tedy komunikuje.
No ale protoze to nekdy muze trvat trosku dele je to v threadu.
Ale jak mam pristoupit k tomuto vlaknu jez vlastni Hlavni
formular z nejakeho toho vlakna v poli, jinak nez prez
synchronize? (aby se mi aplikace nekousala) Nebo nejlepe kam tedy
umistit ono dinamicke pole typu TArrPole. Abych nemusel
pristupovat prez hlavni formular? Asi je to napsano dost
zmatene. Ale kdyby se v tom prece jenom nekdo vyznal, tak necht
napise jestli vi jak to vyresit. Dekuji
Petr Varga
Tlacitka: YES NO
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.1.2003 10:28:34
15.1.2003 Roman Konecny:
> Ahoj,
> pro lokalizaci lze upravit 2 nebo 3 unity a ty pak v programech
> pouzivat. Jenom je zkopirujes do adresare, kde *.dpr soubor projektu. To,
> ze se mnohe programy nelokalizuji neni chyba software.
Jednak to nebude pracovat u aplikace s balicky, a druhak jak zajistis
prepinani jazyku ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Re[2]: PDFExport pro FastReport a cestina
[*] Jan Kadlecek <kadlecek(zv)htkpro(tec)cz> - 15.1.2003 10:33:14
Uplna podpora cestiny v PDF v komponentach Pragnaan/Gnostice je jiz =
pripravena
(sam jsem to zkousel); pro ReportBuilder je jiz v distribuci pro =
FastReport bude nejspis=20
k dispozici s novou verzi 3.0 nebo mozna jeste drive.
S pozdravem
Jan Kadlecek
www.dev-shop(tec)cz
>=20
> Komponenty od Pragnaan software mam jiz od kvetna minuleho=20
> roku a od te
> doby je neustale bombarduji emaily, kdy to bude. Jednou pry ano. Zatim
> se na jejich strankach pouze objevila jakasi verze pro ReportBuilder
> PRO ktera ma dle popisu to umet. Jestli ano, to nevim, po dotazu na
> verzi pro FR jsem dostal jiz obligatni odpoved ze se to chysta a
> jednou to bude. Jen jeste FR chysta verzi 3 takze snad by to mohli dat
> do upgrade pro FR3, ale moc bych si od toho nesliboval.
>=20
> Ja jeste resim problem s llPDFLib a to je ten, ze to nechce fungovat
> dobre, pokud je na sestave wmf obrazek. pro zmenu je necesky ten PDF
> obrazek.
>=20
> --=20
> S pozdravem,
> Martin Radvansky
>=20
>=20
>=20
>=20
PDFExport pro FastReport a cestina
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 15.1.2003 10:36:44
Karel Rys dne 15 Jan 2003 v 8:21:
> Martin Schayna dne 14 Jan 2003 v 18:51:
>
> > Podpora cestiny je bohuzel v PDF problem, ktery pokud vim
> > umi resit pouze komercni komponenty llPDFLib od llionsoft
> > www.llion.net
> zkousel jste nekdo dukladneji PDF995? Zatim jsem u nej na zadne
> problemy s cestinou nenarazil, spise mi vadi, ze pri malem zvetseni
> vypadaji pismenka osklive (ale pri velkem kupodivu dobre - puvodne
> jsem si myslel, ze vse uklada jako grafiku...).
Nu, nedalo mi to, zkoumal jsem bliz, a zda se, ze PDF995 std. znaky uklada jako znaky, zatimco
treba "r s hackem" ulozi jako maly obrazek (pri zvetseni je zubate). "c s hackem" je ale kupodivu
ulozeno take jako znak. Nejspis vsak zalezi na tom, jaky font se zrovna pouzije.
Karel Rys
Tlacitka: YES NO
[*] bardon <bardon(zv)akord-soft(tec)cz> - 15.1.2003 10:50:39
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Sebel�k
>2. Key violation
>Pokud to uzivateli prelozim jako "duplicitni klic", tak zacne vytahovat z
kapes klice a divit >se: "vzdyt mam jenom jedny".
>Resenim je osetrit tyto typy vyjimek na miste, kde vznikly. Tam
pravdepodobne jsme schopni byt konkretnejsi.
>I takova hlaska od SQL serveru jako "Violation of constraint PK_FAKTURA" se
da uzivateli prelozit jako "Faktura s timto cislem uz existuje".
Napriklad na MS SQL se to da pocestit i v tabulce sysmessages, ale osobne
bych to nedelal, nema to valny prakticky vyznam.
Chyba Printers.pas?
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 15.1.2003 10:51:14
Zdrav=EDm vsechny
a mam jeden dotaz.
Situace: Windows 2000, Delphi 5 SP1, jedina tiskarna sitova HPDJ1120C (na
pocitaci s W98SE a funguje). V programu pouzivam komponentu TRichPrinter.
Pri TRichPrinter.Create se nastavuje velikost pisma podle vychozi tiskarn=
y.
Pokud je pocitac s tikarnou zapnuty, je vse OK. Pokud je vypnuty, dojde k
problemum. Pokud by byly v jednotce Richprint, tak bych je osetril. Pri
volani
LineSpacing=3DlsSinglespace (interni v Richprint) se zabrousi do jednotky=
VCL
Printers.pas na proceduru
TPrinter.SetPrinter{....}. V casti
.......
if DeviceMode <> 0 then
begin
DevMode :=3D GlobalLock(DeviceMode)
***** if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,
DevMode^, DM_OUT_BUFFER) < 0 then
begin
GlobalUnlock(DeviceMode);
GlobalFree(DeviceMode);
DeviceMode :=3D 0;
end
na radku oznacenem ***** dojde k vyjimce AccessViolation at Adress 778143=
06.
Read adress 00161000.
Pokud radek LineSpacing.... uzavru do try
except end neni to nic platne, protoze v printers pas to dojde az k radku
RaiseError(SNoDefaultPrinter), coz se v programu nijak neprojevi a sekce
except to ignoruje.
je to OK ? Co s tim ?
Petr marik
Cteni BMP po pixlech
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 15.1.2003 11:04:29
> potreboval bych vedet, jak nactu obrazek BMP, abych ho mohl cist po
>pixlech v X a Y souradnice a jak zmenim tento pixel. V Delphi 5.
TBitmap.LoadFromFile
TBitmap.Canvas.Pixels[x,y]
Josef Cerny
Cteni BMP po pixlech
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 11:10:05
> potreboval bych vedet, jak nactu obrazek BMP, abych ho mohl cist po
> pixlech v X a Y souradnice a jak zmenim tento pixel. V Delphi 5.
How to Use Scanlines
http://community.borland.com/article/0,1410,29173,00.html
HTH
TOndrej
Jak zjistit OS?
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 15.1.2003 11:26:39
Zistis ci sa jedna o WinNT a ak je major version 5 a minor 1 tak je to
XP. Ak je major 5 a minor 0 tak je to Win2000, inak je to vzdy WinNT.
Pre Windows 98 zistis ci sa jedna o Win95 a ak je major 4 tak je to
Win98.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Zdenek Brejsa
>: Sent: Wednesday, January 15, 2003 9:35 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Jak zjistit OS?
>:
>: Ahoj,
>: pratele, jak v D4 zjistim na jakych windowsech program bezi ?
(konkretne
>: potrebuju vedet, ze se jedna o XP)
>:
>: diky za pomoc
>:
>: Zdenek Brejsa - programator HJ-SOFT s.r.o.
>: Hradebni 3
>: 56301 Lanskroun
>: IC: 62026631 DIC: 273-62026631
>: Tel./fax: 465 321096, 465 322889, 465 324795
>: hotline: 465 324795
>: Mobil Eurotel: 724 185948; T-Mobile : 603 833124
>: www.hjsoft(tec)cz
>: ICQ: 47636291
Tlacitka: YES NO
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 15.1.2003 11:26:39
Nemusis robit kazdu. Urob si globalny ovladac vynimiek. (neskor ti ho
mozem poslat, ale teraz na to nemam vobec). V globalnom ovladaci staci
premenovat najpouzivanejsie vynimky.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Milan Ruksak
>: Sent: Tuesday, January 14, 2003 11:58 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Re: Tlacitka: YES NO
>:=20
>: Tak ted uz z toho mam "maglajs" i ja. S delphi vicemene zacinam, ale
>: chcete
>: tim rict, ze to nejde ? V C++, VisualBasicu i VisualFoxpro to jde a
jen
>: Delphi to neumi ? Protoze nevim, zda nekdo bude mit ceske, anglicke
nebo
>: nemecke Windows, asi Windows okna nebudou resenim !!! Mel jsem o
Delphi
>: lepsi mineni, ale jest-li mam kazdou udalost a hlasku obsluhovat
pomoci
>: vyjimek (protoze jinou rozumnou cestu neznam), tak "NO NAZDAR" ... A
to
>: nemluvim o lokalizaci, kterou budu potrebovat! Stejne tak se mi zda
>: "ujety"
>: psat vyjimku jen proto, aby program napsal misto "Key Violation" neco
>: srozumitelneho pro obycejneho ceskeho uzivatele.
>: A nebo jsem jako zacatecnik uplne mimo misu ...?
>:=20
>: O reseni bych vedel, ale zatim to neumim udelat - napsat potomky
dialogu
>: s
>: vlastnostmi popis tlacitek ...
>:=20
>: Rooksy
>:=20
>: ----- Original Message -----
>: From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>: To: <delphi-l(zv)clexpert(tec)cz>
>: Sent: Tuesday, January 14, 2003 10:36 PM
>: Subject: Re: Tlacitka: YES NO
>:=20
>:=20
>: > 14.1.2003 Petr Vones:
>: > > From: "Milan Ruksak" <ruksak(zv)volny(tec)cz>
>: > >> Jeste jeden dotaz. Jak donutit Delphi, aby v hlaskach misto Yes,
No
>: a
>: OK tam
>: > >> byla cestina (Ano, NE ...) ?
>: >
>: > > Pouzivat standardni dialogy Windows, ve VCL je to
>: Application.MessageBox.
>: >
>: > A pak z toho je mezinarodni maglajz, pokud m=E1=9A anglick=E9 =
windows
nebo
>: > to chce=9A lokalizovat.
>: >
>: > --
>: > ing. Jan Fiala
>: > mailto:jan.fiala(zv)iol(tec)cz
>:=20
>:=20
Tlacitka: YES NO
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2003 11:36:00
From: "Milan Ruksak" <ruksak(zv)volny(tec)cz>
> Stejne tak se mi zda "ujety"
> psat vyjimku jen proto, aby program
> napsal misto "Key Violation" neco
> srozumitelneho pro obycejneho ceskeho uzivatele.
Nejen pro ceskeho uzivatele - tu vyjimku bys mel osetrit v kazdem pripade a
pokud mozno co nejblize
k mistu, kde vznikla, protoze cim dal od toho mista
budes, tim mene informaci budes mit, v jakem kontextu
a proc k ni doslo.
HTH, pf
TStatusBar a unit AppEvnts
[*] Jan Naiser <tua(zv)wo(tec)cz> - 15.1.2003 11:47:01
Preji pekny den,
D6SP2, W2k
ted jsem si lamal hlavu nekolik hodin tim, ze mi znicehonic prestaly chodil
ve statusbaru ve stare aplikaci po par upravach hinty.
Udelal jsem tedy jednoduchy pokus:
vytvoril jsem novou Aplikaci - Form, na nej dal ActionList do nej par
standard. prikazu, ImageList, MainMenu a StatusBar, u ktereho jsem zapnul
AutoHint. Po spusteni na StatusBaru chodily Hinty, jak maji. Pridal jsem
TApplicationEvents. I tady vse vporadku. Odebral jsem TApplicationEvents a
zde najednou hinty prestaly chodit. :-(
Az jsem dospel k tomu, ze musim odstranil unit AppEvents v uses, kteryzto
tam zustal po odebrani TApplicationEvents, vse se opet rozchodilo, jak ma.
Treba to nekomu usetri par hodin hledani. :-)
Honza.
ComboBox
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 15.1.2003 11:59:10
Ahoj,
mam D6 a Win 2000 a rad bych vas poprosil o radu.
Na formu mam 2 ComboBoxy, napr. Cbx1 a Cbx2. Prvni obsahuje 4 itemy =
(Jedna, Dve, Tri a Ctyri) a druhy 2 itemy (1 a 2).
Jde mi to to, ze kdyz na Cbx2 kliknu na item "1", vsechny itemy v Cbx1 =
jsou pristupne, ale kdyz v Cbx2 kliknu na item "2", itemy "Jedna" a =
"Dve" z Cbx1 budou Enable...
Diky moc
V.OT: AT prikazy pro Siemens C35i
[*] Riedel Petr <Petr.Riedel(zv)Pilsner-Urquell(tec)cz> - 15.1.2003 12:00:20
Dobry den,
pred nejakym casem mi nekdo z konference poslal seznam AT prikazu pro mobil
Siemens C35i. Ted se opet k nim potrebuji vratit, ale nemuzu je najit.
Jestli by mi je nekdo zaslal na muj mail, budu vdecny.
Petr Riedel
AT prikazy pro Siemens C35i
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2003 12:06:31
From: "Riedel Petr" <Petr.Riedel(zv)Pilsner-Urquell(tec)cz>> pred nejakym casem mi nekdo z konference poslal
> seznam AT prikazu pro mobil
> Siemens C35i. Ted se opet k nim potrebuji vratit,
> ale nemuzu je najit.
A co si je najit na internetu?
http://www.my-siemens.com/external/tt/hq/mw/hd/hd/p35/s35i_c35i_m35i_modem_c
ommandset_v01.pdf
HTH, pf
ComboBox
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.1.2003 12:09:07
MTUuMS4yMDAzIExVS0VTIFbhY2xhdjoNCj4gQWhvaiwNCg0KPiBtYW0gRDYgYSBXaW4gMjAwMCBh
IHJhZCBieWNoIHZhcyBwb3Byb3NpbCBvIHJhZHUuDQoNCj4gTmEgZm9ybXUgbWFtIDIgQ29tYm9C
b3h5LCBuYXByLiBDYngxIGEgQ2J4Mi4gUHJ2bmkgb2JzYWh1amUgNCBpdGVteQ0KPiAoSmVkbmEs
IER2ZSwgVHJpIGEgQ3R5cmkpIGEgZHJ1aHkgMiBpdGVteSAoMSBhIDIpLiBKZGUgbWkgdG8gdG8s
IHplDQo+IGtkeXogbmEgQ2J4MiBrbGlrbnUgbmEgaXRlbSAiMSIsIHZzZWNobnkgaXRlbXkgdiBD
YngxIGpzb3UNCj4gcHJpc3R1cG5lLCBhbGUga2R5eiB2IENieDIga2xpa251IG5hIGl0ZW0gIjIi
LCBpdGVteSAiSmVkbmEiIGEgIkR2ZSINCj4geiBDYngxIGJ1ZG91IEVuYWJsZS4uLg0KDQpOYSB0
b2hsZSBqZSBDb21ib0JveCBuZXZob2RueS4gU2V6bmFtLCBrdGVyeSBzZSB0aSBwbyByb3piYWxl
bmkNCnVrYXp1amUgamUgb2J5Y2VqbnkgVFN0cmluZ3MsIGt0ZXJ5IG5lbWEgemFkbmUgdmxhc3Ru
b3N0aSBFbmFibGVkDQphcG9kLg0KVnlzZXJpdCBieSBzZSB0byBtb3puYSBkYWxvIHV6aXZhdGVs
c2t5bSB2eWtyZXNsb3ZhbmltLCBrZHkgYnlzIHR5DQppdGVteSAoamFrIHJpa2FzKSB2eWtyZXNs
aWwgamlub3UgYmFydm91IChzZWRvdSkgYSBtdXNlbCBieSBzaXMNCm9zZXRyaXQsIHplIGplIHV6
aXZhdGVsIG5lYnVkZSBtb2NpIHZ5YnJhdC4NCg0KTW96bmEgYnkgYnlsbyBsZXBzaSByZXNlbmkg
dWRlbGF0IHRvIHRhaywgemUgbmEgemFrbGFkZSB2eWJlcnUgdg0KcHJ2bmltIENvbWJvQm94dSBz
ZSB0aSB6bWVuaSBvYnNhaCBkcnVoZWhvICh0eSBrdGVyZSBuZWNoY2VzLCB0YW0NCm5lYnVkb3Up
DQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
Cteni BMP po pixlech
[*] Peter Surovy <psurovy(zv)uevora.pt> - 15.1.2003 11:10:45 -0000
----- Original Message -----
From: "Josef A. Cerny" <delphi(zv)atlascon(tec)cz>
Sent: Wednesday, January 15, 2003 10:04 AM
> > potreboval bych vedet, jak nactu obrazek BMP, abych ho mohl cist po
> >pixlech v X a Y souradnice a jak zmenim tento pixel. V Delphi 5.
>
> TBitmap.LoadFromFile
> TBitmap.Canvas.Pixels[x,y]
-- alebo pouzi komponentu Image :
Image1.Picture.LoadFromFile('TvojaBitmapa.bmp');
a potom pristupuj k jednotlivym bodom
cez Canvas tejto komponenty:
Image1.Canvas.Pixels[x,y]:=novafarba
PS
Trideni a TListView OwnerData
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 15.1.2003 12:17:14
Ahoj
jde nejakym zpusobem tridit polozky v seznamu TListView kdy=BE je ten
virtualni
(OwnerData :=3D TRUE), potreboval bych tridit podle obsahu jednotlivych
Subitemu
a metody CustomSort, AlphaSort ani Event OnCompare v tomto rezimu nic
nedelaji.
Diky.
Delphi 6 pro UPD2, W2K pro SP3
Jaroslav KUBA
Tresoft s.r.o
jarda(zv)tresoft(tec)cz
+420724/091592
OT: ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
[*] Tom� Fajman��������ڎf����{� - 15.1.2003 13:20:45
Zdarec, nevite nekdo prosim jak z prikazove radky zalozit adresar s prave
aktulanim datumem.
Pzn. Potreboval bych do auteoexec.bat takovejto prikaz kterej by mi
vytvoril adresar napr. "15012003" - aktulani datum
Jeste jednou Yes No
[*] Milan Ruksak <ruksak(zv)volny(tec)cz> - 15.1.2003 13:22:48
Diky vsem (obzvlaste p.Fialovi),
hromadna reakce:
- proc nezustanes u C++? C++ je sice bajecny, ale nas zakaznik nas pan... a
navic na prace s databazemi to neni to pravy orechovy! Na jednodussi
projekty je mnohem lepsi Delphi. Navic pred mesicem jsem neznal ani Pascal,
ani Delphi a dnes mam hotovou fakturaci a polovinu cele agendy. Myslis, ze
bych to v jinem jazyce zvladnul ? V C++ bych tak zacinal psat sve prvni unit
...
- do problemu jsem se "zahrabal" a i diky prispevkum je mi jedno jasne - bez
globalniho ovladace vyjimek s moznosti lokalizace je vsechno jen polovicate
reseni, ktere se muze casem vymstit !!!!! Uz se do nej poustim ... Mate-li
nekdo zkusenosti nebo neco hotoveho, budu rad za pomoc.
- A ted ke "Key violation" - proc se porad mluvi o chybe nebo necem
neosetrenem. U me v programu nenastane, o to jsem se postaral, ale problem
je nekde uplne jinde!!! To preci neni chyba, ale osetrena udalost databaze!
Proto to tam taky je. Prusvih Delphi je ale v tom, ze pokud se pouziva BDE
(Paradox) nelze to osetrit v databazi, ale musi se to udelat v Delphi. A
jak? Zase jen tou "pitomou" vyjimkou. Na to jsem si stezoval. Misto abych
udelal vnorenou proceduru do databaze, musim to delat v delphi. Spousta lidi
nadava na FoxPro, ale vydeli jste nekdy rozdil v navrhu databaze ve Foxce a
v Delphi-Paradoxu? Takze zkratim to, pokud jde o osetreni vyjimek, tak na
miste by bylo je osetrit v databazi a ne v programu.
Rooksy
P.S.: Psal jsem tez, ze bych potreboval zablokovat DELETE v DBNavigatoru. Po
precteni manualu jsem objevil bajecne slovicko ABORT. Jen kdyby to nahodou
nekdo potreboval.
ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 15.1.2003 13:23:45
tak si udelej v packalu exe a pak ho volej z BATaku :-)
MI'RA
-----Original Message-----
From: Tom=E1=9A Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
Sent: Wednesday, January 15, 2003 1:21 PM
To: dotaz-delp
Subject: OT: ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
Zdarec, nevite nekdo prosim jak z prikazove radky zalozit adresar s =
prave
aktulanim datumem.
Pzn. Potreboval bych do auteoexec.bat takovejto prikaz kterej by mi
vytvoril adresar napr. "15012003" - aktulani datum
ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 15.1.2003 13:33:54
for /f "tokens=1,2,3,4* delims=. " %%i in ('date /t') do set DAY=%%i&set
DD=%%j&set MM=%%k&set YYYY=%%l
set YY=%YYYY:~2,2%
md %YYYY%%MM%%DD%
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Fajman
> Sent: Wednesday, January 15, 2003 1:21 PM
> To: dotaz-delp
> Subject: OT: ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
>
>
> Zdarec, nevite nekdo prosim jak z prikazove radky zalozit
> adresar s prave
> aktulanim datumem.
> Pzn. Potreboval bych do auteoexec.bat takovejto prikaz kterej by mi
> vytvoril adresar napr. "15012003" - aktulani datum
>
ComboBox
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 15.1.2003 13:38:19
Parada, ale kdyz udelam toto:
CBox1.Clear;
CBox1.Items.Add('Jedna');
CBox1.Items.Add('Dva');
Cbox1.ItemIndex :=3D 0;
Jak zjistim v OnChange hodnotu ItemIndex ?
V.
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Wednesday, January 15, 2003 12:09 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ComboBox
15.1.2003 LUKES V=E1clav:
> Ahoj,
> mam D6 a Win 2000 a rad bych vas poprosil o radu.
> Na formu mam 2 ComboBoxy, napr. Cbx1 a Cbx2. Prvni obsahuje 4 itemy
> (Jedna, Dve, Tri a Ctyri) a druhy 2 itemy (1 a 2). Jde mi to to, ze
> kdyz na Cbx2 kliknu na item "1", vsechny itemy v Cbx1 jsou
> pristupne, ale kdyz v Cbx2 kliknu na item "2", itemy "Jedna" a "Dve"
> z Cbx1 budou Enable...
Na tohle je ComboBox nevhodny. Seznam, ktery se ti po rozbaleni
ukazuje je obycejny TStrings, ktery nema zadne vlastnosti Enabled
apod.
Vyserit by se to mozna dalo uzivatelskym vykreslovanim, kdy bys ty
itemy (jak rikas) vykreslil jinou barvou (sedou) a musel by sis
osetrit, ze je uzivatel nebude moci vybrat.
Mozna by bylo lepsi reseni udelat to tak, ze na zaklade vyberu v
prvnim ComboBoxu se ti zmeni obsah druheho (ty ktere nechces, tam
nebudou)
--=20
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
SQL parser, SQL(WHERE) builder
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 15.1.2003 13:39:00
Dobry den,
1)
mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
V podstate mi jde o vytvoreni usporadanych trojic (Field, Alias, Tabulka),
popr. (Funkce(Fields),Alias, ???) Napsal bych si to nejak sam, ale obavam se
ze vychytat vsechny detaily celkem dost prace ...
2)
Mam za ukol vytvorit visualni Where builder (vytvori where cast pro Query).
Jak byste resili problemy s uzavorkovanim (Jde mi spise o uzivatelsky
prijemny interface).
a) Tvorit dole vetu typu (Jmeno="Pepa) A ZAROVEN NEPLATI (Prijmeni="Novak"
NEBO Prijmeni="Novakova"). Uzivatel si tam pak dopise zavorky jak chce.
b) Zavorky resit jako strom (Zabali se do jedne vetve) Problem je jak
reprezentovat vztahy mezi vetvemi na stejne urovni
c) Nedelat zavorky, uzivatel to stejne nepotrebuje a pouzivat to obdobne
jako Excel (Podmiky se nepisou za sebe v urcenem poradi s urcenymi
operatory)
d) Jinak
Diky Danik
ZALOZENI ADRESARE S AKTUALNIM DATUMEM A CASEM
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2003 13:41:55
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
> for /f "tokens=1,2,3,4* delims=. " %%i in ('date /t') do set DAY=%%i&set
> DD=%%j&set MM=%%k&set YYYY=%%l
> set YY=%YYYY:~2,2%
> md %YYYY%%MM%%DD%
nebo pouzit systemovou promennou %date% a vybrat si z ni znaky,
ktere te zajimaji:
set TODAY=%date%
set DD=%TODAY:~3,2%
set MM=%TODAY:~6,2%
set YYYY=%TODAY:~-4%
md %DD%%MM%%YYYY%
Bye, pf
ComboBox
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.1.2003 13:54:33
MTUuMS4yMDAzIExVS0VTIFbhY2xhdjoNCj4gUGFyYWRhLCBhbGUga2R5eiB1ZGVsYW0gdG90bzoN
Cg0KPiBDQm94MS5DbGVhcjsNCj4gQ0JveDEuSXRlbXMuQWRkKCdKZWRuYScpOw0KPiBDQm94MS5J
dGVtcy5BZGQoJ0R2YScpOw0KPiBDYm94MS5JdGVtSW5kZXggOj0gMDsNCg0KPiBKYWsgemppc3Rp
bSB2IE9uQ2hhbmdlIGhvZG5vdHUgSXRlbUluZGV4ID8NCg0KQnVkZXMgbXVzZXQgcG9jaXRhdCBz
IHRpbSwgemUganNpIG5lY28gb2RzdHJhbmlsLg0KRGEgc2UgdG8gdnlyZXNpdCB0aW0sIHplIHNp
IHRhbSBwcmlkYXMgZG8gdGV4dHUgdHJlYmEgcHV2b2RuaQ0KSXRlbUluZGV4LCB0YWt6ZSB0byBw
YWsgYnVkZSB2eXBhZGF0Og0KMS4gSmVkbmENCjMuIFRyaQ0KDQpBIHBhayBwcmkgT25DaGFuZ2Ug
dG8geiB0b2hvIHphc2UgInZ5cHJlcGFydWplcyINCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFp
bHRvOmphbi5maWFsYUBpb2wuY3o=
Jeste jednou Yes No
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 14:19:10
> - do problemu jsem se "zahrabal" a i diky prispevkum je mi
> jedno jasne - bez globalniho ovladace vyjimek s moznosti
> lokalizace je vsechno jen polovicate reseni, ktere se muze
> casem vymstit !!!!! Uz se do nej poustim ...
Uplne riesenie spociva v standardnej lokalizacii do resource DLL, tak ako je
popisana v helpe (priklad najdes v Demos\Richedit, je tam ukazane aj
prepinanie jazykov za behu aplikacie).
Mozes na to pouzit Translation Manager (tusim az v Enterprise verzii) alebo
si to mozes robit rucne sam alebo nejakym inym nastrojom.
Globalny exception handler ako prostriedok na lokalizaciu nie je velmi dobry
napad, 'riesi' totiz iba tie hlasky a nic ine.
HTH
TOndrej
SQL parser, SQL(WHERE) builder
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 15.1.2003 14:40:25
----- Original Message -----
From: "Danik Frantik" <frantik(zv)telpro(tec)cz>
> Mam za ukol vytvorit visualni Where builder (vytvori where cast pro
Query).
> Jak byste resili problemy s uzavorkovanim (Jde mi spise o uzivatelsky
> prijemny interface).
Zalezi na tom kdo to bude pouzivat -- jestli BFU (Bezny Franta Uzivatel :-)
nebo Einstein.
> a) Tvorit dole vetu typu (Jmeno="Pepa) A ZAROVEN NEPLATI
(Prijmeni="Novak"
> NEBO Prijmeni="Novakova"). Uzivatel si tam pak dopise zavorky jak chce.
Nevim nevim jestli by tomu BFU Pepa Novak porozumel :-),
budes muset zase udelat parser na tento metajazyk aby tam
uzivatel nenadelal v tech zavorkach boty. Slo by to ale pouzit jako
alternativa k nejake jednodussi metode pro zkusenejsi uzivatele.
> b) Zavorky resit jako strom (Zabali se do jedne vetve) Problem je jak
> reprezentovat vztahy mezi vetvemi na stejne urovni
To je na hranici srozumitelnosti, z vlastni zkusenosti vim ze
uzivatele moc radi stromy nemaji.
> c) Nedelat zavorky, uzivatel to stejne nepotrebuje a pouzivat to obdobne
> jako Excel (Podmiky se nepisou za sebe v urcenem poradi s urcenymi
> operatory)
To se mi asi libi nejvic
> d) Jinak
Jeste jednoduseji -- sada checkboxu pro kazde kriterium jeden
s moznosti zaskrtnuti a dopsani parametru (u textu maska,
u cisel rozsah, u ciselniku vycet hodnot). Jednotliva kriteria
se mezi sebou spojuji AND. I kdyz to vypada jako ze se s tim
moc udelat neda, u nasich uzivatelu to funguje bez pripominek.
Martin Schayna
SQL parser, SQL(WHERE) builder
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.1.2003 14:42:28
> mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
> V podstate mi jde o vytvoreni usporadanych trojic (Field, Alias,
> Tabulka), popr. (Funkce(Fields),Alias, ???) Napsal bych si to nejak
> sam, ale obavam se ze vychytat vsechny detaily celkem dost prace ...
Podle me by bylo vymysleni parseru opravdu silena prace, uvazime-li podselekty,
uniony, konstanty v selectu, funkce atd... Nicmene i mne by se hodil podobny parser,
na nic jsem vsak nenarazil.
David Lebeda
SQL parser, SQL(WHERE) builder
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 15.1.2003 14:51:58
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 15, 2003 2:42 PM
Subject: Re: SQL parser, SQL(WHERE) builder
> > mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
> > V podstate mi jde o vytvoreni usporadanych trojic (Field, Alias,
> > Tabulka), popr. (Funkce(Fields),Alias, ???) Napsal bych si to nejak
> > sam, ale obavam se ze vychytat vsechny detaily celkem dost prace ...
>
> Podle me by bylo vymysleni parseru opravdu silena prace, uvazime-li
podselekty,
> uniony, konstanty v selectu, funkce atd... Nicmene i mne by se hodil
podobny parser,
> na nic jsem vsak nenarazil.
>
> David Lebeda
>
Resenim je obecny parser, ke kteremu napises SQL gramatiku v BNF. Napr
http://www.devincook.com/goldparser/ . A pak uz v programu jen prochazis
strom
a poskladas si to dohromady.
Radim
Tlacitka: YES NO
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 15.1.2003 14:55:50
> Jinak sanozrejme
> muzes zustat u Cecka a stale budes mit vetsi sance pri hledani zamestnani
a
> podobne vyhody, jako help v cestine, uzasnou kompatibilitu s V.Basicem ( a
> jine neuveritelne vyhody ).
To doufam myslis ironicky. Nedavno jsem byl ucasten na skoleni zakladu VC++
6.0 a cestina v tomhle M$ produktu byla uplny horor. Treba jenom nazvy
dialogu atd. atd. Skolitel (prestoze uporny zastance VC++) nam doporucil
psat programy tolko v anglictine. V dotnetovym VS to prej ale je lepsi.
Co se tyce messageboxu, tak ten jsem si zakratko napsal sam s vlastnima
ikonkama a moznosti standardnich i libovolnych nazvu tlacitek a "problem
Application.Messagebox" uz je pro me minulosti. Samozrejme pouzivam
standardni prvky z Common controls, protoze Bill jednou za 2 roky vyda
rozkaz uplne prekopat woknousy a vypada to pak uplne jinak (XP).
Horsi je to s dialogama otevreni a ulozeni souboru, vyber adresare, vyber
OLE prvku aj. Tam zrejme neni moznost rozumne lokalizovat kvuli ruznym
stylum dialogu v ruznych Windows a tvorba vlastnich by byla narocna.
Tomas Krysl
SQL parser, SQL(WHERE) builder
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 15.1.2003 15:02:10
http://gasqlparser.sourceforge.net/
Ale je to alpha verze. Netestovano ...
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lebeda David
Sent: Wednesday, January 15, 2003 2:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SQL parser, SQL(WHERE) builder
> mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
> V podstate mi jde o vytvoreni usporadanych trojic (Field, Alias,
> Tabulka), popr. (Funkce(Fields),Alias, ???) Napsal bych si to nejak
> sam, ale obavam se ze vychytat vsechny detaily celkem dost prace ...
Podle me by bylo vymysleni parseru opravdu silena prace, uvazime-li
podselekty,
uniony, konstanty v selectu, funkce atd... Nicmene i mne by se hodil podobny
parser,
na nic jsem vsak nenarazil.
David Lebeda
---
Prichozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov� b�ze: 248 - datum vyd�n�: 10.1.2003
Uvozovky v SQL do pole Varchar
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 15.1.2003 15:40:55
Ahoj,
> Problem spociva v INSERT INTO nebo UPDATE
> Napr: UPDATE FIRMY SET NAZEV='aaaaaaa"b"aaaaaa'
> pokud to zapisu takto, tak to vyhazuje chybu "XSQLDA index out of range".
> Pokud to zapisu takto:
> UPDATE FIRMY SET NAZEV='aaaaaaa""b""aaaaaa'
> tak to chybu nehodi, ale ulozi do pole ten samy text jak je zadany, tzn se
> dvema uvozovkama posobe.
> DAJI SE NEJAK ZAPSAT JENOM JEDNY UVOZOVKY??
Predpokladam, ze pouzivas IBX.
Mel jsem podobny problem, kdyz jsem pouzival komponentu TIBQuery,
ktera je odvozena od TDataset.
Je treba pouzit komponentu TIBSQL nebo TIBDataset.
S pozdravem
ing. Richard Kejval
IC Software s.r.o
Mobil: +420602477679
OT:sit peer2peer,spojeni pres LPT - vyreseno
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 15.1.2003 15:56:25
> Zdravim v novem roce,
>
> 1.
> Mam problem s rozchozenim TCP/IP (ethernet) mezi 2 kompy.
> Co chodi: jsou-li na obou kompasech XP home nebo prof.,tak to chodi v
pohode
> na 100 megabitech.
> Kdyz ale na jednom kompu jsou Win98SE a na druhym WinXP Home - tak to z
> urcitych
> duvodu potrebuji, tak at s tim delam psi kusy, ne a ne se to vzajemne
> dorozumet. Zkousel jsem ruzne adresy, masky podsite (lokalni sit) i
> dynamicke pridelovani ze serveru DHCP, ale vzdy to pingem poznalo jenom
ten
> samy pocitac. W XP je pruvodce nastavenim domaci site, ktery funguje i pod
> 98, ale tim to taky neslo nakonfigurovat.
> Treba jsem zkousel na jednom poci s XP Home nastavit adresu 169.254.0.1 a
> masku 255.255.255.0 a na druhym s W98SE adresu 169.254.0.2 a tutez masku a
> ping nasel na kazdym kompu jenom ten pocitac, na kterym byl spusten. V
> sitovem okoli se taky zobrazi jen ten samy (lokalni) pocitac.
> Vzhledem k funkcnimu spojeni mezi obema pocitaci s WinXP se odvazuji
tvrdit,
> ze hardware (sitove karty, kabel, propojeni, samotne kompy) je naprosto v
> poradku.
>
> A ted dotazy:
> Co a jak se jeste musi nastavit, aby tahle nejjednodussi TCP/IP sit
chodila?
>
> Jak ovlivni maska podsite chovani (jaky je presne rozdil treba mezi maskou
> 255.255.0.0 a 255.255.255.0?
>
> Je nutne nastavovat parametr Vychozi brana? V napovede jsem vycetl zhruba
> to, ze tahle brana je treba pouze pro komunikaci s jakousi nadrazenou
siti.
>
> Neovlivnuje nefunkcnost "spojeni W98 a WXP" napriklad i fakt, ze v XP se
> vytvari sitove slozky typu Sdilene dokumenty apod., ktere maji dlouhy
nazev,
> coz W98 neskousne? Zkousel jsem totiz, jak jsem se uz vyse zminil, i toho
> jejich pomocnika pro domaci a malou sit, ktery tedy udajne ma fungovat i
ve
> W98, a ten mi tu sit v tech 98 nakonfiguroval (je jedno jaka moznost
funkce
> a umisteni kompu se zvoli) tak, ze misto Sdilene dokumenty se pod ikonkou
> daneho (v mem pripade jen lokalniho) pocitace zobrazil patvar
> "sd=len-dokum".
>
Chybka byla v "nespravnem" konektoru PCI. Kdyz jsem sitovku zasoup o
konektor niz, slape to normalne i s puvodnim ovladacem (mezitim jsem to
zkousel i s nejnovejsim). Cim to ale, ze to v konfiguraci XP-XP
behalo..ehm..uz to neresim. Zrejme to bude pouzitym cipsetem na MS 745 Ultra
(Sis745). Nebo procakem (athlon xp 1600). Zrejme uz na tom W98 vubec
nespousteli.
Seznam promennych
[*] David Li�ka <david(zv)thsoft(tec)cz> - 15.1.2003 15:59:32
Ahoj,
nevite nekdo, zda jde nejak udelat vypis promennych z public deklarace
nejakeho formu?
Jde mi o to, ze tyto promenne potrebuju ukladat na disk a chci udelat
obecnou proceduru pro vsechny formy v projektu.
David
SQL parser, SQL(WHERE) builder
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 15.1.2003 16:02:20
www.tsoft.szm.sk - Parser
|| -----Original Message-----
|| From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
|| Sent: Wednesday, January 15, 2003 2:42 PM
|| To: delphi-l(zv)clexpert(tec)cz
|| Subject: Re: SQL parser, SQL(WHERE) builder
||
||
|| > mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
|| > V podstate mi jde o vytvoreni usporadanych trojic
|| (Field, Alias,
|| > Tabulka), popr. (Funkce(Fields),Alias, ???) Napsal
|| bych si to nejak
|| > sam, ale obavam se ze vychytat vsechny detaily celkem
|| dost prace ...
||
|| Podle me by bylo vymysleni parseru opravdu silena prace,
|| uvazime-li podselekty,
|| uniony, konstanty v selectu, funkce atd... Nicmene i mne
|| by se hodil podobny parser,
|| na nic jsem vsak nenarazil.
||
|| David Lebeda
|| Seznam promennych
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 15.1.2003 16:19:37
Z public nijak, nezjistis nazev, ani typ.
Jedinne z publisched, property jdou urcite,
seznam publsched procedur jde take, po promennych jsem neptral.
Zkus popremyslet, jetli by nebylo vhodnejsi nejake cistejsi reseni,
urcite bych se priklanel k properties, pripadne virtualnim metodam,
nebo interfacum.
Slavek
> -----P=F9vodn=ED zpr=E1va-----
> Od: David Li=B9ka [SMTP:david(zv)thsoft(tec)cz]
> Odesl=E1no: 15. ledna 2003 16:00
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Seznam promennych
>=20
> Ahoj,
>=20
> nevite nekdo, zda jde nejak udelat vypis promennych z public deklarace
> nejakeho formu?
> Jde mi o to, ze tyto promenne potrebuju ukladat na disk a chci udelat
> obecnou proceduru pro vsechny formy v projektu.
>=20
> David
>=20
> Trideni a TListView OwnerData
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 17:09:22
> jde nejakym zpusobem tridit polozky v seznamu TListView kdy=BE je ten
> virtualni (OwnerData :=3D TRUE), potreboval bych tridit podle obsahu
> jednotlivych Subitemu a metody CustomSort, AlphaSort ani Event
> OnCompare v tomto rezimu nic nedelaji.
Ak sa pametam spravne, vo virtualnom rezime listview neobsahuje ziadne =
data,
'pyta' si ich od aplikacie podla potreby cez eventy.
Aplikacia tusim iba nastavi Items.Count.
To znamena, ze Ti staci zotriedit si svoje interne data v aplikacii, a =
potom
nejakym sposobom vyvolat refresh toho listview.
Urcite by malo fungovat nastavit Count na 0 a spet na pocet Tvojich
poloziek, ale mozno su tam efektivnejsie metody, teraz si na to =
nespominam a
nemam prave na to cas, sorry.
HTH
TOndrej
GetTempFileName
[*] Dobromil Maly <dmaly(zv)yo(tec)cz> - 15.1.2003 17:22:22
Ahoj,
vite prosim nekdo, jak pracuje API fce GetTempFileName?
Jedna se mi o to, ze bych potreboval vygenerovat unikatni jmeno
souboru, ale tak, aby splnoval danou konvenci JMENO_uuuu.EXT,
kde JMENO a EXT jsou pevne dane a uuuu by byl jednoznacny
identifikator.
Nechci resit otazku toho, zda uuuu bude v dostatecnem
rozsahu, jde mi spis o techniku, jak zabezpecit, ze mezitim,
co dostanu toto jmeno a nez vznikne fyzicky soubor nevznikne
v jinem threadu ci procesu soubor tehoz jmena.
Dekuji.
Dobromil Maly.
GetTempFileName
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.1.2003 17:48:45
> vite prosim nekdo, jak pracuje API fce GetTempFileName?
> Jedna se mi o to, ze bych potreboval vygenerovat unikatni jmeno
> souboru, ale tak, aby splnoval danou konvenci JMENO_uuuu.EXT,
> kde JMENO a EXT jsou pevne dane a uuuu by byl jednoznacny
> identifikator.
>
> Nechci resit otazku toho, zda uuuu bude v dostatecnem
> rozsahu, jde mi spis o techniku, jak zabezpecit, ze mezitim,
> co dostanu toto jmeno a nez vznikne fyzicky soubor nevznikne
> v jinem threadu ci procesu soubor tehoz jmena.
Ak jej predas parameter uUnique = 0, potom Ti ta funkcia uz aj vytvori novy
subor s unikatnym menom a vrati jeho meno. V pripade nenulovej hodnoty ta
funkcia jednoducho sformatuje uUnique do hexa stringu a vrati Ti takto
vytvorene meno suboru; nerobi ziadnu kontrolu, ci taky subor uz existuje,
ani ten novy subor nevytvori.
Z prefixu (lpPrefixString) beru do uvahy iba prve 3 znaky. Pripona je vzdy
.tmp.
Vseobecne pre docasny subor (ktory ma existovat iba kratku dobu) snad format
jeho mena nie je podstatny.
HTH
TOndrej
GetTempFileName
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2003 18:00:35
From: "Dobromil Maly" <dmaly(zv)yo(tec)cz>
> Nechci resit otazku toho, zda uuuu bude v dostatecnem
> rozsahu, jde mi spis o techniku, jak zabezpecit, ze mezitim,
> co dostanu toto jmeno a nez vznikne fyzicky soubor nevznikne
> v jinem threadu ci procesu soubor tehoz jmena.
Tohle je popis, jak se to chova:
"... If uUnique is zero, the function attempts to form a unique file name
using the current system time. If the file already exists, the number is
increased by one and the functions tests if this file already exists. This
continues until a unique filename is found; the function creates a file by
that name and closes it. Note that the function does not attempt to verify
the uniqueness of the file name when uUnique is nonzero...."
Protoze ta funkce vytvari fyzicky soubor na disku, plyne z podstaty veci, ze
jiny proces, ktery se pokusi o totez, skonci s chybou (ta bude resena v
ramci popisu vyse).
HTH, pf
Jeste jednou Yes No
[*] Vlko II. <vlko(zv)zilina(tec)net> - 15.1.2003 19:49:11
> - proc nezustanes u C++? C++ je sice bajecny, ale nas zakaznik nas pan...
> a
> navic na prace s databazemi to neni to pravy orechovy! Na jednodussi
> projekty je mnohem lepsi Delphi. Navic pred mesicem jsem neznal ani
> Pascal,
> ani Delphi a dnes mam hotovou fakturaci a polovinu cele agendy. Myslis,
> ze
> bych to v jinem jazyce zvladnul ? V C++ bych tak zacinal psat sve prvni
> unit
> ...
Tak co tak skusit c++ builder? v podstate rovnake veci ako delphi, ale
nemusis sa ucit
dalsi jazyk, aj ked kolko reci vies, tolko krat si clovekom
> - do problemu jsem se "zahrabal" a i diky prispevkum je mi jedno jasne -
> bez
> globalniho ovladace vyjimek s moznosti lokalizace je vsechno jen ... atd
Ono nech spravis co spravis, chybu ti vzdy najdu, alebo nebudu s urcitou
vecou spokojny. Najnovsie ma kamarat prekvapil s nazorom, ze do programu
musis zabudovat vedomu chybu, ktora sa zacne prejavovat az po urcitom case
pouzivania programu, tak dva tri mesiace, pretoze ako mi tvrdil
v opacnom pripade si zacnu o tebe mysliet, ze si zbytocni a moze ta to stat
pracovne miesto:) No urob nieco dobre a bez chyby a ako dopadnes:)
--
--------------
vlko_(zv)pobox.sk
Chyba Printers.pas?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2003 21:30:10
From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
> Situace: Windows 2000, Delphi 5 SP1, jedina tiskarna sitova HPDJ1120C (na
> pocitaci s W98SE a funguje). V programu pouzivam komponentu TRichPrinter.
Za prve komponenta TRichPrinter neni standardne dodavana s Delphi, takze bych
se optal u vyrobce. Nejdriv bych to ale zkusil s ne-HP tiskarnou (nebo alespon
driverem), protoze HP je znam svoji naprostou neschopnosti dodavat funkcni
drivery k tiskarnam. Zkus se take podivat k nim na web, jestli tam neni nejaky
update.
Petr Vones
Trideni a TListView OwnerData
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2003 22:22:38
From: "Jaroslav Kuba" <jarda(zv)tresoft(tec)cz>
> (OwnerData := TRUE), potreboval bych tridit podle obsahu jednotlivych
> Subitemu
Ve virtualnim rezimu musis data ktere pak zobrazujes tridit sam.
Petr Vones
Jak zjistit OS?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2003 22:26:59
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> pozri si JclSysInfo v JCL. Nie som si isty, ci JCL este podporuje D4, ale
V JCL 1.22 je jeste podpora D4, v novejsich uz bude definitivne odstranena.
Petr Vones
Jeste jednou Yes No -> OT
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 15.1.2003 22:52:23
V tomhle maji vyhodu firmy, ktery delaji ucetni software, tam se jim o praci
staraj pos*anci ... I kdyz neudelas chybu, mas o praci vystarano.> Najnovsie ma kamarat prekvapil s nazorom, ze
> do programu
> musis zabudovat vedomu chybu, ktora sa zacne prejavovat az po
> urcitom case
> pouzivania programu, tak dva tri mesiace, pretoze ako mi tvrdil
> v opacnom pripade si zacnu o tebe mysliet, ze si zbytocni a
> moze ta to stat
> pracovne miesto:) No urob nieco dobre a bez chyby a ako dopadnes:)
Re[2]: OT:sit peer2peer,spojeni pres LPT - vyresen
[*] Martin Falta <martin(zv)aprog(tec)cz> - 15.1.2003 23:24:52
Hello Tomas,>> Jak ovlivni maska podsite chovani (jaky je presne rozdil treba mezi maskou
>> 255.255.0.0 a 255.255.255.0?
Docela podstatne. Napriklad mas sit 10.1.0.0 s maskou 255.255.255.0. V
tomto pripade mas k dispozici rozsah adres 10.1.0.1 - 10.1.0.254.
Pokud bys vsak pouzil masku 255.255.0.0, tak uz mas k dispozici rozsah
adres 10.1.0.1 - 10.1.255.254.
>> Je nutne nastavovat parametr Vychozi brana? V napovede jsem vycetl zhruba
>> to, ze tahle brana je treba pouze pro komunikaci s jakousi nadrazenou
TK> siti.
Pokud jsi na jednom segmentu site, tak ne. Byla by zapotrebi, pokud
bys mel v serveru dve karty s adresami 10.1.0.1/25 (= maska
255.255.255.128) a 10.1.0.129/25 a chtel mit pristup na celou sit, tak
bys potreboval mit vychozi branu nastavenou a ten server by si to
musel routovat sam.
Martin
OT(2):JESTE JEDEN DOTAZ - ZALOZENI ADRESARE S AKTU
[*] Tom� Fajman��������ڎf����{� - 16.1.2003 05:46:46
Dikes vsem za pomoc, ale jeste bych potreboval aby mi to makalo na WIN98,
tohle co jste mi poradili :
set TODAY=%date%
set DD=%TODAY:~3,2%
set MM=%TODAY:~6,2%
set YYYY=%TODAY:~-4%
md %DD%%MM%%YYYY%
sice funguje na 2000 a vise, ale potreboval bych to i na 98. Nevite prosim
nekdo jeste tohle?
Chyba Printers.pas?
[*] bardon <bardon(zv)akord-soft(tec)cz> - 16.1.2003 07:36:47
M�val jsem podobny problem, mozna dokonce stejny. Jestli byl stejny, to
nevim, nesel jsem tak do hloubky, ale mival jsem Access Violation pri pokusu
tisknout z RichEditu, pokud byla sitova tiskarna (ovladac HP JL II) na jinem
PC a tento PC byl vypnuty. Obesel jsem to tak, ze jsem si nainstaloval
ovladac teto tiskarny na vlastni PC, ikdyz tam tiskarna fyzicky nebyla (a
nastavil jsem si tuto neexistujici tiskarnu jako defaultni). Taky by me
docela zajimalo, jestli se to da vyresit ciste.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Ma��k
Sent: Wednesday, January 15, 2003 10:51 AM
Situace: Windows 2000, Delphi 5 SP1, jedina tiskarna sitova HPDJ1120C (na
pocitaci s W98SE a funguje). V programu pouzivam komponentu TRichPrinter.
Pri TRichPrinter.Create se nastavuje velikost pisma podle vychozi tiskarny.
Pokud je pocitac s tikarnou zapnuty, je vse OK. Pokud je vypnuty, dojde k
problemum. Pokud by byly v jednotce Richprint, tak bych je osetril. Pri
volani
***** if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,
na radku oznacenem ***** dojde k vyjimce AccessViolation at Adress 77814306.
Read adress 00161000.
OT(2):JESTE JEDEN DOTAZ - ZALOZENI ADRESARE S AKTU
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.1.2003 07:43:21
From: "Tom�s Fajman" <tomas.fajman(zv)ortex(tec)cz>
> sice funguje na 2000 a vise, ale potreboval bych to i na 98. Nevite
prosim
> nekdo jeste tohle?
To nevim, protoze s Wx uz nedelam.e, ale mozna by tam mohl byt Windows
Script Host (WSH), jehoz interpretr se spousti jako CScript.exe resp.
WScript.exe. V nem muzes pracovat na urovni Java scriptu popr. v deBillove
oblibenem Basicu.
Da se to stahnout z http://www.miscrosoft.com/scripting.
***
Posledni moznost je, jak uz ti MT radil, napsat utilitku v prascalu
a tu distribuovat s tim BATchem. Sam to pri automatickych backupech
taky pouzivam - tady je priklad souboru *.dpr:
program RenameAsToday;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
cVersion = '0.00.001';
ercNoErrors = 0;
ercHelp = 1;
ercBadParams = 2;
ercFailed = 3;
coptHelp = '/?';
coptDateTime = '/DT';
coptOverwrite = '/Y';
function IsOption(const aOpt:ANSIString): boolean;
var
i: integer;
begin
Result := FALSE;
for i:=1 to ParamCount do
if CompareText(ParamStr(i),aOpt)=0 then
begin
Result := TRUE;
Break;
end;
end;
function IsHelpRequired: boolean;
begin
Result := IsOption(coptHelp);
end;
function IsOverwriteAllowed: boolean;
begin
Result := IsOption(coptOverwrite);
end;
function IsDateTimeRequired: boolean;
begin
Result := IsOption(coptDateTime);
end;
procedure Help;
begin
writeln(OUTPUT,'Renames file to todays date. Version ',cVersion);
writeln(OUTPUT);
writeln(OUTPUT,' RENAMEASTODAY <FileName> [/DT] [/Y] [/?]');
writeln(OUTPUT);
writeln(OUTPUT,'Renames <FileName> to <TodaysDate> using the original file
extension');
writeln(OUTPUT,'Default today''s date format is YYYYMMDD, when /DT option
is used,');
writeln(OUTPUT,'format is YYYYMMDD_HHNN');
writeln(OUTPUT);
end;
function NowAsTodaysDate: ANSIString;
begin
if IsDateTimerequired then
Result := FormatDateTime('yyyymmdd_hhnn',Now)
else
Result := FormatDateTime('yyyymmdd',Now);
end;
function RenameAsTodaysDate(const aOrgName:ANSIString): integer;
var
NewName: ANSIString;
begin
NewName := '';
try
// arguments
if aOrgName='' then
raise Exception.Create('Missing file name to be renamed.');
NewName := NowAsTodaysDate+ExtractFileExt(aOrgName);
// target file name already exists
if FileExists(NewName) then
begin
if IsOverwriteAllowed then
begin
writeln(OUTPUT,Format(' ... deleting old target file
%s',[NewName]));
DeleteFile(NewName);
end
else
raise Exception.Create('Target file already exists.');
end;
// renaming
writeln(OUTPUT,Format(' ... renaming %s to %s',[aOrgName,NewName]));
if not RenameFile(aOrgName,NewName) then
raise Exception.Create('RenameFile() operations has failed.');
Result := ercNoErrors;
except
on E:Exception do
begin
writeln(OUTPUT,Format('Unable to rename file "%s" to "%s".
%s',[aOrgName,NewName,E.Message]));
Result := ercFailed;
end;
end;
end;
begin
if (ParamCount=0) or IsHelpRequired then
begin
Help;
Halt(ercHelp);
end;
Halt(RenameAsTodaysDate(ParamStr(1)));
end.
Chyba Printers.pas?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.1.2003 07:49:11
Ahoj
Myslim si ze v Printers je chyba. Zkus tam vlozit DevMode :=3D nil; jako =
je to dopsano do tveho originalniho kodu (a dej to i na cca 5-6 radek o =
zacatku procedury).
Jaro B.
-----Original Message-----
From: Petr Ma=F8=EDk [mailto:rtepema(zv)mbox.vol(tec)cz]
Sent: Wednesday, January 15, 2003 10:51 AM
To: Delphi konference 1
Subject: Chyba Printers.pas?
LineSpacing=3DlsSinglespace (interni v Richprint) se zabrousi do =
jednotky VCL
Printers.pas na proceduru
TPrinter.SetPrinter{....}. V casti
.......
if DeviceMode <> 0 then
begin
DevMode :=3D GlobalLock(DeviceMode)
***** if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,
DevMode^, DM_OUT_BUFFER) < 0 then
begin
DevMode :=3D nil; //vlozit tento radek
GlobalUnlock(DeviceMode);
GlobalFree(DeviceMode);
DeviceMode :=3D 0;
end
na radku oznacenem ***** dojde k vyjimce AccessViolation at Adress =
77814306.
Read adress 00161000.
Pokud radek LineSpacing.... uzavru do try
except end neni to nic platne, protoze v printers pas to dojde az k =
radku
RaiseError(SNoDefaultPrinter), coz se v programu nijak neprojevi a sekce
except to ignoruje.Kde sehnat ciselnik jkpov
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 16.1.2003 08:40:55
Dobry den,
nevite nekdo kde se da sehnat ciselnik jednotnych klasifikaci
prumyslovych oboru a vyrobku ? Potrebuji to do programu invetury
majetku.
dekuji
Milos Sula
richedit a klavesove zkratky..
[*] cz574068(zv)tiscali(tec)cz - 16.1.2003 08:45:55
K jednomu starsimu prispevku..
---------------------------------------------------------------------
Dobry den..
najde se zde dobry clovek, jez mi poradi s prkotinou na niz nemohu priji=
t
? Problem jest nasledujici. Udelal jsem si jednoduchy editor na text zalo=
zeny
na komponente TRichEdit. Byl bych rad, aby fungoval, co se tyce klavesovy=
ch
zkratek stejne jako klasicky wordpad. Tedy na zkratky CTRL+B, CTRL+U, CTR=
L+I.
Jak proste,ze? Lec u zkratky CTRL+I se sice zmenim styl fontu, ale take
se do editoru prida asi sest podtrzitek..(a ja je tam nedavam :) Pokusy
odchytit tuto kombinaci klaves ztroskotali. A to na tom, ze sice klavesy
chytnu, ale nedari se je nijak 'utopit', protoze podtrzitka lezou do edit=
oru
dal. Uaaa!!Grrr!!
Zkusil jsem i priklad v demos od BORLANDu, ale tam je to same..
Prosim nevite nekdo oc jde? Proc to? Nebo jak se toho zbavit?
Dekuji, dekuji za kazdy TIP&TRICK :) Martin.
---------------------------------------------------------------------
..zde je funkcni reseni od Miroslava Tvrze..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For=
ms,
Dialogs, StdCtrls, ComCtrls;
{
Ctrl + B - BOLD - tucne
Ctrl + I - ITALIC - kurziva
Ctrl + S - STRIKEOUT - preskrtnuty
Ctrl + U - UNDERLINE - podtrzeny
}
// nahradim si ty akce konstantami
const
KEY_CTRL_B =3D 02;
KEY_CTRL_I =3D 9;
KEY_CTRL_S =3D 19;
KEY_CTRL_U =3D 21;
type
TForm1 =3D class(TForm)
RichEdit1: TRichEdit;
procedure RichEdit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
// po stisknuti klavesy zjistim co se stalo - co bylo zmacknuto
Case Ord(Key) Of
// pro kazdou kombinaci to je stejne, akorat se vzdy jedna o jiny st=
yl
KEY_CTRL_B: begin
// vynuluju klavesu - nic se do REdtu nezapise
Key :=3D #0;
// pokud je text tucny, tak
if (fsBold in (Sender as TRichEdit).SelAttributes.Style=
)
then
// tucnost zrusim
(Sender as TRichEdit).SelAttributes.Style :=3D (Sende=
r
as TRichEdit).SelAttributes.Style - [fsBold]
// jinak
else
// tucnost textu nastavim
(Sender as TRichEdit).SelAttributes.Style :=3D (Send=
er
as TRichEdit).SelAttributes.Style + [fsBold];
end;
KEY_CTRL_I: begin
Key :=3D #0;
if (fsItalic in (Sender as TRichEdit).SelAttributes.Sty=
le)
then
(Sender as TRichEdit).SelAttributes.Style :=3D (Sende=
r
as TRichEdit).SelAttributes.Style - [fsItalic]
else
(Sender as TRichEdit).SelAttributes.Style :=3D (Send=
er
as TRichEdit).SelAttributes.Style + [fsItalic];
end;
KEY_CTRL_S: begin
Key :=3D #0;
if (fsStrikeout in (Sender as TRichEdit).SelAttributes.=
Style)
then
(Sender as TRichEdit).SelAttributes.Style :=3D (Sende=
r
as TRichEdit).SelAttributes.Style - [fsStrikeout]
else
(Sender as TRichEdit).SelAttributes.Style :=3D (Sende=
r
as TRichEdit).SelAttributes.Style + [fsStrikeout];
end;
KEY_CTRL_U: begin
Key :=3D #0;
if (fsUnderline in (Sender as TRichEdit).SelAttributes.=
Style)
then
(Sender as TRichEdit).SelAttributes.Style :=3D (Sende=
r
as TRichEdit).SelAttributes.Style - [fsUnderline]
else
(Sender as TRichEdit).SelAttributes.Style :=3D (Send=
er
as TRichEdit).SelAttributes.Style + [fsUnderline];
end;
end;
end;
end.
________________________________________________
Hledate na netu MP3ky?
http://hledani.tiscali(tec)cz kvalitni vyhledavani MP3 souboru!!!Kde sehnat ciselnik jkpov
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 16.1.2003 08:59:56
Ahoj,
hledej SKP. Dival jsem se asi pred pul rokem.
Je to na nejakych oficialnich strankach ( nevzpomenu si kterych),
ale bohuzel to neni ve stahnutelne podobe, je to rozstrkano do ruznych
kategorii atd.
Snad je tam i odkaz, kdo to rozsiruje (prodava).
Taky to obsahuje ASPI (Autom. Sys. Pravnich Informaci ).
Pavel
P.S. Pokud se ti to podari stahnout, tak bych to chtel taky.>nevite nekdo kde se da sehnat ciselnik jednotnych klasifikaci
>prumyslovych oboru a vyrobku ? Potrebuji to do programu invetury
>majetku.SQL parser, SQL(WHERE) builder
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 16.1.2003 09:02:39
Ahoj,
resil jsem stejny problem a nakonec po vyzkumu co jsou
uzivatele schopni nepochopit (, aby nebylo problemu mnoho),
jsem se rozhodl nabizet pouze podminky add c) - jako Excel.
Generator Filtru, ktery jsem s kolegou napsal pracuje
vzdy nad view, tudiz neni treba parsovat SQL prikaz
(ono to casto ani nejde, nebot jsou zobrazovany vysledky SP).
Informace o fieldech si stahuje z Tdbgridu a/nebo pripojeneho
Datasetu. Zobrazuje nadpisy sloupcu z gridu nebo
(pokud v gridu sloupec neni) z datasetu.
Pro zobrazeni jsme vytvorili jednoduchou SP s paremetry (zv)Filter
a (zv)Where, stejne paramery maji i SP, ktere jsou pouzity v prehledech.
Podminky (zv)Filter a (zv)Where jsou spojeny v SP do jedinne podminky
pomoci operatoru AND. Zivot totiz ukazal, ze casto je treba pozivat
pevnou cast podminky ((zv)Where) a uzivatelsky definovany filter ((zv)Filter).
Jinak pokud hledas vzor pro neco sofistikovanejsiho zkus se podivat do
Visul FoxPro (generator query) nebo Accessu (ten je ale myslim uz prilis
"chytry" pro bidne skolenenou beznou obsluhu).
Pavel
> From: Danik Frantik [mailto:frantik(zv)telpro(tec)cz]
> 1)
> mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
> V podstate mi jde o vytvoreni usporadanych trojic (Field,
> Alias, Tabulka),
> popr. (Funkce(Fields),Alias, ???) Napsal bych si to nejak
> sam, ale obavam se
> ze vychytat vsechny detaily celkem dost prace ...
> 2)
> Mam za ukol vytvorit visualni Where builder (vytvori where
> cast pro Query).
> Jak byste resili problemy s uzavorkovanim (Jde mi spise o uzivatelsky
> prijemny interface).
> a) Tvorit dole vetu typu (Jmeno="Pepa) A ZAROVEN NEPLATI
> (Prijmeni="Novak"
> NEBO Prijmeni="Novakova"). Uzivatel si tam pak dopise zavorky
> jak chce.
> b) Zavorky resit jako strom (Zabali se do jedne vetve)
> Problem je jak
> reprezentovat vztahy mezi vetvemi na stejne urovni
> c) Nedelat zavorky, uzivatel to stejne nepotrebuje a
> pouzivat to obdobne
> jako Excel (Podmiky se nepisou za sebe v urcenem poradi s urcenymi
> operatory)
> d) Jinak
Kde sehnat ciselnik jkpov
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 16.1.2003 09:19:07
Jo bylo to tady
http://www(tec)czso(tec)cz/csu/redakce.nsf/i/klasifikace
ASPI mame ale tam je jen zneni zakona, ale samotny ciselnik jsem tam
nenasel :(.
Mimochodem jakym zpusobem se tvori v soucasne dobe spravne inventarni
cisla pro evidenci majetku (vcetne vypocetni techniky).
My jsme pouzivali formu trida/jkpov/por.
kde trida je podle ciselniku 19 - drobny nehmotny investicni majetek, 13
- software atd..
jkpov se urcovalo podle typu zarizeni
a por je nami generovane poradove cislo.
Jestli to dobre chapu tak je to cele nyni nahrazeno tim SKP + poradove
cislo ??? - (standartni klasifikace produkce) - jenz zhruba odpovida
standartu EU.
Milos Sula
-----Original Message-----
From: Pavel Gazda [mailto:pavel_gazda(zv)dataint(tec)cz]=20
Sent: Thursday, January 16, 2003 9:00 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Kde sehnat ciselnik jkpov
Ahoj,
hledej SKP. Dival jsem se asi pred pul rokem.
Je to na nejakych oficialnich strankach ( nevzpomenu si kterych), ale
bohuzel to neni ve stahnutelne podobe, je to rozstrkano do ruznych
kategorii atd. Snad je tam i odkaz, kdo to rozsiruje (prodava).
Taky to obsahuje ASPI (Autom. Sys. Pravnich Informaci ).
Pavel
P.S. Pokud se ti to podari stahnout, tak bych to chtel taky.
CPU window
[*] bardon <bardon(zv)akord-soft(tec)cz> - 16.1.2003 10:13:59
Mam takovyto problem: potrebuji pracovat s cizim COM objektem. Tento COM
objekt vytvarim pomoci COMKomponenta := CreateOLEObject('JmenoCOM') ;
Vsechno mi to funguje dobre. ALE, kdykoli creatuju tento objekt, objevi se
mi okno CPU a zacne to krokovat. Kdyz to pustim dal, objevi se mi to CPU
okno jeste jednou. Kdyz to pustim dal, uz to jede bez preruseni.
Jen pro zajimavost - jiny zpusob vytvareni, ani vytvoreni Delphi componenty
na paletu atd atd, nic z toho nema zadny vliv. Proste se pri create objevi
CPU okno a chce krokovat.
Zajimave je, ze v tom CPU okne je na druhem radku "ntdll.DbgUserBreakPoint".
Ja tomu nerozumim, ale chova se to, jako kdyby tam programator toho COM
objektu nechal nejaky permanentni breakpoint.
Otazka zni, jak presvedcit Delphi (D5), ze na tomto miste opravdu
nepotrebuji krokovat a nechci aby se mi zastavoval na CPU okne?
Kde sehnat ciselnik jkpov
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 16.1.2003 10:30:39
>hledej SKP. Dival jsem se asi pred pul rokem.
>Je to na nejakych oficialnich strankach ( nevzpomenu si kterych), ale
>bohuzel to neni ve stahnutelne podobe, je to rozstrkano do ruznych
>kategorii atd. Snad je tam i odkaz, kdo to rozsiruje (prodava).
>Taky to obsahuje ASPI (Autom. Sys. Pravnich Informaci ).
A taky dalsi pravni system ProfiData od ATLAS consulting (www.atlascon(tec)cz)
Pepa Cerny
SQL select
[*] "Netu�il, Roman, Ing." - 16.1.2003 10:38:39
Panove,
mam n=E1sleduj=EDc=ED z=E1znamy (Identifikator, Prijmeni, Jmeno, Nejake =
cislo, a
dalsi udaje, ktere neuvadim, i z ostatnich tabulek)
11111 NOVAK PAVEL 12
11111 NOVAK PAVEL 13
11111 NOVAK PAVEL 14
11111 NOVAK PAVEL 15
99999 NOVAK PAVEL 16
99999 NOVAK PAVEL 17
potreboval, bych sestavit select zhruba nasledujici
select Identifikator, Prijmeni, Jmeno, Nejake cislo from...
avsak pouze jednou pro kazdy Identifikator, tedy s nasledujicim =
vystupem:
11111 NOVAK PAVEL 12
99999 NOVAK PAVEL 16
Kdyz pouziji
select distinct Identifikator, Prijmeni, Jmeno, Nejake cislo from...
vysledek je stejne spatny, protoze jednotlive zaznamy se lisi v poli =
Nejake
cislo a na vystupu dostanu opet vsechny zaznamy.
Diky, Roman
SQL select
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 16.1.2003 10:46:05
To co pises neni problem, problemem je, zes neuvedl, co se ma dit s tim nejakym cislem
a na jem serveru to poustis.
Obecne by to mohlo byt takto:
select Identifikator, Prijmeni, Jmeno, Nejaka agregacni funkce(Nejake cislo) from...
group by Identifikator, Prijmeni, Jmeno
nebo na IB/FB takto (pokud je identifikator identifikatorem cloveka):
select Identifikator, Max(Prijmeni), max(Jmeno), Nejaka agregacni funkce(Nejake cislo) from...
group by Identifikator
vysledek bude asi tak o 50% rychlejsi (zelezi an situaci, ale urcite nebude pomalejsi).
Slavek
> potreboval, bych sestavit select zhruba nasledujici
>
> select Identifikator, Prijmeni, Jmeno, Nejake cislo from...
>
> avsak pouze jednou pro kazdy Identifikator, tedy s nasledujicim vystupem:
> 11111 NOVAK PAVEL 12
> 99999 NOVAK PAVEL 16
>
> Kdyz pouziji
>
> select distinct Identifikator, Prijmeni, Jmeno, Nejake cislo from...
>
> vysledek je stejne spatny, protoze jednotlive zaznamy se lisi v poli Nejake
> cislo a na vystupu dostanu opet vsechny zaznamy.
XML konfigurace ...
[*] skalsky(zv)oksystem(tec)cz - 16.1.2003 11:01:04
Ahojky Delphini,
Nejak se mi nepodarilo v archivu nalezt prispevky o XML konfiguraci
... pouzivate nekdo pro konfiguraci programu (nejen konfiguraci, ale i jako
format pro sdileni dat vice aplikacemi) XML? Mohl by mi nektery z vas
doporucit dobrou komponentu/sadu komponent (pokud mozno s moznosti videt
zdrojak), ktere/ou bych mohl pouzit ?
Za pripadna doporuceni diky, za pripadne argumenty proti tomuto
postupu samozrejme taky ...
Milan
SQL select
[*] Jan K��ek - 16.1.2003 11:08:15
Je treba definovat co ma byt vybrano jako to nejake cislo, pokud chces
minimum, melo by fungovat:
SELECT Identifikator, Prijmeni, Jmeno, Min(Nejake cislo) FROM .... GROUP
BY Identifikator, Prijmeni, Jmeno
Honza +
> -----Original Message-----
> From: "Netu=B9il, Roman, Ing." [mailto:Netusil.Roman(zv)vspardubice(tec)cz]
> Panove,
> mam n=E1sleduj=EDc=ED z=E1znamy (Identifikator, Prijmeni, Jmeno,=20
> Nejake cislo, a
> dalsi udaje, ktere neuvadim, i z ostatnich tabulek)
>=20
> 11111 NOVAK PAVEL 12
> 11111 NOVAK PAVEL 13
> 11111 NOVAK PAVEL 14
> 11111 NOVAK PAVEL 15
> 99999 NOVAK PAVEL 16
> 99999 NOVAK PAVEL 17
>=20
> potreboval, bych sestavit select zhruba nasledujici
>=20
> select Identifikator, Prijmeni, Jmeno, Nejake cislo from...
>=20
> avsak pouze jednou pro kazdy Identifikator, tedy s=20
> nasledujicim vystupem:
> 11111 NOVAK PAVEL 12
> 99999 NOVAK PAVEL 16
>=20
Zobrazovani .html
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 16.1.2003 11:52:31
Mohu zkusenejsi poprosit o radu, jak nejlepe zobrazovat z aplikace .html soubory (na lokalnim
disku ci CD-ROM)?
Je vhodne pouzit komponentu tWebBrowser? Pracuje i v pripade, ze ma nekdo nainstalovany Netscape
Navigator?
Popr. je treba z nejakeho duvodu lepsi pouzit misto toho ShellExecute?
Dosud jsem to nikdy nepotreboval a vzhledem k ruznorodosti prohlizecu u uzivatelu se obavam, ze
tzu budou nejaka uskali, ktera pri testovani na par strojich neodhalim, zato u uzivatelu se
projevi... Je treba nejake spec. opatreni treba pro pripad, ze uzivatele nemaji pevne pripojeni?
(Aby se pri kazdem zobrazeni .html souboru IE nepokousel pripojit apod.)
Dekuji,
Karel Rys
Firebird vykon, OS licence apod.
[*] Vladimir Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 16.1.2003 12:07:16
Zdravim vsechny,
potreboval bych poradit jak je to presne s licencovanim sitovych
pripojeni u ms produktu
priklad: na serveru pobezi w2000 server + _nejaky_ sql server. Na
server by se melo pripojovat cca 100 online uzivatelu; je tedy nutne mit
w2k server se 100 licencemi? popr. obecne, kdyby to byl nejaky
aplikacni server a slo by na nej 100 tcp/ip konekci, musi byt takto
licencovany?
doufam ze jsem se vyjadril alespon castecne srozumitelne :-)
dalsi otazka zni: je mozne provozovat na platforme w2000 Firebird
server s priblizne 100 najednou pracujicimi uzivateli? ( objem dat
nebude nijak zavratny, spise bude probihat vetsi mnozstvi updatu a
dotazu s malym objemem vracenych dat.
Dekuji za nazory
V.Nikel
Zobrazovani .html
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 16.1.2003 12:12:53
A k co maji HTML souboubory obsahovat? - ja jen, ze jsem na nich
stavel treba kontextovy help, atp. a upustil jsem od tohoto
formatu, jelikoz se s nim celkem nedobre dela
MI'RA
-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Thursday, January 16, 2003 11:53 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zobrazovani .html
Mohu zkusenejsi poprosit o radu, jak nejlepe zobrazovat z aplikace .html
soubory (na lokalnim
disku ci CD-ROM)?
Je vhodne pouzit komponentu tWebBrowser? Pracuje i v pripade, ze ma nekdo
nainstalovany Netscape
Navigator?
Popr. je treba z nejakeho duvodu lepsi pouzit misto toho ShellExecute?
Dosud jsem to nikdy nepotreboval a vzhledem k ruznorodosti prohlizecu u
uzivatelu se obavam, ze
tzu budou nejaka uskali, ktera pri testovani na par strojich neodhalim, zato
u uzivatelu se
projevi... Je treba nejake spec. opatreni treba pro pripad, ze uzivatele
nemaji pevne pripojeni?
(Aby se pri kazdem zobrazeni .html souboru IE nepokousel pripojit apod.)
Dekuji,
Karel Rys
Zobrazovani .html
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.1.2003 12:18:16
16.1.2003 Karel Rys:
> Mohu zkusenejsi poprosit o radu, jak nejlepe zobrazovat z aplikace
> .html soubory (na lokalnim disku ci CD-ROM)?
> Je vhodne pouzit komponentu tWebBrowser? Pracuje i v pripade, ze ma
> nekdo nainstalovany Netscape Navigator?
TWebBrowser pouziva podporu, ktera je nainstalovana primo v systemu.
Stejne jadro pouziva i IE. Ale nebude se to zobrazovat v NetScape
> Popr. je treba z nejakeho duvodu lepsi pouzit misto toho ShellExecute?
ShellExecute ti stranky otevre ve vychozim prohlizeci
> Dosud jsem to nikdy nepotreboval a vzhledem k ruznorodosti
> prohlizecu u uzivatelu se obavam, ze tzu budou nejaka uskali, ktera
> pri testovani na par strojich neodhalim, zato u uzivatelu se
> projevi... Je treba nejake spec. opatreni treba pro pripad, ze
> uzivatele nemaji pevne pripojeni? (Aby se pri kazdem zobrazeni .html
> souboru IE nepokousel pripojit apod.)
Pokud to budes otevirat z disku a nebudou tam nejake skripty, ktere se
budou snazit dostat na stranky na webu, neni duvod, proc by mel
vytacet.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zobrazovani .html
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 16.1.2003 12:31:39
Tvrz Miroslav dne 16 Jan 2003 v 12:12:
> A k co maji HTML souboubory obsahovat? - ja jen, ze jsem na nich
> stavel treba kontextovy help, atp. a upustil jsem od tohoto
> formatu, jelikoz se s nim celkem nedobre dela
> -----Original Message-----
> From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
> Mohu zkusenejsi poprosit o radu, jak nejlepe zobrazovat z aplikace
> .html soubory (na lokalnim disku ci CD-ROM)?
Tohle konkretne je popis drevin - asi tri ramy, v jednom fotka, v dalsim menu, v poslednim
detailni informace, nejak tam maji udelane automaticke posouvani obsahu. Delam propojeni na cizi
CD, potrebuju jen vzdy zobrazit patricny .html z toho CD-ROM (Znacka: povoleni mam :->).
Karel Rys
Zobrazovani .html
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 16.1.2003 12:36:10
tak to bych celkem bezostysne zkusil tu Delfinovskou komponentu
pro zobrazovani HTML - ja sice kdysi zkousel vyuzit a byla OK,
jenze tohle me nadseni zkoncilo, kdyz jsem definoval styly,
chtel pouzit Javu, atp. - to nejak nezvladnul :-(.
No ale pokud to potrebujes jen na zobrazeni ciste HTML stranky,
tak si rikam, ze je to celkem idealni nastroj
MI'RA
-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Thursday, January 16, 2003 12:32 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Zobrazovani .html
Tvrz Miroslav dne 16 Jan 2003 v 12:12:
> A k co maji HTML souboubory obsahovat? - ja jen, ze jsem na nich
> stavel treba kontextovy help, atp. a upustil jsem od tohoto
> formatu, jelikoz se s nim celkem nedobre dela
> -----Original Message-----
> From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
> Mohu zkusenejsi poprosit o radu, jak nejlepe zobrazovat z aplikace
> .html soubory (na lokalnim disku ci CD-ROM)?
Tohle konkretne je popis drevin - asi tri ramy, v jednom fotka, v dalsim
menu, v poslednim
detailni informace, nejak tam maji udelane automaticke posouvani obsahu.
Delam propojeni na cizi
CD, potrebuju jen vzdy zobrazit patricny .html z toho CD-ROM (Znacka:
povoleni mam :->).
Karel Rys
Zobrazovani .html
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.1.2003 12:40:54
16.1.2003 Tvrz Miroslav:
> tak to bych celkem bezostysne zkusil tu Delfinovskou komponentu
> pro zobrazovani HTML - ja sice kdysi zkousel vyuzit a byla OK,
> jenze tohle me nadseni zkoncilo, kdyz jsem definoval styly,
> chtel pouzit Javu, atp. - to nejak nezvladnul :-(.
> No ale pokud to potrebujes jen na zobrazeni ciste HTML stranky,
> tak si rikam, ze je to celkem idealni nastroj
TWebBrowser zalezi na tom, jakou verzi IE mas na pocitaci, protoze s
instalaci IE se aktualizuje i jadro. Co ti na pocitaci zvladne
zobrazit IE, to zvladne TWebBrowser taky (vcetne ramu skriptu apod.)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zobrazovani .html
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 16.1.2003 12:47:35
Tvrz Miroslav dne 16 Jan 2003 v 12:36:
> tak to bych celkem bezostysne zkusil tu Delfinovskou komponentu
> pro zobrazovani HTML - ja sice kdysi zkousel vyuzit a byla OK,
> jenze tohle me nadseni zkoncilo, kdyz jsem definoval styly,
> chtel pouzit Javu, atp. - to nejak nezvladnul :-(.
Aha - styly tam jsou pouzite urcite (to uz snad dnes neni takova vzacnost, ne?), nejaky ten skript
nejspis obcas taky. Ovsem pokud to spolupracuje jen s Internet Explorerem, jak jsem vyrozumel z
prispevku p. Fialy, tak to stejne neni idealni... :-(
Karel Rys
Zobrazovani .html
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 16.1.2003 12:51:26
hm, hm, tak i to je mozne - ja to zkratka zavrhnul, pac jsem videl,
ze pro velkou vec se to pouzit neda, ale kdyz jsem si s tim pred
cca 1 rokem v D5 hral, tak jsem si rikal, ze pro male projekty,
pri. kdyz to clovek nebude moc pouzivat to staci ... no nevim, v
tomhle teda nemuzu moc radit - ale rikam, si, proc to nezkusit,
proc tomu par minut nevenovat ...
MI'RA
-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Thursday, January 16, 2003 12:48 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Zobrazovani .html
Tvrz Miroslav dne 16 Jan 2003 v 12:36:
> tak to bych celkem bezostysne zkusil tu Delfinovskou komponentu
> pro zobrazovani HTML - ja sice kdysi zkousel vyuzit a byla OK,
> jenze tohle me nadseni zkoncilo, kdyz jsem definoval styly,
> chtel pouzit Javu, atp. - to nejak nezvladnul :-(.
Aha - styly tam jsou pouzite urcite (to uz snad dnes neni takova vzacnost,
ne?), nejaky ten skript
nejspis obcas taky. Ovsem pokud to spolupracuje jen s Internet Explorerem,
jak jsem vyrozumel z
prispevku p. Fialy, tak to stejne neni idealni... :-(
Karel Rys
TAB a disabled komponenty
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.1.2003 12:53:01
Ahoj,
prave jsem zjistil zajimavou nemilou vec. Na formulari mam dbgrid,
nad nim TPanel a na tom panelu nejake Edity (detail radku v gridu).
Panel ma Enabled = False.
Je pravda, ze kliknu-li mysi na cokoli, co lezi na panelu, nic se
nestane, focus zustava na gridu. Tak to ma byt. Ovsem mackam-li
tabelator, dostanu se s focusem i na tyto edity, ackoli lezi na
disablovanem panelu. A co je horsi, do techto editu se tak da i psat
text.
1) Jak je to mozne?
2) Co s tim muzu udelat? Nejde o to psani, mame prece ReadOnly,
ale aby se tabulatorem nedalo na tyto edity skocit. Disablovat
jednotlive edity nechci, potrebuji v nich citelne cerne pismo.
Dik
David Lebeda
Zobrazovani .html
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 16.1.2003 13:06:10
Pouzivam TEmbeddedWB z http://www.euromind.com/iedelphi/embeddedwb.htm
coz je rozsireny TWebBrowser, mame na tom postavene pomerne rozsahle
prezentacni CDcko, ktere pouziva styly, skripty, flash, dokonce i htc
soubory a jede to bez problemu. A ten TEmbeddedWB jsem pouzival jen
proto, ze jsem chtel zakazat border, scrollbar, menu a jine drobnosti.
Naopak z html stranek ovladam ten exe pod tim (ukonceni aplikace z
odkazu a jine).
Ales
> > tak to bych celkem bezostysne zkusil tu Delfinovskou komponentu
> > pro zobrazovani HTML - ja sice kdysi zkousel vyuzit a byla OK,
> > jenze tohle me nadseni zkoncilo, kdyz jsem definoval styly,=20
> > chtel pouzit Javu, atp. - to nejak nezvladnul :-(.=20
>=20
> Aha - styly tam jsou pouzite urcite (to uz snad dnes neni=20
> takova vzacnost, ne?), nejaky ten skript=20
> nejspis obcas taky. Ovsem pokud to spolupracuje jen s=20
> Internet Explorerem, jak jsem vyrozumel z=20
> prispevku p. Fialy, tak to stejne neni idealni... :-(Firebird vykon, OS licence apod.
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 16.1.2003 13:31:06
100 klientu neni pro FB samo o sobe problem, zkousel jsem cca 500 a bez problemu,
ale pouze pripojeni, ne zaroven pracovat.
Asi by to chtelo test, s temi updaty muze byt problem (muzou si docela prekazet).
Na databazich s 10 uzivateli o velikosti cca 1GB je to bez problemu, nejvetsim
problemem je spravna volba indexu.
Slavek
> dalsi otazka zni: je mozne provozovat na platforme w2000 Firebird
> server s priblizne 100 najednou pracujicimi uzivateli? ( objem dat
> nebude nijak zavratny, spise bude probihat vetsi mnozstvi updatu a
> dotazu s malym objemem vracenych dat.
>
> Dekuji za nazory
> V.Nikel
> Create potomek
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 16.1.2003 14:39:54
Ahoj kluci,mam specificky problem...
Potrebuji najit Potomka TForm o kterem nevim co je zac (muze to byt
TForm_Inherit1 nebo TFormInherit2) a kdyz neni tak ho vycreatovat to bych
umel,ale netusim co je to za typ (Form:=TForm_Inherit1.Create(self) nebo
Form:=TForm_Inherit2.Create(self) jak to udelam abych nasel ten pravy typ
(TForm_Inherit1/2 ktery pouziji ke create???)
Snad mi rozumite diky....
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Znovu otvorenie DOS aplikacie
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 16.1.2003 14:52:29
Hi all,
Mam DOS aplikaciu (roztiahnutu na plnu obrazovku), kt. vola bez formularovy
programcek napisany v Delphi na pripojenie sa na inet cez DialUp. Vsetko mi
bezi, len to ma jednu chybicku krasy, ked sa mi vedla hodin ma zobrazit
ikonka o pripojeni (take tie blikajuce pocitaciky) tak mi moju DOS aplikaciu
zhodi na listu. Je mozne nejako v Delphi vratit ako aktivne to DOS okno, aby
uzivatel nemusel klikat na listu?
Potreboval by som to vyriesit co najskor :(
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 241010111 (181)
fax: +420 241010165
icq: 38493645
Zobrazovani .html
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.1.2003 14:57:55
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> Je vhodne pouzit komponentu tWebBrowser?
Ano.
> Pracuje i v pripade, ze ma nekdo nainstalovany Netscape Navigator?
Ano.
Tady totiz vznika zakladni nedorozumeni ze Internet Explorer je TWebBrowser.
Neni. TWebBrowser je pouze COM komponenta, a Internet Explorer je aplikace
ktera ji obaluje a pridava ovladani s menu, tlacitky atd. Kazdy si muze napsat
svuj 'Internet Explorer'. Pokud si nekdo jako vychozi prohlizec (aplikaci) da
neco jineho, tak to nema nic spolecneho s tim, ze ty ve sve aplikaci pouzivas
tu COM komponentu (mshtml.dll) na ktere je zalozen i Internet Explorer.
> Popr. je treba z nejakeho duvodu lepsi pouzit misto toho ShellExecute?
Zalezi na tom, jestli chces zobrazit stranku ve sve aplikaci nebo zavolat
vychozi prohlizec.
> Dosud jsem to nikdy nepotreboval a vzhledem k ruznorodosti prohlizecu u
> uzivatelu se obavam, ze tzu budou nejaka uskali, ktera pri testovani na par
Problem muze byt akorat na prvnich Windows 95 kde neni zadna verze IE.
Petr Vones
CPU window - opravdu nikdo nevi?
[*] bardon <bardon(zv)akord-soft(tec)cz> - 16.1.2003 16:51:00
Posilal jsem to dopoledne a nikdo se neozval. Opravdu nikdo netusi co s tim?
Mam takovyto problem: potrebuji pracovat s cizim COM objektem. Tento COM
objekt vytvarim pomoci COMKomponenta := CreateOLEObject('JmenoCOM') ;
Vsechno mi to funguje dobre. ALE, kdykoli creatuju tento objekt, objevi se
mi okno CPU a zacne to krokovat. Kdyz to pustim dal, objevi se mi to CPU
okno jeste jednou. Kdyz to pustim dal, uz to jede bez preruseni.
Jen pro zajimavost - jiny zpusob vytvareni, ani vytvoreni Delphi componenty
na paletu atd atd, nic z toho nema zadny vliv. Proste se pri create objevi
CPU okno a chce krokovat.
Zajimave je, ze v tom CPU okne je na druhem radku "ntdll.DbgUserBreakPoint".
Ja tomu nerozumim, ale chova se to, jako kdyby tam programator toho COM
objektu nechal nejaky permanentni breakpoint.
Otazka zni, jak presvedcit Delphi (D5), ze na tomto miste opravdu
nepotrebuji krokovat a nechci aby se mi zastavoval na CPU okne?Vypnuti pocitace
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.1.2003 17:27:50
Zdravim
Pocitac s OS WIN98 SE programove vypinam touto procedurou. Vypnuti probeh=
ne
bez problemu, ale pri naslednem startu vybehne hlaska "Zotaveni systemem
Active Desktop"
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0);
end;
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 10.1.2003
Vypnuti pocitace
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 16.1.2003 17:41:13
Joha Viktor,
V> Vypnuti probehne bez problemu, ale pri naslednem startu vybehne hlaska "Zotaveni systemem
V> Active Desktop"
V> procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
V> begin
V> ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0);
V> end;
No, kdyz chces 'Force' tak je to trochu nasilnicke :-) Nestaci jen ten EWX_SHUTDOWN ?
--
vt
Sitove tiskarny
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.1.2003 18:10:42
Zdravim
Pocitace v siti zjistuji utilitou Netdirectory od PEPRSoftu.
Jak ale zjisti tiskarny se sitovou kartou , ktere jsou pripojeny do site
pres HUB.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 10.1.2003
Mazani zaznamu v BDE
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 16.1.2003 21:23:42
Dobry den,
pouzivam databazi BDE, a teprve po pridani vetsiho poctu zaznamu jsem
zjistil, ze pri vymazani zaznamu z tabulky se velikost souboru nemeni.
Pracuji standardne s tabulkou Paradox 7, mazu pomoci Table1.Delete;
Mohu se tedy zeptat, jak se maze zaznam uplne, ci snad lepe at neusim
predelavat cely zdrojak, tak nejakou procedurku nakonec, ktere by nalezla
ztacene zaznamy a odstranila je definitivne. Diky.
S pozdravem
===================================================
David Kraina
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================
Mazani zaznamu v BDE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.1.2003 21:30:59
16.1.2003 David Kraina:
> Dobry den,
> pouzivam databazi BDE, a teprve po pridani vetsiho poctu zaznamu jsem
> zjistil, ze pri vymazani zaznamu z tabulky se velikost souboru nemeni.
> Pracuji standardne s tabulkou Paradox 7, mazu pomoci Table1.Delete;
> Mohu se tedy zeptat, jak se maze zaznam uplne, ci snad lepe at neusim
> predelavat cely zdrojak, tak nejakou procedurku nakonec, ktere by nalezla
> ztacene zaznamy a odstranila je definitivne. Diky.
Mazane zaznamy v tabulce zustavaji. Cas od casu je treba tabulku
"zpakovat". Lze na to pouzit API funkci BDE dbiPackTable
Priklad je v helpu k te funkci. Help je tam, kde je nainstalovano BDE
nebo z menu Start / Delphi / Help / Help k BDE
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
CPU window - opravdu nikdo nevi?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.1.2003 21:35:40
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> Mam takovyto problem: potrebuji pracovat s cizim COM objektem. Tento COM
> objekt vytvarim pomoci COMKomponenta := CreateOLEObject('JmenoCOM') ;
Asi by bylo v Delphi lepsi importovat TLB nez pouzivat late binding.
> Vsechno mi to funguje dobre. ALE, kdykoli creatuju tento objekt, objevi se
> mi okno CPU a zacne to krokovat. Kdyz to pustim dal, objevi se mi to CPU
Patrne je v tom kodu COM objektu nekde pozapomenuty breakpoint po ladeni.
> Otazka zni, jak presvedcit Delphi (D5), ze na tomto miste opravdu
> nepotrebuji krokovat a nechci aby se mi zastavoval na CPU okne?
Spis presvedcit vyrobce toho kodu aby nedodaval polotovary.
Petr Vones
FindDialog
[*] Green Ghost <Green.Ghost(zv)seznam(tec)cz> - 16.1.2003 21:43:04
Potrebuji zprovoznit FindDialog a ReplaceDialog v textovem editoru.
Pomozte prosim.
Dik
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
OT-software pro registraci obsahu webu do vyhledav
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 16.1.2003 21:49:51
> Muze mi nekdo poradit, kde muzu najit software, ktery mi zaregistruje
obsah
> webovych stranek do vyhledavacu...
> Dekuji...
> J.
Je to zdarma:
http://submit.webz(tec)cz/TAB a disabled komponenty
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 16.1.2003 22:09:30
> mackam-li tabelator, dostanu se s focusem i na tyto edity,
Skus im nastavit property TabOrder = -1
bye
vmlich
Kde sehnat ciselnik jkpov
[*] Milo� Kastner - 16.1.2003 22:15:10
Ciselnik SKP se da (nebo alespon dal) ziskat z Ceskeho statistickeho
uradu. Pripadnym zajemcum jej mohu poslat. Nevim jestli je to posledni
verze, ale myslim ze se to nejak moc nemeni.
Pokud mate zajem napiste mi na moji adrseu.
Milos Kastner
kastner(zv)stereo(tec)cz
P�vodn� zpr�va:
> Dobry den,
> nevite nekdo kde se da sehnat ciselnik jednotnych klasifikaci
> prumyslovych oboru a vyrobku ? Potrebuji to do programu invetury
> majetku.
> dekuji
> Milos Sula
FindDialog
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.1.2003 22:33:44
16.1.2003 Green Ghost:
> Potrebuji zprovoznit FindDialog a ReplaceDialog v textovem editoru.
> Pomozte prosim.
A co ti brani ?
Bohuzel nepises, v jakem textovem editoru, jakou komponentu pouzils
apod.
Muzes zacit tim, ze se podivas do helpu n a TFindDialog.FindText
Je tam priklad s RichEditem
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
XML konfigurace ...
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 17.1.2003 00:47:33
> Ahojky Delphini,
> Nejak se mi nepodarilo v archivu nalezt prispevky o XML konfiguraci
> ... pouzivate nekdo pro konfiguraci programu (nejen konfiguraci, ale i
jako
> format pro sdileni dat vice aplikacemi) XML? Mohl by mi nektery z vas
> doporucit dobrou komponentu/sadu komponent (pokud mozno s moznosti videt
> zdrojak), ktere/ou bych mohl pouzit ?
>
> Za pripadna doporuceni diky, za pripadne argumenty proti tomuto
> postupu samozrejme taky ...
>
> Milan
http://www.destructor.de/xmlparser/index.htm
(http://www.icom-dv.de/download/uk_download.php3)
Tomas Krysl
XML konfigurace ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 01:14:56
From: <skalsky(zv)oksystem(tec)cz>
> Nejak se mi nepodarilo v archivu nalezt prispevky o XML konfiguraci
> ... pouzivate nekdo pro konfiguraci programu (nejen konfiguraci, ale i jako
> format pro sdileni dat vice aplikacemi) XML? Mohl by mi nektery z vas
> doporucit dobrou komponentu/sadu komponent (pokud mozno s moznosti videt
> zdrojak), ktere/ou bych mohl pouzit ?
Pokud mas Delphi 6 a vyssi tak se podivej na komponentu TXMLDocument.
Petr Vones
mpeg & Delphi
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 17.1.2003 06:34:57
> Od: bleak [SMTP:bleak(zv)mvesely.com]
> diky za odpoved, kde na te strance najdu ty prehravace? Ma to byt v =
sekci
> dxheaders - DirectAnimation.zip? Z te stranky totiz nelze nic =
stahovat.
>=20
Promin, v soucasnosti tam lze stahnout opravdu pouze headery. Jdi tedy =
primo na http://www.progdigy.com/, v DSPacku je nejaky priklad. A v =
sekci Donations najdes dalsi (M PLAYER HQ).
Ober
FindDialog
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 17.1.2003 07:24:48
Pokud pouzijes rxrichedit, tak tam je finddialog jiz hotovy viz. =
http://www.micrel(tec)cz/RxLib/=20
Jaro B.
-----Original Message-----
Subject: Re: FindDialog
16.1.2003 Green Ghost:
> Potrebuji zprovoznit FindDialog a ReplaceDialog v textovem editoru.
> Pomozte prosim.Create potomek
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 17.1.2003 08:19:15
Musis to trochu upresnit. Za jakych podminek vytvaris ten ci onen ???
Obecne vzato se da pouzit metatrida.
Napr:
type
TFormClass = class of TForm;
procedure UkazForm(frm: TFormClass);
var
f: TForm;
begin
f := frm.Create(Application);
...
...
end;
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Potrebuji najit Potomka TForm o kterem nevim co je zac (muze to byt
> TForm_Inherit1 nebo TFormInherit2) a kdyz neni tak ho vycreatovat to bych
> umel,ale netusim co je to za typ (Form:=TForm_Inherit1.Create(self) nebo
> Form:=TForm_Inherit2.Create(self) jak to udelam abych nasel ten pravy typ
> (TForm_Inherit1/2 ktery pouziji ke create???)
> Ales Pavel
Late binding - Puvodne: CPU window
[*] bardon <bardon(zv)akord-soft(tec)cz> - 17.1.2003 08:28:11
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
From: "bardon" <bardon(zv)akord-soft(tec)cz>
>> Mam takovyto problem: potrebuji pracovat s cizim COM objektem. Tento COM
>> objekt vytvarim pomoci COMKomponenta := CreateOLEObject('JmenoCOM') ;
>Asi by bylo v Delphi lepsi importovat TLB nez pouzivat late binding.
To jsem zkou�el, ale...
a) CPU window vyskakuje stejne
b) Volani funkci objektu konci na nejakem OLE exception. Mozna to souvis� s
tim, ze jsou tam stringov� parametry. Kdyz to pouziv�m pres late binding,
tak mi to funguje korektne.
>> Otazka zni, jak presvedcit Delphi (D5), ze na tomto miste opravdu
>> nepotrebuji krokovat a nechci aby se mi zastavoval na CPU okne?
>Spis presvedcit vyrobce toho kodu aby nedodaval polotovary.
Skusim to, ale v kazdem pripade to bude na dlouhe lokte...SQL parser, SQL(WHERE) builder
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 17.1.2003 09:28:39
Parsovani SQL je celkem slozita zalezitost zejmena ze 3 duvodu:
1. rozdilnost funkcnosti a syntaxe SQL na ruznych databazovych serverech
2. UNIONY a vnorene SELECTY
3. aliasovani polozek a tabulek pomoci AS a jejich rozdilne volani (viz 1)
Vsechny problemy lze samozrejme resit, ale i kdyz budes chtit menit pouze
klauzuli WHERE stejne budes muset parsovat cely SQL dotaz.
Co se tyka parseru:
-ja to ve sve aplikaci, ktera ma integrovan visualni SQL fitter, trideni a
grupovani pro ruzne databazove servery, resim tak,
ze si sam vytvarim na zaklade definicniho souboru cely SELECT a mam ho tudiz
rozparsovany a muzu s nim libovolne pracovat.
Co se tyka zavorek:
-pokud pridam dalsi podminku do WHERE tak puvodni uzavru do zavorek a pridam
AND a novou opet uzavru.
-je to z duvodu abych se vyhnul kolizim mezi AND a OR.
Myslim si, ze hledanim vhodneho parseru popripade psanim vlastniho stravis
mladi a ze je lepsi vzit problem z opacneho konce - vlastni skladani
SELECTU.
>From: Danik Frantik [mailto:frantik(zv)telpro(tec)cz]
> mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?MSSQL7 - automaticke cislo
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 17.1.2003 09:35:46
Pekny den,
prevadzam databazu z Accesovskeho MDB na MSSQL7. Vyuzival som tam typ
"automaticke cislo", vdaka comu som sa nemusel starat o index. Podla mojej
studie helpu k tomuto SQLku tuto takyto typ neexistuje. Resp. existuje
Uniqueidentifikator, ale ten mi pripada ako zbytocne obrovsky (16znakovy).
Riesit to sposobom SELECT MAX(ID) FROM TABULKA, mi pripada nevhodne - predsa
len moze nastat situacia, ze sa index bude opakovat.
Neviete mi poradit ako sa to da riesit?
Dakujem
MSSQL7 - automaticke cislo
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 17.1.2003 10:14:02
> prevadzam databazu z Accesovskeho MDB na MSSQL7.
> Vyuzival som tam typ "automaticke cislo", vdaka comu som
> sa nemusel starat o index. Podla mojej studie helpu k tomuto
> SQLku tuto takyto typ neexistuje.
Koukni se na INTEGER IDENTITY(1,1)
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
MSSQL7 - automaticke cislo
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 17.1.2003 10:15:16
> prevadzam databazu z Accesovskeho MDB na MSSQL7. Vyuzival som tam typ
> "automaticke cislo", vdaka comu som sa nemusel starat o index. Podla mojej
> studie helpu k tomuto SQLku tuto takyto typ neexistuje. Resp. existuje
> Uniqueidentifikator, ale ten mi pripada ako zbytocne obrovsky (16znakovy).
> Riesit to sposobom SELECT MAX(ID) FROM TABULKA, mi pripada nevhodne -
predsa
> len moze nastat situacia, ze sa index bude opakovat.
> Neviete mi poradit ako sa to da riesit?
Je tam typ INT IDENTITY coz odpovida autoinkremetu
NazevPole INT IDENTITY(pochodnota,krok)
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.441 / Virov� b�ze: 247 - datum vyd�n�: 9.1.2003
MSSQL7 - automaticke cislo
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.1.2003 10:19:33
Ahoj,
SQL server ma moznost nastavit pro typ int vlastnost IDENTITY,
coz je totez co automaticke cislo Accesu. Na rozdil od Accesu, ale
neni mozno menit hodnotu takoveho sloupce (ani insertovat).
Pavel
> prevadzam databazu z Accesovskeho MDB na MSSQL7. Vyuzival som tam typ
> "automaticke cislo", vdaka comu som sa nemusel starat o
> index. Podla mojej
> studie helpu k tomuto SQLku tuto takyto typ neexistuje. Resp. existuje
> Uniqueidentifikator, ale ten mi pripada ako zbytocne obrovsky
> (16znakovy).
> Riesit to sposobom SELECT MAX(ID) FROM TABULKA, mi pripada
> nevhodne - predsa
> len moze nastat situacia, ze sa index bude opakovat.
> Neviete mi poradit ako sa to da riesit?MSSQL7 - automaticke cislo
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 17.1.2003 10:41:29
Ahoj,
> Lstiburek(zv)ceb(tec)cz 17.1.03 10:19 >>>
>SQL server ma moznost nastavit pro typ int vlastnost IDENTITY,
>coz je totez co automaticke cislo Accesu. Na rozdil od Accesu, ale=20
>neni mozno menit hodnotu takoveho sloupce=20
>> (ani insertovat).
to neni pravda, defaultne nemuzes, ale pomoci SET IDENTITY muzes
< muzes vlozit >
SET IDENTITY_INSERT Tabulka ON
INSERT INTO Tabulka (SloupecIdentity, Neco) VALUES (100, 100)
< nemuzes vlozit >
SET IDENTITY_INSERT Tabulka OFF
INSERT INTO Tabulka (Neco) VALUES (100)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Potlaceni zobrazovani hlasek o vyjimce
[*] Ji�� Mat�jka�����^�F�צ����̿ - 17.1.2003 10:44:13
Zdravim,
mam v kodu try except blok a nechci aby mi pri ladeni vyskakovala hlaska =
o
vyjimce. Lze to potlacit i jinak nez nastavenim "stop on delphi exception=
s"
v Tools|Debugger options?
Napr. direktivou v kodu? (chci to jenom pro nektere try except bloky, ne =
pro
celou aplikaci...)
diky
Jirka Matejka
D6 Prof, W2000 SP3
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 13.1.2003
MSSQL7 - automaticke cislo
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.1.2003 10:51:16
Ja sichr,
ale v Accesu to muzes udelat kdykoliv bez nastavovani, na vsech tabulkach
soucasne.
Pavel
> From: Blazek Jaroslav [mailto:Jaroslav.Blazek(zv)access-it(tec)cz]
> > Lstiburek(zv)ceb(tec)cz 17.1.03 10:19 >>>
> >SQL server ma moznost nastavit pro typ int vlastnost IDENTITY,
> >coz je totez co automaticke cislo Accesu. Na rozdil od Accesu, ale
> >neni mozno menit hodnotu takoveho sloupce
>
> >> (ani insertovat).
>
> to neni pravda, defaultne nemuzes, ale pomoci SET IDENTITY muzes
>
> < muzes vlozit >
> SET IDENTITY_INSERT Tabulka ON
>
> INSERT INTO Tabulka (SloupecIdentity, Neco) VALUES (100, 100)
>
> < nemuzes vlozit >
> SET IDENTITY_INSERT Tabulka OFF
>
> INSERT INTO Tabulka (Neco) VALUES (100)
> Problem s TMediaPlayer
[*] <kuba.zubaty(zv)centrum(tec)cz> - 17.1.2003 11:00:08
Ahoj,
pouzivam TMediaPlayer vlozeny jako ActiveX.
Pri prehravani MP3 neni problem. Nastavim Filename a spustim Play;
kdyz skonci pustim dalsi MP3
Problem nastava, kdyz poustim video. Kdyz video skonci a ja se snazim=20
nastavit filename, tak se mi pocitac resetuje. (Win2000) Nevite kde=20
je problem? Jak by se spravne mela ukoncovat prace se souborem v=20
Mediaplayeru?=20
Diky Martin
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m in=
ternetu - sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
Chyba Printers.pas?
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 17.1.2003 11:03:40
Diky vsem za namety.
Zkousel jsem nainstalovat jako sitovou tiskarnu EPSON LQ-870. Pokud je
pocitac vypnuty, situace je stejna. Jen ty chyby (access violation) jsou
jine, tentokrat v GDI32.DLL, na stajnem radku (
LineSpacing:=3DlsSingleSpace;). protoze zmineny TRiuchprinter jsem mel ja=
ko
soucast komponeny pro uzivatelsky prijatelnou tvorbu filtr pomoci
TTable.Filter, zmenil jsem kod tak, ze TRichprinter vytvarim az kdyz je
opravdu potreba a vhodnym umistenim bloku try except se mi prece jenom
podarili vyjimku odchytit a sdelit uzivateli srozumitelnou zpravu. behem
krokovani nastanou asi tri ruzne vyjimky, pri spusteni exe souboru vsak
nejsou hlasky zadne, az ta moje. kam blok try except umistit jsem zjistil
metodou pokus omyl, protoze vsechny vyjimky nastanou pri komunikaci s
objektem printers a popkud to krokuji, dostanu se vetsinou do uzavrene
smycky, takze z toho stejne nejsem moudry. Zda se tedy, ze chyba je oprav=
du
v printers.pas. Proste s touto situaci vubec nepocita.
Petr M.
----- Original Message -----
From: "bardon" <bardon(zv)akord-soft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 16, 2003 7:36 AM
Subject: RE: Chyba Printers.pas?> M=EDval jsem podobny problem, mozna dokonce stejny. Jestli byl stejny, =
to
> nevim, nesel jsem tak do hloubky, ale mival jsem Access Violation pri
pokusu
> tisknout z RichEditu, pokud byla sitova tiskarna (ovladac HP JL II) na
jinem
> PC a tento PC byl vypnuty. Obesel jsem to tak, ze jsem si nainstaloval
> ovladac teto tiskarny na vlastni PC, ikdyz tam tiskarna fyzicky nebyla =
(a
> nastavil jsem si tuto neexistujici tiskarnu jako defaultni). Taky by me
> docela zajimalo, jestli se to da vyresit ciste.
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Ma=F8=EDk
> Sent: Wednesday, January 15, 2003 10:51 AM
>
> Situace: Windows 2000, Delphi 5 SP1, jedina tiskarna sitova HPDJ1120C (=
na
> pocitaci s W98SE a funguje). V programu pouzivam komponentu TRichPrinte=
r.
> Pri TRichPrinter.Create se nastavuje velikost pisma podle vychozi
tiskarny.
> Pokud je pocitac s tikarnou zapnuty, je vse OK. Pokud je vypnuty, dojde=
k
> problemum. Pokud by byly v jednotce Richprint, tak bych je osetril. Pri
> volani
>
> ***** if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,
> na radku oznacenem ***** dojde k vyjimce AccessViolation at Adress
77814306.
> Read adress 00161000.
>
Chyba Printers.pas?
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 17.1.2003 12:12:55
vsimol som si tento mail a tlaciaren o ktoru ide, mozno to nema s tym
suvis ale ovladace na LQ epson tlaciarne su vo win zle (a vlecie sa to
cez vsetky win), blbla mi miestami tlac napriklad na 1070 a 1170...
riesenie bolo dat mu ovladat "24 ihl. epson kompatibilna tlaciaren", s
nim vsetko funguje OK
joka
Diky vsem za namety.
Zkousel jsem nainstalovat jako sitovou tiskarnu EPSON LQ-870. Pokud je
pocitac vypnuty, situace je stejna. Jen ty chyby (access violation) jsou
jine, tentokrat v GDI32.DLL, na stajnem radku (
LineSpacing:=lsSingleSpace;). protoze zmineny TRiuchprinter jsem mel
jako
TMemo a WinXP HE
[*] Lauko Stefan <laukosw(zv)naex.sk> - 17.1.2003 13:06:37
Ahoj konf.
u jedneho uzivatela mam problem s programom v D5 sp2 v komponente TMemo na
WinXP HE. Problem sa prejavuje takto: ked napise riadok a stlaci enter
(CRLF) nepreskoci na dalsi riadok ale na konci riadku vzniknu dva stvorceky
(to je asi to CRLF). V com by mohol byt problem? Ja som to skusal na WinXP
prof. tam je to v poriadku. Neviem to osobne preverit je to daleko.
Za pripadne rady vopred dakujem.
Lauko.
TMemo a WinXP HE
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 17.1.2003 13:24:51
Ahoj
zkus prekryt event OnKeyPress, bo OnKeyDown toho Mema a naprudko
mu namisto ENTERu poslat primo #10, #13, bo jak je ten spropadeny
ENTER
neco jako:
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Char);
begin
if (Key = VK_ENTER) then
Key := #10;
end;
MI'RA
-----Original Message-----
From: Lauko Stefan [mailto:laukosw(zv)naex.sk]
Sent: Friday, January 17, 2003 1:07 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: TMemo a WinXP HE
Ahoj konf.
u jedneho uzivatela mam problem s programom v D5 sp2 v komponente TMemo na
WinXP HE. Problem sa prejavuje takto: ked napise riadok a stlaci enter
(CRLF) nepreskoci na dalsi riadok ale na konci riadku vzniknu dva stvorceky
(to je asi to CRLF). V com by mohol byt problem? Ja som to skusal na WinXP
prof. tam je to v poriadku. Neviem to osobne preverit je to daleko.
Za pripadne rady vopred dakujem.
Lauko.
SQL parser, SQL(WHERE) builder
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.1.2003 13:35:08
> >From: Danik Frantik [mailto:frantik(zv)telpro(tec)cz]
> > mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
Diskuse stale probiha, tak pripojim taky nazor.
Taky jsem se kdysi pokousel napsat nejaky generator SQL. Ne, ze by se mi =
to nedarilo, ale cim vetsi funkcnost jsem od toho chtel, tim to bylo z =
uzivatelskeho pohledu slozitejsi.
Nakonec jsem dospel k nazoru, ze dostetecne silne a z uzivatelskeho =
pohledu srozumitelne je jedine rozumne reseni: neco jako QBE =
(DatabaseDesktop, PdoxWin). Na nic lepsiho jsem neprisel.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Potlaceni zobrazovani hlasek o vyjimce
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.1.2003 13:41:07
> Odes=EDlatel: Ji=F8=ED Mat=ECjka <matejka(zv)stemmark(tec)cz>
> Lze to potlacit i jinak nez nastavenim "stop on delphi exceptions"
> v Tools|Debugger options?
Ja nevim, ale ja mam samozrejme "stop on delphi exceptions" standardne =
vypnute.
Zapinam to jenom velmi vyjimecne, kdyz se mi podari napsat nejakou hodne =
velkou prasarnu.
Koneckoncu, "stop on delphi exceptions" mi stejne ukaze presne misto, =
kde vyjimka vznikla, jenom velice zridka.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Potlaceni zobrazovani hlasek o vyjimce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 13:59:09
From: "Ji�� Mat�jka" <matejka(zv)stemmark(tec)cz>
> mam v kodu try except blok a nechci aby mi pri ladeni vyskakovala hlaska
> vyjimce. Lze to potlacit i jinak nez nastavenim "stop on delphi exceptions"
> v Tools|Debugger options?
Ne.
> Napr. direktivou v kodu? (chci to jenom pro nektere try except bloky, ne pro
> celou aplikaci...)
Spise je dobre se zamyslet nad tim, proc ta vyjimka vznika a hlavne proc ji
chci potlacit.
Petr Vones
Late binding - Puvodne: CPU window
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 14:00:35
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> To jsem zkou�el, ale...
> a) CPU window vyskakuje stejne
Samozrejme, tuhle chybu musi opravit ten kdo dany COM objekt vyrobil.
> b) Volani funkci objektu konci na nejakem OLE exception. Mozna to souvis� s
> tim, ze jsou tam stringov� parametry. Kdyz to pouziv�m pres late binding,
> tak mi to funguje korektne.
Mozna by bylo dobre se spis podivat proc to nefunguje.
Petr Vones
Problem s TMediaPlayer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 14:02:05
From: <kuba.zubaty(zv)centrum(tec)cz>
> Problem nastava, kdyz poustim video. Kdyz video skonci a ja se snazim
> nastavit filename, tak se mi pocitac resetuje. (Win2000) Nevite kde
Chyba v hardware nebo driverech.
Petr Vones
Potlaceni zobrazovani hlasek o vyjimce
[*] Ji�� Mat�jka�����^�F�צ����̿ - 17.1.2003 14:09:48
> > Napr. direktivou v kodu? (chci to jenom pro nektere try except bloky,=
ne
pro
> > celou aplikaci...)
>
> Spise je dobre se zamyslet nad tim, proc ta vyjimka vznika a hlavne pro=
c
ji
> chci potlacit.
Pouzivam ji pro testovani spravnosti zadane veliciny (cas), napr.
(zjednodusene):
function TestujCas: Boolean;
begin
Result:=3DTrue;
try
DT:=3DDateTimeToStr(nejakycas)
except
Result:=3DFalse;
end;
end;
takzi mi funkce vraci true/false jestli je spravny zadany cas a je mi
neprijemne, ze me otravuje neustalym vyskakovanim okna s vyjimkou, ktere =
pro
me nema zadny vyznam...
Jirka Matejka
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 13.1.2003
Potlaceni zobrazovani hlasek o vyjimce
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.1.2003 14:13:29
> > Napr. direktivou v kodu? (chci to jenom pro nektere try except bloky, ne
pro
> > celou aplikaci...)
>
> Spise je dobre se zamyslet nad tim, proc ta vyjimka vznika a hlavne proc
ji
> chci potlacit.
>Pouzivam ji pro testovani spravnosti zadane veliciny (cas), napr.
>(zjednodusene):
>
>function TestujCas: Boolean;
>begin
> Result:=True;
> try
> DT:=DateTimeToStr(nejakycas)
> except
> Result:=False;
> end;
>end;
1. Co to je to "nejakycas"? To bys moh testovat i jinak, i kdyz me ted
nenapada hodnota TDateTime, ktera nejde prevest na string.
2. v Debuggeru muzes nastavit potlaceni nekterych vyjimek (tohle bude tusim
EConvertError).
Roman
==============================
http://kouzelne.misto(tec)cz
Potlaceni zobrazovani hlasek o vyjimce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 14:15:10
From: "Ji�� Mat�jka" <matejka(zv)stemmark(tec)cz>
> Pouzivam ji pro testovani spravnosti zadane veliciny (cas), napr.
> (zjednodusene):
To je primo ukazkove spatne pouziti vyjimek, muzeme to prepsat jeste takto:
Misto prirazeni:
Result := (A = 0);
Pouzivas:
Result := True;
try
if A <> 0 then
raise Exception...
except
Result := False;
end;
Pokud by se takto psaly aplikace tak to asi nebude moc efektivni.
Spravne je pouziti funkce, ktera je primo urcena ke kontrole spravnosti toho
udaje, a ne pouze vyuzivat funkci pro prevod, kde je chybny udaj povazovan za
neco vyjimecneho co by nemelo nikdy nastat.
V Delphi je to napriklad funkce TryStrToDateTime.
Petr Vones
SQL parser, SQL(WHERE) builder
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 17.1.2003 14:15:30
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> >From: Danik Frantik [mailto:frantik(zv)telpro(tec)cz]
> > mate nekdo nejake dobre zkusenosti s nejakym SQL parserem?
>
> Nakonec jsem dospel k nazoru, ze dostetecne silne a
> z uzivatelskeho pohledu srozumitelne je jedine rozumne reseni:
> neco jako QBE (DatabaseDesktop, PdoxWin). Na nic lepsiho
> jsem neprisel.
Fakt je ze QBE je obecne povazovano za zastarale ba
prekonane, ale celkem nedavno jsem videl urednici na
(zivnostenskem) urade obsluhovat timto zpusobem program
a slo ji to velmi dobre: na obrazovce mela formular ktery
se pouziva normalne pro vstup dat a pro hledani do jednotlivych
kolonek vpisovala neco jako "Huso.." (hledala ulici) a
"100..200" (cislo mezi 100 a 200) apod.
Martin Schayna
Datum a cas aktualizace souboru
[*] "Netu�il, Roman, Ing." - 17.1.2003 14:16:15
Panove,
chci se zeptat, jak zjist datum a cas posledni aktualizace obecneho souboru.
Sobor otviram jako binarni pomoci Assign a Reset atd. Potreboval bych pred
jeho modifikaci zjistit datum a cas jeho posledni zmeny.
Mam D6Prof, Win2000, Win98
Diky, Roman
Potlaceni zobrazovani hlasek o vyjimce
[*] Ji�� Mat�jka�����^�F�צ����̿ - 17.1.2003 14:22:03
> 1. Co to je to "nejakycas"? To bys moh testovat i jinak, i kdyz me ted
> nenapada hodnota TDateTime, ktera nejde prevest na string.
Uz blbnu, melo to byt StrToDateTime(nejakycas), kde nejakycas je string
zadany uzivatelem do editacniho pole. Urcite by to slo testovat i jinak
(parsovat ten string), ale takhle je to snazsi...
> 2. v Debuggeru muzes nastavit potlaceni nekterych vyjimek (tohle bude
tusim
> EConvertError).
dik, mrknu na to
Jirka Matejka
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 13.1.2003
Datum a cas aktualizace souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 14:26:07
From: "Netu�il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
> chci se zeptat, jak zjist datum a cas posledni aktualizace obecneho souboru.
Pomoci FileGetDate a FileDateToDateTime funkci.
> Sobor otviram jako binarni pomoci Assign a Reset atd. Potreboval bych pred
Pouzivej radeji streamy.
Petr Vones
Late binding
[*] bardon <bardon(zv)akord-soft(tec)cz> - 17.1.2003 14:27:01
>> b) Volani funkci objektu konci na nejakem OLE exception. Mozna to souvis�
s
>> tim, ze jsou tam stringov� parametry. Kdyz to pouziv�m pres late binding,
>> tak mi to funguje korektne.
>Mozna by bylo dobre se spis podivat proc to nefunguje.
Dival jsem se, ale neprisel jsem na to. Proste to vyhodi exception. V kodu
to vypada takto (sinle zjednoduseno)
----------------- tohle projde -----------------
var
LObjekt: OLEVariant ;
begin
LObjekt := CreateOLEObject('NORIS.isrv') as IIsrv2 ;
if LObjekt.f_Init('norvit', 'lcs', '') <> 1 then
ShowMessage('Nepoda�ilo se p�ipojit.')
else
ShowMessage('Poda�ilo se p�ipojit.') ;
... atd ...
end;
----------------- tohle NEprojde -----------------
LObjekt: Iisrv2 ;
begin
LObjekt := CoCoClass_isrv2.Create ;
if LObjekt.f_Init('norvit','lcs','') <> 1 then // TADY VYHODI Exception
"OLE error FFFFDF2D."
ShowMessage('Nepoda�ilo se')
else
ShowMessage('Poda�ilo se') ;
... atd ...
end ;
----------------- tohle take NEprojde -----------------
LObjekt: Iisrv2 ;
LProfil, LUsr, LPwd: WideString ;
begin
LObjekt := CoCoClass_isrv2.Create ;
LProfil := 'norvit' ;
LUsr := 'lcs' ;
if LObjekt.f_Init(LProfil, LUsr, LPwd) <> 1 then // Tady vyhodi stejnou
exception
ShowMessage('Nepoda�ilo se')
else
ShowMessage('Poda�ilo se') ;
... atd ...
end ;
Potlaceni zobrazovani hlasek o vyjimce
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 17.1.2003 14:46:30
----- Original Message -----
From: "Ji�� Mat�jka" <matejka(zv)stemmark(tec)cz>
> mam v kodu try except blok a nechci aby mi pri ladeni
> vyskakovala hlaska o vyjimce. Lze to potlacit i jinak nez
> nastavenim "stop on delphi exceptions" v Tools|Debugger
> options?
Je to osklivy hack, ale funguje to:
var
OldExceptClass: TClass;
begin
{save}
OldExceptClass := ExceptionClass;
{turn off}
ExceptionClass := nil;
try
raise Exception.Create('Tato vyjimka nevyskoci pri ladeni :-)');
except
end;
{re-activate}
ExceptionClass := OldExceptClass;
end;
Martin Schayna
Potlaceni zobrazovani hlasek o vyjimce
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 17.1.2003 14:52:30
Doporucuji mit ale zapnuto OS Exception AV a Ilegal Instruction hadled by Debuger.
K AV by nemelo dojit nikdy, spolehat na try except je hodne riskatni.
Slavek
> Ja nevim, ale ja mam samozrejme "stop on delphi exceptions" standardne vypnute.
> Zapinam to jenom velmi vyjimecne, kdyz se mi podari napsat nejakou hodne velkou prasarnu.
> Koneckoncu, "stop on delphi exceptions" mi stejne ukaze presne misto, kde vyjimka vznikla, jenom velice zridka.
>
> Honza
Zablokovani chodu aplikace pri mouse down na capti
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 17.1.2003 14:59:05
Ahoj,
potreboval bych se nejak zbavit toho, ze pri stisknutem tlacitku mysi na
captionu pomocneho formulare (zobrazeneho pre showmodal) se zastavi
chod aplikace. Jde mi konkretne o hlavni formular, kde se prestanou
zpracovavat notifykace z vedlejsiho thredu. Reseni zrusit caption a
udelat si ho sam me nepripada zrovna elegantni.
Vaclav Sazima
Aktualizace pracovni plochy
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 17.1.2003 15:15:50
Ahoj,
nevi, prosim, nekdo z vas, jak si programove vynutit aktualizaci
pracovni plochy. Jedna se o analogii kliknuti pravym tlacitkem
na plochu a volba Aktualizovat.
Za kazde nakopnuti spravnym smerem budu velmi vdecny.
Jedna se o OS W2k
S pozdravem
Jirka Kratochvil
Datumova konstanta
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 17.1.2003 15:24:48
Som zufaly, prosim Vas ako zapisem datumovu konstantu v Delphi? Neviem sa k
tomu dopatrat.
Myslim nieco taketo:
If Datum=1.3.2002 then PosliNaMojUcetMilion;
Ako vyjadrim tem datum tak aby to Delhi koretne pochopilo?Aktualizace pracovni plochy
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 17.1.2003 15:27:39
Ahoj
Zkus tohle a dej vedet, zda to jde - me to na Win95 nejede:
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NULL, NULL);
MI'RA
-----Original Message-----
From: Jiri Kratochvil [mailto:jiri.kratochvil(zv)webzin(tec)cz]
Sent: Friday, January 17, 2003 3:16 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Aktualizace pracovni plochy
Ahoj,
nevi, prosim, nekdo z vas, jak si programove vynutit aktualizaci
pracovni plochy. Jedna se o analogii kliknuti pravym tlacitkem
na plochu a volba Aktualizovat.
Za kazde nakopnuti spravnym smerem budu velmi vdecny.
Jedna se o OS W2k
S pozdravem
Jirka Kratochvil
Aktualizace pracovni plochy
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 17.1.2003 15:30:05
a jee, zapomel jsem jeste dodat co mi na Win 95 jede. Tohle:
SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065,0);
WinExec(Pchar('rundll32 user,repaintscreen'), SW_SHOW);
mozna neni mezera - nepamatuju se a delfiny tu nemam:
SendMessage(FindWindow('Progman', 'ProgramManager'), WM_COMMAND, $A065,0);
MI'RA
-----Original Message-----
From: Jiri Kratochvil [mailto:jiri.kratochvil(zv)webzin(tec)cz]
Sent: Friday, January 17, 2003 3:16 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Aktualizace pracovni plochy
Ahoj,
nevi, prosim, nekdo z vas, jak si programove vynutit aktualizaci
pracovni plochy. Jedna se o analogii kliknuti pravym tlacitkem
na plochu a volba Aktualizovat.
Za kazde nakopnuti spravnym smerem budu velmi vdecny.
Jedna se o OS W2k
S pozdravem
Jirka Kratochvil
Aktualizace pracovni plochy
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 17.1.2003 15:35:15
> Zkus tohle a dej vedet, zda to jde - me to na Win95 nejede:
> SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NULL, NULL);
To by melo byt ono. Funguje to tak, jak ma. Pouze jsem musel upravit
null na nil ...
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
Diky za pomoc.
Jiri Kratochvil
Datumova konstanta
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.1.2003 15:38:20
> Som zufaly, prosim Vas ako zapisem datumovu konstantu v Delphi? Neviem
> sa k tomu dopatrat. Myslim nieco taketo:
>
> If Datum=1.3.2002 then PosliNaMojUcetMilion;
Jedna z moznosti je:
if datum = EncodeDate(2002, 3, 1) then ...
David Lebeda
Datumova konstanta
[*] �velta Jaroslav <jsvelta(zv)ciglersw.sk> - 17.1.2003 15:51:24
Date function
Returns the current date.
Unit: Sysutils
function Date: TDateTime;
Description:
Use Date to obtain the current date as a TDateTime value.
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
-----Original Message-----
From: K=F6tele=B9 J=E1n [mailto:Koteles(zv)lumen.sk]
Sent: Friday, January 17, 2003 3:25 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Datumova konstanta
Som zufaly, prosim Vas ako zapisem datumovu konstantu v Delphi? Neviem =
sa k
tomu dopatrat.
Myslim nieco taketo:
If Datum=3D1.3.2002 then PosliNaMojUcetMilion;
Ako vyjadrim tem datum tak aby to Delhi koretne pochopilo?
---
Prich=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.443 / V=EDrusov=E1 datab=E1za: 248 - d=E1tum vydania: 10. 1. =
2003
=20
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.443 / V=EDrusov=E1 datab=E1za: 248 - d=E1tum vydania: 10. 1. =
2003
=20
Re[2]: Datumova konstanta
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 17.1.2003 15:54:25
Dobr� den,
17. ledna 2003, 15:38:20, napsal jste:
>> Som zufaly, prosim Vas ako zapisem datumovu konstantu v Delphi? Neviem
>> sa k tomu dopatrat. Myslim nieco taketo:
>>
>> If Datum=1.3.2002 then PosliNaMojUcetMilion;
LD> Jedna z moznosti je:
LD> if datum = EncodeDate(2002, 3, 1) then ...
LD> David Lebeda
Nebo naopak DateToStr(datum)='31.12.2002'
ale pozor na date separator '31.12.2002' nemusi byt spravne datum
tak bys musel pouzit DateSepataror
--
S pozdravem,
radvansky.martin.stereo(tec)cz
radvansky.martin(zv)stereo(tec)cz
CreateFile a COM10
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 17.1.2003 16:20:23
Uz davno ma rozculovalo, ze mi programy funguju len do COM9 a od COM10
to pri CreateFile hlasilo, ze taky port v systeme neni. Aj ked podla
Spravce zarizeni bol a s Hyperterminalom fungoval. Ale vzdy bolo dost
volnych portov, tak som prehodil kabel a bolo po zizalkach.
Az dnes mi porty dosli, tak som hodil do Google CreateFile a COM10 a
riesenie sa mi hned ukazalo: U portov s cislom nad 9 sa musi do
CreateFile namiesto COM10 posielat \\.\COM10 !
Takze CreateFile(Pchar(PortName), ..
som zmenil na CreateFile(Pchar('\\.\'+PortName), ..
a zase je po zizalkach :-)
Funguje to aj s COM < 10.
To mam za to, ze nepouzivam synaser, tam to je ok. Ale napriklad taky
AsyncFree, Qccom32, Async32, Comm_Io, Tcomm_32 atd to maju vsetci zle.
AsyncPro to sice robi dobre, ale mastodontom sa vyhybam.
V.Mlich http://www.rar(tec)cz
CreateFile a COM10
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2003 16:24:43
From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> Az dnes mi porty dosli, tak som hodil do Google CreateFile a COM10 a
> riesenie sa mi hned ukazalo: U portov s cislom nad 9 sa musi do
> CreateFile namiesto COM10 posielat \\.\COM10 !
Toto plati na Windows NT.
> To mam za to, ze nepouzivam synaser, tam to je ok. Ale napriklad taky
> AsyncFree, Qccom32, Async32, Comm_Io, Tcomm_32 atd to maju vsetci zle.
V poslednim AsyncFree 1.04 je to uz opravene:
http://sourceforge.net/project/showfiles.php?group_id=20226&release_id=130401
> AsyncPro to sice robi dobre, ale mastodontom sa vyhybam.
Ted bude alespon dostupne za priznivejsi cenu ;-)
Petr Vones
CreateFile a COM10
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.1.2003 16:54:13
> > Az dnes mi porty dosli, tak som hodil do Google CreateFile a COM10 a
> > riesenie sa mi hned ukazalo: U portov s cislom nad 9 sa musi do
> > CreateFile namiesto COM10 posielat \\.\COM10 !
>
> Toto plati na Windows NT.
Nicmene jsem to zkousel na Win98 a tam tahle konvence funguje take.
(kdyz jsem to patral pro SynaSer...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
SQL parser, SQL(WHERE) builder
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.1.2003 18:17:08
> Odes=EDlatel: Martin Schayna <mschayna(zv)aktis(tec)cz>
> Fakt je ze QBE je obecne povazovano za zastarale ba
> prekonane, ale celkem nedavno jsem videl urednici na
> (zivnostenskem) urade obsluhovat timto zpusobem program
> a slo ji to velmi dobre:=20
No prave, mam stejnou zkusenost.
Podobnou urednici (Ceska pojistovna, kde jsem tenkrat mel nejaky program =
v PdoxWin - Delphi 1 jeste neexistovalo) jsem trochu naucil =
File-Open-Query, udelala si QBE, pak stiskla neco jako Ctrl+F7 a mela =
sestavu a byla viditelne spokojena.
Jan Sebelik
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D