Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
WinZip komponenty (WAS: 95 or NT)
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 3.3.1999 13:45:22
Ja bych mel zajem.
Diky=20
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+
> -----Original Message-----
> From: Mal=FD Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Wednesday, March 03, 1999 12:18 PM
> To: #Delphi-K
> Subject: WinZip komponenty (WAS: 95 or NT)
>=20
> Je Vas vice, kteri by ji chteli, taxem ji chtel umistit na=20
> ftp konference,
> a v tomto duchu jsem maily se zadosti o ni vymazaval a chtel jsem dat
> do konference na vedomi, kde ji najdete, ale bohuzel se na ftp vubec
> nedostanu a k uploadu uz vubec ne, proto ji poslu vsem, kteri=20
> si pozadaji
> mailem a vyzyvam Vas timto, aby jste mi napsali znovu... (ma=20
> to cca 200kB
> a je to pro D1-3 a CB)
>=20
> Nekteri se take ptali, na kterem Chip CD vysla, to nevim, tridim si
> komponenty podle charakteru... takze bohuzel...
>=20
> Tomasovi ji posilam rovnou...
>=20
> Dobra.
>=20
>=20
> BTW: Pro Ty, kteri nevedi wo co go, pre-posilam temer cele dopisy.
>=20
TTable a indexy
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 3.3.1999 13:51:24
Ahojte.
mam zase jeden zacatecnicky problem.
Table1.TableName:=3DPom;
Table1.TableType:=3DttFoxpro;
if not FileExists(copy(Pom,1,length(pom)-3)+'MDX') then
begin
Table1.AddIndex('PRIDELE','PRIDELE',[]);
// tady vytvorim index, ale pouze, jestlize je odstranen odkaz na index z
tabulky =3D nove vytvorena tabulka bez indexu
// pokud uzivatel nejakym zpusobem index smaze, kousne se to pri oteviran=
i
Table1
end;
Table1.Open;
Prosim o radu:
1) jak lze otevrit tabulku, ve ktere je odkaz na index, jeli index soubor
smazan ?
(ja jsem myslel, ze ho vytvori fci AddIndex(..) pokazde )
(=20
2) jak se provadi update indexu (nebo BDE kdyz zjisti, ze index neodpovid=
a databazi, updatne automaticky - napr. po vypadku proudu, kdyz je tabul=
ka otevrena,...) neboli "reindex" ?
3) opravuji sve puvodni prohlaseni:
a) pri volani Table1.CreateTable pro 1) Table1.TableType:=3DttFoxpro
2) nade=
finovane Table1.IndexDefs
se vytvori index *.CDX
b) pri volani fce Table1.AddIndex('PRIDELE','PRIDELE',[]); (m=
uj pripad)
se vytvori index *.MDX
Na cem zalezi pri vytvareni extenze indexu, proc jednou vytvori *.M=
DX a podruhe *.CDX, kdyz je tabulka furt stejneho typu?
=20
D=EDky
Petr=20
p.sadovsky(zv)atlas(tec)cz
WinZip komponenty (WAS: 95 or NT)
[*] Tom� R��i�ka - 3.3.1999 13:52:04
Prosim prosim, posli mi je taky.
Diky moc
*************************
Tomas Ruzicka
ruzicka(zv)com-tech(tec)cz
Dos okno
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 3.3.1999 13:58:28
>>Potrebuju spoustet dosovske aplikace z Delphi.
>>pouzivam - executefile (fmxutils) a mam s tim ten problem, ze
>>se otevre dos okno, program se provede, ale okno se hned zase zavre
>>a ja nemam pristup k hlaskam, ktere program vyprodukoval, pota=BEmo
nevim jak
>>skoncil.
>>Prosim odborniky, nen=ED nejak=FD zp=F9sob, jak spustit ten program v m=
em
>vlastnim
>>okne, nebo zachytavat jeho vystupy ?
>
>
>udelej si ve Win zastupce, nezaskrtni zavrit po ukonceni a okno by ti
melo
>zustat na obrazovce. Programek muzes spoustet standardni funkci
WinExec
No a nebo udelat batacek:
nejaky_program
pause
no a spoustet command (w3.11,w95,w97.9) a jako parametr mu vrazit ten
batak :-)
hm. nebo na NT to bylo "cmd"... :-)
V nekterych pripadech je to spolehlivejsi, protoze nektere aplikace
(mj. nektere patche) chteji byt spousteny z dosu a nevim proc jim
win.>start> sputit....(nebo spusteni z exploreru) nestaci :-(
Mti.obnova zmazanych zaznamov
[*] iturcan(zv)gamo.sk - 3.3.1999 14:12:18
Hi ,
Pre zmenu mam jednu otazocku:
Jestvuje nejaka moznost , ako obnovit v Access tabulke zaznamy ktore su
zmazane, predpokladam ze
access si zmazanu vetu oznaci priznakom a potom ju pri packtable zrusi z
DB. Cize hladam moznost ako priznak odstranit.
Ivan Turcan
Invalid floating point op.
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 3.3.1999 14:13:33
StrToDate (a naopak) by melo fungovat na zaklade aktualniho nastaveni Sys=
Utils.ShortDateFormat.
Nezkoumal jsem, odkud se to v teto unite inicializuje, ale hlavne to jde =
menit.
Honza Sebelik
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Marek Soukup <marek(zv)comberg.com>
> Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
> P=F8edm=ECt: Invalid floating point op.
> Datum: 3. b=F8ezna 1999 10:14
>=20
> Helou,
> mam problem pro debugrovani (Delphi3) mi nejde prevest nektery datum na
> string.
> Napr.
> var
> Text: string;
> Datum: TDateTime;
> proc Nejaka;
> Date:=3D StrToDate ('1.1.1998');
> Datum:=3D DateToStr (Date); no a tady na tom radku to zarve %subj%
> chybu, ale pouze v debugru, kdyz to pustim tak je to v pohode.
>=20
> Dela mi to na dvou strojich a jedine co me napada jsou RX Library (jsou
> na obou), protoze kamosovi bez RX to nedela.
>=20
> Marek Soukup
elementarny problem s C/S
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 3.3.1999 14:29:09
> > viem ze je to elementarna vec, ale nakolko som este CS nikdy nerobil ... :
> >
Zbysek (viz nize) ma pravdu. Bohuzel ma pravdu take v tom, ze jeho reseni je "programatorsky dost pracne".
Ja bych v tomto pripade prijal optimisticke zamykani (bez prace) a o problem bych se zacal starat az tehdy, kdyz to nejde ulozit: "Record changed by another user".
Pak muzu uzivateli rici:
Hele, nekdo ti na to sahnul, tak se rozhodni, co s tim mam udelat.
Mam prosadit tvoji nebo se chces mrknout, co tam kdo zmenil?
Mimochodem TClientDataSet (resp. IProvider) to dela sam moc pekne (OnReconcileError). Ale to muze zase znamenat problem s licenci na MIDAS (ale nemusi).
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931
=========================================
> Prave ze to az tak elementarni neni. Nejdrive je treba vyresit, co je
> to za databazi. Souborova? Ta zamyka pesimisticky, takze kdo
> driv prijde, ten driv mele. SQL? Pak je treba rozlisit, jaka
> konkretne, jak je zamcena (TTable a TQuery moc moznosti v tomto
> smeru neposkytuji), optimisticky (obvykle default), pesimisticky?
> Pak vyhrava ten, kdo driv ulozi (u optimistickeho zamku).
>
> Standardni komponenty vsak neumoznuji pretlouct predchozi
> zapis, takze jako vyhodnejsi vidim tento postup: editovani hodit do
> zvlastniho okna, mimo databazove komponenty. Tam v klidu
> editovat, a teprve az v okamziku ukladani se starat, zda nebyl
> zaznam zmenen. Je to vsak programatorsky dost pracne.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Instalator pro Delphi 1
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 3.3.1999 14:33:32
> A v Delphi 1 sa daji pouzivat Dbi... funkce?
> Jestli ano, jak ziskam jejich popis?
> Jestli ne, jak teda vytvorim alias a ziskam
> seznam uz vytvorenych?
Pres Dbi to jde, ale ja bych po urcitych zkusenostech i cetnych debatach preferoval pripojeni k databazi nikoli pres alias, ale pres TDatabase.
Database.DriverName:=???
Database.Params:=??? (PATH, SERVER NAME, USER NAME, PASSWORD, ...)
Database.LoginPrompt:=false;
a je to snadno a bez nebezpeci, ze mi do konfigurace aliasu nekdo sahne.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931
=========================================
Property neexistuje ?!
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 03.3.1999 14:34:48
caves,
vytvoril som komponentu ako potomka TCustomControl, pricom som dal ako
published vsetky nevyhnutne veci, VRATANE color. komponentu som v poriadku
nainstaloval a v design dal na formu - property color bola normalne default
(clBtnFace). ked som ale chcel spustit program, cele mi to skoncilo na ..
property does not exists txxx.color! pritom v object inspectore ju vidim,
mam ju deklarovanu ... akurat "neexistuje" ...
nemate niekto napad, co s tym?
cele to chodi na d4 +patch3+winnt+sp4
vdaka
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
rowid
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 3.3.1999 14:35:16
> Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v Oracl=
i pole rowid=20
Pokud je mi znamo, tak nic takoveho v InterBase neni.
Ale zase bych se musel zeptat PROC? (Jako nedavno, kdyz chtel nekdo posle=
dnich 20 radku z tabulky).
Omlouvam se:
a)
InterBase je relacni databaze. Relace je podmnozina kartezskeho soucinu. =
Tak jake rowid na teto podmnozine.
b)
Udelam-li poctive datovy model, urcite mi tam nejaky identifikacni atribu=
t (primarni klic) vyleze.
Honza Sebelik
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Peter Hudec <pietro(zv)proces.sk>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: rowid
> Datum: 3. b=F8ezna 1999 10:54
>=20
> Nazdar nazdar.
>=20
> Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v Oracl=
i
> pole
> rowid (jednoznacna identifikacia riadku), bez doplnania vlastnych
> stlpcov. ?
>=20
> Thanx.
> Peter.
rowid
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 03.3.1999 14:39:34
Nie je to celkom tak.
Vyvijame pre produkty pre viacere databazove servre a ide o
to ako najjednoduchsie osetrit TQuery.Refresh. Cez
Close->Open je to sice fajn, ale ked mate v Gride viac
zaznamov, ste nastaveny v strede, tak je to dost neprijemne
opat hladat ten svoj zaznam. Na Oracle a Informixe je to
vzhladom na RowId jednoduche, ale co robit s IB?
S pozdravom svetu mier
Martin
iturcan(zv)gamo.sk wrote:
>
> Zdravim Proces,...
>
> Ak som to pochopil spravne, treba urobit generator, na prislusnu tabulku
> zavesit trigger na beforeinsert
> a do tela tohoto trigera napisat obsadenie prislusneho pola z generatora.
>> Nazdar nazdar.
>>
>> Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v >>Oracli
>> pole
>> rowid (jednoznacna identifikacia riadku), bez doplnania vlastnych
>> stlpcov. ?
>>
>> Thanx.
>> Peter.
Xakru... (ZipKomp)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.3.1999 14:49:20
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ja jsem ale debil... fakt... ja ten balik poslal
do konference... je mi to lito..., hlavne ze vzdycky
nejvic kecam... dal jsem zkratka Reply...a nezkontroloval
ze to neprislo primo na muj mail ale do konference.
Jeste jednou sorry.
Privilegia
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 03.3.1999 15:18:34
Odpovedel jsi si sam, jde o privilegia. Podivej se do Win32 SDK
helpu na Privileges (nebo napr. na funkci adjustTokenPrivileges).
Ondrej Krajicek
David Hrbac wrote:
>
> Hledam zpusob jakym zjistit, zda uzivatel v NT ma pravo zmenit nastaveni
> casu a nedari se. Zatim jsem to delal tak, ze jsem kontroloval zda uzivatel
> je clen admin skupiny.
> Za kazde nakopnuti spravnym smerem diky.
> David Hrbac
Deleni nulou (WAS : Martin =?iso-8859-1?Q?Fron=ECk
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 03.3.1999 15:23:09
Ze ty mas nadupanou masinu, co ? Stahni si patch, tohle je=20
tzv. Pentium II Bug a na www.borland.com by mely byt odkazy
na nejake patche.
Ondrej Krajicek
Mal=FD Dobromil wrote:
>=20
> Viktore, jdi k sipku... Podle Tveho milu jsi odtamtud mozna Ty. Navic,
> i kdyby byl, co Ti je po tom. Zluci jsi hnul ted Ty me. Myslim, ze dals=
i
> komentar je zbytecny.
>=20
> Vyzyvam Vas vsechny (jmenem civilizace :-), nechte uz toho a pojdme
> diskutovat o Delphi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>=20
> Mam tu hned jeden problem, neni to zrovna Delphi, je to Borland Pascal
> 7.0;
> pokud pouziju v projektu, totiz v programu (uz jsem zblblej), unitu CRT=
,
> program se normalne prelozit da, ale nejde spustit (ze pry deleni nulou
> :-(
>=20
> Nevite cim to ?
>=20
> /mam novy HDD, rozdeleny na cca 3x 2,1GB a zapnul jsem "spravu velkych
> disku",
> nemohlo by to byt tim ?/
>=20
> Dobra.
> > ----------
> > Od: viktor.lostak(zv)chmi(tec)cz[SMTP:viktor.lostak(zv)chmi(tec)cz] za
> > Viktor.Lostak(zv)chmi(tec)cz[SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> > Odesl=E1no: 3. b=F8ezna 1999 9:36
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P=F8edm=ECt: Martin Fron=ECk je z Telecomu!
> >
> > Udelal jsem objev: Martin Fronek je z Telecomu! Proto on pise ty
> > schvalne provokativni nesmysly, ktere komukoli rozumnemu musi nutne
> > poradne hnout zluci, abychom s nim polemizovali a posilaly majly a
> > samozrejme tim (alespon ti chudsi, co maji komutovanou linku)
> > podporili Telecom! Je to uplne jasne... On je to takovy zakuklenec, c=
o
> > si vzdycky precte neco v konferenci a pak dlouho (?) premysli, co
> > nejidiotstejsiho by k tomu napsal, aby vsechny vytocil a aby se kseft=
y
> > monopolu trochu hnuly. A ze se mu to dari!
> >
> > Pak je tu jeste moznost, ze ma nejakou smlouvu se zdravotniky, protoz=
e
> > nekdy mam dojem, ze z tech jeho zblebu dostanu infarkt. A jak tak
> > koukam, nejsem sam.
> >
> > Viktor
> >
> >
> >
Desetinna tecka v AsFloat nefunguje
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 3.3.1999 15:42:20
>
> Nevite, co s tim? (Neradte mi zmenit desetinnou tecku na desetinnou
> carku)
Co takhle promenna DecimalSeparator?
Tom
Owner draw menu v D3 ?
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 3.3.1999 15:53:31
>
> ...a pak i to rucni vykreslovani (odchytit WM_DRAWITEM) na W98
> fungovalo. Jenze jenom pro prvni tri polozky, pro dalsi ani omylem. Taky
> musela byt zapnuta optimalizace, jinak funkce GetMenuItemInfo vracela
Mlhave si vzpominam, ze tam bylo potreba nejdriv odchytit
neco jako WM_MEASUREITEM a nastavit velikosti tech polozek.
Jestli tohle nedelas, je mozne, ze tam je nastavena
nejaka divna velikost (treba 0), pro kterou to nevola. Hadam.
Tom
Delphi z USA - kacirska myslenka
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 3.3.1999 16:28:09
Hi,
-----P=F9vodn=ED zpr=E1va-----
Od: Milan CERMAK <Milan.Cermak(zv)vtupv(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. b=F8ezna 1999 14:20
P=F8edm=ECt: Re: Delphi z USA
> Vzhledem k tomu, ze dotazu na ceny Inprise produktu primo z USA
> prislo tolik, ze bychom tezko odpovedeli vsem v rozumne dobe, zverejnim=
e
> ceny na www. Az bude stranka pristupna dame vedet adresu.
> Timto se take omlouvam vsem kdoz poslali dotaz a nedostali odpoved.
pokud je zajem opravdu velky, nestalo by za to uvazovat zridit regulerni
bussines kolem dovozu produktu Inprise do CR? Co vim, tak americke firmy
hodnoti mezirocni rust obratu a zadne darmozrouty nikde moc dlouho
nepodporuji. Takze kdybyste zahybali s obchodem s jejich produkty, myslim=
,
ze by mohla existovat realna sance, ze by vam to distributorstvi posvetil=
i.
Ostatne, nebyl by to prvni pripad, kdy nejaka firma v CR v oblasti IT pri=
sla
o distributorstvi z duvodu zkomirajiciho obratu, i kdyz pravda, netykalo =
se
primo jejich afiliace, ale kdo vi....
A kdybyste se do toho nahodou pustili, muzete zacit rovnou s tim, ze vyro=
bek
dodavany na trh musi mit ceskou dokumentaci, coz Inprise AFAIK nema, na
rozdil napr. od VO od Computer Associates :-)))
bye, pf
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.3.1999 16:51:46
iturcan(zv)gamo.sk wrote:
> >:-) Ja take musim zivit sebe a rodinu. Komponenty si necham
> >zaplatit az v nejake aplikaci. Od Open Source si slibuji, ze budou
> >komponenty drive a lepe vyladene, nez kdybych si to susnil do
> >supliku, ze je tedy budu moci driv pouzit v komercni aplikaci, kde
> >se mi naklady na vyvoj vrati.
>
> To je otazka pohladu na celu vec,
:-) To zcela jiste.
> ja delim moje komponenty do dvoch kategorii
>
> a. v tejto kategorii su ostre verzie komponent, t.j. komercna zalezitost
> b. tu sa nachadzaju beta verzie (testovacie verzie) komponent, ktore
> zaslem na poziadanie zadarmo
> Jediny rozdiel je vo vypise info boxu informujuceho o beta verzii.
Ja jsem dosel k zaveru, ze pokus prodavat samotne komponenty
neni zrovna napad na uziveni se, zejmena ne pro jednotlivce, ktery
nezvladne masivne prodavat po celem svete. Protoze - takovou
snahu budto pretluce vetsi firma, nebo vyrobci free komponent.
Nebo si programator udela totez sam.
Naopak povazuji za vhodnejsi prodavat hotove programy, ktere jsou
z tech komponent sestaveny.
Kdyz si delam komponenty sam, trva to dost dlouho, zejmena
jejich testovani. Proto povazuji za rozumne pro vyrobu komponent
zverejnit i jejich zdroj s tim, ze nekdo muze resit stejny problem a
muzeme tedy navzajem participovat. Dobre otestovane
komponenty pak s lehcim srdcem pouziji ve vyslednem programu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
nastaveni sitova aplikace
[*] ALI <alinex(zv)alinex(tec)cz> - 3.3.1999 17:38:48
Ahoj,
prosim o pomoc s nastavenim BDE, interbase serveru.
Jeste nikdy jsem nemel tu cest delat soft na sit. Proto prosim o pomoc s n�sl.:
po trebuji ze dvou pocitacu pichlych na WIN95 siti pracovat na databazi ktera je ulozena na jednom z nich (aplikace je hotova). LOCAL pocitac mi je jasny (pomoci ALIANSu - INTERBASE) ale druhy nevim jak nastavit BDE - SERVER NAME, PATH,.... ?
mam DELPHIna 2 C/S.(coz si myslim, ze by to mohlo jit).
sdiky ALI
Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 3.3.1999 17:40:31
Mam aplikaci, ktera pristupuje k tabilkam v Paradoxu.
Do ted to bezelo bez problemu a svizne.
Ale od dnes to bezi strasne pomalu.
V cem muze byt problem?
Zkousel jsem vytvorit i indexy nanovo, ale
nic se nezmenilo.+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+Pristupova prava k databazi na IB
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 3.3.1999 18:00:49
Mam jeste jednu velkou otazku k pristupovym pravum k databazi na IB, ktera jsme tu nedavno resili:
Zabezpeceni pristupu:
1. Pro spravce (SYSDBA) je mozne zamezit pristupu pouze zadanim USERNAME a PASSWORD pri vytvareni databaze,
pokud je vytvorena bez nich muze se do ni podivat kazdy, kdo ziska soubor a ma pristum k IB serveru jako SYSDBA
JAK TOTO JMENO A HESLO DODATECNE NADEFINOVAT, NEBO ZMENIT JSEM NEZJISTIL
2. Pokud vytvorim databazi se jmenem a heslem tak nemohu pouzit GRANTy, proto ze se k ni mohu prihlasit pouze pod jednim jmenem a heslem.
JAK TEDY UMOZNIT PRISTUP VICE UZIVATELU K DATABAZI S VYUZITIM GRANTU A PRISTUPOVYCH PRAV NA IB SERVER
A ZAROVEN ZABEZPECIT DATABAZI PRED PRISTUPEM PRES SYSDBA NAPR. POKUD BUDE SOUBOR ODCIZEN ??
POKUD ZAPLATIM NEMALE PENIZE ZA DATABAZOVY SERVER TAK PREDPOKLADAM, ZE JE OTAZKA PRISTUPU A BEZPECNOSTI
VYRESENA NA VYSOKE UROVNI, NEBO SNAD NE ??
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
aplikace pro webserver
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 3.3.1999 19:40:50
Ja si myslim, ze NEJVIC ti pomuze "Mistrovstvi v Delphi 3"
Tam je to nadherne popsane tak, ze by to pochopil i debil ( ja to tedy
pochopil, takze to bude pravda :)))) )
cau
-----Original Message-----
From: Jan =A9ebel=EDk <honza(zv)haes(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Cc: David Arthur Mu=BE=E1tko <Arthur(zv)helpsoft(tec)cz>
Date: 3. b=F8ezna 1999 11:06
Subject: Re: aplikace pro webserver
>Na to se neda odpovedet jednou vetou (ani deseti).
>
>Ma to radu aspektu, ktere je treba vzit v uvahu (viz http://www.haes(tec)cz)=
:
>
>- extenze napsane v Delphi maji casto nejake stovky KB
>- alternativni moznosti (asp, volani COM objektu, ...)
>- databaze na web serveru, vyuziti ADO
>- Windows NT Security (tam asi bude tvuj problem)
>- ...
>
>Honza Sebelik
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=3D HAES - RNDr. Jan Sebelik
>=3D http://www.haes(tec)cz
>=3D Skolici a konzultacni stredisko pro Delphi a Win32
>=3D Vojtiskova 206
>=3D 507 81 Lazne Belohrad
>=3D tel. 0434 692 931
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>----------
>> Odes=EDlatel: Petr Kro=E8a ml. <pkroca(zv)compact(tec)cz>
>> Komu: Delphi KONFERENCE <delphi-l(zv)fwd(tec)cz>
>> P=F8edm=ECt: aplikace pro webserver
>> Datum: 2. b=F8ezna 1999 15:10
>>
>> Ahoj, nevite nekdo, jak se daji v Delphi psat aplikace, ktere pobezi n=
a
IIS
>> na NT?
>> Napriklad, jak by se dalo udelat takove internetovske pocitadlo, tzn. =
na
>> podnet z webu aplikaci server pusti, ale kde vzit vstupni parametry a =
jak
>> (kam, na stdout ?) odpovedet treba cislo navstevnika ? Zapisuje se to =
na
>> standartni vystup nebo co ?
>>
>> Zkousel jsem udelat jen pokusnou aplikaci bez formu, ktera po spusteni
>> zapise do sveho adresare soubor pokus.txt. Lokalne to fungovalo, tak j=
sem
to
>> strcil na server a zkusil zavolat pres web. Aplikace se urcite spustil=
a,
>> protoze je zamcena proti smazani. Ale soubor pokus.txt se v adresari
>> neobjevil. Cili to bude evidentne vyzadovat nejaka pravidla. Nevite o =
tom
>> nekdo neco, pripadne kde najit k danemu problemu nejaky popis ?
>>
>> Diky
>>
>> PK
>Deleni nulou (WAS : Martin Fron�k j
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 3.3.1999 20:16:11
Problem je v=A0inicializaci funkce Delay, jde o rychle masiny (celery,
PII). Blizsi informace na http://www.inprise(tec)cz/frequeqa.htm
<http://www.inprise(tec)cz/frequeqa.htm> , je tam i odkaz na URL s=A0resenim
(pouzil jsem to a chodi mi to).
Ing. Ji=F8=ED Foldyna
Odd=EClen=ED informa=E8n=EDch syst=E9m=F9
AV=CDZO, a.s., Slav=EDkova 6142, 708 00 Ostrava - Poruba
mailto:jiri.f(zv)avizo(tec)cz
http://www.AVIZO(tec)cz
tel.: +420 69 690 6612
mobil: +420 602 507 839
fax: +420 69 690 6313
ICQ#: 14919238=20
-----P=F9vodn=ED zpr=E1va-----
Od: Mal=FD Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odesl=E1no: 3. b=F8ezna 1999 10:15
Komu: delphi-l(zv)fwd(tec)cz
P=F8edm=ECt: Deleni nulou (WAS : Martin Fron=ECk je z
Telecomu!)
Mam tu hned jeden problem, neni to zrovna Delphi, je to Borland
Pascal
7.0;
pokud pouziju v projektu, totiz v programu (uz jsem zblblej),
unitu CRT,
program se normalne prelozit da, ale nejde spustit (ze pry
deleni nulou
:-(
Nevite cim to ?
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 3.3.1999 20:30:44
>> b. vytvorili ste si potomka z TComponent, a na urovni tohoto potomka
>> programujete vsetko od nuly,
>Uvitam spolupraci.
>Nejdriv musim udelat zakladni kostru, pak lze uvazovat o
>nadstavbe. :-) Nicmene, rad bych to videl v Delphree - az to tam
>bude, doufam, ze bude na projektu zainteresovanych vice lidi.
Rad bych se zucastnil podle svych casovych moznosti (alespon tak
ze to zkustim nasadit do realne aplikace), ale musim znovu opakovat
ze ta varianta s TComponent se mi pranic nelibi
(kontretne si navic myslim, ze s FBuffers neni treba se hned loucit.
Jak bez nich resit cached updates vcetne transakcniho rizeni (viz. dale)?).
Proste nejsem ochoten se rozloucit se stavajicimi komponentami
a s aplikacemi, kde to vse je pouzite.
Mozna bych na to mel jit jinak:
Mohu-li se zde vyjadrit co bych vlastne potreboval a
cekal od noveho TADODataSetu (nebo mozna radeji TMSDataSetu
- na ADO netrvam a padaly tu nazory ze to jde i jinak a lepe)
a podle toho pak si predstavuji, ze to bude finalne fungovat.
Takze:
Obecne:
- nepotrebuje BDE
- v "idealnim" pripade s tim nahradim stavajici TDatabase a TQuery nebo
TTable a jede to dal, ale
bez fatalnich chyb o kterych vim v BDE
Zakladni pozadavky na funkci:
1) TMSDatabase
- umoznuje pripojit se (vytvareni connection)
- umoznuje rizeni transakci (Start, Commit, Rollback)
2) TMSQuery rezim
- umoznuje Open
- umoznuje otevreni vice takovych TMSQuery najednou
(nutne connection pro kazdou query?)
- umoznuje parametry a makra (jako RXQuery) nebo
nejaky jiny snadny zpusob dosazovani parametru do query
- neni nikdy live, ale neni read only tj. podporuje CachedUpdates
nebo nejakou jinou metodu rizeni transakcniho ukladani zmen
3) TMSExecutor (muze byt vestaven do TMSQuery)
- umoznuje ExecSQL (INSERT, UPDATE, davka prikazu)
- umoznuje parametry a makra (jako RXQuery) nebo
nejaky jiny snadny zpusob dosazovani parametru do query
4) TMSTable (kurzor)
- umoznuje Open
- Locate
- Filter
- Index
5) TMSStoredProc
- obdoba StoredProc, ale pochopitelne bez BDE
Jak to pouzivam ted (alespon zhruba) pres MSSQL 6.5 a direct SQL link:
- kazdy dialog obsahuje DBGrid napojeny na Query pres kterou umi filtrovat
(omezovat vybrane zaznamy)
- kazdy dialog obsahuje editacni zalozku napojenou na dalsi Query, ktera jiz
vybira jen jeden konkretni rekord
- aktualizace jde pres tuto druhou Query a pripadne dalsi detail query, vse
v rezimu cached updates a ukladani v transakcich
- TTable pouzivam jen pro obcasny lookup popripade vyber, nikdy se pres ni
naktualizuje
Co si slibuji od nahrady stavajici query:
- odpadnou neodladitelne chyby v BDE
- zvysena rychlost
- moznost automaticke synchronizace dvou a vice query nad stejnou tabulkou
- a dalsi...
Co mohu nabidnout:
- zkusenosti s MSSQL 6.5 a pristupem pres DBLib
- zkusenosti s vyvojem komponent pod Delphi (ten TMSExecutor pres DBLib jsem
jiz napr. napsal)
- bohuzel jen malo casu (ale to je asi obecna bolest nas vsech)
Rob
Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 03.3.1999 20:39:12
Polak Jiri wrote:
> > nerad prispievam do OFF TOPIC , ale podla mna zverejnovanie sukromnej
> > korespondencie
> > bez suhlasu druhej strany nie je vobec fer.
> > Myslim to vseobecne.
S timto nelze nez souhlasit. Ale asi je to vec moralky kazdeho cloveka...
> naopak neni fer neco bez souhlasu nezverejnit (rekneme
> ze bych ti soukrome napsal, ze nektery z ucastniku konference
> je debil. To by asi bylo fer, abys mu to sdelil, ne?)
Jo a jeste u toho budu poskakovat a radostne krepcit kdyz sem ho tak krasne
prasknul.
> Myslim, ze kazdy prostredek, ktery by mohl vest k naprave,
> je ospravedlnitelny.
Fuj to smrdi normalizaci :-)
Mac
elementarny problem s C/S
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 03.3.1999 20:47:55
Jan =A9ebel=EDk wrote:
> Ja bych v tomto pripade prijal optimisticke zamykani (bez prace) a o pr=
oblem bych se zacal starat az tehdy, kdyz to nejde ulozit: "Record change=
d by another user".
Jenze to se taky nemusi objevit vzdycky ;-) Zalezi jak a cim a na cem se =
pracuje.
> Pak muzu uzivateli rici:
> Hele, nekdo ti na to sahnul, tak se rozhodni, co s tim mam udelat.
> Mam prosadit tvoji nebo se chces mrknout, co tam kdo zmenil?
To taky povazuju za nejrozumnejsi, ale co v pripade, kdy mu dam omrknout =
ty zmeny, aby si vybral, ktere teda akceptuje (zda ty na serveru nebo ty =
u sebe) a nez to
udela, tak ty data zmeni jeste nekdo jiny znovu atd. Osobne se mi libi si=
tovy zamek od Martina Fronka (sice je potreba to dovest do nejakeho funkc=
niho stavu - service
nebo lepe aplikacni server), kdy se o zamykani stara 'zamkovy server' s m=
oznosti napr. nastaveni doby zamceni zaznamu. Podle mne je pro kazdou apl=
ikaci potreba pouzit
jiny pristup. Optimisticke zamykani napr. nemuzu povolit v pripade uklada=
ni delsich textovych zprav do databaze (ktere pise uzivatel treba pul hod=
iny).
> Mimochodem TClientDataSet (resp. IProvider) to dela sam moc pekne (OnRe=
concileError). Ale to muze zase znamenat problem s licenci na MIDAS (ale =
nemusi).
To se mi prave taky libi (ovsem uz se mi mene libi ten MIDAS - takze bych=
to spise videl v kombinaci ADO+RDS)
Mac
--
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D Ing. Martin Kubecka - Amenit s.r.o. =3D
=3D Na Valech - budova Dytron, 741 01 Novy Jicin =3D
=3D telefon/fax: +420 656 706203 mobil: +420 603 265926 =3D
=3D http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =3D
=3D ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
rowid
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 03.3.1999 20:53:33
Jan =A9ebel=EDk wrote:
> Ale zase bych se musel zeptat PROC?
> b)
> Udelam-li poctive datovy model, urcite mi tam nejaky identifikacni atri=
but (primarni klic) vyleze.
Uz jen proto, ze to bude VZDY jednoznacna identifikace zaznamu v databazi=
ktera je velice vhodna pro vytvoreni
relacni vazby. Uz z toho duvodu, ze je generovana DB serverem.
Mac
--
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D Ing. Martin Kubecka - Amenit s.r.o. =3D
=3D Na Valech - budova Dytron, 741 01 Novy Jicin =3D
=3D telefon/fax: +420 656 706203 mobil: +420 603 265926 =3D
=3D http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =3D
=3D ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
obnova zmazanych zaznamov
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 03.3.1999 21:02:33
Mam neblahy pocit, ze Access vybocuje z rady klasickych souborovych databazi
a maze to rovnou bez moznosti obnoveni (aspon jsem o tom nikde neslysel a to
s Accessem nejaky ten patek delam). Ale Bill vi....
Mac
iturcan(zv)gamo.sk wrote:
> Jestvuje nejaka moznost , ako obnovit v Access tabulke zaznamy ktore su
> zmazane, predpokladam ze
> access si zmazanu vetu oznaci priznakom a potom ju pri packtable zrusi z
> DB. Cize hladam moznost ako priznak odstranit.
>
> Ivan Turcan
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
elementarny problem s C/S
[*] Richard Willmann <sales(zv)nocomment.sk> - 3.3.1999 21:37:48
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Standardni komponenty vsak neumoznuji pretlouct predchozi
zapis, takze jako vyhodnejsi vidim tento postup: editovani hodit do
zvlastniho okna, mimo databazove komponenty. Tam v klidu
editovat, a teprve az v okamziku ukladani se starat, zda nebyl
zaznam zmenen. Je to vsak programatorsky dost pracne.
riesenie so zamykanim zaznamov sa mi paci viac. Neviem si predstavit
aplikaciu, pri ktorej by sa mohlo editujucemu pouzivatelovi stat, ze
by mu niekto pred postom zmazal zaznam.
podporuje IB lockovanie zaznamov? Ak nie IB tak ktory iny SQL?
BTW: Ako to riesis ty, Zbysek?
dakujem
RW
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 6.0.2i
iQA/AwUBNt2PjHXxx/B1O1I1EQJxywCgsb1sfTCx1xHox+LPdYAQi9nxntYAnjX8
kxVY7bWLcnG0tlmMFNWE+5Fh
=ASoY
-----END PGP SIGNATURE-----
elementarny problem s C/S
[*] Richard Willmann <sales(zv)nocomment.sk> - 3.3.1999 21:40:46
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
moholo by si mi povedat nieco o "problemoch s MIDAS"?
rw
- -----Original Message-----
From: Jan =8Aebel=EDk <honza(zv)haes(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Cc: David Arthur Mu?=E1tko <Arthur(zv)helpsoft(tec)cz>
Date: 3. marec 1999 16:07
Subject: Re: elementarny problem s C/S
>> > viem ze je to elementarna vec, ale nakolko som este CS nikdy
nerobil ... :
>> >
>Zbysek (viz nize) ma pravdu. Bohuzel ma pravdu take v tom, ze jeho
reseni je "programatorsky dost pracne".
>
>Ja bych v tomto pripade prijal optimisticke zamykani (bez prace) a o
problem bych se zacal starat az tehdy, kdyz to nejde ulozit: "Record
changed by another user".
>
>Pak muzu uzivateli rici:
>Hele, nekdo ti na to sahnul, tak se rozhodni, co s tim mam udelat.
>Mam prosadit tvoji nebo se chces mrknout, co tam kdo zmenil?
>
>Mimochodem TClientDataSet (resp. IProvider) to dela sam moc pekne
(OnReconcileError). Ale to muze zase znamenat problem s licenci na
MIDAS (ale nemusi).
>
>Honza Sebelik
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=3D HAES - RNDr. Jan Sebelik
>=3D http://www.haes(tec)cz
>=3D Skolici a konzultacni stredisko pro Delphi a Win32
>=3D Vojtiskova 206
>=3D 507 81 Lazne Belohrad
>=3D tel. 0434 692 931
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>> Prave ze to az tak elementarni neni. Nejdrive je treba vyresit, co
je
>> to za databazi. Souborova? Ta zamyka pesimisticky, takze kdo
>> driv prijde, ten driv mele. SQL? Pak je treba rozlisit, jaka
>> konkretne, jak je zamcena (TTable a TQuery moc moznosti v tomto
>> smeru neposkytuji), optimisticky (obvykle default), pesimisticky?
>> Pak vyhrava ten, kdo driv ulozi (u optimistickeho zamku).
>>
>> Standardni komponenty vsak neumoznuji pretlouct predchozi
>> zapis, takze jako vyhodnejsi vidim tento postup: editovani hodit do
>> zvlastniho okna, mimo databazove komponenty. Tam v klidu
>> editovat, a teprve az v okamziku ukladani se starat, zda nebyl
>> zaznam zmenen. Je to vsak programatorsky dost pracne.
>>
>>
>> S pozdravem
>>
>> Zbysek Hlinka
>> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
>> Tel.: 02/795 29 56; GSM: 0603 551 282
>> Krystofova 1016, 149 00 Praha 4
>> CZ
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 6.0.2i
iQA/AwUBNt2QP3Xxx/B1O1I1EQKx5ACdFzCgVmNawL82hBIHz6rySPSrgQAAoOp0
AsOeOf8TsH4mNSL0JxJe58BH
=3DDfkt
-----END PGP SIGNATURE-----
Oddelovac cisel - DODATEK
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 3.3.1999 21:42:22
-----P=F9vodn=ED zpr=E1va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 3. b=F8ezna 1999 10:49
P=F8edm=ECt: RE: Oddelovac cisel
>> Ahoj,
>>
>> jeste jednou vsem diky za snahu,
>> ale jak jsem uz napsal asi predevcirem,
>> pro zjisteni systemoveho oddelovace cisel
>> jsem nakonec pouzil fci GetProfileInt() . Funguje jak
>> v W311 tak v W9x a WNT, aniz bych musel zjistovat
>> verzi OS.
>
>Pozor! Verzi OS bys mel zjistovat.
>Nevim, jestli i jinde, ale na W95 se stava, ze neni v souladu
>DecimalSeparator ve WIN.INI a v registrech.
>A mel bys brat tu hodnotu z registru.
>
>Jura
Jo. To jsem tam nezminil> Overil jsem,
ze i kdyz je WIN.INI prazdny(tzn. neobsahuje
promenou sDecimal) a je to system kde
je registr, tak se ta fce automaticky podiva do
registru! Bylo mi to nejhprve taky divne, ale chodi
to zkousel jsem na NT 3.51 a 4.0, W9x, W311.
A skutecne vsude! (krom W311-prirozene) se
jukne do registru a vrati spravnou hodnotu.
Byl jsem mile prekvapen. Jestli o tom nekdo vi vic
at se ozve, ale mam pocit, ze dojde k necemu jako
internimu "presmerovani".
S pozdravem
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D
> Pavel Malinsky; spiderland(zv)usa.net <
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D<
> ...The Truth Is Out There... <
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D
GSM: 0602 652 203
EXE,DLL
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 3.3.1999 21:45:04
>Tohleto snad popira veskere duvody, proc byly DLL vubec vymyslene.
>Jestli je to kvuli distribuci, je lepsi z toho udelat SFX (zip nebo
>cab, oboji freeware a k SFX zipu jsem videl nekde i free zdroj, tusim
>na www.torry.ru). Jinak je to podle me zbytecne.
Kde se da sehnat FREE program na vytvoreni SFX (ZIP nebo CAB)?
Vojtech Semecky
rowid
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 3.3.1999 21:50:38
Na Interbase existuje rdb$db_key. Napr.:
SELECT RDB$DB_KEY FROM CIS_ULIC
DB_KEY
========
00900009
0090000A
0090000B
0090000C
Pozor! Vraci Hex cislo.
Prvni tri cislice jsou id tabulky, dalsi id zaznamu.>Nazdar nazdar.
>
>Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v Oracli
>pole
>rowid (jednoznacna identifikacia riadku), bez doplnania vlastnych
>stlpcov. ?
>
>Thanx.
>Peter.
>
>
EXE,DLL - 2
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 3.3.1999 21:51:10
Omlouvam se, ze jsem se hned nerozepsal podrobneji, delam to pro kamarada
bez inetu, a moc jsem o tom nepremyslel. Sam nemam rad malo konkretni
otazky.
Tedy vyzyvam vsechny ke specifikaci dotazu vcetne i treba malickosti. Lepe a
snazeji bude zodpovezeno.
Tedy, DLL je bez zdroju, je to knihovna obsluhy hardwaroveho klice, a rad by
zvysil bezpecnost prilinkovanim k exe. ?? Ja jsem mu rekl, ze o nicem
takovem jsem neslysel, ale protoze vim o moznosti prilinkovani
wavu,obrazku... tak se tady ptam.
Jde o to jak to dll spustit, kdyz jej prilinkuji k exe. Napada me vytvorit
docasny dll soubor a ten po dobu behu aplikace vyuzivat, ale kdyby to slo
nejak primo ?
>Ahoj.
>Myslis prilinkovat do EXE nebo volat z programu pres typovy interface jako
>knihovnu?
>
>Jaro B.
>>
>> Jakym zpusobem lze pripojit dll k exe souboru ?
>>
>> Dik,
>> Jaroslav KULHEIM
>> kulheim(zv)fitness(tec)cz
OffTopic: NT
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 3.3.1999 22:02:08
Ahoj,
sorry za offtopic, ale nemuzu nikde najit
(jestli to vubec jde) jak zakazat zpozdeny
zapis na disk v NT 4.0.
S pozdravem a diky
================================
> Pavel Malinsky; spiderland(zv)usa.net <
>==============================<
> ...The Truth Is Out There... <
================================
GSM: 0602 652 203
EXE,DLL - 2
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 4.3.1999 10:43:49
> From: "Jaroslav KULHEIM" <kulheim(zv)fitness(tec)cz>
> Tedy, DLL je bez zdroju, je to knihovna obsluhy hardwaroveho klice, a rad by
> zvysil bezpecnost prilinkovanim k exe. ?? Ja jsem mu rekl, ze o nicem
> takovem jsem neslysel, ale protoze vim o moznosti prilinkovani
> wavu,obrazku... tak se tady ptam.
Tak to je neco jineho. Byva pravidlem, ze vyrobce klice
dodava ke klici software i v nejake podobe, ktera se da
prilinkovat primo do EXE, napr.OBJ nebo prelozene UNIT
(C,PAS) bez zdroju ale s popisem interface.
Doporucuji kontaktovat vyrobce/dodavatele HW klice.
> Jde o to jak to dll spustit, kdyz jej prilinkuji k exe. Napada me vytvorit
> docasny dll soubor a ten po dobu behu aplikace vyuzivat, ale kdyby to slo
> nejak primo ?
>
> >Ahoj.
> >Myslis prilinkovat do EXE nebo volat z programu pres typovy interface jako
> >knihovnu?
> >
> >Jaro B.
> >>
> >> Jakym zpusobem lze pripojit dll k exe souboru ?
> >>
> >> Dik,
> >> Jaroslav KULHEIM
> >> kulheim(zv)fitness(tec)cz
>
>
>
>
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Jaro <jaro(zv)sinea(tec)cz> - 3.3.1999 22:16:24
>Myslim, ze kazdy prostredek, ktery by mohl vest k naprave, je
ospravedlnitelny.
----------------
Brrrr.
Ja zase myslim ze vyse uvedeny nazor je zcestny az hruza. Velkym problemem
totiz byva, co si kdo predstavuje pod tim pojmem "naprava".
... Kazdy jen tu svou pravdu ma za tu jedinou ... zpivaval jeden cesky
pisnickar.
Komuniste k "naprave lidi" pouzivali hrozne zalare a surove vrazdy. Jejich
jednani bylo podle nich spravne, neb jak sam pises "kazdy prostredek, ktery
by mohl vest k naprave, je ospravedlnitelny"
Dle takovych zrudnych teorii je mozne opravdu vsechno. Oni meli prece svoji
pravdu (a maji ji stale). Kdo mel jinou pravdu, musel byt "napraven", treba
i zavrazden.
Takhle jsi to snad nemyslel, ale vychazis z naprosto stejneho predpokladu.
Fronek je v teto konferenci svymi nazory jiz dobre znam. Nema rad Delphi. Je
to jeho vec. Na sve nazory ma pravo jako kazdy jiny. Je take dobre znam svou
rekneme znacnou netaktnosti. Rozhodne bych ho vsak ani nenapravoval ani
neprevychovaval. Nikdo na to nema pravo (krome jeho rodicu v dobe jeho
nezletilosti).
A zverejnit jeho soukromou korespondenci jako pro pobaveni, podle mne
znamena
klesnout prinejmensim na stejnou uroven chovani.
Jaro
PS. Radeji se nebudeme navzajem napravovat, jo?RichEdit x Page Break x Tisk
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 3.3.1999 22:16:14 -0800
Ta komponenta, ktera umi odstrankovat, se jmenuje Word.
Bohuslav =8Avancara
softprojekt(zv)bosnet(tec)cz
-----Original Message-----
From: Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz>
>Nevite o nejake komponente ktera to umi nebo jak tento problem
>obejit? Generuji text ktery je pokazde jinak dlouhy a urcite pasaze
>potrebuji dostat na novou stranku.
>
>Diky za vsechny odpovedi.
>sikora(zv)kam(tec)czu(tec)cz
Offtopic: DOST!!!
[*] Mgr. Anton�n Blatn� - 3.3.1999 22:17:11 -0000
Prosim vsechny soudne lidi!
Navrhuji, aby kazdy off-topic osobniho razu byl IGNOROVAN!
A kdyz uz vam to neda se vyjadrit, cinte tak na soukromych adresach a ne na
konferenci.
Zdravi jeden normalni delphista, ktery se na tuto konferenci prihlasil, aby
se poradil a podelil se zkusenostmi jinych delphistu ...
T.
Mgr. Antonin Blatny
blatny(zv)atlas(tec)cz
Jake lidi? (was: REINSTALACE WOKEN)
[*] Jaro <jaro(zv)sinea(tec)cz> - 3.3.1999 22:37:21
Tak podle tebe je lepsi mit lidi, po nichz treba nezbude vubec nic a ktery
si tam platis jen pro paradu? Blbci asi sotva budou tve firme nejak
prospesni. Odchod dobrych lidi je urcite neprijemna zalezitost, ale prece si
kvuli tomu umyslne nebudu nabirat blbce (jak bylo v tom puvodim mailu
napsano). To bych se mezi ty blbce mohl rovnou take zaradit.
No je to kazdeho vec. Ja si dobreho programatora cenim a chranim a ty spatne
proste nemam.
Jaro
PS. V Americe jsem sice nebyl, ale silne pochybuju, ze to tam takhle opravdu
funguje.
.................
>uz len zdrzanim, kym niekto dalsi nastuduje vsetko po odchadzajucom.
>Je pravda , ze ked bol ten clovek dobry, tak zanecha dobry kod.
>Lenze ked bol dobry, tak pravdepodobne mal toho aj vela na starosti a teda
>zanecha velke kvantum zdrojakov. Ak si uz niekedy preberal robotu po niekom
>tak vies o com hovorim.
>
>/LH
elementarny problem s C/S
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 3.3.1999 23:00:25
Hello Zbysek!
> zapis, takze jako vyhodnejsi vidim tento postup: editovani hodit do
> zvlastniho okna, mimo databazove komponenty. Tam v klidu
> editovat, a teprve az v okamziku ukladani se starat, zda nebyl
> zaznam zmenen. Je to vsak programatorsky dost pracne.
Keby db-komponenta mala vlastnost CrcOfCurrentRecord, tak je to
zalezitost 2 riadkov: jedneho odlozenia pred editom a jedneho IFu pred
POSTom. Nikde nie je povedane, ze CRC musi mat prave 32 bitov, kludne
moze byt dlhy ako cely zaznam.
Zaujimava je aj varianta, ked aplikacia pred editaciou rekordu poznaci
do neho id-klienta. Potom ostatni mozu byt vystrihani, ze pripadna
editacia by nemusela dopadnut dobre (ale bola by povolena) a pri
restarte klienta po pripadnej havarii by sa dali zabudnute znacky lahko
hromadne odstranit. Ale to je vlastne princip 'lock' chapany menej
zavazne.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Quickreport Standard, QuickReport Pro, Sinea
[*] Jaro <jaro(zv)sinea(tec)cz> - 3.3.1999 23:02:37
Bohuzel ta nova verze nejde podle mych puvodnich predstav. Vyvoj zacina byt
jiz znacne komplikovany a zejmena neprimerene velky cas zabira odladeni.
Soucasny vyvoj a udrzba verzi pro vsechny 4 Delphi je neudrzitelny a
zdlouhavy. Problem je ale v tom, ze ani nasi zakaznici se nemohou shodnout
na tom od ktere verze Delphi zacit. Ja jsem pro verzi D4, ale nasi zakaznici
tento nazor nesdili.
Tak aby nebylo to "zahadne mlceni". Prozradim a priznavam, ze se nam nedari
dodrzet slibovany zacatek roku pro novou verzi, aby tam bylo vse, co jsem
chtel a za co by dle meho nazoru bylo solidni pozadovat upgrade. Protoze
hodne zakazniku pozadovalo zejmena znakovy vystup, vydavame prave nyni verzi
pracovne oznacenou jako 39.
(skoro ctyrka), ktera obsahuje znakovy tisk jako soucast grafickeho
generatoru. Tohle je zrovna priklad vyvoje, o ktery velmi stoji i vyvojari v
D1. Vydame to jako bezplatny update. K dispozici to bude na nasem serveru
www.sinea(tec)cz Chtel jsem to nechat umistit tento tyden, ale bohuzel jsem
onemocnel, tak jeste prosim o male strpeni. Kdo to potrebuje velmi
urgentne, napiste prosim na muj mail jaro(zv)sinea(tec)cz
Jaro
>
>>Sestavy Sinea si muze navrhovat (nebo alespon upravovat) uzivatel sam -
mne
>to totiz strasne nebavi.
>>Mam v tomto smeru dobre zkusenosti.
>>
>>Honza
>>=========================================
>>= HAES - RNDr. Jan Sebelik
>
>
>
>Ja bych jeste dodal jeste jednu vyhodu
>
>pokud objevim v SINEA zavadu a podari se me 'chytit' pana Krmelu. tak
oprava
>se pocita na hodiny
>a ne na dny ci tydny. a to je pro me daleko podstatnejsi nez sebelepsi
>reference typu marketing
>
>Ovsem abych jenom nechvalil, rad bych videl i nejake nove technicke
>iformace o nove verzi o ktere
>se porad cudne mlci ac dotaz tohoto typu zaznel nepocitane.
>
>S pozdravem Jiri Heinisch
>
>
>P.S. Jestli me neco dostane do cvokhauzu tak to bude prehazovani "Y" a
>"Z" nemate nekdo nejakou radu
> mimo pouzivani jedne klavesnice.
>
>elementarny problem s C/S
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 4.3.1999 05:14:30
>podporuje IB lockovanie zaznamov? Ak nie IB tak ktory iny SQL?
Informix zamkne vetu po oprave do ukonceni transakce.
Leos Urban
OffTopic: NT
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 4.3.1999 06:30:47
>Ahoj,
>
> sorry za offtopic, ale nemuzu nikde najit
>(jestli to vubec jde) jak zakazat zpozdeny
>zapis na disk v NT 4.0.
>
pokud ti jde o NT a problemy se souborovymi databazemi jako jsou DBF apod=
.,
mohlo by ti pomoct vypnout Optimistic locking (jak tomu u Billa rikaji)
Key:
HKey_Local_Machine\System\CurrentControlSet\Services\LanManServer\Paramet=
ers
DWordValue:
EnableOpLocks =3D 0
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa=E8n=ED system pro n=E1poj=E1=F8e
-----------------------------------------------------------------
Delphi a propojeni na WORD
[*] mbartone(zv)Synthesia(tec)cz - 4.3.1999 07:11:19
Ahoj
Ve Vordu 97 mam napsane smlouvy a zadosti. Z aplikace v Delphi (C/S,
Oracle) bych chtel pro dany zaznam zavolat Word s danou smlouvou ( toto
neni problem) a do urcitych mist doplnit polozky (jmeno, adresa, cislo
smlouvy ..) - tot uz problem.
Zkousel jsem ulozit zaznam do database DBASE IV a ve Wordu vlozit pole
odkazujici na tuto databazi. To sice funguje, ale muze byt pouze jedna
polozka na radku, ztrati se mi formatovani textu a musim vzdy dat F9 pro
aktualizaci poli i kdyz je automaticky zapnuta.
Nevite jak by se to dalo resit elegantne ?
Dekuji
Deleni nulou
[*] Pavel ZIDEK <kopr(zv)applet(tec)cz> - 4.3.1999 07:18:19
Jestli mas PENTIUM nad 233 MHz tak ti to bude tuto chybu vzdy vykazovat. =
Nutno pouzit program (uz zkompilovany program EXE) TPPATCH, kter=FDm tut=
o chybu odstranis.
Napise napr. TPPATCH PROGRAM.EXE
Za kvalitu nerucil ale pouzivam tento program jiz 3/4 roku a zatim nebyl=
a jedina reklamace. Program najdes na:
http://www.applet(tec)cz/~kopr/files.htm
Pavel
----------
> Odes=EDlatel: Mal=FD Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Deleni nulou (WAS : Martin Fron=ECk je z Telecomu!)
> Datum: 3. b=F8ezna 1999 10:15
>=20
> Viktore, jdi k sipku... Podle Tveho milu jsi odtamtud mozna Ty. Navic,
> i kdyby byl, co Ti je po tom. Zluci jsi hnul ted Ty me. Myslim, ze dals=
i
> komentar je zbytecny.
>=20
> Vyzyvam Vas vsechny (jmenem civilizace :-), nechte uz toho a pojdme
> diskutovat o Delphi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>=20
> Mam tu hned jeden problem, neni to zrovna Delphi, je to Borland Pascal
> 7.0;
> pokud pouziju v projektu, totiz v programu (uz jsem zblblej), unitu CRT=
,
> program se normalne prelozit da, ale nejde spustit (ze pry deleni nulou
> :-(
>=20
> Nevite cim to ?
>=20
> /mam novy HDD, rozdeleny na cca 3x 2,1GB a zapnul jsem "spravu velkych
> disku",
> nemohlo by to byt tim ?/
>=20
> Dobra.
> > ----------
> > Od: viktor.lostak(zv)chmi(tec)cz[SMTP:viktor.lostak(zv)chmi(tec)cz] za
> > Viktor.Lostak(zv)chmi(tec)cz[SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> > Odesl=E1no: 3. b=F8ezna 1999 9:36
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P=F8edm=ECt: Martin Fron=ECk je z Telecomu!
> >=20
> > Udelal jsem objev: Martin Fronek je z Telecomu! Proto on pise ty
> > schvalne provokativni nesmysly, ktere komukoli rozumnemu musi nutne
> > poradne hnout zluci, abychom s nim polemizovali a posilaly majly a
> > samozrejme tim (alespon ti chudsi, co maji komutovanou linku)
> > podporili Telecom! Je to uplne jasne... On je to takovy zakuklenec, c=
o
> > si vzdycky precte neco v konferenci a pak dlouho (?) premysli, co
> > nejidiotstejsiho by k tomu napsal, aby vsechny vytocil a aby se kseft=
y
> > monopolu trochu hnuly. A ze se mu to dari!
> >=20
> > Pak je tu jeste moznost, ze ma nejakou smlouvu se zdravotniky, protoz=
e
> > nekdy mam dojem, ze z tech jeho zblebu dostanu infarkt. A jak tak
> > koukam, nejsem sam.
> >=20
> > Viktor
> >=20
> >=20
> >=20
Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 4.3.1999 07:23:34
> -----Original Message-----
> From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> Sent: Wednesday, March 03, 1999 8:39 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Offtopic: pobavenie... (L. Fule versus M. Fronek)
>
>
> Polak Jiri wrote:
>
> > > nerad prispievam do OFF TOPIC , ale podla mna
> zverejnovanie sukromnej
> > > korespondencie
> > > bez suhlasu druhej strany nie je vobec fer.
> > > Myslim to vseobecne.
>
> S timto nelze nez souhlasit. Ale asi je to vec moralky
> kazdeho cloveka...
Kdyz jsme se dole dostali az ke komunistum - na zaklade
vyse zminene vety by bylo nefer zverejnit zvaci dopisy
z roku 1968. A to si nemyslim.
> > naopak neni fer neco bez souhlasu nezverejnit (rekneme
> > ze bych ti soukrome napsal, ze nektery z ucastniku konference
> > je debil. To by asi bylo fer, abys mu to sdelil, ne?)
>
> Jo a jeste u toho budu poskakovat a radostne krepcit kdyz sem
> ho tak krasne
> prasknul.
Ano, nezda se mi fer nekoho za zady pomlouvat ci vedet o tom, ze
nekdo nekoho pomlouva a nic s tim neudelat. Zverejnenim
das tomu "debilovi" moznost se aspon trochu branit.
> > Myslim, ze kazdy prostredek, ktery by mohl vest k naprave,
> > je ospravedlnitelny.
>
> Fuj to smrdi normalizaci :-)
>
Asi ano, jsem kovany komunista :-)
Ale snad to ted uvedu na pravou miru - otravuje me cteni nesmyslu
(i kdyz je obcas sam plodim, jak je videt).
Clovek, ktery se uz boji poslat nesmysly do konference a otravuje
s tim aspon soukrome si to zverejneni zaslouzi.
Musi pocitat s tim, ze uz na to jsou vsichni alergicti
a ze se mu to budou snazit znechutit.
Dalsi vec je, ze ve sve soukrome poste MF mluvil za nas za vsechny.
Napsal tam: "Piraty nepodporujeme". Nebylo explicitne receno,
ze mluvi za vsechny ucastniky konference, ale vyznelo to tak.
A pokud neco tvrdim jmenem nekoho, nemel bych to delat tajne.
Myslim, ze neexistuje soukromy dopis o nesoukromych vecech.
Vsechny ty vety o souhlasu se zverejnenim soukromeho dopisu
jsou moc pekne, da se s nimi souhlasit, ale ne vzdy. Kdyz to
vezmu ad absurdum - nezverejneni soukrome korespondence muze
byt za urcitych okolnosti trestny cin.
Myslim, ze je na case nechat toho bohapusteho zvaneni.
Citil jsem potrebu zastat se LF po te sprsce cernych
znamek a rict, ze ho chapu. A nevidim to tak cerne
jako nekteri ostatni.
A taky pozor na me! Pokud mi napisete neco o nekom,
nebo neco o necem, co se tyka vsech, tak vas okamzite prasknu.
konfident Jura
krycim jmenem ********* (censored)
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Owner draw menu v D3 ?
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 4.3.1999 07:23:32
Hm, bohuzel MeasureItem jsem odchytaval rovnez a nastavoval vetsi vysku
radku a to fungovalo. Jenze to bylo asi vsechno, co fungovalo dobre.
:-(((
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P=F9vodn=ED zpr=E1va-----
> Od: Tomas Holan [SMTP:HOLAN(zv)ksvi.mff.cuni(tec)cz]
> Odesl=E1no: 3. b=F8ezna 1999 14:54
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Re: Owner draw menu v D3 ?
>=20
> >=20
> > ...a pak i to rucni vykreslovani (odchytit WM_DRAWITEM) na W98
> > fungovalo. Jenze jenom pro prvni tri polozky, pro dalsi ani omylem.
> Taky
> > musela byt zapnuta optimalizace, jinak funkce GetMenuItemInfo
> vracela
>=20
> Mlhave si vzpominam, ze tam bylo potreba nejdriv odchytit=20
> neco jako WM_MEASUREITEM a nastavit velikosti tech polozek.
> Jestli tohle nedelas, je mozne, ze tam je nastavena
> nejaka divna velikost (treba 0), pro kterou to nevola. Hadam.
> =20
> Tom
Soucet
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 4.3.1999 07:30:31
Zdravim,
v paradoxi tabulce mam pocitane pole. Pri navrhu sestavy v bandu DETAIL
zobrazuji jednotlive zaznamy (podle filtru) a dole bych chtel udelat soucet
te pocitane polozky. Pouzil jsem TQRExpr a nastavil
Expression=SUM(tblPOLOZKY.CELKEM), ale at to dam do jakehokoli bandu
(Summary, GroupFooter), vzdy mi to spocita jako 0.
Prosim o radu.==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
TTable a indexy
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 4.3.1999 07:32:05
Ahoj,=20
v databazich nejsem prilis vzdelany, ale tenhle problem jsem resil.
Posilam funkci, kterou jsem pouzival na likvidaci indexu a jeho nove
vytvoreni:
function TCreateDbTable.CreateIndex(QTable:TQuery;
TableName:string):integer;
{
Vrac=ED:
0...All OK
-1...neexistuje tabulka
-2...nelze vytvorit index (chyba SQL ?)
}
var sql:string;
fw:file of byte;
bt:byte;
procedure EraseIndex(TableName:string);
begin
TableName:=3DCopy(TableName,1,Length(TableName)-3);
DeleteFile(TableName+'MDX');
DeleteFile(TableName+'CDX');
end;
begin
if not FileExists(TableName) then
begin
result:=3D-1;
exit;
end;
AssignFile(fw, TableName);
{$i-}
Reset(fw);
if IOResult<>0 then
begin
CloseFile(fw);
result:=3D-2;
exit;
end;
Seek(fw, 28);
bt:=3D0;
Write(fw,bt);
CloseFile(fw);
{$i+}
EraseIndex(TableName);
sql:=3D 'CREATE INDEX A ON "'+TableName + '" (FIELD1)';
try
QTable.Active:=3DFalse;
QTable.SQL.Clear;
QTable.SQL.Add(sql);
QTable.ExecSQL;
result:=3D0;
except
on e:EDBEngineError do
begin
result:=3D-2;
end;
end;
end;
Bohuzel ohledne CDX nebo MDX odpoved neznam, u mne se vzdy vytvarelo
MDX, ale nepatral jsem po tom.=20
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P=F9vodn=ED zpr=E1va-----
> Od: Petr S [SMTP:p.sadovsky(zv)atlas(tec)cz]
> Odesl=E1no: 3. b=F8ezna 1999 13:51
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: TTable a indexy
>=20
> Ahojte.
>=20
> mam zase jeden zacatecnicky problem.
>=20
> Table1.TableName:=3DPom;
> Table1.TableType:=3DttFoxpro;
> if not FileExists(copy(Pom,1,length(pom)-3)+'MDX') then
> begin
> Table1.AddIndex('PRIDELE','PRIDELE',[]);
>=20
> // tady vytvorim index, ale pouze, jestlize je odstranen odkaz na
> index z
> tabulky =3D nove vytvorena tabulka bez indexu
> // pokud uzivatel nejakym zpusobem index smaze, kousne se to pri
> otevirani
> Table1
>=20
> end;
> Table1.Open;
>=20
>=20
> Prosim o radu:
> 1) jak lze otevrit tabulku, ve ktere je odkaz na index, jeli index
> soubor
> smazan ?
> (ja jsem myslel, ze ho vytvori fci AddIndex(..) pokazde )
> (=20
>=20
> 2) jak se provadi update indexu (nebo BDE kdyz zjisti, ze index
> neodpovida databazi, updatne automaticky - napr. po vypadku proudu,
> kdyz je tabulka otevrena,...) neboli "reindex" ?
>=20
> 3) opravuji sve puvodni prohlaseni:
> a) pri volani Table1.CreateTable pro 1)
> Table1.TableType:=3DttFoxpro
> 2)
> nadefinovane Table1.IndexDefs
> se vytvori index *.CDX
> b) pri volani fce Table1.AddIndex('PRIDELE','PRIDELE',[]);
> (muj pripad)
> se vytvori index *.MDX
>=20
> Na cem zalezi pri vytvareni extenze indexu, proc jednou vytvori
> *.MDX a podruhe *.CDX, kdyz je tabulka furt stejneho typu?
>=20
> =20
> D=EDky
>=20
> Petr=20
> p.sadovsky(zv)atlas(tec)cz
>=20
>=20
>=20
fonty
[*] Martin <geoplan(zv)pp.sinet.sk> - 4.3.1999 07:32:21
Zdravim,
Preco niesu v delphi rovnake fonty ako v NT ? Pri vecsine fontov nefunguje
diaktritika. Funguje mi mozno pri dvoch atie nie su najvhodnesie. Ake fonty
pouzivate vi vo svojich aplikaciach?
Martin
Property neexistuje ?!
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.1999 07:48:21
Lubos Dusanic wrote:
> vytvoril som komponentu ako potomka TCustomControl, pricom som dal ako
> published vsetky nevyhnutne veci, VRATANE color. komponentu som v poriadku
> nainstaloval a v design dal na formu - property color bola normalne
> default (clBtnFace). ked som ale chcel spustit program, cele mi to
> skoncilo na .. property does not exists txxx.color! pritom v object
> inspectore ju vidim, mam ju deklarovanu ... akurat "neexistuje" ...
>
> nemate niekto napad, co s tym?
Coz takhle zverejnit takovy minimalizovany vysek kodu, na kterem
se to chova uvedenym zpusobem? Mas komponentu instalovanou
radne v nejakem balicku? Je dobre zkompilovany prislusny pas (s
komponentou)?
>
> cele to chodi na d4 +patch3+winnt+sp4
Kdo vi, co vyvedli v tech patchich. Mne po patchovani zacaly Delphi
neprijemne padat pri ladeni komponent.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Property neexistuje ?!
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 04.3.1999 07:56:49
Zbysek Hlinka wrote:
> > vytvoril som komponentu ako potomka TCustomControl, pricom som dal ako
> > published vsetky nevyhnutne veci, VRATANE color. komponentu som v poriadku
> > nainstaloval a v design dal na formu - property color bola normalne
> > default (clBtnFace). ked som ale chcel spustit program, cele mi to
> > skoncilo na .. property does not exists txxx.color! pritom v object
> > inspectore ju vidim, mam ju deklarovanu ... akurat "neexistuje" ...
>
> Coz takhle zverejnit takovy minimalizovany vysek kodu, na kterem
> se to chova uvedenym zpusobem? Mas komponentu instalovanou
> radne v nejakem balicku? Je dobre zkompilovany prislusny pas (s
> komponentou)?
preco nie. tu je:
begin
inherited Create(AOwner);
Width:= 100;
Height:= 20;
ParentColor:= False;
Color:= clBtnFace;
Enabled:= True;
FTextIndentSize:= 5;
FFocused:= False;
FAlignment:= taRightJustify;
FChecked:= False;
FEControl:= NIL;
TabStop:= True;
end;
nastane to uz v constructor(e). ked to debug(ujem), vsetko prebehne v poriadku
az po "end;" a potom to vyhlasi chybu ...
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
fonty
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 04.3.1999 07:59:55
Osobne pouzivam v Delphi font Courier New CE a pote co jsem si do NT nainstaloval SP4 funguje naprosto k me spokojenosti. Ale male upozorneni, SP4, i presto ze byl pro cesky NT si, dle me neoverene teorie, trosku nerozumel s ceskym IE4 a cas od casu 2-3 denne se z niceho nic (spusteno Delphi, IE, a mail) pri psani kodu objevila Billova oblibena modra stranka. Po preinstalovani IE na anglickou verzi, k cemuz me Bill donutil instalaci dalsiho jeho softu, jenz bez anglicke verze se nechtel nechat nainstalovat, tento prirodni ukaz zmizel. :-))) M&B
>>> "Martin" <geoplan(zv)pp.sinet.sk> 03/04 7:32 >>>
>Zdravim,
>Preco niesu v delphi rovnake fonty ako v NT ? Pri vecsine fontov nefunguje
>diaktritika. Funguje mi mozno pri dvoch atie nie su najvhodnesie. Ake fonty
>pouzivate vi vo svojich aplikaciach?
>Martin
Delphi 3 pod W98.
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 4.3.1999 20:31:37
-----P�vodn� zpr�va-----
Od: Petr Dan�k <petrd(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b�ezna 1999 19:42
P�edm�t: Delphi 3 pod W98.>
>Ahoj,
>potrebuji nainstalovat Delphi 3 pod W98. Pri spusteni Delphi pred
vykreslenim ikon komponet cely pocitac zatuhne. Nekolikrat jsem
preinstaloval a porad stejne. Nesetkal se s tim nekdo.
>Dik.
>
>Petr Danek
>petrd(zv)atlas(tec)cz
>
>
Bohuzel ano,
zkus zmenit u graficke karty parametr "VYKON" na 25 % maxima
a napis co mas za g. kartu
S pozdravem Heinisch Jiri
Xakru... (ZipKomp)
[*] rdocekal(zv)csas(tec)cz - 4.3.1999 08:19:50
Hmm, ja jsem nic nedostal. Proto po dohode zverejnuji umisteni
inkriminovanych knihoven na:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D3/other/Delzip12.zip, popis =
je
ve stejnem foldru pod nazvem delzip.txt.
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P=F9vodn=ED zpr=E1va-----
> Od: Mal=FD Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl=E1no: 3. b=F8ezna 1999 14:49
> Komu: #Delphi-K
> P=F8edm=ECt: Xakru... (ZipKomp)
>=20
> Ja jsem ale debil... fakt... ja ten balik poslal=20
> do konference... je mi to lito..., hlavne ze vzdycky
> nejvic kecam... dal jsem zkratka Reply...a nezkontroloval
> ze to neprislo primo na muj mail ale do konference.
> Jeste jednou sorry.
nastaveni sitova aplikace
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 4.3.1999 08:28:27
Server name= hostname:"cesta k databazi"
pr.: BATMAN:/databaze/EMPLOYEE.GDB
kde BATMAN je v hostech definovana IP adresa XXX.XXX.XXX.XXX
/databaze/databaze.gdb je presny nazev databaze - pozor! musi mit i priponu (.gdb)
jo, vlastne tohle je cesta na Linuxu, na W95 otocis lomitka ( \ )
Bye
T.B.
LOCAL pocitac mi je jasny (pomoci ALIANSu - INTERBASE) ale druhy nevim jak nastavit BDE - SERVER NAME, PATH,.... ?
mam DELPHIna 2 C/S.(coz si myslim, ze by to mohlo jit).
sdiky ALI
Delphi a propojeni na WORD
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 4.3.1999 08:33:17 met
Je moznost dat do ulozeneho textu jednoznacna neopakujici se
slova (napr. <jmeno>) a tyto slova pak zamenovat za spravne
udaje. Zachova to i nastaveni fontu.
sikora(zv)kam(tec)czu(tec)cz
> Ve Vordu 97 mam napsane smlouvy a zadosti. Z aplikace v Delphi (C/S,
> Oracle) bych chtel pro dany zaznam zavolat Word s danou smlouvou ( toto
> neni problem) a do urcitych mist doplnit polozky (jmeno, adresa, cislo
> smlouvy ..) - tot uz problem.
> Zkousel jsem ulozit zaznam do database DBASE IV a ve Wordu vlozit pole
> odkazujici na tuto databazi. To sice funguje, ale muze byt pouze jedna
> polozka na radku, ztrati se mi formatovani textu a musim vzdy dat F9 pro
> aktualizaci poli i kdyz je automaticky zapnuta.
>
> Nevite jak by se to dalo resit elegantne ?
>
> Dekuji
>
>
Invalid BLOB handle in buffer
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 4.3.1999 08:36:21
Zdravim,
muzete me nekdo pomoci s nasledujicim problemem?
Mam data ve formatu foxpro 2.5, pristupuje na ne pres ODBC a BDE. Data mam
zobrazeny v DbGridu. Pokud kliknu na nejaky zaznam, zobrazuji vsechny polozky
v jinem formulari. Jedna z polozek je i MEMO a prirazeni provadim nasledujicim zpusobem:
HStrings:= TStringList.Create;
HStrings.Clear;
HStrings.Assign(TMemoField(Data.RxQueryFirmy.FieldByName('POZNAMKA')));
if HStrings.Count > 0 then
begin
for HWord:= 0 to (HStrings.Count - 1) do
begin
FormKartaAdresare.Memo1.Lines.Add(HStrings.Strings[HWord]);
end;
end;
HStrings.Clear;
HStrings.Free;
Pokud se v DBGridu pohybuji po jednotlivych zaznamech je vse OK, ale pokud
pouziji vyhledani zaznamu pres funkci "Locate" a provedu detailni zobrazeni, dostanu
nasledujici hlasku:
"Invalid BLOB handle in buffer"
Tusite nekdo problem?******************************************
Daniel Jirasek - Conel s.r.o.
e-mail: daniel_jirasek(zv)conel(tec)cz
rowid
[*] Peter Hudec <pietro(zv)proces.sk> - 04.3.1999 08:39:08
Jaroslav KULHEIM wrote:
> Na Interbase existuje rdb$db_key. Napr.:
>
> SELECT RDB$DB_KEY FROM CIS_ULIC
To je ono.
Diky.
> >Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v Oracli
> >pole
> >rowid (jednoznacna identifikacia riadku), bez doplnania vlastnych
> >stlpcov. ?
> >
> >Thanx.
> >Peter.
> >
> >ADO a ulozene procedury
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 4.3.1999 08:47:16
Cau,
mel bych takovy dotaz. Zkousel nekdo z Vas volat ulozene procedury z MSSQL 7
pres ADO s predavanim parametru.
Ja to zkousel ruzne:
1. connection.execute - to funguje perfektne, ale bez parametru (nedaji se
zadat)
2. command.execute - to funguje taky, ale zase bez parametru, selhaly
konstrukce parametru podle prikladu VBasicu v online ADO dokumentaci
(pres CoParameter.create, command.CreateParameter ->
command.Parameters.Append)
Tak ted nevim, jestli sem neco prehlidl nebo co, ale mam dojem, ze jsem uz
zkusil vsechno.
A nebo ne?
Predem dekuji za jakekoliv nakopnuti.
Tomas
tomas(zv)cobra(tec)cz
Xakru... (ZipKomp)
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 4.3.1999 08:58:30
Ja jen pripominam, ze pokud bude mit nekdo nejake problemy s
FTP konference (ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/), tak
mne muze upozornit na e-mail gebauerl(zv)mlp(tec)cz
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
elementarny problem s C/S
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 4.3.1999 09:08:06
> Odes=EDlatel: Richard Willmann <sales(zv)nocomment.sk>
>=20
> moholo by si mi povedat nieco o "problemoch s MIDAS"?
>=20
MIDAS je mozno ruzne kritizovat (samozrejme, rada veci by se dala resit l=
epe) nebo chvalit.
To bych tady ale nechtel rozpitvavat, je to subjektivni, na to at si odpo=
vi kazdy sam.=20
Me se to osobne docela libi, zvlaste kdyz uz jsou nejak vyreseny problemy=
s multi-threadingem.
Velky a zasadni problem je jinde: licencovani - viz deploy.txt a cenik na=
www.inprise(tec)cz.
K tomu je treba pripocist licencni klickovani databazovych firem (Oracle,=
napr.) vuci pouzivani aplikacnich serveru pro pristup do jejich databazi=
("multiplexor" nebo jak tomu rikaji).
VARUJI:=20
Drive, nez se rozhodnete pro vicevrstvou aplikaci, seznamte se poradne s =
licencnimi podminkami (MIDAS+Databaze).
Na nasich kurzech se pokousime o nejake alternativni reseni.
Honza Sebelik
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Invalid BLOB handle in buffer
[*] Martin Koran <komar(zv)komar(tec)cz> - 4.3.1999 09:11:57
> Zdravim,
> muzete me nekdo pomoci s nasledujicim problemem?
> Mam data ve formatu foxpro 2.5, pristupuje na ne pres ODBC a
> BDE. Data mam
> zobrazeny v DbGridu. Pokud kliknu na nejaky zaznam, zobrazuji
> vsechny polozky
> v jinem formulari.
> Pokud se v DBGridu pohybuji po jednotlivych zaznamech je vse
> OK, ale pokud
> pouziji vyhledani zaznamu pres funkci "Locate" a provedu
> detailni zobrazeni, dostanu
> nasledujici hlasku:
> "Invalid BLOB handle in buffer"
>
> Tusite nekdo problem?
>
>
> ******************************************
> Daniel Jirasek - Conel s.r.o.
> e-mail: daniel_jirasek(zv)conel(tec)cz
Ahoj,
Zkus zvysit cislo v parametru BLOBS TO CACHE
S pozdravem
Martin Koran
============================================
Martin Koran - KOMAR
Hilbertova 68
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 602 42 33 72
mailto:info(zv)komar(tec)cz
http://www.komar(tec)cz
Win, NT
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 4.3.1999 21:43:55
Cauec,
v napovede taky pisou, ze pred volanim funkce GetVersionEx musis deklarovat velikost cilove promenne, takze si tam dopln. Na konci je kod, ktery funguje (Win98 a Win NT. Na W95 nezkouseno).
Bye Ludan
ludan(zv)bluerose(tec)cz
Nasel jsem priklad na zjisteni jesli NT, ale nejede mi to. Nevite nekdo v cem je zakopany pes.
function IsNT:bool;
{$IFDEF WIN32}
var
osv:TOSVERSIONINFO;
{$ENDIF}
begin
result := True;
{$IFDEF WIN32}
osv.dwOSVersionInfoSize := SizeOf(osv);
GetVersionEx(osv);
if osv.dwPlatformid = VER PLATFORM WIN32 NT then exit;
{$ELSE}
if ((GetWinFlags and WF WINNT) = WF WINNT) then exit;
{$ENDIF}
result := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsNT then
ShowMessage('je NT')
else
ShowMessage('Nen� NT');
end;
var OS: TOSVersionInfo;
procedure TForm1.Button1Click(Sender: TObject);
begin
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
case OS.dwPlatformId of
VER PLATFORM WIN32s: // WIN32 on Win3.1
ShowMessage('Win 32s na Windows 3.1x');
VER PLATFORM WIN32 WINDOWS: // Windows 95-98
if OS.dwMinorVersion = 0 then
ShowMessage('Windows 95')
else
ShowMessage('Windows 98');
VER PLATFORM WIN32 NT: // Windows NT
ShowMessage('Windows NT');
end;
end;
Multiselect ...Je to "TO" spravne?
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 4.3.1999 09:27:02
Cau,
obavam se, ze nejlepsi reseni pro multiuzivatelske prostredi je pracnejsi, a ze spociva v ulozeni vyberu pro jednotlive uzivatele pres identifikatory zaznamu (napr. typu AutoInc) do dalsich 2 tabulek (nazveme je grp, grpitems). Po oznaceni zaznamu zalozit novy zaznam do grp a identifikatory oznacenych zaznamu do grpitems (spolu s identifikatorem pridaneho grp zaznamu). Tim vznikne takovy seznam skupin zaznamu, ktery lze vyuzit hned, a nebo pozdeji, podle potreby treba i jinym uzivatelem. (slozeny select - TQuery)
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk>
Komu: Konferencia Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 2. b�ezna 1999 19:39
P�edm�t: Multiselect ...Je to "TO" spravne?
Cest praci ...
Predstavte si nasledujucu situaciu .
Existuje multiuzivatelske prostredie zalozene na BDE a Paradox7 tabulkach.
Kazdy uzivatel chce pracovat iba s oznacenymi zaznamami, ktore si on sam oznacil. Potrebuje trebars oznacene zaznamy pomocu MULTISELECT v TDBgrid vytlacit, prekopirovat niekam alebo ... To je vsetko v poriadku.
1. Ale ak si tabulku usporiada podla nejakeho ineho indexu, tak mu oznacenie zmizne, ale po navrate je opat spat.
1. Ak si zaznamy oznacim TDBgrid-e, chel by som s nimi pracovat na urovni TTable. Aby to nebolo vizualne a takisto aby to bolo rychle. Ako to odfiltrovat iba na vybrate zaznamy? Zeby pomocou TBookmark ??? AKO???
Mate niekto prakticke skusenosti s MULTISELECT v TDBgrid, resp.TRxDBgrid v multiuser prostredi ???
Vdaka ...
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
Delphi a propojeni na WORD
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 04.3.1999 09:29:44
> Ve Vordu 97 mam napsane smlouvy a zadosti. Z aplikace v Delphi (C/S,
> Oracle) bych chtel pro dany zaznam zavolat Word s danou smlouvou ( toto
> neni problem) a do urcitych mist doplnit polozky (jmeno, adresa, cislo
> smlouvy ..) - tot uz problem.
Je to delam takhle:
nadefinovat jednotliva pole ve Wordu, priradit jim jednoznacne nazvy, napr.
Jmeno a v Delphi si udelat
var DBJmeno : string[255];
DBJmeno := 'Peppa';
MSWord.SetFormResult(Jmeno, DBJmeno);
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consutling, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* private: peppa(zv)post(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************Paradox
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 4.3.1999 22:00:14
Zkusenost s velkymi sitovymi aplikacemi v Paradoxu nemam.
Zato vim, ze firmy, ktere tyto zkusenosti maji, si nutne musely napsat "utilitku" ktera smaze vsechny .lck soubory na vsech discich ktere lze najit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931
=========================================
----------
> Odes�latel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Paradox
> Datum: 4. b�ezna 1999 9:42
>
> Co znamena chyba:
>
> Multiple .Net files in use.
> File: i:\work\ade\ade_tool\data\pdoxusrs.lck.
>
> Mam ty data na NT servru a pristupuju k nim jen ja.
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+Soucet
[*] Marcant <marcant(zv)sct.sk> - 04.3.1999 09:31:11
Skusil som nieco podobne a no problem. Len treba ratat s tym, ze vypocitavane
polozky maju hodnotu
az pocas behu aplikacie a nie pri navrhu (to znamena, ze ak navrhujes zostavu a
das preview tak bude
sucet, ale aj vsetky tieto polozky nulove). Ale neviem, mozno tvoj problem je
niekde inde.
Krayzel Libor wrote:
> Zdravim,
>
> v paradoxi tabulce mam pocitane pole. Pri navrhu sestavy v bandu DETAIL
> zobrazuji jednotlive zaznamy (podle filtru) a dole bych chtel udelat soucet
> te pocitane polozky. Pouzil jsem TQRExpr a nastavil
> Expression=SUM(tblPOLOZKY.CELKEM), ale at to dam do jakehokoli bandu
> (Summary, GroupFooter), vzdy mi to spocita jako 0.
> Prosim o radu.
>
> ==[ eLK(zv) ]===================================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> ============================================================Soucet
[*] HAJDUK Slavo <Hajduk(zv)asset.sk> - 4.3.1999 09:32:09
Hi all.
Zhanam nejaky slusny resource editor nieco ako Resource Workshop,
ktory bol sucastou Borland Pascalu 7.0. Slv.
Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 09:33:24
"Clovek, ktery se uz boji poslat nesmysly do konference a otravuje
s tim aspon soukrome si to zverejneni zaslouzi."
Jo, ja pisu nesmysly do konference o sto pero a co jsem si tim vyslouzil?
Vyloucit me chteji! Uz zadne nesmysly psat nebudu. Vzdycky me chteji
odevsad vyloucit... Hajzlove...
Viktor
begin 600 WINMAIL.DAT
M>)\^(AD(`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`V````4D4Z
M($]F9G1O<&EC.B!P;V)A=F5N:64N+BX(zv)*$PN($9U;&4(zv)=F5R<W5S($TN($9R
M;VYE:RD`1Q$!!8 #``X```#/!P,`! `)`"$`& `$`",!`2" `P`.````SP<#
M``0`"0`(zv)``H`! `4`0$)(zv) $`(0```#E#.#-&1D0R,#!$,D0R,3$Y,T$S,# R
M,$%&,T)$.3%#`"8'`0.0!(zv)#X! ``(0````L``(zv)`!````"P`C```````#`"8`
M``````L`*0```````P`N```````#`#8``````$ `.0#P;^RJ&6:^`1X`< `!
M````-(zv)```%)%.B!/9F9T;W!I8SH(zv)<&]B879E;FEE+BXN("A,+B!&=6QE('9E
M<G-U<R!-+B!&<F]N96LI`````(zv)%Q``$````6`````;YF&:KDTO^#G=(`$=*3
MHP`(zv)KSO9' ``'(zv)`># $````%````4TU44 `````>`!\,`0```!8```!V:6MT
M;W(N;&]S=&%K0&-H;6DN8WH````#``80]1CYUP,`!Q#P````'(zv)`($ $```!E
M````(D-,3U9%2RQ+5$5265-%55I"3TI)4$]33$%43D5335E33%E$3TM/3D9%
M4D5.0T5!3U1205952D535$E-05-03TY33U5+4D]-15-)5$]:5D5214I.14Y)
M6D%33$]56DDB2D\L2(zv)`````"`0D0`0```+H!``"V`0``7 (``$Q:1G6JHA+6
M=P`*`0,!]R "I /C`(zv)!C`F(zv)*P'-E=#(S.-4``"H"X6$'(zv)" '$P* \0<3($-%
M`H,`4 +R#U=(zv),"!486(zv)#<0* ?1,*(zv) C((#L);S(U-3,"(zv) J!=6,`4 L#;&DT
M,S8!0&,`00M(zv);F>0,3 R.0NF("(6X;4!0' #8'0%D 5 0PD`0'9E:RP(zv):QC0
M<H1Y( ^P('5Z( ;(zv)P&II('!O<PM(zv)!4 R;(zv)>0;7D:T!G(zv)9&];&9 "(&8$D GP
M8Q"080((zv)&,!R879U:F6W"J(*(zv) 0(zv)= =P'(!S&K#U`Z!S"&!K`V$0D "0':#M
M&\!Z&5 )<&H;( ,`'S#G'? )`!HP:2X6XQBE&"VG'30(zv)BQTT2F\9(zv)&H<D)IP
M! !U&Q,7)3,S$=&N(!MO$) ;P',?$7 $D/\;P!R0!: C\ ^P'= >XAW!!G8E
MD2 R;#\(zv)5GGY("%C:05 $($/<!C0&H#8(2!5&D ?\&0;(!L8!'!S&O-B=61U
M+L$I('ID>6-K&> IQVL<H $`=BN(zv)9"AQ*50NP2Z ($AA:GH9,BZ!\R(U'4-6
M:1F(zv)!; 84Q<W+R'&&'(=4A.!`#*P```#`! 0``````,`$1 ``````P" $/__
M__] ``<PD$M6?QEFO(zv)% ``(zv)PD$M6?QEFO(zv)$+``" "" &``````# ````````
M1(zv)`````#A0````````,``H (( 8``````, ```````!&`````!"%````````
M`P`%(zv) (zv)(zv)!(zv)``````P ```````$8`````4H4``/ .```>`"6 "" &``````#
M````````1(zv)````!4A0```0````0````X+C ``P`F(zv) (zv)(zv)!(zv)``````P ``````
M`$8``````84````````+`"^ "" &``````# ````````1(zv)`````.A0``````
M``,`,( (( 8``````, ```````!&`````!&%`````````P`R(zv) (zv)(zv)!(zv)``````
MP ```````$8`````&(4````````>`$& "" &``````# ````````1(zv)`````V
MA0```0````$`````````'(zv)!"(zv) (zv)(zv)!(zv)``````P ```````$8`````-X4```$`
M```!`````````!X`0X (( 8``````, ```````!&`````#B%```!`````0``
C```````>`#T``0````4```!213H(zv)``````,`#33]-P``]P6%
`
end
Problemy s TTable
[*] Radek Lev� - 4.3.1999 09:35:10
Zdravim,
jsem zacatecnik, takze tomu odpovida muj problem :
Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji tabulku
jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
Pr :
Var X : tTable
Begin
X. TableName := 'xxx.db';
End;
Urcite to bude nejaky trapas, ale reseni me moc pomuze.
Dik ALPtech
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] iturcan(zv)gamo.sk - 4.3.1999 09:35:45
>Nebo si programator udela totez sam.
Nie kazdy programator vie pisat komponenty !!!
Vzhladom na to ze skolite v Inprise to iste viete.
>Naopak povazuji za vhodnejsi prodavat hotove programy, ktere jsou
>z tech komponent sestaveny.
Samozrejme ano, komponenty ktore ponukam vznikli na zaklade mojich potrieb
do
projektov ktore robim alebo som robil, dovod preco ich ponukam som
vysvetlil minule.
Ivan Turcan
Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 4.3.1999 09:42:08
Co znamena chyba:
Multiple .Net files in use.
File: i:\work\ade\ade_tool\data\pdoxusrs.lck.
Mam ty data na NT servru a pristupuju k nim jen ja.
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+RichEdit x Page Break x Tisk
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 4.3.1999 09:48:00
A kde se da sehnat ?
> -----P=F9vodn=ED zpr=E1va-----
> Od: Bohuslav Svancara [SMTP:softprojekt(zv)bosnet(tec)cz]
> Odesl=E1no: 4. b=F8ezna 1999 7:16
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Re: RichEdit x Page Break x Tisk
>=20
> Ta komponenta, ktera umi odstrankovat, se jmenuje Word.
>=20
> Bohuslav =8Avancara
> softprojekt(zv)bosnet(tec)cz
>=20
> -----Original Message-----
> From: Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz>
> >Nevite o nejake komponente ktera to umi nebo jak tento problem
> >obejit? Generuji text ktery je pokazde jinak dlouhy a urcite pasaze
> >potrebuji dostat na novou stranku.
> >
> >Diky za vsechny odpovedi.
> >sikora(zv)kam(tec)czu(tec)cz
Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.3.1999 09:48:39
>Kdyz jsme se dole dostali az ke komunistum - na zaklade
>vyse zminene vety by bylo nefer zverejnit zvaci dopisy
>z roku 1968. A to si nemyslim.
Prosimte jak muzes neco takoveho srovnat!!!!!
To byla trestna cinnost i podle tehdy platnych zakonu rovnajici se
vlastizrade!!!
Fronek se zadneho trestneho cinu nedopustil!!!!
>Ano, nezda se mi fer nekoho za zady pomlouvat ci vedet o tom, ze
>nekdo nekoho pomlouva a nic s tim neudelat. Zverejnenim
>das tomu "debilovi" moznost se aspon trochu branit.
Tvuj zpusob mysleni je mi na svetelne roky vzdalen.
>Asi ano, jsem kovanY komunista :-)
To myslis vazne?
>vezmu ad absurdum - nezverejneni soukrome korespondence muze
>byt za urcitych okolnosti trestny cin.
Zase ulet. Pokud mas vedomi o trestnem cinu (ziskas jej naprikld
ze soukrome korespondence), mas zakonnou povinnost informovat
organy cinne v trestnem rizeni. Nikoliv neco zverejnovat. Prislusna
osoba musi byt obzalovana a plati presunkce neviny. To, ze se jedna
o trestny cin, muze byt jen tvoje domenka a posoudit to muze jedine soudce.
>A taky pozor na me! Pokud mi napisete neco o nekom,
>nebo neco o necem, co se tyka vsech, tak vas okamzite prasknu.
Praskacum ja nepisu. Takovi lide se mi nelibi.
JaroMemo1
rowid
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 4.3.1999 09:50:13
> Jan =A9ebel=EDk wrote:
> > Ale zase bych se musel zeptat PROC?
> > Udelam-li poctive datovy model, urcite mi tam nejaky identifikacni at=
ribut (primarni klic) vyleze.
>=20
> Odes=EDlatel: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
> Uz jen proto, ze to bude VZDY jednoznacna identifikace zaznamu v databa=
zi ktera je velice vhodna pro vytvoreni
> relacni vazby. Uz z toho duvodu, ze je generovana DB serverem.
>=20
> Mac
> --
[Jan Sebelik]
To jsme si asi nerozumeli.=20
Nemam nic proti VZDY jednoznacne a DB serverem generovane indetifikaci za=
znamu.
Nepouzil bych na to ovsem nejake "interni" rowid, ale "standardni" polozk=
u (ID), kterou pak uvedu v PRIMARY KEY.
Jednoznacnost mi zajisti prave PRIMARY KEY, na generovani pouziji
- v InterBase: generator
- v Oracle: sequence
- v MS SQL Server: identity
- atd.
Pak se na to mohu kdykoli odvolavat jako na ID, nikoli v kazde databazi j=
inak (rowid, rdb$db_key a pod.)
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ADO a ulozene procedury
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 4.3.1999 22:23:10
Cau,
vsechno zpet !!!
Zasadni chyba byla v _connection.provider. S providerem SQLOLEDB to
nechodilo po nahrazeni providerem MSDASQL je vse v poradku.
Ale jinak dik.
Tomas
-----P�vodn� zpr�va-----
Od: Tomas Bradle <tomas(zv)cobra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b�ezna 1999 21:34
P�edm�t: Re: ADO a ulozene procedury
Cau,
zkusil jsem to, tady jsou vysledky:
1) pokud je procedura bez parametru je vse OK (recordset se otevre) - napr.:
rs.Open('tsp_GetTables', adoConnection, adOpenStatic, adLockOptimistic,
adCmdStoredProc);
ale i :
rs.Open('exec tsp_GetTables', adoConnection, adOpenStatic, adLockOptimistic,
adCmdText);
2) tady je ale se dvema parametry - hlasi chybu syntax error :
rs.Open('tsp_RowLock 234, ''Sup''', adoConnection, adOpenStatic,
adLockOptimistic, adCmdStoredProc);
3) opet se dvema parametry, ale adCmdStoredProc - rowset se neotevre
a procedura se neprovede :
rs.Open('exec tsp_RowLock 234, ''Sup''', adoConnection, adOpenStatic,
adLockOptimistic, adCmdText);
procedura tsp_RowLock provadi update... a select...,
ktery vraci. Vyzkouseno pres BDE a TStoredProcedure - vrati Dataset
a procedura se provede.
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b�ezna 1999 19:24
P�edm�t: Re: ADO a ulozene procedury
Tomas Bradle wrote:
> Cau,
> mel bych takovy dotaz. Zkousel nekdo z Vas volat ulozene procedury z MSSQL
> 7 pres ADO s predavanim parametru.
>
> Ja to zkousel ruzne:
> 1. connection.execute - to funguje perfektne, ale bez parametru (nedaji
> se
> zadat)
> 2. command.execute - to funguje taky, ale zase bez parametru, selhaly
> konstrukce parametru podle prikladu VBasicu v online ADO dokumentaci (pres
> CoParameter.create, command.CreateParameter -> command.Parameters.Append)
A zkousel jsi to pres Recordset?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
klavesove zkratky menu
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 4.3.1999 09:54:42
ahoj
mam nasledujici problem:
V hlavnim formulari (SDI aplikace) mam menu a v nem polozku "Vlozit" s
vlastnosti ShortCut = "Shift+Ins", k teto polozce
menu mam pripojenou proceduru, ktera vklada text ze schranky do aktivniho
RichEditu na hlavnim formulari.
Jestlize z hlavniho formulare otevru jiny formular, na kterem mam napr. Edit
a stisknu "Shift+Ins", text ze schranky se
nevlozi do aktivniho Editu, ale do RichEditu na hlavnim formulari = provede
se procedura polozky menu na hlavnim formulari.
nevi nekdo jak uvedeny problem odstranit ?
diky za pripadne odpovedi
Zdenek Fryz
elementarny problem s C/S
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 4.3.1999 09:59:33
Jsem rad, ze se mnou Martin "v zasade souhlasi" (viz nize).=20
Ma tam sice nejake "ale", jenze to by se nam ta diskuse uz moc rozplizla.
Nejvic se mi libi jeho myslenka osetreni techto problemu na aplikacnim se=
rveru. Tam si s tim mohu opravdu delat, co chci.=20
Co takhle dokonce poslat aplikacnimu serveru interface na vlastni metody =
na klientovi, ktere mu "pomohou" problem resit tak, jak si to klient prej=
e.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 0434 692 931
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Re: elementarny problem s C/S
> Datum: 3. b=F8ezna 1999 20:47
>=20
> Jan =A9ebel=EDk wrote:
>=20
> > Ja bych v tomto pripade prijal optimisticke zamykani (bez prace) a o =
problem bych se zacal starat az tehdy, kdyz to nejde ulozit: "Record chan=
ged by another user".
>=20
> Jenze to se taky nemusi objevit vzdycky ;-) Zalezi jak a cim a na cem s=
e pracuje.
>=20
> > Pak muzu uzivateli rici:
> > Hele, nekdo ti na to sahnul, tak se rozhodni, co s tim mam udelat.
> > Mam prosadit tvoji nebo se chces mrknout, co tam kdo zmenil?
>=20
> To taky povazuju za nejrozumnejsi, ale co v pripade, kdy mu dam omrknou=
t ty zmeny, aby si vybral, ktere teda akceptuje (zda ty na serveru nebo t=
y u sebe) a nez to
> udela, tak ty data zmeni jeste nekdo jiny znovu atd. Osobne se mi libi =
sitovy zamek od Martina Fronka (sice je potreba to dovest do nejakeho fun=
kcniho stavu - service
> nebo lepe aplikacni server), kdy se o zamykani stara 'zamkovy server' s=
moznosti napr. nastaveni doby zamceni zaznamu. Podle mne je pro kazdou a=
plikaci potreba pouzit
> jiny pristup. Optimisticke zamykani napr. nemuzu povolit v pripade ukla=
dani delsich textovych zprav do databaze (ktere pise uzivatel treba pul h=
odiny).
>=20
> > Mimochodem TClientDataSet (resp. IProvider) to dela sam moc pekne (On=
ReconcileError). Ale to muze zase znamenat problem s licenci na MIDAS (al=
e nemusi).
>=20
> To se mi prave taky libi (ovsem uz se mi mene libi ten MIDAS - takze by=
ch to spise videl v kombinaci ADO+RDS)
>=20
> Mac
>=20
> --
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> =3D Ing. Martin Kubecka - Amenit s.r.o. =3D
> =3D Na Valech - budova Dytron, 741 01 Novy Jicin =3D
> =3D telefon/fax: +420 656 706203 mobil: +420 603 265926 =3D
> =3D http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =3D
> =3D ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =3D
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Problemy s TTable
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 4.3.1999 10:09:43
>Zdravim,
>jsem zacatecnik, takze tomu odpovida muj problem :
>Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji tabulk=
u
>jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
>
>Pr :
>
>Var X : tTable
>
>Begin
X :=3D tTable.Create(Application);
> X. TableName :=3D 'xxx.db';
X.Free;
>End;
>
Tabulka je objekt a jako takovy jej musis vytvorit a na konci zrusit
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa=E8n=ED system pro n=E1poj=E1=F8e
-----------------------------------------------------------------
Desetinna tecka v AsFloat nefunguje
[*] Tom Michal�k <tom.michalik(zv)usa(tec)net> - 04.3.1999 10:10:49
Tomas Holan wrote:
>
> >
> > Nevite, co s tim? (Neradte mi zmenit desetinnou tecku na desetinnou
> > carku)
>
> Co takhle promenna DecimalSeparator?
>
> Tom
Podle mne to jeste zavisi na nastaveni BDE (.../System/Format/Number).
Tom Michalik
Problemy s TTable
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 4.3.1999 10:18:58
Tu tabulku musis vytvorit konstruktorem.
X :=3D TTable.Create(Application);//napriklad
> -----P=F9vodn=ED zpr=E1va-----
> Od: Radek Lev=FD [SMTP:support(zv)ivsn(tec)cz]
> Odesl=E1no: 4. b=F8ezna 1999 9:35
> Komu: Konference Delphi
> P=F8edm=ECt: Problemy s TTable
>=20
> Zdravim,
> jsem zacatecnik, takze tomu odpovida muj problem :
> Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji
> tabulku
> jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
>=20
> Pr : =20
>=20
> Var X : tTable
>=20
> Begin
> X. TableName :=3D 'xxx.db';
> End;
>=20
>=20
> Urcite to bude nejaky trapas, ale reseni me moc pomuze.
>=20
> Dik ALPtech
OffTopic: NT
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 10:26:10
Jde to udelat pro prave otevirany soubor (CreateFile(...)) nejakym priznakem BLABLA_WRITETHROUGH (?). Pro cela NT to (myslim) nejde.
Viktor
Ahoj,
sorry za offtopic, ale nemuzu nikde najit
(jestli to vubec jde) jak zakazat zpozdeny
zapis na disk v NT 4.0.
S pozdravem a diky
begin 600 WINMAIL.DAT
M>)\^((zv)L)`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`1````4D4Z
M($]F9E1O<&EC.B!.5 `'!0$%(zv) ,`#(zv)```,\'`P`$``H`&(zv)`*``0`#P$!(( #
M``X```#/!P,`! `*`!(zv)`!P`$``H!`0F `0`A````0S X,T9&1#(P,$0R1#(Q
M,3DS03,P,#(P048S0D0Y,4,`'0<!`Y &`- $```A````"P`"``$````+`",`
M``````,`)(zv)``````"P`I```````#`"X```````,`-(zv)``````0 `Y`%!#$0HA
M9KX!'(zv)!P``$````1````4D4Z($]F9E1O<&EC.B!.5 `````"`7$``0```!8`
M```!OF8A"(zv)S2_X/&T(zv)`1TI.C`""O.]D<```>`!X,`0````4```!33510````
M`!X`'PP!````%(zv)```'9I:W1O<BYL;W-T86M 8VAM:2YC>(zv)````,`!A P]3K)
M`P`'$-X````>``(zv)0`0```&4```!*1$543U5$14Q!5%!23U!2059%3U1%5DE2
M04Y94T]50D]2*$-214%4149)3$4H*2E.14I!2UE-4%))6DY!2T5-0DQ!0DQ!
M5U))5$542%)/54=(*#\I4%)/0T5,04Y45$\H35E3``````(!"1 !````M0$`
M`+$!```[`(zv)``3%I&=7&BW(HW``H!`P'W( *G`(zv)!C: $*P'-E=# (zv)5&$^: -Q
M`H,`4 /4#S<R,ZHX```J`N%A!X (zv)!Q.C`H '$R!#10* ?0J B0C((#L);S(U
M-0* &0J!=6,`4 L#;&DS&C8!0&,`00M(zv);F<Q2# S,PNF($H!`"!P=&\(zv)=0$`
M"V %0' 3`V 9$6%V$E!O=&6$=FD9<&YY(',(8#,&X 7 *$,)<!CP9481`Q!E
M*"X;D"DI(&!N96IA:P; &1%I$GH2(&ME'%!"3$$!'1%?5U))5$540$A23U5'
M2!K /] I+B!0&3%C&-$'L$)4&'(H;7ES%I!M.QO3`0`N"J(*A J 5FG*:QB
M<A<E,CD0<B"43Q;P`4 9(1G08W0(zv)A$%I$ !J+""*("3Q&F!R:G(:0'H?$&\!
M(!B <'!I8RP(zv)!T 24!OP;7AU>G4;X"%0&%$2(&K2:2-U*&H'D'06D!AR]G8:
M(zv) 60("!!&] <$26!#&MA)9 %0'IP;WI_`0`:,""$)9 F$ 0(zv)$B (zv)%F0$`"F(zv)
M=A\B-"XP_R![)/(M?07P*E(9<AQ0*Y(7'# (zv)BA.!`#"(zv)`````P`0$ `````#
M`!$0``````,`(zv)!#_____0 `','!\%<$(zv)9KX!0 `(,'!\%<$(zv)9KX!"P``(zv) (zv)(zv)
M!(zv)``````P ```````$8``````X4````````#``* "" &``````# ````````
M1(zv)`````0A0````````,`!8 (( 8``````, ```````!&`````%*%``#P#(zv)``
M'(zv)`E(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XP``,`)H (
M( 8``````, ```````!&``````&%````````"P`O(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````#H4````````#`#" "" &``````# ````````1(zv)`````1A0``````
M``,`,H (( 8``````, ```````!&`````!B%````````'(zv)!!(zv) (zv)(zv)!(zv)``````
MP ```````$8`````-H4```$````!`````````!X`0H (( 8``````, `````
M``!&`````#>%```!`````0`````````>`$. "" &``````# ````````1(zv)``
M```XA0```0````$`````````'(zv)`]``$````%````4D4Z( `````#``TT_3<`
#`"#F
`
end
Jake lidi? (was: REINSTALACE WOKEN)
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 10:29:09
Tak podle tebe je lepsi mit lidi, po nichz treba nezbude vubec nic a ktery
si tam platis jen pro paradu? Blbci asi sotva budou tve firme nejak
prospesni. Odchod dobrych lidi je urcite neprijemna zalezitost, ale prece
si
kvuli tomu umyslne nebudu nabirat blbce (jak bylo v tom puvodim mailu
napsano). To bych se mezi ty blbce mohl rovnou take zaradit.
No je to kazdeho vec. Ja si dobreho programatora cenim a chranim a ty
spatne
proste nemam.
Jaro
PS. V Americe jsem sice nebyl, ale silne pochybuju, ze to tam takhle
opravdu
funguje.
Ja tam byl, ale prirozene CELOU ameriku neznam, jen maly kousek. A budes se
divit, nekde (ve velkych firmach) to opravdu tak chodi. Cekal jsem haldu
namakanych programatoru, co drou od rana do vecera a nasel jsem partu
prumernych ulejvaku, jako jsem ja. Tak se mi tam libilo, bylo to jako doma.
Viktor
begin 600 WINMAIL.DAT
M>)\^((zv)H)`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`H````4D4Z
M($IA:V4(zv);&ED:3\(zv)*'=A<SH(zv)4D5)3E-404Q!0T4(zv)5T]+14XI`%(+`06 `P`.
M````SP<#``0`"(zv)`=``D`! `1`0$(zv)(zv) ,`#(zv)```,\'`P`$``H`&P`:``0`( $!
M"8 !`"$```!$-C(zv)S1D9$,C P1#)$,C$Q.3-!,S P,C!!1C-"1#DQ0P`D!P$#
MD 8`L 8``"$````+``(``0````L`(P```````P`F```````+`"D```````,`
M+(zv)```````P`V``````! `#D``!FH="%FO(zv)$>`' ``0```"(zv)```!213H(zv)2F%K
M92!L:61I/R H=V%S.B!214E.4U1!3$%#12!73TM%3BD``(zv)%Q``$````6````
M`;YF(72CTO^#U](`$=*3HP`(zv)KSO9' ``'(zv)`># $````%````4TU44 `````>
M`!\,`0```!8```!V:6MT;W(N;&]S=&%K0&-H;6DN8WH````#``802U%Z_0,`
M!Q"D`(zv)``'(zv)`($ $```!E````5$%+4$]$3$5414)%2D5,15!324U)5$Q)1$DL
M4$].24-(6E1214)!3D5:0E5$15950D5#3DE#04M415)94TE404U03$%425-*
M14Y04D]005)!1%4_0DQ"0TE!4TE33U1604)51 `````"`0D0`0```((#``!^
M`P``>(zv)0``$Q:1G6S8N0R=P`*`0,!]R "I /C`(zv)!C`F(zv)*P'-E=#(S.-4``"H"
MX6$'(zv)" '$P* \0<3($-%`H,`4 +R#U=(zv),"!486(zv)#<0* ?1,*(zv) C((#L);S(U
M-3,"(zv) J!=6,`4 L#;&D,,S8!0 M(zv);F<Q,*PR.0J(zv)`V!T!9!T"Z;1$O%K(' $
M<&P0D!>P6F(0D&H0D!CP< "0((QM:05 %I!D:2P8L38(zv)`P`/<'H9$ EP8F$A
M&L!E>F)U`0`(zv)=JIU&4!C&L((zv)&W!K%["\<GD*H(zv)J &=$!D&T8L/T+8'0$`!EA
M`Z 7(zv)1BP"L `861U/R!";&*J8QG(zv)81G1<Q>(zv)=AMP%QO!"& 9$'80D&9I<CL0
M(zv)1N0:AB0'207(zv)7-PPP>0`P`N($]D#W $</H(zv)((!B'0`/<!HS&6((<*\?D!>P
M&X$7(zv)&D9<&T08+P(zv)>(zv)= &Z :$"(P=!J OR5A'I$%D!"0`)$=,VL<$ \6D!D0
M`W (zv)H'5M>7.^;!N0&X$;P2"(zv)$&!B(1!O'A (zv)4!]Q$) H(8$(zv)4'G/"0`<`">"
M&+!U=(zv)1P!W!_&? +< I '2008!G `'!O^BDBH%0:L"H`(X$/L!GPVR6!&1!Y
M*44$8&(zv)#( -(zv)_G8L,""A&) 0D"50'P$:$'HN'21.&K 9<26P',!AOGH!`!,(zv)
M' `%D"*(zv)2AMP_QG1(S(PTA>!"< 0<!X0!;#?&W F(zv) ,`'= R\6(zv)?`#,T?RV!
M(D >$!N0(;(zv)D<P# ;4\OE3%(zv)`V =)%!3(J!6[Q"(zv)!X %$":!:(zv)^P'= `D/\F
M(zv)2AA*A E] "0*"(8P ]PTGD;P&IU&H!Z,$,=LI<NT2XP$)!O%X!A=A\(zv)V1TD
M9G47$#G(zv)92^5"-"?`$$7A0% /*06]#,S$='_,5(=LCB7),$#8#HP*#$1(zv)-A,
M3U4<H#=B:RBQ&Z"O$&$:(zv)!YB`,!L+9!K"&#U#[!K(J!!(%('D2T!&F"N=AH0
M&H ;D&L;X2(zv)(zv)T3D(zv)T&QK(W(A`(zv)#0:"F_,%([12[",X$JX2*(zv)0T+ =Q%1-],/
M(zv)&PHHP# ,)!N_R-R,DDZ`06(zv)(R #8""(zv)(P'_,[$;<"" ,0($D!MP&W$?P/=$
MT#?$"K%T(* 7(zv)"?(zv)!)'_(W(G4"%P(#!!0$'1&) P$?\WXB& +&$8D2T"'906
MD"CP_PD`&H J`S!A3?,(zv)(zv) # /(;]'3-603 RP3SQ%M\7XQTS!1.!`%20```#
M`! 0``````,`$1 ``````P" $/____] ``<P8/7+-R%FO(zv)% ``(zv)P8/7+-R%F
MO(zv)$+``" "" &``````# ````````1(zv)`````#A0````````,``H (( 8`````
M`, ```````!&`````!"%`````````P`%(zv) (zv)(zv)!(zv)``````P ```````$8`````
M4H4``/ .```>`"6 "" &``````# ````````1(zv)````!4A0```0````0````X
M+C ``P`F(zv) (zv)(zv)!(zv)``````P ```````$8``````84````````+`"^ "" &````
M``# ````````1(zv)`````.A0````````,`,( (( 8``````, ```````!&````
M`!&%`````````P`R(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>`$&
M"" &``````# ````````1(zv)`````VA0```0````$`````````'(zv)!"(zv) (zv)(zv)!(zv)``
M````P ```````$8`````-X4```$````!`````````!X`0X (( 8``````, `
M``````!&`````#B%```!`````0`````````>`#T``0````4```!213H(zv)````
+``,`#33]-P``YY.%
`
end
EXE,DLL - 2
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 10:32:06
Jde o to jak to dll spustit, kdyz jej prilinkuji k exe. Napada me vytvorit
docasny dll soubor a ten po dobu behu aplikace vyuzivat, ale kdyby to slo
nejak primo ?
Tak by to urcite slo. Jenomze kdo ten docasny soubor smaze, kdyz ukoncis
aplikaci? Ale mozna by ti ani nevadilo, kdyby tam zustal, kdyz se pri
kazdem startu aplikace prepise. Fakt je, ze se takovym postupem opravdu
bezpecnost zvysi.
Tak to tedy dej do resourcu, stejne jako obrazek, zvuk, nebo cokoli
jineho.
Dost mozna by ale stacilo kontrolovat pri kazdem startu kontrolni soucet te
DLL.
Viktor
begin 600 WINMAIL.DAT
M>)\^((zv)(zv))`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`1````4D4Z
M($5812Q$3$P(zv)("T(zv),(zv)":`P$%(zv) ,`#(zv)```,\'`P`$``H`( `&``0`$0$!(( #
M``X```#/!P,`! `*`!T`+ `$`#0!`0F `0`A````1$4X,T9&1#(P,$0R1#(Q
M,3DS03,P,#(P048S0D0Y,4,`,P<!`Y &`)(zv)%```A````"P`"``$````+`",`
M``````,`)(zv)``````"P`I```````#`"X```````,`-(zv)``````0 `Y``!;DMXA
M9KX!'(zv)!P``$````1````4D4Z($5812Q$3$P(zv)("T(zv),(zv)`````"`7$``0```!8`
M```!OF8AWHW2_X/?T(zv)`1TI.C`""O.]D<```>`!X,`0````4```!33510````
M`!X`'PP!````%(zv)```'9I:W1O<BYL;W-T86M 8VAM:2YC>(zv)````,`!A"EI-6)
M`P`'$,(zv)!```>``(zv)0`0```&4```!*1$5/5$]*04M43T1,3%-055-4250L2T19
M6DI%2E!224Q)3DM52DE+15A%3D%0041!345665163U))5$1/0T%33EE$3$Q3
M3U5"3U)!5$5.4$]$3T)50D5(54%03$E+04-%5EE5``````(!"1 !````?(zv)(`
M`'H"``!/`P``3%I&=<3/+#YW``H!`P'W( *D`^,"`&,": K <V5T,C,XU0``
M*(zv)+A80> ( <3`H#Q!Q,(zv)0T4"(zv)P!0`O(/5V P(%1A: -Q`H!]$PJ ",(zv)(zv).PEO
M,C4U,P* "H%U8P!0"P-L:0PS-(zv)% "V!N9S$PK#(Y"J #8'0%D'0+IH0(zv)2(zv)$`
M(&\(zv)=!C 2&IA:QC29&P#(',`<'5S=&ET+" 0:V1Y>AD`96H(zv)AQ> `Q +(zv)&MU
M:FD:0* (zv)97AE+(zv)>P80JP"&1A(!"!=GET=(zv)\%L!H0"J(*(zv)&1O8V'X<VYY&70(
M8 ;(zv)!< <4 L7L .(zv)<!EA;V)U(+AB96(zv)?<!P0%I!K`-#!'()U>FEV81HA!T#;
M$) :46(=X!CA<PD`'22>;AJP&2$:X01(zv)(#\=)#\(T !!%X4!0"-4%O0S,]\1
MT1+Q&3 AA AP8QH0$)#;(>$;X$H)\ -P>B$R&,%W'N$=AAY%<P# )U :-76>
M:P((zv))F $(!_E:3\0H/LA(01(zv)>A!(zv))=,;< !P&W#K(G (zv)P&0#$&\:,R&"$'#\
M('H9X0= &C4/L!K2&D!_*1 !`"TP+7$`(!_)%X!E]G $`!O11AD(zv)!4 :H!HP
M_R=1+B$!D"G '* M,!\0&? 4=7 NT6\7(zv)&%V9/4?<GHR4&,G(!GP+4 <H/T`
MD"XC11TS):(8X1>P&F"_&7 :L2>1"7 >0290=1HP_R[Q&K B<!D"&, ?4#*P
M)U!Z:S$!=BFP&C B< ;(zv)(/\%H"G %I 9``N 'Z FT#0J_D0S(zv)BL7(1(M<29(zv)
M"0`:0/\"(0-(zv)"0`(zv)P2Y/'W \!2OACQY!($ %0":!1$Q,-!OV5B 0&.!R%N(zv)!
M,1TS$X$"`$'(zv)```#`! 0``````,`$1 ``````P" $/____] ``<PT.G$B2%F
MO(zv)% ``(zv)PT.G$B2%FO(zv)$+``" "" &``````# ````````1(zv)`````#A0``````
M``,``H (( 8``````, ```````!&`````!"%`````````P`%(zv) (zv)(zv)!(zv)``````
MP ```````$8`````4H4``/ .```>`"6 "" &``````# ````````1(zv)````!4
MA0```0````0````X+C ``P`F(zv) (zv)(zv)!(zv)``````P ```````$8``````84`````
M```+`"^ "" &``````# ````````1(zv)`````.A0````````,`,( (( 8`````
M`, ```````!&`````!&%`````````P`R(zv) (zv)(zv)!(zv)``````P ```````$8`````
M&(4````````>`$& "" &``````# ````````1(zv)`````VA0```0````$`````
M````'(zv)!"(zv) (zv)(zv)!(zv)``````P ```````$8`````-X4```$````!`````````!X`
M0X (( 8``````, ```````!&`````#B%```!`````0`````````>`#T``0``
7``4```!213H(zv)``````,`#33]-P``*#2%
`
end
Problemy s TTable
[*] Radek KALA <DELPHI(zv)betacontrol(tec)cz> - 4.3.1999 10:34:51
From: "Radek Lev " <support(zv)ivsn(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Subject: Problemy s TTable
Date sent: Thu, 4 Mar 1999 09:35:10 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Zdravim,
> jsem zacatecnik, takze tomu odpovida muj problem :
> Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji tabulku
> jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
>
> Pr :
>
> Var X : tTable
>
> Begin
// Sem bych napsal neco jako
X:= TTable.Create(nil);
> X. TableName := 'xxx.db';
> End;
>
>
> Urcite to bude nejaky trapas, ale reseni me moc pomuze.
>
> Dik ALPtech
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4555 1269
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Desetinna tecka v AsFloat nefunguje
[*] Petr Hartman <medisoft(zv)uo.fairnet(tec)cz> - 4.3.1999 10:34:14
Ahoj
ja s tim problemy nemam, pokud mam ve Win95 v mistnim nastaveni j=
ako desetinny oddelovac tecku, tak tebou popisovany pripad funguje bez pr=
oblemu.
S pozdravem
Petr Hartman
-----P=F9vodn=ED zpr=E1va-----
Od: Karel Kral <kral(zv)purus(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 2. b=F8ezna 1999 18:44
P=F8edm=ECt: Desetinna tecka v AsFloat nefunguje
>Mam problem - nas dodavatel jednoho software pouziva BDE, databaze
>paradox, Delphi3 na takovy problem, se kterym si nevi rady:
>=20
>Mam pole databaze typu string, ve kterem je ulozena hodnota "12345.67"
>Vsimete si desetinne tecky, ve Win95 mame v narodnim prostredi
>nastavenou desetinnou tecku (ne carku, kterou nam vnucuje Win).=20
>
>Tahle hodnota "12345.67", pokud se cte pomoci AsFloat hlasi chybu
>konverze dat, jako kdyby AsFloat predpokladalo desetinnou carku.
>
>Nevite, co s tim? (Neradte mi zmenit desetinnou tecku na desetinnou
>carku)
Problemy s TTable
[*] Ladik Kasza <ladik(zv)army.sk> - 4.3.1999 10:41:32
Ahoj,
Skor ako zacnes pouzivat objekt, tak ho musis vytvorit.
Pr :
Var X : tTable
Begin
X := tTable.Create(nil);
X. TableName := 'xxx.db';
End;
Ladik
>Zdravim,
>jsem zacatecnik, takze tomu odpovida muj problem :
>Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji tabulku
>jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
>
>Pr :
>
>Var X : tTable
>
>Begin
> X. TableName := 'xxx.db';
>End;
>
>
>Urcite to bude nejaky trapas, ale reseni me moc pomuze.
>
>Dik ALPtech
>rowid
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.3.1999 10:43:04
Nevis, zda tam neudrzuje taky nejakej rdb$ na celkovy pocet zaznamu
SELECT count(*), pokud se jde pres vsechny zaznamy na vetsi tabulce
nejakou chvili trva
Jaro
>Na Interbase existuje rdb$db_key. Napr.:
>
>SELECT RDB$DB_KEY FROM CIS_ULIC
>
>DB_KEY
>========
>00900009
>0090000A
>0090000B
>0090000C
>
>Pozor! Vraci Hex cislo.
>Prvni tri cislice jsou id tabulky, dalsi id zaznamu.
>
>>Nazdar nazdar.
>>
>>Neviete niekto nahodou, ci existuje v Interbase take nieco, ako v Oracli
>>pole
>>rowid (jednoznacna identifikacia riadku), bez doplnania vlastnych
>>stlpcov. ?
>>
>>Thanx.
>>Peter.
>>
>>
>
>Delphi a propojeni na WORD
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.3.1999 10:43:31
Je potreba vytvorit sablonu MS Wordu a soubor otevrit s pouzitim sablony.
Do sablony jsme to nejdrive nacitali pres INI soubor. Protoze to ovsem neni
zcela trivialni problem (ve Wordu je potreba osetrit udalosti, jako tlacitko
ulozit,
krizek pro ukonceni Wordu a pod.), jeden kolega programator udelal sikovne
dll knihovny pro komunikaci s MS Word. S jejich pomoci se to programuje
snadneji a je to lepsi. Jde take primo ukladat do databaze bez dalsiho
pomocneho
souboru. Kontakt je na adrese tomas(zv)sinea(tec)cz .
Jaro
>
>Ahoj
>
>Ve Vordu 97 mam napsane smlouvy a zadosti. Z aplikace v Delphi (C/S,
>Oracle) bych chtel pro dany zaznam zavolat Word s danou smlouvou ( toto
>neni problem) a do urcitych mist doplnit polozky (jmeno, adresa, cislo
>smlouvy ..) - tot uz problem.
>Zkousel jsem ulozit zaznam do database DBASE IV a ve Wordu vlozit pole
>odkazujici na tuto databazi. To sice funguje, ale muze byt pouze jedna
>polozka na radku, ztrati se mi formatovani textu a musim vzdy dat F9 pro
>aktualizaci poli i kdyz je automaticky zapnuta.
>
>Nevite jak by se to dalo resit elegantne ?
>
>Dekuji
>
>
elementarny problem s C/S
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 10:46:07
Tahle problematika me extremne zajima, anzto ji prave resim. Existuji i
dalsi moznosti :
* pokusis se konflikt nejak inteligentne vyresit sam, tj. napises soft,
ktery rozhodne, zda lze dva modifikovane radky nejakym zpusobem sloucit.
Pokud se nemenily tytez sloupce, proc by to neslo? Je to dokonale reseni,
ale myslim, ze neni treba uzivatele tak rozmazlovat.
* anulujes obe zmeny, posles zpravu uzivatelum, at si to vyresi nejak sami.
Strohe, nemuze dojit k rproblemum.
* rozjedes versioning - zkratka budou existovat dve verze tehoz radku.
Konflikt se vyresi pozdeji. Tohle se mi libi nejvic. Nechat to na pozdeji.
* u kazde zmeny ukladas jeji semantiku, jinak receno posloupnost akci,
ktere transformuji puvodni radek do nove podoby. Ten pozdejsi uzivatel
obdrzi zpravu, ze pracoval na neaktualnich datech a posloupnost akci, ktere
provedl, se zopakuje na tech, ktera dodal uzivatel 1. Fantazie, ovsem nekdy
to muze vest k necekanym vysledkum. Vsechno zazalohuj.
* detekujes tyto kolize a vyvolas totalni krach systemu, vsechno smazes.
Uzivatele odkazes na cast manualu, kde tim nejmensim pismem nejak taktne
popises toto chovani. Bezne reseni u mnoha firem, idealni pro surove
povahy.
Nejake jine navrhy?
Viktor
------------------------------------------------------------------------
-------
Tot vecny problem, na ktery mi zatim NIKDO nedal uspokojujici reseni.
Podle me existuji tyto moznosti:
1, Bud si toho nebudes vsimat a B prepise A data (dojde k lost updates)
2, Vyuzijes moznosti zamknout zaznam (coz musi umet SQL server, ale o
zdanem takovem nevim - tusim to umi Oracle) - smysl to ma ale asi jen
pokud SQL server umi row level locking, jinak zamkne i kus vedle.
3, Budes si zamky delat sam pomoci nejakeho priznaku nebo tabulky, kde
ovsem narazis na dalsi problemy, ktere se pokousim sepsat a zverejnit na
Delphree
Mac
Richard Willmann wrote:
> na sieti je clovek A a B 1. clovek A prezera tabulu a zacne editovat
> nejaky zaznam2. clovek B ma tu istu potrebu a zacne editovat ten isty
> zaznam3. clovek A skonci skor a vykona prikaz update ... where
> id=idEditoavneho zaznamu4. clovek 4 skonci tiez, a chce update .... co
> teraz? Ako spravim to, ze pred editaciou by sa zaznam "Zamkol na
> editacie a mazanie" a odomkom az po upadte alebo cancel, tak aby napr.
> B nemohol zmazat zaznam, ktory prave edituje A ...
begin 600 WINMAIL.DAT
M>)\^((zv)(zv))`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`>````4D4Z
M(&5L96UE;G1A<FYY('!R;V)L96T(zv)<R!#+U,`'(zv)H!!8 #``X```#/!P,`! `*
M`"X`!P`$`" !`2" `P`.````SP<#``0`"(zv)`D``T`! `<`0$)(zv) $`(0```$8X
M.#-&1D0R,#!$,D0R,3$Y,T$S,# R,$%&,T)$.3%#`"(zv)'`0.0!(zv)" "(zv)``(0``
M``L``(zv)`!````"P`C```````#`"8```````L`*0```````P`N```````#`#8`
M`````$ `.0`(zv)]W_3(V:^`1X`< `!````'(zv)```%)%.B!E;&5M96YT87)N>2!P
M<F]B;&5M(',(zv)0R]3`````(zv)%Q``$````6`````;YF(]-[TO^#^=(`$=*3HP`(zv)
MKSO9' ``'(zv)`># $````%````4TU44 `````>`!\,`0```!8```!V:6MT;W(N
M;&]S=&%K0&-H;6DN8WH````#``80;DWO40,`!Q!Y!P``'(zv)`($ $```!E````
M5$%(3$504D]"3$5-051)2T%-14585%)%34Y%6D%*24U!+$%.6E1/2DE04D%6
M15)%4TE-15A)4U152DE)1$%,4TE-3UI.3U-423HJ4$]+55-)4U-%2T].1DQ)
M2U1.14I!2TE.5 `````"`0D0`0```%H'``!6!P``UPH``$Q:1G7=6F4=-P`*
M`0,!]R "IP(`8V(zv)!"L!S970P(%1A/F(zv)#<0*#`% #U \W,C.J. ``*(zv)+A80>
M( <3HP* !Q,(zv)0T4"(zv)'T*(zv)(D(R" ["6\R-34"(zv)!D*(zv)75C`% +`VQI,QHV`4!C
M`$$+8&YG,5(zv)P,S,+I(zv)_2;!)0< L#8 )(zv)90# =&EK82((zv)$D%E>'0)<&UN$1)0
M>F%J!W!A+"!A`'!Z=&\(zv)&E 8D6$.=A)0"7 `D&TN($6R> 0`='4;$1L(zv)9 =
MPP"0&6!O>FYO'$ ;("XZ"J(*A J *AB0;VM.=0"0!" /D"!K`B!FC1:0:P5
M&(zv)!J86L<D%4",&46D&<)\'0:`78V>1NB!4!S$C :D'1JFQOP$B!P! `'D7-O
M`8!W&I ?L 20>1N0'3 0`&2+&(zv)`:D'H<P"!L>A)0O&1V&5$$< :0&3!O))#S
M&(zv)$;4&1K(T ?XP; &B#^<![0&, 8\!\0"0`6`"%(zv)]1OP4!ZQ9!\2&(zv)`'(zv) ,!
M*2- ='D(zv)8'HF\W!CXR/1&*%C(&(HD1KP&(zv)"Q)P$_($H24!KA9!ZP/P((zv)!T ;
M(zv)RA1&I$8<6UY?R<`!W CX2(zv)"`P`AT EP8O$94'5Z:220(&$JT2 1VR-A`,!Z
M"0`N`2X=S !P>G4*0&H'D2:Q&B H07F_*8$=8!AP!" F<!M1=2W'_G4AL1D0
M'Q M41KP(10?U94AD6D;\%,9P&]H(]'W*"$MT"1A;QI0!4 ND1BE_S+P+VTC
M83"(zv)`0`$(!MP#X!&:0((zv)"X!G("T:(&OU&U!T&4%B)\ (8!F1'#'_+R(D<2#Q
M!) D42!(zv)$ `H\/4EDG4;\$L?9A\A,\4>H/<D`!_P-,%4-2 8<1\A-+"))#!I
M8C03=FEC&_#_!\ /405 *B(94#UV'<PR4.\90#V1,10MP&L+8!S !"#?,* ;
M$0^0`X$9(74:D!I0_Q((zv)+I$%D GP&O QDBDQ'5+]&J!K)T BY"K1&U `(zv) (0
MYG(UD!L2=78CH1L(zv))9'^92 (zv)*R ?T"4P&($$<!C ?GD]X0GP/64<\2W6,-%D
M_SLP&R R!"S3&T$%H"20`R#_0#$:`" 0'% '0 ,`#U <L7\(zv)8$T!0$)%'T8C
M&*$;<&3F;!J0'R%Z;PJP'L PH'] (DU2(N094"L(zv)',%)Z#']&_!&0Z$N\ B0
M&I E,$-Q^1_1:V0J`S63&W!%(zv)2 (zv)_QH`*6 90#%0)E A$#&Q._']&^%6#Y /
M4$3!&C :, D`_F(zv)<8!OP'<P!`"!(zv)4$($(/\HL1KP'U 6D"11&5 A$$=(zv)^PM(zv)
M6-%O`9!,T1] 2[%-$'YS+( (zv)8#60&I!3459S<_<NX0>0&_!5+><$<$'A!Y']
M0#%C0O %0 .!3+%#\5/ _RK1!W ?TBA!&\$8D 0`!X#_7U,(zv)$2YQ(-(>H")$
M6E$:\/</4"4R-,%"*. E8BO#0;&_&? U(!E0)0`9T1J0:0$`OUJ#&*$?$ AP
M2&0DD&A(\#\=R(zv)? ( $24$0A4')V<O5EX#\=RE8?H06P'<H=Q'XM:D]K7VQO
M;7]N*!<E,OXY$')I.A;P`4 8H4U1!4#W/(zv)`%0!MP8T)Q&*4U41E0#R,$/I$:
M,%\R3DE+1/9/']%1HW,>H37P'&$G0/\KI2]E)Y!/D"Q1&8(<-5CSZQTF';LQ
M&I!")\(S<A `OQ_1.=$X4AO!,S$94$(8D=YE(D(28$TB&5 H->%"$9\(zv)( D`
M18$I0$TR<RD=Q/(R&I!6>2W1,*(=)QHP]&UK'5!U!4!6P1(A>_ _!: H\#60
M2<('(zv) 5 4U':3!\1<CB!+!1O'<0D`?\H(2YB2&%3(zv)C] )E Y,!Q0;U_2&N$R
M\!L(zv)3TNQ&' I_SDA7$ L(zv)5/S&5 K<D+P&R#_,* +D!W3'J(GT($(A&,#8)\'
MX!AP&W #( D`8VLX\?]$!G\3$E!:L1[0.'%V42]E_C-Y`R)R?O0C0 $`"V A
M<_\>D01(zv)=3$?XSN!&)%9<$1!_S)0>>$:\ &1,' EP%[3'<3_4T4*P%+A7<,<
MQ!BECY)&(V\?(72R(zv)_,/D' AD'JR>J\X(zv)1_P`P`?P6$=Q$0(zv)<&QP: G1'<I-
M`-$=V5+33/$+$2!7`Q!L`X$#H/9W<1(=NSY ((zv)"0#Z"&<O]>`"\11_%[D'K2
M4G&:=WL1_R1045&/,S)0D_$`T!H!"8#?(6 O(IDW)(zv)-_E3*;5WKP_X7A'% <
MD!Q!'I$M<IS?/^%;23$<,7F9-G^D,YM9<_\?474QI&$%P%FR*T*.0D'A^7S5
M("ZFD)A(zv)-3 )<)DV]61P/61P19V"&V :`'FQZ7^D=32;5S2D5AD(zv)*.#_&I%B
M$2E(zv)IAF;48(%F9!1,OIZ*J!!'U ?$!M"A!-+5?\)(zv))UC`- XP#)0*?$AD'^6
M_"):?R$&\)2GF9"N=5F2\R[A8F%E(DV12+&P$290_Z7Q'J!\T26(zv)IF$K<8\!
M7A!_I) (zv)<"'!(!$!H"71(C!R_R]EF9!Z\"(zv)A>:$#("[2,S'_?Z0BX(zv)6P<(zv)(;
M8IUR4%)[D"NFD6DO"A.!`+I(zv)```#`! 0``````,`$1 #`````P" $/____]
M``<P4)JA<2)FO(zv)% ``(zv)P4)JA<2)FO(zv)$+``" "" &``````# ````````1(zv)``
M```#A0````````,``H (( 8``````, ```````!&`````!"%`````````P`%
M(zv) (zv)(zv)!(zv)``````P ```````$8`````4H4``/ .```>`"6 "" &``````# ````
M````1(zv)````!4A0```0````0````X+C ``P`F(zv) (zv)(zv)!(zv)``````P ```````$8`
M`````84````````+`"^ "" &``````# ````````1(zv)`````.A0````````,`
M,( (( 8``````, ```````!&`````!&%`````````P`R(zv) (zv)(zv)!(zv)``````P ``
M`````$8`````&(4````````>`$& "" &``````# ````````1(zv)`````VA0``
M`0````$`````````'(zv)!"(zv) (zv)(zv)!(zv)``````P ```````$8`````-X4```$````!
M`````````!X`0X (( 8``````, ```````!&`````#B%```!`````0``````
(zv)```>`#T``0````4```!213H(zv)``````,`#33]-P``0/R%
`
end
Problemy s TTable
[*] Radek Lev� - 4.3.1999 10:47:31
Diky moc...>
>>Zdravim,
>>jsem zacatecnik, takze tomu odpovida muj problem :
>>Delam unitu, ve ktere chci pracovat s tabulkami, ale at deklaruji tabul=
ku
>>jak chci tak mi to pri jakekoliv praci s nit konci vyjimkou.
>>
>>Pr :
>>
>>Var X : tTable
>>
>>Begin
>
> X :=3D tTable.Create(Application);
>> X. TableName :=3D 'xxx.db';
>
> X.Free;
>>End;
>>
>
>
>Tabulka je objekt a jako takovy jej musis vytvorit a na konci zrusit
>
>-----------------------------------------------------------------
>ing. Jan Fiala jan.fiala(zv)iname.com
>Prog-Soft s.r.o.
>INFOS - informa=E8n=ED system pro n=E1poj=E1=F8e
>-----------------------------------------------------------------
Soucet
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 4.3.1999 10:48:03
> polozky maju hodnotu
> az pocas behu aplikacie
Samozrejme. Ale i tak je to nula.
Invalid BLOB handle in buffer
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 4.3.1999 10:49:56
To jsem prave ted zkousel, ale bohuzel bez vysledku. Stale stejna chyba.> Zdravim,
> muzete me nekdo pomoci s nasledujicim problemem?
> Mam data ve formatu foxpro 2.5, pristupuje na ne pres ODBC a
> BDE. Data mam
> zobrazeny v DbGridu. Pokud kliknu na nejaky zaznam, zobrazuji
> vsechny polozky
> v jinem formulari.
> Pokud se v DBGridu pohybuji po jednotlivych zaznamech je vse
> OK, ale pokud
> pouziji vyhledani zaznamu pres funkci "Locate" a provedu
> detailni zobrazeni, dostanu
> nasledujici hlasku:
> "Invalid BLOB handle in buffer"
>
> Tusite nekdo problem?
>
>
> ******************************************
> Daniel Jirasek - Conel s.r.o.
> e-mail: daniel_jirasek(zv)conel(tec)cz
Ahoj,
Zkus zvysit cislo v parametru BLOBS TO CACHE
S pozdravem
Martin Koran
============================================
Martin Koran - KOMAR
Hilbertova 68
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 602 42 33 72
mailto:info(zv)komar(tec)cz
http://www.komar(tec)cz
Rotace, rotace, ty ja mam nejradeji...
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 10:53:28
Mam takovy problem:
Aplikace kresli nejake rotovane texty, vetsinou o 90 stupnu, ale i jinak.
Stejnou casti kodu to maluju na obrazovku i na tiskarnu. Na NT je vse OK,
na Win95/98 je to spravne na obrazovce, ale na tiskarne misto toho vylezou
uplne malicke pidi-mrti fonty a navic vubec nejsou otocene, ludry. Nemate
nejakou predstavu, cim to muze byt?
Viktor
begin 600 WINMAIL.DAT
M>)\^(AT)`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`G````4F]T
M86-E+"!R;W1A8V4L('1Y(&IA(&UA;2!N96IR861E:FDN+BX`_0P!!8 #``X`
M``#/!P,`! `*`#4`' `$`#P!`2" `P`.````SP<#``0`"(zv)`R`#0`! !1`0$)
M(zv) $`(0```# V.#1&1D0R,#!$,D0R,3$Y,T$S,# R,$%&,T)$.3%#`!$'`0.0
M!(zv)`(!0``(0````L``(zv)`!````"P`C```````#`"8```````L`*0```````P`N
M```````#`#8``````$ `.0#P.J7:)&:^`1X`< `!````)P```%)O=&%C92P(zv)
M<F]T86-E+"!T>2!J82!M86T(zv);F5J<F%D96II+BXN```"`7$``0```!8````!
MOF8DVD?2_X0'T(zv)`1TI.C`""O.]D<```>`!X,`0````4```!33510`````!X`
M'PP!````%(zv)```'9I:W1O<BYL;W-T86M 8VAM:2YC>(zv)````,`!A .PL(zv)1`P`'
M$"(zv)!```>``(zv)0`0```&4```!-04U404M/5EE04D]"3$5-.D%03$E+04-%2U)%
M4TQ)3D5*04M%4D]43U9!3D5415A462Q6151324Y/54\Y,%-455!.52Q!3$5)
M2DE.04M35$5*3D]50T%35$E+3T155$]-04Q5``````(!"1 !````W(zv)$``-H!
M``!&`(zv)``3%I&=<J5I\4W``H!`P'W( *G`(zv)!C: $*P'-E=# (zv)5&$^: -Q`H,`
M4 /4#S<R,ZHX```J`N%A!X (zv)!Q.C`H '$R!#10* ?0J B0C((#L);S(U-0*
MV0J!=6,`4 L#8P!!"V# ;F<Q,#,S"Z8%T 42," !D&MO=GD(zv)QG #8 )(zv)96TZ
M"J(*A&4*(zv)$$+4&EK`- 24&N%"7!S&? (zv);F5J&# [$E #8'084 !P$E!T9<!X
M='DL('8/H "00FX(8"!O(#D/P'/(zv)='5P;G4<( = $E!M&K!J"X 8,"X&`!O0
M:KD<DF-A'2 :L!A 9!RP[1M(zv)( # "D!J'+ 2(!S T&)R87H84&L<L!JQ6R!0
M'R!S&A $H'4>4$Y9(%!.5!WP$E!V#Y (zv)+$]+'" (zv)05<+(zv)#DU6"\Y.")2'Z%S
M&)!A?G8;H2!(&C =A"$X$E!MWP0`'Z$;8! `'#!Y&- (zv)L)L<L!U ;"9B!T!I
M8QL1P'!I9&DM;0`(zv)&K!O`A(8<"!0$B!V*% <,'7V8(zv)60&L)S'*(;8!HP&M!C
M'" *0&1R>2'A&.!A_QO0&L0<H1B0"8 =("1(zv)'7$F8P=P'Y-U>A)08GFT=#\9
M&E8:`!M(zv)<A:!<P% %M0R.1!R&2,3(zv)0`!,5 ```,`$! ``````P`1$ `````#
M`( 0_____T `!S#0'YA])&:^`4 `"##0'YA])&:^`0L``( (( 8``````, `
M``````!&``````.%`````````P`"(zv) (zv)(zv)!(zv)``````P ```````$8`````$(4`
M```````#``6 "" &``````# ````````1(zv)````!2A0``\ X``!X`)8 (( 8`
M`````, ```````!&`````%2%```!````! ```#(zv)N, `#`": "" &``````#
M````````1(zv)`````!A0````````L`+X (( 8``````, ```````!&``````Z%
M`````````P`P(zv) (zv)(zv)!(zv)``````P ```````$8`````$84````````#`#* "" &
M``````# ````````1(zv)`````8A0```````!X`08 (( 8``````, ```````!&
M`````#:%```!`````0`````````>`$* "" &``````# ````````1(zv)`````W
MA0```0````$`````````'(zv)!#(zv) (zv)(zv)!(zv)``````P ```````$8`````.(4```$`
D```!`````````!X`/0`!`````0`````````#``TT_3<```<#
`
end
Paradox
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 4.3.1999 11:09:59
Ahoj,
mas nekde na disku zapomenute .LCK soubory. Takze kdyz smazes vsechny .LC=
K
soubory, co kde jsou, melo by to chodit. PX to dela, kdyz spadne a nesmaz=
e
si je po sobe. Protoze jsem s tim mel problemy, napsal jsem si pro nase
zakazniky programek, ktery to umi najit a smazat sam - je volne ke stazen=
i
na www.aranea(tec)cz/id/mirekjunekhome. Pozor, je to prelozeno s RT packages
kvili velikosti. Pokud bys mel problemy, muzu ti poslat bumbrlicka
nepouzivajiciho DPL.
Mirek
-----P=F9vodn=ED zpr=E1va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 9:57
P=F8edm=ECt: Paradox
|Co znamena chyba:
|
|Multiple .Net files in use.
|File: i:\work\ade\ade_tool\data\pdoxusrs.lck.
|
|Mam ty data na NT servru a pristupuju k nim jen ja.
|
|+-------------------------------+
|| Ing. Petr Jezek |
|| Delvina, s.r.o |
|| 010 01 Zilina |
|+ - - - - - - - - - - - - - - - +
|| tel: +421 (89) 624 344 |
|| fax: +421 (89) 621 018 |
|| email: petr(zv)sevis.sk |
|| web: www.delvina.sk |
|+-------------------------------+
|
|Hlaska: Invalid BLOB handle in record buffer
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.3.1999 23:44:42
Asi by bylo lepsi predelat ten varchar(2000) na blob sub type text
Ale zkus jeste tohle.
Z toho datasetu zcela vyhod polozku varchar(2000) a vsechny ostatni velke polozky, ktere primo nezobrazujes pomoci gridu
(ty ostatni vyjmenujes za SELECT namisto hvezdicky) a zaloz si jeste jeden TQuery, ktery pripoj do relace s tim prvnim.
V druhem TQuery bude odkaz jen na jediny zaznam pomoci konstrukce WHERE id = :id
Jeste je dobre pred prikazem Locate nastavit vazbu datasource (relacni) na nil a teprve az po nalezeni zaznamu ji
priradit opet na datasource pripojeneho k tomu prvnimu TQuery.
Nejenom, ze to nebude hlasit chybu, ale znacne se ti to zrychli zejmena pri vetsim mnozstvi dat.
Uvedom si, ze naplneny zaznam Varchar(2000) znamena 2 kB a jiz pro pouhych tisic radku jsou z toho dva MB!
To je obrovsky dataset a nalezeni zaznamu uprostred nebo ke konci bude trvat hodne dlouho, protoze dojde
k postupnemu dotazeni celeho objemu dat.
Muj navrh to resi tak, ze se listuje malym objemem dat jen tech sloupcu, ktere zobrazuji v gridu a zbytek dotahnu az
pro jeden konkretni zaznam na kterem se zastavi ukazatel, coz jsou maximalne jen ty 2KB. Podle teto konstrukce
muze byt skok na posledni zaznam az radove rychlejsi.
---------
Pokud pouziju DBMemo na zobrazeni VARCHAR(2000) z tabulky na IB dostanu po nalezeni zaznamu pomoci LOCATE hlasku
Invalid BLOB handle in record buffer
Nevite nekdo jak to odstranit ??
Pavel Bares
Atoll s.r.o.
www.atoll(tec)cz
Paradox
[*] Tom� R��i�ka - 4.3.1999 11:15:59
Mozna je to tim, ze mas v tabulce hodne "smazanych zaznamu". Zkus tabulku
zpakovat. (U Paradoxu se to dela pres restrukturalizaci).
Zdarec
*****************************
Tomas Ruzicka
ruzicka(zv)com-tech(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 7:21
P=F8edm=ECt: Paradox
>Mam aplikaci, ktera pristupuje k tabilkam v Paradoxu.
>Do ted to bezelo bez problemu a svizne.
>Ale od dnes to bezi strasne pomalu.
>V cem muze byt problem?
>Zkousel jsem vytvorit i indexy nanovo, ale
>nic se nezmenilo.
>
>+-------------------------------+
>| Ing. Petr Jezek |
>| Delvina, s.r.o |
>| 010 01 Zilina |
>+ - - - - - - - - - - - - - - - +
>| tel: +421 (89) 624 344 |
>| fax: +421 (89) 621 018 |
>| email: petr(zv)sevis.sk |
>| web: www.delvina.sk |
>+-------------------------------+
>
>
Paradox
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 4.3.1999 11:18:14
Cau,
a neupgradoval jsi Delphi nebo BDE?
Tomas
tomas(zv)cobra(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 7:55
P=F8edm=ECt: Paradox
>Mam aplikaci, ktera pristupuje k tabilkam v Paradoxu.
>Do ted to bezelo bez problemu a svizne.
>Ale od dnes to bezi strasne pomalu.
>V cem muze byt problem?
>Zkousel jsem vytvorit i indexy nanovo, ale
>nic se nezmenilo.
>
>+-------------------------------+
>| Ing. Petr Jezek |
>| Delvina, s.r.o |
>| 010 01 Zilina |
>+ - - - - - - - - - - - - - - - +
>| tel: +421 (89) 624 344 |
>| fax: +421 (89) 621 018 |
>| email: petr(zv)sevis.sk |
>| web: www.delvina.sk |
>+-------------------------------+Offtopic: pobavenie... (L. Fule versus M. Fronek)
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 4.3.1999 11:18:39
Zabava se nam rozjizdi, ale slibuju, ze dalsim
polemizatorum budu pripadne majlovat jen soukrome.
> >Kdyz jsme se dole dostali az ke komunistum - na zaklade
> >vyse zminene vety by bylo nefer zverejnit zvaci dopisy
> >z roku 1968. A to si nemyslim.
>
> Prosimte jak muzes neco takoveho srovnat!!!!!
> To byla trestna cinnost i podle tehdy platnych zakonu rovnajici se
> vlastizrade!!!
> Fronek se zadneho trestneho cinu nedopustil!!!!
Nauc se trochu cist.
Ja nic nesrovnavam. Jenom polemizuju s vyrokem
"je nemoralni zverejnit dopis bez souhlasu druhe strany".
A sam mi nahravas, rikas, ze za urcitych okolnosti to nemoralni
neni a vyrok je teda neplatny.
>
> >Ano, nezda se mi fer nekoho za zady pomlouvat ci vedet o tom, ze
> >nekdo nekoho pomlouva a nic s tim neudelat. Zverejnenim
> >das tomu "debilovi" moznost se aspon trochu branit.
>
> Tvuj zpusob mysleni je mi na svetelne roky vzdalen.
Lhostejnost k problemum spoluobcanu je jeden z nejvetsich negativnich
rysu soucasne spolecnosti. Me napriklad vadi, kdyz se nekomu ublizuje a
krivdi. Proto, kdyz o tom nevi a nemuze se branit, snazim se s tim
neco delat. To, co je na druhem polu, je treba kopani do mrtvol.
Chces rict, ze kopes do mrtvol nebo ze kdyz nekoho pomlouvaji,
tak se pridas?
>
> >Asi ano, jsem kovanY komunista :-)
>
> To myslis vazne?
Ano, svedci o tom ten smajlik, ktery jsem k tomu udelal, ze?
Mohl bys emotikonum venovat trochu pozornosti, jsou i v delphi
konferenci hojne pouzivany.
>
> >vezmu ad absurdum - nezverejneni soukrome korespondence muze
> >byt za urcitych okolnosti trestny cin.
>
> Zase ulet. Pokud mas vedomi o trestnem cinu (ziskas jej naprikld
> ze soukrome korespondence), mas zakonnou povinnost informovat
> organy cinne v trestnem rizeni. Nikoliv neco zverejnovat. Prislusna
> osoba musi byt obzalovana a plati presunkce neviny. To, ze se jedna
> o trestny cin, muze byt jen tvoje domenka a posoudit to muze
> jedine soudce.
Co to je presunkce? Nemyslis nahodou presumpci:
pravni domnenka (legal presumption)?
Jinak - definice 'zverejnit neco' asi neexistuje, ale myslim,
ze by nejlepe sedelo toto: 'poskytnout neco nekomu,
kdo do tematu nebyl az doposud zapojen'. Lhostejno, jestli
se jedna o jednoho nebo padesat lidi ci instituci. Jaky je
rozdil mezi oznamenim a zverejnenim?
> >A taky pozor na me! Pokud mi napisete neco o nekom,
> >nebo neco o necem, co se tyka vsech, tak vas okamzite prasknu.
>
> Praskacum ja nepisu. Takovi lide se mi nelibi.
> JaroMemo1
Ses komik
Tecka - uz mne, prosim, nikdo s takovymi nesmysly neotravujte.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Sipky, TButton a TImage
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 4.3.1999 11:18:42 met-1
Mel bych jeden zacatecnicky dotaz:
Na formulari mam nekolik instanci komponenty TButton a instanci
komponenty TImage. Chtel bych, aby se pri stisku klavesy sipka
(prava/leva, event. se Shiftem) provedla nejaka operace v tom
TImage. Nevim ale jak na to.
Do vlastnosti formulare jsem si dal KeyPreview := true s tim, ze
budu odchytavat udalost OnKeyPress. Jenze kdyz stisknu sipky, tak se
pohybuju po tech buttonech.
Nevite nekdo, jak na to? Za kazdou radu diky.
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+
Paradox
[*] Marek Soukup <marek(zv)comberg(tec)com> - 04.3.1999 11:21:52
Ahoj,
nespadlo ti to n=E1hodou ?
Zkus smazat ten lck soubor a pustit to znova.
Marek Soukup
"Jezek Petr, Ing. (DELVINA)" wrote:
> Co znamena chyba:
>
> Multiple .Net files in use.
> File: i:\work\ade\ade_tool\data\pdoxusrs.lck.
>
> Mam ty data na NT servru a pristupuju k nim jen ja.
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+Patch
[*] Tom� R��i�ka - 4.3.1999 11:26:40
Nevite prosim o nejakem patch-i pro Builder 1.0 20
Diky
Tomas
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
elementarny problem s C/S
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.1999 11:29:32
Richard Willmann wrote:
> Standardni komponenty vsak neumoznuji pretlouct predchozi
> zapis, takze jako vyhodnejsi vidim tento postup: editovani hodit do
> zvlastniho okna, mimo databazove komponenty. Tam v klidu
> editovat, a teprve az v okamziku ukladani se starat, zda nebyl
> zaznam zmenen. Je to vsak programatorsky dost pracne.
>
> riesenie so zamykanim zaznamov sa mi paci viac. Neviem si predstavit
> aplikaciu, pri ktorej by sa mohlo editujucemu pouzivatelovi stat, ze
> by mu niekto pred postom zmazal zaznam.
>
> podporuje IB lockovanie zaznamov? Ak nie IB tak ktory iny SQL?
>
> BTW: Ako to riesis ty, Zbysek?
Na siti je v podstate nepripustne zamykat vetu behem editovani. Na
skoleni jsem hruzostrasnym popisem takoveho stavu vzbudil dosti
veseli a doufam ze i nechuti k takovemu postupu. Predstav si, ze
baba nacne zaznam, ted ji zavola dcera, budou se dlouho
vykecavat, pak si jde baba zakourit, pak na obed, zachod atp., a k
vete se vrati za 3-4 hodiny. Ostatni uzivatele, kteri se na tu vetu
budou potrebovat dostat, te sezerou, i s chlupama. :-)
To uz za lepsi (ovsem vyrazne pracnejsi) povazuji pri pokusu o
ulozeni zjistit stav vety, nabidnout uzivateli vyber mezi jeho a cizi
zmenou, a pkkud vetu nekdo jiny vymazne, pak ji podle potreby
znovu zalozit.
Tento zoufaly postup by vsak mohla zajistit uz komponenta,
pripadne nejaky vhodny trigger (se souborovymi databazemi neni
radno na site chodit vubec, jsou z toho pouze slezle vlasy - prijd se
podivat :).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.1999 11:29:32
Robert Kindl wrote:
> >> b. vytvorili ste si potomka z TComponent, a na urovni tohoto potomka
> >> programujete vsetko od nuly,
> >Uvitam spolupraci.
> >Nejdriv musim udelat zakladni kostru, pak lze uvazovat o
> >nadstavbe. :-) Nicmene, rad bych to videl v Delphree - az to tam
> >bude, doufam, ze bude na projektu zainteresovanych vice lidi.
>
> Rad bych se zucastnil podle svych casovych moznosti (alespon tak
> ze to zkustim nasadit do realne aplikace), ale musim znovu opakovat
> ze ta varianta s TComponent se mi pranic nelibi
> (kontretne si navic myslim, ze s FBuffers neni treba se hned loucit.
> Jak bez nich resit cached updates vcetne transakcniho rizeni (viz.
> dale)?). Proste nejsem ochoten se rozloucit se stavajicimi komponentami a
> s aplikacemi, kde to vse je pouzite.
Nejdriv to musim dostat do nejake zakladni podoby, aby to nebyl
jen slepy kus kodu (jeste experimentuju s ruznymi moznostmi,
hledam nejakou vhodnou). Ale chystam se na zverejneni v blizke
dobe, protoze me tlaci cas.
Ale presvedcili jste me, udelam to tedy tak, ze Custom trida pujde
napasovat i na TDataSet, primy potomek pak bude zamostatna
komponenta.
Co se tyka cached updates, to umi ADO jako takove, neni treba to
hloupe obchazet.
V kazdem pripade nebude mozne pouzit stavajici TDatabase,
TQuery a TTable, tato cast by se musela tak jako tak predelat.
Pouziti komponent tedy bude spise vhodne pro nove aplikace.
> Mozna bych na to mel jit jinak:
> Mohu-li se zde vyjadrit co bych vlastne potreboval a
> cekal od noveho TADODataSetu (nebo mozna radeji TMSDataSetu
> - na ADO netrvam a padaly tu nazory ze to jde i jinak a lepe)
> a podle toho pak si predstavuji, ze to bude finalne fungovat.
Dival jsem se na OLE DB, pouziti ADO mi vsak pripada vhodnejsi,
uz kvuli vyrazne lepsi srozumitelnosti.
> Takze:
> Obecne:
> - nepotrebuje BDE
To v kazdem pripade, ale potrebuje zase neco jineho. Windows 95
tedy potrebuji radnou zaplatu.
> - v "idealnim" pripade s tim nahradim stavajici TDatabase a TQuery nebo
> TTable a jede to dal, ale
> bez fatalnich chyb o kterych vim v BDE
Tohle vidim jako trochu problematicteji, zejmena kdyz to bude stale
odvozeno od TDataSet. Obavam se, ze s TDataSet bude nelehke
se nekterym chybam vyhnout (ale presto mnohe odpadnou samy).
>
> Zakladni pozadavky na funkci:
> 1) TMSDatabase
> - umoznuje pripojit se (vytvareni connection)
> - umoznuje rizeni transakci (Start, Commit, Rollback)
Neni problem.
> 2) TMSQuery rezim
> - umoznuje Open
:-) Bez toho to sotva pujde.
> - umoznuje otevreni vice takovych TMSQuery najednou
> (nutne connection pro kazdou query?)
Ted zcela nerozumim - ADO umoznuje zretezit vice selectu
najednou, napr:
select * from brambory;
select * from knedliky
ale obavam se, ze to nezobrazi najednou, ale je nutne mezi tim
prepinat.
Nebo chces, aby nad jednou tabulkou bylo mozne otevrit vice
samostatnych Query?
> - umoznuje parametry a makra (jako RXQuery) nebo
> nejaky jiny snadny zpusob dosazovani parametru do query
> - neni nikdy live, ale neni read only tj. podporuje CachedUpdates
> nebo nejakou jinou metodu rizeni transakcniho ukladani zmen
Myslim ze jinak nez CachedUpdates to nema (az na specialni
pripady) vyznam.
> 3) TMSExecutor (muze byt vestaven do TMSQuery)
> - umoznuje ExecSQL (INSERT, UPDATE, davka prikazu)
> - umoznuje parametry a makra (jako RXQuery) nebo
> nejaky jiny snadny zpusob dosazovani parametru do query
> 4) TMSTable (kurzor)
> - umoznuje Open
> - Locate
> - Filter
> - Index
> 5) TMSStoredProc
> - obdoba StoredProc, ale pochopitelne bez BDE
Vse bych videl jako funkce jedne komponenty. Tak jak jsem to
nacal, bude mozne zadat paralelne 3 rezimy v jedne komponente
(Query, Table i StoredProc, Executor je automaticky soucasti
Query), a pak v nich libovolne prepinat (ovsem vzdy se zavrenim a
otevrenim, pochopitelne).
>
> Co mohu nabidnout:
> - zkusenosti s MSSQL 6.5 a pristupem pres DBLib
Myslim, ze tohle bude spise o MSSQL 7, na DBLib muzeme
smele a radostne zapomenout.
> - zkusenosti s vyvojem komponent pod Delphi (ten TMSExecutor pres DBLib
> jsem jiz napr. napsal) - bohuzel jen malo casu (ale to je asi obecna
> bolest nas vsech)
:-) Take nemam moc casu, proto bych rad, kdyby se do tohoto
projektu zapojilo vice lidi. Jinymi slovy, vcera bylo pozde. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Sipky, TButton a TImage
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 4.3.1999 11:31:48
Potreboval jsem n=ECco podobneho, pouzil jsem OnKeyDown a nastavoval
hodnotu Key na 0.
------------------------------------------------------------------------
---------------------------------------------
procedure TFBForm.FormKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
case Key of
VK_UP :=20
begin
PrevKeyClick(Sender);
Key :=3D VK_0;
end;
VK_DOWN :=20
begin
NextKeyClick(Sender);
Key :=3D VK_0;
end;
end; {case}
end;
Ing. Ji=F8=ED Foldyna
Odd=EClen=ED informa=E8n=EDch syst=E9m=F9
AV=CDZO, a.s., Slav=EDkova 6142, 708 00 Ostrava - Poruba
mailto:jiri.f(zv)avizo(tec)cz
http://www.AVIZO(tec)cz
tel.: +420 69 690 6612
mobil: +420 602 507 839
fax: +420 69 690 6313
ICQ#: 14919238=20
-----P=F9vodn=ED zpr=E1va-----
Od: Jiri Novotny [mailto:NOVOTNY(zv)ftknw.upol(tec)cz]
Odesl=E1no: 4. b=F8ezna 1999 12:19
Komu: delphi-l(zv)fwd(tec)cz
P=F8edm=ECt: Sipky, TButton a TImage
Mel bych jeden zacatecnicky dotaz:
Na formulari mam nekolik instanci komponenty TButton a instanci=20
komponenty TImage. Chtel bych, aby se pri stisku klavesy sipka=20
(prava/leva, event. se Shiftem) provedla nejaka operace v tom=20
TImage. Nevim ale jak na to.
Do vlastnosti formulare jsem si dal KeyPreview :=3D true s tim, ze
budu odchytavat udalost OnKeyPress. Jenze kdyz stisknu sipky,
tak se=20
pohybuju po tech buttonech.=20
Nevite nekdo, jak na to? Za kazdou radu diky.
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+
Destruktor?
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 11:40:30
Mam dotaz: volaji se v Delphi destruktory automaticky jako v C++, nebo ne (jako v Pascalu 7.0)?
Viktor
begin 600 WINMAIL.DAT
M>)\^(A\*`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`,````1&5S
M=')U:W1O<C\`=(zv)0!!8 #``X```#/!P,`! `+`"(zv)`'(zv)`$`#(!`2" `P`.````
MSP<#``0`"P`G`"P`! `_`0$)(zv) $`(0```#-&0T0P-4(W,4%$,D0R,3$Y,T$T
M,# R,$%&,T)$.3%#`"X'`0.0!(zv)#P`P``(0````L``(zv)`!````"P`C```````#
M`"8```````L`*0```````P`N```````#`#8``````$ `.0#0\Z]L*V:^`1X`
M< `!````# ```$1E<W1R=6MT;W(_``(!<0`!````%(zv)````&^9BML-[<%S4#2
M&A'2DZ0`(*\[V1P``!X`'(zv)P!````!0```%--5% `````'(zv)`?# $````6````
M=FEK=&]R+FQO<W1A:T!C:&UI+F-Z`````P`&$">-='D#``<05 ```!X`"! !
M````50```$U!341/5$%:.E9/3$%*25-%5D1%3%!(241%4U1254M43U)90554
M3TU!5$E#2UE*04M/5D,K*RQ.14)/3D4H2D%+3U9005-#04Q5-S I/U9)2U1/
M4(zv)`````"`0D0`0```/(```#N````.(zv)$``$Q:1G7R(,K/-P`*`0,!]R "IP(`
M8V(zv)!"L!S970P(%1A/F(zv)#<0*#`% #U \W,C.J. ``*(zv)+A80> ( <3HP* !Q,(zv)
M0T4"(zv)'T*(zv)(D(R" ["6\R-34"(zv)-D*(zv)75C`% +`V,`00M(zv)P&YG,3 S,PNF!= 1
M$C (zv)9&\!D'HZ(,)V!O!A:FD(zv)#Y 8(zv), (zv)1&5L<&(zv)8X $`0'-T<G5K= 6P>1(zv)(zv)
M874:, # =&EC0FL:8&IA:V\9(4/ *RLL(&YE!N ;\60(zv)*!M%4&$$\ = =< (zv)
M-RXP*3\*H(zv)J$>0J 5FD:(A:!`4 6U#(N.1!R'>,3(zv)0`(zv)D ```P`0$ `````#
M`!$0``````,`(zv)!#_____0 `',#!;65$K9KX!0 `(,#!;65$K9KX!"P``(zv) (zv)(zv)
M!(zv)``````P ```````$8``````X4````````#``* "" &``````# ````````
M1(zv)`````0A0````````,`!8 (( 8``````, ```````!&`````%*%``#P#(zv)``
M'(zv)`E(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XP``,`)H (
M( 8``````, ```````!&``````&%````````"P`O(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````#H4````````#`#" "" &``````# ````````1(zv)`````1A0``````
M``,`,H (( 8``````, ```````!&`````!B%````````'(zv)!!(zv) (zv)(zv)!(zv)``````
MP ```````$8`````-H4```$````!`````````!X`0H (( 8``````, `````
M``!&`````#>%```!`````0`````````>`$. "" &``````# ````````1(zv)``
L```XA0```0````$`````````'(zv)`]``$````!``````````,`#33]-P``7:P`
`
end
elementarny problem s C/S
[*] Jaro <jaro(zv)sinea(tec)cz> - 5.3.1999 00:14:54
>
> Nejake jine navrhy?
Vykasles se na databaze a jdes prodavat burty a pivo do stanku.
Tam jsou problemy nanejvys s opilci a obcas hygienikem. :-)
----------------
Taky me to uz parkrat napadlo, ale zatim jsem k tomu nenasel odvahu.
Navrhuji tento postup.
1. Resit predevsim logiku databaze tak, aby pri provozu dochazelo
k co nejmensimu mnozstvi koliznich situaci.
V kritickych mistech je mozne zavest historii zaznamu
2. Vytvorit system pristupovych prav pro zakladani, zmeny a ruseni zaznamu
3. Vyuzit transakce
4. Podle charakteru ulohy zvazovat pravdepodobnost vzniku koliznich situaci
a v konkretnich pripadech zajistit osetreni takoveho stavu. Nejcasteji
asi oznamenim o zmene a nasledne reseni situace. Casto se to resi
prostym oznamenim, ze neni mozne zmeny ulozit v pripadech, kdy
pravdepodobnost vzniku podobne situace je miziva. Pokud by se jednalo
o nepripustnou ztratu, je mozne zalozit napr. novy zaznam.
5. Zamkum bych se pokud mozno vyhybal. Umite si predstavit, jak vytvorit
docasny zamek na databazi, ktera se ma replikovat?
Jaro
Sipky, TButton a TImage
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 4.3.1999 11:49:10
>Mel bych jeden zacatecnicky dotaz:
>Na formulari mam nekolik instanci komponenty TButton a instanci
>komponenty TImage. Chtel bych, aby se pri stisku klavesy sipka
>(prava/leva, event. se Shiftem) provedla nejaka operace v tom
>TImage. Nevim ale jak na to.
>Do vlastnosti formulare jsem si dal KeyPreview :=3D true s tim, ze
>budu odchytavat udalost OnKeyPress. Jenze kdyz stisknu sipky, tak se
>pohybuju po tech buttonech.
>Nevite nekdo, jak na to? Za kazdou radu diky.
>
Pokud chces odchytavat sipky, zvol spise metodu OnKeyDown
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa=E8n=ED system pro n=E1poj=E1=F8e
-----------------------------------------------------------------
elementarny problem s C/S
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 4.3.1999 11:52:18
Poznamka:
Me poznamky jsou mozna prilis poznamenany problematikou aplikaci
nasi firmy a nemaji obecnou platnost, takze mozna existuji nejake
sestavy dat,
kde by chovani, s nimz polemizuji, melo smysl
> Tahle problematika me extremne zajima, anzto ji prave resim.
> Existuji i dalsi moznosti :
>
> * pokusis se konflikt nejak inteligentne vyresit sam, tj.
> napises soft, ktery rozhodne, zda lze dva modifikovane radky
> nejakym zpusobem sloucit. Pokud se nemenily tytez sloupce,
> proc by to neslo? Je to dokonale reseni, ale myslim, ze neni
> treba uzivatele tak rozmazlovat.
Ne, uzivatel musi videt platna data - cely zaznam. Protoze editovana
data co?
Protoze editovana data potvrzuje. Bezprostredne po potvrzeni musi
byt v databazi
potvrzena data a ne nejaky jejich kompilat ktery ani nevim s kym
jsem ziskal.
Navic mezi editovanymi udaji muze byt takova zavislost, ze se zmeny
v ruznych sloupcich vylucuji. Co potom?
Myslim si, ze to je spatne.
>
> * anulujes obe zmeny, posles zpravu uzivatelum, at si to
> vyresi nejak sami. Strohe, nemuze dojit k rproblemum.
Ano.
>
> * rozjedes versioning - zkratka budou existovat dve verze
> tehoz radku. Konflikt se vyresi pozdeji. Tohle se mi libi
> nejvic. Nechat to na pozdeji.
Zalezi na charakteru tech dat. Vzhledem k tomu, ze se jedna
o sitovou aplikaci, muze se nekdo treti chtit na tato data podivat.
Zobrazis mu vsechny verze - jak si ma vybrat?
Navic kdyz neco nechas na pozdeji, tak uz to vetsinou nikdo
nespravi.
Tento pristup neni IMHO spatny, ale problematicky. A pokud se
nejedna
treba o vyvoj (napr. nejakeho dokumentu, SW atp.) tak je neprinosny,
protoze nic neresi, jenom pridelava praci.
>
> * u kazde zmeny ukladas jeji semantiku, jinak receno
> posloupnost akci, ktere transformuji puvodni radek do nove
> podoby. Ten pozdejsi uzivatel obdrzi zpravu, ze pracoval na
> neaktualnich datech a posloupnost akci, ktere provedl, se
> zopakuje na tech, ktera dodal uzivatel 1. Fantazie, ovsem
> nekdy to muze vest k necekanym vysledkum. Vsechno zazalohuj.
Semantika zmeny je prilis pracna, posloupnost akci na datech,
ktera dodal uzivatel1 je nesmysl - co kdyz je to text, uzivatel2
opravuje tvrda a mekka IY a uzivatel1 zmeni cely text?
Spis bych to videl takto:
pred kazdou zmenou zazalohovat data prislusneho zaznamu.
Kazdy novy uzivatel to znovu preplacne, a stara verze se zazalohuje.
Pri nejasnostech je mozne z tabulky zaloh vyselektovat podle
Time vsechny predchozi verze radku a provest opravy.
> * detekujes tyto kolize a vyvolas totalni krach systemu,
> vsechno smazes. Uzivatele odkazes na cast manualu, kde tim
> nejmensim pismem nejak taktne popises toto chovani. Bezne
> reseni u mnoha firem, idealni pro surove povahy.
To ne. Jsem mekkej :-)
>
> Nejake jine navrhy?
>
> Viktor
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Jake lidi? (was: REINSTALACE WOKEN)
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 4.3.1999 11:52:48
Hi,
-----P=F9vodn=ED zpr=E1va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 3. b=F8ezna 1999 23:11
P=F8edm=ECt: Re: Jake lidi? (was: REINSTALACE WOKEN)>PS. V Americe jsem sice nebyl, ale silne pochybuju, ze to tam takhle
opravdu
>funguje.
Co tak sleduji tenhle topik, je to samozrejme nadsazka, ale mel jsem mozn=
ost
nahlednout tajnych do materialu jedne svetove proslule americke firmy, kt=
era
se zabyva hodne slozitymi projekty (neni to SW) a ta mela _velmi_ tlustou
"kucharku", jak se v teto firme postupuje od zameru az po pozarucni servi=
s.
Vypadalo to tak, ze zde mj. byly napr. normy na teamy
Projektova skupina XY,
1. vedouci - vzdelani FEL, obor xxxx, praxe 9 roku
2. zastupce - vzdelani FEL, obor xxxx, ....
3. 1 x analytik, vzdelani MFF, obor yyyy, praxe 6 let
4. 4 x junior projektant, vzdelani FEL, obor yyyy, praxe 1 rok
....
U kazde skupiny i cloveka bylo definovano pole pusobnosti, odpovednost, j=
ak
casto se schazeji na poradach s jinymi pracovniky/vedoucimi, co tam resi,
jak maji vypadat zapisy z techto jednani, komu se posilaji, kdo nimi co
dela atd. V pripade, ze narazi na problem, byl predepsan formular formou
souboru a co se v nem ma zaskrtnout a jake funkci to poslat. Ta zase mela
predepsano, co s tim musi a do kdy udelat. atd. atd.
V kostce: nic nebylo ponechano nahode. No a to vsechno je velmi strezene
know-how firmy a je to skutecne proto, aby vypadek nejakeho cloveka na
libovolnem postu neohrozil projekt a lide se daly snadno vymenit coz mj.
prispiva k tomu, ze nemohou vidirat zamestnavatele a musji pracovat na
rozdil od CR. Da se odhadnout, ze timto zpusobem vyresi uspesne 95% a na
tech zbylych 5% si nekde v laboratorich hyckaji ty chytrejsi :-)))
Dale jsem mel moznost v praxi sledovat podobny princip u svetove proslule
evropske firmy. Jeste pododykam, ze se vzdy jednalo o kontrakty v radu
10^8,- Kc
Bye, pf
Dos okno
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 12:00:01
>Potrebuju spoustet dosovske aplikace z Delphi.
>pouzivam - executefile (fmxutils) a mam s tim ten problem, ze
>se otevre dos okno, program se provede, ale okno se hned zase zavre
>a ja nemam pristup k hlaskam, ktere program vyprodukoval, pota�mo nevim
jak
>skoncil.
>Prosim odborniky, nen� nejak� zp�sob, jak spustit ten program v mem
vlastnim
>okne, nebo zachytavat jeho vystupy ?
udelej si ve Win zastupce, nezaskrtni zavrit po ukonceni a okno by ti melo
zustat na obrazovce. Programek muzes spoustet standardni funkci WinExec
[Viktor] Co takhle spustit ten dosovsky program se zobakem a presmerovat
vystup do nejakeho souboru? Pro nektere programy to funguje. A pro jine ne.
Priklad "program.exe > soubor.txt"
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
-----------------------------------------------------------------
begin 600 WINMAIL.DAT
M>)\^(B$+`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`-````4D4Z
M($1O<R!O:VYO`.X#`06 `P`.````SP<#``0`# ````$`! #N``$(zv)(zv) ,`#(zv)``
M`,\'`P`$``L`.(zv)`(zv)``0`1(zv)$!"8 !`"$````W-4-$,#5"-S%!1#)$,C$Q.3-!
M-# P,C!!1C-"1#DQ0P`A!P$#D 8`J 8``"$````+``(``0````L`(P``````
M`P`F```````+`"D```````,`+(zv)```````P`V``````! `#D``$=-)BYFO(zv)$>
M`' ``0````T```!213H(zv)1&]S(&]K;F\``````(zv)%Q``$````6`````;YF+B9(
MMP7-=M(:$=*3I `(zv)KSO9' ``'(zv)`># $````%````4TU44 `````>`!\,`0``
M`!8```!V:6MT;W(N;&]S=&%K0&-H;6DN8WH````#``80A]B98P,`!Q 4`P``
M'(zv)`($ $```!E````4$]44D5"54I54U!/55-4151$3U-/5E-+14%03$E+04-%
M6D1%3%!(25!/55I)5D%-+45814-55$5&24Q%*$9-6%5424Q3*4%-04U35$E-
M5$5.4%)/0DQ%32Q:15-%3U1%5E)%1 `````"`0D0`0```)$#``"-`P``/P4`
M`$Q:1G7CV?YL=P`*`0,!]R "I /C`(zv)!C`F(zv)*P'-E=#(S.-4``"H"X6$'(zv)" '
M$P* \0<3($-%`H,`4 +R#U=(zv),"!486(zv)#<0* ?1,*(zv) C((#L);S(U-3,"(zv) J!
M=6,`4 L#;&D,,S8!0 M(zv);F<Q,*PR.0J(zv)`V!T!9!T"Z88(#Y0%Z )<&)U:M!U
M('-P"&!S%[ %0(!D;W-O=G-K$) R80M0:6L`T!"0>B" 1&5L<&AI+(zv)JB10J
M/AE!>FEV$' (zv)4"T(zv)97(zv)%D'47L&9K`Q 0D"(zv)$4'(zv)<T ,0<_HI&D (zv)`, <4 0(zv)
M': <4(\7L .(zv)%X$"8&5M+!K0UF4;=0^P(!>A=(zv)EP&;+Q($!K;F\?<!>!"< >
M,NL0D![R=(zv)F 91]P!T (zv),;,A$2'2:&X)(zv)!K082 A[R/ (($;=1X`:AX`(X >
M(H,7(zv) 0`='5P(&LC8.\+8!H0$' ?<&L7L""1(6;$=GD7(zv)61U:QGP!T##(4$7
MH&%<)SD?4",(zv);2. =AZ1)/!K'[8H`&[V8P,0&V90`V `D!Q0!'!W!N $H!J
M>1]P(X +D">W(Y$C(zv)"F")P5P&M!P+0%Z.1G(zv)8A]P*8$9(1EA:;\%0![%)T0>
M$!]0&W1V)C'V= ,`+\4^(0$B(zv)2. !N"X 0D". .L(:(zv).L+8".(zv)(B%E+AR1
M&'!'1?(N#-!T(C['%M\7XQN#?BU/3U!?46]22QMT"X!G]3K 2(zv).11(zv)<Q'(zv)!4
MER3P;&XN'0!484 +(zv)!!Q+L<%H"_%.N(M4V\!(zv)!D(zv)"BY,H&\;94E.1D]O!? <
M< N `A!R`, L83B]+%1S,O%%$4H2+%(Q&4#V:EIR+0$X'Z523US?7>\74G\S
MIQ.!`&#(zv)`````P`0$ $````#`!$0``````,`(zv)!#_____0 `',!# K?$M9KX!
M0 `(,!# K?$M9KX!"P``(zv) (zv)(zv)!(zv)``````P ```````$8``````X4````````#
M``* "" &``````# ````````1(zv)`````0A0````````,`!8 (( 8``````, `
M``````!&`````%*%``#P#(zv)``'(zv)`E(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4`
M``$````$````."XP``,`)H (( 8``````, ```````!&``````&%````````
M"P`O(zv) (zv)(zv)!(zv)``````P ```````$8`````#H4````````#`#" "" &``````#
M````````1(zv)`````1A0````````,`,H (( 8``````, ```````!&`````!B%
M````````'(zv)!!(zv) (zv)(zv)!(zv)``````P ```````$8`````-H4```$````!````````
M`!X`0H (( 8``````, ```````!&`````#>%```!`````0`````````>`$.
M"" &``````# ````````1(zv)`````XA0```0````$`````````'(zv)`]``$````%
5````4D4Z( `````#``TT_3<``/V0
`
end
Find
[*] Ivan Vavra <vavra(zv)fzu(tec)cz> - 4.3.1999 12:00:07
Zdravim vsechny,
prave jsem se prihlasil do konference a v Delphi programuji opravdu
'rekreacne'. Omlouvam se tedy za trivialni problem:
Vytvoril jsem jednoduchou databazovou aplikaci (v D2), pomoci komponent:
Table, DataSource, Grid a DBNavigator, vse je OK. Nyni bych potreboval
aby po zapsani napr. 'NOV' do napr. Edit a poklepnuti na Button se sipka
vlevo na Gridu, ukazujici aktualni Record posunula napr. na 'NOVAK'.
Zkousel jsem z Helpu jednoduche hledani Stringu napr. kombinaci Edit,
Button, a FindDialog, coz mi chodilo, ale jak to aplikovat na databazi
nevim.
Dekuji za rady
Ivan Vavra
********************************************************
******** SAVT - Center for Automation and Computing ****
******* Institute of Physics in Praque *****
***** Academy of Sciences of Czech Republic ******
**** e-mail: vavra(zv)fzu(tec)cz HomePage: www.fzu(tec)cz/~vavra
*** Day Phone Number: +420-2-243 111 37 ********
*******************************************************Makra
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 4.3.1999 12:03:16
Zdravim,
chtel bych do sve aplikace zabudovat makra, cili chtel bych odchytavat
klavesy, ulozit to a pak to moct opetovne prehrat. Nic sloziteho, napr. to
co umela kdysi v 3.11 makrokamera.
Nakopnete me nekdo, jak zacit. Nebo nevite nekdo o komponente?
Na DSP jsem cosi nasel, ale nejede to pod D4.
Dik.==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
Rotace, rotace, ty ja mam nejradeji...
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 4.3.1999 12:08:45
tlaciaren ma vacsie rozlisenie ako monitor
olej
> -----Original Message-----
> From: viktor.lostak(zv)chmi(tec)cz [SMTP:viktor.lostak(zv)chmi(tec)cz]
> Sent: Thursday, March 04, 1999 10:53 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Rotace, rotace, ty ja mam nejradeji...
>
> Mam takovy problem:
>
> Aplikace kresli nejake rotovane texty, vetsinou o 90 stupnu, ale i jinak.
> Stejnou casti kodu to maluju na obrazovku i na tiskarnu. Na NT je vse OK,
> na Win95/98 je to spravne na obrazovce, ale na tiskarne misto toho vylezou
> uplne malicke pidi-mrti fonty a navic vubec nejsou otocene, ludry. Nemate
> nejakou predstavu, cim to muze byt?
>
> Viktor
Desetinna tecka v AsFloat nefunguje
[*] OLEJNIK Andrej <olej(zv)asset.sk> - 4.3.1999 12:10:40
Skus sa pohrat s desimal separator-om
je to char a mozes si to v aplikacii nastavit
olej
> -----Original Message-----
> From: Petr Hartman [SMTP:medisoft(zv)uo.fairnet(tec)cz]
> Sent: Thursday, March 04, 1999 10:34 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Desetinna tecka v AsFloat nefunguje
>=20
> Ahoj
> ja s tim problemy nemam, pokud mam ve Win95 v mistnim nastaveni
> jako desetinny oddelovac tecku, tak tebou popisovany pripad funguje bez
> problemu.
>=20
> S pozdravem
> Petr Hartman
>=20
>=20
> -----P=F9vodn=ED zpr=E1va-----
> Od: Karel Kral <kral(zv)purus(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> Datum: 2. b=F8ezna 1999 18:44
> P=F8edm=ECt: Desetinna tecka v AsFloat nefunguje
>=20
>=20
> >Mam problem - nas dodavatel jednoho software pouziva BDE, databaze
> >paradox, Delphi3 na takovy problem, se kterym si nevi rady:
> >=20
> >Mam pole databaze typu string, ve kterem je ulozena hodnota "12345.67"
> >Vsimete si desetinne tecky, ve Win95 mame v narodnim prostredi
> >nastavenou desetinnou tecku (ne carku, kterou nam vnucuje Win).=20
> >
> >Tahle hodnota "12345.67", pokud se cte pomoci AsFloat hlasi chybu
> >konverze dat, jako kdyby AsFloat predpokladalo desetinnou carku.
> >
> >Nevite, co s tim? (Neradte mi zmenit desetinnou tecku na desetinnou
> >carku)
>=20
>=20
Find
[*] Marek Soukup <marek(zv)comberg(tec)com> - 04.3.1999 12:16:35
Ahoj,
pri vyhledavani v tabulce mas dve moznosti
1. vytvoris v tabulce index (nejlepe v DD)
Table.SetKey;
Table.FieldByName ('Field').Value:= NejakejHledanejString;
Table.GotoNeraest; nebo
Table.GotoKey;
2. Locate
Table.Locate (Field, Value, [loCaseSensitive, loPartialKey]): boolean
viz. help
Marek Soukup
Ivan Vavra wrote:
> Zdravim vsechny,
> prave jsem se prihlasil do konference a v Delphi programuji opravdu
> 'rekreacne'. Omlouvam se tedy za trivialni problem:
>
> Vytvoril jsem jednoduchou databazovou aplikaci (v D2), pomoci komponent:
> Table, DataSource, Grid a DBNavigator, vse je OK. Nyni bych potreboval
> aby po zapsani napr. 'NOV' do napr. Edit a poklepnuti na Button se sipka
> vlevo na Gridu, ukazujici aktualni Record posunula napr. na 'NOVAK'.
>
> Zkousel jsem z Helpu jednoduche hledani Stringu napr. kombinaci Edit,
> Button, a FindDialog, coz mi chodilo, ale jak to aplikovat na databazi
> nevim.
> Dekuji za rady
>
> Ivan Vavra
>
> ********************************************************
> ******** SAVT - Center for Automation and Computing ****
> ******* Institute of Physics in Praque *****
> ***** Academy of Sciences of Czech Republic ******
> **** e-mail: vavra(zv)fzu(tec)cz HomePage: www.fzu(tec)cz/~vavra
> *** Day Phone Number: +420-2-243 111 37 ********
> *******************************************************problem ComboBox
[*] Lubos <bruce(zv)pobox.sk> - 04.3.1999 12:20:08
Caute Delfinci !
Zase mam taky blby problem, ze vas musim otravovat.
Potrebujem nastavit ComboBox do stavu Read only.
Bohuzial nema takuto property a neviem si rady.
Aby som to popisal uplne, tak chcem aby fungoval len
pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
Myslim ze ti musi nejako ist, len neviem prist na to ako.
Vdaka.
/LH
problem ComboBox
[*] Marek Soukup <marek(zv)comberg(tec)com> - 04.3.1999 12:25:40
Ahoj,
metoda Style na scDropDownList
Marek Soukup
Lubos wrote:
> Caute Delfinci !
>
> Zase mam taky blby problem, ze vas musim otravovat.
> Potrebujem nastavit ComboBox do stavu Read only.
> Bohuzial nema takuto property a neviem si rady.
> Aby som to popisal uplne, tak chcem aby fungoval len
> pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
> Myslim ze ti musi nejako ist, len neviem prist na to ako.
>
> Vdaka.
>
> /LH
Desetinna tecka v AsFloat nefunguje
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 4.3.1999 12:26:30
Tak to nacti jako string a pak pouzi
SttrToFloat. Ta pouziva nasteveniz regional
setting (ale nesmi tam byt oddelovace
tisicu!!!)
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+> -----Original Message-----
> From: Petr Hartman [mailto:medisoft(zv)uo.fairnet(tec)cz]
> Sent: Thursday, March 04, 1999 10:34 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Desetinna tecka v AsFloat nefunguje
>=20
>=20
> Ahoj
> ja s tim problemy nemam, pokud mam ve Win95 v mistnim=20
> nastaveni jako desetinny oddelovac tecku, tak tebou=20
> popisovany pripad funguje bez problemu.
>=20
> S pozdravem
> Petr Hartman
>=20
>=20
> -----P=F9vodn=ED zpr=E1va-----
> Od: Karel Kral <kral(zv)purus(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> Datum: 2. b=F8ezna 1999 18:44
> P=F8edm=ECt: Desetinna tecka v AsFloat nefunguje
>=20
>=20
> >Mam problem - nas dodavatel jednoho software pouziva BDE, databaze
> >paradox, Delphi3 na takovy problem, se kterym si nevi rady:
> >=20
> >Mam pole databaze typu string, ve kterem je ulozena hodnota=20
> "12345.67"
> >Vsimete si desetinne tecky, ve Win95 mame v narodnim prostredi
> >nastavenou desetinnou tecku (ne carku, kterou nam vnucuje Win).=20
> >
> >Tahle hodnota "12345.67", pokud se cte pomoci AsFloat hlasi chybu
> >konverze dat, jako kdyby AsFloat predpokladalo desetinnou carku.
> >
> >Nevite, co s tim? (Neradte mi zmenit desetinnou tecku na desetinnou
> >carku)
>=20
>=20
>=20
Destruktor?
[*] Marcant <marcant(zv)sct.sk> - 04.3.1999 12:27:32
V Delphi su objekty vlastne smernikmi na objekty (v C++ ponimani), takze ich destruktory sa
automaticky nevolaju - aspon podla mojich vedomosti.
Viktor Lostak wrote:
> Mam dotaz: volaji se v Delphi destruktory automaticky jako v C++, nebo ne (jako v Pascalu 7.0)?
>
> Viktor
>
> Name: WINMAIL.DAT
> WINMAIL.DAT Type: unspecified type (application/octet-stream)
> Encoding: x-uuencode
ZIP Komponenty !!! (WAS: Xakru... (ZipKomp))
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 4.3.1999 12:33:53
No, snad to mozna ListServer sestrelil, doufam (kez by)...
...jeste to nedoteklo...
Takze ty komponenty uz nikomu posilat nebudu,
najdete je na nize uvedene adrese...
(je Vas vazne moooooc)
Dobra.
> ----------
> Od: rdocekal(zv)csas(tec)cz[SMTP:rdocekal(zv)csas(tec)cz]
> Odesl=E1no: 4. b=F8ezna 1999 8:19
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: RE: Xakru... (ZipKomp)
>=20
> Hmm, ja jsem nic nedostal. Proto po dohode zverejnuji umisteni
> inkriminovanych knihoven na:
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D3/other/Delzip12.zip,
> popis je
> ve stejnem foldru pod nazvem delzip.txt.
>=20
> S pozdravem
> Radek Docekal
> <rdocekal(zv)csas(tec)cz> ICQ: 9008367
>=20
>=20
> > -----P=F9vodn=ED zpr=E1va-----
> > Od: Mal=FD Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> > Odesl=E1no: 3. b=F8ezna 1999 14:49
> > Komu: #Delphi-K
> > P=F8edm=ECt: Xakru... (ZipKomp)
> >=20
> > Ja jsem ale debil... fakt... ja ten balik poslal=20
> > do konference... je mi to lito..., hlavne ze vzdycky
> > nejvic kecam... dal jsem zkratka Reply...a nezkontroloval
> > ze to neprislo primo na muj mail ale do konference.
> > Jeste jednou sorry.
>=20
Velk� disky a integer
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 4.3.1999 12:36:49
Zdravim vsechny.
Neresili jste uz nekdo, prosim, problem se ziskavanim udaju o velikosti
disku, poctu clusteru, poctu volnych clusteru atd. pro format FAT32 a vel=
ke
disky ? Mam pocit, ze dobre nefunguji funkce DiskSize a DiskFree z Delphi
(vraceji velikost v integer - pretece to), ale bohuzel ani funkce Windows
API (ted nevim presne zpameti - asi GetVolumeInfo) vraci spatne velikost
clusteru. Mozna je to tim, ze FAT32 jede spise na sectory nez na clustery=
,
ale API predpoklada hlavni jednotku cluster.
Neexistuje neco, co by tyto rozpory resilo ? (deje se na Windows 98, 95, =
NT
nevim - ty asi FAT32 nepodporuji).
Dekuji za odpovedi.
Zden=ECk Moravec zmo(zv)telecom(tec)cz
problem ComboBox
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 4.3.1999 12:50:37
>Zase mam taky blby problem, ze vas musim otravovat.
>Potrebujem nastavit ComboBox do stavu Read only.
>Bohuzial nema takuto property a neviem si rady.
>Aby som to popisal uplne, tak chcem aby fungoval len
>pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
>Myslim ze ti musi nejako ist, len neviem prist na to ako.
>
nastav v propety editoru vlastnost na DropDownList
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa=E8n=ED system pro n=E1poj=E1=F8e
-----------------------------------------------------------------
Destruktor?
[*] Lubo Fule <fule(zv)sct.sk> - 4.3.1999 13:11:47
Automaticky sa nevolaju, ale nie je to ani celkom tak ako v P 7.0. Ked totiz
v Delphi zavolas destruktor najakeho objektu, tak sa z pamate uvolni cely
objekt, nie iba VMT.
V P 7.0 sa dala deklarovat (var o:TMyObjekt) priamo instancia objektu a
constructor vytvoril len VMT (ak mal objekt virtualne metody). Destructor
zase VMT uvolnil. Ked sa v P 7.0 zadeklaroval smernik na objekt (var
po:^TMyObjekt), tak bolo treba najprv vytvorit instaciu objektu a potom
zavolat constructor. Pred uvolnenim instancie sa zase musel volat
destructor. V delphi sa neda deklarovat priamo instancia objektu. Deklaracia
var o:TMyObject je len deklaraciou smernika na dany typ objektu tak ako v P
7.0 var o:^TMyObject. Na rozdiel od P 7.0 v D netreba explicitne vytvarat
instanciu objektu pomocou new ako P 7.0, ale staci zavolat constructor a ten
uz rovno vytvori instanciu objektu aj VMT a vrati adresu objektu
(o:=TMyObject.Create). Rovnako destructor v D uvolni nielen VMT ale aj
instanciu objektu, teda o.destroy uvolni s pamati VMT aj samotny objekt.
Neviem ci je to uplne presne ako som napisal, ale tak nejako to chapem ja.
Lubo.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:viktor.lostak(zv)chmi(tec)cz] On
> Behalf Of Viktor Lostak
> Sent: Thursday, March 04, 1999 11:41 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Destruktor?
>
> Mam dotaz: volaji se v Delphi destruktory automaticky jako v C++,
> nebo ne (jako v Pascalu 7.0)?
>
> Viktor
begin 666 winmail.dat
M>)\^(B\,`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$&
M(zv) ,`#(zv)```,\'`P`$``T`"P````0`^0`!`Y &`$ )```J````"P`"``$````+
M`",```````,`)(zv)``````"P`I```````+`"L```````,`+(zv)```````P`V````
M```>`' ``0````P```!$97-T<G5K=&]R/P`"`7$``0```!L````!OF8K;#>W
M!<U TAH1TI.D`""O.]D<``)JDR ``(zv)$=# $````1````4TU44#I&54Q%0%-#
M5"Y32P`````+``$.`````$ `!(zv)X`XML0.&:^`0(!"(zv)X!````& ````````#Y
MJ[VXH6#2$:#K`!!+(:8TPH ```L`'PX!`````P`&$#4N4?0#``<0C 0``!X`
M"! !````90```$%55$]-051)0TM94T%.159/3$%*52Q!3$5.245*151/04Y)
M0T5,2T]-5$%+04M/5E W,$M%1%1/5$E:5D1%3%!(25I!5D],05-$15-44E5+
M5$]23D%*04M%2$]/0DI%2U15+%0``````(zv)$)$ $```"P! ``K 0``(0'``!,
M6D9U&Z(zv)1NP,`"(zv)!R8W!G,3(U-C(`] 'W( *G`(zv)!C: $*P'-E=# (zv)5&$^: -Q
M`H,`4 /4#_<R,ZHX```J`N%A!X (zv)!Q/C`H '$R!#10*##E /M+!P<G$R!=P"
M(zv)'T*(zv)-D(R" ["6\.,#4"(zv) J!;'5C`% +`V,`00M(zv);I$.$# S,PQ(zv);&X"(*9E
M"Z83('5T`W%T#>! :WD(zv)<V$(zv)&E!VP0;P86IU+" '0!,0>P,`$Q!J$Q ;(!R
M`P`(zv),&-E;&L#<!TP86L#'( =X"!V(% (zv)-^ N,"X(zv)2PF '3$;8$IZ'I%$'<!P
M:!V0>(zv)YA'!($( $`<W1R=:YK&R %P!+(zv):AXP91# ^"!O8AT0(4 <81XB&\'O
M'[ *L!M!$Q!U'!$=A!N(zv))R(D'' <TFEB&]!636Y4'Q *H(zv)J 5AZT&[)D7P=
M)K$B4 M(zv)`V!V&U (zv)!B(zv)GD 7 ;SI437GZ3R(S*2,P!R$$8"4(zv)`(#Y`9!N8P<P
M(A8<(zv)!V(zv)`B#%(0)C(5)V>70<$ 40_P,(zv)'* #H"5Q)\ >,0# `R#K(B0>D&D`
M('4'0!I0+*#S$& $<'DI'Q ?\"K7(&#W$% L(R.T;!\4&\$>I2!1VR<G`R!S
M!X $H&D>0!+(zv)ZRSF)]-P*"!>*$(zv)BE ;A^QU0(1!E)4$AD13P'J K9?\%0"EC
M*< J8"H(,Y ;(2!5]P5 *JD?$% )<2.D"? '<,\I5Q,0(O(O4FUU$% #(/\X
M-"#D.00F( $`(!,;PR;0_R<:*/\B)2YR)T(VP3"Q)_K_*Q =`BOR)R0VP0A(zv)
M,A8U8L4FP6X;H'1Y<"GW'BUO0/4SQBL0'Q!.&] #8'K^9 B0+-$?4$6E'^ ;
MX34D_&5X"U -X#90+=$K8D"1_S9E*;$V^#.0!& %H"I(zv)&E#_!^ >8A[#''0V
MHS(zv)/(5(;T/LC(zv) .(zv)=1^P)W$:,"M62E_]*F%J+",PL4HA'9 Q8 EPJG,V^"(zv)H
M(#U&>$,)</\C<2YA" !/(zv)!YB/#A(4R.U?QS1*_8<DE%A4$\BD3W";_HN(.-O
M&Z CM00(zv)(T,=D/]1DU%P&\ $8$F0)%8EI(zv)? W2U(zv)91X`36$=%'4+4"W1;Q3P
M!Y MT1YB<QWQ$N!P_P0`!T <=!XB&E AL34!'5!M$!%P7.$AL"XEQ"7$3,YU
M!N!A,!F$,C01,F%9!QDQ`M$4<7,Q-B ^U" M9,)/!1!G"X 3T>9-!Y ;P&=E
M9,-A2 LPP&9I+3$T- % 25!79U,,T&=38F211(zv)-A.B4,(zv)V(0(zv)&]W&E!R+0$]
M%"UL0&9W9"[Z8Q^P6QDS&A LH0,0&R V.BU(zv)(4(N"0`I(zv)6M .1 0;6EJL6/3
M&A0(zv)7;L#,&B 3P.A)=-DH$(AX'4'0&9N0&9I4B5(zv); ,(zv)?DQL<V%%:((&8 (P
M:0=4JF(zv)(<',FT'D<<$T*P)$0$" P-!QP,3ES(zv)*%S8#$Z-#$3($UPN=94*"!I
M%B=I_2=PNF(0[T&R:0<NE"%"/V9J&4L:AB]DH&Z&<M >`&0?(zv)&%Z^CH[PVH]
M84FQ'^8(zv)Z!N(zv)CF$;&6 C'J!#*RL<<+]NAAI0!N ;X2? ?R50(+#N8P= *F >
MX2EY!7LH;^1;8]-B93EBYQ8Q`(4P`P`0$ `````#`!$0`````!X`0A !````
M&P```#PP,4)%-C8S,RY#1C%&.$9&,$!,04-)3D$^```+``& "" &``````#
M````````1(zv)`````#A0````````,`!( (( 8``````, ```````!&`````%*%
M``#P$P``'(zv)`%(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XU
M``L`"8 (( 8``````, ```````!&``````:%`````````P`*(zv) (zv)(zv)!(zv)``````
MP ```````$8``````84````````+`!. "" &``````# ````````1(zv)`````.
MA0````````,`%( (( 8``````, ```````!&`````!"%`````````P`5(zv) (zv)(zv)
M!(zv)``````P ```````$8`````$84````````#`!> "" &``````# ````````
M1(zv)`````8A0```````!X`)X (( 8``````, ```````!&`````#:%```!````
M`0`````````>`"B "" &``````# ````````1(zv)`````WA0```0````$`````
M````'(zv)`I(zv) (zv)(zv)!(zv)``````P ```````$8`````.(4```$````!``````````L`
M,8 (( 8``````, ```````!&`````(*%```!````"P`S(zv) L(zv)!(zv)``````P ``
M`````$8``````((zv)````````+`#6 "R &``````# ````````1(zv)`````%B ``
M``````(!^ \!````$ ```/FKO;BA8-(1H.L`$$LAIC0"`?H/`0```! ```#Y
MJ[VXH6#2$:#K`!!+(:8T`(zv)'[#P$```!8`````````#BANQ %Y1 :H;L(`"LJ
M5L(``%!35%!26"Y$3$P``````````$Y)5$'YO[(zv)!`*H`-]EN````1#I<4')I
M=F%T95Q/=71L;V]K7&]U=&QO;VLN<'-T``,`_(zv)\%`````P`--/TW```"`7\`
M`0```#$````P,# P,# P,$8Y04)"1$(X03$V,$0R,3%!,$5",# Q,#1",C%!
1-C,T,#0X1#(T,# `````LC `
`
end
Hlaska: Invalid BLOB handle in record buffer
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 4.3.1999 13:12:21
Pokud pouziju DBMemo na zobrazeni VARCHAR(2000) z tabulky na IB dostanu po nalezeni zaznamu pomoci LOCATE hlasku
Invalid BLOB handle in record buffer
Nevite nekdo jak to odstranit ??
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
problem ComboBox
[*] Marcant <marcant(zv)sct.sk> - 04.3.1999 13:14:09
Nastav mu vlastnost Style na csDropDownList.
Lubos wrote:
> Caute Delfinci !
>
> Zase mam taky blby problem, ze vas musim otravovat.
> Potrebujem nastavit ComboBox do stavu Read only.
> Bohuzial nema takuto property a neviem si rady.
> Aby som to popisal uplne, tak chcem aby fungoval len
> pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
> Myslim ze ti musi nejako ist, len neviem prist na to ako.
>
> Vdaka.
>
> /LH
Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 4.3.1999 13:32:07
Ne. Ale ted jsem zjistil, ze jsem pridal
na form jeden TTable component.
Kdyz jsem ji dal pryc a pak znovu
dal (jako kopii Table1) tak se to najednou
rozbehlo.
Mam jeste jeden dotaz. Mam tabulku,
kde vzdy vymazu dost radku a pak tam
insertuju jine.
Mel bych pouzit neco na packovani,
nebo se to dela samo
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+> -----Original Message-----
> From: Tomas Bradle [mailto:tomas(zv)cobra(tec)cz]
> Sent: Thursday, March 04, 1999 11:18 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Paradox
>=20
>=20
> Cau,
>=20
> a neupgradoval jsi Delphi nebo BDE?
>=20
> Tomas
> tomas(zv)cobra(tec)cz
>=20
>=20
> -----P=F9vodn=ED zpr=E1va-----
> Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 4. b=F8ezna 1999 7:55
> P=F8edm=ECt: Paradox
>=20
>=20
> >Mam aplikaci, ktera pristupuje k tabilkam v Paradoxu.
> >Do ted to bezelo bez problemu a svizne.
> >Ale od dnes to bezi strasne pomalu.
> >V cem muze byt problem?
> >Zkousel jsem vytvorit i indexy nanovo, ale
> >nic se nezmenilo.
> >
> >
> >+-------------------------------+
> >| Ing. Petr Jezek |
> >| Delvina, s.r.o |
> >| 010 01 Zilina |
> >+ - - - - - - - - - - - - - - - +
> >| tel: +421 (89) 624 344 |
> >| fax: +421 (89) 621 018 |
> >| email: petr(zv)sevis.sk |
> >| web: www.delvina.sk |
> >+-------------------------------+
>=20
elementarny problem s C/S
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 13:33:26
-----P�vodn� zpr�va-----
Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
Odesl�no: 4. b�ezna 1999 11:52
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: elementarny problem s C/S
Poznamka:
Me poznamky jsou mozna prilis poznamenany problematikou aplikaci
nasi firmy a nemaji obecnou platnost, takze mozna existuji nejake
sestavy dat,
kde by chovani, s nimz polemizuji, melo smysl
[Viktor] Jasne, na nektera data se hodi jedno a na druhe zas neco jineho.
> Tahle problematika me extremne zajima, anzto ji prave resim.
> Existuji i dalsi moznosti :
>
> * pokusis se konflikt nejak inteligentne vyresit sam, tj.
> napises soft, ktery rozhodne, zda lze dva modifikovane radky
> nejakym zpusobem sloucit. Pokud se nemenily tytez sloupce,
> proc by to neslo? Je to dokonale reseni, ale myslim, ze neni
> treba uzivatele tak rozmazlovat.
Ne, uzivatel musi videt platna data - cely zaznam. Protoze editovana
data co?
Protoze editovana data potvrzuje. Bezprostredne po potvrzeni musi
byt v databazi
potvrzena data a ne nejaky jejich kompilat ktery ani nevim s kym
jsem ziskal.
Navic mezi editovanymi udaji muze byt takova zavislost, ze se zmeny
v ruznych sloupcich vylucuji. Co potom?
Myslim si, ze to je spatne.
[Viktor] Snad by se dalo uz pri navrhu baze zjistit, co zavisle je a co
neni. Treba v adresari souvisi jmeno a cislo ulice, ale uz ne s prijmenim
nebo treba cislem bot. Tim, ze se vytipuji tyto semanticky nezavisle okruhy
dat se problem konfliktu odsune, jelikoz k nim bude nutne dochazet mnohem
mene casto.
>
> * anulujes obe zmeny, posles zpravu uzivatelum, at si to
> vyresi nejak sami. Strohe, nemuze dojit k rproblemum.
Ano.
>
> * rozjedes versioning - zkratka budou existovat dve verze
> tehoz radku. Konflikt se vyresi pozdeji. Tohle se mi libi
> nejvic. Nechat to na pozdeji.
Zalezi na charakteru tech dat. Vzhledem k tomu, ze se jedna
o sitovou aplikaci, muze se nekdo treti chtit na tato data podivat.
Zobrazis mu vsechny verze - jak si ma vybrat?
Navic kdyz neco nechas na pozdeji, tak uz to vetsinou nikdo
nespravi.
Tento pristup neni IMHO spatny, ale problematicky. A pokud se
nejedna
treba o vyvoj (napr. nejakeho dokumentu, SW atp.) tak je neprinosny,
protoze nic neresi, jenom pridelava praci.[Viktor] Ale ta prace se prenese z programatora na uzivatele, tedy z tebe
na nekoho jineho. To ale predchozi pristup dela taky a s vynalozenim
mensiho usili, takze tuto moznost asi oba svorne zavrhneme.
>
> * u kazde zmeny ukladas jeji semantiku, jinak receno
> posloupnost akci, ktere transformuji puvodni radek do nove
> podoby. Ten pozdejsi uzivatel obdrzi zpravu, ze pracoval na
> neaktualnich datech a posloupnost akci, ktere provedl, se
> zopakuje na tech, ktera dodal uzivatel 1. Fantazie, ovsem
> nekdy to muze vest k necekanym vysledkum. Vsechno zazalohuj.
Semantika zmeny je prilis pracna, posloupnost akci na datech,
ktera dodal uzivatel1 je nesmysl - co kdyz je to text, uzivatel2
opravuje tvrda a mekka IY a uzivatel1 zmeni cely text?
Spis bych to videl takto:
pred kazdou zmenou zazalohovat data prislusneho zaznamu.
Kazdy novy uzivatel to znovu preplacne, a stara verze se zazalohuje.
Pri nejasnostech je mozne z tabulky zaloh vyselektovat podle
Time vsechny predchozi verze radku a provest opravy.
[Viktor] To je ale presne versioning, tedy ta predchozi moznost (no, mozna
ne atak docela presne). Ale predstav si, ze zmenu i/y promitnes do databaze
IHNED po kazdem provedeni. Kdyz to spojis s journallingem, tedy uzivatele,
kteri rozjeli editaci, budou dostavat zpravy o zmenach, ktere udelali jini
uzivatele, bude to i tak fungovat, ne? Zmena celeho textu se da taky
rozdelit do mnoha elementarnich akci a ty provadet postupne. Asi. > * detekujes tyto kolize a vyvolas totalni krach systemu,
> vsechno smazes. Uzivatele odkazes na cast manualu, kde tim
> nejmensim pismem nejak taktne popises toto chovani. Bezne
> reseni u mnoha firem, idealni pro surove povahy.
To ne. Jsem mekkej :-)[Viktor] Muzes taky cely problem zamest pod koberec: povedes si log
soubor. Kdyz dojde ke kolizi, o jake tu uvazujeme, zachovas se, jak chces,
treba jeden zaznam zamitnes. Do logu nenapises o kolizi NIC. Az dojde k
podivnym ztratam dat (a to bude asi jen obcas), vsechno zapres. Ukazes
perfektne vedeny log a reknes - "To je blbost, k zadne kolizi nedoslo, to
bych musel vedet. To jste asi zmackli neco blbe. Podivejte se do logu, tam
jsou zaznamenany vsechny operace." Zatloukat, zatloukat a zatloukat. Vsak
to znas, zvlast jestli jsi zenaty.
Taky muzes zrusit cely radek, proste ho vyhodit z databaze a tvarit se, ze
tam nikdy nebyl. Ale na to by se asi brzo prislo.
>
> Nejake jine navrhy?
>
> Viktor
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
[Viktor] Tak se mi zda, ze nejlepsi reseni je rozdelit bazi na semanticky
nezavisle okruhy, journalling a uchovavani semantiky zmen. To je prace jak
na kostele. Fakt by se nenaslo neco jednodussiho? Pry to Interbase resi
nejakym dokonalym zpusobem.
begin 600 WINMAIL.DAT
M>)\^(AT,`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`>````4D4Z
M(&5L96UE;G1A<FYY('!R;V)L96T(zv)<R!#+U,`'(zv)H!!8 #``X```#/!P,`! `-
M`"$`&(zv)`$`"D!`2" `P`.````SP<#``0`#0`4`# `! `R`0$)(zv) $`(0```$1!
M,S8R,D(Q,CE$,D0R,3$Y,T$W,# R,$%&,T)$.3%#`!$'`0.0!(zv)#T$0``(0``
M``L``(zv)`!````"P`C```````#`"8```````L`*0```````P`N```````#`#8`
M`````$ `.0"(zv),;<S.V:^`1X`< `!````'(zv)```%)%.B!E;&5M96YT87)N>2!P
M<F]B;&5M(',(zv)0R]3`````(zv)%Q``$````6`````;YF.S.QL2(VV](I$=*3IP`(zv)
MKSO9' ``'(zv)`># $````%````4TU44 `````>`!\,`0```!8```!V:6MT;W(N
M;&]S=&%K0&-H;6DN8WH````#``80195M]P,`!Q#K#P``'(zv)`($ $```!E````
M+2TM+2U0^59/1$[M6E!2X59!+2TM+2U/1#I03TQ!2TI)4DE33510.DI)4DE0
M3TQ!2T!40T].4U5,5$-:3T1%4TSA3D\Z-$+X15I.03$Y.3DQ,3HU,DM/354Z
M1$5,4$A)+4Q 1(zv)`````"`0D0`0```,\.``#+#(zv)``;!H``$Q:1G5''*%M=P`*
M`0,!]R "I /C`(zv)!C`F(zv)*P'-E=#(S.-4``"H"X6$'(zv)" '$P* \0<3($-%`H,`
M4 +R#U=(zv),"!486(zv)#<0*#,O$.YW!R<1.Q#W\0CQ&1)GT*(zv) C((#L);S(U9C4"
M(zv) J!=6,`4 L#8P,`00M(zv);F<Q,#(Y?PNG"K$*A J$&?("T1'Q<TPQ-QNZ$Z,Q
M-ANZ;-AI,S8;00-(zv)= 60!4 "+1_R4%PG9CEVRP1P"Y G"8 (zv)>A10(-'X,79A
M'_,;5A^$&T,+,8,?A (`:2TQ-#0!0'$?$#$X, % #- D`V)0($]D.(zv)R#8A+(zv)
M4$$&\&%K($II!1 (zv)0%M33510.B9B+ADF`T!T!: `(zv)'5L=/ N8WI=&U4E,(zv)>0
M"5")(6%N;R5W-"X(zv)## 1(& X97H5H" Q.6,K,"L0,3HU$[ HEDL5`W!U)7<G
M`0!L<&A!(^!L0&9W9"A!)^<HAR!"*L!D;2#1'\ E=]!213H(zv)+4!E!X ",'$*
MP&YY(!]Q`F P(zv)"#Q!"!#+U,B#R,:'Q0:[X\*(zv)0&1)?$JX6UK825P-34(3170
M<#6T,0!J<_T(8" $8"KB%% #$ 0`-P6'"? `<#$'871I:S?!_F$+4#H0`- `
MH#4(%: `D+((zv)(]!R;3$`*P!N.=%^:B:0,4 %D"F(zv)-] +470A*:!S="P(zv)`9!K
M>I,5T#?T97(zv)$`'1U/*%U/&!J)C!E&U04\#VP8:IV,0!D.? L-/EK`0#W*G Q
M`!2P;R&0`P`]T 0(zv)F0,`;7HW`3!Q:7H_`?\]T > "0`QD#P0*4$;;0J!KQH2
M##(R9B:(zv)5CH0= 6P?ET#,"70#$ 2X ,P&E0S_C,1T290.Z \8#W0*O$\8+]&
ML 20*P! (zv)2L`%/ (zv)$R!Z9":0:(zv)F *: \,DEA<O1U:!70>CN(zv)/%$%H#>0]0N
M91,(zv)+D4')#$:9B-7^QM&-6(^$O(P<#EZ*P`5P?4^L'0)<&T\8$M1/* `P/L]
MT !P>D; 2^$Q$4! %=#;"7 `D&TJ8$Y+13[&)I#]0(!L.[$W\CVA)I V*D[P
MY4Y+*C<!:W4`D 0(zv)2='Y.B!N9CJ!!4 _0U0P`C#Y+4!I9S"A4-% 4%)R!4"V
M<Q6P/=%J4LT5H' $`'\'D3>P`8 ]T$DB,0`#8'I+2(zv)%(DGI (zv)"!L/B%D?R&0
M-^%*("/0.B!"$5)18?YD-W%:K#]2!L A$5=0/-'_,8$)`!F 6> J8"8`5T A
M`)])T3QA"? #$#$`='D?H'-"P&$B<&-(H4Y+'W%C[T&B4;$\8&$A/R90%=!1
ML?YD5S "( = 4E-B<5%A3T%_1 ('<%TQ8B(#`%+<4)%B\2L`=7II(9!8X67!
M)C'[7+$`P'H)`&G!3%8U" ? WSW0:98WX%=168!I`0`%0/L]4TEE+4'0+4 Q
M`$M(zv)-<)_89$?(zv)36P4%%*($; 0A%A]QM428,%H#\T^F^.270W$*AT=G)#064J
M8$(JT/\?<3VP"7%0T3<0<W5H(FT2]QM40; %0'9)<VE(zv):: T^?]U1DEE/$)(zv)
M!4I!/* 4L%?!_FU;D#UA7$5"(3Q1;6 Q(zv)E](zv)41M4-Z Q<6F(zv)<S8`;/],5FP#
M0$!Y\$.1::!OYP; _R:08> \DBQP/B%V(zv)CWQ0(zv)'_2U%M8&$A/;(^(4G1:I )
M\-YY-/EVP$L0*N!Y>(zv)%C-/=Y\D!0"D!C/P$J8 A0<W+[`W!Q6DUG<S&00D$^
M(5&R?X%Q"K!946LL17]&CT>;4_\5H"$`0;%)T51A0]!ID#A"^SN!<[!H-]!W
M(4M!/*!5$?\]P4O!(zv)+05T(;Q<1)H`RI(zv)_E1I0W; 7O!2<0K )I WL?^ T4HQ
M,)%*DCK 82%I(zv)!\0_V."9F*,45#1.*$%$)$R>Y'_/& &X&DED;(Q<0;(zv)88$'
M8?^!1D!0.(zv)!(zv)H#RA8M%#T3G1_P(P>? W<3Q(zv)CD97,$L10&/_2<(Q)E?6-] $
M<"(zv)`2))*4'\Z(zv)36P06!"(zv)BIP8>!B(76_65)F$!2Q/B %0%# ;TLP]S& ,)$5
MT&,[H(FP3%]-;_]5GU:F`' H$'/A!" \T8&T_SW0-Q".(zv)00(zv)(2% 0#?0:9;^
M=5HQF+*6<4/03DM9E%A5^UH1A'%34)"<\4BQ,(!_PO]F$#R(zv)>J%28#$EI#!K
M+Q7(zv)_RF(zv)J1^(zv)?URB2E$'D5) %.#6:0((zv)"X!G;G%ZF$ Y\/]0$9N1-\$^LVKB
M7<%9<020WSXA:&Q,(4+ 7N)U*F L4+]7]973I?,W$0$`A&)4G/#O3T%)T7\A
M'Q!B:$T_07X!_RI(zv)!\ 4L8 A92%S8K,$JG_^6F9A?F$J\12R)C!),3?0[Q^A
M>A! (zv)2I(zv)5ES0,' !`/^9<64!+'"!1DI2<'4U4T/1_W 2.CE#(zv)7_"8A-!<)03
M52'_%+"-P4C"`9!EXG-$2B!J^?^W\S% 25!\P6T!68 4\!2POS#QK[1N(zv)*9C
M5*&/X7G!D>YT<5I]Y$%P>9+2CQ,4L;]"<;:'/=.,0E&Q4D!T`)#_/1(#`+YQ
M.NH'D%(2MP<U8EY4,*%U(040/N%P: 1)^$U(3X<4HJ%F8CF(EU']*F!!5Q-A
M\AM4/T&[K6DT1<>A>2"0:B H6W%R?RI(zv)/T03(&8"I# PH;L!4^)7I&%P+BEJ
M(X;Q/&#_.%$]D:*1=VIOA0,`9, \8/]2<IJ2*: Q(zv)#A1+3% 0#(zv)ROSJQMQR(
M#XD?BB](0$%J`__7`X%S%%"=48&2,1()P!6P_[^Q25$J\6F7/=$)(zv)&[1L-'_
MHC%(U)SP2]>S8<R%"8!!X;]^8<KVUJ(]XCPBK0%Y9E'_;[&3HC"1`)#1D5=1
M'Q ]UO\^\%&Q5,4Z4#NQ,4!)L2"0_P2(zv)2T*,X6)"G>^>_ZL/5J;?-] V`+,!
M(zv);1I(zv)&L+8$" _P0(zv)><*6UE= FI$+(zv)&I"!9#?D5)CS*+A8U'EQ&N]DDDB_V7!
M25 `(zv) (0/ `_`F"(zv)()+_)I!>X4D09(zv)$[(zv)$(`K_W 0?\Q0,V1RI&RU3NQ;(<Q
M0$L`_WYAHT1GP]<20(zv)$#("KQ7TW]N1%U!T#54;FSN9)S8N]O9_!S'W%20&1L
M0E&O_7K^;PJP5T#30K^!M>%<-$EAUP1P$5%LAS$J8$:7$7<Q_TBA0(zv)!\(zv)E]-
MQ5%E`G^S4D#_Y>&;,>X1-(zv)!_`5F!CH&Q8?U2L5;"0XXB2V )`(T`6GC]-0A3
M[06 D>O3AO$X5M<A_Q6(zv)HK3Y^DK#^3- N_W_+4#_VW#30T/S;G)#T,53AO%1
ML?\?H%" ;&(zv)KMKQ3HU,-0G.PRUUA4")K4!%)69&!"UC?(zv)<*^\6ZR#:)Q6E-;
MD4&A_WH!QY+6DCWBV? V*N$RZU/_-\&!PA8B!&2O)'-#X>&AP-]((zv)=&1;O2Q
M(zv)#3Y2^MQEW'_0(zv)#L`6R64;%4X:.!W)%MP?\]`))2,9 PP8_AK\.!D(zv)1F_X=W
M<=0_)$B /:&YDH;Q-_+_W/(LL2(zv)0-W$$<P,2,&'9X?^O,L!!,'#)ZD*(zv)67'"
M1>$X_Z^TL4/Y(zv)OM"",$/0\V0U]__V._9_T?7X,&.PN$$2(&M&=_>Q=O3X5;E
MEM# ;T.!. ._4-%)D?)2;J$L4TB!*<VAG^$%0"*&1H'"-]!I+SEC/T,(zv)65'L
M(zv)+Z!=N7RT$E(^$Y%1'4"ZV/64OM2CU.^2\5BEK(W$(V1>[%JD,#_YL!G(+0P
MZ'!#$-[%WCE)(O_Q\:RBM#!OX[V#KG1F$$ B_WJ1HT-?((XAT(zv)'<(/VUDJ'_
MUJ(X84OQ]/A(H9N34;&6<758D6::8&=JXJ=B99!:_SJR;I+1(zv)(zv)VBR#"+T^*4
M7+'_UJ%9X;Z!G-(0D&GQT(zv)*X\/_XTPCSOX$Q(zv)_<0;8.!$?H!_70!078`)E[H
M/^E/5P!M(zv)?\AH*'3EI. 8+0P9^'#LO&P_R\`2'$GT/BR`E#7(8-!`S"_WU"Z
M\J4,`^4,0(U!<\V(zv)_E5IIUX(zv)ZV&A\;BBG:'#D?^;X&<(zv)NP&^<&7!>Y%?3N/S
M_]91C: C0)/"6((4(zv)G3C6Y3_2?$U$"RQ?N&$<70QYM'IB_]FI.LQ071>4.%
M6C%M<4HC_R>Q>[ UX/*RHM#W$)APMQ\[X+)$0DI\(zv)A!2T4 (zv).KPM*==_)Q\H
M+]JM37_!_TG1>8)NHYD6(/ C0 C!P$'WF8&B,.X!.E>BK-.F$8$`_ZVPD+&5
M`-$!-+.G\9NQT7#_2-3&\> AT6'E,6F ]Q!STO\C0&?!.N%^T36!FH+3$<80
M_9) <^3!:4.LPO1(zv);O1(zv)(OLQX\V(zv)1#408B'(,7AQ4K3C2,6T8$Y)0\VA8Q?
M-+T"XGKPP7<`>Z"8HBB_(zv);\U$)N3YA+6$:(1G9$ITE!?3#8(zv)\"K"31%-]'"M
M,&9_(:$K`S11XM!B(A"0X4!K^S("#* B*B290)4`(zv)2+R4/\(zv)\'32:B7G4#F!
M(zv)0#DP6TA_X,B\4 A<7"3E2+(zv)(1]AY(zv)-_.J#<(.PP'M(,P7)Q1%%0_\!2T4!V
M$8O2:/3DPGN(zv)?'#_%I08P3K!PH+"1?S0"K&20/0N(K(zv)A=(-Q$("!,GN6?Y&!
M?#<#LE'R&Q+L</9Q=O])L0C0H>%[H#OQ=E(ZP4B0_5(zv);5$!RIZ*C(;E0O+$1
M]/_R$Z*Q7%!V`M&1.E 7(#BA_]T!,G>_(zv)?<0X>"8PH9T:!'WR%*7<HN(zv);"^D
MOW)T(zv)KM2_^82P9#\P!?$G=]&'^FOH07?M=!D8^!"QE'G(7D2FNH]MUSD6I^J
MQ4HUX+O5+9%G7Y!E5B"T8'>P+P!KB)1EIBV7`.20.FJ0T2ZBT(V2T4"6\>20
M+F-Z'(zv)GW\6#AX)05=/;PY!"AL'60_93F=]](zv)VJ!:4%NSH;"#$$)TTK Z+R]F
MX4!EGY=QE- NT(APE. O:I0C;XCSH;"*99%N5*= >M!N_Q(A/B!(zv)L3T0*\$'
M(zv)0E1^&#]G-,A6O]<#UT?*9BF<K/CW^N " '5(M% J,!PIA%5)?\-04"W,K&X
M(zv)^SUS7$N,><!]Q?Q3;%*<'57\-7Q-=(zv)0TO]38U.2[.??$=(!=:3VI+MQ_V9Q
MOW'?\!]AHS#_0K(1AS3_:6((4<64NY+ 4.1PY"(^L/L>L %S2=((zv)*T RL/O!
MLI/_T3,"\='!L<#(zv)\&OR\9!B8%]W< .(zv)1,^)3XI6?4= ``&SL `#`! 0````
M``,`$1 !`````P" $/____] ``<P(-F^;SEFO(zv)% ``(zv)P(-F^;SEFO(zv)$+``"
M"" &``````# ````````1(zv)`````#A0````````,``H (( 8``````, `````
M``!&`````!"%`````````P`%(zv) (zv)(zv)!(zv)``````P ```````$8`````4H4``/ .
M```>`"6 "" &``````# ````````1(zv)````!4A0```0````0````X+C ``P`F
M(zv) (zv)(zv)!(zv)``````P ```````$8``````84````````+`"^ "" &``````# ````
M````1(zv)`````.A0````````,`,( (( 8``````, ```````!&`````!&%````
M`````P`R(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>`$& "" &````
M``# ````````1(zv)`````VA0```0````$`````````'(zv)!"(zv) (zv)(zv)!(zv)``````P ``
M`````$8`````-X4```$````!`````````!X`0X (( 8``````, ```````!&
M`````#B%```!`````0`````````>`#T``0````4```!213H(zv)``````,`#33]
%-P```MN%
`
end
Rotace, rotace, ty ja mam nejradeji...
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 13:35:47
[Viktor]
To neni zadne reseni. Ja si nastavim MapMode na MM_ANISOTROPIC a potom
stale stejnou velikost okna. Navic V NT TO TISKNE! A proc by to nerotovalo?
Jak to souvisi s rozlisenim?
Viktor
tlaciaren ma vacsie rozlisenie ako monitor
olej
> -----Original Message-----
> From: viktor.lostak(zv)chmi(tec)cz [SMTP:viktor.lostak(zv)chmi(tec)cz]
> Sent: Thursday, March 04, 1999 10:53 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Rotace, rotace, ty ja mam nejradeji...
>
> Mam takovy problem:
>
> Aplikace kresli nejake rotovane texty, vetsinou o 90 stupnu, ale i jinak.
> Stejnou casti kodu to maluju na obrazovku i na tiskarnu. Na NT je vse OK,
> na Win95/98 je to spravne na obrazovce, ale na tiskarne misto toho
vylezou
> uplne malicke pidi-mrti fonty a navic vubec nejsou otocene, ludry. Nemate
> nejakou predstavu, cim to muze byt?
>
> Viktor
begin 600 WINMAIL.DAT
M>)\^(CD,`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`K````4D4Z
M(%)O=&%C92P(zv)<F]T86-E+"!T>2!J82!M86T(zv);F5J<F%D96II+BXN`.X-`06
M`P`.````SP<#``0`#0`C`"\`! ! `0$(zv)(zv) ,`#(zv)```,\'`P`$``T`((zv)`:``0`
M*(zv)$!"8 !`"$```!%,S,V,C)",3(Y1#)$,C$Q.3-!-S P,C!!1C-"1#DQ0P`$
M!P$#D 8`L 8``"$````+``(``0````L`(P```````P`F```````+`"D`````
M``,`+(zv)```````P`V``````! `#D`P*%:ASMFO(zv)$>`' ``0```"L```!213H(zv)
M4F]T86-E+"!R;W1A8V4L('1Y(&IA(&UA;2!N96IR861E:FDN+BX```(!<0`!
M````%(zv)````&^9CN'5K$B-N32*1'2DZ<`(*\[V1P``!X`'(zv)P!````!0```%--
M5% `````'(zv)`?# $````6````=FEK=&]R+FQO<W1A:T!C:&UI+F-Z`````P`&
M$(KR+?L#``<0BP(``!X`"! !````90```%9)2U1/4E1/3D5.25I!1$Y%4D53
M14Y)2D%324Y!4U1!5DE-34%034]$14Y!34U!3DE33U123U!)0T%03U1/35-4
M04Q%4U1%2DY/559%3$E+3U-43TM.04Y!5DE#5DY45$]425,``````(zv)$)$ $`
M``" `P``? ,``+8$``!,6D9U\5H>CG<`"(zv)$#`?<(zv)`J0#XP(`8P)H"L!S970R
M,SC5```J`N%A!X (zv)!Q,"(zv)/$'$R!#10*#`% "\(zv)]78# (zv)5&%H`W$"(zv)'T3"H (
MR" ["6\R-34S`H *(zv)75C`% +`VQI-#,V`4!C`$$+8&YG\#$P,CD+IPJQ"H$7
M- 0S,Q'1(%M6:6L*= 6P71(zv)T5&\(zv);D$)\&D(zv)>F%D&G (zv)!PEP#[ #`"X(zv)2F$(zv)
MTP"0&F!A<P&0=(zv)=P!= X87!-!'$;\07035\`04Y)4T]44D^04$E#(!NP<&\9
MH!L<<!PA;!"0'"!E:FZ1"& (zv)=F46D&MO'"!8(&]K$& ;(zv)$X<06/4(%8'L%02
M\$\2\!V0\$M.12$0H!Y `V (zv)P'AB>2 9H!IA`V 9H':I!T!O/QN1:R)R<PA(zv)
M;QQ0&]$$( -(zv)>A:0&T)M_C\8-1A#&708-1;P`4 7-[,B`1\(zv)8W0"LAA#= M(zv)
M_F,', EP`Z `P!^ `- `D/\;`226$) C(zv)!I0!& #`"8H'QA#!O ?,"4Z)3H^
M("VU+=)/!1!G"X 144T'D+!S86=E+=,M5D8#86XZ#((?(zv)!F#+(zv)D`'"%K2D /
M<&T;<&-Z&5!3\$U44#HPGS&B&=4ML"<&8 (P,#14: AP<V0H87DL'(%R#W (zv)
M,#(T-5 Q.38(zv)-(zv)`P.G0U,Q"(zv)32U6&D P-"<!`0!L<&AI+6Q *&9W9#&Q)S.W
M=6*>:B?1,#0(``&08V4U4.LBT3IS=")(zv):ANP`, <</D:<&IR&M ?,!MP/' M
M5O\M5AR0'' Q,2,`(F B`0)(zv)=F4P(3R]00M0&8 Z<2#^:QLA%I [TB. *;(B
M\AKQW1\(zv)>#M -5 ?D'0`D!]2#1I0.1+(zv)'"!U<&YU7S50'M(:H#Q0$&!K/)=3
MW1\E8QP1&J ?T&0?<"*!>P# "D!J'W =$3YP/!!Z_2,`:Q]P&^(B< 0`0! $
MH#YU(&((zv)\CF(zv)'X /L"!/+$LL+58=$5<+(zv)#DU^"\Y.$C"([(B`!Q &O'_1K(zv)Z
M(zv)A[21Z(zv)0D#&0'" :4/<9H!,(zv)'X!Y'N!'( QP+64]0T!L34('0""P01%P:?ID
M.$!M`" :H (2(F ;L/L08""B=CF !9 [TB/A(! ?&: Z(zv)!IP-5 *0&1R>?L(zv)
M83Z(zv)81\(zv)27= XA]A((zv)`_"8 <(D-Q*, ]P2JA=7I[$) B4'0E)3T()?H3(zv)0`!
M6% #`! 0`0````,`$1 ``````P" $/____] ``<P\"(zv)!5SMFO(zv)% ``(zv)P\"(zv)!
M5SMFO(zv)$+``" "" &``````# ````````1(zv)`````#A0````````,``H (( 8`
M`````, ```````!&`````!"%`````````P`%(zv) (zv)(zv)!(zv)``````P ```````$8`
M````4H4``/ .```>`"6 "" &``````# ````````1(zv)````!4A0```0````0`
M```X+C ``P`F(zv) (zv)(zv)!(zv)``````P ```````$8``````84````````+`"^ "" &
M``````# ````````1(zv)`````.A0````````,`,( (( 8``````, ```````!&
M`````!&%`````````P`R(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>
M`$& "" &``````# ````````1(zv)`````VA0```0````$`````````'(zv)!"(zv) (zv)(zv)
M!(zv)``````P ```````$8`````-X4```$````!`````````!X`0X (( 8`````
M`, ```````!&`````#B%```!`````0`````````>`#T``0````4```!213H(zv)
.``````,`#33]-P```(B%
`
end
Sipky, TButton a TImage
[*] Pavel ZIDEK <kopr(zv)applet(tec)cz> - 4.3.1999 13:36:44
na Butonech nastav TabStop:=3Dfalse
----------
> Odes=EDlatel: Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P=F8edm=ECt: Sipky, TButton a TImage
> Datum: 4. b=F8ezna 1999 12:18
>=20
> Mel bych jeden zacatecnicky dotaz:
> Na formulari mam nekolik instanci komponenty TButton a instanci=20
> komponenty TImage. Chtel bych, aby se pri stisku klavesy sipka=20
> (prava/leva, event. se Shiftem) provedla nejaka operace v tom=20
> TImage. Nevim ale jak na to.
> Do vlastnosti formulare jsem si dal KeyPreview :=3D true s tim, ze=20
> budu odchytavat udalost OnKeyPress. Jenze kdyz stisknu sipky, tak se=20
> pohybuju po tech buttonech.=20
> Nevite nekdo, jak na to? Za kazdou radu diky.
>=20
> Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj | =20
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+
Destruktor?
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 13:40:26
Myslis tim, ze kdyz vytvorim lokalni objekt v nejake metode, tak se pamet
pro nej nealokuje na stacku (zasobniku), ale z haldy? To musi dost
zdrzovat, ne? Ale v C++, kdyz zavolas "delete" (neco jako Dispose nebo
Free), tak se destruktor taky zavola.
Ale beru to tedy tak, ze se destruktory atutomaticky nevolaji. To je bida.
Nicmene dik. Viktor
V Delphi su objekty vlastne smernikmi na objekty (v C++ ponimani), takze
ich destruktory sa
automaticky nevolaju - aspon podla mojich vedomosti.
Viktor Lostak wrote:
> Mam dotaz: volaji se v Delphi destruktory automaticky jako v C++, nebo ne
(jako v Pascalu 7.0)?
>
> Viktor
>
> Name: WINMAIL.DAT
> WINMAIL.DAT Type: unspecified type (application/octet-stream)
> Encoding: x-uuencode
begin 600 WINMAIL.DAT
M>)\^(AL,`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`0````4D4Z
M($1E<W1R=6MT;W(_`&<%`06 `P`.````SP<#``0`#0`H`!H`! `P`0$(zv)(zv) ,`
M#(zv)```,\'`P`$``T`)(zv)`<``0`, $!"8 !`"$```!%0C,V,C)",3(Y1#)$,C$Q
M.3-!-S P,C!!1C-"1#DQ0P`3!P$#D 8`# 8``"$````+``(``0````L`(P``
M`````P`F```````+`"D```````,`+(zv)```````P`V``````! `#D`4 .S+3QF
MO(zv)$>`' ``0```! ```!213H(zv)1&5S=')U:W1O<C\``(zv)%Q``$````6`````;YF
M/"VLL2(V[-(I$=*3IP`(zv)KSO9' ``'(zv)`># $````%````4TU44 `````>`!\,
M`0```!8```!V:6MT;W(N;&]S=&%K0&-H;6DN8WH````#``80(U6>8P,`!Q!4
M`(zv)``'(zv)`($ $```!E````35E33$E35$E-+%I%2T196E995%9/4DE-3$]+04Q.
M24]"2D5+5%9.14I!2T5-151/1$4L5$%+4T5004U%5%!23TY%2DY%04Q/2U5*
M14Y!4U1!0TM5*%I!4T]"3DE+52DL04Q%6(zv)`````"`0D0`0```/4"``#Q`(zv)``
M/(zv)0``$Q:1G4A`K0)-P`*`0,!]R "IP(`8V(zv)!"L!S970P(%1A/F(zv)#<0*#`% #
MU \W,C.J. ``*(zv)+A80> ( <3HP* !Q,(zv)0T4"(zv)'T*(zv)(D(R" ["6\R-34"(zv)!D*
M(zv)75C`% +`VQI,QHV`4!C`$$+8&YG,9(zv)P,S,+I(zv)70>7,6D$4$('0'<"P(zv)>A)0
M:P!D>7H(zv)=GET=FL%L =P( D`:P= `P`(zv)(&]B:F5K!4!V(&!N96IA:Q)0!X!T
MIP1Q&. !D&L(zv)#Y (zv)"K!_&Y$<< -(zv)&Q(;$0= &B!U6QJP&Q!A'$ !D&,=L"!P
M*'IA<QJ0`P`=L"E?&. '0!)0&6 /8&P90#\3#] =`&UU`) (zv)9&\#'C 8\&1R
M>F]V86YT&. ;(" (zv)01^!&P!#_"LK&. 9,QZP&; +8 0(zv)QB(!`!^ =&4B'I ;
M(*T%H" ;01T`1 0`<"#0Y1WA90;(zv)($8)T1]!'!5S`0`>,')U&M %L1P1>;TB
MY2X*H(zv)J$"H A\F($D/\>(zv)!NP&* )(zv)"= '!$8XR8[^R= (7!U&[ `P!BP'F G
M0&,;(",2:FDN(#(=T6+T:60GO$XKD > &R (zv)L#L?$"Q(zv)5A\0)M$7)3(Y/Q!R
M)^06\ % '.$CP&-T32?45B2(zv)(Y!P:!IP<U<>(zv)!J4)T!V(S%T+D%S=P> !* ?
M$&T:<!X!,B8HWR(S'' "( =P`'!I)<09`:4KD&(zv)J2W-A)]1A*S]Z:AZ +1](zv)
M)-$#H"3(zv)9-L+8!N ;RQ -(zv)%V"8 #<,\(zv)T2Q0)]HNQ"!,(-$<(>IW,*(Z)]H^
M!= 2,""Q^0&0>CH9<"P3'$(;`#&%ORI;-XDD8R(U)3,N02A ]1I0'L!C!T >
M(zv)#<N,/PI/ST5/18NQ4.<1;]&`(zv)9.$C$^(%=)3DU!P$E,+D1!5$5)1WG11(zv)54
M>7!'074`(zv)$H0=F,&D B09!B(zv)2(zv)$>D&&>< M0*Y K<0((zv)+V\PX,T/H"TF(zv)1UP
M;2E%3TV&/$5N!: N<!=0/B!X+;9U"E!.HF4GVA.!`%#0`````P`0$ `````#
M`!$0``````,`(zv)!#_____0 `',"!=?^<[9KX!0 `(,"!=?^<[9KX!"P``(zv) (zv)(zv)
M!(zv)``````P ```````$8``````X4````````#``* "" &``````# ````````
M1(zv)`````0A0````````,`!8 (( 8``````, ```````!&`````%*%``#P#(zv)``
M'(zv)`E(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XP``,`)H (
M( 8``````, ```````!&``````&%````````"P`O(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````#H4````````#`#" "" &``````# ````````1(zv)`````1A0``````
M``,`,H (( 8``````, ```````!&`````!B%````````'(zv)!!(zv) (zv)(zv)!(zv)``````
MP ```````$8`````-H4```$````!`````````!X`0H (( 8``````, `````
M``!&`````#>%```!`````0`````````>`$. "" &``````# ````````1(zv)``
M```XA0```0````$`````````'(zv)`]``$````%````4D4Z( `````#``TT_3<`
#`#!/
`
end
Ovl�dac� panely
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 4.3.1999 13:42:57
Potreboval bych do slozky "Ovladaci panely" p�idat zastupce, nevite prosim kde zjistit cestu, nebo kam zaspat. Nemohu to najit mozna koukam jinam nez mam.
Dekuju
Milan Fiedler
milanf(zv)rts(tec)cz
problem ComboBox
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 4.3.1999 13:43:54
To je proste jiny druh comba, rika se mu DropDown list.
Viktor
______________________________________________________
Caute Delfinci !
Zase mam taky blby problem, ze vas musim otravovat.
Potrebujem nastavit ComboBox do stavu Read only.
Bohuzial nema takuto property a neviem si rady.
Aby som to popisal uplne, tak chcem aby fungoval len
pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
Myslim ze ti musi nejako ist, len neviem prist na to ako.
Vdaka.
/LH
begin 600 WINMAIL.DAT
M>)\^(C(zv),`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`5````4D4Z
M('!R;V)L96T(zv)0V]M8F]";W(zv)`&P<!!8 #``X```#/!P,`! `-`"L`-(zv)`$`$\!
M`2" `P`.````SP<#``0`#0`K`!H`! `S`0$)(zv) $`(0```$8Y,S8R,D(Q,CE$
M,D0R,3$Y,T$W,# R,$%&,T)$.3%#``L'`0.0!(zv)!0!0``(0````L``(zv)`!````
M"P`C```````#`"8```````L`*0```````P`N```````#`#8``````$ `.0`0
M?/.I/&:^`1X`< `!````%0```%)%.B!P<F]B;&5M($-O;6)O0F]X``````(!
M<0`!````%(zv)````&^9CRI[;$B-OK2*1'2DZ<`(*\[V1P``!X`'(zv)P!````!0``
M`%--5% `````'(zv)`?# $````6````=FEK=&]R+FQO<W1A:T!C:&UI+F-Z````
M`P`&$"6[%MT#``<01(zv)$``!X`"! !````90```%1/2D504D]35$5*24Y91%)5
M2$-/34)!+%))2T%314U51%)/4$1/5TY,25-45DE+5$]20T%55$5$14Q&24Y#
M25I!4T5-04U404M90DQ"65!23T),14TL6D5605--55-)34]44D$``````(zv)$)
M$ $````R`(zv)``+(zv)(```8#``!,6D9UI(H"TS<`"(zv)$#`?<(zv)`J<"`&-H`0K <V5T
M,"!483YH`W$"(zv)P!0`]0/-S(SJC(zv)``"H"X6$'(zv)" '$Z,"(zv) <3($-%`H!]"H")
M",(zv)(zv).PEO,C4U`H 9"H%U8P!0"P-L:3,:-(zv)% 8P!!"V!N9S$8,#,S"Z8/T&\(zv)
M:J424' #8'-T$E!J"X" >2!D<G5H( 6(zv)$0;082P(zv)!1!K82!!#Y (zv);74(zv)1 -(zv)
M<+A$;W<#H!:0&- N"J)K"H0*(zv)%8:,'0%L!NZ7Y\=GQZO'[\?X!<E,CD0<E\;
MQ!;P`4 8H1C(zv)8P5 0X1A=1CA1&5L9(zv)N D&-I("$;NEIA&G*U$C (zv)`9!K&4 "
M8&(90%,8H0)(zv)96T:`'H24'8?)+ :D0"0)1 B(zv)')A=A9O)I ;EE G,65B==\8
M<"40$B 8T"=(zv):2+!&<'P;T)O>!E0&% I`AJP$%)E860G(&YL>:,;I2G :'5Z
M$P)N)B!?&E E,2,`&% 8H7 $D'3_&4 :4"P(zv)*3 HL0"0&A JL/4K%D$EH7,#
M<"4(zv)+,$:\/L$`!,1=0M0+" :`"4Q&:"<:&,HL0&(zv)&4!F=1=0?R>!`R F$ N0
M&\,8H".P:YD6D&MN(P`CL&UY+R#?&K :4#$B+] L$60'0".PEGHJL">(zv)(! `
M9&XB(zv)-L90!EP8RP(zv)&Z5-,V 6D-\E$"9A,R(FX2P1:B5 &%#_&W$:`#'Q+88R
M(zv)1C0*-$O4A\WH1NL-& :0!NK+TQ(%QNZ&[03(zv)0`]4 ```P`0$ `````#`!$0
M``````,`(zv)!#_____0 `',!!P6YD\9KX!0 `(,!!P6YD\9KX!"P``(zv) (zv)(zv)!(zv)``
M````P ```````$8``````X4````````#``* "" &``````# ````````1(zv)``
M```0A0````````,`!8 (( 8``````, ```````!&`````%*%``#P#(zv)``'(zv)`E
M(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XP``,`)H (( 8`
M`````, ```````!&``````&%````````"P`O(zv) (zv)(zv)!(zv)``````P ```````$8`
M````#H4````````#`#" "" &``````# ````````1(zv)`````1A0````````,`
M,H (( 8``````, ```````!&`````!B%````````'(zv)!!(zv) (zv)(zv)!(zv)``````P ``
M`````$8`````-H4```$````!`````````!X`0H (( 8``````, ```````!&
M`````#>%```!`````0`````````>`$. "" &``````# ````````1(zv)`````X
MA0```0````$`````````'(zv)`]``$````%````4D4Z( `````#``TT_3<``$T7
`
end
Paradox
[*] Marek Soukup <marek(zv)comberg(tec)com> - 04.3.1999 13:54:41
Ahoj,
ne pakovani se samo nedela, nebo alespon v Delphi 3 ne, ale da se
delat bud rucne v DD nebo skrz fce dbiPackTable (viz. BDE32.HLP).
Marek Soukup
"Jezek Petr, Ing. (DELVINA)" wrote:
> Ne. Ale ted jsem zjistil, ze jsem pridal
> na form jeden TTable component.
> Kdyz jsem ji dal pryc a pak znovu
> dal (jako kopii Table1) tak se to najednou
> rozbehlo.
>
> Mam jeste jeden dotaz. Mam tabulku,
> kde vzdy vymazu dost radku a pak tam
> insertuju jine.
> Mel bych pouzit neco na packovani,
> nebo se to dela samo
>
> +-------------------------------+
> | Ing. Petr Jezek |
> | Delvina, s.r.o |
> | 010 01 Zilina |
> + - - - - - - - - - - - - - - - +
> | tel: +421 (89) 624 344 |
> | fax: +421 (89) 621 018 |
> | email: petr(zv)sevis.sk |
> | web: www.delvina.sk |
> +-------------------------------+
>
> > -----Original Message-----
> > From: Tomas Bradle [mailto:tomas(zv)cobra(tec)cz]
> > Sent: Thursday, March 04, 1999 11:18 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Paradox
> >
> >
> > Cau,
> >
> > a neupgradoval jsi Delphi nebo BDE?
> >
> > Tomas
> > tomas(zv)cobra(tec)cz
> >
> >
> > -----P=F9vodn=ED zpr=E1va-----
> > Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> > Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> > Datum: 4. b=F8ezna 1999 7:55
> > P=F8edm=ECt: Paradox
> >
> >
> > >Mam aplikaci, ktera pristupuje k tabilkam v Paradoxu.
> > >Do ted to bezelo bez problemu a svizne.
> > >Ale od dnes to bezi strasne pomalu.
> > >V cem muze byt problem?
> > >Zkousel jsem vytvorit i indexy nanovo, ale
> > >nic se nezmenilo.
> > >
> > >
> > >+-------------------------------+
> > >| Ing. Petr Jezek |
> > >| Delvina, s.r.o |
> > >| 010 01 Zilina |
> > >+ - - - - - - - - - - - - - - - +
> > >| tel: +421 (89) 624 344 |
> > >| fax: +421 (89) 621 018 |
> > >| email: petr(zv)sevis.sk |
> > >| web: www.delvina.sk |
> > >+-------------------------------+
> >RichEdit x Page Break x Tisk
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 4.3.1999 13:57:50 -0800
Ta komponenta "Word" se vali prakticky na kazdem pocitaci, kde jsou
Windows...;-)
Ale vazne: RichEdit odstrankovat neumi, protoze neumi interpretovat prika=
z
\page.
Jediny, kdo umi interpretovat vsechny RTF prikazy, ktere Microsoft vymysl=
el
a jeste vymysli, je jejich Word. Takze ja v programech generuji sestavy v
RTF formatu a tisknu je pres OLE a Word.
Bohuslav =8Avancara
softprojekt(zv)bosnet(tec)cz
problem ComboBox
[*] Tom� R��i�ka - 4.3.1999 13:59:41
Zkus vlastnost "Style" nastavit na "csDropDownList".
Tomas Ruzicka
----------------------
ruzicka(zv)com-tech(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Lubos <bruce(zv)pobox.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 12:42
P=F8edm=ECt: problem ComboBox
>Caute Delfinci !
>
>Zase mam taky blby problem, ze vas musim otravovat.
>Potrebujem nastavit ComboBox do stavu Read only.
>Bohuzial nema takuto property a neviem si rady.
>Aby som to popisal uplne, tak chcem aby fungoval len
>pri kliknuti mysou a aby sa nedali zadat hodnoty rucne.
>Myslim ze ti musi nejako ist, len neviem prist na to ako.
>
>Vdaka.
>
>/LH
>
>
>
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 4.3.1999 14:05:29
>Co se tyka cached updates, to umi ADO jako takove, neni treba to
>hloupe obchazet.
Jak velkou kontrolu nad tim jak se zmeny aplikuji mam?
(proste je to na urovni Post, UpdateSQL nebo OnUpdateRecord?).
>V kazdem pripade nebude mozne pouzit stavajici TDatabase,
>TQuery a TTable, tato cast by se musela tak jako tak predelat.
>Pouziti komponent tedy bude spise vhodne pro nove aplikace.
Idealnim pripadem jsem myslel nahrada jedna ku jedna zvlaste u TQuery
nejlepe se zachovanim stavajici definice SQL, fieldu.
Nebo staci aby to alespon moc nebolelo...
Proto take ten "tlak" na dedice TDataSetu.
>odvozeno od TDataSet. Obavam se, ze s TDataSet bude nelehke
>se nekterym chybam vyhnout (ale presto mnohe odpadnou samy).
Nikdo neceka, ze to bude bez chyb, ale chybu v BDE proste nelze opravit,
jen obejit (pokud to lze). Tady to mozne je a toho se prave rad zucastnim.>> - umoznuje otevreni vice takovych TMSQuery najednou
>> (nutne connection pro kazdou query?)
>Ted zcela nerozumim - ADO umoznuje zretezit vice selectu
>najednou, napr:
>select * from brambory;
>select * from knedliky
Pod BDE kdyz jsem dal TQuery1.Open a pote TQuery2.Open
tak v okamziku TQuery2.Open to muselo dokoncit TQuery1.
Proste aby slo otevrit vice "nezavislych connection" na server
ktere se navzajem neovlivnuji, ALE!!! pokud delam ApplyUpdates
takovych dvou query tak to musi byt pres jeden connection (nejlepe
nejaky dalsi) kvuli transakci.
>Nebo chces, aby nad jednou tabulkou bylo mozne otevrit vice
>samostatnych Query?
O tom jsem psal v souvislosti s automatickym promitanim zmen
z jedne Query do druhe (proste aby to presne vedelo odkud ktera data jsou).
Ale to neni treba umet hned (a mozna je to uplna blbost).
>> - neni nikdy live, ale neni read only tj. podporuje CachedUpdates
>> nebo nejakou jinou metodu rizeni transakcniho ukladani zmen
> Myslim ze jinak nez CachedUpdates to nema (az na specialni
> pripady) vyznam.
Ja nepouzivamm nic jineho nez CachedUpdates a ani si nemyslim,
ze pod opravdovym SQL serverem ma smysl neco jineho.
> Vse bych videl jako funkce jedne komponenty. Tak jak jsem to
> nacal, bude mozne zadat paralelne 3 rezimy v jedne komponente
> (Query, Table i StoredProc, Executor je automaticky soucasti
> Query), a pak v nich libovolne prepinat (ovsem vzdy se zavrenim a
> otevrenim, pochopitelne).
To jsem jiz velmi zvedav...
> Myslim, ze tohle bude spise o MSSQL 7, na DBLib muzeme
> smele a radostne zapomenout.
Prechod na MSSQL7 je samozrejmosti...
Rob
problem ComboBox
[*] Lubos <bruce(zv)pobox.sk> - 04.3.1999 14:05:07
> Ahoj,
> metoda Style na scDropDownList
ANO !
to je ono !
vdaka.
/LH
Find
[*] Radek KALA <DELPHI(zv)betacontrol(tec)cz> - 4.3.1999 14:09:52
Mozna napsat Table.Locate('Jmeno',Edit.Text,[loPartialKey]);
Date sent: Thu, 4 Mar 1999 12:00:07 +0100 (MET)
From: Ivan Vavra <vavra(zv)fzu(tec)cz>
To: delphi-l(zv)fwd(tec)cz
Copies to: Vavra Ivan <vavra(zv)fzu(tec)cz>
Subject: Find
Send reply to: delphi-l(zv)fwd(tec)cz
>
> Zdravim vsechny,
> prave jsem se prihlasil do konference a v Delphi programuji opravdu
> 'rekreacne'. Omlouvam se tedy za trivialni problem:
>
> Vytvoril jsem jednoduchou databazovou aplikaci (v D2), pomoci komponent:
> Table, DataSource, Grid a DBNavigator, vse je OK. Nyni bych potreboval
> aby po zapsani napr. 'NOV' do napr. Edit a poklepnuti na Button se sipka
> vlevo na Gridu, ukazujici aktualni Record posunula napr. na 'NOVAK'.
>
> Zkousel jsem z Helpu jednoduche hledani Stringu napr. kombinaci Edit,
> Button, a FindDialog, coz mi chodilo, ale jak to aplikovat na databazi
> nevim.
> Dekuji za rady
>
> Ivan Vavra
>
> ********************************************************
> ******** SAVT - Center for Automation and Computing ****
> ******* Institute of Physics in Praque *****
> ***** Academy of Sciences of Czech Republic ******
> **** e-mail: vavra(zv)fzu(tec)cz HomePage: www.fzu(tec)cz/~vavra
> *** Day Phone Number: +420-2-243 111 37 ********
> *******************************************************
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4555 1269
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
MDI Aplikace
[*] Radek KALA <DELPHI(zv)betacontrol(tec)cz> - 4.3.1999 14:09:52
Hi,
Potreboval bych poradit, zda nahodou nekdo nevite jak na pracovni
plochu hlavniho okna MDI aplikace nakreslit doprostred nejaky
obrazek.
Zkousel jsem nastavit Bruch, ale to nefunguje u MDI,
potom jsem zkousel kreslit normalne pomoci canvas.moveto .... a
to u MDI taky nefunguje
No a nakonec jsem to vyresil tak, ze jsem tam placnul panel coz
bylo zdanlive v poradku, ale ten panel byl jakoby "stayOnTop" a
vsechny MDIChild okna byly pod nim.
Prosim poradte, pokud to teda vlastne jde.
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4555 1269
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Sipky, TButton a TImage
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 4.3.1999 14:23:46 met-1
> na Butonech nastav TabStop:=false
>
> > Mel bych jeden zacatecnicky dotaz:
> > Na formulari mam nekolik instanci komponenty TButton a instanci
> > komponenty TImage. Chtel bych, aby se pri stisku klavesy sipka
> > (prava/leva, event. se Shiftem) provedla nejaka operace v tom
> > TImage. Nevim ale jak na to.
> > Do vlastnosti formulare jsem si dal KeyPreview := true s tim, ze
> > budu odchytavat udalost OnKeyPress. Jenze kdyz stisknu sipky, tak se
> > pohybuju po tech buttonech.
Tohle asi nebude to prave orechove. Odzkousel jsem to, ale vysledek
byl ten, ze na buttony jsem se nedostal klavesou Tabelator. Je sice
fakt, ze sipky na nich taky nefungovaly, ale kdyz jsem kliknul mysi
na nejaky button, tak sipky zase zacaly chodit, zatimco Tab zustaval
porad "hluchy". Coz je presne opacny pripad, nez potrebuji.
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+
Razeni v TTable a TQuery
[*] Tom� R��i�ka - 4.3.1999 14:57:28
Ahoj machri !
Mel bych jeden dotaz. Pouzivam TTable (Paradox), ktera je zobrazena v Gridu. Polozky jdou radit tak, ze jednoduse nastavim takovy index, podle ktereho chci radit. Vyhledavam pomoci TQuery a vysledek nechavam zobrazit v tomtez gridu. Problem je v tom, ze vysledek hledani neni nijak serazen, coz bych ovsem potreboval. Nevi nekdo, jak toho docilit ? Tzn. jak radit ve vysledku TQuery nebo jak docilit toho, aby TQuery plivala vysledky serazene ?
Diky za kazdy podnet
Tomas
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
TTable a indexy
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 4.3.1999 14:59:29
Petr
p.sadovsky(zv)atlas(tec)cz
-----P=F9vodn=ED zpr=E1va-----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 7:58
P=F8edm=ECt: RE: TTable a indexy
>Ahoj,
>
>v databazich nejsem prilis vzdelany, ale tenhle problem jsem resil.
>Posilam funkci, kterou jsem pouzival na likvidaci indexu a jeho nove
>vytvoreni:
>
>function TCreateDbTable.CreateIndex(QTable:TQuery;
>TableName:string):integer;
Diky moc, chodi to bezvadne.
Mohl bys mi jeste rict,prosim te, kde jsi zjistil, ze udaj o indexu je na=
28
bytu a nevis, kam uklada jmeno toho index. souboru(protoze on zarve ze ne=
ma
"soubor.mdx" a to se do jednoho bytu nevleze, takze predpokladam, ze timt=
o
se rekne tabulce, aby index nevyzadovala, ale kde ma ulozeny nazev soubor=
u
mrcha jedna?)?
Petr
p.sadovsky(zv)atlas(tec)cz
Find
[*] Ivan Vavra <vavra(zv)fzu(tec)cz> - 4.3.1999 15:20:41
Marku diky za pomoc!
na vyhledani jsem pouzil Edit pro zapis stringu a Button "Hledej", Field
je CALL:
procedure TForm1.Button1Click(Sender: TObject);
var
Find1: string;
begin
Find1 := Form1.Edit1.Text;
with Table1 do
begin
SetKey;
FieldByName('CALL').AsString := Find1;
GotoNearest;
end;
end;
Funguje to!
On Thu, 4 Mar 1999, Marek Soukup wrote:
> Ahoj,
> pri vyhledavani v tabulce mas dve moznosti
> 1. vytvoris v tabulce index (nejlepe v DD)
> Table.SetKey;
> Table.FieldByName ('Field').Value:= NejakejHledanejString;
> Table.GotoNeraest; nebo
> Table.GotoKey;
> Ivan Vavra wrote:
> > Vytvoril jsem jednoduchou databazovou aplikaci (v D2), pomoci komponent:
> > Table, DataSource, Grid a DBNavigator, vse je OK. Nyni bych potreboval
> > aby po zapsani napr. 'NOV' do napr. Edit a poklepnuti na Button se sipka
> > vlevo na Gridu, ukazujici aktualni Record posunula napr. na 'NOVAK'.
Ivan Vavra
********************************************************
******** SAVT - Center for Automation and Computing ****
******* Institute of Physics in Praque *****
***** Academy of Sciences of Czech Republic ******
**** e-mail: vavra(zv)fzu(tec)cz HomePage: www.fzu(tec)cz/~vavra
*** Day Phone Number: +420-2-243 111 37 ********
*******************************************************Razeni v TTable a TQuery
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.3.1999 15:31:06
Puvodni zprava, kterou napsal Tom=E1=B9 R=F9=BEi=E8ka dne 4 Mar 99,:
> Mel bych jeden dotaz. Pouzivam TTable (Paradox), ktera je zobrazena v =3D
> Gridu. Polozky jdou radit tak, ze jednoduse nastavim takovy index, podl=
e =3D
> ktereho chci radit. Vyhledavam pomoci TQuery a vysledek nechavam =3D
> zobrazit v tomtez gridu. Problem je v tom, ze vysledek hledani neni =3D
> nijak serazen, coz bych ovsem potreboval. Nevi nekdo, jak toho docilit =
? =3D
> Tzn. jak radit ve vysledku TQuery nebo jak docilit toho, aby TQuery =3D
> plivala vysledky serazene ?
No musis do toho SQL dotazu napsat take ORDER BY PRIJMENI, JMENO...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D Petr Zahradnik - Computer Laboratory =3D=3D=3D
=3D=3D=3D Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 =3D=3D=3D
=3D=3D=3D telefon: 047-5500610, telefon/fax: 047-5501627 =3D=3D=3D
=3D=3D=3D mobilni telefon GSM (hotline): 0602-409601 =3D=3D=3D
=3D=3D=3D http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz =3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ICQ: 21215917, PGP vitano
Razeni v TTable a TQuery
[*] Marek Soukup <marek(zv)comberg(tec)com> - 04.3.1999 15:37:39
Ahoj,
zkus do SQL toho TQuery pridat nakonec "order by" a polozku podle ktery
to chces setridit.
Marek Soukup
Tom� R��i�ka wrote:
> Ahoj machri ! Mel bych jeden dotaz. Pouzivam TTable (Paradox), ktera
> je zobrazena v Gridu. Polozky jdou radit tak, ze jednoduse nastavim
> takovy index, podle ktereho chci radit. Vyhledavam pomoci TQuery a
> vysledek nechavam zobrazit v tomtez gridu. Problem je v tom, ze
> vysledek hledani neni nijak serazen, coz bych ovsem potreboval. Nevi
> nekdo, jak toho docilit ? Tzn. jak radit ve vysledku TQuery nebo jak
> docilit toho, aby TQuery plivala vysledky serazene ? Diky za kazdy
> podnet Tomas------------------------------------------------------
> ruzicka(zv)com-tech(tec)cz
Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 4.3.1999 15:50:36
Cau,
trochu jsem zamichal poradim, tak tedy k jednotlivym bodum:
-----P=F9vodn=ED zpr=E1va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. b=F8ezna 1999 12:59
P=F8edm=ECt: Re: Dataset - Pro a proti (Was:Re: MS SQL 7 + ulozene proced=
ury)>Take nemam moc casu, proto bych rad, kdyby se do tohoto
>projektu zapojilo vice lidi. Jinymi slovy, vcera bylo pozde.
>Ale presvedcili jste me, udelam to tedy tak, ze Custom trida pujde
>napasovat i na TDataSet, primy potomek pak bude zamostatna
>komponenta.
Kdyz bude vychazet z TDataset, zapojim se taky, treba i do tvorby.
Zatim tedy s ADO taky experimentuju.>V kazdem pripade nebude mozne pouzit stavajici TDatabase,
>TQuery a TTable, tato cast by se musela tak jako tak predelat.
>Pouziti komponent tedy bude spise vhodne pro nove aplikace.
Jasne, TDatabase a TTable jsou uplne o necem jinem.
>Dival jsem se na OLE DB, pouziti ADO mi vsak pripada vhodnejsi,
>uz kvuli vyrazne lepsi srozumitelnosti.
S tim souhlasim, navic ADO umi i ODBC zdroje. Otazka ovsem je,
jestli OLE DB neni rychlejsi, nezkousel jsi to?
Tomas
tomas(zv)cobra(tec)cz
SPEEDTIP - NetWare, BDE ...
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 4.3.1999 15:50:32
Mam tu nejaky tip...
Ak mate "multiuser" aplikaciu (BDE,Paradox tabulky) - vsetko na sieti Netware, tak je to prave pre vaaas...
-------------------------------------------------------------
Client 32 2.5 works well - stay away from 3.0.1 however. You
also need to do some tweaks to get it working right :
Auto Reconnect Level = 0
Lock Retries = 1
Read Only Compatibility = On
Packet Burst = Off
Cache Writes = Off
File Cache Level = 0
Max Cache Size = 2048 (assuming a 32meg ram client)
With these settings, I have a Paradox app with 63 hardcore users (doing
2-3k of inserts/edits).
----------------------------------------------------------------------------
Dufam, ze som tym nikomu "neublizil" ;-)
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364