Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
RichEdit a tlac
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:55:33
Lubos wrote:
>
> Caute Delfinci !
> Vyskytol sa mi takyto problem.
> Urobil som program, ktory tlaci text z RichEditu, klasicky RichEdit->Print.
> Mal som ho v CB 3.0, kde som si musel sam osetrit tlac viac kopii, collate a pod.
> Potom som ho preniesol do CB 4.0, kde toto osetruje uz samotna
> komponenta. Ale ma to drobnu chybicku, ak dam tlacit viac kopii na laserke, vsetko je
> OK.
> Ale na ihlickovej tlaciarni to nefunguje. Viete mi niekto poradit kde by mohol byt
> problem ?
> existuje na to nejaky patch alebo to musim vsetk preprogramovat "rucne"?
Ahoj,
Ve Windows je tisk vice kopii vetsinou podporovan jen pro tiskarny, ktere
to primo z principu umoznuji, protoze u nich staci jen nastavit kolikrat
se ma stranka vytisknout. Pro jehlickove to budes muset udelat rucne.
Podivej se do Win32API helpu na strukturu PRINTDLG a v ni polozku nCopies.
--
Petr Vones, amatersky programator
Telefonicke pripojeni site
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:55:50
Pavel Junek wrote:
> Z davkoveho souboru (.bat) potrebuji modemem pomoci ftp prenest data.
> Potreboval bych z teto davky spustit program pro telefonicke pripojeni site
> (to nevim jak), vytocit spojeni se serverem (to nevim jak), a pak prenest
> data pres ftp (to uz umim) a spojeni zase ukoncit (a to zase nevim).
Ahoj,
Telefonicke pripojeni site se obsluhuje pomoci RAS funkci. Hledej na DSP
komponentu rascmp30.zip, nebo na (http://www.rtfm.be/fpiette/indexuk.htm),
tam ma taky jednu, jmenuje se RasDial.
--
Petr Vones, amatersky programator
Bitmapa a DBImage
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:56:06
> Vokounek wrote:
>
> Zdravim
> Prosim, jaky typ obrazku (bmp) mohu vlozit do mdb souboru (jako BLOB),
> abych
> mohl k zobrazovani pouzit komponentu DBImage ?? Ted tam vkladam Windows
> Bitmap (16color) a pri nacitani mi to hlasi 'Bitmap image is not valid' !!
Ahoj,
A jak tam vkladas tu bitmapu ? Ono ve VCL predpokladaji na zacatku nejakou
hlavicku kterou si tam pridavaji. Viz metody TBlobField.LoadFromBitmap a
TBlobField.SaveToBitmap.
--
Petr Vones, amatersky programator
Umisteni MainMenu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:56:43
"Fryz, Zdenek" wrote:
> existuje zpusob jak umistit hlavni menu
> na jine misto formulare, nez nahore pod titulkem ?
> Jde mi o reseni pro D3.
Ahoj,
O zadne takove moznosti nevim, menu tak standartne umistuji Windows. Pokud
na tom trvas, tak si za pomoci TToolBaru budes muset vytvorit menu sam tak
jak to dela treba Delphi (4 a 5). TToolBar si pak muzes zarovnat kamkoliv.
--
Petr Vones, amatersky programator
obr�zek X text
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:56:31
> dusan wrote:
> Vazeni "zkusenejsi", potreboval bych poradit, zda existuje nejaky
> "elegantni" zpusob jak vytvorit v textu neco jako hypertextovy odkaz
> podobne jako na webu ci v helpu (abych otevrel dalsi formular apod.), ale
> nechci pouzit ActiveX komponenty
Ahoj,
To by jsis musel napsat nejaky hypertextovy system, coz neni zase az takova
legrace. Na tvem miste bych opravdu jeste zvazil tu nechut k pouziti IE jako
ActiveX a HTML. Mas uz tam vlastne vsechno hotove, navic html stranky muzes
umistit do EXE souboru jako resource a pak je prohlizet.
--
Petr Vones, amatersky programator
SQL a datum
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:56:16
Petr Reichl wrote:
>
> Pouzivam BDE a Paradox 7 s Query komponentou. Do SQL dotazu potrebuji
> vlozit, aby vybral vsechny zaznamy jez budou mit novejsi datum nez
> xx.xx.xxxx. Nejak to ale nejde.
>
> SELECT * FROM Doklad WHERE Datum>"24.11.1999"
Ahoj,
LocalSQL ocekava datum v US formatu, tedy MM/DD/YY nebo MM/DD/YYYY. Blize
to mas popsane v Local SQL helpu (localsql.hlp) pod heslem "Date formats".
--
Petr Vones, amatersky programator
Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:56:51
> Honza Fiala wrote:
>
> jeste takovy dotaz ohledne dll. da se nejakou funkci zjistit, jake
> procedury a funkce obsahuje dynamicka knihovna dll?
Ahoj,
Da, rozebranim PE EXE formatu. Neco takoveho jsem delal v takove jedne
utilite. Posilal jsem to Pavlu Cisarovi, ze to prilozi do Nexu, ale zatim
to tam nejak neni.
--
Petr Vones, amatersky programator
Implementace fronty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:57:02
Jirka wrote:
> Jeste bych upresnil pouziti tzv. kruhoveho pole. Staci indexy
> nezvysovat klasicky i:=Inc(i) ale i:=Inc(i) mod 200 (v pripade
> 200-prvkoveho pole).
Ahoj,
Jeste bych k tomu pripomel, ze v Delphi 5 je novy unit Contnrs, ktery
obsahuje tridy jako TQueue a TStack.
--
Petr Vones, amatersky programator
pou�it� QRPreview
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.10.1999 23:57:14
Stanislav �ern� wrote:
> jde komponenta QRPreview pouzit pro nahled
> i neceho jineho nez QuickReportu?
> Jestlize ano, poradte jak zobrazit text, bitmapy...
> else nemate nejakou komponentu ktera to umi?
Ahoj,
QRPreview lze tezko pouzit k nahledu neceho jineho. Ale QR umoznuje i tisk
sestav, ktere nejsou vubec pripojeny na databaze, viz priklad:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/Other/DelphiDays99_QuickReport.zip
--
Petr Vones, amatersky programator
Automaticke odeslani e-mailu pomoci MapiSendMail(
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.10.1999 06:02:25
----- P�vodn� zpr�va -----
Od: V�clav Muchna <apscomp(zv)seznam(tec)cz>>
> Pokud jsem dobre informovan, tak ale odeslana zprava zustane ve
> slozce sent mail (nebo tak nejak - ja pouzivam Netscape). Ja osobne se
> domnivam, ze je idealni pouzit komponentu od F. Piette:
>
> http://sme.eunet.be/~vip107/smtpcli.zip
>
Odeslana zprava zustane ve slozce "Posta k odeslani" pokud nemas povoleno odesilat zpravy ihned, coz ma asi vetsina lidi, kteri nemaji pevnou linku na internet. Nebo bys chtel, aby se po kazdem napsani zpravy spustilo telefonicke spojeni a odeslala se jedna zprava ?
Samozrejme pouziti komponenty je mnohem pohodlnejsi.
===============================
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================En/Sk(Cz) klavesnica
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 25.10.1999 06:42:13
Ahoj,
kdesi jsem pouzival tenhle kod:
var LangStr: array[0..MaxLangStr] of char;
GetLocaleInfo(LOWORD(GetKeyboardLayout(0)), LOCALE_SENGLANGUAGE,
LangStr, sizeof(LangStr));
a v LangStr by mel byt ten retezec.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************
> -----P�vodn� zpr�va-----
> Od: Miso [SMTP:villim(zv)pobox.sk]
> Odesl�no: 26. listopadu 1999 22:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: En/Sk(Cz) klavesnica
>
> Prosil by som o radu, ako odchytit v aplikacii, ktora klavesnica je
> prave
> aktivna aj po viacnasobnom prepnuti klavesnice, t.j aby som mal
> vysledok
> vzdy zhodny so zobrazenim En/Sk(Cz) klavesnice v ovladacej liste. D3,
> W98
> Vdaka za kazdu odpoved Miso
> Instalace *.DPK
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 25.10.1999 07:28:47
>- rada z kategorie duchovni, kdyz uz mne nic nenapada:
>proste se na nej vykaslu, a pockam nejaky ten den, az
>bude Delphi v plne sile a pak to zkusim - tento pristup
>mne jeste nezklamal (o no to asi z ni ironicky ale myslim
>to vazne)
Nekdy jste pomuze obejit pocitac dokola.
Taky lze zkusit Silvovu metodu vizualizace.
V nejhorsim pomaha formatovani disku.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
BDE a GUID
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.10.1999 07:34:01
Ahoj all,
nedavno tu probihala debata o jednoznacnych polich, padl tu i
navrh na pouziti GUID. Tak jsem to zavedl do sve aplikace, pod MS
SQL 7, konkretne typ uniqueidentifier (je to binarni typ velikosti 16).
Dnes jsem se ze zvedavosti chtel podivat na tabulky s GUID polem
pres BDE (v D5 E) + nativni link, ale to mi seredne vynadalo. :-)
Zkousel jste to take nekdo?
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
Okno StayOnTop
[*] Ren� Otisk - 25.10.1999 07:48:19
Hi,
Musis tam dat ShowModal misto Show
Sroub
mam okno aplikace Form1
vytvorim nove okno Form2 dynamicky a zobrazim ho jako modal z formu Form1
(prekryje celou
obrazovku)
v udalosti Formcreate okna Form2 vytvorim Form3, ktery ma nastaveno
StayOnTop, a zobrazim ho Show
No a problem je v tom, ze chci aby Form3 byl StayOnTop, ale on neni, tzn.
kdyz kliknu na Form2, tak se
Form3 prekryje, coz ja nechci
Jak nechat otevrene okno consol 32-bit aplikace
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 25.10.1999 07:58:28
Zdravim,
problem:
Ve vlastnim toolsu pro delphi pouzivame prekladac zdroju
z delphi a to je consol 32-bitova aplikace, ktera kdyz se
vykona, tak se jeji okno zavre. My ho potrebujem nechat
otevrene, abychom si mohli precist, jak ten preklad
dopadl.
Je mi jasne ze mohu presmerovat vystup nekam, a pak
ten nekam ukazat...., ale pokud to jde, tak bychom radi
jen nechali otevrene to okno.
Jak pockat na aplikaci vime....
Diky za kazdy postreh ci radu....
Petr Motlicek
Okno StayOnTop
[*] Ren� Otisk - 25.10.1999 08:03:48
Je to MDI nebo SDI aplikace a ten frmDDraw je fmMDIChild u MDI?
----- Original Message -----
From: Petrik <petrik(zv)geocities.com>
To: Pavel K�ehula <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, November 24, 1999 11:17 PM
Subject: Re: Okno StayOnTop
> Nazdarek,
>
> PK> mam okno aplikace Form1
> PK> vytvorim nove okno Form2 dynamicky a zobrazim ho jako modal z formu
Form1 (prekryje celou
> PK> obrazovku)
> PK> v udalosti Formcreate okna Form2 vytvorim Form3, ktery ma nastaveno
StayOnTop, a zobrazim ho Show
>
> -- tohle neni reseni, ale dalsi doplnujici dotaz do publika --
>
> Presne tehnle problem sem ted chtel sem napsal, ale ty si me predbeh.
> Mam trosku jednodussi vec, ale taky to nefunguje :
>
> Mam jedinej Form1 (ten slouzi jako loader pro nize uvedene okno).
> V nem vytvorim novy okno dynamicky :
> frmDDraw:=Tform.Create(frmMain); // okno pro vystup DirectDraw
> frmDDraw.FormStyle:=fsStayOntop; // nemusi tu ani bejt, protoze neni
> // videt, ale pro jistotu ... ;)
> frmDDraw.BorderStyle:=bsNone;
>
> Ten Form1 neni videt :
> visible:=false;
> application.ShowMainForm:=false; // (hrozne sikovny property)
>
> Ale frmDDraw videt JE ! (a musi bejt)
> A je ten frmDraw CHCI ALWAYS_ON_TOP !!
> ale von nechce
> zkousel sem na nej (i na parenta) Win32 fce (i vsechny najednou):
>
> 1) SetWindowPos(frmDDraw.Handle,hwnd_TopMost,0,0,0,0,swp_noMove or
swp_NoSize);
> 2) SetWindowLong(frmDDraw.Handle,GWL_EXSTYLE,8); { WS_EX_ONTOP = 8 }
> 3) frmDraw.FormStyle:=fsStayOntop;
>
> ... nic vic me nenapada ...
>
> HELP !!! nerikejte, ze to nejde ...
> DIKY
>
> Cus,
> Petrik mailto:petrik(zv)geocities.com
>Install Shield & BDE podruhe
[*] Ren� Otisk - 25.10.1999 08:10:02
Hi,
InstallShield si sam hlida, jestli uz BDE je nainstalovane. V pripade, ze
je, nemuzes prespat konfiguracni soubor.
Co kdyz podstrcis IDAPI32.CFG na jiz nainstalovane BDE, kter� vyuzivaji jin�
programy a maji tam nastavene treba aliasy?
Sroub
> Konfiguraci BDE jsem take vyresil i kdyz trochu piratsky.
> Pomoci BDE Administratoru jsem si vytvoril IDAPI32.CFG obsahujici
> nastaveni, ktera potrebuji (napr. cestinu, atd.). Tento soubor jsem
> IS podstrcil misto jeho implicitniho souboru. Jde to lepe nebo
> elegantneji?
Okno StayOnTop
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 25.10.1999 08:28:10
Nazdarek,
me fubguje v D3 Proff a win95 tohle:
if FormStyle = fsStayOnTop then
begin
SetWindowLong(Handle, GWL_HWNDPARENT, 0);
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width,
Height, SWP_NOMOVE or SWP_NOSIZE);
end;
Mam to napojeny na OnActivate.
Mirek
----- Original Message -----
From: Petrik <petrik(zv)geocities.com>
To: Pavel K�ehula <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, November 24, 1999 11:17 PM
Subject: Re: Okno StayOnTop
> Nazdarek,
>
> PK> mam okno aplikace Form1
> PK> vytvorim nove okno Form2 dynamicky a zobrazim ho jako modal z formu
Form1 (prekryje celou
> PK> obrazovku)
> PK> v udalosti Formcreate okna Form2 vytvorim Form3, ktery ma nastaveno
StayOnTop, a zobrazim ho Show
>
> -- tohle neni reseni, ale dalsi doplnujici dotaz do publika --
>
> Presne tehnle problem sem ted chtel sem napsal, ale ty si me predbeh.
> Mam trosku jednodussi vec, ale taky to nefunguje :
>
> Mam jedinej Form1 (ten slouzi jako loader pro nize uvedene okno).
> V nem vytvorim novy okno dynamicky :
> frmDDraw:=Tform.Create(frmMain); // okno pro vystup DirectDraw
> frmDDraw.FormStyle:=fsStayOntop; // nemusi tu ani bejt, protoze neni
> // videt, ale pro jistotu ... ;)
> frmDDraw.BorderStyle:=bsNone;
>
> Ten Form1 neni videt :
> visible:=false;
> application.ShowMainForm:=false; // (hrozne sikovny property)
>
> Ale frmDDraw videt JE ! (a musi bejt)
> A je ten frmDraw CHCI ALWAYS_ON_TOP !!
> ale von nechce
> zkousel sem na nej (i na parenta) Win32 fce (i vsechny najednou):
>
> 1) SetWindowPos(frmDDraw.Handle,hwnd_TopMost,0,0,0,0,swp_noMove or
swp_NoSize);
> 2) SetWindowLong(frmDDraw.Handle,GWL_EXSTYLE,8); { WS_EX_ONTOP = 8 }
> 3) frmDraw.FormStyle:=fsStayOntop;
>
> ... nic vic me nenapada ...
>
> HELP !!! nerikejte, ze to nejde ...
> DIKY
>
> Cus,
> Petrik mailto:petrik(zv)geocities.com
>OT Re: Instalace *.DPK
[*] Ren� Otisk - 25.10.1999 08:34:06
Murphyho z�kony:
1. Selhaly-li vsechny pokusy, je nacase si precist navod.
2. Nenamahej se, vem si vetsi kladivo.
> >- rada z kategorie duchovni, kdyz uz mne nic nenapada:
> >proste se na nej vykaslu, a pockam nejaky ten den, az
> >bude Delphi v plne sile a pak to zkusim - tento pristup
> >mne jeste nezklamal (o no to asi z ni ironicky ale myslim
> >to vazne)
>
> Nekdy jste pomuze obejit pocitac dokola.
> Taky lze zkusit Silvovu metodu vizualizace.
> V nejhorsim pomaha formatovani disku.
Dll
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 25.10.1999 08:35:54
Haj hou!
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Da, rozebranim PE EXE formatu. Neco takoveho jsem delal v takove jedne
> utilite. Posilal jsem to Pavlu Cisarovi, ze to prilozi do Nexu, ale zatim
> to tam nejak neni.
No jo, porad. Mam jenom dve ruce a den ma jen 24 hodin :o) Pokud bude zajem,
muzu to poslat na privatni mail (kam jsem to jenom... :o)
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Okno StayOnTop
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 25.10.1999 08:41:31
On Thu, 25 Nov 1999 07:48:19 +0100, Ren� Otisk wrote:
>Hi,
>Musis tam dat ShowModal misto Show
>Sroub
>
>
>
>mam okno aplikace Form1
>vytvorim nove okno Form2 dynamicky a zobrazim ho jako modal z formu Form1
>(prekryje celou
>obrazovku)
>v udalosti Formcreate okna Form2 vytvorim Form3, ktery ma nastaveno
>StayOnTop, a zobrazim ho Show
>
>No a problem je v tom, ze chci aby Form3 byl StayOnTop, ale on neni, tzn.
>kdyz kliknu na Form2, tak se
>Form3 prekryje, coz ja nechci
>
>
Dik za navrh, ale to neni ono, protrebuji manipulovat i objekty na Form2, coz mi
ShowModal neumozni.
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Okno StayOnTop
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 25.10.1999 08:42:29
On Wed, 24 Nov 1999 20:44:56 +0100, Petr.Motlicek(zv)bcbrno(tec)cz wrote:
>> mam okno aplikace Form1
>> vytvorim nove okno Form2 dynamicky a zobrazim ho jako modal z formu Form1 (prekryje
celou
>> obrazovku)
>> v udalosti Formcreate okna Form2 vytvorim Form3, ktery ma nastaveno StayOnTop, a
zobrazim ho Show
>>
>> No a problem je v tom, ze chci aby Form3 byl StayOnTop, ale on neni, tzn. kdyz
kliknu na Form2, tak se
>> Form3 prekryje, coz ja nechci.
>
>Ahoj,
>
>neni to tim, ze to modalni okno (Form2) neni jeste
>vykresleno - tedy je visible = False ?
>Chci rict, ze Form3.Show by si mel volat nejdrive ve
>Form2.OnShow.
Zde problem neni, Form3 zobrazuji pozdeji az na stisknuti nejake klavesy
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Zprava po siti
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 25.10.1999 08:45:39
Tak OK, dam to na archiv konference do sekce D4\Other
Bohuzel se mi nepodarilo najit puvodni (pro D3), ze ktereho jsem to
upravoval, ale od nekud jsem ho stahnout musel a z 90% to bude Torry
nebo DSP. Upravu pro Delphi 5 necham na tech bohatsich, co uz si je
koupili (ja si pockam na 4. update (D3.02, D4.03 -> D5.04 ) :-)) )
Cau Mira
----- P�vodn� zpr�va -----
Od: Josef Koke� <kokes(zv)fsid.cvut(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 24. listopadu 1999 18:35
P�edm�t: Re: Zprava po siti
> Kdybys to nekam posilal anebo daval na nejaky FTP, tak bych taky moc
prosil
> o adresu. Je to velice zajimave. Diky.
Slozenka
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 25.10.1999 08:53:31
Keby si pouzival SQL Report Builder tak tam je mozne robit nasladujuce veci
( aj pre uzivatela):
1. Nastavit okraje
2. Je mozne tlacit cely report alebo iba tie texty ktore su napr, urcitou
farbou
Vyhodou toho je ze pri preview vydis cely report ale na tlac ide iba to
co chces.
3. Posuvat polozky
atd.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. november 1999 0:32
P�edm�t: Re: Slozenka
Puvodni zprava, kterou napsal Bab�k Martin dne 24 Nov 99,:
> Potrebuji tisknout na slozenky, neznate nekdo figl jak se trefit do tech
zatr
> acenych policek? Diky.
Nameris si to a zkousis, ne? Jen musis mit poradnou tiskarnu,
ktera ti nebere papir pokazde jinak. Poradna tiskarna je treba
HP LaserJet 2100.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
IrDA
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 25.10.1999 08:54:52
Ahoj Delphaci,
mam takovy dotazek, nezabyval jste se nekdo programovanim IrDA
vysilace/prijimace pripojitelneho na seriovy port. Zajimalo by mne zda
neexistuje nejaka komponenta pro komercne dodavane zarizeni anebo zda nevite
o necem na internetu, kde by byl k mani SW i HW. Potrebuji vyuzivat infra
vysilani ale TAKY prijem.
Dik. Jara.
Okno StayOnTop
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 25.10.1999 08:54:57
On Thu, 25 Nov 1999 08:28:10 +0100, Miroslav Mare� wrote:
> Nazdarek,
>
> me fubguje v D3 Proff a win95 tohle:
>
> if FormStyle = fsStayOnTop then
> begin
> SetWindowLong(Handle, GWL_HWNDPARENT, 0);
> SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width,
>Height, SWP_NOMOVE or SWP_NOSIZE);
> end;
>
>Mam to napojeny na OnActivate.
>
> Mirek
Diky moc, to je presne ono, funguje to.
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Jak nechat otevrene okno consol 32-bit aplikace
[*] rdocekal(zv)csas(tec)cz - 25.10.1999 09:01:40
Hmm, co takhle zcela tupe ReadLn az je po vsem?
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [mailto:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 25. listopadu 1999 7:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Jak nechat otevrene okno consol 32-bit aplikace
>
>
> Zdravim,
>
> problem:
>
> Ve vlastnim toolsu pro delphi pouzivame prekladac zdroju
> z delphi a to je consol 32-bitova aplikace, ktera kdyz se
> vykona, tak se jeji okno zavre. My ho potrebujem nechat
> otevrene, abychom si mohli precist, jak ten preklad
> dopadl.
>
> Je mi jasne ze mohu presmerovat vystup nekam, a pak
> ten nekam ukazat...., ale pokud to jde, tak bychom radi
> jen nechali otevrene to okno.
>
> Jak pockat na aplikaci vime....
>
> Diky za kazdy postreh ci radu....
>
> Petr Motlicek
>
> Internet aplikace
[*] Roman Fiser <rfiser(zv)leknet(tec)cz> - 25.10.1999 09:03:45
Ahoj,
> Musim se k tematu vratit. Dozvedel jsem se cirou nahodou vice a myslim,
> ze jde o ten stejny produkt (kdyz neni v puvodnim prispevku uveden nazev).
> A radim: nepouzivejte to.
> Vcera jsem byl na seminari Microsoftu s nazvem "Co na DevDays nebylo".
> A nasmal jsem se znovu :-)
> Mluvilo se tam o tom zase. Ted ale ke cti prednasejiciho musim priznat,
> ze se snazil naznacit, ze je to uplne naprd. Ten clovek nebyl z Microsoftu,
> ale asi o tom mluvit musel.
Mluvil jsem jinem o produktu, ktery neni od M$ a pouziva se vyhradne pro
server-side scripty.
> Jedna se o funkcionalitu Windows scriptu. V jadre tohoto produktu je
> zabudovan jakysi Encode/Decode, ktery vyuzivaji ruzne MS aplikace.
> Lze jim kodovat libovolne veci, napr. ASP, scripty v HTML atp.
> Ruzne produkty potom tuto funkcionalitu vyuzivaji. Napr. IIS,
> MSIE 5 (MS Internet Explorer), do MSIE 4 lze Windows Script doinstalovat,
> potom to bude umet taky.
> Zaver:
> Protoze na obou konferencich, kde jsem slysel propagaci Encoderu,
> jsem zaregistroval par lidi, kteri se o nej zacali zajimat jako o dobrou
> vec a protoze mam indicie i z teto konference, ze to nekdo povazuje
> za jakousi ochranu, chci Vas upozornit na nesmyslnost spolehani se na tento
> produkt.
S tim souhlasim.
S pozdravem,
Roman Fiser,
NG Soft
TTrackBar, TScrollBar
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 25.10.1999 09:14:27
Zdravim,
potreboval bych nejakou TrackBar nebo ScrollBar komponentu pro D3, ktera by vypadala jako "posouvatko" z mixazniho pultu. Nevite nekdo o necem please.
PS: Na Torry a DSP jsem uz hledal a nic jsem nenasel.
Diky
Radim Ludv�k
radiml(zv)bnsoft(tec)cz
CTRL+ALT+DELETE
[*] Ing. J�n Kuch�r�����!j��G - 25.10.1999 09:20:58
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
caute
chcem sa opytat ci je mozne nejakym sposobom zakazat uzivatelovi prerusenie
programu pomocou klaves CTRL+ALT+DELETE, alebo aspon ci sa tam neda
program nejako schovat
DIK
Ing. J�n Kuch�r
KIaR SjF TU Ko�ice
Park Komensk�ho 9, 041 27
tel. : 095/602 2589 mobil : 0905 229548
e-mail: kuchar(zv)tuke.sk BDE a MDB databaze...
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 25.10.1999 09:26:05
Zdravim...
mam MDB databazi na CD-ROMu a snazim se k ni pristupovat
pres BDE (5.10) a nativni Access driver. (patricne DAO mam)
Jenze pri pokusu se na tabulku dostat to na mne vyhodi hlasku
"Couldn't lock file." Vypada to podle vseho, ze se neco snazi u
MDB souboru vytvorit jakysi Lockfile, i kdyz se tabulku pochpitelne
snazim otevrit jako read-only.
nevite nekdo, jakym zpusobem se k MDB databzi na read-only
mediu dostat? Da se nekde neco presvedcit, aby ten jeho lock
vytvrarel na nejakem inem disku a ne v adresari s databazi?
Dekuji za namety...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
Zjisteni IP adres pridelovanych DHCP serverem
[*] martin.falta(zv)obi(tec)cz - 25.10.1999 09:33:30
Ja bych ale potreboval, aby to dokazal zjistit jenom jeden pocitac, ktery by
potom na dane IP adresy (je to v ramci podnikove site) posilal
aktualizovane verze souboru.
Von: sm(zv)sct(tec)cz am 24.11.99 16:05 GMT
Bitte antworten an delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie: (Blindkopie: Martin Falta/OBI/CZ)
Thema: Re: Zjisteni IP adres pridelovanych DHCP serverem
Neslo by to pomoci teto funkce WSocket.LocalIPList??
Mela by vratit seznam IP adres daneho pocitace.
Mirek
----- Original Message -----
From: <martin.falta(zv)obi(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, November 24, 1999 3:59 PM
Subject: Zjisteni IP adres pridelovanych DHCP serverem
>
> Ahoj,
>
> nevite nekdo, jak by se dali programe zjistit IP adresy, ktere prideluje
DHCP
> server? Diky za kazde nakopnuti.
> Mam D3 C/S, Win98
>
> Martin
>Instalace *.DPK
[*] martin.falta(zv)obi(tec)cz - 25.10.1999 09:48:31
Jeste muzes zkusit podplatit pocitac. Polozena tisicovka na bedne to spravi.
Von: kastner(zv)infos(tec)cz am 25.11.99 06:28 GMT
Bitte antworten an delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie: (Blindkopie: Martin Falta/OBI/CZ)
Thema: Re: Instalace *.DPK
>- rada z kategorie duchovni, kdyz uz mne nic nenapada:
>proste se na nej vykaslu, a pockam nejaky ten den, az
>bude Delphi v plne sile a pak to zkusim - tento pristup
>mne jeste nezklamal (o no to asi z ni ironicky ale myslim
>to vazne)
Nekdy jste pomuze obejit pocitac dokola.
Taky lze zkusit Silvovu metodu vizualizace.
V nejhorsim pomaha formatovani disku.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
Too many record lock on the table
[*] Ren� Otisk - 25.10.1999 10:17:07
Hi,
W95, D3, Rx2.60, Paradox
Jiz jsem se na %sub% jednou ptal, lec nikdo nezareagoval. Takze to zkusim znova.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco jineho? Uz si rvu zbytky vlasu.
Sroub
file of type
[*] Ren� Otisk - 25.10.1999 10:20:04
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
pou�it� QRPreview
[*] Stanislav �ern�������w���/�ʿ - 25.10.1999 10:30:49
Na tom FTP jsem to nenasel.
Ahoj,
QRPreview lze tezko pouzit k nahledu neceho jineho. Ale QR umoznuje i tisk
sestav, ktere nejsou vubec pripojeny na databaze, viz priklad:
ftp:
//ftp.mlp(tec)cz/pub/misc/Delphi/konference/Other/DelphiDays99_QuickReport.zip
--
Petr Vones, amatersky programator
Acces
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 25.10.1999 10:30:31
na http://www.geocities.com/mshkolnik/ je freewarova komponenta
TAccess97Password:
This component allows to detect a password in protected MS Access database
(.MDB). Was successelly tested on MS Access 95/97.
M.
---- Original Message -----
.
.
.
Da se to, je to narocne na prostredky (Brute Force) a tedy drahe, pokud mate
dobre vygenerovany mdw (znaky dle konvence pro neprustrelna hesla), muze to
trvat mesice, mozna snazsi by bylo sebrat vam tu skupinu (probourat se k vam
do PC :))
Souhlas s tim, ze je to dobre vyresene, v ramci moznosti, daleko lepe, nez
"zaheslovana" databaze, ten postup je smesny.
.
.
BDE a GUID
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 25.10.1999 10:45:53
No ono to bude tim, ze nativni link jak znamo pouziva
DBLib a Microsoft proste do DBLib podporu GUID nepridal.
Dle slov MS je DBLib jen pro zpetnou kompatibilitu s verzi
6.5 a tak nove vlastnosti nepodporuje (a ve verzi 8 uz
pravdepodobne ani nebude (:-().
S pozdravem Otakar Milink
> -----P�vodn� zpr�va-----
> Ahoj all,
>
> nedavno tu probihala debata o jednoznacnych polich, padl tu i
> navrh na pouziti GUID. Tak jsem to zavedl do sve aplikace, pod MS
> SQL 7, konkretne typ uniqueidentifier (je to binarni typ
> velikosti 16).
> Dnes jsem se ze zvedavosti chtel podivat na tabulky s GUID polem
> pres BDE (v D5 E) + nativni link, ale to mi seredne vynadalo. :-)
> Zkousel jste to take nekdo?Nalezeni souboru
[*] Radek Zitta <Radek.Zitta(zv)gyza(tec)cz> - 25.10.1999 09:46:20 met
Nema n+kdo n+jakou funkci, ktera by dokazala ve vtauech adresa^2ich,
ktere jsou na disku, najit soubor?Select ... where
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 25.10.1999 10:47:00
Ahojte,
prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
keyword Token: = Line number 2" ?
SQL.Add('select * from pripady1 ');
SQL.Add(Format('where OSCISLO = %s,[' ']));
SQL.Add(Format('and KONTIME<>%s,[' ']);
SQL.Add('and ZAPIS>='+_od);
Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
' , tak select bezproblemu projde.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
file of type
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 25.10.1999 10:55:37
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Ahoj,
zkus
G : file of TGlobalProperty;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz <mailto:jiri.f(zv)avizo(tec)cz> Nalezeni souboru
[*] Ren� Otisk - 25.10.1999 10:57:41
To byla kdysi procedurka na kopirovani resp. presun souboru. Nevim jestli
jsem to upravil dobre, netestoval jsem to. Kdyz tak se ozvi. Odkud je
adresar, Maska je soubor, ktery hledas
procedure TZaloha.Najdi(Odkud, Maska: string);
var
Found: Integer;
F: TSearchRec;
A, B: array[0..128] of Char;
begin
try
Found := FindFirst(Odkud + Maska, faAnyFile, F);
while Found = 0 do
begin
if (F.Attr and faDirectory = faDirectory) and (not ((F.Name = '..')
or
(F.Name = '.'))) then
Najdi(Odkud + '\' + F.Name, Maska)
ShowMessage(Odkud, Maska);
end;
Found := FindNext(F);
end;
finally
FindClose(F);
end;
end;
> Nema n+kdo n+jakou funkci, ktera by dokazala ve vtauech adresa^2ich,
> ktere jsou na disku, najit soubor?file of type
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.10.1999 11:09:26
----- P�vodn� zpr�va -----
Od: Ren� Otisk
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinov
at File of Record
Zatim to mam takto:
type
T
GlobalProperty = record
FForm: string;
FCompo
nent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of Glo
balProperty;
Tu by mel byt File Of Type, cili of TGlob
alProperty, ne file of promenna
======================
=========
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro
napojare
===============================
Too many record lock on the table
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 25.10.1999 11:19:22
To bezi na siti ?
Tuhle hlasku jsme kdysi meli, pokud si dobre vzpominam,
stacilo nakonfigurovat BDE tak, aby kazda stanice mela
svuj vlastni Private directory.
A na www.borland.com je k tomuto nekolik dokumentu.
Ale musis si je najit sam.
Radim Kunz
-----Original Message-----
From: Ren� Otisk <otisk(zv)misel(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 25. listopadu 1999 10:25
Subject: Too many record lock on the table
Hi,
W95, D3, Rx2.60, Paradox
Jiz jsem se na %sub% jednou ptal, lec nikdo nezareagoval. Takze to zkusim znova.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update
to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco
jineho? Uz si rvu zbytky vlasu.
Sroub
file of type
[*] Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 25.10.1999 11:20:04
U typu string je treba doplnit pocet znaku a staci napsat G: File of TGlobalProperty:
type
TGlobalProperty = record
FForm: string[255];
FComponent: string[10];
FProperty: string[20];
end;
var
G: file of TGlobalProperty;
----P�vodn� zpr�va-----
Od: Ren� Otisk <otisk(zv)misel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. listopadu 1999 11:02
P�edm�t: file of type
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
Select ... where
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ov 1999 11:26:06
No nejsem si jist ale co mezera pred "and".
>Ahojte,
> prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
>keyword Token: = Line number 2" ?
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+_od);
>Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
>' , tak select bezproblemu projde.
M&B
Borland Pascal na Celeronech
[*] jdanek(zv)fnbrno(tec)cz - 25.10.1999 11:36:03
Ahojte,
Potreboval jsem napsat neco rychle pod MS-DOSem v Borland
Pascalu 7. Zjistil jsem, ze na Celeronech Pascalovske programy nefunguji
z duvodu chyby v nejake knihovne Borland Pascalu. Nevite nekdo,
v jake knihovne se ta chyba nachazi, a pripadne kde by se to dalo stahnout
k UpDatu na Internetu? Nemohu to pod nicim najit.
Diky
Jozka
jdanek(zv)fnbrno(tec)cz
CTRL+ALT+DELETE
[*] Juraj.Talaba(zv)nup.sk - 25.10.1999 11:45:23
das sa to asi takto:
uses
WinProcs;
{$R *.RES}
var
Dummy : integer;
begin
Dummy := 0;
{Disable ALT-TAB}
SystemParametersInfo( SPI SETFASTTASKSWITCH, 1, (zv)Dummy, 0);
{Disable CTRL-ALT-DEL}
SystemParametersInfo( SPI SCREENSAVERRUNNING, 1, (zv)Dummy, 0);
end.
- RebEl -
"Ing. J�n Kuch�r" <kuchar(zv)tuke.sk> na 25.11.99 09:20:58
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: "Delphi konferencia" <delphi-l(zv)fwd(tec)cz>
Kopie: (Na v�dom�: Juraj Talaba/0099/ba/nup/sk)
P�edm�t: CTRL+ALT+DELETE
caute
chcem sa opytat ci je mozne nejakym sposobom zakazat uzivatelovi prerusenie
programu pomocou klaves CTRL+ALT+DELETE, alebo aspon ci sa tam neda
program nejako schovat
DIK
Ing. J�n Kuch�r
KIaR SjF TU Ko�ice
Park Komensk�ho 9, 041 27
tel. : 095/602 2589 mobil : 0905 229548
e-mail: kuchar(zv)tuke.sk
BDE a GUID
[*] Robert Kindl <rob(zv)exec(tec)cz> - 25.10.1999 12:06:54
> Ahoj all,
> nedavno tu probihala debata o jednoznacnych polich, padl tu i
> navrh na pouziti GUID. Tak jsem to zavedl do sve aplikace, pod MS
> SQL 7, konkretne typ uniqueidentifier (je to binarni typ velikosti 16).
> Dnes jsem se ze zvedavosti chtel podivat na tabulky s GUID polem
> pres BDE (v D5 E) + nativni link, ale to mi seredne vynadalo. :-)
> Zkousel jste to take nekdo?
> Zbysek Hlinka
Pouzivame to pri rucni replikaci nekterych tabulek pri offline
propojeni. Jedeme pres BDE 5.10 na MSSQL 7SP1 pres
DBLIB (NTWDBLIB.DLL) 7.00.694 a Delphi 3.02.
Pri pouziti v TQuery pro Open to vytvari TBytesField
pro Execute TParam typu ftBytes.
Takze bez problemu.
Rob
PS.
Co je "seredne vynadalo"?
Kdyz mi takovou vetu rekne nas zakaznik tak reknu:
Normalni, necte chybove hlasky, jen macka OK,
at to rika "Format C:" nebo "Vyhral jsi $1000000".
Ale kdyz takovou vec napises i ty :-)))
Font Dialog
[*] Straka Josef <kshb(zv)seznam(tec)cz> - 25.10.1999 12:09:04
Dobry den vsem,
pouzivam D4 Standard a W95 OSR2
Mam problem s nastavenim pisma z FontDialogu. Otevru Dialog, nastavim si
pismo, barvu, styl a stript.
Pote v programu osetrim, aby to byla pravda:
MojeKomponenta.Font := FontDialog.Font;
MojeKomponenta.Font.Color := FontDialog.Font.Color;
.....
Ale nevim, jak osetrit, aby nastaveny stredoevropsky script byl
stredoevropsky a ne zapadoevropsky (default).
Dekuji
STRAKA Josef
zacinajici amatersky programator
mail: strakaj(zv)hba(tec)czn(tec)cz
www: http://www.mujweb(tec)cz/www/strakaj/index.htm
Nalezeni souboru
[*] Michal Hlav�� - 25.10.1999 12:09:24
Zdravim,
skus sa pozriet na www.delphi(tec)cz pod topic vyhledavani souboru vo fulltexte
urcite nieco najdes.
S pozdravom
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
>Nema n+kdo n+jakou funkci, ktera by dokazala ve vtauech adresa^2ich,
>ktere jsou na disku, najit soubor?
>Zprava po siti
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 25.10.1999 12:18:16
na http://www.utilmind.com/ je komponenta Mailslot:
For local Networks data exchange. A mailslot is a mechanism for one-way
interprocess communications (IPC). An application written for Microsoft
Windows can store messages in a mailslot. The owner of the mailslot can
retrieve messages that are stored there. These messages are typically sent
over a network to either a specified computer or to all computers in a
specified domain. A domain is a group of workstations and servers that share
a group name.
License: Freeware
Last updated: March 22, 1999
Requirements: Delphi 1/2/3/4 or C++ Builder 1/3/4
Download: mailslot.zip (7 Kb), Exe-demo (214 Kb)
M.
----- Original Message -----
.
.
>
> potreboval bych poslat po siti zpravu
> vsem prihlasenym. Obdobne jako PostMessage()
> na jedne masine resp. v jednom systemu.
> Sit po NetBEUI. Nejak se k tomu nemuzu
> dopracovat. Poradite nekdo ?
>
.
.
Select ... where
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 25.10.1999 12:21:07
Tak jak to formatujes, tak tam pridavas text
where OSCISLO=
zkus radek zmenit na
SQL.Add(Format('where OSCISLO = ''%s'',[' ']));
(doplnit dva apostrofy na kazdou stranu)
Karel
-----P�vodn� zpr�va-----
Od: Petr Sadovsky [mailto:petr(zv)slunce(tec)cz]
Odesl�no: 25. listopadu 1999 10:47
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Select ... where
Ahojte,
prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
keyword Token: = Line number 2" ?
SQL.Add('select * from pripady1 ');
SQL.Add(Format('where OSCISLO = %s,[' ']));
SQL.Add(Format('and KONTIME<>%s,[' ']);
SQL.Add('and ZAPIS>='+_od);
Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
' , tak select bezproblemu projde.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
ActiveX (WAS: obr�zek X text)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 12:26:15
Mohl by jste mi nekdo prosim poradit. Protoze se tu o tom
psalo muf-nackrat, jak vlozim na vlastni formular okno
IExploreru jako ActiveX ? Protoze jsem to jiz zkousel
a neutrpel vitezstvi, napisete mi nekdo prosim polopaticky,
jak to udelat? Lze takto vlozit jakykoli objekt ?
Dobra.
> ----------
> Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
> > dusan wrote:
> > Vazeni "zkusenejsi", potreboval bych poradit, zda existuje nejaky
> > "elegantni" zpusob jak vytvorit v textu neco jako hypertextovy odkaz
> > podobne jako na webu ci v helpu (abych otevrel dalsi formular
> apod.), ale
> > nechci pouzit ActiveX komponenty
>
> legrace. Na tvem miste bych opravdu jeste zvazil tu nechut k pouziti
> IE jako
> ActiveX a HTML. Mas uz tam vlastne vsechno hotove, navic html stranky
> muzes
> umistit do EXE souboru jako resource a pak je prohlizet.
>
> Borland Pascal na Celeronech
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 25.10.1999 12:28:41
Urcite se o tom uz tady psalo a mam dojem, ze to byla knihovna CRT a ze
na strankach Borlandu je opravny patch.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************> Zjistil jsem, ze na Celeronech Pascalovske programy nefunguji
> z duvodu chyby v nejake knihovne Borland Pascalu. Nevite nekdo,
> v jake knihovne se ta chyba nachazi, a pripadne kde by se to dalo
> stahnout
> k UpDatu na Internetu? Nemohu to pod nicim najit.
>
> Diky
> Jozka
> jdanek(zv)fnbrno(tec)cz
> file of type
[*] Ren� Otisk - 25.10.1999 12:29:18
Hi,
Kdyz to zmenim na G: File of TGlobalProperty, tak mi vyhodi hlasku:
Type GlobalProperty needs finalization - not allowed in file type
Sroub
> Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
> Zatim to mam takto:
> type
> TGlobalProperty = record
> FForm: string;
> FComponent: string;
> FProperty: string;
> end;
> var
> GlobalProperty: TGlobalProperty;
> G: file of GlobalProperty;
>
> Ahoj,
>
> zkus
>
> G : file of TGlobalProperty;
OT Re: Instalace *.DPK
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 12:32:58
>Murphyho z�kony:
>1. Selhaly-li vsechny pokusy, je nacase si precist navod.
>2. Nenamahej se, vem si vetsi kladivo.
3. A kdyz se to rozbile, neni ceho litovat.
Slo o vadnou soucastku, kterou by casem bylo
treba tak jako tak vymenit.file of type
[*] Ren� Otisk - 25.10.1999 12:33:22
Jo, tady byl zakapany pes. Dik. Muzu se jeste zeptat, proc ten string musi byt omezeny poctem znaku (jen abych se poucil)?
Sroub
----- Original Message -----
From: Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, November 25, 1999 11:20 AM
Subject: Re: file of type
U typu string je treba doplnit pocet znaku a staci napsat G: File of TGlobalProperty:
type
TGlobalProperty = record
FForm: string[255];
FComponent: string[10];
FProperty: string[20];
end;
var
G: file of TGlobalProperty;
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
Select ... where
[*] Ren� Otisk - 25.10.1999 12:34:59
Hi,
Snad by to mohlo byt tim, ze mezi 2. a 3. radkem to neudela mezeru a spoji
se to s tim AND
Sroub
Ahojte,
prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
keyword Token: = Line number 2" ?
SQL.Add('select * from pripady1 ');
SQL.Add(Format('where OSCISLO = %s,[' ']));
SQL.Add(Format('and KONTIME<>%s,[' ']);
SQL.Add('and ZAPIS>='+_od);
Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
' , tak select bezproblemu projde.
Nalezeni souboru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 12:40:59
Preposilam Ti mail od Petra Vonese:
-----------------------------------------------------
Ahoj,
nebo pouzit jiz hotovou funkci z IMAGEHLP.DLL:
uses
Imagehlp;
procedure TForm1.Button1Click(Sender: TObject);
var
FoundPath: array[0..MAX_PATH] of Char;
begin
if SearchTreeForFile('C:\', 'DELPHI32.EXE', FoundPath) then
ShowMessage(FoundPath);
end;> ----------
> Od: Radek Zitta[SMTP:Radek.Zitta(zv)gyza(tec)cz]
> Odesl�no: 25. listopadu 1999 10:46
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Nalezeni souboru
>
> Nema n+kdo n+jakou funkci, ktera by dokazala ve vtauech adresa^2ich,
> ktere jsou na disku, najit soubor?
> Vyska popup menu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 12:46:03
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
jak v programu zjsitim, jakou vysku ma popupmenu ?
Uzivatel do ni prida nekolik polozek a ja bych potreboval
zjistit, jak je vysoke.
Jeste mam jeden dotaz, programove vytvorim Timer,
nastavim mu prislusne property a vyrobim jednu proceduru,
kterou bych rad povesil na udalost OnTimer, jak to mam
udelat ?
procedure AAA;
begin
MessageBeep(MB_OK);
end;
var
T: TTimer;
begin
T:=TTimer.Create;
T.Interval:=1000;
...
T.OnTimer:=AAA;
----Tady s tim ma problem
end;
Diky moc
Dobra.Borland Pascal na Celeronech
[*] Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 25.10.1999 12:51:49
Chyba je v unite crt, program podeli nulou (RunTime Error 200: .....).
UpDate najdes na www.borland(tec)cz, je to sekce "Casto kladene otazky" - nebo
tak nejak. Je tam vysvetlen cely problem a jak jej resit.
Jindrich Nikodem
-----P�vodn� zpr�va-----
Od: jdanek(zv)fnbrno(tec)cz <jdanek(zv)fnbrno(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. listopadu 1999 12:41
P�edm�t: Borland Pascal na Celeronech
>Ahojte,
>
> Potreboval jsem napsat neco rychle pod MS-DOSem v Borland
>Pascalu 7. Zjistil jsem, ze na Celeronech Pascalovske programy nefunguji
>z duvodu chyby v nejake knihovne Borland Pascalu. Nevite nekdo,
>v jake knihovne se ta chyba nachazi, a pripadne kde by se to dalo
stahnout
>k UpDatu na Internetu? Nemohu to pod nicim najit.
>
> Diky
> Jozka
> jdanek(zv)fnbrno(tec)cz
>Select ... where
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 12:53:44
Jestli ma byt OSCISLO string a hledas nejaky,
ktery obsahuje 5 mezer, zkus pouzit uvozovky
Format('where OSCISLO="%s"', [' '])
nehlede na to, ze mi neni jasne, jak Ti to
vezme kompilator, kdyz za %s nemas apostrof.
Dobra.
----------
> prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use
> of
> keyword Token: = Line number 2" ?
>
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+_od);
>
> Pritom kdyz napisu primo v komponente Query do property SQL where
> OSCISLO='
> ' , tak select bezproblemu projde.
>
>
> Too many record lock on the table
[*] Marcel Langr <ivar(zv)ivar(tec)cz> - 25.10.1999 12:56:48
Podle dokumentace podporuje BDE maximalne 255 "record locks" najednou na jedne tabulce
Podpora transakci neni vlastnosti Paradoxu ale provadi ji BDE a pouziva k tomu prave zamykani vet.
Pri zmene vety v transakci zamkne BDE vetu, zapise kopii vety do log souboru a nasledne provede zmeny. Zamek z vety je uvolnen az pri Commit nebo Rollback.
Marcel Langr
mlangr(zv)ivar(tec)cz
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco jineho? Uz si rvu zbytky vlasu.
Sroub
Instalace *.DPK
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 25.10.1999 13:12:51
>Jeste muzes zkusit podplatit pocitac. Polozena tisicovka na bedne to spravi.
>>- rada z kategorie duchovni, kdyz uz mne nic nenapada:
>>proste se na nej vykaslu, a pockam nejaky ten den, az
>>bude Delphi v plne sile a pak to zkusim - tento pristup
>>mne jeste nezklamal (o no to asi z ni ironicky ale myslim
>>to vazne)
>
>Nekdy jste pomuze obejit pocitac dokola.
>Taky lze zkusit Silvovu metodu vizualizace.
Vy si delate legraci, ale mne se doopravdy stalo, ze kdyz jsem reklamovala upgrade pocitace
pro neustale padani, tak mi TECHNIK doporucoval nechat si projit byt proutkarem, ze tam mam
urcite patogenni zony, pocitacem to pry nebude.
Kdyz jsem na reklamaci trvala, tak se zjistilo, ze je spatne nastavene napajeni procesoru.........
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Zjisteni IP adres pridelovanych DHCP serverem
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 25.10.1999 13:16:21
Preji hezky dem,
Obavam se, ze DHCP protokol toto neumoznuje. Pak je asi jedinou moznosti
zjistit primo z DHCP serveru rozsah adres, ktere server prideluje (ze
souboru, registru, atd - zalezi na konkretni implementaci serveru) a tyto
adresy potom zkouset, jestli jsou zive ....
R.Pospisil
> -----Original Message-----
> From: martin.falta(zv)obi(tec)cz [mailto:martin.falta(zv)obi(tec)cz]
> Sent: Wednesday, November 24, 1999 3:59 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Zjisteni IP adres pridelovanych DHCP serverem
>
>
>
>
> Ahoj,
>
> nevite nekdo, jak by se dali programe zjistit IP adresy,
> ktere prideluje DHCP
> server? Diky za kazde nakopnuti.
> Mam D3 C/S, Win98
>
> Martin
>
> HideApp v Delphi1 a W3.11
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 13:18:56
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
D1, Win 3.11
jak schovam aplikaci v D1 pod Win 3.11 ?
RegisterServiceProcess nejde
ShowWindow(SW_HIDE) sice schova ikonu, ale
po Alt-Tab se da stale nalistovat.
Diky moc,
za pomoc.
Dobra.Select ... where
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 25.10.1999 13:22:32
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Petr Sadovsky
> Odesl�no: 25. listopadu 1999 10:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Select ... where
>
>
> Ahojte,
> prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
> keyword Token: = Line number 2" ?
>
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
Chybi uvozovky:
SQL.Add(Format('where OSCISLO = ''%s'',[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+_od);
>
> Pritom kdyz napisu primo v komponente Query do property SQL where
> OSCISLO='
> ' , tak select bezproblemu projde.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
>Zablokovani ukonceni systemu
[*] Kr�l��ek Milan <milan.kralicek(zv)teplarny(tec)cz> - 25.10.1999 13:28:12
Ahoj,
Nevi nekdo jakym zpusobem zapsat aplikaci do systemu (win9x,winNT),
tak aby nesel ukoncit nebo odhlasit uzivatele bez ukonceni teto aplikace,
popripade aby ji neslo odstrelit pomoci TaskListu ?
Diky za kazdou radu
milan.kralicek(zv)teplarny(tec)cz
file of type
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 25.10.1999 13:32:14
Je to proto, aby se mohlo presne vycislit, kolik bytu bude ten typ pri
zapisu zabirat. Protoze string je dynamicky, neni to mozne a proto se
musi deklarovat pevny pocet bytu.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************
> Jo, tady byl zakapany pes. [Petr Brant] Kouzelny preklep. Pouzivas na
> to citron? :-))))) Dik. Muzu se jeste zeptat, proc ten string musi
> byt omezeny poctem znaku (jen abych se poucil)?
> �
> Sroub
>
>
> U typu string je treba doplnit pocet znaku a staci napsat G:
> File of TGlobalProperty:
> �
> type
> � TGlobalProperty = record
> �� FForm: string[255];
> �� FComponent: string[10];
> �� FProperty: string[20];
> �end;
> �
> var
> � G: file of TGlobalProperty;
> statistika prenesenych bytes na sitovych kartach
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 25.10.1999 14:43:28
Zdravim
Radoslav Krehl�k napsal(a) toto:
> to co umi treba novel v monitor.nlm, ukazat kolik bajtiku preteklo pres kterou
> sitovou karticku, vlastne bych takovy monitor rovnou rad napsal. Popr pokud
> nekdo vite o softu, ktery jiz tohle dela...tnx
No me to treba ukazuje WinRoute:
Interface statistics : Session
Name In: bytes Out: bytes In: packets Out: packets
Interni sit 12.10 MB 52.53 MB 117729 109089
WaveLAN 42.21 MB 4.32 MB 63760 57930
Interface statistics : Total
Name In: bytes Out: bytes In: packets Out: packets
Interni sit 363.39 MB 472.50 MB 1670292 1545714
WaveLAN 69.03 MB 6.80 MB 105784 91648
A myslim si, ze by to melo jit vytahnou i nekde ze systemu, ale odkud....
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
ICQ: 13484112
Odstraneni retezce z binarniho souboru
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 25.10.1999 13:51:06
Potrebuji z binarniho souboru odstranit nekolikrat se vyskytnuvsi stejny
retezec. Ovsem nevim jak na to.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Prirazeni udalosti (WAS Vyska popup menu)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 13:56:30
Diky za radu, ale kdyz ja to potrebuju udelat primo
v "Project source".
program Project1;
uses
Forms, ExtCtrls;
var
T:TTimer;
{$R *.RES}
begin
Application.Initialize;
T:=TTimer.Create(hInstance);
...atd atd...
Application.Run;
end.> ----------
> >
> > Jeste mam jeden dotaz, programove vytvorim Timer,
> > nastavim mu prislusne property a vyrobim jednu proceduru,
> > kterou bych rad povesil na udalost OnTimer, jak to mam
> > udelat ?
> >
> > procedure AAA;
> > begin
> > MessageBeep(MB_OK);
> > end;
>
> Chyba je v tom, ze AAA musi byt _metoda_ objektu typu TNotifyEvent.
> Deklaruj ji takto:
> procedure TMyObject.AAA(Sender: TObject);
> begin
> MessageBeep(MB_OK);
> end;
> Borland Pascal na Celeronech
[*] Roman Fiser <rfiser(zv)leknet(tec)cz> - 25.10.1999 13:57:47
> Potreboval jsem napsat neco rychle pod MS-DOSem v Borland
> Pascalu 7. Zjistil jsem, ze na Celeronech Pascalovske programy nefunguji
> z duvodu chyby v nejake knihovne Borland Pascalu. Nevite nekdo,
> v jake knihovne se ta chyba nachazi, a pripadne kde by se to dalo stahnout
> k UpDatu na Internetu? Nemohu to pod nicim najit.
http://www.management(tec)cz/rfiser/delphi/bp7patch.zip
S pozdravem,
Roman Fiser,
NG Soft
Instalace *.DPK
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 25.10.1999 14:04:37
> -----P�vodn� zpr�va-----
> Od: "Jitka �t�p�nkov�" [mailto:step(zv)odp(tec)cz]
> Odesl�no: 25. listopadu 1999 13:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Instalace *.DPK
>
> Vy si delate legraci, ale mne se doopravdy stalo, ze kdyz
> jsem reklamovala upgrade pocitace
> pro neustale padani, tak mi TECHNIK doporucoval nechat si
> projit byt proutkarem, ze tam mam
> urcite patogenni zony, pocitacem to pry nebude.
To bylo dost pruhledne.
Chtel se toho proutkareni sam ujmout a Tys to nepochopila. :-)
Vazne:
Asi si chtel ulehcit praci. Pokud by se ale pred touto radou
oprave nejakou dobu venoval, bral bych jeho radu vazne.
Kdo neveri na geopatogenni zony, muze si dosadit
treba infracervene zareni. Nebo jine. Myslim, ze je celkem
zname, ze lze beh procesoru zvenci rusit.
Jura
Rozlisenie bitmapy
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 25.10.1999 14:08:02
vdaka za "burlivu" reakciu na moj dotaz, ale uz som ho vyriesil
Miroslav BARICA wrote:
> nazdareg zas raz
>
> no, mam takyto problem, potreboval by som zistit rozlisenie BMP suboru.
> existuje nejaka vlastnost objektu TBitmap, resp. TPicture, ktora by mi
> toto rozlisenie odovzdala? hladam, hladam a nic. samozrejme nie je
> problem "rozobrat" ;) subor a zistit to priamo v jeho hlavicke, ale zda
> sa mi to zbytocne takto na to ist ak existustuje nejaka rozumnejsia
> cesta ako zistit rozlisenie. cez API, pripadne cert vie ako ;o). diky za
> kazde nakopnutie...
>
> baj, baj, KoNiK...vyhodnoceni SQL dotazu
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 25.10.1999 14:14:14
Dobry den,
programuji jednoduchou databazovou aplikaci a nevim si rady s vyhodnocenim
SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE (TQuery ->
TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne tabulky
urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan Novak".
Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve sloupci name
nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten vysledek
co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True nebo False,
ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za pripadnou radu
dekuji.
Mirek Dolecek Jak "spustit" sablonu DOT v Delphi ??
[*] Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz> - 25.10.1999 14:15:16
Pane kolego,
dekuji za radu. Tak, jak jste to napsal, sice otevrelo opet pouze sablonu,
ale po zmene parametru "open" na "new" jiz funguje spravne.
Diky
Tomas Andrasko
----- P�vodn� zpr�va -----
Od: Roman Fiser <rfiser(zv)leknet(tec)cz>
Komu: Tomas Andrasko <delphi-l(zv)fwd(tec)cz>
Odesl�no: 24. listopadu 1999 17:21
P�edm�t: Re: Jak "spustit" sablonu DOT v Delphi ??> > Potrebuji z Delphi (4,5) "spustit" Word sablonu "*.dot" tak, aby mi Word
> > otevrel novy dokument nad touto sablonou, tak jak to udela Explorer.
>
> Treba takhle:
>
>
ShellExecute(handle,Pchar('open'),Pchar('Sablona.dot'),nil,nil,SW_SHOWNORMAL
);
>
> do uses este musis pridat ShellApi
>
>
> S pozdravem,
>
> Roman Fiser,
> NG Soft
>
>
file of type
[*] Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 25.10.1999 14:19:17
Hi,
to bych taky rad vedel. Ale podle mne je to tim, ze data musi ulozit do souboru s nejakou strukturou a string muze mit ruznou delku. Proto potrebuje definovat max. delku pro ktere v souboru udela misto. Ale to je jen moje soukroma domenka, nechci se poustet do salodlouhych reci v teto problematice.
PS: Jestli jsem uplne mimo tak mi to prominte a nekamenujte me. Ja jenom vim, ze kdyz definuji typ pro soubor musim definovat delku retezcu.
Hodne zdaru.
Jindrich Nikodem
-----P�vodn� zpr�va-----
Od: Ren� Otisk <otisk(zv)misel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. listopadu 1999 13:42
P�edm�t: Re: file of type
Jo, tady byl zakapany pes. Dik. Muzu se jeste zeptat, proc ten string musi byt omezeny poctem znaku (jen abych se poucil)?
Sroub
----- Original Message -----
From: Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, November 25, 1999 11:20 AM
Subject: Re: file of type
U typu string je treba doplnit pocet znaku a staci napsat G: File of TGlobalProperty:
type
TGlobalProperty = record
FForm: string[255];
FComponent: string[10];
FProperty: string[20];
end;
var
G: file of TGlobalProperty;
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
Novy KonfView
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 25.10.1999 14:20:39
Prave jsem dodelal novou verzi KonfView (program na prohlizeni a
hlavne vyhledavani v prispevcich nejen teto konference).
Jako vzdy jej naleznete na adrese:
http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.shtml
...a to vcetne zdrojaku.
Jedna se spise o opravy chyb minule verze (Hlavne tam chybelo
defaultni nastaveni pro filtrovani RE a pro rozpoznani konce
prispevku. Projevovalo se to tak, ze pri nacitani prispevku z
textoveho souboru se do databaze ulozil jeden dlouhy prispevek
(puvodni soubor).
Opravit se to dalo rucne - v Nastaveni stacilo dodat puvodni hodnoty
(je tam na to tlacitko)).
Blizssi informace (jake dalsi vylepseni, co bylo opraveno a co bude
mozna casem dodelano) naleznete na vyse uvedene strance.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - vyhodnoceni SQL dotazu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.10.1999 14:26:39
Ahoj,
neni nic jednosussiho,
Dej do Query.SQL napr. toto
SELECT COUNT(*) FROM data
WHERE name="Jan Novak"
a potom ho spust.
Query.Open;
Pocet_Novaku:=Query.Fileds[0].AsInteger;
Query.Close;
(ale jak na to, kdyz to vraci nejaky kurzor do tabulky)
Jestli Ti to vraci vysledky do nejake DBGrid,
tak si na formulat umisti novy Query a nikam
uz ho nenapojuj.
Nebo lze take pouzit metody EnableControls a
DisableControls;
Dobra.
> ----------
> programuji jednoduchou databazovou aplikaci a nevim si rady s
> vyhodnocenim
> SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE (TQuery
> ->
> TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne
> tabulky
> urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan Novak".
>
> Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve sloupci name
> nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten
> vysledek
> co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True nebo
> False,
> ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za pripadnou
> radu
> dekuji.
>
> Select ... where
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 25.10.1999 14:28:58
On 25 Nov 1999, Bab�k Martin wrote:
> No nejsem si jist ale co mezera pred "and".
>
> >Ahojte,
> > prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
> >keyword Token: = Line number 2" ?
>
> > SQL.Add('select * from pripady1 ');
> > SQL.Add(Format('where OSCISLO = %s,[' ']));
> > SQL.Add(Format('and KONTIME<>%s,[' ']);
> > SQL.Add('and ZAPIS>='+_od);
>
> >Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
> >' , tak select bezproblemu projde.
Ahoj,
a neni to tim, ze vysledna druha radka vypada
where OSCISLO =
nic, proste nic. Vzdyt tam dosadis prazdnej retezec.
Format('where OSCISLO =''%s''', [' ']);
nebo tak nejak.
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
file of type
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 25.10.1999 14:29:51
On Thu, 25 Nov 1999, [iso-8859-2] Foldyna Ji�� wrote:
> Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
> Zatim to mam takto:
> type
> TGlobalProperty = record
> FForm: string;
> FComponent: string;
> FProperty: string;
> end;
> var
> GlobalProperty: TGlobalProperty;
> G: file of GlobalProperty;
>
> Ahoj,
>
> zkus
>
> G : file of TGlobalProperty;
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz <mailto:jiri.f(zv)avizo(tec)cz>
Quotujme, prosim. Kdo ma lustit, co je odpoved a co dotaz.
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
file of type
[*] martin.falta(zv)obi(tec)cz - 25.10.1999 14:32:07
Ahoj,
napis to napr. takhle: type
TGlobalProperty = record
FForm: string[10];
FComponent: string[20];
FProperty: string[30];
end;
Von: otisk(zv)misel(tec)cz am 25.11.99 11:29 GMT
Bitte antworten an delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie: (Blindkopie: Martin Falta/OBI/CZ)
Thema: Re: file of type
Hi,
Kdyz to zmenim na G: File of TGlobalProperty, tak mi vyhodi hlasku:
Type GlobalProperty needs finalization - not allowed in file type
Sroub
> Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
> Zatim to mam takto:
> type
> TGlobalProperty = record
> FForm: string;
> FComponent: string;
> FProperty: string;
> end;
> var
> GlobalProperty: TGlobalProperty;
> G: file of GlobalProperty;
>
> Ahoj,
>
> zkus
>
> G : file of TGlobalProperty;
file of type
[*] Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz> - 25.10.1999 14:33:03
String je v Delphi 4 a vyse, pokud neni direktivou uvedeno jinak, null-terminated a tudiz by prekladac nevedel, jak je vlastne dlouhy, coz vedet musi.
Tomas Andrasko
A.S.E.I. spol. s r.o.
pobocka Ostrava
Ostrava
e-mail : tomas.andrasko(zv)asei(tec)cz
----- P�vodn� zpr�va -----
Od: Ren� Otisk
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 25. listopadu 1999 12:33
P�edm�t: Re: file of type
Jo, tady byl zakapany pes. Dik. Muzu se jeste zeptat, proc ten string musi byt omezeny poctem znaku (jen abych se poucil)?
Sroub
----- Original Message -----
From: Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, November 25, 1999 11:20 AM
Subject: Re: file of type
U typu string je treba doplnit pocet znaku a staci napsat G: File of TGlobalProperty:
type
TGlobalProperty = record
FForm: string[255];
FComponent: string[10];
FProperty: string[20];
end;
var
G: file of TGlobalProperty;
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
vyhodnoceni SQL dotazu
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 25.10.1999 14:37:06
Ahoj, snad Ti to pomuze:
***
procedure zjisti;
var wPom: string;
begin
wPom:='SELECT jmeno FROM data.db WHERE jmeno = "Jan Novak"';
WITH SqlPokus DO
begin
Close;
Sql.Clear;
Sql.Add(wPom);
Open;
end;
IF sqlPokus.Active= false THEN sqlPokus.Active:= true;
IF SqlPokus.RecordCount>0 THEN
Takovy zaznam existuje
^^^^^^^^^^^^^^^^^^^^^^^
ELSE Neexistuje
^^^^^^^^^^^^^^^
end; {procedure}
***
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Dobry den,
programuji jednoduchou databazovou aplikaci a nevim si rady s vyhodnocenim
SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE (TQuery ->
TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne tabulky
urcitou hodnotu.
Mirek Dolecek Zablokovani ukonceni systemu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.10.1999 14:40:41
> Nevi nekdo jakym zpusobem zapsat aplikaci do systemu (win9x,winNT),
> tak aby nesel ukoncit nebo odhlasit uzivatele bez ukonceni teto aplikace,
odchyt si WM_QUERYENDSESSION a vrat nieco ine ako 1.
> popripade aby ji neslo odstrelit pomoci TaskListu ?
- tam ju musis schovat, inak to odsterlis, myslim ze nejaky priklad najdes v
archive, ja bohuzial neviem kde.
skor by ma zaujimalo co ked posuzije uzivatel SystemInformator, ktory
zobrazi aj schovane okna a dovoluje ich odsterlit (pripadne ine utility),
alebo pri restarte PC :-)))
Pavol Kaka�ka
paka(zv)aktis(tec)cz
IrDA
[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 25.10.1999 14:43:17
Ahoj,
To zalezi na tom, jake infra vysilani chces pouzivat.
Bud "holy" seriovy prenos nebo prenos s nejakym protokolem.
U nas prodava tyto moduly firma MITE viz www.mite(tec)cz pod oznacenim
IrDA-PCCOM.
K temto modulum je disketa s driverem, ktery na sebe presmeruje seriovou
linku a pak to co posles jakymkoliv komunikacnim program na port tak to ten
driver "obali" do protokolu. To je cesta, kter� ovsem vyzaduje protikus,
ktery tomu protokolu rozumi.
Druha cesta je nepouzivat driver, namodovat si modul na danou rychlost a
pouzivat pouze "holy" prenos. V tomto pripade byva na druh� strane t�eba
obvod, kter� seriova data z mikroprocesoru "preveda" na infra diody ( a
obracene).
Na SW kter� ti umozni namodovat ten modul (i t�eba pro Delphi) a na zmineny
hardware se uz poptej na mite(zv)mite(tec)cz
proto�e tady je komercni reklama zakazana
Daniel Kminek
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] za u�ivatele SPELZA
s.r.o.
Odesl�no: 25. listopadu 1999 8:55
Komu: Konference Delphi
P�edm�t: IrDA
Ahoj Delphaci,
mam takovy dotazek, nezabyval jste se nekdo programovanim IrDA
vysilace/prijimace pripojitelneho na seriovy port. Zajimalo by mne zda
neexistuje nejaka komponenta pro komercne dodavane zarizeni anebo zda nevite
o necem na internetu, kde by byl k mani SW i HW. Potrebuji vyuzivat infra
vysilani ale TAKY prijem.
Dik. Jara.
Jak nechat otevrene okno consol 32-bit aplikace
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 25.10.1999 15:07:05
> Hmm, co takhle zcela tupe ReadLn az je po vsem?
Jak to myslis ?
Petr Motlicek
vyhodnoceni SQL dotazu
[*] SICHTA Daniel <daniel.sichta(zv)za.asset.sk> - 25.10.1999 15:17:22
Dobry den,
programuji jednoduchou databazovou aplikaci a nevim si rady s
vyhodnocenim
SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE
(TQuery ->
TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne
tabulky
urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan
Novak".
Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve
sloupci name
nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten
vysledek
co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True
nebo False,
ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za
pripadnou radu
dekuji.
Mirek Dolecek
Skus to trebars takto : SELECT COUNT(*) FROM data.db WHERE name
= � Jan Novak�
) daniel.sichta(zv)za.asset.sk IMAGEHLP.DLL
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 25.10.1999 15:22:50
Zdravim,
prosim o popis %subj%. Je to soucast systemu
(windows), ci kde to sehnat, a co obsahuje za rutiny ?
Diky
Petr Motlicek
statistika prenesenych bytes na sitovych kartach
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 25.10.1999 15:39:04
> Pavel Zichovsky napsal
> No me to treba ukazuje WinRoute:
WinRoute je spatny priklad, protoze ma low-level driver,
takze si tu statistiku muze delat sam. Ale pokud by na
to nekdo prisel, tak by mne to taky zajimalo, predevsim
statistika RAS, spocitat si kolik mne stoji preneseny
MB atp.
Daniel
Borland Pascal na Celeronech
[*] jdanek(zv)fnbrno(tec)cz - 25.10.1999 15:40:18
diky vsem za pomoc. Pomohlo to
Jozka D.
select ... where
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 25.10.1999 15:42:06
Slab�, Petr (Pilsen), 25.11.1999 15:14:44
Petr Sadovsky wrote:
> nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
> keyword Token: = Line number 2" ?
>
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+_od);
Chyby ti tam uvozovky:
SQL.Add(Format('where OSCISLO = ''%s''',[' ']));
Best regards,
Petr.
OT: downgrade
[*] Martin <geoplan(zv)pp.sinet.sk> - 25.10.1999 15:44:37
sorry za OT
da sa nejako preinstalovat IE 4 na IE 5 ? Potrebujem Outlook Express so zdielanymi slozkami, OE 5 strasne blbne , maze slozky.
Martin
ActiveX (WAS: obr�zek X text)
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 25.10.1999 15:46:41
On Thu, 25 Nov 1999, [iso-8859-2] Mal� Dobromil wrote:
> Mohl by jste mi nekdo prosim poradit. Protoze se tu o tom
> psalo muf-nackrat, jak vlozim na vlastni formular okno
> IExploreru jako ActiveX ? Protoze jsem to jiz zkousel
> a neutrpel vitezstvi, napisete mi nekdo prosim polopaticky,
> jak to udelat? Lze takto vlozit jakykoli objekt ?
>
> Dobra.
Ahoj, na www.delphi(tec)cz je archiv konference, hledej TWebBrowser. Je to tam
nekolikrat popsano.
;-)
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
Zablokovani ukonceni systemu
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 25.10.1999 15:46:53
A nestaci osetrit OnCloseQuery ? Z TaskListu to ale odstrelis.> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Kr�l��ek Milan
> Odesl�no: 25. listopadu 1999 13:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zablokovani ukonceni systemu
>
>
> Ahoj,
>
> Nevi nekdo jakym zpusobem zapsat aplikaci do systemu (win9x,winNT),
> tak aby nesel ukoncit nebo odhlasit uzivatele bez ukonceni teto aplikace,
> popripade aby ji neslo odstrelit pomoci TaskListu ?
>
> Diky za kazdou radu
>
> milan.kralicek(zv)teplarny(tec)cz
>Select ... where
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 25.10.1999 15:59:11
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Odstran ty carky pred and. Schvalne si skuz pred spustenim SQl prikazu
vypsat
SQL.Text a pak ho dej do SQL Exploreru nebo Database Desctopu (v pripade
Paradoxu
nebo Foxky).
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----P�vodn� zpr�va-----
Od: Bab�k Martin [mailto:M.Babik(zv)mus(tec)cz]
Odesl�no: 25 november, 1999 11:26
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Select ... where
No nejsem si jist ale co mezera pred "and".
>Ahojte,
> prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
>keyword Token: = Line number 2" ?
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+ od);
>Pritom kdyz napisu primo v komponente Query do property SQL where OSCISLO='
>' , tak select bezproblemu projde.
M&B
vyhodnoceni SQL dotazu
[*] Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz> - 25.10.1999 16:13:03
Treba takto:
SQL.Add('select count(*) as POCET from data.db where .......');
Open;
if FieldByName('POCET').AsInteger > 0 then {je tam}
else { neni tam }
----- P�vodn� zpr�va -----
Od: Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 25. listopadu 1999 14:14
P�edm�t: vyhodnoceni SQL dotazu
> Dobry den,
>
> programuji jednoduchou databazovou aplikaci a nevim si rady s vyhodnocenim
> SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE (TQuery ->
> TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne tabulky
> urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan Novak".
> Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve sloupci name
> nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten vysledek
> co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True nebo False,
> ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za pripadnou radu
> dekuji.
>
> Mirek Dolecek
VTIP: Promovani ynzenyry
[*] Marek Andricik <andricik(zv)oko.fei.tuke.sk> - 25.10.1999 15:16:43 gmt
Kdy se clovek rozhodne stat inzenyrem?
Kdyz zjisti, ze na funebraka mu chybi sarm.
Co pouzivaji inzenyri jako antikoncepci?
Svou osobnost.
Jak poznate inzenyra extroverta?
Kdyz s vami mluvi, kouka na vase boty misto na sve.
Proc presel inzenyr pres silnici?
Protoze to bylo v zaznamech z lonskeho roku.
Jak rozzurit inzenyra?
Privazte ho k zidli, stoupnete si pred nej a slozte nespravne mapu.
Inzenyr jses kdyz:
- je pro tebe tezke se rozhodnout koupit kytku mile nebo RAM pro tvuj
pocitac.
- jedes na vylet lodi jen proto abys mohl nahlednout do strojovny.
- prodavac v obchode s pocitaci neni schopen zodpovedet zadnou ze tvych
otazek.
- na leteckem dni vis presne jak rychle padaji parasutisti.
- jsi koupil sve zene/pritelkyni k narozeninam CD-Rom drive nebo Palm pilot.
- jsi schopny citovat slovo za slovem kterykoliv dil Monty Python.
- dokazes psat na pocitaci rychlosti 70 slov za minutu, ale nedokazes
precist vlastni rukopis.
- pochvalis sve zene uces a pouzijes pritom slovo paralelni nebo konkavni.
- v Disneylandu te nejvice zajima jak vytvareji efekty.
- z rozbitych elektropotrebicu vzdy schovavas privodni snuru pro dalsi
pouziti.
- mas vice pratel na internetu nez okolo sebe.
- dokazes z hlavy vysvetlit co znamena zkratka http:/
- se tesis na vanoce, ze budes detem skladat hracky.
- musis menit i dobra technicka reseni.
- jsi utratil vice penez za kalkulacku nez za zasnubni prsten.
- jeste porad mas logaritmicke pravitko a vis jak jej pouzivat.
- lide okolo tebe zacnou zivat a ty si myslis ze jsou proste nevyspali.
- je tvuj laptop drazsi nez tve auto.
- tvoje zena nema nejmensi tuseni, cim se zabyvas v praci.
- sis uz davno spocital, kolik vydelas kazdou sekundu pracovni doby.
- jsi jiz zkusil opravit radio, ktere te stalo 20 korun. -- "We are
Microsoft. Resistance is futile. Open your source code and prepare for
assimilation."
eM
--
,:||:,:||:, Marek Andricik iRC Nevedko PhD student 70|'0109 |'037
+:||<>||:><||:- andricik(zv)oko.fei.tuke.sk http://oko.fei.tuke.sk/~andricik
':||:':||:' ...fIdelIty.paradoX..thE.bIgger.hearT.thE.leSSer.spaCE.iN.IT...
[//.3]
statistika prenesenych bytes na sitovych kartach
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 25.10.1999 16:17:02
On Thu, 25 Nov 1999, Radoslav [iso-8859-1] Krehl�k wrote:
>
> Hi all,
>
> tohle bych si rad naprogramoval, hlavne sam pro sebe. Mam na mysli presne
> to co umi treba novel v monitor.nlm, ukazat kolik bajtiku preteklo pres kterou
> sitovou karticku, vlastne bych takovy monitor rovnou rad napsal. Popr pokud
> nekdo vite o softu, ktery jiz tohle dela...tnx
Ahoj,
nevim, jestli je to presno ono, ale i tak je to zajimavy programek:
http://www.hageltech.com/dumeter/
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
Posunuti mysi
[*] V�clav Muchna <apscomp(zv)seznam(tec)cz> - 25.10.1999 16:36:16
Hello,
nevite nekdo nahodou, jakym zpusem hnu programove mysi? Zkratka a dobre potrebuju posunout mys
na urcite misto. (Nemyslim zapnout si automaticke posunuti mysi nad defaultni button - to je
cestina :-)
Zkousel jsem neco takoveho:
// Neni zmacknuty zadny tlacitko, ni sift, ctrl a pod
// druha nula: loWord - x-axe, hiWord - y-axe - premisiti krysu na
// do leva nahoru
SendMessage(GetCapture(), WM_MOUSEMOVE, 0, 0);
Ale nefunguje to...
Vasek Muchna
--
Vaclav Muchna
APS computer
sekce internetova/intranetova podnikova reseni
tel. +420 603 475653
email: apscomp(zv)seznam(tec)cz
muchna(zv)apscomputer(tec)cz
APS computer
Frantiska divise 105
Praha 10 - Uhrineves
tel.: 02/677 10 368
verejny pgp klic: http://www.apscomputer(tec)cz/vasek/pubring.html
mys a Stringgrid
[*] Michal Hlav�� - 25.10.1999 17:27:59
Zdravim,
tento dotaz som uz raz pisal, ale odpovede neboli az take dobre. Tak sa
pytam este raz. Potreboval by som, aby sa mi vypol veskery pohyb mysi v
StringGride. To znamena, ze nechcem vypinat CanSelect, chcem len osetrit kde
bolo kliknute a to je vsetko. To mi zabezpeci OnMouseCell. Len aby sami tam
nepresunul kurzor. Mam nadefinovane procedure hore, dole, doprava, dolava,
ktore sa priamo vo vnutri o pohyb staraju. Pri stisku klavesy som to
vyriesil tym, ze som na koniec OnKeyDown dal Key:=0;
Vdaka
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Select ... where
[*] Ing. Jaroslav Ske��k - 25.10.1999 18:06:10
Chyba je jiz v v prikazu Format, kde chybi pravy apostrof z %s
Jestlize je OSCISLO definovane jako String, pak jej musis vlozit
do uvozovek. Povoleny jsou jak apostrofy, tak i uvozovky.
Proto ti to v komponente funguje. Jenomze v prikazu Format
jsou apostrofy odcerpany na syntaxi prikazu a retezec uz zustane "holy"
Spravne je to tedy napr. takto:
Format('where OSCISLO = "%s" ',[' '])
V tomto konkretnim pripade vsak prikaz Format vidim jako nadbytecny
Muzes prece napsat:
SQL.Add('where OSCISLO = " " and KONTIME <> " " ');
V poslednim radku, kde by pouziti Format melo smysl, jsi ho ovsem
zase obesel. Mohlo by to byt takto:
SQL.Add(Format('and ZAPIS >= "%s" ',[_od]);
za predpokladu, ze _od je typu String nebo
SQL.Add(Format('and ZAPIS >= "%s" ',[DateToStr(_od)]);
kdyby _od bylo typu Date
Jaro
> Ahojte,
> prosim, nevite proc mi nasledujici select vyhazuje chybu "Invalid use of
> keyword Token: = Line number 2" ?
>
> SQL.Add('select * from pripady1 ');
> SQL.Add(Format('where OSCISLO = %s,[' ']));
> SQL.Add(Format('and KONTIME<>%s,[' ']);
> SQL.Add('and ZAPIS>='+_od);
>
> Pritom kdyz napisu primo v komponente Query do property SQL where
OSCISLO='
> ' , tak select bezproblemu projde.
>
> Petr Sadovsky
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
>Too many record lock on the table
[*] Ing. Jaroslav �ke��k - 25.10.1999 18:10:54
Musis napsat trochu vice.
1. O jakou databazi se jedna.
2. Jak vypada ten prikaz pro aktualizaci.
3. Pouzivas ho v ramci transakce?
4. Neni mozne pouzit ulozenou proceduru?
5. a pod.
Jinak tezko nekdo muze reagovat a pomoci ti.
Jaro
Hi,
W95, D3, Rx2.60, Paradox
Jiz jsem se na %sub% jednou ptal, lec nikdo nezareagoval. Takze to zkusim znova.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco jineho? Uz si rvu zbytky vlasu.
Sroub
OT Re: Instalace *.DPK
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.10.1999 18:43:30
Mal� Dobromil wrote:
> >Murphyho z�kony:
> >1. Selhaly-li vsechny pokusy, je nacase si precist navod.
> >2. Nenamahej se, vem si vetsi kladivo.
>
> 3. A kdyz se to rozbile, neni ceho litovat.
> Slo o vadnou soucastku, kterou by casem bylo
> treba tak jako tak vymenit.
Nechte uz tech OT a bezte carovat - eh - programovat. :-)))
Kdyz uz jsem u toho carovani, dostal jsem na recenzi Baltika (jiste
znate). Je psany v Delphi a na mem pocitaci se obcas chova divne.
Nekdy se pri startu uvodni obrazek "rozmazne", tedy na miste
textu se objevi vodorovne srafovani. Pak se zpravidla vymeni i
indexy obrazku tlacitek (tedy takto nazyvam objekty, na kterych
jsou obrazky s prikazy Baltika), resp. na tlacitkach jsou jine
obrazky nez by mely byt. Potkal jste uz nekdo podobnou zavadu?
Je zajimave, ze na druhem pocitaci se to chova dobre.
Graficka karta je ATI Rage 128.
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
BDE a GUID
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.10.1999 18:43:30
Robert Kindl wrote:
> Pouzivame to pri rucni replikaci nekterych tabulek pri offline
> propojeni. Jedeme pres BDE 5.10 na MSSQL 7SP1 pres
> DBLIB (NTWDBLIB.DLL) 7.00.694 a Delphi 3.02.
> Pri pouziti v TQuery pro Open to vytvari TBytesField
> pro Execute TParam typu ftBytes.
Zkousel jsem to pres SQL Explorer a TTable. Dal me to uz
nebavilo. :-)
......
Jo, pravda, TQuery to bere.
> PS.
> Co je "seredne vynadalo"?
> Kdyz mi takovou vetu rekne nas zakaznik tak reknu:
> Normalni, necte chybove hlasky, jen macka OK,
> at to rika "Format C:" nebo "Vyhral jsi $1000000".
> Ale kdyz takovou vec napises i ty :-)))
:-))) Invalid field type.
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
Posunuti mysi
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 25.10.1999 18:59:23
From: V�clav Muchna <apscomp(zv)seznam(tec)cz>> nevite nekdo nahodou, jakym zpusem hnu programove mysi? Zkratka a dobre
potrebuju posunout mys
>na urcite misto. (Nemyslim zapnout si automaticke posunuti mysi nad
defaultni button - to je
>cestina :-)
>
> Zkousel jsem neco takoveho:
>
> // Neni zmacknuty zadny tlacitko, ni sift, ctrl a pod
> // druha nula: loWord - x-axe, hiWord - y-axe - premisiti krysu na
> // do leva nahoru
> SendMessage(GetCapture(), WM_MOUSEMOVE, 0, 0);
>
> Ale nefunguje to...
>
> Vasek Muchna
kukni TMOUSE v delphi helpe tam to urcite je lebo som to onoho casu pouzil
Posunuti mysi
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 25.10.1999 19:00:19
From: V�clav Muchna <apscomp(zv)seznam(tec)cz>> nevite nekdo nahodou, jakym zpusem hnu programove mysi? Zkratka a dobre
potrebuju posunout mys
>na urcite misto. (Nemyslim zapnout si automaticke posunuti mysi nad
defaultni button - to je
>cestina :-)
>
> Zkousel jsem neco takoveho:
>
> // Neni zmacknuty zadny tlacitko, ni sift, ctrl a pod
> // druha nula: loWord - x-axe, hiWord - y-axe - premisiti krysu na
> // do leva nahoru
> SendMessage(GetCapture(), WM_MOUSEMOVE, 0, 0);
>
> Ale nefunguje to...
>
> Vasek Muchna
kukni TMOUSE v delphi helpe tam to urcite je lebo som to onoho casu pouzil
(myslim daco ako CURSORPOS)
BDE a MDB databaze...
[*] Erik Salaj <winsoft(zv)napri.sk> - 25.10.1999 19:56:41
> Jenze pri pokusu se na tabulku dostat to na mne vyhodi hlasku
> "Couldn't lock file." Vypada to podle vseho, ze se neco snazi u
> MDB souboru vytvorit jakysi Lockfile, i kdyz se tabulku pochpitelne
> snazim otevrit jako read-only.
Je mozne len nastavit exkluzivny pristup k Access database (vtedy
sa lock subor nevytvara). Nie je mozne nastavit aby sa lock subor
vytvarat v inom adresari ako je databaza. Neviem ale, ci BDE podporuje
exkluzivny pristup.
Erik Salaj
Posunuti mysi
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 25.10.1999 19:59:08
Ahoj,
koukni se do WIN32.hlp na
BOOL SetCursorPos(
int X, // horizontal position
int Y // vertical position
);
Petr Motlicek
Font Dialog
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 25.10.1999 22:30:47
>Dobry den vsem,
> pouzivam D4 Standard a W95 OSR2
>
>Mam problem s nastavenim pisma z FontDialogu. Otevru Dialog, nastavim si
>pismo, barvu, styl a stript.
>Pote v programu osetrim, aby to byla pravda:
>MojeKomponenta.Font := FontDialog.Font;
>MojeKomponenta.Font.Color := FontDialog.Font.Color;
>.....
>
>Ale nevim, jak osetrit, aby nastaveny stredoevropsky script byl
>stredoevropsky a ne zapadoevropsky (default).
Spravne by to melo byt:
MojeKomponenta.Font.Assign(FontDialog.Font);
a nic vic.
Radim Kunz
>Dekuji
>STRAKA Josef
>zacinajici amatersky programator
>mail: strakaj(zv)hba(tec)czn(tec)cz
>www: http://www.mujweb(tec)cz/www/strakaj/index.htm
statistika prenesenych bytes na sitovych kartach
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 25.10.1999 13:34:05 -0800
Hi all,
tohle bych si rad naprogramoval, hlavne sam pro sebe. Mam na mysli presne
to co umi treba novel v monitor.nlm, ukazat kolik bajtiku preteklo pres kterou
sitovou karticku, vlastne bych takovy monitor rovnou rad napsal. Popr pokud
nekdo vite o softu, ktery jiz tohle dela...tnx
Heretic-X, SOFTWARE specialist,<www.nt(tec)cz>OT Re: Instalace *.DPK
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:36:37
Zbysek Hlinka wrote:
> Nechte uz tech OT a bezte carovat - eh - programovat. :-)))
No, nekdy se programovani tomu carovani dost podoba :-))
> Kdyz uz jsem u toho carovani, dostal jsem na recenzi Baltika (jiste
> znate). Je psany v Delphi a na mem pocitaci se obcas chova divne.
> Nekdy se pri startu uvodni obrazek "rozmazne", tedy na miste (........)
> Graficka karta je ATI Rage 128.
Stahni si aktualizovane drivery pro tu kartu, pokud jsi tak jeste neudelal.
Ty ktere se dodavaji s kartou jsou vetsinou dost stare.
http://support.atitech.ca/drivers/rage128.html
--
Petr Vones, amatersky programator
IMAGEHLP.DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:36:54
Petr.Motlicek(zv)bcbrno(tec)cz wrote:
> prosim o popis %subj%. Je to soucast systemu
> (windows), ci kde to sehnat, a co obsahuje za rutiny ?
Ahoj,
Je soucasti systemu, popis najdes ve Win32API helpu nebo na MSDN. Priklad
pouziti najdes v utilite ToolHelpViewer (PvExePEView.pas), viz odpoved na
zpravu "Dll"
--
Petr Vones, amatersky programator
Odstraneni retezce z binarniho souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:36:29
Krayzel Libor wrote:
>
> Potrebuji z binarniho souboru odstranit nekolikrat se vyskytnuvsi stejny
> retezec. Ovsem nevim jak na to.
Ahoj,
napriklad tak, ze si soubor namapujes do pameti (viz predchozi diskuze).
Tak jak v nem budes nachazet ty retezce, budes ukladat po castech bloky
toho souboru do souboru noveho.
--
Petr Vones, amatersky programator
pou�it� QRPreview
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:36:45
Stanislav �ern� wrote:
>
> Na tom FTP jsem to nenasel.
Ahoj,
Promin, je to tady, on je tam ted pridan adresar pro D5.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Other/DelphiDays99_QuickReport.zip
--
Petr Vones, amatersky programator
Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:36:20
Pavel Cisar wrote:
> From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> > Da, rozebranim PE EXE formatu. Neco takoveho jsem delal v takove jedne
> > utilite. Posilal jsem to Pavlu Cisarovi, ze to prilozi do Nexu, ale zatim
> > to tam nejak neni.
>
> No jo, porad. Mam jenom dve ruce a den ma jen 24 hodin :o) Pokud bude zajem,
> muzu to poslat na privatni mail (kam jsem to jenom... :o)
Jasne, nic se nedeje :-), je to ted ke stazeni tady (urceno pro D5):
http://www.volweb(tec)cz/pvones/download/ToolHelpViewer.zip
http://www.volweb(tec)cz/pvones/download/PvComponents.zip
popripade instalace hotove aplikace:
http://www.volweb(tec)cz/pvones/download/ToolHelpViewerInstall.zip
--
Petr Vones, amatersky programator
En/Sk(Cz) klavesnica
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:37:01
Miso wrote:
>
> Prosil by som o radu, ako odchytit v aplikacii, ktora klavesnica je prave
> aktivna aj po viacnasobnom prepnuti klavesnice, t.j aby som mal vysledok
> vzdy zhodny so zobrazenim En/Sk(Cz) klavesnice v ovladacej liste. D3, W98
Ahoj,
Priklad najdes tady:
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Dec&den=15&first=31&soubor=dlfaaabg.htm
--
Petr Vones, amatersky programator
mys a Stringgrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:37:05
Michal Hlav�� wrote:
>
> Zdravim,
> tento dotaz som uz raz pisal, ale odpovede neboli az take dobre. Tak sa
> pytam este raz. Potreboval by som, aby sa mi vypol veskery pohyb mysi v
> StringGride. To znamena, ze nechcem vypinat CanSelect, chcem len osetrit kde
> bolo kliknute a to je vsetko. To mi zabezpeci OnMouseCell. Len aby sami tam
> nepresunul kurzor. Mam nadefinovane procedure hore, dole, doprava, dolava,
> ktore sa priamo vo vnutri o pohyb staraju. Pri stisku klavesy som to
> vyriesil tym, ze som na koniec OnKeyDown dal Key:=0;
Ahoj,
Co treba takhle:
type
TXYStringGrid = class(TStringGrid)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
end;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TXYStringGrid }
procedure TXYStringGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
if not (csDesigning in ComponentState) and CanFocus then
begin
SetFocus;
if not Focused then MouseCapture := False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TXYStringGrid.Create(Self) do
Parent := Self;
end;
--
Petr Vones, amatersky programator
Posunuti mysi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.10.1999 22:37:09
V�clav Muchna wrote:
>
> Hello,
>
> nevite nekdo nahodou, jakym zpusem hnu programove mysi? Zkratka a dobre
> potrebuju posunout mys na urcite misto.
Ahoj,
Ve VCL mas globalni objekt Mouse (TMouse) a ten ma vlastnost CursorPos.
Jina moznost je to resit primo API funkci SetCursorPos
--
Petr Vones, amatersky programator
Export dat z M$ Outlook expres
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 26.10.1999 00:05:29
Panove, je nejaky rozumny zpusob, jak dostat postu ven z Outlook expresu do
nejakeho zpracovatelneho formatu ?
Jedine, co jsem v menu nasel, je export do ms Outlooku nebo Exchange :-(((
Diky, Mirek
Bitmapa a DBImage
[*] Vokounek <vokoun(zv)datis.cdrail(tec)cz> - 26.10.1999 05:44:22
Ahoj
Do mdb souboru vkladam bmp soubor pres Miscrosoft Access jako objekt...
Image Bitmap !!!
By ZVok
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, November 24, 1999 11:56 PM
Subject: Re: Bitmapa a DBImage
> > Vokounek wrote:
> >
> > Zdravim
> > Prosim, jaky typ obrazku (bmp) mohu vlozit do mdb souboru (jako BLOB),
> > abych
> > mohl k zobrazovani pouzit komponentu DBImage ?? Ted tam vkladam Windows
> > Bitmap (16color) a pri nacitani mi to hlasi 'Bitmap image is not valid'
!!
>
> Ahoj,
>
> A jak tam vkladas tu bitmapu ? Ono ve VCL predpokladaji na zacatku nejakou
> hlavicku kterou si tam pridavaji. Viz metody TBlobField.LoadFromBitmap a
> TBlobField.SaveToBitmap.
>
> --
>
> Petr Vones, amatersky programator
>
>Off:FinePrint
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 26.10.1999 06:09:19
Ahoj
Nedavno tu probehla zprava o tiskovem nastroji FinePrint. K cemu je to
dobre, pripadne jak se to pouziva?
Diky
Jaro B.downgrade
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.10.1999 06:11:19
----- P�vodn� zpr�va -----
Od: Martin sor
ry za OT
da sa nejako preinstalovat IE 4 na IE 5 ? Pot
rebujem Outlook Express so zdielanymi slozkami, OE 5 stra
sne blbne , maze slozky.
OE5 mam na 2 pocitacich s W98
s W2000 a nemuzu si ani v nejmensim stezovat.
Jinak co
ti brani vyexportovat si obsah slozek do formatu OE4, to
same muzes udelat i s ucty
(abys je nemusel pak nastavov
at), odinstaluj OE5 a nainstaluj si OE4 a vse naimportuj
zpet.
===============================
ing. Jan Fiala
jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============
================
Compilation DateTime aplikace
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 26.10.1999 06:12:23
Ahoj,
nevite, prosim, nekdo, jak vkladat do aplikace primo datum kompilace;
pripadne neexistuje-li nejaky komponent (pro D2, SRC vitano)?
Dekuji
Jaro B.Nastaveni CodePage u Pdx tabulky
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 26.10.1999 06:57:28
Nazdarek,
mam takovy problem. Chci pomoci funkce "DbiSetProp" nastavit kodovou stranku paradoxove tabulky, ale nevim jaky tam mam zadat druhy parametr. Teda tu funkci mam zatim takhle:
Check(DbiSetProp(hDBIObj(Destination.Handle), ????, SProps.iCodePage))
^^^^^^
a nevim, co dat misto tech otazniku. Poradi mi nekdo??
Mirek
D3 Prof, win95 osr2
Compilation DateTime aplikace
[*] Marcel Langr <ivar(zv)ivar(tec)cz> - 26.10.1999 07:03:40
Delphi Compilation Date and Time Expert
http://stonebirds.8m.com
Marcel Langr
mlangr(zv)ivar(tec)cz
> nevite, prosim, nekdo, jak vkladat do aplikace primo datum kompilace;
> pripadne neexistuje-li nejaky komponent (pro D2, SRC vitano)?
> Dekuji
> Jaro B.
>
>
FinePrint
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 26.10.1999 07:19:10
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
> Ahoj
> Nedavno tu probehla zprava o tiskovem nastroji FinePrint. K cemu je to
> dobre, pripadne jak se to pouziva?
Je to formatovac vystupu na tiskarnu. Z pohledu operacniho
systemu se to tvari jako tiskarna, lze na ni posilat tisky.
FinePrint formatuje tisk podle nastavenych parametru:
umi zmensovat a tisknout vice stranek na jeden papir,
doplnovat texty pro zahlavi, zapati, text pres tisknuty
obsah atd (dal z hlavy nevim). Potom tyto pripravene stranky
posle na skutecnou tiskarnu.
Nekdy loni jsem to zkousel a vypada to celkem dobre. Chova se to dobre
napr. s MS Office - i ctyrnasobne zmenseni bylo dobre citelne
a tisklo to dobre. Horsi to bylo s GhostView, kdyz jsem chtel tisknout
PostScript. GhostScript to posila na tiskarnu jako bitovou mapu,
a tak to trvalo hrozne dlouho (vznikaly nekolikamegabajtove soubory)
a visledek nebyl moc pekny.
Je to shareware, nevim, kde jsou instalacky. Mam dojem, ze to bylo
na nejakem Chip CD nebo Computer World CD. A myslim, ze to je
i na www.download.com
Jura
downgrade
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 26.10.1999 07:26:47
-----P�vodn� zpr�va-----
Od: Martin [mailto:geoplan(zv)pp.sinet.sk]
Odesl�no: 25. listopadu 1999 15:45
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: downgrade
sorry za OT
da sa nejako preinstalovat IE 4 na IE 5 ? Potrebujem Outlook Express so
zdielanymi slozkami, OE 5 strasne blbne , maze slozky.
Obavam se, ze budes muset zacit pekne od zacatku (format c: atd).
IE je po instalaci soucast systemu a kazda zmena je vysoce rizikova.
IE nejde odinstalovat. Videl jsem jeden pokus - Windows potom zacaly hlasit
pri pokusu
spustit nejaky *.exe: "s priponou exe neni asociovan zadny program. Prejete
si vyhledat ...(atd, asi to znate)?".
Ja jsem zkousel preinstalovat pokazenou instalaci IE4 (zase IE4) a po "IE
provadi optimalizaci systemu"
sla masina totalne do kolen a musel jsem zacit od format c:
Jura
Rozlisenie bitmapy
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 26.10.1999 07:40:41
no, tu je riesenie. je sice divoko riesene, ale ucel plni. kedze nie som v
delphi profesional, bol by som rad keby mal niekto pripomienky k tomuto
rieseniu a upozornil ma na chyby, pripadne nedostatky. vsimol som si ale, ze
niektore graficke programy neukladaju rozlisenie do suboru ( konkr. paint shop
pro 6). bol som zvedavy, ci som nieco zvoral ja, alebo nie. po natiahnuti do
corela si corel pre takuto bitmapu automaticky sam nastavil rozlisenie na
hodnoty podla funkcie PixelsPerInch. takze, asi by to chcelo este nejaky
testik na koniec.
funkcia getbmpdpi vrati DPI bitmapy v pixels/inch
-------------------------
unit XBmp;
interface
uses Graphics, Windows;
type
TBMPDPI = record
biXDPI : integer;
biYDPI : integer;
end;
function GetBMPDPI( APicture: TPicture): TBMPDPI;
implementation
function getBMPDPI( APicture: TPicture): TBMPDPI;
var
ImageSize: DWORD;
InfoSize: DWORD;
Info: PBitmapInfo;
Image: Pointer;
begin
GetDIBSizes( APicture.Bitmap.Handle, InfoSize, ImageSize);
GetMem( Info, InfoSize);
GetMem( Image, ImageSize);
getDIB( APicture.Bitmap.Handle, APicture.Bitmap.Palette, Info^, Image^);
FreeMem( Image, Imagesize);
FreeMem( Info, Infosize);
result.biXDPI := Trunc( Info^.bmiHeader.biXPelsPerMeter * 2.54) div 100;
result.biYDPI := Trunc( Info^.bmiHeader.biYPelsPerMeter * 2.54) div 100;
end;
end.
--------------------------------------
btw. tiez mate dnes taky blby den? rano som nenastartoval vdaka zabudnutemu
vypnutiu radia s naslednym celonocnym prehravanim kompaktov v zasobniku ;o)
FinePrint
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 26.10.1999 07:55:53
A dokaze tisknout stranky v poradi jako pro brozuru (via Ventura)?
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 26. listopadu 1999 7:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: FinePrint
>
> downgrade
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 26.10.1999 07:59:16
Cha cha, nemaze, jen ztrati informaci, ze je tam ma.
Reseni c.1: zalohuj si folders.dbx
Reseni c.2: Pridani ztraceneho adresare (napr. Dodavatele):
- v adresari Outlook najit Dodavatele.dbx a presunout (nikoliv
kopie!) jinam
- pustit Outlook a vytvorit adresar Dodavatele
- do tohoto nove vytvoreneho adresare presunout alespon na chvili
nejaky mail (treba ze smazane posty)
- zavrit Outlook
- presunout Dodavatele zpet do adresare Outlooku a jeho vytvoreny
timto smazat
- po spusteni Outlooku budou data zpet.
Takto lze obnovit i cely strom folderu. Reseni c.1 mi prijde jednodussi
Mam pocit, ze navrat k IE4 je mozny jen za cenu reinstalace Windows a
IE4 na cisty system. Ovsem co udelas s daty z Outlooku 5? Outlook 4 je
ROZHODNE neumi importovat :-))))
Mira
----- P�vodn� zpr�va -----
Od: Martin
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 25. listopadu 1999 15:44
P�edm�t: OT: downgrade
sorry za OT
da sa nejako preinstalovat IE 4 na IE 5 ? Potrebujem Outlook Express so
zdielanymi slozkami, OE 5 strasne blbne , maze slozky.
Martin
vyhodnoceni SQL dotazu
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ov 1999 08:20:36
Co takhle Query.IsEmpty a vysledek je boolean. :-)
M&B
>>> MUS.TC."SMTP: SICHTA Daniel #daniel.sichta(zv)za.asset.sk" 11/25 3:42 >>>
Dobry den,
programuji jednoduchou databazovou aplikaci a nevim si rady s
vyhodnocenim
SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE
(TQuery ->
TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne
tabulky
urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan
Novak".
Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve
sloupci name
nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten
vysledek
co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True
nebo False,
ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za
pripadnou radu
dekuji.
Mirek Dolecek
Skus to trebars takto : SELECT COUNT(*) FROM data.db WHERE name
= � Jan Novak�
) daniel.sichta(zv)za.asset.sk
OT Re: file of type
[*] Ren� Otisk - 26.10.1999 08:26:24
Ne pomrdanc a poblivku. Ale primerene!!!
Je to proto, aby se mohlo presne vycislit, kolik bytu bude ten typ pri
zapisu zabirat. Protoze string je dynamicky, neni to mozne a proto se
musi deklarovat pevny pocet bytu.
> Jo, tady byl zakapany pes. [Petr Brant] Kouzelny preklep. Pouzivas na
> to citron? :-))))) Dik. Muzu se jeste zeptat, proc ten string musi
> byt omezeny poctem znaku (jen abych se poucil)?
statistika prenesenych bytes na sitovych kartach
[*] Iko <iko(zv)kamarad(tec)cz> - 26.10.1999 08:28:34
Prenesene bajty sa daju zistit v registroch.
iko
iko(zv)kamarad(tec)cz
FinePrint
[*] Mik Radim <mik(zv)oce(tec)cz> - 26.10.1999 08:35:50
Ano dokaze, ale nejde bohuzel tento tisk rozsadit do sad. Tzn. pokud mam 200
strankovou predlohu, nemohu na jeden pruchod tiskarnou rict, ze chci udelat
publikaci po 8 listech a vice jak 8 listu papiru se uz hrozne tezko ohyba.
---------------------------------------
Radim Mik, SyCo DPS
> A dokaze tisknout stranky v poradi jako pro brozuru (via Ventura)?
> Jaro B.
>
> > P�edm�t: RE: FinePrint
> >
> >
> dve databaze v SQL
[*] k.machac(zv)iol(tec)cz - 26.10.1999 8:52:48
>Preji vsem pekneho dne,
>
>na slevani tabulek (nebo v horsim pripade databazi) si dejte
>ohromny pozor. UNION je sice krasny, ale pomuze pouze nekdy.
>Velmi zalezi na konkretnim pripade.
>
>Predstavte si dve tabulky stejne struktury, ale jinych dat. Jednu
>provozujete na Slovensku a jinou tu v Ceske Republice.
>
> ID, Zbozi, Cena
>
>UNIONem sice tabulky date dohromady, ale smichate slovenske
>ceny s ceskymi, coz treba na bernaku neobhajite.
>
>Proces integrace dat je (jak tu nekdo psal) slozity proces, ktery
>probiha (velmi strucne receno) ve dvou fazich.
>
>1) rozsireni primarniho klice o sloupecek puvodu
>2) postupne odstranovani sloupecku puvodu
>
>Neco byste mohli najit v knihach o datovych skladech.
>
>Slavek
>
>
>-------------------------------------------------
>http://atrey.karlin.mff.cuni(tec)cz/~rk
>-------------------------------------------------
Dobry den
Mate pravdu, ze spojenim tabulek muze dojit k velkym problemum. V
tomto pripade se vsak jedna o tabulku "zivych dat" a tabulku "archivovanych
dat", takze zde nedochazi k zadnym komplikacim.
Nicmene se to nakonec podarilo pomoci prikazu UNION, tak jak mi radidili
vsichni zucastneni, ale bylo nutne vyjmenovat vsechna pole jednolive, takze
ne hvezdicka pro vyber vsech poli.
Jeste jednou dekuji vsem za radu.
Karel Machac
mailto:KMachac(zv)seznam(tec)cz
Webmaster http://web.iol(tec)cz/odpich
vyhodnoceni SQL dotazu
[*] Ren� Otisk - 26.10.1999 09:03:56
Hi,
Ja to delam takhle
FJe_Tam: boolean;
FJe_Tam := DoplnSQL('SELECT Jmeno FROM Table1 WHERE UPPER(Jmeno) Like
UPPER('Jan %'), Query1, False) <> ''
function DoplnSQL(SQLDotaz: string; Kvery: TQuery; Numero: boolean): string;
begin
with Kvery do
begin
Active := False;
SQL.Clear;
SQL.Add(SQLDotaz);
try
if UpCase(SQLDotaz[1]) = 'S' then {rozliseni, jestli chci open
(selecty) nebo execSQL (update, insert, delete)}
begin
Active := True;
if Numero then Result := FloatToStr(Kvery.Fields[0].AsFloat)
else Result := Kvery.Fields[0].AsString;
end
else
ExecSQL;
except
on E: Exception do
Zapis(E.Message, Naklad.AUser + ' - ' + SQLDotaz); file://osetreni
vyjimek
end;
end;
end;
SQLdotaz max 255 znaku, Numero mi osetruje 0 vs. prazdna hodnota.
Doufam ze tam nemam chybu, kdyz tak se ozvi...
Sroub
> programuji jednoduchou databazovou aplikaci a nevim si rady s vyhodnocenim
> SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres BDE (TQuery ->
> TDataSource) a potrebuji zjistit, jestli mam ve sloupecku jedne tabulky
> urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE name="Jan Novak".
> Snazim se tedy zjisiti jestli uz mam v tabulce data.db ve sloupci name
> nekde polozku Jan Novak. Nevim, ale jak z toho dotazu dostat ten vysledek
> co potrebuji. Pro me idelani by bylo, kdyby z toho lezlo True nebo False,
> ale jak na to, kdyz to vraci nejaky kurzor do tabulky. Za pripadnou radu
> dekuji.
file of type
[*] Ren� Otisk - 26.10.1999 09:10:42
Hi,
Asi i v Delphi3, neb ji (Delfinu) mam ve verzi 3 a po definovani delky stringu jiz beha jak potrefena.
Dik
Sroub
----- Original Message -----
From: Tomas Andrasko
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, November 25, 1999 2:33 PM
Subject: Re: file of type
String je v Delphi 4 a vyse, pokud neni direktivou uvedeno jinak, null-terminated a tudiz by prekladac nevedel, jak je vlastne dlouhy, coz vedet musi.
Tomas Andrasko
A.S.E.I. spol. s r.o.
pobocka Ostrava
Ostrava
e-mail : tomas.andrasko(zv)asei(tec)cz
----- P�vodn� zpr�va -----
Od: Ren� Otisk
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 25. listopadu 1999 12:33
P�edm�t: Re: file of type
Jo, tady byl zakapany pes. Dik. Muzu se jeste zeptat, proc ten string musi byt omezeny poctem znaku (jen abych se poucil)?
Sroub
----- Original Message -----
From: Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, November 25, 1999 11:20 AM
Subject: Re: file of type
U typu string je treba doplnit pocet znaku a staci napsat G: File of TGlobalProperty:
type
TGlobalProperty = record
FForm: string[255];
FComponent: string[10];
FProperty: string[20];
end;
var
G: file of TGlobalProperty;
Hi,
Nemuzu si zaboha vzpomenou na to, jak nadefinovat File of Record
Zatim to mam takto:
type
TGlobalProperty = record
FForm: string;
FComponent: string;
FProperty: string;
end;
var
GlobalProperty: TGlobalProperty;
G: file of GlobalProperty;
Pomozte prosim
Sroub
Posunuti mysi
[*] Foldyna Jir� <jiri.f(zv)avizo(tec)cz> - 26.10.1999 09:16:18
> nevite nekdo nahodou, jakym zpusem hnu programove mysi?
> Zkratka a dobre potrebuju posunout mys
> na urcite misto. (Nemyslim zapnout si automaticke posunuti
> mysi nad defaultni button - to je
> cestina :-)
>
Ahoj,
zkus tohle (x a y jsou souradnice v ramci desktopu - [0,0] = levy horni roh,
[$FFFF, $FFFF] pravy dolni roh).
Pridal jsem i klikaci procedury.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
(**********************************************************************)
(* XYMove *)
(**********************************************************************)
procedure XYMove(x, y : integer);
var
dwFlags, dx, dy, dwData, dwEtraInfo : integer;
begin
dwFlags := MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE;
dx := x;
dy := y;
dwData := 0;
dwEtraInfo := 0;
mouse_event(dwFlags, dx, dy, dwData, dwEtraInfo);
end;
(**********************************************************************)
(* Click *)
(**********************************************************************)
procedure Click;
var
dwFlags, dx, dy, dwData, dwEtraInfo : integer;
begin
dwFlags := MOUSEEVENTF_LEFTDOWN;
dx := 0;
dy := 0;
dwData := 0;
dwEtraInfo := 0;
mouse_event(dwFlags, dx, dy, dwData, dwEtraInfo);
dwFlags := MOUSEEVENTF_LEFTUP;
dx := 0;
dy := 0;
dwData := 0;
dwEtraInfo := 0;
mouse_event(dwFlags, dx, dy, dwData, dwEtraInfo);
end;
(**********************************************************************)
(* XYClick *)
(**********************************************************************)
procedure XYClick(x, y : integer);
begin
XYMove(x, y);
Click;
end;
(**********************************************************************)
(* DblClick *)
(**********************************************************************)
procedure DblClick;
begin
Click;
Click;
end;
(**********************************************************************)
(* XYDblClick *)
(**********************************************************************)
procedure XYDblClick(x, y : integer);
begin
XYMove(x, y);
Click;
Click;
end;Too many record lock on the table
[*] Ren� Otisk - 26.10.1999 09:17:27
Vsak to tam vsecko je
Musis napsat trochu vice.
1. O jakou databazi se jedna. ......Paradox pres BDE
2. Jak vypada ten prikaz pro aktualizaci. ......UPDATE Table1 A SET Field1 = (SELECT Field2 FROM Table2 B WHERE A.Field3 = B.Field3)
3. Pouzivas ho v ramci transakce? .........Ano
4. Neni mozne pouzit ulozenou proceduru? ..........v Paradoxu to jde20
5. a pod.
Jinak tezko nekdo muze reagovat a pomoci ti.
Jaro
Hi,
W95, D3, Rx2.60, Paradox
Jiz jsem se na %sub% jednou ptal, lec nikdo nezareagoval. Takze to zkusim znova.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco jineho? Uz si rvu zbytky vlasu.
Sroub
FinePrint
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 26.10.1999 09:18:08
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
> Odesl�no: 26. listopadu 1999 7:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: FinePrint
>
>
> A dokaze tisknout stranky v poradi jako pro brozuru (via Ventura)?
Neznam Venturu.
FinePrint ma tiskove rezimy 1, 2, 4, 8 (stranek) a Booklet.
U tech rezimu 4 a 8 lze volit poradi, jak maji byt stranky na papire
rozmisteny,
ale myslim, ze je to jenom razeni po radcich nebo po sloupcich.
Booklet je dvoustrankovy rezim a nema poradi stranek, jake bych si pro
pbrozuru
predstavoval. Rekl bych, ze by to melo byt neco jako (32 - 1, 2 - 31, 30 -
3, ...)
On tiskne (1 - 2, 3 - 4). Vic se mi rychle nepodarilo zjistit (ma ho
nainstalovan
kolega a je uz nevrly). Ovsem: ma pouze sharewarovou verzi a je to verze
nejmene
1 rok stara: 3.11b. Je mozne, ze v plne verzi a v novejsi verzi je to uz
jinak.
Jura
Font Dialog
[*] Ren� Otisk - 26.10.1999 09:26:04
Hi,
To by melo jit pres charset
Sroub > Dobry den vsem,
> pouzivam D4 Standard a W95 OSR2
>
> Mam problem s nastavenim pisma z FontDialogu. Otevru Dialog, nastavim si
> pismo, barvu, styl a stript.
> Pote v programu osetrim, aby to byla pravda:
> MojeKomponenta.Font := FontDialog.Font;
> MojeKomponenta.Font.Color := FontDialog.Font.Color;
> .....
>
> Ale nevim, jak osetrit, aby nastaveny stredoevropsky script byl
> stredoevropsky a ne zapadoevropsky (default).
Too many record lock on the table
[*] Ren� Otisk - 26.10.1999 09:32:54
Hi,
To nebude ono. Bezi to na siti a pri spusteni mi to nastavi privatedir na
C:\Windows\Temp kazdeho PC
Sroub
To bezi na siti ?
Tuhle hlasku jsme kdysi meli, pokud si dobre vzpominam,
stacilo nakonfigurovat BDE tak, aby kazda stanice mela
svuj vlastni Private directory.
A na www.borland.com je k tomuto nekolik dokumentu.
Ale musis si je najit sam.
Hi,
W95, D3, Rx2.60, Paradox
Jiz jsem se na %sub% jednou ptal, lec nikdo nezareagoval. Takze to zkusim
znova.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to
vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update
to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to
probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco
jineho? Uz si rvu zbytky vlasu.
Sroub
downgrade
[*] Min�� Petr - 26.10.1999 09:58:42
Odinstalovat lze. Nabizi to tri moznosti:
1.Pridat soucast
2.Opravit aplikaci IE
3.Obnovit predchozi konfiguraci systemu Windows (Odinstalovani)
Pokud to nelze odinstalovat, tak me pomohlo nejdrive odinstalovani MS Outlook Express a pote IE.
S pozdravem
m���k
petr.minar(zv)kleibl(tec)cz
>Obavam se, ze budes muset zacit pekne od zacatku (format c: >atd).
>IE je po instalaci soucast systemu a kazda zmena je vysoce >rizikova.
>IE nejde odinstalovat. Videl jsem jeden pokus - Windows potom >zacaly hlasit
>pri pokusu
>spustit nejaky *.exe: "s priponou exe neni asociovan zadny >program. Prejete
>si vyhledat ...(atd, asi to znate)?".
>Ja jsem zkousel preinstalovat pokazenou instalaci IE4 (zase IE4) >a po "IE
>provadi optimalizaci systemu"
>sla masina totalne do kolen a musel jsem zacit od format c:
>
>Jura
>
>---
>P��choz� zpr�va neobsahuje viry.
>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.94 / Virov� b�ze: 49 - datum vyd�n�: 22.11.1999
Too many record lock on the table
[*] Ren� Otisk - 26.10.1999 10:00:46
Hi,
W95, D3, RXLib 2.6
Takze tim se asi dostavam k non-BDE pristupu, ze? Vyresi mi to problem transakci na Paradoxu? Nebo jak to mam resit?
Sroub
Podle dokumentace podporuje BDE maximalne 255 "record locks" najednou na jedne tabulce
Podpora transakci neni vlastnosti Paradoxu ale provadi ji BDE a pouziva k tomu prave zamykani vet.
Pri zmene vety v transakci zamkne BDE vetu, zapise kopii vety do log souboru a nasledne provede zmeny. Zamek z vety je uvolnen az pri Commit nebo Rollback.
Kdyz delam pomoci TRxSQLscriptu v transakci update nebo insert, tak mi to vyhodi %sub% hlasku a sem v Prcicich. V ramci toho Update to prochazi asi 10 000 zaznamu. Kdyz dam ten prikaz v SQLExploreru, tak to probehne. Co s tim? Upravit konfiguraci BDE? Nebo neco jineho? Uz si rvu zbytky vlasu.
Sroub
Spatne kopirovani BMP
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 26.10.1999 10:01:04
Nazdarek,
mam nasledujici problem: Dynamicky vytvarim TPicture, do ktereho nacitam bmp obrazek. Ten obrazek potrebuju vykreslit do StringGridu, takze to mam osetreno v metode OnDrawCell. Pred vykreslenim zvetsuju sirku TPicture na sirku daneho sloupce a pak pomoci StringGrid.Canvas.CopyRect(R1, Picture.Bitmap.Canvas.Handle, R2) to chci dostat na StringGrid. Ono se to vykresli, ale je to kompletne v cerne barve a ne tak barevne, jak to ma byt :-((. Nevite nekdo co s tim??
Mirek
D3 Prof, win95 osr2
Neni ActiveX na webu
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 26.10.1999 10:03:16
Jeste jedna vec. Mam ActiveXForm, kdyz se to ladi na lokale pres Personal Web Server, tak je vsechno v poradku. Kdyz se to hodi na web, tak se nestahne ActiveX a je tam prazdno. Kde muze byt chyba??
Mirek
D5 Ent, win95 osr2
OT:cekani -prevod z Dosu
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ov 1999 10:10:18
Zkusil bych thread, ale zatim jsem s nim nemel blize cest, takze help.
>Zdenek Navratil wrote:
>mam nasl. problem: v Pascalu mam pod Dosem cyklus, ktery ceka, nez ma
>nejaky port urcitou hodnotu:
> repeat
> until port[nejaky]=neco;
v Delphi mi, pokud delsi dobu port danou hodnotu nema, aplikace pochop. zatuhn
e a uzivatel tak nema moznost ji >stopnout;
M&B