Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
DBImage a Paradox
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 24.3.2004 07:32:34
Ahojte,
Mam problem s tym, aby mi komponenta DBImage pridala JPG obrazky do mojej databazy(paradox). Prosim, ako to mozem dosiahnut? A ak pomocou streami, ako konkretne? SOm totis zaciatocnik. Potreboval by som nejaky priklad.
DAKUJEM
S pozdravom Peter
TEdit a pouze cisla
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 24.3.2004 05:08:14
21.3.2004 Matejcek Petr:
> DD,
> potreboval bych umoznit uzivateli zadat do editacniho pole pouze
> cislice a desetinnou tecku tj aby tam nesly vkladat pismena a jine znaky
> pls poradi nekdo jak to jednoduse udelat ?
Do OnKeyPress dej:
if not (Key in [#0..#31, '0'..'9', '.']) then Key := #0;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Delphi 8 Architect Trial available
[*] Petr Vones <pvones(zv)vol(tec)cz> - 24.3.2004 04:08:10
http://bdn.borland.com/article/0,1410,32038,00.html
Petr Vones
ZipForge
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 24.3.2004 00:39:51
Ahoj
Urcite je moja otazka primitivna, ale uz dlho a zatial neuspesne sa
pokusam prinutit komponentu zipForge aby nepakovala subory s urcitou
priponou. Pokial sa jedna iba o jednu priponu vseto funguje v poriadku.
Pokial chcem viac pripon vylucit z balenia tak sa zbalia vsetky subory.
Naplnim List neziaducich suborov
ZipForge.ExclusionMasks.AddStrings(frmExclude.lbExclude.Items);
for i:= 0 to ShellLink.SelectionList.Count-1 do
begin
BaseDir:= ExtractFileDir(ShellLink.SelectionList[i]);
AddFiles(ShellLink.SelectionList[i], faAnyFile, '******neziaduca
pripona*********'); //ak dam natvrdo '*.bak' prebehne pakovanie spravne
end;
Ako ho presvedcit aby pripony v ExclusionMask nepakoval so zvyskom ??? V
podstate na to iste narazim v pripade FileMasks ked sa budem pokusat zbalit
len subory ktore budu uvedene vo FileMasks. D7 a ZipForge 2.51
Ing. Keder Vladimir
Agilent 82350 PCI HPIB karta
[*] skopalik <skopalik(zv)elektlabs(tec)cz> - 23.3.2004 23:49:47
1. Ujasnit si jake OS ta dll poporuje (ocekaval bych, ze k tomu budou i
drivery)
2. Nekde tam bude taky soubor, co se jmenuje stejne jako ta dll, ale ma
koncovku
"h", ten v sobe skkryva popis rozhrani te dll
3. Existuje konverzni program pro prevod z headru na pas, al eje vzdy
nutno to doopravit
rucne. http://www.drbob42.com/delphi/headconv.htm
4. Zbytek je aplikacni logika.
Slavek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Matejcek Petr
Sent: Tuesday, March 23, 2004 8:13 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Agilent 82350 PCI HPIB karta
DD,
mam kartu HPIB viz subj. na CD k ni byly nejake dll knihovny a
nejake kody v c++
potreboval bych k tomu napsat program v delphi ktery by umel komunikovat
s meraky pres tuto kartu a vubec nevim jak zacit
poradi nekdo ?
hledal jsem nejaky priklad na webu pro delphi ale moc jsem nenasel s dll
zatim pracovat neumim jak se podivam co skryvaji ?
diky PM
mozny OT: IB/FB - insert from select + union
[*] Petr Fischer <petr.fischer(zv)praguesoft(tec)cz> - 23.3.2004 21:11:33
Duvod je ten, ze tech zdrojovejch tabulek je vic (ne jen dve) a kdyz co
nejvic veci zaridi jeden dotaz, mam z toho lepsi pocit .)
Bohuzel to jednim dotazem opravdu asi nejde.
Diky, pf
(P.S. Nakonec sem to vsechno nacpal do VIEW.)
Milan Tomes wrote:
>Tohle pravdepodobne nepujde, ale je nejaky duvod proc to nerozepsat na dva
>dotazy ???
>
>Insert into cil (id, name)
>select id, name from zdroj_tab_1
>
>Insert into cil (id, name)
>select id, name from zdroj_tab_2
>where
> id not in (select ID from cil where cil.id=zdroj_tab_2.ID)
>
>popr.
> id not exists (select ID from cil where cil.id=zdroj_tab_2.ID)
>
>S pozdravem
>
>Milan Tomes
>
>
>
>
>>[mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fischer
>>Sent: Monday, March 22, 2004 6:02 PM
>>
>>mam dotaz ohledne FireBirdu (InterBase) - chci provest insert z vice
>>selectu spojenych unionem - asi takhle:
>>
>>problem je prave v "union" - "SQL error code = -104. Token unknown -
>>line 7, char 1. union."
>>
>>
>
>
>
>
>Agilent 82350 PCI HPIB karta
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 23.3.2004 20:13:29
DD,
mam kartu HPIB viz subj. na CD k ni byly nejake dll knihovny a
nejake kody v c++
potreboval bych k tomu napsat program v delphi ktery by umel komunikovat
s meraky pres tuto kartu a vubec nevim jak zacit
poradi nekdo ?
hledal jsem nejaky priklad na webu pro delphi ale moc jsem nenasel
s dll zatim pracovat neumim jak se podivam co skryvaji ?
diky PM
Bloby v Sybase Anywhere
[*] Lubomir Fule <fule(zv)humansoft.sk> - 23.3.2004 15:46:31
Nemyslim, ze by pomohlo nejake spec. nastavenie drivera. My mame ASA 8.02 a
cez mODBC sa mi vobec nepodarilo otvorit dotaz obsahjuci blob.
L.
> To jsem si taky myslel. Aby to fungovalo musi se nastavit u
> ODBC cursor na
> SQL_CUR_USE_ODBC a typ na SQL_CURSOR_STATIC. U jineho ani
> nejde spustit
> dotaz. Je treba nejak specialne nastavit driver?
>
>
> > V principe je to napisane spravne, moze vsak byt problem napr v type
> > kurzora, alebo inych nastaveniach. My pouzivame na Sybase
> Anywhere ODBCe a
> > tam je to vsetko bez problemou, pretoze ODBCe som vyladil
> okrem inych aj
> > specialne pre Sybase ASA.
> >
> > > pouzivame v nasich projektech pro pristup k ODBC knihovnu
> MODBC. Pri
> > > prechodu na Sybase Anywhere se vyskytl problem pri nacitani
> > > blobu. Nevedel
> > > jsem, zda je to problem ODBC driveru nebo knihovny.
> Zkusil jsem ODBCe,
> > > kde to funguje v poradku. Nechtel bych vsak kvuli teto
> > > vlastnosti predelavat
Bloby v Sybase Anywhere
[*] Jaromir Solar <solar(zv)magion(tec)cz> - 23.3.2004 15:42:29
To jsem si taky myslel. Aby to fungovalo musi se nastavit u ODBC cursor na
SQL_CUR_USE_ODBC a typ na SQL_CURSOR_STATIC. U jineho ani nejde spustit
dotaz. Je treba nejak specialne nastavit driver?
WinXP, D5Ent, Sybase ASA 6.0.2.2188, verze ODBC 6.0.1.1314
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316
> V principe je to napisane spravne, moze vsak byt problem napr v type
> kurzora, alebo inych nastaveniach. My pouzivame na Sybase Anywhere ODBCe a
> tam je to vsetko bez problemou, pretoze ODBCe som vyladil okrem inych aj
> specialne pre Sybase ASA.
>
> > pouzivame v nasich projektech pro pristup k ODBC knihovnu MODBC. Pri
> > prechodu na Sybase Anywhere se vyskytl problem pri nacitani
> > blobu. Nevedel
> > jsem, zda je to problem ODBC driveru nebo knihovny. Zkusil jsem ODBCe,
> > kde to funguje v poradku. Nechtel bych vsak kvuli teto
> > vlastnosti predelavat
Bloby v Sybase Anywhere
[*] Lubomir Fule <fule(zv)humansoft.sk> - 23.3.2004 14:42:09
V principe je to napisane spravne, moze vsak byt problem napr v type
kurzora, alebo inych nastaveniach. My pouzivame na Sybase Anywhere ODBCe a
tam je to vsetko bez problemou, pretoze ODBCe som vyladil okrem inych aj
specialne pre Sybase ASA.
L.
> Dobry den,
> pouzivame v nasich projektech pro pristup k ODBC knihovnu MODBC. Pri
> prechodu na Sybase Anywhere se vyskytl problem pri nacitani
> blobu. Nevedel
> jsem, zda je to problem ODBC driveru nebo knihovny. Zkusil jsem ODBCe,
> kde to funguje v poradku. Nechtel bych vsak kvuli teto
> vlastnosti predelavat
> cely projekt na jine komponenty a tak bych chtel poprosit o
> radu, jestli lze
> bloby
> nacitat jinym zpusobem nez je uvedeno nize. V MODBC je pouzita tato
> konstrukce:
>
> SQLGetData( hstmt, FieldNo,
> SQLDataType{SQL_BINARY 05/05/2000},
> SQLPOINTER( (zv)i), 0, (zv)iv); // get data length
> ----- iv je -1
>
> if iv > 0 then bufInc := iv // if driver know field size
> else bufInc := 256; // if driver don't know
>
> repeat
> if SQLDataType = SQL_CHAR then inc(bufInc); //
> for #0 char
> SetLength( c, Offset + bufInc);
> sqlres := SQLGetData( hstmt, FieldNo, SQLDataType,
> SQLPOINTER( PCHAR(c) + Offset), bufInc, (zv)iv);
>
> ----- sqlres je hned SQL_NO_DATA takze to zobrazi, ze data
> tam jsou ale nic
> ----- nevrati
>
> if (sqlres = SQL_NO_DATA)or(iv = 0) then
> begin
> SetLength( c, Offset);
> break;
> end;
> if iv = SQL_NULL_DATA then
> begin
> c := '';
> break;
> end;
> if (iv > bufInc) or (iv = SQL_NO_TOTAL)
> then inc( Offset, bufInc)
> else inc( Offset, iv);
> if (SQLDataType = SQL_CHAR)and(c[Offset] = #0) then
> dec(Offset); // remove #0
> SetLength( c, Offset);
> bufInc:=256;
> until sqlres <> SQL_SUCCESS_WITH_INFO;
>
> V blobu data urcite jsou. Pokud jdu napr. pres BDE nebo vase
> ODBCe, tak to
> vyselektuje dobre.
Bloby v Sybase Anywhere
[*] Jaromir Solar <solar(zv)magion(tec)cz> - 23.3.2004 14:04:05
Dobry den,
pouzivame v nasich projektech pro pristup k ODBC knihovnu MODBC. Pri
prechodu na Sybase Anywhere se vyskytl problem pri nacitani blobu. Nevedel
jsem, zda je to problem ODBC driveru nebo knihovny. Zkusil jsem ODBCe,
kde to funguje v poradku. Nechtel bych vsak kvuli teto vlastnosti predelavat
cely projekt na jine komponenty a tak bych chtel poprosit o radu, jestli lze
bloby
nacitat jinym zpusobem nez je uvedeno nize. V MODBC je pouzita tato
konstrukce:
SQLGetData( hstmt, FieldNo, SQLDataType{SQL_BINARY 05/05/2000},
SQLPOINTER( (zv)i), 0, (zv)iv); // get data length
----- iv je -1
if iv > 0 then bufInc := iv // if driver know field size
else bufInc := 256; // if driver don't know
repeat
if SQLDataType = SQL_CHAR then inc(bufInc); // for #0 char
SetLength( c, Offset + bufInc);
sqlres := SQLGetData( hstmt, FieldNo, SQLDataType,
SQLPOINTER( PCHAR(c) + Offset), bufInc, (zv)iv);
----- sqlres je hned SQL_NO_DATA takze to zobrazi, ze data tam jsou ale nic
----- nevrati
if (sqlres = SQL_NO_DATA)or(iv = 0) then
begin
SetLength( c, Offset);
break;
end;
if iv = SQL_NULL_DATA then
begin
c := '';
break;
end;
if (iv > bufInc) or (iv = SQL_NO_TOTAL)
then inc( Offset, bufInc)
else inc( Offset, iv);
if (SQLDataType = SQL_CHAR)and(c[Offset] = #0) then
dec(Offset); // remove #0
SetLength( c, Offset);
bufInc:=256;
until sqlres <> SQL_SUCCESS_WITH_INFO;
V blobu data urcite jsou. Pokud jdu napr. pres BDE nebo vase ODBCe, tak to
vyselektuje dobre.
Predem dekuji
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316
Animacia vo vlakne
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 23.3.2004 12:01:56
Na mych strankach je ke stazeni serial "Umime to s Delphi" a tam jsou myslim
3 casti venovane threadum.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> > Potreboval by som uplne jednoduchu vec :
> 1 Vytvorit nove vlakno
> 2 Spustit v tomto vlakne animaciu
> 3 Korektne ukoncit vlakno
>
>
OT: SynEdit a komercna aplikacia
[*] Lubos Urban <lubos.urban(zv)visicom.sk> - 23.3.2004 11:51:55
Ahojte,
neviete mi niekto poadit ako je to s pouzitim komponent SynEdit v
komercnych aplikaciach (ci je to mozne alebo ani nie)?
Hladam som niekde na ich stranke nejake info o tom ale nebol som
uspesny, za kazdu radu vopred dakujem.
Lubos Urban
Animacia vo vlakne
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 23.3.2004 11:45:54
Zdravim
Potreboval by som uplne jednoduchu vec :
1 Vytvorit nove vlakno
2 Spustit v tomto vlakne animaciu
3 Korektne ukoncit vlakno
Nemate niekto nejaky primitivny priklad (staci aj link na web),
s ktoreho by som aj ja dokazal bezbolestne pochopit ako sa to robi?
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)hotmail.com
Microsoft - OffTopic
[*] Radek <radek_456(zv)seznam(tec)cz> - 23.3.2004 11:39:52
tak uz je to tady: http://www.novinky(tec)cz/02/83/20.html ted aby nam
nezdrazili Visual Studio :-)
PS: konec je nejlepsi:
"Komise zadala, aby se americka firma zavazala, ze nebude svymi
obvyklymi zpusoby potlacovat
konkurenci ani v budoucnu. To Microsoft odmitl."
Radek
TOpenPictureDialog a prewiew JPEGu
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 23.3.2004 11:23:51
No asi nekde chybela, protoze kdyz jsem zacal pouzivat TJPEGImage, coz
predpoklada "uses jpeg", tak se EInvalidGraphic prestala projevovat. Asi ta
JPEG unit ma nekde v inicializacni sekci registraci...
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "Pavel Malinsky" <malinsky(zv)pmcom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 23, 2004 8:29 AM
Subject: Re: TOpenPictureDialog a prewiew JPEGu
> > From: "Tomas Bradle" <t.bradle(zv)worldonline(tec)cz>
> > > nevi nekdo jak zaridit, aby nahledy JPG souboru v TOpenPictureDialog
> > > negenerovaly exception, ale zobrazovaly se ? Jde to vubec ?
> >
> > A o jakou exception presne jde ? Nahledy by mely fungovat
>
> Ahoj,
>
> a nechybi ti nahodou deklarace v uses na unitu Jpeg ?
>
Synapse problem s proxy
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.3.2004 11:05:49
> A bude synapse tuto autorizaci nekdy v budoucnu podporovat?
Ano, NTLM autorizace je v planu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.FireBird - zacatek
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.3.2004 10:55:47
Haj hou!
On 23 Mar 2004 at 9:25, Radek Szurman wrote:
> chci se zeptat, co vsechno pouzivate s praci s databazi firebird. Pres
> co se pristupuje k databazi (obdoba myPhpAdmin) aby zalozil nejakou
> novou tabulku, a pres jakou komponentu je nejpelsi k databazi
> pristupovat.
Podivej se na
http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_contrib_downloa
d
(pozor na zalomeni!)
V Admin tools najdes dve varianty na PHPMyAdmin. Pokud ale delas ve
Windows, doporucuji spise IBExpert personal. V Interface components
najdes komunikacni knihovny. V delphi se nejvic pouziva IBX a
FIBPlus, pripadne IBO.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird, SELECT LIKE a cestina
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.3.2004 10:51:44
Haj hou!
On 23 Mar 2004 at 8:43, Petr Svejda wrote:
> aha, takze nestaci defaultni nadefinovani u databaze, ale musi se to
> explicitne definovat u konkretniho sloupce v tabulce?
U databaze lze definovat pouze charset. Collate lze definovat az na
sloupci.
> a jeste jednu vec, kdy pouzivat char a kdy varchar? Je rozumne pouzit napr.
> varchar(32765) jako nahrada za blob? Potrebuji pouzivat UPPER(...) LIKE =
> AnsiUpperCase(...). Pouziti varchar(32765) fungovalo, ale nevim, jestli to
> nema nejake vyhody.
Podivej se na
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
(je to anglicky) a rozhodni se sam.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
FireBird - zacatek
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 23.3.2004 09:25:38
Ahoj,
chci se zeptat, co vsechno pouzivate s praci s databazi firebird. Pres co se pristupuje k databazi (obdoba myPhpAdmin) aby zalozil nejakou novou tabulku, a pres jakou komponentu je nejpelsi k databazi pristupovat.
Diky - s timhle zacinam.
Radek
Firebird, SELECT LIKE a cestina
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 23.3.2004 08:43:35
aha, takze nestaci defaultni nadefinovani u databaze, ale musi se to
explicitne definovat u konkretniho sloupce v tabulce?
a jeste jednu vec, kdy pouzivat char a kdy varchar? Je rozumne pouzit napr.
varchar(32765) jako nahrada za blob? Potrebuji pouzivat UPPER(...) LIKE =
AnsiUpperCase(...). Pouziti varchar(32765) fungovalo, ale nevim, jestli to
nema nejake vyhody.
Petr
-----Original Message-----
Bohuzel ne... Zbyva jedine zalozeni nove a datapump...
P.S.: Doporucuji osvojit si navyk: U sloupcu char nebo varchar, kde se muze
vyskytnout diakritika rovnou pouzit COLLATE PXW_CSY. Ja to takto delam od
zacatku a nemusim to explicitne specifikovat v dotazech... :)))
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Svejda
> Sent: Monday, March 22, 2004 3:15 PM
>
> lze dodatecne "dotvorit" existujici tabulku nebo databazi na win1250, kdyz
> predtim byla NONE?TOpenPictureDialog a prewiew JPEGu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 23.3.2004 08:29:34
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Vones
> Sent: Tuesday, March 23, 2004 3:35 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: TOpenPictureDialog a prewiew JPEGu
>
> From: "Tomas Bradle" <t.bradle(zv)worldonline(tec)cz>
> > nevi nekdo jak zaridit, aby nahledy JPG souboru v TOpenPictureDialog
> > negenerovaly exception, ale zobrazovaly se ? Jde to vubec ?
>
> A o jakou exception presne jde ? Nahledy by mely fungovat
Ahoj,
a nechybi ti nahodou deklarace v uses na unitu Jpeg ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Menici se hint
[*] aldik(zv)quick(tec)cz - 23.3.2004 08:27:33
OT:
Tak provizorne z prace, po tom co mi doma shorel zdroj a dym veliky zacadil mou mistnost:-)
K veci od Aldika:
Mno to klidne koukat muze, ale co ja vim tak hint a jeho vlastnosti se prideluji pri create formu,mno a tim padem pak hint menit nelze, ale jestli preci chces videt par efektu s Hintama tak se mrkni ke me na http://talpa.chytrak(tec)cz mam to tam nekde v downloadu jmenuje se to nejak jako MyFreeHint, nekolikrat jsem menil nazev tak si to nepamatuju.. vsechny efekty vstupuji v platnost pri inicializaci..
Talpa - aneb co krtka dela krtkem:-)
> -- likeapear:
> Koukni na tridu THintWindow.
>
> > Opet vas vsechny zdravim!
> > Minule jste mi pekne poradili. A ted mam dalsi problem - mam na
> treeview> onmouseover udalost a pri najeti na nejaky node
> zobrazuji hint - problem je,
> > ze se pri prejizdeni nemeni, zmeni se az po jeho zmizeni a
> dalsim pohybu. A
> > to i kdyz vzdy nejdriv zmenim showhint na false a potom po
> nastaveni hintu
> > na true. Jak na to, aby se text memnil i v prubehu zobrazeni?
> >
> > Karolina
>
Synapse problem s proxy
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 23.3.2004 08:23:32
Mam jeste jeden dotaz. Kdyz jsem zmenil autentizaci domeny, tak to jiz funguje, akorat pri pristupu na webovy site, ktery je chranen basic autentizaci (jine heslo a jine jmeno), tak mi to hlasi toto:
HTTP/1.1 401 Access Denied
Via: 1.1 FS
Proxy-Support: Session-Based-Authentication
Content-Length: 4431
Date: Tue, 23 Mar 2004 07:28:44 GMT
Content-Type: text/html
Server: Microsoft-IIS/5.0
WWW-Authenticate: Basic realm="www.pilscom(tec)cz"
HTTP 401.2 - Unauthorized: Logon failed due to server configuration
Internet Information Services
Ing. Jan Netrval
-----Original Message-----
From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]
Sent: Monday, March 22, 2004 7:50 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Synapse problem s proxy
> Mam problem se synapsi a proxy.
> A dostanu tenhle vysledek
> HTTP/1.1 407 Proxy Authentication Required ( The ISA Server requires authorization to fulfill the request. Access to the Web Proxy service is denied. )
> Proxy-Authenticate: NTLM
Tvoje proxy vyzaduje NTLM autorizaci, kterou Synapse zatim neumi. Proxy
jde pouzit jen kdyz tvoje proxy podporuje 'basic' autorizaci.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Menici se hint
[*] likeapear <likeapear(zv)centrum(tec)cz> - 23.3.2004 08:05:30
Koukni na tridu THintWindow.
-- likeapear
----- Original Message -----
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
Subject: Menici se hint
> Opet vas vsechny zdravim!
> Minule jste mi pekne poradili. A ted mam dalsi problem - mam na treeview
> onmouseover udalost a pri najeti na nejaky node zobrazuji hint - problem je,
> ze se pri prejizdeni nemeni, zmeni se az po jeho zmizeni a dalsim pohybu. A
> to i kdyz vzdy nejdriv zmenim showhint na false a potom po nastaveni hintu
> na true. Jak na to, aby se text memnil i v prubehu zobrazeni?
>
> Karolina
Synapse problem s proxy
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 23.3.2004 07:35:27
A bude synapse tuto autorizaci nekdy v budoucnu podporovat?
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
-----Original Message-----
From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]
Sent: Monday, March 22, 2004 7:50 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Synapse problem s proxy
> Mam problem se synapsi a proxy.
> A dostanu tenhle vysledek
> HTTP/1.1 407 Proxy Authentication Required ( The ISA Server requires authorization to fulfill the request. Access to the Web Proxy service is denied. )
> Proxy-Authenticate: NTLM
Tvoje proxy vyzaduje NTLM autorizaci, kterou Synapse zatim neumi. Proxy
jde pouzit jen kdyz tvoje proxy podporuje 'basic' autorizaci.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
webbrowser - zabraneni window.close
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 23.3.2004 07:29:26
20.3.2004 Roman Sitina:
> muze mi prosim nekdo poradit jak se dostat ke hlubsimu nastveni twebbrowser?
> Jde mi zejmena o zabraneni moznosti zavreni okna pres javascript.
Tohle jsem vyresil jedine tak, ze detekuji zavreni a okamzite vytvorim
novy TWebBrowser a zobrazim tam puvodni adresu
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Firebird, SELECT LIKE a cestina
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 23.3.2004 06:33:14
Bohuzel ne... Zbyva jedine zalozeni nove a datapump...
P.S.: Doporucuji osvojit si navyk: U sloupcu char nebo varchar, kde se muze
vyskytnout diakritika rovnou pouzit COLLATE PXW_CSY. Ja to takto delam od
zacatku a nemusim to explicitne specifikovat v dotazech... :)))
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Svejda
> Sent: Monday, March 22, 2004 3:15 PM
>
> lze dodatecne "dotvorit" existujici tabulku nebo databazi na win1250, kdyz
> predtim byla NONE?mozny OT: IB/FB - insert from select + union
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 23.3.2004 06:39:18
Tohle pravdepodobne nepujde, ale je nejaky duvod proc to nerozepsat na dva
dotazy ???
Insert into cil (id, name)
select id, name from zdroj_tab_1
Insert into cil (id, name)
select id, name from zdroj_tab_2
where
id not in (select ID from cil where cil.id=zdroj_tab_2.ID)
popr.
id not exists (select ID from cil where cil.id=zdroj_tab_2.ID)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fischer
> Sent: Monday, March 22, 2004 6:02 PM
>
> mam dotaz ohledne FireBirdu (InterBase) - chci provest insert z vice
> selectu spojenych unionem - asi takhle:
>
> problem je prave v "union" - "SQL error code = -104. Token unknown -
> line 7, char 1. union."TOpenPictureDialog a prewiew JPEGu
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.3.2004 03:34:56
From: "Tomas Bradle" <t.bradle(zv)worldonline(tec)cz>
> nevi nekdo jak zaridit, aby nahledy JPG souboru v TOpenPictureDialog
> negenerovaly exception, ale zobrazovaly se ? Jde to vubec ?
A o jakou exception presne jde ? Nahledy by mely fungovat stejne jako pro
ostatni graficke formaty.
Petr Vones
Dynamicka tvorba objektov- vlastnosti
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.3.2004 03:34:56
From: "Pavol Svorc" <svorcp(zv)pp.internet.sk>
> Chcem tieto hodnoty nejako do kodu zadat ( neviem ako ) a potom za
> behu pouzit (tiez neviem ako).
Vicemene skoncis u toho, ze napises neco podobneho jako nahravani z DFM. Pokud
ti jde ciste jen o seznam:
ComponentName.PropertyName = Value
tak si precti neco o RTTI. Konkretne unit TypInfo.
Petr Vones
Menici se hint
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.3.2004 03:26:50
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> Minule jste mi pekne poradili. A ted mam dalsi problem - mam na treeview
Ale zatim se to mam pocit prilis nevyresilo ;-)
> onmouseover udalost a pri najeti na nejaky node zobrazuji hint - problem je,
> ze se pri prejizdeni nemeni, zmeni se az po jeho zmizeni a dalsim pohybu. A
Standardne TreeView zobrazuje hint tam, kde je text node delsi nez dana sirka
pro jeho zobrazeni.
> to i kdyz vzdy nejdriv zmenim showhint na false a potom po nastaveni hintu
> na true. Jak na to, aby se text memnil i v prubehu zobrazeni?
Predpokladam ze jde tedy o to, aby se dal k jednotlivym nodum zobrazovat hint
s vlastnim textem (odlisnym od textu daneho node).
Petr Vones
IInterfaceList.IndexOf, no neurvalo by vas?
[*] tondrej(zv)t-online.de - 23.3.2004 01:34:43
> Ja si proste myslim, ze pokud jsou dve ruzna rozhrani stejneho objektu
> neco uplne jineho, tak by Delphi nemel umoznit neco takoveho:
>
> x1:IInterface;
> x2:IMyInterface;
>
> procedure neco(par:IInterface)
> begin
> end..
> ..
> neco(x2),
>
> ale mel by si vynutit
>
> neco(x2 as IInterface),
Kazdy interface (okrem IInterface) je potomkom IInterface, teda IMyInterface
je assignment-compatible s IInterface. Kompilator to vie a preto to dovoli.
> nebo dokonce prekladac sezere neco takoveho:
>
> if x1 = x2 then
>
> coz vsechno Delphi 7 umozni.
Porovnavanie pointrov, v podstate bezna operacia. Momentalne ma nenapada
pripad, kedy by to mohlo byt vyhodnotene ako True, snad iba nejakym sialenym
typecastom, a zostava otazkou, naco by to bolo dobre. Avsak ta moznost tam je
a kompilator to respektuje.
Skratka, podla mna je to mozne a syntakticky spravne porovnanie. Mozno by
kompilator pri takomto porovnavani interfacov mohol generovat vystrahu, to je
uz diskutabilne.
Co sa tyka povodnej otazky (IInterfaceList.IndexOf), asi si si neuvedomil, ze
pointer na interface je nieco ine ako pointer na instanciu triedy. Pointre na
dva rozne interfacy tej istej instancie su vzdy dva rozne pointre, preto sa
IInterfaceList.IndexOf chova inak, nez si predpokladal.
HTH
TOndrej
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 23.3.2004 00:46:39
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 22, 2004 11:30 PM
Subject: Re: IInterfaceList.IndexOf, no neurvalo by vas?>
> > i kdyz to druhe je dost nesmyslne. Ja si proste myslim, ze
> > pokud jsou dve ruzna rozhrani stejneho objektu neco uplne
> > jineho, tak by Delphi nemel umoznit neco takoveho:
> >
> > x1:IInterface;
> > x2:IMyInterface;
> >
> > procedure neco(par:IInterface)
> > begin
> > end..
> > ..
> > neco(x2),
>
> Tohle je v naprostem poradku. Potomek MUSI byt schopen zastoupit predka.
> Receno jinak, na formulari bys pak nemohl mit controli, ale pouze
> konkretni tridy
> a zadne jine.
Ten prvni priklad uz je umazany, ale nechova se to jako potomek, podivej
se na prvni mail s timto subj. Pokud to je vubec potomek, mam pocit ze
rozhrani nema potomky, to si jen Delphi na ne hraje.
>
> >
> > ale mel by si vynutit
> >
> > neco(x2 as IInterface),
>
> x2 je kompatibilni s x1 (z definice), zde neni zadny dovod k
> pretypovani,
> je to ekvivalentni jako kdyz pouzijes do funkce, ktera ocekava Tobject
> jeho
> potomka.
Prave ze neni, viz. prvni mail, IInterfaceList.IndexOf
>
>
> > nebo dokonce prekladac sezere neco takoveho:
> >
> > if x1 = x2 then
>
> Porovnani referenci, sice netusim jak to funguje u rozhrani (tj.
> nedokazu di predstavit
> ten asm kod, asi se budu muset podivat), ale melo by to byt legalni.
A vzdycky false.
Radim
>
> Slavek
>
Menici se hint
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 22.3.2004 23:20:27
Opet vas vsechny zdravim!
Minule jste mi pekne poradili. A ted mam dalsi problem - mam na treeview
onmouseover udalost a pri najeti na nejaky node zobrazuji hint - problem je,
ze se pri prejizdeni nemeni, zmeni se az po jeho zmizeni a dalsim pohybu. A
to i kdyz vzdy nejdriv zmenim showhint na false a potom po nastaveni hintu
na true. Jak na to, aby se text memnil i v prubehu zobrazeni?
Karolina
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 22.3.2004 23:30:29
> i kdyz to druhe je dost nesmyslne. Ja si proste myslim, ze
> pokud jsou dve ruzna rozhrani stejneho objektu neco uplne
> jineho, tak by Delphi nemel umoznit neco takoveho:
>
> x1:IInterface;
> x2:IMyInterface;
>
> procedure neco(par:IInterface)
> begin
> end..
> ..
> neco(x2),
Tohle je v naprostem poradku. Potomek MUSI byt schopen zastoupit predka.
Receno jinak, na formulari bys pak nemohl mit controli, ale pouze
konkretni tridy
a zadne jine.
>
> ale mel by si vynutit
>
> neco(x2 as IInterface),
x2 je kompatibilni s x1 (z definice), zde neni zadny dovod k
pretypovani,
je to ekvivalentni jako kdyz pouzijes do funkce, ktera ocekava Tobject
jeho
potomka.> nebo dokonce prekladac sezere neco takoveho:
>
> if x1 = x2 then
Porovnani referenci, sice netusim jak to funguje u rozhrani (tj.
nedokazu di predstavit
ten asm kod, asi se budu muset podivat), ale melo by to byt legalni.
Slavek
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 22.3.2004 23:02:25
----- Original Message -----
From: "Petr Vones" <pvones(zv)vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 22, 2004 10:28 PM
Subject: Re: IInterfaceList.IndexOf, no neurvalo by vas?> From: "Radim Kunz" <rkunz(zv)casestudio.com>
> > Pokud totez udelas s TObject, TMyObject a TList, tak to
> > funguje, prestoze jde o ruzne tridy.
>
> Ale jak presne ? Pokud se jedna o stejnou instanci objektu (pouze ruzne
> pretypovaneho) tak je to neco jineho.
>
> Petr Vones
>
V predchozim prikladu to byly dve rozhrani na stejnou instanci
objektu.
Normalni smrtelnik nevidi nejaky velky rozdil v konstrukcich:
TMyObject = class(TObject)
a
TMyInterface = class(IInterface),
i kdyz to druhe je dost nesmyslne. Ja si proste myslim, ze pokud
jsou dve ruzna rozhrani stejneho objektu neco uplne jineho, tak
by Delphi nemel umoznit neco takoveho:
x1:IInterface;
x2:IMyInterface;
procedure neco(par:IInterface)
begin
end..
..
neco(x2),
ale mel by si vynutit
neco(x2 as IInterface),
nebo dokonce prekladac sezere neco takoveho:
if x1 = x2 then
coz vsechno Delphi 7 umozni.
Radim
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Petr Vones <pvones(zv)vol(tec)cz> - 22.3.2004 22:28:20
From: "Radim Kunz" <rkunz(zv)casestudio.com>
> Pokud totez udelas s TObject, TMyObject a TList, tak to
> funguje, prestoze jde o ruzne tridy.
Ale jak presne ? Pokud se jedna o stejnou instanci objektu (pouze ruzne
pretypovaneho) tak je to neco jineho.
Petr Vones
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 22.3.2004 22:08:14
----- Original Message -----
From: "Petr Vones" <pvones(zv)vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 22, 2004 9:24 PM
Subject: Re: IInterfaceList.IndexOf, no neurvalo by vas?> From: "Radim Kunz" <rkunz(zv)casestudio.com>
> > List := TInterfaceList.Create as IInterfaceList;
> >
> > x1 := TMyInterfacedObject.Create as IInterface;
> > x2 := x1 as IMyInterface;
> >
> > List.Add(x1);
> >
> > m := List.IndexOf(x1);
> > // m = 0; spravne
> >
> > m := List.IndexOf(x2);
> > // m := -1, spatne
>
> Spravne, protoze IMyInterface neni totez co IInterface.
>
> Petr Vones
>
Pokud totez udelas s TObject, TMyObject a TList, tak to
funguje, prestoze jde o ruzne tridy.
Radim
IInterfaceList.IndexOf, no neurvalo by vas?
[*] Petr Vones <pvones(zv)vol(tec)cz> - 22.3.2004 21:24:05
From: "Radim Kunz" <rkunz(zv)casestudio.com>
> List := TInterfaceList.Create as IInterfaceList;
>
> x1 := TMyInterfacedObject.Create as IInterface;
> x2 := x1 as IMyInterface;
>
> List.Add(x1);
>
> m := List.IndexOf(x1);
> // m = 0; spravne
>
> m := List.IndexOf(x2);
> // m := -1, spatne
Spravne, protoze IMyInterface neni totez co IInterface.
Petr Vones
CREATE VIEW v FireBird
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 22.3.2004 21:18:04
Neco jako tohle:
CREATE VIEW SNOW_LINE (CITY, STATE, SNOW_ALTITUDE) AS
SELECT CITY, STATE, ALTITUDE
FROM CITIES
WHERE ALTITUDE > 5000;
(je to primo z dokumentace k FB/IB).
Psal jsem to jiz mnohokrat, stahnate se dokumentaci k IB6, je temer plne
pouzitelna pro FB 1.0, pro FB 1.5 pak staci precist release notes
(coz plati i o FB1.0).
Slavek
> Zdravim, snacim se udelat toto :
> create view budova_view as select b.nazev, b.zkratka, l.nazev
> as lokalita f rom cis_budova b join cis_lokalita l on
> b.id_lokalita = l.id_lokalita; Proste chci mit alias z
> l.nazev jako lokalita, pri samotnem selectu to neni problem,
> ale tady mi to pise chybu -must specify column name for view
> select expression. Nevite nekdo co s tim ?
>
>
>
>
>
>
>
>
> Nekompatibilita Delphi 7 trial / ostre a Professio
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 22.3.2004 21:06:02
======================================================================
Sunday, March 21, 2004, 11:52:34 PM, you wrote:
PV> From: "Jakub Dusek" <delphi(zv)corexpert.com>
>> narazil jsem na takovy problem. Vstupujeme narychlo do jednoho
>> projektu, castecne ma zdrojaky, ale pouziva nektere komponenty tretich
>> stran, ktere jsou bez zdrojaku, ve forme DCU, maji byt urceny pro
PV> Tak od toho rychle pryc.
Taky se mi to nelibi, ale na to jsem taaaakhle malinkej :) Musim
pracovat s materialem co je...
>> Vim, ze DCU jsou nekompatibilni mezi verzemi, nevi nekdo jestli jsou
>> nekompatibilni i mezi edici Professional a Enterprise v ramci jedne
>> verze (samozrejme za predpokladu ze nepouzivaji nic co jedna verze ma
>> a druha ne)? A dale, protoze je to narychlo, zatim jsem se projekt
PV> DCU nejsou kompatibilni mezi ostrou a trial verzi (i kdyz to nevim to jiste) a
PV> predevsim v trial verzi neni kompatibilni sam prekladac, ktery neumi prelozit
PV> unity s WEAKPACKAGEUNIT direktivou, coz muze byt soucast kodu komponent.
Tak to bude asi ono, diky.
PV> Petr Vones
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
CREATE VIEW v FireBird
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 22.3.2004 20:38:00
Zdravim, snacim se udelat toto :
create view budova_view as select b.nazev, b.zkratka, l.nazev as lokalita f
rom cis_budova b join cis_lokalita l on b.id_lokalita = l.id_lokalita;
Proste chci mit alias z l.nazev jako lokalita, pri samotnem selectu to neni problem, ale tady mi to pise chybu -must specify column name for view select expression.
Nevite nekdo co s tim ?IInterfaceList.IndexOf, no neurvalo by vas?
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 22.3.2004 20:11:57
var
List:IInterfaceList;
x1:IInterface;
x2:IMyInterface;
m:integer;
List := TInterfaceList.Create as IInterfaceList;
x1 := TMyInterfacedObject.Create as IInterface;
x2 := x1 as IMyInterface;
List.Add(x1);
m := List.IndexOf(x1);
// m = 0; spravne
m := List.IndexOf(x2);
// m := -1, spatne
Pritom jde o stejny objekt, ktery podporuje obe rozhrani.
Radim
Synapse problem s proxy
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 22.3.2004 19:49:55
> Mam problem se synapsi a proxy.
> A dostanu tenhle vysledek
> HTTP/1.1 407 Proxy Authentication Required ( The ISA Server requires authorization to fulfill the request. Access to the Web Proxy service is denied. )
> Proxy-Authenticate: NTLM
Tvoje proxy vyzaduje NTLM autorizaci, kterou Synapse zatim neumi. Proxy
jde pouzit jen kdyz tvoje proxy podporuje 'basic' autorizaci.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
ukonceni threadu
[*] Petr Vones <pvones(zv)vol(tec)cz> - 22.3.2004 18:55:51
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> A jak tedy pro uzivatele vyresit cekani na ukonceni threadu?
> Kdyz thread bude napriklad provadet nejakou I/O operaci, ktera bude trvat
> nekolik desitek vterin - pokud bu uzivatel vypinat pocitac, tak bude muset
O jakou operaci presne jde ?
> cekat na ukonceni a to neni zrovna prijemne chovani programu...
Ale je to jedine spravne chovani.
> Dalsi vec - pokud dam
> thread.terminate;
> thread.waitfor;
> tak se mi aplikace "zahryzne" - nezpracovava zpravy, dokud neni vlakno
> ukonceno. Jakym zpusobem to udelat tak, aby se vypsala uzivateli hlaska, ze
V jake verzi Delphi ?
Petr Vones
mozny OT: IB/FB - insert from select + union
[*] Petr Fischer <petr.fischer(zv)praguesoft(tec)cz> - 22.3.2004 18:01:43
Zdravim,
mam dotaz ohledne FireBirdu (InterBase) - chci provest insert z vice
selectu spojenych unionem - asi takhle:
---------------
insert into CIL_TAB (ID, NAME)
select ID, NAME from ZDROJ_TAB_1
union
select ID, NAME from ZDROJ_TAB_2
---------------
problem je prave v "union" - "SQL error code = -104. Token unknown -
line 7, char 1. union."
umi toto FireBird nebo neumi (mozna to staci nejak ozavorkovat, ale
neprisel jsem na to jak - ani nevygoogloval)
Diky moc, za upresneni, Petr Fischer
P.S. Nechce se mi kvuli tomuhle jednomu dotazu prihlasovat do
firebird-support konference, prece jen jsou dotazy ohledne IB v Delphi
konferenci tak nejak tolerovany, pripadne se omlouvam.TOpenPictureDialog a prewiew JPEGu
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 22.3.2004 17:07:37
Zdravim vsechny,
nevi nekdo jak zaridit, aby nahledy JPG souboru v TOpenPictureDialog
negenerovaly exception, ale zobrazovaly se ? Jde to vubec ?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
objekt pre zapis dat z formu do db
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 22.3.2004 17:01:36
Zdravim vospolok,
zhruba rok dozadu tu niekto spominal, ze ma vytvoreny _univerzalny_
objekt, ktory mu grabne data z formu a ulozi do db (mozno tiez z db
predplni form). Nemate, prosim, niekto nejaky odkaz alebo kus kodu z
ktoreho by som sa mohol inpirovat?
Vdaka.
P.Svorc.
HexToInt
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.3.2004 16:21:30
Jiri Matejka wrote:
> Treba takhle:
>
> function HexToInt(HexExpr:String):Int64;
nebo rovnou prostredky Delphi - viz Help:
StrToInt64 converts the string S, which represents an integer-type number in
either decimal or hexadecimal notation, into a number. If S does not
represent a valid number, StrToInt64 raises an EConvertError exception.HexToInt
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.3.2004 16:51:35
Jiri Matejka wrote:
> Ale pro HexToInt bude zrejme lepsi pouzit fci StrToInt64, jak tady
Predrazovani prefixu '$' muze mit dost velky overhead, takze
bych jeste upozornil na funkci HexToBin v unit Classes:
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer
HTH, pf
Hromadne prepsani hodnot v DFM
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 22.3.2004 16:35:33
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of David Liska
>
> Zdravim,
> nemate nekdo utilitku, ktera by umela projit vsechny DFM
> soubory projektu a
Ahoj,
na hromadne prejmenovavani pozivam Global Search & Replace
viz. http://www.obsof.com/ .
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
HexToInt
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 22.3.2004 16:31:32
==>Monday, March 22, 2004 4:25 PM konference(zv)crhov.komfi(tec)cz wrote:
> diky za odpovedet ale hazi mi to error na funkci PowerTo
> co to je zac ?
Melo tam byt Power.
function Power(const Base, Exponent: Extended): Extended;
Power raises Base to any power. For fractional exponents or exponents
greater than MaxInt, Base must be greater than 0.
Ale pro HexToInt bude zrejme lepsi pouzit fci StrToInt64, jak tady nekdo
poznamenal. Ani sem nevedel ze StrToInt umi konvertovat taky hex, tak jsem
si napsal vlastni fci.
Jirka Matejka
HexToInt
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 22.3.2004 16:25:31
diky za odpovedet ale hazi mi to error na funkci PowerTo
co to je zac ?
Jiri Matejka napsal(a):
>==>Monday, March 22, 2004 4:11 PM konference(zv)crhov.komfi(tec)cz wrote:
>
>
>
>> potreboval bych funkci ktera mi prevede hexadecimalni cislo na
>>integer a nejak se mi porad nedari
>>
>>
>
>Treba takhle:
>
>function HexToInt(HexExpr:String):Int64;
>var I,J:Integer;
>
> function HexCharToInt(C:Char):Integer;
> begin
> if StrToIntDef(C,-1)<>-1 then
> Result:=StrToInt(C)
> else
> Result:=Ord(C)-55;
> end;
>
>begin
> Result:=0;
> J:=0;
> for I:=Length(HexExpr) downto 1 do
> begin
> Result:=Result+(PowerTo(16,J)*HexCharToInt(HexExpr[I]));
> Inc(J);
> end;
>end;
>
>Jirka Matejka
>
>
>
>
>HexToInt
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 22.3.2004 16:17:27
var I : Integer;
HexStr : string;
begin
HexStr := '$0A';
I := StrToInt(HexStr);
end;
Ales
> -----Original Message-----
> From: Matejcek Petr [mailto:konference(zv)crhov.komfi(tec)cz]
>
> potreboval bych funkci ktera mi prevede hexadecimalni cislo na
> integer a nejak se mi porad nedari
HexToInt
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 22.3.2004 16:15:26
==>Monday, March 22, 2004 4:11 PM konference(zv)crhov.komfi(tec)cz wrote:
> potreboval bych funkci ktera mi prevede hexadecimalni cislo na
> integer a nejak se mi porad nedari
Treba takhle:
function HexToInt(HexExpr:String):Int64;
var I,J:Integer;
function HexCharToInt(C:Char):Integer;
begin
if StrToIntDef(C,-1)<>-1 then
Result:=StrToInt(C)
else
Result:=Ord(C)-55;
end;
begin
Result:=0;
J:=0;
for I:=Length(HexExpr) downto 1 do
begin
Result:=Result+(PowerTo(16,J)*HexCharToInt(HexExpr[I]));
Inc(J);
end;
end;
Jirka Matejka
Synapse problem s proxy
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 22.3.2004 16:13:24
Mam problem se synapsi a proxy.
Mam tenhle kod:
HTTP := THTTPSend.Create;
try
HTTP.ProxyHost := 'x.x.x.x';
HTTP.ProxyPort := '3128';
HTTP.ProxyUser := 'xxx';
HTTP.ProxyPass := 'xxx';
HTTP.HTTPMethod('GET', 'http://www.xxx(tec)cz/abc/abc.txt');
Memo1.Lines.Assign(HTTP.Headers);
Memo2.Lines.LoadFromStream(HTTP.Document);
finally
HTTP.Free;
end;
A dostanu tenhle vysledek
HTTP/1.1 407 Proxy Authentication Required ( The ISA Server requires authorization to fulfill the request. Access to the Web Proxy service is denied. )
Via:1.1 FS
Proxy-Authenticate: NTLM
Proxy-Authenticate: Basic realm="xx.xxx.xx"
Proxy-Authenticate: Kerberos
Proxy-Authenticate: Negotiate
Pragma: no-cache
Cache-Control: no-cache
Content-Type: text/html
Content-Length: 3811
Mohl by jste mi nekdo poradit?
Netrval
HexToInt
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 22.3.2004 16:11:23
DD,
potreboval bych funkci ktera mi prevede hexadecimalni cislo na
integer a nejak se mi porad nedari
pls umi nekdo poradit?
diky PM
PAnsiString
[*] Jirka <delphi-l(zv)bedna(tec)net> - 22.3.2004 16:05:22
Petr Daricek wrote:
> S:=String(Pom);
S := Pom;
Jirka
Nezobrazovat ikonu na liste
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 22.3.2004 15:53:20
ShowWindow(Application.Handle, SW_HIDE);
Ales
> -----Original Message-----
> From: Milos J. Hrach [mailto:delphi_konf(zv)post(tec)cz]
>
> Poradite nekdo jak dosahnout toho a se pri behu programu
> nezobrazovala na liste ikona s popisem beziciho programu?Nezobrazovat ikonu na liste
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 22.3.2004 15:45:19
Ahoj
Poradite nekdo jak dosahnout toho a se pri behu programu
nezobrazovala na liste ikona s popisem beziciho programu?
Diky Jakub
PAnsiString
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 22.3.2004 15:19:17
Ahoj,
uz si opravdu nevim rady tak se obracim s timhle urcite primitivnim problemem tady.
Mam funkci ktera mi vraci PAnsiChar, ja ho prevadim na string a nasledne zobrazuji v labelu. Problem je ale s tim, ze nekdy(ne vzdy), mi pri pokusu priradit hodnotu labelu hlasi Invalid Pointer operation. Nevim jestli je to jenom, ale pada to predevsim pokud je vraceny retezec prazdny.
Je snad treba pouzit nejakou specialni konverzi?
var index,i:Integer;
PrinterInfo2:Array of PRINTER_INFO_2;
Name:string;
Size:Integer;
Flags, Count, NumInfo: DWORD;
Level: Byte;
pom:PansiChar;
s:string;
begin
...
Pom:=PrinterInfo2[Index].pPrinterName;
Name:=String(Pom);
Pom:=PrinterInfo2[Index].pComment;
S:=String(Pom);
//**************************
// Tady to pada
//**************************
LComment.Caption:=s;
...
end;
Diky Petr Daricek
Firebird, SELECT LIKE a cestina
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 22.3.2004 15:15:15
velmi dekuji, funguje to, mam jeste doplnujici dotaz.
lze dodatecne "dotvorit" existujici tabulku nebo databazi na win1250, kdyz
predtim byla NONE?
-----Original Message-----
Ale nejspis jsi sloupec TASK nevytvoril s COLLATE PXW_CSY. Zkus tedy SELECT
* FROM TASKS WHERE UPPER(TASK COLLATE PXW_CSY) LIKE '%R_s_hackem%'
> SELECT * FROM TASKS WHERE UPPER(TASK) LIKE '%x%'
> kde x je R s hackem, najde jenom zaznamy, s velkym R s hackem, ale ne r s
> hackem
Hromadne prepsani hodnot v DFM
[*] David Liska <konference(zv)thsoft(tec)cz> - 22.3.2004 15:13:15
Zdravim,
nemate nekdo utilitku, ktera by umela projit vsechny DFM soubory projektu a
zmenila konkretni property konkretnich objektu? Jde mi o to, ze prechazim na
novejsi IBX komponenty, ktere nyni pozaduji u TIBBCDField.Size := 3; u
starsi verze bylo Size := 0.
Takze bych chtel jen zadat typ objektu, starou a novou hodnotu a aby se to
proslo a prepsalo. Je tam tech fieldu asi 650, takze se mi to prepisovat
rucne moc nechce, to uz by bylo rychlejsi napsat si na to program :)
Kdybyste nekdo neco mel, bylo by to fajn.
David
Cislovani versi programu
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 22.3.2004 14:41:12
prosim machrov okolo delphi aby ma nekamenovali za postup... ale je
funkcny :o))) a pre inspiraciu, verim, ze sa to da aj lepsie
joka
type
TVersion=class(TObject)
CompanyName: string;
FileDescription: string;
FileVersion: string;
FileVersionRelease: string;
FileVersionBuild: string;
FileVersionMain: string;
FileVersionSubMain: string;
InternalName: string;
LegalCopyright: string;
LegalTradeMarks: string;
OriginalFileName: string;
ProductName: string;
ProductVersion: string;
Comments: string;
private
{ Private declarations }
public
constructor Create(var xApplication:TApplication);
destructor Destroy; override;
{ Public declarations }
end;
........
constructor TVersion.Create(var xApplication:TApplication);
const
InfoNum = 10;
InfoStr: array[1..InfoNum] of string = ('CompanyName',
'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright',
'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion',
'Comments');
var
S: string;
n, Len, i: DWORD;
Buf: PChar;
Value: PChar;
sub_string: string;
dot_pos: integer;
begin
S := Application.ExeName;
n := GetFileVersionInfoSize(PChar(S), n);
if n > 0 then
begin
Buf := AllocMem(n);
GetFileVersionInfo(PChar(S), 0, n, Buf);
for i := 1 to InfoNum do
if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' +
InfoStr[i]), Pointer(Value), Len) then
begin
case i of
1: CompanyName:=Value;
2: FileDescription:=Value;
3: FileVersion:=Value;
4: InternalName:=Value;
5: LegalCopyright:=Value;
6: LegalTradeMarks:=Value;
7: OriginalFileName:=Value;
8: ProductName:=Value;
9: ProductVersion:=Value;
10: Comments:=Value;
end;
end;
FreeMem(Buf, n);
dot_pos:=pos('.',FileVersion);
FileVersionMain:=copy(FileVersion,1,dot_pos-1);
sub_string:=copy(FileVersion,dot_pos+1,length(FileVersion)-dot_pos+1);
dot_pos:=pos('.',sub_string);
FileVersionSubMain:=copy(sub_string,1,dot_pos-1);
sub_string:=copy(sub_string,dot_pos+1,length(sub_string)-dot_pos+1);
dot_pos:=pos('.',sub_string);
FileVersionRelease:=copy(sub_string,1,dot_pos-1);
sub_string:=copy(sub_string,dot_pos+1,length(sub_string)-dot_pos+1);
FileVersionBuild:=sub_string;
end
else
begin
CompanyName:='None';
FileDescription:='None';
FileVersion:='None';
FileVersionRelease:='None';
FileVersionBuild:='None';
FileVersionMain:='None';
FileVersionSubMain:='None';
InternalName:='None';
LegalCopyright:='None';
LegalTradeMarks:='None';
OriginalFileName:='None';
ProductName:='None';
ProductVersion:='None';
Comments:='None'; end;
end;
destructor TVersion.Destroy;
begin
end;
....... v programe napriklad:
procedure TfrmMain.FormCreate(Sender: TObject);
var
myVersion: TVersion;
begin
myVersion:=TVersion.Create(Application);
edVersion.Text:=' Version: ' + myVersion.FileVersionMain + '.' +
myVersion.FileVersionSubMain;
edRelease.Text:=' Release: ' + myVersion.FileVersionRelease;
edBuild.Text:=' Build: ' + myVersion.FileVersionBuild;
edProdukt.Text:=' Version: ' + myVersion.ProductVersion + '
CodeName: ' + myVersion.InternalName;
FrmMain.Caption:='aClipboard - ' + myVersion.FileVersionMain + '.' +
myVersion.FileVersionSubMain + '.' + myVersion.FileVersionRelease + '
(Build ' + myVersion.FileVersionBuild + ') - part of Office Equipment';
myVersion.Free;
end;
Cislovani versi programu
[*] Milan Fabik <fabik(zv)kinekus.sk> - 22.3.2004 14:31:09
Pouzivam svoj system cislovania takto:
ROK.MESIAC.DEN kompilacie
teda napr. 4.3.22 zajtra by to bolo
4.3.23
Fabik
> existuji nejaka zavazna ci vseobecne uzivana pravidla pro
> cislovani versi proramu? Jak k tomu pristupujete vy?Firebird, SELECT LIKE a cestina
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.3.2004 14:14:29
Ale nejspis jsi sloupec TASK nevytvoril s COLLATE PXW_CSY. Zkus tedy SELECT
* FROM TASKS WHERE UPPER(TASK COLLATE PXW_CSY) LIKE '%R_s_hackem%'
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Svejda
> Sent: Monday, March 22, 2004 1:56 PM
>
> SELECT * FROM TASKS WHERE UPPER(TASK) LIKE '%x%'
> kde x je R s hackem, najde jenom zaznamy, s velkym R s hackem, ale ne r s
> hackem
Cislovani versi programu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 22.3.2004 13:48:26
> A jak se pak k temto informacim dostanu ? Je mozna aby tyto informace
> obsahovala i knihovna .DLL a CGI aplikace ?
>
> Tomas Emresz mailto:tomas(zv)emresz.com
>
> BK> major.minor.release.build
> BK> 2.5.35.900
Myslim, ze to je API getVersionInfo, nebo tak... zkus MSDN
Brona
Firebird, SELECT LIKE a cestina
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 22.3.2004 13:56:27
mam drobny problem
prikaz: SELECT * FROM TASKS WHERE UPPER(TASK) LIKE '%R%'
funguje bez problemu
prikaz:
SELECT * FROM TASKS WHERE UPPER(TASK) LIKE '%x%'
kde x je R s hackem, najde jenom zaznamy, s velkym R s hackem, ale ne r s
hackem
databazi jsem vytvoril s WIN1250
jak selektovat spravne cesky bez ohledu na mala a velka pismena a s ohledem
na diakritiku?
Petr
Cislovani versi programu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 22.3.2004 13:48:25
> Puvodni zprava ze dne 22.3.2004:
>
>> Major = cislo hlavni verze, meni se jenom pri zasadnich zmenach. Minor
>> = aplikace pracuje s novou verzi databaze, je nutny prevod dat, nebo
>> alterovani tabulek
>> Release = nejaka nova funkce/ficura programu.
>> Build = oprava nasi chyby (bug v predchozi verzi).
>
>> kazde vyssi uroven nuluje vsecky urovne nizzsi.
>
> Build by se nemel nikdy nulovat, mel by se stale zvysovat s kazdou
> kompilaci bez ohledu na zmeny major, minor a release.
>
> Petr Zahradnik, pocitacovy expert
>
Nehelde na to, ze slovo "release" ma presny vyznam: "vydani" a znamena
vydani verze...
Brona
Cislovani versi programu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.3.2004 12:36:08
Puvodni zprava ze dne 22.3.2004:
> Major = cislo hlavni verze, meni se jenom pri zasadnich zmenach.
> Minor = aplikace pracuje s novou verzi databaze, je nutny prevod dat,
> nebo alterovani tabulek
> Release = nejaka nova funkce/ficura programu.
> Build = oprava nasi chyby (bug v predchozi verzi).
> kazde vyssi uroven nuluje vsecky urovne nizzsi.
Build by se nemel nikdy nulovat, mel by se stale zvysovat s kazdou
kompilaci bez ohledu na zmeny major, minor a release.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ukonceni threadu
[*] martin.ben(zv)ge(tec)com - 22.3.2004 12:34:03
Mas pravdu, ze to je vec navrhu. Co ale delat v pripade, ze se ve vlaknu
pripojujes na DCOM a na data, ktera po DCOMu chces, cekas i nekolik minut?
Martin Ben
PS: Ten DCOM je dodavka treti strany, kterou musim pouzivat.
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)vol(tec)cz]
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> Zdravim vas, prevazne asi chlapci...
> Ucim se pracovat s thready a nevim jakym zpusobem nejake vlakno zrusit, i
> kdyz jeste bezi... Vim, ze vlakno by melo byt naprogramovano tak, aby samo
> reagovalo na pozadavky zruseni, ale v nekterych pripadech to proste
nejde...
Vzdy to musi jit. To je jen vec navrhu (v tomto pripade asi spatneho). Je
opravdu hodne malo situaci kdy je takove reseni omluvitelne.
Cislovani versi programu
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 22.3.2004 13:30:23
A jak se pak k temto informacim dostanu ? Je mozna aby tyto informace
obsahovala i knihovna .DLL a CGI aplikace ?
Tomas Emresz mailto:tomas(zv)emresz.com
BK> major.minor.release.build
BK> 2.5.35.900
Cislovani versi programu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 22.3.2004 12:34:02
> Kde se da nastavit to automaticke zvysovani Build pri zkompilovani (buildu)?
primo v ty zalozce s nastavenim verze.
jinak my jsme si zavedli system:
Major = cislo hlavni verze, meni se jenom pri zasadnich zmenach.
Minor = aplikace pracuje s novou verzi databaze, je nutny prevod dat,
nebo alterovani tabulek
Release = nejaka nova funkce/ficura programu.
Build = oprava nasi chyby (bug v predchozi verzi).
kazde vyssi uroven nuluje vsecky urovne nizzsi.
Peca
HTML do Wordu a Cestina
[*] Ing. Miroslav VopaleckA? <m.vopalecky(zv)tiscali(tec)cz> - 22.3.2004 12:36:07
Dobry den.
Problemy s cestinou v RTF mohou byt zpusobeny tim, ze ne vzdy je ve zdroji informace o kodove strance, pokud se na text ve podivame jako na prosty text je tam obsazeno \fcharset0\ a to když se nahradi \fcharset1250\ tak se chybne zobrazeni cestiny ztrati. Je to pouzitelne i pro ukladani z RAVE ve formatu RTF. Stejny problem ma prevzeti textu z Wordu do Accesu a jeho zobrazeni v RTFBoxu - místo z s hackem je pak ctverecek.
S pozdravem Mirek Vopalecky, D7 W2000
|-----Original Message-----
|From: delphi-l-owner(zv)clexpert(tec)cz
|[mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Harman
|Sent: Wednesday, March 03, 2004 12:38 PM
|To: delphi-l(zv)clexpert(tec)cz
|Subject: HTML do Wordu a Cestina
|
|
|Zdravim vsechny,
|potrebuji vlozit tabulku do Wordu.
|- vlozim ji do retezce ktery definuje "StartHTML, EndHTML..."
|- otevru Clipboard,
|- zaregistruji format 'HTML Format',
|- vlozim do Clipboardu,
|- zavru Clipboard,
|- vlozim do Wordu pres WordApp.Selection.Paste;
|
|Bohuzel, vsechny ceske znaky jsou necitelne.
|Muze nekdo pomoct prosim? Uz se s tim trapim 3 dny. Diky.
|Honza
|
|
|--
|Pøíchozí zpráva neobsahuje viry.
|Zkontrolováno Antivirovým systémem AVG (http://www.grisoft(tec)cz).
|Verze: 7.0.225 / Virová báze: 261.9.16 - datum vydání: 1.3.2004
|
|
--
Odchozí zpráva neobsahuje viry.
Zkontrolováno Antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 7.0.225 / Virová báze: 262.5.4 - datum vydání: 18.3.2004
Zkopirovani oznaceneho textu z WebBrowser
[*] Petr Vones <pvones(zv)vol(tec)cz> - 22.3.2004 13:06:15
From: "Ing. Miroslav Vopalecky" <m.vopalecky(zv)tiscali(tec)cz>
> Nemohu zkopirovat oznaceny text (html dokumentu) zobrazeny pomoci
> komponenty WebBrowser (zalozka Internet) do clipboardu a z ni do jine
> aplikace. Tisk vybraneho textu je funkcni. Da se s tim neco delat?
Musis zavolat OleInitialize/Uninitialize v ramci cele aplikace.
Petr Vones
Cislovani versi programu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 22.3.2004 13:00:10
Je to celkem proste
major.minor.release.build
napr
2.5.35.900
druha verze meho boziho programu
ve ktere uz bylo udelano 5 velkych zmen (v teto verzi)
program (bez ohledu na verze) byl dan 35 ven a byl 900 zkompilovan :)
Brona
> Ahoj,
>
> existuji nejaka zavazna ci vseobecne uzivana pravidla pro
> cislovani versi proramu? Jak k tomu pristupujete vy?
>
> Diky
>
> Jakub
Zkopirovani oznaceneho textu z WebBrowser
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 22.3.2004 12:36:06
Dobry den
Nemohu zkopirovat oznaceny text (html dokumentu) zobrazeny pomoci
komponenty WebBrowser (zalozka Internet) do clipboardu a z ni do jine
aplikace. Tisk vybraneho textu je funkcni. Da se s tim neco delat?
S pozdravem Mirek Vopalecky, D7 W2000
TEdit a pouze cisla
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 22.3.2004 11:59:54
Zdravim,
na www.kopr(tec)cz/delphi
najdes komponentu KEdit, kde lze do filtru vlozit zadavane znaky.
Je zde moznost taky zadat typ cisla - realne, integer, pocet des imst apod.
Pavel ZIDEK
potreboval bych umoznit uzivateli zadat do editacniho pole pouze
cislice a desetinnou tecku tj aby tam nesly vkladat pismena a jine znaky
pls poradi nekdo jak to jednoduse udelat ?
diky PM
Resource stringy - zmena za behu programu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.3.2004 11:31:52
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Polak
> Sent: Monday, March 22, 2004 11:22 AM
>
> Asi sem se nevyjadril presne - mam delphi knihovnu(unitu) dcu
> - jsou tam definovane nejake resourcestringy a chtel bych mit
> moznost je menit v aplikaci za behu - napr. pri zmene jazyka,
> (mam udelane nacitani jazykovych konstatnt z normalniho
> textaku) a ty resourcestringy se tvari jako konstanty ale
> precijenom sem se chtel zeptat jestli se to nejak neda:)
> nechce se mi kompletne prepisovat aplikaci kvuli zmene
> pristupu k jazykovym lokalizacim
Ja jsem to zhruba pochopil. Jestlize ale mas dcu bez zdrojaku (pominme, ze
uz to samo o sobe je chyba), a ty texty uvnitr nelze propasirovat do tveho
kodu, pak holt budes asi muset zmenit pristup k lokalizacim. Zmena za behu
pak neni v D4+ problemem, jen se na to musi jit jinak nez to delas ted.
Prepisovat aplikaci neni treba, jen presmerujes uzivatelske volani zmeny
jazyka na jinou funkci. Zbytek tam muze zustat jako relikt.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Cislovani versi programu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 22.3.2004 11:19:49
to je asi automaticky .. alespon u me to tak je nastaveno
Kazdy prelozeni prg je +1
Jirka Virt
> Kde se da nastavit to automaticke zvysovani Build pri zkompilovani
(buildu)?ukonceni threadu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.3.2004 11:13:47
delphin(zv)post(tec)cz wrote:
> Potom nevidim duvod, proc v tomto pripade pouzivat blocking
> komunikaci.
Treba proto, ze pro blocking komunikaci existuje hotova knihovna,
zatimco asynchronni komunikaci bychom si museli napsat resp.
aktualizovat tu, co obcas pouzivame, coz si vzhledem
k napjatosti terminu nemuzeme dovolit.
> Pokud uz to nejde jinak, tak vlakno muze po skonceni
> operace napriklad poslat zpravu pomoci PostMessage
Stejne bude muset nekde ten hlavni thread na ceste
od WM_QUIT / WM_CLOSE cekat a informovat o tom BFU,
takze je jen otazka jak a na co.
A nez cekat na hodnotu nejake lokalni promenne nastavovane
onim asynchronnim postem, to je IMO srozumitelnejsi, mene pracne
a udrzovatelnejsi (algoritmus je rozdelen jen na dvou mistech) cekani
pomoci WaitForSingleObject(Thread.Handle,.....)
HTH, pf
Cislovani versi programu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.3.2004 11:19:49
Puvodni zprava ze dne 22.3.2004:
> Kde se da nastavit to automaticke zvysovani Build pri zkompilovani (buildu)?
Kupodivu tam, kde nastavujes cislo verze.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Resource stringy - zmena za behu programu
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 22.3.2004 11:21:50
Asi sem se nevyjadril presne - mam delphi knihovnu(unitu) dcu - jsou tam
definovane nejake resourcestringy a chtel bych mit moznost je menit v
aplikaci za behu - napr. pri zmene jazyka, (mam udelane nacitani jazykovych
konstatnt z normalniho textaku) a ty resourcestringy se tvari jako konstanty
ale precijenom sem se chtel zeptat jestli se to nejak neda:) nechce se mi
kompletne prepisovat aplikaci kvuli zmene pristupu k jazykovym lokalizacim
Pavel Polak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zbysek Hlinka
Sent: Monday, March 22, 2004 8:55 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Resource stringy - zmena za behu programu
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Polak
>> Sent: Sunday, March 21, 2004 11:57 PM
>>
>> chtel sem se zeptat je nejak mozne menit resourcestringy za
>> behu aplikace?
>> Mam knihovnu bez zdrojovych kodu a potreboval bych ji lokalizovat...
>
>To zalezi na tom, v cem je napsana. Pokud je napsana napriklad v MS C++,
pak
>budes mit asi smulu, pokud tam neni funkce na zmenu jazyka. Pokud v Delphi
4
>a vyse, pak to mozne je. Je treba vytvorit lokalizacni knihovnu, ktera
>obsahuje lokalizovane resources, a stringy museji byt ulozene v tabulce
>String (tedy ve zdrojaku jsou deklarovane jako resourcestring). Tato
>knihovna ma priponu jazyka, do ktereho je lokalizovana. Jestlize nemas ke
>knihovne zdrojaky, pak je treba rozebrat knihovnu, prelozit, a poskladat
>zpet lokalizacni modul. Tohle umi napriklad http://www.localizator.com
Cislovani versi programu
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 22.3.2004 11:17:48
> Major version - zacinam 1 (resp 0 ak to este z uvedenim nemyslim
> celkom vazne) a zvysujem pri vyraznej zmene
> Minor version - ked zmenim Major version vynulujem, inak zvysujem pri
> kazdom vydani novsej verzie
> Release - zvysujem od 1 do nekonecna pri vydani novej verzie, nikdy
> nenulujem
> Build - mam vzdy nastavene zvysenie pri skompilovani "Build".
Kde se da nastavit to automaticke zvysovani Build pri zkompilovani (buildu)?
Jirka Matejka
Cislovani versi programu
[*] Koteles Jan <koteles(zv)lumen.sk> - 22.3.2004 11:11:46
> existuji nejaka zavazna ci vseobecne uzivana pravidla pro
> cislovani versi proramu? Jak k tomu pristupujete vy?
Vychadzam z popisovych poli cislovaca.
Major version - zacinam 1 (resp 0 ak to este z uvedenim nemyslim celkom
vazne) a zvysujem pri vyraznej zmene
Minor version - ked zmenim Major version vynulujem, inak zvysujem pri kazdom
vydani novsej verzie
Release - zvysujem od 1 do nekonecna pri vydani novej verzie, nikdy
nenulujem
Build - mam vzdy nastavene zvysenie pri skompilovani "Build".
Takto sa to mne osobne javi ako dobry sposob cislovania
jk
ukonceni threadu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 22.3.2004 11:09:45
>
> Potom nevidim duvod, proc v tomto pripade pouzivat blocking
> komunikaci. Pokud uz to nejde jinak, tak vlakno muze po
> skonceni operace napriklad poslat zpravu pomoci PostMessage a
> hlavni vlakno tak nebude blokovane WaitFor.
Bude, jelikoz jsem v cera zkoumal destructory D5 a D7 pro vlakna
a v desructoru je kod, ktery podminene zavola terminate a pak ceka na
waitfor.
Tady by sice slo pouzit freeonterminate, ale nevym, jetli to to prave
pro tento
pripad.
Resenim by byla asynchroni komunikace (bohuzel z prispevku neplyne
jaka),
ale ve vetsine pripadu lze nastavit timeout pro blokujici operace.
Cely prijem rozdelit do vice casti (rekneme po 0.2 sec) a pak si jej
rucne skladat
(coz je jeden az tri radky kodu).
Dalsi moznosti je ukonceni aplikace pomoci ExitProcess, to by resilo vse
:)))).
Slavek
Ako na formular s ciselnikmi - efektivne
[*] David Liska <konference(zv)thsoft(tec)cz> - 22.3.2004 11:07:44
Pro editacni formulare si take vytvoris sablonu (TSabEditFrm).
V sablone ciselniku budes mit promenne pro zadani typu editacniho formu
public
EditFrm: TSabEditFrm;
TEditFrm: TFormClass;
a univerzalni proceduru pro otevreni edit. formu
procedure TSabCiselnikFrm.ActionEditExecute(Sender: TObject);
begin
EditFrm := TEditFrm.Create(Application);
with EditFrm do
begin
{naplneni potrebnych promennych}
Show;
end;
end;
v kazdem potomkovi ciselniku si pak nadefinujes jednoduchou vec a to je typ
editacniho formulare
napr:
procedure TStrediskaFrm.FormCreate(Sender: TObject);
inherited;
TEditFrm := TStrediskaEditFrm;
end;
Zalezi jen na tom, kolik kodu jsi schopen napsat univerzalne a umistit na
sablonu.
David
----- Original Message -----
From: <mstevlik(zv)gamo.sk>
> To je pekne riesenie, ale problem nastane vtedy, ked musit vytvorit
> detailove okna (kedze nie vsetci zakaznici maju radi editaciu priamo v
> gride)
> Potom musis opat vytvorit od nejakeho predka pre detail formular hafo
> potomkov, kt. ti budu riesit kazdy ciselnik
Cislovani versi programu
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 22.3.2004 11:01:43
Ahoj,
existuji nejaka zavazna ci vseobecne uzivana pravidla pro
cislovani versi proramu? Jak k tomu pristupujete vy?
Diky
Jakub
ukonceni threadu
[*] delphin(zv)post(tec)cz - 22.3.2004 10:53:41
> Mame zrovna takovou nestastnou aplikaci s blocking komunikaci,
> kde nam visi prijimac desitky sekund a nejde breaknout,
> kdyz netecou data. Delame to tak, ze zname timeout,
> takze si zapamatujeme cas posledniho volani receive a kdyz dojde k
pozadavku
> na break, jsme schopni presne odhadnout, jak dlouho to jeste bude cekat na
> I/O operaci a kreslit progress bar.
Potom nevidim duvod, proc v tomto pripade pouzivat blocking komunikaci.
Pokud uz to nejde jinak, tak vlakno muze po skonceni operace napriklad
poslat zpravu pomoci PostMessage a hlavni vlakno tak nebude blokovane
WaitFor.Aplikacni server
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 22.3.2004 10:47:40
> Jak je to s komponentami IBX a FB 1.5? Jsou si kompatibilni?
Zadny problem, je ale treba mit spravnou verzi gds32 dll.> Co je to TCP tunel a jak ho aplikovat?
spoji nektery z portu lokalniho PC s portem vzdaleneho PC.
Tusim, ze kompresi umi SSH tunnel.
Je zde vsak problem s TCP over TCP, takze to chce vyzkouset.
Jinak by to melo jit udelat tak, ze jeden PC na siti bude prijimat
vsechny pozadavky na spojeni se serverem, ty pak bude agregovat
do jednoho SSH tunelu na server.
Na windows je SSH tunel soucasti putty (plink.exe), akorat nevim,
jestli je k dispozici SSH server pro windows.
Reseni je vice, tohle mne okamzite napadlo.
Dej pak vedet vysledky.
Slavek
>
> David
> ADMIN: Varovani pred nevyzadanou dobirkou
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.3.2004 10:27:37
Puvodni zprava ze dne 22.3.2004:
> Ahoj, do firem chodi nevyzadana dobirka, jmenovite od Davida
> Jace, ktery zasila pocitacovy program Gallery Marker, ktery si nikdo
> neobjednal.
Je od Tebe pekne, ze nas chces varovat. Nicmene na takova varovani je
mysleno v pravidlech - jsou zakazana. Tohle je konference o
programovani. Ber to jako napomenuti a pravidla si prosim nastuduj.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ukonceni threadu
[*] delphin(zv)post(tec)cz - 22.3.2004 10:05:32
> Kdyz thread bude napriklad provadet nejakou I/O operaci, ktera bude trvat
> nekolik desitek vterin - pokud bu uzivatel vypinat pocitac, tak bude muset
O jakou I/O operaci se jedna, ze trva nekolik desitek vterin ?ukonceni threadu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.3.2004 10:11:34
Karolina Nemanska wrote:
> thread.waitfor;
> tak se mi aplikace "zahryzne" - nezpracovava zpravy, dokud neni vlakno
Protoze WaitFor() nedela nic jineho nez ze vola API fci
WaitForSingleObject(Thread.Handle, INFINITE), takze staci misto INFINITE dat
nejake male casove kvantum nebo 0 a volat si to z vlastniho cyklu.> Jakym zpusobem to udelat tak, aby se vypsala uzivateli
> hlaska, ze se ceka na ukonceni vlakna a treba nejaky dokola bezici
> progressbar?
Mame zrovna takovou nestastnou aplikaci s blocking komunikaci,
kde nam visi prijimac desitky sekund a nejde breaknout,
kdyz netecou data. Delame to tak, ze zname timeout,
takze si zapamatujeme cas posledniho volani receive a kdyz dojde k pozadavku
na break, jsme schopni presne odhadnout, jak dlouho to jeste bude cekat na
I/O operaci a kreslit progress bar.
Vlastni thread hubime standardne tzn. mame dedikovanou event,
kterou nastavime do stavu signaled, na coz thread, az dokonci rozdelane,
reaguje ukoncenim metody Execute.
Nic uzivatelsky privetivejsiho nas nenapadlo - tedy krome toho vykopat
tu synchronni komunikaci.
HTH, pf
with v c++
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.3.2004 09:43:30
Karel Kral wrote:
> Pak jsem do zaznamu, ktery byl ve with doplnil promennou
> stejneho jmena jako lokalni promenna a ejhle:
Kdyz si to zpusobis sam, tak to je jeste pul bidy, to Te drive ci pozdeji
napadne,
ale horsi je, kdyz k podobnemu stavu dojde vlivem zmeny nejakeho predka,
kterou delal jiny clen teamu popr. po upgradu v knihovne od treti strany.
Proto bych doporucoval na with hodne rychle zapomenout, protoze
jeho prinos je diskutabilni a rizika velka. A kdyz uz bez nej nekdo nemuze
zit,
tak bych se omezil jen na lokalni uziti ve spojeni s ustalenymi strukturami,
napr.
with Rect do
.... (...,Left+4,Top+2,....);
HTH, pf
Ako na formular s ciselnikmi - efektivne
[*] mstevlik(zv)gamo.sk - 22.3.2004 09:33:29
> Tohle mam delane jednou sablonou (TSabCiselnikFrm), v te sablone mam
Grid,
> DataSet, tlacitka pro Insert, Edit, Delete, Tisk, atd... V teto sablone
> napises vsechny obsluhy tlacitek, otevreni datasetu apod.
> Z teto sablony pak zdedis konkretni ciselnik (TStrediskaFrm), v nem
akorat
> napises Caption formu, SQL dotaz do datasetu, natahnes si fieldy,
pojmenujes
> je a mas to hotove.
>
> David
To je pekne riesenie, ale problem nastane vtedy, ked musit vytvorit
detailove okna (kedze nie vsetci zakaznici maju radi editaciu priamo v
gride)
Potom musis opat vytvorit od nejakeho predka pre detail formular hafo
potomkov, kt. ti budu riesit kazdy ciselnik
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
delphi-l-owner(zv)clexpert(tec)cz wrote on 22.03.2004 09:19:27:ukonceni threadu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 22.3.2004 09:27:28
cekani na process ne ve smicce ale pouzij WaitForSingleObject
jestli to je ekvivalent thread.waitfor to netusim ...
Jirka Virt
Ako na formular s ciselnikmi - efektivne
[*] David Liska <konference(zv)thsoft(tec)cz> - 22.3.2004 09:19:27
Tohle mam delane jednou sablonou (TSabCiselnikFrm), v te sablone mam Grid,
DataSet, tlacitka pro Insert, Edit, Delete, Tisk, atd... V teto sablone
napises vsechny obsluhy tlacitek, otevreni datasetu apod.
Z teto sablony pak zdedis konkretni ciselnik (TStrediskaFrm), v nem akorat
napises Caption formu, SQL dotaz do datasetu, natahnes si fieldy, pojmenujes
je a mas to hotove.
David
----- Original Message -----
From: "Matrix Development" <matrix(zv)inmail(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 22, 2004 12:20 AM
Subject: Ako na formular s ciselnikmi - efektivne
> Dobry den,
> urcite to riesite denne, a tak sa na vas obraciam.
> Predtavte si DB aplikaciu, napr. take uctovnicky program.
> Mate niekolko ciselnikov, napr. konst.symboly, strediska, atd..
> V podstate jednoduche tabulky.
>
> Ako teda efektivne v delphi s nimi pracovat? Nemyslim pracu s
> tabulkami ale s FORMULARMI.
>
> Idealny stav by bol, ak by existoval IBA JEDEN form, napr.
> frm_ciselnik.
>
> A ak chcem otvorit konst.symboly zavolam frm_ciselnik a poviem mu
> (neviem ako) aby sa v nom objavili data z tabulky konst.symboly.
> Dufam, ze ma rozumiete, nechcem vytvarat pre kazdu tabulku (ciselik)
> zvlast formular, pretoze sa jedna v principe stale o primitivny
> edit,insert,update form.
>
> Pocul som o pojme viacnasobny formular, skusal som, to ale stale mi to
> nechodi, vid priklad :
> - mam frm_ciselnik, kde je v onCreate
> if Sender = ciselnik_ksymbol then begin
>
> Caption := 'Ciselnik Konstantne symboly';
> dataset.DataSource := datasource.konstsymboly;
> Exit;
> end;
> if Sender = ciselnik_strediska then begin
> Caption := 'Ciselnik Strediska';
> dataset.DataSource := datasource.konstsymboly;
> Exit;
> end;
> - v onclosequery nastavujem nil pre datasource:
> dataset.DataSource := nil;
> - a v onclose je :
> Action := caFree;
>
> - ten ciselnik volam z hlavneho formulara takto:
> Application.CreateForm(Tfrm_ciselnik, ciselnik_ksymbol);
> try
> tabulkaciselnikksymbol.open
> ciselnik_ksymbol.ShowModal;
> finally
> ciselnik_ksymbol.Free;
> tabulkaciselnikksymbol.Close;
> end;
> .
> .
> .
>
> Mam vsak problem s tym, ze ked otvorim 4krat iny form, potom to
> blbne. Ako keby sa nieco neuvolnilo - ako keby sa ten aktualny
> ciselnik nezrusil s pamate (nefunguje free?)..
> Robim niekde chybu? Alebo to je BUG v Delphi?(v poslednom case po
> citani prispevkov v konferencii ma to dost casto napada, ale chvala
> bohu bol stale problem medzi klavesnicou a stolickou) Alebo sa to ma
riesit
> inak?
>
> Neviem, prosim poradte mi
>
> M.
> D7Pro,WXP
>
>
> ----------
> * www.inMail(tec)cz - Vase emailova adresa na cely zivot ZDARMA
> * Mail neobsahuje viry. Zkontrolovano antivirem NOD32 (www.nod32(tec)cz)
>
>
ukonceni threadu
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 22.3.2004 08:59:24
Dobre, dobre, sypu si popel na hlavu :(
A jak tedy pro uzivatele vyresit cekani na ukonceni threadu?
Kdyz thread bude napriklad provadet nejakou I/O operaci, ktera bude trvat
nekolik desitek vterin - pokud bu uzivatel vypinat pocitac, tak bude muset
cekat na ukonceni a to neni zrovna prijemne chovani programu...
Dalsi vec - pokud dam
thread.terminate;
thread.waitfor;
tak se mi aplikace "zahryzne" - nezpracovava zpravy, dokud neni vlakno
ukonceno. Jakym zpusobem to udelat tak, aby se vypsala uzivateli hlaska, ze
se ceka na ukonceni vlakna a treba nejaky dokola bezici progressbar?
Karolina
with v c++
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 22.3.2004 08:37:19
Ja ho tedy pouzivam casto ale je to zdrojem nebezpecnych chyb zejmena
pri upravach v budoucnu.
Uz se mi stala nekolikrat situace, ze jsem prirazoval pomoci With nejake
promenne do lokalnich. Vse fungovalo. Pak jsem do zaznamu, ktery byl ve
with doplnil promennou stejneho jmena jako lokalni promenna a ejhle:
misto toho, aby se prirazovaly promenne z recordu do lokalni promenne,
prirazovala se ta sama promenna do sebe.
"L. Svoboda" wrote:
>
> Proc by mel byt tento prikaz nebezpecny?
> Netvrdim, ze neni, jen se ptam :-)
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Resource stringy - zmena za behu programu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.3.2004 08:55:23
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Polak
> Sent: Sunday, March 21, 2004 11:57 PM
>
> chtel sem se zeptat je nejak mozne menit resourcestringy za
> behu aplikace?
> Mam knihovnu bez zdrojovych kodu a potreboval bych ji lokalizovat...
To zalezi na tom, v cem je napsana. Pokud je napsana napriklad v MS C++, pak
budes mit asi smulu, pokud tam neni funkce na zmenu jazyka. Pokud v Delphi 4
a vyse, pak to mozne je. Je treba vytvorit lokalizacni knihovnu, ktera
obsahuje lokalizovane resources, a stringy museji byt ulozene v tabulce
String (tedy ve zdrojaku jsou deklarovane jako resourcestring). Tato
knihovna ma priponu jazyka, do ktereho je lokalizovana. Jestlize nemas ke
knihovne zdrojaky, pak je treba rozebrat knihovnu, prelozit, a poskladat
zpet lokalizacni modul. Tohle umi napriklad http://www.localizator.com
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Aplikacni server
[*] David Liska <konference(zv)thsoft(tec)cz> - 22.3.2004 08:51:22
Myslel jsem si, ze se vzdy varchar prenasel jen o skutecne delce. Jde mi o
prenos asi 80 varcharu v jedne vete pricemz 70% z nich nemusi byt vyplneno a
take vetsinou neni. Bohuzel ty informace uzivatel potrebuje vsechny. Takze
jestli FB 1.5 uz prenasi varchary dynamicky, urcite zlepseni by mohlo
nastat. Deklarovat vsechny texty jako BLOB me nenapadlo, ale kdyz ted
premyslim o vyhodach a nevyhodach, mozna to neni spatny napad.
Jak je to s komponentami IBX a FB 1.5? Jsou si kompatibilni?
Co je to TCP tunel a jak ho aplikovat?
David
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>> Co takle novy FB1.5, ten by mel mit prenos stringu jen o skutecne delce.
> Jinal je mozne to prohnat TCP tunelem s kompresi.
> Pokud budes prenaset binarni data, tak si asi moc nepomuzes, jelikoz
> ty data musis prenest.
> Na FB1 se to resilo tak, ze stringy se nedeklarovali jako varchar, ale
> jako
> blob typu text (ty jsou reseny dynamicky a navic jsou dynamycky i v
> delphi datasetu).
> Jinak to chce ciselniky pres lookup fieldy, atd.
>
> Potupocval bych:
> 1. TCP tunnel
> 2. FB1.5
> 3. Optimalizace aplikace
> 4. Zcela to prepsat
> 5. vcetne jineho protokolu
>
> Slavek
webbrowser - zabraneni window.close
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 22.3.2004 08:41:20
Roman Sitina wrote:
> Dobry den,
> muze mi prosim nekdo poradit jak se dostat ke hlubsimu nastveni twebbrowser?
> Jde mi zejmena o zabraneni moznosti zavreni okna pres javascript.
> A dalsi vec - lze podobne - takhle jednoduse - pouzivat jadro netscapu nebo
> pripadne jineho browseru?
Ahoj,
muzes pouzivat jadro Mozilly. Jestli ji mas nainstalovanou (ne Firefox),
tak si muzes naimportovat jeji active-x (a jestli ji nemas, tak si muzes
stahnout active-x only verzi mozilly. ma asi 6mb. viz url nize). Melo by
to byt kompatibilni s twebbrowser-em (tj. stejne metody, vlastnosti,
etc). Podivej se na stranku http://www.iol.ie/~locka/mozilla/mozilla.htm
. Tam o tomto najdes o hodne vic. Pokud jde o moje zkusenosti, tak se mi
to zda celkem dobry (zvlast pro lidi co nemaj radi IE :), ale obcas mi
to v design-time zatuhlo cely pc :(. V runtime jsem zadne problemy
nemel. Teda az na to ze se tomu obcas nechce resizovat. To je reseny v
tomto priklade http://www.iol.ie/~locka/mozilla/delphidemo.zip.
snad jsem pomohl
Zdravi Spider_X
OT: Varovani pred nevyzadanou dobirkou
[*] Dalibor <dalibor(zv)torola(tec)cz> - 22.3.2004 07:27:09
Ahoj, do firem chodi nevyzadana dobirka, jmenovite od Davida Jace, ktery zasila pocitacovy program Gallery Marker, ktery si nikdo neobjednal.
Vice info tady: http://www.zive(tec)cz/mod_consultancy/SubChild.asp?Qst=131112&Main=56
Takze si dejte pozor.
Dalibor
Dynamicka tvorba objektov- vlastnosti
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 22.3.2004 06:55:04
Dobry den,
potrebujem nakopnut. Chcem dynamicky vytvarat objekty na formulari. A
nechcem pritom kazdemu nastavovat vlastnosti rucne v kode.
Predstavujem si nieco na sposob DFM, nie vsak samostatny subor ale
snad ako nejake konstanty ci polia.
Teda nechcem pisat do kodu Label1.Text :=' blabla'; Label1.Visible
:= True;
Chcem tieto hodnoty nejako do kodu zadat ( neviem ako ) a potom za
behu pouzit (tiez neviem ako).
Vdaka.
P.Svorc
Tmemo a max. pocet znaku/radku a par dalsich dotaz
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.3.2004 23:52:34
From: "Ales Kresta" <kresta.ales(zv)seznam(tec)cz>
> takze prvni otazka. Prozatim mi plne vyhovuje, ale nemate s ni nekdo
> problemy, nebo doporucili byste nejakou lepsi??
Nejlepsi nevizualni komponenta je zadna komponenta :-)
> A posledni dotaz, komunikaci bych chtel zaznamenavat do nejake komponenty
> (neco podobne jako Tmemo) ale problem bude asi s max. poctem radku, takze
> jsem uvazoval, ze pri prekroceni treba 1000 radku, vzdy pred pridanim jeden
> prvni umazu a jeden na konec pridam, ale algoritmus kterym bych to chtel
Existuje plno komponent pro terminalovy vystup s kruhovym bufferem. Napriklad:
http://sourceforge.net/projects/asyncfree
http://sourceforge.net/projects/tpapro/
Petr Vones
Nekompatibilita Delphi 7 trial / ostre a Professio
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.3.2004 23:52:34
From: "Jakub Dusek" <delphi(zv)corexpert.com>
> narazil jsem na takovy problem. Vstupujeme narychlo do jednoho
> projektu, castecne ma zdrojaky, ale pouziva nektere komponenty tretich
> stran, ktere jsou bez zdrojaku, ve forme DCU, maji byt urceny pro
Tak od toho rychle pryc.
> Vim, ze DCU jsou nekompatibilni mezi verzemi, nevi nekdo jestli jsou
> nekompatibilni i mezi edici Professional a Enterprise v ramci jedne
> verze (samozrejme za predpokladu ze nepouzivaji nic co jedna verze ma
> a druha ne)? A dale, protoze je to narychlo, zatim jsem se projekt
DCU nejsou kompatibilni mezi ostrou a trial verzi (i kdyz to nevim to jiste) a
predevsim v trial verzi neni kompatibilni sam prekladac, ktery neumi prelozit
unity s WEAKPACKAGEUNIT direktivou, coz muze byt soucast kodu komponent.
Petr Vones
Ako na formular s ciselnikmi - efektivne
[*] Matrix Development <matrix(zv)inmail(tec)cz> - 22.3.2004 00:20:38
Dobry den,
urcite to riesite denne, a tak sa na vas obraciam.
Predtavte si DB aplikaciu, napr. take uctovnicky program.
Mate niekolko ciselnikov, napr. konst.symboly, strediska, atd..
V podstate jednoduche tabulky.
Ako teda efektivne v delphi s nimi pracovat? Nemyslim pracu s
tabulkami ale s FORMULARMI.
Idealny stav by bol, ak by existoval IBA JEDEN form, napr.
frm_ciselnik.
A ak chcem otvorit konst.symboly zavolam frm_ciselnik a poviem mu
(neviem ako) aby sa v nom objavili data z tabulky konst.symboly.
Dufam, ze ma rozumiete, nechcem vytvarat pre kazdu tabulku (ciselik)
zvlast formular, pretoze sa jedna v principe stale o primitivny
edit,insert,update form.
Pocul som o pojme viacnasobny formular, skusal som, to ale stale mi to
nechodi, vid priklad :
- mam frm_ciselnik, kde je v onCreate
if Sender = ciselnik_ksymbol then begin
Caption := 'Ciselnik Konstantne symboly';
dataset.DataSource := datasource.konstsymboly;
Exit;
end;
if Sender = ciselnik_strediska then begin
Caption := 'Ciselnik Strediska';
dataset.DataSource := datasource.konstsymboly;
Exit;
end;
- v onclosequery nastavujem nil pre datasource:
dataset.DataSource := nil;
- a v onclose je :
Action := caFree;
- ten ciselnik volam z hlavneho formulara takto:
Application.CreateForm(Tfrm_ciselnik, ciselnik_ksymbol);
try
tabulkaciselnikksymbol.open
ciselnik_ksymbol.ShowModal;
finally
ciselnik_ksymbol.Free;
tabulkaciselnikksymbol.Close;
end;
.
.
. Mam vsak problem s tym, ze ked otvorim 4krat iny form, potom to
blbne. Ako keby sa nieco neuvolnilo - ako keby sa ten aktualny
ciselnik nezrusil s pamate (nefunguje free?)..
Robim niekde chybu? Alebo to je BUG v Delphi?(v poslednom case po
citani prispevkov v konferencii ma to dost casto napada, ale chvala
bohu bol stale problem medzi klavesnicou a stolickou) Alebo sa to ma riesit
inak?
Neviem, prosim poradte mi
M.
D7Pro,WXP
----------
* www.inMail(tec)cz - Vase emailova adresa na cely zivot ZDARMA
* Mail neobsahuje viry. Zkontrolovano antivirem NOD32 (www.nod32(tec)cz)ukonceni threadu
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.3.2004 23:52:35
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> Zdravim vas, prevazne asi chlapci...
> Ucim se pracovat s thready a nevim jakym zpusobem nejake vlakno zrusit, i
> kdyz jeste bezi... Vim, ze vlakno by melo byt naprogramovano tak, aby samo
> reagovalo na pozadavky zruseni, ale v nekterych pripadech to proste nejde...
Vzdy to musi jit. To je jen vec navrhu (v tomto pripade asi spatneho). Je
opravdu hodne malo situaci kdy je takove reseni omluvitelne.
> Potrebuji ho zrusit nejak natvrdo ale pritom ciste - s uvolnenim pameti a
> tak.
To dost dobre nelze. Existuje sice funkce TerminateThread ale ta se vyznacuje
prave moznymi problemy s uvolenenim pameti a dalsich internich struktur ktere
patri threadu.
Petr Vones
Viewing PDF file
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.3.2004 23:52:32
From: "DH-Soft CZ" <spravce(zv)dh-soft(tec)cz>
> Poradi mi nekdo, jakou komponentu pouzit pro zobrazeni PDF souboru. Neco
> podobneho jako tPdf, ale abych nemusel mit v systemu instalovany Adobe
> Akrobat, apod. Proste vlastni zobrazeni (tisk, lupu) PDF.
Takova komponenty jsou vetsinou za astronomicke ceny nebo neumi zobrazit PDF
zcela spravne. Zkus se podivat na GhostScript ale ten je tusim infikovan GPL
licenci, takze jako vyvojari je ti vlastne k nicemu.
Petr Vones
vlakno - zacatecnik
[*] Petr Vones <pvones(zv)vol(tec)cz> - 21.3.2004 23:52:33
From: "Matejcek Petr" <konference(zv)crhov.komfi(tec)cz>
> vlakno spustim : vlakno.resume
> zastavim jako vlakno.suspend
Tohle neni dobre protoze nevis kde se presne zastavi. Lepsi reseni je pouzivat
eventy a wait funkce.
Petr Vones
Resource stringy - zmena za behu programu
[*] Pavel Polak <admin(zv)golden-html(tec)com> - 21.3.2004 23:56:36
Zdravim,
chtel sem se zeptat je nejak mozne menit resourcestringy za behu aplikace?
Mam knihovnu bez zdrojovych kodu a potreboval bych ji lokalizovat...
Diky Pavel Polak
ukonceni threadu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.3.2004 23:48:31
> Zdravim vas, prevazne asi chlapci...
> Ucim se pracovat s thready a nevim jakym zpusobem nejake
> vlakno zrusit, i kdyz jeste bezi... Vim, ze vlakno by melo
> byt naprogramovano tak, aby samo reagovalo na pozadavky
> zruseni, ale v nekterych pripadech to proste nejde...
Musi to jit.
> Potrebuji ho zrusit nejak natvrdo ale pritom ciste - s
> uvolnenim pameti a tak. Poradite?
Jinak to asi nepujde !
Jak chces asi tak uvolnit pamet, o ktere nikdo jiny nevi ?
To lze akorat u procesu, jelikoz se vi, jakou pamet ten proces alokoval.
Slavek
ukonceni threadu
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 21.3.2004 23:02:28
Zdravim vas, prevazne asi chlapci...
Ucim se pracovat s thready a nevim jakym zpusobem nejake vlakno zrusit, i
kdyz jeste bezi... Vim, ze vlakno by melo byt naprogramovano tak, aby samo
reagovalo na pozadavky zruseni, ale v nekterych pripadech to proste nejde...
Potrebuji ho zrusit nejak natvrdo ale pritom ciste - s uvolnenim pameti a
tak.
Poradite?
Hezkou noc, pripadne hezke rano!
Karolina
with v c++
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 21.3.2004 22:00:17
> iba drobnost, ze nic sa v novych jazykoch take nevyskytuje.
>
> slovicko "using" zo C# ma asi vsetky tieto "nebezpecne" vlastnosti, ktore
> spominate v dalsom maily.
tu je zdovodnenie autorov jazyka C#, preco tam 'with' prikaz chyba:
http://msdn.microsoft.com/vcsharp/team/language/ask/default.aspx
Predpokladam, ze hovoris o C# 'using' directive (nie prikaze).
Ano, tam je spominany problem s nejednoznacnostou a vyplyva
z celkovo zlej koncepcii 'namespace'. Namespace je zdanlivo
vyhodna zalezitost, ktora ma riesit problem rovnakych identifikatorov,
ale riesi to zial takym sposobom, ze vnucuje hierarchiu tried
a to este priamo do zdrojakov.
Erik
with v c++
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 21.3.2004 19:57:50
iba drobnost, ze nic sa v novych jazykoch take nevyskytuje.
slovicko "using" zo C# ma asi vsetky tieto "nebezpecne" vlastnosti, ktore
spominate v dalsom maily.
('with' prikaz setri pisanie kodu za cenu rizika nejednoznacnosti a teda
moznej zameny identifikatorov.
Komplikuje to detekciu chyb kompilatorom aj ladenie programov.)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Erik Salaj, Winsoft
Sent: Saturday, March 20, 2004 10:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: with v c++
> mam stupidni dotaz: co je ekvivalentem k prikazu 'with' v cecku?
C-cko nema obdobny prikaz. Prikaz 'with' patri k dost
"nebezpecnym" prikazom a zrejme preto sa v novsich
jazykoch ako je C# alebo Eiffel nevyskytuje.
Erik
TEdit a pouze cisla
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 21.3.2004 19:39:43
: DD,
:
: potreboval bych umoznit uzivateli zadat do editacniho pole pouze
: cislice a desetinnou tecku tj aby tam nesly vkladat pismena a jine znaky
:
: pls poradi nekdo jak to jednoduse udelat ?
:
: diky PM
Zdravim,
najjednoduchsie mi pride obsluzit onKeyPressed klasickeho TEdit, resp. vyuzit
nejak TMaskEdit, pripadne sa pozriet na komponenty z
http://jvcl.sourceforge.net, konkretne: TJvFloatEdit, TJvFloatEdit2,
TJvCurrencyEdit, TJvIntegerEdit.
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
TEdit a pouze cisla
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 21.3.2004 19:03:39
DD,
potreboval bych umoznit uzivateli zadat do editacniho pole pouze
cislice a desetinnou tecku tj aby tam nesly vkladat pismena a jine znaky
pls poradi nekdo jak to jednoduse udelat ?
diky PM
Tmemo a max. pocet znaku/radku a par dalsich dotaz
[*] Ales Kresta <kresta.ales(zv)seznam(tec)cz> - 21.3.2004 17:13:20
Zdravim,
mam takovy problem: Delam aplikaci, ktera bude komunikovat pres RS232. Pro komunikaci pouzivam komponentu TMS Async32 TVaComm,
takze prvni otazka. Prozatim mi plne vyhovuje, ale nemate s ni nekdo problemy, nebo doporucili byste nejakou lepsi??
Potom se chci jeste zeptat na kodovani spec. znaku (Enter, escape...), nekde v demu jsem prisel na to, ze ENTER lze napsat jako #13, existuje nekde tabulka techto znaku?? Popripade co znamena #10 a jak napisi znak Escape???
A posledni dotaz, komunikaci bych chtel zaznamenavat do nejake komponenty(neco podobne jako Tmemo) ale problem bude asi s max. poctem radku, takze jsem uvazoval, ze pri prekroceni treba 1000 radku, vzdy pred pridanim jeden prvni umazu a jeden na konec pridam, ale algoritmus kterym bych to chtel delat mi pripada hodne casove narocny. Neresili jste nekdy nekdo neco podobneho??
Predem diiiiky moooc za radu
delphi a soubor otevritelny v excelu
[*] Ales Kresta <kresta.ales(zv)seznam(tec)cz> - 21.3.2004 17:13:19
Dobry den,
vim ze to tady asi uz nekolikrat bylo, ale potreboval bych ve sve aplikaci ukladat data do souboru, ktery by potom byl otevritelny v excelu. Vzdy jste to tu resili pres OLE rozhrani a Excel, ale chci se zeptat, zda neexistuje nejaky jednodussi zpusob. Neco fakt hodne jednoduche. Uvazoval uz jsem o html souboru nebo txt, ale potrebovyl bych neco co by bylo asociovane s excelem.
Predem diky za odpoved
with v c++
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 21.3.2004 13:35:51
> Proc by mel byt tento prikaz nebezpecny?
> Netvrdim, ze neni, jen se ptam :-)
'with' prikaz setri pisanie kodu za cenu rizika
nejednoznacnosti a teda moznej zameny identifikatorov.
Komplikuje to detekciu chyb kompilatorom
aj ladenie programov.
Erik
pristup na firebird cez internet
[*] URBAN Leos <leos.urban(zv)qds(tec)cz> - 21.3.2004 11:21:37
> nuz ok, ale ked to chcem pustit cez firewall ? ake porty povolit ? resp.
> viem konfigurovat porty ?
gds_db 3050/tcp # Firebird SQL Database Remote Protocol
Takze firewall by mel naslouchat na 3050, povolit pristup jen pro
prislusne IP adresy z internetu a predavat urcenemu lokalnimu PC.
Konfigurace firewallu by nemela byt problem.
Problemem uz trochu muze byt zabezpeceni tech prenasenych dat pri
putovani internetem.
Leos
pristup na firebird cez internet
[*] Ivan Turcan <iturcan(zv)drake.sk> - 21.3.2004 10:17:32
> server:=IPServera (PC na ktorom je db)
> Path:=cesta k databaye tak ako ju vidi ten pocitac na ktorom je fzyicky
> umietnena
nuz ok, ale ked to chcem pustit cez firewall ? ake porty povolit ? resp.
viem konfigurovat porty ?
vdaka
Ivan
with v c++
[*] L. Svoboda <konference(zv)fdsystem(tec)cz> - 21.3.2004 04:56:48
Proc by mel byt tento prikaz nebezpecny?
Netvrdim, ze neni, jen se ptam :-)
Ludek Svoboda
> C-cko nema obdobny prikaz. Prikaz 'with' patri k dost
> "nebezpecnym" prikazom a zrejme preto sa v novsich
> jazykoch ako je C# alebo Eiffel nevyskytuje.
>
> Erik
with v c++
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.3.2004 00:02:11
Puvodni zprava ze dne 20.3.2004:
> mam stupidni dotaz: co je ekvivalentem k prikazu 'with' v cecku?
No podle me nic :)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
with v c++
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 20.3.2004 22:00:02
> mam stupidni dotaz: co je ekvivalentem k prikazu 'with' v cecku?
C-cko nema obdobny prikaz. Prikaz 'with' patri k dost
"nebezpecnym" prikazom a zrejme preto sa v novsich
jazykoch ako je C# alebo Eiffel nevyskytuje.
Erik
OT: with v c++
[*] P&v <pa.v(zv)seznam(tec)cz> - 20.3.2004 20:37:52
Dd,
mam stupidni dotaz: co je ekvivalentem k prikazu 'with' v cecku?
D
ADMIN: Nova verze filtru konference
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.3.2004 19:56:52
Ahoj,
prave jsem na server nasadil novou verzi filtrovaci sluzby. Vylepsil
jsem kontrolu reklamnich bordelu a take kontrolu spravneho quotovani.
Tak kdyby neco nefungovalo, dejte mi vedet na muj e-mail.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Table.Filter
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 20.3.2004 15:56:16
Ahoj,
On 20 Mar 2004 at 14:18, Ladislav Novak wrote:
> jsem naprosty zacatecnik a mozna beru veci moc od konce, takze to jde
> obcas docela ztuha.... pokud mi nekdo pomuze, posoupne me zas o pekny
> kus dal.. Vytvoril jsem si jednoduchou databazi Paradox a snazim se v
pokud jses zacatecnik - a chces se naucit opravdu programovat, tak
udelas neljepe, kdyz na Paradox ZAPOMENES.
V dobe, kdy SQL databaze, napr. Firebird jsou - i pro komercni uziti -
volne siritelne, je zacinani s Paradoxem plytvanim Tveho casu,
ziskavani spatnych navyku, ktere se budes pracne odnaucovat.
BDE je jiz mrtva platforma, nekteri by namitli, ze i Delphi :-)))
< ale SQL je a bude pouzivan i na *.NET >.
Jazyk SQL se budes muset stejne naucit a v Tvem pripade mas sanci
neztracet cas s komponentami typu TTable.
Nakonec totiz stejne narazis na limit teto komponenty a budes
chtic/nechtic muset zacit problem resit komponentou TQuery.
> Vim, ze se tady zabyvate trochu silenejsimi problemy, ale tak nejak
> doufam, ze nekdo poradi i uplnymu zacatecnikovi..
Jsou rady, ktere ocenis az casem.
Na http://www.dbsvet(tec)cz (popripade i jinde na Internetu) najdes
serial o SQL, v konferenci je plno odkazu na skripta.
Na http://www.ibphoenix(tec)cz/ info o Firebirdu.
V prodeji je knizka P. Cisare "Podrobna prirucka
Interbase/Firebird", vcetne popisu jazyka SQL.
Jarek Uher
Indexovani graf.objektu na formulari
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 20.3.2004 15:56:15
Podivej se do helpu na operatory "is" a "as".
Pak muzes delat treba takto (pisi z hlavy):
for i:=0 to componentcount-1 do
if component[i] is Timage then (Component[i] as Timage).picture ....
Slavek
> <B><I>formular.Components[index].picture=neco</B></I> uz
> nefunguje. Predpokladam, ze to je tim, ze dostanu misto
> objekt Timage objekt Tobject. V OOP se moc nevyznam, tak
> prosim nekoho, kdo se v tom vyzna, o radu.
> ____________________________________________________________
> www.BaterieDoMobilu(tec)cz - nejsirsi sortiment kvalitnich
> baterii se zarukou za super ceny od 199 Kc, postovne od 2
> kusu ZDARMA.
> http://ad2.seznam(tec)cz/redir.cgi?instance=72312%26url=http://www
.bateriedomobilu(tec)cz
Indexovani graf.objektu na formulari
[*] Martin Rehanek <martin.rehanek(zv)seznam(tec)cz> - 20.3.2004 14:56:05
Problem:
Mam na formulari x obrazku (objekty Timage). Procedura, ktera podle nejake podminky zmeni hodnotu "picture" daneho obrazku by se mela provadet pro vsechny obrazky. Nevim, jak toto zacyklovat. Akorat jsem zjistil, ze <B><I>formular.Components[index].Tag </B></I> mi vrati hodnotu Tag daneho obrazku, ale <B><I>formular.Components[index].picture=neco</B></I> uz nefunguje. Predpokladam, ze to je tim, ze dostanu misto objekt Timage objekt Tobject. V OOP se moc nevyznam, tak prosim nekoho, kdo se v tom vyzna, o radu.
____________________________________________________________
www.BaterieDoMobilu(tec)cz - nejsirsi sortiment kvalitnich baterii se zarukou za super ceny od 199 Kc, postovne od 2 kusu ZDARMA.
http://ad2.seznam(tec)cz/redir.cgi?instance=72312%26url=http://www.bateriedomobilu(tec)cz
Table.Filter
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 20.3.2004 15:06:06
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ladislav Novak
>
> Zdravim,
Ahoj,
> pokud ale zkousim neco podobneho pro neciselne hodnoty napr.
> table1.Filtered := false;
> table1.Filter := 'Firma = a';
> table1.Filtered := true;
Sice to nepouzivam, ale zkusil si dat porovnavaci retezec do apostrofu?
Neco jako table1.Filter := 'Firma = ''a'' '; (Pozor musis dat dva
apostrofy).
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Table.Filter
[*] Ladislav Novak <lada.xt(zv)volny(tec)cz> - 20.3.2004 14:18:01
Zdravim,
jsem naprosty zacatecnik a mozna beru veci moc od konce, takze to jde
obcas docela ztuha....
pokud mi nekdo pomuze, posoupne me zas o pekny kus dal..
Vytvoril jsem si jednoduchou databazi Paradox a snazim se v ni filtrovat
podle zadanych parametru.. Dokud filtruju podle ciselnych hodnot, je vse
v poradku..
table1.Filtered := false;
table1.Filter := 'cislo = 1';
table1.Filtered := true;
pokud ale zkousim neco podobneho pro neciselne hodnoty napr.
table1.Filtered := false;
table1.Filter := 'Firma = a';
table1.Filtered := true;
vcelku rozumim tomu, ze si s tim program neporadi..
ciselny znak je jednoznacny, ale ve druhem pripade neni nejspis
jednoznacne, co jeste je retezec a co uz parametr pro filtrovani..?
poradi nekdo, jakym zpusobem osetrit muj druhy pripad....?
Vim, ze se tady zabyvate trochu silenejsimi problemy, ale tak nejak
doufam, ze nekdo poradi i uplnymu zacatecnikovi..
Diky,
Lada
Prevod aplikace na service
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 20.3.2004 10:07:38
> Ahoj, prevadim aplikaci na service a mam problem se ctenim systemovych registru. V aplikaci pouzivam jak HKEY_CURRENT_USER tak HKEY_LOCAL_MACHINE a vse funguje OK. Servis mi ale nechce z HKEY_CURRENT_USER cist. Co delam spatne?
> Jara
>
>
>
Dobry den
- HKEY_CURRENT_USER je cast registru plne pristupna (cteni - zapis) poze prave prihlasenemu uzivateli.
- Pri zmene uzivatele se meni i obsah HKEY_CURRENT_USER.
- Service je sluzba jedouci na pozadi i po odhlaseni uzivatele, lze jej inicializovat pomoci klasickeho
.ini souboru a je spustena pod nejakym uctem.
-Predavani parametru za chodu lze pomoci mapovani dat do pametoveho souboru.(Prenos dat aplikace service)
Petr Koukal
pristup na firebird cez internet
[*] MMS <preas_w(zv)stonline.sk> - 20.3.2004 09:41:35
cau
server:=IPServera (PC na ktorom je db)
Path:=cesta k databaye tak ako ju vidi ten pocitac na ktorom je fzyicky
umietnena
Miro
----- Original Message -----
From: "Ivan Turcan" <iturcan(zv)drake.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 20, 2004 8:51 AM
Subject: pristup na firebird cez internet
> caves,
>
> potreboval by som umoznoit pripojenie na firebird databazu co mam u seba
cez internet. vie mi niekdo povedat ako mam nakonfigurovat klienta (v
ibobjects cestu database name ) a ako nakonfigurovat ten firebird server ?
>
> vdaka
>
> Ivan
>pristup na firebird cez internet
[*] Ivan Turcan <iturcan(zv)drake.sk> - 20.3.2004 08:51:31
caves,
potreboval by som umoznoit pripojenie na firebird databazu co mam u seba cez internet. vie mi niekdo povedat ako mam nakonfigurovat klienta (v ibobjects cestu database name ) a ako nakonfigurovat ten firebird server ?
vdaka
Ivan
webbrowser - zabraneni window.close
[*] Roman Sitina <sitina(zv)kthostinne(tec)cz> - 20.3.2004 08:29:29
Dobry den,
muze mi prosim nekdo poradit jak se dostat ke hlubsimu nastveni twebbrowser?
Jde mi zejmena o zabraneni moznosti zavreni okna pres javascript.
A dalsi vec - lze podobne - takhle jednoduse - pouzivat jadro netscapu nebo
pripadne jineho browseru?
Diky,
rs
Aplikacni server
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 20.3.2004 01:17:01
Co takle novy FB1.5, ten by mel mit prenos stringu jen o skutecne delce.
Jinal je mozne to prohnat TCP tunelem s kompresi.
Pokud budes prenaset binarni data, tak si asi moc nepomuzes, jelikoz
ty data musis prenest.
Na FB1 se to resilo tak, ze stringy se nedeklarovali jako varchar, ale
jako
blob typu text (ty jsou reseny dynamicky a navic jsou dynamycky i v
delphi datasetu).
Jinak to chce ciselniky pres lookup fieldy, atd.
Potupocval bych:
1. TCP tunnel
2. FB1.5
3. Optimalizace aplikace
4. Zcela to prepsat
5. vcetne jineho protokolu
Slavek
> Zdravim,
> potreboval bych poradit jakym zpusobem zrealizovat spojeni
> aplikace s databazi Firebird, pokud se jedna o spojeni "na
> dalku" rekneme po 128kb lince. Klasicka konektivita
> komponentami IBX je neunosne pomala. Takze uvazuji o nasazeni
> nejakeho druhu Midle Ware, ktery by vyuzival optimalnejsi
> protokol nez Firebird.
>
> Mel byste nekdo v tomto smeru nejake zkusenosti?
>
> David Liska
> D5 Prof.
>
>
>
>
>
>
>
> Prevod aplikace na service II
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.3.2004 00:56:59
On Behalf Of Svehla Jaroslav
> Poradte mi jaka cesta je nejefektivnejsi (form ve sluzbe,
> externi pomocna aplikace) pro:
> a) spousteni a zastavovani sluzby uzivatelem
> b) nastaveni parametru sluzby (napr. cislo serioveho portu)
Ahoj.
Form ve sluzbe IMHO nepujde.
Zastavovani a spousteni app viz nize uvedeny unit (lze doplnit i
ovladani z jineho PC - viz parametry fce OpenSCManager
Parametry : registry, inisoubor nebo mozna nejlepe TCP spojeni
Ludek
unit StartStopSvc;
interface
uses WinSVC, Windows, sysutils;
const
SERVICE_MY_ACCESS = (SERVICE_QUERY_STATUS or
SERVICE_START or
SERVICE_STOP or
SERVICE_PAUSE_CONTINUE); MY_ERROR = $00000000;
resourcestring
rsErrorCantLoadServiceManager = 'Nelze spustit service manager.';
rsErrorCantFindService = 'Sluzba %s nenalezena.';
rsInformationServiceAlreadyRunning = 'Sluzba %s je jiz pustena';
rsInformationServiceStarted = 'Sluzba %s byla spustena';
rsInformationServiceAlreadyStopped = 'Sluzba %s je jiz zastavena ?';
rsInformationServiceStopped = 'Sluzba %s byla zastavena';
function StatusService(const ServiceName: string): word;
function StartStopService(const ServiceName: string; const Start:
Boolean): Boolean;
implementation
function StartStopService(const ServiceName: string; const Start:
Boolean): Boolean;
var
Mgr: THandle;
P: PChar;
Svc: THandle;
Status: TServiceStatus;
begin
Result := FALSE;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
if Mgr = 0 then
Exit;
Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_MY_ACCESS);
if Svc = 0 then
Exit;
QueryServiceStatus(Svc, Status);
if Start then
begin
if Status.dwCurrentState <> SERVICE_RUNNING then
begin
P := nil;
StartService(Svc, 0, P);
Result := TRUE;
end;
end else
begin
if Status.dwCurrentState <> SERVICE_STOPPED then
begin
ControlService(Svc, SERVICE_CONTROL_STOP, Status);
Result := TRUE;
end;
end;
CloseServiceHandle(Svc);
CloseServiceHandle(Mgr);
end;
function StatusService(const ServiceName: string): word;
var
Mgr: THandle;
P: PChar;
Svc: THandle;
Status: TServiceStatus;
begin
Result := MY_ERROR;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
if Mgr = 0 then
Exit; Svc := OpenService(Mgr, PChar(ServiceName),
SERVICE_MY_ACCESS);
if Svc = 0 then
Exit;
QueryServiceStatus(Svc, Status);
Result := Status.dwCurrentState;
CloseServiceHandle(Svc);
CloseServiceHandle(Mgr);
end;
end.Aplikacni server
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.3.2004 00:42:53
On Behalf Of David Liska
> potreboval bych poradit jakym zpusobem zrealizovat spojeni
> aplikace s databazi Firebird, pokud se jedna o spojeni "na
> dalku" rekneme po 128kb lince. Klasicka konektivita
> komponentami IBX je neunosne pomala. Takze uvazuji o nasazeni
> nejakeho druhu Midle Ware, ktery by vyuzival optimalnejsi
> protokol nez Firebird.
Ahoj.
Co treba Klient=webovy prohlizec a na serveru ISAPI,CGI... Nebo uplne
bez Delphi - ASP,PHP nebo kombinace neco na serveru a neco v prohlizeci
jako Active-X.
Ludek
Viewing PDF file
[*] DH-Soft CZ <spravce(zv)dh-soft(tec)cz> - 19.3.2004 21:56:41
Poradi mi nekdo, jakou komponentu pouzit pro zobrazeni PDF souboru. Neco
podobneho jako tPdf, ale abych nemusel mit v systemu instalovany Adobe
Akrobat, apod. Proste vlastni zobrazeni (tisk, lupu) PDF.
D5Prof.
Diky informace
vlakno - zacatecnik
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 19.3.2004 21:22:37
> vlakno spustim : vlakno.resume
> zastavim jako vlakno.suspend
> ukoncim vlakno.terminate
Pred tim je ovsem nutne zavolat resume, pokud je vlakno suspended.
>
> je to v poradku ?
>
> muzu volat vlakno.terminate a hned potom vlakno.free oboje v
> OnDestroy
Je treba volat tohle poradi (pokud nemas nastaveno free on terminate):
Terminate;
WaitFor; // je treba pockat az vlakno dobehne
Free;
Slavek
vlakno - zacatecnik
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 19.3.2004 19:36:29
DD,
mam aplikaci s vlaknem a potreboval bych aby vlakno bezelo jen kdyz
chci
vlakno spustim : vlakno.resume
zastavim jako vlakno.suspend
ukoncim vlakno.terminate
je to v poradku ?
muzu volat vlakno.terminate a hned potom vlakno.free oboje v OnDestroy
hlavni aplikace?
diky PM
Jak overit existenci objektu?
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 19.3.2004 17:18:19
> Ten objekt nekde vznika a zanika, ze. Staci tedy "vystopovat"
> jeho zivotni cyklus a najit vsechna mista, kde zanika a tam
> napsat FreeAndNil(MainObjekt.QRLabelObjekt) a je to. Anebo
> ponechat puvodni MainObjekt.QRLabelObjekt.Free a dopsat k tomu
> MainObjekt.QRLabelObjekt:= nil
Tie dva zapisy nie su ekvivalentne. Myslim, ze je vyhodnejsie pouzit
FreeAndNil, pre pripad, ze destruktor toho objektu vyvola vynimku.
HTH
TOndrej
Prevod aplikace na service II
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 19.3.2004 16:40:16
Poradte mi jaka cesta je nejefektivnejsi (form ve sluzbe, externi pomocna aplikace) pro:
a) spousteni a zastavovani sluzby uzivatelem
b) nastaveni parametru sluzby (napr. cislo serioveho portu)
Dik. Jara
Otvirani a mazani dokumentu v tmp adresari
[*] Lukas Suchanek <lukas.suchanek(zv)obis(tec)cz> - 19.3.2004 16:34:14
Ave,
> Po dokonceni prohlizeni dokumentu bych ho ale chtel z tmp
> adresare smazat. A tady si uz trochu nevim rady.
> Jak mam poznat, ze editace dokumentu jiz byla skoncena (muze
> nastat nekolik komplikaci, napriklad Word mohl byt spusten
> jiz pred nasim programem) a ze uz tedy mohu soubor z tmp
> adresare odstranit ?
> Potrebuji samozrejme, aby muj program bezel dal a mohl
> pokracovat v libovolne praci (vcetne ukonceni meho programu).
u nas to resime tak, ze program si ony bloby do tempu uklada s
nejakou snadno identifikovatelnou maskou (ci prefixem) a pri skonceni
programu si mazu vsechny soubory v tempu, ktere odpovidaji te masce. Problem
by mohl nastat, pokud bych mel spusteno vice instanci toho programu, ale
vzhledem k tomu, ze se to u nas nestava, je to dostatecne reseni. V
pripade, ze uzivatel program nasilne ustreli, nic se nedeje, pri pristim
spusteni a naslednem skonceni se kontroluje ta sama maska a tak zlikviduje i
ty soubory od minula.
Na problem s obecnym dokumentem na ktery ani neni server ti mohu ted
tezko odpovedet. Ja osobne to resim, kdyz uz musim, tak, ze predpokladam, ze
uzivatel kdyz ma rozpracovany nejaky dokument, tak jej ulozi - v mem
programu jakmile da ulozit v nejakem mem dialogu, jehoz soucasti je odkaz na
ten blob, tak si proste hrabnu do toho tmp filu a vytahnu jeho obsah,
prihraju do databaze a uzivatelum to proste predkladam jako nutnost - chcete
si ten dokument upravit sami? Pak jej musite napred ulozit v editoru (word,
excel, ...) a pak musite dat ulozit jeste v nasem dialogu. Asi to neni moc
elegantni, ale s jistou mirou disciplinovanosti to jde.
/ Lukas Suchanek
FlexCel - ano nebo ne?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 19.3.2004 16:34:13
Copak cely radek, lepe je posilat najednou 500 radku. To to jeste
vyrazne zrychli.
> Nicmene, pokud potrebuji mit zachovane nazvy oblasti a mam vice propojeni ,
> tak se priklanim k p.Kralovi, ze to radeji poslu najednou pres OLE (v
> konferenci jsou i popisy, jak posilat do excelu cely radek a tim je prenos
> vyrazne rychlejsi)
>
> Ludek
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
NET - Delphi alebo Visual Studio
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 19.3.2004 16:38:15
Za 14 dni intenzivni prace jsem u VS 2003 zaznamenal jediny pad
prostredi. Je pravda, ze projekt neni moc veliky, spis takovy testovaci
WinForms. Ale pracuji na nem intenzivne a se stabilitou IDE jsem
nadseny. Behem ladeni taky zadny problem.
Rychlost je problem. Na Celeronu 1.3 Ghz se mi pravidelne stava, ze po
pulhodine prace ve VS se cele prostredi zpomali k nepouzitelnosti. Musim
restartovat a pak je to ok. Na P4 2.4 G mi to nedela. Pameti to zabira
srovnatelne s Delphi, 150 M a vice.
> pls. ak vie niekdo popisat prakticke skusenosti s VS nek to napise , myslim
> si ze stabilita jadra vyvojoveho nastroja je zakladna podmienka na uspesny
> vyvoj. zaujimali by ma pamatove naroky VS (C#) rychlost IDE, stabilita IDE,
> debuggera a pod.
>
> rgds,
>
> Ivan
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak overit existenci objektu?
[*] Jirka Virt <virt(zv)volny(tec)cz> - 19.3.2004 15:44:06
MainObjekt.QRLabelObjekt <> nil
je dobre
pro ukoncovani QRLabelObjekt musis udelat QRLabelObjekt := nil;
Jirka Virt
Aplikacni server
[*] David Liska <konference(zv)thsoft(tec)cz> - 19.3.2004 16:20:12
Zdravim,
potreboval bych poradit jakym zpusobem zrealizovat spojeni aplikace s
databazi Firebird, pokud se jedna o spojeni "na dalku" rekneme po 128kb
lince. Klasicka konektivita komponentami IBX je neunosne pomala. Takze
uvazuji o nasazeni nejakeho druhu Midle Ware, ktery by vyuzival optimalnejsi
protokol nez Firebird.
Mel byste nekdo v tomto smeru nejake zkusenosti?
David Liska
D5 Prof.