Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
dsgnintf
[*] Lauko �tefan <lauko(zv)salamon.sk> - 13.9.2000 22:48:55
Zdravim,
stiahol som komponenty z torry a neviem si rady s prekladom jednej unity. V
uses je aj dsgnintf - compilatoru chyba subor dsgnintf.pas. Raz sa to tu
preberalo ale neviem to najst.
W98/2000, D5.1.
dakujem. Lauko
Kde je chyba
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.9.2000 22:52:45
> mam AVI player
> a pri resize formu pouzivam
> MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
>
> ale pokud ho resiznu tak to cele spadne
> vyvola to obrazovku s strojakem a tradaaa bum
>
> toto se dej pod win2000....
a MediaPlayer1.Display mas nastaveny? a to zarizeni /AVI/ uz je otevrene?
a pod win95/98/nt se to nedeje? me to funguje /pod w95/ :-) mozna bys moh uvest
trosku vic z kodu...
roman
[sw.maurice(zv)cbox(tec)cz, http://www.mujweb(tec)cz/zabava/sw.maurice, icq #84229702]
---
Tato zpr�va obsahuje text a proto nen� vhodn� ji ��st.
Vyp�n�n� zvuku
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.9.2000 22:52:47
> M��ete mi pros�m poradit jak vyp�nat a zap�nat zvukov� v�stup. Spezi�ln� m�
zaj�ma LineOut.
tohle sem tu uz kdysi psal, snad to bude jasne:
>var MixerLine: TMixerLine;
> MixerControls: TMixerLineControls;
> MixerControl: TMixerControl;
> MixerControlDetails: TMixerControlDetails;
> Detail:array [0..1] of integer;
>begin
> MixerLine.cbStruct := Sizeof(MixerLine);
> MixerLine.dwComponentType :=
> {tady muze byt treba MIXERLINE_COMPONENTTYPE_DST_SPEAKERS nebo
> MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT nebo
> MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER...}
>
> mixerGetLineInfo(Mixer,(zv)MixerLine,MIXER_GETLINEINFOF_COMPONENTTYPE));
> MixerControls.cbStruct := Sizeof(MixerControls);
> MixerControls.cbmxctrl := Sizeof(TMixerControl);
> MixerControls.pamxctrl := (zv)MixerControl;
> MixerControls.cControls := 1;
> MixerControls.dwControlType :=
> {pro zap/vyp pouzij MIXERCONTROL_CONTROLTYPE_MUTE
> pro hlasitost MIXERCONTROL_CONTROLTYPE_VOLUME}
> MixerControls.dwLineID := MixerLine.dwLineID;
> mixerGetLineControls(Mixer,(zv)MixerControls,MIXER_GETLINECONTROLSF_ONEBYTYPE));
> MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
> MixerControlDetails.dwControlID := MixerControl.dwControlID;
> MixerControlDetails.cChannels := 1;
> MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
> MixerControlDetails.cbDetails := Sizeof(integer);
> MixerControlDetails.paDetails := (zv)Detail;
> {a ted pokud chces provest mute tak: }
> Detail[0] := Integer(true)
> {nebo pro hlasitost: }
> Detail[0] := MaxWord; {nastavi hlasitost leveho kanalu na max}
> Detail[1] := MaxWord; {nastavi hlasitost praveho kanalu na max}
>
mixerSetControlDetails(Mixer,(zv)MixerControlDetails,MIXER_SETCONTROLDETAILSF_VALUE
));
>end;
roman
[sw.maurice(zv)cbox(tec)cz, http://www.mujweb(tec)cz/zabava/sw.maurice, icq #84229702]
---
Tato zpr�va obsahuje text a proto nen� vhodn� ji ��st.
Interbase a ceske trideni
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 13.9.2000 23:24:08
Ahoj.
Schvalne som to vyskusal ale mne to nefunguje, je to este vacsia divocina
ako Win1250 a PXW_CSY.
Roland.
----- Original Message -----
From: "Zden�k Sedl�k" <zsedlak(zv)atlas(tec)cz>
To: "konference" <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 12:19 PM
Subject: Interbase a ceske trideni
> Ahoj, mam Interbase 6. Vcera jsem dlouho badal, jak tridit cesky i podle
> ch. Vsiml jsem si, ze se tady asi dvakrat objevil dotaz na toto tema.
> Bohuzel v obou bylo napsano, ze to nejde. Mne se vcera nakonec podarilo
> vse nastavit tak, aby to tridilo spravne cesky i ch....
>
> Pouzil jsem pri definici sloupce v tabulce Character Set DOS852 a
> COLLATE DB_CSY. Jen v tomto jednom pripade mi IB6 tridila spravne cesky.
> Muzete to prosim take nekdo vyzkouset.
>
> Diky
> Zdenda
>Ako zoradit ?
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 13.9.2000 23:26:26
Nie to nefunguje !
Roland.
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 7:57 AM
Subject: RE: Ako zoradit ?> ahoj,
> imho by melo fungovat:
> "Select Prijem, Vydaj from Tabulka order by (Prijem+Vydaj)"
>
> ! neodzkouseno...
>
> dekuji
> peca
>
> > Zdravim
> > Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
> > ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to
> > potrebujem len tak
> > zoradit.
> > Dakujem. Roland
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> [ firemni mail smtp: palicka(zv)aginfo(tec)cz]
> [pro konference: petr.palicka(zv)atlas(tec)cz]
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
> inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> Jak na retezec ?
[*] E&J soft <uli(zv)internet.sk> - 14.9.2000 00:53:43
Pekny den preji,
prosim poradte jak se jmenuje funkce v Delphi,
ktera z retezce znaku vybere urcity pocet znaku od urcite
pozice ?
Podobne jako funkce MID[retezec, m, n], v Access-u,
kde m je pozice odkud se zacina a n je pocet znaku,
ktere se vyberou.
Dekuji
Jaro
Windows tray a readkey...
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 14.9.2000 00:58:23
Zdravim,
mohl by mi prosim nekdo napsat kratounkou ukazku pridani ikonky do winowskeho traye a obsluhy kliknuti na ni (aby z toho bylo
pochopitelne, jak to fachci)? Dik.
Dale by me zajimalo, jak priradit obsluhu stisku klavesy ve windows (tedy Form je schovany).
Oba vyse uvedene problemy se tykaji me free kalkulacky. Postupem doby z ni narostl MB bumbrlicek a ja potrebuju, aby jeho start
trval co nejkratsi moznou dobu. Rad bych to zajistil tak, ze jej uzivatel uspi do traye a ja jen budu sledovat uzivatelem
zvolenou klavesu. Kdyz ji stiskne, program se opet probudi. Diky za odpovedi,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Jak na retezec ?
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 14.9.2000 03:10:05
function Copy(S; Index, Count: Integer): string;
S - vstup stringu / dynamickeho pole
- funkce vraci string o delce Count od pozice S[Index]
- pokud Index vetsi nez delka S, je vracen prazdny string
(vice viz copy function - D4 help - rejstirk)
S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
Subject: Jak na retezec ?
jak se jmenuje funkce v Delphi,
ktera z retezce znaku vybere urcity pocet znaku od urcite
pozice ?
ozncenie polozky v ListBoxe za behu
[*] Ji�� Fait���}���6���3 - 14.9.2000 06:01:55
ListBox1.ItemIndex := 2
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Mari�n Goryl
Sent: Wednesday, September 13, 2000 8:00 AM
To: delphi-l(zv)fwd(tec)cz
Subject: ozncenie polozky v ListBoxe za behu
Ahoj,
vie niekto ako urobit programovo %subj% ?
D5
Dakujem, Marian
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
DelphiX!
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 14.9.2000 06:57:32
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ted se tim zrovna zabivaji na www.builder(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Pavel Mach�lek
Sent: Wednesday, September 13, 2000 4:03 PM
To: Delphi konference
Subject: DelphiX! Ahoj,
nemate nekdo popis funkci(komponent) k DelphiX?
Nebo nejaky link na tutorial k DelphiX.
Predem moc diky
machalek(zv)ideasport(tec)cz
Windows tray a readkey...
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 14.9.2000 07:28:16
> mohl by mi prosim nekdo napsat kratounkou ukazku pridani ikonky do
> winowskeho traye a obsluhy kliknuti na ni (aby z toho bylo
> pochopitelne, jak to fachci)? Dik.
Ahoj,
ja jsem to sice zatim nedelal, ale jednou z cest je i pouziti
komponenty pro TrayIcon. Urcite se najde na Torry a mam dojem,
ze je neco i v RxLib.
> Oba vyse uvedene problemy se tykaji me free kalkulacky. Postupem doby
> z ni narostl MB bumbrlicek a ja potrebuju, aby jeho start trval co
> nejkratsi moznou dobu. Rad bych to zajistil tak, ze jej uzivatel uspi
> do traye a ja jen budu sledovat uzivatelem zvolenou klavesu. Kdyz ji
> stiskne, program se opet probudi.
Tohle ve mne probudilo zvedavost :)
1) Vzhledem k tomu, ze ve Win uz kalkulacka je, domnivam se, ze
ta Tvoje bude asi oplyvat podstatne vice funkcemi. Muzes prosim
blize popsat, co bude umet?
2) Co na ni zabira tolik mista?
3) Osobne by se mi moc nelibilo mit (v tray) spusteny po vetsinu
casu nepouzivany "zrout pameti a prostredku" jen proto, aby mi
nabihal o neco rychleji. Myslim, ze ta chvilka, nez se program
spusti, by mi byla milejsi, zejmena s ohledem na to, ze kalkulacku
potrebuji pomerne zridka.
4) Nenabiha ten program pomalu treba proto, ze obsahuje hodne
formu a vsechny jsou autocreate pri startu aplikace?
Rozhodne nic ve zlym, jen me to opravdu zajima :)
David Lebeda
IB6.0 - Stored procedure - probleeem
[*] zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 14.9.2000 07:37:47
Ahoj,
ne ze bych se povazoval za vzdelance, ale na Tebou uvedene procedure mi
jaksi vadi radek 13.
13.. into vPobocka, vIDU, vDDefinity
ja bych poed nazvy promennych dal dvojtecky, asi takhle
13.. into :vPobocka, :vIDU, :vDDefinity
Mozna ja tohle i Tvuj problem
Radek
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
tel.c.: 069/674 33 62 (069/292 8421)
mobil : 0604 539 827
-----Puvodni zprava-----
Od: ing.Pavel Cabalka [SMTP:pavel_cabalka(zv)vcshk(tec)cz]
Odeslano: 13. zaoi 2000 16:55
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: IB6.0 - Stored procedure - probleeem
<<Soubor: ATT00016.htm>> panove !
prosil bych nejakeho vzdelance o pomoc nebot se topim v nesnazich. Pripadam
si jako de..il, ale rad bych dal dohromady ulozenou proceduru (IB6.0) v niz
jsem si dovolil pouzit konstrukci FOR SELECT... Dle manualu neexistuji
zadna zvlastni omezeni pro onen select pres ktery se provadi for ... az na
to ze musi koncit klauzuli INTO :<var>. Fajn, tak tedy dokazal by mi nekdo
z vas rict proc mi to na radku c.12 nasledujiciho kodu vraci chybu SQL
error -206 <Column unknown> ???
(upozornuji, ze v tabulce onen sloupec prirozene existuje) Jsem naprosto
grogy, ziram na to, zkousim vselijake pakarny ale nic - bis. Puvodne jsem
tam chtel mit GROUP BY, ale protoze v manualech nebyl zadny priklad, ktery
by to pouzival, tak jsem to zkusil s ORDER BY, ale hlasi to porad to same
ackoliv v manualu je na to obdobny priklad
1.. SET TERM !! ;
2.. CREATE PROCEDURE Dopln_TCpob (pIDI INTEGER)
3.. AS
4.. DECLARE VARIABLE vPobocka INTEGER;
5.. DECLARE VARIABLE vIDU SMALLINT;
6.. DECLARE VARIABLE vDDefinity DATE;
7.. DECLARE VARIABLE vPobExistuje INTEGER;
8.. BEGIN
9.. For select Pobocka, IDU, DDefinity
10.. from TCdet
11.. where IDI=:pIDI
12.. ORDER BY Pobocka
13.. into vPobocka, vIDU, vDDefinity
14.. do ...
zachrani nekdo zoufalce ?
za kazdy napad predem neskonaly dik
PavelC
IB6.0 - Stored procedure - probl���m
[*] Martin Ocenas <matko(zv)proces.sk> - 14.9.2000 07:40:21
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]
Sent: Wednesday, September 13, 2000 4:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: IB6.0 - Stored procedure - probl���m
����� into :vPobocka, :vIDU, :vDDefinity
S pozdravom
M
mys&click
[*] Bobek <bobak(zv)minv.sk> - 14.9.2000 08:01:43
Dobry den
potreboval by som poradit, ako programovo kliknut mysou ?
dsgnintf
[*] Ond�ej Frant�k <vyvoj(zv)atlascon(tec)cz> - 14.9.2000 08:08:01
c:\Program Files\Borland\Delphi5\Source\Toolsapi\dsgnintf.pas
----- Original Message -----
From: "Lauko �tefan" <lauko(zv)salamon.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 10:48 PM
Subject: dsgnintf
> Zdravim,
> stiahol som komponenty z torry a neviem si rady s prekladom jednej unity.
V
> uses je aj dsgnintf - compilatoru chyba subor dsgnintf.pas. Raz sa to tu
> preberalo ale neviem to najst.
> W98/2000, D5.1.
> dakujem. Lauko
>
>
>
MS SQL 7 - pripojeni aplikace
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 14.9.2000 08:19:35
Hello Energotek!
> Spustim-li aplikaci, chvilku jede, pak se vylosuje jedna z vyse uvedenych
> chyb, zahlasi se, databaze se tvari jako by tam nebyla, po znovuspusteni
> aplikace jede zase chvilku normalne a tak se to porad opakuje.
Toto je typicke chovanie, ked je LAN-karta s chipom RTL 8029 a driver je
ten, co si W98 pri instalacii nasli sami.Treba stiahnut najnovsi RTL8029.SYS
alebo pouzit aspon ten z diskety od karty, ale ak to nema v datume rok 2000,
tak sa problemy este obcas mozu objavit.
Dufam, ze ked to spravis, napises nam, co to bolo.
Bye
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
ip komunikace
[*] delfinojd <delfinojd(zv)atlas(tec)cz> - 14.9.2000 08:24:04
ja bych si ji s dovolenim tedy vzal:)
diky
karel
At 16:13 13.9.2000 +0200, you wrote:
>zdravim,
>
>kratke stringy posilam pomoci UDP paketu a mam na to komponentu UDPSckt,
>kterou ti posilam, (obligatni otazka s odpovedi: chcete ji nekdo [i se
>zdrojaky] taky?
>Napiste.)
>
>Pracuje se s tim jednoduse:
>
>Odeslani dat:
>
>procedure TForm1.Button1Click(Sender: TObject);
>var IP: TIPAddr;
>begin
> StrToIPAddr(Edit1.Text, IP);
> UDPSocket1.SendData(IP, Edit2.Text);
>end;
>
>
>prijem dat:
>
>procedure TForm1.UDPSocket1DataReceived(Sender: TObject);
>var V: Variant;
>begin
> UDPSocket1.GetData(V);
> ListBox1.Items.Add(IPAddrToStr(UDPSocket1.RemoteIPAddr) + ' ' + V);
>end;
>
>posle data vsem klientum (nemusis zadat IP adresu):
>
> UDPSocket1.BroadcastData(Edit2.Text);
>
>
>M.Jirman
>
>----- Original Message -----
>From: "Pavel �imek" <kejchal(zv)volny(tec)cz>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Wednesday, September 13, 2000 8:02 AM
>Subject: ip komunikace
>
>
> > Zdravim vsechny delfiny,
> >
> > mam dva PC spojene pres protokol IP. potrebuji v D3 nabidnout par dat i
>tomu
> > druhemu pecku. Jde o jakesi predavani kratkych stringu. Poradite nekdo?
> >
> > S pozdravem Pavel
> >
> >
>IB6.0 - Stored procedure - probl���
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.9.2000 08:25:48
ahoj,
nemaji tam byt ":"?
...
into :vPobocka, :vIDU, :vDDefinity
...
dekuji
peca
btw, priste prosim bez formatovani html :(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz Zip Master
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.9.2000 08:34:51
Ahoj
Jak je to s pouzitim Zip Masteru v souvislosti a autorskymi pravy..
Muze se pouzivat v komercnich programech nebo ne..
Mapovani souboru
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 14.9.2000 08:47:20
Zdravim,
mohl byste nekdo popsat, jak se pouziva mapovani souboru, pripadne napsat
nejaky link (nejlepe na cz www).
Dik
Petr
Komunikace mezi dvema aplikacemi ve win
[*] Ota Maly <maly(zv)space(tec)cz> - 14.9.2000 08:49:32
Ahoj,
resime tu problem, jak si dve (obe nase) aplikace muzou mezi sebou posilat
nejaka data. Jedna se o nevelke objemy, ale chceme se vyhnout prenosu pres
soubor.
Jake technologie vlastne Win umoznuji (messages, OLE, DDE)?
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
TCP/IP
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 14.9.2000 08:49:14
Dobry den,
pouzivam komponenty od F.Pietteho konkretne WSocketserver.
Nevite nekdo jak zjistit, ze se client nekorektne odpojil, tedy neposlal
zadost o ukonceni spojeni a proste zhasnul ?
Da se to nejak zjistit ?
Napadlo mne periodicky uzavirat a znovu otevirat spojeni, ale neprijde mi to
jako ciste reseni.
Dekuji
Daniel Kminek
MITE Hradec Kralove Ltd.
Veverkova 1343
CZ -500 02 Hradec Kr�lov�
tel. +420-49-5813 252
fax +420-49-5813 260
http://www.mite(tec)cz
Detekce screenSaveru
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 14.9.2000 08:52:08
Ja jsem to provozoval obdobne a funguje to v D4 i D5 pod Win95.
procedure TForm1.cmdDetectSreenSaverClick(Sender: TObject);
var pvParam:^LongBool;
begin
SystemParametersInfoA(SPI_GETSCREENSAVEACTIVE,0,pvParam,0);
if pvParam^=True then
lblStatus.Caption:='Screen saver is ACTIVE'
else
lblStatus.Caption:='Screen saver is NOT ACTIVE';
end;
Martin
E-mail: m_kriz(zv)del(tec)cz
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 12:13 PM
Subject: Detekce screenSaveru
> ahoj, nevim si rady s nasledujicim:
> potrebuji zjistit, zdali je nastaven nejaky screensaver nebo nikoli. Jak?
> Zkousel sem to takle:
>
> var b : bool;
> if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, (zv)b, 0) = true then
> JENASTAVEN else NENI;
>
> ale funguje to nejak random. Dik
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>BDE
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 14.9.2000 08:52:59
(D5Prof, Win2000 )
Ahoj
Potreboval bych poradit jak nejlepe distribuovat BDE se svou
aplikaci.....podpora pro paradox
Jake s tim mate zkusenosti....
Za cokoliv predem dik
Kde je chyba
[*] Tu�ek Roman (M� Praha 15) - 14.9.2000 08:53:26
nemuzu uvist vice kodu
vic ho tam neni
tohle je na Form.OnResize
animace jede (tzn. open,play,display vse jede a je definovano)
pod w95 to nedela pod w2000 pada
> -----P�vodn� zpr�va-----
> Od: Roman [SMTP:sw.maurice(zv)seznam(tec)cz]
> Odesl�no: 13. z��� 2000 22:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Kde je chyba
>
> > mam AVI player
> > a pri resize formu pouzivam
> > MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
> >
> > ale pokud ho resiznu tak to cele spadne
> > vyvola to obrazovku s strojakem a tradaaa bum
> >
> > toto se dej pod win2000....
>
> a MediaPlayer1.Display mas nastaveny? a to zarizeni /AVI/ uz je otevrene?
> a pod win95/98/nt se to nedeje? me to funguje /pod w95/ :-) mozna bys moh
> uvest
> trosku vic z kodu...
>
> roman
>
>
> Seriovy port
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 14.9.2000 08:53:54
Ahoj!
Potreboval bych pracovat se seriovym rozhranim, umet zpracovat to co
prichazi na port. Nevite nekdo o nejakych komponentach nebo typech jak na
to, pripadne odkaz na inet. Mam D5 prof.
Dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
Rychlost Append u Access pres Adonis
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 14.9.2000 09:26:15
Ahoj,
potrebuji ve sve aplikaci (v D5 Ent, pro W95/98/NT/2000) pridavat do Access
databaze (do jedne tabulky) najednou radove stovky az tisice zaznamu.
Pouzivam komponenty Adonis a delam to takhle:
(**********************************************************************)
(* SaveSignalRec
(**********************************************************************)
function SaveSignalRec(SA : Signals) : boolean;
var
i : integer;
SR : SignalRec;
begin
Result := false;
if LADM1F.ArcDB.Connected then
begin
if LADM1F.SigTb.Active then
begin
// debug
milis := GetTickCount;
// debug
LADM1F.ArcDB.StartTransaction;
for i := 0 to High(SA) do
begin
SR := SA[i];
// LADM1F.SigTb.AppendRecord([Null, SR.BatchID, SR.PFTime, SR.DBTime,
// SR.IDUstr, SR.IDInp, SR.SigStat, SR.SigFlg]);
LADM1F.SigTb.Append;
LADM1F.SigTbBatchID.Value := SR.BatchID;
LADM1F.SigTbPFTime.Value := SR.PFTime;
LADM1F.SigTbDBTime.Value := SR.DBTime;
LADM1F.SigTbIDUstr.Value := SR.IDUstr;
LADM1F.SigTbIDInp.Value := SR.IDInp;
LADM1F.SigTbSigStat.Value := SR.SigStat;
LADM1F.SigTbSigFlg.Value := SR.SigFlg;
LADM1F.SigTb.Post;
end;
LADM1F.ArcDB.Commit;
// debug
milis := GetTickCount - milis;
// debug
LADM1F.SigTb.Refresh;
Result := true;
end;
end;
end;
ArcDB je TADODatabase, SigTb je TADOTable.
Problem je v tom, ze je to docela pomale (na P200, 64 MB to dela cca 15
zapisu za sekundu). Nevite nekdo, jak to urychlit ? Erik v konferenci psal,
ze je treba si pohrat s parametry ADO, jenze kterymi ? Nejsem zadny expert
pres databaze, Access pouzivam pro ukladani hodnot z mereni pro dalsi
zpracovani... Eriku, pliiis :-)))
Zkousel jsem i AppendRecord, ale to je stejne.
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Jak na retezec ?
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 14.9.2000 09:42:22
Copy(retezec, pozice, pocet)
Tomas Bihary
----- Original Message -----
prosim poradte jak se jmenuje funkce v Delphi,
ktera z retezce znaku vybere urcity pocet znaku od urcite
pozice ?
Podobne jako funkce MID[retezec, m, n], v Access-u,
kde m je pozice odkud se zacina a n je pocet znaku,
ktere se vyberou.
mys&click
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 14.9.2000 09:45:43
pomoci API mouse_event ktera danou udalost vygeneruje
vuce viz help
Tomas Bihary
The mouse_event function synthesizes mouse motion and button clicks.
VOID mouse_event(
DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);
----- Original Message -----
potreboval by som poradit, ako programovo kliknut mysou ?kodovani cestiny pri importu z DBF a MDB do MySq
[*] Tom� Hol� - 14.9.2000 09:56:06
ahoj, mam DB v MySQL na Linuxu, a soubory v e Win98/DOSu ve formatu DBF
potrebuji udelat import DBF-> MySQL
na pripojeni MySQl pouzivam MyODBC driver
pokud to udelam pres Access - pripojim tabulku DBF i MySQL a udelam Query, vse chodi dobre, akorat nejdou prekopirovat datumove polozky
pokud to udelam v Delphi 5 pres ODBC, ADO BDE, vzdy se mi pomrsi cestina, nechce se mi delat konverzi, kdyz to pres ten access tak dobre slape (az na to datum)
nevite nekdo, kde je zakopana kocka ?
diky TH
ODBC a 2x vetsi polozky
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 14.9.2000 10:04:30
> V Accessu je to normalni, ale v Database Exploreru jsou
> vsechny polozky dvojnasobne.
Database Explorer nezmam, ale v ODBC funkce SQLColumns
vraci o informace COLUMN_SIZE, BUFFER_LENGTH a
CHAR_OCTET_LENGTH, pricemz v pripade Accessu plati
ze druhe dve jsou dvojnasobne proti COLUMN_SIZE.
Daniel
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
Delphi CS a DB/2 konektivita
[*] Leos Urban <delphi(zv)aitix(tec)cz> - 14.9.2000 10:12:40
Ahoj,
chystam se do firmy kde mam vyzkouset komunikaci IBM DB/2 na AS400 (V4R3)
a Delphi 4 C/S.
Nainstalovan na klientu je E-Net Client Access/400 V3R2M0 pro WinNT a W95.
Budu jeste neco potrebovat? Mate nejake doporuceni?
Na serveru Inprise jsou uvedeny nejake verze s kterymi to funguje,
tak se radeji ptam na prakticke zkusenosti...
Pripadne, jak funguje IBM DB/2 ODBC (event. INTERSOLV ) s BDE?
K dispozici tam maji v ODBC Manageru:
CA DB2/400 Driver 16 V3.01.02.00
CA ODBC Driver 32bit 5.00.06.00
Diky,
Leos
Re[2]: Seriove cislo HDD
[*] Delph! <delph(zv)miesto.sk> - 14.9.2000 10:27:32
JAC> Kdo opravdu umi zjistit seriove cislo HDD pro disky pripojene po siti
JAC> peer-to-peer?
...to si musis urobit zrejme nejaky service na strane "servera", ktory zisti
cislo lokalneho disku a cez sockety to "posuvat" dalej ...
Alebo upravit nejaku DLL na strane servera .. ;-(
--
Best regards,
Delph! mailto:delph(zv)miesto.sk
Jaky generator sestav?
[*] Daniel Tesa� <duhasystem(zv)volny(tec)cz> - 14.9.2000 10:37:40
Ahoj, potreboval bych nejaky "schopny" generator sestav ( aby umnel i export
do napr. TXT,DOC,HTML ).
Nejlepe jako komponenta. Nevite nekdo o necem takovem?
Diky za pripadne tipy..
Dan Tesar
Mapovani souboru
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.9.2000 10:46:17
Ahoj,
podivej se direktorare Delphi...Demos/ipcdemos
Vaclav Sazima
Da�a Petr wrote:
>
> Zdravim,
> mohl byste nekdo popsat, jak se pouziva mapovani souboru, pripadne napsat
> nejaky link (nejlepe na cz www).
>
> Dik
>
> Petr
Mapovani souboru - jak to funguje ?
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 14.9.2000 10:48:52
Podarilo se mi najit priklad, jak se zhruba pracuje s namapovanym souborem.
Jenom bych si chtel ujasnit par veci:
- kdyz budu mit namapovany cely soubor, ktery ma dejme tomu 50 MB, tak
obsadi 50 MB RAM (+ swap) ? To by pak nefungovalo dejme tomu na PC s treba
16 MB RAM ?
- kdyz ziskam pointer pomoci MapViewOfFile, tak k souboru pristupuju v
podstate stejne, jako kdyz ho otevru beznou funkci Reset nebo Rewrite a pak
pouzivam BlockWrite/Read, tzn. pointer na mapfile je zacatek "souboru" a pak
se jen pohybuju pomoci offsetu?
- kdyz tam neco zmenim, tak se to hned projevi ve fyzickem filu ?
- je pouziti mapovani o poznani rychlejsi, nez pouziti TFileStream nebo
pristupu pomoci BlockWrite/Read ?
Muzete mi nekdo odpovedet?
Diky
Petr
Komunikace mezi dvema aplikacemi ve win
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.9.2000 10:49:16
Ahoj,
ja pouzivam na male objemy dat messages (nejlepe registrovane) a na
velke filemapping.
Vaclav Sazima
Ota Maly wrote:
>
> Ahoj,
> resime tu problem, jak si dve (obe nase) aplikace muzou mezi sebou posilat
> nejaka data. Jedna se o nevelke objemy, ale chceme se vyhnout prenosu pres
> soubor.
> Jake technologie vlastne Win umoznuji (messages, OLE, DDE)?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
IB6.0 - Stored procedure - probleeem
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 14.9.2000 11:12:38
Ahoj
Bohuzel ty dvojtecky problemem nejsou (mozna by tam mely byt, ale zadrhel je
zrejme nekde jinde). Ja jsem se tim trapil celou noc a zjistil jsem par
dalsich informaci, nicmene uspechu jsem nedosahl. Zjistil jsem napriklad, ze
pokud zmenim na databazi dialect z 3 na 1, tak mi to sezere to ORDER BY (ale
nikoliv GROUP BY). Problem dialect 1 je ze nezna typy DATE a TIME, ktere
hojne vyuzivam. Dalsim poznatkem je, ze pokud by se jednalo o select
proceduru (tedy nikoliv executable proceduru jako je ta moje), kde se
vlastne v bloku "DO BEGIN ...END" uvadi SUSPEND, tak by to slo i na dialectu
3. Pritom ale podle dokumentace by to melo fungovat. Meto nevyhuci na ty
klauzule ORDER BY nebo GROUP BY (ty tomu jako by nevadi) ale na jakoukoliv
polozku z tabulky kterou za tyto klauzule uvedu.
Takze nenapada vas jeste najaka jina moznost? Jsem zoufaly protoze tohle
melo byt zakladnim kamenem pro mnozstvi importu dat z externich zdroju
(Ustredna-AutoDoplneni pobocek, CCS-AutoDoplneni novych karet,
Eurotel-AutoDoplneni novych telefonu, atd.) a ted to vypada, ze to nepujde.
Opet predem obrovsky dik za kazdou radu
PavelC
----- Original Message -----
From: zhasil <radek.zhasil(zv)vitkovice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 14, 2000 7:37 AM
Subject: RE: IB6.0 - Stored procedure - probleeem
> Ahoj,
> ne ze bych se povazoval za vzdelance, ale na Tebou uvedene procedure mi
> jaksi vadi radek 13.
> 13.. into vPobocka, vIDU, vDDefinity
> ja bych poed nazvy promennych dal dvojtecky, asi takhle
> 13.. into :vPobocka, :vIDU, :vDDefinity
> Mozna ja tohle i Tvuj problem
>
> Radek
>
>
> e-mail: radek.zhasil(zv)seznam(tec)cz
> http://www.mujweb(tec)cz/pocitace/radek.zhasil/
> tel.c.: 069/674 33 62 (069/292 8421)
> mobil : 0604 539 827
>
>
> -----Puvodni zprava-----
> Od: ing.Pavel Cabalka [SMTP:pavel_cabalka(zv)vcshk(tec)cz]
> Odeslano: 13. zaoi 2000 16:55
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: IB6.0 - Stored procedure - probleeem
>
> <<Soubor: ATT00016.htm>> panove !
> prosil bych nejakeho vzdelance o pomoc nebot se topim v nesnazich.
Pripadam
> si jako de..il, ale rad bych dal dohromady ulozenou proceduru (IB6.0) v
niz
> jsem si dovolil pouzit konstrukci FOR SELECT... Dle manualu neexistuji
> zadna zvlastni omezeni pro onen select pres ktery se provadi for ... az na
> to ze musi koncit klauzuli INTO :<var>. Fajn, tak tedy dokazal by mi nekdo
> z vas rict proc mi to na radku c.12 nasledujiciho kodu vraci chybu SQL
> error -206 <Column unknown> ???
> (upozornuji, ze v tabulce onen sloupec prirozene existuje) Jsem naprosto
> grogy, ziram na to, zkousim vselijake pakarny ale nic - bis. Puvodne jsem
> tam chtel mit GROUP BY, ale protoze v manualech nebyl zadny priklad, ktery
> by to pouzival, tak jsem to zkusil s ORDER BY, ale hlasi to porad to same
> ackoliv v manualu je na to obdobny priklad
> 1.. SET TERM !! ;
> 2.. CREATE PROCEDURE Dopln_TCpob (pIDI INTEGER)
> 3.. AS
> 4.. DECLARE VARIABLE vPobocka INTEGER;
> 5.. DECLARE VARIABLE vIDU SMALLINT;
> 6.. DECLARE VARIABLE vDDefinity DATE;
> 7.. DECLARE VARIABLE vPobExistuje INTEGER;
> 8.. BEGIN
> 9.. For select Pobocka, IDU, DDefinity
> 10.. from TCdet
> 11.. where IDI=:pIDI
> 12.. ORDER BY Pobocka
> 13.. into vPobocka, vIDU, vDDefinity
> 14.. do ...
> zachrani nekdo zoufalce ?
> za kazdy napad predem neskonaly dik
> PavelC
BDE
[*] delphi <delphi(zv)gema(tec)cz> - 14.9.2000 11:30:28
Ahoj
Nejjednodussi je vytvorit instalacku pomoci Install shield
express ktery je u Delf. V general options vyberes ze chces do
instalace pridat i BDE a muzes si tam vytvorit i alias pro
databazi.
Marty/
> (D5Prof, Win2000 )
> Ahoj
>
> Potreboval bych poradit jak nejlepe distribuovat BDE se svou
> aplikaci.....podpora pro paradox
> Jake s tim mate zkusenosti....
>
> Za cokoliv predem dik
>
>
>
>
>
>
>
> Neznamy format tabulky
[*] Maly(zv)pds.pce.cdrail(tec)cz - 14.9.2000 11:36:08
Pripona .FXP byla pouzivana u FOXPRO pro prelozeny pseudokod programu
LM
>Cau
>Nevite nekdo co je za tabulku *.fxp a jak ji otevrit v delphi ?
>Dik Ladap
Certifikaty. Jak na n� ?
[*] Ivo.Herles(zv)pvt(tec)cz - 14.9.2000 11:36:15
Knihovny pro praci s certifikaty ve Windows jsou k dispozici v tzv.
CryptoAPI od MS. Jejich popis lze nalezt na:
http://msdn.microsoft.com/library/psdk/crypto/cryptovrvw_8395.htm.
Jinak take doporucuji konferenci o CryptoAPI:
http://www.lsoft.com/scripts/wl.exe?SL1=CryptoAPI&H=DISCUSS.MICROSOFT.COM
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: honza-world [mailto:honza.kachlik(zv)worldonline(tec)cz]
> Odesl�no: 27. srpna 2000 16:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Certifikaty. Jak na n� ?
>
>
> Potreboval bych poradit ohledne windows certifikatu.
> 1. kde v souboru (napr. ktery stahuju ) najdu informace a polozky
> certifikatu.
> 2. Jak zjistim pravost certifikatu.
>
> PS: stacil by odkaz na web kde by se tyto informace daji najit.
> Predem dekuji.
>
>
>
>
> TCP/IP
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 14.9.2000 11:38:33
> pouzivam komponenty od F.Pietteho konkretne WSocketserver.
> Nevite nekdo jak zjistit, ze se client nekorektne odpojil, tedy neposlal
> zadost o ukonceni spojeni a proste zhasnul ?
> Da se to nejak zjistit ?
> Napadlo mne periodicky uzavirat a znovu otevirat spojeni, ale neprijde mi
to
> jako ciste reseni.
Treba by to slo tak, ze se musi klient cas od casu ohlasit serverovi, ze
jeste zije. Kdyz serverovi vyprsi timeout, tak ho odpoji.
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
Neznamy format tabulky
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 14.9.2000 12:01:25
Cauec,
Subject: Neznamy format tabulky
> Nevite nekdo co je za tabulku *.fxp a jak ji otevrit v delphi ?
To neni tabulka, ale program ve FoxPro.
Bye Ludan
Mapovani souboru
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 14.9.2000 12:05:15
V celku dobre je dana technika popsana v knize
Borland Delphi pruvodce vyvojare kniha IV od
Unis publishing od str 135
Tomas Bihary
----- Original Message -----
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 14, 2000 8:47 AM
Subject: Mapovani souboru
> Zdravim,
> mohl byste nekdo popsat, jak se pouziva mapovani souboru, pripadne napsat
> nejaky link (nejlepe na cz www).
>
> Dik
>
> Petr
Mapovani souboru
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 14.9.2000 12:16:48
hFile, hFileMapping : THandle;
pFile : pointer;
hFile := OpenFile( PChar( INIVal.SOUND_SHADY), m_OFI, OF_READ);
hFileMapping := CreateFileMapping( hFile, nil, PAGE_READONLY, 0, 0, nil);
pFile := MapViewOfFile( hFileMapping_SHADY, FILE_MAP_READ, 0, 0, 0);
.
.
prace s daty v souboru pre pFile
.
.
UnmapViewOfFile( pFile);
CloseHandle( hFileMapping);
CloseHandle( hFile);
Ondrej Malecek
Jak na retezec ?
[*] Tom� Vlad�k <tom.vladik(zv)swadvice(tec)cz> - 14.9.2000 12:41:11
A spousta dalsi uzitecnych funkci na praci s retzeci je v RX knihovne
StrUtils.pas
Mapovani souboru - jak to funguje ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.9.2000 12:43:44
> Podarilo se mi najit priklad, jak se zhruba pracuje s namapovanym
souborem.
> Jenom bych si chtel ujasnit par veci:
>
> - kdyz budu mit namapovany cely soubor, ktery ma dejme tomu 50 MB, tak
> obsadi 50 MB RAM (+ swap) ? To by pak nefungovalo dejme tomu na PC s treba
> 16 MB RAM ?
stane se "jen" to co se pise v dokumentaci - soubor bude soucasti pametoveho
prostoru Windows. Do pameti se nic dopredu nenacita. Pouze pokud je
pozadovan pristup na urcitou cast souboru, pak ce tato cast natahne. Pokud
bude casem malo RAMky tak se zase dlouhou nepouzivane kousky souboru
odswapuji na disk (pokud se zmenily, jinak se jen zahodi z RAM)
>
> - kdyz ziskam pointer pomoci MapViewOfFile, tak k souboru pristupuju v
> podstate stejne, jako kdyz ho otevru beznou funkci Reset nebo Rewrite a
pak
> pouzivam BlockWrite/Read, tzn. pointer na mapfile je zacatek "souboru" a
pak
> se jen pohybuju pomoci offsetu?
>
> - kdyz tam neco zmenim, tak se to hned projevi ve fyzickem filu ?
Ne, tam se to dostane az po odswapovani. Okamzita synchronizace s diskem by
cely proces zdrzovala. ALE pokud jiny program otevre stejny soubor jako
mapovany file pak oba (nebo vice) programy pouzivaji identicka data. COz je
jedno z vyuziti mapovanych filu.
>
> - je pouziti mapovani o poznani rychlejsi, nez pouziti TFileStream nebo
> pristupu pomoci BlockWrite/Read ?
Zalezi na zpusobu pouziti souboru. Vetsinou je obyc file na tom podle mne
lepe nebo stejne (diky windowsi read/write cache).
Mapovany file umoznuje ale jednoduse realizovat napriklad klasicke pole dat
(array of ...), ktere je pointrem namireno na mapovany file. Pak muzete mit
array mnohokrat vetsi nez je velikost RAM a neni treba se zdrozovat vecmi
jako je programovani nacitani casti souboru do pameti - Windows proste
odswapuji/priswapuji prislusne kusy podle potreby.
Zdravi
Dalibor Toman
Jak hledat v souboru se seznamem souboru z vice di
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 14.9.2000 13:26:44
Sorry za ten dlouhy predmet, ale nevedel sem, jak ho zkratit :)
Mam soubor, ve kterem jsou ulozene stromy adresaru ruznych disku spolu se
seznamem souboru.
Jsou ulozeny takto: nejprve seznamy souboru z jednotlivych adresaru jednoho
disku, pak eventuelne nejake popisky, pak to same pro druhy disk atd.
Soubory jsou ulozeny za sebou tak jak jsem je precetl z disku. Kazdy nazev
souboru ma za sebou jeste nejake bajty navic kvuli ruznym znackam a
poznamkam.
Ted delam vyhledavani a uz se s tim nemuzu domluvit, je to porad pomale
(zhruba 6000 souboru za pul minuty :(( ).
Vzdycky nactu do pameti jeden strom adresaru (jeden disk) a pak postupne
projizdim seznam souboru, pritom jeste "odskakuju" na popisky (pokud
existuje), ktere taky prohledavam a ze kterych se pak vracim. Je to hodne
skakani, ale nenapada me, jak to udelat jinak.
Videl jsem program, ktery pouziva zhruba stejny spusob zapisu takoveho
katalogu a tomu trvalo 150000 souboru jenom 14 vterin :(((
Napada nekoho nejaky zpusob, jak efektivne vyhledavat v takovychto
souborech? Jestli by pomohl nejaky soubor s indexem, tak to taky nevim, jak
se dela :)
Muzete mi nekdo poradit?
Petr
Neznamy format tabulky
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 14.9.2000 07:54:47 -0400
Cau
Nevite nekdo co je za tabulku *.fxp a jak ji otevrit v delphi ?
Dik Ladap
TCP/IP
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 14.9.2000 13:56:58
> Treba by to slo tak, ze se musi klient cas od casu ohlasit serverovi, ze
> jeste zije. Kdyz serverovi vyprsi timeout, tak ho odpoji.
To nemuzu, protoze nemam pristup k softu u klienta. Ale dik.
Privedlo mne to na myslenku cas od casu se zeptat pingem ( to moc nezatizi
sit)
a kdyz neodpovi tak socket korektne uzavrit...
Daniel Kminek
MITE Hradec Kralove Ltd.
Veverkova 1343
CZ -500 02 Hradec Kr�lov�
tel. +420-49-5813 252
fax +420-49-5813 260
http://www.mite(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Jaroslav Nadhera
> Odesl�no: 14. z��� 2000 11:39
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: TCP/IP
>
>
> > pouzivam komponenty od F.Pietteho konkretne WSocketserver.
> > Nevite nekdo jak zjistit, ze se client nekorektne odpojil, tedy neposlal
> > zadost o ukonceni spojeni a proste zhasnul ?
> > Da se to nejak zjistit ?
> > Napadlo mne periodicky uzavirat a znovu otevirat spojeni, ale
> neprijde mi
> to
> > jako ciste reseni.
>
> Treba by to slo tak, ze se musi klient cas od casu ohlasit serverovi, ze
> jeste zije. Kdyz serverovi vyprsi timeout, tak ho odpoji.
>
> 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
>Zistenie farby bodu na obrazovke
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 14.9.2000 14:18:42
Ahoj,
pozna niekto inteligentny sposob ako zistit farbu bodu (pixelu) na
obrazovke, ked viem jeho suradnice?
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Komponenta TNMSMTP
[*] Vladislav.Skalicka(zv)koncept(tec)cz - 14.9.2000 14:30:11
Vazeni, mam problem s komponentou TMNSMTP (z FastNet) - D5 Enterprise.
Na nekterych pocitacich (vzdy NT4, SP nejmene 3, IE5.01) i prazdny formular
s touto komponentou jde pri startu programu ihned do Watsona, na nekterych
ne.
(formular se vubec neobjevi).
Nema nekdo potuchy, kde my mohla byt chyba? Citim, ze dll nebo poradi,
jak se vzajemne inicializujou dll nebo neco takovyho, ale blbe se to hleda.
Predem moc dekuju za jakoukoliv pomoc.
�. VVS.
--------------------------------------------------------
ing. Vladislav V. Skali�ka
Koncept CZ, a.s.
S�dlo: Tursko 142, 252 65 Praha-z�pad
Po�tovn� adresa: Nad V��inkou 2, 150 00 Praha 5
Phone: +420-2-57310970,57310971, Fax:+420-2-57313772
MailTo:vladislav.skalicka(zv)koncept(tec)cz
--------------------------------------------------------
Klik shodi prgram
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 14.9.2000 14:49:16
Ahoj,
mam program, ktery vyuziva vlakna. Po nekolikamunutovem
behu, kdyz kliknu na jiny program(muj ztarti focus) nebo kdyz
neni aktivni a pak na nej kliknu, tak mi program spadne s hlasenim
acces violation. Co se deje s programem, kteri ziska focus nebo
jej ztarti? Ve vlaknech pouzivame logovani do mema pres synchronize.
Kdyz na ten program neklikam a neklikam ani jinam tak bezi.
Myslim, ze by to mohlo mit souvislost s temi vlakny....
Nemate nekdo nejakou ideu, kudy se ubrat? Kde hledat pricinu?
Diky Michal
Zip Master
[*] L. ZITA <konference(zv)sales(tec)cz> - 14.9.2000 15:08:56
> Ahoj
>
> Jak je to s pouzitim Zip Masteru v souvislosti a autorskymi pravy..
> Muze se pouzivat v komercnich programech nebo ne..
>
Myslim ze ano.
Ludek
========== Delzip11.txt ==================
Delphi Zip v1.10
Contains VCLs, examples, and DLLs for Delphi v2.
Gives your programs full support for PKZIP
v2.04g compatible file compression/expansion.
100% Freeware.
Based largely on the InfoZip project.
All Delphi source code is included, and C
source for the DLLs is available separately
in file DZDLLSR1.ZIP
This version fixes a serious memory bug in
v1.00, and adds some new features.
Eric W. Engler
englere(zv)swcp.com
============== End ======================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
IB6.0 - Stored procedure - probleeem
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 14.9.2000 15:38:12
Jenom napad, zkus si udelat select proceduru ktera bude mit
parametr to pIDI a vracet ty tri hodnoty, tak aby uz tam byl Order
by a v tom for napis for select pobocka, idu, definity from
pokus(pIDI) into vPobocka, vIDU, vDDefinity
> Ahoj
> Bohuzel ty dvojtecky problemem nejsou (mozna by tam mely byt, ale zadrhel je
> zrejme nekde jinde). Ja jsem se tim trapil celou noc a zjistil jsem par
> dalsich informaci, nicmene uspechu jsem nedosahl. Zjistil jsem napriklad, ze
> pokud zmenim na databazi dialect z 3 na 1, tak mi to sezere to ORDER BY (ale
> nikoliv GROUP BY). Problem dialect 1 je ze nezna typy DATE a TIME, ktere
> hojne vyuzivam. Dalsim poznatkem je, ze pokud by se jednalo o select
> proceduru (tedy nikoliv executable proceduru jako je ta moje), kde se
> vlastne v bloku "DO BEGIN ...END" uvadi SUSPEND, tak by to slo i na dialectu
> 3. Pritom ale podle dokumentace by to melo fungovat. Meto nevyhuci na ty
> klauzule ORDER BY nebo GROUP BY (ty tomu jako by nevadi) ale na jakoukoliv
> polozku z tabulky kterou za tyto klauzule uvedu.
> Takze nenapada vas jeste najaka jina moznost? Jsem zoufaly protoze tohle
> melo byt zakladnim kamenem pro mnozstvi importu dat z externich zdroju
> (Ustredna-AutoDoplneni pobocek, CCS-AutoDoplneni novych karet,
> Eurotel-AutoDoplneni novych telefonu, atd.) a ted to vypada, ze to nepujde.
> Opet predem obrovsky dik za kazdou radu
> PavelC
>
> ----- Original Message -----
> From: zhasil <radek.zhasil(zv)vitkovice(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, September 14, 2000 7:37 AM
> Subject: RE: IB6.0 - Stored procedure - probleeem
>
>
> > Ahoj,
> > ne ze bych se povazoval za vzdelance, ale na Tebou uvedene procedure mi
> > jaksi vadi radek 13.
> > 13.. into vPobocka, vIDU, vDDefinity
> > ja bych poed nazvy promennych dal dvojtecky, asi takhle
> > 13.. into :vPobocka, :vIDU, :vDDefinity
> > Mozna ja tohle i Tvuj problem
> >
> > Radek
> >
> >
> >
> > e-mail: radek.zhasil(zv)seznam(tec)cz
> > http://www.mujweb(tec)cz/pocitace/radek.zhasil/
> > tel.c.: 069/674 33 62 (069/292 8421)
> > mobil : 0604 539 827
> >
> >
> > -----Puvodni zprava-----
> > Od: ing.Pavel Cabalka [SMTP:pavel_cabalka(zv)vcshk(tec)cz]
> > Odeslano: 13. zaoi 2000 16:55
> > Komu: delphi-l(zv)fwd(tec)cz
> > Poedmit: IB6.0 - Stored procedure - probleeem
> >
> > <<Soubor: ATT00016.htm>> panove !
> > prosil bych nejakeho vzdelance o pomoc nebot se topim v nesnazich.
> Pripadam
> > si jako de..il, ale rad bych dal dohromady ulozenou proceduru (IB6.0) v
> niz
> > jsem si dovolil pouzit konstrukci FOR SELECT... Dle manualu neexistuji
> > zadna zvlastni omezeni pro onen select pres ktery se provadi for ... az na
> > to ze musi koncit klauzuli INTO :<var>. Fajn, tak tedy dokazal by mi nekdo
> > z vas rict proc mi to na radku c.12 nasledujiciho kodu vraci chybu SQL
> > error -206 <Column unknown> ???
> > (upozornuji, ze v tabulce onen sloupec prirozene existuje) Jsem naprosto
> > grogy, ziram na to, zkousim vselijake pakarny ale nic - bis. Puvodne jsem
> > tam chtel mit GROUP BY, ale protoze v manualech nebyl zadny priklad, ktery
> > by to pouzival, tak jsem to zkusil s ORDER BY, ale hlasi to porad to same
> > ackoliv v manualu je na to obdobny priklad
> > 1.. SET TERM !! ;
> > 2.. CREATE PROCEDURE Dopln_TCpob (pIDI INTEGER)
> > 3.. AS
> > 4.. DECLARE VARIABLE vPobocka INTEGER;
> > 5.. DECLARE VARIABLE vIDU SMALLINT;
> > 6.. DECLARE VARIABLE vDDefinity DATE;
> > 7.. DECLARE VARIABLE vPobExistuje INTEGER;
> > 8.. BEGIN
> > 9.. For select Pobocka, IDU, DDefinity
> > 10.. from TCdet
> > 11.. where IDI=:pIDI
> > 12.. ORDER BY Pobocka
> > 13.. into vPobocka, vIDU, vDDefinity
> > 14.. do ...
> > zachrani nekdo zoufalce ?
> > za kazdy napad predem neskonaly dik
> > PavelC
>
>
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
Komunikace mezi dvema aplikacemi ve win
[*] Ota Maly <maly(zv)space(tec)cz> - 14.9.2000 15:50:58
Ahoj,
mohl bys uvest kousek ilustracniho kodu pouzivajici komunikaci pomoci
messages? Nejak se nam tu nepodarilo predat rozumnejsi data..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Vaclav Sazima
Sent: Thursday, September 14, 2000 10:49 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Komunikace mezi dvema aplikacemi ve win
Ahoj,
ja pouzivam na male objemy dat messages (nejlepe registrovane) a na
velke filemapping.
Vaclav Sazima
Ota Maly wrote:
>
> Ahoj,
> resime tu problem, jak si dve (obe nase) aplikace muzou mezi sebou posilat
> nejaka data. Jedna se o nevelke objemy, ale chceme se vyhnout prenosu pres
> soubor.
> Jake technologie vlastne Win umoznuji (messages, OLE, DDE)?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
OskarBrana pro sms
[*] Raul Endymion <raul.endymion(zv)ns1.infima(tec)cz> - 14.9.2000 15:55:46
Nemate nekdo nejake knihovny pro analyzu source emailove zpravy ?
Jako napriklad vyexportovani polozek od koho, datumy, pro koho,
subject, text ? Pisu ted aplikaci, ktera bude preposilat emaily na
mobila OSKAR (nema primo emailovou adresu a posilam to pres www (Diky
Synapsi)) ?
Jo jinak na http://bbs.infima(tec)cz/raul bude brzy sms brana na paegas a
na oskar.. (Casem i pro presmerovani emailu, az prijdu na to jak) Raul mailto:raul.endymion(zv)bsdi.infima(tec)cz
IB 5.6 a specialni triggry
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.9.2000 15:59:14
Preji vsem pekneho dne,
jak napsat trigger, ktery se spusti
a) pri prihlaseni uzivatele
b) v urcity cas
Diky za pripadne odpovedi
Slavek
Pridani menu do existujici aplikace
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 14.9.2000 16:23:37
Ahoj lidi.
Tak uz zase neco potrebuji. Muzete mi nekdo rict co patri do
nasledujiciho kodu?
HWND_Moje:=CreatePopupMenu();
InsertMenu(HWND_Moje,0,MF_BYPOSITION,<co patri sem>,'Moje podnabidka');
InsertMenu(HWND_Menu,10,MF_POPUP or MF_BYPOSITION,HWND_Moje,'Moje
nabidka');
HWND_Menu - existujici menu aplikace
HWND_Man - Moje PopUp menu
Moje nabidka se vytvori, ale v okamziku kdy na ni kliknu, tak prislusna
aplikace havaruje a ani se neukaze podnabidka..
Az se povede udelat podnabidku, jak zavolam treba proceduru PRACUJ,
propojuje se nejak pomoci <co patri sem>?
Predem dekuji Jirka
D5, W98
TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.9.2000 16:28:31
> > Treba by to slo tak, ze se musi klient cas od casu ohlasit serverovi, ze
> > jeste zije. Kdyz serverovi vyprsi timeout, tak ho odpoji.
>
> To nemuzu, protoze nemam pristup k softu u klienta. Ale dik.
> Privedlo mne to na myslenku cas od casu se zeptat pingem ( to moc nezatizi
> sit)
> a kdyz neodpovi tak socket korektne uzavrit...
>
ideas:
- SetSockOpt - SO_KEEPALIVE
Ale help od MS je ponekud velka mlha
- vlastni keepalive - echo_request/echo posilane TCP spojenim (pokud je
mozne klienta preprogramovat - implementovat echo). V nekterych pripadech je
mozne zrejme vyuzit i nektere povely jiz existujiciho protokolu (povel ktery
nic nedela).
Jinak se s tim neda nic delat. Pokud remote strana chcipne (vypne pocitac) a
na TCP spojeni neni zadny provoz indukovny serverem pak spojeni muze zusta
navazano treba tyden (pokud nejsou zaple KeepAlives). Teprve po te co se
server pokusi neco prenest zacne TCP/IP subsystem pmalu zjistovat ze se deje
neco shnileho - nez spojeni skutecne plne uzavre (uvolni socket) muze
uplynout i ctvrt hodina).
Zdravi
D. Toman
Seriove cislo HDD
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 14.9.2000 16:52:47
Ahoj,
takhle to jednoduse nepujde.
Bude asi nutne si vytvorit server-sluzbu, ktera pobezi
na tom vzdalenem PC a dokaze na pozadavek tohle
cislo sdelit klientovi.
### Josef A. Cerny napsal dne 13 Sep 00, v 9:22 :
> Zdravim,
>
> > ukecal jsi me, tak tady je link.
> > http://delphi.icm.edu.pl/ftp/d20free/DiskInfo.zip
>
> Neukecal jsi me. Vyhral jsem sampus.
>
> 'Error reading disk parameters.' tuto hlasku jsem dostal, kdyz jsem
> chtel
> zjistit to co od pocatku chci - cislo disku pripojeho po siti
> peer-to-peer. Pro lokalni disky to umim uz davno a nepotrebuji stahovat
> komponenty.
>
> Kdo opravdu umi zjistit seriove cislo HDD pro disky pripojene po siti
> peer-to-peer?
>
> Josef Cerny
>
> ********************************************
> * Josef A. Cerny
> * analyst and programmer
> *
> * ATLAS consulting, spol. s r.o.
> * Chocholouskova 9
> * 709 16 Ostrava
> * Czech Republic
> *
> * office : +420 69 661 64 32
> * secretary: +420 69 661 33 33
> * fax : +420 69 661 33 30
> * e-mail : cerny(zv)atlascon(tec)cz
> * WWW : http://www.atlascon(tec)cz
> ********************************************
>
>
>
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Seriovy port
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 14.9.2000 11:16:30 -0400
Dobra komponenta na komunikaci po seriovem rozhrani je CPORT250 je na torrym nebo delphisuperpage. Jestli chces tak ti ji muzu poslat.
Ladap
>>> vodicka(zv)sagit(tec)cz 14.9.00 2:53 >>>
Ahoj!
Potreboval bych pracovat se seriovym rozhranim, umet zpracovat to co
prichazi na port. Nevite nekdo o nejakych komponentach nebo typech jak na
to, pripadne odkaz na inet. Mam D5 prof.
Dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
BDE
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 14.9.2000 11:18:42 -0400
Skousel sem prilepit k instalaci BDE pouze pro paradox a zlobilo to, pokud pripojim BDE cely tak to funguje. Umi to InstallShield pro Delphi5 kterej je na instalacnim CD s delphi.
Ladap
>>> dalibor(zv)torola(tec)cz 14.9.00 2:52 >>>
(D5Prof, Win2000 )
Ahoj
Potreboval bych poradit jak nejlepe distribuovat BDE se svou
aplikaci.....podpora pro paradox
Jake s tim mate zkusenosti....
Za cokoliv predem dik
Mapovani souboru - jak to funguje ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.9.2000 17:28:24
On 14 Sep 2000, at 10:48, Da�a Petr wrote:
> - kdyz ziskam pointer pomoci MapViewOfFile, tak k souboru pristupuju v
> podstate stejne, jako kdyz ho otevru beznou funkci Reset nebo Rewrite
> a pak pouzivam BlockWrite/Read, tzn. pointer na mapfile je zacatek
> "souboru" a pak se jen pohybuju pomoci offsetu?
Pracuje se s tim v podstate stejne, jako s alokovanym blokem
pameti. Tedy, muzes jezdit pointrem sem a tam.
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
Komunikace mezi dvema aplikacemi ve win
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.9.2000 18:23:00
Ahoj,
prenos dat pres messages je opravdu pro male objemy dat, neb mas na
to pouze wparam a lparam, ale je to jednoduche a rychle.
Vysilani :
oncreate
MyMessage := registerwindowmessage ('mymessage');
odeslani
PostMessage (hwnd_Broadcast {kdyz se Ti nechce hledat handle
prijemce},MyMessage,wN,lN);
Prijem :
oncreate
MyMessage := registerwindowmessage ('mymessage');
Application.OnMessage := OnMessage;
tform1.OnMessage (var Msg: TMsg; var Handled: Boolean);
begin
if MSg.Message = MyMessage then
if Msg.hwnd = Application.Handle then
//tahle radka uz poradne nevim proc tam je (nekdy),
//ale zabranovalo to v nejakem pripade opakovanemu zpracovani
//zpravy vlivem pouziti hwnd_broadcast, viz struktura tmsg
begin
.....
Handled := true;
end;
end;
Vaclav Sazima
Ota Maly wrote:
>
> Ahoj,
> mohl bys uvest kousek ilustracniho kodu pouzivajici komunikaci pomoci
> messages? Nejak se nam tu nepodarilo predat rozumnejsi data..
>OpenDialog
[*] olej.jozef(zv)slsp.sk - 14.9.2000 19:06:13
Ahoj,
Neviete mi niekto poradit ako v D3 mozem cez OpenDialog zobrazovat
- len subory /nezobrazovat adresare/
- utriedit subory podla datumu vytvorenia zostupne. /tj najnovsi
subor hore/ pripadne podla mena tiez zostupne.
Dakujem
Jozo
IB6.0 special sql
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 14.9.2000 19:16:17
Ahoj,
potrebujem v ib6 vykonat premennu ako sql
napr.
create procedure test as
declare variable toto varchar(1000);
declare variable mid integer;
begin
toto = 'select id from tabulka into :mid;';
exec toto; ?????????????????????
end;
da sa to vobec a ako ? pomozte. alebo ine riesenie?
Dakujem
Bohdan Pomsahar
Delphi a ASP
[*] <bejcek(zv)centrum(tec)cz> - 14.9.2000 19:32:26
Nazdar hosi, neco bych zase potreboval, mohl by jste mi vysvetlit
funkci ASP a Delphi, jak to otestuju, jak to hlavne vytvorim a
tak. Vim o tom opravdu malo, takze se nestydte a poradte mi jak
se stim vyporadat.
Diky Aldik Amater vsech amateru
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Delphi a ASP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.9.2000 20:26:37
From: <bejcek(zv)centrum(tec)cz>
> Nazdar hosi, neco bych zase potreboval, mohl by jste mi vysvetlit
> funkci ASP a Delphi, jak to otestuju, jak to hlavne vytvorim a
> tak. Vim o tom opravdu malo, takze se nestydte a poradte mi jak
Ahoj,
neco najdes v CodeCentral, napriklad tady:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=15141
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=13926
Petr Vones, amatersky programator
Mapovani souboru - jak to funguje ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.9.2000 20:36:03
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Podarilo se mi najit priklad, jak se zhruba pracuje s namapovanym souborem.
> Jenom bych si chtel ujasnit par veci:
>
> - kdyz budu mit namapovany cely soubor, ktery ma dejme tomu 50 MB, tak
> obsadi 50 MB RAM (+ swap) ? To by pak nefungovalo dejme tomu na PC s treba
> 16 MB RAM ?
Ahoj,
ne, obsadi jen nezbytne nutnou (moznou) oblast v RAM. Takto muzes pracovat
treba s 200M souborem. O strankovani se stara operacni system. Jsou vsak
urcita omezeni u Win9x, kde nelze namapovat pouze cast souboru, coz te zajima
u soboru vetsich nez 2GB.
> - kdyz ziskam pointer pomoci MapViewOfFile, tak k souboru pristupuju v
> podstate stejne, jako kdyz ho otevru beznou funkci Reset nebo Rewrite a pak
> pouzivam BlockWrite/Read, tzn. pointer na mapfile je zacatek "souboru" a pak
> se jen pohybuju pomoci offsetu?
Ziskas tim ukazatel do virtualni pameti, podobne jako by jsi pamet alokoval
treba pomoci GetMem.
> - kdyz tam neco zmenim, tak se to hned projevi ve fyzickem filu ?
Ne, k tomu slouzi funkce FlushViewOfFile.
> - je pouziti mapovani o poznani rychlejsi, nez pouziti TFileStream nebo
> pristupu pomoci BlockWrite/Read ?
Zalezi na situaci ale ve vetsine pripadu je o dost rychlejsi, protoze s daty
pracujes jakoby byly v pameti. Pro jednoduchost muzes pouzit tridy pro praci
s mapovanymi soubory z JCL (http://delphi-jedi.org/Jedi:CODELIBJCL)
Petr Vones, amatersky programator
Trojuhelniky
[*] Petr =?ISO-8859-1?Q?Ga=EFourek?= <gadourek(zv)centrum(tec)cz> - 14.9.2000 21:28:58
Ahoj,
mam koncepcni dotaz, ale jeho zadani je delsi.
Na obrazovce mam 6 malych ruzne natocenych rovnostrannych
trojuhelniku, ktere se rovnomerne pohybuji od vrchu obrazovky
smerem dolu. Posun trojuhelniku po obrazovce trva cca 4 sekundy.
Techto obrazovek je cca 500 a ty se pohybuji plynule zasebou.
A ted ten dotaz. Jak to nejlepe kreslit a jak zajistit presny cas
posun kazde obrazovky? Je realne vsech 500 obrazovek najednou
nakreslit a pak okno postupne posouvat?
V DOSu jsem to resil (jeste pro 286) tak, ze jsem kreslil (a
mazal) jen zmeny a cekani mezi mikroposuny trojuhelniku jsem
resil cyklem s vypoctem odmocniny.
Diky vsem za radu a napad.
Petr
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Rychlost Append u Access pres Adonis
[*] Erik Salaj <winsoft(zv)napri.sk> - 14.9.2000 22:39:45
> potrebuji ve sve aplikaci (v D5 Ent, pro W95/98/NT/2000) pridavat do
Access
> databaze (do jedne tabulky) najednou radove stovky az tisice zaznamu.
> Pouzivam komponenty Adonis a delam to takhle:
>......................
> Problem je v tom, ze je to docela pomale (na P200, 64 MB to dela cca 15
> zapisu za sekundu). Nevite nekdo, jak to urychlit ? Erik v konferenci
psal,
> ze je treba si pohrat s parametry ADO, jenze kterymi ? Nejsem zadny expert
> pres databaze, Access pouzivam pro ukladani hodnot z mereni pro dalsi
> zpracovani... Eriku, pliiis :-)))
> Zkousel jsem i AppendRecord, ale to je stejne.
Mozes skusit toto:
1. Pouzi serverovsky kurzor a priamy pristup k tabulkam (t.j. CommandType
nastav na ctTableDirect). Robil som s tym nejake testy a dosiahol som s tym
lepsie casy ako u DAO. Dalej otvor databazu v exkluzivnom rezime, atd.
2. Pouzi ADO Recordset Binding (najdes na nasej web stranke, bude to
v novom Adonise) - umoznuje to eliminovat konverziu hodnot poloziek
na typ Variant.
3. Priprav a uloz data najprv niekde do suboru ako ASCII text a skus ich
potom insertnut jedinym INSERT prikazom (Access architektura je podobna
SQL databazam a SQL prikazy bezia velmi rychlo). Okrem toho
mozes to v Adonise spustit asynchronne.
4. Na http://msdn.microsoft.com najdes spustu informacii ako optimalizovat
Jet Engine (hladaj napr. "Optimizing performance"). Ma to spustu
nastaveni v registracnej databaze, pomocou ktorych mozes ovplyvnovat
velkost pouzitej pameti, rozne rezimy prace, ...
Erik Salaj, WINSOFT
Windows tray a readkey...
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 15.9.2000 02:59:55
Zdravim,
----- Original Message -----
Subject: Re: Windows tray a readkey...
> > Oba vyse uvedene problemy se tykaji me free kalkulacky. Postupem doby
> > z ni narostl MB bumbrlicek a ja potrebuju, aby jeho start trval co
> > nejkratsi moznou dobu. Rad bych to zajistil tak, ze jej uzivatel uspi
> > do traye a ja jen budu sledovat uzivatelem zvolenou klavesu. Kdyz ji
> > stiskne, program se opet probudi.
>
> Tohle ve mne probudilo zvedavost :)
>
> 1) Vzhledem k tomu, ze ve Win uz kalkulacka je, domnivam se, ze
> ta Tvoje bude asi oplyvat podstatne vice funkcemi. Muzes prosim
> blize popsat, co bude umet?
Vsechny dulezite funkce + vsechny funkce vramci zakladni etapy FELu (CVUT)
+ vsechny funkce, ktery ja nebo nekdo jiny (v to doufam vic :-) napise ve forme
DLL ridiciho se jednoduchymi pravidly...
konkretne: matika, fyzika, elektrika, algebra, logika, ekonomika a co mne napadne
+ uzivatelsky zaznamenatelne funkce + vse, co napadne nekoho jineho :-))
To vse pristupne pomoci:
QuickCalc - vse zakladni rychle po ruce...
Nut Calc - maticove operace a vse co se jich tyka
Terminal - pokud by se ti chtelo videt reseni nerovnice, nebo spec. funkce (kazda externi funkce
bude mit pristup k radkovemu I/O - read/ln write/ln z TP...)
Conversions - rychl�, uzivatelsky editovany prevodnik jednotek (men, a co si uzivatel vymysli :-)
Puvodne to mela byt malinka a rychla skinovatelna kalkulacka... Ted to ma byt konkurence
vedeckych kalkulatoru za desetitisice - pokud ses bliz poci, muzes vyuzit free kalkulacku aniz by
ses namahal hledanim hardware v aktovce...
K tomu uvazuju o inteligentnim doplnovani a vyhodnocovani konstantnich vypoctu a moznosti obzvlaste
presneho vypoctu pomoci zastupnych promennych a kompletaci az v zaveru (viz ulohy AMOSE na FELu).
Pokud to vse urychli, mozna se vrhnu i do paralelnich vypoctu pomoci threadu.
Jo a zapomel bych se zminit o moznosti nahrat si vlastni funkci, editovat konstanty, atd. Vse prisne
Max User Friendly.
A POZOR - tohle nejsou sliby, to jsou moje pr�n� a vize. Vse z�vis� na tom, co budu schopen vytvorit
v Delphi (mam dobreho pomocnika: Delphi4 od Marca Cantu - fantasticka knizka + tuhle konferenci :-).>
> 2) Co na ni zabira tolik mista?
Asi truecolorve obrazky - nekolik buttonu a velke logo
- zatim je to jenom GUI se zakladni obsluhou (+ kupa navrhu
na papire a v hlave)
- dal bych vse (krom te grafiky) za neco optimalnejsiho, no uznej:
jen GUI + par titernych funkci (zmena captionu apod.)
bez jadra a ostatnich framu!
------------------------------------------------------------
1MB exac, pres 3MB v pameti !!!>
> 3) Osobne by se mi moc nelibilo mit (v tray) spusteny po vetsinu
> casu nepouzivany "zrout pameti a prostredku" jen proto, aby mi
> nabihal o neco rychleji. Myslim, ze ta chvilka, nez se program
> spusti, by mi byla milejsi, zejmena s ohledem na to, ze kalkulacku
> potrebuji pomerne zridka.
Jestli je to tak, tak dobra. Od tray upustim. Mne jde o to, aby to
byla proste pohodova kalkulacka...
>
> 4) Nenabiha ten program pomalu treba proto, ze obsahuje hodne
> formu a vsechny jsou autocreate pri startu aplikace?
Zatim je to jen o malinky fous pomalejsi nez winovska kalkulacka,
moje obavy ale plynou z faktu, ze je to jenom jeden form a nejaky
ty obsluhy - tedy GUI bez jadra a zbylych formu.
Jenom nechci, aby s toho byl ve v�sledku stejn� rychl�k, jako je pri
spousteni napr. Outlook Express...
>
> Rozhodne nic ve zlym, jen me to opravdu zajima :)
Sem vazne rad, aspon vidim, ze ten freeware nepujde jenom do vzduchu :-)
>
> David Lebeda
>
> S pozdravem
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Ako zoradit ?
[*] Radek Lev� - 15.9.2000 06:41:06
Zkus : (pod ORACLE bez probl�m�...)
SELECT x.prijem_order, x.vydaj_order
FROM
(SELECT prijem as prijem_order, vydaj as vydaj_order, prijem + vydaj as
soucet_order FROM tabulka) x
ORDER BY x.soucet_order
Radek
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 11:26 PM
Subject: Re: Ako zoradit ?> Nie to nefunguje !
>
> Roland.
>
> ----- Original Message -----
> From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, September 13, 2000 7:57 AM
> Subject: RE: Ako zoradit ?
>
> > ahoj,
> > imho by melo fungovat:
> > "Select Prijem, Vydaj from Tabulka order by (Prijem+Vydaj)"
> >
> > ! neodzkouseno...
> >
> > dekuji
> > peca
> >
> > > Zdravim
> > > Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
> > > ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to
> > > potrebujem len tak
> > > zoradit.
> > > Dakujem. Roland
> >
> > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > [ firemni mail smtp: palicka(zv)aginfo(tec)cz]
> > [pro konference: petr.palicka(zv)atlas(tec)cz]
> > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
> > inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> >Asociovane programy
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 15.9.2000 08:00:09
Ahoj,
potrebuji najit a spustit program asociovany s priponou souboru.
Konkretne Acrobat Reader.
Jak na to
Diky Michal
Zistenie farby bodu na obrazovke
[*] zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 15.9.2000 08:10:27
Ahoj,
zkus WinAPI fci GetPixel
pr.:
procedure TForm1.Button1Click(Sender: TObject);
var
iHDC : HDC;
iPom, jPom : integer;
begin
iHDC := GetDC(0);
for iPom := 0 to 350 do
for jPom := 0 to 350 do
SetPixel(iHDC,iPom+50,jPom+50,GetPixel(iHDC,iPom,jPom));
end;
Radek
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
tel.c.: 069/674 33 62 (069/292 8421)
mobil : 0604 539 827
-----Puvodni zprava-----
Od: Pavol Kakaeka [SMTP:paka(zv)aktis(tec)cz]
Odeslano: 14. zaoi 2000 14:19
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Zistenie farby bodu na obrazovke
Ahoj,
pozna niekto inteligentny sposob ako zistit farbu bodu (pixelu) na
obrazovke, ked viem jeho suradnice?
Pavol Kakaeka
kasix(zv)atlas(tec)cz
Delphi a Windows ME
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.9.2000 08:11:36
Ahoj,
mate nekdo, prosim, zkusenosti jak behaji Delphi na Windows ME? (konkretne,
zda-li jsou tam problemy s pameti pri velkych formech jako na 98)
Diky
Jaro B.IB6.0 special sql
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.9.2000 08:18:55
ahoj,
vytvoris proceduru takto:
SET TERM !! ;
CREATE PROCEDURE test RETURN (neco INTEGER) AS
BEGIN
FOR
SELECT polozka
FROM tabulka
INTO :neco
DO
SUSPEND;
END !!
SET TERM ; !!
napises select takto:
SELECT neco FROM test
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> potrebujem v ib6 vykonat premennu ako sql napr.
> ...Asociovane programy
[*] Lauko Stefan <lauko(zv)salamon.sk> - 15.9.2000 09:27:04
ShellExecute(Handle, 'Open','Subor.pdf', '','', SW_SHOW);
----- Original Message -----
From: Michal Kus <kus(zv)tangosw(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 8:00 AM
Subject: Asociovane programy
> Ahoj,
>
> potrebuji najit a spustit program asociovany s priponou souboru.
> Konkretne Acrobat Reader.
>
> Jak na to
> Diky Michal
>
>
> Seriovy port
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 15.9.2000 09:36:48
Dik, uz jsem si ji stahl , je uz ve verzi 2.6.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Parizsky Ladislav
Sent: Thursday, September 14, 2000 5:17 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Seriovy port
Dobra komponenta na komunikaci po seriovem rozhrani je CPORT250 je na torrym
nebo delphisuperpage. Jestli chces tak ti ji muzu poslat.
Ladap
>>> vodicka(zv)sagit(tec)cz 14.9.00 2:53 >>>
Ahoj!
Potreboval bych pracovat se seriovym rozhranim, umet zpracovat to co
prichazi na port. Nevite nekdo o nejakych komponentach nebo typech jak na
to, pripadne odkaz na inet. Mam D5 prof.
Dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
NMPOP3, jak mazat postu ze serveru bez stahovani ?
[*] Tom� Hol� - 15.9.2000 09:49:10
ahoj,
znam akorat funkci
NMPOP31. GetMailMessage;
potreboval bych zjistit velikost zpravy
a smazat ji, pokud bude moc velka
nevite nekdo, jak na to ?
diky TH
Asociovane programy
[*] Jiri Kral <admin(zv)printo(tec)cz> - 15.9.2000 09:53:30
konkretne jsem resil totez a byl jsem spokojen s fci ShellExecute(popis ve
WIN32.HLP), ted tu ten zdrojak nemam
Jirka
Komponenty a jejich events s parametry
[*] Tom� Janta��������{����Y��̿ - 15.9.2000 10:11:30
Ahoj,
Pracuji na komunikacni komponente, ktera ma komunikovat se zarizenim na
seriovem portu a mela by predatat ziskana a zpracovana data v nasledujici
forme. Komponenta ze ktere vychazim ma nejaky event, ktery se vyvola pri
datech na portu, ja se povesim na ten event, zpracuju data a pak potrebuju
vyvolat novy vlastni event, ktery by mel mit parametru typu record. Neco
jako je treba OnMouseMove, kde event ma parametr ve kterem predava
souradnice mysi atd.. Povesit se na event predka uz umim, jediny problem je
vytvorit ten event s jinymi parametry nez jen (Sender:Tobject).
Zkousel jsem to vykoukat z jinych komponent, ale je v tom nejak zmatek.
Muzete mi nekdo poradit? Nejlepe poslat priklad. Dozadu se dekovat nema,
takze predem diky.
Tomas jantac
PaPouch elektrinika
www.pap-el(tec)cz
Rychlost Append u Access pres Adonis
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 15.9.2000 10:14:13
Ahoj,
pouzil jsem variantu 1 (misto TADOTable TADODataset, CommandType =
ctTableDirect, v Options se nastavi opWithoutADOEvents, CursorLocation =
clServer) a fici to jako severak na Sibiri - asi 450 zapisu/sec, tedy cca
30x rychleji. Dik Eriku !
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> > potrebuji ve sve aplikaci (v D5 Ent, pro W95/98/NT/2000) pridavat do
> Access
> > databaze (do jedne tabulky) najednou radove stovky az
> tisice zaznamu.
> > Pouzivam komponenty Adonis a delam to takhle:
> >......................
> > Problem je v tom, ze je to docela pomale (na P200, 64 MB to
> dela cca 15
> > zapisu za sekundu). Nevite nekdo, jak to urychlit ? Erik v
> konferenci
> psal,
> > ze je treba si pohrat s parametry ADO, jenze kterymi ?
> Nejsem zadny expert
> > pres databaze, Access pouzivam pro ukladani hodnot z mereni
> pro dalsi
> > zpracovani... Eriku, pliiis :-)))
> > Zkousel jsem i AppendRecord, ale to je stejne.
>
> Mozes skusit toto:
>
> 1. Pouzi serverovsky kurzor a priamy pristup k tabulkam (t.j.
> CommandType
> nastav na ctTableDirect). Robil som s tym nejake testy a
> dosiahol som s tym
> lepsie casy ako u DAO. Dalej otvor databazu v exkluzivnom rezime, atd.
>
> 2. Pouzi ADO Recordset Binding (najdes na nasej web stranke, bude to
> v novom Adonise) - umoznuje to eliminovat konverziu hodnot poloziek
> na typ Variant.
>
> 3. Priprav a uloz data najprv niekde do suboru ako ASCII text
> a skus ich
> potom insertnut jedinym INSERT prikazom (Access architektura
> je podobna
> SQL databazam a SQL prikazy bezia velmi rychlo). Okrem toho
> mozes to v Adonise spustit asynchronne.
>
> 4. Na http://msdn.microsoft.com najdes spustu informacii ako
> optimalizovat
> Jet Engine (hladaj napr. "Optimizing performance"). Ma to spustu
> nastaveni v registracnej databaze, pomocou ktorych mozes ovplyvnovat
> velkost pouzitej pameti, rozne rezimy prace, ...
>
> Erik Salaj, WINSOFT
>
IB6 - dokumentace
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 15.9.2000 10:22:11
Ahoj,
navite nekdo, zda-li je uz k dispozici dokumetace
k plne verzi. Cili uplna dokumentace?
Michal Kus
Font v menu
[*] garalda <garalda(zv)mail(tec)cz> - 15.9.2000 10:32:57
Ahoj,
Pracuji pod nemeckymi NT a rad bych napsal program, ktery by korektne
zobrazoval ceske znaky. Vetsina komponent, ktere pouzivam maji property
Font, jen hlavni menu bohuzel nic takoveho neobsahuje. Nastaveni celeho
systemu zmenit nemohu. Existuje nejake jine reseni. Dival jsem se do archivu
a tam Petr Vones doporucuje vlastni vykreslovani, ale neni mi z toho jasne,
jak si pri vlastnim vykreslovani nastavim vlastni znakovou sadu. Poradte
prosim nekdo.
Diky
Interbase na Linuxe
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 15.9.2000 11:03:55
> Skusal som aj to, ale stale mi vyhadzuje chybu:
> Unable to complete network request to host "10.0.0.1".
> Failed to locate host machine.
> Undefined service gds_db/tcp.
>
> aj som skusal davat nazov pocitaca, aj som ten nazov zapisal do
> hosts.sam aj do hosts na linuxe... co robim zle?
Mas nainstalovanyho klienta?
A zaznam musi byt v souboru host nikoliv host.sam!
Cesta pak pro Linux vypada napriklad takhle
servername:cesta\databasename.gdb
Ahoj Frantisek Sevcik
IB 5.6 a SELECT radku misto sloupce
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 15.9.2000 11:13:48
Preji vsem pekneho dne,
mam tri tabulky (uvadim pouze dulezite atributy pro muj problem): OSOBA
(IDOSOBA, JMENO, PRIJMENI), KNIHA (IDKNIHA) a AUTORSTVI
(IDOSOBA, IDKNIHA, PORADI). Osoba muze napsat m knih stejne tak
kniha muze mit n autoru (zaznamy jsou v AUTORSTVI). Poradi urcuje, v
jakem poradi jsou autori na knize napsani.
Tedkom potrebuju udelat SELECT, kde v jedinem radku v jednom sloupci
budou vsechny autory oddelene nejakym oddelovacem (treba carka)
samozrejme v uvedenem poradi (1, 2, ...).
Priklad:
IDKNIHA, AUTORI
2, "Jiri Kaspar, Ferda Baltazar, Honza Melichar"
31, "Brouk Igelitak, Ferda Satecek"
...
Jakym zpusobem se to necha napsat?
Diky za kazde odpovedi
Slavek
Ako zoradit ?
[*] Als <Als.FofrsIT(zv)worldonline(tec)cz> - 15.9.2000 12:01:32
Ahoj,
Wednesday, September 13, 2000, 11:26:26 PM, you wrote:
To skutecne funguje bez problemu. Pouzivam to casto i ve slozitejsich
kombinacich.> ahoj,
> imho by melo fungovat:
> "Select Prijem, Vydaj from Tabulka order by (Prijem+Vydaj)"
>
> ! neodzkouseno...
>
>>> > Zdravim
>> > Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
>> > ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to
>> > potrebujem len tak
>> > zoradit.
>> > Dakujem. Roland
--
S pozdravem
Ji�� Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���
IB 5.6 a SELECT radku misto sloupce
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 15.9.2000 12:49:20
Napada mne jedine stored procedura a na ni pak select.
> Preji vsem pekneho dne,
>
> mam tri tabulky (uvadim pouze dulezite atributy pro muj problem): OSOBA
> (IDOSOBA, JMENO, PRIJMENI), KNIHA (IDKNIHA) a AUTORSTVI
> (IDOSOBA, IDKNIHA, PORADI). Osoba muze napsat m knih stejne tak
> kniha muze mit n autoru (zaznamy jsou v AUTORSTVI). Poradi urcuje, v
> jakem poradi jsou autori na knize napsani.
>
> Tedkom potrebuju udelat SELECT, kde v jedinem radku v jednom sloupci
> budou vsechny autory oddelene nejakym oddelovacem (treba carka)
> samozrejme v uvedenem poradi (1, 2, ...).
>
> Priklad:
>
> IDKNIHA, AUTORI
> 2, "Jiri Kaspar, Ferda Baltazar, Honza Melichar"
> 31, "Brouk Igelitak, Ferda Satecek"
> ...
>
> Jakym zpusobem se to necha napsat?
>
> Diky za kazde odpovedi
>
> Slavek
>
>
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
Interbase na Linuxe
[*] L. ZITA <konference(zv)sales(tec)cz> - 15.9.2000 13:04:34
> > Skusal som aj to, ale stale mi vyhadzuje chybu:
> > Unable to complete network request to host "10.0.0.1".
> > Failed to locate host machine.
> > Undefined service gds_db/tcp.
> >
> > aj som skusal davat nazov pocitaca, aj som ten nazov zapisal do
> > hosts.sam aj do hosts na linuxe... co robim zle?
>
> Mas nainstalovanyho klienta?
> A zaznam musi byt v souboru host nikoliv host.sam!
> Cesta pak pro Linux vypada napriklad takhle
> servername:cesta\databasename.gdb
>
> Ahoj Frantisek Sevcik
>
Ahoj.
Mozna ze delas chybu v tom, ze cestu zadavas z pohledu klienta.
Cesta se musi zadat z pohledu serveru takze :
10.0.0.1:\cesta na serveru\databasename.gdb
Prvni pokus bych udelal pomoci prikazu ping 10.0.0.1
Pokud to nechodi nehledej chybu v IB.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Nastaveni papiru na tiskarne
[*] Jirka Virt <virt(zv)volny(tec)cz> - 15.9.2000 13:06:16
Ahoj vsem,
potykam se s problemem nastaveni velikosti papiru na tiskarne.
Nevite jak nastavitve Win9x pres Delphi na tiskarne papir ,tak jako pres klasicke dialogove okno.tj
vybrat papir a pri vyberu Vlastni(Custom) nastavit i jeho rozmery.Sice jsem si neco stahnul
z www.borland.com ,ale to pri prohlizeni nastaveni tiskarny se nic nezmeni!!????
Taky jsem zkouse API AddForm a po rade neuspesnych pokusu jsem si precetl toto Pouze pro WinNT.Ach jo.
Diky za napady
Jirka Virt
email: virt(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.177 / Virov� b�ze: 86 - datum vyd�n�: 7.8.2000
IB6 - dokumentace
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 15.9.2000 13:18:20
> navite nekdo, zda-li je uz k dispozici dokumetace
> k plne verzi. Cili uplna dokumentace?
Stale pouze beta a nevypada to, ze by se v dohledne dobe neco
zmenilo (Pokud tomu dobre rozumim tak Borland dokumentaci
neuvolnil)
Jiri Binder IB6 - dokumentace
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.9.2000 13:46:01
ahoj,
> navite nekdo, zda-li je uz k dispozici dokumetace
> k plne verzi. Cili uplna dokumentace?
dokumentace k plne verzi uz je, ale nikoli uplna :)
mrkni na stranky interbase.
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
IB 5.6 a SELECT radku misto sloupce
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.9.2000 14:01:21
ahoj,
jestli jsem to pochopil dobre, chces udela toto:
SELECT
K.IDKniha, A.AUTORI
FROM
Kniha K
JOIN prAutori(IDKniha) A ON K.IDKniha = A.IDKniha
kde (uprav si to dle svych typu polozek)
prAutori je ulozena procedura:
SET TERM !! ;
CREATE PROCEDURE prAutori (IDK INTEGER) RETURNS (IDKniha INTEGER, Autori
VARCHAR(150)) AS
DECLARE VARIABLE wAutor VARCHAR(50);
BEGIN
FOR
SELECT
A.IDKniha, O.Jmeno || O.Prijmeni AS Autor
FROM
AUTORSTVI A
JOIN OSOBA O ON O.IDOsoba = A.IDOsoba
WHERE
A.IDKniha = :IDK
ORDER BY
A.Poradi
INTO :wAutor
DO
BEGIN
IF (:Autori > '') THEN
:Autori:=:Autori+', '+wAutor
ELSE
:Autori:=wAutor;
END
END !!
SET TERM ; !!
je to z hlavy a neodzkouseno, syntaktixke chyby mozne... :)
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> mam tri tabulky (uvadim pouze dulezite atributy pro muj
> problem): OSOBA
> (IDOSOBA, JMENO, PRIJMENI), KNIHA (IDKNIHA) a AUTORSTVI
> (IDOSOBA, IDKNIHA, PORADI). Osoba muze napsat m knih stejne tak
> kniha muze mit n autoru (zaznamy jsou v AUTORSTVI). Poradi urcuje, v
> jakem poradi jsou autori na knize napsani.
> Tedkom potrebuju udelat SELECT, kde v jedinem radku v jednom sloupci
> budou vsechny autory oddelene nejakym oddelovacem (treba carka)
> samozrejme v uvedenem poradi (1, 2, ...).
> Priklad:
> IDKNIHA, AUTORI
> 2, "Jiri Kaspar, Ferda Baltazar, Honza Melichar"
> 31, "Brouk Igelitak, Ferda Satecek"IB 5.6: Jak se pise cursor?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 15.9.2000 14:18:31
Preji vsem pekneho dne,
chtel bych se optat: jak se pracuje ve storene procedure s kursorem?
Nemohu porad najit misto, kde to mam deklarovat.
Pr.:
Tabulka TB se sloupeckem SL. A v procedure potrebuji mit kursor:
DECLARE C CURSOR SELECT SL FROM TB WHERE podminka;
a pak to potrebuji FETCHovat a zpracovat. Kam se tedy napise ona
deklarace?
CREATE PROCEDURE SP_MYPROC
AS
BEGIN
END
Diky za pripadnou odpoved.
Slavek
Komponenty a jejich events s parametry
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 15.9.2000 14:19:12
type
tmujevent = procedure(sender:tobject;dalsiparam:string) of object;
tmoje = class;
private
fmujevent:tmujevent;
published
property mujevent:tmujevent read fmujevent write fmujevent;
end;
Snad v tom nemam chybu,pisu to z hlavy.
Radim
trunmakrouser = procedure(nazev:string;param:tstringlist;var
vysledek:string) of object;
----- Original Message -----
From: "Tom� Janta�" <tomasnusle(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 10:11 AM
Subject: Komponenty a jejich events s parametry
>
> Ahoj,
>
> Pracuji na komunikacni komponente, ktera ma komunikovat se zarizenim na
> seriovem portu a mela by predatat ziskana a zpracovana data v nasledujici
> forme. Komponenta ze ktere vychazim ma nejaky event, ktery se vyvola pri
> datech na portu, ja se povesim na ten event, zpracuju data a pak potrebuju
> vyvolat novy vlastni event, ktery by mel mit parametru typu record. Neco
> jako je treba OnMouseMove, kde event ma parametr ve kterem predava
> souradnice mysi atd.. Povesit se na event predka uz umim, jediny problem
je
> vytvorit ten event s jinymi parametry nez jen (Sender:Tobject).
> Zkousel jsem to vykoukat z jinych komponent, ale je v tom nejak zmatek.
> Muzete mi nekdo poradit? Nejlepe poslat priklad. Dozadu se dekovat nema,
> takze predem diky.
>
> Tomas jantac
>
> PaPouch elektrinika
> www.pap-el(tec)cz
>
>Nastaveni papiru na tiskarne
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 15.9.2000 14:27:52
Ahoj
(******************)
var ADevice, ADriver, APort : array[0..255] of char;
DeviceHandle : THandle;
DevMode : PDeviceMode;
begin
Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
DevMode := GlobalLock(DeviceHandle);
with DevMode^ do
begin
dmFields := dmFields or DM_PAPERLENGTH or DM_PAPERWIDTH;
dmPaperWidth := // Sirka papiru;
dmPaperLength := // Vyska papiru;
end;
GlobalUnlock(DeviceHandle);
end;
(************************)
nefunguje na vsech tiskarnach (ovladacich), nektere se uspesne brani. Ale s MS ovladace je vse v poradku.
Jedna se nastaveni pro aktualni tiskarnu a je nejlepsi to udelat tesne pred tiskem.
Honza +
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Jirka Virt
Sent: Friday, September 15, 2000 1:06 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Nastaveni papiru na tiskarne
Ahoj vsem,
potykam se s problemem nastaveni velikosti papiru na tiskarne.
Nevite jak nastavitve Win9x pres Delphi na tiskarne papir ,tak jako pres klasicke dialogove okno.tj
vybrat papir a pri vyberu Vlastni(Custom) nastavit i jeho rozmery.Sice jsem si neco stahnul
z www.borland.com ,ale to pri prohlizeni nastaveni tiskarny se nic nezmeni!!????
Taky jsem zkouse API AddForm a po rade neuspesnych pokusu jsem si precetl toto Pouze pro WinNT.Ach jo.
Diky za napady
Jirka Virt
email: virt(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.177 / Virov� b�ze: 86 - datum vyd�n�: 7.8.2000
IB6 - dokumentace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 15.9.2000 14:35:33
Ahoj,
na webu http://www.interbase2000.org/ib_doc.htm
se pise:
'Official' manuals. The final version of the InterBase 6 manuals (6 volumes, PDF) is
currently under embargo because of copyright and ownership issues.
Slavek
> navite nekdo, zda-li je uz k dispozici dokumetace
> k plne verzi. Cili uplna dokumentace?Indikace lokalniho menu (POPUPMENU)
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.9.2000 14:49:51
Ahoj,
prosim o radu. Potrebuji dat najevo, ze dany prvek (obvykle je to nejaky
listbox) ma pripojene popup menu. Vetsina beznych uzivatelu obvykle nikdy
neprijde na to, ze neco podobneho existuje a nevyuzivaji toho. Videl jsem
reseni jako komponent, ktery se placnul na formular a do seznamu se uvedly
komponenty (listboxy), kde je popup menu a jeho hlavni funkci bylo pri
najeti kurzorem mysi na napr. listbox, zmenit na chvili kurzor na jiny,
preddefinovany, ktery nazorne ukazoval co se ma smacknout. Bohuzel, pouzival
ttimer a nefungoval uplne korektne.
Diky za pripadny namet nebo radu
Jaro B.NMPOP3, jak mazat postu ze serveru bez stahovani ?
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 15.9.2000 15:37:35
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.
Jestli to chces naprogramovat, tak nevim, ale pokud chces program, ktery to
umi, tak je na CD Chip cislo 3 nebo 4/2000.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Tom� Hol� [mailto:thom(zv)comberg(tec)cz]
Sent: Friday, September 15, 2000 9:49 AM
To: delphi-l(zv)fwd(tec)cz
Subject: NMPOP3, jak mazat postu ze serveru bez stahovani ?
ahoj,
znam akorat funkci
NMPOP31. GetMailMessage;
potreboval bych zjistit velikost zpravy
a smazat ji, pokud bude moc velka
nevite nekdo, jak na to ?
diky TH
Skusenosti s CPORT (Was:Seriovy port)
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 15.9.2000 15:48:56
Prajem prijemny den :)
Ake mate skusenosti s komponentou CPORT (2.6) pod roznymi typmi
operacnych systemov Win95, Win98, WinME, WinNT, Win2000? (Mam D5 Prof)
Vopred dakujem za odpoved
Ondrej Jaura
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]
----- Original Message -----
From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 14, 2000 5:16 PM
Subject: Re: Seriovy port
> Dobra komponenta na komunikaci po seriovem rozhrani je CPORT250 je na
torrym nebo delphisuperpage. Jestli chces tak ti ji muzu poslat.
nastavovani filemode
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.9.2000 16:22:13
Ahoj,
nevite, prosim, nekdo jak spravne nastavovat filemoce pri sdileni? Jedna se
o maly typovy soubor na pocitaci 3 na ktery pristupuji z pocitace 1 a 2.
Potrebuji ho sdilet pro cteni i pro zapis. Ale me to nefunguje, porad mi to
hlasi prisup odepren pri soucasnem pristupu cteni-cteni, cteni-zapis,
zapis-zapis (zapisuje se do ruznych oblasti souboru, ne do stejne). Co s
tim? Jak mam nastavit spravne filemode a kdy je vratit nazpet (viz FileMode
:= OF_SHARE_DENY_WRITE/READ;)? Tentyz problem mam ale i na jednom pocitaci a
nevim proc. Blbost co?
D3, Win95
Diky
Jaro B.Konvertor RTF do HTML
[*] Spider <spider_x(zv)sendme(tec)cz> - 15.9.2000 17:02:47
Ahoj, nev�te n�kdo o n�jak� unit� (pro Delphi 5) nebo DLL knihovn� kter� um� konvertovat RTF do HTML ?
d�k
Spider
Indikace lokalniho menu (POPUPMENU)
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 15.9.2000 18:38:03
Zdravim,
vazne dobry napad. Zarazi mne, ze se tim zatim nikdo nezabyval (u vsech aplikaci musi
clovek zkouset, jestli tam je kontextove menu, nebo neni).
Napadlo mne, jestli by nestacilo pouze zmenit kurzor dane komponenty (napr. crUpArrow)?
Pokud ne, skusil bych tohle:
- napsat proceduru typu event, napr.: procedure PopNotify (Sender: TObject)
- z parametru Sender vypreparovat vlastnost cursor (to ale nevim jak...)
- zkopirovat jeji soucasnou hodnotu do nejake pomocne promene
- nastavit tuto vlastnost napr. na crUpArrow
- po nejake dobe def. Timerem vratit zpet puvodni hodnotu z te pomocne
promenne
- potom by uz jenom stacilo u pozadovane komponenty nastavit obsluhu udalosti
OnMouseMove na vyse popsanou proceduru a bylo by...
Jedinym problemem, co mne napada, by byl zpusob vypreparovani vlastnosti cursor
z parametru Sender... Snad Vas to aspon nejak nasmeruje,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
Subject: Indikace lokalniho menu (POPUPMENU)> Ahoj,
>
> prosim o radu. Potrebuji dat najevo, ze dany prvek (obvykle je to nejaky
> listbox) ma pripojene popup menu. Vetsina beznych uzivatelu obvykle nikdy
> neprijde na to, ze neco podobneho existuje a nevyuzivaji toho. Videl jsem
> reseni jako komponent, ktery se placnul na formular a do seznamu se uvedly
> komponenty (listboxy), kde je popup menu a jeho hlavni funkci bylo pri
> najeti kurzorem mysi na napr. listbox, zmenit na chvili kurzor na jiny,
> preddefinovany, ktery nazorne ukazoval co se ma smacknout. Bohuzel, pouzival
> ttimer a nefungoval uplne korektne.
>
> Diky za pripadny namet nebo radu
>
> Jaro B.
>
>nastavovani filemode
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.9.2000 18:50:11
>
> nevite, prosim, nekdo jak spravne nastavovat filemoce pri sdileni? Jedna
se
> o maly typovy soubor na pocitaci 3 na ktery pristupuji z pocitace 1 a 2.
> Potrebuji ho sdilet pro cteni i pro zapis. Ale me to nefunguje, porad mi
to
> hlasi prisup odepren pri soucasnem pristupu cteni-cteni, cteni-zapis,
> zapis-zapis (zapisuje se do ruznych oblasti souboru, ne do stejne). Co s
> tim? Jak mam nastavit spravne filemode a kdy je vratit nazpet (viz
FileMode
> := OF_SHARE_DENY_WRITE/READ;)? Tentyz problem mam ale i na jednom pocitaci
a
> nevim proc. Blbost co?
pouzij CreateFile - ten ma jako parametr rezim sdileni souboru)
D. Toman
nastavovani filemode
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 15.9.2000 21:27:05
Ahoj,
inspirace u tfilestream.create
filemode := fmOpenReadWrite or fmShareDenyNone
Co se tyce vraceni hodnoty, tak to je na tobe, myslim ze plati
posledni nastaveni pro vsechny dalsi resety. Ja bych si misto
klasickeho pristupu
udelal potomka TFileStreamu a mel bych pokoj.
Vaclav Sazima
Dalibor Toman wrote:
>
> >
> > nevite, prosim, nekdo jak spravne nastavovat filemoce pri sdileni? Jedna
> se
> > o maly typovy soubor na pocitaci 3 na ktery pristupuji z pocitace 1 a 2.
> > Potrebuji ho sdilet pro cteni i pro zapis. Ale me to nefunguje, porad mi
> to
> > hlasi prisup odepren pri soucasnem pristupu cteni-cteni, cteni-zapis,
> > zapis-zapis (zapisuje se do ruznych oblasti souboru, ne do stejne). Co s
> > tim? Jak mam nastavit spravne filemode a kdy je vratit nazpet (viz
> FileMode
> > := OF_SHARE_DENY_WRITE/READ;)? Tentyz problem mam ale i na jednom pocitaci
> a
> > nevim proc. Blbost co?
>
> pouzij CreateFile - ten ma jako parametr rezim sdileni souboru)
> D. Toman
Vybarveni radku - DBGrid
[*] E&J soft <uli(zv)internet.sk> - 16.9.2000 04:28:08
Pekny den preji,
prosim o radu, jak v DBGridu vybarvit radek zvolenou barvou ?
Za rady predem diky.
Jaro
Delete pres cache
[*] E&J soft <uli(zv)internet.sk> - 16.9.2000 04:50:10
Pekny den preji,
potreboval bych pouzit v aplikaci mazani pres UpdateSQL.
Zkousel jsem si jeji pouziti na lokalnich paradox tabulkach
a chodi mi pouze insert a update, delete se nechce provest.
Mam obslozenou metodu AfterPost, aby se tam provadelo
ApplyUpdates;
CommitUpdates;
Postupoval jsem podlehelpu pro tuto komponentu.
Prosim poradte.
Dekuji
Jaro
Vybarveni radku - DBGrid
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 16.9.2000 08:44:04
Ahoj,
wiz http://swnet(tec)cz/article.php?id=3937
Slavek
> prosim o radu, jak v DBGridu vybarvit radek zvolenou barvou ?
> Jaro
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Komponenty a jejich events s parametry
[*] Lauko �tefan <lauko(zv)salamon.sk> - 16.9.2000 09:22:42
Ahoj,
naj jednoduchsia konstrukcia je asi takato:
Type
TMojRecord = record
....
end;
TMojEvent = Procedure (Sender:TObject; MojRecord:TMojRecord) of Object;
alebo
TMojEvent = Function (Sender:TObject; MojRecord:TMojRecord):Boolean of
Object; TMojaComp = Class(TNieco)
Private
...
FMojEvent :TMojEvent;
...
Procedure TuSaVolaOnMojEvent;
Published
...
Property OnMojEvent:TMojEvent Read FMojEvent Write FMojEvent;
...
End;
Implementation
Procedure TMojaComp.TuSaVolaOnMojEvent;
Var
MojRecord:TMojRecord;
begin
If Assigned(FMojEvent) then FMojEvent(self, MojRecord);
end;
Staci...?
Lauko
----- Original Message -----
From: Tom� Janta� <tomasnusle(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 10:11 AM
Subject: Komponenty a jejich events s parametry
>
> Ahoj,
>
> Pracuji na komunikacni komponente, ktera ma komunikovat se zarizenim na
> seriovem portu a mela by predatat ziskana a zpracovana data v nasledujici
> forme. Komponenta ze ktere vychazim ma nejaky event, ktery se vyvola pri
> datech na portu, ja se povesim na ten event, zpracuju data a pak potrebuju
> vyvolat novy vlastni event, ktery by mel mit parametru typu record. Neco
> jako je treba OnMouseMove, kde event ma parametr ve kterem predava
> souradnice mysi atd.. Povesit se na event predka uz umim, jediny problem
je
> vytvorit ten event s jinymi parametry nez jen (Sender:Tobject).
> Zkousel jsem to vykoukat z jinych komponent, ale je v tom nejak zmatek.
> Muzete mi nekdo poradit? Nejlepe poslat priklad. Dozadu se dekovat nema,
> takze predem diky.
>
> Tomas jantac
>
> PaPouch elektrinika
> www.pap-el(tec)cz
>
>
>Delete pres cache
[*] Jan Naiser <tua(zv)wo(tec)cz> - 16.9.2000 11:06:22
Ahoj,
stejne musis obslouzit i udalost AfterDelete.
Honza.
----- Original Message -----
From: E&J soft <uli(zv)internet.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 16, 2000 4:50 AM
Subject: Delete pres cache
> Pekny den preji,
>
> potreboval bych pouzit v aplikaci mazani pres UpdateSQL.
> Zkousel jsem si jeji pouziti na lokalnich paradox tabulkach
> a chodi mi pouze insert a update, delete se nechce provest.
> Mam obslozenou metodu AfterPost, aby se tam provadelo
> ApplyUpdates;
> CommitUpdates;
> Postupoval jsem podlehelpu pro tuto komponentu.
> Prosim poradte.
>
> Dekuji
>
> Jaro
>
>
> OT: Kde ma OE 5.0 ulozene hesla a nastavenia pre u
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 16.9.2000 11:17:59
Lebo mi zrazu zabudol heslo na jednom ucte a ked ho aj zadam a oznacim ze
"remember" on sa mi na to kasle.
Sranda je ze na dalsich dvoch uctoch sa to nestalo.
Skusal som aj ucet odobrat a pridat ho na novo ale on to ma asi napojene na
mailovu adresu.
Stale odo mna pyta pri pripojeni na account.
Dakujem.
Roland.
Ako zoradit ?
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 16.9.2000 11:20:22
Ale ide mi o IB6.
Roland.
----- Original Message -----
From: "Als" <Als.FofrsIT(zv)worldonline(tec)cz>
To: "Roland Tur�an (RoTurSoft)" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 12:01 PM
Subject: Re: Ako zoradit ?> Ahoj,
>
> Wednesday, September 13, 2000, 11:26:26 PM, you wrote:
>
> To skutecne funguje bez problemu. Pouzivam to casto i ve slozitejsich
> kombinacich.
>
> > ahoj,
> > imho by melo fungovat:
> > "Select Prijem, Vydaj from Tabulka order by (Prijem+Vydaj)"
> >
> > ! neodzkouseno...
> >
> >
>
> >> > Zdravim
> >> > Mam "Select Prijem+Vydaj,Prijem,Vydaj from Tabulka order by 1"
> >> > ale ja nepotrebujem vidiet ten stlpec Prijem+Vydaj, ja to
> >> > potrebujem len tak
> >> > zoradit.
> >> > Dakujem. Roland
>
> --
> S pozdravem
>
> Ji�� Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���
>
>Sifrovanie textu
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 16.9.2000 15:43:57
Proteboval by som jednoducjy siftrovac na String, ale kde ho zohnat ?
Roland.Sifrovanie textu
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 16.9.2000 17:22:03
On 16 Sep 2000, at 15:43, Roland Tur�an (RoTurSoft) wrote:
> Proteboval by som jednoducjy siftrovac na String, ale kde ho zohnat ?
>
Treba jednoduse takhle:
const
DefaultKey = 'ashvhjavj';
// c - True -> ENCRYPT, False -> DECRYPT
function Crypt(t, h: string; c: boolean):string;
implementation
function Crypt(t, h: string; c: boolean):string;
var
i,j: integer;
begin
for i := 1 to length(h) do
for j := 1 to length(t) do
if c then
t[j] := Chr(Ord(t[j]) + Ord(h[i])) else
t[j] := Chr(Ord(t[j]) - Ord(h[i]));
result := t;
end;
pouziti:
zasifrovani
<zasifrovany_retezec> := Crypt(<nejaky_retezec>, DefaultKey, True);
rozsifrovani
<rozsifrovany_retezec> := Crypt(<zasifrovany_retezec>, DefaultKey,
False);
Misto "DefaultKey" muzes pouzit cokoliv jineho...
Petr Fischer
Autorun
[*] <bejcek(zv)centrum(tec)cz> - 17.9.2000 15:37:59
Nazdar, neco bych od Vas potreboval. Potreboval bych spoustet
aplikaci hned pri startu. Ale mam 3 podminky. To je1)Nesmi se
aplikace zobrazit v kolonce po spusteni, za 2)Chci mit kontrolu u
jakeho uzivatele se spusti(takze pro kazdej profil zvlast).3)Mohu
si volit spustit jednou ci vzdy a kombinovat to s predchozi fci
tj. spustit jednou pro vsechny. Spustit vzdy pro vsechny. Spustit
vzdy pro urcitou skupinu.
A ted zdalo se to jednoduche, ale ja nasel jen v registrech run,
runonce pro cele PC a ne pro jednotlive profily, otazka zni
jestli se nejak nedaj registry upravit aby to slo. Jednoduchou
veci by bylo rozhodit *.lnk do profilu, ale to nechci, neporadite
mi?
Aldik amater vsech amateru.
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
RESTART
[*] <bejcek(zv)centrum(tec)cz> - 17.9.2000 15:37:05
Jo vadi, pokud se nejaky program minimalizuje do ikony vpravo,
stava se mi
to take, nevim cim to je, jsem amater vsech amateru, tak ti
neporadim, je
zajimave, ze to blbne jen u nekterych aplikaci.... taky by me to
zajimalo
proc to tak je.... doufam ze nam nekdo poradi......
Aldik Amater vsech amateru
----- Original Message -----
From: Petr Fischer <fifa(zv)praguesoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 12, 2000 1:04 PM
Subject: Re: RESTART
> On 11 Sep 2000, at 19:02, -=Ivomir=- wrote:
>
> > Skusim to jeste jednou. Nevite proc mi moje app. nedovoluje
> > restartovat windozy (95,98) a vzdy pri snaze o restartovani
mi skoci
> > zpet do windows. Jakmile app. ukoncim killnutim pak uz je vse
ok.
> > (Nevadi tomu, ze mam app. SW_HIDE a jeste zneviditelnou v
> > taskmanageru?)
> >
>
> Pokud hlavni formular aplikace nereaguje na zavreni, chova se to
> presne jak pises. Ma ta tvoje vec vubec hlavni form? Jestli jo,
neni
> neco v OnCloseQuery?
>
> Petr Fischer
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Kulate tlacitko
[*] <bejcek(zv)centrum(tec)cz> - 17.9.2000 15:39:11
Nedavno jsem se dozvedel jak vytvorit kulaty formular, chtel jsem
se zeptat jestli existuje neco podobne co by vytvorilo kulate
tlacitko? Nev�te? Umim jen vytvorit ctverec!
viz form:
file://1) Jak vytvo�it kulat� form
var
R : HRgn;
begin
form1.width := 200; // nastav� ���ku formu na 200
form1.height := form1.width; // nastaven� �tvercov�ho formu
R := CreateEllipticRgn(0,0,width,height); // nastav� velikost
elipsy
SetWindowRgn(Handle,R,True); // aplikuje elipsu na form
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Indikace lokalniho menu (POPUPMENU)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 16:16:14
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> vazne dobry napad. Zarazi mne, ze se tim zatim nikdo nezabyval
Ahoj,
napad to neni spatny, nemelo by byt slozite to udelat globalne pro celou
aplikaci. Je zde ale problem v pripade, kdy bude popup menu spolecne pro
vice komponent. Napriklad budes mit formular, na nem dva panely, na kazdem
nekolik komponent. Kazdemu panelu bude prirazeno popupmenu. Jakym zpusobem
to pak budes zobrazovat ? Pri prejeti mezi panely ? Nebo pri prejeti nad
komponentou, ktera ma u nektereho z parentu popupmenu ?
Petr Vones, amatersky programator
Uvolnenie instancie DCOM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 17.9.2000 18:35:42
----- Original Message -----
From: J�n Grman <janog(zv)pluto.elf.stuba.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 13, 2000 12:44 PM
Subject: Re: Uvolnenie instancie DCOM objektu
> Tvoja odpoved vsak u mna vyvolava viac otazok ako odpovedi.
> Teda
> Podla toho co sa zobrazuje v TaskManagere tomu vobec nerozumiem,
> presnejsie povedane je jasne ze cislo Threads nehovori o pocte COM
objektov
> ktore su pripojene. Ak spustim aplikaciu SERVER.EXE objavi sa pri nej
cislo
> 4 (preco 4 neviem !!! = slucka sprav + obsluha COM objekti ?). Ak spustim
> klienta KLIENT.EXE, cislo sa zvysi na 6, potom klesne na 5 a ked dlhsie
nic
> nerobim v programe klesne az na 4.
Nevim, proc 4 vlakna na aplikaci, je mozne, ze delphi pri startu aplikace
opravdu generuje vice vlaken, ktere napr. pomahaji VCL aby aplikace
"nedrhla". Ovsem, ze po delsi necinnosti, klesne ze 6 na 4 to je mi divne -
myslim ale, ze to je spis vlastnost DCOMu nez Delphi. Zkus se podivat na
http://msdn.microsoft.com jestli tam neco nepisou o obsluze preruseneho
napojeni.> Vysvetlenie je jednoduche, kazde volanie metody COM objektu sa realizuje
> vzdy v inom novom vlakne (svedci o tom aj hodnota GetCurrentThreadID ktora
> sa meni). To ze to cislo vzrastie o 2 si vysvetlujem tym ze okrem volanie
> metody COM objektu som spustil dialog ktory pouziva TClientDataSet na
> pristup k datam jednej tabulky a zobrazuje ich do GRIDU a predpokladam ze
> opat v samostatnom vlakne !
>
> Teda zda sa ze s uvolnovanim Threadov problem nie je !
> Problem je s korekntym uvolnenim DATOVYCH STRUKTUR ktore pri tomto spojeni
> vznikaju.
> Pri korektnom uzavreti klientskeho programu je vsetko v poriadku, v
opacnom
> pripade sa problem prejavi az pri ukoncovani aplikacie SERVERA.
>
To se stane, kdyz pocet napojeni=0, coz muze byt i pomerne casto - jenou
nebo nekolikrat denne.
> Zda sa, ze uvolnenie struktury typu TXXX_DataServer =
> class(TRemoteDataModule, IXXX_DataServer) v ktorej su vsetky
> TDataSetProvider objekty a v ktorej su definovane a implementovane vsetky
> zverejnene vlastnosti a metody COM objektu nestaci !
>
> Co teda este treba urobit ?
> Nikto nerobi s tymto typom COM objektov ? A ak ANO, ako to riesite ?
>
> Vdaka.
> JaNo.
>
Tomas
t.bradle(zv)pvtnet(tec)cz
nastavovani filemode
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:02:40
From: "Vaclav Sazima" <sazima(zv)comp(tec)cz>
> Co se tyce vraceni hodnoty, tak to je na tobe, myslim ze plati
> posledni nastaveni pro vsechny dalsi resety. Ja bych si misto
> klasickeho pristupu udelal potomka TFileStreamu a mel bych pokoj.
Ahoj,
proc potomka, TFileStream ma jako druhy parameter rezim sdileni.
Petr Vones, amatersky programator
Autorun
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:07:19
From: <bejcek(zv)centrum(tec)cz>
> A ted zdalo se to jednoduche, ale ja nasel jen v registrech run,
> runonce pro cele PC a ne pro jednotlive profily, otazka zni
> jestli se nejak nedaj registry upravit aby to slo. Jednoduchou
Ahoj,
v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) mas v unitu JclRegistry funkci:
function RegisterAutoExec(ExecKind: TExecKind; const Path: string): Boolean;
kde TExecKind ma mimo jine hodnoty ekUserRun a ekUserRunOnce.
Petr Vones, amatersky programator
Font v menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:09:45
From: "garalda" <garalda(zv)mail(tec)cz>
> Pracuji pod nemeckymi NT a rad bych napsal program, ktery by korektne
> zobrazoval ceske znaky. Vetsina komponent, ktere pouzivam maji property
> Font, jen hlavni menu bohuzel nic takoveho neobsahuje. Nastaveni celeho
> systemu zmenit nemohu. Existuje nejake jine reseni. Dival jsem se do archivu
Ahoj,
v jake verzi Delphi ? Od Delphi 5 mas vlastnost TScreen.MenuFont kde to lze
nastavit.
Petr Vones, amatersky programator
dsgnintf
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:12:47
From: "Lauko �tefan" <lauko(zv)salamon.sk>
> stiahol som komponenty z torry a neviem si rady s prekladom jednej unity. V
> uses je aj dsgnintf - compilatoru chyba subor dsgnintf.pas. Raz sa to tu
> preberalo ale neviem to najst.
Ahoj,
toto je chyba v kodu te komponenty. Veskere odkazy na design-time unity v
runtime unitech jsou chybne. Kod registrace komponenty je treba umistit do
samostatneho unitu.
Petr Vones, amatersky programator
ICQ
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:17:36
From: "Martin Pe�ava" <jimx(zv)volny(tec)cz>
> prijimat zpravy, atd... Zkousel sem neco hledat a nasel sem jenom
> prepsany .H fajly do unity k ICQ DLLkum, ale bez veskery dokumentace,
Ahoj,
primo u vyrobce: http://www.icq.com/api/
Petr Vones, amatersky programator
Jak hledat v souboru se seznamem souboru z vice di
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2000 19:23:15
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> Ted delam vyhledavani a uz se s tim nemuzu domluvit, je to porad pomale
> (zhruba 6000 souboru za pul minuty :(( ).
> Vzdycky nactu do pameti jeden strom adresaru (jeden disk) a pak postupne
> projizdim seznam souboru, pritom jeste "odskakuju" na popisky (pokud
> existuje), ktere taky prohledavam a ze kterych se pak vracim. Je to hodne
Ahoj,
a jakym zpusobem je nacitas ? Nejaka vlastni binarni struktura v TListu nebo
tak nejak. Pokud chces mit hledani rychle tak je treba seznam setridit, jako
to ma napriklad TStringList.
Petr Vones, amatersky programator
Pleas cyklus
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 17.9.2000 19:50:39
jak ud�lat aby muj program testoval je li na ftp nejaky novy soubor a pak ho stahl.
program musi je po��d ale nemus� b�t p�ipojen
Nastaveni papiru na tiskarne
[*] Jirka Virt <virt(zv)volny(tec)cz> - 17.9.2000 20:25:35
Ahoj,
diky zkusim , ale je pravda , ze neco podobneho jsem si stahnul z archivu
a nefungovalo to dobre.Presto - diky.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Jan Krizek <krizek(zv)krizkules(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 2:27 PM
Subject: RE: Nastaveni papiru na tiskarne
> Ahoj
>
> (******************)
> var ADevice, ADriver, APort : array[0..255] of char;
> DeviceHandle : THandle;
> DevMode : PDeviceMode;
>
> begin
> Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
>
> DevMode := GlobalLock(DeviceHandle);
> with DevMode^ do
> begin
> dmFields := dmFields or DM_PAPERLENGTH or DM_PAPERWIDTH;
> dmPaperWidth := // Sirka papiru;
> dmPaperLength := // Vyska papiru;
> end;
>
> GlobalUnlock(DeviceHandle);
> end;
> (************************)
>
> nefunguje na vsech tiskarnach (ovladacich), nektere se uspesne brani. Ale
s MS ovladace je vse v poradku.
>
> Jedna se nastaveni pro aktualni tiskarnu a je nejlepsi to udelat tesne
pred tiskem.
>
> Honza +
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jirka Virt
> Sent: Friday, September 15, 2000 1:06 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Nastaveni papiru na tiskarne
>
>
> Ahoj vsem,
> potykam se s problemem nastaveni velikosti papiru na tiskarne.
> Nevite jak nastavitve Win9x pres Delphi na tiskarne papir ,tak jako pres
klasicke dialogove okno.tj
> vybrat papir a pri vyberu Vlastni(Custom) nastavit i jeho rozmery.Sice
jsem si neco stahnul
> z www.borland.com ,ale to pri prohlizeni nastaveni tiskarny se nic
nezmeni!!????
>
> Taky jsem zkouse API AddForm a po rade neuspesnych pokusu jsem si precetl
toto Pouze pro WinNT.Ach jo.
>
Diky za napady
>
Jirka Virt
>
email: virt(zv)volny(tec)cz
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.177 / Virov� b�ze: 86 - datum vyd�n�: 7.8.2000
>
>
>
ICQ
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 17.9.2000 22:44:16
Dik za tip. Neco sem tam stahnul (sice jenom pro Cecko, ale byl tam i
DOC s popisem tech funkci a pak sem dokonce jeste nekde nasel ty H fajly
predelany do PASu). Ale mam drobnej problemek. Po spusteni ten muj
program jeste vyzaduje ICQMSGAPI.DLL, kterej nikde na disku nemam... Kde
by se dal najit??? Predem jeste jednou dik...
Petr Vones wrote:
>
> From: "Martin Pe�ava" <jimx(zv)volny(tec)cz>
> > prijimat zpravy, atd... Zkousel sem neco hledat a nasel sem jenom
> > prepsany .H fajly do unity k ICQ DLLkum, ale bez veskery dokumentace,
>
> Ahoj,
>
> primo u vyrobce: http://www.icq.com/api/
>
> Petr Vones, amatersky programator
--
Martin Pe�ava
/--------------------------------------------------------------\
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
| |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Autorun
[*] L. ZITA <konference(zv)sales(tec)cz> - 17.9.2000 23:13:38
Behalf Of bejcek(zv)centrum(tec)cz
> Nazdar, neco bych od Vas potreboval. Potreboval bych spoustet
> aplikaci hned pri startu. Ale mam 3 podminky. To je1)Nesmi se
> aplikace zobrazit v kolonce po spusteni, za 2)Chci mit kontrolu u
> jakeho uzivatele se spusti(takze pro kazdej profil zvlast).3)Mohu
> si volit spustit jednou ci vzdy a kombinovat to s predchozi fci
> tj. spustit jednou pro vsechny. Spustit vzdy pro vsechny. Spustit
> vzdy pro urcitou skupinu.
>
> A ted zdalo se to jednoduche, ale ja nasel jen v registrech run,
> runonce pro cele PC a ne pro jednotlive profily, otazka zni
> jestli se nejak nedaj registry upravit aby to slo. Jednoduchou
> veci by bylo rozhodit *.lnk do profilu, ale to nechci, neporadite
> mi?
> Aldik amater vsech amateru.
>
Uzivatel : HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Vsichni : HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Jestli tam klic neni tak ho vytvor.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
dsgnintf
[*] L. ZITA <konference(zv)sales(tec)cz> - 17.9.2000 23:18:27
Behalf Of Petr Vones
> Sent: Sunday, September 17, 2000 7:13 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: dsgnintf
>
>
> From: "Lauko �tefan" <lauko(zv)salamon.sk>
> > stiahol som komponenty z torry a neviem si rady s prekladom
> jednej unity. V
> > uses je aj dsgnintf - compilatoru chyba subor dsgnintf.pas. Raz sa to tu
> > preberalo ale neviem to najst.
>
> Ahoj,
>
> toto je chyba v kodu te komponenty. Veskere odkazy na design-time unity v
> runtime unitech jsou chybne. Kod registrace komponenty je treba umistit do
> samostatneho unitu.
>
> Petr Vones, amatersky programator
Ahoj.
Mne pomohlo pridat do library path cestu $(DELPHI)\Source\toolsapi
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
dsgnintf
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2000 00:01:03
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Mne pomohlo pridat do library path cestu $(DELPHI)\Source\toolsapi
Ahoj,
Coz je jen odkladani problemu misto jeho reseni. Toto ti funguje jen diky
tomu, ze design time unity jsou (z historickych duvodu) stale linkovany
v runtime VCL baliccich. Kdyz se objevilo Delphi 5 (a diky mnoha chybnym
komponentam se objevil i tento problem) tak Borland doporucoval vsechny
tyto chyby opravit, protoze v dalsich verzich Delphi jiz pravdepodobne
nebude tento kod v rutime baliccich a tutiz tato 'oprava' nebude mozna.
Staci tedy rozdelit design time a runtime kod do samostatnenych unitu,
tak jak to bylo doporucovano (ale ne vyzadovano) od Delphi 3.
Petr Vones, amatersky programator
Indikace lokalniho menu (POPUPMENU)
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 18.9.2000 04:52:41
Zdrav�m,
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Subject: Re: Indikace lokalniho menu (POPUPMENU)> From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> > vazne dobry napad. Zarazi mne, ze se tim zatim nikdo nezabyval
>
M�l jsem na mysli hlavn� mistry z Microsoftu - ve winech je ukazatl� kupa,
z nich� n�kolik jsem nikdy v programu nevid�l (nap�. pero nebo alternativn� v�b�r
- ona UpArrow). Pro� se tedy ji� d�vno (p�i vzniku kontextov�ho menu) nep�idal
kurzor upozor�uj�c� na to, �e tam n�co takov�ho v�bec je.
Dal�� d�l na tom m�me i my program�to�i, kte�� sice nad�l�me hromadu popup menu,
ale u�ivateli o tom ned�me v�bec zn�t. Toto je prvn� zm�nka o tomto probl�mu, kterou
jsem zat�m kdy sly�el (a odky �e tu to popup menu vlastn� m�me?)...
> napad to neni spatny, nemelo by byt slozite to udelat globalne pro celou
> aplikaci. Je zde ale problem v pripade, kdy bude popup menu spolecne pro
> vice komponent. Napriklad budes mit formular, na nem dva panely, na kazdem
> nekolik komponent. Kazdemu panelu bude prirazeno popupmenu. Jakym zpusobem
> to pak budes zobrazovat ? Pri prejeti mezi panely ? Nebo pri prejeti nad
> komponentou, ktera ma u nektereho z parentu popupmenu ?
Jednozna�n� u ka�d� komponenty zvlṻ. Ostatn� pro u�ivatele je panel jen estetick�
prvek a jestli zjist�, �e maj� v�echny komponenty stejn� popup menu, jen se zaraduje nad
zji�t�n�m, �e je nakonec v�n� v��mav� :-)
Pro m� ale z�st�v� probl�mem sp�e schopnost "vypreparovat" z objektu vlastnost cursor. S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Jak hledat v souboru ... - popis struktury a hleda
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.9.2000 06:47:29
> Ahoj,
>
> a jakym zpusobem je nacitas ? Nejaka vlastni binarni
> struktura v TListu nebo
> tak nejak. Pokud chces mit hledani rychle tak je treba seznam
> setridit, jako
> to ma napriklad TStringList.
>
> Petr Vones, amatersky programator
>
Ahoj,
no, jak uz jsem psal, tak v souboru to mam ulozene takto:
- na zacatku je offset na konec souboru, kde je seznam disku
- pak nasleduje seznam souboru z jednoho adresare a sice takto: nejprve je
ulozena delka tohoto celeho bloku, pak jsou postupne soubory - offset do
souboru na popisku, jmeno souboru ve tvaru PChar (ukoncene nulou), pak dalsi
soubor atd.
- pak se pokracuji dalsi adresare a popisky celeho nacteneho stromu
- po souborech ukladam strom adresaru, a to takto: velikost bloku, pak level
vnoreni adresare, offset na seznam souboru daneho adresare a nazev adresare
(PChar), pak dalsi level, offset a jmeno adresare atd.
- pak eventuelne nasleduje seznam popisek k souborum nalezeci predchozim
adresarum
- pak se opakuje predchozi (soubory, strom, popisky)
- nakonec je ulozen seznam disku
Ted jak to (zatim) prohledavam:
- nactu seznam disku
- nactu do stromu seznam adresaru
- projizdim jednotlive adresare a nacitam stejnym zpusobem seznam souboru -
v pameti je vzdy jeden strom a jeden seznam souboru jednoho adresare
- seznam souboru projizdim a sice takto: pomoci Move presunu do promenne
pripadny offset na popisku, pak pomoci StrPas nactu nazev souboru
- pak nactu a prohledavam pripadnou popisku pomoci StrPos, stejne tak
prohledavam jmeno souboru
Ted delam jeste tyto upravy:
- nacitani stromu naraz, podle zaznamenane delky bloku, do bufferu typu
PChar
- jmeno souboru nenacitat do promenne, ale primo ukazatel predat funkci
StrPos
Snad jsem to napsal vsechno, pravda, je to dost krkolomne, ale ja nemam
vysoukou skolu, abych znal ty ruzne algoritmy na vyhledavani a ukladani dat
tohoto typu.
Je fakt ze to je dost pomale, zatim se mi podarilo dojit na rychlost zhruba
1200 prohledanych souboru za vterinu (PII 300MHz) pri zhruba 8000 souborech.
Co to bude delat pri vetsim mnozstvi souboru, pri vetsim mnozstvi popisek a
na pomalejsim stroji, to nevim :(
Ted me napadlo, nevite nekdo o nejake funkci ala StrPos, ktera by pro ty
kratke retezce (jmena souboru, adresaru a popisky) byla rychlejsi ?
Jestli mate nekdo nejakej napad, jak lepe ukladat, nacitat a prohledavat
data tohoto typu, budu rad za kazdou radu.
Diky za mejl Martinu Pokornemu, ale jak uz jsem rekl, tyto algoritmy
neovladam a ani nevim, jak bych je aplikoval na tuto datovou strukturu.
Petr Dana
toolhelp.dcu
[*] Radek Patek <r.patek(zv)sh.cvut(tec)cz> - 18.9.2000 07:53:01
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zdarek
Schanim tenhle souborek "toolhelp.dcu". Jestli ho nekdo mate, dejte mi prosim vedet.
dik
Radek
Indikace lokalniho menu (POPUPMENU)
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 18.9.2000 08:02:11
> > napad to neni spatny, nemelo by byt slozite to udelat globalne pro
> > celou aplikaci. Je zde ale problem v pripade, kdy bude popup menu
> > spolecne pro vice komponent. Napriklad budes mit formular, na nem
> > dva panely, na kazdem nekolik komponent. Kazdemu panelu bude
> > prirazeno popupmenu. Jakym zpusobem to pak budes zobrazovat ? Pri
> > prejeti mezi panely ? Nebo pri prejeti nad komponentou, ktera ma u
> > nektereho z parentu popupmenu ?
>
> Jednozna�n� u ka�d� komponenty zvlṻ. Ostatn� pro u�ivatele je panel
> jen estetick� prvek a jestli zjist�, �e maj� v�echny komponenty stejn�
> popup menu, jen se zaraduje nad zji�t�n�m, �e je nakonec v�n� v��mav�
> :-)
>
> Pro m� ale z�st�v� probl�mem sp�e schopnost "vypreparovat" z objektu
> vlastnost cursor.
Ahoj,
pokud tomu dobre rozumim, mel Petr na mysli jiny problem. Na
formu budes mit panel, na nem jiny panel, na nem jeste jiny panel,
resp. ve vsech pripadech nekolik panelu a na tom vrchnim panelu
bude listbox. No a popup menu bude mit prirazene pouze ten
spodni panel. Melo by to zajistit, aby to popup menu bylo spolecne
pro vsechny prvky umistene na tom panelu. Jak poznat na tom
listboxu, ze existuje nejaky praprarodic, ktery ma popup menu a
ze by ho tedy mel zobrazit i ten listbox?
David
Instalace programu ve Win2000
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 08:29:49
Ahoj,
zaregistroval nekdo taky strasne dlouhou instalaci programu.
Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
Nevite co to ma znamenat?
Mam anglicke W2000 + SP1, Celeron 500, 128 MB RAM
Michal Kus
Instalace programu ve Win2000
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 08:37:28
Dobry den,
mam problem s usporadanim aplikace a DLL vzhedem k zobrazovani (resp.
nezobrazeni) ramu:
V EXE je hlavni formular a v nem je panel. Dale je tam metoda formulare,
ktera ma parametr typu TFrame
a ma za ukol vyhodit ten stavajici a zobrazit novy v panelu. Dela to tak, ze
puvodnimu (pokud je) nastavi
Parent na nil a zavola na nej Free, novemu pak nastavi Parent na panel,
Align na alClient a Visible na True.
Vyse uvedeny postup dobre funguje, kdyz jsou ramy vytvoreny v ramci EXE.
Vytvorim-li je v DLL, ram se
nezobrazi, ale Parent a Visible jsou nastaveny dobre.
Michal Kus
Zobrazovani Frame z DLL
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 08:44:21
Dobry den,
mam problem s usporadanim aplikace a DLL vzhedem k zobrazovani (resp.
nezobrazeni) ramu:
V EXE je hlavni formular a v nem je panel. Dale je tam metoda formulare,
ktera ma parametr typu TFrame
a ma za ukol vyhodit ten stavajici a zobrazit novy v panelu. Dela to tak, ze
puvodnimu (pokud je) nastavi
Parent na nil a zavola na nej Free, novemu pak nastavi Parent na panel,
Align na alClient a Visible na True.
Vyse uvedeny postup dobre funguje, kdyz jsou ramy vytvoreny v ramci EXE.
Vytvorim-li je v DLL, ram se
nezobrazi, ale Parent a Visible jsou nastaveny dobre.
Michal Kus
PS. Omlouvam se, za to ze mi dotaz uletel :-) bez hlavicky
Rychlost komponent IBX
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 08:50:05
Zjistoval jsem, jak se chovaji IBX komponenty a zatim jsem prisel na toto:
IBTable: dela 2 systemove dotazy, vlastni dotaz na tabulku posila
s filtrem jako WHERE podminkou a IndexFieldNames
prelozi
jako ORDER BY.
IBQuery,
IBDataset: jsou na tom stejne, udelaji jeden systemovy dotaz a potom
zadany.
IBSQL: nelze jej pouzivat s DB... komponentami, je pouze
unidirectional,
zato je velice rychly. Pouziti je predevsim na ne SELECT
dotazy.
Prvni tri komponenty se chovaji docela inteligentne, tzn. nejvice prace dela
server,
fetchuji jen to co potrebuji a co nacetly si pamatuji. Zrejme Last a
RecordCount
musi nacist celou odpoved. IBTable je o malinko pomalejsi, zda se, ze jen
o ten
jeden dotaz navic na zacatku a ma o malinko vetsi spotrebu pameti.
Vyse uvedene jsem zjistil a overil zatim jen ve dvou konfiguracich, a to:
1. Klient i server bezel na jednom pocitaci Win98 PII 350MHz se 128MB
pameti.
2. Klient - Win98 PII 350MHz, 128MB, server Win2K Athlon 600MHz, 256MB,
100Mb ethernet.
Jeste vyzkousim pomalejsi sitove spojeni, ale vysledky jsou o dost jine, nez
jsem vzhledem
k povesti IBTable v konferenci ocekaval. Nebo jsem se nekde seknul?
Michal Kus
Skusenosti s CPORT (Was:Seriovy port)
[*] Tom� Kru��k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 18.9.2000 09:00:35
Z touto komponentou nemam ani ja ani moji kolegove moc dobre zkusenosti. Pri
prenosech doch�zi k chybam, nebo vubec nedojde k prenosu (zvlaste pokud jede
o komunikaci z nejakym hardwarem). Domnivame se ze to je zapricinene WinAPI.
Tyto komunikace je dle meho mineni lepsi delat v D1.
Tom� Kru��k
t.kruzik(zv)msp.mesit(tec)cz
tel.:0632-522632
mobil: 0603-947060
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ondrej Jaura
> Sent: Friday, September 15, 2000 3:49 PM
> To: parizsky(zv)access-it(tec)cz
> Cc: Delphi
> Subject: Skusenosti s CPORT (Was:Seriovy port)
>
> Prajem prijemny den :)
>
> Ake mate skusenosti s komponentou CPORT (2.6) pod roznymi typmi
> operacnych systemov Win95, Win98, WinME, WinNT, Win2000? (Mam D5 Prof)
>
> Vopred dakujem za odpoved
>
>
> Ondrej Jaura
>
> [ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
> [ Datalock a.s. http://www.datalock.sk ]
> [ :) ]
>
> ----- Original Message -----
> From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, September 14, 2000 5:16 PM
> Subject: Re: Seriovy port
>
>
> > Dobra komponenta na komunikaci po seriovem rozhrani je
> CPORT250 je na
> torrym nebo delphisuperpage. Jestli chces tak ti ji muzu poslat.
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.185 / Virov� b�ze: 88 - datum vyd�n�: 18.8.2000
>
Indikace lokalniho menu (POPUPMENU)
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 18.9.2000 09:04:37
Ahoj,
pokud by to nekoho zajimalo, mam maly exe (napsany v D1) ktery najakym
zpusobem indikuje popup. Neni to uplne OK ale je to jistym zpusobem funkcni.
Problem by asi nastal s rutinnim vyuzitim (pro jeden control, jeden
component - chce to prepsat). Pokud se na to chcete nekdo podivat, mohu
poslat zdrojak i demo.
S nastavovanim kurzoru mam problemy napr. u listboxu, ktery se chova jako
agregovany komponent, jakoby se skladal az ze tri komponent, vzhledem ke
kurzoru (obrys-panel-listbox, ale panel nejde nastavit, kurzor mi porad
problikaval).
Jaro B.
ladeni ulozenych procedur
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.9.2000 09:06:09
ahoj,
1/
chci se zeptat zdal-li existuje nejaky nastroj na ladeni ulozenych
procedur
muze byt obecny, ale konkretne mi jde o IB6.
nejlepe s moznosti krokovani a sledovani/modifikaci hodnot promnennych
(neco jako debugger delphi aplikovatelny na stored proc :) ).
udajne ma neco takoveho Micro$oft, nevite o tom neco (nebo necem
podobnem)?
2/
obecne, jak a v cem pisete/ladite ulozene procedury?
ja to delam v ib konzoli...
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
Rychlejsi StrPos a StrLower (StrUpper) ?
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.9.2000 09:09:16
Zdravim,
nevite nekdo o rychlejsich funkcich StrPos a StrLower (StrUpper), pripadne
kombinace obou, nez jsou standardne v Delphi (3Std) ?
Petr
Sifrovanie textu
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 18.9.2000 09:29:06
Ale pozor, jedno male nebezpeci: Pokud budes timto zpusobem sifrovat znaky s
prilis velkym ordinalnim cislem resp. v klici pouzijes znaky s prilis velkym
ordinalnim cislem, muze jako vysledek sifrovani nejakeho znaku vyjit chr(0),
ktery znehodnoti cely zbytek retezce. Takze je lepsi namisto string pouzit
array of char.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
Sent: Saturday, September 16, 2000 5:22 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Sifrovanie textu
On 16 Sep 2000, at 15:43, Roland Tur�an (RoTurSoft) wrote:
> Proteboval by som jednoducjy siftrovac na String, ale kde ho zohnat ?
>
Treba jednoduse takhle:
const
DefaultKey = 'ashvhjavj';
// c - True -> ENCRYPT, False -> DECRYPT
function Crypt(t, h: string; c: boolean):string;
implementation
function Crypt(t, h: string; c: boolean):string;
var
i,j: integer;
begin
for i := 1 to length(h) do
for j := 1 to length(t) do
if c then
t[j] := Chr(Ord(t[j]) + Ord(h[i])) else
t[j] := Chr(Ord(t[j]) - Ord(h[i]));
result := t;
end;
pouziti:
zasifrovani
<zasifrovany_retezec> := Crypt(<nejaky_retezec>, DefaultKey, True);
rozsifrovani
<rozsifrovany_retezec> := Crypt(<zasifrovany_retezec>, DefaultKey,
False);
Misto "DefaultKey" muzes pouzit cokoliv jineho...
Petr Fischer
Vybarveni radku - DBGrid
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 18.9.2000 09:30:19
> prosim o radu, jak v DBGridu vybarvit radek zvolenou barvou ?
> Za rady predem diky.
Do OnGridDrawwColumnCell se da takovatu procedura:
procedure TFrmFaktury.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
with sender as TDBGrid do begin
if Canvas.Brush.Color = clWindow then begin
if DataFaktury.TableFakturyStorno.AsBoolean then Canvas.Font.Color :=
clGray
else begin
if (DataFaktury.TableFakturyFSplat.AsDateTime < _PamOpt.UcetDate)
and
(DataFaktury.TableFakturyZaplaceno.AsInteger in
[ZaplacenoNE..ZaplacenoCast]) then Canvas.Font.Color := clRed;
if (DataFaktury.TableFakturyFSplat.AsDateTime >= _PamOpt.UcetDate)
and
(DataFaktury.TableFakturyZaplaceno.AsInteger in
[ZaplacenoNE..ZaplacenoCast]) then Canvas.Font.Color := clNavy;
end;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
DAO a heslo
[*] Martin <geoplan(zv)pp.sinet.sk> - 18.9.2000 09:31:46
potrebujem na zaciatku programu okno na zadanie uzivatela a hesla. Chcem to pre komponenty DAO od E.Salaye.
Ak som skusal komponty ADOexpress tak sa ma pyta na heslo automaticky. Da sa to nejak zariadit aj pri komponentach DAO ?
Martin
toolhelp.dcu
[*] Tom� Kru��k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 18.9.2000 09:43:11
Ahoj
Jeden jsem nasel v D1 jestli se Ti bude hodit tak napis.
Tom� Kru��k
t.kruzik(zv)msp.mesit(tec)cz
tel.:0632-522632
mobil: 0603-947060
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Radek Patek
Sent: Monday, September 18, 2000 7:53 AM
To: delphi-l(zv)fwd(tec)cz
Subject: toolhelp.dcu
Zdarek
Schanim tenhle souborek "toolhelp.dcu". Jestli ho nekdo mate, dejte mi
prosim vedet.
dik
Radek
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.185 / Virov� b�ze: 88 - datum vyd�n�: 18.8.2000
Instalace programu ve Win2000
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 18.9.2000 09:55:03
Nemel jsem tenhle problem mam W2000 Cz Intel Pentium III E 633MHz 128MB RAM
byt tebou proverim system a disk.
J. Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Michal Kus
Sent: Monday, September 18, 2000 8:30 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Instalace programu ve Win2000
Ahoj,
zaregistroval nekdo taky strasne dlouhou instalaci programu.
Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
Nevite co to ma znamenat?
Mam anglicke W2000 + SP1, Celeron 500, 128 MB RAM
Michal Kus