Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

Zalohovani IB

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.12.2001 14:11:30

> Odes�latel: Radek KALA <Kala(zv)Atlas(tec)cz>
> Chtel jsem udelat do sve aplikace moznost, aby volbou menu mohl
> uzivate zazalohovat databazi a rozvnou mi tu zalohu poslat.
>
> Zalohu jsem udelal pomoci IBBackupService z IBX, problem je, ze
> .gbk se soubor se vytvori na serveru a ne na pocitaci kterej to
> spustil. da se s tim neco udelat ?

Treba si ten .gbk soubor zkopirovat ze serveru...
Ja bych tady ale videl zavaznejsi problem:

Mnoho lidi se k SQL databazi chova stejne jako k lokalnim souborove orientovanym databazim.
A ono to pritom je neco jineho.
Uvedomme si, ze mohu pracovat s databazi, aniz bych mel pristup k prislusnemu .gdb souboru.
Uvedomme si, ze pokud si ten .gbk soubor zkopiruju, muzu jako SYSDBA udelat restore a mam veskera data.
Uvedomme si, ze SQL Server, at uz jakykoli, vyzaduje nejakou administraci od cloveka, ktery je administratorem prislusneho Serveru jako pocitace, ze IB si na server nemuze ani nainstalovat jen tak nekdo, ze IB bezi na nejaky systemovy account (vcetne UDF?).

K IB by se, stejne jako k jinym SQL Serverum, melo pristupovat trochu opatrneji.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================

DELPHI 6

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 5.12.2001 14:22:06

> Ahoj,
> nerad to rikam, ale zcela urcite. Firme slouzi k praci, tudiz ke zvysovani
> nebo udrzovani zisku (nebo jak zni ta hrozna definice :-). Navic pokud das
> vystup z programu zakaznikovi, ziskavas tim v podstate konkurencni vyhodu.
>
> S pozdravem
> Ota Maly


diky sice sem si to myslel, ale jistota je jistota


Kylix - konsolove aplikace

[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 5.12.2001 14:29:23

> Myslim, ze se na to bude muset jit pres ncurses (knihovna v linuxu pro
psani
Aha. Kouknu na to!

> znaku). Mozna to pujde i jinak (ridici kody). (mimochodem ve windows
ClrScr
> a spol taky neni).
Tam jsem nikdy nepotreboval psat kosolove aplikace,
a tak jsem to nepotreboval

> Co presne chces delat?
Potrebuju udelat jednoduchou terminalovou aplikaci, ktera bude mit
jednoduche menu. V postate se jedna o spravu uzivatelu.

Nejradeji bych k obrazovce pristupoval pres adresu
$B800:0, ale to nejspis nepujde, co??

Diky za tipy. Jirka
> jinak man ncurses.
> Radek
>
> PS: Stisk klavesy jde udelat pres volani select (...)."Radek Cervinka" <radek.cervinka(zv)centrum(tec)cz> p�#e v diskusn�m p��sp�vku
news:01c201c17d87$e5c16bc0$9601a8c0(zv)spiky...
>
>
>
> >Preji pekny vecer,
> >
> >pisi v Kylixu konsolovou aplikaci a citelne mi chybeji prikazy ClrScr,
> GotoXY
> >a ReadKey.
> >
> >Muze mi nekdo poradit, jak na tyto funkce?
> >
> >Pouzivam Kylix 1 OE
> >
> >Diky za Vase odpovedi.
> >Jiri Kratochvil
>
>

DELPHI 6

[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 5.12.2001 14:31:45

Viz muj predchozi mail. Ptal jsem se jisteho cloveka
z Borland CZ, jestli mohu pouzit Delphi 6 Personal
ve firme pro vnitrni poterebu - studijni ucely, zde je odpoved:

>> Dobry den,
>> baleni Personal produktu Borland jsou urcena pouze pro osobni nekomercni
>> vyuziti. Nelze s nimi psat aplikace, ktere bude vyuzivat komercni
subjekt.


----- Original Message -----
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 05, 2001 11:22 AM
Subject: Re: DELPHI 6


> mam k tomuto dotaz (mozna budu za blba, ale co)
>
> je komercnim vyuzitim vytvoreni programu pro firmu kde jsem zamestnan
ktery
> se nebude prodavat, ale je jen pro interni potrebu, eventuelne zakaznik
> dotatne jen tiskovy vystup z tohoto programu?

Ciarovy kod v nativnom mode

[*] Tom Lebr <tom.lebr(zv)volny(tec)cz> - 5.12.2001 14:40:02

Dobry den,

z hlediska systemu je asi nejkorektnejsi cesta napsat ovladac vyuzivajici
UNIDRV - soucast MS Device Driver Development Kit (na webu Microsoftu se da
stahnout) jsou ukazky zdrojaku, jak psat ovladace pro tiskarny, vcetne 9 a
24 jehlickove Epson kompatibilni varianty, sice v C, ale neni to slozite,
clovek neprogramuje, jen v podstate definuje co a kdy se ma do tiskarny
poslat, metriky fontu atp

stacilo by vhodne downloadem predefinovat dva znaky vcetne sirky
(prouzek/mezera) a z nich kod poskladat

s pozdravem

Tomas Lebr

----- Original Message -----
From: <DHederer(zv)softip.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 05, 2001 10:19 AM
Subject: Ciarovy kod v nativnom mode


> Dobry den,
>
> potreboval by som tlacit ciarove kody v nativnom mode t.j. na ihlickovych
> tlaciarnach.
> Robil niekto nieco podobne?
>
> Win 2000 Pro, Delphi 5 Enterprise a ReportBuilder 5.
>
>
>

Archivacia db v IB6

[*] Rado Benc <bego(zv)pobox.sk> - 5.12.2001 14:41:52

V adresari bin IB instalacie InterBase / Firebird je command line utilita
gbak:

Backup:

gbak -b -v d:\path\file.gdb e:\bak\file.gbk -user "sysdba" -
password "masterkey"

Restore:

gbak -r -v e:\bak\file.gbk d:\path\file.gdb -user "sysdba" -
password "masterkey"

HTH,

Rado


____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail

blinking objects

[*] jkoci(zv)chargeurs-interlining(tec)com - 5.12.2001 14:57:46

Ahoj,

poradite mi nekdo nejake jine (a rychlejsi reseni) jak udelat blikajici
objekt? Je to potomek TGraphic, v metode Paint mohu zmenit barvu, pak to
blika. Problem je v tom, ze objektu jsou radove stovky a maji-li nektere
blikat, museji blikat synchronne. Tzn. nelze pouzit TTimer, protoze u nej
neni 100% zaruceno, ze probehne v kazde periode - kdyz to Windows
nestihnou, tak to vynechaji. Zatim to delam tak, ze ty blikajici dam do
TThreadList a ve zvlastnim threadu pak ridim blikani. To celkem funguje na
Win2K, ale Win95/98 zase nekdy vynechavaji...A zrejme je to spravou
threadu ve Win98, protoze blikani vypadava i na PIII 1.7GHz, zatimco na
mych Win2K PIII 650MHz to blika jak ma.

Mate nekdo nejaky napad?

Diky, Johnnie


Store procedure

[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 05.12.2001 15:00:48

To uz jsem taky zkousel, a parametry nema cenu vyvaret kdyz se vytvori automaticky, jakmile ADOStoreProcedure priradim danou proceduru. To uz je opravdu lepsi smazat ADOStoreProcedure a znovu ji vytvorit (myslim v design time)

>nevim jestli to bude presne to co chces vedet, ale me to kdysy pomohlo,
>musel jsem nazev procedury znovu priradit komponente, refresh nezabral a
>myslim ze jsem musel udelat taky ADOStoreProcedure.Parameters.create

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644

>>> Jaroslav.Blazek(zv)access-it(tec)cz 5.12.01 10:51 >>>
Jeste mi nikdo neodpovedel na prvni dotaz, tohle mi dela doma i na IB, ale tam staci jen IBDatabase.Active, IBTransaction.Active nastavit na false a opet na true a vse funguje normalne. Ale, kdyz to udelam i s ADOConection, tak to nefacha. A musim postupovat viz. nize.....

Diky za kazdou pomoc....

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644

>>> Jaroslav.Blazek(zv)access-it(tec)cz 4.12.01 16:27 >>>
Ahojky,
mam nasledujici dva problemy

1.Ulozim do databaze novou proceduru

ADOStoreProcedure ji priradim
- vse probiha v poradku do te doby nez zjistim, ze jsem v procedure udelal chybu.
- tu proceduru vymazu - drop procedure ....
- opravim ji, parametry procedury zustavaji stejne.
- refresnu i ADOStoreProcedure, ale od te doby uz se mnou nechce komunikovat
- pri prirazeni ADOStoreProcedure.Parameters[1].Value=Neco;
mi to hodi - "List index out of bounds(1)" - pritom paramtry procedury zustanou stejne.
- musim tedy komponentu ADOStoreProcedure vymazat a nasledne ji znovu pridat a znova nastavit.
- pak vse zase funguje

---cim to muze byt ?

////////////////////////////////
W2000, D5, MS SQL 2000
///////////////////////////////

Diky

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644

MDI form

[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 5.12.2001 15:03:27

Ahoj !

Ako do okna, ktore ma styl fsMDIForm pridam najaky label tak, aby po
spusteni aplikacie bol viditelny ? Ak ho dam na panel a ten umiestnim do MDI
parent okna, tak child okna su prekryte tymto panelom.

Chyba v Delphi 5 Ent pod W2000

[*] <bejcek(zv)centrum(tec)cz> - 05.12.2001 15:22:45

Ahoj kluci dejou se mi zajimave veci v D 5 Enteprise pod
W2000.Mam tu i service pack pro informaci.
Abych to vysvetlil:
Kdyz dam While neco tak to tuhle podminku preskakuje i kdyz je v
poradku,ale jen v pripade ze to prochazim F8,pak je tu vec,ze
kdyz chci zmenit hodnotu boolean na true a obracene prikaz to
jednoduse preskoci?? :-))) to i pri prochazeni,stava se to v
pripade ze je to lokalni promenna treba v buttonu.Nevim co stim
vubec se ted neda programovat.
Nevite nekdo nejakou radu?


Profi amater Aldik Pavel D5 Ent W2000

-----
U�ite�n� informace pro v�no�n� pohodu
http://vanoce.centrum(tec)cz

DELPHI 6

[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 5.12.2001 15:26:10

Ahoj,
IMHO muze byt, zalezi na situaci. Mam-li pristroj za penize a k nemu
software zdarma, je to podle me komercni pouziti (podpora prodeje).
Sirim-li software zdarma jako firma, delam si tim reklamu (taham tim lidi na
svoje stranky, delam lepsi jmeno firmy, ukazuji jak jsme dobry :-), podle me
take komercni pouziti, ale to uz zalezi na tom, jak presne to Borland
specifikoval.
Pisu-li Synapsi, nic za ni nechci a nespojuji to s zadnou firmou, tak je to
podle me nekomercni pouziti.
Ale tot jen muj nazor, nejsem pravnik..

S pozdravem
Ota Maly

PaPouch elektronika
http://www.papouch.com

>
> Co jsou to 'nekomercni ucely'??? Je to i psani proramu, ktere jsou
> sireny zadarmo?
>
> -- Lukas Gebauer.

Chyba v Delphi 5 Ent pod W2000

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.12.2001 15:38:07

A v tom cyklu delas neco funkcniho ?
kompilator totiz zbytecny kod preskakuje, to se tyka i zbytecneho
prirazovani hodnot do promennych, ktere nejsou dale pouzity apod.

Zkus vypnout optimalizaci:
Projekt Option / Compiler / Optimalization

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

5.12.2001 bejcek(zv)centrum(tec)cz:
> Ahoj kluci dejou se mi zajimave veci v D 5 Enteprise pod
> W2000.Mam tu i service pack pro informaci.
> Abych to vysvetlil:
> Kdyz dam While neco tak to tuhle podminku preskakuje i kdyz je v
> poradku,ale jen v pripade ze to prochazim F8,pak je tu vec,ze
> kdyz chci zmenit hodnotu boolean na true a obracene prikaz to
> jednoduse preskoci?? :-))) to i pri prochazeni,stava se to v
> pripade ze je to lokalni promenna treba v buttonu.Nevim co stim
> vubec se ted neda programovat.
> Nevite nekdo nejakou radu?> Profi amater Aldik Pavel D5 Ent W2000

> -----
> U�ite�n� informace pro v�no�n� pohodu
> http://vanoce.centrum(tec)cz

FireBird a mazanie mnoziny zaznamov.

[*] Roland Turcan <rolo(zv)sedas.sk> - 5.12.2001 15:42:01

Ahoj !

Chcem vymazat mnozinu zaznamov, ale niektore zaznamy su napojene cez foreign
a vyvola sa vynimka. Je mozne aby sa vymazali len tie zaznamy ktorym
vymazaniu nie je branene ?

Lebo som uvazoval o tom ze by som do pomocnej tabulky zapisal ID hodnoty
zaznamov ktore sa maju vymazat a v ulozenej procedure by som v cykle zaznam
po zazname mazal a ktore by zlyhali, tak by som jednoducho nechal tak a
pripadne vratil ze kolko som ich nevymazal.
Mal by niekto lepsi napad ?

Dakujem za kazdy napad.

Roland.

TCPIP - prenos dat

[*] bleak <bleak(zv)atlas(tec)cz> - 5.12.2001 15:44:38

eh, no jist�, p�t minut, ov#em jen v p��pad�, pokud m� �lov�k n�jak�
pov�dom� o komunikaci TCP/IP. a to j� nem�m, pot�eboval jsem n�co s hotov�mi
funkcemi, prost� zad�m co chci poslat nap�. takto: SENDFILE
c:\temp\tmpfile.tmp a u� to jede na server.... tak.
bleak

P.S. nejste n�hodou autor Synapse? :-)

----- Original Message -----
Me v Synapsi beha vsechno napoprve. ;-)

V pripade Synapse staci na odeslani bloku dat pouzit Sendstring ci
SendBuffer metody... Ze data odsla poznas podle toho, ze Synapse
pokracuje dalsi instrukci az kdyz je operace provedena.

A na prijem se da velmi pohodlne pouzit metody RecvBufferEx (kdyz vis
kolik dat ma prijit), RecvPacket (kdyz vis ze neurcite mnostvi dat
jde temer pohromade), RecvStrinf (kdyz potrebujes cist data po
radcioch) ci RecvTerminated (kdyz mas bok dat zakonceny nejakou pevne
danou sekveci bytu)

Domnivam se, ze na to potrebujes ti za pomoci tehto funkci staci pet
minut prace. ;-)))

Kylix - konsolove aplikace

[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 5.12.2001 15:49:05


>> Co presne chces delat?
>Potrebuju udelat jednoduchou terminalovou aplikaci, ktera bude mit
>jednoduche menu. V postate se jedna o spravu uzivatelu.
>
>Nejradeji bych k obrazovce pristupoval pres adresu
>$B800:0, ale to nejspis nepujde, co??

Uz jen protoze Kylix a Delphi jsou 32 bit kompilatory :).
Radek

Archivacia db v IB6

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 5.12.2001 15:54:20

> No to je pekne. Ale ja by som to chcel riesit bez IBX.
> A backup/restore? Tiez nevyhovuje.
> "Jednoducho" aby u��vate� stla�il tla�itko a v#etko mu to niekde
> archivovalo.

ok, ale nic jineho nez korektni backup/restore ti nezbyva.
pokud nepouzivas IBX, tak jiste nejake jine komponenty
(IBO treba, co ja vim) a ty to zajiste taky umi.
nepo to delas pomoci API? pak urcite znas API pro b/r.

ja to delam tak, ze pouzivam IBX. uzivatel klikne a
v open dialogu zada nazev fajlu pro GBK. pak uz jenom
ceka na dokonceni zalohy. podobne mam udelany restore.
co je na tom sloziteho? (myslim pro usera).

pokud ti jde o kod, napis a ja ti to zejtra poslu,
jak to mam ja. jsou to dve procedurky dohromady
na jednu obrazovku...

PeC(zv)

Zapis do ini souboru

[*] Anton�n Ture�ek <tantonin(zv)cbox(tec)cz> - 5.12.2001 16:01:19

Pro zapis do ini souboru pouzivam funkci.

procedure ZapisGlobalINI(Sekce,promena:string;hodnota:variant);
var
Ini:TIniFile;
Global:string;
begin
Global:='Global.ini';
if FileExists(Global) then
FileSetAttr(Global,faArchive)
else
ShowMessage(Format('Soubor %s neexistuje a bude vytvoren',[Global]));
ini:=TIniFile.Create(Global);
try
if vartype(hodnota) = varString then
ini.WriteString(Sekce,promena,hodnota)
else if vartype(hodnota) = varInteger then
ini.WriteInteger(Sekce,promena,hodnota)
else if vartype(hodnota) = varboolean then
ini.WriteBool(Sekce,promena,hodnota);
finally
ini.Free;
FileSetAttr(Global,faArchive or faReadOnly);
end;
end;

Na Win NT/2000 (NTFS) funguje dobre.
Na Win 98/ME (Fat32) se do souboru nezapise nic, v pripade, ze je funkci
soubor vytvoren ma nesmyslny obsah.
Problem zpusobi fce FileSetAttr() po uvolneni ini.
Diky za jakoukoli radu.

D3 W2000-SP2

anton


Archivacia db v IB6

[*] Martin O�en� - 5.12.2001 16:10:14

Backup a restore by som nezavrhoval. Urobi pekny poriadok v DB. Urobi Ti
poriadok po RollBack transakciach a podobnom svinstve. U nas robime Backup
(ak nechces IBX mozes pouzit gbak.exe) a potom sup ho este do ZIP-u. GDB ->
ZIP je kompresia asi 6x. GDB -> GBK -> ZIP asi 20x.

M.

>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
>Sent: Wednesday, December 05, 2001 12:38 PM
>To: delphi-l(zv)clexpert(tec)cz
>Subject: RE: Archivacia db v IB6
>
>
>
>No to je pekne. Ale ja by som to chcel riesit bez IBX.
>A backup/restore? Tiez nevyhovuje.
>"Jednoducho" aby u��vate� stla�il tla�itko a v#etko mu to niekde
>archivovalo.
>
>Robo.
>
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>Behalf Of Kaka�ka Pavol
>Sent: Wednesday, December 05, 2001 10:57 AM
>To: delphi-l(zv)clexpert(tec)cz
>Subject: Re: Archivacia db v IB6
>
>
>From: <delphi(zv)zvlauto.sk>
>> Ako riesite uzivatelsku archivaciu databazy v IB6? Zalohujete subor
>*.gdb,
>> alebo ako? (Teda ako to mam osetrit programovo)
>
>Pomocou backup/restore. V IBX su na to komponenty a v helpu priklady.
>
>Kaka�ka Pavol
>KasiX(zv)atlas(tec)cz
>
>
>

Archivacia db v IB6

[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 5.12.2001 16:13:22

> delphi(zv)zvlauto.sk napsal:
>
> No to je pekne. Ale ja by som to chcel riesit bez IBX.
> A backup/restore? Tiez nevyhovuje.
> "Jednoducho" aby u��vate� stla�il tla�itko a v#etko mu to niekde
> archivovalo.
>
> Robo.

uses
IBServices;

var
cGarbage, cChecksums, cBylaChyba: boolean;
sDatabaze, sServer, sFilename, s: string;
IBBackup: TIBBackupService;
begin
cBylaChyba:=false;
IBBackup:=TIBBackupService.Create(Self);
with IBBackup do
begin
LoginPrompt:=false;
DatabaseName:=sDatabaze;
if cGarbage=false then Options:=Options+[NoGarbageCollection];
if cChecksums=true then Options:=Options+[IgnoreChecksums];
if sServer='' then
begin
ServerName:='';
Protocol:=Local;
end
else
begin
ServerName:=sServer;
Protocol:=TCP;
end;
Params.Clear;
Params.Add('user name=LIKUSER');
Params.Add('password=heslo');
BackupFile.Add(sFilename);
Active:=true;
try
Verbose:=true;
ServiceStart;
while not Eof do
begin
s:=GetNextLine;
Memo1.Lines.Add(s);
end;
except
on E:Exception do
begin
ShowMessage('Bihem prov�din� z�lohy do#lo k vyj�mce '
+#13+#10+E.Message);
cBylaChyba:=true;
end;
end;
Active:=false;
end;
IBBackup.Free;
end;

Zalohovani IB

[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 5.12.2001 16:27:05

Jenze, kdyz nekdo si nainstaluje IB server u sebe a spusti gbak a
zada mu ten vzdalenej server, tak to udela zalohu na lokale a je
to. Stejne to potrebuji udelat z aplikace.

> > Odes�latel: Radek KALA <Kala(zv)Atlas(tec)cz>
> > Chtel jsem udelat do sve aplikace moznost, aby volbou menu mohl
> > uzivate zazalohovat databazi a rozvnou mi tu zalohu poslat.
> >
> > Zalohu jsem udelal pomoci IBBackupService z IBX, problem je, ze
> > .gbk se soubor se vytvori na serveru a ne na pocitaci kterej to
> > spustil. da se s tim neco udelat ?
>
> Treba si ten .gbk soubor zkopirovat ze serveru...
> Ja bych tady ale videl zavaznejsi problem:
>
> Mnoho lidi se k SQL databazi chova stejne jako k lokalnim souborove orientovanym databazim.
> A ono to pritom je neco jineho.
> Uvedomme si, ze mohu pracovat s databazi, aniz bych mel pristup k prislusnemu .gdb souboru.
> Uvedomme si, ze pokud si ten .gbk soubor zkopiruju, muzu jako SYSDBA udelat restore a mam veskera data.
> Uvedomme si, ze SQL Server, at uz jakykoli, vyzaduje nejakou administraci od cloveka, ktery je administratorem prislusneho Serveru jako pocitace, ze IB si na server nemuze ani nainstalovat jen tak nekdo, ze IB bezi na nejaky systemovy account (vcetne UDF?).
>
> K IB by se, stejne jako k jinym SQL Serverum, melo pristupovat trochu opatrneji.
>
> Honza


S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15


Archivacia db v IB6

[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 5.12.2001 16:34:52

Hmm, tak pozi IBAPI a kludne ich mozes dat do procedury ktoru budes volat v
eventu tlacitka. (;-)

Kaka�ka Pavol
KasiX(zv)atlas(tec)cz

From: <delphi(zv)zvlauto.sk>
> No to je pekne. Ale ja by som to chcel riesit bez IBX.
> A backup/restore? Tiez nevyhovuje.
> "Jednoducho" aby u��vate� stla�il tla�itko a v#etko mu to niekde
> archivovalo.

> From: <delphi(zv)zvlauto.sk>
> > Ako riesite uzivatelsku archivaciu databazy v IB6? Zalohujete subor
*.gdb,
> > alebo ako? (Teda ako to mam osetrit programovo)
>
> Pomocou backup/restore. V IBX su na to komponenty a v helpu priklady.
>
> Kaka�ka Pavol

Jak odstranit nepouzivane resource

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 17:01:04

From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> jestli dobre chapu, tak muzu mit v resources napr. 1MB wavu a dokud
> nezavolam PlaySound(), nezabiraji vubec nic ???

Ahoj,

presne tak (v pripade ze jde o korektni PE Executable format, pri pouziti
ruznych nesmyslnych EXE 'kompresoru' to samozrejme neplati)

Petr Vones


Zapis do ini souboru

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 17:03:57

From: "Anton�n Ture�ek" <tantonin(zv)cbox(tec)cz>
> Na Win NT/2000 (NTFS) funguje dobre.
> Na Win 98/ME (Fat32) se do souboru nezapise nic, v pripade, ze je funkci

Ahoj,

musis ja konci zavolat TIniFile.UpdateFile

Petr Vones


Chyba v Delphi 5 Ent pod W2000

[*] <bejcek(zv)centrum(tec)cz> - 05.12.2001 17:08:17

Ne to je blbinka.Ja programuji celkem efektivne (ve vsi
skromnosti:-)ale zkusil jsem to),problemu je cela rada ted se
pridalo ukryti okna aplikace pri spusteni,samo se nekam podeje a
aplikace bezi dal.Respektive stagnuje.Je to zvlastni pracuji
totiz s komponentama ze Synapse a ty se mi zdaly stabilni..
Hlavne autor (Gebauer Lukas) mi zasvecenene radi,je videt ze se
vyzna. Je to hruza....je tu nejakej zasvecenes od BORLANDU
POMOOOOOCCCCCC!!!!!Ja se PIP.Takovy kravinky co to vyvadi jsem
jeste nevidel.

A v tom cyklu delas neco funkcniho ?
kompilator totiz zbytecny kod preskakuje, to se tyka i zbytecneho
prirazovani hodnot do promennych, ktere nejsou dale pouzity apod.

Zkus vypnout optimalizaci:
Projekt Option / Compiler / Optimalization

-----
U�ite�n� informace pro v�no�n� pohodu
http://vanoce.centrum(tec)cz

DELPHI 6

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 17:12:32

From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> V Delphi 6 Classroom nemohu vyvijet komercni aplikace.
> O nekomercnim pouziti tam neni ani zminka.
> Anebo se mylim?

Ahoj,

zkus poslat dotaz do: borland.public.delphi.non-technical

Petr Vones


Zalohovani IB

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.12.2001 17:36:02

Haj hou!

On 5 Dec 2001, at 12:57, Radek KALA wrote:

> Ahoj,
> Chtel jsem udelat do sve aplikace moznost, aby volbou menu mohl
> uzivate zazalohovat databazi a rozvnou mi tu zalohu poslat.
>
> Zalohu jsem udelal pomoci IBBackupService z IBX, problem je, ze
> .gbk se soubor se vytvori na serveru a ne na pocitaci kterej to
> spustil. da se s tim neco udelat ?
> Jak to resite vy ?

Coz takhle spustit z programu na pozadi gbak ? Ten vam udela
zalohu na lokalnim pocitaci (s parametrem -s na serveru).

S pozdravem

Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase


Probl�m s tiskem

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.12.2001 17:44:50

----- Original Message -----
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>> 4.12.2001 milos:
> > Dobr� den.
> > M�m probl�m s tiskem na s�#ov� tisk�rn� v Novellu.
> > P�i tisku pravideln� pad� program vytvo�en� v Delphi na chybu ACCESS
VIOLATION...
>
> O jakou tiskarnu se jedna ?
> Quick Report ma problemy s novejsimi ovladaci laserovych a
> inkoustovych tiskaren.
> Opravy jsou na Qusoftu, ale potrebujes zdrojaky QuickReportu

Muzu potvrdit ze drivery dodavane k HP LaserJet 1100 Series
zpusobuji pad jakekoliv aplikace s QuickReporty. Je treba stahnout
nove drivery z Internetu.

Martin Schayna

Jak odstranit nepouzivane resource

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.12.2001 18:00:39

----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> > jestli dobre chapu, tak muzu mit v resources napr. 1MB wavu a dokud
> > nezavolam PlaySound(), nezabiraji vubec nic ???
>
> Ahoj,
>
> presne tak (v pripade ze jde o korektni PE Executable format, pri pouziti
> ruznych nesmyslnych EXE 'kompresoru' to samozrejme neplati)

Take to tak chapu, ale mame aplikaci ktera je v podstate bez balicku
prelozeny viewer na QRP soubory (hotove sestavy z QuickReports),
ktera ma cca 700 kB. Pokud v nem otevru nejakou sestavu, z taskmanageru
Win2000 se dozvim ze PeakMemory je cca 5 MB.

Pokud tu samou aplikaci zbalim pomoci UPX s nejvyssi kompresi, ma cca
250 kB a tataz otevrena sestava udela PeakMemory 3 MB.

Tak jak to tedy je, tady evidentne komprese pomohla?

Martin Schayna

Kylix - konsolove aplikace

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.12.2001 18:10:02

> >> Co presne chces delat?
> >Potrebuju udelat jednoduchou terminalovou aplikaci, ktera bude mit
> >jednoduche menu. V postate se jedna o spravu uzivatelu.
> >
> >Nejradeji bych k obrazovce pristupoval pres adresu
> >$B800:0, ale to nejspis nepujde, co??
>
> Uz jen protoze Kylix a Delphi jsou 32 bit kompilatory :).

no tak tohle s tim nema vubec nic spolecneho. Neni problem napsat kod
v Delphi ci Kylixu, ktery bude cist pamet na libovolne adrese. Jina vec
ovsem je, zda operacni system takovy pristup k pameti povoli.

V Linuxu je nutne pouzivat k zapisu na obrazovku funkce k tomu urcene (aby
zustaly
zachovany funkce prepinani konzoli, historie obrazovek, atd)

D. Toman


Kylix - konsolove aplikace

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 18:15:14

From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> no tak tohle s tim nema vubec nic spolecneho. Neni problem napsat kod
> v Delphi ci Kylixu, ktery bude cist pamet na libovolne adrese. Jina vec

Ahoj,

Tohle lze delat na urovni driveru.

> ovsem je, zda operacni system takovy pristup k pameti povoli.

Toto je bezpredmetne, jediny pristup z aplikace mas do virtualniho pametovemu
prostoru daneho procesu (v extremnim pripade i do ostatnich procesu)

> V Linuxu je nutne pouzivat k zapisu na obrazovku funkce k tomu urcene (aby

Taktez ve Windows, viz Console Functions v Platform SDK

Petr Vones

Jak odstranit nepouzivane resource

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 18:41:27

From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
> Pokud tu samou aplikaci zbalim pomoci UPX s nejvyssi kompresi, ma cca
> 250 kB a tataz otevrena sestava udela PeakMemory 3 MB.
>
> Tak jak to tedy je, tady evidentne komprese pomohla?

Ahoj,

podivej se na sloupec VM Size. Hruzostrasnost techto kompresoru tkvi v
nasledujicim:

Korektni PE soubory jsou namapovane do pameti, takze ve fyzicke pameti jsou
umistovany pouze stranky se kterymi pracuje (samozrejme cely mechanismus je
slozitejsi a zalezi na velikosti RAM, poctu procesu, threadu atd). System pro
dany proces vystaci s relativne malou velikosti pameti, teoreticky by stacila
i jedna stranka - 4kb, samozrejme cim vice pameti tim mene je nutne stranky
vyhazovat a nacitat jine. Pokud spustis vice instanci dane aplikace nebo se
jedna o DLL tak se navic readonly stranky ve fyzicke pameti sdileji i mezi
vice procesy.

U 'komprimovanych' souboru nelze samozrejme mapovani pouzit, takze cely soubor
se nejdriv dekomprimuje do 'pameti' (tedy v nejhorsim pripade na swap file) a
pak spusti. O nejakem strankovani nemuze byt rec, navic pokud jej spustis
vicekrat, tak se pokazde znovu dekomprimuje, vyhodne zvlaste u DLL ;-) Nemluve
o tom, ze kompresor musi mit vlastni loader coz je dalsi potencialni zdroj
chyb.

Z vyse uvedeneho vyplyva, ze velikost alokovane pameti bude u 'komprimovanych'
souboru z principu vzdy daleko vetsi, minimalne o velikost zbytecne obsazene
pameti dekomprimovanym souborem. Nastesti neni slozite takto modifikovane
soubory identifikovat. Lze projit cely disk nejakym nastrojem, oznacit je za
potencialne problematicke, majici vetsi pametove naroky a v konecnem dusledku
pozadovat po vyrobci normalni soubory. Pokud jde tolik o velikost souboru pro
distribuci tak prece neni problem jej zkoprimovat a pri instalaci rozbalit do
puvodni podoby. Dale viz treba tento odkaz:
http://www.jrsoftware.org/striprlc.htm#execomp

Petr Vones


Jak odstranit nepouzivane resource

[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.12.2001 20:12:03

Zdravim

Muze mi nekdo rict, co vlastne dela StripReloc? Vim, ze odstrani realokacni
tabulku, ale co to vlastne je? Jeste k puvodnimu dotazu. Lze odstranit ty
resourcy, ktere aplikace nepouziva? (typicky glyphy na BitButtony a ikony
pro SQL) Jde o zmenseni velikosti souboru, ne o misto v pameti. Je to z
velke miry predevsim psychologicky efekt. Proste cim mensi program, tim
lepsi. BFU to proste nevysvetlis. Na tomto asi jede i UPX a jine nesmysly.

Hurricane
----- Original Message -----

Pokud jde tolik o velikost souboru pro
> distribuci tak prece neni problem jej zkoprimovat a pri instalaci rozbalit
do
> puvodni podoby. Dale viz treba tento odkaz:
> http://www.jrsoftware.org/striprlc.htm#execomp


blinking objects

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.12.2001 22:03:52

From: <jkoci(zv)chargeurs-interlining.com>
> poradite mi nekdo nejake jine (a rychlejsi reseni) jak udelat blikajici
> objekt? Je to potomek TGraphic, v metode Paint mohu zmenit barvu, pak to
> blika. Problem je v tom, ze objektu jsou radove stovky a maji-li nektere

Ahoj,

pokud jsou jich stovky tak by asi stalo za zvazeni to udelat jinak, nejakou
komplexnejsi komponentou. Timer by mohl stacit, pak staci zavolat metodu
Repaint pro okamzite prekresleni

> nestihnou, tak to vynechaji. Zatim to delam tak, ze ty blikajici dam do
> TThreadList a ve zvlastnim threadu pak ridim blikani. To celkem funguje na

Predpokladam ze to volas spravne pres metodu TThread.Synchronize.

Petr Vones


Konfview a nejaka solidnejsi DB

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 5.12.2001 22:59:22


----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>

> Odes�latel: Lud�k ZITA <konference(zv)sales(tec)cz>
> Jinak spise bych v tomhle veril MySQL nez IB.
Duvody? Argumenty?


Ahoj.
Na uvod: Pouzivam IB na trech rozsahlejsich projektech a MySQL jen na jednom
(krom jineho neni pro Win zdarma).
Co se tyce pozadavku v pripade konfview, tak se jedna o co nejrychlejsi
select podle promenliveho vyberoveho kriteria nad blob polem s predpokladem,
ze to cele je na jednom stroji (klient i databaze).
Pokud pominu nejakou externi techniku indexace a soustredim se na prosty
select from table where... vychazi mi MySQL rychlejsi pri nizsi zatezi a
naroku na pocitac.

Jiz jsem se o to cca pred rokem pokousel a vysledek byl ten, ze jsem se
pokorne vratil k Paradoxu, ktery byl cca o 30% rychlejsi nez IB.
Rozdil mezi IB a MySQL byl cca 10% (ve prospech MySQL) ale IB navic temer
zastavila pocitac.

Kdyz se na celou vec podivas bez predsudku je jasne, ze paradox pri
filtrovani zaznamu neuklada na rozdil od SQL stroju nikam nejaky vysledek
dotazu a cele to zakonite stoji a pada s rychlosti stroje a predevsim disku.
Konfview IMHO zrychlis jedine nejakou metodou indexace nebo pokud poridis
nejake RAID pole (samozrejme v modu STRIP).

Stabilita je vec jina, ale v pripade KonfWiev rozhodne stabilitu klidne
ozelim ve prospech rychlosti.

Ludek

Re2: Konfview a nejaka solidnejsi DB

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 5.12.2001 23:34:27


----- Original Message -----
From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 05, 2001 10:59 PM
Subject: Re: Konfview a nejaka solidnejsi DB


>
> ----- Original Message -----
> From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>
> > Odes�latel: Lud�k ZITA <konference(zv)sales(tec)cz>
> > Jinak spise bych v tomhle veril MySQL nez IB.
> Duvody? Argumenty?
>
> Ahoj.
> Na uvod: Pouzivam IB na trech rozsahlejsich projektech a MySQL jen na
jednom
> (krom jineho neni pro Win zdarma).
> Co se tyce pozadavku v pripade konfview, tak se jedna o co nejrychlejsi
> select podle promenliveho vyberoveho kriteria nad blob polem s
predpokladem,
> ze to cele je na jednom stroji (klient i databaze).
> Pokud pominu nejakou externi techniku indexace a soustredim se na prosty
> select from table where... vychazi mi MySQL rychlejsi pri nizsi zatezi a
> naroku na pocitac.
>
> Jiz jsem se o to cca pred rokem pokousel a vysledek byl ten, ze jsem se
> pokorne vratil k Paradoxu, ktery byl cca o 30% rychlejsi nez IB.
> Rozdil mezi IB a MySQL byl cca 10% (ve prospech MySQL) ale IB navic temer
> zastavila pocitac.
>
> Kdyz se na celou vec podivas bez predsudku je jasne, ze paradox pri
> filtrovani zaznamu neuklada na rozdil od SQL stroju nikam nejaky vysledek
> dotazu a cele to zakonite stoji a pada s rychlosti stroje a predevsim
disku.
> Konfview IMHO zrychlis jedine nejakou metodou indexace nebo pokud poridis
> nejake RAID pole (samozrejme v modu STRIP).
>
> Stabilita je vec jina, ale v pripade KonfWiev rozhodne stabilitu klidne
> ozelim ve prospech rychlosti.
>
> Ludek
>

Jeste doplneni: Vetsi rychlost MySQL oproti IB si vysvetluji tim, ze MySQL
nepodporuje transakce a tudiz neni zatizena ani rezii s tim spojenou.

Ludek


ActiveX a JScript

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 6.12.2001 00:11:39

Zdravim.
Byl jsem postaven pred problem napsat nejake ActiveX prvky pro pouziti jako
plug-iny v IE.
Potrebuji poradit s komunikaci mezi HTML strankou a samotnym ActiveX
formularem.
Vstupni parametry uz umim z html kodu do meho objektu dostat.
<Param Name="Produkt" Value="xxx"> zpracovavam pomoci IPersistPropertyBag.

Potrebuji poradit :
1) Jak zavolam v jiz natazene strance nejakou metodu sveho objektu (tedy
lepe receno co musim napsat v objektu abych takovou metodu mohl zpracovat)
Priklad kodu stranky : <input ID="IDTYP" TYPE="button" VALUE="Stiskni"
Language="JScript" accesskey="s" TITLE="Ahoj"
onclick="MujObjekt.MojeMetoda('NejakyParametr')" >

2) Jak naoplatku zavolam ze sveho objektu (napriklad v udalosti OnClick
buttonu) nejakou funkci scriptu na strance.

Dik za kazdou radu nebo link.

Ludek

Edit

[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 6.12.2001 01:32:26

Poradi nekdo?

Mam na formu komponentu Edit a pokud na ni kliknu pravym tlacitkem mysi
objevi se menu "Zpet, vyjmout ......."
Lze nejak eliminovat najeti tohoto menu?

Diky za radu

Viktor Marek
viktor(zv)mbox.vol(tec)cz


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.306 / Virov� b�ze: 166 - datum vyd�n�: 4.12.2001


Edit

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2001 01:42:17

From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Mam na formu komponentu Edit a pokud na ni kliknu pravym tlacitkem mysi
> objevi se menu "Zpet, vyjmout ......."
> Lze nejak eliminovat najeti tohoto menu?

Ahoj,

do udalosti OnContextPopup dej toto:

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled := True;
end;

Petr Vones


OT: Re: DELPHI 6

[*] Luk� Gallina <delphi(zv)programky(tec)cz> - 6.12.2001 01:45:27

Ahoj,
mozna tomu uplne nerozumim, ale chapu-li to dobre, tak pokud ja napisi
nekomercni aplikaci - resp dam ji k dispozici komukoliv, pak tim prestoupim
licenci protoze si ji bude moci stahnout nejaka firma a pouzivat ji? Cili si
muzu udelat aplikaci s kterou si budu doma hrat a hotovo?

S pozdravem
Lukas Gallina
lukas.gallina(zv)programky(tec)cz
> Viz muj predchozi mail. Ptal jsem se jisteho cloveka
> z Borland CZ, jestli mohu pouzit Delphi 6 Personal
> ve firme pro vnitrni poterebu - studijni ucely, zde je odpoved:
>
> >> Dobry den,
> >> baleni Personal produktu Borland jsou urcena pouze pro osobni
nekomercni
> >> vyuziti. Nelze s nimi psat aplikace, ktere bude vyuzivat komercni
> subjekt.
>
>

Konfview a nejaka solidnejsi DB

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2001 01:46:27

From: "Lud�k ZITA" <konference(zv)sales(tec)cz>
> Stabilita je vec jina, ale v pripade KonfWiev rozhodne stabilitu klidne
> ozelim ve prospech rychlosti.

Ahoj,

a co uplne zahodit myslenku databazi a vyrobit nejake proprietalni reseni
ktere se bude presne hodit na dany problem.

Petr Vones


DELPHI 6

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2001 02:21:04

From: "Luk�# Gallina" <delphi(zv)programky(tec)cz>
> mozna tomu uplne nerozumim, ale chapu-li to dobre, tak pokud ja napisi
> nekomercni aplikaci - resp dam ji k dispozici komukoliv, pak tim prestoupim
> licenci protoze si ji bude moci stahnout nejaka firma a pouzivat ji? Cili si
> muzu udelat aplikaci s kterou si budu doma hrat a hotovo?

Ahoj,

mozne reseni by asi bylo do licence dane aplikace uvest, ze ji nelze vyuzivat
ke komercnim ucelum. Uprime receno, vzhledem k omezenim v Personal verzi si
neumim predstavit moc realnych aplikaci, ktere by nejaka firma ve vetsim
meritku pouzivala.

Petr Vones

Dual monitor na HP OmniBook XE3 pod Win2000 (integ

[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 6.12.2001 05:05:02

Zdravim,
mam jiny problem s Win, tak jsem si precetl licencni podminky.
Veskere problemy s Win ma resit vyrobce, resp. prodejce tveho pocitace. Tak
vem vsechno pod pazi a at se staraji jini.
Pavel

P.S. zkus softwarove odpojit tu integrovanou kartu. Predpokladam, ze mas asi
Matrixe Dual Head

> Na %subj%
> pod Win98 vse funguje jak ma,
> pod W2k nevim, kde zacit.
>
> Jaro
>
>
> ---
> Odch�dzaj�ca spr�va neobsahuje v�rusy.
> Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
> Verzia: 6.0.298 / V�rusov� datab�za: 161 - d�tum vydania: 13. 11. 2001


Tray ikony

[*] David Kraina <DKx(zv)Seznam(tec)cz> - 6.12.2001 06:59:36

Da se nejak dostat vsechny tray ikony na taskbaru do me aplikace vcetne
jejich funkci, menu�, atd. ?

Aktualni jazyk

[*] David Kraina <DKx(zv)Seznam(tec)cz> - 6.12.2001 06:59:36

Jak zjist�m aktualni jazyk na klavesnici (ne instalovany - tim co pisu)
a jak zachytim hlasku o zmene ?

Neresizovatelny form

[*] David Kraina <DKx(zv)Seznam(tec)cz> - 6.12.2001 06:59:36

Jak mam zmenit velikost formu primo v Delphi prostredi, kdyz to je nekde
blokle ? Standartne resizuji mysi nebo menim form.widrh + form.height a
on se mi stejne vrati do puvodni polohy (viz tak� LocalesExample.dpr v
JCL).

DELPHI 6

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.12.2001 07:39:02

> mozne reseni by asi bylo do licence dane aplikace uvest, ze ji nelze vyuzivat
> ke komercnim ucelum. Uprime receno, vzhledem k omezenim v Personal verzi si
> neumim predstavit moc realnych aplikaci, ktere by nejaka firma ve vetsim
> meritku pouzivala.

To ja si realnou aplikaci dovedu predstavit vcelku barvite... ne
vsichni potrebuji na psani aplikaci vsechny ty opicarny, co jsou
nacpane do vyssich verzi... ;-)

Priklad: v D6PE v pohode funguje Synapse.. a se Synapsi se daji
napsat dospele aplikace, klidne i treba e-mail server. Nepotrebujes
nic vic nez D6PE a Synapsi... A myslim, ze podobnych prikladu s
jinyma knihovnama bych nasel hromady!

-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

DELPHI 6

[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 6.12.2001 07:50:17

Asi se dostavame na tenky led.
Uz chybi jen krucek k salamounskemu reseni:
Pokud chci ve firme vytvorit aplikaci. Vyrobim jako doma (minimalne
zkompiluji), prohlasim to za FREEWARE, ale nedam tomu zadnou
reklamu, takze o tom nikdo nebude vedet, ve firme to stahnu jako
freeware a je to.
Nebo by to neslo?

J.Madlik

> Ahoj,
> mozna tomu uplne nerozumim, ale chapu-li to dobre, tak pokud ja napisi
> nekomercni aplikaci - resp dam ji k dispozici komukoliv, pak tim
prestoupim
> licenci protoze si ji bude moci stahnout nejaka firma a pouzivat ji? Cili
si
> muzu udelat aplikaci s kterou si budu doma hrat a hotovo?
>
> S pozdravem
> Lukas Gallina
> lukas.gallina(zv)programky(tec)cz

Zalohovani IB

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 06.12.2001 07:52:19

V tejto suvislosti by ma celkom zaujimalo, ako spustat z programu
v Delphi nejaky prikaz, alebo davku na vzdialenom unixovom serveri.
Riesil uz niekto nieco podobne?

Vlkovic


> Coz takhle spustit z programu na pozadi gbak ? Ten vam udela
> zalohu na lokalnim pocitaci (s parametrem -s na serveru).
>
> S pozdravem
>
> Pavel Cisar


Konfview a nejaka solidnejsi DB

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 6.12.2001 07:59:41

> a co uplne zahodit myslenku databazi a vyrobit nejake
> proprietalni reseni ktere se bude presne hodit na
> dany problem.

no, coz o to, ale ja osobne bych uvital spise IB,
neco jsem zacal doma lepit, ale neni cas.
az to dolepim, dam vedet (snad pres svatky ;).
proc IB? protoze bych to mrsknul na firemni server
a nechal, at si taky nekdy neco vyresi kolegove
sami. chvilema si pripadam, jako inteligenti
referencak (za vydatne podpory konference samozrejme ;)

PeC(zv)

FireBird a mazanie mnoziny zaznamov.

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 6.12.2001 08:01:39

ahoj,

coz napsat na to SP a k odchyceni
vyjimky pouzit WHEN?

PeC(zv)

DBGrid s buttonem, problem na NT 4.0 Workstation

[*] CERMAK <CERMAK(zv)procom(tec)cz> - 6.12.2001 08:09:20

Ahoj vsichni

Mam nasledujici problem. V programu v D5 SP1 pouzivam DBGrid. Na urcitem
sloupecku potrebuji vyvolat jisty maly formular. Udelal jsem to tak, ze jsem
na sloupci nastavil ButtonStyle na cbsEllipsis a nastavil obsluhu udalosti
OnEditButtonClick. Vse mi funguje u nas ve firme na jakemkoli ze systemu WIN
NT 4.0 server, WIN 98, WIN 2000. U zakaznika, na WIN NT 4.0 Workstation se
button neobjevuje. Bohuzel nemam moznost to osobne proverit, je to prilis
daleko. Poslal jsem tamjednoducy programek s DBGridem, a podobnou akci, ten
ale funguje.
Nesetkali jste se s tim? Poradte moc prosim, jsem uz zoufaly.

Toto pry nefunguje:

object dbgRad: TDBGrid
Left = 0
Top = 28
Width = 518
Height = 104
Align = alClient
DataSource = dsRad
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -12
TitleFont.Name = 'Book Antiqua CE'
TitleFont.Pitch = fpVariable
TitleFont.Style = []
OnColExit = dbgRadColExit
OnDblClick = dbgRadDblClick
OnEditButtonClick = dbgRadEditButtonClick
OnKeyDown = dbgRadKeyDown
Columns = <
item
Expanded = False
FieldName = 'NazFunkce'
Title.Caption = 'Funkce'
Width = 339
Visible = True
end
item
ButtonStyle = cbsEllipsis
Expanded = False
FieldName = 'PravaNavigator'
Title.Caption = 'Pr�va'
Width = 183
Visible = True
end
item
Expanded = False
FieldName = 'StopPouzivani'
Title.Caption = 'Stop'
Visible = True
end>
end

a toto funguje

object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 479
Height = 316
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnEditButtonClick = DBGrid1EditButtonClick
Columns = <
item
Expanded = False
FieldName = 'Cislo'
Visible = True
end
item
Expanded = False
FieldName = 'Jmeno'
Visible = True
end
item
ButtonStyle = cbsEllipsis
Expanded = False
FieldName = 'PredvolenaUl'
Visible = True
end>
end



Jaromir Cermak

DELPHI 6

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.12.2001 08:20:54

> Pokud chci ve firme vytvorit aplikaci. Vyrobim jako doma (minimalne
> zkompiluji), prohlasim to za FREEWARE, ale nedam tomu zadnou
> reklamu, takze o tom nikdo nebude vedet, ve firme to stahnu jako
> freeware a je to.
> Nebo by to neslo?

ja mam nejak zafixovano, ze kdyz necopouzivam jako firma, tak je to
komercni pouziti, nebo ne? nekomercni pouziti je podle mne to, ze si
to stahnes treba domu a tam si to sam pro sebe nejak pouzivas.

-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

DELPHI 6

[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 6.12.2001 08:52:25

Ahoj,

> ja mam nejak zafixovano, ze kdyz necopouzivam jako firma, tak je to
> komercni pouziti, nebo ne? nekomercni pouziti je podle mne to, ze si
> to stahnes treba domu a tam si to sam pro sebe nejak pouzivas.
>
> -- Lukas Gebauer.

Mam pocit, ze autor chtel rict, ze ta firma vlastne jen stahne "nejaky"
freeware z Netu a nezajima se o to, v cem to kdo napsal.
Nelenil jsem a nasel jsem jednu vetu na
http://www.borland.com/about/press/2001/delphi_personal.html.

Delphi 6 Personal Edition allows new developers to create high-performance
Windows 98, Windows NT and Windows 2000 applications for personal,
non-commercial use.

Z toho chapu, ze vyvoj freeware neni personal pouziti. Tudiz IMHO nelze.

Ota Maly

DELPHI 6

[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.12.2001 09:25:36

> > ja mam nejak zafixovano, ze kdyz necopouzivam jako firma, tak je to
> > komercni pouziti, nebo ne? nekomercni pouziti je podle mne to, ze si
> > to stahnes treba domu a tam si to sam pro sebe nejak pouzivas.

> Mam pocit, ze autor chtel rict, ze ta firma vlastne jen
> stahne "nejaky"
> freeware z Netu a nezajima se o to, v cem to kdo napsal.
> Nelenil jsem a nasel jsem jednu vetu na
> http://www.borland.com/about/press/2001/delphi_personal.html.
>
> Delphi 6 Personal Edition allows new developers to create
> high-performance
> Windows 98, Windows NT and Windows 2000 applications for personal,
> non-commercial use.
>
> Z toho chapu, ze vyvoj freeware neni personal pouziti. Tudiz
> IMHO nelze.
>
> Ota Maly

Ahoj,

nezda se vam, ze se zapletate do jalovych uvah ? "application for personal,
non-commercial use" znamena aplikace pro nekomercni pouziti, tedy pouziti, z
nehoz TVURCI neplyne obchodni profit. Z pouziti freeware TVURCI freeware
neplyne obchodni profit, tedy dovozuji, ze pro tvorbu freeware lze D6PE
pouzit. Analogicky lze dovodit, ze pokud si vytvorim pomoci D6PE aplikaci,
kterou pouzivam napriklad pro podporu sveho ekonomickeho rozhodovani a nemam
profit primo z teto aplikace, ale z jejiho uziti, pak rovnez toto pouziti
vyhovuje licenci. Jinak bychom totiz retezenim uvah mohli dojit k naprosto
nesmyslnym paradoxum.
Neprecenoval bych problematiku licenci a venoval bych se spise tvorbe SW.
Problematika licenci by vas mela zacit zajimat v okamziku, kdy zacnete
programy, ktere jste vytvorili, prodavat (at jiz formou krabicoveho SW, ci
proprietarnich reseni).

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

DELPHI 6

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.12.2001 09:29:03

6.12.2001 Jir� Foldyna:
> nezda se vam, ze se zapletate do jalovych uvah ? "application for personal,
> non-commercial use" znamena aplikace pro nekomercni pouziti, tedy pouziti, z
> nehoz TVURCI neplyne obchodni profit.

Nepodcenoval bych sluvko "personal", coz znamena pro vlastni potrebu,
ne pro potrebu ostatnich (vcetne freeware), natoz vyuziti ve firme

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz


OT: RE: Re: DELPHI 6

[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 6.12.2001 09:42:01

Hi,

mam pocit, ze nekdo chce obejit licencni ujednani a proste to lidove
"vochcat".

Kdyz budu vychazet z nazvu Personal Edition, tak mam jasno, jedna se o
program pro MOJI potrebu
No a kdyz udelam freeware (to neni program pro MOJI potrebu ale pro
distribuci), tak porusuji licenci, ne?

S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz


.. -----Original Message-----

.. nezda se vam, ze se zapletate do jalovych uvah ? "application for
personal,
.. non-commercial use" znamena aplikace pro nekomercni pouziti, tedy
pouziti, z
.. nehoz TVURCI neplyne obchodni profit. Z pouziti freeware TVURCI freeware
.. neplyne obchodni profit, tedy dovozuji, ze pro tvorbu freeware lze D6PE
pouzit.

ComboBox

[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 6.12.2001 10:06:13

Ahoj, mam malou otazku
potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat jeste jednu
hodnotu kterou by mela kazda
polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.

Nevite nekdo jak na to ?

Diky za odpoved

Radek Janus Foresta SG a.s. Vsetin


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001

ComboBox

[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 6.12.2001 10:07:16

> -----Original Message-----
> From: Radek Janu# FSG [mailto:janus(zv)foresta(tec)cz]
>
> hodnotu kterou by mela kazda
> polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.
>
> Nevite nekdo jak na to ?

Ahoj,

var X : Integer;
begin
for X := 1 to 10
do ComboBox1.Items.AddObject('Polozka', TObject(X));
end;

a cislo z toho dostanes:

ShowMessage(IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex
])));

Ales


ComboBox

[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.12.2001 10:09:25

Radek Janu# FSG dne 6 Dec 2001 v 10:06:

> Ahoj, mam malou otazku
> potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat jeste
> jednu hodnotu kterou by mela kazda polozka ITEMS, neco jako TAG.Cili
> potreboval bych v ComBoBoxu u kazde polozky v ITEMS ukladat jeste
> jednu polozku-neco jako TAG.

Ahoj,

neslo by vyuzit
procedure AddItem(Item: String; AObject: TObject);

Napr. ComboBox1.AddItem('test',pointer(12));

Karel Rys


ComboBox

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.12.2001 10:09:45

TComboBox.Items jsou typu TStrings, takze mas moznost ukladat neco do
Item.Data.

Ale osobne bych videl schudnejsi napsat si potomka ComboBoxu, ktery by
tam ten Tag mel primo. Nahradit Items.TStrings za vlastni.

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

6.12.2001 Radek Janu# FSG:
> Ahoj, mam malou otazku
> potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat jeste jednu
> hodnotu kterou by mela kazda
> polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.

dbExpress

[*] cis <cis(zv)atlas(tec)cz> - 6.12.2001 10:21:01

Hi,
pouzivam to v trivrstve aplikaci. Server IB, server pro midas - kde mam
zatim TQuery a BDE. Na klientu spustim pres TClientaDataSet dotaz. Data
dostanu asi za 3 s (join na 2 tab. pocet radku asi 12 000) po zavolani Open.
Pokud v serveru pouziji misto TQuery, TSqlClientDataSet tak tento dotaz trva
3 minuty. TClientDataSet si vzdy stejne natahne data podle PacketRecords. Z
toho vyplyva, ze dbExprexx je zoufale pomaly. Tak nevim...

alda


----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 05, 2001 10:12 AM
Subject: Re: dbExpress


> Odes�latel: cis <cis(zv)atlas(tec)cz>
> provozuje nekdo dbExpress v aplikaci? Zkousel jsem pristup k IB, a
vysledky
> dost slabe. Uplne trapny SQL dotaz na BDE trva asi 3s a na dbExpress asi
> minutu. Setkal se s tim nekdo?

To zalezi na pristupu.
napr.
TQuery po otevreni nacte jenom tolik zaznamu, kolik potrebuje (napr. do
gridu).
TClientDataSet, pri propojeni napr. pres dbExpress nacte vsechno (viz
PacketRecords).

Server by mel stejny select vyhodnocovat stejne.
Takze pokud dam TQuery.Last (Ctrl+End v gridu), melo by to byt priblizne
stejne.

Anebo je to jinak?

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================

DELPHI 6

[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 6.12.2001 10:22:03


>
> nezda se vam, ze se zapletate do jalovych uvah ?
ponekud ano :-)

> Problematika licenci by vas mela zacit zajimat v okamziku, kdy zacnete
> programy, ktere jste vytvorili, prodavat (at jiz formou krabicoveho SW, ci
> proprietarnich reseni).
To uz muze byt pozde, licence je potreba vzit v uvahu pri navrhu reseni(nebo
jeste drive), muze to znacne ovlivnit cenu, napr. u DB aplikaci.

> venoval bych se spise tvorbe SW.
To rozhodne souhlasim, debata zacina byt lehce neplodna..

>
> Jiri Foldyna


Ota Maly

DELPHI 6

[*] Frantisek Augusztin <afsoft(zv)host.sk> - 6.12.2001 10:22:56

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pesek Michal
> Sent: Thursday, December 06, 2001 9:42 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: RE: Re: DELPHI 6
>
>
> Hi,
>
> mam pocit, ze nekdo chce obejit licencni ujednani a proste to
> lidove "vochcat".
>
> Kdyz budu vychazet z nazvu Personal Edition, tak mam jasno,
> jedna se o program pro MOJI potrebu No a kdyz udelam freeware
> (to neni program pro MOJI potrebu ale pro distribuci), tak
> porusuji licenci, ne?

----- SNIPPET FROM EULA-----

4. LICENSE TERMS FOR THE WORKS YOU CREATE USING BORLAND
DELPHI PERSONAL VERSION 6
You may not use the Software for any commercial, business, governmental
or institutional purpose of any kind ("Noncommercial Purposes"). Borland
grants to you as an individual, a personal, nonexclusive license to
install and use the Software for the sole purposes of designing,
developing and running, in source and compiled form, the works which you
create for your own personal Noncommercial Purposes, using the Software
("Works"), subject to the restrictions in this License Agreement. You
may distribute your Works to others. You may not receive any direct or
indirect compensation for the distribution or use of your Works. ...
GENERAL TERMS THAT APPLY TO COMPILED WORKS AND REDISTRIBUTABLES You may
compile (including byte-code compile) your Works using the Software,
including any libraries and source code included for such purpose with
the Software. You may reproduce and distribute Works in compiled form,
without additional license or fees, subject to all of the conditions in
this License Agreement. You may not receive any direct or indirect
compensation for the distribution or use of your Works.
----- SNIPPET ---�


Archivacia db v IB6

[*] <delphi(zv)zvlauto.sk> - 6.12.2001 10:33:26

ok. Skusal som to. Ale preco ma originalny subor "gbd" velkost 659k a zaloha
cize "gbk" len 13k?
Neulozilo tam data, len strukturu?

Robo.

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Rado Benc
Sent: Wednesday, December 05, 2001 2:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Archivacia db v IB6


V adresari bin IB instalacie InterBase / Firebird je command line utilita
gbak:

Backup:

gbak -b -v d:\path\file.gdb e:\bak\file.gbk -user "sysdba" -
password "masterkey"

Restore:

gbak -r -v e:\bak\file.gbk d:\path\file.gdb -user "sysdba" -
password "masterkey"

HTH,

Rado


____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail


DELPHI 6 (dlhe)

[*] Frantisek Augusztin <afsoft(zv)host.sk> - 6.12.2001 10:34:25

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pesek Michal
> Sent: Thursday, December 06, 2001 9:42 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: RE: Re: DELPHI 6
>
>
> Hi,
>
> mam pocit, ze nekdo chce obejit licencni ujednani a proste to
> lidove "vochcat".
>
> Kdyz budu vychazet z nazvu Personal Edition, tak mam jasno,
> jedna se o program pro MOJI potrebu No a kdyz udelam freeware
> (to neni program pro MOJI potrebu ale pro distribuci), tak
> porusuji licenci, ne?
>
>

1.
----- SNIPPET FROM EULA-----

4. LICENSE TERMS FOR THE WORKS YOU CREATE USING BORLAND
DELPHI PERSONAL VERSION 6
You may not use the Software for any commercial, business, governmental
or institutional purpose of any kind ("Noncommercial Purposes"). Borland
grants to you as an individual, a personal, nonexclusive license to
install and use the Software for the sole purposes of designing,
developing and running, in source and compiled form, the works which you
create for your own personal Noncommercial Purposes, using the Software
("Works"), subject to the restrictions in this License Agreement. You
may distribute your Works to others. You may not receive any direct or
indirect compensation for the distribution or use of your Works. ...
GENERAL TERMS THAT APPLY TO COMPILED WORKS AND REDISTRIBUTABLES You may
compile (including byte-code compile) your Works using the Software,
including any libraries and source code included for such purpose with
the Software. You may reproduce and distribute Works in compiled form,
without additional license or fees, subject to all of the conditions in
this License Agreement. You may not receive any direct or indirect
compensation for the distribution or use of your Works.
----- SNIPPET ---�

"You may distribute your Works to others. You may not receive any direct
or indirect compensation for the distribution or use of your Works "
Neviem ako vy, ale toto podla mna ide prelozit len jednym sposobom :
Mozete distribouvat vas program inym. Nemozte dostat ziadnu priamu alebo
nepriamu kompenzaciu z distribucie alebo pouzitia vasho programu...

2. http://www.delphi3000.com/articles/article_2625.asp

DELPHI 6 PERSONAL EDITION FAQ


Why did they call it "Personal"?

Because its license limits you to use it only for noncommercial use. Any
commercial, business, governmental or institutional purposes of any kind
are expressly prohibited. They called it "Personal" because it's really
"personal". :)

You can distribute your works created with Delphi 6 Personal Edition,
but may not receive any direct or indirect compensation. This means for
example that you can't sell licenses of your software, charge for a
tailor-made application, ask for royalties, distribute "adware"
applications, etc., etc., etc. "Direct or indirect compensation" is
quite comprehensive!!!


Who is it meant for?

You can draw your own conclusions. I guess it is meant for hobbyists or
people who just want to learn some programming... Surely it is not meant
for programmers who expect to get paid from their work, for businesses,
or for institutions of any kind (including the government).


Is it free?

Yes, it's free (gratis), but you have to register. You can download it
from the Borland site:

http://www.borland.com/delphi/personal/index.html


If it's free, why is Borland selling it?

The download is 140 MB, too much for the Internet connection many people
have. Besides, the CD-ROM version that Borland is selling for $99.95
includes a printed manual and installation support.


Is it open source?

No, it isn't open source, although the source code of some units is
available (like windows.pas).


Do I have to distribute my applications under the GNU GPL?

No, that applies to Kylix Open Edition. With Delphi 6 Personal, if you
distribute your applications, you have to distribute them free of
charge, but you are not forced to distribute the source code if you
don't want to, although you cannot charge for it if you decide to
distribute it.


Which components does the Personal Edition come with?

Delphi 6 Personal Edition comes with 85 components. No DB components,
FastNet, QReports, etc. It is very much like Delphi 5 Standard Edition
(with some new things, of course).


Is there a Delphi 6 Standard Edition?

Since version 6, there's no Standard Edition of Delphi. If you are
interested in developing commercial applications, consider purchasing
Delphi 5 Standard Edition.

ComboBox

[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 06.12.2001 10:35:40

ComboBox1.Items. - > function AddObject(const S: string; AObject: TObject): Integer; virtual;

- ulozeni
ComboBox1.Items.AddObject('Muj objekt 1',MujObject);
- pristup
MujObjekt:=TMyObject(ComboBox1.Items.Objects[ComboBox.ItemIndex]);

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644

>>> janus(zv)foresta(tec)cz 6.12.01 10:06 >>>
Ahoj, mam malou otazku
potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat jeste jednu
hodnotu kterou by mela kazda
polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.

Nevite nekdo jak na to ?

Diky za odpoved

Radek Janus Foresta SG a.s. Vsetin


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001

ComboBox

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 10:40:08

> Ahoj, mam malou otazku
> potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat
> jeste jednu
> hodnotu kterou by mela kazda
> polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.

TComponent.Tag je typu Longint, takze predpokladam, ze Tvoja "polozka" ma
byt tiez Longint alebo Integer...
Mozes pouzit TStrings.Objects:
- pri pridavani do stringlistu typecast Integer na TObject
- pri "vyberani" typecast TObject na Integer

var
Text: string;
Tag: Longint;

// pridaj text a tag
Text := 'bla';
Tag := 10;
ComboBox1.Items.AddObject(Text, TObject(Tag));

// ukaz obsah
Text := ComboBox1.Items[0];
Tag := Longint(ComboBox1.Items.Objects[0]);
ShowMessage(Format('Text: ''%s''; Tag: %d', [Text, Tag]));

Takymto sposobom mozes do stringlistov (potomkov TStrings) pridavat
akukolvek 32-bitovu hodnotu, odkaz na record, instanciu triedy a podobne.

HTH
TOndrej


DBGrid s buttonem, problem na NT 4.0 Workstation

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 6.12.2001 10:40:10

> nastavil obsluhu udalosti OnEditButtonClick. Vse mi funguje u nas ve
> firme na jakemkoli ze systemu WIN NT 4.0 server, WIN 98, WIN 2000. U
> zakaznika, na WIN NT 4.0 Workstation se button neobjevuje.

Nevim, moc neporadim, ale setkal jsem se s tim, ze na jednom
pocitaci u zakaznika byly NT4 s SP3. A na tomto jedinem pocitaci
jinak zcela nevinny kod zpusoboval padani aplikace. Nekde jsem
cetl (mozna tady v konfere), ze NT4 se daji rozumne provozovat az
od SP4. Nema zakaznik treba tenhle problem?

David Lebeda


ComboBox

[*] ivan.virag(zv)aliatel(tec)cz - 6.12.2001 10:48:46

Zdravim.

Pripadne metoda AddItem, ktera uklada jak vlastni string, tak ukazatel na
objekt. Napriklad pro nize zminene ulozeni integer hodnoty se da pouzit:

ComboBox1.AddItem(MyString, Pointer(MyInteger));

Ivan Virag

> -----Original Message-----
> From: Radek Janu# FSG [mailto:janus(zv)foresta(tec)cz]
>
> hodnotu kterou by mela kazda
> polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.
>
> Nevite nekdo jak na to ?

Ahoj,

var X : Integer;
begin
for X := 1 to 10
do ComboBox1.Items.AddObject('Polozka', TObject(X));
end;

a cislo z toho dostanes:

ShowMessage(IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex
])));

Ales


Adonis a store procedure

[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 6.12.2001 10:52:59

D�ky to pomohlo, ovsem zase mi to nevraci OUTPUT parametry.

Potrebuji to na jednoduchou akci:
provedu zauctovani dokladu (budto vsechny polozky OK nebo nic), pokud jsou
vsechny limity OK = COMMIT, zjistim-li chybu (jsem nekde mimo limit) =
ROLLBACK a potrebuji vratit DataSet (polozky s chybou).
Zaroven mi procedura vraci v parametru jak dopadla a ID (identity) noveho
dokladu.
Pokud nastavim SET NOCOUT ON, vrati procedura dataset, ale nenasadi se
OUTPUT parametry, coz mirne komplikuje praci s procedurou.

Pokud zavolam ExecProc, vse je OK, dostanu paramery, ale nemam dataset.
Pokud zavolam Open, nemam parametry, ale mam dataset.
Neni nejaka moznost jak to ziskat oboje?

V ADOExpresu to jde bez problemu (zas tam nejdou jine veci kvuli kterym jsme
zvolili Adonis ):).

Pavel

>
> Zatim mi to vzdy pomohlo (SET NOCNOUNT...), ale princip je v
> tom, ze ADO umi
> vracet vice datasetu a da se volit, ktery chces...
>
> > P�edm�t: Adonis a store procedure
> > Mam problem,
> > se store procedure u MS-SQL a ADONIS,
> > pokud ma procedura neco udelat (update tabulky) a potom
> > vratit DataSet,
> > oblasi mi TADOStoredProc "Operation is not allowed when the
> object is
> > closed".
> > Myslim, ze jsem to jiz kdysi zlomil, ale nemohu si zaboha
> > vzpomenou jak.
> > Muzete mi nekdo postrcit.
>
> Ahoj,
>
> SET NOCOUNT ON/OFF ?
>
> Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
>
>
>

dbExpress

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 6.12.2001 11:00:42

> Odes�latel: cis <cis(zv)atlas(tec)cz>
> pouzivam to v trivrstve aplikaci. Server IB, server pro midas - kde mam
> zatim TQuery a BDE. Na klientu spustim pres TClientaDataSet dotaz. Data
> dostanu asi za 3 s (join na 2 tab. pocet radku asi 12 000) po zavolani Open.
> Pokud v serveru pouziji misto TQuery, TSqlClientDataSet tak tento dotaz trva
> 3 minuty. TClientDataSet si vzdy stejne natahne data podle PacketRecords. Z
> toho vyplyva, ze dbExprexx je zoufale pomaly. Tak nevim...

A co pouzit na serveru misto TSQLClientDataSet jenom TSQLDataset?

TSQLClientDataset v sobe uz "obsahuje" TSQLDataset+TDataSetProvider+TClientDataSet, takze tady zrejme dochazi k nejakemu "nasobnemu nacitani". Z toho, co pises, rozumim asi nasledujici toky dat (v zavorce je TSQLClientDataSet).

(TSQLDataSet->TDataSetProvider->TClientDataSet)->TDataSetProvider->TClientDataSet.

Osobne jsem dbExpress nezkousel na vetsich datech, jenom na prikladech na skoleni.
Myslim ale, ze vzhledem k omezenym schopnostem TSQLDataSet (unidirectional, zadny "bufferovani" zaznamu, neschopnost update, tim padem maly overhead) by to mela byt ve spojeni s TClientDataSet dobra cesta.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================

DELPHI 6

[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.12.2001 11:05:01

> mam pocit, ze nekdo chce obejit licencni ujednani a proste to lidove
> "vochcat".
>
> Kdyz budu vychazet z nazvu Personal Edition, tak mam jasno, jedna se o
> program pro MOJI potrebu
> No a kdyz udelam freeware (to neni program pro MOJI potrebu ale pro
> distribuci), tak porusuji licenci, ne?
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz

Ahoj,

v teto interpretaci znamena "osobni, nekomercni pouziti" prakticky zakaz
instalace. Protoze pokud se D6PE naucis pracovat, zvysis si kvalifikaci,
kterou pak muzes zpenezit. Je to absurdni priklad, ale cely tento thread je
absurdni.
Jeste jednou opakuji, venujme se spise programovani, nez reseni licencnich
ujednani. Prakticky vyznam to nema, jen se priklada zbytecny vyznam
podruznym pseudoproblemum. Je evidentni, ze pokud se chci programovanim
zivit, potrebuji k tomu nastroj, ktery si v pripade Borland Delphi musim
koupit. Pokud se tim nezivim, je na mne, jak se k veci postavim. Mnoha
ustanoveni licencnich smluv a zakonu na ochranu autorskych prav jsou v
rozporu se zdravym rozumem, takze pokud nehrozi riziko jejich uplatneni
(komu je co do toho, co si delam doma pro zabavu ?), tak se jimi odmitam
zabyvat. Akademicke diskuse na toto tema jsou jen vodou na mlyn ruznym
prizivnikum, kteri aniz by byli schopni cokoli uzitecneho vytvorit,
parazituji na praci jinych (ruzne BSA, softwarove policie, udavaci apod.).
Dekuji, to nemusim.

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

ComboBox

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.12.2001 11:07:44

> Ahoj, mam malou otazku
> potreboval bych pri ukladani do ComboBoxu do ITEMS ukladat
> jeste jednu
> hodnotu kterou by mela kazda
> polozka ITEMS, neco jako TAG.Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.
>
> Nevite nekdo jak na to ?
>
> Diky za odpoved

Ahoj,

co pouzit property Objects z TStrings ?

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

Zapis do ini souboru

[*] Anton�n Ture�ek <tantonin(zv)cbox(tec)cz> - 6.12.2001 11:07:42

Diky za pomoc.
Bohuzel TiniFile v Delphi3 tuto metodu nema.
pohledem do zdroju petek, jsem zjistil, ze TIniFile.UpdateFile nedela nic
jineho nez, ze vola
sluzbu jadra kernel32 WritePrivateProfileString;
Takze WritePrivateProfileString(nil, nil, nil, PChar(ini.FileName)); je
resenim pro ty, kteri jsou nuceni pracovat s takovym dinosaurem jako ja.
anton.

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Wednesday, December 05, 2001 5:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Zapis do ini souboru


From: "Anton�n Ture�ek" <tantonin(zv)cbox(tec)cz>
> Na Win NT/2000 (NTFS) funguje dobre.
> Na Win 98/ME (Fat32) se do souboru nezapise nic, v pripade, ze je funkci

Ahoj,

musis ja konci zavolat TIniFile.UpdateFile

Petr Vones


ComboBox

[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 6.12.2001 11:08:50

K Item se da doplnit objekt:

lookDruh.Items.AddObject('text polozky', Object );

K objektu pak pristupujes podle indexu:

lookDruh.Items.Objects [Index];

------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP1, D5Ent.

===== Puvodni zprava =====
Napsal Radek Janu# FSG, <mailto:janus(zv)foresta(tec)cz>
> Cili potreboval bych v ComBoBoxu u kazde
> polozky v ITEMS ukladat jeste jednu polozku-neco jako TAG.

Konfview a nejaka solidnejsi DB

[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 6.12.2001 11:14:56


>no, coz o to, ale ja osobne bych uvital spise IB,
>neco jsem zacal doma lepit, ale neni cas.
>az to dolepim, dam vedet (snad pres svatky ;).
>proc IB? protoze bych to mrsknul na firemni server
>a nechal, at si taky nekdy neco vyresi kolegove
>sami. chvilema si pripadam, jako inteligenti
>referencak (za vydatne podpory konference samozrejme ;)

vyresil bych to obdobne.

Frantisek Sevcik

---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001


dbExpress

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 11:21:08

> pouzivam to v trivrstve aplikaci. Server IB, server pro midas
> - kde mam zatim TQuery a BDE. Na klientu spustim pres
> TClientaDataSet dotaz. Data dostanu asi za 3 s (join na
> 2 tab. pocet radku asi 12 000) po zavolani Open.
> Pokud v serveru pouziji misto TQuery, TSqlClientDataSet tak
> tento dotaz trva 3 minuty. TClientDataSet si vzdy stejne
> natahne data podle PacketRecords. Z toho vyplyva, ze
> dbExprexx je zoufale pomaly. Tak nevim...

Cau,

podla helpu je TSQLClientDataSet asi mysleny skor pre klienta (napr.
briefcase model).
A mimochodom, ma tiez vlastnost PacketRecords.
A vsetko natahuje do pameti, co asi zacne vadit pri viacerych klientoch.
Navyse, ak si nevypol LogChanges, potom zbytocne generuje delta packets :-)
Podla mna skus radsej pouzit TSQLDataSet alebo TSQLQuery.

Este som s dbExpress nepracoval, tak ma prosim ber s rezervou ;-)

HTH
TOndrej


Neresizovatelny form

[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 6.12.2001 11:30:38

Zpr�vaA nemas AutoSize := True?????
Jak mam zmenit velikost formu primo v Delphi prostredi, kdyz to je nekde
blokle ? Standartne resizuji mysi nebo menim form.widrh + form.height a on
se mi stejne vrati do puvodni polohy (viz tak� LocalesExample.dpr v JCL).

TCP komunikace a zpracovani zprav

[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 6.12.2001 11:40:37

Ahoj, mam takovy dotaz ohledne posilani dat pres tcp a zpracovani zprav.
Prevadim klientskou aplikaci z DB komponent na TCP komunikaci.
Klient odesle serveru pres winsock pozadavek a ceka na vysledky.
Pouzivam tento kod :

procedure SendRequest;
begin
Client1.RequestDone:=OnRequestDone;
Client1.Tag:=1;
Screen.Cursor:=crHourglass;
Client1.Send;
while Client1.Tag=1 do Application.ProcessMessages;
.... zpracovani vysledku
end;

procedure OnRequestDone(Sender: TObject);
begin
Client1.Tag:=0;
Screen.Cursor:=crDefault;
end;

problem je v tom, ze mezitim, nez se provede odeslani dat
a prijdou vysledky, tak muzu mackat tlacitka, psat do editu
coz samozrejme nechci.

Kdyz vyhodim to Application.ProcessMessages tak to zustane
stat a aplikacnimu serveru vubec pozadavek nedojde.

Marian Jonas


TCP komunikace a zpracovani zprav

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.12.2001 11:55:00

> problem je v tom, ze mezitim, nez se provede odeslani dat
> a prijdou vysledky, tak muzu mackat tlacitka, psat do editu
> coz samozrejme nechci.
>
> Kdyz vyhodim to Application.ProcessMessages tak to zustane
> stat a aplikacnimu serveru vubec pozadavek nedojde.

Bodejd, kdyz pouzivas komponenty, ktere pouzivaji na voji vnitrni
cinnost messages. tedy kdyz mu nedovolis zpracvani messages, tak se
nema sanci dozedet z prisly data.;-)

Kdybys pouzil misto toho Synapsi, tak by se ti to chovali presne jak
bys potreboval. ;-)

staci pak:

1. nahodit ten kuzor
2. metodou sendString odeslat data (nebo jinou metdo, pdole toho co
chces odeslat)
3. zavolat napriklad metodu RecvPacet, ktera vrati string s nactenymi
daty a jako druhy parametr ma timeout.

.. a to je VSE! Nemusis se starar o zadne cyklicke zjistovani, jestli
data uz prisly nebo ne, navic po dobu cekni na data bude tvuj program
pocive spat a nebue zrat procesor. ;-)


-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Zruseni tiskoveho jobu

[*] Tom� Otrusin�k���:��)�#�⚚�#�? - 6.12.2001 11:59:47

Dobry den!

Nevite nahodou nekdo jak se dat zrusit konkretni job z tiskove fronty?

Tomas Otrusinik


Combo a jeho sirka

[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 6.12.2001 12:04:16

Ahoj,

mam prosbu: nevite o nekdo o kombicku u ktereho
lze menit sirku rozbalovaciho seznamu nezavisle na
sirce vlastniho combicka?

Dekuji
Tomas Bihary


Adonis a store procedure

[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 6.12.2001 11:31:55 -0000

Navrat datasetu z ExecProc riesim cez glob.temp. table, je to jednoduche a
funguje to.
>D�ky to pomohlo, ovsem zase mi to nevraci OUTPUT parametry.
>Potrebuji to na jednoduchou akci:
>provedu zauctovani dokladu (budto vsechny polozky OK nebo nic), pokud jsou
>vsechny limity OK = COMMIT, zjistim-li chybu (jsem nekde mimo limit) =
>ROLLBACK a potrebuji vratit DataSet (polozky s chybou).
>Zaroven mi procedura vraci v parametru jak dopadla a ID (identity) noveho
>dokladu.
>Pokud nastavim SET NOCOUT ON, vrati procedura dataset, ale nenasadi se
>OUTPUT parametry, coz mirne komplikuje praci s procedurou.

>Pokud zavolam ExecProc, vse je OK, dostanu paramery, ale nemam dataset.
>Pokud zavolam Open, nemam parametry, ale mam dataset.
>Neni nejaka moznost jak to ziskat oboje?

>V ADOExpresu to jde bez problemu (zas tam nejdou jine veci kvuli kterym
jsme
>zvolili Adonis ):).

Combo a jeho sirka

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 6.12.2001 12:31:11

> mam prosbu: nevite o nekdo o kombicku u ktereho
> lze menit sirku rozbalovaciho seznamu nezavisle na
> sirce vlastniho combicka?


SendMessage (combobox.Handle,CB_SETDROPPEDWIDTH,sirka,0);

Combo a jeho sirka

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 12:37:55

> mam prosbu: nevite o nekdo o kombicku u ktereho
> lze menit sirku rozbalovaciho seznamu nezavisle na
> sirce vlastniho combicka?

Nie celkom, ale standardny combobox podporuje nasledovne:

SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH, 200, 0);

Vysledna sirka dropped-down listboxu bude bud hodnota, ktoru mu takto
posles, alebo sirka samotneho comboboxu,
podla toho, ktora z nich ma vecsiu hodnotu.
Inymi slovami, na standardnom comboboxe sa da nastavit sirka dropped-down
listboxu vecsia alebo rovna sirke comboboxu,
ak Ti to staci.

HTH
TOndrej


Kopirovani zamceneho souboru.

[*] Luk� Gallina <delphi(zv)programky(tec)cz> - 6.12.2001 12:43:18

Ahoj,
snazim se zkopirovat zamceny soubor (napr .pst Outlooku) a nedari se mi to.
Otviram to :

FileOpen(FileName, fmOpenRead);

a zhavaruje mi to na tom, ze je soubor pouzivan. Nevite nekdo jak na to, neb
FAR to zkopirovat umi.

WinXP Prof US, Delphi 6

Diky a s pozdravem
Lukas Gallina


FireBird a mazanie mnoziny zaznamov.

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.12.2001 12:47:38

Haj hou!

On 5 Dec 2001, at 15:42, Roland Turcan wrote:

> Chcem vymazat mnozinu zaznamov, ale niektore zaznamy su napojene cez foreign
> a vyvola sa vynimka. Je mozne aby sa vymazali len tie zaznamy ktorym
> vymazaniu nie je branene ?

Coz takhle pouzit ulozenou proceduru a v ni udelat for select
rdb$db_key blabla where blabla into :mykey do
dale mazat where rdb$db_key=:mykey
a osetrit chybu/vyjimku when do ? Mozna bude nutne vnoreny
delete dat do samostatne subprocedury a tam to odchytit a pozrat,
ale podle meho tudy vede cesta :-)

0.02c

S pozdravem

Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase


Zalohovani IB

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.12.2001 12:47:38

Haj hou!

On 6 Dec 2001, at 7:52, Peter Vlkovic wrote:

> V tejto suvislosti by ma celkom zaujimalo, ako spustat z programu
> v Delphi nejaky prikaz, alebo davku na vzdialenom unixovom serveri.
> Riesil uz niekto nieco podobne?

Sice jsem to nepotreboval resit, ale jedno reseni se nabizi samo :-)
Pouzij komponenty Internet Direct (INDY) a vytvor si telnet spojeni
na server a spoustej si co chces. Podobne by melo jit i SSH
spojeni.

S pozdravem

Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase


Jak osetrit jakoukoliv vyjimku ?

[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 6.12.2001 13:14:25

Zdarec,

jak to udelam, aby mi program nehodil nikdy chybovou hlasku ? Dival jsem se
na Application.OnException, ale nevim kam to napsat, aby to jelo tak jak si
predstavuju. Kdyz si hodim na form komponentu AppEvents z RxLib a udelam
toto:

procedure TFormHlavni.AppEvents1Exception(Sender: TObject; E: Exception);
begin
Application.MessageBox(PChar('Nastala chyba'+e.Message),'Pozor',0);
end;


tak, kdyz si v programu udelam zamerne chybu, treba ze chci 20. polozku
listu, ikdyz jich tam je jenom 5, tak to to okno nevyhodi, ale vyhodi to to
puvodni ...

Vladimir, W98, D4


Vlastni API

[*] Milan ��ek - 6.12.2001 13:16:57

Ahoj,
rad bych udelal do sveho programu jakesi API rozhrani, obdobne jako u
WinAmpu. Zpravy dokazu odchytavat a reagovat na ne. Zatim ale nevim, jak
predat odpoved na obdrzenou zpravu, uvedu priklad.

U WinAMPu (WM_USER+0)
- Retrieves the version of Winamp running. Version will be 0x20yx for 2.yx.
This is a good way to determine if you did in fact find the right window,
etc.

Jak ziskam tuto odpoved do nejake promene?? Lze takto vracet i stringy
(PCchar)?

Chci docilit toho, ze pokud muj program dostane napr. WM_USER+10, vrati
nejaka data. Muzete mi prosim poradit, jak se toto resi? Diky

S pozdravem Milan Cizek, amatersky programator, D6 Enterprise
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637


DBGrid s buttonem, problem na NT 4.0 Workstation

[*] CERMAK <CERMAK(zv)procom(tec)cz> - 6.12.2001 13:17:04

Ahoj vsichni

Problem byl mezi obrazovkou a klavesnici. Program totiz rusil sloupce gridu
a pak je znovu obnovoal a na ButtonStyle jsem jaksi zapomel. Moc se omlouvam
a dekuji za snahu pomoci.


Jaromir Cermak

Archivacia db v IB6

[*] Roland Turcan <rolo(zv)sedas.sk> - 6.12.2001 13:21:03


----- Original Message -----
From: <delphi(zv)zvlauto.sk>
Sent: Thursday, December 06, 2001 10:33 AM


> ok. Skusal som to. Ale preco ma originalny subor "gbd" velkost 659k a
zaloha
> cize "gbk" len 13k?
> Neulozilo tam data, len strukturu?
>
> Robo.

Ked len vytvoris prazdnu databazu uz ma 300-400KB a je absolutne prazdna.

Roland.

Direct X

[*] V�t Jur�sek - konference <delphi(zv)obecpohori(tec)cz> - 6.12.2001 13:40:56

[P��loha v souboru: V�t Jur�sek.vcf]
Jak muzu otestovat, zda na danem pocitaci je nainstalovan direct X a
pripadne jaka jeho verze?
Diky
VJ


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.306 / Virov� b�ze: 166 - datum vyd�n�: 4.12.2001


Kurzorove klavesy v TCustomControl

[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 6.12.2001 13:43:42

DDV,
nevi nekdo z Vas, proc mi nejdou v TCustomControl
pomoci udalosti OnKeyDown odchytit kurzorove klavesy???

Diky. Jirka


Neresizovatelny form

[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 6.12.2001 13:52:28

Zpr�va>From: David Kraina
>Jak mam zmenit velikost formu primo v Delphi prostredi, kdyz to je nekde
blokle ? Standartne resizuji mysi nebo menim form.widrh >+ form.height a on
se mi stejne vrati do puvodni polohy (viz tak� LocalesExample.dpr v JCL).

Moc tomu Tvojmu vyjadreniu nerozumiem.
Myslis v dobe navrhu formulara ze sa Ti neda zmenit velkost?
Nemas nahodou nastavene Constraints?
Nehorovir o frame-u miesto formu?

Kaka�ka Pavol
KasiX(zv)atlas(tec)cz

pr�b�h Stream.Write

[*] bleak <bleak(zv)atlas(tec)cz> - 6.12.2001 13:56:01

zdrav�m,
pot�ebuji ukazatel pr�b�hu pro operaci TStream.Write nebo TStream.Read. Jak
zjist�m kolik byt� bylo zaps�no (p�e�teno)? M�m D4S.

bleak


Direct X

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 14:07:39

> Jak muzu otestovat, zda na danem pocitaci je nainstalovan direct X a
> pripadne jaka jeho verze?

V PlatformSDK je pomerne komplikovany priklad v cecku, ktory to zistuje
pomocou verzie OS a skusanim natahovania roznych exportovanych funkcii z
DirectX DLL: getdxver.cpp.
Na MSDN o tom pisu tu:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dx8_c/direc
tx_cpp/Intro/ProgramCPP/Version/VersionCheck.asp

HTH
TOndrej


Jak osetrit jakoukoliv vyjimku ?

[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 6.12.2001 14:08:46

Rx uz nepouzivam, takze neviem ale jedno z rieseni je toto:

vo FormCreate:
Application.OnException := MyOnException;

a metoda:

procedure TMainForm.MyOnException(Sender: TObject; E: Exception);
begin
ShowException(Sender, E, True, True); (=> ShowMessage('bla bla bla') )
end;

Kaka�ka Pavol
KasiX(zv)atlas(tec)cz

From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> jak to udelam, aby mi program nehodil nikdy chybovou hlasku ? Dival jsem
se
> na Application.OnException, ale nevim kam to napsat, aby to jelo tak jak
si
> predstavuju. Kdyz si hodim na form komponentu AppEvents z RxLib a udelam
> toto:

Aktualni jazyk

[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 6.12.2001 14:11:57

Zpr�va>From: David Kraina
>Jak zjist�m aktualni jazyk na klavesnici (ne instalovany - tim co pisu) a
jak zachytim hlasku o zmene ?

viz. metoda GetKeyboardLayout (a skupina!)

Kaka�ka Pavol
KasiX(zv)atlas(tec)cz

prubeh Stream.Write

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 14:24:23

> pot�ebuji ukazatel pr�b�hu pro operaci TStream.Write nebo
> TStream.Read. Jak zjist�m kolik byt� bylo zaps�no (p�e�teno)?
> M�m D4S.

Nie je co zistovat. Zapisane/precitane bude tolko, kolko predas v parametri
Count metode WriteBuffer/ReadBuffer.
(V pripade chyby sa vyvola exception.)
Mozes zapisovat/citat v slucke po blokoch a pritom zobrazovat priebeh.

HTH
TOndrej


Kopirovani zamceneho souboru.

[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 6.12.2001 14:36:07

zkus FileOpen(FileName, fmOpenRead + fmShareDenyNone);
pokud nepomuze ani to, pak nevim.
A. Martinik

> Ahoj,
> snazim se zkopirovat zamceny soubor (napr .pst Outlooku) a
> nedari se mi to.
> Otviram to :
>
> FileOpen(FileName, fmOpenRead);
>
> a zhavaruje mi to na tom, ze je soubor pouzivan. Nevite nekdo
> jak na to, neb
> FAR to zkopirovat umi.
>
> WinXP Prof US, Delphi 6
>
> Diky a s pozdravem
> Lukas Gallina
>
>

Project manager - IDE D5

[*] Jan Naiser <tua(zv)wo(tec)cz> - 6.12.2001 14:40:53

Preji pekny den,

V IDE D5 v project manageru mam v projektu nekolik (napr. 5) aplikaci. Pokud
pracuju dejme tomu s 3. a ostatni mam zavrene a ukoncim Delphi a opet
spustim, vzdy se mi nastavi na posledni aplikaci v projektu a vsechny jsou
otevrene a to bez ohledu na to, ktera byla pri ukonceni aktualni. Vsechno
ostatni se uklada, jak ma a jak je to v parametrech nastaveno. Da se to
nejak resit?

Za odpoved dekuji.

Jan Naiser.

synapse

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 6.12.2001 14:46:36

nevite nekdo jak zjistit pomoci synapse existenci urciteho adresare na ftp?

diky za kazdou radu


Jak otev��t tabulky FoxPro z Delphi

[*] Roman Netu�il <netusil.roman(zv)vspardubice(tec)cz> - 6.12.2001 14:58:25

Ahoj vsichni,
chtel bych Vas pozadat o radu, jakym zpusobem pristupovat k tabulk�m Microsoft Foxpro, ktere maj� CDX soubor definovany napriklad s nejakou funkc� /treba sys(15,Text1,Text2)/ z Delphi 3 a Delphi 6. Postaci mi priup pouze pro cen�. Mysli si, z by to meo jit pres ODBC, ale ja bohuzel nevim jak.

Dekuji
Roman

D3Prof, D6Prof, W98, tabulky FoxPro

synapse

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.12.2001 15:11:15


Zkus se do toho adresare prepnout pomoci metody ChangeWorkingDir a
otestuj si vysledek.. funkce vraci TRUE, jestlize dopadla dobre. Kdyz
adresar neexistuje, FTP server vrati chybu, ne?

> nevite nekdo jak zjistit pomoci synapse existenci urciteho adresare na ftp?


-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Lokalizovanie balicka

[*] Ivan Kozak <iko(zv)zoznam.sk> - 6.12.2001 14:17:37 ut


Neviete mi prosim poradit niekto v nasledovnej veci:
pouzivam hotove komponenty (z Internetu), z balicka. Nebol s nimi problem,
ale v momente ked som lokalizoval (s pomocou Delphi) program (t.j. pre
spustenie pouzivam resourcestringy v nemcine), tak by aj jedna z mojich
komponent chcela svoje resource stringy.
A ja neviem, ako ten balicek skompilovat, aby vznikli tie resourcestringy
(v zdrojaku su).

Ak je to blbo alebo nejasne sformulovane, prepacte, rad upresnim detaily.
Dik za kazdy napad.

Ivan kozak

P.S.
Ak tato zprava dosla 2x tak sa ospravedlnujem, email nefunguje dost
spolahlivo.

CD vysun & zasun

[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 6.12.2001 15:18:33

Zdravim,
mam programek na vysunovani a zasunovani CD a Zip mechanik a potrebuji nekam
zapsat informaci (do registru?) aby mi Windows v popup menu zarizeni na
prave tl. mysi umoznily zavolani meho programku...

.
.
_________
Vysunout
Zasunout - tady bych volal muj program
_________ s parametry %1 /close
Vytvorit zastupce
.
.


Nevite nekdo, kam to mam zapsat ???

Robert Plz�k


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.306 / Virov� b�ze: 166 - datum vyd�n�: 4.12.2001


synapse

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 6.12.2001 15:19:05

diky
to me pak taky napadlo, ale co jsem nevedel, ze cesta musi zacinat / (nebo
je to jen ma predstava?)

> Zkus se do toho adresare prepnout pomoci metody ChangeWorkingDir a
> otestuj si vysledek.. funkce vraci TRUE, jestlize dopadla dobre. Kdyz
> adresar neexistuje, FTP server vrati chybu, ne?
>
> > nevite nekdo jak zjistit pomoci synapse existenci urciteho adresare na
ftp?

Jak osetrit jakoukoliv vyjimku ?

[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 06.12.2001 15:20:54

Vyjimky muzes take osetrit v bloku

Try
DStr:=ListBox.Items[Index];
except
MessageDlg('Index listboxu neexistuje !!!',mtError,[mbOk],0);
end;

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644

>>> ruzicka(zv)digitus(tec)cz 6.12.01 13:14 >>>
Zdarec,

jak to udelam, aby mi program nehodil nikdy chybovou hlasku ? Dival jsem se
na Application.OnException, ale nevim kam to napsat, aby to jelo tak jak si
predstavuju. Kdyz si hodim na form komponentu AppEvents z RxLib a udelam
toto:

procedure TFormHlavni.AppEvents1Exception(Sender: TObject; E: Exception);
begin
Application.MessageBox(PChar('Nastala chyba'+e.Message),'Pozor',0);
end;


tak, kdyz si v programu udelam zamerne chybu, treba ze chci 20. polozku
listu, ikdyz jich tam je jenom 5, tak to to okno nevyhodi, ale vyhodi to to
puvodni ...

Vladimir, W98, D4

synapse

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.12.2001 15:22:34

> to me pak taky napadlo, ale co jsem nevedel, ze cesta musi zacinat / (nebo
> je to jen ma predstava?)

To dost zalezi na FTP serveru, kazdy to muze mit nejak jinak.. ale
vetsina pochazi od Unixu (ba i mnohe Windowsi se tak tvari) a tak ty
cesty na '/' jaksi zacinaji. ;-))) tedy cesty se zpravidla pouzivaji
v unixovem formatu, ale neni to pravidlo, na ktere se da
spolehnout!!!
-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Lokalizovanie balicka

[*] =?utf-8?Q?Kaka=C4=8Dka_Pavol?= <kakacka(zv)proca(tec)cz> - 6.12.2001 15:31:56

From: "Ivan Kozak" <iko(zv)zoznam.sk>
> Neviete mi prosim poradit niekto v nasledovnej veci:
> pouzivam hotove komponenty (z Internetu), z balicka. Nebol s nimi problem,
> ale v momente ked som lokalizoval (s pomocou Delphi) program (t.j. pre
> spustenie pouzivam resourcestringy v nemcine), tak by aj jedna z mojich
> komponent chcela svoje resource stringy.
> A ja neviem, ako ten balicek skompilovat, aby vznikli tie resourcestringy
> (v zdrojaku su).

Ahaaa :) nepisal si mi ze mas od toho zdrojaky :)) potom to neni problem,
staci ked resource prelozis priamo v delphi a balicek zkompilujes znovu.
Alebo som nieco prehliadol?

Kaka#�ka Pavol
KasiX(zv)atlas(tec)cz

Lokalizovanie balicka

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.12.2001 15:54:49

On 6 Dec 2001 at 14:17, Ivan Kozak wrote:

> Neviete mi prosim poradit niekto v nasledovnej veci:
> pouzivam hotove komponenty (z Internetu), z balicka. Nebol s nimi
> problem, ale v momente ked som lokalizoval (s pomocou Delphi) program
> (t.j. pre spustenie pouzivam resourcestringy v nemcine), tak by aj
> jedna z mojich komponent chcela svoje resource stringy. A ja neviem,
> ako ten balicek skompilovat, aby vznikli tie resourcestringy (v
> zdrojaku su).
>
> Ak je to blbo alebo nejasne sformulovane, prepacte, rad upresnim
> detaily. Dik za kazdy napad.

Jestlize pouzivas i ten balicek, pak staci mit lokalizovany balicek. Pokud kompilujes bez toho
balicku, pak se lokalizuje vysledny program. Pokud jsou v balicku nejake skryte formulare, ke
kterym nemas DFM, pak ti lokalizacni tool z Delphi nepomuze. Pokud je balicek lokalizovany
externim souborem, pak pri kompilaci programu bez balicku se do kodu zacleni puvodni resourcy
- proto se lokalizuje vysledny program.

S pozdravem

Zbysek Hlinka

Phone: 0603 551 282


Konfview a nejaka solidnejsi DB

[*] David Janko <djanko(zv)infoware(tec)cz> - 6.12.2001 16:03:17

> Jeste doplneni: Vetsi rychlost MySQL oproti IB si vysvetluji tim, ze MySQL
> nepodporuje transakce a tudiz neni zatizena ani rezii s tim spojenou.
>
> Ludek

Mysql podporuje transakce, jen musite rici, ze je chcete. Kdyz je nad necim
nepotrebujete, tak bude samozrejme rychlejsi. Akorad sem nejak neprisel na
to, jak to rozhodnout v dbExpressu, kdyz si dela co se mu zlibi ;-). Mysql
funguje dle mych zkusenosti sqele, spolehlive a rychle od malych az po
stredne velke DB (rekneme 1 GB tabulka) s vetsimi nemam zkusenost ale
spolehnul bych se na ni. Samozrejme zalezi, co presne od SQL serveru cekate,
nerikam, ze se hodi na vsechno ...


Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe

Lokalizovanie balicka

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 16:09:05

> ale v momente ked som lokalizoval (s pomocou Delphi) program
> (t.j. pre spustenie pouzivam resourcestringy v nemcine), tak
> by aj jedna z mojich komponent chcela svoje resource stringy.
> A ja neviem, ako ten balicek skompilovat, aby vznikli tie
> resourcestringy (v zdrojaku su).

Je dost mozne, ze som nepochopil otazku, napriek tomu:

Lokalizacia balickov (.bpl) je rovnaka ako u inych projektov (napriklad .exe
alebo .dll),
v zdrojakoch musia byt texty deklarovane pomocou klucoveho slova
resourcestring.

Ak potom Tvoj hlavny projekt pouziva runtime balicky, musis lokalizovat
zvlast hlavny projekt a zvlast ten balicek (a instalovat lokalizovane
resource DLL spolu s nimi). Inak su vsetky resourcestringy zo vsetkych
pouzitych unit linkovane do hlavneho .exe a teda lokalizovatelne v ramci
hlavneho projektu.

Napriklad:

- ak kompilujes s runtime packages:

Project1.exe (original, anglictina)
Project1.sky (resource DLL, slovencina)

Package1.bpl (original, anglictina)
Package1.sky (resource DLL, slovencina)

Package2.bpl (original, anglictina)
Package2.sky (resource DLL, slovencina)

... atd.

Kedze kazdy projekt kompilovany s runtime balickami vyzaduje standardne VCL
balicky, mozes si (ak chces) vytvorit resource DLL aj pre ne. Ale preklady
niektorych systemovych hlasok budu asi metuce, osobne by som uprednostnil
anglictinu.

- ak kompilujes bez runtime packages:

Project1.exe (original, anglictina)
Project1.sky (resource DLL, slovencina)

HTH
TOndrej


Farba Progressbaru

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 06.12.2001 16:36:19

Ahoj,

da sa nejak zmenit farba ProgressBaru?
(mam na mysli samotny stlpec, nie pozadie ProgressBaru)

Vlkovic


Archivacia db v IB6

[*] Rado Benc <bego(zv)pobox.sk> - 6.12.2001 16:48:55

> ok. Skusal som to. Ale preco ma originalny subor "gbd" velkost
> 659k a zaloha cize "gbk" len 13k?
> Neulozilo tam data, len strukturu?

Do "gbk" sa uklada iba to, co je nevyhnutne pre uchovanie informacii
o metadatach a datach - naviac v komprimovanom tvare. Ak teda databaza
neobsahuje data, resp obsahuje minimum dat, backup je maly - priklad:
databaza priblizne 3,85 MB ( vyse 100 tabuliek, v kazdej max niekolko sto
zaznamov, ma po backupe 815 kB ). Backup uplne prazdnej databazy ma u mna
512 bytov.

Najjednoduchsi sposob, ako zistit, ci sa ulozili aj data je restore. :-)

HTH,

Rado



____________________________________
http://www.pobox.sk/ - profesionalny e-mail zadarmo

DELPHI 6 (dlhe)

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 6.12.2001 16:54:46


----- Original Message -----
From: "Frantisek Augusztin" <afsoft(zv)host.sk>

>You can distribute your works created with Delphi 6 Personal Edition,
>but may not receive any direct or indirect compensation. This means for
>example that you can't sell licenses of your software, charge for a
>tailor-made application, ask for royalties, distribute "adware"
>applications, etc., etc., etc. "Direct or indirect compensation" is
>quite comprehensive!!!


Ahoj.
Pokud dobre chapu, tak muzu distribuovat jakekoliv exe vytvorene v D6PE, ale
nesmim za to brat penize.
Takze freeware je mozne legalne pomoci D6PE psat.

Mozna by stalo za to aby do tehle diskuze vstoupil nekdo od ceskeho Borlandu
a rekl k tomu svuj vyklad, ktery by v pripadnem sporu mel jiste znacnou
vahu.

Ludek

Kurzorove klavesy v TCustomControl

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 16:55:17

> nevi nekdo z Vas, proc mi nejdou v TCustomControl
> pomoci udalosti OnKeyDown odchytit kurzorove klavesy???

Ahoj,

bolo to tu nedavno, asi nemas osetrenu spravu WM_GETDLGCODE, ktorej vratis
DLGC_WANTARROWS.
Priklady najdes vo VCL: TSpinButton, TMediaPlayer, TTabbedNotebook a ine.

HTH
TOndrej


DBComboBox a rozdilne hodnoty zapis/zobrazeni

[*] David Janko <djanko(zv)infoware(tec)cz> - 6.12.2001 17:01:06

Dobry den,
je nejak podporovano v D/kylix $subj ? Jde mi o to ze v DB bude treba
enum('Yes','No','Okey') coz tam potrebuju zapsat, ale uzivatel by mel videt
treba Ano, Ne, V poradku ...
Dekuji.
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe

Riadenie prekladov - direktivy

[*] Robert Suska <robert(zv)korak.sk> - 6.12.2001 17:12:01

Ahojte potrebujem v slovencine alebo v cestine popis direktiv pre riadenie
prekladov programu pod Delphi min verzie D3. Dakujem velmi krasne.

S pozdravom Robo


Farba Progressbaru

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 17:30:18

> da sa nejak zmenit farba ProgressBaru?
> (mam na mysli samotny stlpec, nie pozadie ProgressBaru)

uses
CommCtrl;

SendMessage(ProgressBar.Handle, PBM_SETBARCOLOR, 0, clRed);

HTH
TOndrej


Vlastni API

[*] brant(zv)dcomm(tec)cz - 6.12.2001 17:43:49

Ano, lze to, ale tak, ze se nejprve vytvori prostor, kam se maji data ulozit
a preda se pouze pointer na tuto oblast pameti.

Napriklad:

type TMojeData = record
Polozka: integer;
...
end;

procedure Ziskej_data;
var MojeData: TMojeData;

SendMessage(WM_DEJ_SEM_DATA, 0, LPARAM((zv)MojeData));...a reakce na WM_DEJ_SEM_DATA:

procedure Poskytni_data(var Msg:TMessage);

if Msg.LPARAM<> nil then
begin
TMojeData(Msg.LPARAM).Polozka:=...
...
end;

Zcela stejne lze vracet i retezce, nejprve se musi naalokovat pamet a preda
se PChar coby pointer na zacatek te alokovane oblasti, tj. napr.

var a: array[0..255] of char;
SendMessage(WM_DEJ_SEM_DATA, 0, LPARAM(a));


Pisu to z hlavy, takze se omlouvam za pripadne chyby.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380

D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7


rad bych udelal do sveho programu jakesi API rozhrani, obdobne jako u
WinAmpu. Zpravy dokazu odchytavat a reagovat na ne. Zatim ale nevim, jak
predat odpoved na obdrzenou zpravu.

Jak ziskam tuto odpoved do nejake promene?? Lze takto vracet i stringy
(PCchar)?

Chci docilit toho, ze pokud muj program dostane napr. WM_USER+10, vrati
nejaka data. Muzete mi prosim poradit, jak se toto resi? Diky

S pozdravem Milan Cizek, amatersky programator, D6 Enterprise
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637


CD vysun & zasun

[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 6.12.2001 17:50:48

Ahoj

pro pridani do PopupMenu Disku napr v slozce Tento pocitac

HKEY_CLASSES_ROOT\drive\shell\NazevProgramu

vychozi hodnota = zobrazovany text
dale novy klic s nazvem 'command' a hodnota = Plnacesta + %1

tot vse muzes se podivat jak to delaji jine nainstalovane programy.
Dale
HKEY_CLASSES_ROOT\directory\shell...
HKEY_CLASSES_ROOT\folder\shell...

Na oplatku jak oteviras tu ZIP mechaniku CD umim ,ale ZIP jsem jeste
nezkousel.

DIK

Delphi 5 Prof Win 2000 SP2

Jaroslav KUBA
jarda(zv)tresoft(tec)cz
> Zdravim,
> mam programek na vysunovani a zasunovani CD a Zip mechanik a potrebuji
nekam

DBComboBox a rozdilne hodnoty zapis/zobrazeni

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.12.2001 18:00:11

> je nejak podporovano v D/kylix $subj ? Jde mi o to ze v DB bude treba
> enum('Yes','No','Okey') coz tam potrebuju zapsat, ale uzivatel by mel
> videt treba Ano, Ne, V poradku ...

Malo by ist pouzit TField.OnGetText, OnSetText.

HTH
TOndrej


Vlastni API

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.12.2001 19:36:08

> Ahoj,
> rad bych udelal do sveho programu jakesi API rozhrani, obdobne jako
u
> WinAmpu. Zpravy dokazu odchytavat a reagovat na ne. Zatim ale nevim,
jak
> predat odpoved na obdrzenou zpravu, uvedu priklad.
>
> U WinAMPu (WM_USER+0)
> - Retrieves the version of Winamp running. Version will be 0x20yx
for 2.yx.
> This is a good way to determine if you did in fact find the right
window,
> etc.
>
> Jak ziskam tuto odpoved do nejake promene?? Lze takto vracet i
stringy
> (PCchar)?
>
> Chci docilit toho, ze pokud muj program dostane napr. WM_USER+10,
vrati
> nejaka data. Muzete mi prosim poradit, jak se toto resi? Diky
>

zalezi dost na tom co to API ma vlastne vsechno poskytovat. Myslim, ze
vetsina
pripadu se lepe resi exportovanim opravdovych funkci - ala DLL.
I EXE aplikace muze pomoci export klauzule exportovat funkce, ktere
mohou byt vyuzity z
dalsich execek ci DLL (ja takhle volam z EXE DLLka, ktera naoplatku z
EXE pouzivaji
exportovane funkce)


D. Toman

Aktualni jazyk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2001 21:13:11

From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> Jak zjist�m aktualni jazyk na klavesnici (ne instalovany - tim co pisu)

Ahoj,

podivej se na JclLocales unit a priklad LocalesExample.dpr z JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL

Petr Vones


Jak odstranit nepouzivane resource

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2001 22:42:37

From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Muze mi nekdo rict, co vlastne dela StripReloc? Vim, ze odstrani realokacni
> tabulku, ale co to vlastne je?

Ahoj,

pokud mas DLL ktera je prelozena s bazovou adresou (ImageBase) napriklad
$4A00000 a na teto adrese je jiz v danem procesu jina DLL tak je treba ji
relokovat nekam jinam. V tomto pripade je treba upravit veskere adresy ktere
jsou vztazeny k puvodni ImageBase a nekde musi byt ulozena tabulka ktera mista
to presne jsou. A to je prave relokacni tabulka. V EXE souborech ji lze
vynechat, protoze EXE soubor je v procesu vzdy zaveden jako prvni a tudiz
nehrozi situace, ze by bylo treba jej relokovat.

> Lze odstranit ty resourcy, ktere aplikace nepouziva? (typicky glyphy na
> BitButtony a ikony

Tyto resource se pridaji jakmile pouzijes unit ktery je pres {$R ... }
prilinkuje. Mohl by sis leda napsat nejaky tool, ktery je pak z vysledneho
soubory odstrani (pomoci BeginUpdateResource a spol.).

> Je to z velke miry predevsim psychologicky efekt. Proste cim mensi program,
> tim lepsi. BFU to proste nevysvetlis. Na tomto asi jede i UPX a jine
> nesmysly.

Bohuzel :-( Stale je tu ale moznost pouziti nejakeho selfextraktoru.

Petr Vones


Konfview a nejaka solidnejsi DB

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 7.12.2001 01:10:29


----- Original Message -----
From: "David Janko" <djanko(zv)infoware(tec)cz>
> Mysql podporuje transakce, jen musite rici, ze je chcete.

Ahoj.
To by mne zajimalo.
Takze dve otazky :
1) Od ktere verze MySQL transakce podporuje.
2) Jak se ji "rekne" aby transakce pouzivala.

Predem dik.

Ludek


Aktualni jazyk

[*] David Kraina <DKx(zv)Seznam(tec)cz> - 7.12.2001 06:59:29

To tam nikde neni, jenom seznam moznych...

>podivej se na JclLocales unit a priklad LocalesExample.dpr z JCL:
http://delphi-?jedi.org/Jedi:CODELIBJCL

>> Jak zjist�m aktualni jazyk na klavesnici (ne instalovany - tim co
>> pisu)

Konfview a nejaka solidnejsi DB

[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 7.12.2001 08:30:41

MySQL transakce podporuje.Zkou#el jsem to sice p�es PHP, ale s ODBC
p��stupem. Nativn� jsem se do transakc� nedostal
> -----Original Message-----
> From: Lud�k ZITA [mailto:konference(zv)sales(tec)cz]
> Sent: Friday, December 07, 2001 1:10 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Konfview a nejaka solidnejsi DB
>
>
>
> ----- Original Message -----
> From: "David Janko" <djanko(zv)infoware(tec)cz>
> > Mysql podporuje transakce, jen musite rici, ze je chcete.
>
> Ahoj.
> To by mne zajimalo.
> Takze dve otazky :
> 1) Od ktere verze MySQL transakce podporuje.
> 2) Jak se ji "rekne" aby transakce pouzivala.
>
> Predem dik.
>
> Ludek
>

Obnova velke databaze IB

[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 7.12.2001 08:38:07

Prosim pomoc

Udelal jsem zalohu databaze a ted bych potreboval udelat obnovu.

Puvodni databaze mela cca 12 GB
Zaloha ma cca 6 GB a mam ji v nekolika 2GB souborech.
Poskozena snad neni.
Kdyz pustim obnmovu tak cca po 8 hodinach ( Athlon 1.2 GHz
1GB RAM )
To dodela prava, napise creating indexes a pak po dalsi hodince
ERROR: I/O error for file c:\windows\temp\ib_sort_a69403
ERROR: error while trying to write to file
ERROR: zarizeni nezna tento prikaz

ERROR: sort error

Myslel jsem, ze ma malo mista ( byl tam jen asi 1GB ) uvolnil jsem
mu celkem 5GB a nepomohlo, Tak jsem si rekl, ze nejspis pretece
temp soubor pres 2GB a zhrouti se, tak jsem mu do ibconfig dopsal
TMP_DIRECTORY 1800000000 e:\test\TEMP1
TMP_DIRECTORY 1800000000 e:\test\TEMP2
TMP_DIRECTORY 1800000000 e:\test\TEMP3
TMP_DIRECTORY 1800000000 e:\test\TEMP4
TMP_DIRECTORY 1800000000 e:\test\TEMP5
TMP_DIRECTORY 1800000000 e:\test\TEMP6
a opet stejna chyba na disku c:

Cache u interbase mam 65535 ( max )

Prosim pomooc, potrebuji dostat databazi na jinej pocitac a neni
jak. Prekopirovat soubory nelze, protoze by se dostaly do jineho
adresare a prestane to fungovat. S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15


Jak osetrit jakoukoliv vyjimku ?

[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 7.12.2001 08:52:35

A nejni to tak ze se ti ukaze pri ladeni v delphi vyjimka a kdyz to pustis
dal (pres F9) tak nasledne pokracuje tvoje zpracovani vyjimky - zkus si
vypnou "BREAK ON EXCEPTION'

-----Original Message-----
From: Ing. Vladim�r R��i�ka
Subject: Jak osetrit jakoukoliv vyjimku ?


Zdarec,

jak to udelam, aby mi program nehodil nikdy chybovou hlasku ? Dival jsem se
na Application.OnException, ale nevim kam to napsat, aby to jelo tak jak si
predstavuju. Kdyz si hodim na form komponentu AppEvents z RxLib a udelam
toto:

procedure TFormHlavni.AppEvents1Exception(Sender: TObject; E: Exception);
begin
Application.MessageBox(PChar('Nastala chyba'+e.Message),'Pozor',0);
end;


tak, kdyz si v programu udelam zamerne chybu, treba ze chci 20. polozku
listu, ikdyz jich tam je jenom 5, tak to to okno nevyhodi, ale vyhodi to to
puvodni ...

Vladimir, W98, D4

Project manager - IDE D5

[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 07.12.2001 08:52:00

Obavam se, ze je to "vlastnost" Delphi5. Ve feature listu od Delphi 6
jsem cetl, ze je to vyresene. Hura. Ale kvuli tomu si Delphi 6 nebudu
kupovat.

Jan Naiser wrote:
>
> Preji pekny den,
>
> V IDE D5 v project manageru mam v projektu nekolik (napr. 5) aplikaci. Pokud
> pracuju dejme tomu s 3. a ostatni mam zavrene a ukoncim Delphi a opet
> spustim, vzdy se mi nastavi na posledni aplikaci v projektu a vsechny jsou
> otevrene a to bez ohledu na to, ktera byla pri ukonceni aktualni. Vsechno
> ostatni se uklada, jak ma a jak je to v parametrech nastaveno. Da se to
> nejak resit?
>
> Za odpoved dekuji.
>
> Jan Naiser.

--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________


Project manager - IDE D5

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 7.12.2001 09:00:34

Ahoj,

jedine, co se mi povedlo, je zeditovat .bpg soubor a tam zmenit poradi
projektu. Na nic chytrejsiho jsem neprisel...

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

> P�edm�t: Project manager - IDE D5
> V IDE D5 v project manageru mam v projektu nekolik (napr. 5)
> aplikaci. Pokud
> pracuju dejme tomu s 3. a ostatni mam zavrene a ukoncim Delphi a opet
> spustim, vzdy se mi nastavi na posledni aplikaci v projektu a
> vsechny jsou
> otevrene a to bez ohledu na to, ktera byla pri ukonceni
> aktualni. Vsechno
> ostatni se uklada, jak ma a jak je to v parametrech
> nastaveno. Da se to
> nejak resit?

Delphi6 Expert (Shift+Ctrl+C)

[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 7.12.2001 09:30:40

Ahoj,
nevite nekdo, jestli existuje nejaky free expert do Delphi6 PE,
ktery by dokazal podle definice tridy v sekci interface
vygenerovat hlavicky metod do sekce implementation a pak
se mezi nimi prepinat, stejne jako jsou napr. v Delphi5 Prof. funkce
Complete class at cursor (Shift+Ctrl+C)
a Shift+Ctrl+Up nebo Down.
Diky
Jaroslav Sipek

Obnova velke databaze IB

[*] Rado Benc <bego(zv)pobox.sk> - 7.12.2001 09:55:27

Nazdar,
> Puvodni databaze mela cca 12 GB
> Zaloha ma cca 6 GB a mam ji v nekolika 2GB souborech.
> Poskozena snad neni.
> Kdyz pustim obnmovu tak cca po 8 hodinach ( Athlon 1.2 GHz
> 1GB RAM )
> To dodela prava, napise creating indexes a pak po dalsi hodince
> ERROR: I/O error for file c:\windows\temp\ib_sort_a69403
> ERROR: error while trying to write to file
> ERROR: zarizeni nezna tento prikaz
>
> ERROR: sort error
>
> Myslel jsem, ze ma malo mista ( byl tam jen asi 1GB ) uvolnil jsem
> mu celkem 5GB a nepomohlo, Tak jsem si rekl, ze nejspis pretece
> temp soubor pres 2GB a zhrouti se, tak jsem mu do ibconfig dopsal
> TMP_DIRECTORY 1800000000 e:\test\TEMP1
> TMP_DIRECTORY 1800000000 e:\test\TEMP2
> TMP_DIRECTORY 1800000000 e:\test\TEMP3
> TMP_DIRECTORY 1800000000 e:\test\TEMP4
> TMP_DIRECTORY 1800000000 e:\test\TEMP5
> TMP_DIRECTORY 1800000000 e:\test\TEMP6
> a opet stejna chyba na disku c:

IMHO nie je problem v nedostatku miesta (pises, ze ho mas dost), ale
vo velkosti docasneho suboru. Nepises, aku verziu DB a OS pouzivas,
ale odhadol by som to na pretecenie interneho file pointra v docasnom
subore - ma viac ako 2 GB.

Ak tomu dobre rozumiem, chyba sa vyskytne pri vytvarani indexov - co
takto ich nevytvarat? Myslim gbak -i , resp. gbak -I v novsich verziach.
Skusil by som zrestorovat databazu bez vytvarania indexov a potom by som sa
hral s aktivaciou indexov.

> Cache u interbase mam 65535 ( max )

Myslis DATABASE_CACHE_PAGES ? To je trosku moc. AFAIK v tomto pripade
aj tak nema na vec vplyv.

HTH,

Rado


____________________________________
http://www.pobox.sk/ - spolahliva a bezpecna prevadzka

Refresh TFileListBox

[*] <delphi(zv)zvlauto.sk> - 7.12.2001 10:34:42

Ahojte,

Do svojej aplikacie som pridal tuto komponentu, ktora by mala sledovat
subory s konkretnou maskou. Potreboval by som ale aby sa pri vytvoreni
suboru tento TFileListBox nejakym sposobom refreshoval. Teda refresh na
konkretny button. FileListBox.Refresh nefunguje.
Vdaka.

Robo.

DELPHI 6 (dlhe)

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.12.2001 10:35:25

> Odes�latel: Lud�k ZITA <konference(zv)sales(tec)cz>
> Mozna by stalo za to aby do tehle diskuze vstoupil nekdo od ceskeho Borlandu
> a rekl k tomu svuj vyklad, ktery by v pripadnem sporu mel jiste znacnou
> vahu.
Soudim, ze pro uzivatele je zavazne Licencni ujednani. Pokud pouziva produkt v souladu s timto ujednanim, muze byt v klidu bez ohledu na interpretaci ceskeho Borlandu, ktera byva nekdy dost "samostatne dilko".

Tim pecliveji je treba Licencni ujednani cist. Ale takova veta na pet radku s jedinym slovesem... :-)

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================

Obnova velke databaze IB

[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 7.12.2001 11:45:01

Prave proto jsem doplnil config o specifikaci tmp souboru.
Proc to nezafungovalo ?
> Nazdar,
> > Puvodni databaze mela cca 12 GB
> > Zaloha ma cca 6 GB a mam ji v nekolika 2GB souborech.
> > Poskozena snad neni.
> > Kdyz pustim obnmovu tak cca po 8 hodinach ( Athlon 1.2 GHz
> > 1GB RAM )
> > To dodela prava, napise creating indexes a pak po dalsi hodince
> > ERROR: I/O error for file c:\windows\temp\ib_sort_a69403
> > ERROR: error while trying to write to file
> > ERROR: zarizeni nezna tento prikaz
> >
> > ERROR: sort error
> >
> > Myslel jsem, ze ma malo mista ( byl tam jen asi 1GB ) uvolnil jsem
> > mu celkem 5GB a nepomohlo, Tak jsem si rekl, ze nejspis pretece
> > temp soubor pres 2GB a zhrouti se, tak jsem mu do ibconfig dopsal
> > TMP_DIRECTORY 1800000000 e:\test\TEMP1
> > TMP_DIRECTORY 1800000000 e:\test\TEMP2
> > TMP_DIRECTORY 1800000000 e:\test\TEMP3
> > TMP_DIRECTORY 1800000000 e:\test\TEMP4
> > TMP_DIRECTORY 1800000000 e:\test\TEMP5
> > TMP_DIRECTORY 1800000000 e:\test\TEMP6
> > a opet stejna chyba na disku c:
>
> IMHO nie je problem v nedostatku miesta (pises, ze ho mas dost), ale
> vo velkosti docasneho suboru. Nepises, aku verziu DB a OS pouzivas,
> ale odhadol by som to na pretecenie interneho file pointra v docasnom
> subore - ma viac ako 2 GB.
>
> Ak tomu dobre rozumiem, chyba sa vyskytne pri vytvarani indexov - co
> takto ich nevytvarat? Myslim gbak -i , resp. gbak -I v novsich verziach.
> Skusil by som zrestorovat databazu bez vytvarania indexov a potom by som sa
> hral s aktivaciou indexov.
>
> > Cache u interbase mam 65535 ( max )
>
> Myslis DATABASE_CACHE_PAGES ? To je trosku moc. AFAIK v tomto pripade
> aj tak nema na vec vplyv.
>
> HTH,
>
> Rado
>
>
>
>
>
> ____________________________________
> http://www.pobox.sk/ - spolahliva a bezpecna prevadzka
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15


Project manager - IDE D5

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.12.2001 11:51:20

> V IDE D5 v project manageru mam v projektu nekolik (napr. 5)
> aplikaci. Pokud pracuju dejme tomu s 3. a ostatni mam
> zavrene a ukoncim Delphi a opet spustim, vzdy se mi nastavi
> na posledni aplikaci v projektu a vsechny jsou otevrene a to
> bez ohledu na to, ktera byla pri ukonceni aktualni. Vsechno
> ostatni se uklada, jak ma a jak je to v parametrech
> nastaveno. Da se to nejak resit?

Ahoj, skus toto:

unit ProjectDesktop;

interface

uses
Classes, SysUtils, ToolsAPI;

type
TProjectDesktopNotifier = class(TNotifierObject, IOTANotifier,
IOTAIDENotifier)
private
procedure LoadProjectDesktop(const FileName: string);
procedure SaveProjectDesktop(const FileName: string);
protected
procedure AfterCompile(Succeeded: Boolean);
procedure BeforeCompile(const Project: IOTAProject; var Cancel:
Boolean);
procedure FileNotification(NotifyCode: TOTAFileNotification;
const FileName: string; var Cancel: Boolean);
end;

procedure Register;

implementation

uses
Windows, IniFiles;

const
SIniActiveProjectSection = 'ActiveProject';
SIniActiveProjectIdent = 'ActiveProject';
SDesktopExt = '.dsk';
SDesktopTempExt = '.$$$';

var
NotifierIndex: Integer = -1;

function FindModuleInterface(AInterface: TGUID): IUnknown;
var
I: Integer;
begin
Result := nil;
with BorlandIDEServices as IOTAModuleServices do
for I := 0 to ModuleCount - 1 do
if (Modules[I].QueryInterface(AInterface, Result) = S_OK) then
Break;
end;

{ TProjectDesktopNotifier private }

procedure TProjectDesktopNotifier.LoadProjectDesktop(const FileName:
string);
var
ActiveProjectIndex: Integer;
ProjectGroup: IOTAProjectGroup;
ProjectGroupModule: IOTAModule;
ProjectGroupFileName: string;
begin
with TIniFile.Create(FileName) do
try
ActiveProjectIndex := ReadInteger(SIniActiveProjectSection,
SIniActiveProjectIdent, -1);
finally
Free;
end;
if ActiveProjectIndex = -1 then
Exit;

ProjectGroup := FindModuleInterface(IOTAProjectGroup) as IOTAProjectGroup;
if not Assigned(ProjectGroup) then
Exit;

ProjectGroupFileName := '';
ProjectGroupModule := ProjectGroup as IOTAModule;
if Assigned(ProjectGroupModule) then
ProjectGroupFileName := ProjectGroupModule.FileName;

if AnsiCompareText(FileName, ChangeFileExt(ProjectGroupFileName,
SDesktopExt)) = 0 then
with ProjectGroup do
if (ActiveProjectIndex >= 0) and (ActiveProjectIndex < ProjectCount)
then
ActiveProject := Projects[ActiveProjectIndex];
end;

procedure TProjectDesktopNotifier.SaveProjectDesktop(const FileName:
string);
var
ProjectGroup: IOTAProjectGroup;
ProjectGroupModule: IOTAModule;
ProjectGroupFileName: string;
ActiveProjectIndex: Integer;
I: Integer;
begin
ProjectGroup := FindModuleInterface(IOTAProjectGroup) as IOTAProjectGroup;
if not Assigned(ProjectGroup) then
Exit;

ActiveProjectIndex := -1;
with ProjectGroup do
for I := 0 to ProjectCount - 1 do
if Projects[I] = ActiveProject then
begin
ActiveProjectIndex := I;
Break;
end;

ProjectGroupFileName := '';
ProjectGroupModule := ProjectGroup as IOTAModule;
if Assigned(ProjectGroupModule) then
ProjectGroupFileName := ProjectGroupModule.FileName;

if AnsiCompareText(FileName, ChangeFileExt(ProjectGroupFileName,
SDesktopTempExt)) = 0 then
begin
with TIniFile.Create(FileName) do
try
WriteInteger(SIniActiveProjectSection, SIniActiveProjectIdent,
ActiveProjectIndex);
finally
Free;
end;
end;
end;

{ TProjectDesktopNotifier protected }

procedure TProjectDesktopNotifier.AfterCompile(Succeeded: Boolean);
begin
// do nothing
end;

procedure TProjectDesktopNotifier.BeforeCompile(const Project: IOTAProject;
var Cancel: Boolean);
begin
// do nothing
end;

procedure TProjectDesktopNotifier.FileNotification(NotifyCode:
TOTAFileNotification;
const FileName: string; var Cancel: Boolean);
begin
case NotifyCode of
ofnProjectDesktopLoad:
LoadProjectDesktop(FileName);
ofnProjectDesktopSave:
SaveProjectDesktop(FileName);
end;
end;

procedure Register;
var
Services: IOTAServices;
begin
Services := BorlandIDEServices as IOTAServices;
if Assigned(Services) then
NotifierIndex := Services.AddNotifier(TProjectDesktopNotifier.Create);
end;

procedure RemoveNotifier;
var
Services: IOTAServices;
begin
Services := BorlandIDEServices as IOTAServices;
if Assigned(Services) then
Services.RemoveNotifier(NotifierIndex);
end;

initialization

finalization
RemoveNotifier;

end.

Popis: Je to IDE notifier, ktory reaguje na notifikacie
ofnProjectDesktopSave tym (ak sa jedna o project group), ze do .dsk suboru
pripise informaciu o prave aktivnom projekte. Pouzil som rovnaku syntax ako
pouziva momentalne Delphi 6:

[ActiveProject]
ActiveProject=x

kde x je (zero-based) index aktivneho projektu.
Notifikacie ofnProjectDesktopLoad su potom osetrene tak (ak sa jedna o
project group), ze sa tato hodnota z .dsk suboru nacita a prislusny projekt
sa aktivuje.

Instalacia: Vytvor si novu designtime-only package, pridaj tam tuto unitu a
nainstaluj ju.

HTH
TOndrej


Nazvy polozek v Sinea

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 7.12.2001 12:01:41

Ahoj,
mam v sestave polozku s nazvem "1. prijemce". Pokud u ni zadam Sledovat podle
nazvu, zavru navrh, otevru navrh, mam u ni zase nastaveno Sledovat podle
poradoveho cislo. Ve tvaru "Prijemce 1" je to v poradku.
Delam neco spatne, nebo je to normalni? :-)

Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO


Nazvy polozek v Sinea

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.12.2001 12:32:16

> From: Roman
>
> mam v sestave polozku s nazvem "1. prijemce". Pokud u ni zadam
> Sledovat podle
> nazvu, zavru navrh, otevru navrh, mam u ni zase nastaveno Sledovat podle
> poradoveho cislo. Ve tvaru "Prijemce 1" je to v poradku.
> Delam neco spatne, nebo je to normalni? :-)
>

Pro to, aby bylo mozne pouzit sledovani polozek podle nazvu,
musi musi nazvy polozek splnovat nektera kriteria:

- nazev polozky nesmi zacinat cislici
- nazev polozky nesmi obsahovat mezery
- pripustne znaky v nazvu polozky jsou
set of char = ['a'..'z','A'..'Z','_','0'..'9','$'];

Pokud nazvy polozek obsahuji mezery, diaktitiku,
nebo zacinaji cislici, nelze pouzit sledovani podle nazvu.

Omezeni se tyka pouze nazvu polozek,
popisy polozek (DisplayLabel) mohou byt libovolne.

Vaclav Krmela

Obnova velke databaze IB

[*] Rado Benc <bego(zv)pobox.sk> - 7.12.2001 13:03:00

Nazdar,

> Prave proto jsem doplnil config o specifikaci tmp souboru.
> Proc to nezafungovalo ?

Tak inak. Podla mojho nazoru nie je problem v nedostatku priestoru,
ale vo velkosti docasneho suboru vytvaraneho pri indexacii.
Z chybovych hlasok odhadujem OS na nejaky W95 - 98 ?
(pomohla by specifikacia), ktory ma problem s velkymi
subormi (konkretne nad 2 GB). Z chybovych hlasok dalej usudzujem,
ze pri vytvarani indexov dojde k vytvoreniu docasneho suboru, ktory je
vacsi nez 2GB (ci mas volneho priestoru v TEMP 100 TB je v tomto pripade
uplne jedno) a to je pri starsich verziach Windows problem.

Teda navrhujem vypnut vytvaranie indexov pocas restore. Vytvorit a
aktivovat ich mozes potom.
Inymi slovami pouzit gbak s prepinacom -i, resp -I (novsie verzie).

gbak: legal switches are:
-I(NACTIVE) deactivate indexes during restore

HTH,

Rado



____________________________________
http://www.pobox.sk/ - spolahliva a bezpecna prevadzka

aplication.terminate

[*] kuchar(zv)unicodesys(tec)cz - 7.12.2001 13:44:55

caute,

kluci mam nasledovnej problem, potrebuju nasilne shodit aplikaci, v programu
je temer nekonecnej cyklus a v nem spoustim jinou proceduru ktera shazuje
program pres application.terminate, problem je v tom ze program pres to
prebehne a k jeho zhozeni nedojde a vesele se vrati k vykonavani cyklu


DIK
----------------------------------------------------------------------------
-------------

aplication.terminate

[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 7.12.2001 14:32:58

V tom nekonecnem cyklu je treba umoznit zpracovani udalosti - Application.ProccesMessages.
Nebo treba schazujici procedura v pripade schozeni naplni nejakou sdilenou promennou, kterou v cyklu testujes a pokud ma urcitou
hodnotu, cyklus(proceduru) ukoncis skoncis

Marek Muller

-----Original Message-----
temer nekonecnej cyklus a v nem spoustim jinou proceduru ktera shazuje
program pres application.terminate, problem je v tom ze program pres to
prebehne a k jeho zhozeni nedojde a vesele se vrati k vykonavani cyklu


THotKey

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 7.12.2001 14:48:26

Ahoj,

k cemu slouzi komponenta THotkey? Ja chapu, co dela, ale
neumim si pro ni predstavit vhodne pouziti, zejmena ne s Visible na
True. Muzete nekdo uvest typicky priklad pouziti?

Dik.

David Lebeda


Jak osetrit jakoukoliv vyjimku ?

[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 7.12.2001 14:51:57

Udelal jsem podle rady, ale nigdy mi to tam neskoci, v cem je tedy chyba ?

VR, W98, D4

> vo FormCreate:
> Application.OnException := MyOnException;
>
> a metoda:
>
> procedure TMainForm.MyOnException(Sender: TObject; E: Exception);
> begin
> ShowException(Sender, E, True, True); (=> ShowMessage('bla bla bla') )
> end;
>
> > jak to udelam, aby mi program nehodil nikdy chybovou hlasku ? Dival jsem
> se

aplication.terminate

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.12.2001 14:56:09

> kluci mam nasledovnej problem, potrebuju nasilne shodit
> aplikaci, v programu je temer nekonecnej cyklus a v nem
> spoustim jinou proceduru ktera shazuje program pres
> application.terminate, problem je v tom ze program pres to
> prebehne a k jeho zhozeni nedojde a vesele se vrati k
> vykonavani cyklu

<help topic="TApplication.Terminate">
Terminate calls the Windows API PostQuitMessage function to perform an
orderly shutdown of the application. Terminate is not immediate.
</help>

Takze ak v tom cykle nespracovavas spravy (Application.ProcessMessages),
WM_QUIT zostane nespracovana visiet v message queue aplikacie.

Navyse, beziaci cyklus nedovoli aplikaciu ukoncit:

<help topic="TApplication.Terminated">
For applications using calculation-intensive loops, call ProcessMessages
periodically, and also check Terminated to determine whether to abort the
calculation and allow the application to terminate.
</help>

takze ten cyklus musi vyzerat napriklad nejako takto:

while True do // nekonecny cyklus
begin
// nejaky kod...
Application.ProcessMessages;
if Application.Terminated then
Break;
end;

HTH
TOndrej


THotKey

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.12.2001 15:03:51

> k cemu slouzi komponenta THotkey? Ja chapu, co dela, ale
> neumim si pro ni predstavit vhodne pouziti, zejmena ne s Visible na
> True. Muzete nekdo uvest typicky priklad pouziti?

Este som ju nepouzil, ale myslim, ze sa da pouzit v aplikacii, kde chces
nechat uzivatelovi moznost nakonfigurovat si vlastne klavesove skratky,
ktore si priradi jednotlivym akciam programu.
Takze napriklad akcia File\Print moze mat defaultne klavesovu skratku
Ctrl+P, ale Ty mozes do programu zaradit konfiguracny dialog, kde si k na
vyvolanie tej akcie moze uzivatel nastavit napr. Shift+Ctrl+F12.

THotKey bude v tom dialogu sluzit na ulahcenie zadania novej hodnoty
klavesovej skratky:
uzivatel nemusi vypisovat 'Shift+Ctrl+F12' napriklad do TEdit, ale
jednoducho stlaci pozadovanu kombinaciu klaves a jej textova reprezentacia
sa v THotKey zobrazi automaticky.

HTH
TOndrej


Obnova velke databaze IB

[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 7.12.2001 15:25:20

To jsem pochopil, a proto jsem do ibconfig napsal ty radky
TMP_DIRECTORY 1800000000 e:\test\TEMP1
TMP_DIRECTORY 1800000000 e:\test\TEMP2
TMP_DIRECTORY 1800000000 e:\test\TEMP3
TMP_DIRECTORY 1800000000 e:\test\TEMP4
TMP_DIRECTORY 1800000000 e:\test\TEMP5
TMP_DIRECTORY 1800000000 e:\test\TEMP6

To by melo vytvorit tmp soubory max. 1.8 GB a pak rozdelit, ale
nefunguje to a navic to stale dela tmp na C: a ne na E:

Jen tak mimochodem, system je skutecne W98, myslis ze je
sance, ze na 2000 to projde ?

S tou obnovou bez indexu to zkusim, ale mam obavy, ze az je
zacnu vytvaret, tak to dopadne stejne.

Uvidime.> Nazdar,
>
> > Prave proto jsem doplnil config o specifikaci tmp souboru.
> > Proc to nezafungovalo ?
>
> Tak inak. Podla mojho nazoru nie je problem v nedostatku priestoru,
> ale vo velkosti docasneho suboru vytvaraneho pri indexacii.
> Z chybovych hlasok odhadujem OS na nejaky W95 - 98 ?
> (pomohla by specifikacia), ktory ma problem s velkymi
> subormi (konkretne nad 2 GB). Z chybovych hlasok dalej usudzujem,
> ze pri vytvarani indexov dojde k vytvoreniu docasneho suboru, ktory je
> vacsi nez 2GB (ci mas volneho priestoru v TEMP 100 TB je v tomto pripade
> uplne jedno) a to je pri starsich verziach Windows problem.
>
> Teda navrhujem vypnut vytvaranie indexov pocas restore. Vytvorit a
> aktivovat ich mozes potom.
> Inymi slovami pouzit gbak s prepinacom -i, resp -I (novsie verzie).
>
> gbak: legal switches are:
> -I(NACTIVE) deactivate indexes during restore
>
> HTH,
>
> Rado
>
>
>
> ____________________________________
> http://www.pobox.sk/ - spolahliva a bezpecna prevadzka
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15



© Delphi.cz, program netcode.cz, 2008-9.