Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TMessage
[*] Jiri Toman <toman(zv)plbohnice(tec)cz> - 21.3.2000 08:44:51
Pavol Stolc p�e:
> ----- Original Message -----
> From: Jiri Toman <toman(zv)plbohnice(tec)cz>
> Sent: Monday, March 20, 2000 2:01 PM
> Subject: TMessage
>
> > Ahoj vsici vespolek.
> >
> > Mam jeden dotaz ohledne odchytavani zprav.
> > Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> > Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> > aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
>
> Skus nastavit property TForm1.KeyPreview := True;
Ahoj
To mam nastaveny, jinak by to nechodilo v prazdnym Formu.
Jak dam, ale na form nejakou komponentu tak musim pro ni
napsat proceduru pro odchyt zpravy.
Me to funguje, ale slo mi o to jak udelat, aby se nejaka
zprava odchytavala v ramci cele aplikace (ve vsech komponentach na
formu)
a abych nemusel pro kazkou komponentu
na Formu psat proceduru pro odchyt zpravy.
Jirka
Mazani souboru
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 21.3.2000 08:45:29
Procedura DeleteFile musi dostat celou cesku k souboru, nejen jeho jmeno,
takze
DeleteFile (cesta + '\' + FileName.Name)
Karel
> -----P�vodn� zpr�va-----
> Od: Petr Ku�era [mailto:kucera(zv)vri(tec)cz]
> Odesl�no: 21. b�ezna 2000 7:38
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Mazani souboru
>
>
> Dobry den,
>
> potreboval bych smazat nejaky soubor nekde na disku. pokousim
> se o to pomoci DeleteFile(Jmeno_Souboru). To mi vsak nefunguje.
>
> Soubory si hledam pomoci FindFirst(cesta, faAnyFile, FileName)
> a FindNext(FileName) a mazu nasledovne:
>
> if not DeleteFile(FileName.Name) then
> MessageDLG(Text_Zpravy, ....);
>
> Pokazde se mi vsak zobrazi okno s textem zpravy.
>
> Co delam spatne?
>
> Petr Kucera
> Informace o spusteni programu
[*] Ing. Radim Brozek <radim.brozek(zv)berit(tec)cz> - 21.3.2000 08:49:31
Rad bych si udelal programek, ktery eviduje spustene aplikace ve Windows.
Posilaji windows nejakou informaci, ze se program spustil nebo ukoncil ?
Nekym mi byla doporucena fce SetWindowsHookEx, ale nejsem schopen zjistit, na co se mam chytat.
Rad bych to udelal jako reakci na udalost a ne skenovanim prostredi pomoci timeru.
Diky.
S pozdravem Miki
TMessage
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.3.2000 08:50:28
Ahoj,
pokud Ti jde _JEN_O_KEYDOWN_ a spol
tak zkus nastavit Form1.KeyPreview na true
U ostatnich
> ----------
> Od: Jiri Toman[SMTP:toman(zv)plbohnice(tec)cz]
>
> Mam jeden dotaz ohledne odchytavani zprav.
> Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
> nema zadnou komponentu (napr. Memo) tak pri stisku klavesy
> odchytnu udalost WM_KEYDOWN v pohode takto.
> Mazani souboru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.3.2000 08:52:38
Ahoj,
DeleteFile je (namylim-li se) volani API fce,
kde se jako jmeno souboru predava ukazatel,
takze zkus DeleteFile(PChar(FileName.Name));
Dobra.
> ----------
> Od: Petr Ku> �era[SMTP:kucera(zv)vri(tec)cz]
>
> potreboval bych smazat nejaky soubor nekde na disku. pokousim
> se o to pomoci DeleteFile(Jmeno_Souboru). To mi vsak nefunguje.
>
> Soubory si hledam pomoci FindFirst(cesta, faAnyFile, FileName)
> a FindNext(FileName) a mazu nasledovne:
>
> if not DeleteFile(FileName.Name) then
> MessageDLG(Text_Zpravy, ....);
>
> Mazani souboru
[*] Petr Kandera <p_kandera(zv)tanger(tec)cz> - 21.3.2000 08:55:02
Asi by to chtelo i cestu, ve strukture TSearchRec ve FileName.Name neni.
if not DeleteFile(cesta+FileName.Name) then
MessageDLG(Text_Zpravy, ....);
(
1. Ale bude jeste nutne vyhodit z cesty masku souboru, takze pro FindFirst
by to treba slo takle:
FindFirst(cesta + maska, faAnyFile, FileName)
...
FindNext(FileName)
2. Pokud se pouziva faAnyFile tak je treba testovat zda soubor neni
directory, readonly, system apod., to je dalsi problemek. Pro
bezne soubory je vhodnejsi pouzit treba faArchive nebo prislusnou kombinaci
masek.
)
Petr Kandera
<p_kandera(zv)tanger(tec)cz>
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 7:38 AM
Subject: Mazani souboru
> Dobry den,
>
> potreboval bych smazat nejaky soubor nekde na disku. pokousim
> se o to pomoci DeleteFile(Jmeno_Souboru). To mi vsak nefunguje.
>
> Soubory si hledam pomoci FindFirst(cesta, faAnyFile, FileName)
> a FindNext(FileName) a mazu nasledovne:
>
> if not DeleteFile(FileName.Name) then
> MessageDLG(Text_Zpravy, ....);
>
> Pokazde se mi vsak zobrazi okno s textem zpravy.
>
> Co delam spatne?
>
> Petr Kucera
Image a rotace znovu
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 21.3.2000 09:23:30
Prijemn� den,
D4 standard W95 OSR2
Pred casem jsem se ptal ma 2D rotaci ikony v Image. Vidim, ze to neni nic
jednoducheho. Proto jsem se rozhodl netrvat na ikone, ale mohu pouzit i napr
WMF, ktery by snad sel otacet kolem stredu jednoduseji. Nevi nekdo jak to
udelat?
Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
Zacinajici programator
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
TMessage
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.3.2000 09:26:29
Tak to udelej treba nejak takto:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN
then ShowMessage('ENTER');
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
Zprava : string;
begin
case Msg.Message of
WM_KEYDOWN : Zprava:='WM_KEYDOWN';
WM_KEYUP : Zprava:='WM_KEYUP';
WM_MBUTTONDBLCLK : Zprava:='WM_MBUTTONDBLCLK';
else
Zprava:='';
end;
if Zprava <> '' then
ShowMessage('Mess : '+Zprava);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;
end.(mimochodem, zkousel jsem to KeyPreview nastavit na true
a potom se ten ENTER skutecne odchytil i v Memu, Editu, ...
ale chytal jsem ho v udalosi OnKeyDown toho Formu )
Dobra.
> ----------
> Od: Jiri Toman[SMTP:toman(zv)plbohnice(tec)cz]
>
> > ----- Original Message -----
> > From: Jiri Toman <toman(zv)plbohnice(tec)cz>
> > Sent: Monday, March 20, 2000 2:01 PM
> > Subject: TMessage
> >
> > > Ahoj vsici vespolek.
> > >
> > > Mam jeden dotaz ohledne odchytavani zprav.
> > > Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> > > Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> > > aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
> >
> > Skus nastavit property TForm1.KeyPreview := True;
>
> Ahoj
> To mam nastaveny, jinak by to nechodilo v prazdnym Formu.
> Jak dam, ale na form nejakou komponentu tak musim pro ni
> napsat proceduru pro odchyt zpravy.
> Me to funguje, ale slo mi o to jak udelat, aby se nejaka
> zprava odchytavala v ramci cele aplikace (ve vsech komponentach na
> formu)
> a abych nemusel pro kazkou komponentu
> na Formu psat proceduru pro odchyt zpravy.
>
> Jirka
> Query vs. StoredProc
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 21.3.2000 09:32:34
Ahoj,
chtel bych se zeptat na nazor, zda je vyhodnejsi (z hlediska rezie
komunikace, ale i pokud mozno z rady ruznych dalsich hledisek)
na jednoprikazove zalezitosti (tj. jeden select nebo 1 insert apod.)
pouzivat StoredProc nebo Query?
Radu zalezitosti lze resit obema zpusoby. Ktery je lepsi? S
pomoci jedne Query mohu vykonat hodne prikazu, zatimco pri
pouzivani StoredProc bych mel dlouhou radu procedur na kazdou
blbost. Jak to vidi SQL server?
Dik :)
David
TMessage
[*] Petr Kandera <p_kandera(zv)tanger(tec)cz> - 21.3.2000 09:50:25
Neco by slo chytan pres Application.OnMessage.
Ale uplne vse lze chytat tak, ze se prepise procedura WndProc.
Petr Kandera
<p_kandera(zv)tanger(tec)cz>
----- Original Message -----
From: Jiri Toman <toman(zv)plbohnice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 8:44 AM
Subject: Re: TMessage
Pavol Stolc p�e:
> ----- Original Message -----
> From: Jiri Toman <toman(zv)plbohnice(tec)cz>
> Sent: Monday, March 20, 2000 2:01 PM
> Subject: TMessage
>
> > Ahoj vsici vespolek.
> >
> > Mam jeden dotaz ohledne odchytavani zprav.
> > Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> > Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> > aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
>
> Skus nastavit property TForm1.KeyPreview := True;
Ahoj
To mam nastaveny, jinak by to nechodilo v prazdnym Formu.
Jak dam, ale na form nejakou komponentu tak musim pro ni
napsat proceduru pro odchyt zpravy.
Me to funguje, ale slo mi o to jak udelat, aby se nejaka
zprava odchytavala v ramci cele aplikace (ve vsech komponentach na
formu)
a abych nemusel pro kazkou komponentu
na Formu psat proceduru pro odchyt zpravy.
Jirka
vektorizacia obrazu
[*] J�n Tungli - 21.3.2000 10:03:04
Hladam programatora ktory by spolupracoval na uplne novej metody
vektorizacie obrazu. Momentalne mam malo casu aby som to programoval sam.
Tato metoda je revolucna v oblast vektorizacie obrazu.
Program treba spravit v D4 alebo v D5.
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
Query vs. StoredProc
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 21.3.2000 10:11:30
Ulozne procedury jsou vhodne pro rozsahlejsi manipulace s daty na Serveru
(tento pripad je neoddiskutovatelny).
Pro drobne manipulace s daty je treba zvazit nekolik hladisek:
1. Pracnost
2. Udrzovatelnost
3. Prehlednost
4. Bezpecnost
5. ruznorodost klientu
ad 1) SP jsou pracnejsi
ad 2) Pripad od pripadu se to muze lisit (zasah do SP muze ovlivnit vice klientu)
ad 3) Pokud mam na SP vyvojove prostredi (neco jako Maraton, Case, ....) tak
se mi jevi prehlednejsi, nez SQL roztrkane mezi pascalem (nebo v komponentach)
ad 4) SP Jsou bezpecnejsi, mohu si pridat vlastni pravidla, atd..
ad 5) Pokud mam vice klientu s ruznym zamerenim (a hlavne ruznych autoru), je vyhodnejsi
nechat jednoduche zalezitosti na nich.
Slavek
PS: Z tveho prispevku mam pocit, ze nepouzivas Prepare, tim jsi schopen, znacne ulehcit
serveru pro jednoduche, ale casto se opakujici dotazy (master - slave,....),
tedy kazdy takovi SQL do jedne query (je uplne jedno jestli je to SP, nebo insert, nebo select).
-----P�vodn� zpr�va-----
Od: David Lebeda [SMTP:david.lebeda(zv)comarr(tec)cz]
Odesl�no: 21. b�ezna 2000 9:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Query vs. StoredProc
Ahoj,
chtel bych se zeptat na nazor, zda je vyhodnejsi (z hlediska rezie
komunikace, ale i pokud mozno z rady ruznych dalsich hledisek)
na jednoprikazove zalezitosti (tj. jeden select nebo 1 insert apod.)
pouzivat StoredProc nebo Query?
Radu zalezitosti lze resit obema zpusoby. Ktery je lepsi? S
pomoci jedne Query mohu vykonat hodne prikazu, zatimco pri
pouzivani StoredProc bych mel dlouhou radu procedur na kazdou
blbost. Jak to vidi SQL server?
Dik :)
David
datetime->longint
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 21.3.2000 10:24:53
> From: sup(zv)svitap(tec)cz [SMTP:sup(zv)svitap(tec)cz]
>
> Potrebuji dostat datum ze stringu ve tvaru
> 'RRRRMMDD' do promenne longint (Juliansky kalendar).
>
A co tak urobit to v SQL ??
LongInt := to_char(datum, 'J')
JJ
ADO Express
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.3.2000 10:26:20
Asi mas nastaveny klientsky cursor, vtedy sa zaznamy z databazy ukladaju do buffra na klientovi,
co moze chvilu trvat. Pouzi serverovsky kurzor alebo asynchronne citanie.
Erik
Klientsky kurzor potrebuji, protoze bych rad zobrazil data v gride. Staci pro asynchronni cteni nastavit eoAsyncFetchNonBlocking na true?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
TQuery
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.3.2000 10:51:44
Ahoj,
> Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz
> probehl v
> poradku (Query.Active = True)...
****Tady zalezi na spouste veci okolo. Vesmes jde o to, ze
operace na zjisteni poctu vyslednych radku muze byt hodne draha.
Zitra se podivej na http://www.swnet(tec)cz/ trosku jsem se tam o tom
rozepsal.
Slavek
> Zdenek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Time2Help
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 21.3.2000 11:19:36
Na Webu jsem nasel Time2Help tool, ktery ze Delphi zdrojaku dokaze
vygenerovat HLP nebo HCM help file s popisem unitu (tridy,
vlastnosti, promene, metody, hiearchie tridy).
Je to celkem pekna vecicka, ale verze, ktera se da stahnout podporuje
pouze Delphi 1-3.
A ja mam classy s overloaded metodami, ktere tento tool
nedokaze rozlisit a do helpu priradi pouze prvni metodu v poradi
a tu zopakuje tolikrat, kolikrat je overloadnuta (ukazuje stale stejne
parametry).
Nepoznate nekdo podobny nastroj, ktery podporuje i vsechny vymozenosti
Delphi5?
Petr
MP3
[*] Martin <geoplan(zv)pp.sinet.sk> - 21.3.2000 12:37:47
zdravim,
potrebujem zo sovojej aplikacie prehravat subory mp3. Ale nechcem pouzit externy program. Viac by mi vyhovovala nejaka dll kniznica, nak ktorou by som si iba urobil interface. Veviete niekdo o niecom takom ?
vdaka za kazde nakopnutie.
Martin
Parametry pro WM_Paint
[*] <miramares(zv)centrum(tec)cz> - 21.3.2000 12:44:25
Nazdarek,
mam takovy mensi problem. Vytvarim transparentni komponentu, ktera
prekryva jinou. Takhle to udelam parkrat a ukladam si pointry na ty jednotlive komponenty.
Kdyz je potrebuju naraz prekreslit, tak projedu cyklem vsechny pointry a volam na ne
Repaint. Bohuzel tohle nefunguje a ty spodni komponenty se neprekresli. Chtel jsem zkusit
volat Win message WM_Paint pro ty jednotlive komponenty, ale nevim co ma/muze byt v
parametrech wParam, lParam.. Vedel by to nekdo??
Mirek
W98, D3 C/S, IE5.1
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Editor a zvyraznenie syntaxe
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 21.3.2000 11:59:10 -0000
jeden je napriklad na:
http://www.eccentrica.org/gabr/mw/mwedit.htm
Ahoj Tomas Bihary
PS: co si o nem mysli ostatni? Jake dalsi existuji?
----- Original Message -----
> Caute.
> D5Ent.
>
> Mozete mi poradit alebo ma nasmerovat na nejaky komponent pomocou ktoreho
by
> som mohol zrealizovat editaciu mnou definovaneho skriptovacieho jazyka s
> tym, ze vybrane skupiny slov (zakladne konstrukcne prvky toho jazyka,
> pripadne "kniznicne funkcie") mi bude schopny zobrazovat v definovanej
farbe
> pisma ?
>
> Teda v skratke. Editor textu s definivatelnym zvyraznenim syntaxe.
> Zaujima ma tiez funkcia UNDO a REDO v tomto komponente...
>
> Vopred vdaka.
> JaNo.
>
> PS: Pripadne to moze byt aj komponenta ktore dokaze len zvyraznovat text a
> formatovanie pre danu syntax je potrebne doimplementovat.Control a poloha mysi
[*] J�n Grman�������e���zW��ۛg�$ - 21.3.2000 13:43:05
Mam velmi jednoduchy problem ale sa mi nedari...
Mam komponent a chytam jeho event OnMouseMove !
Problem je ze v tom evente nezachytim fakt, ze mys nie je nad tymto
komponentom ! (je niekte mimo v ramci okna, alebo dokonca nad oknom uplne
inej aplikacie...)
Co s tym ?
JaNo.RxDBGrid
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 21.3.2000 13:24:55 met-1
Ahojte!
Mel bych jeden dotaz - zacal jsem ted pouzivat RxDBGrid pro
zobrazovani dat, ktera mam ulozena v RxMemoryData. Vsechno
(alespon zatim) funguje OK, az na jednu vec. Kdyz je v RxDBGridu vic
radku, nez se "vejde" do okna aplikace, tak se (pochopitelne) na
prave strane objevi prislusny ScrollBar. Ale ten ma tu neprijemnou
vlastnost, ze neukazuje aktualni "polohu" v gridu, ale nastavi se
- na zacatek, jsem-li na prvni radku
- na konec, jsem-li na poslednim radku
- doprostred, jsem-li na ostatnich radcich.
Pritom klikani mysi na ScrollBar funguje spravne (tj. dela to posun o
jeden radek, o stranku, atd). S mysi to blbne pouze kdyz ten
ctverecek "chytnu" mysi a posouvam jej, tak vypis v gridu nescroluje,
ale teprve az uvolnim mys, tak se nekam nastavi.
Je to standardni chovani RxDBGridu? Jestli jo, da se to nejak obejit,
tj. aby ScrollBar ukazoval aktualni pozici?
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Query vs. StoredProc
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 21.3.2000 14:52:25
> Ulozne procedury jsou vhodne pro rozsahlejsi manipulace s daty na =
> Serveru
> (tento pripad je neoddiskutovatelny).
> Pro drobne manipulace s daty je treba zvazit nekolik hladisek:
> 1. Pracnost
> 2. Udrzovatelnost
> 3. Prehlednost
> 4. Bezpecnost
> 5. ruznorodost klientu
>
> ad 1) SP jsou pracnejsi
> ad 2) Pripad od pripadu se to muze lisit (zasah do SP muze ovlivnit
> vice = klientu) ad 3) Pokud mam na SP vyvojove prostredi (neco jako
> Maraton, Case, ....) = tak
> se mi jevi prehlednejsi, nez SQL roztrkane mezi pascalem (nebo
> v =
> komponentach)
> ad 4) SP Jsou bezpecnejsi, mohu si pridat vlastni pravidla, atd.. ad
> 5) Pokud mam vice klientu s ruznym zamerenim (a hlavne ruznych =
> autoru), je vyhodnejsi
> nechat jednoduche zalezitosti na nich.
>
> Slavek
>
> PS: Z tveho prispevku mam pocit, ze nepouzivas Prepare, tim jsi
> schopen, = znacne ulehcit
> serveru pro jednoduche, ale casto se opakujici dotazy (master - =
> slave,....),
> tedy kazdy takovi SQL do jedne query (je uplne jedno jestli je to SP,
> =
> nebo insert, nebo select).
>
K tomu prepare. V me aplikaci se nestava, ze by se tyz dotaz
opakoval nekolikrat za sebou, pouze s ruznymi parametry. Pokud
se dotaz opakuje, jsou tato opakovani prolozena jinymi dotazy.
Nevim, jestli za teto situace prepare ma smysl. Kdy tedy obecne
se ma pouzivat a kdy je to zbytecne?
David
Blank v Paradoxu
[*] Jirka Virt <virt(zv)volny(tec)cz> - 21.3.2000 18:52:09
Ahoj,
nevite jak (kde) zapnout volbu,aby se mi blankove numericke hodnoty v pdox
tabulce
prevadeli na nulu.Pocital jsem, ze je to snad samozrejmost, jeli hodnota
blankova, tak se bude rovnat nule, jak je tomu ve FoxPro.
Priklad: Update Tabulka Set A = B+C
Jestlize bude jedna z hodnot B,C blankova vysledek je nic!!
Diky
Jirka Virt
email:virt(zv)volny(tec)cz
Inteligentni Round
[*] Jirka Virt <virt(zv)volny(tec)cz> - 21.3.2000 19:30:38
Ahoj,
nevite jak zaokrouhlovat treba na 3 des. mista?
Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
Jirka Virt
email: virt(zv)volny(tec)cz
TQuery
[*] Jirka Virt <virt(zv)volny(tec)cz> - 21.3.2000 19:34:32
Ahoj,
treba Ti pomuze toto
uses BDE;
function fDbiGetRecordCount(D: TDataSet): LongInt;
begin
Check(DbiGetRecordCount(D.Handle, Result));
end;
> Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz probehl
v
> poradku (Query.Active = True)...
As implemented in TDataSet, RecordCount is always -1. Ordinarily an
application does not access RecordCount at the TDataSet level. Instead a
redeclared and implemented RecordCount property in a descendant class such
as TTable is accessed. RecordCount provides a fallback property for derived
dataset classes that do not reimplement the property access method.
Jirka Virt
email:virt(zv)volny(tec)cz
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 10:51 AM
Subject: Re: TQuery
>
> Ahoj,
>
> > Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz
> > probehl v
> > poradku (Query.Active = True)...
> ****Tady zalezi na spouste veci okolo. Vesmes jde o to, ze
> operace na zjisteni poctu vyslednych radku muze byt hodne draha.
> Zitra se podivej na http://www.swnet(tec)cz/ trosku jsem se tam o tom
> rozepsal.
>
> Slavek
>
> > Zdenek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
>
>Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 21.3.2000 22:00:35
> > Proc ne do jineho recordsetu (=ADORecordset) ? Vzdyt je to take spec.
> > struktura. Navic diky tomu, ze je to COM objekt, tak si mohu snadno
> > predavat mezi COMy sve aplikace interface toho RecordSetu. Hlavne se
> > mi jedna o vicevrstvou architekturu.
>
> V mem pripade je to velice jednoduche. :-) Nepouzivam zadny
> ADORecordset ani nic podobneho, ale pouze komponenty pro
> pripojeni k OLE DB. Tyto komponenty si nikde data neskladuji,
> slouzi vyhradne pro jejich prenos mezi databazi a programem.
Myslim, ze o tom neni pochyb, ze pristup pres OleDb je rychlejsi nez pres
ADO
(viz. nekdo posilal odkaz do konference, kde k tomu byl clanek primo od
Microsoftu).
O kolik? Buh vi.
Nicmene
- s ADem se snadno pracuje
- ma hromadu metod
- dobre se predava mezi COMy
- mame koupene Datasetove komponenty, na ktere se snadno napoji
ADORecordSety
- pres ADO mohu pristupovat k databazim, souborum, mailum, Excelu, Wordu,
...
- kdyz se jednou naucim pracovat s ADem, tak to mohu pouzit z Delphi, HTML,
Visual Basicu, ...
S OleDb jsem primo nikdy nepracoval, takze nevim, co z toho mohu vyuzit i
kdyz budu pracovat s OleDb primo. Mohl bys Zbysku napsat, co z toho lze
vyuzit i pri praci s OleDb primo a co pri praci s Tvymi komponentami.
> Obavam se, ze to az tak jednoduche nebude. Podle chovani ADO
> (pisu-li samotne ADO, mam na mysli ADO od MS) objektu usuzuji,
> ze Recordset si bufferuje data do nejake sve pameti, a pokud ne
> vsechna, tak alespon castecne. Podle dokumentace, pokud dam
> Close na Connect, ten zavre vsechny asociovane Recordsety.
> Pokud dam Close na Recordset, ten podle dokumentace uvolni
> vsechna prirazena data. Je zrejme, ze u ADO by vlastne dochazelo
> k dvojimu prelevani dat - z databaze do Recordsetu, a z nej pak do
> programu. Proto radeji pouzivam primo OLE DB, kde tento krok
> cinim pouze jednou - a to primo z databaze do programu.
>
> Podle popisu komponent to vsak znamena, ze chces-li se odpojit
> od databaze, stejne si budes muset data nekam prelit, protoze
> Recordset je zahodi, pokud neni pripojen (pokud nahodou kecam,
> opravte me nekdo, s ADO jsem provedl jen nekolik pokusu, jinak s
> nim nepracuji). Jestli lze nejak jinak zachovat data v Recordsetu pri
> odpojeni od databaze nevim, ale domnivam se, ze ne.
O existenci disconnected recordsets a bufferovani uz tu byla rec.
Ale mas pravdu, dochazi tu k dvojimu prelevani dat.
Puvodne jsem si myslel, ze tak jako se z Adonis komponent mohu dostat na
RecordSet
a pracovat s timto ADO objektem primo (ADODataSet.RecordSet), tak ze budu
moci
pristoupit RecordSetu na RowSet of OleDb Provider. Zadnou podobnou propertu
jsem tam nenasel.
> Dale je zajimave sledovat chovani Delphi komponent. ADODataSet
> (ADOExpress; Adonis komponenty neznam, protoze pouze pro
> studijni a srovnavaci ucely si je nehodlam kupovat - tedy jejich
> zdrojaky; leda ze by mi je Erik poskytnul zdarma :-) se chova tak,
> ze si nabufferuje (to je slovo! :) pouze data, ktera momentalne
> potrebuje, napriklad pro zobrazeni v DBGridu. Pokud se uzivatel
> pohne o stranku vedle, ADODataSet buffer zahodi a nacte si dalsi
> kus. Krome toho, po Close zahodi vsechno.
>
> > Zda se Vam presypavat data do pomocneho ADORecordSetu vyrazne mene
> > efektivni (z duvodu casovych, prostorovych, ...) nez do jine pomocne
> > struktury?
>
> Je mi to srdecne jedno. :-) Krome toho nevim, jak se chova
> ADORecordSet a co dela s daty.
:-(.
Mimochodem, duvod proc presypavam data do pomocneho RecordSetu je to, ze
nelze updatovat
identity fields v disconnected recordsetu.
Ty si presypavas data do pomocnych struktur, ja do RecordSetu. Myslim, ze o
trosku vyssi rychlost presypani do Tve struktury je vykoupeno pracnejsi
prac� s Tvou strukturou.
S pozdravem, Ladislav Nagy
Inteligentni Round
[*] Jan Votava <djsoft(zv)top(tec)cz> - 21.3.2000 22:30:57
Round(cislo*1000)/1000
nebo Format (umi vic, viz. help), ten ale vraci string, je nutno jeste
jednou prevadet.
Honza
----- Original Message -----
From: Jirka Virt <virt(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 7:30 PM
Subject: Inteligentni Round
> Ahoj,
>
> nevite jak zaokrouhlovat treba na 3 des. mista?
> Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
>
> Jirka Virt
>
> email: virt(zv)volny(tec)cz
Inteligentni Round
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.3.2000 06:04:00
Function InteligentRound(Cislo : Double; Desetin : Integer) : Double;
Begin
Result := Round(Cislo * Power(10, Desetin)) / Power(10, Desetin);
End;
Je treba pridat Math do Uses
Jan Fiala
----- Original Message -----
From: Jirka Virt <virt(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 7:30 PM
Subject: Inteligentni Round
> Ahoj,
>
> nevite jak zaokrouhlovat treba na 3 des. mista?
> Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
>
>
> Jirka Virt
>
> email: virt(zv)volny(tec)cz
>
> IB
[*] Martin <geoplan(zv)pp.sinet.sk> - 22.3.2000 06:59:24
kde nastavim v Interbase pre uzivatela ake prava ma s jednotlivymi tabulkami databazy ?
Martin
RxDBGrid
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 22.3.2000 07:47:58
> Mel bych jeden dotaz - zacal jsem ted pouzivat RxDBGrid pro
> zobrazovani dat, ktera mam ulozena v RxMemoryData. Vsechno
> (alespon zatim) funguje OK, az na jednu vec. Kdyz je v RxDBGridu vic
> radku, nez se "vejde" do okna aplikace, tak se (pochopitelne) na prave
> strane objevi prislusny ScrollBar. Ale ten ma tu neprijemnou
> vlastnost, ze neukazuje aktualni "polohu" v gridu, ale nastavi se - na
> zacatek, jsem-li na prvni radku - na konec, jsem-li na poslednim radku
> - doprostred, jsem-li na ostatnich radcich. Pritom klikani mysi na
> ScrollBar funguje spravne (tj. dela to posun o jeden radek, o stranku,
> atd). S mysi to blbne pouze kdyz ten ctverecek "chytnu" mysi a
> posouvam jej, tak vypis v gridu nescroluje, ale teprve az uvolnim mys,
> tak se nekam nastavi. Je to standardni chovani RxDBGridu? Jestli jo,
> da se to nejak obejit, tj. aby ScrollBar ukazoval aktualni pozici?
Sice to bude muj odhad, ale presto: domnivam se, ze to je nejen
standardni chovani RxDbGridu, ale vetsiny DbGridu a souvisi to s
tim, co tady kdysi kdosi nazval virtual view. DbGrid predem nezna
pocet zaznamu, a proto nemuze spocitat pozici scrollbaru. Pozna
jen stav, ze je na prvnim radku, poslednim radku nebo nekde
uprostred. V mrizce jsou zobrazena jen data, ktera maji byt videt,
mozna nejaka rezerva, ale DbGrid podle me nema prehled o datech
mimo tento vysek.
Pokud to je pitomost, tak me nebijte, je to jen muj nazor.:)
David
Inteligentni Round
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.3.2000 08:17:59
Vynasobit tisicem, oriznout/zaokrouhlit desetinou
cast a zase tim tisicem vydedlit :-)
function RoundEx(wE : extended; wN : byte) : extended;
begin
Result:=Round(wE*(Power(10, wN)))/Power(10, wN);
end;
Dobra.
> ----------
> nevite jak zaokrouhlovat treba na 3 des. mista?
> Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
>
> Inteligentni Round
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.3.2000 08:36:33
Mam na to funkci:
function round2(x,d:numtype):numtype;{ d : kolikrat zvetsit cislo pred orezanim }
var e:numtype;
begin
if d=0then begin Result:=x;exit;end;
e:=x/d;Result:=roundE(e)*d;
end;
Pro 3 des. mista d=0.001, treba pro nasobek 2.5 (na cele palce) je to 2.5
Pozor, pokud ti jde o prevod na Str, tak se radsi podivej na FloatToStrF, matematicke
zaokroulovani je o necem jinem, ja to pouzivam pri distribuci chyb (v "celo"ciselnych vypoctech).
Slavek
Ahoj,
nevite jak zaokrouhlovat treba na 3 des. mista?
Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
Jirka Virt
email: virt(zv)volny(tec)cz
Query vs. StoredProc
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.3.2000 08:41:08
[Slavomir Skopalik]
Prepare ma smysl skutecne pouze pokud jeden dotaz (prikaz) opakuji vicekrat, ale
nemusi to byt po sobe, muze to byt prolozeno libovolnymi dotazy.
Pokud se neco vola jen jednou, nebo zridka, tak to neni nutne.
Prepare totiz alokuje na serveru zdroje, takze pro dotazy, ktere
se pokladaji jen jednou je naopak pritezi. (Zde je resenim UnPrepare).
Pokud pouzivas IBX, tak tam se deje prepare automaticky.
Slavek
K tomu prepare. V me aplikaci se nestava, ze by se tyz dotaz
opakoval nekolikrat za sebou, pouze s ruznymi parametry. Pokud
se dotaz opakuje, jsou tato opakovani prolozena jinymi dotazy.
Nevim, jestli za teto situace prepare ma smysl. Kdy tedy obecne
se ma pouzivat a kdy je to zbytecne?
David
FTP & HTTP
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 21.3.2000 23:44:28 -0800 (pst)
--- Martin Pe�ava <jimx(zv)volny(tec)cz> wrote:
> Potreboval bych informace o pouzivani Internet
> komponent v Delphi 4: NMHTTP, NMFTP, NMPOP3
Prave: v dobach, kdy to zajimalo me, bylo reseni -
nepouzivat std. komponenty v Delphi, ale prave tu
knihovnu, kam ukazuje to URL... :))
...ale mozna je to uz dneska jinak...
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
Inteligentni Round
[*] Miroslav Jarolimek <m.jarolimek(zv)softdec(tec)cz> - 22.3.2000 08:46:04
Trosku lepsi zpusob vypada takhle:
Function iRound(Num : Double; Prec : Integer) : Double;
Begin
Result := Int(Num) + Round(Frac(Num) * Power(10, Prec)) / Power(10, Prec);
End;
Vysledkem ROUND je totiz celociselna promenna, ktera je ve svem rozsahu
podstatne omezenejsi nez float promenna, ktera je vysledkem funkce INT.
Rozdil se samozrejme projevi az u vetsich cisel ( v tomto konkretnim pripade
zacne zaokrouhlovani za pomoci Round padat napr. jiz ve chvili, kdy je
vstupem cislo v radu 1E17 a je zaokrouhlovano na 2 desetinna mista, zatimco
zaokrouhlovani za pomoci INT s tim nema zadny problem ). Pravdou ovsem
zustava, ze pri takto velkych cislech program stejne neni schopen rozlisovat
cisla na nejmene vyznamnych pozicich a tim mene za desetinnou carkou z
duvodu omezeneho poctu Significant digits ( Extended 19-20 ), takze upravena
metoda ma v tomto pripade svuj ucel spise v tom, ze u takto velkych cisel
nepada.
Mirek
----- Original Message -----
From: Jan Fiala <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 22, 2000 6:04 AM
Subject: Re: Inteligentni Round
> Function InteligentRound(Cislo : Double; Desetin : Integer) : Double;
> Begin
> Result := Round(Cislo * Power(10, Desetin)) / Power(10, Desetin);
> End;
>
> Je treba pridat Math do Uses
>
> Jan Fiala
>
> ----- Original Message -----
> From: Jirka Virt <virt(zv)volny(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, March 21, 2000 7:30 PM
> Subject: Inteligentni Round
>
>
> > Ahoj,
> >
> > nevite jak zaokrouhlovat treba na 3 des. mista?
> > Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
> >
> >
> > Jirka Virt
> >
> > email: virt(zv)volny(tec)cz
> >
> >
>
>
IB
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.3.2000 08:51:11
Grant a Revoke, podivej se do SQL Reference.
Slavek
-----P�vodn� zpr�va-----
Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
Odesl�no: 22. b�ezna 2000 6:59
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: IB
kde nastavim v Interbase pre uzivatela ake prava ma s jednotlivymi tabulkami databazy ?
Martin
<<Soubor: ATT00004.html>>
Ako urobit TCheckBox.ReadOnly
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 22.3.2000 08:57:01
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.
A co takhle nastavit Enabled na False.
Jaromir Cermak
-----Original Message-----
From: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
Sent: Tuesday, March 21, 2000 1:17 AM
To: Delphi CZ konferencia
Subject: Ako urobit TCheckBox.ReadOnly
Zdravim.
Potrebujem Checkbox ale aby bol ReadOnly ?
Hi. Roland;
Spusteni programu
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 22.3.2000 09:08:06
Rad bych si udelal programek, ktery eviduje spustene aplikace ve Windows.
Posilaji windows nejakou informaci, ze se program spustil nebo ukoncil ?
Nekym mi byla doporucena fce SetWindowsHookEx, ale nejsem schopen zjistit, na co se mam chytat.
Rad bych to udelal jako reakci na udalost a ne skenovanim prostredi pomoci timeru.
Mate s tim nekdo nejake zkusenosti ? Klidne i jine reseni.
Diky.
S pozdravem Miki
Inteligentni Round
[*] ing. Ales Da�a - 22.3.2000 09:13:27
Zkus tuhle funkci:
Function Zaokrouhleni( Cislo1 : Double; CisloM:Double;
CisloJak:integer):Double;
{Zaokrouhli cislo na zadane CisloM zpusobem zadanym v cislejak }
{Cislo Jak 0 dolu 1 aritmeticky 2 nahoru}
{cisloM 1 na cele cisla 0.01 na setiny 10 na desitky atd}
var Prefix : Double;
Zbytek : Double;
Cislo : Double;
CisloJeMinus : boolean;
begin
Cislo := Cislo1;
IF Cislo = 0 then
begin
result := 0.0;
exit;
end;
CisloJeMinus := False;
IF Cislo < 0 then
begin
Cislo := Cislo * (-1) ;
CisloJeMinus := True;
end;
Prefix := Int(cislo/CisloM);
Prefix := Prefix * CisloM;
Zbytek := Cislo - Prefix ;
Case CisloJak of
0 : {dolu}
begin
Cislo := Prefix;
end;
1 : {aritm}
begin
if zbytek > CisloM/2 then
zbytek := CisloM
else
Zbytek := 0;
Cislo := Prefix + Zbytek;
end;
2 : {nahoru}
begin
if zbytek > 0 then
Cislo := Prefix + CisloM;
end;
end;
IF CisloJeMinus then
Cislo := Cislo * (-1);
result := Cislo;
end;
Ales Dana
tel.:0603 457 024
ales.dana(zv)atlas(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Jirka
Virt
Sent: Tuesday, March 21, 2000 7:31 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Inteligentni Round
Ahoj,
nevite jak zaokrouhlovat treba na 3 des. mista?
Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
Jirka Virt
email: virt(zv)volny(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.118 / Virov� b�ze: 56 - datum vyd�n�: 17.1.2000
Zvukovka
[*] Macko Peter <macko(zv)axa.sk> - 22.3.2000 09:41:29
Ahojte,
da sa urobit nasledovne:
Nejaky samostatny program posiela na zvukovu kartu data. Je mozne urobit
program, ktory tieto data zachyti a napr. ulozi do suboru?
Dakujem
Peter Macko
macko(zv)axa.sk
MP3
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 22.3.2000 09:05:54 gmt
cau, doufam, ze ti pomuze tato komponenta
http://www.fi.muni(tec)cz/~xskriva1/HOME1/
pub/programming/Delphi/Components/Delphi_mp3.zip
zatim,...
Martin <geoplan(zv)pp.sinet.sk> p�e v diskusn�m
p��sp�vku:FrsKC3.CK(zv)news.muni(tec)cz...
> zdravim,
>
> potrebujem zo sovojej aplikacie prehravat subory mp3. Ale nechcem pouzit =
> externy program. Viac by mi vyhovovala nejaka dll kniznica, nak ktorou =
> by som si iba urobil interface. Veviete niekdo o niecom takom ?
>
> vdaka za kazde nakopnutie.
>
> Martin
XML Zkusenosti
[*] Matula M <asexrm(zv)telecom(tec)cz> - 22.3.2000 10:08:14
Mam dotaz na nekoho, kdo delal vystupni sestavy ve formatu XML. Zajima mne
jake komponenty pouzil a jaky ma dojem z XML, pripadne odkazy na dema v
Delphi.
Mirek
Zaseknute TQuery
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 22.3.2000 10:11:46
Mam nasledovny problem>
D3 C/S
V dvoch NT servisoch spustam jednoduche Query (nad jednou tabulkou) nad
Oraclom
Pouzivam standardny komponent TQuery.
V jednom service to beha ok, v druhom
sa po zavolani Query.open program zasekne,
t.j. nehody exception a nepokracuje na dalsom riadku ...
Aby to nebolo take jednoduche, tak na jednom pocitaci to funguje na druhom
nie (obidva NTcka 4.0/Sp 5)
Vsetky bezne moznosti zlyhania su uz preskumane, ale stale to nebeha
neviete v com to moze byt?
za vsetky inteligentne odpovede dakujem
olej
Control a poloha mysi
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 22.3.2000 09:11:46 gmt
to je celkem problem
lze to asynchronne pomoci funkce GetCursorPos / SetCursorPos
mozna, ze by to slo i pres event, ale musel by ses napichnout na vsechny
okna,
coz jsem jeste nezkousel
Marify
J�n Grman <janog(zv)pluto.elf.stuba.sk> p�e v diskusn�m
p��sp�vku:Frrvpx.LI0(zv)news.muni(tec)cz...
> Mam velmi jednoduchy problem ale sa mi nedari...
>
> Mam komponent a chytam jeho event OnMouseMove !
> Problem je ze v tom evente nezachytim fakt, ze mys nie je nad tymto
> komponentom ! (je niekte mimo v ramci okna, alebo dokonca nad oknom uplne
> inej aplikacie...)
> Co s tym ?
>
> JaNo.
>
MP3
[*] Vladim�r M�tl - 22.3.2000 10:41:48
Na mp3.musichall(tec)cz je sekce mpx programming,
je tam zdrojak prehravace (v Delphi a C++)
Vlada
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, March 21, 2000 12:37 PM
Subject: MP3
zdravim,
potrebujem zo sovojej aplikacie prehravat subory mp3. Ale nechcem pouzit externy program. Viac by mi vyhovovala nejaka dll kniznica, nak ktorou by som si iba urobil interface. Veviete niekdo o niecom takom ?
vdaka za kazde nakopnutie.
Martin
run time 255
[*] ing. Ale� Da�a - 22.3.2000 11:12:39
Zkousime prelozit programy z D4 pod D5 (MIDAS) a hlasi nam to chybu po
ukonceni serveru runtime 255 a navic pri prekladu nastane chyba sdileni v
knihovne DCC50.DLL. Nevite co s tim. Diky
D5 + SP1
Ales Dana
XML Zkusenosti
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.3.2000 11:15:40
> -----P�vodn� zpr�va-----
> Od: Matula M [mailto:asexrm(zv)telecom(tec)cz]
> Odesl�no: 22. b�ezna 2000 10:08
> Komu: Delphi Forum
> P�edm�t: XML Zkusenosti
>
>
> Mam dotaz na nekoho, kdo delal vystupni sestavy ve formatu
> XML. Zajima mne
> jake komponenty pouzil a jaky ma dojem z XML,
XML se mi libi.
> pripadne odkazy
> na dema v
> Delphi.
nevim, jake Delphi komponenty existuji.
Pouzivam Microsofti XML DOM (COM objekty)
Jura
MP3
[*] Ing. Lubomir GAL <gal(zv)minv.sk> - 22.3.2000 11:15:31
HTTP 403 (Zak�zane): Nem�te pr�vo na zobrazenie tejto str�nky! (???)
>
> http://www.fi.muni(tec)cz/~xskriva1/HOME1/
> pub/programming/Delphi/Components/Delphi_mp3.zip
>
LuGa
***************************
Lubomir "Levec" GAL, -LuGa
O.T.I., KR PZ Nitra, SK
mailto:gal(zv)minv.sk
***************************
Tajnej String
[*] Ondrej Slama <slama(zv)internet(tec)cz> - 22.3.2000 11:24:12
Dobry den,
mam takovy problemek.
Jestlize si v programu vytvorim promenou typu STRING a priradim ji hodnotu
kterou
vyuzivam, tak je po kompilaci ve vyslednem kodu tento string citelny(jak
jinak).
Existuje jinej zpusob jak tento string zneviditelnit treba pomoci polozek v
nastaveni, nez
ho slozite(nebo mene slozite) kryptovat a dekryptovat za behu programu ???.
A pak jeste jeden dotaz. Nevi nekdo o komponente MD5 hashe pro delphi ???
Dik za pomoc
Inteligentni Round
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 22.3.2000 10:52:50 -0000
treba takhle:
function InteligentniRound(Cislo: Extended; PocDesMist: Integer): Extended;
var
I, J: Integer;
begin
J := 1;
for I := 1 to PocDesMist do
J := J*10;
Result := Round(Cislo * J) / J;
end;
Ahoj Tomas Bihary
----- Original Message -----
From: Jirka Virt <virt(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 21, 2000 6:30 PM
Subject: Inteligentni Round
> Ahoj,
>
> nevite jak zaokrouhlovat treba na 3 des. mista?
> Neco jako ROUND(cislo,4,3), kde by vysledek vypadal 1234,123.
>
>
> Jirka Virt
>
> email: virt(zv)volny(tec)cz
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.3.2000 12:03:59
On 21 Mar 00, at 22:00, Ladislav Nagy wrote:
> > > Proc ne do jineho recordsetu (=ADORecordset) ? Vzdyt je to take
> > > spec. struktura. Navic diky tomu, ze je to COM objekt, tak si mohu
> > > snadno predavat mezi COMy sve aplikace interface toho RecordSetu.
> > > Hlavne se mi jedna o vicevrstvou architekturu.
> >
> > V mem pripade je to velice jednoduche. :-) Nepouzivam zadny
> > ADORecordset ani nic podobneho, ale pouze komponenty pro
> > pripojeni k OLE DB. Tyto komponenty si nikde data neskladuji,
> > slouzi vyhradne pro jejich prenos mezi databazi a programem.
>
> Myslim, ze o tom neni pochyb, ze pristup pres OleDb je rychlejsi nez
> pres ADO (viz. nekdo posilal odkaz do konference, kde k tomu byl
> clanek primo od Microsoftu). O kolik? Buh vi.
Pokud se ADO komponenty dobre pouziji a pokud nebude
prekryvna vrstva obsahovat hrubou botu (jako tomu bylo u
ADOExpress v prvni edici; patch jsem jeste netestoval), pak rozdil
neni az tak vyrazny, aby to stalo za prechod.
> Nicmene
> - s ADem se snadno pracuje
To jiste.
> - ma hromadu metod
Zde nelze zcela souhlasit. OLE DB ma take hromadu metod. :-) Na
pocet vic nez ADO. Na jedne strane ma sice ADO oproti OLE DB
pridanou hodnotu (RDS, napriklad), na druhe strane zase ADO
radu moznosti oproti OLE DB ztraci (napriklad, v OLE DB se da
lepe preusporadat tok a typ dat). Krome toho, z OLE DB mohu do
ADO v pripade potreby celkem bez problemu odskocit.
> - dobre se predava mezi COMy
OLE DB je take postavene na COM.
> - mame koupene Datasetove komponenty, na ktere se snadno napoji
> ADORecordSety
:-) No jo, investice. To ovsem nepatri do technologicke debaty. Je
jasne, ze kdyz se neco naucim pouzivat a zainvestuji to, ze se s
tim budu nerad loucit. Proto se take nesnazim nikoho presvedcovat
ke konverzi.
Vidim tu vsak jiny problem. Kdyz jsem se cca pred rokem
rozhodoval, zda pouzit ADO nebo OLE DB, zda to napasovat na
TDataSet nebo to postavit cele znovu a jinak, prostudoval jsem si
samozrejme TDataSet a tridy souvisejici (TFields). Ze studia a
ruznych pokusu mi vyslo, ze z dlouhodobeho hlediska je
vyhodnejsi TDataSet opustit i za cenu, ze zahodim vsechny
navazujici vizualni komponenty a napisu si vlastni. U OLE DB je to
jednoznacne, u ADO to sice neni tak pruhledne, ale take by to
chtelo jine jadro. V podstate narazim na to, ze OLE DB umoznuje
znacne volnou manipulaci s daty (ADO uz zdaleka ne tak dobre),
kterezto TDataSet ve spojeni s TFields dosti uspesne brani.
> - pres ADO mohu pristupovat k databazim, souborum, mailum, Excelu,
> Wordu, ... - kdyz se jednou naucim pracovat s ADem, tak to mohu pouzit
> z Delphi, HTML, Visual Basicu, ...
:-) Eh - ADO je potomkem OLE DB a vola sluzby OLE DB, takze
OLE DB toto vsechno umi take. To jen na vysvetlenou...
> S OleDb jsem primo nikdy nepracoval, takze nevim, co z toho mohu
> vyuzit i kdyz budu pracovat s OleDb primo. Mohl bys Zbysku napsat, co
> z toho lze vyuzit i pri praci s OleDb primo a co pri praci s Tvymi
> komponentami.
Vsecno, co umi ADO, lze s OLE DB take. Pokud OLE DB nejakou
sluzbu nema (napr. zminovane RDS), lze pouzit tu z ADO. V
principu veci nic nebrani mixovani obou, pouze clovek musi byt
trochu opratrnejsi v tom, co dela. Jinak, prima prace s OLE DB je
dost vrazedna, to snad ani nedoporucuji, narozdil od ADO.
Co se tyka mych komponent, tak ty zatim nepokryvaji (tedy na
urovni Delphi komponenty) zdaleka vsechno, co umi OLE DB.
Zatim to ma ty vlastnosti, ktere potrebuji ke svym programum, a k
praci S MS SQL 7.
> > Podle popisu komponent to vsak znamena, ze chces-li se odpojit
> > od databaze, stejne si budes muset data nekam prelit, protoze
> > Recordset je zahodi, pokud neni pripojen (pokud nahodou kecam,
> > opravte me nekdo, s ADO jsem provedl jen nekolik pokusu, jinak s nim
> > nepracuji). Jestli lze nejak jinak zachovat data v Recordsetu pri
> > odpojeni od databaze nevim, ale domnivam se, ze ne.
>
> O existenci disconnected recordsets a bufferovani uz tu byla rec. Ale
> mas pravdu, dochazi tu k dvojimu prelevani dat. Puvodne jsem si
> myslel, ze tak jako se z Adonis komponent mohu dostat na RecordSet a
> pracovat s timto ADO objektem primo (ADODataSet.RecordSet), tak ze
> budu moci pristoupit RecordSetu na RowSet of OleDb Provider. Zadnou
> podobnou propertu jsem tam nenasel.
Erik uz tuhle otazku uspokojive vysvetlil. Nicmene, moznosti OLE
DB v manipulaci s daty povazuji za natolik lepsi, ze se mi vyplati
pouzivat primo OLE DB (tedy volanim pres Delphi komponenty :).
> Mimochodem, duvod proc presypavam data do pomocneho RecordSetu je to,
> ze nelze updatovat identity fields v disconnected recordsetu. Ty si
> presypavas data do pomocnych struktur, ja do RecordSetu. Myslim, ze o
> trosku vyssi rychlost presypani do Tve struktury je vykoupeno
> pracnejsi prac� s Tvou strukturou.
Opet nesouhlasim. Pokud presypu data napriklad do OdbGridu, je
prace s daty uplne stejne pracna jako s RecordSetem. Nebo si
mohu data prelit do nejakeho "array", a vysledek pak bude stejny.
Dokonce tam mam moznost, ze staci nadefinovat strukturu, pointer
na nejake pole a rict komponente, at vycte do toho pole data podle
definovane struktury. Pak se ani nemusim starat o nejake vycitani v
cyklu, to zaridi komponenta. Na druhe strane, nejsem prilis
naklonen prime editaci nad "zivymi" daty, takze toto ve svych
komponentach prilis neusnadnuji. To je ale vec meho pristupu, ne
OLE DB.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ako urobit TCheckBox.ReadOnly
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 22.3.2000 11:03:17 -0000
Jeste male doplneni:
U CheckBoxu nech Enabled True
Dej ho na panel s Enabled False
Vysledek bude stejnej akorat CheckBox nebude sedivej.
Ahoj
Tomas Bihary
----- Original Message -----
A co takhle nastavit Enabled na False.
Jaromir Cermak
-----Original Message-----
From: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
Sent: Tuesday, March 21, 2000 1:17 AM
To: Delphi CZ konferencia
Subject: Ako urobit TCheckBox.ReadOnly
Zdravim.
Potrebujem Checkbox ale aby bol ReadOnly ?
Hi. Roland;MP3
[*] Ivan Balharek <balharek(zv)teska(tec)cz> - 22.3.2000 12:06:45
Odesilejte sve maily na spravne adresy do konference
Ne jinam.
----- Original Message -----
From: Martin Skrivanek <marify(zv)post(tec)cz>
Newsgroups: cz.muni.redir.delphi
Sent: Wednesday, March 22, 2000 10:05 AM
Subject: Re: MP3
> cau, doufam, ze ti pomuze tato komponenta
>
> http://www.fi.muni(tec)cz/~xskriva1/HOME1/
> pub/programming/Delphi/Components/Delphi_mp3.zip
>
> zatim,...
>
> Martin <geoplan(zv)pp.sinet.sk> p�e v diskusn�m
> p��sp�vku:FrsKC3.CK(zv)news.muni(tec)cz...
> > zdravim,
> >
> > potrebujem zo sovojej aplikacie prehravat subory mp3. Ale nechcem pouzit
=
> > externy program. Viac by mi vyhovovala nejaka dll kniznica, nak ktorou =
> > by som si iba urobil interface. Veviete niekdo o niecom takom ?
> >
> > vdaka za kazde nakopnutie.
> >
> > Martin
>
>
>vyhodnotenie log vyrazu
[*] olej.jozef(zv)slsp.sk - 22.3.2000 12:08:45
Ahoj,
Potreboval by som vyhodnoti log. vyraz
napr. ak do stringu zadam s:='NOT(1<6 AND 7>4) OR (1<4)' potreboval by som
vediet ci je TRUE alebo FALSE.
Nevideli ste niekde nahodu nejaku funkciu co to vie spravit?.
Dakujem.
Jozo
TMessage
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 22.3.2000 11:47:35 -0000
----- Original Message -----
> ----- Original Message -----
> From: Jiri Toman <toman(zv)plbohnice(tec)cz>
> Sent: Monday, March 20, 2000 2:01 PM
> Subject: TMessage
>
>
> > Ahoj vsici vespolek.
> >
> > Mam jeden dotaz ohledne odchytavani zprav.
> > Podotykam, ze jde jen o cvicny priklad bez konkretniho vyuziti.
> > Chtel bych odchytavat napr. message WM_KEYDOWN v ramci cele
> > aplikace. Tedy i ve vsech komponentach na Formu. Pokud Form
>
> Skus nastavit property TForm1.KeyPreview := True;
>
>
> Palo.
>
>
Ahoj
To bohuzel nepomuze, kdyz bude na formulari treba butonek
tak se OnKeyDown nevyvola pro sipky a tabulator...
reseni:
a) v udalosti Application.OnMessage odchytnout zpravu
WM_KEYDOWN a zpracovat ji
b) pomoci SetWindowsHookEx zahookovat klavesnici
pred casem jsem na to delal takovou malickou komponentu
jestli ji chces tak se ozvi
ahoj Tomas Bihary
tomas(zv)wige-mic(tec)cz
Tajnej String
[*] martin.falta(zv)atlas(tec)cz - 22.3.2000 12:55:54
>A pak jeste jeden dotaz. Nevi nekdo o komponente MD5 hashe pro delphi ???
Neco bych mel. Stahnul jsem to tusim z DSP. Jestli mas zajem, tak se ozvi.
Martin
Connection Points
[*] jemeto <jemeto(zv)volny(tec)cz> - 22.3.2000 13:43:34
D5E, WNT4,SP5
Nemohl by me nekdo poradit, popr napsat odkazy na stranky WWW nebo priklady na vytvoreni eventy v programu pouzivajici COM/DCOM pres Connection Points.
Diko moc
Kopirovanie
[*] kinekus <kinekus(zv)nextra.sk> - 22.3.2000 14:18:53
Prepacte za tuto trivialnu otazku. S delphi iba zacinam. V dokumentacii som vsak o kopirovani suboru nic nenasiel. Ide o systemove kopirovanie. Ako to mam urobit ?
Dakujem
IB6 create table
[*] J�n Tungli - 22.3.2000 15:03:57
Siahol som IB6 beta
Neviem vytvorit v ISQL datatbazu
Mozete mi poradit?
USERNAME: USERNAME
PASSWORD: password
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
Tajnej String -- MD5
[*] azeleny(zv)csas(tec)cz - 22.3.2000 15:10:35
Zde je hlavicka z readme, tusim maji komponentu na MD5
******************************************************
CRYPTOCard Corporation
http://www.crpytocard.com
Carleton Place, ON CANADA
Crypto Library Contact: Greg Carter,
gregc(zv)cryptocard.com
******************************************************
> A pak jeste jeden dotaz. Nevi nekdo o komponente MD5 hashe
a.InsertRecord v D5
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 22.3.2000 16:04:21 -0000
Zdravim,
ako vlozim record z jedneho dataset do druheho, ked pole Id je autoincrement
a unique. Pri tomto to padne:
temp1.InsertRecord(temp2.field[0].asInteger, ...);
Vypise, ze pole Id sa nemoze menit. Toto je v D5.
V D3 mi islo toto
temp1.InsertRecord('', temp2.field[1].asString, ...); No ale v D5 to pise tu
istu chybu ako v predoslom napade.
Miso
RxDBGrid
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.3.2000 17:35:41
On 22 Mar 00, at 7:47, David Lebeda wrote:
> > Mel bych jeden dotaz - zacal jsem ted pouzivat RxDBGrid pro
> > zobrazovani dat, ktera mam ulozena v RxMemoryData. Vsechno
> > (alespon zatim) funguje OK, az na jednu vec. Kdyz je v RxDBGridu vic
> > radku, nez se "vejde" do okna aplikace, tak se (pochopitelne) na
> > prave strane objevi prislusny ScrollBar. Ale ten ma tu neprijemnou
> > vlastnost, ze neukazuje aktualni "polohu" v gridu, ale nastavi se -
> > na zacatek, jsem-li na prvni radku - na konec, jsem-li na poslednim
> > radku - doprostred, jsem-li na ostatnich radcich. Pritom klikani
> > mysi na ScrollBar funguje spravne (tj. dela to posun o jeden radek,
> > o stranku, atd). S mysi to blbne pouze kdyz ten ctverecek "chytnu"
> > mysi a posouvam jej, tak vypis v gridu nescroluje, ale teprve az
> > uvolnim mys, tak se nekam nastavi. Je to standardni chovani
> > RxDBGridu? Jestli jo, da se to nejak obejit, tj. aby ScrollBar
> > ukazoval aktualni pozici?
>
> Sice to bude muj odhad, ale presto: domnivam se, ze to je nejen
> standardni chovani RxDbGridu, ale vetsiny DbGridu a souvisi to s tim,
> co tady kdysi kdosi nazval virtual view. DbGrid predem nezna pocet
> zaznamu, a proto nemuze spocitat pozici scrollbaru. Pozna jen stav, ze
> je na prvnim radku, poslednim radku nebo nekde uprostred. V mrizce
> jsou zobrazena jen data, ktera maji byt videt, mozna nejaka rezerva,
> ale DbGrid podle me nema prehled o datech mimo tento vysek.
Podle meho nazoru to neni vlastnost prislusneho gridu, ale zdroje
dat, ktery neumi pocet radku vratit. Kuprikladu, DBGrid ve spojeni
BDE + souborova databaze nebo DBGrid + ADO umi pocet radku
vratit, kdezto DBGrid + BDE + SQL databaze nikoliv. Z
vyjmenovanych pripadu je tedy problem v BDE. Ve vyse Rx bych
tedy hledal problemy v RxMemoryData.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
vyhodnotenie log vyrazu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.3.2000 17:47:31
On 22 Mar 00, at 12:08, olej.jozef(zv)slsp.sk wrote:
> Potreboval by som vyhodnoti log. vyraz
> napr. ak do stringu zadam s:='NOT(1<6 AND 7>4) OR (1<4)' potreboval by
> som vediet ci je TRUE alebo FALSE. Nevideli ste niekde nahodu nejaku
> funkciu co to vie spravit?.
Neni to sice presne ono, ale zkus http://www.chat.ru/~virtlabor.
Vyraz se zadava do extra souboru, ale prilozene nastroje ho umeji
vyhodnotit a vratit hodnotu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dotaz na subclassing
[*] Karel Bauer <K.Bauer(zv)protank(tec)cz> - 22.3.2000 18:44:41
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
chtel bych se zeptat, jestli by mi nekdo mohl poradit s pouzitim funkce
SetWindowLong pro definici vlastni procedury na zpracovani zprav. Mam okno
vytvorene pomoci funkce CreateWindow a potrebuji reagovat na udalosti mysi
nad timto oknem. Zatim vsechny pokusy skoncily hlasenim AccessViolation.
Kdyby mi nekdo mohl poslat nejaky priklad, moc by mi pomohl.
diky
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
Dotaz na subclassing
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.3.2000 20:56:55
>chtel bych se zeptat, jestli by mi nekdo mohl poradit s pouzitim funkce
>SetWindowLong pro definici vlastni procedury na zpracovani zprav. Mam okno
>vytvorene pomoci funkce CreateWindow a potrebuji reagovat na udalosti mysi
>nad timto oknem. Zatim vsechny pokusy skoncily hlasenim AccessViolation.
>Kdyby mi nekdo mohl poslat nejaky priklad, moc by mi pomohl.
Pokud se nepletu tak ke spravne definici vlastniho okna je treba:
- nadefinovat spravne window class (TWNDClass)
- registrovat class pomoci RegisterClass()
- pomoci CreateWindow() vytvorit okno na zaklade registrovane class
Class obsahuje pointer na proceduru zpracovavajici zpravy (lpfnWNDProc)
SetWindowLong() k tomu neni potreba.
Zdravi
D. Toman
Soubory pot�ebn� ke spu�t�n� aplikace
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 22.3.2000 21:20:36
V�m, �e m�j dotaz bude asi hodn� stupidn�, ale nev�te kde bych zjistil, jak� soubory(*.dll, *.dpk) mam dodavat se svou aplikac�, aby chodila i na jin�ch po��ta��ch, kde nejsou nainstalov�ny Delphi. Pop��pad� do jak�ch adres��� je nahrat?
Petr Pascenko
P.S.: Odpoved prosim i pro starsi verze delphi (2,3,4).Delsi QRBand na dalsi stranku
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 22.3.2000 21:26:17
Pri tisku z QRep. uzivam - li QRBand a uvnitr QRDBText (s nastavenou vlastnosti Autostretch na True) odkazujici na blob pole dochazi pri tisku k chybnym vystupum. Pravdepodobne je duvod v QRBandu jehoz delka prekracuje konec stranky. Nevite nekdo jak tomu zabranit?
Dekuji, Petr Pascenko
Schranka Windows
[*] Luk� V��a - 22.3.2000 21:32:30
Dobry den,
potreboval bych ve svem programu reagovat na udalost zapsani novych dat do
schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
Ctrl+X, protoze se data do schranky v ruznych programech dostavaji ruzne
(pres tlacitko, nabidku, nebo jinou klavesovou zkratku). Neexistuje moznost
odchytit tuto udalost primo?
Delphi 2 a 4, Windows 95.
Dekuji, Lukas Vana.F1 Book, vzhled stranky
[*] Roman �ev��k����� �Ȥ�*%�̿ - 23.3.2000 01:28:17
Ahoj,
pri exportu do XLS (pouzivam F1Book) potrebuji nastavit okraje v dokumentu pro tisk, nevite nekdo kde ?
Dik
Roman
Kopirovanie
[*] Zdenek Moravec <zmoravec(zv)klet(tec)cz> - 23.3.2000 02:21:22 -0000
Windows maji funkci CopyFile (pro WinNT taky CopyFileEx), viz Win32 Help:
The CopyFile function copies an existing file to a new file.
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
Tez existuji funkce MoveFile a MoveFileEx pro presouvani a DeleteFile pro
smazani souboru.
Zdenek Moravec
Hvezdarna Klet
----- P�vodn� zpr�va -----
Od: kinekus <kinekus(zv)nextra.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 22. b�ezna 2000 13:18
P�edm�t: FW: Kopirovanie
Prepacte za tuto trivialnu otazku. S delphi iba zacinam. V dokumentacii som vsak
o kopirovani suboru nic nenasiel. Ide o systemove kopirovanie. Ako to mam urobit
?
Dakujem
OT : Sdileni modemu
[*] Radek Lev� - 23.3.2000 06:55:22
Ahoj vespolek,
omlouvam se za OT, ale potreboval bych nutne poradit s nasledujicim
problemem :
Mam dva pocitace propojene pomoci sitovych karet. Na jednom je interni
modem, ktery slouzi pouze na pristup k internetu. Ja bych poterboval tento
modem nejakym zpusobem nasdilet druhemu pocitaci, na kterem bezi DOSovska
aplikace pripojujici se na banku a komunikujici primo s modemem. Potreboval
bych neco jako virtualni seriovy port namapovany na druhy pocitac.
O rychlost tady nejde, te bankovni aplikaci staci malo...
Radek Levy
lev(zv)cca(tec)cz
parametry pro fullscreen
[*] David Papou�ek <davidekpu(zv)seznam(tec)cz> - 23.3.2000 08:18:37
Ahoj vsichni,
chtel bych se prosim zeptat co je vsechno dulezite nastavit za parametry kdyz chci pouzit funkci ChangeSettingsDisplay pro fullscreen mod. Vim ze je nutne nastavit dmPelsWidth, dmPelsHeigh a dmBitsPerPel ale je to vsechno nebo jeste neco?
Predem dekuji
David Papousek
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
IB6 beta - Windows & Solaris
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 23.3.2000 08:12:54
tak uz i tohle je ke stazeni
http://www.interbase.com
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Schranka Windows
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 23.3.2000 08:13:55
Ahoj,
existuje nejaky komponent, ktery reaguje na zmenu dat ve schrance.
Jaro B.
unit ClipNote;
{The event OnClipboardChange is triggered,
when any application changes clipboard data.
by Sergei V. Trepalin, trep(zv)ism.ac.ru
Free. No warranty.}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TClipNote = class(TComponent)
private
{ Private declarations }
FNextChain:THandle;
FOnClipboardChange:TNotifyEvent;
FOldProc,FNewProc:pointer;
procedure UnhookControl;
procedure HookProc(var Message:TMessage);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property OnClipboardChange:TNotifyEvent read FOnClipboardChange write
FOnClipboardChange;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TClipNote]);
end;
constructor TClipNote.Create(AOwner: TComponent);
var
N:integer;
begin
inherited;
UnhookControl;
if (Owner<>nil) and not (csDesigning in ComponentState) then begin
N:=GetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC);
FOldProc:=pointer(N);
FNewProc:=MakeObjectInstance(HookProc);
N:=integer(FNewProc);
SetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC,N);
FNextChain:=SetClipboardViewer((AOwner as TWinControl).Handle);
end;
end;
destructor TClipNote.Destroy;
begin
UnhookControl;
inherited;
end;
procedure TClipNote.HookProc(var Message: TMessage);
begin
if Message.Msg=WM_DRAWCLIPBOARD then begin
if Assigned(FOnClipboardChange) then FOnClipboardChange(Self);
Message.Result:=0;
end else if Message.Msg=WM_CHANGECBCHAIN then begin
if Message.wParam=FNextChain then FNextChain:=Message.lParam else
if FNextChain<>0 then
SendMessage(FNextChain,Message.Msg,Message.wParam,Message.lParam);
Message.Result:=0;
end;
Message.Result:=CallWindowProc(FOldProc,(Owner as
TWinControl).Handle,Message.Msg,
Message.wParam,Message.lParam);
if Message.Msg=WM_DESTROY then begin
UnhookControl;
ChangeClipboardChain((Owner as TWinControl).Handle,FNextChain);
end;
end;
procedure TClipNote.UnhookControl;
var
N:integer;
begin
if (Owner<>nil) and (FOldProc<>nil) and (FNewProc<>nil) then begin
N:=integer(FOldProc);
SetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC,N);
FreeObjectInstance(FNewProc);
FOldProc:=nil;
FNewProc:=nil;
end;
end;
end.
> -----P�vodn� zpr�va-----
> Od: Luk� V��a [SMTP:lukas(zv)oknet(tec)cz]
> Odesl�no: 22. III 2000 21:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Schranka Windows
>
> Dobry den,
>
> potreboval bych ve svem programu reagovat na udalost zapsani novych dat do
> schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
> Ctrl+X, protoze se data do schranky v ruznych programech dostavaji ruzne
> (pres tlacitko, nabidku, nebo jinou klavesovou zkratku). Neexistuje
> moznost
> odchytit tuto udalost primo?
>
> Delphi 2 a 4, Windows 95.
>
> Dekuji, Lukas Vana.
> OT : Sdileni modemu
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 23.3.2000 08:28:42
> Mam dva pocitace propojene pomoci sitovych karet. Na jednom je interni
> modem, ktery slouzi pouze na pristup k internetu. Ja bych poterboval tento
> modem nejakym zpusobem nasdilet druhemu pocitaci, na kterem bezi DOSovska
> aplikace pripojujici se na banku a komunikujici primo s modemem. Potreboval
> bych neco jako virtualni seriovy port namapovany na druhy pocitac.
> O rychlost tady nejde, te bankovni aplikaci staci malo...
tento problem sa riesi pomocou PROXY.
Ale neviem ci ta DOS aplikacia podporuje PROXY.
/LH
XML Zkusenosti
[*] Matula M <asexrm(zv)telecom(tec)cz> - 23.3.2000 08:37:17
>XML se mi libi.
> pripadne odkazy
> na dema v
> Delphi.
>nevim, jake Delphi komponenty existuji.
>Pouzivam Microsofti XML DOM (COM objekty)
>Jura
Promin jestli jsem mimo misu, ale zatim se rozhlizim. Myslel jsi ActiveX
MSXML_TLB (msxml.dll), vytvoris soubor XML a ten prohlizis
(ActiveX)Explorerem 5.0 ?
Mirek
Schranka Windows
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 23.3.2000 08:41:01
Pred casem jsem nekomu posilal priklad na pouziti funkce SetClipboardViewer
z WinAPI. Je to odladeno pro Delphi 1, prilozeny kod je pascalovska cast
formu.
unit ClipLogFrm;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ClipBrd;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
//funkce se vyvola pri zmene obsahu clipboardu
procedure ChangeClipBoard(var M: TWMDrawClipBoard); message
WM_DrawClipBoard;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
//tim se zaregistruje form do seznamu oken upozornovanych na zmeny
clipboardu
SetClipBoardViewer(Self.Handle);
end;
procedure TForm1.ChangeClipBoard(var M: TWMDrawClipBoard);
begin
//a tady kazdou zmenu clipboardu nejak zpracujeme (pridame do logovaciho
mema)
memo1.Lines.Add(Clipboard.AsText);
end;
end.
Jura
> -----P�vodn� zpr�va-----
> Od: Luk� V��a [mailto:lukas(zv)oknet(tec)cz]
> Odesl�no: 22. b�ezna 2000 21:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Schranka Windows
>
>
> Dobry den,
>
> potreboval bych ve svem programu reagovat na udalost zapsani
> novych dat do
> schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
> Ctrl+X, protoze se data do schranky v ruznych programech
> dostavaji ruzne
> (pres tlacitko, nabidku, nebo jinou klavesovou zkratku).
> Neexistuje moznost
> odchytit tuto udalost primo?
>
> Delphi 2 a 4, Windows 95.
>
> Dekuji, Lukas Vana.
> Schranka Windows
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 23.3.2000 08:45:26
Nemam moznost to ted najit, ale existuje API funkce, kterou se
zaregistrujes, jako ze jses Editor clipboardu a potom vzdy pri jeho
zmene dostanes zpravu od Woken.
> Dobry den,
>
> potreboval bych ve svem programu reagovat na udalost zapsani novych dat do
> schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
> Ctrl+X, protoze se data do schranky v ruznych programech dostavaji ruzne
> (pres tlacitko, nabidku, nebo jinou klavesovou zkratku). Neexistuje moznost
> odchytit tuto udalost primo?
>
> Delphi 2 a 4, Windows 95.
>
> Dekuji, Lukas Vana.
>
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
MP3
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 08:47:52
Ten odkaz je rozdelen na dva radky,
kdyz ho spojis, tak to funguje
..../HOME1/pub/programming/...
> ----------
> Od: Ing. Lubomir GAL[SMTP:gal(zv)minv.sk]
>
>
> HTTP 403 (Zak> �zane): Nem�te pr�vo na zobrazenie tejto str�nky! (???)
> >
> > http://www.fi.muni(tec)cz/~xskriva1/HOME1/
> > pub/programming/Delphi/Components/Delphi_mp3.zip
> >
> RTF barva, styl
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 23.3.2000 08:48:21
Zdravim,
nevi nekdo jak pridat text do Rtf a pritom potrebuji obarvit, resp. zmenit styl pridaneho textu. Vim, ze mam nastavit od-do zmenu, ale shanim nejakou komponentu, ktera by treba delala:
AddTxtRtf('zde bude <clRed><sfBold>jakysi<sfEnd><clEnd> text',rtf)
Rtf.Lines.Add('zde bude jakysi text')
Diky Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Tisk vybraneho recordu v QRep
[*] psojka(zv)els.ln.skoda(tec)cz - 23.3.2000 08:54:22
Zdravim.
Mam takovy problem. Mam temer nulove zkusenosti
s QReportem a nedari se me dosahnout pozadovaneho
vysledku. :(
Mam tabulku, vyberu jeden record a potreboval bych,
aby se vytiskl pouze a jenom ten jeden vybrany record.
V preiview se prislusny list s udaji z recordu ukazuje
(a zadny jiny), ale jakmile to poslu na tiskarnu
tak mi to vyjede X-listu pres vsechny recordy v tabulce.
Muzete mi nekdo poradit, jak mam ten QReport poladit,
aby to tisklo jen ten jeden vybrany record.
Predem diky
P.Sojka (D4Pro)
Tajnej String
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 08:58:32
IMHO to jinak, nez pouzit nejaky kryptovaci mechanismus
nepujde, i kdyby jsi misto string pouzil WideString, tak
to porad bude citelne (jen s tim rozdilem, ze jednotlive
znaky toho retezce zaberou 2 bajty).
Ad 2) prohledej torry, dsp, nebo, tam ted obzvlaste rad
hledam, http://www.delphipages.com/ ...
Dobra.
> ----------
> Od: Ondrej Slama[SMTP:slama(zv)internet(tec)cz]
>
> Jestlize si v programu vytvorim promenou typu STRING a priradim ji hodnotu
> kterou vyuzivam, tak je po kompilaci ve vyslednem kodu tento string citelny(jak
> jinak). Existuje jinej zpusob jak tento string zneviditelnit treba pomoci polozek
> v nastaveni, nez ho slozite(nebo mene slozite) kryptovat a dekryptovat za behu
> programu ???.
>
> A pak jeste jeden dotaz. Nevi nekdo o komponente MD5 hashe pro delphi ???
>
> Synteza reci
[*] Macko Peter <macko(zv)axa.sk> - 23.3.2000 08:59:08
Nazdar,
neviete niekto o obstojnom programe (komponente, kniznici) na synetzu reci
(Anglictina, Slovencina), ktoreho funkcie citania textu sa daju volat aj z
kodu vlastneho programu?
Prajem pekny den
Peter Macko
macko(zv)axa.sk
SQL syntaxe s rozdelenym nazvem fieldu
[*] psojka(zv)els.ln.skoda(tec)cz - 23.3.2000 09:09:29
Zdravim.
Potreboval bych trochu postouchnout
spravnym smerem. Mam tabulku, kde
se vyskytuji nektere delene nazvy
fieldu, tj. nazvy s mezerami.
(napr. 'Jalovy Vykon','Ztratovy koeficient' ap.)
Potreboval bych poradit, jak napsat SQL
prikaz pro selekci a sesortovani v TQuery
podle takto rozdelenych nazvu filedu.
Pri pouziti prikazu
SELECT * FROM Tbg WHERE Jalovy Vykon > 180000 ...
to vyhodi error:
Invalid use of keyword.
Token: Vykon
Line number: 1.
Pri pouziti uvozovek to zahlasi pro zmenu
Type mismatch in expression.
Poradte nekdo prosim, kterak to spravne napsat.
Predem diky za rychlou odpoved.
P.Sojka (D4Pro)
Schranka Windows
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 09:13:57
Ahoj,
ja to delam takto...
type
TForm1 = class (TForm)
...
...
...
public
procedure WMChangeCBChain(var Msg: TWMChangeCBChain);
message WM_CHANGECBCHAIN;
procedure WMDrawClipboard(var Msg: TWMDrawClipboard);
message WM_DRAWCLIPBOARD;
end;
...
...
...
procedure TForm1.WMChangeCBChain(var Msg: TWMChangeCBChain);
begin
if Msg.Remove=NextClipBoardViewer then
NextClipBoardViewer:=Msg.Next
else
SendMessage(NextClipBoardViewer, WM_CHANGECBCHAIN, Msg.Remove, Msg.Next);
Msg.Result:=0;
end;
procedure TForm1.WMDrawClipboard(var Msg: TWMDrawClipboard);
begin
SendMessage(NextClipBoardViewer, WM_DRAWCLIPBOARD, 0, 0);
Msg.Result := 0;
ClipBChanged;
end;
procedure TForm1.ClipBChanged;
begin
if Clipboard.HasFormat(CF_TEXT) then
begin
MenuItemPaste.Enabled:=true;
SpeedItemPaste.Enabled:=true;
end
else
begin
MenuItemPaste.Enabled:=false;
SpeedItemPaste.Enabled:=false;
end;
end;> ----------
> Od: Luk> � V��a[SMTP:lukas(zv)oknet(tec)cz]
>
> potreboval bych ve svem programu reagovat na udalost zapsani novych dat do
> schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
> Ctrl+X, protoze se data do schranky v ruznych programech dostavaji ruzne
> (pres tlacitko, nabidku, nebo jinou klavesovou zkratku). Neexistuje moznost
> odchytit tuto udalost primo?
>
> Soubory pot�ebn� ke spu�t�n� ap
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 09:18:27
Pokud tva aplikace neni kompilovana se vsemi,
pro ni potrebnymy balicky, tak musis dodat prave
tyto balicky (nejlepe asi do %windows%/system;
pokud Tva aplikace pouziva BDE, tak musis pochopitelne
dodat i BDE, ...
Pokud pouziva nejake funkce z nejake dll knihovny,
musis dodat i tu knihovnu; atd...
Jinak nemusis dodavat nic navic...
Musel by jsi byt konkretnejsi...
Dobra.> ----------
> Od: Petr Pa> ��enko[SMTP:petrpas(zv)volny(tec)cz]
>
> V> �m, �e m�j dotaz bude asi hodn� stupidn�, ale nev�te kde bych zjistil, jak� soubory(*.dll, *.dpk) mam dodavat se svou aplikac�, aby chodila i na jin�ch po��ta��ch, kde nejsou nainstalov�ny Delphi. Pop��pad� do jak�ch adres��� je nahrat?
>
> Petr Pascenko
>
> Kopirovanie
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 09:19:25
Ahoj,
pouzij API funkci CopyFile...
Dobra.
> ----------
> Od: kinekus[SMTP:kinekus(zv)nextra.sk]
> �>
> Prepacte za tuto trivialnu otazku. S delphi iba zacinam. V dokumentacii som vsak o kopirovani suboru nic nenasiel. Ide o systemove kopirovanie. Ako to mam urobit ?
> �>
> �> Schranka Windows
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 23.3.2000 10:02:33
Luk� V��a <lukas(zv)oknet(tec)cz> wrote:
>potreboval bych ve svem programu reagovat na udalost zapsani novych dat do
>schranky Windows. Bohuzel nelze pouzit odchytavani klaves Ctrl+C nebo
>Ctrl+X, protoze se data do schranky v ruznych programech dostavaji ruzne
Ja hlidam zmenu obsahu Clipboard pomoci metody HasFormat() popr. pomoci properties FormatCount a Formats[] viz help k TClipboard.
bye pf, Petr.Fejfar(zv)callnet(tec)cz
SQL syntaxe s rozdelenym nazvem fieldu
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 23.3.2000 10:18:46
Nevim jaky server pouzivas, ale treba v MS Accessu se musi pouzit []:
SELECT [Nazev polozky] FROM [Nazev tabulky]
Petr
-----Original Message-----
From: psojka(zv)els.ln.skoda(tec)cz [mailto:psojka(zv)els.ln.skoda(tec)cz]
Sent: Thursday, March 23, 2000 9:09 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL syntaxe s rozdelenym nazvem fieldu
Zdravim.
Potreboval bych trochu postouchnout
spravnym smerem. Mam tabulku, kde
se vyskytuji nektere delene nazvy
fieldu, tj. nazvy s mezerami.
(napr. 'Jalovy Vykon','Ztratovy koeficient' ap.)
Potreboval bych poradit, jak napsat SQL
prikaz pro selekci a sesortovani v TQuery
podle takto rozdelenych nazvu filedu.
Pri pouziti prikazu
SELECT * FROM Tbg WHERE Jalovy Vykon > 180000 ...
to vyhodi error:
Invalid use of keyword.
Token: Vykon
Line number: 1.
Pri pouziti uvozovek to zahlasi pro zmenu
Type mismatch in expression.
Poradte nekdo prosim, kterak to spravne napsat.
Predem diky za rychlou odpoved.
P.Sojka (D4Pro)Nezavisle objekty
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.3.2000 10:20:32
Ahoj all,
mam takovyto problem: potreboval bych vytvorit nezavisle objekty,
ktere by se prihlasovaly do programu a program by je podle potreby
volal. Konkretneji (tyka se Lokalizatoru), mam nejake odkazy na
ruzna data (tedy resources, v tomto pripade). Kazdy prostredek se
vsak zpracovava jinak, a zobrazuje jinak. Potreboval bych tedy,
abych mohl vytvorit hejno objektu, kde nektere objekty by prislusna
data zpracovaly (rozebraly, upravily a zase slozily), jine objekty by
prislusna data umely vhodne zobrazit. Tyto objekty by se jednak
parovaly navzajem, jednak prihlasovaly jako celek k programu,
ktery by nasledne rozhodl, ktery balicek se na ktera data pouzije.
Situace se kompikuje tim, ze napriklad v sekci RCData muze byt
cokoliv, takze data je nutne rozlisovat treba i podle prvnich nekolika
bajtu. Predpoklada se pritom, ze jini programatori si budou moci
napsat a prihlasit sve objekty pro sva reseni, a to nejen v Delphi.
Pricemz pro jeden datovy balik muze byt vice reseni, jak data
zpracovat, aby si uzivatel mohl vybrat to spravne reseni pro
konkretni pripad. K pouziti tedy budou asi vhodne COM objekty.
Ma nekdo nejaky napad, nebo odkaz na priklad, kde je toto reseno?
Dalsi moznosti je spoluprace nad Lokalizatorem, penize by vsak
byly az z podilu z prodeje. V tomto pripade vsak odpovidejte na
muj soukromy majl (ne do konference), pricemz budu chtit videt
nejdrive nejake konkretni reseni (neco na posouzeni schopnosti),
zajemce musi mit svuj vlastni pocitac a Delphi 5 (min.
Professional), pokud by byl zamestnanec, musi mit zajisteno, aby
se nedostal do konfliktu zajmu. O zdaneni prijmu spolecnika se
zasadne nestaram. Projektu velim ja.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL syntaxe s rozdelenym nazvem fieldu
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 23.3.2000 10:22:50
takto
SELECT * FROM Tbg t WHERE t."Jalovy Vykon" > 180000 ...
>
>
> Zdravim.
>
> Potreboval bych trochu postouchnout
> spravnym smerem. Mam tabulku, kde
> se vyskytuji nektere delene nazvy
> fieldu, tj. nazvy s mezerami.
> (napr. 'Jalovy Vykon','Ztratovy koeficient' ap.)
> Potreboval bych poradit, jak napsat SQL
> prikaz pro selekci a sesortovani v TQuery
> podle takto rozdelenych nazvu filedu.
> Pri pouziti prikazu
>
> SELECT * FROM Tbg WHERE Jalovy Vykon > 180000 ...
>
> to vyhodi error:
> Invalid use of keyword.
> Token: Vykon
> Line number: 1.
>
> Pri pouziti uvozovek to zahlasi pro zmenu
> Type mismatch in expression.
>
> Poradte nekdo prosim, kterak to spravne napsat.
>
> Predem diky za rychlou odpoved.
>
> P.Sojka (D4Pro)
>
>
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
Tisk vybraneho recordu v QRep
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 23.3.2000 10:25:03
V QR musis nastavit vlastnost DataSet na nil a PrintIfEmpty na
True
>
>
> Zdravim.
>
> Mam takovy problem. Mam temer nulove zkusenosti
> s QReportem a nedari se me dosahnout pozadovaneho
> vysledku. :(
>
> Mam tabulku, vyberu jeden record a potreboval bych,
> aby se vytiskl pouze a jenom ten jeden vybrany record.
> V preiview se prislusny list s udaji z recordu ukazuje
> (a zadny jiny), ale jakmile to poslu na tiskarnu
> tak mi to vyjede X-listu pres vsechny recordy v tabulce.
>
> Muzete mi nekdo poradit, jak mam ten QReport poladit,
> aby to tisklo jen ten jeden vybrany record.
>
> Predem diky
>
> P.Sojka (D4Pro)
>
>
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
Tajnej String
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 23.3.2000 10:54:41
Ahoj
mozna by to slo tek ze dany tajny retez zapises pomoci jejich ascii kodu.
Tj. napr.:'ahoj'=chr(97)+chr(104)+chr(111)+chr(106)
Jaromir Cermak
-----Original Message-----
From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Sent: Thursday, March 23, 2000 8:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Tajnej String
IMHO to jinak, nez pouzit nejaky kryptovaci mechanismus
nepujde, i kdyby jsi misto string pouzil WideString, tak
to porad bude citelne (jen s tim rozdilem, ze jednotlive
znaky toho retezce zaberou 2 bajty).
Ad 2) prohledej torry, dsp, nebo, tam ted obzvlaste rad
hledam, http://www.delphipages.com/ ...
Dobra.
> ----------
> Od: Ondrej Slama[SMTP:slama(zv)internet(tec)cz]
>
> Jestlize si v programu vytvorim promenou typu STRING a priradim ji hodnotu
> kterou vyuzivam, tak je po kompilaci ve vyslednem kodu tento string
citelny(jak
> jinak). Existuje jinej zpusob jak tento string zneviditelnit treba pomoci
polozek
> v nastaveni, nez ho slozite(nebo mene slozite) kryptovat a dekryptovat za
behu
> programu ???.
>
> A pak jeste jeden dotaz. Nevi nekdo o komponente MD5 hashe pro delphi ???
>
> nefunguje mi MenuItem.Add - proc?
[*] danikonf(zv)atlas(tec)cz - 23.3.2000 11:00:49
Zdravim,
potreboval bych za behu programu vytvaret polozky menu. Ale ono mi to nejde, pritom snad pouzivam standardni kod (dokonce opsany z helpu):
var
NewItem: TMenuItem;
begin
{ first create the separator }
NewItem := TMenuItem.Create(Self);
NewItem.Caption := '-';
{ add the new item to the Windows menu }
pokus1.Add(NewItem);
end;
"pokus1" je TMenuItem. Kdyz kod vykonam, kde nic tu nic. Nevite cim to muze byt? Pouzivam D5 C/S a toto je jedina metoda v nove aplikaci.
S pranim hezkeho dne
Daniel Martinec
Btw, takovych problemu mam vic, ze nechodi veci co jsou deklarovane v helpu, napr. nefunkcnost parametru v udalosti onLogin u TIBDatabase nebo nefunkcnost locate u TIBQuery.Soubory pot�ebn� ke sput�n� ap likace
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.3.2000 11:10:43
> Pokud tva aplikace neni kompilovana se vsemi,
> pro ni potrebnymy balicky, tak musis dodat prave
> tyto balicky (nejlepe asi do %windows%/system;
> pokud Tva aplikace pouziva BDE, tak musis pochopitelne
> dodat i BDE, ...
> Pokud pouziva nejake funkce z nejake dll knihovny,
> musis dodat i tu knihovnu; atd...
>
> Jinak nemusis dodavat nic navic...
>
> Musel by jsi byt konkretnejsi...
> > V> �m, �e m�j dotaz bude asi hodn� stupidn�, ale nev�te kde bych
> > zjistil, jak� soubory(*.dll, *.dpk) mam dodavat se svou aplikac�,
> > aby chodila i na jin�ch po��ta��ch, kde nejsou nainstalov�ny Delphi.
> > Pop��pad� do jak�ch adres��� je nahrat?
> >
Konkretnejsi...pochopil jsem ten dotaz jinak: jak zjistit, co
konkretni aplikace vyzaduje. Vzpominam na sve zacatky v D1, kdy
jsem vesele prifrcel k zakaznikovi a tam se zjistilo, ze je potreba s
aplikaci dodavat i vbx soubory, problem muze byt i s comctl32.dll
apod.
Zjistit, ktere tyto externi zalezitosti je treba s aplikaci dodavat,
muze byt problem, pokud ve firme neni k dispozici pocitac bez
Delphi, instalovaneho BDE apod., aby se to dalo zkusit. Kdyz se
dela instalak, je celkem sance, ze si programator na neco
nevzpomene (nektere komponenty mohou mit cast kodu v dll, ktere
je treba mit v system32 ve Windows, coz vyvojar ma, ale zakaznik
ne). O nejakem principialnim reseni nevim, coz ale automaticky
neznamena ze neexistuje.
David
Synteza reci
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 23.3.2000 11:38:17
Zdravim !
Na syntezu a rozpoznavani reci (sice pouze v anglictine ) se da pouzit v
delphi asi nejlip MS Speech Control, da se to najit najit na strankach
microsoftu a je to active-x komponenta pokud by byl zajem muzu to zaslat i
mailem mimo konf.
S pozdravem
Pavel Polak - pavelp(zv)bnsoft(tec)cz
---------------------------------------------------
HTML EDITOR ZDARMA!
Golden HTML Editor - www.oknet(tec)cz/lide/pavelp/ghe
----- Original Message -----
From: Macko Peter <macko(zv)axa.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 23, 2000 8:59 AM
Subject: Synteza reci
> Nazdar,
> neviete niekto o obstojnom programe (komponente, kniznici) na synetzu reci
> (Anglictina, Slovencina), ktoreho funkcie citania textu sa daju volat aj z
> kodu vlastneho programu?
>
> Prajem pekny den
>
> Peter Macko
> macko(zv)axa.sk
>
>
SQL syntaxe s rozdelenym nazvem fieldu
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 23.3.2000 11:51:29
Pokud se v nazvech sloupcu vyskytuji nestandartni veci ( hacky, carky,
mezezy ) musi byt nazev uveden v uvozovkach.
SELECT * FROM Tbg WHERE "Jalovy Vykon" > 180000 ...
pokud to ma byt retezec predaveny nekde v kodu Deplhi, pak
s:="SELECT * FROM Tbg WHERE ""Jalovy Vykon"" > 180000 ..."
nebo
s:="SELECT * FROM Tbg WHERE "+chr(34)+"Jalovy Vykon"+chr(34)+" > 180000 ..."
toto skutecne zkonci jako chybna syntaxe:
s:="SELECT * FROM Tbg WHERE "Jalovy Vykon" > 180000 ..."
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
psojka(zv)els.ln.skoda(tec)cz
Odesl�no: 23. b�ezna 2000 9:09
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: SQL syntaxe s rozdelenym nazvem fieldu
Zdravim.
Potreboval bych trochu postouchnout
spravnym smerem. Mam tabulku, kde
se vyskytuji nektere delene nazvy
fieldu, tj. nazvy s mezerami.
(napr. 'Jalovy Vykon','Ztratovy koeficient' ap.)
Potreboval bych poradit, jak napsat SQL
prikaz pro selekci a sesortovani v TQuery
podle takto rozdelenych nazvu filedu.
Pri pouziti prikazu
SELECT * FROM Tbg WHERE Jalovy Vykon > 180000 ...
to vyhodi error:
Invalid use of keyword.
Token: Vykon
Line number: 1.
Pri pouziti uvozovek to zahlasi pro zmenu
Type mismatch in expression.
Poradte nekdo prosim, kterak to spravne napsat.
Predem diky za rychlou odpoved.
P.Sojka (D4Pro)
SQL syntaxe s rozdelenym nazvem fieldu
[*] Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz> - 23.3.2000 11:25:54 -0000
Podle mne v podmince where a asi i celkove pri psani sql dotazu nesmeji byt
mezery v nazvu sloupc�.
Melo by to vypadat asi takhle :
> SELECT * FROM Tbg WHERE Jalovy_Vykon > 180000 ...
>
Amatersky programator J.C.
> ----------
> Od: psojka(zv)els.ln.skoda(tec)cz[SMTP:psojka(zv)els.ln.skoda(tec)cz]
> Odesl�no: 23. b�ezna 2000 9:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: SQL syntaxe s rozdelenym nazvem fieldu
>
>
> Zdravim.
>
> Potreboval bych trochu postouchnout
> spravnym smerem. Mam tabulku, kde
> se vyskytuji nektere delene nazvy
> fieldu, tj. nazvy s mezerami.
> (napr. 'Jalovy Vykon','Ztratovy koeficient' ap.)
> Potreboval bych poradit, jak napsat SQL
> prikaz pro selekci a sesortovani v TQuery
> podle takto rozdelenych nazvu filedu.
> Pri pouziti prikazu
>
> SELECT * FROM Tbg WHERE Jalovy Vykon > 180000 ...
>
> to vyhodi error:
> Invalid use of keyword.
> Token: Vykon
> Line number: 1.
>
> Pri pouziti uvozovek to zahlasi pro zmenu
> Type mismatch in expression.
>
> Poradte nekdo prosim, kterak to spravne napsat.
>
> Predem diky za rychlou odpoved.
>
> P.Sojka (D4Pro)
>
> MD5
[*] Ondrej Slama <slama(zv)internet(tec)cz> - 23.3.2000 12:43:32
Nazdar lidi,
po upornem hledani jsem nasel zajimavej zdrojacek unity hashe MD5.
je na adrese
http://home.hiwaay.net/~gnome/Programming/Source%20Code/source%20code.html
je to volny i s popisem a ukazkovym kodem
cusa IBConsole a IB6
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 23.3.2000 12:45:03
Mam mozna uplne blby dotaz.
Na Linuxu mam IB6 server, chodi. Na Win98 a NT mam klienty.
Pokud si pustim isql na klientu, tak se na Linux klidne pripoji.
Kdyz dam v IBConsoli diagnostiku, tak test na TCP/IP i DB connection
projde.
ALE: Nejsem schopen registrovat server na Linuxu, povede se lokalni nebo
vzdaleny na Windows. Pri logovani to vyhodi hlasku "Cannot attach to
services manager data base file name () already given".
Nevite co s tim?
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
pause printer II
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 23.3.2000 12:50:37
Caute Delfinci !
Mam na vas druhu zakernu otazocku.
Ako si vylistujem vsetky tlaciarne, co su dostupne vo Win95/98?
Vdaka.
/LH
--
"NSA GCHQ KGB CIA nuclear conspiration war weapon spy agent... Hi
Echelon!"
Spousteni programu z aplikace v "davkach"
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 23.3.2000 13:02:54
Dobry den,
jak se da docilit toho, aby se z nejake me aplikace spustil
nejaky jiny program a teprve az po ukonceni tohoto programu se
spustil dalsi (neco jako v *.bat, popr. nejakym shellovskym scriptu)?
Dale by me zajimalo, jak se daji zjistit navratove hodnoty programu
(snad jsem se vyjadril spravne -- neco jako errorlevel v *.bat).
Dekuji za kazdou konstruktivni odpoved.
Petr Kucera
Monitorovani doslych mailu na MS Exchange
[*] RadekD <rd(zv)zbrojovka(tec)com> - 23.3.2000 13:18:31
Zdravim,
potreboval bych nekde sehnat nebo napsat utilitku na "upozornovac" novych
mailu na MS Exchange. Nevite nekdo neco o teto problematice? Dekuji...
--------------------
Radek Danek
rd(zv)zbrojovka.com
XML Zkusenosti
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 23.3.2000 13:22:06
> -----P�vodn� zpr�va-----
> Od: Matula M [mailto:asexrm(zv)telecom(tec)cz]
> Odesl�no: 23. b�ezna 2000 8:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: XML Zkusenosti
>
>
> >XML se mi libi.
>
> > pripadne odkazy
> > na dema v
> > Delphi.
>
> >nevim, jake Delphi komponenty existuji.
> >Pouzivam Microsofti XML DOM (COM objekty)
> >Jura
>
> Promin jestli jsem mimo misu, ale zatim se rozhlizim. Myslel
> jsi ActiveX
> MSXML_TLB (msxml.dll),
Ano, to je ono
> vytvoris soubor XML a ten prohlizis
> (ActiveX)Explorerem 5.0 ?
>
Ne, to je trochu jinak. XML DOM (Document object model)
neni zobrazovadlo, ale parser se stromovou strukturou pro definici XML.
Rozparsovany XML dokument lze pak vysypat do textu, prochazet strom
po jednotlivych uzlech, modifikovat ho anebo
transformovat podle jineho xml dokumentu - sablony XSL.
XML DOM je obsazen v MSIE 5.0 anebo se da z Microsoftu na
http://msdn.microsoft.com/downloads/tools/xmlparser/xmlparser.asp
Referencni dokumentace XML Domu je na
http://msdn.microsoft.com/library/psdk/xmlsdk/xmld2rl1.htm
A konecne priklad, bohuzel neznam syntaxi Delphi pro praci s COM
objekty, tak radeji necham kod v Jave, ve ktere ho mam, snad to
bude srozumitelne. Priklad nacte data z WWW do jednoho stromu XML DOM,
sablonu XSL do druheho stromu XML DOM a pouzije sablonu na data.
String S = new String("");
//vytvor root objekt xml domu pro data
DOMDocument xml = new DOMDocument();
xml.setAsync(false);
//nacti do vytvoreneho prvku data odnekud z url
boolean xmlload = xml.load (new
com.ms.com.Variant("http://tady.jsou.xml/data.asp"));
//vytvor root objekt xml domu
DOMDocument xsl = new DOMDocument();
xsl.setAsync(false);
//nacti sablonu z lokalniho disku
boolean xslload = xsl.load (new
com.ms.com.Variant("c:\mojesablony\soubor.xsl"));
if (!xmlload) S = S + "\nError XML Load";
if (!xslload) S = S + "\nError XSL Load";
//aplikuj sablonu na XML data
if (xmlload && xslload) S = xml.transformNode(xsl);
return S;
Jura
IB 6
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 23.3.2000 13:51:23
Hi,
Drobny problem, nainstaloval jsem si na linux stazenou verzi IB 6
k tomu jsem si nainstaloval klienta
vse funguje, pokud pouziji napr. isql.exe dostanu se na databasi,
muzu s ni pracovat, chtel jsem ale zkusit IBConsole.EXE a
vysledek je tento
Cannot attach to services manager
data base file name () already given
Nevite nekdo nahodou co to znamena ???
Diky. 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
IBConsole a IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 23.3.2000 14:07:15
http://www.interbase.com/servlets/GetDoc?docID=876
Ales Radikovsky wrote:
> Mam mozna uplne blby dotaz.
> Na Linuxu mam IB6 server, chodi. Na Win98 a NT mam klienty.
> Pokud si pustim isql na klientu, tak se na Linux klidne pripoji.
> Kdyz dam v IBConsoli diagnostiku, tak test na TCP/IP i DB connection
> projde.
> ALE: Nejsem schopen registrovat server na Linuxu, povede se lokalni nebo
> vzdaleny na Windows. Pri logovani to vyhodi hlasku "Cannot attach to
> services manager data base file name () already given".
>
> Nevite co s tim?
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Control a poloha mysi
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 23.3.2000 14:10:56
to je celkem problem
lze to asynchronne pomoci funkce GetCursorPos / SetCursorPos
mozna, ze by to slo i pres event, ale musel by ses napichnout na vsechny
okna,
coz jsem jeste nezkousel
Marify
XML Zkusenosti
[*] Matula M <asexrm(zv)telecom(tec)cz> - 23.3.2000 14:14:58
Dikuji, Juro, za informace. Zda se, ze si budu muset precist teorii.
Mirek
Clipboard...
[*] Robert Zak <nrsys(zv)psn.sk> - 23.3.2000 14:16:09
Dobry den,
Ako sa da v D5 skopirovat do clipboardu aktualny vyznaceny text z
formulara, ked mam na forme viacero Editov? Potrebujem simulovat Cut
(Ctr-lX), Copy (Ctrl-C), Paste (Ctrl-V).
Existuje nejaky lepsi sposob ako najst si aktualny edit a spravit
CopyToClipboard?
Dakujem
R.Zak
Tajnej String
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 14:22:49
Neslo, kompilator to spoji zase za sebe.
Dobra.
> ----------
> Od: CERMAK[SMTP:CERMAK(zv)procomcr(tec)cz]
>
> mozna by to slo tek ze dany tajny retez zapises pomoci jejich ascii kodu.
> Tj. napr.:'ahoj'=chr(97)+chr(104)+chr(111)+chr(106)
>
> -----Original Message-----
> From: Mal> � Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
>
> IMHO to jinak, nez pouzit nejaky kryptovaci mechanismus
> nepujde, i kdyby jsi misto string pouzil WideString, tak
> to porad bude citelne (jen s tim rozdilem, ze jednotlive
> znaky toho retezce zaberou 2 bajty).
>
> nefunguje mi MenuItem.Add - proc?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 14:25:14
Strilim od boku... neni nutne take nastavit Parenta ?
NewItem.Parent:=Pokus1;
Dobra.
> ----------
> Od: danikonf(zv)atlas(tec)cz[SMTP:danikonf(zv)atlas(tec)cz]
>
> potreboval bych za behu programu vytvaret polozky menu. Ale ono mi to nejde, pritom snad pouzivam standardni kod (dokonce opsany z helpu):
>
> var
> NewItem: TMenuItem;
> begin
> { first create the separator }
> NewItem := TMenuItem.Create(Self);
> NewItem.Caption := '-';
> { add the new item to the Windows menu }
> pokus1.Add(NewItem);
> end;
>
> "pokus1" je TMenuItem. Kdyz kod vykonam, kde nic tu nic. Nevite cim to muze byt? Pouzivam D5 C/S a toto je jedina metoda v nove aplikaci.
>
> S pranim hezkeho dne
> Soubory potrebne ke spusteni aplikace
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 23.3.2000 14:29:41
>Konkretnejsi...pochopil jsem ten dotaz jinak:
>jak zjistit, co konkretni aplikace vyzaduje.
Aha...
> Zjistit, ktere tyto externi zalezitosti je treba s aplikaci dodavat,
>muze byt problem, pokud ve firme neni k dispozici pocitac bez
>Delphi, instalovaneho BDE apod., aby se to dalo zkusit.
...no taky by slo naistalovat operacni system
jeste jednou (na to same PC), natahnout ho
a tam to potom vyzkouset.
Dobra.
> ----------
> Od: David Lebeda[SMTP:david.lebeda(zv)comarr(tec)cz]
>
> > Pokud tva aplikace neni kompilovana se vsemi,
> > pro ni potrebnymy balicky, tak musis dodat prave
> > tyto balicky (nejlepe asi do %windows%/system;
> > pokud Tva aplikace pouziva BDE, tak musis pochopitelne
> > dodat i BDE, ...
>
> > > V> > �m, �e m�j dotaz bude asi hodn� stupidn�, ale nev�te kde bych
> > > zjistil, jak� soubory(*.dll, *.dpk) mam dodavat se svou aplikac�,
> > > aby chodila i na jin�ch po��ta��ch, kde nejsou nainstalov�ny Delphi.
> > > Pop��pad� do jak�ch adres��� je nahrat?
> > >
>
> Konkretnejsi...pochopil jsem ten dotaz jinak: jak zjistit, co
> konkretni aplikace vyzaduje. Vzpominam na sve zacatky v D1, kdy
> jsem vesele prifrcel k zakaznikovi a tam se zjistilo, ze je potreba s
> aplikaci dodavat i vbx soubory, problem muze byt i s comctl32.dll
> apod.
>
> Zjistit, ktere tyto externi zalezitosti je treba s aplikaci dodavat,
> muze byt problem, pokud ve firme neni k dispozici pocitac bez
> Delphi, instalovaneho BDE apod., aby se to dalo zkusit. Kdyz se
> dela instalak, je celkem sance, ze si programator na neco
> nevzpomene (nektere komponenty mohou mit cast kodu v dll, ktere
> je treba mit v system32 ve Windows, coz vyvojar ma, ale zakaznik
> ne). O nejakem principialnim reseni nevim, coz ale automaticky
> neznamena ze neexistuje.
>
> David
> Final: SQL syntaxe s rozdelenym nazvem fieldu
[*] psojka(zv)els.ln.skoda(tec)cz - 23.3.2000 14:45:38
> takto
> SELECT * FROM Tbg t WHERE t."Jalovy Vykon" > 180000 ...
===================================================
Dekuji.
Prispevek co poslal Raked KALA jako jediny funguje.
> Podle mne v podmince where a asi i celkove pri
> psani sql dotazu nesmeji byt mezery v nazvu sloupc�.
> Melo by to vypadat asi takhle :
> > SELECT * FROM Tbg WHERE Jalovy_Vykon > 180000 ...
Bohuzel jsem omezenej pevne danou strukturou tabulky
a PDox, ve terem je delana, umoznuje nazvat Field
vcetene mezer a diakritiky. Omezujici je pouze delka.
> Nevim jaky server pouzivas, ale treba v MS Accessu
> se musi pouzit []: SELECT [Nazev polozky] FROM [Nazev tabulky]
I to jsem zkousel ve chvilich zoufalstvi, ale pouzivam PDox,
takze to dopadlo nevalne.
> pokud se v nazvech sloupcu vyskytuji nestandartni
> veci ( hacky, carky, mezezy ) musi byt nazev uveden
> v uvozovkach.
>
> SELECT * FROM Tbg WHERE "Jalovy Vykon" > 180000 ...
Zkousel jsem...nefunguje -> zminovany mismatch expression
Nefunguje zadna z kobinaci ani s apostrofama ani s uvozovkama.
Vsem dekuji za jejich snahu a cene rady.
P.Sojka
nefunguje mi MenuItem.Add - proc?
[*] danikonf(zv)atlas(tec)cz - 23.3.2000 14:48:29
Hm, tim to neni. Parent je read-only vlastnost, takze ji nemohu zmenit.
Daniel Martinec
-----------
Od: <dodo(zv)rak.pr.ds.mfcr(tec)cz>
>Strilim od boku... neni nutne take nastavit Parenta ?
>
>NewItem.Parent:=Pokus1;Tajnej String
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 23.3.2000 15:16:30
> Ahoj
>
> mozna by to slo tek ze dany tajny retez zapises pomoci jejich ascii kodu> Tj. napr.:'ahoj'=chr(97)+chr(104)+chr(111)+chr(106)
Tohle sem taky kdysi zkousel. Odchyti to uz kompilator a ulozi to zase jako
string..
peace
Lubos
nefunguje mi MenuItem.Add - proc?
[*] danikonf(zv)atlas(tec)cz - 23.3.2000 15:39:03
Uz jsem na to prisel. Pokud je "separator" (tedy NewItem.Caption := '-';) na poslednim miste, tak se nezobrazuje :-).
Ale to ostatni mi v D5 C/S opravdu nefunguje:
> Veci co jsou deklarovane v helpu, napr. nefunkcnost parametru v udalosti > onLogin u TIBDatabase nebo nefunkcnost locate u TIBQuery.
Nemate s tim nekdo zkusenosti?
Dik,
Daniel Martinec
nefunguje mi MenuItem.Add - proc?
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 23.3.2000 15:55:39
Tohle je taky opsane z helpu. Myslim, ze je to jasne.
var
MyItem: array[0..2] of TMenuItem;
i: Integer;
begin
for i := 0 to 2 do begin
MyItem[i] := TMenuItem.Create(Self);
MyItem[i].Caption := 'New item ' + IntToStr(i);
MyMainMenu.Items.Add(MyItem[i]);
end;
*********** REPLY SEPARATOR ***********
On 23.3.2000, at 11:00, danikonf(zv)atlas(tec)cz wrote:
>Zdravim,
>
>potreboval bych za behu programu vytvaret polozky menu. Ale ono mi to nejde, pritom snad pouzivam standardni kod (dokonce opsany z helpu):
>
>var
> NewItem: TMenuItem;
>begin
> { first create the separator }
> NewItem := TMenuItem.Create(Self);
> NewItem.Caption := '-';
> { add the new item to the Windows menu }
> pokus1.Add(NewItem);
>end;
>
>"pokus1" je TMenuItem. Kdyz kod vykonam, kde nic tu nic. Nevite cim to muze byt? Pouzivam D5 C/S a toto je jedina metoda v nove aplikaci.
>
>S pranim hezkeho dne
>
>Daniel Martinec
>
>Btw, takovych problemu mam vic, ze nechodi veci co jsou deklarovane v helpu, napr. nefunkcnost parametru v udalosti onLogin u TIBDatabase nebo nefunkcnost locate u TIBQuery.
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Synteza reci
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 23.3.2000 15:55:41
http://msdn.microsoft.com/workshop/imedia/agent/speechengine.asp
http://www.microsoft.com/mind/0499/agent/agent.htm
http://msdn.microsoft.com/workshop/imedia/agent
www.digalo.com
www.cantoche.com
*********** REPLY SEPARATOR ***********
On 23.3.2000, at 8:59, Macko Peter wrote:
>Nazdar,
>neviete niekto o obstojnom programe (komponente, kniznici) na synetzu reci
>(Anglictina, Slovencina), ktoreho funkcie citania textu sa daju volat aj z
>kodu vlastneho programu?
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Tajnej String
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 23.3.2000 16:07:55
kdyz uz nechces kodovat, napis tam delsi string a ber kazdy druhy znak nebo
jen od pozice v kratsi delce
<Masa>Tajnej String
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 23.3.2000 16:25:27
Zdravim!
Panove doporucoval bych vam po prelozeni program komprimovat pomoci nejakeho
runtime kompresoru treba UPX existuje pouze kompresor, zpatky uz neexistuje
program ktery by to dekompresoval. Zakodovany program je nejen mensi ale
nelze v nem dohledat zadne resources.
S pozdravem
Pavel Polak - pavelp(zv)bnsoft(tec)cz
---------------------------------------------------
Golden HTML Editor - www.oknet(tec)cz/lide/pavelp/ghe
> > Ahoj
> >
> > mozna by to slo tek ze dany tajny retez zapises pomoci jejich ascii
kodu> Tj. napr.:'ahoj'=chr(97)+chr(104)+chr(111)+chr(106)
>
> Tohle sem taky kdysi zkousel. Odchyti to uz kompilator a ulozi to zase
jako
> string..
> peace
>
> Lubos
>
>
>
Soubory potoebn� ke sputin� ap lika
[*] Delphi <delphi(zv)dcomm(tec)cz> - 23.3.2000 17:15:50
Ja osobne na distribuci svych prg. pouzivam (mam D4) Install Shield
Express 4.0 Beta verze 2.20. Zatim aplikace, ktere jsem delal jsem
instaloval prave pomoci tohoto wizardu a vsecko je v pohode... mozna jen
zatim ( pracuji s Delphi mesic :o))))
Hippy
-----Original Message-----
From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Thursday, March 23, 2000 11:11 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Soubory potoebn� ke sputin� ap likace
> Pokud tva aplikace neni kompilovana se vsemi,
> pro ni potrebnymy balicky, tak musis dodat prave
> tyto balicky (nejlepe asi do %windows%/system;
> pokud Tva aplikace pouziva BDE, tak musis pochopitelne
> dodat i BDE, ...Kopirovani v Delphi + ShellExecute
[*] Delphi <delphi(zv)dcomm(tec)cz> - 23.3.2000 17:19:51
Panove prosim pomozte mi s tim druhym problemem... nikdo mi neodpovedel
:o(((
Hippy
-----Original Message-----
From: Delphi [mailto:delphi(zv)dcomm(tec)cz]
Sent: Saturday, March 18, 2000 3:51 PM
To: Konference o Delphi (el. adresa)
Subject: Kopirovani v Delphi + ShellExecute
Ahoj
mam dva problemky, ktere me trochu trapi.
1, Potrebuji kopirovat soubory v Delphi, coz jak asi vsichni vite Delphi
neumi... podle prispevku (1998 <http://www.delphi(tec)cz/archiv.asp?rok=1998>
jul <http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul> 15
<http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul&den=15> od e. 1
<http://www.delphi(tec)cz/archiv.asp?rok=1998&mesic=jul&den=15&first=1> Linhart
Petr <Petr(zv)manwe.mius(tec)cz> )
jsem si upravil proc. takto:
ExFileName... jmeno souboru
ExportPath... kam kopiruji
procedure CopyFileP(ExFileName: String);
var SH: TSHFileOpStructA;
F, T: String;
begin
F := ExFileName;
T := ExportPath;
with SH do
begin
Wnd:=0;
wFunc:=FO_COPY;
pFrom:=Pchar(F);
pTo :=Pchar(T);
fFlags:=FOF_FILESONLY;
end;
shFileOperation(SH);
end;
MainForm.Expedice.Close;
MainForm.Expedice.RenameTable(ExportFileName);
CopyFileP(ExportFileName);
MainForm.Expedice.RenameTable('Expedice.dbf');
MainForm.Expedice.EmptyTable;
MainForm.Expedice.Open;
pri prvnim zavolani kopirovani probehne v poradku lec napodruhe mi zahlasi
chybu 1026 (Soubor nemuze byt kopirovan *) na radku shFileOperation(SH).
Chybu jsem v helpu Win32 nenasel a Delphi tez ne. Vyresil jsem to pres API
fci. CopyFile, ale zajima me v cem delam chybu.
2, z meho prg. spoustim
ShellExecute(Application.Handle,'open',PChar(ExcelFileName),Nil,PChar(ExcelF
ilePath),SW_ShowMaximized);
lec misto kyzeneho dokumentu vidim plochu, ktera byla na tom miste kde se
Excel otevrel. Myslel jsem, ze se jedna o chybu ve stylu Excel - neni
odpoved, ale nabidky a fce normalne funguji. Jen ten dokument nevidim :o(((
Dekuji za odezvu
Hippy
*Win98 Czech SecondEdition, Office 2000, D4.....nefunguje mi MenuItem.Add - proc?
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 23.3.2000 19:00:18
Mne to chodi aj takto:
procedure xxx;
begin
var
MyItem: TMenuItem;
i: Integer;
begin
for i := 0 to 2 do begin
MyItem := TMenuItem.Create(MojePopupMenu);
MyItem.Caption := 'New item ' + IntToStr(i);
MojePopupMenu.Items.Add(MyItem);
// alebo
// MojePopupMenu.Items.Insert(0, MyItem);
end;
end;
forgo
----- P�vodn� zpr�va -----
Od: Jitka St�p�nkov� <step(zv)odp(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. marec 2000 15:55
P�edm�t: Re: nefunguje mi MenuItem.Add - proc?> Tohle je taky opsane z helpu. Myslim, ze je to jasne.
> var
> MyItem: array[0..2] of TMenuItem;
> i: Integer;
> begin
> for i := 0 to 2 do begin
> MyItem[i] := TMenuItem.Create(Self);
> MyItem[i].Caption := 'New item ' + IntToStr(i);
> MyMainMenu.Items.Add(MyItem[i]);
> end;
>
> *********** REPLY SEPARATOR ***********
>
> On 23.3.2000, at 11:00, danikonf(zv)atlas(tec)cz wrote:
>
> >Zdravim,
> >
> >potreboval bych za behu programu vytvaret polozky menu. Ale ono mi to
nejde, pritom snad pouzivam standardni kod (dokonce opsany z helpu):
> >
> >var
> > NewItem: TMenuItem;
> >begin
> > { first create the separator }
> > NewItem := TMenuItem.Create(Self);
> > NewItem.Caption := '-';
> > { add the new item to the Windows menu }
> > pokus1.Add(NewItem);
> >end;
> >
> >"pokus1" je TMenuItem. Kdyz kod vykonam, kde nic tu nic. Nevite cim to
muze byt? Pouzivam D5 C/S a toto je jedina metoda v nove aplikaci.
> >
> >S pranim hezkeho dne
> >
> >Daniel Martinec
> >
> >Btw, takovych problemu mam vic, ze nechodi veci co jsou deklarovane v
helpu, napr. nefunkcnost parametru v udalosti onLogin u TIBDatabase nebo
nefunkcnost locate u TIBQuery.
>
> xxxxxxxxxxxxxxxxxxxxxxxxxxx
> Jitka Stepankova
> ODP-software spol. s r. o.
> tel.: (068) 5725 216
> e-mail step(zv)odp(tec)cz
> xxxxxxxxxxxxxxxxxxxxxxxxxxx
>
Control a poloha mysi
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 23.3.2000 20:09:58
Ale pokud ti jde jen o to, zjistit, kdy mys opustila komponentu, pak
do zdojoveho kodu teto komponenty musis pridat vlastni udalost
"OnMouseLeave" event, kdy mys opusti komponentu
nebo i "OnMouseEnter" takto:
v casti Interface do skupiny napr:"private" pripis:
procedure CMMouseEnter(var Message: TMessage); message CM MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM MOUSELEAVE;
v casti Implementation toto:
procedure TBitmapButton.CMMouseEnter(var Message: TMessage);
begin
inherited;
If Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;
procedure TBitmapButton.CMMouseLeave(var Message: TMessage);
begin
inherited;
If Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
pak teda budes mit pristupne i tyto dva Eventy
Marify
http://www.fi.muni(tec)cz/~xskriva1
Control a poloha mysi
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 23.3.2000 20:28:21
Jeje, sorry, zapomel jsem jeste neco dost duleziteho :-)
jeste pridat :
private
FOnMouseEnter,FOnMouseLeave:TNotifyEvent;
...
published
property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave:TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
...
Marify
http://www.fi.muni(tec)cz/~xskriva1
Control a poloha mysi
[*] Martin Skrivanek <marify(zv)post(tec)cz> - 23.3.2000 20:37:10
hm, nevim, kde se ztratila ta 1.cast
tak jeste jednou cele:
Pokud ti jde jen o to, zjistit, kdy mys opustila komponentu, pak
do zdojoveho kodu teto komponenty musis pridat vlastni udalost
"OnMouseLeave" event, kdy mys opusti komponentu
nebo i "OnMouseEnter" takto:
v casti Interface pripis:
private
FOnMouseEnter,FOnMouseLeave:TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
...
published
property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave:TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
...
v casti Implementation toto:
procedure TBitmapButton.CMMouseEnter(var Message: TMessage);
begin
inherited;
If Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;
procedure TBitmapButton.CMMouseLeave(var Message: TMessage);
begin
inherited;
If Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
pak teda budes mit pristupne i tyto dva Eventy
Velkost formulara
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 23.3.2000 21:11:58
Hello All!
Delphi 3 : formular na Win NT 4.0 Workst. SP5 v poriadku, rovnako aj na W95.
Ten isty formular sa na Win NT 4.0 serveri zobrazi, ako keby boli 'large
fonts'. Pritom rozlisenie obrazovky je vsade 800/600 a small fonts. Co s
tym?
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Tajnej String
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 23.3.2000 21:32:14
Keby si si do zdrojaku vlozil zakodovany text a v programe, pri pouziti ho
dekodoval ?
Hm?
Roland.Printout Builder - podpora tisku
[*] Jan Rysavy <jan.rysavy(zv)altap(tec)cz> - 23.3.2000 22:13:27
Dobry den,
rad bych Vas upozornil na novy vyvojovy prostredek, pochazejicim od tvurcu
spravce souboru Servant Salamander. Jedna se o nastroj pro tvorbu kvalitnich
grafickych tiskovych vystupu - Printout Builder. Umoznuje vytvaret tiskove
dokumenty za podstatne kratsi dobu nez pri pouziti standardnich funkci Windows.
Prostrednictvim jeho API vytvorite dokument, vlozite do nej texty, tabulky
a obrazky a on je podle zvoleneho formatu papiru a okraju rozmisti na potrebny
pocet listu tak, aby vyhovel vsem formatovacim parametrum (obdoba HTML a TeX).
Soucasti knihovny je i podpora nahledu (preview - zobrazeni na obrazovce poed tiskem).
FREE verze knihovny je omezena tiskem pouze jedne stranky.
Printout Builder je vytvoren v Microsoft Visual C++ a je dodavan jako 32-bitova
dynamicky linkovana knihovna (velikost 350 KB), pro kterou v soucasne dobe existuje
krome rozhrani pro MS Visual C++ take rozhrani pro Borland Delphi 4.0
a MS Visual Basic 6.0.
Na domovske strance neleznete detailni popis knihovny a FREE verzi ke stazeni:
http://www.altap(tec)cz
S pozdravem
Jan Rysavy
e-mail: jan.rysavy(zv)altap(tec)cz
Jak udelat: Nacteni dotazu a editace vysledku jen
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 23.3.2000 23:33:17
Ahoj
> > Nicmene s ADem se snadno pracuje
>
> To jiste.
>
> > - ma hromadu metod
>
> Zde nelze zcela souhlasit. OLE DB ma take hromadu metod. :-) Na
> pocet vic nez ADO. Na jedne strane ma sice ADO oproti OLE DB
> pridanou hodnotu (RDS, napriklad), na druhe strane zase ADO
> radu moznosti oproti OLE DB ztraci (napriklad, v OLE DB se da
> lepe preusporadat tok a typ dat). Krome toho, z OLE DB mohu do
> ADO v pripade potreby celkem bez problemu odskocit.
To je mozne. Bohuzel MSDN dokumentace k OleDB je (narozdil od ADO)
prachbidna.
Jaky pozivas zdroj informaci v oblasti OleDb? Ja znam jen casopisy msj a
MSNDmag.
> > - dobre se predava mezi COMy
>
> OLE DB je take postavene na COM.
Mel jsem na mysli prave pouziti RDS, ktere je pripade DCOM vyrazne
efektivnejsi
(prenos vsech dat najednou a ne loadovani po jednom zaznamu -> mensi
narocnost na komunikaci
sem tam po pomale siti).
(Samozrejme, ADO je nadstavba OleDB, takze nad OleDB si clovek muze
naprogramovat
vse, co lze s ADO :-).)
> > - mame koupene Datasetove komponenty, na ktere se snadno napoji
> > ADORecordSety
>
> :-) No jo, investice. To ovsem nepatri do technologicke debaty. Je
> jasne, ze kdyz se neco naucim pouzivat a zainvestuji to, ze se s
> tim budu nerad loucit. Proto se take nesnazim nikoho presvedcovat
> ke konverzi.
Koukas se na to rozumne.
> Vidim tu vsak jiny problem. Kdyz jsem se cca pred rokem
> rozhodoval, zda pouzit ADO nebo OLE DB, zda to napasovat na
> TDataSet nebo to postavit cele znovu a jinak, prostudoval jsem si
> samozrejme TDataSet a tridy souvisejici (TFields). Ze studia a
> ruznych pokusu mi vyslo, ze z dlouhodobeho hlediska je
> vyhodnejsi TDataSet opustit i za cenu, ze zahodim vsechny
> navazujici vizualni komponenty a napisu si vlastni. U OLE DB je to
> jednoznacne, u ADO to sice neni tak pruhledne, ale take by to
> chtelo jine jadro. V podstate narazim na to, ze OLE DB umoznuje
> znacne volnou manipulaci s daty (ADO uz zdaleka ne tak dobre),
> kterezto TDataSet ve spojeni s TFields dosti uspesne brani.
Pouziti OleDb se mi zda vhodne predevsim pro nevizualni middle vrstvu.
V pripade clientske vrstvy s Tebou nemohu 100% souhlasit. Neco do sebe to
ma,
ale znamena to si naprogramovat vsechny pouzivane "DataSourcove" komponenty.
Nejedna se jen o standardni Delphi komponenty. Casto clovek potrebuje
nejakou sikovnou
komponentu, kterou uz nekdo naprogramoval. Kdyz porovna cas, ktery by
stravil vyvojem
a cenu, kterou komponenta stoji, tak se casto rozhodne komponentu koupit.
V pripade "DataSourcovych" komponent (ruzne DB-... komponenty) se teto
moznosti vzdava
a musi si vse naprogramovat sam. (A terminy pritom hori ...)
Pro programatory Delphi se mi jevi jako vhodnejsi nejaky potomek DataSetu,
ktery by pracoval
s OleDb-zdrojem dat.
(Uznavam rozumnost Tvych argumentu, ale chci ukazat, ze nic neni cernobile
a i zde plati "neco za neco".)
Mimochodem, jak funguje predavani Rowsetu pres DCOM?
> > - pres ADO mohu pristupovat k databazim, souborum, mailum, Excelu,
> > Wordu, ... - kdyz se jednou naucim pracovat s ADem, tak to mohu pouzit
> > z Delphi, HTML, Visual Basicu, ...
>
> :-) Eh - ADO je potomkem OLE DB a vola sluzby OLE DB, takze
> OLE DB toto vsechno umi take. To jen na vysvetlenou...
Mohl bys prosim uvest nejaky jednoduchy priklad, jak pomoci OleDb provedes
nejaky dotaz
a projdes zaznamy vysledku dotazu?
> > S OleDb jsem primo nikdy nepracoval, takze nevim, co z toho mohu
> > vyuzit i kdyz budu pracovat s OleDb primo. Mohl bys Zbysku napsat, co
> > z toho lze vyuzit i pri praci s OleDb primo a co pri praci s Tvymi
> > komponentami.
>
> Vsecno, co umi ADO, lze s OLE DB take. Pokud OLE DB nejakou
> sluzbu nema (napr. zminovane RDS), lze pouzit tu z ADO. V
> principu veci nic nebrani mixovani obou, pouze clovek musi byt
> trochu opratrnejsi v tom, co dela. Jinak, prima prace s OLE DB je
> dost vrazedna, to snad ani nedoporucuji, narozdil od ADO.
To si moc nedovedu predstavit. To jako, ze pracujes s Rowsetem, a kdyz
potrebujes
data poslat pres RDS, tak si vytvoris RecordSet, nejak jej napojis na Rowset
a pres RDS
predas RecordSet ?
> Co se tyka mych komponent, tak ty zatim nepokryvaji (tedy na
> urovni Delphi komponenty) zdaleka vsechno, co umi OLE DB.
> Zatim to ma ty vlastnosti, ktere potrebuji ke svym programum, a k
> praci S MS SQL 7.
Mam v planu se na ne blize mrknout.
Zbysku, myslim, ze je rada projektu (predevsim tech mene narocnych na
vizualizaci),
kde muze byt pouziti Tvych komponent vyhodne. Takze preji, at se dari.
(Kdybych na tom nebyl s casem tak spatne, tak bych se zajimal o spolupraci.)
> ... Erik uz tuhle otazku uspokojive vysvetlil. Nicmene, moznosti OLE
> DB v manipulaci s daty povazuji za natolik lepsi, ze se mi vyplati
> pouzivat primo OLE DB (tedy volanim pres Delphi komponenty :).
Nasel jsem, ze RecordSet.DataSource je vlastne ukazatel na RowSet.
Takze se mi zda, ze pokud bych potreboval vyuzit nejakych vyhod prace s
OleDb (jakych?)
tak mam touto cestou dvere dokoran. Je to tak?
> > Mimochodem, duvod proc presypavam data do pomocneho RecordSetu je to,
> > ze nelze updatovat identity fields v disconnected recordsetu. Ty si
> > presypavas data do pomocnych struktur, ja do RecordSetu. Myslim, ze o
> > trosku vyssi rychlost presypani do Tve struktury je vykoupeno
> > pracnejsi prac� s Tvou strukturou.
>
> Opet nesouhlasim. Pokud presypu data napriklad do OdbGridu, je
> prace s daty uplne stejne pracna jako s RecordSetem. Nebo si
> mohu data prelit do nejakeho "array", a vysledek pak bude stejny.
> Dokonce tam mam moznost, ze staci nadefinovat strukturu, pointer
> na nejake pole a rict komponente, at vycte do toho pole data podle
> definovane struktury. Pak se ani nemusim starat o nejake vycitani v
> cyklu, to zaridi komponenta.
Samotne presypani dat do OdbGridu jsem na mysli samozrejme nemel.
Slo mi o napojeni na jednotlive DB-Edity, ...
Pokud pozivas neDB- komponenty, tak musis data presypavat do/z techto
neDB- komponent. My pozivame DB- komponenty. To ze presypavame data
do jineho RecordSetu, na ktery se napojime z nejake DataSetove komponenty,
ma za nasledek, ze se staci proste napojit DB- komponentama na DataSet
a nemusime presouvat data z/do techto komponent rucne.
> Na druhe strane, nejsem prilis
> naklonen prime editaci nad "zivymi" daty, takze toto ve svych
> komponentach prilis neusnadnuji. To je ale vec meho pristupu, ne
> OLE DB.
V tom se shodnem. Data prekopirujeme do in-memory recordsetu se kterym
pracujeme.
Zmeny do DB provadime predevsim prostrednictvim ulozenych procedur.
Jeste bych mel na zaver jeden dotaz:
Jak jsem jiz napsal nic neni cernobile. Prekopirovavani dat z RecordSetu do
in-memory
RecordSetu trva docela dlouho (cca. 1,5 s na 1.000 zaznamu (sirka zaznamu
nema tak velky vliv)).
Delam to tak, ze projizdim zdrojovy RecordSet a pomoci AddNew pridavam cele
zaznamy
do pripraveneho in-memory recordsetu.
Zkousel jsem se podivat, zda nejde nejak najednou vzit data ze zdrojoveho
RecordSetu a
pridat je do in-memory recordsetu. Umim data vytahnout do File, Streamu a
dvourozmerneho pole,
ale neumim je rychle vsechny najednou "nahrat" do in-memory recordsetu (aniz
bych nahraval i metadata,
tedy i informace o identity fieldech, ...).
Neznate prosim nekdo nejaky efektivnejsi zpusob prekopirovani dat do
in-memory recordsetu?
Pozn: RecordSet 5.000 zaznamu
-> ciste projiti pomoci MoveNext = 1,5 s
-> prekopirovavani dat pomoci AddNew = (1,5 + 6) s
S pozdravem, Ladislav Nagy
Tajnej String
[*] L. ZITA <konference(zv)sales(tec)cz> - 24.3.2000 01:43:17
Behalf Of Lubos RYBNICEK
> > mozna by to slo tek ze dany tajny retez zapises pomoci jejich
> ascii kodu> Tj. napr.:'ahoj'=chr(97)+chr(104)+chr(111)+chr(106)
>
> Tohle sem taky kdysi zkousel. Odchyti to uz kompilator a ulozi to
> zase jako
> string..
> peace
Ahoj.
Napada mne pouzit nevyuzite Tagy komponent.
Takze do form.create das
Form1.Tag := 97;
Edit1.Tag := 104;
......Tag := 111;
......Tag := 106;
A pak je to chr(Form1.Tag) + chr(Edit1.Tag)............
Mozna by to slo nastavit ty tagy rovnou v rezimu navrhu, ovsem radsi projed
vysledne exe, jestli to kompilator se zapnutou optimalizaci neprevede na
konstantu a zase neseradi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Kopirovani v Delphi + ShellExecute
[*] L. ZITA <konference(zv)sales(tec)cz> - 24.3.2000 01:43:20
Behalf Of Hippy
> 2, z meho prg. spoustim
> ShellExecute(Application.Handle,'open',PChar(ExcelFileName),Nil,PC
> har(ExcelF
> ilePath),SW_ShowMaximized);
> lec misto kyzeneho dokumentu vidim plochu, ktera byla na tom miste kde se
> Excel otevrel. Myslel jsem, ze se jedna o chybu ve stylu Excel - neni
> odpoved, ale nabidky a fce normalne funguji. Jen ten dokument
> nevidim :o(((
>
Vidim to spise na Excel nebo jeho instalaci ci nastaveni.
Mne to funguje (D4, Win98 "First Edition", Office 2000cz)
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
pause printer II
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.3.2000 05:56:32
Podivej se na objekt TPrinter, obsahuje i seznam tiskaren
Jan Fiala
----- Original Message -----
From: Lubos Hubka <hubka(zv)trenkwalder.sk>> Caute Delfinci !
> Mam na vas druhu zakernu otazocku.
> Ako si vylistujem vsetky tlaciarne, co su dostupne vo Win95/98?
> Vdaka.
> /LH
> --
> "NSA GCHQ KGB CIA nuclear conspiration war weapon spy agent... Hi
> Echelon!"
>
>
> Tajnej String
[*] Ing. Lubomir GAL <gal(zv)minv.sk> - 24.3.2000 07:23:30
Tak to sa mylite!!! V UPXGUI 0.70 uz existuje moznost "DECOMPRESS"! Podobne
je to s ASPACK - uz existuje UNASPACK. Riesenim je KUPIT licenciu na
kompresor, ktory dovoli zaheslovat subor proti externej dekompresii (typicky
bol taky PKLITE pre DOS ...). ) :-(
LuGa
***************************
Lubomir "Levec" GAL, -LuGa
O.T.I., KR PZ Nitra, SK
mailto:gal(zv)minv.sk
***************************
Desetinn� ��rka
[*] Ji�� Fait���}���6���3 - 24.3.2000 07:24:38
M�m dotaz,
skl�d�m SQL p��kaz nap�:
const
sExecSql ='update tabulka set pole = %g'
pokud pouziji format( sExecSQL,[11.35]) tak to delphi zformatuje na 'update
tabulka set pole = 11,35'
a dotaz potom konci samozrejme chybou.
Vim ze se da nastavit v prostredi windows aby desetinna carka byla tecka ale
to nelze pouzit.
Je nejake nastaveni v delphi kde po kterem bude se bude chovat funkce format
nasledovne:
format('cislo = %g',[11.35]) vrati 'cislo = 11.35' ( v soucasnosti 11,35)Tajnej String
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.3.2000 07:57:46
Na ASPack sice existuje dekompresor, ale ne na nejnovejsi verzi. Mozna se mylim,
ale na v2.00 jsem dekompresor jeste nevidel, coz nevylucuje, ze za chvili bude
:-). Za dalsi, vetsina obycejnejch nabouravacu, pokud nenajdou primo dany
retezec, to vzda a nebudou se pidit, jestli je program zkompresovany a cim.
Jan Fiala
----- Original Message -----
From: Ing. Lubomir GAL <gal(zv)minv.sk>> Tak to sa mylite!!! V UPXGUI 0.70 uz existuje moznost "DECOMPRESS"! Podobne
> je to s ASPACK - uz existuje UNASPACK. Riesenim je KUPIT licenciu na
> kompresor, ktory dovoli zaheslovat subor proti externej dekompresii (typicky
> bol taky PKLITE pre DOS ...). ) :-(
>
> LuGa
>
> ***************************
> Lubomir "Levec" GAL, -LuGa
> O.T.I., KR PZ Nitra, SK
> mailto:gal(zv)minv.sk
> ***************************
>
>Tajnej String
[*] Ing. Lubomir GAL <gal(zv)minv.sk> - 24.3.2000 08:18:57
Mam UnAspack na Aspack 2.001 ... Pokial uz raz dekompresor bol vyvinuty, tak
bude sice krocik za kompresorom, ale ani kompresor nebude novy kazdy mesiac
... Riesenie je iba kompresia s heslom. Ale aj na to sa urcite najde zbran -
vid zistovanie hesiel do archivov ZIp, RAR a a pod.
Nakoniec - pokial smerujeme k OpenSource, je to zbytocne. Pokial
skomprimujete exe-subor napriklad pomocou ASPACKu, urcite je to zakladna
ochrana - hlavne ak to program nikde nevytrubuje. Kto ho bude chciet
dekomprimovat, ten si prostriedky urcite najde! Ale pre 99% (chaby odhad)
pouzivatelov je to neprekonatelna prekazka. Takze ...
LuGa
***************************
Lubomir "Levec" GAL, -LuGa
O.T.I., KR PZ Nitra, SK
mailto:gal(zv)minv.sk
***************************
pause printer II
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 24.3.2000 08:47:16
> Podivej se na objekt TPrinter, obsahuje i seznam tiskaren
> > Caute Delfinci !
> > Mam na vas druhu zakernu otazocku.
> > Ako si vylistujem vsetky tlaciarne, co su dostupne vo Win95/98?
Aha, ospravedlnujem sa, ja potrebujem riesenie len cisto s WinAPI
funkciami.
Potreboval by som zistit vsetky tlaciarne co su v systeme a vsetky dat
do rezimu
"pause printer".
Vdaka za kazde nakopnutie.
/LH
--
"NSA GCHQ KGB CIA nuclear conspiration war weapon spy agent... Hi
Echelon!"
Problem s Win32.hlp
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 24.3.2000 09:02:09
Ahoj
mam nasledujici problem:
kdyz otevru soubor Win32.hlp, zvolim
kartu najit a spustim pruvodce instalaci
hledani, pak po chvili vytvareni seznamu
slov mi Winhlp32 zobrazi hlaseni
"Program provedl neplatnou operaci a bude ukoncen."
Win32.hlp ma 12MB, zkousel jsem to na 2 PC, obe P120 32MB
RAM, W95 OSR2, jedno s IE 3, druhe IE 5
Vi nekdo v cem muze byt problem ?
Diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Lokalizace
[*] Patrik Plach� <plachy(zv)obis(tec)cz> - 24.3.2000 09:06:39
Ahoj,
nevite nahodou o nejake lokalizaci IDE DELPHI.
Nase f. provadi skoleni DELPHI a vestina zacinajicich
uzivatelu by ve svem startu ocenila, alspon cesky help.
Bohuzel vetsina z nich je z dob, kdy anglictina nebyla
v mode a me nebavi stale prekladat hlaseni a help.
Dekuji za radu.
S pozdravem Patrik Plachy
plachy(zv)obis(tec)cz
Tajnej String
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 24.3.2000 09:33:47
> Tak to sa mylite!!! V UPXGUI 0.70 uz existuje moznost
> "DECOMPRESS"! Podobne
> je to s ASPACK - uz existuje UNASPACK. Riesenim je KUPIT licenciu na
> kompresor, ktory dovoli zaheslovat subor proti externej
> dekompresii (typicky
> bol taky PKLITE pre DOS ...). ) :-(
ja pouzivam "PePack 1.0 by ANAKin". znate to nekdo? videl na to nekdo
decompresor?
Lubos
pause printer II
[*] Anton�n Novotn����j{h�)���Z��3 - 24.3.2000 09:37:48
Ahoj,
Najdi si napovedu k API funkci EnumPrinters...
-----P�vodn� zpr�va-----
Od: Lubos Hubka <hubka(zv)trenkwalder.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. b�ezna 2000 9:32
P�edm�t: Re: pause printer II
>> Podivej se na objekt TPrinter, obsahuje i seznam tiskaren
>> > Caute Delfinci !
>> > Mam na vas druhu zakernu otazocku.
>> > Ako si vylistujem vsetky tlaciarne, co su dostupne vo Win95/98?
>
>Aha, ospravedlnujem sa, ja potrebujem riesenie len cisto s WinAPI
>funkciami.
>Potreboval by som zistit vsetky tlaciarne co su v systeme a vsetky dat
>do rezimu
>"pause printer".
>Vdaka za kazde nakopnutie.
>/LH
>--
>"NSA GCHQ KGB CIA nuclear conspiration war weapon spy agent... Hi
>Echelon!"
>Fyzicke vymazanie viet v DBF databaze.
[*] kinekus <kinekus(zv)nextra.sk> - 24.3.2000 09:39:41
Viem, ze sa uz o tom vela popisalo. Postacujucu odpoved som vsak nenasiel ani v archive delphi fora. Problem je vo fyzickom vymazani viet z DBF databaz. Ak ma niekto konkretny priklad bol by som rad o jeho zaslanie na moju sukromu adresu - nie cez forum.
Pozn.:Som len zaciatocnik.
Dakuje MR.
e-amil:kineksu(zv)nextra.sk
pause printer II
[*] J�n Grman�������e���zW��ۛg�$ - 24.3.2000 10:01:03
> Aha, ospravedlnujem sa, ja potrebujem riesenie len cisto s WinAPI
funkciami.
> Potreboval by som zistit vsetky tlaciarne co su v systeme a vsetky dat
> do rezimu "pause printer".
Staci si pozriet Printers.pas, tam tie API volania su !
Je tam nieco ako EnumPrinters a vyhodou je ze clovek to moze okopirovat a
prisposobit si na svoj obraz bez dlheho citania helpu.
Pause tlaciarne mozes urobit pomocou
BOOL SetPrinter(
HANDLE hPrinter, // handle of printer object
DWORD Level, // structure level
LPBYTE pPrinter, // address of array containing printer data
DWORD Command // printer-state command
);
Kde prikazy su :PRINTER_CONTROL_PAUSE, PRINTER_CONTROL_PURGE,
PRINTER_CONTROL_RESUME a PRINTER_CONTROL_SET_STATUS
Help je v WIN32 Reference ktora je sucastou D5 (aspon mojich). Je tam
kompletny popis - len pouzit.
JaNo.
Tajnej String
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 24.3.2000 10:18:17
>Na ASPack sice existuje dekompresor, ale ne na nejnovejsi verzi. Mozna se
mylim,
>ale na v2.00 jsem dekompresor jeste nevidel, coz nevylucuje, ze za chvili
bude
>:-). Za dalsi, vetsina obycejnejch nabouravacu, pokud nenajdou primo dany
>retezec, to vzda a nebudou se pidit, jestli je program zkompresovany a cim.
Ahojte,
pouzitie packerov a upnackerov su na NIE "obycejnejch nabouravacu" zbytocne.
Pri natahovani programu do operacnej pamate sa exe dekomprimuje a staci
rozbaleny exe kod uz iba vydumpovat priamo na disk z virtualnej pamate
daneho procesu (programu) a robit si s nim co chces. Packery su skor podla
mna (okrem toho ze zmensi velkost suboru) hodiace sa napriklad na zamedzenie
pokusu o spatne disassemblovanie kodu priamo z exe do assembleru, atd... A
este sa to aspon "niekomu" pokusit stazit tym, ze bude vymazana
identifikacia pouziteho packera priamo v exe vymazanim "hlavicky pouziteho
packera". Takmer kazdy packer po sebe necha nejaku stopu.
Teda najskor co najzlozitejsie kodovanie a dekodovanie "tajneho stringu" za
behu programu...
Jano
Vyber vhodne databaze
[*] Ota Maly <omaly(zv)seznam(tec)cz> - 24.3.2000 09:38:17 -0000
Ahoj,
nemam v podstate zadne zkusenosti s psanim databazovych aplikaci pod Delphi a potrebuji poradit s vyberem vhodne databaze. Alespon pro zakladni ilustraci: Melo by se jednat o takovou aplikaci, kde nekde na siti bezi serverova cast a na ni pristupuje nekolik (malo, tak 2-3) klientu. Tvorim v podstate na ciste pude, takze zadne omezeni predchozi verzi tu neni.
Byl bych rad, pokud by me treba nekdo nakopnul na spravne misto na webu, kde najdu neco k tomu (porovnani, pro-proti atd.). Projekt bude tvoren v D5 Prof.
V podstate se ptam, jestli na to mam pouzit BDE nebo ne :-).
Nerad bych zacal hned spatne..
Diky Ota Maly
Vyber vhodne databaze
[*] Karel Kral <kral(zv)purus(tec)cz> - 24.3.2000 11:01:28
Zde je zajimavy seznam alternativ k BDE:
http://www.kylecordes.com/
Ja muzu doporucit Flash Filer od Turbo Power Software. Je to presne co
chces: ciste reseni klient - server, komunikace pres TCP/IP. Server bezi
na WNT/W95. Podle ohlasu v konferenci Turbo Power je integrita dat
uzasna.
ALE: nema SQL (coz me osobne pri tak male aplikaci vubec nevadi). Ma byt
v dalsi verzi, ale ta je v nedohlednu. Existuji ale free doplnky SQL pro
Flash Filer. > Ota Maly wrote:
>
> Ahoj,
>
> nemam v podstate zadne zkusenosti s psanim databazovych aplikaci pod
> Delphi a potrebuji poradit s vyberem vhodne databaze. Alespon pro
> zakladni ilustraci: Melo by se jednat o takovou aplikaci, kde nekde na
> siti bezi serverova cast a na ni pristupuje nekolik (malo, tak 2-3)
> klientu. Tvorim v podstate na ciste pude, takze zadne omezeni
> predchozi verzi tu neni.
> Byl bych rad, pokud by me treba nekdo nakopnul na spravne misto na
> webu, kde najdu neco k tomu (porovnani, pro-proti atd.). Projekt bude
> tvoren v D5 Prof.
> V podstate se ptam, jestli na to mam pouzit BDE nebo ne :-).
> Nerad bych zacal hned spatne..
>
> Diky Ota Maly
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Invalid handle
[*] Ivo HERR <ih(zv)safar(tec)cz> - 24.3.2000 11:41:17
Zdravim vsechny.
Mam nasledujici problem :
Do boardu mam pichnutou IR hlavicku (ACTiSYS IR L210). Mam nainstalovany
ovladace. Ty sedi na COM4. Kdyz v programu provedu nasledujici :
hCom:=CreateFile((zv)Com[1], GENERIC_READ + GENERIC_WRITE, 0, nil,
OPEN_Existing, FILE_ATTRIBUTE_NORMAL, 0); //v Com je retezec 'COM4'
priradi mi to skutecne nejaky handle (konkretne 24). S nim mohu delat
temer vse (napr. SetupComm, SetCommState, ...), ALE:
TransmitCommChar se mi neprovede (GetLastError vraci hodnotu 6, tedy
Invalid handle) a
WriteFile se rovnez neprovede (GetLastError vraci 21, tedy zarizeni neni
pripraveno)
Nevite nekdo, co s tim?
Diky
Ivo
ENTER a ESC na TEdit
[*] Petr Fischer <petr.fischer.dk(zv)email(tec)cz> - 24.3.2000 11:56:01
Zdravim,
mam na TEdit.OnKeyDown toto:
if Key in [VK_ENTER, VK_ESC] then
begin
Key := 0;
// a nejaka dalsi akce
end;
klavesy zareaguji, to je OK, ale vzdy po stisku Enter nebo Esc se ozve
pipnuti. Proc?
Delphi 5 (+SP), Win2000
Petr Fischer
E-Mail: petr.fischer(zv)email(tec)cz, ICQ#: 24154715
Tajnej String
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 24.3.2000 12:02:59
On Wed, 24 Mar 1999 10:19:36 +0100, Lauko �tefan wrote:
| Ahojte,
| nic komercne ti nepomoze (ak to chces utajit). Ja by som to vyriesil tak, ze
| by som stringi ulozil do zvlastneho suboru ktory by som zasifroval a potom
| by som ho "prilepil" na koniec EXE
| (copy /b exe + xy ). Po nastartovani programu by sa nacitalo "prilepene" do
| TMemoryStreamu, potom desifrovat a nacitat do StringListu... Ak chces poslem
| ti jednoduchu sifrovaciu proc.
|
|
|
|
|
Zdravicko,
komponenta HStrings, ktera zrejme dela to co chces je tady:
http://www.geocities.com/SiliconValley/Heights/7874/d-hidstr.htm
Pavel