Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Statistiky pouzivanosti typu browseru v CR
[*] skalsky(zv)oksystem(tec)cz - 24.6.2002 13:42:55
Milan P. Skalsk�, software consultant
OKsystem s.r.o.
Na Pankr�ci 125, 140 21, Praha 4
http://www.oksystem(tec)cz
Skalsky(zv)oksystem(tec)cz, +42 02/44021133
ICQ: 67571111
Ahoj Delphini, mirne OT, ale presto :
Nevite, kde se daji na webu najit statistiky pouzivanosti typu
browseru (staci rozdeleni MSIE, NN, ostatni ...). (nejde mi o statistiky
nejakych konkretnich stranek, ale neco jako globalni pruzkum ci neco
podobneho ...) ... hledam to uz jak dlouho a porad nic kloudneho :(
Milan
OT: Statistiky pouzivanosti typu browseru v CR
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.6.2002 13:49:02
Ahoj,
a co se zeptat napr. TOPlistu, Navrcholu apod., zda by byli ochotni
nejaka data ,,pustit``?
Slavek
> Milan P. Skalsk�, software consultant
> Nevite, kde se daji na webu najit statistiky pouzivanosti typu
> browseru (staci rozdeleni MSIE, NN, ostatni ...). (nejde mi o
> statistiky nejakych konkretnich stranek, ale neco jako globalni
> pruzkum ci neco podobneho ...) ... hledam to uz jak dlouho a porad
> nic kloudneho :(
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Ceckovy zdrojak do Delphi
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 24.6.2002 14:02:47
Zdravim,
v Unixu mam napsanu "knihovnu" v cecku pro parsovani XML. Lze nejakym zpusobem vtlacit ceckove veci do Delphi? Nebo to budu muset prelozit nejakym ceckovym compilatorem pod Win a udelat to jako DLL. Jeste me napada, jestli treba nejdou pripojovat alespon ceckove .o soubory pri linkovani programu do pascalu.
Petr
Ceckovy zdrojak do Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 14:06:00
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> v Unixu mam napsanu "knihovnu" v cecku pro parsovani XML. Lze nejakym
> zpusobem vtlacit ceckove veci do Delphi?
Ne.
> Nebo to budu muset prelozit nejakym ceckovym compilatorem pod Win a udelat
> to jako DLL.
To je mozne reseni.
> Jeste me napada, jestli treba nejdou pripojovat alespon ceckove .o soubory
> pri linkovani programu do pascalu.
Lze sice linkovat .OBJ ale jsou s tim obcas probleny, takze tuhle cestu bych
asi nedoporucil.
Mimochodem, proc to delat slozite ? Co treba pouzit TXMLDocument (Delphi 6)
nebo si naimportovat MS XML parser a pouzit jej rovnou.
Petr
AsyncFree
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 24.6.2002 14:11:16
Cau
pouzivam v nasi aplikaci komponentu z AsyncFree TAfComPort a potrebuji nejak osetrit aby mi ta komponenta zabranila prijmu dat v dobe vysilani (dela mi to tedka echo - vraci to co poslu).
Milos
Ceckovy zdrojak do Delphi
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 24.6.2002 14:12:34
Ja mam D6 Personal a tam pokud vim TXMLDocument neni :-(
Ten MS XML parser - predpokladam, ze je to nejaka ActiveX nebo neco takoveho. Ja ten programek chci mit jen jako jeden exe a bez zavislosti na jinych dll apod.
Tak mi asi nezbyde nic jineho, nez tu knihovnu prepsat do Pascalu. No, treba vyuziju objektu, ale to to budu asi muset cely prekopat ;-)
>
> Mimochodem, proc to delat slozite ? Co treba pouzit
> TXMLDocument (Delphi 6)
> nebo si naimportovat MS XML parser a pouzit jej rovnou.
>
COM technologie v Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 14:14:02
From: <ekonf(zv)atlas(tec)cz>
> Nevite o nejake literature nebo clanku na internetu popisujici problematiku
> COM, DCOM v Delphi (vytvareni COM objektu atd).
http://www.techvanguards.com/
Petr Vones
AsyncFree
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 14:15:14
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
> pouzivam v nasi aplikaci komponentu z AsyncFree TAfComPort a potrebuji nejak
> osetrit aby mi ta komponenta zabranila prijmu dat v dobe vysilani (dela mi
> to tedka echo - vraci to co poslu).
To ti vraci to zarizeni. Pokud to u neho nelze vypnout, tak si to budes muset
programove nejak osetrit, jinak receno odlisit odpovedi od echa tech prikazu.
Petr Vones
Ako vypreparovat DAY, MONTH, YEAR zo stplca DATE a
[*] Tomas Michalik <michalik(zv)proca(tec)cz> - 24.6.2002 13:26:33
Je to popsane v .pdf dokumentaci k IB6 - v casti 'Getting Started'.
Tom
Jaroslav Popluhar wrote:
>
> ==============================================
> ALE, (v docs k IB 6, ani release docs k FB 1.0 som to nenasiel...)
> mohol by mi niekto poslat link na dokument, kde sa to da dozvediet,
> zrejme by tam boli aj dalsie UZITOCNE zaujimavosti...
> ==============================================
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
OT: Statistiky pouzivanosti typu browseru v CR
[*] skalsky(zv)oksystem(tec)cz - 24.6.2002 14:41:30
Jsem sice idealista, ale s jejich ochotou poskytnout statistiky jejich webu
bych nepocital :)
V kazdem pripade i tak diky za pomoc ...
Kdyby to nekdy nekdo shanel ... neco malo jsem nasel na
http://www.webtip(tec)cz/art/wt_titulka/wt_ultimatebrowser.html
http://www.webtip(tec)cz/art/wt_p_html/kompatibilita_prohlizecu.html
http://www.webtip(tec)cz/art/wt_titulka/wt_kompatibilita_css.html
Milan
Milan P. Skalsk�, software consultant
OKsystem s.r.o.
Na Pankr�ci 125, 140 21, Praha 4
http://www.oksystem(tec)cz
Skalsky(zv)oksystem(tec)cz, +42 02/44021133
ICQ: 67571111
-----Original Message-----
From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
Sent: Monday, June 24, 2002 1:49 PM
Subject: Re: OT: Statistiky pouzivanosti typu browseru v CR
Ahoj,
a co se zeptat napr. TOPlistu, Navrcholu apod., zda by byli ochotni
nejaka data ,,pustit``?
Slavek
Ceckovy zdrojak do Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 15:00:59
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Ten MS XML parser - predpokladam, ze je to nejaka ActiveX nebo neco
> takoveho. Ja ten programek chci mit jen jako jeden exe a bez zavislosti na
COM objekt.
> jinych dll apod.
Pak si musis napsat znovu cely operacni system.
Petr Vones
Ceckovy zdrojak do Delphi
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.6.2002 15:08:51
Ahoj,
On 24 Jun 2002 at 14:12, Da a Petr wrote:
> Ja mam D6 Personal a tam pokud vim TXMLDocument neni :-(
*****Ne, Borland si ho smesne sysli zcela nepchopitelne az pro verzi
Enterprise.
> Ten MS XML parser - predpokladam, ze je to nejaka ActiveX nebo neco
> takoveho. Ja ten programek chci mit jen jako jeden exe a bez
> zavislosti na jinych dll apod. Tak mi asi nezbyde nic jineho, nez tu
> knihovnu prepsat do Pascalu. No, treba vyuziju objektu, ale to to budu
> asi muset cely prekopat ;-)
*****Neblbni. Pouziti MS parseru neni nic vulgarniho a k soudu za to
nepujdes. Navic jde o kvalitni parser (a je vsude, kde to zije, tedy
kde je IE5 a vyssi). Pokud presto potrebujes svuj EXE zvetsovat o
zbytecnosti, podivej se po jiz existujicich komponentach, napr. sem:
http://www.destructor.de/xmlparser/index.htm
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
pouziti BPL (z C++ Builderu)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 15:10:00
From: "PeJaSoft" <pejasoft(zv)volny(tec)cz>
> Mam sadu trid v C++ v nekolika *.cpp souborech. Tyhle tridy potrebuju pouzit
> v Delphi, ale nevim jak na to.
Prepsat do Object Pascalu.
Petr Vones
Ceckovy zdrojak do Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 15:12:26
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> kde je IE5 a vyssi). Pokud presto potrebujes svuj EXE zvetsovat o
> zbytecnosti, podivej se po jiz existujicich komponentach, napr. sem:
> http://www.destructor.de/xmlparser/index.htm
Pokud vim, tak v tomhle parseru jsou chyby. Pouziti MS XML je podle mne asi
nejlepsi reseni.
Petr Vones
Ceckovy zdrojak do Delphi
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.6.2002 15:22:43
On 24 Jun 2002 at 14:12, Da�a Petr wrote:
> Ja mam D6 Personal a tam pokud vim TXMLDocument neni :-(
Pokud zkusis Project / Import type library / Microsoft XML, tak ho
tam budes mit.
S pozdravem
Zbysek Hlinka
Exkluzivni otevirani souboru
[*] Petr Ku�era <pkucera(zv)vri(tec)cz> - 24.6.2002 15:26:25
Dobry den,
prosim Vas, mam nasledujici problem: V aplikaci chci exkluzivne otevirat
nejake soubory (konkretne 2), ale v jeden okamzik vzdy nejvyse 1. Tim chci
zarucit to, ze konkretni akci bude vykonavat pouze 1 uzivatel v siti. Tyto
soubory oteviram pomoci funkce FileOpen. Kdyz s danou akci skoncim, tak
tento soubor chci uvolnit pomoci FileClose a pokud chci delat jinou akci,
tak pomoci FileOpen oteviram zase dalsi soubor v exkluzivnim modu. Zde ale
nastava ten problem. Kdyz otevru 1. soubor, tak je vse OK. Kdyz chci pozdeji
otevrit ten druhy soubor, tak mi funkce FileOpen vraci hodnotu -1 (coz by
melo znamenat chybne otevreni souboru). Kdyz tyto soubory oteviram ve dvou
prikazech bezprostredne za sebou, tak je vse opet v poradku. Muze mi nekdo,
prosim, vysvetlit, proc se to tak chova?
Dekuji.
S pozdravem Petr Kucera.
Ceckovy zdrojak do Delphi
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 24.6.2002 15:30:22
Diky, koukal jsem na to. Podle toho importu by to mela byt jedna DLL knihovna. Nevite nekdo, jestli to nahodou nebude chtit jeste nejakou jinou? Kdyz bych tu DLL teda daval k tomu exaci... (kdyby nahodou nebyla v systemu).
Jo a mam tam verzi 2 a verzi 3. Predpokladam, ze asi bude lepsi pouzit tu 3, ze? Ale importuje dve jine tridy, nez ta 2, tak nevim - a je ta 3 odzkousena?
>
> Pokud zkusis Project / Import type library / Microsoft XML, tak ho
> tam budes mit.
>
pouziti BPL (z C++ Builderu)
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 24.6.2002 15:33:18
:-) Dobrej vtip. Nicmene, mi to moc nepomohlo. Ver, ze pokud bych na to mel
cas, tak bych to prepsal, ale ten cas neni. Proto pisu do konference.
Petr J.
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "PeJaSoft" <pejasoft(zv)volny(tec)cz>
> > Mam sadu trid v C++ v nekolika *.cpp souborech. Tyhle tridy potrebuju
pouzit
> > v Delphi, ale nevim jak na to.
>
> Prepsat do Object Pascalu.
>
> Petr Vones
pouziti BPL (z C++ Builderu)
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.6.2002 15:46:45
Ahoj,
> pejasoft(zv)volny(tec)cz 24.6.02 13:03 >>>
>Mam sadu trid v C++ v nekolika *.cpp souborech. Tyhle tridy potrebuju pouzit v Delphi, ale nevim jak na to.
tridy nebo komponenty napsane v BCB nikdy nedostanes do Delphi, obracene ano, ale BCB -> Delphi to musis kompletne prepsat nebo dostavat fce pomoci DLLka.
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Ceckovy zdrojak do Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 15:53:50
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Diky, koukal jsem na to. Podle toho importu by to mela byt jedna DLL
> knihovna. Nevite nekdo, jestli to nahodou nebude chtit jeste nejakou jinou?
> Kdyz bych tu DLL teda daval k tomu exaci... (kdyby nahodou nebyla v
> systemu).
Tu DLL nemuzes distribuovat navic by jsi ji musel jeste zaregistrovat. Misto
toho existuje instalace MS XML, hledej na MSDN:
> Jo a mam tam verzi 2 a verzi 3. Predpokladam, ze asi bude lepsi pouzit tu 3,
> ze? Ale importuje dve jine tridy, nez ta 2, tak nevim - a je ta 3
> odzkousena?
Posledni verze je tusim 4.01
Petr Vones
OT: jak udelat select z databaze
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 24.6.2002 15:56:56
Zdravim
Mam vytvorenou databazi v accessu (*.mdb). Pripojil jsem ji pres ODBC.
A chci si napsat programek ktery s ni bude pracovat a chci to napsat v
delphi. Jak Aplikuji SQL dotaz na tu databazi a jak muzu pracova s
temi vysledky. Nechci pouzivat nijak DBGrid chci skratka vypsat
vysledky z treba nejakeho selectu.\
Diky moc v Databaze jsem nikdy v delphi neprogramoval
S pozdravem Milan
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Exkluzivni otevirani souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 15:56:40
From: "Petr Ku�era" <pkucera(zv)vri(tec)cz>
> nastava ten problem. Kdyz otevru 1. soubor, tak je vse OK. Kdyz chci pozdeji
> otevrit ten druhy soubor, tak mi funkce FileOpen vraci hodnotu -1 (coz by
> melo znamenat chybne otevreni souboru). Kdyz tyto soubory oteviram ve dvou
Podrobnosti zjistis z toho o jakou chybu jde, pomoci RaiseLastWin32Error.
Petr Vones
pouziti BPL (z C++ Builderu)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.6.2002 16:05:20
Ahoj,
> :-) Dobrej vtip. Nicmene, mi to moc nepomohlo. Ver, ze pokud bych na
> to mel cas, tak bych to prepsal, ale ten cas neni. Proto pisu do
> konference.
*****Ano, Borland je velky ftipalek, bohuzel to vsak mysli i vazne.
Kdysi jsem mel podobny problem, ktery jsem vyresel tak, ze nonVCL kod
sel do DLL, zbytek jsem holt opravdu musel prepsat do Delphi. Ovsem
zde velmi zalezi na povaze tvych zdrojovych kodu.
Slavek
> Petr J.
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Chyba pri pokracovani programu po breaku2
[*] Jan P��ek������z?ܢw��̿ - 24.6.2002 16:10:39
prosim o radu, v cem muze byt problem, kdyz vzdy po zastaveni programu na mem breakpointu a naslednem pokracovani aplikace (F9) Delphi5 hlasi chybu -Invalid floating point operation. Break se pritom muze vyskytovat kdekoliv v programu.Jiz jsem se tu na toto nedavno ptal,a od te doby se mi podarilo odstranenim nezadouciho jazykoveho souboru docilit stavu, ze nyni miri kurzor na radek s aritmetickou operaci deleni (nulou se tam podle debaggeru nedeli). Prosel jsem i historii konference, kde se treba tento problem resil u starsich verzi procesoru (Mam Notebook CELERON 850MHz, Win ME), ale nikam jsem se nedostal.
V pripade rady Petra Vonese (-Mozna je v danem procesu nahrana nejaka DLL ktera meni nastaveni FPU CW flagu) nevim, jak dale postupovat. Tento jev nenastava na starsim pocitaci s WIN95 233MHz.
Dekuji velmi za pomoc, tento problem mi prakticky znemoznuje efektivni hledani jinych skutecnych problemu v me aplikaci.
Jan Pecek
pouziti BPL (z C++ Builderu)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.6.2002 16:15:24
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Kdysi jsem mel podobny problem, ktery jsem vyresel tak, ze nonVCL kod
> sel do DLL, zbytek jsem holt opravdu musel prepsat do Delphi. Ovsem
> zde velmi zalezi na povaze tvych zdrojovych kodu.
Pokud se jedna o nejake obecne veci bez zavislosti na VCL a ten kod ma byt
pouzitelny ve vice prostredich, tak je asi idealni to napsat jako COM objekt.
Petr Vones
Ceckovy zdrojak do Delphi
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.6.2002 16:17:26
> > zbytecnosti, podivej se po jiz existujicich komponentach, napr. sem:
> > http://www.destructor.de/xmlparser/index.htm
> Pokud vim, tak v tomhle parseru jsou chyby. Pouziti MS XML je podle
> mne asi nejlepsi reseni.
****No, na zakladni veci pouzitelny je, nektere chyby byly
odstraneny, ale z meho textu snad bylo zrejme, ze doporucuji sahnout
po MS XML, ktere taktez povazuji za soucasne situace jako
neschudnejsi. :-) Ostatne xml parser z destructoru neumi treba
provadet validitu dokumentu dle DTD ci XSL, coz povazuji za hodne
silny nedostatek.
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Re[2]: Ceckovy zdrojak do Delphi
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 24.6.2002 16:17:41
Podle me je mala sance ze by to chtelo jen jednu knihovnu. Nevim jak
je to s licenci, ale myslim ze instalaci XML parseru lze stahnout i
samostatne a nabizet ke stazeni u programu.
Ohledne verzi: verze 3 bude samozrejme narocnejsi na novejsi verze te
DLL, verze 2 bude univerzalnejsi.
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
-------------------------------------------
Monday, June 24, 2002, 3:30:22 PM, you wrote:
DP> Diky, koukal jsem na to. Podle toho importu by to mela byt jedna DLL knihovna. Nevite nekdo, jestli to nahodou nebude chtit jeste nejakou jinou? Kdyz bych tu DLL teda daval k tomu exaci... (kdyby
DP> nahodou nebyla v systemu).
DP> Jo a mam tam verzi 2 a verzi 3. Predpokladam, ze asi bude lepsi pouzit tu 3, ze? Ale importuje dve jine tridy, nez ta 2, tak nevim - a je ta 3 odzkousena?
>>
>> Pokud zkusis Project / Import type library / Microsoft XML, tak ho
>> tam budes mit.
>>
Problem s komponentou ActiveX
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 24.6.2002 16:22:00
Naimportoval jsem do Delphi komponentu ActiveX (pripona OCX). Nevim jak
pracovat s treti parametrem procedury "varBuffer" typu OleVariant. Parametr
by mel predstavovat pole bajtu v nemz jsou obsazeny data (obrazek jpg).
Muze mi nekde poradit jakou promennou mam nadefinovat, aby jsem se dostal k
dotycnemu poli bajtu. Idealni by bylo dostat to bud primo do TJpegImage nebo
aspon do TMemoryStream.
Ve Visual Basicu, tam predavaji promennou typu pole bajtu, ktere je
nadimenzovano na patricnou velikost "nBuffSize".
procedure TRye.GetPreview(nCamNo: Integer; nBuffSize: Integer; varBuffer:
OleVariant);
begin
DefaultInterface.GetPreview(nCamNo, nBuffSize, varBuffer);
end;
F.
Problem s komponentou
Chyba pri pokracovani programu po breaku2
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.6.2002 16:26:36
DD,
pouzivas Local Variables okno?
D. Toman
----- Original Message -----
From: "Jan P��ek" <jpecek(zv)conel(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 24, 2002 4:10 PM
Subject: Chyba pri pokracovani programu po breaku2
mm na pixely
[*] Slavomir Cekel <cekel(zv)noves.sk> - 24.6.2002 16:37:13
Zdravim ...
chcem vytlacit na tlaciarni ciaru napr.: 0.5 mm hrubky ... do
Canvas.Pen.Width ale zadavam pixely, existuje nejaka funkcia premeny mm
na pixely ?
Slavo
Zjisteni behu volaneho programu
[*] Petr Ku�era <pkucera(zv)vri(tec)cz> - 24.6.2002 17:03:31
Dobry den jeste jednou,
prosim Vas, da se nejak jednoduse zjistit, zda-li bezi nejaky program,
ktery jsem z me aplikace spustil napr. pomoci WinExec?
Dekuji.
Petr K.
mm na pixely
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.6.2002 17:18:13
> existuje nejaka funkcia
> premeny mm na pixely ?
const
MapovaciMod=mm LoMetric;
{
MapovaciMod:=mm LoEnglish; // 1/100 in
MapovaciMod:=mm HiEnglish; // 1/1000 in
MapovaciMod:=mm LoMetric; // 1/10 mm
MapovaciMod:=mm HiMetric; // 1/100 mm
}
.........
SetMapMode(Printer.Canvas.Handle, MapovaciMod)
.........
nyni kreslis co pixel to 0,1mm.
peca
mm na pixely
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 24.6.2002 17:22:32
> existuje nejaka funkcia
> premeny mm na pixely ?
Ak to potrebujes ciselne - pozri v helpe funkcie LPtoDP a DPtoLP.
jg
Optimalizace db FB
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 24.6.2002 18:26:18
> jak lze optimalizovat databazi FireBird?
Spravnym ERD modelem, to zrychli nejvice.
> pakovat, uvolnit misto po smazanych zaznamech?
> asi tady ted budu davat otazky casteji...
Backup/restore, jinak to nejde.
Slavek
Asociace pod User uctem
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.6.2002 18:58:44
Obavam se, ze normalni uzivatel to pravo nema :-(
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.6.2002 Milan Schembera:
> Nene, ja jsem psal HKCR - HKEY_CLASSES_ROOT
> Potrebuju asociovat priponu...
Zjisteni behu volaneho programu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.6.2002 19:07:10
TmEgdGFrb3ZlIHZlY2kgc2UgbmVwb3V6aXZhIFdpbkV4ZWMsIGFsZSBDcmVhdGVQcm9jZXNzLiBI
bGVkYWogdg0KYXJjaGl2dSBrb25mZXJlbmNlIGZ1bmtjaSBXaW5FeGVjQW5kV2FpdDMyLiBKZSB0
byB6YXBvdXpkcmVueQ0KQ3JlYXRlUHJvY2VzcyBwcm8gc3Rlam5lIHBvdXppdGkgamFrbyB1IFdp
bkV4ZWMuDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoN
CjI0LjYuMjAwMiBQZXRyIEt16GVyYToNCj4gICAgICAgICBwcm9zaW0gVmFzLCBkYSBzZSBuZWph
ayBqZWRub2R1c2Ugemppc3RpdCwgemRhLWxpIGJlemkgbmVqYWt5IHByb2dyYW0sDQo+IGt0ZXJ5
IGpzZW0geiBtZSBhcGxpa2FjZSBzcHVzdGlsIG5hcHIuIHBvbW9jaSBXaW5FeGVjPw==
Multiplatformne programovanie
[*] Vlko II. <vlko_(zv)pobox.sk> - 24.6.2002 19:31:48
Mohol by som sa spytat, ci niekto nepozna nejaky program v ktorom by sa dali vyvijat
multiplatformne aplikacie. Nieco ako je spojenie Kylix + Delphi, len aby to podporovalo
C++.
Za skoru odpoved vopred dakujem
Vlko
--------------
vlko_(zv)pobox.sk Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 24.6.2002 19:35:21
Hello, bleak!
You wrote:
b> jak lze optimalizovat databazi FireBird?
b> pakovat, uvolnit misto po smazanych zaznamech?
Toto neni nutne. Misto po smazanych zaznamech bude pouzito priste.
Zapomen na dbf.
With best regards, Alex Cherednichenko.
Rychlost FB?
[*] <bleak(zv)atlas(tec)cz> - 24.6.2002 19:40:11
diky vsem za informace. vytvoril jsem vhodne indexy a rychlost SELECTu (z cca 500 000 recs) se zvysila z cca az 6 sekund na par desetin vteriny, je to prakticky okamzite, super.
bleak
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> on behalf of "Karel Rys" <delphi(zv)zas-me(tec)cz>
Ahoj,
tyto dotazy budou velice rychle, pokud hledas podle indexovanych poli; doporucuji vyzkouset, ale
kdyz na ID1 budes mit index, bude to podle me bleskove...
FB rychle vkladani zaznamu
[*] <bleak(zv)atlas(tec)cz> - 24.6.2002 19:42:52
diky, vkladani se zrychlilo, kdyz jsem po vlozeni kazdych 1000 zaznamu provedl
ibTable.Close
Application.ProcessMessages
ibTable.Open
vyreseno...
bleak
-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> on behalf of "Ing. Marek Kocan"
Ano, indexy urcite zpomaluji vkladani, ale daji se deaktivovat, k tomu take
smerovala ta ma prvni rada. Naznaceni:
1) pres BDE a l�kalni SQL vytahnout data z DBF (nebo pomoci Table)
2) v cyklu sestavovat pri prochazeni (1) INSERT
3) INSERT ziskany z (2) v tomtez cyklu posilat pres IBSQL do FB
Na transackce slouzi IBTransaction, je treba ji zahajit a napriklad po 100
zaznamech (tedy INSERTECH v cyklu (2), kde provadis (3) ) vyvolat commit
(IBTransaction.commit).
Je to zkratkovite, snad to bude stacit. KER
Asociace pod User uctem
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 24.6.2002 20:17:18
To si taky myslim ;-)
Prave proto jsem se ptal, jestli se to necha nejak obejit. Napr. pres HKCU.
> -----Original Message-----
> From: ing. Jan Fiala
> Obavam se, ze normalni uzivatel to pravo nema :-(
>
>
> 24.6.2002 Milan Schembera:
> > Nene, ja jsem psal HKCR - HKEY_CLASSES_ROOT
> > Potrebuju asociovat priponu...
>
FireBird Role a USER
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.6.2002 20:27:25
Haj hou!
On 21 Jun 2002 at 7:11, Ales Pavel wrote:
> Ahoj kluci potreboval bych trochu administrovat FB a nevim jak mam vytvorit
> uzivatelsky prava a jak se starat o pristup k tabulkam a jak osetrit chybny
> pristup...
> Hlavne jsem nevedel jak vytvorit usera nad DB a jak nastavit jeho
> prava...moc diky za podrobny popis pro blbecka:-)
Podrobny popis by byl na dlouhy loket, takze te jen nasmeruju na dokumentaci :-
) Na www.ibphoenix.com by mel byt odkaz na dokumentaci k IB, kde si pak
dohledas SQL prikazy GRANT a REVOKE pro pridelovani a odnimani prav.
Vytvoreni uzivatele se provadi bud programem gsec z prikazove radky, nebo
nejakou GUI konzoli (najdes v menu nespise jako User Management).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Asociace pod User uctem
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.6.2002 20:33:48
Pres RegEdt32 je mozne pridelit opravneni na cast registru pro
uzivatele. Ale to se ti asi libit nebude.
Tu asociaci by mel provest uzivatel, ktery ma pravo instalovat sw.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.6.2002 Milan Schembera:
> To si taky myslim ;-)
> Prave proto jsem se ptal, jestli se to necha nejak obejit. Napr. pres HKCU.
ExtractIconEx
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.6.2002 20:36:23
23.6.2002 Zdenek Stepanek:
> procedure TSetupForm.PaintActIcon(Sender : TObject);
> var Ikona1,Ikona2: HIcon;
> begin
> ExtractIconEx(Pchar(program1), Round(RxSpinEdit1.Value),Ikona2,Ikona1,1);
> Image1.Picture.Icon.Handle := Ikona1;
> end;
> P.S.: Round tam je pro prevedeni Extended na Integer, urcite je lepsi
> reseni, ale nemel jsem cas ho hledat. Nevite o necem?
A co treba Int(RxSpinEdit1.Value) ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Asociace pod User uctem
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 24.6.2002 20:42:32
Ano, tohle vsechno vim. ;-)
Nicmene jsem v prvopocatku psal, ze si tu aplikaci stahuji analfabeti, kteri
ji horko-tezko zvladaji instalovat (spustit jedno exe), natoz pak delat
takovy saky paky ;-)
> -----Original Message-----
> From: ing. Jan Fiala
>
> Pres RegEdt32 je mozne pridelit opravneni na cast registru pro
> uzivatele. Ale to se ti asi libit nebude.
> Tu asociaci by mel provest uzivatel, ktery ma pravo instalovat sw.
Asociace pod User uctem
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.6.2002 21:31:56
Asi to chce napsat FAQ soubor pro analfabety a na nej se odkazovat. A
ten prikladad k aplikaci (popr. jej primo z aplikace otevrit)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.6.2002 Milan Schembera:
> Ano, tohle vsechno vim. ;-)
> Nicmene jsem v prvopocatku psal, ze si tu aplikaci stahuji analfabeti, kteri
> ji horko-tezko zvladaji instalovat (spustit jedno exe), natoz pak delat
> takovy saky paky ;-)
FB rychle vkladani zaznamu
[*] Petr Palicka aka PeC(zv) <petr.palicka(zv)atlas(tec)cz> - 24.6.2002 21:33:54
> ibTable.Close
> Application.ProcessMessages
> ibTable.Open
aahhmm, prosimte,
nezvykej si pouzivat TIBTable.
zvykni si na praci s TIBSQL,
popripade TIBDataSet. nekterych
navyku se pak dost tezko zbavuje.
peca
OT: Re: Statistiky pouzivanosti typu browseru v CR
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 24.6.2002 21:47:50
Toto jsou statisticke udaje z informacniho webu za cca 6500 unikatnich
navstev.
MS Internet Explorer --------- 96.4 %
Netscape --------- 1.2 %
Nezn�m� --------- 1.1 %
Opera --------- 0.4 %
UP.Browser (PDA/Phone browser) --------- 0.4 %
Konqueror --------- 0 %
Nokia Browser (PDA/Phone browser) --------- 0 %
Microsoft Mobile Explorer (PDA/Phone browser) --------- 0 %
TelePort Pro (site grabber) --------- 0 %
iCab --------- 0 %
Lynx --------- 0 %
Links --------- 0 %
LibWWW --------- 0 %
Go!Zilla --------- 0 %
WebZIP --------- 0 %
Pouzite verze IE:
MSIE/1.xx ----------- 0 %
MSIE/2.xx ----------- 0 %
MSIE/3.xx ----------- 0.1 %
MSIE/4.xx ----------- 7.9 %
MSIE/5.xx ----------- 63.2 %
MSIE/6.xx ----------- 28.6 %
Pouzite Netscapy:
Mozilla/2.xx ----------- 0 %
Mozilla/3.xx ----------- 11.2 %
Mozilla/4.xx ----------- 60.4 %
Mozilla/5.xx ----------- 28.3 %
Prepisoval jsem to rucne, takze pokud jsem se nekde utuknul, tak sorry.
VJ
----- Original Message -----
From: <skalsky(zv)oksystem(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 24, 2002 1:42 PM
Subject: OT: Statistiky pouzivanosti typu browseru v CR
Milan P. Skalsk�, software consultant
OKsystem s.r.o.
Na Pankr�ci 125, 140 21, Praha 4
http://www.oksystem(tec)cz
Skalsky(zv)oksystem(tec)cz, +42 02/44021133
ICQ: 67571111
Ahoj Delphini, mirne OT, ale presto :
Nevite, kde se daji na webu najit statistiky pouzivanosti typu
browseru (staci rozdeleni MSIE, NN, ostatni ...). (nejde mi o statistiky
nejakych konkretnich stranek, ale neco jako globalni pruzkum ci neco
podobneho ...) ... hledam to uz jak dlouho a porad nic kloudneho :(
Milan
Vnoreny dotaz v InterBase/Firebird ?
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.6.2002 21:47:52
Haj hou!
On 23 Jun 2002 at 19:19, Jaroslav Popluhar wrote:
> Je mozne pouzit vnoreny dotaz v casti FROM?
Takovy sub-select se jmenuje VIEW :-)))
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Krokovani SP v IB
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.6.2002 23:04:11
<<< 24. 6. 2002 23:03 - little_bobes(zv)centrum(tec)cz "little_bobes(zv)centrum(tec)cz" >>>
EMS QuickDesk, ale mam taky pocit, ze ten soft sa stale viac kazi, nez
opravuje.
lcc> nezna nahodou nekdo nejaky nastroj na krokovani SP
Toto vie.
lcc> (popripade TRIGGERu) v IB?
TOto uz nevie
--
Best regards, TRoland
Ramecek na TDBLookupComboBoxu
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 24.6.2002 23:34:32
Ahoj,
potreboval bych, prosim, poradit s nasledujicim:
mam TDBLookupComboBox a Ctl3D nastaveno na False,
ale kolem comba se vykresluje cerny ramecek. Zkousel
jsem si combo vykreslovat sam pomoci TControlCanvas,
nejak se nedari. Ramecek se tvrdosijne vykresluje
porad.
Lze nejak docilit u TDBLookupComboBoxu vzhled jako
kdyz je napr. u TEditu nastevno BorderStyle na bsNone,
tzn. zadny ramecek okolo komponenty?
(Delphi5 Pro)
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
jak udelat select z databaze
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.6.2002 23:56:22
Ahoj,
nejdulezitejsi je co mas za Delphi, protoze cim vyssi verzi mas tim vice
moznosti muzes mit :
OLEDB - viz Zbyskovy komponenty atd.
ODBC - vsude Delphi
ADO - D6Ent,D6Prof, D5Ent
a dalsi 3rd Party komponenty pro pristup k datum
Osobne doporucuju prave pro jednoduchost pouzit ADO, jednoduchy select se
dela takto:
hodis si na form TAdoDataset a nastavis v nem spravny ConnectionString, do
Property Text vyplnis ten jednoduchy select a das Active:=True;
a muzes vypisovat treba pomoci:
while not adodataset1.Eof do
begin
for i:=0 to adodataset1.FieldCount-1 do
begin
AdoCommand1.Parameters[i].value:=Adodataset1.FieldValues[adodataset1.Fields[
i].FieldName];
end;
AdoCommand1.Execute;
Adodataset1.Next;end;
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vymazal Milan
Sent: Monday, June 24, 2002 8:41 AM
Zdravim
Mam vytvorenou databazi v accessu (*.mdb). Pripojil jsem ji pres ODBC.
A chci si napsat programek ktery s ni bude pracovat a chci to napsat v
delphi. Jak Aplikuji SQL dotaz na tu databazi a jak muzu pracova s
temi vysledky. Nechci pouzivat nijak DBGrid chci skratka vypsat
vysledky z treba nejakeho selectu.\
prace s GSM zarizenim
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.6.2002 07:11:35
>Zajimalo by mne, ktery mobil podporuje textovy mod posilani SMS. Siemens C35
>ma PDU....
Textovy rezim je docela hloupy, protoze se da poslat jen 140 znaku. Kdezto
pomoci PDU i 160 a navic i treba (pokud je cilem NOKIA) i vice ->
rozdelovat na vicero SMSek. Navic PDU je rychlejsi. Telefon nemusi nic kodovat. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
algoritmy pro t��d�n�
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.6.2002 07:17:11
Pokud chces opravdu algoritmus, pak ti neporadim, ale ja osobne pouzivam
"TList" ci "TObjectList", ci "TStringList", do ktereho nasypu data a pak dam
TList.Sort(metoda)
nebo
TObjectList.Sort(metoda)
nebo
TStringList.Sorted:=true;
kde "metoda" je f-ce na porovnani dvou prvku (-1,0,1 => A je mensi, A je
stejne, A je vetsi). Sort je totiz QuickShort. Mimochodem, da se pouzit i
samostene, staci se podivan na jeho implementaci v unitach VCL. Dle meho je
to asi nejjednodusi cesta jak seradit nejaky seznam.>diky za odpovedi, ja ale potrebuji skutecne pouze algoritmus Quick sort a to
>nerekurzivni....
>bleak
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
None
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.6.2002 07:18:26
ToolBar2000 -> http://www.jrsoftware.org/tb2k.php
>Hmm, ja pracuju v D5Prof, nebylo by jine reseni?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
ExtractIconEx
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.6.2002 07:30:29
> > P.S.: Round tam je pro prevedeni Extended na Integer, urcite je
> > lepsi reseni, ale nemel jsem cas ho hledat. Nevite o necem?
>
> A co treba Int(RxSpinEdit1.Value) ?
>
Int ale vytvori realne cislo s nulovou desetinnou casti.
To Zdenek:
Realne cislo se prevede na integer pomoci round (zaokrouhleni) nebo trunc
(odseknuti desetinne casti) - podle toho, co potrebujes.
David
OpenSource - Re: TDBF a zavirani souboru
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.6.2002 07:39:02
>Jenze oni by zo to dvakrat neplatili! Nezaplatili za porizeni a max. zaplati
>za novou upravu (takze nula od nuly pojde :-) )
A kdo jim to nainstaluje, vysvetli, zprovozni? To je souacst normalniho
placeneho SW. Stejne tak si urcite vezmou nejakou firmu, ktera se tim
OpenS. SW zabyva a toto jim udela. Je to sice levnejsi, ale plati stejne.
Pochybuji, ze se v kazde firme najde nadsenec, ktery toto udela a zvladne. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Multiplatformne programovanie
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 25.6.2002 08:34:31
Ahoj,
.NET Framework. Multiplatforme zatim na Windows a na jednom z UNIXU,
na Linux existuje open source projekt, ale v jakem je stavu, nevim.
No a vyvijet muzes i za pomoci Notepadu, ovsem velmi kvalitni je
Visual Studio .NET (recenze viz
http://atrey.karlin.mff.cuni(tec)cz/~rk/vsdotnet.shtml) ci ted asi tyden
nove uvolneny free nastroj pro ASP.NET pojmenovany Web Matrix
(http://www.asp.net/webmatrix/). Na .NET Frameworku na jazyku
nezalezi, takze muzes mit kus v C++ (managed code), dalsi treba v C#
a treti treba ve VB.NET. Navic to neni interpretovane a tudiz
nechutne pomale jako treba Java.
Slavek
On 24 Jun 2002 at 19:31, Vlko II. wrote:
> Mohol by som sa spytat, ci niekto nepozna nejaky program v ktorom by
> sa dali vyvijat multiplatformne aplikacie. Nieco ako je spojenie Kylix
> + Delphi, len aby to podporovalo C++.
> vlko_(zv)pobox.sk
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Byte - Low a High True Bit
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 25.6.2002 08:35:46
Existuje nejaka funkce nebo jednoduchy postup, jak z bytu zjistit, na kterem
miste je nejvyssi a nejnizsi bit = 1? Napr. pro 00110010, low=1, high=5
Zjistovani pomoci vice if mi nepripada optimalni.
Diky
ober
Byte - Low a High True Bit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2002 08:48:19
> Existuje nejaka funkce nebo jednoduchy postup, jak z bytu zjistit,
na kterem
> miste je nejvyssi a nejnizsi bit = 1? Napr. pro 00110010, low=1,
high=5
>
> Zjistovani pomoci vice if mi nepripada optimalni.
pak uz zbyva snad jedine prepsat do ASM ( rotovat vlevo a vpravo prez
carry flag a ten testovat)
Rychla varianta bude vyrobit tabulku o 2 x 256 polozkach, ve kterych
bude zaznamenany ten nejvyssi a nejnizzsi bit. Pak staci pouzit
testovanou hodnotu jako index do tabulky. I kdyz je otazka zda ty
rotace v ASM nebudou srovnatelne rychle...
D. Toman
SELECT BOOK (ideal pre IB/FB)
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 25.6.2002 08:59:43
Zhanam nejaku literaturu (aj OnLine dokumenty) pre cvicenia zlozitejsich
selectov,
ktore by pripadne obsahovali aj nejake (vseobecne, alebo aj DB zavisle)
odporucania
na ich optimalizaciu.
Vie niekto nieco odporucit?
S pozdravom
J. Popluhar, IB/FB greenhorn
Zastupne znaky do klauzuly LIKE pre IB/FB
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 25.6.2002 09:00:45
Kde by som sa mohol docitat o %subj% (okrem % a _)?
S pozdravom
J. Popluhar, IB greenhorn
Byte - Low a High True Bit
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 25.6.2002 09:04:06
> > Existuje nejaka funkce nebo jednoduchy postup, jak z bytu zjistit,
> na kterem
> > miste je nejvyssi a nejnizsi bit = 1? Napr. pro 00110010, low=1,
> high=5
Dalibor Toman dne 25 Jun 2002 v 8:48:
> pak uz zbyva snad jedine prepsat do ASM ( rotovat vlevo a vpravo prez
> carry flag a ten testovat)
Ahoj,
ja myslim, ze na tohle je v ASM primo instrukce, ktera vraci pozici toho bitu, tj. neni treba to
testovat v cyklu s rotacemi. Je mi lito, ale nevim z hlavy jeji nazev a nemam tu po ruce zadnou
dokumentaci - na strankach Intelu se dala stahnout.
Karel Rys
Vnoreny dotaz v InterBase/Firebird ?
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 25.6.2002 09:08:28
Tazatel mel asi na mysli neco podobneho, co umi Oracle
select * from
(select meno, count(*) as pocet from zakaznik
where meno > '' group by meno
union all
select meno, count(*) as pocet from pracovnik
where meno > '' group by meno)
order by 1
Mne by taky zajimalo, jestli to umi IB/FB.
Martin Ben
> -----Original Message-----
> From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
>
> Haj hou!
>
> On 23 Jun 2002 at 19:19, Jaroslav Popluhar wrote:
>
> > Je mozne pouzit vnoreny dotaz v casti FROM?
>
> Takovy sub-select se jmenuje VIEW :-)))
Byte - Low a High True Bit
[*] Delphin <delphin(zv)post(tec)cz> - 25.6.2002 09:13:46
Nemusis nic rotovat ani vyrabet tabulku. Presne na toto existuji
specializovane instrukce BSF a BSR. Vysledkem je primo index prvniho
nenuloveho bitu.
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 25, 2002 8:48 AM
Subject: Re: Byte - Low a High True Bit
>
> > Existuje nejaka funkce nebo jednoduchy postup, jak z bytu zjistit,
> na kterem
> > miste je nejvyssi a nejnizsi bit = 1? Napr. pro 00110010, low=1,
> high=5
> >
> > Zjistovani pomoci vice if mi nepripada optimalni.
>
> pak uz zbyva snad jedine prepsat do ASM ( rotovat vlevo a vpravo prez
> carry flag a ten testovat)
>
> Rychla varianta bude vyrobit tabulku o 2 x 256 polozkach, ve kterych
> bude zaznamenany ten nejvyssi a nejnizzsi bit. Pak staci pouzit
> testovanou hodnotu jako index do tabulky. I kdyz je otazka zda ty
> rotace v ASM nebudou srovnatelne rychle...
>
> D. Toman
>
>
>
Balicky podruhe
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 25.6.2002 08:17:52
Zdravim vsechny,
nikdo nereagovalna muj dotaz ohledne balicku, tak to zkusim znovu.
Mam aplikaci s balicky, jak mohu z balicku zavolat urcitou funkci v hlavni
casti aplikace, ci
pristupovat k datamodulu ktery je taky v hlavni aplikaci. je jina moznost
nez pouziti
findcomponent a pokud to je tabulka tak ji vratit? Ale jak zavolam funkci,
ktere neni komponentou.
Dekuji predem za vsechny vycerpavaji odpovedi.
S pozdravem
Martin Radvansky
Byte - Low a High True Bit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2002 09:22:02
>
> > pak uz zbyva snad jedine prepsat do ASM ( rotovat vlevo a vpravo
prez
> > carry flag a ten testovat)
>
> Ahoj,
>
> ja myslim, ze na tohle je v ASM primo instrukce, ktera vraci pozici
toho bitu, tj. neni treba to
> testovat v cyklu s rotacemi. Je mi lito, ale nevim z hlavy jeji
nazev a nemam tu po ruce zadnou
> dokumentaci - na strankach Intelu se dala stahnout.
>
mas pravdu - BSF a BSR (zrejme ale neumi pracovat s bytem - ale az s
word/dword) se da primo pouzit.
Kdyz uz jsme v tom tak XLAT (preklad z tabulky) bude rychlejsi,
protoze
BSx je docela narocna na CPU cykly (alespon na 486ce - nemam po ruce
tabulku pro modernejsi CPU)
D. Toman
Tisk s nahledem
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 25.6.2002 09:27:34
Ahoj
pouzivam pro tisk jednoduchy mechanismus:
AsSignPrn(T);
ReWrite(T);
Printer.Title:='My Print-Job';
Printer.Canvas.Font.Name:='Courier New';
Printer.Canvas.Font.CharSet:=EASTEUROPE_CHARSET;
Printer.Canvas.Font.Size:=11;
Printer.Canvas.Font.Style := [fsBold];
WriteLn(T,ccPrintHeader);
WriteLn(T);
... // a tisknu porad pryc
CloseFile(T);
Potreboval bych toto vytisknout tak, abych to mohl uzivateli zobrazit napr. v nejakem panelu (neco jako preview). Nemate s tim nekdo zkusenost ?
Diky
Jaro B.
Balicky podruhe
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.6.2002 09:31:40
> Mam aplikaci s balicky, jak mohu z balicku zavolat urcitou
> funkci v hlavni casti aplikace, ci pristupovat k datamodulu
> ktery je taky v hlavni aplikaci. je jina moznost nez pouziti
> findcomponent a pokud to je tabulka tak ji vratit?
Mozes si napisat nieco podobne ako je v OpenTools:
V zdielanej unite (MyAppIntf) si nadeklaruj interface (IMyAppServices) s
metodami, ktore potrebujes volat z balickov.
V projekte hlavneho .exe si napis implementaciu (unita MyAppImpl, trieda
TMyAppServices implementujuca IMyAppServices) a napis si kod tak, aby to bol
singleton, vytvarany pri inicializacii aplikacie, bez pouzitia reference
counting.
V kazdom balicku si potom mozes exportovat registracnu proceduru napr.
procedure RegisterMyPackage(MyAppServices: IMyAppServices);
Hlavny .exe by mal tuto proceduru potom volat vzdy po natiahnuti balicka a
predat mu svoju singleton instanciu TMyAppServices. Tym padom si moze kazdy
balicek uchovat odkaz na IMyAppServices a volat jeho metody.
> Ale jak zavolam funkci, ktere neni komponentou.
V implementacii metod IMyAppServices mozes delegovat volania funkcii alebo
metod objektov v hlavnom projekte.
HTH
TOndrej
Balicky podruhe
[*] Jenich <jenich(zv)volny(tec)cz> - 25.6.2002 09:35:13
v balicku si udelej tridu a zaregistruj pomoci RegisterClasses... (musi
vyjit z TPersistent) a po nahr�n� baliku ji najdes pomoci GetClass,
vytvoris, a muzes volat jei fce....
jak to udelat se solo fci nevim, ale tenhle zpusob co jsem napsal mam
vyzkouseny a funguje.
J.> Zdravim vsechny,
> nikdo nereagovalna muj dotaz ohledne balicku, tak to zkusim znovu.
> Mam aplikaci s balicky, jak mohu z balicku zavolat urcitou funkci v hlavni
> casti aplikace, ci
> pristupovat k datamodulu ktery je taky v hlavni aplikaci. je jina moznost
> nez pouziti
> findcomponent a pokud to je tabulka tak ji vratit? Ale jak zavolam funkci,
> ktere neni komponentou.
>
> Dekuji predem za vsechny vycerpavaji odpovedi.
>
> S pozdravem
> Martin Radvansky
>
>
>
Byte - Low a High True Bit
[*] Radek Levy <levy(zv)alsoft(tec)cz> - 25.6.2002 09:38:13
Dobr� den,
Treba asm instrukce
BSF src,dest - vrati pozici nejnizsiho nastaveneho bitu
BSR src,dest - vrati pozici nejvyssiho nastaveneho bitu
OPI> Existuje nejaka funkce nebo jednoduchy postup, jak z bytu zjistit, na kterem
OPI> miste je nejvyssi a nejnizsi bit = 1? Napr. pro 00110010, low=1, high=5
OPI> Zjistovani pomoci vice if mi nepripada optimalni.
OPI> Diky
OPI> ober
--
S pozdravem Radek Levy, A && L soft s.r.o.
Ako zistit ci je button viditelny
[*] Ing. Pavel �ilinec����)b���zf���3 - 25.6.2002 10:02:46
MyButton.Visible := TGroupBox(MyButton.Parent).Visible
Jen nevim, proc jeste nastavovat visible u buttonu, kdyz uz stejne neni
videt (pze GroupBox neni videt).
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PS> Dobry den,
PS> potreboval by som poradit. Mam na TGroupBoxe nejake buttony,
PS> tych TGroupBoxov je viac. Buttony su viditelne podla toho ako
PS> nastavim visible pre prislusny groupbox. Ako dokazem zistit ci je
PS> button prave viditelny na obrazovke ak viem len jeho meno ale
PS> neviem na ktorom groupboxe je?
PS> P.Svorc
Unita CRT32 pro Delphi 6
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 25.6.2002 10:08:57
Vazeni,
zaklady programovani v Object Pascalu ucime na konzolovych
aplikacich, v nichz jsme dosud s vyhodou vyuzivali unitu CRT32
Franka Zimmera:
http://www.piclist.com/techref/language/delphi/swag/DELPHI0013.ht
ml
Nyni, po prechodu na Delphi 6, se v kazde konzolove aplikaci,
vyuzivajici CRT32, objevi chyba:
[Fatal Error] CRT32.pas(153): Unit StdActns was compiled with a
different version of StrUtils.TStringSearchOptions
Nevite, prosim, co s tim provest, aby bylo mozno s CRT32 pracovat
i pod Delphi 6?
Diky predem za pomoc.
ing. Jan Plisek e-mail: plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE http://www.spse(tec)cz
Czech Republic
Ako zistit ci je button viditelny
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 25.6.2002 10:15:19
(MyButton.Parent as TWinControl).Visible
ti vrati viditelnost (Visible) vlastnika (Parent) butonu.
Jarda
----- Original Message -----
From: "Pavol Svorc" <svorcp(zv)pp.internet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 25, 2002 10:25 AM
Subject: Ako zistit ci je button viditelny
> Dobry den,
> potreboval by som poradit. Mam na TGroupBoxe nejake buttony,
> tych TGroupBoxov je viac. Buttony su viditelne podla toho ako
> nastavim visible pre prislusny groupbox. Ako dokazem zistit ci je
> button prave viditelny na obrazovke ak viem len jeho meno ale
> neviem na ktorom groupboxe je?
> P.Svorc
>
Ako zistit ci je button viditelny
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 25.6.2002 09:25:15
Dobry den,
potreboval by som poradit. Mam na TGroupBoxe nejake buttony,
tych TGroupBoxov je viac. Buttony su viditelne podla toho ako
nastavim visible pre prislusny groupbox. Ako dokazem zistit ci je
button prave viditelny na obrazovke ak viem len jeho meno ale
neviem na ktorom groupboxe je?
P.Svorc
mm na pixely
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 25.6.2002 11:00:03
> chcem vytlacit na tlaciarni ciaru napr.: 0.5 mm hrubky ... do
> Canvas.Pen.Width ale zadavam pixely, existuje nejaka funkcia premeny mm
> na pixely ?
Zdravim,
ak chces robit taketo veci - rychlo zabudni na objekt typu TCanvas a zacitaj
sa do helpu WinAPI.
Aj ked sa to nezda - usetris cas.
Tam zistis ze existuje funkcia
HPEN CreatePen(
int fnPenStyle, // pen style
int nWidth, // pen width
COLORREF crColor // pen color
);
ktora definuje "sirku" pera v LOGICKYCH jednotkach
- precitas si mapovacie rezimy SetMapMode
- precitas si o konverziach logickych a fyuzickych jednotiek LPtoDP a DPtoLP
- pozries sa na funkcie MoveTo, LineTo a dalsie....
ono TCanvas je fajn - ovsem podla mna len do situacie kedy potrebujes urobit
nieco "akoze" specialne (co 0.5 mm hruba ciarka z tohoto pohladu je).
JaNo
J.Grman(zv)kmer.elf.stuba.sk
nejblizsi zaznam pomoci sql
[*] VladimirRuzicka <ruzicka(zv)digitus(tec)cz> - 25.6.2002 11:03:18
Ahojte,
pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v tabulce
zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam sloupec s
cislama treba od 10 do 1000 s krokem 25 a chci najit radek na kterem je
zaznam co nejvice podobny 623. Melo by to jit nejak pomoci LIKE, ale za boha
nemuzu prijit na syntax. Nebo Near By ?
diky
Vladimir, D4, W98
InterBase 6.0 conversion error from string " "
[*] Tom Tom <xtom546(zv)seznam(tec)cz> - 25.6.2002 11:24:35
Ahoj,
mame problem s chodem IB serveru. Meli jsme ho na SuSE (6.0.1 SS),
kde bezel v pohode pul roku, ted jsme to dali na W2000, ale stale se
nam vyskytuje obcasne tato chyba conversion error from string " ",
kterou v jednom konkretnim pripade zpusoboval tento jednoduchy SQL
prikaz:
update cenik_dodavatel_zbozi set id_zbozi = 24041 where nazev =
'SY35FM'
v tomto prikazu vubec nezalezi na casti za where, dulezite je, ze pro
jine id_zbozi, coz je nereferencovany integer, vse probehlo O.K.
Resenim bylo restartovani serveru, po cemz dotaz probehl v pohode.
Tento jev nastava tak jednou za 2-3 dny. Zkouseli jsme sweep, gfix,
ale vse se tvari dobre. Velikost nasi databaze je cca 60 MB. Chyba se
zacala vyskytovat posledni mesic.
Mate nekdo podobne zkusenosti? Nebo dokonce napad, jak tuto situaci
resit?
______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz
mm na pixely
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.6.2002 11:40:59
> ak chces robit taketo veci - rychlo zabudni na objekt typu
> TCanvas
TCanvas zapuzdruje Windows device context a mas pristup k Handle, co je
Windows HDC. To znamena, ze s TCanvas.Handle mozes pouzivat GDI API funkcie
podla chuti.
> a zacitaj sa do helpu WinAPI.
S tym suhlasim <g>.
> Tam zistis ze existuje funkcia
> HPEN CreatePen(
[snip]
> ktora definuje "sirku" pera v LOGICKYCH jednotkach
Windows pen je zapuzdreny v triede TPen a da sa pouzit podobne.
> ono TCanvas je fajn - ovsem podla mna len do situacie kedy
> potrebujes urobit nieco "akoze" specialne (co 0.5 mm hruba
> ciarka z tohoto pohladu je).
Nasledovny priklad nakresli vodorovnu ciaru o hrubke 0.5mm a dlzke 1cm:
if SetMapMode(Canvas.Handle, MM_HIMETRIC) = 0 then
RaiseLastOSError;
Canvas.Pen.Width := 50;
Canvas.MoveTo(0, 0);
Canvas.LineTo(1000, 0);
HTH
TOndrej
Ako zistit ci je button viditelny
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.6.2002 11:50:51
> Mam na TGroupBoxe nejake buttony, tych TGroupBoxov je viac.
> Buttony su viditelne podla toho ako nastavim visible pre
> prislusny groupbox. Ako dokazem zistit ci je button prave
> viditelny na obrazovke ak viem len jeho meno ale neviem na
> ktorom groupboxe je?
Pre potomkov TWinControl mozes pouzit property Showing alebo API
IsWindowVisible.
HTH
TOndrej
DelphiX a Delphi6
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 25.6.2002 11:51:54
Zdrav�m
R�d bych n�co stvo�il s DelphiX a mam delphi6 - jak to tam dostat.
Nemate s tim nekdo nejakou zkusenost?
Dik Petr
PIM komponenty
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 25.6.2002 11:58:04
Cau
muzete mi nekdo poradit treba i komercni komponentu pro tvorbu PIM (planovaci kalendar, pripominac schuzek atd .. ) ?
zatim jsem nasel co se mi libi jazmine components http://www.jazminecomponents.com/ a nebo EZPlan-IT http://www.shopsolution.nl/shop/home.asp?shopid=keverit&pageid=pagina1. Existuje jeste neco lepsiho ?
Milos
OT: auto zolohovani po siti
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 25.6.2002 11:58:30
Zdravim,
neznate nekdo nejaky jednoduchy program pro zalohovani po siti?
zadam napr. disk F(net drive) na D:\F(local drive) kazdy patek. A je to.
Na serveru mam sice raid a dva disky, ale to neni ochrana proti smazani ci
virum.
Dik Jan Sebetsa
type = premenna
[*] Robert Suska <delphi(zv)korak.sk> - 25.6.2002 12:01:18
Ahojte!
Asi je to triavialna vec, ak sa to da vobec spravit a to toto. Existuje
zapis ktorym sa da urobit premenna typu do ktorej v kode priradim taketo
nieco ?
function GetMode(cmd: String): Type ????
niekde v kode
premenna:= GetMode(s);
dalej niekde v kode
if premenna = [acReadOnly] then ...
to acReadOnly chcem aby to bolo mnou definovane nieco..., viem ze by sa to
dalo urobit aj cez String ze namiesto zapisu v takychto [] zatvorkach by som
mal zapis '' ale to sa mi nepaci. Viete mi niekto poradit, alebo som to cele
zvrzal ze som taketo vobec nieco napisal. :)
Dakujem za pochopenie a pripadne odpovede.
Robo
DBMemo a programove vlozeni textu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.6.2002 12:10:10
Ahoj,
mam aplikaci postavenou na FlashFileru (coz ale neni podstatne) a v ni editaci
zaznamu v tabulce pomoci DBEditu a DBMemo.
1) Pokud pisu z klavesnice text do DBMemo, funguje vse radne.
2) Pod Memo dam BitBtn, ktery na OnClick dela toto:
if not (Table1.State in [dsEdit, dsInsert]) then
DBMemo1.Datasource.Dataset.Edit;
DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam focus, je
vse OK, ale jakmile chci obsah mema jeste doopravit, tento nove pridany text zmizi.
Co s tim?
V archivu jsem nasel podobny problem z prosince 1999, kde pomohlo prave volani
Edit pred plnenim mema. Mne to ale nepomaha. Kde je zakopany pes?
Post se samozrejme nekde vola, ale s tim to nesouvisi, protoze text mizi uprostred
editace, kdy o post jeste nemuze byt rec.
Dik.
David Lebeda
nejblizsi zaznam pomoci sql
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 25.6.2002 12:14:14
napad mi jedine reseni
select firrst 1 abs(t.cislo-623),t.*
from tabulka t
order by 1
> Ahojte,
>
> pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v
> tabulce zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam
> sloupec s cislama treba od 10 do 1000 s krokem 25 a chci najit radek
> na kterem je zaznam co nejvice podobny 623. Melo by to jit nejak
> pomoci LIKE, ale za boha nemuzu prijit na syntax. Nebo Near By ?
>
> diky
>
> Vladimir, D4, W98
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
auto zolohovani po siti
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 25.6.2002 12:14:45
jestli se nepletu, tak winNT,2k,XP maji prikaz AT.
w95,98,ME maji nejakej planovac uloh.
oboji umi spustit program/batku v zadany cas (i opakovane)
peca
mm na pixely
[*] Slavomir Cekel <cekel(zv)noves.sk> - 25.6.2002 12:22:18
hmmmm nechce Ti odporovat a navyhybam sa WinApi, ale pouzil som
Printer.Canvas ... a radu Petra Palicku, cize som len nastavil mod na
mm_HiMetric
a tlacim si ciarovy kod v hrubke ciary aku chcem ... tak v com myslis,
ze je problem ? A vsetko v pohode facha ...
Petr Palicka ... srdecna vdaka za radu ... vsetko je SUPER :)
Slavo
-----Original Message-----
ak chces robit taketo veci - rychlo zabudni na objekt typu TCanvas a
zacitaj
sa do helpu WinAPI.
Aj ked sa to nezda - usetris cas.
Tam zistis ze existuje funkcia
HPEN CreatePen(
int fnPenStyle, // pen style
int nWidth, // pen width
COLORREF crColor // pen color
);
ktora definuje "sirku" pera v LOGICKYCH jednotkach
- precitas si mapovacie rezimy SetMapMode
- precitas si o konverziach logickych a fyuzickych jednotiek LPtoDP a
DPtoLP
- pozries sa na funkcie MoveTo, LineTo a dalsie....
ono TCanvas je fajn - ovsem podla mna len do situacie kedy potrebujes
urobit
nieco "akoze" specialne (co 0.5 mm hruba ciarka z tohoto pohladu je).
JaNo
J.Grman(zv)kmer.elf.stuba.sk
DelphiX a Delphi6
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 25.6.2002 12:22:29
> Od: Petr K. [SMTP:xdelphi(zv)seznam(tec)cz]
>
> R�d bych n�co stvo�il s DelphiX a mam delphi6 - jak to tam dostat.
>
>
Radeji pouzij aktualnejsi JEDI Graphics DirectX headery
vse potrebne najdes http://www.crazyentertainment.net
Ober
DBMemo a programove vlozeni textu
[*] Ing. Pavel �ilinec����)b���zf���3 - 25.6.2002 12:23:10
Zkus tam jeste po zapisu napsat
DBMemo1.Datasource.Dataset.Post;
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
LD> Ahoj,
LD> mam aplikaci postavenou na FlashFileru (coz ale neni podstatne) a v ni editaci
LD> zaznamu v tabulce pomoci DBEditu a DBMemo.
LD> 1) Pokud pisu z klavesnice text do DBMemo, funguje vse radne.
LD> 2) Pod Memo dam BitBtn, ktery na OnClick dela toto:
LD> if not (Table1.State in [dsEdit, dsInsert]) then
LD> DBMemo1.Datasource.Dataset.Edit;
LD> DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
LD> To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam focus, je
LD> vse OK, ale jakmile chci obsah mema jeste doopravit, tento nove pridany text zmizi.
LD> Co s tim?
LD> V archivu jsem nasel podobny problem z prosince 1999, kde pomohlo prave volani
LD> Edit pred plnenim mema. Mne to ale nepomaha. Kde je zakopany pes?
LD> Post se samozrejme nekde vola, ale s tim to nesouvisi, protoze text mizi uprostred
LD> editace, kdy o post jeste nemuze byt rec.
LD> Dik.
LD> David Lebeda
Byte - Low a High True Bit
[*] Delphin <delphin(zv)post(tec)cz> - 25.6.2002 12:27:13
>Kdyz uz jsme v tom tak XLAT (preklad z tabulky) bude rychlejsi,
Nechci se tu poustet do zbytecnych diskuzi, co bude rychlejsi, ale cislo
udavane jako pocet taktu je nejoptimistictejsi varianta a plati jenom tehdy,
kdyz jsou data pritomne v interni cache procesoru. U 2*256-bytove tabulky se
bude s velkou pravdepodobnosti pristupovat do pameti a proto se muze snadno
stat, ze to bude pomalejsi, zvlaste na dnesnich procesorech.
Prepisanie obsahu suboru pred zmazanim
[*] Lubos <ludan(zv)inMail.sk> - 25.6.2002 12:28:05
Ahoj=2E
Potrebujem prepisat obsah suboru pred zmazanim=2C aby sa n=
edal obnovit=2E
Urcil som si postup=3A
1=2E Otvorim subor
2=2E Zap=
isem do neho rovnaky pocet bajtov =28pripadne nahodnych=29
3=2E Zatv=
orim
4=2E Vymazem
Mam istotu=2C ze sa na disku prepisu tie iste c=
lustre=2C ako v ktorych bol subor zapisany prvy krat=3F
Je nejaka pr=
avdepodobnost=2C ze sa bude zapisovat na ine clustre=3F =28Ak je velk=
a fragmentacia=2C ze by sa zapisovalo do volneho miesta=29
Dik
type = premenna
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.6.2002 12:28:53
Tohle se pouziva normalne jako property objektu. Napr:
type
MyObject = Class(TObject);
public
property Mode: Type read GetMode;
GetMode je funkce, definovana u objektu, ktera vraci hodnotu daneho
typu
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
25.6.2002 Robert Suska:
> Ahojte!
> Asi je to triavialna vec, ak sa to da vobec spravit a to toto. Existuje
> zapis ktorym sa da urobit premenna typu do ktorej v kode priradim taketo
> nieco ?
> function GetMode(cmd: String): Type ????
> niekde v kode
> premenna:= GetMode(s);
> dalej niekde v kode
> if premenna = [acReadOnly] then ...
> to acReadOnly chcem aby to bolo mnou definovane nieco..., viem ze by sa to
> dalo urobit aj cez String ze namiesto zapisu v takychto [] zatvorkach by som
> mal zapis '' ale to sa mi nepaci. Viete mi niekto poradit, alebo som to cele
> zvrzal ze som taketo vobec nieco napisal. :)
> Dakujem za pochopenie a pripadne odpovede.
> Robo
nejblizsi zaznam pomoci sql
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 25.6.2002 12:30:55
select * from xxx where sloupec LIKE '%623%'
% zastupuje jakykoliv znak, takze to hleda vlastne substring 623 ve sloupci v tomto pripade.Najit co nejvice podobny radek si musite osetrit ve vasem programu v SQL to asi nepujde.
Milos
-----Original Message-----
From: VladimirRuzicka [mailto:ruzicka(zv)digitus(tec)cz]
Sent: Tuesday, June 25, 2002 11:03 AM
To: Delphi konference
Subject: nejblizsi zaznam pomoci sql
Ahojte,
pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v tabulce
zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam sloupec s
cislama treba od 10 do 1000 s krokem 25 a chci najit radek na kterem je
zaznam co nejvice podobny 623. Melo by to jit nejak pomoci LIKE, ale za boha
nemuzu prijit na syntax. Nebo Near By ?
diky
Vladimir, D4, W98
Byte - Low a High True Bit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2002 12:50:03
> >Kdyz uz jsme v tom tak XLAT (preklad z tabulky) bude rychlejsi,
>
> Nechci se tu poustet do zbytecnych diskuzi, co bude rychlejsi, ale
cislo
> udavane jako pocet taktu je nejoptimistictejsi varianta a plati
jenom tehdy,
> kdyz jsou data pritomne v interni cache procesoru. U 2*256-bytove
tabulky se
> bude s velkou pravdepodobnosti pristupovat do pameti a proto se muze
snadno
> stat, ze to bude pomalejsi, zvlaste na dnesnich procesorech.
asi ano (krome rutiny, ktera bude intenzivne XLAT pouzivat tak, ze ta
data
zustanou v cache).
Ale protoze v tabulce, kterou mam k dispozici je pro 486ku psano 6-42
cyklu
pro BSF a az 103 cyklu pro BSR (pri praci s wordem) zdala se mi 4
cyklova
XLAT preci jen rychlejsi...
D. Toman
type = premenna
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2002 12:54:11
> Asi je to triavialna vec, ak sa to da vobec spravit a to toto.
Existuje
> zapis ktorym sa da urobit premenna typu do ktorej v kode priradim
taketo
> nieco ?
>
> function GetMode(cmd: String): Type ????
>
> niekde v kode
>
> premenna:= GetMode(s);
>
> dalej niekde v kode
>
> if premenna = [acReadOnly] then ...
>
> to acReadOnly chcem aby to bolo mnou definovane nieco..., viem ze by
sa to
> dalo urobit aj cez String ze namiesto zapisu v takychto []
zatvorkach by som
> mal zapis '' ale to sa mi nepaci. Viete mi niekto poradit, alebo som
to cele
> zvrzal ze som taketo vobec nieco napisal. :)
>
zrejme mas na mysli mnoziny:
TOptions = (acReadOnly, acNoAccess);
TOption = Set of TOptions;
VAR
Option : TOption;
Function GetMode(cmd : String) : TOption;
..
..
..
Option := GetMode(s);
if acReadOnly in Option then
begin
end;
D. Toman
Prepisanie obsahu suboru pred zmazanim
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 25.6.2002 13:15:32
> Potrebujem prepisat obsah suboru pred zmazanim, aby sa nedal obnovit.
http://www.sysinternals.com/ntw2k/source/sdelete.shtml
HTH
TOndrej
DBMemo a programove vlozeni textu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.6.2002 13:25:49
> Zkus tam jeste po zapisu napsat
> DBMemo1.Datasource.Dataset.Post;
Jen�e j� pot�ebuju ten ��dek m�t rozeditovan�, aby pak �lov�k mohl
na konci stisknout Cancel a v�e stornovat, bude-li cht�t.
David Lebeda
> LD> mam aplikaci postavenou na FlashFileru (coz ale neni podstatne) a
> v ni editaci LD> zaznamu v tabulce pomoci DBEditu a DBMemo.
>
> LD> 1) Pokud pisu z klavesnice text do DBMemo, funguje vse radne.
>
> LD> 2) Pod Memo dam BitBtn, ktery na OnClick dela toto:
>
> LD> if not (Table1.State in [dsEdit, dsInsert]) then
> LD> DBMemo1.Datasource.Dataset.Edit;
> LD> DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
>
> LD> To skutecne prida text ahoj na konec mema. Pokud uz tomu memu
> nedam focus, je LD> vse OK, ale jakmile chci obsah mema jeste
> doopravit, tento nove pridany text zmizi. LD> Co s tim?
>
> LD> V archivu jsem nasel podobny problem z prosince 1999, kde pomohlo
> prave volani LD> Edit pred plnenim mema. Mne to ale nepomaha. Kde je
> zakopany pes?
>
> LD> Post se samozrejme nekde vola, ale s tim to nesouvisi, protoze
> text mizi uprostred LD> editace, kdy o post jeste nemuze byt rec.
>
> LD> Dik.
>
> LD> David Lebeda
>
OnClick pro tbsDivider v TToolBaru
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 25.6.2002 13:30:45
Ahoj,
nevite nekdo
1. jak zpristupnit pro TToolButtony typu tbsDivider a tbsSeparator eventy.
Konkretne potrebuji OnClick.
2. jak dostat do nekterych TToolButtonu text misto obrazku.
Mam D4Std.
Dik. Jara
svehla(zv)spelza(tec)cz
---
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
DBGrid a kolecko mysi
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.6.2002 13:57:27
Ahoj,
rad bych se zeptal, zda nekdo nemate vyreseno pouzivani DBGridu
a kolecka mysi. Vypada to, ze chovani DBGridu ve vztahu ke
kolecku mysi je zavisle na ovladaci mysi - pro nektere mysi funguje
rolovani jen v ramci viditelnych radku, pro jine sice v gridu roluje
modry pruh, ale aktivni radek se ve skutecnosti nemeni, takze kdyz
stojim na prvnim radku, udelam FindNearest na jiny radek a pak
omylem drcnu do kolecka mysi, skoci mi to zpet na prvni radek
apod.
Pokud jste se tim nekdo i neuspesne zabyvali, dejte prosim
vedet.
Dik.
David Lebeda
PIM komponenty
[*] Milan Kune� <milan(zv)milk(tec)cz> - 25.6.2002 14:09:28
Visual PlanIt
http://www.turbopower.com/products/visualplanit/
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Sula Milos
> Sent: Tuesday, June 25, 2002 11:58 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: PIM komponenty
>
>
> Cau
> muzete mi nekdo poradit treba i komercni komponentu pro
> tvorbu PIM (planovaci kalendar, pripominac schuzek atd .. ) ?
> zatim jsem nasel co se mi libi jazmine components
http://www.jazminecomponents.com/ a nebo EZPlan-IT
http://www.shopsolution.nl/shop/home.asp?shopid=keverit&pageid=pagina1.
Existuje jeste neco lepsiho ?
Milos
DBGrid a kolecko mysi
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 25.6.2002 14:18:57
Prohledni si archiv konference, zhruba pred 1. - 2. mesici zde byl uveden
kousek zdrojaku, ktery tyto problemy resi. Pokud neuspejes, napis na muj
mail - poslu.
redlich(zv)mail.tele2(tec)cz
Dan
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 25, 2002 1:57 PM
Subject: DBGrid a kolecko mysi
> Ahoj,
>
> rad bych se zeptal, zda nekdo nemate vyreseno pouzivani DBGridu
> a kolecka mysi. Vypada to, ze chovani DBGridu ve vztahu ke
> kolecku mysi je zavisle na ovladaci mysi - pro nektere mysi funguje
> rolovani jen v ramci viditelnych radku, pro jine sice v gridu roluje
> modry pruh, ale aktivni radek se ve skutecnosti nemeni, takze kdyz
> stojim na prvnim radku, udelam FindNearest na jiny radek a pak
> omylem drcnu do kolecka mysi, skoci mi to zpet na prvni radek
> apod.
>
> Pokud jste se tim nekdo i neuspesne zabyvali, dejte prosim
> vedet.
>
> Dik.
>
> David Lebeda
>
mm na pixely
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 25.6.2002 14:23:29
> hmmmm nechce Ti odporovat a navyhybam sa WinApi, ale pouzil som
> Printer.Canvas ... a radu Petra Palicku, cize som len nastavil mod na
> mm_HiMetric
> a tlacim si ciarovy kod v hrubke ciary aku chcem ... tak v com myslis,
> ze je problem ? A vsetko v pohode facha ...
V nicom. Konkretne tato vec sa da v pohode vyriesit.
Ono vzdy je to o tom:
- ci pouzivat vysoku uroven - TCanvas
- pouzivat WinApi
- pouzivat kombinaciu - ako si pouzil v tomto pripade
Ked clovek zacne robit nieco komplexnejsie - zisti ze nakoniec je toho
WinAPI tolko ze ten Canvas tam len zbytocne vadi a clovek nikdy do toho
presne nevidi. Hovorim o temach ako orezavanie, formatovanie a otacanie
textu, farby atd atd...
Skratka - ked to facha tak OK.
JaNo.
nejblizsi zaznam pomoci sql
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 25.6.2002 14:24:00
> pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v tabulce
> zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam sloupec s
> cislama treba od 10 do 1000 s krokem 25 a chci najit radek na kterem je
> zaznam co nejvice podobny 623. Melo by to jit nejak pomoci LIKE, ale za boha
> nemuzu prijit na syntax. Nebo Near By ?
Jestli jde o cisla, tak co pouzit aritmetiku jako:
SELECT * FROM tabulka WHERE <sloupec> = ( SELECT MIN(ABS(623 - <sloupec>))
FROM tabulka)
Pisu to z hlavy bez vyzkouseni, takze je tam mozna chyba, ale myslenka se
snad pochopit da.
S retezcemi to asi moc trivialne nepujde. Jedine vytvorit nejakou ulozenou
proceduru, ktera nejak bude vracet "vzdalenost" 2 retezcu a pak to resit
podobne jako s cisly, akorat misto ABS pouzit vasi ulozenou proceduru.
Luf
DBMemo a programove vlozeni textu
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 25.6.2002 14:27:59
> > Zkus tam jeste po zapisu napsat
> > DBMemo1.Datasource.Dataset.Post;
>
> Jen�e j� pot�ebuju ten ��dek m�t rozeditovan�, aby pak �lov�k mohl
> na konci stisknout Cancel a v�e stornovat, bude-li cht�t.
Tak dle rady z 1999 dejte ten Edit nekam do zobrazeni okna. Zkratka driv,
nez se zacne v tom DBMemu editovat ...
> > LD> V archivu jsem nasel podobny problem z prosince 1999, kde pomohlo
> > prave volani LD> Edit pred plnenim mema. Mne to ale nepomaha. Kde je
> > zakopany pes?
V tom popisu nemate Edit pred praci s DBMemo.
> > LD> Post se samozrejme nekde vola, ale s tim to nesouvisi, protoze
> > text mizi uprostred LD> editace, kdy o post jeste nemuze byt rec.
Ale je rec. Memo si ten Post zavola tusim samo ... Pokud neudelate (viz vyse).
Luf
DBGrid a kolecko mysi
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 25.6.2002 14:28:38
Uz jsem to psal, lze to resit v potomkovi DBGridu, prohledej archiv,
nebo napis a ja ti to poslu.
> Ahoj,
>
> rad bych se zeptal, zda nekdo nemate vyreseno pouzivani DBGridu
> a kolecka mysi. Vypada to, ze chovani DBGridu ve vztahu ke
> kolecku mysi je zavisle na ovladaci mysi - pro nektere mysi funguje
> rolovani jen v ramci viditelnych radku, pro jine sice v gridu roluje
> modry pruh, ale aktivni radek se ve skutecnosti nemeni, takze kdyz
> stojim na prvnim radku, udelam FindNearest na jiny radek a pak omylem
> drcnu do kolecka mysi, skoci mi to zpet na prvni radek apod.
>
> Pokud jste se tim nekdo i neuspesne zabyvali, dejte prosim
> vedet.
>
> Dik.
>
> David Lebeda
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
nejblizsi zaznam pomoci sql
[*] VladimirRuzicka <ruzicka(zv)digitus(tec)cz> - 25.6.2002 14:50:42
v tabulce kniha (klasicka Paradox) mam sloupce id, delka a dalsich x slupcu,
chci najit radek, ktery ma delku co nejblize k 623,
takhle by to asi melo byt napsane:
select id, delka from kniha
where delka=(Select MIN(ABS(623 - delka)) from kniha)
jenze mi to rve, ze Capability not supported.> Ludek Finstrle wrote:
> Jestli jde o cisla, tak co pouzit aritmetiku jako:
>
> SELECT * FROM tabulka WHERE <sloupec> = ( SELECT MIN(ABS(623 - <sloupec>))
> FROM tabulka)
pokud zkusim druhou radu (od Radka Kaly):
> select firrst 1 abs(t.cislo-623),t.*
> from tabulka t
> order by 1
select firrst 1 abs(kniha.'cislo'-623),kniha.*
from kniha
order by 1
tak to rve Invalid use of keyword, Token 1, Line number 1
Vladimir, D4, W98
nejblizsi zaznam pomoci sql
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.6.2002 14:58:56
> v tabulce kniha (klasicka Paradox) mam sloupce id, delka a dalsich x
> slupcu, chci najit radek, ktery ma delku co nejblize k 623, takhle by
> to asi melo byt napsane:
>
> select id, delka from kniha
> where delka=(Select MIN(ABS(623 - delka)) from kniha)
>
> jenze mi to rve, ze Capability not supported.
Ahoj,
na Paradoxu s podobnymi funkcemi moc neuspejes. Pokud bys netrval na pouziti
SQL, muzes zkusit laborovat nad TTable jednak s Range (SetRange apod.) jednak s
FindNearest. Ani jedno ti presne nevrati to, co potrebujes, ale (protoze to vyzaduje
index) budes nejvyse o jeden zaznam vedle, takze pokud nalezeny zaznam bude
vetsi nez 623, spocitas vzdalenost, udelas Prior, spocitas vzdalenost a vidis. Pokud
bude mensi budes delat Next.
Snad to neni uplna kravina, ber to spis jako inspiraci.
David Lebeda
type = premenna
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 25.6.2002 14:58:45
Podle me by sis mel udelat novy typ
type
MujTyp = set of (acReadOnly, acWrite);
a potom muzes pouzit funkci
function GetMode(cmd: String): MujTyp
begin
Result := [acReadOnly];
... nebo treba
Result := [acReadOnly, acWrite];
end;
jeste mas moznost vytvorit si novy ordinalni typ, kde nebudes vracet
mnozinu:
type
MujTyp = (acReadOnly, acWrite);
pak by funkce vypadala takto:
function GetMode(cmd: String): MujTyp
begin
Result := acReadOnly;
... nebo treba
Result := acWrite;
end;
Ahoj Jarda
----- Original Message -----
From: "Robert Suska" <delphi(zv)korak.sk>
To: "Delphi konfera" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 25, 2002 12:01 PM
Subject: type = premenna
> Ahojte!
>
> Asi je to triavialna vec, ak sa to da vobec spravit a to toto. Existuje
> zapis ktorym sa da urobit premenna typu do ktorej v kode priradim taketo
> nieco ?
>
> function GetMode(cmd: String): Type ????
>
> niekde v kode
>
> premenna:= GetMode(s);
>
> dalej niekde v kode
>
> if premenna = [acReadOnly] then ...
>
> to acReadOnly chcem aby to bolo mnou definovane nieco..., viem ze by sa to
> dalo urobit aj cez String ze namiesto zapisu v takychto [] zatvorkach by
som
> mal zapis '' ale to sa mi nepaci. Viete mi niekto poradit, alebo som to
cele
> zvrzal ze som taketo vobec nieco napisal. :)
>
> Dakujem za pochopenie a pripadne odpovede.
>
> Robo
TDB - pocet poloziek
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 25.6.2002 15:04:49
Mam komponentu TDBF. V databaze zapnem filter a v procedure
Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean) dam zobrazit len
urcite polozky. Ako teraz zistim pocet zobrazenych poloziek?
Vdaka za kazdu radu.
nejblizsi zaznam pomoci sql
[*] VladimirRuzicka <ruzicka(zv)digitus(tec)cz> - 25.6.2002 15:05:29
Kravina to asi neni, ale to se mi moc nelibi hlavne kvuli tomu indexu. Ten
se mi vubec nehodi, protoze zaznamu se sloupcem delka o stejne hodnote muze
byt vice ... me staci najit ten nejblizsi.
Vladimir, D4, W98
> > select id, delka from kniha
> > where delka=(Select MIN(ABS(623 - delka)) from kniha)
> >
> > jenze mi to rve, ze Capability not supported.
>
> Ahoj,
>
> na Paradoxu s podobnymi funkcemi moc neuspejes. Pokud bys netrval na
pouziti
> SQL, muzes zkusit laborovat nad TTable jednak s Range (SetRange apod.)
jednak s
> FindNearest. Ani jedno ti presne nevrati to, co potrebujes, ale (protoze
to vyzaduje
> index) budes nejvyse o jeden zaznam vedle, takze pokud nalezeny zaznam
bude
> vetsi nez 623, spocitas vzdalenost, udelas Prior, spocitas vzdalenost a
vidis. Pokud
> bude mensi budes delat Next.
> Snad to neni uplna kravina, ber to spis jako inspiraci.
>
> David Lebeda
vhodna file-based databaza
[*] Marek Bajer <bajer(zv)post.sk> - 25.6.2002 15:08:00
caute,
chcem sa spytat aku databazu mozem pouzit v pripade ze chcem spravit singleuser database app.
vyhovuje mi clientdataset ale chyba mi tam SQL;
access a bde mi nie su dostatocne "sympaticke", mam este nejake ine moznosti?
vopred dakujem za odpoved....
Marek
________
SME SHOP: Pan Prstenov III. + darcek Exlibris + zrebovanie o stan a spaci vak
http://www.shop.sme.sk/rspc.asp?id=46
vhodna file-based databaza
[*] David Janko <djanko(zv)infoware(tec)cz> - 25.6.2002 15:24:13
jsou tam xml databaze .. ale jeste sem je moc nezkousel ....
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
----- Original Message -----
From: "Marek Bajer" <bajer(zv)post.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 25, 2002 3:08 PM
Subject: vhodna file-based databaza
> caute,
>
> chcem sa spytat aku databazu mozem pouzit v pripade ze chcem spravit
singleuser database app.
> vyhovuje mi clientdataset ale chyba mi tam SQL;
> access a bde mi nie su dostatocne "sympaticke", mam este nejake ine
moznosti?
>
> vopred dakujem za odpoved....
>
> Marek
>
> ________
> SME SHOP: Pan Prstenov III. + darcek Exlibris + zrebovanie o stan a spaci
vak
> http://www.shop.sme.sk/rspc.asp?id=46
OT: auto zalohovani po siti
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 25.6.2002 15:27:07
Zdravim,
neznate nekdo nejaky jednoduchy program pro zalohovani po siti?
zadam napr. disk F(net drive) na D:\F(local drive) kazdy patek. A je to.
Na serveru mam sice raid a dva disky, ale to neni ochrana proti smazani ci
virum.
Dik Jan Sebetsa
nejblizsi zaznam pomoci sql
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 25.6.2002 15:27:07
Zde mas reseni, zkousel jsem to a funguje, neni sice moc hezky,
ale funkcni je dostatecne
select * from zamest
where (623-cislo)*(623-cislo)=(Select min((623 - cislo)*(623-cislo))
from zamest)
> v tabulce kniha (klasicka Paradox) mam sloupce id, delka a dalsich x
> slupcu, chci najit radek, ktery ma delku co nejblize k 623, takhle by
> to asi melo byt napsane:
>
> select id, delka from kniha
> where delka=(Select MIN(ABS(623 - delka)) from kniha)
>
> jenze mi to rve, ze Capability not supported.
>
>
> > Ludek Finstrle wrote:
> > Jestli jde o cisla, tak co pouzit aritmetiku jako:
> >
> > SELECT * FROM tabulka WHERE <sloupec> = ( SELECT MIN(ABS(623 -
> > <sloupec>)) FROM tabulka)
>
>
> pokud zkusim druhou radu (od Radka Kaly):
> > select firrst 1 abs(t.cislo-623),t.*
> > from tabulka t
> > order by 1
>
>
> select firrst 1 abs(kniha.'cislo'-623),kniha.*
> from kniha
> order by 1
>
> tak to rve Invalid use of keyword, Token 1, Line number 1
>
> Vladimir, D4, W98
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Zastupne znaky do klauzuly LIKE pre IB/FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 25.6.2002 15:28:18
Hello, Jaroslav!
You wrote:
JP> Kde by som sa mohol docitat o %subj% (okrem % a _)?
Embedded SQLGuide (EmbedSQL.pdf)
Working with Data
Using comparison operators in expressions
Using LIKE (str 117)
With best regards, Alex Cherednichenko.
vhodna file-based databaza
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 25.6.2002 15:47:36
Ahoj,
v podstate pouzij libovolny SQL server, ostatne i ten si uklada data
do souboru na disku. Pridavkem dostatnes napr. transakce.
Slavek
> caute,
>
> chcem sa spytat aku databazu mozem pouzit v pripade ze chcem spravit
> singleuser database app. vyhovuje mi clientdataset ale chyba mi tam
> SQL; access a bde mi nie su dostatocne "sympaticke", mam este nejake
> ine moznosti?
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Exkluzivni otevirani souboru
[*] Petr Ku�era <pkucera(zv)vri(tec)cz> - 25.6.2002 15:50:50
Dobry den,
chtel bych se omluvit za svuj predchozi dotaz. Bylo to jen prehlednuti. V
tom FileOpen jsem pouzival relativni cestu k souboru a ja menil adresar.
Takze chyba byla zpusobena timto. Jeste jednou se za svuj dotaz omlouvam.
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Monday, June 24, 2002 3:57 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Exkluzivni otevirani souboru
From: "Petr Ku�era" <pkucera(zv)vri(tec)cz>
> nastava ten problem. Kdyz otevru 1. soubor, tak je vse OK. Kdyz chci
pozdeji
> otevrit ten druhy soubor, tak mi funkce FileOpen vraci hodnotu -1 (coz by
> melo znamenat chybne otevreni souboru). Kdyz tyto soubory oteviram ve dvou
Podrobnosti zjistis z toho o jakou chybu jde, pomoci RaiseLastWin32Error.
Petr Vones
Unita CRT32 pro Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.6.2002 16:05:36
From: "Plisek Jan Ing." <Plisek(zv)spse(tec)cz>
> [Fatal Error] CRT32.pas(153): Unit StdActns was compiled with a
> different version of StrUtils.TStringSearchOptions
To s tim asi nesouvisi. Patrne mas jeste nekde jinde v unity z VCL/RTL a ten
adresar je v search path. V zasade:
- nikdy neprovadej zadne upravy ve zdrojacich VCL
- pokud uz je opravdu nutne neco takoveho delat, tak zdrojak nejdrive
*zkopiruj* do adresare projektu a teprve tam proved potrebne upravy
> Nevite, prosim, co s tim provest, aby bylo mozno s CRT32 pracovat
> i pod Delphi 6?
Je opravdu nutne provozovat takoveto konzolove 'aplikace' v roce 2002 ?
Petr Vones
Sloupec typu FLOAT: hodnota 1,1 = 1,10000002384186
[*] <little_bobes(zv)centrum(tec)cz> - 25.6.2002 16:15:03
Zdravim,
mam tabulku v IB se sloupcem typu FLOAT.
Kdyz do nej zapisu hodnotu 1,1 , dostanu vysledek 1,10000002384186.
Kdyz do nej napisu hodnotu 1,5 , dostanu vysledek 1,5.
Je to normalni?
Bob
DBMemo a programove vlozeni textu
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 25.6.2002 16:26:42
Lebeda David wrote:
>Ahoj,
>
>mam aplikaci postavenou na FlashFileru (coz ale neni podstatne) a v ni editaci
>zaznamu v tabulce pomoci DBEditu a DBMemo.
>
>1) Pokud pisu z klavesnice text do DBMemo, funguje vse radne.
>
>2) Pod Memo dam BitBtn, ktery na OnClick dela toto:
>
> if not (Table1.State in [dsEdit, dsInsert]) then
> DBMemo1.Datasource.Dataset.Edit;
> DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
>
>To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam focus, je
>vse OK, ale jakmile chci obsah mema jeste doopravit, tento nove pridany text zmizi.
>Co s tim?
>
>
Pri nafokuseni mema si komponenta stahne aktualni hodnotu z datasetu.
Resenim je nedavat ten text do mema ale primo do datasetu, tedy neco jako:
with DBMemo1.Datasource.Dataset do
begin
if not (State in [dsEdit, dsInsert]) then
Edit;
FieldByName(DBMemo1.Datafield).AsString :=
FieldByName(DBMemo1.Datafield).AsString + #13#10'ahoj';
end;
Princip je snad jasny, za pripadne preklepy se omlouvam ;-)
eNca
nejblizsi zaznam pomoci sql
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 25.6.2002 16:30:46
Ludek Finstrle wrote:
>>pro nekoho trivialni, ale preci jen nemuzu prijit na to jak najit v tabulce
>>zaznam, ktery je nejvice podobny memu pozadavku. Napriklad mam sloupec s
>>cislama treba od 10 do 1000 s krokem 25 a chci najit radek na kterem je
>>zaznam co nejvice podobny 623. Melo by to jit nejak pomoci LIKE, ale za boha
>>nemuzu prijit na syntax. Nebo Near By ?
>>
>>
>
>
>S retezcemi to asi moc trivialne nepujde. Jedine vytvorit nejakou ulozenou
>proceduru, ktera nejak bude vracet "vzdalenost" 2 retezcu a pak to resit
>podobne jako s cisly, akorat misto ABS pouzit vasi ulozenou proceduru.
>
Mam pocit, ze snad MySQL (nebo ze by to byl Postgres?) disponovala
funkci na vyjadreni 'podobnosti' dvou stringu. Bohuzel nevim, jak se ta
funkce jmenovala. Asi jsem to cetl v nejakem changes.txt.Doporucuji
prostudovat stringove funkce prislusneho databazoveho serveru.
eNca
vhodna file-based databaza
[*] martin.falta(zv)obi.de - 25.6.2002 16:35:28
This is a multi-part message in MIME format.
Ahoj,
zkus SQLite.
http://www.hwaci.com/sw/sqlite/
Zapouzdreny objekt Delphi najdes tady
http://www.torry.net/db/direct/db_directsql/tsqlite.zip
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
bajer(zv)post.sk
Sent by: To: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)c cc:
lexpert(tec)cz Subject: vhodna file-based databaza
25.06.2002 15:08
Please respond
to delphi-l
caute,
chcem sa spytat aku databazu mozem pouzit v pripade ze chcem spravit
singleuser database app.
vyhovuje mi clientdataset ale chyba mi tam SQL;
access a bde mi nie su dostatocne "sympaticke", mam este nejake ine
moznosti?
vopred dakujem za odpoved....
Marek
________
SME SHOP: Pan Prstenov III. + darcek Exlibris + zrebovanie o stan a spaci
vak
http://www.shop.sme.sk/rspc.asp?id=46
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
DBMemo a programove vlozeni textu
[*] miro mrazik <preas_w(zv)stonline.sk> - 25.6.2002 16:49:19
Ahoj
> > DBMemo1.Datasource.Dataset.Edit;
> > DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
>
> > To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam
focus, je
> > vse OK, ale jakmile chci obsah mema jeste doopravit, tento nove pridany
text zmizi.
A urobi to aj v pripade ak pridas to ahoj priamo do fiekldu na ktorom je
DBEdit zaveseny?
napr.:
TTable.FieldByName('MenoPolozky').AsString:=TTable.FieldByName('MenoPolozky'
).AsString+ #13#10 + 'ahoj';
(neskusal som to)
Miro
DBMemo a programove vlozeni textu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 25.6.2002 15:56:03
Lebeda David, <mailto:david.lebeda(zv)comarr(tec)cz> napsal:
> editaci zaznamu v tabulce pomoci DBEditu a DBMemo.
> 2) Pod Memo dam BitBtn, ktery na OnClick dela toto:
> if not (Table1.State in [dsEdit, dsInsert]) then
> DBMemo1.Datasource.Dataset.Edit;
> DBMemo1.Text := DBMemo1.Text + #13#10 + 'ahoj';
> To skutecne prida text ahoj na konec mema. Pokud uz tomu memu nedam focus, je
> vse OK, ale jakmile chci obsah mema jeste doopravit, tento nove pridany text zmizi.
Na tento problem jsem take narazil, maji to na svedomi DB-aware
komponenty. Me to delal i obycejny DBEdit, do ktereho jsem programem
naplnil nejakou hodnotu.
Jedine reseni je nepouzivat DB-aware, ale obycejne komponenty, ktere
si sam plnim.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP1, D5Ent/UP1
FB rychle vkladani zaznamu
[*] bleak <bleak(zv)atlas(tec)cz> - 25.6.2002 18:20:13
proc nepouzivat ibTable? Myslis, kvuli tomu, ze data nejsou ihned fyzicky
zapsana do databaze? Mohu pouzit IbSQLTransact.Commit, to snad zapis
provede... ne?
S ulozenymi procedurami zatim nemam zkusenosti, takze nevim jak bych je mohl
vyuzit pri vkladani zaznamu. Pro zajimavost: dnes se mi sekl pocitac (asi
kvuli GDI<5% na W98) a cela databaze byla v haji - doslo nejakym zahadnym
zpusobem k prekrizeni clusteru na disku. Jak jsem byl rad, ze zalohuji!
bleak
----- Original Message -----
From: "Skopalik Slavomir" <skopalik(zv)hlubocky.del(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 24, 2002 9:19 AM
Subject: RE: FB rychle vkladani zaznamu
> NIKDY nepouzivej IBTABLE !
> Pouzij ibsql a transakci typu readcommited pro rychlost, nebo snapshot pro
bezpecnost.
> Ja jsem zkousel vkladat do tabulky jeden string v ulozne procedure a
rychlost byla
> >> 10000 zaznamu za sekundu (2xPIII(zv)1GHz,512MB RAM, 5xSCSI 10K otacek RADI
5).
> Dale hodne zalezi na HW, ktery je pouzit, vzhledem k tomu, ze urcite
pouzivas
> forced write, tak je treba mit baterii zalohovan write back cache, toto ti
poskytne
> vetsina RAID 5 radicu.
> Dalsi urychleni dosahnes, jestlize budes pouzivat parametry misto prime
tvorby SQL.
Optimalizace db FB
[*] bleak <bleak(zv)atlas(tec)cz> - 25.6.2002 18:23:52
ptam se proto, ze pri navrhu struktury databaze jsem ruzne laboroval
(vkladal, mazal) a soubor s daty narostl do 63 MB. "Optimalizaci" jsem
provedl tak, ze jsem databazi zalohoval pomoci gbak.exe a potom opet
obnovil, soubor mel potom velikost 33 MB...
bleak
----- Original Message ----- >
> Toto neni nutne. Misto po smazanych zaznamech bude pouzito priste.
> Zapomen na dbf.
> With best regards, Alex Cherednichenko.
FB rychle vkladani zaznamu
[*] bleak <bleak(zv)atlas(tec)cz> - 25.6.2002 18:27:37
kdyz IBTable je komfortni, alespon pro import dat...
stejne pracuje IBTable i IBSQL interne s SQL dotazy, ne?
Mam komponenty ZEOS, tam je to tak zcela urcite, nevim jak u IBExpres?
bleak
----- Original Message ----- >
aahhmm, prosimte,
> nezvykej si pouzivat TIBTable.
> zvykni si na praci s TIBSQL,
> popripade TIBDataSet. nekterych
> navyku se pak dost tezko zbavuje.
jak na IBGUARD?
[*] bleak <bleak(zv)atlas(tec)cz> - 25.6.2002 18:40:51
pri pokusu o spusteni ibguard.exe program hlasi: The registry informatiom
missing. Please run the Firebird Server Configuration Utility.
Jaky zapis vyzaduje ibguard v registru? Co (kde) je ten konfiguracni
nastroj?
bleak
DelphiX a WinXP
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.6.2002 18:47:17
Zdravim
Tak tohle nechapu. Pro 98SE a ME sly pouzit dva druhy ovladacu:
1) VXD - ty za ZADNYCH okolnosti nejdou pouzit ve WinXP.
2) WDM - ty by IMHO v nekterych pripadeh mohly fungovat i pod XP. Ale pokud
fungovat, tak stoprocentne.
Zkus napsat na podporu vyrobce karty a upozorni je na problem. Pak jen cekej
na nove drivery.
Zdenek
----- Original Message -----
> tak problem bol ze som mal zly ovladac karty mal som
> pre Win9x.
> Co je ale zaujimave:
> na win98 sa mi vykreslovali DIB-y takpovediac
> nie dokonale* na winXP boli s ovladacom karty pre
> 98 viditelne lepsie=dokonale ale bolo to zas pomale
> -s ovladacom pre XP je to rychle ale zas to nie je dokonale :-(
> predpokladam ze to je chyba toho driveru.ci nie?
> Peter Surovy
>
> *dokonale- pri nastaveni priehladnej farby napr.
> bielej sa mi niektore biele pixely stale zobrazovali
> aj ked som ich kontroloval vo photoshope
> a podla RGB boli 255,255,255 .
FB rychle vkladani zaznamu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 25.6.2002 18:54:50
> Pro zajimavost: dnes se mi sekl pocitac (asi
> kvuli GDI<5% na W98) a cela databaze byla v haji
dokud jsem sam nepresel na w2000, tak jsem si taky myslel,
ze w98 bohate staci. ovsem to ze _ne_jsou mrkvosoftem explicitne
urceny pro domaci pouziti asi neni jena tak ze srandy. w2000
vydrzi mnohem vetsi pracovni zatizeni a ani potom se nezhrouti,
jenom jsou liny jako prase. ale drzi. w98 a spol maji tendenci
zkolabovat pri naznaku zateze ;)
kazdopadne na platforme windows je dobre mit zapnuty forcedwrite,
takze GDB neni kesovana. dusledek je zvyseni bezpecnosti na ukor
rychlosti. FB1 to ma zapnuty implicitne, IB6 nikoli. lze nahodit treba
v konsoli, dela se tak pro kazdou GDB zvlast.
peca
Statistiky pouzivanosti typu browseru v CR
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.6.2002 19:08:39
Zdravim
Nedavno o tom byl clanek na ROOT.CZ (=informacni server zamereny na Linux).
Byla tam i statistika jejich webu. Docela zajimave vysledky. Vetsina nize
uvedenych "oficialnich" statistik je ze MS-like serveru (napr. Zive). Tam je
podil Linuxovych uzivatelu naprosto minimalni. Na rootu ma odhadem Netscape
30%, mozilla 15%, konqueror 8%, lynx 5%, links 4% apod. Zkus si to najit
na www.root(tec)cz.
Zdenek
----- Original Message -----
> Toto jsou statisticke udaje z informacniho webu za cca 6500 unikatnich
> navstev.
>
> MS Internet Explorer --------- 96.4 %
> Netscape --------- 1.2 %
> Nezn�m� --------- 1.1 %
> Opera --------- 0.4 %
> UP.Browser (PDA/Phone browser) --------- 0.4 %
> Konqueror --------- 0 %
> Nokia Browser (PDA/Phone browser) --------- 0 %
> Microsoft Mobile Explorer (PDA/Phone browser) --------- 0 %
> TelePort Pro (site grabber) --------- 0 %
> iCab --------- 0 %
> Lynx --------- 0 %
> Links --------- 0 %
> LibWWW --------- 0 %
> Go!Zilla --------- 0 %
> WebZIP --------- 0 %
> ----- Original Message -----
> Ahoj Delphini, mirne OT, ale presto :
> Nevite, kde se daji na webu najit statistiky pouzivanosti typu
> browseru (staci rozdeleni MSIE, NN, ostatni ...). (nejde mi o statistiky
> nejakych konkretnich stranek, ale neco jako globalni pruzkum ci neco
> podobneho ...) ... hledam to uz jak dlouho a porad nic kloudneho :(
ExtractIconEx
[*] MarekFi <MarekFi(zv)centrum(tec)cz> - 25.6.2002 19:20:53
"ing. Jan Fiala" wrote:
> 23.6.2002 Zdenek Stepanek:
> > ExtractIconEx(Pchar(program1), Round(RxSpinEdit1.Value),Ikona2,Ikona1,1);
> > Image1.Picture.Icon.Handle := Ikona1;
>
> > P.S.: Round tam je pro prevedeni Extended na Integer, urcite je lepsi
> > reseni, ale nemel jsem cas ho hledat. Nevite o necem?
>
> A co treba Int(RxSpinEdit1.Value) ?
>
A mozna jeste lepsi muze byt:
RxSpinEdit1.AsInteger
Marek Fiala
Optimalizace db FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 25.6.2002 20:06:16
Hello, bleak!
You wrote:
b> ptam se proto, ze pri navrhu struktury databaze jsem ruzne laboroval
b> (vkladal, mazal) a soubor s daty narostl do 63 MB. "Optimalizaci" jsem
b> provedl tak, ze jsem databazi zalohoval pomoci gbak.exe a potom opet
b> obnovil, soubor mel potom velikost 33 MB...
A co dal ?
Bude ten GDB soubor jen pro cteni ?
Pokud ne, tak na takovu "optimalizaci" muzes se vykaslat...
With best regards, Alex Cherednichenko.
analyzator resources
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 25.6.2002 20:07:25
ahoj,
nevite nekdo, jestli existuje nejaky programek, ktery by mi z projektu
odstranil prebytecne resources? V projektu mam napr. unitu buttons, ktera
automaticky prida zakladni glyphy pro speedbutton, ktere ale nepouzivam.
Stejne je to i s cursory,stringy a kdovi cim jeste. Rucni odmazani po kazde
kompilaci mne prilis nelaka. Diky.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Seriova cisla HW
[*] Petr Pa��enko <PetrPas(zv)volny(tec)cz> - 25.6.2002 20:45:56
Potreboval bych poradit s moznosti zjistit pomoci n�jake API funkce seriove
cislo zakladni desky pocitace. Zkousel jsem zisteni cisla procesouru, ale
bohuzel ne vsechny procesory podporuji seriove cislo. Pokud by nebyla
moznost zjistit cislo desky, potereboval bych zjistit cislo nejake jine
pokud mozno nemenitelne soucasti pocitace.
Dekuji
PIM komponenty
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 25.6.2002 22:16:31
ahoj,
podicej se na http://www.tmssoftware.com.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
-----Original Message-----
Cau
muzete mi nekdo poradit treba i komercni komponentu pro tvorbu PIM
(planovaci kalendar, pripominac schuzek atd .. ) ?
zatim jsem nasel co se mi libi jazmine components
http://www.jazminecomponents.com/ a nebo EZPlan-IT
http://www.shopsolution.nl/shop/home.asp?shopid=keverit&pageid=pagina1.
Existuje jeste neco lepsiho ?
Milos
ikony z MessageBoxu
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 25.6.2002 22:16:31
ahoj,
chtel bych si vytvorit vlastni dialog, ktery by obashoval stejnou ikonu,
jako napr. okno vytvorene pomoci MessageBox s hodnotou MB_ICONINFORMATION.
Protoze je ale obrazek jiny pod WinXP, chtel bych ho nacitat, patrne z
nejake DLL. Muzete mi nekdo ukazat, jak obrazek ziskat, abych ho mohl nacist
do TImage? Mim cilem je vytvorit klasicky dialog, pouze s tim rozdilem, ze
tam budu mit funkci linky (odkazy do inetrnetu). Diky
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Statistiky pouzivanosti typu browseru v CR
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 25.6.2002 22:16:32
ahoj,
detailni rozbor (analyzu) ceskeho internetu najdes na http://counter.cnw(tec)cz.
Nejen browsery, ale i operacni systemy.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
-----Original Message-----
Ahoj Delphini, mirne OT, ale presto :
Nevite, kde se daji na webu najit statistiky pouzivanosti typu
browseru (staci rozdeleni MSIE, NN, ostatni ...).
try--except
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.6.2002 22:32:23
Zdravim
Pouzivam toto:
try
Registry := TRegistry.Create
-
-
Registry.Free;
except
Registry.Free; <<<chyba
Result := false;
end;
D5 na me krici "Variable 'Registry' might not have been initialized". Pouzit
try--finally nechci, protoze za except mam i Result := false; kdyz funkce
skonci chybne. Nevite nekdo, co delam spatne?
Diky
Zdenek
case Sender.Tag - error
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.6.2002 22:39:11
Zdravim
Mam komponenty HCButton (ma vlastni odvozena od TGraphicControl) a
RxSpinEdit. Celkem 6 dvojic. Kazdy prvek ve dvojici ma stejny Tag. Na
udalosti ze vsech prvku je povesena urcita procedura, kde potrebuji zjistit,
ktery prvek byl pouzit, je mi ale jedno, jestli HCButton nebo RxSpinEdit.
Jinymy slovy potrebuji Tag prvku, ktery vyvolal udalost. Nemuzu ale pouzit
pretypovani ((Sender a THCButton).Tag), protoze stejnou proceduru volam z
ruznych prvku a nechce se mi stejnou proceduru psat dvakrat s pouzitim
pretypovani Senderu.
Doufam, ze jsem se vyjadril pochopitelne.
Zdenek
DBTime komponenta
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 25.6.2002 23:14:58
Ahoj,
nevite, prosim, nekdo o DB-aware komponente,
ktera zprostredkuje zadani casu ve formatu HH:MM.
(Upraveny MaskEdit, nebo neco podobneho) ?
D5 Pro, IB6
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
ikony z MessageBoxu
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.6.2002 23:36:55
Zdravim
Ty ikony jsou nektere v explorer.exe, jine v shell32.exe a i jinde.
Kazdopadne v kazdem systemu i servicepacku jinak, takze vyextrahovat a
prilinkovat k programu. Musim te ale upozornit, ze je to mozna nelegalni.
ZAtim jsme se neshodli na tom, zda je nebo neni.
Zdenek
----- Original Message -----
> chtel bych si vytvorit vlastni dialog, ktery by obashoval stejnou ikonu,
> jako napr. okno vytvorene pomoci MessageBox s hodnotou MB_ICONINFORMATION.
> Protoze je ale obrazek jiny pod WinXP, chtel bych ho nacitat, patrne z
> nejake DLL. Muzete mi nekdo ukazat, jak obrazek ziskat, abych ho mohl
nacist
> do TImage? Mim cilem je vytvorit klasicky dialog, pouze s tim rozdilem, ze
> tam budu mit funkci linky (odkazy do inetrnetu). Diky
>
> S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
> Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
try--except
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 26.6.2002 01:04:17
> Pouzivam toto:
> try
> Registry := TRegistry.Create
> -
> Registry.Free;
> except
> Registry.Free; <<<chyba
> Result := false;
> end;
> D5 na me krici "Variable 'Registry' might not have been initialized".
Pouzit
> try--finally nechci, protoze za except mam i Result := false; kdyz funkce
> skonci chybne. Nevite nekdo, co delam spatne?
D5 ma pravdu. Pokud se nezdari TRegistry.Create (cili vyvola se vyjimka),
pak nedojde k prirazeni do promenne Registry a hodnota teto promenne neni
definovana a destrukce tohoto "objektu" muze vyvolat vyjimku. Create se musi
postarat o pripadnou destrukci alokovanych prostredku pri vyjimce.
Spravneji tedy
Registry := TRegistry.Create
try
....
Muzes to taky zabalit do dvou try bloku (pokud tedy skutecne je treba
zakazat pokracovani ve vyjimce)
try
Registry := TRegistry.Create
try
...
finally
Registy.Free
end
except
Result := false
end;
Tomas
analyzator resources
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 01:08:48
From: "Milan Cizek" <cizek.milan(zv)seznam(tec)cz>
> nevite nekdo, jestli existuje nejaky programek, ktery by mi z projektu
> odstranil prebytecne resources? V projektu mam napr. unitu buttons, ktera
> automaticky prida zakladni glyphy pro speedbutton, ktere ale nepouzivam.
> Stejne je to i s cursory,stringy a kdovi cim jeste. Rucni odmazani po kazde
Stringy prebytecne nejsou a tech par ikonek taky moc neprida. Osobne bych to
neresil. Spis tak neco nanejvys zmrvis.
Petr Vones
try--except
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 26.6.2002 01:09:25
Zdravim
Diky, presne to me taky napadlo, ale rekl jsem si, co kdyby vznikla chyba
prave v tom create? No co, tak to dam jeste pres try.
Zdenek
----- Original Message -----
> > try
> > Registry := TRegistry.Create
> > -
> > Registry.Free;
> > except
> > Registry.Free; <<<chyba
> > Result := false;
> > end;
> > D5 na me krici "Variable 'Registry' might not have been initialized".
> Pouzit
> > try--finally nechci, protoze za except mam i Result := false; kdyz
funkce
> > skonci chybne. Nevite nekdo, co delam spatne?
>
> D5 ma pravdu. Pokud se nezdari TRegistry.Create (cili vyvola se vyjimka),
> pak nedojde k prirazeni do promenne Registry a hodnota teto promenne neni
> definovana a destrukce tohoto "objektu" muze vyvolat vyjimku. Create se
musi
> postarat o pripadnou destrukci alokovanych prostredku pri vyjimce.
>
> Spravneji tedy
> Registry := TRegistry.Create
> try
> ....
ikony z MessageBoxu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2002 01:21:53
From: "Milan Cizek" <cizek.milan(zv)seznam(tec)cz>
> chtel bych si vytvorit vlastni dialog, ktery by obashoval stejnou ikonu,
> jako napr. okno vytvorene pomoci MessageBox s hodnotou MB_ICONINFORMATION.
> Protoze je ale obrazek jiny pod WinXP, chtel bych ho nacitat, patrne z
> nejake DLL. Muzete mi nekdo ukazat, jak obrazek ziskat, abych ho mohl nacist
Podivej se do dokumentace na API funkci LoadIcon a parametry jako IDI_ERROR
apod.
Petr Vones
Cd text
[*] ji�� B�tu��k����*�Z ��%� � - 26.6.2002 02:43:08
Ahoj konference ,
Nevi prosim nekdo jak precist cd text s audio cd .
Budu vdecny za jakoukoliv radu pripadne link ci unit - ku
predem diky
Kindr
Amatersky programator
Delphi 5 ,Win Me,Xp Crc ze Stringu jak
[*] ji�� B�tu��k����*�Z ��%� � - 26.6.2002 02:47:54
Nevi nekdo prosim jak zjistit crc stringu
Predem diky za jakoukoliv radu
Kindr
Delp 5 ,Win Me,Xp
try--except
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.6.2002 06:18:27
Pokud ti vznikne chyba v Create, tak stejne nemuzes delat Free,
protoze objekt neni inicializovan
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.6.2002 Zdenek Stepanek:
> Zdravim
> Diky, presne to me taky napadlo, ale rekl jsem si, co kdyby vznikla chyba
> prave v tom create? No co, tak to dam jeste pres try.