Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Jedna instance aplikace na siti
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 27.7.2001 13:58:53
> nepouzitelne. Rekneme, ze zakaznik ma povolene 3 licence. S programem
> pracuji uzivatele A, B, C, pricemz uzivateli B to spadne. Ten
> zasakruje, ale
> necha to byt, vypne pocitac a odejde. Pak se chce prilogovat
> uzivatel D, ale
> v databazi jsou uz zapsani A, B, C a diky omezeni na tri licence
> se uz nelze
> prihlasit. Rovnez ani sledovani poctu prihlasenych neni uplne
> koser, protoze
> ve vyse popsanem pripade jsou prilogovani 3 uzivatele, i kdyz jsou ve
> skutecnosti jen dva, jezto jednomu to spadlo. Nebo jsem to
> spatne pochopil?
Moznym resenim tohoto problemu, bez pouziti jinych mechanismu nez ktere
poskytuje databaze, by bylo, kdyby kazdy pusteny stroj v urcitem casovem
intervalu zaznamenaval ke svemu zaznamu casove razitko - prilis stare
zaznamy by pak nebyly brany v potaz. To vyzaduje, aby na vsech stanicich
byl (plus minus) stejny cas, coz muze zajistit napr. Novell Netware klient
...
T.
Prenos souboru pres TCP/IP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2001 14:02:26
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> pomoci TClientSocket a TServerSocket komunikuji dva programy
> pres sit. V urcitych pripadech si predavaji programy, ktere se
> prenaseji takto: program rozsekam na 4 kilove kousky, ktere se na
> strane prijemce zase slepi dohromady. Po poslani kazdeho bloku
Ahoj,
a nebylo by jednodussi to poslat cele najednou jako stream ? Ty komponenty to
primo podporuji, tady je na to i priklad:
http://www.borland.com/devsupport/delphi/download_files/fileserv.zip
Dalsi moznost by mohla byt Indy FTP server/client
Petr Vones
TOUTLINE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2001 14:06:22
From: "Ing. J�n Kuch�r" <kuchar(zv)unicodesys(tec)cz>
> da se nejakym zpusobem do komponenty TOUTLINE umistnit na kazdy radek stromu
> jiny obrazekm, potreboval bych totiz podle urovne podadresaru priradit
> kazdemu jiny obrazek
Ahoj,
asi by bylo dobre pouzit spise TTreeView.
Petr Vones
Cara v dbgridu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2001 14:10:55
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> slibil jsem kolegovi, ze se zeptam na tohle - jakou barvu ma cara
> okolo bunek v dbGridu? Jaka to je konstanta cl....?
Ahoj,
viz promenna LineColor v TCustomGrid.Paint
Petr Vones
IB & Transakce & Trigger
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 27.7.2001 14:11:02
> Take jsem se jednou zamotal s tim, ze v triggeru byl generator a ten jde
> nejak mimo tuto
> transakcni logiku.
Generator skutecne funguje mimo transakce.
Rollback hodnotu generatoru zpet nevrati.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0601 203084]
=========================================Jak se v Service Application pripojit k sql databa
[*] voltrr1.epr(zv)mail.cez(tec)cz - 27.7.2001 13:23:25
> Nevi nekdo, jak se pripojit k databazi (Interbase) v Service
> Aplikaci(slu�ba v NT nebo 2000)? Kdyz se zkusim pripojit pres
Musis pouzit cestu v sitovem formatu tj. localhost:c:\aaaaaaaaaa.gdb
Z toho plyne ze musis mit IB6 nebo sitovou licenci
Radek
Jak ukladat a nacitat TIME v IB
[*] voltrr1.epr(zv)mail.cez(tec)cz - 27.7.2001 13:30:32
> V IB tabulce mam pole ODJEZD typu DATE, dle dokumentace k IB ma obsahovat
> take informace o case.
> Mam IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
V IB6 muzes mit bud databazi dialect 1 a pak mas pravdu,
nebo databasi dialect 3 (coz mas) kde je tento typ pole jmenuje
TIMESTAMP a v DATE je jen date
Radek
Jedna instance aplikace na siti
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 27.7.2001 14:46:54
Nastin reseni:
Na serveru bezi serverova aplikace (servis) ktera zaznamenava login a logout
od klientskych aplikaci.
Klienska aplikace se zaloguje pri spusteni na server a ten ji posle zpravu
zda se jeste muze prihlasit ci nikoli.
Pote kazdou minutu aktualizuje svuj stav zaslanim zpravy na serverovou
aplikaci.
Priukonceni klienske aplikace dojde posle logout serverove aplikaci.
Serverova aplikace zapisuje do seznamu prihlasne aplikace s casem
(servrovym) zalogovani a dle zprav od klienta tento cas pravidelne
aktualizuje.
Dle poctu zaznamu v seznamu zasle klientske aplikaci zpravu o tom zda ji lze
nebo nelze spustit.
Serverova aplikace kazde 2min prochazi seznam prihlasenych aplikaci a vyradi
se seznamu vsechny prihlasene aplikace ktere maji cas starsi nez 2min
Tzn, ze v pripade padu klienske aplikace kdy nedojde k radnemu logoutu bude
tato se seznamu automaticky vyrazena po max. 2 minutach
Uvadene casy jsou pouze ilustrativni. Dulezite je aby interval kdy se bude
aktualizovat seznam na serveru byl min. dvojnasobny od intervalu kdy
klientska aplikace zasila informace na server.
Otazkou pak zustava jak je toto reseni dalece neprustrelne.
Pak by v podstate stacilo zasilat na server falesne pakety se zpravou o
logoutu, aby bylo mozno spoustet vice aplikaci nez je licencovano. Pazout
> > nepouzitelne. Rekneme, ze zakaznik ma povolene 3 licence. S programem
> > pracuji uzivatele A, B, C, pricemz uzivateli B to spadne. Ten
> > zasakruje, ale
> > necha to byt, vypne pocitac a odejde. Pak se chce prilogovat
> > uzivatel D, ale
> > v databazi jsou uz zapsani A, B, C a diky omezeni na tri licence
> > se uz nelze
> > prihlasit. Rovnez ani sledovani poctu prihlasenych neni uplne
> > koser, protoze
> > ve vyse popsanem pripade jsou prilogovani 3 uzivatele, i kdyz jsou ve
> > skutecnosti jen dva, jezto jednomu to spadlo. Nebo jsem to
> > spatne pochopil?
>
> Moznym resenim tohoto problemu, bez pouziti jinych mechanismu nez ktere
> poskytuje databaze, by bylo, kdyby kazdy pusteny stroj v urcitem casovem
> intervalu zaznamenaval ke svemu zaznamu casove razitko - prilis stare
> zaznamy by pak nebyly brany v potaz. To vyzaduje, aby na vsech stanicich
> byl (plus minus) stejny cas, coz muze zajistit napr. Novell Netware klient
> ...
>
> T.
>Instalace Kylixu OE
[*] Petr Kucera <kucera(zv)vri(tec)cz> - 27.7.2001 13:47:05
Dobry den,
prosim Vas, zkousel nekdo instalovat Kylix OE na LINUX Debian?
PK
Pohyb po radcich v gridu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.7.2001 14:51:20
On 27 Jul 2001, at 13:00, bardon wrote:
> Jak zakazat pohyb v na vybrane radky v Gridu.
>
> Potreboval jsem docasne "skryt" nektere radky v gridu. Udelal jsem to
> tak, ze jsem jim nastavil nulovou vysku, pak nejdou videt a je to
> prijatelne. Ale kdyz se pohybuji po radcich pomoci sipky nahoru a
> dolu, tak mi to "pochoduje" i po tech neviditelnych. Jak bych mohl
> elegantne docilit toho aby mi to neviditelne radky ignorovalo? V
> krajn�m pripade bych snad odchytaval OnKeyDown, ale zda se mi to
> takove divne...
Hm, tento problem jsem resil tak, ze jsem si napsal vlastni grid.
Ten ma jeden seznam, ktery ukazuje na vsechna nactena data.
Pak ma druhy seznam, ktery ukazuje na polozky v prvnim
seznamu, a pres ktery data zobrazuji. Ma to tu vyhodu, ze mohu
pomocny seznam libovolne pretridit (pricem presunuji pouze
pointery), a take ze ho mohu libovolne zkratit (filtrovat radky z
prvniho seznamu). Je v OLE DB knihovne.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pohyb po radcich v gridu
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 27.7.2001 15:01:11
Podla mna to je jednoduche = ak riadok ma nulovu velkost tak skoc na
nasledujuci riadok a zase to testuj.
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
> -----P�vodn� zpr�va-----
> Od: bardon [SMTP:bardon(zv)akord-soft(tec)cz]
> Odesl�no: 27. j�l 2001 13:01
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Pohyb po radcich v gridu
>
> Jak zakazat pohyb v na vybrane radky v Gridu.
>
> Potreboval jsem docasne "skryt" nektere radky v gridu. Udelal jsem to tak,
> ze jsem jim nastavil nulovou vysku, pak nejdou videt a je to prijatelne.
> Ale
> kdyz se pohybuji po radcich pomoci sipky nahoru a dolu, tak mi to
> "pochoduje" i po tech neviditelnych. Jak bych mohl elegantne docilit toho
> aby mi to neviditelne radky ignorovalo? V krajn�m pripade bych snad
> odchytaval OnKeyDown, ale zda se mi to takove divne...
> Potize s BLOB na IB6
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 27.7.2001 15:45:45
Omlovam se popisu to blize:
Pouzivam IBExpress v 4,52 a komponentu IBQuery, zkousel jsem i IBDataset a
je to stejne
Zajimave je, ze s IBTabe to funguje
Edituju to v DBRichEdit
Pavel Bare
.
----- Original Message -----
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 27, 2001 12:41 PM
Subject: RE: Potize s BLOB na IB6
> Ahoj,
> muzes ten problem specifikovat bliz?
> Vkladas to pres BlobField, nebo pres DBAware nebo jak..?
> Pouzivas DBaware, IBDataSet, proste se trochu rozepis..:-)
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Pavel
> Bare#
> Sent: Friday, July 27, 2001 9:54 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Potize s BLOB na IB6
>
>
> Dobry den
>
> Mam problem s ukladanim blob na IB6.
> Na post mi to hodi chybu "feature is not supported BLOB and aray
datatypes
> are not supported for compare operation"
> Kdyz jsem to debugoval zjistil jsem ze to dela InternalRefresh, ale dal
> nevim co stim.
>
> diky za pomoc
>
> Pavel Bares
>Omezeni radku v DBMemo
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 27.7.2001 15:53:55
Dobry den
Nevite nekdo jak omezit pocet radku, ktere muze uzivatel napsat do DBMemo ?
Nemate nekdo tareba nejakou takovou komponentu ?
dekuji
Pavel Bares
Zapamatanie rozlozenia TCoolBar
[*] Roland Tur�an - RoTurSoft <rotursoft(zv)kiwwi.sk> - 27.7.2001 16:12:20
Zdravim.
Ako zabezpecim zapamatanie pozicii jednotlivych bandov.
Dakujem.
Roland.Prenos souboru pres TCP/IP
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.7.2001 16:17:43
To lze jen pomoci protokolu NetBEUI (site Windows
nebo Linux+Samba server).
Martin Schayna
mschayna(zv)aktis(tec)cz
----- Original Message -----
From: "Jan Tungli" <Jan.Tungli(zv)datapac.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 27, 2001 12:06 PM
Subject: RE: Prenos souboru pres TCP/IP
Existuje na to obycajny copy command na IP adresu
napr.
copy myFile.dat \\10.10.1.255\c\database\myfile.dat
Na co potom robit paketovanie. Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:hlinka(zv)hlinka(tec)cz]
> Odesl�no: 26. j�l 2001 17:34
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Prenos souboru pres TCP/IP
>
> Ahoj,
>
> pomoci TClientSocket a TServerSocket komunikuji dva programy
> pres sit. V urcitych pripadech si predavaji programy, ktere se
> prenaseji takto: program rozsekam na 4 kilove kousky, ktere se na
> strane prijemce zase slepi dohromady. Po poslani kazdeho bloku
> dat cekam na potvrzeni od prijmece, ze je vse OK. Pak posilam
> dalsi blok.
>
> Vetsinou to jede jako po masle, ale u nekterych zakazniku se
> stava, ze je prenos prilis pomaly, a u vetsich programu se casto
> stane, ze prenos spadne nekde cestou. Netusite nekdo, kde delam
> chybu?
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Pohyb po radcich v gridu
[*] Roland Tur�an - RoTurSoft <rotursoft(zv)kiwwi.sk> - 27.7.2001 16:22:14
A nie je lepsie odfiltrovat tie riadky ? To co si Ti vymyslel mi pripada
poriadne "chore". Co tak pouzit OnFilterRecord, alebo nieco podobne.
R.
From: "bardon" <bardon(zv)akord-soft(tec)cz>
Subject: Pohyb po radcich v gridu
> Jak zakazat pohyb v na vybrane radky v Gridu.
>
> Potreboval jsem docasne "skryt" nektere radky v gridu. Udelal jsem to tak,
> ze jsem jim nastavil nulovou vysku, pak nejdou videt a je to prijatelne.
Ale
> kdyz se pohybuji po radcich pomoci sipky nahoru a dolu, tak mi to
> "pochoduje" i po tech neviditelnych. Jak bych mohl elegantne docilit toho
> aby mi to neviditelne radky ignorovalo? V krajn�m pripade bych snad
> odchytaval OnKeyDown, ale zda se mi to takove divne...
>
>
Edit na formu
[*] Roland Tur�an - RoTurSoft <rotursoft(zv)kiwwi.sk> - 27.7.2001 16:25:53
var Editbox1:TEdit;
begin
EditBox1:=TEdit.Create(self);
EditBox1.parent:=self;
EditBox1.Width...
atd.
Roland.
----- Original Message -----
From: "Petr Luis" <Petr_Luis(zv)seznam(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 27, 2001 8:13 AM
Subject: Edit na formu
> Ahoj,
>
> mam takovej zacatecnickej dotaz, takze prominte, jestli
> rusim vase odborny debaty.
>
> Mam takovej problem, kterej se mi nedari vyresit.
>
> Vytvoril sem novej form prikazem Form:=TForm.CreateNew(Application);
> a rad bych vytvoril dynamicky treba standartni TEdit tak, aby byl na tomto
> formu. Jakym zpusobem mam Edit vytvorit ?
>
> W2K, D5 Ent
>
> diky za radu
>
> Luis
>
>Omezeni radku v DBMemo
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 27.7.2001 16:34:11
> Nevite nekdo jak omezit pocet radku, ktere muze uzivatel napsat do DBMemo
?
Pocet riadkov v DBMemu? Neni spravnejsie omedzit celkovu velkost textu?
DMMemo.MaxLength := xx;
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Napoveda ve tvaru CHM
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 27.7.2001 16:47:05
> poradte mi prosim, stahnul jsem si Toolbar2000 a napoveda je ve tvaru
*.chm.
> Jak zaridim v D5 aby mi to kontextov� zobrazovalo napovedu k jednotlivym
> komponentam?
Delphi samotne to neumoznuju. Mas dve moznosti:
Zkonvertovat to do *.hlp a potom to pridat do Delphi Helpu
alebo si napisat experta do IDE ktory si zisti aktualne slovo z textu alebo
nazov komponenty pri stisku klavesy (napriklad F2) a bude pracovat s *.chm.
Alebo sa zmierit s tym ze to po otvoreni *.chm budes pisat rucne alebo cez
CopyClipboard - v tom pripade je najjednoduchsie si zaregistrovat novu
polozku menu do menu TOOLS, ...
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Jak ukladat a nacitat TIME v IB
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 27.7.2001 16:49:39
Pokud pouzivas dialekt 3 musis misto typu date pouzit timestamp
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
Re[2]: Webova aplikace
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 27.7.2001 17:07:47
Hello Mephisto,
Friday, July 27, 2001, 12:08:18 PM, you wrote:
M> Cau,
M> ja to delam tak ze si udelam html v nejakym editoru a misto skutenych dat
M> pouzivat konstrukci (zv)DATA(zv) potom kdyz se stranka generuje nahradim to
M> skutecnymi daty (pochopitelne tech pomocnych znacek mam vic napr. (zv)JMENO(zv)
M> kus html (zv)PRIJMENI(zv) kus html (zv)ADRESA(zv) atd..)
M> ----- Original Message -----
M> From: Lebeda David <david.lebeda(zv)comarr(tec)cz>
M> To: <delphi-l(zv)clexpert(tec)cz>
M> Sent: Friday, July 27, 2001 10:27 AM
M> Subject: Webova aplikace
>> Ahojte,
>>
>> sbiram nazory na tema, jak psat webove aplikace. Zkousel jsem
>> zatim v Delphi CGI, ale to je hrozna nadenicina. Clovek v podstate
>> generuje string obsahujici html popis stranky, coz (aspon u me)
>> vedlo k tomu, ze vznikle stranky a formulare byly jen velice
>> jednoduche, na pohled nic moc a uzivatelsky komfort taky nic
>> moc. Existuje tedy nejaka lepsi cesta? Rad bych se zbavil nutnosti
>> sam tvorit do mrte to html. Nejaky vizualni nastroj, jak vizualne
>> vytvorit vzhled stranky apod. Je na to lepsi jit v Delphi nebo mimo
>> nej?
>>
>> David Lebeda
M> ---
M> Odchozi zprava neobsahuje viry.
M> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
M> Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
a jak udelas treba cyklus... ??? toto resi moje htmldocument
komponenta.. a i dalsi veci, jako podminky, includy apod..
--
Best regards,
Raul mailto:raul(zv)raphael(tec)cz
Jakou pouzit databazi (Free)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.7.2001 17:12:51
Kdysi jsem kdesi videl komponenty - potomky TDatasetu, ktere
si samy umely resit ukladani a nacitani do/z souboru, tusim ve formatu
CSV. Nebo mozna do/z TStream potomka?
Zkus torry, dsp...
Martin Schayna
mschayna(zv)aktis(tec)cz
----- Original Message -----
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 27, 2001 12:44 PM
Subject: RE: Jakou pouzit databazi (Free)> Ahoj,
> rekl bych, ze tohle asi najdes dost tezko. Obcas lze pouzit soubory s
> vlastnim formatem (napr. textovy), pro rychlejsi vyhledavani je natahnout
> cele do pameti, ale to vse zavisi na predpokladanem mnozstvi dat. Pri
vetsim
> mnozstvi je to naprosto nepouzitelne.
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
>
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Michal K�s
> > Sent: Tuesday, July 17, 2001 2:26 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Jakou pouzit databazi (Free)
> >
> >
> > Ahoj,
> > pro velmi jednoduchou aplikaci bych potreboval bych tip, na
> > nejak� knihovny
> > pro pristup k databazi.
> > Format dat ani vykon neni podstatny, jde hlavne o jednoduchost a cenu.
> > Klient musi byt soucasti exe a cena nejlepe 0 Kc vcetne DPH. Taky by
mela
> > umet pracovat s databazovymi komponentami Delphi.
> >
> > BDE, FF a IB nevyhovuji, protoze nesplnuji nektere z vyse uvedenych
> > pozadavku.
> >
> > Dik za rady.
> >
> > Michal
> >
> > ing. Michal K�s
> > TANGO software s.r.o.
> > Krymsk� 47
> > 360 01 Karlovy Vary
> > 017/32 264 68, 32 258 86
> > kus(zv)tangosw(tec)cz
> > www.tangosw(tec)cz
> >
> >
> >
>
>Prenos souboru pres TCP/IP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.7.2001 17:37:17
On 27 Jul 2001, at 14:02, Petr Vones wrote:
> > pomoci TClientSocket a TServerSocket komunikuji dva programy
> > pres sit. V urcitych pripadech si predavaji programy, ktere se
> > prenaseji takto: program rozsekam na 4 kilove kousky, ktere se na
> > strane prijemce zase slepi dohromady. Po poslani kazdeho bloku
>
> a nebylo by jednodussi to poslat cele najednou jako stream ? Ty
> komponenty to primo podporuji, tady je na to i priklad:
> http://www.borland.com/devsupport/delphi/download_files/fileserv.zip
Mno, jenze ten to posila prave po tech 4 kilovych kouscich, ale tak,
jak to nechci.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prenos souboru pres TCP/IP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2001 17:40:35
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Mno, jenze ten to posila prave po tech 4 kilovych kouscich, ale tak,
> jak to nechci.
Ahoj,
a jak to teda chces ? <g>
Petr Vones
Decompiler
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 27.7.2001 18:24:17
> dekompiler ceho ?
>
> Petr Vones
Decompiler EXE vygenerovaneho Delphi compilerom. Ospravedlnujem sa za
neuplne vyjadrenie.
S pozdravom Robo
sirka textu
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 27.7.2001 18:36:59
Ahoj,
treba takhle
procedure TForm1.Button1Click(Sender: TObject);
Var I, W : Integer;
begin
W := 0;
For I := 0 To ListBox1.Items.Count - 1 Do
Begin
If W < Form1.Canvas.TextWidth(ListBox1.Items.Strings[I]) Then
W := Form1.Canvas.TextWidth(ListBox1.Items.Strings[I]);
ListBox1.Width := W + 5;
End;
ListBox1.Width := W + 10;
end;
Ale pokud mas hodne radku v listboxu bude to dost zpomalovat. Pokud dopredu
vis kterej je nejdelsi tak ti odpadne smycka a je to OK
> > 2) zmena sirky ListBoxu: "ListBox.Width := sirka nejdelsiho textu"
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
Re[2]: Webova aplikace
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 27.7.2001 18:39:52
Ja se s tebou nedohaduju ze resi dotaz byl na namety a pripominky ne. Ja sem
dal namet ty mas pripominku vse OK ale tu smeruj tazateli a ne me ja si s
tim vystacim. Jasne ze pokud je potreba udelat neco slozitejsiho neni to to
pravy orechovy.
> a jak udelas treba cyklus... ??? toto resi moje htmldocument
> komponenta.. a i dalsi veci, jako podminky, includy apod..
>
> --
> Best regards,
> Raul mailto:raul(zv)raphael(tec)cz
>
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
COM
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 27.7.2001 18:53:50
Hello delphi-l,
Co je potreba pro to, aby applikace s remote data module a pridanou
jednou metodou a jednou vlastnosti do type library na jednou
pocitaci poskytovala interface i pres sit ? Lokalne mi to funguje i
jako socket, i jako dcom connection, ale vzdalene jen jako socket.
(BTW prenos dat pres provider mi nefunguje na dvou pocitacich
vubec).
CO je potreba za knihovny na serveru a klientu pri pouziti DCOM ?
Kdyby se mi ozval nekdo kdo by mohl pomoci, zaslu klidne programek
ktery jsem napsal/vygeneroval a jehoz funkce ani asi v peti obmenach
mi nefunguje vzdalene.
Jo jeste chybova hlaska
INTERFACE NOT SUPPORTED nebo tak nejak...
--
Best regards,
Raul mailto:raul(zv)raphael(tec)cz
Decompiler
[*] borkovec(zv)email(tec)cz - 27.7.2001 19:04:23
--- P�vodn� zpr�va ---
Od: "Robert Suska, KORAK slovakia" <robert(zv)korak.sk>
Datum: 27.07.2001 18:51:37
> dekompiler ceho ?
>
> Petr Vones
Decompiler EXE vygenerovaneho Delphi compilerom. Ospravedlnujem sa za
neuplne vyjadrenie.
S pozdravom Robo
Nasel jsem dekompilator pro D3-D5, jmenuje se DeDe - adresu lze najit treba pres altavistu. Pracuje slusne
---
** CREATED BY EMAIL.CZ **
http://www.email(tec)cz <--- Get Your Free Email
Decompiler
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2001 19:06:20
From: "Robert Suska, KORAK slovakia" <robert(zv)korak.sk>
> Decompiler EXE vygenerovaneho Delphi compilerom. Ospravedlnujem sa za
> neuplne vyjadrenie.
Ahoj,
a co by to melo dekompilovat ? Delphi neni Foxka ale prekladac, takze tezko
muzes z prelozeneho kodu rekonstruovat neco rozumneho.
Petr Vones
OT:Re: Jak ziskat programatora v Delphi? --- KOLIK
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.7.2001 19:18:38
Diky za omluvu, ale abych odpovedel na primy dotaz (i kdyz nestastne
formulovany) tak uvadim: za "hotoveho" programatora s vybornou znalosti
vsech technologii ktere pouzivame 30-35 tisic mesicne
Je to malo nebo to staci, panove?
Martin Schayna
(ta firma)
> Toto mela byt reakce na postoj nekterych dnesnich zamestnavatelu
pripoustim
> ze ne mozna moc stastne formulovana. Prosim nechapejte ji jako utok na
> predstavitele firmy ktery se zde ptal ci na jeho osobu. Dale se teto firme
a
> osobe omlouvam na ne prilis stastnou poznamku.
>
> > Mozna by nebylo od veci poradne zaplatit misto kecu o prijemnem
pracovnim
> > kolektivu :-)))
Decompiler
[*] borkovec(zv)email(tec)cz - 27.7.2001 19:25:53
http://156.17.4.4/~player/playtools/disassemblers.html
To je ta adresa, kde to najdes. Jo a je to FREE.
---
** CREATED BY EMAIL.CZ **
http://www.email(tec)cz <--- Get Your Free Email
OT: Cas vychodu a zapadu slunce
[*] Jakub Pl�ek <kubapl(zv)seznam(tec)cz> - 27.7.2001 20:53:37
Nevim jestli ma predchozi otazka zapadla nebo to fakt nikdo nevi, ale
potreboval bych nejak vypocitat, kdy vychazi a zapada slunce(presnost staci
na minuty).
Nevite nekdo alespon link kde se da ten algorytmus nastudovat??
Dik za kazde nakopnuti....:-)
Jakub Plsek
kubapl(zv)seznam(tec)cz
www.sweb(tec)cz/kubapl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Jedna instance aplikace na siti
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 27.7.2001 23:10:58
Hello brant!
> pracuji uzivatele A, B, C, pricemz uzivateli B to spadne
Neni problem drzat v tabulke aj cas alebo nejake 'sequence number', ktore by
sa periodicky updatovalo a ked niektora instancia odhali, ze urcity zaznam
je dlhsie neaktivny ('zastavili sa mu hodiny'), tak ho zrusi.
Bye
V.Mlich http://www.rar(tec)cz
Jak ziskat programatora v Delphi?
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 28.7.2001 00:06:31
Rekl bych, ze problem bude v tom, ze vetsina dobrych a zkusenych
programatoru s praxi nebude chtit do hlavniho pracovniho pomeru. To co si
vydelaji externi spolupraci na zivnostak, presahuje dvojnasobek platu v
zamestnaneckem pomeru.
Jednou z mala moznosti je oslovovat cerstve absolventy VS, kteri jsou
vetsinou schopni a bez zavazku. Pripadne je podchytit tesne pred dokoncenim
skoly.
Dalsi moznosti je hledat v krajich a okresech s vyssi nezamestnanosti. Tam
rozhodne uspejete.
Jan Skopovy
> Mohl by mi nekdo poradit jak ziskat do hlavniho pracovniho pomeru
> dobreho programatora v Delphi? Zkouseli jsme snad vsechno, inzeraty
> v tisku, job servery, agentury ... a nic.
>
> Pripadne pokud jste volni nebo mate zajem pracovat pro znamou a
> prosperujici prazskou softwarovou firmu a byt nadprumerne
> ohodnoceni, ozvete se.
Jak zjistit sirku taskbatu???
[*] Jakub Pl�ek <kubapl(zv)seznam(tec)cz> - 28.7.2001 11:36:11
Ahoj
Potrebuju aby se muj form "prilepoval ke krajum obrazovky a k taskbaru.
Vim, ze na to je plno komponent, ale ty nefungujou pokud mam
Form1.BorderStyle:=bsNone. Jak prilepovat ke stenam mam uz vymysleny, ale
nevim jak to prilepit k TaskBaru.Tak sem si rikal jestli bych nejak
nezjistil sirku Taskbaru ale nevim jak.
Dik za kazdou radu.
Sorry jestli to tady nekdy nedavno bylo....
Jakub Plsek
kubapl(zv)seznam(tec)cz
www.sweb(tec)cz/kubapl -zatim tam nic moc neni
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Prenos souboru pres TCP/IP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.7.2001 12:58:13
On 27 Jul 2001, at 17:40, Petr Vones wrote:
> > Mno, jenze ten to posila prave po tech 4 kilovych kouscich, ale tak,
> > jak to nechci.
>
> a jak to teda chces ? <g>
Ja po te same lajne posilam i jine zpravy, takze potrebuji obalit
kazdy paket jeste dalsimi informacemi.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak ziskat programatora v Delphi?
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 28.7.2001 13:58:29
> Rekl bych, ze problem bude v tom, ze vetsina dobrych a zkusenych
> programatoru s praxi nebude chtit do hlavniho pracovniho pomeru. To co si
> vydelaji externi spolupraci na zivnostak, presahuje dvojnasobek platu v
> zamestnaneckem pomeru.
Je to pravda : ale pod podmienkou:
-kontakty
-mat financie na zaciatok a na casy ked robis na niecom dlhsie
-nebyt len sam! (nemozes aj managovat aj robit)
potom to ide na 100%
Ja som robil sam, 3 roky hned po skole, bez financii a mozem povedat, ze
rodina dost trpela
Momentalne som s tym prastil a zamestnal som sa u nemca v Nemecku.
P.#0
[*] <bukaj(zv)iol(tec)cz> - 28.7.2001 16:55:52
Dobry den,
mam nasledujici problem:
Z resource potrebuji dostat soubor a ulozit ho. Provadim to nasledovne:
var
h: THandle;
p: pointer;
f: TextFile;
s: string;
begin
h := FindResource(hInstance, 1, 'DATA');
h := LoadResource(hInstance, h);
p := LockResource(h);
AssignFile(f, 'C:\test.dat');
Rewrite(f);
s := StrPas(p);
Write(f, s);
CloseFile(f);
UnLockResource(h);
FreeResource(h);
end;
Problem je v tom, ze pri funkci StrPas se mi soubor zkrati na delku, kde je
umisten prvni znak #0. Poradite mi co s tim?
Cas vychodu a zapadu slunce
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 28.7.2001 17:28:22
> Nevim jestli ma predchozi otazka zapadla nebo to fakt nikdo nevi, ale
> potreboval bych nejak vypocitat, kdy vychazi a zapada slunce(presnost
staci
> na minuty).
http://www.best.com/~williams/sunrise_sunset_algorithm.htm
Hodne zdaru,
Leos
Grid checkbox po 3ti
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 28.7.2001 17:41:31
ahoj kluci potrebuji dostat check box do gridu (je mi jedno do
ktereho,nejlepeDBgridu) no a ten checkbox bude v jednom sloupecku na misto
pole ktere ma hodnotu A/N podle toho bude zaskrtlej nebo ne..Tak kluci
poradte mi.
Vzdyt to urcite nekdo vite.Ja si vazne nevim rady
PS: pro Martina Bena,nebylo to presne to co potrebuji,ale dik
Aldik Pavel
amater vsech amateru..D5 W98 a chudej jak kostelni mys
#0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2001 19:21:52
From: <bukaj(zv)iol(tec)cz>
> Z resource potrebuji dostat soubor a ulozit ho. Provadim to nasledovne:
Ahoj,
napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
ResStream: TResourceStream;
begin
ResStream := TResourceStream.Create(HInstance, 'MAINICON', RT_GROUP_ICON);
try
ResStream.SaveToFile('Test.dat');
finally
ResStream.Free;
end;
end;
Petr Vones
Prenos souboru pres TCP/IP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2001 19:40:25
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ja po te same lajne posilam i jine zpravy, takze potrebuji obalit
> kazdy paket jeste dalsimi informacemi.
Ahoj,
dobre, tak muzes udelat vice spojeni, pricemz dany soubor (stream) bude mit
svoji hlavicku a ty jine (predpokladam mensi) pakety s informacemi taky.
Petr Vones
Grid checkbox po 3ti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2001 19:49:56
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> ahoj kluci potrebuji dostat check box do gridu (je mi jedno do
> ktereho,nejlepeDBgridu) no a ten checkbox bude v jednom sloupecku na misto
> pole ktere ma hodnotu A/N podle toho bude zaskrtlej nebo ne..Tak kluci
Ahoj,
jde o to, jestli to ma byt pouze pro zobrazovani nebo jestli ten checkbox ma
byt funkcni i pri editaci pole.
Petr Vones
#0
[*] <bukaj(zv)iol(tec)cz> - 28.7.2001 20:51:48
Asi neco delam blbe, ale tento kod mi zapise jen prvnich 20 bytu. A mezi
nimi je i nejaky #0. Co s tim?
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, July 28, 2001 7:21 PM
Subject: Re: #0
From: <bukaj(zv)iol(tec)cz>
> Z resource potrebuji dostat soubor a ulozit ho. Provadim to nasledovne:
Ahoj,
napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
ResStream: TResourceStream;
begin
ResStream := TResourceStream.Create(HInstance, 'MAINICON', RT_GROUP_ICON);
try
ResStream.SaveToFile('Test.dat');
finally
ResStream.Free;
end;
end;
Petr Vones
Query na RxMemoryData bez BDE ??
[*] Milan ��ek - 28.7.2001 20:54:19
ahoj,
potrebujem vytvorit dotaz na tabulku v pameti realizovanou pomoci
RxMemoryData. Pokud mozno bez pouziti BDE. Zkousel jsem RxQuery a standardni
query, vzdy se vsak hleda jmeno tabulky na pevnem disku.
Jak to udelat? Dik
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Cudzi COM Objekt v mojom programe
[*] <mms(zv)host.sk> - 28.7.2001 23:24:49
Zdravim vsetkych,
do projektu som naimportoval TLB cudzieho COM objektu. Su v nom objekty dispinterface. Co mam vo svojom programe nadeklarovat a ako to mam urobit aby som mohol tieto objekty pouzivat?
Mozete mi niekto ukazat kusok kodu.
(su tam len same dispinterface, interface tam nie su)
Diky MiroMr
JCL a Mapi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 29.7.2001 10:10:02
Caute
Pouzivam JCL na pracu s MAPI. Posielam emaily v emailovom klientovi, ktory
si vyberie. Je to s JCL uplne jednoduche, napriek tomu to nefunguje:
ked mam ClientConnectKind ctAutomatic a ctMAPI tak neakceptuje mnou
nastaveneho
clienta, ale praska to stale do defaultu.
Ked mam nastaveneho ctDirect, tak zase vyhodi MAPI Error (2) - General MAPI
failure
Mate s tym niekto skusenosti?
Dakujem
P.co mam spatne??
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.7.2001 13:07:37
Zdravim
V mwCustomEditu mam text a kdyz z nej smazu jakoukoliv cast na konci,
uvedena procedura vyhodi hlasku "List index out of bounds". Muzete mi nekdo
poradit, co mam spatne?
procedure TMainForm.mwCustomEdit1SelectionChange(Sender: TObject);
begin
if mwcustomedit1.seltext <> '' then
StatusLine.Panels[0].Text := ('Vybr�no znak�:
'+IntToStr(Length(mwcustomedit1.seltext))) else
StatusLine.Panels[0].Text := ('');
end;
Diky vsem, kdo poradi
Hurricane
JCL a Mapi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2001 13:08:21
From: "Ing. Patrik Tesar" <tesar(zv)rainside.sk>
> ked mam ClientConnectKind ctAutomatic a ctMAPI tak neakceptuje mnou
> nastaveneho clienta, ale praska to stale do defaultu.
Ahoj,
to je v poradku, ctAutomatic vybira 'nejvhodnejsiho' klienta a ctMAPI pak
primo MAPI32.DLL. Hodnota SelectedClientIndex se pouziva pouze v rezimu
ctDirect. Spust si MapiExample.dpr kde si muzes klienty snadno vybrat, je
mozne ze nektery z nich podporuje spatne Simple MAPI. Mimochodem o jakeho
klienta se jedna ?
Petr Vones
#0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2001 13:09:32
From: <bukaj(zv)iol(tec)cz>
> Asi neco delam blbe, ale tento kod mi zapise jen prvnich 20 bytu. A mezi
> nimi je i nejaky #0. Co s tim?
Ahoj,
to je zcela spravne, resource RT_GROUP_ICON ma 20 bytu, co jineho by jsi
ocekaval ze to ulozi ?
Petr Vones
COM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2001 13:12:40
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
> CO je potreba za knihovny na serveru a klientu pri pouziti DCOM ?
Ahoj,
zalezi jaky OS je v roli serveru. Obecne by to mely byt spise NT. Vice se lze
dozvedet treba tady: http://www.distribucon.com/dcom95.html
Petr Vones
CustomDrawing TreeView
[*] Milan ��ek - 29.7.2001 13:46:40
ahoj,
v OnCustomDrawItem mam: if Node.Level=0 then
Sender.Canvas.Font.Style:=[fsBold]; Problem je pri zobrazeni hned po
spusteni aplikace. Prvni radek je sice tucny, ale 'useknuty'. Jakoby ten
Rect mel velikost textu netucneho. Vite nekdo, co stim?
2) Potreboval bych, aby pozadi meho treeview bylo pruhledne (aby bylo videt
to, co je pod nim - nebo se musi vykreslit cast bitmapy primo v treeview?).
Nasel jsem nejaky kod v archivu, odchyceni nejake zpravy. Potreboval bych
ale vysvetlit, jestli je nutne pro toto odvozovat novy treeview. Nebo by to
slo naroubovat na ten standardni? - odvozovani komponenty sem nikdy nedelal,
mam vtom asi peknej chaos.
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Odchycen� mys�i v TreeView
[*] Milan ��ek - 29.7.2001 13:47:44
ahoj,
potrebuju odchytit vstup mysi (i klavesnice) na Treeview, ktery mam umisteny
na dalsi komponente (rekneme Panel). Zkousel jsem to pres zpravy
CMMOUSEENTER a CMMOUSELEAVE ale nereaguje. Chci docilit toho, ze pokud je
uzivatel v TreeView, pak vybrana polozka neni videt. Pokud sjede, potrebuju
vybranou polozku podtrhnout. Jak udelam to podtrzeni vybrane polozky po
sjeti a odtrzeni po najeti?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
type
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 29.7.2001 13:48:45
Deklarujem novy objekt TShape2:
type
TVzdialenost = Integer;
TShape2 = class(TShape)
published
Vzdialenost: TVzdialenost;
property OnClick;
end;
Pri kompilacii mi hlasi tuto chybu: Published field 'Vzdialenost' not a
class nor interface type
Co mam urobit, aby som tam dostal tu premennu Vzdialenost?
MessageDlg
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 29.7.2001 13:49:26
Ako sa da vytvorit v jednotke vlastny Message, kde by som si mohol
nadefinovat texty tlacitok v reci Windowsu a nie v anglictine. Jedna moznost
by bola cez MB_DEFBUTTON1, ale pokial viem to sa da robit len cez
Application.MessageBox a ja to potrebujem mat v jednotke ktora nema nic s
Application.
Vdak za kazdu radu.Grid checkbox po 3ti
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 29.7.2001 14:59:18
Ja wrote:
ahoj kluci potrebuji dostat check box do gridu (je mi jedno do
> ktereho,nejlepeDBgridu) no a ten checkbox bude v jednom sloupecku na
misto
> pole ktere ma hodnotu A/N podle toho bude zaskrtlej nebo ne..Tak kluci
Peta Wones wrote:
> jde o to, jestli to ma byt pouze pro zobrazovani nebo jestli ten checkbox
ma
> byt funkcni i pri editaci pole.
A zase JA wrote:
I pri editaci drahy Petre...zachran me.
Aldik Pavel D5 Ent W 98
Jak zjistit chybove hlaseni u TQuery
[*] Marek Soukup <code(zv)btt(tec)cz> - 29.7.2001 15:02:37
Haj hou,
budu ve sve aplikaci poustet uzivatelem napsane SQL dotazy pres komponentu
TQuery a rad bych lepe urcil moznou chybu. Priklad:
SELECT * FROM Tabule WHERE Polozka=:Parametr ORDER BY Polozka;
Kdyz nebude mil Parametr hodnotu tak to jeste napise celkem srozumitelne,
ale kdyz bude hodnota nespravneho typu je chybova hlaska velmi obecka (Type
mismatch).
Da se to delat nejak pres Exception nebo bude nejjednodusi projit senzma
vsech parametru a zkontrolovat typy. U te druhe moznosti jsem se nejak
zasekl a vubec nevim jak na to.
S pozdravem
Marek Soukup
DBChecklistBox - velice dulezite a MessageEvents
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 29.7.2001 15:02:33
Ahoj potreboval bych komponentu,ktera by vypadala jako checklistbox.
Tj.abych si mohl zaskrtnutim vybrat,ktera polozka ano a ktera ne. Vse by
melo byt prikonektovano k tabulce hodnota checked by bylo vlastne pole
VYBRANO,ktere ma 2 hodnoty.Predem rikam ze tabulka je obsahla a nejake
prochazeni,jak jsem to delal doposud nepripada v uvahu,silene to
zdrzuje.Zatim jsem pouzil DBGrid,ktery ma na dane pole nastavene 2 hodnoty a
2clickem to prenastavuji,ale neni to ani hezke,ani rychle
ovladatelne.Refresh DB by se del okamzite po akci. Pripadne mi poradte
konecne poradte jak dostat nastalo Checkbox do jakehokoliv Gridu a ja budu
spokojeny.
Take by me zajimalo
tohle mam
TAnyUtilsEvent.CharMapMsg (vlastni event,ktery mi kontroluje zadost o
minimalizaci)
{nekde jsem to videl a poznamenal si,mozna ve sve stare firme,ktere timto
dekuji,ze jsem ji mohl opustit}
var Msg: TMsg;
if (Msg.Message = 161) and (Msg.WParam=8) then
begin
Msg.Message :=512;
Application.Minimize;
end;
a tohle ale funguje jen u show,jak je to showmodal,tak ne.
Muzete mi to nekdo vysvetlit? I cele Message,kde najdu seznam message atd. a
take blizsi seznameni s temito message, muzete se nekdo rozhovorit,nestydte
se.
Diky Aldik Pavel amater vsech amateru kral D5 W98.
JCL a Mapi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 29.7.2001 16:19:27
Dakujem za odpoved.
Samozrejme som skusal MapiExample.dpr, ked je vybrany
Direct a napriklad Outlook Express dava mi to do velkeho Outlooku,
ktory mam nainstalovany ako default.
Mam pocit, ze tam je mozno chyba v tom (v MapiExample.dpr), ze tam sice je
definovany
SimpleMapiMail ale v kontexte posielania sa vobec nepouziva...
aspon som nikde nenasiel link medzi JclSimpleSendMail a SimpleMapiMail
v kode pouzivas:
{ SimpleMapiMail.Clear;
SimpleMapiMail.Recipients.Add(ToAddressEdit.Text, ToNameEdit.Text);
SimpleMapiMail.Subject := SubjectEdit.Text;
SimpleMapiMail.Body := BodyEdit.Text;
if OpenDialog1.FileName <> '' then
SimpleMapiMail.Attachments.Add(OpenDialog1.FileName);
SimpleMapiMail.Send(DialogCheckBox.Checked);}
ale vyremovane...
Chcel som urobit moznost vybrat si z ineho nainstalovaneho clienta
ako defaultneho...
Dik za radu.
> Ahoj,
>
> to je v poradku, ctAutomatic vybira 'nejvhodnejsiho' klienta a ctMAPI pak
> primo MAPI32.DLL. Hodnota SelectedClientIndex se pouziva pouze v rezimu
> ctDirect. Spust si MapiExample.dpr kde si muzes klienty snadno vybrat, je
> mozne ze nektery z nich podporuje spatne Simple MAPI. Mimochodem o jakeho
> klienta se jedna ?JCL a Mapi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 29.7.2001 16:30:51
Sorry chyba neni ve vasem primaci....
Ospravedlnujem sa u P. Vonesa to samozrejme po odremovani funguje OK....
Sorry
> v kode pouzivas:
> { SimpleMapiMail.Clear;
> SimpleMapiMail.Recipients.Add(ToAddressEdit.Text, ToNameEdit.Text);
> SimpleMapiMail.Subject := SubjectEdit.Text;
> SimpleMapiMail.Body := BodyEdit.Text;
> if OpenDialog1.FileName <> '' then
> SimpleMapiMail.Attachments.Add(OpenDialog1.FileName);
> SimpleMapiMail.Send(DialogCheckBox.Checked);}
>
> ale vyremovane...
>
> Chcel som urobit moznost vybrat si z ineho nainstalovaneho clienta
> ako defaultneho...
>
> Dik za radu.ADOConnection
[*] Ji�� Kr�l jr. - 29.7.2001 16:32:18
Ahoj,
jak doporucujete pouzivat ADOConnection?:
radeji mene instanci a recyklovat a sdilet mezi unity
nebo
je lepsi pro kazdy db unit mit adoconn zvlast?
diky za postrehy
JK
Re[2]: COM
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 29.7.2001 16:50:52
PV> zalezi jaky OS je v roli serveru. Obecne by to mely byt spise NT. Vice se lze
PV> dozvedet treba tady: http://www.distribucon.com/dcom95.html
W2K Proffesional, ale pobezi to v budoucnu na w2k server..
Raul mailto:raul(zv)raphael(tec)cz
Skryti v seznamu uloh
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 29.7.2001 17:02:49
A je nejaka moznost, jak schovat svoji aplikaci i pod systemem Windows 2000?
Nebo aspon to co nejvice zamaskovat. - je trosku blbost abych pak delal
uzivatelskou ochranu, kdyz si ji kazdy trosku chytrejsi uzivatel bude moci
vypnout pomoci CTRL+ALT+DEL :((
S pozdravem
Vasek Navrat
> >
> > Ahoj,
> >
> > toto lze udelat pouze ve Win9x pomoci API funkce RegisterServiceProcess.
> > Protoze
> > tato funkce neni dostupna ve vsech verzich OS tak je treba ji importovat
> > dynamicky,
> > viz priklad. Prvni parametr je ID procesu, druhy pak (0, 1 -
> > Register/Unregister).
> >sirka textu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2001 17:31:40
Ahoj,
to je pravda, ale pozor na kursivu, tam to pocita spatne (viz archiv
konference, hledej maily se subjectem "Sirka fontu a kurziva").
Slavek
> TCanvas.TextWidth('Text ...')
>
> Honza +
>
> > Zdravim
> > Lze nejak zjistit sirku textu (stringu) v pixelech?
>
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Opruzujici warovani
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2001 17:31:41
Ahoj,
> > V napovede jsme nasel toliko povidani o tom, ze v unitach, kde
> > dochazi k deklaraci typu/funkci je potreba uvadet {$WARN cosi
> > OFF}, aby k tomuto varovani nedoslo. To je sice strasne vzrusujici,
> > ale ja to potrebuju nastavit pro dany projekt, aby me s uvedenymi
> > ptakovinami prekladac neobtezoval a ne v kazde unita zvlast,
> > potazmo jedna-li se o vcl. Jde to nejak?
> Staci ked to budes definvat v DPR-ku pred USES.
*****Nene, to neni spravne reseni. Jak jsem psal, tyto direktivy
slouzi k necemu jinemu. Pokud v unite A definuju napr. typ T a
nechci, aby me prekladac otravoval, musim tyto direktivy pouzit
prave v unite A, jinak tato hlaseni ziskam bez ohledu na to, zda
direktivy pouziji napr. v unite B.
Slavek
> Pavol Kakacka
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Opruzujici warovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2001 18:25:47
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> *****Nene, to neni spravne reseni. Jak jsem psal, tyto direktivy
Ahoj,
zkus treba toto:
http://groups.google.com/groups?th=8eff3469e30f773e,3
Petr Vones
DBChecklistBox - velice dulezite a MessageEvents
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2001 18:34:12
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> {nekde jsem to videl a poznamenal si,mozna ve sve stare firme,ktere timto
> dekuji,ze jsem ji mohl opustit}
>
> var Msg: TMsg;
>
> if (Msg.Message = 161) and (Msg.WParam=8) then
^^^ FUJ! ^ FUJ!
> begin
> Msg.Message :=512;
^^^ FUJ!
Co to ma vlastne delat ?
Petr Vones
Tiskova fronta
[*] Informatik M�� Str�nice����w�#f��?�##��' �g�##� - 29.7.2001 19:32:35
Ahoj,
resim nasledujici problem. Uzivatel meho programu tiskne cca 250 dokumentu(slozenek) na
inkoustove tiskarne HP. Data jsou tahana z databaze. Potreboval bych zajistit, aby program
vytvoril vzdy jen jednu tiskovou ulohu, pockal, az se uloha vytiskne, oznacil v databazi jako
vytistenou (to neni problem) a pak vytvarel teprve dalsi.
1. Da se nejak zjistit, ze tiskova fronta (ve W95, W98, W2000) je prazdna ? (uloha byla vytisknuta ?)
2. Da se nejak pozastavit tisk a vyprazdnit tiskova fronta primo z meho programu ?
Dekuji za odpoved, popr. nakopnuti
Zacatecnik D3
Vladimir Koupil
informatik Mestsky urad Straznice
informatik(zv)straznice-mesto(tec)cz
#0
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 29.7.2001 20:55:41
On 29 Jul 2001, at 13:09, Petr Vones wrote:
> From: <bukaj(zv)iol(tec)cz>
> > Asi neco delam blbe, ale tento kod mi zapise jen prvnich 20 bytu. A
> > mezi nimi je i nejaky #0. Co s tim?
>
> to je zcela spravne, resource RT_GROUP_ICON ma 20 bytu, co jineho by
> jsi ocekaval ze to ulozi ?
Asi ocekaval celou ikonu. Patrne nevi, ze ikona je v resourcech
rozdelena na hlavicku a data, a to jeste dost prazvlastnim
zpusobem.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
regularni vyrazy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.7.2001 21:12:59
> Dobry den,
> nemate nekdo unitu (pokud mozno i se zdrojaky) na rehularni vyrazy?
Jedine pouzitelne (funkcni , se zdrojaky a free) co jsem nasel je:
http://anso.da.ru
( http://anso.virtualave.net )
D. Toman
Application.OnActive --> is minimized?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2001 21:18:09
Preji vsem pekneho dne,
uz me zacina hrabat z nasledujiciho problemu. Mam aplikaci,
kterou mam minimalizovanou a jsem preply na jine. Pak se prepnu
zpet a vyvola se nejprve Application->OnActive() a pak Application-
>OnRestore(). Jak zjistim v prvni udalosti, ze je aplikace
minimalizovana? Zpusoby typu
if (Application->MainForm->WindowState == wsMinimized) ...
nezabiraji.
Diky za pripadne odpovedi
Slavek
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Opruzujici warovani
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2001 21:27:00
Ahoj,
> > *****Nene, to neni spravne reseni. Jak jsem psal, tyto direktivy
> zkus treba toto:
> http://groups.google.com/groups?th=8eff3469e30f773e,3
****Opet to neni ono. Nestudoval jsem dokumentaci, ale obavam
se, ze to ma stejny vyznam jako $WARN ...
Slavek
> Petr Vones
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
type
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2001 21:30:36
Ahoj,
musis to udelat priblizne takto:
type
TVzdialenost = Integer;
TShape2 = class(TShape)
private
FVzdialenost: TVzdialenost;
published
property Vzdialenost: TVzdialenost read FVzdialenost write
FVzdialenost;
property OnClick;
end;
Slavek
> Pri kompilacii mi hlasi tuto chybu: Published field 'Vzdialenost' not a
> class nor interface type
> Co mam urobit, aby som tam dostal tu premennu Vzdialenost?
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
#0
[*] <bukaj(zv)iol(tec)cz> - 29.7.2001 21:46:39
Zdar,
No cekal bych, ze to ulozi ikonku MAINICON. Co je tedy RT_GROUP_ICON?
Kuba
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, July 29, 2001 1:09 PM
Subject: Re: #0
From: <bukaj(zv)iol(tec)cz>
> Asi neco delam blbe, ale tento kod mi zapise jen prvnich 20 bytu. A mezi
> nimi je i nejaky #0. Co s tim?
Ahoj,
to je zcela spravne, resource RT_GROUP_ICON ma 20 bytu, co jineho by jsi
ocekaval ze to ulozi ?
Petr Vones
Datovy typ parametru SQL dotazu
[*] Marek Soukup <code(zv)btt(tec)cz> - 29.7.2001 21:48:00
Posilal jsem sem tento dotaz uz jednou ve tri a stale tu neni. Posilal jsem
jeste jeden a ten uz tu je, takze to posilam znovu a pokud to prijde dvakrat
tak se omlouvam.
Haj hou,
potrebuji zjistit datove typy parametru u uzivatelem zadaneho SQL dotazu.
Mam v tom pomerne bordel. Cela aplikace stoji na MS SQL serveru a k pristupu
se pouziva BDE komponenty jako TQuery, TDataSet atd.
Jde o to, ze si zakaznik napise SQL dotaz a ulozi si ho a pozdeji ma moznost
si ho pustit s tim, ze u nekterych typu parametru nebude muset zadavat primo
hodnotu, ale zobrazi si dialog, ze ktereho vybere nejakou polozku. Budou tam
ale i parametry standardni jako varchar a date atd.
Doufam, ze z toho popisu lze pochopit o co mi asi jde :-)
S pozdravem
Marek Soukup
OT: forward newsu na e-mail
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 29.7.2001 22:08:26
Dobry den,
omlouvam se za tento dotaz. Existuje nejaky zpusob, jak ziskavat
z urcite news konference prispevky tak, aby se mi zasilaly na e-
mail? Nechci prispivat, ale pouze cist a ruzne softwary mi z
urcitych duvodu nevyhovuji. Navic ty zpravy se na news serveru
casem mazou a tak muzu prijit o prispevky.
Diky za pomoc
Karel Krtecek
Grid checkbox po 3ti
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 29.7.2001 22:20:04
Priklad, ktery jsem ti poslal funguje takto:
- v DBgridu jsou zobrazeny standardni hodnoty true/false
- v okamziku, kdy uzivatel vstoupi do daneho sloupce, se na aktualnim
zaznamu zobrazi DBCheckbox
Jestli jsem te ted spravne pochopil, tak potrebujes na kazdem radku videt
misto true/false Checkbox.
S tim ti bohuzel neporadim, protoze jsem nikdy neresil nic podobneho.
Martin Ben
tisk JPG
[*] Simca <Simca.jb(zv)post(tec)cz> - 29.7.2001 22:24:18
Mel bych dodaz. Jeste nejsem dost zkusenej, ale chtel bych tiskou fotografie
na tiskarne ve formatu JPG... Nevite jak na to???
Jirka Borovy
**********************
Simca - Jirka Borovy - simca(zv)nhl(tec)cz - ms2001(zv)zde(tec)cz
ICQ - 66436984
www.volny(tec)cz/borovy - www.melies(tec)cz
http://extraliga.game.site(tec)cz, http://ms2001.zde(tec)cz
tisk JPG
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.7.2001 23:02:58
Staci do uses pridat JPEG. To ti umozni nacist a pracovat s JPG
formatem pres klasicky TImage. Poblem ale byde v tom, ze to, co se
tiskne na tiskarne je vlastne neco jako BMP a pokud fotografii
prevedes z JPG na BMP, vznikne ti ve vetsine pripadu tak velka obluda,
ze ti to tiskarna nevytiskne. Pak je resenim rozdelit cely obrazek na
kousky a ty tisknout jednotlive (mysleno programove na pozadi).
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.7.2001 Simca:
> Mel bych dodaz. Jeste nejsem dost zkusenej, ale chtel bych tiskou fotografie
> na tiskarne ve formatu JPG... Nevite jak na to???
> Jirka Borovy
> **********************
> Simca - Jirka Borovy - simca(zv)nhl(tec)cz - ms2001(zv)zde(tec)cz
> ICQ - 66436984
> www.volny(tec)cz/borovy - www.melies(tec)cz
> http://extraliga.game.site(tec)cz, http://ms2001.zde(tec)cz
Interbase 6 Licencia
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 30.7.2001 00:22:08
Ahojte
Pokial tomu dobre rozumiem, tak stale sa hovori o tom, ze IB6 je free
databaza.
Len tak mimochodom som si pozeral na http://shop.borland(tec)cz/ produkty a
nasiel som
tam zaujimavu polozku IB6 a tam ceny az do 118 790 CZK. Tak teraz tomu
nerozumiem....
Je free, alebo treba platit za kazdeho uzivatela... Alebo ako?
Dakujem za vysvetlenie....
P.DBChecklistBox - velice dulezite a MessageEvents
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 30.7.2001 00:36:20
> Petr Vones wrote:FUJ
> > var Msg: TMsg;
> >
> > if (Msg.Message = 161) and (Msg.WParam=8) then
> ^^^ FUJ! ^ FUJ!
>
> > begin
> > Msg.Message :=512;
> ^^^ FUJ!
>
> Co to ma vlastne delat ?
>
>
>
JA ALDIK WRITE TOO:FUJ, FUJ A FUJ
(KDYZ TO RIKA NAS GURU AMATER MUSI TO BYT PRAVDA)
Ale jak udelam proceduru,ktera v cele aplikaci po minimalizaci jednoho okna
minimalizuje vsjo,tedy celou aplikaci?
A ted BABO parton GURU rad!!!
Prosim pekne, jak to resi nas znalec JCL PETA VONESU?
Kdybych te mohl poprosit....
NUZE ZAHAJUJI VEREJNE SLYSENI NA TEMA MINIMALIZUJ SE MRCHO
(aplikace)JEDNA...(aneb konec nekonecneho klikani na vsechna okna kvuli
minimalizaci v ramci jedne aplikace...)
Aldik Pavel D5 W98....
Amater vsech amateru....a mozna jeste dal....DBChecklistBox - velice dulezite a MessageEvents
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 01:57:03
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> Ale jak udelam proceduru,ktera v cele aplikaci po minimalizaci jednoho okna
> minimalizuje vsjo,tedy celou aplikaci?
Ahoj,
napriklad si vytvoris formular ve kterem obslouzis danou zpravu a od neho pak
budes dedit formulare v aplikaci:
procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType and $FFF0 = SC_MINIMIZE then
begin
Application.Minimize;
Message.Result := 1;
end else
inherited;
end;
Petr Vones
MessageDlg
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 02:05:05
From: "Martin Kasman" <martinkasman(zv)pobox.sk>
> by bola cez MB_DEFBUTTON1, ale pokial viem to sa da robit len cez
> Application.MessageBox a ja to potrebujem mat v jednotke ktora nema nic s
> Application.
Ahoj,
Application.MessageBox vola API funkci MessageBox.
Petr Vones
Application.OnActive --> is minimized?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 06:26:25
> zpet a vyvola se nejprve Application->OnActive() a pak Application-
> >OnRestore(). Jak zjistim v prvni udalosti, ze je aplikace
> minimalizovana? Zpusoby typu if (Application->MainForm->WindowState ==
> wsMinimized) ... nezabiraji.
>
Ja vzdycky pouzival API fci IsIconic. Jestli ti to pomuze, nevim.
David
Query na RxMemoryData bez BDE ??
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 06:49:43
> potrebujem vytvorit dotaz na tabulku v pameti realizovanou pomoci
> RxMemoryData.
Rekl bych, ze to je v principu nemozne, alespon tedy s
RxMemoryData.
SQL dotaz se vzdy zadava nejakemu SQL enginu, ktery pro
klienta pripravi vyslednou mnozinu dat. Co s ni klient udela, je jeho
vec a s SQL samotnym uz to nema nic spolecneho.
Pro databaze jako Paradox apod. funkci SQL enginu zastupuje
BDE. RxMemoryData nema zadny SQL engine.
David Lebeda
type
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 06:54:21
> type
> TVzdialenost = Integer;
> TShape2 = class(TShape)
> published
> Vzdialenost: TVzdialenost;
> property OnClick;
> end;
>
> Pri kompilacii mi hlasi tuto chybu: Published field 'Vzdialenost' not
> a class nor interface type
>
> Co mam urobit, aby som tam dostal tu premennu Vzdialenost?
>
>
Prijde na to, co je cilem: pokud jde ma byt Vzdialenost pouze
promenna, nemela by byt published, ale public. Ma-li to byt
property viditelna v Object Inspectoru - pak viz jiny prispevek na
toto tema.
David Lebeda
Jak zjistit sirku taskbaru
[*] Grind Crusher <Grind_Crusher(zv)DeathsDoor(tec)com> - 30.7.2001 08:03:55
Podivej se do API helpu na fci SHAppBarMessage...
Grind Crusher
--------------------------
Ahoj
Potrebuju aby se muj form "prilepoval ke krajum obrazovky a k taskbaru.
Vim, ze na to je plno komponent, ale ty nefungujou pokud mam
Form1.BorderStyle:=bsNone. Jak prilepovat ke stenam mam uz vymysleny, ale
nevim jak to prilepit k TaskBaru.Tak sem si rikal jestli bych nejak
nezjistil sirku Taskbaru ale nevim jak.Opruzujici warovani
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 30.7.2001 08:14:17
Nic v zlom len sa opytam cital si ten site cely?
Pavol Kakacka
KasiX(zv)atlas(tec)cz
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > > *****Nene, to neni spravne reseni. Jak jsem psal, tyto direktivy
> > zkus treba toto:
> > http://groups.google.com/groups?th=8eff3469e30f773e,3
> ****Opet to neni ono. Nestudoval jsem dokumentaci, ale obavam
> se, ze to ma stejny vyznam jako $WARN ...
>
> Slavek
>
> > Petr Vones
co mam spatne??
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 08:15:51
nedavno sa to tu riesilo, suks sa pozriet do archivu:
http://www.delphi(tec)cz/hledani.asp
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> V mwCustomEditu mam text a kdyz z nej smazu jakoukoliv cast na konci,
> uvedena procedura vyhodi hlasku "List index out of bounds". Muzete mi
nekdo
> poradit, co mam spatne?
>
> procedure TMainForm.mwCustomEdit1SelectionChange(Sender: TObject);
> begin
> if mwcustomedit1.seltext <> '' then
> StatusLine.Panels[0].Text := ('Vybr�no znak�:
> '+IntToStr(Length(mwcustomedit1.seltext))) else
> StatusLine.Panels[0].Text := ('');
> end;
Jak zjistit chybove hlaseni u TQuery
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 08:16:41
Lepsie to uz nebude, jedine ze by si si urobil vlasnty prekopiler na SQL :))
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
----- Original Message -----
From: "Marek Soukup" <code(zv)btt(tec)cz>
> budu ve sve aplikaci poustet uzivatelem napsane SQL dotazy pres komponentu
> TQuery a rad bych lepe urcil moznou chybu. Priklad:
> SELECT * FROM Tabule WHERE Polozka=:Parametr ORDER BY Polozka;
> Kdyz nebude mil Parametr hodnotu tak to jeste napise celkem srozumitelne,
> ale kdyz bude hodnota nespravneho typu je chybova hlaska velmi obecka
(Type
> mismatch).
> Da se to delat nejak pres Exception nebo bude nejjednodusi projit senzma
> vsech parametru a zkontrolovat typy. U te druhe moznosti jsem se nejak
> zasekl a vubec nevim jak na to.
Potize s BLOB na IB6
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 08:18:46
Ta chybova hlaska vznika vtedy ked sa snazis s blobom pracovat ako s
normalnym varcharom, napriklad ked pouzijes "like" alebo "containing" alebo
"=". Nemas v tej Query nahodou nieco take?
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> Pouzivam IBExpress v 4,52 a komponentu IBQuery, zkousel jsem i IBDataset
a
> je to stejne
> Zajimave je, ze s IBTabe to funguje
> Edituju to v DBRichEdit
> > muzes ten problem specifikovat bliz?
> > Vkladas to pres BlobField, nebo pres DBAware nebo jak..?
> > Pouzivas DBaware, IBDataSet, proste se trochu rozepis..:-)
> > Mam problem s ukladanim blob na IB6.
> > Na post mi to hodi chybu "feature is not supported BLOB and aray
> datatypes
> > are not supported for compare operation"
> > Kdyz jsem to debugoval zjistil jsem ze to dela InternalRefresh, ale dal
> > nevim co stim.
Application.OnActive --> is minimized?
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 30.7.2001 08:21:43
Skus toto:
procedure KsGetWindowRect(AWndHandle: THandle; var ATop, ALeft, AWidth,
AHeight,
AState: Integer);
var
WP: TWindowPlacement;
begin
WP.Length := SizeOf(WP);
GetWindowPlacement(AWndHandle, (zv)WP);
with WP.rcNormalPosition do begin
ATop := Top;
ALeft := Left;
AWidth := Right - Left;
AHeight := Bottom - Top;
AState := WP.showCmd;
end;
end;
var
R: TRect;
W, H, S: Integer;
mMaximized: Boolean;
begin
KsGetWindowRect(AWindowHandle, R.Top, R.Left, W, H, S);
mMaximized := (S and SW_SHOWMAXIMIZED) = SW_SHOWMAXIMIZED;
...
SW_SHOWMAXIMIZED zamenit za minimized, ...
Pavol Kakacka
KasiX(zv)atlas(tec)cz
> uz me zacina hrabat z nasledujiciho problemu. Mam aplikaci,
> kterou mam minimalizovanou a jsem preply na jine. Pak se prepnu
> zpet a vyvola se nejprve Application->OnActive() a pak Application-
> >OnRestore(). Jak zjistim v prvni udalosti, ze je aplikace
> minimalizovana? Zpusoby typu
> if (Application->MainForm->WindowState == wsMinimized) ...
> nezabiraji.
Pointer na Pointer
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 30.7.2001 08:49:02
Ahojte,
ako sa da naprogramovat v delphi takato konstrukcia :
(klasicke C)
int **pole;
pole = (int**) malloc(2 * sizeof(int*));
pole[0] = (int*) malloc(5 * sizeof(int));
pole[1] = (int*) malloc(5 * sizeof(int));
a potom mozem toto pole pouzivat ako
pole[2]{5];
Dik. Jozo.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
Datovy typ parametru SQL dotazu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.7.2001 09:12:32
On 29 Jul 2001, at 21:48, Marek Soukup wrote:
> potrebuji zjistit datove typy parametru u uzivatelem zadaneho SQL
> dotazu. Mam v tom pomerne bordel. Cela aplikace stoji na MS SQL
> serveru a k pristupu se pouziva BDE komponenty jako TQuery, TDataSet
> atd. Jde o to, ze si zakaznik napise SQL dotaz a ulozi si ho a pozdeji
> ma moznost si ho pustit s tim, ze u nekterych typu parametru nebude
> muset zadavat primo hodnotu, ale zobrazi si dialog, ze ktereho vybere
> nejakou polozku. Budou tam ale i parametry standardni jako varchar a
> date atd.
BDE + MS SQL - neni divu, ze v tom mas bordel, tato kombinace
nejde dohromady. Pres OLE DB (a mozna stejne i pres ADO) to
lze udelat tak, ze odesles dotaz, a namisto vycitani dat proste
zjistis parametry vsech poli, ktere se vrati.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Omezeni radku v DBMemo
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 30.7.2001 09:12:02
V tomto pripade ne. Jde o vyplnovani formulare a tam se nesmi prekrocit
pocet radku, aby se to veslo do okenka.
Na pocet znaku to nejde.
Pavel Bares
----- Original Message -----
From: "Pavol Kaka�ka" <kakacka(zv)proca(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 27, 2001 4:34 PM
Subject: Re: Omezeni radku v DBMemo
> > Nevite nekdo jak omezit pocet radku, ktere muze uzivatel napsat do
DBMemo
> ?
>
> Pocet riadkov v DBMemu? Neni spravnejsie omedzit celkovu velkost textu?
> DMMemo.MaxLength := xx;
>
> Pavol Kaka�ka
> KasiX(zv)atlas(tec)cz
>
>TabOrder dynamicky menit
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.7.2001 09:29:46
Zdravim,
potrebujiv D6Pro menit za chodu programu TabOrder. V archivu konference
nekdo tvrdi, ze to jde, ale jkak to nenapsat.
Diky za reseni Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Grid checkbox po 3ti
[*] Karel Horky <horkyk(zv)razdva(tec)cz> - 30.7.2001 09:33:49
>
> From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> ahoj kluci potrebuji dostat check box do gridu (je mi jedno do
> > ktereho,nejlepeDBgridu) no a ten checkbox bude v jednom sloupecku na
> misto
> > pole ktere ma hodnotu A/N podle toho bude zaskrtlej nebo ne..Tak kluci
Mam dbGridy pouze na zobrazeni, k editaci zaznamu pouzivam formulare, da se
tam vse lepe kontrolovat.
Pro zobrazeni True jako 'Ano' jsem pouzil Field Editor prislusne komponenty
TTable.
Pro logicke pole lze nastavit TBooleanField.DisplayValues := 'Ano;'. Tj.
True to zobrazi jako 'Ano' a false jako prazdne policko. Mrkni se do helpu.
Je to jednoduche a prehledne. Checkbox mam az na editacnim formulari.
> A zase JA wrote:
> I pri editaci drahy Petre...zachran me.
Primou editaci zaznamu rozhodne nedoporucuji.
------
Mam IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
S pozdravem Karel Horky
horkyk(zv)razdva(tec)cz
Jedna instance aplikace na siti
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 30.7.2001 09:36:35
Bezi-li program pod databazi MSSQL, lze pouzit proceduru sp_who (pripadne
sp_who2).
Ta vi naprosto bezpecne, kdo a odkud je nekdo pripojen (k DB).
Priklad:
CREATE PROCEDURE IS_WHO
AS
create table #ret (SPID int, Status nchar(30), Login nchar(128), HostName
nchar(128), BlkBy char(5),
DBName nchar(128), Command nchar(16), CPUTime Int, DiskIO int, LastBatch
nchar(30), ProgramName nvarchar(255), SPID2 int, IsApp as case when
ProgramName='InfoSystem' then 1 else 0 end)
insert into #ret (spid, Status, Login, HostName, BlkBy, DBName, Command,
cputime, DiskIO, LastBatch, ProgramName, SPID2)
exec sp_who2
-- ocistime udaje ...
select * from #ret
where IsNull(DBname, '')='MojeDatabaze' and ProgramName='MujNazevProgramu'
drop table #ret
GO
Tato procedura vrati zeznam mojich aplikaci, pripojenych k DB.
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Viliam Mlich
> Sent: Friday, July 27, 2001 11:11 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Jedna instance aplikace na siti
>
>
> Hello brant!
>
> > pracuji uzivatele A, B, C, pricemz uzivateli B to spadne
>
> Neni problem drzat v tabulke aj cas alebo nejake 'sequence
> number', ktore by
> sa periodicky updatovalo a ked niektora instancia odhali, ze urcity zaznam
> je dlhsie neaktivny ('zastavili sa mu hodiny'), tak ho zrusi.
>
> Bye
> V.Mlich http://www.rar(tec)cz
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18. 7. 2001
>Pointer na Pointer
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 09:48:40
> ako sa da naprogramovat v delphi takato konstrukcia :
> (klasicke C)
>
> int **pole;
> pole = (int**) malloc(2 * sizeof(int*));
>
> pole[0] = (int*) malloc(5 * sizeof(int));
> pole[1] = (int*) malloc(5 * sizeof(int));
>
> a potom mozem toto pole pouzivat ako
>
> pole[2]{5];
>
A klasicke dvourozmerne pole nevyhovuje?
type
TPole = array[0..1, 0..5] of integer;
var
pole: TPole;
... pole[0, 3] := 8;
David Lebeda
TJclExcelWriter
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 30.7.2001 09:51:12
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj
Kde se da sehnat TJclExcelWriter. Behal jsem po Jedi strankach, ale nic jsem nenasel
S pozdravem Heniisch Jiri Datovy typ parametru SQL dotazu
[*] Marek Soukup <code(zv)btt(tec)cz> - 30.7.2001 09:53:55
Ja bohuzel nemam prava kecat do toho pres co se to bude delat, takze mam
proste TQuery a basta. Jde to nejak zjistit pomoci TParam ? V object
inspectoru nejaky vycet je, ale nejak jsem nepochopil jak se tam dostal (do
zdrojaku VCL jsem zatim nekoukal a nevim jestli by to k necemu bylo :-))) )
S pozdravem
Marek Soukup
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Zbysek Hlinka
> Odesl�no: 30. �ervence 2001 9:13
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Datovy typ parametru SQL dotazu
>
>
> On 29 Jul 2001, at 21:48, Marek Soukup wrote:
>
> > potrebuji zjistit datove typy parametru u uzivatelem zadaneho SQL
> > dotazu. Mam v tom pomerne bordel. Cela aplikace stoji na MS SQL
> > serveru a k pristupu se pouziva BDE komponenty jako TQuery, TDataSet
> > atd. Jde o to, ze si zakaznik napise SQL dotaz a ulozi si ho a pozdeji
> > ma moznost si ho pustit s tim, ze u nekterych typu parametru nebude
> > muset zadavat primo hodnotu, ale zobrazi si dialog, ze ktereho vybere
> > nejakou polozku. Budou tam ale i parametry standardni jako varchar a
> > date atd.
>
> BDE + MS SQL - neni divu, ze v tom mas bordel, tato kombinace
> nejde dohromady. Pres OLE DB (a mozna stejne i pres ADO) to
> lze udelat tak, ze odesles dotaz, a namisto vycitani dat proste
> zjistis parametry vsech poli, ktere se vrati.
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>Grid checkbox po 3ti
[*] <bejcek(zv)centrum(tec)cz> - 30.7.2001 10:03:36
Karel Horky wrote:
Pro zobrazeni True jako 'Ano' jsem pouzil Field Editor prislusne
komponenty
TTable.
Pro logicke pole lze nastavit
TBooleanField.DisplayValues := 'Ano;'. Tj.
True to zobrazi jako 'Ano' a false jako prazdne policko. Mrkni se
do helpu.
Je to jednoduche a prehledne. Checkbox mam az na editacnim
formulari.
Primou editaci zaznamu rozhodne nedoporucuji.
A zase JA zase write and write:
----------------
Kajo,Kajo... ani nevis co chci delat a jsi stim hned hotovej.
Ten vyber je jen pro zobrazeni ve filtru.Je tam 300 zaznamu.
Prestav si uzivatele ktery 300X otevre editacni formular.
Nebo pokud bych vsechna data nacpal najednou do vyberu, vis jak
dlouho trva pridat do listu vsech 300 zaznamu,ani se neptej.Tohle
je opravdu nejjednodussi reseni.Jde mi o pohodlnou a rychlou
aplikaci a tohle je nejlepsi taky jsem tu mel checkboxlist,kterej
jsem pri otevreni DB plnil,ani se neptej jak to se to dlouho
nacitalo...paradox je hroznej.
I Ja v 90 procentech pouzivam editacni formular...
To jsi me docela podcenil brachu...
Nad tim jsem uz uvazoval...
Aldik Pavel D5 Ent W98
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Datovy typ parametru SQL dotazu
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 30.7.2001 10:07:38
> BDE + MS SQL - neni divu, ze v tom mas bordel, tato kombinace
> nejde dohromady.
Hahaha,
delam aplikaci BDE + MSSQL a jede to v pohode....
Ozon
Pointer na Pointer
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 30.7.2001 10:50:40
> > ako sa da naprogramovat v delphi takato konstrukcia :
> > (klasicke C)
> >
> > int **pole;
> > pole = (int**) malloc(2 * sizeof(int*));
> >
> > pole[0] = (int*) malloc(5 * sizeof(int));
> > pole[1] = (int*) malloc(5 * sizeof(int));
> >
> > a potom mozem toto pole pouzivat ako
> >
> > pole[2]{5];
> >
>
>A klasicke dvourozmerne pole nevyhovuje?
>
>type
> TPole = array[0..1, 0..5] of integer;
>
>var
> pole: TPole;
>
>... pole[0, 3] := 8;
>
>David Lebeda
nie, mne ide o to, aby som to pole mohol lubovolne menit (dynamicky)
jozo
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
Datovy typ parametru SQL dotazu
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 30.7.2001 10:56:06
Nevim jestli to pomuze, ale TParam.DataType - typ parametru...
Ozon
> Ja bohuzel nemam prava kecat do toho pres co se to bude delat, takze mam
> proste TQuery a basta. Jde to nejak zjistit pomoci TParam ? V object
> inspectoru nejaky vycet je, ale nejak jsem nepochopil jak se tam
> dostal (do
> zdrojaku VCL jsem zatim nekoukal a nevim jestli by to k necemu
> bylo :-))) )Derivace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 11:02:38
> Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
> [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
> koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
> bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
> bodech X. Muze me nekdo nasmerovat spravnym smerem jak na to?
> Literatura, zdroje na Internetu, kod zdrojoveho kodu, vse vitano.
>
To jsme meli kdysi na skole. Potrebne postupy by se mely nalezt v
temer libovolne ucebnici numericke matematiky. Konkretni odkazy
nevim.
David Lebeda
Napoveda ve tvaru CHM
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 30.7.2001 11:05:45
> > poradte mi prosim, stahnul jsem si Toolbar2000 a napoveda je ve tvaru
*.chm.
> > Jak zaridim v D5 aby mi to kontextov� zobrazovalo napovedu k jednotlivym
> > komponentam?
> Delphi samotne to neumoznuju. Mas dve moznosti:
>
> Zkonvertovat to do *.hlp a potom to pridat do Delphi Helpu
> ....
> Pavol Kaka�ka
Cim se da zkonvertovat napoveda ve tvaru *.chm do *.hlp ?
PavelC
JCL
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 30.7.2001 11:12:58
Ahoj
Potreboval bych linky na nejake demostracni priklady JCL a Synapse
chtel bych se posilat maily z aplikace a vybirat schranku z aplikace
a zatim je to pro me spanelska vesnice.
Diky za pomoc
Delphi 5 Prof(SP1), W2K(SP1) nebo Win98
Jaroslav KUBA
TreSoft s.r.o
E-mail : Jarda(zv)TreSoft(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virov� b�ze: 135 - datum vyd�n�: 22.6.2001
Vyplneni bitmapu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 30.7.2001 11:16:51
Ahoj,
Ivanoslav wrote:
> Mam jeden proble.Mam nakreslenou elipsu a potreboval bych
> ji vyplnit treba nejakou bitmapou.
zkus transparentni kopirovani :
const
DrawingTransparent: Boolean = False;
var
BMPKeyColor : TColor;
procedure DrawTransparent(DestCanvas: TCanvas; X, Y: smallint;
SrcBitmap: TBitmap; AColor: TColor);
{ Draws SrcBitmap on the DestCanvas, with AColor as transparent color.
Subroutine was posted by Leif L. in Borland's Delphi.Graphics newsgroup
and is thankfully used }
var
ANDBitmap, ORBitmap: TBitmap;
CM: TCopyMode;
Src: TRect;
begin { DrawTransparent }
DrawingTransparent := True;
ANDBitmap := nil;
ORBitmap := nil;
try
ANDBitmap := TBitmap.Create;
ORBitmap := TBitmap.Create;
Src := Bounds(0, 0, SrcBitmap.Width, SrcBitmap.Height);
with ORBitmap
do begin
Width := SrcBitmap.Width;
Height := SrcBitmap.Height;
Canvas.Brush.Color := clBlack;
Canvas.CopyMode := cmSrcCopy;
Canvas.BrushCopy(Src, SrcBitmap, Src, AColor);
end;
with ANDBitmap
do begin
Width := SrcBitmap.Width;
Height := SrcBitmap.Height;
Canvas.Brush.Color := clWhite;
Canvas.CopyMode := cmSrcInvert;
Canvas.BrushCopy(Src, SrcBitmap, Src, AColor);
end;
with DestCanvas
do begin
CM := CopyMode;
CopyMode := cmSrcAnd;
Draw(X, Y, ANDBitmap);
CopyMode := cmSrcPaint;
Draw(X, Y, ORBitmap);
CopyMode := CM;
end;
finally
ANDBitmap.Free;
ORBitmap.Free;
end;
DrawingTransparent := False;
end; { DrawTransparent }
Vaclav Sazima
Derivace
[*] brant(zv)dcomm(tec)cz - 30.7.2001 11:18:01
Tady zalezi na tom, jestli mas temi body prolozenou nejakou krivku a znas
jeji rovnici. Pokud ano, staci spocitat derivaci te krivky. Pokud ne, lze
derivaci v bode x0 spocitat jen priblizne na zaklade definice derivace:
f(x) - f(x0)
f'(x0) = lim ---------------
x->x0 x - x0
Pro tvuj pripad je priblizna hodnota derivace zprava
f(x+h) - f(x)
------------- , kde h je krok pro x
h
Derivace zleva je
f(x) - f(x - h)
--------------- , kde h je krok pro x
h
No a oboustrannou derivaci muzes spocitat treba jako prumer te derivace
zleva a zprava. Ale vyse popsany postup plati jen pro spojite funkce a navic
"rozumne", ktere prilis neposkakuji. Kdybys neco nevedel, napis pres ICQ
nebo na soukromy mail.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
[1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
bodech X.
Muze me nekdo nasmerovat spravnym smerem jak na to? Literatura,
zdroje na Internetu, kod zdrojoveho kodu, vse vitano.
Diky, Jirka.Instalace Kylixu OE
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 30.7.2001 11:19:44
On Fri, 27 Jul 2001, Petr Kucera wrote:
> Dobry den,
>
> prosim Vas, zkousel nekdo instalovat Kylix OE na LINUX Debian?
Jo zkousel. Zatim jsem ale skoncil na tom, ze Borland nezverejnil
patch na zdrojaky glibc, ale zverejnil pouze prekompilovane zdrojaky
pro nektere distribuce (a velmi nespravne to nazyva patch), mezi nimi ale
Debian 2.2 neni.
V souboru PREINSTALL ale porad mluvi o patchi na glibc 2.1.3 (rozumej
diff na zdrojove kody), ale nikde jej nemuzu najit.
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
Autostart SQL serveru
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 30.7.2001 11:21:04
Cafte
neviete nahodou ako nastavit autostart SQL serveru pomoci SQL-DMO, zkousel
jsem to pres
SQLSERVER.CONNECT;
SQLSERVER.REGISTRY.AUTOSTARTSERVER:=TRUE
ale porad mi to vyhazuje nasledujucu chybu : This server object is not
connected
DIK
Derivace
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 30.7.2001 11:30:08
Asi takto, krivka zadana tremi body asi nepujde jen tak derivovat,
takovychto krivek existuje nekonecne mnozstvi. Na vysoke skole jsem
zpracovaval tema SPLAJNY, coz jsou krivky prochazejici danymi body a
maji dane vlastnosti. Splajny se pouzivaj k interpolaci krivek
prochazejicich temito body, ale narozdil od takovychto krivek jsou
matematicky popsatelne a tedy lze jednoduse zjistit jejich derivaci.
Doporucuji skriptum SPLAJNY pana Kobzy, ktere vydalo nakladatelstvi
Univerzity Palackeho v Olomouci. Popripade pokud mi popises presne
tema, ktereho se to tyka, mozna budu schopen nejak poradit. Dale by
mozna trochu pomohla literatura zabyvajici se Bezierovymi a
B-krivkami. Opet skriptum z UP Olomouc, ale pro zmenu pan Drdla. Muj
soukromy mail je Petr.Kuklik(zv)seznam(tec)cz.
Petr
> Ahoj!
>
> Rad bych pozadal zde pritomne zdatnejsi kolegy, pripadne i zde
> pritomne zdatnejsi kolegyne :-) o radu:
>
> Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
> [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
> koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
> bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
> bodech X.
> Muze me nekdo nasmerovat spravnym smerem jak na to? Literatura,
> zdroje na Internetu, kod zdrojoveho kodu, vse vitano.
>
> Diky, Jirka.
>
______________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
Derivace
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 30.7.2001 11:37:48
Derivace - velmi nebezpecne.
Zjednodusene se to pocita jako diference, ale
stabilita vysledku je nevalna (problem merenych dat jejich rozptylu).
Pokud chces lepsi vysledky, tak si vem cca 5 bodu
a proloz nimi krivku metodou nejmensich ctvercu, smernice
teto primky je hodnota tve derivace.
Slavek
> > Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
> > [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
> > koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
> > bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
> > bodech X. Muze me nekdo nasmerovat spravnym smerem jak na to?
> > Literatura, zdroje na Internetu, kod zdrojoveho kodu, vse vitano.
> >
>
> To jsme meli kdysi na skole. Potrebne postupy by se mely nalezt v
> temer libovolne ucebnici numericke matematiky. Konkretni odkazy
> nevim.
>
> David Lebeda
Interbase 6 Licencia
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 30.7.2001 11:42:15
> Len tak mimochodom som si pozeral na http://shop.borland(tec)cz/ produkty a
> nasiel som tam zaujimavu polozku IB6 a tam ceny az do 118 790 CZK.
> Tak teraz tomu nerozumiem....
>
> Je free, alebo treba platit za kazdeho uzivatela... Alebo ako?
Je IB 6 placena (verze Desktop Edition a Server Edition) a verze zdarma
(Open Edition). Aby se to nepletlo, jeste je tady Firebird, coz je
opensource
IB odvozena z puvodni IB 6.
Vysvetleni viz napr. http://www.interbase2000.org/faq.htm#q5
Martin Schayna
forward newsu na e-mail
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 30.7.2001 11:45:18
> mail? Nechci prispivat, ale pouze cist a ruzne softwary mi z
> urcitych duvodu nevyhovuji. Navic ty zpravy se na news serveru
> casem mazou a tak muzu prijit o prispevky.
Tak necti vsechno ale prohledavej archivy, napr.:
http://groups.google.com
hledani v archivech vsech newsgrup, zatim betaverze, ale nejrychlejsi a
nejpovedenejsi, obsah threadu zobrazuje na jedne strance
http://www.fulltextsearch.com
dtto, jen borland.* a microsoft.*, jedna se o priklad nasazeni komercni
technologie fulltextoveho hledani
http://www.mers.com/searchsite.html
dtto, jen borland.*, nejstarsi a nejpomalejsi ale klasika
Martin Schayna
Prevod
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 30.7.2001 11:47:09
Ted o vikendu byla vypustena nova Synapse, ktera mimo jine obsahuje
unitu SynaChar.pas
Cela tato unita je venovana prekodovavani znakovych sad. Takze mas
tam funkci, pomoci ktere muzes mezi sebou libovolne prevadet hromady
kodovych stranek. Nova verze prave prinasi kodovani kamenickych a
CP852. (takove veci jako 1250, ISO-latin kodovani, unicode.. to uz umelo
pred tim)
Mas tam navic i dalsi zajimave funkce, jako treba detekce pouzivane
kodove stranky systemem (jak windows, tak i Unix...), autodetekce
nejvodnejsiho ciloveho kodovani, test jestli je ve stringu vubec co
prekodovavat,...
A cele to funguje jak pod Windows, tak i pod Linuxem (pouzijes-li Kylix...)
L.
> Nemate naekdo funkci na prevod z Latin2 a Kamenicky do WIN 1250, nebo
> alespon prevodni tabulky.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Kylix a Debian 2.2 - oprava glibc 2.1.3
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.7.2001 12:04:00
Ho hum!
On 27 Jul 2001,, Vladimir Michl wrote:
> mel bych dotaz ohledne Kylixu a Debianu 2.2 ve kterem je knihovna glibc
> 2.1.3. Tato knihovna obsahuje chybu v dynamickem loaderu (spatne pocitani
> referenci na objekty). V PREINSTALL (nebo jak se to jmenuje) Kylixu mluvi
> o nejakem patchi (rozumej diff mezi originalem a opravenou verzi), ale to
> nemuzu nikde najit. Na community.borland.com jsou pouze "patche", coz je
> prelozena opravena knihovna pro ruzne distribuce (zkousel jsem stahnout to
> pro SuSE, ale vevnitr diff neni), coz je mi na nic. Nevite kde by se tedy
> ten patch dal najit?
Patch na zdroje glibc 2.1.3 je na CD Kylixu v adresari
/patches/glibc_mandrake/7.2/patches
Pokud mate Kylix OE, tak si je muzete stahnout na
http://delphree.clexpert.com/Files/glibc213patches.zip
cca 8Kb
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Derivace
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.7.2001 12:18:01
> Rad bych pozadal zde pritomne zdatnejsi kolegy, pripadne i zde
> pritomne zdatnejsi kolegyne :-) o radu:
>
> Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y,
> napr. [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a
> muze koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254.
> No a ja bych potreboval zjistit hodnoty derivace teto krivky v
> jednotlivych bodech X. Muze me nekdo nasmerovat spravnym smerem jak
> na to? Literatura, zdroje na Internetu, kod zdrojoveho kodu, vse
> vitano.
Ahoj,
zdatnejsi asi nebudu, ale: ta Tva funkce je spojita?
Jestli ne, pak by zrejme nemela derivaci v tech bodech,
ktere mas zadany, a v tech mezilehlych bodech staci spocitat smernici
one usecky. Pokud ta funkce ma byt spojita, budes nejprve muset
pripravit nejaky polynom, ktery bude vytvaret takovou krivku, ktera
prochazi vsemi temi body - ukol vypocetne narocnejsi, protoze pro n
bodu to bude funkce (n-1). stupne. Metoda na to existuje, bohuzel si
ji nepamatuji - kdysi jsem ji hledal v Bartschovi.
Karel Rys
Volani jine procedury
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 30.7.2001 12:33:17
Poradi nekdo
Napadla mne takovato zhovadilost. Mam li na formu Button a na nej navazanou
hlasku (Showmessage('blabla'))
je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
stisknuti Buttonu s hlaskou?
Delpfini mi snad prominou, kdyz se zminim o funkci SetKeyBuf v DOSovskem
PCFandu. Tato funkce plnila buffer klavesnice
a simulovala manuelni stisk.
Diky za rady
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
Pointer na Pointer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 12:34:24
From: "Jozef Cervenansky" <dodosoft(zv)hotmail.com>
> nie, mne ide o to, aby som to pole mohol lubovolne menit (dynamicky)
Ahoj,
var
X: array of array of Integer;
Vice v helpu pod heslem 'Multidimensional dynamic arrays'.
Petr Vones
Volani jine procedury
[*] skalsky(zv)oksystem(tec)cz - 30.7.2001 12:36:45
otazka se mi zda trosku podivna, snad jsem ji nepochopil blbe (pokud ano,
odbornici prominou) ...
Asi nejjednodussi bude, kdyz si tu hlasku ShowMessage('blabla'); das do
nejake procedury
...a tu pak budes volat pri stisknuti tech butonu, ne ?
Milan
-----Original Message-----
From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
Sent: Monday, July 30, 2001 12:33 PM
To: Konference Delphi 2000
Subject: Volani jine procedury
Poradi nekdo
Napadla mne takovato zhovadilost. Mam li na formu Button a na nej navazanou
hlasku (Showmessage('blabla'))
je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
stisknuti Buttonu s hlaskou?
Delpfini mi snad prominou, kdyz se zminim o funkci SetKeyBuf v DOSovskem
PCFandu. Tato funkce plnila buffer klavesnice
a simulovala manuelni stisk.
Diky za rady
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Volani jine procedury
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 12:39:03
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
> stisknuti Buttonu s hlaskou?
Ahoj,
simulovat stisknuti tlacitka muzes treba metodou TButton.Click
Petr Vones
Volani jine procedury
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.7.2001 12:42:44
> Napadla mne takovato zhovadilost. Mam li na formu Button a na nej
> navazanou hlasku (Showmessage('blabla')) je mozno nejakym zpusobem pri
> stisknuti jineho Buttonu na formu simulovat stisknuti Buttonu s
> hlaskou?
Jiste:
- nektere typy buttonu maji metodu Click
- muzes z kodu primo zavolat tu metodu, kterou mas povesenou na
OnClick
- muzes na tom jinem butonu namisto implicitniho nazvu metody
obsluhujici OnClick vybrat jinou jiz existujici metodu (napr. na
buttonu2 priradit na OnClick Button1Click). Ovsem pak je lepsi te
metode dat nejake jine jmeno, aby to casem nebudilo dojem, ze
jde o omyl.
David Lebeda
Volani jine procedury
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.7.2001 12:44:04
Puvodni zprava, kterou napsal Viktor Marek dne 30 Jul 2001,:
> Napadla mne takovato zhovadilost. Mam li na formu Button a na nej navazanou
> hlasku (Showmessage('blabla'))
> je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
> stisknuti Buttonu s hlaskou?
ButtonSHlaskou.Click;
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================#0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 12:44:25
From: <bukaj(zv)iol(tec)cz>
> No cekal bych, ze to ulozi ikonku MAINICON. Co je tedy RT_GROUP_ICON?
Ahoj,
tak jednoduche to bohuzel neni, ikony a kurzory jsou ulozeny v resource
ponekud komplikovane, vice lze vycist ze zdrojaku v prikladu \Demos\ResXplor
nebo PE Viever (http://www.volweb(tec)cz/pvones/delphi)
Petr Vones
Volani jine procedury
[*] Jakub Valenta <Delphi(zv)dapos(tec)cz> - 30.7.2001 12:44:40
>Poradi nekdo
>Napadla mne takovato zhovadilost. Mam li na formu Button a na nej navazanou
>hlasku (Showmessage('blabla'))
>je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
>stisknuti Buttonu s hlaskou?
Coz pouzit Button.Click ?
>Delpfini mi snad prominou, kdyz se zminim o funkci SetKeyBuf v DOSovskem
>PCFandu. Tato funkce plnila buffer klavesnice
>a simulovala manuelni stisk.
>Diky za rady
J. Valenta
Derivace
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 30.7.2001 10:53:56 met-1
Ahoj!
Rad bych pozadal zde pritomne zdatnejsi kolegy, pripadne i zde
pritomne zdatnejsi kolegyne :-) o radu:
Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
[1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
bodech X.
Muze me nekdo nasmerovat spravnym smerem jak na to? Literatura,
zdroje na Internetu, kod zdrojoveho kodu, vse vitano.
Diky, Jirka.Derivace
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 30.7.2001 13:01:42
> Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y, napr.
> [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a muze
> koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254. No a ja
> bych potreboval zjistit hodnoty derivace teto krivky v jednotlivych
> bodech X.
Nekolik poznamek:
1)
Derivace take urcuje smernici tecny ke krivce v danem bode.
ted budu hadat ( uz si to nepamatuji ) :
derivace v bode existuje, pokud v danem bode existuje derivace zleva i
zprava a jsou stejne
Tedy pokud bys body spojil lomenou carou, tak derivace (zleva, zprava) je
shodna se smernici
primky(usecky) v danem bode ( zleva, zprava)
2)
Takze musis mit funkci, kterou chces derivovat.
Pokud mas N bodu, pak muzes body prolozit mnohoclenem tvaru
a*(x**n) + ....
derivaci pak snadno urcis
n*a*(x**(n-1))+ ...
( doufam, ze jsem se nespletl )
3)
U obecnych funkci se misto derivace pracuje s diferenci na dostatecne malem
useku
derivace(x) = ( f(x+d) - f(x-d) ) / 2d
Pointer na Pointer
[*] Schmidt Daniel <dschmidt(zv)vub.sk> - 30.7.2001 13:10:13
Ahoj,
z hlavy by to malo ist takto:
var pole: Array[] of Array[] of Integer;
.
.
.
SetLength(pole,2);
SetLength(pole[1],5);
SetLength(pole[2],5);
.
.
.
Teoriu uz moc neovladam, myslim ze prvy prvok takehoto pola ma vzdy index 1.
Cau
Dano
-----Original Message-----
From: Jozef Cervenansky [mailto:dodosoft(zv)hotmail.com]
Sent: Monday, July 30, 2001 10:51 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Pointer na Pointer
> > ako sa da naprogramovat v delphi takato konstrukcia :
> > (klasicke C)
> >
> > int **pole;
> > pole = (int**) malloc(2 * sizeof(int*));
> >
> > pole[0] = (int*) malloc(5 * sizeof(int));
> > pole[1] = (int*) malloc(5 * sizeof(int));
> >
> > a potom mozem toto pole pouzivat ako
> >
> > pole[2]{5];
> >
>
>A klasicke dvourozmerne pole nevyhovuje?
>
>type
> TPole = array[0..1, 0..5] of integer;
>
>var
> pole: TPole;
>
>... pole[0, 3] := 8;
>
>David Lebeda
nie, mne ide o to, aby som to pole mohol lubovolne menit (dynamicky)
jozo
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
TabOrder dynamicky menit
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 13:13:54
> potrebujiv D6Pro menit za chodu programu TabOrder. V archivu konference
> nekdo tvrdi, ze to jde, ale jkak to nenapsat.
Za runtime mozes na kazdej WinControl komponente zmenit poperty TabOrder.
Button1.TabOrder := 2;
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Volani jine procedury
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 13:15:17
> Napadla mne takovato zhovadilost. Mam li na formu Button a na nej
navazanou
> hlasku (Showmessage('blabla'))
> je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
> stisknuti Buttonu s hlaskou?
Staci zavolat Button.Click, resp. ButtonClick(nil);
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Volani jine procedury
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 30.7.2001 13:25:26
TButton.Click;
-----Original Message-----
je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
stisknuti Buttonu s hlaskou?Zapamatanie rozlozenia TCoolBar
[*] Norbert Adamko <norris(zv)frdsa.fri.utc.sk> - 30.7.2001 13:39:12
At 16:12 27. 7. 2001 +0200, you wrote:
>Ako zabezpecim zapamatanie pozicii jednotlivych bandov.
>
Napriklad takto:
==================================================
const
rkBandControl = 'BCtrl';
rkBandBreak = 'BBrk';
rkBandWidth = 'BWdth';
procedure SaveCoolBar(paReg: TRegistry; paCoolBar: TCoolBar);
var i: Integer;
HelpBand: TCoolBand;
HelpStr: String;
begin
with paReg do
begin
for i:=0 to paCoolBar.Bands.Count-1 do
begin
HelpBand := TCoolBand(paCoolBar.Bands[i]);
HelpStr := IntToStr(i);
WriteString(paCoolbar.Name + rkBandControl + HelpStr,
HelpBand.Control.Name);
WriteBool(paCoolbar.Name + rkBandBreak + HelpStr, HelpBand.Break);
WriteInteger(paCoolbar.Name + rkBandWidth + HelpStr,
HelpBand.Width);
end;
end;
end;
procedure LoadCoolBar(paReg: TRegistry; paCoolBar: TCoolBar);
var i, j: Integer;
HelpBand: TCoolBand;
HelpStr, HelpControl: string;
begin
with paReg do
begin
for i:=0 to paCoolBar.Bands.Count-1 do
begin
HelpStr := IntToStr(i);
if ValueExists(paCoolbar.Name + rkBandControl + HelpStr) then
begin
HelpControl := ReadString(paCoolbar.Name + rkBandControl +
HelpStr);
//Find Band with this control
j := 0;
while (j<paCoolBar.Bands.Count) and
(TCoolBand(paCoolBar.Bands[j]).Control.Name<>HelpControl)
do
Inc(j);
if j<>paCoolBar.Bands.Count then
begin //Load properties of this band
HelpBand := TCoolBand(paCoolBar.Bands[j]);
HelpBand.Index := i;
if ValueExists(paCoolbar.Name + rkBandBreak + HelpStr) then
HelpBand.Break := ReadBool(paCoolbar.Name +
rkBandBreak + HelpStr);
if ValueExists(paCoolbar.Name + rkBandWidth + HelpStr) then
HelpBand.Width := ReadInteger(paCoolbar.Name +
rkBandWidth + HelpStr);
end; //if
end; //if
end; //for
end; //with
end;
===========================
Prajem prijemny den.
------------------------------
Norbert ADAMKO
Head of Software Department
SIMCON s.r.o.
------------------------------
Tel: +421 905 723425
mailto:norris(zv)frdsa.utc.sk
http://www.home.sk/www/simcon/
------------------------------
Volani jine procedury
[*] brant(zv)dcomm(tec)cz - 30.7.2001 13:41:08
Jestli to chapu dobre, jde ti o simulaci stisku tlacitka. Staci zavolat
proceduru, ktera to realizuje, napr. Button1Click(Sender).
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
otazka se mi zda trosku podivna, snad jsem ji nepochopil blbe (pokud ano,
odbornici prominou) ...
Asi nejjednodussi bude, kdyz si tu hlasku ShowMessage('blabla'); das do
nejake procedury
...a tu pak budes volat pri stisknuti tech butonu, ne ?
Milan
Napadla mne takovato zhovadilost. Mam li na formu Button a na nej navazanou
hlasku (Showmessage('blabla'))
je mozno nejakym zpusobem pri stisknuti jineho Buttonu na formu simulovat
stisknuti Buttonu s hlaskou?
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Derivace
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 30.7.2001 13:54:56
Zial nie je to jednoduche.
Ak nemas spojitu krivku - tz mas iba body na obrazovke ( aj ked tych bodov
je vela, su to iba diskretne hodnoty) mozem ti zarucit, ze budes mat velke
problemy. Pravdepodobne ti budu vsetci odporucat aby si vygeneroval nejaku
spojitu krivku (aproximoval) a potom nad tou krivkou mozes robit derivaciu.
Bezne sa pouziva polynom. Avsak je to sarlatanstvo. Stim ze aproximaciu
urobis dostanes vlastne nieco uplne ine ako povodnu funkciu (len si to over)
z ktoreho si ziskal diskretne body na obrazovke - to ti mozem zarucit, (ani
sa nebudu podobat).
Ty potrebujes vygenerovat krivku (spojitu funkciu), ktora zarucuje minimalnu
zmenu derivacie medzy body a nikdy neprechadza mino nameranych diskretnych
bodov. A to je velmi velky problem. Ak nieco take by si nasiel, daj mi
urcite vediet.
Ak ti neide o presnost a korektnost, tak pouzivaj kludne niektore zo
sarlatanstiev numerickej matematiky - napriklad aproximuj s metodou
najmensich stvorcov a potom urob derivaciu.
Bolo by asi najlepsie pouzit FFT - fast furrier transformation - to je este
relativne najkorektnejsia
metoda - a je rychla. Derivacia uz je potom hracka. Na interneta naides o
tom vsetko aj hotove programi.
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
> -----P�vodn� zpr�va-----
> Od: Karel Rys [SMTP:delphi(zv)zas-me(tec)cz]
> Odesl�no: 30. j�l 2001 12:18
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Derivace
>
> > Rad bych pozadal zde pritomne zdatnejsi kolegy, pripadne i zde
> > pritomne zdatnejsi kolegyne :-) o radu:
> >
> > Mam krivku, ktera je "definovana" souradnicemi svych bodu X a Y,
> > napr. [1,56], [2,132], [3, 67] atd. Souradnice X zacina vzdy na 1 a
> > muze koncit libovolne, souradnice Y se pohybuje v rozmezi 1..254.
> > No a ja bych potreboval zjistit hodnoty derivace teto krivky v
> > jednotlivych bodech X. Muze me nekdo nasmerovat spravnym smerem jak
> > na to? Literatura, zdroje na Internetu, kod zdrojoveho kodu, vse
> > vitano.
>
> Ahoj,
>
> zdatnejsi asi nebudu, ale: ta Tva funkce je spojita?
> Jestli ne, pak by zrejme nemela derivaci v tech bodech,
> ktere mas zadany, a v tech mezilehlych bodech staci spocitat smernici
> one usecky. Pokud ta funkce ma byt spojita, budes nejprve muset
> pripravit nejaky polynom, ktery bude vytvaret takovou krivku, ktera
> prochazi vsemi temi body - ukol vypocetne narocnejsi, protoze pro n
> bodu to bude funkce (n-1). stupne. Metoda na to existuje, bohuzel si
> ji nepamatuji - kdysi jsem ji hledal v Bartschovi.
>
> Karel Rys
> Pouzivate nekdo Developer Express komponenty? - je
[*] Str�n�k Franti�ek - 30.7.2001 14:13:56
Se zajmem jsme sledovali diskuzi kolem komponent Developer Express.
Vlastnime verzi techto komponent 3.1. Vzhedem k tomu, ze pomoci techto
komponent vyvijime program pro celoplosne rozsireni, obavame se nejakeho
pripadneho maleru. Mohli by jste prosim blize specifikovat problemy,
ktere jste s temito komponentama meli ?
Vyvijeny software: pro Windows 95, 98, MS SQL 2000 , Delphi 5,
komponenty Developer Express, ADO.
Diky.
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Zobrazeni/editace emailovych HTML zprav
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 30.7.2001 14:48:17
Zdravicko,
mate, prosim vas, nekdo zkusenosti se zobrazovanim a editaci emailovych
zprav ve formatu HTML? Zpravy mam vysosane z Outlook Expressu a ulozene do
tabulky. Prilozene dokumenty mam ulozene jako jednotlive soubory ve zvolenem
adresari. Zatim vse zobrazuju pres WebBrowser, ktery plnim pres jeho
promennou HTMLDocument.
Vsechno zatim funguje s mailama, ktere jsou bud "prosty text" nebo HTML bez
obrazku, MIDu, apod.
Nevim ale jak zobrazit tyhle obrazky bez toho, abych je musel vyexportovavat
na disk a menit odkazy v dokumentu z napr.:
<IMG src=3D"cid:000901c0ac85$2151fa50$8c01a8c0(zv)pejasoft">
na
<IMG src="c:\adresar\blabla.jpg">
Dal budu muset vyresit editaci techto PLAIN TEXT / HTML zprav ala Outlook
Express. To ma ale nizsi prioritu.
(pozn. Volat primo OE nemuzu, kvuli nekolika dalsim operacim, nad kteryma
bych takto ztratil kontrolu.)
Mnohokrat dekuju za odpovedi.
S pozdravem
Petr Jarkovsky
prace:
pjarkovsky(zv)databox(tec)cz
www.databox(tec)cz
domu: ;-)
pejasoft(zv)pejasoft.com
www.pejasoft.com
Datovy typ parametru SQL dotazu
[*] Lubo Fule <fule(zv)ekosoft.sk> - 30.7.2001 15:16:50
> proste TQuery a basta. Jde to nejak zjistit pomoci TParam ? V object
> inspectoru nejaky vycet je, ale nejak jsem nepochopil jak se
> tam dostal (do
> zdrojaku VCL jsem zatim nekoukal a nevim jestli by to k
> necemu bylo :-))) )
>
Zial typ parametra sa cez BDE neda zistit. Typ parametra totiz urcuje
programator. MSSQL sice umoznuje zistit (napr. cez ODBC), akeho datoveho
typu BY MAL BYT parameter, ale programator to moze zmenit a potom
automaticky prichadza k slovu konverzia, ktoru zabezpecuje driver. Ak
programator typ parametra v delphi nenastavi, tak delphi nastavi datovy typ
podla toho aky sposobom na parameter pristupujes (AsString - VARCHAR,
AsInteger - INTEGER a pod.). Zrejme Ti nezostane nic ine, iba donutit
uzivatela, aby pre kazdy parameter sam urcil datovy typ (najlepsie je
ponuknut mu zoznam pre par zakladnych typov, s ktorymi by si mal vystacit)
alebo naprogramovat parser pre SQL jazyk, kde rozlisi, na ktory stlpec sa
parameter vztahuje a podla toho nastavis jeho datovy typ... BTW to sa mi zda
dost zlozite.
L.
Instalace Kylixu OE
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.7.2001 15:37:13
Pod Mandrake 8.0 je instalace absolutne bez problemu :)
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Pouziva se ten soubor? Muzu ho cist?
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 30.7.2001 15:43:31
Myslim, ze to tu uz probehlo, ale ne uspokojive.
Existuje nejaky priznak souboru operacniho systemu, popr. odpovidajici
funkce (i treba API), ktere by zjistila, zda muzu soubor cist, resp. zda
neni blokovan proti cteni jinou aplikaci (jinym uzivatelem).
Nepripada v uvahu metoda typu zkus do nej zapsat a uvidis... Nesmim soubory
zadnym zpusobem ovlivnit, krome toho, ze jej prectu.
Jde mi o to, ze programove zalohuji soubory a predtim potrebuji zjistit, zda
je budu vubec moci zalohovat, a pripadne "odpadliky nective" zapsat do
chyboveho protokolu.
Diky predem - zadem to Velky Admin nepovoluje. :-)))
Petr Svejda
Lingvista Backup - zalohovani s inteligenci
http://www.lingvista(tec)cz - stazeni programu Z D A R M A
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
Instalace Kylixu OE
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.7.2001 15:45:10
Ho hum!
On 30 Jul 2001,, Vladimir Michl wrote:
> Jo zkousel. Zatim jsem ale skoncil na tom, ze Borland nezverejnil
> patch na zdrojaky glibc, ale zverejnil pouze prekompilovane zdrojaky
> pro nektere distribuce (a velmi nespravne to nazyva patch), mezi nimi ale
> Debian 2.2 neni.
Diff na zdroje glibc 2.1.3 je na CD Kylixu. Jinak je ke stazeni na
http://delphree.clexpert.com/pages/Files/glibc213patches.zip
(puvodni url bylo nespravne)
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.ProgramFilesDir
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 30.7.2001 15:45:41
zdravim,
jak prosim zikat adresar ProgramFilesDir? Zkousel jsem to najit v Registrech. Tam to je. Ale programove jsem se k tomu vubec nedostal. Zkousel jsem to na trech PC s WinNT. Jine klice jak v HKEY_LOCAL_MACHINE jdou otevrit. Asi to bude pravama. Ale preci nemuzu chtit po uzivateli, aby byl vzdy prihlasen jako admin!
Jde to jinak?
Predem diky za jakoukoli odpoved
S pozdravem
Mirek Drejcek.
Napoveda ve tvaru CHM
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 30.7.2001 15:53:09
> Cim se da zkonvertovat napoveda ve tvaru *.chm do *.hlp ?
Je treba pouzit postup CHM >> HTMl/xml >> rtf >> hlp respektive podobne. Su
na to rozne nastroje (komercne i free tusim) na webu, ale bohuzial na presne
nazvy si teraz z hlavy nespomeniem.
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Zobrazeni/editace emailovych HTML zprav
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.7.2001 15:54:26
Ale, pokud sis vsiml, OE pri kazdem zobrazeni obrazku apod. exportuje
soubor do temporary adresare...
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.7.2001 PeJaSoft:
> Nevim ale jak zobrazit tyhle obrazky bez toho, abych je musel vyexportovavat
> na disk a menit odkazy v dokumentu z napr.:
> <IMG src=3D"cid:000901c0ac85$2151fa50$8c01a8c0(zv)pejasoft">
> na
> <IMG src="c:\adresar\blabla.jpg">Decompiler
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 30.7.2001 15:57:11
Ahoj,
ja si myslim, ze takovy W32Dasm ti dokaze podat o prelozenem kodu spoustu
informaci
(umi inteligentne vybrat odkazy na data a zobrazit je jako retezce a
dialogy, pojmenovavat API fce, a spustu dalsiho).
Pokud se tim disassembluje kod z C nebo Delphi tak to tokaze docela dobre
napovedet.
U visual basicu to funguje blbe (neni to nativni kod - aspon o tom nevim).
Pak jeste existuje jeden program, ktery umoznuje zobrazit formulare s VB a
Delphi v prelozenem EXE.
Radek
>
>a co by to melo dekompilovat ? Delphi neni Foxka ale prekladac, takze tezko
>muzes z prelozeneho kodu rekonstruovat neco rozumneho.
>
>Petr Vones
>
>
>
Zdroje k SQL exploreru
[*] <bejcek(zv)centrum(tec)cz> - 30.7.2001 16:07:59
Ahoj nemeli by jste nekdo zdroje k nejakemu univerzalnimu
databazovemu browseru?Potreboval bych neco,co mi prevede data z
tabulky na SQL prikazy update nebo insert,pripadne delete. Zatim
nic takoveho nemam,tak me napadlo,jestli by se nenasel nekdo,kdo
poskytne sve duchovni bohatstvi ve prospech vedy..;-)))
Nebo nevite nekdo o takovem nastroji,velice by mi to bodlo..
PS:Jinak dekuji za rady k dbgridu se zasrtavatkem...myslim,ze to
jiz v pohode vyresim...
Dekuji Aldik Pavel
D5 Ent W98
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
ProgramFilesDir
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.7.2001 16:12:15
From: "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz>
> jak prosim zikat adresar ProgramFilesDir? Zkousel jsem to najit v
Ahoj,
napriklad pomoci funkce GetProgramFilesFolder v unitu JclSysInfo z JCL:
ftp://ftp.delphi-jedi.org/Code_Library/Release_1_11/jcl.zip
Petr Vones
DBGrid & dataset
[*] Maixner Tomas <maixner(zv)infoware(tec)cz> - 30.7.2001 16:16:04
Predem v kratkosti se omluvim za nepresnou terminologii, nesedim u kompu s Delfinama ani s odbornou literaturou.
Problem
------------------
Mam DBGrid ktery zobrazuje data z MySQL databazoveho serveru. V DBGridu potrebuji udelat "pickuplist" ktery by obsahoval polozky z jineho datasetu. Klient si nacte do druheho datasetu tabulku s nazvy statu & ID statu. Chci, aby v DBGridu v polozce staty se rozbalil druhy dataset s nazvy statu a vratil ID statu(tabulka se bude menit a ID je autoincrement, ale muze se stat ze po nejake dobe bude treba jeden stat mit ID 3000 a "za nim" treba ID 25). Chci to resit elegantne a ne pomoci ruznych poli ci dynamicke refreshe pickuplistu u DBGridu.
Zaver
--------------------
omlovam se za takto "prasacky" popsany problem a dekuji za napady. Tomas