Archív konference Delphi

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

Install

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 28.10.1998 18:49:51

Dne Wed, 28 Oct 1998 01:41:18 +0100 Miki Vom��ka napsal:

> Dobry den,
>
> existuje nejaka jina alternativa pro installshield (ve verzi Standard neni),
> ktera by byla free, popripade hodne levna? Dulezita je schopnost instalovat
> BDE.
Nevim, co je potreba k instalaci BDE, ale pocitam, ze maximalne registry
a soubory...
Ackoliv vlastnim IS 5 International, posledni dobou pouzivam http://www.connect.net/jordanr/
Inno Setup. Je rychlejsi (o dost) a mensi. Nekde na ceskym webu je i
preklad - v pripade zajmu muzu poslat ceskou 1.09a. Co mi na nem nejvice
vadi je to, ze neumoznuje zvolit, ktere komponenty chci nainstalovat
(cili vzdy dela pouze jeden typ instalace). Snad to bude lepsi v
novejsich verzich. Jo a zapomnel jsem, je uplne zadara.


Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


COM

[*] IKO <IKO(zv)kamarad(tec)cz> - 28.10.1998 21:08:58

Potrebujem poradit, ako by som sa vo Windowse napichol na COM
port a odpocuval komunikaciu. Nieco ako HOOK. Ako na to?

IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO

IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO


Update - Delete Record ?

[*] Jaro <jaro(zv)sinea(tec)cz> - 28.10.1998 21:12:25

Velice bych doporucil tu unikatni polozku zalozit.
Jinak se muzes dockat nepeknych problemu s integritou dat.
V podstate se to da prikazem DELETE FROM tabulka, WHERE podminka,
kde podminka vybere tu spravnou vetu nebo tez pomoci Objektu TUpdateSQL.
Jaro


>Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z tabulky,
>ked na tabulke nie je ziadny unikatny index (ani unikatna polozka) ?
>Viem TTABLE komponent to dokaze ale TQUERY neviem.
>
>TUNGLI Jan
>tungli(zv)pvt.sk


SQL Dotaz & Filter

[*] Jaro <jaro(zv)sinea(tec)cz> - 28.10.1998 21:28:01

Tady nejde ani tak o zadnou prioritu, ale o poradi provadenych operaci
a o zpusob predavani a prezentace dat.
SQL dotaz je dotaz pro server. Ten vybere zaznamy podle podminky
zadane za klauzuli WHERE a seradi je dle ORDER BY.
Vybrana data jsou poslana na klienta a prevezmou se do datasetu
napr. TQuery. Pukud TQuery obshuje jeste filter, tak se jiz na klientovi
jeste potlaci zobrazeni zaznamu, ktere nesplnuji podminku filtru.
Tim se vybrana mnozina dat jeste jednou prefiltruje. To uz ale dela klient,
a proto se to deje az ve druhem sledu. Samozrejme, ze
v sitovem prostredi je vhodnejsi prvni pripad, protoze se ze serveru hrne
mensi mnozstvi dat, coz se projevi na vyssi rychlosti.
Jaro.
------------------------------------------------
>
>Uz jsem to vyzkousel...de to :)))
>
>Proste vyssi prioritu ma SQL prikaz a z toho pak se dela filtr.
>Znamena to tedy, ze nejdriv se provede SQL prikaz a potom
>filtrovani dat.
>
>S pozdravem Petr
>
>> ----------
>> Od: Branislav Danko[SMTP:danko(zv)basl.sk]
>> Odesl�no: 26. ��jna 1998 17:22
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: Re: SQL Dotaz & Filter
>>
>> Nazdar,
>>
>> Neviem o tom, ze by to islo priamo, co by si uviedok v klauzule FROM?
>> Da sa
>> to jedine riesit cez master-detail query takto, v detail query nastavis
>> DataSource na master-query. SQL v detail-query by vyzeral tak ako si to
>> chcel s
>> tym ORDER BY len vazbu na mastra by si zabezpecil v klauzule WHERE. Teda
>> detail
>> SQL by bol: SELECT * FROM tabulka.dbf WHERE jmeno = :jmeno ORDER BY
jmeno.
>> To
>> :jmeno je povinny parameter, ktoreho meno sa zhoduje s menom vazobneho
>> stlpca v
>> master-query.
>>
>> Inak, ten vzorovy selekt sa da riesit v jedinom query:
>> SELECT * FROM tabulka.dbf WHERE jmeno='Novak' order by jmeno ...
>> (ale
>> to asi vies)
>>
>> Len ten ORDER BY je podla stlpca JMENO trochu divny, ak ho mas zaroven aj
>> v
>> klauzule WHERE ...
>>
>> Brano.
>>
>> Petr Vale� wrote:
>>
>> > Ahoj vsichni,
>> >
>> > Mam nasledujici dotaz :
>> >
>> > Kdyz pomoci komponenty TQuery nastavim nejaky filtr, napr "(JMENO =
>> > 'Novak')"
>> > mohu pak z tohoto vyberu pouzit nejaky SQL dotaz, napr razeni podle
>> jmena :
>> > "Select * from tabulka.dbf order by JMENO"
>> >
>> > Diik Petr
>>

Preklad do cestiny

[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 28.10.1998 23:40:55

Zbysek Hlinka Wed, Oct 28, 1998 at 09:14:13AM +0100 pise:
> Milan Sorm wrote:
>
> No, prave ty nevyhody jsou tak znacne, ze lokalizaci hotoveho
> programu povazuji za bezpecnejsi. Pravda, je na to treba myslet...
> :-)
>

cim dal tim vic zjistuju, ze mysleni boli ;-)

ale to uz je fakt offtopic, myslim ze tuhle diskuzi opustime, ne ?

m.

-------------------------------------------------------------
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


RE> Jeste dotaz(y)

[*] miron.tegze(zv)post(tec)cz - 28.10.1998 23:47:36


> Ahoj,
>
> predpokladam, ze data mohou byt v libovolnem (binarnim) formatu.
>
> Kdy by se napsala smlouva?
>
> Slavek
>
> ps.: Zapomel jsis tu tuzku a vizitku. ;-)
>
> ----------------------------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------------
>

Ahoj Slavku,
Data mej v jakemkoliv formatu, jen nekam napis v jakem, budes je nejspis pouzivat jenom ty (pro zadavani), pro vypisy (to je druhe misto, kde se budou pouzivat, a snad uz nikde jinde) bude stacit, kdyz ten format bude nekde popsany.
K smlouve: Zitra se dohodnu s lidmi ve firme (dnes odpocivaji), ze by si chtel smlouvu o praci (poradim se s nimi, aby to vyhovovalo vsem), to s nimi proberu dopoledne, Oni ji nekdy odpoledne vyhotovi. V patek tu jsem jen dopoledne. Takze smlouva se muze podepsat bud v patek nebo v pondeli, ale ten patek ti nemuzu slibit (ve firme je ted docela fofr). Ja se ti jeste ozvu ohledne tech snimacu (melodie a hlasitost) a rovnou ti k tomu reknu i jaka bude smlouva.
Zatim se mej
Ahoj Miron

posilani obrazku

[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 29.10.1998 00:02:04

Ahoj,

jen v rychlosti takovej tip:

a) prvni stroj> aplikace s Timerem nebo s manualnim ovladanim
povelu pro nacteni plochy do ClipBoardu (nevim jak casto to chces
kopirovat do Clp) a potom bud poslat te druhe aplikaci po siti obsah
ClipBoardu nebo nejdriv to ulozit do souboru a pak poslat - souborem
bys vsak i vyresil treba archivaci predchozich stavu obrazovky.

b) druhy stroj> aplikace, ktera si to ze sitove schranky vyzobne nebo
si to natahne z toho souboru co mu posles(nejspis ve formatu BMP).

Nevim jestli je tomu rozumet, ale uz dneska na to nevidim a
konec smitec chciply dobry vily.

S pozdravem
==============================
> Pavel Malinsky; spiderland(zv)usa.net <
==============================

-----P�vodn� zpr�va-----
Od: Jirka Novacek <jnovacek(zv)telecom(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 28. ��jna 1998 23:12
P�edm�t: posilani obrazku


Ahoj Delfini!

Mam n�sledujici problem. Potrebuji napsat program, ktery bude na jednom
pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci bude
zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu vdecny
za kazdou radu.

Dik Jirka

<jnovacek(zv)telecom(tec)cz>

Pripojeni InterBase - upresneni

[*] Old�ich Bal�k - 29.10.1998 06:51:55

Dobry den,

jedna se konkretne o situaci : lokalni sit, kde mam InterBase server
na NT stanici a pristupuji k ni ze stanice s Win98, na ktere je take
Internet. Pokud pouziju k pristupu NetBEUI funguje vse normalne,
pri TCP/IP chce na zacatku spojeni vytocit telefonicke pripojeni,
pokud mu to povolim, funguje dal normalne, pokud ne, aplikace
prestane reagovat. Je jedno jestli pristupuji z vlastni aplikace,
Database Desktopu, InterBase Server Manageru nebo od jinud.
Typ protokolu umim nastavit pouze v InterBase Server Manageru
(ma na to volbu), ostatni aplikace pouzivaji standartne TCP/IP.
Nastavovanim protokolu na stanici (na urovni Windows) jsem se
niceho nedobral. Dokud tam nebyl ten Internet (telefonicke pripojeni),
tak to fungovalo normalne.

Dekuji za rady

Olda Balak
kkwest(zv)mbox.vol(tec)cz

D2 a MSWord97, OLE

[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 29.10.1998 07:20:48

Ahoj,
Mam problem s Delphi2 a MsWord 97.
Kdyz chci vytahnout z Wordu Collection (tj urcity prvek, rekneme X-ty
bookmark),
vrati se mi chyba.
Zde je muj kod:

var
MSWord: Variant;
begin
MSWord:=CreateOleObject('Word.Application');
MSWord.visible := true;
MSWord.documents.add('ks.dot');
MSWord.ActiveDocument.Bookmarks('COMPANY').Select;
// Error:"bookmarks" is not method
MSWord.ActiveDocument.Bookmarks['COMPANY'].Select;
// Error:"item" (?) is not property
end;

Toto je priklad z napovedy k MSWord Visual Basicu:
ActiveDocument.Bookmarks("temp").Select

Soubor 'ks.dot' existuje a bookmark 'COMPANY' je definovany.

Prosim, prosim, nemate nekdo napad jak na to?

Leos


Partial BDE v Install Shield Express

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 29.10.1998 07:46:06

Zdravicko...

Kdyz necham v instalaci jen ty soubory, ktere u BDE jsou (vyhodim
SQLxx32.DLL), tak instalace BDE nefunguje. A 10MB instalace BDE se mi
taky _silne_ nelibi, kdyz pouzivam jen Query a Paradoxove tabulky.
:-((((

F.

> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: �ter�, ��jen 27, 1998 19:57
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Partial BDE v Install Shield Express
>
> Flaska Jakub wrote:
> >
> > Zdravicko...
> >
> > Daji se nekde sehnat chybejici knihovny k partial instalaci BDE
> (5.0) v
> > Install Shieldu? A vubec, proc to ti ***piiiip*** nedavaj s
> originalni
> > instalaci?
>
> Ahoj,
>
> Ted jsem se na to dival, a oni tam maji chybu. Pokud zadam partial
> instalaci
> tak to po me chce DATAPUMP a SQLxx32.DLL (v Prof verzi Delphi :-)
>
> Ja jsem ale partial instalaci nikdy nepouzival. Neni mi u toho jasna
> jedna
> vec (nikdy jsem to rasdi nezkousel). Pokud mam napriklad
> nainstalovanou aplikaci
> s plnym BDE 4.51 a potom bych instaloval jinou s partial BDE 5.0, tak
> nektere
> knihovny BDE budou z nove verze a nektere zustanou stare. Bude to ale
> potom
> vubec fungovat ?
>
> --
> Petr Vones, amatersky
> programator
>

Update - Delete Record ?

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 29.10.1998 08:05:28

Pokial pracujes s SQL (resp. s relacnou databazou), tak musis (resp.
mal by si) mat kazdy riadok tabulky jednoznacne urcitelny, aspon
pomocou vsetkych poloziek. A v tom pripade je jasne, co sa ma zapisat
za ten Where. Pokial tvoja tabulka tento predpoklad nesplnuje
(xBase), tak nemas relacnu databazu a ides proti logike SQL. Inak
povedane, asi budes mat smolu.

P.s.: Neni zajimave, ze velke spusta programov napisanych v u nas
najrozsirenejsom "RELACNOM" databazovom systeme (FoxPro aj dBase to
umoznuje) nesplnuje uvedenu podmienku jednoznacneho urcenia vsetkych
viet vo vsetkych tabulkach a tympadom nepouzivaju relacnu databazu?

S pozdravom

J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz


> -----P�vodn� zpr�va-----
> Od: TUNGLI Jan [SMTP:tungli(zv)pvt.sk]
> Odesl�no: 28. ��jna 1998 13:32
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Update - Delete Record ?
>
> Ako chces vidat update ked nie je unikatna polozka?
> Co zapises do where , a ked nic nezapises tak update ide na vsetky
> recordy.
> Porozmyslaj este raz.
>
> TUNGLI Jan
> tungli(zv)pvt.sk
>
> ----------
> > Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> > Pre: delphi-l(zv)fwd(tec)cz
> > Predmet: Re: Update - Delete Record ?
> > D�tum: 28. okt�ber 1998 9:14
> >
> > TUNGLI Jan wrote:
> >
> > > Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z
> > > tabulky,
> > > ked na tabulke nie je ziadny unikatny index (ani unikatna
> > > polozka) ? Viem
> > > TTABLE komponent to dokaze ale TQUERY neviem.
> >
> > update ... where ...
> > Obdobne s delete.
> >
> >
> > 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

Kontextove menu

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

Zdravim,

jak dostat odkaz na otevreni souboru ve svem programu do kontextoveho
menu Windows (tam kde je OTEVRIT, OTEVRIT V PROGRAMU a pod)?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................

Petr Medek a Direct X

[*] Baluch <tpplus(zv)zasova(tec)cz> - 29.10.1998 09:06:34

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

Podivej se na The Delphi Games Creator
http://www.ex.ac.uk/~PMBearne/DGC.html
jsou free

Baluch
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 28. ��jna 1998 9:54
P�edm�t: Petr Medek a Direct X


Cau

Potreboval by som od Vas kontakt na Petra Medeka, alebo Direct X komponenty pre D3.
Za jedno, alebo druhe vdaka


Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk

posilani obrazku

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 29.10.1998 09:14:10

A co pouzit PC AnyWhere od Symantecu? Mozna to prijde levneji nez vyvoj
neceho vlastniho.


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Jirka Novacek [SMTP:jnovacek(zv)telecom(tec)cz]
> Odesl�no: 26. ��jna 1998 17:00
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: posilani obrazku
>
> Ahoj Delfini!
>
> Mam n�sledujici problem. Potrebuji napsat program, ktery bude na
> jednom
> pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci
> bude
> zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu
> vdecny
> za kazdou radu.
>
> Dik Jirka
>
> <jnovacek(zv)telecom(tec)cz>

Problem se Screenem a MiniTray

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 09:16:00

Ahojte vsichni,
ktery dobrak by mi mohl poradit se dvemi vecmi.
1) Jak donutit aplikaci napsanou v DELPHI 3, aby se pri spusteni
zobrazovala jako mini tray ikona.

2) Jak muzu v aplikaci zjistit, je-li aktivni napr. pracovni lista MS
Office ci jine dalsi ji podobne listicky. Chci to vyuzit pri maximalizaci
formulare u ktereho nemuzu maximalizovat normalnim zpusobem.

Diky za odpovedi
IKS - Martin Lasevic

Ikony v menu a PageControl

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 09:24:23

Ahoj all,
Prosim o pomoc, link nebo radu.
Chtel bych ve sve aplikaci pouzivat v menu u jednotlivych polozek ikony , ale nevim jak na to.
Dale, bych byl rad, kdyby se nasel nekdo kdo vi i o komponente podobne TPageControl, ktera umi i jednotlivym zalozkam priradit Glyph.

Uz jsem z toho cely bzz.

Diky za kazde steblo slamy.
Martin Lasevic

Win API ShAppBarMessage

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 09:46:22

Ahoj vsichni,

resim problem jak zaregistrovat vlastni toolbar tak, aby s jeho rozmery pocitaly OS Win 95
pri maximalizaci ostatnich oken ( obdoba panelu nastroju MS Office).

Pri pohlidce archivu teto konference jsem narazil na info o funkci ShAppBarMessage. Bohuzel ji nelze pouzit na Win NT.

Nevi nekdo, cim ji nahradit, popr. jak tento toolbar zaregitsrovat?

Hodne bezesnych noci preje
Martin Lasevic

Ikony v menu a PageControl

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 29.10.1998 09:49:20

> Chtel bych ve sve aplikaci pouzivat v menu u jednotlivych
> polozek ikony , ale nevim jak na to.

Toolbar97 version 1.51 by Jordan Russell
email: jordanr7(zv)aol.com
home page: http://members.aol.com/jordanr7

> Dale, bych byl rad, kdyby se nasel nekdo kdo vi i o
> komponente podobne TPageControl, ktera umi i jednotlivym
> zalozkam priradit Glyph.

Hledej na Delphi Super Page:
Components: TPage95Control, TTab95Control, TTab95Sheet
Author: Ryan J. Mills
Author Email: rmills(zv)freenet.edmonton.ab.ca
Code Status: Freeware

.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................

Problem se Screenem a MiniTray

[*] V�t�zslav Gazda������u��n�?��? - 29.10.1998 09:49:15

>Jak donutit aplikaci napsanou v DELPHI 3, aby se pri spusteni
>zobrazovala jako mini tray ikona.

Koukni se na me stranky http://www.tda(tec)cz/vita/ . Mam tam o tom jeden
dokument i s ukazkovou aplikaci.

Vita


Kontextove menu

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 10:00:54

Konkretne primo otevrit ci otevrit v programu nevim, ale jedna berlicka
existuje a to je vlozeni linku do adresare SendTo v adresari Windows. Je
potreba, aby tvoje aplikace umoznovala otevrit soubor i pres parametr
prikazoveho radku.

Dale mne napada , pokusit se zaregistrovat soubory, se kterymi pracuje
Tvoje apliakce do systemovych registru Windows.

Zda se to byt pruchozi, chce to jen prozkoumat registry a cas.

IKS - Martin Lasevic

-----Puvodni zprava-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odeslano: 29. oijna 1998 9:01
Komu: '*** Delphi'
Poedmit: Kontextove menu

Zdravim,

jak dostat odkaz na otevreni souboru ve svem programu do kontextoveho
menu Windows (tam kde je OTEVRIT, OTEVRIT V PROGRAMU a pod)?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................

CREATE VIEW ze dvou SELECTu

[*] mbartone(zv)Synthesia(tec)cz - 29.10.1998 10:22:42

Ahoj
Poradte mi prosim jak vytvorit VIEW spojene ze dvou vyberu

CREATE VIEW info (c1,c2,c3,c4) as

mam dva vybery z tabulek T1 a T2, klicem jsou vzdy sloupce C1 a C2

SELECT t1.c1, t1.c2, t1.c3 FROM t1

SELECT t1.c1, t1.c2, COUNT(t2.c4) FROM t1, t2
where t1.c1 = t2.c1 AND t1.c2 = t2.c2
GROUP BY t1.c1, t1.c2

Ted nevim jak je spojit aby se do VIEW dostal sloupec c3 z prvniho vyberu a
sloupec c4 z druheho vyberu.

Dekuji Milan

Pripojeni InterBase - upresneni

[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 29.10.1998 10:24:00

Haj hou!

Pro pripojeni k IB protokolem NetBEUI pouzij specifikaci serveru (databaze)
pomoci UNC, tedy ve forme \\<server>\<cesta>\<jmeno_databaze>

napr. \\NasServer\C:\Database\MojeData.GDB

HTH

>Dobry den,
>
>jedna se konkretne o situaci : lokalni sit, kde mam InterBase server
>na NT stanici a pristupuji k ni ze stanice s Win98, na ktere je take
>Internet. Pokud pouziju k pristupu NetBEUI funguje vse normalne,
>pri TCP/IP chce na zacatku spojeni vytocit telefonicke pripojeni,
>pokud mu to povolim, funguje dal normalne, pokud ne, aplikace
>prestane reagovat. Je jedno jestli pristupuji z vlastni aplikace,
>Database Desktopu, InterBase Server Manageru nebo od jinud.
>Typ protokolu umim nastavit pouze v InterBase Server Manageru
>(ma na to volbu), ostatni aplikace pouzivaji standartne TCP/IP.
>Nastavovanim protokolu na stanici (na urovni Windows) jsem se
>niceho nedobral. Dokud tam nebyl ten Internet (telefonicke pripojeni),
>tak to fungovalo normalne.

Update #2 pre Delphi 4

[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 29.10.1998 10:27:40

Haj hou!

D4 (zatim) nemam, ale podle ohlasu na netu je D4 po SP2 konecne pouzitelna
(zasadni chyby byly odstraneny, je rychlejsi a stabilnejsi).

> Ahoj,
>
> tak Inprise konecne vydal Update Pack #2 pre Delphi 4.
> Najdete ho samozrejme na www.inprise.com .
>
> Je to 22 MB. Ostava len dufat, ze tentoraz bude ten update aj
> nieco riesit (nie ako ten prvy).

Prohlizeni hierarchie VCL komponent

[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 29.10.1998 10:29:11

[P��loha v souboru: VCLTREE.ZIP]
Na Chip CD 11/98 jsem mezi komponentami pro Delphi objevil i jednu docela
zajimavou - VCL hierarchy browser. Po instalaci se v helpu k Delphi objevi
novy radek a pod nim se skryva prohlizeni hierarchie komponent s navaznosti
na help, metodami atd.... Kdo by mel zajem, poslu. Urceno pro D4 (21kB i se
zdroji)

Jan Fiala jan.fiala(zv)iname.com

Grid

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 29.10.1998 10:38:09


To je jednoduchy, napis si SQL
select T Clovek.C Cloveka, T Clovek.Jmeno, [union] T Telefon.C Telefonu
where T Clovek.C Cloveka=T Telefon.C Cloveka
[order by ... ]

Union je kdyz by nemel ten clovek telefon, tak by tam nebyl
a order by je trideni.

U TQuery se da nastavit vlastnost "Request Live" a pokud je true,
tak muzes data i editovat, ale nejsem si jisty, jestli to jde
i pro vyber z vice tabulek, kdyz ne, tak si muzes si udelat
pomocny formularik, ktery Ti bude ta data vkladat a upravovat.

BTW : Mozna to pujde nejak i pres MaskerSource,Lookup, ci
CalcFields, ale ja bych to resil pres SQL, je to bezpecnejsi.
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odesl�no: 27. ��jna 1998 15:38
Komu: delphi-l(zv)fwd(tec)cz

Vedla seba, nieco ako dotaz v Accese. Napr mam jednu tabulku kde je polozka
cislo cloveka a polozka telefon.
V druhej tabulke je polozka cislo cloveka a meno.
A ja chcem GRID kde budu vedla seba polozky napr. cislo cloveka, telefon a
meno. A chcem aby sa vsetky polozky dali editovat a podla moznosti aby to
bolo cez komponentu table, ak sa to neda tak cez SQL.
-----------
A myslis "pod sebou" nebo "vedle sebe" ?
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odesl�no: 27. ��jna 1998 8:27
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: grid

Zdravim vsetkych

Da sa zobrazit v jednej komponente grid zaznamy z dvoch tabuliek ?

vdaka za vsetky odpovede.

Servisni balik 2.

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 29.10.1998 10:41:14


Hi,

na Inprise je druhy servisni balik. Mam docela problem ho stahnout ( balik
pro C/S ). Mate-li ho nekdo, muzete mi ho prosim poslat mailem nebo ho dat
nekam tady v Cesku ?

Diky moc

Vasek



V�clav Lukes

E-mail: Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247

Inverzni barva

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


Co treba negovat bity ?
Tedy ColorInv:=not Color_Puv

D.

>Lze nejak zjistit 'inverzni' barvu?
>
>Mam treba cervenou a chci inverzni ...
>
>Mac
>
>--
>==============================================================
>= 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 =
>==============================================================

S3 ????????

[*] V�clav Novotn� - 29.10.1998 10:43:58

Ahoj,
Mam podobnou zkusenost s S3Trio3D 4MB AGP. Objevi se titulni obrazovka a zatuhne. Pak jsem nastavil barvy na TrueColor a rozbehlo se to.
P.S.
Stejne jsem si potom sel koupit ATInu.

Venca
-----P�vodn� zpr�va-----
Od: Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz>
Komu: Delphi(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 23. ��jna 1998 18:35
P�edm�t: S3 ????????


Nazdarek,
Muj pritel me pozadal o pomoc, ale moc jsem mu neporadil, tak se ptam vas.
Nevite proc nebeha D3 na nektrych sestavach pocitacu?
Delphi proste nabiha...objevi se splash screen...nahrava..a...a....cely se to kousne.
Nezbyva nez tvrdy reset. Cim to je? S3 Virge? Cirix?

Autor: Serbajlo Pavel
e-mail: serb(zv)mikulov.sol(tec)cz
ICQ: 20849973
www: www.memamstranky(tec)cz

Update - Delete Record ?

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


Vymazat -
delete from T Tabulka
[where libovolna podminka] - pokud tam nebude, vymaze se vsechno !!!
Opravit -
update T Tabulka set Sloupec1=HodnotaX, Sloupec2=HodnotaY, ...
where podminka

Je to v n�pov�d� !

D.

----------
Od: TUNGLI Jan[SMTP:tungli(zv)pvt.sk]
Odesl�no: 28. ��jna 1998 7:46
Komu: DELPHI Distribution List
P�edm�t: Update - Delete Record ?

Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z tabulky,
ked na tabulke nie je ziadny unikatny index (ani unikatna polozka) 20
Viem TTABLE komponent to dokaze ale TQUERY neviem.

TUNGLI Jan
tungli(zv)pvt.sk

Update - Delete Record ?

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


Nepotrebujes zadnou unikatni polozku
pokud zadas
delete from T User where UPPER(Username)="PEPIK" and Passwd is null
tak Ti to vymaze vsechny Pepiky, kteri nemaji vyplnene heslo.

D.


Ako chces vidat update ked nie je unikatna polozka?
Co zapises do where , a ked nic nezapises tak update ide na vsetky recordy.
Porozmyslaj este raz.

TUNGLI Jan
tungli(zv)pvt.sk

----------
> Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> Pre: delphi-l(zv)fwd(tec)cz
> Predmet: Re: Update - Delete Record ?
> D�tum: 28. okt�ber 1998 9:14
>
> TUNGLI Jan wrote:
>
> > Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z tabulky,
> > ked na tabulke nie je ziadny unikatny index (ani unikatna polozka) ? Viem
> > TTABLE komponent to dokaze ale TQUERY neviem.
>
> update ... where ...
> Obdobne s delete.
>
>
> 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

MS SQL 7.0 a VARCHAR(2000)

[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 29.10.1998 10:57:49

Zdravim,

zkousel jste nekdo pristup z Delphi na MS SQL server s tabulkou obsahujici
sloupec s typem varchar(x), kde x > 255?
Vytvoreni tabulky neni problem, nasypani dat pres nastroje M$ taky ne, ale
pres Delphi 3 dostavam stale jen 255 znaku. Pri pohledu do VCL se pri
TStringField alokuje buffer spravne na 8192 byte, ale dostanu jen tech 255
:-(((

diky za rady
Petr L.

> 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
>
>

Kontextove menu

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 29.10.1998 11:00:25

> Konkretne primo otevrit ci otevrit v programu nevim, ale
> jedna berlicka
> existuje a to je vlozeni linku do adresare SendTo v adresari

Tuhle "berlicku" pouzivam, ale chtelo by to jeste neco jineho. Proc muze
mit napr. FrontPage editor kontextove menu EDIT a moje aplikace ne?> Dale mne napada , pokusit se zaregistrovat soubory, se
> kterymi pracuje
> Tvoje apliakce do systemovych registru Windows.

Hledal jsem konkretne u toho FrontPage zpusob, jak je v REGISTRY uveden,
ale nenasel.
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................

TPC/IP komunikacia

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 29.10.1998 11:17:53

Nemam ziadne skusenosti s komunikaciou medzi aplikacie na roznich pocitacoch pomocou TCP/IP. Kto by mi to vysvetlil. privital by som kratku ukazku.
Dolezite je aby to pracovalo na sieti LAN.

TUNGLI Jan
tungli(zv)pvt.sk


Dotaz na upgrade

[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 29.10.1998 11:22:25

Dobry den,
v konferenci Delphi vyslo najevo, ze CBuilder 3 asi nelze upgradovat z
Visual Basic Learning. V Praze na Vaclavaku mi firma APRO sdelila, ze
Builder lze upgradovat z libovolneho vyvojoveho prostredi. Tak nevim cemu
verit ? Kde zjistim z ceho lze upgradovat ?

Dekuji za odpoved. Martin Vackar.

mvackar(zv)cpoj(tec)cz

Pricitani pomoci SQL

[*] rys(zv)zas-me(tec)cz - 29.10.1998 11:31:26

Dobry den,

potrebuji nejak elegantne (protoze se to bude casto opakovat) vyresit
nasledujici problem.

Mam dve tabulky. Obe obsahuji pole KOD1 (integer), KOD2 (smallint), POCET
(integer) a radu dalsich poli. Potrebuji projit druhou tabulku a pole POCET
u vsech zaznamu, u kterych je KOD1=xxxx, pricist k odpovidajicimu zaznamu v
prvni tabulce. (Odpovidajici zaznam je ten, ktery ma shodne hodnoty v polich
KOD1 a KOD2.)
Bylo by dobre, aby se v pripade, ze prvni tabulka odpovidajici zaznam jeste
neobsahuje, takovy zaznam vytvoril.

Nevite nekdo, jak to udelat pomoci SQL?

Dik za kazdy tip,
Karel Rys


DDe pro DOS

[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 29.10.1998 11:39:27

Nevite nekdo je-li mozne vytvorit DDe operace v systemu D3 jako server a TP7 jako klient pro prenos dat mezi sebou.
Jde mi o to aby program v TP7 akceptoval data posilana z programu v D3 a program v D3 prijimal pomoci DDE data
z programu v TP7?
Za jakoukoli odpoved diky.

Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68

tel: 66173163
fax: 6857003

nosek(zv)ujf.cas(tec)cz


Sdileni Pdox tabulek

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 29.10.1998 11:45:48

Ahojda,

potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
- "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
- tech databazi bude vice (kazda ve vlastnim adresari)
Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
databazi ...
Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
to hlasi: "Directory is controlled by other .NET file."

Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...

Diky.

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


MS SQL 7.0 a VARCHAR(2000)

[*] mbartone(zv)Synthesia(tec)cz - 29.10.1998 12:02:16

Datovy typ VARCHAR(n) muze mit u MS SQL pouze max 255 znaku,
pokud chces vice musis pouzit datovy typ TEXT (az 2 GB).

U ORACLE treba existuje VARCHAR2(n) , ktere muze byt libovolne.

Milan

Sdileni Pdox tabulek

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 29.10.1998 12:11:27

>potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> - tech databazi bude vice (kazda ve vlastnim adresari)
>Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
>Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> databazi ...
>Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> to hlasi: "Directory is controlled by other .NET file."


Je to D1 nebo vyssi?
Tuhle hlasku mi hazel DBD pro D3. Smazal jsem vsechny NET a nastavil je do
stejneho adresare. A porad to hlasil. Pak me napadlo, podivat se k nemu do
adr. a
ejhle mel tam dva LCK soubory. Odmazl jsem je a uz to jede. Takze dobra rada
pred
zacatkem otvirani studanek. Smazej LCK soubory.

Martin

Funkce BDE

[*] mbartone(zv)Synthesia(tec)cz - 29.10.1998 12:19:51

Ahoj,
nevite nekdo kde se da ziskat popis funkci BDE ?

Kontretne ted potrebuji zjistit z ALIASu MSSQL1 nebo ORACLE1 nastavenou
promennou USER NAME.

Dekuji Milan

Sdileni Pdox tabulek

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

No v BDE adminu se nastavi ve vlastnostech Paradox driveru cesta na NET
soubory a je to. A muze byt spolecna pro vsechny aplikace pracujici s
BDE a muze to byt jinam nez jsou data.

Ales

----------
Od: Stepan Cerny
Komu: Delphi konference
P�edm�t: Sdileni Pdox tabulek
Datum: 29. ��jen 1998 11:45

Ahojda,

potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
- "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
- tech databazi bude vice (kazda ve vlastnim adresari)
Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
databazi ...
Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
to hlasi: "Directory is controlled by other .NET file."

Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...

Diky.

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


Pricitani pomoci SQL

[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 29.10.1998 12:27:32

Hruby nastin:

update tab1
set pocet=pocet+(select pocet from tab2 where (tab2.kod1=tab1.kod1) and
(tab2.kod2=tab1.kod2))
where kod1=xxxx;

Takhle to bude ovsem fungovat jen pokud je hodnotami kod1 a kod2 urcen
nejvyse jeden radek tabulky. A nezkousel jsem to, takze to mozna nebude
fungovat vubec....

No a vytvorit neexistujici zaznamy by melo byt skoro totez, ale pres
INSERT...

-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------

> -----P�vodn� zpr�va-----
> Od: rys(zv)zas-me(tec)cz [SMTP:rys(zv)zas-me(tec)cz]
> Odesl�no: 29. ��jna 1998 11:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Pricitani pomoci SQL
>
> Dobry den,
>
> potrebuji nejak elegantne (protoze se to bude casto opakovat) vyresit
> nasledujici problem.
>
> Mam dve tabulky. Obe obsahuji pole KOD1 (integer), KOD2 (smallint), POCET
> (integer) a radu dalsich poli. Potrebuji projit druhou tabulku a pole
> POCET
> u vsech zaznamu, u kterych je KOD1=xxxx, pricist k odpovidajicimu zaznamu
> v
> prvni tabulce. (Odpovidajici zaznam je ten, ktery ma shodne hodnoty v
> polich
> KOD1 a KOD2.)
> Bylo by dobre, aby se v pripade, ze prvni tabulka odpovidajici zaznam
> jeste
> neobsahuje, takovy zaznam vytvoril.
>
> Nevite nekdo, jak to udelat pomoci SQL?
>
> Dik za kazdy tip,
> Karel Rys


MS SQL 7.0 a VARCHAR(2000)

[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 29.10.1998 12:32:22

To neni pravda, muze mit 8192 znaku a nvarachar 4096. Ja tam ty data fyzicky
jiz mam, pouze je nedostanu do Delphi...

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: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 29. ��jna 1998 12:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: MS SQL 7.0 a VARCHAR(2000)
>
> Datovy typ VARCHAR(n) muze mit u MS SQL pouze max 255 znaku,
> pokud chces vice musis pouzit datovy typ TEXT (az 2 GB).
>
> U ORACLE treba existuje VARCHAR2(n) , ktere muze byt libovolne.
>
> Milan
>

TPC/IP komunikacia

[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 29.10.1998 12:35:30

TUNGLI Jan wrote:

> Nemam ziadne skusenosti s komunikaciou medzi aplikacie na roznich pocitacoch pomocou TCP/IP. Kto by mi to vysvetlil. privital by som kratku ukazku.
> Dolezite je aby to pracovalo na sieti LAN.
>
> TUNGLI Jan
> tungli(zv)pvt.sk

caves

na stranke http://www.rtfm.be/fpiette/indexuk.htm su komponenty od f. piette - boli tuna uz viac krat spominane. okrem nich sa tam nachadzaju aj
priklady. vacsinou je to spolu so zdrojakmi, takze ak mas zaujem, staci si stiahnut zopar examples a prestudovat .. :)))


--
lubos dusanic

mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613

Insert string

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 29.10.1998 12:37:42

Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru nejaky
muj string. Tedy aby bylo jasno vlozit v editacnim poli treba doprostred
nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
mailove adresy vlozit zavinac).

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz

Kontextove menu

[*] rys(zv)zas-me(tec)cz - 29.10.1998 12:45:50

Dival jsem se do registru programem REGEDIT a nasel jsem treba tohle (pro
Word 97):
HKEY_CLASSES_ROOT\Word.Document.8\shell\open\command

Mozna by to stacilo tam nekam pridat...

Karel Rys

>> Konkretne primo otevrit ci otevrit v programu nevim, ale
>> jedna berlicka
>> existuje a to je vlozeni linku do adresare SendTo v adresari
>
>Tuhle "berlicku" pouzivam, ale chtelo by to jeste neco jineho. Proc muze
>mit napr. FrontPage editor kontextove menu EDIT a moje aplikace ne?
>
>> Dale mne napada , pokusit se zaregistrovat soubory, se
>> kterymi pracuje
>> Tvoje apliakce do systemovych registru Windows.
>
>Hledal jsem konkretne u toho FrontPage zpusob, jak je v REGISTRY uveden,
>ale nenasel.

TPC/IP komunikacia

[*] Bielik Marian <bielik(zv)basl.sk> - 29.10.1998 13:00:37

Ak to chces zobrat od podlahy tak studuj winsock a veci okolo toho
(http://www.sockaddr.com/RelatedLinks.html)
Ak nechces ist az tak moc k jadru veci tak potrebujes nejaku komponentu
a najlepsia stranka pre teba je http://www.rtfm.be/fpiette/indexuk.htm


TUNGLI Jan wrote:

> Nemam ziadne skusenosti s komunikaciou medzi aplikacie na roznich pocitacoch pomocou TCP/IP. Kto by mi to vysvetlil. privital by som kratku ukazku.
> Dolezite je aby to pracovalo na sieti LAN.
>
> TUNGLI Jan
> tungli(zv)pvt.sk

Funkce BDE

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 29.10.1998 13:06:45

V helpu

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz


> -----P�vodn� zpr�va-----
> Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 29. Oktober 1998 12:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Funkce BDE
>
> Ahoj,
> nevite nekdo kde se da ziskat popis funkci BDE ?
>
> Kontretne ted potrebuji zjistit z ALIASu MSSQL1 nebo ORACLE1
> nastavenou
> promennou USER NAME.
>
> Dekuji Milan
>

Sdileni Pdox tabulek

[*] Baluch <tpplus(zv)zasova(tec)cz> - 29.10.1998 13:30:05

Nejzakladnejsi vjeci je mit na VSECH pocitacich STEJNOU cestu v NET DIR.
Opravdu naprosto shodnou - nejde o to, aby ukazovala na stejne misto, ale
aby byla stejna. Cesta muze byt s pajplajnami nebo pres namapovany disk
(\\server\c\sdileny nebo treba F:\DATA [IMHO jsou pipelines nejvhodnejsi])
Dokonce se mi stavalo, ze hrala roli mala a velka pismena !!!
Timhle bys to mel rozchodit, ale nemash ani zdaleka vyhrano, neb ti zarucuju
ze se budes cim dal tim casteji setkavat s hlaskami typu "Index is corrupted
..." apod. Existuje asi milion "zarucenych" rad jak se tohoto vyvarovat,
bohuzel zadna z nich se stoprocentne neosvedci, takze budes muset (nejlepe v
programu) porad opravovat poskozene tabulky :-(. I tak bych ti ale doporucil
podivat se na stranky Inprise do Developer Support, kde je v TI popis
spravne instalace BDE a Paradoxu.

Jen pro demonstraci, jeden z publikovanych zpusobu odstraneni chybovych
hlasek "Index is corrupted..." (jeden krok z nekolika, mimo prehravani
systemovych knihoven na spravne verze :-}) je nasledujici:
Prave tlacitko na "Tento pocitac" -> Vlastnosti -> Vykon -> System
souboru -> Co delat v nesnazich -> tady zatrhnout "Nepouzivat novou
semantiku..." :-)))
Bohuzel vsechny materialy nemam po ruce, budes li je xtit, napis. Sam jsem
se s tim trapil neuvjeritelne dlouho a nikomu to nepreju.

Posledni vjec, jestli se chces zbavit problemu zapomen na Paradox v siti ;-(

Bye, Baluch
-----P�vodn� zpr�va-----
Od: Stepan Cerny <chaosz(zv)geocities.com>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 12:42
P�edm�t: Sdileni Pdox tabulek


>Ahojda,
>
>potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> - tech databazi bude vice (kazda ve vlastnim adresari)
>Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
>Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> databazi ...
>Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> to hlasi: "Directory is controlled by other .NET file."
>
>Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...
>
>Diky.
>
>--
>Stepan "Chaosz" Cerny
> tvoric of software
>chaosz(zv)geocities.com


Grid

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 13:37:04


Pokud to chces delat pres TTable, musi se zajistit svazani mezi tabulkami pomoci indexu,
tak aby se pri nastaveni na konkretni zaznam v Tab1 nastavil i odpovidajici zaznam v Tab2.

To udelas pres property MasterSource, MasterFiels a IndexFile. ( My to tak delame v PDOX) a tam to funguje.

Pak uz neni nic jednoduzsiho nez hodit obe tabulky do editu.

IKS

-----Puvodni zprava-----
Od: Dobromil Maly
Odeslano: 29. oijna 1998 10:38
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: Grid

To je jednoduchy, napis si SQL
select T_Clovek.C_Cloveka, T_Clovek.Jmeno, [union] T_Telefon.C_Telefonu
where T_Clovek.C_Cloveka=T_Telefon.C_Cloveka
[order by ... ]

Union je kdyz by nemel ten clovek telefon, tak by tam nebyl
a order by je trideni.

U TQuery se da nastavit vlastnost "Request Live" a pokud je true,
tak muzes data i editovat, ale nejsem si jisty, jestli to jde
i pro vyber z vice tabulek, kdyz ne, tak si muzes si udelat
pomocny formularik, ktery Ti bude ta data vkladat a upravovat.

BTW : Mozna to pujde nejak i pres MaskerSource,Lookup, ci
CalcFields, ale ja bych to resil pres SQL, je to bezpecnejsi.
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odeslano: 27. oijna 1998 15:38
Komu: delphi-l(zv)fwd(tec)cz

Vedla seba, nieco ako dotaz v Accese. Napr mam jednu tabulku kde je polozka
cislo cloveka a polozka telefon.
V druhej tabulke je polozka cislo cloveka a meno.
A ja chcem GRID kde budu vedla seba polozky napr. cislo cloveka, telefon a
meno. A chcem aby sa vsetky polozky dali editovat a podla moznosti aby to
bolo cez komponentu table, ak sa to neda tak cez SQL.
-----------
A myslis "pod sebou" nebo "vedle sebe" ?
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odeslano: 27. oijna 1998 8:27
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: grid

Zdravim vsetkych

Da sa zobrazit v jednej komponente grid zaznamy z dvoch tabuliek ?

vdaka za vsetky odpovede.

Insert string

[*] Baluch <tpplus(zv)zasova(tec)cz> - 29.10.1998 13:37:15

TCustomEdit.SelStart
SelStart is the position of the first selected character in the text. If
there is no selected text, SelStart indicates the position of the cursor.

Vice viz. help

Bye Baluch
-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: Delphi Konference (el. adresa) <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 13:24
P�edm�t: Insert string


>Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru nejaky
>muj string. Tedy aby bylo jasno vlozit v editacnim poli treba doprostred
>nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
>mailove adresy vlozit zavinac).
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>

Sdileni Pdox tabulek

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 29.10.1998 13:43:08

Diky za odpovedi !!!

Je to v D3.
Zajimalo by mne jeste, jestli to lze udelat primo v programu, jenom
pro jeho databaze ...

;-) Stepan


Martin Nedopil wrote:
>
> >potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> > - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> > - tech databazi bude vice (kazda ve vlastnim adresari)
> >Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
> >Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> > pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> > databazi ...
> >Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> > to hlasi: "Directory is controlled by other .NET file."
>
> Je to D1 nebo vyssi?
> Tuhle hlasku mi hazel DBD pro D3. Smazal jsem vsechny NET a nastavil je do
> stejneho adresare. A porad to hlasil. Pak me napadlo, podivat se k nemu do
> adr. a
> ejhle mel tam dva LCK soubory. Odmazl jsem je a uz to jede. Takze dobra rada
> pred
> zacatkem otvirani studanek. Smazej LCK soubory.
>
> Martin


Sdileni Pdox tabulek

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 29.10.1998 13:46:23

Na vsech pocitacich nastav v konfiguraci BDE polozky:

-Net Dir: nejlepsi je kdyz to ukazuje na stejny adresar na siti, ale
podminka je , ze krome pismene disku musi byt cesta uplne stejna, tj.
napr: 1.PC) c:\net\data 2.PC) g:\net\data a ne g:\data, tj. mel bys
mapovat cely disk jako sdileny
-V pripade W95 site nastav Local Share na TRUE. V opacnem pripade se
nediv nekorektnimu chovani aplikace, pripadne i ztrate dat.

No a ted by uz to melo fungovat - totiz pokud jsem na nic
nezapomenul.

S pozdravem

J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
> Odesl�no: 29. ��jna 1998 11:46
> Komu: Delphi konference
> P�edm�t: Sdileni Pdox tabulek
>
> Ahojda,
>
> potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> - tech databazi bude vice (kazda ve vlastnim adresari)
> Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor
?
>
> Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> databazi ...
> Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2.
> pocitaci
> to hlasi: "Directory is controlled by other .NET file."
>
> Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...
>
> Diky.
>
> --
> Stepan "Chaosz" Cerny
> tvoric of software
> chaosz(zv)geocities.com

Insert string

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 13:57:17

Zkust to takto :
v TEdit je property Text, SelStart a SelLength. SelStart ukazuje pozici kursoru v pripade, ze selLength=0.

No a z toho vyplyva :
Edit1.Text := Copy( Edit1.Text, 1, SelStart-1) + TvujString + Copy( Edit1.Text, SelStart, Length( Edit1.Text));

Cau
IKS
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
-----Puvodni zprava-----
Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
Odeslano: 29. oijna 1998 12:38
Komu: Delphi Konference (el. adresa)
Poedmit: Insert string

Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru nejaky
muj string. Tedy aby bylo jasno vlozit v editacnim poli treba doprostred
nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
mailove adresy vlozit zavinac).

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz

Prohlizeni hierarchie VCL komponent

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 14:00:18

Neni neco i pro D3.

-----Puvodni zprava-----
Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
Odeslano: 29. oijna 1998 10:29
Komu: Delphi forum
Poedmit: Prohlizeni hierarchie VCL komponent

Na Chip CD 11/98 jsem mezi komponentami pro Delphi objevil i jednu docela
zajimavou - VCL hierarchy browser. Po instalaci se v helpu k Delphi objevi
novy radek a pod nim se skryva prohlizeni hierarchie komponent s navaznosti
na help, metodami atd.... Kdo by mel zajem, poslu. Urceno pro D4 (21kB i se
zdroji)

Jan Fiala jan.fiala(zv)iname.com

<<Soubor: VCLTREE.ZIP>>

TPC/IP komunikacia

[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 29.10.1998 14:00:44

Mrkni na example ...\Demos\Internet\Chat

Martin
-----------

Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz

-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 10:18
P�edm�t: TPC/IP komunikacia


>Nemam ziadne skusenosti s komunikaciou medzi aplikacie na roznich
pocitacoch pomocou TCP/IP. Kto by mi to vysvetlil. privital by som kratku
ukazku.
>Dolezite je aby to pracovalo na sieti LAN.
>
>TUNGLI Jan
>tungli(zv)pvt.sk
>

Sdileni Pdox tabulek

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 14:05:56

Da se to udelat, je potreba pouzivat procedury a funkce pro BDE v unite BDE.pas. Komentar k nim je bud v helpu nebo na WWW.

IKS - Martin Lasevic

-----Puvodni zprava-----
Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
Odeslano: 29. oijna 1998 13:43
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Sdileni Pdox tabulek

Diky za odpovedi !!!

Je to v D3.
Zajimalo by mne jeste, jestli to lze udelat primo v programu, jenom
pro jeho databaze ...

;-) Stepan


Martin Nedopil wrote:
>
> >potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> > - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> > - tech databazi bude vice (kazda ve vlastnim adresari)
> >Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
> >Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> > pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> > databazi ...
> >Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> > to hlasi: "Directory is controlled by other .NET file."
>
> Je to D1 nebo vyssi?
> Tuhle hlasku mi hazel DBD pro D3. Smazal jsem vsechny NET a nastavil je do
> stejneho adresare. A porad to hlasil. Pak me napadlo, podivat se k nemu do
> adr. a
> ejhle mel tam dva LCK soubory. Odmazl jsem je a uz to jede. Takze dobra rada
> pred
> zacatkem otvirani studanek. Smazej LCK soubory.
>
> Martin


Sdileni Pdox tabulek

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 29.10.1998 14:07:37

No, rekl bych ze Paradox v siti nejsou tak spatne, ALE...

U nas mame (krome mych programatorskych :-) a uzivetelskych chyb)
(uz) pramalo problemu s uvedenym hlaskami. To ale je: Server COMPAQ
Proliant 1600, Novell IntraNetWare 4.11, (na pocitacich s aktivnim
vyuzivanim tabulek) klienta fy Novell, spolehlivou kabelaz, pocitace
COMPAQ, vsude stejny system...
Bez problemu slo vsechno i s MS klientem pro Novell pro starsi server
(486/33) od Compaqu s NW 3.12, ale po prechodu na Intranetware
uvedene zpravy byly na dennim poradku (a i jine problemy). Novellacky
klient to vetsinou vyresil.
Kdyz pouzivas W95 sit, tak bych ti doporucil opravdu vypnout malem
vsechny volby v "Tento pocitac" -> Vlastnosti -> Vykon -> System
souboru -> Co delat v nesnazich ->, hlavne Zpozdeni zapis, nebo jak
se jmenuje.

Jinak -abych Novell nechvalil uplne- Novellackeho klienta nemame na
vsech stanicich, protoze po nainstalovani nemuzeme nastavit v
DOSovskych aplikacich pamet EMS, co vyuziva nas ucetni system. Klient
ho proste odpali.

A jeste jeden off-topic:
Nevite nekdo, proc nam Word97 pri ukonceni (presneji po uprave libov.
existujiciho dokumentu pouzivajiciho sablonu vytvoreneho nekde mimo
nasi firmu na uplne jine NW siti) chce vervomoci odhlasovat z NDS,
kdyz to od nej nikdo nechce? A kdyz to nekdo odklepne, odhlasi se mu
vsechny disky, krome toho, na kterem zrovna pracuje nejaky jiny
spusteny program.

Diky za vsechny rady.

S pozdravem

J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz


> -----P�vodn� zpr�va-----
> Od: Baluch [SMTP:tpplus(zv)zasova(tec)cz]
> Odesl�no: 29. ��jna 1998 13:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Sdileni Pdox tabulek
>
> Timhle bys to mel rozchodit, ale nemash ani zdaleka vyhrano, neb ti
> zarucuju
> ze se budes cim dal tim casteji setkavat s hlaskami typu "Index is
> corrupted
> ..." apod. Existuje asi milion "zarucenych" rad jak se tohoto
> vyvarovat,
> bohuzel zadna z nich se stoprocentne neosvedci, takze budes muset
> (nejlepe v
> programu) porad opravovat poskozene tabulky :-(. I tak bych ti ale
> doporucil
> podivat se na stranky Inprise do Developer Support, kde je v TI
> popis
> spravne instalace BDE a Paradoxu.
>
> Jen pro demonstraci, jeden z publikovanych zpusobu odstraneni
> chybovych
> hlasek "Index is corrupted..." (jeden krok z nekolika, mimo
> prehravani
> systemovych knihoven na spravne verze :-}) je nasledujici:
> Prave tlacitko na "Tento pocitac" -> Vlastnosti -> Vykon -> System
> souboru -> Co delat v nesnazich -> tady zatrhnout "Nepouzivat novou
> semantiku..." :-)))
> Bohuzel vsechny materialy nemam po ruce, budes li je xtit, napis.
> Sam jsem
> se s tim trapil neuvjeritelne dlouho a nikomu to nepreju.
>
> Posledni vjec, jestli se chces zbavit problemu zapomen na Paradox v
> siti ;-(
>
> Bye, Baluch

Insert string

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 29.10.1998 14:09:25

A co treba precist si ten retezec nekam, tam s nim provest normalni
operace jako s kazdym jinym retezcem a pak to ha tam poslat zpet (do
Editu).

Neni to jedine reseni, ale me se zda jako nejlepsi (z meho
pohledu).........


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> Odesl�no: 29. ��jna 1998 12:38
> Komu: Delphi Konference (el. adresa)
> P�edm�t: Insert string
>
> Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru
> nejaky
> muj string. Tedy aby bylo jasno vlozit v editacnim poli treba
> doprostred
> nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
> mailove adresy vlozit zavinac).
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
>

Prohlizeni hierarchie VCL komponent

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 29.10.1998 14:11:51

Koukam ze uz se stalo :-)

no, i mistr tesar se nekdy utne.......


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 29. ��jna 1998 10:29
> Komu: Delphi forum
> P�edm�t: Prohlizeni hierarchie VCL komponent
>
> Na Chip CD 11/98 jsem mezi komponentami pro Delphi objevil i jednu
> docela
> zajimavou - VCL hierarchy browser. Po instalaci se v helpu k Delphi
> objevi
> novy radek a pod nim se skryva prohlizeni hierarchie komponent s
> navaznosti
> na help, metodami atd.... Kdo by mel zajem, poslu. Urceno pro D4
> (21kB i se
> zdroji)
>
> Jan Fiala jan.fiala(zv)iname.com
> <<Soubor: VCLTREE.ZIP>>

Prohlizeni hierarchie VCL komponent

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 29.10.1998 14:12:41


To je od tebe hezky, ze kdo by mel zajem, ze mu to posles,
ale ja zajem nemam (nemam D4) a poslal jsi mi to taky.

Takze pekne dekuji.
D.

----------
Od: Jan Fiala[SMTP:jan.fiala(zv)iname.com]
Odesl�no: 29. ��jna 1998 10:29
Komu: Delphi forum
P�edm�t: Prohlizeni hierarchie VCL komponent

<<Soubor: VCLTREE.ZIP>>
Na Chip CD 11/98 jsem mezi komponentami pro Delphi objevil i jednu docela
zajimavou - VCL hierarchy browser. Po instalaci se v helpu k Delphi objevi
novy radek a pod nim se skryva prohlizeni hierarchie komponent s navaznosti
na help, metodami atd.... Kdo by mel zajem, poslu. Urceno pro D4 (21kB i se
zdroji)

Jan Fiala jan.fiala(zv)iname.com


Sdileni Pdox tabulek

[*] pcuhel(zv)deltax(tec)cz - 29.10.1998 14:16:31

Ahoj,

V BDE Config je v nastaveni configuration PARADOX ovladace polozka
NET DIR. Tam napises vsem klientum stejnou cestu nekam treba na server a
potom by to uz melo fungovat..

Bye.

====Puvodni zprava====

Ahojda,

potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
- "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
- tech databazi bude vice (kazda ve vlastnim adresari)
Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
databazi ...
Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
to hlasi: "Directory is controlled by other .NET file."

Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...

Diky.

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

funkce DriveReady ?

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 29.10.1998 14:35:48

Zdravicko...

Existuje v Delphi neco na zjistovani pripravenosti drive (napr. floppy
disku)? Kdysi (za doby DOSu) fungovalo otevreni souboru napr. A:\nul -
pokud nesel otevrit, ve FD nebyla disketa. Jenze to ve Windows
nefunguje, a zadnou funkci k Delphi jsem v helpu nenasel. :-(

F.

Sdileni Pdox tabulek

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 29.10.1998 14:48:08

Jen tak trochu na okraj......prestoze jsem tvrdy (nekdo rekne spis
natvrdly :-) zastance WinNT, doporucuji umistit ten NET soubor na
Novell. Je s tim min problemu, obzvlaste kdyz je ta sit fyzicky
rozlehlejsi (routery....) NT jsou docela citlive na poskozene pakety a
pak to pada a tuhne...... Takze data na NT a NET na Novell.....jestli
mas tu moznost, ovsem ;-)


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Baluch [SMTP:tpplus(zv)zasova(tec)cz]
> Odesl�no: 29. ��jna 1998 13:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Sdileni Pdox tabulek
>
> Nejzakladnejsi vjeci je mit na VSECH pocitacich STEJNOU cestu v NET
> DIR.
> Opravdu naprosto shodnou - nejde o to, aby ukazovala na stejne misto,
> ale
> aby byla stejna. Cesta muze byt s pajplajnami nebo pres namapovany
> disk
> (\\server\c\sdileny nebo treba F:\DATA [IMHO jsou pipelines
> nejvhodnejsi])
> Dokonce se mi stavalo, ze hrala roli mala a velka pismena !!!
> Timhle bys to mel rozchodit, ale nemash ani zdaleka vyhrano, neb ti
> zarucuju
> ze se budes cim dal tim casteji setkavat s hlaskami typu "Index is
> corrupted
> ..." apod. Existuje asi milion "zarucenych" rad jak se tohoto
> vyvarovat,
> bohuzel zadna z nich se stoprocentne neosvedci, takze budes muset
> (nejlepe v
> programu) porad opravovat poskozene tabulky :-(. I tak bych ti ale
> doporucil
> podivat se na stranky Inprise do Developer Support, kde je v TI popis
> spravne instalace BDE a Paradoxu.
>
> Jen pro demonstraci, jeden z publikovanych zpusobu odstraneni
> chybovych
> hlasek "Index is corrupted..." (jeden krok z nekolika, mimo prehravani
> systemovych knihoven na spravne verze :-}) je nasledujici:
> Prave tlacitko na "Tento pocitac" -> Vlastnosti -> Vykon -> System
> souboru -> Co delat v nesnazich -> tady zatrhnout "Nepouzivat novou
> semantiku..." :-)))
> Bohuzel vsechny materialy nemam po ruce, budes li je xtit, napis. Sam
> jsem
> se s tim trapil neuvjeritelne dlouho a nikomu to nepreju.
>
> Posledni vjec, jestli se chces zbavit problemu zapomen na Paradox v
> siti ;-(
>
> Bye, Baluch
> -----P�vodn� zpr�va-----
> Od: Stepan Cerny <chaosz(zv)geocities.com>
> Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
> Datum: 29. ��jna 1998 12:42
> P�edm�t: Sdileni Pdox tabulek
>
>
> >Ahojda,
> >
> >potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> > - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> > - tech databazi bude vice (kazda ve vlastnim adresari)
> >Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
> >Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> > pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> > databazi ...
> >Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> > to hlasi: "Directory is controlled by other .NET file."
> >
> >Jeste jsem nic takoveho nedelal, tag prosim o rady a namety ...
> >
> >Diky.
> >
> >--
> >Stepan "Chaosz" Cerny
> > tvoric of software
> >chaosz(zv)geocities.com


UKONCENIE PROGRAMU

[*] Ing. J�n Kuch�r�����!j��G - 29.10.1998 14:54:49

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

Caute

Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho unitu.

Dik

Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk

"Povidani" s MS WORD

[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 29.10.1998 15:02:29

Ahoj vsichni !
Pisu program, ve kterem se nejak edituji nejaka data a nejak se
zobrazuji a zadavatel chce, aby se techto grafu dalo na stranku
rozmistit vic (treba tri). Mozna existuje elegantnejsi reseni, ale
napadlo me, ze by se to dalo importnout do Wordu jako obrazek a tak by
si to uzivatel doeditoval sam. Vubec ale nevim jak na to. Poradi nekdo ?
Obrazek ma vektorovy charakter.
diky moc Honza
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+

posilani obrazku

[*] Bielik Marian <bielik(zv)basl.sk> - 29.10.1998 15:25:12

Snad to ani nemusi byt komerc. soft. Skus http://www.orl.co.uk/vnc/
bezi to na UNIXoch , WINDOZOCH a v JAVE

Martin Fron�k wrote:

> A co pouzit PC AnyWhere od Symantecu? Mozna to prijde levneji nez vyvoj
> neceho vlastniho.
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Jirka Novacek [SMTP:jnovacek(zv)telecom(tec)cz]
> > Odesl�no: 26. ��jna 1998 17:00
> > Komu: delphi(zv)pinknet(tec)cz
> > P�edm�t: posilani obrazku
> >
> > Ahoj Delfini!
> >
> > Mam n�sledujici problem. Potrebuji napsat program, ktery bude na
> > jednom
> > pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci
> > bude
> > zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu
> > vdecny
> > za kazdou radu.
> >
> > Dik Jirka
> >
> > <jnovacek(zv)telecom(tec)cz>

"Povidani" s MS WORD

[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 29.10.1998 15:31:27

Jan Stuchlik Thu, Oct 29, 1998 at 03:02:29PM +0100 pise:
> Ahoj vsichni !
> Pisu program, ve kterem se nejak edituji nejaka data a nejak se
> zobrazuji a zadavatel chce, aby se techto grafu dalo na stranku
> rozmistit vic (treba tri). Mozna existuje elegantnejsi reseni, ale
> napadlo me, ze by se to dalo importnout do Wordu jako obrazek a tak by
> si to uzivatel doeditoval sam. Vubec ale nevim jak na to. Poradi nekdo ?
> Obrazek ma vektorovy charakter.
> diky moc Honza
> --
> +-------------------------------------------------------------------+
> |Jan Stuchlik, student CVUT FEL, Hardware & software servis |
> |E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
> +-------------------------------------------------------------------+

OLE. Rozviril jsem o tom diskuzi zhruba pred mesicem. viz archiv konference.

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


UKONCENIE PROGRAMU

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 29.10.1998 15:33:33

Application->Terminate();


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 29. ��jna 1998 14:55
> Komu: Delphi
> P�edm�t: UKONCENIE PROGRAMU
>
> Caute
> �
> Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam
> iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco
> otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako
> ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho
> unitu.
> �
> ����������������������������������������������������������������������
> ������������������������� Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko�ice
> Letn� 9
> 040 01 Ko�ice
> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>

Update - Delete Record ?

[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 29.10.1998 15:33:46


Pokud tam opravdu nen� zadna unikatni polozka ani kombinace polozek, pak to nejde. Ale na lokalnich SQL asi unikatni polozka vzdy bude (cislo radku). Na C/S SQL serverech to opravdu nemusi jit, vetu, kterou chces smazat musis nejak identifikovat a neni-li unikatni identifikator, smazes toho vic. Otazka zni, nac mas vlastne vic totoznych vet, ktere nemaji zadny unikatni identifikator.

-----P�vodn� zpr�va-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odesl�no: 29. ��jna 1998 9:18
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Update - Delete Record ?

TUNGLI Jan wrote:

> Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z tabulky,
> ked na tabulke nie je ziadny unikatny index (ani unikatna polozka) ? Viem
> TTABLE komponent to dokaze ale TQUERY neviem.

update ... where ...
Obdobne s delete.


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

Kontextove menu

[*] kelleon(zv)nnsk.sk - 29.10.1998 15:48:19

> -----Original Message-----
> jak dostat odkaz na otevreni souboru ve svem programu do kontextoveho
> menu Windows (tam kde je OTEVRIT, OTEVRIT V PROGRAMU a pod)?

Posielam priklad: Zaregistruje to prikaz Open pre subory s priponou .ggg
tak, aby sa spustil C:\Program Files\Firma\Adresar\MojProg.exe.

// File Type
[HKEY_CLASSES_ROOT\.ggg]
(zv)="gggfile"

[HKEY_CLASSES_ROOT\gggfile]
(zv)="Unit Linked Projection"
EditFlags=binary:00000000

[HKEY_CLASSES_ROOT\gggfile\DefaultIcon]
(zv)="C:\\Program Files\\Firma\\Adresar\\MojProg.exe,0"

[HKEY_CLASSES_ROOT\ulpfile\Shell]

[HKEY_CLASSES_ROOT\ulpfile\Shell\Open]
(zv)="&Open"

[HKEY_CLASSES_ROOT\ulpfile\Shell\Open\command]
(zv)="\"C:\\Program Files\\Firma\\Adresar\\MojProg.exe\" \"%1\""

CreateIconIndirect

[*] voborsky(zv)menza.mff.cuni(tec)cz - 29.10.1998 15:51:56

Ahojte vsichni,
Potrebuju v programu vytvorit ikonu - to neni zas takovy problem,
pouzije se fce Win32 API CreateIconIndirect a jako parametry se ji
poslou maskovaci bitmapa a bitmapa ikony.

Ale co kdyz potrebuju vytvorit ikonu, ktera nema pouze 16 trapnych
barev? CreateIconIndirect v tomto pripade selhava.

Diky za napady
Lukas


Sdileni Pdox tabulek

[*] Baluch <tpplus(zv)zasova(tec)cz> - 29.10.1998 15:53:21

Samozrejme mas pravdu. Pod Novellem asi nenastavaji problemy jako ve W95
siti - to jsem mel asi zduraznit :-). Tam je to ale opravdu hruza, priznam
se ze vsechny problemy se mi ani zdaleka nepodarilo vyresit.

Bye, Baluch
TP+ s.r.o.
Ostrava
-----P�vodn� zpr�va-----
Od: Jirka <Juraj.Nagy(zv)nh-trans(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 15:19
P�edm�t: RE: Sdileni Pdox tabulek


No, rekl bych ze Paradox v siti nejsou tak spatne, ALE...

U nas mame (krome mych programatorskych :-) a uzivetelskych chyb)
...

Kontextove menu

[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 29.10.1998 16:04:53

Zkus priklad z D3: C:\Program Files\Borland\Delphi
3\Demos\SHELLEXT\CONTMENU.DPR
Ten resi to co asi potrebujes.

Ing. Daniel Ficek

Krayzel Libor wrote:

> Zdravim,
>
> jak dostat odkaz na otevreni souboru ve svem programu do kontextoveho
> menu Windows (tam kde je OTEVRIT, OTEVRIT V PROGRAMU a pod)?
> .........................................................
> . Libor Krayzel .
> . Czech Television, Studio Ostrava .
> . Dvorakova 18, 702 00 Ostrava .
> . Telephone: 069-6201375 .
> . URL: http://webhost(tec)cz/elka .
> . E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
> . Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
> . E-mail2: mailto:sovtop(zv)email(tec)cz .
> .........................................................

Update - Delete Record ?

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 29.10.1998 16:06:33


Souhlasim s Vlastikem.

-----Puvodni zprava-----
Od: Bardon
Odeslano: 29. oijna 1998 15:34
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: Update - Delete Record ?

Pokud tam opravdu neni zadna unikatni polozka ani kombinace polozek, pak to
nejde. Ale na lokalnich SQL asi unikatni polozka vzdy bude (cislo radku).
Na C/S SQL serverech to opravdu nemusi jit, vetu, kterou chces smazat musis
nejak identifikovat a neni-li unikatni identifikator, smazes toho vic.
Otazka zni, nac mas vlastne vic totoznych vet, ktere nemaji zadny unikatni
identifikator.

-----Puvodni zprava-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odeslano: 29. oijna 1998 9:18
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Update - Delete Record ?

TUNGLI Jan wrote:

> Je nejako mozne cez TQUERY modifikovat a vymazat zaznam z tabulky,
> ked na tabulke nie je ziadny unikatny index (ani unikatna polozka) ? Viem
> TTABLE komponent to dokaze ale TQUERY neviem.

update ... where ...
Obdobne s delete.


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


D2 a MSWord97, OLE

[*] kelleon(zv)nnsk.sk - 29.10.1998 16:08:42


Skus toto: MSWord.ActiveDocument.Bookmarks.Item('COMPANY').Select;

> -----Original Message-----
> MSWord:=CreateOleObject('Word.Application');
> MSWord.visible := true;
> MSWord.documents.add('ks.dot');
> MSWord.ActiveDocument.Bookmarks('COMPANY').Select;
> // Error:"bookmarks" is not method
> MSWord.ActiveDocument.Bookmarks['COMPANY'].Select;
> // Error:"item" (?) is not property


UKONCENIE PROGRAMU

[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 29.10.1998 16:48:04


Nejlepe: Application.Terminate;
pripadne take: Application.MainForm.Close;

Ing. Daniel Ficek

Ing. J�n Kuch�r wrote:

> Caute Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu
> vyvolam iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy
> unit nieco otestuje a ked to nevyhovuje ma ukoncit program. Otazka
> znie : ako ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho
> pomocneho
> unitu.
> Dik
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko&scaron;ice
> Letn� 9
> 040 01 Ko&scaron;ice
> E-mail : kuchar(zv)tuke.sk


16bit aplik. v delphi 2?

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 29.10.1998 17:18:42

zdravim,

dostal som taku otazku>
da sa urobit 16bitova aplikacia v Delphi2?

podla mojho nazoru, prave pre tieto prilezitosti je na CD aj delphi 1,
ale neda sa to nejako obist (nastavenie linkera apd.)??

za pripadne odpovede a nazory dakujem

--
Majte sa,
R.

Kontextove menu

[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 29.10.1998 21:41:13

Ahoj,

neco obdobneho je reseno v knize 1000+1 tip
pro W95. Jedna se pridani nazvu nove polozky do
registru s patricnym prikazem pro akci.
Knihu nemam zrovna u sebe, ale jestli chces tak
Ti to najdu.

S pozdravem
==============================
> Pavel Malinsky; spiderland(zv)usa.net <
==============================

-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 9:30
P�edm�t: Kontextove menu


>Zdravim,
>
>jak dostat odkaz na otevreni souboru ve svem programu do kontextoveho
>menu Windows (tam kde je OTEVRIT, OTEVRIT V PROGRAMU a pod)?
>..........................................................
>.. Libor Krayzel .
>.. Czech Television, Studio Ostrava .
>.. Dvorakova 18, 702 00 Ostrava .
>.. Telephone: 069-6201375 .
>.. URL: http://webhost(tec)cz/elka .
>.. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
>.. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
>.. E-mail2: mailto:sovtop(zv)email(tec)cz .
>..........................................................
>
>

posilani obrazku

[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 29.10.1998 23:01:07

Nebo Carbon Copy (Microcom)...
taky to nestoji majlant
> From: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
> To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> Subject: RE: posilani obrazku
> Date: Thu, 29 Oct 1998 09:14:10 +0100
> Reply-to: delphi-l(zv)fwd(tec)cz

> A co pouzit PC AnyWhere od Symantecu? Mozna to prijde levneji nez vyvoj
> neceho vlastniho.
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Jirka Novacek [SMTP:jnovacek(zv)telecom(tec)cz]
> > Odesl�no: 26. ��jna 1998 17:00
> > Komu: delphi(zv)pinknet(tec)cz
> > P�edm�t: posilani obrazku
> >
> > Ahoj Delfini!
> >
> > Mam n�sledujici problem. Potrebuji napsat program, ktery bude na
> > jednom
> > pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci
> > bude
> > zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu
> > vdecny
> > za kazdou radu.
> >
> > Dik Jirka
> >
> > <jnovacek(zv)telecom(tec)cz>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: drvota(zv)zds(tec)cz (Win1250/ISO-8859-2)
http://www.zds(tec)cz
*-----------------------------------------------*

funkce DriveReady ?

[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 30.10.1998 05:45:04

Tady jsou dva priklady z archivu konference

if DirectoryExist('A:\') then "je tam"
else "tam neni nebo neni naformatovana (FAT)"


function DiskInDrive(const Drive: char): Boolean;
var DrvNum: byte;
EMode: Word;begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a')
then dec(DrvNum,$20);
EMode := SetErrorMode(SEM FAILCRITICALERRORS);
try if DiskSize(DrvNum-$40) <> -1 then result := true
else messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;

-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. ��jna 1998 14:36
P�edm�t: funkce DriveReady ?


Zdravicko...

Existuje v Delphi neco na zjistovani pripravenosti drive (napr. floppy
disku)? Kdysi (za doby DOSu) fungovalo otevreni souboru napr. A:\nul -
pokud nesel otevrit, ve FD nebyla disketa. Jenze to ve Windows
nefunguje, a zadnou funkci k Delphi jsem v helpu nenasel. :-(

F.

16bit aplik. v delphi 2?

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 06:41:02

asi ne . D2 uz je prece jenom 32 bitove. Spise se da obejit volatni 16- bit DLL v 32-bit app.

-----Puvodni zprava-----
Od: Radoslav Balvan [SMTP:balvanra(zv)datalock.sk]
Odeslano: 29. oijna 1998 17:19
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: 16bit aplik. v delphi 2?

zdravim,

dostal som taku otazku>
da sa urobit 16bitova aplikacia v Delphi2?

podla mojho nazoru, prave pre tieto prilezitosti je na CD aj delphi 1,
ale neda sa to nejako obist (nastavenie linkera apd.)??

za pripadne odpovede a nazory dakujem

--
Majte sa,
R.

Mapovani disku

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 30.10.1998 07:52:54

Zdravim,

existuje funkce (WINAPI), pomoci ktere lze namapovat/odmapovat sitovy
disk?

.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................

UKONCENIE PROGRAMU

[*] Ing. J�n Kuch�r�����!j��G - 30.10.1998 08:12:07

Application.terminate nezabralo, ked totiz davam spravu o ukonceni programu
pomocou messagedlg a po stlaceni tlacitka nasleduje ukoncenie, tak sa mi
program neukonci a to informacne okno zacne blikat.

-----P�vodn� zpr�va-----
Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 29. okt�ber 1998 16:21
P�edm�t: RE: UKONCENIE PROGRAMU


>Application->Terminate();
>
>
>Martin Fron�k
>ZZN Slan� a.s.
>Pra�sk� 1579, 274 49, Slan�
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> -----P�vodn� zpr�va-----
>> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
>> Odesl�no: 29. ��jna 1998 14:55
>> Komu: Delphi
>> P�edm�t: UKONCENIE PROGRAMU
>>
>> Caute
>>
>> Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam
>> iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco
>> otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako
>> ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho
>> unitu.
>>
>>
>> Dik
>>
>> Ing. J�n Kuch�r
>> Katedra inv�ci� a rein�inieringu
>> SjF TU Ko�ice
>> Letn� 9
>> 040 01 Ko�ice
>> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>
>

Mapovani disku

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 30.10.1998 08:39:27

Jiste: WNetAddConnection2
podivej se do helpu obcas.......


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 30. ��jna 1998 7:53
> Komu: '*** Delphi'
> P�edm�t: Mapovani disku
>
> Zdravim,
>
> existuje funkce (WINAPI), pomoci ktere lze namapovat/odmapovat sitovy
> disk?
>
> .........................................................
> . Libor Krayzel .
> . Czech Television, Studio Ostrava .
> . Dvorakova 18, 702 00 Ostrava .
> . Telephone: 069-6201375 .
> . URL: http://webhost(tec)cz/elka .
> . E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
> . Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
> . E-mail2: mailto:sovtop(zv)email(tec)cz .
> .........................................................
>

UKONCENIE PROGRAMU

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1998 09:26:49


Zkus Application.Terninate (jsou ale i tvrdsi metody - destroy)
ale ja bych doporucoval, aby Ti ta pomocna unit resp. ta procedura/
funkce, ktera ma neco otestovat, tak at Ti vrati nejakou boolean
hodnotu, jak to dopadlo. Ty si potom overis vysledky a muses
normalne clousnout main form.
D.

----------
Od: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
Odesl�no: 29. ��jna 1998 14:54
Komu: Delphi
P�edm�t: UKONCENIE PROGRAMU

<<Soubor: ATT00000.html>>
Caute

Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho unitu.

Dik

Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk

UKONCENIE PROGRAMU

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 09:42:10

Podivej se , co mas v metodach povesenych na OnDestroy, OnClose, popr. OnCloseQuery
IKS - Martens

-----Puvodni zprava-----
Od: Ing. Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
Odeslano: 30. oijna 1998 8:12
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: UKONCENIE PROGRAMU

Application.terminate nezabralo, ked totiz davam spravu o ukonceni programu
pomocou messagedlg a po stlaceni tlacitka nasleduje ukoncenie, tak sa mi
program neukonci a to informacne okno zacne blikat.

-----Puvodni zprava-----
Od: Martin Fronik <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 29. oktober 1998 16:21
Poedmit: RE: UKONCENIE PROGRAMU


>Application->Terminate();
>
>
>Martin Fronik
>ZZN Slany a.s.
>Pra?ska 1579, 274 49, Slany
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> -----Puvodni zprava-----
>> Od: Ing. Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
>> Odeslano: 29. oijna 1998 14:55
>> Komu: Delphi
>> Poedmit: UKONCENIE PROGRAMU
>>
>> Caute
>>
>> Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam
>> iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco
>> otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako
>> ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho
>> unitu.
>>
>>
>> Dik
>>
>> Ing. Jan Kuchar
>> Katedra invacii a rein?inieringu
>> SjF TU Ko?ice
>> Letna 9
>> 040 01 Ko?ice
>> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>
>

RX Lib problem

[*] reaia(zv)snt(tec)cz (REAiA CONSULTING, s. r. o.) - 30.10.1998 09:47:17

Ahojte,
stahul jsem si RX Lib a pri instalaci pod Delphi 3 Prof mi nejde zkompilovat
DCLRXTLS.DPK (tools) a to sice proto, ze nenajde DBX30.DPK. Hledal jsem to
na CD Delphi 3 a nasel jen DBX30.DPL. Znate reseni problemu ?
Jiri Becvar


Servisni balik 2 pro Delphi C/S

[*] Michal Salaj <salaj(zv)pronix.sk> - 30.10.1998 09:52:19

http://pronix.r-net.sk:81/d4cupd2.exe

Pozor, ma to 27 MB

S pozdravom

Michal Salaj
salaj(zv)pronix.sk
http://www.pronix.sk

-----Original Message-----
From: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 30. okt�ber 1998 9:42
Subject: Servisni balik 2 pro Delphi C/S


>
>Hi,
>
>podari se prosim vas nekomu ztahnout ten druhej servisni balik pro Delphi 4
>C/S ?
>Mohl by mi ho nekdo poslat mailem nebo ho nekam dat ke stazeni ?
>
>Diky
>
>Vasek
>
>
>
>V�clav Lukes
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
> 511247(zv)sms.paegas(tec)cz
>Tel.: 0603-511247
>

UKONCENIE PROGRAMU

[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 30.10.1998 10:29:17

Tak zkus PostQuitMessage, treba se to povede. Vaclav Sazima

Ing. J�n Kuch�r wrote:
>
> Application.terminate nezabralo, ked totiz davam spravu o ukonceni programu
> pomocou messagedlg a po stlaceni tlacitka nasleduje ukoncenie, tak sa mi
> program neukonci a to informacne okno zacne blikat.
>
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 29. okt�ber 1998 16:21
> P�edm�t: RE: UKONCENIE PROGRAMU
>
> >Application->Terminate();
> >
> >
> >Martin Fron�k
> >ZZN Slan� a.s.
> >Pra�sk� 1579, 274 49, Slan�
> >tel. +420-314-522986
> >e-mail: fronek(zv)zznslany(tec)cz
> >
> >> -----P�vodn� zpr�va-----
> >> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> >> Odesl�no: 29. ��jna 1998 14:55
> >> Komu: Delphi
> >> P�edm�t: UKONCENIE PROGRAMU
> >>
> >> Caute
> >>
> >> Potrebujem nasledujucu radu. Mam program, kde z hlavneho unitu vyvolam
> >> iny unit, ktory neobsahuje ziadne vyzualne prvky. Ten druhy unit nieco
> >> otestuje a ked to nevyhovuje ma ukoncit program. Otazka znie : ako
> >> ukoncit cely program ( celu aplikaciu, hlavny unit ) z toho pomocneho
> >> unitu.
> >>
> >>
> >> Dik
> >>
> >> Ing. J�n Kuch�r
> >> Katedra inv�ci� a rein�inieringu
> >> SjF TU Ko�ice
> >> Letn� 9
> >> 040 01 Ko�ice
> >> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>
> >

16bit aplik. v delphi 2?

[*] Lubos Jerabek <lubos(zv)mediadir(tec)cz> - 30.10.1998 10:47:58

Ja teda nevim vsude po svete na archivech vidim trideni D1=16bit D2 a vejs
jsou 32bit ale na mem CDecku D2 je take 16bitova plne funkcni verze tak
staci nainstalovat bohuzel nevim jak je s D3, ale myslim ze to je uz jen
32bit.

Lubos

>>dostal som taku otazku>
>>da sa urobit 16bitova aplikacia v Delphi2?

>podla mojho nazoru, prave pre tieto prilezitosti je na CD aj delphi 1,
>ale neda sa to nejako obist (nastavenie linkera apd.)??

>asi ne . D2 uz je prece jenom 32 bitove. Spise se da obejit volatni 16- bit
DLL v 32-bit app.

TWAIN

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 30.10.1998 11:18:58

Zdravim kolegovci !

Neviete nahodou o nejakej komponente na
podporu rozhrania TWAIN?

Chcel by som scanovat obrazky priamo
z aplikacie v Delphi a naradsej rovno
do formatu JPEG.

Poradite mi ?

P.Vlkovic


16bit aplik. v delphi 2?

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 11:25:01

Chlapi POZOR, na instalacnim CD je sice D2 i D1, ale to je upgrade na verzi
1.6 ( ta byla myslim posledni a pak uz dal od toho Inprise pracky pryc)
.Ale stale to byla D1, ktera byla pribalena k D2 ( 32 bitove).

Na D3 uz nic takoveho nejni, takze amen.

-----Puvodni zprava-----
Od: Lubos Jerabek [SMTP:lubos(zv)mediadir(tec)cz]
Odeslano: 30. oijna 1998 10:48
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: 16bit aplik. v delphi 2?

Ja teda nevim vsude po svete na archivech vidim trideni D1=16bit D2 a vejs
jsou 32bit ale na mem CDecku D2 je take 16bitova plne funkcni verze tak
staci nainstalovat bohuzel nevim jak je s D3, ale myslim ze to je uz jen
32bit.

Lubos

>>dostal som taku otazku>
>>da sa urobit 16bitova aplikacia v Delphi2?

>podla mojho nazoru, prave pre tieto prilezitosti je na CD aj delphi 1,
>ale neda sa to nejako obist (nastavenie linkera apd.)??

>asi ne . D2 uz je prece jenom 32 bitove. Spise se da obejit volatni 16-
bit
DLL v 32-bit app.

TWAIN

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 11:30:38

Ja sam s tim nemam zkusenosti, ale muzu Ti poradit na koho se obratit. Zkus mail Ineqsw(zv)ova.pvtnet(tec)cz, obratit se ing.Bardone.

Kluci to jsou sikovni a vim, ze ve svych apliakcich pouzivaji scanery pres rozhrani TWAIN ( v D3).

-----Puvodni zprava-----
Od: Peter Vlkovic [SMTP:vlkovic(zv)minv.sk]
Odeslano: 30. oijna 1998 11:19
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: TWAIN

Zdravim kolegovci !

Neviete nahodou o nejakej komponente na
podporu rozhrania TWAIN?

Chcel by som scanovat obrazky priamo
z aplikacie v Delphi a naradsej rovno
do formatu JPEG.

Poradite mi ?

P.Vlkovic


QReportPreview

[*] milank(zv)gratex.sk - 30.10.1998 11:47:19

Pri zavolani Preview u QReportu sa automaticky zobrazi nastavenie Zoom To
Width. Toto zobrazenie sice maximalne vyuzije sirku monitoru ale skresluje
fonty a pri hustom popise sa texty prekryvaju. Pri obrazeni Zoom 100% je
vsetko v poriadku. Poradte kto ma skusenosti ako nastartovat Preview priamo
so zobrazenim 100%. V dfm so zistil ze buton vola metodu ZoomTo100Click, pri
pokuse ju nejako zavolat OnPreview to neslo. Za kazdu radu D.

BDE Error

[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 30.10.1998 11:59:15

Ahoj,

ne..pouzivam TDBGrid a kdyz prejdu na posledni polozku tak mi
to furt hlasi : "Data grid out of index"

Nevite nekdo cim to muze byt ???

Diik

> ----------
> Od: Ji�� Heinisch[SMTP:HeiJu(zv)sol(tec)cz]
> Odesl�no: 27. ��jna 1998 19:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: BDE Error
>
> ahoj
> nepouzivas nahodou DBGridSinea
>
>
> HeiJu
>
>
> -----P�vodn� zpr�va-----
> Od: Petr Vale� <Petr.Vales(zv)gopas(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 27. ��jna 1998 16:07
> P�edm�t: BDE Error
>
>
> >
> >Ahoj vsichni,
> >
> >Pouzivam tabulku formatu Paradox a pres TQuery a TDataSource ji mam
> >propojenou na Grid. Ovsem pri browsingu v tabulce mi najednou program
> >zahlasi chybu :
> >
> >"Grid index out of range"
> >
> >Nevite prosim nekdo co s tim ???
> >
> >S pozdravem Petr
>

TWAIN

[*] dhonus <dhonus(zv)logis(tec)cz> - 30.10.1998 12:06:24

Na DSP jso dve dokonce "free" komponenty a jedou i s tikitalama.
(odzkouseno D3)
nebo bych ti moh prodat svoji ActiveX uplacanou s jejich pomoci. :-)

On Fri, 30 Oct 1998, Peter Vlkovic wrote:

> Zdravim kolegovci !
>
> Neviete nahodou o nejakej komponente na
> podporu rozhrania TWAIN?
>
> Chcel by som scanovat obrazky priamo
> z aplikacie v Delphi a naradsej rovno
> do formatu JPEG.
>
> Poradite mi ?
>
> P.Vlkovic
>

Insert string

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 30.10.1998 12:29:31

Diky vsem za odpovedi, ale jeste nez dosli, tak jsem to obesel pres
clipboard:

ClipBoard.AsText:=MujString;
Edit1.PasteFromClipBoard;

Samozrejme o property SelStart a SelLength jsem vedel, ale chtel jsem
vedet jestli nekdo nezna nejaky jednoduchy figl a nakonec jsem to udelal
jednoduse pres clipboard.

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz


> -----P�vodn� zpr�va-----
> Od: Martin Lasevih [SMTP:ml_software(zv)email(tec)cz]
> Odesl�no: 29. Oktober 1998 13:57
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Insert string
>
> Zkust to takto :
> v TEdit je property Text, SelStart a SelLength. SelStart ukazuje
> pozici kursoru v pripade, ze selLength=0.
>
> No a z toho vyplyva :
> Edit1.Text := Copy( Edit1.Text, 1, SelStart-1) + TvujString + Copy(
> Edit1.Text, SelStart, Length( Edit1.Text));
>
> Cau
> IKS
> =======================================================
> ML Software - Martin Lasevie
> konzultaeni slu?by v oblasti informaenich technologii, tvorba
> zakazkoveho software
> ing. Martin Lasevie
> Budovatelska 459, OSTRAVA - PORUBA, 708 00
> Czech republic
> tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
> E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
> =======================================================
>
>
>
> -----Puvodni zprava-----
> Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> Odeslano: 29. oijna 1998 12:38
> Komu: Delphi Konference (el. adresa)
> Poedmit: Insert string
>
> Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru
> nejaky
> muj string. Tedy aby bylo jasno vlozit v editacnim poli treba
> doprostred
> nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
> mailove adresy vlozit zavinac).
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
>
>

CREATE VIEW ze dvou SELECTu

[*] Kovac <kovac(zv)pvt.sk> - 30.10.1998 12:30:44


-----Original Message-----
From: mbartone(zv)Synthesia(tec)cz <mbartone(zv)Synthesia(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 29. okt�ber 1998 10:57
Subject: CREATE VIEW ze dvou SELECTu


SELECT t1.c1, t1.c2, t1.c3 FROM t1
union all
SELECT t1.c1, t1.c2, COUNT(t2.c4) FROM t1, t2
where t1.c1 = t2.c1 AND t1.c2 = t2.c2
GROUP BY t1.c1, t1.c2

Treti stlpec ale musi byt rovnakeho
typu v oboch vyberoch.

>Ahoj
>Poradte mi prosim jak vytvorit VIEW spojene ze dvou vyberu
>
>CREATE VIEW info (c1,c2,c3,c4) as
>
>mam dva vybery z tabulek T1 a T2, klicem jsou vzdy sloupce C1 a C2
>
>SELECT t1.c1, t1.c2, t1.c3 FROM t1
>
>SELECT t1.c1, t1.c2, COUNT(t2.c4) FROM t1, t2
>where t1.c1 = t2.c1 AND t1.c2 = t2.c2
>GROUP BY t1.c1, t1.c2
>
>Ted nevim jak je spojit aby se do VIEW dostal sloupec c3 z prvniho vyberu a
>sloupec c4 z druheho vyberu.
>
>Dekuji Milan
>
>
>

Aligment v StringGrid

[*] Pavel Kral <kral(zv)afx(tec)cz> - 30.10.1998 12:51:28

Docela dobra je komponenta TStringAlignGrid od S.Hoerstemeiera, muzes ji
najit
na DSP a umi mnohem vic nez jen zarovnani.- Muzes si nastavit parametry
prakticky
pro kazdou bunku nebo radek nebo sloupec.

Vykreslit text vcetne zarovnani muzes pouzitim API funkce
SetTextAlign - musis si prevest typ zarovnani z Delphi

a pro vykresleni pak

TextOut(Canvas.Handle, ...)

Hodne zdaru preje
Pavel Kral

-----Original Message-----
From: Peter Vlkovic <vlkovic(zv)minv.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 30. ��jna 1998 11:27
Subject: Aligment v StringGrid


>Ahojte !
>
>Neviete mi nahodou niekto poradit, ako pri pouziti
>komponenty StringGrid docielit v urcitom stlpci
>zarovnanie textu v "bunke" vpravo.
>DBGrid taketo nieco umoznuje cez vlastnost Columns.
>
>Ja som to riesil trochu sialene cez StringGridDrawCell.
>Pri zobrazovani kazdej bunky stlpca zistujem sirku retazca,
>z nej urcim X-ovu poziciu a na nej potom dotycny retazec
>prekreslim (skrz povodny nezarovnany text) - metodou TextRect.
>Je to neprakticke a pomale (nikedy je badatelne aj kratke
>"mihnutie" povodneho nezarovnaneho textu).
>
>Dik.
> Peter VLKOVIC
>

BDE Error

[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 30.10.1998 13:08:25

Ahoj,

ne..pouzivam TDBGrid a kdyz prejdu na posledni polozku tak mi
to furt hlasi : "Data grid out of index"

Nevite nekdo cim to muze byt ???

Diik

> ----------
> Od: Ji�� Heinisch[SMTP:HeiJu(zv)sol(tec)cz]
> Odesl�no: 27. ��jna 1998 19:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: BDE Error
>
> ahoj
> nepouzivas nahodou DBGridSinea
>
>
> HeiJu
>
>
> -----P�vodn� zpr�va-----
> Od: Petr Vale� <Petr.Vales(zv)gopas(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 27. ��jna 1998 16:07
> P�edm�t: BDE Error
>
>
> >
> >Ahoj vsichni,
> >
> >Pouzivam tabulku formatu Paradox a pres TQuery a TDataSource ji mam
> >propojenou na Grid. Ovsem pri browsingu v tabulce mi najednou program
> >zahlasi chybu :
> >
> >"Grid index out of range"
> >
> >Nevite prosim nekdo co s tim ???
> >
> >S pozdravem Petr
>

Insert string

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 30.10.1998 13:12:33

Nezapomen ale, ze clipboard je pro uzivatele.......co kdyz tam zrovna
bude neco mit? To ma jako smulu?


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> Odesl�no: 30. ��jna 1998 12:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Insert string
>
> Diky vsem za odpovedi, ale jeste nez dosli, tak jsem to obesel pres
> clipboard:
>
> ClipBoard.AsText:=MujString;
> Edit1.PasteFromClipBoard;
>
> Samozrejme o property SelStart a SelLength jsem vedel, ale chtel jsem
> vedet jestli nekdo nezna nejaky jednoduchy figl a nakonec jsem to
> udelal
> jednoduse pres clipboard.
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
>
>
> > -----P�vodn� zpr�va-----
> > Od: Martin Lasevih [SMTP:ml_software(zv)email(tec)cz]
> > Odesl�no: 29. Oktober 1998 13:57
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: Insert string
> >
> > Zkust to takto :
> > v TEdit je property Text, SelStart a SelLength. SelStart ukazuje
> > pozici kursoru v pripade, ze selLength=0.
> >
> > No a z toho vyplyva :
> > Edit1.Text := Copy( Edit1.Text, 1, SelStart-1) + TvujString + Copy(
> > Edit1.Text, SelStart, Length( Edit1.Text));
> >
> > Cau
> > IKS
> > =======================================================
> > ML Software - Martin Lasevie
> > konzultaeni slu?by v oblasti informaenich technologii, tvorba
> > zakazkoveho software
> > ing. Martin Lasevie
> > Budovatelska 459, OSTRAVA - PORUBA, 708 00
> > Czech republic
> > tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
> > E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
> > =======================================================
> >
> >
> >
> > -----Puvodni zprava-----
> > Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> > Odeslano: 29. oijna 1998 12:38
> > Komu: Delphi Konference (el. adresa)
> > Poedmit: Insert string
> >
> > Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru
> > nejaky
> > muj string. Tedy aby bylo jasno vlozit v editacnim poli treba
> > doprostred
> > nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
> > mailove adresy vlozit zavinac).
> >
> > S pozdravem
> > Zdenek Petruj
> > ____________________________
> > adress: Zebra systems, s.r.o.
> > Spartakovcu 3
> > 708 00 Ostrava - Poruba
> > Czech republic
> > ____________________________
> > tel./fax.: +420-(0)69-6912961
> > +420-(0)69-6912963
> > e-mail: zpetruj(zv)zebra(tec)cz
> > internet: http://www.zebra(tec)cz
> >
> >

funkce DriveReady ?

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 30.10.1998 13:14:26

Zdravicko...

Jak jsem mohl byt tak slepy a nenajit DirectoryExists? No nic, jsem
tatrd a dekuji za pomoc. :-)

F.

> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: p�tek, ��jen 30, 1998 5:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: funkce DriveReady ?
>
> Tady jsou dva priklady z archivu konference
> �
> if DirectoryExist('A:\') then "je tam"�
> ��� else "tam neni nebo neni naformatovana (FAT)"
> �
>
> function DiskInDrive(const Drive: char): Boolean;
> var� DrvNum: byte;�����
> ��� EMode: Word;begin�
> ��� result := false;�
> ��� DrvNum := ord(Drive);�
> if DrvNum >= ord('a')
> then dec(DrvNum,$20);�
> EMode := SetErrorMode(SEM_FAILCRITICALERRORS);�
> try��� if DiskSize(DrvNum-$40) <> -1 then result := true���
> ��� else messagebeep(0);�
> finally�
> ��� SetErrorMode(EMode);�
> end;
> end;
>
> -----------------------------------------------------------------
> ing. Jan Fiala��������� jan.fiala(zv)iname.com
> <mailto:jan.fiala(zv)iname.com>
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Flaska Jakub < jakub.flaska(zv)zps.skoda-auto(tec)cz
> <mailto:jakub.flaska(zv)zps.skoda-auto(tec)cz> >
> Komu: delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz> <
> delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz> >
> Datum: 29. ��jna 1998 14:36
> P�edm�t: funkce DriveReady ?
>
>
> Zdravicko...
>
> Existuje v Delphi neco na zjistovani pripravenosti drive (napr.
> floppy
> disku)? Kdysi (za doby DOSu) fungovalo otevreni souboru napr.
> A:\nul -
> pokud nesel otevrit, ve FD nebyla disketa. Jenze to ve Windows
> nefunguje, a zadnou funkci k Delphi jsem v helpu nenasel. :-(
>
> F.

Aligment v StringGrid

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 30.10.1998 13:26:14

Ahojte !

Neviete mi nahodou niekto poradit, ako pri pouziti
komponenty StringGrid docielit v urcitom stlpci
zarovnanie textu v "bunke" vpravo.
DBGrid taketo nieco umoznuje cez vlastnost Columns.

Ja som to riesil trochu sialene cez StringGridDrawCell.
Pri zobrazovani kazdej bunky stlpca zistujem sirku retazca,
z nej urcim X-ovu poziciu a na nej potom dotycny retazec
prekreslim (skrz povodny nezarovnany text) - metodou TextRect.
Je to neprakticke a pomale (nikedy je badatelne aj kratke
"mihnutie" povodneho nezarovnaneho textu).

Dik.
Peter VLKOVIC


Grid

[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 30.10.1998 13:26:44


Posledni dobou casto pouzivam LiveQuery i na dotazech pres vice tabulek. Musi se pripojit TUpdateQuery do property UpdateObject, dale se musi nastavit CachedUpdates (je to nelogicke, ale je to tak) a pak uz jen staci naplnit prislusne SQL prikazy do UpdateQuery. Pouzivam to na MS SQL a mohu v pohode updatovat vsechny propojene tabulky najednou tim, ze napisu prislusne prikazy UPDATE za sebou. Moc se mi to tak libi.

-----P�vodn� zpr�va-----
Od: Martin Lasevi� [SMTP:ml software(zv)email(tec)cz]
Odesl�no: 29. ��jna 1998 13:37
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Grid

Pokud to chces delat pres TTable, musi se zajistit svazani mezi tabulkami pomoci indexu,
tak aby se pri nastaveni na konkretni zaznam v Tab1 nastavil i odpovidajici zaznam v Tab2.

To udelas pres property MasterSource, MasterFiels a IndexFile. ( My to tak delame v PDOX) a tam to funguje.

Pak uz neni nic jednoduzsiho nez hodit obe tabulky do editu.

IKS

-----P�vodn� zpr�va-----
Od: Dobromil Mal�
Odesl�no: 29. ��jna 1998 10:38
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Grid

To je jednoduchy, napis si SQL
select T Clovek.C Cloveka, T Clovek.Jmeno, [union] T Telefon.C Telefonu
where T Clovek.C Cloveka=T Telefon.C Cloveka
[order by ... ]

Union je kdyz by nemel ten clovek telefon, tak by tam nebyl
a order by je trideni.

U TQuery se da nastavit vlastnost "Request Live" a pokud je true,
tak muzes data i editovat, ale nejsem si jisty, jestli to jde
i pro vyber z vice tabulek, kdyz ne, tak si muzes si udelat
pomocny formularik, ktery Ti bude ta data vkladat a upravovat.

BTW : Mozna to pujde nejak i pres MaskerSource,Lookup, ci
CalcFields, ale ja bych to resil pres SQL, je to bezpecnejsi.
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odesl�no: 27. ��jna 1998 15:38
Komu: delphi-l(zv)fwd(tec)cz

Vedla seba, nieco ako dotaz v Accese. Napr mam jednu tabulku kde je polozka
cislo cloveka a polozka telefon.
V druhej tabulke je polozka cislo cloveka a meno.
A ja chcem GRID kde budu vedla seba polozky napr. cislo cloveka, telefon a
meno. A chcem aby sa vsetky polozky dali editovat a podla moznosti aby to
bolo cez komponentu table, ak sa to neda tak cez SQL.
-----------
A myslis "pod sebou" nebo "vedle sebe" ?
D.

----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odesl�no: 27. ��jna 1998 8:27
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: grid

Zdravim vsetkych

Da sa zobrazit v jednej komponente grid zaznamy z dvoch tabuliek ?

vdaka za vsetky odpovede.

Sdileni Pdox tabulek

[*] RADIK(zv)p15.monet(tec)cz - 30.10.1998 14:12:00

Ja to mam programove udelane takhle:

v datamodulu je database i session

a v oncreate je:

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

If ParamCount <> 1 then
begin
Application.Terminate;
Exit;
end;
try
params := TStringList.Create;
Session.GetAliasParams ( paramstr ( 1 ), params );
dir := params.Values [ 'PATH' ];
finally
params.Free;
end;
try
Database1.AliasName := paramstr ( 1 );
Session1.NetFileDir := dir;
Session1.Open;
Database1.Open;
TSet.Open;
if TSetVER.Value <> '1.20' then
begin
Application.MessageBox
( 'Tento program m��e b�et pouze s datab�z� verze 1.20.',
'Chyba', mb_OK + mb_ICONSTOP );
raise Exception.Create('Chybn� verze datab�ze');
end;

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

V parametru ocekavam jmeno aliasu a ten NET je primo u tech tabulek...

Ales

----------
Od: Stepan Cerny
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Sdileni Pdox tabulek
Datum: 29. ��jen 1998 13:43

Diky za odpovedi !!!

Je to v D3.
Zajimalo by mne jeste, jestli to lze udelat primo v programu, jenom
pro jeho databaze ...

;-) Stepan


Martin Nedopil wrote:
>
> >potreboval bych "ideove postrcit" ... , jak udelat zhruba toto:
> > - "databaze", cca 5 Pdox tabulek bude sdilena pro 2-5 pocitacu
> > - tech databazi bude vice (kazda ve vlastnim adresari)
> >Jak v programu nastavit sitovou cestu pro .NET (popr. .LCK) soubor ?
> >Proste si uzivatel zapne "server" (W95) a "otevre" databazi,
> > pripoji se dalsi uzivatel (jiny poc. -W95) a otevre si tu samou
> > databazi ...
> >Zatim to skousim na jedne tab. a pri pokusu o otevreni na 2. pocitaci
> > to hlasi: "Directory is controlled by other .NET file."
>
> Je to D1 nebo vyssi?
> Tuhle hlasku mi hazel DBD pro D3. Smazal jsem vsechny NET a nastavil
je do
> stejneho adresare. A porad to hlasil. Pak me napadlo, podivat se k
nemu do
> adr. a
> ejhle mel tam dva LCK soubory. Odmazl jsem je a uz to jede. Takze
dobra rada
> pred
> zacatkem otvirani studanek. Smazej LCK soubory.
>
> Martin


Sleep/Wait/Delay

[*] Pavel Kral <kral(zv)afx(tec)cz> - 30.10.1998 14:12:29

a proc tam nedat timer a splash screen nezavirat az timerem?
Pavel

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

>Ahoj lidicky,
> nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
>Napadlo me delat repeat until tak dlouho, dokud nebude
>cas spusteni mensi o X jednotek nez aktualni, ale to se
>mi moc nelibi.
> Konkretne mi jde o SplashScreen, ja ten program tak
>optimalizoval, ze neni skoro ani videt, jenom to tak
>blikne. A dalo to dost graficke prace ho udelat a me
>to pripada lito, takze bych ho chtel nechat na obrazovce
>treba 3-5 sekund.
>
>Nez mi "nekdo" napise abych se podival do napovedy ...
>...tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
>maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)
>
>Diky
> Dobra.
>

Sleep/Wait/Delay

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1998 14:45:42


Ahoj lidicky,
nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
Napadlo me delat repeat until tak dlouho, dokud nebude
cas spusteni mensi o X jednotek nez aktualni, ale to se
mi moc nelibi.
Konkretne mi jde o SplashScreen, ja ten program tak
optimalizoval, ze neni skoro ani videt, jenom to tak
blikne. A dalo to dost graficke prace ho udelat a me
to pripada lito, takze bych ho chtel nechat na obrazovce
treba 3-5 sekund.

Nez mi "nekdo" napise abych se podival do napovedy ...
..tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)

Diky
Dobra.

Sleep/Wait/Delay

[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 30.10.1998 14:46:33

S := Now;
repeat
{ application.ProcessMessages je-li treaba}
until Now > S + Delay

D1 nepouzivam, ale takhle by to melo jit. Chybi-li Now lze pouzit
GetTime a GetDate nebo tak nejak.

Vaclav Sazima


Dobromil Mal� wrote:
>
> Ahoj lidicky,
> nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
> Napadlo me delat repeat until tak dlouho, dokud nebude
> cas spusteni mensi o X jednotek nez aktualni, ale to se
> mi moc nelibi.
> Konkretne mi jde o SplashScreen, ja ten program tak
> optimalizoval, ze neni skoro ani videt, jenom to tak
> blikne. A dalo to dost graficke prace ho udelat a me
> to pripada lito, takze bych ho chtel nechat na obrazovce
> treba 3-5 sekund.
>
> Nez mi "nekdo" napise abych se podival do napovedy ...
> ..tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
> maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)
>
> Diky
> Dobra.
>
> ----------------------------------------------------------------------
>
> Part 1.2 Type: application/ms-tnef
> Encoding: base64


Sleep/Wait/Delay

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 30.10.1998 14:51:18

Bohuzel ti v 16bit nezbude nic jineho, nez
ze to udelat tak, ze si budes merit kolik
tiku ubehlo fci GetTickCount (1 sec = 18.2 tiku).
A mezi tim volat Application.ProcessMessages.

Koser aplikace se jeste ptaji na Application.Terminated.

Martin

Insert string (P.S.)

[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 30.10.1998 15:06:59


Pozor na clipboard, nekdy se straci informace v nem ulozene - clipboard neni na 100% spolehlivy. Pri psani programu na to nemusis prijit, muze se to projevit az v ostrem provozu. Jde-li to, doporucoval bych
Edit1.SelStart := <pozice> {Pokud ji chces zmenit}
Edit1.SelLength := 0 {nebo <delka toho, co chces prepsat>}
Edit1.SelText := <TvujString>

-----P�vodn� zpr�va-----
Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
Odesl�no: 30. ��jna 1998 14:48
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Insert string

Diky vsem za odpovedi, ale jeste nez dosli, tak jsem to obesel pres
clipboard:

ClipBoard.AsText:=MujString;
Edit1.PasteFromClipBoard;

Samozrejme o property SelStart a SelLength jsem vedel, ale chtel jsem
vedet jestli nekdo nezna nejaky jednoduchy figl a nakonec jsem to udelal
jednoduse pres clipboard.

S pozdravem
Zdenek Petruj

adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic

tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz


> -----P�vodn� zpr�va-----
> Od: Martin Lasevih [SMTP:ml software(zv)email(tec)cz]
> Odesl�no: 29. Oktober 1998 13:57
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Insert string
>
> Zkust to takto :
> v TEdit je property Text, SelStart a SelLength. SelStart ukazuje
> pozici kursoru v pripade, ze selLength=0.
>
> No a z toho vyplyva :
> Edit1.Text := Copy( Edit1.Text, 1, SelStart-1) + TvujString + Copy(
> Edit1.Text, SelStart, Length( Edit1.Text));
>
> Cau
> IKS
> =======================================================
> ML Software - Martin Lasevie
> konzultaeni slu?by v oblasti informaenich technologii, tvorba
> zakazkoveho software
> ing. Martin Lasevie
> Budovatelska 459, OSTRAVA - PORUBA, 708 00
> Czech republic
> tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
> E-mail : ml software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml software
> =======================================================
>
>
>
> -----Puvodni zprava-----
> Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> Odeslano: 29. oijna 1998 12:38
> Komu: Delphi Konference (el. adresa)
> Poedmit: Insert string
>
> Nevite nekdo jak nejjednoduseji vlozit do TEdit na pozici kuzoru
> nejaky
> muj string. Tedy aby bylo jasno vlozit v editacnim poli treba
> doprostred
> nejakeho stringu muj vlastni string na zmacknuti tlacitka (treba do
> mailove adresy vlozit zavinac).
>
> S pozdravem
> Zdenek Petruj
>
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
>
>

16bit aplik. v delphi 2?

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.10.1998 15:21:58

> Ja teda nevim vsude po svete na archivech vidim trideni D1=16bit D2 a vejs
> jsou 32bit ale na mem CDecku D2 je take 16bitova plne funkcni verze tak
> staci nainstalovat bohuzel nevim jak je s D3, ale myslim ze to je uz jen
> 32bit.

V kazde 32-bitove verzi Delphi (2, 3, 4) je take 16-bitove Delphi 1.

S pozdravem
Petr Zahradnik, pocitacovy expert

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


Sleep/Wait/Delay

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.10.1998 15:30:26

> Konkretne mi jde o SplashScreen, ja ten program tak
> optimalizoval, ze neni skoro ani videt, jenom to tak
> blikne. A dalo to dost graficke prace ho udelat a me
> to pripada lito, takze bych ho chtel nechat na obrazovce
> treba 3-5 sekund.

1. moznost - dej tam BDE a hned se ti zpomali...
2. moznost - podivej se na cas a udelej smycku s casem
3. moznost - nasad tam casovac a ten ti hodi udalost
...

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 ===
==============================================================
ICQ: 21215917


TextLength?

[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 30.10.1998 15:31:36

Ahoj lidi, nevite jak zjistit delku retezce v PIXELECH?
Neni nejaka procedura s parametrem fontu a retezce a ze by mne to vyhodilo
vysledek?

Dik

Autor: Serbajlo Pavel
e-mail: serb(zv)mikulov.sol(tec)cz
ICQ: 20849973
www: www.memamstranky(tec)cz

Mainform.Showmodal

[*] reaia(zv)snt(tec)cz (REAiA CONSULTING, s. r. o.) - 30.10.1998 16:08:13

Znate nekdo efektivni zpusob, jak udelat hlavni form aplikace modalni ? tj.
s vlastnostmi jako Form.ShowModal ?
Jirka


Sleep/Wait/Delay

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1998 16:09:29


To se mi prave moc nechce, protoze jsem to zkusil
presne takhle, a nic :-(
Za to Delay jsem dosadil 5 a cumel jsem na ten
splash az se mi pomalu omrzel (asi ho vyndam :-) )
Ba ne, ale jsem rekl, ze chci koukat pet dni, protoze
cas je za desetinnou teckou. Jenomze me to repeat
until pripada takovy "divny"

----------
Od: Vaclav Sazima[SMTP:sazima(zv)comp(tec)cz]
Odesl�no: 30. ��jna 1998 14:46
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Sleep/Wait/Delay

S := Now;
repeat
{ application.ProcessMessages je-li treaba}
until Now > S + Delay

D1 nepouzivam, ale takhle by to melo jit. Chybi-li Now lze pouzit
GetTime a GetDate nebo tak nejak.

Vaclav Sazima


Dobromil Mal� wrote:
>
> Ahoj lidicky,
> nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
> Napadlo me delat repeat until tak dlouho, dokud nebude
> cas spusteni mensi o X jednotek nez aktualni, ale to se
> mi moc nelibi.
> Konkretne mi jde o SplashScreen, ja ten program tak
> optimalizoval, ze neni skoro ani videt, jenom to tak
> blikne. A dalo to dost graficke prace ho udelat a me
> to pripada lito, takze bych ho chtel nechat na obrazovce
> treba 3-5 sekund.
>
> Nez mi "nekdo" napise abych se podival do napovedy ...
> ..tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
> maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)
>
> Diky
> Dobra.
>
> ----------------------------------------------------------------------
>
> Part 1.2 Type: application/ms-tnef
> Encoding: base64

Sleep/Wait/Delay

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 16:21:27


A co takhle misto datumu inkrementovat obycejny longint , co?
Martin Lasevic

-----Puvodni zprava-----
Od: Dobromil Maly
Odeslano: 30. oijna 1998 16:09
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: Sleep/Wait/Delay

To se mi prave moc nechce, protoze jsem to zkusil
presne takhle, a nic :-(
Za to Delay jsem dosadil 5 a cumel jsem na ten
splash az se mi pomalu omrzel (asi ho vyndam :-) )
Ba ne, ale jsem rekl, ze chci koukat pet dni, protoze
cas je za desetinnou teckou. Jenomze me to repeat
until pripada takovy "divny"

----------
Od: Vaclav Sazima[SMTP:sazima(zv)comp(tec)cz]
Odeslano: 30. oijna 1998 14:46
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Sleep/Wait/Delay

S := Now;
repeat
{ application.ProcessMessages je-li treaba}
until Now > S + Delay

D1 nepouzivam, ale takhle by to melo jit. Chybi-li Now lze pouzit
GetTime a GetDate nebo tak nejak.

Vaclav Sazima


Dobromil Maly wrote:
>
> Ahoj lidicky,
> nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
> Napadlo me delat repeat until tak dlouho, dokud nebude
> cas spusteni mensi o X jednotek nez aktualni, ale to se
> mi moc nelibi.
> Konkretne mi jde o SplashScreen, ja ten program tak
> optimalizoval, ze neni skoro ani videt, jenom to tak
> blikne. A dalo to dost graficke prace ho udelat a me
> to pripada lito, takze bych ho chtel nechat na obrazovce
> treba 3-5 sekund.
>
> Nez mi "nekdo" napise abych se podival do napovedy ...
> ..tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
> maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)
>
> Diky
> Dobra.
>
> ----------------------------------------------------------------------
>
> Part 1.2 Type: application/ms-tnef
> Encoding: base64


Sleep/Wait/Delay

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 16:23:15

Nevim, ale ja s timerem nemam moc dobre zkusenosti. Staci , aby si jedna aplikace sebrale vsechen strojovy cas a mas to tam naveky.

Martin Lasevic

-----Puvodni zprava-----
Od: Pavel Kral [SMTP:kral(zv)afx(tec)cz]
Odeslano: 30. oijna 1998 14:12
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Sleep/Wait/Delay

a proc tam nedat timer a splash screen nezavirat az timerem?
Pavel

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

>Ahoj lidicky,
> nevite nekdo, jak na chvili zastavit program v D1 (W3.1)
>Napadlo me delat repeat until tak dlouho, dokud nebude
>cas spusteni mensi o X jednotek nez aktualni, ale to se
>mi moc nelibi.
> Konkretne mi jde o SplashScreen, ja ten program tak
>optimalizoval, ze neni skoro ani videt, jenom to tak
>blikne. A dalo to dost graficke prace ho udelat a me
>to pripada lito, takze bych ho chtel nechat na obrazovce
>treba 3-5 sekund.
>
>Nez mi "nekdo" napise abych se podival do napovedy ...
>...tak jsem tam koukal, ale nic jsem nenasel. Win32 uz
>maji API - Sleep(Milisec) (Win 32s taky, ale W 3.1 ne)
>
>Diky
> Dobra.
>

BDE Error

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 16:25:06

Tezko rict, muze to byt napr. hodnotou v RecNo prislusneho DataSetu ( vetsi nez RecordCount), ale takhle na dalku nevim.

-----Puvodni zprava-----
Od: Petr Vale? [SMTP:Petr.Vales(zv)gopas(tec)cz]
Odeslano: 30. oijna 1998 13:08
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: BDE Error

Ahoj,

ne..pouzivam TDBGrid a kdyz prejdu na posledni polozku tak mi
to furt hlasi : "Data grid out of index"

Nevite nekdo cim to muze byt ???

Diik

> ----------
> Od: Jioi Heinisch[SMTP:HeiJu(zv)sol(tec)cz]
> Odeslano: 27. oijna 1998 19:51
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: BDE Error
>
> ahoj
> nepouzivas nahodou DBGridSinea
>
>
> HeiJu
>
>
> -----Puvodni zprava-----
> Od: Petr Vale? <Petr.Vales(zv)gopas(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 27. oijna 1998 16:07
> Poedmit: BDE Error
>
>
> >
> >Ahoj vsichni,
> >
> >Pouzivam tabulku formatu Paradox a pres TQuery a TDataSource ji mam
> >propojenou na Grid. Ovsem pri browsingu v tabulce mi najednou program
> >zahlasi chybu :
> >
> >"Grid index out of range"
> >
> >Nevite prosim nekdo co s tim ???
> >
> >S pozdravem Petr
>

Mainform.Showmodal

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 30.10.1998 16:29:56

Pouzivame to tak

Application.Initialize;
Application.Create( TForm1, Form1);
Form1.ShowModal;


Nevolame Application.Run
IKS

-----Puvodni zprava-----
Od: REAiA CONSULTING, s. r. o. [SMTP:reaia(zv)snt(tec)cz]
Odeslano: 30. oijna 1998 16:08
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Mainform.Showmodal

Znate nekdo efektivni zpusob, jak udelat hlavni form aplikace modalni ? tj.
s vlastnostmi jako Form.ShowModal ?
Jirka

BDE Error

[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 30.10.1998 16:48:05


Hmmm,

hodnoty RecNo a RecordCount odpovidaji skutecnosti. Ja si osobne myslim, ze
to bude nejake spatne nastaveni gridu. Ona ta tabulka je totiz pomerne
velika...31 poli + 1 memo pole. Mne se to jeste nikdy nestalo a neznam
nikoho komu by se to stalo ???

Existuje nekdo takovy ???

S pozdravem Petr

> ----------
> Od: Martin Lasevi�[SMTP:ml_software(zv)email(tec)cz]
> Odesl�no: 30. ��jna 1998 16:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: BDE Error
>
> Tezko rict, muze to byt napr. hodnotou v RecNo prislusneho DataSetu (
> vetsi nez RecordCount), ale takhle na dalku nevim.
>
> -----Puvodni zprava-----
> Od: Petr Vale? [SMTP:Petr.Vales(zv)gopas(tec)cz]
> Odeslano: 30. oijna 1998 13:08
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: RE: BDE Error
>
> Ahoj,
>
> ne..pouzivam TDBGrid a kdyz prejdu na posledni polozku tak mi
> to furt hlasi : "Data grid out of index"
>
> Nevite nekdo cim to muze byt ???
>
> Diik
>
> > ----------
> > Od: Jioi Heinisch[SMTP:HeiJu(zv)sol(tec)cz]
> > Odeslano: 27. oijna 1998 19:51
> > Komu: delphi-l(zv)fwd(tec)cz
> > Poedmit: Re: BDE Error
> >
> > ahoj
> > nepouzivas nahodou DBGridSinea
> >
> >
> > HeiJu
> >
> >
> > -----Puvodni zprava-----
> > Od: Petr Vale? <Petr.Vales(zv)gopas(tec)cz>
> > Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> > Datum: 27. oijna 1998 16:07
> > Poedmit: BDE Error
> >
> >
> > >
> > >Ahoj vsichni,
> > >
> > >Pouzivam tabulku formatu Paradox a pres TQuery a TDataSource ji mam
> > >propojenou na Grid. Ovsem pri browsingu v tabulce mi najednou program
> > >zahlasi chybu :
> > >
> > >"Grid index out of range"
> > >
> > >Nevite prosim nekdo co s tim ???
> > >
> > >S pozdravem Petr
> >
>

Sleep/Wait/Delay

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1998 17:43:04



>> Konkretne mi jde o SplashScreen, ja ten program tak
>> optimalizoval, ze neni skoro ani videt, jenom to tak
>> blikne. A dalo to dost graficke prace ho udelat a me
>> to pripada lito, takze bych ho chtel nechat na obrazovce
>> treba 3-5 sekund.

>1. moznost - dej tam BDE a hned se ti zpomali...

Jeden Query uz tam mam, ale "taha" lokalni data, takze je
rychly, ale abych byl uprimny, napadlo me to. Dat tam nejaky
select where neco is not in (select...order by ) order by "
ale, hmmm, zavrhnul jsem to.

>2. moznost - podivej se na cas a udelej smycku s casem

Nakonec to tak asi udelam, nechce se mi, ale je to asi
nejjednodusi reseni.

Ale bacha - kdyby jste to chtel nekdo zkouset, prectete
si napovedu. Ja blb jsem si myslel, ze TDateTime "skladuje"
milisekundy od 01.01.0001, ale chyba lavky, TDateTime skladuje
pocet dni od tohoto data a cas je za desetinnou carkou !

procedure Sleep(WMiliSec : word);
var StoredNow : TDateTime;
begin
StoredNow:=Now;
repeat
Application.ProcessMessages;
until Now>StoredNow+WMiliSec*0.000000012;
end;
// tech 0.000000012 je udaj, kolikatina dne je jedna milisekunda,
// tedy 1 / (1000*60*60*24)>3. moznost - nasad tam casovac a ten ti hodi udalost

Ja ale ten Splash volam z project source a tamtez ho,
po vytvoreni vsech formu rusim. Neni mi tedy jasne,
kam bych ho dal. Vypada to takhle :
with TSplScr.Create(nil) do
begin
Show;
Update;
// Tady se vytvareji formy
Free;
end;
Application.run...vsak to vsichni znate... a ja chci
nejak natahnout cas mezi Update a Free.
Ale nakonec si asi udelam proceduru Sleep a placnu ji
do nejake DLL.

D.

Mainform.Showmodal

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

Akademicka otazka: Jaky je rozdil mezi modalnim a nemodalnim JEDINYM
oknem aplikace? Nejak dost dobre nechapu, co ziskam tim, ze hlavni okno
bude modalni....

Ales

----------
Od: reaia(zv)snt(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Mainform.Showmodal
Datum: 30. ��jen 1998 16:08

Znate nekdo efektivni zpusob, jak udelat hlavni form aplikace modalni ?
tj.
s vlastnostmi jako Form.ShowModal ?
Jirka


Sleep/Wait/Delay

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.10.1998 19:53:57

> >1. moznost - dej tam BDE a hned se ti zpomali...
>
> Jeden Query uz tam mam, ale "taha" lokalni data, takze je
> rychly, ale abych byl uprimny, napadlo me to. Dat tam nejaky
> select where neco is not in (select...order by ) order by "
> ale, hmmm, zavrhnul jsem to.

No jo, ale to je prdlajs, to bys musel mit automaticke otevreni
10-20 tabulek...

> >3. moznost - nasad tam casovac a ten ti hodi udalost
>
> Ja ale ten Splash volam z project source a tamtez ho,
> po vytvoreni vsech formu rusim. Neni mi tedy jasne,
> kam bych ho dal. Vypada to takhle :

No tak ho zrus az po inicializaci cele aplikace v ramci
hlavniho formulare...

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 ===
==============================================================
ICQ: 21215917


COM port

[*] IKO <IKO(zv)kamarad(tec)cz> - 30.10.1998 21:27:21

Potrebujem poradit, ako by som sa vo Windowse napichol na COM
port a odpocuval komunikaciu. Nieco ako HOOK. Ako na to? IKO
ikino(zv)pobox.sk
http://freeweb.coco(tec)cz/IKO


TextLength?

[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 30.10.1998 21:28:02

Zdravim,

v Delphi 3 je funkce TCanvas.TextWidth. Je popsana v helpu a je tam i priklad.

Bye,
-----
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
www : www.sarai(tec)cz/~skopik
-----Original Message-----
From: Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz>
To: Delphi(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 30. ��jna 1998 20:23
Subject: TextLength?


Ahoj lidi, nevite jak zjistit delku retezce v PIXELECH?
Neni nejaka procedura s parametrem fontu a retezce a ze by mne to vyhodilo
vysledek?

Dik

Autor: Serbajlo Pavel
e-mail: serb(zv)mikulov.sol(tec)cz
ICQ: 20849973
www: www.memamstranky(tec)cz

Mainform.Showmodal

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 31.10.1998 08:11:14

V podstate tim neziska nic, ale je to jista cesta, jak lze tento formular spustit jako DLL.A chodi to.

Martens

-----Puvodni zprava-----
Od: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
Odeslano: 30. oijna 1998 18:30
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: Mainform.Showmodal

Akademicka otazka: Jaky je rozdil mezi modalnim a nemodalnim JEDINYM
oknem aplikace? Nejak dost dobre nechapu, co ziskam tim, ze hlavni okno
bude modalni....

Ales

----------
Od: reaia(zv)snt(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Mainform.Showmodal
Datum: 30. oijen 1998 16:08

Znate nekdo efektivni zpusob, jak udelat hlavni form aplikace modalni ?
tj.
s vlastnostmi jako Form.ShowModal ?
Jirka


BDE Error

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 31.10.1998 08:15:12

A nedela tam paseku to MEMO pole v GRIDU??????. Ono Delphi jsou Delphi a i
ony majisve mouchy ( vcetne BDE). A to delame taky s PDOX. Jinak uz nevim.
Ta hlaska spise odpovida tomu, ze nesedi indexy u property Colums. Takze
opet ukazuje vse na to memo.

Dej mi vedet, jak to pak dopadlo.

Martin



-----Puvodni zprava-----
Od: Petr Vale? [SMTP:Petr.Vales(zv)gopas(tec)cz]
Odeslano: 30. oijna 1998 16:48
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: BDE Error


Hmmm,

hodnoty RecNo a RecordCount odpovidaji skutecnosti. Ja si osobne myslim, ze
to bude nejake spatne nastaveni gridu. Ona ta tabulka je totiz pomerne
velika...31 poli + 1 memo pole. Mne se to jeste nikdy nestalo a neznam
nikoho komu by se to stalo ???

Existuje nekdo takovy ???

S pozdravem Petr

> ----------
> Od: Martin Lasevie[SMTP:ml_software(zv)email(tec)cz]
> Odeslano: 30. oijna 1998 16:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: RE: BDE Error
>
> Tezko rict, muze to byt napr. hodnotou v RecNo prislusneho DataSetu (
> vetsi nez RecordCount), ale takhle na dalku nevim.
>
> -----Puvodni zprava-----
> Od: Petr Vale? [SMTP:Petr.Vales(zv)gopas(tec)cz]
> Odeslano: 30. oijna 1998 13:08
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: RE: BDE Error
>
> Ahoj,
>
> ne..pouzivam TDBGrid a kdyz prejdu na posledni polozku tak mi
> to furt hlasi : "Data grid out of index"
>
> Nevite nekdo cim to muze byt ???
>
> Diik
>
> > ----------
> > Od: Jioi Heinisch[SMTP:HeiJu(zv)sol(tec)cz]
> > Odeslano: 27. oijna 1998 19:51
> > Komu: delphi-l(zv)fwd(tec)cz
> > Poedmit: Re: BDE Error
> >
> > ahoj
> > nepouzivas nahodou DBGridSinea
> >
> >
> > HeiJu
> >
> >
> > -----Puvodni zprava-----
> > Od: Petr Vale? <Petr.Vales(zv)gopas(tec)cz>
> > Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> > Datum: 27. oijna 1998 16:07
> > Poedmit: BDE Error
> >
> >
> > >
> > >Ahoj vsichni,
> > >
> > >Pouzivam tabulku formatu Paradox a pres TQuery a TDataSource ji mam
> > >propojenou na Grid. Ovsem pri browsingu v tabulce mi najednou program
> > >zahlasi chybu :
> > >
> > >"Grid index out of range"
> > >
> > >Nevite prosim nekdo co s tim ???
> > >
> > >S pozdravem Petr
> >
>

16bit aplik. v delphi 2?

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.10.1998 12:33:38

> From: Martin Lasevi� <ml_software(zv)email(tec)cz>

> Chlapi POZOR, na instalacnim CD je sice D2 i D1, ale to je upgrade na verzi
> 1.6 ( ta byla myslim posledni a pak uz dal od toho Inprise pracky pryc)
> .Ale stale to byla D1, ktera byla pribalena k D2 ( 32 bitove).
>
> Na D3 uz nic takoveho nejni, takze amen.

Prosimte, proc si vymyslis ???
Ano, Delphi 1 je sice uzavrena verze, uz se dale nevyviji (proc taky?),
ale ke kazde 32-bitove verzi Delphi je take pribaleno Delphi 1 pro vyvoj
16-bitovych aplikaci. Na CD Delphi 2, 3 i 4 najdes adresar /Delphi16,
kde je plna verze Delphi 1 se vsim vsudy, tedy i s manualy PDF. Jeste
me tak napada, ze mas mozna Delphi Standard, tam to byt nemusi, nevim,
ale jinak Professional a Client/Server to maji!

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 ===
==============================================================
ICQ: 21215917


TextLength?

[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 31.10.1998 15:30:41

>v Delphi 3 je funkce TCanvas.TextWidth. Je popsana v helpu a je tam i priklad.

Dik, to je presne ono.


Autor: Serbajlo Pavel
e-mail: serb(zv)mikulov.sol(tec)cz
ICQ: 20849973
www: www.memamstranky(tec)cz

16bit aplik. v delphi 2?

[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 31.10.1998 15:33:45


-----Puvodni zprava-----
Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
Odeslano: 31. oijna 1998 12:34
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: 16bit aplik. v delphi 2?

> From: Martin Lasevie <ml_software(zv)email(tec)cz>

> Chlapi POZOR, na instalacnim CD je sice D2 i D1, ale to je upgrade na
verzi
> 1.6 ( ta byla myslim posledni a pak uz dal od toho Inprise pracky pryc)
> .Ale stale to byla D1, ktera byla pribalena k D2 ( 32 bitove).
>
> Na D3 uz nic takoveho nejni, takze amen.

Prosimte, proc si vymyslis ???
Ano, Delphi 1 je sice uzavrena verze, uz se dale nevyviji (proc taky?),
ale ke kazde 32-bitove verzi Delphi je take pribaleno Delphi 1 pro vyvoj
16-bitovych aplikaci. Na CD Delphi 2, 3 i 4 najdes adresar /Delphi16,
kde je plna verze Delphi 1 se vsim vsudy, tedy i s manualy PDF. Jeste
me tak napada, ze mas mozna Delphi Standard, tam to byt nemusi, nevim,
ale jinak Professional a Client/Server to maji!

[ing. Martin Lasevie]
Ano, to mas sice pravdu, je tam pribalena D 1.6, ale Borlandi uz ji
nepodporuji, takze je to porad ta stejna a posledni verze. Mozna jsem se
spatne vyjadril. A to uz neni zadny vymysl.

V kazdem pripade z formulace puvodniho dotazu vyplyvalo, ze pomoci D16 na
instalacnich CD D2, 3 a 4 se daji aplikace napsane pro 32-bitove prostredi
prelozit jako 16-bitove, coz jsem svou poznamkou poprel.

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 ===
==============================================================
ICQ: 21215917


Dloha jmena a Windows 3.11

[*] Jirka Novacek <jnovacek(zv)telecom(tec)cz> - 1.10.1998 08:18:21

Ahoj vsichni!

Potrebuji v Windows 3.11 pouzivat dlouhe nazvy souboru. Nekde jsem vid�l
program, ktery o tuto moznost W3.11 rozsiroval, ale nemohu si vzpomenout
kde. Nevite nekdo kde takovy program najit.

Jirka
<jnovacek(zv)telecom(tec)cz>

Dloha jmena a Windows 3.11

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.10.1998 11:07:51

> Potrebuji v Windows 3.11 pouzivat dlouhe nazvy souboru. Nekde jsem vid�l
> program, ktery o tuto moznost W3.11 rozsiroval, ale nemohu si vzpomenout
> kde. Nevite nekdo kde takovy program najit.

A nebyl to nahodou 16-bitovy program bezici na stroji s Win95,
ktery ale diky jedne knihovne umel pristupovat na dlouha jmena?

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 ===
==============================================================
ICQ: 21215917


Dloha jmena a Windows 3.11

[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 01.10.1998 12:34:33

Zdravicko,

je tu moznost toho rozsireni "Win32s" ... to snad byla vec, ktera davala Win
3.11 32-bitove jadro vcetne moznosti vyuzivat tu zdegenorovanou FATku :-)).

Koukni na http://aprs.rutgers.edu/WIN32S.HTM a rid se instrukcemi ;-)))))
... pokud by to neslo, tak jdi na
http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=win32s a vem dalsi odkaz
v poradi ;-)))).


Mej se dobre, prijemny den,

Peter Rus ml.

-------
Jirka Novacek wrote:

> Potrebuji v Windows 3.11 pouzivat dlouhe nazvy souboru. Nekde jsem vid�l
> program, ktery o tuto moznost W3.11 rozsiroval, ale nemohu si vzpomenout
> kde. Nevite nekdo kde takovy program najit.

COM port

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:10:03

IKO wrote:
>
> Potrebujem poradit, ako by som sa vo Windowse napichol na COM
> port a odpocuval komunikaciu. Nieco ako HOOK. Ako na to?

Ahoj,

Rekl bych, ze to nejde. A k cemu to vlastne potrebujes ?

--
Petr Vones, amatersky programator

Aligment v StringGrid

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:17:55

Peter Vlkovic wrote:
>
> Ahojte !
>
> Neviete mi nahodou niekto poradit, ako pri pouziti
> komponenty StringGrid docielit v urcitom stlpci
> zarovnanie textu v "bunke" vpravo.
> DBGrid taketo nieco umoznuje cez vlastnost Columns.
>
> Ja som to riesil trochu sialene cez StringGridDrawCell.
> Pri zobrazovani kazdej bunky stlpca zistujem sirku retazca,
> z nej urcim X-ovu poziciu a na nej potom dotycny retazec
> prekreslim (skrz povodny nezarovnany text) - metodou TextRect.
> Je to neprakticke a pomale (nikedy je badatelne aj kratke
> "mihnutie" povodneho nezarovnaneho textu).

Ahoj,

TStringGrid je dost nestastna komponenta. Pokud muzes, tak radeji pouzij
TDrawGrid, ten je v tomto daleko pruznejsi a data si ukladej sam. Druha
moznost je podivat se na DSP, tam mas plno upravenych stringgridu a to
zarovnavani tam urcite u nektere bude. Ono to totiz bez upravy puvodniho
stringgridu nijak rozumne udelat nejde. Budto nastavis DefaultDrawing na
False ale pak to budes muset vsechno kreslit znova, nebo ti to bude kreslit
porad. Pritom by stacilo treba testovat jestli se pouziva OnDrawCell ....

--
Petr Vones, amatersky programator

Insert string

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:19:39

Zdenek Petruj wrote:
>
> Diky vsem za odpovedi, ale jeste nez dosli, tak jsem to obesel pres
> clipboard:
>
> ClipBoard.AsText:=MujString;
> Edit1.PasteFromClipBoard;

Ahoj,

To je ale dost silene reseni, predstav si ze mas neco v clipboardu, myslis si
ze to tam zustane, ale pak zjistis ze ti to nekdo prepsal. Za takove reseni
bych se ti podekoval ..... :-)

--
Petr Vones, amatersky programator

Vesela prihoda, nejen s CD-ROMkou (off topic)

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:33:51

Petr Zahradnik wrote:
>
> > monitor byl cernej. No tak jsem se pustil do prace.
> > Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
> > cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
> > misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
> > ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
> > Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))

To ja jsem zase takhle jednou dostal napad si upgradovat BIOS. Stahl jsem si
tedy novou verzi, spustil updatovaci program. Vse probehlo na prvni pohled
v poradku, zmackmul jsem tedy reset ... a nic. Pocitac byl uplne mrtvy, navic
byl patek vecer, takze s tim neslo nic delat :-)) Nastesti jsem si pred tim
ulozil puvudni obsah pameti, ten jsem pak vypalil do EPROMky, vlozil jsem ji
misto FLASH EPROM. Pocitac se nakonec tak nejak nabootoval, za behu jsem pak
vymenil EPROMku za FLASHku a pokusil se ji znovu naprogramovat, tentokrat to
uz vyslo. Inu, s dnesni technikou si clovek uzije plno zabavy ....... :-)

--
Petr Vones, amatersky programator

Win API ShAppBarMessage

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:42:01

"Martin Lasevi�" wrote:
>
> Ahoj vsichni,
>
> resim problem jak zaregistrovat vlastni toolbar tak, aby s jeho rozmery pocitaly OS Win 95
> pri maximalizaci ostatnich oken ( obdoba panelu nastroju MS Office).
>
> Pri pohlidce archivu teto konference jsem narazil na info o funkci ShAppBarMessage. Bohuzel ji nelze pouzit na Win NT.

Ahoj,

NT sice nemam takze to nemohu vyzkouset. V helpu se ale nepise o tom ze by
tato funkce nefungovala v NT, je tam psano:

[Now Supported on Windows NT]

--
Petr Vones, amatersky programator

16 bit. DLL versus DELPHI 3 C/S

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 13:43:48

Ondrej KOZIAK E121 wrote:
>
> Zdravim vsetkych!
> Moj problem: mam specificke DLL kniznice a chcem ich vyuzit v aplikacii
> napisanej v Delphi. ovsem mi tu nefunguje. V Mastering Delphi 2 som sa
> docital ze Delphi nepodporuju 16 bit. DLL, ale vraj treba urobit nejake
> pristupove body cez nejaky thunker soft od Microsoftu. Pytam sa co s tym
> teraz. 32bit. DLL nie su k dispozicii.
> Diky za kazdu radu.

Ahoj,

uz se to tu nekolikrat probiralo, podivej se do archivu konference, jsou tam
i odkazy na nejake priklady. Ale nebude to fungovat v NT.

--
Petr Vones, amatersky programator

16 bit. DLL versus DELPHI 3 C/S

[*] Micrel <micrel(zv)micrel(tec)cz> - 1.10.1998 14:33:17

Ahoj,
Pouzil jsem z D3 volani knihovnich modulu (napsane v D1) pres zminovany
thunking. Jsou to vlastne nedokumentovane funkce fy Microsoft pro
natahovani, uklizeni 16 bit DLL a manipulace se zasobnikem a globalni
pameti pro 16 bit. moduly. Neni to uplne 100% ale k tomu cemu to pouzivam
to bohate postaci. Kdyz budes chtit, poslu Ti je (pro D3) a pripadne si
pokusim vzpomenout na WEB odkaz

Jaro B.
-----P�vodn� zpr�va-----
Od: Ondrej KOZIAK E121 [SMTP:ono(zv)vdstudentserv02.utc.sk]
Odesl�no: 28. X 1998 19:15
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: 16 bit. DLL versus DELPHI 3 C/S


Zdravim vsetkych!
Moj problem: mam specificke DLL kniznice a chcem ich vyuzit v aplikacii
napisanej v Delphi. ovsem mi tu nefunguje. V Mastering Delphi 2 som sa
docital ze Delphi nepodporuju 16 bit. DLL, ale vraj treba urobit nejake
pristupove body cez nejaky thunker soft od Microsoftu. Pytam sa co s tym
teraz. 32bit. DLL nie su k dispozicii.
Diky za kazdu radu.
Ondrej.

DDe pro DOS

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 14:55:29

Nosek Libor wrote:
>
> Nevite nekdo je-li mozne vytvorit DDe operace v systemu D3 jako server a TP7 jako klient pro prenos dat mezi sebou.
> Jde mi o to aby program v TP7 akceptoval data posilana z programu v D3 a program v D3 prijimal pomoci DDE data
> z programu v TP7?
> Za jakoukoli odpoved diky.

Ahoj,

Jedina moznost by byla kdyby M$ rozsiril DOS o nejake sluzby ktere by to
umoznovali, ale o nicem takovem nevim. Mel jsem kdysi podobny problem,
potreboval jsem predavat kratke textove zpravy z DOSove aplikace. Byla
totiz psana v TP5.5 a od jednoho unitu chybel zdrojak, takze to neslo
prepsat :-( Nakonec jsem to vyresil pomerne prisernym zpusobem, ale funguje
to. Zpravu ulozim do souboru (zjistim jestli jiz predtim neexistuje, pak
cekam). Ve Windows aplikaci pomoci FindFirstChangeNotification sleduji
jestli v danem adresari nedoslo ke zmene a pokud se tam objevi ten soubor
tak jej prectu a smazu. Neni to samozrejme nijak rychle, ale pro obcasne
zpravy to funguje. Co se tyce te funkce FindFirstChangeNotification, tak
v RxLib mas komponentu RxFolderMonitor ktera je na tom zalozena.

--
Petr Vones, amatersky programator

��rov� k�d

[*] David Kallab <dkallab(zv)scova.vabo(tec)cz> - 1.10.1998 15:58:04

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

P��tel�,
pot�ebuji vytisknou formul��, na kter�m by byl i ��rov� k�d z datab�ze. V�te n�kdo jak na to. Ide�ln� by byl form�t CODE39.

D�ky
David Kallab


CreateIconIndirect

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 16:14:33

voborsky(zv)menza.mff.cuni(tec)cz wrote:
>
> Ahojte vsichni,
> Potrebuju v programu vytvorit ikonu - to neni zas takovy problem,
> pouzije se fce Win32 API CreateIconIndirect a jako parametry se ji
> poslou maskovaci bitmapa a bitmapa ikony.
>
> Ale co kdyz potrebuju vytvorit ikonu, ktera nema pouze 16 trapnych
> barev? CreateIconIndirect v tomto pripade selhava.

Ahoj,

mozna by to slo pomoci CreateIcon, je tam tento parametr:

BYTE cBitsPixel, // number of bits per pixel in XOR bitmask

--
Petr Vones, amatersky programator

Earovy kod

[*] Tomas Burger <archiv(zv)delphi(tec)cz> - 1.10.1998 16:42:42

Doporucuji HyperReport...
Odkaz na jeho homepage najdes na http://www.delphi(tec)cz/

Tomas

> -----Puvodni zprava-----
> Od: David Kallab [SMTP:dkallab(zv)scova.vabo(tec)cz]
> Odeslano: 1. listopadu 1998 15:58
> Komu: Delphi Forum
> Poedmit: Earovy kod
>
> Poatele,
> potoebuji vytisknou formulao, na kterem by byl i earovy kod z databaze. Vite nikdo jak na to. Idealni by byl format CODE39.
>
> Diky
> David Kallab


QReportPreview

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 16:49:01

milank(zv)gratex.sk wrote:
>
> Pri zavolani Preview u QReportu sa automaticky zobrazi nastavenie Zoom To
> Width. Toto zobrazenie sice maximalne vyuzije sirku monitoru ale skresluje
> fonty a pri hustom popise sa texty prekryvaju. Pri obrazeni Zoom 100% je
> vsetko v poriadku. Poradte kto ma skusenosti ako nastartovat Preview priamo
> so zobrazenim 100%. V dfm so zistil ze buton vola metodu ZoomTo100Click, pri
> pokuse ju nejako zavolat OnPreview to neslo. Za kazdu radu D.

Ahoj,

idealni by byla nejaka vlastnost QuickReportu, ale nenasel jsem nic takoveho.
Zkousel jsem to udelat jinak, ale protoze nemam zdrojaky od QR tak nelze
zarucit ze to nebude vyvolavat nejake problemy. Jedna se o nouzove reseni,
navic se znacne neprijemnym prebliknutim pri preview. Je to pro QR 3.03 v D4:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

const
UM_QRPREVIEW = WM_USER + $100;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure UMQRPreview(var Msg: TMessage); message UM_QRPREVIEW;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, ComCtrls;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(Handle, UM_QRPREVIEW, 0, 0);
QRListForm.QuickRep1.PreviewModal;
end;

procedure TForm1.UMQRPreview(var Msg: TMessage);
var
ZoomButton: TComponent;
begin
ZoomButton := Screen.ActiveForm.FindComponent('Zoom100');
if ZoomButton <> nil then
with ZoomButton as TToolButton do
begin
Down := True;
Click;
end;
end;

end.

--
Petr Vones, amatersky programator

Mainform.Showmodal

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 16:50:17

"Martin Lasevi�" wrote:
> Znate nekdo efektivni zpusob, jak udelat hlavni form aplikace modalni ? tj.
> s vlastnostmi jako Form.ShowModal ?

Ahoj,

a co ma byt cilem ? Modalni dialog ma vzdy vztah k ostatnim oknun aplikace.
Nejde ti spise o to, aby nebylo mozne v tu chvili prepinat mezi aplikacemi ?

--
Petr Vones, amatersky programator

TComPortDriver (ComDrv16/32)-cteni na pozadi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 16:50:47

Bene� Jaroslav wrote:
>
> Ahoj a diky. Komponent, ktery jsem pouzil ma take pomerne jednoduchy event
> handler. Pouziti v 32 bit. aplikacich asi nebude problem (verze je k
> dispozici) ale potrebuju ho do aplikace, ktera bude chodit i pod W3.11 i pod
> Win95 tj. abych nemusel nic prepisovat. Pri zkousce ve 3.1 mi pri prepnuti
> do jine aplikace prestane prenos fungovat a nejaka data se mi ztrati. Resim
> to proto prepinanim OnActivate/OnDeactivate, primym rizenim linky, ale ani
> to neni 100% OK. Co s tim?

Ahoj,

zkus se podivat do Kuchyne Martina Nedopila, ten tam ma jednoduchou komponentu
jeste pro 16bit - (http://kuchyn.delphi(tec)cz)

Petr Vones, amatersky programator

Kontextove menu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.10.1998 17:55:25

Krayzel Libor wrote:
>
> > Konkretne primo otevrit ci otevrit v programu nevim, ale
> > jedna berlicka
> > existuje a to je vlozeni linku do adresare SendTo v adresari
>
> Tuhle "berlicku" pouzivam, ale chtelo by to jeste neco jineho. Proc muze
> mit napr. FrontPage editor kontextove menu EDIT a moje aplikace ne?

Ahoj,

zalezi na tom, jestli chces mit napevno ten prikaz k urcitym typum soboru.
Pokud ano, tak ti staci si zapsat uricte polozky do registru (podivej se treba
na .txt). S tim je spojen dalsi problem, prikazu muzes mit samozrejme vice,
navic uzivatel muze oznacit vice souboru a pak provest ten prikaz. Jde pak o to,
jakym zpusobem budes predavat parametry do sve aplikace. Jsou dva zpusoby, pomoci
parametru nebo pomoci DDE. Ten druhy zpusob je podle mne daleko pruznejsi, navic
se ti prikaz preda do posledni aktivni instance tve aplikace a nespusti novou
(samozrejme tu si muzes spustit pak sam programove). Mam na predavani prikazu
pomoci DDE udelanou komponentu, jestli chces tak ti to poslu.

--
Petr Vones, amatersky programator


Funkce BDE

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.10.1998 18:49:09

mbartone(zv)Synthesia(tec)cz wrote:

> nevite nekdo kde se da ziskat popis funkci BDE ?
>
...\DOC\bde.int


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


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