Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Makra
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.10.1998 08:30:25
Zdravim,
chtel bych ve svych aplikacich vyuzivat maker (moznost definice,
hotkeys, atd). Nevite nekdo o nejake free komponente?
Dekuji..........................................................
. 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 .
.........................................................
Interbase a NULL hodnoty ulo�en� provedury
[*] Martin UHER <tlanik(zv)zvt.csas(tec)cz> - 7.10.1998 08:45:43
... ano, je to takove drbani se p�es hlavu. Toto reseni berte s rezervou a
jako docasne do doby,
kdy s tim InterBase n�co neudela.
Dal�� reseni je pouzit vice procedur. Jednu uz mame. Druha procedura p�i
insertu vynecha sloupec,
kter� chceme aby byl nulov�.
D�le muzeme do procedury predavat parametr nav�c (typu char). V tomto
parametru bude receno
kter� z parametru je 'null'. Napr hodnota 'xnnx' bude zanamenat, ze druhy a
treti parametr je nulovy.
Ja vim, nen� to idealni. St�le plati prvn� dve vety zde uvedene. Snad s tim
IB n�co udela.
Martin UHER
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of Jaro
Sent: Tuesday, October 06, 1998 10:20 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Interbase a NULL hodnoty ulo�en� provedury
Nevim, zdali jsem to dobre pochopil. Jako ze bych mel vsechny hodnoty
integer a Date prevest na string, pak poslat na server a uvnitr provedury je
zase
prevadet na zpet na prislusny typ? To se mi zda moc neprakticke.
Jaro.>Jak vypada ta procedurka?
>Hodnota "0" je hned p�i vstupu do procedurky?
>
>Mohlo by to chodit asi takto:
>1) predavat string (char, varchar)
>2) na zacatku procedurky mit toto: "IF (zv)Hodnota = 'null' (zv)HodnotaProInsert
=
>null
>ELSE (zv)HodnotaProInsert = CONVERT(int, (zv)Hodnota)"
>
>Funkce CONVERT je pro MSSQL, Interbase ma urcite tak� n�co podobneho.
>
>Martin UHER
>
>
>-----Original Message-----
>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of
Jaro
>Sent: Sunday, October 04, 1998 6:14 PM
>To: delphi-l(zv)fwd(tec)cz
>Subject: Interbase a NULL hodnoty ulo�en� provedury
>
>Pokud ukladam data pomoci ulozene procedury (INSERT a UPDATE) na Interbazi
a
>predvam hodnoty pomoci parametru StoredProcedure, tak se u nezadanych
hodnot
>(NULL) vlozi u typu Integer vzdy nula a u typu Datum se vlozi 30.12.1899.
>Neprisel jsem na to jak tento efekt potlacit. Potrebuji, aby prazdne
polozky
>zustaly NULL.
>Zejmena ten datum je neprijemny. Vi nekdo jak na to???
>Jaro
>
>
Dlzka WAV
[*] Daniel SICHTA <Sichta(zv)asset.sk> - 7.10.1998 08:46:17
Ako precitam hlavicku WAV suboru, aby som dostal vsetky tieto udaje ?
Dik !
* sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> -----Original Message-----
From: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
Sent: 6. okt�ber 1998 20:58
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Dlzka WAV
> Caute
>
> Mozete mi niekdo povedat ako zistim dlzku WAV suboru v
sekundach ( dobu =
> prehravania )
>
=
> Dik
>
Z hlavicky souboru zjistis vzorkovaci frekvenci, delku datoveho
bloku
a pocet byte na vzorek. Spocitas si pocet vzorku = delka
datoveho
bloku / pocet byte na vzorek. Pak teno podelis vzorkovaci
frekvenci
a dostanes delku WAVu v sekundach.
Pokud by neco nebylo jasne nebo by si neznal hlavicku, tak se
jeste
ozvi.
Cau Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
onOver
[*] Honza Fiala <fala(zv)imc(tec)cz> - 7.10.1998 08:58:40
Zdravim,
chtel bych se zeptat, jak bych mohl dodelat do TImage event, ktery by reagoval na prejeti krysou.
Dik
Honza
Interbase
[*] Pavel_Fuciman.UNION(zv)union(tec)cz - 7.10.1998 09:51:37
Ahoj vsichni.
Mam problem - pri pokusu o napojeni se na Interbase databazi mi hlasi
server tuto hlasku (samo v anglictine):
Neznamy uzivatel nebo heslo.
Nedostupna databaze.
Alias: IBLOCAL
Nevi nekdo kde mam chybu?
(v BDE mam nastavenou poluzku SERVER NAME = ...\Borland\IntrBase\isc4.gdb)
Za kazdou radu dekuji.
PDF
[*] sup(zv)svitap(tec)cz - 7.10.1998 10:09:06
Hi lidi, nevite cirou nahodou nekdo o nejake komponente, ktera umi cist
a/nebo zobrazit format *.pdf od Adobe a je pro Delphi2?
Pokusnik JWeiss
Delphi 1 a sit podruhe
[*] Marek Soukup <marek(zv)comberg(tec)com> - 07.10.1998 10:49:42
Ahoj,
sem rad, ze se negdo ozval, ale s�si sem nebyl dost presny. Prece
musi bejt nejakej nastroj na zamykani jednoho rekordu v Paradox tabulce.
Prece nemuzu zamykat celou tabulku !!!!
Marek Soukup
Vyroba DLL aplikace
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 07.10.1998 11:12:53
Ahoj vsichni !
Prinasim nasledujici problem: kdyz prepisu normalni, fungujici
aplikaci .EXE do DLL (prepsanim "Program" na "Library" a vlozenim jedne
export fce, ktera nic nedela) tak se to zacne chovat nejak podivne.
Prestala mi fungovat komponenta z RX na Animace a kdyz na stisk buttonu
zavolam "Close" tak cela aplikace zustane viset. Myslim ze to souvisi s
distribuci nejakych windows zprav, ktere zustanou viset na volajici
aplikaci a k DLL se nedostanou. Tuhle DLL jsem volal pomoci RunDLL
MOJEDLL,MOJEFunkce a tohle mi to delalo. Poradte prosim co s tim.
Diky, Sir
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+TDBRichEdit & OLEServer
[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 7.10.1998 11:18:20
>>Chtelbych editovat TDBRichEdit v nejakem editoru.
>>Jako OLE server MS Word zavrhuji, protoze ho nemusi mit kazdy,
>>Wordpad ma kazdy s W95 nebo NT. Ten otevru
>>prez TOleContainer, ale jak prenest text tam a po uprave
>>naspet ? Zda se mi to nejjednodussi cesta.
>>Nebo jine koncepne navrhy ?
>-------------------------------------------
>Pak ale nechapu smysl tohoto pozadavku.
>TDBRichEdit umi v podstate to same co WORDPAD.
>Je to take editor priblizne na stejne urovni.
>Jaro
>
Co se tyce funkcnosti ano, jenomze ve Wordpadu je kompletni
ovladani (pismo, barva, zarovnavani) hotovo. Samotny TDBRichEdit
je na nic pokud nechces pouzivat jenom jeden styl pisma, musis si
to oprogramovat. Pokud to nepujde prez OLE do Wordpadu (coz mi pripada
elegatnejsi) budu to muset tak udelat, s vyuzitin prikladu RICHEDIT.
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz
Interbase
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 07.10.1998 12:00:33
Hojda,
nechci vypadat, jako ze te podcenuju, ale mas spustenou na klientovi takovou
tu "zelenou kouli za pocitacem" v taskbaru (myslim, ze se to jmenuje IB
Server) ??
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Pavel_Fuciman.UNION(zv)union(tec)cz wrote:
> Ahoj vsichni.
>
> Mam problem - pri pokusu o napojeni se na Interbase databazi mi hlasi
> server tuto hlasku (samo v anglictine):
>
> Neznamy uzivatel nebo heslo.
> Nedostupna databaze.
> Alias: IBLOCAL
>
> Nevi nekdo kde mam chybu?
>
> (v BDE mam nastavenou poluzku SERVER NAME = ...\Borland\IntrBase\isc4.gdb)
>
> Za kazdou radu dekuji.Aplikace bez komponent
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 12:04:30
Petr Vones wrote:
> > > > Aha, tak to ti poradim neco lepsiho. Ozen se. :-)
> > > Diky, az bude nejhur, budu o tom uvazovat :-)
> >
> > No co co, ja jsem napriklad zenaty. Proc bych mel ja ano a jiny
> > ne? Jaka by to byla spravedlnost?
> > :-)
> Teda, ted to vypada jako by jsi mi trosinku zavidel :-))
To jsi spatne pochopil, zavidet bys mi mohl naopak ty. Proto by
bylo nanejvys spravedlive, kdyby ses ozenil, abys mi nemusel
zavidet. :-)
> > > aplikaci (Hello World :-) bez komponent. Samozrejme ze v praxi uz dnes
> > >
> > Zajimavy napad - jednou jsem to zkousel, a hned jsem to opustil.
>
> Ja to taky nepraktikuju zrovna denne, ale nekdy neni spatne kdyz ma
> aplikace bez okna jen s trayikonkou misto 300k treba jen 20. Vlastne je s
> tim spojen jeden problem, a to ze i velmi jednoducha aplikace v D4 pouziva
> daleko vic DLL nez v D2.
>
> program Project1;
>
> uses
> Windows;
>
> begin
> MessageBeep(0);
> Sleep(10000);
> MessageBeep(0);
> end.
>
> Delphi: EXE: DLL:
> D2 7,168 USER32, KERNEL32, GDI32, ADVAPI32
> D4 15,872 USER32, KERNEL32, GDI32, ADVAPI32, OLE32, OLEAUT32,
> RPCRT4, MSVCRT20
No, cvicne jsem napsal vytvareni okna bez VCL, a v D3 mi to dalo
asi 15 kilo, v D4 asi o kilo vic. Takze zda se, ze skok nastal uz u
D3. Ale kdyz se podivas na DLL, je to pochopitelne - pribylo
pouzivani COM a podobnych sluzeb Woken.
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
Interbase a NULL hodnoty ulo en� provedury
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 12:04:30
Jaro wrote:
> Zdalo se, ze je to dobrej napad. Bohuzel to nepomohlo.
> Problem asi nebude v paramerech. Ty jsou a zustavaji NULL.
> Na server se presto ulozi 30.12.1899.
> >
> >> Pokud ukladam data pomoci ulozene procedury (INSERT a UPDATE) na
> Interbazi
> >> a predvam hodnoty pomoci parametru StoredProcedure, tak se u nezadanych
> >> hodnot (NULL) vlozi u typu Integer vzdy nula a u typu Datum se vlozi
> >> 30.12.1899.
Myslim, ze bude treba vlozit NULL explicitne, asi nejak takto:
insert into <...> (..., Datum) values (..., null)
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 1 a sit podruhe
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 7.10.1998 12:30:14
Hi,
protoze se k tomu nikdo nema, ani zadny expert (ten se ozve asi pozdeji,
aby kritizoval moji radu :-)
tak ti poradim asi toto: Musis pouzit funci dbiGetRecord, kde jako druhy
parametr (nepovinny) se nachazi typ zamku, jaky hodlas uvalit na record.
Nevim jak to bude s objekty TTable, nemam vubec chut prochazet zdrojak,
pouzivam C++Builder.
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: Marek Soukup [SMTP:marek(zv)comberg.com]
> Odesl�no: 07. ��jna 1998 10:50
> Komu: Delphi konference
> P�edm�t: Delphi 1 a sit podruhe
>
> Ahoj,
> sem rad, ze se negdo ozval, ale s�si sem nebyl dost presny. Prece
> musi bejt nejakej nastroj na zamykani jednoho rekordu v Paradox
> tabulce.
> Prece nemuzu zamykat celou tabulku !!!!
> Marek Soukup
> Delphi 1 a sit podruhe
[*] Vojtech Albrecht <supervisor(zv)unicontrols(tec)cz> - 7.10.1998 13:35:14
Ahojte
Ja teda pouzivam DBF tabulky D3 a provadim to asi takhle nejak
try
Table1.Edit
except
//nejde uzamknout
end
----------
Od: =?iso-8859-2?Q?Martin_Fron=ECk?=[SMTP:FRONEK(zv)ZZNSLANY.CZ]
Odesl�no: 7. ��jna 1998 12:30
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Delphi 1 a sit podruhe
<<Soubor: ATT00029.txt>>Vyroba DLL aplikace
[*] Micrel <micrel(zv)micrel(tec)cz> - 7.10.1998 13:45:31
Ahoj,
Kazda funkce DLL knihovny by mela byt obalena blokem Try Except aby
nedoslo k uniku pripadne chyby. Pokud mas aplikaci, ktera v EXE funguje,
pak ji musis prepsat na loadovatelny formular (misto createform pouzivat
jenom create), a opet to obalit try finally blokem. A tohle udelat s kazdym
formularem (ja to tak delam) Pouzivam tez RX library s Orpheusem a vsechno
je OK.
Jaro B.
Procedure MojeProc; export{tohle prijde do interface};
Var Form1:TForm1; {<--- deklarace neni uz v interface casti ale lokalni}
Begin
Try
Form1:=TForm1.Create(Application{nebo NIL});
Try
Form1.ShowModal {nikdy nemodalni}];
Finally
Form1.Free
End;
Except
On E:Exception Do
MessageDLg('Chyba '+E.ClassName+' v MOJE.DLL
knihovne',mtWarning,[mbOK],0);
End;
End;
-----P�vodn� zpr�va-----
Od: Jan Stuchlik [SMTP:xstuchli(zv)feld.cvut(tec)cz]
Odesl�no: 7. X 1998 11:13
Komu: Delphi konference
P�edm�t: Vyroba DLL aplikace
Ahoj vsichni !
Prinasim nasledujici problem: kdyz prepisu normalni, fungujici
aplikaci .EXE do DLL (prepsanim "Program" na "Library" a vlozenim jedne
export fce, ktera nic nedela) tak se to zacne chovat nejak podivne.
Prestala mi fungovat komponenta z RX na Animace a kdyz na stisk buttonu
zavolam "Close" tak cela aplikace zustane viset. Myslim ze to souvisi s
distribuci nejakych windows zprav, ktere zustanou viset na volajici
aplikaci a k DLL se nedostanou. Tuhle DLL jsem volal pomoci RunDLL
MOJEDLL,MOJEFunkce a tohle mi to delalo. Poradte prosim co s tim.
Diky, Sir
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+Delphi 1 a sit podruhe
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 7.10.1998 13:57:32
Jak je libo, forwarduji......
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: Milan Schembera [SMTP:schemberam(zv)avx(tec)cz]
> Odesl�no: 07. ��jna 1998 12:59
> Komu: 'fronek(zv)zznslany(tec)cz'
> P�edm�t: RE: Delphi 1 a sit podruhe
>
> > protoze se k tomu nikdo nema, ani zadny expert (ten se ozve asi
> pozdeji,
> > aby kritizoval moji radu :-)
>
> Skvele !!! Jen TVRDE do experta jednoho, do me taky porad ryl (je to
> prece
> jenom zahradnik) a kdyz jsem si dovolil na nej neco mit, tak se ohanel
>
> cizima slovama jako "impertinence" a "invektiva" apod.
>
> ;-)
>
> Jeste bych si dovolil jeden citat:
> "Cloveku, ktery sam sebe pasoval na genia, nezbyva nic jinyho, nez zit
> cely
> zbytek zivota mezi blbama"
>
> To mu muzes klidne vzkazat, ja do konference odpovidat nemuzu (je to
> prihlaseny na jednu adresu u nas, ktera ale neni moje)
>
> S pozdravem
>
> Milan
> MIS Dept.
> AVX Czech Republic
> Lanskroun
>
> voice:+420-467-558353
> <mailto:schemberam(zv)avx(tec)cz>
> Vyroba DLL aplikace
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 07.10.1998 14:02:25
Micrel wrote:
>
> Ahoj,
> Kazda funkce DLL knihovny by mela byt obalena blokem Try Except aby
> nedoslo k uniku pripadne chyby. Pokud mas aplikaci, ktera v EXE funguje,
> pak ji musis prepsat na loadovatelny formular (misto createform pouzivat
> jenom create), a opet to obalit try finally blokem. A tohle udelat s kazdym
> formularem (ja to tak delam) Pouzivam tez RX library s Orpheusem a vsechno
> je OK.
>
> Jaro B.
>
> Procedure MojeProc; export{tohle prijde do interface};
> Var Form1:TForm1; {<--- deklarace neni uz v interface casti ale lokalni}
> Begin
> Try
> Form1:=TForm1.Create(Application{nebo NIL});
> Try
> Form1.ShowModal {nikdy nemodalni}];
> Finally
> Form1.Free
> End;
> Except
> On E:Exception Do
> MessageDLg('Chyba '+E.ClassName+' v MOJE.DLL
> knihovne',mtWarning,[mbOK],0);
>
> End;
> End;
>
Diky, to zkusim, ale Aplication.Initialize a Run zustava v begin/end. ?
No jo to vlastne musi.... A proc to teda nefunguje pro loadovane
formelare ?
pr.
procedure bla;export;
begin;end; //nic nedela;
begin
application.initialize;
tform1:=..create;
application.run;
end.
tady bych si predstavoval, ze to pri volani nacte DLL, tim padem vykona
jeji spustitelnou cast a tim padem spusti aplikaci. Proc sakra todle
nefunguje ? Microsoft? Borland?
Ale stejne diky, Sir
Prace s tabulkou
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 7.10.1998 16:00:40
Hi,
uz me ty D4 tocej. Chtel bych mit v adresari, kde je nainstalovana aplikace
tabulku ve formatu ASCII nebo DBF, coz je putna a chtel bych s ni pracovat.
Nechci zadnou databazi. Chci jenom tabulku.
Na formular jsem si umistil komponentu Table. U ni jsou nastaveny tyto
hodnoty:
Active False
DatabaseName nic
Name Table1
TableType ttASCII
V OnCreate formulare je test na existenci tabulky:
Table1.Active := False; // pro jistotu
Table1.DatabaseName := 'C:\Pokus'; // cesta, kde je aplikace
if (Not Table1.Exists) then
Table1.CreateTable; // tohle jeste udela v pohode
Table1.Active := True; // TADY TO PADA
if (Table1.RecordCount = 0) then
Table1.IsertRecord ... atd.
Stale dostavam hlasku "CANNOT ACCESS FILE ..."
Nejhorsi na tom je, ze to obcas projde. Nechapu to. Uz jsem z toho na
prasky.
Muzete mi prosim nekdo poradit ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
Zjisteni vytvoreneho formulare (poste?)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 07.10.1998 17:10:47
JO! To je presne ONO! Diky Petre.
Mac
P.S. Mimochodem, asi se budu muset prizpusobit tvym konvencim v
pojmenovavani objektu, promennych apod., protoze pak uz nebudu muset
umet vubec programovat a budu si skladat programy pomoci clipboardu
primo z tvych mailu :-)))
Petr Vones wrote:
>
> Ahoj,
>
> ja jsem to delal takhle, ale nemuzes tak vytvorit vice jak jeden child
> od jednoho formulare coz se ti mozna nebude hodit:
>
> function TMainForm.CreateOrShowForm(AFormRef: TFormClass): TForm;
> var
> I: Integer;
> begin
> Result := nil;
> for I := 0 to MDIChildCount - 1 do
> if MDIChildren[I] is AFormRef then
> begin
> Result := MDIChildren[I];
> if Result.WindowState = wsMinimized then
> Result.WindowState := wsNormal;
> Result.BringToFront;
> Exit;
> end;
> Screen.Cursor := crHourGlass;
> try
> Result := AFormRef.Create(Application);
> Result.Show;
> finally
> Screen.Cursor := crDefault;
> end;
> end;
>
> --
> Petr Vones, amatersky programator
--
==============================================================
= 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 =
==============================================================QReport + DBMemo
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 7.10.1998 17:19:45
Zdravim,
tisknu v QReportu DBMemo a mam problem se strankovanim. Toto memo je plneno
dlouhym textem (vychazi to az na 5 stran). V Preview je vse v poradku !! Pri
vlastnim tisku se sice vytiskne PageFoot, ale navic pres nej az do konce
stranky se tisknou radky mema.
Diky za kazde nakopnuti.
Lubomir Kupka
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
DELPHI 3 Professional a Oracle
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 7.10.1998 17:28:27
Ahoj p�nov� a d�my,
d� se n�jak rozumneji (rychleji) spojit %Subj
nez pomoc� aplikace -> BDE -> ODBC -> Oracle?
P.S: Bohuzel verze Client-server je pro mne nedostupna
aplikace vytvarim za penize zamestnavatele pro vnitrni potrebu
a jaksi ve statni sprave silne ubyvaji korunky.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Graf jako bitmapa
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 7.10.1998 17:55:22
Ahoj vsichni,
chtel bych se zeptat, zda nekdo nahodou nema zkusenosti s ukladanim
grafu ( konkretne se jedna o ActiveX "TVCFirstImpression" nebo "TCharFX" )
do nejake bitmapy libovolneho formatu.
Nebo jestli nekdo nevi, kde bych nasel podobne komponenty na tvorbu
grafu s timto pozadavkem.
S pozdravem Petr
Interbase
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 18:07:04
Pavel_Fuciman.UNION(zv)union(tec)cz wrote:
> Mam problem - pri pokusu o napojeni se na Interbase databazi mi hlasi
> server tuto hlasku (samo v anglictine):
>
> Neznamy uzivatel nebo heslo.
> Nedostupna databaze.
> Alias: IBLOCAL
>
> Nevi nekdo kde mam chybu?
>
> (v BDE mam nastavenou poluzku SERVER NAME = ...\Borland\IntrBase\isc4.gdb)
:-)))) Tak tohle je zrovna systemova databaze, a neni radno do ni
stourat. Ale zkus se tam prihlasit takto:
USER NAME=SYSDBA, PASSWORD=masterkey.
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
onOver
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 18:07:04
Honza Fiala wrote:
> chtel bych se zeptat, jak bych mohl dodelat do TImage event, ktery by
> reagoval na prejeti krysou.
A k cemu je OnMouseMove?
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
Vyroba DLL aplikace
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.10.1998 18:22:20
Ahoj,
To DLL vyvolavas z nejakeho prostredi, tj. z formulare na nejakou
udalost a mas-li funkci obalenou, pak te nezajima co je uvnitr (pokud
nepredavas nejake specificke parametry, ale i to lze obejit spravnou
deklaraci).
Tvuj priklad
begin
application.initialize;
tform1:=..create;
===== bud je hlavni(autocreate) tj createform() nebo je jen
create(application) kdyz je pomocny
===== tform nesmi byt z toho DLL (ten je do jiste miry autonomni),
ale nejaky jiny formular
=====Application.CreateForm(TForm1, Form1);
=====Application.Run;
application.run;
end.
Funkce v DLL jsou do jiste miry autonomni a vlecou s sebou cast VCL. Pro
predstavu, s VCL zavlecenou hlavnim programem, ktery si nejakou FORM-DLL
vyvola nemaji nic spolecneho.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Jan Stuchlik [SMTP:xstuchli(zv)feld.cvut(tec)cz]
> Odesl�no: 7. ��jna 1998 14:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vyroba DLL aplikace
>
>
>
> Micrel wrote:
> >
> > Ahoj,
> > Kazda funkce DLL knihovny by mela byt obalena blokem Try Except
> aby
> > nedoslo k uniku pripadne chyby. Pokud mas aplikaci, ktera v EXE funguje,
> > pak ji musis prepsat na loadovatelny formular (misto createform pouzivat
> > jenom create), a opet to obalit try finally blokem. A tohle udelat s
> kazdym
> > formularem (ja to tak delam) Pouzivam tez RX library s Orpheusem a
> vsechno
> > je OK.
> >
> > Jaro B.
> >
> > Procedure MojeProc; export{tohle prijde do interface};
> > Var Form1:TForm1; {<--- deklarace neni uz v interface casti ale lokalni}
> > Begin
> > Try
> > Form1:=TForm1.Create(Application{nebo NIL});
> > Try
> > Form1.ShowModal {nikdy nemodalni}];
> > Finally
> > Form1.Free
> > End;
> > Except
> > On E:Exception Do
> > MessageDLg('Chyba '+E.ClassName+' v MOJE.DLL
> > knihovne',mtWarning,[mbOK],0);
> >
> > End;
> > End;
> >
>
> Diky, to zkusim, ale Aplication.Initialize a Run zustava v begin/end. ?
> No jo to vlastne musi.... A proc to teda nefunguje pro loadovane
> formelare ?
> pr.
>
> procedure bla;export;
> begin;end; //nic nedela;
>
> begin
> application.initialize;
> tform1:=..create;
> application.run;
> end.
>
> tady bych si predstavoval, ze to pri volani nacte DLL, tim padem vykona
> jeji spustitelnou cast a tim padem spusti aplikaci. Proc sakra todle
> nefunguje ? Microsoft? Borland?
> Ale stejne diky, Sir
PDF
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 7.10.1998 21:14:28
-----P_vodn_ spr_va-----
Od: sup(zv)svitap(tec)cz <sup(zv)svitap(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D_tum: 7. okt_ber 1998 10:48
Predmet: PDF
>Hi lidi, nevite cirou nahodou nekdo o nejake komponente, ktera umi cist
>a/nebo zobrazit format *.pdf od Adobe a je pro Delphi2?
>
>Pokusnik JWeiss
>
Adobe AcrobatReader - najdite si napr. na http://www.AltaVista.digital.com/
Je to OCX a ide aj pod InternetExplorer aj pod Delphi a pod.
Miro
Vyroba DLL aplikace
[*] Kamar�d Milan <milan.kamarad(zv)tokoz(tec)cz> - 7.10.1998 21:26:21
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odesl�no: 7. ��jna 1998 18:22
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Vyroba DLL aplikace
>
> Ahoj,
> To DLL vyvolavas z nejakeho prostredi, tj. z formulare na
> nejakou
> udalost a mas-li funkci obalenou, pak te nezajima co je uvnitr (pokud
> nepredavas nejake specificke parametry, ale i to lze obejit spravnou
> deklaraci).
> Tvuj priklad
>
> begin
> application.initialize;
> tform1:=..create;
> ===== bud je hlavni(autocreate) tj createform() nebo je jen
> create(application) kdyz je pomocny
> ===== tform nesmi byt z toho DLL (ten je do jiste miry
> autonomni),
> ale nejaky jiny formular
> =====Application.CreateForm(TForm1, Form1);
> =====Application.Run;
> application.run;
> end.
>
> Funkce v DLL jsou do jiste miry autonomni a vlecou s sebou cast VCL.
> Pro
> predstavu, s VCL zavlecenou hlavnim programem, ktery si nejakou
> FORM-DLL
> vyvola nemaji nic spolecneho.
>
> Jaro B.
>
> > -----P�vodn� zpr�va-----
> > Od: Jan Stuchlik [SMTP:xstuchli(zv)feld.cvut(tec)cz]
> > Odesl�no: 7. ��jna 1998 14:02
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: Vyroba DLL aplikace
> >
> >
> >
> > Micrel wrote:
> > >
> > > Ahoj,
> > > Kazda funkce DLL knihovny by mela byt obalena blokem Try
> Except
> > aby
> > > nedoslo k uniku pripadne chyby. Pokud mas aplikaci, ktera v EXE
> funguje,
> > > pak ji musis prepsat na loadovatelny formular (misto createform
> pouzivat
> > > jenom create), a opet to obalit try finally blokem. A tohle udelat
> s
> > kazdym
> > > formularem (ja to tak delam) Pouzivam tez RX library s Orpheusem
> a
> > vsechno
> > > je OK.
> > >
> > > Jaro B.
> > >
> > > Procedure MojeProc; export{tohle prijde do interface};
> > > Var Form1:TForm1; {<--- deklarace neni uz v interface casti ale
> lokalni}
> > > Begin
> > > Try
> > > Form1:=TForm1.Create(Application{nebo NIL});
> > > Try
> > > Form1.ShowModal {nikdy nemodalni}];
> > > Finally
> > > Form1.Free
> > > End;
> > > Except
> > > On E:Exception Do
> > > MessageDLg('Chyba '+E.ClassName+' v MOJE.DLL
> > > knihovne',mtWarning,[mbOK],0);
> > >
> > > End;
> > > End;
> > >
> >
> > Diky, to zkusim, ale Aplication.Initialize a Run zustava v
> begin/end. ?
> > No jo to vlastne musi.... A proc to teda nefunguje pro loadovane
> > formelare ?
> > pr.
> >
> > procedure bla;export;
> > begin;end; //nic nedela;
> >
> > begin
> > application.initialize;
> > tform1:=..create;
> > application.run;
> > end.
> >
> > tady bych si predstavoval, ze to pri volani nacte DLL, tim padem
> vykona
> > jeji spustitelnou cast a tim padem spusti aplikaci. Proc sakra todle
> > nefunguje ? Microsoft? Borland?
> > Ale stejne diky, Sir
Interbase a NULL hodnoty ulo�en� provedury
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.10.1998 22:47:08
To je tez spatne drbani. Tech procedur by ve slozitejsim pripade muselo byt
mnoho.
Uz jsem na to ale pri�el. Nakonec pomohl ten puvodni napad od Alese
pouzit metodu Clear na parametr.
Uprava vypada takto:
if Query1.FieldByName('DEN').IsNull then
StoredProc1.ParamByName('DEN').Clear
else
StoredProc1.ParamByName('DEN').AsDateTime :=
Query1.FieldByName('DENZAHAJENI').AsDateTime;
Puvodne jsem psal if Query1.FieldByName('DEN').AsDateTime = NULL
.... a to nefungovalo
Takze posilam d�k Alesovi
Jaro
---------------
PS. Proc se nektery muj prispevek (ale i jine prispevky) v konferenci
rozmnozi az ctyrikrat?. Je to chyba programu konference?
---------------
-----P�vodn� zpr�va-----
Od: Martin UHER <tlanik(zv)zvt.csas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1998 9:59
P�edm�t: RE: Interbase a NULL hodnoty ulo�en� provedury
>... ano, je to takove drbani se p�es hlavu. Toto reseni berte s rezervou a
>jako docasne do doby,
>kdy s tim InterBase n�co neudela.
>Dal�� reseni je pouzit vice procedur. Jednu uz mame. Druha procedura p�i
>insertu vynecha sloupec,
>kter� chceme aby byl nulov�.
>D�le muzeme do procedury predavat parametr nav�c (typu char). V tomto
>parametru bude receno
>kter� z parametru je 'null'. Napr hodnota 'xnnx' bude zanamenat, ze druhy a
>treti parametr je nulovy.
>Ja vim, nen� to idealni. St�le plati prvn� dve vety zde uvedene. Snad s tim
>IB n�co udela.
>
>Martin UHER
>
>
>-----Original Message-----
>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of
Jaro
>Sent: Tuesday, October 06, 1998 10:20 PM
>To: delphi-l(zv)fwd(tec)cz
>Subject: Re: Interbase a NULL hodnoty ulo�en� provedury
>
>Nevim, zdali jsem to dobre pochopil. Jako ze bych mel vsechny hodnoty
>integer a Date prevest na string, pak poslat na server a uvnitr provedury
je
>zase
>prevadet na zpet na prislusny typ? To se mi zda moc neprakticke.
>Jaro.
>
>>Jak vypada ta procedurka?
>>Hodnota "0" je hned p�i vstupu do procedurky?
>>
>>Mohlo by to chodit asi takto:
>>1) predavat string (char, varchar)
>>2) na zacatku procedurky mit toto: "IF (zv)Hodnota = 'null' (zv)HodnotaProInsert
>=
>>null
>>ELSE (zv)HodnotaProInsert = CONVERT(int, (zv)Hodnota)"
>>
>>Funkce CONVERT je pro MSSQL, Interbase ma urcite tak� n�co podobneho.
>>
>>Martin UHER
>>
>>
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of
>Jaro
>>Sent: Sunday, October 04, 1998 6:14 PM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: Interbase a NULL hodnoty ulo�en� provedury
>>
>>Pokud ukladam data pomoci ulozene procedury (INSERT a UPDATE) na Interbazi
>a
>>predvam hodnoty pomoci parametru StoredProcedure, tak se u nezadanych
>hodnot
>>(NULL) vlozi u typu Integer vzdy nula a u typu Datum se vlozi 30.12.1899.
>>Neprisel jsem na to jak tento efekt potlacit. Potrebuji, aby prazdne
>polozky
>>zustaly NULL.
>>Zejmena ten datum je neprijemny. Vi nekdo jak na to???
>>Jaro
>>
>>
>TDBRichEdit & OLEServer
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.10.1998 23:17:08
V prikladech s Delphi je kompletne naprogramovany editor vcetne zdroju
Muzes ho pouzit, pocestit a pripadne vylepsit. Urcite to da mene prace.
Pokud se rozhodnes pro OLE se vsemi problemy a omezenimi, pak ale za
cenu vice vyhod nez nabizi Wordpad.
Jaro
>
>>>Chtelbych editovat TDBRichEdit v nejakem editoru.
>>>Jako OLE server MS Word zavrhuji, protoze ho nemusi mit kazdy,
>>>Wordpad ma kazdy s W95 nebo NT. Ten otevru
>>>prez TOleContainer, ale jak prenest text tam a po uprave
>>>naspet ? Zda se mi to nejjednodussi cesta.
>>>Nebo jine koncepne navrhy ?
>>-------------------------------------------
>>Pak ale nechapu smysl tohoto pozadavku.
>>TDBRichEdit umi v podstate to same co WORDPAD.
>>Je to take editor priblizne na stejne urovni.
>>Jaro
>>
>Co se tyce funkcnosti ano, jenomze ve Wordpadu je kompletni
>ovladani (pismo, barva, zarovnavani) hotovo. Samotny TDBRichEdit
>je na nic pokud nechces pouzivat jenom jeden styl pisma, musis si
>to oprogramovat. Pokud to nepujde prez OLE do Wordpadu (coz mi pripada
>elegatnejsi) budu to muset tak udelat, s vyuzitin prikladu RICHEDIT.
>-------------------------------------------
>Ing. Jiri Szopa
>tel.: +420 659 713393
>fax.: +420 659 713392
>email: jiri.szopa(zv)telecom(tec)cz
>
>
>Prace s tabulkou
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 8.10.1998 06:59:11
Zkus jmeno tabulky dat do TableName a ne do DatabaseName
---------------------------------------------------------------
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: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1998 16:05
P�edm�t: Prace s tabulkou
Hi,
uz me ty D4 tocej. Chtel bych mit v adresari, kde je nainstalovana aplikace
tabulku ve formatu ASCII nebo DBF, coz je putna a chtel bych s ni pracovat.
Nechci zadnou databazi. Chci jenom tabulku.
Na formular jsem si umistil komponentu Table. U ni jsou nastaveny tyto
hodnoty:
Active False
DatabaseName nic
Name Table1
TableType ttASCII
V OnCreate formulare je test na existenci tabulky:
Table1.Active := False; // pro jistotu
Table1.DatabaseName := 'C:\Pokus'; // cesta, kde je aplikace
if (Not Table1.Exists) then
Table1.CreateTable; // tohle jeste udela v pohode
Table1.Active := True; // TADY TO PADA
if (Table1.RecordCount = 0) then
Table1.IsertRecord ... atd.
Stale dostavam hlasku "CANNOT ACCESS FILE ..."
Nejhorsi na tom je, ze to obcas projde. Nechapu to. Uz jsem z toho na
prasky.
Muzete mi prosim nekdo poradit ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
Start menu llike - menu ?
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 8.10.1998 07:41:20
Ahojte vsici :o)
Mel bych malinkej dotaz.... Uz se to tu nekdy neco okolo toho probralo, ale
nepodarilo se mi to najit... Setkal se uz nekdo s problemem TrackPopupMenuEx
(to je API, muze se primo volat prez menu objekt, ale je to to samy...) ?
Mam mooc polozek a potreboval bych zobrazit bud VIC slooupcu pop menu (viz
start menu) nebo nahore a dole soupaci butonky (jako explorer). Snazil sem
se zjistit co maj tyhle 2 aplikace za zobrazenou tridy, ale oni jakmile
ztrati focus, ho schovaj.... Vi nekdo ????
Diky
L. Lostak
Delphi 1 a sit podruhe
[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 8.10.1998 07:52:24
Pokud to staci Write-Lock, tj. neni umoznen zapis ale je (asi) mozne
cteni, bude stacit na te vete, kterou chces zamknout dat Edit, BDE
automaticky zamkne danou vetu na zapis.
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Marek Soukup [SMTP:marek(zv)comberg.com]
> Odesl�no: 07. ��jna 1998 10:50
> Komu: Delphi konference
> P�edm�t: Delphi 1 a sit podruhe
>
> Ahoj,
> sem rad, ze se negdo ozval, ale s�si sem nebyl dost presny.
> Prece
> musi bejt nejakej nastroj na zamykani jednoho rekordu v Paradox
> tabulce.
> Prece nemuzu zamykat celou tabulku !!!!
> Marek Soukup
>
Aplikace bez komponent (Was: Vlastnosti komponent
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 8.10.1998 07:56:55
>Vlastne je s tim spojen
>jeden problem, a to ze i velmi jednoducha aplikace v D4 pouziva daleko vic
>DLL nez v D2.
>
>program Project1;
>
>uses
> Windows;
>
>begin
> MessageBeep(0);
> Sleep(10000);
> MessageBeep(0);
>end.
>
>Delphi: EXE: DLL:
>D2 7,168 USER32, KERNEL32, GDI32, ADVAPI32
>D4 15,872 USER32, KERNEL32, GDI32, ADVAPI32, OLE32, OLEAUT32, RPCRT4,
MSVCRT20
Neslo by pouzit tohle (z RxLib) ?
procedure FreeUnusedOle;
begin
{$IFDEF WIN32}
FreeLibrary(GetModuleHandle('OleAut32'));
{$ENDIF}
end;
Martin
Delphi 1 a sit podruhe
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 8.10.1998 08:16:04
> sem rad, ze se negdo ozval, ale s�si sem nebyl dost presny. Prece
>musi bejt nejakej nastroj na zamykani jednoho rekordu v Paradox tabulce.
Pomoci TTable.Edit to je nejjednodussi, jinak se podivej do BDE na fce
DbiIsRecordLocked a DbiRelRecordLock.
Martin
DELPHI 3 Professional a Oracle
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 8.10.1998 08:37:09
Ahoj,
videl jsem radu komponent na prime pripojeni pres volani sluzeb ORAx.DLL,
par jsem jich dokonce zkousel a docela prima. Nazev si ted bohuzel nemuzu
vybavit, ale na DSP se jich najde pomerne dost. Vsechno shareware okolo $30,
takze podstatne levnejsi nez Delphi C/S :-)
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Richard Valny [SMTP:richard.valny(zv)oku-st(tec)cz]
> Odesl�no: 7. ��jna 1998 17:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DELPHI 3 Professional a Oracle
>
> Ahoj p�nov� a d�my,
> d� se n�jak rozumneji (rychleji) spojit %Subj
> nez pomoc� aplikace -> BDE -> ODBC -> Oracle?
>
> P.S: Bohuzel verze Client-server je pro mne nedostupna
> aplikace vytvarim za penize zamestnavatele pro vnitrni potrebu
> a jaksi ve statni sprave silne ubyvaji korunky.
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============
> Problem s WinSight
[*] Ing. Ji�� Kub��ek - 8.10.1998 08:46:32
Zdravim vsechny
a chci se zeptat: Spustim-li v prostredi Win95 cmuchaci program WinSight z
Delphi1, tak mi po nekolika sekundach skonci s hlasenim, ze v programu
doslo k chybe (jina aplikace krome Winsight neni spustena).
WinSpector mi oznami vyjimku 13 a 14. Neni to tim, ze WinSight z D1 se
nesnasi s 32-bit. Win95?
Diky za prip.vysvetleni
Ing.Jiri Kubicek
Email: etatherm(zv)telecom(tec)cz
http://web.telecom(tec)cz/etatherm
Dotaz na CLASSNAME
[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 8.10.1998 09:35:14
AHOJET zase otravujem. Je to mozno trivialne.
Mam osetrenu udalost ONHINT v hlavnom okne vystup z tejto udalosti je text do StatusBAr na hlavnom okne.
Ale ak zavolam a zobrazim dalsie okno z hlavneho tak chcem aby tieto spravy smerovali do status bar v tom dalsiom okne.
Pokusam sa pouzit with v spominanej procedure ale neviem zistit ake je momentalene akytv TClass daneho okna. Pokusam sa TClassPerent ale on mi vracia vsade TForm to je sice pravda ale kazde okno ma svoju samostatne priradenie a to neviem.
Vdaka za radu Lubo TSC.DBLookupComboBox
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 8.10.1998 09:46:54
Vazeni Delphini!
Obracim se na Vas se svym zacatecnickym dotazem. Nejdrive nastin situace :
Pisu jednoduchou aplikaci, ktera slouzi k evidenci smluv. V teto aplikaci
pouzivam DBLookupComboBox s propojenim na databazi typu vyrobku. Seznam
musi byt volne editovatelny, proto ta databaze. (Jakysi ciselnik vyrobku).
Uzivatelum chci dovolit prohlizeni jiz porizenych dat. Proto pouzivam
DBNavigator pro snadne pouziti prikazu prechod na dalsi ci predchozi
zaznam. Protoze vsak soucasne s prechodem na dalsi zaznam potrebuji provest
dalsi akce, nastavil jsem u DBNavigatora hodnotu Visible na False a
dodefinoval vlastni tlacitka s akcemi napr. pro prechod na predchozi zaznam
:
procedure TForm2.Button2Click(Sender: TObject);
begin
DBNavigator.BtnClick(nbPrior);
end;
A co dal? Pouzivam DBLookupComboBox proto, abych mohl hodnotu ze seznamu
predat do databaze smluv pomoci udalosti OnCloseUp (s potvrzenim) a to
takto :
procedure TForm2.DBLookupComboBox1Click(Sender: TObject);
begin
if MessageDlg('Skute�n� chcete vybrat tento model?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Table1.Edit;
Table1.FieldValues['Zbozi'] := DBLookupComboBox1.Text;
Table1.Post;
end;
end;
Problem souvisi s prohlizenim. Pokud chci prejit na dalsi zaznam a chci
videt vse, chtel bych DBLookupComboBoxu predat pro zobrazeni hodnotu z
databaze tzn. udelat opacnou vec nez delam v procedure
TForm2.DBLookupComboBox1Click a to asi nejak takhle :
DBLookupComboBox1.Text := Table1.FieldValues['Zbozi'];
Jenomze to nejde, protoze mi ComboBox nahlasi ze tahle hodnota je pouze pro
cteni. Existuje tedy nejaka jina finta, ktera by dokazala predat ComboBoxu
hodnotu pro zobrazeni? V soucasne dobe to resim tak, ze mam dve pole se
stejnym obsahem pod sebou jednou je to EditDB pole a pod nim Je
DBLookupComboBox. Pokud provedu prechod na dalsi zaznam vidim aktualni
data, ovsem v ComboBoxu zustava stale stejna zvolena posledni hodnota. To
je sice skvele, ale ponekud "amaterske". Napada mne reseni, ze pri udalost�
OnClick na EditDB pole se objevi DBLookupComboBox a pri udalosti OnCloseUp
zase zmizi. Umim to rict, ale udelat je to slozitejsi. Pokud neexistuje
nejaka jednoducha finta predani textu pro zobrazeni do ComboBoxu, poradte
mi prosim s tou slozitejsi schovavaci. Proste bych nechtel mit na formulari
dve pole se stejnym obsahem.
Dekuji za Vasi shovivavost a rady a slibuju, ze kdyz budu neco vedet, tak
hned poradim jinemu.
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...
Graf jako bitmapa
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.10.1998 10:10:42
> chtel bych se zeptat, zda nekdo nahodou nema zkusenosti s ukladanim
> grafu ( konkretne se jedna o ActiveX "TVCFirstImpression" nebo "TCharFX" )
> do nejake bitmapy libovolneho formatu.
Proc nepouzivas TeeChart? Tam to jde jednoduse.
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 ===
==============================================================Page Scroller
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 8.10.1998 10:11:38
Hi,
mate prosim nekdo zkusenosti s pouzitim Page Scrolleru v Delphi 4 ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
Barevna hloubka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.10.1998 11:28:37
Ahoj,
nevite nekdo, jak donutit program v Delphi, aby maloval v
pozadovane barevne hloubce?
Priklad: chci prebarvit formular (nebo komponentu, to je fuk) na
barvu $EAEAEA, coz je takova skoro bila, v 256 barvach v jinych
programech to funguje. Ve formulari mi to vsak vyhodi bile pozadi s
sedymi puntiky.
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
Distribuovana aplikace
[*] ing.Da�a Ale� - 8.10.1998 11:30:52
HI
vratim se k Vasi debate a distribuovane aplikaci.
Potreboval bych poradit, co se m� presne udelat na PC, kde je instalovan
tenky klient.
Na serveru je nainstalovan DCOM95, a pri vyvolani klienta ze serveru je
vsechno OK.
Z dalsiho PC pak nahlasi chybu : EOleSysError ...... Trida neni
registrovana.
Diky za rady
Ales Dana
e-mail: adasoft(zv)svit.com
-----P�vodn� zpr�va-----
Od: Pavel_Fuciman.UNION(zv)union(tec)cz <Pavel_Fuciman.UNION(zv)union(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. ��jna 1998 9:33
P�edm�t: Re: Distribuovana aplikace
> Diky za radu. Pomoci DCOMCNFG.EXE se mi to podarilo rozchodit.
>Ale jeste k DCOMCNFG.EXE, v zalozce vychozi vlastnosti jsou nastavitelne
>dve vlastnosti portu COM.
>1. Vychozi uroven overeni - tu jsem musel nastavit na "neni"
>2. Vychozi uroven zosobneni - tu jsem musel nastavit na "Anonymni"
>a dost dobre jsem nepochopil co to vlastne znamena?
>> > Ahoj,
>> > Mam podobny problem jako kolega Mraz, zkousim vytvorit v Delphi4
>> > trivrstvou aplikaci podle prikladu dodavaneho s delphi. Vytvarim ji
>> taky
>> > pomoci komponenty DCOM. V lokalnim rezimu jede vsechno OK, ale kdyz
>> se
>> > chci naconnectovat na server z jineho PC dostanu hlasku "Pristup
>> > odmitnut".
>> > Pouzivam ceske NT4.0ws.
>> >
>> > Co musim jeste udelat a mit nastaveno v NT, abych to zprovoznil?
>> >
>> > Predem diky.
>> >
>> >
>>
>> Dost dlouho jsem se trapil s necim podobnym, a krome nastaveni DCOMu
>>
>> pomoci DCOMCNFG.EXE jsme prisli na jednu velkou zaludnost DCOMu. Nevim
>>
>> jestli je to obecne, ale u nas nebylo mozne se dostat na DCOM ktery
>> byl
>> zaregistrovan na sitovem disku. Po presunuti na lokalni disk a nove
>> zaregistovani (spusteni) vse chodilo tak jak jsme si predstavolali.
>> Jestli to pomuze, tak dej vedet ze to u nas nebyla jenom nahoda.
>Taky jsem musel mit DCOM zaregistrovany na lokalnim disku.
>>
>>
>> david.vodicka(zv)email(tec)cz
>
>
>
Vyroba DLL aplikace
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 08.10.1998 11:46:19
> Ahoj,
> To DLL vyvolavas z nejakeho prostredi, tj. z formulare na nejakou
> udalost a mas-li funkci obalenou, pak te nezajima co je uvnitr (pokud
> nepredavas nejake specificke parametry, ale i to lze obejit spravnou
> deklaraci).
No to je jasny, az na to, ze ja to volam treba z programu v C nebo asm
(nebo rundll32 jmeno,funkce). Konkretne tedy z programku napsanem v
Delphi ale pres API, takze je kratoucky.> Tvuj priklad
>
> begin
> application.initialize;
> tform1:=..create;
> ===== bud je hlavni(autocreate) tj createform() nebo je jen
> create(application) kdyz je pomocny
jo, tady jsem si akorat nepamatoval, co to tam ty Delphi vzdycky vecpou.
Neco takoveho tam bude.
> Funkce v DLL jsou do jiste miry autonomni a vlecou s sebou cast VCL. Pro
> predstavu, s VCL zavlecenou hlavnim programem, ktery si nejakou FORM-DLL
> vyvola nemaji nic spolecneho.
To je taky jasny. Proto posilam novy priklad, uplny.
-----Project1.DPR------
library Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
procedure Nic;export;
begin;end;
exports
Nic;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
-----Unit1.pas-----
....
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
....
-----Project2.dpr-----
program Project2;
uses
windows;
var p:procedure;
begin
p:=GetProcAddress(LoadLibrary('Project1.Dll'),'Nic');
p;
end.
----------
No a todle funguje, coz me trosku prekvapilo.
Prestane to fungovat, pokud tam je Rx komponenta na animaci z bitmapy
TAnimatedImage, ta se proste prestane hejbat. No a taky mam takovou
vetsi aplikaci a ta pro jistotu nejde ukoncit prikazem metodou close. To
s tim tedko ?
Sir
Odmocnina
[*] V�t�zslav Gazda������u��n�?��? - 8.10.1998 12:19:59
Jak zjistim odmocninu daneho cisla.
Diky Vita
ShowModal
[*] Miroslav Gurica <konbier(zv)psg.sk> - 08.10.1998 12:46:43
Ahoj,
Mam fomular, ktory sa otvori na zobrazenie priebehu nejakej udalosti
/ktoru mozem prerusit resp. zrusit stlacenim tlacitka/ a po jej ukonceni
sa sam zatvori .
Potrebujem formular zobrazit v nemodalnom stave (cez ShowModal) a v
tom je prave problem - neviem , kde mam rozbehehnut akcie ...
Naviazanie na OnCreate,OnShow,OnActivate nafunguje - urobi to sice
akciu, ale formular sa nezatvori /ani volanim close ani nastavenim
ModalResult na <> 0 / a caka na akciu od uzivatela ...
/ked to skusim spustit napr. cez tlacitko alebo generovanu udalost napr.
Timer1.OnTimer - tak to funguje ... /...cakam pomoc, vdaka !
Smako
Odmocnina
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 8.10.1998 12:51:59
Mas dve moznosti funkce sqrt (existuje-li v Delphi, ale snad ano) nebo
pouzij to, ze odmocnovani je vlastne umocnovani prevracenou hodnotou.
Tedy treti odmocnina z X je X na 1/3.
D.
----------
Od: V�t�zslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 8. ��jna 1998 13:19
Komu: DELPHI Distribution List
P�edm�t: Odmocnina
Jak zjistim odmocninu daneho cisla.
Diky Vita
Odmocnina
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 8.10.1998 12:53:13
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
>
sqrt(X) nebo sqr(X) ted si nejsem jisty. Jedno je mocnina a druhe
odmocnina. Ale myslim ze sqrt.
P.
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Odmocnina
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 8.10.1998 13:00:18
function Sqrt(X: Real): Real;
Jaro B.
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 8. ��jna 1998 12:20
> Komu: DELPHI Distribution List
> P�edm�t: Odmocnina
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
hledani v Query
[*] Marcello <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 8.10.1998 13:43:59
Panove, nemate nekdo napad jak elegantne lozit po datech co ziskam pomoci
Query, neco jako je pro TTable Gotokey. V helpu jsem nasel pouze funkci
Locate.
Pokud nekdo z vas vi jak hledat zaznam v Query, moc bych se radoval.
Diky
Marcello
Barevna hloubka
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 8.10.1998 13:45:39
Podle mne musis napred do windowsu ve 256 barvach namapovat api funkcemi
svou paletu. Kdysi jsem to ve svych aplikacich obhospodaroval, ale ted
uz jsem se na to vykaslal, protoze stejne uz maji skoro vsichni na
pocitaci truecolor nebo highcolor.
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: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 8. ��jna 1998 11:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Barevna hloubka
>
> Ahoj,
>
> nevite nekdo, jak donutit program v Delphi, aby maloval v
> pozadovane barevne hloubce?
>
> Priklad: chci prebarvit formular (nebo komponentu, to je fuk) na
> barvu $EAEAEA, coz je takova skoro bila, v 256 barvach v jinych
> programech to funguje. Ve formulari mi to vsak vyhodi bile pozadi s
> sedymi puntiky.
>
>
> 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
Odmocnina
[*] mbartone(zv)Synthesia(tec)cz - 8.10.1998 13:46:27
lze pouzit y := sqrt(x)
nebo pres logaritmus
y := EXP(LN(x)*a/b)
a = mocnina x
b = odmocnina
pro druhou odmocninu je to 1/2
pro treti odmocnimu z x na druhou je to 2/3
Milan
Odmocnina
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 8.10.1998 13:48:41
Tak ze cislo odmocnis. Ale ted vazne, pokud mas na mysli pascal tak
Sqrt(X: Extended): Extended.
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: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 8. ��jna 1998 12:20
> Komu: DELPHI Distribution List
> P�edm�t: Odmocnina
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
Odmocnina
[*] Lubo Fule <fule(zv)sct.sk> - 8.10.1998 13:57:02
sqrt(x)
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> V�t�zslav Gazda
> Sent: Thursday, October 08, 1998 1:20 PM
> To: DELPHI Distribution List
> Subject: Odmocnina
>
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
>Odmocnina
[*] Karel Chmel <kchmel(zv)csob(tec)cz> - 8.10.1998 14:03:50
Existuje funkce Sqrt
Karel
----------
> Odes�latel: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Odmocnina
> Datum: 8. ��jna 1998 12:19
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
Dotaz na CLASSNAME
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 8.10.1998 14:04:25
A proc to chces delat tak slozite. Tak proste udelej pri otevreni
druheho formulare
procedure TForm2.FormCreate(Sender: TObject);
begin
OldHint:=Application.OnHint;
Application.OnHint := NewHint;
end;
a pri zavreni to zase vratis zpet
procedure TForm2.FormDestroy(Sender: TObject);
begin
Application.OnHint := OldHint;
end;
kde samozrejme OldHint a NewHint jsou promenne typu TNotifyEvent a v
procedure NewHint zobrazuj do formulare 2.
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: SunSoft - Mr�z 1ubom�r [SMTP:sunsoft(zv)sunsoft.sk]
> Odesl�no: 8. ��jna 1998 8:35
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Dotaz na CLASSNAME
>
> AHOJET zase otravujem. Je to mozno trivialne.
>
> Mam osetrenu udalost ONHINT v hlavnom okne vystup z tejto udalosti je
> text do StatusBAr na hlavnom okne.
> Ale ak zavolam a zobrazim dalsie okno z hlavneho tak chcem aby tieto
> spravy smerovali do status bar v tom dalsiom okne.
> Pokusam sa pouzit with v spominanej procedure ale neviem zistit ake
> je momentalene akytv TClass daneho okna. Pokusam sa TClassPerent ale
> on mi vracia vsade TForm to je sice pravda ale kazde okno ma svoju
> samostatne priradenie a to neviem.
> Vdaka za radu Lubo TSC.Delphi 4 Demo
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 8.10.1998 14:08:35
Ahoj,
pokud jeste zitra nekdo pojedete na Invex, zkuste se u Inprise
poptat na demo CD k D4. Maji ho tam, ale delaji s nim tajemstvi.
Celkem nic tam neni, jen multimedialni ukazka moznosti.
Chteji za to vizitku.
Martin
Problem s WinSight
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 8.10.1998 14:22:08
Myslim ze je to tim. WinSight je program, ktery saha dost hluboko do
systemu a tak je podle mne jasne ze verze pro 16bitovy system nemuze
osahavat system 32bitovy.
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: Ing. Ji�� Kub��ek [SMTP:etatherm(zv)telecom(tec)cz]
> Odesl�no: 8. ��jna 1998 7:47
> Komu: Konference DELPHI
> P�edm�t: Problem s WinSight
>
> Zdravim vsechny
> a chci se zeptat: Spustim-li v prostredi Win95 cmuchaci program
> WinSight z
> Delphi1, tak mi po nekolika sekundach skonci s hlasenim, ze v programu
> doslo k chybe (jina aplikace krome Winsight neni spustena).
> WinSpector mi oznami vyjimku 13 a 14. Neni to tim, ze WinSight z D1 se
> nesnasi s 32-bit. Win95?
> Diky za prip.vysvetleni
>
> Ing.Jiri Kubicek
> Email: etatherm(zv)telecom(tec)cz
> http://web.telecom(tec)cz/etatherm
Jmeno objektu
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 8.10.1998 14:27:17
Ahoj,
nevite prosim nekdo, ktera funkce vraci jmeno objektu ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
On-topic
[*] David Cermak <Cermak(zv)98.gyarab(tec)cz> - 8.10.1998 15:03:24
Pro vsechny programatory:
Predem se omlouvam, ze takhle 'spamuju', ale shanim lidi na novou
programatorskou stranku. Sledujte http://www.prog(tec)cz
David Cermak
david(zv)prog(tec)cz
P.S.: Jeste jednou sorry, ale jestli mate zajem....ShowModal
[*] Zden�k Glaser <glaser(zv)ipl(tec)cz> - 08.10.1998 15:11:21
[P��loha v souboru: vcard.vcf]
Taky jsem to tu resil.
Dej si na formular Timer
procedure ****.FormActivate(Sender: TObject);
begin
if ...podminka... then AkceBut.Click; // => rovnou odklikni
end;
procedure ****.AkceButClick(Sender: TObject);
begin
if ...podminka... then
Timer1.Enabled := True;
end;
procedure ***.Timer1Timer(Sender: TObject);
begin
CloseBitBtn.Click; // => rovnou odklikni
Timer1.Enabled := False;
end;
JEDNODUCHE JAKO FACKA, ale nez jsme na to prisli, to trvalo !!!!!
(Napadlo to vlastne kolegu) Ale funguje to. Nevim, jestli to je to, co jsi
chtel.
Miroslav Gurica wrote:
> Ahoj,
> Mam fomular, ktory sa otvori na zobrazenie priebehu nejakej udalosti
> /ktoru mozem prerusit resp. zrusit stlacenim tlacitka/ a po jej ukonceni
> sa sam zatvori .
> Potrebujem formular zobrazit v nemodalnom stave (cez ShowModal) a v
> tom je prave problem - neviem , kde mam rozbehehnut akcie ...
> Naviazanie na OnCreate,OnShow,OnActivate nafunguje - urobi to sice
> akciu, ale formular sa nezatvori /ani volanim close ani nastavenim
> ModalResult na <> 0 / a caka na akciu od uzivatela ...
> /ked to skusim spustit napr. cez tlacitko alebo generovanu udalost napr.
> Timer1.OnTimer - tak to funguje ... /
> ...cakam pomoc, vdaka !
> Smako
====================================================
Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
__________________________________________________________
Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
tel.: ++420-48-53 96 563, ++420-48-611 24 01, ++420-48-611 24 02
fax.: ++420-48-611 24 03
http://www.ipl(tec)cz
__________________________________________________________
Privat: Borovy vrch 289, 460 14 Liberec 13, Czech Republic
tel.: ++420-48-51 246 15
====================================================
Ruseni zaznamu v tabulce
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 8.10.1998 15:40:47
Ahoj,
nak se mi nedari zrusit zaznam v tabulce.
Table1.Active := True;
Table1.Delete; tady dostavam tuhle hlasku:
Project ... raised exception class EDBEngineError with message 'Capability
not supported.'
Process ...
Nevite nekdo vo co go ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
Odmocnina
[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 8.10.1998 15:55:14
V Delphi existuje ale je to druha odmocnina.Pozri si help.
-----P�vodn� zpr�va-----
Od: Kustra
Odesl�no: 8. okt�ber 1998 15:52
Komu: Mraz
P�edm�t: FW: Re: Odmocnina
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz
Sent: 8. ��jna 1998 13:38
To: delphi-l(zv)fwd(tec)cz
Cc:
Subject: Re: Odmocnina
Existuje funkce Sqrt
Karel
----------
> Odes�latel: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Odmocnina
> Datum: 8. ��jna 1998 12:19
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
Jmeno objektu
[*] Karel Chmel <kchmel(zv)csob(tec)cz> - 8.10.1998 16:14:20
Kazdy objekt ma vlastnost Name.
Karel
----------
Odes�latel: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Jmeno objektu
Datum: 8. ��jna 1998 13:27
Ahoj,
nevite prosim nekdo, ktera funkce vraci jmeno objektu ?
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
----------
Odmocnina
[*] Rudolf Balada <rudolf.balada(zv)parlament(tec)cz> - 8.10.1998 16:19:37
Pokud chces libovolnou mocninu nebo odmocninu tak pouzij funkci Power z
unitu Math.
Rudolf Balada
kancler(zv)parlament(tec)cz
>
> Jak zjistim odmocninu daneho cisla.
>
> Diky Vita
>Dotaz na CLASSNAME
[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 8.10.1998 16:21:54
Uz som myslel ze som poslal neriesitelny dotaz.
To je pekne ale prave tomu sa chcem vyhnut aby som pri n formularoch musel definovat n NewHint procedur.
Lebo ak som to pochopil tak v novom formulari musim definovat novu proceduru.
Ale ja to chcem len na to aby sa odchytene Hint spravy zobrazovali v aktualnom formulari.
Sice toto co ste mi poslali tiez nie je zle v krajnom pripade ak sa to fakt neda inac.
Vdaka.
Lubo TSC.
-----P�vodn� zpr�va-----
Od: Kustra
Odesl�no: 8. okt�ber 1998 15:52
Komu: Mraz
P�edm�t: FW: RE: Dotaz na CLASSNAME
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz
Sent: 8. ��jna 1998 13:39
To: delphi-l(zv)fwd(tec)cz
Cc:
Subject: RE: Dotaz na CLASSNAME
A proc to chces delat tak slozite. Tak proste udelej pri otevreni
druheho formulare
procedure TForm2.FormCreate(Sender: TObject);
begin
OldHint:=Application.OnHint;
Application.OnHint := NewHint;
end;
a pri zavreni to zase vratis zpet
procedure TForm2.FormDestroy(Sender: TObject);
begin
Application.OnHint := OldHint;
end;
kde samozrejme OldHint a NewHint jsou promenne typu TNotifyEvent a v
procedure NewHint zobrazuj do formulare 2.
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: SunSoft - Mr�z 1ubom�r [SMTP:sunsoft(zv)sunsoft.sk]
> Odesl�no: 8. ��jna 1998 8:35
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Dotaz na CLASSNAME
>
> AHOJET zase otravujem. Je to mozno trivialne.
>
> Mam osetrenu udalost ONHINT v hlavnom okne vystup z tejto udalosti je
> text do StatusBAr na hlavnom okne.
> Ale ak zavolam a zobrazim dalsie okno z hlavneho tak chcem aby tieto
> spravy smerovali do status bar v tom dalsiom okne.
> Pokusam sa pouzit with v spominanej procedure ale neviem zistit ake
> je momentalene akytv TClass daneho okna. Pokusam sa TClassPerent ale
> on mi vracia vsade TForm to je sice pravda ale kazde okno ma svoju
> samostatne priradenie a to neviem.
> Vdaka za radu Lubo TSC.
DBLookUpListBox
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 8.10.1998 16:28:37
Hi,
da se nejak nastavit, aby v DbLookUpListBoxu stal kurzor na prvni vete a byl
prosviceny ?
DbLookUpListBox.SetFocus sice udela to, ze kurzor skoci na tento objekt, ale
to je vse. Kdyz dam pred tim:
Table1.First, tak stojim na prvni vete v tabulce. OK, ale porad ta prvni
veta neni podsvicena.
Vasek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
Tel.: 0603-511247
Ruseni zaznamu v tabulce
[*] Lubo Fule <fule(zv)sct.sk> - 8.10.1998 16:44:38
Znamena to asi tolko, ze server nie je schopny danu operaciu vykonat. Zial,
neda sa z toho usudit preco. Moznosti preco sa to neda je vela. Bolo by
dobre, keby si napisal na aky server pristupujes.
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lukes V�clav
> Sent: Thursday, October 08, 1998 3:41 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Ruseni zaznamu v tabulce
>
>
>
> Ahoj,
>
> nak se mi nedari zrusit zaznam v tabulce.
>
> Table1.Active := True;
>
> Table1.Delete; tady dostavam tuhle hlasku:
>
> Project ... raised exception class EDBEngineError with message 'Capability
> not supported.'
> Process ...
>
> Nevite nekdo vo co go ?
>
> Vasek
>
>
>
> V�clav Lukes
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
> Tel.: 0603-511247
>Barevna hloubka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.10.1998 17:33:40
Zbysek Hlinka wrote:
>
> Ahoj,
>
> nevite nekdo, jak donutit program v Delphi, aby maloval v
> pozadovane barevne hloubce?
>
> Priklad: chci prebarvit formular (nebo komponentu, to je fuk) na
> barvu $EAEAEA, coz je takova skoro bila, v 256 barvach v jinych
> programech to funguje. Ve formulari mi to vsak vyhodi bile pozadi s
> sedymi puntiky.
Ahoj,
mohl bys to delat nejak takhle:
Color := GetNearestColor(Canvas.Handle, $EAEAEA);
i kdyz dneska uz by snad nemel byt takovy problem mit alespon HighColor, a ten
kdo nema at se diva na puntiky, treba ho to trkne :-)
--
Petr Vones, amatersky programator
ShowModal
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.10.1998 17:48:37
Miroslav Gurica wrote:
>
> Ahoj,
>
> Mam fomular, ktory sa otvori na zobrazenie priebehu nejakej udalosti
> /ktoru mozem prerusit resp. zrusit stlacenim tlacitka/ a po jej ukonceni
> sa sam zatvori .
> Potrebujem formular zobrazit v nemodalnom stave (cez ShowModal) a v
> tom je prave problem - neviem , kde mam rozbehehnut akcie ...
> Naviazanie na OnCreate,OnShow,OnActivate nafunguje - urobi to sice
> akciu, ale formular sa nezatvori /ani volanim close ani nastavenim
> ModalResult na <> 0 / a caka na akciu od uzivatela ...
> /ked to skusim spustit napr. cez tlacitko alebo generovanu udalost napr.
> Timer1.OnTimer - tak to funguje ... /
Ahoj,
nevim jestli je to presne ono, ale treba ti to pomuze. Mohlo by to vypadat
nejak takhle:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const
UM_AKCE = WM_USER + $101;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormShow(Sender: TObject);
private
procedure Akce;
procedure UMAkce(var Msg: TMessage); message UM_AKCE;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
{ TForm2 }
procedure TForm2.Akce;
var
I: Integer;
begin
for I := 1 to 1000 do
begin
Label1.Caption := IntToStr(I);
Label1.Update;
end;
Close;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
PostMessage(Handle, UM_AKCE, 0, 0);
end;
procedure TForm2.UMAkce(var Msg: TMessage);
begin
Update;
Akce;
end;
end.
--
Petr Vones, amatersky programator
Animovany GIF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.10.1998 18:15:55
> Ing. J�n Kuch�r wrote:
>
> Caute
>
> Obraciam sa na Vas s prosbou, ak z Vas ma niekto komponentu pomocou ktorej by
> som mohol do D3 vkladat animovane Gify poslite mi ju.
Ahoj,
takova komponenta je napriklad v RxLib (http://rx.demo.ru)
--
Petr Vones, amatersky programator
DBLookupComboBox
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.10.1998 19:30:17
Svatopluk V�t wrote:
> Pisu jednoduchou aplikaci, ktera slouzi k evidenci smluv. V teto aplikaci
> pouzivam DBLookupComboBox s propojenim na databazi typu vyrobku. Seznam
> musi byt volne editovatelny, proto ta databaze. (Jakysi ciselnik vyrobku).
> Uzivatelum chci dovolit prohlizeni jiz porizenych dat. Proto pouzivam
> DBNavigator pro snadne pouziti prikazu prechod na dalsi ci predchozi
> zaznam. Protoze vsak soucasne s prechodem na dalsi zaznam potrebuji
> provest dalsi akce, nastavil jsem u DBNavigatora hodnotu Visible na False
> a dodefinoval vlastni tlacitka s akcemi napr. pro prechod na predchozi
> zaznam :
>
> procedure TForm2.Button2Click(Sender: TObject);
> begin
> DBNavigator.BtnClick(nbPrior);
> end;
To je zbytecne, u Navigatoru je udalost OnClick, kde zjistis, jake
tlacitko bylo stisknuto:
case Button of
nbPrior:...
end;
>
> A co dal? Pouzivam DBLookupComboBox proto, abych mohl hodnotu ze seznamu
> predat do databaze smluv pomoci udalosti OnCloseUp (s potvrzenim) a to
> takto :
>
> procedure TForm2.DBLookupComboBox1Click(Sender: TObject);
> begin
>
> if MessageDlg('Skute n chcete vybrat tento model?',
> mtConfirmation, [mbYes, mbNo], 0) = mrYes then
> begin
> Table1.Edit;
> Table1.FieldValues['Zbozi'] := DBLookupComboBox1.Text;
> Table1.Post;
> end;
>
> end;
>
> Problem souvisi s prohlizenim. Pokud chci prejit na dalsi zaznam a chci
> videt vse, chtel bych DBLookupComboBoxu predat pro zobrazeni hodnotu z
> databaze tzn. udelat opacnou vec nez delam v procedure
> TForm2.DBLookupComboBox1Click a to asi nejak takhle :
>
> DBLookupComboBox1.Text := Table1.FieldValues['Zbozi'];
No, to nejde. To musis naplnit do te tabulky, na kterou mas
ComboBox napichnuty.
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
Animovany GIF
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 9.10.1998 00:11:50
> Caute
>
> Obraciam sa na Vas s prosbou, ak z Vas ma niekto komponentu pomocou =
> ktorej by som mohol do D3 vkladat animovane Gify poslite mi ju.
Komponenta na praci s animovanyma GIFama je soucasti RX Library.
Vojta
PS : Kdyby si nepouzival ty HTML dodatky, tak by byly ty maily
mene nez polovickni a mohl bych odpovedet 7,5 krat rychleji.
Staci prece v nastaveni prepnout z HTML na Plain text.
---------------------------------------------------
V-Soft = http://www.v-soft(tec)cz/
Html editor TARANTULE = http://www.tarantule(tec)cz/
Download Island (shareware) = http://www.v-soft(tec)cz/di/ShowModal
[*] Miroslav Gurica <konbier(zv)psg.sk> - 09.10.1998 06:08:24
V jednoduchosti je sila , len z toho boli hlava ...
Vdaka
Smako
Zden�k Glaser wrote:
> Taky jsem to tu resil.
> Dej si na formular Timer
>
> procedure ****.FormActivate(Sender: TObject);
> begin
> if ...podminka... then AkceBut.Click; // => rovnou odklikni
> end;
>
> procedure ****.AkceButClick(Sender: TObject);
> begin
> if ...podminka... then
> Timer1.Enabled := True;
> end;
>
> procedure ***.Timer1Timer(Sender: TObject);
> begin
> CloseBitBtn.Click; // => rovnou odklikni
> Timer1.Enabled := False;
> end;
>
> JEDNODUCHE JAKO FACKA, ale nez jsme na to prisli, to trvalo !!!!!
> (Napadlo to vlastne kolegu) Ale funguje to. Nevim, jestli to je to, co jsi
> chtel.
>
> Miroslav Gurica wrote:
>
> > Ahoj,
> > Mam fomular, ktory sa otvori na zobrazenie priebehu nejakej udalosti
> > /ktoru mozem prerusit resp. zrusit stlacenim tlacitka/ a po jej ukonceni
> > sa sam zatvori .
> > Potrebujem formular zobrazit v nemodalnom stave (cez ShowModal) a v
> > tom je prave problem - neviem , kde mam rozbehehnut akcie ...
> > Naviazanie na OnCreate,OnShow,OnActivate nafunguje - urobi to sice
> > akciu, ale formular sa nezatvori /ani volanim close ani nastavenim
> > ModalResult na <> 0 / a caka na akciu od uzivatela ...
> > /ked to skusim spustit napr. cez tlacitko alebo generovanu udalost napr.
> > Timer1.OnTimer - tak to funguje ... /
> > ...cakam pomoc, vdaka !
> > Smako
>
> ====================================================
> Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
> __________________________________________________________
> Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
> tel.: ++420-48-53 96 563, ++420-48-611 24 01, ++420-48-611 24 02
> fax.: ++420-48-611 24 03
> http://www.ipl(tec)cz
> __________________________________________________________
> Privat: Borovy vrch 289, 460 14 Liberec 13, Czech Republic
> tel.: ++420-48-51 246 15
> ====================================================
>
> ------------------------------------------------------------------------
>
> Zden�k Glaser <Glaser(zv)ipl(tec)cz>
>
> Zden�k Glaser
> <Glaser(zv)ipl(tec)cz>
> Netscape Conference Address
> Netscape Conference DLS Server
> Additional Information:
> Last Name
> First NameZden�k Glaser
> Version 2.1
ShowModal
[*] Miroslav Gurica <konbier(zv)psg.sk> - 09.10.1998 06:11:51
Bingo !!! Tak som si to predstavoval . Dakujem.
Smako
Petr Vones wrote:
> Miroslav Gurica wrote:
> >
> > Ahoj,
> >
> > Mam fomular, ktory sa otvori na zobrazenie priebehu nejakej udalosti
> > /ktoru mozem prerusit resp. zrusit stlacenim tlacitka/ a po jej ukonceni
> > sa sam zatvori .
> > Potrebujem formular zobrazit v nemodalnom stave (cez ShowModal) a v
> > tom je prave problem - neviem , kde mam rozbehehnut akcie ...
> > Naviazanie na OnCreate,OnShow,OnActivate nafunguje - urobi to sice
> > akciu, ale formular sa nezatvori /ani volanim close ani nastavenim
> > ModalResult na <> 0 / a caka na akciu od uzivatela ...
> > /ked to skusim spustit napr. cez tlacitko alebo generovanu udalost napr.
> > Timer1.OnTimer - tak to funguje ... /
>
> Ahoj,
>
> nevim jestli je to presne ono, ale treba ti to pomuze. Mohlo by to vypadat
> nejak takhle:
>
> unit Unit2;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> const
> UM_AKCE = WM_USER + $101;
>
> type
> TForm2 = class(TForm)
> Button1: TButton;
> Label1: TLabel;
> procedure FormShow(Sender: TObject);
> private
> procedure Akce;
> procedure UMAkce(var Msg: TMessage); message UM_AKCE;
> public
> { Public declarations }
> end;
>
> var
> Form2: TForm2;
>
> implementation
>
> {$R *.DFM}
>
> { TForm2 }
>
> procedure TForm2.Akce;
> var
> I: Integer;
> begin
> for I := 1 to 1000 do
> begin
> Label1.Caption := IntToStr(I);
> Label1.Update;
> end;
> Close;
> end;
>
> procedure TForm2.FormShow(Sender: TObject);
> begin
> PostMessage(Handle, UM_AKCE, 0, 0);
> end;
>
> procedure TForm2.UMAkce(var Msg: TMessage);
> begin
> Update;
> Akce;
> end;
>
> end.
>
> --
> Petr Vones, amatersky programator
hledani v Query
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 9.10.1998 06:55:45
> Panove, nemate nekdo napad jak elegantne lozit po datech co ziskam pomoci
> Query, neco jako je pro TTable Gotokey. V helpu jsem nasel pouze funkci
> Locate.
> Pokud nekdo z vas vi jak hledat zaznam v Query, moc bych se radoval.
Nazdar,
samo Query je zrejme vytvorene hlavne pre vyhladavanie. Myslienka je asi
v tom, ze s dostatocne presnou podmienkou v prikaze select, Query
spristupni
taky pocet zaznamov a takeho obsahu, aby v nich uz nebolo potrebne dalej
zlozito hladat. Teda problem je skor, ako elegantne vytvorit dostatocne
presnu
podmienku.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Cestina v editoru D4 pod NT
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 9.10.1998 07:22:01
Kdysi davno probehla v konferenci debata na tema NT4 + D4 + cestina v editoru.
Mel jsem predtim nainstalovane NT4 a take mi to nechodilo.
Vcera jsem zkusebne nainstaloval NT 5 Server Beta 2, a tam ta cestina chodi !!!
hledani v Query
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.10.1998 08:00:39
Locate ti nestaci?
Pokud provedes Locate na primarni klic, pak je rychlost v podstate stejna
jako pri Gotokey.
Jestlize potrebujes hledat pro jine pole, pak najdi zaznam pomoci SQL dotazu
s pouzitim
klauzule WHERE a precti hodnotu klice nalezeneho zaznamu. Tuto hodnotu pote
vloz
jako parametr do Locate. Odmenou za trochu vice prace je rychlost a dale, ze
hned zaroven zjistis
pocet vyskytu hledaneho vyrazu a take muzes pouzit konstrukci s LIKE a
vsechny dalsi moznosti
WHERE vcetne vnorenych dotazu, coz samozrme oni Gotokey ani Locate neumi.
Jaro
-----P�vodn� zpr�va-----
Od: Marcello <dvo20um(zv)axpsu.fpf.slu(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. ��jna 1998 15:14
P�edm�t: hledani v Query
>
>Panove, nemate nekdo napad jak elegantne lozit po datech co ziskam pomoci
>Query, neco jako je pro TTable Gotokey. V helpu jsem nasel pouze funkci
>Locate.
>Pokud nekdo z vas vi jak hledat zaznam v Query, moc bych se radoval.
>
> Diky
> Marcello
Dotaz na CLASSNAME
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 08:35:46
Ahoj,
ja pokud potrebuju smerovat neco z vice oken do nejakeho objektu
v jednom okne, tak to resim pomoci zprav. V tvem pripade bych to
mohl resit napriklad takto:
Nekde si udelam globalni promennou s:string. V hlavnim okne si
nadefinuji metodu chytajici zpravu
procedure ChytHint(var Msg:TMessage); message WM_USER;
ve ktere osetrim pozadovanou akci, trebas volanim OnHint.
No a z ostatnich formularu volam
s:='blabla';
SendMessage(Application.MainForm.Handle,WM_USER,0,0);
Kdyby se ti nelibil globalni string, muzes predavat v SendMessage
treba odkaz na PChar, a ten zase dekodovat pri odchyceni zpravy.
SunSoft - Mr�z �ubom�r wrote:
> Uz som myslel ze som poslal neriesitelny dotaz.
>
> To je pekne ale prave tomu sa chcem vyhnut aby som pri n formularoch musel
> definovat n NewHint procedur. Lebo ak som to pochopil tak v novom
> formulari musim definovat novu proceduru. Ale ja to chcem len na to aby
> sa odchytene Hint spravy zobrazovali v aktualnom formulari. Sice toto co
> ste mi poslali tiez nie je zle v krajnom pripade ak sa to fakt neda inac.
> Vdaka.
>
> Lubo TSC.
>
>
> -----P�vodn� zpr�va-----
> Od: Kustra
> Odesl�no: 8. okt�ber 1998 15:52
> Komu: Mraz
> P�edm�t: FW: RE: Dotaz na CLASSNAME
>
>
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz
> Sent: 8. ��jna 1998 13:39
> To: delphi-l(zv)fwd(tec)cz
> Cc:
> Subject: RE: Dotaz na CLASSNAME
>
>
> A proc to chces delat tak slozite. Tak proste udelej pri otevreni
> druheho formulare
>
> procedure TForm2.FormCreate(Sender: TObject);
> begin
> OldHint:=Application.OnHint;
> Application.OnHint := NewHint;
> end;
>
> a pri zavreni to zase vratis zpet
>
> procedure TForm2.FormDestroy(Sender: TObject);
> begin
> Application.OnHint := OldHint;
> end;
>
> kde samozrejme OldHint a NewHint jsou promenne typu TNotifyEvent a v
> procedure NewHint zobrazuj do formulare 2.
>
>
>
> 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: SunSoft - Mr�z 1ubom�r [SMTP:sunsoft(zv)sunsoft.sk]
> > Odesl�no: 8. ��jna 1998 8:35
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: Dotaz na CLASSNAME
> >
> > AHOJET zase otravujem. Je to mozno trivialne.
> >
> > Mam osetrenu udalost ONHINT v hlavnom okne vystup z tejto udalosti je
> > text do StatusBAr na hlavnom okne. Ale ak zavolam a zobrazim dalsie okno
> > z hlavneho tak chcem aby tieto spravy smerovali do status bar v tom
> > dalsiom okne. Pokusam sa pouzit with v spominanej procedure ale neviem
> > zistit ake je momentalene akytv TClass daneho okna. Pokusam sa
> > TClassPerent ale on mi vracia vsade TForm to je sice pravda ale kazde
> > okno ma svoju samostatne priradenie a to neviem.
> > Vdaka za radu Lubo TSC.
>
>
>
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
Barevna hloubka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 08:35:46
Petr Vones wrote:
> > nevite nekdo, jak donutit program v Delphi, aby maloval v
> > pozadovane barevne hloubce?
> >
> mohl bys to delat nejak takhle:
>
> Color := GetNearestColor(Canvas.Handle, $EAEAEA);
Jo, diky, ale to barvu zaokrouhli na nejblizsi solid.
> i kdyz dneska uz by snad nemel byt takovy problem mit alespon HighColor, a
> ten kdo nema at se diva na puntiky, treba ho to trkne :-)
:-) To mam ja, a vetsi barevna hloubka mi lehce brzdi zobrazovani.
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
Ruseni zaznamu v tabulce
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.10.1998 09:12:00
Hi,
a jaky typ tabulky to je? Paradox, Dbase, nejaky SQL server ????? Napis.
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: Lukes V�clav [SMTP:Vaclav.Lukes(zv)pvt(tec)cz]
> Odesl�no: 08. ��jna 1998 15:41
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Ruseni zaznamu v tabulce
>
>
>
> Ahoj,
>
> nak se mi nedari zrusit zaznam v tabulce.
>
> Table1.Active := True;
>
> Table1.Delete; tady dostavam tuhle hlasku:
>
> Project ... raised exception class EDBEngineError with message
> 'Capability
> not supported.'
> Process ...
>
> Nevite nekdo vo co go ?
>
> Vasek
>
>
>
>
> V�clav Lukes
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
> Tel.: 0603-511247
Predani TStringList jako parametru
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 9.10.1998 09:16:01
Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
TStringList);
a pak ji volam HlavniForm.ReturnCodes(data,Seznam) pricemz data je
String a Seznam je TStringList a compilator ohlasi hlasku :
Incopatible types TStringList and procedure,untyped pointer or untyped
parameter.
Diky za kazdou radu.
Marian.Morzol(zv)ostrava.aksignal(tec)cz
Predani TStringList jako parametru
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 9.10.1998 09:46:10
Ahoj
ja predavam TStringlist jako parametr takto:
procedure Moje (var T:TStringList)
Jaro B.> -----P�vodn� zpr�va-----
> Od: Mor�ol Marian [SMTP:Marian.Morzol(zv)ostrava.aksignal(tec)cz]
> Odesl�no: 9. ��jna 1998 8:16
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Predani TStringList jako parametru
>
> Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
> proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
> TStringList);
> a pak ji volam HlavniForm.ReturnCodes(data,Seznam) pricemz data je
> String a Seznam je TStringList a compilator ohlasi hlasku :
> Incopatible types TStringList and procedure,untyped pointer or untyped
> parameter.
> Diky za kazdou radu.
> Marian.Morzol(zv)ostrava.aksignal(tec)cz
Marging menus
[*] V�t�zslav Gazda������u��n�?��? - 9.10.1998 10:00:12
Mam MDI aplikaci a potrebuji aktualizovat menu podle aktivniho child okna.
Vim, ze Delphi to umi automaticky propojit pomoci GroupIndex. Povedlo se mi
vsak jen nahradit, nebo pridat nove polozky do prvni urovne tj. pouze
polozky v hornim radku menu. Jde to nejak udelat i pro rozbalovane polozky ?
Napriklad:
Menu pro MDI Form bez child okna ma strukturu:
Soubor
Otev��t
---------
Konec
Pokud otevru child okno tak bych chtel pridat polozku Zavrit za polozku
Otevrit:
Soubor
Otev��t
Zav��t
---------
Konec
Diky Vita
Barevna hloubka
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.10.1998 10:03:07
> nevite nekdo, jak donutit program v Delphi, aby maloval v
> pozadovane barevne hloubce?
Jestli mas na mysli ten stav, kdy mas ve Win95 nastaveno 256 barev a kdyz
kreslis pixel po pixelu stejne vidis jen 16, pak je treba nadeklarovat si
pro okno
vlastni paletu barev. Pak uz jen rict systemu, aby to vzal pri prekreslovani
v uvahu
a je to.
Martin
RX Lib - license
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 9.10.1998 10:07:19
Dobry den,
stahnul jsem si RX Library, ale nejsem zdatny anglictinar, takze nevim
jake jsou podminky pro pouziti techto knihoven v mych aplikacich.
Poradte prosim.
Petr Riedel
petr.riedel(zv)ipbpojistovna(tec)cz
IPB Pojistovna, a.s.
pobocka Ostrava
30. dubna 3b
702 00 Ostrava 2
tel.: 069 / 611 22 78 - 81
fax: 069 / 612 29 69
Predani TStringList jako parametru
[*] Lubo Fule <fule(zv)sct.sk> - 9.10.1998 10:12:39
Problem bude asi v nazve parametru. Slovo Result je totiz vyhradene pre
navratovu hodnotu funkcie, takze skus pomenovat parameter nejako inac...
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mor�ol Marian
> Sent: Friday, October 09, 1998 9:16 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Predani TStringList jako parametru
>
>
> Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
> proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
> TStringList);
> a pak ji volam HlavniForm.ReturnCodes(data,Seznam) pricemz data je
> String a Seznam je TStringList a compilator ohlasi hlasku :
> Incopatible types TStringList and procedure,untyped pointer or untyped
> parameter.
> Diky za kazdou radu.
> Marian.Morzol(zv)ostrava.aksignal(tec)cz
>Predani TStringList jako parametru
[*] V�t�zslav Gazda������u��n�?��? - 9.10.1998 10:55:34
Ten parametr Result by se mel jmenovat nejak jinak, protoze Result je
rezervovany nazev v Delphi pro vracenou hodnotu funkce. Mozna, ze to je tim.
Vita
GetLastError
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 09.10.1998 12:50:47
Cau Delfini!
Mam hodnotu, kterou vratil GetLastError. Potrebuju zjistit, jaky je k ty hodnote
psanej komentar. Jednou tu p. Vones radil neco s Browserem, ale tam jsem
to nenasel.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Predani TStringList jako parametru
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 09.10.1998 12:53:05
Dne Fri, 9 Oct 1998 09:16:01 +0200 Mor�ol Marian napsal:
> Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
> proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
> TStringList);
nikdy jsem nepochopil, proc se pouzvaji vsude funkce. Ja pouzivam
napr. funcion Permutace(Vstup:String):TStringList a funguje to vzdycky
dobre. Jaky jsou vyhody pouzit to jako
procedure Permutace(Vstup:Strring; var Vystup:TStringList)?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Papir v tiskarne
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 9.10.1998 12:58:59
Nevite nekdo jestli a jak jde otestovat jeste pred tiskem jestli je v
tiskarne papir.
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
IB a sdileni
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.10.1998 13:45:24
Hi All,
resim ted prechod IS z PX tabulek na IB. Potrebuji nejak vyresit
nasledujici vec:
Nekdo vytvori doklad, ale tento doklad je moze doplnovat o ruzne udaje
na vice pracovistich v dlouhem casovem intervalu (3-5 dni
doplnuje se kvalita zbozi na zaklade rozboru laborky....
Jak zajistit, aby tento doklad mohl upravovat vzdy jen jeden clovek? V
PX to bylo jasne. Zamknu a je to, ale co udelat s IB????
Diky za dobre rady a navrhy.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
GetLastError
[*] Richard Cvach <cvach(zv)softhome(tec)net> - 9.10.1998 14:43:59
-----Original Message-----
From: Kolar Lubor <LuborK(zv)tnet(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: p�tek, 9. ��jna 1998 13:59
Subject: GetLastError
>Cau Delfini!
>Mam hodnotu, kterou vratil GetLastError. Potrebuju zjistit, jaky je k ty hodnote
>psanej komentar. Jednou tu p. Vones radil neco s Browserem, ale tam jsem
>to nenasel.
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
Presne tohle dela v unitu SysUtils funkce
function SysErrorMessage(ErrorCode: Integer): string;
--------------
Richard Cvach, cvach(zv)softhome.net
Computer Crypt, poc�tacov� klub v atomov�m krytu
http://computer.crypt.hide(tec)cz , mailto:computer.crypt(zv)hide(tec)cz
mala ikonka
[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 9.10.1998 15:20:57
Zdarte vseci!
Nevite nekdo, jak udelat to, ze se pri spusteni aplikace vytvori
takova ta mala ikonka "u hodin"?
Diky za cokoliv, Ondra.IB a sdileni
[*] Zden�k Glaser <glaser(zv)ipl(tec)cz> - 09.10.1998 15:48:02
Mel jsem s tim take problemy.
Nedavno konferenci probehlo, ze to je jednoduche. Jenze Edit sam o sobe
nic neresi.
Optimisticka strategie asi neni pro opravdu sitove programy?
Pokud pracujes s Table, to jeste jde:
*********
procedure TForm1.butTabPostClick(Sender: TObject);
begin
try
if Table1.Modified then
Table1.Post;
except
Table1.Refresh;
end;
end;
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
Action := daAbort; // chci si dat svou hlasku
ShowMessage('N�kdo ti p�epsal data, tve upravy ignoruji');
Table1.CancelUpdates; // tady to vyskoci jako kdyby byl Exit
// sem uz se to nedostane, i tak udela Refresh
// Table1.Refresh;
end;
*********
Ale pokud se jedna o CashedUpdated Query, jsem v koncich. Tam jsem to umel
vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v pripade, ze
s danou vetou pracuje, dam tam jeste jeden specialni znak navic - t.j. pro
ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale samotnemu se
mi to nelibi. Kolega to resil tak, ze mel spec.Table, do ktereho jako do
zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo elegantni.
Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl vdecen
za lepsi reseni. Kdyz tak se ozvi primo na muj Email.
Ahoj.
Martin Fron�k wrote:
> Hi All,
>
> resim ted prechod IS z PX tabulek na IB. Potrebuji nejak vyresit
> nasledujici vec:
> Nekdo vytvori doklad, ale tento doklad je moze doplnovat o ruzne udaje
> na vice pracovistich v dlouhem casovem intervalu (3-5 dni
> doplnuje se kvalita zbozi na zaklade rozboru laborky....
> Jak zajistit, aby tento doklad mohl upravovat vzdy jen jeden clovek? V
> PX to bylo jasne. Zamknu a je to, ale co udelat s IB????
> Diky za dobre rady a navrhy.
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
--
====================================================
Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
__________________________________________________________
Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
tel.: ++420-48-53 96 563, ++420-48-611 24 01, ++420-48-611 24 02
fax.: ++420-48-611 24 03
http://www.ipl(tec)cz
__________________________________________________________
Privat: Borovy vrch 289, 460 14 Liberec 13, Czech Republic
tel.: ++420-48-51 246 15
====================================================
Merging menus
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.10.1998 16:13:08
V�t�zslav Gazda wrote:
>
> Mam MDI aplikaci a potrebuji aktualizovat menu podle aktivniho child okna.
> Vim, ze Delphi to umi automaticky propojit pomoci GroupIndex. Povedlo se mi
> vsak jen nahradit, nebo pridat nove polozky do prvni urovne tj. pouze
> polozky v hornim radku menu. Jde to nejak udelat i pro rozbalovane polozky ?
> Napriklad:
>
> Menu pro MDI Form bez child okna ma strukturu:
>
> Soubor
> Otev��t
> ---------
> Konec
>
> Pokud otevru child okno tak bych chtel pridat polozku Zavrit za polozku
> Otevrit:
>
> Soubor
> Otev��t
> Zav��t
> ---------
> Konec
>
> Diky Vita
Ahoj,
to se da udelat tak ze si vytvoris menu v MDI okne i v MDI Childu, do kazdeho
si das jine polozky do Soubor a pak jim priradis stejny GroupIndex.
--
Petr Vones, amatersky programator
Barevna hloubka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.10.1998 16:16:08
Zbysek Hlinka wrote:
> >
> > Color := GetNearestColor(Canvas.Handle, $EAEAEA);
> Jo, diky, ale to barvu zaokrouhli na nejblizsi solid.
No .... a to ti nestaci ?
> > ten kdo nema at se diva na puntiky, treba ho to trkne :-)
>
> :-) To mam ja, a vetsi barevna hloubka mi lehce brzdi zobrazovani.
To mas asi nejakou ISA kartu z bazaru :-) Ja mam tu nejlevnejsi S3Trio64V2,
i s rozsirenim na 2M to vyjde pod 1,000 Kc a pro beznou praci to uplne staci
(800x600 HighColor).
--
Petr Vones, amatersky programator
mala ikonka
[*] Lubo Fule <fule(zv)sct.sk> - 9.10.1998 16:24:08
Je na to komponenta v RX Library
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ondrej Valentik
> Sent: Friday, October 09, 1998 3:21 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: mala ikonka
>
>
>
> Zdarte vseci!
>
> Nevite nekdo, jak udelat to, ze se pri spusteni aplikace vytvori
> takova ta mala ikonka "u hodin"?
>
> Diky za cokoliv, Ondra.
> Predani TStringList jako parametru
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 9.10.1998 17:05:36
nen� nahodou druh� parameter uveden v definici procedury jako var Result ... ?
-----P�vodn� zpr�va-----
Od: Mor�ol Marian [SMTP:Marian.Morzol(zv)ostrava.aksignal(tec)cz]
Odesl�no: 9. ��jna 1998 10:35
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Predani TStringList jako parametru
Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
TStringList);
a pak ji volam HlavniForm.ReturnCodes(data,Seznam) pricemz data je
String a Seznam je TStringList a compilator ohlasi hlasku :
Incopatible types TStringList and procedure,untyped pointer or untyped
parameter.
Diky za kazdou radu.
Marian.Morzol(zv)ostrava.aksignal(tec)cz
Predani TStringList jako parametru
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.10.1998 17:52:51
> > Nevite jak lze predat TStringList jako parametr. Mam zadefinovanou
> > proceduru procedure THlavniForm.ReturnCodes(Text : String; Result :
> > TStringList);
> nikdy jsem nepochopil, proc se pouzvaji vsude funkce. Ja pouzivam
> napr. funcion Permutace(Vstup:String):TStringList a funguje to vzdycky
> dobre. Jaky jsou vyhody pouzit to jako
> procedure Permutace(Vstup:Strring; var Vystup:TStringList)?
Za prve si pletes pojmy - funkce znamena tvoje deklarace pomoci
function. Druhe je procedura, deklaruje se pomoci procedure.
Samozrejme si nemyslim, ze to nevis, spise ses upsal. Ale ptas
se, v cem je vyhoda. To uz jasne vidis na zpusobu predavani
vysledku - hodnotou vs. odkazem. Nekdy muze byt vyhodnejsi
funkce, protoze to muzes treba predat jako parametr primo
do dalsi funkce ci procedury. Ale mnohdy potrebujes napriklad
vratit nekolik vysledku a tam uz bys musel pouzit funkci
a jako deklaraci treba record. Nebo treba u pripadu, kdy
potrebujes upravit promennou, kterou predavas jako parametr,
jako je tento pripad: Dec(Cislo) ... neni to lepsi pouziti
nez Cislo := Prev(Cislo) nebo Cislo := Cislo - 1?
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 ===
==============================================================IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.10.1998 21:24:33
>Pokud pracujes s Table, to jeste jde:
-------
Pristupovat k IB nebo k jinem serverum pomoci TTable
neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
-------
>Ale pokud se jedna o CashedUpdated Query, jsem v koncich. Tam jsem to umel
>vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v pripade, ze
>s danou vetou pracuje, dam tam jeste jeden specialni znak navic - t.j. pro
>ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale samotnemu se
>mi to nelibi. Kolega to resil tak, ze mel spec.Table, do ktereho jako do
>zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo elegantni.
>Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl vdecen
>za lepsi reseni
-------
1. Princip zamku na server neni jen problem IB. Vetsina serveru to resi
obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i stovky
klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho by
doslo k blokaci transakci. Servery jsou na transakcich postaveny. Proste to
tam funguje trochu jinak a program vytvoreny na serveru zpravdla potrebuje
trochu jinou logiku prace.
2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale jevit
jako blokovan jinym uzivatelem
Jaro
Barevna hloubka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.10.1998 08:06:54
Petr Vones wrote:
> > > Color := GetNearestColor(Canvas.Handle, $EAEAEA);
>
> > Jo, diky, ale to barvu zaokrouhli na nejblizsi solid.
>
> No .... a to ti nestaci ?
No, predstavoval jsem si to puvodne trochu jinak...
>
> > :-) To mam ja, a vetsi barevna hloubka mi lehce brzdi zobrazovani.
>
> To mas asi nejakou ISA kartu z bazaru :-) Ja mam tu nejlevnejsi
> S3Trio64V2, i s rozsirenim na 2M to vyjde pod 1,000 Kc a pro beznou praci
> to uplne staci (800x600 HighColor).
:-)) Mam Compaq QVision, ale uz notne zaprasenou. HighColor
800x600 zvlada, ale treba prepisovani obrazovky v editoru je uz
viditelne, coz me otravuje. Na novou kartu kaslu, potrebuju
upgradovat uz cely pocitac.
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
CHM soubory
[*] Patrik Sl�de�ek�����%g��jgr� - 10.10.1998 17:03:30
Omlouvam se za otazku, ktera je v teto konferenci mozna
ponekud mimo misu: nevite nahodou nekdo, jak se vytvari
CHM soubory (compiled HTML files), tj. napoveda Win98
ala HTML.
Patrik Sladecek
pasla(zv)iname.com
Predani TStringList jako parametru
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 10.10.1998 19:11:18
Diky za vysvetelni.
> Za prve si pletes pojmy - funkce znamena tvoje deklarace pomoci
> function. Druhe je procedura, deklaruje se pomoci procedure.
> Samozrejme si nemyslim, ze to nevis, spise ses upsal. Ale ptas
No, ted ses zase nejakej zmatenej ty. Nejdriv napises, ze si pletu
pojmy, o tri radky nize, ze jsem se upsal (samozrejme jsem se upsal...
stane se) :-)))
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Start menu llike - menu ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 21:20:35
M-PRO s.r.o. wrote:
>
> Ahojte vsici :o)
>
> Mel bych malinkej dotaz.... Uz se to tu nekdy neco okolo toho probralo, ale
> nepodarilo se mi to najit... Setkal se uz nekdo s problemem TrackPopupMenuEx
> (to je API, muze se primo volat prez menu objekt, ale je to to samy...) ?
> Mam mooc polozek a potreboval bych zobrazit bud VIC slooupcu pop menu (viz
> start menu) nebo nahore a dole soupaci butonky (jako explorer). Snazil sem
> se zjistit co maj tyhle 2 aplikace za zobrazenou tridy, ale oni jakmile
> ztrati focus, ho schovaj.... Vi nekdo ????
Ahoj,
podivej se na vlastnost TMenuItem.Break, to by melo byt ono.
--
Petr Vones, amatersky programator
Aplikace bez komponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 21:41:10
Zbysek Hlinka wrote:
> > program Project1;
> >
> > uses
> > Windows;
> >
> > begin
> > MessageBeep(0);
> > Sleep(10000);
> > MessageBeep(0);
> > end.
> >
> > Delphi: EXE: DLL:
> > D2 7,168 USER32, KERNEL32, GDI32, ADVAPI32
> > D4 15,872 USER32, KERNEL32, GDI32, ADVAPI32, OLE32, OLEAUT32,
> > RPCRT4, MSVCRT20
>
> No, cvicne jsem napsal vytvareni okna bez VCL, a v D3 mi to dalo
> asi 15 kilo, v D4 asi o kilo vic. Takze zda se, ze skok nastal uz u
> D3. Ale kdyz se podivas na DLL, je to pochopitelne - pribylo
> pouzivani COM a podobnych sluzeb Woken.
No dobre, ale to by tam snad nemuselo byt v tak jednoduche aplikaci jako jsem
zkousel. Na spusteni tri prikazu z Win32API snad nepotrebuju COM a OLE, zda se
mi ze to maji malinko nedomyslene.
--
Petr Vones, amatersky programator
Instalace aplikaci s ruznymi verzemi BDE (Was: <no
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 21:42:04
MotlicekP(zv)tescosw(tec)cz wrote:
>
> Udelal jsem dva programy s BDE, verze BDE 3.0 , ale s verz� 4.51 to je
> stejn�.
>
> Instala�n� programy jsou udelan� v Install Shieldu Express (aji pro
> Delphi 2.0, aji pro Delphi 3.0). To znamen�, ze BDE *.dll se
> naintalovaly do adresare s pogramem.
>
> Spustim jeden program, jde to. Spustim druhy a je tu hlaska: s k�dem
> $210C. Co� je 8460 : $210C : Trying to load multiple IDAPIxx.DLL.
Ahoj,
na jednom pocitaci musis mit vzdy jen jedno BDE, to je spolecne pro vsechny
aplikace, novejsi verze je vzdy dolu kompatibilni se starsi, take pokud mas
aplikaci ktera bezela s BDE 3.0 tak nasledna instalace jine aplikace s BDE 5.0
sice prepise BDE, ale budou fungovat vsechny aplikace. Pokud instalujes BDE tak
by jsi jej nemel davat k aplikaci, ale do sdileneho adresare, tak jak ti to
nabizi IS. Je tam sice i moznost castecne instalace BDE, ale to me prijde
sileny protoze pak v tom patrne vznikne dost velky zmatek. Nebo je to nejak
vyresene, ma s tim nekdo zkusenosti ?
--
Petr Vones, amatersky programator
komponenta QRDBRichText
[*] Standa Cerny <s.cerny(zv)mod(tec)cz> - 10.10.1998 22:42:18
Ahoj,
pred casem jsem se ptal na chybu v QReportu pri tisku a bylo mi doporuceno
stahnout si novou verzi. Udelal jsem to a misto starych chyb je tu nova.
Konkretne v komponente QRDBRichText mi netiskne posledni radek.
Nevite nekdo jak to oblbnout?
Diky Standa C.
mala ikonka
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 10.10.1998 22:56:58
Hi,
V�tezslav Gazda to ma na svych strankach > http://www.tda(tec)cz/vita/ .
Mam to stazeny (13k), jestli chces tak Ti to poslu mimo konferenci.
S pozdravem
==============================
> Pavel Malinsky; spiderland(zv)usa.net <
==============================
-----P�vodn� zpr�va-----
Od: Ondrej Valentik <valeon(zv)svatava.guh(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. ��jna 1998 7:36
P�edm�t: mala ikonka
>
>Zdarte vseci!
>
>Nevite nekdo, jak udelat to, ze se pri spusteni aplikace vytvori
>takova ta mala ikonka "u hodin"?
>
> Diky za cokoliv, Ondra.
>
Predani TStringList jako parametru
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.10.1998 10:12:33
> Diky za vysvetelni.
> > Za prve si pletes pojmy - funkce znamena tvoje deklarace pomoci
> > function. Druhe je procedura, deklaruje se pomoci procedure.
> > Samozrejme si nemyslim, ze to nevis, spise ses upsal. Ale ptas
> No, ted ses zase nejakej zmatenej ty. Nejdriv napises, ze si pletu
> pojmy, o tri radky nize, ze jsem se upsal (samozrejme jsem se upsal...
> stane se) :-)))
No vzdyt ti nenadavam a zmatenej nejsem - ty dve vety se nevylucuji,
pletes si pojmy = upsal ses. Nebo ne?
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 ===
==============================================================Aplikace bez komponent
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.10.1998 11:25:43
Petr Vones wrote:
> > No, cvicne jsem napsal vytvareni okna bez VCL, a v D3 mi to dalo
> > asi 15 kilo, v D4 asi o kilo vic. Takze zda se, ze skok nastal uz u D3.
> > Ale kdyz se podivas na DLL, je to pochopitelne - pribylo pouzivani COM a
> > podobnych sluzeb Woken.
>
> No dobre, ale to by tam snad nemuselo byt v tak jednoduche aplikaci jako
> jsem zkousel. Na spusteni tri prikazu z Win32API snad nepotrebuju COM a
> OLE, zda se mi ze to maji malinko nedomyslene.
>
Ty asi ne, ale knihovny pri svem zavadeni ano. Jednotka System je
zavadena automaticky, a v ni jsou ulozeny definice IUnknown a
dalsi, ktere se primo tykaji COM.
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
IB a sdileni
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 15:05:46
Hi,
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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 09. ��jna 1998 21:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: IB a sdileni
>
> >Pokud pracujes s Table, to jeste jde:
> -------
>
> Pristupovat k IB nebo k jinem serverum pomoci TTable
> neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
>
[Martin Fron�k] O vhodnosti pristupu k serveru pres TTable ci
TQuery je myslim zbytecne se bavit, zalezi na situaci.
> -------
> >Ale pokud se jedna o CashedUpdated Query, jsem v koncich. Tam jsem to
> umel
> >vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v
> pripade, ze
> >s danou vetou pracuje, dam tam jeste jeden specialni znak navic -
> t.j. pro
> >ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale
> samotnemu se
> >mi to nelibi. Kolega to resil tak, ze mel spec.Table, do ktereho jako
> do
> >zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo
> elegantni.
> >Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl
> vdecen
> >za lepsi reseni
> -------
> 1. Princip zamku na server neni jen problem IB. Vetsina serveru to
> resi
> obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i
> stovky
> klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho
> by
> doslo k blokaci transakci. Servery jsou na transakcich postaveny.
> Proste to
> tam funguje trochu jinak a program vytvoreny na serveru zpravdla
> potrebuje
> trochu jinou logiku prace.
>
[Martin Fron�k] Nemam nic proti jine logice, jenze to by
znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
nemuzu dovolit.
> 2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
> zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale
> jevit
> jako blokovan jinym uzivatelem
> Jaro
>
[Martin Fron�k] Princip zamku - to je ten problem, nekdy by
vyvojar potreboval tvrdy zamek, je skoda, ze se na to pri vyvoji serveru
(konkretne IB) nejak pozapomnelo....
Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
cehokoliv do databaze je nevhodny prave z duvodu nemoznosti overeni, zda
konkretni drzitel zamku je jeste "nazivu" - v tomto plne souhlasim Jaro.
Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny na
transakcich (bez urazky - to neni zadna novinka). Spis je treba nalezt
reseni, protoze zde vznika tato potreba. Mam jeden navrh, neni asi
elegantni, ale je mozny. Pouziti principu sitoveho semaforu, ktery jsem
zde pred casem prezentoval. V tomto pripade by bylo nutne ho upravit, a
to tak, aby archivoval pro kazdou danou tabulku uzamcene vety a kym jsou
uzamceny, a v pripade pozadavku pristupu na uzamceny objekt overil
platnost zamku u klienta. Prave se chystam upravovat serverovou cast
semaforu, mam vyzkouseno, ze i pri hledani v 1 000 000 !!! uzamcenych
vet je casova prodleva zanedbatelna(=nema cenu ji merit, jsou to takrka
nemeritelne hodnoty), takze jen zbyva to trochu zprehlednit. Pro ostatni
zajemce: Pouzivam na to "set" z Rogue wave Standart Template Library -
(to je z C++). Tohle udelatko je silne objektove a vykona skoro vsechno
za vas. Udrzuje serazeny seznam zadanych hodnot(vylucuje duplicity) a ma
to skvele reseny iterator find (na nem to stoji). O zbytek (komunikace)
se stara komponenta wsock120 (porad na ni nedam dopustit - i ve srovnani
s F.Piette). To jen pro informaci pro ty, kdoz by se o neco podobneho
taktez chteli pokusit. Skoda jen, ze se timhle musi zabyvat vyvojar,
mohlo to byt uz hotove v IB :-(((
Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim IB,
sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
diskuzi. Delphi 4, BDE 5.0 a tabulky FoxPro
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.10.1998 15:42:07
Ahoj,
potreboval jsem v nejake aplikaci pracovat s FoxPro tabulkami a narazil jsem
na nekolik problemu, nektere jsou ponekud zvlastni.
1. Pokud chci vytvorit tabulku FoxPro pomoci Database Desktopu a vyberu Table
Type - FOXPRO, nadefinuji tabulku a chci ji ulozit do aliasu (ktery ma jako
Default Driver FoxPro) tak to hlasi "Chosen alias is not of type FOXPRO".
2. Jako druhou moznost volim Database Explorer kde ji vytvorim v prislusnem
aliasu (FOXPRO) pomoci SQL prikazu, to jiz sice funguje, ale pokud se pak
podivam na vytvorenou tabulku tak v definition je:
Type: dBase (ackoliv v seznamu se nabizi i FoxPro)
Table Type: DBASE IV 2.0
Ale v pripade ze vytvorim index tak je typu .CDX
3. Pri pouziti jiz existujich tabulek z FoxPro 2.6 pro DOS je u nekterych
Type: dBase a TableType: DBASE IV 2.0
a u jinych zase
Type: dBase a TableType: FOX26 (ackoliv v comboboxu tento typ vubec neni)
Nikde vsak neni Type: Foxpro. U vsech tabulek je i chybne indikovany langdriver
jako 852, pritom tabulky jsou v 867. Pro zmenu nelze pouzit Database Desktop
protoze ten patrne vubec neumi pracovat s Foxpro tabulkami (pokud obsahuji
memo tak tvrdi ze soubor chybi)
4. U jedne tabulky FoxPro (velikost asi 2.5M) jsem pomoci SQL vytvoril index
na char polozku, pokud potom spustim SQL dotaz obsahujici tuto polozku tak
BDE kompletne zatuhne ! (zkousel jsem to i vicekrat). Po odstaneni indexu
dotaz (sice pomalu) bezi. Vec je o to zaludnejsi ze se vyskytuje jen u jedne
tabulky.
Nevite tedy nekdo jaky je presne vztah Type a TableType u FoxPro tabulek ?
Dekuji.
--
Petr Vones, amatersky programator
Start menu llike - menu ?
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 11.10.1998 17:34:07
Hojky....
>podivej se na vlastnost TMenuItem.Break, to by melo byt ono.
Jojo super ! Stydim se. Uplne se na break zapomel... Ale co ty soupatka ? To
by bylo o moc lepsi....
L. Lostak
http://MP3.musichall(tec)cz/Pulse
IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 11.10.1998 17:51:17
> [Martin Fronek] Nemam nic proti jine logice, jenze to by
>znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
>nemuzu dovolit.
------
To nemusis.
------
>(konkretne IB) nejak pozapomnelo....
------
Nepozapomelo. Podle mne je to umysl. IB, jako vetsina serveru preferuje
mekky pristup.
U velkeho mnozstvi klientu (coz byva smyslem databazovych serveru)
predstava, ze nekolik ukecanych sekretarek blokuje praci serveru, je daleko
mene prijatelna.
------
> Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
>cehokoliv do databaze je nevhodny prave z duvodu nemoznosti overeni, zda
>konkretni drzitel zamku je jeste "nazivu" - v tomto plne souhlasim Jaro.
>Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny na
>transakcich (bez urazky - to neni zadna novinka).
------
Nepredpokladal jsem samozrejme, ze bys to nevedel. Jen jsem chtel pripomenot
jeden z duvodu neexistence klasickych zamku, jak jsou zname ze souboru.
Tvrdim, ze se nejedna o zapomenuti, ale o to, ze zde je problem mnohem
sirsi.
------
> Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
>poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim IB,
>sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
>diskuzi.
-----
Jako napad to je dobre. Nejde ani tak o eleganci, jak o efekt a funkcnost.
Osobne bych to rad vyzkousel, i kdyz ve svyh projektech tvrde zamky prilis
nepotrebuji.
Myslim, ze ten efekt ukecane sekretarky u vetsiho poctu klientu stale hrozi
a je jedno jakym zpusobem se k nemu priblizis.
Ja to vetsinou vyresil promyslenou koncepci pristupovych prav pripadne
az na uroven jednotlivych polozek.
Mimochodem Delphi obsahuje objekt TIBEventAlerter, ktery by se dal pouzit
zrejme i na tuto problematiku. (Samples)
Posle vsem klientum informaci o tom, ze si nekdo vyhrazuje pouzivani
urciteho zaznamu nebo naopak.
Muselo by se vyzkouset, ktere reseni je efektivnejsi.
Jaro
IB a sdileni
[*] Lubo Fule <fule(zv)sct.sk> - 11.10.1998 18:03:32
Napadaju ma dve riesenia, ale nie som si isty, ci niektore bude fungovat.
1.:
- Nastartovat transakciu
- Hned vykonat update, ktory data nezmeni ale mohol by zamknut prislusny
record az do ukoncenia transakcie
- vstup od uzivatela...
- update, ktory zmodifikuje zaznam
- ukoncenie transakcie, ak je moja uvaha spravna, tak tu by malo dojst k
uvolneniu zaznamu
2.:
- Spustit SELECT ... FOR UPDATE s presne specifikovanou WHERE podmienkou aby
sa vybral len prislusny record
- vstup od uzivatela...
- vykonat UPDATE ... WHERE CURRENT OF <meno kurzoru> (tu vidim problem, ako
zistit meno pouziteho kurzoru, pretoze v BDE som nenasiel ziadnu funkciu,
ktora by vracala meno kurzoru, v krajnom pripade by sa to dalo zriesit
storovanou procedurou, ktora by otvorila nejaky konkretne pomenovany kurzor
pre vyssie uvedeny select)
Ak by druhe riesenie nefungovalo, este by som to skusil uzavriet do
transakcie.
Zial, tieto napady su len na teoretickej urovni, lebo IB nepouzivam a teda
som to nemohol vyskusat. Vobec netusim, ci take nieco vobec bude fungovat.
Ak hej, tak sa kazdopadne budem cudovat a tesit. Ak to budes skussat, tak
daj vediet, ako to dopadlo...
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Fron�k
> Sent: 11. okt�ber 1998 16:06
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: IB a sdileni
>
>
> Hi,
>
> 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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> > Odesl�no: 09. ��jna 1998 21:25
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: IB a sdileni
> >
> > >Pokud pracujes s Table, to jeste jde:
> > -------
> >
> > Pristupovat k IB nebo k jinem serverum pomoci TTable
> > neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
> >
> [Martin Fron�k] O vhodnosti pristupu k serveru pres TTable ci
> TQuery je myslim zbytecne se bavit, zalezi na situaci.
>
> > -------
> > >Ale pokud se jedna o CashedUpdated Query, jsem v koncich. Tam jsem to
> > umel
> > >vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v
> > pripade, ze
> > >s danou vetou pracuje, dam tam jeste jeden specialni znak navic -
> > t.j. pro
> > >ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale
> > samotnemu se
> > >mi to nelibi. Kolega to resil tak, ze mel spec.Table, do ktereho jako
> > do
> > >zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo
> > elegantni.
> > >Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl
> > vdecen
> > >za lepsi reseni
> > -------
> > 1. Princip zamku na server neni jen problem IB. Vetsina serveru to
> > resi
> > obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i
> > stovky
> > klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho
> > by
> > doslo k blokaci transakci. Servery jsou na transakcich postaveny.
> > Proste to
> > tam funguje trochu jinak a program vytvoreny na serveru zpravdla
> > potrebuje
> > trochu jinou logiku prace.
> >
> [Martin Fron�k] Nemam nic proti jine logice, jenze to by
> znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
> nemuzu dovolit.
>
> > 2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
> > zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale
> > jevit
> > jako blokovan jinym uzivatelem
> > Jaro
> >
> [Martin Fron�k] Princip zamku - to je ten problem, nekdy by
> vyvojar potreboval tvrdy zamek, je skoda, ze se na to pri vyvoji serveru
> (konkretne IB) nejak pozapomnelo....
> Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
> cehokoliv do databaze je nevhodny prave z duvodu nemoznosti overeni, zda
> konkretni drzitel zamku je jeste "nazivu" - v tomto plne souhlasim Jaro.
> Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny na
> transakcich (bez urazky - to neni zadna novinka). Spis je treba nalezt
> reseni, protoze zde vznika tato potreba. Mam jeden navrh, neni asi
> elegantni, ale je mozny. Pouziti principu sitoveho semaforu, ktery jsem
> zde pred casem prezentoval. V tomto pripade by bylo nutne ho upravit, a
> to tak, aby archivoval pro kazdou danou tabulku uzamcene vety a kym jsou
> uzamceny, a v pripade pozadavku pristupu na uzamceny objekt overil
> platnost zamku u klienta. Prave se chystam upravovat serverovou cast
> semaforu, mam vyzkouseno, ze i pri hledani v 1 000 000 !!! uzamcenych
> vet je casova prodleva zanedbatelna(=nema cenu ji merit, jsou to takrka
> nemeritelne hodnoty), takze jen zbyva to trochu zprehlednit. Pro ostatni
> zajemce: Pouzivam na to "set" z Rogue wave Standart Template Library -
> (to je z C++). Tohle udelatko je silne objektove a vykona skoro vsechno
> za vas. Udrzuje serazeny seznam zadanych hodnot(vylucuje duplicity) a ma
> to skvele reseny iterator find (na nem to stoji). O zbytek (komunikace)
> se stara komponenta wsock120 (porad na ni nedam dopustit - i ve srovnani
> s F.Piette). To jen pro informaci pro ty, kdoz by se o neco podobneho
> taktez chteli pokusit. Skoda jen, ze se timhle musi zabyvat vyvojar,
> mohlo to byt uz hotove v IB :-(((
> Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
> poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim IB,
> sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
> diskuzi.
>DBLookUpListBox
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 11.10.1998 18:27:49
Lukes V�clav wrote:
> Hi,
>
> da se nejak nastavit, aby v DbLookUpListBoxu stal kurzor na prvni vete a byl
> prosviceny ?
> DbLookUpListBox.SetFocus sice udela to, ze kurzor skoci na tento objekt, ale
> to je vse. Kdyz dam pred tim:
> Table1.First, tak stojim na prvni vete v tabulce. OK, ale porad ta prvni
> veta neni podsvicena.
>
> Vasek
>
> V�clav Lukes
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz, 511247(zv)sms.paegas(tec)cz
> Tel.: 0603-511247
Musis jeste nastavit KeyValue.
--
==============================================================
= Ing. Martin Ku�ka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================
DBLookUpListBox
[*] Hobbys <m.konicek(zv)sh.cvut(tec)cz> - 11.10.1998 19:23:38
Nekdo mi zde radil, jak osetrit udalost, pri ktere opusti mys nejakou
komponentu. Moh by se mi dotycny clovek ozvat ? (ztratil sem dany mail,
ktery toto resil)
Hobbys
PS> nejedna se o proste WM_MOUSELEAVE (jedna se o kombinaci s capture)IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 11.10.1998 20:13:55
Ano pomoci transakci lze blokovat operace jinym uzivatelum.
To je ale presne ten problem o kterem jsem jiz psal v minulem prispevku.
Takto velmi rychle zablokujes cely seerver.
Jestlize bude po celou dobu editace nastartovana transakce, tak
je to dle meho nazoru dost silene reseni. Jedna sekretarka si odskoci
na obed aniz by uzavrela editacni formuklar = transakce neni uzavrena.
Dalsi operace jsou dlouhodobe blokovany. Potrebuje-li nejaky jiny proces
provest
napr. novy vypocet prumerne ceny na zaklade zcela jineho dokladu
(treba prijemky) pomoci nejake ulozene procedury na serveru, bude tato
transakce
blokovana otevrenou predchozi transakci. Kdyz bude existovat treba dvacet
uzivatelu,
tak se stane takovy program nefunkcni, aniz by nekdo odchazel na obed
od rozdelane prace.
Jaro
--------
>Napadaju ma dve riesenia, ale nie som si isty, ci niektore bude fungovat.
>1.:
>- Nastartovat transakciu
>- Hned vykonat update, ktory data nezmeni ale mohol by zamknut prislusny
>record az do ukoncenia transakcie
>- vstup od uzivatela...
>- update, ktory zmodifikuje zaznam
>- ukoncenie transakcie, ak je moja uvaha spravna, tak tu by malo dojst k
>uvolneniu zaznamu
>2.:
>- Spustit SELECT ... FOR UPDATE s presne specifikovanou WHERE podmienkou
aby
>sa vybral len prislusny record
>- vstup od uzivatela...
>- vykonat UPDATE ... WHERE CURRENT OF <meno kurzoru> (tu vidim problem, ako
>zistit meno pouziteho kurzoru, pretoze v BDE som nenasiel ziadnu funkciu,
>ktora by vracala meno kurzoru, v krajnom pripade by sa to dalo zriesit
>storovanou procedurou, ktora by otvorila nejaky konkretne pomenovany kurzor
>pre vyssie uvedeny select)
>
>Ak by druhe riesenie nefungovalo, este by som to skusil uzavriet do
>transakcie.
>Zial, tieto napady su len na teoretickej urovni, lebo IB nepouzivam a teda
>som to nemohol vyskusat. Vobec netusim, ci take nieco vobec bude fungovat.
>Ak hej, tak sa kazdopadne budem cudovat a tesit. Ak to budes skussat, tak
>daj vediet, ako to dopadlo...
>
>S pozdravom
> Lubo Fule
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>> Martin Fron�k
>> Sent: 11. okt�ber 1998 16:06
>> To: 'delphi-l(zv)fwd(tec)cz'
>> Subject: RE: IB a sdileni
>>
>>
>> Hi,
>>
>>
>> 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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
>> > Odesl�no: 09. ��jna 1998 21:25
>> > Komu: delphi-l(zv)fwd(tec)cz
>> > P�edm�t: Re: IB a sdileni
>> >
>> > >Pokud pracujes s Table, to jeste jde:
>> > -------
>> >
>> > Pristupovat k IB nebo k jinem serverum pomoci TTable
>> > neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
>> >
>> [Martin Fron�k] O vhodnosti pristupu k serveru pres TTable ci
>> TQuery je myslim zbytecne se bavit, zalezi na situaci.
>>
>> > -------
>> > >Ale pokud se jedna o CashedUpdated Query, jsem v koncich. Tam jsem to
>> > umel
>> > >vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v
>> > pripade, ze
>> > >s danou vetou pracuje, dam tam jeste jeden specialni znak navic -
>> > t.j. pro
>> > >ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale
>> > samotnemu se
>> > >mi to nelibi. Kolega to resil tak, ze mel spec.Table, do ktereho jako
>> > do
>> > >zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo
>> > elegantni.
>> > >Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl
>> > vdecen
>> > >za lepsi reseni
>> > -------
>> > 1. Princip zamku na server neni jen problem IB. Vetsina serveru to
>> > resi
>> > obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i
>> > stovky
>> > klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho
>> > by
>> > doslo k blokaci transakci. Servery jsou na transakcich postaveny.
>> > Proste to
>> > tam funguje trochu jinak a program vytvoreny na serveru zpravdla
>> > potrebuje
>> > trochu jinou logiku prace.
>> >
>> [Martin Fron�k] Nemam nic proti jine logice, jenze to by
>> znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
>> nemuzu dovolit.
>>
>> > 2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
>> > zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale
>> > jevit
>> > jako blokovan jinym uzivatelem
>> > Jaro
>> >
>> [Martin Fron�k] Princip zamku - to je ten problem, nekdy by
>> vyvojar potreboval tvrdy zamek, je skoda, ze se na to pri vyvoji serveru
>> (konkretne IB) nejak pozapomnelo....
>> Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
>> cehokoliv do databaze je nevhodny prave z duvodu nemoznosti overeni, zda
>> konkretni drzitel zamku je jeste "nazivu" - v tomto plne souhlasim Jaro.
>> Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny na
>> transakcich (bez urazky - to neni zadna novinka). Spis je treba nalezt
>> reseni, protoze zde vznika tato potreba. Mam jeden navrh, neni asi
>> elegantni, ale je mozny. Pouziti principu sitoveho semaforu, ktery jsem
>> zde pred casem prezentoval. V tomto pripade by bylo nutne ho upravit, a
>> to tak, aby archivoval pro kazdou danou tabulku uzamcene vety a kym jsou
>> uzamceny, a v pripade pozadavku pristupu na uzamceny objekt overil
>> platnost zamku u klienta. Prave se chystam upravovat serverovou cast
>> semaforu, mam vyzkouseno, ze i pri hledani v 1 000 000 !!! uzamcenych
>> vet je casova prodleva zanedbatelna(=nema cenu ji merit, jsou to takrka
>> nemeritelne hodnoty), takze jen zbyva to trochu zprehlednit. Pro ostatni
>> zajemce: Pouzivam na to "set" z Rogue wave Standart Template Library -
>> (to je z C++). Tohle udelatko je silne objektove a vykona skoro vsechno
>> za vas. Udrzuje serazeny seznam zadanych hodnot(vylucuje duplicity) a ma
>> to skvele reseny iterator find (na nem to stoji). O zbytek (komunikace)
>> se stara komponenta wsock120 (porad na ni nedam dopustit - i ve srovnani
>> s F.Piette). To jen pro informaci pro ty, kdoz by se o neco podobneho
>> taktez chteli pokusit. Skoda jen, ze se timhle musi zabyvat vyvojar,
>> mohlo to byt uz hotove v IB :-(((
>> Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
>> poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim IB,
>> sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
>> diskuzi.
>>QReport + DBMemo
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 11.10.1998 20:36:17
Zdravim,
jelikoz se mne to jeste nepodarilo vyresit, ptam se znovu:
tisknu v QReportu DBMemo a mam problem se strankovanim. Toto memo je plneno
dlouhym textem (vychazi to az na 5 stran). V Preview je vse v poradku !! Pri
vlastnim tisku se sice vytiskne PageFoot, ale navic pres nej az do konce
stranky se tisknou radky mema.
Diky za kazde nakopnuti.
Lubomir Kupka
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
ChartFX
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 11.10.1998 20:49:13
Zdravim,
zacal jsem delat s touto komponentou. Neni spatna. Nemuzu ale najit dve
veci.
1. Jak zaktivovat legendu? (aby pri spusteni byla aktivni)
2. Jak poznam, ktery typ grafu ma jake cislo (ChartType)? Pri behu programu
se jaksi meni !????
Diky predem Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
IB a sdileni
[*] Lubo Fule <fule(zv)sct.sk> - 11.10.1998 21:01:40
To je jasne, osobne by ma ani vo sne nenapadlo pouzivat "pesimisticke" zamky
prave z tychto dovodov. Chcel som len ponuknut nejake riesenie, pretoze,
filozoficky je to sice nepripustne, ale verim, ze su v praxi pripady, ked je
potrebne zaznam tvrdo zamknut.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Jaro
> Sent: 11. okt�ber 1998 20:14
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: IB a sdileni
>
>
> Ano pomoci transakci lze blokovat operace jinym uzivatelum.
> To je ale presne ten problem o kterem jsem jiz psal v minulem prispevku.
> Takto velmi rychle zablokujes cely seerver.
> Jestlize bude po celou dobu editace nastartovana transakce, tak
> je to dle meho nazoru dost silene reseni. Jedna sekretarka si odskoci
> na obed aniz by uzavrela editacni formuklar = transakce neni uzavrena.
> Dalsi operace jsou dlouhodobe blokovany. Potrebuje-li nejaky jiny proces
> provest
> napr. novy vypocet prumerne ceny na zaklade zcela jineho dokladu
> (treba prijemky) pomoci nejake ulozene procedury na serveru, bude tato
> transakce
> blokovana otevrenou predchozi transakci. Kdyz bude existovat treba dvacet
> uzivatelu,
> tak se stane takovy program nefunkcni, aniz by nekdo odchazel na obed
> od rozdelane prace.
> Jaro
>
> --------
>
> >Napadaju ma dve riesenia, ale nie som si isty, ci niektore bude fungovat.
> >1.:
> >- Nastartovat transakciu
> >- Hned vykonat update, ktory data nezmeni ale mohol by zamknut prislusny
> >record az do ukoncenia transakcie
> >- vstup od uzivatela...
> >- update, ktory zmodifikuje zaznam
> >- ukoncenie transakcie, ak je moja uvaha spravna, tak tu by malo dojst k
> >uvolneniu zaznamu
> >2.:
> >- Spustit SELECT ... FOR UPDATE s presne specifikovanou WHERE podmienkou
> aby
> >sa vybral len prislusny record
> >- vstup od uzivatela...
> >- vykonat UPDATE ... WHERE CURRENT OF <meno kurzoru> (tu vidim
> problem, ako
> >zistit meno pouziteho kurzoru, pretoze v BDE som nenasiel ziadnu funkciu,
> >ktora by vracala meno kurzoru, v krajnom pripade by sa to dalo zriesit
> >storovanou procedurou, ktora by otvorila nejaky konkretne
> pomenovany kurzor
> >pre vyssie uvedeny select)
> >
> >Ak by druhe riesenie nefungovalo, este by som to skusil uzavriet do
> >transakcie.
> >Zial, tieto napady su len na teoretickej urovni, lebo IB
> nepouzivam a teda
> >som to nemohol vyskusat. Vobec netusim, ci take nieco vobec bude
> fungovat.
> >Ak hej, tak sa kazdopadne budem cudovat a tesit. Ak to budes skussat, tak
> >daj vediet, ako to dopadlo...
> >
> >S pozdravom
> > Lubo Fule
> >
> >> -----Original Message-----
> >> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> >> Martin Fron�k
> >> Sent: 11. okt�ber 1998 16:06
> >> To: 'delphi-l(zv)fwd(tec)cz'
> >> Subject: RE: IB a sdileni
> >>
> >>
> >> Hi,
> >>
> >>
> >> 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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> >> > Odesl�no: 09. ��jna 1998 21:25
> >> > Komu: delphi-l(zv)fwd(tec)cz
> >> > P�edm�t: Re: IB a sdileni
> >> >
> >> > >Pokud pracujes s Table, to jeste jde:
> >> > -------
> >> >
> >> > Pristupovat k IB nebo k jinem serverum pomoci TTable
> >> > neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
> >> >
> >> [Martin Fron�k] O vhodnosti pristupu k serveru pres TTable ci
> >> TQuery je myslim zbytecne se bavit, zalezi na situaci.
> >>
> >> > -------
> >> > >Ale pokud se jedna o CashedUpdated Query, jsem v koncich.
> Tam jsem to
> >> > umel
> >> > >vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v
> >> > pripade, ze
> >> > >s danou vetou pracuje, dam tam jeste jeden specialni znak navic -
> >> > t.j. pro
> >> > >ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale
> >> > samotnemu se
> >> > >mi to nelibi. Kolega to resil tak, ze mel spec.Table, do
> ktereho jako
> >> > do
> >> > >zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo
> >> > elegantni.
> >> > >Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl
> >> > vdecen
> >> > >za lepsi reseni
> >> > -------
> >> > 1. Princip zamku na server neni jen problem IB. Vetsina serveru to
> >> > resi
> >> > obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i
> >> > stovky
> >> > klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho
> >> > by
> >> > doslo k blokaci transakci. Servery jsou na transakcich postaveny.
> >> > Proste to
> >> > tam funguje trochu jinak a program vytvoreny na serveru zpravdla
> >> > potrebuje
> >> > trochu jinou logiku prace.
> >> >
> >> [Martin Fron�k] Nemam nic proti jine logice, jenze to by
> >> znamenalo v pripade kolize zahodit praci druheho klienta, a to
> si proste
> >> nemuzu dovolit.
> >>
> >> > 2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
> >> > zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale
> >> > jevit
> >> > jako blokovan jinym uzivatelem
> >> > Jaro
> >> >
> >> [Martin Fron�k] Princip zamku - to je ten problem, nekdy by
> >> vyvojar potreboval tvrdy zamek, je skoda, ze se na to pri
> vyvoji serveru
> >> (konkretne IB) nejak pozapomnelo....
> >> Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
> >> cehokoliv do databaze je nevhodny prave z duvodu nemoznosti
> overeni, zda
> >> konkretni drzitel zamku je jeste "nazivu" - v tomto plne
> souhlasim Jaro.
> >> Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny na
> >> transakcich (bez urazky - to neni zadna novinka). Spis je treba nalezt
> >> reseni, protoze zde vznika tato potreba. Mam jeden navrh, neni asi
> >> elegantni, ale je mozny. Pouziti principu sitoveho semaforu, ktery jsem
> >> zde pred casem prezentoval. V tomto pripade by bylo nutne ho upravit, a
> >> to tak, aby archivoval pro kazdou danou tabulku uzamcene vety
> a kym jsou
> >> uzamceny, a v pripade pozadavku pristupu na uzamceny objekt overil
> >> platnost zamku u klienta. Prave se chystam upravovat serverovou cast
> >> semaforu, mam vyzkouseno, ze i pri hledani v 1 000 000 !!! uzamcenych
> >> vet je casova prodleva zanedbatelna(=nema cenu ji merit, jsou to takrka
> >> nemeritelne hodnoty), takze jen zbyva to trochu zprehlednit.
> Pro ostatni
> >> zajemce: Pouzivam na to "set" z Rogue wave Standart Template Library -
> >> (to je z C++). Tohle udelatko je silne objektove a vykona skoro vsechno
> >> za vas. Udrzuje serazeny seznam zadanych hodnot(vylucuje
> duplicity) a ma
> >> to skvele reseny iterator find (na nem to stoji). O zbytek (komunikace)
> >> se stara komponenta wsock120 (porad na ni nedam dopustit - i
> ve srovnani
> >> s F.Piette). To jen pro informaci pro ty, kdoz by se o neco podobneho
> >> taktez chteli pokusit. Skoda jen, ze se timhle musi zabyvat vyvojar,
> >> mohlo to byt uz hotove v IB :-(((
> >> Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
> >> poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim IB,
> >> sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
> >> diskuzi.
> >>
>CHM soubory
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 11.10.1998 21:32:18
Pripojuji se, take by mne to zajimalo.
> Omlouvam se za otazku, ktera je v teto konferenci mozna
> ponekud mimo misu: nevite nahodou nekdo, jak se vytvari
> CHM soubory (compiled HTML files), tj. napoveda Win98
> ala HTML.
>
> Patrik Sladecek
> pasla(zv)iname.com
>
>
>
*-----------------------------------------------*
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
*-----------------------------------------------*Delphi 4, BDE 5.0 a tabulky FoxPro
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 12.10.1998 05:53:54
Pokud mas vetsi tabulku FoxPro a delas nekolik dotazu tak je BDE celkem nepouzitelne, protoze tuhne. Ja jsem to zkousel na tabulce (asi 70 000 zaznamu - polozky faktur) a pri jednoduchem dotazu na vyber polozek jedne faktury to pravidelne zatuhlo. Takze to resim tak, ze pracuji s tabulkou a nedelem SQL.
-----------------------------------------------------------------
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: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 11. ��jna 1998 15:50
P�edm�t: Delphi 4, BDE 5.0 a tabulky FoxPro
Ahoj,
potreboval jsem v nejake aplikaci pracovat s FoxPro tabulkami a narazil jsem
na nekolik problemu, nektere jsou ponekud zvlastni.
1. Pokud chci vytvorit tabulku FoxPro pomoci Database Desktopu a vyberu Table
Type - FOXPRO, nadefinuji tabulku a chci ji ulozit do aliasu (ktery ma jako
Default Driver FoxPro) tak to hlasi "Chosen alias is not of type FOXPRO".
2. Jako druhou moznost volim Database Explorer kde ji vytvorim v prislusnem
aliasu (FOXPRO) pomoci SQL prikazu, to jiz sice funguje, ale pokud se pak
podivam na vytvorenou tabulku tak v definition je:
Type: dBase (ackoliv v seznamu se nabizi i FoxPro)
Table Type: DBASE IV 2.0
Ale v pripade ze vytvorim index tak je typu .CDX
3. Pri pouziti jiz existujich tabulek z FoxPro 2.6 pro DOS je u nekterych
Type: dBase a TableType: DBASE IV 2.0
a u jinych zase
Type: dBase a TableType: FOX26 (ackoliv v comboboxu tento typ vubec neni)
Nikde vsak neni Type: Foxpro. U vsech tabulek je i chybne indikovany langdriver
jako 852, pritom tabulky jsou v 867. Pro zmenu nelze pouzit Database Desktop
protoze ten patrne vubec neumi pracovat s Foxpro tabulkami (pokud obsahuji
memo tak tvrdi ze soubor chybi)
4. U jedne tabulky FoxPro (velikost asi 2.5M) jsem pomoci SQL vytvoril index
na char polozku, pokud potom spustim SQL dotaz obsahujici tuto polozku tak
BDE kompletne zatuhne ! (zkousel jsem to i vicekrat). Po odstaneni indexu
dotaz (sice pomalu) bezi. Vec je o to zaludnejsi ze se vyskytuje jen u jedne
tabulky.
Nevite tedy nekdo jaky je presne vztah Type a TableType u FoxPro tabulek ?
Dekuji.
--
Petr Vones, amatersky programator
Hint to
[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 12.10.1998 07:35:22
Vdaka za radu toto je rozumnejsie riesenie. Ale ja som sa pokusal nieco vytvorit a predstav si to vyslo mi to takto.
Mozno by sa ti hodilo.
Cize som definoval globalny smernik na TStatusBar, a v aktivnom okne mu priradzujem addr aktualneho StatusBarX a funguje to.
V procedure Hint mam pouziti
var
Smernik:^TStatusBar;
pri activate Form XX
Smernik:=Addr(StatusBar1);
procedure Hint(Sender:TObject);
Begin
With Smernik^ do
Panles[0].Text:=Applikation.Hint;
end;
Dakujem za radu. Nieje to nic slavne ale dufam ze pomozem. Caute LUBO TSC.Clipboard a RxCheckListBox
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.10.1998 07:40:06
Ahoj vsem,
prosim o radu, potrebuji z RxCheckListBox zkopirovat vybrany (check)
text do clipboardu a potrebuji to udelat tak, jak je to zobrazovano
(pouzivam dynamicke zobrazeno tj. nezobrazuji vsechno, ale jen to, co je
momentalne potreba). Funkce AsText umi pouze retezec do 255 znaku. Dekuji za
kazdou radu.
Jaro B.IB a sdileni
[*] Zden�k Glaser <glaser(zv)ipl(tec)cz> - 12.10.1998 08:49:28
Jaro wrote:
> > [Martin Fronek] Nemam nic proti jine logice, jenze to by
> >znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
> >nemuzu dovolit.
> ------
> To nemusis.
> ------
Prosim tedy o vysvetleni jednoho problemku.
Jak jsem tu uvadel priklad s Table, chtel jsem na nem prezentovat, ze jeden
client pozna,
ze mu nekdo pod rukou zmenil data - respektuje se ten, kdo zapise jako prvni.
Ten druhy se podiva, co prvni napsal a pak se samozrejme muze rozhodnout,
ze to stejne prepise. Pokud jsem to takto neosetril, zustaly v IB udaje toho
2.clienta,
a ten 1.client nemel sanci se o tom dovedet (no - asi by mohl pomoci
EventAlerteru ci jak se to pise).
Ale budis, v teto situaci chovani IB beru, umim si to ohlidat.
Ale jak v nekolika prispevcich zaznelo, Table neni idealni.
Sam jsem k tomu asi tak pred rokem taky dospel, radu dulezitych funkci jsem muse
predelat na Query.
Tam ale uz neumim poznat, ze si dva clienti lezou do zeli - proste si to
prepisou - ten posledni vyhrava.
(To je ten problemek)
A tam mi vznika maler. Vytvarim objednavku s generovanym klicem (modulo 7;
priznavam, asi jsem mel vyuzit
IB pro vygenerovani toho klice, treba by mi problem odpadl). Pak tuto vetu
chnapnu do Query - protoze obecne
editaci Objednavky mam pomoci Query (pres Table jsem se dodtal do obrovskych
casovych problemu radove pri 10000 vet). No a tim se mi muze stat, ze dva
clienti budou opravovat stejnou vetu a vubec se to nedozvi. Muj zakaznik
ale trval na tom, ze to je pro nej nepripustne. A argumenty, ze to vlastne asi
ani neni moc realne, nepomohly.
Proto jsem pak uz temer ze zoufalstvi udelal alespon nejake pseudozamykani.
Kdyby mi to IB pro Query rekla tak jako pro Table, byl bych rad. Nejspis delam
nekde chybu.
====================================================
Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
__________________________________________________________
Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
http://www.ipl(tec)cz
====================================================
Aplikace bez komponent
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 12.10.1998 09:02:57
Ale vzdyt je celkem jedno, jestli tam ty knihovny jsou, nebo ne. Tyto
knihovny maji Windows tak jako tak spustene a pokud si je natahne i jiny
proces, tak se pouzivaji ty, co jsou jiz natazene. Pouze se vytvori novy
FileMapping a naalokuje se datovy prostor knihovny, ktery je specificky pro
kazdou instanci knihovny. Ja bych z toho zase takovou vedu nedelal...
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: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 10. ��jna 1998 21:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Aplikace bez komponent
>
> Zbysek Hlinka wrote:
>
> > > program Project1;
> > >
> > > uses
> > > Windows;
> > >
> > > begin
> > > MessageBeep(0);
> > > Sleep(10000);
> > > MessageBeep(0);
> > > end.
> > >
> > > Delphi: EXE: DLL:
> > > D2 7,168 USER32, KERNEL32, GDI32, ADVAPI32
> > > D4 15,872 USER32, KERNEL32, GDI32, ADVAPI32, OLE32, OLEAUT32,
> > > RPCRT4, MSVCRT20
> >
> > No, cvicne jsem napsal vytvareni okna bez VCL, a v D3 mi to dalo
> > asi 15 kilo, v D4 asi o kilo vic. Takze zda se, ze skok nastal uz u
> > D3. Ale kdyz se podivas na DLL, je to pochopitelne - pribylo
> > pouzivani COM a podobnych sluzeb Woken.
>
> No dobre, ale to by tam snad nemuselo byt v tak jednoduche aplikaci jako
> jsem
> zkousel. Na spusteni tri prikazu z Win32API snad nepotrebuju COM a OLE,
> zda se
> mi ze to maji malinko nedomyslene.
>
> --
> Petr Vones, amatersky programator
> DBLookupComboBox
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 12.10.1998 09:14:36
Caute Delfini!
Protoze se mi nikdo poradne neozval, pomohl jsem si sam.... (aby to dalsi
nehledali...)
Tedy presne dekuji panu Martinovi Kuskovi, ktery v odpovedi na uplne jiny
dotaz (ale shodou okolnosti tykajici se taky Databazi a to
DBLookupListBoxu) odpovedel i na muj dotaz. To jsem tady tak slozite
popisoval se resi takto :
DBLookupComboBox1.KeyValue := Table1.FieldValues['Zbozi'];
Dekuji za pomoc....
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...
Vazeni Delphini!
Obracim se na Vas se svym zacatecnickym dotazem. Nejdrive nastin situace :
Pisu jednoduchou aplikaci, ktera slouzi k evidenci smluv. V teto aplikaci
pouzivam DBLookupComboBox s propojenim na databazi typu vyrobku. Seznam
musi byt volne editovatelny, proto ta databaze. (Jakysi ciselnik vyrobku).
Uzivatelum chci dovolit prohlizeni jiz porizenych dat. Proto pouzivam
DBNavigator pro snadne pouziti prikazu prechod na dalsi ci predchozi
zaznam. Protoze vsak soucasne s prechodem na dalsi zaznam potrebuji provest
dalsi akce, nastavil jsem u DBNavigatora hodnotu Visible na False a
dodefinoval vlastni tlacitka s akcemi napr. pro prechod na predchozi zaznam
:
procedure TForm2.Button2Click(Sender: TObject);
begin
DBNavigator.BtnClick(nbPrior);
end;
A co dal? Pouzivam DBLookupComboBox proto, abych mohl hodnotu ze seznamu
predat do databaze smluv pomoci udalosti OnCloseUp (s potvrzenim) a to
takto :
procedure TForm2.DBLookupComboBox1Click(Sender: TObject);
begin
if MessageDlg('Skute�n� chcete vybrat tento model?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Table1.Edit;
Table1.FieldValues['Zbozi'] := DBLookupComboBox1.Text;
Table1.Post;
end;
end;
Problem souvisi s prohlizenim. Pokud chci prejit na dalsi zaznam a chci
videt vse, chtel bych DBLookupComboBoxu predat pro zobrazeni hodnotu z
databaze tzn. udelat opacnou vec nez delam v procedure
TForm2.DBLookupComboBox1Click a to asi nejak takhle :
DBLookupComboBox1.Text := Table1.FieldValues['Zbozi'];
Jenomze to nejde, protoze mi ComboBox nahlasi ze tahle hodnota je pouze pro
cteni. Existuje tedy nejaka jina finta, ktera by dokazala predat ComboBoxu
hodnotu pro zobrazeni? V soucasne dobe to resim tak, ze mam dve pole se
stejnym obsahem pod sebou jednou je to EditDB pole a pod nim Je
DBLookupComboBox. Pokud provedu prechod na dalsi zaznam vidim aktualni
data, ovsem v ComboBoxu zustava stale stejna zvolena posledni hodnota. To
je sice skvele, ale ponekud "amaterske". Napada mne reseni, ze pri udalost�
OnClick na EditDB pole se objevi DBLookupComboBox a pri udalosti OnCloseUp
zase zmizi. Umim to rict, ale udelat je to slozitejsi. Pokud neexistuje
nejaka jednoducha finta predani textu pro zobrazeni do ComboBoxu, poradte
mi prosim s tou slozitejsi schovavaci. Proste bych nechtel mit na formulari
dve pole se stejnym obsahem.
Dekuji za Vasi shovivavost a rady a slibuju, ze kdyz budu neco vedet, tak
hned poradim jinemu.
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...Turbo Pascal kontra Delphi
[*] Ing. J�n Kuch�r�����!j��G - 12.10.1998 09:18:37
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Cau
Ked som pouzil ten tvoj prepis, tak mi zacalo vyskakovat, ze TBUFSTREAM je neznamy identifikator. Co s tym ???
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 23. september 1998 16:54
P�edm�t: Re: Turbo Pascal kontra Delphi
Haj hou!
Pominu-li celkovou odlisnost zvirat, pak prepis je nasledujici:
uses Classes ; // V Delphi je vetsina uzitecnosti v Classes, ale pro praci s objekty neni nutna (TObject je v implicitne zahrnovane unite System)
type
// PBlockStream=^TBlockStream; neni vubec zapotrebi, protoze v Delphi jsou vsechny objekty pointery
TBlockStream=class(TBufStream)
BAT:TBufStream;
constructor Create(FileName:string;Mode,Size:word); // V Delphi je zvykem nazyvat konstruktur Create[XXX]
destructor Destroy; override ; // TObject ma definovan destruktor Destroy, zadne Done a jine destruktory radeji nezavadet
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
// PRecStream=^TRecStream;
TRecStream=object(TBufStream)
RAT:TBufStream;
constructor Createt(FileName:string;Mode,Size:word);
destructor Destroy; override;
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
Pbyte=^byte;
Plongint=^longint;
Pxx=^xx;
xx=array[1..sizeof(zaznam)] of byte;
var Bufx:Pxx;
BufxPtr:word;
RecS:TRecStream; // Jak uz jsem rekl, zadne pointery
Size:word;
BTW, stejne ti nezbude nic jineho, nez to uplne prepsat, OP a TP jsou v implementaci objektu (mimo jine) naprosto odlisna zvirata.
HTH
-----P�vodn� zpr�va-----
Caute
Potrebuje radu. Pri definovani novych typov v pascale typu OBJECT sa pouzival uses OBJECTS, neviem ako to nahradit v DELPHI. Priamo ukazem definovanie v Pascale a rad by som keby ste mi niekto to iste mohol poslat spat prerobene pre DELPHI.
Vdaka
Tak tu to je :
----------------------------------------------------------------------------------------------------------------------
uses objects;
type PBlockStream=^TBlockStream;
TBlockStream=object(TBufStream)
BAT:TBufStream;
constructor Init(FileName:string;Mode,Size:word);
destructor Done; virtual;
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
PRecStream=^TRecStream;
TRecStream=object(TBufStream)
RAT:TBufStream;
constructor Init(FileName:string;Mode,Size:word);
destructor Done; virtual;
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
Pbyte=^byte;
Plongint=^longint;
Pxx=^xx;
xx=array[1..sizeof(zaznam)] of byte;
var Bufx:Pxx;
BufxPtr:word;
RecS:PRecStream;
Size:word;
-----------------------------------------------------------------------------------------------
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 Aplikace bez komponent
[*] Richard Cvach <cvach(zv)softhome(tec)net> - 12.10.1998 10:07:56
-----Original Message-----
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: pond�l�, 12. ��jna 1998 9:48
Subject: RE: Aplikace bez komponent
>Ale vzdyt je celkem jedno, jestli tam ty knihovny jsou, nebo ne. Tyto
>knihovny maji Windows tak jako tak spustene a pokud si je natahne i jiny
>proces, tak se pouzivaji ty, co jsou jiz natazene. Pouze se vytvori novy
>FileMapping a naalokuje se datovy prostor knihovny, ktery je specificky pro
>kazdou instanci knihovny. Ja bych z toho zase takovou vedu nedelal...
>
>
No tak docela jedno to neni... zaprve, neprijemna je zbytecna velikost EXE souboru (napr. pri downloadu/uploadu pres WEB atd).
Ale predevsim ve Windows NT to sdileni DLL knihoven neni (kvuli "bezpecnosti") ;-)) a kazda knihovna se znovu kopiruje do oddeleneho adresoveho prostoru ... takze tam to opravdu sezere zbytecne megabajty.
--------------
Richard Cvach, cvach(zv)softhome.net
Computer Crypt, po��ta�ov� klub v atomov�m krytu
http://computer.crypt.hide(tec)cz , mailto:computer.crypt(zv)hide(tec)cz
CHM soubory
[*] Filip Jirsak <JIRSAK(zv)gymnacel(tec)cz> - 12.10.1998 10:38:24
Nevim, zda vam tim pomuzu, ale mam doma program od Microsoftu na
vytvareni napovedy ala HTML. Myslim, ze byl na nejakem z poslednich
CD z CHIPu. Pokud by mel nekdo zajem, muzu vam to poslat. Bohuzel
nevim, jak je to velke, nemam to tady ale doma.
Filip Jirsak
> From: "Zdenek Drvota" <zds(zv)pce.fairnet(tec)cz>
> Organization: ZDS, spol. s r. o.
> To: delphi-l(zv)fwd(tec)cz
> Date sent: Sun, 11 Oct 1998 21:32:18 +0100
> Subject: Re: CHM soubory
> Send reply to: delphi-l(zv)fwd(tec)cz
> Pripojuji se, take by mne to zajimalo.
> > Omlouvam se za otazku, ktera je v teto konferenci mozna
> > ponekud mimo misu: nevite nahodou nekdo, jak se vytvari
> > CHM soubory (compiled HTML files), tj. napoveda Win98
> > ala HTML.
> >
> > Patrik Sladecek
> > pasla(zv)iname.com
> >
> >
> >
> *-----------------------------------------------*
> 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
> *-----------------------------------------------*
>
e-mail: Jirsak(zv)gymnacel(tec)cz
Delphi 4, BDE 5.0 a tabulky FoxPro -> pozor na BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 11:36:09
> Jan Fiala wrote:
>
> Pokud mas vetsi tabulku FoxPro a delas nekolik dotazu tak je BDE celkem
> nepouzitelne, protoze tuhne. Ja jsem to zkousel na tabulce (asi 70 000 zaznamu
> - polozky faktur) a pri jednoduchem dotazu na vyber polozek jedne faktury to
> pravidelne zatuhlo. Takze to resim tak, ze pracuji s tabulkou a nedelem SQL.
Kdyz ono tu tuhne i pri jednom dotazu. Zkoumal jsem to ted vic a dospel jsem
k nazoru ze chyba je jednoznacne v BDE 5.0. Pokud k tomu prictu i chyby v D4 a
to i po pouziti patche tak je asi nejvyssi cas aby se Inprise vzpamatoval a neco
s tim udelal. Zkousel jsem totez i s D2 a BDE 4.51, tam to funguje bez problemu.
Narazil jsem pri tom i na dalsi problem (ten se projevuje jak v BDE 5.0 tak v
4.51). Pokud Foxpro tabulka mela index a tento indexovy soubor se smazal tak pri
otevreni BDE nabidne moznost opravy (Open and Detach), ale zaroven pritom poskodi
hlavicku a cast dat. To lze ale obejit tim ze se prislusna hodnota v hlavicce
zmeni jeste pred otevrenim.
--
Petr Vones, amatersky programator
IB a sdileni
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 11:51:50
Hi,
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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 11. ��jna 1998 17:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: IB a sdileni
>
> > Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
> >poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim
> IB,
> >sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
> >diskuzi.
> -----
> Jako napad to je dobre. Nejde ani tak o eleganci, jak o efekt a
> funkcnost.
> Osobne bych to rad vyzkousel, i kdyz ve svyh projektech tvrde zamky
> prilis
> nepotrebuji.
>
[Martin Fron�k] OK, az to dokoncim a vyzkousim, tak to poslu.
Ale bude to (jak jinak) v C++Builderu.
Tahle vec ma i jednu skvelou vlastnost, a to, ze si vyvojar muze
sam definovat chovani zamku, tzn. kdy se uplatni, kdy neni treba a
hlavne, muze se s tim zamykat cokoliv, nejen DB (ackoliv vyuziti jinym
zpusobem je velmi nepravdepodobne). Rad bych z toho udelal
komponenty(TNetSemaphoreServer, TNetSemaphoreClient - treba), ale do
tvorby komponent jsem nepronikl (respektive nakoukl jsem do toho).
Navic, aby to bylo pouzitelne i s Delphi, musel by to napsat nekdo v
pascalu, a tam zase nevim, jestli existuje tak dobra knihovna STL - bez
ni to sice pujde, ale proc vymyslet kolo, ze. Nebo je mozne pouzit v
Delphi komponentu napsanou v Builderu?
> Myslim, ze ten efekt ukecane sekretarky u vetsiho poctu klientu stale
> hrozi
> a je jedno jakym zpusobem se k nemu priblizis.
[Martin Fron�k] Prave - zde se uplatni vyvojarem definovane
chovani zamku, kdy je mozne uzivatele upozornit (pri necinnosti), aby
bud neco delal, nebo ukoncil editaci. Pokud bude i nadale neaktivni
(dlabe zrovna rizek, sel se vycurat...) tak se mu ta jeho prace da
schovat, zamek uvolnit, a pokud mezi tim nedoslo ke zmene, po navratu
zamek znovu vystavit a v praci pokracovat, nebo sdelit uzivateli, ze ma
bohuzel smulu a musi to udelat znovu (ocekavam minimum takovych pripadu)
> Ja to vetsinou vyresil promyslenou koncepci pristupovych prav pripadne
> az na uroven jednotlivych polozek.
>
[Martin Fron�k] To nechapu.
> Mimochodem Delphi obsahuje objekt TIBEventAlerter, ktery by se dal
> pouzit
> zrejme i na tuto problematiku. (Samples)
> Posle vsem klientum informaci o tom, ze si nekdo vyhrazuje pouzivani
> urciteho zaznamu nebo naopak.
[Martin Fron�k] Jak? Mohu pozadat o nejakou ukazku?
> Muselo by se vyzkouset, ktere reseni je efektivnejsi.
> Jaro
>
>
>
>
> IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.10.1998 12:26:58
Tady uz jsme v te spravne diskusi. Tvrde zamky jsou od toho, aby bylo
mozne zabranit po dobu editace, ze nekdo pod rukou nezmeni data.
To neni vhodne pro vetsi site. Reseni, ktere jsi naznacil zde, je
mnohem lepsi, i kdyz pracnejsi. Je potreba pred ulozenim dat zkontrolovat,
zda nekdo jiny nezmenil zatim data. Pak mohu nabidnout, pro kterou zmenu se
uzivatel rozhodne.
Problem s objednavkami ja resim pomoci rad dokladu a pristupovym pravem
k temto radam. Podle me je nepristupne, aby nekdo jiny menil to co ja
vytvoril a pod co
jsem se podepsal. Tim si take nebudeme jak pises lezt do zeli. A pokud nekdo
jiny
edituje jine polozky v me objednavce (napr. schvaleni, komentar a pod),
pak edituje jine polozky a ty moje pritom nezmeni. To se da vyresit ulozenou
procedurou
nebo napr. dalsim objektem UpdateSQL. Dalsi dosti uzivanou moznosti je
evidence (historie) vsech zmen, kdy vidim zpetne kdo, kdy a co zmenil
a mohu se pripadne k urcite zmene vratit. Je to opet ale pracnejsi. Nicmene
zpravidla
se takto neprogramuje vse, ale pouze urcite kriticke hodne sdilene casti
programu.
Jaro
Jaro.
Memo1
>Jaro wrote:
>
>> > [Martin Fronek] Nemam nic proti jine logice, jenze to by
>> >znamenalo v pripade kolize zahodit praci druheho klienta, a to si proste
>> >nemuzu dovolit.
>> ------
>> To nemusis.
>> ------
>
>Prosim tedy o vysvetleni jednoho problemku.
>Jak jsem tu uvadel priklad s Table, chtel jsem na nem prezentovat, ze jeden
>client pozna,
>ze mu nekdo pod rukou zmenil data - respektuje se ten, kdo zapise jako
prvni.
>Ten druhy se podiva, co prvni napsal a pak se samozrejme muze rozhodnout,
>ze to stejne prepise. Pokud jsem to takto neosetril, zustaly v IB udaje
toho
>2.clienta,
>a ten 1.client nemel sanci se o tom dovedet (no - asi by mohl pomoci
>EventAlerteru ci jak se to pise).
>Ale budis, v teto situaci chovani IB beru, umim si to ohlidat.
>Ale jak v nekolika prispevcich zaznelo, Table neni idealni.
>Sam jsem k tomu asi tak pred rokem taky dospel, radu dulezitych funkci jsem
muse
>predelat na Query.
>
>Tam ale uz neumim poznat, ze si dva clienti lezou do zeli - proste si to
>prepisou - ten posledni vyhrava.
>(To je ten problemek)
>
>A tam mi vznika maler. Vytvarim objednavku s generovanym klicem (modulo 7;
>priznavam, asi jsem mel vyuzit
>IB pro vygenerovani toho klice, treba by mi problem odpadl). Pak tuto vetu
>chnapnu do Query - protoze obecne
>editaci Objednavky mam pomoci Query (pres Table jsem se dodtal do
obrovskych
>casovych problemu radove pri 10000 vet). No a tim se mi muze stat, ze dva
>clienti budou opravovat stejnou vetu a vubec se to nedozvi. Muj zakaznik
>ale trval na tom, ze to je pro nej nepripustne. A argumenty, ze to vlastne
asi
>ani neni moc realne, nepomohly.
>Proto jsem pak uz temer ze zoufalstvi udelal alespon nejake pseudozamykani.
>Kdyby mi to IB pro Query rekla tak jako pro Table, byl bych rad. Nejspis
delam
>nekde chybu.
>
>====================================================
>Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
>__________________________________________________________
>Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
>http://www.ipl(tec)cz
>====================================================
>IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.10.1998 12:32:55
Ano, to je prada. Vzdy se najdou pripady, kdy to opodstatneni ma.
Jak tu uz nekdo psal, nutno posuzovat kazdy pripad samostatne.
Proto jsem tez napsal, ze by me dobre reseni tez zajimalo.
Jaro
------------------
>To je jasne, osobne by ma ani vo sne nenapadlo pouzivat "pesimisticke"
zamky
>prave z tychto dovodov. Chcel som len ponuknut nejake riesenie, pretoze,
>filozoficky je to sice nepripustne, ale verim, ze su v praxi pripady, ked
je
>potrebne zaznam tvrdo zamknut.
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>> Jaro
>> Sent: 11. okt�ber 1998 20:14
>> To: delphi-l(zv)fwd(tec)cz
>> Subject: Re: IB a sdileni
>>
>>
>> Ano pomoci transakci lze blokovat operace jinym uzivatelum.
>> To je ale presne ten problem o kterem jsem jiz psal v minulem prispevku.
>> Takto velmi rychle zablokujes cely seerver.
>> Jestlize bude po celou dobu editace nastartovana transakce, tak
>> je to dle meho nazoru dost silene reseni. Jedna sekretarka si odskoci
>> na obed aniz by uzavrela editacni formuklar = transakce neni uzavrena.
>> Dalsi operace jsou dlouhodobe blokovany. Potrebuje-li nejaky jiny proces
>> provest
>> napr. novy vypocet prumerne ceny na zaklade zcela jineho dokladu
>> (treba prijemky) pomoci nejake ulozene procedury na serveru, bude tato
>> transakce
>> blokovana otevrenou predchozi transakci. Kdyz bude existovat treba dvacet
>> uzivatelu,
>> tak se stane takovy program nefunkcni, aniz by nekdo odchazel na obed
>> od rozdelane prace.
>> Jaro
>>
>> --------
>>
>> >Napadaju ma dve riesenia, ale nie som si isty, ci niektore bude
fungovat.
>> >1.:
>> >- Nastartovat transakciu
>> >- Hned vykonat update, ktory data nezmeni ale mohol by zamknut prislusny
>> >record az do ukoncenia transakcie
>> >- vstup od uzivatela...
>> >- update, ktory zmodifikuje zaznam
>> >- ukoncenie transakcie, ak je moja uvaha spravna, tak tu by malo dojst k
>> >uvolneniu zaznamu
>> >2.:
>> >- Spustit SELECT ... FOR UPDATE s presne specifikovanou WHERE podmienkou
>> aby
>> >sa vybral len prislusny record
>> >- vstup od uzivatela...
>> >- vykonat UPDATE ... WHERE CURRENT OF <meno kurzoru> (tu vidim
>> problem, ako
>> >zistit meno pouziteho kurzoru, pretoze v BDE som nenasiel ziadnu
funkciu,
>> >ktora by vracala meno kurzoru, v krajnom pripade by sa to dalo zriesit
>> >storovanou procedurou, ktora by otvorila nejaky konkretne
>> pomenovany kurzor
>> >pre vyssie uvedeny select)
>> >
>> >Ak by druhe riesenie nefungovalo, este by som to skusil uzavriet do
>> >transakcie.
>> >Zial, tieto napady su len na teoretickej urovni, lebo IB
>> nepouzivam a teda
>> >som to nemohol vyskusat. Vobec netusim, ci take nieco vobec bude
>> fungovat.
>> >Ak hej, tak sa kazdopadne budem cudovat a tesit. Ak to budes skussat,
tak
>> >daj vediet, ako to dopadlo...
>> >
>> >S pozdravom
>> > Lubo Fule
>> >
>> >> -----Original Message-----
>> >> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>> >> Martin Fron�k
>> >> Sent: 11. okt�ber 1998 16:06
>> >> To: 'delphi-l(zv)fwd(tec)cz'
>> >> Subject: RE: IB a sdileni
>> >>
>> >>
>> >> Hi,
>> >>
>> >>
>> >> 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: Jaro [SMTP:jaro(zv)sinea(tec)cz]
>> >> > Odesl�no: 09. ��jna 1998 21:25
>> >> > Komu: delphi-l(zv)fwd(tec)cz
>> >> > P�edm�t: Re: IB a sdileni
>> >> >
>> >> > >Pokud pracujes s Table, to jeste jde:
>> >> > -------
>> >> >
>> >> > Pristupovat k IB nebo k jinem serverum pomoci TTable
>> >> > neni stastn� �e�en� a ur�it je pro C/S programy malo vhodne
>> >> >
>> >> [Martin Fron�k] O vhodnosti pristupu k serveru pres TTable ci
>> >> TQuery je myslim zbytecne se bavit, zalezi na situaci.
>> >>
>> >> > -------
>> >> > >Ale pokud se jedna o CashedUpdated Query, jsem v koncich.
>> Tam jsem to
>> >> > umel
>> >> > >vyresit jen tak, ze mam pole USER a v nem je zn.operatora a v
>> >> > pripade, ze
>> >> > >s danou vetou pracuje, dam tam jeste jeden specialni znak navic -
>> >> > t.j. pro
>> >> > >ostatni dam takto dosti stupidne najevo, ze veta je MOJE. Ale
>> >> > samotnemu se
>> >> > >mi to nelibi. Kolega to resil tak, ze mel spec.Table, do
>> ktereho jako
>> >> > do
>> >> > >zasobniku zanacil klice editovanych=zamcenych vet. Stejne malo
>> >> > elegantni.
>> >> > >Na to, jaky stroj IB asi je, mi to pripada nesikovne. Sam bych byl
>> >> > vdecen
>> >> > >za lepsi reseni
>> >> > -------
>> >> > 1. Princip zamku na server neni jen problem IB. Vetsina serveru to
>> >> > resi
>> >> > obdobne. Predpoklada se totiz, ze k serveru pristupuji desitky i
>> >> > stovky
>> >> > klientu a s tvrdymi zamky by se server nedostal daleko. Krome jineho
>> >> > by
>> >> > doslo k blokaci transakci. Servery jsou na transakcich postaveny.
>> >> > Proste to
>> >> > tam funguje trochu jinak a program vytvoreny na serveru zpravdla
>> >> > potrebuje
>> >> > trochu jinou logiku prace.
>> >> >
>> >> [Martin Fron�k] Nemam nic proti jine logice, jenze to by
>> >> znamenalo v pripade kolize zahodit praci druheho klienta, a to
>> si proste
>> >> nemuzu dovolit.
>> >>
>> >> > 2. Obe navrhovana reseni jsou teoreticky mozna, ale maji jeden velky
>> >> > zadrhel. Pokud klient odpadne (treba zatuhne), bude se zaznam trvale
>> >> > jevit
>> >> > jako blokovan jinym uzivatelem
>> >> > Jaro
>> >> >
>> >> [Martin Fron�k] Princip zamku - to je ten problem, nekdy by
>> >> vyvojar potreboval tvrdy zamek, je skoda, ze se na to pri
>> vyvoji serveru
>> >> (konkretne IB) nejak pozapomnelo....
>> >> Jenze to tak je. Proto je treba nalezt reseni.Princip zapisu
>> >> cehokoliv do databaze je nevhodny prave z duvodu nemoznosti
>> overeni, zda
>> >> konkretni drzitel zamku je jeste "nazivu" - v tomto plne
>> souhlasim Jaro.
>> >> Ale to nic neresi, stejne jako prohlaseni, ze servery jsou postaveny
na
>> >> transakcich (bez urazky - to neni zadna novinka). Spis je treba nalezt
>> >> reseni, protoze zde vznika tato potreba. Mam jeden navrh, neni asi
>> >> elegantni, ale je mozny. Pouziti principu sitoveho semaforu, ktery
jsem
>> >> zde pred casem prezentoval. V tomto pripade by bylo nutne ho upravit,
a
>> >> to tak, aby archivoval pro kazdou danou tabulku uzamcene vety
>> a kym jsou
>> >> uzamceny, a v pripade pozadavku pristupu na uzamceny objekt overil
>> >> platnost zamku u klienta. Prave se chystam upravovat serverovou cast
>> >> semaforu, mam vyzkouseno, ze i pri hledani v 1 000 000 !!! uzamcenych
>> >> vet je casova prodleva zanedbatelna(=nema cenu ji merit, jsou to
takrka
>> >> nemeritelne hodnoty), takze jen zbyva to trochu zprehlednit.
>> Pro ostatni
>> >> zajemce: Pouzivam na to "set" z Rogue wave Standart Template Library -
>> >> (to je z C++). Tohle udelatko je silne objektove a vykona skoro
vsechno
>> >> za vas. Udrzuje serazeny seznam zadanych hodnot(vylucuje
>> duplicity) a ma
>> >> to skvele reseny iterator find (na nem to stoji). O zbytek
(komunikace)
>> >> se stara komponenta wsock120 (porad na ni nedam dopustit - i
>> ve srovnani
>> >> s F.Piette). To jen pro informaci pro ty, kdoz by se o neco podobneho
>> >> taktez chteli pokusit. Skoda jen, ze se timhle musi zabyvat vyvojar,
>> >> mohlo to byt uz hotove v IB :-(((
>> >> Z tohoto popisu je jasne, ze se nejedna o elegantni reseni, ale
>> >> poskytuje pozadovany efekt. Ma-li nekdo ciste reseni jen s pouzitim
IB,
>> >> sem s nim. Pokud se nebude ostatnim zdat toto tema offt, uvitam sirsi
>> >> diskuzi.
>> >>
>>CHM soubory
[*] Filip Jirsak <JIRSAK(zv)gymnacel(tec)cz> - 12.10.1998 12:40:27
> From: Self <MAIN/JIRSAK>
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: CHM soubory
> Date sent: Mon, 12 Oct 1998 10:38:24
> Nevim, zda vam tim pomuzu, ale mam doma program od Microsoftu na
> vytvareni napovedy ala HTML. Myslim, ze byl na nejakem z poslednich
> CD z CHIPu. Pokud by mel nekdo zajem, muzu vam to poslat. Bohuzel
> nevim, jak je to velke, nemam to tady ale doma.
> Filip Jirsak
Zkus http://sunsite.icm.edu.pl/delphi/ftp/d30free/bmhhelp.zip.
Melo by to byt i se zdrojem komponenty, zdroj knihovny DLL je pry za
$30.
Filip Jirsak
>
> > From: "Zdenek Drvota" <zds(zv)pce.fairnet(tec)cz>
> > Organization: ZDS, spol. s r. o.
> > To: delphi-l(zv)fwd(tec)cz
> > Date sent: Sun, 11 Oct 1998 21:32:18 +0100
> > Subject: Re: CHM soubory
> > Send reply to: delphi-l(zv)fwd(tec)cz
>
> > Pripojuji se, take by mne to zajimalo.
> > > Omlouvam se za otazku, ktera je v teto konferenci mozna
> > > ponekud mimo misu: nevite nahodou nekdo, jak se vytvari
> > > CHM soubory (compiled HTML files), tj. napoveda Win98
> > > ala HTML.
> > >
> > > Patrik Sladecek
> > > pasla(zv)iname.com
> > >
> > >
> > >
> > *-----------------------------------------------*
> > 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
> > *-----------------------------------------------*
> >
>
e-mail: Jirsak(zv)gymnacel(tec)cz
IB a sdileni
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.10.1998 12:46:17
> [Martin Fron�k] Prave - zde se uplatni vyvojarem definovane
>chovani zamku, kdy je mozne uzivatele upozornit (pri necinnosti), aby
>bud neco delal, nebo ukoncil editaci. Pokud bude i nadale neaktivni
>(dlabe zrovna rizek, sel se vycurat...) tak se mu ta jeho prace da
>schovat, zamek uvolnit, a pokud mezi tim nedoslo ke zmene, po navratu
>zamek znovu vystavit a v praci pokracovat, nebo sdelit uzivateli, ze ma
>bohuzel smulu a musi to udelat znovu (ocekavam minimum takovych pripadu)
>> Ja to vetsinou vyresil promyslenou koncepci pristupovych prav pripadne
>> az na uroven jednotlivych polozek.
---------
Super. Neslo by z toho udelat DLL?
--------
> [Martin Fron�k] To nechapu.
--------
Myslel jsem, kdyz edituju urcite polozky do nihz mam pristup,
pak nemusim menit cely zznam a v urcitych pripadech pak potreba zamku
odpadne.
Nechci to ale rozvadet - to je na dlouhe diskuse.
--------
>> Mimochodem Delphi obsahuje objekt TIBEventAlerter, ktery by se dal
>> pouzit zrejme i na tuto problematiku. (Samples)
>> Posle vsem klientum informaci o tom, ze si nekdo vyhrazuje pouzivani
>> urciteho zaznamu nebo naopak.
> [Martin Fron�k] Jak? Mohu pozadat o nejakou ukazku?
------
Ja to jako nahradu zamku jeste nezkousel, ale myslim, ze by to slo pouzit.
Ani nemuhu (jak jsem psal) rici, zda by to bylo lepsi.
Musel bych se o nejaky priklad pokusit. Bohuzel ted na to nemam moc casu.
Jaro
Delphi 4, BDE 5.0 a tabulky FoxPro -> pozor na BDE
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 12:51:46
Hi,
na strankach inprise se nachazi toto:
All versions of the 32 Bit BDE are backward compatible. Almost any 32
Bit Borland product can take advantage of the new features of BDE 5.
IMPORTANT NOTE: BDE 5 has not been certified for Visual dBASE or
Intrabuilder. Using BDE 5 with these products is not recommended, and is
not supported by Inprise at the time.
nevim, zda se to primo dotyka tohoto problemu, ale neco to o BDE5
vypovida........
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: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 12. ��jna 1998 11:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Delphi 4, BDE 5.0 a tabulky FoxPro -> pozor na BDE
> 5.0
>
> > Jan Fiala wrote:
> >
> > Pokud mas vetsi tabulku FoxPro a delas nekolik dotazu tak je BDE
> celkem
> > nepouzitelne, protoze tuhne. Ja jsem to zkousel na tabulce (asi 70
> 000 zaznamu
> > - polozky faktur) a pri jednoduchem dotazu na vyber polozek jedne
> faktury to
> > pravidelne zatuhlo. Takze to resim tak, ze pracuji s tabulkou a
> nedelem SQL.
>
> Kdyz ono tu tuhne i pri jednom dotazu. Zkoumal jsem to ted vic a
> dospel jsem
> k nazoru ze chyba je jednoznacne v BDE 5.0. Pokud k tomu prictu i
> chyby v D4 a
> to i po pouziti patche tak je asi nejvyssi cas aby se Inprise
> vzpamatoval a neco
> s tim udelal. Zkousel jsem totez i s D2 a BDE 4.51, tam to funguje bez
> problemu.
>
> Narazil jsem pri tom i na dalsi problem (ten se projevuje jak v BDE
> 5.0 tak v
> 4.51). Pokud Foxpro tabulka mela index a tento indexovy soubor se
> smazal tak pri
> otevreni BDE nabidne moznost opravy (Open and Detach), ale zaroven
> pritom poskodi
> hlavicku a cast dat. To lze ale obejit tim ze se prislusna hodnota v
> hlavicce
> zmeni jeste pred otevrenim.
>
> --
> Petr Vones, amatersky
> programator
MS SQL 6.5 a autoinc polozka
[*] mbartone(zv)Synthesia(tec)cz - 12.10.1998 13:51:44
Ahoj
Pokousim se prejit z Paradox tabulek na MS SQL. 6.5
Poradte mi prosim jak nejlepe vytvorit autoincrementalni polozku pri
INSERTu.
Asi je to pre TRIGGER, ale nevim jak by mel vypadat.
Dekuji Milan
tentokrat bez ikonky
[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 12.10.1998 14:31:55
Nazdar
Predem bych chtel podekovat za pomoc s "malou ikonkou".
Nyni bych zase potreboval vedet, jak udelat aplikaci, ktera nema ikonku
a jeji pritomnost se da zjistit pouze po stisku Ctrl-Alt-Delete ve Win95 a
ve Win 3.x skoro nijak. (Dela to treba Mwavtsr od M$.)
diky za jakekoliv tipy
IB a sdileni
[*] ing.Da�a Ale� - 12.10.1998 15:23:25
Hi
Na OOP.com jsem nasel nektere zajimave veci. Je tam i pojednani o uzamykani
table (objekt T_BizObj), ale ani pouzivaji TTable a promennou v tabulce. Pro
TQuery se da pouzit cast kodu od Charli Calverta, ktery upozorni co se z
puvodni vetou stalo a jaka akce se ma na vetu aplikovat. Na zjisteni
uzamknuti by slo pouzit TIBEventAlerter a v IB vygenerovat v prislusnem
triggeru Post_Event.
Ales Dana
adasoft(zv)svit.com
-----P�vodn� zpr�va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. ��jna 1998 14:43
P�edm�t: Re: IB a sdileni
> [Martin Fron�k] Prave - zde se uplatni vyvojarem definovane
>chovani zamku, kdy je mozne uzivatele upozornit (pri necinnosti), aby
>bud neco delal, nebo ukoncil editaci. Pokud bude i nadale neaktivni
>(dlabe zrovna rizek, sel se vycurat...) tak se mu ta jeho prace da
>schovat, zamek uvolnit, a pokud mezi tim nedoslo ke zmene, po navratu
>zamek znovu vystavit a v praci pokracovat, nebo sdelit uzivateli, ze ma
>bohuzel smulu a musi to udelat znovu (ocekavam minimum takovych pripadu)
>> Ja to vetsinou vyresil promyslenou koncepci pristupovych prav pripadne
>> az na uroven jednotlivych polozek.
---------
Super. Neslo by z toho udelat DLL?
--------
> [Martin Fron�k] To nechapu.
--------
Myslel jsem, kdyz edituju urcite polozky do nihz mam pristup,
pak nemusim menit cely zznam a v urcitych pripadech pak potreba zamku
odpadne.
Nechci to ale rozvadet - to je na dlouhe diskuse.
--------
>> Mimochodem Delphi obsahuje objekt TIBEventAlerter, ktery by se dal
>> pouzit zrejme i na tuto problematiku. (Samples)
>> Posle vsem klientum informaci o tom, ze si nekdo vyhrazuje pouzivani
>> urciteho zaznamu nebo naopak.
> [Martin Fron�k] Jak? Mohu pozadat o nejakou ukazku?
------
Ja to jako nahradu zamku jeste nezkousel, ale myslim, ze by to slo pouzit.
Ani nemuhu (jak jsem psal) rici, zda by to bylo lepsi.
Musel bych se o nejaky priklad pokusit. Bohuzel ted na to nemam moc casu.
Jaro
literatura
[*] Miki <XMIKULEC(zv)dinf.fsv.cvut(tec)cz> - 12.10.1998 16:17:52 met dst
Zdravim,
nevite nahodou nekdo o nejake opravdu dobre literature o programovani
v Delphi pro stredne pokrocileho zacatecnika??? Preferuji cesky jazyk.
diky
Miki
xmikulec(zv)kii.fsv.cvut(tec)cz
tentokrat bez ikonky
[*] V�t�zslav Gazda������u��n�?��? - 12.10.1998 16:31:48
Pokud pouzivas moji komponentu TTryIcon tak ti doporucuji precist si muj
clanek k teto problematice "Jak vytvo�it aplikaci, kter� m� ikonu v
informa�n�m pruhu �loh". Kdysi byl tento clanek zverejnen i na Builderu,
nyni ho vsak najdes jen na mych strankach http://www.tda(tec)cz/vita/ . Je tam i
ukazkova aplikace.
Vita
Predani TStringList jako parametru
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 12.10.1998 17:53:04
> No vzdyt ti nenadavam a zmatenej nejsem - ty dve vety se nevylucuji,
> pletes si pojmy = upsal ses. Nebo ne?
:-) ja jsem nerikal, ze mi nadavas, ale bud
- tomu moc nerozumim=pletu si pojmy
NEBO
- myslel jsem "A", ale napsal "B"=upsal jsem se
To jen na vysvetlenou, vono z hlediska cestecne parcialni negace
hyperprostoru je to uplne jedno :-)))
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Clipboard a RxCheckListBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 17:57:48
Bene� Jaroslav wrote:
>
> Ahoj vsem,
> prosim o radu, potrebuji z RxCheckListBox zkopirovat vybrany (check)
> text do clipboardu a potrebuji to udelat tak, jak je to zobrazovano
> (pouzivam dynamicke zobrazeno tj. nezobrazuji vsechno, ale jen to, co je
> momentalne potreba). Funkce AsText umi pouze retezec do 255 znaku. Dekuji za
> kazdou radu.
Ahoj,
nepises jakou pouzivas verzi Delphi, ale patrne asi 16bit, protoze od D2 muzes
pomoci AsText predavat libovolne dlouhe stringy. V D1 to budes mit trochu
slozitejsi (s daty nad 64k uz je to pak hruzostrasnost), dany retezec udelej
jako PChar a pak muzes pouzit metodu Clipboard.SetTextBuf (doufam ze tam je,
D1 tu nemam :-).
--
Petr Vones, amatersky programator
CHM soubory
[*] Patrik Sl�de�ek�����%g��jgr� - 12.10.1998 18:13:12
D�ky panu Jirs�kovi jsem ten n�stroj pro tvorbu n�pov�dy pro Win98
na�el: je to na CHIP CD 7/98, soubor G:\sharewar\htmlhelp\htmlhelp.exe.
Je�t� jednou, d�ky moc.
Patrik Sl�de�ek
Predani TStringList jako parametru
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 12.10.1998 19:03:31
Panove, nejen cituji :
"vono z hlediska cestecne parcialni negace
hyperprostoru je to uplne jedno :-)))"
ale myslim si, ze je to jedno i z hlediska globalniho aspektu :-)
----------
Od: Kolar Lubor[SMTP:LuborK(zv)tnet(tec)cz]
Odesl�no: 12. ��jna 1998 17:53
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Predani TStringList jako parametru
> No vzdyt ti nenadavam a zmatenej nejsem - ty dve vety se nevylucuji,
> pletes si pojmy = upsal ses. Nebo ne?
:-) ja jsem nerikal, ze mi nadavas, ale bud
- tomu moc nerozumim=pletu si pojmy
NEBO
- myslel jsem "A", ale napsal "B"=upsal jsem se
To jen na vysvetlenou, vono z hlediska cestecne parcialni negace
hyperprostoru je to uplne jedno :-)))
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
MS SQL 6.5 a autoinc polozka
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 12.10.1998 19:39:13
>Ahoj
>
>Pokousim se prejit z Paradox tabulek na MS SQL. 6.5
>Poradte mi prosim jak nejlepe vytvorit autoincrementalni polozku pri
>INSERTu.
>Asi je to pre TRIGGER, ale nevim jak by mel vypadat.
>
>Dekuji Milan
>
Na autoinkrementacni pole neni treba trigger,
staci jen
CREATE TABLE dbo.tabulka ( ID int IDENTITY (1, 1) NOT NULL )
pro autoinkrementacni polozky plati
- typ polozky muze byt int, smallint, tinyint
- polozka musi byt NOT NULL
- do polozky se nesmi nikdy zapisovat
- IDENTITY (1000, 2) znamena, ze se bude cislovat od cisla 1000 s
prirustkem 2 (1000, 1002, 1004, 1006 ...)
jonas(zv)jia(tec)czn(tec)cz
cas a datum slozky a souboru
[*] PROFIA s.r.o. <profia(zv)post(tec)cz> - 12.10.1998 19:44:24
Poradte nekdo jak zjistit datum a cas vzniku slo�ky-adresare a souboru v nem se nalezajicim v DELPHI4. DIKY KROKODYL- profia(zv)post(tec)cz
MS SQL 6.5 a autoinc polozka
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.10.1998 20:47:56
Marian Jonas wrote:
> pro autoinkrementacni polozky plati
> - typ polozky muze byt int, smallint, tinyint
Jen pro upresneni - taky number
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 =
==============================================================