Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Tri problemy
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 12.7.1999 14:48:53
Dobry den,
nevite nekdo, kde bych mohl sehnat tu prvni publikaci "Pruvodce vyvojare
Delphi" od X.Pacheco a S.Teixeira ?
Diky.
Martin Va�k��
mvackar(zv)cpoj(tec)cz
Publikace - omluva
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 12.7.1999 14:52:48
Omlouvam se, ze jsem k dotazu pouzil dopis a neprepsal jsem jeho
hlavicku. M.V.
> Dobry den,
> nevite nekdo, kde bych mohl sehnat tu prvni publikaci "Pruvodce
> vyvojare Delphi" od X.Pacheco a S.Teixeira ?
> Diky.
> Martin Va�k��
> mvackar(zv)cpoj(tec)cz
>
> Uvolneni pameti po funkci
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 12.7.1999 15:18:09
Dle meho nazoru je toto nepodstatne, protoze windows spravuji pamet
sami, a nektere casti kodu muzou odlozit na disk (swap) -kdyz to uznaji
za vhodne. Takze bych s tim nedelal takovou vedu. Pouze bych u hooodne
rozsahleho projektu tento rozdelil do DLL a volal je dynamicky podle
potreby, ovsem tak velke APP (typu office nebo autocad) asi dela
malokdo, ze.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Ga�ourek [SMTP:geta(zv)telecom(tec)cz]
> Odesl�no: 12. �ervence 1999 14:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Uvolneni pameti po funkci
>
> > Petr Ga�ourek wrote:
> > > Uvolni se tato funkce nejak z pameti nebo v pameti visi dokud neni
> > > program ukoncen?
>
> Martin Bodlak wrote:
>
> > Jestli je v separatnim unitu nebo ne je uplne jedno. Pamet se
> neuvolni,proc
> > taky, vzdyt je to kod programu...
>
> Diky za vysvetleni.
>
> > Ale unika mi smysl... To je ta funkce tak velka?
>
> Je jasne, ze s jednou funkci se nema smysl zabyvat, ale rekl bych ze
> kazdy ma
> ve svem programu radu funkci, ktere se volaji malokdy (nebo dokonce ne
> pri
> kazdem vyvolani programu) a jejich soucet uz nemusi byt zanedbatelny.
> Zda se
> mi zbytecne, aby byly trvale zavedeny v pameti.
> Ale ma zkusenost prameni z programovani v DOSu, kde setreni pameti
> bylo u
> vetsich programu nutnosti vzhledem k omezene velikosti pameti a
> datov�ch
> bloku. Ve Windows bude mozna lepsi (stabilnejsi) mit vse potrebne
> zavedene v
> pameti nez system zatezovat nacitanim funkci z disku a pridelovanim /
> uvolnovanim pameti. Co si o tom myslite?
>
> Petr Gadourek
TTimer?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.7.1999 15:25:24
>Prave na CCube je to pekne videt, pouzijes dve krychle a mas
tam
>hned dva timery...
No, to jsem si myslel, takze pokud nemas zdrojak od tech komponent
tak mas asi smulu... Nebo zkus programove udelat neco takoveho,
jako Ta_Komponenta.Timer:=(RxTimerList1.RxTimerEvent1 as TTimer)
ale to je jen takovy "odhad". Ja ani nevim, o jake komponente
mluvis...
Dobra.
BTW: Kdyz uz mluvis o tech Cubech :-), k cemu slouzi
komponenty Decision Cube a spol ?
> ...
> > BTW: A jak to vlastne funguje ? Co se teda vykona v
> > Timer1.OnTimer ?
> > > Skvele, ale jak to udelat u komponentu, kde interne pouzivaji
> > TTimer?
> > > Napr. ma deklarovany FTimer:TTimer a nastavuje se jenom interval.
> A
> > > kdyz nemam zdrojak co pak?
> > > > ano, existuje v RxLib je tusim TTimerList
> > > > nebo tak nejak se to jmenuje a myslim, ze
> > > > to dela presne to, co chces, tedy ze je to
> > > > jen jeden timer, ktery deli intervaly.
> > > > > ----------
> > > > > mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere
> ho
> > > > > interne
> > > > > pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale
> > > > pouziji
> > > > > na formulari priliz mnoho, pak dojde pri s pusteni pod Win
> 3.11
> > k
> > > > padu
> > > > > programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju.
> Je
> > > > mozne
> > > > > nejak sloucit timery na ruznych komponentech (hlavne tech,
> ktere
> > > to
> > > > > maji
> > > > > interne) a pouzit treba deleni casovych intervalu? Nebo lepe,
> > > > existuje
> > > > > na to nejaky komponent?
> > >
> ONLINE spojeni - TClientSocket,TServerSocket
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 12.7.1999 15:28:32
Ahojte,
jde pomoci vyse zminenych komponent v D4 C/S naprogramovat ONLINE spojeni
mezi vice nez dvema PC v lokalni siti po TCP/IP,pri kterem by se mezi PC
posilali asi 4 stringy.
V DELPHI/Demos je priklad CHAT, ze ktereho se da zjistit spojeni dvou
PC.Zatim si nedovedu vubec ani predstavit, jak bych udrzoval vice spojeni.
Nakopne mne nekdo? ( a nemyslim do riti ;-))
Diky.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
P.S. Nebo jsem si vybral spatne komponenty na to co potrebuji?
Resource editor pro Win32?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.7.1999 15:55:45
Jano wrote:
> ### Zdenek napsal dne 10. j�l 1999 20:57
> >Diky za tip, zkusil jsem ho, ale bude tady asi jeste
> >nejaky jiny problem.
> >Staci, kdyz do editoru nactu to EXE a okamzite
> >dam SAVE, a aplikace uz odmita pracovat
> >spusti se, pipne a okamzite se ukonci bez zobrazeni
> >akekoliv zpravy), prestoze zadne upravy nedelam.
>
> Ahoj,
> tak to mi je luto, uviedol som, ze to nie je vsemocne. Pri vacsine
> aplikacii funguje spolahlivo (starsieho data), ale stretol som sa okrem
> toho co sa stalo tebe, ze po prekompilovani sa nezobrazovali korektne
> nejake image resources. Ak sa mi podari zohnat nieco ine, dam Ti vediet.
> Mozno by pomohlo iba zohnat najnovsiu verziu, ak existuje, tato je uz dos
> stareho data... alebo pouzit localizator, ktory uz spomenul Zbysek Hlinka
> , alebo ked ti ide iba o textove resources pouzi nejaky hexeditor, napr
> Shareware prg. HexEdit 2.54 firmy BreakPoint SW http://www.bpsoft.com , a
> priamo v exaci poprepisuj vsetky texty, ktore chces, ale toto mi uz
> pripada trochu pritiahnute za vlasy...
Pred hexa editorem bez detailnich znalosti ulozeni resourcu bych
chtel durazne varovat, zejmena ve 32bitovych aplikacich. Pro
32bitove aplikace muze skutecne pomoct Lokalizator (ve spojeni s
NT, pokud se to ma vlozit zpatky), nebo jsem vypustil zaklad
komponent pro praci s resources ulozenych ve spustitelnem
programu (na Delphree, asi u projektu Nexus, az to tam Pavel
Cisar da), opet ve spojeni s NT je pak snadne neco zmenit a
soupnout to zpet.
Zminovane komponenty mohou slouzit jako zaklad pro vyvoj
neceho na zpusob Resource Workshopu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
nalezeny text v listview
[*] Dan Komosny <q3(zv)atlas(tec)cz> - 12.7.1999 16:09:51
Ahoj
Snazim se v listview najit urcity string. Delam to tak ze prvni prohledavam items.captions a pak to ostatni - subitems (zde chci zeptat jestli to nejde nejak naraz) . Pouzivam k tomu starndartni vyhledavaci okno ve win.
Muj problem je v tom, ze kdyz neco najdu a chci to zviditelnit tak nevim jak na to. Chtel bych okolo nalezeneto textu ( at uz caption nebo subitem ) zobrazit obdelnik podobne jako v exelu.
procedure TForm4.FindDialog1Find(Sender: TObject);
var
listitem:tlistitem;
obdelnik:trect;
begin
listitem:=ListView1.FindCaption(0,FindDialog1.FindText,true,true,true);
obdelnik:=listitem.DisplayRect(drLabel); // toto je spatne ale snad to tak nejak de, z helpu moc chytry nejsem
.....
.....
end;
Poradte prosim jak toto udelat.
Dan Offtopic - Zavinac
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.7.1999 16:43:10
Takze mozna pristi tyden (pokud nas ovsem pro prilisnou opilost nevystrihnou
uplne ;-)
Mac
Martin Kubecka wrote:
> Pokud nekdo touzi shlednout muj stupidni xicht v TV tak si pustte dneska
> (nedele v 21:45) CT2 porad Zavinac no a pokud tam uvidite nekoho se
> sklenickou vina v ruce hned vedle moderatora Milana Simy tak vezte ze to
> je stary znamy Mac ;-). No a pokud tam nebudeme ted tak snad pristi
> tyden. No a pokud ani pristi tyden, tak nas pro jistotu vystrihli,
> abychom nedelali ostudu ;-)))
>
> Jinak clanecek o nasi TV anabazi je zde:
>
> http://www.skyfly(tec)cz/zajimavo/zavinac.htm
>
> Mac
>
> P.S. Standa tak trosku keca, neverte mu - ve skutecnosti jsem mnohem
> horsi ;-)))
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Mistrovstvi v Delphi 3
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 12.7.1999 18:03:00
Zdravim!
Hele myslis to vazne ze mas takovej programek? Umi to generovat i s datem
expirace?
zdarec
Pavel
----- P�vodn� zpr�va -----
Od: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. �ervence 1999 18:07
P�edm�t: Re: Mistrovstvi v Delphi 3
> Nebrec Zbysku, mam tu takovy programek na generovani cisel platebnich
> karet, poslu ti ho chces???
>
> ;-)))
>
> Mac
>
> Zbysek Hlinka wrote:
>
> > > > Mohl bys mi poradir, kde to kupujes? Ty mas zahranicni kreditku?
> > >
> > > A kdo nema?
> >
> > Ja.
>
>
String to Pchar
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 12.7.1999 18:59:17
me to chodi bez problemu
delphi 3.00
win 98
----- Original Message -----
From: Ivo V�clavek
To: delphi-l(zv)fwd(tec)cz
Sent: Sunday, July 11, 1999 2:32 PM
Subject: String to Pchar
Pri pretypovani Stringu na Pchar :
var
l:string;
pl:pchar;
begin
pl:=Pchar(l); end.
Mi dycky vyleze chyba : Error 61: Invalid Type Cast
Co s tim??? Jak pretypovat String na Pchar??? Dik Pivosz
na�ten� dat JPG do TImage ????
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 12.7.1999 19:29:21
�au ,
pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
komponent� typu TImage ?????????????
zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i zobrazov�n� (
JPEG Error # 41 ) , :
var
F1 : file of Byte;
ChByte : Byte;
FName : string;
MStream : TMemoryStream;
MBuffer : PByte;
MSize : integer;
MP : PByte;
Gr : TJPEGImage;
Image : TImage;
begin
FName:='A.jpg';
MSize:=0;
if FileExists(FName) then
begin
AssignFile(F1, FName);
Reset(F1);
MSize := FileSize(F1);
GetMem(MBuffer, MSize);
MP := MBuffer;
while not Eof(F1) do
begin
Read(F1, ChByte);
MP^ := ChByte;
Inc(MP);
end;
MStream := TMemoryStream.Create;
MStream.Write(MBuffer^, MSize);
// Image.Picture.Graphic.LoadFromStream(MStream);
Gr := TJPEGImage.Create;
Gr.LoadFromStream(MStream);
Image.Picture.Graphic := Gr;
CloseFile(F1);
MStream.Free;
end;
v�m �e funguje LoadFromFile, ale pot�eboval bych to touto metodou, p�es
�ten� Byte po Bytu.
d�ky za ka�dou odpov��,
Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/OLE Automation Server in Word
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.7.1999 20:04:43
Hele, ty ses tu taky, mohl bys me autorizovat ? Dik.
Jak autorizovat?
_______
Menfy design
Filip Rejlek
Zbynek Novotny
telefon : 0602 / 816 151
e-mail : menfy_design(zv)telecom(tec)cz
web : http://web.iol(tec)cz/menfy
Zrout GDI
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 12.7.1999 20:52:41
Zdravim vsechny
Dokoncuji ted jakousi aplikaci a z hruzou jsem zjistil, ze jsem
vyrobil pozirace GDI. Po spusteni ve Win98 klesnou volne
prostredky GDI o cca 32% coz je o rad vice nez by (podle meho
nazoru) bylo vhodne. Mimochodem, kdyz jsem zkousel program v
NT4.0 problemy nebyly, a pritom jsem se dosud domnival, ze mezi
NT a WIN95/8 by pokud jde o prostredky GDI nemel byt zasadni
rozdil.
Pritom vubec nemam tuseni, cim bych to zpusobil, je to normalni
databazova aplikace, nejake formulare s RxDbGridy. Pouzivam D4,
knihovny Rxlib.
Nemate nekdo nejakou zkusenost s podobnou situaci?
Dekuji za kazdou radu. Jiri Binder
listview
[*] Dan Komosny <q3(zv)atlas(tec)cz> - 12.7.1999 21:01:27
Ahoj
Mam jeste jeden dotaz . Chci v listview hledat text v jestnoltivych polozkach. Pomoci funkce findcaption se mi dari najit vzy caption jednotlivych radku. Ale kdyz chci prohledavat i subradky ( subitemy ) tak uz tu vznika problem - nevim jak nato :) ,je zde nejaka fukce finddata ale s te moc rozumny nejsem. Dale se chci jeste zeptat zda se da v listview oznacit i jednotlivy subitem ( treba ze obsahuje hledany text ).
Popripade jestli to listview neumi , tak jestli exituje neco podobneho ( aby to umoznovalo oznaceni subitemu - neco jak je v exelu ) a slo v tom poradne hledat.
Dalsi moznost je ze bych to nejak ulozil do formatu execlu primo z programu. Pak by se to dalo prohlizet primo v nem. De to ?
DaN
na�ten� dat JPG do TImage ????
[*] Miroslav Topol�� - 12.7.1999 21:59:43
Jak pou��vat obr�zky typu JPG
DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat soubory
JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
----------------------------------------------------------------------------
----
procedure ShowJPG(FileName:string);
var Imageb:TImage;
temp:boolean;
begin
imageb:=TImage.Create(FORM1);
temp:=Imageb.Picture.Graphic is TJPEGImage;
Imageb.Picture.LoadFromFile(filename);
FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
imageb.free;
end;
----------------------------------------------------------------------------
----
Procedura pou��v� knihovny JPEG a ExtCtrls.
V�pisek z Online Program�torsk� p��ru�ky
http://web.iol(tec)cz/mister
----- Original Message -----
From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, July 12, 1999 7:29 PM
Subject: na�ten� dat JPG do TImage ????
�au ,
pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
komponent� typu TImage ?????????????
zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i zobrazov�n� (
JPEG Error # 41 ) , :
var
F1 : file of Byte;
ChByte : Byte;
FName : string;
MStream : TMemoryStream;
MBuffer : PByte;
MSize : integer;
MP : PByte;
Gr : TJPEGImage;
Image : TImage;
begin
FName:='A.jpg';
MSize:=0;
if FileExists(FName) then
begin
AssignFile(F1, FName);
Reset(F1);
MSize := FileSize(F1);
GetMem(MBuffer, MSize);
MP := MBuffer;
while not Eof(F1) do
begin
Read(F1, ChByte);
MP^ := ChByte;
Inc(MP);
end;
MStream := TMemoryStream.Create;
MStream.Write(MBuffer^, MSize);
// Image.Picture.Graphic.LoadFromStream(MStream);
Gr := TJPEGImage.Create;
Gr.LoadFromStream(MStream);
Image.Picture.Graphic := Gr;
CloseFile(F1);
MStream.Free;
end;
v�m �e funguje LoadFromFile, ale pot�eboval bych to touto metodou, p�es
�ten� Byte po Bytu.
d�ky za ka�dou odpov��,
Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/
WsControl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:03:42
Stanislav Kolar wrote:
> >Dik za help,
> >len by ma zaujimalo kam chodievas na taketo informacie ? ;-D
>
> Debugger, zpetny assembler, halda trpelivosti a xx hodin unavujici prace...
Tohle si pamatuju jeste z dob ZX Spectra, kdyz se hledaly nekonecny
zivoty do her. Je docela zajimavy videt, jak nektery postupy stale
pretrvavaji, a to i pres vsechen "pokrok" :-))
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Decision Cube (Was: TTimer?)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:04:10
Mal� Dobromil wrote:
> BTW: Kdyz uz mluvis o tech Cubech :-), k cemu slouzi
> komponenty Decision Cube a spol ?
Ahoj,
Podle toho co jsem cetl a slysel, funguje Decision Cube jako strasidlo
na programatory, aneb nikdy nevis kdy ti to zase spadne :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Mail & Rezident
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:04:21
tmara(zv)itsys(tec)cz wrote:
>
> Halloa ALL!
> Nevim, zda se neptam na uplny nesmysl, v tom pripade mne omluvte :o)
>
> Da se nejak programove zjistit, ze prisel novy majl, aniz bych mel
> spusteneho Outlooka?
> Dale jak je mozne udelat rezidentni program (aby zabral minimum systemovych
> prostredku), ktery spusti nejaky jiny program treba kazdych 10 minut?
Ahoj,
Soucasti Netscape Communicatoru je aplikace "Netscape mail notification"
ktera tohle dela. Velikost je 64k.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
resource dialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:04:32
"Fryz, Zdenek" wrote:
>
> ahoj
>
> zajima mne v jakych pripadech je vyhodne ulozeni dialogu jako resource
> a
> jak zpracovat - ziskat hodnoty, ktere uzivatel do takoveho dialogu zada ...
Ahoj,
Ve vztahu k Delphi je to vyhodne asi jen v pripade, ze nebudes pouzivat
VCL. Jinak je asi jednodussi pouzivat primo formulare a pomoci nich si
dialog udelat. Delphi ti navic nijak nepomaha ve vytvareni dialogu jako
resource, protoze neobsahuje zadny Resource editor. Ten ma byt udajne
az v Delphi 5.
Jina situace jsou ale templates, coz jsou jakesi predlohy pomoci kterych
muzes ve sve aplikaci rozsirit standartni Windows dialogy. Prikladem je
treba TOpenPictureDialog.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem s Nastaveni.ini
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:05:37
Krayzel Libor wrote:
> Ja to delam takhle:
>
> IniFile := TIniFile.Create(ExtractFilePath(paramstr(0))+'nastaveni.ini');
Ahoj,
Nebo taky takhle:
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zrout GDI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:27:21
Jiri Binder wrote:
>
> Zdravim vsechny
> Dokoncuji ted jakousi aplikaci a z hruzou jsem zjistil, ze jsem
> vyrobil pozirace GDI. Po spusteni ve Win98 klesnou volne
> prostredky GDI o cca 32% coz je o rad vice nez by (podle meho
> nazoru) bylo vhodne. Mimochodem, kdyz jsem zkousel program v
> NT4.0 problemy nebyly, a pritom jsem se dosud domnival, ze mezi
> NT a WIN95/8 by pokud jde o prostredky GDI nemel byt zasadni
> rozdil.
> Pritom vubec nemam tuseni, cim bych to zpusobil, je to normalni
> databazova aplikace, nejake formulare s RxDbGridy. Pouzivam D4,
> knihovny Rxlib.
> Nemate nekdo nejakou zkusenost s podobnou situaci?
Ahoj,
Nepouzivas v te aplikaci vetsi mnozstvi komponent ktere maji vlastnost
Glyph, napriklad TBitBtn, TDBNavigator nebo TSpeedButton ? Od D3 je
totiz ve VCL chyba, ktera je patrna zvlaste pri pouziti techto komponent.
Projevuje se zbytecnou alokaci handlu bitmap. Dalsi info tady:
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Aug&den=01&first=1&soubor=dlfaaaad.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Cestina v e-mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1999 23:34:47
"Pavel Kohler, EBON s.r.o." wrote:
>
> To ano, ale potrebuju to osetrit automaticky.
>
> Stahnul jsem RFC popis a rozepsane kody ISO-8859-2, tak leda napsat
> rucne prohledavani a konverzi :-(.
>
> Doufal jsem, ze to nekde jiz existuje..
Ahoj,
Pred casem jsem sem posilal unit na konverzi cestiny z 852, 862 a 859 do
1250 a obracene. Je tam i funkce pro "automaticke" rozpoznani kodovani
cestiny, ale to neber moc vazne :-) Najdes to tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Zm�na ��ky sloupce na RxDbGrid
[*] Libor V�trovec <vetrak(zv)hotmail(tec)com> - 13.7.1999 00:13:19 pdt
Pros�v�s p�kn� nev�te n�kdo jak zjistit velikost (���ku)sloupce kdy� :
1. Vytvo�en� SQLDotaz (vypln�n� Display Label&With)
2. V RxDbGrid nejsou nadefinov�ny sloupce.
P�edem v�m d�kuji za va�� pomoc. ,,,
/'^'\
( o o )
------------------------oOOO--(_)--OOOo----
Libor V�trovec
---------------
Winterthur pojist'ovna
Panska 7
110 00 PRAHA 1 .oooO
( ) Oooo.
--------------------------\ (----( )-----
\_) ) /
(_/
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Mistrovstvi v Delphi 3
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 13.7.1999 05:50:41
----- P�vodn� zpr�va -----
Od: Pavel Polak <pavelp(zv)bnsoft(tec)cz>
> Zdravim!
>
> Hele myslis to vazne ze mas takovej programek? Umi to generovat i s datem
> expirace?
>
> zdarec
>
> Pavel
>
K cemu je ti datum expirace. Napr. sporitelna ti po vyprseni karty vystavi
novou VISU s tim samym cislem, ktera se lisi pouze datem expirace.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Prosba
[*] Karel D�d�k - 13.7.1999 06:17:37
Ono to sem asi nepat��, ale ji� nemam jin� n�pad tak zkou��m �t�st�.
M�m program napsan� v TurboPascalu a pot�eboval bych ho p�epsat do Dephi, ale proto�e jsem laik, byl bych r�d kdyby se toho n�kdo ujal.
Jedn� se o cca 50kb - pomoc� programu je ovl�d�n p�es AD/DA p�evodn�k m���c� p��stroj a v�sledek m��en� - graf je trvale zobrazov�n.
Pokud n�kdo najde �as a chu�, tak pros�m p��mo, a� nezat�ujeme konferenci (nav�c to sem asi opravdu nepat��).
D�ky za ochotu seat(zv)mail.cybernet(tec)cz
Uvod do OLAP databazi
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.7.1999 07:43:12
> -----P�vodn� zpr�va-----
> Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 12. �ervence 1999 23:04
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Decision Cube (Was: TTimer?)
>
>
> Mal� Dobromil wrote:
> > BTW: Kdyz uz mluvis o tech Cubech :-), k cemu slouzi
> > komponenty Decision Cube a spol ?
>
> Ahoj,
>
> Podle toho co jsem cetl a slysel, funguje Decision Cube jako strasidlo
> na programatory, aneb nikdy nevis kdy ti to zase spadne :-)
>
To je pravda, pekne strasidlo. Zkousel jsem ji, myslim,
ze mi dokonce ani nespadla, ale je to strasne nesikovne.
Neumi zpracovat plnohodnotne SQL select - to, co lze pouzit
v TQuery nejde vzdy pouzit v DecisionCube = snazi se to asi
nejak analyzovat a neumi to. Navic vypada skarede, spatne
a neintuitivne se s tim pracuje.
Myslenka je ale pekna, nez se pustim do strucneho popisu, napisu
par analogii k DecisionCube z jineho SW:
Decision Cube je neco jako:
- kontingencni tabulka v Excelu, potazmo v matematicke statistice
- CrossTab datawindow v PowerBuilderu
- OLAP databaze
a ted strucne, jak to funguje:
Relacni data jsou velmi neprehledna a v nekterych pripadech
se s nimi blbe pracuje. Napr. tabulku o tisici radcich se strukturou:
- Prodejce
- Zbozi
- Trzba
(tenaten Prodejce za toato Zbozi utrzil penize Trzba)
Chceme analyzovat z hlediska uspesnosti prodejcu a
uspesnosti zbozi. Ke zjisteni techto souhrnu bychom
na relacnich datech museli pouzivat selecty groupovane podle
Prodejce nebo Zbozi a cele by to bylo takove nesikovne,
zvlast kdyz si predstavime, ze sledovanych velicin muze
byt nepomerne vice (napr. casove obdobi, region, druh prodeje, ...)
a nektere veliciny mohou byt hierarchicky usporadane
(napr. zbozi jsou auta a motorky, dale podle znacek, barev, ...)
Pro takovato data byly vytvoreny OLAP databaze, v nichz jsou
data ulozena v matici. Sledovane atributy (v nasem pripade Prodejce
a Zbozi) jsou DIMENZE teto matice, data (Trzba) jsou hodnoty
v jednotlivych bunkach matice. Dimenzi muze byt obecne libovolny pocet,
tady se vzil termin "N-dimenzionalni kostka". OLAP databaze jsou
optimalizovany na agregacni funkce pres jednotlive dimenze,
v nasem pripade jsou tedy dimenze dve a pro data pouzivame funkci Sum.
Zobrazeni dat by tedy vypadalo treba takto (neproporc. font):
Prodejce1 Prodejce2 Prodejce3 | Suma za Zbozi
Zbozi1 100 200 | 300
Zbozi2 1200 500 2000 | 3700
Zbozi3 600 300 | 900
--------------------------------------------------------
Suma za 1900 700 2300 | Suma vsech trzeb
Prodejce | 4900
A to je presne to, co dela DecisionCube z relacnich dat.
Pokud maji data vice nez dve dimenze, je nutne je zobrazit
v dvojrozmerne tabulce. Potom radek i sloupec mohou mit vice dimenzi
a uzivatel si pomoci decisionCube muze tusim i v runtime
sbalovat a rozbalovat dimenze a sledovat souhrny za jednotlive
polozky.
Uz jen na okraj:
Ovsem Decision Cube neni vhodna pro velke objemy dat,
protoze vsechno taha na klienta a tam to prepocitava.
Pokud bychom chteli pouzit Takovyto pohled na tabulku s radove
tisicovkami zaznamu, bylo by lepsi variantou v Delphi
naprogramovat pouze porizovadlo dat a na prohlizeni
koupit nejakou OLAP databazi, do niz se budou data importovat.
Jura
GetVolumeInformation
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 13.7.1999 07:50:31
Hi all,
mam maly problemik. Resim spor mezi Microsoft Netware Clientem a Nowell
IntraNetware Clientem. Pro zjistovani S/N disku pouzivam funkci %Subj a
nastala zajimava situace:
Microsoft Netware Client vraci S/N sitoveho disku 0, zatimco Nowell
IntraNetware Client vraci nenulovou hodnotu ( zato stale stejnou). ( Ve
win32.hlp neni k tomuto nic).
Vite nekdo neco o tomto problemu? Uz jste se s tim nekdo setkali? Je na to
nejake
reseni?
Diky za pomoc
Martin Lasevic
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http:/cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
Prosba
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.7.1999 07:55:18
----P�vodn� zpr�va-----
Od: Karel D�d�k [mailto:seat(zv)mail.cybernet(tec)cz]
Odesl�no: 13. �ervence 1999 6:18
Komu: Delphi
P�edm�t: Prosba
Ono to sem asi nepat��, ale ji� nemam jin� n�pad tak zkou��m �t�st�.
M�m program napsan� v TurboPascalu a pot�eboval bych ho p�epsat do Dephi,
ale proto�e jsem laik, byl bych r�d kdyby se toho n�kdo ujal.
Jedn� se o cca 50kb - pomoc� programu je ovl�d�n p�es AD/DA p�evodn�k m���c�
p��stroj a v�sledek m��en� - graf je trvale zobrazov�n.
Pokud n�kdo najde �as a chu�, tak pros�m p��mo, a� nezat�ujeme konferenci
(nav�c to sem asi opravdu nepat��).
Myslim, ze to sem patri.
Nemam s tim zkusenosti, ale kdysi u Delphi1
bylo napsano, ze by mely fungovat vsechny zdrojaky
odladene v Borland Pascalu. Takze myslim, ze by Ti mel jit
program prelozit bez problemu. Jina situace asi muze byt
s ovladanim toho prevodniku. Zalezi na tom, jaky mas operacni system,
do jake miry Ti umozni pristupovat na hardware, coz asi
delas, jestli to jelo pod DOSem.
V kazdem pripade ale myslim, ze bys to mel zkusit nejprve prelozit,
abys ziskal nejake konkretni problemy.
Takze prejmenuj program.pas na program.dpr, nastav ve vlastnostech,
ze jde o konzolovou aplikaci a prekladej. Mozna budes muset prejmenovat
nejake unity v uses (crt na wincrt, dos na windos - nevim presne co
vsechno).
Potom napis, az se Ti vysypou konkretni problemy
Jura
WsControl
[*] Santik <santik(zv)pronetix.sk> - 13.7.1999 08:19:19
> Tohle si pamatuju jeste z dob ZX Spectra, kdyz se hledaly nekonecny
> zivoty do her. Je docela zajimavy videt, jak nektery postupy stale
> pretrvavaji, a to i pres vsechen "pokrok" :-))
Ako vidno, tym sa len potvrdzuje platnost onoho znameho prislovia:
"Co sa v mladosti naucis, na stare kolena ako ked najdes" ;-D
Ja som bol tiez "odkojeny" na Speccy.
Santik
santik(zv)pronetix.sk
Prosim, pomozte
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 13.7.1999 08:43:23
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Prosim pomozte,
robil som program v D2. presiel som na D4. Ak dam kontrolu syntaxe, je to v poriadku ale po spusteni mi napse hlasku :
Projekt denprj.exe raised exception class EInvalidOp with message 'Invalid floating point operation'.Process stopped.Use Step or Run to continue.
Nevie niekdo kde je chyba ?
Este som prisiel ze to ostava na procedure kde sa rata pocitana polozka field.
SQL vyraz je
SELECT ( sum( dennik.HODINY )) as EXPR h,(sum(dennik.MINUTY)) as EXPR MFROM "dennik.DBF" dennik
WHERE dennik."C PRAC" =:"C PRAC" and dennik."DEN" = :den
and dennik."MESIAC"=:mesiac and dennik."ROK"=:rok
ostava to na riadku cas"= ......
procedure TDataModule2.Query3CalcFields(DataSet: TDataSet);
var
cas: integer;
begin
cas:=Query3EXPR H.AsInteger*60+Query3EXPR M.AsInteger;
Query3Spolu.value:=IntToStr(cas div 60)+'h '+IntToStr(cas mod 60)+'min';
end;
v d2 to islo.
pomozte mi niekdo
Martin
RX Library
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 13.7.1999 08:54:16
Zdravim!
Mam dotaz, kde se da stahnout nejnovejsi RX Library? Na adrese ktera je
uvedena v readme.txt http://rx.demo.ru jaksi neni ke stazeni vubec nic,
resp. nefunguje to :(
Dik
Pavel Polak
na�ten� dat JPG do TImage ??
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 13.7.1999 08:58:36
Sice nevim proc to delas tak slozite ale poradim ti. Po
MStream.Write(MBuffer^, MSize) je ukazatel streamu na konci a tak tam musis
vlozit jeste MStream.Seek(0,0) a pak ti to uz bude fungovat!!!
Chtel bych te ale upozornit ze tam mas alokaci pameti a vytvareni a ruseni
objektu a nic nemas osetreno na exceptiony. V pripade ze se nejaky objekt z
nejakeho duvodu nevytvori pak ti to zhavaruje na tvrdo. A naopak v pripade
ze nastane uvnitr procedury chyba tak nemas zajisteno aby se uvolnil stream
z pameti !!!
Pokud tak nekdo programuje tak se vsichni divi ze padaji windows a vsecko se
pak haze Microsoft ale ja si osobne myslim ze alespon polovina chyb windows
je dusledkem nedusledneho programovani nas programatoru.> -----P�vodn� zpr�va-----
> Od: Jansta Kv�toslav [mailto:KJ(zv)lcs(tec)cz]
> Odesl�no: 12. �ervence 1999 19:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: na�ten� dat JPG do TImage ????
>
>
>
> �au ,
>
> pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> komponent� typu TImage ?????????????
>
> zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i
> zobrazov�n� (
> JPEG Error # 41 ) , :
>
> var
> F1 : file of Byte;
> ChByte : Byte;
> FName : string;
> MStream : TMemoryStream;
> MBuffer : PByte;
> MSize : integer;
> MP : PByte;
> Gr : TJPEGImage;
> Image : TImage;
> begin
> FName:='A.jpg';
> MSize:=0;
>
> if FileExists(FName) then
> begin
> AssignFile(F1, FName);
> Reset(F1);
> MSize := FileSize(F1);
> GetMem(MBuffer, MSize);
> MP := MBuffer;
> while not Eof(F1) do
> begin
> Read(F1, ChByte);
> MP^ := ChByte;
> Inc(MP);
> end;
> MStream := TMemoryStream.Create;
> MStream.Write(MBuffer^, MSize);
>
> // Image.Picture.Graphic.LoadFromStream(MStream);
> Gr := TJPEGImage.Create;
> Gr.LoadFromStream(MStream);
> Image.Picture.Graphic := Gr;
> CloseFile(F1);
> MStream.Free;
> end;
>
> v�m �e funguje LoadFromFile, ale pot�eboval bych to touto
> metodou, p�es
> �ten� Byte po Bytu.
>
> d�ky za ka�dou odpov��,
>
> Sl�va
>
>
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
> sumar detailu v ReportGroup
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 13.7.1999 09:01:56
Presne tvoj problem je rieseny v mojom priklade. Doporucujem ti pouzivat
SQL Report Builder program, co je nadstavba na QR a je takmer zadarmo.
pozri: http://freeweb.coco(tec)cz/tungli
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. j�l 1999 9:39
P�edm�t: QR: sumar detailu v ReportGroup
>Ahoj,
>existuje moznost v QR (3) pod GroupFooter vytisknou sumar detailu za celou
>skupinu(definovany jako dalsi query)?
>
>Radeji priklad:
>MasterQuery:
>select kraj, ico, firma from firmy order by kraj,firma
>DetailQuery:
>select ico, produkt, sum(cena) from RadkyFaktur
>where faktury.ico=master.ico
>group by ico,produkt
>GroupQuery:
>select produkt,sum(cena) from RadkuFaktur
>where RadkyFaktur.Kraj=master.kraj
>group by produkt
>
>Potrebuji v podstate tohle:
>Kraj 1 - Stredocesky
> firma 1 AITIX
> Felicia Combi 1.6 350000,-
> Octavia SLX1.6/74 450000,-
> firma 2 DelphiList
> Felicia Diesel 2.0 351000,-
> Octavia SLX1.6/74 450000,-
>Konec kraje 1
> Felicia Combi 1.6 350000,-
> Felicia Diesel 2.0 351000,-
> Octavia SLX1.6/74 900000,-
>
>Jeste jinak receno:
>Firmy urciteho kraje podle ico
>Pro kazdou firmu produkty a celkova cena
>EndGroup Kraj
>a jako soucasti EndGroup (tj. za Group):
>Vypsany produkt a celkova cena ZA KRAJ
>
>Nedari se mi pripojit dalsi Query za EndGroup, i kdyz si myslim,
>ze by to melo nejak jit.
>
>P.S. v ReportBuilder Pro to jde pres SubReport umisteny v sekci EndGroup,
>ale bych rad zjistil, jestli preci jen neni nejaka cesta
>v QR (srovnavam je pred nakupem).
>
>Leos
>
>Size of directory
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 13.7.1999 09:03:28
Zdrav�m.
zaj�malo by mne jak rychle a spolehliv� zjistit velikost v�ech soubor� v adres��i a jeho podadres���ch. Sou�et v�ech FileSize se mi nezd� jako nej��astn�j��, neb si nem��u b�t jist�, �e se v�echny soubory podvol� otev�en�. A windowsy to n�jak d�laj. Tak� by mne zj�malo jak nastavit help na windows fce aby mi to v nich i hledalo a nab�zelo i rejst��k a n� jen delphi. D�ky.
M&B
String to Pchar
[*] Ivo V�clavek <ivaclavek(zv)iol(tec)cz> - 13.7.1999 09:14:54
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, July 11, 1999 11:33 PM
Subject: Re: String to Pchar
> Ivo V�clavek wrote:
>
> Pri pretypovani Stringu na Pchar :
> var
> l:string;
> pl:pchar;
>
> begin
>
> pl:=Pchar(l);
>
> end.
>
> Mi dycky vyleze chyba : Error 61: Invalid Type Cast
>
> Co s tim??? Jak pretypovat String na Pchar???
Ahoj,
Mas v Project | Options v zalozce Compiler zaskrtle "Huge Strings" ?
Toto je vychozi nastaveni ktere by jsi mel vzdy pouzivat.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zdravim.
D�k za radu, ale v zalozce compiler volbu "Huge Strings" vubec nemam.
Mozna je to tim ze pouzivam Delphi 3.
Zkousel jsem to take pretypovat pomci
StrPcopy(pl,l)
ale hodi mi to chybu General protection fault in module at 0008:0883.
Jsem v Delphi zacatecnik, ale predpokladam, ze pro promennou typuPchar se
nejspis musi alokovat pamet. Nevim.
Predem Dik
Pivosz
na�ten� dat JPG do TImage p�es
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 13.7.1999 09:28:45
jo, LoadFromFile je jasn� v�c, to funguje bez probl�m�,
ale j� bych to pot�eboval na��tat z TMemoryStreamu, o to mi jde.
a nev�m co s t�m ..................
Bohu�el v Delphi je jen JPEG.dcu, to mi moc nepom��e. m� s t�m n�kdo n�jak� zku�enosti ????????? Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/> ----------
> Odes�latel: Miroslav Topol��[SMTP:topolar(zv)iol(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 12. �ervence 1999 20:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: na�ten� dat JPG do TImage ????
>
> Jak pou��vat obr�zky typu JPG
>
> DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat
> soubory
> JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
> --------------------------------------------------------------------------
> --
> ----
> procedure ShowJPG(FileName:string);
> var Imageb:TImage;
> temp:boolean;
> begin
> imageb:=TImage.Create(FORM1);
> temp:=Imageb.Picture.Graphic is TJPEGImage;
> Imageb.Picture.LoadFromFile(filename);
> FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
> imageb.free;
> end;
> --------------------------------------------------------------------------
> --
> ----
> Procedura pou��v� knihovny JPEG a ExtCtrls.
>
>
>
> V�pisek z Online Program�torsk� p��ru�ky
>
> http://web.iol(tec)cz/mister
> ----- Original Message -----
> From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, July 12, 1999 7:29 PM
> Subject: na�ten� dat JPG do TImage ????
>
>
>
> �au ,
>
> pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> komponent� typu TImage ?????????????
>
> zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i zobrazov�n� (
> JPEG Error # 41 ) , :
>
> var
> F1 : file of Byte;
> ChByte : Byte;
> FName : string;
> MStream : TMemoryStream;
> MBuffer : PByte;
> MSize : integer;
> MP : PByte;
> Gr : TJPEGImage;
> Image : TImage;
> begin
> FName:='A.jpg';
> MSize:=0;
>
> if FileExists(FName) then
> begin
> AssignFile(F1, FName);
> Reset(F1);
> MSize := FileSize(F1);
> GetMem(MBuffer, MSize);
> MP := MBuffer;
> while not Eof(F1) do
> begin
> Read(F1, ChByte);
> MP^ := ChByte;
> Inc(MP);
> end;
> MStream := TMemoryStream.Create;
> MStream.Write(MBuffer^, MSize);
>
> // Image.Picture.Graphic.LoadFromStream(MStream);
> Gr := TJPEGImage.Create;
> Gr.LoadFromStream(MStream);
> Image.Picture.Graphic := Gr;
> CloseFile(F1);
> MStream.Free;
> end;
>
> v�m �e funguje LoadFromFile, ale pot�eboval bych to touto metodou, p�es
> �ten� Byte po Bytu.
>
> d�ky za ka�dou odpov��,
>
> Sl�va
>
>
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
>
> Size of directory
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 13.7.1999 09:37:27
Pokud pouzijes funkce FindFirst a FindNext, tak si ze zaznamu, ktery funkce
vraci velikost prectes a soubory se pritom neoteviraji. priklad je v helpu k
Delphi u prislusnych funkci.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: Martin Bab�k <M.Babik(zv)mus(tec)cz>> Zdrav�m.
> zaj�malo by mne jak rychle a spolehliv� zjistit velikost v�ech soubor� v
adres��i a jeho podadres���ch. Sou�et v�ech FileSize se mi nezd� jako
nej��astn�j��, neb si nem��u b�t jist�, �e se v�echny soubory podvol�
otev�en�. A windowsy to n�jak d�laj. Tak� by mne zj�malo jak nastavit help
na windows fce aby mi to v nich i hledalo a nab�zelo i rejst��k a n� jen
delphi. D�ky.
>
>
> M&B
Zacatecnicky dotaz
[*] Roman �ev��k����ǯr(�j�k�o� - 13.7.1999 09:40:24
Jsem zacatecnik,
pokousim se vytvorit komponentu ve ktere je panel a na nem tlacitka.
Jak mam dicilit toho, ze v Object Inspector zmenim ciselnou hodnotu
a na formulari se mi ihned zmeni velikost tohoto buttonu ?
Diky Roman
String to Pchar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.7.1999 09:46:02
Ahoj,
ja mam taky D3 a v menu Project-Options...
na zalozce Compiler ve skupine Syntax Options
polozku Huge strings mam.
Koukni se poradne :-)))
Dobra.
> ----------
> D�k za radu, ale v zalozce compiler volbu "Huge Strings" vubec nemam.
> Mozna je to tim ze pouzivam Delphi 3.
>
> Zacatecnicky dotaz
[*] Zbynek Ceska <zbyces(zv)physics.muni(tec)cz> - 13.7.1999 10:08:40
Ahoj,
neni to lepsi nathanout mysi ?
Zbynek.
*************************************************************************
** Mgr. (MSc.) Zbynek Ceska ** http://www.sci.muni(tec)cz/~zbyces ******
** Plasma Physics ** High Technology Physics ** Microwave Physics **
*************************************************************************
On Tue, 13 Jul 1999, [iso-8859-2] Roman �ev��k wrote:
> Jsem zacatecnik,
> pokousim se vytvorit komponentu ve ktere je panel a na nem tlacitka.
> Jak mam dicilit toho, ze v Object Inspector zmenim ciselnou hodnotu
> a na formulari se mi ihned zmeni velikost tohoto buttonu ?
>
> Diky Roman
> Size of directory
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.7.1999 10:20:29
Soubor nepotrebuje byt otevren, abys zjistil jeho velikost.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Martin Bab�k <M.Babik(zv)mus(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. �ervence 1999 9:03
P�edm�t: Size of directory
Zdrav�m.
zaj�malo by mne jak rychle a spolehliv� zjistit velikost v�ech soubor� v adres��i a jeho podadres���ch. Sou�et v�ech FileSize se mi nezd� jako nej��astn�j��, neb si nem��u b�t jist�, �e se v�echny soubory podvol� otev�en�. A windowsy to n�jak d�laj. Tak� by mne zj�malo jak nastavit help na windows fce aby mi to v nich i hledalo a nab�zelo i rejst��k a n� jen delphi. D�ky.
M&B
RX Library
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.7.1999 10:25:46
zkus na http://www.micrel-dev.com/delphi/
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> Odesl�no: 13. �ervence 1999 8:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RX Library
>
> Zdravim!
>
> Mam dotaz, kde se da stahnout nejnovejsi RX Library? Na adrese ktera
> je
> uvedena v readme.txt http://rx.demo.ru jaksi neni ke stazeni vubec
> nic,
> resp. nefunguje to :(
>
> Dik
>
> Pavel Polak
>
> WsControl
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 13.7.1999 10:32:05
At 23:03 12.7.1999 +0200, you wrote:
>> >Dik za help,
>> >len by ma zaujimalo kam chodievas na taketo informacie ? ;-D
>> Debugger, zpetny assembler, halda trpelivosti a xx hodin unavujici prace...
>Tohle si pamatuju jeste z dob ZX Spectra, kdyz se hledaly nekonecny
>zivoty do her. Je docela zajimavy videt, jak nektery postupy stale
>pretrvavaji, a to i pres vsechen "pokrok" :-))
Diky M$ a jeho vsestrane peci o vyvojare (snahou Microsoftu je zjevne delat
si vsechen software sam a nechat ostatni jeho nekvalitni a predrazeny
software pasivne nakupovat) se o zadny pokrok od dob ZX Spectra, C64 &
spol. nejedna :-(
S. Kolar (standa(zv)winroute.com)
String to Pchar
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 13.7.1999 10:42:49
> ----------
> From: Ivo V�clavek[SMTP:ivaclavek(zv)iol(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 13. �ervence 1999 9:14
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: String to Pchar
>
>
> ----- Original Message -----
> From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Sunday, July 11, 1999 11:33 PM
> Subject: Re: String to Pchar
>
>
> > Ivo V�clavek wrote:
> >
> > Pri pretypovani Stringu na Pchar :
> > var
> > l:string;
> > pl:pchar;
> >
> > begin
> >
> > pl:=Pchar(l);
> >
> >
> > end.
> >
> > Mi dycky vyleze chyba : Error 61: Invalid Type Cast
> >
> > Co s tim??? Jak pretypovat String na Pchar???
>
> Ahoj,
>
> Mas v Project | Options v zalozce Compiler zaskrtle "Huge Strings" ?
> Toto je vychozi nastaveni ktere by jsi mel vzdy pouzivat.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> ************************
>
> Zdravim.
>
> D�k za radu, ale v zalozce compiler volbu "Huge Strings" vubec nemam.
> Mozna je to tim ze pouzivam Delphi 3.
>
> Zkousel jsem to take pretypovat pomci
>
> StrPcopy(pl,l)
>
> ale hodi mi to chybu General protection fault in module at 0008:0883.
> Jsem v Delphi zacatecnik, ale predpokladam, ze pro promennou typuPchar se
> nejspis musi alokovat pamet. Nevim.
>
> Predem Dik
> Pivosz
>
Spr�vn�, pro prom�nou PChar mus� alokovat pam� pomoc�:
type tpchar : array[0..n] of char;
var vpchar : tpchar;
Potom m��e� p�ev�d�t.
Ivan Vir�g
autor a vydavatelstvi jedne knihy
[*] Stanislav Kunc <standa_kunc(zv)hotmail(tec)com> - 13.7.1999 08:42:21 pdt
Zdravim,
pred nejakym casem zde nejaky pan oznamil, ze napsal knihu (tusim Delphi v
prikladech). Chtel bych ji zakoupit, ale uz si nepamatuji jmeno autora a uz
vubec vydavatelstvi. Pamatuje si to jeste nekdo? Urcite ten mail ma nekdo
ulozeny. PLEASE HELP ME!!!
S. Kunc
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Resource editor pro Win32?
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 13.7.1999 10:02:02
### Zbysek Hlinka napsal dne 12 Jul 99, v 15:55 :
> Pred hexa editorem bez detailnich znalosti ulozeni resourcu bych
> chtel durazne varovat, zejmena ve 32bitovych aplikacich. Pro
To je mi jasne. Ostatne editovat retezce ulozene stylem
20 00 72 00 65 00 70 00 6F 00 72 00 74 00 73 00
neni zadna sranda :-))
> 32bitove aplikace muze skutecne pomoct Lokalizator (ve spojeni s
> NT, pokud se to ma vlozit zpatky), nebo jsem vypustil zaklad
Funguje to ulozeni do EXE i s Loc3 FREE ? V 95/8 to skutecne nejde,
bude to pracovat v NT?
V 95/8 se mi podarilo podle navodu udelat *.CSY,
ale cestina se v aplikaci stejne neobjevila.
Nevim, skoly nemam :-))) a mozek se mi prehriva
(mozna by pomohla specialni chladici prilba,
jako mel troll Navazka :-)
> komponent pro praci s resources ulozenych ve spustitelnem
> programu (na Delphree, asi u projektu Nexus, az to tam Pavel
> Cisar da), opet ve spojeni s NT je pak snadne neco zmenit a
> soupnout to zpet.
>
> Zminovane komponenty mohou slouzit jako zaklad pro vyvoj
> neceho na zpusob Resource Workshopu.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
String to Pchar
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 13.7.1999 11:22:22
Cauec,
treba takto:
// Funkce p�evede �et�zec na typ PCHAR
function StringAsPChar(var S: OpenString): PChar;
begin
if Length(S) = High(S) then Dec(S[0]);
S[Ord(Length(S)) + 1] := #0;
Result := (zv)S[1];
end;
Bye Ludan
String to Pchar
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.7.1999 11:30:50
type tpchar : array[0..n] of char;
var vpchar : tpchar;
Potom m��e� p�ev�d�t.
Ivan Vir�g
To mi prijde zbytecne. Ja to delam tak:
var neco:PChar
begin
neco:=StrAlloc(VELIKOST);
....
a uz si nepamatuju, jestli je to free nebo dispose
Free(neco); // pro uvolneni pameti
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Zacatecnicky dotaz
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 13.7.1999 11:32:15
Predem bych ti chtel doporucit pokud jsi zacatecnik abys nezacinal
agregovanymi komponentami, protoze narazis na mnoho problemu. Zacni radeji
nejakou jednoduchou komponentou, ktera neobsahuje jine komponenty a na ni se
nauc. Taky bych ti doporucoval precist si nejakou knihu a podivat se do
originalnich zdrojaku k nejakym jednoduchym komponentam.
Tvuj dotaz je sice trosku zmateny ale obecne:
Type
TTvojeKomponenta = class(TPredekTvojiKomponenty)
...
private
procedure SetTvojeVelikost(Value: Integer);
function GetTvojeVelikost:Integer;
...
published
property TvojeVelikost: Integer read GetTvojeVelikost write
SetTvojeVelikost;
...
end;
...
...
...
procedure TTvojeKomponenta.SetTvojeVelikost(Value: Integer);
begin
NejakyTvujButton.VelikostNejakehoTvehoButtonu<>Value then
NejakyTvujButton.VelikostNejakehoTvehoButtonu := Value;
end;
function TTvojeKomponenta.GetTvojeVelikost: Integer;
begin
result:=NejakyTvujButton.VelikostNejakehoTvehoButtonu;
end;
...
...> -----P�vodn� zpr�va-----
> Od: Roman �ev��k [mailto:rsevcik(zv)artron(tec)cz]
> Odesl�no: 13. �ervence 1999 9:40
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zacatecnicky dotaz
>
>
> Jsem zacatecnik,
> pokousim se vytvorit komponentu ve ktere je panel a na nem tlacitka.
> Jak mam dicilit toho, ze v Object Inspector zmenim ciselnou hodnotu
> a na formulari se mi ihned zmeni velikost tohoto buttonu ?
>
> Diky Roman
> Uvolneni pameti po funkci
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 13.7.1999 11:55:37
>Dle meho nazoru je toto nepodstatne, protoze windows spravuji pamet
>sami, a nektere casti kodu muzou odlozit na disk (swap) -kdyz to uznaji
>za vhodne. Takze bych s tim nedelal takovou vedu. Pouze bych u hooodne
>rozsahleho projektu tento rozdelil do DLL a volal je dynamicky podle
>potreby, ovsem tak velke APP (typu office nebo autocad) asi dela
>malokdo, ze.
Tady mi asi neco unika ...
Pises, ze je to nepodstatne ... ale, ze bys hodne velky projekt rozdelil.
Opravdu salamounske:)
Jaky je tedy prinos rozdeleni EXE do DLL, kdyz se jedna o DLL,
ktere budou volany pouze z jedne aplikace?
Miloslav Skacel
skacel(zv)stereo(tec)cz
Zrout GDI
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 13.7.1999 12:07:29
> > Dokoncuji ted jakousi aplikaci a z hruzou jsem zjistil, ze jsem
> > vyrobil pozirace GDI. Po spusteni ve Win98 klesnou volne
> > prostredky GDI o cca 32% coz je o rad vice nez by (podle meho
> Nepouzivas v te aplikaci vetsi mnozstvi komponent ktere maji vlastnost
> Glyph, napriklad TBitBtn, TDBNavigator nebo TSpeedButton ? Od D3 je
> totiz ve VCL chyba, ktera je patrna zvlaste pri pouziti techto komponent.
> Projevuje se zbytecnou alokaci handlu bitmap. Dalsi info tady:
>
> http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Aug&den=01&first=1&soubor=dlfaaaad.htm
> Internet proti monopolu. Petr Vones, amatersky programator
Diky moc za informaci. Glyphu tam mam docela dost na
vselijakych Speedbuttonech a Bitbtn a podobne. Jak jsem se dival
na Tve mereni ubytek GDI zdroju odpovida vzhledem k pomeru
pouzitych bitmap tvym vysledkum, takze by to mohl byt stejny
zdroj problemu.
Jen me prekvapuje, ze by nesetrne zachazeni se zdroji v
zakladnich komponentach Delphi mohlo projit jen tak bez nejakeho
vetsiho ohlasu. Vzdyt to co jsem stvoril neni zas az tak rozsahla
aplikace a ja ji ve Win98 nespustim ani trikrat! To jsou pak nastroje
na hracku, nikoliv praci.
Nejdulezitejsi je, ze neni jasne jak si pomoct. Bitmapy na tlacitka
podle me patri. Mohu sice lecktere formulare vytvaret za behu, ale
hlavni zrout je hlavni okno aplikace.
Mel bych jeste jeden dotaz. Musim priznat neodvzdelanost,
protoze nevim, proc pod NT mohu meho zrouta spustit treba 20krat
a nic se nedeje. Dosud jsem si myslel, ze by (pokud jde o zdroje)
nemel byt vuci Win98 zasadni rozdil?
Jiri Binder
zajimava stranka pro Interbase
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 13.7.1999 12:08:28
Zdravim vsechny,
v posledni dobe jsem nalezl dost uzitecnych informaci o Interbase
na strance ib.demo.ru (pristupne pouze mladezi od 30 let -
abzuka). Myslim ze neni az tak znama ale me se zda ze obsahuje
prehrsel praktickych a uzitecnych informaci. Mimo jine je tam i
odkaz na dalsi ruskou stranku s komponentami rozsirujicimi
FreeIB komponenty (zatim jsem nezkousel). Naposledy jsem tam
nasel ke stahnuti free obdobu Marathonu.
Jiri Binder
Bitmapa a DPI
[*] Lukas Kunovsky <lukca(zv)atlas(tec)cz> - 13.7.1999 12:13:40
Ahoj,
Nev�te n�kdo, pomoc� kter� funkce lze programov�
zjistit DPI ji� existuj�c�ho obr�zku?
Lukas Kunovsky
lukca(zv)atlas(tec)cz
Decision Cube (Was: TTimer?)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.7.1999 12:47:12
Petr Vones wrote:
> Podle toho co jsem cetl a slysel, funguje Decision Cube jako strasidlo na
> programatory, aneb nikdy nevis kdy ti to zase spadne :-)
Predstav si, ze na mem poslednim skoleni uz se to chovalo
stabilne. Asi to bude zaplatou cislo 3. Pozor, je to velice sikovna
vec, pokud je vyresena nestabilita.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TFileStream
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.7.1999 12:54:25
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
je lepsi pro uvolneni pameti po TFileStream
volat metodu Free nebo Destroy ?
var FSrc : TFileStream;
begin
FSrc:= TFileStream(Jmeno, Rezim);
try
{operace se souborem}
finally
FSrc.Destroy
{nebo FSrc.Free}
Resource editor pro Win32?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.7.1999 13:13:42
Zdenek Drvota wrote:
> > Pred hexa editorem bez detailnich znalosti ulozeni resourcu bych
> > chtel durazne varovat, zejmena ve 32bitovych aplikacich. Pro
>
> To je mi jasne. Ostatne editovat retezce ulozene stylem
> 20 00 72 00 65 00 70 00 6F 00 72 00 74 00 73 00
> neni zadna sranda :-))
Tak zrovna tohle je jeste to nejmensi. Jsou tam horsi zaludnosti,
jako napriklad kontrola delky retezce (a to jeste jen v nekterych
pripadech!) atp.
> > 32bitove aplikace muze skutecne pomoct Lokalizator (ve spojeni s
> > NT, pokud se to ma vlozit zpatky), nebo jsem vypustil zaklad
>
> Funguje to ulozeni do EXE i s Loc3 FREE ? V 95/8 to skutecne nejde,
> bude to pracovat v NT?
V Lokalizatoru 3 to nefunguje, proto jsem ho take uvolnil. :-) Musis
si to udelat sam, prohledni si API funkci UpdateResource.
> V 95/8 se mi podarilo podle navodu udelat *.CSY,
> ale cestina se v aplikaci stejne neobjevila.
> Nevim, skoly nemam :-))) a mozek se mi prehriva
> (mozna by pomohla specialni chladici prilba,
> jako mel troll Navazka :-)
Precti si jeste jednou dokumentaci, nebo si prohledni zdrojaky
Lokalizatoru 3. :-)))) Dobrou zabavu preji...
Nebo je tu dalsi moznost, ze po prazdninach navstivis me skoleni o
lokalizacich u Inprise, v cene kurzu bude i jedna licence na
Lokalizator.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
na�ten� dat JPG do TImage p�es TMemoryStream
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 13.7.1999 13:34:37
Ja to delam takto: (opsal jsem to z nejakeho prikladu na www)
{*****************************************************************************}
procedure TfrmObjDokObr.ZobrazJPEG ;
var LStream: TBlobStream;
LJPEG: TJPEGImage;
begin
If Not tblZaznamyDATA.IsNull then
begin
try
LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
LJpeg:=TJPEGImage.Create;
LStream.Position:=0;
LJpeg.LoadFromStream(LStream);
imgData.Picture.Assign(LJPEG); // imgData: TImage
imgData.Visible:=True;
finally
LJpeg.Destroy;
LStream.Destroy;
end;
end
else
begin
imgData.Visible:=False;
end;
end ;
-----P�vodn� zpr�va-----
Od: Jansta Kv�toslav [SMTP:KJ(zv)lcs(tec)cz]
Odesl�no: 13. �ervence 1999 9:29
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: na�ten� dat JPG do TImage p�es TMemoryStream ????
jo, LoadFromFile je jasn� v�c, to funguje bez probl�m�,
ale j� bych to pot�eboval na��tat z TMemoryStreamu, o to mi jde.
a nev�m co s t�m ..................
Bohu�el v Delphi je jen JPEG.dcu, to mi moc nepom��e. m� s t�m n�kdo n�jak� zku�enosti ????????? Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/> ----------
> Odes�latel: Miroslav Topol��[SMTP:topolar(zv)iol(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 12. �ervence 1999 20:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: na�ten� dat JPG do TImage ????
>
> Jak pou��vat obr�zky typu JPG
>
> DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat
> soubory
> JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
> --------------------------------------------------------------------------
> --
> ----
> procedure ShowJPG(FileName:string);
> var Imageb:TImage;
> temp:boolean;
> begin
> imageb:=TImage.Create(FORM1);
> temp:=Imageb.Picture.Graphic is TJPEGImage;
> Imageb.Picture.LoadFromFile(filename);
> FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
> imageb.free;
> end;
> --------------------------------------------------------------------------
> --
> ----
> Procedura pou��v� knihovny JPEG a ExtCtrls.
>
>
>
> V�pisek z Online Program�torsk� p��ru�ky
>
> http://web.iol(tec)cz/mister
> ----- Original Message -----
> From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, July 12, 1999 7:29 PM
> Subject: na�ten� dat JPG do TImage ????
>
>
>
> �au ,
>
> pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> komponent� typu TImage ?????????????
>
> zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i zobrazov�n� (
> JPEG Error # 41 ) , :
>
> var
> F1 : file of Byte;
> ChByte : Byte;
> FName : string;
> MStream : TMemoryStream;
> MBuffer : PByte;
> MSize : integer;
> MP : PByte;
> Gr : TJPEGImage;
> Image : TImage;
> begin
> FName:='A.jpg';
> MSize:=0;
>
> if FileExists(FName) then
> begin
> AssignFile(F1, FName);
> Reset(F1);
> MSize := FileSize(F1);
> GetMem(MBuffer, MSize);
> MP := MBuffer;
> while not Eof(F1) do
> begin
> Read(F1, ChByte);
> MP^ := ChByte;
> Inc(MP);
> end;
> MStream := TMemoryStream.Create;
> MStream.Write(MBuffer^, MSize);
>
> // Image.Picture.Graphic.LoadFromStream(MStream);
> Gr := TJPEGImage.Create;
> Gr.LoadFromStream(MStream);
> Image.Picture.Graphic := Gr;
> CloseFile(F1);
> MStream.Free;
> end;
>
> v�m �e funguje LoadFromFile, ale pot�eboval bych to touto metodou, p�es
> �ten� Byte po Bytu.
>
> d�ky za ka�dou odpov��,
>
> Sl�va
>
>
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
>
>
RX Library
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 13.7.1999 13:43:16
Zdravim!
Vyvyji se jeste vubec RX library? Nevite o tom nekdo neco vic, proc zmizela
jejich oficialni stranka?
----- P�vodn� zpr�va -----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. �ervence 1999 10:25
P�edm�t: RE: RX Library
zkus na http://www.micrel-dev.com/delphi/
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> Odesl�no: 13. �ervence 1999 8:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RX Library
>
> Zdravim!
>
> Mam dotaz, kde se da stahnout nejnovejsi RX Library? Na adrese ktera
> je
> uvedena v readme.txt http://rx.demo.ru jaksi neni ke stazeni vubec
> nic,
> resp. nefunguje to :(
>
> Dik
>
> Pavel Polak
>
>
TFileStream
[*] DURDINA Michal <durdina(zv)asset.sk> - 13.7.1999 13:45:31
Pozri Help k TFileStream.Destroy.
RTFM -> Read that fucking manual
Som tu sice novy, ale uz ma prestava bavit citat maily, ktore su o nicom.
To, ze je niekto zaciatocnik, to nie je vada, kazdy z nas bol (prip. je),
ale preco v pripade prvych nejasnosti okamzite niekto posiela svoj mail do
konferencie a tym obtazuje ostatnych, hoci keby sa nad vecou lepsie zamyslel
alebo prestudoval dostupne materialy, dosiel by k rieseniu este skor ako mu
dojde odpoved na jeho mail. Dalej mi tu vadia maily, v ktorych si dvaja
mailisti navzajom posielaju poznamky, ktore nemaju s Delphi alebo s
programovanim nic spolocne a len zbytocne obtazuju ostatnych. Preco si to
neposielaju anonymne?
Viem, ludia su lenive svine a je im jednoduchsie stlacit button Reply ako
stlacit iny button New Mail a vyplnit adresu (samozrejme cez Clipboard).
To je vsetko, idem na vzduch. (Asi to nie je najlepsie mat pracovisko v
podkrovi, ked je vonku takto teplo).
Caute
Miso Durdina
> -----Original Message-----
> From: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: 13. j�l 1999 12:54
> To: #Delphi-K
> Subject: TFileStream
>
> Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
> volat metodu Free nebo Destroy ?
>
>
> var FSrc : TFileStream;
> begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
> Delka videa 2
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 13.7.1999 13:57:44
Nedavno jsem tu mel dotaz ohledne zjistovani delky videa (AVI, MPG, MOV...). Problem byl v tom, ze TMediaPlayer mi vrati funkci Length pocet framu (obrazku), ale ne pocet sekund, nebo milisekund. Neda se zjistit ani pocet obrazku za sekundu, takze delku videa nelze zjistit. Na tento dotaz mi bohuzel nikdo neodpovedel, tak to zkousim znovu, jestli uz to nahodou nekdo nevite.
vobornik(zv)ssakhk(tec)cz
Uvolneni pameti po funkci
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 13.7.1999 14:00:50
Zdravim,
ja sam bych videl dva zasadni duvody:
1. Pokud pises aplikaci slozenou z jakychsi modulu (DLL), uzivatel vsechny
nevyuziva soucasne tak je vyhodne mit natazeny (fce LoadLibrary) pouze DLL,
ktere jsou v dany okamzik potreba pro chod programu. Po ukonceni vyuzivani
funkci z DLL je mozne prislusnou DLL knihovnu uvolnit. Toto je zvlaste
dulezite u zminenych velkych aplikaci (Office, Autocad).
2. Snadna vymena DLL misto cele aplikace. Kdyz napr. ovladas nejaky
nestandardni HW, je vyhodne si udelat DLL knihovnu, ktera bude mit pevne
definovany funce (ovladajici ten HW), ktere volas z EXE nebo jine DLL
knihovny. Po zmene ovladani HW nebo jeho zamene lze vymenit pouze DLL a
zbytek aplikace nechat nezmenen. Toto byl jen priklad, neplati to samozrejme
jen na ovladace HW.
Mozna nekdo prijde na dalsi...
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Miloslav Sk�cel <kastner(zv)infos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 13:24
P�edm�t: Fw: Uvolneni pameti po funkci
>>Dle meho nazoru je toto nepodstatne, protoze windows spravuji pamet
>>sami, a nektere casti kodu muzou odlozit na disk (swap) -kdyz to uznaji
>>za vhodne. Takze bych s tim nedelal takovou vedu. Pouze bych u hooodne
>>rozsahleho projektu tento rozdelil do DLL a volal je dynamicky podle
>>potreby, ovsem tak velke APP (typu office nebo autocad) asi dela
>>malokdo, ze.
>
>Tady mi asi neco unika ...
>Pises, ze je to nepodstatne ... ale, ze bys hodne velky projekt rozdelil.
>Opravdu salamounske:)
>
>Jaky je tedy prinos rozdeleni EXE do DLL, kdyz se jedna o DLL,
>ktere budou volany pouze z jedne aplikace?
>
>Miloslav Skacel
>skacel(zv)stereo(tec)cz
>
>
>SysTreeView
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 13.7.1999 14:05:47
Preji pekneho dne,
jak se da vytahnout z comctl32.ocx a pouzit SysTreeView (napr. leva
strana pruzkumnika ve WIN) nebo jak ho co nejjednodusseji vytvorit
(napsat) jako dialogovy box?
Diky, Honza.sumar detailu v ReportGroup
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 13.7.1999 14:06:22
Mozes to urobit nasledovne:
Detail--| Header
| /
| -SubDetail
| \
| Footer Header
| /
| - SubSubDetail
\
Footer
atd.
Treba vyuzivat udalost XYFooter.BeforePrint
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. j�l 1999 9:39
P�edm�t: QR: sumar detailu v ReportGroup
>Ahoj,
>existuje moznost v QR (3) pod GroupFooter vytisknou sumar detailu za celou
>skupinu(definovany jako dalsi query)?
>
>Radeji priklad:
>MasterQuery:
>select kraj, ico, firma from firmy order by kraj,firma
>DetailQuery:
>select ico, produkt, sum(cena) from RadkyFaktur
>where faktury.ico=master.ico
>group by ico,produkt
>GroupQuery:
>select produkt,sum(cena) from RadkuFaktur
>where RadkyFaktur.Kraj=master.kraj
>group by produkt
>
>Potrebuji v podstate tohle:
>Kraj 1 - Stredocesky
> firma 1 AITIX
> Felicia Combi 1.6 350000,-
> Octavia SLX1.6/74 450000,-
> firma 2 DelphiList
> Felicia Diesel 2.0 351000,-
> Octavia SLX1.6/74 450000,-
>Konec kraje 1
> Felicia Combi 1.6 350000,-
> Felicia Diesel 2.0 351000,-
> Octavia SLX1.6/74 900000,-
>
>Jeste jinak receno:
>Firmy urciteho kraje podle ico
>Pro kazdou firmu produkty a celkova cena
>EndGroup Kraj
>a jako soucasti EndGroup (tj. za Group):
>Vypsany produkt a celkova cena ZA KRAJ
>
>Nedari se mi pripojit dalsi Query za EndGroup, i kdyz si myslim,
>ze by to melo nejak jit.
>
>P.S. v ReportBuilder Pro to jde pres SubReport umisteny v sekci EndGroup,
>ale bych rad zjistil, jestli preci jen neni nejaka cesta
>v QR (srovnavam je pred nakupem).
>
>Leos
>
>TFileStream
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 13.7.1999 14:06:52
V helpu k Delphi pisou, ze Free automaticky vola Destroy, pokud instance
objektu neni rovna nil.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
> volat metodu Free nebo Destroy ?
>
> var FSrc : TFileStream;
> begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
>
>ftp.mlp.cz
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 13.7.1999 14:13:20
> P.S.:
> Pro spravce ftp.mlp(tec)cz: Kdysi bylo na tomto serveru zrizeno FTP pro
> potreby konference. Nejak to ale prestalo brat to puvodni heslo :-)
Takoeto veci psat priste nejlepe primo na mne na
gebauerl(zv)mlp(tec)cz, protoze kdyby mne na to neupozornil bracha,
tak se to asi nedozvim. ;-)
Problem je v tom, ze se zcela zmenil server a tak se vse dela
znova. (schvalne, aby se vymlatily mrtve duse). konto jsem ted
obnovil a tak je:
username = delphi
password = konference
umisteni je tamtez... mam nejake problemy s nastavovanim prav,
tak to prisim nekdo vyzkousejte jestli to funguje tak jak ma...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
RasDialDlg pod NT
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 13.7.1999 14:24:43
Nazdarek,
nezkousel nekdo nahodou tuto funkci pod NT. Me to neustale pise, ze nemuze najit polozku v seznamu, i kdyz mu predam polozku, kterou vyberu primo ze seznamu.
Mirek
Zdrojak:
...
procedure TForm1.Button1Click(Sender: TObject);
var
SysDir: array[0..MAX PATH] of Char;
Dlg: TDialog;
RasDialDlg: LPRasDialDlg;
EntryName: array[0..255] of Char;
begin
GetMem(RasDialDlg, SizeOf(TRasDialDlg));
StrPCopy(EntryName, ComboBox1.Text);
try
RasDialDlg.dwSize := SizeOf(TRasDialDlg);
RasDialDlg.Owner := Form1.Handle;
RasDialDlg.dwSubEntry := 0;
RasDialDlg.dwError := 0;
RasDialDlg.reserved := 0;
RasDialDlg.reserved2 := 0;
GetSystemDirectory(SysDir, MAX PATH);
Lib := LoadLibrary(PChar(SysDir + '\rasdlg.dll'));
Dlg := GetProcAddress(Lib, 'RasDialDlgW');
if (zv)Dlg <> nil then
begin
if Dlg(PChar('C:\WinNT\system32\ras\rasphone.pbk'), EntryName,
'', RasDialDlg) then
ShowMessage('Connected')
else
ShowMessage('Not connected');
end
else
ShowMessage(IntToStr(GetLastError));
finally
ShowMessage(IntToStr(RasDialDlg.dwError));
FreeMem(RasDialDlg, SizeOf(TRasDialDlg));
FreeLibrary(Lib);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
NumEntries, Cnt: Integer;
Bufsize: Longint;
EntriesNames: Array[1..100] of TRasEntryName;
begin
ComboBox1.Clear;
for Cnt := 1 to 100 do
EntriesNames[Cnt].dwSize := SizeOf(TRasEntryName);
if RasEnumEntries(nil, 'C:\WinNT\system32\ras\rasphone.pbk', (zv)EntriesNames[1],
BufSize, NumEntries) = 0 then
if NumEntries > 0 then
for Cnt := 1 to NumEntries do
begin
ComboBox1.Items.Add(StrPas(EntriesNames[Cnt].szEntryName));
end;
end;
Size of directory
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 13.7.1999 14:30:14
Jan Fiala wrote: Pokud pouzijes funkce FindFirst a FindNext, tak si ze zaznamu,
Pomoc� toho ale zjist�m jen velikost soubor� v adres��i ne velikost v�ech soubor� i v podadreas���ch, nev�te n�kdo jak to d�laj windows, nebo WC?
M&B
TFileStream
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 13.7.1999 14:51:44
Podle me bude lepsi Free, protoze Destroy je volani destructoru a Free muze
provadet jeste dalsi uvolnovani.
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: #Delphi-K <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 14:40
P�edm�t: TFileStream
>Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
>volat metodu Free nebo Destroy ?
>
>
>var FSrc : TFileStream;
>begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
>
>Size of directory
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 13.7.1999 14:53:22
Napise se funkce s rekurzivnim volanim, ktera projde vsechny podadresare
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: Martin Bab�k <M.Babik(zv)mus(tec)cz>> Jan Fiala wrote: Pokud pouzijes funkce FindFirst a FindNext, tak si ze
zaznamu,
>
> Pomoc� toho ale zjist�m jen velikost soubor� v adres��i ne velikost v�ech
soubor� i v podadreas���ch, nev�te n�kdo jak to d�laj windows, nebo WC?
>
>
> M&B
TFileStream
[*] Pavel �im��ek - 13.7.1999 15:03:29
>Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
>volat metodu Free nebo Destroy ?
>
>
>var FSrc : TFileStream;
>begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
>
>
No jestli se nepletu tak Free napred zkontroluje jestli uz nebyl objekt
uvolnen a pak zavola Destroy. Takze volani Free by melo byt bezpecnejsi.
Ahoj Pavel
RX Library
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.7.1999 15:15:41
Taky zdravim,
zrejme se dal na tom pracuje. Jejich server je v cinnosti jenom obcas
(naposledy jsem stihl stahnout jen fixbug) a nakratkou dobu (posledni
spojeni cca 12-15 min). Na vetsine zrcadel jsou verze starsi. Poptaval
jsem se, avsak odpoved mi zatim nedosla. Vyckejte prosim.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> Odesl�no: 13. �ervence 1999 13:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: RX Library
>
> Zdravim!
>
> Vyvyji se jeste vubec RX library? Nevite o tom nekdo neco vic, proc
> zmizela
> jejich oficialni stranka?
>
>
> ----- P�vodn� zpr�va -----
> Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 13. �ervence 1999 10:25
> P�edm�t: RE: RX Library
>
>
> zkus na http://www.micrel-dev.com/delphi/
> Jaro B.
>
> > -----P�vodn� zpr�va-----
> > Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> > Odesl�no: 13. �ervence 1999 8:54
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RX Library
> >
> > Zdravim!
> >
> > Mam dotaz, kde se da stahnout nejnovejsi RX Library? Na adrese ktera
> > je
> > uvedena v readme.txt http://rx.demo.ru jaksi neni ke stazeni vubec
> > nic,
> > resp. nefunguje to :(
> >
> > Dik
> >
> > Pavel Polak
> >
> >
>
> TFileStream
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 13.7.1999 15:29:28
NIKDY nevolej primo Destroy ale VZDY Free. Free totiz samo vola Destroy ale
zaroven kontroluje jestli instance toho objektu jeste existuje - jestli
neexistuje pak Destroy nevola. Myslim ze jeste obhospodaruje jeste nejake
dalsi kontroly, ale neznam to do hloubky.
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 13. �ervence 1999 12:54
> Komu: #Delphi-K
> P�edm�t: TFileStream
>
> Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
> volat metodu Free nebo Destroy ?
>
>
> var FSrc : TFileStream;
> begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
> Uvolneni pameti po funkci
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 13.7.1999 15:29:12
Hi,
na tom neni nic salamounskeho, jde o to, ze musis vzdy urcit, jestli ti
takove setreni pameti stoji za namahu, nebo ne. V podstate bys setrit
vubec nemusel, ale takovy program pak pracuje pomalu, protoze se casto
swapuje. Ale ja te k nicemu nenutim, tak si delej co chces. Rozdeleni na
DLL je vyhodne v tom, ze si ty knihovny natahujes podle potreby a pak je
uvolnis, tim zmensis pracovni sadu, a snizis swapping. Cele tohle
povidani je ale o nicem, nebo snad delas druhy office?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Miloslav Sk�cel [SMTP:kastner(zv)infos(tec)cz]
> Odesl�no: 13. �ervence 1999 11:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Fw: Uvolneni pameti po funkci
>
> >Dle meho nazoru je toto nepodstatne, protoze windows spravuji pamet
> >sami, a nektere casti kodu muzou odlozit na disk (swap) -kdyz to
> uznaji
> >za vhodne. Takze bych s tim nedelal takovou vedu. Pouze bych u
> hooodne
> >rozsahleho projektu tento rozdelil do DLL a volal je dynamicky podle
> >potreby, ovsem tak velke APP (typu office nebo autocad) asi dela
> >malokdo, ze.
>
> Tady mi asi neco unika ...
> Pises, ze je to nepodstatne ... ale, ze bys hodne velky projekt
> rozdelil.
> Opravdu salamounske:)
>
> Jaky je tedy prinos rozdeleni EXE do DLL, kdyz se jedna o DLL,
> ktere budou volany pouze z jedne aplikace?
>
> Miloslav Skacel
> skacel(zv)stereo(tec)cz
> Mistrovstvi v Delphi 3
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.7.1999 15:32:15
Pavel Polak wrote:
> Hele myslis to vazne ze mas takovej programek?
Jo.
> Umi to generovat i s datem
> expirace?
Mam pocit ze ne...
Mac
RX Library
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 13.7.1999 15:32:01
Hi,
to je prece jednoduche, ti autori RX proste posbirali na ruskem fidu
nekolik komponent, predelali je a udelali RXLib, tu dali k dispozici.
Cely smysl jejich konani byl zviditelnit se a ziskat dobra mista v USA
nebo v zapadni evrope. Pokud vim, uz je maji a tak je nic nenuti delat
dalsi vyvoj. Tolik o tom vim ja. Ale treba je vsechno jinak a ja se
mylim. Kez by!
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> Odesl�no: 13. �ervence 1999 13:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: RX Library
>
> Zdravim!
>
> Vyvyji se jeste vubec RX library? Nevite o tom nekdo neco vic, proc
> zmizela
> jejich oficialni stranka?
>
>
> ----- P�vodn� zpr�va -----
> Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 13. �ervence 1999 10:25
> P�edm�t: RE: RX Library
>
>
> zkus na http://www.micrel-dev.com/delphi/
> Jaro B.
>
> > -----P�vodn� zpr�va-----
> > Od: Pavel Polak [SMTP:pavelp(zv)bnsoft(tec)cz]
> > Odesl�no: 13. �ervence 1999 8:54
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RX Library
> >
> > Zdravim!
> >
> > Mam dotaz, kde se da stahnout nejnovejsi RX Library? Na adrese ktera
> > je
> > uvedena v readme.txt http://rx.demo.ru jaksi neni ke stazeni vubec
> > nic,
> > resp. nefunguje to :(
> >
> > Dik
> >
> > Pavel Polak
> >
> >
>
> Zrout GDI
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 13.7.1999 15:35:50
1. NT pracuji s resources uplne jinak a tento problem nemaji. Proto jsme
take pri vyvoji presli na NT protoze nejvetsim zroutem resources je Delphi
samo o sobe.
2. Pro provoz pod W95 jsme vytvorili mechanizmus, ktery v pripade poklesu
resources pod stanovenou hranici automaticky uvolni z pameti nejdele
nepouzivane formulare, ktere maji uvolneni povoleno. Da se to udelat docela
obecne, trosku byla drbacka s tim, aby se choval jinak pod NT a jinak pod
W95, ale zas tak moc velky problem to nebyl.
Jinak i mne tato vlastnost Delphi docela stve.
-----P�vodn� zpr�va-----
Od: Jiri Binder [SMTP:j.binder(zv)albacon(tec)cz]
Odesl�no: 13. �ervence 1999 12:07
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Zrout GDI
> > Dokoncuji ted jakousi aplikaci a z hruzou jsem zjistil, ze jsem
> > vyrobil pozirace GDI. Po spusteni ve Win98 klesnou volne
> > prostredky GDI o cca 32% coz je o rad vice nez by (podle meho
> Nepouzivas v te aplikaci vetsi mnozstvi komponent ktere maji vlastnost
> Glyph, napriklad TBitBtn, TDBNavigator nebo TSpeedButton ? Od D3 je
> totiz ve VCL chyba, ktera je patrna zvlaste pri pouziti techto komponent.
> Projevuje se zbytecnou alokaci handlu bitmap. Dalsi info tady:
>
>
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Aug&den=01&first=1&soubor
=dlfaaaad.htm
> Internet proti monopolu. Petr Vones, amatersky
programator
Diky moc za informaci. Glyphu tam mam docela dost na
vselijakych Speedbuttonech a Bitbtn a podobne. Jak jsem se dival
na Tve mereni ubytek GDI zdroju odpovida vzhledem k pomeru
pouzitych bitmap tvym vysledkum, takze by to mohl byt stejny
zdroj problemu.
Jen me prekvapuje, ze by nesetrne zachazeni se zdroji v
zakladnich komponentach Delphi mohlo projit jen tak bez nejakeho
vetsiho ohlasu. Vzdyt to co jsem stvoril neni zas az tak rozsahla
aplikace a ja ji ve Win98 nespustim ani trikrat! To jsou pak nastroje
na hracku, nikoliv praci.
Nejdulezitejsi je, ze neni jasne jak si pomoct. Bitmapy na tlacitka
podle me patri. Mohu sice lecktere formulare vytvaret za behu, ale
hlavni zrout je hlavni okno aplikace.
Mel bych jeste jeden dotaz. Musim priznat neodvzdelanost,
protoze nevim, proc pod NT mohu meho zrouta spustit treba 20krat
a nic se nedeje. Dosud jsem si myslel, ze by (pokud jde o zdroje)
nemel byt vuci Win98 zasadni rozdil?
Jiri Binder
Decision Cube (Was: TTimer?)
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 13.7.1999 15:37:34
Pouzivame Decision Cube pod D3. Dalo to kolegovi hodne ohybani, aby to
donutil chovat se aspon priblizne tak jak ma. Jsou snad nejake zaplaty i
pro D3?
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odesl�no: 13. �ervence 1999 12:47
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Decision Cube (Was: TTimer?)
Petr Vones wrote:
> Podle toho co jsem cetl a slysel, funguje Decision Cube jako strasidlo na
> programatory, aneb nikdy nevis kdy ti to zase spadne :-)
Predstav si, ze na mem poslednim skoleni uz se to chovalo
stabilne. Asi to bude zaplatou cislo 3. Pozor, je to velice sikovna
vec, pokud je vyresena nestabilita.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dve otazecky
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 13.7.1999 16:01:10
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim vsechny,
chci Vas vsechny pozadat o radu jak vyresit pro mne neresitelne problemy:
1) Mam na Formu nekolik komponent TImage. Chci v programu na udalost TImage.OnClick do obrazku
vlozit nejaky text. V TImage mam nahrany obrazek BMP. Pokud udelam
TImage.Picture.Canvas.OutText( ... ) tak sice text vlozim, ale ja potrebuji mit text transparentni vuci te
bitmape.
2) DDE komunikaci bych vramci dvou aplikaci na jednom PC zvladl, ale ja potrebuji posilat data (neni jich
mnoho) z jedne aplikaci na PC do druhe aplikace na jinem PC spojenych pomoci sitove karty. Budu vdecny za kazdou radu ci pomoc s temito otazkami.
Predem vsem mnohokrat dekuji.
Size of directory
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 13.7.1999 16:05:51
Normalni rekurzi, proste si nactes slozky, a pak v nich dalsi..... a
scitas.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Bab�k [SMTP:M.Babik(zv)mus(tec)cz]
> Odesl�no: 13. �ervence 1999 14:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Size of directory
>
> Jan Fiala wrote: Pokud pouzijes funkce FindFirst a FindNext, tak si ze
> zaznamu,
>
> Pomoc� toho ale zjist�m jen velikost soubor� v adres��i ne velikost
> v�ech soubor� i v podadreas���ch, nev�te n�kdo jak to d�laj windows,
> nebo WC?
>
>
>
> M&B
Dve otazecky
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 13.7.1999 16:14:10
No s bodem 2 Ti radit nebudu, mohlo by to dopadnout blbe.
k tomu bodu 1 by Ti melo stacit malo .... asi toto :
TImage.Picture.Canvas.brush.style.bsclear;
TImage.Picture.Canvas.OutText( ... );
Mti.
...jenom nevim, co si mysli ostatni o html formatu mailu...
>1) Mam na Formu nekolik komponent TImage. Chci v programu na udalost
>TImage.OnClick do obrazku vlozit nejaky text. V TImage mam nahrany obrazek
>BMP. Pokud udelam TImage.Picture.Canvas.OutText( ... ) tak sice text
vlozim,
>ale ja potrebuji mit text transparentni vuci te bitmape.
DELPHI syntaxe
[*] Miroslav Topol�� - 13.7.1999 16:58:17
Potrebuju poradit s takovou prkotinou:
mam :
type THJK=array[1..4] of byte;
var HJK:THJK
pak potrebuji priradit hodnoty: HJK[1]:=3;HJK[2]:=2;HJK[3]:=1;HJK[4]:=3;
neexistuje nejake lehci vyplneni tohoto pole ?
predstavoval bych si to takle : hjk=thjk(3,2,1,3); { Ale nefunguje to ! } Znate nekdo reseni ????20
Chyba prekladace pri porovnani currency a variant
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 13.7.1999 18:02:35
Omlouvam se za dvoumesicni zpozdeni. Dnes jsem si cistil emaily, ktere
jsem nemel dosud cas cist.
Jen pripominam citovany problem 2*2 currency <> 4 variant.
Musim se zastat Borlandu. Podle mne to neni chyba prekladace.
Currency je 64bit integer format s desetinnou teckou posunutou o ctyri
mista. A je urcen pro zobrazeni meny. Pokud nasobim menu menou je to
jednak nesmysl]), jednak dojde k posunu desetinne carky.
Viz uvedeny priklad 2[koruny] * 2[koruny] = 4[koruny na druhou] nebo
chcete-li [koruny ctverecni]
Nasobim-li dve cisla, ktera maji ctyri des.mista ve fix formatu, pak ma
vysledek obecne 8 des. mist.
Pokud pak porovnam variant a currency, prekladac pocita, ze jsou tam jen
ctyri, jako obycejne. Proto jste v prikladu museli delit cislem 10000.
Jak ma prekladac poznat, jaka matematicka operace se s currency
provadela. Treba bude nekdo chtit vygenerovat koruny krychlove.
Omluvte lehce nezavaznou formu. Jsem dnes nejakej uprogramovanej.
Cau a mejte se fajn.
Ivan P.Dve otazecky
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 13.7.1999 18:21:14
>No s bodem 2 Ti radit nebudu, mohlo by to dopadnout blbe.
>
>k tomu bodu 1 by Ti melo stacit malo .... asi toto :
>
>TImage.Picture.Canvas.brush.style.bsclear;
Chybicka malicka:
TImage.Picture.Canvas.brush.style:=bsclear;
>TImage.Picture.Canvas.OutText( ... );
>
>Mti.
>
>...jenom nevim, co si mysli ostatni o html formatu mailu...
>
>>1) Mam na Formu nekolik komponent TImage. Chci v programu na udalost
>>TImage.OnClick do obrazku vlozit nejaky text. V TImage mam nahrany obrazek
>>BMP. Pokud udelam TImage.Picture.Canvas.OutText( ... ) tak sice text
>vlozim,
>>ale ja potrebuji mit text transparentni vuci te bitmape.
>
>Dve otazecky (off)
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 13.7.1999 19:30:05
Zdravim,
-----P�vodn� zpr�va-----
Od: Martin Tichacek <martin_t(zv)mrp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 16:34
P�edm�t: Re: Dve otazecky
>...jenom nevim, co si mysli ostatni o html formatu mailu...
Taky by me to zajimalo, jestli ti, co nemaji HTML mailer, ten mail prectou.
Pokud se podivam na text zpravy, vypada to, ze se posila duplicitne,
jako prosty text a HTML, takze to "akorat" zvetsuje zpravy.
>>2) DDE komunikaci bych vramci dvou aplikaci na jednom PC zvladl, ale ja
>>potrebuji posilat data (neni jich mnoho) z jedne aplikaci na PC do druhe
>>aplikace na jinem PC spojenych pomoci sitove karty.
A nebylo by to lepsi pres TCP/IP sockety ?
(V zalozce Internet komponenty TClientSocket, TServerSocket)
(demo v adresari C:\Program Files\Borland\Delphi4\Demos\Internet\Chat )
Tomas
t.bradle(zv)pvtnet(tec)cz
OLE Automation Server in Word
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 13.7.1999 19:49:08
Ahoj vsichni.
Ovlada tady nekdo OLE Automation natolik, ze by dokazal udelat objekt ve
Wordu, ktery
by byl ovladan serverem vytvorenym vDelphi 3 nebo 4?
Prikladem budtez rovnice vlozene z Equation EdItoru.
Pripadne, nevi nekdo o nejakem dobrem zdroji informaci (anglicky i cesky) o
OLE Automation Serverech v aplikacich MS Office?
Pozn.: V Mistrovstvi v Delphi 3 (z angl. Using Delphi 3) je sice docela
dobre popsana tvorba Auto. serveru, ale
nepodarilo se mi udelat vise zmineny objekt.
Dik za pomoc.
PS: Cim driv, tim lip.
Tomas Matousek
TFileStream
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 13.7.1999 19:50:37
Podle me bude lepsi Free, protoze Destroy je volani destructoru a Free muze
provadet jeste dalsi uvolnovani.
Free je staticka metoda tridy TObject a provadi presne toto:
procedure TObject.Free;
asm
TEST EAX,EAX
JE (zv)(zv)exit
MOV ECX,[EAX]
MOV DL,1
CALL dword ptr [ECX].vmtDestroy
(zv)(zv)exit:
end;
Takze je zrejme, ze pokud existuje odkaz na destructor, vola pouze
destructor.
Destructor je prave to misto, kde se uvolnujou zdroje.
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: #Delphi-K <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 14:40
P�edm�t: TFileStream
>Ahoj,
> je lepsi pro uvolneni pameti po TFileStream
>volat metodu Free nebo Destroy ?
>
>
>var FSrc : TFileStream;
>begin
> FSrc:= TFileStream(Jmeno, Rezim);
> try
> {operace se souborem}
> finally
> FSrc.Destroy
> {nebo FSrc.Free}
>
>Prosba
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 13.7.1999 19:50:32
-----P�vodn� zpr�va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 8:06
P�edm�t: RE: Prosba
----P�vodn� zpr�va-----
Od: Karel D�d�k [mailto:seat(zv)mail.cybernet(tec)cz]
Odesl�no: 13. �ervence 1999 6:18
Komu: Delphi
P�edm�t: Prosba
Ono to sem asi nepat��, ale ji� nemam jin� n�pad tak zkou��m �t�st�.
M�m program napsan� v TurboPascalu a pot�eboval bych ho p�epsat do Dephi,
ale proto�e jsem laik, byl bych r�d kdyby se toho n�kdo ujal.
Jedn� se o cca 50kb - pomoc� programu je ovl�d�n p�es AD/DA p�evodn�k m���c�
p��stroj a v�sledek m��en� - graf je trvale zobrazov�n.
Pokud n�kdo najde �as a chu�, tak pros�m p��mo, a� nezat�ujeme konferenci
(nav�c to sem asi opravdu nepat��).
Myslim, ze to sem patri.
Nemam s tim zkusenosti, ale kdysi u Delphi1
bylo napsano, ze by mely fungovat vsechny zdrojaky
odladene v Borland Pascalu. Takze myslim, ze by Ti mel jit
program prelozit bez problemu. Jina situace asi muze byt
s ovladanim toho prevodniku. Zalezi na tom, jaky mas operacni system,
do jake miry Ti umozni pristupovat na hardware, coz asi
delas, jestli to jelo pod DOSem.
V kazdem pripade ale myslim, ze bys to mel zkusit nejprve prelozit,
abys ziskal nejake konkretni problemy.
Takze prejmenuj program.pas na program.dpr, nastav ve vlastnostech,
ze jde o konzolovou aplikaci a prekladej. Mozna budes muset prejmenovat
nejake unity v uses (crt na wincrt, dos na windos - nevim presne co
vsechno).
Potom napis, az se Ti vysypou konkretni problemy
Jura
>>>>
Fuuuuuuuujjjjjjjjjjj!
Co jsem to cetl!!!
Prekladat v Delphi program psany v Pascalu beze zmeny a jeste navic
ovladajici hardware.
Hruuuza!!!
Ma to docela zavazne chyby:
1. Pouzivas-li instrukce typu in, out (tedy pristup na porty), tak ty ti pod
protected modem, neoli Win95, Win98, WinNT vubec nepudou ve standardnim
programu. Na to se musi uplne jinak.
2. Pouzivas-li interruptty - napr. casovac -, tak to taky nepude.
3. Unity, standardni v Pascalu jako napr CRT, DO, WinDOS, WinCRT, ... v
Delphi nejsou.
Zkratka je to prasarna.
Vsimnete si hlavne nezanetbatelneho rozdilu mezi real mode procesoru (DOS) a
protected mode (WinXX).
Tomas Matousek
Kalendar
[*] Radoslav Jalc <rjalc(zv)ke.telecom.sk> - 13.7.1999 21:14:12
Zdravim Vas,
pred nedavnom konferenciu otriasol problem s kalendarom.
Vcera som narazil na celkom zaujimavy dokument .
Poslal som to na ftp.mlp(tec)cz/pub/misc/delphi/konference/Other/calendar.zip
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: RJalc(zv)ke.telecom.sk | Mobil: +421-905-489364
DELPHI syntaxe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:35:52
> Miroslav Topol�� wrote:
>
> Potrebuju poradit s takovou prkotinou:
>
> mam :
>
> type THJK=array[1..4] of byte;
> var HJK:THJK
> pak potrebuji priradit hodnoty: HJK[1]:=3;HJK[2]:=2;HJK[3]:=1;HJK[4]:=3;
Ahoj,
Existuje:
type
THjk = array[1..4] of Byte;
procedure TForm1.Button2Click(Sender: TObject);
const
DefValues: THjk = (1, 2, 3, 4);
var
Hjk: THjk;
begin
Hjk := DefValues;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
SysTreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:41:55
Jan Naiser wrote:
>
> Preji pekneho dne,
>
> jak se da vytahnout z comctl32.ocx a pouzit SysTreeView (napr. leva
> strana pruzkumnika ve WIN) nebo jak ho co nejjednodusseji vytvorit
> (napsat) jako dialogovy box?
Ahoj,
Patrne mas namysli COMCTL32.DLL, SysTreeView32 je nazev tridy pro zakladni
TreeView, ktery mas pak jako komponentu v Delphi. K tomu aby jsi dosahl te
funkcnosti jako v Pruzkumniku by jsi jeste musel napsat pomerne dost kodu.
Existuji na to ale jiz hotove komponenty:
http://www.gexperts.com/GXExplorer/
http://www.plasmatech.com/shellctl.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Dve otazecky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:42:14
> Jind�ich Nikodem wrote:
> 2) DDE komunikaci bych vramci dvou aplikaci na jednom PC zvladl, ale ja potrebuji posilat
> data (neni jich
> mnoho) z jedne aplikaci na PC do druhe aplikace na jinem PC spojenych pomoci sitove
> karty.
Ahoj,
Asi nejjednodussi je pouzit komunikaci pres TCP/IP, nepises jakou mas verzi
Delphi, tak predpokladam D4. Tam mas komponenty TClientSocket a TServerSocket
vcetne nekolika prikladu v adresari \Demos\Internet.
Jina moznost je pouzit DCOM, nicmene tam je trochu problem pokud je jako
server W95.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zrout GDI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:42:03
Jiri Binder wrote:
> Diky moc za informaci. Glyphu tam mam docela dost na
> vselijakych Speedbuttonech a Bitbtn a podobne. Jak jsem se dival
> na Tve mereni ubytek GDI zdroju odpovida vzhledem k pomeru
> pouzitych bitmap tvym vysledkum, takze by to mohl byt stejny
> zdroj problemu.
> Jen me prekvapuje, ze by nesetrne zachazeni se zdroji v
> zakladnich komponentach Delphi mohlo projit jen tak bez nejakeho
> vetsiho ohlasu. Vzdyt to co jsem stvoril neni zas az tak rozsahla
> aplikace a ja ji ve Win98 nespustim ani trikrat! To jsou pak nastroje
> na hracku, nikoliv praci.
Ja to taky nechapu, ten problem je zcela evidentni, zvlaste ve srovnani
s Delphi 2.
> Nejdulezitejsi je, ze neni jasne jak si pomoct. Bitmapy na tlacitka
> podle me patri. Mohu sice lecktere formulare vytvaret za behu, ale
> hlavni zrout je hlavni okno aplikace.
Misto TSpeedButtonu je daleko lepsi pouzit TToolBar. A obrazkova tlacitka,
no ja nevim, ale klidne bych se bez nich obesel. Pokud na nich trvas, tak
by to slo vyresit napsanim podobneho tlacitka jako TBitBtn, ktere by misto
TGlyph pouzivalo TImageList. Zkus si nejdriv ten tvuj projekt prekopirovat
jinam a odstranit vsechny Glyphy z tlacitek a pripadne zrusit TDBNavigatory.
Ono to muze byt totiz take i necim jinym.
> Mel bych jeste jeden dotaz. Musim priznat neodvzdelanost,
> protoze nevim, proc pod NT mohu meho zrouta spustit treba 20krat
> a nic se nedeje. Dosud jsem si myslel, ze by (pokud jde o zdroje)
> nemel byt vuci Win98 zasadni rozdil?
NT spravuji resource jinym zpusobem, ktery neni tolik omezeny. Patrne
programatori v Borlandu maji jen NT a tak si toho dosud nevsimli :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Prosba
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:43:43
> Karel D�d�k wrote:
>
> Ono to sem asi nepat��, ale ji� nemam jin� n�pad tak zkou��m �t�st�.
> M�m program napsan� v TurboPascalu a pot�eboval bych ho p�epsat do Dephi, ale proto�e jsem
> laik, byl bych r�d kdyby se toho n�kdo ujal.
> Jedn� se o cca 50kb - pomoc� programu je ovl�d�n p�es AD/DA p�evodn�k m���c� p��stroj a
> v�sledek m��en� - graf je trvale zobrazov�n.
> Pokud n�kdo najde �as a chu�, tak pros�m p��mo, a� nezat�ujeme konferenci (nav�c to sem
> asi opravdu nepat��).
Ahoj,
Myslim ze to sem patri. Nejdulezitejsi na cele veci je, jakym zpusobem je ten
prevodnik pripojen k PC. Pokud je to pres seriovy port, tak to neni problem.
V pripade nejake pridavne karty je to jiz ale horsi, protoze narozdil od DOSu
kde jsi mohl na urovni aplikace primo pristupovat k I/O portum a ovladat tak
HW, neni u viceulohovych systemu jako Windows tento pristup dost dobre mozny.
Ve Windows95/98 se to sice da nouzove resit pouzitim asm instrukci IN, OUT z
aplikace a spolehat na to, ze to nejak proleze celym virtualizacnim procesem.
Spolehlivost takoveho reseni je mizerna, zvlaste u zarizeni ktera maji bezet
24 x 7. Pokud navic karta pouziva jeste IRQ nebo DMA, tak se to takto resit
uz vubec neda. Jedinym spravnym resenim je napsani vlastniho VxD driveru, coz
nelze udelat v Delphi a je to pomerne komplikovana zalezitost. Existuji ale i
urcite "univerzalni" VxD drivery (kterym sice osobne moc neverim), najdes je
napriklad na DSP, hledej tam TVICPORT a SMPORT.
Pokud se ti podari vyresit komunikaci, tak mas pul vyhrano. Zbytek aplikace
se pak rozhodne nesnaz prepisovat, radeji jej zahod a napis to znova.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Uvolneni pameti po funkci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1999 22:43:59
Miloslav Sk�cel wrote:
> Jaky je tedy prinos rozdeleni EXE do DLL, kdyz se jedna o DLL,
> ktere budou volany pouze z jedne aplikace?
Ahoj,
Podle mne ve vetsine pripadu zadny, akorat ze to cele bude slozitejsi.
Jinak v Delphi se misto rozdelovani kodu do DLL take vyplati zvazit
moznost dynamickeho nahravani balicku.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************DELPHI syntaxe
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 13.7.1999 22:59:23
Zkus toto:
type
THJK = array[1..4] of byte;
const
HJK : THJK = (3,2,1,3);
-----Original Message-----
From: Miroslav Topol�� <topolar(zv)iol(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 13. �ervence 1999 23:49
Subject: DELPHI syntaxe
Potrebuju poradit s takovou prkotinou:
mam :
type THJK=array[1..4] of byte;
var HJK:THJK
pak potrebuji priradit hodnoty: HJK[1]:=3;HJK[2]:=2;HJK[3]:=1;HJK[4]:=3;
neexistuje nejake lehci vyplneni tohoto pole ?
predstavoval bych si to takle : hjk=thjk(3,2,1,3); { Ale nefunguje to ! }
Znate nekdo reseni ????20
autor a vydavatelstvi jedne knihy
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 14.7.1999 06:40:17
Byl to p.Tomas Holan - odkaz na jeho stranku :
http://sun3.ms.mff.cuni(tec)cz/~holan/dpr.htm
Od nej jsem se dozvedel, ze by to firma www.erudio(tec)cz mela zasilat i na
dobirku. Zatim jsem nezkousel.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: Stanislav Kunc <standa_kunc(zv)hotmail.com>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. �ervence 1999 17:42
P�edm�t: autor a vydavatelstvi jedne knihy
> Zdravim,
> pred nejakym casem zde nejaky pan oznamil, ze napsal knihu (tusim Delphi v
> prikladech). Chtel bych ji zakoupit, ale uz si nepamatuji jmeno autora a
uz
> vubec vydavatelstvi. Pamatuje si to jeste nekdo? Urcite ten mail ma nekdo
> ulozeny. PLEASE HELP ME!!!
> S. Kunc
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
RX Lib
[*] rjunga(zv)oku-ka(tec)cz - 14.7.1999 06:41:08
Ahoj bando,
hodne se tady mluvi o RX komponentach, ze nejdou stahnout. Mam verzi 2.60.
Uz jsem ji do konference posilal, ale pravdepodobne to spravce konf.
stopnul. Kdo mate zajem, jsou tady
WWW.MUJWEB.CZ/POCITACE/REBELSOFT/RXLIB260.ZIP
Cau, Roman Junga
Decision Cube (Was: TTimer?)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.7.1999 06:54:16
Vlastimil Bardon wrote:
> Pouzivame Decision Cube pod D3. Dalo to kolegovi hodne ohybani, aby to
> donutil chovat se aspon priblizne tak jak ma. Jsou snad nejake zaplaty i
> pro D3?
Obavam se, ze jsem psal az o D4 + patch3. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ftp.mlp.cz
[*] Ing. �ubom�r G�L - 14.7.1999 07:24:08
vyzera, ze to funguje
LuGa
******************************
Lubomir "Levec" GAL, -LuGa
IS, NUPSESO, a.s. Nitra, SK
mailto:lgal(zv)nupseso.sk
******************************
----- Original Message -----
From: Gebauer Lukas <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 13. j�l 1999 1413
Subject: ftp.mlp(tec)cz
> > P.S.:
> > Pro spravce ftp.mlp(tec)cz: Kdysi bylo na tomto serveru zrizeno FTP pro
> > potreby konference. Nejak to ale prestalo brat to puvodni heslo :-)
>
> Takoeto veci psat priste nejlepe primo na mne na
> gebauerl(zv)mlp(tec)cz, protoze kdyby mne na to neupozornil bracha,
> tak se to asi nedozvim. ;-)
>
> Problem je v tom, ze se zcela zmenil server a tak se vse dela
> znova. (schvalne, aby se vymlatily mrtve duse). konto jsem ted
> obnovil a tak je:
>
> username = delphi
> password = konference
>
> umisteni je tamtez... mam nejake problemy s nastavovanim prav,
> tak to prisim nekdo vyzkousejte jestli to funguje tak jak ma...
>
>
> Louci se Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
autor a vydavatelstvi jedne knihy
[*] Jarosek Radim <Radim.Jarosek(zv)rbg2.siemens.de> - 14.7.1999 07:35:02
Ahoj
>Pokud je mi znamo, zatim vysli pouze dve knihy od ceskych
> autoru: " Delphi v prikladech" od Tomase Holana a "Delphi 4 - kapesni
> pruvodce vyvojare" od Jiriho Brazy. Obe jsou vhodne spise pro zacatecniky,
> takze originalni ceska literatura o Delphi pro pokrocile programatory
> neexistuje.
-----Original Message-----
From: Stanislav Kunc [mailto:standa_kunc(zv)hotmail.com]
Sent: Tuesday, July 13, 1999 5:42 PM
To: delphi-l(zv)fwd(tec)cz
Subject: autor a vydavatelstvi jedne knihy
Zdravim,
pred nejakym casem zde nejaky pan oznamil, ze napsal knihu (tusim Delphi v
prikladech). Chtel bych ji zakoupit, ale uz si nepamatuji jmeno autora a uz
vubec vydavatelstvi. Pamatuje si to jeste nekdo? Urcite ten mail ma nekdo
ulozeny. PLEASE HELP ME!!!
S. Kunc
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Dve otazecky
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 14.7.1999 07:49:45
Zdravim vsechny,
predem se omlouvam za posilani zprav ve formatu HTML, uz jsem to napravil a
posilam to jako TEXT. Dale chci podekovat za pomoc s prvni otazkou.
K te druhe otazce:
Dekuji Petru Vonesovi i Tomasovi Brandlemu za vecnou radu, ale neuvedl jsem
ze mam Delphi 4. Ale ma to jeden hacek, jelikoz jsem chudy, ale poctivy
amater , mohl jsem si dovolit jen Delphi 4 Standard. Mam tudiz obavu, ze to
asi pomoci komponent TClientSocket, TServerSocket nepujde. Hotd za malo
penez malo muziky!!!
Ale presto mnohokrat dekuji vsem za pomoc.
S pozdravem
Jindrich Nikodem
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. �ervence 1999 23:41
P�edm�t: Re: Dve otazecky
>> Jind�ich Nikodem wrote:
>
>> 2) DDE komunikaci bych vramci dvou aplikaci na jednom PC zvladl, ale ja
potrebuji posilat
>> data (neni jich
>> mnoho) z jedne aplikaci na PC do druhe aplikace na jinem PC spojenych
pomoci sitove
>> karty.
>
>Ahoj,
>
>Asi nejjednodussi je pouzit komunikaci pres TCP/IP, nepises jakou mas verzi
>Delphi, tak predpokladam D4. Tam mas komponenty TClientSocket a
TServerSocket
>vcetne nekolika prikladu v adresari \Demos\Internet.
>
>Jina moznost je pouzit DCOM, nicmene tam je trochu problem pokud je jako
>server W95.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>Stav sitove tiskarny
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 14.7.1999 08:09:34
Neumite nekdo zjistit aktualni stav sitove tiskarny ve WinNT (alespon
On-line/Error)?
GetPrinter (stejne tak zobrazeny stav v PrinterSetupDialogu) vraci
0(Pripravena) i kdyz je tiskarna vypnuta, u nekterych se ten stav mozna
zmeni po pokusu tisknout, ale ja bych to potreboval proverit pred
tiskem, abych to mohl zahlasit nebo presmerovat apod.)
Diky PF
nahtenm dat JPG do TImage pxes TMemoryStream
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 14.7.1999 08:25:42
Kod od pana Bardone je podle meho nazoru blbe.
1. Misto DESTROY se ma pozivat FREE - viz. diskuze o ruseni TFileStream
2. Pouziti TRY ... FINALLY je v tomto pripade naprosto scestne:
V idealnim pripade to sice bude fungovat ALE jestlize nastane chyba
v LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead) pak bude kod
pokracovat ve finally bloku a bude chtit uvolnovat neexistujici
instanci objektu LJpeg a LStream!!!
Pri ochrane uvolnovani objektu ve finally bloku by mel byt
CREATE objektu PRED !!! TRY, protoze v pripade chyby pri CREATE
se instance nevytvori a tudiz se nesmi ani uvolnovat.
A jeste poznamka objekt by se mel vytvaret az tesne pred pouzitim.
3. V pripade chyby nebude inicializovana imgData.Visible na zadnou hodnotu
ale bude mit puvodni - asi by bylo treba osetrit i tuto vec.
Kod po oprave:
procedure TfrmObjDokObr.ZobrazJPEG ;
var LStream: TBlobStream;
LJPEG: TJPEGImage;
begin
If Not tblZaznamyDATA.IsNull then
begin
LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead); //OPRAVENO
UMISTENI
try
LStream.Position:=0;
try
LJpeg:=TJPEGImage.Create; //OPRAVENO UMISTENI
LJpeg.LoadFromStream(LStream);
imgData.Picture.Assign(LJPEG);
imgData.Visible:=True;
finally
LJpeg.Free; //OPRAVENO
end;
finally
LStream.Free; //OPRAVENO
end;
end
else
begin
imgData.Visible:=False;
end;
end ;
> -----P�vodn� zpr�va-----
> Od: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
> Odesl�no: 13. �ervence 1999 13:35
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
>
>
> Ja to delam takto: (opsal jsem to z nejakeho prikladu na www)
>
> {*************************************************************
> ****************}
> procedure TfrmObjDokObr.ZobrazJPEG ;
> var LStream: TBlobStream;
> LJPEG: TJPEGImage;
> begin
> If Not tblZaznamyDATA.IsNull then
> begin
> try
> LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
> LJpeg:=TJPEGImage.Create;
> LStream.Position:=0;
> LJpeg.LoadFromStream(LStream);
> imgData.Picture.Assign(LJPEG); // imgData: TImage
> imgData.Visible:=True;
> finally
> LJpeg.Destroy;
> LStream.Destroy;
> end;
> end
> else
> begin
> imgData.Visible:=False;
> end;
> end ;
>
> -----P�vodn� zpr�va-----
> Od: Jansta Kv�toslav [SMTP:KJ(zv)lcs(tec)cz]
> Odesl�no: 13. �ervence 1999 9:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: na�ten� dat JPG do TImage p�es
> TMemoryStream ????
>
> jo, LoadFromFile je jasn� v�c, to funguje bez probl�m�,
> ale j� bych to pot�eboval na��tat z TMemoryStreamu, o to mi jde.
> a nev�m co s t�m ..................
> Bohu�el v Delphi je jen JPEG.dcu, to mi moc nepom��e.
>
>
> m� s t�m n�kdo n�jak� zku�enosti ?????????
>
>
> Sl�va
>
>
>
>
> Kv�toslav JANSTA, v�voj HELIOS(r)
> LCS International, a.s., Slezsk� 96, Praha 3
> Telefon : 02 / 691 13 80, linka 224
> E-mail: KJ(zv) lcs(tec)cz
> http://www.lcs(tec)cz/
>
>
> > ----------
> > Odes�latel: Miroslav Topol��[SMTP:topolar(zv)iol(tec)cz]
> > Odpov�di: delphi-l(zv)fwd(tec)cz
> > Odesl�no: 12. �ervence 1999 20:59
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: na�ten� dat JPG do TImage ????
> >
> > Jak pou��vat obr�zky typu JPG
> >
> > DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat
> > soubory
> > JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
> >
> --------------------------------------------------------------
> ------------
> > --
> > ----
> > procedure ShowJPG(FileName:string);
> > var Imageb:TImage;
> > temp:boolean;
> > begin
> > imageb:=TImage.Create(FORM1);
> > temp:=Imageb.Picture.Graphic is TJPEGImage;
> > Imageb.Picture.LoadFromFile(filename);
> > FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
> > imageb.free;
> > end;
> >
> --------------------------------------------------------------
> ------------
> > --
> > ----
> > Procedura pou��v� knihovny JPEG a ExtCtrls.
> >
> >
> >
> > V�pisek z Online Program�torsk� p��ru�ky
> >
> > http://web.iol(tec)cz/mister
> > ----- Original Message -----
> > From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Monday, July 12, 1999 7:29 PM
> > Subject: na�ten� dat JPG do TImage ????
> >
> >
> >
> > �au ,
> >
> > pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> > komponent� typu TImage ?????????????
> >
> > zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i
> zobrazov�n� (
> > JPEG Error # 41 ) , :
> >
> > var
> > F1 : file of Byte;
> > ChByte : Byte;
> > FName : string;
> > MStream : TMemoryStream;
> > MBuffer : PByte;
> > MSize : integer;
> > MP : PByte;
> > Gr : TJPEGImage;
> > Image : TImage;
> > begin
> > FName:='A.jpg';
> > MSize:=0;
> >
> > if FileExists(FName) then
> > begin
> > AssignFile(F1, FName);
> > Reset(F1);
> > MSize := FileSize(F1);
> > GetMem(MBuffer, MSize);
> > MP := MBuffer;
> > while not Eof(F1) do
> > begin
> > Read(F1, ChByte);
> > MP^ := ChByte;
> > Inc(MP);
> > end;
> > MStream := TMemoryStream.Create;
> > MStream.Write(MBuffer^, MSize);
> >
> > // Image.Picture.Graphic.LoadFromStream(MStream);
> > Gr := TJPEGImage.Create;
> > Gr.LoadFromStream(MStream);
> > Image.Picture.Graphic := Gr;
> > CloseFile(F1);
> > MStream.Free;
> > end;
> >
> > v�m �e funguje LoadFromFile, ale pot�eboval bych to touto
> metodou, p�es
> > �ten� Byte po Bytu.
> >
> > d�ky za ka�dou odpov��,
> >
> > Sl�va
> >
> >
> >
> >
> > Kv�toslav JANSTA, v�voj HELIOS(r)
> > LCS International, a.s., Slezsk� 96, Praha 3
> > Telefon : 02 / 691 13 80, linka 224
> > E-mail: KJ(zv) lcs(tec)cz
> > http://www.lcs(tec)cz/
> >
> >
>
> Dve otazecky
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 14.7.1999 08:26:49
Ahoj,
Jind�ich Nikodem wrote:
>
> K te druhe otazce:
>
> Dekuji Petru Vonesovi i Tomasovi Brandlemu za vecnou radu, ale neuvedl jsem
> ze mam Delphi 4. Ale ma to jeden hacek, jelikoz jsem chudy, ale poctivy
> amater , mohl jsem si dovolit jen Delphi 4 Standard. Mam tudiz obavu, ze to
> asi pomoci komponent TClientSocket, TServerSocket nepujde. Hotd za malo
> penez malo muziky!!!
>
Clovek nepotrebuje hnedle Professional nebo C/S verzi Delphi, staci se jen dobre
podivat na internet a vzdycky se neco najde, zkuste se kounout na tyhle free
komponenty, sam je pouzivam a jsem spokojen:
http://www.rtfm.be/fpiette/indexuk.htm
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Size of directory
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.7.1999 08:51:07
Vzdyt uz Ti to tu bylo popsano. Napis si funkci, ktera Ti to
spocita v jednom adresari a pokud narazis na dalsi adresar
v tom adresari, zavolej rekurzivne tutez funkci. Nekde jsem
na to mel priklad, ale ted ho nemuzu najit, ale vypadat by
to mohlo tak nejak :
(pisu to z hlavy, ber to jenom jako skicu, nebo nacrt :-) }
function XYZ(wDir : string); { Pisu to v syntaxi jeste pro BPascal,
ve Win je to trosicku jinak, ale tam to zase nevim z hlavy }
var sRec : TSearchRec (nebo DirInfo, nebo jak to tam je)
begin
FindFirst(wDir+'\*.*', anyFile, sRec);
while DosError<>0 do
begin
if (sRec.Attrib=sRecAttrib and faDirectory)
and (sRecName<>'..') and (sRecName<>'.') then
begin { Je to podadresar}
XYZ(wDir+sRec.Name);
{ tady funkce vola rekurzivne sama sebe }
Inc(NejakyGlobalniCitacSlozek);
end
else
begin
Inc(NejakyGlobalniPocitadloVelikosti, sRec.Size);
Inc(NejakyGlobalniCitacSouboru);
end;
FindNext(sRec);
end;
end;
Dobra.> ----------
> Pomoc� toho ale zjist�m jen velikost soubor� v adres��i ne velikost
> v�ech soubor� i v podadreas���ch, nev�te n�kdo jak to d�laj windows,
> nebo WC?
> TFileStream
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.7.1999 09:01:40
No, ptal jsem na to proto, ze jsem vzdy pouzival
Free, ale dozvedel jsem se tady v konferenci, ze
u objektu TForm je lepsi volat Release...
Diky vsem.
> ----------
> NIKDY nevolej primo Destroy ale VZDY Free. Free totiz samo vola
> Destroy ale
> zaroven kontroluje jestli instance toho objektu jeste existuje -
> jestli
> neexistuje pak Destroy nevola. Myslim ze jeste obhospodaruje jeste
> nejake
> dalsi kontroly, ale neznam to do hloubky.
> ImageIndex & StateIndex z TTreeNode
[*] Pavel �im��ek - 14.7.1999 09:05:10
Dobreho dne vsem
Potreboval bych se ujistit jestli jsem spravne pochopil help k TTreeNode z TTreeView. Pochopil jsem to tak ze ImageIndex "ukazuje" na nejaky Image1 ktery ma byt zobrazen pri normalnim stavu uzlu (neni vybran) a StateIndex "ukazuje" na nejaky Image2 ktery muzu mit jeste navic vedle onoho Image2, kdyz budu chtit. Pokud se pletu tak bych moc prosil o vysvetleni v cem se tyto dva indexy lisi. Diky vsem Pavel
Size of directory
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 14.7.1999 09:24:08
D�ky za n�m�ty ji� jsem to vy�e�il, jen nev�m pro� jsem m�l z t� rekuze takov� obavy. :-)) Douf�m ale, �e byly v�t�� ne� l�t�n�, jinak nev�m jak m� za 10 dn� donut� se z toho kopce rozb�hnou s kusem hadru za sebou. :-))) M&B
Nedostupny stredoeuropsky rez v TTF
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 14.7.1999 09:52:51
Sorry za off-topic, ale uz si neviem rady:
Po nainstalovani multinarodneho ttf-fontu (Tahoma),
je vo Worde dostupny len jediny typ (zapadny).
Skusal som vsetko mozne, ale nepodarilo sa z neho
vydolovat diakritiku. Wordpad vsak u tohto fontu
spristupnuje vsetky narodne mutacie bez problemov.
Neporadi niekto?
Peter
nahtenm dat JPG do TImage pxes TMemoryStream
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 14.7.1999 09:56:08
Jen tak pro �plnost. M�te tam tu samou chybu, kterou autorovi vy��t�te
slovy, �e to je "blb�".
p��kaz
LJpeg:=TJPEGImage.Create;
by m�l b�t posunut p�ed try k p��kazu
LStream.Position:=0;
Jinak p�i krachu p��kazu LJpeg:=TJPEGImage.Create dojde k pokusu o uvoln�n�
neexistuj�c�ho objektu LJpeg.
tedy ...
LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
> try
> LStream.Position:=0;
LJpeg:=TJPEGImage.Create; //OPRAVENO UMISTENI
> try
...
Ivan Vir�g
> ----------
> From: Petr�j Zden�k[SMTP:ZPetruj(zv)qgir(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 14. �ervence 1999 8:25
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
>
> Kod od pana Bardone je podle meho nazoru blbe.
> 1. Misto DESTROY se ma pozivat FREE - viz. diskuze o ruseni TFileStream
> 2. Pouziti TRY ... FINALLY je v tomto pripade naprosto scestne:
> V idealnim pripade to sice bude fungovat ALE jestlize nastane chyba
> v LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead) pak bude kod
> pokracovat ve finally bloku a bude chtit uvolnovat neexistujici
> instanci objektu LJpeg a LStream!!!
> Pri ochrane uvolnovani objektu ve finally bloku by mel byt
> CREATE objektu PRED !!! TRY, protoze v pripade chyby pri CREATE
> se instance nevytvori a tudiz se nesmi ani uvolnovat.
> A jeste poznamka objekt by se mel vytvaret az tesne pred pouzitim.
> 3. V pripade chyby nebude inicializovana imgData.Visible na zadnou hodnotu
>
> ale bude mit puvodni - asi by bylo treba osetrit i tuto vec.
>
> Kod po oprave:
> procedure TfrmObjDokObr.ZobrazJPEG ;
> var LStream: TBlobStream;
> LJPEG: TJPEGImage;
> begin
> If Not tblZaznamyDATA.IsNull then
> begin
> LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead); //OPRAVENO
> UMISTENI
> try
> LStream.Position:=0;
> try
> LJpeg:=TJPEGImage.Create; //OPRAVENO UMISTENI
> LJpeg.LoadFromStream(LStream);
> imgData.Picture.Assign(LJPEG);
> imgData.Visible:=True;
> finally
> LJpeg.Free; //OPRAVENO
> end;
> finally
> LStream.Free; //OPRAVENO
> end;
> end
> else
> begin
> imgData.Visible:=False;
> end;
> end ;
>
> > -----P�vodn� zpr�va-----
> > Od: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
> > Odesl�no: 13. �ervence 1999 13:35
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
> >
> >
> > Ja to delam takto: (opsal jsem to z nejakeho prikladu na www)
> >
> > {*************************************************************
> > ****************}
> > procedure TfrmObjDokObr.ZobrazJPEG ;
> > var LStream: TBlobStream;
> > LJPEG: TJPEGImage;
> > begin
> > If Not tblZaznamyDATA.IsNull then
> > begin
> > try
> > LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
> > LJpeg:=TJPEGImage.Create;
> > LStream.Position:=0;
> > LJpeg.LoadFromStream(LStream);
> > imgData.Picture.Assign(LJPEG); // imgData: TImage
> > imgData.Visible:=True;
> > finally
> > LJpeg.Destroy;
> > LStream.Destroy;
> > end;
> > end
> > else
> > begin
> > imgData.Visible:=False;
> > end;
> > end ;
> >
> > -----P�vodn� zpr�va-----
> > Od: Jansta Kv�toslav [SMTP:KJ(zv)lcs(tec)cz]
> > Odesl�no: 13. �ervence 1999 9:29
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: na�ten� dat JPG do TImage p�es
> > TMemoryStream ????
> >
> > jo, LoadFromFile je jasn� v�c, to funguje bez probl�m�,
> > ale j� bych to pot�eboval na��tat z TMemoryStreamu, o to mi jde.
> > a nev�m co s t�m ..................
> > Bohu�el v Delphi je jen JPEG.dcu, to mi moc nepom��e.
> >
> >
> > m� s t�m n�kdo n�jak� zku�enosti ?????????
> >
> >
> > Sl�va
> >
> >
> >
> >
> > Kv�toslav JANSTA, v�voj HELIOS(r)
> > LCS International, a.s., Slezsk� 96, Praha 3
> > Telefon : 02 / 691 13 80, linka 224
> > E-mail: KJ(zv) lcs(tec)cz
> > http://www.lcs(tec)cz/
> >
> >
> > > ----------
> > > Odes�latel: Miroslav Topol��[SMTP:topolar(zv)iol(tec)cz]
> > > Odpov�di: delphi-l(zv)fwd(tec)cz
> > > Odesl�no: 12. �ervence 1999 20:59
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: Re: na�ten� dat JPG do TImage ????
> > >
> > > Jak pou��vat obr�zky typu JPG
> > >
> > > DELPHI 4 obsahuje knihovnu JPEG. Pomoc� t�to knihovny lze na��tat
> > > soubory
> > > JPG,JPEG a pou��vat je jako norm�ln� obr�zky.
> > >
> > --------------------------------------------------------------
> > ------------
> > > --
> > > ----
> > > procedure ShowJPG(FileName:string);
> > > var Imageb:TImage;
> > > temp:boolean;
> > > begin
> > > imageb:=TImage.Create(FORM1);
> > > temp:=Imageb.Picture.Graphic is TJPEGImage;
> > > Imageb.Picture.LoadFromFile(filename);
> > > FORM1.Canvas.Draw(0,0,Imageb.Picture.graphic);
> > > imageb.free;
> > > end;
> > >
> > --------------------------------------------------------------
> > ------------
> > > --
> > > ----
> > > Procedura pou��v� knihovny JPEG a ExtCtrls.
> > >
> > >
> > >
> > > V�pisek z Online Program�torsk� p��ru�ky
> > >
> > > http://web.iol(tec)cz/mister
> > > ----- Original Message -----
> > > From: Jansta Kv�toslav <KJ(zv)lcs(tec)cz>
> > > To: <delphi-l(zv)fwd(tec)cz>
> > > Sent: Monday, July 12, 1999 7:29 PM
> > > Subject: na�ten� dat JPG do TImage ????
> > >
> > >
> > >
> > > �au ,
> > >
> > > pot�eboval bych poradit jak m�m z�skan� data form�tu JPEG vnutit
> > > komponent� typu TImage ?????????????
> > >
> > > zkou�el jsem to n�sleduj�c� cestou, ale Image mi pad� p�i
> > zobrazov�n� (
> > > JPEG Error # 41 ) , :
> > >
> > > var
> > > F1 : file of Byte;
> > > ChByte : Byte;
> > > FName : string;
> > > MStream : TMemoryStream;
> > > MBuffer : PByte;
> > > MSize : integer;
> > > MP : PByte;
> > > Gr : TJPEGImage;
> > > Image : TImage;
> > > begin
> > > FName:='A.jpg';
> > > MSize:=0;
> > >
> > > if FileExists(FName) then
> > > begin
> > > AssignFile(F1, FName);
> > > Reset(F1);
> > > MSize := FileSize(F1);
> > > GetMem(MBuffer, MSize);
> > > MP := MBuffer;
> > > while not Eof(F1) do
> > > begin
> > > Read(F1, ChByte);
> > > MP^ := ChByte;
> > > Inc(MP);
> > > end;
> > > MStream := TMemoryStream.Create;
> > > MStream.Write(MBuffer^, MSize);
> > >
> > > // Image.Picture.Graphic.LoadFromStream(MStream);
> > > Gr := TJPEGImage.Create;
> > > Gr.LoadFromStream(MStream);
> > > Image.Picture.Graphic := Gr;
> > > CloseFile(F1);
> > > MStream.Free;
> > > end;
> > >
> > > v�m �e funguje LoadFromFile, ale pot�eboval bych to touto
> > metodou, p�es
> > > �ten� Byte po Bytu.
> > >
> > > d�ky za ka�dou odpov��,
> > >
> > > Sl�va
> > >
> > >
> > >
> > >
> > > Kv�toslav JANSTA, v�voj HELIOS(r)
> > > LCS International, a.s., Slezsk� 96, Praha 3
> > > Telefon : 02 / 691 13 80, linka 224
> > > E-mail: KJ(zv) lcs(tec)cz
> > > http://www.lcs(tec)cz/
> > >
> > >
> >
> >
> Obsluha scaneru
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 14.7.1999 10:05:50
Zdravim vsechny,
nevite nekdo jak se da nejakym rozumnym zpusobem zabudovat do aplikace v
Delphi scanovani obrazku primo do Delphi, popr. jestli jsou na to
komponenty, nejake informacni zdroje apod.
predem diky
Tomas
t.bradle(zv)pvtnet(tec)cz
Bezici aplikace
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 14.7.1999 10:10:42
Zdravim!
Potrebuju helfnout s jednou veci, hledam komponentu, ktera zjistuje bezici
aplikace , zkratka abych byl schopen vytvorit neco jako taskbar , hledal
jsem na DSP i TORRY ale nic
Dik Pavel Polak
Chyba prekladace pri porovnani currency a variant
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 14.7.1999 10:25:05
> Omlouvam se za dvoumesicni zpozdeni. Dnes jsem si cistil emaily, ktere
> jsem nemel dosud cas cist.
> Jen pripominam citovany problem 2*2 currency <> 4 variant.
>
> Musim se zastat Borlandu. Podle mne to neni chyba prekladace.
> Currency je 64bit integer format s desetinnou teckou posunutou o ctyri
> mista. A je urcen pro zobrazeni meny. Pokud nasobim menu menou je to
> jednak nesmysl]), jednak dojde k posunu desetinne carky.
> Viz uvedeny priklad 2[koruny] * 2[koruny] = 4[koruny na druhou] nebo
> chcete-li [koruny ctverecni]
Proc tedy 2*2 currency=4 currency ?
> Nasobim-li dve cisla, ktera maji ctyri des.mista ve fix formatu, pak ma
> vysledek obecne 8 des. mist.
> Pokud pak porovnam variant a currency, prekladac pocita, ze jsou tam jen
> ctyri, jako obycejne. Proto jste v prikladu museli delit cislem 10000.
>
> Jak ma prekladac poznat, jaka matematicka operace se s currency
> provadela. Treba bude nekdo chtit vygenerovat koruny krychlove.
Napriklad u variant:=2*2currency to poznal...
Proste je to chyba prekladace a i kdyby nebyla tak
je treba vedet ze 2*2 currency = 40000 variant, ale
jen pri primem porovnani nikoliv treba pri prirazeni,
coz je ponekud nesikovne :-(
Rob
Nedostupny stredoeuropsky rez v TTF
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 14.7.1999 10:50:34
Mozna je potrena nastavit substituce pro Word Tahoma=Tahoma CE ve
Win.Ini
Jaro B.
napr.
[FontSubstitutes]
Helv=MS Sans Serif
Tms Rmn=MS Serif
Times=Times New Roman
MT Symbol,2=Symbol,2
System,0=System,238
Fixedsys,0=Fixedsys,238
Small Fonts,0=Small Fonts,238
MS Sans Serif,0=MS Sans Serif,238
MS Shell Dlg,238=MS Sans Serif,238
MS Serif,0=MS Serif,238
Arial CE,238=Arial,238
Arial Cyr,204=Arial,204
Arial CE,0=Arial,238
Courier New CE,238=Courier New,238
Courier New Cyr,204=Courier New,204
Courier,0=Courier New,238
Times New Roman CE,238=Times New Roman,238
Times New Roman Cyr,204=Times New Roman,204
Helvetica,238=Arial,238
Helvetica,0=Arial,238
Times,238=Times New Roman,238
Times,0=Times New Roman,238
MS Shell Dlg 2=MS Sans Serif
Monotype.com=Andale Mono
> -----P�vodn� zpr�va-----
> Od: Peter Vlkovic [SMTP:vlkovic(zv)minv.sk]
> Odesl�no: 14. �ervence 1999 9:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Nedostupny stredoeuropsky rez v TTF
>
> Sorry za off-topic, ale uz si neviem rady:
>
> Po nainstalovani multinarodneho ttf-fontu (Tahoma),
> je vo Worde dostupny len jediny typ (zapadny).
>
> Skusal som vsetko mozne, ale nepodarilo sa z neho
> vydolovat diakritiku. Wordpad vsak u tohto fontu
> spristupnuje vsetky narodne mutacie bez problemov.
>
> Neporadi niekto?
>
> Peter
ALTER TABLE
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 14.7.1999 11:15:22
V Delphi 1 potrebuju za behu programu menit strukturu paradoxovych
tabulek.
Zkousel jsem SQL prikaz ALTER TABLE, ale nechodi mi.Nemate s tim nekdo
zkusenost?
Nechce se mi totiz vzdy zalohovat tabulku, vytvorit novou a naimportovat
data z te stare.
Dik Petr
TFileStream
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 14.7.1999 11:21:59
No ale v tom pripade nevim proc ses ptal, protoze Release zase nema nic
spolecneho
se streamem. Release je metoda formulare a zrusi formular po ukonceni vsech
udalosti formulare a objektu na formulari.
>
>
> No, ptal jsem na to proto, ze jsem vzdy pouzival
> Free, ale dozvedel jsem se tady v konferenci, ze
> u objektu TForm je lepsi volat Release...
>
> Diky vsem.
>
> > ----------
> > NIKDY nevolej primo Destroy ale VZDY Free. Free totiz samo vola
> > Destroy ale
> > zaroven kontroluje jestli instance toho objektu jeste existuje -
> > jestli
> > neexistuje pak Destroy nevola. Myslim ze jeste obhospodaruje jeste
> > nejake
> > dalsi kontroly, ale neznam to do hloubky.
> >
> TFileStream
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.7.1999 11:34:01
Ja to preeci vim. Jemom me napadlo, jestli
to nebude neco podobneho.
Dobra.
> No ale v tom pripade nevim proc ses ptal, protoze Release zase nema
> nic
> spolecneho se streamem. Release je metoda formulare a zrusi formular
> po ukonceni vsech udalosti formulare a objektu na formulari.
>
> Obsluha scaneru
[*] Ing. Jarom�r Sola�������g���-g�3 - 14.7.1999 11:47:58
>Zdravim vsechny,
>
>nevite nekdo jak se da nejakym rozumnym zpusobem zabudovat do aplikace v
>Delphi scanovani obrazku primo do Delphi, popr. jestli jsou na to
>komponenty, nejake informacni zdroje apod.
Zkus u Torryho (www.torry.ru) v sekci Multimedia. Tam by m�ly b�t n�jak�
komponenty (scanimg.zip a multwain.zip).
Jarek Solar (jarda(zv)foresta(tec)cz)
Nastevni hlasitost WAV, MIDI, (+mute)
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 14.7.1999 11:03:09
>
> Potreboval bych nezavisle na sobe nastavovat hlasitosti
> kanalu midi a wave a pripadne i master volume pro
> prehravani.
>
> Zkousel jsem pouzivat jednotku mmsystem, ktera by mela
> umet nastavovat wav a midi.
>
> Neco to dela, ale na spouste zvukovek to nefunguje
> (prevazne midi). Dale tam vubec neni neco jako master volume
> a uz vubec ne volby mute.
ahoj,
muzes to zkusit takhle:
var MixerLine: TMixerLine;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
Detail:array [0..1] of integer;
begin
MixerLine.cbStruct := Sizeof(MixerLine);
MixerLine.dwComponentType :=
{tady muze byt treba MIXERLINE_COMPONENTTYPE_DST_SPEAKERS nebo
MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT nebo
MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER...}
mixerGetLineInfo(Mixer,(zv)MixerLine,MIXER_GETLINEINFOF_COMPONENTTYPE));
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType :=
{pro zap/vyp pouzij MIXERCONTROL_CONTROLTYPE_MUTE
pro hlasitost MIXERCONTROL_CONTROLTYPE_VOLUME}
MixerControls.dwLineID := MixerLine.dwLineID;
mixerGetLineControls(Mixer,(zv)MixerControls,MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(integer);
MixerControlDetails.paDetails := (zv)Detail;
{a ted pokud chces provest mute tak: }
Detail[0] := Integer(true)
{nebo pro hlasitost: }
Detail[0] := MaxWord; {nastavi hlasitost leveho kanalu na max}
Detail[1] := MaxWord; {nastavi hlasitost praveho kanalu na max}
mixerSetControlDetails(Mixer,(zv)MixerControlDetails,MIXER_SETCONTROLDETAILSF_VALUE));
end;
snad to funguje, pac je to vystrizeny z nejakyho staryho zdrojaku,
kdyz tak mi soukrome pisni... popr. jestli chces, tak tedka nedavno
sem spachal komp. na obsluhu mixeru, kterou toho muzes nastavovat vic
cau
Roman
-------------------------
amatersky flakac v Delphi
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/dbisavechanges, buffer, dbf vs. db
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 14.7.1999 11:03:31
Ahoj,
chcu se zeptat, rucne strucne: mam tabulky dBase a Paradox, v udalosti
AfterPost mam stejny kod /flushbuffers, dbisavechages/... pridam
nejaky zaznam do kazde, vypnu pocitac, zapnu, pustim ten prog. znovu
a koukam na to jak spadlej z visne, v dbf jsou jenom prazdne zaznamy,
db je ok. Stava se to i jinde nebo mam zase nekde neco spatne
nastavene ja /localshare=true, nepouzivat zpozdeny zapis=true/?
preju prijemny den i noc
Roman
-------------------------
amatersky flakac v Delphi
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/nahtenm dat JPG do TImage pxes TMemoryStream
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 14.7.1999 12:17:30
Jsem to ale blbec, sypu si popel na hlavu. No samozrejme !!!
Vzniklo to asi tim ze jsem to psal v editoru mailu a ne v editoru
Delphi a tak jsem se asi utuknul pri premistovani radku.
Hluboce se omlouvam ze pri odstranovani a vysvetlovani chyby jsem
udel tutez chybu.
> -----P�vodn� zpr�va-----
> Od: Virag Ivan [mailto:ViragI(zv)radiomobil(tec)cz]
> Odesl�no: 14. �ervence 1999 9:56
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: nahtenm dat JPG do TImage pxes TMemoryStream ????
>
>
> Jen tak pro �plnost. M�te tam tu samou chybu, kterou autorovi vy��t�te
> slovy, �e to je "blb�".
>
> p��kaz
>
> LJpeg:=TJPEGImage.Create;
>
> by m�l b�t posunut p�ed try k p��kazu
>
> LStream.Position:=0;
>
> Jinak p�i krachu p��kazu LJpeg:=TJPEGImage.Create dojde k
> pokusu o uvoln�n�
> neexistuj�c�ho objektu LJpeg.
>
> tedy
>
>
> ...
> LStream:=TBlobStream.Create(tblZaznamyDATA,BmRead);
> > try
> > LStream.Position:=0;
> LJpeg:=TJPEGImage.Create; //OPRAVENO UMISTENI
> > try
> ... Obsluha scaneru
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 14.7.1999 12:22:45
Hledej napriklad na Torry's nebo DSP tam kde se vyskytuje TWAIN (rozhrani
pro scannery)
> -----P�vodn� zpr�va-----
> Od: Tomas Bradle [mailto:t.bradle(zv)pvtnet(tec)cz]
> Odesl�no: 14. �ervence 1999 10:06
> Komu: Delphi Konference
> P�edm�t: Obsluha scaneru
>
>
> Zdravim vsechny,
>
> nevite nekdo jak se da nejakym rozumnym zpusobem zabudovat do
> aplikace v
> Delphi scanovani obrazku primo do Delphi, popr. jestli jsou na to
> komponenty, nejake informacni zdroje apod.
>
> predem diky
>
> Tomas
> t.bradle(zv)pvtnet(tec)cz
>
>
> Obsluha scaneru
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 14.7.1999 12:27:08
Myslim, ze k nekterym scannerum se dodavaji OCX knihovny.
-----P�vodn� zpr�va-----
Od: Tomas Bradle <t.bradle(zv)pvtnet(tec)cz>
Komu: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Datum: 14. �ervence 1999 11:30
P�edm�t: Obsluha scaneru
>Zdravim vsechny,
>
>nevite nekdo jak se da nejakym rozumnym zpusobem zabudovat do aplikace v
>Delphi scanovani obrazku primo do Delphi, popr. jestli jsou na to
>komponenty, nejake informacni zdroje apod.
>
>predem diky
>
>Tomas
>t.bradle(zv)pvtnet(tec)cz
>
>
>Minimize
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 14.7.1999 14:41:18
Nevite nekdo, jakym zpusobem probiha minimalizace wokna pres nastrojovou
listu Start? Pokousel jsem se chytit na wndproc pres WM_SYSCOMMAND, ale
nejak se to nechyta
( ani na ten command).
Pro ty , kteri jsou zvedavi proc to potrebuji, tak chci na akci
minimalizovani provest jeste jednu akci.
Diky za radu
Martin Lasevic Aliasy a MSSQL7
[*] Ing. Leopold Grepl <Grepl(zv)melzer(tec)cz> - 14.7.1999 14:53:30
Zdravim,
potreboval bych vedet jak lze zjistit nazev databaze a serveru pri znalosti pouze aliasu. Jedna se o alias pro pristup na databazi MSSQL serveru 7 pres ODBC. Tyto informace potrebuji pro spusteni scriptu pres ISQL.exe.
Nasel jsem pres Session moznost zjistit informace k danemu aliasu, ale to jsou pouze informace poskytovane DBE a neni to schopno precist nektere informace(databasename) aliasu vytvoreneho pres ODBC. V zadne dokumentaci jsem reseni nenasel, ale Delphi to musi nejak delat jinak by se tam take nedostalo.
Diky za kazdou radu
Ing. Leopold Grepl
Melzer s. r. o.Minimize
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.7.1999 15:00:38
Pokud to chces udelat jen pro svou apliakci, tak staci
napsat proceduru, co se ma udelat a povesit ji na udalost
Application.OnMinimize
Dobra.
> ----------
> Nevite nekdo, jakym zpusobem probiha minimalizace wokna pres
> nastrojovou
> listu Start? Pokousel jsem se chytit na wndproc pres WM_SYSCOMMAND,
> ale
> nejak se to nechyta
> ( ani na ten command).
>
> Pro ty , kteri jsou zvedavi proc to potrebuji, tak chci na akci
> minimalizovani provest jeste jednu akci.
> Kde natahnout bitmapu z resource
[*] Karel Kral <kral(zv)purus(tec)cz> - 14.7.1999 15:15:47
Mam specializovany button, naslednik TBitBtn. Potreboval bych, aby se v
designu pri vlozeni komponenty predvolila urcita bitmapa, kterou bych
pam mohl ale nemusel zmenit.
Zatim jsem to udelal takto, muzete me poradit, jestli je to ciste?
constructor TBrowseForFolderButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if (csDesigning in ComponentState) and Glyph.Empty then
Glyph.LoadFromResourceName(HInstance, FldrBtnGlyphName);
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Obsluha scaneru
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 14.7.1999 15:38:04
Ahoj
ja pouzival ke sve plne spokojenosti ImageEn 0.65beta.
Komponenty, vcetne DEMO se daji stahnout:
http://members.tripod.com/~fdivitto
Petr Gadourek
Tomas Bradle wrote:
> nevite nekdo jak se da nejakym rozumnym zpusobem zabudovat do aplikace v
> Delphi scanovani obrazku primo do Delphi, popr. jestli jsou na to
> komponenty, nejake informacni zdroje apod.
>WINOA386
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 14.7.1999 16:17:25
Dobry den.
Udelel jsem si maly programek na kontrolu bezicich programu. Vse OK, ale v pripade ze pustim
DOS aplikaci, ukaze se nejaky WINOA386.MOD , ktery odpovida spustene aplikaci, nevite ale nekdo
je-li mozne vytahnout jmeno exe modulu ktery je spusten?.
Druha otazka je obdobna, je mozne nejak zjistit treba jaky soubor je otevren ve WORDU, excellu, nebo D3.
Diky za namety
Libor
Dve otazecky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.7.1999 17:42:59
Cibulka Karel wrote:
> > poctivy amater , mohl jsem si dovolit jen Delphi 4 Standard. Mam tudiz
> > obavu, ze to asi pomoci komponent TClientSocket, TServerSocket nepujde.
> > Hotd za malo penez malo muziky!!!
>
> Clovek nepotrebuje hnedle Professional nebo C/S verzi Delphi, staci se jen
> dobre podivat na internet a vzdycky se neco najde, zkuste se kounout na
> tyhle free komponenty, sam je pouzivam a jsem spokojen:
>
> http://www.rtfm.be/fpiette/indexuk.htm
Pokud vim, tak Piette ma neprijemne licencni podminky - nelze z
toho delat komercni aplikace...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RX Lib
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 14.7.1999 17:58:12
>hodne se tady mluvi o RX komponentach, ze nejdou stahnout. Mam verzi 2.60.
>Uz jsem ji do konference posilal, ale pravdepodobne to spravce konf.
stopnul.
zaplat pambu ... vis kolik lidi by kvuli tobe muselo zbytecne stahovat 1 MB
mail ...Kalendar - uz dost off topic, sorry.
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 14.7.1999 17:32:43
Poslal som to na ftp.mlp(tec)cz/pub/misc/delphi/konference/Other/calendar.zip
Radoslav Jalc - ProNet development
Kdyby nekomu nefachalo FTP, tak na http://www.pip.dknet.dk/~c-t to najde (to je adresa z toho calendar.zip :-))).
Diky moc,
hezky napsane, maj i stejny nazor na slaveni 2x noveho stoleti, ba ho dotahli k dokonalosti... ale tu uz bych neprezil.
Jenom urceni pocitani tydne dle IS-8601mi vubec nesedi (coz ovsem byl hlavni kamen urazu :-). Proc tem Isakum vadi, ze by jeden tyden nemel unikatni poradove cislo??? Ja chapu to urceni cisla v ramci vztazneho roku, tak mi vubec nevadi, ze pro nasledujici rok to uz nebude 52, ale 1. Ale zase s urcenim pondeli, jako zacatkem tydne rozhodne souhlasim :-))).
No, dobra, jeste jednou diky za soubor, omlouvam se za zbytecny mes, ale kdyby sem nikdo na to nic nenapsal, tak by vyvojovy pracovnik progresivni firmy ProNet - a ja uz budu primo jmenovat - pan Radoslav Jalc, mohl pojat podezdreni, ze to sem daval uplne zbytecne, a ze az nekdy priste bude nekym neprimo pozadan, aby projevil dobrou vuli, tak se na to radsi .... podiva z jineho uhlu a nic neposle.
Hmm, ale ten tyden mi asi zase chvili neda spat :-), i kdyz ted mam problemky s threads :-(((.
Btw, kdyby teda nekdo nejak specificteji vedel, ta ISO norma je pro nekoho nejak zavazna, nebo si to nekdo vymyslel a, krome Cechu s pondelkem ;-), na to vsichni kacej ( hlavne to pocitani tydnu).Prosba
[*] Karel D�d�k - 14.7.1999 18:43:03
Vzhledem k reakci se pokus�m p�vodn� v�zvu trochu up�esnit.
Jedn� se o polyskop, a jako zobrazovac� jednotka je pou�it PC.
P�evodn�k AD/DA je p��davn� karta v PC. Pou��v� nastaven� I/O,IRQ i DMA.
Ke kart� m�m orig. ovlada� i pro W95, kter�m se toto zavede do *.ini souboru
a tento se pak v programu vol�.
S ovlada�em jsou dod�ny i p��klady, ale i tak si s t�m jako laik neporad�m.
K jednotliv�m pin�m na kart� jsou p�ipojeny vstupy a v�stupy z gener�toru,
kter� je programem ovl�d�n a v�sledek je zapisov�n do grafu - v�sledek je
podobn� jako zobrazen� osciloskopu.
Cel� z�le�itost je nav�c komplikovan� t�m, �e bez HW se aplikace vlastn�
ned� odzkou�et.
Pokud by to i tak cht�l n�kdo zkusit, r�d po�lu p�vodn� DOSovsk� program
(50kB) i soubory k ovlada�i (aby se nemusel instalovat) (cca2,5MB).
D�ky v�em za z�jem pomoct.
Karel D�d�k
seat(zv)mail.cybernet(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, July 13, 1999 10:43 PM
Subject: Re: Prosba
> > Karel D�d�k wrote:
> >
> > Ono to sem asi nepat��, ale ji� nemam jin� n�pad tak zkou��m �t�st�.
> > M�m program napsan� v TurboPascalu a pot�eboval bych ho p�epsat do
Dephi, ale proto�e jsem
> > laik, byl bych r�d kdyby se toho n�kdo ujal.
> > Jedn� se o cca 50kb - pomoc� programu je ovl�d�n p�es AD/DA p�evodn�k
m���c� p��stroj a
> > v�sledek m��en� - graf je trvale zobrazov�n.
> > Pokud n�kdo najde �as a chu�, tak pros�m p��mo, a� nezat�ujeme
konferenci (nav�c to sem
> > asi opravdu nepat��).
>
> Ahoj,
>
> Myslim ze to sem patri. Nejdulezitejsi na cele veci je, jakym zpusobem je
ten
> prevodnik pripojen k PC. Pokud je to pres seriovy port, tak to neni
problem.
> V pripade nejake pridavne karty je to jiz ale horsi, protoze narozdil od
DOSu
> kde jsi mohl na urovni aplikace primo pristupovat k I/O portum a ovladat
tak
> HW, neni u viceulohovych systemu jako Windows tento pristup dost dobre
mozny.
> Ve Windows95/98 se to sice da nouzove resit pouzitim asm instrukci IN, OUT
z
> aplikace a spolehat na to, ze to nejak proleze celym virtualizacnim
procesem.
> Spolehlivost takoveho reseni je mizerna, zvlaste u zarizeni ktera maji
bezet
> 24 x 7. Pokud navic karta pouziva jeste IRQ nebo DMA, tak se to takto
resit
> uz vubec neda. Jedinym spravnym resenim je napsani vlastniho VxD driveru,
coz
> nelze udelat v Delphi a je to pomerne komplikovana zalezitost. Existuji
ale i
> urcite "univerzalni" VxD drivery (kterym sice osobne moc neverim), najdes
je
> napriklad na DSP, hledej tam TVICPORT a SMPORT.
>
> Pokud se ti podari vyresit komunikaci, tak mas pul vyhrano. Zbytek
aplikace
> se pak rozhodne nesnaz prepisovat, radeji jej zahod a napis to znova.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
>
TThread (D3 C/S) a synchronize, potazmo VCL.
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 14.7.1999 18:08:38
Zdar,
drobny problem se %subj%. Muzu volat JinyFormular.StoredProcedure.Execute
(potazmo prepare a ParamByName :-) mimo ojebavku Synchronize?!?!?? Jde mi o
to, ze takove JinyFormular.QryNeco.Next mu vadi :-((( a ja nevim, kterym
smerem to mam resit.
Blizsi udaje:
V blahove vire v nepopsatelnou naivitu, jsem si myslel, ze TThread je super
vec a strasne jednoducha. Neco jsem kdysi spachal a facha to - teda u me. Po
case se kdesi vyskytl problem. Dle zjisteneho, VCL s tim taky nepocitalo a
musi se pri pristupu k ni volat pres synchron (boha, to je reseni :-(.
Kupodivu, takovy TMemo, ktere asi napsali dyl a uz s tim mohli pocitat :-),
mi fachalo bez problemu vsude; tudiz se to tyka jen neceho a pro jistotu
proste pouzit na vsechny VCL veci synchronize (btw, Mistrovstvi v delphi2
(MD2) rika, ze je to treba jen u tech vizualnich nastaveni, ktere meni zjev.
Ale tak to neni...).
Ja to delal kvuli pomalosti databazoveho serveru (oprava - silenosti
pozadavku na nej:-), abych nemel neprekreslujici se aplikaci a uzivatel
mohl, v pripade potreby, v rozumne dobe (ulozna procedura je do dvaceti
sekund hotova - a vola se stezi tak stokrat :-( ukoncit zpracovani.
Ale cele to padlo (ech nepadlo, zamrzlo, bez toho, ze by si system stezoval
(aplikace mela normalne running, jen nezila)) uz na JinyForm.QryNejaky.Next!
:-(.
Kdyz jsem tak projizdel web, tak se i zminovali, ze DB componenty jsou uj, a
ze treba uzivat vlastni TDataSet a tak, jenze to je neprijatelne. Takze
fajn, reseni jsou dve. Bud hodim zpracovani cele te databaze do hlavniho
programu a nad tim postavim jen thread, ktery bude kreslit progressbar, plus
priznak pro ukonceni cteni. To je resenim (ale dle meho zbytecne ujetym),
ktere by melo fachat, jen me bude stat dost casu a nalady (budu muset
zjistovat, co jsem to tenkrat vlastne psal a probirat se ze mdlob, jak
debilne to je napsany).
Nebo hodim skoro vsechno do synchronizacnich bloku, jenom to vyvolani
procedury nechat nekryty. Cimzto by tedy tech par procent (do jedny sekundy
se pousti znova ulozna procedura, to neni tak hrozny) okno nereagovalo, ale
zbytek by byl oukej.
Mohl by k tomu nekdo dokazat rici neco zajimaveho? (I jakakoliv rozumna
prakticka zkusenost s vlakny potesi).
Diky za precteni, v pripade reakce uprimne a srdecne a tak diky...Nedostupny stredoeuropsky rez v TTF
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 14.7.1999 20:13:43
>Sorry za off-topic, ale uz si neviem rady:
>
>Po nainstalovani multinarodneho ttf-fontu (Tahoma),
>je vo Worde dostupny len jediny typ (zapadny).
>
>Skusal som vsetko mozne, ale nepodarilo sa z neho
>vydolovat diakritiku. Wordpad vsak u tohto fontu
>spristupnuje vsetky narodne mutacie bez problemov.
>
>Neporadi niekto?
>
>Peter
Mam podobny problem pod NT:
Courier CZ je ceske vsude, jenom ne v Delphi x.
Tomas Matousek
Dve otazecky
[*] Mirun <forcom(zv)telecom(tec)cz> - 14.7.1999 20:41:10
----- P�vodn� zpr�va -----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 14. �ervence 1999 17:42
P�edm�t: Re: Dve otazecky
> Cibulka Karel wrote:
>
> > > poctivy amater , mohl jsem si dovolit jen Delphi 4 Standard. Mam tudiz
> > > obavu, ze to asi pomoci komponent TClientSocket, TServerSocket
nepujde.
> > > Hotd za malo penez malo muziky!!!
> >
> > Clovek nepotrebuje hnedle Professional nebo C/S verzi Delphi, staci se
jen
> > dobre podivat na internet a vzdycky se neco najde, zkuste se kounout na
> > tyhle free komponenty, sam je pouzivam a jsem spokojen:
> >
> > http://www.rtfm.be/fpiette/indexuk.htm
>
> Pokud vim, tak Piette ma neprijemne licencni podminky - nelze z
> toho delat komercni aplikace...
>
Neni pravda...
Permission is granted to anyone to use this software for any
purpose, including commercial applications, and to alter it
and redistribute it freely, subject to the following
restrictions:
blablabla...
OLE Automation Server in Word
[*] Menfy <menfy(zv)iol(tec)cz> - 14.7.1999 21:11:58
Ja nevim jak, ale potrebuju mit pravo zasilat prispevky do konf...
_______
Menfy design - vse pro internetovou prezentaci...
Filip Rejlek
tel.: 0602 / 816 151
e-mail : menfy.design(zv)telecom(tec)cz
menfy(zv)iol(tec)cz
web : http://web.iol(tec)cz/menfy
Message po pripojeni
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 14.7.1999 23:13:46
Ahoj,
nemuzu nejak dohledat, ktera hlaska
projde systemem po pripojeni se k vzdalenemu
pocitaci pres modem a overeni uzivatele a hesla.
Poradite prosim nekdo ?
S pozdravem na diky
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
WINOA386
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.7.1999 23:48:57
> Libor Nosek wrote:
>
> Dobry den.
> Udelel jsem si maly programek na kontrolu bezicich programu. Vse OK, ale v pripade ze
> pustim
> DOS aplikaci, ukaze se nejaky WINOA386.MOD , ktery odpovida spustene aplikaci, nevite ale
> nekdo
> je-li mozne vytahnout jmeno exe modulu ktery je spusten?.
Ahoj,
Pred casem jsem psal aplikaci ktera zjistuje prave bezici procesy a dalsi
informace s nimi spojene a taky jsem na to neprisel. Casem bych to asi poslal
do Delphree. Tipoval bych, ze bude potreba volat nejake funkce z DDK, ale na
to jiz je treba napsat VxD.
Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove veci se mi
ale osobne vubec nelibi), tak je mozne udelat hook na API funkci ShellExecute
kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecuteHook.zip
> Druha otazka je obdobna, je mozne nejak zjistit treba jaky soubor je otevren ve WORDU,
> excellu, nebo D3.
Podivej se na http://www.sysinternals.com tam je nekolik systemovych utilit
a mezi nimi i OPENLIST ktera zobrazuje seznam vsech otevrenych souboru. Tezko
ale neco takoveho napises v Delphi, protoze je to opet realizovano pomoci
VxD. Dalsi problem je i to, ze ne vsechny aplikace maji otevreny soubor po
celou dobu kdy s nim pracujes. Casto se pouziva zpusob kdy soubor otrevres,
natahnes do pameti a zavres.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Bezici aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.7.1999 23:51:49
Pavel Polak wrote:
>
> Zdravim!
>
> Potrebuju helfnout s jednou veci, hledam komponentu, ktera zjistuje bezici
> aplikace , zkratka abych byl schopen vytvorit neco jako taskbar , hledal
> jsem na DSP i TORRY ale nic
Ahoj,
V zasade jsou dve moznosti:
1. Pouzit funkce na prochazeni bezicich procesu (toolhelp), ktere jsou ale
jine u Win9x a NT4 a pomoci timeru zjistovat zmeny. Toto reseni vypada na
prvni pohled dost tupe, ale v praxi se mi osvedcilo v aplikaci na zjistovani
bezicich procesu. Nicmene pro tvoji potrebu to muze vizualne vypadat trochu
divne, kdyz se seznam uloh bude aktualizovat rekneme po 500ms.
2. Pouzit systemovy hook WH_SHELL ktery oznamuje vytvoreni a ruseni top-level
oken. Tento zpusob pouziva i Explorer ve Windows. Problem je, ze v Delphi se
hooky spatne pisi, protoze linker neumi generovat sekci sdilenych promennych.
Lze to sice trochu komplikovane obejit pomoci memory mappeed files a mutexu,
jenze ani tak mi to nefungovalo. Dival jsem se po Internetu a vetsina reseni
byla bud nefunkcni nebo danou DLL s hook funkci napsali v C++ a zbytek kodu
v Delphi. Moznou pricinou neuspechu v Delphi muze byt i nastaveni flagu
koprocesoru 8087CW jenzprovadi runtime knihovna Delphi a ktere je jine nez
pouziva M$ v MSVC++. Dal jsem s tim ale neexperimentoval.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TThread (D3 C/S) a synchronize, potazmo VCL.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.7.1999 00:08:25
Hrabi of Chmeliste wrote:
>
> Zdar,
> drobny problem se %subj%. Muzu volat JinyFormular.StoredProcedure.Execute
> (potazmo prepare a ParamByName :-) mimo ojebavku Synchronize?!?!?? Jde mi o
> to, ze takove JinyFormular.QryNeco.Next mu vadi :-((( a ja nevim, kterym
> smerem to mam resit.
Ahoj,
Strucne receno, jakmile volas nejake metody ve VCL z threadu, mel by jsi
pouzit TThread.Sycnhronize. Samozrejme to neplati ve 100%ech pripadu, ale
pak musis dobre vedet co delas, protoze tyto chyby jsou dost zaludne. Ono
to obcas vypada ze to funguje, ale presto je to treba spatne napsane a pak
se ti v aplikacich zacnou dit opravdu divne veci :-)
> V blahove vire v nepopsatelnou naivitu, jsem si myslel, ze TThread je super
> vec a strasne jednoducha. Neco jsem kdysi spachal a facha to - teda u me. Po
> case se kdesi vyskytl problem. Dle zjisteneho, VCL s tim taky nepocitalo a
> musi se pri pristupu k ni volat pres synchron (boha, to je reseni :-(.
No, ono se to ale ani jinak resit neda. Pokud by mela byt VCL thread-safe,
tak by byl kod podstatne komplikovanejsi a hlavne i pomalejsi nez je ted.
Jinak pokud jsem to jen trochu pochopil, tak ti jde o volani databazovych
funkci v threadu. Podivej se pro zacatek na priklad Demos\Db\BkQuery.
Pointa je v tom, ze musis vytvorit novou Session a Database pro beh kodu
v threadu a pridelit jim jedinecny nazev. Uprime receno jsem dodnes zcela
nepochopil tu funkci GetUniqueNumber, asi jednodussi by bylo pouzit pro
jedinecny nazev treba GetCurrentThreadId.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Jak zkop�rovat obrazovku do Clibbordu?
[*] Libor V�trovec <vetrak(zv)hotmail(tec)com> - 15.7.1999 02:59:02 pdt
Zdrv�m v�echny p��znivce
m�m mal� i velk� probl�m a to zkop�rovat obrzovku an� by jsem musel
stisknout kal�vesu PrtScr. SaveToClipbordFormat kdeje cesta jakou bmp
pot�ebuji zkop�rovat to to nen�. Dekuji za pomoc. ,,,
/'^'\
( o o )
------------------------oOOO--(_)--OOOo----
Libor V�trovec
---------------
Winterthur pojist'ovna
Panska 7
110 00 PRAHA 1 .oooO
( ) Oooo.
--------------------------\ (----( )-----
\_) ) /
(_/
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Minimize
[*] daniel.hrna(zv)vm.sme(tec)cz - 15.7.1999 06:30:10
nepomuze onResize
-----P�vodn� zpr�va-----
Od: Martin Lasevic, ing. [mailto:vyvoj(zv)atlascon(tec)cz]
Odesl�no: 14. �ervence 1999 14:41
Komu: 'DELPHI FORUM 98'
P�edm�t: Minimize
Nevite nekdo, jakym zpusobem probiha minimalizace wokna pres nastrojovou
listu Start? Pokousel jsem se chytit na wndproc pres WM_SYSCOMMAND, ale
nejak se to nechyta
( ani na ten command).
Pro ty , kteri jsou zvedavi proc to potrebuji, tak chci na akci
minimalizovani provest jeste jednu akci.
Diky za radu
Martin Lasevic Dve otazecky
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 15.7.1999 07:01:44
[P��loha v souboru: Wsock120.zip]
Ahoj,
mam taky D3 ST a na komunikaci pouzivam k me spokojenosti tyto
komponenty.
Snad Ti pomuzou.
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. �ervence 1999 18:17
P�edm�t: Re: Dve otazecky
Cibulka Karel wrote:
> > poctivy amater , mohl jsem si dovolit jen Delphi 4 Standard. Mam tudiz
> > obavu, ze to asi pomoci komponent TClientSocket, TServerSocket nepujde.
> > Hotd za malo penez malo muziky!!!
>
> Clovek nepotrebuje hnedle Professional nebo C/S verzi Delphi, staci se jen
> dobre podivat na internet a vzdycky se neco najde, zkuste se kounout na
> tyhle free komponenty, sam je pouzivam a jsem spokojen:
>
> http://www.rtfm.be/fpiette/indexuk.htm
Pokud vim, tak Piette ma neprijemne licencni podminky - nelze z
toho delat komercni aplikace...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
WINOA386
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.7.1999 07:57:27
Ja jsem ho zkousel, ale bohuzel mi to hlasi chybu na radku
TShellExComObjectFactory.Create(ComServer, TTShellExecuteHook,
Class_TShellExecuteHook, 'TShellExecuteHook',
'ShellExecute hook sample',
ciMultiInstance, tmApartment);
v sekci inifialization (unita ShellExecuteHookObj)
a to "Too many actual parameters"
Navic je to knihovna a neni mi moc jasne, kterou
exportovanou funkci na co pouzit.
Mam D3.
Dobra.
> -----
> Pokud ti jde ale o spehovani toho co kdy uzivatel spustil (takove veci
> se mi
> ale osobne vubec nelibi), tak je mozne udelat hook na API funkci
> ShellExecute
> kterou pouziva Explorer ke spousteni vsech aplikaci. Priklad najdes
> tady:
>
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_ShellExecut
> eHook.zip
>
> autor a vydavatelstvi jedne knihy
[*] jslavice(zv)vce(tec)cz - 15.7.1999 08:08:48
>Zdravim,
>pred nejakym casem zde nejaky pan oznamil, ze napsal knihu (tusim Delphi v
>prikladech). Chtel bych ji zakoupit, ale uz si nepamatuji jmeno autora a
uz
>vubec vydavatelstvi. Pamatuje si to jeste nekdo? Urcite ten mail ma nekdo
>ulozeny. PLEASE HELP ME!!!
>S. Kunc
Autorem knihy "Delphi v prikladech" je Tomas Holan. Knihu je mozno e-mailem
objednat na jeho strance
http://sun3.ms.mff.cuni(tec)cz/~holan/dpr.htm
Josef Slavicek
Tri problemy
[*] jslavice(zv)vce(tec)cz - 15.7.1999 08:08:59
> Dobry den,
> nevite nekdo, kde bych mohl sehnat tu prvni publikaci "Pruvodce vyvojare
> Delphi" od X.Pacheco a S.Teixeira ?
> Diky.
> Martin Va�k��
> mvackar(zv)cpoj(tec)cz
Pokud to ma byt k Delphi 4, tak maji jeste nekolik vytisku v prodejne
Skippy - odborna literatura v Hradci Kralove, tel.: 049-30000. Jde ale o
druhy dil (Kniha II) z celkoveho poctu 6 dilu. Ostatni dily vsak jeste
nevysly.
Josef Slavicek
Lock jedineho zaznamu
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 15.7.1999 08:34:04
Ahojte,
muzete mi nekdo poradit, jestli existuje nejaka moznost jak uzamknout v D3
pro editaci paradoxovske tabulky jediny zaznam a ne celou tabulku? Zatim
jsem prisel jen na to, ze pokud hodim tabulku do editu, tak si na siti uz
nikdo neskrtne.
V PARADOXu 7.0 tato funkce implmentovana je ( asi prime volani nejake
funkce BDE), ale ani po dvou dnech se mi nepodarilo vytipovat, ktera funkce
to je ( mozna je to i trochu slozitejsi, nevim).
Diky za kazde nakopnuti.
Martin Lasevic
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http:/cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
Uvolneni pameti po funkci
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 15.7.1999 08:56:56
Petr Vones wrote:
>
> Miloslav Sk�cel wrote:
> > Jaky je tedy prinos rozdeleni EXE do DLL, kdyz se jedna o DLL,
> > ktere budou volany pouze z jedne aplikace?
>
> Podle mne ve vetsine pripadu zadny, akorat ze to cele bude slozitejsi.
> Jinak v Delphi se misto rozdelovani kodu do DLL take vyplati zvazit
> moznost dynamickeho nahravani balicku.
>
No... My treba ( :))) ) delame modularni ekonomicky software, ktery ma
kazdy vypocetni modul jako jednu DLL. A muzeme pridat novy modul
kdykoliv a i stavajicim zakaznikum, kteri maji treba velmi starou verzi
programu z doby, kdy tento novy modul jeste neexistoval. Protoze hlavni
exac je napsany tak, ze umi pracovat s obecnym modulem.
Treba.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Database a thread
[*] Petr Mys <Mys(zv)post(tec)cz> - 15.7.1999 08:57:24
. . . volani databazovych funkci v threadu. Podivej se pro zacatek na
priklad Demos\Db\BkQuery.
Pointa je v tom, ze musis vytvorit novou Session a Database pro beh kodu v
threadu a pridelit jim jedinecny nazev. Uprime receno jsem dodnes zcela
nepochopil tu funkci GetUniqueNumber, asi jednodussi by bylo pouzit pro
jedinecny nazev treba GetCurrentThreadId.
Mam dotaz (Delphi 4 C/S)
=========
Pouzivam aplikaci kde v hlavnim tele programu mam definovany
TLineInfo = record
Table : TTable;
TableID : TTable;
.
.
end;
TLineBeh = record
NejakaAkce : Boolean;
Log : Boolean;
Stav : Byte;
.
.
end;
Tabulky jsou pripojeny pres komponetu Database, ktera je na hlavnim
formulari a kde je definovano
LineInfo : array[1..5] of TLineInfo;
LineData : array[ 1..5] of TLineBeh;
Na hlavnim formulari jsou tez Table a Query.
Z hlavniho formulare spustim nahodne thready (na udalost) do ktereho
predavam jako parametr LineInfo;
V threadu provedu prirazeni v create (thread nema zadne okno)
Line := LineInfo;
a dale pracuji s tabulkam Line.Table -> open,close,edit, insert, filtr atd a
s daty LineData. Je tato koncepce spravne nebo ji mam predelat dle uvodu
mailu (Dle mailu Petr Vones - TThread (D3 C/S) a synchronize, potazmo
VCL).
Nekdy V threadu vytvorim tez pomocnou Query, ktere priradim DatabaseName
komponenty z hlavniho okna.
Diky za kazdou odpoved