Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
priebeh skriptu
[*] Robert Zak <nrsys(zv)psn.sk> - 11.5.2000 08:47:04
Dobry den,
pytal som sa na to uz viackrat, stale som to ale nevyriesil. Nutne potrebujem zistit, v akom mieste skriptu sa nachadzam. Pouzivam MSSQL7, D5, ADONIS a mam skript ktory moze trvat aj niekolko hodin. Prosim vas, ako mozem poslat z casu na cas nejaky vystup pocas behu skriptu??????? Prip. vyvolat nejaku udalost alebo cokolvek podobne - napadlo ma iba riesenie cez pomocnu tabulku ktoru budem citat z programu a zo skriptu zapisem do nej vzdy to co potrebujem - no ale zda sa mi ze by mala existovat aj lepsia cesta.
Alebo mi prosim aspon poradte, kde inde by som sa to mohol spytat.
Dakujem
Robo
jedinecny zaznam
[*] Martin <geoplan(zv)pp.sinet.sk> - 11.5.2000 08:47:09
v tej polozke budu cisla zakazok, zakazka musi byt jedinecna, autoinkrement je nepouzitelny, zakazku misi zadat uzivatel.
MArtin
----- Original Message -----
Od: Erik Salaj
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 9. m�j 2000 23:30
Predmet: Re: jedinecny zaznam
D5, lomponenty adoexpress , DAO, ADO
mam tabulku s niekolkymi stlpcami v Acces 97. Jeden stlpec ma primarny kluc, polozky v nom musia byt jedinecne.
Ako je lepsie postupovat pri overeni polozky ci je jedinecna ?
1. Vzdy overit pomocou SQL vyrazu s klauzulou where a ak bude prazdny vysledok, hodnota v stlpci neexistuje ?
2. Dat post do tre fynali a ak nastane vynimka, budem vediet ze hodnota existuje ?
3. inak, ako ?
3. pouzi Autoincrement polozku a nemusis nic overovat
Erik
Zakaz zobrazovani obrazku u WebBrowser
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 11.5.2000 09:01:47
> Potreboval bych u TWebBrowser zakazat zobrazovani obrazku.
> Samodrejme aby se ani nestahovaly.
> Jde to nejak ????
> Dik
>
Nuz ak som to spravne pochopil, tak v TWebBrowser je komponenta
zalozena na
MSIE, takze si treba asi pozriet prislusne SDK (ako uz spominal P.
Vones)
/LH
Interpreter kodu
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 11.5.2000 09:25:09
To je zajimave. A jak ho pouzit? Je potreba ho volat jako program z
prikazove radky, nebo vyvazi nejaky COM object.
Jaromir Cermak
-----Original Message-----
From: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
Sent: Thursday, May 11, 2000 6:43 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Interpreter kodu
> -----P�vodn� zpr�va-----
> Od: Tomas Burger [mailto:slune(zv)yahoo.com]
> Odesl�no: 10. kv�tna 2000 22:23
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Interpreter kodu
>
>
> --- Lauko_�tefan <lauko(zv)salamon.sk> wrote:
>
> > vedel by mi niekto poradit ako vytvorit aspon zakladny
> interpreter pascalu.
> > Kod by bol napisany v memo a vratil by hodnotu, pripadne,
> by mohol pouzit a
>
> ...a musi to byt nutne pascal...
> Nebylo by lepsi nastudovat MS Scripting Engine... bude to
> konec koncu co
> nevidet v kazde instalaci Windows. A je to verejne dostupne,
> standardni a
> siritelne - a hlavne nezavisle na tom, jestli je ten script
> napsany v basicu,
> javascriptu nebo perlu...
Myslim, ze ma cenu uvazovat jen VBScript a JScript,
ten perl se musi doinstalovat. Nebo maji v MS plany ho v budoucnu
podporovat?
to by bylo mile ...
Jura
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Interpreter kodu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 11.5.2000 09:39:58
> -----P�vodn� zpr�va-----
> Od: CERMAK [mailto:CERMAK(zv)procomcr(tec)cz]
> Odesl�no: 11. kv�tna 2000 9:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Interpreter kodu
>
>
> To je zajimave. A jak ho pouzit? Je potreba ho volat jako program z
> prikazove radky, nebo vyvazi nejaky COM object.
>
Ano, interpreter se pousti z prikazove radky a jako parametr dostava script.
Interpreter muze byt cscript.exe nebo wscript.exe
Takze mame-li napr. script ILOVEYOU.vbs, muzeme ho spustit prikazem
cscript ILOVEYOU.vbs
nebo
wscript ILOVEYOU.vbs
nebo pres asociace jenom
ILOVEYOU.vbs
Jura
Seznam tabulek IB6
[*] L. ZITA <konference(zv)sales(tec)cz> - 11.5.2000 09:43:06
> Behalf Of Slavek Rydval
>
> podivej se na sytemove tabulky. V 5 je RDB$RELATIONS, ale
> v 6 snad take. Ve vysledku tohoto selectu najdes
> i dalsi systemove tabulky.
Diky.
Zkusil jsem :
SELECT DISTINCT
RDB$RELATION_NAME
FROM
RDB$RELATION_CONSTRAINTS
Zda se ,ze to funguje, ale nevim zda to bude v poradku za vsech "rezimu".
To opravdu neexistuje SQL prikaz ktery by vypsal seznam tabulek ?
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Seznam tabulek IB6
[*] L. ZITA <konference(zv)sales(tec)cz> - 11.5.2000 09:55:53
> > Behalf Of Slavek Rydval
> >
> > podivej se na sytemove tabulky. V 5 je RDB$RELATIONS, ale
> > v 6 snad take. Ve vysledku tohoto selectu najdes
> > i dalsi systemove tabulky.
>
> Diky.
> Zkusil jsem :
> SELECT DISTINCT
> RDB$RELATION_NAME
> FROM
> RDB$RELATION_CONSTRAINTS
>
OPRAVA samozrejme to bylo
SELECT DISTINCT
RDB$RELATION_NAME
FROM
RDB$RELATIONS
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
ANN - InterBaseExpress 4.1 update pro D5 a BCB5
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.5.2000 10:12:39
Haj hou!
Takze jste se vazeni konecne dockali. Zmineny patch naleznete na
http://www.interbase.com/open/downloads/IBX_updates.html
Ma neco okolo 3.5Mb
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
OT: MSSQL-relace
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 11.5.2000 10:25:31
Zdravim,
pacuji s MSSQL 7.0 a mam jisty nedostatek znalosti s relacemi. Mam primarni tabulku, v ni primarni klic "cislo faktury". Pres "cislo faktury" mam vytvorenou relaci na sekundarni tabulku "rozpis faktury". Potiz je v tom, ze nevim jak zmenit cislo faktury, kdyz mam jiz v sekundarni tabulce polozky.
a) Neexistuje nejaka procedura, ktera se zavesi na trigger primarni tabulky a zmeni vsechny foreign key tables s predvolbou vypnuti kontroly stavajiciho omezeni NOCHECK CONSTRAINT.
b) Neexistuje nejaka www stranka o serveru MSSQL nebo emailova konference ?
Diky vsem
Vlada Cadsky
cadsky(zv)atlas(tec)cz
Metoda PRINT - doplneni
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 11.5.2000 11:00:00
>Ahoj Delphici,
>mam MDI aplikaci a v ni otevreno jedno child okno se StatusBarem. Chtel
jsem
>toto okno vytisknout jeho metodou Print a to tak, aby se vytisklo vse krome
>status baru. Udelal jsem:
>
> ...
> StatusBar.Visible:= false;
> PrintScale:= poProportional;
> Print;
> StatusBar.Visible:= true;
> ...
>
>ale nic jineho nez cisty papir jsem nedostal. Poradte prosiiim v cem muze
>byt zakopany pes.
>
>Mam D4Std a chci tisknout na LaserJet HP4P.
Zkousenim jsem prisel na to, ze pokud je v tiskarne nastaveno rozliseni
300dpi tak je vsechno OK ale pokud ho nastavim na 600dpi vyjede cisty papir.
Dik za radu. Jara
svehla(zv)atlas(tec)cz
jedinecny zaznam
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 11.5.2000 11:32:37
Pouzij autoincrement pro sourome ucely a zakazku at zada uzivatel. napr uzivatele radi do cisla zakazky zadavaji text a pak budes nekde.
1. autoincrement ti zajisti jedinecnost i pro ostatni navazujici tabulky
2. v cisle zakazky muze byt cokoliv a uzivatel jej beztrestne muze kdykoliv menit
Pavel ZIDEK
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, May 11, 2000 8:47 AM
Subject: RE: jedinecny zaznam
v tej polozke budu cisla zakazok, zakazka musi byt jedinecna, autoinkrement je nepouzitelny, zakazku misi zadat uzivatel.
MArtin
----- Original Message -----
Od: Erik Salaj
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 9. m�j 2000 23:30
Predmet: Re: jedinecny zaznam
D5, lomponenty adoexpress , DAO, ADO
mam tabulku s niekolkymi stlpcami v Acces 97. Jeden stlpec ma primarny kluc, polozky v nom musia byt jedinecne.
Ako je lepsie postupovat pri overeni polozky ci je jedinecna ?
1. Vzdy overit pomocou SQL vyrazu s klauzulou where a ak bude prazdny vysledok, hodnota v stlpci neexistuje ?
2. Dat post do tre fynali a ak nastane vynimka, budem vediet ze hodnota existuje ?
3. inak, ako ?
3. pouzi Autoincrement polozku a nemusis nic overovat
Erik
depends pro 16 bitu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 11.5.2000 11:49:02
Ahoj,
nevite nekdo o obdobe programu depends pro prohledavani 16-ti bitovych
exe a dll?
Dik
Vaclav Sazima
Interpreter kodu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.2000 11:52:49
On 10 May 00, at 20:27, Lauko �tefan wrote:
> vedel by mi niekto poradit ako vytvorit aspon zakladny interpreter
> pascalu. Kod by bol napisany v memo a vratil by hodnotu, pripadne, by
> mohol pouzit a menit hodnoty premenn�ch pouzitych v PARENT . Podobne
> ako v TQRExpr.Expression. Pripadne ho rozsirit o IF, ELSE, FOR,
> REPEAT, WHILE, CASE... Dakujem za kazdu uvahu alebo nasmerovanie.
Zkus se podivat sem, myslim, ze neco v tomto smeru ten clovek
take delal:
http://www.chat.ru/~virtlabor
mailto: ab(zv)virtlabor.donbass.com
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Chyba v destroy
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.2000 11:52:49
On 10 May 00, at 20:34, Robert Kindl wrote:
> > > procedure TForm1.Button1Click(Sender: TObject);
> > > var
> > > c,d: variant;
> > > begin
> > > c:=CreateOLEObject('Word.Basic');
> > > d:=c;
> > > c:=null; // zde se objekt uvolni
> > > if d=null then
> > > ShowMessage('Posli FerNet');
> > > end;
> >
> > Tento kod mi na miste if d=null vygeneroval chybu Invalid variant
> > operation, a debugger ukazoval c=null, ale d=$xxxxx, tedy puvodni
> > adresu OLE objektu. Zbysek Hlinka
>
> Ja tak vlastne demostroval uplne jinou vlastnost a to tzv.
> reference counting pro COM objekty (obdoba reference countingu pro
> huge stringy). Delphi popr. COM objekt si totiz pamatuji pocet odkazu
> a pri odstraneni posledniho odkazu objekt uvolni.
Odkaz na COM objekt, ktery si COM objekt pamatuje, vznika prave
pri c:=CreateOleObject, a to jeste tak, ze se zvetsi vnitrni pocitadlo
uvnitr objektu. Uvolnenim objektu (c:=null) zase to pocitadlo
snizim, a kdyz se dostane k nule, objekt se uvolni uplne (pokud je
tedy konstruovan jako viceuzivatelsky). V podstate stejne by to
melo fungovat, kdybych v uvedenem prikladu napsal d:=null, pak by
mi zase zustala viset hodnota v c, ale objekt by se uvolnil.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pozastaveni procesu
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 11.5.2000 11:58:17
Nepomohlo by zkusit tomu procesu
srazit prioritu na minimum (IDLE) ?
Ondrej Krajicek
Petr Vones wrote:
>
> From: <jof(zv)email(tec)cz>
> > Potreboval bych na 10 s pozastavit spusteny
> > proces. U threadu to jde, ale ja znam jen
> > Handle a ID procesu. Za namety dekuji.
>
> Ahoj,
>
> Rekl bych, ze toto je temer nemozne. Pokud znas ID procesu, muzes pak ziskat
> ID threadu. Neziskas vsak moznost thread otevrit, funkce OpenThread je az ve
> W2000. Dalsi moznost by byla zacit ladit ten proces, coz je ale take dost
> problematicke, protoze bezne nema uzivatel asi prava na ladedni, navic pak
> je debugger k tomu procesu pripojen az do jeho ukonceni.
>
> Petr Vones, amatersky programator
--
--------------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno, CR
-- The new and incredible 32bit intelligent wizard has
obtained a solution to your printing problem: do not print!
--------------------------------------------------------------
Interpreter kodu
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 11.5.2000 12:02:32
1. Musis mit nainstalovany skriptovaci engine. To by melo ve w98
nebo w2000 uz nainstalovane, ve w95 to vyresi instalace ie4 nebo ie5,
prip. soubor ste51cs.exe z www.microsoft.com/scripting
Jak to je na NT4 nemam tuseni. asi musis mit SP3.
2. Musis mit nainstalovany ocx MS Script control, ve w2000 uz je
soucasti systemu, v ostatnich potrebujes soubor sct10en.exe ,
taktez z www.microsoft.com/scripting
Pokud to behem instalace zarve, nemas splneny bod 1.
3. V Delphi si naimportuj Active X Microsoft Script Control, objevi
se na palete. Pak uz si poradis sam, je to jednoduche, doporucuji
vsem.
Radim
> To je zajimave. A jak ho pouzit? Je potreba ho volat jako program z
> prikazove radky, nebo vyvazi nejaky COM object.
>
> Jaromir Cermak
>
> -----Original Message-----
> From: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
> Sent: Thursday, May 11, 2000 6:43 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Interpreter kodu
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Tomas Burger [mailto:slune(zv)yahoo.com]
> > Odesl�no: 10. kv�tna 2000 22:23
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: Interpreter kodu
> >
> >
> > --- Lauko_�tefan <lauko(zv)salamon.sk> wrote:
> >
> > > vedel by mi niekto poradit ako vytvorit aspon zakladny
> > interpreter pascalu.
> > > Kod by bol napisany v memo a vratil by hodnotu, pripadne,
> > by mohol pouzit a
> >
> > ...a musi to byt nutne pascal...
> > Nebylo by lepsi nastudovat MS Scripting Engine... bude to
> > konec koncu co
> > nevidet v kazde instalaci Windows. A je to verejne dostupne,
> > standardni a
> > siritelne - a hlavne nezavisle na tom, jestli je ten script
> > napsany v basicu,
> > javascriptu nebo perlu...
>
> Myslim, ze ma cenu uvazovat jen VBScript a JScript,
> ten perl se musi doinstalovat. Nebo maji v MS plany ho v budoucnu
> podporovat?
> to by bylo mile ...
>
> Jura
> ---
> Pr�choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Seznam tabulek IB6
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 11.5.2000 12:06:34
> Diky.
> Zkusil jsem :
> SELECT DISTINCT
> RDB$RELATION_NAME
> FROM
> RDB$RELATION_CONSTRAINTS
>
> Zda se ,ze to funguje, ale nevim zda to bude v poradku za vsech "rezimu".
> To opravdu neexistuje SQL prikaz ktery by vypsal seznam tabulek ?
>
Timto zpusobem se ti nevypisou tabulky, ketere nemaji zadny index apod.
Mozna bude lepsi tohle:
select distinct
RDB$RELATION_NAME
from RDB$RELATIONS
where RDB$SYSTEM_FLAG=0
Pokud nechces aby select vypsal VIEWy, pak tohle:
select distinct
RDB$RELATION_NAME
from RDB$RELATIONS
where (RDB$SYSTEM_FLAG=0)
and not (RDB$RELATION_NAME in (select RDB$VIEW_NAME from
RDB$VIEW_RELATIONS))
depends pro 16 bitu
[*] Libor Lev <levl(zv)oku-dc(tec)cz> - 11.5.2000 12:12:33
> Ahoj,
> nevite nekdo o obdobe programu depends pro prohledavani 16-ti bitovych
> exe a dll?
> Dik
> Vaclav Sazima
Na www.pcmag.com je utilita requires.com napsana v assembleru a
ta po spusteni vypise seznam pouzitych knihoven (DLL).
Libor Lev
levl(zv)oku-dc(tec)cz
priebeh skriptu
[*] Robert Zak <nrsys(zv)psn.sk> - 11.5.2000 12:36:22
To asi pojde ale iba v pripade ak nemam cyklus. V tom mojom skripte bezi
cyklus ktory spracovava dosle udaje ktore navyse mozu pocas jeho behu
narastat, takze toto mi asi nepomoze (aj tak dik).
Skutocne ale neexistuje moznost poslat pocas behu do programu nejaku
premennu, prip. vyvolat udalost v ADONIS? Ak to niekto viete, prosim napiste
mi aspon ze to nejde nech mam ciste svedomie ked to obidem nejakym
krkolomnym sposobom.
Robo
-----P�vodn� spr�va-----
Od: MJ soft <mjsoft(zv)rychnov(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 11. m�j 2000 11:20
Predmet: Re: priebeh skriptu
Mel jsem stejny problem na IB. Potreboval jsem vedet, kolik je jiz
hotovo. Vyresil jsem to tak, ze nepustim skript najednou, ale ze souboru ho
nacitam po jednotliv�ch prikazech. Samozrejme na zacatku projedu cely skript
a spocitam kolik je v nem prikazu. Potom uz jen zobrazuju dle potreby stav v
komponente GAUGE.
Snad ti to jako namet pomuze.
Jindra
----- Original Message -----
From: Robert Zak
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, May 11, 2000 8:47 AM
Subject: priebeh skriptu
Dobry den,
pytal som sa na to uz viackrat, stale som to ale nevyriesil. Nutne
potrebujem zistit, v akom mieste skriptu sa nachadzam. Pouzivam MSSQL7, D5,
ADONIS a mam skript ktory moze trvat aj niekolko hodin. Prosim vas, ako
mozem poslat z casu na cas nejaky vystup pocas behu skriptu??????? Prip.
vyvolat nejaku udalost alebo cokolvek podobne - napadlo ma iba riesenie cez
pomocnu tabulku ktoru budem citat z programu a zo skriptu zapisem do nej
vzdy to co potrebujem - no ale zda sa mi ze by mala existovat aj lepsia
cesta.
Alebo mi prosim aspon poradte, kde inde by som sa to mohol spytat.
Dakujem
Robo
Interpreter kodu
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 11.5.2000 12:36:16
Free interpreter pre Delphi je
v kniznici RALib
nie je az taky rychly ako niektore komercne, pretoze
robi len cistu interpretaciu (nie predkompilaciu)
Authors:
Andrey Prigunkov (black(zv)infa.ru, blacknbs(zv)chat.ru)
Roman Tkachev (roman(zv)infa.ru, whiteman(zv)mail.ru)
R&A Library Home Page:
http://www.infa.ru/black/ralib.htm,
http://www.chat.ru/~blacknbs/ralib.htm
olej
Problem s komponentou TListView
[*] Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 11.5.2000 13:21:38
Diky za pomoc. Uvedena funkce problem zcela resi.
TListView ve VCL by si asi zaslouzil drobnou opravu...
Rosta Podmanicky
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Wednesday, May 10, 2000 10:46 PM
To: Konference Delphi
Subject: Re: Problem s komponentou TListView
MSSQL-relace
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 11.5.2000 13:24:12
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.
b) Neexistuje nejaka www stranka o serveru MSSQL nebo emailova konference ?
konference viz www.emwac(tec)cz <http://www.emwac(tec)cz>
Honza
MSSQL-relace
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 11.5.2000 13:28:28
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.
Konference k MS SQL existuje na adrese: SQL-L(zv)LIST.EMWAC.CZ
<mailto:SQL-L(zv)LIST.EMWAC.CZ> .
Jaromir Cermak
-----Original Message-----
From: Vladislav Cadsky [mailto:cadskyk1(zv)atlas(tec)cz]
Sent: Thursday, May 11, 2000 10:26 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: MSSQL-relace
Zdravim,
pacuji s MSSQL 7.0 a mam jisty nedostatek znalosti s relacemi. Mam primarni
tabulku, v ni primarni klic "cislo faktury". Pres "cislo faktury" mam
vytvorenou relaci na sekundarni tabulku "rozpis faktury". Potiz je v tom, ze
nevim jak zmenit cislo faktury, kdyz mam jiz v sekundarni tabulce polozky.
a) Neexistuje nejaka procedura, ktera se zavesi na trigger primarni tabulky
a zmeni vsechny foreign key tables s predvolbou vypnuti kontroly stavajiciho
omezeni NOCHECK CONSTRAINT.
b) Neexistuje nejaka www stranka o serveru MSSQL nebo emailova konference ?
Diky vsem
Vlada Cadsky
cadsky(zv)atlas(tec)cz <mailto:cadsky(zv)atlas(tec)cz>
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
program jako service pod w9x
[*] Mik Radim <mik(zv)oce(tec)cz> - 11.5.2000 14:02:01
Snad pomuze toto ( uprava prazdneho projektu):
unit1.pas:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, rhm1;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
function My_Hook(var Message: TMessage): Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.My_Hook(var Message: TMessage): Boolean;
begin
Result := True;
Message.Result := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HookMainWindow( My_Hook);
If RegisterServiceProcess( THIS_TASK, REGISTER_SERVICE) = REGISTER_ERROR
Then
Application.MessageBox( 'Chyba pri startu', 'Chyba', MB_OK);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Application.UnhookMainWindow( My_Hook);
If RegisterServiceProcess( THIS_TASK, UNREGISTER_SERVICE) = REGISTER_ERROR
Then
Application.MessageBox( 'Chyba pri konci', 'Chyba', MB_OK);
end;
end.
rhm1.pas:
unit rhm1;
interface
Uses
Windows;
const
UNREGISTER_SERVICE = 0;
REGISTER_SERVICE = 1;
THIS_TASK = 0;
REGISTER_ERROR = 0;
REGISTER_OK = 1;
function RegisterServiceProcess( dwProcessID : DWORD; dwType : DWORD) :
DWORD; stdcall;
implementation
function RegisterServiceProcess; external kernel32 name
'RegisterServiceProcess';
end.
service.reg:
REGEDIT4
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices]
"rhm"="G:\Data\Service95\Service95.exe"
Nevim jak, ale diky tomu My_Hook to chodi.
>Mam takovy maly dotaz.
>Potrebuji pod win9x rict programu (je to tcp server) aby bezel i po
odhlaseni ze systemu. Nektere programy tak bezi.
> Michal HAMPL
jedinecny zaznam
[*] Roman Brad�����������u�����j_� - 11.5.2000 15:17:09
Problem se zakazky je ponekud hlubsi nez se zda, zatim jsem nenasel sw,
ktery by je uspokojive vyresil. Nebod se touto problematikou zabyvam nekolik
let doporucuji toto: jedinecny zaznam musis identifikovat v ruznych
instalacich, autoinkrement je ti nanic, nicmemne ani cislo zakazky nemuzes
pouzit z nize uvedenych duvodu. Zakazky, ketre se ti sejdou v jedne hromade
musi byt jednoznacne identifikovany a rozpoznany od kud pochazi, tedy extra
zaznam - cislo ktere, by melo byt slozene z jakehosi cisla poradi a dale z
cisla instalace nebo cisla strediska ... zalezi na cleneni programu a
instalaci. Duplicitni zakazky v poli zakazka z ruznych instalaci musis resit
pri sehravani dat, otazkou je jak.
[Roman Brad��]
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Pavel
ZIDEK
Sent: Thursday, May 11, 2000 10:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: jedinecny zaznam
Pouzij autoincrement pro sourome ucely a zakazku at zada uzivatel. napr
uzivatele radi do cisla zakazky zadavaji text a pak budes nekde.
1. autoincrement ti zajisti jedinecnost i pro ostatni navazujici tabulky
2. v cisle zakazky muze byt cokoliv a uzivatel jej beztrestne muze
kdykoliv menit
Pavel ZIDEK
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, May 11, 2000 8:47 AM
Subject: RE: jedinecny zaznam
v tej polozke budu cisla zakazok, zakazka musi byt jedinecna,
autoinkrement je nepouzitelny, zakazku misi zadat uzivatel.
MArtin
----- Original Message -----
Od: Erik Salaj
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 9. m�j 2000 23:30
Predmet: Re: jedinecny zaznam
D5, lomponenty adoexpress , DAO, ADO
mam tabulku s niekolkymi stlpcami v Acces 97. Jeden stlpec ma
primarny kluc, polozky v nom musia byt jedinecne.
Ako je lepsie postupovat pri overeni polozky ci je jedinecna ?
1. Vzdy overit pomocou SQL vyrazu s klauzulou where a ak bude
prazdny vysledok, hodnota v stlpci neexistuje ?
2. Dat post do tre fynali a ak nastane vynimka, budem vediet ze
hodnota existuje ?
3. inak, ako ?
3. pouzi Autoincrement polozku a nemusis nic overovat
Erik
Jak poznat MDAC?
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 11.5.2000 16:34:17
> Mam instalacni program pro aplikaci a ten instalak vyzaduje ODBC
> (MDAC balik). Pokud na pocitaci MDAC nainstalovan neni, objevi
> se hlaseni Chyba pri spousteni programu - chybejici knihovna
> ODBC32.dll.
> Rad bych toto osetroval sam, aby v pripade, ze MDAC neni
> nainstalovan, ten muj program predem spustil MDAC.
> Jak detekovat pritomnost/nepritomnost baliku MDAC? Napadla
> me takova pofiderni reseni, napr. testovat pritomnost vhodnych DLL
> knihoven apod., ale mozna nekdo vite o nejakem lepsim
> zpusobu...?
Ahoj,
pouzivam tohle (made by Erik Salaj):
(**********************************************************************)
(* TATMainF.DataAccBtClick
(**********************************************************************)
procedure TATMainF.DataAccBtClick(Sender : TObject);
var
Connection : Variant;
AVS : string;
begin
try
Connection := CreateOleObject('ADODB.Connection');
AVS := Connection.Version;
except
AVS := '';
end;
if AVS = '' then
begin
MessageDlg('Na tomto po��ta�i nen� nainstalov�na MDAC podpora pro
p��stup k ' + #13 + #10 + 'dat�m !',
mtWarning, [mbOK], 0);
end
else
begin
MessageDlg('Na tomto po��ta�i je nainstalov�na MDAC verze ' + AVS + '.',
mtInformation, [mbOK], 0);
end;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Drag and Dock
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 11.5.2000 16:51:22
ahoj,
Co treba zkusit posuvny panel ze SineaVCL4 na www.sinea(tec)cz
M.Jirman
----- Original Message -----
From: <Petr.Dana(zv)pvt(tec)cz>
Sent: Wednesday, May 10, 2000 8:51 AM
> Zdravim vsechny !
> Nemate nekdo zkusenosti s pouzivanim drag-and-dock?
> Potreboval bych nejak vytvorit neco jako je v ACDSee.
> Nejdriv jsem to zkousel tak, ze jsem primo formular dal jako DockSite a
> panely pak DockKind. Jenomze potrebuju dva panely, ktere se budou
> premistovat a na zbytek formu potrebuju dal neco dat. Pri pretahovani
panelu
> se ale vzdy naskladaly tak, ze zaplnovaly cely form.
> Pak jsem to zkusil tak, ze jsem na kazdou hranu hodil panel, ktery byl
> DockSite, jenomze to taky neni ono.
> Lepsi by byl prvni zpusob, ale nevim jakym zpusobem muzu ridit presun
> DockKind oken, jejich velikost atd.
>
> Nemate nekdo nejakej kus zdrojaku, kde by se toto pouzivalo? V Delphi je
> jedno demo, ale to je na ...
>
> Petr
>OT: Novy autorsky zakon
[*] Josef Koke� <kokes(zv)fsid.cvut(tec)cz> - 11.5.2000 18:57:14
Ahoj.
Vcera jsem zjistil, ze je v podstate schvalen novy autorsky zakon. Proti
tomu dnesnimu je nesrovnatelne podrobnejsi a slozitejsi. Je take delsi (84
stran). Obsahuje radu novinek (v pripade zajmu popisu podrobneji) a najdete
ho na
http://www.snemovna(tec)cz/sqw/text/text.sqw?C=136&T=K1998PSP3Z&q=autorsk%fd%20z
%e1kon%20&lem=1&j=15&d1=1
Duvod, proc o nem pisu, je ale alarmujici: zjistil jsem, ze obsahuje DESNY
renonc, ktery podle meho nazoru znamena konec programatoru v Cechach. Popisu
to podrobneji a prosim, abyste se na to podivali a vyvratili mi muj omyl.
Protoze pokud to neni omyl, tak to je skoro na emigraci...
Zakon v �10 naprosto spravne rozdeluje autorska prava na osobnostni a
majetkova. Mezi majetkova prava patri pravo dilo uzit, to znamena ze autor
m� pr�vo sv� d�lo jednak s�m u��vat a jednak ud�lit jin� osob� smlouvou
opr�vn�n� k v�konu tohoto pr�va. To je naprosto OK. Jenze pak prijde �26,
podle ktereho "Majetkov�ch pr�v se autor nem��e vzd�t; tato pr�va jsou
nep�evoditeln� a nelze je postihnout v�konem rozhodnut�; to neplat� pro
pohled�vky z takov�ch majetkov�ch pr�v vznikl�". Pro nekoho se to muze zdat
prijemne, ale je v tom ukryt potencialni prusvih.
Vysvetlim to na prikladu. Firma MozkoSoft si najme programatora Fistrona,
ktery pro ni za milion penez napise GenialniProgram. Firma MozkoSoft pote
nainvestuje dalsi miliony penez do marketingu, reklamy a do vseho, cemu se
cesky rika "promotion". No a az se ji podari verejnosti vstipit povedomi, ze
verejnost bez GenialnihoProgramu proste nemuze existovat, az vyvola
ukrutnou poptavku (a taky az financne vykrvaci), tak bude chtit dostat sve
penize nazpatek. To bude chvile pro programatora Fistronka. On se svych
majetkovych prav nemuze vzdat, ani je nemuze na MozkoSoft prevest (viz
zakon), i kdyby chtel. Jinymi slovy, MozkoSoft nemuze Fistronkovi zakazat,
aby Fistronek svuj GenialniProgram neprodaval znovu a znovu, kdykoliv ho to
napadne. Neboli, slovy zakona, "ud�lil jin� osob� smlouvou opr�vn�n� k
v�konu tohoto (uzivaciho) pr�va". Vedle toho, ze to je zrejme nemoralni,
povede to k jasnemu dusledku. Kazda ceska softwarova firma vyvine nanejvys
jeden program, po nemz bude nasledovat bankrot.
Nebo mate jiny nazor?
Kokes
W2000-D3
[*] Ma��k Petr <rtepema(zv)mbox.vol(tec)cz> - 11.5.2000 20:43:00
Zdravim v�echny a prosim ty, kdoz provozuji W2000CZ a D3, jake maji
zkusenosti, ci zda jsou nejake problemy.
RT electronic
Petr Ma��k
rtepema(zv)mbox.vol(tec)cz
OT: Usporny rezim
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 11.5.2000 22:09:41
Netusite nekdo jak ve W98 zcela vypnout spousteni nouzoveho rezimu. V
Ovladaci Panely => Rizeni spotreby jsem sice nastavil na nikdy ale stejne se
to asi po 5 minutach zapne. A jeste k tomu vsemu to nefunguje jak ma
(myslim), protoze mi napise, ze nemuzu prejit do usporneho rezimu kvuli
jinym spustenym programum a pritom nic spustenyho nemam. Muzete prosim nekdo
poradit, uz me to desne stve.
Jak poznat MDAC?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:26:33
From: Foldyna Ji�� <jiri.f(zv)avizo(tec)cz>
> > Jak detekovat pritomnost/nepritomnost baliku MDAC? Napadla
> > me takova pofiderni reseni, napr. testovat pritomnost vhodnych DLL
> > knihoven apod., ale mozna nekdo vite o nejakem lepsim
> > zpusobu...?
Ahoj,
A neslo by pouzit tuhle polozku v registru ?
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DataAccess
Petr Vones, amatersky programator
Interpreter kodu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:26:38
From: Radim Kunz <privat(zv)casestudio.com>
> 3. V Delphi si naimportuj Active X Microsoft Script Control, objevi
> se na palete. Pak uz si poradis sam, je to jednoduche, doporucuji
> vsem.
Ahoj,
Tady je o tom clanek:
http://www.delphizine.com/features/1999/12/di199912av_f/di199912av_f.asp
Petr Vones, amatersky programator
Pozastaveni procesu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:26:25
From: Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz>
> Nepomohlo by zkusit tomu procesu
> srazit prioritu na minimum (IDLE) ?
Tim ale nedosahnes zarucene zastaveni procesu, pouze se muze znacne zpomalit.
Petr Vones, amatersky programator
Metoda PRINT - doplneni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:26:48
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
> Zkousenim jsem prisel na to, ze pokud je v tiskarne nastaveno rozliseni
> 300dpi tak je vsechno OK ale pokud ho nastavim na 600dpi vyjede cisty papir.
Ahoj,
Neni to tim, ze je pak bitmapa uz prilis velka a dojde k preplneni bufferu
tiskarny ? Tusim ze kdysi se tu podobny problem uz probiral.
Petr Vones, amatersky programator
Jake knihovny vyzaduje aplikace? (Was: Proces s ch
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:30:01
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> Zkusim detekci MDAC podle Erika, ale presto: opravdu nelze
> predem nejak zjistit, zda v systemu jsou vsechny dll, ktere
> aplikace potrebuje? Nemuselo by to byt primo z te aplikace, mohla
> by to zjistovat i jina aplikace, ale rad bych se vyhnul chovani, ktere
Ahoj,
Zjistit to lze, ale ne na 100%. Aplikace muze vyzadovat knihovny nekolika zpusoby.
1. Statickym importem - soucast PE EXE formatu, o zavedeni se stara PE loader.
Nejbeznejsi zpusob, v pripade ze knihovna neexistuje nelze aplikaci spustit.
2. Dynamickym importem - reseno programove v danem jazyce pomoci LoadLibrary a
GetProcAddress.
Vyhodne pro pripady, ze aplikace pouziva napriklad ruzne knihovny pro ruzne
verze OS nebo je treba obejit neexistenci nekterych funkci. Tento zpusob vsak
neni nejlepsi pro importovani velkeho poctu funkci. Je dobre jej pouzit jen v
nejnutnejsich pripadech.
3. Dynamickym importem pomoci Delay-Load sekce v PE - Delphi zatim nepodporuje,
je to uz ale v BCB5, takze v D6 se snad dockame.
Podobne jako 2 avsak bez nutnosti resit vec programove volanim GetProcAddress.
4. Forward deklaraci exportovane funkce - nevyskytuje se prilis casto, prikladem
jsou treba nektere funkce z KERNEL32.DLL ktere jsou ve skutecnosti v NTDLL.
Tuto moznost pokud vim Delphi vubec nepodporuje, navic jeji vyuziti pri tvorbe
vlastnich knihoven neni asi prilis velke.
5. Muze pouzivat COM objekty.
Nejedna se o import v pravem slova smyslu, nicmene i tak se jedna o zavislost
na dalsich DLL.
V praxi lze pomoci externiho nastroje zjistit vsechny pripady krome 2 (zkousel
jsem nejak pokryt i tento zpusob ale bez vyraznejsich uspechu :-) a 5.
Napriklad MS dodava nastroj Dependency Walker, ktery zobrazuje tyto zavislosti.
Pro Delphi mam jiz hotovou knihovnu trid pro prochazeni PE formatu, ktera pokryva
vsechny vyse uvedene moznosti (tedy krome 2 a 5), vcetne nastroje podobneho DW.
Sledujte JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) melo by se to tam casem
objevit.
Jeste poznamka k bodu 1. Pri kazdem zavedeni aplikace dochazi k prochazeni
tabulek importu a vyhledavani prislusnych funkci v knihovnach. Jakmile je funkce
nalezena, je jeji adresa zapsana v pameti v tabulce adres (navic MS a Borland
jeste pouzivaji trochu odlisny zpusob prace s touto tabulkou). Pokud se knihovny
ktere aplikace pouzivaji nemeni (a je zamezeno relokaci knihovny pri pripadne
kolizi s jinou v adresovem prostoru), je takto ziskana pro danou funkci vzdy
stejna adresa. Z toho duvodu existuje dalsi zpusob importu funkci "Bound import",
kde se tato vysledna adresa zapise primo do PE souboru aplikace pomoci nejakeho
externiho nastroje (BIND v pripade MS nebo funkce BindImageEx). Tak dojde ke
zrychleni zavadeni (cca o 12%). Vzhledem k tomu, ze aplikace muze bezet na ruznych
OS (a tedy i adresy exportovanych funkci, ktere jsou zaneseny takto do tabulky
importu se mohou lisit) se toto provadi pri instalaci aplikace. Pokud to nekoho
vice zajima, tak zde je odkaz na clanek v MSJ, vcetne praktickych vysledku:
http://msdn.microsoft.com/msdnmag/issues/0500/hood/hood0500.asp
Petr Vones, amatersky programator
LDAP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.2000 23:34:45
From: Marek Erban (Delphi Mailbox) <delphi(zv)nw.pregis(tec)cz>
> Nemate nekdo nejake DCU, LIB nebo DLL nebo dokumentaci na LDAP? (Delphi
> nebo BCPP) Free + Source vitano.
Ahoj,
Prelozene hlavicky "Windows Lightweight Directory Access Protocol - WLDAP32.DLL"
(pokud je to ono) najdes tady: http://delphi-jedi.org/Jedi:APILIBRARY
Petr Vones, amatersky programator
Jak poznat MDAC?
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.5.2000 23:36:53
> Odkud vezmu unit MDACVer?
Je potrebne importovat typovu kniznicu WINNT\System32\odbcconf.dll,
t.j. "Microsoft Data Access Components Installed Version". Mozem
Ti to pripadne poslat.
Erik
Interpreter kodu
[*] Lauko Stefan <lauko(zv)salamon.sk> - 12.5.2000 00:58:44
Dakujem vsetkym,
toto je to co som hladal. Na rychlosti az tak nezalezi ide o uplne kratke
sekvencie.
Perfekt...
----- Original Message -----
Od: OLEJNIK Andrej <olej(zv)nt2.asset.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 11. m�j 2000 12:36
Predmet: RE: Interpreter kodu
> Free interpreter pre Delphi je
> v kniznici RALib
> nie je az taky rychly ako niektore komercne, pretoze
> robi len cistu interpretaciu (nie predkompilaciu)
>
> Authors:
> Andrey Prigunkov (black(zv)infa.ru, blacknbs(zv)chat.ru)
> Roman Tkachev (roman(zv)infa.ru, whiteman(zv)mail.ru)
>
> R&A Library Home Page:
> http://www.infa.ru/black/ralib.htm,
> http://www.chat.ru/~blacknbs/ralib.htm
>
>
> olej
>Usporny rezim
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.5.2000 05:47:01
Zkus usporny rezim zakazat v setupu pocitace
Jan Fiala
----- Original Message -----
From: "Daniel Krej��" <fredycrueger(zv)volny(tec)cz>> Netusite nekdo jak ve W98 zcela vypnout spousteni nouzoveho rezimu. V
> Ovladaci Panely => Rizeni spotreby jsem sice nastavil na nikdy ale stejne se
> to asi po 5 minutach zapne. A jeste k tomu vsemu to nefunguje jak ma
> (myslim), protoze mi napise, ze nemuzu prejit do usporneho rezimu kvuli
> jinym spustenym programum a pritom nic spustenyho nemam. Muzete prosim nekdo
> poradit, uz me to desne stve.
>
>Usporny rezim
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 12.5.2000 06:59:09
Cauec,
> Netusite nekdo jak ve W98 zcela vypnout spousteni nouzoveho rezimu. V
> Ovladaci Panely => Rizeni spotreby jsem sice nastavil na nikdy ale stejne
se
> to asi po 5 minutach zapne. A jeste k tomu vsemu to nefunguje jak ma
> (myslim), protoze mi napise, ze nemuzu prejit do usporneho rezimu kvuli
> jinym spustenym programum a pritom nic spustenyho nemam. Muzete prosim
nekdo
Tohle jsem mel taky. Ale z HW to delala videokarta (nejaka AGP 4MB). Po
vymene za ATInu bez problemu. Ze SW to tusim dela napr. WinRoute ver.2, jak
dalsi, nevim.
Bye Ludan
IB a web
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.5.2000 08:34:52
Ahoj,
potreboval bych zjistit, jak je licencne reseno vystavovani dat z IB
na internetu.
V soucasne dobe pouzivame MSSQL 7 a tam plati, ze pokud
se maji data pouzit na webu, musi se koupit pomerne drahy
internet connector (je to jakasi licence za velke penize).
Pokud bychom presli na IB 6 - budou nejake podobne
problemy?
David
OT: Autorsky podil
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 12.5.2000 09:18:04
Nemate nekdo zkusenost s tim, kolik procent byva autorsky podil
a jak ho stanovit?
Autorskym podilem myslim kolik procent z prodejni ceny nalezi autorum?
Pripadne nevite nekdo o nejake literature, kde by se o tom hovorilo?
ing. Michal K�s
TANGO software s.r.o.
pokladn� syst�my pro restaurace a obchody
Krymsk� 42
360 01 Karlovy Vary
017/32 264 68, 32 258 86
kus(zv)tangosw(tec)cz
www.tangosw(tec)cz
OT: Novy autorsky zakon
[*] delphi(zv)htkpro(tec)cz - 12.5.2000 9:24:00
Vzhledem ze stejna uprava plati i doposud tj. nelze se vzdat autorskych
prav. Resi se smluvne jako souhlas k vyhradnimu pravu na distribuci a
uzivani software. Je to zcela bezne a pouziva se to bez problemu.
S pozdravem
Jan Kadlecek
HTK Pro s.r.o.>Ahoj.
>
>Vcera jsem zjistil, ze je v podstate schvalen novy autorsky zakon. Proti
>tomu dnesnimu je nesrovnatelne podrobnejsi a slozitejsi. Je take delsi (84
>stran). Obsahuje radu novinek (v pripade zajmu popisu podrobneji) a najdete
>ho na
>
>http://www.snemovna(tec)cz/sqw/text/text.sqw?C=136&T=K1998PSP3Z&q=autorsk%fd%20
>z
>%e1kon%20&lem=1&j=15&d1=1
>
>Duvod, proc o nem pisu, je ale alarmujici: zjistil jsem, ze obsahuje DESNY
>renonc, ktery podle meho nazoru znamena konec programatoru v Cechach.
>Popisu
>to podrobneji a prosim, abyste se na to podivali a vyvratili mi muj omyl.
>Protoze pokud to neni omyl, tak to je skoro na emigraci...
>
>Zakon v �10 naprosto spravne rozdeluje autorska prava na osobnostni a
>majetkova. Mezi majetkova prava patri pravo dilo uzit, to znamena ze autor
>m� pr�vo sv� d�lo jednak s�m u��vat a jednak ud�lit jin� osob� smlouvou
>opr�vn�n� k v�konu tohoto pr�va. To je naprosto OK. Jenze pak prijde �26,
>podle ktereho "Majetkov�ch pr�v se autor nem��e vzd�t; tato pr�va jsou
>nep�evoditeln� a nelze je postihnout v�konem rozhodnut�; to neplat� pro
>pohled�vky z takov�ch majetkov�ch pr�v vznikl�". Pro nekoho se to muze zdat
>prijemne, ale je v tom ukryt potencialni prusvih.
>
>Vysvetlim to na prikladu. Firma MozkoSoft si najme programatora Fistrona,
>ktery pro ni za milion penez napise GenialniProgram. Firma MozkoSoft pote
>nainvestuje dalsi miliony penez do marketingu, reklamy a do vseho, cemu se
>cesky rika "promotion". No a az se ji podari verejnosti vstipit povedomi,
>ze
>verejnost bez GenialnihoProgramu proste nemuze existovat, az vyvola
>ukrutnou poptavku (a taky az financne vykrvaci), tak bude chtit dostat sve
>penize nazpatek. To bude chvile pro programatora Fistronka. On se svych
>majetkovych prav nemuze vzdat, ani je nemuze na MozkoSoft prevest (viz
>zakon), i kdyby chtel. Jinymi slovy, MozkoSoft nemuze Fistronkovi zakazat,
>aby Fistronek svuj GenialniProgram neprodaval znovu a znovu, kdykoliv ho to
>napadne. Neboli, slovy zakona, "ud�lil jin� osob� smlouvou opr�vn�n� k
>v�konu tohoto (uzivaciho) pr�va". Vedle toho, ze to je zrejme nemoralni,
>povede to k jasnemu dusledku. Kazda ceska softwarova firma vyvine nanejvys
>jeden program, po nemz bude nasledovat bankrot.
>
>Nebo mate jiny nazor?
>Kokes
>
>
>
>Excel + e-mail
[*] Tibor Galik <tgalik(zv)vsz.sk> - 12.5.2000 09:34:38
Ahoj,
Neviete mi niekto poradit, prosim ?
V Delphi cez OLE Automation otvaram Excel vyplnim tabulku a posielam cez excelovsky SENDMAIL. Vsetko je OK, mail dojde, ale ked uzavriem OLE Automation cez Quit vypise mi hlasku "The MAPI Spooler has shut down unexpectedly. Close all mail-enabled application before attempting to log on again."
Skusil som pouzit prikaz (Visual Basic) maillogon, potom sendmail a na zaver maillogoff. Na maillogoff mi vypise tu istu hlasku.
Nestretli ste sa s tym ? Ako to riesit ?
Je moznost pouzit komponenty od PIETTEho, alebo synapse, ale ked to ide priamo z Excelu, chcel by som to pouzit.
Dakujem
cao
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
OT: Autorsky podil
[*] Jana Ku�erov� - 12.5.2000 10:00:11
> Nemate nekdo zkusenost s tim, kolik procent byva autorsky podil
> a jak ho stanovit?
>
> Autorskym podilem myslim kolik procent z prodejni ceny nalezi autorum?
Mam informace o vydavani knizek, v pripade originalu jde zpravidla o 10-20
procent,
v pripade prekladu cini autorska prava asi 7-9 procent z prodejni ceny
knihy.
Tech 7-9 procent se plati ale i napriklad pri vydavani deskove hry.
Jana Kucerova
e-mail : kucerova(zv)atlascon(tec)cz
RichEdit pages, optimalizace nacitani...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 12.5.2000 10:28:43
Ahoj
nedavno jsem se ptal na stranky zabyvajici se RichEditem.
Nakonec jsem je nasel na :
http://home.att.net/~robertdunn/Yacs.html
je to sice urceno pro C++ Builder, ale i Delphista tam najde
par zajimavosti na tema RichEdit 1.0, 2.0 a 3.0
... napriklad kterak urychlit nacitani souboru:
procedure LoadFile(FileName: string; RichEdit: TRichEdit);
var
EventMask: integer;
begin
//...
EventMask:= SendMessage(RichEdit.Handle, EM_SETEVENTMASK, 0, 0);
SendMessage(RichEdit.Handle, WM_SETREDRAW, wParam(False), 0);
RichEdit.Lines.LoadFromFile(FileName);
SendMessage(RichEdit.Handle, WM_SETREDRAW, wParam(True), 0);
InvalidateRect(RichEdit.Handle, nil, True);
SendMessage(RichEdit.Handle, EM_SETEVENTMASK, 0, EventMask);
//...
end;
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Seriova komunikace
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 12.5.2000 10:32:49
Ahoj Delphici,
mam MDI aplikaci pro obousmernou seriovou komunikaci. Pouzivam AsyncPro
V2.56 od TurboPower a D4Std. Pocitac s pripojenym zarizenim komunikuje
pomerne komplikovanym protokolem, ktery po patricnem zjednoduseni by mohl
vypadat nasledovne:
PC zadost o data
ZARIZENI blok dat
PC odpoved OK (odpoved musi prijit do 1s jinak zarizeni ukonci
prenos)
ZARIZENI dalsi blok dat
PC konec prenosu
Vse funguje v poradku az do doby, kdy chytnu child okno za listu a zacnu s
nim pohybovat po pracovni plose aplikace. Spustil jsem logovani a trasovani
a na zaklade vysledku jsem usoudil, ze asi dochazi k nasledujicimu:
aplikace prijme blok dat, prikazem PutChar() odesle odpoved pro zarizeni,
ale protoze je aplikace zaneprazdnena pohybem okna nedojde k propasirovani
teto odpovedi do zarizeni vcas (do 1s) a tudiz zarizeni ukonci komunikaci.
Znalci seriovych komunikaci ve Windows, poradte mi, prosim, jak tento
problem resit.
Dik. Jara.
svehla(zv)atlas(tec)cz
Metoda PRINT - doplneni
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 12.5.2000 10:37:48
----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. kv�tna 2000 23:26
P�edm�t: Re: Metoda PRINT - doplneni
> From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
> > Zkousenim jsem prisel na to, ze pokud je v tiskarne nastaveno rozliseni
> > 300dpi tak je vsechno OK ale pokud ho nastavim na 600dpi vyjede cisty
papir.
>
> Ahoj,
>
> Neni to tim, ze je pak bitmapa uz prilis velka a dojde k preplneni bufferu
> tiskarny ? Tusim ze kdysi se tu podobny problem uz probiral.
>
> Petr Vones, amatersky programator
>
>
Taky mne to napadlo, ale to by se snad tiskarna ozvala alespon hlasenim
MEMORY OVERRUN. A tady ani aplikace ani tiskarna neprotestuje. Prolezl jsem
konferenci tam i nazpatek ale nic "k veci" jsem nenasel.
Vol�n� HELPU
[*] Pavel �ern� - 12.5.2000 10:47:26
Prosim o pomoc s (snad) trivialnim problemem.
Jak zavolat WinHelp ( z menu ) tak, aby se
uzivateli objevil obsah ( stromecek knizek )
namisto urcite konkretni stranky ?
Diky predem.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Seriova komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.5.2000 11:50:11
>
>Znalci seriovych komunikaci ve Windows, poradte mi, prosim, jak tento
>problem resit.
separatni thread na komunikaci ?
Zdravi
D. Toman
ADO a MS Jet
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 12.5.2000 11:59:51
Haj hou,
pokousel jsem se dostat k Access tabulkam z Delphi5 pres ADO komponenty, ale
nemam v seznamu provideru MS Jet. Muze mi nekdo vysvetlit jak to tam dostanu
?
Delphi 5 Enterprise, MS Office97 Proffesional, MS Win98
Diky
Marek Soukup
Roudne 126
370 07 Ceske Budejovice
Ceska Republika
tel: +42(038)6351736
ICQ: 13110124
e-mail: marek(zv)comberg(tec)cz
QRDesigner & ADONIS
[*] bigzero(zv)post(tec)cz - 12.5.2000 12:13:46
Zdravim !
Nemate nekdo portaci QRDesigner-a (www.thsd.de) pro ADONIS ?
Kdyz jsem se dival do zdrojaku QRD tak to nebude zas tak moc moc slozity, ale vikend bych radeji stravil jinak ;)
Diky
BigZero
Kde rychle najdu nejblizsi lekarnu?
*** http://NAJDI.TO
acees
[*] Martin <geoplan(zv)pp.sinet.sk> - 12.5.2000 12:45:22
Dobry,
potrebujem k jednej tabulke acces pristupovat z viacerych programov, resp. viacerymi uzivatelmi v sieti.
Da sa nejako zamknut jeden riadok tabulky ? A ako v programe zistim ci je riadok zamknuty ?
Robim to cez D5 a Adoexpres ale mohlo by byt aj komp. ADO
Martin
Novy autorsky zakon
[*] Roman Brad�����������u�����j_� - 12.5.2000 13:41:41
Ve smlouve s autorem muze firma uvest klauzuli ze autor nemuze do urcite
doby poskytnout prava treti osobe (pod pokutou ...) a dalsi klauzuli ze se
zavazuje naopak produkt uvest na trh do urcite doby jinak ... (ochrana
autora) zalezi na konstrukci autorske smlouvy.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Josef Koke�
Sent: Thursday, May 11, 2000 5:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: Novy autorsky zakon
Ahoj.
Vcera jsem zjistil, ze je v podstate schvalen novy autorsky zakon. Proti
tomu dnesnimu je nesrovnatelne podrobnejsi a slozitejsi. Je take delsi (84
stran). Obsahuje radu novinek (v pripade zajmu popisu podrobneji) a najdete
ho na
http://www.snemovna(tec)cz/sqw/text/text.sqw?C=136&T=K1998PSP3Z&q=autorsk%fd%20z
%e1kon%20&lem=1&j=15&d1=1
Duvod, proc o nem pisu, je ale alarmujici: zjistil jsem, ze obsahuje DESNY
renonc, ktery podle meho nazoru znamena konec programatoru v Cechach. Popisu
to podrobneji a prosim, abyste se na to podivali a vyvratili mi muj omyl.
Protoze pokud to neni omyl, tak to je skoro na emigraci...
Zakon v �10 naprosto spravne rozdeluje autorska prava na osobnostni a
majetkova. Mezi majetkova prava patri pravo dilo uzit, to znamena ze autor
m� pr�vo sv� d�lo jednak s�m u��vat a jednak ud�lit jin� osob� smlouvou
opr�vn�n� k v�konu tohoto pr�va. To je naprosto OK. Jenze pak prijde �26,
podle ktereho "Majetkov�ch pr�v se autor nem��e vzd�t; tato pr�va jsou
nep�evoditeln� a nelze je postihnout v�konem rozhodnut�; to neplat� pro
pohled�vky z takov�ch majetkov�ch pr�v vznikl�". Pro nekoho se to muze zdat
prijemne, ale je v tom ukryt potencialni prusvih.
Vysvetlim to na prikladu. Firma MozkoSoft si najme programatora Fistrona,
ktery pro ni za milion penez napise GenialniProgram. Firma MozkoSoft pote
nainvestuje dalsi miliony penez do marketingu, reklamy a do vseho, cemu se
cesky rika "promotion". No a az se ji podari verejnosti vstipit povedomi, ze
verejnost bez GenialnihoProgramu proste nemuze existovat, az vyvola
ukrutnou poptavku (a taky az financne vykrvaci), tak bude chtit dostat sve
penize nazpatek. To bude chvile pro programatora Fistronka. On se svych
majetkovych prav nemuze vzdat, ani je nemuze na MozkoSoft prevest (viz
zakon), i kdyby chtel. Jinymi slovy, MozkoSoft nemuze Fistronkovi zakazat,
aby Fistronek svuj GenialniProgram neprodaval znovu a znovu, kdykoliv ho to
napadne. Neboli, slovy zakona, "ud�lil jin� osob� smlouvou opr�vn�n� k
v�konu tohoto (uzivaciho) pr�va". Vedle toho, ze to je zrejme nemoralni,
povede to k jasnemu dusledku. Kazda ceska softwarova firma vyvine nanejvys
jeden program, po nemz bude nasledovat bankrot.
Nebo mate jiny nazor?
Kokes
Property editors - editovanie viacerych vlastnosti
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 12.5.2000 13:41:14
Kedysi som robil nejaku komponentu
a robil som k nej property editor
a tam mi vznikol problem, ze som potreboval
v property editore editovat hodnoty pre
viac property-s.
Neviem to presne napisat ale napriklad
v property editore pre TImage.Picture by
sa dal menit napriklad aj TImage.Tag
dufam, ze som to napisal zrozumitelne
no a teraz otazka>
da sa to spravit nejako rozumne?
aby sa dal urobit prehladny property editor
pre vacsinu vlastnosti komponenty?
olej
E-MAIL WORK: olej(zv)asset.sk
E-MAIL PRIVATE : olej(zv)atlas(tec)cz
Private WEB> http://go.to/aolej
Usporny rezim
[*] Ji�� Fait���}���6���3 - 12.5.2000 13:49:13
spust si msconfig a tam je nastaveni kde nouzovy rezim muzes vypnout
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ing. Lud�k Florian
Sent: Friday, May 12, 2000 6:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Usporny rezim
Cauec,
> Netusite nekdo jak ve W98 zcela vypnout spousteni nouzoveho rezimu. V
> Ovladaci Panely => Rizeni spotreby jsem sice nastavil na nikdy ale stejne
se
> to asi po 5 minutach zapne. A jeste k tomu vsemu to nefunguje jak ma
> (myslim), protoze mi napise, ze nemuzu prejit do usporneho rezimu kvuli
> jinym spustenym programum a pritom nic spustenyho nemam. Muzete prosim
nekdo
Tohle jsem mel taky. Ale z HW to delala videokarta (nejaka AGP 4MB). Po
vymene za ATInu bez problemu. Ze SW to tusim dela napr. WinRoute ver.2, jak
dalsi, nevim.
Bye Ludan
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.144 / Virov� b�ze: 68 - datum vyd�n�: 26.4.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.144 / Virov� b�ze: 68 - datum vyd�n�: 26.4.2000
jedinecny zaznam
[*] Martin <geoplan(zv)pp.sinet.sk> - 12.5.2000 13:59:47
Dobre , povedzme ze by som pouzil autoinkrement.
Ale ti tabulky uz existuju a su spojene cez text. pole zakazky. Ja chcem doplnit do tabuliek pole integer, rsp. autoinkr. . Vygeneruje sa mi nejak sam alebo ako na to ?
Martin
----- Original Message -----
Od: Pavel ZIDEK
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 11. m�j 2000 11:32
Predmet: Re: jedinecny zaznam
Pouzij autoincrement pro sourome ucely a zakazku at zada uzivatel. napr uzivatele radi do cisla zakazky zadavaji text a pak budes nekde.
1. autoincrement ti zajisti jedinecnost i pro ostatni navazujici tabulky
2. v cisle zakazky muze byt cokoliv a uzivatel jej beztrestne muze kdykoliv menit
Pavel ZIDEK
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, May 11, 2000 8:47 AM
Subject: RE: jedinecny zaznam
v tej polozke budu cisla zakazok, zakazka musi byt jedinecna, autoinkrement je nepouzitelny, zakazku misi zadat uzivatel.
MArtin
----- Original Message -----
Od: Erik Salaj
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 9. m�j 2000 23:30
Predmet: Re: jedinecny zaznam
D5, lomponenty adoexpress , DAO, ADO
mam tabulku s niekolkymi stlpcami v Acces 97. Jeden stlpec ma primarny kluc, polozky v nom musia byt jedinecne.
Ako je lepsie postupovat pri overeni polozky ci je jedinecna ?
1. Vzdy overit pomocou SQL vyrazu s klauzulou where a ak bude prazdny vysledok, hodnota v stlpci neexistuje ?
2. Dat post do tre fynali a ak nastane vynimka, budem vediet ze hodnota existuje ?
3. inak, ako ?
3. pouzi Autoincrement polozku a nemusis nic overovat
Erik
Seriova komunikace
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 12.5.2000 14:55:18
No, mozna kdybys to udelal jako novy thread tak by mu zadne vykonavani
hlavniho programu nezdrzovalo cinnost.
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
> Ahoj Delphici,
> mam MDI aplikaci pro obousmernou seriovou komunikaci. Pouzivam AsyncPro
> V2.56 od TurboPower a D4Std. Pocitac s pripojenym zarizenim komunikuje
> pomerne komplikovanym protokolem, ktery po patricnem zjednoduseni by mohl
> vypadat nasledovne:
>
> PC zadost o data
> ZARIZENI blok dat
> PC odpoved OK (odpoved musi prijit do 1s jinak zarizeni
ukonci
> prenos)
> ZARIZENI dalsi blok dat
> PC konec prenosu
>
> Vse funguje v poradku az do doby, kdy chytnu child okno za listu a zacnu s
> nim pohybovat po pracovni plose aplikace. Spustil jsem logovani a
trasovani
> a na zaklade vysledku jsem usoudil, ze asi dochazi k nasledujicimu:
>
> aplikace prijme blok dat, prikazem PutChar() odesle odpoved pro zarizeni,
> ale protoze je aplikace zaneprazdnena pohybem okna nedojde k propasirovani
> teto odpovedi do zarizeni vcas (do 1s) a tudiz zarizeni ukonci komunikaci.
>
> Znalci seriovych komunikaci ve Windows, poradte mi, prosim, jak tento
> problem resit.
>
> Dik. Jara.
> svehla(zv)atlas(tec)cz
>
>prepojene tabulky
[*] Martin <geoplan(zv)pp.sinet.sk> - 12.5.2000 16:46:24
zdravim,
mam dve tabulky, v jednej mam naprikl. polozky
CZ , NAZOV , POZN
v druhej
CZ , HODINY.
tabulky su prepojene cez pole CZ(integer)
pri pridavani zaznamu do druhej tabulky do policka CZ chcem aby si pouzivatel mohol
vybrat iba zo zaznamov existujucich v prvej tabulke a chcem mu ponuknut polozki nazov s prvej tabulky, po vybere
aby sa vlozila hodnota CZ. Mam pouzit komp. ListBox alebo to urobit nejak inak ?
D5, tabulky acces, AdoExpress, v prvej tabulke do 5000 zaznamov druha tabulka do 40000 neskor.
nakopnite ma niekto spravnym smerom. Dik
Martin
Vol�n� HELPU
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.5.2000 17:39:39
On 12 May 00, at 10:47, Pavel �ern� wrote:
> Prosim o pomoc s (snad) trivialnim problemem.
> Jak zavolat WinHelp ( z menu ) tak, aby se
> uzivateli objevil obsah ( stromecek knizek )
> namisto urcite konkretni stranky ?
View / Toollbars / Customize / Commands / Help, tam si vyber
ikonu a pretahni ji mysi do toolbaru.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
IB: Zistenie pridaneho riadku
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.5.2000 19:36:00
Zdravim.
Ako zistim ktory riadok bol pridany. Teraz to riesim cez citanie generatora
ktory vytvara Unique field number, ale to nie je spravne riesenie v pripade
siete, moze sa stat ze aj iny prida zaznam medzi mojim zistenim a samostnym
zapisom.
S pozdravom
Roland.
string na prikazy
[*] Hurricane <hurricane(zv)email(tec)cz> - 12.5.2000 21:24:50
Zdravim
M�m Edit a pot�ebuju to co je v n�m napsan� p�ev�st na p��kazy a ne na
string. Nap� budu m�t v editu TimeToStr(now) a chci, aby se na labelu
objevil �as v dob� spu�t�n� procedury p�evodu a ne pouze text
TimeToStr(now). V editu m��e b�t nap�. text: 'Tento dokument byl vyti�t�n v
'+TimeToStr(now)+'.'. Co se m� objevit v labelu je snad jasn�. V�sledkem
toho p��kazu bude string, kter� pou�iju jinde. Zn� n�kdo �e�en� ? D�kuji.
Hurricane
Vol�n� HELPU
[*] L. ZITA <konference(zv)sales(tec)cz> - 12.5.2000 22:13:34
Behalf Of Pavel �ern�
> Prosim o pomoc s (snad) trivialnim problemem.
> Jak zavolat WinHelp ( z menu ) tak, aby se
> uzivateli objevil obsah ( stromecek knizek )
> namisto urcite konkretni stranky ?
> Diky predem.
>
Ahoj.
Zkus Application.HelpCommand(HELP_FINDER, 0)
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
StringGrid
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 12.5.2000 23:57:06
Ahojte, mel bych 2 dotazy na %subj%:
1) Poradte mi nejaky inteligentni zpusob ukladani StrGridu. Momentalne
to delam, tak ze v cyklu projizdim vsechny radky a sloupce a ukladam to
do TextFajlu pomoci WriteLnu, coz je sice funkcni, ale naprosto
debilni...
2) Potreboval bych poradit, jestli se da nejak jednoduse radit StrGrid
podle jednotlivych sloupcu, a to i napr. tak, ze kdyz je v prvnim
sloupci na nekterych radcich to same, tak se to seradi podle sloupce
druheho.
Za kazdou radu a namet predem dik...
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/ADO a MS Jet
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.5.2000 00:06:51
> pokousel jsem se dostat k Access tabulkam z Delphi5 pres ADO komponenty,
ale
> nemam v seznamu provideru MS Jet. Muze mi nekdo vysvetlit jak to tam
dostanu
Nainstalovanim ADO (cize MDAC), je to na http://www.microsoft.com/data
Erik
Obnova datab�ze FlashFiler
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 13.5.2000 00:21:27
Cauec,
mam databazi FlashFiler a jeden ze zakazniku mi ukoncuje wokna (W NT) jedine
vypinacem. Aby sjel aplikaci nebo ukoncil wokna regulerne, to ne. V tabulce
uz je cca 35000 zaznamu a ted se mu podarilo tim neustalym vypinanim, ze po
najeti aplikace padne. Docasne jsem to vyresil tak, ze jsem data zkopiroval
do jinyho adresare a tabulku komplet vymazal. Problem prestal. Data
vyexportuju a pak naimportuju jinam.
A dotaz. Jak udelat (rucne nebo programove) obnovu databaze ? Uz mi posledni
dobou nejak hrabe a nejak se nedari.
Thanks za rady.
Bye Ludan
Seriova komunikace
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 13.5.2000 00:26:00
Subject: Re: Seriova komunikace
> >
> >Znalci seriovych komunikaci ve Windows, poradte mi, prosim, jak tento
> >problem resit.
>
> separatni thread na komunikaci ?
Ano, jedno (nebo jedine ?) reseni. Stejny problem jsem mel taky. Pod Win 95,
98 bez problemu, pod Win NT po kliknuti na pruh pro pretazeni okna to padlo
do 3 sekund. Skutecne mi pomohlo aplikaci prepsat tak, aby komunikace bezela
ve vlastnim threadu.
Bye Ludan
WinBase602 - stored proc, sekvencie
[*] iturcan(zv)gamo.sk - 13.5.2000 01:12:02
Ing. Igor Klepoch napisal:
>...ale je to neake velmi pomale.
>Porovnaval som to s mODBC a standardnym QUERY a
>priame komponenty boli najpomalsie !!!
>
>najkor som iba cez dbgrid prezeral tabulku a pri posune o stranku
>sa rolovali udaje vyrazne pomalsie ake cez ODBC. Potom som
>dal prekrokovat celu tabulku + neake citanie do premennej
>a dostal som sa cca k casom :
>
>mODBC 12 sec
>ODBC 15 sec
>wTable, vQuery cca 120 sec - ten cas som si poriadne nevsimol.
>
otestoval som priklad ktory mi poslal a naozaj WDE sa javilo najpomalsie
prejdenie 10586 zaznamov (struktura tabulky ma ak som to ratal dobre 70
roznych fieldov) mi trvalo zhruba tak ako je to napisane hore. Zacal som
teda zistovat pricinu tohoto spomalovacieho efektu. A ajhla. Problem je v
tom ze WinBase ma
viac funkcii na citanie a zapis do DB. V komponentach bola povodne pouzita
funkcia cd_read_record ktora ma nevyhodu ze nevie pracovat z multiatributmi
(pre nezasvetenych jedna sa o moznost ukladania viac hodnot do jedeho
fieldu), nuz
a funkcia ktora tuto urcite uzitocnu vlastnost podporuje cd_read_ind (bola
pouzita), ta ma nevyhodu ze nevie precitat celu vetu ale len jeden
konkretny field z tej vety. Tzn. tu prave je ten problem , vzdy ked prisla
poziadavka na precitanie zaznamu som musel
precitat kazdy zaznam osobitne a to sposobilo tento efekt(mne sa to
neprejavovalo
pretoze som zatial nebol nuteny pouzivat tabulku z takym mnozstvom
fieldov).
Problem som vyriesil tak ze som do komponent zahrnul novu vlastnost
(property)
UsedMultiAttr ktora ak ma hodnotu TRUE pouzije sa na citanie
fn. cd_read_ind a ak je nastavena na False pouzije sa fn. cd_read_record).
Nastavenim property UsedMultiAttr = TRUE vrati test cas 2 sec, co by mohlo
postacovat.
p.s. na zrychlenia otvarania tabulky jestvuje property wbCountMode ktora ak
je
nastavena na wbSpeedMode tak pri otvarani nepocita vety. Tie sa
spocitaju az
pri volani metod recordcount alebo last. Odporucam pouzit pri vsetkych
vypoctovych
(nezobrazovacich) operaciach a pri praci z objemnimi tabulkami ktore
by sa inak
otvarali niekolko sekund.
Ivan Turcan
string na prikazy
[*] L. ZITA <konference(zv)sales(tec)cz> - 13.5.2000 01:34:52
Behalf Of Hurricane
> Zdravim
>
> M�m Edit a pot�ebuju to co je v n�m napsan� p�ev�st na p��kazy a ne na
> string. Nap� budu m�t v editu TimeToStr(now) a chci, aby se na labelu
> objevil �as v dob� spu�t�n� procedury p�evodu a ne pouze text
> TimeToStr(now). V editu m��e b�t nap�. text: 'Tento dokument byl
> vyti�t�n v
> '+TimeToStr(now)+'.'. Co se m� objevit v labelu je snad jasn�. V�sledkem
> toho p��kazu bude string, kter� pou�iju jinde. Zn� n�kdo �e�en� ? D�kuji.
>
> Hurricane
Ahoj.
Vlastne potrebujes "Magickou hulku" (napr. v PHP eval) ci jak se tomu rika a
tu
pokud vim znaji jen interpretery. Zkus se inspirovat nedavnou debatou
SUBJ:Interpreter kodu. Je tam adresa na nejakou free knihovnu pripadne navod
jak vyuzit Active X Microsoft Script Control.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Zistenie pridaneho riadku
[*] L. ZITA <konference(zv)sales(tec)cz> - 13.5.2000 01:43:05
Behalf Of Roland Turcan (RoTurSoft)
> Ako zistim ktory riadok bol pridany. Teraz to riesim cez citanie
> generatora
> ktory vytvara Unique field number, ale to nie je spravne riesenie
> v pripade
> siete, moze sa stat ze aj iny prida zaznam medzi mojim zistenim a
> samostnym
> zapisom.
Ahoj.
Kdysi mi na toto nekdo poradil vygenerovat na klientovi dostatecne jedinecny
identifikator a ten
pak v nasledem kroku najit. Lze pouzit GUID. Mne se to zdalo dlouhe a tak
jsem zkombinoval
cas s ser. cislem hdd a pro aplikaci, kde nejde o tisice soucasnych pristupu
to uplne staci.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Obnova datab�ze FlashFiler
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.5.2000 01:50:16
Puvodni zprava, kterou napsal Ing. Lud�k Florian dne 13 May 00,:
> mam databazi FlashFiler a jeden ze zakazniku mi ukoncuje wokna (W NT) jedine
> vypinacem. Aby sjel aplikaci nebo ukoncil wokna regulerne, to ne. V tabulce
> uz je cca 35000 zaznamu a ted se mu podarilo tim neustalym vypinanim, ze po
> najeti aplikace padne. Docasne jsem to vyresil tak, ze jsem data zkopiroval
> do jinyho adresare a tabulku komplet vymazal. Problem prestal. Data
> vyexportuju a pak naimportuju jinam.
>
> A dotaz. Jak udelat (rucne nebo programove) obnovu databaze ? Uz mi posledni
> dobou nejak hrabe a nejak se nedari.
Ma zapnuty transakcni log? Kdyz je zapnuty transakcni log, FlashFiler Server
si po takovem silenem padu sam vsechno obnovi z tohoto logu... Maximalne se
snad na neco zepta, zda to ma obnovit nebo ne, ale to jsem nezkousel, protoze
me se nikdy nepodarilo to shodit, ani kdyz jsem to hodne chtel.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
MSSQL-relace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.5.2000 07:32:13
On 11 May 00, at 13:24, VOTAVA Jan wrote:
> b) Neexistuje nejaka www stranka o serveru MSSQL nebo emailova
> konference ?
>
> konference viz www.emwac(tec)cz <http://www.emwac(tec)cz>
Zkousel jsem se tam pripojit, a tvari se to mrtve... :-(
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
pocet dnu od urciteho data
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 13.5.2000 10:20:33
Zdravim
potrebuju zjistit pocet dnu od urciteho data
napr. kolik uplnylo dni od 1.1.1990
jak na to?
predem diky
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
Property editors - editovanie viacerych vlastnosti
[*] Surfman <surfman(zv)volny(tec)cz> - 13.5.2000 10:22:31
----- Original Message -----
From: "OLEJNIK Andrej" <olej(zv)nt2.asset.sk>
> a tam mi vznikol problem, ze som potreboval
> v property editore editovat hodnoty pre
> viac property-s.
> da sa to spravit nejako rozumne?
> aby sa dal urobit prehladny property editor
> pre vacsinu vlastnosti komponenty?
>
Musis si vytvorit editor komponenty - trida TComponentEditor, jednotka
DsgnIntf.
Editor potom musis zaregistrovat - RegisterComponentEditor.
Tady mas interface editoru komponenty. Ostatni najdes v helpu.
uses
DsgnIntf;
type
TMujEditor = class(TComponentEditor)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
function GetVerbCount: integer; override;
function GetVerb(Index: integer): string; override;
procedure ExecuteVerb(Index: integer); override;
published
{ Published declarations }
end;
Pavel
IB a services
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.5.2000 12:17:43
D5 BDE 5.11 IB5.6 (Zkouseno: BDE, IBX, ADO pres ODBC)
Potrebuji napsat program, ktery pobjezi i bez prihlaseneho uzivatele po WinNT4.0
Otevrit DBF muzu bez problemu (cist data jsem nezkousel), ale u IB to zahlasi
chybu "Nastala vyjimka neznama softwarova vyjimka (0x0eedfade)v aplikaci na miste 0x77f1d493"
Zkousel jsem to psat jako sluzbu, i jako program a ten zpoustet pomoci SVRANY, ale vysledek
je vzdy stejny (aplikace pustena normalne v kontextu uzivatele bezi bez problemu).
Nevite nekdo jak na to ?
Diky Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Fax: 068 535 23 64
e-mail:skopalik(zv)atlas(tec)cz
pocet dnu od urciteho data
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.5.2000 12:34:31
pocet dni:=int(Datum1-datum);
tedy pocet dni:=int(now-StrToDate('1.1.1990');
podivej se na format TDateTime a bude ti to jasne.
Slavek
> -----Puvodni zprava-----
> Od: Jan Bachor [SMTP:bachor(zv)iol(tec)cz]
> Odeslano: 13. kvitna 2000 10:21
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: pocet dnu od urciteho data
>
> Zdravim
>
> potrebuju zjistit pocet dnu od urciteho data
> napr. kolik uplnylo dni od 1.1.1990
>
> jak na to?
>
> predem diky
>
> s pozdravem Johnboy
> --------------------------------------------------------------
> [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> --------------------------------------------------------------
>
>
> <<Soubor: ATT00005.html>> pocet dnu od urciteho data
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 13.5.2000 14:46:27
Zdravim
hele uz sem z toho magor, zkousim vsechno mozny,ale proste mi to nejde
muzes mi napsat presne jak se to udela,
pocet dni:=int(now-StrToDate('1.1.1990');
tohle mi taky nefunguje
predem diky
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
----- Original Message -----
From: Slavomir Skopalik <skopalik(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, May 13, 2000 12:34 PM
Subject: RE: pocet dnu od urciteho data
> pocet dni:=int(Datum1-datum);
> tedy pocet dni:=int(now-StrToDate('1.1.1990');
> podivej se na format TDateTime a bude ti to jasne.
>
> Slavek
>
> > -----Puvodni zprava-----
> > Od: Jan Bachor [SMTP:bachor(zv)iol(tec)cz]
> > Odeslano: 13. kvitna 2000 10:21
> > Komu: delphi-l(zv)fwd(tec)cz
> > Poedmit: pocet dnu od urciteho data
> >
> > Zdravim
> >
> > potrebuju zjistit pocet dnu od urciteho data
> > napr. kolik uplnylo dni od 1.1.1990
> >
> > jak na to?
> >
> > predem diky
> >
> > s pozdravem Johnboy
> > --------------------------------------------------------------
> > [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> > [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> > --------------------------------------------------------------
> >
> >
> > <<Soubor: ATT00005.html>>
> jedinecny zaznam
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.5.2000 15:05:55
> S polozkami typu AutoIncrement jsem neudelal moc dobre zkusenosti. Napr. u
> prodejnich dokladu jsem puvodne nastavil cislo dokladu jako AutoIncrement
a
> docasne se radoval z toho, jak to bylo snadne, ale ve chvili, kdy se
program
> zacal pouzivat na dalsi pobocce firmy a data je nutne off-line
> synchronizovat (takze kazda pobocka musi mit svoji ciselnou radu tech
> dokladu), se uz AutoIncrement pouzit neda (nebo jsem neprisel na to, jak
:).
Pridaj do primarneho kluca okrem AutoIncrement polozky este dalsiu polozku:
kod pobocky. Pokial pouzivas Access replikaciu, tak Access generuje
AutoIncrement hodnoty nahodne, takze konlikt je v tomto pripade
malo pravdepodobny.
Erik
jedinecny zaznam
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.5.2000 15:19:50
Dobre , povedzme ze by som pouzil autoinkrement.
Ale ti tabulky uz existuju a su spojene cez text. pole zakazky. Ja chcem doplnit do tabuliek pole integer, rsp. autoinkr. . Vygeneruje sa mi nejak sam alebo ako na to ?
Ano, ak tam doplnis AutoIncrement polozku, hodnoty tejto
polozky pre existujuce zaznamy sa automaticky vygeneruju.
Hodnoty do detail tabulky doplnis SQL prikazom UPDATE.
Erik
pocet dnu od urciteho data
[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 13.5.2000 15:51:56
Ahoj
zkus to treba takto
*********
ShowMessage(format('%4.0n',[(Date-StrToDate('01.01.2000'))]));
*********
Jindra
----- Original Message -----
From: Jan Bachor <bachor(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, May 13, 2000 2:46 PM
Subject: Re: pocet dnu od urciteho data
> Zdravim
>
> hele uz sem z toho magor, zkousim vsechno mozny,ale proste mi to nejde
> muzes mi napsat presne jak se to udela,
>
> pocet dni:=int(now-StrToDate('1.1.1990');
> tohle mi taky nefunguje
>
> predem diky
>
> s pozdravem Johnboy
> --------------------------------------------------------------
> [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> --------------------------------------------------------------
>
>
> ----- Original Message -----
> From: Slavomir Skopalik <skopalik(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Saturday, May 13, 2000 12:34 PM
> Subject: RE: pocet dnu od urciteho data
>
>
> > pocet dni:=int(Datum1-datum);
> > tedy pocet dni:=int(now-StrToDate('1.1.1990');
> > podivej se na format TDateTime a bude ti to jasne.
> >
> > Slavek
> >
> > > -----Puvodni zprava-----
> > > Od: Jan Bachor [SMTP:bachor(zv)iol(tec)cz]
> > > Odeslano: 13. kvitna 2000 10:21
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > Poedmit: pocet dnu od urciteho data
> > >
> > > Zdravim
> > >
> > > potrebuju zjistit pocet dnu od urciteho data
> > > napr. kolik uplnylo dni od 1.1.1990
> > >
> > > jak na to?
> > >
> > > predem diky
> > >
> > > s pozdravem Johnboy
> > > --------------------------------------------------------------
> > > [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> > > [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> > > --------------------------------------------------------------
> > >
> > >
> > > <<Soubor: ATT00005.html>>
> >Registrace user k Iterbase
[*] Rommet <rommet(zv)post(tec)cz> - 13.5.2000 17:06:55
Ahoj Delphina�i,
Pot�ebuji pros�m pomoc s registraci noveho u�ivatele pro lokalni databasi vytvo�enou v Interbase.
Vim �e to jde p�es Server Manager, nebo ISQL p�es granty, ale pot�eboval bych to p�imo v pr�b�hu programu.
Kdy� ja jako Admin chci zaregistrovat noveho usera. Je to pot�eba pro dal�i pr�ci.
Moc d�kuji za jakoukoliv radu.
D�ky a p��jemn� den p�eje David
PS: Emailujte na dave.b(zv)post(tec)cz
Formulare v okne MDIForm
[*] Rommet <rommet(zv)post(tec)cz> - 13.5.2000 17:06:08
Ahoj,
m��ete mi prosim nekdo pomoc.
Mam hlavni formular MDIForm, a chtel bych pod��zen� formul��e, otv�rat ne jako okno ale neco jako stranky komponenty "PAGE". Jestli znate program POHODA tak neco podobneho. Je to zajimave a chtel bych toho taky docilit ve svem programku. Dekuji moc a mejte se.
David
Registrace user k Iterbase
[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 13.5.2000 17:42:27
Ahoj
Ja v programu pouzivam podobnou vec. Prejmenovavam jiz existujiciho uzivatele.
Pro takoveto veci je urcen program GSEC.EXE v adresari IB. V programu si nejprve zjistim
kde je interbase nainstalovana, tam je take onen program ('HKEY LOCAL MACHINE\Software\InterBase Corp\InterBase\CurrentVersion').
No a spustim GSEC.EXE s cestou z registru('ServerDirectory') s temito parametry pro zmenu hesla:
GSEC.EXE -user SYSDBA -pa masterkey -mo SYSDBA -pw noveheslo
Pro pridani noveho uzivatele jenom zmenis parametry.
Cau Jindra
P.S.: Mozna existuje lepsi zpusob, ale me tento vyhovuje
----- Original Message -----
From: Rommet
To: Delphi konference
Sent: Saturday, May 13, 2000 5:06 PM
Subject: Registrace user k Iterbase
Ahoj Delphina�i,
Pot�ebuji pros�m pomoc s registraci noveho u�ivatele pro lokalni databasi vytvo�enou v Interbase.
Vim �e to jde p�es Server Manager, nebo ISQL p�es granty, ale pot�eboval bych to p�imo v pr�b�hu programu.
Kdy� ja jako Admin chci zaregistrovat noveho usera. Je to pot�eba pro dal�i pr�ci.
Moc d�kuji za jakoukoliv radu.
D�ky a p��jemn� den p�eje David
PS: Emailujte na dave.b(zv)post(tec)cz
pocet dnu od urciteho data
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.5.2000 19:13:14
Toto mi fungovalo:
ShowMessage(IntToStr(Floor(now-StrToDate('13.5.1998')))); //731 dnu
Slavek
PS: Floor je v Math !
> -----Puvodni zprava-----
> Od: MJ soft [SMTP:mjsoft(zv)rychnov(tec)cz]
> Odeslano: 13. kvitna 2000 15:52
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: pocet dnu od urciteho data
>
>
> Ahoj
>
> zkus to treba takto
>
> *********
> ShowMessage(format('%4.0n',[(Date-StrToDate('01.01.2000'))]));
> *********
>
> Jindra
>
> ----- Original Message -----
> From: Jan Bachor <bachor(zv)iol(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Saturday, May 13, 2000 2:46 PM
> Subject: Re: pocet dnu od urciteho data
>
>
> > Zdravim
> >
> > hele uz sem z toho magor, zkousim vsechno mozny,ale proste mi to nejde
> > muzes mi napsat presne jak se to udela,
> >
> > pocet dni:=int(now-StrToDate('1.1.1990');
> > tohle mi taky nefunguje
> >
> > predem diky
> >
> > s pozdravem Johnboy
> > --------------------------------------------------------------
> > [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> > [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> > --------------------------------------------------------------
> >
> >
> > ----- Original Message -----
> > From: Slavomir Skopalik <skopalik(zv)atlas(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Saturday, May 13, 2000 12:34 PM
> > Subject: RE: pocet dnu od urciteho data
> >
> >
> > > pocet dni:=int(Datum1-datum);
> > > tedy pocet dni:=int(now-StrToDate('1.1.1990');
> > > podivej se na format TDateTime a bude ti to jasne.
> > >
> > > Slavek
> > >
> > > > -----Puvodni zprava-----
> > > > Od: Jan Bachor [SMTP:bachor(zv)iol(tec)cz]
> > > > Odeslano: 13. kvitna 2000 10:21
> > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > Poedmit: pocet dnu od urciteho data
> > > >
> > > > Zdravim
> > > >
> > > > potrebuju zjistit pocet dnu od urciteho data
> > > > napr. kolik uplnylo dni od 1.1.1990
> > > >
> > > > jak na to?
> > > >
> > > > predem diky
> > > >
> > > > s pozdravem Johnboy
> > > > --------------------------------------------------------------
> > > > [ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
> > > > [ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
> > > > --------------------------------------------------------------
> > > >
> > > >
> > > > <<Soubor: ATT00005.html>>
> > >IB a services
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.5.2000 23:37:12
Udelal jsem jeste test s nativnim pripojenim primo pres API,
vysledek:
pokud je sluzba spustena z DELPHI (zkusebni cca 20 sekundovy test), tak je vse OK,
pokud spustim sluzbu jako servis z kontrol panelu tak nastane chyba 335544375 pri Atach databaze.
Jedna se o unavaliable databaze.
Nevi nekdo proc ?
Diky Slavek
>
> D5 BDE 5.11 IB5.6 (Zkouseno: BDE, IBX, ADO pres ODBC)
>
> Potrebuji napsat program, ktery pobjezi i bez prihlaseneho uzivatele po WinNT4.0
> Otevrit DBF muzu bez problemu (cist data jsem nezkousel), ale u IB to zahlasi
> chybu "Nastala vyjimka neznama softwarova vyjimka (0x0eedfade)v aplikaci na miste 0x77f1d493"
> Zkousel jsem to psat jako sluzbu, i jako program a ten zpoustet pomoci SVRANY, ale vysledek
> je vzdy stejny (aplikace pustena normalne v kontextu uzivatele bezi bez problemu).
>
> Nevite nekdo jak na to ?
>
> Diky Slavek
>
> ing. Slavomir Skopalik DEL a.s.
> Olomoucka 355 Marianske udoli 783 75
> ----------------------------------------------
> Tel: 068 535 35 48
> Fax: 068 535 23 64
> e-mail:skopalik(zv)atlas(tec)cz
>
> IB a provadeni prikazu bez prihlaseni
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.5.2000 01:34:43
Tedy, pri zkoumani uplne jine veci jsem narazil na jednu perlicku:
Tato cast kodu se pripoji k DB (Bez Jmena a hesla !!!) a provede SQL prikaz.
Pro import jsem pouzil ibase.pas a ib_externals.pas z FIB.
Slavek
procedure test;
var DBKing:TISC_DB_HANDLE;
SV:array[1..20]of ISC_STATUS;
tr:^TISC_START_TRANS;
procedure err(e:integer;s:string);
var i:integer;
begin
s:=s+IntTostr(e);
if e<>0then for i:=1to 12 do s:=s+','+IntToStr(SV[i]);
ShowData(s); // pouze zobrazeni chybovych zprav
end;
const
DBName='d:\ibdata\kingspan.gdb';
sql='Delete from ucl_header';
begin
DBKing:=nil; tr:=nil;
err(isc_attach_database((zv)SV,Length(DBName),PCHAR(DBName),(zv)DBKing,0,nil),'Atach:');
err(isc_start_transaction((zv)SV,(zv)tr,1,(zv)DBKing,0,nil),'Trans:');
err(isc_dsql_execute_immediate((zv)SV,(zv)DBKing,(zv)tr,Length(sql),PCHAR(sql),1,nil),'Del:');
err(isc_commit_transaction((zv)SV,(zv)tr),'Commit:');
err(isc_detach_database((zv)SV,(zv)DBKing),'Detch:');
end;
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Fax: 068 535 23 64
e-mail:skopalik(zv)atlas(tec)cz
Bezpecnost InterBase
[*] L. ZITA <konference(zv)sales(tec)cz> - 14.5.2000 03:10:37
Zdravim.
IB6 Beta, D5 Prof., W98
Poradte prosim mi co delam spatne.
Jak mam odstranit Permissions Public (Select) tabulky USERS v isc4.gdb.
Myslel jsem si , ze k teto databazi ma pristup jen SYSDBA, ovsem zjistil
jsem ze SELECT je mozny pro vsechny.
Kterykoliv uzivatel se proto muze k isc4.gdb pripojit a podivat na (sice
zakodovane) heslo vsech dalsich uzivatelu.
Nejsem prilis pouceny v kryptologii ale vzhledem k delce hesla a k tomu, ze
jsou volne k dispozici zdrojaky
na zakodovani hesla nemyslim si, ze by to bylo prilis bezpecne.
Zkusil jsem :
REVOKE SELECT ON TABLE
users
FROM PUBLIC;
Ovsem po tomto zasahu byla IB naprosto bezpecna : nikdo se k ni uz
neprihlasil, ani SYSDBA.
(Nastesti jsem mel isc4 zazalohovane)
Jak to tedy s timhle je. Mozna na to jdu nejak spatne od pocatku, ale v
dokumentaci pisou, ze bezpecnost
Interbase se opira o centralni bezpecnou databazi isc4.gdb do ktere ma
pristup jen SYSDBA pripadne dalsi jim povereny
uzivatel. Proto mne ta moznost selectu hesla mate.
Predem dik.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
StringGrid
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.5.2000 07:05:41
Ad1)
Podivej se na StringGrid.Rows.CommaText. To by ti umoznilo nacist cely radek
soucasne a ulozit jej napr. pres TStringList do souboru.
Ad2)
Tady si budes muset napsat vlastni trideni - neni zas takovy problem
vykopirovat si to ze zdroju z TStrings a upravit nebo si najit nejakou
komponentu, ktera to jiz ma zabudovane.
Jan Fiala
----- Original Message -----
From: "Martin Pesava" <jimx(zv)volny(tec)cz>
Ahojte, mel bych 2 dotazy na %subj%:
1) Poradte mi nejaky inteligentni zpusob ukladani StrGridu. Momentalne
to delam, tak ze v cyklu projizdim vsechny radky a sloupce a ukladam to
do TextFajlu pomoci WriteLnu, coz je sice funkcni, ale naprosto
debilni...
2) Potreboval bych poradit, jestli se da nejak jednoduse radit StrGrid
podle jednotlivych sloupcu, a to i napr. tak, ze kdyz je v prvnim
sloupci na nekterych radcich to same, tak se to seradi podle sloupce
druheho.
Za kazdou radu a namet predem dik...
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Prevod cisla na textovy zapis
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 14.5.2000 07:31:11
Ahoj vsem,
nevite prosim nekdo jakym zpusobem se da zajistit prevod cisla
na textovy zapis
napr. 1250Kc = zapis: jedentisicdvestepadesatkorun
Predem diky vsem za odpoved
M.Blazek
Zistenie pridaneho riadku
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 14.5.2000 09:14:40
> -----P�vodn� zpr�va-----
> Od: Roland Turcan (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> Odesl�no: 12. kv�tna 2000 19:36
> Komu: Delphi CZ konferencia
> P�edm�t: IB: Zistenie pridaneho riadku
>
>
> Zdravim.
>
> Ako zistim ktory riadok bol pridany.
Tezko, kdyz nenapises na jake databazi.
Na kazde je to jinak.
Napr. na MS SQL je to tusim (zv)(zv)identity,
na informixu to obstarava funkce dbinfo.
Jura
Bezpecnost InterBase
[*] Viktor <vik(zv)miesto.sk> - 14.5.2000 11:01:30
> Kterykoliv uzivatel se proto muze k isc4.gdb pripojit a podivat na (sice
> zakodovane) heslo vsech dalsich uzivatelu.
> Nejsem prilis pouceny v kryptologii ale vzhledem k delce hesla a k tomu,
ze
> jsou volne k dispozici zdrojaky
> na zakodovani hesla nemyslim si, ze by to bylo prilis bezpecne.
J� mysl�m, �e v tom ��dn� pot� nen�, �pln� stejn� to d�laj� UNIXy - soubor
se zak�dovan�mi hesly je voln� �iteln� k�mkoli. Cel� to pracuje takto -
u�ivatel zad� heslo, to se zn�m�m algoritmem zak�duje a porovn� se
zak�dovan�m heslem v seznamu. Ale ze zak�dovan�ho hesla nelze odvodit to
p�vodn�, co u�ivatel zadal, proto nen� ani nutn� hesla n�jak chr�nit p�ed
�ten�m.
Jin� v�c je, jestli ta funkce, kterou se hesla k�duj�, je bezpe�n�, tedy
odoln� proti kryptoanalytick�m �tok�m a tak� to, jestli p��li� kr�tk� hesla
neumo��uj� �tok hrubou silou, ale proto�e nev�m, kter� k�dovac� algoritmus
pou��v� InterBase, tak ti to nedok�u ��ct. Ale v principu jde o bezpe�n�
zp�sob ulo�en� hesel a nemus� m�t ��dn� obavy.
BTW, to opravdu uchov�v� v DB a� takov� tajnosti?
Viktor
Bezpecnost InterBase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.5.2000 15:56:44
Jen tak na okraj, jak by pak server mohl overit uzivatele ?, Jinak heslo by melo byt kryptovane algorytmem DES.
Slavek
> -----Puvodni zprava-----
> Od: L. ZITA [SMTP:konference(zv)sales(tec)cz]
> Odeslano: 14. kvitna 2000 3:11
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Bezpecnost InterBase
>
> Zdravim.
>
> IB6 Beta, D5 Prof., W98
> Poradte prosim mi co delam spatne.
> Jak mam odstranit Permissions Public (Select) tabulky USERS v isc4.gdb.
> Myslel jsem si , ze k teto databazi ma pristup jen SYSDBA, ovsem zjistil
> jsem ze SELECT je mozny pro vsechny.
> Kterykoliv uzivatel se proto muze k isc4.gdb pripojit a podivat na (sice
> zakodovane) heslo vsech dalsich uzivatelu.
> Nejsem prilis pouceny v kryptologii ale vzhledem k delce hesla a k tomu, ze
> jsou volne k dispozici zdrojaky
> na zakodovani hesla nemyslim si, ze by to bylo prilis bezpecne.
> Zkusil jsem :
>
> REVOKE SELECT ON TABLE
> users
> FROM PUBLIC;
>
> Ovsem po tomto zasahu byla IB naprosto bezpecna : nikdo se k ni uz
> neprihlasil, ani SYSDBA.
> (Nastesti jsem mel isc4 zazalohovane)
>
> Jak to tedy s timhle je. Mozna na to jdu nejak spatne od pocatku, ale v
> dokumentaci pisou, ze bezpecnost
> Interbase se opira o centralni bezpecnou databazi isc4.gdb do ktere ma
> pristup jen SYSDBA pripadne dalsi jim povereny
> uzivatel. Proto mne ta moznost selectu hesla mate.
>
> Predem dik.
>
>
> Ludek
>
>
>
> ---
> Odchozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.129 / Virova baze: 61 - datum vydani: 3.3.2000
ADO a MS Jet
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 14.5.2000 20:10:02
Sosnu to. Diky za link.
Ja myslel, ze se to automaticky nainstaluje s Accessem 97. No a asi ne :-(((
Marek
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Erik Salaj
> Odesl�no: 13. kv�tna 2000 0:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: ADO a MS Jet
>
>
> > pokousel jsem se dostat k Access tabulkam z Delphi5 pres ADO komponenty,
> ale
> > nemam v seznamu provideru MS Jet. Muze mi nekdo vysvetlit jak to tam
> dostanu
>
> Nainstalovanim ADO (cize MDAC), je to na http://www.microsoft.com/data
>
> Erik
>Bezpecnost InterBase
[*] L. ZITA <konference(zv)sales(tec)cz> - 14.5.2000 22:05:59
Behalf Of Slavomir Skopalik
> Jen tak na okraj, jak by pak server mohl overit uzivatele ?,
To je ale o necem jinem.
Uzivatele prece overuje server a ne aplikace, tak proc ta aplikace k tomu
potrebuje videt
celou databazi uzivatelu vcetne jejich hesel ?> Jinak heslo by melo byt kryptovane algorytmem DES.
Jak uz jsem psal nevim toho o kodovani mnoho.
Znamena to tedy, ze neexistuje u DESU moznost zpetneho
dekodovani ?
Nelze tedy zjistit zpetne ze napr.
"n2zpJI3qBh2" = "masterke"
nebo ze
"HAeBipa3GuQ" = "12345678" ?
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
stringgrid a tisk
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 14.5.2000 22:07:35
Zdravim
uz to tady sice bylo, ale nikdo neodpovedel
jak muzu vytisknout obsah stringgridu?
nebo jak vytisknout aspon obycejny text, nebo textovy soubor
predem diky za rady
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
Pocet kopii
[*] Surfman <surfman(zv)volny(tec)cz> - 14.5.2000 22:43:27
Ahoj
A zkousel sis tu hodnotu zapsat do PritDialogu za behu pred volanim Execute?
Zkus si zmenit tiskarnu a pocet kopii se ti okamzite zmeni zpatky na 1.
Pavel
----- Original Message -----
From: "Peter Masek" <peter(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, April 11, 2000 12:57 PM
Subject: Pocet kopii
Ahoj,
m�m Delphi 3, a kdy� pou�iji komponentu PrintDialog, tak nev�m jak zad�m
kolik kopi� se m� vytisknout. Kdy� to zad�m do v Object inspectoru do
property Copies, tak kdy� program zkompiluji, se po otev�en� PrintDialogu
objev� v�dy po�et kopi� 1, i kdy� v t� vlastnosti Copies m�m jin� ��slo.
Nev�te ��m to je a zda to v�bec spolu souvis�? A pokud to spolu nesouvis�,
tak jak to m�m zadat.
D�ky.
Open Dialog - prizpusobeni - jak zakazat delete
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:01:38
From: Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz>
> protoze si potrebuji upravit Open dialog tak, aby pri jeho spusteni
> nebylo mozno smazat nejaky soubor, koukal jsem se, co vse o tom receno zde
> na konferenci. Docela dost mych prani resi priklad Petra Vonese:
> http://www.delphi(tec)cz\archiv\1999\oct\10\dlfaaabe.htm
> V nem uz nemuzu smazat soubor klavesou delete, ale porad ho mohu smazat pres
> prave tlacitko.
Ahoj,
Tady je pokracovani:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=Oct&den=11&first=76&soubor=dlfaaadk.htm
Petr Vones, amatersky programator
docking
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:01:43
From: ing. Ale� Da�a <cis(zv)atlas(tec)cz>
> potreboval bych poradit jak provest docking formulare na panel. Aplikace by
> mela mit vlevo outlook bar a vpravo panel, na ktery se davaji ruzne
> formulare.
Ahoj,
U toho panelu nastav DockSite = True a u formulare ktery chces na neho pretahovat
DragKind = dkDock a DragMode = dmAutomatic. Priklad najdes i v \Demos\Docking
Petr Vones, amatersky programator
Rychle prehravani wavu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:01:51
From: Straka Josef <strakaj(zv)hba(tec)czn(tec)cz>
> Chci se zeptat jestli nekdo nevi jak urychlit prehrani vice wav souboru za
> sebou. Tedy chci co nejvice zkratit prodlevu mezi jednotlivymi soubory. Ted
> to delam tak, ze ve MediaPlayer.FileName je sobor wav. (Wait je na True) a
> po jeho prehrani se prehraje dalsi wav. Ale prodleva mezi ukonceni
> prehravaji prvniho a zacatku prehravani druheho wavu je moc dlouha (asi
> 200ms). Nedal by se tento cas nejak radove zkratit?
Ahoj,
V tomhle pripade je lepsi misto MCI (TMediaPlayer) pouzit primo funkce pro
praci v WAVy, tady mas priklad:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/Example_WavePlay.zip
Petr Vones, amatersky programator
Zakaz zobrazovani obrazku u WebBrowser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:01:55
From: Josef <sip(zv)atlas(tec)cz>
> Potreboval bych u TWebBrowser zakazat zobrazovani obrazku.
> Samodrejme aby se ani nestahovaly.
Ahoj,
obavam se ze jinak nez pres globalni nastaveni Internet Exploreru to asi nepujde.
Petr Vones, amatersky programator
Ukonceni aplikace II
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:01:47
From: Ales Radikovsky <radik(zv)volny(tec)cz>
> Mam cizi Win32 konzolovou aplikaci, jeji chovani se da dobre simulovat
> treba pomoci programu ftp z Windows, a potreboval bych ji ukoncit z meho
> programu. Ve WinNT staci stisknout krizek a zavre se, ve Win98 jeste
> nepise hlasku o zavirani DOS okna. Jan na to? Vim jenom ID procesu. Rady
> z nedavne diskuse nepomahaji.
Ahoj,
Melo by to jit pomoci teto funkce, jako UseQuit dej True:
function InternalCloseApp(ProcessID: DWORD; UseQuit: Boolean): Boolean;
type
PEnumWinRec = ^TEnumWinRec;
TEnumWinRec = record
ProcessID: DWORD;
PostQuit: Boolean;
FoundWin: Boolean;
end;
var
EnumWinRec: TEnumWinRec;
function EnumWinProc(Wnd: HWND; Param: PEnumWinRec): BOOL; stdcall;
var
PID, TID: DWORD;
begin
TID := GetWindowThreadProcessId(Wnd, (zv)PID);
if PID = Param^.ProcessID then
begin
if Param^.PostQuit then
PostThreadMessage(TID, WM_QUIT, 0, 0)
else
if IsWindowVisible(Wnd) then PostMessage(Wnd, WM_CLOSE, 0, 0);
Param^.FoundWin := True;
end;
Result := True;
end;
begin
EnumWinRec.ProcessID := ProcessID;
EnumWinRec.PostQuit := UseQuit;
EnumWinRec.FoundWin := False;
EnumWindows((zv)EnumWinProc, Integer((zv)EnumWinRec));
Result := EnumWinRec.FoundWin;
end;
Petr Vones, amatersky programator
StringGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:02:40
From: Martin Pesava <jimx(zv)volny(tec)cz>
> 2) Potreboval bych poradit, jestli se da nejak jednoduse radit StrGrid
> podle jednotlivych sloupcu, a to i napr. tak, ze kdyz je v prvnim
> sloupci na nekterych radcich to same, tak se to seradi podle sloupce
> druheho.
V tehle situaci bych spis pouzil TDrawGrid nebo TListView ve virtualnim
rezimu a data si ukladal sam do nejakych vhodnych struktur.
Petr Vones, amatersky programator
MSSQL-relace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:02:55
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> > konference viz www.emwac(tec)cz <http://www.emwac(tec)cz>
>
> Zkousel jsem se tam pripojit, a tvari se to mrtve... :-(
Naprosto bez problemu. Jinak nejake konference o MS SQL by mel mit i Microsoft na
svych newsech.
Petr Vones, amatersky programator
Pocet kopii
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:02:35
From: Peter Masek <peter(zv)volny(tec)cz>
> m�m Delphi 3, a kdy� pou�iji komponentu PrintDialog, tak nev�m jak zad�m kolik kopi�
> se m� vytisknout. Kdy� to zad�m do v Object inspectoru do property Copies, tak kdy�
> program zkompiluji, se po otev�en� PrintDialogu objev� v�dy po�et kopi� 1, i kdy� v
> t� vlastnosti Copies m�m jin� ��slo. Nev�te ��m to je a zda to v�bec spolu souvis�?
Ahoj,
Me to (v D5) funguje. Nemuze to byt tim, ze vychozi tiskarna nepodporuje tisk
vice kopii ?
Petr Vones, amatersky programator
Priklad na TOvcVirtualListbox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:02:45
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> nemate nekdo, prosim, priklad jak udelat vice sloupcu v TOvcVirtualListbox z
> Orpheus 2.17 jinym fontem napr. MSSansSerif? Zatim pouzivam jen jeden
> sloupec s pevnym fontem (courier) ale moc se mi to nelibi. Potreboval bych
> tez nejakym zpusobem vyresit zahlavi, aby bylo mozne mysi upravovat velikost
> sekci. Pokud byste nekdo mel priklad v PASu ke studijnim ucelum, prosim o
> zaslani na muj mail.
Ahoj,
A nemohl by jsi pouzit treba TListView ?
Petr Vones, amatersky programator
string na prikazy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:02:50
From: Hurricane <hurricane(zv)email(tec)cz>
> M�m Edit a pot�ebuju to co je v n�m napsan� p�ev�st na p��kazy a ne na
> string. Nap� budu m�t v editu TimeToStr(now) a chci, aby se na labelu
> objevil �as v dob� spu�t�n� procedury p�evodu a ne pouze text
> TimeToStr(now). V editu m��e b�t nap�. text: 'Tento dokument byl vyti�t�n v
> '+TimeToStr(now)+'.'. Co se m� objevit v labelu je snad jasn�. V�sledkem
> toho p��kazu bude string, kter� pou�iju jinde. Zn� n�kdo �e�en� ? D�kuji.
Ahoj,
V pripade par jednoduchych prikazu si muzes vytvorit nejake zastupne znaky
(treba podobne jako pouziva funkce Format). Pak projdes ten text a nahradis
je pozadovanym textem.
Petr Vones, amatersky programator
Seriova komunikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.5.2000 00:03:24
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
> mam MDI aplikaci pro obousmernou seriovou komunikaci. Pouzivam AsyncPro
> V2.56 od TurboPower a D4Std. Pocitac s pripojenym zarizenim komunikuje
> pomerne komplikovanym protokolem, ktery po patricnem zjednoduseni by mohl
> vypadat nasledovne:
>
> PC zadost o data
> ZARIZENI blok dat
> PC odpoved OK (odpoved musi prijit do 1s jinak zarizeni ukonci
> prenos)
> ZARIZENI dalsi blok dat
> PC konec prenosu
>
> Vse funguje v poradku az do doby, kdy chytnu child okno za listu a zacnu s
> nim pohybovat po pracovni plose aplikace. Spustil jsem logovani a trasovani
> a na zaklade vysledku jsem usoudil, ze asi dochazi k nasledujicimu:
>
> aplikace prijme blok dat, prikazem PutChar() odesle odpoved pro zarizeni,
> ale protoze je aplikace zaneprazdnena pohybem okna nedojde k propasirovani
> teto odpovedi do zarizeni vcas (do 1s) a tudiz zarizeni ukonci komunikaci.
Ahoj,
Tohle je jeden z problemu koncepce AsyncPro. Nevim jak v novejsich verzich, ale
pamatuju se, ze v 2.11 toto neslo nijak rozume vyresit a pochybuju ze by to nejak
zmenili. Komunikace samozrejme probiha v samostatne threadu (jak uz tu bylo take
navrhovano), to ve Win32 dost dobre ani jinak nejde. Problem je v necem jinem.
AsyncPro se snazi celou komunikaci zjednodusit do "blbovzdornych" komponent. To
je pro urcitou cast aplikaci postacujici, ale nekdy se dostanes do situace, ze je
to nepouzitelne. Kdysi pred lety jsem delal neco, kde bylo potreba aby zarizeni
dostalo data do cca 500ms od pozadavku a narazil jsem presne na tento problem.
Nakonec to dopadlo tak, ze jsem celou komunikaci napsal radeji od zacatku ve
Win32 API nez se snazit upravovat nejaky balik komponent. Ani tak sice nelze
dosahnout 100%ni spolehlivosti (napriklad pri spusteni MS Exchange klienta doslo
temer vzdy k velkemu vytizeni systemu), ale slo dosahnout stavu rekneme 97%.
Cely problem spociva v tom, ze veskere udalosti z pomocnych threadu komunikace
jsou do komponenty predavany tak, aby z nich bylo vzdy mozne volat bezpecne
jakykoliv kod, jsou tedy synchronizovany s hlavnim threadem aplikace. Synchronizace
je realizovana pres smycku zprav, takze v pripade vetsiho vytizeni systemu nedojde
k rychlemu vyrizeni dane udalosti a odezva se prodluzuje. Pritom v mnoha pripadech
neni treba jako reakci na udalost volat neco z VCL (ktera neni thread-safe), takze
synchronizace spise prekazi. Toto jsem se prave snazil castecne resit v AsyncFree
kde jsou udalosti jak synchronizovane tak i nesynchronizovane. Samozrejme cas od
casu vznikne problem i z techto udalosti volat neco z VCL (treba posunout nejaky
ukazatel apod.) Jakmile by jsi pouzil synchronizaci jsi opet tam kde pred tim.
Nakonec jsem to resil kompromisem, z nesync. udalosti lze dale volat i sync. s tim,
ze si muzes zadat timeout pro danou zpravu. Tim se ti muze stat, ze se dana sync.
udalost nekdy nevykona (ukazatel se neposune hned ale az treba v pristi udalosti
kterou uz se stihlo vyridit -> porad lepsi nez vypadek komunikace). Dalsi moznost
je samozrejme zridit samostatny thread pro obsluhu vizualnich udalosti, tomu
predavat do fronty pozadavky a nezatezovat tim tak vubec vlastni komunikacni kod.
Dale si lze pomoci mirnym zvysenim priority komunikacnich threadu, zde je ale
problem pokud z nich pak casto volas kod VCL, protoze dojde k "zahlcovani" temito
udalostmi na ukor vyrizovani dalsich zprav v hlavnim threadu aplikace. Priklad na
toto najdes v AsyncFree v NonsyncEventExample.
Petr Vones, amatersky programator
string na prikazy
[*] Hurricane <hurricane(zv)email(tec)cz> - 15.5.2000 00:10:36
Zdravim
Mno, to asi nebude to, co chci, nevim proc bych titulek stranky z tiskarny
generoval Active X MS Script Controlem. M�l sem na mysli n�co jako je v
Notepadu v dialogu vzhled str�nky. Tam si m��e� nastavit, jaky chce� aby
bylo z�hlav� a z�pat� str�nky.
Kdby to n�lo, tak tam d�m asi 10 nadefinovanejch styl� a u�ivatel si
vybere, myslim, �e by to taky sta�ilo.
Jen tak mimochodem, nev�te n�kdo jak ud�lat tisknut� ��sla str�nky z
mwCustomEditu? (Str�nka 1/5, Str�nka 2/5, ...., Str�nka 5/5)
D�ky v�em za cokoliv
Hurricane
----- Original Message -----
> M�m Edit a pot�ebuju to co je v n�m napsan� p�ev�st na p��kazy a ne na
> string. Nap� budu m�t v editu TimeToStr(now) a chci, aby se na labelu
> objevil �as v dob� spu�t�n� procedury p�evodu a ne pouze text
> TimeToStr(now). V editu m��e b�t nap�. text: 'Tento dokument byl
> vyti�t�n v
> '+TimeToStr(now)+'.'. Co se m� objevit v labelu je snad jasn�. V�sledkem
> toho p��kazu bude string, kter� pou�iju jinde. Zn� n�kdo �e�en� ? D�kuji.
Vlastne potrebujes "Magickou hulku" (napr. v PHP eval) ci jak se tomu rika a
tu
pokud vim znaji jen interpretery. Zkus se inspirovat nedavnou debatou
SUBJ:Interpreter kodu. Je tam adresa na nejakou free knihovnu pripadne navod
jak vyuzit Active X Microsoft Script Control.pripojeni na MS SQL 7
[*] Petr Mat�jovsk� <pemasoft(zv)atlas(tec)cz> - 15.5.2000 00:20:12
Ahoj
Jake knihovny a zapisy v registrech jsou potreba pro pripojeni klienta W95
na MS SQL server, abych nemusel instalovat client connectivity. Pouzivam D4,
BDE a SQL links, pripojeni pres TCP/IP. Chci vytvorit instalacku.
Zatim dostavam hlasku: Could not find object or blank fields.
Diky za kazdou radu
Petr Matejovsky
jedinecny zaznam
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 15.5.2000 07:07:08
To bohuzel musis uz naprogramovat sam. Nejlepe setridit hlavni tabulku dle zakazky, potom provest kontrolu napr. na velikost pisma, resp. do sortu d�t UpCaseStr a pak vsem priradis jedinecne cislo - pomoci Inc(n).
Pak porovnas pomocne tabulky s hlavni tabulkou a na zaklade textu v zakazce priradis dany autoinc.
Pavel
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, May 12, 2000 1:59 PM
Subject: RE: jedinecny zaznam
Dobre , povedzme ze by som pouzil autoinkrement.
Ale ti tabulky uz existuju a su spojene cez text. pole zakazky. Ja chcem doplnit do tabuliek pole integer, rsp. autoinkr. . Vygeneruje sa mi nejak sam alebo ako na to ?
Martin
----- Original Message -----
Od: Pavel ZIDEK
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 11. m�j 2000 11:32
Predmet: Re: jedinecny zaznam
Pouzij autoincrement pro sourome ucely a zakazku at zada uzivatel. napr uzivatele radi do cisla zakazky zadavaji text a pak budes nekde.
1. autoincrement ti zajisti jedinecnost i pro ostatni navazujici tabulky
2. v cisle zakazky muze byt cokoliv a uzivatel jej beztrestne muze kdykoliv menit
Pavel ZIDEK
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, May 11, 2000 8:47 AM
Subject: RE: jedinecny zaznam
v tej polozke budu cisla zakazok, zakazka musi byt jedinecna, autoinkrement je nepouzitelny, zakazku misi zadat uzivatel.
MArtin
----- Original Message -----
Od: Erik Salaj
Komu: delphi-l(zv)fwd(tec)cz
Odoslan�: 9. m�j 2000 23:30
Predmet: Re: jedinecny zaznam
D5, lomponenty adoexpress , DAO, ADO
mam tabulku s niekolkymi stlpcami v Acces 97. Jeden stlpec ma primarny kluc, polozky v nom musia byt jedinecne.
Ako je lepsie postupovat pri overeni polozky ci je jedinecna ?
1. Vzdy overit pomocou SQL vyrazu s klauzulou where a ak bude prazdny vysledok, hodnota v stlpci neexistuje ?
2. Dat post do tre fynali a ak nastane vynimka, budem vediet ze hodnota existuje ?
3. inak, ako ?
3. pouzi Autoincrement polozku a nemusis nic overovat
Erik
Priklad na TOvcVirtualListbox
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.5.2000 07:25:45
Ahoj,
asi nemohl, protoze to pouzivam kvuli snizenim narokum na pamet a uz mam
hotove vsechny OnGetItem procedury pro navraceni hodnot. Pouzivam to pro
ruzne mnozstvi polozek, od 500 polozek az do 540000 polozek. No a taky to
vlastnim. :-))
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 15. V 2000 0:03
> Komu: Konference Delphi
> P�edm�t: Re: Priklad na TOvcVirtualListbox
>
> From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> > nemate nekdo, prosim, priklad jak udelat vice sloupcu v
> TOvcVirtualListbox z
> > Orpheus 2.17 jinym fontem napr. MSSansSerif? Zatim pouzivam jen jeden
> > sloupec s pevnym fontem (courier) ale moc se mi to nelibi. Potreboval
> bych
> > tez nejakym zpusobem vyresit zahlavi, aby bylo mozne mysi upravovat
> velikost
> > sekci. Pokud byste nekdo mel priklad v PASu ke studijnim ucelum, prosim
> o
> > zaslani na muj mail.
>
> Ahoj,
>
> A nemohl by jsi pouzit treba TListView ?
>
> Petr Vones, amatersky programator
>
> pocet dnu od urciteho data
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 15.5.2000 07:30:57
> pocet dni:=int(now-StrToDate('1.1.1990');
> tohle mi taky nefunguje
Ano, fungovat to bude. Alespon pri ceskem locale.
Pokud bude mit uzivatel ve Windows nastaveny
jiny format datumu tak vyskoci Exception EConvertError !!!
Radeji bych pouzil funkci EncodeDate(1990,1,1)
Daniel
IB a web
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.5.2000 08:04:14
U IB6 zadne takove problemy nebudou. Pro starsi verze IB (<=5.6) je ovsem
treba zakoupit Internetovou licenci.
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 12, 2000 8:34 AM
Subject: IB a web
> Ahoj,
>
> potreboval bych zjistit, jak je licencne reseno vystavovani dat z IB
> na internetu.
> V soucasne dobe pouzivame MSSQL 7 a tam plati, ze pokud
> se maji data pouzit na webu, musi se koupit pomerne drahy
> internet connector (je to jakasi licence za velke penize).
> Pokud bychom presli na IB 6 - budou nejake podobne
> problemy?
>
> David
TADOConnection.ConnectionString
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 15.5.2000 08:19:26
Ahojte,
v D5 Entr. pres TADOConnection a TADOTable oteviram tabulky Accesu pokud v
ytvorim ConnectionString pres Property vse funguje.Vytvoril jsem neco takove
ho:
Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;
Data Source=C:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb;
Mode=Share Deny None;Extended Properties="";Locale Identifier=1033;
Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database P
assword="";
Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global P
artial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Repli
ca Repair=False;
Jet OLEDB:SFP=False
Ale v programu, pokud zmenim ConnectionString takto:
(Pripojeni:String a je v nem ten samy retezec, ktery je vyse-zkousim to)
ADOTable1.Close;
ADOConnection1.Close;
ADOConnection1.ConnectionString:=Pripojeni;
ADOConnection1.Open;
ADOTable1.Open;
Pri ADOTable1.Open mi vyhodi exception, ze neni nalezena instalace ISAM (E
OLEException).
Kde delam chybu?
Diky za kazde nakopnuti.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
(D5 Entr. bez SP1)
Prevod cisla na textovy zapis
[*] Petr J�nsk� - 15.5.2000 09:04:49
Prave jsem takovy programek dodelal, ale v jinem jazyku (R/BASIC).
Pokud mas zajem ozvi se na muj mail a poslu ti jej, prepsat ho do delphi
by nemel byt problem.
Ing. Petr J�nsk�
C.A.C spol. s r.o.
Tolst�ho 148/27
41503 Teplice
tel./fax.: 0417 531091
mobil: 0602 411373
e-mail: cac(zv)iol(tec)cz
SMS mail: 411373(zv)sms.eurotel(tec)cz
-----P�vodn� zpr�va-----
Od: Milan Bla�ek <mbsint(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. kv�tna 2000 8:30
P�edm�t: Prevod cisla na textovy zapis Ahoj vsem,
nevite prosim nekdo jakym zpusobem se da zajistit prevod cisla
na textovy zapis
napr. 1250Kc = zapis: jedentisicdvestepadesatkorun
Predem diky vsem za odpoved
M.Blazek
Prevod cisla na textovy zapis
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 15.5.2000 09:18:18
....
napr. 1250Kc = zapis: jedentisicdvestepadesatkorun
....
*************
Ahoj
Kolega to kdysi resil timto zpusobem (je to prepisovane z Foxky, kde to
fungovalo):
....
type
function slovy(mcislo : double):string;
function stovky(trojice : string):string;
....
const
jedn : array[1..9] of
string[5]=('jedna','dva','t�i','�ty�i','p�t','�est','sedm','osm','dev�t');
.....
implementation
.....
{prevod cisla na slovni vyjadreni - na slozenkach}
function Tfunkce.slovy(mcislo : double):string;
var cis,desc : double;
pom : integer;
cchr, slovo, des, cislochr,prvni, druha, treti, ctvrta : string;
begin
mcislo := ABS(mcislo);{absolutni cislo}
cis:= mcislo;
mcislo := INT(mcislo); {cela cast cisla}
desc:=(cis - mcislo) * 100; {desetina cast * 100}
STR(desc:3:0,cchr);
if desc=0 then {desetina=0}
des:=''
else
des:=' a '+cchr+'/100';
IF mcislo = 2 then
begin
slovo :='dv�';
result:= 'slovy '+slovo+des;
exit;
END;
slovo:= '';
{ IF mcislo>999999999999 then
begin
result:='P��li� velk� ��slo pro z�pis slovy!';
exit;
END;}
STR(mcislo:12:0,cislochr);
cislochr:=TrimLeft(cislochr);
case length(cislochr) of
10..12 : begin
prvni:= copy(cislochr,1,length(cislochr)-9);
druha:= copy(cislochr,length(prvni)+1,3);
treti:= copy(cislochr,length(prvni)+4,3);
ctvrta:= copy(cislochr,length(prvni)+7,3);
end;
7..9 : begin
prvni:= '';
druha:=copy(cislochr,1,length(cislochr)-6);
treti:= copy(cislochr,length(druha)+1,3);
ctvrta:= copy(cislochr,length(druha)+4,3);
end;
4..6 : begin
prvni:= '';
druha:='';
treti:=copy(cislochr,1,length(cislochr)-3);
ctvrta:= copy(cislochr,length(treti)+1,3);
end;
1..3 : begin
prvni:='';
druha:='';
treti:='';
ctvrta:=cislochr;
end;
else
begin
prvni:='';
druha:='';
treti:='';
ctvrta:='0';
end;
end;
if length(prvni) > 0 then {vetsi nez miliarda}
begin
pom := StrToInt(prvni);
CASE pom of
1 : slovo:='miliarda';
2 : slovo:='miliardy';
else
slovo:='miliard';
end;
end;
if length(druha) > 0 then
begin
pom:= StrToInt(druha);
CASE pom of
1 : slovo:= slovo+'milion';
{ CASE BETWEEN(VAL(RIGHT(druha,1)),1,1)
slovy = slovy+stovky(druha)+'milion'}
2..4 : slovo:= slovo+stovky(druha)+'miliony';
else
slovo:= slovo+stovky(druha)+'milion�';
END;
end;
if length(treti) > 0 then
begin
pom:=StrToInt(treti);
CASE pom of
0 : slovo:=slovo;
1 : slovo:= slovo+'tis�c';
2..4 : slovo:= slovo+stovky(treti)+'tis�ce';
else
slovo:= slovo+stovky(treti)+'tis�c';
END;
end;
if length(ctvrta) > 0 then
slovo:= slovo+stovky(ctvrta);
IF LENGTH(slovo)=0 then
slovo:= 'nula';
result:='slovy: '+slovo+des;
end;
...
{ Function: STOVKY}
FUNCTION Tfunkce.stovky(trojice : string):string;
var prvni, druha, treti, stovky : string;
pom1,pom2,pom3 : integer;
begin
stovky:= '';
pom1:=0;
pom2:=0;
pom3:=0;
prvni:='0';
druha:='0';
treti:='0';
case length(trojice) of
3: begin
prvni:= copy(trojice,1,1);
druha:= copy(trojice,2,1);
treti:= copy(trojice,3,1);
end;
2 : begin
druha:= copy(trojice,1,1);
treti:= copy(trojice,2,1);
end;
1: treti:=trojice;
end;
if prvni[1] in ['0','P'] then
pom1:=0
else
pom1 :=StrToInt(prvni);
if druha[1] in ['0','P'] then
pom2:=0
else
pom2 :=StrToInt(druha);
if treti[3] in ['0','P'] then
pom3:=0
else
pom3 :=StrToInt(treti);
CASE pom1 of
1 : stovky:= stovky+'sto';
2 : stovky:= stovky+'dv�st�';
3..4 : stovky:= stovky+jedn[pom1]+'sta';
5..9 : stovky:= stovky+jedn[pom1]+'set';
END;
CASE pom2 of
1 : CASE pom3 of
0 : stovky:= stovky+'deset';
1 : stovky:= stovky+'jeden�ct';
2 : stovky:= stovky+'dvan�ct';
3 : stovky:= stovky+'t�in�ct';
4 : stovky:= stovky+'�trn�ct';
5 : stovky:= stovky+'patn�ct';
6 : stovky:= stovky+'�estn�ct';
7 : stovky:= stovky+'sedmn�ct';
8 : stovky:= stovky+'osmn�ct';
9 : stovky:= stovky+'devaten�ct';
END;
2 : stovky:= stovky+'dvacet';
3 : stovky:= stovky+'t�icet';
4 : stovky:= stovky+'�ty�icet';
5 : stovky:= stovky+'pades�t';
6 : stovky:= stovky+'�edes�t';
7 : stovky:= stovky+'sedmdes�t';
8 : stovky:= stovky+'osmdes�t';
9 : stovky:= stovky+'devades�t';
END;
if (pom2<>1) AND (pom3 in [1..9]) then
stovky:= stovky+jedn[pom3];
result:=stovky;
end;
Jolana Kotatkova
PVT Nymburk
tel : 0325/519 639
fax : 0325/513942
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz Prevod HTML - Text
[*] Petr Zika <petrz(zv)rts(tec)cz> - 15.5.2000 09:30:49
Ahoj
neexistuje komponenta, ktera by umela nacist HTML stranku a ulozit ji jako
prosty text?
Zkousel jsem komponentu HTML ze zalozky Internet nebo naimportovat Explorer
ale v zadne jsem tuto moznost nenasel.
Petr
StringGrid
[*] Maly(zv)pds.pce.cdrail(tec)cz - 15.5.2000 09:38:29
Ahoj
takhle sortuji stringgrid, ale jen jeden sloupec
procedure
quicksortgrid(grid:tstringgrid;sloupec:integer;cisl:boolean;zac,kon:integer)
;
//grid=mrizka
//sloupec=0-fix 1-data
//cisl=jestli jde o trideni cisel
//zac,kon= rozmezi radku pro trideni
var
x:string; //hodnota indexu useku 1/2
i,j:longint; //pomocne indexy
pomstr:tstringlist; //hodnoty poli zaznamu
n:extended; //trideni cisel
begin
i:=zac;//zacatek trideni
j:=kon;//konec trideni
if cisl=false then x:=trim(grid.cells[sloupec,(i+j) div 2])
else n:=strtofloat(grid.cells[sloupec,(i+j) div 2]);
repeat//zacatek cyklu
if cisl=false then begin
while ansicomparestr(trim(grid.cells[sloupec,i]),x)=-1 do i:=i+1;
while ansicomparestr(trim(grid.cells[sloupec,j]),x)=1 do j:=j-1;
end else begin
while strtofloat(trim(grid.cells[sloupec,i]))<n do i:=i+1;
while strtofloat(trim(grid.cells[sloupec,j]))>n do j:=j-1;
end;
if i<j then //vymenit prvky s indexy i j
begin
try
pomstr:=tstringlist.create;
pomstr.Clear;
pomstr.assign(grid.rows[i]);
grid.rows[i]:=grid.rows[j];
grid.rows[j].assign(pomstr);
finally
pomstr.free;
end;
i:=i+1;
j:=j-1;
end else if i=j then//indexy i a j se sesly , oba ukazuji na hodnotu x
begin
i:=i+1;//posun indexu na dalsi prvky = nutne pro ukonceni cyklu
j:=j-1;
end;
until i>j;//konec cyklu
//usek zac a kon je rozdelen na useky zac,j a i,kon
//ktere zpracujeme rekurzivnim volanim procedury
if zac<j then quicksortgrid(grid,sloupec,cisl,zac,j);
if i<kon then quicksortgrid(grid,sloupec,cisl,i,kon);
end;
LM
maly(zv)pds.pce.cdrail(tec)cz
Bezpecnost InterBase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 15.5.2000 10:00:13
Existuje, ale jen do delky klice cca 48 bitu, predpoklada se ze 80 bitu by melo vydrzet
tak asi 20-50 let. Heslo je pokazde zakodovano jinak, na to jsem se jiz dival.
Jinak se mi take nelibi moznost cteni dat uzivatelu, potazmo, ze IB nema tuto cast prilis
silnou, ale na druhou stranu je v systemu mnoho daleko vetsich der, nez je dekodovani hesla.
(tak by me zajimalo, jestli to heslo jde po siti sifrovane, nebo jako plain text ?). To by mne
trapilo mnohem vice.
Dale (a to jsou jen moje domenky) IB nezna prava k aplikacim, ale jen k uzivatelum, no
a spravu uzivatelu implementovaly jako specialni DB. Mozna by se dalo udelat podobnou
DB, kde by misto tabulky uzivatelu bylo jen VIEW a to by vracelo pro vsechny ostatni
uzivatele, krome prihlaseneho misto hesla jen hvezdicky, nebo tak nejak.
Jen na okraj odkazuji se na svuj jiny prispevek k problematice prav na IB :((((.
Slavek
> Behalf Of Slavomir Skopalik
>
> > Jen tak na okraj, jak by pak server mohl overit uzivatele ?,
>
> To je ale o necem jinem.
> Uzivatele prece overuje server a ne aplikace, tak proc ta aplikace k tomu
> potrebuje videt
> celou databazi uzivatelu vcetne jejich hesel ?
>
>
> > Jinak heslo by melo byt kryptovane algorytmem DES.
>
> Jak uz jsem psal nevim toho o kodovani mnoho.
> Znamena to tedy, ze neexistuje u DESU moznost zpetneho
> dekodovani ?
>
> Nelze tedy zjistit zpetne ze napr.
>
> "n2zpJI3qBh2" = "masterke"
> nebo ze
> "HAeBipa3GuQ" = "12345678" ?
>
> Ludek
> ---
> Odchozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.129 / Virova baze: 61 - datum vydani: 3.3.2000
Command-line utility IB5.5 a IB6.0
[*] Vyvoj <vyvoj(zv)atlascon(tec)cz> - 15.5.2000 10:22:51
Ahoj!
Pot�eboval bych poradit se spr�vou u�ivatel� u InterBase (5.5 a 6.0) z klienta.
Pot�eboval bych to pomoc� command-line utility gsec.exe, ale neda�� se mi
p�ipojit ke vzd�len�mu serveru.
M�j ��dek vypad� asi takto:
gsec.exe -database NTTest:/"U:\USERS\ML\INTERBASE\IB 6.0\Win\WI-B6.0\isc4.gdb" -user SYSDBA -password masterkey
nebo takto:
gsec.exe -database NTTest:"U:\USERS\ML\INTERBASE\IB 6.0\Win\WI-B6.0\isc4.gdb" -user SYSDBA -password masterkey
apod. ale v�dy se mi vrac� hl�en� I/O error nebo no permission to read/write (p��stupov� pr�va v s�ti m�m pln�).
D�ky za tipy.
**************************************************
* Roman Macura
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : macura(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Seznam MDI Child oken
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 15.5.2000 10:32:50
[P��loha v souboru: marekhr.vcf]
Toto je zpr�va z v�ce ��st� ve form�tu MIME.
Na kterou udalost se spravne "napichnout"
abych si mohl udrzovat vlastni seznam MDI Child oken
tak jak to dela VCL pomoci property formu WindowMenu.
Tisk vysledku Query
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 15.5.2000 11:13:40
Ahoj,
nevite o nejakem obecnem nastroji, ktery by mi vytiskl vysledek Query ?
Napr. v Delphi Exploreru si udelam jednoduchy select na obsah ciselniku a
vracene udaje bych
si chtela vytisknout jen pro svou potrebu, event. pretahnout do nejakeho
dokumentu.
Delphi 3.02 CS, SP 5.0, Win NT 4.0
Diky
Jolana Kotatkova
PVT Nymburk
tel : 0325/519 639
fax : 0325/513942
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz Modem
[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 15.5.2000 11:24:47
Ahoj,
neznate nekdo nejake komponenty pro TCP/IP a UDP pres modem, abych si mohl
volit vytacene cislo, atd. ?
D.Kminek
MSSQL-relace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.5.2000 11:51:12
On 15 May 2000, at 0:02, Petr Vones wrote:
> > > konference viz www.emwac(tec)cz <http://www.emwac(tec)cz>
> >
> > Zkousel jsem se tam pripojit, a tvari se to mrtve... :-(
>
> Naprosto bez problemu. Jinak nejake konference o MS SQL by mel mit i
> Microsoft na svych newsech.
Mno, nakonec se mi prece jen podarilo dostat se na stranku, tak
jsem poslal subscribe a vratila se mi toto: "Warning: could not
send message for past 4 hours". Hmmm...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Tisk vysledku Query
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 15.5.2000 12:15:07
Zkus pouzit Quick Report. Priklady jsou v instalaci DELPHI a komponenty rovnez .
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: Ko��tkov� Jolana [SMTP:kotatko(zv)nym.pvt(tec)cz]
> Odesl�no: 15. kv�tna 2000 11:14
> Komu: 'konference Delphi - verejna'
> P�edm�t: Tisk vysledku Query
>
> Ahoj,
>
> nevite o nejakem obecnem nastroji, ktery by mi vytiskl vysledek Query ?
> Napr. v Delphi Exploreru si udelam jednoduchy select na obsah ciselniku a
> vracene udaje bych
> si chtela vytisknout jen pro svou potrebu, event. pretahnout do nejakeho
> dokumentu.
>
> Delphi 3.02 CS, SP 5.0, Win NT 4.0
>
> Diky
>
> Jolana Kotatkova
> PVT Nymburk
> tel : 0325/519 639
> fax : 0325/513942
> e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
>
>
> Seznam MDI Child oken
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 15.5.2000 12:16:50
My to delame tak, ze mame globalni pocitadlo MDI child oken a pro vsechny
MDI child okna jednoho predka, kde se v konstruktoru pocitadlo
incrementuje a v destructoru descrementuje.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: Marek Hradil [SMTP:marekhr(zv)benefitcz(tec)cz]
> Odesl�no: 15. kv�tna 2000 10:33
> Komu: delphi
> P�edm�t: Seznam MDI Child oken
>
> Na kterou udalost se spravne "napichnout"
> abych si mohl udrzovat vlastni seznam MDI Child oken
> tak jak to dela VCL pomoci property formu WindowMenu.
>
> <<Soubor: marekhr.vcf>> Kreslen� na plochu
[*] jan.derda(zv)post(tec)cz - 15.5.2000 13:27:28
Jak mam vykreslit cokoli na plochu Windows.
Nefunguje mi SetPixel(GetDesktopWindow,x,y,color)
Jde to elegantne vyresit?
Kde rychle najdu nejblizsi lekarnu?
*** http://NAJDI.TO
CSV editorek
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 15.5.2000 13:46:34
Vygeheroval jsem CSV soubor, nacetl do Excelu, zpracoval, ulozil a ...
nestacil se divit. Excel odstranil uvozovky na zacatku a konci kazdeho pole,
takze pro dalsi zpracovani mou aplikaci se soubor stal nepouzitelnym.
A proto se ptam, nemate nekdo ve svem archivu free (nejlepe se zdroji) CSV
minieditor? Potrebuji jen nacist tri pole, zobrazit je vv tabulce
(TStringList) a umoznit jedno z nich editovat. A samozrejme ulozit ve
sterjnem formatu, v jakem jsem to nacetl.
Diky za tip (kdyz tak si to budu muset napsat).==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Pocet kopii
[*] peter(zv)volny(tec)cz - 15.5.2000 13:55:43
> Ahoj
> A zkousel sis tu hodnotu zapsat do > PritDialogu za behu pred> volanim Execute?
> Zkus si zmenit tiskarnu a pocet kopii se > ti okamzite> zmeni zpatky na 1.
Pavel
Zkousel jsem to zapsat tesne pred zavolanim Execute, ale stejne to nefunguje. V Delphi 1 mi to funguje ale normalne. Takze nevim jestli nebude chyba v Delphi 3. Nevite nekdo jestli se to neda zadat i nejak jinak? Asi ne co?
Diky za rady.Tisk vysledku Query
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 15.5.2000 14:03:10
A co si ten Query nechat nat�hnout t�eba do Excelu (p�es MS Query??).
Uzn�v�m, �e to nen� JEDNODUCH� n�stroj, ale fungovat by to m�lo dob�e.
-----Original Message-----
From: Ko��tkov� Jolana [mailto:kotatko(zv)nym.pvt(tec)cz]
Sent: Monday, May 15, 2000 11:14 AM
To: 'konference Delphi - verejna'
Subject: Tisk vysledku Query
Ahoj,
nevite o nejakem obecnem nastroji, ktery by mi vytiskl vysledek Query ?
Napr. v Delphi Exploreru si udelam jednoduchy select na obsah ciselniku a
vracene udaje bych
si chtela vytisknout jen pro svou potrebu, event. pretahnout do nejakeho
dokumentu.
Delphi 3.02 CS, SP 5.0, Win NT 4.0
Diky
Jolana Kotatkova
PVT Nymburk
tel : 0325/519 639
fax : 0325/513942
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz acees
[*] Erik Salaj <winsoft(zv)napri.sk> - 15.5.2000 14:29:45
potrebujem k jednej tabulke acces pristupovat z viacerych programov, resp. viacerymi uzivatelmi v sieti.
Da sa nejako zamknut jeden riadok tabulky ? A ako v programe zistim ci je riadok zamknuty ?
Robim to cez D5 a Adoexpres ale mohlo by byt aj komp. ADO
ADO pozna:
optimisticke zamykanie - zaznam/y sa automaticky zamkne az pri post-e
pesimisticke zamykanie - zanam/y sa zamkne hned po edite
Explicitne funkcie pre zamykanie k dispozicii nie su, je potrebne len zvolit
system zamykania a zvysok zabezpecuje ADO. Takisto nie su k dispozicii
funkcie, ktorymi zistis, ze je zaznam zamknuty - zistit to len tak, ze sa Ti
nepodari ho zamknut druhy krat. Na vyhradny pristup k zaznamom mozes
pouzit aj transakcie.
Erik
Tisk vysledku Query
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 15.5.2000 14:44:03
Taky me to napadlo (delat to pres Excel), ale priznam se, ze nevim jak.
Pracujeme vetsinou se vzdalenou databazi v Informixu a obcas v lokalnich
paradoxovych tabulkach. Jak by se to dalo udelat ?
MS Query nemam (aspon o tom nevim).
Jolana
-----P�vodn� zpr�va-----
Od: VOTAVA Jan [mailto:Jan.Votava(zv)epe(tec)cz]
Odesl�no: 15. kv�tna 2000 14:03
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Tisk vysledku Query
A co si ten Query nechat nat�hnout t�eba do Excelu (p�es MS Query??).
Uzn�v�m, �e to nen� JEDNODUCH� n�stroj, ale fungovat by to m�lo dob�e.
-----Original Message-----
From: Ko��tkov� Jolana [mailto:kotatko(zv)nym.pvt(tec)cz]
Sent: Monday, May 15, 2000 11:14 AM
To: 'konference Delphi - verejna'
Subject: Tisk vysledku Query
Ahoj,
nevite o nejakem obecnem nastroji, ktery by mi vytiskl vysledek Query ?
Napr. v Delphi Exploreru si udelam jednoduchy select na obsah ciselniku a
vracene udaje bych
si chtela vytisknout jen pro svou potrebu, event. pretahnout do nejakeho
dokumentu.
Delphi 3.02 CS, SP 5.0, Win NT 4.0
Diky
Jolana Kotatkova
PVT Nymburk
tel : 0325/519 639
fax : 0325/513942
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz Modem
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 15.5.2000 14:53:01
K tomu neni potreba zadne specialni komponenty pro TCP/IP. Daji se pouzit ty
co jso v delphi nebo nejake jine. Pro obsluhu vytaceneho spojeni je potreba
vyuzit systemoveho rozhrani RAS. (RASAPI.DLL). Potrebne unity jsou na
http://delphi-jedi.org/Jedi:APILIBRARY:127651041. Krome toho je treba mit
nainstalovanou podporu vytaceneho spojeni (RAS] a protokol TCP/IP.
Jaromir Cermak
-----Original Message-----
From: Daniel Km�nek [mailto:kminek(zv)mite(tec)cz]
Sent: Monday, May 15, 2000 11:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Modem
Ahoj,
neznate nekdo nejake komponenty pro TCP/IP a UDP pres modem, abych si mohl
volit vytacene cislo, atd. ?
D.Kminek
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
cestina na mssql7
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 15.5.2000 15:02:26
Ahoj,
mam problemy s nastavenim cestiny na mssql7(i msde).
V enterprise manageru nemuzu psat cesky a i kdyz neco
cesky ulozim pres isqlw tak to potom stejne neprectu cesky.
Nevite nekdo nejakou ulozenou proceduru, kterou bych danou
databazi nastavil na cestinu, nebo nejaky jiny tip jak donutit
sql prijimat data v cestine?
Dik , Michal Tisk vysledku Query
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 15.5.2000 15:13:14
> -----P�vodn� zpr�va-----
> Od: Ko��tkov� Jolana [mailto:kotatko(zv)nym.pvt(tec)cz]
> Odesl�no: 15. kv�tna 2000 14:44
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Tisk vysledku Query
>
>
> Taky me to napadlo (delat to pres Excel), ale priznam se, ze
> nevim jak.
> Pracujeme vetsinou se vzdalenou databazi v Informixu a obcas
> v lokalnich
> paradoxovych tabulkach. Jak by se to dalo udelat ?
> MS Query nemam (aspon o tom nevim).
>
> Jolana
na informixu muzete spoustet sql dotazy s presmerovanim do souboru:
dbaccess dotaz.sql >vysledek.txt
(nevim, jestli informix neco zmenil, takhle to fungovalo pred
nejakymi peti lety na UNIXovem Informixu, od te doby jsem s informixem
moc nedelal).
Jura
Panels & Splitters
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 15.5.2000 15:18:34
Ahoj
(Delphi 4.)
Potreboval bych dynamicky vytvaret panely a
splittery na formulari (nebo na jinem panelu).
Vytvaret komponenty umim, ale mam tu problem s
tim, ze se mi to nejde udelat tak, jak bych rad.
Tj. Na hlavnim panelu odvrchu by mely byt tyto
komponenty v tomto poradi:
Panel
Slippter
Panel
Splitter
Panel
Splitter
Panel
s tim, ze samozrejme posunem splitteru menim
velikosti k nemu napojenych panelu.
A potrebuji funkci, ktera dynamicky vzdy vytvori
Splitter a panel (proste prida na formular dalsi
panel a k nemu patrici splitter).
Jde to vubec nejak udelat?
Funkcni zdrojacek by docela bodnul, uz jsem se v
tom nimral nekolik hodin a zcela bezvysledne :-(
Petr
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]separator v komponente kbmMemTable
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 15.5.2000 16:06:05
Ahoky,
vcelku uspesne a spokojene pouzivam komponentu KBMMemTable pro praci s memory tabulkou.
Jako separator pro ukladani a nacitani dat pouziva jako separator ",".
Bohuzel nyni jsem nucen pouzit TAB (#09).
Nemate nekdo jiz upravenou tuto komponentu pro ukaldani s TAB? (pripadne dokonce upravenou na moznost obecne volby?)
Pokud to nikdo nema, budu si ji muset upravit sam :-((
Cele to zatim provozuji v D3 a o komponente se da docist na
http://www.torry.ru, Delphi Super Pages or http://www.optical.dk
Dik za info
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================Pocet kopii
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 15.5.2000 16:14:54
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.
Muze to souviset s tim, jaky je ovladac tiskarny. Jinak doporucuji stahnout
si nejnovejsi verzi Quick reporty ze serveru www.qusoft.no
<http://www.qusoft.no> . Verze dodavana na CD od Borlandu ma v tomto ohledu
chyby.
Jaromir Cermak
-----Original Message-----
From: Peter Masek [mailto:peter(zv)volny(tec)cz]
Sent: Tuesday, April 11, 2000 12:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Pocet kopii
Ahoj,
m�m Delphi 3, a kdy� pou�iji komponentu PrintDialog, tak nev�m jak zad�m
kolik kopi� se m� vytisknout. Kdy� to zad�m do v Object inspectoru do
property Copies, tak kdy� program zkompiluji, se po otev�en� PrintDialogu
objev� v�dy po�et kopi� 1, i kdy� v t� vlastnosti Copies m�m jin� ��slo.
Nev�te ��m to je a zda to v�bec spolu souvis�? A pokud to spolu nesouvis�,
tak jak to m�m zadat.
D�ky.
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Jak vyhledat titulek DOS okna
[*] Karel Kral <kral(zv)purus(tec)cz> - 15.5.2000 16:20:41
Ahoj, mam takovy problem:
potreboval bych z Delphi programu aktivovat do popredi Dosovske okno. To
bych umel, ale problem je v tom, jak zjistit Handle okna, ktere se ma
aktivovat. To okno nema staly titulek, ktery by sel vyhledat normalnim
FindWindow. Jde totiz o DOS program, ze ktereho se spousteji zase jine
programy a titulek je tudiz promenlivy podle toho, ktery child DOS
program je zrovna spusten.
To Dosovske okno spoutim z Win32 konzolove aplikace pomoci
CreateProcess.
Asi se o tom nebudu vice rozepisovat, ale cele to potrebuji proto, abych
zabranil ve vicenasobnem spusteni Dosovskeho programu. Kdyz se pousti
dalsi instance Dosovskeho programu, rad bych ji nespustil a prepnul se
na prvni instanci programu.
_____________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Panels & Splitters
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 15.5.2000 16:43:38
Ahoj,
musis na to trosku slozitejc:
create_panel (align = top, parent = form);
create_bevel (align = top, parent = form);
pom_panel = create_panel (align = client, parent = form);
na tom panelu client opet:
create_panel (align = top, parent = pom_panel);
create_bevel (align = top, parent = pom_panel);
pom_panel = create_panel (align = client, pom_panel);
a to opakuj, kolikrat potrebujes.
Slavek
> Potreboval bych dynamicky vytvaret panely a
> splittery na formulari (nebo na jinem panelu).
> Vytvaret komponenty umim, ale mam tu problem s
> tim, ze se mi to nejde udelat tak, jak bych rad.
> Tj. Na hlavnim panelu odvrchu by mely byt tyto
> komponenty v tomto poradi:
>
> Panel
> Slippter
> Panel
> Splitter
> Panel
> Splitter
> Panel
>
> s tim, ze samozrejme posunem splitteru menim
> velikosti k nemu napojenych panelu.
> A potrebuji funkci, ktera dynamicky vzdy vytvori
> Splitter a panel (proste prida na formular dalsi
> panel a k nemu patrici splitter).
> Jde to vubec nejak udelat?
>
> Petr
Bezpecnost InterBase
[*] L. ZITA <konference(zv)sales(tec)cz> - 15.5.2000 16:44:01
> > Jak uz jsem psal nevim toho o kodovani mnoho.
> > Znamena to tedy, ze neexistuje u DESU moznost zpetneho
> > dekodovani ?
Behalf Of Slavomir Skopalik
> Existuje, ale jen do delky klice cca 48 bitu, predpoklada se ze
> 80 bitu by melo vydrzet
> tak asi 20-50 let. Heslo je pokazde zakodovano jinak, na to jsem
> se jiz dival.
Jak to myslis pokazde jinak.
Pomoci utilitky, kterou jsem poslal v jinem prispevku se doberu
u kazdeho hesla stejneho vysledku jako v original databazi a to na kazdem
PC.
> Jinak se mi take nelibi moznost cteni dat uzivatelu, potazmo, ze
> IB nema tuto cast prilis
> silnou, ale na druhou stranu je v systemu mnoho daleko vetsich
> der, nez je dekodovani hesla.
> (tak by me zajimalo, jestli to heslo jde po siti sifrovane, nebo
> jako plain text ?). To by mne
> trapilo mnohem vice.
V dokumentaci pisou, ze je sifrovane pro prenos pres sit :
All users must enter their username and password to log in to a server. The
password is
encrypted for transmission over the network. The username and password are
verified
against records in the security database. If a matching record is found, the
login succeeds.> Dale (a to jsou jen moje domenky) IB nezna prava k aplikacim, ale
> jen k uzivatelum, no
To v konferenci jiz nekdo ztrhal s tim ze prejmenovat exe neni az takovy
problem.
Nehlede k tomu, ze hadam jde spise o problem s aplikacemi bezicimi primo na
serveru a to se
da ohlidat i jinak.> a spravu uzivatelu implementovaly jako specialni DB. Mozna by se
> dalo udelat podobnou
> DB, kde by misto tabulky uzivatelu bylo jen VIEW a to by vracelo
> pro vsechny ostatni
> uzivatele, krome prihlaseneho misto hesla jen hvezdicky, nebo tak nejak.
No nevim to by asi byla otazka pro nekoho zkuseneho, zda a jak do toho
zasahnout.
Prosty pokus odebrat moznost selectu krachnul (viz muj predchozi mail).> Jen na okraj odkazuji se na svuj jiny prispevek k problematice
> prav na IB :((((.
To je take nemile. Jeste jsem to nezkousel.
S jakymi pravy jsi se tam bez hesla a uzivatele dostal ?.
Slo to i sitove, nebo jen na stejnem stroji ?
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Bezpecnost InterBase
[*] L. ZITA <konference(zv)sales(tec)cz> - 15.5.2000 16:44:55
> J� mysl�m, �e v tom ��dn� pot� nen�, �pln� stejn� to d�laj�
> UNIXy - soubor
> se zak�dovan�mi hesly je voln� �iteln� k�mkoli. Cel� to pracuje takto -
> u�ivatel zad� heslo, to se zn�m�m algoritmem zak�duje a porovn� se
> zak�dovan�m heslem v seznamu. Ale ze zak�dovan�ho hesla nelze odvodit to
> p�vodn�, co u�ivatel zadal, proto nen� ani nutn� hesla n�jak chr�nit p�ed
> �ten�m.
>
> Jin� v�c je, jestli ta funkce, kterou se hesla k�duj�, je bezpe�n�, tedy
> odoln� proti kryptoanalytick�m �tok�m a tak� to, jestli p��li�
> kr�tk� hesla
> neumo��uj� �tok hrubou silou, ale proto�e nev�m, kter� k�dovac� algoritmus
> pou��v� InterBase, tak ti to nedok�u ��ct. Ale v principu jde o bezpe�n�
> zp�sob ulo�en� hesel a nemus� m�t ��dn� obavy.
Pro zajimavost prikladam proceduru na generovani IB hesla.
Jestli tomu rozumis tak to prosim zkoukni.>
> BTW, to opravdu uchov�v� v DB a� takov� tajnosti?
No prece jenom mi moznost ziskat heslo SYSDBA a delat si v databazi co chces
pripada jako neunosna.
A strach o data maji predevsim zakaznici.
Nejde mi o to aby to nerozboural nejaky "profi" hacker, ktery si treba pro
pruraz hrubou silou "vypujci" na na inetu vypocetni silu par stovek pocitacu
ale pokud by nekde existovala nejaka utilitka (jako napr. na rozlousknuti
hesel Paradoxu)
a zdatnejsi uzivatel by diky tomu dokazal treba pres WISQL svoje prava
zvysit
ze "sexretarky" na "reditele" nebo na "SYSDBA", pak by mi to asi vadilo
a prestala by mne IB zajimat i kdyz je zadarmo.
Budes se divit ale jeden z mych zakazniku patri do oboru, kde si firmy mezi
sebou
posilaji i spiony. Takze treba prijme sekretarku ta po tydnu nenavratne
zmizi a s ni
i treba udaje ktere ho ve finale neco stoji. Nejsou to sice melouny ale i to
ze tvoje
konkurence ziska neco co Tebe stalo sto tisic zadarmo je svym zpusobem
ztrata.
Ludek
Zde posilam kod.
{ Much of this code has been copied from
Oleg Kukarthev,
extracted from his ib_pass.zip distribution located at
http://www.demon.co.uk/dtuk/dtinterbaselinks.html
It is used with his express permission.
A copy of his copyright statement is at the
bottom of this file. }
{********************************************************}
{ DES for Delphi 16 & 32, }
{ InterBase User password encoder }
{ Copyright (c) 1996,1997 Oleg Kukarthev }
{ }
{ Written by: }
{ Oleg Kukarthev }
{ E-mail: Please look at InterBase List Server }
{ interbase(zv)esunix1.emporia.edu }
{ }
{ InterBase User password encoder }
{ rewritten from G�rard Perreault C code }
{ }
{********************************************************}
unit Encrypt;
interface
uses SysUtils;
function IBPassword(pInStr: PChar): PChar; cdecl; export;
implementation
uses
udf_glob;
const
IP: array [0..63] of Byte =
(57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3,
61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7,
56, 48, 40, 32, 24, 16, 8, 0, 58, 50, 42, 34, 26, 18, 10, 2,
60, 52, 44, 36, 28, 20, 12, 4, 62, 54, 46, 38, 30, 22, 14, 6);
InvIP: array [0..63] of Byte =
(39, 7, 47, 15, 55, 23, 63, 31, 38, 6, 46, 14, 54, 22, 62, 30,
37, 5, 45, 13, 53, 21, 61, 29, 36, 4, 44, 12, 52, 20, 60, 28,
35, 3, 43, 11, 51, 19, 59, 27, 34, 2, 42, 10, 50, 18, 58, 26,
33, 1, 41, 9, 49, 17, 57, 25, 32, 0, 40, 8, 48, 16, 56, 24);
Swap: array [0..63] of Byte =
(32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31);
PC_1: array [0..55] of Byte =
(56, 48, 40, 32, 24, 16, 8, 0, 57, 49, 41, 33, 25, 17,
9, 1, 58, 50, 42, 34, 26, 18, 10, 2, 59, 51, 43, 35,
62, 54, 46, 38, 30, 22, 14, 6, 61, 53, 45, 37, 29, 21,
13, 5, 60, 52, 44, 36, 28, 20, 12, 4, 27, 19, 11, 3);
PC_2 : array[0..47] of Byte =
(13, 16, 10, 23, 0, 4, 2, 27, 14, 5, 20, 9,
22, 18, 11, 3, 25, 7, 15, 6, 26, 19, 12, 1,
40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47,
43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 28, 31);
E: array [0..47] of Byte =
(31, 0, 1, 2, 3, 4, 3, 4, 5, 6, 7, 8,
7, 8, 9, 10, 11, 12, 11, 12, 13, 14, 15, 16,
15, 16, 17, 18, 19, 20, 19, 20, 21, 22, 23, 24,
23, 24, 25, 26, 27, 28, 27, 28, 29, 30, 31, 0);
P: array [0..31] of Byte =
(15, 6, 19, 20, 28, 11, 27, 16, 0, 14, 22, 25, 4, 17, 30, 9,
1, 7, 23, 13, 31, 26, 2, 8, 18, 12, 29, 5, 21, 10, 3, 24);
Boxes: array [0..7, 0..63] of Byte =
((14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7,
0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8,
4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0,
15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13),
(15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10,
3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5,
0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15,
13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9),
(10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8,
13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1,
13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7,
1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12),
( 7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15,
13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9,
10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4,
3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14),
( 2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9,
14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6,
4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14,
11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3),
(12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11,
10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8,
9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6,
4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13),
( 4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1,
13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6,
1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2,
6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12),
(13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7,
1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2,
7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8,
2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11));
RotateArray: array[0..15] of Byte =
(1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1);
procedure Transpose(var Data, OrderData: array of Byte);
var
TmpData: array[0..63] of Byte;
i : Byte;
begin
{$ifdef FULDebug}
WriteDebug('Transpose() - Enter');
{$endif}
StrMove((zv)TmpData, (zv)Data, SizeOf(Data));
for i := 0 to High(OrderData) do
Data[i] := TmpData[OrderData[i]];
{$ifdef FULDebug}
WriteDebug('Transpose() - Exit');
{$endif}
end;
{ Construct 11 bytes array from 64 bits array }
procedure IBBitsToBytes(Ptr: PChar; var Bits: array of Byte);
var
i, j, k, b: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBBitsToBytes() - Enter');
{$endif}
for i := 0 to 10 do begin
b := 0;
for j := 0 to 5 do begin
k := i * 6 + j;
b := b shl 1;
if k <= High(Bits) then
b := b or Bits[k]
end;
Inc(b, Byte('.'));
if b > Byte('9') then Inc(b, 7);
if b > Byte('Z') then Inc(b, 6);
Ptr[i] := Char(b);
end;
Ptr[11] := #0;
{$ifdef FULDebug}
WriteDebug('IBBitsToBytes() - Exit');
{$endif}
end;
procedure IBBytesToBits(Ptr: PChar; var Bits: array of Byte);
var
i, j, b: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBBytesToBits() - Enter');
{$endif}
FillChar(Bits, SizeOf(Bits), 0);
for i := 0 to 7 do begin
b := Byte(Ptr[i]);
if b = 0 then break;
for j := 0 to 6 do
Bits[i * 8 + j] := b shr (6 - j) and 1;
Bits[i * 8 + 7] := 0;
end;
{$ifdef FULDebug}
WriteDebug('IBBytesToBits() - Exit');
{$endif}
end;
{ Make key bit array from key string }
procedure IBMakeKey(KeyPtr: PChar; var KeyBits: array of Byte);
var
i, j, k, b, bx: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBMakeKey() - Enter');
{$endif}
StrMove((zv)KeyBits, (zv)E, SizeOf(E));
for i := 0 to 1 do begin
b := Byte(KeyPtr[i]);
if b > Byte('Z') then Dec(b, 6 + 7 + Byte('.'))
else if b > Byte('9') then Dec(b, 7 + Byte('.'))
else Dec(b, Byte('.'));
for j := 0 to 5 do begin
if b shr j and 1 > 0 then begin
k := i * 6 + j;
bx := KeyBits[k];
KeyBits[k] := KeyBits[k + 24];
KeyBits[k + 24] := bx;
end;
end;
end;
{$ifdef FULDebug}
WriteDebug('IBMakeKey() - Exit');
{$endif}
end;
procedure Rotate(var KeyBits: array of Byte);
var
BitL, BitH : Byte;
begin
{$ifdef FULDebug}
WriteDebug('Rotate() - Enter');
{$endif}
BitL := KeyBits[0]; BitH := KeyBits[28];
StrMove((zv)KeyBits, (zv)KeyBits[1], SizeOf(KeyBits) - 1);
KeyBits[27] := BitL; KeyBits[55] := BitH;
{$ifdef FULDebug}
WriteDebug('Rotate() - Exit');
{$endif}
end;
procedure IBGetBoxes(Round: Byte; var KeyBits, InBits, OutBits: array of
Byte);
var
HalfOutBits: array [0..31] of Byte;
KeyBitsX: array [0..47] of Byte;
i, j, b: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBGetBoxes() - Enter');
{$endif}
for i := 1 to Round do
Rotate(InBits);
for i := 0 to High(KeyBitsX) do
KeyBitsX[i] := OutBits[KeyBits[i] + 32] xor InBits[PC_2[i]];
for i := 0 to 7 do begin
j := i * 6;
j := KeyBitsX[j ] * 32 + KeyBitsX[j + 1] * 8 + KeyBitsX[j + 2] * 4 +
KeyBitsX[j + 3] * 2 + KeyBitsX[j + 4] + KeyBitsX[j + 5] * 16;
b := Boxes[i][j];
j := i * 4;
HalfOutBits[j ] := b shr 3 and 1;
HalfOutBits[j + 1] := b shr 2 and 1;
HalfOutBits[j + 2] := b shr 1 and 1;
HalfOutBits[j + 3] := b and 1;
end;
for i := 0 to 31 do begin
b := OutBits[i];
OutBits[i] := OutBits[i + 32];
OutBits[i + 32] := b xor HalfOutBits[P[i]];
end;
{$ifdef FULDebug}
WriteDebug('IBGetBoxes() - Exit');
{$endif}
end;
procedure IBEncrypt(var KeyBits, InBits, OutBits: array of Byte);
var
i: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBEncrypt() - Enter');
{$endif}
Transpose(OutBits, IP);
for i := 0 to 15 do
IBGetBoxes(RotateArray[i], KeyBits, InBits, OutBits);
Transpose(OutBits, Swap);
Transpose(OutBits, InvIP);
{$ifdef FULDebug}
WriteDebug('IBEncrypt() - Exit');
{$endif}
end;
procedure IBCrypt(KeyPtr, InPtr, OutPtr: PChar);
var
InBits, OutBits: array[0..63] of Byte;
KeyBits: array[0..47] of Byte;
i: Byte;
begin
{$ifdef FULDebug}
WriteDebug('IBCrypt() - Enter');
{$endif}
{ Make key bit array from key string }
IBMakeKey(KeyPtr, KeyBits);
{ Split input string to bit array }
IBBytesToBits(InPtr, InBits);
Transpose(InBits, PC_1);
{ Crypt input bit array to output bit array using key bit array }
FillChar(OutBits, SizeOf(OutBits), 0);
for i := 0 to 24 do
IBEncrypt(KeyBits, InBits, OutBits);
{ Make output string from bit array }
IBBitsToBytes(OutPtr, OutBits);
{$ifdef FULDebug}
WriteDebug('IBCrypt() - Exit');
{$endif}
end;
function IBPassword(pInStr: PChar): PChar;
const
Algorithm = 1; { Base64 }
pKeyStr = '9z';
var
pOutStr: array[0..11] of Char;
pResStr: array[0..11] of Char;
begin
{$ifdef FULDebug}
WriteDebug('IBPassword() - Enter');
{$endif}
IBCrypt(PChar(pKeyStr), pInStr, pOutStr);
IBCrypt(PChar(pKeyStr), pOutStr, pResStr);
result := MakeResultString(pResStr, nil, 0);
{$ifdef FULDebug}
WriteDebug('IBPassword() - Exit');
{$endif}
end;
end.
neprijemna ztrata. Nehlede na "nefinancni" ztraty.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Rychle kresleni PCX
[*] delphi(zv)zas-me(tec)cz - 15.5.2000 16:51:28
Stojim pred problemem, jak co nejrychleji zobrazovat obrazky ve formatu PCX
(jsou velke - napr. naskenovany format A2). Pred zobrazenim musim jeste
ruzne menit jejich meritko, nastesti ale ne otacet. Casto se zobrazuje jen
vyrez z toho obrazku. Totez bych pak i rad tisknul.
Kdyz uz jsem zjistil, ze komponenta pro to asi nebude a naprogramoval si
cteni ruznych mutaci PCX, jak to mam efektivne zobrazovat? Zatim se
priklanim k pouziti tBitmap, do ktere si vzdy pomoci ScanLine ulozim ten
vyrez, ktery chci zobrazit, a doufam, ze Windows si uz nejak poradi s
prevody barev na obrazovku.
Rad bych se zeptal zkusenejsich, co si mysli:
- zda to bude fungovat rozumnou rychlosti
- zda to bude fungovat i pri tisku (ona cela A2 v 300x300 dpi, to uz je
nejakych dat, a obavam se, ze s vytvarenim tBitmap takovych rozmeru to asi
nedopadne dobre); pomohlo by to skladat z malych kousku?
Diky predem za namety,
Karel Rys
rys(zv)zas-me(tec)cz
Tisk vysledku Query
[*] Lauko �tefan <lauko(zv)salamon.sk> - 15.5.2000 16:56:01
V delphi pre "seba" by som to riesil asi takto (nie je to najlepsie) :
uses Printers;
var
PRN :TextFile;
Q :TQuery;
N :Integer;
begin
Q:=TQuery.Create(nil);
Q.DataBaseName:='DBDemos';
Q.SQL.add('Select * from customer');
Q.Open;
{ Printer.Orientation:=poLandscape; nastavenie orientacie }
AssignPRN(PRN);
Rewrite(PRN);
Printer.Canvas.Font.Name:='Courier New';
{ Printer.Canvas.Font:=FontDialog1.Font; nastavenie fontu }
Q.First;
While not Q.Eof do
begin
For n:= 0 to Q.Fields.Count-1 do
Write(PRN, Q.Fields[n].text+' '); {bolo by formatovat podla
typu}
Writeln(PRN);
Q.Next;
end;
System.CloseFile(PRN);
Q.Free;
end;
----- Original Message -----
Od: Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 15. m�j 2000 14:44
Predmet: RE: Tisk vysledku Query
> Taky me to napadlo (delat to pres Excel), ale priznam se, ze nevim jak.
> Pracujeme vetsinou se vzdalenou databazi v Informixu a obcas v lokalnich
> paradoxovych tabulkach. Jak by se to dalo udelat ?
> MS Query nemam (aspon o tom nevim).
>
> Jolana
>
>
> -----P�vodn� zpr�va-----
> Od: VOTAVA Jan [mailto:Jan.Votava(zv)epe(tec)cz]
> Odesl�no: 15. kv�tna 2000 14:03
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Tisk vysledku Query
>
>
> A co si ten Query nechat nat�hnout t�eba do Excelu (p�es MS Query??).
> Uzn�v�m, �e to nen� JEDNODUCH� n�stroj, ale fungovat by to m�lo dob�e.
>
> -----Original Message-----
> From: Ko��tkov� Jolana [mailto:kotatko(zv)nym.pvt(tec)cz]
> Sent: Monday, May 15, 2000 11:14 AM
> To: 'konference Delphi - verejna'
> Subject: Tisk vysledku Query
>
>
> Ahoj,
>
> nevite o nejakem obecnem nastroji, ktery by mi vytiskl vysledek Query ?
> Napr. v Delphi Exploreru si udelam jednoduchy select na obsah ciselniku a
> vracene udaje bych
> si chtela vytisknout jen pro svou potrebu, event. pretahnout do nejakeho
> dokumentu.
>
> Delphi 3.02 CS, SP 5.0, Win NT 4.0
>
> Diky
>
> Jolana Kotatkova
> PVT Nymburk
> tel : 0325/519 639
> fax : 0325/513942
> e_mail: Jolana.Kotatkova(zv)pvt(tec)cz
>
Tisk vysledku Query
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 15.5.2000 17:04:17
M�lo by to j�t takto:
Excel 2000 / Data / Na��st extern� data / Nov� datab�zov� dotaz ...
spust� se MS Query (pokud je instalov�n!). Je jinak standardn� sou��st�
bal�ku MS Office. P�ipojit se mj. d� v�e, k �emu lze p�istupovat p�es ODBC.
M�lo by to j�t stejn� i u star��ch verz� Excelu, ale to nemohu ov��it.
Honza.
-----Original Message-----
From: Ko��tkov� Jolana [mailto:kotatko(zv)nym.pvt(tec)cz]
Sent: Monday, May 15, 2000 2:44 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Tisk vysledku Query
Taky me to napadlo (delat to pres Excel), ale priznam se, ze nevim jak.
Pracujeme vetsinou se vzdalenou databazi v Informixu a obcas v lokalnich
paradoxovych tabulkach. Jak by se to dalo udelat ?
MS Query nemam (aspon o tom nevim).
Jolana
Nastavenie velkosti desktopu
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 15.5.2000 17:28:47
Caute Delfinci !
Mam takyto problemik:
Mam spustenu aplikaciu, ktora je stale viditelna na desktope (na monitore).
Urobi to takym sposobom (asi), ze zmensi velkost desktopu o svoju velkost.
Teda ked spustim nejaky program, tak nikdy neprekryje tuto aplikaciu.
Urobil som si soft (v tray), ktory tuto aplikaciu skryje alebo ukaze.
Ale neviem vratit velkost desktopu na povodnu velkost. Teda ked tuto
aplikaciu
skryjem tak po nej ostane prazdne "okno" ktore neviem vyuzit.
Ked tuto aplikaciu zavriem, tak toto "okno" zmizne a spustene programy
sa roztiahnu, aby tento priestor zaplnili.
Viem zistit velkost desktopu:
ghwnd = GetDesktopWindow();
GetWindowRect(ghwnd, &lRect);
Ale neviem ako mam nastavit novu velkost.
(CB4.0, W98/NT)
Vdaka.
/LH
Jak vyhledat titulek DOS okna
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 15.5.2000 18:06:34
> To Dosovske okno spoutim z Win32 konzolove aplikace pomoci
> CreateProcess.
(z PSDK :)
BOOL CreateProcess(
LPCTSTR lpApplicationName, // name of executable
module
LPTSTR lpCommandLine, // command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // SD
LPSECURITY_ATTRIBUTES lpThreadAttributes, // SD
BOOL bInheritHandles, // handle inheritance
option
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // new environment block
LPCTSTR lpCurrentDirectory, // current directory name
LPSTARTUPINFO lpStartupInfo, // startup information
LPPROCESS_INFORMATION lpProcessInformation // process information
);
Pouzijte lpProcessInformation.dwProcessId pro ziskani handle okna
s pouzitim Toolhelp (Win9x, 2k) nebo PSAPI (winnt).
O pouziti toolhelp se v konferenci psalo uz nekolikrat.
Z handle okna ziskate text pouzitim GetWindowText.
Ondrej Krajicek
--
--------------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno, CR
-- What is the first thing a baby of real programmers says
instead of "Mummy" or "Daddy" ? "Hello World!"
--------------------------------------------------------------
Hookovani
[*] Jirka Virt <virt(zv)volny(tec)cz> - 15.5.2000 19:24:18
Ahoj,
je vedro a vubec mi to nemysli.Potreboval bych pro svoji aplikaci
odchytavat handle oken jinych aplikaci.Predstavoval jsem si to tak, ze
klepnu mysi na nejake okno a prectu jeho handle.
Nevim jestli je to spravny smer , ale zkousel jsem to pres hookovani.Jenze
ani po precteni Win32 nejsem schopen sestavit chodici hook.Vyhledal jsem si
v archivu
konference odkazi a nasel nejaky ten exampl od P.Vonese.A aby tomu nebylo
dost,
vsechny jsou na FTPecku , na ktere se anonymni uzivatel nedostane.
Nepomohl by mi nekdo s timto hookovaci problemem?? Snad se pry ma dat
procedura s hookem do DLL ,ale bez prikladu...Jaksi vubec nemam predstavu
jak.
Diky vsem odpovedim
Jiri Virt
email: virt(zv)volny(tec)cz
Zistenie pridaneho riadku
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 15.5.2000 20:52:31
Vies ono som definoval v %subj% ale pri reply to niekto vymazal, ale ako
vydim ti si daval reply na moju spravu do konf.
R.
----- Original Message -----
From: "Polak Jiri" <Jiri.Polak(zv)tconsult(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, May 14, 2000 9:14 AM
Subject: RE: Zistenie pridaneho riadku
>
> > -----P�vodn� zpr�va-----
> > Od: Roland Turcan (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> > Odesl�no: 12. kv�tna 2000 19:36
> > Komu: Delphi CZ konferencia
> > P�edm�t: IB: Zistenie pridaneho riadku
> >
> >
> > Zdravim.
> >
> > Ako zistim ktory riadok bol pridany.
>
> Tezko, kdyz nenapises na jake databazi.
> Na kazde je to jinak.
> Napr. na MS SQL je to tusim (zv)(zv)identity,
> na informixu to obstarava funkce dbinfo.
>
> Jura
>Jak vyhledat titulek DOS okna
[*] L. ZITA <konference(zv)sales(tec)cz> - 15.5.2000 20:56:25
Behalf Of Karel Kral
> potreboval bych z Delphi programu aktivovat do popredi Dosovske okno. To
> bych umel, ale problem je v tom, jak zjistit Handle okna, ktere se ma
> aktivovat. To okno nema staly titulek, ktery by sel vyhledat normalnim
> FindWindow. Jde totiz o DOS program, ze ktereho se spousteji zase jine
> programy a titulek je tudiz promenlivy podle toho, ktery child DOS
> program je zrovna spusten.
>
> To Dosovske okno spoutim z Win32 konzolove aplikace pomoci
> CreateProcess.
>
> Asi se o tom nebudu vice rozepisovat, ale cele to potrebuji proto, abych
> zabranil ve vicenasobnem spusteni Dosovskeho programu. Kdyz se pousti
> dalsi instance Dosovskeho programu, rad bych ji nespustil a prepnul se
> na prvni instanci programu.
>
Ahoj.
Muzes zkusit pouzit tuhle komponentu :
http://www.delphi(tec)cz/faq.asp?faq=28
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000