Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
QuickReport a obrazky
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.5.2002 10:01:25
Ahoj,
ja mel s QR problemy s tiskem velkych bitmap (> 100 KB).Musel jsem je jednak redukovat na objem a jednak na plochu - resil jsem to tiskem do ctverecku nebo prouzku.
Ovsem chovalo se to na ruzmych tiskarnach ruzne, zkusenosti jsem mel z cca 120 druhu tiskaren, blblo to na tiskarnach HP (s unidrivery, nekdy i s originalnimi drivery od HP) a na nekterych RankXerox (ale ne na sitovych).
Jaro B.
-----Original Message-----
tak to mam, presne na pixely, byla to jedna z podminek Odberatele. Stretch
ani Autosize nepouzivam a priznaky pozoruji i na riznych tiskarnach (treba
sitova tiskarna na ruznych stanicich, stejny OS, ovladace.. i jine
kombinace)
fakt nevim co to blbne :o\
ale dik za tip!
Pavel
Zoznam komponent
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.5.2002 10:12:29
> Potrebujem urobit zoznam komponent do nejakeho streamu to je
> jedno moze to
> byt aj textovy subor. Ale tak ze v nejakom cykle zistim nazvy vsetkych
> komponent na formulary a Eventy ktore su ku nim pripojene.
> Ako sa to da
> spravit existuje nejake pole komponent ktore obsahuje formular?
uses
TypInfo;
procedure ShowComponentsEventHandlers(Owner: TComponent);
var
I, J: Integer;
PropCount: Integer;
PropList: TPropList;
MethodProp: TMethod;
begin
with Owner do
for I := 0 to ComponentCount - 1 do
begin
PropCount := GetPropList(PTypeInfo(Components[I].ClassInfo),
[tkMethod], (zv)PropList);
for J := 0 to PropCount - 1 do
begin
MethodProp := GetMethodProp(Components[I], PropList[J]);
if Assigned(MethodProp.Code) then
OutputDebugString(PChar(Format('%s.%s = %s.%s ($%.8x)',
[Components[I].Name, PropList[J]^.Name,
TComponent(MethodProp.Data).Name,
TObject(MethodProp.Data).MethodName(MethodProp.Code),
Integer(MethodProp.Code)])));
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowComponentsEventHandlers(Self);
end;
HTH
TOndrej
Vraceni RecordSetu z ulozenych procedur u Adonisu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.5.2002 10:35:18
Prosim o radu, pouzivam komponenty Adonis a MSSQL2000,
pokud v ulozene procedure updatenu tabulku, tak nejsem schopen donutit
komponentu TADOQuery ani TADODataset, aby vratila recordset.
Pro vypocitavane dotazy by se tato vlastnost velmi hodila, jak Adonise
nastavit, aby to slo ?
Pavel
Datova cache TDatasetu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.5.2002 11:02:24
> nevite nekdo, jestli existuje nejaky popis TDatasetu - jeho
> filosofie?
Tieto odkazy som nasiel narychlo cez google "custom dataset":
http://community.borland.com/article/0,1410,20587,00.html
http://www.neosoft.com/~startech/week1/customds1.htm
http://www.adug.org.au/PastMeetings/Presentations/GPitsonFeb99/default.htm
http://www.gexperts.com/articles/CustomDS.html
http://www.marcocantu.com/code/md6htm/MdDataPack.htm
Snad Ti to pomoze.
TOndrej
Vraceni RecordSetu z ulozenych procedur u Adonisu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.5.2002 11:03:41
Jak to volas ?
V ulozene procedure udelas Update a pak musis udelat Select. Ten ti
vraci recordset.
Spoustet musis pres Open, ne pres Exec.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.5.2002 Lstiburek Pavel:
> Prosim o radu, pouzivam komponenty Adonis a MSSQL2000,
> pokud v ulozene procedure updatenu tabulku, tak nejsem schopen donutit
> komponentu TADOQuery ani TADODataset, aby vratila recordset.
> Pro vypocitavane dotazy by se tato vlastnost velmi hodila, jak Adonise
> nastavit, aby to slo ?
> Pavel
DLL - predavani hodnot
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.5.2002 12:08:55
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> coz je sice lepsi cesta, ale ne vzdy tazatelem akceptovatelna. Stejne
> tak muzes jako PRVNI unitu v sekci uses tve DLL napsat ShareMem a
> bude to fungovat podle tvych predstav (nezapomen s aplikaci sirit i
Ne, pro predavani objektu nelze pouzit ShareMem, to je jen pro predavani
promennych ktere se fyzicky ukladaji jako pointer (string, dynamicke pole,
variant ...)
Petr Vones
OT Re: Co chtit za zdrojove kody?
[*] Peter Surovy <psurovy(zv)uevora.pt> - 10.5.2002 11:09:40
Ahoj
no tak to mi vychodi podla mojho calc.exe 150 000,-CK
co je cca 4920 EUR co je takmer polrocny plat
vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
samozrejme). :-(
Nemalo by sa to hodnotit aj trochu podla
kvality a vyuzitelnosti toho kodu?
Len sa pytam.:-)
P
----- Original Message -----
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>>
> ----- Original Message -----
> From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
>
> > Kdyz jsem zhruba pocital spotrebovany cas, tak mi vyslo nejakych 250-300
> > hodin.
> nabidky mezi 360-800 Kc/Hod.
> Prakticka realizace byla 500 kc/hod.
OT:Co chtit za zdrojove kody?
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 10.5.2002 12:13:09
Zdravicko,
dle meho nazoru je vytvoreni zkompilovaneho programu uplne jiny pripad nez
dodani zdrojoveho kodu. Pokud jsi zkusenejsi programator tak zdrojovy kod
urcite musi obsahat unity, objekty popripade komponenty z tvoji knihovny a
tim padem cena zdrojovych kodu hodne roste... Pokud jsi to delal 200 hodin
ciste prace tak to zrejme nebude jen tak nejaky programek, cili 2-3 tisice
mi pripada hodne malo.
Pro srovnani, ja jsem venoval svemu odesilaci webovych formularu, ktery
pouzivam na odesilani sms, ani ne polovinu casu, ale obsahuje napriklad i
html parser ktery jsem delal driv nezavisle na tomto projektu + spoustu
dalsich drobnych knihoven a objektu. Kdyz jedna firma projevila zajem o
zdrojove kody odesilace nahodil jsem cenu 20 000 a dostal je, protoze ti
lide vedeli o co jde... V te cene ale nejde ani tak o straveny cas ale o
skutecnou hodnotu zdrojovych kodu, zrovna tak jako knihovny a objekty
pouzite v nem pouzijes i v x dalsich projektech, tak to same s nimi muze
udelat i zakaznik, coz mu usetri dalsi cas pri vyvoji.
Samozrejme od ceny ale musis odecist to co jsi dostal za vyvoj zkompilovane
verze, zakaznik ktery si koupi jen zdrojak a zkompiluje by mel mit stejne
podminky jako ten co si zaplati vyvoj zkompilovane verze a pak se rozhodne
koupit si i zdroj.
Ovsem tvuj problem bude zrejme v tom, jestli jsem to dobre pochopil, ze tvuj
sef je proste jen uzivatel a pri teto cene, kterou mu reknes se mu protoci
panenky, protoze si v duchu predstavi ze tolik stoji skoro celej Photoshop,
ale cene zdrojovych kodu to odpovida... Nema cenu jit pod cenou jen proto ze
tomu nerozumi, kazda sranda neco stoji :)
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
Subject: Re: OT:Co chtit za zdrojove kody?> Upresneni:
> Nevzniklo to v ramci pracovnich povinnosti, delal jsem to po vecerech,
> resp. po nocich:-) Smlouvu jsem mel na "samostatne provadeni
> geodetickych praci a zpracovani dat" (takze v praci jsem ani Delphi
> nemel) a je "moje blbost", ze me bavi programovani a chtel jsem si
> zjednodusit na muj vkus tezkopadny system, ktery jsem mel prevzit.
>
> Jo, a 200 hod x kolik? Kdyby jen krat 100, tak ho omejou. Mam takove
> tuseni, ze jeho predstava je nekde v radu 2-3 tisic:-)
>
> M. Novosad
>
Prace s MS MapPoint
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 10.5.2002 12:30:09
Ahoj vsem, mam ted delat cosi v Delphi, co ma vyuzivat MS MapPoint (zatim
verze 2001). Nemate s tim nekdo nejake zkusenosti a chut se o ne podelit?
Pokud ano, poslete prosim odpoved nejen do konference, ale take na
petr.brant(zv)cmail(tec)cz (pouze pres vikend). Diky za vsechny odezvy.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
OT Re: Co chtit za zdrojove kody?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 10.5.2002 12:44:56
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> no tak to mi vychodi podla mojho calc.exe 150 000,-CK
> co je cca 4920 EUR co je takmer polrocny plat
> vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> samozrejme). :-(
No neboj tak zle to urcite neni! ;-)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Items a values v RxDBGridu
[*] David Janko <djanko(zv)infoware(tec)cz> - 10.5.2002 12:48:28
Zdravim vsechny,
v RxDBCombo je mozne uvest zvlast Items a Values, aby se jedna hodnota
zobrazovala a druha ukladala do databaze - potreboval bych to same v
prislusnem poli RxDBGridu - logicky bych usoudil, ze by to melo jit take,
ale absolutne nemuzu prijit na to jak ... jsem jenom slepy nebo ?
Dekuji za pripadne odpovedi.
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
Volume Mount Points
[*] Martin Prikryl <xprikry2(zv)informatics.muni(tec)cz> - 10.5.2002 12:53:12
Ahoj,
mate nekdo zkusenosti se SetVolumeMountPoint?
Soucasti jednoho parametru je GIUD jednotky - to ziskavam z registru
HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices, ale nejsem si jisty, zda je to
spravny zpusob. Stale mi to totiz vraci error 123, prestoze (myslim si)
zadavam spravne parametry.
Pouzivam v Delphi 6 Upate 2, WinXP, NTFS 2000.
Dik,
Martin Prikryl
OT Re: Co chtit za zdrojove kody?
[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 10.5.2002 13:01:29
:-) A nebylo by jednodu��� si to prost� vz�t a d�l se o ni�em nebavit?
;z�vis� na co m� �aludek, ale tohle nen� podle m� kr�de� - j� bych si to ospravedlnil faktem, �e to co jsem napsal u� v hlav� m�m a ps�t to znovu bude ztr�ta �asu. Z �ist� lidsk�ho hlediska je to v po��dku: Mlyn�� si v 1 ml�n� osvoj� n�jak� technologick� postup, a v nov�m zam�stn�n� nebude znovu vynal�zat ml�nsk� kolo, ne?
Plus: SVOJE zdroj�ky beru jako svoje d�ti ... a� si je b�val� zam�stnavatel u��v�, ale j� budu taky.
Ve fin�le: Tv�j b�val� zam�stnavatel bude spokojen� a o ni�em nev�d�t, Ty si u�et�� hromady pr�ce a Tv�j sou�asn� / budouc� zam�stnavatel bude spokojen je�t� v�c, co� p��mo ovlivn� jeho pohled na Tebe, t�m p�dem bude� spokojen�j�� a vyrovnan�j��m a tak se l�pe tvo�� hodnoty, a o to n�m p�ece jako spole�nosti jde, ne?
Ale jinak si z m�ch n�zor� si nic ned�lejte.
Michael Jane�ek
Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz
-----Original Message-----
From: Kaka�ka Pavol [mailto:kakacka(zv)proca(tec)cz]
Sent: Friday, May 10, 2002 12:45 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT Re: Co chtit za zdrojove kody?
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> no tak to mi vychodi podla mojho calc.exe 150 000,-CK
> co je cca 4920 EUR co je takmer polrocny plat
> vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> samozrejme). :-(
No neboj tak zle to urcite neni! ;-)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
OT Re: Co chtit za zdrojove kody?
[*] Peter Surovy <psurovy(zv)uevora.pt> - 10.5.2002 12:17:01
Ahoj
mam kamarata robi v softwarovej firme
programuje v Jave robi na plny uvazok
a jeho cisty mesacny prijem je 850 EUR
co je za polroka 5100EUR.
Mozno je to najmensi mozny plat,
ale zas az tak som neprestrelil. ;-)
P
----- Original Message -----
From: "Kaka�ka Pavol" <kakacka(zv)proca(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 10, 2002 11:44 AM
Subject: Re: OT Re: Co chtit za zdrojove kody?> From: "Peter Surovy" <psurovy(zv)uevora.pt>
> > no tak to mi vychodi podla mojho calc.exe 150 000,-CK
> > co je cca 4920 EUR co je takmer polrocny plat
> > vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> > samozrejme). :-(
>
> No neboj tak zle to urcite neni! ;-)
>
> Kakacka Pavol
> KasiX(zv)atlas(tec)cz
>
>
DLL - predavani hodnot
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.5.2002 13:31:14
> > coz je sice lepsi cesta, ale ne vzdy tazatelem akceptovatelna.
> > Stejne tak muzes jako PRVNI unitu v sekci uses tve DLL napsat
> > ShareMem a bude to fungovat podle tvych predstav (nezapomen s
> > aplikaci sirit i
> Ne, pro predavani objektu nelze pouzit ShareMem, to je jen pro
> predavani promennych ktere se fyzicky ukladaji jako pointer (string,
> dynamicke pole, variant ...)
*****Spatne jsem se vyjadril. Predavanim objektu ja osobne myslim
predani ukazatele na tento objekt. Tedy pokud si napr. v DLL vytvorim
TQuery, tak jej muzu (cti ukazatel na instanci tridy TQuery) predat
do volajici aplikace, ktera napr. zobrazi datovou mnozinu vracenou v
TQuery (tedy pri pouziti ShareMem).
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
DUnit a JCLDebug
[*] <karel.krtecek(zv)centrum(tec)cz> - 10.5.2002 13:34:52
Dobry den,
na internetu jsem narazil na DUnit
(http://dunit.sourceforge.net), ktery by mohl byt zajimavy, ale
bohuzel ma anglictina nestaci na to, abych to spravne pochopil.
Mate s tim nekdo zkusenosti? K cemu je to dobre? Jaky je rozdil
oproti JCL Debug?
Dekuji
Karel Krtecek
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
IB(FB) a popis chyb v interbase.log
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 10.5.2002 13:38:57
Ahoj,
kde je mozno ziskat popis chyb (errno ) serveru IB (FB). Konkretne se mi
obcas objevuji tyto chyby:
INET/inet_error: read errno = 10054
INET/inet_error: select in packet_receive errno = 10038
Dik Pavel
OT Re: Co chtit za zdrojove kody?
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 10.5.2002 13:39:19
tech 4920EUR mi nejak nesedi jako pulrocni plat. spis bych rekl, ze mesicni
mzda muze bejt tak 3000EUR(tipnu nemecko) brutto, tak za pul roku sme na
18000EUR. :-))).
Pavel
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> no tak to mi vychodi podla mojho calc.exe 150 000,-CK
> co je cca 4920 EUR co je takmer polrocny plat
> vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> samozrejme). :-(
No neboj tak zle to urcite neni! ;-)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
IB(FB) a popis chyb v interbase.log
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.5.2002 13:49:42
> kde je mozno ziskat popis chyb (errno ) serveru IB (FB).
> Konkretne se mi
> obcas objevuji tyto chyby:
>
> INET/inet_error: read errno = 10054
> INET/inet_error: select in packet_receive errno = 10038
Myslim, ze su to WinSock chyby, najdes ich napr. vo win32.hlp:
10054 = WSAECONNRESET = Connection reset by peer.
10038 = WSAENOTSOCK = Socket operation on non-socket.
HTH
TOndrej
OT Re: Co chtit za zdrojove kody?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.5.2002 13:54:13
Puvodni zprava, kterou napsal Peter Surovy dne 10 May 2002:
> co je cca 4920 EUR co je takmer polrocny plat
> vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> samozrejme). :-(
No teda nejsem odbornikem na EU, ale nejak se mi to nezda. Nespletl sis
vysokoskolsky vzdelaneho programatora s uklizeckou na vysoke skole? :-)
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Vraceni RecordSetu z ulozenych procedur u Adonisu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.5.2002 14:01:12
Presne tak to volam i delam. Zjistil jsem, ze pokud nasadim SET NOCOUNT OFF,
tak to pracuje, pokud potrebuji zjistovat pocet update zaznamu tak to
nepracuje !
Pavel
> From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
> Jak to volas ?
> V ulozene procedure udelas Update a pak musis udelat Select. Ten ti
> vraci recordset.
> Spoustet musis pres Open, ne pres Exec.
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 10.5.2002 Lstiburek Pavel:
> > Prosim o radu, pouzivam komponenty Adonis a MSSQL2000,
> > pokud v ulozene procedure updatenu tabulku, tak nejsem
> schopen donutit
> > komponentu TADOQuery ani TADODataset, aby vratila recordset.
>
> > Pro vypocitavane dotazy by se tato vlastnost velmi hodila,
> jak Adonise
> > nastavit, aby to slo ?
>
> > Pavel
>
>
OT Re: Co chtit za zdrojove kody?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.5.2002 14:06:55
Puvodni zprava, kterou napsal Peter Surovy dne 10 May 2002:
> mam kamarata robi v softwarovej firme
> programuje v Jave robi na plny uvazok
> a jeho cisty mesacny prijem je 850 EUR
> co je za polroka 5100EUR.
> Mozno je to najmensi mozny plat,
> ale zas az tak som neprestrelil. ;-)
To je divne, to se mi zda malo. Nicmene, kdyz jsi pocital tech 150 tisic
Kc za 300 hodin prace, tak si uvedom par aspektu:
1. Plny uvazek je cca 8 hodin denne, to je cca 160 hodin mesicne.
2. Kdyz pracujes na plny uvazek v praci, tak muzes take pul dne prolezet,
prosvacit, projednat na jednanich apod. Neni to cista doba, co delas na
projektu.
3. V praci mas socialni jistoty, muzes byt nemocny a stale dostavas cast
platu, to si nemuzes dovolit jako podnikatel.
4. Cista mzda neodrazi naklady na mzdu. Za prve si uvedom, ze platis
dane, socialni a zdravotni, za druhe jeste vic za tebe plati
zamestnavatel - naklady jen na mzdu jsou daleko vyssi, co zaplati
zamestnavatel celkem. Jeste k tomu musi platit prostory a vybaveni, kde
pracujes, pocitace, software, musi nest rizika s tim, ze budes nemocny,
poskytovat ti dalsi socialni zalezitosti apod.
5. Kdyz ten clovek vybere 150 tisic, tak az pulku z toho zaplati Spidlovi
na danich, socialnim, zdravotnim, navic musi mit sve pocitacove vybaveni,
sve prostory, svuj software, svou elektrinu apod. Jeho cista mzda ma
opravdu hodne moc daleko k 150 tisicum.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
DLL - predavani hodnot
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 10.5.2002 14:06:00
A to prave nejde. Ty do dll predas pointer na objekt kterej ma strukturu
jako v exe souboru ale dll se na nej snazi pristupovat jako na objekt se
stejnou tridou ale se strukturou definovanou v dll, tyto struktury se nemusi
rovnat i kdyz jde o stejny objekt stejne definovany.
Jakub Dusek
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Subject: Re: DLL - predavani hodnot
> > > coz je sice lepsi cesta, ale ne vzdy tazatelem akceptovatelna.
> > > Stejne tak muzes jako PRVNI unitu v sekci uses tve DLL napsat
> > > ShareMem a bude to fungovat podle tvych predstav (nezapomen s
> > > aplikaci sirit i
> > Ne, pro predavani objektu nelze pouzit ShareMem, to je jen pro
> > predavani promennych ktere se fyzicky ukladaji jako pointer (string,
> > dynamicke pole, variant ...)
> *****Spatne jsem se vyjadril. Predavanim objektu ja osobne myslim
> predani ukazatele na tento objekt. Tedy pokud si napr. v DLL vytvorim
> TQuery, tak jej muzu (cti ukazatel na instanci tridy TQuery) predat
> do volajici aplikace, ktera napr. zobrazi datovou mnozinu vracenou v
> TQuery (tedy pri pouziti ShareMem).
>
> Slavek
>
> > Petr Vones
Vraceni RecordSetu z ulozenych procedur u Adonisu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.5.2002 14:33:54
A neudelas pri tom zjistovani select Pocet = (zv)(zv)RowCount ?
Pak se ti vrati 2 rowsety a zalezi na komponente, zda je umi
zpracovat. Ty si pak musis rict, ze chces prvni, zpracovat a rict o
dalsi.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.5.2002 Lstiburek Pavel:
> Presne tak to volam i delam. Zjistil jsem, ze pokud nasadim SET NOCOUNT OFF,
> tak to pracuje, pokud potrebuji zjistovat pocet update zaznamu tak to
> nepracuje !
OT Re: Co chtit za zdrojove kody?
[*] Peter Surovy <psurovy(zv)uevora.pt> - 10.5.2002 13:41:20
Ahoj
ja si vsetky aspekty perfektne uvedomujem.
Chlapik samozrejme zamestnavatela stoji
ovela viac ako 850 EUR napr. na Slovensku
je cisty prijem zamestnanca presne 50% z toho co
mu ( a za neho) plati zamestnavatel.
Trochu sa to zvrtlo inak ako som to myslel
Myslel som to co Ty ako programator mozes ocakvat za
svoju pracu.
<moj nazor> Je trochu od veci preratavat cas
prenasobeny korunami a mysliet si ze mam cenu tovaru</moj nazor>
Znamena to ze ked napisem algoritmus, ktory
rozkoduje trebars pdf za 15 minut predajna cena bude
0.15x300 = 45Ck?
Alebo ked si dam postavit ku domu chodnik
cez zahradu chlapikovi, ktory bude robit vsetko
rucne este aj varit asfalt v hrnci a bude mu to trvat 5 rokov
zaplatim mu 5x252(dni)x8x45(za hod)= 454 000Ck?
Neberte to v zlom :-)
Ja si len myslim ze cena kodu by mala odrazat jeho
predajnost, kvalitu a vyuzitelnost teda jeho penaznu likviditu
nie to kolko sa s nim kto narobil.
S pozdravom Peter Surovy
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> To je divne, to se mi zda malo. Nicmene, kdyz jsi pocital tech 150 tisic
> Kc za 300 hodin prace, tak si uvedom par aspektu:
> 1. Plny uvazek je cca 8 hodin denne, to je cca 160 hodin mesicne.
>
> 2. Kdyz pracujes na plny uvazek v praci, tak muzes take pul dne prolezet,
> prosvacit, projednat na jednanich apod. Neni to cista doba, co delas na
> projektu.
>
> 3. V praci mas socialni jistoty, muzes byt nemocny a stale dostavas cast
> platu, to si nemuzes dovolit jako podnikatel.
>
> 4. Cista mzda neodrazi naklady na mzdu. Za prve si uvedom, ze platis
> dane, socialni a zdravotni, za druhe jeste vic za tebe plati
> zamestnavatel - naklady jen na mzdu jsou daleko vyssi, co zaplati
> zamestnavatel celkem. Jeste k tomu musi platit prostory a vybaveni, kde
> pracujes, pocitace, software, musi nest rizika s tim, ze budes nemocny,
> poskytovat ti dalsi socialni zalezitosti apod.
>
> 5. Kdyz ten clovek vybere 150 tisic, tak az pulku z toho zaplati Spidlovi
> na danich, socialnim, zdravotnim, navic musi mit sve pocitacove vybaveni,
> sve prostory, svuj software, svou elektrinu apod. Jeho cista mzda ma
> opravdu hodne moc daleko k 150 tisicum.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ============================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 047-5500610, 047-5501627, 0602-409601
> Fax: 047-5511338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
> ICQ: 21215917
> ============================================================
>
>
ANN: Synapse release 28
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.5.2002 15:01:12
Zdravim!
Pred par dny byla vypistena nova verze Synapse. (k naklezeni na adrese v
mem podpisu...)
V teto verzi mimo jine pribylo demo na HTTP protokol, ktere ukazuje jak
snadno stahnout nejakou stranku z WEB serveru, ale take jak snadno
nasimulovat odeslani nejakeho html formulare, a to vcetne uploadu
soouboru. Soucasti dema jsou i ukazkove PHP skripty pro prijimani
takovychto dat, ale take i html souboru s formulari, ktere demo simuluje.
(posledni dobou zde v konferenci bylo na toto tema hodne dotazu, tak
doufam ze vam toto demo pomuze.)
Krom toho pochopitelne doslo i ke zmene ve vlastni Synapsi. Z tech
nejdulezitejsich vybiram:
- druha faze podpory SSL/TLS. Nyni lze se Synapsi psat i serverove SSL
aplikace, provadet autorizace pres certifikaty, atd.
- SMTP, POP3 i IMAP4 protokoly podporuji zabezpeceny SSL/TLS rezim.
- FTP implementace nyni umi analyzovat vypisy adresaru a sestavovat z
nich seznamy pritomnych soboru vcetne informaci o souborech (datum delka,
atd.)
- a pochopitelne je vychytana dalsi spousta problemku...
Dekuji timto vsem, kteri svym nemlcenim prispeli k tomu, aby Synapse byla
stale lepsi. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 10.5.2002 15:08:43
procedure MojeProcedura;
begin
try
try
except
end;
finaly
end;
// kriticke misto
try
except
end;
end;
na vsech PC funguje tato zalezitost korektne pouze na jednom (PIII 450) se
procedura jakoby ukonci v kritickem miste a dalsi cast kodu se jiz nevykona.
Konfigurace PC je stejna (Win95, P200, Celerony, 16 - 128 MB ram) na vsech
techto konfiguracich to funguje.
Obsahuje snad PIII nejakou chybu nebo cim to buze byt uz s toho silim vitel
to nekdo z vas?
Diky za cokoliv
Podivne chovani Try Except, Try Finally
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.5.2002 15:16:50
> procedure MojeProcedura;
> begin
>
> try
> try
> except
> end;
> finaly
> end;
> // kriticke misto
> try
> except
> end;
>
> end;
Kriticke misto neni nijak chraneno - pokud dojde k vyjimce tak je
procedura ukoncena a vyjimku zachytit nadrizena obsluha...
D. Toman
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 10.5.2002 15:39:51
Kriticke misto neni nijak chraneno - pokud dojde k vyjimce tak je
procedura ukoncena a vyjimku zachytit nadrizena obsluha...
kriticke misto tam je jen napsano ale ve skutecnosti tam nic neni kod vypada
end;
try
ale k tomu dalsimu try proste nedojde endem proste skonci a hotovo
Podivne chovani Try Except, Try Finally
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 10.5.2002 15:59:01
Ale to podle mne neni dobre. Mas osetrene vsechny vyjimky v prvnim
Except? Pokud ti vznikne vyjimka, kterou neodchytis v except, pak se to
bude chovat presne tak, jak pises. Vykona se finally a za slovem end od
finally vyskakuje provadeni kodu z procedury do nadrizene - tam, kde je
osetrena vyjimka.
Mephisto wrote:
>
>
> kriticke misto tam je jen napsano ale ve skutecnosti tam nic neni kod vypada
>
> end;
> try
>
> ale k tomu dalsimu try proste nedojde endem proste skonci a hotovo
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
instalace BDE
[*] Detesk - Daniel Dlab <josef.moravec(zv)detesk(tec)cz> - 10.5.2002 15:59:03
Ahoj,
prosel jsem si konferenci, abych zjistil neco vice o problematice s
instalaci BDE. Pro zhotoveni instalace pouziju InstallShiel Express. Co jsem
posbiral jako dulezite, bylo:
1/ pripopjit k aplikaci uplne BDE
2/ nedefinovat zadne aliasy
3/ pohlidat, aby se v pripade preinstalace BDE neprepsala konfigurace BDE
(Drivery, System)
4/ instalaci spustit, kdyz zadna aplikace nebezi
5/ provest restart PC
Moje aplikace se spousti z CD. Tam jsou i data. Komponentou Database si
definuji lokalni alias, cimz zajistim nezavislost na existujicim IDAPI.CFG.
Bod 3 mi pripada stezejni. Svoji aplikaci mam nedokoncenou v nasledujicim
stavu: Uzivatel nic neinstaluje a spusti aplikaci. Aplikace zjisti, zda-li
je BDE nainstalovano. Pokud je, zjisti verzi BDE (porovna se iVersion s
pozadovanym). Jestlize BDE nainstalovane neni, objevi se zprava o nutnosti
jeho instalace a aplikace se ukonci. Jestlize BDE existuje s verzi nizsi,
objevi se zprava, ze aplikaci nelze spustit (volim tento zpusob, abych
predesel k pravdepodobnemu chybovemu hlaseni) a aplikace se ukonci. Pokud
nenastane zadny z techto pripadu, aplikace bezi. V prvnim pripade si
uzivatel spusti instalaci a aplikace mu pobezi. Ve druhem pripade vsak CD
nejspis zahodi. V te konfiguraci BDE je toho myslim dost a jak nekdo psal,
ze si vsechno pohlida programove, pro svou aplikaci zmeni a po skonceni
vrati na puvodni hodnoty, me vyziva k tomu, ze bych to mel taky resit. Asi
bych mel napsat programek, ktery toto zjisti, nekam do souboru zapise,
teprve potom instalovat BDE a parametry pomoci tohoto souboru opravit
(otazkou je, co vsechno).
Diky za rady, Dan.Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 10.5.2002 16:11:39
ale ono k vyjince nedojde zkousel jsem toto
try
Reg := TRegistry.Create;
try
ShowMessage('OK');
except
ShowMessage('Error');
end;
finaly
ShowMessage('Reg.Free');
Reg.Free;
end;
try
ShowMessage('OK');
except
ShowMessage('Error');
end;
ukaze se message OK ukaze se RegFree a dal nic proc kod nedojede dal??, pak se to
bude chovat presne tak, jak pises.
Podivne chovani Try Except, Try Finally
[*] <ZPetruj(zv)qgir(tec)cz> - 10.5.2002 16:24:52
Mas to blbe:
> try
> Reg := TRegistry.Create;
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
> finaly
> ShowMessage('Reg.Free');
> Reg.Free;
> end;
Reg := TRegistry.Create musis mit pred blokem try - finally.
Co myslis ze se asi stane v pripade ze z jakekoliv priciny
nedojde k vytvoreni objektu Reg := TRegistry.Create -
pak ti to vleze vzdy do finally a bude se to snazit uvolnit
Reg.Free neexistujici objekt!!!!
Pri vytvareni objektu by mela byt vzdy pouzita konstrukce:
NejakyObjekt := TNejakyObjekt.Create;
try
...
blablabla
...
finally
NejakyObjekt.Free
end;
Pokud ti to vypadne na nejake chybe, pak to vleze jen do finally
a nasledujici cast je uz vynechana. Co je na tom podivneho ???
To je normalni chovani try - finally a try - except. Precti si help.
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
>
Podivne chovani Try Except, Try Finally
[*] Miloslav Skacel <delphicz(zv)stereo(tec)cz> - 10.5.2002 16:33:34
Tipnul bych si na chyby v praci s pameti.
Alokujes pamet, predavas ukazatele do funkci API?
Mas zapnuto RangeChecking?
Uvolnuje aplikace vsechnu pamet?
Zkousel jsi MemProof?
Miloslav Skacel
skacel(zv)stereo(tec)cz
DUnit a JCLDebug
[*] Rado Benc <bego(zv)pobox.sk> - 10.5.2002 16:38:22
Nazdar,
karel.krtecek(zv)centrum(tec)cz wrote:
> na internetu jsem narazil na DUnit
> (http://dunit.sourceforge.net), ktery by mohl byt zajimavy, ale
> bohuzel ma anglictina nestaci na to, abych to spravne pochopil.
> Mate s tim nekdo zkusenosti? K cemu je to dobre? Jaky je rozdil
> oproti JCL Debug?
AFAIK DUnit vychadza z JUnit (povodne v Jave) a je to testovaci
framework ("prostredie") pre unit testing. To znamena, ze ku kazdej
feature (property, public metode) pises zaroven jej test.
V praxi to vyzera obvykle tak (v Jave), ze ku kazdej triede,
resp. skupine tried pises zaroven testovacie triedy (zdedene od tych v
JUnit, resp. DUnit).
Napriklad, povedzme ze implementujes triedu Ucet, ktora reprezentuje
bankovy ucet a operacie s nim (debet, kredit, blokovanie, ...).
_Zaroven_ s implementaciou triedy Ucet implementujes aj triedu
UcetTest (alebo TestUcet, podla konvencie), ktora vytvara instanciu
(obycajne viacere instancie) triedy Ucet a manipuluje s propertami a
metodami - tak, ako by to robila realna aplikacia. A framework (ci
uz JUnit, alebo DUnit) toto testovanie zjednodusuje a umoznuje
testovat uplne elementarne casti programu bez nutnosti vytvarat
testovaciu aplikaciu.
Kedysi som sa s tym hral a bol som nadseny. Moje poznatky:
1. Napises podstatne viac kodu pretoze ku kazdej jednotlivej "veci"
treba pisat zaroven aj test na nu.
2. Pokial tuto metodiku dosledne dodrziavas IMHO stupa kvalita kodu
(vsetko je okamzite testovane) a zaroven mas prehlad o tom, co
implementovane je a co implementovane nie je.
3. Akonahle je test raz naprogramovany, je to parada - mozes
kedykolvek otestovat ktorukolvek cast, alebo system ako celok,
mozes sy vytvarat skupiny testov, atd.
IMHO je JCLDebug na nieco ine.
A teraz sa asi spytas, preco tento framework nepouzivam ... Odpoved
je jednoducha - zivim sa platanim dier v programoch programatorov,
ktori svoje programy nikdy seriozne netestovali... :-)
HTH,
Rado
---
Beer is proof that God loves us and wants us to be happy.
- Benjamin Franklin
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
Vraceni RecordSetu z ulozenych procedur u Adonisu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.5.2002 17:07:40
Ne struktura je cca takovahle
UPDATE TableX SET X = (zv)a
WHERE h = (zv)b
SELECT (zv)c = (zv)(zv)RowCount
.....
.....
IF (zv)c = 1
neco
ELSE
neco jineho
SELECT * FROM TableX WHERE h = (zv)b
Vynasene udaje jsou vlastne o chybe operace (logicke).
V QueryAnalyseru vsechno pracuje OK, pokud to pustim z Delphi taky, ale
nevrati to recordset ( recordcount = -1). Stejne kontrukce na AdoExpresu
pracovaly dobre.
Pavel
> -----Original Message-----
> From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
>
>
> A neudelas pri tom zjistovani select Pocet = (zv)(zv)RowCount ?
> Pak se ti vrati 2 rowsety a zalezi na komponente, zda je umi
> zpracovat. Ty si pak musis rict, ze chces prvni, zpracovat a rict o
> dalsi.
>
> --
> Jan Fiala
>
> 10.5.2002 Lstiburek Pavel:
> > Presne tak to volam i delam. Zjistil jsem, ze pokud nasadim
> SET NOCOUNT OFF,
> > tak to pracuje, pokud potrebuji zjistovat pocet update
> zaznamu tak to
> > nepracuje !
>
>
NMHTTP metoda POST
[*] mr Nick Eagly <delphichat(zv)seznam(tec)cz> - 10.5.2002 17:24:29
Nevite nekdo prosim v jakem tvaru se odesilaji data pomoci metody
post?
Ond�ej
Holub
______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz
"Letajici papiry" pri kopirovani souboru
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 10.5.2002 18:13:48
Zdravim
Nebudu uz resit legalni X nelegalni.
V programu pouzivam extrahovani ikony z jineho EXE a jeji zobrazeni na
Toolbaru2000. Kdyz mam nastaveny 32bit barvym, tak mi to pod ikonamy typu XP
(konkretne kalkulacka, wordpad, MSIE apod.) zobrazuje cerne pozadi. Ale ne
uplne cely ctverec, pouze jeho casti. Nejspis souvislost s alpha kanalem. V
16bit barvach se to neprojevuje. Zjevne je to zpusobeno nekompatibilitou
ikon typu XP, protoze ty se pouziji jen a pouze pri 32bit barvach, pri 16bit
se pouzivaji klasicke.
Zdenek
----- Original Message -----
Jeste k tem AVI vs. TAnimate a CommonAVI -- kdyz takovy program
spustis na Windows XP, maji tyto animace spatne pozadi, treba ruzove.
Stava se vam to take?
DLL - predavani hodnot
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 10.5.2002 18:14:24
To ja vsechno tohle vim a pouzil jsem to (nemusite zduraznovat ze se to uz
zde probiralo),
ale i "preze" vsechno mi to stale hlasilo chybu "Invalid ..." - cekal jsem,
ze se tu dozvim
nejakou dalsi moznost ...
Jiri
----- Original Message -----
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 09, 2002 10:12 PM
Subject: Re: DLL - predavani hodnot
> Uz se to tu probiralo, ale Exe.TStringGrid <> Dll.TStringGrid pokud
> nepouzijes balicek spolecny pro oba moduly. Vytvorene instance objektu
jsou
> tedy nekompatibilni, proto nikdy nevis co od toho muzes cekat...
>
> Jakub Dusek
>
> -------------------------------------------
> Homepage : http://dusek.zde(tec)cz
> Phone : +420604615795
> Sms email : jakub.dusek(zv)click(tec)cz
> Icq : 86063232
> Apps : Add/Remove Manager, Charmaper,
> Sms GateKeeper
> -------------------------------------------
>
> ----- Original Message -----
>
> From: "Jiri Sedivec" <jsedivec(zv)mail(tec)cz>
> Subject: DLL - predavani hodnot
>
>
> > Dobry den,
> >
> > mam v DLL jednu fci, ktera mi vraci standartni tabulku:
> >
> > function Receive(items: longint): tstringgrid;
> > begin
> > ...
> > end;
> >
> > Pokud tuto funkci provedu a pote ukoncim aplikaci, Delphi nahlasi chybu:
> > Invalid pointer operation.
> > Co s tim?
> > Jiri
> >
> >
>
OT: Calcul - kto napise interpreter
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 10.5.2002 19:43:05
Hladam niekoho kto by napisal maly interpreter v Delphi
Nedavno som urobil komponent Calcul (www.tsoft.szm.com) ktory dokaze
vyhodnotit funkci(matematicke , retazcove, datum + cas atd.)
a vie pracovat s premennymi. No zladiska casu potrebujem niekoho kto by
napisal pomocou tejto komponenty mali interpreter, ktory by obsahoval tieto
prikazy:
while <podmienka> do ... end;
if <podmienka> do ... end;
if <podmienka> do ... else ... end;
break;
exit;
continue;
exec <meno procedury(<parametre>)>;
procedure <meno procedury(<parametre>)> ... endproc;
Jan Tungli, mailto:tungli(zv)datapac.sk
OT Re: Co chtit za zdrojove kody?
[*] Fait FTSOFT <fait(zv)ftsoft(tec)cz> - 10.5.2002 19:46:28
Ja bych na to koukal trochu jinak:
Zakladni otazkou je, ze byvaly sef chce jednou pro vzdy odstrihnout autora
programu od zdroje "budoucich" prijmu. Jinak se neda pozadavek na odkoupeni
zdrojovych kodu, v tomto pripade, chapat. Taky mu preci mohl nabidnout
nejakou formu servisni podpory a tim staly zdroj urciteho prijmu.
Proto bych se nebal nasadit i vyssi castku za ty zdrojaky. Nejake hodnoty uz
tu padly a tech cca 500 Kc za hodinu rozhodne neni moc (ze pratele v Praze a
okoli). At si to ten byvaly sef zvazi. Jednorazova vyssi odmena nebo trvaly
nizsi vydaj za servis.
Hovorim z vlastni zkusenosti a v mem pripade doslo nakonec k dohode o
servisni cinnosti.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Calcul - kto napise interpreter
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.5.2002 22:22:19
> Hladam niekoho kto by napisal maly interpreter v Delphi
http://www.carlo-kok.com/projects.php
Interpretr Delphi like Pascalu zdarma a free. Verze 3 i s predkompilaci.
D. Toman
Calcul - kto napise interpreter
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 11.5.2002 00:37:23
Zial to nie je ono - ja potrebujem upne malicky a jednoduchy interpreter.
Musi to byt malicky object.
-----Original Message-----
From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
Sent: Friday, May 10, 2002 10:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Calcul - kto napise interpreter > Hladam niekoho kto by napisal maly interpreter v Delphi
http://www.carlo-kok.com/projects.php
Interpretr Delphi like Pascalu zdarma a free. Verze 3 i s predkompilaci.
D. Toman
Synapse aktivne spojenie
[*] Michal Bilcik <tou(zv)host.sk> - 11.5.2002 11:13:45
Nazdar,
Synapse, unita HTTPsend:
Ako zistim ze poziadavka HTTP.HTTPMethod('GET', ...); je
aktivna a este neskoncila ? Ide mi o to aby som nevolal dalsie GET
pokial prve neskoncilo.
--
S pozdravom,
Michal Bilcik
NMHTTP metoda POST
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.5.2002 11:21:22
> Nevite nekdo prosim v jakem tvaru se odesilaji data pomoci metody
> post?
Z hlediska HTP protokolu v naprosto libovolnem. Pokud ovsem chces,
aby tomu webovy server porozumnel jako napriklad datum z HTML
fomulare ci jako upload souboru, musis pochopitelne nejaky ten format
odrzet. Ale i tak tam existuje nekolik formatu.
Nejlepsi bude, kdyuz se mrknes na httpsend.pas z me Synapse, kde je
to pomerne hezky videt, pripadne se podivat i na html demo tamtez.
;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
D5 - TMediaPlayer a nahravani pres mikrofon
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 11.5.2002 11:53:07
Ahoj, jeste jednou otravuji s tim WAVem. Koukal jsem se do archivu, ale
nejak jsem nic neobjevil. Nemohl bys prosim poslat nejakou ukazku?
Predem diky
Mirek Drancak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Ing. Lud�k Florian
Sent: Friday, May 10, 2002 7:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: D5 - TMediaPlayer a nahravani pres mikrofon
Cauec,
> Ahoj, udelal potreboval bych udelat aplikaci, kter� v predem urceny
cas
> zacne nahravat pres mikrofon do WAV. Zkousel jsem to, ale presto, ze
to
> nehodi zadnou chybu a tvari se jako ze nahrava, nic se nedeje.
Musis vytvorit prazdny WAV soubor s hlavickou. Pak jej otevres a
nahravas.
Nic vic.
Jak vytvorit WAV soubor jsem do konference posilal 1.12.1999
Bye Ludan
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Synapse aktivne spojenie
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.5.2002 16:15:06
> Synapse, unita HTTPsend:
> Ako zistim ze poziadavka HTTP.HTTPMethod('GET', ...); je
> aktivna a este neskoncila ? Ide mi o to aby som nevolal dalsie GET
> pokial prve neskoncilo.
Dokud to neskonci, tak se ti to z te metody nevrati. Volani
HTTPmethod zacne provadet danou operaci, dokonci ji, a az po
dokonceni pokracuje tvuj program dalsim prikazem.
Tedy vzdy mas jistotu, ze operace nejak dobehla.
Pokud naopak potrebujes provadet vice dotazu skutecne najednou, musis
je pustit v samostatnych threadech.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
DLL - predavani hodnot
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 11.5.2002 19:17:26
I s pouzitim spolecneho runtime balicku pro oba moduly?
Ja jinou moznost neznam.
Jakub Dusek
From: "Jiri Sedivec" <jsedivec(zv)mail(tec)cz>
Subject: Re: DLL - predavani hodnot
> To ja vsechno tohle vim a pouzil jsem to (nemusite zduraznovat ze se to uz
> zde probiralo),
> ale i "preze" vsechno mi to stale hlasilo chybu "Invalid ..." - cekal
jsem,
> ze se tu dozvim
> nejakou dalsi moznost ...
> Jiri
>
>
Komponenta Zipmaster
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 12.5.2002 00:25:09
Zdravim
Potreboval bych trochu popostrcit.
Pouzivam komponentu Zipmaster 1.52M a nejak se mi nedari nastavit velikost
vysledneho archivu, respektive jeho rozdelovani na pozadovanou velikost.
Prolezl jsem pribalena dema 1 az 6, ale stale se nedari.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Spo�i�
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 12.5.2002 06:20:27
> Od: Ondrej Skipala [SMTP:OSkip(zv)seznam(tec)cz]
>
> Cau. Nevite jak to udelat aby se pri behu meho programu nespoustel
> sporic? Dik za
>
>
Myslim, ze nikdo neodpovedel; takhle jsem to videl v programech Aleqa:
private
{ Private declarations }
//puvodni nastaveni setrice obrazovky
FScreenSaver : Boolean;
//puvodni nastaveni Power-off
FPowerOff : Boolean;
//puvodni nastaveni Power-off timeoutu
FPowerOffTimeOut : Cardinal;
//puvodni nastaveni nizkonapetove setreni obrazovky
FLowPowerActive : Boolean;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)FScreenSaver, 0);
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Cardinal(False), nil,
SPIF_SENDCHANGE);
SystemParametersInfo(SPI_GETPOWEROFFACTIVE, 0, (zv)FPowerOff, 0);
SystemParametersInfo(SPI_SETPOWEROFFACTIVE, Cardinal(False), nil,
SPIF_SENDCHANGE);
SystemParametersInfo(SPI_GETPOWEROFFTIMEOUT, 0, (zv)FPowerOffTimeOut, 0);
SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, 0, nil, 0);
SystemParametersInfo(SPI_GETLOWPOWERACTIVE, 0, (zv)FLowPowerActive, 0);
SystemParametersInfo(SPI_SETLOWPOWERACTIVE, Cardinal(False), nil,
SPIF_SENDCHANGE);
...
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
//obnovit Screen-saver
if FScreenSaver then
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Cardinal(FScreenSaver),
nil, SPIF_SENDCHANGE);
//obnovit Power-off
if FPowerOff then
SystemParametersInfo(SPI_SETPOWEROFFACTIVE, Cardinal(FPowerOff), nil,
SPIF_SENDCHANGE);
//obnovit Power-off timeout
if FPowerOffTimeOut>0 then
SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, FPowerOffTimeOut, nil, 0);
//obnovit Low power active
if FLowPowerActive then
SystemParametersInfo(SPI_SETLOWPOWERACTIVE, Cardinal(FLowPowerActive),
nil, SPIF_SENDCHANGE);
...
end;
Ober
sirka textu - ne Canvas.TextWidth
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 12.5.2002 06:33:32
Vite nekdo, jak zjistit sirku nejakeho formatovaneho textu jinym zpusobem
nez pres Canvas.TextWidth? Potreboval bych to totiz urcit pomoci konsolove
aplikace.
Diky
Ober
D5 - TMediaPlayer a nahravani pres mikrofon
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 12.5.2002 09:07:52
Cauec,
> Ahoj, jeste jednou otravuji s tim WAVem. Koukal jsem se do archivu, ale
> nejak jsem nic neobjevil. Nemohl bys prosim poslat nejakou ukazku?
Tak tady to mas:
Bye Ludan
(***********************
***********************************************************)
type RRIFFHeader = record // hlavi�ka RIFF souboru
ID_RIFF : array[1..4] of char; // "RIFF" doplnit "RIFF"
LenFile : longint; // LenFile + 8 = d�lka souboru
vypo��t� se
ID_WAVE : array[1..4] of char; // "WAVE" doplnit "WAVE"
end;
RfmtBlock = record // struktura bloku "fmt " doplnit
"fmt"
Format : word; // PCM, ... doplnit "1"
Channels : word; // po�et kan�l� doplnit "1"
SamplingRate : longint; // vzorkovac� kmito�et doplnit
"11025"
BytesPerSec : longint; // byt� / sec doplnit "11025"
Reserved : word; // nepou�ito doplnit "1"
BitsPerSample : word; // rozli�en� bit/sample doplnit "8"
end;
RIDBlock = record // struktura bloku informac�
IDString : array[1..4] of char; // typ informace
LenBlock : longint; // d�lka informace
end;
// Funkce vytvo�� nov� WAV soubor podle specifikace
procedure CreateWAVE(AName: string; AWave: integer);
var FileHandle: integer; // handle c�lov�ho souboru
RIFFHeader: RRIFFHeader; // z�znam hlavi�ky "RIFF"
LfmtBlock : RIDBlock; // z�znam d�lky bloku "fmt "
fmtBlock : RfmtBlock; // z�znam struktury "fmt "
LdataBlock: RIDBlock; // z�znam d�lky bloku "data"
begin
// Funkce se nevykon� v p��padech, kdy:
// - je zad�n nezn�m� parametr zvukov�ho form�tu
// - existuje soubor zadan�ho jm�na, kter� nelze smazat
// Kontrola spr�vn�ho parametru
if (AWave <> WAVE_FORMAT_1M08) AND (AWave <> WAVE_FORMAT_1M16) AND
(AWave <> WAVE_FORMAT_1S08) AND (AWave <> WAVE_FORMAT_1S16) AND
(AWave <> WAVE_FORMAT_2M08) AND (AWave <> WAVE_FORMAT_2M16) AND
(AWave <> WAVE_FORMAT_2S08) AND (AWave <> WAVE_FORMAT_2S16) AND
(AWave <> WAVE_FORMAT_4M08) AND (AWave <> WAVE_FORMAT_4M16) AND
(AWave <> WAVE_FORMAT_4S08) AND (AWave <> WAVE_FORMAT_4S16) then
Exit;
// P��prava dat souboru p�ed vlastn�m z�pisem
with RIFFHeader do begin // hlavi�ka souboru
ID_RIFF := 'RIFF';
LenFile := 36;
ID_WAVE := 'WAVE';
end;
with LfmtBlock do begin // struktura n�sleduj�c�ho bloku
IDString := 'fmt ';
LenBlock := 16;
end;
with fmtBlock do begin // struktura souboru
Format := WAVE_FORMAT_PCM;
case AWave of
WAVE_FORMAT_1M06,
WAVE_FORMAT_1M08,
WAVE_FORMAT_1M16,
WAVE_FORMAT_2M08,
WAVE_FORMAT_2M16,
WAVE_FORMAT_4M08,
WAVE_FORMAT_4M16: Channels := 1; // po�adovan� typ MONO
else Channels := 2; // po�adovan� typ STEREO
end;
case AWave of
WAVE_FORMAT_1M08,
WAVE_FORMAT_1M16,
WAVE_FORMAT_1S08, // kmito�et z�znamu
WAVE_FORMAT_1S16: SamplingRate := 11025;
WAVE_FORMAT_2M08,
WAVE_FORMAT_2M16,
WAVE_FORMAT_2S08,
WAVE_FORMAT_2S16: SamplingRate := 22050;
WAVE_FORMAT_4M08,
WAVE_FORMAT_4M16,
WAVE_FORMAT_4S08,
WAVE_FORMAT_4S16: SamplingRate := 44100;
end;
BytesPerSec := SamplingRate * Channels;
Reserved := Channels;
case AWave of
WAVE_FORMAT_1M06,
WAVE_FORMAT_1S06,
WAVE_FORMAT_1M08,
WAVE_FORMAT_1S08,
WAVE_FORMAT_2M08,
WAVE_FORMAT_2S08,
WAVE_FORMAT_4M08,
WAVE_FORMAT_4S08: BitsPerSample := 8;
else BitsPerSample := 16;
end;
end; // konec fmt bloku
with LdataBlock do begin // struktura datov�ho bloku
IDString := 'data';
LenBlock := 0;
end; // Otev�en� c�lov�ho souboru pro z�pis ve form�tu Win32
FileHandle := FileCreate(AName);
if FileHandle < 0 then // chyba p�i otev�r�n� souboru ?
Exit;
// p�epis dat do souboru
FileWrite(FileHandle, RIFFHeader, SizeOf(RIFFHeader));
FileWrite(FileHandle, LfmtBlock, SizeOf(LfmtBlock));
FileWrite(FileHandle, fmtBlock, SizeOf(fmtBlock));
FileWrite(FileHandle, LdataBlock, SizeOf(LdataBlock));
FileClose(FileHandle); // uzav��t soubor
end;(***********************
***********************************************************)TOLEServer ukonceni
[*] Marek Soukup <marek(zv)b-worlds.de> - 12.5.2002 13:39:53
Zdravim,
zatim jsem se s dotazy na OLE server moc nechytl, ale jeste par pokusu.
Hodim si na formular komponentu TWordApplication a pak genruju nejaky
dokument a rad bych to pri ukonceni formulare nejak korektne uzavrel.
Bohuzel se mi to nedari, tak jak bych chtel.
Zkousel jsem pri ukonceni formulare volat TWordApplication.Quit, ale zarve
to hlasku Metoda nebo vlastnost neni k dispozici. Pokud to ale neuzavru tak
prece zustane ten Word spustenej (je i v seznamu procesu).
Zkousel jsem volat TWordApplication.Free, ale to imho uvolnim uplne celou tu
komponentu a ne ten server ne ?
S pozdravem
Marek Soukup
OT Re: Co chtit za zdrojove kody?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 12.5.2002 13:58:39
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> Ahoj
> no tak to mi vychodi podla mojho calc.exe 150 000,-CK
> co je cca 4920 EUR co je takmer polrocny plat
> vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> samozrejme). :-(
> Nemalo by sa to hodnotit aj trochu podla
> kvality a vyuzitelnosti toho kodu?
> Len sa pytam.:-)
> P
>
Ahoj.
Ano, z pohledu koncoveho zakaznika je to tak.
V mem pripade to bylo "najmuti" programatora na napsani urciteho konkretniho
SW a dodani vcetne zdrojovych kodu.
Riziko "prodejnosti" aplikace bylo samozrejme zcela na bedrech investora,
protoze on byl ve sve podstate autorem, ktery na realizaci sveho zameru
najal programatora a tomu v tomhle pripade bylo zcela jedno jestli se SW
bude nebo nebude a za kolik prodavat.
Co se tyce poznamek o tom, ze tyhle prace casto obsahuji jiz drive napsane
kusy kodu. To je pravda a bylo to osetreno tim, ze byl dohodnut urcity
minimalni objem praci, ktery byl pro programatora zajimavy a byl v tomto
pripade ochoten tohle vsecho poskytnout.
Takze investor koupil Delphi a par pouzitych placenych komponent, zaplatil
za zdrojove kody programatorovi a ma ted plnou kontrolu nad vyvojem
aplikace.
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.342 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
WinXP a LPT
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 12.5.2002 17:32:38
Zdravim
Mam winXP a na LPT portu mam pripojeny LCD displej. Sice jsem uz stokrat
slysel, ze NT me na LPT nepusti, ale presto se ptam znovu. Slysem jsem, ze
pry by se na to musel napsat nejaky driver. Nenapsal ho uz nahodou nekdo? Na
pristupu k LPT portu zavisi hodne veci.
Diky vsem
Zdenek
odposlouchavani COM portu
[*] Zdenek Delphi <dkonf(zv)seznam(tec)cz> - 12.5.2002 18:04:28
Ahoj,
nutne potrebuju zjistit, co jisty program posila na seriovy port. Da
se ten COM nejak SW odposlouchavat? Existuje program ktery to umi,
tedy aby byl napr. schopen do souboru ukladat vse, co na ten port
prijde?
Diky za kazde nasmerovani, docela to hori.
Zdenek
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
caption a unicode
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 12.5.2002 18:16:48
Zdravim
Lze nejakym zpusobem zobrazit v captionu znaky unicode? Vybrany znak sice
zkopiruju, ale vysledek po vlozeni je tento:
hcbutton1.caption := '?';
WinXP + D5
Diky
Zdenek
TOLEServer ukonceni
[*] P�emysl Neuman <p.neuman(zv)sh.cvut(tec)cz> - 12.5.2002 18:39:35
co treba
wordapplication1.Quit; wordapplication1.Disconnect;
zdravi
P�emysl Neuman
Product and development specialist and consultant
Neuman & Resler s.r.o.
Office:
Kejzlarova 1677
Hradec Kr�lov� 12
500 02
Tel./fax.: +420 49 527 11 00 - 3
email: neuman(zv)neuman-resler(tec)cz
mobil: +420 603 143660
http://www.neuman-resler(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Marek Soukup
Sent: Sunday, May 12, 2002 1:40 PM
To: Konference Delphi
Subject: TOLEServer ukonceni
Zdravim,
zatim jsem se s dotazy na OLE server moc nechytl, ale jeste par pokusu.
Hodim si na formular komponentu TWordApplication a pak genruju nejaky
dokument a rad bych to pri ukonceni formulare nejak korektne uzavrel.
Bohuzel se mi to nedari, tak jak bych chtel.
Zkousel jsem pri ukonceni formulare volat TWordApplication.Quit, ale zarve
to hlasku Metoda nebo vlastnost neni k dispozici. Pokud to ale neuzavru tak
prece zustane ten Word spustenej (je i v seznamu procesu).
Zkousel jsem volat TWordApplication.Free, ale to imho uvolnim uplne celou tu
komponentu a ne ten server ne ?
S pozdravem
Marek Soukup
odposlouchavani COM portu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 12.5.2002 22:21:34
----- Original Message -----
From: "Zdenek Delphi" <dkonf(zv)seznam(tec)cz>
Ahoj,
nutne potrebuju zjistit, co jisty program posila na seriovy port. Da
se ten COM nejak SW odposlouchavat? Existuje program ktery to umi,
tedy aby byl napr. schopen do souboru ukladat vse, co na ten port
prijde?
************
Ahoj
Zkus http://www.papouch.com/ , neco podobneho jsem tam kdysi videl.
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.342 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
Chyba v IDPDX32.DLL
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 12.5.2002 22:26:45
Ahoj,
nevite nahodou jak predejit hlasce:
"Access violation at address 4CE00D48 in module 'IDPDX32.DLL'. Read of
address FFFFFFFF."
Potkavam to na Win98 (W95 nevim; NT4, W2k ne) pri listovani DBGridem.
Nic (viditelneho) se nestane, ale otravuje to...
Miroslav Novosad
mirnov(zv)atlas(tec)cz
WinXP a LPT
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 12.5.2002 23:47:58
Hello Zdenek,
Sunday, May 12, 2002, 5:32:38 PM, you wrote:
ZS> Zdravim
ZS> Mam winXP a na LPT portu mam pripojeny LCD displej. Sice jsem uz stokrat
ZS> slysel, ze NT me na LPT nepusti, ale presto se ptam znovu. Slysem jsem, ze
ZS> pry by se na to musel napsat nejaky driver. Nenapsal ho uz nahodou nekdo? Na
ZS> pristupu k LPT portu zavisi hodne veci.
ZS> Diky vsem
ZS> Zdenek
Jojo, existuje. Myslim, ze se to jmenuje SmallPort a je odzkouseny, ze
to facha i na XP. Jinak take muzu doporucit moji stranku, zabyvajici
se LCDckama na LPT - http://jimix.ic(tec)cz/LCD/ ... tam je i odkaz na tu
komponentu + driver ... a jinak zkus hledat na torry.net
--
Best regards,
Martin mailto:pesavova(zv)dkm(tec)cz
caption a unicode
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.5.2002 05:36:13
Primo ne.
Bylo by treba to prevest z Unicode do Ansi a to pak zobrazit.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.5.2002 Zdenek Stepanek:
> Zdravim
> Lze nejakym zpusobem zobrazit v captionu znaky unicode? Vybrany znak sice
> zkopiruju, ale vysledek po vlozeni je tento:
> hcbutton1.caption := '?';
OT Re: Co chtit za zdrojove kody?
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 13.5.2002 05:59:39
No, kdyz uz ste to nakousli, tak ja delam za 8.000,- Kc brutto a sem rad, ze
mi zamestnavatel dava aspon to ....
Rumcajs
> Puvodni zprava, kterou napsal Peter Surovy dne 10 May 2002:
>
> > co je cca 4920 EUR co je takmer polrocny plat
> > vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> > samozrejme). :-(
>
> No teda nejsem odbornikem na EU, ale nejak se mi to nezda. Nespletl sis
> vysokoskolsky vzdelaneho programatora s uklizeckou na vysoke skole? :-)
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
caption a unicode
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 13.5.2002 08:06:18
On 13 May 2002 at 5:36, ing. Jan Fiala wrote:
> Primo ne.
> Bylo by treba to prevest z Unicode do Ansi a to pak zobrazit.
Doplnil bych to takto: se standardnimi komponentami to nelze. Ve
WinNT a vyse lze napsat primo nativni komponenty s podporou unicode,
ale nebude to fungovat v rade W95 a vyse. Nebo je mozne napsat
vlastni komponentu od zakladu, aby to fungovalo i na W95 (par funkci
pro unicode prece jen W95 podporuji), ale je to piplacka.
> 12.5.2002 Zdenek Stepanek:
> > Zdravim
>
> > Lze nejakym zpusobem zobrazit v captionu znaky unicode? Vybrany znak
> > sice zkopiruju, ale vysledek po vlozeni je tento:
>
> > hcbutton1.caption := '?';
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
odposlouchavani COM portu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 13.5.2002 08:29:40
> nutne potrebuju zjistit, co jisty program posila na seriovy port. Da
> se ten COM nejak SW odposlouchavat? Existuje program ktery to umi,
> tedy aby byl napr. schopen do souboru ukladat vse, co na ten port
> prijde?
Portmon od http://www.sysinternals.com
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Komponenta Zipmaster
[*] <kuchar(zv)unicodesys(tec)cz> - 13.5.2002 08:37:48
cau,
nepamatuju si to celkem presne uz jsem s ni dlouho nedelal, ale pokud vim
tak musis este pred zacatkem komprimace nastavit
parametr options a maxvolumesize na prislusnou velikost, doufam ze se
nepletu
>disketa:=1440000;
>zipmaster1.AddOptions:=zipmaster1.AddOptions+[adddiskspan];
>zipmaster1.MaxVolumeSize:=disketa;
GetProcAddress a spusteni funkce
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 13.5.2002 08:57:37
D6 Professional SP 2, JCL 1.20, WinXP Professional
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> > No v .dpr volam metodu CheckSingleInstance a pokud program
> spustim v IDE tak
> > ho mohu klidne spustit jeste jednou mimo IDE. Ale v pripade, ze spoustim
> > program uplne mimo IDE tak to chodi tzn. spusti se skutecne
> pouze jednou.
>
> Jaka verze JCL, Delphi a OS ?
> Petr Vones
OT Re: Co chtit za zdrojove kody?
[*] Milos Hernych <milos.hernych(zv)vslib(tec)cz> - 13.5.2002 08:59:09
> Ahoj
> mam kamarata robi v softwarovej firme
> programuje v Jave robi na plny uvazok
> a jeho cisty mesacny prijem je 850 EUR
> co je za polroka 5100EUR.
> Mozno je to najmensi mozny plat,
> ale zas az tak som neprestrelil. ;-)
> P
U nemeckych "zelenych karet" pro programatory byla podminka, aby rocni plat,
ktery nemecka firma nabidne, byl minimalne 100.000DEM, tedy cca 50.000EUR -
i kdyby to bylo brutto, je to stale nekolikrat vice, nez vyse uvadeny
priklad. Proto predpokladam, ze se jedna o cloveka z nejake "rozvojove" zeme
EU....
Jinak je samozrejme otazkou efektivita programatora, nekdo stravi 10h nad
necim, co jiny odladi za 10minut. Proto bych zvazil "uzitecnost" a "kvalitu"
aplikace a pri odhadu ceny byl dostatecne sebevedomy.
M.H.
Pole komponent
[*] Robert Suska <delphi(zv)korak.sk> - 13.5.2002 09:11:15
Ahojte!
Vopred sa chcem ospravedlnit ze sa na to pytam este raz ale omylom som si
zmazal postu a prisiel som o odpoved na tuto otazku a ked som chcel ist
teraz na www.delphi(tec)cz tak som sa tam nedostal kvoli datam z konfery. Takze
este raz. Ako zistim ktore komponenty mam na forme pocas spusteneho
programu. Potrebujem proste pole komponent. Ze pekne v cykle zistim o nich
"vsetko". A zapisem do nejakeho filesu.
Dakujem
S pozdravom Robo
WinXP a LPT
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 13.5.2002 09:17:53
Pouzival jsem pro to same zarizeni nejaky drivery na primej pristup k lpt a com pod w2k a xp. Ted si nevzpominam ani na jmeno ale doma to mam urcite tak jestli chces zaslu na soukr. email.
Pokud ti ten displey bezi pres HD17440 (nebo takovej nejakej, no standart) muzu poskytnout i kusy kodu pro komunikaci a vypis dat na lcd. Take jsem za timto ucelem naprogramoval komponentu, ktera simuluje tento lcd na obrazovce, I kdyz to jeste neni finalni verze. (pouzivam display 16*4 :-) )
Tomas Emresz
-----Original Message-----
From: Zdenek Stepanek [mailto:zstepanek(zv)atlas(tec)cz]
Sent: Sunday, May 12, 2002 5:33 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: WinXP a LPT
Zdravim
Mam winXP a na LPT portu mam pripojeny LCD displej. Sice jsem uz stokrat slysel, ze NT me na LPT nepusti, ale presto se ptam znovu. Slysem jsem, ze pry by se na to musel napsat nejaky driver. Nenapsal ho uz nahodou nekdo? Na pristupu k LPT portu zavisi hodne veci.
Diky vsem
Zdenek
TMemo a Scrolovani
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 13.5.2002 09:20:09
Servus ve spolek,
potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
radek. At delam co delam, vzdy se to prescroluje na zacatek.
Rumcajs
OT Re: Co chtit za zdrojove kody? + nabidka (ponuk
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 13.5.2002 09:22:42
Vzhladom k tomu ma napada, ze :
hladame cloveka, ktory by sa stal spravcom IS. Zo zaciatku pevna pracovna
doba.8 -16:30, pracovisko Praha 4, Plat 20-25 000. ,
moznost karierneho postupu, a dalsie ....
Ulohou je starat sa o uzivatelov vnutropodnikoveho IS (Dobra znalost
Windows), spravovat IS (moc roboty tam asi nebude), spravovat Linux (bohate
stacia zakladne znalosti Linuxu)
Ocakavame ze spravcovskej prace bude s casom ubudat, takze sa clovek
postupne preskoli na programatora v Delphi a SQL. Samozrejme i so zmenou
financnych a pracovnych podmienok.
Odpovede na sukr. mail.
Pavol Kakacka
vedouci vyvoje IS
ProCA spol. s r.o.
tel.: 02-672 83 443
kakacka(zv)proca(tec)cz
www.proca(tec)cz
www.brave(tec)cz
----- Original Message -----
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> No, kdyz uz ste to nakousli, tak ja delam za 8.000,- Kc brutto a sem rad,
ze
> mi zamestnavatel dava aspon to ....
> Rumcajs
>
>
> > Puvodni zprava, kterou napsal Peter Surovy dne 10 May 2002:
> >
> > > co je cca 4920 EUR co je takmer polrocny plat
> > > vysokolsky vzdelaneho programatora v EU (zavisi od krajiny a firmy
> > > samozrejme). :-(
> >
> > No teda nejsem odbornikem na EU, ale nejak se mi to nezda. Nespletl sis
> > vysokoskolsky vzdelaneho programatora s uklizeckou na vysoke skole? :-)
ANN:Aktualizace komponent
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.5.2002 09:40:04
Ahoj
dovolim si malou annonci na moje stranky http://www.micrel(tec)cz/delphi/ kde jsou soustredeny nejake moje drobnosti pro Delphi.
Aktualizovano jest:
-knihovna pro praci s retezci jbSTR
-knihovna editacnich komponent TPubEditXXX (alignment,hint-line-too-long,empty-mask-required,atp.)
-komponent pro praci s DBF bez BDE (pres souborovy system pro D1 az D6)
-novy komponent Label3D
-aktualizovan� knihovna pro Zip/Unzip
-aktualizovany komponent Progman
a mozna nektere dalsi, na ktere jsem ale uz zapomnel.
Mate-li nejake pripominky, namety nebo si myslite, ze je teba neco zmenit (k lepsimu :) ) tak mi napiste na muj soukromy mail.
Diky
Jaro B.
TMemo a Scrolovani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.5.2002 09:41:02
Podivej se na SelStart
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
13.5.2002 Rumcajs:
> Servus ve spolek,
> potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
> radek. At delam co delam, vzdy se to prescroluje na zacatek.
> Rumcajs
TMemo a Scrolovani
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 13.5.2002 09:42:24
To mi posune kurzor, ale neprescroluje .....
Rumcajs
> Podivej se na SelStart
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 13.5.2002 Rumcajs:
> > Servus ve spolek,
> > potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
> > radek. At delam co delam, vzdy se to prescroluje na zacatek.
> > Rumcajs
>
>
>
GetNextPacket v MIDASe
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 13.5.2002 09:43:36
Nazdar,
Nemam s MIDAS - om takmer ziadne skusenosti a pri vytvarani malej testovacej
aplikacie som narazil na problem
(je tu toho popisane dost tak dufam ze vas to neodradi od citania)
mam jednoduchu testovaciu aplikaciu
Client :
2 x grid
2 x datasource
2 x ClientDataset
1 x socketconnection
Aplik server:
2 x AdoConnection
2 x Dataset
2 x DatasetProvider
mam vlastne dva gridy na zobrazovanie vysledkov 2-och roznych selectov z
DB(MSSQL2000)
na strane aplikSrv mam 2 funkcie:
function DajSelect1
Dataset1.Close;
Dataset1.CommandText := 'select * from nieco';
Dataset1.open;
(Dataset1 Obsahuje cca 20000 zaznamov)
function Dajselect2
Dataset2.Close;
Dataset2.CommandText := 'select * from nieco';
Dataset2.open;
(Dataset2 Obsahuje cca 1000 zaznamov)
Kazda funkcia urobi iba to ze posle poziadavku na dbserver, otvori dataset a
caka kym si klient zacne tahat data.
na strane klienta po zavolani funkcie
DajSelect1:
Spustim Thread (ktory otvori dateset (CDS1.open) a zacne taha data po
paketoch - CDS1.GetNextPacket (CDS1.PacketRecords = 200))
DajSelect2
Cds2.Open; (dotiahne data na 1 krat)
No a problem je ...
Niekedy (nezistil som ziadnu pravidelnost) pri zavolani GetNextPacket
dostanem chybovu spravu "Invalid data packet"
co vypada ako keby Clientdataset1 dotiahol data pre ClientDataset2 (nakolko
jeden taha vo vlakne GetnextPacket a druhy prave robi open).
NO a potom este dostanem hlasku: "Error reading from socket"
Prosim o "POMOC". Kde robim chybu (chyby)???
Miro.
OT Re: Co chtit za zdrojove kody?
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 13.5.2002 09:50:43
Ahoj,
domnivam se tato rozprava se stava jiz ponekud "sirokou", ale presto se taky
pridam:
Uvahy o CENE zdrojovych kodu zavisi zejmena na skutecnosti zda se daji
prodat a kolik je za ne kupec ochoten dat (jako u kazdeho jineho zbozi)!
Vetsina prispevku nehovori o cene, ale o moznych zpusobech kalkulaci casti
nakladu na tzv. "znovuporizeni" programu (= zdrojovych kodu).
V trznim prostredi plati:
-------------------------
Pokud aplikace prinasi usporu (zisk) X1 [Kc], jeji zivotnost je Y roku, tak
cena zdrojovych kodu, bez ohledu na naklady na jejich vytvoreni je maximalne
= X1*Y !!!!(prakticky by bylo nutno jeste diskontovat uspory (zisk) za
jednotlive roky k datu platby).
Vyssi cenu da jen blazen nebo ten, kdo je pod tlakem (musi mit aplikaci
drive nez je ji schopen vytvorit znovu od pocatku).
Doporucuji z teto uvahy vychazet.
Dalsi uvahou je, zda je mozno tyto kody prodat vicekrat nebo vubec nekde
jinde (neco jako vrabec v hrsti a holub....).
S pozdravem Pavel
> From: Milos Hernych [mailto:milos.hernych(zv)vslib(tec)cz]
> > Ahoj
> > mam kamarata robi v softwarovej firme
> > programuje v Jave robi na plny uvazok
> > a jeho cisty mesacny prijem je 850 EUR
> > co je za polroka 5100EUR.
> > Mozno je to najmensi mozny plat,
> > ale zas az tak som neprestrelil. ;-)
> > P
>
> U nemeckych "zelenych karet" pro programatory byla podminka,
> aby rocni plat,
> ktery nemecka firma nabidne, byl minimalne 100.000DEM, tedy
> cca 50.000EUR -
> i kdyby to bylo brutto, je to stale nekolikrat vice, nez vyse uvadeny
> priklad. Proto predpokladam, ze se jedna o cloveka z nejake
> "rozvojove" zeme
> EU....
>
> Jinak je samozrejme otazkou efektivita programatora, nekdo
> stravi 10h nad
> necim, co jiny odladi za 10minut. Proto bych zvazil
> "uzitecnost" a "kvalitu"
> aplikace a pri odhadu ceny byl dostatecne sebevedomy.
>
> M.H.
>
Podivne chovani Try Except, Try Finally
[*] Karel Cibulka <KCibulka(zv)seznam(tec)cz> - 13.5.2002 10:00:25
Ahoj,
mozna jsi narazil na nejaky skryty problem v kompilatoru Delphi, ja
bych zkusil tuhle konstrukci vykrokovat v nejakem Debugeru (treba
Delphi, ty aspon ukazou, ze doslo k nejake vyjimce). Pak bych zkusil
jeste jinou vec, volani procedury, ktera takhle nefunguje bych zavrel
do nasledujiciho kodu:
try
TestovaciProcedura;
except
on E: Exception do ShowMessage('Doslo k chybe: '+E.Message);
end;
pokud opravdu ukoncovani te procedury zpusobuje generovani nejakeho
exceptionu, tak by ti ho vyse uvedena konstrukce mela ukazat.
Posledni sanci by bylo podivat se pri ladeni v debuggeru na ASM kod a
v nem zkusit ladit, pak je sance, ze clovek odhali, v cem je problem.
K.C.
PS: prvni try..except jak je napsano zpracuje vsechny vyjimky a
uzavreni do try..finaly je pak naprosto zbytecne, spise bych to psal
obracene (tj. try..finaly vnorene do try..except).
PS2: Pokud ve finaly vznikne vyjimka (treba Reg.Free neprojde), pak
uz se to do toho nasledujiciho try..except nedostane a procedura se
predcasne ukonci...
PS3: Jeste me napadla jedna logicka chyba tveho kodu, std. se pise
toto:
Reg := TRegistry.Create
try
...
finaly
...
Reg.Free;
end;
tahle konstrukce zarucuje volani Reg.Free pouze tehdy, pokud nedoslo
k chybe ihned v TRegistry.Create a Reg tedy obsahuje korektne
vytvoreny objekt (pokud k chybe doslo tak dle definice Delphi je
castecne vytvoreny objekt korektne zrusen automaticky jiz kodem
konstruujicim objekt). Ty to mas napsano jinak, finaly se provadi u
tebe vzdy - i tehdy pokud se nepovede TRegistry.Create, pak je
hodnota Reg NEDEFINOVANA a Reg.Free vetsinou zkolabuje!
> ale ono k vyjince nedojde zkousel jsem toto
>
> try
> Reg := TRegistry.Create;
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
> finaly
> ShowMessage('Reg.Free');
> Reg.Free;
> end;
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
>
>
> ukaze se message OK ukaze se RegFree a dal nic proc kod nedojede dal??
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
WinXP a LPT
[*] Delphin <delphin(zv)post(tec)cz> - 13.5.2002 10:04:35
zkus treba
http://www.hw(tec)cz/software/userport/userport.html
Delphin
----- Original Message -----
From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, May 12, 2002 5:32 PM
Subject: WinXP a LPT
> Zdravim
>
> Mam winXP a na LPT portu mam pripojeny LCD displej. Sice jsem uz stokrat
> slysel, ze NT me na LPT nepusti, ale presto se ptam znovu. Slysem jsem, ze
> pry by se na to musel napsat nejaky driver. Nenapsal ho uz nahodou nekdo?
Na
> pristupu k LPT portu zavisi hodne veci.
>
> Diky vsem
> Zdenek
>
>
>
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 13.5.2002 10:08:33
try
TestovaciProcedura;
except
on E: Exception do ShowMessage('Doslo k chybe: '+E.Message);
end;
diky dobrej napad.
> try
> Reg := TRegistry.Create;
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
> finaly
> ShowMessage('Reg.Free');
> Reg.Free;
> end;
sleep(100);
> try
> ShowMessage('OK');
> except
> ShowMessage('Error');
> end;
tady jsem se uklep takze se omlouvam. Nicmene problem trva a jde asi opravdu
o chybu pri kompilaci pokud do kodu pridam sleep tak se dalsi kod vykona
ovsem pokud tam sleep neni tak se procedura bez zjevneho duvodu predcasne
ukonci.
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
TMemo a Scrolovani
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.5.2002 10:23:16
Takto, taky jsem na to narazil. Dulezite je to SendMessage
with FLogView do
begin
Lines.BeginUpdate;
try
while Lines.Count > FMaxMemoLines do
Lines.Delete(0);
Lines.Add(S);
finally
Lines.EndUpdate;
end;
// bez tohoto se po EndUpdate nenaroluje na konec okna
SendMessage(Handle, EM_SCROLLCARET, 0, 0);
end;
Rumcajs wrote:
>
> Servus ve spolek,
> potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
> radek. At delam co delam, vzdy se to prescroluje na zacatek.
> Rumcajs
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Ikona aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.5.2002 10:51:15
Preji vsem pekneho dne,
mam D5E SP1 a nasledujici problem: v Project options natahnu z disku
ikonku (soubor ICO), ve kterem jsou dva obrazky - maly a velky. Vse
ok, funguje to tak, jak ma. Pokud ovsem provedu nasledujici prikaz:
Application.Icon.LoadFromFile ('tensamysoubor');
pak to funguje spatne. V titulkovem pruhu je zmenseny velky obrazek z
ikony a nikoliv maly, ktery tam ma byt.
V cem muze byt problem?
Diku za kazde info
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TDateTime
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 13.5.2002 11:21:29
Malinko bych te opravil: 0 v TDateTime znamena opravdu datum 30.12.1899, ale
ve 12:00:00 hod. (poledne)
Martin Ben
> -----Original Message-----
> From: Tomas Rosa [mailto:trosa(zv)seznam(tec)cz]
>
> >Ale kdyz si ji dam vypsat napr. takhle:
> >ShowMessage(DatetimeToStr(Pokus.Datum));
> >dostanu vysledek '30.12.1899'
>
> nula ve formatu TDateTime (nebo TDate) je opravdu datum 30.12.1899
> 23:59:59.9999999 to je spravne
Prace s MS MapPoint
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.5.2002 11:43:12
Ahoj vsem, mam ted delat cosi v Delphi, co ma vyuzivat MS MapPoint (verze
2001, kde jeste neni pritomen OCX). Nemate s tim nekdo nejake zkusenosti a
chut se o ne podelit? Diky za vsechny odezvy.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
DLL - predavani hodnot
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.5.2002 11:47:42
Ahoj,
nema cenu se hadat, ja tvrdim, ze to jde, ba co vic, bez problemu to
pouzivam. Napr. pokud se podivas na muj rkEdit a databazove pluginy,
pak je to delane presne tak, jak jsem popsal. V DLL i DPR je jako
prvni unita v uses pouzita ShareMem. Pak si mezi DLL a aplikaci
predavam nejen retezce, ale i objekty. Pokud napr. pouzivas Interbasi
ci neco pres ADO, stahni si oboji (adresy an konci) a presvec se, ze
to funguje tak, jak ma. Po spravnem provedeni SELECTu (tj. tabulka
existuje, jsi pripojen a pod.) se data zobrazi v DBGridu. DBGrid je
soucasti rkEditu, vse databazove pak soucasti DLL.
Pokud nebudes schopen napsat si vlastni priklad, mohu nejaky vyplodit
a zaslat.
Slavek
rkEdit: http://atrey.karlin.mff.cuni(tec)cz/~rk/rkEdit.shtml
DB pluginy:
http://atrey.karlin.mff.cuni(tec)cz/~rk/rkEditAndDatabase.shtml
> A to prave nejde. Ty do dll predas pointer na objekt kterej ma
> strukturu jako v exe souboru ale dll se na nej snazi pristupovat jako
> na objekt se stejnou tridou ale se strukturou definovanou v dll, tyto
> struktury se nemusi rovnat i kdyz jde o stejny objekt stejne
> definovany.
>
> Jakub Dusek
> > > > coz je sice lepsi cesta, ale ne vzdy tazatelem akceptovatelna.
> > > > Stejne tak muzes jako PRVNI unitu v sekci uses tve DLL napsat
> > > > ShareMem a bude to fungovat podle tvych predstav (nezapomen s
> > > > aplikaci sirit i
> > > Ne, pro predavani objektu nelze pouzit ShareMem, to je jen pro
> > > predavani promennych ktere se fyzicky ukladaji jako pointer
> > > (string, dynamicke pole, variant ...)
> > *****Spatne jsem se vyjadril. Predavanim objektu ja osobne myslim
> > predani ukazatele na tento objekt. Tedy pokud si napr. v DLL
> > vytvorim TQuery, tak jej muzu (cti ukazatel na instanci tridy
> > TQuery) predat do volajici aplikace, ktera napr. zobrazi datovou
> > mnozinu vracenou v TQuery (tedy pri pouziti ShareMem).
> >
> > Slavek
> >
> > > Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TMemo a Scrolovani
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 13.5.2002 11:59:29
> potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
> radek. At delam co delam, vzdy se to prescroluje na zacatek.
Ja to delam takhle:
with Memo do
for i := 1 to Lines.Count - 1 do
SendMessage(Handle, WM_VSCROLL, SB_PAGEDOWN, 0);
Nejspis to neni moc cisty, ale chodi to ;)
JK
Grafika na canvas
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 13.5.2002 12:34:58
Preji hezky den,
ve svem programu potrebuji vyhotovit protokol obsahujici mj. i graf
specialniho typu, ktery nelze vytvorit pomoci TChart. Pracuji na canvas
component Image a Printer. Nabidka grafickych metod se mi zda velice chuda.
Postradam napr. moznosti umisteni textu (text justification), vytvoreni a
popis osy a pod. V napovede k metode TextRect jsou popsane konstanty pro
umisteni textu, avsak platne pro nejakou jinou verzi Delphi. Prohlizel jsem
i graficke metody v JCL, nenasel jsem nic vhodneho. Dovoluji si obratit se
se zadosti o radu na zkusene programatory. Co lze doporucit pro efektivnejsi
praci na Canvas?
Ing. Jan Dvorak
QuickReport a obrazky
[*] <ivan.ivanov(zv)email(tec)cz> - 13.5.2002 12:58:19
Ak si pozries help a tlac bitmap, najdes tam alibisticke, ze niekedy to nejde.
Na to, aby slo tlacit bitmapy musia byt DIB
alebo, ale nemozem Ti zarucit 100% (zatial mi to v nejakych programoch funguje bez problemov) vloz do qr prazdny Image a pri tlaci don vykresli, co potrebujes - a moze to byt aj stretchovane alebo ine.
ivan
______________________________________________________________________________
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz
DLL - predavani hodnot
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 13:06:19
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> nema cenu se hadat, ja tvrdim, ze to jde, ba co vic, bez problemu to
> pouzivam. Napr. pokud se podivas na muj rkEdit a databazove pluginy,
> pak je to delane presne tak, jak jsem popsal. V DLL i DPR je jako
> prvni unita v uses pouzita ShareMem. Pak si mezi DLL a aplikaci
Pak ovsem natvrdo pretypovas pointer s tim, ze VMT 'nahodou' vysla stejne jak
v EXE tak v DLL, takze je to binarne kompatibilni a nespadne to. Tohle ma ale
daleko k cistemu reseni (ze to nekdy funguje je zcela nepodstatne). Zkus si
dat test na ten objekt pomoci IS, viz nize. Pri kompilaci s balicky funguje
priklad spravne, jinak ne. Pouziti ShareMem pouze zajisti ze nedojde k AV pri
uvolneni pameti objektu.
Petr Vones
******************************************************************************
program Project1;
{$APPTYPE CONSOLE}
uses
ShareMem, SysUtils, Classes;
function ReturnsStringList: TStringList; stdcall; external 'Lib1.dll';
var
List: TStrings;
begin
List := ReturnsStringList;
try
if List is TStringList then
WriteLn('OK: List is TStringList')
else
WriteLn('Error: List is ', List.ClassName);
finally
List.Free;
end;
ReadLn;
end.
******************************************************************************
library Lib1;
uses
ShareMem, SysUtils, Classes;
function ReturnsStringList: TStringList; stdcall;
begin
Result := TStringList.Create;
end;
exports
ReturnsStringList;
end.
Podivne chovani Try Except, Try Finally
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 13:22:44
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> tady jsem se uklep takze se omlouvam. Nicmene problem trva a jde asi opravdu
> o chybu pri kompilaci pokud do kodu pridam sleep tak se dalsi kod vykona
> ovsem pokud tam sleep neni tak se procedura bez zjevneho duvodu predcasne
> ukonci.
V jake verzi Delphi ? Jsi schopen udelat jednoduchy priklad na kterem se to
projevi ?
Petr Vones
TDateTime
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.5.2002 13:44:26
Ja myslim ze 0 je 0:0:0 rano (tedy pulnoc) na 30.12.1899.
V helpu sice pisou ze 0 je 12/30/1899 12:00 am, ale to je prave pulnoc podle
anglickych zvyklosti. Navic vsechny vyssi datumy maji v 0,5 poledne, takze
proc by to prave u nuly melo byt jinak.
Martin Schayna
----- Original Message -----
From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> Malinko bych te opravil: 0 v TDateTime znamena opravdu datum 30.12.1899, ale
> ve 12:00:00 hod. (poledne)
>
> Martin Ben
>
>
> > >Ale kdyz si ji dam vypsat napr. takhle:
> > >ShowMessage(DatetimeToStr(Pokus.Datum));
> > >dostanu vysledek '30.12.1899'
> >
> > nula ve formatu TDateTime (nebo TDate) je opravdu datum 30.12.1899
> > 23:59:59.9999999 to je spravne
DLL - predavani hodnot
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.5.2002 13:56:25
Ahoj,
> Pak ovsem natvrdo pretypovas pointer s tim, ze VMT 'nahodou' vysla
> stejne jak v EXE tak v DLL, takze je to binarne kompatibilni a
> nespadne to.
*****Onu ,,nahodu`` bych videl v pouziti stejneho kompilatoru (stejna
verze, stejny build, ...). Ze by se pokazde tvorila VMT jinak napr.
na zaklade ,,nahodneho volani hasovacich funkci`` je ponekud blazniva
myslenka.
> Tohle ma ale daleko k cistemu reseni
*****S tim souhlasim.
> (ze to nekdy funguje je zcela nepodstatne).
*****Misto nekdy plati spise vyse zminene nahodou.
> Zkus si dat test na ten objekt pomoci IS, viz
> nize. Pri kompilaci s balicky funguje priklad spravne, jinak ne.
*****To je jasne. DLL in TObject <> EXE in TObject
Co je tedy spravne? Z hlediska cistoty kodu a ,,nabozenstvi`` zcela
urcite balicky nebo cekani na Delphi.NET. Z hlediska prakticnosti pro
nektere uzivatele DLL (toto ovsem muze vest k flamewar, takze radeji
nekomentovat).
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
NMHTTP metoda POST
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 13.5.2002 14:01:25
Tudy cesta nevede ... zkus rad�j Synapsi nebo Indy.
Standardni NMHTTP v Delphi je na...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of mr Nick Eagly
Sent: Friday, May 10, 2002 5:24 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: NMHTTP metoda POST
Nevite nekdo prosim v jakem tvaru se odesilaji data pomoci metody
post?
Ond�ej
Holub
______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
DLL - predavani hodnot
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 13.5.2002 14:06:42
Mrknu na to. Jestli je to pravda tak to je odpoved na moji otazku kterou
jsem sem posilal uz asi 100 x :) Potrebuju sdilet connection mezi aplikaci
a dll bez nutnosti reconectu.
Jakub Dusek
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Subject: Re: DLL - predavani hodnot
> Ahoj,
>
> nema cenu se hadat, ja tvrdim, ze to jde, ba co vic, bez problemu to
> pouzivam. Napr. pokud se podivas na muj rkEdit a databazove pluginy,
> pak je to delane presne tak, jak jsem popsal. V DLL i DPR je jako
> prvni unita v uses pouzita ShareMem. Pak si mezi DLL a aplikaci
> predavam nejen retezce, ale i objekty. Pokud napr. pouzivas Interbasi
> ci neco pres ADO, stahni si oboji (adresy an konci) a presvec se, ze
> to funguje tak, jak ma. Po spravnem provedeni SELECTu (tj. tabulka
> existuje, jsi pripojen a pod.) se data zobrazi v DBGridu. DBGrid je
> soucasti rkEditu, vse databazove pak soucasti DLL.
>
> Pokud nebudes schopen napsat si vlastni priklad, mohu nejaky vyplodit
> a zaslat.
>
> Slavek
>
dbexpress + event
[*] cis <cis(zv)atlas(tec)cz> - 13.5.2002 14:17:14
Hi all,
nevite nahodou jak lze pres dbexpress snimat eventy z Interbase?
ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 22-4-2002
DLL - predavani hodnot
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 13.5.2002 14:33:35
Aha, rkEdit je aplikace a ne komponenta. Muzes mi teda popsat obecne postup?
Ty v ty dll vytvoris TQuery na kterou se pripojuje DBGrid z aplikace?
Priklady jsem na to zkousel psat, ale nedarilo se, vzdycky invalid pointer
operation. ShareMem znam v souvislosti se stringy, ale to nepouzivam, PChar
je univerzalnejsi, v souvislosti s instancema objektu o tom slysim poprve...
Jakub Dusek
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>> Ahoj,
>
> nema cenu se hadat, ja tvrdim, ze to jde, ba co vic, bez problemu to
> pouzivam. Napr. pokud se podivas na muj rkEdit a databazove pluginy,
> pak je to delane presne tak, jak jsem popsal. V DLL i DPR je jako
> prvni unita v uses pouzita ShareMem. Pak si mezi DLL a aplikaci
> predavam nejen retezce, ale i objekty. Pokud napr. pouzivas Interbasi
> ci neco pres ADO, stahni si oboji (adresy an konci) a presvec se, ze
> to funguje tak, jak ma. Po spravnem provedeni SELECTu (tj. tabulka
> existuje, jsi pripojen a pod.) se data zobrazi v DBGridu. DBGrid je
> soucasti rkEditu, vse databazove pak soucasti DLL.
>
Nacitanie komponent.
[*] Robert Suska <delphi(zv)korak.sk> - 13.5.2002 14:38:43
Zdravim konferenciu!
Viem ze som otravny ako svietiplyn ale majte prosim so mnou trosku strpenia.
:) Nechem zdrojovy kod aj keby sa sa hodil ale prosim o nakopnutie kde a ako
to mam hladat a ci sa take nieco da spravit? Ten problemik co som mal s
nacitanim komponent z fromu uz som z 18% vyriesil a to
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: Integer;
FormComponentList: TStringList;
begin
try
FormComponentList:= TStringList.Create;
try
for i:= 0 to Form1.ControlCount-1 do
FormComponentList.Add(Form1.Controls[i].GetNamePath);
except
ShowMessage('Chyba pri zistovani komponent.');
end;
finally
FormComponentList.Free;
end;
end;
ale ako by som spravil taku srandu ze mam cyklus ako tento a v nom zistujem
a
ukladam napr. do TStringList nazvy komponent na hlavnom forme. ALE tieto
komponenty obsahuju dalsie komponety napr. TPanel obsahuje nejaky
radiobutton atd. a teraz ja potrebujem este v tomto jednom cykle
alebo este mozno v jednom dalsom spracovat zoznam tychto komponent a
zistit ci neobsahuju tiez komponety s dalsimi komponentami a ak nie
tak potrebujem zistit k tym komponentam ktore uz neobsahuju ziadne
komponenty napr. TEdit ich property. tzn. X Y suradnice na forme
resp. na koponente kde sa nachadzaju ich zarovnanie a proste vsetko
co sa da zistit. AK by bolo mozne aj ich Event. Ide mi o to ze ked to
vsetko budem mat ulozim to do nejakej databazy (napr. hned ako to budem
zistovat z toho formu nemusim to davat do TStringList lebo to je asi
hlupost) a zrusim ten form a
budem mat spatny algoritmus ktory potom z toho "stringu" - "databazy" urobi
spatne
cely form. Ide o to ze to bude apl. client server cize ked sa bude
chciet urobit nejaka uprava na clientskom forme tak sa urobi uprava
iba v tom stringu a form sa upravy u kazdeho clienta.
Prosim kto ma skusenosti s tymito vecami alebo ma nastudovane taketo veci
prosim
poradte mi. Alebo aspon kde by som mohol o tom citat hlavne bud v cestine
alebo slovencine.
Dakujem velmi pekne ak ste si to len precitali az do konca.
S pozdravom Robo
DLL - predavani hodnot
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 14:48:17
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > Zkus si dat test na ten objekt pomoci IS, viz
> > nize. Pri kompilaci s balicky funguje priklad spravne, jinak ne.
> *****To je jasne. DLL in TObject <> EXE in TObject
A podobny test pomoci IS muze byt kdekoli v kodu ktery takto pouzivas, takze
aplikace muze selhat.
> Co je tedy spravne? Z hlediska cistoty kodu a ,,nabozenstvi`` zcela
> urcite balicky nebo cekani na Delphi.NET. Z hlediska prakticnosti pro
Balicky, interface, COM objekty. Balicky jsou asi nejvyhodnejsi protoze
nevyzaduji zadny zasah do stavajiciho kodu.
> nektere uzivatele DLL (toto ovsem muze vest k flamewar, takze radeji
Nevim o co vice je 'prakticka' DLL bez balicku oproti DLL s balickem kdyz
exportuje (proprietalni) Delphi objekty. Z hlediska prakticnosti bych tedy
videl z principu funkcni aplikaci jako vice praktickou. Pokud ma byt DLL
pouzitelna i pro jina prostredi nez Delphi tak potom nemuze vubec exportovat
objekty.
Petr Vones
Nacitanie komponent.
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 13.5.2002 14:52:48
> ukladam napr. do TStringList nazvy komponent na hlavnom forme. ALE tieto
> komponenty obsahuju dalsie komponety napr. TPanel obsahuje nejaky
> S pozdravom Robo
Na to vpodstate staci rekurzivni funkce napr.:
procedure getComponents(AParent: TControl; var CompList: TStringList);
begin
CompList.BeginUpdate;
try
for i := 0 to Pred(AParent.ControlCount) do
begin
CompList.Add(AParent.Controls[i].GetNamePath);
if AParent.Controls[i].ControlCount <> 0 then
getComponents(AParent.Controls[i], CompList);
end;
finally
CompList.EndUpdate;
end;
end;
Nevim jestli to presne takhle bude fungovat, je to pouze nastin principu
rekurzivniho volani.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
OT: USB Tiskarna W95
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 13.5.2002 15:03:30
Hi,
Firma koupila USB tiskarnu a ted ji chce mimo jine dostat i na mashinku,
ktera ma jen W95, ktere ale nemaj podporu USB. Nevite, zda lze a pokud lze
tak jak (Patch...)?
Sroub
OT: USB Tiskarna W95
[*] Milos Hernych <milos.hernych(zv)vslib(tec)cz> - 13.5.2002 15:13:49
> Firma koupila USB tiskarnu a ted ji chce mimo jine dostat i na mashinku,
> ktera ma jen W95, ktere ale nemaj podporu USB. Nevite, zda lze a pokud lze
> tak jak (Patch...)?
Je nutno mit Win95 OSR2.1, podle mne podpora USB do starsich verzi "nejak
dohrat" nejde.
M.H.
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 13.5.2002 15:14:20
V jake verzi Delphi ? Jsi schopen
D6 Ent ale na jednoduche app to nelze vyvolat. Mam to v proj cca 50
formularu. Zalezitos se projevuje zasadne na PC win95 + Intel PIII. Na PIII
s jinym OS to funguje zrovna tak win95 s jinym procesorem vse OK ale na 3 PC
mam win95 + PIII a tam to nechodi. Jinak stroje jsou naprosto odlisne co se
tyce pameti, matherboardu atd. Zahada
OT: USB Tiskarna W95
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.5.2002 15:22:50
pro Win95 OSR2 sla dinstalovat jakasi "podpora" pro USB, ale nebylo
uplne spolehlive. Doporucuji prejit na Win 98 SE.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
13.5.2002 Otisk Rene:
> Firma koupila USB tiskarnu a ted ji chce mimo jine dostat i na mashinku,
> ktera ma jen W95, ktere ale nemaj podporu USB. Nevite, zda lze a pokud lze
> tak jak (Patch...)?
Podivne chovani Try Except, Try Finally
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 15:26:20
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> D6 Ent ale na jednoduche app to nelze vyvolat. Mam to v proj cca 50
> formularu. Zalezitos se projevuje zasadne na PC win95 + Intel PIII. Na PIII
> s jinym OS to funguje zrovna tak win95 s jinym procesorem vse OK ale na 3 PC
> mam win95 + PIII a tam to nechodi. Jinak stroje jsou naprosto odlisne co se
> tyce pameti, matherboardu atd. Zahada
A deje se tak jen kdyz dojde v te casti kodu k vyjimce nebo vzdy ? Co maji ty
stroje jeste spolecneho, maji vsechny (stejny) Intel chipset ?
Petr Vones
Podivne chovani Try Except, Try Finally
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.5.2002 15:28:56
Mephisto dne 13 May 2002 v 15:14:
> V jake verzi Delphi ? Jsi schopen
>
> D6 Ent ale na jednoduche app to nelze vyvolat. Mam to v proj cca 50
> formularu. Zalezitos se projevuje zasadne na PC win95 + Intel PIII. Na
> PIII s jinym OS to funguje zrovna tak win95 s jinym procesorem vse OK
> ale na 3 PC mam win95 + PIII a tam to nechodi. Jinak stroje jsou
> naprosto odlisne co se tyce pameti, matherboardu atd. Zahada
Ahoj,
hadam, ze na tom zlobivem PC nemas Delphi. Tak zkus celou tu proceduru obalit nejak takto (pisu z
hlavy, tak mozna s chybkami):
try
// vsechny stavajici prikazy te procedury
except
on e:Exception do begin
ShowMessage(e.Message);
raise;
end;
end;
Takhle by ses mel alespon dovedet, k jake vyjimce dochazi - predpokladam, ze to nebude chybou
kompilatoru, protoze to by se pravdepodobne projevilo i na jinych PC.
Mimochodem, nemuze se jednat o v Win95 oblibene Out of resources?
Karel Rys
OT Re: Co chtit za zdrojove kody?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 15:35:04
From: "Milos Hernych" <milos.hernych(zv)vslib(tec)cz>
> U nemeckych "zelenych karet" pro programatory byla podminka, aby rocni plat,
> ktery nemecka firma nabidne, byl minimalne 100.000DEM, tedy cca 50.000EUR -
Tohle pokud vim platilo pouze pro lidi s dostatecnym 'papirovym' vzdelanim.
Pokud dotycny tuto podminku nesplnoval ale presto byl prakticky pouzitelny tak
to bylo tusim 70,000 DEM.
> priklad. Proto predpokladam, ze se jedna o cloveka z nejake "rozvojove" zeme
> EU....
Stale asi lepsi nez z tehle rozvojove zeme ;-)
Petr Vones
Grafika na canvas
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 15:42:37
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
> component Image a Printer. Nabidka grafickych metod se mi zda velice chuda.
> Postradam napr. moznosti umisteni textu (text justification), vytvoreni a
> popis osy a pod. V napovede k metode TextRect jsou popsane konstanty pro
> umisteni textu, avsak platne pro nejakou jinou verzi Delphi. Prohlizel jsem
Podivej se na API funkci DrawText a na kapitolu Font and Text Functions v
MSDN.
Petr Vones
OT: USB Tiskarna W95
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 13.5.2002 15:43:25
Jo to jsem stahnul, USB mi to detekuje, ale japa tam dostat tu tiskarnu...
(Canon S200)
Sroub
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 3:22 PM
Subject: Re: OT: USB Tiskarna W95
> pro Win95 OSR2 sla dinstalovat jakasi "podpora" pro USB, ale nebylo
> uplne spolehlive. Doporucuji prejit na Win 98 SE.
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 13.5.2002 Otisk Rene:
> > Firma koupila USB tiskarnu a ted ji chce mimo jine dostat i na mashinku,
> > ktera ma jen W95, ktere ale nemaj podporu USB. Nevite, zda lze a pokud
lze
> > tak jak (Patch...)?
>
TMemo a Scrolovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 15:47:27
From: "Jiri Kratochvil" <jiri.kratochvil(zv)webzin(tec)cz>
> > potreboval bych aby se mi po kazdem TMemo.Add(string) zobrazil posledni
> > radek. At delam co delam, vzdy se to prescroluje na zacatek.
SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);
Petr Vones
Komponenta Zipmaster
[*] bleak <bleak(zv)atlas(tec)cz> - 13.5.2002 15:50:52
me to chodi takto:
ZipMaster1.MaxVolumeSize:=1400000;
bleak
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
To: "Konference Delphi 2000" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, May 12, 2002 12:25 AM
Subject: Komponenta Zipmaster
> Zdravim
>
> Potreboval bych trochu popostrcit.
> Pouzivam komponentu Zipmaster 1.52M a nejak se mi nedari nastavit velikost
> vysledneho archivu, respektive jeho rozdelovani na pozadovanou velikost.
> Prolezl jsem pribalena dema 1 az 6, ale stale se nedari.
>
> Diky za odpoved
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
>
>
OT: USB Tiskarna W95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 15:53:15
From: "Otisk Rene" <otisk(zv)misel(tec)cz>
> Jo to jsem stahnul, USB mi to detekuje, ale japa tam dostat tu tiskarnu...
> (Canon S200)
Musis k ni mit driver.
Petr Vones
Podivne chovani Try Except, Try Finally
[*] Lauko Stefan <laukosw(zv)naex.sk> - 13.5.2002 15:54:53
From: "Petr Vones"
> From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> > tady jsem se uklep takze se omlouvam. Nicmene problem trva a jde asi
opravdu
> > o chybu pri kompilaci pokud do kodu pridam sleep tak se dalsi kod vykona
> > ovsem pokud tam sleep neni tak se procedura bez zjevneho duvodu
predcasne
> > ukonci.
>
> V jake verzi Delphi ? Jsi schopen udelat jednoduchy priklad na kterem se
to
> projevi ?
> Petr Vones
Podobny problem som mal aj ja. Vyvoj som robil na D 5.1, Win2000 tam nebol
ziadny problem. Na Win95/98 program vzdy skoncil hlaskou "Program vykonal...
Chyba strankovania pamate...". Po dlhsej dobe som nainstaloval W98 + D5.1 a
zacal som to testovat - vzdy to na konci padlo. Ked som krokoval program tak
to nepadlo nikdy.
V jednej unite (datamodul) som mal :
Initialization
InitValues:= TStringList.Create;
...
InitValues.LoadFromFile( ChangeFileExt(ParamStr(0),'.ini'));
Finalization
InitValues.SaveToFile( ChangeFileExt(ParamStr(0),'.ini'));
InitValues.Free; {********* v tomto bode to padlo - to je len odhad pri
krokovani to nepadlo*********}
end.
Ked som finalization upravil takto:
InitValues.SaveToFile( ChangeFileExt(ParamStr(0),'.ini'));
Sleep(100);
InitValues.Free;
Tak to funguje. Zaujimalo by ma v com je problem?
Lauko.
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 13.5.2002 16:08:23
A deje se tak jen kdyz dojde v te casti kodu k vyjimce
k te vyjimce nedojde pokud k ni dojte provede se korektne to co ma ale pokud
je vse ok ta dalsi cast kodu se nevykona. Co se tyce cipsetu nevim a ted
momentalne se k PC nedostanu
Podivne chovani Try Except, Try Finally
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 13.5.2002 16:09:38
jeste jednou pro vsechny k vyjimce nedojde predstavte si toto
begin
try
except
end
// o tomto mistu se bavime
try
finally
end
end
kod probehne bez vyjimky ale v oznacenem miste zkonci a dalsi blok se uz
neprovede ... jen pro uplnost pokud k vyjince dojde tak se kod chova
korektne tak jak ma
Podivne chovani Try Except, Try Finally
[*] ales.pavel(zv)popron(tec)cz - 13.5.2002 16:31:23
Aldik na to:
Podle meho dojde k ukonceni programu driv nez se provede SaveToFile,
To SaveToFile je podle meho nazoru blbost davat do Finalization.Zrejme to
windows odstreli driv nez dojde k vykonani prikazu. Tusim ze ve W2000 se
jeste vraci systemu message API ,ze se program ukoncuje a u W95/98 ti to
tusim neni,proste se to odstreli natvrdo.
Je to jen dohad na zaklade mych kusych zkusenosti s Winy....
Lauko napisal:
>Podobny problem som mal aj ja. Vyvoj som robil na D 5.1, Win2000 tam nebol
>ziadny problem. Na Win95/98 program vzdy skoncil hlaskou "Program
vykonal...
>Chyba strankovania pamate...". Po dlhsej dobe som nainstaloval W98 + D5.1 a
>zacal som to testovat - vzdy to na konci padlo. Ked som krokoval program
tak
>to nepadlo nikdy.
>V jednej unite (datamodul) som mal :
>Initialization
InitValues:= TStringList.Create;
...
>InitValues.LoadFromFile( ChangeFileExt(ParamStr(0),'.ini'));
>Finalization
>InitValues.SaveToFile( ChangeFileExt(ParamStr(0),'.ini'));
>InitValues.Free; {********* v tomto bode to padlo - to je len odhad pri
>krokovani to nepadlo*********}
>end.
>Ked som finalization upravil takto:
>InitValues.SaveToFile( ChangeFileExt(ParamStr(0),'.ini'));
>Sleep(100);
>InitValues.Free;
>Tak to funguje. Zaujimalo by ma v com je problem?
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
Jak spustit proceduru
[*] Tomas Plevak <tomas.plevak(zv)ndc(tec)cz> - 13.5.2002 16:54:00
Hello,
mam problem se spustenim procedury, ktera je vytvorena pro
stisknuti tlacitka. Pokud se ji pokusim spustit pri spusteni programu
vrati mi to chybu: Not enough actual parameters. Je mi jasne, ze
to ma neco spolecneho s timto Sender: TObject, ale nevim co mu
mam poslat aby ji spustil. Kdyz dojde na vlastni stisknuti tlacitka,
tak to zadny problem nema.
Se srdecnym pozdravem Tomas Plevak
E-mail: tomas.plevak(zv)ndc(tec)cz
Jak spustit proceduru
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.5.2002 17:04:52
Klidne tam napis nil, ten parametr slouzi jen k tomu, aby se rozlisilo, kdo
to stisknuti zpusobil. Pokud ten parametr v procedure nepouzivas, neni jeho
hodnota podstatna.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Jak spustit proceduru
>
> mam problem se spustenim procedury, ktera je vytvorena pro
> stisknuti tlacitka. Pokud se ji pokusim spustit pri spusteni programu
> vrati mi to chybu: Not enough actual parameters. Je mi jasne, ze
> to ma neco spolecneho s timto Sender: TObject, ale nevim co mu
> mam poslat aby ji spustil. Kdyz dojde na vlastni stisknuti tlacitka,
> tak to zadny problem nema.
po odchyceni WMQueryEndSession a WMEndSession se w
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 13.5.2002 17:11:49
On Thu, 2 May 2002, EFG developer wrote:
> Ale me se WMQueryEndSession neodchyti, pokud aplikace bezi jen v
> systrayi. ( ShowWindow(Application.Handle, SW_HIDE) )
> jak je to mozne ?
To nevim, ale kdyz jsem s timto mel nejake problemy, je treba vracet v
Message.result=1, jinak se windows neukonci. Vice v MS SDK helpu k
WM_QUERYENDSESSION
> Petr Sikola
>
> > Na spravne ukonceni aplikace staci odchytit
> > procedure TfrmStation.WMQueryEndSession(var Message:
> > TWMQueryEndSession); begin
> > FEnd := True;
> > inherited;
> > end;
> >
> > A vse co mas v OnClose presun do OnCloseQuery, kde
> > predpokladam se ridis podle FClose
> >
> > OnCloseQuery se vykonava vzdy (s vyjimkou
> > Application.Terminate a podobnych zhuverilosti) OnClose ne.
>
>
>
---------------------------------------------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj�rensk� 38, ���r nad S�zavou
pobo�ka Olomouck� 355, Hlubo�ky-Mari�nsk� �dol�
tel: +420 68 5353548, fax: +420 68 5352364
http://hlubocky.del(tec)cz
Ikona aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.2002 17:20:36
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> mam D5E SP1 a nasledujici problem: v Project options natahnu z disku
> ikonku (soubor ICO), ve kterem jsou dva obrazky - maly a velky. Vse
> ok, funguje to tak, jak ma. Pokud ovsem provedu nasledujici prikaz:
>
> Application.Icon.LoadFromFile ('tensamysoubor');
>
> pak to funguje spatne. V titulkovem pruhu je zmenseny velky obrazek z
> ikony a nikoliv maly, ktery tam ma byt.
TIcon.LoadFromFile patrne nahraje pouze prvni ikonu.
Petr Vones
Jak spustit proceduru
[*] bures <bures(zv)ssakhk(tec)cz> - 13.5.2002 17:33:53
Ahoj treba button1click(nil);
Vlada
----- Original Message -----
From: "Tomas Plevak" <tomas.plevak(zv)ndc(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 4:54 PM
Subject: Jak spustit proceduru
> Hello,
> mam problem se spustenim procedury, ktera je vytvorena pro
> stisknuti tlacitka. Pokud se ji pokusim spustit pri spusteni programu
> vrati mi to chybu: Not enough actual parameters. Je mi jasne, ze
> to ma neco spolecneho s timto Sender: TObject, ale nevim co mu
> mam poslat aby ji spustil. Kdyz dojde na vlastni stisknuti tlacitka,
> tak to zadny problem nema.
>
>
> Se srdecnym pozdravem Tomas Plevak
> E-mail: tomas.plevak(zv)ndc(tec)cz
>
>
>
Items a values v RxDBGridu
[*] David Janko <djanko(zv)infoware(tec)cz> - 13.5.2002 17:52:24
Zdravim vsechny,
v RxDBCombo je mozne uvest zvlast Items a Values, aby se jedna hodnota
zobrazovala a druha ukladala do databaze - potreboval bych to same v
prislusnem poli RxDBGridu - logicky bych usoudil, ze by to melo jit take,
ale absolutne nemuzu prijit na to jak ... jsem jenom slepy nebo ?
Dekuji za pripadne odpovedi.
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
Funkce Post nezapisuje na disk
[*] Harris <harri.s(zv)tiscali(tec)cz> - 13.5.2002 18:37:27
Prosim Vas, co mam udelat aby mi u paradox databaze Funkce "Post", "SetFields", nebo "AppendRecord" , se zmeny
provedene v databazi odrazili okamzite i na disku? Totizto mne se zmeny provedou az pri zavreni aplikace, nebo zavreni databaze. Diky moc. Harris.
OT Re: Co chtit za zdrojove kody?
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 13.5.2002 19:02:05
> U nemeckych "zelenych karet" pro programatory byla podminka, aby rocni
plat,
> ktery nemecka firma nabidne, byl minimalne 100.000DEM, tedy cca
50.000EUR -
Kdyz uz jsme u toho, muzete mi pokud nekdo mate zkusenosti poradit, kam
vyrazit za praci programatora do zahranici? Kde se takovy normalni
vysokoskolak se znalosti DEPHI, HTML apod muze uchytit a neco vydelat?
Slysel jsem o Irsku, ale nemam vubec zadne info ci zkusenosti. Sorry,
omlouvam se adminovi za krute off topic, odpovedi prosim na soukromy mail:
vit.jurasek(zv)vegateam(tec)cz
Diky moc
Jak na Kylix a getmessage
[*] Jirka Virt <virt(zv)volny(tec)cz> - 13.5.2002 19:31:34
Ahoj,
nevite jak v Kylixu na kolotoc??
while getmessage(msg,0,0,0) do
begin
translatemessage(msg);
dispatchmessage(msg);
end;
Diky moc.
Nebo Linux nepouziva system zprav??
Jirka Virt
email: virt(zv)volny(tec)cz
Funkce Post nezapisuje na disk
[*] miro mrazik <preas_w(zv)stonline.sk> - 13.5.2002 19:53:28
TTable.FlushBuffers
----- Original Message -----
From: "Harris" <harri.s(zv)tiscali(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 6:37 PM
Subject: Funkce Post nezapisuje na disk
TDateTime
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 13.5.2002 20:01:23
Mam sice jenom zaklady anglictiny, ale pamatuji si ze mne ucily ze a.m. je
cas dopoledne a p.m. je zase cas odpoledne. Takze vychazim z toho ze 12:00
a.m. je 12 hodin dopoledne, tzn. prave poledne. A zase 12:00 p.m. je pulnoc.
Taky mi to pripada nelogicke ze by 0 znamenala 30.12.1899 12:00 (poledne),
ale nijak zvlast jsem nad tim zatim neuvazoval.
Pokud se mylim, rad se dam poucit.
Martin Ben
> -----Original Message-----
> From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
>
> Ja myslim ze 0 je 0:0:0 rano (tedy pulnoc) na 30.12.1899.
> V helpu sice pisou ze 0 je 12/30/1899 12:00 am, ale to je
> prave pulnoc podle
> anglickych zvyklosti. Navic vsechny vyssi datumy maji v 0,5
> poledne, takze
> proc by to prave u nuly melo byt jinak.
>
> Martin Schayna
>
> ----- Original Message -----
> From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> > Malinko bych te opravil: 0 v TDateTime znamena opravdu
> datum 30.12.1899, ale
> > ve 12:00:00 hod. (poledne)
> >
> > Martin Ben
> >
> >
> > > >Ale kdyz si ji dam vypsat napr. takhle:
> > > >ShowMessage(DatetimeToStr(Pokus.Datum));
> > > >dostanu vysledek '30.12.1899'
> > >
> > > nula ve formatu TDateTime (nebo TDate) je opravdu datum
> 30.12.1899
> > > 23:59:59.9999999 to je spravne
>
>
Funkce Post nezapisuje na disk
[*] bures <bures(zv)ssakhk(tec)cz> - 13.5.2002 20:03:28
Ahoj podivej se na funkcei DbiSaveChanges deklarovanou v DbTables.pas
Vlada
----- Original Message -----
From: Harris
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, May 13, 2002 6:37 PM
Subject: Funkce Post nezapisuje na disk
Prosim Vas, co mam udelat aby mi u paradox databaze Funkce "Post", "SetFields", nebo "AppendRecord" , se zmeny
provedene v databazi odrazili okamzite i na disku? Totizto mne se zmeny provedou az pri zavreni aplikace, nebo zavreni databaze. Diky moc. Harris.
Form.Free
[*] Marek Soukup <marek(zv)b-worlds.de> - 13.5.2002 20:57:49
Haj hou,
uz z toho zase solidne blbnu.
Mam aplikaci o dvou formularich (unitach), ten prvni ma tlacitko, po jehoz
stisku se vytvori a otevre ten druhy formular (create, show) a pak se zavola
nejaka jeho metoda, ktera neco dela s datama.
Tak a ted jak spravne uvolnit ten druhy formular. Kdyz dam tlacitko primo na
nej a po jeho stisku zavolam free, tak to zbuchne na access violation.
S pozdravem
Marek Soukup
Form.Free
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 13.5.2002 20:59:43
----- Original Message -----
From: "Marek Soukup" <marek(zv)b-worlds.de>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 8:57 PM
Subject: Form.Free
> Haj hou,
> uz z toho zase solidne blbnu.
>
> Mam aplikaci o dvou formularich (unitach), ten prvni ma tlacitko, po jehoz
> stisku se vytvori a otevre ten druhy formular (create, show) a pak se
zavola
> nejaka jeho metoda, ktera neco dela s datama.
>
> Tak a ted jak spravne uvolnit ten druhy formular. Kdyz dam tlacitko primo
na
> nej a po jeho stisku zavolam free, tak to zbuchne na access violation.
>
> S pozdravem
> Marek Soukup
>
Formular sam sebe zavira pres Close, ne pres Free.
A jeste tam musis do eventu OnClose pridat
Action := caFree, jinak ten formuar jen zneviditelnis.
Radim
Form.Free
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.5.2002 21:10:37
No samozrejme, protoze po stisku tlacitka se provede uvolneni toho
formulare, tim padem i likvidace toho tlacitka a okenni procedura toho
tlacitka uz se nema kam vratit. Bylo by spravne uvolnovat ten formular tam,
kde vznikal, tj. v tom puvodnim formulari. Slo by to udelat treba tak, ze po
dokonceni zpracovani dat se posle message do toho volajiciho formulare a tam
se provede free. Anebo ten form zobrazuj modalne (ShowModal) a free muzes
volat bezprostredne za tim ShowModal.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Form.Free
>
>
> Mam aplikaci o dvou formularich (unitach), ten prvni ma tlacitko, po jehoz
> stisku se vytvori a otevre ten druhy formular (create, show) a pak se
zavola
> nejaka jeho metoda, ktera neco dela s datama.
>
> Tak a ted jak spravne uvolnit ten druhy formular. Kdyz dam tlacitko primo
na
> nej a po jeho stisku zavolam free, tak to zbuchne na access violation.
Funkce Post nezapisuje na disk
[*] Harris <harri.s(zv)tiscali(tec)cz> - 13.5.2002 21:14:45
Dik, ale TTable.FlushBuffers nic nezapise. Po provedeni funkce je na disku
porad soubor *.db se starym datem a velikosti. Az po zavreni aplikace, se
tento soubor zmeni.
Harris.
----- Original Message -----
From: "miro mrazik" <preas_w(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 7:53 PM
Subject: Re: Funkce Post nezapisuje na disk
> TTable.FlushBuffers
>
> ----- Original Message -----
> From: "Harris" <harri.s(zv)tiscali(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, May 13, 2002 6:37 PM
> Subject: Funkce Post nezapisuje na disk
>
>
>
TDateTime
[*] Harris <harri.s(zv)tiscali(tec)cz> - 13.5.2002 21:21:42
Vsechny cele cisla v TDateTime znamenaji pulnoc. To znamena Datum ktery
udava cislo a 0 milisekund, minut...
Datum + 0.5 je poledne.
V napovede to je spravne. 12:00 am je rano, jinak psane 0:00am. 12:00pm je
poledne, protoze kdyby to byl vecer, tak to uz by vlastne byl dalsi den.
Alespon tak to vnimam ja.
Harris.
----- Original Message -----
From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 13, 2002 8:01 PM
Subject: RE: TDateTime
> Mam sice jenom zaklady anglictiny, ale pamatuji si ze mne ucily ze a.m. je
> cas dopoledne a p.m. je zase cas odpoledne. Takze vychazim z toho ze 12:00
> a.m. je 12 hodin dopoledne, tzn. prave poledne. A zase 12:00 p.m. je
pulnoc.
> Taky mi to pripada nelogicke ze by 0 znamenala 30.12.1899 12:00 (poledne),
> ale nijak zvlast jsem nad tim zatim neuvazoval.
> Pokud se mylim, rad se dam poucit.
>
> Martin Ben
>
>
> > -----Original Message-----
> > From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
> >
> > Ja myslim ze 0 je 0:0:0 rano (tedy pulnoc) na 30.12.1899.
> > V helpu sice pisou ze 0 je 12/30/1899 12:00 am, ale to je
> > prave pulnoc podle
> > anglickych zvyklosti. Navic vsechny vyssi datumy maji v 0,5
> > poledne, takze
> > proc by to prave u nuly melo byt jinak.
> >
> > Martin Schayna
> >
> > ----- Original Message -----
> > From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> > > Malinko bych te opravil: 0 v TDateTime znamena opravdu
> > datum 30.12.1899, ale
> > > ve 12:00:00 hod. (poledne)
> > >
> > > Martin Ben
> > >
> > >
> > > > >Ale kdyz si ji dam vypsat napr. takhle:
> > > > >ShowMessage(DatetimeToStr(Pokus.Datum));
> > > > >dostanu vysledek '30.12.1899'
> > > >
> > > > nula ve formatu TDateTime (nebo TDate) je opravdu datum
> > 30.12.1899
> > > > 23:59:59.9999999 to je spravne
> >
> >
Funkce Post nezapisuje na disk
[*] Harris <harri.s(zv)tiscali(tec)cz> - 13.5.2002 21:32:49
Super, Dik. DbiSaveChanges funguje.
Harris.
----- Original Message -----
From: bures
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, May 13, 2002 8:03 PM
Subject: Re: Funkce Post nezapisuje na disk
Ahoj podivej se na funkcei DbiSaveChanges deklarovanou v DbTables.pas
Vlada
----- Original Message -----
From: Harris
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, May 13, 2002 6:37 PM
Subject: Funkce Post nezapisuje na disk
Prosim Vas, co mam udelat aby mi u paradox databaze Funkce "Post", "SetFields", nebo "AppendRecord" , se zmeny
provedene v databazi odrazili okamzite i na disku? Totizto mne se zmeny provedou az pri zavreni aplikace, nebo zavreni databaze. Diky moc. Harris.
Jak spustit proceduru
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.5.2002 06:56:16
> mam problem se spustenim procedury, ktera je vytvorena pro
> stisknuti tlacitka.
Ahoj,
bud podle ostatnich mailu, nebo jeste tento pristup: Button.Click;
Nektere buttony - mam pocit, ze ne vsechny - maji metodu Click a
jeji pouziti mne osobne prijde nejcitelnejsi, alespon v urcitych
situacich. Metoda udela to same, co by stalo, kdyby uzivatel na to
tlacitko klikl mysi (ale tlacitko se "nezmackne", coz je v tomto
pripade zadouci).
David Lebeda
po odchyceni WMQueryEndSession a WMEndSession se w
[*] EFG developer <developer(zv)efg(tec)cz> - 14.5.2002 07:04:56
Dekuji vsem, uz jsem to vyresil.
Vytvarel jsem totiz pri create hlavniho formu jeste asi 2 dalsi formy a
tam jsem tu zpravu odchytil take a je to OK.
Je ale stejne zajimavy, ze kdyz to bezelo na desktopu tak to bylo OK, a
kdyz v systrayi, tak ne.
A jeste pokud si dam do odchyceni te zpravy v tech dalsich formech
showmessage(), tak se to stejne nevykona :)))), ale funguje to :)))
Petr Sikola
Funkce Post nezapisuje na disk
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.5.2002 07:26:28
Harris dne 13 May 2002 v 18:37:
> Prosim Vas, co mam udelat aby mi u paradox databaze Funkce "Post",
> "SetFields", nebo "AppendRecord" , se zmeny provedene v databazi
> odrazili okamzite i na disku? Totizto mne se zmeny provedou az pri
> zavreni aplikace, nebo zavreni databaze. Diky moc. Harris.
Ahoj,
neni jen treba v BDE Administratoru nastavit u driveru Paradox LocalShare=true?
Karel Rys
Form.Free
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 14.5.2002 07:52:50
Zkus nepouzit Free ale misto toho Release
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> > Tak a ted jak spravne uvolnit ten druhy formular. Kdyz dam
> tlacitko primo
> na
> > nej a po jeho stisku zavolam free, tak to zbuchne na access violation.
udalost pri ENTER
[*] mato <mato.tino(zv)inmail.sk> - 14.5.2002 08:53:37
aka udalost vznikne ked stlacim napr. na DBEDIT enter ?potreboval by som
potom spustit exit z DBEDIT
udalost pri ENTER
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 14.5.2002 09:00:51
Povetsinou se DBEdit prepne do editacni rezimu. Pokud jsi v editacnim rezimu
tak ti staci zadat do onKeyDown:
if Key = 13 then
DBEditX.DBEditXExit(sender);
Rumcajs
----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 14, 2002 8:53 AM
Subject: udalost pri ENTER
> aka udalost vznikne ked stlacim napr. na DBEDIT enter ?potreboval by som
> potom spustit exit z DBEDIT
>
>
udalost pri ENTER
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.5.2002 09:01:58
Zkus to osetrit v OnKeyPress
if Key = Chr(VK_ENTER) then begin
...
Key := #0;
end;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.5.2002 mato:
> aka udalost vznikne ked stlacim napr. na DBEDIT enter ?potreboval by som
> potom spustit exit z DBEDIT
udalost pri ENTER
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 14.5.2002 09:02:07
Mozna by stacilo v OnKeyDown resp. OnKeyUp otestovat if Key = VK_RETURN a
podle vyhodnoceni podminky udelat nejakou akci.
A nebo primo odchytit message
Sroub
> aka udalost vznikne ked stlacim napr. na DBEDIT enter ?potreboval by som
> potom spustit exit z DBEDIT
Ikona aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.5.2002 09:07:54
Ahoj,
> TIcon.LoadFromFile patrne nahraje pouze prvni ikonu.
****A jakymi donucovacimi prostredky mu reknu, aby nahral vse?
Diky za info
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
udalost pri ENTER
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.5.2002 09:12:13
ahoj,
> aka udalost vznikne ked stlacim napr. na DBEDIT enter?
event: OnKeyPress
> potreboval by som potom spustit exit z DBEDIT
procedure TfRegOsoba.eHledejKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then eHledejExit(eHledej);
{ ale ja spise pouzivam
if Key = #13 then Key:=#9 // nahrazeni tabulatorem ;-)
}
end;
dekuji PeC(zv)
OT: anglicke casy - was: TDateTime
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 14.5.2002 09:13:46
Ben, Martin (CAP, GCF) wrote:
>Mam sice jenom zaklady anglictiny, ale pamatuji si ze mne ucily ze a.m. je
>cas dopoledne a p.m. je zase cas odpoledne. Takze vychazim z toho ze 12:00
>a.m. je 12 hodin dopoledne, tzn. prave poledne. A zase 12:00 p.m. je pulnoc.
>
Podle tve teorie by cas tedy plynul takto:
11:59 AM - minuta pred polednem - to je dopoledne, takze AM
12:00 AM - poledne
12:01 PM - minuta po poledni - to uz je jasne odpoledne, takze PM
to je samozrejme nesmysl. Takze poledne je 12:00PM a pulnoc je 12:00AM :-)
eNca
DLL - predavani hodnot
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.5.2002 09:23:51
Ahoj,
> Aha, rkEdit je aplikace a ne komponenta. Muzes mi teda popsat obecne
> postup? Ty v ty dll vytvoris TQuery na kterou se pripojuje DBGrid z
> aplikace? Priklady jsem na to zkousel psat, ale nedarilo se, vzdycky
> invalid pointer operation.
*****Mam to tak, ze DLL si vytvori TQuery a TDataset. Na zadost
provede dotaz (volani nejake funkce) a vrati ukazatel na TDataset.
Ten ja priradim TDBGridu, ktery je jiz umisten v EXE souboru. Jakmile
jiz TDataset nepotrebuji, reknu to DLL a ta jej zrusi. V DLL i EXE
mam jako prvni unitu ShareMem. Pri pokusech dej pozor, Delphi 6 me
trochu zazlobilo. Poprve jsem zapomnel dopsat sharemem a pak mi to
porad halsilo chyby. Pomohl restart IDE.
Slavek
> Jakub Dusek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
udalost pri ENTER
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.5.2002 09:23:12
<<< 14. 5. 2002 9:23 - mato "mato.tino(zv)inmail.sk" >>>
m> aka udalost vznikne ked stlacim napr. na DBEDIT enter ?potreboval by som
m> potom spustit exit z DBEDIT
OnKeyDown a OnKeyPress
--
Best regards, TRoland
DLL - predavani hodnot
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.5.2002 09:25:44
Ahoj,
> A podobny test pomoci IS muze byt kdekoli v kodu ktery takto pouzivas,
> takze aplikace muze selhat.
>
> Pokud ma byt DLL pouzitelna i pro jina prostredi nez Delphi tak potom
> nemuze vubec exportovat objekty.
****To uz trochu zabredavame do kdyby, pak by. Programator musi
vedet, co dany postup obnasi a pouzivat adekvatni postupy.
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Upgrade aplikace na dalku
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 14.5.2002 09:33:47
Zdravim ve spolek,
potreboval bych poradit s uvedenym subjektem.
Situace je takova:
mam modularni aplikaci (BPL), kterou si klienti spousteji ze serveru. Chtel
bych mit moznost jednotlive BPL moduly upgradovat primo za behu aplikace
(aplikace pobezi ale modul se muze vypnout).
A ted nejaka ta otazka:
1. jakym nejvhodnejsim zpusobem oznamit aplikaci na dalku ze by melo dojit k
upgrade?
2. jak rozeslat na jednotlive spustene klienty zpravu (nejaky
PostMessage??), ze dojde k upgrade a je treba aby ukoncily praci s dotycnymi
moduly?
3. jak korektne ukoncit modul ktereho se upgrade tyka kdyz jej na klientovi
nikdo neukonci?
4. uvital bych jakekoliv podnety nebo odkazy ktere mi jste ochotni
poskytnout.
Diky za kazdou radu.
D5Ent, MSSQL2000, W2000/XP
Funkce Post nezapisuje na disk
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 14.5.2002 09:34:48
>Prosim Vas, co mam udelat aby mi u paradox databaze Funkce "Post", "SetFields", nebo "AppendRecord" , se zmeny
>provedene v databazi odrazili okamzite i na disku? Totizto mne se zmeny provedou az pri zavreni aplikace, nebo zavreni >databaze. Diky moc. Harris.
Nastavit si LocalShare ne True.
J. N�dhera
CSH spol. s r.o.
Velfl�kova 10, 160 00 Praha 6
tel.: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel.: 069/633 56 87
www: http://www.csh(tec)cz , e-mail: nadhera(zv)csh(tec)cz
Richedit posledni line...
[*] Vlada Ponechal <vlada_ponechal(zv)post(tec)cz> - 14.5.2002 10:38:18
Zdar panove,
trivialni otazecka. Mam richedit, do ktereho zadavam nejake lines. Je toho velke mnozstvi a vsechno to nevejde na obrazovku. Potrebuji, aby mi zobrazily posledni radky, ktere jsem vlozil. V defaultu se zobrazuji prvni.
mam D6.
Diky,
Vl.
-----
Open Air Festival - Freestyle Massive
Probo�tsk� jezera u Brand�sa nad Labem
�ter� 7.5.2002. Od 20:00 do 06:00
V�ce na www.freestyle(tec)cz