Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ShowWindow
[*] Administrator <Administrator(zv)rosoft.sk> - 28.12.1998 11:46:58
Mam problem: v 32 bit programe volam uz pusteny DOS program:
Hwnd1:=FindFindow(nil,'DOS porgram');
ShowWindow(Hwnd1,SW_RESTORE);
SetForeGroundWindow(Hwnd1);
v NT4.0 sa program spusti korektne, ale v W95 sa iba nastavi ako
aktivny,ale nerestorne ho
Prosim poradte.
Patrik Tesar
RX help
[*] RADIK(zv)p15.monet(tec)cz - 28.12.1998 12:13:00
Na http://sunsite.icm.edu.pl/delphi/ftp/d10free/rxstrutl.zip se da
stahnout help na StrUtils.pas z RX library.
Ales
OLE Word
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 28.12.1998 12:32:21
Mon, Dec 28, 1998 ve 10:49:01AM +0000 Martin O�en� napsal:
> Nema niekto zoznam prikazov OLE servra Word97. Priklady z
> Delphi Informantu nefunguju a ja som v koncoch.
>
> D.
> Martin
Word97 uz neobsahuje WordBasic, ale VBA. Microsoft vydal peknou knizku
(referencni prirucku), mam ji tady nekde na stole.
Jinak je tam nekde help (neco jako vba8XXXXX.hlp) nebo tak nejak
m.s.
-------------------------------------------------------------
Milan �orm (aka John Popeln�k) telefon: +420 5 41512348
B205, FI MU, Botanick� 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. dom�: (05) 46211083
-------------------------------------------------------------
Linux is like a wigwam - no windows, no gates, apache inside!Pretahovani textu 2
[*] kelleon(zv)nnsk.sk - 28.12.1998 12:43:03
> >TMDIChild(ActiveMDIChild).ActiveControl :=
> >TMDIChild(ActiveMDIChild).egSuperMemoEdit;
>
> Diky, ale problem to jeste neresi.
> Todle sice nastavi aktivni kontrol v MDI okne, ale to se
> projevi az, kdyz je akttivni to MDI okno. A to neni.
> Otazka spise je, jak aktivovat MDI okno.
Myslim, ze by to slo poslanim spravy WM_MDIACTIVATE, napr.:
SendMessage(Handle, WM_MDIACTIVATE, MDIChild.Handle, 0);
kde Handle je handle hlavneho MDI okna. Neskusal som to.
Ondrej Kelle
kelleon(zv)nnsk.sk
Ako zachyti� v�nimku v TField?
[*] Branislav Danko <danko(zv)basl.sk> - 28.12.1998 13:50:16
Nazdar,
nevie mi niekto poradi� ako m�m zachyti� v�nimku, ktor� vznikne vtedy, ak pol��ko nesp��a masku zadefinovan� v EditFormat (ale aj niektor� in� - napr. Required)? Potreboval by som to odchyti�, aby som mohol nahradi� anglick� chybov� spr�vu slovenskou. V objekte TDBDataset je udalos� OnError, ale tu sa d� odchyti� len datab�zov� v�nimka (EDatabase).
P.S.: N�hodou nem� niekto lokalizovan� help k Win32, ten ktor� je �tandardne dod�van� k Delphi, Builder-u �i C++. Alebo e�te nebol �iadny z t�chto n�strojov lokalizovan� aspo� do �estiny?
S pozdravom Brano.OLE Word
[*] pcuhel(zv)deltax(tec)cz - 28.12.1998 14:09:40
Cau
Soucasti wordu je helpovy soubor. Jmenuje se nejak jako WordBasic.hlp
ale ne presne takto.
>Nema niekto zoznam prikazov OLE servra Word97. Priklady z
>Delphi Informantu nefunguju a ja som v koncoch.
>D.
>Martin
OLE Word
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 28.12.1998 14:53:16
Mon, Dec 28, 1998 ve 02:09:40PM +0100 pcuhel(zv)deltax(tec)cz napsal:
>
> Cau
>
> Soucasti wordu je helpovy soubor. Jmenuje se nejak jako WordBasic.hlp
> ale ne presne takto.
platilo do Wordu95. Novy Word uz ma vba8??.hlp, protoze uz nema WordBasic,
ale VBA
m.s.
>
> >Nema niekto zoznam prikazov OLE servra Word97. Priklady z
>
> >Delphi Informantu nefunguju a ja som v koncoch.
> >D.
> >Martin
>
-------------------------------------------------------------
Milan �orm (aka John Popeln�k) telefon: +420 5 41512348
B205, FI MU, Botanick� 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. dom�: (05) 46211083
-------------------------------------------------------------
Linux is like a wigwam - no windows, no gates, apache inside!OLE Word
[*] pcuhel(zv)deltax(tec)cz - 28.12.1998 15:58:28
To je sice pravda, ale nicmene se pres nej da ovladat a
navic to ma tu vyhodu, ze to funguje i se starsi verzi wordu.
Milan Sorm <xsorm(zv)informatics.muni(tec)cz> na 28.12.98 14:53:16
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Petr Cuhel/Deltax)
P�edm�t: Re: OLE Word
Mon, Dec 28, 1998 ve 02:09:40PM +0100 pcuhel(zv)deltax(tec)cz napsal:
>
> Cau
>
> Soucasti wordu je helpovy soubor. Jmenuje se nejak jako WordBasic.hlp
> ale ne presne takto.
platilo do Wordu95. Novy Word uz ma vba8??.hlp, protoze uz nema WordBasic,
ale VBA
m.s.
>
> >Nema niekto zoznam prikazov OLE servra Word97. Priklady z
>
> >Delphi Informantu nefunguju a ja som v koncoch.
> >D.
> >Martin
>
-------------------------------------------------------------
Milan �orm (aka John Popeln�k) telefon: +420 5 41512348
B205, FI MU, Botanick� 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. dom�: (05) 46211083
-------------------------------------------------------------
Linux is like a wigwam - no windows, no gates, apache inside!
Ako zachyti� v�nimku v TField?
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 28.12.1998 16:12:59
Podivej se na udalosti u TField
nevim k cemu to potrebujes, tak si najdi odpovidajici udalost sam.
Nejlepsi je ale vlastni kontrola (validace) pred tim, nez to pustis do
databaze -> tzn. OnGetText, OnSetText. Je to sice prace navic, ale muzes
to udelat silne "blbovzdorne"...
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Branislav Danko [SMTP:danko(zv)basl.sk]
> Odesl�no: 28. prosince 1998 13:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ako zachyti� v�nimku v TField?
>
> Nazdar,
>
> nevie mi niekto poradi� ako m�m zachyti� v�nimku, ktor� vznikne
> vtedy, ak pol��ko nesp��a masku zadefinovan� v EditFormat (ale aj
> niektor� in� - napr. Required)? Potreboval by som to odchyti�, aby som
> mohol nahradi� anglick� chybov� spr�vu slovenskou. V objekte
> TDBDataset je udalos� OnError, ale tu sa d� odchyti� len datab�zov�
> v�nimka (EDatabase).
>
> P.S.: N�hodou nem� niekto lokalizovan� help k Win32, ten ktor� je
> �tandardne dod�van� k Delphi, Builder-u �i C++. Alebo e�te nebol
> �iadny z t�chto n�strojov lokalizovan� aspo� do �estiny?
>
> S pozdravom Brano.OLE Word
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 28.12.1998 16:27:17
Mon, Dec 28, 1998 ve 03:58:28PM +0100 pcuhel(zv)deltax(tec)cz napsal:
>
> To je sice pravda, ale nicmene se pres nej da ovladat a
> navic to ma tu vyhodu, ze to funguje i se starsi verzi wordu.
>
no na prikazy WordBasicu reaguje jen objekt Word.Basic, kdezto
Word.Application.8 uz nikoliv, coz je vsak potrebnejsi. Navic, jak M$ tvrdi,
WordBasic uz nadale nechteji podporovat (sjednoceni produktu) a chteji jen
VBA
je tedy lepe se ucit jen VBA
m.s.
-------------------------------------------------------------
Milan �orm (aka John Popeln�k) telefon: +420 5 41512348
B205, FI MU, Botanick� 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. dom�: (05) 46211083
-------------------------------------------------------------
Linux is like a wigwam - no windows, no gates, apache inside!Ako =?iso-8859-2?Q?zachyti=BB=20v=FDnimku?= v TFie
[*] Karel Kral <kral(zv)purus(tec)cz> - 28.12.1998 16:37:11
Ono by bylo lepsi si prepsat stringy ve zdrojaku DBCONST.PAS a
zkompilovat. Pak nemusis nic odchytavat. Tenhle zdrojak je ke kazde
verzi Delphi 4.
Branislav Danko wrote:
>
> Nazdar,
>
> nevie mi niekto poradi� ako m�m zachyti� v�nimku, ktor� vznikne vtedy, ak pol��ko nesp��a masku zadefinovan� v EditFormat (ale aj niektor� in� - napr. Required)? Potreboval by som to odchyti�, aby som mohol nahradi� anglick� chybov� spr�vu slovenskou. V objekte TDBDataset je udalos� OnError, ale tu sa d� odchyti� len datab�zov� v�nimka (EDatabase).
>
> P.S.: N�hodou nem� niekto lokalizovan� help k Win32, ten ktor� je �tandardne dod�van� k Delphi, Builder-u �i C++. Alebo e�te nebol �iadny z t�chto n�strojov lokalizovan� aspo� do �estiny?
>
> S pozdravom Brano.
--
_______________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz
_______________________________________________
Off Top : Tabulky znaku - omluva
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 28.12.1998 17:34:55
Ahoj,
tak ted koukam na to, ze jsem ty tabulky poslal taky do konference,
velice se vsem omlouvam a prosim netlucte mne prilis.
Dik Vaclav Sazima
Ako zachyti� v�nimku v TField?
[*] Branislav Danko <danko(zv)basl.sk> - 28.12.1998 17:43:01
> Ono by bylo lepsi si prepsat stringy ve zdrojaku DBCONST.PAS a
> zkompilovat. Pak nemusis nic odchytavat. Tenhle zdrojak je ke kazde
> verzi Delphi 4.
Nebolo by to pr�li� tvrd�, prepisova� zdroj�k?
> > Nazdar,
> >
> > nevie mi niekto poradi� ako m�m zachyti� v�nimku, ktor� vznikne vtedy, ak pol��ko nesp��a masku zadefinovan� v EditFormat (ale aj niektor� in� - napr. Required)? Potreboval by som to odchyti�, aby som mohol nahradi� anglick� chybov� spr�vu slovenskou. V objekte TDBDataset je udalos� OnError, ale tu sa d� odchyti� len datab�zov� v�nimka (EDatabase).
> >
> > P.S.: N�hodou nem� niekto lokalizovan� help k Win32, ten ktor� je �tandardne dod�van� k Delphi, Builder-u �i C++. Alebo e�te nebol �iadny z t�chto n�strojov lokalizovan� aspo� do �estiny?
> >
> > S pozdravom Brano.
>
> --
> _______________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz
> _______________________________________________
Pretahovani textu 2
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 28.12.1998 17:49:51
>rekne "Cannot focus a disabled or invisible Window".
Tato hlaska se vetsinou objevuje pokud delam focus na prvek ktery prave neni
viditelny na obrazovce.
ahoj
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
QRGroup
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 28.12.1998 17:55:20
>Protoze vyrazy jsou vyhodnocovany ja boolean, a pokud je prvni z nich True,
>tak se uz nevyhodnocuji ty ostatni, protoze je jasny, ze vyraz bude True.
>Zkus to 'KATEG1+KATEG2+PRODUCER' to by melo fungovat. (ale vzhledem k tomu,
>ze se jedna o stringy, mozna se to odrazi na rychlosti)
>
toto vyhodnocovan� by melo zaviset na parametru v OPTIONS \COMPILER\
- parametr "complete boolean eval"
Ahoj
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
>Enumeracia ovladacich prvkov inej aplikacie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:27:33
hrenovcik(zv)ns.basl.sk wrote:
>
> Caute,
>
> ako sa da prezriet zoznam okien inej aplikacie z programu, nejak
> podobne ako to robi WinSight. Cez EnumWindows pozriem len vsetky
> hlavne okna, ja by som potreboval aj buttony, edity... aby som im mohol
> zmenit property.
Ahoj,
Pomoci EnumChildWindows.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Ako =?iso-8859-2?Q?zachyti=BB=20v=FDnimku?= v TFie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:27:13
Branislav Danko wrote:
>
> Nazdar,
>
> nevie mi niekto poradi� ako m�m zachyti� v�nimku, ktor� vznikne vtedy, ak pol��ko nesp��a masku zadefinovan� v EditFormat (ale aj niektor� in� - napr. Required)? Potreboval by som to odchyti�, aby som mohol nahradi� anglick� chybov� spr�vu slovenskou. V objekte TDBDataset je udalos� OnError, ale tu sa d� odchyti� len datab�zov� v�nimka (EDatabase).
Ahoj,
Pouzij udalost TTable.OnPostError.
> P.S.: N�hodou nem� niekto lokalizovan� help k Win32, ten ktor� je �tandardne dod�van� k Delphi, Builder-u �i C++. Alebo e�te nebol �iadny z t�chto n�strojov lokalizovan� aspo� do �estiny?
No, on asi ani zadny z nich lokalizovany nebude :-) Pokud vim, tak jediny cesky
preklad Win32 API helpu vysel v tistene podobe tusim u UNISu ve dvou dilech.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Pretahovani textu 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:28:31
kelleon(zv)nnsk.sk wrote:
> Myslim, ze by to slo poslanim spravy WM_MDIACTIVATE, napr.:
> SendMessage(Handle, WM_MDIACTIVATE, MDIChild.Handle, 0);
> kde Handle je handle hlavneho MDI okna. Neskusal som to.
Ahoj,
Slo by to, ale misto Handle musis dat ClientHandle. V MDI aplikacich mas
totiz jako klientskou oblast jeste jedno interni "okno".
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
CopyTable
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:28:14
Petr Posp�il wrote:
>
> Zdravim vsechny a preju vse nejlepsi do Nove Roku 1998!
> Potreboval bych maly help.
> Jak se da nejlepe a nejrychleji zkopirovat tabulka i s indexy ,treba pro
> zalohovani a naopak (pro D3)?
> Objevil jsem toto,ale bohuzel me to nefunguje a zadna nova tabulka i s
> indexy se nevytvari!
Ahoj,
To je opravdu zvlastni, me to presne takhle funguje (Paradox). Hlasi ti to
nejakou chybu ?
CopyTable(Table1, 'X:\Pokus', True);
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Pretahovani textu 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:28:01
Vojtech Semecky wrote:
>
> >TMDIChild(ActiveMDIChild).ActiveControl :=
> >TMDIChild(ActiveMDIChild).egSuperMemoEdit;
>
> Diky, ale problem to jeste neresi.
>
> Todle sice nastavi aktivni kontrol v MDI okne, ale to se
> projevi az, kdyz je akttivni to MDI okno. A to neni.
> Otazka spise je, jak aktivovat MDI okno.
Ahoj,
Aktivovat jej muzes pomoci metody BringToFront (viz TControl.BringToFront).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
MouseEnter/leave D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.1998 22:46:43
"No Comment Group, s.r.o. / Sales Department" wrote:
>
> Ahoj,
>
> potrebujem reagovat na udalost prveho a posledneho mousemove nad komponentou
> odvodenou od TGraphicControl. Problem je v tom, ze v podstate aj
> viem ako ale nerozumiem preco prave tak.
>
> V zasade som zistil, ze iny povesia obsluhu nad spravy cm_mouseenter/leave
> ktoru definuju ako private a zaroven definuju dynamicku metodu mouseleave. V
> obsluhe spravy windows potom zavolaju "inherited;" a zaroven zavolaju onu
Ahoj,
pomoci inherited se zajisti volani i vsech predchozich obsluh teto zpravy.
Konktetne TControl reaguje na zpravy CM_MOUSEENTER/CM_MOUSELEAVE tim, ze je
znovu zasle do Parenta daneho TControl a jako parametr dosadi pointer na sebe.
> dynamicku metodu ... Preco preboha takto?
tento postup je zvolen bud kvuli lepsi prehlednosti, nebo proto aby v odvozenych
komponentach byla jednodussi reakce na tyto zpravy ci pripadne jeji potlaceni.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************TSearchRec
[*] Jirka <virt(zv)pepa(tec)cz> - 29.12.1998 07:32:11
Ahoj,
uz jste nekdo skousel TSearchRec ve WIN98(D3).
Ve WIN95 vracel pri nalezeni adresare (TSearchRec.Attr) hodnotu 10h(16).
A hejhle.Vyzkousel jsem to ve WIN98 a ono to vraci 30h (48).Ale pouze u
nezkompresovaneho disku.U komprimovaneho svazku to vraci starou hodnotu 10h.
Tak nevim, nevim.
Jirka Virt
email: virt(zv)pepa(tec)cz
Refresh u TQuery
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 29.12.1998 07:48:14
Nezna nekdo nejaky figl jak provest Refresh u TQuery aniz
by bylo nutne davat Close, Open ?
-----------------------------------------------------------------
Marian Jon� jonas(zv)prog-soft(tec)cz
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
-----------------------------------------------------------------
Refresh u TQuery
[*] Jaro <jaro(zv)sinea(tec)cz> - 29.12.1998 08:49:00
TQuery obsahuje metodu Refresh.
Bohuzel se mi ji nepodarilo spravne pouzit.
V rozporu s manualem, kde se uvadi, ze Refresh
je vlastne Close, Open a skok na puvodni zaznam,
se mi to takto rozhodne nechova.
Proto jsem si udelal vlastni metodu obsahujici
tyto kroky. Nicmene velice by me tez zajimalo,
zda to nekomu funguje pres ten Refresh
Jaro
Nezna nekdo nejaky figl jak provest Refresh u TQuery aniz
by bylo nutne davat Close, Open ?
-----------------------------------------------------------------
Marian Jon� jonas(zv)prog-soft(tec)cz
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
-----------------------------------------------------------------
Zpomaleni wavu
[*] sup(zv)svitap(tec)cz - 29.12.1998 10:27:18
Hi lidi, mam trochu problem: jak zpomalit wav beze zmeny vysky tonu.
Mam Delphi3/profi.
Sorry za offtopic.
Diky predem za _dobre_ rady.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420 461 568 202
fax: ++420 461 568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Zpomaleni wavu
[*] TucekR(zv)p15.monet(tec)cz - 29.12.1998 13:51:00
jak zpomalit, pokud to zpomalis tak logicky se musi zmenit ton......
TRT
----------
Od: sup(zv)svitap(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Zpomaleni wavu
Datum: 29. prosinec 1998 10:27
Hi lidi, mam trochu problem: jak zpomalit wav beze zmeny vysky tonu.
Mam Delphi3/profi.
Sorry za offtopic.
Diky predem za _dobre_ rady.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420 461 568 202
fax: ++420 461 568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Zpomaleni wavu
[*] ri(zv)spse.adlerka.schools.sk - 29.12.1998 15:03:35
> Jak zpomalit wav beze zmeny vysky tonu?
Jak? : TAZKO.
A teraz podrobnejsie.
Nie som si isty, ci su ulohy typu
- zmena rychlosti prehravania zvuku
bez zmeny vysky tonov, a
- zmena vysky tonov
bez zmeny rychlosti prehravania
z pohladu serioznej matematiky vobec
korektnymi ulohami (totiz 'rychlost' a vyska tonu
(= frekvencia) su totiz takmer totoznymi vecami).
Otazkou je, ci to ma byt
1.strucne riesenie (t.j. ze by existovalo ako zabu-
dovana vlastnost v Delphi (alebo v inom programova-
com nastroji)), alebo
2.'makacka'.
O moznosti 1. silno pochybujem (ved to nemaju ani mnohe
seriozne 'zvuko-spracovateli').
Pre pripad 2. navrhujem napr. takyto postup (bude to 'ma-
nualne' prerabanie wav-u):
___________ ___________
/ \ / \ a tak dalej
___________ ___________
/ \ / \
t0 t1 t2 t3 t4 ...
T.j. do vysledneho wav-u sa postupne pridavaju kratke
uryvky (typicka dlzka - niekolko stotin sekundy) z puo-
vodneho wav-u. Napriklad (kvoli konkretnej ciselnej pred-
stave):
Nech t0 = 0.00s t1 = 0.05s t2 = 0.10s t3 = 0.15s ...,
a nech sa tie uryvky nachadzali v originali na poziciach
t0' = 0.00s t1' = 0.04s t2' = 0.08s t3' = 0.12s ... .
Kvoli netrhanosti zvuku treba tieto uryvky aspon kratko
prelnut (to som naznacil znakmi / a \ (namiesto | )),
cize v nasom pripade 'odoberat' z originalu napr. 0.06s
dlhe kusky.
Pri pouziti tychto cisel by bol novy wav o 25 percent dlh-
si nez povodny, teda by bol o 20 percent pomalsi (pretoze
1.25 x 0.80 = 1). Treba trochu poexperimentovat s deltaT
v originali, deltaT vo vysledku, dlzkou trvania a krivkou
priebehu toho prelnutia a podobnymi parametrami.
Na zvukovu kvalitu takychto 'vyrobkov' samozrejme netreba
mat dopredu prilis vysoke ocakavania - je dost mozne, ze
to bude zniet ako 'hlas skriatkov' alebo podobne.
Inac: Na aky ucel to treba?
S pozdravom S.N.R. 'MIM Jano
.TSearchRec
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 29.12.1998 17:47:55
Ahoj,
jak jsi to delal. Zkousel jsem to na nekomprimovanem disku a varci mi v TSearchRec.Attr normalne 10h(16). Mam tu Win98 a D3 standart.
Bye,
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
-----Original Message-----
From: Jirka <virt(zv)pepa(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 29. prosince 1998 7:58
Subject: TSearchRec
>Ahoj,
>
> uz jste nekdo skousel TSearchRec ve WIN98(D3).
> Ve WIN95 vracel pri nalezeni adresare (TSearchRec.Attr) hodnotu 10h(16).
> A hejhle.Vyzkousel jsem to ve WIN98 a ono to vraci 30h (48).Ale pouze u
>nezkompresovaneho disku.U komprimovaneho svazku to vraci starou hodnotu 10h.
>Tak nevim, nevim.
>
>
>Jirka Virt
>
>email: virt(zv)pepa(tec)cz
>
>TSearchRec
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.12.1998 18:56:44
Jirka wrote:
>
> Ahoj,
>
> uz jste nekdo skousel TSearchRec ve WIN98(D3).
> Ve WIN95 vracel pri nalezeni adresare (TSearchRec.Attr) hodnotu 10h(16).
> A hejhle.Vyzkousel jsem to ve WIN98 a ono to vraci 30h (48).Ale pouze u
> nezkompresovaneho disku.U komprimovaneho svazku to vraci starou hodnotu 10h.
> Tak nevim, nevim.
Ahoj,
Ten rozdil 20h je konstanta FILE_ATTRIBUTE_ARCHIVE. Neni to tedy zpusobeno
jen tim, ze na tech W98 mas nastaveny tento atribut ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
ShowWindow
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.12.1998 18:58:02
Administrator wrote:
>
> Mam problem: v 32 bit programe volam uz pusteny DOS program:
>
> Hwnd1:=FindFindow(nil,'DOS porgram');
> ShowWindow(Hwnd1,SW_RESTORE);
> SetForeGroundWindow(Hwnd1);
>
> v NT4.0 sa program spusti korektne, ale v W95 sa iba nastavi ako
> aktivny,ale nerestorne ho
Ahoj,
Zkousel jsem to (Win95 OSR2) a funguje to, podle mne, spravne.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Refresh u TQuery
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.12.1998 20:49:06
Jaro wrote:
> TQuery obsahuje metodu Refresh.
> Bohuzel se mi ji nepodarilo spravne pouzit.
> V rozporu s manualem, kde se uvadi, ze Refresh
> je vlastne Close, Open a skok na puvodni zaznam,
> se mi to takto rozhodne nechova.
> Proto jsem si udelal vlastni metodu obsahujici
> tyto kroky. Nicmene velice by me tez zajimalo,
> zda to nekomu funguje pres ten Refresh
Obavam se, ze to bude problematicke. Dnes jsem to vselijak
zkousel, ale bez uspechu. IMHO je problem v komponentach...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
vypnut� Ctrl+Esc, Alt+F4, Ctrl+Alt+Del
[*] Petr Hronek <trit(zv)cbnet(tec)cz> - 29.12.1998 21:39:13
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nev�te n�kdo jak se d� vypnout kombinace Ctrl+Esc, Alt+F4, Ctrl+Alt+Del, nebo alespo� Task bar z Windows?
D�ky.
Petr Hronek
trit(zv)cbnet(tec)cz
Cteni JPG z D1
[*] lumir.delphi(zv)post(tec)cz - 29.12.1998 23:31:35
Zdravim programatorskou obec.
Nemohl by mi nekdo prosim poskytnout zdrojovy kod cteni obrazku ve formatu JPG? Moc by mi to pomohlo. Studoval jsem strukturu obrazku JPG z literatury ale protoze jsem amatersky programator nepochopil jsem to.
Za vsechny namety predem dekuji.
-----------------------------------
Ma adresa:
lumir.karas(zv)post(tec)cz
Stmivani v Install
[*] lumir.delphi(zv)post(tec)cz - 29.12.1998 23:34:59
Zdravim vsechny, kteri delaji v Delphi.
Muj problem spociva v zobrazeni efektu postupneho stmivani vybrane barvy pres celou obrazovku napriklad z vrchu dolu. Tento efekt je nejcasteji videt v instalacnich programech. Zkousel jsem to pomoci prikazu RGB(0-255,0-255,0-255) ale hezky efekt to melo az v rozliseni 16.7 mil. barev. coz je absolutne nedostacujici. Nechci pouzit nejakou bitmapu, protoze se obvam zbytecne velikosti EXE souboru. Mozna jsem pouzil spatny algoritmus , proto bych ocenil nejaky priklad programu napr. se smyckou FOR, pro 256 barevnou grafiku s prihlednutim na rozliseni obrazovky.
Za vsechny namety moc dekuji.
--------------------------------
Ma adresa:
lumir.karas(zv)post(tec)cz
Zmenseni paradox DB
[*] lumir.delphi(zv)post(tec)cz - 29.12.1998 23:38:06
Vitam celou programatorskou obec.
Mam takovy problem, ze potrebuji zmensit databazovou tabulku *.DB v Paradoxu o smazane polozky. Zjistil jsem, ze jestlize smazu nejake zaznamy z databaze, tak velikost souboru se vubec nezmeni ale tyto smazane zaznamy se jiz nezobrazuji. Z toho usuzuji, ze zbytecne zabiraji misto protoze tam mam zejmena mema. Podobnou funkci, kterou potrebuji jsem videl v programu FOXPRO a mela nazev tusim PACK nebo nejak podobne.
Za vsechny rady moc dekuji.
----------------------------
Jinak me najdete na adrese:
lumir.karas(zv)post(tec)cz
Zmenseni paradox DB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.12.1998 01:04:55
lumir.delphi(zv)post(tec)cz wrote:
>
> Vitam celou programatorskou obec.
>
> Mam takovy problem, ze potrebuji zmensit databazovou tabulku *.DB v Paradoxu o smazane polozky. Zjistil jsem, ze jestlize smazu nejake zaznamy z databaze, tak velikost souboru se vubec nezmeni ale tyto smazane zaznamy se jiz nezobrazuji. Z toho usuzuji, ze zbytecne zabiraji misto protoze tam mam zejmena mema. Podobnou funkci, kterou potrebuji jsem videl v programu FOXPRO a mela nazev tusim PACK nebo nejak podobne.
Ahoj,
Pakovani Paradox nebo dBase tabulek najdes tady, Example2:
http://www.inprise.com/devsupport/bde/bdeapiex/dbidorestructure.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************vypnut� Ctrl+Esc, Alt+F4, Ctrl+Alt+Del
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.12.1998 01:04:47
> Petr Hronek wrote:
>
> Nev�te n�kdo jak se d� vypnout kombinace Ctrl+Esc, Alt+F4, Ctrl+Alt+Del, nebo alespo� Task
> bar z Windows?
> D�ky.
Ahoj,
Uz se to tu probiralo, najdes to tady:
http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\sep\03\dlfaaado.htm
http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\sep\30\dlfaaabt.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Zpomaleni wavu
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 30.12.1998 03:15:07
Hello All!
> > Jak zpomalit wav beze zmeny vysky tonu?
> (totiz 'rychlost' a vyska tonu (= frekvencia) su totiz takmer totoznymi
vecami).
Spravne by v tejto konferencii malo byt riesenie zapisane v Pascale, ale
skusim to popisat najprv slovne a potom sa uvidi:
1.Predovsetkym si treba postavit nejaky dolny kmitocet, od ktoreho nizsie
tony uz pri spomaleni tiez spomalia. Nech je to napriklad 10 Hz.
2. Potom si mozeme .VAW posekat na kratke useky po 0.2 sek (2 periody 10Hz)
3. Pre kazdy tento usek spocitame Fourierovu analyzu, t.j. urcime amplitudu
a fazu N najsilnejsich kmitoctov, ktore sa podielaju na signale.
4. Ked chceme .VAW 'spomalit' napr. o 25%, prehravame tieto kmitocty po
dobu 0.25 sekundy. Alebo aj 'zrychlit'.
Predpokladam, ze uz pri N=8 by mohol byt pouzitelny vysledok. Ked ma
niekto cas hrat sa s tym, mohol by sem hodit, ak je skutocnost. Ale na
dalsie rozoberanie by bolo vhodne nejake ine miesto, napriklad SOUND.42 (
news://news.fido(tec)cz )
Inak prajem vsetkym veseleho Silvestra a uspesny novy rok.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Stmivani v Install
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 30.12.1998 03:52:46
Hello Lumir!
> Muj problem spociva v zobrazeni efektu postupneho stmivani vybrane barvy
Napriklad keby si mal len body sytosti 0, 1, 2 a 3 a s nimi by si mal
urobit napriklad 480 riadkov, tak pre riadok napriklad 157. ti vyjde:
pozadovana sytost = 3 x (480-157) / 480 = 2,01875
takze budes malovat body o sytosti 2, ale s pravdepodobnostou 1.87% bude
niektory bod mat sytost 3. Neviem, ci cislujes riadky zdola nahor alebo
naopak, ale nie je problem pouzit nakoniec komplementarnu sytost.
Keby sa ti zdal systemovy RANDOM pomaly, mozes si jeden vysledok nasekat
povedme po 4 bitikoch.
Inak vo fidonete je na toto konferencia PROGRAMING.42
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Stmivani v Install
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.12.1998 06:24:54
Ahoj,
na background efekt existuje primo komponent TGradientBack.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: lumir.delphi(zv)post(tec)cz [SMTP:lumir.delphi(zv)post(tec)cz]
> Odesl�no: 29. prosince 1998 23:35
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Stmivani v Install
>
> Zdravim vsechny, kteri delaji v Delphi.
>
> Muj problem spociva v zobrazeni efektu postupneho stmivani vybrane barvy
> pres celou obrazovku napriklad z vrchu dolu. Tento efekt je nejcasteji
> videt v instalacnich programech. Zkousel jsem to pomoci prikazu
> RGB(0-255,0-255,0-255) ale hezky efekt to melo az v rozliseni 16.7 mil.
> barev. coz je absolutne nedostacujici. Nechci pouzit nejakou bitmapu,
> protoze se obvam zbytecne velikosti EXE souboru. Mozna jsem pouzil spatny
> algoritmus , proto bych ocenil nejaky priklad programu napr. se smyckou
> FOR, pro 256 barevnou grafiku s prihlednutim na rozliseni obrazovky.
>
> Za vsechny namety moc dekuji.
>
> --------------------------------
> Ma adresa:
>
> lumir.karas(zv)post(tec)cz
TSearchRec
[*] Jirka <virt(zv)pepa(tec)cz> - 30.12.1998 08:35:50
Ahoj
delam to takhle -
var
dirinfo:TSearchRec;
...
FindFirst('*.*',$10 ,dirinfo) ;
...
Jirka Virt
email: virt(zv)pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. prosince 1998 18:19
P�edm�t: Re: TSearchRec
>Ahoj,
>
>jak jsi to delal. Zkousel jsem to na nekomprimovanem disku a varci mi v
TSearchRec.Attr normalne 10h(16). Mam tu Win98 a D3 standart.
>
>Bye,
>Tomas Skopik
>( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )
>
>
>-----Original Message-----
>From: Jirka <virt(zv)pepa(tec)cz>
>To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Date: 29. prosince 1998 7:58
>Subject: TSearchRec
>
>
>>Ahoj,
>>
>> uz jste nekdo skousel TSearchRec ve WIN98(D3).
>> Ve WIN95 vracel pri nalezeni adresare (TSearchRec.Attr) hodnotu 10h(16).
>> A hejhle.Vyzkousel jsem to ve WIN98 a ono to vraci 30h (48).Ale pouze u
>>nezkompresovaneho disku.U komprimovaneho svazku to vraci starou hodnotu
10h.
>>Tak nevim, nevim.
>>
>>
>>Jirka Virt
>>
>>email: virt(zv)pepa(tec)cz
>>
>>
>Seriovy port
[*] Elidis s.r.o. <elidisp(zv)mbox.vol(tec)cz> - 30.12.1998 10:02:29
Ahoj,
potrebuju primy pristup na seriovy port via delphi 3 pro win nt 4.0
(komponentu nebo alespon kus zdrojaku)...
diky
-ales-
Zmenseni paradox DB
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 30.12.1998 10:46:35
Zdravicko...
Mozna je rychlejsi se podivat na disk do BDE32.HLP, v rejstriku najit
DbiDoRestructure a kliknout na Delphi Examples.
F.
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: st�eda, prosince 30, 1998 1:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Zmenseni paradox DB
>
> lumir.delphi(zv)post(tec)cz wrote:
> >
> > Vitam celou programatorskou obec.
> >
> > Mam takovy problem, ze potrebuji zmensit databazovou tabulku *.DB v
> Paradoxu o smazane polozky. Zjistil jsem, ze jestlize smazu nejake
> zaznamy z databaze, tak velikost souboru se vubec nezmeni ale tyto
> smazane zaznamy se jiz nezobrazuji. Z toho usuzuji, ze zbytecne
> zabiraji misto protoze tam mam zejmena mema. Podobnou funkci, kterou
> potrebuji jsem videl v programu FOXPRO a mela nazev tusim PACK nebo
> nejak podobne.
>
> Ahoj,
>
> Pakovani Paradox nebo dBase tabulek najdes tady, Example2:
>
> http://www.inprise.com/devsupport/bde/bdeapiex/dbidorestructure.html
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> * protestni akce *
> ************************Seriovy port
[*] Lubor Kult <kult(zv)rkc(tec)czn(tec)cz> - 30.12.1998 10:55:18
Pouzivaji se stejne fce jako pro praci se souborem (jenom soubor je COM1 atd.)
jinak je to to same viz API.
Zdravi Lubor Kult
****************************************************
PC-Datacode s.r.o.
U stadionu 925
516 01 Rychnov nad Kneznou
e-mail: kult(zv)pc-datacode(tec)cz
Tel.(GSM): +420-603-423 359
-----P�vodn� zpr�va-----
Od: Elidis s.r.o. [SMTP:elidisp(zv)mbox.vol(tec)cz]
Odesl�no: 30. prosince 1998 9:02
Komu: Conference Delphi
P�edm�t: Seriovy port
Ahoj,
potrebuju primy pristup na seriovy port via delphi 3 pro win nt 4.0
(komponentu nebo alespon kus zdrojaku)...
diky
-ales-
MouseEnter/leave D4
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 30.12.1998 11:52:57
Hi,
[...]
>BTW: Ako to funguje ked sa prekryvaju obsluhy rovnakych sprav v hierarchii?
Zrejme mate na mysli hierarchii dedicnosti a ne hierarchii parent-children,
ktera urcuje dispatching zprav?
U dedicnosti se vzdy vola posledni potomek (handler typu "message XXXX" je
v podstate specialnim pripadem overridu dynamicke metody) a ten volanim
inherited vyvola (nebo taky ne) handler bezprostredniho predka.
U distribuce zprav v hierarchii parent-children je to podstatne slozitejsi,
takze bych to tu nerad popisoval, nehlede na to, ze se pohybujeme v
prostredi kooperativniho multitaskingu, takze zalezi na tom, jak byli
vsichni kooperujici programatori kooperativni :-)
[...]
>Ja uz len nerozumiem jednemu, moja komponenta je odvodena od TGraphics
>Control, ktory ma v hierarchii smerom nahor rodica TControl a TEN ROBI
>PRESNE TO ISTE CO JA. Tj. obsluha cm_mouseenter/leave + dynamicku metodu
>mouseenter. Nerobim nieco zbytocne? Resp. nerobim to cele nejako priliz
>komplikovane?
Dival jsem se do zdrojovek VCL u D1 i D3 a metodu tControl.MouseEnter() jsem
tam nenasel, takze nevim.
Obecne plati toto: pokud je dynamicka metoda viditelna alespon jako
protected, mel by stacit jeji override, napr. takto:
...
protected
procedure MouseEnter(...); override;
...
procedure tXXX.MouseEnter(....);
begin
// cokoli 1. cast
inherited MouseEnter(...);
// cokoli 2. cast
end;
Rozdeleni obsluhy na dve casti je nutne jen v pripade, kdy predek vola event
OnMouseEnter a vznikaji potize, ze by se volal interface nejnizsi urovne
pred nasi obsluhou. Jinak bude 1. cast zpravidla prazdna.
Bye, pf
QReport - QRDBRichText
[*] Pavel ZIDEK <kopr(zv)applet(tec)cz> - 30.12.1998 12:29:33
Trochu sleduji tiskov� probl�my v Delphi a za�al jsem stahovat Report Printer. Uvid�m co z toho vznikne.
Adresu na ACE Printer jsem jakousi na�el (Altavistou) a to:
http://www.electro-net.com/~aceoffl/ARnew.htm
ale n�jak� soubory ke sta�en� jsem nena�el. M��e� mi ��ct, co jsi vlastn� testoval a kde jsi to vzal.
D�ky za radu
----------------------------------------------------
KOPR software Pavel ZIDEK
voice 069 / 66 02 156
mailto:kopr(zv)applet(tec)cz http://www.applet(tec)cz/~kopr
pridej svou ikonu: http://www.applet(tec)cz/~kopr/www
----------------------------------------------------
----------
> Odes�latel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: QReport - QRDBRichText
> Datum: 13. listopadu 1998 9:01
>
> Pred nedavnem jsem testoval RG a celkem se mi libil ACE Reporter,
> OPUS Reporter (nema ale preview pri designu - autori slibili
> rychle dodelat) a take ReportBuilder Pro a Report Printer Pro
> vypadaji fajn (nove verze). Take mezi testovanymi byl Hyper Report
> z Koreje a nevypadal zle.
>
> Petr
Ako =?iso-8859-2?Q?zachyti=BB=20v=FDnimku?= v TFie
[*] Karel Kral <kral(zv)purus(tec)cz> - 30.12.1998 13:29:37
>
> > Ono by bylo lepsi si prepsat stringy ve zdrojaku DBCONST.PAS a
> > zkompilovat. Pak nemusis nic odchytavat. Tenhle zdrojak je ke kazde
> > verzi Delphi 4.
>
> Nebolo by to pr�li� tvrd�, prepisova� zdroj�k?
Tyhle jednotky jsou primo urceny k prepsani pri lokalizaci. Nebo muzes
pouzit resource editor az na EXE, ktery vznikne kompilaci techto
zdrojaku -:).
--
_______________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz
_______________________________________________
Refresh u TQuery
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 30.12.1998 13:31:22
>
> Nezna nekdo nejaky figl jak provest Refresh u TQuery aniz
> by bylo nutne davat Close, Open ?
>
Metodu Refresh jsem zkousel rozchodit (i dotazy do news a
mozna i do teto konference) uz pred lety, nepodarilo se.
Nenasle jsem (ani v demech ani jinde0 priklad, kde by
se pouzivala, vsude jen Close+Open+NajitPuvodniZaznam.
Tom
TSearchRec
[*] boro(zv)gratex.sk - 30.12.1998 14:44:34
Ahoj
vyskusaj toto
...
if FindFirst('c:\temp\pokus\*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
if SearchRec.Attr and faDirectory > 0 then
begin
// Je to adresar
ListBox1.Items.Add(SearchRec.Name);
end;
until FindNext(SearchRec)<>0;
end;
...
S pozdravom
Boris
-----Original Message-----
From: Jirka [mailto:virt(zv)pepa(tec)cz]
Sent: Wednesday, December 30, 1998 8:36 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: TSearchRec
Ahoj
delam to takhle -
var
dirinfo:TSearchRec;
...
FindFirst('*.*',$10 ,dirinfo) ;
...
Jirka Virt
email: virt(zv)pepa(tec)cz
Stmivani v Install
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 30.12.1998 15:33:18
>Muj problem spociva v zobrazeni efektu postupneho stmivani vybrane barvy
pres celou obrazovku napriklad z vrchu dolu. Tento efekt je nejcasteji videt
v instalacnich programech. Zkousel jsem to pomoci prikazu
RGB(0-255,0-255,0-255) ale hezky efekt to melo az v rozliseni 16.7 mil.
barev. coz je absolutne nedostacujici. Nechci pouzit nejakou bitmapu,
protoze se obvam zbytecne velikosti EXE souboru. Mozna jsem pouzil spatny
algoritmus , proto bych ocenil nejaky priklad programu napr. se smyckou FOR,
pro 256 barevnou grafiku s prihlednutim na rozliseni obrazovky.
1. Existuje na to docela dost komponent, jen se trochu porozhlednout.
2. Pokud to chces delat rucne, coz bude asi rychlejsi a i to zabere mene
pameti, tak myslim, ze chyba je ve zpusobu vykreslovani. Pokud to
vykreslujes
po pixelech, tak to v mensi barevne hloubce (16 nebo 256 barev) nemusi
vypadat nejlepe. Vykresluj to po malych ctverecich (canvas.Fillrect).
Tam se Windows sami postaraji a nejaky ten dithering a napr. prechod
CERNA-MODRA, ktery se pouziva v instalacnich programech, muze potom vypadat
prijatelne i v 16 barvach.
Jinak bych take doporucoval pri tom pouzivat barevnou paletu, jinak budou
Windows i ve 256 barvach pouzivat pouze systemove barvy (prvnich a
poslednich 10 barev v palete).
Vojtech Semecky
error v NT
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 30.12.1998 19:54:18
Ahoj
Hlaska : " Vstupni bod procedury Thread32Next nebylo mozne v knihovne DLL
kernel32.dll najit "
Nevi nekdo co to je a jak to odstranit.
Ve Win 95 je to OK, ale znamemu to dela NT 4
v programu pouzivam TListView, Timer, PageControl, a klasicke vstupni prvky
.
mam Delphi 3.0
diky
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
error v NT
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 30.12.1998 21:55:17
ahoj
uz jsem asi prisel na zdroj teto chybove hlasky
>Hlaska v NT : " Vstupni bod procedury Thread32Next nebylo mozne v knihovne
DLL
>kernel32.dll najit "
dovedl by nekdo upravit nasledujici kod tak aby fungoval i v NT nebo
hoaspon pri behu na NT ignoroval.
autora zdrojaku bohuzel abych neznam se obratil na primo na neho.
diky
//--------------------------------------------------------------------------
------------
unit Instance;
interface
uses
Windows;
function FirstInstanceTest:Boolean;{Vr�t� TRUE jestil�e je toto prvn�
instance}
var
VWM_NEXTINSTANCE:UINT;
implementation
uses
TLHelp32,SysUtils;
function
EnumThWnd_BringToFront(hWnd:HWND;lParam:LPARAM):Boolean;stdcall;forward;
function FirstInstanceTest;
var
hSnapProcess,hSnapThread:THandle;
oItemProcess:TProcessEntry32;
oItemThread:TThreadEntry32;
aExeFile:array [0..MAX_PATH] of Char;
nProcessID:DWORD;
lNextProcess,lNextThread:Boolean;
nAtom:ATOM;
cParam:string;
nIndex:Integer;
begin
Result := True;
GetModuleFileName(0,aExeFile,MAX_PATH);
nProcessID := GetCurrentProcessID;
hSnapProcess := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if hSnapProcess <> -1 then
begin
oItemProcess.dwSize := SizeOf(TProcessEntry32);
lNextProcess := Process32First(hSnapProcess,oItemProcess);
while lNextProcess do
begin
Result := not((StrPas((zv)aExeFile[0]) =
StrPas((zv)oItemProcess.szExeFile[0])) and (nProcessID <>
oItemProcess.th32ProcessID));
if Result then lNextProcess :=
Process32Next(hSnapProcess,oItemProcess)
else
begin
lNextProcess := False;
cParam := '';
for nIndex := 1 to ParamCount do
begin
if cParam <> '' then cParam := cParam + #10;
cParam := cParam + ParamStr(nIndex);
end;
nAtom := GlobalAddAtom(PChar(cParam));
hSnapThread := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,0);
if hSnapThread <> -1 then
begin
oItemThread.dwSize := SizeOf(TThreadEntry32);
lNextThread := Thread32First(hSnapThread,oItemThread);
while lNextThread do
begin
if oItemThread.th32OwnerProcessID =
oItemProcess.th32ProcessID then
EnumThreadWindows(oItemThread.th32ThreadID,(zv)EnumThWnd_BringToFront,nAtom);
lNextThread := Thread32Next(hSnapThread,oItemThread);
end;
end;
GlobalDeleteAtom(nAtom);
end;
end;
CloseHandle(hSnapProcess);
end;
end;
function EnumThWnd_BringToFront;
begin
Result := True;
SendMessage(hWnd,VWM_NEXTINSTANCE,0,lParam);
if IsIconic(hWnd) then ShowWindow(hWnd,SW_RESTORE) else
SetForegroundWindow(hWnd);
end;
{Register}
initialization
begin
VWM_NEXTINSTANCE := RegisterWindowMessage('Next Instance');
end;
end.
//--------------------------------------------------------------------------
------------
Jiri Heinisch H-trading
Danovy a ekonomicky servis
Vyvoj a tvorba ekonomickeho software
http://www.mujweb(tec)cz/www/heinisch/
HeiJu(zv)sol(tec)cz
691 83 Drnholec
>
>
Modalni formular a chyba v aplikaci
[*] Milan Schembera <missoftware(zv)lanskrounsko(tec)cz> - 30.12.1998 22:24:53
Zdravim vsechny !
Nemate nekdo zkusenosti s timhle ??? Situace:
1) mam v aplikaci zobrazen modalne TForm
2) na Application.OnException mam svoji metodu
3) pri uzavreni modalniho dialogu dojde k nejakemu exception, ktery neni
osetren kodem
4) je zavolan muj OnException, ale pri ukonceni teto rutiny se modalni
dialog schova za hlavni formular a aplikace nejde vyvolat jinak, nez pres
Alt-Tab.
Da se nejak osetrit to, aby se ten aktivni modalni formular neschoval ???
S pozdravem a prijemne proziti Vanocnich svatku a stastny novy rok
Milan Schembera
MiSSoftware
tel./fax 0467/521555,0602/463353
mailto:missoftware(zv)lanskrounsko(tec)cz
http://www.lanskrounsko(tec)cz/missoftware
error v NT
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 30.12.1998 22:38:42
Drobna doplnujici otazka. Pouzivas v aplikaci taky funkce Toolhelp - tedy jednotku tlhelp32 ? Jinak je to krajne zajimave, protoze "Funkce pomocnych nastroju" byly implementovany minimalne uz ve Windows 95, takze by v NT mely fungovat taky. Jista prirucka z Microsoft Pressu tvrdi ze Toolhelp je soucasti Win32.
Doporucuji tdumpnout kernel32 a presvedcit se ze tyto funkce exportuje. Pokud ano - mel by - pak je chyba v jednotce tlhelp32.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: Ji�� Heinisch <HeiJu(zv)sol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. prosince 1998 20:38
P�edm�t: error v NT
>Ahoj
>
>Hlaska : " Vstupni bod procedury Thread32Next nebylo mozne v knihovne DLL
>kernel32.dll najit "
>
>
>Nevi nekdo co to je a jak to odstranit.
>
>Ve Win 95 je to OK, ale znamemu to dela NT 4
>
>
> v programu pouzivam TListView, Timer, PageControl, a klasicke vstupni prvky
>.
>
>mam Delphi 3.0
>
>
>diky
>
>Jiri Heinisch H-trading
>Danovy a ekonomicky servis
>Vyvoj a tvorba ekonomickeho software
>http://www.mujweb(tec)cz/www/heinisch/
>HeiJu(zv)sol(tec)cz
>691 83 Drnholec
>
>Modalni formular a chyba v aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.12.1998 01:18:50
Milan Schembera wrote:
>
> Zdravim vsechny !
>
> Nemate nekdo zkusenosti s timhle ??? Situace:
>
> 1) mam v aplikaci zobrazen modalne TForm
> 2) na Application.OnException mam svoji metodu
> 3) pri uzavreni modalniho dialogu dojde k nejakemu exception, ktery neni
> osetren kodem
> 4) je zavolan muj OnException, ale pri ukonceni teto rutiny se modalni
> dialog schova za hlavni formular a aplikace nejde vyvolat jinak, nez pres
> Alt-Tab.
>
> Da se nejak osetrit to, aby se ten aktivni modalni formular neschoval ???
Ahoj,
To muze byt slozitejsi. Kde presne pri uzavreni toho dialogu vznikne ta
vyjimka a jak provadis obsluhu vyjimek v OnException. Zkus spis poslat
ukazku kodu, z toho to bude patrnejsi.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Telefon
[*] BoboX <bobox(zv)atlas(tec)cz> - 31.12.1998 01:35:00
Zdravim vas,
robim programcek pre vytacanie tel. cisiel (v Delphi 2) s pouzitim
"MSCOMM32.OCX" a neviem ako sa da zistit kedy druha strana
zdvihla alebo polozila telefon, je to koli pocitaniu impulzov.
Dik za radu, cau.
--
BoboX
bobox(zv)atlas(tec)cz
Europa
error v NT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.12.1998 01:38:20
Ondrej Krajicek wrote:
>
> Drobna doplnujici otazka. Pouzivas v aplikaci taky funkce Toolhelp - tedy jednotku tlhelp32 ? Jinak je to krajne zajimave, protoze "Funkce pomocnych nastroju" byly implementovany minimalne uz ve Windows 95, takze by v NT mely fungovat taky. Jista prirucka z Microsoft Pressu tvrdi ze Toolhelp je soucasti Win32.
Ahoj,
Kdepak, funkce v unitu TLHelp32 jsou zatim podporovany jen ve Win95. Pro NT existuji
podobne, ted presne nevim ale tusim ze v PSAPI.DLL. Nicmene podle M$ budou v NT5.0:
http://premium.microsoft.com/msdn/library/sdkdoc/winbase/toolhelp_5n1w.htm
Jinak zabraneni spusteni vice jak jedne instance aplikace muzes spolehlive udelat
vice zpusoby, jednim z nich je napriklad tenhle:
http://www.inprise.com/devsupport/delphi/qanda/FAQ1355D.html
Jelikoz uz je dnes Silvestr, tak vsem preji jeho co nejveselejsi proziti a
Stastny Novy Rok 1999.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Silvestr
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 31.12.1998 10:53:09
Vsem Silvestrum a tem co to jeste dneska ctou :
V E S E L Y H O S I L V E S T R A ! ! !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Nashle v pristim roce ;-)
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Word.Basic vs Word.Application
[*] hrenovcik(zv)ns.basl.sk - 31.12.1998 13:55:22
Cavte !
Neviete niekto ako by som dosiahol rovnakeho efektu pri pouziti
Word.Basic ako pri Word.Application s nasledujucim kodom:
W := CreateOleObject('Word.Application');
W.Documents.Open('xxxx.yyy');
W.ActiveDocument.PageSetup.PaperSize := 'x';
viem to asi po :
W := CreateOleObject('Word.Basic');
W.FileOpen('xxxx,yyy');
?????????????????????????????????????
Diky za kazdu radu !
Peter
spravy a dll
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 31.12.1998 14:28:08
ahoj,
mam mensi problem...
je jeden program, povedzme A a ten by chcel posunut tabulkove data jedne
dll.
Jedine co ma napadlo je nieco taketo:
"A" zavola proceduru init v DLL
"DLL" posle spravu "A" ze je ok a moze sa pokracovat
"A" posle prvy riadok DLL zavolanim nejakej metody
"DLL" posle spravu, ze to prijala a je pripravena na dalsi riadok
to cele sa opakuje pre vsetky zaznamy.
Jedine co neviem je poslat a prijat spravu. Inak povedane, este som nikdy
nerobil
som spravami Windows. Ako to preboha funguje?
Ak si niekto najde chvilku a odporuci mi aspon to co si mam precitat.
dakujem
pekny novy rok
Richard Willmann
CopyTable
[*] Petr Posp�il - 31.12.1998 16:23:09
Ahoj !
Tak jsi mel pravdu.Vse funguje.Chybicka se vloud�.
Diky !!! Petr Pospisil
pospisilp(zv)seznam(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. prosince 1998 23:13
P�edm�t: Re: CopyTable
>Petr Posp�il wrote:
>>
>> Zdravim vsechny a preju vse nejlepsi do Nove Roku 1999!
>> Potreboval bych maly help.
>> Jak se da nejlepe a nejrychleji zkopirovat tabulka i s indexy ,treba
pro
>> zalohovani a naopak (pro D3)?
>> Objevil jsem toto,ale bohuzel me to nefunguje a zadna nova tabulka i s
>> indexy se nevytvari!
>
>Ahoj,
>
>To je opravdu zvlastni, me to presne takhle funguje (Paradox). Hlasi ti to
>nejakou chybu ?
>
> CopyTable(Table1, 'X:\Pokus', True);
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>
>NULLovy parametr stored procedure
[*] Arnost Kobylka <Arnost.Kobylka(zv)atlas(tec)cz> - 31.12.1998 17:10:54 -0000
Netusite nekdo jak priradit hodnotu NULL parametru procedury:
Bezne volani je
with CreateParam(...) do As....:=...;
Ale jak tam dostat NULL, to nevim.
Ing. Arno�t Kobylka
C3, s.r.o.
�rob�rova 32
Praha 10
71734608
Invalid Blob length
[*] Roman Toda <normex(zv)mail.pvt.sk> - 31.12.1998 21:45:58
Hmmmm do paradoxu sa mi podari dat aj 5MB vely subor.
-------------------------------------------
Roman Toda
mailto:normex(zv)mail.pvt.sk
http://www.technickenormy.com
Normex l.t.d. - fulltext for technical standard
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. marec 1999 14:34
P�edm�t: Re: Invalid Blob length
Puvodni zprava, kterou napsal Roman Toda dne 27 Mar 99,:
> Stretol sa niekto z Vas s nasledovnou chybou ??
> Pouzivam databazu Sybase cez ODBC a ked vkladam do Memo alebo Blob fieldu
> vacsi (cca 1MB ) subor dostanem takuto spravu. Kde moze byt chyba ??
BDE ma omezeni velikosti BLOBu na 1MB, vic pres BDE nevlozis.
A to jeste musis nastavit v konfiguraci BDE maximum...
Direktiva kompilatoru
[*] Lubo Gabal <Gabal(zv)vadium.sk> - 31.12.1998 22:00:18
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
zdravim
mohla by mi , prosim , nejaka ochotna dusa vysvetlit co je to direktiva kompilatoru ?
vopred vdaka
Lubo Gabal
zaciatocnik
Try dobre zpravy pro uzivatele Sinea generatoru
[*] Ing. Jaroslav �ke��k - 1.1.1999 02:28:33
Prvni dobra zprava je, ze uz mam D5 prof. ostrou verzi doma.
Druha dobra zprava je, ze generator Sinea je jiz preveden do D5
(to jsou fofry ze?)
Treti dobra zprava je, ze jsem se z premiry radosti, ze to tak hezky vsechno
funguje rozhodl, ze verzi D5 generatoru budeme updatovat bezplatne pro vsechny,
kdoz maji alespon verzi 3 - zase jeden spatnej podnikatelskej zamer.
Co se da delat. Cesi jsou proste blazni a programatori zejmena.
Neni to jeste ovsem dostatecne odzkouseny za behu, tak pokud se
najdou nejaci prukopnici z rad nasich vernych zakazniku. Napiste mi
na jaro(zv)sinea(tec)cz - poslu vam to na vyzkouseni.
Jaro
PS.
Nedavno jsme tu vedli diskusi, jak Bill podstrkuje.
Jak se zda Inprise se uz taky nakazil. Nevim, zda-li je to omyl nebo ne,
ale krabice je plna CD-cek. S D5 byl podstrcen i JBuilder 2 a C++Builder 3
a take je tam pekne CD tools for Delphi 5.
Ctyri CD + tistena dokumentace za katalogovou cenu - to tu jeste nebylo.
Vzpominam, kdyz jsem kupoval D3/CS, tak ke katalogove cene
jsem platil jeste 3000,- Kc za nosic CD a dokumentaci.
Zda se, ze to Inprise konecne vzal za spravny konec.
MessageDlg
[*] Ing. Jaroslav �ke��k - 1.1.1999 02:32:48
MessageDLG je WinApi, takze je to lokalizovano s Windows.
Pokud mas caska Windows, tak tam bude ANO, NE.
Jaro
----- Original Message -----
From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 9:08 PM
Subject: Re: MessageDlg
> Cauec,
>
>
> >Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
> >vyznam
> >/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo
ANO,
> >NIE/
>
> Taky jsem to uz hledal, ale nezadarilo se. Takze bych rekl bych ze ne,
> protoze i v nekterych anglickych programech se mi objevuji tlacitka Ano,
Ne,
> takze to vypada na Windows.
>
> >Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> >SysUtils,Dialogs
> >vypise mi ze nepozna mrYes pri teste vysledku.
>
> V unite Controls je definovano mrYes = IDYES
> a v unite Windows IDYES = 6 a ID_YES = IDYES
>
> takze staci doplnit hodnotu 6..
>
> Bye Ludan
>
>Power Point
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 02.1.1999 09:48:05
Ahoj,
potreboval bych ve sve aplikaci spustit PP prezentaci, myslim tim v
nejakem jejim okne (nebo panelu). Nevite nekdo jak na to?
Dekuji
Vaclav Sazima
Re[2]: Zpomaleni wavu
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 02.1.1999 16:43:13
Dne Tue, 29 Dec 1998 13:51:00 +0100 TucekR napsal:
> jak zpomalit, pokud to zpomalis tak logicky se musi zmenit ton......
Sice je to trochu offtopic, ale k tydle poznamce:
Nejak to jit musi, protoze moje vez umi REALTIME zvysovat ci snizovat
vysku vstupu (MIC, CD, TAPE apod.) po pultonech a dela to BEZ ztraty
rychlosti, cili to nejak musi ji i naopak (zpomalit, aniz by se zmenil
ton). Nedelam do toho, pouze myslim, ze je to logicky. Fakt nechapu, jak
to ta vez dela.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
error v NT
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 2.1.1999 22:22:24
To teda cumim, docetl jsem se ze Toolhelp je soucast WIN32, takze logicky (a predevsim) Windows NT. Clovek musi holt brat programatorskou dokumentaci s rezervou. Dik za info.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 31. prosince 1998 2:20
P�edm�t: Re: error v NT
>Ondrej Krajicek wrote:
>>
>> Drobna doplnujici otazka. Pouzivas v aplikaci taky funkce Toolhelp - tedy jednotku tlhelp32 ? Jinak je to krajne zajimave, protoze "Funkce pomocnych nastroju" byly implementovany minimalne uz ve Windows 95, takze by v NT mely fungovat taky. Jista prirucka z Microsoft Pressu tvrdi ze Toolhelp je soucasti Win32.
>
>Ahoj,
>
>Kdepak, funkce v unitu TLHelp32 jsou zatim podporovany jen ve Win95. Pro NT existuji
>podobne, ted presne nevim ale tusim ze v PSAPI.DLL. Nicmene podle M$ budou v NT5.0:
>http://premium.microsoft.com/msdn/library/sdkdoc/winbase/toolhelp_5n1w.htm
>
>Jinak zabraneni spusteni vice jak jedne instance aplikace muzes spolehlive udelat
>vice zpusoby, jednim z nich je napriklad tenhle:
>
>http://www.inprise.com/devsupport/delphi/qanda/FAQ1355D.html
>
>Jelikoz uz je dnes Silvestr, tak vsem preji jeho co nejveselejsi proziti a
>Stastny Novy Rok 1999.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>spravy a dll
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 2.1.1999 22:39:44
Nazdar,
funkci pro posilani a prijem zprav je vic, ale koukni se na postMessage nebo sendMessage to je to co potrebujes. Zalezi na konkretni situlaci. Jinak funkce init v DLL by mela prebirat handle okna, ktere bude zpravy dostavat. Problem nastane, pokud bys chtel aby DLL zpravy prijimala. Pak bys musel v init vytvorit neviditelne okno, napsat k nemu wndProc atd. Pouziti formulare Delphi k tomuto ucelu nedoporucuji.
Nakonec ti jeste doporucim zaregistrovat si pro ucely komunikace vlastni zpravu, a sice pomoci registerWindowMessage. Rozhodne doporucuji odesilat zpravy pomoci neceho jako sendMessageTimeout, bude to rozhodne robustnejsi.
Ondrej Krajicek
PS: Urcite je i lepsi reseni nez posilani zprav, treba pouzit Mutex (createMutex - ale tohle je spis frajerina) nebo pouzit callback funkce. Taky by slo alokovat oblast pameti a predat DLL pointer a velikost, coz vidim jako nejjednodussi a nejlepsi. DLL bezi v pametovem prostoru aplikace, tazke staci obycejny getmem.
Kdyztak se jeste ozvi.
-----P�vodn� zpr�va-----
Od: No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 31. prosince 1998 14:55
P�edm�t: spravy a dll
>ahoj,
>
>mam mensi problem...
>
>je jeden program, povedzme A a ten by chcel posunut tabulkove data jedne
>dll.
>Jedine co ma napadlo je nieco taketo:
>
>"A" zavola proceduru init v DLL
>"DLL" posle spravu "A" ze je ok a moze sa pokracovat
>"A" posle prvy riadok DLL zavolanim nejakej metody
>"DLL" posle spravu, ze to prijala a je pripravena na dalsi riadok
>
>to cele sa opakuje pre vsetky zaznamy.
>
>Jedine co neviem je poslat a prijat spravu. Inak povedane, este som nikdy
>nerobil
>som spravami Windows. Ako to preboha funguje?
>
>Ak si niekto najde chvilku a odporuci mi aspon to co si mam precitat.
>
>
>dakujem
>
>
>pekny novy rok
>
>
>Richard Willmann
>
>NULLovy parametr stored procedure
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 3.1.1999 00:25:27
>Netusite nekdo jak priradit hodnotu NULL parametru procedury:
ParamByName('MyParam').Clear;
S pozdravem, Ladislav Nagy.===========================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
tel. : 02 / 24941962, -63, fax : -64
lada(zv)kolej.mff.cuni(tec)cz , bcpraha(zv)login(tec)cz
BDE
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 3.1.1999 00:50:17
Blbost, ve verzi standard je IS taky.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �nora 1999 15:59
P�edm�t: Re: BDE
> Potrebuji nainstalovat BDE od DELPHI4 ale nechce se mi chodit s =
> instalackou celych DELPHI.
!!! POZOR !!!
a) Podle licence muzes BDE sirit jenom certifikovanym instalacnim pgmem
b) Certifikovanej instalacni pgm je jenom IS
c) IS je jenom od verse Professional vyse
-------------------------------------------------------
=> jemny zpusob, jak znemoznit, aby nekdo pomoci verse Standard
neprodaval (vyvijet doma muzes) DB aplikace.
Tom
P.S.: soubor DEPLOY.TXT (cite):
............................................................
In accordance with the Additional License Terms for BDE,
you may distribute the BDE files with your application
using an INPRISE-certified Redistributable Install program
such as InstallShield Express or another compliant install
program. You may redistribute only those BDE files selected
by the INPRISE-certified installation program.
.............................................................Re[2]: Zpomaleni wavu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 3.1.1999 14:33:06
Na takovehle veci se obvykle pouziva digital signal processor. To je
zcela specializovany brouk, nekde na Torry a DSP jsem na to videl nejake
navody ci snad komponenty, ale musis si k tomu poridit ten procesor. Je
to dost drahe (pokud to chces jen na hrani). Tohle asi ma ta tvoje vez.
SW reseni je samozrejme take mozne, ale tady nemohu slouzit, tahle
oblast me vubec nezajima, zkus to u kamarada mailto:moravec(zv)pc-slany(tec)cz
treba se ti ozve - ma malo casu (mimochodem - jestli si videl kdysi v
esu klip PamPam - tak ta grafika byla jeho prace, zvuk ale dela uz
dlouho).
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: LuborK(zv)tnet(tec)cz [SMTP:LuborK(zv)tnet(tec)cz]
> Odesl�no: 02. ledna 1999 16:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re[2]: Zpomaleni wavu
>
> Dne Tue, 29 Dec 1998 13:51:00 +0100 TucekR napsal:
>
> > jak zpomalit, pokud to zpomalis tak logicky se musi zmenit ton......
> Sice je to trochu offtopic, ale k tydle poznamce:
> Nejak to jit musi, protoze moje vez umi REALTIME zvysovat ci snizovat
> vysku vstupu (MIC, CD, TAPE apod.) po pultonech a dela to BEZ ztraty
> rychlosti, cili to nejak musi ji i naopak (zpomalit, aniz by se zmenil
> ton). Nedelam do toho, pouze myslim, ze je to logicky. Fakt nechapu,
> jak
> to ta vez dela.
>
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
> ICQ: 18587772
spravy a dll
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 3.1.1999 18:05:23
-----Original Message-----
From: Ondrej Krajicek <krajicek(zv)promedia(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 2. janu�r 1999 23:18
Subject: Re: spravy a dll
Nazdar,
funkci pro posilani a prijem zprav je vic, ale koukni se na postMessage nebo
sendMessage to je to co potrebujes. Zalezi na konkretni situlaci. Jinak
funkce init v DLL by mela prebirat handle okna, ktere bude zpravy dostavat.
Problem nastane, pokud bys chtel aby DLL zpravy prijimala. Pak bys musel v
init vytvorit neviditelne okno, napsat k nemu wndProc atd. Pouziti formulare
Delphi k tomuto ucelu nedoporucuji.
- ok, to nepotrebujem
Nakonec ti jeste doporucim zaregistrovat si pro ucely komunikace vlastni
zpravu, a sice pomoci registerWindowMessage. Rozhodne doporucuji odesilat
zpravy pomoci neceho jako sendMessageTimeout, bude to rozhodne robustnejsi.
- ok
Ondrej Krajicek
PS: Urcite je i lepsi reseni nez posilani zprav, treba pouzit Mutex
(createMutex - ale tohle je spis frajerina) nebo pouzit callback funkce.
Taky by slo alokovat oblast pameti a predat DLL
- nemohol by si sa o tom rozpisat? Mam na mysli pouzitie MUTEX a call back
funkciu. Aby som bol presnejsi.
Je program v Gupte alebo v niecom podobnom a v delphi treba spravit nieco co
umozni tlacit bez toho aby sa pouzil konekt na databazu. Summa summarum sa
jedna o najklasickejsie tabulkove vystupy a mojim problemom je ziskat data z
gupty pre seba aby som ich mohol vytlacit.
pointer a velikost, coz vidim jako nejjednodussi a nejlepsi. DLL bezi v
pametovem prostoru aplikace, tazke staci obycejny getmem.
- toto by ma tiez zaujimalo.
Kdyztak se jeste ozvi.
dakujem za ochotu
rw
-----P�vodn� zpr�va-----
Od: No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 31. prosince 1998 14:55
P�edm�t: spravy a dll
>ahoj,
>
>mam mensi problem...
>
>je jeden program, povedzme A a ten by chcel posunut tabulkove data jedne
>dll.
>Jedine co ma napadlo je nieco taketo:
>
>"A" zavola proceduru init v DLL
>"DLL" posle spravu "A" ze je ok a moze sa pokracovat
>"A" posle prvy riadok DLL zavolanim nejakej metody
>"DLL" posle spravu, ze to prijala a je pripravena na dalsi riadok
>
>to cele sa opakuje pre vsetky zaznamy.
>
>Jedine co neviem je poslat a prijat spravu. Inak povedane, este som nikdy
>nerobil
>som spravami Windows. Ako to preboha funguje?
>
>Ak si niekto najde chvilku a odporuci mi aspon to co si mam precitat.
>
>
>dakujem
>
>
>pekny novy rok
>
>
>Richard Willmann
>
>Off Topic - sitova karta EISA/RJ 45
[*] MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz> - 3.1.1999 20:52:45
Omlouvam se za Off Topic a obracim se na pritomne systemaky s timto
dotazem: nevali se u nekoho z vas nahodou nepotrebna sitova karta EISA s
konektorem RJ 45? Na znacce ani parametrech nezalezi, jen aby jela pod
WFW a TCP/IP.
Pripadne mohu nabidnout dve EISA sitove karty s BNC (pro me
neupotrebitelne).
Jakekoliv nabidky smerujte prosim na muj E-mail. Diky.
P.S.: Nevite nekdo o nejake konferenci pres hardware?
P. Mikes
konecne zasa tu
[*] dEViL <koutny(zv)frki.utc.sk> - 3.1.1999 21:33:51
po dlhsej dobe som zasa v konferencii, na uvod
prajem vsetkym mnoho zdaru v novom roku
Pavel Koutny
konecne zasa tu
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 3.1.1999 22:27:11
Samozrejme vsichni v konferenci dekujeme za ruzne blahoprani do noveho roku
apod., ale rad bych vsechny poprosil, aby si takoveto maily nechali od
cesty. Nikdy v konferenci neprosazuji sve nazory, ale pokud mi chodi denne
30 i vice mailu z konference a polovina se tyka zbytecnosti, citim nutnost
se ozvat. Novorocni a jina blahoprani jsou, dle meho nazoru, veci osobnich
mailu a sem vubec nepatri. Neposilejte, prosim tedy, kvanta informacniho
balastu do teto konference!!!!!! Je to neprehledne a musi se to tridit
!!!!!!!
S pozdravem
PK
-----P�vodn� zpr�va-----
Od: dEViL <koutny(zv)frki.utc.sk>
Komu: Delphi Conference <delphi-l(zv)fwd(tec)cz>
Datum: 3. ledna 1999 22:07
P�edm�t: konecne zasa tu
>po dlhsej dobe som zasa v konferencii, na uvod
>prajem vsetkym mnoho zdaru v novom roku
>
>Pavel Koutny
>
-----Puvodn� zpr�va-----
Od: Stepan Cerny <chaosz(zv)geocities.com>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 31. prosince 1998 11:23
Predmet: Silvestr
>Vsem Silvestrum a tem co to jeste dneska ctou :
>
> V E S E L Y H O S I L V E S T R A ! ! !
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
>Nashle v pristim roce ;-)
>
>--
>Stepan "Chaosz" Cerny
> tvoric of software
>chaosz(zv)geocities.com
DBGrid - zakaz Insert
[*] mbartone(zv)Synthesia(tec)cz - 4.1.1999 07:36:42
Ahoj
jak lze zakazat v DBGridu Insert nebo Append noveho zaznamu ?
editaci potrebuji mit povolenou - editace pouze zobrazenych dat, nesmi se
pridat ani smazat radky.
dekuji Milan
Vse nejlepsi.
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 4.1.1999 07:43:25
Pozde ale prece. Vse nejlepsi do noveho roku a diky za vsechny rady.Prosba - font
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 04.1.1999 07:55:43
Ja tez, krajicek(zv)promedia(tec)cz
Vaclav Sazima wrote:
>
> Pripojuji se k prozbe. Vaclav Sazima
>
> Patrik Sl�de�ek wrote:
> >
> > M�m malou prosbu: sh�n�m do IDE Delphi 4 n�jak� slu�n� font: Courier New a
> > Lucida Console u� mi lezou krkem. Pokud n�kdo m�te n�co rozumn�ho
> > neproporcion�ln�ho se st�edoevropsk�m skriptem, budu vd��n� za posl�n�.
> > D�kuji.
> >
> > Patrik Sl�de�ek
> > pasla(zv)iname.com
DBGrid - zakaz Insert
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 4.1.1999 08:08:10
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.
Osetri si na TTable nebo TQuery udalosti BeforeInsert a BeforeDelete
dej tem treba :
procedure TForm1.Table1OnDelete....
begin
MessageDlg('Zaznamy nelze vymazavat !', mtWarning, [mbOK], 0);
Abort;
end;
nebo primo vyvolej vyjimku :
procedure TForm1.Table1OnDelete....
begin
raise Exception.Create('Zaznamy nelze vymazavat !');
end;
Taky muzes odchytavat klavesy Ins a Ctrl-Del, a mas-li i DBNavigator,
tak i schovat tlacitka + a - ale to je takovy...
...divny.
D.> ----------
> Od: mbartone(zv)Synthesia(tec)cz[SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 4. ledna 1999 7:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DBGrid - zakaz Insert
>
>
>
> Ahoj
>
> jak lze zakazat v DBGridu Insert nebo Append noveho zaznamu ?
> editaci potrebuji mit povolenou - editace pouze zobrazenych dat, nesmi
> se
> pridat ani smazat radky.
>
> dekuji Milan
>
>
>
>
> spravy a dll
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 04.1.1999 08:16:50
No Comment Group, s.r.o. / Sales Department wrote:
>
> -----Original Message-----
> From: Ondrej Krajicek <krajicek(zv)promedia(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Date: 2. janu�r 1999 23:18
> Subject: Re: spravy a dll
>
> Nazdar,
>
> PS: Urcite je i lepsi reseni nez posilani zprav, treba pouzit Mutex
> (createMutex - ale tohle je spis frajerina) nebo pouzit callback funkce.
> Taky by slo alokovat oblast pameti a predat DLL
>
> - nemohol by si sa o tom rozpisat? Mam na mysli pouzitie MUTEX a call back
> funkciu. Aby som bol presnejsi.
No misto posilani zprav muzes pouzit Mutex, to je synchronizacni objekt,
ktery pouzivaji Windows k synchronizaci (predevsim threadu). Ma dva
stavy
signalizovany a nesignalizovany. No takze aplikace treba posle prvni
cast
dat a v init preda jmeno mutexu a ta knihovna jej nastavi jako
signalizovany.
No a az zpracuje data tak jej zase uvolni, takze aplikace, kdyz to
zjisti
muze posilat dal.
Co se callback funkci tyka, proste predas DLL knihovne
ukazatel na nejakou funkci, ktera bude napr. vracet potrebna data, cast
po
casti, nebo proste nastavi v aplikaci priznak, ze se muze posilat dal.
Ta funkce by mela byt stdcall.
> pointer a velikost, coz vidim jako nejjednodussi a nejlepsi. DLL bezi v
> pametovem prostoru aplikace, tazke staci obycejny getmem.
> - toto by ma tiez zaujimalo.
Tak tohle bude trosku slozitejsi na provedeni. Staci nadeklarovat
promenou
ukazatel, a sice bez typu. Pak pro tento pointer alokujes pamet,
dostatecne
velkou, aby se tam vlezl cely obsah nebo jeho cast. No a ted se dostavam
k te slozitosti. Nejjednodussi zpusob, jak zapsat do pameti pomoci
Delphi je TMemoryStream, ten si ale svuj buffer alokuje sam. Teoreticky
to neni problem, protoze poskytuje ukazatel na svuj buffer, ale mam
ten dojem, ze kdyz tento objekt zrusis, tak se buffer zrusi taky, coz
by mohlo spatne dopadnout. Nejjednodussi by asi bylo napsat potomka
TCustomMemoryStream, napr. TXMemoryStream, ktery v konstruktoru
prebiral ukazatel a velikost, a pak bys v tomto konstruktoru
proste zavolal TCustomMemoryStream.setPointer a nastavil. No a az
by bylo zapsano, proste bys predal tento ukazatel knihovne
i s velikosti.
Tohleto, ale muze byt docela narocne na pamet, takze bych to asi
takhle posilal po castech, treba po strankach nebo tak, a pouzil
nekterou z vyse zminenych synchronizacnich metod. Treba tu callback
funkci, ktera by mohla ten samy ukazatel opet naplnit daty
a vratit velikost.
>
> Kdyztak se jeste ozvi.
>
> dakujem za ochotu
neni zac
Ondrej Krajicek
krajicek(zv)promedia(tec)cz
IB 5.5 > Mirror x shadow ??
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 4.1.1999 08:51:49
Hi all,
musim nainstalovat cerstve koupenou IB 5.5 a nevim, zda je lepsi
instalovat ja na zrcadleny svazek, nebo na obycejny s pouzitim stinoveho
souboru.
Jake s tim mate zkusenosti??
svazek je NTFS na SCSI......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
Cizi Edit
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 4.1.1999 09:13:00
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj Delphisti,
mam zase jeden dotaz, lze nejak nastavit hodnotu
ciziho Edit-u ? Je-li napr. v nejake cizi aplikaci
formular a na nem komponenta, ktera ma vlastnost text
(TEdit) a ta aplikace normalne bezi, lze tento text
z jine aplikace zmenit ? (Musim asi zjistit jeji nazev
nebo typ ne ?)
Tak rekneme napriklad, ze bezi MSIE a ja bych do Edit-u
Adresa chtel z jine aplikace dosadit jiny vlastni text.
Pozn.: V konkretnim prikladu se nejedna primo o MS IE !
PS : Jak je to s tim "Quick Helpem" ?
Diky...
...Dobra.Nahrada komponent
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 4.1.1999 09:35:06
Ahoj
uvodem preji vsem vsechno nejlepsi v novem roce a dekuji vsem za
cenne rady.
Muj problemek je nasledujici: potrebuji nahradit hromadne komponentu
za jinou napr. TButton za TBitBtn nebo TEdit za TMaskEdit (vetsi mnozstvi
30-50 na formu). Lze to nejak jednoduse udelat, aniz bych musel editovat DFM
ve zdrojovem tvaru? Jedna se mi o to, aby velikost, postaveni i dalsi
parametry byly zachovany.
Diky
Jaro B.TDatabase, Paradox a transakce
[*] Filous Ji�� <JFilous(zv)cpoj(tec)cz> - 4.1.1999 10:31:44
Ahoj,
m�l bych dotaz t�kaj�c� se komponenty TDatabase, Paradoxov�ch
tabulek
a mo�nosti pou��t transakce.
M�m n�kolik datab�z� v nich� se d�laj� zm�ny kter� spolu souvis�,
kdyby jen jedna z nich nedob�hla, tak m�m okam�it� nedefinovan� stav
datab�z� a jsem v....
V nab�dce komponent je i TDatabase kter� nejsp� transakce podporuje
ale nikde nem�m popis jak s n� pracovat.
Porad� mi n�kdo ?
P�edem d�ky.
Jirka Filous
error v NT
[*] V�t�zslav Gazda������u��n�?��? - 4.1.1999 10:34:55
Autorem toho zrdojaku jsem ja. Pokud si ho stahoval z mych stranek, tak tam bylo take napsano, ze to je jen pro Windows 95. Ve Windows NT je jina knihovna kernel a funkce Process32First, Process32Next, Thread32First, Thread32Next v ni nejsou. Avsak predcasem zde v konferenci nekdo napsal, ze se da nekde sehnat nejaka knihovna pro Windows NT, ktera ty funkce v sobe ma. Pokud o tom nekdo ma presnejsi informace, tak da urcite vedet.
Vita
Seminar jeste jednou
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 4.1.1999 11:01:09
Haj hou!
Nejede nekdo z vas z Prahy autem ve stredu 6.1. do Belohradu ? Rad prispeji
na benzin, pripadne uvitam jakekoliv informace o spojeni z Prahy (nejsem si
jist, zda tam neco do 9:00 jede).
Predem diky za kazdou odpoved.textove tiskove sestavy
[*] Soudny, Jiri <Jiri.Soudny(zv)oriflame(tec)cz> - 4.1.1999 11:41:39
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj v 99!
Vite nekdo o sikovnem nastroji, kterym by se daly snadno vyrabet textove
tiskove sestavy?
Tj aby tiskarna tiskla v textovem rezimu (rychle).
Diky
Jirka
Nahrada komponent
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 4.1.1999 11:48:35
-----P�vodn� zpr�va-----
> Muj problemek je nasledujici: potrebuji nahradit hromadne komponentu
>za jinou napr. TButton za TBitBtn nebo TEdit za TMaskEdit (vetsi mnozstvi
>30-50 na formu). Lze to nejak jednoduse udelat, aniz bych musel editovat
DFM
>ve zdrojovem tvaru? Jedna se mi o to, aby velikost, postaveni i dalsi
>parametry byly zachovany.
>
>Diky
>
>Jaro B.
>
Pokud mas Delphi 4, tak na to je nejlepsi GExperts
(www.gexperts.com/gexperts). Existuje verze i pro D3, ale nevim, jestli to
tam bylo.
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Nahrada komponent
[*] RADIK(zv)p15.monet(tec)cz - 4.1.1999 11:49:00
Pouzij GExperts. To je Freeware, pro D3 a D4 a umi i spoustu jinych
veci. Napr. lze jednodude menit poradi komponent pri TABu, hledat v
celem projektu (grep), prohlizet historii v clipboardu a tak dale a tak
dale...... Proste vrele doporucuji.
Adresa: http://www.gexperts.com/gexperts/
Ales
----------
Od: Bene� Jaroslav
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Nahrada komponent
Datum: 4. leden 1999 9:35
Ahoj
uvodem preji vsem vsechno nejlepsi v novem roce a dekuji vsem za
cenne rady.
Muj problemek je nasledujici: potrebuji nahradit hromadne
komponentu
za jinou napr. TButton za TBitBtn nebo TEdit za TMaskEdit (vetsi
mnozstvi
30-50 na formu). Lze to nejak jednoduse udelat, aniz bych musel editovat
DFM
ve zdrojovem tvaru? Jedna se mi o to, aby velikost, postaveni i dalsi
parametry byly zachovany.
Diky
Jaro B.QuikHelp (nebo jaxe tomu rika)
[*] Mik Radim <mik(zv)oce(tec)cz> - 4.1.1999 12:19:24
Na formulari v BorderIcons je potreba nastavit biMinimaze a biMaximaze
na False a biHelp na True. V Project/Options nastavit Help soubor a na
formulari nastavit pro vsechny komponenty Help context.
> Neznate nekdo nahodou nejakou fintu, jak zobrazovat
> takovou tu RychloNapovedu, kdy je v titulkovem pruhu
> talcitko s otaznikem, co kdyz na nej klepnete Vam
> zmeni kurzor na takovou tu sipku s tim otaznikem
> a potom klepnutim se zobrazi napoveda.
> Cizi Edit
[*] Filip Jirsak <JIRSAK(zv)gymnacel(tec)cz> - 4.1.1999 12:20:20
> Subject: Cizi Edit
> Date sent: Mon, 4 Jan 1999 09:13:00 +0100
> Send reply to: delphi-l(zv)fwd(tec)cz
>
> Ahoj Delphisti,
> mam zase jeden dotaz, lze nejak nastavit hodnotu
> ciziho Edit-u ? Je-li napr. v nejake cizi aplikaci
> formular a na nem komponenta, ktera ma vlastnost text
> (TEdit) a ta aplikace normalne bezi, lze tento text
> z jine aplikace zmenit ? (Musim asi zjistit jeji nazev
> nebo typ ne ?)
Ve Win32 jsou ovladaci prvky zvlastni druhy oken, melo by jit zjistit
jejich Handle a pak mu poslat zpravu. (Tou prvni casti si nejsem
jisty na 100%, ale urcite to jde zmenit zpravou.)
Filip Jirsak*************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
textove tiskove sestavy
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 4.1.1999 12:50:09
Ano, tohle ma sinea, ale musis si o to pozadat. Ja to sice od nich
_dostal_(kez jim nikdy nevypadaji fousy), ale myslim ze to nesmim sirit
dal ( a nechci je tim zlobit:-) - natoz porusovat nejaka prava.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Soudny, Jiri [SMTP:Jiri.Soudny(zv)oriflame(tec)cz]
> Odesl�no: 04. ledna 1999 11:42
> Komu: 'DELPHI, konference'
> P�edm�t: textove tiskove sestavy
>
> Ahoj v 99!
> Vite nekdo o sikovnem nastroji, kterym by se daly snadno vyrabet
> textove tiskove sestavy?
> Tj aby tiskarna tiskla v textovem rezimu (rychle).
>
> Diky
>
> Jirka
> mys s koleckem navic a DELPHI 3
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 4.1.1999 14:56:00
Ahojky pratele a pratelky
Mam jeden maly problemek. Poridil jsem si (jako mnoho jinych) mys s
koleckem navic a zajima mne, jak toho kolecka lepe vyuzit. Napriklad v
TComboBox chodi sama bez problemu (tocim koleckem a meni se mi vse z
ComboBoxu). Ovsem nechodi v TDBGrid a tam by se mi prave libila nejvic.
Nevi ctena verejnost co s tim? (zda se to vubec da)
Dekuji
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Marco Cantu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 4.1.1999 15:10:14
Zdravim,
na kteremsi CHIP CD jsem objevil pomucku od Marca Cantu, ktera umoznila
prepnout panel komponent do MultiLine rezimu. Bohuzel nechodi v Delphi
4. Mate nekdo novejsi?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:libor.krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:elka(zv)seznam(tec)cz .
.........................................................
WINSOCK
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 4.1.1999 15:46:51
Nazdar,
mam takovy problemek. Nevite nekdo o dobrem zdroji informaci o Winsock API a Winsock 2 API ? Myslim dokumentaci, priklady a tak, pokud mozno napsano s ohledem na Delphi, ale prectu i C++ nebo MSVB. Rozhodl jsem se totiz ze se vykaslu na vsechny mozne komponenty a pouziju primo Winsock.
Ondrej Krajicek
PS: Nevite nekdo, jake jsou licenci podminky na sireni wininet.dll ?mys s koleckem navic a DELPHI 3
[*] boro(zv)gratex.sk - 4.1.1999 16:13:45
Ahoj
Pozri si v help-e popis k sprave WM_MOUSEWHEEL. Na tuto spravu zavesis
klaisckym sposobom ovladac (vid pripadne znovu help).
Neviem, ci je to uz sucastou D3, takze z D4:
// from Messages.pas
TWMMouseWheel = record
Msg: Cardinal;
Keys: SmallInt;
WheelDelta: SmallInt;
case Integer of
0: (
XPos: Smallint;
YPos: Smallint);
1: (
Pos: TSmallPoint;
Result: Longint);
end;
....
// from Messages.pas
{$EXTERNALSYM WM_MOUSEWHEEL}
WM_MOUSEWHEEL = $020A;
....
procedure WMMouseWheel(var Message: TWMMouseWheel);message
WM_MOUSEWHEEL;
.....
S pozdravom
Boris Becvarov
mailto:boro(zv)gratex.sk
-----Original Message-----
Mam jeden maly problemek. Poridil jsem si (jako mnoho jinych) mys s
koleckem navic a zajima mne, jak toho kolecka lepe vyuzit.Cizi Edit
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 4.1.1999 16:35:02
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.
Blbe jsem se vyjadril, myslel jsem tim, zda
mohu menit libovolne vlastnosti, nejen Text,
ale treba i Color, Font a pod...
Dobra.
Diky.
> ----------
> Od: Filip Jirsak[SMTP:JIRSAK(zv)gymnacel(tec)cz]
> Odesl�no: 4. ledna 1999 12:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Cizi Edit
>
> > Subject: Cizi Edit
> > Date sent: Mon, 4 Jan 1999 09:13:00 +0100
> > Send reply to: delphi-l(zv)fwd(tec)cz
> >
> > Ahoj Delphisti,
> > mam zase jeden dotaz, lze nejak nastavit hodnotu
> > ciziho Edit-u ? Je-li napr. v nejake cizi aplikaci
> > formular a na nem komponenta, ktera ma vlastnost text
> > (TEdit) a ta aplikace normalne bezi, lze tento text
> > z jine aplikace zmenit ? (Musim asi zjistit jeji nazev
> > nebo typ ne ?)
> Ve Win32 jsou ovladaci prvky zvlastni druhy oken, melo by jit zjistit
> jejich Handle a pak mu poslat zpravu. (Tou prvni casti si nejsem
> jisty na 100%, ale urcite to jde zmenit zpravou.)
> Filip Jirsak*************************************************
> Filip Jirsak
> e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
> e-mail: Jirsak(zv)mujmail(tec)cz
> autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
>
>
>
> Refresh u TQuery
[*] Lubo Fule <fule(zv)sct.sk> - 4.1.1999 16:53:14
To je uplne logicke, u TTable sa Refresh totiz vykonava tak isto, az na to,
ze je znamy primarny kluc, takze BDE to vie urobit automaticky
(ulozi hodnotu prim. kluca - zatvori table - otvori table - vystavi sa podla
ulozenej hodnoty prim kluca). Mozes si to vyskusat s tabulkou bez primarneho
kluca a refresh spadne z hlaskou, ze tabulka nema prim. kluc, takze sa nema
podla coho vystavit na zaznam...
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Tomas Holan
> Sent: Wednesday, December 30, 1998 12:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Refresh u TQuery
>
>
> >
> > Nezna nekdo nejaky figl jak provest Refresh u TQuery aniz
> > by bylo nutne davat Close, Open ?
> >
> Metodu Refresh jsem zkousel rozchodit (i dotazy do news a
> mozna i do teto konference) uz pred lety, nepodarilo se.
> Nenasle jsem (ani v demech ani jinde0 priklad, kde by
> se pouzivala, vsude jen Close+Open+NajitPuvodniZaznam.
>
> Tom
>
LPT
[*] Ondrej Jaura <jaura(zv)redbull.dcs.fmph.uniba.sk> - 4.1.1999 16:55:05
Zdravim :) Potreboval by som zapisovat a citat jednotlive bity na LPT porte.
Program je robeny v D4 a mal by bezat pod W95.
(Mam vyuzit Lpt.VxD ? Ak ano, ako ?) Dakujem
Ondrej Jaura
-----------------
Ondrej Jaura
student 1.rocnika MFF UK Bratislava, odbor: informatika
e-mail: jaura(zv)redbull.dcs.fmph.uniba.sk
homepage: http://redbull.dcs.fmph.uniba.sk/~jaura
on-line: talker Tri Tulene - netopier.dnp.fmph.uniba.sk 5678 (Kerberos)
-----------------
Filter v datovom type Memo (Paradox) & Unikatnost
[*] Ondrej Jaura <jaura(zv)redbull.dcs.fmph.uniba.sk> - 4.1.1999 16:55:52
Zdravim :)
I.
Potreboval by som filtrovat udaje v datovom type Memo v Paradox-e.
Najviac by mi to vyhovovalo cez SQL (TQuery.SQL), pripadne aj cez
Filter (property v TQuery (i TTable)), resp. Filtered:=true a OnFilter...
II.
Pri pridavani do tabulky Paradox-u, je mozne sa spolahnut na
vyvolanie vynimky pri pridavani uz zaznamu s uz existujucim primarnym
indexom? Alebo si to mam osetrit sam? (aky je najrychlejsi sposob?)
III.
Ake mate skusenoti s tabulkami Paradox-u, ak jeden zaznam ma cca
500 B a tabulka (databazovy subor) by mala obsahovat radovo 10e3 zaznamov?
(Tabulka ma jeden primarny index, nevyuziva ziadne Memo, ...).
Dakujem
Ondrej Jaura
-----------------
Ondrej Jaura
student 1.rocnika MFF UK Bratislava, odbor: informatika
e-mail: jaura(zv)redbull.dcs.fmph.uniba.sk
homepage: http://redbull.dcs.fmph.uniba.sk/~jaura
on-line: talker Tri Tulene - netopier.dnp.fmph.uniba.sk 5678 (Kerberos)
-----------------
Seminar jeste jednou
[*] Milan Kunes <milk(zv)milk(tec)cz> - 4.1.1999 18:25:46
My ve stredu rano jedem, tri lidi se k nam urcite vejdou, volejte
02/20980706 - Milan Kunes
-----P�vodn� zpr�va-----
Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 11:15
P�edm�t: Seminar jeste jednou
>Haj hou!
>
>Nejede nekdo z vas z Prahy autem ve stredu 6.1. do Belohradu ? Rad prispeji
>na benzin, pripadne uvitam jakekoliv informace o spojeni z Prahy (nejsem si
>jist, zda tam neco do 9:00 jede).
>
>Predem diky za kazdou odpoved.
>
>LPT
[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 4.1.1999 18:41:47
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.
Tiez by ma zaujimalo, ale pre D3, takze odpovedajte
prosim do konferencie. Dakujem.
Dobra.
> ----------
> Od: Ondrej Jaura[SMTP:jaura(zv)redbull.dcs.fmph.uniba.sk]
> Odesl�no: 4. ledna 1999 17:55
> Komu: Konferencia Delphi
> P�edm�t: LPT
>
> Zdravim :)
>
>
> Potreboval by som zapisovat a citat jednotlive bity na LPT
> porte.
> Program je robeny v D4 a mal by bezat pod W95.
>
> (Mam vyuzit Lpt.VxD ? Ak ano, ako ?)
>
>
> Dakujem
> Ondrej Jaura
>
>
> -----------------
> Ondrej Jaura
>
> student 1.rocnika MFF UK Bratislava, odbor: informatika
>
> e-mail: jaura(zv)redbull.dcs.fmph.uniba.sk
> homepage: http://redbull.dcs.fmph.uniba.sk/~jaura
> on-line: talker Tri Tulene - netopier.dnp.fmph.uniba.sk 5678
> (Kerberos)
> -----------------
>
>
>
>
> mys s koleckem navic a DELPHI 3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.1.1999 18:55:39
Richard Valny wrote:
>
> Ahojky pratele a pratelky
> Mam jeden maly problemek. Poridil jsem si (jako mnoho jinych) mys s
> koleckem navic a zajima mne, jak toho kolecka lepe vyuzit. Napriklad v
> TComboBox chodi sama bez problemu (tocim koleckem a meni se mi vse z
> ComboBoxu). Ovsem nechodi v TDBGrid a tam by se mi prave libila nejvic.
> Nevi ctena verejnost co s tim? (zda se to vubec da)
Ahoj,
Mys s koleckem zasila zpravu WM_MOUSEWHEEL, takze by jsi musel odvodit
novou komponentu od TDBGridu a v ni to dopsat. Nejdriv se ale radsi
podivej na DSP jestli uz nekdo neco takoveho neudelal.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
konecne zasa tu
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 4.1.1999 19:29:05
Ono tech blahoprani az zas tolik neni,
aby se kricelo. Kolik si jich napocital?? S pozdravem
================================
> Pavel Malinsky; Spiderland(zv)usa.net <
>==============================<
> ...The Truth Is Out There... <
================================
-----P�vodn� zpr�va-----
Od: Petr Kro�a ml. <pkroca(zv)compact(tec)cz>
Komu: Delphi KONFERENCE <delphi-l(zv)fwd(tec)cz>
Datum: 3. ledna 1999 22:53
P�edm�t: re: konecne zasa tu
Samozrejme vsichni v konferenci dekujeme za ruzne blahoprani do noveho roku
apod., ale rad bych vsechny poprosil, aby si takoveto maily nechali od
cesty. Nikdy v konferenci neprosazuji sve nazory, ale pokud mi chodi denne
30 i vice mailu z konference a polovina se tyka zbytecnosti, citim nutnost
se ozvat. Novorocni a jina blahoprani jsou, dle meho nazoru, veci osobnich
mailu a sem vubec nepatri. Neposilejte, prosim tedy, kvanta informacniho
balastu do teto konference!!!!!! Je to neprehledne a musi se to tridit
!!!!!!!
S pozdravem
PK
Nahrada komponent
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 4.1.1999 19:32:14
Existuje i jednodussi zpusob, ale nemam ho vyzkouseny. V Delphi klikni na formular a zvol "Edit as text". Potom dej proste Edit-Replace a nahrad TButton za TBitBtn (replace all), atd. Ovsem doporucuji napred zalohu, opravdu to nemam vyzkousene.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 12:44
P�edm�t: RE: Nahrada komponent
Pouzij GExperts. To je Freeware, pro D3 a D4 a umi i spoustu jinych
veci. Napr. lze jednodude menit poradi komponent pri TABu, hledat v
celem projektu (grep), prohlizet historii v clipboardu a tak dale a tak
dale...... Proste vrele doporucuji.
Adresa: http://www.gexperts.com/gexperts/
Ales
----------
Od: Bene� Jaroslav
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Nahrada komponent
Datum: 4. leden 1999 9:35
Ahoj
uvodem preji vsem vsechno nejlepsi v novem roce a dekuji vsem za
cenne rady.
Muj problemek je nasledujici: potrebuji nahradit hromadne
komponentu
za jinou napr. TButton za TBitBtn nebo TEdit za TMaskEdit (vetsi
mnozstvi
30-50 na formu). Lze to nejak jednoduse udelat, aniz bych musel editovat
DFM
ve zdrojovem tvaru? Jedna se mi o to, aby velikost, postaveni i dalsi
parametry byly zachovany.
Diky
Jaro B.Gener�tor SINEA
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 04.1.1999 19:32:31
Reknete mi prosim nekdo, jestli umi generator SINEA pri prohlizeni
sestavy v okne vyhledavat zadany text.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/7755345
038/7512861
Listbox v W98
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 4.1.1999 19:58:55
Ahojky,
mam malinky problem s listboxem v W98. Nejak divne scrolluje nahoru a dolu.
T�hnut� mysi na slideru
se jeste da prekousnout, ale co to dela kdyz na klavesce jdu nahoru nebo
dolu, to bych brecel =(
Nevite nejakou cirou nahodou, jak to napravit ci nemate nejakou komponentu
podedenou od TListbox,
ktera by byla v pohode???
Pro uplnost - Pouzivam D4
Za odpovedi dekuje
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Seminar jeste jednou
[*] Milan Kunes <milk(zv)milk(tec)cz> - 4.1.1999 20:15:21
-----P�vodn� zpr�va-----
Od: Milan Kunes <milk(zv)milk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 18:25
P�edm�t: Re: Seminar jeste jednou
>My ve stredu rano jedem, tri lidi se k nam urcite vejdou, volejte
>02/20980706 - Milan Kunes
>
>
>-----P�vodn� zpr�va-----
>Od: Pavel Cisar <pcisar(zv)aktis(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 4. ledna 1999 11:15
>P�edm�t: Seminar jeste jednou
>
>
>>Haj hou!
>>
>>Nejede nekdo z vas z Prahy autem ve stredu 6.1. do Belohradu ? Rad
prispeji
>>na benzin, pripadne uvitam jakekoliv informace o spojeni z Prahy (nejsem
si
>>jist, zda tam neco do 9:00 jede).
>>
>>Predem diky za kazdou odpoved.
>>
>>
>
>
>
>
Stmivani v Install
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 4.1.1999 20:16:00
Zdarec,
teoretickych rad uz tu bylo vic nez dost, tak to zakoncim jednou praktickou.
Proceduru jsem vyjmul z jiste komponenty jmenem TProcset. Da se na tom
zmenit
dost veci, aby to bylo rychlejsi. Pouzi to jako studijni material:
procedure MakeVerticalGrad(C: TCanvas;w,h: integer;BClr,EClr: TColor);
var
ColorRect: TRect;
R, G, B : Byte;
I,FromR,FromG,FromB,DiffR,DiffG,DiffB: integer;
begin
FromR:=BClr and $000000ff;
FromG:=(BClr shr 8) and $000000ff;
FromB:=(BClr shr 16) and $000000ff;
DiffR:=(EClr and $000000ff)-FromR;
DiffG:=((EClr shr 8) and $000000ff)-FromG;
DiffB:=((EClr shr 16) and $000000ff)-FromB;
ColorRect.Left:=0;
ColorRect.Right:=W;
for I :=0 to 255 do
begin
ColorRect.Top:= MulDiv (I,H,256);
ColorRect.Bottom:= MulDiv (I+1,H,256);
R := fromr + MulDiv(I,diffr,255);
G := fromg + MulDiv(I,diffg,255);
B := fromb + MulDiv(I,diffb,255);
C.Brush.Color := RGB(R,G,B);
C.FillRect(ColorRect);
end;
end;
snad to pomuze, caf Pavel
-----Original Message-----
From: Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 2. ledna 1999 21:03
Subject: Re: Stmivani v Install
>>Muj problem spociva v zobrazeni efektu postupneho stmivani vybrane barvy
>pres celou obrazovku napriklad z vrchu dolu. Tento efekt je nejcasteji
videt
>v instalacnich programech. Zkousel jsem to pomoci prikazu
>RGB(0-255,0-255,0-255) ale hezky efekt to melo az v rozliseni 16.7 mil.
>barev. coz je absolutne nedostacujici. Nechci pouzit nejakou bitmapu,
>protoze se obvam zbytecne velikosti EXE souboru. Mozna jsem pouzil spatny
>algoritmus , proto bych ocenil nejaky priklad programu napr. se smyckou
FOR,
>pro 256 barevnou grafiku s prihlednutim na rozliseni obrazovky.
>
>1. Existuje na to docela dost komponent, jen se trochu porozhlednout.
>
>2. Pokud to chces delat rucne, coz bude asi rychlejsi a i to zabere mene
>pameti, tak myslim, ze chyba je ve zpusobu vykreslovani. Pokud to
>vykreslujes
>po pixelech, tak to v mensi barevne hloubce (16 nebo 256 barev) nemusi
>vypadat nejlepe. Vykresluj to po malych ctverecich (canvas.Fillrect).
>Tam se Windows sami postaraji a nejaky ten dithering a napr. prechod
>CERNA-MODRA, ktery se pouziva v instalacnich programech, muze potom vypadat
>prijatelne i v 16 barvach.
>
>Jinak bych take doporucoval pri tom pouzivat barevnou paletu, jinak budou
>Windows i ve 256 barvach pouzivat pouze systemove barvy (prvnich a
>poslednich 10 barev v palete).
>
>Vojtech Semecky
>
>Listbox v W98
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.1.1999 20:39:20
Pavel Serbajlo wrote:
>
> Ahojky,
> mam malinky problem s listboxem v W98. Nejak divne scrolluje nahoru a dolu.
> T�hnut� mysi na slideru
> se jeste da prekousnout, ale co to dela kdyz na klavesce jdu nahoru nebo
> dolu, to bych brecel =(
> Nevite nejakou cirou nahodou, jak to napravit ci nemate nejakou komponentu
> podedenou od TListbox,
> ktera by byla v pohode???
> Pro uplnost - Pouzivam D4
Ahoj,
Pouzil jsi na D4 Update Pack #2 ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Filter v datovom type Memo (Paradox) & Unikatnost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.1.1999 21:18:01
Ondrej Jaura wrote:
>
> Zdravim :)
>
> I.
> Potreboval by som filtrovat udaje v datovom type Memo v Paradox-e.
>
> Najviac by mi to vyhovovalo cez SQL (TQuery.SQL), pripadne aj cez
> Filter (property v TQuery (i TTable)), resp. Filtered:=true a OnFilter...
Ahoj,
Me se to nepovedlo, pri filtrovani nejsou dostupne BLOB data. Zkousel jsem to
i obejit s boolean calculated polozkou kterou bych pouzil jako mezivysledek
podminky a pak ji dal do filtru, ale to taky nejde :-)
> II.
> Pri pridavani do tabulky Paradox-u, je mozne sa spolahnut na
> vyvolanie vynimky pri pridavani uz zaznamu s uz existujucim primarnym
> indexom? Alebo si to mam osetrit sam? (aky je najrychlejsi sposob?)
Me to zatim funguje bez problemu.
> III.
> Ake mate skusenoti s tabulkami Paradox-u, ak jeden zaznam ma cca
> 500 B a tabulka (databazovy subor) by mala obsahovat radovo 10e3 zaznamov?
> (Tabulka ma jeden primarny index, nevyuziva ziadne Memo, ...).
Zalezi dost na tom, jestli to budes provozovat v siti nebo jen jako single-user.
Podivej se do archivu konference, uz se to zde probiralo. Pokud si pamatuji, tak
jedna z dobrych rad byla nastavit v BDE Adminu TABLE LEVEL na 7 a mit tak i vsechny
tabulky. Potom tez existuji i nejake chybne verze sitovych driveru ktere zpusobuji
problemy.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Gener�tor SINEA
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.1.1999 21:28:53
O takove moznosti nevim. zjistim, co se pro to da udelat.
Jako napad to ovsem neni spatny
Zjistim kolik by to dalo prace a zda je jeste
mozne zaradit takovou funkci do nove verze.
Jaro
-----P�vodn� zpr�va-----
Od: Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 20:09
P�edm�t: Gener�tor SINEA
>Reknete mi prosim nekdo, jestli umi generator SINEA pri prohlizeni
>sestavy v okne vyhledavat zadany text.
>
>--
>Ing. Jindrich Danihelka
>E-Mail jidas(zv)mbox.vol(tec)cz
>Tel. 038/7755345
> 038/7512861
>textove tiskove sestavy
[*] Jaro <jaro(zv)sinea(tec)cz> - 4.1.1999 21:41:26
Pokud potrebujes opravdu jednoduchej editor,
tak takovej mame a poskytujeme ho bezplatne
i se zdrojema. Da se tam ledacos i okouknout.
Nebo muzes ziskat novou verzi generatoru sestav,
kde je rychly znakov vystup (tzv. draft rezim)
integrovan primo do naseho generatoru sestav
a je tak mozno vyuzit vsech vymoznosti kompletniho generatoru
sestav i ve znakovem rezimu. O nasem generatoru
se vice dozvis na www.sinea(tec)cz , kde je mozne stahnou
i demonstracni verzi, doumentaci, priklady ...
Demo je zatim bez znakovem tisku.
Nova verze s interovanym znakovym tiskem (o niz pisu)
je ve stadiu konecneho testovani a bude v prodeji
bzo (v prubehu ledna) za normalni ceny (viz cenik).
Jaro
-----P�vodn� zpr�va-----
Od: Soudny, Jiri <Jiri.Soudny(zv)oriflame(tec)cz>
Komu: 'DELPHI, konference' <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 13:42
P�edm�t: textove tiskove sestavy
>Ahoj v 99!
>Vite nekdo o sikovnem nastroji, kterym by se daly snadno vyrabet textove
>tiskove sestavy?
>Tj aby tiskarna tiskla v textovem rezimu (rychle).
>
>Diky
>
>Jirka
>
>Outer Join
[*] Matej Prochazka <harnod(zv)atlas(tec)cz> - 04.1.1999 22:18:38
Zdravim vsechny,
nemohli byste mi nekdo poslat priklad (funkcni), kterak spojit jednu
hlavni a dve (a vice) dalsich tabulek pomoci outer join?
Diky predem
--
================================
Matej Prochazka
Programatorsky amater
================================
harnod(zv)atlas(tec)cz
http://www.mujweb(tec)cz/www/harnod/
LPT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.1.1999 23:58:57
Ondrej Jaura wrote:
>
> Zdravim :)
>
> Potreboval by som zapisovat a citat jednotlive bity na LPT porte.
> Program je robeny v D4 a mal by bezat pod W95.
>
> (Mam vyuzit Lpt.VxD ? Ak ano, ako ?)
Ahoj,
Jediny mozny zpusob je napsat VxD k tomu ucelu. Taky uz jsem dlouho neco
podobneho hledal a nenasel. LPT.VXD by mozna vyuzit sel, ovsem to by k
nemu musela byt nejaka dokumentace, cehoz se u M$ asi nedockame .... :-)
Jako nouzove reseni je sice mozne ve Win95 pouzit primo asm instrukce
IN/OUT, ale bude to pak prochazet virtualizacnim procesem, tudiz to bude
pomale.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Cizi Edit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.1.1999 01:44:03
Mal� Dobromil wrote:
>
> Ahoj Delphisti,
> mam zase jeden dotaz, lze nejak nastavit hodnotu
> ciziho Edit-u ? Je-li napr. v nejake cizi aplikaci
> formular a na nem komponenta, ktera ma vlastnost text
> (TEdit) a ta aplikace normalne bezi, lze tento text
> z jine aplikace zmenit ? (Musim asi zjistit jeji nazev
> nebo typ ne ?)
> Tak rekneme napriklad, ze bezi MSIE a ja bych do Edit-u
> Adresa chtel z jine aplikace dosadit jiny vlastni text.
> Pozn.: V konkretnim prikladu se nejedna primo o MS IE !
Ahoj,
Pokud najdes handle prislusneho "okna" - tedy ovladaciho prvku, tak potom uz
to muzes menit. Problem je ale prave to nalezeni. U te konkretni aplikace se
pomoci WinSight podivej kde je ten ovl.prvek a pak se jej pokus najit. Slo
by to udelat treba takhle, ale ne vzdy to muzes pouzit. Priklad najde ComboBox
v IE3.02:
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function SearchForWindow(const Search: String; ParentWnd: HWND = 0): HWND;
type // Parametr Search - '<ClassName>,<WindowText>,<Poradi>; ....'
PSearchWndRec = ^TSearchWndRec;
TSearchWndRec = record
FindClassName: String;
FindWindowText: String;
EnumCount: Integer;
FoundWnd: HWND;
FindPosition: Integer;
end;
var
SearchPos, StartPos, EndClassPos, EndTextPos, EndRecPos: Integer;
SearchWndRec: TSearchWndRec;
P: PChar;
function EnumChildProc(Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
var
ClassName, WindowText: array[0..127] of Char;
begin
GetClassName(Wnd, ClassName, Sizeof(ClassName));
GetWindowText(Wnd, WindowText, Sizeof(WindowText));
with PSearchWndRec(LParam)^ do
begin
if (FindClassName = ClassName) and
((FindWindowText = '') or (FindWindowText = WindowText)) then Inc(EnumCount);
if EnumCount = FindPosition then
begin
FoundWnd := Wnd;
Result := False;
end else Result := True;
end;
end;
begin
SearchWndRec.FoundWnd := 0;
SearchPos := 1;
StartPos := 1;
EndClassPos := 0;
EndTextPos := 0;
EndRecPos := 0;
if ParentWnd = 0 then ParentWnd := GetDesktopWindow;
while SearchPos <= Length(Search) do
begin
case Search[SearchPos] of
',': if EndClassPos = 0 then EndClassPos := SearchPos else EndTextPos := SearchPos;
';': EndRecPos := SearchPos;
end;
if (EndRecPos > 0) and (EndClassPos > 0) and (EndTextPos > 0) then
with SearchWndRec do
begin
FindClassName := Copy(Search, StartPos, EndClassPos - StartPos);
FindWindowText := Copy(Search, EndClassPos + 1, EndTextPos - EndClassPos - 1);
FindPosition := StrToInt(Copy(Search, EndTextPos + 1, EndRecPos - EndTextPos - 1));
EnumCount := 0;
FoundWnd := 0;
if FindPosition = 1 then
begin
if FindWindowText = '' then P := nil else P := PChar(FindWindowText);
FoundWnd := FindWindowEx(ParentWnd, 0, PChar(FindClassName), P);
end else
EnumChildWindows(ParentWnd, (zv)EnumChildProc, Integer((zv)SearchWndRec));
if FoundWnd = 0 then Break else ParentWnd := FoundWnd;
StartPos := SearchPos + 1;
EndClassPos := 0;
EndTextPos := 0;
EndRecPos := 0;
end;
Inc(SearchPos);
end;
Result := SearchWndRec.FoundWnd;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWND;
C: array[0..127] of Char;
begin
Wnd := SearchForWindow('IEFrame,,1;SizableRebar,,1;ReBarWindow32,,1;ComboBoxEx32,,1;');
if Wnd <> 0 then
begin
SendMessage(Wnd, WM_GETTEXT, Sizeof(C), Longint((zv)C));
Label1.Caption := C;
C := 'Text';
SendMessage(Wnd, WM_SETTEXT, 0, Longint((zv)C));
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
LPT
[*] Jirka <virt(zv)pepa(tec)cz> - 5.1.1999 07:26:16
Ahoj,
ja na to pouzivam tyto funkce:
function ReadPortB(wPort:Word):byte;
begin
asm
mov dx,wPort
in al,dx
mov result,al
end;
end;
procedure WritePortB(wPort:Word;bValue:Byte);
begin
asm
mov dx,wPort
mov al,bValue
out dx, al
end;
end;
... kde wPort je adresa portu (LPT1 $378,LPT2 $278 ...)
pro zapis do pin: D0..D7
je hodnota wPort
pro cteni z pin : ERROR(15),SLCT(13),PE(12),ACK(10),BUSY(11)
je hodnota wPort + 1
pro cteni a zapis pin: STROBE(1),AUTO(14),INIT(16),SLCT(17)
je hodnota wPort + 2
Jirka Virt
email: virt(zv)pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Ondrej Jaura <jaura(zv)redbull.dcs.fmph.uniba.sk>
Komu: Konferencia Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 17:48
P�edm�t: LPT
> Zdravim :)
>
> Potreboval by som zapisovat a citat jednotlive bity na LPT porte.
>Program je robeny v D4 a mal by bezat pod W95.
>
> (Mam vyuzit Lpt.VxD ? Ak ano, ako ?)
>
> Dakujem
> Ondrej Jaura
>
>
>-----------------
> Ondrej Jaura
>
> student 1.rocnika MFF UK Bratislava, odbor: informatika
>
> e-mail: jaura(zv)redbull.dcs.fmph.uniba.sk
> homepage: http://redbull.dcs.fmph.uniba.sk/~jaura
> on-line: talker Tri Tulene - netopier.dnp.fmph.uniba.sk 5678 (Kerberos)
>-----------------
>
>WINSOCK
[*] Bielik Marian <bielik(zv)basl.sk> - 05.1.1999 07:52:29
Urcite robis dobre (len sa trochu namakas :-)
http://www.sockets.com/winsock2.htm#DT_DLL
Marian
Ondrej Krajicek wrote:
> Nazdar,
>
> mam takovy problemek. Nevite nekdo o dobrem zdroji informaci o Winsock API a Winsock 2 API ? Myslim dokumentaci, priklady a tak, pokud mozno napsano s ohledem na Delphi, ale prectu i C++ nebo MSVB. Rozhodl jsem se totiz ze se vykaslu na vsechny mozne komponenty a pouziju primo Winsock.
>
> Ondrej Krajicek
> PS: Nevite nekdo, jake jsou licenci podminky na sireni wininet.dll ?
LPT
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 05.1.1999 07:55:46
Neslo by pouzit createFile ?
Ondrej Krajicek
Petr Vones wrote:
>
> Ondrej Jaura wrote:
> >
> > Zdravim :)
> >
> > Potreboval by som zapisovat a citat jednotlive bity na LPT porte.
> > Program je robeny v D4 a mal by bezat pod W95.
> >
> > (Mam vyuzit Lpt.VxD ? Ak ano, ako ?)
>
> Ahoj,
>
> Jediny mozny zpusob je napsat VxD k tomu ucelu. Taky uz jsem dlouho neco
> podobneho hledal a nenasel. LPT.VXD by mozna vyuzit sel, ovsem to by k
> nemu musela byt nejaka dokumentace, cehoz se u M$ asi nedockame .... :-)
> Jako nouzove reseni je sice mozne ve Win95 pouzit primo asm instrukce
> IN/OUT, ale bude to pak prochazet virtualizacnim procesem, tudiz to bude
> pomale.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> * protestni akce *
> ************************Nahrada komponent
[*] RADIK(zv)p15.monet(tec)cz - 5.1.1999 09:11:00
Takhle jsem to kdysi taky delal. Ale pokud srovnam komfort a GExpertu a
problemy s primym prepisem, tak vyhral GExpert. Rucne to chce obcas
trosku experimentovat. Navic GExpert to umi pro vsechny nebo jen vybrane
komponenty ve formu. A navic ma jeste spoustu dalsich expertu, ktere
taky nejsou k zahozeni, je free a ma asi mega.....
Ales
----------
Od: Ondrej Krajicek
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Nahrada komponent
Datum: 4. leden 1999 19:32
Existuje i jednodussi zpusob, ale nemam ho vyzkouseny. V Delphi klikni
na formular a zvol "Edit as text". Potom dej proste Edit-Replace a
nahrad TButton za TBitBtn (replace all), atd. Ovsem doporucuji napred
zalohu, opravdu to nemam vyzkousene.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. ledna 1999 12:44
P�edm�t: RE: Nahrada komponent
Pouzij GExperts. To je Freeware, pro D3 a D4 a umi i spoustu jinych
veci. Napr. lze jednodude menit poradi komponent pri TABu, hledat v
celem projektu (grep), prohlizet historii v clipboardu a tak dale a tak
dale...... Proste vrele doporucuji.
Adresa: http://www.gexperts.com/gexperts/
Ales
----------
Od: Bene� Jaroslav
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Nahrada komponent
Datum: 4. leden 1999 9:35
Ahoj
uvodem preji vsem vsechno nejlepsi v novem roce a dekuji vsem za
cenne rady.
Muj problemek je nasledujici: potrebuji nahradit hromadne
komponentu
za jinou napr. TButton za TBitBtn nebo TEdit za TMaskEdit (vetsi
mnozstvi
30-50 na formu). Lze to nejak jednoduse udelat, aniz bych musel editovat
DFM
ve zdrojovem tvaru? Jedna se mi o to, aby velikost, postaveni i dalsi
parametry byly zachovany.
Diky
Jaro B.textove tiskove sestavy
[*] Pavel ZIDEK <kopr(zv)applet(tec)cz> - 5.1.1999 09:17:42
Nazdar,
i j� n�co podobn�ho sh�n�m, ale na trhu nic nen� - pouze QRD a pod. Nechci tisknout pomoc� DB tabulek.
Jestli n�co najde�, dej v�d�t.
D�ky
~~~~~~~~~~~~~~~~~~~~~~~~
KOPR software Pavel ZIDEK
voice 069 / 66 02 156
mailto:kopr.info(zv)post(tec)cz
http://www.applet(tec)cz/~kopr
~~~~~~~~~~~~~~~~~~~~~~~~
----------
> Odes�latel: Soudny, Jiri <Jiri.Soudny(zv)oriflame(tec)cz>
> Komu: 'DELPHI, konference' <delphi-l(zv)fwd(tec)cz>
> P�edm�t: textove tiskove sestavy
> Datum: 4. ledna 1999 11:41
>
> Ahoj v 99!
> Vite nekdo o sikovnem nastroji, kterym by se daly snadno vyrabet textove
> tiskove sestavy?
> Tj aby tiskarna tiskla v textovem rezimu (rychle).
>
> Diky
>
> Jirka
>
>WINSOCK
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 5.1.1999 09:17:04
Kdyz uz jsme tak pratele u toho
WinSock nevite nekdo, co je (de)inicializace
a co uz je (uza)otvirani?
WSAStartup(MakeWord(1,1), WData)
ClientSocketHandle := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
Addr.sin_family := AF_INET;
Addr.sin_port := htons(110);
Addr.sin_addr.s_addr := inet_addr(PChar(ServerName));
Connect(ClientSocketHandle, Addr,SizeOf(Addr))
WSAASyncSelect(ClientSocketHandle,Wnd,WM_USER+5260,FD_READ or FD_CLOSE or
FD_CONNECT or FD_WRITE);
WSAASyncSelect(ClientSocketHandle,Wnd,WM_USER+5260,0);
Shutdown(ClientSocketHandle,2);
CloseSocket(ClientSocketHandle);
WSACleanup
Ja kdyz se dotazuji na server porad touto kombinaci, tak mi to po urcite
dobe
zatuhne a serveru se uz nedovolam.
Diky
Martin
P.S.
Nevite o nekom, kdo proda (daruje :-) MS-Word 2.0. Firma se chysta drasticky
legalizovat a ja jsem se s WordPadem dost pohadal (potrebuju sablony a
on mne nechape). A ta dvojka je stejne nejlepsi a nejmensi.
Retezec Pchar
[*] Jirka <virt(zv)pepa(tec)cz> - 5.1.1999 09:35:31
Ahoj,
mam takovy problem.
Jestlize bude v adresare[c] hodnota 'C:\Program Files\CD
pujcovna\data\cd.dbf', tak mi to vrati vysledek 'C:\Program Files\Cd
pujcovnaUdata\'.
Nevim proc,ale vzdy to za adresarem 'CD pujcovna' zmeni lomitko na 'U'.
Nevite nekdo co delam za chybu.Ze by treba cestina????
Prikladam zdroj...
var
adresare:array[1..100] of Pchar;
adresar:Pchar;
c:integer;
begin
...
StrLCopy(adresar,adresare[c],strlen(adresare[c]) - 6 );
...
end;
Diky za kazdou odpoved
Jirka Virt
email: virt(zv)pepa(tec)cz
Urceni verze Delphi v dobe prekladu
[*] L.Svoboda <svoboda(zv)sct(tec)cz> - 5.1.1999 09:43:56
Dobry den vsem.
Mam nasledujici problem.
Potrebuji pouzit v komponente promennou Real/Real48 v zavislosti na verzi Delphi (3/4).
Jak zjistim, pod jakou verzi Delphi se prave komponenta preklada?
Lze neco jako
{$IFDEF DELPHI4}
MyVariable: Real48;
{$ELSE}
MyVariable: Real;
{$ENDIF} ???
Jestli to jde pomoci verzi prekladace, tedy VERxxx, jake hodnoty pouzit?
Diky moc.
L. Svoboda
oteviranim a zaviranim databazovych souboru
[*] mbartone(zv)Synthesia(tec)cz - 5.1.1999 09:52:54
Ahoj
Mam nasledujici problem asi s oteviranim a zaviranim databazovych souboru.
(Query4 ma asi 8000 zaznamu, Query3 pak mezi 0-5)
Nasledujici priklad funguje do radku 252 a pak se zhrouti s hlaskou
Access violation at 0x4be42b91: read of adress ......
Query4.Open;
while not Query4.EOF do
begin
...
Query3.ParamByName('pid').AsInteger := Query4.FieldbyName('id').Value;
Query3.ExecSql;
Query3.Open;
Application.ProcessMessages;
...
Query3.Close;
Query4.Next;
end;
Query4.Close;
Kde mam hledat chybu a jak ji odstranit.
Dekuji Milan
oteviranim a zaviranim databazovych souboru
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 5.1.1999 10:14:34
Myslim, ze by bylo dobre si ujasnit jestli je treba volat Query3.Open
nebo ExecSQL, oboji dohromady
nejak nedava smysl. Co je obsahem tech SQL prikazu ?
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 5. ledna 1999 9:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: oteviranim a zaviranim databazovych souboru
>
>
> Ahoj
>
> Mam nasledujici problem asi s oteviranim a zaviranim databazovych
> souboru.
> (Query4 ma asi 8000 zaznamu, Query3 pak mezi 0-5)
>
> Nasledujici priklad funguje do radku 252 a pak se zhrouti s hlaskou
>
> Access violation at 0x4be42b91: read of adress ......
>
> Query4.Open;
> while not Query4.EOF do
> begin
> ...
> Query3.ParamByName('pid').AsInteger :=
> Query4.FieldbyName('id').Value;
> Query3.ExecSql;
> Query3.Open;
> Application.ProcessMessages;
> ...
> Query3.Close;
> Query4.Next;
> end;
> Query4.Close;
>
> Kde mam hledat chybu a jak ji odstranit.
>
> Dekuji Milan
> Pridanie n�povedy
[*] Branislav Danko <danko(zv)basl.sk> - 5.1.1999 10:24:36
Nazdar,
potreboval by som vyriesit tento problem: K programu by som chcel pridat help vo formate *.hlp, problem je v tom, ze program sa zdiela, a aby sa nemusel distribuovat na disketach, ulozi sa do databazy a odtial sa pri prvom spusteni natiahne na klienta, ulozi sa na disk a spusti sa. Takto je zalozena cela koncepcia systemu. Takze ten subor napovedy by som chcel nejakym sposobom pripojit (prilinkovat) k exe a ulozit ho spolu s nim do databazy. Da sa to nejak vyriesit s tym helpom?
Nejak podobne ako je to s bitmapami. Do TImage si ho v Object Inspectore loadnem, a potom uz nepotrebujem (pri distribucii), aby existoval v nejakom subore. Nijake ine navrhy (pridat policko do DB ...) v tomto pripade nepomozu, lebo nemozem narusit to, co uz bolo vytvorene.
P.S.: PF ' 99 S pozdravom Brano.Pomale editace v CachedUpdates Query - upresneni p
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 5.1.1999 10:32:28
Ahoj Delphisti,
mam problem s pomalosti editace CachedUpdates Query.
Vyberu slozitym CachedUpdates Query zaznamy z DB (cca 1.500 zaznamu). Jsou to potencialni zaznamy, s nimiz ma byt provedena nejaka akce.
Do vysledku Query jsem si navic pridal jeden sloupec (USE IT) konstrukci
SELECT "T" AS USE IT, ...FROM ...
(Kandidati na akci maji USE IT nastaveno na "T".)
Pote zobrazim vybrane zaznamy a uzivatel muze doupresnit, se kterymi ma byt akce opravdu provedena. (pres 4 tlacitka : Neprovadej s zadnym, Neprovadej s aktualnim, Provadej s aktualnim, Provadej se vsemi). Reakci na tlacitka je zmena hodnoty / hodnot atributu USE IT ("T"/"F")
Po te, co uzivatel doupresni vyber, muze odstartovat samotnou operaci.
Problem je v reakci na tlacitka, ktera by mela zmenit USE IT u vsech zaznamu - Je to strasne pomale. Navic se to vyrane zpomaluje s tim, jak je aktualni pozice v tabulce dal od zacatku (casem cca 4s na jeden zaznam). Pritom v kodu skoro nic nemam. Nejsem naveseny na zadne Eventy Query. Query si vytvarim (pres Create) az za behu, nastavim jen DatabaseName, CachedUpdates a SQL.
Zde je odpovidajici kus kodu:
with parActDataSource.DataSet do
if not (Bof and Eof) then
try
parActDataSource.Enabled := false;
locBM := GetBookMark;
First;
while not Eof do
begin
Edit;
FieldByName ('USE IT').AsString := parNewState;
Post; // Samotny Post casem potrebuje 4s a vice na jeden zaznam
Next;
end;
GotoBookmark(locBM);
finally
parActDataSource.Enabled := true;
end;
Diky moc za radu. Pokud resite nekdo podobny problem uplne jinak, tak prosim napiste. Kazda inspirace muze byt zajimava.
Dekuji, Ladislav Nagy
===========================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
tel. : 02 / 24941962, -63, fax : -64
lada(zv)kolej.mff.cuni(tec)cz , bcpraha(zv)login(tec)cz
oteviranim a zaviranim databazovych souboru
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 5.1.1999 10:34:14
>Nasledujici priklad funguje do radku 252 a pak se zhrouti s hlaskou
>Access violation at 0x4be42b91: read of adress ......
Ktery je radek 252 ? Jaky pouzivas format tabulek ?
>
> Query4.Open;
> while not Query4.EOF do
> begin
> ...
> Query3.ParamByName('pid').AsInteger := Query4.FieldbyName('id').Value;
> Query3.ExecSql;
> Query3.Open;
Proc delas ExecSQL a Open. Open staci. Nic se nestane, ale spoustis 2x ten
samy dotaz - jen kvuli rychlosti.
> Application.ProcessMessages;
> ...
> Query3.Close;
> Query4.Next;
> end;
> Query4.Close;
>
>Kde mam hledat chybu a jak ji odstranit.
Zkousel jsi to trasovat ?
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
oteviranim a zaviranim databazovych souboru
[*] mbartone(zv)Synthesia(tec)cz - 5.1.1999 10:59:54
Odstranenim ExecSql a ponechanim pouze Open je vse v poradku.
Do ted jsem zil v domeni ze ExecSql vykona kod SQL a Open otevre vysledek.
Dekuji Milan
Retezec Pchar
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.1.1999 11:55:44
A Alokujes si nekde tu pamet kam ukladas ty retezce??? Pokud ne, pak to
muze byt nahodny obsah pameti.....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jirka [SMTP:virt(zv)pepa(tec)cz]
> Odesl�no: 05. ledna 1999 9:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Retezec Pchar
>
> Ahoj,
>
> mam takovy problem.
>
> Jestlize bude v adresare[c] hodnota 'C:\Program Files\CD
> pujcovna\data\cd.dbf', tak mi to vrati vysledek 'C:\Program Files\Cd
> pujcovnaUdata\'.
>
> Nevim proc,ale vzdy to za adresarem 'CD pujcovna' zmeni lomitko na
> 'U'.
> Nevite nekdo co delam za chybu.Ze by treba cestina????
>
> Prikladam zdroj...
>
> var
> adresare:array[1..100] of Pchar;
> adresar:Pchar;
> c:integer;
>
> begin
> ...
> StrLCopy(adresar,adresare[c],strlen(adresare[c]) - 6 );
> ...
> end;
>
>
> Diky za kazdou odpoved
>
> Jirka Virt
>
> email: virt(zv)pepa(tec)cz
> Urceni verze Delphi v dobe prekladu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.1.1999 11:57:53
Ano,
ale misto DELPHI4 si dej VER120 (CPPB3 - VER110 D3 - VER100 CPP1 -
VER93 D2 - VER 90)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: L.Svoboda [SMTP:svoboda(zv)sct(tec)cz]
> Odesl�no: 05. ledna 1999 9:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Urceni verze Delphi v dobe prekladu
>
> Dobry den vsem.
> �
> Mam nasledujici problem.
> Potrebuji pouzit v komponente promennou Real/Real48 v zavislosti na
> verzi Delphi (3/4).
> Jak zjistim, pod jakou verzi Delphi se prave komponenta preklada?
> �
> Lze neco jako
> {$IFDEF DELPHI4}
> MyVariable: Real48;
> {$ELSE}
> MyVariable: Real;
> {$ENDIF} ???
> �
> Jestli to jde pomoci verzi prekladace, tedy VERxxx, jake hodnoty
> pouzit?
> �
> Diky moc.
> L. Svoboda
> �Urceni verze Delphi v dobe prekladu
[*] jk(zv)tzus(tec)cz - 5.1.1999 12:11:18
>
>Dobry den vsem.
>
>Mam nasledujici problem.
>Potrebuji pouzit v komponente promennou Real/Real48 v zavislosti na verzi
>Delphi (3/4).
>Jak zjistim, pod jakou verzi Delphi se prave komponenta preklada?
>
>Lze neco jako
>{$IFDEF DELPHI4}
>MyVariable: Real48;
>{$ELSE}
>MyVariable: Real;
>{$ENDIF} ???
>
Pro predchozi verze plati nasledujici direktivy (pokud to nepopletu a bez
zaruky)
VER80 - Delphi 1
VER90,WIN32 - Delphi 2
VER100,WIN32 - Delphi 3
? VER120,WIN32 - Delphi 4
? VER93 - BCB 1
? VER110 BCB 3
S pozdravem
Jan Kadlecek
******************************************
* kadlecek(zv)htkpro(tec)cz *
* HTK Pro s.r.o., www.htkpro(tec)cz *
* tel : 02-83880361, fax: 02-6896391 *
* Autorizovany dealer TurboPower *
******************************************Faktorial
[*] rys(zv)zas-me(tec)cz - 5.1.1999 12:12:50
Jeste me napadla jedna moznost k tem faktorialum:
misto toho, aby se pocitalo 1 * 2 * 3 * ... * n,
bylo by mozne pocitat ln 1 + ln 2 + ln 3 + ... + ln n
Tim by se vypocital logaritmus toho faktorialu - treba by to k nekterym
vypoctum stacilo.
Pouziti cisla typu Extended stejne nedava nijak zavratne presne vypocty (asi
20 cislic); pro samotny vypocet faktorialu pomoci nasobeni by asi bylo
pomerne snadne naprogramovat nejakou rutinu pro nasobeni hooodne dlouhych
cisel ulozenych treba v Stringu.
Karel Rys
Faktorial
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 5.1.1999 12:53:40
Lidi neblaznete !
Napsat faktorial n neni problem ve stylu
(metodou touto jsem jeste na skole za JEDINOU vyucovaci hodinu :-) spocital
faktorial 500 na kalkulatoru MR610 ( zvladala faktorial 69 za 4vteriny :-))) -
akorat jsem swapoval ty exponenty na zadni stranu sesitu :-)
strucne : n je zadani cisla pro faktorial - limit to ma nekde pod hranici 2^31
(kladna pulka longintu)
pokud to nekdo nepostavi pres FOR, ale oplaa tocim vetsim ve WHILEu limit
prakticky vlastne neni v nicem jinem nez ve vykonu CPU :-)
{$N+} { kopr. }
var z:longint;
a,s:extended;
...
a:=1;s:=0;
for z:=1 to n do
begin
a:=a*z;
if a>(1e+1000) then
begin
a:=a/(1e+1000)
s:=s+1000;
end;
end;
writeln(a:10:10,'':2,s:10);
(z a-cka si ten exponent vyperte do s-ka sami :-)
no a tady je v "a" faktorial bez casti exponentu,
a v "s" je ten vetsi zbytek exponentu.
Jestli jsem to ten psal z hlavy trosku s preklepama, napiste, mam timto zpusobem
napsany v BP7.0 programek, ktery faktorial 10M bere za necelych 8s na 200MHz
Intelu.
-----P�vodn� zpr�va-----
>Jeste me napadla jedna moznost k tem faktorialum:
>misto toho, aby se pocitalo 1 * 2 * 3 * ... * n,
>bylo by mozne pocitat ln 1 + ln 2 + ln 3 + ... + ln n
>
>Tim by se vypocital logaritmus toho faktorialu - treba by to k nekterym
>vypoctum stacilo.
>
>Pouziti cisla typu Extended stejne nedava nijak zavratne presne vypocty (asi
>20 cislic); pro samotny vypocet faktorialu pomoci nasobeni by asi bylo
>pomerne snadne naprogramovat nejakou rutinu pro nasobeni hooodne dlouhych
>cisel ulozenych treba v Stringu.
Urceni verze Delphi v dobe prekladu
[*] L.Svoboda <svoboda(zv)sct(tec)cz> - 5.1.1999 13:15:27
Diky moc
L.S.
>Ano,
>
>ale misto DELPHI4 si dej VER120 (CPPB3 - VER110 D3 - VER100 CPP1 -
>VER93 D2 - VER 90)
>
>Martin Fron�k
>ZZN Slan� a.s.
>Pra�sk� 1579, 274 49, Slan�
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> Dobry den vsem.
>>
>> Mam nasledujici problem.
>> Potrebuji pouzit v komponente promennou Real/Real48 v zavislosti na
>> verzi Delphi (3/4).
>> Jak zjistim, pod jakou verzi Delphi se prave komponenta preklada?
Krokovanie programu a DLL ???
[*] Bielik Marian <bielik(zv)basl.sk> - 05.1.1999 13:49:50
Hi vsetcia !
Je mozne krokovat program, ktory vyuziva DLL.
Mam totiz ulozeny formular + nejake funkcie v dll no a ked vyrobim
nejaku chybu
prave vo volanej DLL , nie vzdy je lahke zistit kde je problem.Urceni verze Delphi v dobe prekladu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.1.1999 14:22:47
L.Svoboda wrote:
> Lze neco jako
> {$IFDEF DELPHI4}
> MyVariable: Real48;
> {$ELSE}
> MyVariable: Real;
> {$ENDIF} ???
Delphi 3 ma VER100, Delphi 4 tusim VER120.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Krokovanie programu a DLL ???
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 5.1.1999 14:51:03
Haj hou!
Ano, pokud mas D3 nebo vyssi. Pak musis ovsem ladi ono DLL (nastavit host
application v menu Run->Parameters).
>Je mozne krokovat program, ktory vyuziva DLL.
>Mam totiz ulozeny formular + nejake funkcie v dll no a ked vyrobim
>nejaku chybu
>prave vo volanej DLL , nie vzdy je lahke zistit kde je problem.
HTH
Krokovanie programu a DLL ???
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.1.1999 15:06:47
Zalezi na verzi DELPHI ci BUILDERu,
CPPB 3 to umi, takze predpokladam, ze to bude umet i D3 a vyssi. Staci
nastavit breakpoint dovnitr DLL (mas-li zdrojak)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Bielik Marian [SMTP:bielik(zv)basl.sk]
> Odesl�no: 05. ledna 1999 13:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Krokovanie programu a DLL ???
>
> Hi vsetcia !
>
> Je mozne krokovat program, ktory vyuziva DLL.
> Mam totiz ulozeny formular + nejake funkcie v dll no a ked vyrobim
> nejaku chybu
> prave vo volanej DLL , nie vzdy je lahke zistit kde je problem.Delphi 4
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.1.1999 15:31:17
Zdravim,
da se standardnimi prostredky Delphi ctyri vytvorit menu viz menu v IDE
Delphi 4?==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================
RTF Text
[*] Leopold Grepl <Grepl(zv)melzer(tec)cz> - 5.1.1999 15:34:04
Prosim o radu, pokud nekdo vi. Mam v BLOBu ulozen text ve formatu RTF. Zajima mne, zda
existuje nejaka funkce (a jak se jmenuje), zrejme API, ktera prevezme RTF text (vcetne format.
znaku) jako jeden parametr a vrati holy text (ocesany o ty formatovaci paznaky) jako druhy
parametr a pripadne zda existuje funkce inverzni.
Diky vsem, kteri poslou nejaky namet.
V�a
BDE, Paradox & null
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 5.1.1999 15:46:13
Zdravicko...
Nema nekdo tuseni, proc v tom stupidnim BDE nefunguje nasledujici
(nevybere se ani jeden radek):
select * from table1 a, table2 b
where a.polozka = b.polozka
and b.polozka is null
... ovsem tento select probehne bez problemu:
select * from table1 a, table2 b
where a.polozka is null
and b.polozka is null
Nemam pro to slov. Je to pitomost nejvyssiho radu. :-((( Nebo snad
Inprise pouziva jinou logiku?
Dekuji za vsechny podnetne pripominky.
F.TStrings
[*] Arnost Kobylka <Arnost.Kobylka(zv)atlas(tec)cz> - 5.1.1999 17:01:58 -0000
Dobry den,
netusite nekdo proc uvedeny priklad pada s hlaskou Runtime error 210, aniz
to debugger od Delphi zachyti jako exception. Pouzivam D2 v prostredi Win
98 (:-)).
A: TSTrings;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
A.Text:=Memo1.Lines.Text;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
A:= TStrings.Create;
end;
Ing. Arno�t Kobylka
C3, s.r.o.
�rob�rova 32
Praha 10
71734608
Pridanie n�povedy
[*] Ondrej Jaura <jaura(zv)redbull.dcs.fmph.uniba.sk> - 5.1.1999 17:11:35
>pridanie (prilinkovanie) *.hlp k *.exe
Obavam sa, ze to nepojde. Subor .hlp je totiz vyzadovany ako
samostatny subor, pre program WinHelp.Exe (obsah suboru HLP sa vyvola ako
winhelp subor.hlp).
(Jeden sposob ma napada, ale je znacne chory: ;>>>
Vygenerovat HLP, vlozit ho do Exe ako nejaky zaznam v resource, a pri
spusteni sa odtialto vyberie a ulozi do .hlp suboru...)
(Ak ma niekto lepsi napad, rad sa poucim. ;) Ondrej Jaura
-----------------
Ondrej Jaura
student 1.rocnika MFF UK Bratislava, odbor: informatika
e-mail: jaura(zv)redbull.dcs.fmph.uniba.sk
homepage: http://redbull.dcs.fmph.uniba.sk/~jaura
on-line: talker Tri Tulene - netopier.dnp.fmph.uniba.sk 5678 (Kerberos)
-----------------
Optimalizacia Query
[*] Jozef Uhler <uhler(zv)bigfoot(tec)com> - 05.1.1999 17:12:22
Zdravim,
mam nasledovne SQL:
select *
from table_x
where
polozka not in (select polozka from table2 where active=true)
and from_date=:Datum
je to strasne pomale, pricom v Informixe pod Unixom je to neporovnatelne
rychlejsie. Vie mi niekto poradit ako to zoptimalizovat.
Yozo.BDE, Paradox & null
[*] Ale� Kle�ka - 5.1.1999 17:24:42
Pokud nektera z polozek muze byt NULL, pak to musis osetrit v duchu:
SELECT *
FROM table1 a, table2 b
WHERE ( a.polozka = b.polozka )
OR ( a.polozka IS NULL AND b.polozka IS NULL )( proste neplati operatory =, <, > , kdy jeden z 'polozek' je NULL )
--
Zdravicko...
Nema nekdo tuseni, proc v tom stupidnim BDE nefunguje nasledujici
(nevybere se ani jeden radek):
select * from table1 a, table2 b
where a.polozka = b.polozka
and b.polozka is null
... ovsem tento select probehne bez problemu:
select * from table1 a, table2 b
where a.polozka is null
and b.polozka is null
Nemam pro to slov. Je to pitomost nejvyssiho radu. :-((( Nebo snad
Inprise pouziva jinou logiku?
Dekuji za vsechny podnetne pripominky.
F.Viac sumarizacnych riadkov v DecisionGride
[*] Pavol Griga <paly(zv)sct.sk> - 5.1.1999 17:25:18
Nevie mi niekto poradit ci v DecisionGride moze byt zobrazenych
'sucasne viac'
sumarizacnych riadkov a nielen riadok SUM ale aj AVG, MIN, MAX. Ide mi ide
hlavne o tie riadky, ktore sa zobrazuju na konci gridu.
Za dobru radu, ako to vyriesit, vopred
Pan Boh zapla�