Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Outlook 97 a hromadeni folderu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.2.2001 14:34:24
Ahoj,
omlouvam se za OT.
Mam ale problem s outlookem 97. Ve stromecku folderu mam hromadu
osobnich slozek a i jinych a pokusim-li se je odpojit hlasi mi to
"Objekt nenalezen, operace selhala". Tenhle zastupce objekt-neobjekt se
vyrobi snadno. Staci mit nejakou implicitni slozku, do ktere jsou
posilana data (viz. pomocnik pro dorucenou postu) a tu pak odpojit.
Pokud dojde nejaka posta do tehle "odpojene" slozky, vytvori se novy
jakoby zastupce, ktery pak nejde bezne zrusit.
Moje otazka zni: Jak vycistim seznam slozek (stromecek) od techto pseudo
slozek. Bylo mi doporuceno preinstalovat M$Office97 ale to se mi zda
dost drevacke.
Diky za kazdou radu
Jaro B.DBF identifikatory LangDrivera
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 12.2.2001 14:35:55
Hodnota bytu je
CP 852 - Latin2 pre DOS =>$64
CP 862 - Br.Kamenicki =>$69
pro dalsi dve kodove stranky hodnotu hodnotu bohuzel nevim
Libor Filip
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele Peter
Vlkovic
Odesl�no: 12. �nora 2001 14:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: DBF identifikatory LangDrivera
Ahoj,
29. byte hlavicky DBF suboru urcuje pozadovany LangDriver.
Nikde som vsak nenasiel aka hodnota tohto byte
plati pre jednotlive kodove stranky.
Potrebujem hodnotu tohto byte pre stranky:
CP 1250 - Windows,
CP 852 - Latin2 pre DOS
CP 859 - Latin2 pre Unix
CP 862 - Br.Kamenicki
Za pripadnu radu dakujem.
Vlkovic
prace s paletou
[*] Radim.Holan <radim.holan(zv)seznam(tec)cz> - 12.2.2001 14:40:27
Muze mi nekdo poradit jak ulozit paletu barev obrazku bmp, ktery mam nacteny
pres stream do FBitmapInfo....potreboval bych ulozit paletu soucasneho
obrazku a vlozit ji pak do druheho obrazku.....
Radim Hol߲
email: holan(zv)oauh(tec)cz
radim.holan(zv)maringotka(tec)cz
www : holan.zde(tec)cz
WinApi okno
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 12.2.2001 15:21:46
Vyresino. Bylo to jenom tim STDCALLem...
Dalibor Toman wrote:
>
> > Ahoj lidicky, chtel sem si zkusit udelat okno jenom pomoci WinApi, tak
> > sem zkusil toto, ale nejak mi to nefacha. Error zadnej. Spustim, v
> > seznamu aplikaci je, ale okno nejni videt. Kde mam chybu???
> >
>
> 1) WndProc by mela mit STDCALL volaci konvenci
> 2) vraci RegisterClass nenulu?
> 3) vraci CreateWindow() platny handle (nenulu)?
>
> D. Toman
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/pohyb TImage po Formu bez problikavani
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 12.2.2001 15:27:18
Ja to jen tak pro zajimavost taky vyzkousel, s obrazkem 200x100,
ale zda se, ze to zustalo stejny? Odchytavani zpravy WM_ERASEBKGND asi
nepomaha.
Dan
> Nasledujici pouzivam ve svych komponentach, hadam, ze by to melo
> fungovat i pro
> Image:
Odvod si TMyImage=class(TImage)
a pridej do Private sekce:
procedure WMEraseBkgnd(var Msg: integer); message WM_ERASEBKGND;
v Implementation pak:
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
Velikost obrazku
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 12.2.2001 16:31:03
Cauko Delfini
mam nasledujici problemek: delam si webovou kameru. Snimani obrazku,
ukladani na server i vsechno ostatni funguje bezvadne. Ale: mam jen 64kB
linku a obrazek velikosti a rozliseni, ve kterem ho mam, zabira zhruba 7 kB.
To znamena pri kapacite 8kB/s je to skoro cela kapacita linky :(( No a pokud
se jeste pripoji vice uzivatelu... no hruza. Navic, uzivatele s pomalym
spojenim maji taktez problemy s rychlosti nacitani obrazku.. Jeztlize chci
dodrezet 1-2 sekundove intervaly nacitani, chtelo by to nejak zmensit. Nejde
ale pouzit nizsi stupen komprese jpegu, aby nedoslo ke strate kvality.
Napadlo me zmenit velikost. Ale jak ? Da se nejak zmenit velikost bitmapy
(nebo jpegu - to je jedno) treba v image ? Zkousel jsem nastavit parametry
jpeg.Scale i jpeg.Format, ale bez vysleku. Nic to neudelalo. Dalsi zpusob,
jak je mozno nastavit rozmery framu je nastavit to primo u grabovaneho
obrazku. Umim otevrit dialog pro nastaveni ( SendMessage (cwnd,
WM_CAP_DLG_VIDEOFORMAT, 2, 0); ), ale jak to udelat, abych to nastavil primo
predanim nejakych parametru ? Jde to vubec ? Nemate s tim nekdo skusenosti ?
Batex
OT: Apache + SSL
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 12.2.2001 16:51:37
Ahoj.
Viem ze ide o temu mierne mimo DELPHI (aj ked ja programujem CGI aplikaciu v
DELPHI), ale ...
Pouzivam Apache Web Server pod Windows NT (pre testovacie ucely - jednoduche
pouzitie, mozem spustat na NT Workstation) a potreboval by som zohnat verziu
ktora obsahuje SSL.
Na www.apache.org a www.apache-ssl.org existuje sice patch na SSL ale vo
forme zdrojakov a mne je proti srsti to kompilovat.
Potrebujem binarne subory, to mi staci !
Ak niekto take nieco pouziva, dajte mi prosim vediet (staci linka...).
Mozno by pomohlo aj nastavenie .conf suboru.
A este: neviete ako ziskat klucovy par pre pouzitie SSL:
Ja som pouzil www.verisign.com a ich trial key, ale ten funguje len 14dni a
este ma aj stale otravuju ze kedy si kupim novy.
Poslal som im kluc v tvare:
-----BEGIN NEW CERTIFICATE REQUEST-----
poziadavka na kluc
-----END NEW CERTIFICATE REQUEST-----
Oni mi poslali:
-----BEGIN CERTIFICATE-----
kluc
-----END CERTIFICATE-----
Proste potrebujem SSL pre zakaznikov ktori potrebuju zabezpecit SSL
komunikaciou osobne udaje (rodne cisla, ...) ale nie je to zase nic fatalne
dolezite (bankova operacia, alebo podobne), takze urcite nebudu chciet
investovat este aj do SSL kluca !
Vdaka.
janog(zv)pluto.elf.stuba.sk
IB: Domains jako parametr ve Stored procedure
[*] Jan Naiser <tua(zv)wo(tec)cz> - 12.2.2001 17:36:40
Preji pekny den,
(IB6)
da se pouzit typ promenne nadefinovane v Domains jako parametr Stored
procedury? Pokud ano, tak jakym zpusobem? Kdyz pouziju napr.: toto:
CREATE DOMAIN MONEY DECIMAL(15,4);
CREATE PROCEDURE Celkem
RETURNS (CENA MONEY) AS ...
tak mi to rve na MONEY.
Diky
Honza Naiser.
Pristup ke vzdalenym datum
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 12.2.2001 18:24:03
Ahoj,
Co takhkle:
Server = W2000 Pro ktery obsahuje i IIS 5.0 +
SQL Server + ASP aplikace.
Na klientovi pak staci browser. Ovsem nevim jak
je to s propojenim IB6 a IIS5.0.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lubo Fule
> Sent: Monday, February 12, 2001 10:42 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Pristup ke vzdalenym datum
>
>
> > Je firma, ktera ma mnoho pobocek po cele republice a casem
> > budou i v zahranici. Na ustredi bude SQL server, patrne IB6.
> > Jednotlive pobocky maji mit moznost data z centraly prohlizet,
> > tisknout sestavy atd. (tj. bez moznosti editace). Prenos dat na
> > klienta by mel byt pokud mozno chranen proti zneuziti.
>
> Ja by som na ustredi zriadil WWW server a urobil nejaku vhodnu
> WWW aplikaciu
> napr. v jave a klientom by potom stacil bezny WWW browser. Ma to tiez tu
> vyhodu, ze nove verzie by nebolo treba zlozitym sposobom
> distribuovat. Co sa
> tyka bezpecnosti dat, tak je mozne pouzit HTTPS.
>
> L.
>
>
> Vnoreny dotaz
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.2.2001 18:26:59
Zdravim,
zkousim tenhle dotaz, ale hlasi to chybu syntax error. Poradi nekdo, jak
to udelat pro MS Access i MS SQL?
INSERT INTO items_category (category_id, category_name) VALUES (SELECT
MAX(category_id) + 1 FROM items_category, 'NOVA')
Diky, Ales
zasifrovani
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 12.2.2001 18:57:07
Mas velmi vela moznosti. Ja ti jeden primitini popisen:
1.Preved znaky na cisla - a daj do stringu.
2. Otoc string
3. Ku kazdej cislici prirad nejaky znak
Priklad:
ABC
646566
665646
1=A 2=B 3=C 4=D 5=E 6=F 7=G atd.
Vysledok: FFEFDF
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.host.sk/tungli/
> -----P�vodn� zpr�va-----
> Od: Milan #ݿek [SMTP:Cizek.Milan(zv)seznam(tec)cz]
> Odesl�no: 9. febru�r 2001 10:03
> Komu: Konference Delphi
> P�edm�t: zasifrovani
>
> ahoj,
> potreboval bych 2funkce (encode/decode), ktere by dokazali zasifrovat
> retezec. Potrebuju ale, aby ten zasifrovany string obsahoval pouze znaky
> 0..9,A..Z,a..z - a zadne jine jako (zv)#$%^&*(... Jde oto, aby to bylo co
> nejjednodusii, ale zaroven pokud mozno aspon 'trochu' bezpecne. Koukal
> jsem se na free komponenty na sifrovani, to je ale vsecho tak slozity
> (myslim pro me).
>
> Diky
>
> S pozdrave Milan Cizek
> _____________________________________________________________________
> Jake bude pocasi? http://pocasi.seznam(tec)cz
Vnoreny dotaz
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 12.2.2001 19:31:15
Rekl bych, ze pri insert se select pise bez values.
tzn
insert into tabulka(....)
select * .....
Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>; <SQL-L(zv)LIST.EMWAC.CZ>
Sent: Monday, February 12, 2001 6:26 PM
Subject: Vnoreny dotaz
> Zdravim,
>
> zkousim tenhle dotaz, ale hlasi to chybu syntax error. Poradi nekdo, jak
> to udelat pro MS Access i MS SQL?
>
> INSERT INTO items_category (category_id, category_name) VALUES (SELECT
> MAX(category_id) + 1 FROM items_category, 'NOVA')
>
> Diky, Ales
>
>
>OT: Obsluha serioveho portu v BP7 nebo v C
[*] Josef <sip(zv)atlas(tec)cz> - 12.2.2001 20:01:18
Omlouvam se za OT ale nemate nekdo subj ?
Jedna se mi hlavne o preruseni, bez podpory preruseni mi to chodi ale nikdy se mi nevyvola preruseni.
Diky Josef.Rezie retezcu a objektu?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.2.2001 20:34:28
Preji vsem pekneho dne,
mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
jeho metody pricte k privatni promenne typu string retezec zadany
jako parametr. Tech metod je vice a jsou pretizene. Problem je v
tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
casu?
Diky za info
Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Upresneni: Rezie retezcu a objektu?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.2.2001 20:51:56
Trosku to upresnim (resp. eliminuji problem). Mam nasledujici
procedury:
var
FXMLString: string = '';
//-----------------------------------------------------------------------------
// OpenElement
//-----------------------------------------------------------------------------
procedure OpenElement(const ElementName: string);
begin {OpenElement}
FXMLString := FXMLString + '<'+ElementName+'>';
end; {OpenElement}
//-----------------------------------------------------------------------------
// CloseElement
//-----------------------------------------------------------------------------
procedure CloseElement(const ElementName: string);
begin {CloseElement}
FXMLString := FXMLString + '<'+ElementName+'/>';
end; {CloseElement}
//-----------------------------------------------------------------------------
// WholeElement
//-----------------------------------------------------------------------------
procedure WholeElement(const ElementName: string);
begin {WholeElement}
FXMLString := FXMLString + '<'+ElementName+'/>';
end; {WholeElement}
A pak nejakou vec, ktera je pouziva:
procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
_time: TDateTime;
begin
_time := Now;
for i := 1 to 2000 do
begin
OpenElement ('Ferda');
WholeElement ('element');
WholeElement ('323354r748548547854854584785478574');
CloseElement ('Ferda');
end;
ShowMessage (TimeToStr (Now - _Time));
end;
Pri uvedenych 2000 pruchodech to trva pres tri sec (Athlon 600,
384 MB RAM, W2k Server, D5.01).
To mi pripadne neskutecne moc, zvlaste pokud potrebuji tech
pruchodu minimalne desetinasobek. To je generovani retezcu tak
neskutecne drahe?
Diky za info
Slavek
> Preji vsem pekneho dne,
>
> mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> jeho metody pricte k privatni promenne typu string retezec zadany
> jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> casu?
>
> Diky za info
>
> Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Co je Tapisrv.exe?
[*] Jan Nov�k <megamax(zv)seznam(tec)cz> - 12.2.2001 20:51:00
Ahoj,
nev�te n�kdo n�hodou, k �emu Windows pou��vaj� podprogram Tapisrv.exe?
(v�t#inou se nach�z� v C:\windows\system)
D�k
Pavel Nov�k, megamax(zv)seznam(tec)cz
Vnoreny dotaz
[*] olesia <olesia(zv)idirect(tec)com> - 12.2.2001 14:52:11 -0500
podla mna to ma byt
INSERT INTO items_category (category_id, category_name) VALUES (SELECT
MAX(category_id) + 1 ,'NOVA' FROM items_category)
Lelitka
----- Original Message -----
From: Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 1:31 PM
Subject: Re: Vnoreny dotaz
> Rekl bych, ze pri insert se select pise bez values.
> tzn
>
> insert into tabulka(....)
> select * .....
>
> Pavel
> -------------------------------------------------
> Pavel Skalick�
> e-mail - P.Skalicky(zv)seznam(tec)cz
> www - http://pts.kvalitne(tec)cz
> mobil - 0604 844 698
> ICQ - 38169741
> ----- Original Message -----
> From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>; <SQL-L(zv)LIST.EMWAC.CZ>
> Sent: Monday, February 12, 2001 6:26 PM
> Subject: Vnoreny dotaz
>
>
> > Zdravim,
> >
> > zkousim tenhle dotaz, ale hlasi to chybu syntax error. Poradi nekdo, jak
> > to udelat pro MS Access i MS SQL?
> >
> > INSERT INTO items_category (category_id, category_name) VALUES (SELECT
> > MAX(category_id) + 1 FROM items_category, 'NOVA')
> >
> > Diky, Ales
> >
> >
> >Reseni: Rezie retezcu a objektu?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.2.2001 21:00:28
A nakonec reseni:
prirazeni (napr.):
FXMLString := FXMLString + '<'+ElementName+'/>';
se musi rozepsat na:
FXMLString := FXMLString + '<';
FXMLString := FXMLString + ElementName;
FXMLString := FXMLString + '/>';
Coz mi pripadne jako
a) zvracene
b) spatne udelany prekladac
Mam to chapat tak, ze string je i v Delphi trida a pri scitani se
vytvari ,,mezitridy`` jako v C++ (Builderu)?
Diky za info
Slavek
> Trosku to upresnim (resp. eliminuji problem). Mam nasledujici
> procedury:
>
> var
> FXMLString: string = '';
> //-----------------------------------------------------------------------------
> // OpenElement
> //-----------------------------------------------------------------------------
> procedure OpenElement(const ElementName: string);
> begin {OpenElement}
> FXMLString := FXMLString + '<'+ElementName+'>';
> end; {OpenElement}
> //-----------------------------------------------------------------------------
> // CloseElement
> //-----------------------------------------------------------------------------
> procedure CloseElement(const ElementName: string);
> begin {CloseElement}
> FXMLString := FXMLString + '<'+ElementName+'/>';
> end; {CloseElement}
> //-----------------------------------------------------------------------------
> // WholeElement
> //-----------------------------------------------------------------------------
> procedure WholeElement(const ElementName: string);
> begin {WholeElement}
> FXMLString := FXMLString + '<'+ElementName+'/>';
> end; {WholeElement}
>
> A pak nejakou vec, ktera je pouziva:
>
> procedure TForm1.Button4Click(Sender: TObject);
> var
> i: integer;
> _time: TDateTime;
> begin
> _time := Now;
> for i := 1 to 2000 do
> begin
> OpenElement ('Ferda');
> WholeElement ('element');
> WholeElement ('323354r748548547854854584785478574');
> CloseElement ('Ferda');
> end;
>
> ShowMessage (TimeToStr (Now - _Time));
> end;
>
>
> Pri uvedenych 2000 pruchodech to trva pres tri sec (Athlon 600,
> 384 MB RAM, W2k Server, D5.01).
>
> To mi pripadne neskutecne moc, zvlaste pokud potrebuji tech
> pruchodu minimalne desetinasobek. To je generovani retezcu tak
> neskutecne drahe?
>
> Diky za info
>
> Slavek
>
>
>
> > Preji vsem pekneho dne,
> >
> > mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> > jeho metody pricte k privatni promenne typu string retezec zadany
> > jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> > tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> > casu?
> >
> > Diky za info
> >
> > Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Reseni: Rezie retezcu a objektu?
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 12.2.2001 21:43:39
Zkus pou��t
FXMLString := format('%s<%s/>',[FXMLString, ElementName]);
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 9:00 PM
Subject: Reseni: Rezie retezcu a objektu?> A nakonec reseni:
>
> prirazeni (napr.):
> FXMLString := FXMLString + '<'+ElementName+'/>';
>
> se musi rozepsat na:
>
> FXMLString := FXMLString + '<';
> FXMLString := FXMLString + ElementName;
> FXMLString := FXMLString + '/>';
>
> Coz mi pripadne jako
> a) zvracene
> b) spatne udelany prekladac
>
> Mam to chapat tak, ze string je i v Delphi trida a pri scitani se
> vytvari ,,mezitridy`` jako v C++ (Builderu)?
>
> Diky za info
>
> Slavek
>
>
> > Trosku to upresnim (resp. eliminuji problem). Mam nasledujici
> > procedury:
> >
> > var
> > FXMLString: string = '';
> >
//--------------------------------------------------------------------------
---
> > //
OpenElement
> >
//--------------------------------------------------------------------------
---
> > procedure OpenElement(const ElementName: string);
> > begin {OpenElement}
> > FXMLString := FXMLString + '<'+ElementName+'>';
> > end; {OpenElement}
> >
//--------------------------------------------------------------------------
---
> > //
CloseElement
> >
//--------------------------------------------------------------------------
---
> > procedure CloseElement(const ElementName: string);
> > begin {CloseElement}
> > FXMLString := FXMLString + '<'+ElementName+'/>';
> > end; {CloseElement}
> >
//--------------------------------------------------------------------------
---
> > //
WholeElement
> >
//--------------------------------------------------------------------------
---
> > procedure WholeElement(const ElementName: string);
> > begin {WholeElement}
> > FXMLString := FXMLString + '<'+ElementName+'/>';
> > end; {WholeElement}
> >
> > A pak nejakou vec, ktera je pouziva:
> >
> > procedure TForm1.Button4Click(Sender: TObject);
> > var
> > i: integer;
> > _time: TDateTime;
> > begin
> > _time := Now;
> > for i := 1 to 2000 do
> > begin
> > OpenElement ('Ferda');
> > WholeElement ('element');
> > WholeElement ('323354r748548547854854584785478574');
> > CloseElement ('Ferda');
> > end;
> >
> > ShowMessage (TimeToStr (Now - _Time));
> > end;
> >
> >
> > Pri uvedenych 2000 pruchodech to trva pres tri sec (Athlon 600,
> > 384 MB RAM, W2k Server, D5.01).
> >
> > To mi pripadne neskutecne moc, zvlaste pokud potrebuji tech
> > pruchodu minimalne desetinasobek. To je generovani retezcu tak
> > neskutecne drahe?
> >
> > Diky za info
> >
> > Slavek
> >
> >
> >
> > > Preji vsem pekneho dne,
> > >
> > > mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> > > jeho metody pricte k privatni promenne typu string retezec zadany
> > > jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> > > tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> > > casu?
> > >
> > > Diky za info
> > >
> > > Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
Jak ziskat info o PCI zarizeni
[*] Luk� Lou�ansk����#��#�o��#�� - 12.2.2001 22:09:08
Ahoj
co se detekce PCI zarizeni tyce mam s tim jiste zkusenosti (vlastni
sysinfo) - takze pokud chce jit tazatel uplne nejniz tak musi
na port $0cf8 zapsat dword v podobe konfigurace povolena+bus num+dev
num+func num
pak z poru $0cfc precist dword konfiguracniho registru - viz priklad (16-bit
DOS code z mych zacatku...)
.MODEL small
.386p
.DATA
res dd ?
re dw ?
reg dd ?
.CODE
PUBLIC inl
PUBLIC outl
PUBLIC rpcire
inl PROC near
push bp
mov bp,sp
mov dx,[bp+4]
in eax,dx
mov res,eax
xor eax,eax
xor edx,edx
mov dx,word ptr res[+2]
mov ax,word ptr res
pop bp
ret 4
inl ENDP
outl PROC near
push bp
mov bp,sp
mov dx,[bp+4]
mov eax,[bp+8]
out dx,eax
pop bp
ret
outl ENDP
;readreg(bus,device,func,regnum:byte):longint;
;eco or (func shl 8) + (device shl 11) + (bus shl 16);
rpcire PROC far
push bp
mov bp,sp
mov cl,[bp+12] ;bus
mov ch,[bp+10] ;device
mov dl,[bp+8] ;func
mov dh,[bp+6] ;regnum
xor eax,eax
or eax,80000000h
;
mov byte ptr [reg],dl
mov ebx,reg
shl ebx,8
or eax,ebx
;
mov byte ptr [reg],ch
mov ebx,reg
shl ebx,11
or eax,ebx
;
mov byte ptr [reg],cl
mov ebx,reg
shl ebx,16
or eax,ebx
;
mov byte ptr [reg],dh
mov ebx,reg
and ebx,0fch
or eax,ebx
mov dx,0cf8h
out dx,eax
mov dx,0cfch
in eax,dx
mov res,eax
mov dx,0cf8h
xor eax,eax
out dx,eax
mov dx,word ptr res[+2]
mov ax,word ptr res
pop bp
ret
rpcire ENDP
END
podrobnejsi popis viz www.intel.com sekce developers - jakykoliv datasheet k
chipsetum (439TX,443BX,810,815,820,...)
popis konfiguracnich registru PCI zarizeni v interrupt listu od R. Browna
(odkaz na jeho stranky je na www.sandpile.org)
Cauvejs Lukas L.
----- Original Message -----
From: "RNDr. Milan Vo��#ek" <vorisek(zv)igtt(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 9:04 AM
Subject: Re: Jak ziskat info o PCI zarizeni
> >> procedure otput(addr:word;data:byte);
> >> function input(addr:word):byte;
>
> >Ahoj,
> >doufam ze ty rutiny nevolaji jen asm IN/OUT instrukce na urovni aplikace.
To
> >pak nebude fungovat pod NT a bude "fungovat" ve Win9x.
> >
> >Petr Vones, amatersky programator
>
> Ahoj,
>
> ty rutiny jsou dodavane spolu s drivery pro kartu a funguji v NT.
> To mam odzkousene a karta s nimi je plne funkcni k me spokojenosti.
> Jedine co potrebuji je adresa portu karty PCI. Tu mohu zatim ziskat jen
> externim programem a natvrdo napsat do aplikace. Kdyz vsak zakaznik
> zmeni konfiguraci pocitace muze se tato adresa zmenit, proto potrebuji
> ziskat adresu az za behu programu.
> Opakuji tedu svuj dotaz: Je mozne nejak ziskat informace i PCI zarizeni
> ze systemu Windows NT 4 (API ...)?
>
> M.Vorisek
>
>pohyb TImage po Formu bez problikavani
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 12.2.2001 22:18:09
No jo, ja to nezkousel :-)
Pravda, buhvi, co TImage vsecko pred vykreslenim provadi, v tom pripade bych asi
nepouzil TImage... vytvorit jednoduchou komponentu pokrytou bitmapou snad neni
problem.
Roman
btw. este bych mozna zkusil prepsat WM_PAINT... teda treba to nekdo zkusi :-)
> Ja to jen tak pro zajimavost taky vyzkousel, s obrazkem 200x100,
> ale zda se, ze to zustalo stejny? Odchytavani zpravy WM_ERASEBKGND asi
> nepomaha.
>
> Dan
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Reseni: Rezie retezcu a objektu?
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 12.2.2001 22:36:58
> A nakonec reseni:
>
> prirazeni (napr.):
> FXMLString := FXMLString + '<'+ElementName+'/>';
>
> se musi rozepsat na:
>
> FXMLString := FXMLString + '<';
> FXMLString := FXMLString + ElementName;
> FXMLString := FXMLString + '/>';
>
....
Pokud chces prehlednejsi zapis, pak je rozumnym kompromisem:
FXMLString := FXMLString + Format('<%s/>',[ElementName]);
Naopak verze:
FXMLString := Format('%s<%s/>',[FXMLString,ElementName]);
je bezkonkurencne nejpomalejsi
Mala statistika:
20000 pruchodu
1 radek 18 sekund
3 radky nemeritelne
s+Format('<%s/>' ... 3 sekundy
Format('%s<%s/>'... 50 sekund.
Radim
>
> Slavek
>
>
DBGrid and KeyDown
[*] Dave FM <dave.fm(zv)atlas(tec)cz> - 12.2.2001 22:38:28
Ahoj Delphici,
potreboval bych poradit s odchytavanim klaves. U komponenty TRXDbGrid nebo
TDBGrid (vyjde to nastejno) mam event onKeyDown vytvoreno odchytavani
klaves, tzn. Kdyz uzivatel klikne na klavesu tak se prenese do TEdit a tam
na je potom event na zmenu, ze se skoci na zaznam v tabulce (Locate)
odpovidajici obsahu TEdit. Jde to vsechno OK az na to ze to jde dost pomalu
jellikoz tabulka obsahuje 15000 zaznamu.
1. dotaz jde to zrychlit (pouzivam IB, a Data Access s BDE) v�m nen� to
nejidealnejs� - doporucte leps�
2. pohyb kurzorov�mi klavesami po DBGridu je pak pomale s t�m odchytavan�m.
3. Nav�c pot�ebuji odchyt�vat i jinou kl�vesu na select a deselect �adku
tabulky a na to dotaz cislo 4.
4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl vytisknout
jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na ten
sloupec je to vyhodne nebo to udelat pres nejake pole ??)
Diky za tyto odpovedi
David
SendKeys
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 12.2.2001 23:06:38
Hmm, kdybych ale tak vedel jak to udelat ... :-(
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, February 11, 2001 7:40 PM
Subject: Re: SendKeys
> From: "Petr Ha#lar" <rincewind(zv)volny(tec)cz>
> > Ahoj, neda se zaridit, aby muj program 'poslal' bezici aplikaci stisk
> > nekolika klaves (Alt+Enter)? (potrebuju spustit WMP 6.4 ve fullscreen
> > rezimu)
>
> Ahoj,
>
> a neslo by to resit tak, ze si naimportujes WMP jako ActiveX do Delphi a
pak
> si jej ovladas dle potreby. Je tam i property FullScreen.
>
> Petr Vones, amatersky programator
>
>Reseni: Rezie retezcu a objektu?
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 12.2.2001 23:17:04
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>> A nakonec reseni:
>
> prirazeni (napr.):
> FXMLString := FXMLString + '<'+ElementName+'/>';
>
> se musi rozepsat na:
>
> FXMLString := FXMLString + '<';
> FXMLString := FXMLString + ElementName;
> FXMLString := FXMLString + '/>';
Asi by stacilo toto:
FXMLString := FXMLString + ('<'+ElementName+'/>');
Asi jde o to, jakym zpusobem se vyraz vyhodnocuje.
V puvodnim reseni je obrovska rezie pri neustalem presouvani
dlouheho retezce na zasobnik a zpatky.
Vaclav Krmela
Reseni: Rezie retezcu a objektu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2001 23:25:57
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> FXMLString := FXMLString + '<';
> FXMLString := FXMLString + ElementName;
> FXMLString := FXMLString + '/>';
>
> Coz mi pripadne jako
Ahoj,
to je opravdu nejak divne. Projevuje se to i v pripade, ze pridavas stringy do
promenne v jednom miste nebo to musi byt slozitejsi. Jak dlouhy je ten string?
Patrne dochazi k fragmentaci heapu, zkus pred pouzitim te promenne nastavit
predpokladanou delku pomoci SetLength.
Petr Vones, amatersky programator
Reseni: Rezie retezcu a objektu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2001 23:48:35
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> se musi rozepsat na:
>
> FXMLString := FXMLString + '<';
> FXMLString := FXMLString + ElementName;
> FXMLString := FXMLString + '/>';
Ahoj,
tak jsem se na to dival. Pokud napises
S : = '<' + X + '>'
tak prekladac ulozi na zasobnik adresy vsech trech retezcu, do EDX da pocet
retezcu a vola LStrCatN. Tato funkce pouziva interni AnsiString coz asi
zpomaluje celou operaci.
V pripade ze to rozepises se vola LStrCat pri kazdem prirazeni, ktera pouze
prida string na konec.
Petr Vones, amatersky programator
puvodni velikost okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 00:24:31
From: "Daniel Dedek" <Dedek(zv)ds(tec)cz>
> nevite nekdo, je mozne v Delphi zjistit, na jakou velikost se
> zmensi velikost okna ( formulare ) po prepnuti ze stavu "Maximalizovano"
> na "Normal" ? Nemuzu to nikde najit. Pred ukoncenim aplikace potrebuju
Ahoj,
procedure TForm1.Button1Click(Sender: TObject);
var
WindowPlacement: TWindowPlacement;
begin
FillChar(WindowPlacement, SizeOf(WindowPlacement), 0);
WindowPlacement.length := SizeOf(WindowPlacement);
Win32Check(GetWindowPlacement(Handle, (zv)WindowPlacement));
with WindowPlacement.rcNormalPosition do
ShowMessageFmt('%d %d %d %d', [Left, Top, Right, Bottom]);
end;
Petr Vones, amatersky programator
Jak ziskat info o PCI zarizeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 00:27:54
From: "RNDr. Milan Vo��#ek" <vorisek(zv)igtt(tec)cz>
> Opakuji tedu svuj dotaz: Je mozne nejak ziskat informace i PCI zarizeni
> ze systemu Windows NT 4 (API ...)?
Ahoj,
pokud je to zarizeni PnP, tak by to melo jit najit nekde v registru.
Petr Vones, amatersky programator
SendKeys
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 01:50:55
From: "Petr Ha#lar" <rincewind(zv)volny(tec)cz>
> Hmm, kdybych ale tak vedel jak to udelat ... :-(
Ahoj,
1. v menu vyber Component | Import ActiveX Control
2. v dialogu ImportActiveX vyber "Windows Media Player (Version 1.0)"
3. v poli ClassNames prejmenuj TMediaPlayer treba na TWinMediaPlayer
4. stiskni tlacitko Install
v palete komponent ActiveX pak najdes TWinMediaPlayer
Petr Vones, amatersky programator
DBF identifikatory LangDrivera
[*] ds.soft(zv)atlas(tec)cz - 13.2.2001 06:32:26
Tohle jsem kdysi opsal z nejakeho manualu FOXPRO:
Posledni cislo v tabulce je znak.
437 - AMERICKY MS-DOS 1
850 - MEZINARODNI MS-DOS 2
1252 - WINDOWS ANSI 3
10000- STANDARD MACINTOSH 4
852 - EE MS-DOS(LATIN2) 100
866 - RUSSIAN MS-DOS 101
865 - NORDIC MS-DOS 102
861 - ICELANDIC MS-DOS 103
895 - KAMENICKY MS-DOS 104
620 - MAZOVIA MS-DOS 105
737 - GREEK MS-DOS(437 G) 106
857 - ? 107
863 - ? 108
10007- RUSSIAN MACINTOSH 150
10029- EASTERN EUROPEAN MACINTOSH 151
10006- GREEK MACINTOSH 152
1250 - WINDOWS EE 200
1251 - RUSSIAN WINDOWS 201
1253 - GREEK WINDOWS 203
1254 - TURKISH WINDOWS 202
1257 - BALTIC WINDOWS 204
(895 jako oznaceni Kamenickych pouzivali nekteri programatori)
David
----- Puvodn� zpr�va -----
Od: "Peter Vlkovic" <vlkovic(zv)minv.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 12. �nora 2001 14:10
Predmet: OT: DBF identifikatory LangDrivera
> Ahoj,
>
> 29. byte hlavicky DBF suboru urcuje pozadovany LangDriver.
> Nikde som vsak nenasiel aka hodnota tohto byte
> plati pre jednotlive kodove stranky.
>
> Potrebujem hodnotu tohto byte pre stranky:
> CP 1250 - Windows,
> CP 852 - Latin2 pre DOS
> CP 859 - Latin2 pre Unix
> CP 862 - Br.Kamenicki
>
> Za pripadnu radu dakujem.
>
> Vlkovic
SQLDA missing or incorrect version
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 13.2.2001 07:15:10
Od: rado(zv)nnsk.sk
Komu: delphi-l(zv)fwd(tec)cz
V�c: RE: SQLDA missing or incorrect version
Datum odesl�n�: Mon, 12 Feb 2001 11:42:42 +0100
Po�tovn� prog.: Internet Mail Service (5.5.2653.19)
Odpov�� kam: delphi-l(zv)fwd(tec)cz
UDF ani SP tam nemam, na obou PC je stejny gds32.dll z cervna
2000. Tonouci se stebla chyta - muzete mi na muj e-mail poslat tu
o pul roku cerstvejsi verzi ?
> > Program (Delphi5+IB6) ktery na jednom pocitaci v pohode chodi
> > hlasi na jinem chybu SQL -804 SQLDA missing or incorrect
> > version..., nikde se mi nepodarilo najit podrobnejsi vysvetleni a
> > hlavne - jak chybu odstranit. Posledni moznost je, ze kde nepomuze
> > dokumentace, pomuze Delphi konference. Diky.
>
> 1. Pozrel by som si verziu gds32.dll, ja mam WI-T0.9.4.41
> z 29.12.2000. Odporucam co najnovsiu.
> 2. Pri pouziti stored procedur odporucam pouzit volania
> Prepare / Unprepare pred a po kazdom volani, napr
>
> with StoredProc1 do
> begin
> StoredProcName := 'TEST';
> Prepare;
> // ...
> ParamByName('HUHU').AsInteger := 1;
> // ...
> ExecProc;
> UpPrepare;
> end;
>
> 3. Problemom moze byt aj UDF.
>
> Bez blizsich informacii tazko povedat.
>
> Pozeral som archivy na www.mers.com, ale zda sa ze chyba
> nema jednoznacne urcitelnu pricinu.
>
> HTH,
>
> bego
Z.Kalhous
Rezie retezcu a objektu?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.2.2001 07:37:16
Ahoj,
mam stejny problem, delat to tak, ze nastavim retezec SetLength() na
velikost souctu vsech retezcu ktere chci vlozit a pak pomoci MOVE to tam
nechutne rychle nasazim.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 12. II 2001 20:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Rezie retezcu a objektu?
>
> Preji vsem pekneho dne,
>
> mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> jeho metody pricte k privatni promenne typu string retezec zadany
> jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> casu?
>
> Diky za info
>
> Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
> Velikost obrazku
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.2.2001 07:39:25
Ahoj,
tak z nej udelej ikonu 64x64 to by system mel umet.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Peter Luk�cs [SMTP:batex(zv)astrafren(tec)cz]
> Odesl�no: 12. II 2001 16:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Velikost obrazku
>
> Cauko Delfini
>
> mam nasledujici problemek: delam si webovou kameru. Snimani
> obrazku,
> ukladani na server i vsechno ostatni funguje bezvadne. Ale: mam jen
> 64kB
> linku a obrazek velikosti a rozliseni, ve kterem ho mam, zabira zhruba
> 7 kB.
> To znamena pri kapacite 8kB/s je to skoro cela kapacita linky :(( No a
> pokud
> se jeste pripoji vice uzivatelu... no hruza. Navic, uzivatele s
> pomalym
> spojenim maji taktez problemy s rychlosti nacitani obrazku.. Jeztlize
> chci
> dodrezet 1-2 sekundove intervaly nacitani, chtelo by to nejak zmensit.
> Nejde
> ale pouzit nizsi stupen komprese jpegu, aby nedoslo ke strate kvality.
> Napadlo me zmenit velikost. Ale jak ? Da se nejak zmenit velikost
> bitmapy
> (nebo jpegu - to je jedno) treba v image ? Zkousel jsem nastavit
> parametry
> jpeg.Scale i jpeg.Format, ale bez vysleku. Nic to neudelalo. Dalsi
> zpusob,
> jak je mozno nastavit rozmery framu je nastavit to primo u grabovaneho
> obrazku. Umim otevrit dialog pro nastaveni ( SendMessage (cwnd,
> WM CAP DLG VIDEOFORMAT, 2, 0); ), ale jak to udelat, abych to nastavil
> primo
> predanim nejakych parametru ? Jde to vubec ? Nemate s tim nekdo
> skusenosti ?
>
> Batex
>
>
> Rezie retezcu a objektu?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.2.2001 07:44:14
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 8:34 PM
Subject: Rezie retezcu a objektu?> Preji vsem pekneho dne,
>
> mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> jeho metody pricte k privatni promenne typu string retezec zadany
> jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> casu?
>
pokud se intenzivne manipuluje s long string retezci (prodluzovani,
zkracovani) pak je nutne si uvedomit, ze takove operace muzou mit zanasledek
realokaci stringa coz je znacne pomale. V takovych pripadech je nutne tuto
cinost nejak optimalizovat (donutit string aby jeho predalokovana velikost
mela dost velkou rezervu pro vsechna data..) Nekde na Internetu jsem videl
specializovanou knihovnu na praci se stringy, ktera se chlubila eliminaci
alokaci ..
D. Toman
Resource a MediaPlayer
[*] Tu�ek Roman (M� Praha 15) - 13.2.2001 08:03:58
Mel bych jeden dotazek
mam WAV v resourcech a nevim jak ho natlacit do mediaplayeru
jde to vubec nejak ????
Prip. jak prehrat WAV z resourcu necim jinym.......
Tucek
OT: Apache + SSL
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 13.2.2001 08:07:06
> Ahoj.
> Viem ze ide o temu mierne mimo DELPHI (aj ked ja programujem CGI
> aplikaciu v DELPHI), ale ...
>
> Pouzivam Apache Web Server pod Windows NT (pre testovacie ucely -
> jednoduche pouzitie, mozem spustat na NT Workstation) a potreboval by
> som zohnat verziu ktora obsahuje SSL. Na www.apache.org a
> www.apache-ssl.org existuje sice patch na SSL ale vo forme zdrojakov a
> mne je proti srsti to kompilovat. Potrebujem binarne subory, to mi
> staci !
Je, zrovna nedavno jsem presne s timhle zapolil. :-)
Binarky pro WIN se zabudovanym SSL najdes na:
http://www.modssl.org/contrib/
A funguje to.
> Ak niekto take nieco pouziva, dajte mi prosim vediet (staci linka...).
> Mozno by pomohlo aj nastavenie .conf suboru.
Na uvedene adrese jsou i soubory "apache-ssl-win32-howto"
, kde mas navod jak to cele rozbehat. ;-)
> A este: neviete ako ziskat klucovy par pre pouzitie SSL:
> Ja som pouzil www.verisign.com a ich trial key, ale ten funguje len
> 14dni a este ma aj stale otravuju ze kedy si kupim novy.
na testovani si muzes vyrobit par klicu sam pomoci utiit, ktere jsou v
distribucnim balicku pribalene. jak, to mas v tom navodu. tyto klice ale
nejsou certifikovany, ale to na testovani a ladeni vubec nevadi. az kdyz to
bude chtit zakaznik pouzivat naostro, tak si proste od nejake certifikacni
autority koupi pulrocni klice, ktere tam uz pak jen podstrcis. v cechach
tohle delat tusim ICA a KPNquest.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
IB: Domains jako parametr ve Stored procedure
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 13.2.2001 08:20:17
Ahoj,
Jan Naiser wrote:
>
> Preji pekny den,
> (IB6)
> da se pouzit typ promenne nadefinovane v Domains jako parametr Stored
> procedury? Pokud ano, tak jakym zpusobem? Kdyz pouziju napr.: toto:
>
> CREATE DOMAIN MONEY DECIMAL(15,4);
>
> CREATE PROCEDURE Celkem
> RETURNS (CENA MONEY) AS ...
>
> tak mi to rve na MONEY.
neda se to pouzit, musis pouzit standardni typy promennych
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Zpomalov�n� �asu na PC
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 13.2.2001 08:37:10
Zdravim,
mej jsem stejny problem, jen s tim rozdilem, ze mi hodiny obcas chodily
dozadu. vada byla v zakladove desce.
Pavel ZIDEK
----- Original Message -----
From: Martin Nedopil <nedopil(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 12:45 PM
Subject: Zpomalov�n� �asu na PC
> M�j probl�m se t�k� zpomalov�n� �asu na PC.
> Program b��� u klienta 24h/denn� 7dn�/t�den.
> St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
> cca 10min/den, ale je to r�zn�. R�zn� jsou i
> PC na kter�ch to b���, ale vesm�s P400 a v��e.
>
> M�j program m��e b��et i ve v�ce instanc�ch najednou,
> vyu��v� TTimer a kdy� b��� m��e ve �pi�ce zabrat
> i 100% CPU (ov�em m��eno Microsoft�mi m���ky) na
> dobu ne v�ce ne� cca 30sec. v intervalu �ekn�me co
> 10min. Program nevyu��v� ��dn� nedokumentovan� funkce,
> nepracuje s p�eru�en�mi, nic takov�ho. Jen ten TTimer.
> V jednom p��pad� pomohla v�m�na HW, ostatn� o tom
> necht�j� moc sly�et.
>
> M�te n�kdo podobnou zku�enost?
>
> Martin
>
>Reseni: Rezie retezcu a objektu?
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 13.2.2001 08:41:07
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > FXMLString := FXMLString + '<';
> > FXMLString := FXMLString + ElementName;
> > FXMLString := FXMLString + '/>';
> >
> > Coz mi pripadne jako
>
> Ahoj,
>
> to je opravdu nejak divne. Projevuje se to i v pripade, ze pridavas
stringy do
> promenne v jednom miste nebo to musi byt slozitejsi. Jak dlouhy je ten
string?
> Patrne dochazi k fragmentaci heapu, zkus pred pouzitim te promenne
nastavit
> predpokladanou delku pomoci SetLength.
Ja to zkousel, kdyz nastavim promennou pomoci SetLength, tak se to
jeste zpomali. Radove.
Radim
>
> Petr Vones, amatersky programator
>Zdrojov� k�dy
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 13.2.2001 08:43:21
Zde najdes odkazy snad vsude
http://www.kopr(tec)cz/w-delphi.htm
----- Original Message -----
From: Libor Jel�nek <ljelinek(zv)supreme(tec)cz>
To: DelphiForum <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:29 PM
Subject: Zdrojov� k�dy
> M��ete mi, pros�m, n�kdo d�t n�jak� tip na str�nku se zdroj�ky pro Delphi?
> Mysl�m n�jakou knihovnu uk�zkov�ch zdrojov�ch k�du program� a komponent,
> kter� mi poslou�� jako u�ebn� materi�l.
>
> S pozdravem
> Libor Jel�nek
>
> ICQ: 74575604
>
>FAXOVANI Z DELPHI
[*] BONNEL TECHNOLOGIE, v�voj <bonnel(zv)telecom(tec)cz> - 13.2.2001 08:56:19
Zalezi na tom, kolik chces investovat. Pokud to chces pro komercni aplikaci
(=zaplati se Ti to), pak vrele doporucuji AsyncPro od TurboPower software
(www.turbopower.com). Pouzivam jiz roky (sice ne faxovou cast) a jsem VELMI
spokojen.
Mira
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Heinisch Jiri
> Sent: Monday, February 12, 2001 11:24 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: FAXOVANI Z DELPHI
>
>
> Ahoj
>
>
> Existuje nejaky postup ci komponenta na zaslani tiskove sestavy na FAX
> napriklad na tiskarnu Microsoft Fax tak aby vytacene cislo bylo
> mozne zadat
> v
> primo v programu tim byl odstranen jakykoliv dialog s uzivatelem ?
>
> Jiri Heinisch
>
>RadioGroup bez ramika
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.2.2001 09:10:22
Ahoj,
mam dve otazky:
1. Da sa nejak zrusit ramik okolo komponenty RadioGroup?
2. Da sa enablovat/disablovat jeden RadioButton v ramci RadioGroup?
Za pripadnu pomoc vdaka.
Vlkovic
QUICKREPORT - obraz
[*] kinekus <kinekus(zv)nextra.sk> - 13.2.2001 09:52:42
W98,D4
Zdravim,
mam nasledujuci problem a prosim o radu.
Nacrtnem situaciu :
Tabulka obsahuje stlpce X1,X2,X3
Obsah stlpca X1,X2 je lubovolny retazec.
Obsah stlpca X3 nesie informaciu o nazve a umiestneni jpg suboru. (napr.
C:\Obraz\0001.jpg)
Probelem : Umiestnit X3 do quick reportu - ak tento report obsahuje 2 a viac
obrazov na jednej strane.
Pred casom som prosil o radu, ale odpoved som nedostal. Dufam, ze to niekto
riesil alebo vie ako na to.
Dakujem. Fabik
Domains jako parametr ve Stored procedure
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 13.2.2001 10:01:11
Ahoj
> (IB6)
> da se pouzit typ promenne nadefinovane v Domains jako parametr Stored
> procedury? Pokud ano, tak jakym zpusobem? Kdyz pouziju napr.: toto:
To bohuzel nejde. Taky bych to uvital.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
OT: Apache + SSL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.2.2001 10:17:36
Viz dokumentace k PNWS: http://pnws.pinknet(tec)cz/owncert.html
:)
>Ahoj.
>Viem ze ide o temu mierne mimo DELPHI (aj ked ja programujem CGI aplikaciu v
>DELPHI), ale ...
>
>Pouzivam Apache Web Server pod Windows NT (pre testovacie ucely - jednoduche
>pouzitie, mozem spustat na NT Workstation) a potreboval by som zohnat verziu
>ktora obsahuje SSL.
>Na www.apache.org a www.apache-ssl.org existuje sice patch na SSL ale vo
>forme zdrojakov a mne je proti srsti to kompilovat.
>Potrebujem binarne subory, to mi staci !
>
>Ak niekto take nieco pouziva, dajte mi prosim vediet (staci linka...).
>Mozno by pomohlo aj nastavenie .conf suboru.
>
>A este: neviete ako ziskat klucovy par pre pouzitie SSL:
>Ja som pouzil www.verisign.com a ich trial key, ale ten funguje len 14dni a
>este ma aj stale otravuju ze kedy si kupim novy.
>
>Poslal som im kluc v tvare:
>-----BEGIN NEW CERTIFICATE REQUEST-----
>poziadavka na kluc
>-----END NEW CERTIFICATE REQUEST-----
>
>Oni mi poslali:
>-----BEGIN CERTIFICATE-----
>kluc
>-----END CERTIFICATE-----
>
>Proste potrebujem SSL pre zakaznikov ktori potrebuju zabezpecit SSL
>komunikaciou osobne udaje (rodne cisla, ...) ale nie je to zase nic fatalne
>dolezite (bankova operacia, alebo podobne), takze urcite nebudu chciet
>investovat este aj do SSL kluca !
>
>Vdaka.
>janog(zv)pluto.elf.stuba.sk
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Velikost obrazku
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 13.2.2001 10:31:18
No zmenseni obrazku je nechutne jednoduche:
bmp:=TBitmap.Create;
//ja ho beru z kliboardu, ale ty si ho vezmi odkud chces :)
bmp.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
bmp2:=TBitmap.Create;
bmp2.Width:=100;
bmp2.Height:=100;
bmp2.Canvas.StretchDraw(rect(0,0,100,100),bmp);
bmp.Free;
//no a ted mam v BMP2 obrazek 100x100
bmp2.SaveToStream(mem);
bmp2.Free;
bmp.Free;
>-----P�vodn� zpr�va----- Od: Peter Luk�cs
>[SMTP:batex(zv)astrafren(tec)cz] Odesl�no: 12. II 2001
>16:31 Komu: delphi-l(zv)fwd(tec)cz P�edm�t: Velikost obrazku
>
> Cauko Delfini
>
> mam nasledujici problemek: delam si webovou kameru. Snimani
> obrazku, ukladani na server i vsechno ostatni funguje bezvadne. Ale: mam
> jen 64kB linku a obrazek velikosti a rozliseni, ve kterem ho mam, zabira
> zhruba 7 kB. To znamena pri kapacite 8kB/s je to skoro cela kapacita
> linky :(( No a pokud se jeste pripoji vice uzivatelu... no hruza. Navic,
> uzivatele s pomalym spojenim maji taktez problemy s rychlosti nacitani
> obrazku.. Jeztlize chci dodrezet 1-2 sekundove intervaly nacitani,
> chtelo by to nejak zmensit. Nejde ale pouzit nizsi stupen komprese
> jpegu, aby nedoslo ke strate kvality. Napadlo me zmenit velikost. Ale
> jak ? Da se nejak zmenit velikost bitmapy (nebo jpegu - to je jedno)
> treba v image ? Zkousel jsem nastavit parametry jpeg.Scale i
> jpeg.Format, ale bez vysleku. Nic to neudelalo. Dalsi zpusob, jak je
> mozno nastavit rozmery framu je nastavit to primo u grabovaneho obrazku.
> Umim otevrit dialog pro nastaveni ( SendMessage
> (cwnd, WM_CAP_DLG_VIDEOFORMAT, 2, 0); ), ale jak to udelat, abych to
> nastavil primo predanim nejakych parametru ? Jde to vubec ? Nemate s tim
> nekdo skusenosti ?
>
> Batex
>
S
pozdravem Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Resource a MediaPlayer
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 13.2.2001 10:50:07
From: "Tu�ek Roman (M# Praha 15)" <TucekR(zv)p15.mepnet(tec)cz>
> mam WAV v resourcech a nevim jak ho natlacit do mediaplayeru
> jde to vubec nejak ????
>
> Prip. jak prehrat WAV z resourcu necim jinym.......
Primo prehrat lze takto:
uses ..... MMSystem;
Nekde na zacatku (napr. FormCreate) si nacist resource:
var
hSound1: THandle;
lpSound1: pointer;
...
hSound1 := LoadResource(hInstance, FindResource(hInstance, 'SOUND1',
'WAVE'));
lpSound1 := LockResource(hSound1);
Jednorazove prehrati:
sndPlaySound(lpSound1, SND_ASYNC or SND_MEMORY)
Trvale hrani ve smycce napriklad takto:
zacatek:
sndPlaySound(lpSound1, SND_LOOP or SND_ASYNC or SND_MEMORY)
konec:
sndPlaySound(nil, 0);
A na konci (napr FormDestroy) uvolnit:
UnlockResource(hSound1);
FreeResource(hSound1);
Vaclav Krmela
MPlayer po prechodu z D3 na D5
[*] Mion <mion(zv)quick(tec)cz> - 13.2.2001 10:51:48
Nekolik mych aplikaci z D3 pouzivalo pro zvukova upozorneni standartni
komponentu mediaplayer na prehravani WAV souboru. Po prechodu na D5 to
prestalo soubory prehravat, i kdyz se to tvari, ze to dela, co ma.
Po opetnem zkompilovani pod D3 aplikace zacne opet hrat. Takze to
nehraje jen pod D5.
Nevite nekdo, v cem je problem?
Michal ONDREJ
RICHEDIT a SCALEBY
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 13.2.2001 11:04:30
Zdravim,
a pouzil jsi pismo, ktere by se umelo zvetsovat. TrueType to umi, ale nektera maji velikost dane, napr.: Courier.
Pavel ZIDEK
----- Original Message -----
From: Uniplet T�eb�� - elektronika
To: Delphi konference
Sent: Monday, February 12, 2001 2:04 PM
Subject: RICHEDIT a SCALEBY
Ahoj
potreboval bych nejakym zpusobem delat ve sve aplikaci neco jako ZOOM ( zvetsovani a zmensovani pohledu na text )
podle urcitych navolenych hodnot, proto jsem to skusil pres SCALEBY, vsechno bylo vporadku, pokud se v richeditu
nenachazelo pismo ruzne vysoke s ruznym fontem, v tu chvili se vsechno preplo do nejakeho standartniho fontu o
nejake vysce a cely dokument to rozhazelo, proto se chci zeptat, jestli jste uz nekdo resil neco podobneho, nebo
jestli nevite o nejakem zpusobu jak by to mohlo jit
Dik za pripadnou inspiraci
Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 13.2.2001 11:05:43
Zdravim,
uz se to tady probiralo,a le bez vysledku. Funguje nekomu pristup k
interbasi pres BDE s vyuzitim roli a langdriveru? Jde mi o klasicke
komponenty Data Access. Bde 5.01, parametr ROLE NAME zna, ale nefunguje to
spravne. Pres Isql vse funguje, jak ma, tedy role a prava jsou nastavena
spravne. Diky za kazde nasmerovani.
KER
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
Rezie retezcu a objektu?
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.2.2001 11:39:56
Nema nekdo nahodou porovnani LongStringu a ShortStringu na rychlost (scitani) ?
Slavek
> pokud se intenzivne manipuluje s long string retezci (prodluzovani,
> zkracovani) pak je nutne si uvedomit, ze takove operace muzou mit zanasledek
> realokaci stringa coz je znacne pomale. V takovych pripadech je nutne tuto
> cinost nejak optimalizovat (donutit string aby jeho predalokovana velikost
> mela dost velkou rezervu pro vsechna data..) Nekde na Internetu jsem videl
> specializovanou knihovnu na praci se stringy, ktera se chlubila eliminaci
> alokaci ..
>
>
> D. Toman
> DBGrid and KeyDown
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 13.2.2001 11:43:49
Tohe je cast programu, na kterem ted mimojine pracuji. Jede to pod IB6 ale
lze to prepsat i pro jine stroje. dulezite veci jsou az o neco nize. Dokaze
to hledat retezce podle klaves, ktere se prubezne zadavaji, lze urcit, zda
se ma vzdy hledat od zacatku databaze nebo od aktualni pozice, umi to taky
hledat od konce. Ja to provozuji s asi 8000 zaznamy a vyhledani zaznamu,
ktery je na konci trva cca. 1-2 vteriny.
if {( not ( ssShift in Shift)) and}
( not ( ssCtrl in Shift)) and
( not ( ssAlt in Shift)) then begin
{ FindRet := '';
FindOK := True;
tCharTimeOut.Enabled := False;}
case Key of
VK_INSERT : TiskSwitch;
VK_SPACE : TiskSwitch ( True);
VK_RETURN : DBGrid1DblClick ( nil);
VK_F2 : bAddRecClick ( nil);
VK_F10 : bSetupClick ( nil);
VK_F5 : bChangeClick ( nil);
VK_F4 : bFilterClick ( nil);
VK_F3 : bKatManClick ( nil);
end;
if (( Key in [ Ord ( 'a') .. Ord ( 'z'),
Ord ( 'A') .. Ord ( 'Z'),
Ord ( '0') .. Ord ( '9')]) or
( TestCZChar ( Key))) and
UseKeySearch
then begin
DrawToHintBox ( True);
tCharTimeOut.Enabled := False;
tCharTimeOut.Interval := CharTimeOut;
FindRet := FindRet + Chr ( Key);
DBOff;
try
// a := 0;
with tDealeri do begin
if Trim ( IndexName) <> '' then
ret := IndexName
{ else
if Trim ( IndexName) <> '' then
ret := Indexname
else
a := 3 div a};
FindOK := False;
Book ( True);
if not FindFromPos then
if Length ( FindRet) < 2 then
First;
Progress ( True, RecordCount);
FStart := RecNo;
if not FindFromPos or ( FindFromPos and FindToForward)
then begin
while not Eof do begin
SetProgress (a);
if Trim ( FieldByName ( ret).AsString) <> ''
then begin
if Pos ( FindRet, UpperCase ( FieldByName
ret).AsString)) = 1 then begin
DBGrid1.SelectedField := FieldByName
ret);
tCharTimeOut.Enabled := True;
FindOK := True;
break;
end else
Next;
end else
Next;
end;
end else
while not Bof do begin
SetProgress (a - FStart);
if Trim ( FieldByName ( ret).AsString) <> ''
then begin
if Pos ( FindRet, UpperCase ( FieldByName
ret).AsString)) = 1 then begin
DBGrid1.SelectedField := FieldByName
ret);
tCharTimeOut.Enabled := True;
FindOK := True;
break;
end else
Prior;
end else
Prior;
end;
Progress ( False, 0);
if not FindOK then begin
tCharTimeOut.Enabled := False;
FindRet := '';
DrawToHintBox ( False);
Book ( False);
end;
end;
finally
DBON;
end;
end;
end;
Tento kod neni kompletni, ale demostruje jak se to da udelat v cistem delphi
a zaroven aby to bylo rychle (myslim pri pouziti IB6 a TIBDataSet misto
TIBTable).
K otazce c.4. Ja mam v te databazi jeden sloupec, ktery se jmenuje TISK a je
to jeden znak. Tam pisu bud mezeru nebo tecku a pri vykreslovani oken
tabulky si jen prectu co tam je a podle toho tam vykreslim obrazek tiskarny
nebo ciste pozadi.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Dave FM <dave.fm(zv)atlas(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 10:38 PM
Subject: DBGrid and KeyDown
> Ahoj Delphici,
>
> potreboval bych poradit s odchytavanim klaves. U komponenty TRXDbGrid nebo
> TDBGrid (vyjde to nastejno) mam event onKeyDown vytvoreno odchytavani
> klaves, tzn. Kdyz uzivatel klikne na klavesu tak se prenese do TEdit a tam
> na je potom event na zmenu, ze se skoci na zaznam v tabulce (Locate)
> odpovidajici obsahu TEdit. Jde to vsechno OK az na to ze to jde dost
pomalu
> jellikoz tabulka obsahuje 15000 zaznamu.
> 1. dotaz jde to zrychlit (pouzivam IB, a Data Access s BDE) v�m nen� to
> nejidealnejs� - doporucte leps�
> 2. pohyb kurzorov�mi klavesami po DBGridu je pak pomale s t�m
odchytavan�m.
> 3. Nav�c pot�ebuji odchyt�vat i jinou kl�vesu na select a deselect �adku
> tabulky a na to dotaz cislo 4.
> 4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl
vytisknout
> jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na ten
> sloupec je to vyhodne nebo to udelat pres nejake pole ??)
>
> Diky za tyto odpovedi
>
> David
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.02.01
RadioGroup bez ramika
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 13.2.2001 11:44:38
Koukni se na RXComponenty,
je tam RXCheckListBox, ktery umi byt i RadioBox a umi ledacos.
Lze tam predem nastavit stav jednotlivych Items, tj. Checked, Enabled...
Michal Tiller
-----Original Message-----
From: Peter Vlkovic [mailto:vlkovic(zv)minv.sk]
Sent: Tuesday, February 13, 2001 9:10 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RadioGroup bez ramika
Ahoj,
mam dve otazky:
1. Da sa nejak zrusit ramik okolo komponenty RadioGroup?
2. Da sa enablovat/disablovat jeden RadioButton v ramci RadioGroup?
Za pripadnu pomoc vdaka.
Vlkovic
Domains jako parametr ve Stored procedure
[*] rado(zv)nnsk.sk - 13.2.2001 11:56:03
> da se pouzit typ promenne nadefinovane v Domains jako parametr Stored
> procedury? Pokud ano, tak jakym zpusobem? Kdyz pouziju napr.: toto:
Priamo nie. Kdesi na ibliste som cital diskusiu, ze sa do da nejako
obist - tusim ze cez alter procedure (nepamatam sa presne).
Princip je myslim v tom, ze parametre procedur sa ukladaju do systemovych
tabuliek (RDB$PROCEDURE_PARAMETERS) podobnym sposobom, ako fieldy
tabuliek. Kedze je mozne zmenit typ fieldu (aj na domenu), mal by
sa dat zmenit aj typ parametra procedury - na domenu.
Pravdupovediac, nevidim velky prakticky zmysel a osobne by som
sa do toho nepustal - struktura systemovych tabuliek sa moze zmenit.
HTH,
bego
Resource a MediaPlayer
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 13.2.2001 12:01:09
PlaySound ( 'S1', HInstance, SND_RESOURCE or SND_ASYNC or SND_NOSTOP).
kde S1 je oznaceni toho WAV souboru v resource.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Tu�ek Roman (M# Praha 15) <TucekR(zv)p15.mepnet(tec)cz>
To: LIST delphi-l(zv)fwd. cz (el. adresa) <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 13, 2001 8:03 AM
Subject: Resource a MediaPlayer
> Mel bych jeden dotazek
>
> mam WAV v resourcech a nevim jak ho natlacit do mediaplayeru
> jde to vubec nejak ????
>
> Prip. jak prehrat WAV z resourcu necim jinym.......
>
>
> Tucek
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.02.01
Resource a MediaPlayer II
[*] Tu�ek Roman (M� Praha 15) - 13.2.2001 12:04:05
Hmmm tak uz to hraje pomoci PlaySound (jen mi to vzdy ztuhne :-D )
ale problem je jinde
chtel bych to prehravat pomoci MediaPLayeru abych nad tim mel kontrolu kde
to je jestli to uz nehraje apod...
jde to vubec nejak ???
Tucek
DivByZero a INF
[*] Marek Soukup <msoukup(zv)btt(tec)cz> - 13.2.2001 12:12:25
Haj hou,
uz to tady jednou probihalo. Vysledkem deleni nulou za urcitych podminek
neni vyjimka, ale nekonecno. Udelal jsem tedy do sve aplikace test na
vysledek a patricne jsem zareagoval.
Bohuzel se potom stalo, ze stejny exe, ktery me funguje bez problemu, na
jinym pocitaci vyvolalo vyjimku.
Podle ceho se urcuje co se stane ? Opravdu musim v aplikaci resit obe
situace ?
S pozdravem
Marek Soukup
Service packy pro NT
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.2.2001 12:29:44
Ahoj,
nevite nekdo nahodou, cim se lisily SP3 a SP4 pro NT4? Resp.
pokud pobezi nejaka moje aplikace napsana z D4 na NT4SP3,
jake mohu cekat problemy (pokud mozno konkretni)? Prijimam
jakekoli zkusenosti.
Dik.
David Lebeda
Velikost obrazku
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 13.2.2001 12:34:13
Ahoj,
na zmenseni obrazku se da pouzit nejaka varianta se stretchdraw, ale
vysledek je vetsinou osklive zubaty. Lepe vychazi pouzit pro zmenseni
bilinearni transformaci (je napr. ve FastLib). Urcite nejlepsi je
obrazek grabovat rovnou v pozadovanem rozliseni. Nastavit to bez
vyvolani dialogu neumim, ale to nastaveni by se melo ulozit, takze pri
dalsim spusteni by to melo byt rovnou spravne.
Vaclav Sazima
Peter Luk�cs wrote:
>
> Cauko Delfini
>
> mam nasledujici problemek: delam si webovou kameru. Snimani obrazku,
> ukladani na server i vsechno ostatni funguje bezvadne. Ale: mam jen 64kB
> linku a obrazek velikosti a rozliseni, ve kterem ho mam, zabira zhruba 7 kB.
> To znamena pri kapacite 8kB/s je to skoro cela kapacita linky :(( No a pokud
> se jeste pripoji vice uzivatelu... no hruza. Navic, uzivatele s pomalym
> spojenim maji taktez problemy s rychlosti nacitani obrazku.. Jeztlize chci
> dodrezet 1-2 sekundove intervaly nacitani, chtelo by to nejak zmensit. Nejde
> ale pouzit nizsi stupen komprese jpegu, aby nedoslo ke strate kvality.
> Napadlo me zmenit velikost. Ale jak ? Da se nejak zmenit velikost bitmapy
> (nebo jpegu - to je jedno) treba v image ? Zkousel jsem nastavit parametry
> jpeg.Scale i jpeg.Format, ale bez vysleku. Nic to neudelalo. Dalsi zpusob,
> jak je mozno nastavit rozmery framu je nastavit to primo u grabovaneho
> obrazku. Umim otevrit dialog pro nastaveni ( SendMessage (cwnd,
> WM_CAP_DLG_VIDEOFORMAT, 2, 0); ), ale jak to udelat, abych to nastavil primo
> predanim nejakych parametru ? Jde to vubec ? Nemate s tim nekdo skusenosti ?
>
> Batex
Rezie retezcu a objektu?
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 13.2.2001 12:34:27
Ahoj,
v casopise Connect 2/2001 je clanok o operaciach s retazcami - Regular
Expressions. Neskusal som to, len cital. Vraj existuje objekt RegExp, ktory
poskytuje rozne metody na pracu s retazcami. Viac na
http://msdn.microsoft.com/scripting/vbscript/doc/reconIntroductionToRegularE
xpressions.htm
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 13, 2001 7:44 AM
Subject: Re: Rezie retezcu a objektu?>
> ----- Original Message -----
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, February 12, 2001 8:34 PM
> Subject: Rezie retezcu a objektu?
>
> > Preji vsem pekneho dne,
> >
> > mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> > jeho metody pricte k privatni promenne typu string retezec zadany
> > jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> > tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> > casu?
> >
> pokud se intenzivne manipuluje s long string retezci (prodluzovani,
> zkracovani) pak je nutne si uvedomit, ze takove operace muzou mit
zanasledek
> realokaci stringa coz je znacne pomale. V takovych pripadech je nutne tuto
> cinost nejak optimalizovat (donutit string aby jeho predalokovana velikost
> mela dost velkou rezervu pro vsechna data..) Nekde na Internetu jsem videl
> specializovanou knihovnu na praci se stringy, ktera se chlubila eliminaci
> alokaci ..
>
> D. Toman
>OT: DBF a ODBC
[*] Doller.Jozef(zv)zsr.sk - 13.2.2001 12:35:58
Ahoj
Ospravedlnujem za takuto primitivnu otazku, ale som zaciatocnik ...
(zelenac, drevo ap.)
Ako nastavit ODBC driver pre *.dbf
Ked nan chcem ist Delphi alebo SQL exploreru , vypyta heslo a potom zamrzne
Je nastavene nejake default meno a heslo
Vdaka za pomoc
Doller.SendKeys
[*] tomsir1.edu(zv)mail.cez(tec)cz - 13.2.2001 12:48:46
hm, podle me by to slo pomoci messages, bez importovani WMP
Radegast
Petr Ha#lar <rincewind(zv)volny(tec)cz>(zv)fwd(tec)cz on 12.02.2001 23:06:38
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Odesl�no k�m: owner-delphi-l(zv)fwd(tec)cz
Komu: <delphi-l(zv)fwd(tec)cz>
Kopie:
P�edm�t: Re: SendKeys
Hmm, kdybych ale tak vedel jak to udelat ... :-(
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, February 11, 2001 7:40 PM
Subject: Re: SendKeys
> From: "Petr Ha#lar" <rincewind(zv)volny(tec)cz>
> > Ahoj, neda se zaridit, aby muj program 'poslal' bezici aplikaci stisk
> > nekolika klaves (Alt+Enter)? (potrebuju spustit WMP 6.4 ve fullscreen
> > rezimu)
>
> Ahoj,
>
> a neslo by to resit tak, ze si naimportujes WMP jako ActiveX do Delphi a
pak
> si jej ovladas dle potreby. Je tam i property FullScreen.
>
> Petr Vones, amatersky programator
>
>Service packy pro NT
[*] Ren� Otisk - 13.2.2001 13:02:17
Urcite by ti nemel chodit MS SQL server pouze se SP3 (ten vyzaduje pri
instalaci SP4), ale na http://support.microsoft.com by snad mel byt popis
jednotlivych service packu...
Sroub
> Ahoj,
>
> nevite nekdo nahodou, cim se lisily SP3 a SP4 pro NT4? Resp.
> pokud pobezi nejaka moje aplikace napsana z D4 na NT4SP3,
> jake mohu cekat problemy (pokud mozno konkretni)? Prijimam
> jakekoli zkusenosti.
>
> Dik.
>
> David Lebeda
DivByZero a INF
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.2.2001 13:20:36
Urcite by to malo byt osetrene. Je vseobecne zname ze procesory AMD maju
chybu vo vypoctoch s pohyblivou ciarkou a muzu tak reagovat inak nez
procesory Intel a podobne.
Najkepsim riesenim asi neni nechat vyhodit vynimku pri vypocte ale ak ide o
deleni nulou vobec delenie neprevadzat a vyhodit vynimku, ze sa jedna o zle
zadanie alebo tak nejak (zalezi na tom co riesis).
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> uz to tady jednou probihalo. Vysledkem deleni nulou za urcitych podminek
> neni vyjimka, ale nekonecno. Udelal jsem tedy do sve aplikace test na
> vysledek a patricne jsem zareagoval.
> Bohuzel se potom stalo, ze stejny exe, ktery me funguje bez problemu, na
> jinym pocitaci vyvolalo vyjimku.
>
> Podle ceho se urcuje co se stane ? Opravdu musim v aplikaci resit obe
> situace ?
MS SQL7 a spojeni blobu v Stored Proc
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 13.2.2001 13:21:07
Jeste jedno male doplneni.
(zv)(zv)ERROR je naplnen pouze informaci o poslednim prikazu.
"IF (zv)(zv)ERROR <> 0" zpusobi, ze se (zv)(zv)ERROR nastavi na 0.
Takze RETURN((zv)(zv)ERROR) je v uvedenem pripade rovne volani RETURN(0).
S pozdravem, Lada
> ...
> IF (zv)(zv)ERROR <> 0
> BEGIN
> ROLLBACK
> RETURN((zv)(zv)ERROR)
> END
> ...
> Sroub
DBF a ODBC
[*] Ren� Otisk - 13.2.2001 13:40:37
Jestli si dobre vzpominam tak Username je ADMIN a heslo je prazdne
Sroub
> Ahoj
> Ospravedlnujem za takuto primitivnu otazku, ale som zaciatocnik ...
> (zelenac, drevo ap.)
>
> Ako nastavit ODBC driver pre *.dbf
> Ked nan chcem ist Delphi alebo SQL exploreru , vypyta heslo a potom
zamrzne
> Je nastavene nejake default meno a heslo
>
> Vdaka za pomoc
>
> Doller.QUICKREPORT - obraz
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 13.2.2001 13:48:50
Moc nerozumiem v com je problem - ako to suvisi s poctom obrazkov.
JPG sa normalne natiahne v runtime (na nejeky udalost najlepsie
BeforePrintBand) a umiestnis ho na nejaky image.
V com je problem?
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.host.sk/tungli/
> -----P�vodn� zpr�va-----
> Od: kinekus [SMTP:kinekus(zv)nextra.sk]
> Odesl�no: 13. febru�r 2001 9:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: QUICKREPORT - obraz
>
> W98,D4
>
> Zdravim,
>
> mam nasledujuci problem a prosim o radu.
>
> Nacrtnem situaciu :
> Tabulka obsahuje stlpce X1,X2,X3
> Obsah stlpca X1,X2 je lubovolny retazec.
> Obsah stlpca X3 nesie informaciu o nazve a umiestneni jpg suboru. (napr.
> C:\Obraz\0001.jpg)
>
> Probelem : Umiestnit X3 do quick reportu - ak tento report obsahuje 2 a
> viac
> obrazov na jednej strane.
>
> Pred casom som prosil o radu, ale odpoved som nedostal. Dufam, ze to
> niekto
> riesil alebo vie ako na to.
>
> Dakujem. Fabik
Rozliseni tiskarny
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.2.2001 14:11:16
Preji vsme pekneho dne,
necha se zjistit rozliseni aktualni tiskarny jinak nez nize uvedenym
kodem? Nektere ovladace tiskaren vyvolaji nejaky dialog, ktery je
na nic. (omlouvam se za C++ Builder zapis, ale nemel by vadit)
Printer()->BeginDoc();
PixelsPerInchX = GetDeviceCaps(Printer()->Canvas->Handle,
LOGPIXELSX);
FPixelsPerInchY = GetDeviceCaps(Printer()->Canvas->Handle,
LOGPIXELSY);
FPageWidth = (Printer()->PageWidth * FPixelsPerInchXscr) /
FPixelsPerInchX;
FPageHeight = (Printer()->PageHeight * FPixelsPerInchYscr) /
FPixelsPerInchY;
Printer()->Abort();
Pokud nepouziji BeginDoc, Abort, ziskam spatne hodnoty.
Diky za pripadne odpovedi
Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Klavesova skratka - zachytenie obsluhy
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.2.2001 14:40:36
Ahoj,
potrebujem pomoct s jednym problemom:
mam TEdit, v ktorom editujem text.
Pri odchode z neho volam obsluhu OnExit, kde vykonavam
nejaku kontrolu (napr. existenciu zadaneho mena suboru).
Tuto obsluhu by som vsak chcel zavolat aj pri aktivacii
nejakeho ineho controlu (napr. tlacitka) prostrednictvom
klavesovej skratky a podla vysledku kontroly zabranit
obsluhe tohto ineho controlu.
Je taketo nieco v Delphi mozne?
T.j. existuje nejaka moznost zachytit vstup do obsluhy
nejakeho controlu este pred jej zavolanim?
Ako by som to mohol riesit?
Vdaka za pripadnu pomoc.
Vlkovic
MS Platform SDK
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 13.2.2001 14:54:08
Ma negdo zkusenosti s instalaci %SUBJ% z ftp.microsoft.com???
Chci si tu instalaci stahnout. Mam stahovat jenom psdk-x86.XX.cab nebo i
psdk-common.XX.cab??? Mam Windows98. Predem dik
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/OT: Obsluha serioveho portu v BP7 nebo v C
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 13.2.2001 15:01:38
Co si pamatuju, tak tam byl jeden takovej figl, kterej prej nebyl ve
vetsine dokumentace uveden. Slo o nastaveni nejakeho bit v UARTu ...
Tak sem se ted dival a je to bit OUT2 - musi byt nastaven na log.1
je na adrese 3FCh (pokud je COM 3F8h) jako 3. bit
Je totiz priveden na vyvod povoleni preruseni a standartne je nastaven
na log.0 - preruseni zakazano. Takze to neprerusuje ... :-(
Snad to pomuze.
Josef wrote:
>
> Omlouvam se za OT ale nemate nekdo subj ?
> Jedna se mi hlavne o preruseni, bez podpory preruseni mi to chodi ale nikdy se mi nevyvola preruseni.
>
> Diky Josef.
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/Rezie retezcu a objektu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 15:03:35
From: "Slavomir Skopalik" <skopalik(zv)atlas(tec)cz>
> Nema nekdo nahodou porovnani LongStringu a ShortStringu na rychlost
Ahoj,
o ShortStringu vubec neuvazuj. Pokud chces maximalni rychlost tak alokuj
predpokladanou velikost stringu pomoci SetLength a pak k nemu pristupuj jako
k retezci ukoncenemu nulou. Operace se stringy jsou totiz v Delphi thread safe
coz je mirne zpomaluje. Navic lze vyuzit napriklad i TMemoryStream apod.
Petr Vones, amatersky programator
MPlayer po prechodu z D3 na D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 15:05:14
From: "Mion" <mion(zv)quick(tec)cz>
> Nekolik mych aplikaci z D3 pouzivalo pro zvukova upozorneni standartni
> komponentu mediaplayer na prehravani WAV souboru. Po prechodu na D5 to
> prestalo soubory prehravat, i kdyz se to tvari, ze to dela, co ma.
Ahoj,
u si to nepamatuju, ale tusim ze problem byl s vlastnosti DeviceType, zkus ji
nastavit ja dtAutoSelect pokud tomu tak neni.
Petr Vones, amatersky programator
Velikost obrazku
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 13.2.2001 15:06:10
Ak zmensujes obrazok tak muzes ubrat na kvalite JPEG-u.
Ale neviem ci to je dobra cesta. Asi este je take nieco pre nas luxus. Nie?
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.host.sk/tungli/
> -----P�vodn� zpr�va-----
> Od: Peter Luk�cs [SMTP:batex(zv)astrafren(tec)cz]
> Odesl�no: 12. febru�r 2001 16:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Velikost obrazku
>
> Cauko Delfini
>
> mam nasledujici problemek: delam si webovou kameru. Snimani obrazku,
> ukladani na server i vsechno ostatni funguje bezvadne. Ale: mam jen 64kB
> linku a obrazek velikosti a rozliseni, ve kterem ho mam, zabira zhruba 7
> kB.
> To znamena pri kapacite 8kB/s je to skoro cela kapacita linky :(( No a
> pokud
> se jeste pripoji vice uzivatelu... no hruza. Navic, uzivatele s pomalym
> spojenim maji taktez problemy s rychlosti nacitani obrazku.. Jeztlize chci
> dodrezet 1-2 sekundove intervaly nacitani, chtelo by to nejak zmensit.
> Nejde
> ale pouzit nizsi stupen komprese jpegu, aby nedoslo ke strate kvality.
> Napadlo me zmenit velikost. Ale jak ? Da se nejak zmenit velikost bitmapy
> (nebo jpegu - to je jedno) treba v image ? Zkousel jsem nastavit parametry
> jpeg.Scale i jpeg.Format, ale bez vysleku. Nic to neudelalo. Dalsi zpusob,
> jak je mozno nastavit rozmery framu je nastavit to primo u grabovaneho
> obrazku. Umim otevrit dialog pro nastaveni ( SendMessage (cwnd,
> WM_CAP_DLG_VIDEOFORMAT, 2, 0); ), ale jak to udelat, abych to nastavil
> primo
> predanim nejakych parametru ? Jde to vubec ? Nemate s tim nekdo skusenosti
> ?
>
> Batex
> Rezie retezcu a objektu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 15:07:28
> mela dost velkou rezervu pro vsechna data..) Nekde na Internetu jsem videl
> specializovanou knihovnu na praci se stringy, ktera se chlubila eliminaci
Ahoj,
dobra stranka ohledne optimalizace v Delphi je: http://www.optimalcode.com
Petr Vones, amatersky programator
DivByZero a INF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 15:10:47
From: "Marek Soukup" <msoukup(zv)btt(tec)cz>
> uz to tady jednou probihalo. Vysledkem deleni nulou za urcitych podminek
> neni vyjimka, ale nekonecno. Udelal jsem tedy do sve aplikace test na
> vysledek a patricne jsem zareagoval.
> Bohuzel se potom stalo, ze stejny exe, ktery me funguje bez problemu, na
> jinym pocitaci vyvolalo vyjimku.
Ahoj,
zkus patricne nastavit FPU flag - Set8087CW.
Petr Vones, amatersky programator
Rozliseni tiskarny
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.2.2001 15:15:25
Ahoj,
ja v D5 pouzivam
PrnDC := Printer.Handle; // device context
....
....
DPI.x := GetDeviceCaps(PrnDC, LogPixelsX);
DPI.y := GetDeviceCaps(PrnDC, LogPixelsY);
a vraci mi to spravne hodnoty (zkousel jsem to na par tiskarnach - HP,
Minolta, i na Star LC-20). Zkus vypustit Canvas, melo by to chodit, pokud
mas alespon jednu tiskarnu jako Default.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Slavek Rydval
> Odesl�no: 13. �nora 2001 14:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Rozliseni tiskarny
>
>
> Preji vsme pekneho dne,
>
> necha se zjistit rozliseni aktualni tiskarny jinak nez nize uvedenym
> kodem? Nektere ovladace tiskaren vyvolaji nejaky dialog, ktery je
> na nic. (omlouvam se za C++ Builder zapis, ale nemel by vadit)
>
> Printer()->BeginDoc();
> PixelsPerInchX = GetDeviceCaps(Printer()->Canvas->Handle,
> LOGPIXELSX);
> FPixelsPerInchY = GetDeviceCaps(Printer()->Canvas->Handle,
> LOGPIXELSY);
> FPageWidth = (Printer()->PageWidth * FPixelsPerInchXscr) /
> FPixelsPerInchX;
> FPageHeight = (Printer()->PageHeight * FPixelsPerInchYscr) /
> FPixelsPerInchY;
> Printer()->Abort();
>
> Pokud nepouziji BeginDoc, Abort, ziskam spatne hodnoty.
>
> Diky za pripadne odpovedi
>
> Slavek
>
>
> Setrete vodou. Sprchujte se s pritelem/pritelkyni.
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> http://swnet(tec)cz
> -------------------------------------------------
>
Velikost obrazku
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 13.2.2001 15:27:01
Ahoj,
> obrazek grabovat rovnou v pozadovanem rozliseni. Nastavit to bez
> vyvolani dialogu neumim, ale to nastaveni by se melo ulozit, takze pri
> dalsim spusteni by to melo byt rovnou spravne.
To je sice pravda ze se nastaveni ulozi, ale ja to rozliseni potrebuji menit
za chodu. Prozatim jsem pouzil StrecDraw a myslim, ze to staci. Snizeni
velikosti souboru jsem dosahl a to je hlavni :) Diky
Batex
Rezie retezcu a objektu?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.2.2001 15:34:29
Ahoj,
ShortString me opravdu omezuje, zvlaste ma-li mit vysledny
retezec i 2 MB. :-) Diky drive uvedenemu reseni jsem presel z
nekolikaminutoveho generovani stringu na parsekundovy.
Slavek
> > Nema nekdo nahodou porovnani LongStringu a ShortStringu na rychlost
>
> Ahoj,
>
> o ShortStringu vubec neuvazuj. Pokud chces maximalni rychlost tak alokuj
> predpokladanou velikost stringu pomoci SetLength a pak k nemu pristupuj jako
> k retezci ukoncenemu nulou. Operace se stringy jsou totiz v Delphi thread safe
> coz je mirne zpomaluje. Navic lze vyuzit napriklad i TMemoryStream apod.
>
> Petr Vones, amatersky programator
>
>
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
DATA Z KONFERENCE ZA LEDEN 2001
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.2.2001 15:46:05
Preji vsem pekneho dne,
data pro KonfView z teto konferece za Leden 2001 jsou opet na
adrese:
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Slavek
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
K cemu jsou Dependencies?
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 13.2.2001 15:58:50
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.
Dobry den,
D5 ent., IB6, NT4 sp5,
obcas mi tabulka Dependecies dost zneprijemnuje zivot. Asi to znate.
Co se stane, pokud tuto tabulku vyprazdnim?
Diky moc, Michal Tiller
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
QUICKREPORT - obraz
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.2.2001 16:43:27
Pouzivam na tisky PHP skript a pak HTML Layout, tam by to nebyl problem.
Slavek
> W98,D4
>
> Zdravim,
>
> mam nasledujuci problem a prosim o radu.
>
> Nacrtnem situaciu :
> Tabulka obsahuje stlpce X1,X2,X3
> Obsah stlpca X1,X2 je lubovolny retazec.
> Obsah stlpca X3 nesie informaciu o nazve a umiestneni jpg suboru. (napr.
> C:\Obraz\0001.jpg)
>
> Probelem : Umiestnit X3 do quick reportu - ak tento report obsahuje 2 a viac
> obrazov na jednej strane.
>Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.2.2001 16:48:55
Testovano z IB5.6, funguje dobre.
Jen je treba proves update na BDE5.11 (tusim).
Tedy, bezi mi takto dve aplikace jiz pres rok.
Slavek
>
> Zdravim,
> uz se to tady probiralo,a le bez vysledku. Funguje nekomu pristup k
> interbasi pres BDE s vyuzitim roli a langdriveru? Jde mi o klasicke
> komponenty Data Access. Bde 5.01, parametr ROLE NAME zna, ale nefunguje to
> spravne. Pres Isql vse funguje, jak ma, tedy role a prava jsou nastavena
> spravne. Diky za kazde nasmerovani.DivByZero a INF
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.2.2001 16:52:53
> > uz to tady jednou probihalo. Vysledkem deleni nulou za urcitych
> > podminek neni vyjimka, ale nekonecno.
>
> zkus patricne nastavit FPU flag - Set8087CW.
> Petr Vones, amatersky programator
Na mem pocitaci s Win98 pak zase obcas neni vysledkem ani vyjimka,
ani nekonecno, ale modra smrt Windows, coz je neprijemne hlavne
proto, ze k tomu deleni dochazi v graficke knihovne Intelu (IPL), kde
to predem tezko nejak osetrim. Dokonce i primitivni programek typu
var a,b:extended;
{... nejake vypocty, po kterych je v promenne B 0... }
try
a:=a/b;
except
{...}
end;
pak je nasilne ukoncen, k vyjimce nedojde. Muze tady take pomoci
laborovani s Set8087CW? Na jinych pocitacich totez vyvola vyjimku.
Karel Rys
DivByZero a INF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2001 17:04:32
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> pak je nasilne ukoncen, k vyjimce nedojde. Muze tady take pomoci
> laborovani s Set8087CW? Na jinych pocitacich totez vyvola vyjimku.
Ahoj,
a cim se ten pocitac lisi od ostatnich (typ procesoru, operacni system atd.) ?
Petr Vones, amatersky programator
Struktura souboru paradox
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 13.2.2001 17:08:23
Ahoj,
From: Pavel Malinsk <spiderland(zv)iol(tec)cz>
> nevite, prosim, kde sehnat %SUBJ%. Nejak se mi to nedari.
na Internetu jsou web stranky s popisy struktur snad vsech souboru,
bohuzel nemohu najit adresu.
Ja ten popis struktrury mam a mohu pripadne zaslat.
Jarek Uher
zasifrovani
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 13.2.2001 17:14:29
docela zajimavy, ale musel bys ty znaky, ktery sifrujes, mit jenom z
rozsahu #10-#99 ... kdyby ti tam prisel nejakej jinej, tak bys to z toho
ciselnyho tvaru uz zpatky nedal dohromady ...
Jan Tungli wrote:
>
> Mas velmi vela moznosti. Ja ti jeden primitini popisen:
> 1.Preved znaky na cisla - a daj do stringu.
> 2. Otoc string
> 3. Ku kazdej cislici prirad nejaky znak
>
> Priklad:
> ABC
> 646566
> 665646
> 1=A 2=B 3=C 4=D 5=E 6=F 7=G atd.
> Vysledok: FFEFDF
>
>
> Jan Tungli
> email: jan.tungli(zv)seznam(tec)cz
> tungli(zv)datapac.sk
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/komunikacia s elektronickou pokladnou CP780Plus od
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 13.2.2001 17:15:40
Ahojte delfini a delfinky ;-),
hladam nejaky material, domovskej stranky som sa nedopatral. Snazim sa
vysiesit problem s %subj% ale marne :-( Je to dost surne, dokaze mi niekto v
tomto pomoct? Velmi mu budem povdacny za kazdy napad, studijny material,
linky, kusok kodu, atd... kde by som sa o tom dozvedel viac,
Diky,
Jano
zasifrovani
[*] Jan Nov�k <megamax(zv)seznam(tec)cz> - 13.2.2001 17:47:11
[P��loha v souboru: coder.zip]
Ned�vno jsem �e#il podobn� probl�m a v�sledkem byla tahle komponeta. Zkus a
uvidi#.
Jan Novak
----- Original Message -----
From: "Jan Tungli" <Jan.Tungli(zv)datapac.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 6:57 PM
Subject: RE: zasifrovani
> Mas velmi vela moznosti. Ja ti jeden primitini popisen:
> 1.Preved znaky na cisla - a daj do stringu.
> 2. Otoc string
> 3. Ku kazdej cislici prirad nejaky znak
>
> Priklad:
> ABC
> 646566
> 665646
> 1=A 2=B 3=C 4=D 5=E 6=F 7=G atd.
> Vysledok: FFEFDF
>
>
> Jan Tungli
> email: jan.tungli(zv)seznam(tec)cz
> tungli(zv)datapac.sk
> http://www.host.sk/tungli/
>
> > -----P�vodn� zpr�va-----
> > Od: Milan #ݿek [SMTP:Cizek.Milan(zv)seznam(tec)cz]
> > Odesl�no: 9. febru�r 2001 10:03
> > Komu: Konference Delphi
> > P�edm�t: zasifrovani
> >
> > ahoj,
> > potreboval bych 2funkce (encode/decode), ktere by dokazali zasifrovat
> > retezec. Potrebuju ale, aby ten zasifrovany string obsahoval pouze znaky
> > 0..9,A..Z,a..z - a zadne jine jako (zv)#$%^&*(... Jde oto, aby to bylo co
> > nejjednodusii, ale zaroven pokud mozno aspon 'trochu' bezpecne. Koukal
> > jsem se na free komponenty na sifrovani, to je ale vsecho tak slozity
> > (myslim pro me).
> >
> > Diky
> >
> > S pozdrave Milan Cizek
> > _____________________________________________________________________
> > Jake bude pocasi? http://pocasi.seznam(tec)cz
>
Rezie retezcu a objektu?
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.2.2001 18:17:10
ShortStringy pouzivam pro jejich jednoduchost.
Tedy hlavne ve recordech, tady je prace s long stringy
ponekud pracnejsi.
Slavek
>
> From: "Slavomir Skopalik" <skopalik(zv)atlas(tec)cz>
> > Nema nekdo nahodou porovnani LongStringu a ShortStringu na rychlost
>
> Ahoj,
>
> o ShortStringu vubec neuvazuj. Pokud chces maximalni rychlost tak alokuj
> predpokladanou velikost stringu pomoci SetLength a pak k nemu pristupuj jako
> k retezci ukoncenemu nulou. Operace se stringy jsou totiz v Delphi thread safe
> coz je mirne zpomaluje. Navic lze vyuzit napriklad i TMemoryStream apod.
>
> Petr Vones, amatersky programator
> Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 13.2.2001 20:29:22
update na toto bde mam ... nepomaha to ...
----- Puvodn� zpr�va -----
Od: "Slavomir Skopalik" <skopalik(zv)atlas(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. �nora 2001 16:48
Predmet: RE: Interbase 6.0, Delphi 5 Proff a ROLE NAME
> Testovano z IB5.6, funguje dobre.
> Jen je treba proves update na BDE5.11 (tusim).
> Tedy, bezi mi takto dve aplikace jiz pres rok.
>
> Slavek
> >
> > Zdravim,
> > uz se to tady probiralo,a le bez vysledku. Funguje nekomu pristup k
> > interbasi pres BDE s vyuzitim roli a langdriveru? Jde mi o klasicke
> > komponenty Data Access. Bde 5.01, parametr ROLE NAME zna, ale nefunguje
to
> > spravne. Pres Isql vse funguje, jak ma, tedy role a prava jsou nastavena
> > spravne. Diky za kazde nasmerovani.
>
>Kopirovani do vice adresaru pomoci ShellAPI (TSHFi
[*] Ivo =?iso-8859-2?Q?Karko=B9ka?= <ivo.karkoska(zv)accubatt.ktv-ova(tec)cz> - 13.2.2001 20:32:26
Zdravim vsechny v konferenci.
Delsi dobu jsem hledal, jak kopirovat soubory. CopyFile se ukazal jako
nepouzitelny a tak jsem to zkusil s API. V nasledujicim prikladu jsem
schopen zkopirovat prakticky jakykoli soubor do adresare "bbb" a to i z
nekolika ruznych adresaru. To v cem ale tkvi podstata meho problemu je,
ze nemuzu prijit na to, jak kopirovat soubory DO nekolika adresaru
najednou. Ve chvli kdy zkusim stejne parametry (davku) jako u "pFrom"
program nahlasi, ze soubor existuje a tudiz nelze zapsat. Nechci tento
problem resit opakovanim stejne rutiny. Neexistuje na to kopirovani do
nekolika adresaru nejaky parametr ?
Ivo Karkoska
-------------------------------------------------
uses ShellAPI
var
FileOp: TSHFileOpStruct;
begin
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom := 'C:\aaa\*.*'#0 + 'C:\ddd\*.*'#0#0;
pTo := 'C:\bbb\'#0#0;
fFlags := FOF_SILENT;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Error');
if (SHFileOperation(FileOp) = 0) then
StatusBar1.Panels[0].Text:='Cek�m';
end;
Trojuhelnikova sit
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 13.2.2001 20:36:16
Ahoj,
nevite nekdo o algoritmu pro generovani trojuhelnikove site?
Potrebuju znazornit kousek terenu.
Miroslav Novosad
mirnov(zv)atlas(tec)cz
LCD s radicem HD44780
[*] Pavel Simek <kejchal(zv)volny(tec)cz> - 13.2.2001 22:06:01
Zdravim vsechny.
Hledam pomoc s ovladanim LCD displaye rizeneho radicem HD44780. Nemate nekdo
nejake zkusenosti?
Muzete na soukromou adresu
kejchal(zv)volny(tec)cz
Diky Pavel
MS Platform SDK
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.2.2001 22:24:04
To bylo dycky v jednom adresari cele inst. cd, nemuzes to stahnout cele?
Posledni aktualizaci mam z tusim z dubna a v tech cabinetech jsou priklady,
napoveda je v .chm...
Roman
> Ma negdo zkusenosti s instalaci %SUBJ% z ftp.microsoft.com???
> Chci si tu instalaci stahnout. Mam stahovat jenom psdk-x86.XX.cab nebo i
> psdk-common.XX.cab??? Mam Windows98. Predem dik
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
DBGrid and KeyDown
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.2.2001 22:28:05
Ten sloupec je primo v databazi? A jak to resis, kdyz si dva ruzni uzivatele
chteji vybrat neco k tisku? :-)
> K otazce c.4. Ja mam v te databazi jeden sloupec, ktery se jmenuje TISK a je
> to jeden znak. Tam pisu bud mezeru nebo tecku a pri vykreslovani oken
> tabulky si jen prectu co tam je a podle toho tam vykreslim obrazek tiskarny
> nebo ciste pozadi.
> > 4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl
> vytisknout
> > jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na ten
> > sloupec je to vyhodne nebo to udelat pres nejake pole ??)
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Rezie retezcu a objektu? - dynamicka pole
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 13.2.2001 22:44:20
Ahoj,
Onehda jsem bojoval s rychlosti pri pouzivani
promenych typu dynamicke pole.Vyplatilo se prednastavit delku
na "pomerne" velkou hodnotu a po naplneni zkratit na skutecne
potrebnou (v pripade, ze by doslo k preteceni jsem delku opet
nastavil o vic nez potrebnou delku). Slovem "pomernou" rozumej
predpokladanou delku v konkretni situaci. Diky tomu se usetri
na neustale realokaci pameti pro promenou a rychlost jde rapidne nahoru.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Dalibor Toman
> Sent: Tuesday, February 13, 2001 7:44 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Rezie retezcu a objektu?
>
>
> ----- Original Message -----
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, February 12, 2001 8:34 PM
> Subject: Rezie retezcu a objektu?
>
> > Preji vsem pekneho dne,
> >
> > mam objekt, ktery v podstate nedela nic jineho, nez po zavolani
> > jeho metody pricte k privatni promenne typu string retezec zadany
> > jako parametr. Tech metod je vice a jsou pretizene. Problem je v
> > tom, ze je to cele nechutne pomale. Rezie ceho zabere toliko
> > casu?
> >
> pokud se intenzivne manipuluje s long string retezci (prodluzovani,
> zkracovani) pak je nutne si uvedomit, ze takove operace muzou mit
> zanasledek
> realokaci stringa coz je znacne pomale. V takovych pripadech je nutne tuto
> cinost nejak optimalizovat (donutit string aby jeho predalokovana velikost
> mela dost velkou rezervu pro vsechna data..) Nekde na Internetu jsem videl
> specializovanou knihovnu na praci se stringy, ktera se chlubila eliminaci
> alokaci ..
>
> D. Toman
>
>
>RadioGroup bez ramika
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 13.2.2001 22:44:26
Ahoj,
vemes-li panel a na nej nasazis jednotlive
TRadioButtony pak se vsechny jenz jsou na
jednom panelu budou chovat jako skupina
a zaroven mas moznost jejich vlastnost Enabled
individualne nastavovat.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Peter Vlkovic
> Sent: Tuesday, February 13, 2001 9:10 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RadioGroup bez ramika
>
>
> Ahoj,
>
> mam dve otazky:
> 1. Da sa nejak zrusit ramik okolo komponenty RadioGroup?
> 2. Da sa enablovat/disablovat jeden RadioButton v ramci RadioGroup?
> Za pripadnu pomoc vdaka.
>
> Vlkovic
> DBGrid and KeyDown
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 14.2.2001 06:23:59
V tom pripade bych to udelal nasledovne :
Tabulka se sloupci : ID, ID_REC, UZIVATEL;
ID = nejaky primarni index (treba autoincrement)
ID_REC = ID polozky v tabulce s tim co se ma tisknout (treba
primarni index)
UZIVATEL = jmeno uzivatele, ktery danou polozku oznacil
Kdyz si uzivatel bude chtit oznacit zaznam k tisku, zapise se do teto
tabulky jeho jmeno a id polozky.
Ke tvym poznamkam :
Ta databaze je delana na miru a pouziva ji jen sef.
Ten sloupec je samozrejme v entite, ktera obsahuje polozky, ktere se
budou tisknout. Psal jsem "databaze" protoze to bylo vseobecne.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Roman <sw.maurice(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 13, 2001 10:28 PM
Subject: Re: DBGrid and KeyDown
> Ten sloupec je primo v databazi? A jak to resis, kdyz si dva ruzni
uzivatele
> chteji vybrat neco k tisku? :-)
>
> > K otazce c.4. Ja mam v te databazi jeden sloupec, ktery se jmenuje TISK
a je
> > to jeden znak. Tam pisu bud mezeru nebo tecku a pri vykreslovani oken
> > tabulky si jen prectu co tam je a podle toho tam vykreslim obrazek
tiskarny
> > nebo ciste pozadi.
>
> > > 4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl
> > vytisknout
> > > jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na
ten
> > > sloupec je to vyhodne nebo to udelat pres nejake pole ??)
>
> Roman
> OOOOOOOOOOOOOOOO
> O icq #84229702
> O sw.maurice(zv)cbox(tec)cz
> O http://kouzelne.misto(tec)cz
> OOOOOOOOOOOOOOOO
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.02.01
prevod cisla
[*] <mdelphi(zv)email(tec)cz> - 14.2.2001 06:48:24
Pros�m jak p�evedu ��slo 123456, aby se zobrazovalo jako 12,35E+4.Bylo
mi razeno: format, ale bohu�el to n�jak nefunguje.
Mockr�t d�kuji
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
Aplikace bez formulare
[*] Pavel Zemek <Zemek(zv)gymhu.ipex(tec)cz> - 14.2.2001 07:41:28
Ahoj,
Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
reagoval na zpravy ve win? Pokud odstranim
Application.CreateForm(.....) tak program skonci.
Pavel Zemek
Aplikace bez formulare
[*] Krska Vit <v_krska(zv)del(tec)cz> - 14.2.2001 08:51:36
ahoj,
Application.ShowMainForm := false;
Ing. Vit Krska
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Pavel
Zemek
Sent: Wednesday, February 14, 2001 7:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Aplikace bez formulare
Ahoj,
Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
reagoval na zpravy ve win? Pokud odstranim
Application.CreateForm(.....) tak program skonci.
Pavel Zemek
Struktura souboru paradox
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 14.2.2001 09:07:49
Ahoj,
URL je http://www.wotsit.org/
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: RE: Struktura souboru paradox
>
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Struktura souboru paradox
> >
> >
> > Ahoj,
> >
> > From: Pavel Malinsk <spiderland(zv)iol(tec)cz>
> >
> > > nevite, prosim, kde sehnat %SUBJ%. Nejak se mi to nedari.
> >
> > na Internetu jsou web stranky s popisy struktur snad vsech souboru,
> > bohuzel nemohu najit adresu.
>
> Ahoj,
>
> to jsme na tom stejne, proto jsem se ptal:)).
>
> > Ja ten popis struktrury mam a mohu pripadne zaslat.
> >
> > Jarek Uher
>
> Diky. To muzes na nize uvedenou adresu.
>
runtime packages
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 14.2.2001 09:12:58
Ahoj,
chceme prelozit nase programy s runtime packages. Mam tedy dve otazky.
1.Lze libovolne distribuovat runtime balicky typu VCL50.BPL,VCLDB50.BPL atd.
2.Slo by udelat vlastni balicek, ktery by byl jen jeden a obsahoval by
balicky VCL50.BPL,VCLDB50.BPL.
Predem diky za jakoukoliv odpoved.
Bohdan Voska
bohdan(zv)softok(tec)cz
Aplikace bez formulare
[*] milan_2(zv)sose-sou(tec)cz - 14.2.2001 9:16:04
Zkus dat do ONCreate :
Application.ShowMainForm:=false;
>Ahoj,
>Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
>reagoval na zpravy ve win? Pokud odstranim
>Application.CreateForm(.....) tak program skonci.
=============
Milan
Delphi beginner
Delphi 3, W98
K cemu jsou Dependencies?
[*] rado(zv)nnsk.sk - 14.2.2001 09:35:01
> obcas mi tabulka Dependecies dost zneprijemnuje zivot. Asi to znate.
> Co se stane, pokud tuto tabulku vyprazdnim?
To by som neskusal. Systemove tabulky nie su v databazach obvykle len
tak pre srandu. Okrem toho, po backup/restore sa tabulka velmi
pravdepodobne znova naplni.
Stava sa, ze sa RDB$DEPENDENCIES nerefreshne spravne, zatial sa mi to
stalo len pri pristupe cez BDE a obvykle len po nejakej chybe.
V tomto pripade nie je nic jednoduchsie ako
SELECT * FROM RDB$DEPENDENCIES
WHERE (RDB$DEPENDENT_ON_NAME = 'PROBLEM');
A zariadit sa podla vysledku, napr.
DELETE FROM RDB$DEPENDENCIES
WHERE (RDB$DEPENDENT_ON_NAME = 'PROBLEM');
Samozrejme, za 'PROBLEM' treba dosadit meno objektu.
Mimochodom odporucam pri zmene metadat
(vyvoj, udrzba) nastavit ENABLE SCHEMA CACHE na FALSE.
HTH,
bego
RadioGroup bez ramika
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 14.2.2001 09:51:02
> Ahoj,
>
> vemes-li panel a na nej nasazis jednotlive
> TRadioButtony pak se vsechny jenz jsou na
> jednom panelu budou chovat jako skupina
> a zaroven mas moznost jejich vlastnost Enabled
> individualne nastavovat.
OK. Ale ja potrebujem pouzivat ItemIndex.
Moj problem je vlastne v tom, ze ja by som
potreboval aby ramik boxu bol o nieco vyssi.
Myslel som, ze pomocou nejakeho triku ho
odstranim a vykreslim si ho vo vlastnej rezii.
+--- Caption ----+
| o Item no 1 |
| o Item no 2 |
| o Item no 3 |
| |
+----------------+
Nakoniec som to riesil tak, ze spodny okraj
RadioGroup-u som prekryl neoramovanym panelom.
Na tento panel som polozil dalsi, oramovany
panel a posunul som ho hore, aby ciastocne
precnieval cez okraj, takze nie je vidiet
hornu cast jeho ramu.
Vlkovic
Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2001 09:54:00
no, a podporuje BDE IB6?
mam pocit, ze ne, nebo ze se musi neco doinstalovat?
nebo pouzivat dialect 1, protoze BDE neumi dialect 3?
> update na toto bde mam ... nepomaha to ...
> > Testovano z IB5.6, funguje dobre.
> > Jen je treba proves update na BDE5.11 (tusim).
> > Tedy, bezi mi takto dve aplikace jiz pres rok.
> > > uz se to tady probiralo,a le bez vysledku. Funguje
> > > nekomu pristup k
> > > interbasi pres BDE s vyuzitim roli a langdriveru? Jde mi
> > > o klasicke
> > > komponenty Data Access. Bde 5.01, parametr ROLE NAME zna,
> > > ale nefunguje to
> > > spravne. Pres Isql vse funguje, jak ma, tedy role a prava
> > > jsou nastavena
> > > spravne. Diky za kazde nasmerovani.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Aplikace bez formulare
[*] brant(zv)dcomm(tec)cz - 14.2.2001 10:01:33
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.
Staci jen *.dpr, odstran form1 a samozrejme prislusne uses a pise se pak do
dpr. Lze ovsem nadeklarovat i dalsi unity, jen se nesmi pouzit nic
vizualniho.
Priklad ze zivota:
program SetFlag;
uses SysUtils;
const DefaultFName= 'MDMFlag.Inf';
var f: text;
s, FName: string;
DelayPause, ErrCode:integer;
procedure DelaySeconds (sec: integer);
begin
(...)
end;
begin
(...)
end.
-----Original Message-----
From: Pavel Zemek [mailto:Zemek(zv)gymhu.ipex(tec)cz]
Sent: Wednesday, February 14, 2001 7:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Aplikace bez formulare
Ahoj,
Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
reagoval na zpravy ve win? Pokud odstranim
Application.CreateForm(.....) tak program skonci.
Pavel Zemek
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001
Zjistovani souboru na W2000 - Reseni
[*] Pavel Chaloupka <chaloupka.pavel(zv)worldonline(tec)cz> - 14.2.2001 10:08:20
Zdar,
kdyz neni nastaveno v "Regional Options" volba "Your Locale" na "Czech".
Dale je potreba dat "Set default" na "Czech". Dale by melo byt vybrana v
"Language settings for the system" volba "Central Europe". Bez techto
nastaveni opravdu vsechny funkce vraci jmeno kde je r s hackem jako normalni
r. Je to neuveritelne, ale je to tak. Chapal bych to u klasicke funkce,
ktera vraci AnsiString, ale Unicode funkce, ktere vraci WideChar mi to
pripada, dost divne....
Takze nastavovat cestinu i na servery ;-).
Pavel Chaloupka
E-Mail: pavel(zv)chaloupka(tec)cz
WWW: www.chaloupka(tec)cz
V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)
----- Original Message -----
From: <Lukas.Gallina(zv)cz.danzas.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 4:02 PM
Subject: RE: Zjistovani souboru na W2000
> Ahoj,
> Nejsem si jist zda by to mohlo souviset, ale kdo vi? Mas nainstalovano na
> tom serveru podporu cestiny a narodniho prostredi? Vim ze kdyz jsem to
nemel
> na NT 4 serveru zlobilo mi to prave v souvislosti se soubory na disku,
> konkretne se soubory s c s hackem a r s hackem. Mohl jsem je otevrit,
> prejmenovat ale nemohl napr presunout v Salamandrovi, v Pruzkumnikovi
> ano.... ta cestina to vyresila.
>
> S pozdravem
>
> Luk�# Gallina
> DANZAS a.s. (fili�lka Brno)
> ITOS
> lukas.gallina(zv)cz.danzas.com
> tel.: +420 604 226 812, +420 (5) 47 135 403
>
>
> -----Original Message-----
> From: Pavel Chaloupka [mailto:chaloupka.pavel(zv)worldonline(tec)cz]
> Sent: Friday, February 09, 2001 12:57 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Zjistovani souboru na W2000
>
>
> Zdar,
>
> delam sw jehoz soucasti je prochazeni filesystemu a zjistovani nazvu
souboru
> a jejich zapis do databaze. Na W200 En Pro mi program chodi bez problemu.
Na
> W2000 En Server mi funkce pro prohledavani vraci nazev bez diakritiky.
> Projevuje se to u souboru kde je r s hackem a c s hackem. Pouzival jsem
> konstrukci FindFirst - FindNext - FindClose. Po zjisteni problemu jsem
> presel na FindFirstFileW - FindNextFileW - FindClose. Bohuzel se stejnym
> vysledkem. Je zajimave ze presunu-li problemove soubory na moje PC s W2000
> En Pro je vse OK, nazvy souboru se mi vrati tak jak jsou na disku. Na
W2000
> En Server mi obe funkce vraci nazev souboru bez diakritiky. Nevite nekdo
co
> s tim?
>
> Pavel Chaloupka
> E-Mail: pavel(zv)chaloupka(tec)cz
> WWW: www.chaloupka(tec)cz
> V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)
>DBGrid and KeyDown
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 14.2.2001 10:10:25
Ak pouzivas Locate funkciu na SQL cez BDE - tak to moze byt velmi pomale.
Pri SQL locate funkcia hlada nie na servri ale u klienta. To znamena ak
zaznam ktory hladas je na konci tak BDE pretiahne celu tabulku k klintovi a
v tom hlada - v tom je pomalost.
Pri DBF take nieco sa nenastava , tam Locate je velmi vykonny.
Riesit to mozes cez SQL dotaz Where ale zase nemozes hladat pri kazdom
tuknuti klavesy
ale iba na enter. Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.host.sk/tungli/
> -----P�vodn� zpr�va-----
> Od: Dave FM [SMTP:dave.fm(zv)atlas(tec)cz]
> Odesl�no: 12. febru�r 2001 22:38
> Komu: Delphi konference
> P�edm�t: DBGrid and KeyDown
>
> Ahoj Delphici,
>
> potreboval bych poradit s odchytavanim klaves. U komponenty TRXDbGrid nebo
> TDBGrid (vyjde to nastejno) mam event onKeyDown vytvoreno odchytavani
> klaves, tzn. Kdyz uzivatel klikne na klavesu tak se prenese do TEdit a tam
> na je potom event na zmenu, ze se skoci na zaznam v tabulce (Locate)
> odpovidajici obsahu TEdit. Jde to vsechno OK az na to ze to jde dost
> pomalu
> jellikoz tabulka obsahuje 15000 zaznamu.
> 1. dotaz jde to zrychlit (pouzivam IB, a Data Access s BDE) v�m nen� to
> nejidealnejs� - doporucte leps�
> 2. pohyb kurzorov�mi klavesami po DBGridu je pak pomale s t�m
> odchytavan�m.
> 3. Nav�c potoebuji odchyt�vat i jinou kl�vesu na select a deselect oadku
> tabulky a na to dotaz cislo 4.
> 4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl
> vytisknout
> jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na ten
> sloupec je to vyhodne nebo to udelat pres nejake pole ??)
>
> Diky za tyto odpovedi
>
> David
> Error code
[*] MDvorak(zv)csas(tec)cz - 14.2.2001 10:35:20
Zdravim,
nevite nahodou nekdo, co by se mohlo skryvat za chybou:
The application, , generated an application error The error occurred on 2/
7/2001 (zv) 6:56:28.656 The exception generated was c0000025 at address
77f892e5 (RtlRandom)
M. Dvorak
Prekresleni plochy
[*] Pavel Zemek <Zemek(zv)gymhu.ipex(tec)cz> - 14.2.2001 10:50:21
Ahoj,
jak udelam, aby Windows prekreslil celou plochu a vsechna okna?
Pavel Zemek
K cemu jsou Dependencies?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 14.2.2001 10:53:56
> > obcas mi tabulka Dependecies dost zneprijemnuje zivot. Asi to znate.
> > Co se stane, pokud tuto tabulku vyprazdnim?
>
> To by som neskusal. Systemove tabulky nie su v databazach obvykle len
> tak pre srandu.
To je prave ten problem. Systemove tabulky tam sice nejsou pro
srandu, ale specialne RDB$DEPENDENCIES obsahuje velmi casto
spoustu nesmyslu. Pouzivam IBAdmin 3.0, nevim, zda je to tim,
ale fakt je, ze v tabulce zavislosti je kazdou chvili nekolik zcela
identickych radku, dale spousta radku ukazujicich zavislost na
nejakych systemovych objektech, dokonce radky, ktere popisuji
zavislost jednoho objektu na druhem, pricemz pro stejnou dvojici
objektu existuje nekolik ruznych typu zavislosti (sloupec typ
zavislosti). A jde o nesmysly.
Takovyto bordel pak zpusobuje, ze neco nejde smazat, protoze
udajne existuje nejaka zavislost, ackoliv to neni pravda atd.
Uvital bych nejaky popis systemovych tabulek, ale ten zrejme
bohuzel neexistuje.
David Lebeda
prevod cisla
[*] Uniplet T�eb�� - elektronika - 14.2.2001 11:10:59
neni to sice presne ono, ale co treba takhle:
var
x : integer;
begin
x := 123456;
MessageBoxS(format('%.4e', [x/1]),
Application.Title, MB_OK or MB_ICONINFORMATION);
end;
----- Original Message -----
From: <mdelphi(zv)email(tec)cz>
Sent: Wednesday, February 14, 2001 6:48 AM
Subject: prevod cisla
> Pros�m jak p�evedu ��slo 123456, aby se zobrazovalo jako 12,35E+4.Bylo
> mi razeno: format, ale bohu�el to n�jak nefunguje.
> Mockr�t d�kuji
>
> EMAIL.CZ - Vase posta je vzdy s Vami na
> http://www.email(tec)cz
>
>
>Aplikace bez formulare
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 14.2.2001 11:43:09
A co odstranit form a dat tam DataModul?
Michal Tiller
-----Original Message-----
From: Krska Vit [mailto:v_krska(zv)del(tec)cz]
Sent: Wednesday, February 14, 2001 8:52 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Aplikace bez formulare
ahoj,
Application.ShowMainForm := false;
Ing. Vit Krska
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Pavel
Zemek
Sent: Wednesday, February 14, 2001 7:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Aplikace bez formulare
Ahoj,
Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
reagoval na zpravy ve win? Pokud odstranim
Application.CreateForm(.....) tak program skonci.
Pavel Zemek
MS Platform SDK
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 14.2.2001 11:59:25
No klidne to stahnout muzu. Me jenom zajimalo jestli je to vsechno
opravdu nutny. A asi je... protoze ty x86.cab maj dohromady asi jenom
40MB ... to je dost malo ...
Roman wrote:
>
> To bylo dycky v jednom adresari cele inst. cd, nemuzes to stahnout cele?
> Posledni aktualizaci mam z tusim z dubna a v tech cabinetech jsou priklady,
> napoveda je v .chm...
>
> Roman
>
> > Ma negdo zkusenosti s instalaci %SUBJ% z ftp.microsoft.com???
> > Chci si tu instalaci stahnout. Mam stahovat jenom psdk-x86.XX.cab nebo i
> > psdk-common.XX.cab??? Mam Windows98. Predem dik
>
> OOOOOOOOOOOOOOOO
> O icq #84229702
> O sw.maurice(zv)cbox(tec)cz
> O http://kouzelne.misto(tec)cz
> OOOOOOOOOOOOOOOO
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/K cemu jsou Dependencies?
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 14.2.2001 12:22:20
Pokud si stahnes dokumentaci k IB tak tam mas popis jednotlivych
systemovych tabulek. A daleko vic.
Nehlede na to ze na CD k D5 prof. je instalace IB5.x a tam je
dokumentace (sice jenom k teto verzi, ale urcite dobre poslouzi i
k verzi 6.x)
Hezky den
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Aplikace bez formulare
[*] Pavel Zemek <Zemek(zv)gymhu.ipex(tec)cz> - 14.2.2001 12:41:17
Potreboval bych, aby se formular vubec nevytvarel, ale program zustal
v pameti.
Dne 14 Feb 01 v 8:51 vytukal Krska Vit na klavesnici toto:
=> ahoj,
=> Application.ShowMainForm := false;
=>
=> Ing. Vit Krska
=> vit.krska(zv)del(tec)cz
=>
=> -----Original Message-----
=> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Pavel
=> Zemek
=> Sent: Wednesday, February 14, 2001 7:41 AM
=> To: delphi-l(zv)fwd(tec)cz
=> Subject: Aplikace bez formulare
=>
=>
=> Ahoj,
=> Jak udelam program, ktery nema zadny formular, aby zustal v pameti a
=> reagoval na zpravy ve win? Pokud odstranim
=> Application.CreateForm(.....) tak program skonci.
=>
=> Pavel Zemek
=>
=>
S pozdravem
PZ
DBGrid and KeyDown
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 14.2.2001 13:55:47
> Ak pouzivas Locate funkciu na SQL cez BDE - tak to moze byt velmi pomale.
> Pri SQL locate funkcia hlada nie na servri ale u klienta. To znamena ak
> zaznam ktory hladas je na konci tak BDE pretiahne celu tabulku k klintovi
a
> v tom hlada - v tom je pomalost.
> Pri DBF take nieco sa nenastava , tam Locate je velmi vykonny.
>
> Riesit to mozes cez SQL dotaz Where ale zase nemozes hladat pri kazdom
> tuknuti klavesy
> ale iba na enter.
Coz je dost prusvih, protoze mi nechteji uzivatele zvykli na inkrementalni
hledani v souborovych databazich nechteji pouzivat aplikaci na SQL serveru.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Jan Tungli <Jan.Tungli(zv)datapac.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 14, 2001 10:10 AM
Subject: RE: DBGrid and KeyDown
>
> Jan Tungli
> email: jan.tungli(zv)seznam(tec)cz
> tungli(zv)datapac.sk
> http://www.host.sk/tungli/
>
> > -----P�vodn� zpr�va-----
> > Od: Dave FM [SMTP:dave.fm(zv)atlas(tec)cz]
> > Odesl�no: 12. febru�r 2001 22:38
> > Komu: Delphi konference
> > P�edm�t: DBGrid and KeyDown
> >
> > Ahoj Delphici,
> >
> > potreboval bych poradit s odchytavanim klaves. U komponenty TRXDbGrid
nebo
> > TDBGrid (vyjde to nastejno) mam event onKeyDown vytvoreno odchytavani
> > klaves, tzn. Kdyz uzivatel klikne na klavesu tak se prenese do TEdit a
tam
> > na je potom event na zmenu, ze se skoci na zaznam v tabulce (Locate)
> > odpovidajici obsahu TEdit. Jde to vsechno OK az na to ze to jde dost
> > pomalu
> > jellikoz tabulka obsahuje 15000 zaznamu.
> > 1. dotaz jde to zrychlit (pouzivam IB, a Data Access s BDE) v�m nen� to
> > nejidealnejs� - doporucte leps�
> > 2. pohyb kurzorov�mi klavesami po DBGridu je pak pomale s t�m
> > odchytavan�m.
> > 3. Nav�c potoebuji odchyt�vat i jinou kl�vesu na select a deselect oadku
> > tabulky a na to dotaz cislo 4.
> > 4. Jak jednoduse mam oznacit radky v DBGridu abych si je pak mohl
> > vytisknout
> > jen ty radky. (Delat to s pomocnym sloupcem v tabulce a dotaz pak na ten
> > sloupec je to vyhodne nebo to udelat pres nejake pole ??)
> >
> > Diky za tyto odpovedi
> >
> > David
> >
>AVI Creator
[*] Tom� Krest�n - 14.2.2001 14:12:35
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Zdrav�m,
cht�l bych se zeptat zda n�kdo nev� o n�jak�m jednoduch� a schopn�m AVI creatoru - avi�ka pro TAnimate na pr�b�hov� dialogy apod. D�ky v#em.
Tomas
Transparent form
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 14.2.2001 14:40:40
Ludia prosim kto ma komponentu na transparentny form tak mi ju prosim
poslite aj s malym pokecom. Viem ze o tom tu bezala debata ale som si to ja
... pip nestiahol ked to tu bolo. Sorry ze Vas otravujem takymito starymi
vecami ale... :)
Vdaka za ochotu.
S pozdravom,
------------------------------------------------
R�bert �u#ka, spr�vca siete
R�dio Lumen, Bansk� Bystrica
Slovensk� republika
www.lumen.sk
spravca(zv)lumen.sk
088/41 25 739 kl.14
-------------------------------------------------
zasifrovani
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 14.2.2001 14:40:54
> ahoj,
> potreboval bych 2funkce (encode/decode), ktere by dokazali
> zasifrovat retezec. Potrebuju ale, aby ten zasifrovany string
> obsahoval pouze znaky 0..9,A..Z,a..z - a zadne jine jako
> (zv)#$%^&*(... Jde oto, aby to bylo co nejjednodusii, ale zaroven
> pokud mozno aspon 'trochu' bezpecne. Koukal jsem se na free
> komponenty na sifrovani, to je ale vsecho tak slozity (myslim pro me).
>
V RxLib je toto
Unit
StrUtils
Declaration
function XorEncode(const Key, Source: string): string;
Description
(new in 2.75)
Allows to code a string. Src is the source (to code), Key is the ... key
(password). The function returns the coded string.
To decode, use XorDecode.
This function is built to work against Strings. Against Short string use
XorString
Var
S : string;
Begin
S := XorEncode('Password','Secret string to code');
...
Tom
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
Parametry ListBoxu odesilane skriptu z HTML Formul
[*] JIM Design <jim.design(zv)iol(tec)cz> - 14.2.2001 14:50:09
ahoj,
co takhle (ASP):
Request.Form("jmeno_toho_listboxu")(i)
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
morzol(zv)atlas(tec)cz
Sent: Friday, February 09, 2001 8:21 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Parametry ListBoxu odesilane skriptu z HTML Formulare
Nevite nekdo jake jsou parametry ListBoxu odesilane WWW serveru z HTML
Formulare obzvlast kdyz controlem vyberu naraz vice polozek a v jakem
formatu jsou odesilany ?
Diky.BachMove mezi napr.: ADOTable a TTable
[*] Va�ek - seznam <vcerveny(zv)seznam(tec)cz> - 14.2.2001 15:02:57
Ahoj.
Chci se zeptat, jak efektivne porovnat radky dvou tabulek, kde kazda je z jineho zdroje (ADO, DAO, FF, ...).
Potrebuji v podstate to same, co dela komponenta BatchMove pro TTable (TQuery).
Konkretne potrebuji nahlednout do tabulky na SQL serveru (read only pristup), porovnat s moji tabulkou (DBF nebo FlashFiler) a chybejici nebo zmenene zaznamy do teto tabulky prenest (tusim mode AppendUpdate komponenty BatchMove) abych si s nimi mohl delat, co se mi zachce.
Diky za radu
Vasek Cerveny
DBLookupComboBox na DBCtrlGrid
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.2.2001 15:17:31
zdravim,
chtel jsem dat DBLookupComboBox na DBCtrlGrid.
to slo v pohode.
jenze, kdyz jsem chtel nastavit ListSource,
tak to na me zarvalo:
"Operation not allowed in a DBCtrlGrid."
coz je imho bug, ponevad bez teto property to nemuze fungovat :(
nemate s tim nekdo zkusenost?
btw, mam:
Delphi Professional
version 5.0 (Build 6.18) Update Pack 1
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Re[2]: Aplikace bez formulare
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 14.2.2001 16:10:19
Hello Pavel,
PZ> Potreboval bych, aby se formular vubec nevytvarel, ale program zustal
PZ> v pameti.
A co vytvorit neviditelne okno pres API, winproc funkce ti pak chyta
zpravy ?
--
Best regards,
vt mailto:vitek(zv)softok(tec)cz
Prehravani videa bez blikani obrazu?
[*] Reiniger Milan <reiniger(zv)mmp.plzen-city(tec)cz> - 14.2.2001 16:38:42
Mam takovy problem, ktery uz jiste vsichni vyresili, pouze ja ne.
Mam nasnimane obrazy z kamery v jednom velkem souboru. Jsou to
jednotlive snimky v jpg formatu a k nemu indexovy soubor.
Nyni musim tyto snimky umet zobrazit jako video sekvenci. Kdyz primo
natahnu obraz ze souboru a zobrazim ho jako image, tak to blika, ze neni
jednotlive snimky videt. Musel bych tam asi udelat nejake zpozdeni, ale
to by nebylo ono.
Rekl jsem si, ze bych ten image kopiroval vzdy do jineho image
(image2.Picture:=image1.picture], kde by zustal az do dalsiho
nahravaneho obrazku. Ale bohuzel je efekt naprosto stejny. Blika porad.
Pak jsem jeste zkousel udelat image2 neviditelny (visible:=false) a
teprve po natazeni ho nastavit na true, ale vysledek je porad stejny.
Myslim, ze bych to musel vyresit nejak offline, ale nevim jak.
Dokazete mi nekdo poradit, jak to vyresit, aby obraz neblikal?
Milan Reiniger
Instalace MSDE
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 14.2.2001 17:13:09
Ahoj,
delam instalaci, ktera jako prvni vec instaluje MSDE. Delam to tak, ze
spustim MSDEx86.exe s parametrem -f1 mydefaults.iss. Mam s tim nekolik
problemu:
1) Jak poznat zda jsou splneny pozadavky pro instalaci,
- na Win95 je-li nainstalovan DCOM95
- na WinNT je-li SP4
2) Jak zjistit vysledek instalace - pokud dojde k chybe, tak se MSDE zase
smaze a nic nerekne.
3) Jak zobrazovat prubeh instalace. MSDE ukazuje pouze prubeh rozpakovani.
Delal jste jiz nekdo takovy instalak a podelil se s tim jak jste takove
problemy resili.
Dik Honza +
D5Prof, W2K
RadioGroup bez ramika
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 14.2.2001 17:24:26
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
[..]
> > a zaroven mas moznost jejich vlastnost Enabled
> > individualne nastavovat.
>
> OK. Ale ja potrebujem pouzivat ItemIndex.
Ahoj,
Tak si nastav vlastnost Tag.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
K cemu jsou Dependencies?
[*] rado(zv)nnsk.sk - 14.2.2001 18:16:16
> Pouzivam IBAdmin 3.0, nevim, zda je to tim,
Aha. IBAdmin nema dobru povest.
> ale fakt je, ze v tabulce zavislosti je kazdou chvili nekolik zcela
> identickych radku,
Za normalnej situacie by sa to nemalo stat. Neviem, ako presne naraba
IBAdmin zo systemovymi tabulkami, ale necital som o nom nic dobre.
Fakt je, ze struktura systemovych tabuliek sa meni z verzie na verziu
a nemozno sa spoliehat na to, ze co funguje v jednej verzii, bude
fungovat v inej. Pre zachovanie kompatibility by som do systemovych
tabuliek velmi nevrtal.
Z vlastnej skusenosti: Vo verzii 4.2 som spravil nieco ako logovanie
zmien metadat (zmeny struktury tabuliek, procedur, atd). To co v 4.2
fungovalo, funguje sice aj v 6.0, ale nie celkom tak, ako bu malo.
Dovodom je prave zmena spravania systemovych trigrov a procedur.
> dale spousta radku ukazujicich zavislost na
> nejakych systemovych objektech, dokonce radky, ktere popisuji
> zavislost jednoho objektu na druhem, pricemz pro stejnou dvojici
> objektu existuje nekolik ruznych typu zavislosti (sloupec typ
> zavislosti). A jde o nesmysly.
To by som nepovedal, ze su to nezmysly. V normalnom stave su
systemove tabulky konzistentne. Ak do nich nejaka utilita zasahuje,
nevyse nezdokumentovanym sposobom, nicomu sa nedivim.
V pripade nutnosti robim zasahy do systemovych tabuliek tiez,
ale opatrne.
> Uvital bych nejaky popis systemovych tabulek, ale ten zrejme
> bohuzel neexistuje.
Existuje vcelku dobry popis, v Language Reference, sucast dokumentacie
k IB. Verzia 6.0 ma asi 18.5 MB dokumnetacie v PDF suboroch.
http://www.ibphoenix.com
Zdravim,
bego
Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2001 18:32:29
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> no, a podporuje BDE IB6?
Ahoj,
pro SQL databaze na BDE zapomen.
Petr Vones, amatersky programator
Mapa
[*] Jirka Virt <virt(zv)volny(tec)cz> - 14.2.2001 19:21:16
Ahoj ,
mam databazi se souradnicemi mest CR.Chtel bych je zobrazit, ale vubec
nemam napad jak.Zobrazim je souradnicemi do canvas, ale jak pohybovat a
zoomovat souradnice?? Neresil jste toto nekdo nebo nemate dobry napad jak na
to.
Diky
moc
Jirka Virt
email: virt(zv)volny(tec)cz
Pridani DLL po kompilaci
[*] Jan Hejda <cz.waterman(zv)worldonline(tec)cz> - 14.2.2001 19:43:04
Ahoj,
zajimalo by mi, jak muzu pridat DLL do programu az po kompilaci. Jako napriklad ve WinAmpu (pluginy).DCU to PAS
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 14.2.2001 20:54:14
>
> neexistuje. Jedine reseni (na ktere je asi pozde) je zalohovat, zalohovat,
> zalohovat ...
Neexistuje.... pred par lety jsem vedl diplomku na tohle
tema a vysledkem byl fungujici prekladac z .EXE do BP.
Tedy z .EXE, ktere bylo vysledkem prace Borland Pascalu,
zpatky do zdrojaku, vcetne unit atd.
Pro Delphi by to asi bylo tezsi diky optimalizaci
a nejspis svuj problem dokazete vyresit jednoduseji,
ale v principu takove veci jdou (pro znamy prekladac).
Tom
Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.2.2001 19:54:15
Nebyl bych tak kategoricky, nez testovat nativni komponenty
cizi firmy s nejistym vysledkem, tak se radsi smirim s problemy
o kterych vim. Jedna se mi hlavne o ne IB databaze.
Osobne BDE pouzivam pro pristup k Informixu.
Jinak trampory s IBExpresem taky stoji za to.
Firma koupila delphi, koupila IB5.6 a pak se dozvim,
ze podpora jejich produktu (v dobe koupe to tak bylo) se jich
tak nejak netyka. Viz prohlaseni P. Cisare v Belohrade.
Takze investovat cas a namahu do zkoumani neceho bez zaruk kontinuity
se moc nechce.
Ano BDE ma spoustu problemu, ale jednu vyhodu, vetsinu z nich jiz clovek zna.
Moje idea je (zatim jsem ji neuskutecnil): BDE na aplikacnim serveru a pristup
od klientu pres DCOM.
Slavek
> Ahoj,
>
> pro SQL databaze na BDE zapomen.
>
> Petr Vones, amatersky programator
> DCU to PAS
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 14.2.2001 21:45:25
> > Tedy z .EXE, ktere bylo vysledkem prace Borland Pascalu,
> > zpatky do zdrojaku, vcetne unit atd.
>
> ... a jmen prommenych, typu, konstant, parametru funkci, metod ... ?
>
> Petr Vones, amatersky programator
Jmena z knihoven to znalo, ostatni to pojmenovalo
automaticky. Jasne, ze nejde udelat puvodni zdrojak
(myslim, ze byl problem treba rozlisit word a integer),
ale umelo to udelat zdrojak, ktery po prelozeni dal stejny .EXE.
Tom
sms na oskara
[*] Petr Kro�a <delphi sysoft(zv)centrum(tec)cz> - 14.2.2001 21:06:56
tak se mi zadarilo zprovoznit zasilani SMS na oskara :o)
jsou potreba tyto komponenty :
TMSEARCH http://w1.545.telia.com/~u54503556/delphi/mdp.htm
HTTPGet http://www.utilmind.com
procedure TForm1.Button1Click(Sender: TObject);
begin
HTTPGetString.GetString;
end;
procedure TForm1.HTTPGetStringDoneString(Sender: TObject; Result: String);
var adresa : string;
begin
msearch1.SelText := result;
MSearch1.FindString('ppp');
edit2.Text := Copy(MSearch1.Lines[MSearch1.FoundLine], 40, Length(MSearch1.Lines[MSearch1.FoundLine])-42);
// vytahne ppp hodnotu ktera je aktualni
adresa:='http://www.oskarmobil(tec)cz/cz/sms/send.php3?number='+edit1.text+'&ppp='+edit2.text+'&mynumber='+edit3.text+'&sender='+edit4.text+'&message='+edit2.text;
ShellExecute(0,'open',Pchar(adresa),nil,nil,Sw ShowNormal); // otevre okno default browseru (nevzpomnel jsem si na syntaxi pro webbrowser)
end;
//edit1.text - cislo ciloveho telefonu
//edit2.text - ppp CRC :o)
//edit3.text - cislo odesilatele
//edit4.text - jmeno odesilatele
//edit5.text - text zpravy
do promenne komponenty HTTPGet je treba nastavit url http://www.oskarmobil(tec)cz/cz/sms/s main.php3
je to funkcni do doby nez zmeni syntaxi formulare
malou upravou to pujde zmenit pro vsechny operatory
v jednoduchosti je sila :o)
s pozdravem
Petr Kro�a
www.sysoft.org
DCU to PAS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2001 21:22:13
From: "Tomas Holan" <HOLAN(zv)ksvi.mff.cuni(tec)cz>
> Neexistuje.... pred par lety jsem vedl diplomku na tohle
> tema a vysledkem byl fungujici prekladac z .EXE do BP.
Ahoj,
Dobra, co je treba tohle ?
PUSH EBX
MOV EBX, EAX
TEST DL, DL
JZ +$16
PUSH $01
CALL $77E834EF
INC EBX
PUSH $01
CALL $77E834EF
MOV EAX, EBX
POP EBX
RET
> Tedy z .EXE, ktere bylo vysledkem prace Borland Pascalu,
> zpatky do zdrojaku, vcetne unit atd.
... a jmen prommenych, typu, konstant, parametru funkci, metod ... ?
Petr Vones, amatersky programator
Interbase 6.0, Delphi 5 Proff a ROLE NAME
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2001 21:34:56
From: "Slavomir Skopalik" <skopalik(zv)atlas(tec)cz>
> Takze investovat cas a namahu do zkoumani neceho bez zaruk kontinuity
> se moc nechce.
Ahoj,
to je logicke. Ovsem v pripade IB je IMHO zaruka kontinuity u IBExpressu vetsi
nez u BDE ;-)
Petr Vones, amatersky programator
DBLookupComboBox na DBCtrlGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2001 21:40:34
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> coz je imho bug, ponevad bez teto property to nemuze fungovat :(
> nemate s tim nekdo zkusenost?
Ahoj
TDBLookupComboBox neni navrzen pro pouziti na DBCtrlGridu.
Petr Vones, amatersky programator
DCU to PAS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2001 22:10:34
From: "Tomas Holan" <HOLAN(zv)ksvi.mff.cuni(tec)cz>
> Jmena z knihoven to znalo, ostatni to pojmenovalo
> automaticky. Jasne, ze nejde udelat puvodni zdrojak
Taky by asi byl problem s funkcemi ktere vraci record.
Petr Vones, amatersky programator
RadioGroup bez ramika
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.2.2001 22:43:07
Ahoj,
trvas na tom, ze tam ItemIndex _musi_ byt nebo potrebujes
pristupovat pres nejaky index? Pokud Ti staci nejaky index, mas
nekolik moznosti:
* nastav si tag
* pokud jsou na panelu jen radiobutony, muzes pouzit pole
Panel.Controls
Vyska pak uz neni problem.
Slavek
> OK. Ale ja potrebujem pouzivat ItemIndex.
>
> Moj problem je vlastne v tom, ze ja by som
> potreboval aby ramik boxu bol o nieco vyssi.
> Myslel som, ze pomocou nejakeho triku ho
> odstranim a vykreslim si ho vo vlastnej rezii.
>
> +--- Caption ----+
> | o Item no 1 |
> | o Item no 2 |
> | o Item no 3 |
> | |
> +----------------+
>
> Nakoniec som to riesil tak, ze spodny okraj
> RadioGroup-u som prekryl neoramovanym panelom.
> Na tento panel som polozil dalsi, oramovany
> panel a posunul som ho hore, aby ciastocne
> precnieval cez okraj, takze nie je vidiet
> hornu cast jeho ramu.
>
> Vlkovic
>
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Pridani DLL po kompilaci
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 14.2.2001 22:50:44
Ahoj,
musim mit na to nejaky interface. Pro Delphi je pomerne dobre to
resit pres balicky, jak tu neustale na toto tema odpovida Petr
Vones. Podivej se na adresu
http://www.obsof.com/delphi_tips/DL613.html kde je vse pomerne
slusne popsane i s priklady.
Slavek
> Ahoj,
> zajimalo by mi, jak muzu pridat DLL do programu az po kompilaci. Jako napriklad ve WinAmpu (pluginy).
>
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
MS Platform SDK
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.2.2001 23:44:58
No, nutne to neni, ja osobne pouzivam jenom ty napovedy a ty spoustim s cd,
popr. dle nutnosti zkopiruju na disk, zadna instalace...> No klidne to stahnout muzu. Me jenom zajimalo jestli je to vsechno
> opravdu nutny. A asi je... protoze ty x86.cab maj dohromady asi jenom
> 40MB ... to je dost malo ...
>
> Roman wrote:
> >
> > To bylo dycky v jednom adresari cele inst. cd, nemuzes to stahnout cele?
> > Posledni aktualizaci mam z tusim z dubna a v tech cabinetech jsou priklady,
> > napoveda je v .chm...
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Pridani DLL po kompilaci
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 15.2.2001 00:42:01
V programu muzes DLL nahrat a pak volat v ni obsazene funkce podle jmena - viz LoadLibrary a GetProcAddress v Helpu. Take neni
problem si funkce predavat v parametru.
BTW: ja resim pluginy tak, ze dane dll musi obsahovat funkci s nejakym jmenem. Tu zavolam a ona mi preda jmena vsech
vyuzitelnych funkci... S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Jan Hejda" <cz.waterman(zv)worldonline(tec)cz>
Subject: Pridani DLL po kompilaci
Ahoj,
zajimalo by mi, jak muzu pridat DLL do programu az po kompilaci. Jako napriklad ve WinAmpu (pluginy).
Pridani DLL po kompilaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.2.2001 01:08:38
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> BTW: ja resim pluginy tak, ze dane dll musi obsahovat funkci s nejakym
> jmenem. Tu zavolam a ona mi preda jmena vsech vyuzitelnych funkci...
Ahoj,
a nebylo by jednodussi ziskat jmena funkci primo z exportu dane DLL ?
Petr Vones, amatersky programator
Pridani DLL po kompilaci
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 15.2.2001 03:42:39
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Subject: Re: Pridani DLL po kompilaci
> From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> > BTW: ja resim pluginy tak, ze dane dll musi obsahovat funkci s nejakym
> > jmenem. Tu zavolam a ona mi preda jmena vsech vyuzitelnych funkci...
>
> Ahoj,
>
> a nebylo by jednodussi ziskat jmena funkci primo z exportu dane DLL ?
Jaky export ?
******
Jinak, v mem pripade by to nebylo ono (import vypocetnich funkci do kalkulacky) - pr.:
nahraju plugin
- zavolam fci knihovnik (0) - vrati mi to seznam "volacich" jmen funkci v dll
- knihovnik (1) - seznam nazvu fci jak se maji objevit v seznamu v programu
apod.
Druha moznost by sice sla resit predanim primo z funkce, ale ja nevim :-). Kdyz jsem si zkousel napsat takovy plugin, prislo mi
rychlejsi vypsat si nejakou tabulku jmen a pak to posilat jedinou fci. S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm