Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
funkce nahodne cislo 2
[*] Pospisil Tomas <Pospisil(zv)Chv.pvt(tec)cz> - 20.8.1998 08:40:40
Omlouvam se to jsem si uvedomil pozde.
Posilam nahradni reseni i kdyz neco podobneho uz tu bylo urcite receno nekolikrat.
procedure TForm1.Pocitej;
var
A: Integer;
begin
Randomize;
A := 20;
A :=Random(A);
if A<10 then Pocitej
else
Edit1.Text:=IntToStr(A);
end;
Pospa
> -----P�vodn� zpr�va-----
> Od: Dobromil Mal� [SMTP:Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 19. srpna 1998 13:28
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: funkce nahodne cislo 2
>
> 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.
> >
> >
> > funkce nahodne cislo 2
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 20.8.1998 08:54:42
> Date: Wed, 19 Aug 1998 07:45:56 +0200
> To: delphi(zv)pinknet(tec)cz
> From: kchmel(zv)post(tec)cz
> Subject: RE: funkce nahodne cislo 2
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> To je hezky, ale pak uz to neni nahodne cislo z rovnomerneho rozdeleni
> a je to k nicemu.
>
> Karel
Vtip rovnomerneho rozdeleni je v tom, ze musi byt ROVNOMERNE
i ve svem podrozsahu. Tedy je-li r. v rozsahu A-B a plati A<=C a C<=B,
pak bude r. i v A-C i v C-B (matematik by to urcite zapsal lepe :-).
Jenom to nekdy bude trvat dele, nez dostanu z funkce cislo...
>
> > 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
> > >>
> > >>
> >
> >
> >
> >
>
>
>
>
>
>
*-----------------------------------------------*
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
*-----------------------------------------------*Seriove cislo ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 09:22:45
> Kolik stoji OnGuard? A nevis proc Profis skoncil s prodejem
Info posilam primo tobe, aby nebyla reklama.
> produktu TP?
No to vim zcela jasne - protoze TP zmenil obchodni podminky
a proste se to moc nevyplati - velke postovne, mala provize,
hodne prace a malo zakazniku. Nebudu to rozvadet do konference,
kde si nekolik lidi mysli, jaky je to rejzak - pripadne
osobnim e-mailem.
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 ===
==============================================================BDE
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 20.8.1998 09:23:48
> 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 ?
Nie je to az v 4.5?
Vytaceni telef. cisel
[*] Maly(zv)sdc.pce.cdrail(tec)cz - 20.8.1998 09:26:17
Ahoj
Stale se potykam s vytacenim tel.cisel.Mam rozpracovany dve metody :
1.Pomoci free komponenty ASYNC32
comm321.open;
s:=Concat('ATm1DP 5100,',^M^J);
if Comm321.Write(s[1], Length(s))=-1 then begin
showmessage('Chyba p�i vyt��en� ��sla.');
s:=Concat('ATH0',^M^J);
Comm321.Write(s[1], Length(s));
end
else begin
form4.showmodal; Dialog zvednete si sluchatko - vyzvanim
s:=Concat('ATH0',^M^J);
Comm321.Write(s[1], Length(s));
end;
comm321.close;
Zde je problem v tom ze se dialog zobrazi ihned po odeslani retezce do
modemu a ne az po skutecnem vytoceni cisla modemem.
2.Toto reseni se mi zda elegantnejsi
ExecuteFile('dialer.exe', '', '', SW_SHOW);
sendkeys1.sendkeysto('��seln�k telefonu','5100');
Problemy- sendkeysto odesle sekvenci drive nez je spusten dialer.Pokud
si dam sendkeysto na tlacitko a vyvolam az po natazeni dialeru tak je to
OK.
Ovsem nejlepsi by bylo znat SYNTAX PARAMETRU PROGRAMU DIALER.EXE pro
prime odeslani cisla, jestli vubec nejake parametry ma.
Dekuji za pripadnou radu k temto dvoum bodum.
Lada Maly
Par dotazu pro SQL guru
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 20.8.1998 09:35:23
> -----Original Message-----
> From: Marek Repisk� [SMTP:mrepisky_zl(zv)zsnp.sk]
> Sent: Thursday, August 20, 1998 8:06 AM
> Subject: Re: Par dotazu pro SQL guru
>
> > 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.
To ani ja. Proto jsem to dal do placu a dofam, ze se nejaky guru najde a
prozradi tipy a triky 8-)
> 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
>
Dobra rozvinu trochu puvodni myslenku:
Dejme tomu, ze ta tabulka TABLE_A (jak jsem psal) ale ma vic polozek a
celkova delka jednoho zaznamu je 1 kB. Pri 100.000 vetach je to 100 MB
tabulka. Index INDEX_1 tabulky TABLE_A obsahuje pouze polozku POPIS
(VARCHAR[40]), tj. 40 B (Pro puntickare, kteri by chteli okamzite psat, ze to
neni 40, ale napr 45, podotykam je to mozne, nevim presne jak jsou indexy
zapsany). 100.000x40= 400 kB. Tak se snazim rict pres SQL, ze neni nutne
prochazet tech 100 MB dat vetu po vete, vybrat z ni poplozku POPIS a tu
kontrolovat, ale ze staci projit 400 kB INDEXU_1 (naprosto stejnym zpusobem
jako bych prochazel data, protoze ta polozka POPIS je v indexu cela). Takovy
dotaz by mel byt daleko rychlejsi, uz diky usetrenym pristupum na disk. Nebo
se pletu?
>
> Neviem si predstavit zapis indexu v SQL, ktory by dokazal indexovat podla
> moznych substringov.
Nejde o indexovani podle substringu, ale o moznost hledat substring v indexu.
ZdeP
prantl(zv)ptc.pvt(tec)cz
Komunikacia DCom
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 20.8.1998 09:35:11
Co takhle skusit spustit DCOMCNFG.EXE, jak na server tak na stanici a
nastavit prava, kdo muze DCOM spoustet, pouzivat atd...
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Martin Koran [SMTP:komar(zv)komar(tec)cz]
> Odesl�no: 19. srpna 1998 13:46
> Komu: DELPHI Distribution List
> P�edm�t: Re: Komunikacia DCom
>
> 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
VersionInfo ?
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 20.8.1998 09:41:13
Rx Library ma unitu VerInfo, ktera to umi....
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Jan Najvarek [SMTP:.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz]
> Odesl�no: 20. srpna 1998 1:03
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: VersionInfo ?
>
> 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
Par dotazu pro SQL guru
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 20.8.1998 09:50:28
> -----Original Message-----
> From: TUNGLI Jan [SMTP:tungli(zv)pvt.sk]
> Sent: Thursday, August 20, 1998 8:37 AM
> Subject: RE: Par dotazu pro SQL guru
>
> Optimaliyovat uvedene vyhladanie substringu by znamenalo optimalizaciu
> PATTERN MATCHING algoritmu.
A to se da ?
( Vojin Kefalin, co si predstavujes pod takym pojmom "PATTERN MATCHING
algoritmus" 8-)
> Ubezpecujem ze databaza nema inu moznost iba
> postupne prechadzat celu tabulku.
To je ale velmi neefektivni (jak jsem psal v prvnim mailu).
> In� by to bolo pri A%BC% kde by mohol vyuzit index .
a kdyz budu chtit, aby se mi nasly vsechny vyrazy typu 'ABC%', 'abc%', 'Abc%'
najednou ... ?
ZdeP
prantl(zv)ptc.pvt(tec)cz
BDE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 09:55:04
> 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 ?
V BDE 4.0 byla nejaka chyba s tabulkami Access, nainstaluj si
novejsi BDE, tedy 4.51 nebo 5.0 - najdes na:
http://www.inprise.com/bde
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 ===
==============================================================BDE
[*] Martin Talian <talian(zv)geoplanpp.sk> - 20.8.1998 09:56:55
Zdravim,
Skus BDE 4.51, je na internete u Borlandu, a funguje to iba s Access 98.
Musis potom zadat cestu k syst. databazy Accessu.
Martin
-----P�vodn� spr�va-----
Od: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
Pre: Delphi <delphi(zv)pinknet(tec)cz>
D�tum: 20. august 1998 9:23
Predmet: BDE
>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
problem graf
[*] galik_m(zv)usa(tec)net - 20.8.1998 09:56:30
Mam v DBChart 4 serie, ako sa da zistit, ze na ktoru som klikol?
Akym sposobom sa da menit (programovo) velkost a tvar znaciek na zobrazenych seriach v grafe (na tych ciarach)?
Vdaka.
____________________________________________________________________
Get free e-mail and a permanent address at http://www.netaddress.com/?N=1
Viceradkova paleta komponent
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 20.8.1998 09:59:10
Ahoj
jak uz asi tusite podle predmetu zpravy, chtel bych se zeptat jestli nekdo
nevite o utilitce ktera by umela zaridit aby paleta komponent byla
viceradkova.
V Delphi 3 to umely tusim Tools od AHM a utilitka od Marka Cantu.
Ale at hledam jak hledam k Delphi 4 jsem ji jeste nikde nevidel.
Jestli o ni nekdo vite, prosim poradte.
Diky
Michal Cizek <Starxax(zv)molly.vabo(tec)cz>
Vojenska akademie Brno
tel. 05 41183711
HP: www.mujweb(tec)cz/www/starxax
MP3
[*] Pospisil Tomas <Pospisil(zv)Chv.pvt(tec)cz> - 20.8.1998 10:00:43
Skus tenhle
mp3compr09f.exe
Najdes ho na: ftp.chv.pvt(tec)cz(Adres�r /win95/zvuk/ )> -----P�vodn� zpr�va-----
> Od: SATON Glass s.r.o. [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 20. srpna 1998 7:04
> Komu: DELPHI Distribution List
> P�edm�t: MP3
>
> 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
> ----------------------------------------------------------------------------
> ---------------------------------
www.PBear.com
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 20.8.1998 10:42:46
Zdravim,
byla tu dnes rec o HTML komponente z www.pbear.com. Nemate ji nekdo
stazenou? Ja se snazim uz skoro hodinu a mam teprve 35 procent.
Diky.
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 Moje neznalost, nebo hloupost s TSHAPE
[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 20.8.1998 10:58:38
Dobry den.
Presel jsem z D1 na D3 a mam tento problem.
Do formulare jsem si vlozil TPANEL, upravil k memu pozadavku a do nej TSHAPE na ktery chci malovat
nejake kresby zpusobem moveto, lineto, textout, atd. (Podotykam, ze v D1 mi to chodilo bez problemu).
Chci-li namalovat byt treba jen prostou caru, z bodu A do bodu B, tak cara se sice namaluje, ale mimo prostor
TSHAPE (tedy bokem) ne v oblasti kde mam TSHAPE umisten. Samozrejmne pro malovani pouzivam metodu
with TSHAPE,canvas do
begin
- tady maluju -
end;
Nevite, kde je ta blbost?
S pozdravem Nosek Libor
Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68
tel: 66173163
fax: 6857003
nosek(zv)ujf.cas(tec)cz
BDE
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 20.8.1998 10:59:50
>ok, da sa toto niekde najst vcelku a kompletne?
Tak to bohuzel, jestli si nekdy slysel o metode pokus-omyl, tak
to je ta jedina spravna cesta.
Jinak je jedinou cestou opravdu vyexportovat si prislusnou cestu
registry database a pak uz jen zkouset a zkouset.
To se to chystas natrit InstallShieldu ?
Martin
Kolar Lubor - Re Help
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 20.8.1998 11:17:02
Dne Thu, 20 Aug 1998 00:43:02 +0200 Petr Provazn�k napsal:
>
> -----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
Je to komercni komponenta za asi 10kKc, dostupna na www.turbopower.com.
Jde ti o protokoly (ZMODEM, YMODEM apod.), nebo o zapis/cteni ze
serioveho portu? Pokud jen to cteni, ja DSP jsou komponenty jako Async32
(neplest s AsyncPro) a jine, ktere bohate postaci a jsou free.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
SQL parser
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 20.8.1998 11:26:39
Zdravim delfiny,
nevite nahodou nekdo o necem, co bych nazval parser na
SQL dotaz. Jde mi o separaci klausuli SELECT, FROM, WHERE apod.
Moje vlastni pokusy konci zoufalstvim nad kosatosti SQL jazyka.
S pozdravem
Martin Dupal
Vytaceni telef. cisel
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 11:31:51
Maly(zv)sdc.pce.cdrail(tec)cz wrote:
>
> Ahoj
> Stale se potykam s vytacenim tel.cisel.Mam rozpracovany dve metody :
> 1.Pomoci free komponenty ASYNC32
> comm321.open;
> s:=Concat('ATm1DP 5100,',^M^J);
> if Comm321.Write(s[1], Length(s))=-1 then begin
> showmessage('Chyba p�i vyt��en� ��sla.');
> s:=Concat('ATH0',^M^J);
> Comm321.Write(s[1], Length(s));
> end
> else begin
> form4.showmodal; Dialog zvednete si sluchatko - vyzvanim
> s:=Concat('ATH0',^M^J);
> Comm321.Write(s[1], Length(s));
> end;
> comm321.close;
> Zde je problem v tom ze se dialog zobrazi ihned po odeslani retezce do
> modemu a ne az po skutecnem vytoceni cisla modemem.
>
> 2.Toto reseni se mi zda elegantnejsi
> ExecuteFile('dialer.exe', '', '', SW_SHOW);
> sendkeys1.sendkeysto('��seln�k telefonu','5100');
> Problemy- sendkeysto odesle sekvenci drive nez je spusten dialer.Pokud
> si dam sendkeysto na tlacitko a vyvolam az po natazeni dialeru tak je to
> OK.
> Ovsem nejlepsi by bylo znat SYNTAX PARAMETRU PROGRAMU DIALER.EXE pro
> prime odeslani cisla, jestli vubec nejake parametry ma.
>
> Dekuji za pripadnou radu k temto dvoum bodum.
Ahoj,
pokud chces vytvorit volani tak jako to dela dialer.exe "Telefon", tak by to melo
jit pomoci TAPI:
implementation
{$R *.DFM}
function tapiRequestMakeCall(lpszDestAddress, lpszAppName, lpszCalledParty,
lpszComment: PChar): DWORD; stdcall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
procedure TForm1.Button1Click(Sender: TObject);
var
Res: Integer;
begin
Res := tapiRequestMakeCall('14112', nil, 'Presny cas', nil);
ShowMessage(IntToStr(Res));
end;
end. Petr Vones, amatersky programator
BDE
[*] Adam Hor��ek���j+iǤ�Ƞ����3 - 20.8.1998 11:56:49
> 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 ?
BDE 4.00 p�istupuje k Accesovskym databazim pres MS DAO (Data Access
Objects). BDE 4.00 umi pouzivat pouze DAO 3.0. Problem je v tom, ze s MS
Access 97 si instaluje DAO 3.5 a s tim BDE 4.00 neumi pracovat. Musis si
stahnout od Inprisu upgrade na BDE 4.51
http://www.inprise.com/devsupport/bde/oldver.html nebo vyssi
http://www.inprise.com/devsupport/bde/bdeupdate.html, ktery uz to umi. Ve
verzi 4.51 jeste musis nakonfigurovat ovladac MSACCESS (nastavit DLL, ktere
se ma pouzivat).
Cau
Adam
ako zavriet
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 20.8.1998 12:23:18
co takto Application.Terminate ?
--
Maj sa,
R.
ako zavriet
[*] RADIK(zv)p15.monet(tec)cz - 20.8.1998 12:45:00
Application.Terminate;
Ales
----------
Od: Ing. J�n Kuch�r
Komu: Delphi
P�edm�t: ako zavriet
Datum: 8. srpen 1998 13:29
Caute
Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni
v form1.create testujem ci su splnene urcite podmienky, v pripade ze
tieto podmienky niesu splnene ma sa aplikacia pomocou prikazu close
ukoncit. Ked tento prikaz pouzivam hned v form1.create tak program ho
ignoruje, prteskoci ho a aplikacia pokracuje smelo dalej. Poradte mi ako
ju ukoncit hned v create bez pouzitia timeru.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Košice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>Par dotazu pro SQL guru
[*] RADIK(zv)p15.monet(tec)cz - 20.8.1998 12:50:00
A co tak umistit sloupec POPIS do jine tabulky, kde by byl jen popis a
odkaz do puvodni? Ta by byla velikosti srovnatelna s tim indexem a slo
by ji sekvencne prochazet na substring.....
Ales
----------
Od: Zdenek Prantl
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Par dotazu pro SQL guru
Datum: 20. srpen 1998 9:35
Dobra rozvinu trochu puvodni myslenku:
Dejme tomu, ze ta tabulka TABLE_A (jak jsem psal) ale ma vic polozek a
celkova delka jednoho zaznamu je 1 kB. Pri 100.000 vetach je to 100 MB
tabulka. Index INDEX_1 tabulky TABLE_A obsahuje pouze polozku POPIS
(VARCHAR[40]), tj. 40 B (Pro puntickare, kteri by chteli okamzite psat,
ze to
neni 40, ale napr 45, podotykam je to mozne, nevim presne jak jsou
indexy
zapsany). 100.000x40= 400 kB. Tak se snazim rict pres SQL, ze neni nutne
prochazet tech 100 MB dat vetu po vete, vybrat z ni poplozku POPIS a tu
kontrolovat, ale ze staci projit 400 kB INDEXU_1 (naprosto stejnym
zpusobem
jako bych prochazel data, protoze ta polozka POPIS je v indexu cela).
Takovy
dotaz by mel byt daleko rychlejsi, uz diky usetrenym pristupum na disk.
Nebo
se pletu?
>
> Neviem si predstavit zapis indexu v SQL, ktory by dokazal indexovat
podla
> moznych substringov.
Nejde o indexovani podle substringu, ale o moznost hledat substring v
indexu.
ZdeP
prantl(zv)ptc.pvt(tec)cz
Par dotazu pro SQL (ne)guru
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 20.8.1998 12:50:40
> Dejme tomu, ze ta tabulka TABLE_A (jak jsem psal) ale ma vic polozek a
> celkova delka jednoho zaznamu je 1 kB. Pri 100.000 vetach je to 100 MB
> tabulka. Index INDEX_1 tabulky TABLE_A obsahuje pouze polozku POPIS
> (VARCHAR[40]), tj. 40 B (Pro puntickare, kteri by chteli okamzite psat, ze to
> neni 40, ale napr 45, podotykam je to mozne, nevim presne jak jsou indexy
> zapsany). 100.000x40= 400 kB. Tak se snazim rict pres SQL, ze neni nutne
> prochazet tech 100 MB dat vetu po vete, vybrat z ni poplozku POPIS a tu
> kontrolovat, ale ze staci projit 400 kB INDEXU_1 (naprosto stejnym zpusobem
> jako bych prochazel data, protoze ta polozka POPIS je v indexu cela). Takovy
> dotaz by mel byt daleko rychlejsi, uz diky usetrenym pristupum na disk. Nebo
> se pletu?
> Nejde o indexovani podle substringu, ale o moznost hledat substring v indexu.
Nepocul som o tom ze by sa dalo selectovat z indexu. Obavam sa, ze to nepojde.
Ale mozes si tabulku TABLE_A rozbit na dve. Do jednej das ostatne data a do
druhej budes ukladat POPIS aj so spojovacim klucom na prvu tabulku. Hladat
budes v druhej tabulke. Matematicky to vychadza skoro rovnako ako index {100.000x44(aj s klucom)= 440 kB} a este usetris na prvej tabulke (bude mensia
o POPIS), ale ci tym ziskas, to neviem.
Marek
Disk
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.8.1998 13:04:36
No, mam 2,5 GB disk rozdeleny na tri (vsechny pod 1GB), takze mam jeden alokacni blok "jen" 16kB, ale myslel jsem, ze problemy bych mel, pokud bych pouzil treba DOS 6.22 a hlavne se snazil pouzit nejaky DiskEditor nebo nejaky ten nastroj a potom zase chtit zavest Win95.
Dobra.
----------
Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 19. srpna 1998 17:52
Komu: DELPHI Distribution List
P�edm�t: Re: Disk
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
ako zavriet
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 20.8.1998 13:08:41
> Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v
> form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto
> podmienky niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked
> tento prikaz pouzivam hned v form1.create tak program ho ignoruje, prteskoci
> ho a aplikacia pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v create
> bez pouzitia timeru.
Nazdar,
skus: application.terminate;
Marek Repisky
mrepisky_zl(zv)zsnp.sk
ako zavriet
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 20.8.1998 13:14:43
Zdravim, jestli chces ukoncit celou aplikaci, zkus zavolat tusim
Application.Terminate. To by melo projit.
Michal, mailto:mbrabec(zv)ciglersw(tec)cz
-----Original Message-----
From: Ing. J�n Kuch�r [mailto:kuchar(zv)tuke.sk]
Sent: Saturday, August 08, 1998 1:30 PM
To: Delphi
Subject: ako zavriet
Caute
Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v
form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto
podmienky niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked
tento prikaz pouzivam hned v form1.create tak program ho ignoruje, prteskoci
ho a aplikacia pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v
create bez pouzitia timeru.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
Uvidni obrazovka
[*] lnovy(zv)unicos(tec)cz - 20.8.1998 13:49:54
Zdravim,
neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
Za jakoukoliv radu dekuju.
Lubos Start programu ?
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.8.1998 14:01:20
Ja bych to nedelal v zadne unite/formulari, ale primo v projektu a pokud neco selze tak nic jinak vytvorit hlavni formular.
begin
if Test je OK then
begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
end.
Dobra.
----------
Od: Jan Najvarek[SMTP:.najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz]
Odesl�no: 20. srpna 1998 1:03
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: 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
Par dotazu pro SQL guru
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 20.8.1998 14:05:27
Ja se obavam, ze to taky mov nepomuze, protoze pokud je databaze nucena
prohledavat vsechny zaznamy jeden po druhem.
Jestli to dobre chapu, pak se jedna o typickou fulltextovou vyhledavaci
funkci. Na to neni zadna databaze vhodna, protoze nemaji vytvoreny
fulltextovy index (krome Oracle s ConText cartridges).
Jine systemy funguji tak, ze na zaklade dat vyctenych z tabulky
zkonstruhuji fulltextovy index a ten je pak pouzit k pristupu do
databaze.
Pokud mate zajem, tak mohu poslat navod, jak fulltextovy index vytvorit.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
-----Original Message-----
From: RADIK(zv)p15.monet(tec)cz [mailto:RADIK(zv)p15.monet(tec)cz]
Sent: Thursday, August 20, 1998 12:50 PM
To: delphi(zv)pinknet(tec)cz
Subject: RE: Par dotazu pro SQL guru
A co tak umistit sloupec POPIS do jine tabulky, kde by byl jen popis a
odkaz do puvodni? Ta by byla velikosti srovnatelna s tim indexem a slo
by ji sekvencne prochazet na substring.....
Ales
----------
Od: Zdenek Prantl
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Par dotazu pro SQL guru
Datum: 20. srpen 1998 9:35
Dobra rozvinu trochu puvodni myslenku:
Dejme tomu, ze ta tabulka TABLE_A (jak jsem psal) ale ma vic polozek a
celkova delka jednoho zaznamu je 1 kB. Pri 100.000 vetach je to 100 MB
tabulka. Index INDEX_1 tabulky TABLE_A obsahuje pouze polozku POPIS
(VARCHAR[40]), tj. 40 B (Pro puntickare, kteri by chteli okamzite psat,
ze to
neni 40, ale napr 45, podotykam je to mozne, nevim presne jak jsou
indexy
zapsany). 100.000x40= 400 kB. Tak se snazim rict pres SQL, ze neni nutne
prochazet tech 100 MB dat vetu po vete, vybrat z ni poplozku POPIS a tu
kontrolovat, ale ze staci projit 400 kB INDEXU_1 (naprosto stejnym
zpusobem
jako bych prochazel data, protoze ta polozka POPIS je v indexu cela).
Takovy
dotaz by mel byt daleko rychlejsi, uz diky usetrenym pristupum na disk.
Nebo
se pletu?
>
> Neviem si predstavit zapis indexu v SQL, ktory by dokazal indexovat
podla
> moznych substringov.
Nejde o indexovani podle substringu, ale o moznost hledat substring v
indexu.
ZdeP
prantl(zv)ptc.pvt(tec)cz
ako zavriet
[*] Fifa <lisi(zv)sh.cvut(tec)cz> - 20.8.1998 14:07:28
> CautePredstavte si nasledujuci problem, vytvorim program kde hned po
> spusteni v form1.create testujem ci su splnene urcite podmienky, v
> pripade ze tieto podmienky niesu splnene ma sa aplikacia pomocou
> prikazu close ukoncit. Ked tento prikaz pouzivam hned v form1.create
> tak program ho ignoruje, prteskoci ho a aplikacia pokracuje smelo
> dalej. Poradte mi ako ju ukoncit hned v create bez pouzitia timeru.
Snad Application.Terminate.Kolar Lubor - Re Help
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.8.1998 14:23:18
Nevim, jestli je to vtip, nebo co, ale "neco" mi rika, ze AP je Async Profesional. Jsem v konferenci asi mesic, mozna sest nedel- takze me klidne muzete povazovat za zelenace, nebo ucho, ale zpusob, jak se nekteri lide stavi k problemum (osocuji se navzajem, jsou jizlivi a podobne) mi vadi a musim rici, ze jsem si myslel, ze tato konference bude "o necem jinem", totiz o Delphi, kde se od odborniku dozvim nove informace, kde budu moci sve zkusenosti pouzit k tomu, ze nekomu pomuzu s jeho problemem a budu ocekavat, ze nekdo totez udela pro mne. Tim samozerejme nerikam, ze mi nikdo nepomohl nebo tak, ale zda se mi, ze se tu stale casteji objevuji veci, ktere s Delphi nemaji nic spolecneho (napr. tento dopis-uvedomuji si to).
Nekdo tu kdysi napsal, ze pan Z. nikdy s nicim nikomu nijak nepomohl - toto nebudu posuzovat, ale ze cituji "Mozna nam tu pan Z. poradi komponentu AP :-)" by bylo Buh vi jak plodne ....
Tak uz toho sakra nechte !!!
A aby to nebylo tak moc off topic, tak nevite nekdo, jak jednoduse vynasobit dve cisla (napr 10 a 12) ???
Metodu
J:=0;
for I:=1 to "Prvni cislo" do
Inc(J,"Druhe cislo")
tu znam, neco jednodussiho neni ?
:-)))))))))
Dobra.
----------
Od: Petr Provazn�k[SMTP:amcom(zv)grendel(tec)cz]
Odesl�no: 20. srpna 1998 0:43
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Kolar Lubor - Re Help
-----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
...ako zavriet
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.8.1998 14:52:11
Myslim si, ze uzavrit neco, co se tvori, dost dobre nejde (kdyz se stavi dum, nejde dum zbourat), proto to nefunguje, ale bud se da misto v OnCreate udelat v OnShow nebo v OnActivate, ale nasilne to jde udelat Application.Terminate, nebo dokonce (ale to je extrem) Application.Free nebo Application.Destroy, ktera ma uzavrit vsechny instance a uvolnit pamet - vrele nedoporucuji.
Uz jsem to psal, ja to kontroluju primo v projektu a kdyz je to OK, pak teprve vytvarim hlavni formular a spoustim Application.Run.
Dobra.
----------
Od: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
Odesl�no: 8. srpna 1998 13:29
Komu: Delphi
P�edm�t: ako zavriet
Caute
Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto podmienky niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked tento prikaz pouzivam hned v form1.create tak program ho ignoruje, prteskoci ho a aplikacia pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v create bez pouzitia timeru.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
funkce nahodne cislo 2
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.8.1998 15:05:07
Tohle taky NENI nahodne cislo, nemuzu preci rici dej mi cislo a kdyz se mi nebude hodit, chci jine. Predstavte si extremni situaci, kdybych chtel nahodne cislo od 10000000 do 10000010, potom by mi vyraz A:=10000010; A:=Random(A); (jak uvadite) vratil temer vzdy cislo mensi nez 10000000 a tak bych TForm1.Pocital a TForm1.Pocital a TForm1.Pocital ....
Co Vam vadi na Nahodne cislo od 10 do 20:=Dolni Mez + Random(Horni mez - Dolni mez + 1) ???
Dobra.
----------
Od: Pospisil Tomas[SMTP:Pospisil(zv)Chv.pvt(tec)cz]
Odesl�no: 20. srpna 1998 8:40
Komu: 'DELPHI Distribution List'
P�edm�t: RE: funkce nahodne cislo 2
Omlouvam se to jsem si uvedomil pozde.
Posilam nahradni reseni i kdyz neco podobneho uz tu bylo urcite receno nekolikrat.
procedure TForm1.Pocitej;
var
A: Integer;
begin
Randomize;
A := 20;
A :=Random(A);
if A<10 then Pocitej
else
Edit1.Text:=IntToStr(A);
end;
Pospa
> -----P�vodn� zpr�va-----
> Od: Dobromil Mal� [SMTP:Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 19. srpna 1998 13:28
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: funkce nahodne cislo 2
>
> 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.
> >
> >
> >
Uvodni stranka
[*] lnovy(zv)unicos(tec)cz - 20.8.1998 15:24:38
Zdravim,
neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
Za jakoukoliv radu dekuju.
Lubos Seriove cislo ?
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 20.8.1998 15:27:53
Jsem rad, ze produkty TurboPower budou dal dostupne na
nasem trhu. Ja to neprodavam, tekze si troufnu napsat,
ze uz dlouho pouzivam ruzne produkty TurboPower a se vsemi
jsem byl vzdy velmi spokojeny. Jsou to kvalitni produkty
a maji vybornou technickou podporu.
>
> No to vim zcela jasne - protoze TP zmenil obchodni podminky
> a proste se to moc nevyplati - velke postovne, mala provize,
> hodne prace a malo zakazniku. Nebudu to rozvadet do konference,
> kde si nekolik lidi mysli, jaky je to rejzak - pripadne
> osobnim e-mailem.
>
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
ako zavriet
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 15:34:15
> Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni =
> v form1.create testujem ci su splnene urcite podmienky, v pripade ze =
> tieto podmienky niesu splnene ma sa aplikacia pomocou prikazu close =
> ukoncit. Ked tento prikaz pouzivam hned v form1.create tak program ho =
> ignoruje, prteskoci ho a aplikacia pokracuje smelo dalej. Poradte mi ako =
> ju ukoncit hned v create bez pouzitia timeru.
Rozhodne to ukonci okamzite metoda Application.Terminate, pripadne
by mozna mohlo fungovat Halt(x). Dalsi moznost je si neco nastavit
(promennou) a pak nasledne udelat Close v OnShow.
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 ===
==============================================================www.PBear.com
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 20.8.1998 16:01:33
Nazdar!
Nevite nekdo, jak v Delphi udelat tzv. Splash Screen (obrazovku, ktera
se ukaze behem spousteni aplikace)?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
funkce nahodne cislo - konec
[*] heinisch(zv)post(tec)cz - 20.8.1998 17:06:00
Dekuji vsem za podnetne navrhy k tvorbe,uz na zaklade prvnich z vasich rad
jsem zjistil ze jsem peknej v.l
Velke diky za rady
mene jiz za vyse uvedene zjisteni
Zaroven vam posilam tuto funkci v konecne (zatim) podobe
***
function GetRandomRange(const Min,Max:integer;const VcetneMax :
boolean):integer ;
begin
// Min,Max - Rozsah cisel
// VcetneMax - Priznak zda do rozsahu zahrnovat i Max
Result:=Random(Max-Min+ShortInt(VcetneMax))+Min;
end;
***
BDE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 17:47:28
> Skus BDE 4.51, je na internete u Borlandu, a funguje to iba s Access 98.
Funguje to i s Access 95, staci zmenit DLL.
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 ===
==============================================================Piraty zastrelit !!!
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 17:47:28
Lubore,
timto mailem zde koncim na toto tema, protoze jiz nema nic spolecneho
s Delphi, obtezujeme se tu akorat navzajem.
> > Okradeny o nic neprijde? To je tvuj nazor, mas na nej pravo,
> > kazdy si muzeme myslet i rikat, co chceme. Ale jinak je to
> > naprosta hloupost.
> Dobra, ptam se te: o co tedy prijde, krome te moznosti na to piratovi
> vydelat?
Je mi jasne, ze to nemuzes stale pochopit, ale je to tak. Nejde vubec
o to, zda by si to nekdo koupil nebo ne. Uvedom si jednu vec - software
je smlouva. Ja ti davam pravo pouzivat program, ktery jsem vytvarel
a na kterem jsem pracoval, ktery me stal mnoho penez a usili. za to
si od tebe vezmu penize. Pokud se takto domluvime, das mi penize
a muzes produkt pouzivat. Pokud mi program ukradnes, pouzivas ho
nelegalne, pak jsi za nej nezaplatil. V tuto chvili je jedno, zda bys
kdy vubec byl nebo nebyl ochoten zaplatit, to neni podstatne. Tady
je podstatne, ze jsi prave zacal pouzivat muj program a tedy bys mel
zaplatit - obrazne receno prave jsme vstoupili do vzajemneho vztahu,
ty pouzivas muj program a musis okamzite zaplatit. Pokud nezaplatis,
pak jsi zlodej. Proste jsi me prachsproste okradl. Jako kdyz si vezmes
zbozi na fakturu - odebral jsi zbozi a nezaplatil. To je jedno, ze
to nevidis, kdyz je to program - zacal jsi ho pouzivat, pristupujes
na dohodu "platit", ale neplatis. Pokud pojedes autobusem nebo
vlakem zadarmo, nekoupis si jizdenku, jsi zlodej. Jiste, ten vlak
ci autobus take pojede i bez tebe, myslis si, ze jsi je o nic
nepripravil. Ale pripravil - pouzivas jejich sluzbu a neplatis.
Je uplne jedno, co si myslis ty, tady je dulezity autorsky zakon,
ktery je zcela jednoznacny. Pouzivas dilo, aniz jsi zaplatil aurovi
autorsky poplatek za vyuziti dila.
> > tom jeste vydelava. Pokud mi 1.000 piratu bude pouzivat tuto
> > moji aplikaci v prodejni cene treba 1.000 Kc, okradli me
> > o 1 milion. Je jedno, jestli bych ty penize dostal nebo ne,
> Tak to je blbost. Jestlize to tech 1000 piratu pouziva, teoreticky mas
> usly zisk 1 milion (teoreticky usly zisk proto, ze zdaleka ne kazdej
> pirat by to koupil, kdyby to neslo ukrast). Nauc se delat rozdily mezi
> pripadnym uslym ziskem a okamzitou financni ztratou.
Tady je nazorne videt, ze do toho nevidis. Tento milion je zcela
jasne usly zisk, financni ztrata. Zadne teoreticky zde neplati.
V okamziku, kdyz zacnes pouzivat muj program, musis mi zaplatit
autorsky poplatek. Pokud sis to nekde nakopiroval, to je jedno,
odmena mi nalezi. Takze v okamziku prvniho pouziti mi musis
zaplatit. A protoze jsi nezaplatil, krades. Vlezes do vlaku,
musis zaplatit, jinak krades. Tve argumenty, ze by sis to nikdy
nekoupil, jsou totozne se zlodejem, ktery tvrdi, ze kdyby Mercedes
nesel ukrast, neukradl by ho. Sluzba, uziti dila, to je naoko
trochu neco jineho nez zbozi, ktere si muzes osahat. Ale pokud
mas zaplatit za sluzbu nebo uziti dila, pricemz nezaplatis,
me vznika ztrata a ty jsi zlodej. Hypotezy, zda by si to nekdo
koupil nebo ne, jsou liche a nemaji se samotnym aktem kradeze,
jinak take trestneho cinu, pokud to dosahne urcite castky,
zadnou souvislost.
> Dam ti jinej priklad: Kdyz das zadarmo skolam tvuj software, u kteryho
> urcis cenu napr. 100.000, muzes si to odecist z dani jako dar? To tezko.
Opet je zde nazorne, ze do toho nevidis. Jednoznacne ANO, muzes si
to odecist jako dar.
> Protoze tebe ten dar 100.000 urcite nestal, protoze soft je uz jednou
> hotovej, tak mas naklady max. media. To je obrovskej rozdil mezi
> fyzickym a dusevnim vlastnictvim.
Zase nemas pravdu. Je jedno, zda je to dusevni nebo fyzicke vlastnictvi.
Je to jen malinko jine. Ty si predstavujes fyzicke vlastnictvi jako ze
koupis lopatku, pridas marzi a prodas lopatku. Ale toto je vyroba, to
je neco jineho nez nakup-prodej. Vezmeme si priklad:
1. Vyroba mikroprocesoru. Delas vyvoj a to trva 5 let, platis inzenyry,
sekretarky, proste team lidi, ktery vyviji mikroprocesor, platis prostory,
pocitace, elektriku a dalsi veci. Naklady jsou treba 2 miliardy.
Pak postavis tovarnu, co muze takova tovarna stat? Treba 3 miliardy.
Mas naklady 5 miliard a jeste jsi nevydelal ani korunu, ale uz jsi
musel 5 let platit zamestnancum, prostory, elektriku, musel jsi
postavit vyrobni linky apod. Nakoupis material, ktery stoji rekneme
100 milionu a z toho se da vyrobit treba 10 milionu procesoru. Kdyz
tato dve cisla podelim, vyjde mi 10 za jeden procesor. Nepocitam zde
praci tech lidi, elektriku apod. Takze chces nam tady vykladat, ze
cena procesoru je prece 10 korun, protoze prece tovarnu uz mas
postavenou, vyvoj je take ukonceny, linka chrli procesory automaticky,
bez dotyku ruky... ano, to jsou tve nazory. Ja tady ale vidim
naklady 5.100.000.000 korun na 10.000.000 procesoru - velmi zjednodusene
a bez dalsich nakladu. To je 510 korun za procesor. Dale ale jsou
tu ucetni, sekretarky, pracovnici marketingu, baleni...
2. Software. Mam know-how, ktere sbiram treba 20 let, delam vyvoj
a to trva 1 rok, platim programatory, ucetni, kupuji si hardware,
kupuji si software, knihovny, programovaci nastroje, informace,
casopisy... Mam naklady treba nekolik milionu. A pak mi budes
tvrdit, ze stejne jako procesor je za 10 korun, je muj program
docela zadarmo, protoze prece je to jen otazka kopie cisilek?
Lubore, jsi vedle jako jedle a uprimne receno mi neni jasne, jak
muzes byt programatorem, kdyz nechapes takove zakladni veci.
> Nebo este jinak (ad absurdum). Jestlize mi shori kancl, ve kterem mam
> vsechny moje aplikace a zdrojaky k nim, shori i ta skrin, ve ktere mam
> zalohy, uzna mi pojistovna, ze bych jich mohl prodat treba jeste 10.000
> a tak jsem prisel o 10milionu (bran onen uvodni priklad)? Max. dostanu
> zaplacenou cenu vyvoje, cili abych si napsal zdrojaky znova.
Nedostanes zaplaceno nic, ani zadnou cenu vyvoje. Pokud se ti toto
stane, pak jsi moula, ze sis ty zdrojaky neschoval do banky, tak
jako to delam ja. Ale odpovim ti na jinou otazku, kterou jsi mi
nepolozil. Ano, az v teto zemi budou alespon nejake zakony fungovat
tak, jak by mely, pak pokud ukradnes muj program s koncovou cenou
za 100.000 korun, pujdes sedet na nekolik let za mrize a tech
100 tisic mi zaplatis. A pak muzes nekomu vykladat, ze by sis to
prece nikdy nekoupil...
> Tak to me pouc, co to je za programy, jejichz upgrady stoji statisice
> rocne. Vybaveni meho pocitace mne prislo na cca 20kKc, NTcka a Delphi
Pokud te vybaveni pocitace stalo 20 tisic korun, pak se ti nedivim,
ze vyvijis zadarmo a je ti srdecne jedno, jestli sinekdo nakopiruje
1.000x tvuj program. Tak ti mohu s klidem sdelit, ze 20 tisic me
stalo MSDN Professional, coz je predplatne informaci Microsoftu
na 1 rok.
> jsou jasny, kanc. balik 602proPC mam jako partner zadarmo a zbytek jsou
> ruzny freewary apod. Jako DOS pouzivam bud NT session, popr. Caldera DOS.
> Proto se velmi divim, ze tvoje vybaveni stoji takovej majlant, a tak
> silene drahy upgrady, zajimava je take pripadna nutnost upgradu. Napr.
> prinutit mne upgradovat Office95 na 97 by se nepovedlo nikomu, protoze
> za tak sileny prachy je nic moc novyho (krome sponek a jinejch ptakovin).
Ale me je prece jedno, jestli si upgradujes z Office 95 na Office 97
- ono asi ani nemuzes, kdyz se ti do tech 20 tisic uz neveslo...
Ja mam Office 95 Professional a Office 97 Professional. Ber to tak,
ze pokud mas 602proPC zadarmo, ja ti otevrene rikam, ze bych si to
na pocitac nedal ani zadarmo, protoze WinText neni textovy editor.
(a) mam trochu jine pozadavky na software, (b) potrebuji byt
kompatibilni a (c) potrebuji, aby to aspon trochu delalo to, co to
delat ma. Pokud ti tvuj software poskytuje nastroje pro tvou praci,
pak je to naprosto v poradku a ja nemam nic proti. Ja jsem nerika,
ze kazdy ma naklady statisice rocne. Ja jsem psal, ze ja investuji
do software rocne statisice. Tamhle muj kamos, co hraje hry, nema
vubec zadne naklady...
> Nebudu (zatim) upgradovat na Delphi 4, protoze ja ty nove moznosti ani
> nevyuziju a s tou moji si vystacim.
Me je prece jedno, jestli ti staci Delphi 1 nebo notepad. Me nestaci
Delphi 1 a proto mam takove naklady, jako mam.
Lubore, ja ti tady nebudu vykladat, co mam vsechno za software, protoze
by to byl radne dlouhy seznam. Tato konference o tom neni a mnoho lidi
to ani nezajima. Me investice do software si ridim na zaklade pozadavku
a financnich moznosti, rozhodne neprestanu pouzivat Office 97 jen proto,
ze tobe staci 602proPC, rozhodne neprestanu pouzivat FrontPage 97 jen
proto, ze tobe staci FTP, rozhodne neprestanu pouzivat Windows
Commander jen proto, ze Vokov je zadarmo, rozhodne neprestanu pouzivat
Delphi 4 jen proto, ze v Borland Pascalu se da take jeste neco udelat,
rozhodne na server nedam Win95 misto WinNT Server jen proto, ze to
take bezi, nevyhodim knihovny pro Delphi za desetitisice jen proto,
ze na Internetu se najde leccos zadarmo... a tak dale. Programy se
take daji psat v assembleru nebo strojovem kodu, presto mam Delphi...
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 ===
==============================================================Sybase SQL Anywhere 5.5 pro Windows 3.1
[*] Boris Pe�ka <baris(zv)email(tec)cz> - 20.8.1998 18:40:30
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim !
Nemate nekdo demoverzi Sybase SQL Anywhere 5.5 pro Windows 3.1, nebo alespon ODBC driver ?
Boris
Moje neznalost, nebo hloupost s TSHAPE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 18:45:10
Nosek Libor wrote:
>
> Dobry den.
> Presel jsem z D1 na D3 a mam tento problem.
> Do formulare jsem si vlozil TPANEL, upravil k memu pozadavku a do nej TSHAPE na ktery chci malovat
> nejake kresby zpusobem moveto, lineto, textout, atd. (Podotykam, ze v D1 mi to chodilo bez problemu).
> Chci-li namalovat byt treba jen prostou caru, z bodu A do bodu B, tak cara se sice namaluje, ale mimo prostor
> TSHAPE (tedy bokem) ne v oblasti kde mam TSHAPE umisten. Samozrejmne pro malovani pouzivam metodu
> with TSHAPE,canvas do
> begin
> - tady maluju -
> end;
Ahoj,
kam jsi ale umistil to sve malovani ? Vzdyt TPanel ani TShape nema zadnou
udalost OnPaint, nebo sis odvodil novou komponentu od TShape ? Mozna by
bylo lepsi pouzit TPaintBox a do nej si to cele nakreslit.
Petr Vones, amatersky programator
Instalacia D4.0 na winNT 4.0
[*] Lubo Fule <fule(zv)sct.sk> - 20.8.1998 18:47:26
Jasne...
Kazdopadne s cipom S3 su problemy vo vseobecnosti, napr. PENTIUM II nebude
fungovat s nijakou kartou, ktora ma cip S3...
S pozdravom
Lubo Fule
> -----Original Message-----
> From: Jan Fiala [mailto:fiala(zv)iname.com]
> Sent: Wednesday, August 19, 1998 6:06 AM
> To: DELPHI Distribution List
> Subject: Re: Instalacia D4.0 na winNT 4.0
>
>
> 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
> >>
>
>DBF soubory a indexy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 18:50:40
RADIK(zv)p15.monet(tec)cz wrote:
>
> 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?
Ahoj,
jestli jsem to dobre pochopil tak ta puvodni aplikace co plni ty data
bezi v DOSu ? Me spis desi jak chces vyresit sdileni kdyz pises ze chces
do tech dat i neco zapisovat. Nebylo by mozne to resit tak ze by si
v nejakych casovych usecich ty data importoval do nejake sve vlastni
aplikace. Popripade tu puvodni zrusil a napsal znova, vyhnes se tak asi
ruznym neprijemnym problemum.
Petr Vones, amatersky programator
Viceradkova paleta komponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 18:53:13
Michal Cizek wrote:
>
> Ahoj
>
> jak uz asi tusite podle predmetu zpravy, chtel bych se zeptat jestli nekdo
> nevite o utilitce ktera by umela zaridit aby paleta komponent byla
> viceradkova.
> V Delphi 3 to umely tusim Tools od AHM a utilitka od Marka Cantu.
> Ale at hledam jak hledam k Delphi 4 jsem ji jeste nikde nevidel.
> Jestli o ni nekdo vite, prosim poradte.
Ahoj,
neco takoveho jsem kdysi videl v GExperts, ale nevim jestli to existuje
i pro Delphi 4.
Petr Vones, amatersky programator
Uvidni obrazovka
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 20.8.1998 18:54:08
> -----Original Message-----
> From: lnovy(zv)unicos(tec)cz [SMTP:lnovy(zv)unicos(tec)cz]
> Sent: Thursday, August 20, 1998 1:50 PM
> Subject: Uvidni obrazovka
>
> Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
> "reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
>
> videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
> dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
Priklad najdes u sebe na disku v adresari \DELPHI\DEMOS\DB\MASTAPP\
( tedy pokud mas nainstalovane Delphi v adresari DELPHI 8-)
ZdeP
BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 18:57:05
Richard Willmann wrote:
>
> ok,
>
> to som uz urobil ale naozaj nikto nevie ci NIEKDE NA SIETI nieje navod na
> instalaciu BDE?
Ahoj,
nevim sice pro jaky ucel potrebujes svoji instalaci BDE, ale jak tak
sleduju tu diskuzi tak nevim proc nepouzijes InstallShield ktery je
soucasti Delphi. Pomoci neho to jde pomerne dobre.
Petr Vones, amatersky programator
Kolar Lubor - Re Help
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 20.8.1998 19:02:55
> -----Original Message-----
> From: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] On Behalf Of
> Dobromil Mal�
> Sent: Thursday, August 20, 1998 2:23 PM
> Subject: RE: Kolar Lubor - Re Help
>
> muzete povazovat za zelenace, nebo ucho, ale zpusob, jak se nekteri
lide
> stavi k problemum (osocuji se navzajem, jsou jizlivi a podobne) mi vadi
a
> musim rici, ze jsem si myslel, ze tato konference bude "o necem jinem",
Ona je, jenom obcas se tady strhne nejaka bourka. Ale byva to malokdy. A
velmi rychle zase odejde.
Naposled tu byla nekdy zacatkem roku, kdyz jeden z ucastniku konference
rozeslal kazdemu 8 MB dat.
Poslal totiz do konference update na MS SQL server 8-). To ti byla
"sranda"...
Tak nezoufej a vydrz.
> Tak uz toho sakra nechte !!!
Uvidis. Ono se to zase uklidni.
> A aby to nebylo tak moc off topic, tak nevite nekdo, jak jednoduse
vynasobit
> dve cisla (napr 10 a 12) ?
Na papire ? 8-)
ZdeP
Uvidni obrazovka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 19:24:29
lnovy(zv)unicos(tec)cz wrote:
>
> Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
> "reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
> videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
> dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
Ahoj,
lze to udelat tak ze primo v souboru projektu na zacatku vytvoris to
okno, zobrazis jej a tesne pred Application.Run jej uvolnis. Tento
postup je pouzit treba v Delphi demo aplikaci v \Demos\Db\Mastapp.
Jinak duvtipne to vyresil Vitezslav Gazda ve sve komponente TStartDialog
kterou nejdes na jeho strance, odkaz na ni je v odkazech konference.
Petr Vones, amatersky programator
Disk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 19:30:02
Dobromil Mal� wrote:
Ahoj,
> No, mam 2,5 GB disk rozdeleny na tri (vsechny pod 1GB), takze mam jeden
> alokacni blok "jen" 16kB, ale myslel jsem, ze problemy bych mel, pokud bych
^^^^^^^^^^
s FAT32 mas standartne 4k.
> pouzil treba DOS 6.22 a hlavne se snazil pouzit nejaky DiskEditor nebo nejaky
> ten nastroj a potom zase chtit zavest Win95.
Jiste, pokud by jsi pouzil nejaky nastroj na defragmentaci disku apod
tak by to asi nedopadlo dobre, ale na druhe strane tyto nastroje vetsinou
ocekavaji disk ve formatu FAT16 a kdyz zjisti jiny tak by meli ohlasit
chybu a dale nic neprovadet. Navic si myslim ze nastroje dodavane s
Win95 (ScanDisk, Defragmentace) pro vetsinu cinnosti postaci a nove
verze podobnych programu od dalsich firem budou urcite podporovat FAT32.
Podle mne je FAT32 jedna z veci ktera je prinosem a navic s ni nejsou
zadne potize, pouzivam to jiz pres rok bez nejmensich problemu. Coz
nelze rici treba o "online" komprimaci disku, takovou vec si asi zapne
opravdu jen blazen...
Petr Vones, amatersky programator
Uvidni obrazovka
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 20.8.1998 20:08:24
> Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
> "reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
> videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
> dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
Rika se tomu _splash screen_ , staci se podivat na nejake priklady,
tusim, ze je i u Delphi, nebo kouknout treba na DSP.
*-----------------------------------------------*
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
*-----------------------------------------------*Uvodni stranka alias Splash Screen
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 20.8.1998 20:24:19
Tak jsem nasel drivejsi rady v archivu, prikladam:
==================================================
Od: "Petr Studeny" <studeny(zv)olympo(tec)cz>
Organizace: Olympo Controls
Komu: delphi(zv)io.pinknet(tec)cz
Datum odesl�n�: Mon, 20 Apr 1998 17:27:31 +0100
V�c: Re: Zobrazeni loga
Priorita: normal
Po�tovn� prog.: Pegasus Mail for Windows (v2.53CZ/R1)
Odpov�� kam: DELPHI Distribution List <delphi(zv)pinknet(tec)cz> Jak jsem to kdysi delal.
Staci do Project source aplikace pridat pred zakladani jednotlivych
formularu a pod. zalozeni a zobrazeni jednoho formulare ve forme okno
bez listy, dat tam obrazek a po zobrazeni hlavniho formulare ho
klouznout a zrusit. Bylo by to asi takto:
begin
OldHwnd := 0;
EnumWindows ((zv)EnumWndProc, Longint ((zv)OldHwnd));
if OldHwnd = 0 then
begin
LoadingFormular := TLoadingFormular.Create(Application);
LoadingFormular.Show;
LoadingFormular.Update;
Application.Title := 'XXXXXXXXXXXXXXX';
Application.HelpFile := 'XXXXXXX';}
Application.CreateForm(THlavniFormular, HlavniFormular);
.
.
.
.
Application.Run;
end
else
begin
if (not IsWindowVisible (OldHwnd)) then
PostMessage (OldHwnd, wm_User, 0, 0);
SetForegroundWindow (OldHwnd);
end;
Pridat do udalosti Show formulare THlavniFormular
- Uzavreni a uvolneni LoadingFormular
At se dari
> Date: Mon, 20 Apr 1998 12:51:47 +0200
> From: Martin OCENAS <mocenas(zv)isternet.sk>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Subject: Re: Zobrazeni loga
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> V demo aplikaciach je program Splash
>
> martin
>
> �uhel Petr wrote:
> >
> > Ahoj delhisti,
> >
> > chtel bych aby pri spousteni programu bylo zobrazeno nejake logo
> > programu (co nejdrive po nahrani programu z disku) a potom teprve aby se
> > vytvarely dalsi formulare. Pokud je totiz v hlavnim formulari nejaky dotaz,
> > trva pomerne dlouho nez se tento formular zobrazi. Nejake reseni uz mam, ale
> > zda se mi pomerne nesikovne.
> >
> > Diky za kazdou moudrost
> > Bye Petr
> >
> >
>
>
----------------------------------------------------------------
Petr Studeny
OLYMPO controls Ltd. e-mail: studeny(zv)olympo(tec)cz
Havrankova 33, 619 00 Brno phone: +421-05-43216101-11
----------------------------------------------------------------
=================================================================
> From: lnovy(zv)unicos(tec)cz
> Date: Thu, 20 Aug 1998 15:24:38 +0200
> To: delphi(zv)pinknet(tec)cz
> Subject: Uvodni stranka
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
> "reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
> videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
> dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
>
*-----------------------------------------------*
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
*-----------------------------------------------*Instalacia D4.0 na winNT 4.0 a S3 grafika
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 20.8.1998 20:27:35
> 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
Neodvazoval bych se neco takoveho tvrdit, podle testu
vychazi VIRGE asi 2-3x rychlejsi v 2D rezimu nez Trio64.
Tezko asi bude mit stejne 2D jadro.
> ---------------------------------------------------------------
> 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
> >>
>
>
>
*-----------------------------------------------*
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
*-----------------------------------------------*Uvidni obrazovka
[*] Milan <milk(zv)milk(tec)cz> - 20.8.1998 21:20:04
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
>"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by
byla
>videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
>dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
Ja to resim dost primitivne, mam napriklad form jmenem Splash a do souboru s
priponou DPR primo vpisu tenhle kod.{tohle vpisuju ja}
Splash := TSplash.Create(Application);
Splash.Show;
Splash.Update;
{tohle tady uz bylo}
Application.Initialize;
Application.Title := 'SPZ';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TDB_Auta, DB_Auta);
.....
{opet vkladam ja}
Call_Splash.Hide;
Call_Splash.Free;
{tohle tu bylo}
Application.Run;
...
Milan Kunes
Milk Computer Systems
ako zavriet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 21:21:32
> Caute
> Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v > form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto podmienky > niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked tento prikaz > pouzivam hned v form1.create tak program ho ignoruje, prteskoci ho a aplikacia > pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v create bez pouzitia > timeru.
Ahoj,
V zasade jsou dve moznosti, prvni je primo v souboru projektu nejakou funkci
testovat zdali se ma cela aplikace spustit nebo ne. Tento zpusob ma vyhodu
v tom ze se nezacnou vytvaret jednotlive formure a hlavne pripadne datove
moduly aplikace, tudiz se to ukonci okamzite.
Pokud to chces ale udelat az v OnCreate formulare, tak pak to lze udelat treba
takhle:
procedure TForm1.FormCreate(Sender: TObject);
begin
if NECHCI_TO_SPUSTIT then
begin
Application.ShowMainForm := False; // timto zabranis probliknuti hl.formulare
Application.Terminate; // toto ukonci aplikaci tim ze ve skutecnosti zavola
// CallTerminateProcs a PostQuitMessage(0)
end;
end;
Teoreticky to muze mit ten problem ze volani CallTerminateProcs uvolni neco
co by mohli treba potrebovat ostatni formulare ktere se vytvareji a zpusobi
tak chybu. Nicmene jedine misto kde se v Delphi vola procedura AddTerminateProc
je v unitu ComServer, takze to lze v OnCreate pouzit relativne bezpecne.
PostQuitMessage(0) umisti do fronty zpravu WM_QUIT takze Application.Run se
vlastne hned ukonci. Petr Vones, amatersky programator
Sybase SQL Anywhere 5.5 pro Windows 3.1
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.8.1998 22:20:12
> Nemate nekdo demoverzi Sybase SQL Anywhere 5.5 pro Windows 3.1, nebo =
> alespon ODBC driver ?
Ja mam nekde demoverzi, protoze nez jsem si to koupil,
tak jsem si to na ni vyzkousel. Ale ted si nejsem
jisty, zda je to verze 5.0 nebo 5.5. Je to na CD, mohl
bych ti kus okopirovat, kdyz je to demo, ale lepsi
bude, kdyz zavolas do SYBASE Praha, oni ti ho obratem
poslou zadarmo. Najdes tam demo pro vsechny verze
operacnich systemu.
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 ===
==============================================================Textov� editor
[*] �ke��k Jaroslav�������6�����̿ - 20.8.1998 22:30:58
Potrebuji textovy editor, ktery by byl schopnejsi
nez dbRichEdit. Zadane jsou funkce zarovnavani do
bloku, cislovani, vkladani jednoduchych tabulek,
strankovani, jazykova kontrola a pod. Staci format RTF.
Pokud nekdo pouziva schopnejsi editor vlastni
nebo cizi vyroby a je s nim spokojen, ozvete se
prosim nebo sprostredkujte kontakt.
Pripadne vlastni upravy nebo vyvoj je mozne
tez financovat.
Stranky Memo WriterPro jsou jiz delsi dobu
nepristupne. Nevim co se s timto editorem stalo.
Visual Components se dle sdeleni zastoupeni
prestaly prodavat. Jine typy jsem nenasel.
Jaro
jaro(zv)sinea(tec)cz
New face
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 22:47:17
roman.palarcik(zv)spt(tec)cz wrote:
>
> Zdravim vsechny,
> zacal jsem delat takovy programek s netradicnim ovladanim a chtel bych
> k tomu pridat i trochu netradicni vzhled. Dal jsem tam tlacitkum vzhled
> Flat, ale nelibi se mi vzhled ComboBoxu. Zkusil jsem si to nakreslit
> jak by to mohlo vypadat, ale nevim jak to udelat. Muzete mi nekdo
> poradit jak to udelat ?
> Prikladam obrazek jak bych si to predstavoval (nebojte se je to kratke).
Ahoj,
slo by to udelat tak ze si odvodis novou komponentu a v ni upravis vykreslovani
ComboBoxu. Nevypada to sice tak jak sis to nakreslil, ale muzes se tim treba
inspirovat. Tak trochu me prekvapuje ze to funguje :-) takze pokud mas moznost
tak to prosimte vyzkousej treba i na NT....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TXYComboBox = class(TComboBox)
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
end;
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
with TXYComboBox.Create(Self) do
begin
Parent := Self;
Left := 40;
Top := 30;
Color := clWhite;
end;
end;
{ TXYComboBox }
procedure TXYComboBox.WMPaint(var Msg: TWMPaint);
var
DC: HDC;
PS: TPaintStruct;
OldBrush, FillBrush, BtnBrush, ArrowBrush: HBRUSH;
OldPen, FillPen, ArrowPen: HPEN;
R: TRect;
Arrow: array[0..2] of TPoint;
begin
if Msg.DC <> 0 then inherited else
begin
R := ClientRect;
DC := BeginPaint(Handle, PS);
Perform(WM_ERASEBKGND, DC, DC);
FillBrush := CreateSolidBrush(ColorToRGB(Color));
BtnBrush := CreateSolidBrush(ColorToRGB(clBtnFace));
ArrowBrush := CreateSolidBrush(ColorToRGB(clWindowText));
FillPen := CreatePen(PS_SOLID, 1, ColorToRGB(Color));
ArrowPen := CreatePen(PS_SOLID, 1, ColorToRGB(clWindowText));
OldBrush := SelectObject(DC, FillBrush);
OldPen := SelectObject(DC, FillPen);
Dec(R.Right, 17);
FillRect(DC, R, FillBrush);
R.Left := R.Right;
R.Right := R.Left + 17;
R.Bottom := R.Top + 3;
FillRect(DC, R, FillBrush);
R.Bottom:= ClientRect.Bottom;
R.Top := R.Bottom - 3;
FillRect(DC, R, FillBrush);
MoveToEx(DC, R.Left, 0, nil);
LineTo(DC, R.Left, R.Bottom);
MoveToEx(DC, R.Right - 1, 0, nil);
LineTo(DC, R.Right - 1, R.Bottom);
R.Top := 0;
InflateRect(R, -1, -3);
FillRect(DC, R, BtnBrush);
SelectObject(DC, ArrowBrush);
SelectObject(DC, ArrowPen);
Inc(R.Left, 7);
R.Top := Height div 2;
Arrow[0] := Point(R.Left - 4, R.Top - 2);
Arrow[1] := Point(R.Left + 4, R.Top - 2);
Arrow[2] := Point(R.Left, R.Top + 2);
Polygon(DC, Arrow, 3);
SelectObject(DC, OldBrush);
SelectObject(DC, OldPen);
DeleteObject(FillBrush);
DeleteObject(BtnBrush);
DeleteObject(ArrowBrush);
DeleteObject(FillPen);
DeleteObject(ArrowPen);
EndPaint(Handle, PS);
end;
end;
end.
Petr Vones, amatersky programator
MediaPlayer
[*] Slavom�r Oren��k - 20.8.1998 22:51:16
pokial pouzivam komponentu MediaPlayer a nastavim Display na
nil, spusti sa napr. nejake AVI v externom okne. Pokial pouzijem ako
Display, napr. komponentu Panel, ako mam zabezpecit aby sa velkost Panelu
prisposobila AVI sekvencii, pripadne ako nastavit aby AVI sekvencia
stretchovala do Panelu ?
Dakujem.Textov� editor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.1998 23:27:10
�ke��k Jaroslav wrote:
> Stranky Memo WriterPro jsou jiz delsi dobu
> nepristupne. Nevim co se s timto editorem stalo.
> Visual Components se dle sdeleni zastoupeni
> prestaly prodavat. Jine typy jsem nenasel.
Ahoj,
nevim presne jestli se jedna o tentyz editor, ale zde nabizeji
UDC Memo Writer Pro:
http://www.hallogram.com/udc/index.html
Petr Vones, amatersky programator
BDE 5.0 se chova jinak nez BDE 4.0
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 20.8.1998 23:44:11
Ahoj Delpfini,
pri vyvoji aplikaci jsem uzival BDE4.0.
Zupgradoval jsem na BDE5.0.
Zacali si mi v aplikacich objevovat exceptions, tak kde nikdy predtim nebyly.
Zase jsem se vratil k BDE4.0.
Berte to jako varovani pred upgradem na BDE5.0. Prikladem jest chyba "Non-blob column in table required to perform operation", o ktere jsem psal 19.8.1998.
Ladislav Nagy
BDE
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 21.8.1998 00:03:08
Vzhledem k tomu, ze BDE 5.0 se chova jinak nez BDE 4.0 tak jsem to vyresil tak, ze pouzivam BDE 4.0, k nemuz jsem si prikopiroval soubor idda3532.dll z BDE 5.0 a zmenil jsem v registry, aby se misto iddao32.dll pouzivalo idda3532.dll. Funguje to bez problemu.
Ladislav Nagy
Uvidni obrazovka
[*] Jan Fiala <fiala(zv)iname(tec)com> - 21.8.1998 06:01:07
Obvykle se to pridava do hlavniho souboru aplikace. Pokud si obrazovku
pojmenujes jako "frmSplash", zadas ji v Project/Option, aby se nevytvarela
automaticky, tak by to vypadalo asi takto :
Application.Initialize;
With TfrmSplash.Create(nil) Do
Begin
Show;
Update;
Application.CreateForm(TfrmHlavni, frmHlavni);
Free;
End;
Application.Run;
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
Jan Fiala jan.fiala(zv)iname.com
>Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
>"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by
byla
>videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
>dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
www.PBear.com
[*] �uhel Petr <cuhel(zv)diamo(tec)cz> - 21.8.1998 06:13:05
Cau,
kdysi jsem se na to psal a odkazali mne na demo aplikaci v adresari
C:\Borland\Delphi 3\Demos\DB\MASTAPP>
byl to dobry tim.
Bye
> ----------
> Od: LuborK(zv)tnet(tec)cz[SMTP:LuborK(zv)tnet(tec)cz]
> Odesl�no: 20. srpna 1998 16:01
> Komu: DELPHI Distribution List
> P�edm�t: Re: www.PBear.com
>
> Nazdar!
> Nevite nekdo, jak v Delphi udelat tzv. Splash Screen (obrazovku, ktera
> se ukaze behem spousteni aplikace)?
>
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
> Jak prevest tabulku do html
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 06:36:56
obrat se na ky(zv)aps(tec)cz, ten neco podobneho uz delal.
-----P�vodn� zpr�va-----
Od: Ing. Lubo� Langer <langer(zv)gymzn(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 19. srpna 1998 14:29
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
Par dotazu pro SQL guru
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 06:47:46
Ja bych mel pouze poznamku, ze funkce CONTAINING je case-insensitive, takze
odpada UPPER a mas po problemech a muzes si vytvorit index.
Samozrejme muzes pouzit externi funkci napsanou v C++ nebo treba i v DELPHI,
tu prelozis do DLL knihovny a pomoci DECLARE EXTERNAL FUNCTION si ji
pripojis do interbase. Je to ovsem zoufale pomale reseni, protoze volani
externi funkce je totalne zhovadile provadene a pomale.
-----P�vodn� zpr�va-----
Od: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 19. srpna 1998 15:41
P�edm�t: Par dotazu pro SQL guru
>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
Instalacia D4.0 na winNT 4.0
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 06:53:03
Caute,
s tymto nesuhlasim: v robote mame PII s S3 virge GX2 a vsetko slape v pohode
(po aplikacii Service Packu 3 :-?(
Lubo Fule wrote:
> Jasne...
> Kazdopadne s cipom S3 su problemy vo vseobecnosti, napr. PENTIUM II nebude
> fungovat s nijakou kartou, ktora ma cip S3...
>
> S pozdravom
> Lubo Fule
>
> > -----Original Message-----
> > From: Jan Fiala [mailto:fiala(zv)iname.com]
> > Sent: Wednesday, August 19, 1998 6:06 AM
> > To: DELPHI Distribution List
> > Subject: Re: Instalacia D4.0 na winNT 4.0
> >
> >
> > 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
> > >>
> >
> >
>
--
Maj sa,
R.
Instalacia D4.0 na winNT 4.0
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 06:58:44
Ahoj,
neviem, ci bude problem iba tam...
nainstaloval som tam IE 4.0 (ale anglicky ... snad to nevadi) potom som tam
napchal
to comctl32.dll z CD (ver. je 4.72.2106.4 ...) no a vysledok je:
vsetky zalozky na liste su v poriadku okrem "Standard" "Additional" "Win32" (-
preco asi :-)
a "Dialogs" (v tomto je OK vsetko okrem OpenDialog)
takze neviem - mam preplacnut este nieco ? (ci radsej preplacnem NT :-)?
Petr Vones wrote:
>
>
> 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
>
--
Maj sa,
R.
zapis z interbase do textoveho souboru
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 07:03:38
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo, jak zapisovat z INTERBASE do textoveho souboru ? Jenom ne rady typu "externi funkce".
Diky
ako zavriet
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 07:06:03
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Close sice nefunguje, ale muzes pouzit Application.Terminate;
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 12:11
P�edm�t: ako zavriet
Caute
Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto podmienky niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked tento prikaz pouzivam hned v form1.create tak program ho ignoruje, prteskoci ho a aplikacia pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v create bez pouzitia timeru.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
Disk
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 07:08:16
Caute,
iste, FAT32 je urcite prinosom, ALE ...
isty cas som nemal na vyber a na instalaciu programu som musel bravat aj HDD
(WD 1.2GB) no a u zakaznika som to pripojil k masine a prekopiroval subory...
sranda bola to, ze ten disk bol FAT32.... takze uplne podla ocakavania, nesiel
precitat tam, kde neboli win95 SR2... to bolo v pohode...
ale on bol bootovaci, takze nabootovat by mal ist vsade, nie? - ale on bootoval len
na stroji, ktory bol podobny ako ten, na ktorom bol nainstalovany (P166 - nejaka
tchaiwanska doska - ale Intel chipset :-) takze neviem, bolo to tym radicom?++nie je na NT 4.0 nejaky patch, ktory by umoznoval citat FAT32 disky?
Petr Vones wrote:
>
>
> Podle mne je FAT32 jedna z veci ktera je prinosem a navic s ni nejsou
> zadne potize, pouzivam to jiz pres rok bez nejmensich problemu. Coz
> nelze rici treba o "online" komprimaci disku, takovou vec si asi zapne
> opravdu jen blazen...
>
> Petr Vones, amatersky programator
>
s tym Stackerom by ta mal pocut jeden moj kamarat :-)
(ten by to pouzival hadam aj pod NTckami ...)
--
Majte sa,
R.
Bolo to v Uvodni stranka alias Splash Screen
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 21.8.1998 07:11:33
Nazdar!
Zaujala ma tato cast kodu:
begin
OldHwnd:=0;
EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
if OldHwnd=0 then
begin
.
Application.Run;
end
else
begin
if not IsWindowVisible(OldHwnd) then PostMessage(OldHwnd,wm_User,0,0);
SetForegroundWindow(OldHwnd);
end;
Este som sa s tym nestretol. Co to ma robit?
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Uvodni stranka
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 07:13:49
Vytvor si formular, v DPR si jeho create dej na prvni misto a pridej na nej
Show. Az aplikace skonci nacitani, zase jej zavri. Toto vymyslel velkohuby
Quast.
-----P�vodn� zpr�va-----
Od: lnovy(zv)unicos(tec)cz <lnovy(zv)unicos(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 19:15
P�edm�t: Uvodni stranka
>Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
>"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by
byla
>videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
>dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
zapis z interbase do textoveho souboru
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 07:20:51
1) a nemozes data nacitat do tabulky a potom v cykle
table.first
while not table.eof do
...
writeln(file, table['field1'].AsString+'
'+table['field2'].AsString.....);
table.next
...
???
2)pripadne sa to asi da cez BatchMove (source bude Interbase a
destination Textovy
driver na ODBC (tusim sa dodava s MSOffice (Access))
...malo by to fungovat, ale aj tak som to myslel ako vtip :-)
Jan Skopov� wrote:
>
>
> Nevite nekdo, jak zapisovat z INTERBASE do textoveho souboru ? Jenom
> ne rady typu "externi funkce". Diky
--
Maj sa,
R.
Problem s TListem
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 21.8.1998 07:21:06
Ahoj vsichni,
programuji spise v C++, ale obcas delam i neco v D3 Standard. Ted potrebuji
nejak v pameti skladovat furu objektu a pamatovat si pointery na ne. A
problem je prave s pamatovanim tech pointeru. Nasel jsem si v hierarchii
tridu TList (obdoba Cckoveho CObjectArray), do ktere jsem chtel naladovat
ty pointery. Asi takhle:
type ObjectPtr = ...
var z:TList;
pObj:ObjectPtr;
....
pObj = new(...)
z.Add(pObj)
....
Jenze ono to vzdy tvrde spadne Access violation blablabla. Zkousel jsem
dopredu definovat kapacitu toho seznamu, zkousel jsem ho nejdrive vycistit,
zkratka zkousel jsem vsechno mozne, ale pada to stale. V helpu jsem se
bohuzel nic moudreho nedocetl. Nevite nekdo, kde delam chybu ?
Diky predem
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************zapis z interbase do textoveho souboru
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 21.8.1998 07:27:42
> Nevite nekdo, jak zapisovat z INTERBASE do textoveho souboru ? Jenom ne rady
> typu "externi funkce".
Nazdar,
to by aj mna zaujimalo.
Robim to zatial cez WISQL. Napisem select, Run a Save result. Ale ma to
ten problem, ze to nejde nacitat spat do tabulky. Este som nasiel moznost
vytvorenia externej tabulky. Tam ide zapisat aj to spat nacitat, ale zasa
to nie je TXT ale typovy subor.
Chyba mi nieco ako Load a UnLoad v Informixe :(
Nevie niekto?
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Kolar Lubor - Re Help
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 07:39:50
Caute,
Dobromil Mal� wrote:
> Nekdo tu kdysi napsal, ze pan Z. nikdy s nicim nikomu nijak nepomohl - toto nebudu posuzovat, ale ze cituji "Mozna nam tu pan Z. poradi komponentu AP :-)" by bylo Buh vi jak plodne ....
>
ja mam pocit, ze to bola ovela viac narazka na p. M.Fronka ako na p.Zahradnika,
preto som sa nad tym iba pousmial (konieckoncov je tam ":-)" :-)
>
>
> A aby to nebylo tak moc off topic, tak nevite nekdo, jak jednoduse vynasobit dve cisla (napr 10 a 12) ???
mozno by to slo urobit cez nejake ify
t.j. if (x=10)and (y=12) then result := 120
else if (x=4)and(y=5) then result := 20 ....
aby ma admin nezabil sa preplnenie konfery, radsej koncim;
inac ta metoda ma nevyhodu - postupom casu by si potreboval kalkulacku :-)
--
Maj sa,
R.
Sybase SQL Anywhere 5.5 pro Windows 3.1
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 21.8.1998 07:42:41
%subj% sa dodava s Powerbuildrom 5.x a viac (inak vzdy tam je 16bitova aj 32
bit. verzia)> > Nemate nekdo demoverzi Sybase SQL Anywhere 5.5 pro Windows 3.1, nebo =
> > alespon ODBC driver ?
--
Maj sa,
R.
Servis NT v D4
[*] rdocekal(zv)csas(tec)cz - 21.8.1998 08:04:07
Ahoj vsem !
Rad bych timto poprosil nektereho z vazenych majitelu D4 C/S o zaslani
nejakeho funkcniho prikladu na pouziti TService.
V D4 Pro bohuzel zadny neni (co bychom taky asi tak chteli za ty prachy
;-)))))) )
Diky
Radek Docekal
Poslete to prosim na:
<mailto:dvorakm(zv)jitel(tec)cz>.ako zavriet
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.8.1998 08:08:31
Mnohi ti radia aby si skusil application.terminate co podla mna je nezmysel ani to program nebude akceptovat. Navyse ti potrebujes iba zatvorit jeden formular a nie celu aplikaciu.
Problem je v tom ze pocas OnCreate a OnActivate nie je mozne zatvorit a formular - k tomu sa delphi brani - to je aj logicke lebo nie je mozne znicit to co vykonava moje prikazy sam so sebou.
Ja som mal tiez podobny problem a riesil som to takto:
Poslednom riadku OnActivate udalosti vyslal som spravu (vyvolal som udalost) a urobil som proceduru, ktory reaguje na tuto spravu a zatvori formular. Dolezite je iba to aby sprava bola vyslan� funkciou ktora nepocka na vykonanie spravy iba umiestni spravu do fronty a okamzite sa vrati a bolo to na konci OnActivate.
Zjednodusene sa to da urobit aj tak ze vysles spravu na zatvorenie okna mw_Close (hodnota tejto spravy vo windows je $0010).
procedure TForm.OnActivate
begin
...
PostMessage(Form.Handle,$0010,0,0);
end;
Ak pouzivas ShowModal tak doporucujem pre ShowModal nastavit ModalResult takto:
Form.ModalResult:=mrCancel;
Form.ShowModal;
(Form.Free;)
Tungli(zv)pvt.sk
> > Predstavte si nasledujuci problem, vytvorim program kde hned po spusteni v
> > form1.create testujem ci su splnene urcite podmienky, v pripade ze tieto
> > podmienky niesu splnene ma sa aplikacia pomocou prikazu close ukoncit. Ked
> > tento prikaz pouzivam hned v form1.create tak program ho ignoruje, prteskoci
> > ho a aplikacia pokracuje smelo dalej. Poradte mi ako ju ukoncit hned v create
> > bez pouzitia timeru.
> Par dotazu pro SQL guru
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.8.1998 08:24:24
Patter Matching je algoritmus, ktory zabezpecuje vyhladanie retazca podla masky
napr podla %A%B_C% - vyskusaj nato urobit program a zistis ze nie je to jednoduche
napr .%A%B_C% na slove ALBAMBKKCAFFBXCNAM - ako vies podtzitko je lubovolny znak v SQL.
Ked chces najednou zistit bez ohladu na male a velke pismena tak pouzivaj v SQL scripte
pri vytvoreni tabuliek:
SET NAMES WIN1250;
CONNECT
"C:\path\databaza"
USER "SYSDBA"
PASSWORD "masterkey";
Create table Tabulka(
text varchar(100) collate PXW_CSY,
...)
na polozke text ti pojde (Patter Matching) zarucene bez ohladu na male a velke pismena a tiez s diakritikou. (Napr: �a%�a = �a%�A a alma%=ALMa%)
Tungli
----------
> Od: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> Pre: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Predmet: RE: Par dotazu pro SQL guru
> D�tum: 20. august 1998 9:50
>
> > -----Original Message-----
> > From: TUNGLI Jan [SMTP:tungli(zv)pvt.sk]
> > Sent: Thursday, August 20, 1998 8:37 AM
> > Subject: RE: Par dotazu pro SQL guru
> >
> > Optimaliyovat uvedene vyhladanie substringu by znamenalo optimalizaciu
> > PATTERN MATCHING algoritmu.
>
> A to se da ?
> ( Vojin Kefalin, co si predstavujes pod takym pojmom "PATTERN MATCHING
> algoritmus" 8-)
>
> > Ubezpecujem ze databaza nema inu moznost iba
> > postupne prechadzat celu tabulku.
>
> To je ale velmi neefektivni (jak jsem psal v prvnim mailu).
>
> > In� by to bolo pri A%BC% kde by mohol vyuzit index .
>
> a kdyz budu chtit, aby se mi nasly vsechny vyrazy typu 'ABC%', 'abc%', 'Abc%'
> najednou ... ?
>
> ZdeP
> prantl(zv)ptc.pvt(tec)cz
SQL parser
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.8.1998 08:29:33
Mam sadu vlastnych komponennt ktore medzi ine riesia aj tuto problematiku aj ked nie uplne obecne. Ked chces tak ti mozem poslat aj so zdrojakmi a popisom.
Tungli(zv)pvt.sk
----------
> Od: Martin Dupal <mdupal(zv)vision(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: SQL parser
> D�tum: 20. august 1998 11:26
>
> Zdravim delfiny,
>
> nevite nahodou nekdo o necem, co bych nazval parser na
> SQL dotaz. Jde mi o separaci klausuli SELECT, FROM, WHERE apod.
>
> Moje vlastni pokusy konci zoufalstvim nad kosatosti SQL jazyka.
>
> S pozdravem
> Martin Dupal
> Moje neznalost, nebo hloupost s TSHAPE
[*] Milan Vorisek <vorisek(zv)igtt(tec)cz> - 21.8.1998 08:33:11
Nosek Libor wrote:
>
> Dobry den.
> Presel jsem z D1 na D3 a mam tento problem.
> Do formulare jsem si vlozil TPANEL, upravil k memu pozadavku a do nej TSHAPE na ktery chci malovat
> nejake kresby zpusobem moveto, lineto, textout, atd. (Podotykam, ze v D1 mi to chodilo bez problemu).
> Chci-li namalovat byt treba jen prostou caru, z bodu A do bodu B, tak cara se sice namaluje, ale mimo prostor
> TSHAPE (tedy bokem) ne v oblasti kde mam TSHAPE umisten. Samozrejmne pro malovani pouzivam metodu
> with TSHAPE,canvas do
> begin
> - tady maluju -
> end;
Pokud je ten kod takovy, jak jsi napsal
" with TSHAPE,canvas" s carkou, tak se to kresli na
jiny canvas podle toho, kde je kod umisten (pravdepodobne
na formular).
M.V.Uvidni obrazovka
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 21.8.1998 08:56:34
Myslim, ze by to slo udelat tak, ze na zacatku v OnCreate hlavniho formu se zobrazi to logookno metodou Show (+ faStayOnTop), ale mam zkusenost, ze je treba udelat hned i Refresh a na konci OnCreate ho zrusit metodou Free. Takto lze udelat i okno typu "Moment prosim..."
LogoOkno:=TLogoOkno.Create(self);
LogoOkno.Show;
LogoOkno.Refresh;
{ Tady je ta rutina }
LogoOkno.Free;
Dobra.
----------
Od: lnovy(zv)unicos(tec)cz[SMTP:lnovy(zv)unicos(tec)cz]
Odesl�no: 20. srpna 1998 13:49
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Uvidni obrazovka
Zdravim,
neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by byla
videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
Za jakoukoliv radu dekuju.
Lubos
MediaPlayer
[*] Ladislav Fitz <lfitz(zv)ciglersw(tec)cz> - 21.8.1998 09:11:37
Alespon v D1 ma tMediaPlayer propert DisplayRect kterou rikas v jake plose
panelu ma kreslit.
Slavom�r Oren��k wrote:
> pokial pouzivam komponentu MediaPlayer a nastavim Display na
> nil, spusti sa napr. nejake AVI v externom okne. Pokial pouzijem ako
> Display, napr. komponentu Panel, ako mam zabezpecit aby sa velkost Panelu
> prisposobila AVI sekvencii, pripadne ako nastavit aby AVI sekvencia
> stretchovala do Panelu ?
> Dakujem.
--
Ladislav Fitz.
Stream
[*] Ladislav Fitz <lfitz(zv)ciglersw(tec)cz> - 21.8.1998 09:13:05
Skus pred
DataPtr.LoadFromStream(StreamPtr);
dat
StreamPtr.Position:=0;
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 ...
>
> vie mi niekto poradit?
>
> lubos
>
> --------------------------------------------------------
> Get free personalized email at http://netscape.iname.com
--
Ladislav Fitz.
Servis NT v D4
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.8.1998 09:14:13
>Ahoj vsem !
>
>Rad bych timto poprosil nektereho z vazenych majitelu D4 C/S o zaslani
>nejakeho funkcniho prikladu na pouziti TService.
>V D4 Pro bohuzel zadny neni (co bychom taky asi tak chteli za ty
prachy
>;-)))))) )
Inprise me tim, ze nektere veci, ktere vubec nesouvisi primo s C/S
programovanim, umistil
jen do C/S verze pekne stve. Do teto kategorie patri jeste ladeni
vzdalenych procesu
PS potrebuje TService k sobe suitu TForm a spol ? Tj da se s jeho pomoci
napsat pgm bez TFormu ?
Zdravi
D. Toman
Problem s TListem
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 21.8.1998 09:26:56
musis si ten TList najprv vytvorit pomocou z := TList.Create;
Ondrej Kelle
kelleon(zv)nnsk.sk
> type ObjectPtr = ...
>
> var z:TList;
> pObj:ObjectPtr;
> ....
> pObj = new(...)
> z.Add(pObj)
> ....
>
> Jenze ono to vzdy tvrde spadne Access violation blablabla.
>
> Petr Brant [pbrant(zv)softhome.net]
> programator v MSVC++, obcas Delphi nebo Visual Basic
> *************************************************************************Par dotazu pro SQL guru
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 21.8.1998 09:35:40
Predem tedy nekolik omezujicich pravidel. Neumim vytvorit online
fulltext index, protoze ten musi byt spojen primo s tou databazi a v
okamziku, kdy se dela na oindexovana data UPDATE, DELETE nebo INSER
INTO, je nute ho aktualizovat (s normalnima indexama to dela sama).
Udajne u MSSQL lze udelat komponentu ActiveX, ketra je na serveru a je
volana nejakejma udalostma z MSSQL serveru a tudiz by asi slo toto
omezeni preklenout.
Takze k cemu jsem to pouzil (aby bylo zrejme plneni). Mam
databazi, ktera obsahuje 77 okresu, 6450 obci, 15196 casti obci, 69822
ulic a 51190 organizaci a firem(subjektu). Jsou samozrejme provazany
referencni integritou (organizace ma adresu vytvorenou z okresu, obce,
casti obce a ulice). Na adrese http://www(tec)czechinform(tec)cz/hledani.asp je
fulltextovy prohledavac teto databaze zamerene na hledani organizaci.
Pri vytvareni indexu jsem pouzil nekolik selektu, jehoz vysledkem byl 1.
primarni klic subjektu a vsechny textove udaje nejakym zpusobem se
vztahujici se k tomu subjektu.
Napr. SELECT s.sub_id, s.nazev, s.majitel, s.provozovatel, s.kontakt,
s.popis, s.provoznidoba, s.ico, s.dico, s.http, s.email, k.nazev,
o.nazev, c.nazev, u.nazev
FROM subjekt s, okres k, obec o, cobce c, ulice u
WHERE s.okr_id=k.okr_id AND s.obc_id=o.obc_id AND s.cob_id=c.cob_id AND
s.ulc_id=u.ulc_id
kde ???_id jsou primarni klice prislusnych tabulek, jsou to longinty (v
MSACCESS to je typ COUNTER, tedy autoincrement)
Zajiste chapepe, ze takovyto select nelze v DB ohledat. Takze jsem
dostal kurzor, ktery ma jako prvni polozku primarni klic subjektu a v
ostatnich sloupcich jsou pouze texty, ktere jsem zpracoval do fulltext
indexu. Slovo po slove. Do indexu jsem neukladal slova dlouhe 1 nebo 2
znaky.
A nyni k vlastnimu indexu.
PLongArray = ^TLongArray;
TLongArray = array[0..$FFF] of longint;
PCharArray = ^TCharArray;
PCharRec = ^TCharRec;
TCharRec = record
znak: char;
NextLevel: PCharArray; // Ukazatel do dalsi
urovne
Countw: longint; // Pocet zaznamu v idw
idw: PLongArray; // Pole primarnich klicu
pro index "WholeWord"
CountL: longint; // Pocet zaznamu v idL
idL: PLongArray; // Pole primarnich klicu
pro index "LeftWord"
Countf: longint; // Pocet zaznamu v idf
idf: PLongArray; // Pole primarnich klicu
pro index "FullText Word"
end;
TCharArray = record
Count: word;
// Pocet znaku v poli Data
Data: array[byte] of TCharRec; // Pole
znaku v Count-arnim stromu
usporadane podle abecedy
end; // Velikost TCharArray je
sizeof(Count)+sizeof(TCharRec)*Count
No a to je cele kouzlo fulltextoveho indexu. Cely index je n-arni strom,
ktery zacina polem TCharArray a v mem pripade ma Count=256 a je urcen
pro prvni znak vkladaneho znaku.
A)
Princip ukladani slova do indexu "WholeWord" je tento.
Napriklad slovo "WEB" ma id (primary key)=1234
1. prvni znak "W" vyhledame v TCharArray a postupujeme pres NexLevel do
dalsi urovne (pokud neni, tak ji zalozime a stejne tam vlezeme)
2. V druhe urovni pismeno "E" najdeme v poli TCharArray.Data a pokud tam
neni, tak ho tam pridame (zvetsime pole TCharArray, protoze
inc(TCharArray.Count)) no a samozrejme pokracujeme v postupu do dalsi
urovne
3. Ve treti urovni pismeno "B" pridame stejnym zpusobem.
4. Nyni jsme na konci slova, tak do pole "idw" pridame jeho primarni
klic.
A mame index Whole Word. Stejnou rekurzi muzeme toto slovo najit a potom
mame v poli idw vsechny primarni klice zaznamu, ktere obsahuji slovo
"WEB"
B)
Princim ukladani slova do indexu "LeftWord"
Slovo WEB se uklada stejne jako u indexu "WholeWord", ale navic bod 4 se
opakuje pro kazdou uroven. Tento index slouzi pro vyhledavani slov
zacinajici na hledane slovo.
C)
Princim ukladani slova do indexu "FullText word"
Slovo WEB se ulozi stejne jako index "LeftWord", je se navic uklada
"length(SLOVO)-1" krat.
Neboli "BOLESLAV" se ulozi jako "BOLESLAV", "OLESLAV", "LESLAV",
"ESLAV", "SLAV", "LAV", "AV"
Doufam, ze zakladni princip je zrejmy. K vyse uvedenemu prikladu bych
jeste dodoal, ze ta databaze je MSACCESS a ze ma dnes 51MB a ze
fulltextovy index mna 15MB a generuje se cca 5 minut na 150 PPro, WNT
server, 64MB RAM. Pokud ale chcete zpracovava takoveto data, je nutne je
netahat do pameti, ale vyuzit API funkci
CreateFileMapping(...);
MapViewOfFile(...);
Jinak se to do pameti nevejde. Diky timto funkcim si to troufnu
vygenerovat na notebooku s W95 a 16MB RAM, ale to by delal asi hodinu.
Posledni poznamka, pro ty kteri to nechteji programovat bych jeste
podotkl, nez jsem se rozhodl si to vytvorit sam, jsem hledal jine
reseni. A nasel (Lotus Notes) pry poskytuje fulltextovy engine pro ODBC
databaze, ale nemam s nim zadne zkusenosti (cca 40kKc).
MS ma pro sve servery SiteServer 3.0 (ne starsi), ktery umi oindexovat
MSSQL, WEB, Dokumenty Office, Exchange i z pohledu AccessPermision. Je
pro legalni uzivatele BackOffice 4.0 zdarma, ale pro MSSQL mi pripadal
nevhodny, protoze on vygeneruje SQL dotazama do databaze soubory HTML a
ty pak indexuje.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
>
> Samozrejme, ze mame zajem 8-). Kazda rada dobra.
>
> Diky.
> Zdenek Prantl
>
prantl(zv)ptc.pvt(tec)cz
>
> Dobry den, muzete mi poslat, jak se da vytvorit ten index? Funguje
neco
> takoveho i pro MSSQL?
>
> Diky moc
>
> -----------------------------------------------------------
> Ing. Daniel Rulicek
> Informacni systemy
> AVIZO, a.s., Slavikova 6142, 708 00 Ostrava - Poruba
>
> -----Original Message-----
From: Ing. Jaroslav Jahoda [mailto:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
Sent: Thursday, August 20, 1998 2:05 PM
To: DELPHI Distribution List
Subject: RE: Par dotazu pro SQL guru
Ja se obavam, ze to taky mov nepomuze, protoze pokud je databaze nucena
prohledavat vsechny zaznamy jeden po druhem.
Jestli to dobre chapu, pak se jedna o typickou fulltextovou vyhledavaci
funkci. Na to neni zadna databaze vhodna, protoze nemaji vytvoreny
fulltextovy index (krome Oracle s ConText cartridges).
Jine systemy funguji tak, ze na zaklade dat vyctenych z tabulky
zkonstruhuji fulltextovy index a ten je pak pouzit k pristupu do
databaze.
Pokud mate zajem, tak mohu poslat navod, jak fulltextovy index vytvorit.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
-----Original Message-----
From: RADIK(zv)p15.monet(tec)cz [mailto:RADIK(zv)p15.monet(tec)cz]
Sent: Thursday, August 20, 1998 12:50 PM
To: delphi(zv)pinknet(tec)cz
Subject: RE: Par dotazu pro SQL guru
A co tak umistit sloupec POPIS do jine tabulky, kde by byl jen popis a
odkaz do puvodni? Ta by byla velikosti srovnatelna s tim indexem a slo
by ji sekvencne prochazet na substring.....
Ales
----------
Od: Zdenek Prantl
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Par dotazu pro SQL guru
Datum: 20. srpen 1998 9:35
Dobra rozvinu trochu puvodni myslenku:
Dejme tomu, ze ta tabulka TABLE_A (jak jsem psal) ale ma vic polozek a
celkova delka jednoho zaznamu je 1 kB. Pri 100.000 vetach je to 100 MB
tabulka. Index INDEX_1 tabulky TABLE_A obsahuje pouze polozku POPIS
(VARCHAR[40]), tj. 40 B (Pro puntickare, kteri by chteli okamzite psat,
ze to
neni 40, ale napr 45, podotykam je to mozne, nevim presne jak jsou
indexy
zapsany). 100.000x40= 400 kB. Tak se snazim rict pres SQL, ze neni nutne
prochazet tech 100 MB dat vetu po vete, vybrat z ni poplozku POPIS a tu
kontrolovat, ale ze staci projit 400 kB INDEXU_1 (naprosto stejnym
zpusobem
jako bych prochazel data, protoze ta polozka POPIS je v indexu cela).
Takovy
dotaz by mel byt daleko rychlejsi, uz diky usetrenym pristupum na disk.
Nebo
se pletu?
>
> Neviem si predstavit zapis indexu v SQL, ktory by dokazal indexovat
podla
> moznych substringov.
Nejde o indexovani podle substringu, ale o moznost hledat substring v
indexu.
ZdeP
prantl(zv)ptc.pvt(tec)cz
Bolo to v Uvodni stranka alias Splash Screen
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 21.8.1998 09:36:53
Ma to udelat to, ze pokud aplikace jiz bezi (jina instance), ma to tu aplikaci aktivovat (misto spusteni nove instance) a myslim ze PostMessgae(OldHWnd, wm User,0,0) ma byt kvuli Application.Restore, protoze SetForegroundWindow by na minimalizovane aplikaci nefungovalo.
Dobra.
----------
Od: Marek Repisk�[SMTP:mrepisky zl(zv)zsnp.sk]
Odesl�no: 21. srpna 1998 7:11
Komu: DELPHI Distribution List
P�edm�t: Bolo to v Uvodni stranka alias Splash Screen
Nazdar!
Zaujala ma tato cast kodu:
begin
OldHwnd:=0;
EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
if OldHwnd=0 then
begin
.
Application.Run;
end
else
begin
if not IsWindowVisible(OldHwnd) then PostMessage(OldHwnd,wm User,0,0);
SetForegroundWindow(OldHwnd);
end;
Este som sa s tym nestretol. Co to ma robit?
Marek Repisky
mrepisky zl(zv)zsnp.sk
Par dotazu pro SQL guru
[*] RADIK(zv)p15.monet(tec)cz - 21.8.1998 09:57:00
Oddelenim pole POPIS od cele tabulky jsem sledoval to, ze z recordu
ktery ma asi 1kB (pokud si dobre pamatuji) zustane asi 50 bytu, takze
pri pripadnem sekvencnim prochazeni, pri kterem se predpokladam musi
natahnout cely record, bude trosku mensi prenos dat, takze by to mohlo
byt ponekud rychlejsi.
Ale ten navod na fulltext index beru. (na lokalni adresu....)
Diky.
Ales
----------
Od: Ing. Jaroslav Jahoda
Komu: DELPHI Distribution List
P�edm�t: RE: Par dotazu pro SQL guru
Datum: 20. srpen 1998 14:05
Ja se obavam, ze to taky mov nepomuze, protoze pokud je databaze nucena
prohledavat vsechny zaznamy jeden po druhem.
Jestli to dobre chapu, pak se jedna o typickou fulltextovou vyhledavaci
funkci. Na to neni zadna databaze vhodna, protoze nemaji vytvoreny
fulltextovy index (krome Oracle s ConText cartridges).
Jine systemy funguji tak, ze na zaklade dat vyctenych z tabulky
zkonstruhuji fulltextovy index a ten je pak pouzit k pristupu do
databaze.
Pokud mate zajem, tak mohu poslat navod, jak fulltextovy index vytvorit.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
-----Original Message-----
From: RADIK(zv)p15.monet(tec)cz [mailto:RADIK(zv)p15.monet(tec)cz]
Sent: Thursday, August 20, 1998 12:50 PM
To: delphi(zv)pinknet(tec)cz
Subject: RE: Par dotazu pro SQL guru
A co tak umistit sloupec POPIS do jine tabulky, kde by byl jen popis a
odkaz do puvodni? Ta by byla velikosti srovnatelna s tim indexem a slo
by ji sekvencne prochazet na substring.....
Ales
New face
[*] roman.palarcik(zv)spt(tec)cz - 21.8.1998 10:07:46
Ahoj,
uz jsem myslel ze se nikdo neozve, diky moc. Neco podobneho me taky napadlo,
ale zdalo se mi to az prilis jednoduche. Podle toho jak jsem si prohlizel
zdrojaky tak mi to pripada, ze zpusob vykresleni komponenty je urcen v nejake
knihovne, zrejme comctl32.dll a neni proto tak snadne to zmenit. Zkousel jsem
ale ten tvuj priklad a skutecne to funguje, az na to ze pri kliknuti na
tlacitko se opticky nestiskne, ale to snad jeste pujde vyresit. Dival jsem
se na komponenty na internetu a neco jsem nasel ale problem byl vetsinou
v tom, ze to vyzadovalo novou verzi jiz zminene comctl32.dll nebo to bylo
shareware a navic bez zdrojaku. Zkousel jsem si to i poskladat z TPanel,
TEdit (BorderStyle=bsNone), TSpeedButton a TListBox. Je to ale trochu
slozitejsi, protoze je treba osetrit vice udalosti aby se to chovalo jako
skutecny TComboBox.
NT nemam k dispozici, takze to vyzkouset nemuzu.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
-------------------------------------------------------------
roman.palarcik(zv)spt(tec)cz wrote:
>
> Zdravim vsechny,
> zacal jsem delat takovy programek s netradicnim ovladanim a chtel bych
> k tomu pridat i trochu netradicni vzhled. Dal jsem tam tlacitkum vzhled
> Flat, ale nelibi se mi vzhled ComboBoxu. Zkusil jsem si to nakreslit
> jak by to mohlo vypadat, ale nevim jak to udelat. Muzete mi nekdo
> poradit jak to udelat ?
> Prikladam obrazek jak bych si to predstavoval (nebojte se je to kratke).
Ahoj,
slo by to udelat tak ze si odvodis novou komponentu a v ni upravis
vykreslovani
ComboBoxu. Nevypada to sice tak jak sis to nakreslil, ale muzes se tim treba
inspirovat. Tak trochu me prekvapuje ze to funguje :-) takze pokud mas moznost
tak to prosimte vyzkousej treba i na NT....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TXYComboBox = class(TComboBox)
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
end;
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
with TXYComboBox.Create(Self) do
begin
Parent := Self;
Left := 40;
Top := 30;
Color := clWhite;
end;
end;
{ TXYComboBox }
procedure TXYComboBox.WMPaint(var Msg: TWMPaint);
var
DC: HDC;
PS: TPaintStruct;
OldBrush, FillBrush, BtnBrush, ArrowBrush: HBRUSH;
OldPen, FillPen, ArrowPen: HPEN;
R: TRect;
Arrow: array[0..2] of TPoint;
begin
if Msg.DC <> 0 then inherited else
begin
R := ClientRect;
DC := BeginPaint(Handle, PS);
Perform(WM_ERASEBKGND, DC, DC);
FillBrush := CreateSolidBrush(ColorToRGB(Color));
BtnBrush := CreateSolidBrush(ColorToRGB(clBtnFace));
ArrowBrush := CreateSolidBrush(ColorToRGB(clWindowText));
FillPen := CreatePen(PS_SOLID, 1, ColorToRGB(Color));
ArrowPen := CreatePen(PS_SOLID, 1, ColorToRGB(clWindowText));
OldBrush := SelectObject(DC, FillBrush);
OldPen := SelectObject(DC, FillPen);
Dec(R.Right, 17);
FillRect(DC, R, FillBrush);
R.Left := R.Right;
R.Right := R.Left + 17;
R.Bottom := R.Top + 3;
FillRect(DC, R, FillBrush);
R.Bottom:= ClientRect.Bottom;
R.Top := R.Bottom - 3;
FillRect(DC, R, FillBrush);
MoveToEx(DC, R.Left, 0, nil);
LineTo(DC, R.Left, R.Bottom);
MoveToEx(DC, R.Right - 1, 0, nil);
LineTo(DC, R.Right - 1, R.Bottom);
R.Top := 0;
InflateRect(R, -1, -3);
FillRect(DC, R, BtnBrush);
SelectObject(DC, ArrowBrush);
SelectObject(DC, ArrowPen);
Inc(R.Left, 7);
R.Top := Height div 2;
Arrow[0] := Point(R.Left - 4, R.Top - 2);
Arrow[1] := Point(R.Left + 4, R.Top - 2);
Arrow[2] := Point(R.Left, R.Top + 2);
Polygon(DC, Arrow, 3);
SelectObject(DC, OldBrush);
SelectObject(DC, OldPen);
DeleteObject(FillBrush);
DeleteObject(BtnBrush);
DeleteObject(ArrowBrush);
DeleteObject(FillPen);
DeleteObject(ArrowPen);
EndPaint(Handle, PS);
end;
end;
end.
Petr Vones, amatersky programator
Bolo to v Uvodni stranka alias Splash Screen
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 10:08:33
Marek Repisk� wrote:
Ahoj,
vypada to na zabraneni spusteni vice instanci te aplikace:
>
> Nazdar!
>
> Zaujala ma tato cast kodu:
>
> begin
> OldHwnd:=0;
> EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
zde se zjistuje jestli jiz neexistuje okno te aplikace
> if OldHwnd=0 then
> begin
pokud jej nenajde tak spusti aplikaci
> .
> Application.Run;
> end
> else
> begin
pokud jiz jina instance existuje tak ...
> if not IsWindowVisible(OldHwnd) then PostMessage(OldHwnd,wm_User,0,0);
zasle do ni zpravu pomoci ktere se aplikace prepne z pripadneho minimalizovaneho
stavu
> SetForegroundWindow(OldHwnd);
a jeji okno nastavi na popredi
> end;
>
> Este som sa s tym nestretol. Co to ma robit? Petr Vones, amatersky programator
Moje neznalost, nebo hloupost s TSHAPE
[*] Ing. Jaroslav K�e�ek - 21.8.1998 10:14:41
Ja jsem to delal tak, ze jsem vytvoril potomka TSHAPE a prepsal jsem
proceduru Paint0 podle mych typu shape.
(Myslim, ze Paint() je private. Tak je nutne jit hloub v hierarchii objektu
a udelat nasledovnika TGraphicControl. Ale to nevim jiste.)
Jaroslav Krecek
-----P�vodn� zpr�va-----
Od: Nosek Libor <nosek(zv)ujf.cas(tec)cz>
Komu: Distribu�n� list DELPHI (el. adresa) <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 12:43
P�edm�t: Moje neznalost, nebo hloupost s TSHAPE
>Dobry den.
>Presel jsem z D1 na D3 a mam tento problem.
>Do formulare jsem si vlozil TPANEL, upravil k memu pozadavku a do nej
TSHAPE na ktery chci malovat
>nejake kresby zpusobem moveto, lineto, textout, atd. (Podotykam, ze v D1 mi
to chodilo bez problemu).
>Chci-li namalovat byt treba jen prostou caru, z bodu A do bodu B, tak cara
se sice namaluje, ale mimo prostor
>TSHAPE (tedy bokem) ne v oblasti kde mam TSHAPE umisten. Samozrejmne pro
malovani pouzivam metodu
> with TSHAPE,canvas do
> begin
> - tady maluju -
> end;
>Nevite, kde je ta blbost?
>S pozdravem Nosek Libor
>
>
>Nosek Libor
>OJS
>UJF AV CR
>Rez u Prahy 250 68
>
>tel: 66173163
>fax: 6857003
>
>nosek(zv)ujf.cas(tec)cz
>DBF soubory a indexy
[*] RADIK(zv)p15.monet(tec)cz - 21.8.1998 10:15:00
Aplikace bezi pod NT, ale to je jedno, proste do ni zasahnout nemuzu.
Proste je to tak. Sdilet DBF soubor taky neni problem, i vcetne zapisu.
Jde o to, ze ho potrebuji indexovat. To taky neni problem. Ale pokud
bude
pusteno vic mych programu, tak musi byt tem index ulozen na lokalu, nebo
se pro kazdou stanici musi jmenovat jinak. Proto se ptam, jak umistit
index
jinam nez k DBF.
Ales
----------
Od: Petr Vones
Komu: DELPHI Distribution List
P�edm�t: Re: DBF soubory a indexy
Datum: 20. srpen 1998 18:50
RADIK(zv)p15.monet(tec)cz wrote:
>
> 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?
Ahoj,
jestli jsem to dobre pochopil tak ta puvodni aplikace co plni ty data
bezi v DOSu ? Me spis desi jak chces vyresit sdileni kdyz pises ze chces
do tech dat i neco zapisovat. Nebylo by mozne to resit tak ze by si
v nejakych casovych usecich ty data importoval do nejake sve vlastni
aplikace. Popripade tu puvodni zrusil a napsal znova, vyhnes se tak asi
ruznym neprijemnym problemum.
Petr Vones, amatersky
programator
www.PBear.com
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 21.8.1998 10:16:23
Tady jsou ty nestazitelne komponenty - doufam, ze odsud to bude lepsi...
http://www.delphi(tec)cz/soubory.asp
Tomas
On Thursday, August 20, 1998 10:43 AM, Krayzel Libor
[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz] wrote:
> Zdravim,
>
> byla tu dnes rec o HTML komponente z www.pbear.com. Nemate ji nekdo
> stazenou? Ja se snazim uz skoro hodinu a mam teprve 35 procent.
> Diky.
>
> 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 Problem s TListem
[*] Ing. Jaroslav K�e�ek - 21.8.1998 10:24:56
deklarace
var z : TList;
rika, ze jsi vyrobil promennou typu pointer na objet typu TList. Jenze ten
objekt jeste nebyl vytvoren.
Nez s nim zacnes pracovat, zkus neco takoveho:
z := TList.Create(Owner);
Jaroslav Krecek
-----P�vodn� zpr�va-----
Od: Petr Brant <pbrant(zv)softhome.net>
Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 21. srpna 1998 8:08
P�edm�t: Problem s TListem
>Ahoj vsichni,
>
>programuji spise v C++, ale obcas delam i neco v D3 Standard. Ted potrebuji
>nejak v pameti skladovat furu objektu a pamatovat si pointery na ne. A
>problem je prave s pamatovanim tech pointeru. Nasel jsem si v hierarchii
>tridu TList (obdoba Cckoveho CObjectArray), do ktere jsem chtel naladovat
>ty pointery. Asi takhle:
>
>type ObjectPtr = ...
>
>var z:TList;
> pObj:ObjectPtr;
>....
>pObj = new(...)
>z.Add(pObj)
>....
>
>Jenze ono to vzdy tvrde spadne Access violation blablabla. Zkousel jsem
>dopredu definovat kapacitu toho seznamu, zkousel jsem ho nejdrive vycistit,
>zkratka zkousel jsem vsechno mozne, ale pada to stale. V helpu jsem se
>bohuzel nic moudreho nedocetl. Nevite nekdo, kde delam chybu ?
>
>Diky predem
>
>*************************************************************************
>Petr Brant [pbrant(zv)softhome.net]
>programator v MSVC++, obcas Delphi nebo Visual Basic
>*************************************************************************
>Instalacia D4.0 na winNT 4.0
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 21.8.1998 10:29:26
Skousel jsme dat do PII (i Celeron) kartu S3 trio (jakakoliv) a s tou se
pocitac nerozbehl. Ale po vlozeni S3 Virge DX i GX vse fungovalo. Sice jsem
presel nakonec na jinou kartu, ale od te doby, kdyz se me nekdo zepta na PII
a S3 Trio jen zakroutim hlavou
Ing. Petr Jezek
Delvina s.r.o.
Kuzm�nyho 8
010 01 Zilina, SR
telefon: +421 89 624 344
mobil: +421 905 510 550
email: petr(zv)sevis.sk
web: www.delvina.sk
-----Original Message-----
From: Radoslav Balvan [mailto:balvanra(zv)datalock.sk]
Sent: Friday, August 21, 1998 5:53 AM
To: DELPHI Distribution List
Subject: Re: Instalacia D4.0 na winNT 4.0
Caute,
s tymto nesuhlasim: v robote mame PII s S3 virge GX2 a vsetko slape
v pohode
(po aplikacii Service Packu 3 :-?(
Lubo Fule wrote:
> Jasne...
> Kazdopadne s cipom S3 su problemy vo vseobecnosti, napr. PENTIUM
II nebude
> fungovat s nijakou kartou, ktora ma cip S3...
>
> S pozdravom
> Lubo Fule
>
> > -----Original Message-----
> > From: Jan Fiala [mailto:fiala(zv)iname.com]
> > Sent: Wednesday, August 19, 1998 6:06 AM
> > To: DELPHI Distribution List
> > Subject: Re: Instalacia D4.0 na winNT 4.0
> >
> >
> > 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
> > >>
> >
> >
> --
Maj sa,
R.Disk
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 21.8.1998 10:32:58
Off topic
Vzdy jsem rozdeloval disk na C,D kvuli velikosti clusteru a Fat16.
Pred mesicem jsem vyfasoval notebook s Fat32 a 4GB HD, ale
pouze jen C:. Jelikoz zvyk pouzivat C na systemove veci a D na
praci byl velky, tak jsem vytvoril adresar c:\d a v autoexec.bat jej
substituuji na D:. Zatim substituce nikde neblbne, mohu doporucit.
Vyhodou je spolecne vyuziti volneho mista.
Jaroslav KULHEIM
kulheim(zv)fp-brno(tec)cz
Viceradkova paleta komponent
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.8.1998 10:34:18
http://www.gexperts.com a je tam uz i druha bta pro D4
Mac
Petr Vones wrote:
>
> Michal Cizek wrote:
> >
> > Ahoj
> >
> > jak uz asi tusite podle predmetu zpravy, chtel bych se zeptat jestli nekdo
> > nevite o utilitce ktera by umela zaridit aby paleta komponent byla
> > viceradkova.
> > V Delphi 3 to umely tusim Tools od AHM a utilitka od Marka Cantu.
> > Ale at hledam jak hledam k Delphi 4 jsem ji jeste nikde nevidel.
> > Jestli o ni nekdo vite, prosim poradte.
>
> Ahoj,
>
> neco takoveho jsem kdysi videl v GExperts, ale nevim jestli to existuje
> i pro Delphi 4.
>
> Petr Vones, amatersky programator
--
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 =
==============================================================Problem s TListem
[*] Rudolf Balada <rudolf.balada(zv)parlament(tec)cz> - 21.8.1998 10:38:19
Pravdepodobne ten objekt z:Tlist neni vytvoren, tak ti to rika Access
violation.
Zkus ten TList vytvorit metodou Create a pak to snad pujde.
Rudolf Balada
kancler(zv)parlament(tec)cz
>
> type ObjectPtr = ...
>
> var z:TList;
> pObj:ObjectPtr;
> ....
z:=TList.Create;
> pObj = new(...)
> z.Add(pObj)
> ....
>BDE, INSTALACNY PROGRAM
[*] Richard Willmann <sales(zv)nocomment.sk> - 21.8.1998 10:53:05
>ok, da sa toto niekde najst vcelku a kompletne?
>
>
>Tak to bohuzel, jestli si nekdy slysel o metode pokus-omyl, tak
>to je ta jedina spravna cesta.
no ved uz som zistil ...
>
>Jinak je jedinou cestou opravdu vyexportovat si prislusnou cestu
>registry database a pak uz jen zkouset a zkouset.
>
>To se to chystas natrit InstallShieldu ?
>
uhadol si, chcel som si IS kupit ale ked som sa blizsie oboznamil s ich
licencnou politikou a cenami ....
BTW: Pokial by som mohol poprosit vsetkych zucastnenych, pokial mate nejake
napady co by "dobry" instalacny program mal vediet poslite mail (pokial
moderator dovoli aj do konfery, inak na sales(zv)nocomemnt.sk). Vsetci ktory
poslu nieco "rozumne" ho dostanu gratis ...
richard willmann
Servis NT v D4
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.8.1998 10:54:18
To me stve taky :)
File/Close all
File/New.../Service
Objevi se okynko do ktereho vlozim napr. TTimer a na OnTimer dam treba
Beep.
No a nezbyva nez spustit "mojeservice.exe /install" popr. /uninstall
(samozrejme na NT ;).
Dalibor Toman wrote:
>
> >Ahoj vsem !
> >
> >Rad bych timto poprosil nektereho z vazenych majitelu D4 C/S o zaslani
> >nejakeho funkcniho prikladu na pouziti TService.
> >V D4 Pro bohuzel zadny neni (co bychom taky asi tak chteli za ty
> prachy
> >;-)))))) )
>
> Inprise me tim, ze nektere veci, ktere vubec nesouvisi primo s C/S
> programovanim, umistil
> jen do C/S verze pekne stve. Do teto kategorie patri jeste ladeni
> vzdalenych procesu
>
> PS potrebuje TService k sobe suitu TForm a spol ? Tj da se s jeho pomoci
> napsat pgm bez TFormu ?
> Zdravi
> D. Toman
--
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 =
==============================================================Omezeni poctu vyslednych radek v tabulce MS SQL 6.
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 21.8.1998 11:00:53
Potreboval bych zadat v SQL dotazu s podminkou omezeni na pocet
vyslednych radek. Je to podobne, jako ma Altavista a jine vyhledavace,
ktere Vam na Vas dotaz predaji napr. pouze prvnich 100 odpovedi, na
vyzadani od 100 do 200, apod. Nedokazu nic podobneho v MS SQL 6.5 najit.
Idealni by bylo neco jako
select * from table_name where numlines>0 and numlines<=100 and
nejaka_dalsi_podminka
nebo
select top 100 * from table_name
Mozna, ze by to mohlo jit i v ulozene procedure, ale bohuzel nevim jak.
Nedokazete nekdo poradit?
Predem diky.
S pozdravem
Milan Reiniger
Skroupova 5, c.dv. 92,
tel.: 019/703 5053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz
Uvodni stranka
[*] Kallab <dkallab(zv)scova.vabo(tec)cz> - 21.8.1998 11:00:32
Droblem resim nasledovne. Otevri si Project Source a rucne vepis par radek,
kter jsou oznaceny '>', to ostatni tam uz mas. TForm5 je ona zminena uvodni
obrazovka, kterou si vytvotis. Mozna existuje i lepsi zpusob.
begin
> Form5 := TForm5.Create(Application);
> Form5.Show;
> Form5.UpDate;
Application.Title := 'n�zev aplikace';
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TPasswordDlg, PasswordDlg);
.
.
.
Application.CreateForm(TBtnRightDlg2, BtnRightDlg2);
>Form5.Hide;
>Form5.Free;
Application.Run;
end.
David
-----P�vodn� zpr�va-----
Od: lnovy(zv)unicos(tec)cz <lnovy(zv)unicos(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 19:17
P�edm�t: Uvodni stranka
>Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
>"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by
byla
>videt nez se mi spusti vlastni program (u nekterych je to nacitani pekne
>dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
tabulka + klavesy
[*] Vladimir_Rohan%KELSEY-HAYES(zv)kh(tec)com - 21.8.1998 11:09:01
Ahoj All
mel bych jeden dotaz (Delphi 2).
Mam ve formulari tabulku. Potreboval bych si na zmacknuti ENTER nadefinovat
nejakou vlastni akci ( =ukonceni editace polozky a preskok na dalsi
polozku) , ale nejsem schopnej zjistit ze byla stlacena tato klavesa.
Mel by nekdo nejaky napad co s tim?
Za pripadne navrhy predem dik.
Vladimir Rohan
DragDrop
[*] Slavom�r Oren��k - 21.8.1998 11:14:26
Vie niekto ako urobit dragdrop, pokial chcem napr. tahat nejaku ikonu z
desktopu na moj form. A ako sa dostanem k udajom o tahanom objekte ?
Dakujem.Instalace BDE
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 21.8.1998 11:19:47
Ahojte vsichni,
nekdo se tu ptal, jak naistalovat BDE. Funguje to tak, ze staci zkopirovat ty DLL do nejakeho adresare a do registru pridat veskere ty klice, funguje to dobre, ale ...
...vite nekdo jak v D3 napsat program pouzivajici BDE ale pro Win 3.x ?
Dobra.Bolo to v Uvodni stranka alias Splash Screen
[*] Jan Fiala <fiala(zv)iname(tec)com> - 21.8.1998 11:40:59
To je kontrola, zda jiz aplikace neni spustena. Pokud je, pouze se okno s
aplikaci hodi do popredi
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
Jan Fiala jan.fiala(zv)iname.com
>Nazdar!
>
>Zaujala ma tato cast kodu:
>
>begin
> OldHwnd:=0;
> EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
> if OldHwnd=0 then
> begin
> .
> Application.Run;
> end
>else
>begin
> if not IsWindowVisible(OldHwnd) then PostMessage(OldHwnd,wm_User,0,0);
> SetForegroundWindow(OldHwnd);
>end;
>
>Este som sa s tym nestretol. Co to ma robit?
>
>Marek Repisky
>mrepisky_zl(zv)zsnp.sk
Problem s TListem
[*] Jan Fiala <fiala(zv)iname(tec)com> - 21.8.1998 11:44:51
nikde v tom kodu nevidim vytvoreni toho TListu. Neco jako :
z:=TList.Create(Application);
S pozdravem "klid zbran�m a program�torum"
se te�� na dal�� spolupr�ci
Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: Petr Brant <pbrant(zv)softhome.net>
To: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
Date: 21. srpna 1998 7:59
Subject: Problem s TListem
Ahoj vsichni,
programuji spise v C++, ale obcas delam i neco v D3 Standard. Ted potrebuji
nejak v pameti skladovat furu objektu a pamatovat si pointery na ne. A
problem je prave s pamatovanim tech pointeru. Nasel jsem si v hierarchii
tridu TList (obdoba Cckoveho CObjectArray), do ktere jsem chtel naladovat
ty pointery. Asi takhle:
type ObjectPtr = ...
var z:TList;
pObj:ObjectPtr;
....
pObj = new(...)
z.Add(pObj)
....
Jenze ono to vzdy tvrde spadne Access violation blablabla. Zkousel jsem
dopredu definovat kapacitu toho seznamu, zkousel jsem ho nejdrive vycistit,
zkratka zkousel jsem vsechno mozne, ale pada to stale. V helpu jsem se
bohuzel nic moudreho nedocetl. Nevite nekdo, kde delam chybu ?
Diky predem
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Vyber adresare alias Explorer
[*] Jan Fiala <fiala(zv)iname(tec)com> - 21.8.1998 12:06:05
Nevite, jak udelat vyber adresare (combo box), jak je ve windows explorer ?
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
Jan Fiala jan.fiala(zv)iname.com
Bolo to v Uvodni stranka alias Splash Screen
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 21.8.1998 12:41:27
> Ma to udelat to, ze pokud aplikace jiz bezi (jina instance), ma to tu
> aplikaci aktivovat (misto spusteni nove instance) a myslim ze
> PostMessgae(OldHWnd, wm_User,0,0) ma byt kvuli Application.Restore, protoze
> SetForegroundWindow by na minimalizovane aplikaci nefungovalo.
To by bolo super, ale nadari sa mi to zkompilovat. Problem je
v EnumWndProc. Co s tym? Treba nejaky unit, alebo si to treba
napisat a co by to malo robit? Pozeral som aj do helpu, ale
velmi som nezmudrel. Mozno som trosku mimo:(
(D3 Pro)
uses
Windows,Messages,Forms,...
.
begin
.
EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
.
end.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
disketa v mechanice
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 21.8.1998 12:50:16
Ahoj chlapci,
da se nejak rozumne zjistit pritomnost diskety v mechanice. (tak, aby system
nerval abort,retry,fail pokud tam neni)
Neni treba zjistovat co je na ni. Jen ano - ne.
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=======================================Problem s TListem - podekovani
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 21.8.1998 13:20:28
Pravdepodobne ten objekt z:Tlist neni vytvoren, tak ti to rika Access
violation.
Zkus ten TList vytvorit metodou Create a pak to snad pujde.
Rudolf Balada
kancler(zv)parlament(tec)cz
>
> type ObjectPtr = ...
>
> var z:TList;
> pObj:ObjectPtr;
> ....
z:=TList.Create;
> pObj = new(...)
> z.Add(pObj)
> ....
>
[Petr Brant]
No jasne, jsem uplne blbej. Diky moc, samozrejme to funguje :-)))
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Uvodni stranka
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 21.8.1998 13:25:08
Tento problem resim stejne jako kolega Kallab, navic jsem zavedl to, ze
na Form5 mam komponentu TGauge a v kazdem Formu mam v Eventu
OnCreateForm
if Form5<>NIL then
Form5.Gauge.Progress := Form5.Gauge.Progress+1;
Application.ProcessMessages;
Je to efektnejsi a vis kdy prijde vlastni aplikace.
Jo a po Form5.Update davam Form5.Gauge.MaxValue := Pocet vytvarenych
formu.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
-----Original Message-----
From: Kallab [mailto:dkallab(zv)scova.vabo(tec)cz]
Sent: Friday, August 21, 1998 11:01 AM
To: DELPHI Distribution List
Subject: Re: Uvodni stranka
Droblem resim nasledovne. Otevri si Project Source a rucne vepis par
radek,
kter jsou oznaceny '>', to ostatni tam uz mas. TForm5 je ona zminena
uvodni
obrazovka, kterou si vytvotis. Mozna existuje i lepsi zpusob.
begin
> Form5 := TForm5.Create(Application);
> Form5.Show;
> Form5.UpDate;
Application.Title := 'n�zev aplikace';
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TPasswordDlg, PasswordDlg);
.
.
.
Application.CreateForm(TBtnRightDlg2, BtnRightDlg2);
>Form5.Hide;
>Form5.Free;
Application.Run;
end.
David
-----P�vodn� zpr�va-----
Od: lnovy(zv)unicos(tec)cz <lnovy(zv)unicos(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 20. srpna 1998 19:17
P�edm�t: Uvodni stranka
>Zdravim,
> neporadil by mi nekdo, jak mam do sveho programu pridat takovou tu
>"reklamni obrazovku" na zacatek. Myslim tim nejakou obrazovku, ktera by
byla
>videt nez se mi spusti vlastni program (u nekterych je to nacitani
pekne
>dlouhy a proto bych ji rad do svych programu pridal, ale nevim jak )
> Za jakoukoliv radu dekuju.
> Lubos
BDE, INSTALACNY PROGRAM
[*] Lubor Kolar <kolar(zv)porcus(tec)cz> - 21.8.1998 14:06:57
>
> BTW: Pokial by som mohol poprosit vsetkych zucastnenych, pokial mate nejake
> napady co by "dobry" instalacny program mal vediet poslite mail (pokial
> moderator dovoli aj do konfery, inak na sales(zv)nocomemnt.sk). Vsetci ktory
> poslu nieco "rozumne" ho dostanu gratis ...
Tak kazdopadne registrovat/unregistrovat service v NTckach. To neumi ani
IS5, pokdu vim.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
Servis NT v D4
[*] Lubor Kolar <kolar(zv)porcus(tec)cz> - 21.8.1998 14:06:58
Dne Fri, 21 Aug 1998 10:54:18 +0200 Martin Kubecka napsal:
> To me stve taky :)
>
> File/Close all
> File/New.../Service
Asi se zeptam blbe, ale na jaky Delhi (cislo verze, popr. C/S, Desktop
apod.) to tam je? Ja to tam nemuzu najit.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
Uvidni obrazovka
[*] Lubor Kolar <kolar(zv)porcus(tec)cz> - 21.8.1998 14:07:00
Dne Fri, 21 Aug 1998 06:01:07 +0200 Jan Fiala napsal:
> Obvykle se to pridava do hlavniho souboru aplikace. Pokud si obrazovku
> pojmenujes jako "frmSplash", zadas ji v Project/Option, aby se nevytvarela
> automaticky, tak by to vypadalo asi takto :
>
> Application.Initialize;
> With TfrmSplash.Create(nil) Do
> Begin
> Show;
> Update;
>
> Application.CreateForm(TfrmHlavni, frmHlavni);
> Free;
> End;
> Application.Run;
Jasne, to neni problem. Problem je to, ze se to zobrazi az potom, co se
nacte celej exac. Nejde to resit nejak vic "smart"? Napr. nejakej 20kB
zavadec, co zobrazi splash a potom normalne tu aplikaci? Sla by k tomu
popr. ta aplikace prilinkovat, aby to byl jeden soubor? Mozna chci
nesmysl, ale tak by se mi to libilo vic.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
Servis NT v D4
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.8.1998 14:14:34
rdocekal(zv)csas(tec)cz wrote:
> Rad bych timto poprosil nektereho z vazenych majitelu D4 C/S o zaslani
> nejakeho funkcniho prikladu na pouziti TService. V D4 Pro bohuzel zadny
> neni (co bychom taky asi tak chteli za ty prachy ;-)))))) )
Neni to az tak tragicke, dva prikladky jsou v Developer's Guide, str.
3-3 az 3-7. Totez najdes v helpu. Kostru sluzby vytvoris wizardem,
a pak si tam domastis co potrebujes.
Nejvetsi problem bych videl v tom, ze jsem v dokumentaci nikde
nenasel, jak sluzbu zavest (zrusit) do seznamu sluzeb. Takze
jsem juknul do zdrojaku (svcmgr.pas) a nasel jsem to v
TServiceApplication.Run.
Taktez jsem zjistil, ze potrebne zdrojaky jsou i v D4 Professional,
jenom tam neni prislusny wizard. Takze sluzby NT by melo jit
vytvorit i v Professional (neoveroval jsem to, protoze mam
momentalne nainstalovanou verzi C/S).
Kdo ma Profi a NT, at zkusi toto:
Nalistujte si on-line dokumentaci CD:\Documentation\dg.pdf, cast I,
kapitola 3, Creating applications, Service applications, kde jsou dva
priklady. Zalozte si novou aplikaci, v uses prepiste Forms na
SvcMgr, tridu formu prepiste na TService - ve zdroji formu
samozrejme take (lepsi je vsak vychazet z TDataModule), vysledek
by mel vypadat nejak takto:
program Project1;
uses
SvcMgr,
Unit1 in 'Unit1.pas' {Service1: TService};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TService1, Service1);
Application.Run;
end.
----
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
SvcMgr, Dialogs, ExtCtrls;
type
TService1 = class(TService)
private
{ Private declarations }
public
function GetServiceController: PServiceController; override;
{ Public declarations }
end;
var
Service1: TService1;
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: PServiceController;
begin
Result := (zv)ServiceController;
end;
end.
----
object Service1: TService1
OldCreateOrder = False
DisplayName = 'Service1'
Left = 200
Top = 112
Height = 150
Width = 215
end
Nadelejte tam nejake hovadiny, napriklad vlozte beep do Timeru
atp. Program zkompilujte, zavedte (v tomto pripade)
Project1.exe -install (vyhodte ho -uninstall). Do seznamu sluzeb se
zavede Service1 (podle DisplayName). Tento postup jsem
odzkousel v C/S, v Profi by mel IMHO fungovat take. Prosim
vyzkousejte to nekdo a poslete sem zpravu. Jestli to funguje, pak
lze smolit NT sluzby i v Profi.
BTW: nevim, proc se me zmocnuje dojem, ze Inprise ma
programatory za blbce. Zase o duvod min, proc investovat do C/S.
Dalsi duvody se doctete v recenzi v SWN, asi v rijnovem cisle.
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
Bolo to v Uvodni stranka alias Splash Screen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.8.1998 14:14:34
Ahoj,
takto se testuje, zda je aplikace jiz spustena v jinem threadu.
Pokud je, aktivuje se nalezeny thread, pokud neni, spusti se
spustena aplikace.
Marek Repisk wrote:
> Nazdar!
>
> Zaujala ma tato cast kodu:
>
> begin
> OldHwnd:=0;
> EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
> if OldHwnd=0 then
> begin
> .
> Application.Run;
> end
> else
> begin
> if not IsWindowVisible(OldHwnd) then PostMessage(OldHwnd,wm_User,0,0);
> SetForegroundWindow(OldHwnd);
> end;
>
> Este som sa s tym nestretol. Co to ma robit?
>
> Marek Repisky
> mrepisky_zl(zv)zsnp.sk
>
>
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
HotKeys v menu vs. vice oken
[*] Pavel Kral <kral(zv)afx(tec)cz> - 21.8.1998 14:28:37
Ahoj,
po delsi dobe mam zase dotaz.
Mam vice formularu v aplikaci, v hlavnim formulari mam menu
s nastavenymi hotKeys (napr. Insert). No a kdyz pracuji
v jinem okne, stale funguji horke klavesy z hlavniho okna.
Takze napr. se mi nechteji vkladat radky do DBGridu pri
stisku Insert, ale vykonava se udalost MenuItem z hlavniho
formulare, ktera ma nastavenu tuto HotKey.
Co s tim?
Uz jsem zkousel disablovat vsechny polozky menu hlavniho
formulare, ale pak se sice nevykona udalost MenuItem,
ale normalni obsluha klavesy ve druhem formulari take ne.
Dale jsem zkousel nastavit property Menu hlavniho formulare
pri onDeactivate na nil a pri OnActivate zase na MainMenu1,
ale to skryva menu a hlavne zustava polozka menu, ktera byla
stiskla, "nahore", jako by nad ni stale zustavala mys.
Obsluha zpravy wm_Command taky nefunguje, protoze pri
stisku HotKey tato zprava nevznika. To same pri obsluze
wm_HotKey.
Diky za pripadnou pomoc.
Pavel Kral
Utilita pro Internet
[*] heinisch(zv)post(tec)cz - 21.8.1998 14:42:59
Zdravim vsechny
Mam napad vytvorit utilitku pro pripojeni na Inet na pocitani tel. poplatku.
klasicke vyvolavace pripojeni nezohlednuji pravidla TELECOMu jako je impuls
navic, silne a slabe pasmo (casove)
atd.
Potreboval bych pro vyvoj teto utilitky pomoci s volanim TAPI pro
tyto funkce :
1. Vyvolat specifikovane telefonni pripojeni k siti.
2. Dat na vedomi o pripojeni (okamzik "zvednuti" sluchatka na druhe strane)
3. Vyvolat ukonceni spojeni
4. Zjistovat velikost prijimanych a vysilanych dat (neni nutne).
Po ukonceni dam samozrejme utilitku se zdrojakem k dispozici.
java applety
[*] sula milos <vargulicovai(zv)tescosw(tec)cz> - 21.8.1998 14:48:23
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Hi
nevite nekdo zda se da v nejake verzi delphi psat JAVA applety ?Omezeni poctu vyslednych radek v tabulce MS SQL 6.
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.8.1998 15:00:02
SET ROWCOUNT 100
select * from table_name
SET ROWCOUNT 0
A je to ;-). Bohuzel 100-200 to neumi (asi) :(
Podrobneji v BOL k MSSQL pod SET Statement.
Cau
Mac
Reiniger Milan wrote:
>
> Potreboval bych zadat v SQL dotazu s podminkou omezeni na pocet
> vyslednych radek. Je to podobne, jako ma Altavista a jine vyhledavace,
> ktere Vam na Vas dotaz predaji napr. pouze prvnich 100 odpovedi, na
> vyzadani od 100 do 200, apod. Nedokazu nic podobneho v MS SQL 6.5 najit.
> Idealni by bylo neco jako
>
> select * from table_name where numlines>0 and numlines<=100 and
> nejaka_dalsi_podminka
>
> nebo
>
> select top 100 * from table_name
>
> Mozna, ze by to mohlo jit i v ulozene procedure, ale bohuzel nevim jak.
> Nedokazete nekdo poradit?
--
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 =
==============================================================Uvidni obrazovka
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.8.1998 16:43:01
> Jasne, to neni problem. Problem je to, ze se to zobrazi az potom, co se
> nacte celej exac. Nejde to resit nejak vic "smart"? Napr. nejakej 20kB
> zavadec, co zobrazi splash a potom normalne tu aplikaci? Sla by k tomu
> popr. ta aplikace prilinkovat, aby to byl jeden soubor? Mozna chci
> nesmysl, ale tak by se mi to libilo vic.
To jiste, ze to lze, delaji to treba instalacni programy.
Idealni pak je treba jeste kompresovat ten prilozeny EXE.
Nicmene na beznou aplikaci se to moc nehodi.
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 ===
==============================================================BDE, INSTALACNY PROGRAM
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.8.1998 16:43:01
> uhadol si, chcel som si IS kupit ale ked som sa blizsie oboznamil s ich
> licencnou politikou a cenami ....
InstallShield Express je zdarma v Delphi Professional a Client/Server,
je v pohode, kdyz si ho prelozis - muzes vyuzit napr. Jazykovy
lokalizator od Zbyska Hlinky. Nicmene neni vsemohouci a je dost
ocesany, neumi toho zase az tak moc. Jinak se da koupit zvlast a neni
zase az tak drahy.
InstallShield Professional stoji balik penez - je to take jeden
z nejlepsich instalacnich produktu na svete. Unicorn, cesky distributor
si ho navic dost primastuje, pokud by nekdo mel zajem, jsem schopen
ho ziskat primo z USA trochu levneji (POZOR, NEJSEM DEALER, TOTO JE
JEN PRATELSKA NABIDKA), nicmene i tak je to dost penez na pomery
beznych uzivatelu Delphi, kteri nechteji platit pokud mozno za nic.
Je k dispozici i v cestine.
Eschalon Setup - bombacky instalacni nastroj, kteremu jsem delal
distributora. Bohuzel Eschalon Development to prodal Microsoftu,
takze to skoncilo. Cena byla velmi prijatelna a umel silene moc
veci - sam ho mam a jsem desne rad. Umi instalovat vetsinu veci,
udela se s nim vsechno, cesky (prelozil jsem ho) apod.
Wise Install - docela slusny nastroj, ted si nejsem jisty, zda je
v cestine. Jsou dve verze, jedna levnejsi a druha drazsi.
Ta drazsi je pomerne draha, ale je to asi polovina IS Professional.
Take ale neumi tolik. I kdyz je take velmi dobry.
Dalsi instalacni nastroje jiz nejsou tak slavne, snad jsem na
zadny slavny nezapomnel. Jinak ono neni zrovna jednoduche
udelat kvalitni instalacni nastroj. Technologie jsou dopredu
a je treba delat stale neco noveho. Navic cesky trh neni
moc veliky a jak rikam, cesky vyvojar neni ochoten mnoho
zaplatit - to vidime i zde v konferenci. Pritom by chtel ale
to nejlepsi, ovsem free. Pokud nekdo udela cesky instalacni
program, je omezen jen na cesky trh a moc se toho neproda.
Navic velke firmy si mohou dovolit koupit InstallShield
Professional za nekolik desitek tisic korun. Pokud nekdo udela
anglicky instalacni program, pak take moc velkou diru do sveta
neudela, protoze cizinci si v pohode mohou dovolit koupit
InstallShield Professional, tisic dolaru neni pro ne moc.
Takze kdyz to vezmu kolem a kolem, instalacni program se
rozhodne nevyplati delat, je to silene moc prace a zadna
moc velka vidina zisku. Pokud to ovsem nekdo nedela jen
tak pro zabavu. A to jsem treba ja - me to bavi a proto
delam cesky instalacni program ve volnych chvilich. Kdyz
se mi nechce nic delat, hraji si s tim. Mozna to nekdy
dodelam, mozna ne, mozna to pak budu prodavat, mozna ne.
Zase nemam to zapotrebi, mam ten Eschalon Setup, takze me
to nejak zvlast netlaci, ale mam vsechny nastroje
a predpoklady to udelat, protoze mam slusnou a rychlou
kompresi, znalosti o ruznych systemovych zalezitostech,
jako jsou vymena DLL za chodu, zastupci, instalace BDE,
registrace DLL, OCX apod. Jenze pokud to ma byt opravdu
pouzitelny produkt, musi to byt univerzalni, tj. nejen
na nektere instalace, ale na vetsinu instalaci. Kdyz nekdo
neco dela pro sebe nebo pro jedno konkretni pouziti, je to
o necem jinem, nez kdyz se to dela univerzalni pro mnoho
uzivatelu, kteri mohou mit rozdilne pozadavky. Nemam takovy
team, jako ma InstallShield Corporation, at uz je to mysleno
v oblasti vyvojaru nebo prekladatelu.
V soucasne dobe pracuji na jednom takovem mensim projektu,
jestli nekdo zna InstallShield Package For Web, tak to bude
neco podobneho. Vysledkem bude samorozbalitelny EXE soubor,
ktery bude umet ukazat ruzne informace, zvolit cestu,
vybalit soubory, spustit neco, pripadne jeste dalsi veci,
zabezpecit to heslem a i pripadne nejakou lepsi metodou
pro vice hesel a seriovych cisel. Jsem asi v pulce.
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 ===
==============================================================SQL - vyber dle datumu
[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 21.8.1998 16:50:08
>
> Dnes := FormatDateTime('d.m.yyyy', now);
> ...
>
> ...
> SQL.Add(' where Datum="'+Dnes+'"'); { mne zahlasi chybu typu. V cem delam
> chybu? }
> ...
>
najprv si musis zistit, ci tvoja databaza podporuje uvodzovky (") alebo
apostrofy ('). a potom, aky format datumu je nastaveny v databaze - ak je tam
napr. yyyymmdd, tak potom horeuvedena kombinacia je samozrejme chyba ...
preto je ovela istejsie postupovat nasledovne:
query.sql.add('where datum=:datum');
query.parambyname('datum').asdatetime:= ...;
v tom pripade potom nezalezi na formate datumu, uvodzovkach/apostrofoch, ...
lubos dusanic
Omezeni poctu vyslednych radek v tabulce MS SQL 6.
[*] Rudolf Balada <rudolf.balada(zv)parlament(tec)cz> - 21.8.1998 16:58:34
Na tohle je perfektni MySQL. Tam je nestandardni rozsireni o klauzuli LIMIT
x,dx na konci SELECTu, ale jak rikam je to nestandardni.
Rudolf Balada
kancler(zv)parlament(tec)cz
> Potreboval bych zadat v SQL dotazu s podminkou omezeni na pocet
> vyslednych radek. Je to podobne, jako ma Altavista a jine vyhledavace,
> ktere Vam na Vas dotaz predaji napr. pouze prvnich 100 odpovedi, na
> vyzadani od 100 do 200, apod. Nedokazu nic podobneho v MS SQL
> 6.5 najit.
> Idealni by bylo neco jako
>
> select * from table_name where numlines>0 and numlines<=100 and
> nejaka_dalsi_podminka
>
> nebo
>
> select top 100 * from table_name
>
> Mozna, ze by to mohlo jit i v ulozene procedure, ale bohuzel
> nevim jak.
> Nedokazete nekdo poradit?
>
> Predem diky.
>
> S pozdravem
> Milan Reiniger
> Skroupova 5, c.dv. 92,
> tel.: 019/703 5053
> reiniger(zv)mmp.plzen-city(tec)cz
> http://info.plzen-city(tec)cz
>BDE, INSTALACNY PROGRAM
[*] Lubo Fule <fule(zv)sct.sk> - 21.8.1998 17:16:57
dalsia dost uzitocna vec by bola, keby sa do instalacie dalo zahrnut aj ODBC
s prislusnymi ovladacmi aj nastavenim. Pri instalacii by to malo korektne
zinstalovat ODBC s prislusnymi ovladacmi a aj automaticky nakonfigurovat
potrebne DSN. Pri instalacii by bolo potrebne, aby sa otestovalo, ci uz je
uz ODBC nainstalovane a aka je aktualna verzia a instalovat by sa malo len v
pripade, ze este nainstalovane nie je, resp. ze je v starsej verzii.
Dokumentacia k ODBC sa da stiahnut z Micro$oftu...
S pozdravom
Lubo Fule
> -----Original Message-----
> From: Lubor Kolar [mailto:kolar(zv)porcus(tec)cz]
> Sent: Friday, August 21, 1998 2:07 PM
> To: DELPHI Distribution List
> Subject: Re: BDE, INSTALACNY PROGRAM
>
>
> >
> > BTW: Pokial by som mohol poprosit vsetkych zucastnenych, pokial
> mate nejake
> > napady co by "dobry" instalacny program mal vediet poslite mail (pokial
> > moderator dovoli aj do konfery, inak na sales(zv)nocomemnt.sk).
> Vsetci ktory
> > poslu nieco "rozumne" ho dostanu gratis ...
> Tak kazdopadne registrovat/unregistrovat service v NTckach. To neumi ani
> IS5, pokdu vim.
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
>HTML zobrazovac
[*] Martin Kukacka <CUCKOO(zv)ddm.jhrnet(tec)cz> - 21.8.1998 17:58:41 met-1mest
Zdar!
Netusite nekdo o nejakem HTML zobrazovaci
- jako je treba na www.PBear.com - ALE se ZDROJAKAMA?
Cuckoo
HotKeys v menu vs. vice oken
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 18:52:29
Pavel Kral wrote:
Ahoj,
>
> Ahoj,
> po delsi dobe mam zase dotaz.
> Mam vice formularu v aplikaci, v hlavnim formulari mam menu
MDI aplikaci ?
> s nastavenymi hotKeys (napr. Insert). No a kdyz pracuji
> v jinem okne, stale funguji horke klavesy z hlavniho okna.
> Takze napr. se mi nechteji vkladat radky do DBGridu pri
> stisku Insert, ale vykonava se udalost MenuItem z hlavniho
> formulare, ktera ma nastavenu tuto HotKey.
> Co s tim?
Podle me se to chova spravne, pokud priradis nejakoy hotkey k polozce
menu tak je tato kombinace vyhrazena pro tuto volbu a to i pokud je
polozka disabled. Je to standartni chovani Windows, pokud ti to brani
provadet nejake akce v aplikaci tak bud zvol jinou klavesovou kombinaci,
nebo ty ostatni funkce udelej jinym zpusobem.
Pokud je to MDI aplikace tak muzes definovat polozky menu pro kazde
MDIChild okno zvlast a tyto se pak budou slucovat do menu hlavniho
okna, tak by jsi to mozna mohl vyresit.
Petr Vones, amatersky programator
tabulka + klavesy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 18:59:57
Vladimir_Rohan%KELSEY-HAYES(zv)kh.com wrote:
>
> Ahoj All
> mel bych jeden dotaz (Delphi 2).
>
> Mam ve formulari tabulku. Potreboval bych si na zmacknuti ENTER nadefinovat
> nejakou vlastni akci ( =ukonceni editace polozky a preskok na dalsi
> polozku) , ale nejsem schopnej zjistit ze byla stlacena tato klavesa.
> Mel by nekdo nejaky napad co s tim?
Ahoj,
u formulare nastav vlastnost KeyPreview na True a pak v udalosti OnKeyDown
muzes testovat Enter:
procedure TMDIChild.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
end;
end;
Petr Vones, amatersky programator
MediaPlayer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 19:09:28
Slavom�r Oren��k wrote:
Ahoj,
> pokial pouzivam komponentu MediaPlayer a nastavim Display na
> nil, spusti sa napr. nejake AVI v externom okne. Pokial pouzijem ako
> Display, napr. komponentu Panel, ako mam zabezpecit aby sa velkost Panelu
> prisposobila AVI sekvencii, pripadne ako nastavit aby AVI sekvencia
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
Panel1.BoundsRect := MediaPlayer1.DisplayRect;
end;
> stretchovala do Panelu ?
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Panel1.BoundsRect;
end;
Petr Vones, amatersky programator
Sybase SQL Anywhere 5.5 pro Windows 3.1
[*] �ke��k Jaroslav�������6�����̿ - 21.8.1998 19:14:51
Myslim, ze jsem to videl ka stazeni na jejich www.sybase(tec)cz
Jaro
> Nemate nekdo demoverzi Sybase SQL Anywhere 5.5 pro Windows 3.1, nebo =
> alespon ODBC driver ?
Ja mam nekde demoverzi, protoze nez jsem si to koupil,
tak jsem si to na ni vyzkousel. Ale ted si nejsem
jisty, zda je to verze 5.0 nebo 5.5. Je to na CD, mohl
bych ti kus okopirovat, kdyz je to demo, ale lepsi
bude, kdyz zavolas do SYBASE Praha, oni ti ho obratem
poslou zadarmo. Najdes tam demo pro vsechny verze
operacnich systemu.
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 ===
==============================================================BDE, INSTALACNY PROGRAM
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 21.8.1998 19:17:02
V poslednim dopise Petr Zahradnik pise:
> Dalsi instalacni nastroje jiz nejsou tak slavne, snad jsem na
> zadny slavny nezapomnel. Jinak ono neni zrovna jednoduche
> udelat kvalitni instalacni nastroj. Technologie jsou dopredu
> a je treba delat stale neco noveho. Navic cesky trh neni
> moc veliky a jak rikam, cesky vyvojar neni ochoten mnoho
> zaplatit - to vidime i zde v konferenci. Pritom by chtel ale
> to nejlepsi, ovsem free. Pokud nekdo udela cesky instalacni
> program, je omezen jen na cesky trh a moc se toho neproda.
> Navic velke firmy si mohou dovolit koupit InstallShield
> Professional za nekolik desitek tisic korun. Pokud nekdo udela
> anglicky instalacni program, pak take moc velkou diru do sveta
> neudela, protoze cizinci si v pohode mohou dovolit koupit
> InstallShield Professional, tisic dolaru neni pro ne moc.
Cesky vyvojar snad v Delphi pomerne slusny pomerne obecny instalator napise
za vikend, ne ? Alespon ja to tak vidim a dyl jsem ho nepsal a de facto
uspokoji vsechny me pozdavky (instaluji s nim nejen Delphi aplikace, ali i
Acadovske, VFP, ruzna Makra, C-programy ale i DOS veci apod. A umi
samozrejme nejruznejsi veci od psani do INI a registru pres modifikace
ruznych slozitych souboru (menu cizich programu atd.), dale samozrejme ODBC,
BDE instalace apod., veci na plochu a do menu Start a samozrejme i ochranu
vysledneho programupred kopirovanim (tam je pak nutne nasadit do toho
programu jeste jednu obecnou knihovnu ;-) )
Takze to zase neni takovy problem, ne ?
> Petr Zahradnik, pocitacovy expert
^--- dovolte abych se zasmal,
pokud toto o sobe tvrdite
je ihned znat, ze zadny
expert nejste. Expert totiz vi, ze nikdo byt expertem nemuze, protoze to
vylucuje uz sama sireni IT a VT apod.
milan sorm
-------------------------------------------------------------
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
Spatne nastaveny forward na mobil 0602-744516 - pr
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.8.1998 19:25:28
Ahoj,
kdo z vas ma mobilni telefon Eurotel 0602-744516 a blbe si
nastavil forward na SMS branu nebo se takto prihlasil do
konference? Stale se mi vraci z Eurotelu informace, jak se
ma spravne posilat na SMS:
> From: SMS_Gate(zv)eurotel(tec)cz
> Reply-to: clexpert(zv)clexpert(tec)cz
> To: clexpert(zv)clexpert(tec)cz
> Date: Fri, 21 Aug 1998 18:11:26 +0100
> Subject: Bad number format: 0602744516. (Nedorucitelna posta - spatny
> format cisla.)
> Prosim, piste adresata ve tvaru: CISLO (zv) sms.eurotel(tec)cz, kde CISLO je 6
> cislic bez predvolby 0602.
>
>
>
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 ===
==============================================================QR.PreviewModeless
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 21.8.1998 19:27:17
Ahoj,
tak jsem ve zdrojacich QR objevil metodu PreviewModeless a zaradoval se jak
sestavy budou generovat pekne paralelne, kazda ve svem MDI okne.
Scenar je asi takovy:
1. vytvorit Preview form a jako parametr mu predat typ sestavy, kterou na
zobrazit.
2. vytvorit sestavu a zavolat jeji metodu PreviewModeless
3. s uzavrenim (Free) formulare uvolnit sestavu
Jak to funguje? Skvele na Win95 (a nikde neni treba volat
Application.ProcessMessages).
Problem? Na WinNT se zobrazi prvni preview se sestavou a dokud se nevygeneruji
vsechny stranky je cela aplikace 'tuha', bez moznosti otevrit menu a spustit
dalsi sestavu.
Je tady nekdo, kdo se tim uz prokousal a byl by ochoten se podelit:)
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
PS
pouziva vubec nekdo QR ke sve spokojenosti?
disketa v mechanice
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 19:33:10
Richard Valny wrote:
>
> Ahoj chlapci,
> da se nejak rozumne zjistit pritomnost diskety v mechanice. (tak, aby system
> nerval abort,retry,fail pokud tam neni)
> Neni treba zjistovat co je na ni. Jen ano - ne.
Ahoj,
da se to udelat takhle:
function IsDiskInDrive(Drive: Char): Boolean;
var
OldErrorMode: UINT;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Result := DiskSize(Byte(UpCase(Drive)) - 64) <> -1;
finally
SetErrorMode(OldErrorMode);
end;
end;
Petr Vones, amatersky programator
Vyber adresare alias Explorer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 19:43:45
Jan Fiala wrote:
>
> Nevite, jak udelat vyber adresare (combo box), jak je ve windows explorer ?
>
Ahoj,
nekolik takovych komponent jsem videl na DSP, do hledani tam dej "ComboBox"
a urcite nejake najdes.
V souvislosti s tim jsem si vsiml ze nas Borland opet trochu osidil, v
posledni verzi knihovny COMMCTL32 dodavane s Delphi 4 jsou i ovl.prvky
ComboBoxEx a IPAdress, jsou k nim sice zapsany konstanty v commctrl.pas,
ale uz nejak zapomeli na prislusne komponenty.
Petr Vones, amatersky programator
Zabraneni spusteni vice instanci aplikace (Re: Bol
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 19:58:13
Marek Repisk� wrote:
>
> > Ma to udelat to, ze pokud aplikace jiz bezi (jina instance), ma to tu
> > aplikaci aktivovat (misto spusteni nove instance) a myslim ze
> > PostMessgae(OldHWnd, wm_User,0,0) ma byt kvuli Application.Restore, protoze
> > SetForegroundWindow by na minimalizovane aplikaci nefungovalo.
>
> To by bolo super, ale nadari sa mi to zkompilovat. Problem je
> v EnumWndProc. Co s tym? Treba nejaky unit, alebo si to treba
> napisat a co by to malo robit? Pozeral som aj do helpu, ale
> velmi som nezmudrel. Mozno som trosku mimo:(
> (D3 Pro)
>
> uses
> Windows,Messages,Forms,...
> .
> begin
> .
> EnumWindows((zv)EnumWndProc,longint((zv)OldHwnd));
> .
> end.
Ahoj,
je to tim ze v te ukazce zdrojaku patrne ona funkce EnumWndProc chybi,
pokud potrebujes zabranit spusteni vice instanci tak existuje i plno
jinych zpusobu. Jeden z nich je primo od Borlandu:
http://www.inprise.com/devsupport/delphi/qanda/844.html
Nebo ti muzu poslat moji komponentu kde jsem se toto pokusel vyresit,
problem spociva v tom ze u vetsiny reseni je vzdy treba upravovat
zdrojak projektu. Snazil jsem se to udelat tak aby to nebylo nutne,
nakonec jsem dospel ke kompromisnimu reseni kde v unitu te komponenty
pridavam do InitProc pointer na proceduru v mem unitu, procedura uvedena
v InitProc se vola v Application.Initialize, takze v ni provedu test
na spustenou instanci a pripadne ukoncim aplikaci pomoci Halt. To sice
neni spravny zpusob behem aplikace, ale v tomto pripade to je mozne,
koneckoncu to tak dela i Borland. Toto reseni ma vsak urcitou nevyhodu
v situaci kdyz komponentu odstranis, nesmis pak totiz zapomenout odstranit
i jeji unit z uses.
Petr Vones, amatersky programator
Disk
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 20:10:45
No to sice nevim, ale tem, kdo provozuji Windows NT a Windows 95 doporucuji
uvazovat o rozdeleni disku na FAT16 a FAT32. Vubec nejlepsi je naformatovat
aktivni bootovaci partition jako FAT32 a pote se pokusit nainstalovat
Windows NT na druhou partition, ktera je FAT16. Schvalne, jestli pujde
nabootovat. Takze mame smazany a rozdeleny disk, nainstalovany Windows 95 a
Windows NT v prd... a data v prd... nebo v lepsim pripade zalohovana.
Toto je ma skvela zkusenost z neznalosti.
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. srpna 1998 7:30
P�edm�t: Re: Disk
>Caute,
>
>iste, FAT32 je urcite prinosom, ALE ...
> isty cas som nemal na vyber a na instalaciu programu som musel bravat
aj HDD
>(WD 1.2GB) no a u zakaznika som to pripojil k masine a prekopiroval
subory...
>sranda bola to, ze ten disk bol FAT32.... takze uplne podla ocakavania,
nesiel
>precitat tam, kde neboli win95 SR2... to bolo v pohode...
>
>ale on bol bootovaci, takze nabootovat by mal ist vsade, nie? - ale on
bootoval len
>
>na stroji, ktory bol podobny ako ten, na ktorom bol nainstalovany (P166 -
nejaka
>tchaiwanska doska - ale Intel chipset :-) takze neviem, bolo to tym
radicom?
>
>++nie je na NT 4.0 nejaky patch, ktory by umoznoval citat FAT32 disky?
>
>
>Petr Vones wrote:
>
>>
>>
>>
>> Podle mne je FAT32 jedna z veci ktera je prinosem a navic s ni nejsou
>> zadne potize, pouzivam to jiz pres rok bez nejmensich problemu. Coz
>> nelze rici treba o "online" komprimaci disku, takovou vec si asi zapne
>> opravdu jen blazen...
>>
>> Petr Vones, amatersky programator
>>
>
>s tym Stackerom by ta mal pocut jeden moj kamarat :-)
>(ten by to pouzival hadam aj pod NTckami ...)
>
>--
>Majte sa,
>R.
>DragDrop
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 20:11:24
Slavom�r Oren��k wrote:
>
> Vie niekto ako urobit dragdrop, pokial chcem napr. tahat nejaku ikonu z
> desktopu na moj form. A ako sa dostanem k udajom o tahanom objekte ?
> Dakujem.
Ahoj,
pokud ti jde o pretahovani souboru z exploleru tak to uz se zde resilo
a najdes to v archivu:
http://www.delphi(tec)cz/soubor.asp?dir=/archiv/1998/jul/21/dlfaaabm.htm
Petr Vones, amatersky programator
BDE, INSTALACNY PROGRAM
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.8.1998 20:14:57
> Cesky vyvojar snad v Delphi pomerne slusny pomerne obecny instalator napise
> za vikend, ne ? Alespon ja to tak vidim a dyl jsem ho nepsal a de facto
Jo, mate naprostou pravdu, take si myslim, ze v InstallShield Corporation
je ten team uplne nevytizeny, pracuji jen jeden den v mesici a zbytek
lezi doma...
> > Petr Zahradnik, pocitacovy expert
>
> ^--- dovolte abych se zasmal,
> pokud toto o sobe tvrdite
> je ihned znat, ze zadny
> expert nejste. Expert totiz vi, ze nikdo byt expertem nemuze, protoze to
> vylucuje uz sama sireni IT a VT apod.
Smejte se, jak je libo. I Vy mate pravo na svuj nazor.
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 ===
==============================================================zapis z interbase do textoveho souboru
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 20:14:07
To mi bohuzel taky nepomuze, ja to potrebuju provadet v procedure - vytvorit
textovy soubor pro prenosy.
Diky za snahu :(
-----P�vodn� zpr�va-----
Od: Marek Repisk� <mrepisky_zl(zv)zsnp.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. srpna 1998 7:44
P�edm�t: Re: zapis z interbase do textoveho souboru
>> Nevite nekdo, jak zapisovat z INTERBASE do textoveho souboru ? Jenom ne
rady
>> typu "externi funkce".
>
>Nazdar,
>
>to by aj mna zaujimalo.
>Robim to zatial cez WISQL. Napisem select, Run a Save result. Ale ma to
>ten problem, ze to nejde nacitat spat do tabulky. Este som nasiel moznost
>vytvorenia externej tabulky. Tam ide zapisat aj to spat nacitat, ale zasa
>to nie je TXT ale typovy subor.
>Chyba mi nieco ako Load a UnLoad v Informixe :(
>
>Nevie niekto?
>
>
>Marek Repisky
>mrepisky_zl(zv)zsnp.sk
>
>
>zapis z interbase do textoveho souboru
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 20:17:32
A zkusil jsi porovnat rychlost takovehoto zapisu pomoci procedury a pres
TTable ? Ja potrebuji vytridit a zapsat nekolik tisic zaznamu a to na
notebooku 486. Z toho by se zakaznik posr...
Jinak diky za napad.
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. srpna 1998 7:56
P�edm�t: Re: zapis z interbase do textoveho souboru
1) a nemozes data nacitat do tabulky a potom v cykle
table.first
while not table.eof do
...
writeln(file, table['field1'].AsString+'
'+table['field2'].AsString.....);
table.next
...
???
2)pripadne sa to asi da cez BatchMove (source bude Interbase a
destination Textovy
driver na ODBC (tusim sa dodava s MSOffice (Access))
...malo by to fungovat, ale aj tak som to myslel ako vtip :-)
Jan Skopov� wrote:
>
>
> Nevite nekdo, jak zapisovat z INTERBASE do textoveho souboru ? Jenom
> ne rady typu "externi funkce". Diky
--
Maj sa,
R.
Utilita pro Internet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.8.1998 20:23:19
heinisch(zv)post(tec)cz wrote:
>
> Zdravim vsechny
>
> Mam napad vytvorit utilitku pro pripojeni na Inet na pocitani tel. poplatku.
> klasicke vyvolavace pripojeni nezohlednuji pravidla TELECOMu jako je impuls
> navic, silne a slabe pasmo (casove)
> atd.
>
> Potreboval bych pro vyvoj teto utilitky pomoci s volanim TAPI pro
> tyto funkce :
>
> 1. Vyvolat specifikovane telefonni pripojeni k siti.
> 2. Dat na vedomi o pripojeni (okamzik "zvednuti" sluchatka na druhe strane)
> 3. Vyvolat ukonceni spojeni
> 4. Zjistovat velikost prijimanych a vysilanych dat (neni nutne).
>
> Po ukonceni dam samozrejme utilitku se zdrojakem k dispozici.
Ahoj,
neco takoveho jsem take chtel kdysi psat, dokonce jsem i zacal ale nakonec
jsem to nedodelal (treba padne monopol Telecomu driv nezli se to napise :-)
Bylo to udelane tak ze jsem mel malou aplikaci (asi 20k) ktera monitorovala
TAPI volani a zobrazovala trayicon, z ni pak bylo mozne spustit dalsi ktera
zobrazovala volani, pocitala castky atd..
Priklad jak monitorovat volani TAPI je v souboru tapiterm.zip na DSP, a
na vyvolani pripojeni RAS je treba komponenta ktera je umistena strance
baliku Internet Component Suite. Oba dva odkazy najdes v odkazech konference.
Petr Vones, amatersky programator
Omezeni poctu vyslednych radek v tabulce MS SQL 6.
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 21.8.1998 20:32:12
1. Napises si napriklad vlozenou proceduru (INTERBASE)
CREATE PROCEDURE POKUS
(kolikchciradku integer)
RETURNS (KOD varchar(2), JMENO varchar(50)) AS
DECLARE VARIABLE citac integer;
BEGIN
citac = 0;
FOR SELECT KOD,JMENO FROM nazevtabulky WHERE citac<kolikchciradku INTO
:KOD,:JMENO do
BEGIN
citac = citac + 1;
SUSPEND;
END
END
2. Napises si TQuery select: SELECT * FROM POKUS(parametrKolikchcesradku)
-----P�vodn� zpr�va-----
Od: Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. srpna 1998 16:49
P�edm�t: Omezeni poctu vyslednych radek v tabulce MS SQL 6.5
>Potreboval bych zadat v SQL dotazu s podminkou omezeni na pocet
>vyslednych radek. Je to podobne, jako ma Altavista a jine vyhledavace,
>ktere Vam na Vas dotaz predaji napr. pouze prvnich 100 odpovedi, na
>vyzadani od 100 do 200, apod. Nedokazu nic podobneho v MS SQL 6.5 najit.
>Idealni by bylo neco jako
>
>select * from table_name where numlines>0 and numlines<=100 and
>nejaka_dalsi_podminka
>
>nebo
>
>select top 100 * from table_name
>
>Mozna, ze by to mohlo jit i v ulozene procedure, ale bohuzel nevim jak.
>Nedokazete nekdo poradit?
>
>Predem diky.
>
>S pozdravem
>Milan Reiniger
>Skroupova 5, c.dv. 92,
>tel.: 019/703 5053
>reiniger(zv)mmp.plzen-city(tec)cz
>http://info.plzen-city(tec)cz
Textov� editor
[*] �ke��k Jaroslav�������6�����̿ - 21.8.1998 20:45:10
Nojo, ale to je ta stara verze pro D1 a D2.
V ni je hodne chyb a nekompletni zdroje.
Drive bylo mozne stahnout alespon trial verzi.
Ted uz tam neni ani ten download.
Po slibovane nove verzi (na brezen 1998)
jako by se zeme slehla. Tu starou jsme
zkouseli objednat a doposud neprisla ani odpoved.
Uz jim neverim. Je to skoda, protoze ten editor
vypada dosti ambiciozne.
Asi bychom byli schopni neco podobneho udelat,
ale generator sestav je pro me dulezitejsi
a nechci ohrozit zdrzeni pri vydani nove verze.
Krome toho mam takovej pocit, ze uz jsou dobre
editory urcite nekde vytvoreny, jen zjistit kde.
Nerad programuji naprogramovane.
Jaro.
----------------------------------------------------------------------------
------------
>�ke��k Jaroslav wrote:
>> Stranky Memo WriterPro jsou jiz delsi dobu
>> nepristupne. Nevim co se s timto editorem stalo.
>> Visual Components se dle sdeleni zastoupeni
>> prestaly prodavat. Jine typy jsem nenasel.
>
>Ahoj,
>
>nevim presne jestli se jedna o tentyz editor, ale zde nabizeji
>UDC Memo Writer Pro:
>
>http://www.hallogram.com/udc/index.html
>
> Petr Vones, amatersky programator