Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Locate: bug or feature?
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 26.5.1998 10:58:36
> Prikaz Locate nepracuje tak, ako ma!
>
> Ak mam tabulku so zlozenym primarnym klucom na poliach ID1 a ID2 a
> tabulka je cez ID1 nalinkovana ako detail tabulka, locate pri
> vyhladavani v ID2 postupuje nespravne. Nakolko zisti, ze ID2 je pole v
> indexe, zacne vyhladavat v indexe, avsak hodnoty v ID2 sa mozu
> opakovat. Vysledok je ten, ze sice najde hodnotu v ID2, ale zrovna mu
> nepadne do mnoziny zaznamov vybraneho detailu, tak sa zatvari, ze
> nenasiel nic.
>
> Priklad:
> ID1* ID2*
> 1 1
> 1 2
> 1 3
> 2 1
> 2 2
> 2 3
>
> Ak je id master tabulky = 2, locate nenajde ziadnu hodnotu z ID2 (vzdy
> najde taku, kt. ID1=1 a ta mu nepadne do vyberu).
>
> Stretli ste sa s tymto? Vie niekto ako to obist - samozrejme, okrem
> sposobu zahrnutia kluca ID1 do vyhladavania. Nad neindexovymi
> polozkami vyhladava locate spravne - najde ich priamo vo vybere. Da sa
> locateu vnutit, aby nepouzil index?
>
Locate jsem pouzival casto, ale zjistil jsem ze je strasne
pomaly. Dokonce pro TQuery.Locate je primo strasne pomaly, ale to neni
dotaz.
Locate('id1;id2', VarArrayOf([value1, value2]), [])
mi funguje zcela normalne.
V VCL (dbtables.pas) je chyba a to v pripade, kdyz pouzivam
pouze jednoduchy index je v metode LocateRecord
if FieldCount = 1 then
TField(Fields.First).Value := KeyValues
else
for I := 0 to FieldCount - 1 do
TField(Fields[I]).Value := KeyValues[I];
a ma byt
if FieldCount = 1 then
TField(Fields.First).Value := KeyValues[0]
else
for I := 0 to FieldCount - 1 do
TField(Fields[I]).Value := KeyValues[I];
Je to logicky a hlavne to funguje.
J.Jahoda
> Get your FREE, private e-mail
> account at http://www.mailcity.com
TQuery & RequestLive
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 26.5.1998 11:11:33
> Jestlize pouziji v SQL dotazu klauzuli ORDER BY tak se nastavi
> vlastnost
> RequestLive na FALSE. Jde nejak donutit TQuery, aby mel RequestLive na
> TRUE
> a abych mohl pouzit klauzuli ORDER BY ? Zkusil jsem vytvorit
> sekundarni
> index pro polozku uvedenou v ORDER BY, ale taky to nefunguje. Pred
> casem
> jsem tu nekde cetl, ze lze donutit nejakym SQL prikazem, aby pouzival
> vytvoreny index, ale uz jsem to zpetne nenasel, nevi nekdo co je to za
> prikaz ?
>
Ikdyz ho donutite pouzivat index, nebude vam fungovat request
live. Je to z toho duvodu, ze nesmi obsahovat klazule ORDER BY, GROUP
BY, atd.
V podstate jednoduse receno smi obsahovat pouze to co je
pripustne v prikazu UPDATE to je pokud vim pouze WHERE <expresion>
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
> Diky Vita
TreeView a databaze
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 26.5.1998 11:19:45
Zdravim,
nemate nekdo priklad na zobrazeni dat z databaze v TTreeView a
TListView?
Dekuji.
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
> NW vs NT (bylo:Databazy a aplikacie)
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 26.5.1998 11:26:48
> Ty se fakt prestehuj do vestirny, nebo k Billovi.....
>
> A Fronek rekl: ......Vidim okno, jehoz slava hvezd se dotyka.......
>
Zase jeden NW-lista. U nas ve firme mame 2x NetWare 4.1 a bezi
bez problemu, ale slouzi pouze k ukladani dat k nicemu jinemu. Jako file
server je spickovy a neni duvod zatim nic menit. Dale mame NT servery,
kde provozuje vse ostatni, na nich jsou BackOfficy a Jedinou vyhradu mam
ke zroutovi Exchange, ktery sebere veskerou pamet kterou vidi (i tu ve
sklade). Pouzivame tady SQL databaze pro ukladani dat o lesich,
vlastnicich a tezbach atd. a jinam nez na SQL server bezici pod NT bych
data neukladal.
Takze si myslim, ze zatim ma cenu pouzivat oboji, ale NW ma do
budoucna odzvoneno. Co se tyce kvality a stability tak staci az bude NT
stabilni jako napr. Linux ci Solaris, ale to bude ve verzi 6.0 ci 7.0,
kdo vi.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
Re[4]: parser e-mail adres
[*] David Hrb�� - 26.5.1998 11:45:13
Jedno z reseni viz: http://www.alpine.net/~robert/tips/geturl.html
David Hrbac
-----P�vodn� zpr�va-----
Od: Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 25. kv�tna 1998 19:32
P�edm�t: Re[4]: parser e-mail adres
>Je jasny, ze to byl jenom navrh. Clovek by musel jit znak po znaku a
>kontrolovat zda je dle normy povolen ci neni. Ale to by snad uz nemel
>byt zas takovy problem....
>
>No a kdyz tak si clovek udela LL gramatiku a dle toho pak udelat
>automat. Nic tezsiho. :-))) (ale to trochu zabere casu )
>
>>> Podle mne je to jednoduchy...
>>> pomoci POS si v tom stringu najdi (zv) (kazda mail adresa ho ma, krome
>>> adres na lokalni siti). No a pak by nemel byt problem prohledat string
>>> jak do leva tak do prava, dokud nenarazi na space (Chr(32)). No a tim
>>> ziskas zacatek a konec mail adresy a pak to jenom pomoci fce Copy
>>> vyberes ze stringu.
>PZ> Tak jednoduchy to bohuzel neni. Ty mas treba konkretne adresu:
>PZ> From: Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz>
>
>PZ> A na tom uz by ten tvuj postup shorel. A to uz jsem videl adresy
uzavrene
>PZ> i v () a podobne. Jako jedinou moznost vidim od (zv) hledat na obe strany
>PZ> prvni znak, ktery nepatri do adresy (tj. neni povolen).
>
>PZ> S pozdravem
>PZ> Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
>PZ> mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
>PZ> ----------------------------
>PZ> PGP podporovano a vitano
>
>Printer.Abort
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.5.1998 11:46:34
Ahoj,
Potreboval jsem napsat jednoduchy radkovy tisk pomoci AssignPrn a Writeln.
Problem nastava v okamziku kdyz chci tisk prerusit, volani Printer.Abort
zpusobi vyjimku a aplikace skonci. Nakonec jsem dospel k jednoduchemu
priladu ktery taktez nefunguje:
Printer.BeginDoc;
if Printer.Printing then Printer.Abort;
Printer.EndDoc;
Nevim co je v tom spatne (krome toho ze takovyto program je nanic :-),
ale nemelo by to spadnout s chybou. Pouzivam Delphi 2.01, tiskarna Epson
FX 1050.
Dekuji
Petr Vones, amatersky programator
NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 26.5.1998 12:01:41
Taky bych Ti mohl doporucit, aby ses prestehoval, ale nechci byt neslusny.
Pred nekolika lety (v obdobi Win 3.0), kdy zdaleko nebylo jasne, zda se tak bombasticky rozsiri, jsem "vestil" presne tohle o tom okne. A vidis sam, jak to vypada dnes. V dobe Win NT 3.1 jsem prohlasil to same o serveru, a uvidime.....
Fakt je ze Novell NetWare rad nemam. Ne proto, ze neni od MS (to C++Builder taky neni), ale protoze zaspal svou dobu. Tak to je!
Uzivej si svuj NW ve zdravi, a kez Ti nikdy nespadne, budu se za Tebe modlit.
fronek(zv)fic(tec)cz
-----Original Message-----
From: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
Sent: Tuesday, May 26, 1998 8:51 AM
To: delphi(zv)pinknet(tec)cz
Subject: Re: NW vs NT (bylo:Databazy a aplikacie)
Ty se fakt prestehuj do vestirny, nebo k Billovi.....
A Fronek rekl: ......Vidim okno, jehoz slava hvezd se dotyka.......
AR
----------
Od: Martin Fronek
Komu: DELPHI Distribution List
P�edm�t: Re: NW vs NT (bylo:Databazy a aplikacie)
Datum: 26. kv�ten 1998 0:07
Jake karty? Hra uz skoncila, nez se u Novelu kdosi prospal....
Pakovaci komponenta
[*] Rene Wagner <rwagner(zv)opv(tec)czn(tec)cz> - 26.5.1998 12:21:57
>Zdravim,
>
>nemate nekdo free komponentu na pakovani (nejlepe kompatibilni se ZIP)?
>Dekuji.
>
Zkuste na adrese
http://www-afsc.saia.af.mil/~englere/
nebo
http://www.cdrom.com/pub/infozip
Zdravim
--------------------------------
Rene Wagner
email: rwagner(zv)opv(tec)czn(tec)cz
BEZ PENEZ - katalog freeware
www.mujweb(tec)cz/www/bez_penez
email: rxw(zv)post(tec)cz
--------------------------------
Pakovaci komponenta
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 26.5.1998 13:11:09
Hm, co takhle original DSP homepage http://sunsite.icm.edu.pl/delphi/
Ale stejne - na http://www.torry.ru je uz verze 1.40 ...
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
>> Ahoj
>> na adrese:
>> http://sunsite.mff.cuni(tec)cz/delphi/index.htm
>> najdes soubor DELZIP13.EXE a to je ono.
>>
>> Standa.
>>
>
>Bohuzel na tuto stranku neni volny pristup!
>Ahoj Pavel
StringGrid & Tisk
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 26.5.1998 13:47:08
[P��loha v souboru: vcard.vcf]
Ahoj,
nevite negdo jak elegantne vytisknout StringGrid ? Nejlepe nejak ho
prenest do QuickReportu.
Diky, Diky, Diky.
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Pakovaci komponenta
[*] RADIK(zv)p15.monet(tec)cz - 26.5.1998 13:50:00
Adresa http://sunsite.mff.cuni(tec)cz/delphi/index.htm je odkaz na cesky
mirror
Delphi Super Page...., v posledni dobe nejaky mrtvy (nevite o tom nekdo
neco?),
takze staci zvolit jiny, me pripada krom polskeho originalu jako
pouzitelnejsi
rakousky mirror (subjektivni pocit pred dial up).....
Ales
----------
Od: Simicek Pavel
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Pakovaci komponenta
Datum: 26. kv�ten 1998 11:10
> From: "Stanislav Cerny" <s.cerny(zv)mod(tec)cz>
> To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
> Subject: Re: Pakovaci komponenta
> Date: Mon, 25 May 1998 16:15:39 +0200
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Ahoj
> na adrese:
> http://sunsite.mff.cuni(tec)cz/delphi/index.htm
> najdes soubor DELZIP13.EXE a to je ono.
>
> Standa.
>
Bohuzel na tuto stranku neni volny pristup!
Ahoj Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Printer.Abort
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.5.1998 14:05:51
Petr Vones wrote:
>
> Ahoj,
>
> Potreboval jsem napsat jednoduchy radkovy tisk pomoci AssignPrn a Writeln.
> Problem nastava v okamziku kdyz chci tisk prerusit, volani Printer.Abort
> zpusobi vyjimku a aplikace skonci. Nakonec jsem dospel k jednoduchemu
> priladu ktery taktez nefunguje:
>
> Printer.BeginDoc;
> if Printer.Printing then Printer.Abort;
> Printer.EndDoc;
>
> Nevim co je v tom spatne (krome toho ze takovyto program je nanic :-),
> ale nemelo by to spadnout s chybou. Pouzivam Delphi 2.01, tiskarna Epson
> FX 1050.
Odpovim si sam, jsem blb. Printer.Abort lze totiz pouzit az v dobe kdy
tiskarna tiskne, ale vlastni tisk si musim prerusit sam. Petr Vones, amatersky programator
Kniha k Delphi 3
[*] Martin Koran <komar(zv)oasanet(tec)cz> - 26.5.1998 14:14:46
HI,
tech knih je tam vic(dokonce i k Delphi 4 !?), pokud by nekdo mel zajem o
seznam,
(asi 100 kb), ozvete se.====================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
mail: komar(zv)oasanet(tec)cz
-----Original Message-----
From: Stepan Cerny <chaosz(zv)geocities.com>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Monday, May 25, 1998 8:48 AM
Subject: Re: Fw: Kniha k Delphi 3
>Hi All,
>
>o vikendu byl v P'aze docela slusnej veletrh knih.
>Narazil jsem tam na knihu-macatici o Delphi3 (podle mne docela dobrou, ...
to
>je ale jenom muj skromny nazor), byla v anglictine a stala cca 1500-1600
>(clovek na stanku, mi to nebyl schopen rici presne, protoze cenik mel v
poci
>-W95, a ten mu nesel nastartovat :-) ... ).
>
>Distribuuje ji sem firma:
>ILC Czechoslovakia Ltd
>Kpt. Jarose 25
>602 00 Brno
>T: 05/45215669
>F: 05/43220172
>
>Prodava se napr. v:
>Prospektrum (nebo tak nejak)
>-M- Budejovicka, v budove toho velkeho obchodaku
>Praha 4
>
>Howg.
>
>Stepan Cerny
>chaosz(zv)geocities.com
Inverzni vyber pomoci SQL
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 26.5.1998 14:21:22
Zdravim vsechny,
mam nasledujici dotaz: mam 2 tabulky a potrebuji vybrat zaznamy z tabulky 1,
ktere nejsou obsazeny v tabulce 2. Lze to ucinit pomoci SQL dotazu (nad
tabulkami paradoxu)? Zatim nevim jakl. Samozrejme se to da resit
jinak. Me by zajimalo, zda to lze nejak jednoduse ucinit pomoci SQL.
Za pripadne namety predem dekuji.
Honza Naiser.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
ing. Jan Naiser, Karle1, 569 58 KARLE
E-mail: tua(zv)ltm(tec)cz
Tel.: 0603519443, 0464634124
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
CPU speed
[*] Jirka Fejfar in CRLY <fejfarj(zv)login(tec)cz> - 26.5.1998 14:34:09
Ten priklad by me zajimal,
diky, JF.Analyzator textu
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 26.5.1998 15:09:02
> From: "+.ot>]ee^nC" <hrbac.david(zv)usa.net>
> To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
> Subject: Re: Analyzator textu
> Date: Mon, 25 May 1998 10:59:00 +0200
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Panove, mne se tento dotaz zda jako z jine planety. Sorry, ale fakt to tak
> citim. Co se tyce analyzy cestiny, mam rozjetych nekolik projektu, a muzu
> rict, ze to bude trvat jeste velice dlouho, nez budou nejake rozumne
> vysledky. Stavajici vysledky jsou povzbudive, ale to je tak asi vsechno.
> David Hrbac
>
> -----Pavodni zprava-----
> Od: Zdeno Jasek <zdeno.delphi(zv)mailcity.com>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 25. kv+tna 1998 9:20
> P^2edm+t: Re: Analyzator textu
>
>
> >Najdi si konferenciu o expertnych systemoch...
> >
> >Tento user-friendly pristup je sice sympaticky, ale trochu to prehanas.
> Nebolo by jednoduchsie vytvorit masku, ktora umozni uzivatelovi naklikat
> podmienky (teda skor nejaky SQL builder)? Logicka analyza vety je robota na
> dlhy cas - pochybujem, ze na to niekto urobi komponent a ak ano, bude stat
> aspon 1000 dolarov (ja by som pod takuto sumu nesiel...).
> >
> >>Hi,
> >>
> >>na jednotlivy slova to prece neni problem, potrebuji z toho vytvorit
> >>dotaz do databaze: SELECT * FROM "nakoupeno" WHERE co=hrebiky AND datum=
> >>minuly mesic... jen pro ilustraci. fronek(zv)fic(tec)cz
> >>
> >>Hubert wrote:
> >>>
> >>> Jak presne myslis tu analyzu toho textu?
> >>> Rozklad na jednotlivy slova ci neco vic?
> >>>
> >>> MF> Hi,
> >>>
> >>> MF> nemate nekdo komponentu, nebo neco, co by umelo analyzovat text
> (cesky)?
> >>> MF> Jde mi o rozklad bezne otazky uzivatele, napr.:
> >>>
> >>> MF> Kolik bylo nakoupeno hrebiku minuly mesic?
> >>>
> >>> MF> Ja vim, je to tema na masli, ale treba s tim uz nekdo neco zkousel.
> >>>
> >>> MF> fronek(zv)fic(tec)cz
> >>
> >
> >
> >Get your FREE, private e-mail
> >account at http://www.mailcity.com
>
>
Do toho bych se rozhodne nepoustel, protoze uzivatele jsou vynalezavi
a objevi mnoho slov, ktere vas system nerozpozna. A budou na to jen
nadavat. Kdyz to nepouzijete, nenapadne je, ze by neco takoveho bylo
mozne.
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz
Zaporny TDate
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.5.1998 15:55:17
Lustyk.Ladislav/4110/EDU(zv)edu1 wrote:
> prosim o radu. Lze nejakym zpusobem nadefinovat
> datovy typ, neco jako TDateTime tak, aby umel
> zaporne roky a soucasne mohl byt stejne jako TDateTime
> editovan a zobrazovan v Paradoxove tabulce pres TDBGrid ?
Prevest na longint a pri zobrazovani dekodovat. Editaci delat potom
ve zvlastnim okne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Re[2]: OLE
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 26.5.1998 15:55:50
Hello Vaclav,
>> On to poslal v dobrem kodovani, ale ten Vas mailer to neumi.
>>
>> On poslal
>> Content-Type: text/plain;
>> charset="iso-8859-2"
>>
>> J.Jahoda
>>
>> P.S. Ikyz spousta lidi nadava na Windows, Micorosoft, Exchange a
>> Outlook, tak musim rict ze presne tyto stroje tohle dokazou bez problemu
>> zpracovat.
>>
>> > D.
>> >
VS> Comunicator to umi taky, ale presto jsem pro postu bez hacku a carek.
VS> Vaclav Sazima.
He he he :-)
Zkuste si to precist taky nekdy pod NT, kde neni nainstalovana
cestina.
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Jeste jednou DCOM
[*] �ern� Roman - 26.5.1998 16:35:55
Precetl jsem vse co bylo napsano v teto diskusi na tema DCOM.
Poznatky jsem vstrebal, zaridil se podle nich ale stale mi to nechodi.
Mam lokalni sit NT na serveru nainstalovanou sluzbu RPC, ale pokud se chci
spojit se serverovou aplikaci tak mi remonteserver nahlasi ze nenasel RPC.
To se stane poze pokud vyplnim prop. ComputerName, kdyz tuto prop.
necham nevyplnenou spusti se mi serverovska aplikace ze serveru na mem
lokalnim PC.
Za rady Vam budu vdecen DEKUJI seriove cislo windows
[*] Jan Rovner <rovner4(zv)hermes.zcu(tec)cz> - 26.5.1998 16:37:24
>Cti z registru. Napriklad veskere veci ohledne registrace Windows najdes v
>HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion.
>Tam uz jsou polozky jako ProductID, ProduktName, RegistredOrganization,
>RegistredOwner, ...
Tohle pravdepodobne nebude fungovat vzdy (vim, ze to plati pro W95).
Napriklad sedim u masiny s NT 4.0 a tday nic takoveho v registru neni
(zkousel jsem prohledat - u W95 lze bez problemu seriove cislo najit).
Vypis inkriminovane vetve (.... znaci bin.hodnoty):
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
"DevicePath"=....
"MediaPathUnexpanded"=....
"ProgramFilesDir"="C:\\Program Files"
"CommonFilesDir"="C:\\Program Files\\Common Files"
"MediaPath"="C:\\WINNT\\Media"
"ProgramFilesPath"=....
"SM_AccessoriesName"="Accessories"
"PF_AccessoriesName"="Accessories"
Vic tam bohuzel neni.
Jan Rovner
Jak v multiuser prostredi zamykat Paradoxni tabulk
[*] Ren� Ponya <rponya(zv)email(tec)cz> - 26.5.1998 17:16:51
[P��loha v souboru: vcard.vcf]
[P��loha v souboru: vcard.vcf]
Bohuslav Svancara wrote:
> At je to ten nebo ten, hlavni problem je ale jiny: Pokud nejaky jiny
> uzivatel v siti edituje nejakou vetu tabulky, nepodari se udelat LockTable
> (ani ltReadLock ani ltWriteLock). BDE zahlasi, ze uzivatel ten a ten ma
> tabulku zamknutou.
> Takze tabulka nejde pred vypoctem zamknout a vypocet spustit, dokud treba
> jen jediny uzivatel v siti tabulku edituje. Coz znamena, ze pokud je
> uzivatelu dostatecny pocet, nemusi to jit nikdy. Nebo to znamena pockat, az
> se ten clovek z vedlejsi zamcene kancelare, ktery drzi tabulku v editacnim
> modu, vrati z obeda.
>
Hmm, priznam sa ze som v rozpakoch. Ja robim aplikacie tak, ze editaciu
tabulky
robim zasadne v druhom formulari a najlepsie ako prevedene hodnoty do
poloziek
TEdit.
Kedze si z tabulky iba cital, nie je zamknuta v rezime editacie. Po
editacii
poli v tom druhom
formulari mozes dat trebars na tlacitko TButton nejaku takuto akciu:
try
MyTable.Edit;
MyTableField1.AsString:=mojstring;
MyTable.Post;
except
MessageBox('Udaje sa nedaju zapisat, pretoze zrovna prebieha vypocet!
Pockajte chvilu prosim...', mb_OK);
end;
Je to z hlavy, takze tam mozu byt chyby, ale princip si hadam pochopil a
to, ze
needituj tabulku priamo v TDBGrid.
Daj do DBGrid flag ReadOnly.
BTree-Filer poznam a tam to predsa robia zrovna tak, nie? Takze ak to
vies tak
urobit v DOSe, tak to tak urob aj
v Delphi.
cau, Baca.
Ceska chybova hlaseni do Delphi 2
[*] Ren� Ponya <rponya(zv)email(tec)cz> - 26.5.1998 17:17:27
[P��loha v souboru: vcard.vcf]
[P��loha v souboru: vcard.vcf]
Martin Fronek wrote:
> Hi,
>
> na to staci Resource Workshop, ten umi otevrit *.res
>
Pokial myslis ten z BP 7.0 tak ten ale nevie otvorit 32bitove resource.
:-(
cau, Baca.
Pakovaci komponenta
[*] Ren� Ponya <rponya(zv)email(tec)cz> - 26.5.1998 17:18:14
Krayzel Libor wrote:
> nemate nekdo free komponentu na pakovani (nejlepe kompatibilni se ZIP)?
Skus tuto: www.cdrom.com/pub/delphi/ Mala by tam byt nejaka komponenta
na kompatibilny zip s pkzipom. Bolo to tusim aj na FreeSoft CD z 2/98,
aspon myslim. ;)
> Dekuji.
Neni zaco.
cau, Baca.
Bublinova napoveda
[*] Ren� Ponya <rponya(zv)email(tec)cz> - 26.5.1998 17:25:17
[P��loha v souboru: vcard.vcf]
Ahoj vsetci,
ma niekto (viete kde to lezi) ako urobit cosi na ten sposob napovedy,
ako je robena vo SWAGu?
Diky za kazdu radu (adresu a pod. ;)
S pozdravom Baca.TQuery & RequestLive
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 26.5.1998 18:07:19
SQL dotaz s klauzuli ORDER BY vraci live result set, pokud sloupci
uvedenemu v ORDER BY odpovida index (i sekundarni). Takto to mame
vyzkousene na Pdox tabulkach a funguje to. Nevim, zda to funguje, kdyz je
tech sloupcu v ORDER BY vic, nebo kdyz je jich naopak vic v tom indexu.
Kdyz zobrazujeme tabulky, u kterych si uzivatel muze vybrat libovolne
trideni, delame to tak, ze nejprve vytvorime odpovidajici index (pokud
neexistuje) a pak se teprve provede SQL dotaz s prislusnym ORDER BY.
Marek Prokop
-----Original Message-----
From: Zdeno Jasek [SMTP:zdeno.delphi(zv)mailcity.com]
Sent: Tuesday, May 26, 1998 8:21 AM
To: DELPHI Distribution List
Subject: Re: TQuery & RequestLive
Importance: Low
>Jestlize pouziji v SQL dotazu klauzuli ORDER BY tak se nastavi vlastnost
>RequestLive na FALSE. Jde nejak donutit TQuery, aby mel RequestLive na
TRUE
>a abych mohl pouzit klauzuli ORDER BY ? Zkusil jsem vytvorit sekundarni
>index pro polozku uvedenou v ORDER BY, ale taky to nefunguje. Pred casem
>jsem tu nekde cetl, ze lze donutit nejakym SQL prikazem, aby pouzival
>vytvoreny index, ale uz jsem to zpetne nenasel, nevi nekdo co je to za
>prikaz ?
>
>Diky Vita
>
>
O to vobec nejde. Donutenie vyhladavania podla indexu ma vplyv iba na
rychlost. Klauzula ORDER BY je podla definicie nepripustna pre LIVE -
QUERY, takze smola...
Get your FREE, private e-mail
account at http://www.mailcity.com
TDBGrid
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 26.5.1998 18:18:08
Problem je v tom, ze popsanym postupem nedosahnu toho, aby se to pole v
DbGridu chovalo opravdu jako ComboBox. Ma to 2 zasadni nedostatky:
1. Nemohu udelat lookup field na sebe sama, tj. takovy, ktery by v
comboboxu nad cizim klicem nabizel vsechny hodnoty primarniho klice v
lookup tabulce.
2. Seznam comboboxu v tomto pripade (na rozdil od opravdoveho TComboBox)
neumoznuje zobrazeni vice sloupcu.
Protoze tyto dva nedostatky bohuzel brani temer jakemukoli rozumnemu
vyuziti nize popsaneho postupu, udelali jsme si na to vlastni komponentu.
Pokud nekdo zna skutecne pouzitelne reseni, rad se ho dozvim.
Marek Prokop
-----Original Message-----
From: Dalibor Honus [SMTP:dhonus(zv)logis(tec)cz]
Sent: Tuesday, May 26, 1998 8:23 AM
To: DELPHI Distribution List
Subject: Re: TDBGrid
Importance: Low
Zbysek Hlinka wrote:
>
> Dalibor Honus wrote:
>
> > > > Lookup do jine tabulky, vyber datumu atd.
> > >
> > > To jde uz ve stavajicich, lookup se ale dela z jednotlivych fieldu v
> > > TTable nebo TQuery.
> >
> > Sorry. Spatne jsem se vyjadril. Myslel jsem, aby se jednotlivy prvek
> > choval jako combo, pricemz by si hodnoty bral z tabulky. Pokud se
> > takto chova i standartni, klidne me servete, zaslouzim si.
>
> Tak, tak, tvoje slova na tvou hlavu. :-) Dela se to takto: mejme
> tabulku T1. K ni si vytvorim fieldy ktere potrebuji. Mejme T2, kde
> mame napriklad slopuce JmenoID integer a Jmeno varchar(30). V T1
> mejme nejaky ciselny sloupec (treba zase JmenoID), ktery odkazuje na
> T2.JmenoID. V seznamu fieldu T1 (klick pravym tlacitkem mysi na T1)
> zalozim _novy_ stringovy field, kde provazu T1.JmeniID s T2.JmenoID,
> necham zobrazit T2.Jmeno a jsem hotov.
>Inverzni vyber pomoci SQL
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 26.5.1998 18:36:31
Lze to ucinit takto:
SELECT C1, C2, ..., Cn
FROM T1
WHERE C1 NOT IN (SELECT C1 FROM T2)
Marek Prokop
-----Original Message-----
From: Jan Naiser [SMTP:tua(zv)ltm(tec)cz]
Sent: Tuesday, May 26, 1998 2:21 PM
To: Delphi konference
Subject: Inverzni vyber pomoci SQL
Importance: Low
Zdravim vsechny,
mam nasledujici dotaz: mam 2 tabulky a potrebuji vybrat zaznamy z tabulky 1,
ktere nejsou obsazeny v tabulce 2. Lze to ucinit pomoci SQL dotazu (nad
tabulkami paradoxu)? NW vs NT (bylo:Databazy a aplikacie)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.5.1998 19:15:55
> Nemyslim si, ze by prikazovy rezim zvladal jen odbornik, v tom to neni.
> Graficky rezim _server_ vubec nezpomaluje, zkuste si nekdo zapnout
> sledovani vykonu, pri beznych operacich a bezne zatezi (asi 550
> otevrenych souboru) to v prumeru ukazuje zatizeni procesoru 30%.> Pravda je, ze graficke rozhrani zvladne kdekdo, ale to je jen prostredek
> k vyjadreni neceho uplne jineho.
> Nemyslim si ze se jedna o kompromis, ja takovou bezpecnost vyzaduji.
> Nehodlam sverit serveru NW ani bajt dulezite informace (po te ztrate
> svazku - a ne jen u me, stalo se to i v jednom autoservisu na Kladne, to
> byl mazec!) Naproti tomu, u serveru NT se bat nemusim, tam snad leda ze
> by lehlo zelezo, ale od toho je zalovani, ze.
Nechci byt opravdu neslusny, ale clovece, otevri oci a prober se!
Co to tu placas za nesmysly ??? Ja mam software od Microsoftu rad,
klidne to tu reknu na rovinu, ale jsem presvedcen o tom, ze bezpecnost
serveru s Novellem je radove vyssi nez bezpecnost serveru s Win NT.
A to myslim naprosto vazne a za to se stavim. To neni jen muj nazor,
to jsou proste zkusenosti mnohych. Ja osobne mam radeji take site
na NT serveru, ale co se tyka bezpecnosti a spolehlivosti - Novell
je Novell a hotovo. Pak jsou jeste mnohem lepsi servery... ale o tom
az nekdy priste.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Dos, Paradox a Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.5.1998 20:38:49
Dalibor Honus wrote:
>
> Marek Repisk� wrote:
> >
> > >Jestli to nebude ve spatnem nastaveni BDE u driveru Pdoxu.
> > >Implicitne v Delphi je to verze 4.0. Snad to pomuze.
> >
> > Nazdar!
> > Vdaka za odozvu. Pozeral som sa na to (BDE Administrator)
> > a ja tam mam pre PDOX verziu 3.0. Mam to prepisat na 4.0?
> > Alebo co tam mam nastavit aby to fungovalo?
>
> A nejak zkus zjistit verzi te tabulky.
Mozna by ti pomohl nastroj Table Interrogator od Borlandu, zobrazuje detailni
informace o tabulkach. Najdes jej tady:
http://www.inprise.com/devsupport/bde/utilities.html
Petr Vones, amatersky programator
TDBGrid
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.5.1998 20:58:23
Dalibor Honus wrote:
> > > Sorry. Spatne jsem se vyjadril. Myslel jsem, aby se jednotlivy prvek
> > > choval jako combo, pricemz by si hodnoty bral z tabulky. Pokud se
> > > takto chova i standartni, klidne me servete, zaslouzim si.
>
> Sorry, jsem nejhorsi ze vsech.
Nebrec, ja take spoustu veci neumim, a co ma byt? Kdyz nevim, najdu
si to nebo se zeptam, vsak proto tu ta konference je, ze? :-))
Na depku je pry vynikajici cokolada a horka koupel. :-))))
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
TQuery & RequestLive
[*] �ke��k Jaroslav�������6�����̿ - 26.5.1998 21:16:32
RequestLive ma i dalsi omezeni nem��ete nap�. provad�t operace na
serveru, proto�e tabulka je pak v re�imu ReadOnly.
RequestLive je vlastn� jen takova berli�ka pro omezene mo�nosti editace v
re�imu
SQL dotazu, ktery je jinak ur�en pouze pro zobrazeni dat.
Mate-li vetsi naroky, pak radeji pouzijte klasicky zpusob moci INSERT a
UPDATE
nebo vyuzijte moznost objektu TUpdateSQL a CachedUpdates a RequestLive
ponechte ve vypnutem stavu.
Jaro.
>> Jestlize pouziji v SQL dotazu klauzuli ORDER BY tak se nastavi
>> vlastnost
>> RequestLive na FALSE. Jde nejak donutit TQuery, aby mel RequestLive na
>> TRUE
>> a abych mohl pouzit klauzuli ORDER BY ? Zkusil jsem vytvorit
>> sekundarni
>> index pro polozku uvedenou v ORDER BY, ale taky to nefunguje. Pred
>> casem
>> jsem tu nekde cetl, ze lze donutit nejakym SQL prikazem, aby pouzival
>> vytvoreny index, ale uz jsem to zpetne nenasel, nevi nekdo co je to za
>> prikaz ?
>>
> Ikdyz ho donutite pouzivat index, nebude vam fungovat request
>live. Je to z toho duvodu, ze nesmi obsahovat klazule ORDER BY, GROUP
>BY, atd.
>
> V podstate jednoduse receno smi obsahovat pouze to co je
>pripustne v prikazu UPDATE to je pokud vim pouze WHERE <expresion>
>
>Ing. Jaroslav Jahoda
>Lesprojekt-Sluzby s.r.o.
>Nabrezni 1326
>Brandys nad Labem 250 01
>tel. +420 202 800152, fax. +420 202 800161
>email: jahoda(zv)lesprojekt(tec)cz
>http://www.lesprojekt(tec)cz/
>delphi - http://www.lesprojekt(tec)cz/delphi/
>
>
>> Diky Vita
Inverzni vyber pomoci SQL
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 26.5.1998 21:35:06
Hello Jan,
JN> Zdravim vsechny,
JN> mam nasledujici dotaz: mam 2 tabulky a potrebuji vybrat zaznamy z tabulky 1,
JN> ktere nejsou obsazeny v tabulce 2. Lze to ucinit pomoci SQL dotazu (nad
JN> tabulkami paradoxu)? Zatim nevim jakl. Samozrejme se to da resit
JN> jinak. Me by zajimalo, zda to lze nejak jednoduse ucinit pomoci SQL.
JN> Za pripadne namety predem dekuji.
JN> Honza Naiser.
JN> ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
JN> ing. Jan Naiser, Karle1, 569 58 KARLE
JN> E-mail: tua(zv)ltm(tec)cz
JN> Tel.: 0603519443, 0464634124
JN> ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Ten vyber budes delat dle ceho? Dle nejakeho sloupce a nebo proste
podle vsech.
Pokud to budes delat podle podle urciteho sloupce, tak to je uplne
jednoduchy.
SELECT sloupec
FROM table1
WHERE sloupec NOT IN (SELECT sloupec FROM table2)
no a pokud se nemylim, tak v SQL 92 (a nebo pozdejsi to nevim) je
uvazovano o prikazu pro rozdil mnozin. Ale to tezko pouzijes v
Paradoxu. :-(
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Jmeno uzivatele
[*] Ing. Pavel Hojda <hojda(zv)mmp.plzen-city(tec)cz> - 26.5.1998 22:56:53
Cau,
nevite nekdo, jak poslat serveru MSSQL 6.5 jmeno uzivatele, ktery se pres ODBC pripojil na databazi. Pokud pouziju borlandsky linky, tak to pomoci APPLICATION NAME v BDE dokazu, ale pres ODBC nic takoveho nejde.
Dik Pavel
NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 26.5.1998 23:05:17
Hi,
jestli mas takovyto nazor, pak nechapu, jak si muzes rikat pocitavy
expert. Ale uz dost, dal se na toto tema nehodlam bavit. Ztrata casu.
fronek(zv)fic(tec)cz
Petr Zahradnik wrote:
> Nechci byt opravdu neslusny, ale clovece, otevri oci a prober se!
> Co to tu placas za nesmysly ??? Ja mam software od Microsoftu rad,
> klidne to tu reknu na rovinu, ale jsem presvedcen o tom, ze bezpecnost
> serveru s Novellem je radove vyssi nez bezpecnost serveru s Win NT.
> A to myslim naprosto vazne a za to se stavim. To neni jen muj nazor,
> to jsou proste zkusenosti mnohych. Ja osobne mam radeji take site
> na NT serveru, ale co se tyka bezpecnosti a spolehlivosti - Novell
> je Novell a hotovo. Pak jsou jeste mnohem lepsi servery... ale o tom
> az nekdy priste.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
Ceska chybova hlaseni do Delphi 2
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 26.5.1998 23:09:06
Hi,
ne, myslim ten normalni, od C++.
Ren� Ponya wrote:
>
> Martin Fronek wrote:
>
> > Hi,
> >
> > na to staci Resource Workshop, ten umi otevrit *.res
> >
>
> Pokial myslis ten z BP 7.0 tak ten ale nevie otvorit 32bitove resource.
> :-(
>
> cau, Baca.NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 26.5.1998 23:20:00
Zdravim,
diky, tohle je konecne rozumny nazor, i kdyz to s tou stabilitou tak
spatne neni. Fakt je, ze Exchange je nenazranej na RAM... Ale s tim se
neda nic delat. fronek(zv)fic(tec)cz
Ing. Jahoda Jaroslav wrote:
>
> > Ty se fakt prestehuj do vestirny, nebo k Billovi.....
> >
> > A Fronek rekl: ......Vidim okno, jehoz slava hvezd se dotyka.......
> >
> Zase jeden NW-lista. U nas ve firme mame 2x NetWare 4.1 a bezi
> bez problemu, ale slouzi pouze k ukladani dat k nicemu jinemu. Jako file
> server je spickovy a neni duvod zatim nic menit. Dale mame NT servery,
> kde provozuje vse ostatni, na nich jsou BackOfficy a Jedinou vyhradu mam
> ke zroutovi Exchange, ktery sebere veskerou pamet kterou vidi (i tu ve
> sklade). Pouzivame tady SQL databaze pro ukladani dat o lesich,
> vlastnicich a tezbach atd. a jinam nez na SQL server bezici pod NT bych
> data neukladal.
>
> Takze si myslim, ze zatim ma cenu pouzivat oboji, ale NW ma do
> budoucna odzvoneno. Co se tyce kvality a stability tak staci az bude NT
> stabilni jako napr. Linux ci Solaris, ale to bude ve verzi 6.0 ci 7.0,
> kdo vi.
>NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 26.5.1998 23:26:13
Pavel Zichovsky wrote:
--- cut ----
> > Mozna, ale to je jen otazka blizke budoucnosti, casem zadne takove uz
> > nebudou v pouzivani.
> :))) Kez by to tak bylo... Ale to uz pak stejen nebude ani NT, ale pouze
> NC
---------- jen k tomuto -> NC v podstate skoncilo driv nez zacalo,
hlavni dovod byl usetrit peniza za HW, to dnes nema vyznam....
>
> > > Ostatne uvidime jak do toho promluvi NW 5.0 s protokolem TCPIP
> > > a viceprocesorovou podporou (konecne).
> > > Karty budou znova rozdany.
> > Jake karty? Hra uz skoncila, nez se u Novelu kdosi prospal....
> To zatim neni tak jiste. Kazdy produkt ma svoje misto. NT se hodi jako
> aplikacni server, NW jako souborovy a tiskovy. Jak to bude s NT5 a NW5
> ukaze zase jen cas...
----------- jestli jeste bude nejaky Novell vyrabet NOS. ------
>
> S pozdravem
> Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
> mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
> ----------------------------
> PGP podporovano a vitano
NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 26.5.1998 23:44:16
Hi,
tak to bude tim, ze NW asi umite dobre, o NT toho nejspis moc nevite.
(bez urazky). A taky me nebavi se o tom hadat, ztrata casu.
fronek(zv)fic(tec)cz
Ing. Zdenek Sraier wrote:
>
> Neda mi to, abych se nepripojil k teto flamewar.
>
> Za 6 let, co pracuji s NW, se mi jeste nestalo, ze bych prisel o data
> jinou cestou, nez ze je nekdo smazal (staci nastavit prava).
>
> Naopak NT neustale zlobi, na disku mnohdy vidim soubory, ktere nemohu
> otevrit, smazat, ... i kdyz je prokazatelne nikdo nepouziva.
> (po restartu NT soubor bud neni, nebo jde smazat). O stabilite
> muhu rici jen to, ze u NW neni vyjimkou bezproblemovy provoz
> 6 - 9 mesicu bez restartu, u NT se nam zatim podarilo asi tak 20 dni.Borland database engine
[*] Tibor Stromajer <stromajer(zv)hotmail(tec)com> - 27.5.1998 02:28:45 pdt
Zdravim ...
Vedel by mi niekto povedat kde je mozne ziskat instalacku
Borland database engine v 3.0 ?
Pokial viem, malo by to byt volne siritelne.
Tibor
Stromajer
stromajer(zv)hotmail.com
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
NW vs NT (bylo:Databazy a aplikacie)
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 27.5.1998 06:53:26
> Nechci byt opravdu neslusny, ale clovece, otevri oci a prober se!
> Co to tu placas za nesmysly ??? Ja mam software od Microsoftu rad,
> klidne to tu reknu na rovinu, ale jsem presvedcen o tom, ze bezpecnost
> serveru s Novellem je radove vyssi nez bezpecnost serveru s Win NT.
>
K te bezpecnosti bych jen dodal. Novellove i Microsoftti se
vytahuji, ze jejich server je bezpecny a ze splnuje specifikaci C2 pro
bezpecnost. Moje zkusenost je takova, ze NW splnuje C2 pouze po znacnych
upravach jak serveru, tak stanic a ty stanice museji byt pouze urcite
znacky s urcityma sit. kartama. Na WNT je ponekud jednodussi, staci si
nainstalovat NT resource Kit, kde je utilita "C2 security manager" a ten
Vam umozni nastavit nekolik "Feature" tak aby splnovalo C2, ale... napr.
Odinstaluje OS2 subsystem - nefunguji nektere aplikace. Nejlepsi je ale
hlaska "One or more network services are installed on the system" -
takze staci odinstalovat vsechny sitove sluzby a udelat ze sitoveho
serveru lokalni server a splnuje C2. Tuto utilitu jsem pouzil na jeden
pokusny server a nasledovalo z ostatnich mnoho "Access denied" - potom
reinstalace.
Doporucuji neporovnavat bezpecnost obou systemu, vsude se najdou
vady. Napr. mluvil jsem s jednim hackerem a ten mi tvrdil, ze ma urcitou
verzi NWAdmina pro NW 4.1 a ten (vyuzitim jedne chyby) dokaze kreknout
NDS na NW 4.1 (na Intranetware uz ne timto zpusobem). Pro NT zase mam
program, ktery mi vypise hesla vsech uzivatelu, pravda u nekterych (jako
u mne) se mu to podle propoctu podari az za 35000 let, ale u cca 60%
useru to udelal pres noc. A takhle by se dalo na stridacku pokracovat.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/> A to myslim naprosto vazne a za to se stavim. To neni jen muj nazor,
> to jsou proste zkusenosti mnohych. Ja osobne mam radeji take site
> na NT serveru, ale co se tyka bezpecnosti a spolehlivosti - Novell
> je Novell a hotovo. Pak jsou jeste mnohem lepsi servery... ale o tom
> az nekdy priste.
Za opravdu bezpecny povazuji svuj firewall na solarisu, kde bezi
FW a ze sitovych sluzeb vubec nic jineho, ale to je taky jina cenova
kategorie.
> S pozdravem
> Petr Zahradnik, pocitacovy expert
> Jmeno uzivatele
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 27.5.1998 07:00:22
> Cau,
> nevite nekdo, jak poslat serveru MSSQL 6.5 jmeno uzivatele,
> ktery se pres ODBC pripojil na databazi. Pokud pouziju borlandsky
> linky, tak to pomoci APPLICATION NAME v BDE dokazu, ale pres ODBC nic
> takoveho nejde.
> Dik Pavel
>
Jestli jsem pochopil dotaz, tak staci do komponenty TDatabase do
property Params dat klauzuli
DATABASE NAME=AAA
ODBC DSN=BBB
USER NAME=sa
PASSWORD=heslo
User Name je jmeno uzivatele, ktery se pres ODBC pripojil na
databazi.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
seriove cislo windows
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 27.5.1998 07:11:23
> >Cti z registru. Napriklad veskere veci ohledne registrace Windows
> najdes v
> >HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion.
> >Tam uz jsou polozky jako ProductID, ProduktName,
> RegistredOrganization,
> >RegistredOwner, ...
>
> Tohle pravdepodobne nebude fungovat vzdy (vim, ze to plati pro W95).
> Napriklad sedim u masiny s NT 4.0 a tday nic takoveho v registru neni
> (zkousel jsem prohledat - u W95 lze bez problemu seriove cislo najit).
>
> Vypis inkriminovane vetve (.... znaci bin.hodnoty):
>
> [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
> "DevicePath"=....
> "MediaPathUnexpanded"=....
> "ProgramFilesDir"="C:\\Program Files"
> "CommonFilesDir"="C:\\Program Files\\Common Files"
> "MediaPath"="C:\\WINNT\\Media"
> "ProgramFilesPath"=....
> "SM_AccessoriesName"="Accessories"
> "PF_AccessoriesName"="Accessories"
>
> Vic tam bohuzel neni.
>
> Jan Rovner
>
Presne tak to plati pouze pro W95. Pro Windows NT to je na
HKEY_LOCAL_MACHONE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
ProductName tam neni, ale jinak vse ostatni tam je
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/Re[2]: OLE
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 27.5.1998 07:12:49
> He he he :-)
>
> Zkuste si to precist taky nekdy pod NT, kde neni nainstalovana
> cestina.
>
> Best regards,
> Hubert
> mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>
A co ti brani nastavit v Regional settings - czech
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
Zapis do souboru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.5.1998 07:20:45
Ing. Jahoda Jaroslav wrote:
> > Potrebuji zvetsovat velikost souboru vlozenim dat doprostred (NE na
> > konec).
> >
> Nejrychlejsi zpusob jak udelat Vasi operaci je pouzit funkce
>
> CreateFile(....)
> CreateFileMapping(...)
> MapViewOfFile(....)
Nedalo mi to, abych si to nevyzkousel. Cteni a zapis dovnitr oblasti
je OK. Ale nepodarilo se mi splnit zakladni pozadavek, a to vlozit
kus neceho tak, abych tim soubor zvetsil. Je k tomu nejake reseni?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Query za behu programu
[*] Bonhard, Tomas Ing. <Tomas.Bonhard(zv)skoda-auto(tec)cz> - 27.5.1998 07:27:07
Srdecne zdravim.
Nevite nekdo o nejake sikovne komponente nebo nastroji pro D3 na tvorbu
uzivatelskych Query za behu programu ?
Muze byt i komercni.
Dekuji za odpovedi.
Tomas
NW vs NT (bylo:Databazy a aplikacie)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.5.1998 07:28:54
> Zase jeden NW-lista. U nas ve firme mame 2x NetWare 4.1 a bezi
> bez problemu, ale slouzi pouze k ukladani dat k nicemu jinemu. Jako file
> server je spickovy a neni duvod zatim nic menit. Dale mame NT servery,
> kde provozuje vse ostatni, na nich jsou BackOfficy a Jedinou vyhradu mam
> ke zroutovi Exchange, ktery sebere veskerou pamet kterou vidi (i tu ve
> sklade). Pouzivame tady SQL databaze pro ukladani dat o lesich,
> vlastnicich a tezbach atd. a jinam nez na SQL server bezici pod NT bych
> data neukladal.
Jsou i SQL servery bezici na NW. Ale tady slo o neco jineho. Ja jsem
zacal s tim, ze Sybase SQL Anywhere podporuje vsechny mozne platformy
a mezi nimi take NW a ze to se muze hodit, protoze prave nekdo ma
sit postavenou na Novellu.
> Takze si myslim, ze zatim ma cenu pouzivat oboji, ale NW ma do
Vzdyt o to prave slo.
> budoucna odzvoneno. Co se tyce kvality a stability tak staci az bude NT
> stabilni jako napr. Linux ci Solaris, ale to bude ve verzi 6.0 ci 7.0,
> kdo vi.
Cot nebude asi nikdy, protoze vzdy s novou verzi pribyde 5x tolik
chyb a s novym service packem pribyde 10x tolik chyb...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================NW vs NT (bylo:Databazy a aplikacie)
[*] stingp1.eti(zv)mail.cez(tec)cz - 27.5.1998 07:57:24
Hi,
neodpustim si jeste jedinou noticku ohledne bezpecnosti NT (sice moc
nefandim Microsoftu, ale to je vedlejsi) -
WinNT 4.0 se hrdi bezpecnostnim certrifikatem C2, ale pouze pro instalace
bez sitove
karty a disketove mechaniky. Drzim spravcum palce. Dulezitym rysem NW je
to, ze
nelze manipulovat s daty z konzole bez specialniho programoveho vybaveni,
(jehoz spusteni se da s uspechem zabranit) a prenaset soubory na disketu ci
pracovat primo na serveru se soubory, coz na NT lze. Tak bych mohl
pokracovat dal a dal.
Problem nejspis bude v rozdilnem zamereni obou systemu (aplikacni kontra
file server),
a nedodelavkach v NT 4. Uvidime, jak na tom budou NT 5, pripadne 6.
Kazdopadne tato diskuze nevede nikam - viz spory spravcu unixu vs. NW -
ale nikdy bych si nedovolil tvrdit, ze NetWare je odepsany a podobne bludy.
Cau, Pavel
stingp1.eti(zv)mail.cez(tec)cz
FRONEK(zv)fic(tec)cz na 26.05.98 22:05:17
Odpov?zte pros?m - delphi(zv)pinknet(tec)cz
Komu: delphi(zv)pinknet(tec)cz
Kopie: (Na v?dom?: Stingl Pavel/2310/ETI/CEZ)
P?edm?t: Re: NW vs NT (bylo:Databazy a aplikacie)
Hi,
jestli mas takovyto nazor, pak nechapu, jak si muzes rikat pocitavy
expert. Ale uz dost, dal se na toto tema nehodlam bavit. Ztrata casu.
fronek(zv)fic(tec)cz
Petr Zahradnik wrote:
> Nechci byt opravdu neslusny, ale clovece, otevri oci a prober se!
> Co to tu placas za nesmysly ??? Ja mam software od Microsoftu rad,
> klidne to tu reknu na rovinu, ale jsem presvedcen o tom, ze bezpecnost
> serveru s Novellem je radove vyssi nez bezpecnost serveru s Win NT.
> A to myslim naprosto vazne a za to se stavim. To neni jen muj nazor,
> to jsou proste zkusenosti mnohych. Ja osobne mam radeji take site
> na NT serveru, ale co se tyka bezpecnosti a spolehlivosti - Novell
> je Novell a hotovo. Pak jsou jeste mnohem lepsi servery... ale o tom
> az nekdy priste.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
NW vs NT (bylo:Databazy a aplikacie)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.5.1998 08:42:33
> Doporucuji neporovnavat bezpecnost obou systemu, vsude se najdou
> vady. Napr. mluvil jsem s jednim hackerem a ten mi tvrdil, ze ma urcitou
> verzi NWAdmina pro NW 4.1 a ten (vyuzitim jedne chyby) dokaze kreknout
> NDS na NW 4.1 (na Intranetware uz ne timto zpusobem). Pro NT zase mam
> program, ktery mi vypise hesla vsech uzivatelu, pravda u nekterych (jako
> u mne) se mu to podle propoctu podari az za 35000 let, ale u cca 60%
> useru to udelal pres noc. A takhle by se dalo na stridacku pokracovat.
Ale tady v teto diskusi vubec nejde o bezpecnost ve smyslu hackeru, ale
o bezpecnost ve smyslu ztraty dat, padani serveru apod. No nic.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Pakovaci komponenta
[*] Vesna <veselyt(zv)sagas(tec)cz> - 27.5.1998 09:05:35
Tak zkus polsky zdroj, tohle je jenom zrcadlo - sunsite.icm.edu.pl/delphi
-----P�vodn� zpr�va-----
Od: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 26. kv�tna 1998 12:16
P�edm�t: Re: Pakovaci komponenta
>> From: "Stanislav Cerny" <s.cerny(zv)mod(tec)cz>
>> To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
>> Subject: Re: Pakovaci komponenta
>> Date: Mon, 25 May 1998 16:15:39 +0200
>> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>
>> Ahoj
>> na adrese:
>> http://sunsite.mff.cuni(tec)cz/delphi/index.htm
>> najdes soubor DELZIP13.EXE a to je ono.
>>
>> Standa.
>>
>
>Bohuzel na tuto stranku neni volny pristup!
>Ahoj Pavel
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
>NetMessageBufferSend
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 27.5.1998 09:06:54
DDV, neni zde nejaky uzivatel %subj% funkce?
Volam ji v program nekolikrat s konstantnimy parametry, ale provede
se jen jednou, cemuz nerozumim.
(NT4.0 CZ)
Diky a.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.CPU speed ...
[*] Bielik Marian <bielik(zv)basl.sk> - 27.5.1998 09:16:24
******
Viem ze pred casom tu bezala ziva debata ohladne vypoctu rychlosti
procesora.
Vcera som narazil na jednoduchu funkciu pre vypocet rychlosti a tak ma
napadlo
ze by to snad mohlo niekomu posluzit.
Skusal som to na AMD a Intel a vratilo mi to tu rychlost ktoru som
ocakaval.
Marian
******
procedure TForm1.Button1Click(Sender: TObject);
var
t: DWORD;
mhi, mlo, nhi, nlo: DWORD;
vysl,t0, t1, chi, clo, shr32: Comp;
begin
shr32 := 65536;
shr32 := shr32 * 65536;
t := GetTickCount;
while t = GetTickCount do begin end;
asm
DB 0FH
DB 031H
mov mhi,edx
mov mlo,eax
end;
while GetTickCount < (t + 1000) do begin end;
asm
DB 0FH
DB 031H
mov nhi,edx
mov nlo,eax
end;
chi := mhi; if mhi < 0 then chi := chi + shr32;
clo := mlo; if mlo < 0 then clo := clo + shr32;
t0 := chi * shr32 + clo;
chi := nhi; if nhi < 0 then chi := chi + shr32;
clo := nlo; if nlo < 0 then clo := clo + shr32;
t1 := chi * shr32 + clo;
vysl := (t1 - t0) / 1E6;
MessageDlg(Format('%.1f MHz', [vysl]), mtConfirmation, [mbOk], 0);
end;
NW vs NT (bylo:Databazy a aplikacie)
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 27.5.1998 09:27:53
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 27. kv�tna 1998 8:29
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: NW vs NT (bylo:Databazy a aplikacie)
>
> > jestli mas takovyto nazor, pak nechapu, jak si muzes rikat pocitavy
> > expert. Ale uz dost, dal se na toto tema nehodlam bavit. Ztrata casu.
>
> Ja si nerikam "pocitavy expert", prosim precti si to poradne. Jinak co
> se tyka spolehlivosti NW vs. NT, muzeme tady o tom diskutovat, muzeme
> se dohadovat, muzeme polemizovat o tom, kdo je na co vetsi expert,
> ale stejne nezmenis nic na tom, ze NW je OPRAVDU spolehlivejsi nez NT.
> Zeptej se kohokoliv, kdo ty zkusenosti opravdu ma.
Dobra tady jsem.
Mam na siti 3 servery na NW 4.1x v jedne NDS, na jednom bezi ORACLE, na dalsim
Btriewe, pro lidi pouzivam NAL takze ze svych okynek kazdy vidi sve aplikace
nezavisle na pocitaci u ktereho sedi. Instalace okynek je sitova. Tyto servery
bezi tak, ze se o nich nevi. Pouze preventivne se jednou za 6 mesicu shodi a
znovu najedou.
Dale tu mam NT, ktery dela vice mene jen radic plotru (na tisk map) a stim
jsou jen problemy. Po asi 3 mesicich nutna reinstalace, obcas se k nemu neda
prihlasit (restart) a tak podobne. My jako spravcove pouzivame na svych
stanicich NT a opet jen a jen pakarna. Clovek nevi dne ani hodiny, kdy to
klekne.
Kolega v knihovne ma server na NT a pokud se mu tam jako k filesystemu prihlasi
6 lidi, tak si mohou dat vsichni kafe (na muj hlavni NW server jic leze 140 a v
pohode)
Nevim tedy co je lepsi. :-)
P.S: Ano, mozna ze NT 7.0 budou skutecne vykonny a stabilni system, ale je
potrebuji pracovat ted.
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=======================================
TQuery & RequestLive
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 27.5.1998 09:47:34
Nevim, co pouzivas za SQL, ale me requestLive na true funguje i pres order by u
MSSQL. Jedine, na co si musim dat pozor (a to je asi neci fooor ;-) ), ze
musim psat nazvy poli v order by i where velkymi pismeny. Prisel jsem na to
pokusne, kdyz mi requestLive taky nefungoval a stacilo zmenit order by pole na
order by POLE a uz to jelo jak po masle! Ovsem pokud v prikaze pouzijes nektere
funkce, pak order by jiz nemusi jet, protoze BDE si nemusi vedet rady s realnym
prirazenim poli k vysledkum funkci (nebo tak nejak).
Jinak by vytvoreny index mel prikaz pouzivat, pokud je dle neho optimalizovan
(myslim, ze se server snazi pouzit indexi co nejoptimalneji).
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 26. kv�tna 1998 7:33
> Komu: DELPHI Distribution List
> P�edm�t: TQuery & RequestLive
>
> Jestlize pouziji v SQL dotazu klauzuli ORDER BY tak se nastavi vlastnost
> RequestLive na FALSE. Jde nejak donutit TQuery, aby mel RequestLive na TRUE
> a abych mohl pouzit klauzuli ORDER BY ? Zkusil jsem vytvorit sekundarni
> index pro polozku uvedenou v ORDER BY, ale taky to nefunguje. Pred casem
> jsem tu nekde cetl, ze lze donutit nejakym SQL prikazem, aby pouzival
> vytvoreny index, ale uz jsem to zpetne nenasel, nevi nekdo co je to za
> prikaz ?
>
> Diky Vita
NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 27.5.1998 09:55:55
Petr Zahradnik wrote:
> Cot nebude asi nikdy, protoze vzdy s novou verzi pribyde 5x tolik
> chyb a s novym service packem pribyde 10x tolik chyb...
Abych se priznal, tak momentalne nevim o software bez chyby (krome
vlastnich, ze ;-))).
Vim ze k Novellu je taky mraky oprav, bez kterych to se stabilitou
patrne taky nebude nejlepsi (alespon co jsem slysel od kolegy, ktery s
NW pracuje). Dle meho je jasne ze v NT je mozna vice chyb, ale nemuze to
na druhou stranu vyplyvat z toho ze NT pouziva treba 10x vice uzivatelu
nez NW a tudiz je 10x vyssi sance najit nejakou dalsi chybu? Nebo ze by
v MS pracovali 10x horsi programatori nez v NW (ted se bavime o lidech,
kteri to programuji a ne o Billovi).
Muj osobni nazor je ten, ze kvalita MS produktu je spise vzestupna nez
naopak (alespon v zavedenych programech, tam se preci jen obcas
programatori pouci se svych chyb a lecos skutecne opravi).
Me osobne se stava docela casto, ze jednou opravou spacham chybu jinde.
Holt nejsem genius jako NE-MS programator (aspon se mi to tak jevi -
vsichni kdo MS nepouzivaji tvrdi jak je jejich system stabilni a bez
chyb (leckdy treba bez funkci ;-) at uz se jedna o vecne a asi nikdy
nekoncici spory typu Apple vs Unix vs NW vs NT aneb ATARI vs ZX Spectrum
vs C64).
Mimochodem nejlepsi stejne bylo Atari 800XL !!! A vite proc? Protoze
bylo moje, moje prvni pocitadylko a protoze nejsem objektivni. PROTO!
Howg...
Martin Kubecka
Zapis do souboru
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 27.5.1998 09:55:15
> Ing. Jahoda Jaroslav wrote:
>
> > > Potrebuji zvetsovat velikost souboru vlozenim dat doprostred (NE
> na
> > > konec).
> > >
> > Nejrychlejsi zpusob jak udelat Vasi operaci je pouzit funkce
> >
> > CreateFile(....)
> > CreateFileMapping(...)
> > MapViewOfFile(....)
>
> Nedalo mi to, abych si to nevyzkousel. Cteni a zapis dovnitr oblasti
> je OK. Ale nepodarilo se mi splnit zakladni pozadavek, a to vlozit
> kus neceho tak, abych tim soubor zvetsil. Je k tomu nejake reseni?
>
Na tohle neni Mapping stavenej, ikdyz to jde, ale primarne je
stavenej k co nejrychlejsimu pristupu do databaze. Napr. MSSQL kdyz
zakladate DatabaseDevice, tak alokuje file na disku a potom s nim dela
to co je potreba, dynamicky uz ho nezvetsuje ani nezmensuje.
Pravdepodobne pristup je pres tyto operace.
Ale k Vasemu dotazu. Pokud chci zvetsit soubor, tak s tim musim
pocitat v dobe, kdy vole CreateFileMapping a tam dam maximalni velikost,
se kterou budu pracovat a on !!!ihned!!!! alokuje potrebny prostor na
disku. Po ukonceni je potreba soubor zase zkratit na aktualni velikost.
Holt nekde ziskam a nekde ztratim.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
OLE
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 27.5.1998 09:57:57
Me nic, ale nekdo muze mit napr. zamestnavatele, ktery je z USA a
VYZADUJE Regional settings US ;(
Vim o takovem pripadu...
Mac
Ing. Jahoda Jaroslav wrote:
> A co ti brani nastavit v Regional settings - czech
Tvorba Helpu - off top.?
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 27.5.1998 10:08:53
> Stahl jsem si na odzkouseni helpscr, ale nejak mi ignoruje cestinu.
prestoze
Stahni si na odzkouseni (podle me) nejlepsi soft na psani helpu
Windows Help Designer Pro.
http://www.devgr.com
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
> Dos, Paradox a Delphi
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 27.5.1998 10:20:05
>Mozna by ti pomohl nastroj Table Interrogator od Borlandu, zobrazuje detailni
>informace o tabulkach. Najdes jej tady:
>http://www.inprise.com/devsupport/bde/utilities.html
>
> Petr Vones, amatersky programator
>----------
Nazdar!
Vdaka za vsetky reakcie.
Problem sa mi podarilo vyriesit za pomoci ochotneho cloveka
z komferencie, ktory mi napisal script priamo pre dosovsky PDOX.
Z vyssie uvedenej adresy som si postahoval kopec utilit pre
spravu PDOX tabuliek. Tak dufam, ze uz s podobnymi problemami
si v buducnosti poradim sam.
Ale aj tak ma trapi, ze mi to nejde spravovat cez Database
Desktop(DD) a cez Delphi. V BDE Administratore pre PDOX Driver
mam verziu 3.0 (zistil som, ze PDOX tabulky su vo verzii 3.5).
Je nejaky vztah medzi verziami tychto produktov a nemoze tento
rozdiel za to, ze si PDOX v3.5 nerozumie s BDE?
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
HTTP komponenta
[*] Juraj Chlebec <chlebec(zv)pefstud.uniag.sk> - 27.5.1998 11:09:20
Ako zaciatocnik v Delphi mam drobny problem.
Mam Form1 a Form2.
Vo Form1 menim pomocou 3 ScrollBarov R,G,B farbu ktoru chcem zobrazit
na pozadi v HTML komponente ktora je na Form2.
Pri starte si nahram do HTML html stranku a v nej chcem teda online okamzite
menit farbu pozadia (v html stranke bgcolor, v komponente pouzivam
BackColor).
Na zmenu farby zobrazena stranka reaguje preblikavanim a farba sa zmeni az
ked kliknem na Form2 a potom klikne spat na Form1 (teda sa zmeni az po
druhom kliknuti). Nevie mi niekto poradita ko to vyriesit ? Skusal som
Repaint, Update ... nepomaha
Mockrat vdaka !!!!
Havran
Tvorba Helpu - off top.?
[*] kkwest <kkwest(zv)mbox.vol(tec)cz> - 27.5.1998 11:20:20
Tak to nevim ,mne to chodi bez problemu. Mam tam nastavenej Arial a jde to.
Pise to cesky i v prostredi HelpScr i prelozenem helpu.
\\\|///
\ ~ ~ /
(\ (zv) (zv) /)
--------------------oOOO--(_)--OOOo-----------------------------------------
> Marek Hej (pocitacovy technik , programator)
> Tel. : do zamestnani 019/7900080
> Fax : do zamestnami 019/7900056
> E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
----------------------------------------------------------------------------
----------
NW vs NT (bylo:Databazy a aplikacie)
[*] Roman Ka�ovsk� - 27.5.1998 11:41:28
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 27. kv�tna 1998 9:34
P�edm�t: RE: NW vs NT (bylo:Databazy a aplikacie)> Doporucuji neporovnavat bezpecnost obou systemu, vsude se najdou
> vady. Napr. mluvil jsem s jednim hackerem a ten mi tvrdil, ze ma urcitou
> verzi NWAdmina pro NW 4.1 a ten (vyuzitim jedne chyby) dokaze kreknout
> NDS na NW 4.1 (na Intranetware uz ne timto zpusobem). Pro NT zase mam
> program, ktery mi vypise hesla vsech uzivatelu, pravda u nekterych (jako
> u mne) se mu to podle propoctu podari az za 35000 let, ale u cca 60%
> useru to udelal pres noc. A takhle by se dalo na stridacku pokracovat.
No jo, ale vetsine techto programu potrebuje fyzicky pristup na disk
serveru. Snad mi nechcete tvrdit, ze nejaky rozumny spravce nastavi pravo
lokalniho pristupu pro nap. Guesta, popripade ze nechava prihlaseneho admina
na serveru bez zamknute konzole ?
Roman K
NW vs NT (bylo:Databazy a aplikacie)
[*] Roman Ka�ovsk� - 27.5.1998 11:48:58
Tak kdyz jsme u toho, ja mam 3 x NT server a 1x Novell. NT jedou v podstate
bez problemu, ale na druhou stranu mi dela problem Novell. (alespon 1 x za
mesic nutny restart, protoze se sesype)
Na NT mam navesenych asi 90 uzivatelu, bezitam MS SQL 6.0, MS Exchange 5.0 a
na rychlost si nikdo nestezuje.
Takze bych rekl, ze hodne zalezi na jakem hardware se toi vsechno provozuje.
Roman K.
>Mam na siti 3 servery na NW 4.1x v jedne NDS, na jednom bezi ORACLE, na
dalsim
>Btriewe, pro lidi pouzivam NAL takze ze svych okynek kazdy vidi sve
aplikace
>nezavisle na pocitaci u ktereho sedi. Instalace okynek je sitova. Tyto
servery
>bezi tak, ze se o nich nevi. Pouze preventivne se jednou za 6 mesicu shodi
a
>znovu najedou.
>Dale tu mam NT, ktery dela vice mene jen radic plotru (na tisk map) a stim
>jsou jen problemy. Po asi 3 mesicich nutna reinstalace, obcas se k nemu
neda
>prihlasit (restart) a tak podobne. My jako spravcove pouzivame na svych
>stanicich NT a opet jen a jen pakarna. Clovek nevi dne ani hodiny, kdy to
>klekne.
>Kolega v knihovne ma server na NT a pokud se mu tam jako k filesystemu
prihlasi
>6 lidi, tak si mohou dat vsichni kafe (na muj hlavni NW server jic leze 140
a v
>pohode)
>Nevim tedy co je lepsi. :-)
>
>P.S: Ano, mozna ze NT 7.0 budou skutecne vykonny a stabilni system, ale je
>potrebuji pracovat ted.
>
>=======================================
>Richard Valny richard.valny(zv)oku-st(tec)cz
>Okresni urad Strakonice tel. 0342-441 l. 216
>Smetanova 533 fax. 0342-21208
>386 22 STRAKONICE FiDoNet 2:423/35
>=======================================
>
>
TQuery & RequestLive
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 27.5.1998 12:44:20
Hi,
pred casem jsem mel podobny problem, ktery jsem psal do konference:
-->Vazeni,
-->obracim se na vas s zadosti o radu.
-->Jako zacinajici programator v DELPHI 2.0 mam tento problem:
-->Pokud zpristupnim PARADOX tabulku pomoci TQUERY, mohu pridavat a menit zaznamy
-->pouze pokud mam nastavenu properties REQUESTLIVE na true a nemam v SQL
-->klauzuli ORDER BY.
-->Pokud pouziji ORDER BY POLE2 , musim mit pole POLE2 jako sekundarni index s nastavenou
-->vlastnosti
-->CASE SENSITIVE.
-->Prosim o radu, jak pomoci SQL vytvorit klic s nastavenou vlastnosti CASE SENSITIVE
-->(v Database Desktopu to rucne zmenit umim,
-->pomoci TTable take: table1.AddIndex('','Pole2',[ixCaseInsensitive]) ;)
Jako reseni je pouzivat komponentu TUpdateSQL. Potom muze byt klauzule ORDER BY
na jakekoliv pole i neindexovane.
Je zde jen jeden problem: pokud pouziji tabulku obsahujici BLOB pole (memo, obrazek),
je dle mych zkusenosti (a sdeleni p. Skerika ze Sinea software) problem s DELPHI 2,
ktere neulozi toto BLOB pole. Z tohoto duvodu jsem presel na DELPHI 3 a je vse v poradku.
S pozdravem
Ing. Milan Valenta
Horni Slavkov
e-mail: milan.valenta(zv)usa.net
----------
> Odes�latel: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: TQuery & RequestLive
> Datum: 26. kv�tna 1998 7:32
>
> Jestlize pouziji v SQL dotazu klauzuli ORDER BY tak se nastavi vlastnost
> RequestLive na FALSE. Jde nejak donutit TQuery, aby mel RequestLive na TRUE
> a abych mohl pouzit klauzuli ORDER BY ? Zkusil jsem vytvorit sekundarni
> index pro polozku uvedenou v ORDER BY, ale taky to nefunguje. Pred casem
> jsem tu nekde cetl, ze lze donutit nejakym SQL prikazem, aby pouzival
> vytvoreny index, ale uz jsem to zpetne nenasel, nevi nekdo co je to za
> prikaz ?
>
> Diky Vita
OFFT : Exchange server
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 27.5.1998 12:48:43
Tento mail je pro Ing. J. Jahodu, ostatnim omluva, zkousel jsem psat primo na 'Jaroslav.Jahoda(zv)lesprojekt(tec)cz',
vratilo se to jako nedorucitelne, tak zkousim tuto cestu. O M L U V A O S T A T N I M
Zdravim,
protoze vim, ze pouzivate Exchange Server, zadam Vas o pomoc s nasledujicim problemem:
znamy mel instalovany ExS 4, a porad mu zahadne nefungoval Internet Conector. Rozhodl se proto provest upgrade na 5.5, ale pri upgradovani doslo k chybe, ze pry soubor MXA/DATA/XPRIV.EDB je poskozen (to XPRIV nevim jiste, ale je tam pry jen jeden soubor zacinajici na X). Tak ho napadlo tenhle soubor odstranit (presunout) aby ho instalace nenasla. OK, nenasla, ale nefunguje Exchange! Jiny znamy ma v 5.5 a tam takovy soubor neni. Muzete prosim poradit, jak z toho ven, aby nebylo nutne reinstalovat cely Exchange? Mate nejake zkusenosti? Dekuji.
fronek(zv)fic(tec)cz
Jmeno uzivatele
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 27.5.1998 13:13:22
To neni stale ono. ja potrebuju, aby se mi na na SQL serveru v Current
Activity zobrazoval, kdo (jmeno pocitace, nebo jmeno uzivatele, ktery se
prihlasil do domeny NT) se pripojil (provedl SQL dotaz) na databazi.
> -----P�vodn� zpr�va-----
> Od: Ing. Jahoda Jaroslav [SMTP:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
> Odesl�no: 27. kv�tna 1998 7:00
> Komu: DELPHI Distribution List
> P�edm�t: RE: Jmeno uzivatele
>
>
> > Cau,
> > nevite nekdo, jak poslat serveru MSSQL 6.5 jmeno uzivatele,
> > ktery se pres ODBC pripojil na databazi. Pokud pouziju borlandsky
> > linky, tak to pomoci APPLICATION NAME v BDE dokazu, ale pres ODBC nic
> > takoveho nejde.
> > Dik Pavel
> >
> Jestli jsem pochopil dotaz, tak staci do komponenty TDatabase do
> property Params dat klauzuli
>
> DATABASE NAME=AAA
> ODBC DSN=BBB
> USER NAME=sa
> PASSWORD=heslo
>
>
> User Name je jmeno uzivatele, ktery se pres ODBC pripojil na
> databazi.
>
> Ing. Jaroslav Jahoda
> Lesprojekt-Sluzby s.r.o.
> Nabrezni 1326
> Brandys nad Labem 250 01
> tel. +420 202 800152, fax. +420 202 800161
> email: jahoda(zv)lesprojekt(tec)cz
> http://www.lesprojekt(tec)cz/
> delphi - http://www.lesprojekt(tec)cz/delphi/
> Prepinani parent
[*] RADIK(zv)p15.monet(tec)cz - 27.5.1998 13:50:00
Prisel jsem na celkem zajimavou vlastnost. Pokud mam dva formulare a
chci prenest za chodu nejake komponenty z jednoho do druheho, staci
zmenit Parent...
Je to jakasi obdoba komponenty Notebook neno PageControl, jenze mohu mit
kazdou stranku na jinem formulari, coz muze znacne zprehlednit
zdrojaky....
Zatim se zda, ze vsechno funguje, tab prepina ve spravnem poradi.....
Takze:
1. Mozna ze by to mohlo nekomu pomoct, me to napadlo jen nahodou......
2. Pokud to nekdo pouziva - ma to nejake problemy?
Ales
T��d�n�
[*] V�t�zslav Gazda������u��n�?��? - 27.5.1998 14:13:22
Mam takovy problem.
Potrebuji ve sve aplikaci tridit databazi (jedno jakou DBASE, PARADOX,
ACCESS, atd.) podle jakekoliv polozky (i podle vice polozek najednou).
Potrebuji to pro komponentu TTable, takze asi budu muset dynamicky vytvaret
indexy coz se mi zatim nedari.
Ma nekdo hotove nejake reseni ?
Diky Vita
TDBGrid
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.5.1998 14:28:27
Marek Prokop wrote:
> Problem je v tom, ze popsanym postupem nedosahnu toho, aby se to
> pole v DbGridu chovalo opravdu jako ComboBox. Ma to 2 zasadni
> nedostatky:
>
> 1. Nemohu udelat lookup field na sebe sama, tj. takovy, ktery by v
> comboboxu nad cizim klicem nabizel vsechny hodnoty primarniho klice
> v lookup tabulce.
Ted nerozumim, jak jsi to myslel. Ze nelze z T1 udelat lookup na
nejake pole v T1?
> 2. Seznam comboboxu v tomto pripade (na rozdil od opravdoveho
> TComboBox) neumoznuje zobrazeni vice sloupcu.
Hm. A zkousel sis napriklad zalozit calculated field a v jeho
OnGetText priradit do Text co potrebujes a pak na toto udelat lookup?
> Protoze tyto dva nedostatky bohuzel brani temer jakemukoli rozumnemu
> vyuziti nize popsaneho postupu, udelali jsme si na to vlastni
> komponentu. Pokud nekdo zna skutecne pouzitelne reseni, rad se ho
> dozvim.
Souhlasim s tim, ze implementovany lookup ma radu nedostatku a neni
dokonaly. Nesouhlasim ale s tim, ze ho nelze _jakkoliv_ rozumne
vyuzit. Pokud dobre vis, jak funguje a jaka ma omezeni, da se s tim
prece jen ledacos udelat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Tvorba Helpu - off top.?
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 27.5.1998 15:35:55
Hmm. Myslim, ze je problem asi v tech NT (presto, ze mam i regional set.
ceske). Dela mi to tam i Help&Manual. Tak radeji asi v 95 ;-((.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Tak to nevim ,mne to chodi bez problemu. Mam tam nastavenej Arial a jde to.
> Pise to cesky i v prostredi HelpScr i prelozenem helpu.Paradox DOS
[*] tomas.mazurek(zv)vitkovice(tec)cz - 27.5.1998 15:37:26
Ahoj,
spravovat DOSovske tabulky Paradoxu asi zrejme z D. Desktopu nepujde.
Mam podobny nastroj jako je na americkem Borlandu. Tj. na vypis
detailnich informaci o tabulce. Lze z nej i tisknout. Funguje i na
DBase, InterBase a Oracle. Pokud ma nekdo zajem o zdrojaky, jsou k
dispozici.
O to ale nejde. Problem je v tom, ze muj program, ktery pouziva
sluzeb jadra BDE, vypisuje mj. i informace o paradoxovske family, tj.
souborech, ktere s tabulkou souvisi. Lec prislusna fce ignoruje
soubory s priponou F a R, coz jsou formulare a reporty Paradoxu pro
DOS. Pak je jasne, ze napr. po restrukturalizaci takove tabulky jsou
z Paradoxu pro DOS takove formulare a reporty corrupt...
Pokud ma nekdo jine zkusenosti, rad se poucim.
tomas.mazurek(zv)vitkovice(tec)cz
T��d�n�
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 27.5.1998 16:40:59
Pouzij TQuery.
V�t�zslav Gazda wrote:
>
> Mam takovy problem.
>
> Potrebuji ve sve aplikaci tridit databazi (jedno jakou DBASE, PARADOX,
> ACCESS, atd.) podle jakekoliv polozky (i podle vice polozek najednou).
> Potrebuji to pro komponentu TTable, takze asi budu muset dynamicky vytvaret
> indexy coz se mi zatim nedari.
> Ma nekdo hotove nejake reseni ?
>
> Diky Vita
NW vs NT (bylo:Databazy a aplikacie)
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 27.5.1998 17:04:51
> Nemyslim si ze se jedna o kompromis, ja takovou bezpecnost vyzaduji.
> Nehodlam sverit serveru NW ani bajt dulezite informace (po te ztrate
> svazku - a ne jen u me, stalo se to i v jednom autoservisu na Kladne, to
> byl mazec!) Naproti tomu, u serveru NT se bat nemusim, tam snad leda ze
> by lehlo zelezo, ale od toho je zalovani, ze.
>
>
Neda mi to, abych se nepripojil k teto flamewar.
Za 6 let, co pracuji s NW, se mi jeste nestalo, ze bych prisel o data
jinou cestou, nez ze je nekdo smazal (staci nastavit prava).
Naopak NT neustale zlobi, na disku mnohdy vidim soubory, ktere nemohu
otevrit, smazat, ... i kdyz je prokazatelne nikdo nepouziva.
(po restartu NT soubor bud neni, nebo jde smazat). O stabilite
muhu rici jen to, ze u NW neni vyjimkou bezproblemovy provoz
6 - 9 mesicu bez restartu, u NT se nam zatim podarilo asi tak 20 dni.
Jelikoz server potrebujeme pro technologickou aplikaci 24 h / 7 dni v
tydnu, volba je jednoducha - NW.
> > Ostatne uvidime jak do toho promluvi NW 5.0 s protokolem TCPIP
> > a viceprocesorovou podporou (konecne).
> > Karty budou znova rozdany.
>
> Jake karty? Hra uz skoncila, nez se u Novelu kdosi prospal....
>
Ne vsichni potrebuji server s "obrazkama". Ja potrebuji hlavne
file a print server, koneckoncu na NW chodi i SQL i WWW server.
NLM psat neumim, ale nekteri to umi. Takze se to asi naucit da.
A to, ze vsichni nemuzou (neumi) psat procesy pro server je mozna
i dobre (pro ten server :-))) )
Pojdme se radeji venovat Delphi.
> > Jaro.
> fronek(zv)fic(tec)cz
S pozdravem Zdenek
---------------------------------------------------------
: o__o Zdenek Sraier sraierzd(zv)czn(tec)cz :
: ( o o) users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske www.byll(tec)cz/scuba/ :
---------------------------------------------------------
This message was delivered using 100% recyclable electrons.T��d�n�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.5.1998 18:28:15
V�t�zslav Gazda wrote:
>
> Mam takovy problem.
>
> Potrebuji ve sve aplikaci tridit databazi (jedno jakou DBASE, PARADOX,
> ACCESS, atd.) podle jakekoliv polozky (i podle vice polozek najednou).
> Potrebuji to pro komponentu TTable, takze asi budu muset dynamicky vytvaret
> indexy coz se mi zatim nedari.
> Ma nekdo hotove nejake reseni ?
>
> Diky Vita
Ahoj,
jde to pomerne jednoduse, napr. pro CUSTOMER.DB:
Table1.Exclusive := True;
Table1.Open;
Table1.AddIndex('STATE', 'State', []);
Table1.AddIndex('ADDR1_2', 'Addr1;Addr2', []);
Table1.DeleteIndex('STATE');
Table1.DeleteIndex('ADDR1_2');
Table1.Close; Petr Vones, amatersky programator
T��d�n�
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 27.5.1998 19:02:37
Pro jeden sloupec (SelectedField) to lze takto (pro vic sloupcu by to slo podobne):
var
SelectedField, PrimaryKeyFields, V, S : String;
KeyValues : Variant;
N, I : Integer;
begin (* TfmTabEdit.SeradClick(Sender: TObject); *)
try
SelectedField := DBGrid1.SelectedField.FieldName;
Table1.IndexFieldNames := SelectedField;
except
on E: EDatabaseError do
begin
if Pos('nem� ��dn� index pro pole', (E as EDataBaseError).message) > 0 then
try
try
Table1.IndexDefs.Update;
PrimaryKeyFields := Table1.IndexDefs.Items[0].Fields;
if pos(';', PrimaryKeyFields) = 0 then
KeyValues := Table1[PrimaryKeyFields]
else
begin
N := 0;
S := PrimaryKeyFields;
while length(S) > 1 do
begin
N := N + 1;
if pos(';', S) > 0 then
S := copy(S, pos(';', S) + 1, length(S) - pos(';', S))
else
S := '';
end;
KeyValues := VarArrayCreate([0,N - 1], varVariant);
S := PrimaryKeyFields;
for I := 0 to N - 1 do
begin
if pos(';', S) > 0 then
begin
KeyValues[I] := Table1[copy(S, 1 , pos(';', S) - 1)];
S := copy(S, pos(';', S) + 1, length(S) - pos(';', S));
end
else
KeyValues[I] := Table1[S];
end;
end;
Table1.Close;
Table1.AddIndex(WIndex + SelectedField, SelectedField, [ixCaseInsensitive]);
Table1.IndexFieldNames := SelectedField;
except
on E : EDataBaseError do
begin
CzDBErrors(E, Table1);
SysUtils.Abort;
end;
end;
finally
if Table1.Active = false then
begin
Table1.Open;
Table1.Locate(PrimaryKeyFields, KeyValues,[]);
{nastavit puvodni vybrane pole}
end;
end;
end;
end;
-----Original Message-----
From: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Sent: Wednesday, May 27, 1998 2:13 PM
To: DELPHI Distribution List
Subject: T��d�n�
Importance: Low
Mam takovy problem.
Potrebuji ve sve aplikaci tridit databazi (jedno jakou DBASE, PARADOX,
ACCESS, atd.) podle jakekoliv polozky (i podle vice polozek najednou).
Potrebuji to pro komponentu TTable, takze asi budu muset dynamicky vytvaret
indexy coz se mi zatim nedari.
Ma nekdo hotove nejake reseni ?
Diky Vita
TDBGrid
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 27.5.1998 19:28:04
On Wednesday, May 27, 1998 4:28 PM, Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
wrote:
> Marek Prokop wrote:
>
> > Problem je v tom, ze popsanym postupem nedosahnu toho, aby se to
> > pole v DbGridu chovalo opravdu jako ComboBox. Ma to 2 zasadni
> > nedostatky:
> >
> > 1. Nemohu udelat lookup field na sebe sama, tj. takovy, ktery by v
> > comboboxu nad cizim klicem nabizel vsechny hodnoty primarniho klice
> > v lookup tabulce.
>
> Ted nerozumim, jak jsi to myslel. Ze nelze z T1 udelat lookup na
> nejake pole v T1?
>
Ne, mam na mysli lookup z T1 kde je sloupec C pouzit jako cizi klic na
sloupec C v T2, kde je to primarni klic.
Typicky priklad:
Mas nejaky ciselnik, treba cenik - to je ta T2 a primarni klic je
Kod_zbozi.
Pak mas objednavky - T1 a tam je ten Kod_zbozi jako cizi klic.
No a ted mas editovat v gridu objednavky (T1) a chces, aby se ti v
comboboxu pro sloupec Kod_zbozi nabizely vsechny existujici hodnoty tohoto
sloupce v ceniku, tj. T2. Pomoci lookup fieldu dosahnes toho, aby se z T2
nabizely napr. nazvy toho zbozi, ale ne ten kod, tj. ten sloupec, pres
ktery je lookup svazan.
> > 2. Seznam comboboxu v tomto pripade (na rozdil od opravdoveho
> > TComboBox) neumoznuje zobrazeni vice sloupcu.
>
> Hm. A zkousel sis napriklad zalozit calculated field a v jeho
> OnGetText priradit do Text co potrebujes a pak na toto udelat lookup?
>
To samozrejme jde, jenze to by se mi pak hodnota toho vypocitaneho pole
zobrazovala i v tom gridu, nejenom v seznamu. Ja potrebuji, aby dle
prikladu uvedeneho vyse byl v urcitem sloupci gridu pro editaci objednavky
jen ten kod zbozi (jeho nazev jako needitovatelny lookup tam klidne muze
byt v jinem sloupci taky, to je jina vec) a uzivatel ho bud napsal z hlavy,
nebo si rozbalil combo a vybral ze seznamu, kde krome kodu bude i nazev a
treba i neco dalsiho - trideno to vsak bude dle kodu.
Domivam se, ze toto je nejergonomictejsi zpusob zadavani 95% vsech odkazu
na ruzne ciselnikove kody, ale prinutit k tomu Delphi je dost tezke.
> > Protoze tyto dva nedostatky bohuzel brani temer jakemukoli rozumnemu
> > vyuziti nize popsaneho postupu, udelali jsme si na to vlastni
> > komponentu. Pokud nekdo zna skutecne pouzitelne reseni, rad se ho
> > dozvim.
>
> Souhlasim s tim, ze implementovany lookup ma radu nedostatku a neni
> dokonaly. Nesouhlasim ale s tim, ze ho nelze _jakkoliv_ rozumne
> vyuzit. Pokud dobre vis, jak funguje a jaka ma omezeni, da se s tim
> prece jen ledacos udelat.
>
Omlouvam se za prilis unahleny odsudek. Lookup fieldy jsou dobre (a
prekvapive rychle) na zobrazovani - v tom nemaji chybu. Horsi je to ale s
tou editaci.
Marek Prokop
Printer.Abort
[*] psoft <psoft(zv)kosice.telecom.sk> - 27.5.1998 19:39:54
>
> Potreboval jsem napsat jednoduchy radkovy tisk pomoci AssignPrn a Writeln.
> Problem nastava v okamziku kdyz chci tisk prerusit, volani Printer.Abort
> zpusobi vyjimku a aplikace skonci. Nakonec jsem dospel k jednoduchemu
> priladu ktery taktez nefunguje:
>
> Printer.BeginDoc;
> if Printer.Printing then Printer.Abort;
> Printer.EndDoc;
Po Printer.Abort uz nie je potrebne volat Printer.EndDoc ... Vzdy
volame len jedno z tych dvoch...
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Click vs doubleclick
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 27.5.1998 20:11:16
Mam tento problem: potrebuju rozlisit click a doubleclick. Na Click chci vyvolat jednu akci
a na DoubleClick jinou. Myslel jsem si, ze to musi byt jednoduche, ale narazil jsem.
Existuji tri udalosti WM_LBUTTONDOWN, WM_LBUTTONUP a WM_LBUTTONDBLCLK
Kdyz kliknu mysi jednou, tak se vyvolaji v tomto poradi: WM_LBUTTONDOWN a
WM_LBUTTONUP
Kdyz doubleclicknu, tak se vyvolaji v tomhle poradi:WM_LBUTTONDOWN,
WM_LBUTTONUP, WM_DBLCLK a WM_LBUTTONUP
Nevim, jak odchytavanim techto udalosti zareaguji spravne a ne tak, ze na doubleclick
spustim obe akce.
Myslel jsem si, ze to okoukam ze zdrojaku Delphi. Kazdy objekt ma prece udalost
OnClick a OnDblClick. Jenze bohuzel: pri doubleclicku se mi vyvolaji obe udalosti.
Prece to nemuze byt tak tezke. Vsude ve Windowsech se s tim clovek setkava, ze click
proveden nejakou akci a doubleclick jinou. Ja ale proste po dvou hodinach prace nevim.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Data u TTreeNode
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 27.5.1998 20:34:30
Zdravim vsechny v teto konferenci,
mel bych jeden dotaz.
Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze TTreeNode obsahuje
property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
zadam a vlozim ukazatel do vlastnosti Data.
Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu a
postupne je zase uvolnovat, ale nevim jak.
Neporadil by mi nekdo prosim (nebo jiny zpusob)?
Dekuji vsem predem za odpovedi
Ricky...
rick.strunc(zv)writeme.com
rick.strunc(zv)email(tec)cz
komponenty QRMemo a QRRichText
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 27.5.1998 20:45:17
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj
mam takovy problem v D3 s komponentama QRMemo a QRRichText do kterych vlozim delsi TStrings.
Pri nahledu na monitoru je vse OK, ale pri tisku je to spatne. Chybeji na konci odstavcu slova nebo se tisknou nektere radky pres sebe.
Dalsi problem mam v tom, ze potrebuji aby to na monitoru i nasledne na ruznych tiskarnach vypadalo stejne.
Predem dekuji za kazdou dobrou radu.
PS: nejsem moc zkuseny programator jako vetsina z Vas, tak prosim polopaticky. Dekuji.
Standa Cerny
s.cerny(zv)mod(tec)cz
tel. 048/510 04 20
048/510 49 85
Zapis do souboru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 27.5.1998 20:46:48
Ing. Jahoda Jaroslav wrote:
> > > CreateFile(....)
> > > CreateFileMapping(...)
> > > MapViewOfFile(....)
>
> Ale k Vasemu dotazu. Pokud chci zvetsit soubor, tak s tim musim
> pocitat v dobe, kdy vole CreateFileMapping a tam dam maximalni
> velikost, se kterou budu pracovat a on !!!ihned!!!! alokuje potrebny
> prostor na disku. Po ukonceni je potreba soubor zase zkratit na
> aktualni velikost. Holt nekde ziskam a nekde ztratim.
No jo, skutecne, diky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Data u TTreeNode
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 27.5.1998 20:51:07
> mel bych jeden dotaz.
> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze
> TTreeNode obsahuje
> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
> zadam a vlozim ukazatel do vlastnosti Data.
> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu a
> postupne je zase uvolnovat, ale nevim jak.
> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
Jestli ti staci jeden integer ke kazdymu nodu tak naprosto jednoduse:
Node.Data := pointer(MujInt);
I := integer(Node.Data);
Proste pointer a integer jsou stejne velky a muzes je navzajem pretypovat
McLEI
NW vs NT (bylo:Databazy a aplikacie)
[*] �ke��k Jaroslav�������6�����̿ - 27.5.1998 21:19:49
Mam podobny nazor a na zlate Atari tez rad nostalgicky vzpominam.
Jo kde jsou ty casy kdyz jsem z magnetaku nahraval 1/2 hodiny
jednu super hru. To uz je dnes pocitacovy pravek. Ale ty pocity stesti
a dokonalosti se uz nikdy nevrati. Je to jak s prvni laskou.
Jaro
-------------
>
>Mimochodem nejlepsi stejne bylo Atari 800XL !!! A vite proc? Protoze
>bylo moje, moje prvni pocitadylko a protoze nejsem objektivni. PROTO!
>
>Howg...
>
>Martin Kubecka
trideni
[*] Jiri Binder <binderj(zv)dec59.ruk.cuni(tec)cz> - 27.5.1998 21:54:52
>
> Potrebuji ve sve aplikaci tridit databazi (jedno jakou DBASE, PARADOX,
> ACCESS, atd.) podle jakekoliv polozky (i podle vice polozek najednou).
> Potrebuji to pro komponentu TTable, takze asi budu muset dynamicky vytvaret
> indexy coz se mi zatim nedari.
> Ma nekdo hotove nejake reseni ?
>
Metoda TTable.AddIndex(...) , podrobnosti v helpu, funguje to.
Jiri Binder
Jmeno uzivatele
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 27.5.1998 21:58:16
IPH> Cau,
IPH> nevite nekdo, jak poslat serveru MSSQL 6.5 jmeno uzivatele, ktery se pres ODBC pripojil na databazi. Pokud pouziju borlandsky linky, tak to pomoci APPLICATION NAME v BDE dokazu, ale pres ODBC nic takoveho nejde.
IPH> Dik Pavel
No s ODBC je to naprosto jednoduchy. ODCB drivery maji neco co
se jmenuje Connect String a v tomto connect stringu se udava jmeno
serveru, typ serveru, JMENO A HESLO uzivatele, jmeno Database na
serveru a dalsi veci.
Uz nevim jak presne se to pise... mrkni se do nejakeho helpu ale melo
by to vypadat nejak takhle
ConnectString := 'Server:TESTE;DATABASE:DEVELOP;USR:ARNOST;PSWD:;ODBC:MSSQL'
Opravdu si nemuzu spomenout jak se to presne dela, ale doufam, ze
aspon tento maly navod trochu pomuze.
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Re[4]: OLE
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 27.5.1998 22:03:50
>> He he he :-)
>>
>> Zkuste si to precist taky nekdy pod NT, kde neni nainstalovana
>> cestina.
>>
>> Best regards,
>> Hubert
>> mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>>
IJJ> A co ti brani nastavit v Regional settings - czech
Zkuste si nastavit Regional settings na czech, kdyz mate nejaky soft,
ktery nepodporuje narodni prostredi atd... Pak se nekdy clovek pekne
divy, co ze se mu to na tom kompu deje.
Jinak problem je v tom,(nevim zda ma nekdo podobny), ale pokud je
regional settings na czech a je tam i na tom kompu MSSQL 6.5, tak se
nam stalo, ze ten SQL server absolutne nezvlada praci s DATE a
DATETIME.
Export to EXCEL
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 27.5.1998 22:07:12
Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
a tudiz ani jeho OLE servery?
Nezna nekdo strukturu .XLS souboru?
Diky za vsechno co vas napadne (aspon trochu smysluplneho)
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
UnRAR.dll
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 27.5.1998 22:20:47
Ahoj Delphici,
mel bych na vas jednu nutnou prosbu. Muze mi nekdo, prosim, poslat
nejaky DELPHI priklad na pouziti unrar.dll souboru?
Nejak jsem se nebyl schopen vysekat z toho navodu :-((.
Prosim prosim, smutne koukam ...
Peter
peterrus(zv)intesys(tec)cz
www.intesys(tec)cz
ps. Zejmena me zajima priklad, kde by se pouzilo zadavani hesla pro
archiv jako parametru.NW vs NT (bylo:Databazy a aplikacie)
[*] �ke��k Jaroslav�������6�����̿ - 27.5.1998 22:58:06
Myslel jsem, ze uz se do toho nebudu plest.
Zda se mi vsak, ze to prerostlo ve valku zastancu NW a NT.
Tak rozdilne nazory na kvalitu a spolehlivost obou systemu
se daji vyslvetlit snad jenom spolehlivosti pouziteho hardware
nebo schopnosti "sparavcu".
Vyseknul jsem zde dva nazory na spolehlivost NT, viz nize.
Moje zkusenosti jsou zcela jine.
Zajistuji sparavu WinNT na serveru Dell. Krome sluzeb File
serveru tam bezi ORACLE a je k tomu pripojeno pres 130 PC.
Za vice nez 1.5 roku k tomu serveru nikdo neprisel!
Nikdo nemusi delat ani preventivni restarty po 6 mesicich.
Nevim jaky to muze mit smysl. Server se zresetoval asi jenom
jednou pri dlouhodobem vypadku proudu jednou v nedeli,
kdyz uz nevydrzel ani zdroj UPS. V pondeli, kdyz uz proud sel,
nikdo nic nevedel! Vse nabehlo automaticky bez zasahu kohokoliv.
Prisel jsem na to az dodatecne pri vz�lem�m monitoringu.
Na serveru je uz asi pekna vrstva prachu. Nevim - nikdo tam
proste nechodi. Majitel si mozna ani nepamatuje, kde je server
umisten. Nedavno jsme na toto tema dali rec.
Mel problem najit klic! Kdo neveri, at tam bezi.
Podobnou zkusenost mam i u dalsiho zakaznika.
Panove! jestli Vam to porad pada, tak to bude bud v hardware
nebo v rukach. Jestli vam to chodi pomalu se sesti pocitaci,
tak to bude asi problem stejneho druhu.
Jak se zda, kdyz dva delaji totez, neni to vzdy totez.
Z toho je videt, ze vechny osobni nazory a zkusenosti
mohou byt silne subjektivni a zkreslene osobnimi uspechy a neuspechy.
Kdyz nekdo dela 6 let v NW, tak se ani nedivim, ze mu NT mozna
dela zpocatku problemy. Proto to jeste nemusi byt spatny system.
Pokud vam to nefunguje v kuse dele jak 20 dni, tak byste se mel zamyslet,
ale ne nad spolehlivosti NT nybrz neceho jineho.
Myslim, ze zakladem pro spolehlivou praci serveru je spolehlivy hardware.
Kdyz nekdo pouzije "nadupane" noname pececko do role serveru, tak je
pak treba nespokojenej.
Jaro.
1 -----
Neda mi to, abych se nepripojil k teto flamewar.
Za 6 let, co pracuji s NW, se mi jeste nestalo, ze bych prisel o data
jinou cestou, nez ze je nekdo smazal (staci nastavit prava).
Naopak NT neustale zlobi, na disku mnohdy vidim soubory, ktere nemohu
otevrit, smazat, ... i kdyz je prokazatelne nikdo nepouziva.
(po restartu NT soubor bud neni, nebo jde smazat). O stabilite
muhu rici jen to, ze u NW neni vyjimkou bezproblemovy provoz
6 - 9 mesicu bez restartu, u NT se nam zatim podarilo asi tak 20 dni.
2----
>bezi tak, ze se o nich nevi. Pouze preventivne se jednou za 6 mesicu shodi
a
>znovu najedou.
>Dale tu mam NT, ktery dela vice mene jen radic plotru (na tisk map) a stim
>jsou jen problemy. Po asi 3 mesicich nutna reinstalace, obcas se k nemu
neda
>prihlasit (restart) a tak podobne. My jako spravcove pouzivame na svych
>stanicich NT a opet jen a jen pakarna. Clovek nevi dne ani hodiny, kdy to
>klekne.
>Kolega v knihovne ma server na NT a pokud se mu tam jako k filesystemu
prihlasi
>6 lidi, tak si mohou dat vsichni kafe (na muj hlavni NW server jic leze 140
a v >pohode)
CPU speed ...
[*] �ke��k Jaroslav�������6�����̿ - 27.5.1998 23:15:47
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Funguje bezva dik
Jaro
******
Viem ze pred casom tu bezala ziva debata ohladne vypoctu rychlosti
procesora.
Vcera som narazil na jednoduchu funkciu pre vypocet rychlosti a tak ma
napadlo
ze by to snad mohlo niekomu posluzit.
Skusal som to na AMD a Intel a vratilo mi to tu rychlost ktoru som
ocakaval.
Marian
******
procedure TForm1.Button1Click(Sender: TObject);
var
t: DWORD;
mhi, mlo, nhi, nlo: DWORD;
vysl,t0, t1, chi, clo, shr32: Comp;
begin
shr32 := 65536;
shr32 := shr32 * 65536;
t := GetTickCount;
while t = GetTickCount do begin end;
asm
DB 0FH
DB 031H
mov mhi,edx
mov mlo,eax
end;
while GetTickCount < (t + 1000) do begin end;
asm
DB 0FH
DB 031H
mov nhi,edx
mov nlo,eax
end;
chi := mhi; if mhi < 0 then chi := chi + shr32;
clo := mlo; if mlo < 0 then clo := clo + shr32;
t0 := chi * shr32 + clo;
chi := nhi; if nhi < 0 then chi := chi + shr32;
clo := nlo; if nlo < 0 then clo := clo + shr32;
t1 := chi * shr32 + clo;
vysl := (t1 - t0) / 1E6;
MessageDlg(Format('%.1f MHz', [vysl]), mtConfirmation, [mbOk], 0);
end;
NW vs NT (bylo:Databazy a aplikacie)
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 27.5.1998 23:25:07
Zdravim,
Vy jste mel taky Atari? Tome tesi. Mel jsem rad to 8-mi bitove udelatko,
na tom se clovek naucil setrit pameti a vykonem!
Hry tam byly taky lepsi, nez dnesni 2-10CDckova mostra pro P-II
to jenom tak, na uvolneni....
fronek(zv)fic(tec)cz
>
> Mam podobny nazor a na zlate Atari tez rad nostalgicky vzpominam.
> Jo kde jsou ty casy kdyz jsem z magnetaku nahraval 1/2 hodiny
> jednu super hru. To uz je dnes pocitacovy pravek. Ale ty pocity stesti
> a dokonalosti se uz nikdy nevrati. Je to jak s prvni laskou.
> Jaro
Data u TTreeNode
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 27.5.1998 23:38:58
>> mel bych jeden dotaz.
>> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze
>> TTreeNode obsahuje
>> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
>> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
>> zadam a vlozim ukazatel do vlastnosti Data.
>> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
>> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu
a
>> postupne je zase uvolnovat, ale nevim jak.
>> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
>
>Jestli ti staci jeden integer ke kazdymu nodu tak naprosto jednoduse:
>
> Node.Data := pointer(MujInt);
>
> I := integer(Node.Data);
>
>Proste pointer a integer jsou stejne velky a muzes je navzajem pretypovat
>
> McLEI
Dekuju ti moc. Zatim to funguje (co jsem zkousel). Ale zkousel jsem to samy
se stringem
Node.Data:=pointer(Edit1.Text);
Label.Caption:=string(Node.Data);
ale nejak mi to blbne. Nevis cim by to mohlo byt?
Diky
Ricky...
rick.strunc(zv)writeme.com
rick.strunc(zv)email(tec)cz
Borland database engine
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.5.1998 23:46:24
> Vedel by mi niekto povedat kde je mozne ziskat instalacku
> Borland database engine v 3.0 ?
> Pokial viem, malo by to byt volne siritelne.
BDE 2.x dodavane s Delphi 1 jsou dve instalacni diskety.
Jakekoli novejsi BDE dodavane pro Delphi2/3 si muzes lehce
pripravit v Delphi 2/3 napr. pomoci InstallShield Express,
pripadne nejake aktualizace stahnout z Webu Inprise.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Locate: bug or feature?
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 27.5.1998 23:48:26 -0700
>
>> Prikaz Locate nepracuje tak, ako ma!
>>
>> Ak mam tabulku so zlozenym primarnym klucom na poliach ID1 a ID2 a
>> tabulka je cez ID1 nalinkovana ako detail tabulka, locate pri
>> vyhladavani v ID2 postupuje nespravne. Nakolko zisti, ze ID2 je pole v
>> indexe, zacne vyhladavat v indexe, avsak hodnoty v ID2 sa mozu
>> opakovat. Vysledok je ten, ze sice najde hodnotu v ID2, ale zrovna mu
>> nepadne do mnoziny zaznamov vybraneho detailu, tak sa zatvari, ze
>> nenasiel nic.
>>
>> Priklad:
>> ID1* ID2*
>> 1 1
>> 1 2
>> 1 3
>> 2 1
>> 2 2
>> 2 3
>>
>> Ak je id master tabulky = 2, locate nenajde ziadnu hodnotu z ID2 (vzdy
>> najde taku, kt. ID1=1 a ta mu nepadne do vyberu).
>>
>> Stretli ste sa s tymto? Vie niekto ako to obist - samozrejme, okrem
>> sposobu zahrnutia kluca ID1 do vyhladavania. Nad neindexovymi
>> polozkami vyhladava locate spravne - najde ich priamo vo vybere. Da sa
>> locateu vnutit, aby nepouzil index?
>>
> Locate jsem pouzival casto, ale zjistil jsem ze je strasne
>pomaly. Dokonce pro TQuery.Locate je primo strasne pomaly, ale to neni
>dotaz.
>
> Locate('id1;id2', VarArrayOf([value1, value2]), [])
>
> mi funguje zcela normalne.
... aj mne. Problem je s Locate( 'id2', value2, [] ). Tento prikaz nenajde hodnotu value2 v id2, ak je (v sulade s uvedenym prikladom) id2=1 a detail tabulka je nastavena na id1=2. Myslim, ze je to prave pouzitim vyhladavania v indexe a naslednym zistenim, ze najdeny riadok nepatri do zobrazovaneho detailu. Uvedeny Locate by sa mal interne prelozit na Locate( 'id1;id2', VarArrayOf([value1,value2]),[]), co sa vsak nestane a hodnota sa preto nenajde.>
> V VCL (dbtables.pas) je chyba a to v pripade, kdyz pouzivam
>pouze jednoduchy index je v metode LocateRecord
>
> if FieldCount = 1 then
> TField(Fields.First).Value := KeyValues
> else
> for I := 0 to FieldCount - 1 do
> TField(Fields[I]).Value := KeyValues[I];
>
> a ma byt
>
> if FieldCount = 1 then
> TField(Fields.First).Value := KeyValues[0]
> else
> for I := 0 to FieldCount - 1 do
> TField(Fields[I]).Value := KeyValues[I];
>
> Je to logicky a hlavne to funguje.
>
> J.Jahoda
>
>> Get your FREE, private e-mail
>> account at http://www.mailcity.com
>
Get your FREE, private e-mail
account at http://www.mailcity.com
Export to EXCEL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.5.1998 00:06:36
> Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
> a tudiz ani jeho OLE servery?
> Nezna nekdo strukturu .XLS souboru?
>
> Diky za vsechno co vas napadne (aspon trochu smysluplneho)
Pracoval s Excel tabulkou do jiste miry jde pomoci FormilaONE - to je ten
VBX v Delphi 1 RadPacku, resp. OCX v Delphi 2, ted nevim, jestli je to
take v Delphi 3. Samozrejme ten OCX je lepsi nez VBX, protoze je novejsi
a umi vice veci.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Data u TTreeNode
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.5.1998 00:06:36
> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze TTreeNode obsahuje
> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
> zadam a vlozim ukazatel do vlastnosti Data.
> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu a
> postupne je zase uvolnovat, ale nevim jak.
> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
1. Pokud je to cislo treba Longint, muzes ho primo nacpat do Data misto Pointeru
a mas to vyresene.
2. Pokud je to cislo treba Double nebo vice cisel, pak je to nejlepsi udelat
tak, ze dynamicky si vytvoris promennou resp. objekt. Ja to delam objektem,
tam si pak muzes delat, co chces. Proste dynamicky vytvoris objekt a priradis
ukazatel na nej do Data.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Fajnovost
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 28.5.1998 01:11:23 -0700
Trochu pesimizmu:
nase jazyky su predsa len dost pribuzne, takze dovolim si malu pesimisticku poznamku: asi pred dvoma rokmi riesil moj kamarat podobny problem pre SAV - islo o zvladnutie vytvarania viacerych druhov slovnych tvarov v slovencine, a dost som sa skodoradostne nasmial, ked mu zo slova "macka" program vytvoril privlastok "mackaci". Zrejme aj cestina obsahuje plno vynimiek, takze takato "fajnovost" je asi dost draha zalezitost.>Hi,
>
>Rad bych do sveho programu udelal jednu fajnovost a potreboval bych
>nejakou komponentu, ktera by umela sklonovat
>
>nejakou takovouhle funkci
>
>function Funkce(Slovo: string; Pad: Integer): string;
>
>Funkce('Auto', 2) = 'Auta'
>
>ale taky
>
>Funkce('Jeden poslanec', 2) = 'Jednoho poslance'
>
>Existuje neco takovyho v Ceskych zemich?
>
>Ing. Jaroslav Jahoda
>Lesprojekt-Sluzby s.r.o.
>Nabrezni 1326
>Brandys nad Labem 250 01
>tel. +420 202 800152, fax. +420 202 800161
>email: jahoda(zv)lesprojekt(tec)cz
>http://www.lesprojekt(tec)cz/
>delphi - http://www.lesprojekt(tec)cz/delphi/
>
>
Get your FREE, private e-mail
account at http://www.mailcity.com
<none>
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 28.5.1998 01:40:39
Mam maly (velky a mozna i trapne jednoduchy) dotaz!
Potrebuji ve stringu nahradit tabulatory (Chr(9)) odpovidajicim poctem
mezer. Ale vubec nevim jak nato. Nevim totiz jak poznam kolik mezer
mam dat za ten tabulator podle toho na kterem miste se v tom stringu
nachazi. Nejdrive jsem si myslel, ze tabulator skace po 8 znacich, ale
kdyz jsou vedle sebe 2 tabulatory, tak je to zas jinak.
Diky za vse
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Export to EXCEL
[*] Jan Rovner <rovner4(zv)hermes.zcu(tec)cz> - 28.5.1998 02:55:43 -0500
>Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
>a tudiz ani jeho OLE servery?
>Nezna nekdo strukturu .XLS souboru?
>
>Diky za vsechno co vas napadne (aspon trochu smysluplneho)
Ja pouzivam TTable napojeny na ODBC ovladac MS-Excel z MS Office.
Upozornuji predem, ze ale neni zadna legrace zkonfigurovat programove
ODBC datasource (to co se dela v ovl.panelech - napr. kde bude dotycny
XLS soubor umisten).
Nevim, jak je to s licencemi - zda je mozne nekde stahnout zdarma instalaci
tohoto ovladace.
Jan Rovner
Jak v multiuser prostredi zamykat Paradoxni tabulk
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 28.5.1998 04:07:19 -0700
>Bohuslav Svancara wrote:
>
>> At je to ten nebo ten, hlavni problem je ale jiny: Pokud nejaky jiny
>> uzivatel v siti edituje nejakou vetu tabulky, nepodari se udelat LockTable
>> (ani ltReadLock ani ltWriteLock). BDE zahlasi, ze uzivatel ten a ten ma
>> tabulku zamknutou.
>> Takze tabulka nejde pred vypoctem zamknout a vypocet spustit, dokud treba
>> jen jediny uzivatel v siti tabulku edituje. Coz znamena, ze pokud je
>> uzivatelu dostatecny pocet, nemusi to jit nikdy. Nebo to znamena pockat, az
>> se ten clovek z vedlejsi zamcene kancelare, ktery drzi tabulku v editacnim
>> modu, vrati z obeda.
>>
>
>Hmm, priznam sa ze som v rozpakoch. Ja robim aplikacie tak, ze editaciu
>tabulky
>robim zasadne v druhom formulari a najlepsie ako prevedene hodnoty do
>poloziek
>TEdit.
>Kedze si z tabulky iba cital, nie je zamknuta v rezime editacie. Po
>editacii
>poli v tom druhom
>formulari mozes dat trebars na tlacitko TButton nejaku takuto akciu:
>
>try
> MyTable.Edit;
> MyTableField1.AsString:=mojstring;
> MyTable.Post;
>except
> MessageBox('Udaje sa nedaju zapisat, pretoze zrovna prebieha vypocet!
>Pockajte chvilu prosim...', mb_OK);
>end;
>
>
>Je to z hlavy, takze tam mozu byt chyby, ale princip si hadam pochopil a
>to, ze
>needituj tabulku priamo v TDBGrid.
>Daj do DBGrid flag ReadOnly.
>
>BTree-Filer poznam a tam to predsa robia zrovna tak, nie? Takze ak to
>vies tak
>urobit v DOSe, tak to tak urob aj
>v Delphi.
>
>cau, Baca.
>
A co takto pouzivat cacheovane updaty? Princip je ten isty - edituje sa v bufferoch, zapisuje sa naraz - akurat, ze je to uz hotove a nemusis to znovu programovat v specialnych obrazovkach...
Get your FREE, private e-mail
account at http://www.mailcity.com
Inverzni vyber pomoci SQL
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 28.5.1998 04:45:58 -0700
>Hello Jan,
>
>JN> Zdravim vsechny,
>JN> mam nasledujici dotaz: mam 2 tabulky a potrebuji vybrat zaznamy z tabulky 1,
>JN> ktere nejsou obsazeny v tabulce 2. Lze to ucinit pomoci SQL dotazu (nad
>JN> tabulkami paradoxu)? Zatim nevim jakl. Samozrejme se to da resit
>JN> jinak. Me by zajimalo, zda to lze nejak jednoduse ucinit pomoci SQL.
>
>JN> Za pripadne namety predem dekuji.
>JN> Honza Naiser.
>
>JN> ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
>JN> ing. Jan Naiser, Karle1, 569 58 KARLE
>JN> E-mail: tua(zv)ltm(tec)cz
>JN> Tel.: 0603519443, 0464634124
>JN> ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
>
>
>Ten vyber budes delat dle ceho? Dle nejakeho sloupce a nebo proste
>podle vsech.
>
>Pokud to budes delat podle podle urciteho sloupce, tak to je uplne
>jednoduchy.
>
>SELECT sloupec
>FROM table1
>WHERE sloupec NOT IN (SELECT sloupec FROM table2)
>
>no a pokud se nemylim, tak v SQL 92 (a nebo pozdejsi to nevim) je
>uvazovano o prikazu pro rozdil mnozin. Ale to tezko pouzijes v
>Paradoxu. :-(
>
>Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>
>
>... no a na viac poli sa da pouzit
SELECT sloupec
FROM table1 t1
WHERE NOT EXISTS (SELECT * FROM table2 t2 WHERE t2.pole1=t1.pole1 AND t2.pole2 = t1.pole2 AND ...)
Get your FREE, private e-mail
account at http://www.mailcity.com
komponenty QRMemo a QRRichText
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 28.5.1998 05:12:06 -0700
>Ahoj=20
>mam takovy problem v D3 s komponentama QRMemo a QRRichText do kterych =
>vlozim delsi TStrings.
>Pri nahledu na monitoru je vse OK, ale pri tisku je to spatne. Chybeji =
>na konci odstavcu slova nebo se tisknou nektere radky pres sebe.
>Dalsi problem mam v tom, ze potrebuji aby to na monitoru i nasledne na =
>ruznych tiskarnach vypadalo stejne.
>
>Predem dekuji za kazdou dobrou radu.
>
>PS: nejsem moc zkuseny programator jako vetsina z Vas, tak prosim =
>polopaticky. Dekuji.=20
>
>
>Standa Cerny
>s.cerny(zv)mod(tec)cz
>tel. 048/510 04 20
> 048/510 49 85
>
>
Stiahni si novu verziu QReports na www.qusoft.com.
Tato verzia neriesi nasledovne:
a) tlac nevyzera tak ako preview (kvoli zalamovaniu)
b) stale je tam chyba s tlacou posledneho riadku.
Nedavno som stiahol jeden komponent aj so zdrojakmi pre tlac RTF aj s logom apod. a podarilo sa mi ho upravit tak, ze tlaci presne riadky z DBRichEditu, takze zalamovanie riadkov na obrazovke je totozne so zalamovanim riadkov na tlaciarni. Problem je v tom, ze ked chcem tlacit viacero zaznamov v databaze, musim ich predtym presypat cez DBRichEdit a navyse som tento komponent vysoko customizoval pre vlastne potreby. Ale ak mas zaujem, mozem ti ho poslat, pripadne zalistuj v archive konferencie pod heslom "RichEdit", "RTF" apod., pretoze o tomto komponente som sa dozvedel na tejto konferencii. Tusim, ze ten komponent je niekde na delphi deli...
Get your FREE, private e-mail
account at http://www.mailcity.com
FoxPro
[*] m_falan(zv)pobox.sk (Martin Falan) - 28.5.1998 07:04:31
Zdravim Vsetkych v konferencii.
Mozno to nepatri do tejto konferencie, ale myslim ze vecsina z ucastnikov ma bohate skusenosti s databazovymi systemami.
Mam aplikaciu napisanu pre FoxPro 2.0.
Vie bezat v 16bit aj v 32bit rezime, podla toho aky runtime je k dispozicii. A prave v tom je problem . V 32 bit. rezime mi
bezi iba na starsich pocitacoch, tak do Pentia 150MHz.
U novsich pocitacoch to bezi iba s 16 bit. runtime.
A v tomto rezime sa mi casto ruca pre nedostatok pameti.
Pouzivam siet Microsoft, net klienta pre dos a ten aj
s pouzitim QEMM spotrebuje skoro 100 KB s operacnej pameti.
V 32 bit. rezime to slape perfektne a ovela rychlejsie.
Ale preco to nejde u novych rychlich pocitacoch?
Vie to niekto vysvetlit.
Martin
m_falan(zv)pobox.sk
Dik za kazdu odpoved.
--
____________________________________
P. S. V. P. U.
http://www.pobox.sk/UnRAR.dll
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 28.5.1998 08:01:48
Hledej rararc.zip na DSP. Tam uz je hotova komponenta i se zdrojakama. Czech
made 8-).
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
>Ahoj Delphici,
>
>mel bych na vas jednu nutnou prosbu. Muze mi nekdo, prosim, poslat
>nejaky DELPHI priklad na pouziti unrar.dll souboru?
>
>Nejak jsem se nebyl schopen vysekat z toho navodu :-((.
>
>Prosim prosim, smutne koukam ...
>
>Peter
>peterrus(zv)intesys(tec)cz
>www.intesys(tec)cz
>
>ps. Zejmena me zajima priklad, kde by se pouzilo zadavani hesla pro
>archiv jako parametru.
>Fajnovost
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 28.5.1998 08:11:56
Hi,
Rad bych do sveho programu udelal jednu fajnovost a potreboval bych
nejakou komponentu, ktera by umela sklonovat
nejakou takovouhle funkci
function Funkce(Slovo: string; Pad: Integer): string;
Funkce('Auto', 2) = 'Auta'
ale taky
Funkce('Jeden poslanec', 2) = 'Jednoho poslance'
Existuje neco takovyho v Ceskych zemich?
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
delphi - http://www.lesprojekt(tec)cz/delphi/
Data u TTreeNode
[*] V�t�zslav Gazda������u��n�?��? - 28.5.1998 08:20:58
Nepotrebujes alokovat zadne promenne, protoze vlastnost Data je typu
Pointer, ktery ma velikost 4 bajty. To znamena, ze kazdy uzel jiz ma
alokovanou promennou o velikosti 4 bajty. Staci do techto 4 bajtu ulozit
tvou ciselnou hodnotu. A to jde pretypovanim. Cislo vsak musi byt maximalne
4 bajtove (Integer).
Priklad:
Zapis:
oNode.Data := Pointer(45878);
Cteni:
nNumber := Integer(oNode.Data);
Pokud chces ulozit vice jak 4 bajty ke kazdemu uzlu, tak doporucuji vytvorit
objekt, a ten priradit do vlastnosti Data:
Priklad:
TMyObject = class(TObject)
public
FText:string;
FNumber:Integer;
end;
Zapis:
oObject := TMyObject.Create;
oObject.FText := 'Nazdar';
oObject.FNumber := 45878
oNode.Data := oObject;
Cteni:
oObject := TMyObject(oNode.Data);
Vsechny objekty, ktere si vytvoril a priradil do vlastnosti Data musis take
pri skonceni uvolnit.
Vita
T��d�n� (2)
[*] V�t�zslav Gazda������u��n�?��? - 28.5.1998 08:29:58
>Ahoj, jde to pomerne jednoduse, napr. pro CUSTOMER.DB:
>Table1.Exclusive := True;
>Table1.Open;
>Table1.AddIndex(,STATE', ,State', []);
>Table1.AddIndex(,ADDR1_2', ,Addr1;Addr2', []);
>Table1.DeleteIndex(,STATE');
>Table1.DeleteIndex(,ADDR1_2');
>Table1.Close;
Jo, ale kdyz si bude chtit uzivatel setridit tabulku podle polozky, ktera
dosud neni indexovana, tak si tu tabulku bude muset otevrit exclusivne, coz
se mu ve viceuzivatelskem prostredi nemusi podarit.
Existuje nejake jine reseni, treba bez vytvareni indexu, ale pro komponentu
TTable ?
Diky Vita
TDBGrid
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.5.1998 08:32:15
Marek Prokop wrote:
> > Ted nerozumim, jak jsi to myslel. Ze nelze z T1 udelat lookup na
> > nejake pole v T1?
> >
> Ne, mam na mysli lookup z T1 kde je sloupec C pouzit jako cizi klic
> na sloupec C v T2, kde je to primarni klic. Typicky priklad: Mas
> nejaky ciselnik, treba cenik - to je ta T2 a primarni klic je
> Kod_zbozi. Pak mas objednavky - T1 a tam je ten Kod_zbozi jako cizi
> klic. No a ted mas editovat v gridu objednavky (T1) a chces, aby se
> ti v comboboxu pro sloupec Kod_zbozi nabizely vsechny existujici
> hodnoty tohoto sloupce v ceniku, tj. T2. Pomoci lookup fieldu
> dosahnes toho, aby se z T2 nabizely napr. nazvy toho zbozi, ale ne
> ten kod, tj. ten sloupec, pres ktery je lookup svazan.
Takze jsem to zkousel, a zjistil jsem, ze to funguje napr. takto: v
T1 jsem udelal lookup na T2.nazev. Pro T2.nazev jsem udelal v
OnGetText Text:=Format('%d; %s', [T2Kod_Zbozi.AsInteger,
T2nazev.AsString]). V T1look se zobrazi sice jen nazev, ale v listu
se zobrazi kod i nazev. Pri zobrazeni T2 se sice take zobrazi oboji,
ale muzes udelat compute, kde zobrazis jen nazev, a
T2nazev.visible:=false. Je to sice ponekud kostrbatejsi, ale funguje
to. I tak, proti gridum (napriklad ve VB), ktere lookup vubec
neznaji, je to stale lepsi nez dratem do oka.
> > Souhlasim s tim, ze implementovany lookup ma radu nedostatku a neni
> >
> Omlouvam se za prilis unahleny odsudek. Lookup fieldy jsou dobre (a
> prekvapive rychle) na zobrazovani - v tom nemaji chybu. Horsi je to
> ale s tou editaci.
:-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Matematicke vyrazy
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 28.5.1998 08:33:48
Tu komponentu mam, poslu ji zitra.
Zdenek Petruj wrote:
>
> Myslim ze jsem se tady na to uz nekdy davnej ptal, ale ted uz to
> skutecne potrebuju a tak znova.
> Potreboval bych zobrazovat matematicke vzorce ( zlomky, odmocniny,
> indexy, mocniny, ... atd. atd. ). Nevite nekdo o nejakych komponentach (
> za plnou cenu, shareware, freeware, zkratka cokoliv )
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
OFFT: Pravek (bolo: NW vs NT (bylo:Databazy a apli
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.5.1998 08:38:11
(Sorry za offtopic)
Zdravim vsetkych navstevnikov muzea.
Nechcem nikomu vyvracat (zaujimave slovo :-) jeho nazor na Atari alebo
Commodore,
ale predsa len hadam vsetci uznaju, ze na Sinclair ZX Spectrum nikto (ani
nic) nema.
Gumeny, vreckovy, genialny pocitacik. To bolo ono. Hry od vymyslu sveta.
Trojrozmerne namakane 30 kilobajtove zazraky...
Na druhej strane megabajtove (gigabajtove - alebo uz aj terabajtove?)
programy,
ktore v podstate nerobia nic. Toto je sucasna realita velkych strojov (aj
PC).
.......
Zatlacam slzu a s nostalgiou si spominam na chudaka ZX, ktory lezi v sufliku
a nie je
schopny uz nicoho (podarilo sa mi ho kedysi davno pri experimentoch
odpalit).
Ale este stale caka....
... a mozno raz (podobne ako Fenix) vstane a ...
Ale nechajme to....
Este raz sorry za offtopic.
Zdravim
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
-----P�vodn� zpr�va-----
Od: Martin Fronek <FRONEK(zv)FIC.CZ>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 27. m�j 1998 23:56
P�edm�t: Re: NW vs NT (bylo:Databazy a aplikacie)>Zdravim,
>
>Vy jste mel taky Atari? Tome tesi. Mel jsem rad to 8-mi bitove udelatko,
>na tom se clovek naucil setrit pameti a vykonem!
>
>Hry tam byly taky lepsi, nez dnesni 2-10CDckova mostra pro P-II
>
>to jenom tak, na uvolneni....
>
>fronek(zv)fic(tec)cz
>
>
>>
>> Mam podobny nazor a na zlate Atari tez rad nostalgicky vzpominam.
>> Jo kde jsou ty casy kdyz jsem z magnetaku nahraval 1/2 hodiny
>> jednu super hru. To uz je dnes pocitacovy pravek. Ale ty pocity stesti
>> a dokonalosti se uz nikdy nevrati. Je to jak s prvni laskou.
>> Jaro
Prepinani parent
[*] Vesna <veselyt(zv)sagas(tec)cz> - 28.5.1998 08:49:19
Pokud jsi mel na mysli vec, ze prehodis parenta, tak si ale uvedom, ze
parent slouzi jen k vykreslovani, ale uvolnovani a podobne veci dela owner.
Co kdyz zrusis form, ktery je owner toho componentu??
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 27. kv�tna 1998 17:38
P�edm�t: Prepinani parent
>Prisel jsem na celkem zajimavou vlastnost. Pokud mam dva formulare a
>chci prenest za chodu nejake komponenty z jednoho do druheho, staci
>zmenit Parent...
>Je to jakasi obdoba komponenty Notebook neno PageControl, jenze mohu mit
>kazdou stranku na jinem formulari, coz muze znacne zprehlednit
>zdrojaky....
>Zatim se zda, ze vsechno funguje, tab prepina ve spravnem poradi.....
>Takze:
>
>1. Mozna ze by to mohlo nekomu pomoct, me to napadlo jen nahodou......
>
>2. Pokud to nekdo pouziva - ma to nejake problemy?
>
>Ales
>Data u TTreeNode
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.5.1998 08:49:12
3. A pri uvolnovani vetvi (pripadne celeho TreeView) musis zabezpecit aj
uvolnenie
objektu alebo dynamickej premennej v property Data.
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160
> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze TTreeNode
obsahuje
> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
> zadam a vlozim ukazatel do vlastnosti Data.
> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu a
> postupne je zase uvolnovat, ale nevim jak.
> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
1. Pokud je to cislo treba Longint, muzes ho primo nacpat do Data misto
Pointeru
a mas to vyresene.
2. Pokud je to cislo treba Double nebo vice cisel, pak je to nejlepsi udelat
tak, ze dynamicky si vytvoris promennou resp. objekt. Ja to delam objektem,
tam si pak muzes delat, co chces. Proste dynamicky vytvoris objekt a
priradis
ukazatel na nej do Data.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
Data u TTreeNode
[*] stingp1.eti(zv)mail.cez(tec)cz - 28.5.1998 09:03:10
Hi,
se stringem ti to takhle nebude chodit nikdy. Problem je v tom,
ze typ pointer je ctyrbajtova adresa do pameti (v podstate integer),
takze pretypovani integer na pointer chodi. Typ string je nekompatibilni s
integerem,
protoze je to ukazatel na pole znaku, ukoncenych null. Takze pokud
udelas proste pretypovani integer(Nakej_string), vrati ti to pouze
ctyrbajtove
neco (ukazatel na zacatek stingu v pameti), nikoli text. Pokud chces
ukladat
do stromu stringy, opravdu si asi budes muset vytvorit objekt (staci
TStringList),
anebo dynamicky alokovat pamet pro string, a do Node.Data vrazit ukazatel
na onu pametovou oblast.
Cau Pavel
stingp1.eti(zv)mail.cez(tec)cz
rick.strunc(zv)writeme.com na 27.05.98 22:38:58
Odpov?zte pros?m - delphi(zv)pinknet(tec)cz
Komu: delphi(zv)pinknet(tec)cz
Kopie: (Na v?dom?: Stingl Pavel/2310/ETI/CEZ)
P?edm?t: Re: Data u TTreeNode
>> mel bych jeden dotaz.
>> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze
>> TTreeNode obsahuje
>> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
>> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
>> zadam a vlozim ukazatel do vlastnosti Data.
>> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
>> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu
a
>> postupne je zase uvolnovat, ale nevim jak.
>> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
>
>Jestli ti staci jeden integer ke kazdymu nodu tak naprosto jednoduse:
>
> Node.Data := pointer(MujInt);
>
> I := integer(Node.Data);
>
>Proste pointer a integer jsou stejne velky a muzes je navzajem pretypovat
>
> McLEI
Dekuju ti moc. Zatim to funguje (co jsem zkousel). Ale zkousel jsem to samy
se stringem
Node.Data:=pointer(Edit1.Text);
Label.Caption:=string(Node.Data);
ale nejak mi to blbne. Nevis cim by to mohlo byt?
Diky
Ricky...
rick.strunc(zv)writeme.com
rick.strunc(zv)email(tec)cz
Help-Asociace
[*] Vojt�ch Albrecht <supervisor(zv)unicontrols(tec)cz> - 28.5.1998 09:05:21
Zdravim vsechny Delphi-sty
Mam n�kolik dotazu kter� me trapi n�kolik dni. Pokud by n�kdo vedel ja je vyresit budu neskonale vdecny.
1) Zacal jsem do STATUSBAR psat HINT ale ouha, STATUSBAR funguje pouze v hlavnim formulari
nebo? mam napsanou klauzuli
.....
....
StatusBar1.Panel[0] := Application.ShowHint
Takze tim je to vlastne dane, ze se to nezobrazi v dalsim formulari. No jo ale jak teda nato ???
2) Napsal jsem programek pod wokna a chtel bych aby p�i poklepani v pruzkumniku aby se tento
automaticky rozbehl a provedl nejakou akci (nastaveni asociace souboru).
Exituje n�co abych nastaveni asociace provedl primo z programu nebo p�i instalaci ????? Diky za kazdou odpoved. Vojtech Albrecht
Spravce pocitacoveho systemu
supervisor(zv)unicontrols(tec)cz
Data u TTreeNode
[*] stingp1.eti(zv)mail.cez(tec)cz - 28.5.1998 09:07:17
Hi,
sorry, trosku jsem prehledl, ze pretypovavas integer na string :-0
Tady samozrejme postaci Label1.Caption := IntToStr(Integer(Node.Data))
Promin za dezorientaci
Pavel
stingp1.eti(zv)mail.cez(tec)cz
rick.strunc(zv)writeme.com na 27.05.98 22:38:58
Odpov?zte pros?m - delphi(zv)pinknet(tec)cz
Komu: delphi(zv)pinknet(tec)cz
Kopie: (Na v?dom?: Stingl Pavel/2310/ETI/CEZ)
P?edm?t: Re: Data u TTreeNode
>> mel bych jeden dotaz.
>> Zacinam pracovat s TreeView komponentou. Zjistil jsem, ze
>> TTreeNode obsahuje
>> property Data: Pointer. V tom je prave ten problem. Ke kazdemu Nodu bych
>> potreboval priradit cislo. Umim si nadeklarovat promennou, kam to cislo
>> zadam a vlozim ukazatel do vlastnosti Data.
>> Ovsem jak to mam udelat, kdyz nevim, kolik vetvi bude TreeView mit.
>> Potreboval bych si nejakym zpusobem deklarovat promenne za behu programu
a
>> postupne je zase uvolnovat, ale nevim jak.
>> Neporadil by mi nekdo prosim (nebo jiny zpusob)?
>
>Jestli ti staci jeden integer ke kazdymu nodu tak naprosto jednoduse:
>
> Node.Data := pointer(MujInt);
>
> I := integer(Node.Data);
>
>Proste pointer a integer jsou stejne velky a muzes je navzajem pretypovat
>
> McLEI
Dekuju ti moc. Zatim to funguje (co jsem zkousel). Ale zkousel jsem to samy
se stringem
Node.Data:=pointer(Edit1.Text);
Label.Caption:=string(Node.Data);
ale nejak mi to blbne. Nevis cim by to mohlo byt?
Diky
Ricky...
rick.strunc(zv)writeme.com
rick.strunc(zv)email(tec)cz
Query a CachedUpdates
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 28.5.1998 09:07:41
Zdravim,
pred nedavnem jsem resil v konferenci problem s Query a CachedUpdates.
Nedockal se vsak prilis velke pozornosti a tak to zkousim znova.
Ve zkratce ho zopakuji. Mam dve Query Q1 a Q2. Q1 vybere jisty seznam,
Q2 na zaklade primarniho klice z Q1 vybere detailni polozky a zobrazi je ve
formulari. Vysledek dotazu Q1 je zobrazen v DBGridu. V tomto gridu je po
dotazu zobrazen jen jisty pocet zaznamu potrebny pro viditelnou plochu DBGridu.
Ostatni zaznamy se dotahuji behem rolovani v gridu. Pokud vsak provedu
opravy v detalnim zaznamu ziskanem pomoci Q2 (jedna se o JEDEN konkretni
zaznam) a tyto zmeny odeslu do databaze (vse opatreno explicitni transakci)
dojde pri Database.Commit k neprijemne udalosti. System provede nejprve
kompletni dotazeni vsech zaznamu "nakousnutych" dotazem Q1 na klienta
a pak potvrdi teprve vlastni zmeny provedene v Q2. (Poradi muze byt i opacne).
Tento jev je z nekolika duvodu neprijemny:
1) Cim vetsi pocet zaznamu vraci SELECT v Query1, tim delsi je samozrejmne doba,
po kterou se provadi Commit
2) Obecne Q1 vubec nemusi souviset s Q2. Muze to byt dotaz na uplne jinou tabulku
v databazi, pripadne na vice tabulek.
Tomuto efektu zrejmne nejde zabranit. Predpokladal jsem, ze potvrzenim zmen se
rozumi pouze zmeny na zaznamech, nikoliv dokonceni SELECTu.
Urcite neni vhodne tahat na klienta stovky zaznamu spatne polozenym SELECTEM,
presto muze byt tento jev neprijemny i pri pomerne malem poctu zaznamu.
Pokud se nekdo s timto problemem setkal ozvete se prosim !
P.S. Mozna to bude zajimavejsi nez nesmyslne tahanice ohledne
WinNT versus Novell NetWare.
A kdyz uz jsme u toho, zajimalo by me zda nekdo z Vas neprovozuje
InterBase 4.2 na Novell NetWare v realnem provozu (15 - 20 klientu).
Budu vdecny za kazdy nazor, pripadne srovnani s WinNT.
S pozdravem
Rosta Podmanicky
rosta(zv)trias92(tec)cz
---------------------------------------------------------------------------------------
Trias 92 spol. s r.o. tel: +42 433 24 378
Informacni systemy fax: +42 433 23 134
Sv.Cecha 253
506 01 Jicin E-mail: trias92(zv)trias92(tec)cz
Czech Republic http://www.trias92(tec)cz
--------------------------------------------------------------------------------------
Export to EXCEL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.5.1998 09:20:15
Hubert wrote:
>
> Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
> a tudiz ani jeho OLE servery?
> Nezna nekdo strukturu .XLS souboru?
>
> Diky za vsechno co vas napadne (aspon trochu smysluplneho)
>
>
> Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Ahoj,
S Delphi je dodavana ActiveX komponenta FormulaOne verze 3.0, je to ale
neregistrovana verze, plnou by jsis musel zaplatit. Nicmenene i tato verze
umoznuje alespon zakladni operace. Nejvetsi problem je ale v tom, ze plna (!) verze
teto komponenty umi export/import z Excelu 4 a 5, nicemene u verze dodavane s Delphi
to neni zaruceno. Zkousel jsem to a bohuzel se potvrdilo ze predevsim s ctenim
jsou urcite potize. Ale ukladani do formatu Excel 5.0 fungovalo relativne bez
problemu. Dalsim nedostatkem je ze to natvrdo nastavuje font charset na west,
takze vetsinu fontu nelze pouzit :-(
Co se tyce formatu ruznych souboru, tak ty najdes na
(http://www.wotsit.demon.co.uk/),
ale spis bych se zkusil poohlednout po nejakem hotovem reseni. Petr Vones, amatersky programator
Stored procedure
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 28.5.1998 09:43:41
Ahoj Delphini,
mam nasledujici problem s nacitanim parametru ulozenych procedur.
Za behu programu si potrebuji vytvaret a uvolnovat objekty TStoredProc a napojovat je na ulozene procedy na MS SQL 6.5 serveru.
Udelam Create. A ted potrebuji naplnit typ jednotlivych parametru (Input, Output, ...). ABych to mohl udelat, tak musim seznam parametru nejak ze serveru nacist. Jak? Logicke se mi zda Prepare, jenze to hlasi nejakou exception. Takze jsem to nepekne "osulil" (priblizne) takto.
var a:TStoredProc;
nastalachyba : boolean;
begin
a.Create ...
...
nastalachyba := true;
try
a.Prepare;
except
try
... naplnim typ parametru Input/Output/...
... zajimave je, ze prvni neuspesne volani Prepare zpusobilo, ze si program
osahal seznam parametru na serveru.
Prepare;
nastalachyba := false;
except
nastalachyba := true;
end;
end;
if nastalachyba then
ShowMessage ('BUBUBU');
Je to reseni, ktere funguje, ale je nepekne a zbytecne se tam 2x vola Prepare.
Kdyby nekdo z Vas vedel o nejakem "rozumnejsim" reseni, budu mu vdecen.
S pozdravem, Ladislav Nagy
Stored procedure + MS SQL
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 28.5.1998 09:46:16
A jeste jednou k ulozenym proceduram
Vyberu-li vizualne jmeno procedury ulozene na MS SQL 6.5, tak se mi tam zobrazi
sp_JMENO;1
kde sp_JMENO je jmeno ulozene procedury
Co ale znamena to ;1
Nevite nahadou nekdo?
Diky, Ladislav Nagy
Data u TTreeNode
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.5.1998 10:09:43
> Dekuju ti moc. Zatim to funguje (co jsem zkousel). Ale zkousel jsem to samy
> se stringem
>
> Node.Data:=pointer(Edit1.Text);
> Label.Caption:=string(Node.Data);
>
> ale nejak mi to blbne. Nevis cim by to mohlo byt?
Jak by se mohl string vejit do pointeru ???? Jiste, ze to takto chodit
nebude. Precti si moji odpoved na tvuj dotaz... a uvidis.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Export to EXCEL
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 28.5.1998 10:40:49
v D3 je to pod ActiveX: F1Book.
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Petr Zahradnik wrote:
> > Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
> > a tudiz ani jeho OLE servery?
> > Nezna nekdo strukturu .XLS souboru?
> >
> > Diky za vsechno co vas napadne (aspon trochu smysluplneho)
>
> Pracoval s Excel tabulkou do jiste miry jde pomoci FormilaONE - to je ten
> VBX v Delphi 1 RadPacku, resp. OCX v Delphi 2, ted nevim, jestli je to
> take v Delphi 3. Samozrejme ten OCX je lepsi nez VBX, protoze je novejsi
> a umi vice veci.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Jezkova 12, 400 11 Usti nad Labem ===
> === Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================Bublinova napoveda
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 28.5.1998 10:47:51
[P��loha v souboru: vcard.vcf]
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.
Taky jsem n�co podobn�ho hledal, ale bez v�sledku.
Kdo o n��em takov�m v�, pros�m aby se ozval.
D�kuji !
Nov�k J.
> -----P�vodn� zpr�va-----
> Od: Reni Ponya [SMTP:rponya(zv)email(tec)cz]
> Odesl�no: 26. kv�tna 1998 17:25
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Bublinova napoveda
>
> Ahoj vsetci,
>
> ma niekto (viete kde to lezi) ako urobit cosi na ten sposob napovedy,
> ako je robena vo SWAGu?
>
> Diky za kazdu radu (adresu a pod. ;)
>
> S pozdravom Baca. <<Card for Ponya, Ren�>> Insert, Update, Delete & Refresh
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 28.5.1998 11:00:10
Stojim pred problemem :
Mam nasledujici hierarchii prace s daty (SQL):
- otevru MDI okno typu "browse" v kterem hlavni komponentou je DBGrid,
data jsou ihned zobrazena (nacteni prez TQuery -napr. SQLZakazky).
Dale je tam panel se spoustou Speedbuttonu (posuny,novy,oprava,vymaz,filtr,tisk,,,).
- prez Novy nebo Oprava otevru dalsi modalni okno,kde provadim tyto odpovidajici
ukony pomoci TQuery - SQLModif (INSERT,UPDATE - menim SQL property).
Ale ted chci zviditelnit tyto zmeny na okne "browse".Protoze nacteni dat je provedeno
prez jine Tquery, musim provest refresh, coz se rovna Close a Open.
(Refresh je totez, navic neni podporovan prez mou databazi) Jenomze to
pri vetsi poctu zaznamu trva dlouho !!! Pozadavek je proto, protoze ty zenske si ty okna
usporadaji tak, aby ze spodniho "browse" videly ty posledni zapsane zaznamy
a ihned si kontrolovaly spravnost zapsanych udaju.
Otazka:
Nejde zapsat primo do TDBGrid (OnDrawColumnCell je asi k nicemu),
nebo u TQuery se mam vykaslat na nej a nahradit ho TSringGridem ?
Vlastne potrebuji pasivni grid, prez nej nic nechci delat .(mam D2).
Nebo jine napady (principialni) ?
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
Pakovani databaze
[*] V�t�zslav Gazda������u��n�?��? - 28.5.1998 11:00:10
Existuje v BDE nejaka univerzalni podpora pro pakovani databazi nezavisle na
databazovem nastroji (MSSQL, ORACLE, SYBASE, DBASE, PARADOX, ACCESS, atd.) ?
Diky Vita
OffTopic: UDF & Interbase na Linuxu
[*] stingp1.eti(zv)mail.cez(tec)cz - 28.5.1998 11:19:29
Ahoj,
nemohl by mi prosim nekdo poradit, jak rozchodit UDF knihovny
pro Interbasi na RedHat Linuxu 5? At delam, co delam, Interbase
pri volani funkce hlasi nenalezenou entry pro funkci v modulu.
Asi by to bylo nejlepsi mimo konferenci.
Diky, Pavel
stingp1.eti(zv)mail.cez(tec)cz
MaskEdit
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 28.5.1998 11:19:00
Ahoj vsichni, chtel bych pouzit TMaskEdit. V pripade, ze se pokusim opustit
(napr. tabulatorem) MaskEdit v dobe, kdy text neodpovida masce, tak se
vygeneruje Exception s hlaskou. Chtel bych tenm exception odchytit a
zpracovat, ale nevim, kde ho mam chytat. Vite nekdo jak na to?
Diky.
-----------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O.Box 44,169 00 Praha 69,Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
-----------------------------------------------------------------
Fajnovost
[*] roman.palarcik(zv)spt(tec)cz - 28.5.98 11:23:08
O necem takovem jsem pred casem taky uvazoval, i kdyz asi pro jine
ucely a nakonec jsem toho nechal. Pri podrobnejsim rozboru jsem totiz
zjistil, ze to sice lze, ale vyzaduje to spoustu dat, slozite algoritmy
a stejne se najde spousta vyjimek. V mem pripade vsak slo o slozitejsi
pripady s vice slovy.
Pokud by se jednalo pouze o jedno slovo jako v 1. prikladu, tak to neni
zas az takovy problem, staci si nadefinovat koncovky a k nim koncovky v
prislusnych padech. Je treba si s tim ale dost pohrat, projit hodne
slov a najit pokud mozno vetsinu pouzivanych koncovek. Neni to ale
stoprocentni.
Co se tyce druheho prikladu, tak to lze taky ale je treba jeste
uvazovat i slovni druh a rod danych slov. Je to radove slozitejsi. Kdyz
by se zachazelo jeste dale, tak to uz je na zblbnuti a jak uz jsem rek,
je spousta vyjimek. Prijdou pritom na radu i pravidla ceskeho
pravopisu. Nekdy je treba i vytvorit seznam slov se vsemi moznymi
tvary. Osobne jsem to vzdal protoze jsem se do toho moc zamotal, ale v
jednodussich pripadech se to da jeste zvladnout.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
>Hi,
>
>Rad bych do sveho programu udelal jednu fajnovost a potreboval bych
>nejakou komponentu, ktera by umela sklonovat
>
>nejakou takovouhle funkci
>
>function Funkce(Slovo: string; Pad: Integer): string;
>
>Funkce('Auto', 2) = 'Auta'
>
>ale taky
>
>Funkce('Jeden poslanec', 2) = 'Jednoho poslance'
>
>Existuje neco takovyho v Ceskych zemich?
Poradi vykreslovani komponent
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 28.5.1998 11:31:33
Ahoj vsem!
Mel bych takovyto dotaz. V jakem poradi jsou vykreslovany komponenty
treba na formulari? Je to v tom poradi v jakem jsem je na formular
naskladal?
A jak je to potom v pripade ze je vytvarim za behu dynamicky? Je zde
smerodatne poradi vytvoreni?
Diky za kazdou pripominku
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Export to EXCEL
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 28.5.1998 12:17:41
Vcera jsem brouzdal siti a mam takovy pocit, ze na DSP jsem zahlidnul
primo komponentu pro export dat do Excelu (tusim primo *.xls soubor) a
snad to bylo i free (mozna i zdrojak, to nevim). Vim ze me to zaujalo,
ale vic o tom nevim a doufam ze si to s necim nepletu.
Mac
Hubert wrote:
>
> Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
> a tudiz ani jeho OLE servery?
> Nezna nekdo strukturu .XLS souboru?
>
> Diky za vsechno co vas napadne (aspon trochu smysluplneho)
>
>
> Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
bTree Filler
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 28.5.1998 12:17:50
Alame wrote:
>
> Mame Money97 ucetnictvi a ten jede na databazovem "engine" bTree Filler,
> zajimalo by me, jestli existuji nejake ODBC ovladace pro tuto Paskalovou
> vec..
>
> Dekuji.
B-Tree Filer nen� datab�zov� stroj. Je to komplet procedur
pro rychlou spravu jednotlivych datovych souboru, jejich indexaci
a pro sdileni techto dat na siti. Data jsou ulozena po souborech
a dokonce ani neni nutne, aby tyto soubory byly v jednom adresari.
ODBC k nemu urcite zadne nebudou. Otazka je, proc to chces.
Jestli na nejake prohlizeni, pripadne treba rucni zasahy do dat,
tak to pujde jenom za jedne podminky - musis znat datovou
strukturu souboru. B-Tree Filer neuklada zadne informace o strukture
dat, takze tyto informace nejsou soucasti dat. Pokud znas nebo
mas kde ziskat datove struktury, mam k dispozici program, ktery
ti umozni editaci techto souboru nebo treba jejich export do
*.DBF. Exportni rutiny do *.dbf dava TurboPower jako soucast
B-Tree Fileru, treba ten program Money97 ten export umi. Pak si s
tim muzes delat co chces, ale ty opravy zpet uz zapsat nejdou.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Fajnovost
[*] David Maly <dmal3233(zv)ss1000.ms.mff.cuni(tec)cz> - 28.5.1998 12:17:06
�tvrtek, 28 kv�ten 98, Ing. Jahoda Jaroslav wrote:
> Rad bych do sveho programu udelal jednu fajnovost a potreboval bych
> nejakou komponentu, ktera by umela sklonovat
> nejakou takovouhle funkci
> function Funkce(Slovo: string; Pad: Integer): string;
> Funkce('Auto', 2) = 'Auta'
> ale taky
> Funkce('Jeden poslanec', 2) = 'Jednoho poslance'
... tak jestli TOHLE nekdo ma (predpokladam pripadne megabajty kodu),
a nehodla za to vyzadovat zadne obezivo, tak to chci taky.
Best regards,
David mailto:dmal3233(zv)ss1000.ms.mff.cuni(tec)cz
Help-Asociace
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 28.5.1998 12:22:36
Pouziti Status baru pro hinty jsem okoukal na prikladu:
\Program Files\Borland\Delphi 3\Demos\RICHEDIT\
Pouzivam to pro MDI formulare (Status bar na hlavnim formulari) a chodi
to automaticky i pro MDI child formulare v podstate bez zrnka kodu.
Mac
Vojt�ch Albrecht wrote:
>
> Zdravim vsechny Delphi-sty
>
> Mam n�kolik dotazu kter� me trapi n�kolik dni. Pokud by n�kdo vedel ja je vyresit budu neskonale vdecny.
>
> 1) Zacal jsem do STATUSBAR psat HINT ale ouha, STATUSBAR funguje pouze v hlavnim formulari
> nebo? mam napsanou klauzuli
>
> .....
> ....
> StatusBar1.Panel[0] := Application.ShowHint
>
> Takze tim je to vlastne dane, ze se to nezobrazi v dalsim formulari. No jo ale jak teda nato ???Prepinani parent
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 28.5.1998 12:30:04
Ano. Ja to jiz delsi dobu pouzivam. Dokonce jsem nastavil parent i na formular
a ten se pak objevil uvnitr jineho (je to neco jineho, nez MDI aplikace) - to
ovsem nedoporucuji, protoze je to nestandard a nektere veci pak zlobily.
Co se tyce komponent, tak to funguje celkem normalne, ale musi se dat pozor na
existenci dane komponenty. Kdyz udelas destroy ownera (puvodniho formulare),
pak uz nemuzes samozrejme z programu pristupovat k temto komponentam. Nezkousel
jsem sice, jak se to chova v reale (jestli ty komponenty i fyzicky zmizi z
parenta), ale mam s tim zkusenosti pri volani u skrytych formularu (hlavne pri
opousteni aplikace, kde jeste volam nektere akce a dochazelo mi k necekanym
chybam, protoze jsem destroyoval owner formulare driv, nez parent a snazil se
jeste precist neco z komponenty tohoto ownera - hm, ted jsem to trochu
zamotal, ne? >:-)) ).
Rad se samozrejme podelim i o dalsi zkusenosti.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Prisel jsem na celkem zajimavou vlastnost. Pokud mam dva formulare a
> chci prenest za chodu nejake komponenty z jednoho do druheho, staci
> zmenit Parent...
> Je to jakasi obdoba komponenty Notebook neno PageControl, jenze mohu mit
> kazdou stranku na jinem formulari, coz muze znacne zprehlednit
> zdrojaky....
> Zatim se zda, ze vsechno funguje, tab prepina ve spravnem poradi.....
> Takze:
>
> 1. Mozna ze by to mohlo nekomu pomoct, me to napadlo jen nahodou......
>
> 2. Pokud to nekdo pouziva - ma to nejake problemy?
>
> Ales
Help-Asociace
[*] V�t�zslav Gazda������u��n�?��? - 28.5.1998 12:32:15
1. Prvni otazku jsem nejak nepochopil.
2. Toto lze provest pouhym zapisem do registracni databaze. Melo by se to
provadet behem instalace. Doporucuji pouzit InstallShield pro vytvoreni
intalacniho programu. Pomoci programu REGEDIT se muzes podivat jak je
napriklad provedena asociace TXT souboru s aplikaci NOTEPAD. Podivej na uzel
".txt" a "txtfile" pod klicem HKEY_CLASSES_ROOT.
Vita
TreeView
[*] Rybar, Boris <borisr(zv)softip.sk> - 28.5.1998 12:43:56
Ahoj vsetci,
Minule som prosil o pomoc s TreeView. Neviem ci nikto nevie alebo len
namal chut, v kazdom pripade som pokrocil dalej
co my umozni polozit konkretnejsiu otazku.
Z helpu a zdrojakov VCL je zrejme, ze ked pre nejaky objekt typu
TTreeNode zavolam metodu EditText, delphi
spusti in-line editaciu daneho uzla. To je samozrejme super, avsak
problemy nastanu, ked chcete osetrit
text ktory v tomto edite mozno zadat. Napr. Ako v pruzkumnikovi ked
Vytvorite novu zlozku nemozete zadat prazdny text.
Z kodu z VCL som sa dovtipil ze po volani EditText sa riadenie odovzda
niekde do systemu a vrati sa spat az po skonceni
editacie stlacenim ENTER. To znamena ze ak chcem kontrolovat text ktory
sa tam zadava, musim obsluhovat edit objekt
ktory system vytvori automaticky po volani EditText. Jeho HWND viem
zistit pomocou funkcie TreeView_GetEditControl
z unitu CommCtrl. Otazka teda znie:
ako napisat v Delphi teda Pascale obsluznu rutinu na udalost WM_KEYDOWN
pre objekt, o ktorom viem len jeho HWND?
Je to otazka pre tych co programovali pod Windows v Pascale v case ked
Vizualne nastroje boli este v plienkach.
Povodne som skusal napisat aj proceuduru typu OnKeyDown. Problem ale je
ako ju rozumne priradit do objektu
ked viem iba jeho HWND. Vlastne by som potreboval upravit edit objekt
automaticky vytvoreny systemom na TEdit
a potom mu do OnKeyDown priradit klasicky nejaku funkcnost.
Ma teda s tym niekto skusenosti a chce poradit.
Dakujem za namety a prosim poslat aj na sukromny e-mail, pretoze zpravy
z konferencie dostavam z dnovym oneskorenim
Boris
borisr(zv)softip.sk
T��d�n� (2)
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 28.5.1998 12:44:50
> >Ahoj, jde to pomerne jednoduse, napr. pro CUSTOMER.DB:
> >Table1.Exclusive := True;
> >Table1.Open;
> >Table1.AddIndex(,STATE', ,State', []);
> >Table1.AddIndex(,ADDR1_2', ,Addr1;Addr2', []);
>
> >Table1.DeleteIndex(,STATE');
> >Table1.DeleteIndex(,ADDR1_2');
> >Table1.Close;
>
> Jo, ale kdyz si bude chtit uzivatel setridit tabulku podle polozky,
> ktera
> dosud neni indexovana, tak si tu tabulku bude muset otevrit
> exclusivne, coz
> se mu ve viceuzivatelskem prostredi nemusi podarit.
> Existuje nejake jine reseni, treba bez vytvareni indexu, ale pro
> komponentu
> TTable ?
>
Jo existuje. Celou tabulku nacist do RAM a tam ji setridit.
Jinak TTable potrebuje mit vse oindexovany.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
Jak v multiuser prostredi zamykat Paradoxni tabulk
[*] Bohuslav Svancara <softprojekt(zv)bosnet(tec)cz> - 28.5.1998 12:45:17
Diky za snahu pomoci.
Nacist data do pameti a tam je editovat je urcite spravny postup, ale prece
jen - znamena to vzdat se pouzivani vsech DBControls. Kazdy z tech prvku
(nejen DBGrid) zamkne tabulku, jakmile se zacne s editaci. Bez techto prvku
je ale polovina Delphi k nicemu a pracnost programovani neumerne vzrusta.
Musel bych udelat asi 40 samostatnych formularu a ve vsech rucne presouvat
data z tabulek do editacnich prvku a zase zpet. Takhle si RAD nepredstavuji.
A sitova prace pod Paradoxem je podle me nesmysl. Ovsem pokud to jinak
nejde, budu to muset udelat.
Nema jeste nekdo nejaky napad? Vyresi se problem pouzitim CachedUpdates?
-----Original Message-----
From: Ren� Ponya <rponya(zv)email(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 26. kv�tna 1998 22:32
Subject: Re: Jak v multiuser prostredi zamykat Paradoxni tabulky?>Hmm, priznam sa ze som v rozpakoch. Ja robim aplikacie tak, ze editaciu
>tabulky
>robim zasadne v druhom formulari a najlepsie ako prevedene hodnoty do
>poloziek
>TEdit.
>Kedze si z tabulky iba cital, nie je zamknuta v rezime editacie. Po
>editacii
>poli v tom druhom
>formulari mozes dat trebars na tlacitko TButton nejaku takuto akciu:
>
>try
> MyTable.Edit;
> MyTableField1.AsString:=mojstring;
> MyTable.Post;
>except
> MessageBox('Udaje sa nedaju zapisat, pretoze zrovna prebieha vypocet!
>Pockajte chvilu prosim...', mb_OK);
>end;
>
>
>Je to z hlavy, takze tam mozu byt chyby, ale princip si hadam pochopil a
>to, ze
>needituj tabulku priamo v TDBGrid.
>Daj do DBGrid flag ReadOnly.
>
>BTree-Filer poznam a tam to predsa robia zrovna tak, nie? Takze ak to
>vies tak
>urobit v DOSe, tak to tak urob aj
>v Delphi.
>
>cau, Baca.
Re[4]: OLE
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 28.5.1998 12:54:06
????????????????? Ja mam nar. prostredi v NT ceske a jede mi tu MSSQL 6.5
server a bezne pracuji s datetime a zadne oulety :-) nejsou (az mozna na drive
v teto konferenci probirane problemy s editaci pres ttable, ale ja takrka
vyhradne pouzivam TQuery). Nesouvisi to se spatne nastavenym reg. sett. u
MSSQL?
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
...........
> >> Zkuste si to precist taky nekdy pod NT, kde neni nainstalovana
> >> cestina.
> >>
..............
> IJJ> A co ti brani nastavit v Regional settings - czech
>
> Zkuste si nastavit Regional settings na czech, kdyz mate nejaky soft,
> ktery nepodporuje narodni prostredi atd... Pak se nekdy clovek pekne
> divy, co ze se mu to na tom kompu deje.
> Jinak problem je v tom,(nevim zda ma nekdo podobny), ale pokud je
> regional settings na czech a je tam i na tom kompu MSSQL 6.5, tak se
> nam stalo, ze ten SQL server absolutne nezvlada praci s DATE a
> DATETIME.Export to EXCEL
[*] Rene Wagner <rwagner(zv)opv(tec)czn(tec)cz> - 28.5.1998 13:04:51
>Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
>a tudiz ani jeho OLE servery?
>Nezna nekdo strukturu .XLS souboru?
>
>Diky za vsechno co vas napadne (aspon trochu smysluplneho)
>
>
>Best regards,
> Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>
>
Zkuste pouzit format CSV. Jedna se o ciste textove soubory, jeden radek v
souboru =
jeden radek tabulky. Hodnoty ve sloupcich jsou oddeleny strednikem, carkou
nebo tabulatorem. Je nutno si dat pozor na
hodnoty, ktere obsahuji mezery - nutno uzavrit do uvozovek.
Bohuzel dojde ke ztrate formatovani!
Doufam, ze to je aspon trochu smysluplne
--------------------------------
Rene Wagner
email: rwagner(zv)opv(tec)czn(tec)cz
BEZ PENEZ - katalog freeware
www.mujweb(tec)cz/www/bez_penez
email: rxw(zv)post(tec)cz
--------------------------------
Tvorba Helpu - off top.?
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 28.5.1998 13:05:33
Dik! Tak jsem to zkusil. Ma to jeste dost much (hejno:-) ), i kdyz je to
pomerne prehledne a ma to dost funkci (libi se mi napr. pridavani vlastnich
buttonu do listy - tam, kde jsou Contens, Back apod.). Zatim jsem si teda
vyzkousel 3 veci - Helpscr, tohleto a Help & Manual.
Pokud to nekoho zajima, tak se mi jevi zatim
1.nejlepsi asi Help & Manual (nejmene chyb, ALE nevim, jak bude vypadat
vysledek, protoze trial verze neumoznuje preklad (export) do Helpu ani do rtf)
2. na druhem miste by byl asi Windows Help Designer Pro, az v ostre verzi
odstrani spoustu chyb (napr. bezne mi vyskakuje Out of index - jako bych to
vyrabel ja :-))) nebo mi hodil tisice chyb pri nacitani meho starsiho *.hpj)
3. a posledni by byl Helpscr, ktery je relativne nejjednodussi (napr. vsechny
odkazy -linky- pise textove do slozenych zavorek, apod.), i kdyz mi vysledny
help vygeneroval spolehlive se vsim vsudy (obrazky apod.)
Pozn. ke vsem: Ani jeden mi spravne nenastavuje cestinu v NT !!!!! Ackoliv v
W95 mi to jede bez problemu. Ze by meli problemy z rezy?
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> > Stahl jsem si na odzkouseni helpscr, ale nejak mi ignoruje cestinu.
> prestoze
>
> Stahni si na odzkouseni (podle me) nejlepsi soft na psani helpu
> Windows Help Designer Pro.
> http://www.devgr.com
>
> S pozdravem
>
> Libor Krayzel
> Czech Television, Television Studio Ostrava
> Dvorakova 18
> 729 20 Ostrava
>
> Phone: (069) 6201 375
> E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> > Homepage: http://members.tripod.com/~sovtop
> > Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> > E-mail2: mailto:sovtop(zv)email(tec)cz
> >
> > Evaluation ?
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 28.5.1998 13:35:29
Co se mysli skutecne pod pojmem 'evaluation' kdyz si chci stahnout tutu verzi:
QuickReport 2.0d evaluation version for Delphi 1 and Delphi 2
(jako vylepsenou ?, kazda nasledna je prece vylepsena)
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
Dlp & Fax & M$ Exchange
[*] VTech Kavan <vtech(zv)kavan.org> - 28.5.1998 13:43:08
zdravim,
shanim jakekoli informace o faxovani z Delphi aplikaci pres M$ Exchange,
predem dik
VTech of
BCL (aka Vit Kavan)
Pomoc s dbtree
[*] Petr Posp�il - 28.5.1998 14:18:47
Zdrav�m v�echny.
Pot�eboval bych poradit s t�mto probl�mem.
S Delphi Super Page jsem si st�hnul docela p�knou komp.
"exdbtree.zip" s upravenou komp.Treeview pro zobrazen� datab�ze
v tabulce,nebo sql .Pot�eboval bych poradit jak v t�to,nebo podobn�
komponent� zobrazit a pracovat s v�ce tabulkami.
Aby ka�d� datab�ze vlo�en� do treeview m�la vlastn� slo�ku s daty.
Za jakoukoli radu nebo odkaz p�edem velice d�kuji.
petrpospisil(zv)usa.net
OFF-TOPIC !!! HELP !!! HELP !!!
[*] kkwest <kkwest(zv)mbox.vol(tec)cz> - 28.5.1998 14:27:58
Prosim , pomozte !
Testoval jsem zalohovaci komponentu a povedlo se mi asi toto:
Nastavil jsem zalohovani na disk a spustil program.Ten oznamil, ze provede
zalohovani a pred tim ze smaze z diskety data. No a nez sem stacil cokoliv
udelat, tak mi smazal vsechna data z disku ! A ted nevim, jak je vratit !
Nemate nekdo nakou utilitu, ktera by to dokazala ? Nebu proste nakej zpusob
jak to udelat ? Pomozte cloveku v nouzi ! Zachrante zoufalce ! Jestli to
neobnovim, tak uz nebudu programator , protoze vsechna data jsou v pr....
!!!!
\\\|///
\ ~ ~ /
(\ (zv) (zv) /)
--------------------oOOO--(_)--OOOo-----------------------------------------
> Marek Hej (pocitacovy technik , programator)
> Tel. : do zamestnani 019/7900080
> Fax : do zamestnami 019/7900056
> E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
----------------------------------------------------------------------------
----------
BDE driver pro MSSQL
[*] Martin Koran <komar(zv)oasanet(tec)cz> - 28.5.1998 14:34:37
HI,
poradte jak nainstalovat BDE, aby fungoval driver pro MSSQL. Po instalaci na
klientsky pocitac se v seznamu native driveru objevi pouze Paradox, dBase,
Foxpro.
Patrne tomu chybi nejaka DLL, nebo je potreba neco zaregistrovat. Pouzivam
BDE
verze 4.51.====================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
mail: komar(zv)oasanet(tec)cz
Prepinani parent
[*] RADIK(zv)p15.monet(tec)cz - 28.5.1998 14:38:00
To je prave ten fiiigl.
Potreboval jsem program ,ktery ma jednu hlavni obrazovku, na ktere je
potreba nekolikrat ZCELA zmenit vzhled..... Standardne by to znamenalo,
ze dam na plochu treba Notebook a na jednotlive stranky budu cpat
vsechny varianty. Pokud to pak cele provatu eventy, tak by pas mel
nejake desitky kB. To je pro me neunosne, nemam rad dlouhe zdrojaky.
Raci napisu par hlavicek navic....
Moje reseni je:
Prazdny hlavni formular. Vytvorim prazdny form a na nej dam Panel
(align=client) Jednu stranku, ktera tvori jeden vzhled formu dam na ten
panel. Pak staci u toho formu dat OnCreate Panel1.Parent := MainForm a
kdyz chci tuto stranku zobrazit, tak dam TForm1.Create (self). Neni
treba dat show, zobrazi se to samo. Pokud to chci smazat dam Close +
Free a ono to zmizi.....
Takze to byuzije jak vlastnost Parent tak i Owner.......
Zatim to nema chybu. Mam vlastne pro kazdou stranku vlastni dfm a pas a
krasne se v tom orientuju....
Ales
P.S. I tak stale plati otazka, co by mohlo byt pripadne uskali.....
----------
Od: Vesna
Komu: DELPHI Distribution List
P�edm�t: Re: Prepinani parent
Datum: 28. kv�ten 1998 8:49
Pokud jsi mel na mysli vec, ze prehodis parenta, tak si ale uvedom, ze
parent slouzi jen k vykreslovani, ale uvolnovani a podobne veci dela
owner.
Co kdyz zrusis form, ktery je owner toho componentu??
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 27. kv�tna 1998 17:38
P�edm�t: Prepinani parent
>Prisel jsem na celkem zajimavou vlastnost. Pokud mam dva formulare a
>chci prenest za chodu nejake komponenty z jednoho do druheho, staci
>zmenit Parent...
>Je to jakasi obdoba komponenty Notebook neno PageControl, jenze mohu
mit
>kazdou stranku na jinem formulari, coz muze znacne zprehlednit
>zdrojaky....
>Zatim se zda, ze vsechno funguje, tab prepina ve spravnem poradi.....
>Takze:
>
>1. Mozna ze by to mohlo nekomu pomoct, me to napadlo jen nahodou......
>
>2. Pokud to nekdo pouziva - ma to nejake problemy?
>
>Ales
>Data u TTreeNode
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 28.5.1998 14:39:00
> >Jestli ti staci jeden integer ke kazdymu nodu tak naprosto jednoduse:
> >
> > Node.Data := pointer(MujInt);
> >
> > I := integer(Node.Data);
> >
> >Proste pointer a integer jsou stejne velky a muzes je navzajem pretypovat
> Dekuju ti moc. Zatim to funguje (co jsem zkousel). Ale zkousel
> jsem to samy
> se stringem
>
> Node.Data:=pointer(Edit1.Text);
> Label.Caption:=string(Node.Data);
>
> ale nejak mi to blbne. Nevis cim by to mohlo byt?
Jo jak sem napsal u integeru to jde proto ze je stejne velkej (4 bajty) jako
pointer)
Ale string je jen ukazatel na pole znaku jakkoliv dlouhy. Takze to cos
udelal nemuze nikdy fungovat
Ale vyresit to muzes tak jak psali jini pres objekt nebo konkretne pro
stringy v tvem pripade takto:
Node.Date := StrNew(PChar(Edit1.Text));
Label.Caption := PChar(Node.Data);
Samozrejme v obou pripade musis sam zajistit uvolnovani pameti.
Pokud mas objekty tak na konci pro kazdy zavolat TObject(Node.Date).Free;
A pokud stringy tak zavolat StrDispose(Node.Data);
McLEI
CPU speed ...
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 28.5.1998 15:31:25
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Dneska jsem pri "namatkovem prochazeni nalezl v \D3\Source\RTL\WIN\Windows.PAS
zajimavou fci:
function IsProcessorFeaturePresent(ProcessorFeature: DWORD): BOOL; stdcall;
a deklarace:
function IsProcessorFeaturePresent; external kernel32 name 'IsProcessorFeaturePresent';
Nevite o ni nekdo neco? Help mlci !!
Rovnez jsem se chtel zeptat, jestli je nekdo schopen prepsat ten program na vypocet
rychlosti procesoru i pro D1.
Moc se v asm nevyznam a op kody DB 0FH a DB 031H mi nic nerikaji.
Rovnez neumim pracovat s longint a registry.
Martin
Data u TTreeNode
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.5.1998 15:41:25
> 3. A pri uvolnovani vetvi (pripadne celeho TreeView) musis zabezpecit aj
> uvolnenie
> objektu alebo dynamickej premennej v property Data.
Ano, samozrejme, to je nutne, ale neni to takovy problem. Vzdy, kdyz
mazes Node, tak proste uvolnis Data.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Re[2]: Export to EXCEL
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 28.5.1998 15:47:10
Diky... ani mne nepadlo to tam hledat.
SC> v D3 je to pod ActiveX: F1Book.
SC> Stepan "Chaosz" Cerny
SC> chaosz(zv)geocities.com
SC> Petr Zahradnik wrote:
>> > Nevite nekdo jak, delat export do EXCELU na pocitacich, kde neni EXCEL
>> > a tudiz ani jeho OLE servery?
>> > Nezna nekdo strukturu .XLS souboru?
>> >
>> > Diky za vsechno co vas napadne (aspon trochu smysluplneho)
>>
>> Pracoval s Excel tabulkou do jiste miry jde pomoci FormilaONE - to je ten
>> VBX v Delphi 1 RadPacku, resp. OCX v Delphi 2, ted nevim, jestli je to
>> take v Delphi 3. Samozrejme ten OCX je lepsi nez VBX, protoze je novejsi
>> a umi vice veci.
>>
>> S pozdravem
>> Petr Zahradnik, pocitacovy expert
>>
>> ==============================================================
>> === Petr Zahradnik - Computer Laboratory ===
>> === Jezkova 12, 400 11 Usti nad Labem ===
>> === Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
>> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
>> ==============================================================
Best regards,
Hubert mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
Pakovani databaze
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 28.5.1998 15:59:57
Uhhhh, copak je mysleno pakovanim databaze napriklad v pripade Oraclu
nebo Interbase ?
Nejak jsem na tenhle pojem narazil jedine v souvislosti s formatem
DBF....
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 28. kv�tna 1998 11:00
> Komu: DELPHI Distribution List
> P�edm�t: Pakovani databaze
>
> Existuje v BDE nejaka univerzalni podpora pro pakovani databazi
> nezavisle na
> databazovem nastroji (MSSQL, ORACLE, SYBASE, DBASE, PARADOX, ACCESS,
> atd.) ?
>
> Diky Vita