Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Windows 2000 Professional TCP/IP
[*] Pavel Chaloupka <chaloupka(zv)mboxzn(tec)cz> - 16.3.2000 15:07:13
Zdravim,
nevite nekdo jestli je ve Windows 2000 Professional omezen pocet TCP/IP
connectu, jako je to ve Windows NT 4 Workstation?
Pavel Chaloupka
E-Mail: pavel(zv)chaloupka(tec)cz
WWW: www.chaloupka(tec)cz
V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)GetDocument
[*] Ondrej Slama <slama(zv)internet(tec)cz> - 16.3.2000 15:11:44
Cusa,
problem vyresen, chyba byla mezi klavesnici a mozkem
dik
-Ahoj,
-
-mam takovej problem. Potrebuju z Intetu stahnou HTML document
-tak aby ho WEB server zpracoval. Celej problem je v tom, ze
-dokument nema koncovku HTM(L). Ma koncovku PHP3 a obsahuje
-pehapeckovej script, kterej by se mel pred odeslanim zpracovat servrovou
-stranou.
-Pokousel jsem se pres HTML comp, ale nevim jak ji donutit
-aby brala dokument s jinou koncovkou.
-Ovsem nejvic bych uvital reseni kdy nemusim stranku vubec zobrazovat
-a stahovat ji rovnou do bafru ve zdrojovem kodu HTML.
-Dik
Kompilace RC skriptu
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 16.3.2000 15:13:53
Ahoj
chtel bych si napsat program na "vyrobeni" resource souboru,
mam predstavu, ze program mi vytvori RC skript, na ktery pak
postvu kompilator. Kdybych pouzil BRCC32, znamenalo by to
"odskoceni" do DOSu, coz se mi nejevi moc esteticke, radeji bych
pro zkompilovani zavolal napr. nejakou DLL ...
Vi nekdo jak problem resit ?
Diky za kazdou odpoved.
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Popis Format BMP
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 16.3.2000 15:51:41
Tady je formatu dost: URL=http://www.wotsit.org/
MS
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele J�n
Tungli
Odesl�no: 16. b�ezna 2000 9:40
Komu: delphi conferencia
P�edm�t: Popis Format BMP
Mohol by mne niekto poslat popis formatu BMP suborov? Dakujem.
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
regulace mnozstvi dat pri prohlizeni stranek
[*] Standa Kunc <standa.kunc(zv)obaka-karvina(tec)cz> - 16.3.2000 17:52:16
Jeste mne napada jina vec, totiz pozadat o to tvurce Pinknet Web Serveru.
Takovahle sluzba by jeho serveru urcite pomohla. Zkusim ho kontaktovat.
Co se tyce moji aktivity, tak bych rad pracoval na takovem programku, ale
jednak nemam moc casu a jednak nemam ani potrebne znalosti (proxy server
bych asi nezvladl, leda by to bylo hoooodne jednoduche).
Pokud mate jeste nejakou poznamku piste mi na standa.kunc(zv)obaka-karvina(tec)cz
S. Kunc
> Ja uz jsem to vcera sice psal, ale nevidim to v archivu, tak radeji
> jeste jednou. [Uz ani ten mail nezvladam :-(].
> Uz jsem o necem takovem uvazoval. Nekde jsem videl nejaky shareware,
> ktery tohle delal. Delal to tak, ze vystupoval jako web-server.
> No, ja bych pouzil jine reseni :-)
> Udelal bych to jako proxy, pripadne pro uzivatele co maj fakt pristup
> na internet a nechteji si kazit konfiguraci prohlizece, jako web-server
ktery by bezel na
> lokalni adrese na jinem portu a pozadavky na stranky by prekladal a
zasilal nejakemu
> skutecnemu serveru. Takze by takhle bylo mozne testovat klidne stranky
umistene na serveru,
> ktery je treba na lokalni siti, a je potreba vyzkouset rychlost pristupu
pres dial-up.
> No, a pokud je tvurce stranek zaroven sam sobe serverem, tak neni problem
na internetu
> sehnat free web-server. K Win98/NT je zadarmo PWS/IIS, Apache pro Win take
existuje, je
> zadarmo a beha, takze by bylo mozne na lokalnim pocitaci mit kopii
skutecneho serveru.
> Pokud byste o necem podobnem uvazoval, rad se pripojim. Pokud ne, dam
> Vam vedet, pokud se mi podari neco podobneho realizovat.
> Filip Jirsak
TImage a rotace
[*] delphi <delphi(zv)anexis(tec)cz> - 16.3.2000 18:21:17
> Mam jeden problem. Mam obrazek (v mem pripade *.ICO) v TImage a potreboval
> bych s touto ikonou otacet kolem stredu. Je to vlastne sipka, ktera miri
> nahoru a ja bych potreboval s touto sipkou otacet tak, aby pokud v
promenne
> "Uhel" bude 180 stupnu, sipka smerovala dol�. Jde mi o to, aby to slo
otacet
> po jednom stupni do 359 stupnu. Nejde proto vymenovat ruzne ikony, protoze
> bych jich musel mit 360. Napada nekoho z Vas nejake jednodussi reseni?
Ikon mozna nebudes potrebovat tolik. Melo by stacit treba 16 pozic a
patricna funkce, ktera interpoluje rozsah hodnoty promenne "uhel" na jednu
z 16 moznych pozic.
Pokud vyzadujes, aby pohyb sipky byl skutecne plynuly je dobrym resenim
opustit rastrovou podobu grafiky a prevest sipku do vektorove podoby.
Otaceni vektoroveho objektu je nasledne zalezitost vyvolani jedne funkce.
Popis prevodu a patricne funkce najdes napr. v knize Pocitacova grafika oda
Grady nebo samozrejme na inetu. V nouzi nejvyssi Ti je najdu....
Franta
Asyncfree ve Windows NT
[*] Gadourek <gadourek(zv)centrum(tec)cz> - 16.3.2000 18:52:14
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
nemate nekdo zkusenosti s Asyncfree ve Windows NT ?
Pri vyvolani se objevi chyba: "Error initializing buffers". pod W95/98 pracuje perfektne.
Z AsyncFree pouzivam jen komponenty TAfComPort a TAfPortRadioGroup. Zkousel jsem dve nastaveni buffers:
InBufSize = 4096
OutBufSize = 255
a
InBufSize = 4096
OutBufSize = 4096
Diky za radu, nemam moznost ladit programy pod NT.
Petr Gadourek
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.3.2000 19:10:41
> Ted je otazka, co se tam deje. Pokud se opravdu prerusi spojeni
> (kontroloval jsi Current Activity v Enterprise Manageru?), pak se
> domnivam, ze Adonis.ADODataset nacte data do sveho bufferu.
> Ale na tohle by nejlip odpovedel Erik. Podle dokumentace po
> uzavreni Connection zdechaji i vsechny pripojene Recordsety.
ADODataset nema vlastny buffer, toto buffrovanie zabezpecuje
samotne ADO (klientska ADO kniznica, tzv. client cursor engine),
hovori sa tomu disconnected recordset. Tu je priklad z MSDAC
dokumentacie pre Visual Basic:
Sub DisconnectRS()
Dim con As Connection
Dim rs As Recordset
Set con = New Connection
Set rs = New Recordset
con.CursorLocation = adUseClient
con.Open "Provider=SQLOLEDB;Data Source=persons;" _
& "Initial Catalog=Performance;User ID=sa;Password=;"
Set rs = con.Execute("SELECT SomeText, SomeNumber, SomeTime, " & _
"SomeMoney FROM Nonsense")
Set rs.ActiveConnection = Nothing
Set con = Nothing
'
' Process data
'
rs.Close
Set rs = Nothing
End Sub
ADO umoznuje vela dalsich funkcii pre disconnected recordsety - napr.
vytvorit
takyto dataset programovo, ukladat/citat recordset do/zo suboru v XML alebo
ADTG formate, prenasat ho medzi COM objektami, ...
Erik Salaj
TQuery
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 16.3.2000 19:17:49
Dobry den,
Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz probehl v
poradku (Query.Active = True)...
Nejvic mne prekvapuje, ze kdyz to vyzkousim v jinem projektu, tak to chodi
normalne...
Presna sekvence programu jak to probiha:
begin
Self.tmpSQL.Close; // Nebo: Self.tmpSQL.Active:= False;
Self.tmpSQL.DatabaseName:= 'JmenoDB'; {Je to jedno, zda to nastavim tady
nebo v ObjectInspector}
Self.tmpSQL.SQL.Clear;
Self.tmpSQL.SQL.Add('SELECT * FROM JmenoTabulky;');
try
Self.tmpSQL.Open; // Nebo: Self.tmpSQL.Active:= True;
if Self.tmpSQL.RecordCount = 1
{a tady mi to vytrvale tvrdi ze je to "-1", coz je vtakovina,
protoze je tam 6 zaznamu}
then {nejake zbesilosti....};
....
end;
Ale co stim???
Mam D4prof, Patch 3.
Diky za pomoc
Zdenek
ShowMessage
[*] viragi(zv)eurotel.sk - 16.3.2000 19:19:18
>>Mam jeste jednu vec. Pokud v programu vyskoci na obrazovku mnou
>> naprogramovany a chteny ShowMessage('Tohle je informace') je treba ho
>> odstranit Entrem. Slo by nejak udelat, abych to nemusel odklepavat, aby napr
>> po dvou vterinach tato hlaska zmizela sama?
Jedno z reseni je pouzit TTimer uvnitr formulare, kterym definujes svou
ShowMessage. Nastavit interval tohoto Timeru na 2 vteriny (2000) a na udalost
OnTimer dat Close a enable nastavit na true.
Ivan Virag
Synchronizace metody Paint v hlavnim threadu (D5pr
[*] Tom� Br�dle������i�^����? - 16.3.2000 19:23:03
----- P�vodn� zpr�va -----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
>Problem neni vzajemne vyloucit pristup ke sdilenemu prostredku,
>ale to, ze kdyz se pokusim synchronizovat hlavni thread v handleru
>metody WM_Paint at uz pomoci EnterCriticalSection nebo cekanim
>na MUTEX, tak obcas dochazi k deadlocku.
Ja si myslim, ze by to melo jit naprogramovat bez deadlocku. Je ovsem mozne,
ze se prekreslovani "zahlti" prihozimi zpravami o zmene fronty LOGu. (ze
tedy nejde o pravy deadlock)
Proto by mozna stalo za uvahu asynchronne (napr. pres timer 500ms) zjistovat
priznak zmeny LOGu a v pripade zmeny vyvolat prekresleni. Priznak by
nastavovaly ty thready po pridani dat do LOGu. Tim by nedochazelo k
zahlcovani prekreslovacimi metodami.
K "uklidu" nepotrebnych dat z LOGu by asi melo dochazet na konci prekresleni
(v metode prekresleni), aby se nemohlo stat, ze budes chtit vykreslovat uz
uvolnena data.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
P.S.: Snad jsem pochopil o co jde, kazdopadne by mne zajimalo, jak jsi
problem vyresil.
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.3.2000 19:25:15
On 16 Mar 00, at 9:41, David Lebeda wrote:
> > > Ja jsem zjistil na Adonisu, ze je-li v TADODataset nastaveno
> > > pouzivani kurzoru na klientu, tak postup
> > > 1) nastavit DatabaseConnect
> > > 2) ADODataset.Open
> > > 3) ADODataset.DatabaseConnect := ''
> > >
> > > zpusobi, ze klient je uplne odpojen od serveru, nicmene
> > > ADODataset je stale funkcni, data si pamatuje a lze na nej mit
> >
> > Ted je otazka, co se tam deje. Pokud se opravdu prerusi spojeni
> > (kontroloval jsi Current Activity v Enterprise Manageru?), pak se
> > domnivam, ze Adonis.ADODataset nacte data do sveho bufferu. Ale na
> > tohle by nejlip odpovedel Erik. Podle dokumentace po uzavreni
> > Connection zdechaji i vsechny pripojene Recordsety.
>
> Kdyz jsem zde psal, ze pouzivam RxMemoryData, byl to prave
> Erik, kdo me navedl na vyse popsany postup, tj. ze i ADO si umi
> data bufferovat. Nemyslim si, ze by mi to doporucoval, kdyby to
> bylo nejak nekorektni. Current Activity jsem prave proto sledoval,
> abych overil, ze se spojeni skutecne zrusi a je to skutecne tak. Pokud
> se nenastavi DatabaseConnect na '', zustava spojeni stale navazane, i
> kdyz proces je ve stavu Sleeping. Nastaveni na '' pak skutecne vede k
> odpojeni.
Dobre, zeptam se jinak. Funguje to jen v Adonisu, nebo i nad
samotnym ADO? Rozlisujme mezi ADO jako takovym, a
komponentami, ktere ADO prekryvaji (Adonis, ADOExpress, ...).
Kdyz jsem se o neco obdobneho pokusil na ADOExpress, zdechlo
to vcetne dat.
> > :-) Tezko rict. Otazka take je, co vlastne dela RxMemoryData pri
> > posilani dat.
>
> Mam zdrojak a studoval jsem ho. Urcity problem je, ze TDataset
> asi neobsahuje nejakou funkci GetCurrentRecord, protoze jinak by ji
> tvurci asi pouzili. Jadro strkani dat do RxMemoryData je klasicky
> cyklik (zkraceno):
>
> while not Source.Eof
> begin
> Insert;
> AssignRecord;
> Post;
> Source.Next;
> end;
>
> pricemz funkce AssignRecord je zase cyklik, ktery proleza
> vsechny Fields a po jednom je zapisuje do RxMemoryData.
Uaaa! :-) Tak ted je jasne, proc jim to tak dlouho trva. Kdyby
prekopirovali na zacatku strukturu, a pak pretahli (a pripadne
preskladali jinym vhodnejsim zpusobem, pokud je to treba) PChar,
melo by to byt rychlejsi.
> Ale kdyz uz jsme u toho mereni rychlosti: je fakt, ze
> RxMemoryData se naplni z dat bufferovanych Adonisem pomaleji
> nez z jine RxMemoryData. Rozdil je sice evidentni, ale ne zase tak
> drasticky, aby me presvedcil o vhodnosti nepouzivani ADO clientskych
> kurzoru.
Mas zdrojaky Adonise? Pokud ano, mohl bys overit tuto
domnenku: ADO nacte data do sveho bufferu (tohle overime tezko
:). Adonis si totez dale cte do sveho bufferu. Pak to preda dal. Zde
by tedy mohlo zdrzovat dvoji cteni.
BTW - proc se k tomu dosud nevyjadril Erik?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OnDataChange pro TDBEdit
[*] L. ZITA <konference(zv)sales(tec)cz> - 16.3.2000 19:45:46
Behalf Of L. ZITA
> Zdravim vsechny.
>
> Nejak se v tom motam. U DBEditu potrebuji v zavislosti na obsahu pole
> momentalne napojeneho datasetu nastavovat parametry fontu. Neco
> podobneho se
> dela v RXDbGridu v udalosti OnGetCellParams. Nejak se mi to nedari
> rozlousknout.
.....
> Ludek ZITA
Omlouvam se za naprosto zbytecny dotaz. Je to samozrejme udalost OnChange.
Nevim proc jsem si myslel ze je vyvolana az pri editaci ?. Ach jo nekdy se
holt cloveku zatmi pred ocima a vyda se naprosto slepou cestou podrbat se
levou rukou za pravym uchem.
Ludek ZITA
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Znakove sady a jejich konverze
[*] L. ZITA <konference(zv)sales(tec)cz> - 16.3.2000 19:52:20
Behalf Of caoperator(zv)ozjc.cpost(tec)cz
> Zdravim,
>
> nedavno jsem pro nase oddeleni tvoril jednoduchy prevodnik
> textovych souboru s vypisy z banky (jenom jsem upravoval pocty
> mezer mezi jednotlivymi slovy). Aby uzivatel mel kontrolu, ze
> nacetl spravny soubor, zobrazuju obsah otevreneho souboru v
> komponente TRichEdit. Nacitany text ale zasadne ma DOSovou ceskou
> znakovou sadu (ASCII), takze ve Windows se mi zobrazi spatne
> ceske znaky. Zkousel jsem nastavit vlastnost TFont.CharSet, ale
> tam neni ASCII znakova sada (popr. DOS sada). Existuje nejaky
> zpusob jednoducheho zobrazeni ASCII sady ve Windows, popr.
> moznost prevodu teto sady tak, aby byly spravne zobrazene ceske znaky?
>
> Diky za postrceni.
>
> David Viktora
Ahoj.
Pokud nejsou texty dlouhe pouzij TMemo to ma vlastnost OEMConvert a pri
pouziti spravne znakove sady (Terminal) a spravne "rezu" (OEM/DOS)
nepotrebujes nic konvertovat.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
ShowMessage
[*] Danko Branislav <Branislav.Danko(zv)swh.sk> - 16.3.2000 21:27:19
To close na ShowMessage zase nie je az take jednoduche. Takto by to snad
mohlo
ist (netestoval som to), v timeri sa potom zavola DirectClose('...'):
DirectCloseMB(Caption: String)
var
handle: HWND;
begin
handle := FindWindow(NULL, PChar(Caption)); // najde handle okna podla
textu v titulku (Caption)
if handle <> nil then
SendMessage(handle, WM_CLOSE, 0, 0);
end;
-----Original Message-----
From: viragi(zv)eurotel.sk [mailto:viragi(zv)eurotel.sk]
Sent: Thursday, March 16, 2000 7:19 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: ShowMessage
>>Mam jeste jednu vec. Pokud v programu vyskoci na obrazovku mnou
>> naprogramovany a chteny ShowMessage('Tohle je informace') je treba ho
>> odstranit Entrem. Slo by nejak udelat, abych to nemusel odklepavat, aby
napr
>> po dvou vterinach tato hlaska zmizela sama?
Jedno z reseni je pouzit TTimer uvnitr formulare, kterym definujes svou
ShowMessage. Nastavit interval tohoto Timeru na 2 vteriny (2000) a na
udalost
OnTimer dat Close a enable nastavit na true.
Ivan Virag
tlacitka
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 16.3.2000 22:44:04
Ahoj,
podivej se na udalosti OnMouseMove a OnClick ci OnMouseDown
a OnMouseUp.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Manipulace s ToolBarem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:30:54
From: Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz>
> Vytvoril jsem si Frame, ve kterem mam ToolBar s butonkama. V jinem framu
> pouziji tento
> frame a v design modu zmenim poradi buttonku na toolbaru a ejhle, uz to
> nefunguje,
> program padne pri create toho framu :-(
> Kdyz vratim ten buttonek na sve puvodni misto, tak to zase bezi ...
Ahoj,
Zvlastni, mas UpdatePack#1 ? Me to pouze nefunguje v tom smyslu, ze
presunuti tlacitek se nezapamatuje, ale vyjimku nevyvola.
Petr Vones, amatersky programator
OT:Videokarta Rendition
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:31:43
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> nemate nekdo, prosim, videokatru Rendition Verite 2200/2000 8MB-RWM AGP/PCI
> nebo nejakou zkusenost s ni? Chtel bych si take uzit truecolor barev, ale
> pri spusteni Delphi v truecolor to zamrzne v nejake DLL patrici j driverum
> karty a proto musim mit nastaveno jen 256 barev.
Ahoj,
podle mych zkusenosti je to ten nejhorsi "low-cost". Pokud potrebujes levnou
PCI videokartu, tak zkus radeji SiS6326 (http://www.sis.com.tw), neni to sice
taky nic moc (refresh max.85 Hz, coz je dost malo), ale alespon poskytuji
nejakou podporu, aktualizace driveru apod.
Petr Vones, amatersky programator
TImage a rotace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:31:19
From: Straka Josef <strakaj(zv)hba(tec)czn(tec)cz>
> Mam jeden problem. Mam obrazek (v mem pripade *.ICO) v TImage a potreboval
> bych s touto ikonou otacet kolem stredu. Je to vlastne sipka, ktera miri
> nahoru a ja bych potreboval s touto sipkou otacet tak, aby pokud v promenne
> "Uhel" bude 180 stupnu, sipka smerovala dol�. Jde mi o to, aby to slo otacet
> po jednom stupni do 359 stupnu. Nejde proto vymenovat ruzne ikony, protoze
> bych jich musel mit 360. Napada nekoho z Vas nejake jednodussi reseni?
Ahoj,
nejaky priklad ma MS tady, ale budes si jej muset prepsat z toho hrozneho
jazyka :-)
http://support.microsoft.com/support/kb/articles/Q80/4/06.ASP
Petr Vones, amatersky programator
Synchronizace metody Paint v hlavnim threadu (D5pr
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:31:51
From: Petr Fejfar <callnet(zv)telecom(tec)cz>
> Prave ze ne na tohle :-) Problem neni vzajemne vyloucit pristup ke sdilenemu
> prostredku, ale to, ze kdyz se pokusim synchronizovat hlavni thread v handleru
> metody WM_Paint at uz pomoci EnterCriticalSection nebo cekanim na MUTEX, tak
> obcas dochazi k deadlocku.
Ahoj,
muzes poslat nejakou jednoduchou ukazku jak to vlastne delas ?
Petr Vones, amatersky programator
Kompilace RC skriptu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:32:34
From: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
> chtel bych si napsat program na "vyrobeni" resource souboru,
> mam predstavu, ze program mi vytvori RC skript, na ktery pak
> postvu kompilator. Kdybych pouzil BRCC32, znamenalo by to
> "odskoceni" do DOSu, coz se mi nejevi moc esteticke, radeji bych
> pro zkompilovani zavolal napr. nejakou DLL ...
Ahoj,
BRCC32 je 32bitova konzolova aplikace, neni tedy treba pouzivat zadny
nesmyslny DOS. Volani externi command line aplikace z tve aplikace neni
az tak neesteticke.
Petr Vones, amatersky programator
Komunikace S&P
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:32:18
From: jemeto <jemeto(zv)volny(tec)cz>
> mate nekdo zkusenosti co je lepsi. Program pro sledovani lze spustit samozrejme
> kdekoli na siti. Z me zkusenosti je pripojeni na DCOM z jineho pocitace o dost
> pomalejsi nez pres socket server, ale zase nepotrebuje na serveru bezet socket
Ahoj,
Tezko rict, pri pouziti DCOMu je s tim nekdy mene prace nez se sockety.
> Druhy dotaz se tyka "control panel applications". Vse funguje, akorat program
> se zobrazi v liste programu. Jak tomuto zamezit napr. nastaveni hodin se v
> liste nezobrazuji. V klasicke aplikaci toto skryti dokazu.
Tohle je chyba ve VCL. Krome zobrazeni v taskbaru to ma i dalsi problem, ze
pri zobrazeni daneho dialogu neni tento zobrazen pri opetovnem kliknuti na
ikonu v Control Panelu. Resit to lze napriklad takto:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14423
Petr Vones, amatersky programator
Znakove sady a jejich konverze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:32:00
From: <caoperator(zv)ozjc.cpost(tec)cz>
> nedavno jsem pro nase oddeleni tvoril jednoduchy prevodnik textovych souboru
> s vypisy z banky (jenom jsem upravoval pocty mezer mezi jednotlivymi slovy).
> Aby uzivatel mel kontrolu, ze nacetl spravny soubor, zobrazuju obsah otevreneho
> souboru v komponente TRichEdit. Nacitany text ale zasadne ma DOSovou ceskou
> znakovou sadu (ASCII), takze ve Windows se mi zobrazi spatne ceske znaky.
> Zkousel jsem nastavit vlastnost TFont.CharSet, ale tam neni ASCII znakova sada
> (popr. DOS sada). Existuje nejaky zpusob jednoducheho zobrazeni ASCII sady ve
Ahoj,
Prevody mezi 1250, 852, 859 a ASCII najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
Petr Vones, amatersky programator
tisk nekolika tabulek z QR3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.3.2000 23:32:23
From: Kamil Hora <delphi007(zv)angelfire.com>
> Nevite nekdo jak jednoduse a rychle tisknout z nekolika Paradoxich tabulek? Mam jich zhruba 10
a potrebuji dat dohromady recordy podle jmena, prijmeni a data a tyto vybrane recordy
vytisknout. Zatim to delam tak, ze vzdy prekopiruju ty vybrany recordy do docasnych tabulek(mam
tim padem v kazde docasne tabulce jen jeden zaznam). To je ale dost pomale, zvlast kdyz to bezi
po siti.
Ahoj,
Pokud vim, tak QR3 obsahuje komponentu QRCompositeReport, ktera umoznuje
spojit vice ruznych sestav do jedne. Priklad najdes v Demos\QuickReport
Petr Vones, amatersky programator
TQuery
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.3.2000 20:13:11 -0800
Hodnota -1 znamena, ze vypocet pravdepodobne selhal.
Duvod mi neni zrejmy, ale podle vlastni zkusenosti vim,
ze RecordCount je nespolehlivy. Krome toho je take velmi pomaly.
Neni to funkce, ale metoda, ktera pocita zaznamy na datasetu.
Z toho duvodu se musi vzdy natahnout cely dataset
(ve tvem pripade hned po Open) a tim je vlatne vyrazeno buffer-ovani.
Pokud tam budes mit hodne zaznamu, tak se to znatelne zpomali.
Proto je lepsi vytvorit si vlastni funkci, ktera spocita
zaznamy pomoci noveho SQL dotazu. To bude mnohem rychlejsi.
SELECT Count(*) FROM StejnaTabulka WHERE stejnaPodminka
Jaro
PS. Nekdy postaci funkce IsEmpty
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Zdenek Janish
> Sent: Thursday, March 16, 2000 10:18 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: TQuery
>
>
> Dobry den,
>
> Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz probehl v
> poradku (Query.Active = True)...
> Nejvic mne prekvapuje, ze kdyz to vyzkousim v jinem projektu, tak to chodi
> normalne...
>
> Presna sekvence programu jak to probiha:
>
> begin
> Self.tmpSQL.Close; // Nebo: Self.tmpSQL.Active:= False;
> Self.tmpSQL.DatabaseName:= 'JmenoDB'; {Je to jedno, zda to nastavim tady
> nebo v ObjectInspector}
> Self.tmpSQL.SQL.Clear;
> Self.tmpSQL.SQL.Add('SELECT * FROM JmenoTabulky;');
> try
> Self.tmpSQL.Open; // Nebo: Self.tmpSQL.Active:= True;
> if Self.tmpSQL.RecordCount = 1
> {a tady mi to vytrvale tvrdi ze je to "-1", coz je vtakovina,
> protoze je tam 6 zaznamu}
> then {nejake zbesilosti....};
> ....
> end;
>
> Ale co stim???
> Mam D4prof, Patch 3.
>
> Diky za pomoc
> Zdenek
>
> tlacitka
[*] charon <charon(zv)ipex(tec)cz> - 17.3.2000 07:13:44
Ano tyto udalosti znam, ale nevim jak zakomponovat vlastni
tvar tlacitka pres ktery by byla nejaka bitmapa.
Charon
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 16, 2000 10:44 PM
Subject: Re: tlacitka
> Ahoj,
>
> podivej se na udalosti OnMouseMove a OnClick ci OnMouseDown
> a OnMouseUp.
>
> Slavek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.3.2000 07:34:49
On 16 Mar 00, at 19:10, Erik Salaj wrote:
> ADODataset nema vlastny buffer, toto buffrovanie zabezpecuje
> samotne ADO (klientska ADO kniznica, tzv. client cursor engine),
> hovori sa tomu disconnected recordset. Tu je priklad z MSDAC
> dokumentacie pre Visual Basic:
Hm, zkousel jsem to prohnat pres ADOExpress, ale bezuspesne.
Netvrdim, ze to nelze, ale pouze to, ze se mi to nepodarilo.
Pokud to vsak takto funguje, potvrzuje se tim ma uvaha, ze si
Recordset buferuje data.
> Sub DisconnectRS()
> Dim con As Connection
> Dim rs As Recordset
>
> Set con = New Connection
> Set rs = New Recordset
> con.CursorLocation = adUseClient
> con.Open "Provider=SQLOLEDB;Data Source=persons;" _
> & "Initial Catalog=Performance;User ID=sa;Password=;"
> Set rs = con.Execute("SELECT SomeText, SomeNumber, SomeTime, " & _
> "SomeMoney FROM Nonsense")
>
> Set rs.ActiveConnection = Nothing
> Set con = Nothing
> '
> ' Process data
> '
> rs.Close
> Set rs = Nothing
> End Sub
>
> ADO umoznuje vela dalsich funkcii pre disconnected recordsety - napr.
> vytvorit takyto dataset programovo, ukladat/citat recordset do/zo
> suboru v XML alebo ADTG formate, prenasat ho medzi COM objektami, ...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 17.3.2000 07:41:51
> > Kdyz jsem zde psal, ze pouzivam RxMemoryData, byl to prave
> > Erik, kdo me navedl na vyse popsany postup, tj. ze i ADO si umi data
> > bufferovat. Nemyslim si, ze by mi to doporucoval, kdyby to bylo
> > nejak nekorektni. Current Activity jsem prave proto sledoval, abych
> > overil, ze se spojeni skutecne zrusi a je to skutecne tak. Pokud se
> > nenastavi DatabaseConnect na '', zustava spojeni stale navazane, i
> > kdyz proces je ve stavu Sleeping. Nastaveni na '' pak skutecne vede
> > k odpojeni.
>
> Dobre, zeptam se jinak. Funguje to jen v Adonisu, nebo i nad
> samotnym ADO? Rozlisujme mezi ADO jako takovym, a
> komponentami, ktere ADO prekryvaji (Adonis, ADOExpress, ...).
> Kdyz jsem se o neco obdobneho pokusil na ADOExpress, zdechlo
> to vcetne dat.
Nevim. Nemam zatim nainstalovane Delphi 5, takze neznam ADO
Express. Od Adonisu mam trial verzi stazenou z internetu, takze
nemam zdrojaky. Jinak souhlas s rozlisovanim ADO a
komponentami. Nicmene mym dosavadnim cilem bylo predevsim si
trochu pohrat s Adonisem (to jen na vysvetlenou), popr. jinymi
komponentami obalujicimi ADO, ale o zadnych jsem nevedel. Az
mi zase vyjde cas, budu v tom pokracovat.
> > > :-) Tezko rict. Otazka take je, co vlastne dela RxMemoryData pri
> > > posilani dat.
> >
> > Mam zdrojak a studoval jsem ho. Urcity problem je, ze TDataset asi
> > neobsahuje nejakou funkci GetCurrentRecord, protoze jinak by ji
> > tvurci asi pouzili. Jadro strkani dat do RxMemoryData je klasicky
> > cyklik (zkraceno):
> >
> > while not Source.Eof
> > begin
> > Insert;
> > AssignRecord;
> > Post;
> > Source.Next;
> > end;
> >
> > pricemz funkce AssignRecord je zase cyklik, ktery proleza
> > vsechny Fields a po jednom je zapisuje do RxMemoryData.
>
> Uaaa! :-) Tak ted je jasne, proc jim to tak dlouho trva. Kdyby
> prekopirovali na zacatku strukturu, a pak pretahli (a pripadne
> preskladali jinym vhodnejsim zpusobem, pokud je to treba) PChar, melo
> by to byt rychlejsi.
Coz o to, na zacatku se skutecne struktura vytvori, ale to je rychle.
Ja jsem popsal jen prenos dat z jedne tabulky do druhe. Obe tedy
maji stejna pole. Souhlasim s tim, ze ten postup je pomaly.
>
> > Ale kdyz uz jsme u toho mereni rychlosti: je fakt, ze
> > RxMemoryData se naplni z dat bufferovanych Adonisem pomaleji
> > nez z jine RxMemoryData. Rozdil je sice evidentni, ale ne zase tak
> > drasticky, aby me presvedcil o vhodnosti nepouzivani ADO clientskych
> > kurzoru.
>
> Mas zdrojaky Adonise? Pokud ano, mohl bys overit tuto
> domnenku: ADO nacte data do sveho bufferu (tohle overime tezko
> :). Adonis si totez dale cte do sveho bufferu. Pak to preda dal. Zde
> by tedy mohlo zdrzovat dvoji cteni. BTW - proc se k tomu dosud
> nevyjadril Erik?
Nemam zdrojaky, ale vyjadreni Erika by me taky zajimalo. Dosud
se k tomu nevyjadril patrne proto, ze to tema jsem nadhodil ted
poprve:))). Z jineho mailu od Erika plyne, ze Adonis nema vlastni
bufferovani. Nicmene nejake typy na dalsi zdroje zdrzeni by me
taky zajimaly.
David
TQuery
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 17.3.2000 07:47:51
To mi delalo taky a pomohlo
Query.Open;
Query.Last;
i := Query.RecordCount;
Query.First;
( Proc nevim ale funguje to )
> Dobry den,
>
> Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz probehl v
> poradku (Query.Active = True)...
> Nejvic mne prekvapuje, ze kdyz to vyzkousim v jinem projektu, tak to chodi
> normalne...
>
> Presna sekvence programu jak to probiha:
>
> begin
> Self.tmpSQL.Close; // Nebo: Self.tmpSQL.Active:= False;
> Self.tmpSQL.DatabaseName:= 'JmenoDB'; {Je to jedno, zda to nastavim tady
> nebo v ObjectInspector}
> Self.tmpSQL.SQL.Clear;
> Self.tmpSQL.SQL.Add('SELECT * FROM JmenoTabulky;');
> try
> Self.tmpSQL.Open; // Nebo: Self.tmpSQL.Active:= True;
> if Self.tmpSQL.RecordCount = 1
> {a tady mi to vytrvale tvrdi ze je to "-1", coz je vtakovina,
> protoze je tam 6 zaznamu}
> then {nejake zbesilosti....};
> ....
> end;
>
> Ale co stim???
> Mam D4prof, Patch 3.
>
> Diky za pomoc
> Zdenek
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Zjisteni souboru na siti pod D1
[*] mbartone(zv)Synthesia(tec)cz - 17.3.2000 08:17:23
Ahoj,
potrebuji zjistit jake vsechny soubory jsou na sitovem disku, ktery neni
pripojen.
A to pod D1.
Pokud se zeptam na urcity soubor tak to funguje
if FileExists('\\Digi\info\seznam\upgrade\'+'seznam.exe') then
Toto mi vsak napise neplatne jmeno souboru
FileListBox1.Directory := '\\Digi\info\seznam\upgrade\';
FileListBox1.Mask := '*.*';
Poradte jak na to
Milan
Jak na TNMStrmServ a TNMStrm ????
[*] Karel Kral <kral(zv)purus(tec)cz> - 17.3.2000 08:32:39
Souhlasim, take jsem utekl od nemoznych NetMasters a podobnych problemu
jako mas ty k WinShoes. Od te doby jsem spokojeny, jsou k tomu kompletni
zdrojaky a je to zdarma.
> Podivej se spis na Delphi Companion CD a nainstaluj si WinShoes.
>
> Petr Vones, amatersky programator
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Windows 2000 Professional TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.3.2000 08:33:08
>Zdravim,
>
>nevite nekdo jestli je ve Windows 2000 Professional omezen pocet TCP/IP
>connectu, jako je to ve Windows NT 4 Workstation?
>
Omezeni na TCP/IP se netyka poctu connection ale poctu najednou otevrenych
socketu (system povoli cca 4000 otevrenych socketu). Coz nekterym
narocnejsim aplikacim (WWW servery, proxy servery) nemusi staci, vzhledem k
tomu, ze kazdy socket po closesocket() zkysne jeste na 240 vterin v pameti
nez je skutecne uvolnen.
Maximalni pocet socketu lze zvysit v registrech
http://support.microsoft.com/support/kb/articles/Q196/2/71.ASP
http://support.microsoft.com/support/kb/articles/Q149/5/32.ASP
http://www.cyberport.com/~tangent/programming/winsock/advanced.html#q16
Pozn.: nejde o omezeni ve smyslu znehodnoceni WKS proti serveru - tyka se
obou variant NTcek.
Zdravi
D. Toman
Spusteni vzdalene aplikace
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 17.3.2000 08:39:40
Ahoj Delphici,
mam takovy problemek se kterym si jiste vite rady. Nemam zkusenosti se
psanim sitovych aplikaci a tak jsem logicky narazil na nasledujici problem.
Mam jiz drive napsanou aplikaci pro W95/98/NT. Tato aplikace byla urcena pro
jeden lokalni pocitac a vyuziva REGISTR a take obsluhuje SERIOVE PORTY.
Nyni, po pripojeni tohoto pocitace do site vznikla potreba spoustet aplikaci
i z jinych pocitacu a v tom je ten zadrhel. Poradte jakym zpusobem vyresit
problem, aby aplikace cetla registr i seriove porty na vzdalenem pocitaci
(tam kde je nainstalovana) a ne na tom, odkud byla spustena. Prosiiiim !
Ahoj. Jara.
svehla(zv)atlas(tec)cz
E-Mails via MSM for NT
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 17.3.2000 08:57:37
1.You can use Cache as data server and DTM DOS client connect to Cache via
NETBIOS. Cache has interface to SMTP/POP3 mail.
2.We are using Mercury mail server on NOVELL 4.11. In DTM DOS we have
program using Mercury e-mail interface(text file).
Regards Josef Zvonicek.
PROSOFT Kromeriz s.r.o.
Soudni 1293
KROMERIZ 767 01
Czech Republic
tel/fax 0420 (0)634 333545
GSM: 0420 (0)602 305919
GSM 0420 (0)602 305920
e-mail: prosoft(zv)prosoft(tec)cz
ICQ:49532930
----- Original Message -----
From: Martin Davies <martin.davies(zv)totalbutler.co.uk>
To: <MUMPS-L(zv)LISTSERV.UGA.EDU>
Sent: Thursday, March 16, 2000 3:24 PM
Subject: Re: E-Mails via MSM for NT
> Does anyone have any experiences with DTM (under dos) and an interface to
> SMTP/POP3 mail?
>
> TIA
>
> Martin Davies
>
> On 16 March 2000 14:13, Eli Reidler [SMTP:eli(zv)pds.ascendia.com] wrote:
> > I have written an SMTP server and client system and a user interface
email
> > system.
> >
> > It's written in MSM and runs on MSM-UNIX and MSM for Windows. It's
been
> > running for about two years so far. It does attachments (MIME, UU and
> > QUOTED
> > PRINTABLE). Many features in the EMAIL interface system as well.
> >
> > Take care,
> > Eli
> >
> > On Thu, 16 Mar 2000 09:34:06 -0000 [4:34 AM our time], "Buick, Jason"
> > <Jason.Buick(zv)slaughterandmay.com> wrote:
> >
> > > You can send emails via WebLink and SMTP, using WebLink routine
%wldsmtp.
> > > Check out the WebLink documentation.
> > >
> > > Jason
> > >
> > > -----Original Message-----
> > > From: Andreas Nolte [mailto:andreas.nolte(zv)transwaggon.it]
> > > Sent: 15 March 2000 09:42
> > > To: MUMPS-L(zv)LISTSERV.UGA.EDU
> > > Subject: E-Mails via MSM for NT
> > >
> > >
> > >
> > > Hi all,
> > >
> > >
> > >
> > > i am using MSM for NT and MS-Exchange and Outlook for e-mails.
> > >
> > >
> > >
> > > Does anybody know about possibilities of sending e-mails directly from
an
> > > M-application?
> > >
> > >
> > >
> > > If not, is there any third-party-software which can supply this
feature?
> > >
> > >
> > >
> > > Thanks for your help
> > >
> > >
> > >
> > > Regards
> > >
> > >
> > >
> > > Transwaggon Italia
> > >
> > >
> > >
> > > Andreas Nolte
> >
>ShowMessage
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 17.3.2000 08:59:57
> Mam jeste jednu vec. Pokud v programu vyskoci na obrazovku mnou
> naprogramovany a chteny ShowMessage('Tohle je informace');, je treba ho
> odstranit Entrem. Slo by nejak udelat, abych to nemusel odklepavat, aby napr
> po dvou vterinach tato hlaska zmizela sama?
1) spustit Timer na dve sekundy
2) zobrazit pozadovanu hlasku - treba zistit handle okna hlasky
3) po vyprsani Timer-a poslat:
PostMessage(handlehlasky,WM_KEYDOWN ,VK_RETURN ,0);
PostMessage(handlehlasky,WM_KEYUP ,VK_RETURN ,0);
/LH
OT: Format souboru SMK
[*] sup(zv)svitap(tec)cz - 17.3.2000 9:06:22
Dobry den, nemate nekdo poneti o %subj%? Je to animace, vetsinou u her...
Nebo aspon nejaky prehravac...:-)) Na http://www.wotsit.org/ nic neni.
D5E, W98
Diky predem
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
tisk nekolika tabulek z QR3
[*] mbartone(zv)Synthesia(tec)cz - 17.3.2000 10:01:37
> potrebuji zjistit jake vsechny soubory jsou na sitovem disku, ktery neni
> pripojen.
> A to pod D1.
vyresil jsem to pres funkce FindFirst a FindNext
Milan
Spusteni vzdalene aplikace
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 17.3.2000 10:35:52
> Ahoj Delphici,
> mam takovy problemek se kterym si jiste vite rady. Nemam zkusenosti se
> psanim sitovych aplikaci a tak jsem logicky narazil na nasledujici problem.
> Mam jiz drive napsanou aplikaci pro W95/98/NT. Tato aplikace byla urcena pro
> jeden lokalni pocitac a vyuziva REGISTR a take obsluhuje SERIOVE PORTY.
> Nyni, po pripojeni tohoto pocitace do site vznikla potreba spoustet aplikaci
> i z jinych pocitacu a v tom je ten zadrhel. Poradte jakym zpusobem vyresit
> problem, aby aplikace cetla registr i seriove porty na vzdalenem pocitaci
> (tam kde je nainstalovana) a ne na tom, odkud byla spustena. Prosiiiim !
no, ja to vidim v prerobeni aplikacie na princip klient/server.
Ta aplikacia bude bezat na danom PC stale a treba urobit klientske
aplikacie, ktore s nou budu komunikovat a vyuzivat zdroje, ktore
ona spristupni.
/LH
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Erik Salaj <winsoft(zv)napri.sk> - 17.3.2000 10:41:39
> Hm, zkousel jsem to prohnat pres ADOExpress, ale bezuspesne.
> Netvrdim, ze to nelze, ale pouze to, ze se mi to nepodarilo.
>
> Pokud to vsak takto funguje, potvrzuje se tim ma uvaha, ze si
> Recordset buferuje data.
Tak skus priamo ADO, tu je HTML subor s VB scriptom:
-----
<HTML>
<HEADER>
<TITLE>Disconnected recordset</TITLE>
</HEADER>
<BODY>
<CENTER> <INPUT TYPE=BUTTON VALUE="Click me" NAME="BtnTest"> </CENTER>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnTest_OnClick
adUseClient = 3
adLockBatchOptimistic = 4
// vytvorime recordset
Dim Recordset
Set Recordset = CreateObject("ADODB.Recordset")
// zvolime klientsky kurzor a otvorime Access tabulku
Recordset.CursorLocation = adUseClient
Recordset.Open "MyTable", "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\MyDb.mdb", , adLockBatchOptimistic
// zobrazime connection
MsgBox Recordset.ActiveConnection
// odpojime recordset
Recordset.ActiveConnection = Nothing
MsgBox "Recordset je odpojeny, mozes zmazat databazu"
// zobrazime pocet zaznamov
MsgBox Recordset.RecordCount
// zobrazime jednotlive zaznamy
while not Recordset.EOF
MsgBox Recordset("NAME")
Recordset.MoveNext
wend
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
---------------
Pripojenie k Access databaze lahko spoznas podla toho, ze je, resp. nie je
vytvoreny lock (LDB) subor.
Buffrovanie dat na klientovi je vlastne zakladna uloha klientskeho kurzora.
Okrem toho poskytuje
aj rozne operacie nad udajmi (napr. triedenie, filtrovanie). Je to velmi
vyhodne, pretoze umoznuje
pracovat bez pripojenia k databaze a riesi tym niekolko problemov, povedzme
mensie zatazenie
db servera, pripadne na strane klienta urcitu nezavislost (pracovat napr. s
notebookom, ci handheldom
aj tam, kde nemam pripojenie k databaze). Klientsky cursor je vlastne akysi
jednoduchy "databazovy
engine" pre klienta.
Erik
Popis Format BMP
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 17.3.2000 10:42:30
Format BMP
--------------
http://www.on.cs.keio.ac.jp/naoto/bmp.html
http://www.srm.com/icb/bmp.html
http://www.ice-digga.com/programming/bmp.html
http://www.daubnet.com/formats/BMP.html
http://www.dcs.ed.ac.uk/~mxr/gfx/filelist/filefmts.lst
http://wotsit.org/cgi-bin/download.cgi?bmpfrmat (MS Word .DOC)
http://wotsit.org/cgi-bin/download.cgi?bmpadd (ZIP)
http://wotsit.org/cgi-bin/download.cgi?bmp (ZIP)
http://www.lib.ox.ac.uk/internet/news/faq/archive/graphics.fileformats-faq.p
art3.html
OS/2 BMP:
http://www.edm2.com/0107/os2bmp.html
S pozdravem
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 72 76 98 48 mobil: 0602/ 207 557
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
======ICQ: 57557677 =======================
----- Original Message -----
From: Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 16, 2000 1:35 PM
Subject: RE: Popis Format BMP
> zkus http://www.wotsit.org/, formaty vseho druhu
Tisk sloupcove sestavy v Quick Reportu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 17.3.2000 10:48:26
Nepises, jak jsou ty dve tabulky spojeny,
ale zkusil bych napsat nejaky SQL dotaz
a ten potom pouzit jako zdroj dat pro QR
(a ten pak v_y_tisknout :-)
D.
> ----------
> Od: Jind> �ich Nikodem[SMTP:nikodem(zv)kh-kinetic(tec)cz]
>
> nevite nekdo jak mam vitisknout sloupcovou sestavu s v Quick Reportu, kdy
> kazdy sloupec je y jineho DBF souboru. Pokud tisknu data z jednoho DBF tak
> mi to jde (pomoci Band - Detail a LabelDBF).
>
>
> transparentni form
[*] Tibor Galik <tgalik(zv)vsz.sk> - 17.3.2000 11:03:05
>http://www.lawrenz.com/coolform/
>
>je tam transparentni formular,
ja s tym bohuzial neviem pohnut. Ano demo mi funguje, ale ako to pouzit v aplikacii ? Definoval som CoolForm1, vlozil som Picture. Potom som definoval Mask, kde som vybral farbu a saveol som masku. Ide o splash obrazovku.
Po kompilacii tam nie je nic priesvitne. V priklade je este ExtMaskGenerator.pas , ale nie je sucast componenty.
Ako to robis Ty?
> jedna pekna slecna ....
je fakt pekna ;-)
>funguje dobre
>
diky
cao
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
MS Access
[*] Ale� Kle�ka - 17.3.2000 11:36:42
Zdravim,
v Delphi 4 mam vytvorit aplikaci, ktera pracuje s LOKALNI databazi MS
Access.
Chtel bych poprosit Ty z Vas, kteri uz s timhle mate zkusenosti, jestli
by jste mi nemohli poslat TIP - jake komponenty mam pouzit, resp. se kterymi
mate dobre zkusensoti ( anebo opacne kterym bych se mel zdaleka vyhnout,
abych se nenapalil a neztracel zbytecne cas ).
Diky predem za pomoc
Alesh Kleczka
{ a.klecka(zv)email(tec)cz }Jak najit chybu?
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 17.3.2000 13:07:52
> Aplikaci (D2) otevru a zavru (nic vic).
> V poradku probehne OnCreate i OnDestroy formulare (kdyz to ladim, neni v
> nich obvykle nic).
>
> Program pak zahlasi Access Violation (na porad stejne adrese, ktera vede do
> unity Controls):
Vseobecna rada:
Umazavat, zjednodusovat az chyba zmizi.
Pujdes-li po polovinach,
muzes ji najit v case log2(DelkaProgramu) :-)
Tom
TDataset.Refresh
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.3.2000 12:08:47
On 15 Mar 00, at 23:52, Viliam Mlich wrote:
> >> moj problem s 30 megovym PDOXUSRS.LCK k 15-kilovej databaze sa
> >> nakoniec vyriesil tym, ze som tu databazu presunul na SQL servera.
>
> > No vidis, a takovych zprav se tu kolem tematu souborova vs SQL
> > databaze napsalo... :-)
>
> Ten jeden problem sa sice vyriesil, ale inak sa mi cela aplikacia
> rozsypala. Uz tyzden nerobim ine, len kazdu chvilu musim niekde v
> query namiesto uvodzoviek dat apostrofy, alebo namiesto 'IS NOT NUL'
> pisat '<>#39#39' , stale mi nie je jasne, ako riesit problem
> den/mesiac/rok a rok/mesiac/den, aby to chodilo na kazdom pocitaci,
> atd.
??? S temi apostrofy je to jasne, to si nahrad rovnou vsude. Ale
nechapu to IS NOT NUL (neprepsal ses, ma tam byt NULL?).
Jakou databazi pouzivas?
S datumem je to trochu horsi - ja vetsinou pouzivam svuj format
prevedeny na integer (pokud chci sestavovat dotaz v programu a
porovnavat datumy), nebo pouzivam ulozene procedury, kam datum
nacpu do parametru typu double.
> Zatial som napriklad nezistil, preco mi neberie UNION, uplne
> jednoduchy:
>
> SELECT * FROM prac UNION SELECT * FROM archiv
Mozna zkus vyjmenovat polozky. Ale IMHO by tohle fungovat melo,
pokud jsou vsechny polozky shodneho typu.
> Dalsi problem je zradnejsi: Obsah TQuery zobrazujem v DBGride a ked
> urobim Query1.Insert, tak do databazy sa polozka dostane, ale v Query1
> (a teda ani v gride) neni! Ani Query1.Locate ju nenajde! Dva roky to v
> paradoxe fungovalo. Na pouzitie 'Query1.Refresh' mi to vynada, tak som
> za kazde '.Insert' musel doplnit este '.Close/.Open', nastastie to
> cele prebehne rychlejsie, nez samotne '.Insert' v paradoxe :-)
TTable a TQuery jsou dobre odladene pro Paradox. Vuci SQL
databazim se vsak chovaji v nekterych situacich nekorektne.
TQuery skutecne neumi udelat nad SQL databazi Refresh
(netestoval jsem posledni verzi), chyba se tahne uz leta uvnitr
komponenty. Doporucuji poohlednout se po jinych komponentach,
v zavislosti na databazi - v pripade IB mozna na IBExpress, jinak
doporucuji ADO ci OLE DB komponenty - predpokladam, ze
behem letoska bude kazda zajimavejsi databaze umet OLE DB.
Dale, nepouzivej Query.Insert, ale radeji Query.SQL.Text:='insert
into ...'. Je dobre se zbavit zvyklosti ze souborovych databazi, v
SQL je rada veci znacne jinak.
> Ale problemy mi robi vratenie DBGridu do povodneho stavu. GotoBookmark
> prekvapivo ide aj po close/open, no je to prilis tenky lad (zo siete
> medzitym dalsi pridavaju a rusia riadky) a to ani nehovorim, ze cely
> grid poskoci, aby vybrany riadok bol v strede.
Bookmark radeji pri close/open nepouzivej, je to obycejny pointer
do pameti. Takze po znovuotevreni tabulky nemusi dojit k obsazeni
stejneho useku pameti.
Na stejne problemy jsem narazel take a usili na uvedeni do
zadouciho tvaru bylo tak velike, ze jsem to radeji vyresil uplne
jinak. A mam po problemech. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Znepristupneni property v Delphi 3
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 17.3.2000 13:30:46
> Udelal jsem si konponentu v Delphi 3 zalozenou na TImage a potreboval bych uzivatelum znepristupnit nektere property. Jak to udelat abych je pritom mohl uvnitr komponenty pouzivat, aniz by do nich m
Udelej si novou komponentu OBSAHUJICI TImage
(bude se vykreslovat tak, ze nakresli ten Image).
Tom
SaveKey/LoadKey
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 17.3.2000 12:44:58
How do I use the TRegistry::SaveKey and TRegistry::LoadKey functions to
backup registry keys?
je tady http://community.borland.com/article/0,1410,10348,00.html
M.
Zjisteni cisla radku, kde doslo k chybe
[*] martin.falta(zv)atlas(tec)cz - 17.3.2000 13:18:01
Ahoj,
nevite nekdo, jak by se za behu programu dalo zjistit v jakem modulu a na jakem radku doslo k chybe?
Predem diky.
Martin
MS SQL a Datum
[*] Ren� Otisk - 17.3.2000 13:22:55
Hi,
D3 C/S, RxLib 2.75, MS SQL 7.0
Chtel bych se zeptat. Pred pouzitim SQL dotazu, kde pouzivam datum, dam prikaz SET DATEFORMAT dmy. Existuje nejaky prikaz, ktery by to nastaveni ponechal trvale (neco jako SET PERMANENT (...jsem nekde zahlidl u ORACLE))?
Sroub
Nahled v sceen saveru...
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 17.3.2000 13:54:13
Ahoj,
koukni se na tento priklad (DSSaver) :
http://www.volny(tec)cz/dmaly/delphi/ssaver.zip
(18 KB)
http://www.volny(tec)cz/dmaly/delphi/ssaver_e.zip
(159 KB; vcetne jiz prelozeneho *.scr)
Umi nahledy, konfiguraci, heslo, ...
Veskere potrebne informace by jsi tam mel najit
Dobra.> ----------
> Od: Martin Pesek[SMTP:vegainfo(zv)post(tec)cz]
>
> muze mi nekdo naznacit, jak udelat pri vyrobe screen saveru
> maly nahled (vlastnosti obrazovky - vyber screen saveru)?
> �>
> Zjisteni cisla radku, kde doslo k chybe
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.3.2000 14:08:56
>Ahoj,
>
>nevite nekdo, jak by se za behu programu dalo zjistit v jakem modulu a na
jakem radku doslo k chybe?
Odchytit exception, zjisti adresu chyby a prohledavat detail map file (ktery
musi byt k programu prilozen) :-)
Zdravi
D. Toman
Spusteni programu
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 17.3.2000 14:15:18
Dobry den,
prosim Vas, existuje nejaka metoda, jak by se dal z aplikace
spustit nejaky jiny (*.exe) program. Neco podobneho jako je v C/C++
exec() nebo system().
Dekuji.
Petr Kucera
StringGrid
[*] Ondrej Slama <slama(zv)internet(tec)cz> - 17.3.2000 14:27:46
ahoj,
muze mi nekdo prosim pomoct.
Ve formu mam StringGrid a potrebuju najet na radek tabulky, klikem ho
oznacit.
Pomoci StringGrid.Row se mi vrati cislo radku. Po stisku tlacitka potrebuju
tenhle radek z tabulky odstranit a vsechny radky pod posunout o jeden
nahoru.
Existuje nejakej jednodussi postup nez ho clearnout, manualne vsechnu radky
pod posunout
nahoru a pak posledni smazat ????
Chtel bych vyuzit neco jako StringGrid.Rows[].Delete(); ale nevim jak to
funguje.
Muze mi nekdo helpnout ???
Dik moc............MS Access
[*] Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz> - 17.3.2000 13:35:21 -0000
Taky jsem se tim chvilku zabyval a asi nejednoudussi je vytvo�it si pres BDE
(je zde moznost editace i za behu programu, viz archiv konference) pristup a
pote vyuzivat komponenty query (moznost pouziti SQL dotazu) no a na query
jdou pripojit i zobrazovaci komponenty DbGrid atd. (componenty na karte
Acces), pripadne nadstavby na kontrolu pristupu Tdatabase atd..
Amatersky programator J.C.
> ----------
> Od: Ale� Kle�ka[SMTP:aklecka(zv)merlin(tec)cz]
> Odesl�no: 17. b�ezna 2000 11:36
> Komu: forum Delphi
> P�edm�t: MS Access
>
> Zdravim,
> v Delphi 4 mam vytvorit aplikaci, ktera pracuje s LOKALNI databazi MS
> Access.
> Chtel bych poprosit Ty z Vas, kteri uz s timhle mate zkusenosti,
> jestli
> by jste mi nemohli poslat TIP - jake komponenty mam pouzit, resp. se
> kterymi
> mate dobre zkusensoti ( anebo opacne kterym bych se mel zdaleka vyhnout,
> abych se nenapalil a neztracel zbytecne cas ).
>
> Diky predem za pomoc
>
> Alesh Kleczka
> { a.klecka(zv)email(tec)cz }
> datetime->longint
[*] sup(zv)svitap(tec)cz - 17.3.2000 15:55:14
Dobry den, mam jeden problemecek. Potrebuji dostat datum ze stringu ve tvaru
'RRRRMMDD' do promenne longint (Juliansky kalendar). V archivu konference
jsem nic podnetneho nenasel...
Dekuji predem
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Socket Server
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 17.3.2000 16:09:29
ahoj
D5 Enterprise,MIDAS,socket server,RAS
Nevite nekdo jak vyresit nasledujici problem:
V programu, ktery vyuziva spojeni pres modem vyuzivam technologii MIDAS.
Spojeni mezi klientem a serverem je realizovano pres TSocketConnection.
Program ma byt schopen odpojit se od serveru a zit vlastnim zivotem. Pak se
zase pripojit a pokracovat. Projdu tedy vsechny socket connection a nastavim
jim connection na False. Tim se odpoji od serveru. Pak zavesim zpojeni a
pracuji off-line. Na vyzadani opet vytocim linku ( kdyz nahodou nevytoci
linka me :-) ) napojim se na server a pokracuji.Potud teorie.
Problem je v tom ze odpojeni komponent TSocketConnection sice probehne v
poradku, spojeni se zavesi, ale na Sock serveru zustavaji viset nejaka
pripojeni. Kdyz dam mezi odpojeni komponent a zaveseni prodlevu Sleep(5000),
pripojeni viset nebudou. Domnivam se, ze pred zavesenim jeste nebylo
odpojeni dokonceno a program uz zavesil spojeni.
Nevite nekdo jak poznam ze uz je program odpojeny a ze muzu zavesit.
zatim diky
Jaromir Cermak
Spusteni programu
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 17.3.2000 16:45:42
Fri, Mar 17, 2000 ve 02:15:18PM +0100 Petr Ku�era napsal:
# Dobry den,
#
# prosim Vas, existuje nejaka metoda, jak by se dal z aplikace
# spustit nejaky jiny (*.exe) program. Neco podobneho jako je v C/C++
# exec() nebo system().
#
# Dekuji.
#
# Petr Kucera
WinExec()
CreateProcess()
ShellExecute()
--milan sorm
Pasivni rezim FTP
[*] Ale� Va���ek�����"q��y�&���w�3 - 17.3.2000 17:31:07
Zdravim,
mohl by mi prosim nekdo vysvetlit k cemu slouzi pasivni prenos dat u
komponenty FTP?
Dekuji, Ales
Asyncfree ve Windows NT
[*] delphi <delphi(zv)anexis(tec)cz> - 17.3.2000 17:42:47
>nemate nekdo zkusenosti s Asyncfree ve Windows NT ?
>Pri vyvolani se objevi chyba: "Error initializing buffers". pod W95/98 pracuje perfektne.
>Z AsyncFree pouzivam jen komponenty TAfComPort a TAfPortRadioGroup. Zkousel jsem dve nastaveni buffers:
K tomu Ti muzu rici jen tolik, ze Asyncfree mi v NT 4.0 SP3 funguje. (D5P+SP1)
Ahoj Franta
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.3.2000 17:43:34
On 17 Mar 00, at 7:41, David Lebeda wrote:
> > > Ale kdyz uz jsme u toho mereni rychlosti: je fakt, ze
> > > RxMemoryData se naplni z dat bufferovanych Adonisem
pomaleji nez z
> > > jine RxMemoryData. Rozdil je sice evidentni, ale ne zase tak
> > > drasticky, aby me presvedcil o vhodnosti nepouzivani ADO
> > > clientskych kurzoru.
> >
> > Mas zdrojaky Adonise? Pokud ano, mohl bys overit tuto
> > domnenku: ADO nacte data do sveho bufferu (tohle overime tezko :).
> > Adonis si totez dale cte do sveho bufferu. Pak to preda dal. Zde by
> > tedy mohlo zdrzovat dvoji cteni. BTW - proc se k tomu dosud
> > nevyjadril Erik?
>
> Nemam zdrojaky, ale vyjadreni Erika by me taky zajimalo. Dosud
> se k tomu nevyjadril patrne proto, ze to tema jsem nadhodil ted
> poprve:))). Z jineho mailu od Erika plyne, ze Adonis nema vlastni
> bufferovani. Nicmene nejake typy na dalsi zdroje zdrzeni by me taky
> zajimaly.
Erik se uz vyjadril jasne, takze je znam tok dat.
Predpokladam, ze ADO cte data z OLE DB nejakym efektivnim
zpusobem. Zdrzeni tedy muze byt na strane predavani dat z ADO
do Pascalu, kde zrejme dochazi k prelevani z nativniho formatu do
variantu na strane ADO a dale ke cteni variantu na strane Pascalu.
Plus nejaka rezie na obsluhu COM objektu. Zbytek by mel byt uz
stejny.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TDataset.Refresh
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 17.3.2000 18:14:04
>> Ale problemy mi robi vratenie DBGridu do povodneho stavu. GotoBookmark
>> prekvapivo ide aj po close/open, no je to prilis tenky lad (zo siete
>> medzitym dalsi pridavaju a rusia riadky) a to ani nehovorim, ze cely
>> grid poskoci, aby vybrany riadok bol v strede.
>
>Bookmark radeji pri close/open nepouzivej, je to obycejny pointer
>do pameti. Takze po znovuotevreni tabulky nemusi dojit k obsazeni
>stejneho useku pameti.
Misto GotoBookmark pouzivej radeji Bookmark:=
budes pracovat s TBookmarkStr, takze se nemusis starat o alokaci/dealokaci
pameti.
Ma-li tabulka primarni index je bookmark "stable" (viz hel BDE) a
identifikuje
zaznam jednoznacne i po open/close/open.
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
TTreeView a Editace Node
[*] Jan Votava <djsoft(zv)top(tec)cz> - 17.3.2000 18:49:16
Ahoj.
D4 / W98
Jakym zpusobem odchytim ukonceni editace textu TreeNode v TreeView. Event
TTreeView.OnEdited se vyvola pouze pokud dojde k nejake zmene v textu. Ja
bych ale potreboval odchytit konec editace i v pripade, ze uzivatel zmeny
canceluje (v takovem pripade zminovany TreeNode chci totiz odstranit).
V Win32 Helpu se pise, ze se posila WM_NOTIFY zprava o ukonceni editace, ale
TTreeView ji asi schramstne a pusti dal jen to, co uzna za vhodne. Da se to
nejak obejit?
Cau, Honza
Zjisteni cisla radku, kde doslo k chybe
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 17.3.2000 20:14:28
Neni jiny zpusob? U rozsahlejsi aplikace to bude pomale.
Martin
>>Ahoj,
>>
>>nevite nekdo, jak by se za behu programu dalo zjistit v jakem modulu a na
>jakem radku doslo k chybe?
>
>
>Odchytit exception, zjisti adresu chyby a prohledavat detail map file
(ktery
>musi byt k programu prilozen) :-)
>
>
>Zdravi
>D. Toman
>
>TTreeView a Editace Node
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 17.3.2000 20:35:06
> Jakym zpusobem odchytim ukonceni editace textu TreeNode v TreeView. Event
> TTreeView.OnEdited se vyvola pouze pokud dojde k nejake zmene v textu. Ja
> bych ale potreboval odchytit konec editace i v pripade, ze uzivatel zmeny
> canceluje (v takovem pripade zminovany TreeNode chci totiz odstranit)
Ahoj,
ja bych to delal na dvakrat. Je to neodzkouseny, pisu to z hlavy, ale melo
by to fungovat
var
PuvodniText: string;
procedure TMainForm.TreeView1Editing(Sender: TObject;
Node: TTreeNode; var AllowEdit: Boolean);
begin
PuvodniText := Node.Text;
AllowEdit := true;
end;
procedure TMainForm.TreeView1Edited(Sender: TObject;
Node: TTreeNode; var S: string);
var
NovyText: string;
begin
NovyText := Node.Text;
if NovyText = StaryText then Cancelled
else Changed;
end;
Lubos Rybnicek
ICQ UIN 18817151
Phone: +420 603 916889
Ako spravne vykonat refresh TIBQuery. HELP MI PLIZ
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 17.3.2000 22:30:41
Zdravim.
Najprv by som chcel vysvetlit aky postupom vykonavam:
Mam ciselnik statov, je to jednoduchy form s styrmi buttonmi (Pridaj, Oprav, Vymaz, Refresh) a jednym gridom (DBGridSinea). Komunikaciu s datami pouzivam:
TIBDatabase, je na main forme (ma tam aj svoj Default Trans).
Ciselnik obsahuje: IB1:TIBQuery, IBT1:TIBTransaction, IBE:TIBEvents a samo ze aj DS1:Datasource. Vlastne transaction je tam preto lebo aplikacia je zalozena na MDI a jedno trans je malo. IBE je zaregistrovane v OnCreate a zachytava "STATY CHANGE" aj je vyvolany OnEventAlert tak zavola btnRefresh.OnClick(self). (Zdroj refreshu na konci).
Okno Pridaj obsahuje editboxy a dva buttony (Zapis,Nezapis) Na zapis do table pouziva TIBQuery s vlastnym IBTransaction, lebo okno pridaj moze byt vyvolane aj s ineho ciselnika, takze sa nemoze spoliehat na to ze okno cislenika statov existuje. Co sa tyka pridaj, oprav, vymaz nemam ziadny problem, vsetko funguje.
V databaze su triggery ktore AFTER (insert , update, delete) poslu message "STATY CHANGE". IBEvents zareaguje a zavola REFRESH button ktory zavola funkciu univerzalnu:
----------------------------------------------------------------------------------------------------------------
function qIBRefresh(IBQuery:TIBQuery):boolean;
var ujed:integer;
begin
Screen.Cursor:=crHourGlass;
try
try
frmMain.StatusBar1.Panels[3].Text:='Obnovujem zobrazenie...';
frmMain.StatusBar1.Update;
ujed:=0;
if IBQuery.Active then
begin
ujed:=IBQuery.FieldByName('jedin').asinteger;
IBQuery.Close;
end;
if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
IBQuery.Open;
if IBQuery.Locate('jedin',ujed,[])
then Result:=true
else Result:=False;
// ak nasiel vrati true a ak nie tak false
except MessageDlg('Nastala chyba po�as refresh datab�zy.', mtError, [mbOK], 0); end;
finally Screen.Cursor:=crDefault; end;
frmMain.StatusBar1.Panels[3].Text:='';
frmMain.StatusBar1.Update;
end;
----------------------------------------------------------------------------------------------------------------
ulohou tejto funkcie je obcerstvit udaje a postavil kurzor na tu istu poziciu ako pred refreshom.
Pokial si dam break point na zaciatok refresh funkcie a prekrokujem ju vsetko je OK, ale pocas chodu to na 80% vyvola ten except a vobec mi nie je jasne ze PRECO.
Ak zistim E:EIBError tak vysledok je nasledovny:
E.Message:='Transaction is active'
E.IBErrorCode:=0;
E.SQLCode:=19;
V helpe som sa docital, ze SQLCode 1-99 su "len" SQLWARNING System warning or informational message, ale preco to pise?
Pre uplnost udavam aj zdroj vyvolania okna pridaj:
----------------------------------------------------------------------------------------------------------------
Application.CreateForm(TfrmCStatyPridaj,frmCStatyPridaj);
with frmCStatyPridaj do
begin
Caption:='Oprava �t�tu...';
e1.UniqueColumnValue:=Self.ib1.FieldByName('jedin').AsInteger;
ShowModal;
Free;
end;
----------------------------------------------------------------------------------------------------------------
Komponenta e1 je klasicky EditBox rozsireny o kontrolu jedinecnosti udaja. Kontrolujem jedinecnost este pred zamotnym zapisanim. Okna Pridaj vzdy vytvaram pri volani a po ukonceni odstranim.
Myslim ze to je zapricinene stylom ako to robim, ale neviem to odkrokovat (predpokladam ze exception je volane pri pokuse o OPEN), pokial odstavim IBEvents aby nereagoval a po ukonceni okna PRIDAJ si sam rucne refreshnem tak to zbehne, ale ja to potrebujem zautomatizovat koli sietovej verzii, pri ktorej by sa mi mal refreshovat obsah Gridu pri zmene.
PS: Pouzivam D5, IB 5.6, IBE update #1, RXLib 2.75, a vlastne veci.
Archiv konferencie DelphiCZ som preliezol ale nic som nenasiel.
Za vsetky napady co s tym uz vopred dakujem.
S pozdravom Roland Turcan.Desetinna cisla
[*] Rommet <rommet(zv)post(tec)cz> - 17.3.2000 23:02:40
Ahoj v konferenci
Mohl by mi nekdo poradit s desetinnymi cisly.
Mam vytvorenou databasi Local Interbase. Kde mam v tabulce pole Numeric(8,2)
Pokud ukladam pr.: 4,24 je to v pohode
ale pokud do pole hodnotu spocitam treba delenim tak se mi ulozi 4,243546879135 (drobne jsem si vymyslel)
potrebuji ale jen se zaokrouhlenim na 2 mista jak to prosim udelam aby to fungovalo
Pouzivam D3
Hlavne mi nikdo nerikejte ze to nejde nebo ze mam prejit na cele cisla. Ukony ktere dal provadim jsou s chybou desetin.
Vim ze mohu nastavit V object inspektoru u pole displayvallue na 0.00 ale to mi nestaci potrebuji to mit v databsi ulozeno jen se dvemi misty.
Diky za odpovedi mej te se fajn
INetDetector
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 18.3.2000 00:16:02
Zdravim.
Stiahol som si free componentu INetDetector v. 2.1 od UtilMind Solutions, ale ja mam na sieti TCP/IP protokol a on sa na nom pomyli, mysli si ze som Inet Online. Pouzivam staticke IP. Ako by ste riesili aby si to neplietol.
Hi. Roland.Twain
[*] Petrik <petrik(zv)geocities(tec)com> - 18.3.2000 00:28:29
Nazdarek,
mam problemek s TWAINEM
je to tato funkce, ktera uklada nascanovany obr. do
Bitmapy - TBitmap:
*****************************************************************
begin
result:=false;
twRC:=DSCall( DG_IMAGE, DAT_IMAGENATIVEXFER, MSG_GET, (zv)hDIB);
// chci sosat
case twRC of
TWRC_XFERDONE:
begin
lpDib:=GlobalLock(hDIB);
try
ColorTableSize := (DibNumColors (lpDib) * sizeof(RGBQUAD));
//dibnumcolor je nejaka funkce, ktera s tim ale asi nesouvisi
lpBits := pchar(lpDib);
inc(lpBits, lpDib.bmiHeader.biSize);
inc(lpBits, ColorTableSize);
dc:=GetDC(0);
try
hBMP := CreateDIBitmap( /!!!!!!!!!!!!!!!! je to dobre ????
dc,
lpdib.bmiHeader,
CBM_INIT,
lpBits,
lpDib^,
DIB_RGB_COLORS);
bmp.Handle:=hBMP;
result:=true;
finally
releaseDC(0, dc);
end;
finally
GlobalUnlock(hDIB);
GlobalFree(hDIB);
end;
end;
TWRC_CANCEL:;
TWRC_FAILURE:
RaiseLastDSMCondition('Native Transfer');
end;
end;
**********************************************************************
tak tohle proste naladuje tu Bitmapu - ale ja vubec nevim jak, ale to me ani
nezajima - dulezity je, ze pokud je Bitmapa vetsi nez CCA (!!) 20MB, tak
to (po zapsani do souboru a nebo i prim vykresleny pres TImage) ma NULOVOU dylku
.. je to cca od 300dpi-A4; nebo i 600 dpi treba 5x3 palcu .. atd ...
Nevite nekdo proc ?
Cus,
Petrik mailto:petrik(zv)geocities.com
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
ADONIS - Browse
[*] bigzero(zv)post(tec)cz - 18.3.2000 00:54:55
Zdravim !
Pokousim se pro uzivatele vytvorit iluzi, ze volne \"projizdi\" v gridu celou tabulku. Protoze ma tabulka
radove hodne tisic zaznamu nemuzu na to jit primo.
Do gridu se natahuje jen cast dat (napr. podle prvniho pismene nazvu polozky) podle aktualni pozice kurzoru. Pokud ale uzivatel postupne dojede az na konec bloku potreboval bych dotahnout dalsi resp. predchozi blok.
Zkousel jsem vyuzit event ADOOnRecordSetEnd, ale asi to
nebude to prave (uvnitr event nelze operovat s DataSetem,
spatne se detekuje zda je kurzor na zacatku ci konci a navic se vola i behem radneho vykreslovani DBGridu).
Diky za pomoc
Honza
Kde najdete PRESNE to, co hledate?
*** http://NAJDI.TO
FTP & HTTP
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 18.3.2000 11:55:43
Ahojky lidickove, potreboval bych poradit s FTP a HTTP v Delphi 4. V
knizce, kterou k tomu mam jsou o INetu cca 3 stranky a v helpu toho taky
moc nejni. Potreboval bych popsat zhruba postup pri downloadovani fajlu
pres %Subject%. Bude mi stacit i INetova adresa, kde se da o tom sehnat
nejake info. Diky moc za pripadnou pomoc.
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://www.volny(tec)cz/jimx & http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/TImage a rotace
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 18.3.2000 12:08:41
Prijemn� den,
D4 standard W95 OSR2
> Pokud vyzadujes, aby pohyb sipky byl skutecne plynuly je dobrym resenim
> opustit rastrovou podobu grafiky a prevest sipku do vektorove podoby.
> Otaceni vektoroveho objektu je nasledne zalezitost vyvolani jedne funkce.
> Popis prevodu a patricne funkce najdes napr. v knize Pocitacova grafika
oda
> Grady nebo samozrejme na inetu. V nouzi nejvyssi Ti je najdu....
To by se mi moc libilo, mohu samozrejme misto ikony pouzit napr WMF. Jen
kdyby jsi me mohl navest kde najit tu funkci pro otoceni takoveho
vektoroveho obrazku o nejaky libovolny uhel. Tu knihu nemam.
Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
Zacinajici amatersky programator
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/Desetinna cisla
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 18.3.2000 11:22:59 -0000
To vis ze to jde:
procedure TForm1.Button1Click(Sender: TObject);
var
A, B: Extended;
begin
A := 25.45785965;
B := Round(A * 100) / 100;
// A obsahuje 25.45785965
// B obsahuje 25.46
end;
Ahoj Tomas Bihary
----- Original Message -----
Ahoj v konferenci
Mohl by mi nekdo poradit s desetinnymi cisly.
Mam vytvorenou databasi Local Interbase. Kde mam v tabulce pole Numeric(8,2)
Pokud ukladam pr.: 4,24 je to v pohode
ale pokud do pole hodnotu spocitam treba delenim tak se mi ulozi
4,243546879135 (drobne jsem si vymyslel)
potrebuji ale jen se zaokrouhlenim na 2 mista jak to prosim udelam aby to
fungovalo
Pouzivam D3
Hlavne mi nikdo nerikejte ze to nejde nebo ze mam prejit na cele cisla.
Ukony ktere dal provadim jsou s chybou desetin.
Vim ze mohu nastavit V object inspektoru u pole displayvallue na 0.00 ale
to mi nestaci potrebuji to mit v databsi ulozeno jen se dvemi misty.
Diky za odpovedi mej te se fajn
Socket Server
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 18.3.2000 11:37:55 -0000
Tohle je jen ciste teoretickej takovej napad:
1) klient rekne serveru, ze se che odpojit
2) server ukonci spojeni
3) klient zpracuje AfterDisconnect a zavesi
snad by to mohlo fungovat
Ahoj Tomas Bihary
----- Original Message -----
> ahoj
>
> D5 Enterprise,MIDAS,socket server,RAS
>
> Nevite nekdo jak vyresit nasledujici problem:
>
> V programu, ktery vyuziva spojeni pres modem vyuzivam technologii MIDAS.
> Spojeni mezi klientem a serverem je realizovano pres TSocketConnection.
> Program ma byt schopen odpojit se od serveru a zit vlastnim zivotem. Pak
se
> zase pripojit a pokracovat. Projdu tedy vsechny socket connection a
nastavim
> jim connection na False. Tim se odpoji od serveru. Pak zavesim zpojeni a
> pracuji off-line. Na vyzadani opet vytocim linku ( kdyz nahodou nevytoci
> linka me :-) ) napojim se na server a pokracuji.Potud teorie.
> Problem je v tom ze odpojeni komponent TSocketConnection sice probehne v
> poradku, spojeni se zavesi, ale na Sock serveru zustavaji viset nejaka
> pripojeni. Kdyz dam mezi odpojeni komponent a zaveseni prodlevu
Sleep(5000),
> pripojeni viset nebudou. Domnivam se, ze pred zavesenim jeste nebylo
> odpojeni dokonceno a program uz zavesil spojeni.
>
> Nevite nekdo jak poznam ze uz je program odpojeny a ze muzu zavesit.
>
> zatim diky
> Jaromir Cermak
Pasivni rezim FTP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.3.2000 14:37:39
>Zdravim,
>
>mohl by mi prosim nekdo vysvetlit k cemu slouzi pasivni prenos dat u
>komponenty FTP?
normalne behem stahovani souboru ci obsahu adresare dochazi k vytvoreni
noveho TCP spojeni a to tak, ze jej navazuje SERVER smerem na klienta.
Jelikoz to muze delat problemy napriklad pokud je FTP klient za firewallem,
lze tento mechanismuz zmenit pomoci povelu PASV. Pak datova spojeni navazuje
klient smerem na server.
Zdravi
D> Toman
task bar
[*] Bejvlov� Martina <M.Bejvlova(zv)cra(tec)cz> - 18.3.2000 14:46:22
Ahoj, me to funguje bez problemu. (Pouzivam normalne unitu Windows)
Ale mam jiny problem. Potrebovala bych, aby se misto klasickeho buttonu v
task baru objevila jenom ikonka vedle tlacitka Start. (Mam D5S, NT) Nemate
nekdo nejaky napad?
Predem diky.
Martina
>Zdravim
>ShowWindowAsync( Application.Handle, SW_HIDE );
> Application.ProcessMessages;
>NEFUNGUJE TO.
>Neni tam nahodou potreba pridat nejakou unitu do uses?
>Nebo to snad nekomu fungovalo? Jak?
----------------------------------
>Hurricane
Kopirovani v Delphi + ShellExecute
[*] Delphi <delphi(zv)dcomm(tec)cz> - 18.3.2000 15:50:30
Ahoj
mam dva problemky, ktere me trochu trapi.
1, Potrebuji kopirovat soubory v Delphi, coz jak asi vsichni vite Delphi
neumi... podle prispevku (1998 <http://www.delphi(tec)cz/archiv.asp?rok=1998>
jul <http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul> 15
<http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul&den=15> od e. 1
<http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul&den=15&first=1> Linhart
Petr <Petr(zv)manwe.mius(tec)cz> )
jsem si upravil proc. takto:
ExFileName... jmeno souboru
ExportPath... kam kopiruji
procedure CopyFileP(ExFileName: String);
var SH: TSHFileOpStructA;
F, T: String;
begin
F := ExFileName;
T := ExportPath;
with SH do
begin
Wnd:=0;
wFunc:=FO_COPY;
pFrom:=Pchar(F);
pTo :=Pchar(T);
fFlags:=FOF_FILESONLY;
end;
shFileOperation(SH);
end;
MainForm.Expedice.Close;
MainForm.Expedice.RenameTable(ExportFileName);
CopyFileP(ExportFileName);
MainForm.Expedice.RenameTable('Expedice.dbf');
MainForm.Expedice.EmptyTable;
MainForm.Expedice.Open;
pri prvnim zavolani kopirovani probehne v poradku lec napodruhe mi zahlasi
chybu 1026 (Soubor nemuze byt kopirovan *) na radku shFileOperation(SH).
Chybu jsem v helpu Win32 nenasel a Delphi tez ne. Vyresil jsem to pres API
fci. CopyFile, ale zajima me v cem delam chybu.
2, z meho prg. spoustim
ShellExecute(Application.Handle,'open',PChar(ExcelFileName),Nil,PChar(ExcelF
ilePath),SW_ShowMaximized);
lec misto kyzeneho dokumentu vidim plochu, ktera byla na tom miste kde se
Excel otevrel. Myslel jsem, ze se jedna o chybu ve stylu Excel - neni
odpoved, ale nabidky a fce normalne funguji. Jen ten dokument nevidim :o(((
Dekuji za odezvu
Hippy
*Win98 Czech SecondEdition, Office 2000, D4.....Upgrade Delphi
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 18.3.2000 18:55:19
Preji pekny den,
Da se upg. D5S na D5P za cenu upgradu?
Diky za odpoved,
Honza Naiser.
ADONIS - Browse
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.2000 19:11:27
On 18 Mar 00, at 0:54, bigzero(zv)post(tec)cz wrote:
> Pokousim se pro uzivatele vytvorit iluzi, ze volne \"projizdi\" v
> gridu celou tabulku. Protoze ma tabulka radove hodne tisic zaznamu
> nemuzu na to jit primo.
>
> Do gridu se natahuje jen cast dat (napr. podle prvniho pismene nazvu
> polozky) podle aktualni pozice kurzoru. Pokud ale uzivatel postupne
> dojede az na konec bloku potreboval bych dotahnout dalsi resp.
> predchozi blok.
Pro toto je dobre prime pouziti OLE DB. Po dotazu je mozne zjistit
pocet zaznamu. Data lezi v databazi, a ja si mohu vytahnout
presne jen ta data, ktera potrebuji. Tedy, nastavim si grid na
prislusny pocet zaznamu, a jak uzivatel jezdi po gridu, zjistim si
prvni radku a pocet viditelnych radku, a k nim mohu docist prave
jen ta data, ktera potrebuji. Je pritom lhostejne, odkud kam skacu.
Takto na povrchu lze napsat chovani stejne jako u nekterych (nebo
vsech?) Delphi ADO komponent, narozdil od ADO vsak netvori OLE
DB zadny svuj buffer, takze komunikace probiha primo s databazi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.3.2000 19:11:27
On 17 Mar 00, at 10:41, Erik Salaj wrote:
> > Hm, zkousel jsem to prohnat pres ADOExpress, ale bezuspesne.
> > Netvrdim, ze to nelze, ale pouze to, ze se mi to nepodarilo.
> >
> > Pokud to vsak takto funguje, potvrzuje se tim ma uvaha, ze si
> > Recordset buferuje data.
>
> Tak skus priamo ADO, tu je HTML subor s VB scriptom:
:-) Napsat primo na ADO bych si to dokazal take, ale nechce se
mi matlat se zobrazenim. Ja ti verim. :-)
> Pripojenie k Access databaze lahko spoznas podla toho, ze je, resp.
> nie je vytvoreny lock (LDB) subor.
Access nevedu, takze bych to musel hlidat jinak.
> Buffrovanie dat na klientovi je vlastne zakladna uloha klientskeho
> kurzora. Okrem toho poskytuje aj rozne operacie nad udajmi (napr.
> triedenie, filtrovanie). Je to velmi vyhodne, pretoze umoznuje
> pracovat bez pripojenia k databaze a riesi tym niekolko problemov,
> povedzme mensie zatazenie db servera, pripadne na strane klienta
> urcitu nezavislost (pracovat napr. s notebookom, ci handheldom aj tam,
> kde nemam pripojenie k databaze). Klientsky cursor je vlastne akysi
> jednoduchy "databazovy engine" pre klienta.
To je mi jasne, ja to take tak obvykle delam, pouze kontrolu nad
bufferovanim sveruji sobe. :-) Na druhe strane, pokud by bylo treba
"zobrazit" tisice vet, mohu data nechat na serveru a tahat jen radky
podle aktualni potreby. Viz sousedni zpravu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
vyhledavani v textovem souboru
[*] Petr Mat�jovsk� <pemasoft(zv)atlas(tec)cz> - 18.3.2000 21:33:37
Ahoj
Nevite, jak vyledat v textovem souboru urcity retezec a zjistit
pocet jeho vyskytu ?
Program (procedura) ma bezet jako console application.
D5 Prof. NT4.0
Petr Matejovsky
Registry
[*] Lauko �tefan <lauko(zv)salamon.sk> - 19.3.2000 12:58:37
Dobry,
mam problem s registry. Mam instalacny program (vlastnej vyroby) ktory
zapisuje do registry informacie .
Ake vseobecne pravidla platia pri zapise/citani a modifikacii poloziek v
registry. Ide o to, ze pod W95/98
je vsetko v poriadku. Pod NT nedokazem nacitat/modifikovat hodnotu aj ked
tam je (v regedit ju vidim). Mozem s nou pracovat len v tom profile v ktorom
bola vytvorena. To by som pochopil ale preco ju nemozem ani precitat. Alebo
este inak : ktoru cast reg. mam pouzit aby som s udajom mohol pracovat.
Pouzivam HKEY_LOCAL_MACHINE
skusal som HKEY_CURRENT_USER.
HKEY_LOCAL_MACHINE - vidim ju zo vsetkych profilov ale pracovat s nou mozem
len z toho profilu
v ktorom bola vytvorena.
HKEY_CURRENT_USER - vidim len v tom profile v ktorom bola vytvorena.
Program by mal byt viditelny (pouzitelny) vo vsetkych profiloch pri jednej
instalacii a odinstalovany tiez na jedenkrat a to zo vsetkych profilov.
Za akukolvek uvahu vopred dakujem.
MSL-Software, Stefan Lauko
Synchronizace metody Paint v hlavnim threadu (D5pr
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 19.3.2000 13:15:38
Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz> wrote:
> Ja si myslim, ze by to melo jit naprogramovat bez deadlocku.
Mas pravdu, jde to. Uz jsem chybu nasel. Deadlock byl zpusoben banalni chybou: vypadl nam increment ridici promenne v cyklu, ktery sestavoval text zobrazovane zpravy, takze kdyz prisla zprava s prazdnym textem, doslo k nekonecnemu cyklu, ktery se projevil deadlockem pri kresleni.
Dosud se nam nestalo, aby nekdo poslal SMS bez textu. Z vetsiny telefonu ani takova zprava nejde odeslat a tak jsem to spojoval se synchronizaci.
Shodou okolnosti, kdyz jsem pri lokalizaci chyby zrusil vstup do kriticke sekce z hlavniho threadu, tak to nekolik dnu pracovalo dobre a kdyz jsem synchronizaci vratil zpet, tak se to znovu projevilo, protoze prisla dalsi prazdna zprava. A jelikoz pri tom zkolabovalo jeji zobrazovani, nikdo si ji nevsiml :-((
Na zaver, jak to vypada v tom hlavnim threadu:
SMSLogSrv.Enter;
try
Item := SMSLogSrv.History[Index];
DrawItem(Canvas,Item);
finally
SMSLogSrv.Leave;
end;
Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
Kopirovani souboru na serveru
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 19.3.2000 14:15:49
Zdravim vsechny,
potrebuji poradit jak mam na serveru rozmnozit soubor. Dostal jsem na server
cca. 2MB soubor a potrebuji ho rozkopirovat z jednoho mista do 7 adresaru.
Zkousel jsem to pres ASP script, ale nechodi to, tak me napadlo jest-li
napr. FTP protokol umoznuje kopirovat soubory, pokud ano nevite nekdo jak na
to?
Preji prijemny den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
Komprimace MDB Access2k
[*] Erik Salaj <winsoft(zv)napri.sk> - 19.3.2000 16:02:11
> poradi mi nekdo jak PACKnout Accessi MDB?
> Pouzivam tabulku s cca 3000 radky, sem tam je vsechny smazu a nactu z TXT
> nove, ale MDB roste a roste...
> Pomuze dat v Accessu Zkomprimovat databazi, ale jak to zavolat z
> Delphi(5E,SP1)?
Je mozne pouzit DAO alebo ADO (JRO):
DBEngine.CompactDatabase('C:\database.mdb', 'C:\newdb.mdb', EmptyParam,
EmptyParam, EmptyParam); // DAO
JetEngine.CompactDatabase('Data Source=c:\old.mdb', 'Data
Source=c:\new.mdb'); // JRO
Erik
OT: prevod prezentace PowerPointu do AVI
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.3.2000 07:39:39 -0800 (pst)
--- Richard Valny <Richard.Valny(zv)oku-st(tec)cz> wrote:
> pezentace PowerPointu do AVI formatu.
Neda se jit tudy:
http://www.microsoft.com/windows/windowsmedia/en/technologies/tools.asp
- to umi prevest PPT na ASF stream - treba to pak
pujde snaz...
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
FTP & HTTP
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.3.2000 07:41:49 -0800 (pst)
--- Martin Pe�ava <jimx(zv)volny(tec)cz> wrote:
> moc nejni. Potreboval bych popsat zhruba postup pri
> downloadovani fajlu pres %Subject%.
> Bude mi stacit i INetova adresa, kde
> se da o tom sehnat nejake info.
Odpoved az obligatni:
http://www.rtfm.be/fpiette/indexuk.htm :)
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
Upgrade Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.3.2000 17:15:21
Puvodni zprava, kterou napsal Jan Naiser dne 18 Mar 00,:
> Da se upg. D5S na D5P za cenu upgradu?
V CR ne.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
TTreeView a Editace Node
[*] Jan Votava <djsoft(zv)top(tec)cz> - 19.3.2000 18:50:28
> > Jakym zpusobem odchytim ukonceni editace textu TreeNode v TreeView.
Event
> > TTreeView.OnEdited se vyvola pouze pokud dojde k nejake zmene v textu.
Ja
> > bych ale potreboval odchytit konec editace i v pripade, ze uzivatel
zmeny
> > canceluje (v takovem pripade zminovany TreeNode chci totiz odstranit)
> Ahoj,
>
> ja bych to delal na dvakrat. Je to neodzkouseny, pisu to z hlavy, ale melo
> by to fungovat
> var
> PuvodniText: string;
>
> procedure TMainForm.TreeView1Editing(Sender: TObject;
> Node: TTreeNode; var AllowEdit: Boolean);
> begin
> PuvodniText := Node.Text;
> AllowEdit := true;
> end;
>
> procedure TMainForm.TreeView1Edited(Sender: TObject;
> Node: TTreeNode; var S: string);
> var
> NovyText: string;
> begin
> NovyText := Node.Text;
> if NovyText = StaryText then Cancelled
> else Changed;
> end;
>
No jo, ale kdyz nedojde ke zmene (tj. bylo cancelovano), tak se event Edited
vubec NEVYVOLA! A nevim, jak se po ukonceni editace dostat k lizu vzdy...
Honza.Upgrade Delphi
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 19.3.2000 19:24:28
> > Da se upg. D5S na D5P za cenu upgradu?
>
> V CR ne.
Jak tomu mam rozumet a co to v dusledku znamena?
Pokud koupim D5P upg. jinde nez v CR, tak je to sice legalni, ale nemam
podporu v CR?
Za odpoved dekuji.
Honza Naiser.
Upgrade Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.3.2000 19:40:24
Puvodni zprava, kterou napsal Jan Naiser dne 19 Mar 00,:
> > > Da se upg. D5S na D5P za cenu upgradu?
> >
> > V CR ne.
>
> Jak tomu mam rozumet a co to v dusledku znamena?
> Pokud koupim D5P upg. jinde nez v CR, tak je to sice legalni, ale nemam
> podporu v CR?
V CR plati specialni podminky. Proste ze Standard nelze upgradovat
na Professional, mimochodem Standard + Professional Upgrade vyjde
mnohem levneji nez Professional novy. V USA jsou podminky jine, tam
je Professional Upgrade klasifikovan trochu jinak a to tak, ze je
mozny upgrade z libovolneho vyvojoveho Borland produktu a take
urcitych konkurencnich produktu... Pred casem (v dobe uvedeni D5
se tu o tom vedla vetsi diskuse, nahledni do archivu)...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
TTreeView a Editace Node
[*] Petr Esner <worm.warrior(zv)worldonline(tec)cz> - 19.3.2000 20:04:55
>
>
> > > Jakym zpusobem odchytim ukonceni editace textu TreeNode v TreeView.
> Event
> > > TTreeView.OnEdited se vyvola pouze pokud dojde k nejake zmene v textu.
> Ja
> > > bych ale potreboval odchytit konec editace i v pripade, ze uzivatel
> zmeny
> > > canceluje (v takovem pripade zminovany TreeNode chci totiz odstranit)
> > Ahoj,
> >
> > ja bych to delal na dvakrat. Je to neodzkouseny, pisu to z hlavy, ale
melo
> > by to fungovat
> > var
> > PuvodniText: string;
> >
> > procedure TMainForm.TreeView1Editing(Sender: TObject;
> > Node: TTreeNode; var AllowEdit: Boolean);
> > begin
> > PuvodniText := Node.Text;
> > AllowEdit := true;
> > end;
> >
>
> > procedure TMainForm.TreeView1Edited(Sender: TObject;
> > Node: TTreeNode; var S: string);
> > var
> > NovyText: string;
> > begin
> > NovyText := Node.Text;
> > if NovyText = StaryText then Cancelled
> > else Changed;
> > end;
> >
>
> No jo, ale kdyz nedojde ke zmene (tj. bylo cancelovano), tak se event
Edited
> vubec NEVYVOLA! A nevim, jak se po ukonceni editace dostat k lizu vzdy...
>
> Honza.
>
>
Cau,
Mel bych takovy neovereny napad: kdyz skonci editace (at uz cancelem nebo s
eventem OnEdit), mela by projit TreeView-em zprava OnDestroyEdit (nazev
zpravy ted tipuju - podivej se do VCL na deklaraci TTreeView). Ty si udelas
objekt treba TMyTreeView, ktery bude obsahovat event OnEditDone. Pomoci teto
udalosti by ses mel dostat z problemu.
Jak to udelat bez definovani noveho objektu bohuzel nevim..
Petr
TTreeView a Editace Node
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 19.3.2000 22:17:03
> Mel bych takovy neovereny napad: kdyz skonci editace (at uz
> cancelem nebo s
> eventem OnEdit), mela by projit TreeView-em zprava OnDestroyEdit (nazev
> zpravy ted tipuju - podivej se do VCL na deklaraci TTreeView). Ty
> si udelas
> objekt treba TMyTreeView, ktery bude obsahovat event OnEditDone> Pomoci teto
> udalosti by ses mel dostat z problemu>
> Jak to udelat bez definovani noveho objektu bohuzel nevim.
Ted me napadla jeste jedna moznost, ktera by mohla fungovat i bez definovani
TMyTreeView. K cancelnuti zmen dojde, pokud se nemylim, kdyz uzivatel
zmackne <ESC> nebo se presune na jinou polozku TreeView. Takze by mozna
stacilo navesit na OnKeyDown
if (Key=WK_ESCAPE) and Editing then begin
Cancelled; //(nebo neco v tom duchu)
Editing := false;
end;
a na OnChange nebo OnChanging
if Editing then begin
Cancelled;
Editing := false;
end;
Potom by stacilo v OnEditing nastavit Editing := true;
A dost dobre je mozny, se TreeView uz neco jako Editing: boolean ma primo v
sobe. To by bylo jeste jednoduzsi
Lubos
ADONIS - Browse
[*] Erik Salaj <winsoft(zv)napri.sk> - 19.3.2000 22:31:20
> Takto na povrchu lze napsat chovani stejne jako u nekterych (nebo
> vsech?) Delphi ADO komponent, narozdil od ADO vsak netvori OLE
> DB zadny svuj buffer, takze komunikace probiha primo s databazi.
Snad male upresnenie: ADO umoznuje pouzit aj serverovsky kurzor,
kedy sa data nebuffruju (az na nastavitelnu cache). Je mozne si teda
vybrat napr. podla charakteru aplikacie.
Erik
vyhledavani v textovem souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2000 23:13:59
From: Petr Mat�jovsk� <pemasoft(zv)atlas(tec)cz>
> Nevite, jak vyledat v textovem souboru urcity retezec a zjistit
> pocet jeho vyskytu ?
Ahoj,
Zalezi na velikosti textu a prepokladanem poctu vyskytu retezce. Pokud to
budou jen radove stovky kB, tak by bylo jeste unosne nahrat cely text do
String promenne a pomoci funkci Pos (ci StrPos) zjistovat vyskyt retezcu.
Pro vetsi soubory by jiz toto nebylo prilis efektivni, tam se pak vyplati
pouzit mapovani souboru do pameti a uprava funkce StrPos.
Zkusil jsem 3 ruzne zpusoby. Jako text je pouzit MSHTML_TLB.pas, velikost
cca 1.5M. Z vysledku je patrne, ze vhodnou optimalizaci kodu lze dosahnout
az 700 nasobneho zrychleni ! Funkce SP_xxx je treba z prikladu odstranit.
Slovo Pocet String+Pos String+StrPos MapFiles+StrPosBuff
-----------------------------------------------------------------
"end." 1 107ms 132ms 87ms
"end" 1118 7417ms 8743ms 88ms
"=" 2588 41815ms 47336ms 68ms
function StrPosBuff(const Str, FindStr: PChar; StrLength: Integer): PChar; assembler;
asm
PUSH EDI
PUSH ESI
PUSH EBX
OR EAX,EAX // Str
JE (zv)(zv)2
OR EDX,EDX // FindStr
JE (zv)(zv)2
OR ECX,ECX // Length
JE (zv)(zv)2
XCHG ESI, ECX
MOV EBX,EAX // Calculate length of FindStr
MOV EDI,EDX
XOR AL,AL
MOV ECX,0FFFFFFFFH
REPNE SCASB
NOT ECX
DEC ECX
XCHG ESI, ECX
JE (zv)(zv)2
INC ECX
SUB ECX,ESI
JBE (zv)(zv)2
MOV EDI,EBX
LEA EBX,[ESI-1]
(zv)(zv)1: MOV ESI,EDX
LODSB
REPNE SCASB
JNE (zv)(zv)2
MOV EAX,ECX
PUSH EDI
MOV ECX,EBX
REPE CMPSB
POP EDI
MOV ECX,EAX
JNE (zv)(zv)1
LEA EAX,[EDI-1]
JMP (zv)(zv)3
(zv)(zv)2: XOR EAX,EAX
(zv)(zv)3: POP EBX
POP ESI
POP EDI
end;
const
SearchWord = '=';
procedure TForm1.Button1Click(Sender: TObject); // MapFiles+StrPosBuff
var
SourceHandle, SourceMapping: THandle;
SourceView: Pointer;
SourceSize: Integer;
WordCount: Integer;
procedure FindString(const FindStr: string);
var
SourcePos, FoundPos: PChar;
RemainingLength: Integer;
begin
SourcePos := SourceView;
RemainingLength := SourceSize;
repeat
FoundPos := StrPosBuff(SourcePos, PChar(FindStr), RemainingLength);
if FoundPos = nil then Break;
Inc(WordCount);
Inc(FoundPos, Length(FindStr));
Dec(RemainingLength, FoundPos - SourcePos);
SourcePos := FoundPos;
until False;
end;
begin
WordCount := 0;
SP_Start(1);
SourceHandle := CreateFile(PChar('MSHTML_TLB.pas'), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if SourceHandle = 0 then RaiseLastWin32Error;
try
SourceMapping := CreateFileMapping(SourceHandle, nil, PAGE_READONLY, 0, 0, nil);
if SourceMapping = 0 then
SourceView := nil
else
SourceView := MapViewOfFile(SourceMapping, FILE_MAP_READ, 0, 0, 0);
if SourceView = nil then RaiseLastWin32Error;
try
SourceSize := GetFileSize(SourceHandle, nil);
FindString(SearchWord);
finally
UnmapViewOfFile(SourceView);
CloseHandle(SourceMapping);
end;
finally
CloseHandle(SourceHandle);
end;
SP_Stop(1);
ShowMessageFmt('%d [%5.3fms]', [WordCount, SP_Time(1) * 1000]);
end;
procedure TForm1.Button2Click(Sender: TObject); // String+Pos
var
S, FindStr: string;
FS: TFileStream;
FoundPos, WordCount: Integer;
begin
FindStr := SearchWord;
WordCount := 0;
SP_Start(1);
FS := TFileStream.Create('MSHTML_TLB.pas', fmOpenRead or fmShareDenyWrite);
try
SetLength(S, FS.Size);
FS.ReadBuffer(Pointer(S)^, FS.Size);
repeat
FoundPos := Pos(FindStr, S);
if FoundPos = 0 then Break;
Inc(WordCount);
Delete(S, 1, FoundPos + Length(FindStr));
until False;
finally
FS.Free;
end;
SP_Stop(1);
ShowMessageFmt('"%s" - %d [%5.3fms]', [FindStr, WordCount, SP_Time(1) * 1000]);
end;
procedure TForm1.Button3Click(Sender: TObject); // String+StrPos
var
S, FindStr: string;
FS: TFileStream;
WordCount: Integer;
StartPos, FoundPos: PChar;
begin
FindStr := SearchWord;
WordCount := 0;
SP_Start(1);
FS := TFileStream.Create('MSHTML_TLB.pas', fmOpenRead or fmShareDenyWrite);
try
SetLength(S, FS.Size);
FS.ReadBuffer(Pointer(S)^, FS.Size);
StartPos := PChar(S);
repeat
FoundPos := StrPos(StartPos, PChar(FindStr));
if FoundPos = nil then Break;
Inc(WordCount);
StartPos := FoundPos + Length(FindStr);
until False;
finally
FS.Free;
end;
SP_Stop(1);
ShowMessageFmt('"%s" - %d [%5.3fms]', [FindStr, WordCount, SP_Time(1) * 1000]);
end;
Petr Vones, amatersky programator
TTreeView a Editace Node
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2000 23:14:06
From: Jan Votava <djsoft(zv)top(tec)cz>
> No jo, ale kdyz nedojde ke zmene (tj. bylo cancelovano), tak se event Edited
> vubec NEVYVOLA! A nevim, jak se po ukonceni editace dostat k lizu vzdy...
Ahoj,
Ukonceni editace oznamuje zprava TVN_ENDLABELEDIT, ta pak vola metodu
TCustomTreeView.Edit. Pokud uzivatel zrusil editaci, tak ma Item.pszText
hodnotu nil. Staci si tedy odvodit novou komponentu a do ni pridat dalsi
udalost, treba OnEditCancelled v metode TCustomTreeView.Edit
Petr Vones, amatersky programator
task bar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2000 23:14:02
From: Bejvlov� Martina <M.Bejvlova(zv)cra(tec)cz>
> Ahoj, me to funguje bez problemu. (Pouzivam normalne unitu Windows)
> Ale mam jiny problem. Potrebovala bych, aby se misto klasickeho buttonu v
> task baru objevila jenom ikonka vedle tlacitka Start. (Mam D5S, NT) Nemate
> nekdo nejaky napad?
Ahoj,
Neni problem zobrazit ikonu v prave casti vedle hodin, ale vedle tlacitka
Start by asi bylo potreba mit instalovany Active Desktop (coz je silenost).
Petr Vones, amatersky programator
Upgrade Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2000 23:14:09
From: Jan Naiser <tua(zv)ltm(tec)cz>
> Da se upg. D5S na D5P za cenu upgradu?
Ahoj,
Pokud vim, tak v CR to lze jen pomoci Competitive Upgrade, pokud ovsem
takovy existuje (http://www.inprise(tec)cz/ce_cenik.html). Podobna situace
je treba i v Polsku: (http://www.bsc.com.pl/cennik/upgrade.htm). V USA
neni uvedeno zadne omezeni, lze tam upgradovat z jakehokoli Borland
nastroje (http://shop.borland.com/shop/proddtl/0,1070,1-244,00.html).
Jak uz psal Petr, pred casem zde k tomuto byla obsahla diskuze. Zavery
z ni jsou tady v archivu:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\oct\22\dlfaaabr.htm
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\oct\01\dlfaaacc.htm
Petr Vones, amatersky programator
TTreeView a Editace Node
[*] Petr Esner <worm.warrior(zv)worldonline(tec)cz> - 19.3.2000 23:36:52
> > Mel bych takovy neovereny napad: kdyz skonci editace (at uz
> > cancelem nebo s
> > eventem OnEdit), mela by projit TreeView-em zprava OnDestroyEdit (nazev
> > zpravy ted tipuju - podivej se do VCL na deklaraci TTreeView). Ty
> > si udelas
> > objekt treba TMyTreeView, ktery bude obsahovat event OnEditDone> Pomoci
teto
> > udalosti by ses mel dostat z problemu>
> > Jak to udelat bez definovani noveho objektu bohuzel nevim.
> Ted me napadla jeste jedna moznost, ktera by mohla fungovat i bez
definovani
> TMyTreeView. K cancelnuti zmen dojde, pokud se nemylim, kdyz uzivatel
> zmackne <ESC> nebo se presune na jinou polozku TreeView. Takze by mozna
> stacilo navesit na OnKeyDown
>
> if (Key=WK_ESCAPE) and Editing then begin
> Cancelled; file://(nebo neco v tom duchu)
> Editing := false;
> end;
>
> a na OnChange nebo OnChanging
>
> if Editing then begin
> Cancelled;
> Editing := false;
> end;
>
> Potom by stacilo v OnEditing nastavit Editing := true;
>
> A dost dobre je mozny, se TreeView uz neco jako Editing: boolean ma primo
v
> sobe. To by bylo jeste jednoduzsi
> Lubos
>
>
Mas pravdu, to me vubec nenapadlo.
Asi se budes muset navesit jeste na jednu udalost - OnExit. Editace se
ukonci i tehdy, kdyz tvoje aplikace jednoduse ztrati focus.
Petr
Ako spravne vykonat refresh TIBQuery.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 20.3.2000 00:49:42
Zdravim.
Najprv by som chcel vysvetlit aky postupom vykonavam:
Mam ciselnik statov, je to jednoduchy form s styrmi buttonmi (Pridaj, Oprav, Vymaz, Refresh) a jednym gridom (DBGridSinea). Komunikaciu s datami pouzivam:
TIBDatabase, je na main forme (ma tam aj svoj Default Trans).
Ciselnik obsahuje: IB1:TIBQuery, IBT1:TIBTransaction, IBE:TIBEvents a samo ze aj DS1:Datasource. Vlastne transaction je tam preto lebo aplikacia je zalozena na MDI a jedno trans je malo. IBE je zaregistrovane v OnCreate a zachytava "STATY CHANGE" aj je vyvolany OnEventAlert tak zavola btnRefresh.OnClick(self). (Zdroj refreshu na konci).
Okno Pridaj obsahuje editboxy a dva buttony (Zapis,Nezapis) Na zapis do table pouziva TIBQuery s vlastnym IBTransaction, lebo okno pridaj moze byt vyvolane aj s ineho ciselnika, takze sa nemoze spoliehat na to ze okno cislenika statov existuje. Co sa tyka pridaj, oprav, vymaz nemam ziadny problem, vsetko funguje.
V databaze su triggery ktore AFTER (insert , update, delete) poslu message "STATY CHANGE". IBEvents zareaguje a zavola REFRESH button ktory zavola funkciu univerzalnu:
----------------------------------------------------------------------------------------------------------------
function qIBRefresh(IBQuery:TIBQuery):boolean;
var ujed:integer;
begin
Screen.Cursor:=crHourGlass;
try
try
frmMain.StatusBar1.Panels[3].Text:='Obnovujem zobrazenie...';
frmMain.StatusBar1.Update;
ujed:=0;
if IBQuery.Active then
begin
ujed:=IBQuery.FieldByName('jedin').asinteger;
IBQuery.Close;
end;
if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
IBQuery.Open;
if IBQuery.Locate('jedin',ujed,[])
then Result:=true
else Result:=False;
// ak nasiel vrati true a ak nie tak false
except MessageDlg('Nastala chyba po�as refresh datab�zy.', mtError, [mbOK], 0); end;
finally Screen.Cursor:=crDefault; end;
frmMain.StatusBar1.Panels[3].Text:='';
frmMain.StatusBar1.Update;
end;
----------------------------------------------------------------------------------------------------------------
ulohou tejto funkcie je obcerstvit udaje a postavil kurzor na tu istu poziciu ako pred refreshom.
Pokial si dam break point na zaciatok refresh funkcie a prekrokujem ju vsetko je OK, ale pocas chodu to na 80% vyvola ten except a vobec mi nie je jasne ze PRECO.
Ak zistim E:EIBError tak vysledok je nasledovny:
E.Message:='Transaction is active'
E.IBErrorCode:=0;
E.SQLCode:=19;
V helpe som sa docital, ze SQLCode 1-99 su "len" SQLWARNING System warning or informational message, ale preco to pise?
Pre uplnost udavam aj zdroj vyvolania okna pridaj:
----------------------------------------------------------------------------------------------------------------
Application.CreateForm(TfrmCStatyPridaj,frmCStatyPridaj);
with frmCStatyPridaj do
begin
Caption:='Oprava �t�tu...';
e1.UniqueColumnValue:=Self.ib1.FieldByName('jedin').AsInteger;
ShowModal;
Free;
end;
----------------------------------------------------------------------------------------------------------------
Komponenta e1 je klasicky EditBox rozsireny o kontrolu jedinecnosti udaja. Kontrolujem jedinecnost este pred zamotnym zapisanim. Okna Pridaj vzdy vytvaram pri volani a po ukonceni odstranim.
Myslim ze to je zapricinene stylom ako to robim, ale neviem to odkrokovat (predpokladam ze exception je volane pri pokuse o OPEN), pokial odstavim IBEvents aby nereagoval a po ukonceni okna PRIDAJ si sam rucne refreshnem tak to zbehne, ale ja to potrebujem zautomatizovat koli sietovej verzii, pri ktorej by sa mi mal refreshovat obsah Gridu pri zmene.
PS: Pouzivam D5, IB 5.6, IBE update #1, RXLib 2.75, a vlastne veci.
Archiv konferencie DelphiCZ som preliezol ale nic som nenasiel.
Za vsetky napady co s tym uz vopred dakujem.
S pozdravom Roland Turcan.Registry
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.3.2000 05:46:53
Pokud pouzijes funkci OkenKey, ta se snazi vetev otevrit i pro zapis. Pokud mas
D5, podivej se na funkci OpenKeyReadOnly. Jinak je to pouze implementace API.
Jan Fiala
----- Original Message -----
From: Lauko �tefan <lauko(zv)salamon.sk>> Dobry,
> mam problem s registry. Mam instalacny program (vlastnej vyroby) ktory
> zapisuje do registry informacie .
> Ake vseobecne pravidla platia pri zapise/citani a modifikacii poloziek v
> registry. Ide o to, ze pod W95/98
> je vsetko v poriadku. Pod NT nedokazem nacitat/modifikovat hodnotu aj ked
> tam je (v regedit ju vidim). Mozem s nou pracovat len v tom profile v ktorom
> bola vytvorena. To by som pochopil ale preco ju nemozem ani precitat. Alebo
> este inak : ktoru cast reg. mam pouzit aby som s udajom mohol pracovat.
> Pouzivam HKEY_LOCAL_MACHINE
> skusal som HKEY_CURRENT_USER.
> HKEY_LOCAL_MACHINE - vidim ju zo vsetkych profilov ale pracovat s nou mozem
> len z toho profilu
> v ktorom bola vytvorena.
> HKEY_CURRENT_USER - vidim len v tom profile v ktorom bola vytvorena.
> Program by mal byt viditelny (pouzitelny) vo vsetkych profiloch pri jednej
> instalacii a odinstalovany tiez na jedenkrat a to zo vsetkych profilov.
>
> Za akukolvek uvahu vopred dakujem.
>
> MSL-Software, Stefan Lauko
>
>
>
>html link tag
[*] Ondrej Slama <slama(zv)internet(tec)cz> - 20.3.2000 06:36:48
dobry den,
narazil jsem na takovy drobny problemek.
V aplikaci(Delphi3) mam standartni komponentu HTML.
Stranky zobrazuje pekne, ale potreboval bych aby se mi na kliknuti
na odkaz, tento odkaz otevrel ve standartnim browseru pocitace.
Jak zjistit cestu k browseru vim, ale nemuzu prijit na to jakym zpusobem
vnutit teto komponente, aby si odkazove stranky nezobrazovala
v sobe.
jestli nahodou nekdo vite jak presmerovat tento odkaz, tak mi dejte prosim
vedet.
Dik moc....Ako spravne vykonat refresh TIBQuery.
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 20.3.2000 07:35:19
Problem bude asi v TIBEvents, zkus si overit, zda se ten refresh nevola z jineho thredu, nebo neco podobneho (jako treba dvakrat tesne po sobe),
prace s IBEvents neni zrovna bezproblemova.
Zkusil bych volat refresh pres synchronize a jeste bych si tam dal pro jistotu semafor.
Slavek
PS: Na zobrazovani je nejlepsi typ transakce ReadCommited a editopvana data ze zasady automaticky nerefresovat (pri editaci je nutna
transakce SnapShot), transakci nelze automaticky potvrzovat/odvolavat bezvedomi uzivatele.
Zdravim.
Najprv by som chcel vysvetlit aky postupom vykonavam:
Mam ciselnik statov, je to jednoduchy form s styrmi buttonmi (Pridaj, Oprav, Vymaz, Refresh) a jednym gridom (DBGridSinea). Komunikaciu s datami pouzivam:
TIBDatabase, je na main forme (ma tam aj svoj Default Trans).
Ciselnik obsahuje: IB1:TIBQuery, IBT1:TIBTransaction, IBE:TIBEvents a samo ze aj DS1:Datasource. Vlastne transaction je tam preto lebo aplikacia je zalozena na MDI a jedno trans je malo. IBE je zaregistrovane v OnCreate a zachytava "STATY CHANGE" aj je vyvolany OnEventAlert tak zavola btnRefresh.OnClick(self). (Zdroj refreshu na konci).
Okno Pridaj obsahuje editboxy a dva buttony (Zapis,Nezapis) Na zapis do table pouziva TIBQuery s vlastnym IBTransaction, lebo okno pridaj moze byt vyvolane aj s ineho ciselnika, takze sa nemoze spoliehat na to ze okno cislenika statov existuje. Co sa tyka pridaj, oprav, vymaz nemam ziadny problem, vsetko funguje.
V databaze su triggery ktore AFTER (insert , update, delete) poslu message "STATY CHANGE". IBEvents zareaguje a zavola REFRESH button ktory zavola funkciu univerzalnu:
----------------------------------------------------------------------------------------------------------------
function qIBRefresh(IBQuery:TIBQuery):boolean;
var ujed:integer;
begin
Screen.Cursor:=crHourGlass;
try
try
frmMain.StatusBar1.Panels[3].Text:='Obnovujem zobrazenie...';
frmMain.StatusBar1.Update;
ujed:=0;
if IBQuery.Active then
begin
ujed:=IBQuery.FieldByName('jedin').asinteger;
IBQuery.Close;
end;
if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
IBQuery.Open;
if IBQuery.Locate('jedin',ujed,[])
then Result:=true
else Result:=False;
// ak nasiel vrati true a ak nie tak false
except MessageDlg('Nastala chyba po�as refresh datab�zy.', mtError, [mbOK], 0); end;
finally Screen.Cursor:=crDefault; end;
frmMain.StatusBar1.Panels[3].Text:='';
frmMain.StatusBar1.Update;
end;
----------------------------------------------------------------------------------------------------------------
ulohou tejto funkcie je obcerstvit udaje a postavil kurzor na tu istu poziciu ako pred refreshom.
Pokial si dam break point na zaciatok refresh funkcie a prekrokujem ju vsetko je OK, ale pocas chodu to na 80% vyvola ten except a vobec mi nie je jasne ze PRECO.
Ak zistim E:EIBError tak vysledok je nasledovny:
E.Message:='Transaction is active'
E.IBErrorCode:=0;
E.SQLCode:=19;
V helpe som sa docital, ze SQLCode 1-99 su "len" SQLWARNING System warning or informational message, ale preco to pise?
Pre uplnost udavam aj zdroj vyvolania okna pridaj:
----------------------------------------------------------------------------------------------------------------
Application.CreateForm(TfrmCStatyPridaj,frmCStatyPridaj);
with frmCStatyPridaj do
begin
Caption:='Oprava �t�tu...';
e1.UniqueColumnValue:=Self.ib1.FieldByName('jedin').AsInteger;
ShowModal;
Free;
end;
----------------------------------------------------------------------------------------------------------------
Komponenta e1 je klasicky EditBox rozsireny o kontrolu jedinecnosti udaja. Kontrolujem jedinecnost este pred zamotnym zapisanim. Okna Pridaj vzdy vytvaram pri volani a po ukonceni odstranim.
Myslim ze to je zapricinene stylom ako to robim, ale neviem to odkrokovat (predpokladam ze exception je volane pri pokuse o OPEN), pokial odstavim IBEvents aby nereagoval a po ukonceni okna PRIDAJ si sam rucne refreshnem tak to zbehne, ale ja to potrebujem zautomatizovat koli sietovej verzii, pri ktorej by sa mi mal refreshovat obsah Gridu pri zmene.
PS: Pouzivam D5, IB 5.6, IBE update #1, RXLib 2.75, a vlastne veci.
Archiv konferencie DelphiCZ som preliezol ale nic som nenasiel.
Za vsetky napady co s tym uz vopred dakujem.
S pozdravom Roland Turcan.
<<Soubor: ATT00007.html>>
Spusteni programu
[*] Robert Plz�k <rpdap(zv)atlas(tec)cz> - 20.3.2000 07:49:46
Ja to delam nejak takhle.
------------------------------------
function TForm1.ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Ku�era
Sent: Friday, March 17, 2000 2:15 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Spusteni programu
Dobry den,
prosim Vas, existuje nejaka metoda, jak by se dal z aplikace
spustit nejaky jiny (*.exe) program. Neco podobneho jako je v C/C++
exec() nebo system().
Dekuji.
Petr Kucera
datetime->longint
[*] Robert Plz�k <rpdap(zv)atlas(tec)cz> - 20.3.2000 07:56:58
Neni to sice Longint ale snad ti to pomuze.
-------------------------------------------
DaysIn: array[1..12] of Byte = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30,
31);
DaysBefore: array[1..12] of Integer = (0, 31, 60,
91,121,152,182,213,244,274,305,335);
DaysInYear = 365.25;
BaseYear = 2000;
function DateToWord(D: DateTime): Word;
var
T: Word;
begin
T := DaysBefore[D.Month] + D.Day + Trunc(DaysInYear * (D.Year -
BaseYear));
If ((D.Year and $3) <> 0) and (D.Month > 2) then Dec(T);
DateToWord := T;
end;
procedure WordToDate(W: Word; var D: TDateTime);
var
T: Word;
Oprava: Byte;
begin
With D do
begin
Oprava := Ord(((W / DaysInYear) = Trunc(W / DaysInYear)));
T := Trunc(W / DaysInYear ) - Oprava;
W := W - Trunc(T * DaysInYear);
Year := T + BaseYear;
If ((Year and $3) <> 0) and (W >= DaysBefore[3]) then Inc(W);
Month := (W - 1) div 31 + 1;
If (W > DaysBefore[Month] + DaysIn[Month]) then Inc(Month);
Day := W - DaysBefore[Month];
end;
end;
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
sup(zv)svitap(tec)cz
Sent: Friday, March 17, 2000 3:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: datetime->longint
Dobry den, mam jeden problemecek. Potrebuji dostat datum ze stringu ve tvaru
'RRRRMMDD' do promenne longint (Juliansky kalendar). V archivu konference
jsem nic podnetneho nenasel...
Dekuji predem
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
html link tag
[*] Robert Plz�k <rpdap(zv)atlas(tec)cz> - 20.3.2000 08:05:46
Zkusil bych to zavolat pomoci ShellExecute(Application.MainForm.Handle, nil,
jmeno_souboru.htm, parametry, defaul_dir, ShowCmd);
Windows by meli spustit program, ktery je souboru *.htm prirazeny jako
default.
Snad to tak pujde :)
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ondrej Slama
Sent: Monday, March 20, 2000 6:37 AM
To: delphi-l(zv)fwd(tec)cz
Subject: html link tag
dobry den,
narazil jsem na takovy drobny problemek.
V aplikaci(Delphi3) mam standartni komponentu HTML.
Stranky zobrazuje pekne, ale potreboval bych aby se mi na kliknuti
na odkaz, tento odkaz otevrel ve standartnim browseru pocitace.
Jak zjistit cestu k browseru vim, ale nemuzu prijit na to jakym zpusobem
vnutit teto komponente, aby si odkazove stranky nezobrazovala
v sobe.
jestli nahodou nekdo vite jak presmerovat tento odkaz, tak mi dejte prosim
vedet.
Dik moc....
Tlacitka na ToolBaru
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 20.3.2000 08:19:32
Ahoj Delphici,
mam Form na nem Menu, ToolBar a ActionList. Action z ActionList jsou
prirazeny Menu i ToolBaru. V prubehu cinnosti aplikace vybiram jedno ze dvou
zarizeni a v zavislosti na vyberu se nektere Action bud povoli (Visible:=
true) nebo zakazou (Visible:= false). A ted o co mi jde. Kdyz provedu toto
povoleni nebo zakazani, dojde k tomu, ze z Menu/ToolBaru tyto
prikazy/tlacitka zmizi, resp. se objevi. To je tak jak ma byt ale problem je
v tom, ze v ToolBaru dojde pouze k prekresleni ale poloha skutecnych prikazu
se mezmeni. Priklad: Mam v ToolBaru tri tlacitka - 1. Otevreni, 2. Ulozeni,
3. Konec. Zakazu-li 2.Ulozeni, pak 2. tlacitko opravdu zmizi, na jeho miste
se objevi 3. tlacitko ale neprovadi akci Konec nybrz Ulozeni. Cim to?
Ahoj. Jara.
svehla(zv)atlas(tec)cz
OT: prevod prezentace PowerPointu do AVI
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 20.3.2000 08:29:14
> Omlouvam se za OT, ale potreboval bych prevadet pezentace PowerPointu do AVI formatu.
> Bohuzel, neni resenim vyexportovat jej do EXE souboru pomoci exportu od Microsoftu
> Diky za kazdy napad.
Co takhle udelat tu prezentaci, nastavit spravne casovani a pak to
pustit a zaroven nahravat celou obrazovku do AVI pomoci nejakeho
jineho softu, kterej snadno najdes na sharewarovych strankach
(treba TwoCows a podobne) Tusim ze jeden z nich se jmenoval
MacroCamera nebo tak nejak. Muzes si nastavit i kvalitu (kolik
snimu za sekundu) pokud chces, muzu ti vecer poslat nejaky
presnejsi odkaz.
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Pouziti interface
[*] Tom� Br�dle������i�^����? - 20.3.2000 08:56:17
Zdravim vsechny,
chci se zeptat jestli je "legalni" takovahle konstrukce objektu
(TNejakyObjekt) :
INejakyInterface=interface
[..intf ID..]
.
.
.
end;
TNejakyObjekt=class(TEdit, INejakyInterface)
.
.
.
end;
Misto TEdit muze byt jina vizualni komponenta.
Diky predem
Tomas
t.bradle(zv)pvtnet(tec)cz
Spusteni programu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.3.2000 09:11:37
Jde to udelat traba takhle: Do Cmd se napise cesta a jmeno spusteneho
programu.
function Exect(const Cmd: String): Integer;
procedure ChkBool(Value: Boolean; const Msg: String);
begin
If (Value = false) then
raise exception.create(Msg);
end;
var
ProcessInfo: TProcessInformation;
StartupInfo: TStartupInfo;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), 0);
ChkBool(CreateProcess(nil, PChar(Cmd), nil, nil, False,
CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS,
NIL, NIL, StartupInfo, ProcessInfo),
'Chyba pri vol�n� CreateProcess');
end;
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 17, 2000 2:15 PM
Subject: Spusteni programu
> Dobry den,
>
> prosim Vas, existuje nejaka metoda, jak by se dal z aplikace
> spustit nejaky jiny (*.exe) program. Neco podobneho jako je v C/C++
> exec() nebo system().
>
> Dekuji.
>
> Petr Kucera
>Zjisteni cisla radku, kde doslo k chybe
[*] azeleny(zv)csas(tec)cz - 20.3.2000 09:13:27
C / C++ ma definovane makro _LINE_. ktere se nahrazuje cislem radku, maker
je vice, i pro jmeno souboru...
pokud mas k dispozici preprocesor, pak muzes pred kompilaci prohnat zdrojaky
preprocesorem.
Asi je to trochu tezkopadne, ale ja nic lepsiho bohuzel neznam a v Delphi
moznost preprocesoru dost postradam, nebo jsme ji jenom nenasel???
a.
> nevite nekdo, jak by se za behu programu dalo zjistit v jakem
> modulu a na jakem radku doslo k chybe?pause printer
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 20.3.2000 09:14:52
Caute Delfinci !
Mam na vas taku zakarnu otazocku:
Da sa vo Win NT nejakym sposobom nastavit (programom)
tlaciaren do stavu PAUSE ak nie som prihlaseny ako Admin ?
Ak ano, tak akym prikazom?
Vdaka.
/LH
Tlacitka na ToolBaru
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.3.2000 09:21:58
nebylo by lepsi zakazovat tlacitka pomoci Enabled (true ci false)?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
To: DELPHI <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 20, 2000 8:19 AM
Subject: Tlacitka na ToolBaru
> Ahoj Delphici,
> mam Form na nem Menu, ToolBar a ActionList. Action z ActionList jsou
> prirazeny Menu i ToolBaru. V prubehu cinnosti aplikace vybiram jedno ze
dvou
> zarizeni a v zavislosti na vyberu se nektere Action bud povoli (Visible:=
> true) nebo zakazou (Visible:= false). A ted o co mi jde. Kdyz provedu toto
> povoleni nebo zakazani, dojde k tomu, ze z Menu/ToolBaru tyto
> prikazy/tlacitka zmizi, resp. se objevi. To je tak jak ma byt ale problem
je
> v tom, ze v ToolBaru dojde pouze k prekresleni ale poloha skutecnych
prikazu
> se mezmeni. Priklad: Mam v ToolBaru tri tlacitka - 1. Otevreni, 2.
Ulozeni,
> 3. Konec. Zakazu-li 2.Ulozeni, pak 2. tlacitko opravdu zmizi, na jeho
miste
> se objevi 3. tlacitko ale neprovadi akci Konec nybrz Ulozeni. Cim to?
>
> Ahoj. Jara.
> svehla(zv)atlas(tec)cz
>
>
>task bar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.3.2000 09:49:50
Ahoj,
jestli by Ti stacilo mit tu ikonu vedle hodin,
tak je na to spousta komponent (Sinea, rxLib, ...)
Vedle tlacitka Start to IMHO nejde, leda nainstalovat
Active Desktop a udelat tam zastupce programu (ne tedy
ikonu)
Dobra.
BTW: Pomoci Application.Title:='' by asi slo,
aby nebyl videt text, ale stale by to bylo
talcitko s ikonou.> ----------
> Od: Bejvlov> � Martina[SMTP:M.Bejvlova(zv)cra(tec)cz]
>
> Potrebovala bych, aby se misto klasickeho buttonu v task baru objevila
> jenom ikonka vedle tlacitka Start. (Mam D5S, NT)
> StringGrid
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.3.2000 09:55:52
Ahoj,
StrinGrid jsem nikdy nepouzil, takze nevim,
jak to udelat pomoci teto komponenty a jejich metod,
ale zkus se podivat na http://www.tmssoftware.com
kde najdes komponentu TAdvStringDrid, ktera to umi
(a nejen to... :-)
procedure RemoveRows(RowIndex, RCount: LongInt);
Description : removes all rows from the stringgrid, starting from row RowIndex to row RowIndex+RCount-1
Dobra.
> ----------
> Od: Ondrej Slama[SMTP:slama(zv)internet(tec)cz]
>
> Ve formu mam StringGrid a potrebuju najet na radek tabulky, klikem ho
> oznacit.
> Pomoci StringGrid.Row se mi vrati cislo radku. Po stisku tlacitka potrebuju
> tenhle radek z tabulky odstranit a vsechny radky pod posunout o jeden
> nahoru.
> Existuje nejakej jednodussi postup nez ho clearnout, manualne vsechnu radky
> pod posunout
> nahoru a pak posledni smazat ????
> Chtel bych vyuzit neco jako StringGrid.Rows[].Delete(); ale nevim jak to
> funguje.
> StringGrid
[*] bigzero(zv)post(tec)cz - 20.3.2000 10:14:11
Zdravim,
predne dekuji za predchozi namety.
Kurzor na strane serveru jsem jiz zkousel, neumim ho ale
rozumne presunout na urcitou pozici (� la Locate).
Diky
Honza
>>Snad male upresnenie: ADO umoznuje pouzit aj serverovsky >>kurzor,
>>kedy sa data nebuffruju (az na nastavitelnu cache). Je >>mozne si teda
>>vybrat napr. podla charakteru aplikacie. Aktualni zpravodajstvi?
*** http://NAJDI.TO
ADONIS - Browse
[*] bigzero(zv)post(tec)cz - 20.3.2000 10:14:51
Zdravim,
predne dekuji za predchozi namety.
Kurzor na strane serveru jsem jiz zkousel, neumim ho ale
rozumne presunout na urcitou pozici (� la Locate).
Diky
Honza
>>Snad male upresnenie: ADO umoznuje pouzit aj serverovsky >>kurzor,
>>kedy sa data nebuffruju (az na nastavitelnu cache). Je >>mozne si teda
>>vybrat napr. podla charakteru aplikacie. Vas partner v oblasti internetovych sluzeb - Globe Internet:
*** http://GLOBE.CZ
registry
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 20.3.2000 10:24:47
Ahoj
stahl jsem si regmon, ktery mi zobrazuje zmenu registru. Vsiml jsem si ze
Iexplorer zapisuje i neco do HKLM\PolicyData coz normalne regedit
nezobrazuje (takova vetev tam neni - teda aspon viditelna), nevite nekdo o
nejakem jinem editoru, ktery zobrazi vsechno ?Editor a zvyraznenie syntaxe
[*] J�n Grman�������e���zW��ۛg�$ - 20.3.2000 10:31:54
Caute.
D5Ent.
Mozete mi poradit alebo ma nasmerovat na nejaky komponent pomocou ktoreho by
som mohol zrealizovat editaciu mnou definovaneho skriptovacieho jazyka s
tym, ze vybrane skupiny slov (zakladne konstrukcne prvky toho jazyka,
pripadne "kniznicne funkcie") mi bude schopny zobrazovat v definovanej farbe
pisma ?
Teda v skratke. Editor textu s definivatelnym zvyraznenim syntaxe.
Zaujima ma tiez funkcia UNDO a REDO v tomto komponente...
Vopred vdaka.
JaNo.
PS: Pripadne to moze byt aj komponenta ktore dokaze len zvyraznovat text a
formatovanie pre danu syntax je potrebne doimplementovat.Streamy, readbuffer a writebuffer nebo read a writ
[*] bures <bures(zv)ssakhk(tec)cz> - 20.3.2000 11:20:15
Ahoj jiz peknych par hodin se pokousim ulozit data z jednoho streamu do bufferu.
Toto je muj nefunkci pokus pokud napisi toto tak pole buf bude plne samych #0 ale
nikoliv tim cim bych ho potreboval naplnit
var
myStream: TMemoryStream;
buf: Array of Char;
begin
myStream := TmemoryStream.Create;
Memo1.lines.SaveToStream(myStream);
SetLength(buf,myStream.size);
try
myStream.Read(buf,SizeOf(buf));
finally
myStream.free;
end;
pokus zkusim toto (readbuffer) tak mi delphi vynadaji Stream read Error
var
myStream: TMemoryStream;
buf: Array of Char;
begin
myStream := TmemoryStream.Create;
Memo1.lines.SaveToStream(myStream);
SetLength(buf,myStream.size);
try
myStream.ReadBuffer(buf,SizeOf(buf));
finally
myStream.free;
end;
Prosim poradte co delam spatne ....
predem dekuji za odpoved Vlada
OT: prevod prezentace PowerPointu do AVI
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 20.3.2000 11:56:27
> Mohl bych prosit?
> Dekuji
Docela pekny seznam je na:
http://winfiles.cnet.com/apps/98/graph-screencap.html
Minimalne 2 programky, ktere to umi do AVI tam najdete.
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Streamy, readbuffer a writebuffer nebo read a writ
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.3.2000 13:14:02
----- Original Message -----
From: bures
Sent: Monday, March 20, 2000 11:20 AM
Subject: Streamy, readbuffer a writebuffer nebo read a write ? Ahoj jiz peknych par hodin se pokousim ulozit data z jednoho streamu do bufferu.
Toto je muj nefunkci pokus pokud napisi toto tak pole buf bude plne samych #0 ale
nikoliv tim cim bych ho potreboval naplnit
var
myStream: TMemoryStream;
buf: Array of Char;
begin
myStream := TmemoryStream.Create;
Memo1.lines.SaveToStream(myStream);
SetLength(buf,myStream.size);
try
myStream.Position := 0;
// Delphi help: Use Read to read the contents of the memory stream into a buffer, starting at the current position.
myStream.Read(buf,SizeOf(buf));
finally
myStream.free;
end;
Palo.datetime->longint
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.3.2000 13:44:43
----- Original Message -----
From: <sup(zv)svitap(tec)cz>
Sent: Friday, March 17, 2000 3:55 PM
Subject: datetime->longint
> Dobry den, mam jeden problemecek. Potrebuji dostat datum ze stringu ve
tvaru
> 'RRRRMMDD' do promenne longint (Juliansky kalendar). V archivu konference
> jsem nic podnetneho nenasel...
function StrDateToLongInt(const S: String): LongInt;
begin
Result := Trunc(EncodeDate(StrToInt(Copy(S, 1, 4)), StrToInt(Copy(S, 5,
2)), StrToInt(Copy(S, 7, 2))));
end;
Palo.Button a barva
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 20.3.2000 13:58:33
Ahoj,
mohl by mi nekdo prosim vas rici, proc button nemuze mit barvu (libovolnou)20
Po zkoumani jsme dosel do zdroju VCL, ale nejak jsem se tam ztratil.
Existuje nejaky jednouduchy zpusob jak barvu zpristupnit? (jeste jedna vec, myslim ze v D5 jsoou buttony delany uz trochu jinak nez v D4, proto dodavam, ze bych potreboval reseni pro D5).
Predem Diky.
Pavel Vasek
TMessage
[*] Jiri Toman <toman(zv)plbohnice(tec)cz> - 20.3.2000 14:01:47
Ahoj vsici vespolek.
Mam jeden dotaz ohledne odchytavani zprav.
Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
nema zadnou komponentu (napr. Memo) tak pri stisku klavesy
odchytnu udalost WM_KEYDOWN v pohode takto.
..........
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure zprava(var mess:TMessage); message WM_KEYDOWN;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.zprava(Var mess:TMessage);
Begin
If mess.Msg = WM_KEYDOWN then
Begin
If mess.WParam = 13 then
showmessage('Enter stisknul');
End;
inherited;
End;
End.
Jak dam ,ale na Form treba Memo tak pri spusteni aplikace ma Focus Memo
a kdyz stisknu Enter tak ta zprava jde do Mema a nechytnu ji.
Jde mi o to jak udelat obsluhu nejake zpravy (nemusi byt WM_KEYDOWN),
abych ji mohl chytat v ramci cele aplikace. Je mi jasne, za treba Memo
ma OnKeyDown
a tam si mohu chytat jakoukoli klavesu, ale tak to delat nechci.
Taky by se to dalo vyresit takto, ale to bych musel pro kazdou
komponentu psat
proceduru na zpravu.
type
TMujMemo = Class(TMemo)
protected
private
procedure zpravaMemo(var mes:TMessage); message WM_KEYDOWN;
End;
TForm1 = class(TForm)
Memo1:TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Memo2:TMujMemo;
implementation
{$R *.DFM}
procedure TMujMemo.zpravaMemo(Var mes:TMessage);
begin
If mes.Msg = WM_KEYDOWN then
begin
If mes.WParam = 13 then
showmessage('Enter stisk');
end;
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo2:=TmujMemo.Create(Self);
Memo2.Parent:= Self;
Memo2.Left:=70;
Memo2.Width:= 200;
Memo2.Height:=200;
end;
end.
Urcite se to da resit nejak elegantneji.
Predem dekuji za jakykoliv namet ci reseni.
Jirka T.
ADONIS - Browse
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.3.2000 14:29:53
> Kurzor na strane serveru jsem jiz zkousel, neumim ho ale
> rozumne presunout na urcitou pozici (� la Locate).
Ak OLEDB provider podporuje filter, tak Locate by mal
fungovat. ADO este podporuje metodu Find, ktora umoznuje
ale hladat iba podla jednej polozky a dalej Seek, ktora ale
funguje len u Access 2000, ked sa pouziva priamy pristup
k tabulkam a indexy.
Zalezi aj od typu kurzora, ktore operacie su podporovane,
je mozne volit medzi rychlostou (napr. ForwardOnly kurzor)
a dostupnymi funkciami.
Erik
komp. MPEG (MPG) -> AVI
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 20.3.2000 14:30:38
prosel jsem torry, ale nic sem nenasel :( (snad sem se spatne dival).
Progr-Amather -Kchodl-(r) 1989-2000
OLE DB 0.600
[*] Agrodat <agrodat(zv)esnet(tec)cz> - 20.3.2000 15:17:21
> > lze OLE DB 0.600 pouzivat s Delphi 4. Lze-li, jakym zpusobem se
> > instaluji. Ve stazenych komponentach jsem nasel pouze instalacni
> > balicek DFOleDBPack50.dpk pro D5. OdbRegister.pas se mi pod D4
> > nainstalovat nepodarilo.
>
> DPK pro D4 jsem vyhodil, protoze se mi nechce ho udrzovat. Lze
> pouzit dpk pro D5, ovsem je treba upravit sekce requires (nahradit
> 50 za 40) a contains, v D4 je tam lehce jina syntaxe.
>
> Nevidim duvod, proc by registrace nesly nainstalovat, kdyz tak by
> to chtelo vypsat chybove hlasky, ktere Delphi vraci. Ale myslim, ze
> to bude souviset se spravnym zapisem dpk.
>
> Jeste neco - pri nejakych pokusech se mi tam vloudilo vcldb50, to
> tam nepatri.
Ahoj,
upravil jsem instalacni balicek podle vyse popsaneho dopuruceni. Pri
linkovani balicku doslo k nasledujici chybe [Error] RLINK32: Unsupported
16bit resource in file "OdbColGrid.dfm". Pravdepodobne nelze pouzivat v D4
*.dfm soubory vytvorene v D5. Po prohlednuti instalacniho balicku jsem
zjistil, ze techto *.dfm souboru balicek obsahuje vice.
Prosim o radu jak OLE DB 0.600 komponenty nainstalovat pod D4.
Petr Kejval
Agrodat cz a.s.
Jindrichuv Hradec
e-mail: agrodat(zv)esnet(tec)cz
OT: export mailov
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 20.3.2000 15:34:50
Zdravim,
sorry za OT, ale mam problem. Idem si preinstaluvavat comp. A dat si aj novy
Outlook Express. Lenze neviem ako mam z exportovat zpravy z OE4 do OE5.
Totiz mam tam z konferencie uz cca 10000 mailov. Jednoduche skopirovanie
nejde pretoze OE5 pouziva iny typ suborov ako OE4.
Dik, Miso
Streamy, readbuffer a writebuffer nebo read a writ
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.3.2000 15:43:12
From: bures
> Ahoj jiz peknych par hodin se pokousim ulozit data z jednoho streamu do
bufferu.
> Toto je muj nefunkci pokus pokud napisi toto tak pole buf bude plne
samych #0 ale
> nikoliv tim cim bych ho potreboval naplnit
>
> var
> myStream: TMemoryStream;
> buf: Array of Char;
> begin
> myStream := TmemoryStream.Create;
> Memo1.lines.SaveToStream(myStream);
> SetLength(buf,myStream.size);
> try
> myStream.Read(buf,SizeOf(buf));
> finally
> myStream.free;
> end;
>
> pokus zkusim toto (readbuffer) tak mi delphi vynadaji Stream read Error
Je treba vratit ukazatel ve streamu na zacatek
pomoci Seek:
Memo1.lines.SaveToStream(myStream);
myStream.Seek(0, 0);
myStream.Read(buf,SizeOf(buf));
Vaclav Krmela
Transparent TextOut
[*] Robert Zak <nrsys(zv)psn.sk> - 20.3.2000 15:43:49
Zdravim,
chcem sa spytat, ako sa da vypisat na formular (cez canvas) text s
transparentnym pozadim - co musim nastavit...
Pouzivam Canvas.TextOut(10,10,'Nazov'), ten si ale pod sebou spravi obdlznik
...
Dakujem
Robo
ADO Express
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.3.2000 16:53:41
Zkousel jsem otevrit tabulku s asi 14000 zaznamy pres ADOExpress (komponenta ADODataSet) na SQL serveru 7.0. Otevreni tabulky trvalo asi 10 vterin. Je to normalni nebo neco delam spatne. Mala tabulka se otevre hned.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
OT: export mailov
[*] Karel Kral <kral(zv)purus(tec)cz> - 20.3.2000 17:00:48
Je to velmi jednoduche: pustis OE5, Zvolis
soubor|Importovat|Zpravy|Outlook Express 4
> sorry za OT, ale mam problem. Idem si preinstaluvavat comp. A dat si aj novy
> Outlook Express. Lenze neviem ako mam z exportovat zpravy z OE4 do OE5.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Editor a zvyraznenie syntaxe
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.3.2000 18:04:56
Ahoj...
...celkem dobra je komponenta TPlusMemo, umi toho
vazne hodne, ale neni free, najdes ji tady
http://www.concept.itr.qc.ca/plusmemo/PmHome.htm
Dale zkus ColorMemo : http://www.balticsolutions.com
nebo mwEdit (URL bohuzel neznam), dale www.ultraedit.com,
nebo mrkni do archivu na subj. Editor se syntaxcolor
Dobra.
> ----------
> Od: J> �n Grman[SMTP:janog(zv)pluto.elf.stuba.sk]
>
> Mozete mi poradit alebo ma nasmerovat na nejaky komponent pomocou ktoreho by
> som mohol zrealizovat editaciu mnou definovaneho skriptovacieho jazyka s
> tym, ze vybrane skupiny slov (zakladne konstrukcne prvky toho jazyka,
> pripadne "kniznicne funkcie") mi bude schopny zobrazovat v definovanej farbe
> pisma ?
>
> Teda v skratke. Editor textu s definivatelnym zvyraznenim syntaxe.
> Zaujima ma tiez funkcia UNDO a REDO v tomto komponente...
> Streamy, readbuffer a writebuffer nebo read a writ
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.3.2000 19:09:47
On 20 Mar 00, at 11:20, bures wrote:
> Ahoj jiz peknych par hodin se pokousim ulozit data z jednoho streamu
> do bufferu. Toto je muj nefunkci pokus pokud napisi toto tak pole buf
> bude plne samych #0 ale nikoliv tim cim bych ho potreboval naplnit
>
> var
> myStream: TMemoryStream;
> buf: Array of Char;
> begin
> myStream := TmemoryStream.Create;
> Memo1.lines.SaveToStream(myStream);
Zde se Position nastavi na konec proudu, ...
> SetLength(buf,myStream.size);
> try
proto je nutne nekam pred cteni jeste vlozit
myStream.Sek(0,0);
> myStream.Read(buf,SizeOf(buf));
> finally
> myStream.free;
> end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: petice proti telekomunistickemu zakonu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.3.2000 19:09:47
Viz http://petice.2001(tec)cz/
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO Express
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.3.2000 19:36:12
Zkousel jsem otevrit tabulku s asi 14000 zaznamy pres ADOExpress (komponenta ADODataSet) na SQL serveru 7.0. Otevreni tabulky trvalo asi 10 vterin. Je to normalni nebo neco delam spatne. Mala tabulka se otevre hned.
Asi mas nastaveny klientsky cursor, vtedy sa zaznamy z databazy ukladaju do buffra na klientovi,
co moze chvilu trvat. Pouzi serverovsky kurzor alebo asynchronne citanie.
Erik
Programove prihlaseni k IB
[*] Jaro <jaro(zv)sinea(tec)cz> - 20.3.2000 11:18:22 -0800
TIBDatabase je jiz otevren.
Otevre se i automaticky, pokud je nektery z pripojenych objektu (TIBQuery a
pod)
take otevren.
Jaro
> Preji vsem pekneho dne,
>
> D5 Enterprise, SP1, IB 5.5, IBExpress
>
> Potrebuji nechat uzivatele krome jmena a hesla zvolit databazi a
> protokol. Pokud pouziji nize uvedeny kod, zahlasi mi to vyjimku:
> EIBClientError with message 'DPB Constant (0) is unknown.'.
> Nevite, kde je delana chyba?
>
> Osobne si myslim, ze v tech konstantach u protokolu, ale
> dokumentace jine neuvadi.
>
> Diky za pripadne odpovedi.
>
> Slavek
>
> procedure TfrmConnect.bbtnConnectClick(Sender: TObject);
> begin {TfrmConnect.bbtnConnectClick}
> with IBDatabase do
> begin
> Params.Clear;
> DatabaseName := edtDatabase.Text;
> Params.Values ['USER NAME'] := edtUserName.Text;
> Params.Values ['PASSWORD'] := edtPassword.Text;
> with Params do
> begin
> if rgConnectionType.ItemIndex = 0 then file://local
> begin
> Values ['PROTOCOL'] := 'sec_protocol_local';
> end else begin file://remote
> Params.Values ['SERVER'] := edtServer.Text;
> case cbxProtocol.ItemIndex of
> 0: Values ['PROTOCOL'] := 'sec_protocol_tcpip';
> 1: Values ['PROTOCOL'] := 'sec_protocol_netbeui';
> 2: Values ['PROTOCOL'] := 'sec_protocol_spx';
> end;
> end;
> end; file://with Params
> Connected := True;
> end; file://with IBDatabase
> end; {TfrmConnect.bbtnConnectClick}
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
>FTP & HTTP
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 20.3.2000 20:52:41
Hmm, diky za URL. Ale v podstate jsem tam nenasel to, co jsem hledal.
Potreboval bych informace o pouzivani Internet komponent v Delphi 4:
NMHTTP, NMFTP, NMPOP3, ...
Tomas Burger wrote:
>
> --- Martin Pe�ava <jimx(zv)volny(tec)cz> wrote:
> > moc nejni. Potreboval bych popsat zhruba postup pri
> > downloadovani fajlu pres %Subject%.
> > Bude mi stacit i INetova adresa, kde
> > se da o tom sehnat nejake info.
>
> Odpoved az obligatni:
> http://www.rtfm.be/fpiette/indexuk.htm :)
>
> Tomas
>
> =====
> Tomas 'Slune' Burger
> -----------------------------------------------
> Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
>
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://www.volny(tec)cz/jimx & http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/OT: export mailov
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 20.3.2000 21:04:14
>Je to velmi jednoduche: pustis OE5, Zvolis
>soubor|Importovat|Zpravy|Outlook Express 4
Zas take jednoduche to nieje. Pretoze pri importe z OE4 si vypyta adresar,
kde su spravyulozene. Tam su ulozene *.mbx
No a po vybrati adresara napise, ze ziadne spravy tam nie su. Mozno by to
slo, kebyze su v eml. Lenze neda sa exportvat zo 4 vsetky spravy naraz v
eml. No a OE5 pouziva subory *.dbx. Aj po ich premenovani to nejde, teda je
jasne, ze su aj strukturou rozdielne.
Miso
Vytvoreni smluv
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 20.3.2000 21:09:30
> potreboval bych udelat program pro automaticke sestaveni textu, v tomto
> pripade smluv. V databazi by byly ulozeny odstavce a uzivatel by si vybral
> jen ty, ktere chce, coz by nebylo tak slozite. Ale je nutne, aby to umelo
do
> tech odstavcu doplnovat uzivatelem zadane castky a provadet vypocty (treba
> vypocitat rocne celkem a rozpocitat na mesicni platby). Dale to musi umet
> ukladani hotovych textu v puvodnim zneni, i kdyz se text jednotlivych
Nevim jestli je neco v delphi, ale vcelku dobre se to da udelat v PC-FAND
mam tak udelany soft na delani smluv na pozemky, ale nemel by to byt problem
udelat i v Delphi.
Ramcove reseni :
Vytvoreni promennych napr. %%Penize%%, zaclenit do textu, a pak nahradit
pozadovanou hodnotou. Ukladat lze do blob , memo ....
V pripade ze pocet promennych ma byt variabiln� je nutne vytvorit
uzivatelsky
seznam techto promennych s prislusnymi udaji.
S pozdravem Heinisch Jiri
Transparent TextOut
[*] Lauko �tefan <lauko(zv)salamon.sk> - 20.3.2000 22:16:57
Ahoj,
Canvas.Brush.Style:= bsClear;
Canvas.TextOut(10,10,'Nazov');
> Zdravim,
>
> chcem sa spytat, ako sa da vypisat na formular (cez canvas) text s
> transparentnym pozadim - co musim nastavit...
>
> Pouzivam Canvas.TextOut(10,10,'Nazov'), ten si ale pod sebou spravi
obdlznik
> ...
>
> Dakujem
> Robo
>MS Access
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 20.3.2000 22:25:24
ahoj,
Jakou mas verzi Delphi? Od D5Ent lze udelat lepsi
pristup pres ADO pomoci ADOEXPRESS komponent nebo (do jine verze)
si koupit ADONIS komponenty.
----- Original Message -----
From: Ale� Kle�ka <aklecka(zv)merlin(tec)cz>
To: forum Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 17, 2000 11:36 AM
Subject: MS Access
> Zdravim,
> v Delphi 4 mam vytvorit aplikaci, ktera pracuje s LOKALNI databazi MS
> Access.
> Chtel bych poprosit Ty z Vas, kteri uz s timhle mate zkusenosti,
jestli
> by jste mi nemohli poslat TIP - jake komponenty mam pouzit, resp. se
kterymi
> mate dobre zkusensoti ( anebo opacne kterym bych se mel zdaleka vyhnout,
> abych se nenapalil a neztracel zbytecne cas ).
>
> Diky predem za pomoc
>
> Alesh Kleczka
> { a.klecka(zv)email(tec)cz }
>
>export mailov
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 20.3.2000 23:07:49
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 20, 2000 3:34 PM
Subject: OT: export mailov
> Zdravim,
>
> sorry za OT, ale mam problem. Idem si preinstaluvavat comp. A dat si aj
novy
> Outlook Express. Lenze neviem ako mam z exportovat zpravy z OE4 do OE5.
> Totiz mam tam z konferencie uz cca 10000 mailov. Jednoduche skopirovanie
> nejde pretoze OE5 pouziva iny typ suborov ako OE4.
>
> Dik, Miso
>
Ahoj. Ja mam MSOE 5.00.2314.1300 a tam je importovanie sprav s moznostou
vyberu zdroja (aj MSOE4) a mam to odskusane, je to OK.
Roland.TMessage
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.3.2000 23:26:18
----- Original Message -----
From: Jiri Toman <toman(zv)plbohnice(tec)cz>
Sent: Monday, March 20, 2000 2:01 PM
Subject: TMessage
> Ahoj vsici vespolek.
>
> Mam jeden dotaz ohledne odchytavani zprav.
> Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
Skus nastavit property TForm1.KeyPreview := True;
Palo.
Ako urobit TCheckBox.ReadOnly
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 21.3.2000 01:16:48
Zdravim.
Potrebujem Checkbox ale aby bol ReadOnly ?
Hi. Roland;Mazani souboru
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 21.3.2000 07:38:11
Dobry den,
potreboval bych smazat nejaky soubor nekde na disku. pokousim
se o to pomoci DeleteFile(Jmeno_Souboru). To mi vsak nefunguje.
Soubory si hledam pomoci FindFirst(cesta, faAnyFile, FileName)
a FindNext(FileName) a mazu nasledovne:
if not DeleteFile(FileName.Name) then
MessageDLG(Text_Zpravy, ....);
Pokazde se mi vsak zobrazi okno s textem zpravy.
Co delam spatne?
Petr Kucera
OT: export mailov
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.3.2000 07:51:43
Asi nejjednodussi metodou je vybrat zpravy, ktere
chci exportovat a prostym drag & drop je
pretahnout do adresare. Priponu EML mi sice
OE 5.0 vesele ignoruje, ale muzu si za to sam.
Nainstaloval jsem si Win98.
Navic je nekde v konferenci zprava, kterou
OE 4 exportuje jako Com3.eml. Kdyz to udelas
navic na sitovy tak mas o zabavu postarano. :-)
Martin
----- Original Message -----
> >Je to velmi jednoduche: pustis OE5, Zvolis
> >soubor|Importovat|Zpravy|Outlook Express 4
>
>
> Zas take jednoduche to nieje. Pretoze pri importe z OE4 si vypyta adresar,
> kde su spravyulozene. Tam su ulozene *.mbx
> No a po vybrati adresara napise, ze ziadne spravy tam nie su. Mozno by to
> slo, kebyze su v eml. Lenze neda sa exportvat zo 4 vsetky spravy naraz v
> eml. No a OE5 pouziva subory *.dbx. Aj po ich premenovani to nejde, teda
je
> jasne, ze su aj strukturou rozdielne.
>
> Miso
OLE DB 0.600
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.3.2000 08:01:55
On 20 Mar 00, at 15:17, Agrodat wrote:
> upravil jsem instalacni balicek podle vyse popsaneho dopuruceni. Pri
> linkovani balicku doslo k nasledujici chybe [Error] RLINK32:
> Unsupported 16bit resource in file "OdbColGrid.dfm". Pravdepodobne
> nelze pouzivat v D4 *.dfm soubory vytvorene v D5. Po prohlednuti
> instalacniho balicku jsem zjistil, ze techto *.dfm souboru balicek
> obsahuje vice. Prosim o radu jak OLE DB 0.600 komponenty nainstalovat
> pod D4.
Aha, zkus tedy zkonvertovat OdbColGrid.dfm do binaru, protoze
soubor je v textu, s cimz si D4 neumi poradit. Pokud to nepomuze,
zkusime neco dalsiho.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO Express
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.3.2000 08:01:55
On 20 Mar 00, at 16:53, Jaroslav Nadhera wrote:
> Zkousel jsem otevrit tabulku s asi 14000 zaznamy pres ADOExpress
> (komponenta ADODataSet) na SQL serveru 7.0. Otevreni tabulky trvalo
> asi 10 vterin. Je to normalni nebo neco delam spatne. Mala tabulka se
> otevre hned.
ADO si nacita data do sveho bufferu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: export mailov
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 21.3.2000 08:09:46
>>Je to velmi jednoduche: pustis OE5, Zvolis
>>soubor|Importovat|Zpravy|Outlook Express 4
> Zas take jednoduche to nieje. Pretoze pri importe z OE4 si vypyta adresar,
> kde su spravyulozene. Tam su ulozene *.mbx
> No a po vybrati adresara napise, ze ziadne spravy tam nie su. Mozno by to
> slo, kebyze su v eml. Lenze neda sa exportvat zo 4 vsetky spravy naraz v
> eml. No a OE5 pouziva subory *.dbx. Aj po ich premenovani to nejde, teda
je
> jasne, ze su aj strukturou rozdielne.
Musis zvolit nadrizeny adresar. Outlook si uz podadresar Mail najde.
Daniel