Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Kapacita TRichEdit
[*] Hurricane <hurricane(zv)quick(tec)cz> - 3.7.2001 16:44:54
Zdravim
No jo, odkaz jsem napsal spatnej. Jinak ale SynEdit je urcen i pro RTF
format. BEz podpory RTF je SynMemo. Jako nahradu RichEditu bych asi pouzil
RichEdit98.
Hurricane
----- Original Message -----
> SynEdit je komponenta spise podobna TMemo (bez omezen� velikosti
> textu) s podporou zvyrazenni syntaxe. Tzn. jeden font pro cely text,
> pouze neproporcionalni pismo atd. jako nahradu RichEdit asi ne.
> Ten odkaz taky neni to prave orechove. Synedit najdes na
> http://synedit.sourceforge.net
> TRichEdit nenma omezeni velikosti textu.
FF1 a FF2 v jednech Delphi
[*] Hurricane <hurricane(zv)quick(tec)cz> - 3.7.2001 17:00:14
Zdravim
Zkus jednu problematickou unitu prejmenovat a zaroven prepsat jmena v
unitach, ktere na ni odkazuji. Pak ale jeste musis zaridit, aby FF1 sahal
pouze do urciteho adresare a FF2 zase do jienho. To kvuli mozna stejnym
nazvum procedur a funkci. Zkus proste natvrdo napsat cestu. Melo by to
pomoct. Ja jsem pododbnym zpusobem nainstaloval mwCustomEdit a SynEdit.
Hurricane
----- Original Message -----
> mam hotovou aplikaci ve FF 1.56 a chtel bych ji prepsat do FF2.
> Byl jsem ale nemile zaskocen tim, ze FF1 a FF2 nelze mit v palete
> komponent nainstalovane oboji soucasne, protoze se hadaji o
> nejakou unitu.
> Nevite nekdo o nejakem zpusobu, jak to vyresit?Panel Outlook
[*] Hurricane <hurricane(zv)quick(tec)cz> - 3.7.2001 17:46:15
Zdravim
Ja jsem pouzil TPanel a na nem TToolBAr97Buttony. Funguje to super (v
komponente podobne Open/Save dialogu z W2K/Me) a nepotrebuju na to zadnou
komponentu.
Hurricane
----- Original Message -----
> Jakou komponentu m�m pou��t, kdy� chci do sv�ho programu stejn� p�kn�
> prvek jako je v Outlook naz�van� Panel Outlook - tj. svisl� panel s
> velk�mi ikonkami nalevo (viz obr�zek v p��loze).
Pocet stranek pred tiskem
[*] Hurricane <hurricane(zv)quick(tec)cz> - 3.7.2001 17:48:12
Zdravim
Jisteze to zavisi na tiskarne, jinak by to ani neslo. Kazda tiskarna je
preci jina. Ono si to jeste bere Canvas a pres nej to pocita.
OMLUVA: Chtel jsem se podivat, jak se to vlastne pocitalo a ejhle, ja uz
jsem to smazal. Tehdy mi s tim radil Petr Jelinek (PJMODOS), ma web tusim
http://pjmodos.kgb(tec)cz, kdyz tak mu zkus napsat, odkaz se na me. Melo by to
byt v archivu konference, kdysi jsem okolo toho mel hoodne otazek.
Principialne jde vlastne o tohle: milimetry z tiskarny (vyska tisknutelne
stranky) prevest na pocet radek pisma. Pro to musis najit nejakou hodnotu
(pixely, inche, mm), kterou maji obe hodnoty spolecnou. Tusim, ze to bylo
tak, ze na nejaky Canvas nastavis font, kterym chces tisknout a pak si
zjistis pomoci Canvas.TextHeight (pripadne Printer.Canvas.TextWidth pro
svisly okraj stranky (pravy okraj)) vysku fontu v pixelech. Tady jsme meli
problemy s proporcionalnima fontama, pokouseli jsme se pocitat prumernou
sirku apod. U vysky by to mozna nebylo potreba. Podobnym zpusobem musis
zjistit pixelovou vysku fontu, kterym text zobrazujes. Milimetry z tiskarny
prevedes na pixely a mas vysku tisknutelne stranky v pixelech. Pak to
podelis pixelovou vyskou fontu a mas pocet radek. Tak to asi bylo, uz si to
vubec nepamatuju.
Zjisteni milimetru z tiskarny si bud muzes udelat sam (uzivatel si zvoli
papir), nebo si z WIN zjistis, jakej ma uzivatel nastavenej papir.
Hurricane
----- Original Message -----
> > Musis vedet, jakym fontem budes tisknout. Z toho to pak lze prepocitat
> > na pixely a na cm stranky. Kdysi jsem se s kamosem o neco
> > podobneho pokouseli (vertikalni okraj). Jakz takz to fungovalo pro
> > neproporcionalni fonty. Pro proporcionalni ne. Nakonec jsem to z
> > projektu odstranil. Jestli chces, poslu ti to, treba se ti to podari
> > zfunkcnit.
> To me taky napadlo to prepocitavat pres pixely, ale bude to vzdy 100%?
> Zavisi to na tisk�rne?
Round ??
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 3.7.2001 18:07:02
>
> > round(14.5) .. 14 !! - zde ma byt 15 ?
> > Dela vam to take ?
>
> ano, a je to SPRAVNE
> precti si help.
> v pripade xx.5 se zaokrouhluje na sudou. mam pocit, ze se tomu rika
> statisticke zaokrouhlovani. pamatuji si, ze na zakladni skole nam
> ucitelka vysvetlovala, ze se prechazi na nove tzv matematicke
> zaokrouhlovani a ze xx.5 jde nahoru. v americe asi nemaji nase skolni
> osnovy ;)
Tak tomu zacinam rozumet, pokud statistikum vadi, ze zaokrouhlovani jim kazi
statistiku. Ostatne statistikove jsou divni lide co z toho, ze jeden ma cele
kure a druhy zadne vypocitaji, ze vsichni maji jidla dost :-). No poznamenam
si to a treba se mi to bude hodit.
Asi bude treba u zaokrouhlovani treba presne rikat, jake se ma pouzit.
Stejne nejcastejsi je zaokrouhleni nahoru, ktere po nas chce u dani stat,
ze?
Honza +Linkovanie obj vytvoreneho v C++
[*] Roman Toda <toda(zv)digitaldocuments.org> - 3.7.2001 19:01:03
Ahojte.
Mam subor .obj v ktorom je skompilovany (MS VisualC++) jeden objekt.
Da sa k nemu pristupit z Delphi? Potrebujem cely objekt nie len funkcie -
procedury.
Je pripadne ina moznost pouzit C++ kod v Delphi ?
Dakujem
Roman
toda(zv)digitaldocuments.org
combobox
[*] Peter Surovy <psurovy(zv)uevora.pt> - 3.7.2001 18:03:37
Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
comboboxu bol vybraty pri kliknuti?
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
combobox
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 3.7.2001 19:10:52
Obsluzis udalost OnChage a ked kliknes na nejaku polozku z toho akurat
zobrazeneho listu tak sa potom vykona OnChage a v nej cize v tejto udalosti
napises
S:= ComboBox1.IndexOf[ComboBox1.ItemIndex]; alebo ako sa to pise :)
ale proste treba pouzit OnChage
skus
S pozdravom Robo
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 7:03 PM
Subject: combobox
> Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
> comboboxu bol vybraty pri kliknuti?
>
> ----------------------------------
> Ing. Peter Surovy
> psurovy(zv)uevora.pt
> ICQ #119605423
>
>
>combobox
[*] Ales Klecka <aklecka(zv)merlin(tec)cz> - 3.7.2001 19:10:11
ItemIndex, pozor zacina od 0
Alesh
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 7:03 PM
Subject: combobox
> Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
> comboboxu bol vybraty pri kliknuti?
> ----------------------------------
> Ing. Peter Surovy
> psurovy(zv)uevora.pt
> ICQ #119605423
combobox
[*] Roman Toda <toda(zv)digitaldocuments.org> - 3.7.2001 20:09:18
Mozes pouzit aj OnClick. Obidve sa volaju aj pri praci s klavesnicou.
Ked manualne nastavujes combo napr. ComboBox1.ItemIndex:=2 tak sa nezavola
ani jedna!
Hodnotu zistis aj s:=Combobox1.Text
Roman
----- Original Message -----
From: "Robert Suska, KORAK slovakia" <robert(zv)korak.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 7:10 PM
Subject: Re: combobox
> Obsluzis udalost OnChage a ked kliknes na nejaku polozku z toho akurat
> zobrazeneho listu tak sa potom vykona OnChage a v nej cize v tejto
udalosti
> napises
>
> S:= ComboBox1.IndexOf[ComboBox1.ItemIndex]; alebo ako sa to pise :)
>
> ale proste treba pouzit OnChage
>
> skus
>
> > Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
> > comboboxu bol vybraty pri kliknuti?
> >
> >
Panel Outlook
[*] Ludek P�ral <ludek.paral(zv)telecom(tec)cz> - 3.7.2001 21:20:51
Prosim, spravna adresa DELPHI je delphi-l(zv)clexpert(tec)cz, hodne mi otravujou
Vase prispevky posilane na starou adresu. Jinak ja mam TmxOutlookBar for
Delphi 3,4,5 * v1.31 (neni vzdy vse freeware, protoze Vy asi take nezijete
ze vzduchu a chcete mit aspon 30 tis /mes)
E-Mail: wmax(zv)freemail.hu
WEB: www.geocities.com/maxcomponents
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Bircow
Sent: Tuesday, July 03, 2001 12:43 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Panel Outlook
Jakou komponentu m�m poul�t, kdyl chci do sv�ho programu stejne pekn� prvek
jako je v Outlook naz�van� Panel Outlook - tj. svisl� panel s velk�mi
ikonkami nalevo. Podobn� panel poul�vaj� napr. i aplikace inShop Designer
apod.
Nejlepa� je samozrejme nejak� free neplacen�. M�m ale pouze Delphi 3, tak
aby mi v D3 fungovala. Dekuji.
Libor
Skryti v seznamu uloh
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 4.7.2001 01:53:11
A je nejaka moznost, jak schovat svoji aplikaci i pod systemem Windows 2000?
Nebo aspon to co nejvice zamaskovat. - je trosku blbost abych pak delal
uzivatelskou ochranu, kdyz si ji kazdy trosku chytrejsi uzivatel bude moci
vypnout pomoci CTRL+ALT+DEL :((
S pozdravem
Vasek Navrat
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 06, 2001 11:51 PM
Subject: RE: Skryti v seznamu uloh
> ahoj,
>
> e-mail P.Vonese z 5.7.2000 - zkousel jsem to pod W98
>
> ------
>
> Ahoj,
>
> toto lze udelat pouze ve Win9x pomoci API funkce RegisterServiceProcess.
> Protoze
> tato funkce neni dostupna ve vsech verzich OS tak je treba ji importovat
> dynamicky,
> viz priklad. Prvni parametr je ID procesu, druhy pak (0, 1 -
> Register/Unregister).
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Button2: TButton;
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> function RegisterServiceProcess(dwProcessId, dwType: DWORD): DWORD;
>
> implementation
>
> {$R *.DFM}
>
> type
> TRegisterServiceProcess = function (dwProcessId, dwType: DWORD): DWORD;
> stdcall;
>
> var
> _RegisterServiceProcess: TRegisterServiceProcess = nil;
>
> function RegisterServiceProcess(dwProcessId, dwType: DWORD): DWORD;
> begin
> if not Assigned(_RegisterServiceProcess) then
> (zv)_RegisterServiceProcess := GetProcAddress(GetModuleHandle(kernel32),
> 'RegisterServiceProcess');
> if Assigned(_RegisterServiceProcess) then
> Result := _RegisterServiceProcess(dwProcessId, dwType)
> else
> begin
> Result := 0;
> SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Win32Check(RegisterServiceProcess(GetCurrentProcessId, 1) <> 0);
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Win32Check(RegisterServiceProcess(GetCurrentProcessId, 0) <> 0);
> end;
>
> -----
>
> M.Jirman
>
> >-----Original Message-----
> >Behalf Of DarkLogic
> >
> >Dobry den!
> >
> >Po zmacknuti CTRL+ALT+DELETE se ve Windows 9x zobrazi seznam aktualne
> >spustenych programu. Nevi nekdo, jak v tomhle seznamu skryt muj program,
> aby
> >ho nikdo nemohl timto zpusobem ukoncit?
> >
> >dekuji
> >
> >Vasek Navrat
>Sortovani ceskych stringu
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 4.7.2001 06:45:45
Mam hromadu stringu s diakritikou a potrebuju je seradit podle abecedy.
Jeste nevim do ceho je ulozim, ale zatim jsou v souboru. Kam bych je mel asi
tak natahnout (napr. TStrings)? Hlavne aby to bralo ohled i na ty hacky a
carky.
Scrollovani textu - reseni
[*] Fredy Crueger <Fredy.C(zv)seznam(tec)cz> - 4.7.2001 06:57:55
Tento postup je primo pro muj pripad. Mam tam nejaka cisla, ktera ani nevim
proc sou tolik, proste mi to s tim tak vychazelo. Aby to vychazelo stejne,
nastavte si
RichEdit1.Height := 236;
RichEdit1.Top := 160;
var SPos: integer // Aktualni pozice v RichEditu
SMax: integer // Maximalni pozice (pocet radku)
procedure TMain.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('c:\autoexec.bat');
RichEdit1.show;
SMax := SendMessageA(RichEdit1.Handle, EM_GETLINECOUNT, 0, 0) - 19;
end;
procedure TMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var c: integer;
begin
if (Msg.CharCode in [33,34,35,36,38,40]) then begin
RichEdit1.SetFocus;
SPos := SendMessageA(RichEdit1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
Handled := true;
// true = nedojde k dalsimu zpracovani teto klavesy;
// false = program klavesu zpracuje znova a posuv bude o dvojnasobek
case Msg.CharCode of
VK_UP: begin
if SPos >= 1 then
SendMessageA(RichEdit1.Handle, WM_VSCROLL,
SB_LINEUP, 0);
end;
VK_DOWN: begin
if SPos <= SMax then
SendMessageA(RichEdit1.Handle, WM_VSCROLL,
SB_LINEDOWN, 0);
end;
VK_PRIOR: begin
if SPos > 18 then begin
for c := SPos downto (SPos - 18) do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end else
for c := SPos downto 1 do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
end;
VK_NEXT: begin
if SPos < (SMax - 18) then
for c := SPos to (SPos + 17) do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end else
for c := SPos to SMax do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;
end;
VK_HOME: begin
if SPos >= 1 then
for c:= SPos downto 1 do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
VK_END: begin
if SPos < SMax then
for c := SPos to SMax do
SendMessageA(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;
end;
end;
end;
S timto se text posouva ponekud trhane, ale neproblikava, tak se to da vzit
jako efekt, ale pokud byste potrebovali skokovy posuv, tak pouzijte
RichEdit1.BeginUpdate pred SendMessage a RichEdit1.EndUpdate po SendMessage.ROUND
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.7.2001 07:44:55
muze mi, prosim pekne, nekdo fundovane, ale
pro blbce vysvetlit rozdil mezi TRUNC a ROUND?
radsi podrobneji, help si precist umim, ale
asi na to nestaci moje anglictina.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/OT: Round ??
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 4.7.2001 07:47:45
>> > Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let
>> se prave
>> > sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
>>
>> Dobre, ale aky je na to dovod?
Asi proto ze se matematici tak dohodli. Je to stejne jako u elektriny, ze
elektricky proud tece od kladneho polu k zapornemu polu, ale nikdy to nikdo
nedokazal, proste je to obecna domluve ze tomu tak je. A vsichni to
respektujou bez nutnosti duvodu.
>> Co je nespravne na zaokruhlovani 5 nahor?
No odporuje to te domluve (viz vise)
PEPR
opendialog a win 2000
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 4.7.2001 07:50:51
CAu
Me to delalo neco podobnyho, akorat, ze mi zamrzl celej pocitac pri opendialog.execute.
Cely jsem to preinstaloval (vcetne format c:) (data jsem dal na decko :-) ) a funguje to ted bez problemu.
Z tech mnoha programu, co tam predtim byly a ted nejsou bych jako vinika tipl na IE6 beta.
Moje konfigurace:
D5 ent + SP1 +SP2
Win 2000 PRO + SP2
AMD Athalon 750
Cipset VIA kt 133 + patch 4in1
deska MSI k7T PRO 2-A (Bios z kvetna letosniho roku)
> M�m Delphi 5.0 pod Windows 2000. M�m probl�my s komponentou
> opendialog. Ve formul�oi m�m button, editbox a pr�vi
> opendialog. Button m� na ud�lost onclick poioazenou proceduru:
> opendialog1.execute;
> a opendialog1 m� na ud�lost onclose poioazenou proceduru:
> edit1.text:=opendialog1.filename;
> V editu by se milo objevit jm�no zvolen�ho souboru s cestou.
> M�sto toho se objev� nijak� n�hodn� znaky (vitsinou jen dva,
> nebo i jeden), kter� nemaj� s cestou nic spoleen�ho. Stejn�
> progr�mek jsem zkousel i pod win98 a vse bizelo bez probl�mu.
> Chtil bych videt jestli existuje nijak� zpusob, kter� mi
> umozn� progr�mek spustit i pod windows2000.
>
> Michal Holub
Sortovani ceskych stringu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.7.2001 08:02:57
TStringList a jeho metoda Sort pouziva ve trideni ANSICompareText,
takze by melo byt trideni bez problemu
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.7.2001 Fredy Crueger:
> Mam hromadu stringu s diakritikou a potrebuju je seradit podle abecedy.
> Jeste nevim do ceho je ulozim, ale zatim jsou v souboru. Kam bych je mel asi
> tak natahnout (napr. TStrings)? Hlavne aby to bralo ohled i na ty hacky a
> carky.ROUND
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.7.2001 08:04:32
Petr Palicka dne 4 Jul 2001, v 7:44:
> muze mi, prosim pekne, nekdo fundovane, ale
> pro blbce vysvetlit rozdil mezi TRUNC a ROUND?
> radsi podrobneji, help si precist umim, ale
> asi na to nestaci moje anglictina.
Trunc(12.7) by melo vyjit 12, zatimco Round(12.7) by melo vyjit 13.
Trunc vlastne jen odsekne desetinnou cast, zatimco Round provede
zaokrouhleni nahoru nebo dolu podle toho, co za tou desetinnou carkou
nasleduje.
Mimochodem - nevite nekdo, kde se da najit nejaka "norma", podle
ktere se tedy spravne zaokrouhluje? Musim se priznat, ze me ani
nahodou nenapadlo ono pravidlo o zaokrouhlovani na sudou, prestoze
jista logika v tom je.
Karel Rys
mys a nepravidelne oblasti na formu
[*] surfman <surfman(zv)volny(tec)cz> - 4.7.2001 08:36:52
Ahoj,
musis si vyrobit prislusne polygony a potom pouzit funkci na vysetreni,
jestli bod, nad kterym se ti pohybuje mys lezi uvnitr techto polygonu.
Bez WinApi to asi nepujde.
Surfman
----- Original Message -----
From: <delphi_x(zv)email(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 4:43 PM
Subject: mys a nepravidelne oblasti na formu
Zdravim
Pri pohybu mysi nad formularem potrebuji, aby se v urcitych oblastech
formulare kurzor mysi zmenil a pri kliknuti mysi v jedne z techto oblasti
potrebuji vedet, ve ktere oblasti k tomu doslo. Oblasti mohou byt velmi
nepravidelneho tvaru (v jednodussi variante jsou to N-uhelniky), mohou se
dotykat ale neprekryvaji se. Jak na to ??? Diky za kazdy namet. Pepa.
(zkuste mi poradit co nejdrive - vcera bylo pozde)
---
Email(tec)cz - Vase posta zdarma!
http://www.email(tec)cz
OT: Zakladni deska
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 4.7.2001 08:44:52
Ahoj,
resim problem upgrade pixly. Muzete mi prosim sdelit sve pripadne zkusenosti
s motherboardy pro Socket A (AMD Duron/T-Bird), ktere pouzivate ? Spise
reference typu "mam ABC123 s Duronem 800(zv)900, zadny problem" nebo "mel jsem
XY456, ale nepodarilo se mi na tom rozchodit D5" nez obecne uvahy. Uz jsem
si prosel par sajtu, neco jsem precetl, ale neni nad prakticke zkusenosti.
Chci to pro W2K a D5 Ent.
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
ROUND
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 4.7.2001 09:19:02
> Mimochodem - nevite nekdo, kde se da najit nejaka "norma", podle
> ktere se tedy spravne zaokrouhluje? Musim se priznat, ze me ani
> nahodou nenapadlo ono pravidlo o zaokrouhlovani na sudou, prestoze
> jista logika v tom je.
>
> Karel Rys
Ahoj,
nevim jestli je to pravidlo, ale hodnota presne uprostred intervalu (tedy
napr. 10.50) je neparova. To znamena, ze pokud by se tato hodnota
zakrouhlovala vzdy napr. smerem nahoru, tak by pri rovnomernem rozlozeni
hodnot zokrouhlovanych cisel prevazovalo zaokrouhlovani smerem nahoru, coz
statisticky nevyhovuje (pri dostatecne velkem poctu cisel a rovnomernem
rozlozeni by aritmeticke prumery nezaokrouhlenych a zokrouhlenych cisel mely
konvergovat ke stejne hodnote). Toho lze dosahnout napriklad jiz zminenym
pravidlem zaokrouhleni na sudou (stejne dobre by vyhovelo i pravidlo na
lichou), protoze zaokrouhlovane cislo jednou spadne dolu a jednou pujde
nahoru.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
mys a nepravidelne oblasti na formu
[*] surfman <surfman(zv)volny(tec)cz> - 4.7.2001 09:34:50
No dobre, vsechno jde. Nevyjadril jsem to presne.
Nicmene rezie spojena s navrzenymi postupy mi pripada podstatne vetsi nez
pri pouziti
CreatePolygonRgn, PtInRegion.
Mimo to s tema barvama bych to moc nevidel, protoze nevis, co vlastne pod
tema regionama je. Klidne tam muzou byt bitmapy v truecoloru. A obecne si
myslim, ze je lepsi napsat to univerzalne. Kdo vi, kdy se to znovu hodi a
takhle by se to muselo prepisovat.
Surfman
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 04, 2001 9:37 AM
Subject: RE: mys a nepravidelne oblasti na formu
> > Bez WinApi to asi nepujde.
>
> no, daji se na to pouzit regionym
> ale jde to i bez nich.
>
> bud muzes pouzit primo bmp a pomoci Canvas.Pixel[x,y] ziskas barvu a
> kdyz je ruzna<>0 tak je v polygonu (pripadne podle barvy urcis v jakem.
>
> udelej si dvourozmerny pole a do nej "nakresli" ty polygony. do
> pole[x,y] kde je nejaky polygon uloz cislo (byte by mohl stacit), ktere
> ten polygon reprezenruje. potom do toho pole sahnes a bud 0 nebo
> polygon.
>
> dekuji PeC(zv)
>
> CU onTheFutureOfMatrix
> MatriX.CyberSpace.Cz
>
> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
> |[smtp:petr.palicka(zv)atlas(tec)cz]|
> |[smtp:peca(zv)email(tec)cz] |
> \~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
>mys a nepravidelne oblasti na formu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.7.2001 09:37:42
> Bez WinApi to asi nepujde.
no, daji se na to pouzit regionym
ale jde to i bez nich.
bud muzes pouzit primo bmp a pomoci Canvas.Pixel[x,y] ziskas barvu a
kdyz je ruzna<>0 tak je v polygonu (pripadne podle barvy urcis v jakem.
udelej si dvourozmerny pole a do nej "nakresli" ty polygony. do
pole[x,y] kde je nejaky polygon uloz cislo (byte by mohl stacit), ktere
ten polygon reprezenruje. potom do toho pole sahnes a bud 0 nebo
polygon.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/volani Delphi z VB
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 4.7.2001 09:39:18
ahoj,
potrebuji (v D5Prof) vypotit DLL, jejiz fce a procedury se budou volat z
Visual Basicu. Maji tam byt vizualni komponenty, ma to pracovat nad nejakou
databazi. Mam v podstate volnost, co se tyka volani procedur a predavani
parametru.
Dotaz je nasledujici: na co si dat pozor? Neco ohledne predavani parametru
se tu resilo loni, ale existuji i nejake dalsi vychytavky (treba prace s
knihovnami, zachazeni s pameti, zmena parametru obrazovky)?
Diky za kazdou radu, jen doufam, ze nerozpoutam nejaky flame war...
Petr
Re[2]: Sortovani ceskych stringu
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 4.7.2001 10:00:27
Hello ing.,
Wednesday, July 04, 2001, 8:02:57 AM, you wrote:
iJF> TStringList a jeho metoda Sort pouziva ve trideni ANSICompareText,
iJF> takze by melo byt trideni bez problemu
iJF> ------
iJF> ing. Jan Fiala
iJF> mailto:jan.fiala(zv)iol(tec)cz
iJF> 4.7.2001 Fredy Crueger:
>> Mam hromadu stringu s diakritikou a potrebuju je seradit podle abecedy.
>> Jeste nevim do ceho je ulozim, ale zatim jsou v souboru. Kam bych je mel asi
>> tak natahnout (napr. TStrings)? Hlavne aby to bralo ohled i na ty hacky a
>> carky.
tohle funguje, obcas dokonce lepe nez windowsovsky prikaz sort..
(w2kserver)
--
Best regards,
Raul mailto:raul(zv)raphael(tec)cz
Vypis souboru z disku - kompletni
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 4.7.2001 10:59:55
ing Fiala odpovedel
> Urcite AnyFile. Ale je treba vynechavat jmena '.' a '..' s atributem
> directory. Pak vlastni adresare scitat zvlast od souboru.
> Zkus poslat kod, ktery provadis.
> A souhlasi pocty, ktere ukazuje WC s pocty, ktere ukazuje Windows ?
tak jsem to jiz "udelal" pro pousouzeni a dalsi zajemce posilam kod.
**********************************
procedure TFoMain.addFilesFromDir(const FileDirectory:String);
var
subDirList: TStringList;
fsr: TSearchRec;
fileFound: Integer;
i: Integer;
begin
{ Nacti seznam souboru }
fileFound:= FindFirst(FileDirectory +
FoAddVolume.CB_EXT.Text,faAnyFile-faDirectory ,
fsr);
while (fileFound = 0) do
begin
addFileFromSearch(fsr,FileDirectory);
fileFound:= FindNext(fsr);
end;
{ while }
FindClose(fsr);
{ Nacti podadresare }
subDirList:= TStringList.Create;
try
fileFound:= FindFirst(FileDirectory + '*.*',faAnyFile, fsr);
while (fileFound = 0) do
begin
if (((fsr.Attr and faDirectory) <> 0) and (fsr.Name <> '.') and
(fsr.Name <> '..'))
then subDirList.Add(fsr.Name);
fileFound:= FindNext(fsr);
end; { while }
FindClose(fsr);
{ Prohledej podadresare }
for i:= 0 to subDirList.Count-1 do
begin
addFilesFromDir(FileDirectory + subDirList[i] + '\');
end; { for }
finally
subDirList.Free;
end;
end;
***********************************
mys a nepravidelne oblasti na formu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.7.2001 11:11:06
ahoj,
chtel jsem pouze poukazat na mozna reseni bez API windowsu.
jinac tu bitmapu si muzes vytvorit jakou chces. ja jsem se
mozna spatne vyjadril, ale myslel jsem to tak, ze si vytvoris
BMP potrebnych parametru a rozmeru (klidne 1-bitovou) a do
ni so namalujes ty polygony. nicmene bmp nebudes nikde
ukazovat. slouzi pouze jako pomucka pro urceni je/neni v/vne
polygonu.
takze, pokud potrebujes rozlisit i polygony, udelas ji treba
4-bit a muzes podle barvy rozlisit az 15 ruznych polygonu +
1 podklad.
samozrejme, ze api pro regiony to resi v pohode. otazka muze
byt okolo rychlosti, ale ja bych to vice nepitval ;)
lehkou upravou lze bmp nahradit 2d polem (matici).
sorry, nejak se nedokazu vymacknout napoprvy ;).
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/SQL Chyba, jak ji resit ???
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 4.7.2001 12:20:38
Ahoj, zdravim vas vsechny.
Mam takovy problem. Pouzivam cached-updates a po provedeni ulozeni do jedne
tabulky mi to hazi nasledujici chybu:
P�vodn� hl�#en�: Table is read only.
[Microsoft][ODBC SQL Server Driver][SQL Server]SQL Web Assistant: Web task
not found. Verify the name of the task for possible General SQL error.
errors.
U jinych tabulek to funguje bez problemu. Nevite, v cem muze byt chyba, nebo
kde ji mam hledat ?
Diky za pomoc. Potreboval bych to resit co mozna nejrychleji.
Diky
Filip
Destrukce preview
[*] Bc. Petr Zabensky <petr.zabensky(zv)ataco(tec)cz> - 4.7.2001 13:12:47
Potrebuji porad s produktem QuickReport 3.0.8 Professional.
Pri zobrazeni vystupni sestavy
na obrazovku se v prubehu generovani sestavy ztrati cast preview okna
(zustane okno, toolbar, ale ztrati se
zobrazeni sestavy). Dalsi sestavu
jiz nelze vytisknou (aplikace hlasi chybu
windows (neplatny popisovac okna).
Aplikaci je treba ukoncit a pustit znovu.
Pri podrobnejsim zkoumani jsem zjistil,
ze komponenta TQRPreview (je odvozena z TScrollBar) v prubehu
vykreslovani ztrati device context, do ktereho je
vykreslovana. Nemuzu prijit na to, proc.
Chyba se mi projevuje na ruznych druzich tiskaren (od HP pres
epson) a jeji vyskyt je hodne nepredvidatelny
(dva dny mi sestavy jednou, treti nejde ani jedna, pak to
zase funguje........).Nepomohlo ani
preinstalovani drivers tiskaren.
Jeste uvedu, ze sestavy zobrazuji modalne.
Pri zkouseni jsem jeste dospel k nazoru,
ze s tiskarnou to nemusi mit nic spolecneho, ze je
chyba nekde v komponentach (pokud totiz dam
tisk primo na tiskarnu, je vse bez problemu). Protoze ale
potrebuji i preview na obrazovku, musim tento problem
nejak vyresit. Jeste jedna vec me
vede k tomu, ze s tiskarnou to nemusi mit nic spolecneho. A
to je to, ze
i kdyz se strati zobrazeni na obrazovku,
report je cely ulozen v TMP souboru (kamho QR uklada).
Rad bych zjistil, jestli nemel nekdo
stejny problem.
A na konecjeste uvedu:
Prostredi: Delphi 5 Professional
QuickReport:3.0.8 Proffesional
Zatim diky
Zabensky Petr
e-mail:petr.zabensky(zv)ataco(tec)cz
OT: Round ??
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 4.7.2001 13:20:26
To je nesmysl, jde o to, ze kdyz se zaokrouhluji velke mnozstvi
cisel a pak se udela soucet, tak je mensi odchylka, prece.
> >> > Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let
> >> se prave
> >> > sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
> >>
> >> Dobre, ale aky je na to dovod?
>
> Asi proto ze se matematici tak dohodli. Je to stejne jako u elektriny, ze
> elektricky proud tece od kladneho polu k zapornemu polu, ale nikdy to nikdo
> nedokazal, proste je to obecna domluve ze tomu tak je. A vsichni to
> respektujou bez nutnosti duvodu.
>
> >> Co je nespravne na zaokruhlovani 5 nahor?
> No odporuje to te domluve (viz vise)
>
> PEPR
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Fonty v ruskych Windows
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.7.2001 13:49:38
Ahoj,
vytvarim aplikaci, ktera bude existovat v ceske, anglicke a ruske
jazykove mutaci. Rustina dela trochu problemy, proto bych se
chtel zeptat tech, kteri se lokalizaci do rustiny uz zabyvali, na
nazor.
1) Pro rustinu je treba mit u vsech prvku nastaven vhodny font, v
mem pripade Times New Roman s charsetem Cyrilic. Znamena to,
ze krome lokalizace lokalizatorem musim pouzivat i podmineny
preklad, ktery pri tvorbe ruske verze nastavi Cyrilic charset u fontu
vsech prvku na formu? Neexistuje nejaky font, ktery obsahuje
ceske i ruske znaky v jednom charsetu? Pokud vim, unicode a
VCL nejdou moc dohromady.
2) Pokud bych chtel za behu zmenit font napr.
Label1.Font := 'Arial'
- nenarazim na ruskych Windows? Jde mi o to, jestli na ruskych
Windows vubec existuje pismo Arial (psane latinkou), nebo jestli
se nejmenuje sice Arial, ale psano azbukou.
3) Jak je to v D6? Neni v D6 mozne pouzivat jiz nejaky unicode font
ve VCL?
Jsem v uvedenych vecech zacatecnik, takze pokud jsem napsal
nejaky nesmysl, tak se omlouvam.
David Lebeda
Instalator klienta
[*] Michal Sefcik <mikese(zv)benefitcz(tec)cz> - 4.7.2001 14:08:15
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Vim, ze se zde tato problematika resila jiz mnohokrate.
Nicmene by mne zajimalo, zda nekdo vytvarel vlastni aplikaci, ktera sama
nainstaluje BDE, SQL klienta vytvori zastupce, pripadne overi konektivitu
k databazi. To vse samozrejme s vyuzitim korektniho postupu instalace BDE,
unattenden instalace SQL klienta (MS SQL 7.0) pomoci vytvoreneho ISS
souboru atd. Tedy zadne prime pristupy do registru na zaklade vykastrovanych
pozadavku apod.
Zvladam jednotlive operace. Dotahl jsem uspesne unattended instalaci SQL.
Avsak seradit jednotlive operace v jednom exaci za sebe nelze. Pouziti
v konfere zminovane funkce WinExecAndWait32 narazi na problemy:
1. V InstallShieldu vytvorena instalace BDE vcetne nativnich linku se
nespusti, dokud program pracuje ( na fci WaitforSingleObject to tudiz tuhne)
2. Nejsem schopen donutit fci CreateProcess spolknout CommandLine ve
tvaru "batak parametr" (pro instalaci SQL klienta potrebuji predavat parametrem
uplnou cestu k SetupSql.exe i ISS souboru)
Za kazdy namet dekuji predem. Rad bych konecne ve chvili volna vyresil vecne
opletacky s instalaci novych, pripadne reinstalaci starych klientu u "normalnich"
zakazniku a usetril si tak spoustu kilometru :-)Linkovanie obj vytvoreneho v C++
[*] Roman Toda <toda(zv)digitaldocuments.org> - 4.7.2001 14:11:34
Uz som nasiel, ze to asi nie je mozne, tak sa skusim spytat inac. Mame
kniznicu objektov (nevizualnych) ktore pouzivame v projektoch (MS Visual
C++). Mohol by som pouzit ten isty kod na pracu z Delphi ? Zatial sa branime
vytvorit dll, lebo to chceme mat priamo v exe. Da sa napr. v C Buildri
urobit komponenta ktoru pouzijem v D? alebo ine riesenie ?
Dakujem
Roman
toda(zv)digitaldocuments.org
----- Original Message -----
From: "Roman Toda" <toda(zv)digitaldocuments.org>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 7:01 PM
Subject: Linkovanie obj vytvoreneho v C++
> Mam subor .obj v ktorom je skompilovany (MS VisualC++) jeden objekt.
> Da sa k nemu pristupit z Delphi? Potrebujem cely objekt nie len funkcie -
> procedury.
> Je pripadne ina moznost pouzit C++ kod v Delphi ?
SQL Chyba, jak ji resit ???
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.7.2001 14:14:53
a je to jednoducha tabulka?
neni tam nejakej join nebo vypocet?
napis aspon jakej mas select
cim to apdejtujes (jakymi dotazy)?
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/combobox
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 4.7.2001 14:24:31
Na udalosti OnChange si checkni Combobox.ItemIndex.
Tomas Bozik
> Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
> comboboxu bol vybraty pri kliknuti?
>
>
> ----------------------------------
> Ing. Peter Surovy
> psurovy(zv)uevora.pt
> ICQ #119605423
>
>
>
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Linkovanie obj vytvoreneho v C++
[*] iturcan(zv)gamo.sk - 4.7.2001 14:24:38
>Uz som nasiel, ze to asi nie je mozne, tak sa skusim spytat inac. Mame
>kniznicu objektov (nevizualnych) ktore pouzivame v projektoch (MS Visual
>C++). Mohol by som pouzit ten isty kod na pracu z Delphi ? Zatial sa
branime
>vytvorit dll, lebo to chceme mat priamo v exe. Da sa napr. v C Buildri
>urobit komponenta ktoru pouzijem v D? alebo ine riesenie ?
Hi,
davnejsie som mal podobny problem. Mal som DLL kde boli objekty. Normalnym
sposobom to do Delphi nenatrepes, z konf. mi tiez nikto neporadil. Mozno
nikto nepracuje s M$ softom :). Napokon mi poradil Charlie Calvert z
Borland USA. Toto je jeho odpoved:
Yes, you should be able to declare the class as a virtual abstract in
Delphi, then call a method in the DLL that returns a pointer to an
initialized instance of the class and assign it to your variable of the
type
of your virtual abstract Delphi class. Then you should be able to make the
calls from Delphi to your C++ dll.
mozno to pomoze...
bye
I.t.
Ivan Turcan
Development Specialist
Phone: +421 905 500958
Email: iturcan(zv)gamo.sk
Excel a TExcel....
[*] Tom� Janta����##��{�#��Y��̿ - 4.7.2001 14:26:18
Ahoj,
zase ten excel
uz se mi toho s excelem hodne dari, ale mam problem s nasledujicim kodem,
nejde mi to vubec zkompilovat a pise mi to hlasku : "[Error]
LisFrame.pas(28): '(' expected but ')' found" nejak nechapu co po me jeste
chce? :o(
kde je chyba?
unit LisFrame;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleServer, Excel97;
type
TLis = class(TFrame)
ExcelWS: TExcelWorksheet;
private
{ Private declarations }
public
{ Public declarations }
procedure createSheet ( ExcelWb : TExcelWorkBook; CisloLisu:Integer ) ;
end;
implementation
{$R *.DFM}
procedure TLis.createsheet ( ExcelWb : TExcelWorkBook; CisloLisu:Integer ) ;
vAR SheetType : OleVariant ;
Begin
SheetType := 'F:\Documents and Settings\Tomas1\Data
aplikac�\Microsoft\�ablony\Sablona.XLT' ;
// TOleEnum(xlChart);
ExcelWS.ConnectTo(ExcelWb.Sheets.Add(EmptyParam, EmptyParam, 1,SheetType,
lcid ) as _Worksheet);
end ;
Tomas Jantac
PaPouch elektronika
www.papouch.com
ffQuery kontra ffTable
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.7.2001 14:39:21
Ahoj,
chtel bych se zeptat, co je ve FF2 lepsi pouzit
ffQuery s dotazem typu select * from table nebo ffTable? Jde mi o
pripady, kdy oboji je funkcne ekvivalentni, napr. proste zobrazeni
obsahu tabulky v gridu.
Dik.
David Lebeda
Excel a TExcel....
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 4.7.2001 15:07:51
procedure TLis.createsheet ( ExcelWb : TExcelWorkBook; CisloLisu:Integer ) ;
vAR SheetType : OleVariant ;
Begin
SheetType := 'F:\Documents and Settings\Tomas1\Data
aplikac�\Microsoft\�ablony\Sablona.XLT' ;
// TOleEnum(xlChart);
ExcelWS.ConnectTo(ExcelWb.Sheets.Add(EmptyParam, EmptyParam, 1,SheetType,
lcid ) as _Worksheet);
end ;
Takhle to pouzivam ja. tedy misto sheetType - EmptyParam
SheetType neni cesta, ale typ, viz nize. Cestu a nazev zadavas pri
connectnuti workbooku, nebo kdyz pouzijes SaveAs
WS.ConnectTo(WkBk.Worksheets.Add
(EmptyParam, EmptyParam, 1, EmptyParam, lcid) as _WorkSheet);
vypis z helpu office
Type Optional Variant. Specifies the sheet type. Can be one of the
following XlSheetType constants: xlWorksheet
xlChart,
xlExcel4MacroSheet, or
xlExcel4IntlMacroSheet.
The default value is xlWorksheet.
Tomas
Pocarovsky
P.S.: Jinak jestli mas jeste nejaky dotaz, ptej se zkuseneho odbornika jako
jsem ja, uz na tomhle pracuju 5 dni. :-)))
Ahoj,
zase ten excel
uz se mi toho s excelem hodne dari, ale mam problem s nasledujicim kodem,
nejde mi to vubec zkompilovat a pise mi to hlasku : "[Error]
LisFrame.pas(28): '(' expected but ')' found" nejak nechapu co po me jeste
chce? :o(
kde je chyba?Linkovanie obj vytvoreneho v C++
[*] Lubo Fule <fule(zv)ekosoft.sk> - 4.7.2001 15:44:25
> >Uz som nasiel, ze to asi nie je mozne, tak sa skusim spytat inac. Mame
> >kniznicu objektov (nevizualnych) ktore pouzivame v projektoch (MS Visual
> >C++). Mohol by som pouzit ten isty kod na pracu z Delphi ? Zatial sa
> branime
> >vytvorit dll, lebo to chceme mat priamo v exe. Da sa napr. v C Buildri
> >urobit komponenta ktoru pouzijem v D? alebo ine riesenie ?
Bez DLL to asi nepojde, ale preco sa branis pouzitiu DLL, na taketo vyuzitie
su DLL priam stvorene...:-)
>
> Hi,
>
> davnejsie som mal podobny problem. Mal som DLL kde boli objekty. Normalnym
> sposobom to do Delphi nenatrepes, z konf. mi tiez nikto neporadil. Mozno
> nikto nepracuje s M$ softom :). Napokon mi poradil Charlie Calvert z
> Borland USA. Toto je jeho odpoved:
>
> Yes, you should be able to declare the class as a virtual abstract in
> Delphi, then call a method in the DLL that returns a pointer to an
> initialized instance of the class and assign it to your variable of the
> type
> of your virtual abstract Delphi class. Then you should be able to make the
> calls from Delphi to your C++ dll.
>
Rovnakym sposobom som programoval ODBCe. Vo VC++ som naprogramoval kompletnu
triedu (implementacia v DLL) a v Delphi je uz iba deklaracia. Samozrejme,
musia byt zachovane urcite pravidla, napr. rovnaky sposob ukladania
parametrov a pod. Instanciu danej triedy vytvaram tak, ze namiesto
klasickeho volania konstruktora priamo v delphi volam globalnu funkciu z
DLL, ktora zavola konstruktor v C++ a vrati smernik na instanciu. Ak chces,
mozem Ti poslat pascalovsky zdrojak v ktorom je dana trieda na sukr. adresu
(pripadne ak mas ODBCe, tak je to v subore FODBCLib.pas).
L.
Linkovanie obj vytvoreneho v C++
[*] Roman Toda <toda(zv)digitaldocuments.org> - 4.7.2001 16:19:29
>
> Bez DLL to asi nepojde, ale preco sa branis pouzitiu DLL, na taketo
vyuzitie
> su DLL priam stvorene...:-)
>
Tieto objeky obsahuju security funkcie. (snazime sa pouzivate cryptovacie
algoritmy na uchovavanie istych dat.) Historia ukazala, ze sa kryptovacie
metody menia od verzii k verii a preto je potreba mat (na spatnu
kompatibilitu) vsetky implementovane.
Na a predstav si napr. funkciu Dekryptuj(void *src, void *dst) ktoru das do
DLL. Nehovorim, ze sa to neda zabezpecit, ale zda sa mi istejsie ked to je v
exaci.
Roman
OT: Round ??
[*] Erik Salaj <winsoft(zv)stonline.sk> - 4.7.2001 16:37:56
> >> Dobre, ale aky je na to dovod?
>
> Asi proto ze se matematici tak dohodli. Je to stejne jako u elektriny, ze
Predpokladam, ze bol nejaky dovod, preco sa tak dohodli a ten dovod
ma zaujima.
> elektricky proud tece od kladneho polu k zapornemu polu, ale nikdy to
nikdo
> nedokazal, proste je to obecna domluve ze tomu tak je. A vsichni to
> respektujou bez nutnosti duvodu.
Je to nieco uplne odlisne. V pripade el. prudu, vypocet obvodu sa nezmeni,
ked si preznacim smer prudov, v pripade odlisnych sposobov zaokruhlovania
ale dostavas odlisne vysledky.
> >> Co je nespravne na zaokruhlovani 5 nahor?
> No odporuje to te domluve (viz vise)
No tak to je naozaj velmi zavazny dovod.
Erik
Podobnost slov (jmen, prijmeni, rc)
[*] <Alois.Jirasek(zv)atlas(tec)cz> - 4.7.2001 16:43:33
Ahoj,
mam databazi osob. U kazde osoby mam uvedeno jmeno, prijmeni a rodne cislo. Potrebuji v teto databazi najit duplicitni zaznamy.
Najit identicke zaznamy neni problem, ale ja bych potreboval algoritmus, ktery najde i zaznamy velice podobne. Napriklad preklep, prohozena pismenka, drobna chyba v rodnem cisle. Treba aby mi ten algoritmus nasel vsechny zaznamy s urcitym procentem podobnosti.
Nevite nekdo link na nejake informace o takovychto algoritmech?
Nebo nemate nekdo dokonce takovou free knihovnicku? ;-)
Diky za kazdou informaci.Fonty v ruskych Windows
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.7.2001 17:03:15
Puvodni zprava, kterou napsal David Lebeda dne 4 Jul 2001,:
> vytvarim aplikaci, ktera bude existovat v ceske, anglicke a ruske
> jazykove mutaci. Rustina dela trochu problemy, proto bych se
> chtel zeptat tech, kteri se lokalizaci do rustiny uz zabyvali, na
> nazor.
Osobne bych ti vrele doporucil zakoupit MSDN Professional nebo
Universal (Professional staci), kde mas vsechny operacni systemy
ve vsech jazykovych mutacich, ktere existuji, pro ucely testovani.
Pak si muzes instalovat treba ruske ci cinske Windows a zkouset,
jak moc ti to pojede a co to bude delat.
Zasadni chybou mnoha programatoru je, ze netestuji. Pak se divi
oni i jejich uzivatele, co to dela treba pod Windows 98, kdyz
oni to vyvijeli na Windows 2000 apod. I ja se casto divim, jak
se ruzne OS chovaji jinak. Rozhodne lepsi cesta je si to zkusit
otestovat sam, byt je ted W95, W95SR2, W98, W98SE, WME, NT4
a W2K (plus blizi se WXP), coz je 7 operacnich systemu (brzy 8).
Je to pakarna, ale lepsi nez kdyz na to prijde zakaznik. Stejne
se tomu pak clovek nevyhne. Idealni je take mit treba Norton
Ghost a pak neni potreba vzdy instalovat znova, ale mit image
na CD a jen si je na pokusny disk behem 5 minut natahnout...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Pocet stranek pred tiskem
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.7.2001 17:27:36
Zdravim
> > To me taky napadlo to prepocitavat pres pixely, ale bude to vzdy 100%?
> > Zavisi to na tisk�rne?
>
> Zavisi to spis na ovladaci nez na tiskarne, jake rozliseni mas k dispozici
> a jake je aktualne nastavene, pokud znas vysku radku v pixelech, pocet
> radku a zjistis pocet bodu na palec aktualni tiskarny
> /GetDeviceCaps(Handle,LogPixelsY)/, tak by to nemel byt problem previst to
> na milimetry... no a delka A4 je tusim 29,5cm :-)
Jiste ze to zqavisi na ovladaci te tiskarny. Kdyz jsem rekl, ze to zavisi na
tiskarne, mysli se tim jeji ovladac, je to vlastne jedno a totez. Vertikalni
DPI tiskarny znat nepotrebujes. Misto toho je pocet pixelu na vysku jednoho
znaku (=radku) na tiskarne. Proto musis predem vedet font, kterym budes
tisknout.
Hurricane
Linkovanie obj vytvoreneho v C++
[*] Lubo Fule <fule(zv)ekosoft.sk> - 4.7.2001 18:03:25
> > Bez DLL to asi nepojde, ale preco sa branis pouzitiu DLL, na taketo
> vyuzitie
> > su DLL priam stvorene...:-)
> >
> Tieto objeky obsahuju security funkcie. (snazime sa pouzivate cryptovacie
> algoritmy na uchovavanie istych dat.) Historia ukazala, ze sa kryptovacie
> metody menia od verzii k verii a preto je potreba mat (na spatnu
> kompatibilitu) vsetky implementovane.
>
> Na a predstav si napr. funkciu Dekryptuj(void *src, void *dst)
> ktoru das do
> DLL. Nehovorim, ze sa to neda zabezpecit, ale zda sa mi istejsie
> ked to je v
> exaci.
To je pravda... Potom by to mozno slo tak, ze by si C++ zdrojaky skompiloval
nejakym Borlandovskym C++ kopilatorom (napr. Builder) na .obj a tie by sa
mali dat do delphi prilinkovat. Malo by to podla mna fungovat podobne ako v
priklade co som Ti poslal, akurat pri funkcii uvedies namiesto ... external
'kniznica.dll'; iba to ... external; a na zaciatok casti implementation
napises riadok {$L tvoj_obj.obj}. Ci to skutocne pojde to neviem, nikdy som
to neskusal. Ak to budes skusat, tak daj vediet ako si dopadol, celkom ma to
zaujima.
L.
D6 a TDataset
[*] Lubo Fule <fule(zv)ekosoft.sk> - 4.7.2001 18:10:37
Ahojte,
mam par otazok ohladom Delphi 6 a TDataset-u:
1. Ma Delphi 6 TDataset?
2. Ak ano je kompatibilny s D5
Jedna sa mi o to, ci budem vediet ODBCe bez velkeho prerabania urobit aj pre
D6. Zatial D6 nemam, ale uz je o to zaujem...
Vdaka za vsetky odpovede.
L.
ffQuery kontra ffTable
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.7.2001 19:31:02
Puvodni zprava, kterou napsal David Lebeda dne 4 Jul 2001,:
> chtel bych se zeptat, co je ve FF2 lepsi pouzit
> ffQuery s dotazem typu select * from table nebo ffTable? Jde mi o
> pripady, kdy oboji je funkcne ekvivalentni, napr. proste zobrazeni
> obsahu tabulky v gridu.
No to je otazka, co je rychlejsi. Pokud je to tedy uplne
ekvivalentni, tj. opravdu select *, pak bych si udelal
obe verze a mrknul do profileru, co rychleji frci.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================D6 a TDataset
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.7.2001 20:23:39
Ano, ma. Ma vlastne vse, co predchozi verze + neco navic. S
predelavanim programu na D6 to neni zas tak hrozne. Pouze se jinak
jmenuji unity a balicky pro praci v Design Time, ale D6 to vetsinou
upravi samo.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.7.2001 Lubo Fule:
> 1. Ma Delphi 6 TDataset?
> 2. Ak ano je kompatibilny s D5
> Jedna sa mi o to, ci budem vediet ODBCe bez velkeho prerabania urobit aj pre
> D6. Zatial D6 nemam, ale uz je o to zaujem...None
[*] Michal \Wotan\ Holub <mholub(zv)atlas(tec)cz> - 4.7.2001 21:05:58
> M�m Delphi 5.0 pod Windows 2000. M�m probl�my s komponentou
> opendialog. Ve formul�oi m�m button, editbox a pr�vi
> opendialog. Button m� na ud�lost onclick poioazenou proceduru:
> opendialog1.execute;
> a opendialog1 m� na ud�lost onclose poioazenou proceduru:
> edit1.text:=opendialog1.filename;
> V editu by se milo objevit jm�no zvolen�ho souboru s cestou.
> M�sto toho se objev� nijak� n�hodn� znaky (vitsinou jen dva,
> nebo i jeden), kter� nemaj� s cestou nic spoleen�ho. Stejn�
> progr�mek jsem zkousel i pod win98 a vse bizelo bez probl�mu.
> Chtil bych videt jestli existuje nijak� zpusob, kter� mi
> umozn� progr�mek spustit i pod windows2000.
>
> Michal Holub
www a e-mail
[*] Libor Zapletal <zapletal.libor(zv)c-box(tec)cz> - 4.7.2001 21:44:06
Ahoj,
"resim" takovy problemek jak v textu (neco na zpusob Tmemo, TRichEdit,...)
najit www adresu ci e-mail (pokud mozno automaticky) zvyraznit je a
kliknutim na ne spustit inet explorer popr. poslat e-mail (spustit Outlook).
V podstate se tak chova Word a spousta programu podobneho razeni.
Mam D5.
Diky za podnety
LiborZ
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.5.2001
Presun formul�re
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 4.7.2001 22:03:05
Potrebuji nakopnout:
Chci zachytavat presun formulare tak, aby jej bylo mozno presunovat pouze v
urcite casti plochy (napriklad pouze v jeji dolni polovine). Formular se
muze maximalizovat jen v teto urcene casti.
Diky
Martin Ben
DelphiX
[*] Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz> - 4.7.2001 22:29:39
Ahoj!
1. Nezna nekdo nejaky jiny zpusob vykreslovani grafiky, nez je pomoci direct
ovskeho DelphiX. Je sice rychle, ale kamarad programuje v C++ a bezi mu to v
sechno nejmene dvakrat rychleji.
2. Jak (jde-li to) prevedu databazovou aplikaci s pouzitim SQL z DELPHI 5 do
DELPHI 3. Obracene to jde, ale takhle to neumim. Hlavne se mi jedna o me tab
ulky (o obsah nejde, nechci je tvorit znovu).
3. Jde pomoci standardnich funkci Delphi (bez pouziti assembleru) zjistovat
typy procesoru, mnozstvi pameti apod.?
4. Jak se lze dostat na HDD nebo na disketu na urovni sektoru?
5. Nepodarilo se mi nakreslit cokoli na plochu ve Windows - kreslit mimo okn
o aplikace. Jak toho dosahnu?
PS. Pro nekoho jsou to mozna trivialni otazky, ale ja odpoved opravdu neznam
a v knizce to neni...
Jarda
DelphiX
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.7.2001 23:10:33
Zdravim
Plocha je taky jen okno. Ma svuj handle. Zjisti si ho (asi se to bude
jmenovat Desktop) a pak na ni muzes kreslit asi pomoci Canvasu. Uz presne
nevim. Kdysi se to probiralo v konferenci, mrkni se do archivu.
Hurricane
----- Original Message -----
> 5. Nepodarilo se mi nakreslit cokoli na plochu ve Windows - kreslit mimo
okn
> o aplikace. Jak toho dosahnu?D6 a TDataset
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2001 23:28:33
From: "Lubo Fule" <fule(zv)ekosoft.sk>
> 1. Ma Delphi 6 TDataset?
Samozrejme.
> 2. Ak ano je kompatibilny s D5
Zadne vetsi zmeny tam na prvni pohled nejsou.
Petr Vones, amatersky programator
www a e-mail
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2001 23:29:31
From: "Libor Zapletal" <zapletal.libor(zv)c-box(tec)cz>
> "resim" takovy problemek jak v textu (neco na zpusob Tmemo, TRichEdit,...)
> najit www adresu ci e-mail (pokud mozno automaticky) zvyraznit je a
> kliknutim na ne spustit inet explorer popr. poslat e-mail (spustit Outlook).
Ahoj,
toto maji novejsi verze Richeditu, hledej komponentu TRichEdit98 na Torry
apod.
Petr Vones, amatersky programator
Instalator klienta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2001 23:32:07
From: "Michal Sefcik" <mikese(zv)benefitcz(tec)cz>
> k databazi. To vse samozrejme s vyuzitim korektniho postupu instalace BDE,
> unattenden instalace SQL klienta (MS SQL 7.0) pomoci vytvoreneho ISS
Ahoj,
MS SQL7 a BDE, neni v tehle kombinaci uz z principu cosi nezdraveho ?
Instalovat *spolehlive* BDE na 'neznamy' pocitac je temer neresitelne, pokud
uz na nem existuje jina aplikace ktera BDE taktez pouziva.
Petr Vones, amatersky programator
Linkovanie obj vytvoreneho v C++
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.7.2001 00:19:50
From: "Lubo Fule" <fule(zv)ekosoft.sk>
> To je pravda... Potom by to mozno slo tak, ze by si C++ zdrojaky skompiloval
> nejakym Borlandovskym C++ kopilatorom (napr. Builder) na .obj a tie by sa
> mali dat do delphi prilinkovat. Malo by to podla mna fungovat podobne ako v
Ahoj,
tady je na toto tema (uz starsi) clanek:
http://www.melander.dk/lib/delphi/bcc_and_delphi/brick.html
Mimochodem nebylo by snazsi prepsat ten kod do ObjectPascalu (pokud to nema
nekolik tisic radek)
Petr Vones, amatersky programator
Kapacita TRichEdit
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 5.7.2001 09:10:21
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> No jo, odkaz jsem napsal spatnej. Jinak ale SynEdit je urcen i pro RTF
> format. BEz podpory RTF je SynMemo. Jako nahradu RichEditu bych asi pouzil
> RichEdit98.
Ja ani tak nepotrebuju formatovaci vlastnosti toho RichEdit, spis pouzivam
to vyhledavani a tisk v nem. Slo mi jen o tu kapacitu, aby to pak nehazelo
nejaky errory ohledne nedostatku pameti nebo podobne.Pocet stranek pred tiskem
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 5.7.2001 09:15:09
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Principialne jde vlastne o tohle: milimetry z tiskarny (vyska tisknutelne
> stranky) prevest na .......
Diky za vycerpavajici odpoved, nejak to zkusim zpatlat. Mam mensi vyhodu ze
to delam jenom pro jeden font, tak uvidim.
FFTable v DLL, jak na data v DBGrid na TForm ?
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 5.7.2001 09:19:09
Hezky den vsem,
spise by mel dotaz patrit do FlashFiler konference, ale da se pouzit
vseobecne.
V DLL knihovne mam FFEngine, FFSession a FFTable. Zavedeni, pripojeni k
tabulce atd. funguje.
Mam TForm, na ktery umistim DataSource a DBGrid.
Ted potrebuju nejak propojit DataSource.DataSet na FFTable resp. TTable.
Muze mi nekdo poradit jak ?
Je sice jednodussi placnout komponenty FFTable na form, ale v DLL si
dynamicky pridavam a ubiram FFTable dle potreby.
Resil nekdo podobny problem ? Dekuji .
Bye Ludan
speaker a mazani souboru
[*] Roman <roman.ozana(zv)sendme(tec)cz> - 5.7.2001 09:31:15
Jde v delphi pouzivat PC speaker? A druhy dotaz jak smazat soubory uplne (ne
pouze do kose) v delphi?
Ratanie so String
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 5.7.2001 10:19:10
Mam v premennej definovanej ako String nejaky vzorec. Napr.: '(17+3)^2/2'.
Ako z nej dostanem vysledok?
Generovanie hlasu
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 5.7.2001 10:19:06
Uz je tomu asi rok, co sa tu diskutovalo na temu Rozpoznanie hlasu. Ja mam
ale iny problem: ako hlas generovat. Mam maly program, ktory slova rozklada
na slabiky a hlada k nim subory wav ktore nasledne prehra. Tento sposob to
vsak pomaly, nedokonaly a neefektivny. Zaoberali ste sa niekto podobnym
problemom?
Kylix - problem s menu
[*] martin <martin.chaloupka(zv)bbdo-interone.de> - 5.7.2001 11:35:49
Dobry den,
mam nasledujici problem. Pri pokusu o otevreni Options z menu Project mi
Kylix 'zmrzne' a odejde do vecnych lovist... Tak se chci zeptat, jestli nekdo
nema podobnou zkusenost.
Jedna se o Kylix - server, provozuji to Mandrake 8.0 se standardne dodavanym
jadrem 2.4.3-20 (neprekompilovane), glibc 2.2.2-5, bezi to pod kde 2.1.1-2 a
X server je 4.0.3 - 7.
Pokud jsem pouzival enlightenment, byl Kylix extremne nestabilni (nutny
restart cca kazdych 20 minut), ale to jsem pricital danemu manageru.
(HW - PIII, 128 Mb pameti - na HW bych to nesvadel, spis (a bohuzel) vidim
problem v Md 8.0 - predchozi verze (7.2) mi prisla radove odladenejsi .... )
Pokud ma nekdo z Vas nejakou ideu, budu za ni vdecny.
Diky a s pozdravem Martin Chaloupka
OT: p�ipojen� dvou PC k Internetu
[*] Jackie X <jackie.x(zv)seznam(tec)cz> - 5.7.2001 13:02:15
Jak za��dit to, aby dva po��ta�e mohli sd�let p�ipojen� (vyt��en�) k
Internetu? Mus� m�t oba s�#ovou kartu nebo to jde i bez n� jinak?
D�ky
J. X.StatusText vs. Label
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 5.7.2001 13:58:47
Label - popisky na formulari
StaticText - zobrazovani rychle probihajiciho deje (stopky, apod.) S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Bircow" <bircow(zv)atlas(tec)cz>
Sent: Monday, July 02, 2001 1:12 PM
> Jak� je rozd�l mezi komponentou Label z palety Standard a mezi StaticText z
> Additional?String na PChar
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 5.7.2001 14:22:08
Jenom poznamka:
- problematiku Pchar, String i null terminated stringu popisuje Delphi4 od M.Cantu na str. 53/54
- konverzi PChar>String si provadeji Delphiny, pripadne je mozne pouzit A:=String(Pchar(A)); S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Fredy (nightmare) Crueger" <Fredy.C(zv)seznam(tec)cz>
Sent: Sunday, July 01, 2001 6:35 PM
Tomuto prevodu jsem se pokud mozno vyhybal, ale nyni uz se to stava nevyhnutelnou casti programu. Vim, ze existuje funkce
StrPCopy(dest: PChar, source: string), ale pred timto jsem v helpu nasel nejaky alokovani pameti pro ten PChar pomoci
StrAlloc(delka: integer) a na konci jeho uvolneni StrDispose(Pchar). Doposud sem to takto delal, ale nedavno sem nekde zahledl
neco na zpusob funkce PChar(string), ktera rovnou prevede string na PChar. Zkusil sem to a fungovalo to v poradku, ale zajimalo
by me, jestli to nejak nevadi. Ta funkce PChar() nikde v helpu neni zdokumentovana, takze nevim co vlastne dela, jestli to
neprevadi uplne stejne jako ja pomoci tech trech funkci a nebo nejak jednoduseji. Zajimal by me vas nazor na tento prevod co je
spravne.
dotaz
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 5.7.2001 21:37:08
Mam tri obrazky (bmp) a jeden Form. Potreboval bych aby form byl pouze v oblastech obrazku, tedy vytvarovat formu podle tri bmp obrazku. Jak zabranit ALT+TAB apod.?
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 5.7.2001 16:10:39 -0400
Zdravim,
jak bych mohl udelat, aby ma aplikace ignorovala klavesove zkratky, jako
CTRL+Esc, ALT+TAB apod., ci klavesu Windows, zkratka aby se uzivatel nemohl z
aplikace(pokryva celou obrazovku) dostat do windows aniz by program ukoncil?
Diky
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Inherits from a DLL
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 6.7.2001 10:14:53
Ahoj
Mam DLL knihovnu ve ktere se nachazeji dva ruzne objekty odvozene od
stejneho predka. A aplikaci, ktera tuto knihovnu a tyto objekty
pouziva. V teto aplikaci je problem, ze operator IS (vyuzivajici
metodu TOBject InheritsFrom) nevraci spravne vysledky pri zjistovani
jakeho typu je objekt vraceny DLLknihovnou. Doceltl jsem se, ze kazda
aplikace a DLL knihovna si uchovava vlastni kopii tabulek trid a
proto to nefunguje pro objekty predane mezi aplikaci a DLL knihovnou
spravne.
Otazka ovsem zni, jak to obejit, rozchodit, zprovoznit??
Predem diky za odpovedi.
Petr
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
Propojeni dvou pocitacu po internetu(v delphi)
[*] Roman <roman.ozana(zv)sendme(tec)cz> - 6.7.2001 13:50:21
Nemate nekdo nejaky priklad (zdrojak na aplikaci) typu klient server (pokud
mozno jednoduchy), nebo na propojeni dvou pocitacu po internetu v delphi a
prenos dat obema smery.OT: multitasking v DOSu
[*] Jackie X <jackie.x(zv)seznam(tec)cz> - 6.7.2001 13:56:03
Dobry den,
myslite, ze by se v Pascalu dal napsat program, ktery by umoznil soucasny
beh dvou programu v DOSu? Obsluha preruseni $1c by menila CS:IP.
OT: multitasking v DOSu
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 6.7.2001 16:13:35
JX> Dobry den,
JX> myslite, ze by se v Pascalu dal napsat program, ktery by umoznil soucasny
JX> beh dvou programu v DOSu? Obsluha preruseni $1c by menila CS:IP.
Samozrejme, ze by to slo, kdysi jsem pro to videl nekde knihovny
{vzdyt Win jsou taky jen nadstavba DOSu). Ale jednoduzsi bude udelat
jenom taskswitching. S mutitaskingem bude problem, protoze budete
muste vytvorit i napr. virtualni HW, protoze dva programy budou asi
spatne prstupovat na jeden monitor...OT: multitasking v DOSu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 6.7.2001 16:13:36
To se dalo snad rict o Win 3.11, ale od Win95 uz nejsou nadstavbou ale OS se
zabudovanym dosem pro zpetnou kompaktibilitu.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> {vzdyt Win jsou taky jen nadstavba DOSu). Ale jednoduzsi bude udelat
multitasking v DOSu
[*] Ji�� HAVELKA����*���zY�W�#�� - 6.7.2001 16:25:04
----- Original Message -----
From: Jackie X <jackie.x(zv)seznam(tec)cz>
To: Delphi Konference <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 06, 2001 1:56 PM
Subject: OT: multitasking v DOSu
> Dobry den,
> myslite, ze by se v Pascalu dal napsat program, ktery by umoznil soucasny
> beh dvou programu v DOSu? Obsluha preruseni $1c by menila CS:IP.
>
Podivej se na:
http://programators.jinak(tec)cz/pas/multitsk.zip
Jednoduchy, ale perfektni :-) kooperativni multitasking. Obsahuje unity, dem
a, ale zatim je bez dokumentace (popis v unitach je docela dostacujici).
nebo
http://programators.jinak(tec)cz/pas/tpproc32.zip
Zase multitasking. Tentokrat ale velmi propracovany a s dokumentaci. Obsahuj
e i nejaka dema. Rozhodne stoji za zkousku.
S pozdravem Jiri HAVELKA
Propojeni dvou pocitacu po internetu(v delphi)
[*] Ji�� HAVELKA����*���zY�W�#�� - 6.7.2001 16:36:50
----- Original Message -----
From: Roman <roman.ozana(zv)sendme(tec)cz>
To: dkonference <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 06, 2001 1:50 PM
Subject: Propojeni dvou pocitacu po internetu(v delphi)> Nemate nekdo nejaky priklad (zdrojak na aplikaci) typu klient server
(pokud
> mozno jednoduchy), nebo na propojeni dvou pocitacu po internetu v delphi a
> prenos dat obema smery.
>
V podadresari delphi Demos\Internet\Chat je ulozen demoprojekt, kde je to
reseno
primo pomoci TCP/IP socketu (komponenty TClientSocket a TServerSocket).
S pozdravem Jiri HAVELKA
Ratanie so String
[*] pisingr <pisingr(zv)volny(tec)cz> - 6.7.2001 18:06:12
Asi bych to udelal tak, ze bych ukladal jednotliva cisla do promennych a
analyzoval znamenka mezi nimy. Pak se da ziskat vysledek. Melo by to tak byt
univerzalni, ale jednoduche rozhodne ne. Nic lepsiho me ted nenapada.
Pising
----- Original Message -----
From: "Martin Kasman" <martinkasman(zv)pobox.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 05, 2001 10:19 AM
Subject: Ratanie so String
> Mam v premennej definovanej ako String nejaky vzorec. Napr.: '(17+3)^2/2'.
> Ako z nej dostanem vysledok?
>
>
>TWebBrowser
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 6.7.2001 18:30:01
Pri browsovani pomocou TWebbrowser sa zmeni kurzor mysi na crHandPoint
(prst) pri zastaveni na linke. Nestane sa vsak tak, pokial ho umiestnim na
obrazok robeny ako odkaz. Ako by sa dal riesit tento problem?
Re[2]: OT: multitasking v DOSu
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 6.7.2001 18:31:54
PM> To se dalo snad rict o Win 3.11, ale od Win95 uz nejsou nadstavbou ale OS se
PM> zabudovanym dosem pro zpetnou kompaktibilitu.
Nesouhlasim....
Jak by jsi mi jinak vysvetli ze Win95 bez OS DOS pod nimi
nenabehnou... Spousta veci je v nich jeste stale 16b, ...Re[2]: OT: multitasking v DOSu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 6.7.2001 18:31:31
Ale nabehnou i bez dosu.
> Jak by jsi mi jinak vysvetli ze Win95 bez OS DOS pod nimi
> nenabehnou... Spousta veci je v nich jeste stale 16b, ...Creation order
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 6.7.2001 19:11:13
Muze se %subj% po kompilaci menit, nebo ma kazda komponenta po kompilaci
svoje nemenne cislo? Jde mi o to, ze sem si zjistil ComponentIndex tech
komponent, ktere potrebuju menit. Udelal sem to z duvodu rychlosti, abych
nemusel pri kazdem startu projizdet smyckou vsechny komponety a hledat ty
spravne. Co si o tom myslite?
PING
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 6.7.2001 21:15:11
Zdravim konferenci,
vi nekdo jak naprogramovat v Delphi ping? Potrebuju testovat spojeni
se serverem bez zavislosti na sluzbach na serveru.
Predem dik
EStringListError podruhe
[*] pisingr <pisingr(zv)volny(tec)cz> - 6.7.2001 21:26:50
Dobry den,
jeste jednou bych se rad zeptal ohledne EStringListError. Jsou nejake znaky,
ktere by se v promenne s nameli vyskytnout? Mohl by byt obsah promenne
problemem?
zasilam kousek kodu pri kterem mi delphi generuji EStringListError. Jedna se
o radek oznaceny *.
j,k: Integer
s: String
for j:=0 to i-1 do
begin
s:=FileListBox1.Items.Strings[j];
k:=pos('.',s);
Delete(s,k,4);
Memo2.Lines.Strings[j]:=s;
* Form8D_fib.ComboBox1.Items.Strings[j]:=s;
end;
Nevite prosim cim by to mohlo byt. Delphi 5, W2000
Dekuji za pomoc
Pisingr
Delphi 7 release: 10/2002
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 6.7.2001 22:02:43
do neparnej veraie Delphi je este viac nez rok:
==================== CUT =================================
Main features for Delphi 7:
- Complete support for .net platform (they are porting VCL
right now)
- Support for components written in C++Builder (so it will
include the BC++ compiler).
- compiler integrated documentation generation (like JDocs)
- Several additions to the CLX-library.
=================== PASTE =================================
PING
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.7.2001 23:24:04
From: "Stanislav PETR" <glux(zv)centrum(tec)cz>
> vi nekdo jak naprogramovat v Delphi ping? Potrebuju testovat spojeni
> se serverem bez zavislosti na sluzbach na serveru.
Ahoj,
pomoci TIdICMPClient z Indy (http://www.nevrona.com/Indy) Priklad se jmenuje
PingGUI.
Petr Vones, amatersky programator
Inherits from a DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.7.2001 23:25:31
From: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
> Otazka ovsem zni, jak to obejit, rozchodit, zprovoznit??
Ahoj,
musis jak aplikaci tak knihovnu prelozit s runtime balicky (ve kterych budou
prave ty spolecne tridy)
Petr Vones, amatersky programator
speaker a mazani souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.7.2001 23:29:44
From: "Roman" <roman.ozana(zv)sendme(tec)cz>
> Jde v delphi pouzivat PC speaker?
Ahoj,
jde, viz priklad:
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=oct&den=16&soubor=dlfaaacy.htm
> A druhy dotaz jak smazat soubory uplne (ne pouze do kose) v delphi?
pomoci funkce DeleteFile
Petr Vones, amatersky programator
Ratanie so String
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.7.2001 06:28:30
Existuji programy jiz hotove, ktere ti toto delaji. Na TORRI nebo DPS
jich urcite najdes spoustu. Hledej slovo 'parser'
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.7.2001 pisingr:
> Asi bych to udelal tak, ze bych ukladal jednotliva cisla do promennych a
> analyzoval znamenka mezi nimy. Pak se da ziskat vysledek. Melo by to tak byt
> univerzalni, ale jednoduche rozhodne ne. Nic lepsiho me ted nenapada.
> From: "Martin Kasman" <martinkasman(zv)pobox.sk>
>> Mam v premennej definovanej ako String nejaky vzorec. Napr.: '(17+3)^2/2'.
>> Ako z nej dostanem vysledok?Delphi 7 release: 10/2002
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.7.2001 13:35:09
From: "Viliam Mlich" <vmlich(zv)mbox.vol(tec)cz>
> Subject: Delphi 7 release: 10/2002
Tady ma nekdo kristalovou kouli ;-)
Petr Vones, amatersky programator
Delphi 7 release: 10/2002
[*] Erik Salaj <winsoft(zv)stonline.sk> - 7.7.2001 14:48:15
> Main features for Delphi 7:
> - Complete support for .net platform (they are porting VCL
> right now)
Mozno by bolo lepsie, keby spravili konvertor existujucich VCL/CLX
aplikacii do .NET aplikacii (pouzivajucimi .Net komponenty). Nevidim
totiz dovod pouzivat rozne komponenty (.Net, VCL, CLX) v jednej
aplikacii na ten isty ucel, jedine snad koli co najjednoduchsej portacii
uz existujucich VCL/CLX aplikacii (co by vsak mohol zabezpecit
aj spominany konvertor).
Podporu Delphi pre .Net povazujem za velke plus, na druhej strane
nevidim velky dovod, preco prave by so mal programovat pre .Net
v Delphi, ked existuju lepsie jazyky pre .Net (napr. C# a Eiffel).
> - Support for components written in C++Builder (so it will
> include the BC++ compiler).
V .Net existuje automaticky kompatibilita medzi komponentami
vytvorenymi v roznych programovacich jazykoch a to aj bez
zdrojoveho kodu a kompilatora.
> - compiler integrated documentation generation (like JDocs)
Toto je jedna z charakteristickych vlastnosti Eiffel-u: dokumentacia
sa generuje priamo zo zdrojoveho kodu (co znizuje naklady
spojene s vytvaranim dokumentacie a odstranuje problemy
s nezrovnalostami medzi kodom a jeho dokumentaciou hlavne
v procese udrzby).
> - Several additions to the CLX-library.
Tu je otazka, ci by nebolo lepsie sa zjednotit na jednej kniznici
komponentov (najlepsie .Net, ktora nie je specificka iba pre Borland)
a ci ma vyznam dalej podporovat VCL a CLX.
Erik
Import formul���
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.7.2001 17:33:30
On 2 Jul 2001, at 13:31, Bircow wrote:
> Nev�te jestli existuje n�jak� utilita pro p�evod formul߰u z Delphi do
> Visual C++ a naopak? Formul߰e Visual Basicu umo�uje VC++ importovat
> standardn� a stejn� jednodu#e bych cht�l importovat i formul߰e z
> Delphi.
Vzhledem k tomu, ze Delphi pouziva uplne jiny system popisu
formulare, obavam se, ze mas smulu.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Instalator klienta
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.7.2001 17:33:30
On 4 Jul 2001, at 14:08, Michal Sefcik wrote:
> Vim, ze se zde tato problematika resila jiz mnohokrate.
> Nicmene by mne zajimalo, zda nekdo vytvarel vlastni aplikaci, ktera
> sama nainstaluje BDE, SQL klienta vytvori zastupce, pripadne overi
> konektivitu k databazi. To vse samozrejme s vyuzitim korektniho
> postupu instalace BDE, unattenden instalace SQL klienta (MS SQL 7.0)
Pokud ti mohu doporucit, tak MS SQL7 zasadne neprovozuj s
BDE, ale spise s ADO. A to i za cenu, ze budes muset prepsat
cely program - vyplati se to.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Fonty v ruskych Windows
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.7.2001 17:33:30
On 4 Jul 2001, at 13:49, David Lebeda wrote:
> vytvarim aplikaci, ktera bude existovat v ceske, anglicke a ruske
> jazykove mutaci. Rustina dela trochu problemy, proto bych se chtel
> zeptat tech, kteri se lokalizaci do rustiny uz zabyvali, na nazor.
>
> 1) Pro rustinu je treba mit u vsech prvku nastaven vhodny font, v mem
> pripade Times New Roman s charsetem Cyrilic. Znamena to, ze krome
> lokalizace lokalizatorem musim pouzivat i podmineny preklad, ktery pri
> tvorbe ruske verze nastavi Cyrilic charset u fontu vsech prvku na
> formu? Neexistuje nejaky font, ktery obsahuje ceske i ruske znaky v
> jednom charsetu? Pokud vim, unicode a VCL nejdou moc dohromady.
Hodne zalezi na tom, na jake verzi Woken to pobezi, zda rustina
na ruske, nebo rustina na ceske atp. Jinak podmineny preklad neni
treba, pokud pobezi kazdy jazyk na sve verzi Woken, pak plne
postacuje default_charset. Pokud se maji jazyky michat na
ruznych Woknech, pak je vhodne nastavit nejaky charset tak, aby
se objevil v DFM, a ten lze potom Lokalizatorem zmenit (pozor,
tohle lze az od LL4, v LL3 to nelze).
> 2) Pokud bych chtel za behu zmenit font napr.
> Label1.Font := 'Arial'
>
> - nenarazim na ruskych Windows? Jde mi o to, jestli na ruskych
> Windows vubec existuje pismo Arial (psane latinkou), nebo jestli se
> nejmenuje sice Arial, ale psano azbukou.
Pokud vyjmenovany font neni nainstalovan, pak Wokna hledaji
nejaky pribuzny. Ale ne vzdy to dopadne dobre. Ja pouzivam Arial v
Lokalizatoru 5, a zatim si nikdo nestezoval. Mam tam ale moznost
zmenit globalni font formularu...
> 3) Jak je to v D6? Neni v D6 mozne pouzivat jiz nejaky unicode font ve
> VCL?
Unicode neni font, ale zpusob kodovani znaku. Jinak VCL zustava
stale cela ANSI, s unicode retezci lze pracovat v programu jakkoliv,
co se tyka komponent, je treba si je vyprogramovat. Ale je to
pakarna, protoze W9x radu unicode funkci nepodporuji.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi Standart a DB pristup
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.7.2001 17:33:30
On 2 Jul 2001, at 16:11, Petr Vones wrote:
> > toho som sa obaval. existuje nejaka nahrada datasetu?
>
> zalezi na tom co potrebujes delat. Pokud ti jde jen o to provest
> nejaky SQL prikaz/dotaz a obcas zobrazit nejaky vysledek z databaze
> tak muzes pouzit Zbyskovo OLE DB
> (http://delphree.clexpert.com/pages/app_OLEDB.htm).
Tak to bych se ohradil, protoze v mych komponentach lze delat
prakticky vse, co je treba. Ovsem uplne jinak, nez s TDataset. A
funguje to se Sineou.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zakladni deska
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 7.7.2001 23:07:51
----- Original Message -----
From: "Ji�� Foldyna" <jiri.f(zv)avizo(tec)cz>
To: "'Delphi konference'" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 04, 2001 8:44 AM
Subject: OT: Zakladni deska
> Ahoj,
>
> resim problem upgrade pixly. Muzete mi prosim sdelit sve pripadne
zkusenosti
> s motherboardy pro Socket A (AMD Duron/T-Bird), ktere pouzivate ? Spise
> reference typu "mam ABC123 s Duronem 800(zv)900, zadny problem" nebo "mel
jsem
> XY456, ale nepodarilo se mi na tom rozchodit D5" nez obecne uvahy. Uz jsem
> si prosel par sajtu, neco jsem precetl, ale neni nad prakticke zkusenosti.
> Chci to pro W2K a D5 Ent.
>
> Diky
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
Zdravim a sdeluji, ze k naproste spokojenosti pouzivam Abit KT7A, bez RAID
pole
s Duronem 650 Mhz, pretaktovany (odblokov�n�m na procesoru vodiv�m lakem -
viz www.overclocking(tec)cz) na FSB 133 MhHz, nasobic 7, t.j. 933 MHz, pamet
PC133 KingMax, oficialne typ s casovanim 3T, bez problemu nastaveno na 2T.
Chladic typu turbina (M5AB), otepleni proti vnitrku case 28#C pri behu CPU
StabilityTest V 1.5 (od Jouni Vuorio) po 10 minutach behu testu. Po
instalaci SP2 pro W2k a ovladacu VIA 4in1 V 4.32 je rychlost HD jiz
srovnatelna s W98 (to je zatim asi jedina bolest cippsetu VIA). Do SP2 a
driveru 4.31 to odmitalo na disku IBM 15 GB, 7200 ot, 2MB cache akceptovat
ATA 100 (tomu nepomohl ani patch MS pro ATA 100, drive stazeny z internetu).
Rychlost pameti pri vyse uvedenem nastaveni ukazuje Sandra 2001 na 480 a 520
MB/s.
Petr Marik
rtepema(zv)mbox.vol(tec)cz
QReport - lokalizacia
[*] <mms(zv)host.sk> - 7.7.2001 23:11:34
Zdravim Vas,
daju sa nejak lokalizovat hinty a napis tlacitka Close na formulari Preview v zostave Quicreportu?
Diky MiroMr
Rusena seriova komunikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 8.7.2001 11:44:26
Dobry den,
nevite nekdo nahodou priklad, komponentu na komunikaci po seriove lince,
ktera je rusena?
Dekuji
Zdenek
QReport - lokalizacia
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.7.2001 13:48:14
Bud si otevres soubor QRPrev.DFM a tam si to rucne uprav nebo si
vytvor vlastni preview.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
7.7.2001 mms(zv)host.sk:
> Zdravim Vas,
> daju sa nejak lokalizovat hinty a napis tlacitka Close na formulari Preview v zostave Quicreportu?QReport - lokalizacia
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 8.7.2001 14:10:17
Ahoj,.
On 7 Jul 2001, at 23:11, mms(zv)host.sk wrote:
> Zdravim Vas,
> daju sa nejak lokalizovat hinty a napis tlacitka Close na formulari Preview v zostave Quicreportu?
jiste, to neni problem. V adresari \Delphi\Lib si najdi qrprev.dfm,
otevri a jak hinty tak caption muzes prepsat.
Jarek Uher
QReport - lokalizacia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.7.2001 14:13:34
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
> jiste, to neni problem. V adresari \Delphi\Lib si najdi qrprev.dfm,
> otevri a jak hinty tak caption muzes prepsat.
Ahoj,
problem to je, protoze toto 'reseni':
a) nefunguje s runtime balicky
b) budes muset DFM prekladat po kazdem updatu QuickReportu.
Petr Vones, amatersky programator
ComPort - navrh komunikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.7.2001 14:17:45
From: "Filip Honzarek" <DEVELOPER(zv)pcforum(tec)cz>
> Muzete mi poradi nejlepsi zpusob takoveto komunikace?
> Slo by udelat, abych vsechny 4kroky delal v jedne proc. ci funckci?
Ahoj,
asi slo ale prijde mi to jako pomerne spatne reseni. Lepsi je celou komunikaci
bud provadet v samostatnem threadu ktery pak bude oznamovat pouze vysledek
komunikace nebo to rozdelit na jednotlive casti, ukladat si stav a na zaklade
dokonceni urcite casti operace zavolat dalsi atd..
Petr Vones, amatersky programator
Pouziti otazniku vedle zaviraciho krizku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.7.2001 14:23:42
From: "Ing. Petr �vejda" <lingvista(zv)lingvista(tec)cz>
> jak mohu pouzit otaznik vedle zaviraciho krizku. Dokazu ho vyvolat, ale
> nedokazi s nim dale pracovat. (pochopitelne vim, na co slouzi)
Ahoj,
function TForm1.ApplicationEvents1Help(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
if Command = HELP_CONTEXTPOPUP then
ShowMessageFmt('%d', [Data]);
end;
Petr Vones, amatersky programator
PING
[*] Milan Blazek <mbsint(zv)telecom(tec)cz> - 8.7.2001 16:40:46
Zdravim,
mam problem s instalaci komponent Indy - pri nahrani Indy40.bpl mi to hlasi
chybu.
Nemate nekdo zkusenost s instalaci teto sady komponent?
Pouzivam D4 C/S a WIN98.
Diky za odpovedi.
M.Blazek
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 06, 2001 11:24 PM
Subject: Re: PING
> From: "Stanislav PETR" <glux(zv)centrum(tec)cz>
> > vi nekdo jak naprogramovat v Delphi ping? Potrebuju testovat spojeni
> > se serverem bez zavislosti na sluzbach na serveru.
>
> Ahoj,
>
> pomoci TIdICMPClient z Indy (http://www.nevrona.com/Indy) Priklad se
jmenuje
> PingGUI.
>
> Petr Vones, amatersky programator
>
>PING
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.7.2001 17:39:11
From: "Milan Blazek" <mbsint(zv)telecom(tec)cz>
> mam problem s instalaci komponent Indy - pri nahrani Indy40.bpl mi to hlasi
> chybu.
Ahoj,
a mas aktualizovanou verzi D4, tedy Update Pack #3 ?
Petr Vones, amatersky programator
PING
[*] Milan Blazek <mbsint(zv)telecom(tec)cz> - 8.7.2001 19:08:46
Opet ahoj,
diky moc za snahu pomoci!
Update na D4 / SP3 mam, ale problem jsem jiz odhalil.
Moji chybou (logicky) jsem instaloval balicek Indy40.bpl, ale jak jsem
zjistil, tak se musi instalovat "dclIndy40.bpl" - to vsak nikde neni
popsano.
Nyni to vypada OK!
Diky
M.Blazek
> a mas aktualizovanou verzi D4, tedy Update Pack #3 ?
>
> Petr Vones, amatersky programator
>
>Potize s komponentama INDY...
[*] Milan Blazek <mbsint(zv)telecom(tec)cz> - 8.7.2001 20:36:49
Zdravim,
mam dotaz na problem s komponentama INDY. Respektive pri spousteni
demo projektu (ktery je soucasti balicku INDY) se mi opakovane zobrazuje v
IDE
chyba "Invalid stream format". Pri pokusu o kompilaci mam hlaseni o
nepodporovanem 16bit formatu RESOURCE v souboru *.DFM. Muzete mi poradit
jak to odstranit.
Pouzivam D4 C/S SP3 a WIN98.
Predem diky
M.Blazek
Potize s komponentama INDY...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.7.2001 20:47:56
From: "Milan Blazek" <mbsint(zv)telecom(tec)cz>
> chyba "Invalid stream format". Pri pokusu o kompilaci mam hlaseni o
> nepodporovanem 16bit formatu RESOURCE v souboru *.DFM. Muzete mi poradit
Ahoj,
neni problem v tom, ze je DFM v textovem formatu coz jeste D4 neumi zpracovat
? Pokud ano, tak jej muzes prevest pomoci utility CONVERT ktera je v \Bin
adresari.
Petr Vones, amatersky programator
Jaka chyba v procedure ??
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 8.7.2001 22:25:39
Ahoj, tady je kousek procedury. Nejak mi tam nefunguje ta promenna cinnost.
Je to takto napsane dobre ?
..............
..............
If (zv)PocetPolozek = 1
begin
Select (zv)Doplnek = '(C.Druh_cinnosti='+(zv)Cinnost1+')' //Na poctu
polozek cislo 1 mi to funguje, na poctu dve ne, jak je to mozne ????
end
If (zv)PocetPolozek = 2
begin
Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
(C.Druh_cinnosti='+(zv)Cinnost2+'))'
end
else
begin
Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
(C.Druh_cinnosti='+(zv)Cinnost2+') Or
(C.Druh_cinnosti='+(zv)Cinnost3+'))'
end
...................
..............EStringListError podruhe
[*] Lauko Stefan <laukosw(zv)naex.sk> - 9.7.2001 02:20:45
----- Original Message -----
From: pisingr <pisingr(zv)volny(tec)cz>
> jeste jednou bych se rad zeptal ohledne EStringListError. Jsou nejake
znaky,
> ktere by se v promenne s nameli vyskytnout? Mohl by byt obsah promenne
> problemem?
> zasilam kousek kodu pri kterem mi delphi generuji EStringListError. Jedna
se
> o radek oznaceny *.
> j,k: Integer
> s: String
>
> for j:=0 to i-1 do
> begin
> s:=FileListBox1.Items.Strings[j];
> k:=pos('.',s);
> Delete(s,k,4);
> Memo2.Lines.Strings[j]:=s;
> * Form8D_fib.ComboBox1.Items.Strings[j]:=s;
> end;
Ahoj,
Problemovy znak v Stringlist je #0 (null). V tvojom priklade je ale ina
chyba.
Takto som to nikdy nepouzival Memo2.Lines.Strings[j]:=s; mozes
Memo2.Lines[j]:=s;
Asi je hodnota J > Count-1. A hodnota i je aka?
Cele, by som to riesil takto:
Memo2.Lines.Clear;
for j:=0 to FileListBox1.Items.Count-1 do
begin
Memo2.Lines.Add(ChangeFileExt(FileListBox1.Items[j],''));
end;
Form8D_fib.ComboBox1.Items.Assign(Memo2.Lines);
Lauko.
Jaka chyba v procedure ??
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 9.7.2001 06:57:42
08.07.2001 Hazuka Filip:
> Ahoj, tady je kousek procedury. Nejak mi tam nefunguje ta promenna cinnost.
> Je to takto napsane dobre ?
> ..............
> ..............
> If (zv)PocetPolozek = 1
> begin
> Select (zv)Doplnek = '(C.Druh_cinnosti='+(zv)Cinnost1+')' //Na poctu
> polozek cislo 1 mi to funguje, na poctu dve ne, jak je to mozne ????
> end
Predesly prikaz nema vyznam, nebot tento nasledujici ma else, ktery se
uplatni napr pri (zv)PocetPolozek = 1, takze (zv)Doplnek se prepise. Takze
pokud Ti funguje pocet polozek pro 1, tak prave z toho druheho
prikazu.
> If (zv)PocetPolozek = 2
> begin
> Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
> (C.Druh_cinnosti='+(zv)Cinnost2+'))'
> end
> else
> begin
> Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
> (C.Druh_cinnosti='+(zv)Cinnost2+') Or
> (C.Druh_cinnosti='+(zv)Cinnost3+'))'
> end
> ...................
> ..............
Bylo by dobre napsat, jak jsou deklarovane promenne a pouzite sloupce
tabulky. A co Ti tam vlastne nefunguje (mas rozbitou promennou cinnost
:))?
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
Excel a TExcel....
[*] Tom� Janta����##��{�#��Y��̿ - 9.7.2001 07:12:55
> Takhle to pouzivam ja. tedy misto sheetType - EmptyParam
V helpu jsem nasel popis parametru Type pro Sheets.Add, ale kdyz jsem udelal
zanam makra v Excelu tak zdrojak vypadal nejak takhle :
Sub Makro2()
Sheets.Add Type:= _
"F:\Documents and Settings\Tomas1\Data
aplikac�\Microsoft\�ablony\Sablona.XLT"
End Sub
A presne o tohle ja se ted pokousim v Delphi, poradi nekdo jak na tohle s
Delphi Servers komponentama? PLS
Diky
Tomas Jantac
PaPouch elektronika
www.papouch.com
> From: Tomas Pocarovsky
>
> SheetType neni cesta, ale typ, viz nize. Cestu a nazev zadavas pri
> connectnuti workbooku, nebo kdyz pouzijes SaveAs
>
> WS.ConnectTo(WkBk.Worksheets.Add
> (EmptyParam, EmptyParam, 1, EmptyParam, lcid) as _WorkSheet);
B-Tree Filer a DBF
[*] Zaplik <zaplik(zv)volny(tec)cz> - 9.7.2001 07:22:39
Zdravicko pratele, nevite nekdo o komponente pro nacteni dat z databaze
b-tree filer do dbf, ale abych nemusel mit b-tree filer nainstalovan? A
hlavne free.
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
FFTable v DLL, jak na data v DBGrid na TForm ?
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 9.7.2001 07:32:25
Co zavolat funkci v DLL, ktera dany table vrati? Zkousel jsi to?
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ing. Lud�k Florian
> V DLL knihovne mam FFEngine, FFSession a FFTable. Zavedeni, pripojeni k
> tabulce atd. funguje.
>
> Mam TForm, na ktery umistim DataSource a DBGrid.
>
> Ted potrebuju nejak propojit DataSource.DataSet na FFTable resp. TTable.
> Muze mi nekdo poradit jak ?ffQuery kontra ffTable
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 9.7.2001 07:32:24
Souhlasim s Petrem, mrkni do profileru, nicmene si myslim, ze nejaky zvlast
velky rozdil v rychlostech neuvidis (pokud vubec). Nicmene si myslim, ze
pokud v danem pohledu nechces editovat, je z hlediska dalsiho vyvoje
oportuni pouzit query kvuli lepsimu trideni/filtrovani, zmenam pohledu,
pripojeni dalsich tabulek apod.
Mira Ondrisek
P.S.
Opet si dovoluji upozornit, ze na serveru www.clexpert(tec)cz bezi ceska
konference specialne o FF. Je nas (zatim :-) ) mensina v Delphi komunite a
obavam se, ze vetsinu ucastniku diskuse o FF moc nezajimaji. Nehlede na
lepsi trideni v e-mail klientech.
M.O.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Zahradnik
>
> Puvodni zprava, kterou napsal David Lebeda dne 4 Jul 2001,:
>
> > chtel bych se zeptat, co je ve FF2 lepsi pouzit
> > ffQuery s dotazem typu select * from table nebo ffTable?
> ekvivalentni, tj. opravdu select *, pak bych si udelal
> obe verze a mrknul do profileru, co rychleji frci.FF1 a FF2 v jednech Delphi
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 9.7.2001 07:32:22
Ale takovato pakarna opravdu neni potreba! Opravdu staci nainstalovat FF2 do
vlastniho adresare a pak jiz v menu Component/Install Packages PRED
otevrenim projektu zatrhnout ten spravny balicek (a u spatneho zatrzeni
zrusit). Dalsi vec: v Tools\Environment Options/Library/Library Path
vzdy zmenit cestu na FF1/FF2 podle potreby.Zadny jiny problem z toho
neplyne! Mozna je jeste dobre PRED
instalaci FF2 balicek FF1 vypnout, ale to si jiz nepamatuji, jestli to bylo nutne (skoro bych se priklanel k tomu, ze jsem to neudelal).
Jinak na ftp://www.danzl.at/hannes/ftp
je programek na prepinani FF1/FF2
Mira Ondrisek
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Hurricane
>
> Zkus jednu problematickou unitu prejmenovat a zaroven prepsat jmena v
> unitach, ktere na ni odkazuji. Pak ale jeste musis zaridit, aby FF1 sahal
> pouze do urciteho adresare a FF2 zase do jienho. To kvuli mozna stejnym
> nazvum procedur a funkci. Zkus proste natvrdo napsat cestu.FFTable v DLL, jak na data v DBGrid na TForm ?
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 9.7.2001 07:47:46
Jeste k memu minulemu mailu - napada me jeste obracena moznost:
Poslat DataSource jako VAR parametr k DLL a v DLL k nemu pripojit prislusnou
table. Nezkousel jsem to...
Procedure HlavniProgram;
....
MojeDLLFunkce(MainDataSource);
...
End;
========
{ v DLL...}
Function MojeDLLFunkce(Var MainDataSource):Boolean;
Begin
....
MainDataSource.Dataset := MojeFFTable;
....
End;
Delphi 7 release: 10/2002
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 07:57:20
> > - compiler integrated documentation generation (like JDocs)
>
> Toto je jedna z charakteristickych vlastnosti Eiffel-u: dokumentacia
> sa generuje priamo zo zdrojoveho kodu (co znizuje naklady
> spojene s vytvaranim dokumentacie a odstranuje problemy
> s nezrovnalostami medzi kodom a jeho dokumentaciou hlavne
> v procese udrzby).
Jen poznamka:
Zkousel jsem psat DOC primo do kodu - a jedine co se stalo bylo silene
zneprehledneni zdrojaku (moc komentaru okolo kazde funkce, typu atd).
Cili dokumentace zdrojaku ANO ale jedine v externim souboru, ktery je
sice pevne spjat se souborem zdrojaku ale neprodluzuje jej..
D. Toman
Rusena seriova komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 07:58:58
>
> nevite nekdo nahodou priklad, komponentu na komunikaci po seriove
lince,
> ktera je rusena?
existuje spousta protokolu (Zmodem,...) pripadne by nemel byt napsat
protokol vlastni sity na miru (rozsekat komunikaci na kratsi pakety,
zajistit dorucovani potrvzeni o doruceni, opakovani prenosu,...)
D. Toman
DelphiX
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.7.2001 08:03:35
> 2. Jak (jde-li to) prevedu databazovou aplikaci s pouzitim SQL z
> DELPHI 5 do DELPHI 3. Obracene to jde, ale takhle to neumim. Hlavne se
> mi jedna o me tab ulky (o obsah nejde, nechci je tvorit znovu).
>
Ahoj,
to se obecne tezko posuzuje. Musis aspon napsat, o jakou
databazi jde a s jakymi komponentami k ni pristupujes.
David Lebeda
FF1 a FF2 v jednech Delphi
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.7.2001 08:14:30
> Zkus jednu problematickou unitu prejmenovat a zaroven prepsat jmena v
> unitach, ktere na ni odkazuji. Pak ale jeste musis zaridit, aby FF1
> sahal pouze do urciteho adresare a FF2 zase do jienho. To kvuli mozna
> stejnym nazvum procedur a funkci. Zkus proste natvrdo napsat cestu.
> Melo by to pomoct. Ja jsem pododbnym zpusobem nainstaloval
> mwCustomEdit a SynEdit.
>
Problem je, ze komponenty ve FF1 a FF2 se jmenuji stejne. To je
sice z hlediska %subj% problem, ale jinak vyhoda - veskere
vyskyty ffTable z FF1 se tim automaticky po prekladu stanou
ffTablemi z FF2, takze konverze aplikace samotna nebude asi az
tak problemova. Jedine, co se bohuzel ztratilo a co budu muset
prepsat jinym zpusobem, byly jine komponenty zalozene na
flashfileru (napr. fceTable, ktera ma daleko rychlejsi lookupy) - ty
se stejnojmennymi unitami FF2 nelze prelozit, protoze se zmenily
nektere protected funkce. Na druhou stranu SQL engine dava
dostatecne prostredky na to, abych mohl na fceTable zapomenout.
David Lebeda
EStringListError podruhe
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 9.7.2001 08:32:13
Hello pisingr!
> jeste jednou bych se rad zeptal
Ked sa budes podpisovat 'pisingr', tak sa tu s tebou moc bavit nebudu.
> * Form8D_fib.ComboBox1.Items.Strings[j]:=s;
Zabudol si napisat, aka je hodnota CombBox1.Items.Count a hodnota 'j' tesne
pred tymto prikazom. Bez toho ani tych par ludi, ktorym 'pisingr' nevadi, sa
nemaju o co opriet.
Ovsem je dost mozne, ze keby si si pri formulovani dotazu tieto udaje
overil, mozno by uz nebolo na co sa pytat.
Inak je rozumnejsie pridavat metodou Add priamo hodnotu, nez na zaciatku
naplnit zoznam prazdnymi retazcami a potom ich cez ':=' menit.
Bye
V.Mlich http://www.winrar(tec)cz
A zase Excel a DBGrid
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 9.7.2001 08:51:16
Cau
plnim data z DBGridu do excelu. Proste prolezu postupne celej grid (viz
nize) a bunku po bunce to nakopiruju na excelovskej list. Je to vsak k
uzoufani pomaly. Nevite, jak to priradit rovnou, nebo alspon zrychlit?
Neco jako :
"ColumnRange := WS.Columns;"
"ColumnRange.Columns[1]:= DBGrid.Columns.Items[1];"
nebo idealne :-)
"ws.data :=DBGrid.data"
Diky moc.
Tomas Pocarovsky
WS.ConnectTo(WkBk.Worksheets.Add
(EmptyParam, EmptyParam, 1, EmptyParam, lcid) as _WorkSheet);
j:=1;
// DBGrid.Visible:=false; pokus o urychleni :-(
with DBGrid.DataSource.DataSet do
begin
First; // postupne probere vsechny radky
dbgridu
while not Eof do
begin
for i:= 0 to FieldCount-1 do
ws.cells.item[j,i+1]:=Fields[i].AsVariant;
j:=j+1;
Next; {i}
end; {while}
end; {with}Jaka chyba v procedure ?? >> Vyreseno
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.7.2001 09:14:57
Filip Hazuka
S�pkova 363
L�zne Bohdanec
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Sent: Sunday, July 08, 2001 10:26 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Jaka chyba v procedure ??
Ahoj, tady je kousek procedury. Nejak mi tam nefunguje ta promenna cinnost.
Je to takto napsane dobre ?
..............
..............
If (zv)PocetPolozek = 1
begin
Select (zv)Doplnek = '(C.Druh_cinnosti='+(zv)Cinnost1+')' //Na poctu
polozek cislo 1 mi to funguje, na poctu dve ne, jak je to mozne ????
end
If (zv)PocetPolozek = 2
begin
Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
(C.Druh_cinnosti='+(zv)Cinnost2+'))'
end
else
begin
Select (zv)Doplnek = '((C.Druh_cinnosti='+(zv)Cinnost1+') Or
(C.Druh_cinnosti='+(zv)Cinnost2+') Or
(C.Druh_cinnosti='+(zv)Cinnost3+'))'
end
...................
..............OT: Zakladni deska
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 09.7.2001 09:15:00
Ahoj, ja pouzivam MSI K7T Turbo. Zatim jsem to sice moc neladil. Coz by chtelo, ale je to stabilni a ja jsem moc spokojeny.
S pozdravem
Mirek Drejcek
*********** REPLY SEPARATOR ***********
>resim problem upgrade pixly. Muzete mi prosim sdelit sve pripadne zkusenosti
>s motherboardy pro Socket A (AMD Duron/T-Bird), ktere pouzivate ?
Inno Setup2
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.7.2001 09:19:56
http://www.kopr(tec)cz/w-delphi.htm#Instalace
Zde je odkaz na oficilani preklad i preklad s dobnymi upravami.
Pavel
> nevite nekdo, kde se da sehnat cestina.isl pro Inno Setup2?
> Pokud by nekdo mel a byl by ochotny to poslat, prosim na adresu
> mailto:dmiroslav(zv)seznam(tec)cz
>
> predem diky
>
> Mirek Drancak
> ______________________________________________________________________
> Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
> z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
PING
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 9.7.2001 09:27:06
> > vi nekdo jak naprogramovat v Delphi ping? Potrebuju testovat spojeni
> > se serverem bez zavislosti na sluzbach na serveru.
> pomoci TIdICMPClient z Indy (http://www.nevrona.com/Indy) Priklad se
> jmenuje PingGUI.
Nebo to lze udelat pomoci unity PINGsend z moji Synapse. ;-)
Nicmene jsem ted o vikendu odhalil chybu v moji implementaci, ktera se
projevi pod Linuxem... a hlavne Indy ma tu chybu TAKE!
Ping ma zmerit cas mezi odslanim a prijetim PING packetu. Jenze jak
ja, tak Indy jsme pouzivali blbou funkci na mereni casu.
Vysledek byl, ze jsme misto casu pingu zmerili kolik za tu dobu nase
aplikace sezrala STROJOVEHO CASU!!! To byl duvod, proc muj ping pod
Linuxem vytrvale ukazoval 0ms (protoze od odeslani do prijeti packetu
aplikace poctive spi a nezere nic), zatimco Indy ukazoval pomerne
odpovidajici cisla.
Je to ukazka toho, jak je Indy spatne napsane, kdyz pri cekani na data
zere tolik strojoveho casu... proto pozor na ping z Indy pod Linuxem...
merite spotrebovany strojovy cas, ne cas pingu!!!
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
OT: Pascal
[*] Danny <delphiforum(zv)atlas(tec)cz> - 9.7.2001 09:27:49
Zdravim Vas,
musim upravit jeden program v Pascalu a nevim jak na to.
Celej programek jede v grafickym rezimu, takze vsechny texty se
"vykreslujou". Pomoci standardnich fontu v Pascalu nejsem (alespon ja)
schopen dostat na obrazovku plnohodnotnou cestinu.
Vyresi se to nejakym jinym fontem? Jestli jo, nemate nekdo takovej?
Diky za kazdou radu.
Danny
Excel a TExcel....
[*] Tom� Janta����##��{�#��Y��̿ - 9.7.2001 09:32:51
Ahoj,
tak uz jsem na to prisel :o)
problem byl v tom ze jsem neustale pouzival worksheet misto sheetu !
takze vysledek by mel vypadat nejak takto :
procedure TLis.createsheet (ExcelWb : TExcelWorkBook; CisloLisu:Integer ) ;
var SheetType : OleVariant ;
Begin
SheetType := 'F:\Documents and Settings\Tomas1\Data
aplikac�\Microsoft\�ablony\Sablona.XLT' ;
ExcelWS.ConnectTo(ExcelWb.sheets.Add(EmptyParam, EmptyParam, 1, SheetType,
lcid) as _WorkSheet);
ExcelWS.Name := 'Lis �.'+IntToStr(CisloLisu) ;
end ;
Tomas Jantac
PaPouch elektronika
www.papouch.com
Round ??
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.7.2001 09:35:48
Zdravim,
nechapu o cem se tady vlastne hadate. Je jasne ze programy jsou z Ameriky,
kde se jinak zaokrouhluje.
Jestlize se zajimate o zaokrouhlovani v Cesku a to Ceske penize, tak 14.50
Kc je skutecne 15.00 Kc. A na ti si misi kazky naprogramovat nejakou
utilitu.
Bohuzel
Pavel ZIDEK
> A kde jste videli,ze by se 14.5 melo zaokrouhlit na 15, to je prece
> naprosty nesmysl.
> Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let se prave
> sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
> Toto se zhruba pred 10 lety zacalo objevovat i v pocitacich a byly s
> tim velke problemy, ale to uz je snad pryc. Napr. dosovsky
> paradoxve verzi 3.5 a 4.0 jeste zaokrouhloval spatne, ale verze 4.5
> jiz zaokrouhluje spravne. A podobne se to postupne rozsirilo na
> vsechny programy.
>
> > Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> > ServisePack1 pod W2k pocitala spatne ?!?
> >
> > round(14.5) .. 14 !! - zde ma byt 15 ?
> >
> > Dela vam to take ?
> >
> > JaVal
> >
> >
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
Excel a TExcel....
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 9.7.2001 09:42:47
Ahoj
nevim, jestli jsem Te dobre pochopil, co Ti vadi na konstrukci (viz nize).
Co to dela jinak, nez ty bys chtel?
Taky mi radili, at zkousim nahrat makra a podle toho delat v Delphi.
Prijde mi to jako uplne scestny, je to neco uplne jinyho. Krome konstant
jsem tam nikdy nic nezjistil a ty je lepsi hledat v helpu.
Tomas Pocarovsky
P.S.: Pokud se objevi jeste nejaky problem, tak mozna radsi na soukromy
mail.
JmenoSouboru:="F:\Documents and
Settings\Tomas1\Dataaplikac�\Microsoft\Sablony\Sablona.XLT";
WkBk.ConnectTo(ExcelApplication1.Workbooks.Open(JmenoSouboru,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LCID) as
_workbook);
WS.ConnectTo(WkBk.Worksheets.Add
(EmptyParam, EmptyParam, 1, EmptyParam, lcid) as _WorkSheet);
// prida list
// nebo
WS2.ConnectTo(WkBk.Worksheets[2] as _Worksheet);
// pripoji WS na druhy list
V helpu jsem nasel popis parametru Type pro Sheets.Add, ale kdyz jsem udelal
zanam makra v Excelu tak zdrojak vypadal nejak takhle :
Sub Makro2()
Sheets.Add Type:= _
"F:\Documents and Settings\Tomas1\Data
aplikac�\Microsoft\�ablony\Sablona.XLT"
End Sub
A presne o tohle ja se ted pokousim v Delphi, poradi nekdo jak na tohle s
Delphi Servers komponentama? PLS
Rychlejsi cteni z DBF
[*] Zaplik <zaplik(zv)volny(tec)cz> - 9.7.2001 10:08:07
Pratele mam mozna trivialni dotaz, ale presto se ptam, jak rychleji nacitat
data z databaze. Mam v databazi desitky poli a nacitat kazde pole do promene
zvlast se jevi velmi pomale. Neexistuje nejaka obracena obdoba InsertRecord
nebo nejaky postup jak promene rychle naplnit?
s1,s2,s3...... :string
s1:=FieldByName('S1').AsString;
s2:=FieldByName('S2').AsString;
s3:=FieldByName('S3').AsString;
. . .
s100:=FieldByName('S100').AsString
tohle se mi moc nelibi a hlavne je to moc textu.
dik
Zaplik
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
A zase Excel a DBGrid
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 9.7.2001 10:35:48
> plnim data z DBGridu do excelu. Proste prolezu postupne celej grid (viz
> nize) a bunku po bunce to nakopiruju na excelovskej list. Je to vsak k
> uzoufani pomaly. Nevite, jak to priradit rovnou, nebo alspon zrychlit?
Worksheet.Range[OdRadkuSloupce,DoRadkuSloupce].Value := Matice;
kde
var
Matice : Variant;
a vytvoreni
Matice := VarArrayCreate([1,PocRadku,1,PocSloupcu],varVariant);
Pavel Gazda
www a e-mail
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.7.2001 10:41:47
Jak ve formul߰i About prov�st odkaz na e-mail a www str�nky:
Do komponenty LabelMail.Caption napisem vlastni mail a v udalosti OnClick
napiseme:
LabelMail.Caption := 'blabla(zv)blabla(tec)cz';
procedure TForm1.LabelMailClick(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(), 'open',
PChar('mailto:'+LabelMail.Caption),
nil, nil, SW_SHOWNORMAL);
end;
pro odkaz na webovou stranku postupujeme obdobne:
LabelHomePage.Caption := 'http://www.mojestranka(tec)cz';
procedure TForm1.LabelHomePageClick(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(), 'open', PChar(LabelHomePage.Caption),
nil, nil, SW_SHOWNORMAL);
end;
> Ahoj,
>
> "resim" takovy problemek jak v textu (neco na zpusob Tmemo, TRichEdit,...)
> najit www adresu ci e-mail (pokud mozno automaticky) zvyraznit je a
> kliknutim na ne spustit inet explorer popr. poslat e-mail (spustit
Outlook).
> V podstate se tak chova Word a spousta programu podobneho razeni.
> Mam D5.
>
> Diky za podnety
>
> LiborZ
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.5.2001
A zase Excel a DBGrid
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.7.2001 10:46:40
Uz se tady ten problem probiral. Jedno z reseni je naplnit data do
Array of Variant a ten priradit do excellu (podrobnosti v archivu
konference).
Dalsi reseni je vytvorit si primo XLS soubor a ten pak otevrit v
Excellu (napr. unita JCLExcell z JCL - jedi code library)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
9.7.2001 Tomas Pocarovsky:
> Cau
> plnim data z DBGridu do excelu. Proste prolezu postupne celej grid (viz
> nize) a bunku po bunce to nakopiruju na excelovskej list. Je to vsak k
> uzoufani pomaly. Nevite, jak to priradit rovnou, nebo alspon zrychlit?
> Neco jako :
> "ColumnRange := WS.Columns;"
> "ColumnRange.Columns[1]:= DBGrid.Columns.Items[1];"
> nebo idealne :-)
> "ws.data :=DBGrid.data"
> Diky moc.
> Tomas Pocarovsky
> WS.ConnectTo(WkBk.Worksheets.Add
> (EmptyParam, EmptyParam, 1, EmptyParam, lcid) as _WorkSheet);
> j:=1;
> // DBGrid.Visible:=false; pokus o urychleni :-(
> with DBGrid.DataSource.DataSet do
> begin
> First; // postupne probere vsechny radky
> dbgridu
> while not Eof do
> begin
> for i:= 0 to FieldCount-1 do
> ws.cells.item[j,i+1]:=Fields[i].AsVariant;
> j:=j+1;
> Next; {i}
> end; {while}
> end; {with}XML: childNodes
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.7.2001 10:53:04
Ahojte,
potrebujem poradit s problemom XML-Parsera.
Mam testovaci XML-subor a ASP-skript, ktora pouzitim objektu
Microsoft.XMLDOM nacita tento XML dokument a podla jeho obsahu generuje
HTML-stranku. (Zdrojove texty su na konci spravy).
Problem mam s metodou childNodes korenoveho uzla xmlRoot, ktora ma vratit
zoznam detskych uzlov, v tomto pripade jedineho uzla <employee>.
Na systeme W98 kde mam MSXML.DLL verzie 5.0.2614.3500 funguje spravne, ale
na systeme W2K s MSXML.DLL verzie 5.0.2920.0 vrati hodnotu "undefined". V
MSDN som nenasiel ziadnu informaciu o zmene implementacii objektu
Microsoft.XMLDOM.
Prosim o pomoc pri najdeni chyby. Je chyba v ASP-skripte, alebo v
XML-dokumente, alebo niekde uplne inde?
Pavol Stolc
pstolc(zv)sc.sknet.sk
====== XML-dokument: xmltest.xml ==========
<?xml version="1.0"?>
<employees>
<employee>
<name>James Smith</name>
<birthdate>1970-09-03</birthdate>
</employee>
</employees>====== ASP-skript: xmltest.asp ==========
<%(zv) language="JScript" %>
<html><body>
<%
var xmlDoc=Server.CreateObject('Microsoft.XMLDOM');
xmlDoc.async=false;
if(!xmlDoc.load(Server.MapPath('xmltest.xml')))
{
Response.Write('Load XML failed.');
}
else
{
Response.Write('Load XML successfull.');
var xmlRoot=xmlDoc.documentElement;
Response.Write('<br>Root name: '+xmlRoot.tagName);
if (xmlRoot.hasChildNodes) {
Response.Write('<br>Root has '+xmlRoot.childNodes.length+' child nodes.');
}
}
%>
</body></html>
DELPHI 6 a FF2
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.7.2001 10:55:34
Zdravim,
jak v dnesni dobe nainstalovat FF2 do DELPHI 6.
DELPHI 6 jsem jeste od Borlandu nedostal, takze si to nemohu vyzkouset.
Diky za poznatky
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~OT: mySQL select into outfile
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 9.7.2001 11:10:23
Poradi mi nekdo s nasledujicim problemem? Posilam tento dotaz do teto
konference, protoze je zde mnoho uzivatelu mySQL serveru a jinou rozumnou
konferu neznam...
Snazim se dostat z mySQL serveru vypis vsech zaznamu v tabulce email:
select email into outfile "emaily.txt" from Zakaznici;
Prikaz funguje vyborne, a dela presne to, co po nem chci, ale pouze jednou.
Kdyz jej spustim podruhe, tak mi nahlasi, ze soubor "emaily.txt" jiz
existuje. Dival jsem se do manualu, ale nenasel jsem, jak mySQL donutit, aby
ten soubor prepsal.
Ma nekdo nejaky napad?
PS: mySQL bezi na Linuxu
Diky za rady
tomas
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Pascal
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.2001 11:17:53
>
> musim upravit jeden program v Pascalu a nevim jak na to.
uprava se tyka ceho? Prepisu do Windows? Nebo prave pocesteni?
>
> Celej programek jede v grafickym rezimu, takze vsechny texty se
> "vykreslujou". Pomoci standardnich fontu v Pascalu nejsem (alespon
ja)
> schopen dostat na obrazovku plnohodnotnou cestinu.
> Vyresi se to nejakym jinym fontem? Jestli jo, nemate nekdo takovej?
Vyresit by se to urcite melo. Sam jsem si kdysi "vyrabel" ceske sady
fontu (borlandi samozrejme ceske znaky neobsahuji).
D. Toman
simulace stisku klavesy Mysi
[*] BLAU <blau(zv)emdat(tec)cz> - 9.7.2001 11:18:35
ahojky
mam proceduru povesenou na tlacitku na udalosti onMouseDown
procedure TForm1.IxxMouseDown(Sender : TObject; Button: TMouseButton; Shift: TShiftState; X, Y : Integer);
begin
bla bla bla...
end;
jak nakrmit tuto funkci aby si myslela za jsem stiskl tlacitko na mysi?
Zkousel jsem to takhle:
IxxMouseDown(Mouse, mbLeft, ?, x, y);
Sezralo to vsechny parametry az na treti prametr TShiftState... ktery mi nesel zadnym zpusobem priradit, prohledaval jsem vcera do 2 do rana dokumentaci od Borlandu ale nenasel jsem zadny funkcni priklad. V jakem tvaru mam argument doplnit?
Pokud se da dany problem vyresit nejak jinak jednoduseji take uvitam radu.
s pozdravem Petr Blau software developer
DB komponenty
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 09.7.2001 11:28:26
zdravim,
na formu mam spoustu DBEditu. Nad timto je DBLookupComboBox a DBNavigator. To vse je navazane na jednu tabulku. Uzivatel se muze pohybovat po tabulce bud pomoci DBNavigatoru, nebo v DBLookupComboBoxu je seznam nejakeho sloupce x. A tady je ten kamen urazu. Kdyz tam bude uzivatel neco dopisovat, tak aby se to tam postupne dopisovalo. Neco jako combobox v Exploreru. Da se takova vec elegantne vyresit?
Predem diky za jakoukoli odpoved.
S pozdravem
Mirek Drejcek.
childNodes
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 9.7.2001 11:36:35
Chyba je v nekompatibilite msxml parseru.
Na strankach Microsoftu si stahnete nejlepe posledni verzi msxml3.dll
Z tohoto duvodu nedoporucuji pouzivat MS knihovnu pro parsovani v
klientskych aplikacich, ale pouze na serveru kde si muzete potrebnou verzi
ohlidat.
V opacnem pripade se Vam bude stavat, ze to nekomu pojede a nekomu ne.
Verze parseru je dana verzi systemu Windows a hlavne take verzi IE. Pazout
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavol Stolc
> Sent: 9. eervence 2001 10:53
> To: Delphi Konferencia
> Subject: XML: childNodes
>
>
> Ahojte,
> potrebujem poradit s problemom XML-Parsera.
>
> Mam testovaci XML-subor a ASP-skript, ktora pouzitim objektu
> Microsoft.XMLDOM nacita tento XML dokument a podla jeho obsahu generuje
> HTML-stranku. (Zdrojove texty su na konci spravy).
>
> Problem mam s metodou childNodes korenoveho uzla xmlRoot, ktora ma vratit
> zoznam detskych uzlov, v tomto pripade jedineho uzla <employee>.
> Na systeme W98 kde mam MSXML.DLL verzie 5.0.2614.3500 funguje spravne, ale
> na systeme W2K s MSXML.DLL verzie 5.0.2920.0 vrati hodnotu "undefined". V
> MSDN som nenasiel ziadnu informaciu o zmene implementacii objektu
> Microsoft.XMLDOM.
>
> Prosim o pomoc pri najdeni chyby. Je chyba v ASP-skripte, alebo v
> XML-dokumente, alebo niekde uplne inde?
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
>
> ====== XML-dokument: xmltest.xml ==========
> <?xml version="1.0"?>
> <employees>
> <employee>
> <name>James Smith</name>
> <birthdate>1970-09-03</birthdate>
> </employee>
> </employees>
>
> ====== ASP-skript: xmltest.asp ==========
> <%(zv) language="JScript" %>
> <html><body>
> <%
> var xmlDoc=Server.CreateObject('Microsoft.XMLDOM');
> xmlDoc.async=false;
> if(!xmlDoc.load(Server.MapPath('xmltest.xml')))
> {
> Response.Write('Load XML failed.');
> }
> else
> {
> Response.Write('Load XML successfull.');
> var xmlRoot=xmlDoc.documentElement;
> Response.Write('<br>Root name: '+xmlRoot.tagName);
> if (xmlRoot.hasChildNodes) {
> Response.Write('<br>Root has '+xmlRoot.childNodes.length+'
> child nodes.');
> }
> }
> %>
> </body></html>
>PlaySound parametry ?
[*] BLAU <blau(zv)emdat(tec)cz> - 9.7.2001 11:47:52
Ahojky
Tento prikaz: nejprve je potreba vlozit MMsystem do uses
PlaySound('C:\hudebni soubor.wav', 0, snd application + snd async + snd nodefault + snd loop);
udajne spusti prehravani hudebniho souboru bez spusteni Mediaplayeru.
Znate nekdo vyznam jednotlivych parametru tohoto prikazu popripade funkcni prikladek? Napoveda Borlandu je jako obvykle velmi skoupa na informace ... :(
Neslo by takhle nejak jednoduse prehravat treba pridanim dalsiho souboru do uses nebo nainstalovanim nejake komponenty take soubory mp3?
s pozdravem Petr Blau software developer
childNodes
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.7.2001 11:56:34
----- Original Message -----
From: Jio� Koeara <pazout(zv)sport(tec)cz>
Sent: Monday, July 09, 2001 11:36 AM
> Na strankach Microsoftu si stahnete nejlepe posledni verzi msxml3.dll
Ahoj to prave mam. Ibaze na starsej verzii vo W98 to funguje ako ma, a na
novsich W2k aj tym msxml3.dll to nefunguje. Podla zaznamu v registroch je
msxml3.dll XSL Template a XMLDOM je aj nadalej implementovane v msxml.dll
V zasade ale ide o to, ze ten XMLDOM nerobi to co slubuje dokumentacia. Co s
tym?
Pavol Stolc
pstolc(zv)sc.sknet.sk
simulace kliknuti mysi
[*] BLAU <blau(zv)emdat(tec)cz> - 9.7.2001 12:03:15
Ahojky
jak nasimulovat kliknuti mysi na button?
potrebuji zavolat proceduru, ktera je povesena na udalosti tlacitka onMouseDown, resp. ji zavolat a predat do ni parametry
procedure TForm1.I20MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
bla bla bla ...
end;
takto ji volam:
I20 BMouseDown(Mouse, mbLeft, TShiftState(ssLeft),x,y);
problem mam se tretim parametrem - neprisel jsem na to v jakem tvaru jej predavat aby to proslo kompilatorem. V borlandi napovede jsem to hledal do 2 do rana ale vysledek je 0 na zadny funkcni priklad jsem take nenarazil.
Poradte, pokud na to jdu spatne poradte take klidne jak jinak to udelat.
S pozdravem Petr Blau software developer
DelphiX
[*] Werki <delphi(zv)minv.sk> - 9.7.2001 12:05:31
> Ahoj!
>
> 1. Nezna nekdo nejaky jiny zpusob vykreslovani grafiky, nez je pomoci
direct
> ovskeho DelphiX. Je sice rychle, ale kamarad programuje v C++ a bezi mu to
v
> sechno nejmene dvakrat rychleji.
Poznam, mozes priamo cez asm na zobrazovac cez windoze.....celkom rychly bod
oproti klasickemu
canvasu. (http://gfoody.com/)
tam ma xlapik pekne rutinky a komponenty, ale DX to nie je.
DirectX od Horiho je porovnatelne rychly s Cckom...co konkretne potrebujes
zobrazit?
Velmi totiz zalezi od HW/SW, farebnej hlbky, 2d/3d a vsetkych nastaveni.
Werki
PDF a cestina
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 9.7.2001 12:06:47
Mam problem, nevite nahodou nekdo jak dostat do PDF cestinu. Pri
generovani do PDF vse funguje OK az na cestinu. Problem je podle mne v
sekci Encoding (viz nize). Nevite nekdo jak to nastavit spravne?
<<
/Type /Font
/Subtype /TrueType
/Name /F1
/BaseFont /Tahoma
/Encoding /WinAnsiEncoding
>>
Dik.
Jiri Fait
Informacni systemy
ICQ: 113357332
Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
PDF a cestina
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.2001 12:13:59
Puvodni zprava, kterou napsal FAIT Ji��, ml. dne 9 Jul 2001,:
> Mam problem, nevite nahodou nekdo jak dostat do PDF cestinu. Pri
> generovani do PDF vse funguje OK az na cestinu. Problem je podle mne v
> sekci Encoding (viz nize). Nevite nekdo jak to nastavit spravne?
No ja to generuji pres Acrobat Distiller a nemam zadny problem
s diakritikou. Ty to delas rucne nebo co?
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================D6 a podpora PNG,GIF,...
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 9.7.2001 12:16:03
Nevite nahodou, zda v D6 je podpora grafiockych formatu PNG a GIF ?
Pripadne jeste dalsi formaty.
diky Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)hlubocky.del(tec)cz