Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

Program manager

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1998 20:00:10

fhladik(zv)post(tec)cz wrote:
>
> Zdravicko,
>
> prosim pomozte kdo muzete, pisu instalacni program
> a potrebuji pridat ikonku do programove skupiny Spustit
> pri startu. Bohuzel se mi nedari pomoci DdeClientConv
> otevrit tuto skupinu. Zkousim to takto:
>
> .
> .
> .
> Name := Edit1.Text;
> Macro := Format('[ShowGroup(%s,1)]',[Name]) + #13#10;
> StrPCopy (Cmd, Macro);
> DdeClientConv1.ExecuteMacro(cmd,False);
>

Ahoj,

misto "zastaraleho" DDE je v tomto pripade lepsi primo vytvorit zastupce a
umistit jej do prislusne nabidky.

Nevim jakou mas verzi Delphi, ale v D4 (a patrne i D3) by to mohlo
jit treba takhle (vytvori zastupce pro Notepad a umisti jej do nabidky
Spustit pri startu):

procedure TForm1.Button1Click(Sender: TObject);
var
MAlloc: IMAlloc;
ItemIDList: PItemIDList;
StartMenuPath: array[0..MAX_PATH] of Char;
Link: IShellLink;
IPFile: IPersistFile;
LinkFileName: WideString;
begin
SHGetMalloc(Malloc);
try
OleCheck(SHGetSpecialFolderLocation(Application.Handle, CSIDL_STARTUP, ItemIDList));
SHGetPathFromIDList(ItemIDList, StartMenuPath);
MAlloc.Free(ItemIDList); // <- timhle si nejsem 100%ne jisty ....

Link := CreateComObject(CLSID_ShellLink) as IShellLink;
IPFile := Link as IPersistFile;

OleCheck(Link.SetPath('c:\windows\notepad.exe'));
OleCheck(Link.SetWorkingDirectory('c:\'));
LinkFileName := StartMenuPath + '\Notepad.lnk';

OleCheck(IPFile.Save(PWideChar(LinkFileName), False));
finally
MAlloc._Release;
end;
end; Petr Vones, amatersky programator

RX Library

[*] Pavel Vintr <slon1(zv)post(tec)cz> - 17.8.1998 20:05:58

Ahoj,

poradte mi nekdo prosim, jak ziskat RX Library. Marne se ji snazim stahnout z Inetu, porad mi to hlasi nejakou chybu. Nebo je to snad komercni produkt ?
Diky za kazdou odpoved.

-----------------
Pavel Vintr
vintr.pavel(zv)post(tec)cz


Klavesa ALT

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1998 20:18:22

Honza wrote:
>
>
> Jak zabranit tomu, aby mi klavesa "ALT" aktivovala menu formulare?
>

Ahoj,

melo by to jit takhle, ale zkousel jsem to jen v jednoduche aplikaci
a problem techto uprav standartniho chovani byva v tom ze pak obcas
prestane fungovat i neco jineho .....

na tom formulari nastav KeyPreview na True a dopln udalost:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_MENU then Key := 0;
end;

Petr Vones, amatersky programator

MDB komponenty ???

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1998 20:32:10

silvie.malikova(zv)post(tec)cz wrote:
>
> Ahoj vsem,
>
> nevite prosim nahodou nekdo a nejakych
> nativnich komponentach pro praci s MDB
> soubory ???
>
> (nejlepe pro C++ Builder)
>

Ahoj,

primo o komponentach nevim, ale pro pristup k Access databazim ti staci
BDE 4.51 a vyssi. Muzes si jej stahnout jako update od Borlandu.

Petr Vones, amatersky programator

multiforms

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1998 21:09:01

martin(zv)garden.bt.co.uk wrote:
>
> MAM MALY PROBLEM!!!!!!!!
> pracuji na multiforms aplikaci a nevim jak zajistit, aby okno zustalo
> i po kliknuti na jine na vrchu.

Ahoj,

nastav u formulare vlastnost FormStyle na fsStayOnTop

Petr Vones, amatersky programator

funkce nahodne cislo

[*] Ji�� Heinisch - 17.8.1998 21:54:33

Ahoj delfisti

p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz jak
vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
podobnou jako je v EXCELu

>> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
NAHC�SLO()*(b-a)+a <<


D�ky za zpravu Jarry

funkce nahodne cislo

[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 17.8.1998 22:15:13

V poslednim dopise Ji�� Heinisch pise:
> Ahoj delfisti
>
> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz jak
> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
> podobnou jako je v EXCELu
>
> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
> NAHC�SLO()*(b-a)+a <<
>
>
> D�ky za zpravu Jarry
>
>
>
>
>

treba Random()

predtim na zacatku programu dejte Randomize ...

milan

-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083

fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63


Delphi -> Java

[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 17.8.1998 23:29:19

Zdar,

prave jsem cetl ze na konferenci BorCon 98 v Denveru, byla predstavena alpha
verze prekladace, ktery dokaze z programu v Delphi udelat cisty javovsky
byte-code.


Pavel Chaloupka
E-Mail (velk� soubory > 100 kb) pavel(zv)mc-club(tec)cz
V�voj SW (Delphi, Java, Linux, Interbase)

<none>

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.8.1998 23:35:30

> Shanim instalaci Delphi4 nejlepe C/S , mohu nabidnout na vymenu soft. nebo koupim. Nabidnete,
> specha!!! Nejlepe prepalene instalacni CD. T.

Zlodejicku, prestan sem posilat tyto ptakoviny. Nikdo na to
neni zvedavy.

*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

BDE

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.8.1998 23:35:30

> Ako nainstalujem subj?

Treba pomoci InstallShield Express, InstallShield Professional,
Eschalon Setup, Wise Install apod.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Zostrelenie InterBase

[*] �ke��k Jaroslav�������6�����̿ - 17.8.1998 23:38:45

>
>tak sa IB tresne o zem, ze vykonal neplatnu operaciu a hotovo. Je to mozne,
ze SQL(hoci aj hlupe) dokaze zostrelit server???
>
>Jan Macej

Me se to jeste nepovedlo! A hloupych nebo chybnych dotazu jsem uz napsal
take dost.
Tady mozna bude problem s jazykovou sadou. To COLLATE musi byt zadano jiz
pri
zakladani tabulky a nemel by byt rozpor s DEFAULT CHARACTER SET a dale s
obladacem
BDE, jinak se IB blokuje na nepripustnost znaku.
Jaro.

In Topic

[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 18.8.1998 06:29:46

Panove prave se mi narodila dcera..

Je to Katka.

Jsem stastny.

cau

Dalibor.

Zaludnost s thready

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 18.8.1998 07:18:47

Tak si stahni z Delphi Kuchyne TPortoBello. Je free, ale nema ovladani
pomocnych signalku.

www.geocities.com/Athens/Olympus/5260 (zatim :-)

verze pro libovolne Dx

Martin

>Nojo, jenze ta (TApdComPort) je komercni a WaitForString tam je

In Topic

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 18.8.1998 07:20:05

aaaaaaaaa, mame na konfere dalsieho fotra! ;-)
gratulujem, mimochodom, kedy ju zacnes ucit delphi??

Dalibor Honus wrote:

> Panove prave se mi narodila dcera..
>

--
Maj sa,
R.

Flash Filer

[*] Ji�� Heinisch - 18.8.1998 07:21:59

Ahoj

Nemate nekdo zkusenosti s produktem Flash Filer, podle povidani se mi zda
lepsi nez DB tabulky

heinisch(zv)post(tec)cz
Pozor: priloha k mailu max. 256KB, 1 mail=1 priloha

funkce nahodne cislo 2

[*] Ji�� Heinisch - 18.8.1998 07:29:47

diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
Random(X)

a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber cisla
mezi zadanymi 2 cisly, treba mezi 10 az 20


Jarry


heinisch(zv)post(tec)cz
Pozor: priloha k mailu max. 256KB, 1 mail=1 priloha

-----P�vodn� zpr�va-----
Od: Milan Sorm <xsorm(zv)informatics.muni(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 17. srpna 1998 23:15
P�edm�t: Re: funkce nahodne cislo


>In-Reply-To: <000601bdca18$dc762cc0$85fcd5c2(zv)iytwylqw> from [** ISO-8859-2
charset **] Ji�� Heinischat "Aug 17, 98 09:54:33 pm"
>Cc: delphi(zv)pinknet(tec)cz
>X-Mailer: ELM [version 2.4ME+ PL39 (25)]
>MIME-Version: 1.0
>Precedence: list
>Reply-To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>
>V poslednim dopise Ji�� Heinisch pise:
>> Ahoj delfisti
>>
>> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz
jak
>> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
>> podobnou jako je v EXCELu
>>
>> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
>> NAHC�SLO()*(b-a)+a <<
>>
>>
>> D�ky za zpravu Jarry
>>
>>
>>
>>
>>
>
>treba Random()
>
>predtim na zacatku programu dejte Randomize ...
>
>milan
>
>-------------------------------------------------------------
>Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
>FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
>http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
>
>fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
>

multiforms

[*] Ji�� Heinisch - 18.8.1998 07:29:19

u tohoto formulare zkus nastavit vlastnost Formstyle na "fsStayOnTop"


Jarry

heinisch(zv)post(tec)cz
Pozor: priloha k mailu max. 256KB, 1 mail=1 priloha


-----P�vodn� zpr�va-----
Od: martin(zv)garden.bt.co.uk <martin(zv)garden.bt.co.uk>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 17. srpna 1998 18:17
P�edm�t: multiforms


>MAM MALY PROBLEM!!!!!!!!
>pracuji na multiforms aplikaci a nevim jak zajistit, aby okno zustalo
>i po kliknuti na jine na vrchu.
> diky
>

In Topic

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 18.8.1998 07:41:37

> Panove prave se mi narodila dcera..
>
> Je to Katka.
>
> Jsem stastny.
>
> cau
>
> Dalibor.

Gratulujem.

Marek

Delphi -> Java

[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 18.8.1998 07:45:58

> -----Original Message-----
> From: chaloupka(zv)mboxzn(tec)cz [SMTP:chaloupka(zv)mboxzn(tec)cz]
> Sent: Monday, August 17, 1998 11:29 PM
> Subject: Delphi -> Java
>
> Zdar,
>
> prave jsem cetl ze na konferenci BorCon 98 v Denveru, byla predstavena
> alpha
> verze prekladace, ktery dokaze z programu v Delphi udelat cisty javovsky
> byte-code.

Ja uz pul roku mam trial verzi Delphi2Java stazene z
http://www.javadelphi.com/,
ale jeste jsem se nedostal k tomu to vyzkouset. 8-(

ZdeP
prantl(zv)ptc.pvt(tec)cz


funkce nahodne cislo

[*] kchmel(zv)post(tec)cz - 18.8.1998 07:48:14

Jednou z moznosti je funkce Random, kter vraci bud realna cisla
z intervalu <0;1) nebo cela cisla z intervalu <0;X). V obou
pripadech se jedna o rovnomerne rozdeleni (tj. vsechna cisla
maji stejnou pravdepodobnost, ze vyjdou). Pokud potrebujes
jine rozdeleni, je treba pouzit prepocitavaci funkci.

Karel

> Ahoj delfisti
>
> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz jak
> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
> podobnou jako je v EXCELu
>
> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
> NAHC�SLO()*(b-a)+a <<
>
>
> D�ky za zpravu Jarry

HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...

[*] Pavel Kral <kral(zv)afx(tec)cz> - 18.8.1998 08:10:57

Dostat IE do Delphi se da tak, ze si nainstalujete do Delphi jeho ActiveX
komponentu.
Musite mit IE nainstalovaneho.
Pres menu Component-Import ActiveX control si pridejte Microsoft Internet
Controls,
tam je komponenta TWebBrowser a na internetu muzete najit i jeji popis.
Na adrese
http://msdn.microsoft.com/developer/sdk/inetsdk/help/itt/internet.htm
najdete popis ruznych komponent microsoftu spojenych s internetem.

Pavel

>
>zkousim neco udelat s HTML soucasti programu v delphi a jako realne vidim 3
>moznosti:
>
>a) dostat FrontPage do wokna me aplikace (Nejde a nejde! Umi to nekdo?
>Proste to neni Word/Excel/Proj98)
> [pokud se toho nekdo chce za uplatu ujmout, cekam na nabidky
>schopnejsich nez ja]
>
>b) dostat tam alespon Explorera a implementovat v nem HTMLed (viz novinka
na
>insidedhtml.com, docela bomba, mozna lepsi nez FP98 Editor! Jen jeste
prijit
>na to jak to efektne sejvnout do souboru nebo treba do SQL serveru)
>
>Dostat IE4 do wokna Delphi aplikace je ale take asi nad neci (me:) sily
>(ackoliv to jiste de, ale asi pres API, nebot HomeSite3 (www.alaire.com)
IE4
>ma uplne transparentne v sobe se vsemi vlastnostmi IE nastaveni) a je tez
>programovana v D3..
>
>Pokud byste meli tip, jak pres API dostat IE4 do wokna aplikace (jen screen
>bez buttonku), tak diky za nej sem.
>
>Al.
>
>

OPEN GL

[*] Honza <honza(zv)skoda-ujp(tec)cz> - 18.8.1998 08:46:06

Ahoj.
Taky se trochu zajimam o OpenGL a posilam ti par odkazu na www stranky,
na kter�ch jsem nasel neco zajimaveho.

http://www.fi.muni(tec)cz/~xbecvar/dalsvety.htm
http://herakles.zcu(tec)cz/local/zpg.html
http://www.geocities.com/SiliconValley/Way/2132/tutorial.html
http://www.sdf.se/~pm/delphi/opendown.html

Nektery dema jsou sice v C++, ale volani WinAPI pro OpenGL je stejn�.

Jan Koci
mail: honza(zv)skoda-ujp(tec)cz

----------
> Odes�latel: TYSLIC(zv)BHAN-CE.MAIL602.CZ
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: OPEN GL
> Datum: 17. srpna 1998 13:45
>
> Dobry den,
>
> Snazim se zacit seriozne pracovat s OPEN GL & Delphi, ale zatim chybi
> zkusenosti. Pokud mate nekdo prosim nejake zkusenosti se kterymi by jste se
> mohli podelit, ozvete se prosim na muj mail.
>
> Dekuji
>
> Krmela Tomas krmela(zv)post(tec)cz


funkce nahodne cislo 2

[*] Mik Radim <mik(zv)oce(tec)cz> - 18.8.1998 08:51:26

Ahoj,

co takhle:

a := 10;
b := 20;
x := a + Random( b-a+1);


> ----------
> Odes�latel: Ji�� Heinisch[SMTP:heinisch(zv)post(tec)cz]
> Odpov�di: DELPHI Distribution List
> Odesl�no: 18. srpna 1998 7:29
> Komu: Delphi Konference; Milan Sorm
> P�edm�t: Re: funkce nahodne cislo 2
>
> diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> Random(X)
>
> a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber
> cisla
> mezi zadanymi 2 cisly, treba mezi 10 az 20
>
>
> Jarry
>
>

funkce nahodne cislo

[*] Jan Fiala <fiala(zv)iname(tec)com> - 18.8.1998 08:56:19

{ inicializuje generatori }
Randomize;

{ vraci nahodne cislo v rozsahu (0 az 9) + 5 }
x := Random(10) + 5;

Honza

-----Original Message-----
From: Ji�� Heinisch <heinisch(zv)post(tec)cz>
To: Delphi Konference <delphi(zv)pinknet(tec)cz>
Date: 17. srpna 1998 22:03
Subject: funkce nahodne cislo


>Ahoj delfisti
>
>p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz jak
>vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
>podobnou jako je v EXCELu
>
>>> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
>NAHC�SLO()*(b-a)+a <<
>
>
>D�ky za zpravu Jarry
>
>
>

Instalacia D4.0 na winNT 4.0

[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 18.8.1998 08:58:19

Problemy s grafickou kartou S3 a WinNT 4.0 byly uz v Delphi 3, a bohuzel jak
jsem se presvedcil,
v D4 pretrvaly. Service Pack 3 to bohuzel neodstrani. Pokud nechces menit
grafickou kartu, muzes
alespon z toolbaru vyhodit nepotrebne ikony, ja jich mam 145 a vse chodi ok.

Marian


Instalacia D4.0 na winNT 4.0

[*] Lubo Fule <fule(zv)sct.sk> - 18.8.1998 09:13:27

Ja mam graficku kartu S3 VIRGE a nemal som s instalaciou D4 na NT 4.0 ziadne
problemy...

S pozdravom
Lubo Fule

> -----Original Message-----
> From: Jan Fiala [mailto:fiala(zv)iname.com]
> Sent: Monday, August 17, 1998 4:02 PM
> To: DELPHI Distribution List
> Subject: Re: Instalacia D4.0 na winNT 4.0
>
>
> Pokud mas grafickou kartu S3, tak s tou jsou problemy. Zmena
> graficke karty
> ? :-)
>
> Honza
>
> -----Original Message-----
> From: Radoslav Balvan <balvanra(zv)datalock.sk>
> To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Date: 17. srpna 1998 13:45
> Subject: Instalacia D4.0 na winNT 4.0
>
>
> >Caute,
> >
> >mam taky hlupy problem: instaloval som D4 C/S na NTcka
> >a po instalacii som mal domrsene ikony na toolbare - v Delphi, nie v
> >aplikacii...
> >pokial som mohol posudit, tak objekty fungovali, akurat mali iny face
> >(bitmapa)
> >jedna sa o tu listu kde sa vyberaju vsetky objekty - vpravo hore ;-)
> >
> >
> >nema s tym niekto skusenosti?
> >
> >--
> >Majte sa, diky
> >R.
> >
>

HTML, Delphi, IE4, OLE Automation IE4 HTMLed ...

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.8.1998 09:16:44

> Pokud byste meli tip, jak pres API dostat IE4 do wokna
> aplikace (jen screen
> bez buttonku), tak diky za nej sem.

Hledej na DSP, nebo na Torry komponentu TPreviewHTML.

S pozdravem

Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava

Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)yahoo(tec)cz

<none>

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1998 09:24:45


Nemate nekdo drogy na prodej nebo treba nejakou tu plastickou trhavinu ? Nejake kradene auto by se taky hodilo. :-))) :-))) :-)))

Dobra.

PS: Doufam, ze mi nekdo napise "Napis, na co to potrebujes." ...

----------
Od: Radoslav Balvan[SMTP:balvanra(zv)datalock.sk]
Odesl�no: 17. srpna 1998 15:51
Komu: DELPHI Distribution List
P�edm�t: Re: <none>

nejak sa tu zacinaju objavovat navrhy na nelegalne veci...
no,no,no! ;-)

tgm(zv)post(tec)cz wrote:

> Shanim instalaci Delphi4 nejlepe C/S , mohu nabidnout na vymenu soft. nebo koupim. Nabidnete, specha!!! Nejlepe prepalene instalacni CD.
> T.
>

--
Majte sa,
R.
BSA Region Executive ;-).

Program manager

[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 18.8.1998 09:27:56

> Zdravicko,
>
> prosim pomozte kdo muzete, pisu instalacni program
> a potrebuji pridat ikonku do programove skupiny Spustit
> pri startu. Bohuzel se mi nedari pomoci DdeClientConv
> otevrit tuto skupinu. Zkousim to takto:

Na NT je v registry pod klicem Startup nazev teto skupiny, pokud to pomuze.>
> .
> .
> .
> Name := Edit1.Text;
> Macro := Format('[ShowGroup(%s,1)]',[Name]) + #13#10;
> StrPCopy (Cmd, Macro);
> DdeClientConv1.ExecuteMacro(cmd,False);
>
> Napisu-li cokoliv co neobsahuje diakritiku tak to funguje.
>
> Za jakoukoli radu d�kuji
>
> Filip Hlad�k
>

+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+

Multitasking, to je kdyz se aplikace mohou hroutit paralelne.

Multitasking means that applications can crash simultaneously.

mail server

[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 18.8.1998 09:28:42

Mercury 32


> Dobry den,
>
> Asi to nepatri do tejto konferencie, ale nedavno sa tu viedla debata o
> WinProxy a s tym to ma uzku suvislost. Nevie niekto o nejakom mail servri,
> ale funkcnom, okrem WinProxy( mozu byt iba 3 uzivatelia a ja potrebujem
> viac) a Winroute ( demo ide iba 15 min). Vdaka za kazdu odpoved.
>
> Martin
>
> martin(zv)geoplanpp.sk
>

+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+

Multitasking, to je kdyz se aplikace mohou hroutit paralelne.

Multitasking means that applications can crash simultaneously.

<none>

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1998 09:38:48

Petr Zahradnik wrote:

> > Shanim instalaci Delphi4 nejlepe C/S , mohu nabidnout na vymenu soft.
> > nebo koupim. Nabidnete, specha!!! Nejlepe prepalene instalacni CD. T.
>
> Zlodejicku, prestan sem posilat tyto ptakoviny. Nikdo na to
> neni zvedavy.

Ja myslim, ze policie a Inprise ano.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Zostrelenie InterBase

[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 18.8.1998 09:40:54

> Tak mam novy zazitok s IB4.2
> Ak zadam SQL
>
> select sklad, sum(item)
> from prijem
> group by sklad
> collate PDOX_SLO

Takovy dotaz, chce volne misto v temp adresari, pokud ho tam je malo (dle
velikosti tabulky), tak to hapa. Vlastnost :-(>
> tak sa IB tresne o zem, ze vykonal neplatnu operaciu a hotovo. Je to
> mozne, ze SQL(hoci aj hlupe) dokaze zostrelit server???
>
> Jan Macej
>

+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+

Multitasking, to je kdyz se aplikace mohou hroutit paralelne.

Multitasking means that applications can crash simultaneously.

Zostrelenie InterBase

[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 18.8.1998 09:48:17

> >
> >tak sa IB tresne o zem, ze vykonal neplatnu operaciu a hotovo. Je to
> >mozne,
> ze SQL(hoci aj hlupe) dokaze zostrelit server???
> >
> >Jan Macej
>
> Me se to jeste nepovedlo! A hloupych nebo chybnych dotazu jsem uz napsal

No, specielne IB4.2 se da zborit jedinym SQL scriptem, ktery vytvori databazi,
tabulku, nasipe tam data, pusti dotaz a ono to hapa(tedy na NT serveru).> take dost. Tady mozna bude problem s jazykovou sadou. To COLLATE musi byt
> zadano jiz pri zakladani tabulky a nemel by byt rozpor s DEFAULT CHARACTER
> SET a dale s obladacem BDE, jinak se IB blokuje na nepripustnost znaku.
> Jaro.
>

+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+

Multitasking, to je kdyz se aplikace mohou hroutit paralelne.

Multitasking means that applications can crash simultaneously.

funkce nahodne cislo 2

[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 18.8.1998 10:01:04

A co treba : X := 10;
Y := Random( X ) + 10;

> -----P�vodn� zpr�va-----
> Od: Ji�� Heinisch [SMTP:heinisch(zv)post(tec)cz]
> Odesl�no: 18. srpna 1998 7:30
> Komu: Delphi Konference; Milan Sorm
> P�edm�t: Re: funkce nahodne cislo 2
>
> diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> Random(X)
>
> a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber
> cisla
> mezi zadanymi 2 cisly, treba mezi 10 az 20
>
>
> Jarry
>
>
> heinisch(zv)post(tec)cz
> Pozor: priloha k mailu max. 256KB, 1 mail=1 priloha
>
> -----P�vodn� zpr�va-----
> Od: Milan Sorm <xsorm(zv)informatics.muni(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Datum: 17. srpna 1998 23:15
> P�edm�t: Re: funkce nahodne cislo
>
>
> >In-Reply-To: <000601bdca18$dc762cc0$85fcd5c2(zv)iytwylqw> from [**
> ISO-8859-2
> charset **] Ji�� Heinischat "Aug 17, 98 09:54:33 pm"
> >Cc: delphi(zv)pinknet(tec)cz
> >X-Mailer: ELM [version 2.4ME+ PL39 (25)]
> >MIME-Version: 1.0
> >Precedence: list
> >Reply-To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> >
> >V poslednim dopise Ji�� Heinisch pise:
> >> Ahoj delfisti
> >>
> >> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych
> dotaz
> jak
> >> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho
> rozmezi
> >> podobnou jako je v EXCELu
> >>
> >> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
> >> NAHC�SLO()*(b-a)+a <<
> >>
> >>
> >> D�ky za zpravu Jarry
> >>
> >>
> >>
> >>
> >>
> >
> >treba Random()
> >
> >predtim na zacatku programu dejte Randomize ...
> >
> >milan
> >
> >-------------------------------------------------------------
> >Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
> >FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
> >http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
> >
> >fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
> >
>
>

funkce nahodne cislo 2

[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 18.8.1998 10:05:51

Ja bych to zkousel asi jednoduse a nejak takto :

Nahodne(dolnimez,hornimez : integer);

While not X >= dolnimez
begin;
X = Random(horni);
end;

Asi takhle nejak. Jsem novacek v Delphi a tak neznam presnou synatxi definice funkci. Resil bych to asi takto :

Generuj nahodne cislo tak dlouho, dokud neni presne tak velke, aby se veslo mezi zadanou mez....

Pokud je vzdalenost mezi od nuly mala (tzn. odpadnich cisel neni moc), mohlo by to fungovat....

Svatopluk Vit
Zelenac v Delphi

>> Ahoj delfisti
>>
>> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz
jak
>> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
>> podobnou jako je v EXCELu
>>
>>

funkce nahodne cislo 2

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 18.8.1998 10:05:34

> diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> Random(X)
> a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber cisla
^^^^^^^^^^
dostanes cisla od 0 do 9.

> mezi zadanymi 2 cisly, treba mezi 10 az 20

>> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
>> NAHC�SLO()*(b-a)+a <<
^^^^^^^^^^^^^^^^^^
Ved tu mas riesenie.
Iba to treba inac prepisat:

X:=random(b-a+1)+a {a<=b}

Vysledkom budu cisla integer z intervalu a<=X<=b.

Ak potrebujes realne z intervalu a<=X<b tak:

X:=random*(b-a)+a {a<=b}


Marek Repisky
mrepisky_zl(zv)zsnp.sk


funkce nahodne cislo

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1998 10:07:25


Nejprve zavolat Randomize ( inicializuje generator nahodnych cisel )
Potom Random(X) ktery vygeneruje cislo <0,X) takze pro nahodne cislo od 2 do 10 se musi udelat NahodneCislo:=Random(9)+2;
Dobra.

----------
Od: Ji�� Heinisch[SMTP:heinisch(zv)post(tec)cz]
Odesl�no: 17. srpna 1998 21:54
Komu: Delphi Konference
P�edm�t: funkce nahodne cislo

Ahoj delfisti

p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz jak
vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
podobnou jako je v EXCELu

>> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
NAHC�SLO()*(b-a)+a <<


D�ky za zpravu Jarry

In Topic

[*] Pavel Vintr <slon1(zv)post(tec)cz> - 18.8.1998 10:13:20


>Panove prave se mi narodila dcera..
>
>Je to Katka.
>
>Jsem stastny.
>
>cau
>
>Dalibor.
>

Gratuluji a pozdravuj ji ode mne.

CREATE DBF

[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 18.8.1998 10:20:12

Treba skusit vytvorenie cez SQL (komponent TQuery)
/posielam formu pre zaciatocnikov - pokrocili si to najdu v Local SQL guide/
---------------------
with query1 do
begin
close;
with SQL do
begin
clear;
add('CREATE TABLE "c:\temp\employee.DBF");
add('(');
add('Meno CHAR(20)');
add('Plat NUMERIC(14,4)'); // toto je prave riadok pre tvorbu
neimplicitnych hodnot cisel float
add('PoradCislo NUMERIC(3,0)'); // pre integer
add('PRIMARY KEY (Meno)'); // toto vytvori Primary index - nie je
potrebne
add(')');
end;
execSQL;
end;

// vyssie uvedeny text by mal umoznit tvorbu cisel neimplicitnej dlzky
// ALE LEN PRE DBF - dbase FORMAT, nie pre DB - paradox
-----------------------------------------------------
Local SQL Guide - original - priklad:

CREATE TABLE "employee.db"
(
last_name CHAR(20),
first_name CHAR(15),
salary NUMERIC(10,2),
dept_no SMALLINT,
PRIMARY KEY (last_name, first_name)
)

-------------------------------------------------------


s pozdravom
Miro
-----P_vodn_ spr_va-----
Od: Daniela Buranska <buranska(zv)pvt.sk>
Pre: Delphi Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 6. august 1998 16:05
Predmet: CREATE DBF


>Da sa nejako vytvorit struktura pre DBF subor tak aby numericke polozky
>mali rozne size. Metoda TTABLE CREATETABLE
>na vytvorenie novych policok pouzivam
> add(meno pola,ftinteger,0,false)
>ak zadam size ine ako nula hlasi invalid field size
>ftinteger implicitne pri size=0 da size 11
>ftsmallint 6
> Buranska
>

Odkazy pro novacky

[*] Fron�k Martin <fronek(zv)fic(tec)cz> - 18.8.1998 10:29:22

_______________ SLYSELI JSTE SLOVO BOZI __________________(Zahradnika)

fronek(zv)fic(tec)cz

-----Original Message-----
From: Petr Zahradnik
To: delphi(zv)pinknet(tec)cz
Sent: 10.8.1998 15:26
Subject: Re: Odkazy pro novacky

> Ja jsem myslel, ze bychom treba mohli neco z toho prelozit na stranky
> www.delphi(tec)cz, stejne tady omilame podobne problemy a urcite mnoho
> lidi ma s anglictinou problemy.
> (Teda nevim, co by na to Inprise a autorska prava)

1. Muselo by se Inprise zeptat, coz by jiste nebyl problem a on by
souhlas dal.

2. Ale kazdy programator by mel umet aspon tolik anglicky, aby si
precetl zakladni technicke informace, jinak je naprosto ztracen.
Takze je to zcela zbytecne.

*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

funkce nahodne cislo 2

[*] Pospi?il Toma? <Pospisil(zv)Chv.pvt(tec)cz> - 18.8.1998 10:45:48

Tohle jsi myslel

Randomize;
for A := 10 to 20 do begin
Edit1.Text:=IntToStr (Random(A));

> -----P�vodn� zpr�va-----
> Od: Mik Radim [SMTP:mik(zv)oce(tec)cz]
> Odesl�no: 18. srpna 1998 8:51
> Komu: DELPHI Distribution List
> P�edm�t: RE: funkce nahodne cislo 2
>
> Ahoj,
>
> co takhle:
>
> a := 10;
> b := 20;
> x := a + Random( b-a+1);
>
>
> > ----------
> > Odes�latel: Ji�� Heinisch[SMTP:heinisch(zv)post(tec)cz]
> > Odpov�di: DELPHI Distribution List
> > Odesl�no: 18. srpna 1998 7:29
> > Komu: Delphi Konference; Milan Sorm
> > P�edm�t: Re: funkce nahodne cislo 2
> >
> > diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> > Random(X)
> >
> > a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber
> > cisla
> > mezi zadanymi 2 cisly, treba mezi 10 az 20
> >
> >
> > Jarry
> >
> >

Disk

[*] Honza <honza(zv)skoda-ujp(tec)cz> - 18.8.1998 11:46:52

Ahoj

Mam problem.
Koupil jsem si novy disk 1.6 GB Samsung.
Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
vyhodil hlasku "DISK BOOT FAILURE..........atd.".
Poradil by mi nekdo, kde jsem mohl udelat chybu ?

Jan Koci
mail: honza(zv)skoda-ujp(tec)cz


WeekOfYear

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 18.8.1998 11:58:01

Ahojda,

potreboval jsem splacat fci na zjisteni cisla tydne v roce.
Tagze pokud ji negdo negdy budete potrebovat, tag tady je :

function WeekOfYear(Datum: TDateTime): Smallint;
var
Year, Month, Day : Word;
FirstDay : TDateTime;
begin
DecodeDate(Datum, Year, Month, Day);
FirstDay := EncodeDate(Year, 1, 1);
Result := Trunc(((DayOfWeek(FirstDay)-1) + (Datum-FirstDay-1)) / 7) +
1;
// pro tyden zacinajici NEDELI !!! //
end;

PS: Nevite nekdo, jak detekovat RIMSKOU CISLICI v retezci ??? Konkretne
jde o zjisteni, zda v adrese-ulici/obci je uvedeno cislo domu, ktere
nekdy muze byt rimskou cislici ... Diky.

PS2: Blahopreji novopecenemu tatinkovi !!!

Zatim ahojda a "Why drink & drive, when you can smoke & fly !"

--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com

funkce nahodne cislo 2

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.8.1998 11:59:26

> diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> Random(X)
>
> a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber cisla
> mezi zadanymi 2 cisly, treba mezi 10 az 20

No a to je nejaky problem?

X := 10;
Y := 20;
R := X + Random(Y-X);

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

<none>

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 18.8.1998 12:03:33

Kolik toho chces ?
S.

Dobromil Mal� wrote:

> Nemate nekdo drogy na prodej nebo treba nejakou tu plastickou trhavinu ? Nejake kradene auto by se taky hodilo. :-))) :-))) :-)))

In Topic

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 18.8.1998 12:18:31

Gratuluji !

> -----P�vodn� zpr�va-----
> Od: Marek Repisk� [SMTP:mrepisky_zl(zv)zsnp.sk]
> Odesl�no: 18. srpna 1998 7:42
> Komu: DELPHI Distribution List
> P�edm�t: Re: In Topic
>
> > Panove prave se mi narodila dcera..
> >
> > Je to Katka.
> >
> > Jsem stastny.
> >
> > cau
> >
> > Dalibor.
>
> Gratulujem.
>
> Marek
>

BDE

[*] Richard Willmann <sales(zv)nocomment.sk> - 18.8.1998 13:21:20

ale to samozrejme viem :-)))

skorej ma zaujima ako mozem BDE nainstalovat programovo, predstavte si
trebas ze pisem instalacny program...

dakujem


Richard Willmann

-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 18. august 1998 0:01
P�edm�t: Re: BDE


> Ako nainstalujem subj?

Treba pomoci InstallShield Express, InstallShield Professional,
Eschalon Setup, Wise Install apod.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

funkce nahodne cislo 2

[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 18.8.1998 13:24:25

V poslednim dopise Ji�� Heinisch pise:
> diky za zpravu , ale tento postup, alespon u mne funguje takto : x=10
> Random(X)
>
> a dostanu cislo od 0 do 10 , ale ja potrebuji funkci pro nahodny vyber cisla
> mezi zadanymi 2 cisly, treba mezi 10 az 20
>
>
> Jarry

ale jiste, tam byl nejaky vzorecek.

Random(10) vraci cislo mezi 0 a 9

chcete-li mezi 10 a 20 zadejte:

10+Random(11)

tedy pro cisla mezi A a B zadejte

A+Random(B-A+1)

milan

>
>
> heinisch(zv)post(tec)cz
> Pozor: priloha k mailu max. 256KB, 1 mail=1 priloha
>
> -----P�vodn� zpr�va-----
> Od: Milan Sorm <xsorm(zv)informatics.muni(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Datum: 17. srpna 1998 23:15
> P�edm�t: Re: funkce nahodne cislo
>
>
> >In-Reply-To: <000601bdca18$dc762cc0$85fcd5c2(zv)iytwylqw> from [** ISO-8859-2
> charset **] Ji�� Heinischat "Aug 17, 98 09:54:33 pm"
> >Cc: delphi(zv)pinknet(tec)cz
> >X-Mailer: ELM [version 2.4ME+ PL39 (25)]
> >MIME-Version: 1.0
> >Precedence: list
> >Reply-To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> >
> >V poslednim dopise Ji�� Heinisch pise:
> >> Ahoj delfisti
> >>
> >> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz
> jak
> >> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
> >> podobnou jako je v EXCELu
> >>
> >> >> Pro generov�n� n�hodn�ho ��sla mezi ��sly a a b zadejte:
> >> NAHC�SLO()*(b-a)+a <<
> >>
> >>
> >> D�ky za zpravu Jarry
> >>
> >>
> >>
> >>
> >>
> >
> >treba Random()
> >
> >predtim na zacatku programu dejte Randomize ...
> >
> >milan
> >
> >-------------------------------------------------------------
> >Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
> >FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
> >http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
> >
> >fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
> >
>
>
>
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083

fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63


Instalacia D4.0 na winNT 4.0

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 18.8.1998 13:56:12

caute,

nesuvisi to nejako s comctl32.DLL a comdlg32.dll (pripadne s nejakymi inymi?)
Lubo Fule wrote:

> Ja mam graficku kartu S3 VIRGE a nemal som s instalaciou D4 na NT 4.0 ziadne
> problemy...
>
> S pozdravom
> Lubo Fule
>
> > -----Original Message-----
> > From: Jan Fiala [mailto:fiala(zv)iname.com]
> > Sent: Monday, August 17, 1998 4:02 PM
> > To: DELPHI Distribution List
> > Subject: Re: Instalacia D4.0 na winNT 4.0
> >
> >
> > Pokud mas grafickou kartu S3, tak s tou jsou problemy. Zmena
> > graficke karty
> > ? :-)
> >
> > Honza
> >
> > -----Original Message-----
> > From: Radoslav Balvan <balvanra(zv)datalock.sk>
> > To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> > Date: 17. srpna 1998 13:45
> > Subject: Instalacia D4.0 na winNT 4.0
> >
> >
> > >Caute,
> > >
> > >mam taky hlupy problem: instaloval som D4 C/S na NTcka
> > >a po instalacii som mal domrsene ikony na toolbare - v Delphi, nie v
> > >aplikacii...
> > >pokial som mohol posudit, tak objekty fungovali, akurat mali iny face
> > >(bitmapa)
> > >jedna sa o tu listu kde sa vyberaju vsetky objekty - vpravo hore ;-)
> > >
> > >
> > >nema s tym niekto skusenosti?
> > >
> > >--
> > >Majte sa, diky
> > >R.
> > >
> >
>


--
Maj sa,
R.

Kompatibilita D4->D3

[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 18.8.1998 13:57:02

Petr Brant wrote:

> Ahoj vsichni,
>
> po nejake dobe mam zase dotaz. Mozna budu mit v praci D4, ale doma mam D3.
> Kdyz udelam v praci neco pod D4, budu to moci doma upravovat pod D3
> (vzhledem k verzim "standard" se nepredpokladaji zadne C/S aplikace.
> Predpokladaji se standardni aplikace a navic i patrne bez databazi)?
>
> Diky za vsechny odpovedi.
>
> *************************************************************************
> Petr Brant [pbrant(zv)softhome.net]
> programator v MSVC++, obcas Delphi nebo Visual Basic
> *************************************************************************

asi ano, len budu malicke problemy s tymi properties, ktore obsahuje d4 a
neobsahuje d3, napadaju mi napr. anchors. :-(((

lubos dusanic

Vertikalni scrollbar v listboxu

[*] David_Zabensky.UNION(zv)union(tec)cz - 18.8.1998 14:49:02

Cau lidi,

nevite kdosi jak pridat do listboxu vertikalni scrollbar?

(Style:= lbOwnerDrawFixed)

Diky moc.

MDB komponenty ???

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.8.1998 15:10:29

Existuje DAODS od Erika Salaje:

http://www.cybermagic.co.nz/winsoft

ktere pristupuje k MDB pres DAO a nebo Adonis (tamtez) ktery pouziva ADO
2.0 (ke stazeni zdarma u MS).

Mac

silvie.malikova(zv)post(tec)cz wrote:
>
> Ahoj vsem,
>
> nevite prosim nahodou nekdo a nejakych
> nativnich komponentach pro praci s MDB
> soubory ???
>
> (nejlepe pro C++ Builder)
>
> Diik
>
> Silva

--
POZOR - zmena e-mail adresy
ATTENTION - e-mail address changed
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================

HTML ?

[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 18.8.1998 16:23:40

Ahoj vsichni,

nevite nahodou nekdo, zda existuje nejaka komponenta na stahovani
HTML stranek z internetu a pripadne nejaka na jejich
konverzi do formatu TXT.

Dekuji za vsechny napady


Disk

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 18.8.1998 16:33:21

Ahoj,

no pokud jsi instaloval "Win95 with USB" z DOSu, tak potom po prvnim startu
stareho Dosu, a nasledne znovu Win,
jsi skoncil ... :-(

Reseni:
1) potrebujes bootovaci disketu od instalovane verze Win95
2) nabootujes z diskety a spustis FDISK /mbr
3) nasysis disk SYS c:

Taghle nejak jsem to gdysi resil ... snad ti to pomuze. PS: Prijdes o stary DOS.
Existuje (snad, i gdyz pochybuju) nejaky fix, ktery tu chybu ve Win opravi (pred
havarii :-)

Don't worry be happy :-))
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com


Honza wrote:

> Ahoj
>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
> Jan Koci
> mail: honza(zv)skoda-ujp(tec)cz


Disk

[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 18.8.1998 16:37:27

Nemas nahodou v floppy mechanice (A:) disketu ???
Pokud ne, tak nemas nastaveou aktivni partion. (fdisk, set active part....)
Honza wrote:

> Ahoj
>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
> Jan Koci
> mail: honza(zv)skoda-ujp(tec)cz



--
********************************************************************
* Mona v.o.s. *
* krautvor(zv)mona(tec)cz Ales Krautvor *
* tel.: 96 162 404 Mala Stepanska 17 *
* 120 79 Praha 2 *
* -O|O- "Nemusi prset, pokud aspon kape." *
********************************************************************

Disk

[*] VPetr <vpetr(zv)bigfoot(tec)com> - 18.8.1998 17:12:45

tak si nastav fdiskem nejaky aktivni partition, nabootuj z diskety a dej sys
a: c:

VP

-----P�vodn� zpr�va-----
Od: Honza <honza(zv)skoda-ujp(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 18. srpna 1998 15:53
P�edm�t: Disk


>Ahoj
>
>Mam problem.
>Koupil jsem si novy disk 1.6 GB Samsung.
>Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
>bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi
pocitac
>vyhodil hlasku "DISK BOOT FAILURE..........atd.".
>Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
>Jan Koci
>mail: honza(zv)skoda-ujp(tec)cz
>
>

Disk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1998 18:48:18

Honza wrote:
>
Ahoj,

>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?

Ahoj,

Ja jsem postupoval tak ze jsem v fdisku rozdelil disk (pokud mas Win95
OSR2 tak urcite zapni podporu FAT32), nastavil aktivni oddil a nakonec
obe jednotky zformatoval. Potom jsem instaloval Windows (coz obcas delam
dodnes :-), proto mam rozdeleny disk abych si na druhe casti mohl uchovavat
data.

Petr Vones, amatersky programator

Instalacia D4.0 na winNT 4.0

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1998 19:33:21

Lubo Fule wrote:
>
> Ja mam graficku kartu S3 VIRGE a nemal som s instalaciou D4 na NT 4.0 ziadne
> problemy...

> > >Caute,
> > >
> > >mam taky hlupy problem: instaloval som D4 C/S na NTcka
> > >a po instalacii som mal domrsene ikony na toolbare - v Delphi, nie v
> > >aplikacii...
> > >pokial som mohol posudit, tak objekty fungovali, akurat mali iny face
> > >(bitmapa)
> > >jedna sa o tu listu kde sa vyberaju vsetky objekty - vpravo hore ;-)

Ahoj,

mozna bude problem v knihovne COMMCTL32.DLL, kdyz jsem poprve naistaloval
D4 (na Win95 OSR2, IE 3.02CZ) tak jsem tam nemel vubec ikony v palete
komponent a polozky menu byly desne roztazene. Na instalacnim CD Delphi mas
samostatnou instalaci posledni verze teto knihovny - 40comupd.exe (verze DLL
pak je 4.72.2106.4).
Nevim ale jestli to lze pouzit i u NT, v Borland konferencich se to probiralo
a pokud si pamatuju tak tam nekdo tvrdil ze jedina moznost byla nainstalovat
minimalni instalaci IE4.x :-(( Treba ti to pomuze.

Petr Vones, amatersky programator

BDE

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.8.1998 20:13:24

> ale to samozrejme viem :-)))

:-)))

> skorej ma zaujima ako mozem BDE nainstalovat programovo, predstavte si
> trebas ze pisem instalacny program...

No tak pak musis ovladnout nejake funkce, jako je zapis neceho
do registru, pridani aliasu, konfigurace apod.

*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Vertikalni scrollbar v listboxu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1998 20:23:40

David_Zabensky.UNION(zv)union(tec)cz wrote:
>
> Cau lidi,
>
> nevite kdosi jak pridat do listboxu vertikalni scrollbar?
>
> (Style:= lbOwnerDrawFixed)
>

Ahoj,

ten se ti prece ukaze sam kdyz je v listboxu vice polozek nez lze
zobrazit. Mozna mas ale namysli horizontalni scrollbar (ten tam
standartne neni) muzes jej pridat takhle (prvni paramter urcuje
sirku v bodech ktera se bude scrollovat)

ListBox1.Perform(LB_SETHORIZONTALEXTENT, 200, 0); Petr Vones, amatersky programator

HTML ?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1998 20:31:44

Petr Vales wrote:
>
> Ahoj vsichni,
>
> nevite nahodou nekdo, zda existuje nejaka komponenta na stahovani
> HTML stranek z internetu a pripadne nejaka na jejich
> konverzi do formatu TXT.
>
> Dekuji za vsechny napady

Ahoj,

Od verze Delphi 2 jsou jeho soucasti komponenty pro Internet, tim by
jsi to mohl stahnout, jsou ale OCX coz neni zrovna idelani (az v D4
jsou nativni). Dalsi moznost je pouzit free balik komponent ICS (odkaz
najdes na delphi(tec)cz v odkazech), mas tam i par prikladu.

Petr Vones, amatersky programator


<none>

[*] tomas11b(zv)post(tec)cz - 18.8.1998 20:57:08


Ahoj.

Muze mi nekdo poradit kde sehnat komponenty pro praci s obrazky JPG pro Delphi 1.

Diky
Tom.

Chyba: non-blob column in table required to perfor

[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 19.8.1998 00:45:46

Ahoj Delpfini,

nevedel byste mi prosim nekdo poradit s problemem :

Mam Master Query a Detail Table (master-detail vztah). Pokazde kdyz chci prehodnotit Query, tak jej zavru, naplnim parametry a volam Open. Vse funguje, az na pripad, kdy Master Query navybere zadny zaznam. V tomto pripade to hlasi chybu "Non-blob column in table required to perform operation" (pri volani Open na Master Query).

Mam takovy pocit, ze drive mi to fungovalo spravne vzdy. Nedavno jsem si nainstaloval Upgrade na Delphi 3.02 a BDE 5.0. Tak nevim, zda to s tim nema souvislost.

Diky, Ladislav Nagy


Disk

[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 19.8.1998 01:38:05

> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?

Nektere disky 1,6-1,7GB maji problemy se zakladnimi deskami s chipsetem TX.
Take muzete v cenicich najit dvoji disky stejne kapacity
(TX a non-TX).
Mohla by to byt jedna z pricin problemu.
Dale-zkusil bych se podivat na parametry HD v BIOSu,
pripadne snizit PIO/vypnout UDMA, zmenit jine parametry u HD-IDE.
(Je spravne nastavena aktivni partition na novem disku?)>
> Jan Koci
> mail: honza(zv)skoda-ujp(tec)cz
>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*

Stream

[*] lubos(zv)iname(tec)com - 19.8.1998 05:03:23 -0400 (edt)

caute,

mam taky problem - snazim sa napisat service, ktory bude v urcitej dobe nieco stahovat z internetu a ukladat to do databazy. vyuzivam komponentu, ktora stiahne data do tstream (tstringstream) a potom to potrebujem preklopit do tstringlist. robim to nastedovne:

var
DataPtr: TStringList;
StreamPtr: TStream;
begin
...
StreamPtr:= TStringStream.Create('');
StreamPtr.Get; // stiahne data z inet
DataPtr:= TStringList.Create;
DataPtr.LoadFromStream(StreamPtr);
..

a vysledok je vzdy rovnaky : access vialation ...

vie mi niekto poradit?

lubos

--------------------------------------------------------
Get free personalized email at http://netscape.iname.com


Disk

[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 19.8.1998 05:09:24

A nezapnul jsi si nahodou FAT32 ? Ne vsechny Windows to podporujou, nakopou
ti potom boot. To je ma zkusenost.
-----P�vodn� zpr�va-----
Od: Honza <honza(zv)skoda-ujp(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 18. srpna 1998 16:11
P�edm�t: Disk


>Ahoj
>
>Mam problem.
>Koupil jsem si novy disk 1.6 GB Samsung.
>Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
>bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi
pocitac
>vyhodil hlasku "DISK BOOT FAILURE..........atd.".
>Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
>Jan Koci
>mail: honza(zv)skoda-ujp(tec)cz


funkce nahodne cislo 2

[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 19.8.1998 05:14:13

Ja tedy nevim, ale co takhle x:=dolnimez+Random(hornimez-dolnimez+1);
:-))
-----P�vodn� zpr�va-----
Od: Svatopluk V�t <vit(zv)ardo(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 18. srpna 1998 18:07
P�edm�t: RE: funkce nahodne cislo 2


Ja bych to zkousel asi jednoduse a nejak takto :

Nahodne(dolnimez,hornimez : integer);

While not X >= dolnimez
begin;
X = Random(horni);
end;

Asi takhle nejak. Jsem novacek v Delphi a tak neznam presnou synatxi
definice funkci. Resil bych to asi takto :

Generuj nahodne cislo tak dlouho, dokud neni presne tak velke, aby se veslo
mezi zadanou mez....

Pokud je vzdalenost mezi od nuly mala (tzn. odpadnich cisel neni moc), mohlo
by to fungovat....

Svatopluk Vit
Zelenac v Delphi

>> Ahoj delfisti
>>
>> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz
jak
>> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
>> podobnou jako je v EXCELu
>>
>>

Chyba: non-blob column in table required to perfor

[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 19.8.1998 05:18:17

Mam stejne problemy s Query obecne. At zije try ... except end;
-----P�vodn� zpr�va-----
Od: Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 19. srpna 1998 0:45
P�edm�t: Chyba: non-blob column in table required to perform operation


>Ahoj Delpfini,
>
>nevedel byste mi prosim nekdo poradit s problemem :
>
>Mam Master Query a Detail Table (master-detail vztah). Pokazde kdyz chci
prehodnotit Query, tak jej zavru, naplnim parametry a volam Open. Vse
funguje, az na pripad, kdy Master Query navybere zadny zaznam. V tomto
pripade to hlasi chybu "Non-blob column in table required to perform
operation" (pri volani Open na Master Query).
>
>Mam takovy pocit, ze drive mi to fungovalo spravne vzdy. Nedavno jsem si
nainstaloval Upgrade na Delphi 3.02 a BDE 5.0. Tak nevim, zda to s tim nema
souvislost.
>
>Diky, Ladislav Nagy


Instalacia D4.0 na winNT 4.0

[*] Jan Fiala <fiala(zv)iname(tec)com> - 19.8.1998 06:05:37

Lubo, S3 VIRGE je neco jineho nez bezna S3 Trio 64 a jeji klony

Jan Fiala

>
>
>Lubo Fule wrote:
>
>> Ja mam graficku kartu S3 VIRGE a nemal som s instalaciou D4 na NT 4.0
ziadne
>> problemy...
>>
>> S pozdravom
>> Lubo Fule
>>

help jak se odhlasim

[*] Jan Fiala <fiala(zv)iname(tec)com> - 19.8.1998 06:12:29

Precti si WWW.DDELPHI.CZ

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

OPEN GL

[*] Martin UHER <tlanik(zv)zvt.csas(tec)cz> - 19.8.1998 07:22:44

Asi 3 stranky najdes v CHIPu cislo 6 (cerven) tohoto roku (1998)

Nazev clanku: Delphi 3 & OpenGL
Windows a OpenGL

Nazvy odstavcu: Render Context
Pixel Format Descriptor
Schema programu pouzivajiciho OpenGL
Jednoduchy program na kresleni krychle
Fonty v OpenGL
Textury
Zaver

Az budes mit zkusenosti, napis!

-----Original Message-----
From: TYSLIC(zv)BHAN-CE.MAIL602.CZ [mailto:TYSLIC(zv)BHAN-CE.MAIL602.CZ]
Sent: Monday, August 17, 1998 1:45 PM
To: delphi(zv)pinknet(tec)cz
Subject: OPEN GL

Dobry den,

Snazim se zacit seriozne pracovat s OPEN GL & Delphi, ale zatim chybi
zkusenosti. Pokud mate nekdo prosim nejake zkusenosti se kterymi by jste se
mohli podelit, ozvete se prosim na muj mail.

Dekuji

Krmela Tomas krmela(zv)post(tec)cz


Doplnenie EditBoxu (ComboBoxu)

[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 19.8.1998 07:29:21

Caute ludia,

obraciam sa na Vas s jednym malym problemom. Nebudete mi vediet poradit ako
doplnit (dokoncit) text v edit boxe z nejakej historie (napr. v Netscape
4.0 - doplnenie konca adresy) s tym, aby bola doplnena cast selektovana a
pri dalsom stisku klavesy aby sa proces vyberu opakoval.

Diki

SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk


http://simi.vadium.sk
and web admin of:


www.drazba.sk


Chyba: non-blob column in table required to perfor

[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 19.8.1998 07:32:49

Bohuzel try except se mi nehodi, protoze v pripade, ze je Master Query prazdne, tak s v Detail Table objevi vsechny zaznamy z tabulky (proste je ignorovan Master-Detail vztah).

Ladislav Nagy

----------
> Odes�latel: Jan Skopov� <jan.skopovy(zv)vol(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: Re: Chyba: non-blob column in table required to perform operation
> Datum: 19. srpna 1998 5:18
>
> Mam stejne problemy s Query obecne. At zije try ... except end;
> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 19. srpna 1998 0:45
> P�edm�t: Chyba: non-blob column in table required to perform operation
>
>
> >Ahoj Delpfini,
> >
> >nevedel byste mi prosim nekdo poradit s problemem :
> >
> >Mam Master Query a Detail Table (master-detail vztah). Pokazde kdyz chci
> prehodnotit Query, tak jej zavru, naplnim parametry a volam Open. Vse
> funguje, az na pripad, kdy Master Query navybere zadny zaznam. V tomto
> pripade to hlasi chybu "Non-blob column in table required to perform
> operation" (pri volani Open na Master Query).
> >
> >Mam takovy pocit, ze drive mi to fungovalo spravne vzdy. Nedavno jsem si
> nainstaloval Upgrade na Delphi 3.02 a BDE 5.0. Tak nevim, zda to s tim nema
> souvislost.
> >
> >Diky, Ladislav Nagy


Vertikalni scrollbar v listboxu

[*] David_Zabensky.UNION(zv)union(tec)cz - 19.8.1998 07:43:36

Diky moc.

Samozrejme jsem myslel horizontalni scrollbar - ten preklep jsem si
uvedomil az ve chvili, kdy jsem ten mail poslal.

Nevim proc, ale procedura

ListBox1.Perform(LB_SETHORIZONTALEXTENT, 200, 0);

mi nejak nejede (je fakt, ze ji volam z tela programu - mozna by pomohlo
kdybych si udelal novou komponentu zdedenou z TCustomListBox...)

funkce nahodne cislo 2

[*] kchmel(zv)post(tec)cz - 19.8.1998 07:45:56

To je hezky, ale pak uz to neni nahodne cislo z rovnomerneho rozdeleni a je to k nicemu.

Karel

> Ja bych to zkousel asi jednoduse a nejak takto :
>
> Nahodne(dolnimez,hornimez : integer);
>
> While not X >= dolnimez
> begin;
> X = Random(horni);
> end;
>
> Asi takhle nejak. Jsem novacek v Delphi a tak neznam presnou synatxi definice funkci. Resil bych to asi takto :
>
> Generuj nahodne cislo tak dlouho, dokud neni presne tak velke, aby se veslo mezi zadanou mez....
>
> Pokud je vzdalenost mezi od nuly mala (tzn. odpadnich cisel neni moc), mohlo by to fungovat....
>
> Svatopluk Vit
> Zelenac v Delphi
>
> >> Ahoj delfisti
> >>
> >> p�si do konference poprve a tak omluvte pripadne chyby. Mel bych dotaz
> jak
> >> vytvorit funkci k vygenerovani nahodneho cisla z definovaneho rozmezi
> >> podobnou jako je v EXCELu
> >>
> >>
>
>
>
>

Odkazy pro novacky

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1998 08:07:38

Fron k Martin wrote:

> _______________ SLYSELI JSTE SLOVO BOZI __________________(Zahradnika)

Jestli se nekdo chce venovat pestovani nesnasenlivosti, doporucuji
mu spise nez exhibice zde navstevu http://www.dati(tec)cz/~slhaters/.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


funkce nahodne cislo 2

[*] David_Zabensky.UNION(zv)union(tec)cz - 19.8.1998 08:13:23

Caute lidi,

mam taky maly napad ohledne generovani nahodneho cisla mezi MIN a MAX. Neco
podobneho uz jsem delal.
Funkce Random (po inicializaci Randomize) vraci cislo od 0 do ROZSAH - 1.


const
MIN : integer = 15;
MAX : integer = 100;

function GetMyRandom: integer;
begin
// Random inicializuji na hodnotu 0..85
// Po pricteni 15 dostanu vzdy cislo v intervalu 15..99 (pokud chci
15..100 tak musim zmenit Random(MAX - MIN + 1) + MIN;
Result:= Random(MAX - MIN) + MIN;
end;

var X: integer;
begin
Randomize;
X:= GetMyRandom;
end.

HTML ?

[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 19.8.1998 08:38:24

Petr Vales wrote:
>
> Ahoj vsichni,
>
> nevite nahodou nekdo, zda existuje nejaka komponenta na stahovani
> HTML stranek z internetu a pripadne nejaka na jejich
> konverzi do formatu TXT.
>
> Dekuji za vsechny napady


Stahovat umi docela pekne treba TelePort.
A jaka konverze do TXT? HTML jsou prece v textovem tvaru.


--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861


Horizontalni scrollbar v listboxu

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.8.1998 08:41:09

> mi nejak nejede (je fakt, ze ji volam z tela programu -
> mozna by pomohlo
> kdybych si udelal novou komponentu zdedenou z TCustomListBox...)

V RX Library je objekt TTextListBox, ktery tohleto umi.

BDE

[*] Jan Nov�k���r����n�?��? - 19.8.1998 08:44:08

Pou��v�m Delphi3 , - Professional , BDE Verze 4.00 , ale st�le mi
nefunguje nativn� p��stup na datab�ze v Accessu.
V �em m��e b�t chyba ?(Chyba :

General SQL error,
The JET VBA
file (VBAJET.DLL for 16 bit versions, or VBAJET32.DLL for 32 bit versions)
failed to initialize when called.
/chyba 13059, 3447/

D�k za radu


funkce nahodne cislo 2

[*] Pospisil Tomas <Pospisil(zv)Chv.pvt(tec)cz> - 19.8.1998 08:46:54

Nevim proc se jeste dohadujete. Myslim si ze dostal dost reseni.
Mimochodem tohle se mi zda celkem jednoduche a resil bych to takhle.

Priklad
Randomize;
for A := 10 to 20 do begin
Edit1.Text:=IntToStr (Random(A));

Pospa

> -----P�vodn� zpr�va-----
> Od: David_Zabensky.UNION(zv)union(tec)cz [SMTP:David_Zabensky.UNION(zv)union(tec)cz]
> Odesl�no: 19. srpna 1998 9:13
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: funkce nahodne cislo 2
>
> Caute lidi,
>
> mam taky maly napad ohledne generovani nahodneho cisla mezi MIN a MAX. Neco
> podobneho uz jsem delal.
> Funkce Random (po inicializaci Randomize) vraci cislo od 0 do ROZSAH - 1.
>
>
> const
> MIN : integer = 15;
> MAX : integer = 100;
>
> function GetMyRandom: integer;
> begin
> // Random inicializuji na hodnotu 0..85
> // Po pricteni 15 dostanu vzdy cislo v intervalu 15..99 (pokud chci
> 15..100 tak musim zmenit Random(MAX - MIN + 1) + MIN;
> Result:= Random(MAX - MIN) + MIN;
> end;
>
> var X: integer;
> begin
> Randomize;
> X:= GetMyRandom;
> end.

BDE

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 19.8.1998 08:55:46


>skorej ma zaujima ako mozem BDE nainstalovat programovo, predstavte si
>trebas ze pisem instalacny program...

A pro jakou verzi Dx ?

U jednicek se musi pridat do Win.INI dve sekce [Ted si to zrovna nemuzu
vzpomenout], ale
mas ji asi ve Win.INI. Tam musis vypsat spravne cesty.

U verze 2,3,4 (presneji receno u vyssich verzi BDE) se zapisuje do registru.
Opet se podivej
jak to tam je. Je to celkem rozsahly strom, ktery je treba zapsat. Dale je
treba zapsat prislusne
DLL, BLL atd do SharedDLL (zas nevim, kde to je) prislusna DLL nebo zvetsit
pocitadlo jejich
pouzivani (pri nule je mozno je odmaznout).

Taky upozornuji, ze instalacni program musi linkovat BDE dynamicky (coz je
vec o ktere nemam
ani potuchy, jak inicializovat spravne BDE za behu programu). Pokud pouzijes
staticky link, pak
se instalacni program bude snazit nahrat DLL, ktere jeste nejsou
nainstalovany. Tim padem
nepujde ani vytvoreni aliasu (pouzivej radsi TDatabase komponentu, protoze
nejhorsi
je, kdyz pak alias ukazuje jinde nez jsou data a po telefonu vas programator
navadi, jak si upravit
cestu k tabulkam).

Takze prace vic nez dost.

Martin


Doplnenie EditBoxu (ComboBoxu)

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.8.1998 09:04:01

> obraciam sa na Vas s jednym malym problemom. Nebudete mi vediet poradit ako
> doplnit (dokoncit) text v edit boxe z nejakej historie (napr. v Netscape
> 4.0 - doplnenie konca adresy) s tym, aby bola doplnena cast selektovana a
> pri dalsom stisku klavesy aby sa proces vyberu opakoval.

Musis si nekam ulozit historii, to je jasne, no a potom vzdy pri
OnChange to tam menit. TEdit ma property SelStart a SelLength,
kde jsou uvedeny zacatek a delka oznaceni. Takze by to mohlo
vypadat nejak takto:

procedure BlablaOnChange(blabla);
var
Pom: Integer;
begin

... test na hostorii

if je nelezeno neco v historii then
begin
Pom := Length(Edit.Text);
Edit.Text := Edit.Text + doplnek historie
nebo Edit.Text := cela historie, to je jedno
Edit.SelStart := Pom + 1;
Edit.SelLength := Length(Edit.Text) - Pom;
end;
end;

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

HTML ?

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.8.1998 09:09:10

> Stahovat umi docela pekne treba TelePort.
> A jaka konverze do TXT? HTML jsou prece v textovem tvaru.

Zrejme mel na mysli prevod HTML-> TXT. To umi slusne EasyPad
(http://members.tripod.com/~easypad) pomoci funkce "Odstranit HTML
tagy".

S pozdravem

Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava

Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)yahoo(tec)cz

Disk

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 09:12:21


Mohl jsi udelat napr. to, ze jsi rozdelil disk na tri casti, ale nerekl jsi mu, kreta cast ma byt aktivni. Volba 2. A taky by na ty aktivni oblasti mel byt aktivni boot-sector :-)
Dobra.

----------
Od: Honza[SMTP:honza(zv)skoda-ujp(tec)cz]
Odesl�no: 18. srpna 1998 11:46
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Disk

Ahoj

Mam problem.
Koupil jsem si novy disk 1.6 GB Samsung.
Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
vyhodil hlasku "DISK BOOT FAILURE..........atd.".
Poradil by mi nekdo, kde jsem mohl udelat chybu ?

Jan Koci
mail: honza(zv)skoda-ujp(tec)cz


DBChart.

[*] galik_m(zv)usa(tec)net - 19.8.1998 09:13:58

Zdar.
Nevies mi poradit ako by som mohol v grafe kde mam 4 serie zistit, ze na ktoru som prave klikol?
A taktiez by som chcel programovo menit velkost a typ znaciek(bodov) na grafe(na zobrazenej serii) akym sposobom sa to da? Neviem totiz zavolat ziadnu premennu ktorou by sa to dalo menit.

Vdaka.


____________________________________________________________________
Get free e-mail and a permanent address at http://www.netaddress.com/?N=1


?? problem s IP adr.

[*] Pavol Cvengros <cvengros(zv)gssr.sk> - 19.8.1998 09:43:55

Cavte !!

Ludia, mam tu jeden problem. Robim na jednom programe a
potrebujem tam zistovat ci je uzivatel s nejakym
login name prave nalogovany na sieti (Novell NetWare 4.0 + IntranetWare)
resp. zistit aj jeho IP adresu (mame ich staticke
pre kazdeho uzivatela). P R O S I I I I I I I M viete mi niekto poradit
???

Dakujem


P.S.:pouzivam D3 C/S

Pavol Cvengros
cvengros(zv)gssr.sk
Geologicka sluzba SR - Stredisko vypoctovej techniky


BDE

[*] Richard Willmann <sales(zv)nocomment.sk> - 19.8.1998 09:45:53

ja Vas nemam rad, vy mi to nechcete povedat :-)))

samozrejme ze viem, ze to chce zavolat nejake funkcie, nieco niekam
prekopirovat, nieco doplnit do registrov, nejak vytvorit cfg ...

otazkou je
* co musi splnat BDE Certif. installer ako je IS
* kde sa da najst navod co treba presne spravit tj. bod 1. nakopiruj xy.dll
bod 2. dopln do registry ...

richard willmann



-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 18. august 1998 21:30
P�edm�t: Re: BDE


> ale to samozrejme viem :-)))

:-)))

> skorej ma zaujima ako mozem BDE nainstalovat programovo, predstavte si
> trebas ze pisem instalacny program...

No tak pak musis ovladnout nejake funkce, jako je zapis neceho
do registru, pridani aliasu, konfigurace apod.

*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Odkazy pro novacky

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 19.8.1998 09:49:23

otazka na admina - neda sa spravit ban na emailovu schranku?
(t.j. zakaz prijimania/vysielania sprav z/na daneho emailu cez "delphi
distribution list")
(dajme tomu na mesiac :-)


Fron�k Martin wrote:

> _______________ SLYSELI JSTE SLOVO BOZI __________________(Zahradnika)
>
> fronek(zv)fic(tec)cz
>
> -----Original Message-----
> From: Petr Zahradnik
> To: delphi(zv)pinknet(tec)cz
> Sent: 10.8.1998 15:26
> Subject: Re: Odkazy pro novacky

--
Maj sa,
R.

<none>

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 09:50:11


Tak asi kilo heroinu, pul kila perniku, pul stohu marianky, sedmdesat deka C4, dve M16, jedno BMW a Ford Export, jo a malem bych zapomnel, jeste dve kila progesteronu a estrogenu.

Mimochodem, me to pripada, ze ten chudak (myslim toho zlodejicka) asi ani neni clenem konference, jen to sem poslal.

Dobra.

----------
Od: Stepan Cerny[SMTP:chaosz(zv)geocities.com]
Odesl�no: 18. srpna 1998 12:03
Komu: DELPHI Distribution List
P�edm�t: Re: <none>

Kolik toho chces ?
S.

Dobromil Mal� wrote:

> Nemate nekdo drogy na prodej nebo treba nejakou tu plastickou trhavinu ? Nejake kradene auto by se taky hodilo. :-))) :-))) :-)))

Delphi -> Java

[*] Erik Salaj, CyberMagic Productions <erik(zv)dodo.sk> - 19.8.1998 10:00:09

Aku to ma vyhodu oproti nativnemu kodu, ktory Delphi generuje teraz?

Erik Salaj

-----Original Message-----
From: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
To: Delphi Konference <delphi(zv)pinknet(tec)cz>
Date: 17. august 1998 23:38
Subject: Delphi -> Java


>Zdar,
>
>prave jsem cetl ze na konferenci BorCon 98 v Denveru, byla predstavena
alpha
>verze prekladace, ktery dokaze z programu v Delphi udelat cisty javovsky
>byte-code.
>
>
>Pavel Chaloupka
>E-Mail (velk� soubory > 100 kb) pavel(zv)mc-club(tec)cz
>V�voj SW (Delphi, Java, Linux, Interbase)
>
>

Multithreading s TCP IP

[*] David_Zabensky.UNION(zv)union(tec)cz - 19.8.1998 10:00:17

Cau lidi,

nevi nekdo jak napsat multithread TCP IP server - pouzivam standartni
TServerSocket. Kdyz k nemu pripojim vice klientu a chci jim pak jednotlive
posilat data (text), nevim jak mam zjistit aktualniho klienta (resp.
thread) a tomu pak poslat data.

Diky David.

Komunikacia DCom

[*] Ladik Kasza <kidalik(zv)pobox.sk> - 19.8.1998 10:07:35

Caute ...

Mam taky maly problem. Skusam komunikaciu pomocou DCOM. Mam vytvorene
dve aplikacie.
Jedna sluzi ako server a druha ako klient. Server nainstalujem a
zaregistrujem na jednom pocitaci a
na druhom iba zaregistrujem. Pokial spustim klienta na pocitaci kde je
server nainstalovany tak
vsetko chodi. Ale ked to spustim na tom druhom, tak zahlasi chybu
"Provadeni serveru selhalo".
V Prohlizeci udalosti na pocitaci, kde je server instalovany je sprava
od DCOM "Server {....} se
nezapsal do DCOM v dane cekaci dobe". Cislo tejto chyby je 10010.

Na obidvoch pocitacoch je nainstalovane NT 4.0 a service pack 3.
Aplikacie su napisane v
Delphi 3.0 C/S (Build 5.53)

Ladik


Disk

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 10:29:33


----------
Od: Stepan Cerny[SMTP:chaosz(zv)geocities.com]
Odesl�no: 18. srpna 1998 16:33
Komu: DELPHI Distribution List
P�edm�t: Re: Disk

Ahoj,

no pokud jsi instaloval "Win95 with USB" z DOSu, tak potom po prvnim startu
stareho Dosu, a nasledne znovu Win,
jsi skoncil ... :-(

Reseni:
1) potrebujes bootovaci disketu od instalovane verze Win95
2) nabootujes z diskety a spustis FDISK /mbr
3) nasysis disk SYS c:

Taghle nejak jsem to gdysi resil ... snad ti to pomuze. PS: Prijdes o stary DOS.
Existuje (snad, i gdyz pochybuju) nejaky fix, ktery tu chybu ve Win opravi (pred
havarii :-)


------------Ano, existuje, on totiz ten Billuv boot sector neni uplne OK, a proto to tuhne. Mam to, ten fix, ktery ten boot sector opravi a obsahuje foramta.com, sys.com a tak - neni to muj vyrobek. Ale myslim, ze se to tomu cloveku zhroutilo hned po normalnim restartu, nebo ne ?
---------------------
Dobra

Disk

[*] Bu�ina Tom� <Tomas Bucina(zv)idg(tec)cz> - 19.8.1998 10:42:59



> -----P�vodn� zpr�va-----
> Od: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za
> u�ivatele Dobromil Mal�
> P�edm�t: RE: Disk
>
> Mohl jsi udelat napr. to, ze jsi rozdelil disk na tri casti, ale
> nerekl jsi mu, kreta cast ma byt aktivni. Volba 2. A taky by na ty
> aktivni oblasti mel byt aktivni boot-sector :-)
> Dobra.
>
Videl bych to presne stejne - po rozdeleni neni zadna partition
aktivni a proto na ni v pohode lze W95 nainstalovat, ale system nevi,
odkud ma bootovat. Resenim je IMHO FDISK - set active partition...

> ----------
> P�edm�t: Disk
>
> Ahoj
>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat
> Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat,
> kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
> Jan Koci
> mail: honza(zv)skoda-ujp(tec)cz
>
>
>
>

?? problem s IP adr.

[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 19.8.1998 10:53:51

At 09:43 19.8.1998 +0200, you wrote:

> Ludia, mam tu jeden problem. Robim na jednom programe a
>potrebujem tam zistovat ci je uzivatel s nejakym
>login name prave nalogovany na sieti (Novell NetWare 4.0 + IntranetWare)

To by melo jit snadno pomoci API k NW klientovi (tusim jsem na to videl
nejakou komponentu)...

>resp. zistit aj jeho IP adresu (mame ich staticke
>pre kazdeho uzivatela).

No - pro kazdeho uzivatele asi ne - to spis pro kazdou stanici, coz ?
Tohle by se dalo zjistit z hw adresy uzivatele, zalogovaneho k NW serveru,
pomoci RARP dotazu...

S. Kolar (standa(zv)winroute.com)
FIDO: 2:423/44.25

Par dotazu pro SQL guru

[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 19.8.1998 11:02:27

Zdravim,
uz se tady dlouho neprobiralo SQL 8-) tak hodim neco do placu.
Protoze v dokumentaci, co jsem mel zatim moznost procist je vzdy pouze
syntaxe ( a nejaky priklad) SQL a nikde jsem nenasel rady typu "lze to udelat
takto, ale toto je lepsi (rychlejsi)", zkusim se zeptat tady.
(Konference o Interbase,na kterou zde byl drive odkaz, je nejaka mrtva).
Jedna se mi predevsim o praci se stringy.

Mejme obycejnou tabulku TABLE_A, jejiz jednou z polozek je treba VARCHAR[40]
a jmenuje se POPIS.
Ma dejme tomu 100.000 vet.
A ted z ni potrebuji vybrat polozky, ktere v polozce POPIS maji retezec
(substring) 'ABC'.
Lze to udelat jednoduse takto (jak radi dokumentace):

1) SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC'
2) SELECT * FROM TABLE_A WHERE POPIS LIKE '%ABC%'

Je tak? Potom jsem nezohlednil case sensitivity, tzn., ze pokud budu chtit
najit 'abc' i 'ABC' uz to muze vypadat takto:

1) SELECT * FROM TABLE_A WHERE UPPER(POPIS) CONTAINING 'ABC'
2) SELECT * FROM TABLE_A WHERE UPPER(POPIS) LIKE '%ABC%'
3) SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC' OR POPIS CONTAINING
'abc'
4) SELECT * FROM TABLE_A WHERE POPIS LIKE '%ABC%' OR POPIS LIKE '%abc%'

Uz se nam to mnozi. Predpokladam, ze vsechny vyse uvedene vybery jsou
rovnocenne co do delky zpracovani dotazu. A jsou nejpomalejsi ze vsech
moznosti, protoze vubec neberou v potaz vytvorene indexy a prochazeji celou
tabulku vetu po vete. Tady zalezi jen na rychlosti zeleza, na kterem se
provozuje databaze.

Zkusil jsem tedy

CREATE INDEX INDEX_1 ON TABLE_A(POPIS)

Tady jsem narazil na problem. Uz nelze napsat:

SELECT * FROM TABLE_A WHERE UPPER(POPIS) LIKE '%ABC%' PLAN (TABLE_A ORDER
INDEX_1)

protoze server mi vyhodi hlasku typu "pro tento typ dotazu nelze pouzit
razeni INDEX_1"
Pokud chci pouzit INDEX_1, tak musim vyhodit prikaz UPPER() a procento na
zacatku substringu

No a ted bych se prave chtel zeptat nejakeho SQL guru, jak takove dotazy typu

SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC'

optimalizovat (zrychlit). Lze si udelat nejaky index, ktery by sel pouzit?
Nebo pouzit jine moznosti (stored proceduru ???, to zatim neumim vubec)?

Pokud by se nasel nekdo ochotny poskytnout nejaky strucny navod jak na to,
byl bych mu zavazan.
( A myslim si, ze nejen ja 8-)

ZdeP
prantl(zv)ptc.pvt(tec)cz


BDE

[*] Richard Willmann <sales(zv)nocomment.sk> - 19.8.1998 11:04:05

ok, da sa toto niekde najst vcelku a kompletne?


dakujem


richard willmann

-----P�vodn� zpr�va-----
Od: Martin Nedopil <nedopil(zv)eskon(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 19. august 1998 10:27
P�edm�t: Re: BDE


>
>>skorej ma zaujima ako mozem BDE nainstalovat programovo, predstavte si
>>trebas ze pisem instalacny program...
>
>A pro jakou verzi Dx ?
>
>U jednicek se musi pridat do Win.INI dve sekce [Ted si to zrovna nemuzu
>vzpomenout], ale
>mas ji asi ve Win.INI. Tam musis vypsat spravne cesty.
>
>U verze 2,3,4 (presneji receno u vyssich verzi BDE) se zapisuje do
registru.
>Opet se podivej
>jak to tam je. Je to celkem rozsahly strom, ktery je treba zapsat. Dale je
>treba zapsat prislusne
>DLL, BLL atd do SharedDLL (zas nevim, kde to je) prislusna DLL nebo zvetsit
>pocitadlo jejich
>pouzivani (pri nule je mozno je odmaznout).
>
>Taky upozornuji, ze instalacni program musi linkovat BDE dynamicky (coz je
>vec o ktere nemam
>ani potuchy, jak inicializovat spravne BDE za behu programu). Pokud
pouzijes
>staticky link, pak
>se instalacni program bude snazit nahrat DLL, ktere jeste nejsou
>nainstalovany. Tim padem
>nepujde ani vytvoreni aliasu (pouzivej radsi TDatabase komponentu, protoze
>nejhorsi
>je, kdyz pak alias ukazuje jinde nez jsou data a po telefonu vas
programator
>navadi, jak si upravit
>cestu k tabulkam).
>
>Takze prace vic nez dost.
>
>Martin
>
>
>

Instalacia D4.0 na winNT 4.0

[*] voltrr1.epr(zv)mail.cez(tec)cz - 19.8.1998 11:20:48

Nova zprava:
Je to sice offtopic ale hardwarova poznamka S3 Virge pouziva stejne 2D
jadro jako Trio64 pouze s pridanou 3D casti a tudiz se vlastne jedna o klon
Trio64Radek Voltr
---------------------------------------------------------------
Puvodni zprava:
Lubo, S3 VIRGE je neco jineho nez bezna S3 Trio 64 a jeji klony
Jan Fiala
>
>
>Lubo Fule wrote:
>
>> Ja mam graficku kartu S3 VIRGE a nemal som s instalaciou D4 na NT 4.0
ziadne
>> problemy...
>>
>> S pozdravom
>> Lubo Fule
>>

BDE

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.8.1998 11:34:14

> ja Vas nemam rad, vy mi to nechcete povedat :-)))

Ale preco bych to nepovedal?

> samozrejme ze viem, ze to chce zavolat nejake funkcie, nieco niekam
> prekopirovat, nieco doplnit do registrov, nejak vytvorit cfg ...

No tak kde je problem?

> otazkou je
> * co musi splnat BDE Certif. installer ako je IS

No jo, ale to se musis zeptat Borlandu... Ja nedelam certifikaci
instalacnich programu pro BDE. Uz jsem se o to zajimal, ale cesky
Borland to asi neni schopny zjistit a do USA jsem zatim nepsal.

> * kde sa da najst navod co treba presne spravit tj. bod 1. nakopiruj xy.dll
> bod 2. dopln do registry ...

No to je prece jednoduche - soubory jsou v BDE adresari,
vsechny DLL musi zvetsit DLL Share Count a pak je treba
zaregistrovat konfiguraci apod. - proste se koukni do
registru, tam to uplne vsechno je.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Jak prevest tabulku do html

[*] Ing. Lubo� Langer <langer(zv)gymzn(tec)cz> - 19.8.1998 11:50:57

Ahoj vsichni,

potreboval bych poradit, kde ziskat komponentu, ktera by umela
prevest tabulku (jak�koli dataset) do html formatu.

Dik za kazdou radu


Ing. Lubo� Langer
langer(zv)gymzn(tec)cz


Poslite mi niekto

[*] Ing. J�n Kuch�r�����!j��G - 19.8.1998 12:13:35

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Caute
Potrebujem malu sluzbu od niekoho kdo ma D3. V adresari delphi sa nachadza v podadresary Delphi 3\Demos\INTERNET program HTML. Kolega mi tuna zmazal cely adresar kvoli miestu na disku. Potreboval by som ci by ste mi niekto kdo to tam mate nemohli poslat zdrojaky tohto programu.
Dik

Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk


WeekOfYear

[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 19.8.1998 12:26:27


pro tyden zacinajici pondelkem, coz ja v nasich zemepisnych sirkach obvyklejsi je to nejak tak:

function WeekCount(Datum: TDateTime): Smallint;
var
Day,Month,Year:Word;
Prvniho:TDateTime;
function Pom(D:TDAteTime):Smallint;
var
P:Smallint;
begin
P:=DayOfWeek(D);
if P=0 then
Result:=7
else
Result:=P;
end;
begin
DecodeDate(Datum, Year, Month, Day);
Prvniho:=EncodeDate(Year, 1, 1);
WeekCount:=(Datum-Prvniho+Pom(Prvniho)+6) div 7;
end;


Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz

NetManage

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.8.1998 13:02:16

Zdravim,

nedavno se tu psalo o HTML komponente od NetManage, ktera je v Delphi
Prof. Mam Delphi 3 Standart. Lze tuto komponentu nekde ziskat?
Predpokladam, ze je free.
Dekuji.

S pozdravem

Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava

Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)yahoo(tec)cz

Doplnenie EditBoxu (ComboBoxu)

[*] Fifa <lisi(zv)sh.cvut(tec)cz> - 19.8.1998 13:05:03

> obraciam sa na Vas s jednym malym problemom. Nebudete mi vediet poradit ako
> doplnit (dokoncit) text v edit boxe z nejakej historie (napr. v Netscape
> 4.0 - doplnenie konca adresy) s tym, aby bola doplnena cast selektovana a
> pri dalsom stisku klavesy aby sa proces vyberu opakoval.

Na adrese http://www.mygale.org/~cresto/progra.htm je komponenta ComboBox98
(FREEWARE a se zdrojakama) a ta dela presne to co potrebujes (kdyz budes chtit
TEdit, tak si to kdyztak predelas). Jsou tam i komponenty na automaticke
doplnovani adresarove cesty.

Petr Fischer

P.S. Ta stranka je tusim francouzky nebo spanelsky nebo co, ale da se to
zkousnout...

Disk

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 13:08:09


S tou podporou FAT32 bych si dovolil nesouhlasit, protoze kdyz se Windows dostanou do sveho normalniho stavu-vytuhnou a uz nenaskoci, je mozne se na disk dostat z DOSu a data zachranit.
S FAT32 to muze byt osklivy problem (si myslim).
Dobra.

----------
Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 18. srpna 1998 18:48
Komu: DELPHI Distribution List
P�edm�t: Re: Disk

Honza wrote:
>
Ahoj,

>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat, kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?

Ahoj,

Ja jsem postupoval tak ze jsem v fdisku rozdelil disk (pokud mas Win95
OSR2 tak urcite zapni podporu FAT32), nastavil aktivni oddil a nakonec
obe jednotky zformatoval. Potom jsem instaloval Windows (coz obcas delam
dodnes :-), proto mam rozdeleny disk abych si na druhe casti mohl uchovavat
data.

Petr Vones, amatersky programator

funkce nahodne cislo 2

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 13:27:36


Ja bych to takhle NERESIL, protoze tohle neudela nahodne cislo v rozmezi 10-20 ale jedenact nahodnych cisel, prvni v intervalu 0-10, dalsi 0-11, pak 0-12 ...

A ztotoznuji se s nazorem ze nahodne cislo v intervalu 10-20 je
"Dolni mez" + Random("Horni Mez" - "Dolni mez" +1 )


----------
Od: Pospisil Tomas[SMTP:Pospisil(zv)Chv.pvt(tec)cz]
Odesl�no: 19. srpna 1998 8:46
Komu: 'DELPHI Distribution List'
P�edm�t: RE: funkce nahodne cislo 2

Nevim proc se jeste dohadujete. Myslim si ze dostal dost reseni.
Mimochodem tohle se mi zda celkem jednoduche a resil bych to takhle.

Priklad
Randomize;
for A := 10 to 20 do begin
Edit1.Text:=IntToStr (Random(A));

Pospa

> -----P�vodn� zpr�va-----
> Od: David Zabensky.UNION(zv)union(tec)cz [SMTP:David Zabensky.UNION(zv)union(tec)cz]
> Odesl�no: 19. srpna 1998 9:13
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: funkce nahodne cislo 2
>
> Caute lidi,
>
> mam taky maly napad ohledne generovani nahodneho cisla mezi MIN a MAX. Neco
> podobneho uz jsem delal.
> Funkce Random (po inicializaci Randomize) vraci cislo od 0 do ROZSAH - 1.
>
>
> const
> MIN : integer = 15;
> MAX : integer = 100;
>
> function GetMyRandom: integer;
> begin
> // Random inicializuji na hodnotu 0..85
> // Po pricteni 15 dostanu vzdy cislo v intervalu 15..99 (pokud chci
> 15..100 tak musim zmenit Random(MAX - MIN + 1) + MIN;
> Result:= Random(MAX - MIN) + MIN;
> end;
>
> var X: integer;
> begin
> Randomize;
> X:= GetMyRandom;
> end.

Odkazy pro novacky

[*] Fron�k Martin <fronek(zv)fic(tec)cz> - 19.8.1998 13:37:42

Hi,

je rozdil mezi "nesnasenlivosti" a pranyrovanim cloveka, ktery si z
uzivatelu dela legraci, nikdy nikomu nepomohl, protoze jeho rady jsou
vzdy typu _KUPTE_SI_ (ja to prodavam) a je po problemu...

To neni korektni chovani... pouziva konferenci pro vlastni reklamu!

fronek(zv)fic(tec)cz

-----Original Message-----
From: Zbysek Hlinka
To: delphi(zv)pinknet(tec)cz
Sent: 19.8.1998 8:07
Subject: RE: Odkazy pro novacky

Fron k Martin wrote:

> _______________ SLYSELI JSTE SLOVO BOZI __________________(Zahradnika)

Jestli se nekdo chce venovat pestovani nesnasenlivosti, doporucuji
mu spise nez exhibice zde navstevu http://www.dati(tec)cz/~slhaters/.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Disk

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 13:42:10


Diky nacelniku, ze jsi se me zastal :-)

D.

----------
Od: Bu�ina Tom�[SMTP:Tomas Bucina(zv)idg(tec)cz]
Odesl�no: 19. srpna 1998 10:42
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Disk
> -----P�vodn� zpr�va-----
> Od: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za
> u�ivatele Dobromil Mal�
> P�edm�t: RE: Disk
>
> Mohl jsi udelat napr. to, ze jsi rozdelil disk na tri casti, ale
> nerekl jsi mu, kreta cast ma byt aktivni. Volba 2. A taky by na ty
> aktivni oblasti mel byt aktivni boot-sector :-)
> Dobra.
>
Videl bych to presne stejne - po rozdeleni neni zadna partition
aktivni a proto na ni v pohode lze W95 nainstalovat, ale system nevi,
odkud ma bootovat. Resenim je IMHO FDISK - set active partition...

> ----------
> P�edm�t: Disk
>
> Ahoj
>
> Mam problem.
> Koupil jsem si novy disk 1.6 GB Samsung.
> Pres "fdisk" jsem ho rozdelil na C,D,E. Zacal jsem instalovat
> Win95 a vse
> bylo v poradku do te doby nez Windows zacal poprve restartovat,
> kdy mi pocitac
> vyhodil hlasku "DISK BOOT FAILURE..........atd.".
> Poradil by mi nekdo, kde jsem mohl udelat chybu ?
>
> Jan Koci
> mail: honza(zv)skoda-ujp(tec)cz
>
>
>
>

Komunikacia DCom

[*] Martin Koran <komar(zv)komar(tec)cz> - 19.8.1998 13:45:40

Ahoj,

zkus http://www.exepc.com/~dmiser/dcom95.htm
====================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
Czech Republic

tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
mail: komar(zv)komar(tec)cz

-----Original Message-----
From: Ladik Kasza <kidalik(zv)pobox.sk>
To: DELPHI <Delphi(zv)io.pinknet(tec)cz>
Date: Wednesday, August 19, 1998 12:02 PM
Subject: Komunikacia DCom


>Caute ...
>
>Mam taky maly problem. Skusam komunikaciu pomocou DCOM. Mam vytvorene
>dve aplikacie.
>Jedna sluzi ako server a druha ako klient. Server nainstalujem a
>zaregistrujem na jednom pocitaci a
>na druhom iba zaregistrujem. Pokial spustim klienta na pocitaci kde je
>server nainstalovany tak
>vsetko chodi. Ale ked to spustim na tom druhom, tak zahlasi chybu
>"Provadeni serveru selhalo".
>V Prohlizeci udalosti na pocitaci, kde je server instalovany je sprava
>od DCOM "Server {....} se
>nezapsal do DCOM v dane cekaci dobe". Cislo tejto chyby je 10010.
>
>Na obidvoch pocitacoch je nainstalovane NT 4.0 a service pack 3.
>Aplikacie su napisane v
>Delphi 3.0 C/S (Build 5.53)
>
>Ladik


WeekOfYear

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1998 13:50:02


No, myslim, ze to by to slo, ale asi ne obecne, proto ze si predstav adresu
V-la-DI-slavova , MI-chalkova nebo ulici "V Jamce" "I.P. Pavlova" ..., ale to cislo byva vetsinou na konci, jenom ze to zase muze byt "Kolomajznikova 15/IV" "Potemkinova VII/PI" .....
D.

----------
Od: Stepan Cerny[SMTP:chaosz(zv)geocities.com]
Odesl�no: 18. srpna 1998 11:58
Komu: Delphi konference
P�edm�t: WeekOfYear

Ahojda,

...PS: Nevite nekdo, jak detekovat RIMSKOU CISLICI v retezci ??? Konkretne
jde o zjisteni, zda v adrese-ulici/obci je uvedeno cislo domu, ktere
nekdy muze byt rimskou cislici ... Diky.

BDE

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.8.1998 14:00:19

[P��loha v souboru: martin.kubecka#trillian.dytron(tec)cz.vcf]
Nevim to urcite, ale podobne popisy instalaci jsou na
www.installshield.com. Ja tam napr. nasel jak instalovat DAO a mam pocit
ze sem tam neco zahlidnul i k BDE.

Mac

Richard Willmann wrote:
>
> ja Vas nemam rad, vy mi to nechcete povedat :-)))
>
> samozrejme ze viem, ze to chce zavolat nejake funkcie, nieco niekam
> prekopirovat, nieco doplnit do registrov, nejak vytvorit cfg ...
>
> otazkou je
> * co musi splnat BDE Certif. installer ako je IS
> * kde sa da najst navod co treba presne spravit tj. bod 1. nakopiruj xy.dll
> bod 2. dopln do registry ...
>
> richard willmann

D4 + QuickReport 3.0

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.8.1998 14:22:46

Po aplikaci Patch 1 uz lze QR 3.0.1 kompilovat ;)

Mac

Petr Zahradnik wrote:
>
> > Mam tam verzi 4.72.3110.1, ale odkud je to nevim. Nejspis z IE 4.01 SP1
> > US.
>
> Ja mam jen 4.72.2106.4.
> Petr Zahradnik, pocitacovy expert

--
POZOR - zmena e-mail adresy
ATTENTION - e-mail address changed
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================

Jak prevest tabulku do html

[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 19.8.1998 14:37:02

> -----Original Message-----
> From: Ing. Lubo� Langer [SMTP:langer(zv)gymzn(tec)cz]
> Sent: Wednesday, August 19, 1998 12:51 PM
> Subject: Jak prevest tabulku do html
>
> Ahoj vsichni,
>
> potreboval bych poradit, kde ziskat komponentu, ktera by umela
> prevest tabulku (jak�koli dataset) do html formatu.

Zkus se podivat na http://www.cgiexpert.com. Ma tam komponenty typu
THttpDBGrid a jine.
Free verze je bez zdroju.

ZdeP
prantl(zv)ptc.pvt(tec)cz


BDE

[*] Richard Willmann <sales(zv)nocomment.sk> - 19.8.1998 14:53:38

ok,

to som uz urobil ale naozaj nikto nevie ci NIEKDE NA SIETI nieje navod na
instalaciu BDE?

rw

-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 19. august 1998 14:08
P�edm�t: Re: BDE


> ja Vas nemam rad, vy mi to nechcete povedat :-)))

Ale preco bych to nepovedal?

> samozrejme ze viem, ze to chce zavolat nejake funkcie, nieco niekam
> prekopirovat, nieco doplnit do registrov, nejak vytvorit cfg ...

No tak kde je problem?

> otazkou je
> * co musi splnat BDE Certif. installer ako je IS

No jo, ale to se musis zeptat Borlandu... Ja nedelam certifikaci
instalacnich programu pro BDE. Uz jsem se o to zajimal, ale cesky
Borland to asi neni schopny zjistit a do USA jsem zatim nepsal.

> * kde sa da najst navod co treba presne spravit tj. bod 1. nakopiruj
xy.dll
> bod 2. dopln do registry ...

No to je prece jednoduche - soubory jsou v BDE adresari,
vsechny DLL musi zvetsit DLL Share Count a pak je treba
zaregistrovat konfiguraci apod. - proste se koukni do
registru, tam to uplne vsechno je.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Jak prevest tabulku do html

[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 19.8.1998 15:36:31

Primo D3 je TQueryTableProducer, ale neni nic moc. Dale napr. CGIExpert.
lezi na DSP, ale je shareware.
Honza

> -----P�vodn� zpr�va-----
> Od: Ing. Lubo� Langer [SMTP:langer(zv)gymzn(tec)cz]
> Odesl�no: 19. srpna 1998 12:51
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Jak prevest tabulku do html
>
> Ahoj vsichni,
>
> potreboval bych poradit, kde ziskat komponentu, ktera by umela
> prevest tabulku (jak�koli dataset) do html formatu.
>
> Dik za kazdou radu
>
>
> Ing. Lubo� Langer
> langer(zv)gymzn(tec)cz


Jak prevest tabulku do html

[*] Pavel Kral <kral(zv)afx(tec)cz> - 19.8.1998 15:44:57

ale to snad prece neni takovy problem napsat:

function TForm1.ConvertTableToHTML(Dataset: TDataset): String;
var i : longint;
begin
Result:= '<table>';
Result:= Result + '<tr>';
Hlavicka := '';

// vypise nazvy sloupcu
for i:=0 to Dataset.Fieldcount-1 do
begin
Hlavicka := Hlavicka + '<td>'+Dataset.Fields[i].DisplayLabel +
'</td>';
end;
Result:= Result + Hlavicka + '</tr>';

if not Dataset.Bof then Dataset.First;
while not Dataset.Eof do
begin
Result:= Result + '<tr>';
for i:= 0 to Dataset.FieldCount-1 do
Result:= Result +'<td>'+Dataset.Fields[i].asString +
'</td>';
Result := Result + '</tr>';
Dataset.Next;
end;
Result := Result + '</table>';
end;

Psal jsem to zpameti, muzou tam byt syntax errors.
Je lepsi to sypat primo do nejakeho vystupu nez do stringu kvuli
pameti, napr do souboru nebo streamu.

Pavel

-----Original Message-----


Ahoj vsichni,

potreboval bych poradit, kde ziskat komponentu, ktera by umela
prevest tabulku (jak�koli dataset) do html formatu.

Dik za kazdou radu


Ing. Lubo� Langer
langer(zv)gymzn(tec)cz


Ukoncenie procesu

[*] Santik <santik(zv)pronetix.sk> - 19.8.1998 16:34:52

Ahoj vsetci,

mam takyto problemik:
Z Win32 programu pustam cez CreateProcess dosovsky program
(Scan.exe) tak, aby sa nezobrazovala jeho konzola.
Ked tento program ale skonci, caka na potvrdenie ( ked sa
spusti s konzolou - objavi sa hlaska "Ukonceno..." a caka sa
na zavretie tohto konzoloveho okna).
Ako mozem odblokovat toto cakanie?

Vopred dik za navrhy.
Dufam ze aspon niekto pochopi co som tu prave vypotil.

Santik
misecka(zv)decef.elf.stuba.sk
santik(zv)pronetix.sk

QR bugs

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 19.8.1998 16:34:51

Ahoj,

potreboval bych potvrdit nebo lepe vyvratit:) tvrzeni o QR3.0.1 Standard

1. pouhe pouziti qrprntr,quickrpt v klauzuli uses vede ke ztrate 344 b
2. demo priklad v Delphi 4/Demos/QuickRpt/qr2demo.dpr
pouhe otevreni a zavreni aplikace vede ke ztrate 1392 b
cim vice akci tim vice ztracene pameti

Vite nekdo jak udelat v MDI aplikaci - co okno to sestava.
Po otevreni okna se zacne generovat sestava a to plati pro vsechna otevrena
okna - sestavy.
Zatim mi to funguje tak, ze otevreni dalsiho okna se sestavou prerusi generovani
v predchozim okne.
Po uzavreni noveho okna generovani ve starem znovu pokracuje.

S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz

Odkazy pro novacky

[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 19.8.1998 17:43:56

Mili Delphini,
dovolte mi jako cloveku, ktery ma tak trosku na starosti supervizi tohoto
listu, uzavrit debatu...
Nabizim bez problemu moznost vybudovat na http://www.delphi(tec)cz/ FAQ sekci.
Ma to jen jednu podminku: dejte mi manazera te sekce. Cloveka, ktery to bude
sam psat nebo to bude z jinych lidi "vymlacovat" a bude to upravovat do
jednotne struktury, tridit a tak...
Ja dam misto na disku, technicke zazemi a administracni rozhrani.
Ozve se manazer, pripadne cela akcni skupina, ktera si to vezme na triko...?

Uz se tesim... :))

Tomas


Disk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.1998 17:52:15

Dobromil Mal� wrote:
>
> S tou podporou FAT32 bych si dovolil nesouhlasit, protoze kdyz se Windows dostanou do sveho normalniho stavu-vytuhnou a uz nenaskoci, je mozne se na disk dostat z DOSu a data zachranit.
> S FAT32 to muze byt osklivy problem (si myslim).
> Dobra.

Ahoj,

pokud si vyrobis Spousteci disketu, nebo pouzijes instalacni od Win95 OSR2 tak
samozrejme muzes pristupovat k souborum ve FAT32 i po nabootovani "z DOSu", jedine
co v tu chvili nemas jsou dlouhe nazvy souboru. Navic u vetsich disku je FAT32
nutnost, nehlede na to ze uz i u malych disku nad 1G mas cluster velky 32k coz neni
zrovna dvakrat usporne.

Petr Vones, amatersky programator

Stream

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.1998 18:18:14

lubos(zv)iname.com wrote:
>
> caute,
>
> mam taky problem - snazim sa napisat service, ktory bude v urcitej dobe nieco stahovat z internetu a ukladat to do databazy. vyuzivam komponentu, ktora stiahne data do tstream (tstringstream) a potom to potrebujem preklopit do tstringlist. robim to nastedovne:
>
> var
> DataPtr: TStringList;
> StreamPtr: TStream;
> begin
> ...
> StreamPtr:= TStringStream.Create('');
> StreamPtr.Get; // stiahne data z inet
> DataPtr:= TStringList.Create;
> DataPtr.LoadFromStream(StreamPtr);
> ..
>
> a vysledok je vzdy rovnaky : access vialation ...
>

Ahoj,

a jak vypada ta metoda Get ? (ktera navic neni definovana v TStream).

Petr Vones, amatersky programator

DBF soubory a indexy

[*] RADIK(zv)p15.monet(tec)cz - 19.8.1998 18:26:00

Mam zapeklity problem:

Nejaky program plni DBF soubor daty. Pouziva jakysi dbf engine a ntx
indexy
(asi clipper). Ja se na ty data musim divat, prohledavat je a mozna i
neco malo
zapsat. Jenze jak to indexovat?

Jedine co me napada, je mit svuj ndx index a ten obcas aktualizovat.
Jenze ten index mi BDE vytvori primo u dbf souboru a pokud bude vic
prohlizecu soucasne, tak nastane problem.

Otazky:
* Je nejaka jina moznost jak to cele udelat?
* Je mozne umistit index nekam jinam nez je dbf, pokud si ho budu
reindexovat jen na zadost z programu?

Diky za rady.

Ales


TQuickRep.Preview

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 19.8.1998 18:29:18

Ahoj,

type
TQuickRepClass = class of TQuickRep;

procedure ShowReport(ReportClassName: TQuickRepClass);
begin
with ReportClassName.Create(nil) do
try
Preview; // kdy skonci volani Preview?
finally
Free;
end;
end;

Co vyvola ukonceni Preview kdyz:
a/ OnPreview neni definovano
b/ OnPreview vypada nasledovne a fmPreview je MDI child okno

procedure TrpAbs.rpAbsPreview(Sender: TObject);
begin
Application.CreateForm(TfmPreview, fmPreview);
with fmPreview do begin
FrpReport := Self;
QRPreview.QRPrinter := TQRPrinter(Sender);
Show;
end
end;


S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz

BDE

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.8.1998 18:47:10

> to som uz urobil ale naozaj nikto nevie ci NIEKDE NA SIETI nieje navod na
> instalaciu BDE?

Jo, jak kolega Kubecka napsal, je na support.installshield.com,
ale to neni kompletni popis, je to jen zacleneni instalace BDE
do InstallShield Professional, tedy s vyuzitim jejich knihovny.

Ale jak rikam - ono to vcelku neni slozite, ja v pohode BDE
instaluji. Nicmene proc porad chces navod na instalaci BDE,
kdyz ti uz podruhe a durazne rikam, ze v tom neni nic sloziteho.
Ale proste budes muset jit se podivat do toho registru a vsechny
ty klice si opsat do sveho programu. Co ti mam asi poradit vic?
Chces abych ti registr osobne vypsal ??? Nebo ti mam udelat
DIR adresare se soubory BDE32? Jediny problem, ktery snad muzes
mit, je vytvoreni aliasu nebo nastaveni NET DIR, ktere se nedela
v registru, ale primo v IDAPI32.CFG. Ale to jsou jedine problemy,
jejichz reseni budiz Tvym vkladem do instalace BDE. Ostatni je
hracka.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

NetManage

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.8.1998 19:00:12

> nedavno se tu psalo o HTML komponente od NetManage, ktera je v Delphi
> Prof. Mam Delphi 3 Standart. Lze tuto komponentu nekde ziskat?
> Predpokladam, ze je free.

Ja si myslim, ze neni free, protoze kdyby byla free, tak by byla
i v tom Standardu. Nicmene komponenty od NetManage jsou silene,
protoze to jsou OCX a navic v nich jsou chyby. Doporucuji radeji
cokoliv jineho, nativniho a se zdrojakama.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Odkazy pro novacky (OT)

[*] Pavel Kral <kral(zv)afx(tec)cz> - 19.8.1998 19:13:53

Zdravim
Dovolil bych si nesouhlasit, mne pan Zahradnik pomohl nekolikrat a jak
vidim,
snazi se pomahat neustale. Divim se, kde na to on a jini berou cas.
I kdyz reklamu je z jeho prispevku obcas citit, myslim, ze je veden snahou
pomoci.

Pavel
PS omlouvam se za Off topic, ale musim se zastat cloveka, ktery rad pomaha.

-----Original Message-----
>
>je rozdil mezi "nesnasenlivosti" a pranyrovanim cloveka, ktery si z
>uzivatelu dela legraci, nikdy nikomu nepomohl, protoze jeho rady jsou
>vzdy typu _KUPTE_SI_ (ja to prodavam) a je po problemu...
>
>To neni korektni chovani... pouziva konferenci pro vlastni reklamu!
>
>fronek(zv)fic(tec)cz
>
>-----Original Message-----
>From: Zbysek Hlinka
>To: delphi(zv)pinknet(tec)cz
>Sent: 19.8.1998 8:07
>Subject: RE: Odkazy pro novacky
>
>Fron k Martin wrote:
>
>> _______________ SLYSELI JSTE SLOVO BOZI __________________(Zahradnika)
>
>Jestli se nekdo chce venovat pestovani nesnasenlivosti, doporucuji
>mu spise nez exhibice zde navstevu http://www.dati(tec)cz/~slhaters/.
>
>
>S pozdravem
>
>Zbysek Hlinka
>E-mail: zhlinka(zv)login(tec)cz
>Tel.: 02/795 29 56; GSM: 0603 551 282
>Krystofova 1016, 149 00 Praha 4
>CZ
>
>

Piraty zastrelit !!!

[*] �ke��k Jaroslav�������6�����̿ - 19.8.1998 20:10:23

Puvodne jsem se do teto neplodne diskuse nechtel plest.
Ovsem co je moc, to je moc. Chudoba neni duvodem
ani omluvou za kradez !!!!
Kdyz na neco nemam, tak si to ukradnu a je to v poradku
a spravedlive - vzdyt jsem na to nemel, tak co?
Co jsou to za komunisticke manyry???
Az ten chudak mozna vyrobi nejakej program a nejakej
jinej "takychudak" mu ho ukradne - co na to asi rekne?
Muzu snad ukrast auto s oduvodnenim, ze na nej nemam.
Kradez je kradez a zlodej zustane zlodejem at je bohatej
nebo chudej.
Krome toho tech "100 litru" je za verzi C/S, ktera je
urcena pro sitove aplikace. Kdo ma na penize na pocitace
a site musi mit i na software. Pro ty ostatni jsou urceny
vyrazne levnejsi verze Delphi.
Jsem presvedcn, ze tak vysoka cena Delphi je prave dusledkem
velkeho piratstvi.
Takova otevrena vyzva do konference s uvedenim vlastniho
mailu, jak to probehlo tady je vrcholem drzosti a mozna
i blbosti. Konferenci ctou i zastupci Borlandu a nemuze byt
pro ne problem si zjistit autora prispevku, resp majitele schraky.
Kazdy prispevek je archivovan.
Konference Delphi urcite neni mistem pro otevrene vyzvy
k trestne cinnosti a takovy ucastnik by mel byt bez vyrazen.
Jaro
--------------------

>A co kdyz je ten "chudak" napr. studak tretiho rocniku stredni
>prumyslove skoly, bavi ho Delphi, ve skole maji jen Delphi 2 (a prachy
>na novou verzi nejsou) a on by si hrozne rad vyzkousel spoustu novych
>veci v Delphi 4.
-----------------
Na vyzkouseni jsou trial verze.
A kdyz uz si nekdo chce od nekoho udelat kopii proto,
aby se neco naucil, tak se s tim nema obracet verejne na konferenci,
protoze to je proste trestne. Jakoby se sam chtel udat.
-----------------
Proste si patla seznam knizek v Interbase apod. No a
>zrovna u sebe momentalne nema prebytecnych 100 litru za ktere by si to
>mohl koupit. Navic rodice jsou desni skrti a nepujci mu. Jo, leda by jel
>pracovat do Ameriky, kde by si na ne vydelal o neco drive.
>
>Tak presne jednoho takoveho studaka znam .... no a ted mu poradte, co ma
>delat. Resp. at mu to poradi Inprise ;)
>
>Mac
>
>Dobromil Mal� wrote:
>
>> Mimochodem, me to pripada, ze ten chudak (myslim toho zlodejicka) asi ani
neni clenem konference, jen to sem poslal.
>>
>> Dobra.
>
>--
> POZOR - zmena e-mail adresy
> ATTENTION - e-mail address changed
>==============================================================
>= Ing. Martin Kubecka - Amenit s.r.o. =
>= Na Valech - budova Dytron, 741 01 Novy Jicin =
>= telefon: +420 603 265926 =
>= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
>==============================================================

Vertikalni scrollbar v listboxu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.1998 20:47:30

David_Zabensky.UNION(zv)union(tec)cz wrote:
>
> Diky moc.
>
> Samozrejme jsem myslel horizontalni scrollbar - ten preklep jsem si
> uvedomil az ve chvili, kdy jsem ten mail poslal.
>
> Nevim proc, ale procedura
>
> ListBox1.Perform(LB_SETHORIZONTALEXTENT, 200, 0);
>

Ahoj,

jo vidis, ja to napsal blbe, ono pokud to volas v OnCreate formulare
tak jeste neexistuje Handle listboxu. Takze pak to musi byt takhle:

SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 200, 0);

protoze pri cteni vlastnosti Handle se toto automaticky vytvori pokud
jeste neexistuje.

Petr Vones, amatersky programator


Ukoncenie procesu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.1998 21:29:29

Santik wrote:
>
> Ahoj vsetci,
>
> mam takyto problemik:
> Z Win32 programu pustam cez CreateProcess dosovsky program
> (Scan.exe) tak, aby sa nezobrazovala jeho konzola.
> Ked tento program ale skonci, caka na potvrdenie ( ked sa
> spusti s konzolou - objavi sa hlaska "Ukonceno..." a caka sa
> na zavretie tohto konzoloveho okna).
> Ako mozem odblokovat toto cakanie?

Ahoj,

U te DOS aplikace dej Vlastnosti a v zalozce Program zaskrtni
"pri skonceni zavrit".

Petr Vones, amatersky programator

Help

[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 19.8.1998 21:43:47

Pros�m o radu ... existuje n�jak� komponenta pro stahov�n� dat p�es seriov�
port ?

Petr


VersionInfo ?

[*] Jan Najvarek <.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz> - 19.8.1998 23:03:17

Mam par otazek, ktere mi vrtaji hlavou, takze:

- ktera funkce mi vrati cislo verze, buildu a podobne informace,
ktere se pridavaji k EXE pomoco Project/Options/VersionInfo

------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz


Start programu ?

[*] Jan Najvarek <.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz> - 19.8.1998 23:03:17

Posledni veci, s kterou se potykam, je start programu:

Pri startu se musi hodne veci zkontrolovat, zda existuji soubory
apod., zda je pripojen spravny uzivatel apod. a ja nevim, kam to
vhodne a vkusne umistit - idealni by se zdala procedura OnCreate
hlavniho formu, ale tam nelze volat Close, nastaveni
WindowState=wsMinimized taky nema spravny efekt (zobrazi se male
okenko levem dolnim rohu jako v MDI).

Priklad. Aplikace po startu zada login, nedostane-li spravny, zustane
minimalizovana v tool baru (napr. pomoci TryIcon), ve status baru ji
smazu, dvojklikem na iconu se muze operator znovu pokusit pripojit.
Zkousel jsem to a zkousel a na spravne reseni (v OnCreate) jsem
neprisel....neexistuje necio jako AfterOnCreate ??????

Snad jsem to vysvetlil ...

Diky za rady

Honza Najvarek
------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz


Seriove cislo ?

[*] Jan Najvarek <.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz> - 19.8.1998 23:03:17


Rad bych pridaval k hotovemu programu neco jako seriove cislo, tak,
aby ho program mohl precist, bylo soucasti EXE souboru a bylo snadno
prilepitelne/menitelne pro mne a nelehko pro nekoho jineho.

Kdo vi, jak na to ?
------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz


RX Library

[*] Jan Najvarek <.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz> - 19.8.1998 23:03:17

Zkus

http://www.jeo.ru/2420/RxLib/Download/250/rxlib250.zip

Honza Najvarek

>
> Ahoj,
> poradte mi nekdo prosim, jak ziskat RX Library. Marne se ji snazim
> stahnout z Inetu, porad mi to hlasi nejakou chybu. Nebo je to snad =
> komercni produkt ? Diky za kazdou odpoved.
>
------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz


Help

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 19.8.1998 23:46:07

Dne Wed, 19 Aug 1998 21:43:47 +0200 Petr Provazn�k napsal:

> Pros�m o radu ... existuje n�jak� komponenta pro stahov�n� dat p�es seriov�
> port ?
Mozna nam tu pan Z. poradi komponentu AP :-)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019


VersionInfo ?

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 00:15:37

> - ktera funkce mi vrati cislo verze, buildu a podobne informace,
> ktere se pridavaji k EXE pomoco Project/Options/VersionInfo

Ve Win32 API jsou k tomu funkce GetFileVersionInfoSize
a GetFileVersionInfo. Jinak hotova komponenta se jmenuje
nejak VersionInfo a je nekde na DSP. Ja to ctu pomoci
SysTools.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Seriove cislo ?

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 00:15:37

> Rad bych pridaval k hotovemu programu neco jako seriove cislo, tak,
> aby ho program mohl precist, bylo soucasti EXE souboru a bylo snadno
> prilepitelne/menitelne pro mne a nelehko pro nekoho jineho.
>
> Kdo vi, jak na to ?

Ja vim, jak na to. V podstate je nekolik moznych reseni, jak toto
udelat. Nektere jsou jednodussi a nektere slozitejsi, nektere
jsou osidit snadno, nektere hure. Velky problem vidim v tom, ze toto
je dost citliva tematika a kdyz ti vyklopim vse, co vim, je to pak
nebezpecne pro me programy, ktere by eventuelne byly timto zpusobem
chraneny - v problematice ochrany programu jen silenec prozradi
sve techniky. Ale vezmu to obecne. Je potreba si stanovit nektera
kriteria podle tvych pozadavku:

1. Ma byt opravdu soucasti EXE souboru?

To znamena v horsim pripade novou kompilaci pro kazde licencni cislo,
v lepsim pripade nutnost oznackovani kazdeho programu jinym programem.
Ovsem toto muze byt problem, protoze pak musis manipulovat s kazdym
jednotlivym programem, tedy EXE souborem. To neni vubec vhodne treba
pro publikovani na Internetu, kazdy zakaznik musi dostat cely program
specialni pro nej, kde je prave jeho licencni cislo.

a) Seriove cislo napises jako konstantu primo do programu a proste
pokazde kompilujes s jinym cislem. Ano, je to dost neohrabane,
nicmene jednoduche, levne a pro blbce. Samozrejme je to treba lehce
ochranit proti zmenam zvenci - minimalne kontrolni soucet, nejlepe
zakodovat.

b) Seriove cislo muzes umistit do resource. Nutno zakodovat, do
resource se da snadno vstoupit. Bud musis kompilovat nebo prepisovat.

c) Seriove cislo prikopirujes na konec programu a pak ho nacitas
normalne jako soubor odzadu. Opet je potreba zakodovat, protoze se
to da snadno zmenit.

d) Seriove cislo prepises externim programkem primo v kodu, proste si
tam vyhradis misto konstantou a pak to najdes a prepises.

2. Neni lepsi ho mit vedle?

Vyhodou tohoto reseni je skutecnost, ze mas jen jeden stale stejny
EXE soubor, ktery muzes vystavit treba na internetu nebo proste
rozsirit mezi lidi, ale seriove cislo je pak nekde jinde.

a) Oblibenou metodou mnoha programatoru jsou tzv. klicove soubory.
Mas stale stejny program, ale generujes jednotlive soubory nejak
velike, kde je zakodovane seriove cislo. Tento soubor program najde,
rozkoduje, zkontroluje a pouzije to seriove cislo, pripadne dalsi
informace v nem ulozene. Je to dobra metoda, musis to nejak zakodovat
a je to i spolehlive, nicmene zase pokud budes mit soubory velike
treba 1kB, musis davat tyto soubory.

b) Asi nejlepsi metoda je vsak kratky klic. Pouziva se stale vice
a vice a i ja sam ji pouzivam. Ale take treba Borland u Delphi 4
a mnoho dalsich... Vtip spociva v tom, ze mas seriove cislo, to
nejak zakodujes a vyleze ti nekolikaznakovy kod. Program ho umi
rozkodovat a vytahnout z nej seriove cislo. Velka vyhoda je v tom,
ze je to velmi pruzne reseni, protoze muzes zakaznikovi kod
rici telefonem - je kratky a srozumitelny oproti 1kB velikemu
souboru.

3. Jsi ochoten za reseni zaplatit nebo ne?

Na tom mnoho zalezi, protoze bud si to delas sam nebo si koupis
jiz hotove reseni. Je mi zcela jasne, ze co budu dale psat, se
napr. fronkovi bude zdat jako reklama, nicmene i tak ti to napisi.
Ne pro reklamu, ale abys videl, jak se to resi ve svete a ze uz
nekdo neco takoveho vymyslel. Jak rikam, pouzivam to a nemuzu si
to vynachvalit. Produkt se jmenuje OnGuard a je od TP. Neni zadarmo,
nicmene pokud hledas hotove reseni, je velmi dobry, protoze jiz
nemusis nic vymyslet a mas k dispozici dobrou ochranu s mnoha
moznostmi. Pochopitelne se muzes nechat inspirovat a vymyslet
neco vlastniho, zase tak slozite to neni, jde jen o vymysleni toho
zakladniho mechanismu a pak to zakodovat.

OnGuard pracuje jednoduse - zakladem je 128 bitovy klic, ktery
je tajny. Je to 32 hexa cisel, ktere si vymyslis nebo nechas
vygenerovat nahodne. Musis ho skryt do programu. Pak pouzijes
nektery typ ochrany, kdy k dispozici je ochrana seriovym cislem,
datem od-do, poctem spusteni, poctem dnu, textem, poctem
soucasne bezicich programu na siti, pripadne tvymi vlastnimi
zpusoby ochran. Podstata je v tom, ze na zaklade zvoleneho
druhu ochrany se vygeneruje 16 hexaciselny kod, kde jsou
obsazeny informace o druhu ochrany, datu expirace a treba
seriovem cislu. Ty se zakoduji tim tajnym 128 bitovym klicem
a vyplivnou se ven. Vznikne zase 16 mistne hexa cislo. Toto
cislo je vstupem pro tvuj program. On si to dekoduje a zjisti
ty informace. Jak zakomponujes ochranu, pripadne kombinaci nekolika
ochran do tveho programu, to uz zalezi ciste na tobe. Jedna
moznost je treba ta, ze program vystavis na internetu.
Nekdo si ho stahne a on se chova jako omezena verze, proste
neumoznuje vsechny funkce. Jakmile zaplati, das zakaznikovi
kod, ktery vygenerujes nezavisle na programu (musis jen znat
128 bitovy kod, ktery sis predtim zvolil). On to natuka do
tveho programu, ten se odemkne a jiz pracuje naplno. Nebo muze
pracovat po nejaky pocet dnu a pak skoncit... to je jedno.
Hlavni vyhoda tohoto reseni je v tom, ze mas jeden stejny EXE
a jen generujes kody. Kod je veliky 16 hexa cislic, to je
64 bitu, proste neni velka sance ho nabourat - je to na silene
moc tisic let, pripadne na nahode.

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Kolar Lubor - Re Help

[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 20.8.1998 00:43:02


-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 19. srpna 1998 23:52
P�edm�t: Re: Help


>Dne Wed, 19 Aug 1998 21:43:47 +0200 Petr Provazn�k napsal:
>
>> Pros�m o radu ... existuje n�jak� komponenta pro stahov�n� dat p�es
seriov�
>> port ?
>Mozna nam tu pan Z. poradi komponentu AP :-)
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>

AP ? Co je to AP ? Kde se to d� (pokud se to d�) st�hnout nebo tak n�co
...

Help

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 01:11:54

> Pros�m o radu ... existuje n�jak� komponenta pro stahov�n� dat p�es seriov�
> port ?

Jako z ceho stahovani?

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Petr Zahradn�k Re: Help

[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 20.8.1998 01:39:19

Jo, to jsem na�el a st�hnul jsem si n�jakou trial verzi (p�es 3MB), ale j�
bych pot�eboval n�jakou free komponentu ...

-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 1:15
P�edm�t: Re: Help


> Pros�m o radu ... existuje n�jak� komponenta pro stahov�n� dat p�es
seriov�
> port ?

Jako z ceho stahovani?

S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Petr Zahradn�k Re: Help

[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 20.8.1998 01:40:16

Jo, to jsem na�el a st�hnul jsem si n�jakou trial verzi (p�es 3MB), ale j�
bych pot�eboval n�jakou free komponentu ...

Ukoncenie procesu

[*] Jan Fiala <fiala(zv)iname(tec)com> - 20.8.1998 06:15:57

Udelej si k tomu programu PIF a spoustej ten

S pozdravem "klid zbran�m a program�torum"
se te�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

>Ahoj vsetci,
>
>mam takyto problemik:
>Z Win32 programu pustam cez CreateProcess dosovsky program
>(Scan.exe) tak, aby sa nezobrazovala jeho konzola.
>Ked tento program ale skonci, caka na potvrdenie ( ked sa
>spusti s konzolou - objavi sa hlaska "Ukonceno..." a caka sa
>na zavretie tohto konzoloveho okna).
> Ako mozem odblokovat toto cakanie?
>
> Vopred dik za navrhy.
> Dufam ze aspon niekto pochopi co som tu prave vypotil.
>
> Santik
> misecka(zv)decef.elf.stuba.sk
> santik(zv)pronetix.sk
>
>

MP3

[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 20.8.1998 07:04:18

Zdravim,
mam dotaz ohledne tvorby MP3. Mam free kompresor ktery tvori z wav mp3.
Funguje ale dost divne. Pouze na nektere wav soubory a neprisel jsem na
zakonitost proc nektere nechce zpracovat. Nemate nekdo kontakt na dobry
kompresor a informaci, jak MP3 prehrat v Delphi??
Dik za informace Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
----------------------------------------------------------------------------
---------------------------------

Start programu ?

[*] Pavel Kral <kral(zv)afx(tec)cz> - 20.8.1998 07:12:36

Ahoj,
ja docela uspesne pouzivam tuto metodu:

1. v OnCreate si do promenne poznacim, ze je to
spusteni programu
2. v OnShow provedu vse potrebne, pokud je nastavena
promenna a zrusim nastaveni promenne.

Neni to nic svetoborneho, ale postacuje.
Pokud chci program ukoncit, je lepsi volani Application.terminate
nez close hlavniho formulare.

Pavel

-----Original Message-----
From: Jan Najvarek <.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 19. srpna 1998 23:25
Subject: Start programu ?


Posledni veci, s kterou se potykam, je start programu:

Pri startu se musi hodne veci zkontrolovat, zda existuji soubory
apod., zda je pripojen spravny uzivatel apod. a ja nevim, kam to
vhodne a vkusne umistit - idealni by se zdala procedura OnCreate
hlavniho formu, ale tam nelze volat Close, nastaveni
WindowState=wsMinimized taky nema spravny efekt (zobrazi se male
okenko levem dolnim rohu jako v MDI).

Priklad. Aplikace po startu zada login, nedostane-li spravny, zustane
minimalizovana v tool baru (napr. pomoci TryIcon), ve status baru ji
smazu, dvojklikem na iconu se muze operator znovu pokusit pripojit.
Zkousel jsem to a zkousel a na spravne reseni (v OnCreate) jsem
neprisel....neexistuje necio jako AfterOnCreate ??????

Snad jsem to vysvetlil ...

Diky za rady

Honza Najvarek
------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz


NetManage

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 20.8.1998 07:37:20

> protoze to jsou OCX a navic v nich jsou chyby. Doporucuji radeji
> cokoliv jineho, nativniho a se zdrojakama.

Byl bych taky radsi, ale nikde *Torry, DSP) jsem nic takoveho nenasel.
Potrebuju neco, co proste jen zobrazi HTML stranku a nepotrebuje k tomu
nainstalovany IE, nebo Netscape.

Seriove cislo ?

[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 20.8.1998 07:54:22

Petr Zahradnik wrote:

> nekdo neco takoveho vymyslel. Jak rikam, pouzivam to a nemuzu si
> to vynachvalit. Produkt se jmenuje OnGuard a je od TP. Neni zadarmo,


Kolik stoji OnGuard? A nevis proc Profis skoncil s prodejem
produktu TP?


--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861


NetManage

[*] kchmel(zv)post(tec)cz - 20.8.1998 08:04:06

Podivej se na www.pbear.com, tam takova komponenta je.

Karel
> > protoze to jsou OCX a navic v nich jsou chyby. Doporucuji radeji
> > cokoliv jineho, nativniho a se zdrojakama.
>
> Byl bych taky radsi, ale nikde *Torry, DSP) jsem nic takoveho nenasel.
> Potrebuju neco, co proste jen zobrazi HTML stranku a nepotrebuje k tomu
> nainstalovany IE, nebo Netscape.
>

Par dotazu pro SQL guru

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 20.8.1998 08:06:03

> Zkusil jsem tedy
>
> CREATE INDEX INDEX_1 ON TABLE_A(POPIS)
>
> Tady jsem narazil na problem. Uz nelze napsat:
>
> SELECT * FROM TABLE_A WHERE UPPER(POPIS) LIKE '%ABC%' PLAN (TABLE_A ORDER
> INDEX_1)
>
> protoze server mi vyhodi hlasku typu "pro tento typ dotazu nelze pouzit
> razeni INDEX_1"
> Pokud chci pouzit INDEX_1, tak musim vyhodit prikaz UPPER() a procento na
> zacatku substringu
>
> No a ted bych se prave chtel zeptat nejakeho SQL guru, jak takove dotazy typu
>
> SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC'
>
> optimalizovat (zrychlit). Lze si udelat nejaky index, ktery by sel pouzit?
> Nebo pouzit jine moznosti (stored proceduru ???, to zatim neumim vubec)?

Nazdar,

vopred upozornujem, ze nie som ziadny guru ani nic podobne. Iba mam pocit, ze asi viem
v com je problem.

Index sa vytvara pre cely string, teda normalne triedenie zlava od prveho znaku
(nie od 2,3,... znaku). Preto aj to

> Pokud chci pouzit INDEX_1, tak musim vyhodit procento na zacatku substringu

Neviem si predstavit zapis indexu v SQL, ktory by dokazal indexovat podla moznych
substringov.
Mozno by sa to dalo vyriesit pomocnou tabulkou, do ktorej by sa pre kazdy string vkladali
vsetky mozne substringy s odkazom na povodny string, oindexovat ju podla substringov a potom
hladat v tejto tabulke s podmienkou ' = '.

Marek Repisky
mrepisky_zl(zv)zsnp.sk


Par dotazu pro SQL guru

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 20.8.1998 08:36:47

Optimaliyovat uvedene vyhladanie substringu by znamenalo optimalizaciu PATTERN MATCHING algoritmu. Ubezpecujem ze databaza nema inu moznost iba postupne prechadzat celu tabulku.
In� by to bolo pri A%BC% kde by mohol vyuzit index .
Tungli

----------
> Od: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> Pre: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Predmet: Par dotazu pro SQL guru
> D�tum: 19. august 1998 11:02
>
> Zdravim,
> uz se tady dlouho neprobiralo SQL 8-) tak hodim neco do placu.
> Protoze v dokumentaci, co jsem mel zatim moznost procist je vzdy pouze
> syntaxe ( a nejaky priklad) SQL a nikde jsem nenasel rady typu "lze to udelat
> takto, ale toto je lepsi (rychlejsi)", zkusim se zeptat tady.
> (Konference o Interbase,na kterou zde byl drive odkaz, je nejaka mrtva).
> Jedna se mi predevsim o praci se stringy.
>
> Mejme obycejnou tabulku TABLE_A, jejiz jednou z polozek je treba VARCHAR[40]
> a jmenuje se POPIS.
> Ma dejme tomu 100.000 vet.
> A ted z ni potrebuji vybrat polozky, ktere v polozce POPIS maji retezec
> (substring) 'ABC'.
> Lze to udelat jednoduse takto (jak radi dokumentace):
>
> 1) SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC'
> 2) SELECT * FROM TABLE_A WHERE POPIS LIKE '%ABC%'
>
> Je tak? Potom jsem nezohlednil case sensitivity, tzn., ze pokud budu chtit
> najit 'abc' i 'ABC' uz to muze vypadat takto:
>
> 1) SELECT * FROM TABLE_A WHERE UPPER(POPIS) CONTAINING 'ABC'
> 2) SELECT * FROM TABLE_A WHERE UPPER(POPIS) LIKE '%ABC%'
> 3) SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC' OR POPIS CONTAINING
> 'abc'
> 4) SELECT * FROM TABLE_A WHERE POPIS LIKE '%ABC%' OR POPIS LIKE '%abc%'
>
> Uz se nam to mnozi. Predpokladam, ze vsechny vyse uvedene vybery jsou
> rovnocenne co do delky zpracovani dotazu. A jsou nejpomalejsi ze vsech
> moznosti, protoze vubec neberou v potaz vytvorene indexy a prochazeji celou
> tabulku vetu po vete. Tady zalezi jen na rychlosti zeleza, na kterem se
> provozuje databaze.
>
> Zkusil jsem tedy
>
> CREATE INDEX INDEX_1 ON TABLE_A(POPIS)
>
> Tady jsem narazil na problem. Uz nelze napsat:
>
> SELECT * FROM TABLE_A WHERE UPPER(POPIS) LIKE '%ABC%' PLAN (TABLE_A ORDER
> INDEX_1)
>
> protoze server mi vyhodi hlasku typu "pro tento typ dotazu nelze pouzit
> razeni INDEX_1"
> Pokud chci pouzit INDEX_1, tak musim vyhodit prikaz UPPER() a procento na
> zacatku substringu
>
> No a ted bych se prave chtel zeptat nejakeho SQL guru, jak takove dotazy typu
>
> SELECT * FROM TABLE_A WHERE POPIS CONTAINING 'ABC'
>
> optimalizovat (zrychlit). Lze si udelat nejaky index, ktery by sel pouzit?
> Nebo pouzit jine moznosti (stored proceduru ???, to zatim neumim vubec)?
>
> Pokud by se nasel nekdo ochotny poskytnout nejaky strucny navod jak na to,
> byl bych mu zavazan.
> ( A myslim si, ze nejen ja 8-)
>
> ZdeP
> prantl(zv)ptc.pvt(tec)cz



© Delphi.cz, program netcode.cz, 2008-9.