Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
nastaveni OutputBin v QR
[*] mbartonek(zv)synthesia(tec)cz - 30.5.2002 13:51:50
Ahoj,
v D5 se mi nedari nastavit v programove OutputBin v QuickReportu
report1.PrinterSettings.OutputBin := 'Auto';
toto mi nahlasi chybu rozdil typu TQRBin a String. Popis TQRBin se mi
nepodarilo najit.
Jak na to ?
Dekuji
Bartonek Milan
Komponenta na System Tray Icon
[*] KALUS Jozef <Jozef.Kalus(zv)spordat.sk> - 30.5.2002 14:01:15
hi,
ma niekto nejaku dobru FREE komponentu pre skryvanie aplikacie do SYSTRAY ?
dik
joka
zachytavani z USB kamery
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.5.2002 14:08:50
> > tady je slibeny zdrojak zachytavace snimku.
> > http://www.peca(tec)cz/delphi/kamera.zip
> Tak tohle bude fungovat jen pod Win9x (viz MSVFW32.DLL ve zdrojich),
> protoze pod W2k+ neni podpora VfW -- tedy jedine tezkopadne
> pres wrapper
no, uznavam, ze jsem to psal pred lety a ani ted nevim nic
o MSVFW32.DLL. kazdopadne jsem se podival do zdrojaku a jedine,
co jsem tam nasel v tomto smyslu je:
{== FilePreview dialog
=======================================================}
function GetOpenFileNamePreview(lpofn: POPENFILENAME): BOOL; stdcall;
external VFWDLL name 'GetOpenFileNamePreviewA';
function GetSaveFileNamePreview(lpofn: POPENFILENAME): BOOL; stdcall;
external VFWDLL name 'GetSaveFileNamePreviewA';
a mam pocit, ze to zrovna pro zachytavani neslouzi.
mozna ze prehravani by slo jednoduseji prez mediaplayer.
peca
Komponenta na System Tray Icon
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 30.5.2002 14:10:01
Ahoj,
http://www.zive(tec)cz/Text/Ar.asp?ARI=105932
AV
> -----Original Message-----
> From: KALUS Jozef [mailto:Jozef.Kalus(zv)spordat.sk]
> ma niekto nejaku dobru FREE komponentu pre skryvanie
> aplikacie do SYSTRAY ?
Komponenta na System Tray Icon
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.5.2002 14:20:53
Nejlepsi je asi CoolTrayIcon (na Torry nebo poslednim Chipu), ja jsem
pouzil AntTrayIcon, protoze je mala a umi vse co jsem potreboval
(CoolTray neni nejmensi, ale umi toho spoustu)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.5.2002 KALUS Jozef:
> ma niekto nejaku dobru FREE komponentu pre skryvanie aplikacie do SYSTRAY ?
None
[*] martin.falta(zv)obi.de - 30.5.2002 14:57:56
This is a multi-part message in MIME format.
http://knihy.cpress(tec)cz/Book.asp?ID=362
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
cieslar(zv)efisyst.
com To: delphi-l(zv)clexpert(tec)cz
Sent by: cc:
delphi-l-owner(zv)c Subject:
lexpert(tec)cz
30.05.2002 14:57
Please respond
to delphi-l
Nev�te n�kdo o n�jak� knize, kter� pojedn�v� o z�kladech a principech OOP
a je zam��en� na Object Pascal. Knih o OOP jsem u� p�r vid�l, ale v�echny
byly o C++. D�ky.
Medv�d
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
Pozice p�i zobrazov�n� okna
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.5.2002 15:03:59
Ahoj,
jakym zpusobem mohu programove ovlivnit zobrazovani oken, jejichz pozici si ridi Windows ?
Napr. pri opakovanem spousteni (pres WinExec) Notepadu, Pruzkumnika (tj. ne Delphi aplikace, ale nejake obecne) apod. se okna zarazuji kaskadovite.
Rad bych pred spustenim Notepadu, Pruzkumnika aj. urcil pozici nebo poradi okna sam. Jak to udelat tak, aby okno nebliklo, nebo se nezobrazilo a pak poskocilo do jine pozice? A jak donutit aplikaci (mam handle pres FindWindow) aby se minimalizovala?
Dik za kazdou radu
Jaro B.
Literatura o OOP
[*] Tom� Cieslar <cieslar(zv)efisyst(tec)com> - 30.5.2002 15:06:14
Nevite nekdo o nejake knize, ktera pojednava o zakladech a principech OOP a je zamerena na Object Pascal. Knih o OOP jsem uz par videl, ale vsechny byly o C++. Diky.
Medved
Pozice p�i zobrazov�n� okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.2002 15:12:13
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> jakym zpusobem mohu programove ovlivnit zobrazovani oken, jejichz pozici si
> ridi Windows ?
Pouzij CreateProcess a podivej se na TStartupInfo.dwFlags v helpu (MSDN)
Petr Vones
Tvorba komponent
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.5.2002 15:18:48
> > asi nejlepsi literatura je v adresari $(DELPHI)\source\vcl, bohuzel
> > na mistech, kde je to potreba chybi alespon komentar stylu: //this
> > is really stupid idea
>
> Jako napriklad ? :-)
****Jako napriklad spousta private metod, ktere mely byt protected a
virtual. ;-)
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
None
[*] Robert Suska <delphi(zv)korak.sk> - 30.5.2002 15:55:58
Turbo Vision 2
Robo
BDE verzus ADO?
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 30.5.2002 16:23:48
Jaky je rozdil v pouziti BDE nebo ADO pro pristup k DB ruzneho typu. A za
jakych podminek je lepesi pouzit jednoho nebo druheho zpusobu.
F.
BDE verzus ADO?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.2002 16:33:59
From: "Frantisek Mlcoch" <frantisek.mlcoch(zv)vsb(tec)cz>
> Jaky je rozdil v pouziti BDE nebo ADO pro pristup k DB ruzneho typu. A za
> jakych podminek je lepesi pouzit jednoho nebo druheho zpusobu.
Strucne shrnuto, zapomen na BDE.
Petr Vones
OOP literatura
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 30.5.2002 16:37:23
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.
1) neco jsem kdysi videl v knize od T. Binzingera ( nebo jak se jmenoval)
"Zaciname s Delphi" (nebo tak neco) (Grada)
2) s Delfama (alespon s 5kama) jsou dodavany nejaky pdf na CD,ktery maj
asi 200 a 900 stranek, adresar ted nevim., tam toho bylo taky dost
Pavel
PS: Doufam ze by to nebylo nezakony, kdybych ty pdf poslal na pozadani na
privatni mail?
Nev�te n�kdo o n�jak� knize, kter� pojedn�v� o z�kladech a principech OOP a
je zam��en� na Object Pascal. Knih o OOP jsem u� p�r vid�l, ale v�echny byly
o C++. D�ky.
Medv�d
Literatura o OOP
[*] ales.pavel(zv)popron(tec)cz - 30.5.2002 16:57:36
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.
Medved WROTE:
Nevite nekdo o nejake knize, ktera pojednava o zakladech a principech OOP a
je zamerena na Object Pascal. Knih o OOP jsem uz par videl, ale vsechny byly
o C++.
Aldik na to:
Nerad ti to rikam,ale pokud chces pochopit OOP,tak nejlepsi je opravdu C++ a
nebo JAVA, tam mas OOP vyhnany do krajnosti (nekdy az zbytecne) a krom
toho,OOP je vsude zhruba stejny...kup si ted netusim ktery dil ale jmenuje
se to PRUVODCE PROGRAMATORA 1-6? V jednom dile se pojednava o
komponentach,tam objekt nejlepe pochopis...
PS:Kdyz jsem to pochopil i ja (hlava natvrdlaaa:-)))a s uspechem
pouzivam...
je to vikend zkouseni a pak to predpoklada ze to budes pouzivat,nic na tom
neni...nejlepsi se podivat se treba na www.builder(tec)cz
<http://www.builder(tec)cz> a nebo na podobne stranky...a pak je to v pohode...
ales pavel
d6 ent wXP
OT ? Pripojenie tlacidiel k PC cez LPT
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.5.2002 17:27:40
Puvodni zprava, kterou napsal Zdenek Stepanek dne 29 May 2002:
> Nechci od game portu nikoho zrazovat, samozrejme, ze to taky funguje,
> navic tam je i napajeni, coz je vyhoda. Ale z praxe muzu rict, ze se to
> moc nepouziva (nesetkal jsem se s tim) a asi k tomu jsou nejake duvody.
Bud uved ty duvody a nebo nepis, ze nejake duvody jsou. Ze ses s tim
nesetkal, to neni zadny duvod.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Tvorba SQL prikazu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 30.5.2002 17:37:11
Ahoj,
co ti trva tak dlouho ?
Otevreni TQuery tj. vykonani prikazu ?
Pokud je schema:
TTable -> TQuery
tedy z dat v TTable (table1) konstrujes dotaz do TQuery(table2, table3),
napr. SELECT *
FROM table2 INNER JOIN table3
ON table2.ID = table3.ID
WHERE table2.pole1 = '%%A'
AND table3.pole2 = '%%B'
Kde %%x je nejaky substituovany parametr.
Pokud ano, tak zrychleni dosahnes pouze zrychlenim vykonani dotazu, tj. bude
to chtit nejaky index(y), kterymi zrychlis vlastni DB operaci.
Muzes samozrejme pouzit parametry, ale doba vykonavani se zkrati jen malo
(kompilace dotazu).
Pavel
> From: Ing. Jiri SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
> Subject: Tvorba SQL prikazu
> ted mam dotaz ohledne tvorby SQL prikazu. V aplikaci pouzivam
> TTable a TQUery.
> Pricemz TQuery pouzivam na dotazy k ty tabulce. Zatim to
> delam tak, ze mam
> tabulku : data.db a na tu se vzdycky odkazu. Cili delam SQL takto:
>
> select * from data.db
>
> Jenze ted mi to beha po siti a ta tabulka je dost velka a pri
> kazde zmene SQL
> prikazu musim TQuery zavrit, zmenit SQL, otevrit - coz
> strasne dlouho trva. Po
> celou dobu mam otevrenou tu tabulku.
>
> Nejde nejak napsat ten prikaz, aby to odkazovalo na tu
> otevrenou tabulku TTable?
> Neco jako:
>
> select * form table1
>
> Diky
>
> Jiri Sokol
Re[4]: IB/FB: zalohovani a obnoveni, zmena umisten
[*] miro mrazik <preas_w(zv)stonline.sk> - 30.5.2002 17:44:44
prepac, myslel som samozrejme gbk
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: "miro mrazik" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 30, 2002 1:49 PM
Subject: Re[4]: IB/FB: zalohovani a obnoveni, zmena umisteni database
> >> Ja som sa rozhodol, ze pri vytvoreni databazy vlasne obnovim zo zalohy
> >> databazu a nie je treba nic kopirovat ani create database.
> >>
> >> --
> >> Best regards, TRoland
>
>
> <<< 30. 5. 2002 13:47 - miro mrazik "preas_w(zv)stonline.sk" >>>
> mm> Ahoj,
> mm> tento sposob je vcelku elegantny, len sa chcem opytat ak vytvorim
subor gdb
> mm> napr. na masine s win98 a pridem ku zakaznikovi, ktory ma linux, da sa
> mm> pomocou napr ibconsole vytvorit databaza na linuxe bez problemov?
>
> nemyslim tym GDB ale iba prenositelnu zalohu databazu a tu ide(dufam)
obnovit
> na vsetkych podporovanych platformach.
>
> --
> Best regards, TRoland
>
OT ? Pripojenie tlacidiel k PC cez LPT
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.5.2002 18:16:22
> Nechci od game portu nikoho zrazovat, samozrejme, ze to taky
> funguje, navic
> tam je i napajeni, coz je vyhoda. Ale z praxe muzu rict, ze se to moc
> nepouziva (nesetkal jsem se s tim) a asi k tomu jsou nejake duvody.
>
> Zdenek
Ahoj,
neni tak uplne pravda, ze se to nepouziva. U nas to pouzivame zcela bezne
(ovladani prehravace zvukovych souboru ze zaznamniku, cca 500 zaznamu denne,
spinace - ZPET, PLAY, NEXT, FAST - se ovladaji nohou). Jde hlavne o to, ze
pro gameport/joystick existuje standardni obsluha pod Wokny. Zapojeni je
velmi jednoduche, po cca 2 letech provozu se nestalo, ze by odesel nejaky
gameport (odchazeji spinace, protoze se po nich slape). Do 4 spinacu pod
Wokny neznam jednodussi reseni.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Re[2]: Jak se pripojit k FireBirdu
[*] bleak <bleak(zv)atlas(tec)cz> - 30.5.2002 18:37:19
dbIbSql.Database:= defdir+'\data\data.gdb';
dbIbSql.Login:= 'SYSDBA';
dbIbSql.Password:= 'masterkey';
Connect.CreateDatabase('');
pomoci techto 4 radku kodu. vytahl jsem tento kousek ze svyho programu,
pouzivam komponenty Zeos.
----- Original Message -----
From: "J�n Harman" <harman(zv)atlas(tec)cz>
> Ahoj, ja bych si dovolil se zeptat, jak vytvaris databazi za behu
programu?
> Honza.
Nechapem tento ACCESS VIOLATION
[*] Robert Suska <delphi(zv)korak.sk> - 30.5.2002 18:54:30
Ahojte
mam taketo nieco a proste ide o to ze
procedure TModulOdpadyPUT.DataPutComboLikvidator(idCommand: Integer);
var s, ss, sPermission: String;
i: Integer;
begin
with DataModule1 do
begin
sPermission:= '';ss:= '';
s:= _data.Strings[idCommand]; ---- na tomto riadku mi to hadze
ACCESS VIOl...... ked dam
while' '<>s[i]do Inc(i);Inc(i);
while' '<>s[i]do Inc(i);Inc(i);
while' '<>s[i]do Inc(i);Inc(i);
while' '<>s[i]do Inc(i);
Delete(s, 1, i);
{ while ' ' <> s[i] do { - tieto zatvorky z tohoto kodu prec
begin
sPermission:= sPermission + s[i];
Inc(i);
end;} } - --//--
som z toho blby ale ked ten cyklus ostane ako poznamka tak na riadku s:=
_data.Strings[idCommand]; to prebehne korektne :) ???
Vie niekto poradit?
Dakujem
Robo
BDE verzus ADO?
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 30.5.2002 20:58:02
Presne tak - na tom se vsichni asi shodneme - jeden priklad za vsechny:
Program a jeho nekolik dll - kazde vlastni connection na databazi (to
vzhledem k tomu, ze neco je v D2(BDE), neco D4(BDE), neco v D5(BDE,ADO)
a neco ve Visual Basicu(ADO) - ale to az tak nevadi) - docela casto se
stava ze se hodne rychle vycerpaji zdroje BDE, semo tamo access
violation -> uz se vsichni z firmy tesime na leto, az bude trochu vic
casu prejit na D5 + ADO(nis) ...
-----Original Message-----
From: Petr Vones
From: "Frantisek Mlcoch" <frantisek.mlcoch(zv)vsb(tec)cz>
> Jaky je rozdil v pouziti BDE nebo ADO pro pristup k DB ruzneho typu. A
> za jakych podminek je lepesi pouzit jednoho nebo druheho zpusobu.
Strucne shrnuto, zapomen na BDE.
Petr Vones
---
Avast: Odchozi zprava vyhodnocena jako cista
Datum a cas testovani: 30.5.2002 20:58:02
Datum virove databaze (VPS): 23.5.2002
Avast! antivirus od Alwil Software
Vytoceni cisla pres modem
[*] ji�� B�tu��k����*�Z ��%� � - 30.5.2002 21:31:50
Zdravim konference mam takovy problem
potrebuji vytocit cislo napr. 0800123456 pres modem
nevi prosim nekdo jak nato.
Budu vdecny za jakou koliv radu.
Kindr (Jiri Betunak)
viruslog(zv)volny(tec)cz
Sdileni adresaru
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 30.5.2002 21:35:10
Nasdilenim adresare myslim, ze potrebuji na lokalnim pocitaci nasdilet
nejakou slozku, aby ji ostatni mohli po siti cist, pripadne do ni zapisovat.
Petr Voborn�k
vobornik(zv)mikmik(tec)cz
ICQ#: 23132120
http://www.mikmik(tec)cz
> Pokud myslis pripojeni se ke vzdalenemu pocitaci, tak mrkni na
> WNetAddConnection2.
> Honza.
>
>
> > Jak v Delphi nasdilim pod Windows NT (2000, XP) adresar?
> >
> >
Nechapem tento ACCESS VIOLATION
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 31.5.2002 06:03:36
Predpokladam, ze ten _data je typu TStringList a nebo TStrings. Pokud jsi je
nezapomel vyzvorit (create), tak pak uz jedine, ze bys mel hodnotu idCommand
vetsi nez je maximalni pocet stringu v listu, eventuelne volas zaporne
cislo.
Rumcajs
> Ahojte
>
> mam taketo nieco a proste ide o to ze
>
> procedure TModulOdpadyPUT.DataPutComboLikvidator(idCommand: Integer);
> var s, ss, sPermission: String;
> i: Integer;
> begin
> with DataModule1 do
> begin
> sPermission:= '';ss:= '';
> s:= _data.Strings[idCommand]; ---- na tomto riadku mi to hadze
> ACCESS VIOl...... ked dam
> while' '<>s[i]do Inc(i);Inc(i);
> while' '<>s[i]do Inc(i);Inc(i);
> while' '<>s[i]do Inc(i);Inc(i);
> while' '<>s[i]do Inc(i);
> Delete(s, 1, i);
> { while ' ' <> s[i] do { - tieto zatvorky z tohoto kodu prec
> begin
> sPermission:= sPermission + s[i];
> Inc(i);
> end;} } - --//--
>
> som z toho blby ale ked ten cyklus ostane ako poznamka tak na riadku s:=
> _data.Strings[idCommand]; to prebehne korektne :) ???
>
> Vie niekto poradit?
>
> Dakujem
>
> Robo
>
zachytavani z USB kamery
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 31.5.2002 06:50:18
> Od: Petr Palicka [SMTP:petr.palicka(zv)atlas(tec)cz]
>
> no, uznavam, ze jsem to psal pred lety a ani ted nevim nic
> o MSVFW32.DLL. kazdopadne jsem se podival do zdrojaku a jedine,
> co jsem tam nasel v tomto smyslu je:
>
> {== FilePreview dialog
> =======================================================}
> function GetOpenFileNamePreview(lpofn: POPENFILENAME): BOOL; stdcall;
> external VFWDLL name 'GetOpenFileNamePreviewA';
> function GetSaveFileNamePreview(lpofn: POPENFILENAME): BOOL; stdcall;
> external VFWDLL name 'GetSaveFileNamePreviewA';
>
> a mam pocit, ze to zrovna pro zachytavani neslouzi.
> mozna ze prehravani by slo jednoduseji prez mediaplayer.
>
>
Ono nejde jen o MSVFW32.DLL, ale o celej AviCap32.pas,
takhle to pod W2k uz nejde
Ober
REV a CUE v TMediaPlayer
[*] David Kraina <DKx(zv)seznam(tec)cz> - 31.5.2002 07:24:56
Nazdar Delfini,
potreboval bych poradit, jak u TMediaPlayeru (D6) v modu CD pretocit
aktualni stopu o 5% zpet/vpred, nebo uplne nejlip, ze si zadam pozici
sam (0-100%). Diky za kazdou radu. DKx.
*DKx#-Prosim nemazat, index do
filtru
______________________________________________________________________
Reklama:
Kam do kina ci divadla? http://kultura.seznam(tec)cz
Nekolik API
[*] David Kraina <DKx(zv)seznam(tec)cz> - 31.5.2002 07:43:30
Nazdar,
potreboval bych poradit s nekolika problemy, nejspis jenom API
1. Jak mam otevrit slozku Tento pocitac pod Win9x
2. Jak se zapina sporic obrazovky pod WinNT
3. Jak se vypina monitor pod WinNT
Dik za kazdou radu. DKx.
*DKx# - prosim nemazat, index do
filtru
______________________________________________________________________
Reklama:
Na Bilem Zbozi nyni slevy az 15% !!
http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku
parametr hhk v CallNextHookEx - konzultace
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 31.5.2002 08:01:40
Ahoj,
co znamena ze to nebude spolehlive fungovat?
Nebo jinak, co je treba v D5 opravit, aby to spolehlive fungovalo?
Jaro B.
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Thursday, May 30, 2002 1:47 PM
Jeste poznamka k implementaci hooku v Delphi, je nutne pouzit Delphi 6, jinak
to nebude spolehlive fungovat diky RTL.
kontrola com portu
[*] Pavel Ales <ales.pavel(zv)comarr(tec)cz> - 31.5.2002 08:14:44
Dobre rano vsem.
Mam takovyto problem. Tisknu znakove na com port a potreboval bych
kontrolu pri tisku jestli je pripojena nebo zapnuta tiskarna. TAkze pokud
je tiskarna vypnuta tiska nesmi probehnou a program to musi oznamit
uzivateli. Vyzkousel jsem komponentu AfcomPort a k nicemu to nevedlo.
Nemate nekdo s timto problemem zkusenosti.
S pozdravem Ales
kontrola com portu
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 31.5.2002 08:40:09
Pokud muzes hrabat v te tiskarne, tak ji uprav tak, aby po zapnuti se ti
nahodil jeden ze signalovych vodicu (DTR nejlepe), ktery si v pocitaci
odchytnes. DTR = 0 -> chyba, DTR = 1 -> tiskarna pripavena. Respektive pokud
mas tiskarnu EPSON, tak ta by to mela mit.
Rumcajs
> Dobre rano vsem.
> Mam takovyto problem. Tisknu znakove na com port a potreboval bych
> kontrolu pri tisku jestli je pripojena nebo zapnuta tiskarna. TAkze pokud
> je tiskarna vypnuta tiska nesmi probehnou a program to musi oznamit
> uzivateli. Vyzkousel jsem komponentu AfcomPort a k nicemu to nevedlo.
> Nemate nekdo s timto problemem zkusenosti.
> S pozdravem Ales
>
Ruske G
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 31.5.2002 08:50:32
Ahoj,
potreboval bych nejak vyresit toto: mam aplikaci, ktera je cela psana
latinkou v anglictine, ale obcas kdesi uprostred textu potrebuji mit
velke ruske G (nebo recke gama). Jde to nejak docilit? Fonty toto
pismeno maji v unicode, ale ja jej potrebuji zobrazovat v labelech a
nadpisech sloupcu DBGridu. Jak na to?
Dik.
David Lebeda
Ruske G
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 31.5.2002 09:18:41
Napada mne jedine uzivatelske vykreslovani a prihodit jej tam z jineho
fontu (Symbols apod.), popr. pokud je to pouze jedno pismeno, zmenit
pro nej primo font.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
31.5.2002 Lebeda David:
> potreboval bych nejak vyresit toto: mam aplikaci, ktera je cela psana
> latinkou v anglictine, ale obcas kdesi uprostred textu potrebuji mit
> velke ruske G (nebo recke gama). Jde to nejak docilit? Fonty toto
> pismeno maji v unicode, ale ja jej potrebuji zobrazovat v labelech a
> nadpisech sloupcu DBGridu. Jak na to?
Replikacie
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 31.5.2002 09:35:25
Kdyz uz se to tu nakouslo, tak k tomu pridam jeden maly dotaz:
Nemate nekdo mateialy (nebo link) k (merge) replikacim na MS SQL 7, ktere se
tahaji pres externi FTP server?
Diky
Mira Ondrisek
> -----Original Message-----
Ruske G
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.5.2002 09:44:39
On 31 May 2002 at 8:50, Lebeda David wrote:
> potreboval bych nejak vyresit toto: mam aplikaci, ktera je cela psana
> latinkou v anglictine, ale obcas kdesi uprostred textu potrebuji mit
> velke ruske G (nebo recke gama). Jde to nejak docilit? Fonty toto
> pismeno maji v unicode, ale ja jej potrebuji zobrazovat v labelech a
> nadpisech sloupcu DBGridu. Jak na to?
Take je mozne vymenit grid za jiny, ktery se vykresluje cely v
unicode.
S pozdravem
Zbysek Hlinka
Konveria sekund na cely datum???
[*] Robert Suska <delphi(zv)korak.sk> - 31.5.2002 10:33:44
Existuje nejaka konverzna funkia na prekonvertovanie cisla sekund na datum
napr ze mi server bude posielat datum v sekundach a ja z toho potrebujem
datum ??? Strasne to horiii
Dakujem za velmi rychlu odpoved
P.S. Inac nejako je tu mrtvo...
S pozdravom Robo
FB a typ DATE
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 31.5.2002 10:47:30
Haj hou!
On 29 May 2002 at 17:30, bleak wrote:
> pokud spustim toto: CREATE TABLE table (d1 DATE) tak FB vytvori tabulku,
> pritom sloupec d1 nema typ DATE ale TIMESTAMP. Jak mam vytvorit sloupec
> DATE?
Databaze musi byt vytvorena v dialektu 3.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Konveria sekund na cely datum???
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 31.5.2002 10:52:59
> Existuje nejaka konverzna funkia na prekonvertovanie cisla
> sekund na datum napr ze mi server bude posielat datum
> v sekundach a ja z toho potrebujem datum ???
Precitaj si help o TDateTime. Hodnota 1 znamena jeden cely den, teda 24 * 60
* 60 sekund. Hodnota 0.5 znamena pol dna (12 hodin), teda 0.5 * 24 * 60 * 60
sekund. A tak dalej.
Datum v sekundach bude zrejme pocet sekund uplynulych od nejakeho
referencneho bodu v case. Ak je tym referencnym bodom 30.12.1899 12:00 am,
co je hodnota TDateTime = 0, potom by Ti mohlo stacit nieco taketo:
var
D, D1: TDateTime;
Sec: Int64;
begin
D := Now;
Sec := Round(D * 24 * 60 * 60);
D1 := Sec / (24 * 60 * 60);
ShowMessage(Format('Sec: %d'#13#10'D: %s'#13#10'D1: %s',
[Sec, FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', D),
FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', D1)]));
end;
Ak je ten referencny bod iny, budes musiet priratat/odratat prislusny
rozdiel.
Samozrejme, vznika tu urcita chyba zaokruhlovanim ako pri vsetkych
operaciach s floating point.
HTH
TOndrej
Zeos komponenty a chyba pri ukonceni aplikace
[*] David Janko <djanko(zv)infoware(tec)cz> - 31.5.2002 10:52:43
Dobry den,
pouzivam Zeos komponenty pro praci s mysql a narazil jsem na toto:
od jiste chvile, kdyz do projektu pridam dalsi komponentu (ZMysqlQuery nebo
...Transact), tak pri ukonceni aplikace nastane chyba "Access violation at
....".
Chyba vznikne v modulu ZConnect na radku 526 ("N :=
FTransacts.IndexOf(Transact);") protoze z (pro me) neznameho duvodu je
FTransact najednou "Innacessible value".
Zajimave je, ze kdyz tuto novou kompontu zase odeberu, tak to funguje jak ma
(ta nova komponenta nemusi ani nic delat - staci ji proste bez jakkycholiv
dalsich vazeb vlozit zrejme kamkoliv do projektu). A jeste zajmavejsi je, ze
kdyz snizim pocet komponent (odeberu na jinem miste 2-3 ZMysqlTransact) tak
se nic nezmeni - s pridanim nove zase hazi tu samou chybu :(.
Prostredi: D6, Win XP, ZeosDBO beta 5.3.0 build 5, v projektu je asi 30x
ZMysqlQuery + 30 x ZMysqlTransact (+par tables a jedno Connect).
Aplikaci staci spustit a zase vypnout - bez jakekoliv akce nad vlastnimi DB
komponentami. Po dobu behu aplikace vsechno funguje, chyba nastane az pri
ukonceni.
Naprosto to nechapu - nesetkal se jiz nekdo s timto jevem nebo nenapada vas
nejake reseni ?
Dekuji.
David Janko.
djanko(zv)infoware(tec)cz
+420 604 164 999
Jak na odesilani v serversocket?
[*] Petr Varga <djvar(zv)post(tec)cz> - 31.5.2002 11:01:38
Ahoj
Na formulari mam komponentu serversocket. Pripojeny je urcity pocet klientu.. Jak mam udelat abych odeslal data klientovi urcite IP adresy... Nasel jsem fci serversocket.socket.connections[0].sendtext(string), jenomze to myslim odesle data na klienta, ktery se pripojil jako prvni.. Ja bych potreboval odeslat data klientovi urcite IP adresy.. Nevite jak na to? Diky za odpovedi... Petr
----
Bez Financ� se p�i koupi
nemovitosti neobejdete
http://reality.finance(tec)cz
Posilani e-mailu pres SMTP - automaticke vytaceni?
[*] <michal.svantner(zv)email(tec)cz> - 31.5.2002 11:02:19
Dobry den,
pro posilani e-mailu z vlastni aplikace pouzivam komponentu NMSMTP.
To funguje, pokud je pocitac na LAN siti nebo pokud pri pouziti modemu nejaka jina aplikace vytoci cislo a navaze spojeni. Je nejaka moznost, jak primo v Delphi realizovat vytaceni, tj. pripojeni se, a po odeslani zpravy automaticke odpojeni?
Za odpoved predem dekuji,
Michal Svantner
______________________________________________________________________________
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz
Formular, jeho Caption a klik mysi
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 31.5.2002 11:03:42
Ahoj,
muzu Vas poprosit o radu ? Mam D5 a Win 2000.
Chtel bych se mysi postavit na nazev formulare a po kliknuti pravym
tlacitkem vypsat nejakou hlasku, treba ShowMessage.
Vasek
IB/FB: UDF, navrat retezce
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 31.5.2002 11:07:23
ahoj,
***** mam takovouto funkci:
function FirstCharCZ(Source: PChar): PChar; cdecl; export;
var
s: String;
i: Integer;
begin
s:=String(Source);
i:=Length(s);
case i of
0:s:=' ';
1:s:=s+' ';
else if i>2 then SetLength(s, 2);
end;
if not ((s[1] in ['C', 'c']) and
(s[2] in ['H', 'h'])) then
s[2]:=' ';
s:=s+#0;
Result:=ib_util_malloc(3);
Move(s, PChar(Result)^, i);
end;
***** takto deklarovanou:
declare external function FirstCharCZ
cstring(254) returns cstring(254) free_it
entry_point 'FirstCharCZ' module_name 'ag_udf.dll';
***** pro jakykoliv vstup mi vraci:
p��
�
�
�<<<<<<<<
***** nemate nekdo nejakou radu?
dik peca
Konveria sekund na cely datum???
[*] Tom� Ji�� <Jiri.Tomas(zv)merlin(tec)cz> - 31.5.2002 11:11:52
Ahoj,
delphovsky typ TDateTime je realne cislo reprezentujici rozdil od smluvniho
datumu 0 ve dnech, coz je v Delphach 12/30/1899 12:00 am.
Konverzi dostanes vyrazem
var t : TDateTime;
...
t := ServTimeInSec / (24*60*60) - CONST;
kde CONST je rozdil smluvniho datumu 0 serveru a smluvniho datumu 0 Delph
ve dnech.
Jiri Tomas
Existuje nejaka konverzna funkia na prekonvertovanie cisla sekund na datum
napr ze mi server bude posielat datum v sekundach a ja z toho potrebujem
datum ??? Strasne to horiii
Formular, jeho Caption a klik mysi
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 31.5.2002 11:15:08
Melo by stacit odchyceni zpravy WM_NCHITTEST a pokud je vysledek HTCAPTION,
jsi na titulkovem pruhu. Pak jen otestuj tlacitka mysi a hotovo.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Formular, jeho Caption a klik mysi
>
Mam D5 a Win 2000.
> Chtel bych se mysi postavit na nazev formulare a po kliknuti pravym
> tlacitkem vypsat nejakou hlasku, treba ShowMessage.
Chyba v Delphi? RichEdit a Stream
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 31.5.2002 11:40:51
Dobry den,
mam dva RichEdity a chci je ulozit do souboru:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create ('c:\temp\test.bin',fmCreate);
RichEdit1.Lines.SaveToStream (f);
RichEdit2.Lines.SaveToStream (f);
f.free;
end;
To probehne v poradku, ale kdyz to chci zase nacist:
procedure TForm1.Button2Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create (edit1.text,fmOpenread);
RichEdit1.Lines.LoadFromStream (f);
RichEdit2.Lines.LoadFromStream (f);
f.free;
end;
tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je
ale chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je
f.Position na konci. Jak to spravit?
Dekuji za pomoc
Karel Krtecek, Delphi 5 Ent
--------------------
Chu�ov� inspirace na http://recepty-maggi.centrum(tec)cz Chyba v Delphi? RichEdit a Stream
[*] tomsir1.edu(zv)mail.cez(tec)cz - 31.5.2002 12:13:45
f.Seek(0,soFromBeginning) ... nebo tak nejak, nepamatuju si to z
hlavy .."Karel Krtecek" <karel.krtecek(zv)centrum(tec)cz>(zv)clexpert(tec)cz on 31.05.2002
11:40:51
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Chyba v Delphi? RichEdit a Stream
Dobry den,
mam dva RichEdity a chci je ulozit do souboru:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create ('c:\temp\test.bin',fmCreate);
RichEdit1.Lines.SaveToStream (f);
RichEdit2.Lines.SaveToStream (f);
f.free;
end;
To probehne v poradku, ale kdyz to chci zase nacist:
procedure TForm1.Button2Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create (edit1.text,fmOpenread);
RichEdit1.Lines.LoadFromStream (f);
RichEdit2.Lines.LoadFromStream (f);
f.free;
end;
tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je
ale chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je
f.Position na konci. Jak to spravit?
Dekuji za pomoc
Karel Krtecek, Delphi 5 Ent
--------------------
Chu�ov� inspirace na http://recepty-maggi.centrum(tec)cz
Chyba v Delphi? RichEdit a Stream
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 31.5.2002 12:16:07
Zkus si dat mezi ty dva LoadFromStream jeste
f.Position := 0;
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Dobry den,
> mam dva RichEdity a chci je ulozit do souboru:
> procedure TForm1.Button1Click(Sender: TObject);
> var
> f: TFileStream;
> begin
> f := tfilestream.Create ('c:\temp\test.bin',fmCreate);
> RichEdit1.Lines.SaveToStream (f);
> RichEdit2.Lines.SaveToStream (f);
> f.free;
> end;
> To probehne v poradku, ale kdyz to chci zase nacist:
> procedure TForm1.Button2Click(Sender: TObject);
> var
> f: TFileStream;
> begin
> f := tfilestream.Create (edit1.text,fmOpenread);
> RichEdit1.Lines.LoadFromStream (f);
> RichEdit2.Lines.LoadFromStream (f);
> f.free;
> end;
> tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je
> ale chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je
> f.Position na konci. Jak to spravit?
> Karel Krtecek, Delphi 5 Ent
Re[6]: IB/FB: zalohovani a obnoveni, zmena umisten
[*] Roland Turcan <rolo(zv)sedas.sk> - 31.5.2002 12:21:54
>> From: "Roland Turcan" <rolo(zv)sedas.sk>
>> >> Ja som sa rozhodol, ze pri vytvoreni databazy vlasne obnovim zo zalohy
>> >> databazu a nie je treba nic kopirovat ani create database.
>> <<< 30. 5. 2002 13:47 - miro mrazik "preas_w(zv)stonline.sk" >>>
>> mm> Ahoj,
>> mm> tento sposob je vcelku elegantny, len sa chcem opytat ak vytvorim
mm> subor gdb
>> mm> napr. na masine s win98 a pridem ku zakaznikovi, ktory ma linux, da sa
>> mm> pomocou napr ibconsole vytvorit databaza na linuxe bez problemov?>> From: "Roland Turcan" <rolo(zv)sedas.sk>
>> nemyslim tym GDB ale iba prenositelnu zalohu databazu a tu ide(dufam)
mm> obnovit
>> na vsetkych podporovanych platformach.
<<< 31. 5. 2002 12:20 - miro mrazik "preas_w(zv)stonline.sk" >>>
mm> prepac, myslel som samozrejme gbk
Takze ak tam budes Ty alebo nejaky zdatny, tak asi najjednoduhsie je
to cez pouzitie GBAK.
--
Best regards, TRoland
Nechapem tento ACCESS VIOLATION
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 31.5.2002 12:40:20
Zkus si vyjet Hi(_Data) resp. Low(_Data)
Sroub
> Predpokladam, ze ten _data je typu TStringList a nebo TStrings. Pokud jsi
je
> nezapomel vyzvorit (create), tak pak uz jedine, ze bys mel hodnotu
idCommand
> vetsi nez je maximalni pocet stringu v listu, eventuelne volas zaporne
> cislo.
>
> Rumcajs
>
> > Ahojte
> >
> > mam taketo nieco a proste ide o to ze
> >
> > procedure TModulOdpadyPUT.DataPutComboLikvidator(idCommand: Integer);
> > var s, ss, sPermission: String;
> > i: Integer;
> > begin
> > with DataModule1 do
> > begin
> > sPermission:= '';ss:= '';
> > s:= _data.Strings[idCommand]; ---- na tomto riadku mi to hadze
> > ACCESS VIOl...... ked dam
> > while' '<>s[i]do Inc(i);Inc(i);
> > while' '<>s[i]do Inc(i);Inc(i);
> > while' '<>s[i]do Inc(i);Inc(i);
> > while' '<>s[i]do Inc(i);
> > Delete(s, 1, i);
> > { while ' ' <> s[i] do { - tieto zatvorky z tohoto kodu prec
> > begin
> > sPermission:= sPermission + s[i];
> > Inc(i);
> > end;} } - --//--
> >
> > som z toho blby ale ked ten cyklus ostane ako poznamka tak na riadku s:=
> > _data.Strings[idCommand]; to prebehne korektne :) ???
> >
> > Vie niekto poradit?
> >
> > Dakujem
> >
> > Robo
> >
Chyba v Delphi? RichEdit a Stream
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 31.5.2002 12:45:33
Dobry den,
to je spatne. To mi do obou da puvodni obsah toho prvniho
RichEditu.
Karel Krtecek
> Zkus si dat mezi ty dva LoadFromStream jeste
> f.Position := 0;
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
--------------------
Chu�ov� inspirace na http://recepty-maggi.centrum(tec)cz Chyba v Delphi? RichEdit a Stream
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 31.5.2002 12:51:59
Myslim ze to neni chyba, jenom vlastnost. Predpokladam, ze Delphi uklada
radky do textoveho souboru a na konec prida radky druheho richeditu.
Nevklada tam zadny oddelovac. Pri cteni nema jak rozeznat hranice mezi texty
a nacte vse jako jeden celek. Aby to fungovalo dobre, bylo by potreba vlozit
nejaky oddelovac a pak si nacist soubor do stringlistu a hledat oddelovac.
Jaromir Cermak
-----Original Message-----
From: Karel Krtecek [mailto:karel.krtecek(zv)centrum(tec)cz]
Sent: Friday, May 31, 2002 11:41 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Chyba v Delphi? RichEdit a Stream
Dobry den,
mam dva RichEdity a chci je ulozit do souboru:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create ('c:\temp\test.bin',fmCreate);
RichEdit1.Lines.SaveToStream (f);
RichEdit2.Lines.SaveToStream (f);
f.free;
end;
To probehne v poradku, ale kdyz to chci zase nacist:
procedure TForm1.Button2Click(Sender: TObject);
var
f: TFileStream;
begin
f := tfilestream.Create (edit1.text,fmOpenread);
RichEdit1.Lines.LoadFromStream (f);
RichEdit2.Lines.LoadFromStream (f);
f.free;
end;
tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je
ale chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je
f.Position na konci. Jak to spravit?
Dekuji za pomoc
Karel Krtecek, Delphi 5 Ent
--------------------
Chu�ov� inspirace na http://recepty-maggi.centrum(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.365 / Virov� b�ze: 202 - datum vyd�n�: 24.5.2002
Chyba v Delphi? RichEdit a Stream
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 31.5.2002 13:03:08
SaveToStream podle me cely stream prepise novym obsahem misto aby pridal
neco na konec, takze je potreba pouzit dva streamy.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Karel Krtecek" <karel.krtecek(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 31, 2002 11:40 AM
Subject: Chyba v Delphi? RichEdit a Stream
> Dobry den,
>
> mam dva RichEdity a chci je ulozit do souboru:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> f: TFileStream;
> begin
> f := tfilestream.Create ('c:\temp\test.bin',fmCreate);
> RichEdit1.Lines.SaveToStream (f);
> RichEdit2.Lines.SaveToStream (f);
> f.free;
> end;
>
> To probehne v poradku, ale kdyz to chci zase nacist:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> f: TFileStream;
> begin
> f := tfilestream.Create (edit1.text,fmOpenread);
> RichEdit1.Lines.LoadFromStream (f);
> RichEdit2.Lines.LoadFromStream (f);
> f.free;
> end;
>
> tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je
> ale chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je
> f.Position na konci. Jak to spravit?
>
> Dekuji za pomoc
>
> Karel Krtecek, Delphi 5 Ent
>
>
> --------------------
> Chu�ov� inspirace na http://recepty-maggi.centrum(tec)cz
>
>
>
Chyba v Delphi? RichEdit a Stream
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 31.5.2002 13:05:11
Ahoj,
je to jedna z tech pitomosti, ktere Bobrland nedomyslel. Ono se sice
ulozi do streamu obsah stringlistu, ale jiz si nezapise, jak je to
velky, natoz aby se zpetne nacetlo pouze to, co bylo ulozeno. Proto v
pripade, ze do/ze streamu posilas/ctes vice veci, musis si to
naprogramovat sam (ne, neni to vtip), treba takto:
procedure WriteStringToStream (Stream: TStream; const Value: string);
var
size: integer;
begin {WriteStringToStream}
size := length (Value);
Stream.WriteBuffer(size, sizeof (integer));
Stream.WriteBuffer(Pointer(Value)^, size);
end; {WriteStringToStream}
function ReadStringFromStream (Stream: TStream): string;
var
size: integer;
begin {ReadStringFromStream}
Stream.ReadBuffer(size, sizeof (integer));
SetLength (Result, size);
Stream.ReadBuffer(Pointer(Result)^, size);
end; {ReadStringFromStream}
procedure TForm2.Button1Click(Sender: TObject);
var
F: TFileStream;
begin
F := TFileStream.Create ('tvuj soubor', fmCreate);
WriteStringToStream (F, RichEdit1.Lines.Text);
WriteStringToStream (F, RichEdit2.Lines.Text);
F.Free;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
F: TFileStream;
begin
F := TFileStream.Create ('tvuj soubor', fmOpenread);
RichEdit1.Lines.Text := ReadStringFromStream (F);
RichEdit2.Lines.Text := ReadStringFromStream (F);
F.Free;
end;
Slavek
> tak me to nacte jenom ten prvni a druhy se zmeni v prazdny. To je ale
> chyba, ne? Po volani RichEdit1.Lines.LoadFromStream (f); je f.Position
> na konci. Jak to spravit?
> Karel Krtecek, Delphi 5 Ent
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Title v gridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 31.5.2002 13:06:59
Ahoj,
nevite nekdo o DBGridu, ktery by byl free a umoznoval vlastni
vykresleni bunek s nazvy sloupcu? OnDrawDataCell i
OnDrawColumnCell se v normalnim DBGridu vyvolaji pouze na
datovych bunkach.
Diky
David Lebeda
Help z vice souboru
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 31.5.2002 13:10:26
Ahoj,
mam help ve dvou souborech Help1.hlp, Help2.hlp a jeden obsah Help1.cnt,
ktery odkazuje na topicy v obou souborech. Nejdriv dodam zakaznikovi
Help1.hlp a dodatecne Help2.hlp. Problem je ovsem v tom, ze Help2.hlp se mi
neobjevi v obsahu Help1.cnt. V napovede sem se docetl, ze musim udelat
WINHELP -G HELP1.HLP ale toto konci chybovym hlasenim. Nevite jak na to? Mam
D4Std a W2000.
Dik. Jara
svehla(zv)spelza(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
Chyba v Delphi? RichEdit a Stream
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 31.5.2002 13:10:32
Ahoj,
to neni pravda. Pokud mas Position nastaveny na konci streamu, pak se
to spravne zapise na disk.
Slavek
On 31 May 2002 at 13:03, Jakub Dusek wrote:
> SaveToStream podle me cely stream prepise novym obsahem misto aby
> pridal neco na konec, takze je potreba pouzit dva streamy.
>
> Jakub Dusek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IB/FB: UDF, navrat retezce
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 31.5.2002 13:36:21
Ukazuje ti to nekam do pameti nebo na pointer...
Ze zkusebni aplikaci build in ti to chodi?
Jaro B.
-----Original Message-----
From: Petr Palicka [mailto:petr.palicka(zv)atlas(tec)cz]
Sent: Friday, May 31, 2002 11:07 AM
To: DELPHI Konference (el. adresa)
Subject: IB/FB: UDF, navrat retezce
***** pro jakykoliv vstup mi vraci:
p=08=AD=BA
=F0=AD=BA
=F0=AD=BA
=F0=AD=BA<<<<<<<< =***** nemate nekdo nejakou radu?
dik peca
parametr hhk v CallNextHookEx - konzultace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.5.2002 14:03:48
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> co znamena ze to nebude spolehlive fungovat?
V aplikaci ktera je zrovna na popredi muze dochazet k ruznym AV apod.
> Nebo jinak, co je treba v D5 opravit, aby to spolehlive fungovalo?
Nic, je to vec RTL.
Petr Vones
Posilani e-mailu pres SMTP - automaticke vytaceni?
[*] Lauko Stefan <laukosw(zv)naex.sk> - 31.5.2002 14:05:19
Ahoj,
hladaj komponentu DialUp.
Lauko.
----- Original Message -----
From: <michal.svantner(zv)email(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 31, 2002 11:02 AM
Subject: Posilani e-mailu pres SMTP - automaticke vytaceni?
Dobry den,
pro posilani e-mailu z vlastni aplikace pouzivam komponentu NMSMTP.
To funguje, pokud je pocitac na LAN siti nebo pokud pri pouziti modemu
nejaka jina aplikace vytoci cislo a navaze spojeni. Je nejaka moznost, jak
primo v Delphi realizovat vytaceni, tj. pripojeni se, a po odeslani zpravy
automaticke odpojeni?
Za odpoved predem dekuji,
Michal Svantner
____________________________________________________________________________
__
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu:
http://kalendar.email(tec)cz
IB/FB: UDF, navrat retezce
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 31.5.2002 14:06:30
Ahoj, Petre !
you wrote:
[Skipped]
PP> ***** pro jakykoliv vstup mi vraci:
PP> p��
PP> �
PP> �
PP> �<<<<<<<<
PP> ***** nemate nekdo nejakou radu?
Skusil ladit ?
Ja pouzivam StrPCopy() namisto Move().
Napriklad takto:
function HASH(DATA:PChar): PChar; cdecl; export;
var
TmpStr: ShortString;
begin
TmpStr := Hash_MD5(DATA);
Result := ib_util_malloc(Length(TmpStr));
StrPCopy(Result, TmpStr);
end;
Best regards, Alex Cherednichenko.
Konveria sekund na cely datum???
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 31.5.2002 14:51:57
Je taky moznost pouzit MSecsToTimeStamp a TimeStampToDateTime. Napr :
var
dt : TDateTime;
Sec : int64;
begin
dt := TimeStampToDateTime(MSecsToTimeStamp (Sekundy*1000));
end;
Petr
> > Existuje nejaka konverzna funkia na prekonvertovanie cisla
> > sekund na datum napr ze mi server bude posielat datum
> > v sekundach a ja z toho potrebujem datum ???
>
> Precitaj si help o TDateTime. Hodnota 1 znamena jeden cely den, teda 24 *
60
> * 60 sekund. Hodnota 0.5 znamena pol dna (12 hodin), teda 0.5 * 24 * 60 *
60
> sekund. A tak dalej.
>
> Datum v sekundach bude zrejme pocet sekund uplynulych od nejakeho
> referencneho bodu v case. Ak je tym referencnym bodom 30.12.1899 12:00 am,
> co je hodnota TDateTime = 0, potom by Ti mohlo stacit nieco taketo:
>
> var
> D, D1: TDateTime;
> Sec: Int64;
> begin
> D := Now;
> Sec := Round(D * 24 * 60 * 60);
> D1 := Sec / (24 * 60 * 60);
> ShowMessage(Format('Sec: %d'#13#10'D: %s'#13#10'D1: %s',
> [Sec, FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', D),
> FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', D1)]));
> end;
>
> Ak je ten referencny bod iny, budes musiet priratat/odratat prislusny
> rozdiel.
> Samozrejme, vznika tu urcita chyba zaokruhlovanim ako pri vsetkych
> operaciach s floating point.
Title v gridu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 31.5.2002 15:04:39
> nevite nekdo o DBGridu, ktery by byl free a umoznoval vlastni
> vykresleni bunek s nazvy sloupcu? OnDrawDataCell i
> OnDrawColumnCell se v normalnim DBGridu vyvolaji pouze na
> datovych bunkach.
Mozes si overridnut DrawCell nejako takto:
procedure TDrawFixDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
if (gdFixed in AState) and (ACol > 0) and (ACol <= Columns.Count) then
DrawColumnCell(ARect, ACol, Columns[ACol - 1], AState)
else
inherited DrawCell(ACol, ARow, ARect, AState);
end;
a potom si napisat nejaky klasicky OnDrawColumnCell, kde si to vykreslis
podla chuti.
HTH
TOndrej
Stack size
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.5.2002 15:12:27
DD,
je nejaky rozumny duvod proc menit defaultni nastaveni velikosti
stacku u Win32 aplikace?
Jde me o vyuziti pameti, rychlost startu atd.
Vi nekdo jak se inicializuje zasobnik - cili zda je napriklad na swapu
alokovano tech 1MB coz je implicitni hranice velikosti stacku atd.
D. Toman
OT ? Pripojenie tlacidiel k PC cez LPT
[*] Erik Salaj <winsoft(zv)stonline.sk> - 31.5.2002 15:28:14
> Nechci od game portu nikoho zrazovat, samozrejme, ze to taky funguje,
navic
> tam je i napajeni, coz je vyhoda. Ale z praxe muzu rict, ze se to moc
> nepouziva (nesetkal jsem se s tim) a asi k tomu jsou nejake duvody.
mozno preto, ze game port nemusi byt k dispozicii na kazdom
pocitaci. Ale dnes uz takych pocitacov bude asi minimum,
pripadne by nemal byt problem tam ten game port doinstalovat.
Erik
Query a "dataset is read only"
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 31.5.2002 15:32:16
Ahoj,
mam nekolik tabulek (paradox). 1. otevru pomoci Table a dalsi otviram
"podminene" pomoci Query, ale jsou to uplne jine tabulky. S tou prvni m=
aji
spolecne akorat poradove cislo zaznamu.(orientacni bod)
Muzete mi nekdo rict proc nemuzu do tabulek otevrenych pomoci Query
pridat, editovat, odstranit zaznam?
Hlasi to, ze dataset is read only ... (nebo tak neco)
Zkousel jsem priklad, ze jsem si udelal obyc form, na ktery jsem dal Qu=
ery
a Button. Na OnClick toho Buttonu jsem dal pridat zaznam do toho Query
a zase ta sama hlaska. Query nema v Object inspektoru zadnou vlastnost
read only a datasource nemam vyplneny.
Kde je problem??
Diky Jiri Sokol
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Query a "dataset is read only"
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 31.5.2002 15:52:36
Pro editaci pres Query slouzi TUpdateSQL, ale lepsi je to delat asi rovnou
pres SQL "insert into" atd. Jinak pro primou editaci je mozno nastavit u
Query RequestLive na True, ale to mi nikdy nechodilo a nedoporucuje se to
pouzivat.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
To: "dotaz-delp" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 31, 2002 3:32 PM
Subject: Query a "dataset is read only"
Ahoj,
mam nekolik tabulek (paradox). 1. otevru pomoci Table a dalsi otviram
"podminene" pomoci Query, ale jsou to uplne jine tabulky. S tou prvni maji
spolecne akorat poradove cislo zaznamu.(orientacni bod)
Muzete mi nekdo rict proc nemuzu do tabulek otevrenych pomoci Query
pridat, editovat, odstranit zaznam?
Hlasi to, ze dataset is read only ... (nebo tak neco)
Zkousel jsem priklad, ze jsem si udelal obyc form, na ktery jsem dal Query
a Button. Na OnClick toho Buttonu jsem dal pridat zaznam do toho Query
a zase ta sama hlaska. Query nema v Object inspektoru zadnou vlastnost
read only a datasource nemam vyplneny.
Kde je problem??
Diky Jiri Sokol
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Query a "dataset is read only"
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 31.5.2002 15:55:34
Ak to Query spaja viac tabuliek do jedneho selectu, tak su jednotlive
tabulky ako read only.
T.j. musis si otvorit dalsie query, kt. bude pracovat len nad tou jednou
tabulkou, potom do nej mozes pridavat, uberat, upravovat zaznamy a po kazdej
takto prevedenej zmene si refreshni obsah to query co spojuje tie tabulky
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (153)
mobil: +420 724 296616
icq: 38493645 Balicky: debugovani, duplicita unit II
[*] Pavel Va�ek <delphi(zv)wige-mic(tec)cz> - 31.5.2002 16:25:34
Ahoj vsichni,
pred delsi dobou jsem mel dotaz na debagovani balicku.
>From: "Pavel Va�ek" <delphi(zv)wige-mic(tec)cz>
>> DEBUGOVANI
>> 2. Aplikace nahrava nektere balicky dynamicky pomoci funkce LoadPackage,
>> debugovani techto balicku nekdy jde, ale je to velice nahodne, napr. pul
>> dne pracujete a debagovat muzete a najednou to nejde, nekdy staci
prohodit
>> balicky v project groupe, nekdy nepomuze nic.
a take sem dostal par dobrych typu (diky za ne).
>Podivej se jestli nemas v Project Options nekde pouzite relativni cesty.
Pokud
>si vzpominam tak tohle byla nejaka chyba v debuggeru v Delphi 5. V pripade
ze
>balicek nejde ladit se podivej do Debug Windows | Modules jestli jej
debugger
>opravdu nasel.
Ted jsem ale dokazal vytvorit balicek, ktery ma absolutni cesty ma
zaskrtnute debagovani
(pro jistotu i v linkeru Remote debug symbols). Aplikace jej nacte v modules
teke jsou
nactene, ale v Event Logu je napsano:
"Module Load: plugin1.bpl. No Debug Info. Base Address: $01E30000.",
pritom sem nekolikrat kontroloval, jestli je opravdu balicek spravne
nastaven.
Jenom pro upresneni balickek je pridan do Project group, ze ktere uz jde
normalne
spustit. Nevite nekdo, co delam spatne?
Dekuji predem vsem chytrym hlavam za jejich odpovedi.
Pavel Vasek (WIN2000 D5 Ent. SP1)
delka *.mp3 v sekundach
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 31.5.2002 18:37:45
dobry den,
potreboval bych fci ktera mi vrati delku mp3 v sekundach, pokud mozno bez
pouziti TMediaPLayeru.
Diky.delka *.mp3 v sekundach
[*] Tomas Juricek <TJsof(zv)Seznam(tec)cz> - 31.5.2002 19:45:02
Podivej se na
http://jfaul.de/atl
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of 3dimenzion
Sent: Friday, May 31, 2002 6:38 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: delka *.mp3 v sekundach
dobry den,
potreboval bych fci ktera mi vrati delku mp3 v sekundach, pokud mozno
bez
pouziti TMediaPLayeru.
Diky.
FTP Client ActiveX Control
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 31.5.2002 20:35:05
Dobry den,
zalibila se mi komponenta FTP Client ActiveX Control kterou sem nasel v
rejstriku. Bohuzel mam verzi professional a tuto komponentu sem nenasel,
podle jedne knihy vsak neni patrne neni ani ve verzi enter. Muj dotza zni je
nutne stahnou a nainstalovat nejaky balicek ? Nevite kde tuto komponentu
sehnat ?
na strance M$ jsem nasel nejake info ale patrne ke starsi verzi. Muj
posledni dotaz neni mnou zminena komponenta nahrazena komponentou NMFTP ?
Predem diky.delka *.mp3 v sekundach
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 31.5.2002 21:45:06
Pokud vim tak tady se zabivaji pouze tagy ale delku v sekundach sem zde
nenasel.
> Podivej se na
> http://jfaul.de/atl
XML>TDataSet and TDataset>XML
[*] Roland Turcan <rolo(zv)sedas.sk> - 31.5.2002 22:00:24
Hello Delphi CZ konferencia!
1. Co pouzivate na prenos dat medzi dvoma databazami ak pouzivate XML
2. Je mozne pomocou XML prenasat aj BLOB ?
Dakujem
D5Pro,FB1.0,IBX5.03
--
Best regards, TRoland
Posilani e-mailu pres SMTP - automaticke vytaceni?
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 31.5.2002 22:06:35
Anebo neco najdes od Petra Vonese:
na http://delphi-jedi.org/Jedi:APILIBRARY si stahni RAS.zip
> Ahoj,
> hladaj komponentu DialUp.
> Lauko.
>
> Dobry den,
>
> pro posilani e-mailu z vlastni aplikace pouzivam komponentu NMSMTP.
> To funguje, pokud je pocitac na LAN siti nebo pokud pri pouziti modemu
> nejaka jina aplikace vytoci cislo a navaze spojeni. Je nejaka moznost, jak
> primo v Delphi realizovat vytaceni, tj. pripojeni se, a po odeslani zpravy
> automaticke odpojeni?
>
> Za odpoved predem dekuji,
> Michal Svantner
>
GUID
[*] Radomil Altner <radek.altner(zv)dece(tec)cz> - 03.5.2002 17:12:57
Ahoj vsichni.
Resim problem jednoznacne identifikace pocitace. Pro prostredi DOS jsem
to resil zjistenim cisla sitove karty pres IPX protokol. Ve Windows jsem
nevedel jak, az mi na jednom kurzu u Honzi Sebelika L. Bodecek poradil
funkci Cocreateguid. Z ni se to da vyzobnout. Problem ja ale v tom, ze
jak jsem nedavno zjisil, funkce sice funguje ve Win9x,ME,NT, ale pod W2k
vraci po kazdem zavolani uplne jine cislo, ktere nijak nesouvisi s
cislem sitove karty.
Je nejaka jina cesta zjisteni cisla karty pod W2k nebo existuje jina
jednoznacna identifikace konkretniho pocitace, ktera by se s casem
prilis nemenila?
Dekuji.
Stack size
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2002 02:32:02
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> je nejaky rozumny duvod proc menit defaultni nastaveni velikosti
> stacku u Win32 aplikace?
Ne.
> Jde me o vyuziti pameti, rychlost startu atd.
Rychlost startu je dana predevsim inicializacnim kodem.
> Vi nekdo jak se inicializuje zasobnik - cili zda je napriklad na swapu
> alokovano tech 1MB coz je implicitni hranice velikosti stacku atd.
Viz dokumentace, v hlavicce PE souboru jsou dva parametry, SizeOfStackCommit a
SizeOfStackReserve (coz je Min a Max base stack v Projects | Options). Prvni
je velikost ktera se prideli pri startu, druhy je pak celkova velikost
rezervovana casti v adresovem prostoru. Teoreticky by se dalo zvetsenim te
pocatecni velikosti neceho dosahnout, ale vysledek bude patrne mizivy.
Petr Vones
delka *.mp3 v sekundach
[*] Tomas Juricek <TJsof(zv)Seznam(tec)cz> - 1.6.2002 07:06:07
Unit MPEGaudio, trida TMPEGAudio, vlastnost Duration
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of 3dimenzion
Sent: Friday, May 31, 2002 9:45 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: delka *.mp3 v sekundach
Pokud vim tak tady se zabivaji pouze tagy ale delku v sekundach sem zde
nenasel.
> Podivej se na
> http://jfaul.de/atl
kontrola com portu
[*] bleak <bleak(zv)atlas(tec)cz> - 1.6.2002 10:41:15
tohle funguje, overeno ve W9X:
function PortRead(Addr:Word) : Byte;
asm
MOV DX,AX
IN AL,DX
end;
function CheckPrinterStatus(indPort:WORD): Boolean;
var
byte3:Byte;
begin
byte3:=PortRead(indPort+1);
if ((byte3 and 128)=0) then begin
// ShowMessage('printer not ready'+IntToStr(byte3));
result:=false;
end else begin
// ShowMessage('printer ready'+IntToStr(byte3));
result:= true;
end;
end;
----- Original Message -----
From: "Pavel Ales" <ales.pavel(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 31, 2002 8:14 AM
Subject: kontrola com portu
> Dobre rano vsem.
> Mam takovyto problem. Tisknu znakove na com port a potreboval bych
> kontrolu pri tisku jestli je pripojena nebo zapnuta tiskarna. TAkze pokud
> je tiskarna vypnuta tiska nesmi probehnou a program to musi oznamit
> uzivateli. Vyzkousel jsem komponentu AfcomPort a k nicemu to nevedlo.
> Nemate nekdo s timto problemem zkusenosti.
> S pozdravem Ales
Zeos komponenty a chyba pri ukonceni aplikace
[*] bleak <bleak(zv)atlas(tec)cz> - 1.6.2002 10:43:33
zkus pred ukoncenim programu zavrit vsechny tabulky a odpojit se od
databaze. Tohle mi to delalo taky.
bleak
----- Original Message -----
From: "David Janko" <djanko(zv)infoware(tec)cz>
> pouzivam Zeos komponenty pro praci s mysql a narazil jsem na toto:
> od jiste chvile, kdyz do projektu pridam dalsi komponentu (ZMysqlQuery
nebo
> ...Transact), tak pri ukonceni aplikace nastane chyba "Access violation at
parametr hhk v CallNextHookEx - konzultace
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 01.6.2002 14:51:20
> > Nebo jinak, co je treba v D5 opravit, aby to spolehlive fungovalo?
>
>Nic, je to vec RTL.
>
Prejiti na Delphi 6 toto vyresi? To uz necpe nejake "nebezpecne" kraviny do
inicializace DLL? S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Chyba v Delphi? RichEdit a Stream
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 01.6.2002 14:56:48
To neni pitomost, ale pouze kompatibilita. Protoze LoadFromStream by muselo
fungovat treba po znacich a hledat spravne rozlozeni RTF znacek, az by
narazilo na konec. Pak by to fungovalo. Problem je v tom, ze by borlandi
museli programovat RFP parser, coz takhle to parsuje RichEdit, coz je DLL
od Microsoftu.
>je to jedna z tech pitomosti, ktere Bobrland nedomyslel. Ono se sice
>ulozi do streamu obsah stringlistu, ale jiz si nezapise, jak je to
>velky, natoz aby se zpetne nacetlo pouze to, co bylo ulozeno. Proto v
>pripade, ze do/ze streamu posilas/ctes vice veci, musis si to
>naprogramovat sam (ne, neni to vtip), treba takto:
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Chyba v Delphi? RichEdit a Stream
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2002 15:02:09
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> je to jedna z tech pitomosti, ktere Bobrland nedomyslel. Ono se sice
> ulozi do streamu obsah stringlistu, ale jiz si nezapise, jak je to
> velky, natoz aby se zpetne nacetlo pouze to, co bylo ulozeno. Proto v
> pripade, ze do/ze streamu posilas/ctes vice veci, musis si to
> naprogramovat sam (ne, neni to vtip), treba takto:
Kdyby se do streamu pridavaly nejake dalsi hlavicky, tak by to pak neslo
pouzit uz vubec, protoze kdyz to ulozis na disk tak z toho vznikne nesmysl a
ne textovy/RTF format. Pokud chces neco jako structured storage tak si to
zkratka musis napsat nebo pouzit uz neco hotoveho.
Petr Vones
parametr hhk v CallNextHookEx - konzultace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.6.2002 15:05:56
From: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
> Prejiti na Delphi 6 toto vyresi? To uz necpe nejake "nebezpecne" kraviny do
> inicializace DLL?
Podle vseho uz ne, strucna historie:
Delphi 5 - inicializace DLL nenastavuje CW flag
Delphi 6 - inicializace DLL necte z registru polozku pro lokalizaci dokud se
poprve nepouzije nejaky resourcestring
Podle MS se v inicializaci DLL nema volat temer nic ;-) Cteni z registru patri
prave mezi problemove operace. Udajne se tim problem padajicich hook DLL
vyresil.
Petr Vones
IP adresy v LAN
[*] Petr Pa��enko <PetrPas(zv)volny(tec)cz> - 1.6.2002 18:14:36
Nevite nekdo, zda existuje zpusob, jak zjistit IP adresy v�ech pocitacu v
ramci jednoho segmentu LAN?
Take bych potreboval navod jak vytvorit zpravu, ktera by byla dorucena vsem
pocitacum na s�ti (broadcast).
Predem dekuji. Petr Pa��enko.
Zmensovanie obrazku
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 1.6.2002 18:52:16
Potrebujem zmensit obrazok v Image na 50% velkost do Image2. Ked to robim
cez Canvas.CopyRect, tak vysledok je uplne zdeformovany a hrozne to vyzera.
Ked Image jednoducho zmensim na polovicu, skopirujem tam obrazok a nastavim
Streetch na true, tak uz to vyzera krajsie. No zial nemozem tento obrazok
ulozit na disk, pretoze obrazok je v skutocnosti stale v povodnych rozmeroch
a ulozi sa vnich. Preto sa pytam: nema niekto z vas urobenu procedurku,
ktora by elegantne zmensovala/zvacsovala obrazok? (komponenty nechcem)
Vdaka za kazdu radu.
IP adresy v LAN
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.6.2002 21:54:51
> Nevite nekdo, zda existuje zpusob, jak zjistit IP adresy v�ech pocitacu v
> ramci jednoho segmentu LAN?
jedina metoda, ktera vede k cili (pokud neni na stanicich nejaky personal
firewall) je propingat vsechny potencialni adresy (cili propingat celou
subnetu). Nektere OS (windows mezi ne nepatri) odpovidaji na
ICMP_ECHOREQUEST poslanou jako broadcast (cili najednou ziskas vice odpovedi
napriklad ze vsech Linuxu).
Z pasivnich metod muzes zvolit odposlech packetu (at vsech IP packetu nebo
jen sledovani ARP provozu). WinSock 2 socket muze sledovat cely provoz na
siti...
> Take bych potreboval navod jak vytvorit zpravu, ktera by byla dorucena
vsem
> pocitacum na s�ti (broadcast).
vytvoris SOCK_DGRAM socket, a pomoci setsockopt nastavis SO_BROADCAST flag
D. Toman
Jak spustit service ze site?
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 1.6.2002 23:07:37
----- Original Message -----
From: "Jirka Virt" <virt(zv)volny(tec)cz>
> Ahoj,
> mam napsanou Service Aplikaci a potreboval bych ji poustet ze sitoveho
> adresare.
> Ale to se mi bohuzel nedari.
> Nainstaluji-li z lokalniho disku je vse O.K.Ale ze sitoveho li pouze
> nainstaluji a nelze ji spustit.Nejedna se pry o lokalni aplikaci.
> Nemate tip/trik jak toto obejit.
Ahoj.
Osobn� bych service tedy na sd�len� disk ned�val. Jak� to m� ��el ?
Jinak mne napad�, �e mus� za��t startovat a� kdy� je nastartovan� s�,
tak�e asi nastavit z�vislost na slu�b� Computer Browser.
Lud�k
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.365 / Virov� b�ze: 202 - datum vyd�n�: 24.5.2002
Binarni nacitani a zapisovani souboru
[*] jan cerny <jan.cerny(zv)webstation(tec)cz> - 2.6.2002 01:06:51
Zdravim ve spolek mam takovej, pro vas nejspise lama dotazek ale cely
den nad tim sedim a zaboha se mi to nedari zprovoznit...
oco tedy jde... mam nekolik souboru ... jpg a ty bych postupne potreboval
nacist a zapsat do jednoho souboru a postupne je oddelovat nejakym
kusem znaku.( treba !MEZERA! )
Nekdo mi poradil ze mam pouzit Filestream-y ale jelikoz v
delphi programuji jen zridka a to jen na urovni vycvicene opice
absolutne si s tim nevim rady
jedine k cemu jsem dospel je tohle /*dole*/ a to jeste k nastvani nefunguje :(
btw: zlaty phpka tam tohle bylo otazkou nekolika radek :(
Prosim poradte ... thx
procedure TForm1.Button1Click(Sender: TObject);
var
f: file of Byte; // kvuli zjisteni velikosti souboru
result : Longint;
fin, fout: Tfilestream;
size : integer;
begin
if Form1.OpenPictureDialog1.Execute then
begin
result := 0;
fin := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead or fmShareDenyNone);
AssignFile(f, OpenPictureDialog1.FileName); // \
Reset(f); // +- zjisteni
size := FileSize(f); // / velikosti
try
fin.Seek(0, soFromBeginning);
fin.Read(result,size);
finally
fin.Free;
end;
fout := tfilestream.Create('test.gnx',fmCreate or fmShareDenyNone);
try
fout.seek(0, soFromBeginning);
fout.Write(result,size);
finally
fout.Free;
end;
end;
end;
______________________________________________________
|C|H|H|E|M|I|K|S|
design & code +420 723 326 744
Jan Cerny jan.cerny(zv)webstation(tec)cz
Zmensovanie obrazku
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 2.6.2002 13:20:49
O zmensovani obrazku vysel clanek na zive(tec)cz - Tipy a triky v Delphi, d�l
35.
http://www.zive(tec)cz/H/Developerdaily/Ar.asp?ARI=104914&CAI=2091&EXPS=%22SCALE
X%2A%22
> Potrebujem zmensit obrazok v Image na 50% velkost do Image2. Ked to robim
> cez Canvas.CopyRect, tak vysledok je uplne zdeformovany a hrozne to
vyzera.
> Ked Image jednoducho zmensim na polovicu, skopirujem tam obrazok a
nastavim
> Streetch na true, tak uz to vyzera krajsie. No zial nemozem tento obrazok
> ulozit na disk, pretoze obrazok je v skutocnosti stale v povodnych
rozmeroch
> a ulozi sa vnich. Preto sa pytam: nema niekto z vas urobenu procedurku,
> ktora by elegantne zmensovala/zvacsovala obrazok? (komponenty nechcem)
>
> Vdaka za kazdu radu.
>
>Zeos komponenty a chyba pri ukonceni aplikace
[*] David Janko <djanko(zv)infoware(tec)cz> - 2.6.2002 15:00:48
Dik za odpoved - ale ono se to stane aniz bych se vubec pripojoval - ty
komponenty se vubec nepouzivaji a presto to nastane ... zatim jsem to
"vyresil" tim ze jsem to dal do try ... except a nechal to ignorovat ;-)
Moc se mi to nelibi, ale co se da delat ....
----- Original Message -----
From: "bleak" <bleak(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, June 01, 2002 10:43 AM
Subject: Re: Zeos komponenty a chyba pri ukonceni aplikace
> zkus pred ukoncenim programu zavrit vsechny tabulky a odpojit se od
> databaze. Tohle mi to delalo taky.
> bleak
>
>OT: NT a presmerovani
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.6.2002 20:35:35
Ve svem starsim programu (Pdox 4) pouzivam volani attrib s presmerovanim do
souboru (RUN "attrib bla bla >att.txt). Nyni by mel tento program chodit na
XP, kde ale stejne jako na NT presmerovani takto nefunguje. Nejsa znalcem
NT, nevim, zda a jak je mozne z DOS prostredi pod NT neco podobneho zaridit.
Predem diky za kazdou radu,
Martin Burle
Qreport - tisk na konec
[*] Volny <valentapat(zv)volny(tec)cz> - 2.6.2002 21:45:20
Zdravim s dotazem
V Qreportu potrebuju vytisknout kousek textu na konci kazde stranky....
PageFooter
Pak chci ale pouze na posledni stranku dalsi text se stejnym umistenim jako
pageFooter, a nejak na to nemuzu prijit...
Dva "pagefootery" se mi nejak bijou....
valik
ICQ 54152896
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.345 / Virov� b�ze: 193 - datum vyd�n�: 9.4.2002
Qreport - tisk na konec
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 2.6.2002 22:12:16
Tak pouzij Summary a pred jeho tiskem si vypni ten PageFooter, aby se
Ti potom jeste nevytiskl.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Zdravim s dotazem
> V Qreportu potrebuju vytisknout kousek textu na konci kazde stranky....
> PageFooter
> Pak chci ale pouze na posledni stranku dalsi text se stejnym umistenim jako
> pageFooter, a nejak na to nemuzu prijit...
> Dva "pagefootery" se mi nejak bijou....NT a presmerovani
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.6.2002 22:25:20
> to me prekvapuje, ja to tak delam na win 2000, coz jsou
> AFAIK NT50
>
> zkus pouzit celou cestu:
> attrib -parametry... > C:\CESTA\VYSTUP.TXT
Faktem je, ze na svem kompu XP nemam, a podle zakona schvalnosti mi
nefunguji po vcerejsi vymene disku ani win2000, dostanu se pouze do jakesi
console, kde se mi zda, ze se uplne jinak chova attrib jako takovy, napr.
"attrib jmeno_souboru" vyhodi na rozdil od klasickeho dosu chybu misto
vysledku. Takze chyba zrejme nebude v presmerovani, jak se mi zdalo. Na
presmerovani jsem usuzoval z toho, ze txt soubor vubec nevznikl. Diky,
Martin Burle
link v MessageBoxu pres API
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 03.6.2002 07:15:58
ahoj,
muzete mi nekdo poradit, jak vytvorit link (modry, se zmenou kursoru
pri najeti) v okne pomoci API? Zatim pouzivam MessageBox - je potreba
vytvorit klasicky form pres CreateWindow, vcetne obsluhy zprav nebo
je mozne takovy link vytvorit primo uz ve zobrazenem dialogu.
Jeste jeden: je nutne volat UnregisterClass, uvolni se trida
automaticky pri destroy?
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
SELECT * FROM :table_name - jak na nej
[*] <little_bobes(zv)centrum(tec)cz> - 3.6.2002 08:18:14
Zdravim,
potrebuji v IB provadet kontrolu spravnych udaju, bohuzel to ale nejde vyresit pomoci foreign key.
Jedinym resenim jsou triggery, ve kterych bych musel zadat dotazy typu (pouze pro ilustraci):
FOR SELECT jmeno tabulky
FROM seznam tabulek
INTO :table name
DO
BEGIN
SELECT COUNT(sloup1)
FROM :table name /* ale jak tohle udelat?*/
WHERE (sloup1 = :udaje)
INTO :pocet
IF (pocet ...) ...
END
Neznate nekdo zpusob, jak toto ( FROM :table name ) provest?
Data tam vkladam pomoci vlastniho formulare v Delphi, kde to mohu osetrit kodem.
Ale data se tam mohou vkladat treba dotazem z Paradoxu. A to uz se samo neochrani.
Predem dekuji za pomoc
Bob
Qreport - pocet stranek, tisk pouze zadane stranky
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 3.6.2002 08:31:16
Ahoj,
uz se to tu urcite probiralo, ale nedari se mi to v archivu najit:
1. potrebuji vytisknou cislo stranky ve tvaru "aktualni stranka/celkovy
pocet stranek". Jak ziskat celkovy pocet stranek dokumentu ?
2. jak vytisknout pouze urcitou stranku(urcite stranky), napr. pouze
posledni stranku ?
Diky za kazde postrceni Pavel
TQuery a tvorba SQL s odkazem na TTable
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 03.6.2002 08:47:28
Ahoj,
mam dotaz ohledne tvorby SQL prikazu. V aplikaci pouzivam TTable a TQUe=
ry.
Pricemz TQuery pouzivam na dotazy k ty tabulce. Zatim to delam tak, ze =
mam
tabulku : data.db a na tu se vzdycky odkazu. Cili delam SQL takto:
select * from data.db
pricemz data.db je fyzicky soubor s daty umisteny na siti. Jenze kdyz t=
o beha po
siti (ta tabulka je dost velka), tak pri kazde zmene SQL prikazu musim =
TQuery
zavrit, zmenit SQL, otevrit - coz strasne dlouho trva. Po celou dobu ma=
m otevrenou
tu stejnou tabulku v komponente TTable - Table1.
Nejde nejak napsat ten SQL prikaz, aby to odkazovalo na tu otevrenou ta=
bulku
v ty komponente TTable? Neco jako:
select * form table1 //table1 je nazev komponenty tridy TTable
proste, aby si to neslo pro data po siti, ale primo do ty otevreny tabu=
lky v TTable,
ktera jak doufam, je v pameti??
Diky
Jiri Sokol
______________________________________________________________________
Reklama:
Na Bilem Zbozi nyni slevy az 15% !!
http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku
OT: Konference Microsoft Visual C++ 6.0
[*] <Zdenek.Gala(zv)datis.cdrail(tec)cz> - 3.6.2002 08:57:17
Zdrav=EDm,
nev=EDte pros=EDm o n=ECjak=E9 dobr=E9 konferenci jako je tato, zab=EDv=
aj=EDc=ED se subj.
D=ECkuji, DZDZD.
=
OT: Konference Microsoft Visual C++ 6.0
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 03.6.2002 09:04:33
Ahoj,
> Zdenek.Gala(zv)datis.cdrail(tec)cz 3.6.02 8:57 >>>
>nev=EDte pros=EDm o n=ECjak=E9 dobr=E9 konferenci jako je tato, =
zab=EDvaj=EDc=ED se subj.
http://forum.builder(tec)cz/list.php?f=3D23
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Konference Microsoft Visual C++ 6.0
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 3.6.2002 09:08:01
Mrkni na www.builder(tec)cz.
Petr
Zdrav�m,
nev�te pros�m o n�jak� dobr� konferenci jako je tato, zab�vaj�c� se subj.
D�kuji, DZDZD.
Qreport - pocet stranek, tisk pouze zadane stranky
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 3.6.2002 09:10:25
1.
with qreport
do begin
prepare; //vygeneruje report
QLstran.caption:='/'+inttostr(QRPrinter.Pagecount);
//pred tymto lebelomm je nejaky expression s [cislom_stranky]
preview; // zobrazit
end;
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lstiburek Pavel
Sent: Monday, June 03, 2002 8:31 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Qreport - pocet stranek, tisk pouze zadane stranky
Ahoj,
uz se to tu urcite probiralo, ale nedari se mi to v archivu najit:
1. potrebuji vytisknou cislo stranky ve tvaru "aktualni stranka/celkovy
pocet stranek". Jak ziskat celkovy pocet stranek dokumentu ?
2. jak vytisknout pouze urcitou stranku(urcite stranky), napr. pouze
posledni stranku ?
Diky za kazde postrceni Pavel
TQuery a tvorba SQL s odkazem na TTable
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.6.2002 09:12:58
> pricemz data.db je fyzicky soubor s daty umisteny na siti. Jenze kdyz
> to beha po siti (ta tabulka je dost velka), tak pri kazde zmene SQL
> prikazu musim TQuery zavrit, zmenit SQL, otevrit - coz strasne dlouho
> trva. Po celou dobu mam otevrenou tu stejnou tabulku v komponente
> TTable - Table1.
>
> Nejde nejak napsat ten SQL prikaz, aby to odkazovalo na tu otevrenou
> tabulku v ty komponente TTable? Neco jako:
>
> select * form table1 //table1 je nazev komponenty tridy TTable
>
Ahoj,
tohle nepujde. Rychlost muzes zvysit jedine vhodne sestavenymi SQL
dotazy, abys napr. netahal data, ktera te nezajimaji, tj. napr. misto select *
psat konkretni jmena sloupcu, misto select * from Table + pouzivani filtru
(netvrdim, ze to delas) pouzivat v dotazu where tak, aby vracel jen radky,
ktere Te zajimaji, mit indexy na pole, podle kterych vyhledavas apod.
David Lebeda
XML>TDataSet and TDataset>XML
[*] bardon <bardon(zv)akord-soft(tec)cz> - 3.6.2002 09:13:59
1. Ja pouzivam metody ADODatasetu SaveXML a Load.
2. Ano
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Roland Turcan
Sent: Friday, May 31, 2002 10:00 PM
1. Co pouzivate na prenos dat medzi dvoma databazami ak pouzivate XML
2. Je mozne pomocou XML prenasat aj BLOB ?
XML>TDataSet and TDataset>XML
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 3.6.2002 09:36:45
Zkousim delat totez, celkem uspesne jsem to spratelil s MSSQL2000, ale
nedari se mi ulozit XML do Streamu a natahnout to z nej.
Nevis jak na to ?
Diky Pavel
> From: bardon [mailto:bardon(zv)akord-soft(tec)cz]
>
>
> 1. Ja pouzivam metody ADODatasetu SaveXML a Load.
> 2. Ano
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Roland Turcan
> Sent: Friday, May 31, 2002 10:00 PM
> 1. Co pouzivate na prenos dat medzi dvoma databazami ak pouzivate XML
> 2. Je mozne pomocou XML prenasat aj BLOB ?
Velikost Canvasu TTreeViewu
[*] David Men��k <mensikd(zv)seznam(tec)cz> - 3.6.2002 10:20:02
Zdravim,
jak zjistim velikost Canvasu od TTreeView? ClientRect je pouze vyrez co je
videt, ja potrebuju zkopirovat cely Canvas. Jak tedy zjistim rozmery
Canvasu?
Ozon
P.S. Nebo jinak - existuje jiny zpusob tisku obsahu TTreeView komponenty,
nez zkopirovani Canvasu?
SELECT * FROM :table_name - jak na nej
[*] Rado Benc <bego(zv)pobox.sk> - 3.6.2002 10:34:50
little_bobes(zv)centrum(tec)cz wrote:
> Jedinym resenim jsou triggery, ve kterych bych musel zadat dotazy typu
> (pouze pro ilustraci):
>
> FOR SELECT jmeno_tabulky
> FROM seznam_tabulek
> INTO :table_name
> DO
> BEGIN
> SELECT COUNT(sloup1)
> FROM :table_name /* ale jak tohle udelat?*/
> WHERE (sloup1 = :udaje)
> INTO :pocet
> IF (pocet ...) ...
> END
>
> Neznate nekdo zpusob, jak toto ( FROM :table_name ) provest?
Ak chces ziskat zoznam tabuliek, da sa to urobit napriklad takto:
SQL> CREATE PROCEDURE USER_TABLES
CON> RETURNS (TABLE_NAME VARCHAR(32)) AS
CON> BEGIN
CON> FOR SELECT RDB$RELATION_NAME FROM RDB$RELATION_FIELDS
CON> WHERE (RDB$VIEW_CONTEXT IS NULL) AND
CON> (RDB$RELATION_NAME NOT LIKE 'RDB$%')
CON> GROUP BY RDB$RELATION_NAME
CON> INTO :TABLE_NAME
CON> DO
CON> BEGIN
CON> SUSPEND;
CON> END
CON> END
CON> ^
SQL> SET TERM ; ^
SQL> COMMIT WORK;
SQL> SELECT * FROM USER_TABLES;
TABLE_NAME
================================
ACCOUNT
CASHFLOW
T1
T2
Funguje to len za predpokladu, ze nanazves svoje tabulky RDB$NIECO
(mimochodom, to nerob :-)).
Tento zoznam mozes potom prechadzat Tvojim for select...
> Data tam vkladam pomoci vlastniho formulare v Delphi, kde to mohu
> osetrit kodem.
Ak tomu ale dobre rozumiem, potrebujes nieco ine. Sorry, ale nie je mi
celkom jasne, o co Ti vlastne ide.
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - urcujeme trendy
Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 03.6.2002 10:50:53
> Ahoj,
>
> tohle nepujde. Rychlost muzes zvysit jedine vhodne sestavenymi SQL
> dotazy, abys napr. netahal data, ktera te nezajimaji, tj. napr. misto select *
> psat konkretni jmena sloupcu, misto select * from Table + pouzivani filtru
> (netvrdim, ze to delas) pouzivat v dotazu where tak, aby vracel jen radky,
> ktere Te zajimaji, mit indexy na pole, podle kterych vyhledavas apod.
>
> David Lebeda
>
Takze mam nebo nemam vytvaret indexy. Pouzivam tabulky typu Paradox a uz nekolikrat
jsem tady dostal radu indexy nepouzivat.
Tak jak je to?
Pomuzou mi indexy, kdyz s tabulkou pracuju jen pomoci TQuery, ktera nema vlastnost
index?? Vyuzije se to treba automaticky pri vykonavani SQL dotazu? Jestli jo,
tak by to vyznam melo.
Diky za odpovedi a napady
Jiri
Sokol
______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz
Table.InsertRecord() - zasanie vety
[*] Slavomir Cekel <cekel(zv)noves.sk> - 3.6.2002 11:03:28
ako zapisem hodnoty do Table.InsertRecord() ked jeden field tabulky je
typu AutoInc ???
napr. Field1: riadok typu AutoInc
Field2: cisloosoby typu Short
Table.InsertRecord([?,123]); Co dat miesto "?"
System Error 87
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 3.6.2002 11:08:39
Servus vsem,
narazil sem na velky problem. Mam aplikaci, ktera byla puvodne napsana v D4.
Ted mam D6 Prof. Po komiplaci to spustim, zacne nacitani knihoven a
ostatnich veci a nekdev tomhle miste to vyhodi: System Error: EOSError 87.
Pote se objevi nekolik oken ze: aplikace vykonala neplatnou operaci v modulu
'neznamy', 'Kernel.exe', atd ...
Nevite co to je? Zkusil sem to zpustit pres Delphi (Run), ale jak se mi
objevilo to oknou s chybou, neslo ani OK ani Help - proste Delphi zatuhne a
s ni i PC....
Servus Rumcajs
SELECT * FROM :table_name - jak na nej
[*] <little_bobes(zv)centrum(tec)cz> - 3.6.2002 11:14:05
Zkusim to vysvetlit snad srozumitelneji:
Potrebuji provadet kontrolu vkladanych dat.
Jelikoz to nejde udelat pomoci foreign key, chci napsat triggery.
V nich chci pouzit dotazy tohoto typu:
1. z jedne tabulky (treba i systemove) si na zaklade podminky vyjedu
seznam mych tabulek
(to resi tvuj priklad)
a nyni
2. pro kazdou takto zjistenou tabulku potrebuji udelat nejaky dotaz typu
SELECT neco FROM :jednotliva_tabulka
coz mi IB nedovoluje, protoze za FROM nesmi (?) byt promenna, ale
konkretni jmeno tabulky.
Kdybych pouzival pro praci s touto databazi pouze svuj program v Delphi,
vyresim si tu kontrolu parametrem v TQuery.
Bohuzel se ale data budou vkladat i pomoci napr. Paradoxu, musim (a hlavne
chci) maximum kontrol provadet primo ve strukture GDB.
Kdyz to zobecnim:
Jak udelat dotaz typu SELECT s parametrem za prikazem FROM?
Bob
----- P�vodn� zpr�va -----
Od: "Rado Benc" <bego(zv)pobox.sk>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 3. �ervna 2002 10:34
P�edm�t: Re: SELECT * FROM :table_name - jak na nej
> little_bobes(zv)centrum(tec)cz wrote:
> > Jedinym resenim jsou triggery, ve kterych bych musel zadat dotazy typu
> > (pouze pro ilustraci):
> >
> > FOR SELECT jmeno_tabulky
> > FROM seznam_tabulek
> > INTO :table_name
> > DO
> > BEGIN
> > SELECT COUNT(sloup1)
> > FROM :table_name /* ale jak tohle udelat?*/
> > WHERE (sloup1 = :udaje)
> > INTO :pocet
> > IF (pocet ...) ...
> > END
> >
> > Neznate nekdo zpusob, jak toto ( FROM :table_name ) provest?
>
> Ak chces ziskat zoznam tabuliek, da sa to urobit napriklad takto:
>
> SQL> CREATE PROCEDURE USER_TABLES
> CON> RETURNS (TABLE_NAME VARCHAR(32)) AS
> CON> BEGIN
> CON> FOR SELECT RDB$RELATION_NAME FROM RDB$RELATION_FIELDS
> CON> WHERE (RDB$VIEW_CONTEXT IS NULL) AND
> CON> (RDB$RELATION_NAME NOT LIKE 'RDB$%')
> CON> GROUP BY RDB$RELATION_NAME
> CON> INTO :TABLE_NAME
> CON> DO
> CON> BEGIN
> CON> SUSPEND;
> CON> END
> CON> END
> CON> ^
> SQL> SET TERM ; ^
> SQL> COMMIT WORK;
> SQL> SELECT * FROM USER_TABLES;
>
> TABLE_NAME
> ================================
>
> ACCOUNT
> CASHFLOW
> T1
> T2
>
> Funguje to len za predpokladu, ze nanazves svoje tabulky RDB$NIECO
> (mimochodom, to nerob :-)).
>
> Tento zoznam mozes potom prechadzat Tvojim for select...
>
> > Data tam vkladam pomoci vlastniho formulare v Delphi, kde to mohu
> > osetrit kodem.
>
> Ak tomu ale dobre rozumiem, potrebujes nieco ine. Sorry, ale nie je mi
> celkom jasne, o co Ti vlastne ide.
>
> FWIW,
>
> Rado
>
> ____________________________________
> http://www.pobox.sk/ - urcujeme trendy
>
>
>SELECT * FROM :table_name - jak na nej
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 3.6.2002 11:15:09
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of little_bobes(zv)centrum(tec)cz
Subject: SELECT * FROM :table_name - jak na nej
Ahoj,
[...]
>FOR SELECT jmeno_tabulky
> FROM seznam_tabulek
> INTO :table_name
> DO
> BEGIN
> SELECT COUNT(sloup1)
> FROM :table_name /* ale jak tohle udelat?*/
> WHERE (sloup1 = :udaje)
> INTO :pocet
> IF (pocet ...) ...
> END
>Neznate nekdo zpusob, jak toto ( FROM :table_name ) provest?
To bych taky rad vedel. Ja bych zase jmeno tabulky potreboval
dynamicky dosadit v SP pomoci predanych parametru. Zatim sem
na to neprisel. Vite nekdo?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
SELECT * FROM :table_name - jak na nej
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.6.2002 12:03:01
----- Original Message -----
From: <little_bobes(zv)centrum(tec)cz>
>
> Kdyz to zobecnim:
> Jak udelat dotaz typu SELECT s parametrem za prikazem FROM?
>
To prave nelze zevnitr triggeru a ulozenych procedur, protoze ty se
na IB/FB predkompiluji. Proc nechces pouzit klasickou ref.integritu,
tedy cizi klice?
Martin Schayna
read-only promenna Text v ComboBox
[*] tomsir1.edu(zv)mail.cez(tec)cz - 3.6.2002 12:07:25
Ahoj,
dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
aby ji uzivatel nemohl editovat.
Diky za rady
Radek
SELECT * FROM :table_name - jak na nej
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.6.2002 12:10:22
> >FOR SELECT jmeno_tabulky
> > FROM seznam_tabulek
> > INTO :table_name
> > DO
> > BEGIN
> > SELECT COUNT(sloup1)
> > FROM :table_name /* ale jak tohle udelat?*/
> > WHERE (sloup1 = :udaje)
> > INTO :pocet
> > IF (pocet ...) ...
> > END
>
> >Neznate nekdo zpusob, jak toto ( FROM :table_name ) provest?
Tohle podle me nejde. Aspon na FB ne. Ani me nenapada zadna finta, jak
to obejit.
David Lebeda
read-only promenna Text v ComboBox
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 3.6.2002 12:19:40
No jestli jsem to spravne pochopil, tak by stacilo dat style na DropDownList
a pro zvoleni ItemIndex:=cislo se preci do text soupne polozka z
Items[ItemIndex] ne?.
Pavel
Ahoj,
dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
aby ji uzivatel nemohl editovat.
Diky za rady
Radek
Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.6.2002 12:21:34
> Takze mam nebo nemam vytvaret indexy. Pouzivam tabulky typu Paradox a
> uz nekolikrat jsem tady dostal radu indexy nepouzivat. Tak jak je to?
> Pomuzou mi indexy, kdyz s tabulkou pracuju jen pomoci TQuery, ktera
> nema vlastnost index?? Vyuzije se to treba automaticky pri vykonavani
> SQL dotazu? Jestli jo, tak by to vyznam melo.
>
Ahoj,
nepouzivat na Paradoxu indexy je podle meho nazoru nesmysl, jelikoz by
aplikace pak byla lina. Netvrdily spis ty rady, ze se nema pouzivat cely
Paradox?
Jinak Query nemuze mit property index, protoze muze provadet
dotaz z vice tabulek a tam bys to tezko zadaval. Uz jsem s Paradoxem
hodne dlouho nedelal, ale predpokladam, ze BDE index automaticky
pouzije pri realizaci query.
Je pravda, ze sesypani indexu ci poskozeni indexovych souboru je
na paradoxu zrejme pomerne casty jev, zejmena pri vypadku proudu,
restartu pocitace ci jine neocekavane udalosti, ale to je holt dan za pouziti
Paradoxu. I kdyby nikde jinde, tak pri vyhledavani zaznamu index smysl
ma: mas-li index, muzes pouzivat FindKey, FindNearest apod. a chodi to
velmi rychle, zatimco bez indexu Ti zbyva jen Locate, coz obnasi neco jako
while not table.eof do, zkratka prolezt vsechny zaznamy a to svistet
rozhodne nebude.
David Lebeda
read-only promenna Text v ComboBox
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.6.2002 12:22:39
Nastav si Styl na List. pak pujde pouze vybrat polozku ze seznamu.
Prednastaveni polozky se provede pres nastaveni ItemIndex na
prislusnou polozku z Items
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.6.2002 tomsir1.edu(zv)mail.cez(tec)cz:
> dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
> zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
> aby ji uzivatel nemohl editovat.
Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 3.6.2002 13:16:56
> zatimco bez indexu Ti zbyva jen Locate, coz
> obnasi neco jako while not table.eof do,
> zkratka prolezt vsechny zaznamy
Locate tiez pouziva indexy, ak su vytvorene.
TOndrej
read-only promenna Text v ComboBox
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 3.6.2002 13:16:59
TComboBox.Style := csDropDownList
Coz se takhle podivat do archivu, uz to tu bylo mockrate...
J.M.
> Ahoj,
> dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
> zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
> aby ji uzivatel nemohl editovat.
>
> Diky za rady
> Radek
Delphi & Windows CE
[*] likeapear <likeapear(zv)centrum(tec)cz> - 3.6.2002 13:22:48
nevite nekdo zda budou popdporovat delphi windows ce?
likeapear
Delphi & Windows CE
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 3.6.2002 13:25:37
O tomhle dost silne pochybuju .... pro WinCE je (podle mych informaci a
podle toho v cem delam) jen Visual Embedded tools .... coz je VC++3 a VB.
Petr
> nevite nekdo zda budou popdporovat delphi windows ce?
>
> likeapear
SELECT * FROM :table_name - jak na nej
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.6.2002 13:30:17
> Kdyz to zobecnim:
> Jak udelat dotaz typu SELECT s parametrem za prikazem FROM?
to AFAIK nelze. ne na BI/FB.
ja to vidim tak, ze si kontrolni dotaz musis vytvorit pro kazdou
tu svoji tabulku. tedy bude to konkretni resi v ramci jedne databaze.
pokud pridas novou tabulku, musis pro ni odpovidajicim zpusobme
upravit dotycne triggery a SP.
mozna, kdyz reknes, co se ma vlastne kontrolovat a proc vlastne,
tak ti budeme schopni poradit jine a mozna i lepsi reseni.
dekuji PeC(zv)
dynamicke vytvorenie stranky v QuickReport
[*] Tomas Klimes <klimes(zv)dmasys.sk> - 3.6.2002 13:32:07
Vie mi niekto poradit ako sa dynamicky vytvara nova stranka v QR?
Potrebujem dynamicky vytvorit viacstranovy dokument a prvu stranu si
vytvorim v pohode, ale neviem akym sposobom vytvorit dalsiu novu stranu,
tak aby v preview nasledovali za sebou.
SELECT * FROM :table_name - jak na nej
[*] <little_bobes(zv)centrum(tec)cz> - 3.6.2002 13:33:42
Ja bych je strasne rad pouzil, ale nejde to.
Zde je duvod:
- TAB_1 obsahuje kody zarizeni (musi byt pouze jedna tabulka, nemuze byt
rozdelena)
- TU_1 az TU_X obsahuji technicke udaje ruznych zarizeni (cerpadla v jedne,
motory v jine, ventily v dalsi, ...)
- TAB_PROP obsahuje prirazeni udaju z TAB_1 k udajum TU_1 az TU_X, protoze
nektere prvky v TAB_1 maji technicke udaje v TU_1, jine v TU_2, atd.
Zatim TAB_PROP resim tak, ze ma tyto sloupce
KOD - cislo radku z TAB_1
TU - jmeno jedne z tabulek TU_1 az TU_X (je zde fyzicke jmeno tabulky
tak jak nadefinovane)
TU_CISLO - cislo radku v tabulce, jejiz jmeno je ve sloupci TU
Sloupce KOD a TU mam osetrene pomoci referencni integrity, abych nezadal
neco, co neexistuje.
Problem nastava se sloupcem TU_CISLO, ktery zatim bohuzel nedokazu nijak
kontrolovat.
Bob
----- P�vodn� zpr�va -----
Od: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 3. �ervna 2002 12:03
P�edm�t: Re: SELECT * FROM :table_name - jak na nej
>
> ----- Original Message -----
> From: <little_bobes(zv)centrum(tec)cz>
> >
> > Kdyz to zobecnim:
> > Jak udelat dotaz typu SELECT s parametrem za prikazem FROM?
> >
>
> To prave nelze zevnitr triggeru a ulozenych procedur, protoze ty se
> na IB/FB predkompiluji. Proc nechces pouzit klasickou ref.integritu,
> tedy cizi klice?
>
> Martin Schayna
>
>
>read-only promenna Text v ComboBox
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 3.6.2002 13:43:55
ComboBox1.ItemIndex := i;
i - cislo polozky z listu
Style := csDropDownList;
Lze pouze vybirat polozky z listu, nelze do komponenty psat.
Servus Rumcajs
>
> Ahoj,
> dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
> zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
> aby ji uzivatel nemohl editovat.
>
> Diky za rady
> Radek
>
>
>
package always-build
[*] Peter Surovy <psurovy(zv)uevora.pt> - 3.6.2002 12:50:06
Ahoj
spravil som si balik, ktory obsahoval
iny balik ktory bol always-build.
Novy balik som spravil len podla Delphi teda nic
som neprestavoval vsetko bolo default.
Pri preklade balika vznikla chyba :
Never-build package 'new' requires always-build package 'old'
tak som podla helpu najskor
ulozil new vosiel do new.dpk a vymazal
(*$IMPLICITBUILD OFF*) co mi ale nepomohlo :-(
tak som isiel do old.dpk prepisal
(*$IMPLICITBUILD ON*) na (*$IMPLICITBUILD OFF*)
co mi sice pomohlo ale teraz mam vycitky svedomia
a zly pocit lebo neviem co som spravil
a ake to moze mat nasledky a ci kontrola
ktora sa vykonavala automaticky teraz zostane na mne?
Dik
Peter Surovy
OT: Thread
[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 03.6.2002 14:15:45
Zdravim konferenci.
Narazil jsem na nasledujici problem:
Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
Execute jsem napsal casove velmi narocny algorimus.
Spustim kod.
Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
na stisk klaves atp.). I kdyz by se spravne zpracovavat mely, protoze
je to jiny thread.
Muzete mi prosim poradit - co delam spatne/na co jsem zapomnel ?
V Execute nechci pouzivat application.processmessages.
Diky za kazdou radu
J.Z.
Delphi 6 SP2
WinXP
______________________________________________________________________
Reklama:
Kam do kina ci divadla? http://kultura.seznam(tec)cz
SELECT * FROM :table_name - jak na nej
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 3.6.2002 14:16:06
Ale v tom pripade bych se zamyslel nad jinou strukturou DB. Konkretne by to
mohlo byt tak, ze budes mit pouze dve tabulky:
TAB_1 se stejnym vyznamem a TU, ktera bude v radcich (nikoliv ve sloupcich)
mit ty technicke udaje. V tabulce TAB_PROP muzes mit napr. vsechny hodnoty
(tj. radky), ktere musi obsahovat to ktere zarizeni a pomoci triggeru to
kontrolovat. Ja to mam takto pouzite a nedovedu si predstavit jine
flexibilni reseni. Kdykoliv muzu pridat novou nebo zrusit stavajici
vlastnost...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Zde je duvod:
> - TAB_1 obsahuje kody zarizeni (musi byt pouze jedna tabulka, nemuze byt
> rozdelena)
> - TU_1 az TU_X obsahuji technicke udaje ruznych zarizeni
> (cerpadla v jedne,
> motory v jine, ventily v dalsi, ...)
> - TAB_PROP obsahuje prirazeni udaju z TAB_1 k udajum TU_1 az TU_X, protoze
> nektere prvky v TAB_1 maji technicke udaje v TU_1, jine v TU_2, atd.
>
> Zatim TAB_PROP resim tak, ze ma tyto sloupce
> KOD - cislo radku z TAB_1
> TU - jmeno jedne z tabulek TU_1 az TU_X (je zde fyzicke jmeno tabulky
> tak jak nadefinovane)
> TU_CISLO - cislo radku v tabulce, jejiz jmeno je ve sloupci TU
>
> Sloupce KOD a TU mam osetrene pomoci referencni integrity, abych nezadal
> neco, co neexistuje.
> Problem nastava se sloupcem TU_CISLO, ktery zatim bohuzel nedokazu nijak
> kontrolovat.
>
> Bob
TQuery a tvorba SQL s odkazem na TTable
[*] miro mrazik <preas_w(zv)stonline.sk> - 3.6.2002 14:17:32
Ahoj, trochu by to mohlo pomoct, ale problem u paradoxu je v tom, ze nech
robis akykolvek dotaz, ten vyber sa deje na klientovi a preto vsetky data z
tabulky musia prist na klienta aby z nich mohol vyselektovat tie ktore v
dotaze pozadujes. To fileserver system. Klient-server pracuje tak ze zo
servera ide k tebe len to co si si vyziadal. Paradox stiahne na klineta
vsetko a tam z toho vyberie lebo na serverovej masine (tam kde su data tam
sa ziaden vyber nedeje).
Miro
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 03, 2002 9:12 AM
Subject: Re: TQuery a tvorba SQL s odkazem na TTable
Ahoj,
tohle nepujde. Rychlost muzes zvysit jedine vhodne sestavenymi SQL
dotazy, abys napr. netahal data, ktera te nezajimaji, tj. napr. misto select
*
psat konkretni jmena sloupcu, misto select * from Table + pouzivani filtru
(netvrdim, ze to delas) pouzivat v dotazu where tak, aby vracel jen radky,
ktere Te zajimaji, mit indexy na pole, podle kterych vyhledavas apod.
Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
[*] miro mrazik <preas_w(zv)stonline.sk> - 3.6.2002 14:23:15
Ahoj,
neviem mozno by ti pomohlo zapnut kesovanie v BDE, lebo aj index je len
subor a ked ho chce BDE pouzit tak si ho musi po sieti stiahnut aj s celou
tabulkou a to su tiez len dalsie data ktore musia ist po sieti.
miro
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 03, 2002 12:21 PM
Subject: Re: Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
> > Takze mam nebo nemam vytvaret indexy. Pouzivam tabulky typu Paradox a
> > uz nekolikrat jsem tady dostal radu indexy nepouzivat. Tak jak je to?
> > Pomuzou mi indexy, kdyz s tabulkou pracuju jen pomoci TQuery, ktera
Re2x:Re: TQuery a tvorba SQL s odkazem na TTable
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.6.2002 14:29:37
> > zatimco bez indexu Ti zbyva jen Locate, coz
> > obnasi neco jako while not table.eof do,
> > zkratka prolezt vsechny zaznamy
>
> Locate tiez pouziva indexy, ak su vytvorene.
>
Ja vim, chtel jsem puvodne rict, ze pokud indexy nemam,
predstavuje Locate jedinou (a pomalou) castu, jak neco najit bez
indexu.
David Lebeda
dynamicke vytvorenie stranky v QuickReport
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 3.6.2002 14:33:53
Snad newpage
> Vie mi niekto poradit ako sa dynamicky vytvara nova stranka v QR?
> Potrebujem dynamicky vytvorit viacstranovy dokument a prvu stranu si
> vytvorim v pohode, ale neviem akym sposobom vytvorit dalsiu novu
> stranu, tak aby v preview nasledovali za sebou.
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Thread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.6.2002 14:56:14
From: "Jan Zeleny" <zeleny.jan(zv)seznam(tec)cz>
> Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
> Execute jsem napsal casove velmi narocny algorimus.
> Spustim kod.
> Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
> prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
Neco mas spatne, jak presne vypada kod v metode Execute.
Petr Vones
CoolBar vrs. ControlBar
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 03.6.2002 14:57:05
DD,
chci vas poprosit o vase nazory na pouzivani CoolBar nebo
ControlBar. Kterou z komponent byste volili radeji a proc. Ja jsem
zkousel obe a nemohu se rozhodnout.
Diky
Petr
______________________________________________________________________
Reklama:
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
Delphi & Windows CE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.6.2002 14:59:38
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> nevite nekdo zda budou popdporovat delphi windows ce?
Pravdepodobne ne, je to jina architektura. Resenim bude spise .NET
Petr Vones
read-only promenna Text v ComboBox
[*] tomsir1.edu(zv)mail.cez(tec)cz - 3.6.2002 15:22:06
no to prave neni ono, jakmile dam csDropDownList, tak se vynuluje promenna
Text a nelze naplnit ... jinak bych sem nepsal ... :O(((((((((
Radek
"Josef Madlik" <madlik(zv)jsp(tec)cz>(zv)clexpert(tec)cz on 03.06.2002 13:16:59
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Re: read-only promenna Text v ComboBox
TComboBox.Style := csDropDownList
Coz se takhle podivat do archivu, uz to tu bylo mockrate...
J.M.
> Ahoj,
> dynamicky vytvarim a plnim Items v TComboBox. Potreboval bych nejakym
> zpusobem naplnit i promennou Text /je jednou z polozek Items/ a zajistit,
> aby ji uzivatel nemohl editovat.
>
> Diky za rady
> Radek
probl�m s DBGRID - nastavenie
[*] mato <mato.tino(zv)inmail.sk> - 3.6.2002 15:22:45
zdravim,
/D5/
1.
mam dataset kde az v kode pisem sql vyraz. nan je pripojeny DBGRID. v
Tabulke /mdb/ mam aj pole Time. Ale v dbgride mi to ukaze v tvare 30.12.1899
9:30:00. A ja by som chcel aby mi ukazal iba 9:30. Mozno by sa to dalo
nastavit na field v display format ale to som nasiel iba v dobe navrhu
programu. Kedze fiel vytvaram az za behu nepodarilo sa mi to nejako
nastavit.
2.
aka udalost nastane v DBgride ak prejdem na iny zaznam /riadok/ ? Nasiel
som udalost OnCelClick ale ta funguje iba ak ukazem mysou na zaznam . Ale
nefunguje ak sa po zaznamoch pohybujem sipkami vedla DBGridu
3.
musim nastavovat dbgrid pomocu Columns po kazdej zatvoreni datasetu ? Ak
nastavim v formShou ked potom otvorim a zavriem dataset mam dbgrid zase bez
tituliek a z implicit sirkou.
Nefunguje mi OnChange v PageControlu
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 3.6.2002 15:38:14
Ahoj vsichni
D5 SP1
Mam nasledujici problem. V programu chci zvyraznit aktivni zalozku. Udelal
jsem tedy na spolecnem predkovi vsech mych formularu v OnCreate toto
nastaveni. ActivePage kazdeho formulare oznacim jako Highlighted a nastavim
udalosti OnChange (tak aby rozsvitila novou zalozku) a OnChanging (aby
zhasla starou). Problem je v tom, ze kdyz na potomkovi v OnShow zmenim
ActivePage tak ze do ni priradim jiny TabSheet, neprovede se mi ani
OnChange, ani OnChanging. NEVITE NEKDO CO DELAM SPATNE?
Jaromir Cermak
Thread
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 3.6.2002 15:41:52
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Subject: OT: Thread
Ahoj,
co takhle pouzit Synchronize() pro synchronizaci
s hlavnim vlaknem.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
>
>
> Zdravim konferenci.
> Narazil jsem na nasledujici problem:
> Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
> Execute jsem napsal casove velmi narocny algorimus.
> Spustim kod.
> Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
> prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
> na stisk klaves atp.). I kdyz by se spravne zpracovavat mely, protoze
> je to jiny thread.
> Muzete mi prosim poradit - co delam spatne/na co jsem zapomnel ?
> V Execute nechci pouzivat application.processmessages.
>
> Diky za kazdou radu
>
> J.Z.
>
> Delphi 6 SP2
> WinXP
>
> ______________________________________________________________________
> Reklama:
> Kam do kina ci divadla? http://kultura.seznam(tec)cz
>
Thread
[*] Tomas Klimes <klimes(zv)dmasys.sk> - 3.6.2002 15:47:12
Pozri metodu Synchronize();
Tom� Klime�
DMA Systems spol s r.o.
tel: +421-2-50 25 72 04
e-mail: klimes(zv)dmasys.sk
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Zeleny
Sent: Monday, June 03, 2002 2:16 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Thread
Zdravim konferenci.
Narazil jsem na nasledujici problem:
Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
Execute jsem napsal casove velmi narocny algorimus.
Spustim kod.
Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
na stisk klaves atp.). I kdyz by se spravne zpracovavat mely, protoze
je to jiny thread.
Muzete mi prosim poradit - co delam spatne/na co jsem zapomnel ?
V Execute nechci pouzivat application.processmessages.
Diky za kazdou radu
J.Z.
Delphi 6 SP2
WinXP
______________________________________________________________________
Reklama:
Kam do kina ci divadla? http://kultura.seznam(tec)cz
probl�m s DBGRID - nastavenie
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.6.2002 15:50:42
> 1.
musel bys ty fieldy vytvorit za behu a nastavit jim vlastnosti.
> 2.
(before/after)scroll. ale bacha, zatimco BeforeScroll se vykona
vzdy, AfterScroll pouze, pokud k presunu skutecne doslo!
napriklad na prvni vete posun nahoru nebo na posledni dolu.
> 3.
ano, leda bys mel vytvoreny ty tfieldy.
dekuji PeC(zv)
Thread
[*] Tom� Ji�� <Jiri.Tomas(zv)merlin(tec)cz> - 3.6.2002 15:51:51
Zkus vlozit nekam (nejlepe do smycky) prikaz
Sleep(0)
to by melo pustit hlavni thread k lizu.
J.T.
Zdravim konferenci.
Narazil jsem na nasledujici problem:
Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
Execute jsem napsal casove velmi narocny algorimus.
Spustim kod.
Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
na stisk klaves atp.). I kdyz by se spravne zpracovavat mely, protoze
je to jiny thread.
Muzete mi prosim poradit - co delam spatne/na co jsem zapomnel ?
V Execute nechci pouzivat application.processmessages.
Diky za kazdou radu
J.Z.
SELECT * FROM :table_name - jak na nej
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 3.6.2002 15:52:26
> > >Neznate nekdo zpusob, jak toto ( FROM :table_name ) provest?
> Tohle podle me nejde. Aspon na FB ne. Ani me nenapada zadna finta, jak
> to obejit.
Mne jedna napada - napsat si vlastni UDF, ktera proveri prislusna data (je
mozne uvnitr pouzivat i dynamicke SQL, coz je zamerem) a bude vracet TRUE ci
FALSE a podle toho trigger vyvola nebo nevyvola vyjimku.
Osobne bych se ale do toho prilis nehnal, nebot k optimalni aplikaci to pak
ma dost daleko.
Leos
Pripojeni pres Delphi k IB pomoci parametru ROLE
[*] <little_bobes(zv)centrum(tec)cz> - 3.6.2002 15:54:26
Zdravim,
prochazel jsem historii konference, kde se resilo pripojeni Delphi k IB pres BDE s parametrem ROLE.
Bohuzel jsem ale nenasel reseni problemu.
Kdyby mel nekdo nove napady, uvedu muj problem:
V D4 c/s se chci pripojit k IB 6 pomoci TDatabase s temito parametry:
server name=c:\data\data.gdb
user name=uzivatel
password=heslo
role name=editace
TDatabase ma DriverName=INTRBASE.
Ackoliv se pomoci ODBC pripojim, pres BDE (5.01 upgrade na 5.11) to v Delphi nejde.
Diky za pomoc
Bob
Thread
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 3.6.2002 16:00:27
Chybi dalsi informace,
to co pises technicky mozne neni (nemelo by byt na WinXP), ALE
muze se to prakticky takto jevit.
Moje otazky jsou:
1. Jake je zatizeni CPU ?
2. Jakou prioritu ma ten Thread (pokud jsi nastavil realtime, tak se nediv)?
3. Jake jsou pouzity synchronizacni mechanismy (nedochazi k dead locku)?
4. At te ani nenapadne volat z vlakna Application.Processmessages ani nic, co souvisi s Application.
5. Po tom co ten algorytmus skonci, co se stane ?
Slavek
> Zdravim konferenci.
> Narazil jsem na nasledujici problem:
> Vyrobil jsem si ve svem programu potomka tridy Thread. Do metody
> Execute jsem napsal casove velmi narocny algorimus.
> Spustim kod.
> Muj problem spociva v tom, ze v hlavnim threadu(okne) se pak
> prestavaji zpracovavat udalosti - zpravy windows(prekreslovani,reakce
> na stisk klaves atp.). I kdyz by se spravne zpracovavat mely, protoze
> je to jiny thread.
> Muzete mi prosim poradit - co delam spatne/na co jsem zapomnel ?
> V Execute nechci pouzivat application.processmessages.
>
read-only promenna Text v ComboBox
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 3.6.2002 16:09:47
jakto ze to neni ono?
O naplnovani property Text se vubec nestarej, pokud mas style na
DropDownList.
pokud list neni prazdnej, tak pracuj pouze s Items a ItemIndex!!.
Pavel
no to prave neni ono, jakmile dam csDropDownList, tak se vynuluje promenna
Text a nelze naplnit ... jinak bych sem nepsal ... :O(((((((((
Radek
SELECT * FROM :table_name - jak na nej
[*] <little_bobes(zv)centrum(tec)cz> - 3.6.2002 16:09:15
Nedovedu si predstavit obsah tve tabulky TU.
Moje struktura je napr. pro motory (TU_1):
NAPETI
POCET_FAZI
FREKVENCE
VYKON
OTACKY
KRYTI
SMER_OTACENI
UCINNOST
...
pro cerpadla (TU_2):
OTACKY
ZDVIH
DN_SANI
DN_VYTLAK
PN_SANI
PN_VYTLAK
TEPLOTA
VYTLAK
...
V jednotlivych radcich jsou potom ruzne typy techto pristroju.
Ja si nedovedu predstavit jine reseni.
Muzes mi nastinit to tve (obsah tve tabulky)?
Diky Bob
----- P�vodn� zpr�va -----
Od: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 3. �ervna 2002 14:16
P�edm�t: RE: SELECT * FROM :table_name - jak na nej
> Ale v tom pripade bych se zamyslel nad jinou strukturou DB. Konkretne by
to
> mohlo byt tak, ze budes mit pouze dve tabulky:
> TAB_1 se stejnym vyznamem a TU, ktera bude v radcich (nikoliv ve
sloupcich)
> mit ty technicke udaje. V tabulce TAB_PROP muzes mit napr. vsechny hodnoty
> (tj. radky), ktere musi obsahovat to ktere zarizeni a pomoci triggeru to
> kontrolovat. Ja to mam takto pouzite a nedovedu si predstavit jine
> flexibilni reseni. Kdykoliv muzu pridat novou nebo zrusit stavajici
> vlastnost...
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
> > Zde je duvod:
> > - TAB_1 obsahuje kody zarizeni (musi byt pouze jedna tabulka, nemuze byt
> > rozdelena)
> > - TU_1 az TU_X obsahuji technicke udaje ruznych zarizeni
> > (cerpadla v jedne,
> > motory v jine, ventily v dalsi, ...)
> > - TAB_PROP obsahuje prirazeni udaju z TAB_1 k udajum TU_1 az TU_X,
protoze
> > nektere prvky v TAB_1 maji technicke udaje v TU_1, jine v TU_2, atd.
> >
> > Zatim TAB_PROP resim tak, ze ma tyto sloupce
> > KOD - cislo radku z TAB_1
> > TU - jmeno jedne z tabulek TU_1 az TU_X (je zde fyzicke jmeno
tabulky
> > tak jak nadefinovane)
> > TU_CISLO - cislo radku v tabulce, jejiz jmeno je ve sloupci TU
> >
> > Sloupce KOD a TU mam osetrene pomoci referencni integrity, abych nezadal
> > neco, co neexistuje.
> > Problem nastava se sloupcem TU_CISLO, ktery zatim bohuzel nedokazu nijak
> > kontrolovat.
> >
> > Bob
>
>
>SELECT * FROM :table_name - jak na nej
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.6.2002 16:21:59
> Nedovedu si predstavit obsah tve tabulky TU.
no, ale vzdyt muzes mit tabulku s cilem a k
ni 1:1 tabulku s vlastnostmi, ktere jsou specificke
pro dany typ zarizeni. integritu pak napojis do te
mrnave tabulky s typem a cislem.
typ
|
vyrobek--vlastnosti_cerpadla
| |--vlastnosti_motoru
| ...........
|
dalsi_podrizena
dekuji PeC(zv)