Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Project manager - IDE D5
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.12.2001 15:29:02
Len pre informaciu; napadlo ma, ze to moze byt snad zaujimave pre viacerych
uzivatelov Delphi 5, tak som to poslal aj do CodeCentral:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17157
Dufam, ze to nie je OT. Ak ano, vopred sa ospravedlnujem.
TOndrej
> 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.
> 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.Jak osetrit jakoukoliv vyjimku ?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 7.12.2001 15:49:16
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> Udelal jsem podle rady, ale nigdy mi to tam neskoci, v cem je tedy chyba ?
Sksus si na button do OnClick() napisat kod :
begin
raise Exception.Create('test esxception');
end;
nic viac. potom to vykonaj. Ak sa Ti tam chyba nedostane tak asi pouzivas
nejaku komponentu ktora to prebije,
Skus toto a uvidime co dalej.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
OT: pouzivate nekdo na Money2000 na Sambe?
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 7.12.2001 17:10:00
Velmi se omlouvam ...
Pokud mate nekdo zkusenosti s provozem Money 2000 na Linuxove Sambe (vice
klientu soucasne) byl bych vdecny za postrehy a informace.
Dekuji a pripadne odezvy, prosim, pouze na soukromy mail.
Frantisek Sevcik, sevcik(zv)anexis(tec)cz
---
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
Adonis a store procedure
[*] bardon <bardon(zv)akord-soft(tec)cz> - 7.12.2001 17:31:36
Priznavam, ze jsem nikdy nezkousel Dataset a vracene parametry najednou.
Netusim proc by to ale nemelo fungovat. Kdyz tak skus vyhodit ty NOCOUNTY a
zavolat cca neco takoveho:
StoredProc.ExecProc ;
StoredProc.NextRecordset ;
ale nikdy jsem to nepouzil a nevim jestli to takto pujde
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lstiburek Pavel
Sent: Thursday, December 06, 2001 10:53 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Adonis a store procedure
D�ky to pomohlo, ovsem zase mi to nevraci OUTPUT parametry.
pouzivate nekdo na Money2000 na Sambe?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 7.12.2001 18:28:49
Money2000 nepouzivam <G>, ale z toho ze Money2000 bezi nad
souborovou databazi soudim ze musis mit v Sambe nastavene plne
zamykani oblasti v souborech (defaultne ma nastavene pouze
zamykani celych souboru).
Martin Schayna
Aktis a.s.
----- Original Message -----
From: "Frantisek Sevcik" <sevcik(zv)anexis(tec)cz>
> Velmi se omlouvam ...
>
> Pokud mate nekdo zkusenosti s provozem Money 2000 na Linuxove Sambe (vice
> klientu soucasne) byl bych vdecny za postrehy a informace.
>
> Dekuji a pripadne odezvy, prosim, pouze na soukromy mail.
>
> Frantisek Sevcik, sevcik(zv)anexis(tec)cz
Zakazani ziskani focusu
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 7.12.2001 18:38:04
Ahojky...
Nevite jak znemoznit obecn� TWinControlu (konkr�tn� TDrawGridu) ziskat
focus, ale tak aby fungoval OnClick a soupadla a popup? Konkretne mi jde
(zjednodusene) o to, ze mam form, na nem drawgrid, kter� jen neco
zobrazuje a ma popup, a edit. A potrebuji, kdyz kliknu pravym tlacitkem
na grid nebo se v nem soupatkem pohybuju, aby focus zustal na editu.
Ales
Aktualni jazyk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.12.2001 20:34:17
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> To tam nikde neni, jenom seznam moznych...
> > podivej se na JclLocales unit a priklad LocalesExample.dpr z JCL:
Ahoj,
vypadat to muze napriklad takhle:
implementation
{$R *.dfm}
uses
JclLocales;
var
KeybLayoutsList: TJclKeyboardLayoutList;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := KeybLayoutsList.ActiveLayout.DisplayName;
end;
initialization
KeybLayoutsList := TJclKeyboardLayoutList.Create;
finalization
FreeAndNil(KeybLayoutsList);
end.
Petr Vones
THotKey
[*] <bukaj(zv)iol(tec)cz> - 7.12.2001 20:43:11
Klikni pravym tlacitkem na jakehokoliv zastupce a dej vlastnosti. V poli
Klavesova zkratka je presne tato komponenta.
Kuba
----- Original Message -----
From: Lebeda David <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 07, 2001 2:48 PM
Subject: THotKey
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
DELPHI 6 (dlhe)
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 7.12.2001 21:52:26
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>>> 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".
>
To nic nemeni na veci, ze vzhledem k mnoha ruznym a hlavne protichudnym
nazorum,
ktere zde padly by mne nazor ceskeho Borlandu docela zajimal.
>Tim pecliveji je treba Licencni ujednani cist. Ale takova veta na pet
>radku s jedinym slovesem... :-)
Abych byl uprimny, tak moje schopnost cist (lepe receno dobre pochopit)
pravnicke klicky je velmi snizena i u nekterych textu v ceskem jazyce
natoz v anglictine.
Proto se snazim svuj vyklad porovnat s ostatnimi abych se vyvaroval chybam.
Jak jsi to pochopil ty ?
Muzu v D6PE napsat program a volne ho sirit jako freeware ?
Ludek
DELPHI 6 (dlhe)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.12.2001 22:31:59
Puvodni zprava, kterou napsal Lud�k ZITA dne 6 Dec 2001:
> 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.
Ted jsem chtel napsat, ze vyklad ceskeho Borlandu nemuze mit
zadnou vahu v pripadnem sporu, protoze je to pouze prodejce,
ktery nekde neco koupi a tady to proda. Jenze jsem si vzapeti
uvedomil, ze kdyz se podivam posledni dobou na televizi, co
se v teto zemi deje za cunarny, ani bych se nedivil...
A nechci tu vubec komentovat ty jejich silene, nepravdive
a demagogicke nazory, ktere touto konferenci probehly pred
rokem tusim...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Autorizacia v CGI
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 8.12.2001 08:24:34
Nema niekto example na autorizaciu v CGI?
Pripadne nejaku dokumentaciu, lebo HELP v Delphi mi moc nestaci.
ver. D5
jozo
Pomoc DLL
[*] Marek Vilda Jelen <marek.jelen(zv)mybox(tec)cz> - 8.12.2001 11:12:31
JAk se v Delphi pou��vaj� DLL soubory?
D�ky Maek Jelen
Pomoc DLL
[*] Nagy Dusan <Dusan.Nagy(zv)alcatel.sk> - 08.12.2001 11:50:17
[P��loha v souboru: Dusan.Nagy.vcf]
Pomoc DLL
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 8.12.2001 12:14:36
Joha Marek,
M> JAk se v Delphi pou��vaj� DLL soubory?
Jak udelat dll pochopis z noveho projektu, ktery ti vytvori wizard.
Funkci vevnitr pak muzes volat takhle:
var _funkce:function(AOwner:TComponent; a pod): TNeco;
lib: THandle;
// nahrat knihovnu
lib:=loadLibrary(cesta);
// najit funkci v DLL
(zv)_funkce:=getProcAddress(lib,FUNC_NAME);
// volani funkce z DLL
_funkce(nejake,parametry);
Doufam, ze z toho nebudes jelen.
--
Vit Tichy
Pomoc DLL
[*] Marek Vilda Jelen <marek.jelen(zv)mybox(tec)cz> - 8.12.2001 13:42:09
Chapu to takhle:
procedure pokud(neco : neco); Far external 'knihovna';
Je to dobre?
----- Original Message -----
From: Nagy Dusan
To: delphi-l(zv)clexpert(tec)cz
Sent: Saturday, December 08, 2001 11:50 AM
Subject: Re: Pomoc DLL
Je potrebene zadefinovat pouzivanu fukciu
v delphy
procedure nazov lokal(parametre); Far external nazov kniznice Dll index X
function nazov lokal(parametre) ; Far external nazov kniznice Dll index X
Pricom index udava poradove cislo v kniznici v sekci export.
Marek Vilda Jelen wrote:
JAk se v Delphi pouz�vaj� DLL soubory? D�ky Maek Jelen
Pomoc DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.12.2001 13:52:04
From: "Marek Vilda Jelen" <marek.jelen(zv)mybox(tec)cz>
> JAk se v Delphi pou��vaj� DLL soubory?
Ahoj,
viz napoveda v Delphi: DLL -> External declarations
Petr Vones
Pomoc DLL
[*] Nagy Dusan <Dusan.Nagy(zv)alcatel.sk> - 08.12.2001 14:00:24
[P��loha v souboru: Dusan.Nagy.vcf]
Pomoc DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.12.2001 14:13:40
From: "Nagy Dusan" <Dusan.Nagy(zv)alcatel.sk>
> Ano ale parameter index X pricom X je cislo je velmi dolezity treba si dat
> vypisat rozhranie kniznice dll kde je cislo indexov a funkcii dll.
Ahoj,
ve Win32 je preferovan import pomoci nazvu a ne indexu. Indexy se pouzivaji
pouze vyjimecne, napriklad v pripade nedokumentovanych (a nepojmenovanych)
funkci kernelu ve Win9x. Stejne tak direktiva far nema zadny vyznam ve Win32.
Znovu doporucuji vyhledat heslo 'External declarations' v napovede Delphi.
Petr Vones
Pomoc DLL
[*] Nagy Dusan <Dusan.Nagy(zv)alcatel.sk> - 08.12.2001 14:19:20
[P��loha v souboru: Dusan.Nagy.vcf]
Suhlasim ale pokial neviem nazov je to funkcne. Najma ak chcem pouzit
Dll ktora nie je dokumentovana.
Petr Vones wrote:
> From: "Nagy Dusan" <Dusan.Nagy(zv)alcatel.sk>
> > Ano ale parameter index X pricom X je cislo je velmi dolezity treba si dat
> > vypisat rozhranie kniznice dll kde je cislo indexov a funkcii dll.
>
> Ahoj,
>
> ve Win32 je preferovan import pomoci nazvu a ne indexu. Indexy se pouzivaji
> pouze vyjimecne, napriklad v pripade nedokumentovanych (a nepojmenovanych)
> funkci kernelu ve Win9x. Stejne tak direktiva far nema zadny vyznam ve Win32.
> Znovu doporucuji vyhledat heslo 'External declarations' v napovede Delphi.
>
> Petr Vones
Pomoc DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.12.2001 14:39:59
From: "Nagy Dusan" <Dusan.Nagy(zv)alcatel.sk>
> Suhlasim ale pokial neviem nazov je to funkcne. Najma ak chcem pouzit
> Dll ktora nie je dokumentovana.
Ahoj,
pokud ma dana funkce nazev (99% pripadu) tak by se tento mel vzdy pouzit,
protoze pouziti indexu nemusi fungovat pro ruzne verze stejne DLL.
Petr Vones
Jak otev��t tabulky FoxPro z Delphi
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.12.2001 15:32:42
Pres ODBC driver MS VisualFoxPro driver
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.12.2001 Roman Netu#il:
> 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
Konfview a nejaka solidnejsi DB
[*] David Janko <djanko(zv)infoware(tec)cz> - 8.12.2001 17:36:06
> Ahoj.
> To by mne zajimalo.
> Takze dve otazky :
> 1) Od ktere verze MySQL transakce podporuje.
> 2) Jak se ji "rekne" aby transakce pouzivala.
>
1) Od rady 2.23.x. Pouzijete nejakou pozdejsi (nejlepe doporucenou last
stable) v prvnich verzich byli nejake mouchy.
2) Nepouzival jsem to protoze jsem to nepotreboval (jen jsem si to tusim
jednou zkusil, jestli to fakt jde ;-)), takze nejlepe viz manual. Myslim ze
to bylo SET AUTOCOMMIT=0 (zapnuti transakcniho zpracovani) a pak BEGIN
WORK -> COMMIT || ROLLBACK. Jo, a jeste nesmite pouzivat historicke tabulky
ISAM ale MyISAM (param TYPE= pri create table).
> Ludek
>
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
FB - TIBQuery > TDataSource > TDBGrid - niekedy zl
[*] Lauko �tefan <laukosw(zv)naex.sk> - 8.12.2001 19:57:08
Dobry den,
problem:
po dotaze mam tieto polozky v TDBGrid
1
2
3
4
5
6
7
------ v DBGrid ich vidim len po tuto poziciu - je to v poriadku grid je len
tak vysoky
8
9
10
Ked prejdem postupne na poslednu (na 10) a hned postupne na prvu (1) tak sa
zmrsi poradie asi takto:
10
1
10
2
3
4
5
6
7
10
8
9
10
Ked to zopakujem niekolkokrat tak je to este horsie. Stretol sa s tym
niekto?
Na pouzite komponenty nieje priradeny ziadny event. Stiahol som poslednu
verziu IBX a nepomohlo to.
IBQuery sa v tomto pripade pouziva ako M/Detail
V sql je
select * from CMZ_CINO O
Where (O.N_MZ = :N_MZ) and (O.OZNACENIE = :OZNACENIE)
ORDER BY O.D_OPER DESC
Chyba nastava len pri urcitom pocte zaznamov, najcastejsie ked pocet
poloziek je o 3 - 4 vacsi ako co su viditelne v DBGrid.
Kde by asi mohla byt chyba? Laborujem nad tym uz niekolko dni...
Za pomoc dakujem.
Lauko.
FB WI-T0.9.4.41, IBX 5.05, D5.1.
RXQuery
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 9.12.2001 00:19:32
Ahoj,
chtel bych se zeptat zda lze napojit RXQuery
na IBDatabase. Do property Database komponenty
RXQuery IO nabizi jen aliasy z BDE, ale ja se
potrebuju prave BDE zbavit, ale nerad bych opustil
RXQuery & spol.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
VrTimer
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 9.12.2001 08:45:44
Patri VrTimer od Varian Workshop k presnym ?Soubor v databazi MS Access
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 9.12.2001 13:55:00
Ahoj,
nevite nekdo, jak dostat do Accessu, do pole typu OLE Object, soubor? Predem
dekuji.
Martin
Delphi 6 Pro + SP1, W2k + SP2, Access 2k
---
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
OT: Prosba o otestovanie programu
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 9.12.2001 14:40:26
Uz davnejsie som v konferencii uvadzal linku na novy program pre
inteligentne prezeranie prispevkov konferencie Delphi-l. Vola sa
Konferencia.exe. Uz som urobil stvrtu verziu, no az teraz som dorobil
moznost stahovania aj z Outlooku 2000. Ja vsak OE 2000 nemam a preto vas
chcem poprosit o otestovanie funkcnosti novej verzie.
Program si stiahnete na www.webpark.sk/kom.
Dopredu dakujem za pomoc.
Jak otev��t tabulky FoxPro z Delphi
[*] Tom Lebr <tom.lebr(zv)volny(tec)cz> - 9.12.2001 14:44:30
Dobry den,
mozna by se dalo pouzit ADO - zdrojovy kod prikladu: http://community.borland.com/soapbox/techvoyage/article/1,1795,10270,00.html
Tom L.
----- Original Message -----
From: Roman Netu#il
To: delphi-l(zv)clexpert(tec)cz
Sent: Thursday, December 06, 2001 2:58 PM
Subject: Jak otev��t tabulky FoxPro z Delphi
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
ukonceni externi aplikace
[*] Milan ��ek - 9.12.2001 20:07:51
ahoj,
resim automaticky update z internetu:
- Ma aplikace si automaticky stahne nejnovejsi verzi.
- V resources mam schovany maly exe program, ktery se ulozi do tempu
- aplikace spusti maly exe v tempu a jako parametry mu preda: exe soubor me
aplikace, ktery se ma prepsat, jmeno archivu a cislo procesu bezici aplikace
(GetCurrentProcessID).
Nyni by mel muj maly exe ukoncit bezici aplikaci a prepsat jeji exe souborem
z archivu. Nevim ale, jak bezpecne ukoncit bezici aplikaci, pokud znam jeji
ProcessID. Dojde pri takovem ukonceni ke vsem potrebnym akcim? (ulozeni).
Nebylo by lepsi predat Handle aplikace a poslat WM_CLOSE popr. WM_QUIT?
podle toho, co jsem objevil v archivu, budu v tomto pripade asi potrebovat
handle procesu (funkce OpenProcess? a CloseHandle? - priklad by pomohl). Pak
my melo stacit zavolat ProcessTerminate?
Jde mi hlavne o otazku bezpecneho ukonceni programu, aby to nebylo "tvrde
odstreleno". Diky
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
ukonceni externi aplikace
[*] bleak <bleak(zv)atlas(tec)cz> - 9.12.2001 20:32:45
�e#il jsem n�co podobn�ho. nakonec jsem to ud�lal tak, �e jsem programu,
kter� jsem cht�l ukon�it, simuloval stisknut� kl�vesov� zkratky pro
ukon�en�. program po obdr�en� simulovan�ho stisku kl�ves provede s�m
form.close a p��padn� dal#� nutn� operace...
bleak
----- Original Message -----
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, December 09, 2001 8:07 PM
Subject: ukonceni externi aplikace
> ahoj,
> resim automaticky update z internetu:
> - Ma aplikace si automaticky stahne nejnovejsi verzi.
> - V resources mam schovany maly exe program, ktery se ulozi do tempu
> - aplikace spusti maly exe v tempu a jako parametry mu preda: exe soubor
me
> aplikace, ktery se ma prepsat, jmeno archivu a cislo procesu bezici
aplikace
> (GetCurrentProcessID).
>
> Nyni by mel muj maly exe ukoncit bezici aplikaci a prepsat jeji exe
souborem
> z archivu. Nevim ale, jak bezpecne ukoncit bezici aplikaci, pokud znam
jeji
> ProcessID. Dojde pri takovem ukonceni ke vsem potrebnym akcim? (ulozeni).
> Nebylo by lepsi predat Handle aplikace a poslat WM_CLOSE popr. WM_QUIT?
>
> podle toho, co jsem objevil v archivu, budu v tomto pripade asi potrebovat
> handle procesu (funkce OpenProcess? a CloseHandle? - priklad by pomohl).
Pak
> my melo stacit zavolat ProcessTerminate?
>
> Jde mi hlavne o otazku bezpecneho ukonceni programu, aby to nebylo "tvrde
> odstreleno". Diky
>
> S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
> Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>ukonceni externi aplikace
[*] Skopov� <jsdelphi(zv)atlas(tec)cz> - 9.12.2001 21:04:16
Ja to resim nasledovne:
zjistim si Handle okna aplikace: (napriklad Interbase)
h := FindWindow('IB_Server',nil);
pote poslu prikaz:
if h <> 0 then PostMessage(h,WM_CLOSE, 0, 0);
a pokud se aplikace nezavre (znovu po nejakem case hledam jeji Handle)
poslu:
h := FindWindow('IB_Server',nil);
if h <> 0 then PostMessage(h,WM_QUIT, 0, 0);
Nejlepsi je posilat nejprve WM_CLOSE, je to nejcistejsi zpusob dle mych
zkusenosti, WM_QUIT funguje ve vetsine pripadu pokud nezafunguje WM_CLOSE.
Jan Skopovy
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Subject: ukonceni externi aplikace
Direct X
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 01:30:48
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> V PlatformSDK je pomerne komplikovany priklad v cecku, ktory to zistuje
> pomocou verzie OS a skusanim natahovania roznych exportovanych funkcii z
Ahoj,
to vypada dost zoufale ;-) Nikde jsem ale nenasel nic co vypada trochu vice
rozume, predpokladam ale ze DirectX Info to nedela zpusobem uvedenym v tom
prikladu.
Petr Vones
Tray ikony
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 01:31:28
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> Da se nejak dostat vsechny tray ikony na taskbaru do me aplikace vcetne
Ahoj,
pokud je mi znamo tak na toto neni zadne API.
Petr Vones
MDI form
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 01:32:26
From: "Peter Mojdis" <mojdis(zv)colnicapo.sk>
> 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.
Ahoj,
v jake verzi Delphi ?
Petr Vones
ukonceni externi aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 01:33:56
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> Nyni by mel muj maly exe ukoncit bezici aplikaci a prepsat jeji exe souborem
> z archivu. Nevim ale, jak bezpecne ukoncit bezici aplikaci, pokud znam jeji
> ProcessID. Dojde pri takovem ukonceni ke vsem potrebnym akcim? (ulozeni).
Ahoj,
pouzij funkci TerminateApp z JclSysInfo:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
OT: licence DELPHI 6 Personal
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 10.12.2001 07:25:37
Cau Petre,
principialne s Tebou absolutne souhlasim, nicmene by byl nazor ceskeho
Borlandu zajimavy uz z toho hlediska, ze pripadny soudni spor o poruseni
licence musi nejdrive nekdo vyvolat (napriklad podanim trestniho oznameni) -
a to by pravdepodobne byl Borland CZ. Cili by bylo zajimave znat jejich
nazor. To, jestli by takovy pripadny spor vyhrali, je ovsem otazka zcela
jina, ze?
Cau Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Zahradnik
> Sent: Friday, December 07, 2001 10:32 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: RE: Re: DELPHI 6 (dlhe)
>
> Puvodni zprava, kterou napsal Lud�k ZITA dne 6 Dec 2001:
>
> > 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.
------- Petr Zahradnik: --------
> Ted jsem chtel napsat, ze vyklad ceskeho Borlandu nemuze mit
> zadnou vahu v pripadnem sporu, protoze je to pouze prodejce,
> ktery nekde neco koupi a tady to proda. Jenze jsem si vzapeti
> uvedomil, ze kdyz se podivam posledni dobou na televizi, co
> se v teto zemi deje za cunarny, ani bych se nedivil...
>
> A nechci tu vubec komentovat ty jejich silene, nepravdive
> a demagogicke nazory, ktere touto konferenci probehly pred
> rokem tusim...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ============================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 047-5500610, 047-5501627, 0602-409601
> Fax: 047-5511338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
> ICQ: 21215917
> ============================================================
>
>Application hosting
[*] <morzol(zv)atlas(tec)cz> - 10.12.2001 07:57:16
Zacal jsem se zajimat o midware od F. Pietteho a jeden ze zaveru je ten, ze serverova aplikace musi bezet na pocitaci, ktery je trvale pripojeny k internetu.
Nevite o nejake hostingove sluzbe, ktera by byla free a nebo co nejlevnejsi, umoznovala by hosting cizich databazi a pokud mozno podporovala BDE pristup k nejake SQL databazi ?
Diky.Jak osetrit jakoukoliv vyjimku ?
[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 10.12.2001 08:00:36
Test byl polouspesny, protoze mnou vygenerovana exception dala podnet k
zavolani obsluhy MyOnException, ale chyba, ktera vznikla pri pokusu cteni
12. polozky z listu, ktery ma 5 polozek tam neskocila.> Sksus si na button do OnClick() napisat kod :
>
> begin
> raise Exception.Create('test esxception');
> end;
>
> nic viac. potom to vykonaj. Ak sa Ti tam chyba nedostane tak asi pouzivas
> nejaku komponentu ktora to prebije,
>
> Skus toto a uvidime co dalej.
Application hosting
[*] Jir� Kratochv�l <jiri.kratochvil(zv)webzin(tec)cz> - 10.12.2001 08:12:52
Dobry den,
mohl bych Vam nabidnout hostovan� na sv�m serveru,
zalez� na tom, jako byste potreboval prenosovou rychlost
a o jakou aplikaci by se melo jednat (HW zatez apod.)
----- Original Message -----
From: <morzol(zv)atlas(tec)cz>
Newsgroups: cz.muni.redir.delphi
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 10, 2001 7:57 AM
Subject: Application hosting
> Zacal jsem se zajimat o midware od F. Pietteho a jeden ze zaveru je ten,
ze serverova aplikace musi bezet na pocitaci, ktery je trvale pripojeny k
internetu.
>
> Nevite o nejake hostingove sluzbe, ktera by byla free a nebo co
nejlevnejsi, umoznovala by hosting cizich databazi a pokud mozno podporovala
BDE pristup k nejake SQL databazi ?
>
> Diky.
>MDI form
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.12.2001 08:42:49
A je ten panel Align=alTop???
> > 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.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Sortovanie na ADOQuery
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 10.12.2001 08:56:42
Zdravim,
mam jednu otazku (znova tu istu) :
Preco ked pouzijem - "select * from XXX order by NAZOV"
dostanem data do gridu v nasledovnom poradi
A-AAA
A-BBB
A AAA
A BBB
Ak vsak pouzijem "select * from XXX"
a po otvoreni ADOQuery vykonam
ADOQuery.Sort := 'NAZOV'; tak dostanem data v nasledovnom poradi
A AAA
A BBB
A-AAA
A-BBB
Problem je len " - " diakritika problem nerobi;
Vie mi niekto poradit co urobit aby : "data po Sortovani" = "data po selecte
s ORDER BY"
D5 Ent,Ado Expres,MSSQL 7.0
Miro
Direct X
[*] Werki <delphi(zv)minv.sk> - 10.12.2001 09:29:38
The Ahoy
neviem aku verziu DX pouzivas, ale co keby si sa pozrel priamo na helpy od
microsoftu?
ak napr. pouzivas DX8 v mssdk\samples\Multimedia\Misc\GetDXVer
mas detekovanie DX
Tally ho
Werki
PS: ak nemas nainstaleny help k SKD tak tu mas priame pouzitie funkcie:
PS2: radsej kontroluj kazdy objekt pred pouzitim aj HW support
// External function-prototypes
extern DWORD GetDXVersion();
// Name: WinMain()
// Desc: Entry point to the program. Initializes everything, and pops
// up a message box with the results of the GetDXVersion call
int PASCAL WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPSTR strCmdLine, int nCmdShow )
{
TCHAR* strResult;
DWORD dwDXVersion = GetDXVersion();
switch( dwDXVersion )
{
case 0x000:
strResult = _T("No DirectX installed" );
break;
case 0x100:
strResult = _T("DirectX 1 installed" );
break;
case 0x200:
strResult = _T("DirectX 2 installed" );
break;
case 0x300:
strResult = _T("DirectX 3 installed" );
break;
case 0x500:
strResult = _T("DirectX 5 installed" );
break;
case 0x600:
strResult = _T("DirectX 6 installed" );
break;
case 0x601:
strResult = _T("DirectX 6.1 installed" );
break;
case 0x700:
strResult = _T("DirectX 7" );
break;
case 0x800:
strResult = _T("DirectX 8 or better installed" );
break;
default:
strResult = _T("Unknown version of DirectX installed." );
break;
}
MessageBox( NULL, strResult, "DirectX Version:",
MB_OK | MB_ICONINFORMATION );
return 0;
}
transparentni panel
[*] kuchar(zv)unicodesys(tec)cz - 10.12.2001 09:30:45
caute,
mam vytvorenou komponentu transparentniho panelu ( potomek TPanel ), problem
je ale v tom, ze kdyz nastavim panel na transparent a pak nim v design time
nebo v real time pohnu dak dochazi k neprijemnemu problikavani, to sami mi
delaji i komponenty, ktere umistnim do panelu a pak s nimi nasledne
pohybuji, na ukazku prikladam i kod komponenty, pokud vite tak poradte
DIK
----------------------------------------------------------------------------
-------------
procedure TTransparentPanel.WndProc(var Message: TMessage);
begin if message.msg=70 then Perform(CM_BORDERCHANGED, 0, 0)
else inherited wndproc(message);
end;
procedure TTransparentPanel.WMNotify(var Message: tmessage);
begin Perform(CM_BORDERCHANGED, 0, 0);
end;
constructor TTransparentPanel.Create(AOwner: TComponent);
begin inherited Create(AOwner);
FTransparent := false;
bevelouter2:=bvraised;
bevelinner2:=bvnone;
end;
procedure Register;
begin RegisterComponents('xx', [TTransparentPanel]);
end;
procedure TTransparentPanel.DsgnInvalidate;
var Rect: TRect;
rr:integer;
begin if (csDesigning in ComponentState) and Assigned(Parent) and
Parent.HandleAllocated then begin Rect := BoundsRect;
InvalidateRect(Parent.Handle, (zv)Rect, True);
end;
end;
procedure TTransparentPanel.SetTransparent(Value: Boolean);
begin if FTransparent <> Value then begin FTransparent := Value;
if
HandleAllocated then RecreateWnd;
end;
end;
procedure TTransparentPanel.WMMove(var Message:TWMmove);
begin Perform(CM_BORDERCHANGED, 0, 0);
end;
procedure TTransparentPanel.CMBorderChanged(var Message: TMessage);
begin inherited;
DsgnInvalidate;
end;
procedure TTransparentPanel.CMTextChanged(var Message: TMessage);
begin inherited;
DsgnInvalidate;
end;
procedure TTransparentPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin if not FTransparent then inherited;
end;
procedure TTransparentPanel.WMWindowPosChanged(var Message:
TWMWindowPosChanged);
begin inherited; DsgnInvalidate;
end;
{ TCustomPanelEx protected }
procedure TTransparentPanel.CreateParams(var Params: TCreateParams);
const TransparentFlags: array[Boolean] of DWORD = (0, WS_EX_TRANSPARENT);
begin inherited CreateParams(Params);
with Params do ExStyle := ExStyle or
TransparentFlags[FTransparent];
end;
procedure TTransparentPanel.Paint;
const
Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
Rect: TRect;
TopColor, BottomColor: TColor;
FontHeight: Integer;
Flags: Longint;
procedure AdjustColors(Bevel: TPanelBevel);
begin
TopColor := clBtnHighlight;
if Bevel = bvLowered then TopColor := clBtnShadow;
BottomColor := clBtnShadow;
if Bevel = bvLowered then BottomColor := clBtnHighlight;
end;
begin
if FTransparent then
begin
Rect := GetClientRect;
if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
bevelouter2:=bevelouter;
end
else begin if bevelouter2<>bevelouter then Perform(CM_BORDERCHANGED, 0,
0);
bevelouter2:=bevelouter;
end;
Frame3D(Canvas, Rect, Color, Color, BorderWidth);
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
bevelinner2:=bevelinner;
end
else begin if bevelinner2<>bevelinner then Perform(CM_BORDERCHANGED, 0,
0);
bevelinner2:=bevelinner;
end;
with Canvas do
begin
Brush.Style := bsClear;
Font := Self.Font;
FontHeight := TextHeight('W');
with Rect do
begin
Top := ((Bottom + Top) - FontHeight) div 2;
Bottom := Top + FontHeight;
end;
Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[Alignment];
Flags := DrawTextBiDiModeFlags(Flags);
DrawText(Handle, PChar(Caption), -1, Rect, Flags);
end;
end
else inherited Paint;
end;
Jak osetrit jakoukoliv vyjimku ?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 10.12.2001 09:39:28
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> Test byl polouspesny, protoze mnou vygenerovana exception dala podnet k
> zavolani obsluhy MyOnException, ale chyba, ktera vznikla pri pokusu cteni
> 12. polozky z listu, ktery ma 5 polozek tam neskocila.
Super, to znamena ze tu vynikmu niekde nieco chyta a osetruje. Nemas to cele
nahodou v bloku
try
...
except?
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
transparentni panel
[*] kuchar(zv)unicodesys(tec)cz - 10.12.2001 09:44:58
caute,
omlouvam se za predchazejici email, ale nejak mi uz blbnou wokna, takze to
skousim jeste jednou a doufam ze uz bez problemu,
mam vytvorenou komponentu transparentniho panelu ( potomek TPanel ), problem
je ale v tom, ze kdyz nastavim panel na transparent a pak nim v design time
nebo v real time pohnu dak dochazi k neprijemnemu problikavani, to sami mi
delaji i komponenty, ktere umistnim do panelu a pak s nimi nasledne
pohybuji, na ukazku prikladam i kod komponenty, pokud vite tak poradte
DIK
----------------------------------------------------------------------------
>procedure TTransparentPanel.WndProc(var Message: TMessage);
>begin if message.msg=70 then Perform(CM_BORDERCHANGED, 0, 0)
> else inherited wndproc(message);
>end;
>procedure TTransparentPanel.WMNotify(var Message: tmessage);
>begin Perform(CM_BORDERCHANGED, 0, 0);
>end;
>
>constructor TTransparentPanel.Create(AOwner: TComponent);
>begin inherited Create(AOwner);
> FTransparent := false;
> bevelouter2:=bvraised;
> bevelinner2:=bvnone;
>end;
>
>procedure Register;
>begin RegisterComponents('xx', [TTransparentPanel]);
>end;
>
>procedure TTransparentPanel.DsgnInvalidate;
>var Rect: TRect;
> rr:integer;
>begin if (csDesigning in ComponentState) and Assigned(Parent) and
> Parent.HandleAllocated then begin Rect := BoundsRect;
>
>InvalidateRect(Parent.Handle, (zv)Rect, True);
> end;
>end;
>
>procedure TTransparentPanel.SetTransparent(Value: Boolean);
>begin if FTransparent <> Value then begin FTransparent := Value;
> if
>HandleAllocated then RecreateWnd;
> end;
>end;
>
>procedure TTransparentPanel.WMMove(var Message:TWMmove);
>begin Perform(CM_BORDERCHANGED, 0, 0);
>end;
>
>procedure TTransparentPanel.CMBorderChanged(var Message: TMessage);
>begin inherited;
> DsgnInvalidate;
>end;
>
>procedure TTransparentPanel.CMTextChanged(var Message: TMessage);
>begin inherited;
> DsgnInvalidate;
>end;
>
>procedure TTransparentPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd);
>begin if not FTransparent then inherited;
>end;
>
>procedure TTransparentPanel.WMWindowPosChanged(var Message:
>TWMWindowPosChanged);
>begin inherited; DsgnInvalidate;
>end;
>
>{ TCustomPanelEx protected }
>
>procedure TTransparentPanel.CreateParams(var Params: TCreateParams);
>const TransparentFlags: array[Boolean] of DWORD = (0, WS_EX_TRANSPARENT);
>begin inherited CreateParams(Params);
> with Params do ExStyle := ExStyle or
>TransparentFlags[FTransparent];
>end;
>
>procedure TTransparentPanel.Paint;
>const
> Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT,
DT_CENTER);
>var
> Rect: TRect;
> TopColor, BottomColor: TColor;
> FontHeight: Integer;
> Flags: Longint;
>
> procedure AdjustColors(Bevel: TPanelBevel);
> begin
> TopColor := clBtnHighlight;
> if Bevel = bvLowered then TopColor := clBtnShadow;
> BottomColor := clBtnShadow;
> if Bevel = bvLowered then BottomColor := clBtnHighlight;
> end;
>
>begin
> if FTransparent then
> begin
> Rect := GetClientRect;
> if BevelOuter <> bvNone then
> begin
> AdjustColors(BevelOuter);
> Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
> bevelouter2:=bevelouter;
> end
> else begin if bevelouter2<>bevelouter then Perform(CM_BORDERCHANGED, 0,
>0);
> bevelouter2:=bevelouter;
> end;
> Frame3D(Canvas, Rect, Color, Color, BorderWidth);
> if BevelInner <> bvNone then
> begin
> AdjustColors(BevelInner);
> Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
> bevelinner2:=bevelinner;
> end
> else begin if bevelinner2<>bevelinner then Perform(CM_BORDERCHANGED, 0,
>0);
> bevelinner2:=bevelinner;
> end;
> with Canvas do
> begin
> Brush.Style := bsClear;
> Font := Self.Font;
> FontHeight := TextHeight('W');
> with Rect do
> begin
> Top := ((Bottom + Top) - FontHeight) div 2;
> Bottom := Top + FontHeight;
> end;
> Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[Alignment];
> Flags := DrawTextBiDiModeFlags(Flags);
> DrawText(Handle, PChar(Caption), -1, Rect, Flags);
> end;
> end
> else inherited Paint;
>end;
Ako na PHP > IB/FB
[*] Roland Turcan <rolo(zv)sedas.sk> - 10.12.2001 09:45:32
Ahojte.
Potreboval by som informacie ohladne PHP vs, IB/FB, lebo sme zaukolovali
jedneho mladeho muza a ma v tom nejasnosti. Kde na inete najde nieco ohladne
pripojenia, prace s transakciami, priklady ?
Dakujem.
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Direct X
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.12.2001 09:46:29
Cau,
> to vypada dost zoufale ;-)
To podla mna _je_zufale ;-)
> Nikde jsem ale nenasel nic co vypada trochu vice
> rozume, predpokladam ale ze DirectX Info to nedela
> zpusobem uvedenym v tom prikladu.
Nestavil by som na to prilis vela ;-)
V DirectX 8.1 Pre-release (co je popisane v MSDN October 2001) je uz funkcia
DirectXSetupGetVersion, ktora vrati verziu DirectX.
Takze v DirectX 8.1 a vyssie uz bude zistenie verzie jednoduchsie.
Pre starsie verzie som tiez nenasiel nic lepsie ako spominany zufaly
priklad.
TOndrej
transparentni panel
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 10.12.2001 09:51:52
Zkus tohle...
> >procedure TTransparentPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd);
> >begin
if not FTransparent then
inherited
else
Message.Result:=1
> >end;
S pozdravem
Milan Tome# [mailto:milan.tomes(zv)haida(tec)cz]
GORDIC distributor sever, HAiDA s.r.o.
tel : +420 424 / 222282, 222284
fax : +420 424 / 222962
Jak osetrit jakoukoliv vyjimku ?
[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 10.12.2001 10:03:05
V bloku to neni, udelal jsem si jenom pokusnou aplikaci, kde jsem na form
hodil TListView, par buttonu a hraju si ...
naplnil jsem TLIstView 5 polozkami a na button jsem si hodil zapis do 12.
polozky (List.Items.Item[11].Caption:=' ';).
Tento pripad si v programu dovedu osetrit, ale jsou pripady, kdy je to treba
resit jinak, proto tento dotaz ...no a taky jsem %subj. v literature nikde
nenasel a velice mne to zajima.
VR, W
> > Test byl polouspesny, protoze mnou vygenerovana exception dala podnet k
> > zavolani obsluhy MyOnException, ale chyba, ktera vznikla pri pokusu
cteni
> > 12. polozky z listu, ktery ma 5 polozek tam neskocila.
>
> Super, to znamena ze tu vynikmu niekde nieco chyta a osetruje. Nemas to
cele
> nahodou v bloku
> try
> ...
> except?
uvolnovanie pama(e)te
[*] iko <iko(zv)kamarad(tec)cz> - 10.12.2001 10:21:38
...zdravim kolegovia...
rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft v delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne ten program ale sa neuvolni pama(e)t, co sa tam alokovala. je to tak? ak ano...predpokladam, ze na vine je ten blby windows, ze? sa mi casto stava, ze po par hodinach roboty mi akosi zmiznu systemove prostriedky.
hm... co si o tom myslite? hm...uvolnovanie pama(e)te
[*] Daniel Hrotek <dan.hrotek(zv)seznam(tec)cz> - 10.12.2001 10:45:36
Ahoj
predpokladam, ze sa killne ten program ale sa neuvolni pama(e)t, co sa tam alokovala. je to tak? ak ano...predpokladam, ze na vine je ten blby
windows, ze? sa mi casto stava, ze po par hodinach roboty mi akosi zmiznu systemove prostriedky.
ehm, nejsem odbonik, ale dovolim si takovou kratkou poznamku, s WINem mas pravdu, presne jak jsi napsal, WIN - zvlaste 98 neumi pracovat s vyssi pamet jak 64MB dobre...
ehm, zkus Linux, OS/2, atd tam problem neni,.... ale WIN je WIN, proto ho asi mas, s tou pameti je to ale pravda... :(
ahojky DAn.
starhill.web2001(tec)cz
--Original Message Text---
From: iko
Date: Mon, 10 Dec 2001 10:21:38 +0100
...zdravim kolegovia...
rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft v delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne ten
program ale sa neuvolni pama(e)t, co sa tam alokovala. je to tak? ak ano...predpokladam, ze na vine je ten blby windows, ze? sa mi casto
stava, ze po par hodinach roboty mi akosi zmiznu systemove prostriedky.
hm... co si o tom myslite? hm...
pozna niekto podobnu flashovsku konferu?
[*] Werki <delphi(zv)minv.sk> - 10.12.2001 10:56:28
Ahoy,
viem ze to nesuvisi s delphi, ale mozno niekto z vas pozna aj nejaku podobnu
konferu na flesh, ja nic take nejako neviem najst.
Dik
Werki
synapse
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 10.12.2001 10:59:41
nevite nekdo (kdo asi :-)) jak zkopirovat soubor na ftp serveruna ten samy
server, ale do jineho adrese?
snad jsem se vyjadril dost jasne
predem diky
synapse
[*] Daniel Hrotek <dan.hrotek(zv)seznam(tec)cz> - 10.12.2001 11:06:17
Ahoj, pokud pouzivas k pripojeni klienta Windows commander, Midnight commander atd atd, tak se pripoj zkopiruj do sveho PC co potrebujes,... a potom bez do adresare, do
ktreho to ches hodit na tom FTP serveru a je to, ale to jde jen u soubory mensich, pokud chces kopirovat 1 GB, tak nevim :))
TED ME napadlo.... VZDYt (pokud je to povoleny na FTP serveru) tak se pripoj na FTP server do jednoho okna ve WINCMD, ci jinem klientovi a do druheho take a JE TO? ....
Ahojky Dan.
starhill.web2001(tec)cz
On Mon, 10 Dec 2001 10:59:41 +0100, Ladislav Fitz wrote:
>nevite nekdo (kdo asi :-)) jak zkopirovat soubor na ftp serveruna ten samy
>server, ale do jineho adrese?
>
>snad jsem se vyjadril dost jasne
>
>predem diky
>
>transparentni panel
[*] kuchar(zv)unicodesys(tec)cz - 10.12.2001 11:16:27
nezabralo
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 10, 2001 9:51 AM
Subject: RE: transparentni panel
> Zkus tohle...
>
> > >procedure TTransparentPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd);
> > >begin
> if not FTransparent then
> inherited
> else
> Message.Result:=1
> > >end;
>
> S pozdravem
>
> Milan Tome# [mailto:milan.tomes(zv)haida(tec)cz]
> GORDIC distributor sever, HAiDA s.r.o.
> tel : +420 424 / 222282, 222284
> fax : +420 424 / 222962
>
>uvolnovanie pama(e)te
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.12.2001 11:30:40
> ked ladim nejaky soft v delfach a zrusim ho cez
> CTRL+F2... predpokladam, ze sa killne ten
> program ale sa neuvolni pama(e)t, co sa tam
> alokovala. je to tak? ak ano...predpokladam, ze
> na vine je ten blby windows, ze? sa mi casto
> stava, ze po par hodinach roboty mi akosi
> zmiznu systemove prostriedky.
Pokial viem, Win32 pri normalnom ukonceni procesu (ExitProcess) automaticky
uvolni vsetku pamet a prostriedky, ktore ten proces pouzival.
V pripade pouzitia TerminateProcess je problemom to, ze DLL natiahnute tymto
procesom nie su "upozornene", ze proces je ukonceny, a teda nemaju sancu
uvolnit prostriedky alokovane pre tento proces.
Neviem, co pouziva Delphi na ukoncenie procesu cez Ctrl+F2, ale
pravdepodobne je to TerminateProcess.
V helpe pre "Run|Program Reset" o tom pisu nasledovne:
<help>
Windows resources
Resetting a program does not necessarily release all Windows resources
allocated by your program. In most cases, all resources allocated by VCL
routines are released. However, Windows resources allocated by code which
you have written might not be properly released.
If your system becomes unstable, through either multiple hardware or
language exceptions or through a loss of system resources as a result of
resetting your program, you should exit the product before restarting your
debugging session.
</help>
V kazdom pripade je vyvoj aplikacii na Win9x OS problematicky, ak mozes,
skus prejst na NT/2000/XP, ktore su stabilnejsie a preto vhodnejsie na
debugovanie.
HTH
TOndrej
synapse
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 10.12.2001 11:32:36
> nevite nekdo (kdo asi :-)) jak zkopirovat soubor na ftp serveruna ten samy
> server, ale do jineho adrese?
Napada mne snad jen pouzit rizene FTP spojeni typy server-server s
tim, ze oba servery napojim na stejnou masinu...
V Synaps mas udelanou takovou pomerne drevni implemetaci tohoto druhu
spojeni... viz. funkce FtpInterServerTransfer
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.aditace HTMLTable jako databaze
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 10.12.2001 11:35:22
Ahoj,
stojim pred problemem editace jednoduche tabulky nacitane a ukladane v HTML.
Tabulka bude mit tri sloupce a promenny pocet radek.
Existuje nejaka komponenta jako je napr. RichEdit nebo si ji napisi sam?
Jeste lepsi by asi byla komponenta typu MemoDB s importem a exportem HTML
Cele to chci delat v Delphi 5 Pro (nebo Delphi6Pro az mi prijdou)
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================DBGrid - posledni viditelny sloupec
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 10.12.2001 11:37:45
Zdravim,
bohuzel musim pracovat s DBGridem, kde je zobrazeno vice polozek - jsou za
rohem.
Jak zjistim poradove cislo posledniho viditelneho slouce v DBGridu.
V udalosti OnDrawColumnCell provadim nejake operace, ktere ale jsou dany
podminkou nactenim (a zobrazenim) vsech sloupci daneho radku v DBGridu.
Nebo polozim otazku jinak. Jak zjistim, ze je jiz radek DBGridu cely
nacteny.
Diky Pavel ZIDEK
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
synapse
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 10.12.2001 11:41:50
> Napada mne snad jen pouzit rizene FTP spojeni typy server-server s
> tim, ze oba servery napojim na stejnou masinu...
takze ty data tecou pres muj pocitac?synapse
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 10.12.2001 11:44:10
> > Napada mne snad jen pouzit rizene FTP spojeni typy server-server s
> > tim, ze oba servery napojim na stejnou masinu...
> takze ty data tecou pres muj pocitac?
V tomto pripade prave netecou pres tvojimasinu... tvoje masina se v
tomto pripade otevre dva ridici kanaly na server, kterym zadava
vlastni FTP prikazy a kontroluje stav operace.. a pomoci techto
ridicich kanalu donuti server, aby otevrel prime datove spojeni
sjinym serverm, v tomto pripade sam se sebou.
Tedy vlastni data potecou na tom jednomserveru jen lokalne.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Vytoceni tel. cisla pomoci modemu
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 10.12.2001 11:48:21
Ahoj
Posilam na port prirazeny modemu AT prikaz ATDT + telefonni cislo a myslel jsem si ze mi to cislo vytoci ale nefunguje mi to poradite mi co delam blbe.
Delphi 5 Prof Win 2000 SP2
Jaroslav KUBA
jarda(zv)tresoft(tec)cz
OT: Prepsani FAT32 na FAT
[*] cis <cis(zv)atlas(tec)cz> - 10.12.2001 11:52:53
Hi,
podaril se celkem dobry kousek. Zmenili jsme HD FAT32 na FAT. Je mozna cesta
zpet a ziskat data z takoveho HD.
alda
Jak osetrit jakoukoliv vyjimku ?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 10.12.2001 11:53:34
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> V bloku to neni, udelal jsem si jenom pokusnou aplikaci, kde jsem na form
> hodil TListView, par buttonu a hraju si ...
> naplnil jsem TLIstView 5 polozkami a na button jsem si hodil zapis do 12.
> polozky (List.Items.Item[11].Caption:=' ';).
> Tento pripad si v programu dovedu osetrit, ale jsou pripady, kdy je to
treba
> resit jinak, proto tento dotaz ...no a taky jsem %subj. v literature nikde
> nenasel a velice mne to zajima.
Je to divne, fungovat by to malo pretoze vsetky vynimky ktore nie su
osetrene idu cez Application.OnException.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
uvolnovanie pama(e)te
[*] iko <iko(zv)kamarad(tec)cz> - 10.12.2001 12:05:00
no jo... linux to ma dobre, killnem program a vsetko sa po nom vyhodi z pamete, zatvoria sa subory a tak... win je bordel... co uz :)
----- Original Message -----
From: Daniel Hrotek
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, December 10, 2001 10:45 AM
Subject: Re: uvolnovanie pama(e)te
Ahoj
ehm, nejsem odbonik, ale dovolim si takovou kratkou poznamku, s WINem mas pravdu, presne jak jsi napsal, WIN - zvlaste 98 neumi pracovat s vyssi pamet jak 64MB dobre... ehm, zkus Linux, OS/2, atd tam problem neni,.... ale WIN je WIN, proto ho asi mas, s tou pameti je to ale pravda... :(
ahojky DAn.
starhill.web2001(tec)cz
--Original Message Text---
From: iko
Date: Mon, 10 Dec 2001 10:21:38 +0100
...zdravim kolegovia...
rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft v delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne ten program ale sa neuvolni pama(e)t, co sa tam alokovala. je to tak? ak ano...predpokladam, ze na vine je ten blby windows, ze? sa mi casto stava, ze po par hodinach roboty mi akosi zmiznu systemove prostriedky.
hm... co si o tom myslite? hm...uvolnovanie pama(e)te
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2001 12:05:53
> predpokladam, ze sa killne ten program ale sa neuvolni pama(e)t, co
sa tam alokovala. je to tak? ak ano...predpokladam, ze na vine je ten
blby
> windows, ze? sa mi casto stava, ze po par hodinach roboty mi akosi
zmiznu systemove prostriedky.
>
> ehm, nejsem odbonik, ale dovolim si takovou kratkou poznamku, s
WINem mas pravdu, presne jak jsi napsal, WIN - zvlaste 98 neumi
pracovat s vyssi pamet jak 64MB dobre...
> ehm, zkus Linux, OS/2, atd tam problem neni,.... ale WIN je WIN,
proto ho asi mas, s tou pameti je to ale pravda... :(
Opak je pravdou - ve vetsine pripadu dojde k uvolneni vsech zdroju
(uzavreni handlu, atd). Windows moc dobre vedi, jaka pamet
aplikaci patri a neni pro ne problem ji uvolnit. Samozrejme exituji
pripady, kdy uvolneni pameti bez dalsich doprovodnych akci ma
sve vedlejsi negativni ucinky.
D. Toman
synapse
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2001 12:08:33
> > Napada mne snad jen pouzit rizene FTP spojeni typy server-server s
> > tim, ze oba servery napojim na stejnou masinu...
>
> takze ty data tecou pres muj pocitac?
>
nektere FTP servery podporuji server-to-server spojeni (pripojim se
FTP klientem na kazdeho z nich a pak jeden server nastavim tak aby
prijimal a druhy aby vysilal). Vetsinou je to zakazane, protoze se z
toho muze vyklubat pekne nebezpecny feature (nemoznost kontroly
parametru PASV, PORt povelu se da zneuzit k nepeknym utokum na dalsi
servery)
D. Toman
Prenos dat z aplikacie do aplikacie + Spustanie ap
[*] Slavom�r �eke# - 10.12.2001 12:26:41
Zdravim ...
problem jedna:
potreboval by som poradit, ako spravit prenos dat z jednej aplikacie do
druhej ... napr. nejaky retazec .... ALE NIE CEZ CLIPBOARD!
problem dva:
ako sa spusta aplikacia s parametrom ? a ako si ta spustena aplikacia
precita parameter ?
Vdaka Slavo
Vytoceni tel. cisla pomoci modemu
[*] Nagy Dusan <Dusan.Nagy(zv)alcatel.sk> - 10.12.2001 12:26:58
[P��loha v souboru: Dusan.Nagy.vcf]
skus sa pripojit na ten port terminalom a poslat to iste
ak vytoci tak mas cybu v programe ak nie je to iny port
alebo vadny modem.
Jaroslav Kuba wrote:
> Ahoj Posilam na port prirazeny modemu AT prikaz ATDT + telefonni
> cislo a myslel jsem si ze mi to cislo vytoci ale nefunguje mi to
> poradite mi co delam blbe. Delphi 5 Prof Win 2000 SP2Jaroslav KUBA
> jarda(zv)tresoft(tec)cz
transparentni panel
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 10.12.2001 12:53:43
Ahoj,
u tPaintBox pouzivam - v OnCreate formulare - toto:
PaintBox.ControlStyle:=PaintBox.ControlStyle+[csOpaque];
Muzes vyzkouset...
Karel Rys
OT: licence DELPHI 6 Personal
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 10.12.2001 13:16:51
Ahoj,
no pokud by to bylo podani TRESTNIHO oznameni, pak by to byl
spor Cesky stat vs. uzivatel, a Borland (US nebo CZ) by tam vystupoval
jedine jako svedek, ne jako protistrana, a k jeho nazoru by bylo
mozne ze strany soudu prihlednout, nebo tak ne.
Z.D.
(zdravim Miru :)
### Miroslav Ondrisek napsal dne 10 Dec 01, v 7:25 :
> Cau Petre,
>
> principialne s Tebou absolutne souhlasim, nicmene by byl nazor ceskeho
> Borlandu zajimavy uz z toho hlediska, ze pripadny soudni spor o poruseni
> licence musi nejdrive nekdo vyvolat (napriklad podanim trestniho oznameni)
> - a to by pravdepodobne byl Borland CZ. Cili by bylo zajimave znat jejich
> nazor. To, jestli by takovy pripadny spor vyhrali, je ovsem otazka zcela
> jina, ze?
>
> Cau Mira Ondrisek
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
FreeVCS How To
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 10.12.2001 13:25:24
Prosim Prosim,
pouzivate nekdo FreeVCS
Zacal jsem to pouzivat, funguje vsechno docela dobre, ale nevim
jak mam udelat abych se mohl vracet ke starym verzim
Konkretne Vyvyjim aplikaci a v urcitem okamziku vygeneruji verzi
2.0 a poslu k zakaznikovi, a pokracuji ve vyvoji, V tom vola
zakaznik, ze chyba a ja si chci vratit verzi 2.0, abych nasel kde je
chyba. Ale ouha jak zajistim aby VCS nahralo spravne verze
modulu. Vypada to, ze vzdy v okamziku kdy to budu chtit uvolnit,
budu muset duplikovat veskere i nezmenene moduly, aby tam byly
i ve verzi stare i nove. Nelze nekde zapamatovat, ze byla vytvorena
verze 2.0, ktera obsahovala seznam modulu a jejich verze ?
Dekuji moc, help uz jsme prolistovali vsemi smery a stale nic.
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
Komponenta-ovladaci prvek
[*] Vobornik Petr <vobornik(zv)apel(tec)cz> - 10.12.2001 13:27:26
Ahoj,
prosim nevite nekdo o 3D ovladacim prvku. Klasicky kulaty knoflik, kterym
lze mysi otacet. Nebo ovladat pomoci sipek nahoru a dolu.
Diky Petr
Destroy tabulek ttable
[*] kuchar(zv)unicodesys(tec)cz - 10.12.2001 13:27:20
caute,
mam nasledujici problem v programu presouvam data z tab1 do tab2 pomoci
> table2.BatchMove(table1,batcopy);
jednou za cas mi to hodi chybu kterou pomoci try except odchytim a provedu
odpojeni tabulek
>table1.Database.Connected:=false;
>table2.Database.Connected:=false;
a znovu vykonam prikaz pro presun dat a vse bezi jak ma, az na to ze zase
nekdy jednou za den jindy jednou za tyden mi i to odpojeni tabulek hodi
chybu kterou opet zachytavam pres try except a vtomto miste se snazim uplne
zrusit a znovu vytvori komponenty table pomoci prikazu table1.destroy a
table2.destroy, jenze tab1 to zrusi bez problemu, ale na tab2 dvojce to hodi
chybu a zatuhne to a co dal nevim, proto se obracim na vas jestli nedelam
neco spatne, nebo jak jinak zrusit tabulky, nebo jestli se ma neco odpojovat
pred destroy....
DIK
Prenos dat z aplikacie do aplikacie + Spustanie ap
[*] brant(zv)dcomm(tec)cz - 10.12.2001 13:29:45
1. Treba pres SendMessage, kde v LPARAM predas pointer na libovolnou
strukturu.
2. Pokud to spoustis z jine aplikace, doplnis parametr do spousteciho
retezce.
ParamStr(0) znamena nazev programu, ParamStr(1) je 1. parametr, ParamStr(2)
je 2. parametr atd.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
problem jedna:
potreboval by som poradit, ako spravit prenos dat z jednej aplikacie do
druhej ... napr. nejaky retazec .... ALE NIE CEZ CLIPBOARD!
problem dva:
ako sa spusta aplikacia s parametrom ? a ako si ta spustena aplikacia
precita parameter ?
Vdaka Slavo
Adonis a store procedure
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.12.2001 13:31:57
Next RecordSet me taky napadl, ale nefunguje to. V zoufalstvi jsem se
pokusil vratil nekolik Recordsetu, ale jakmile udelam UPDATE, tak se na
nasledujici recordsety pomoci NextRecordset nemohu dostat (chyba: tuto
operaci neni mozno provadet na uzavrenem objektu).
Jedine reseni na ktere jsem prisel je tu cast, ve ktere je UPDATE umistit do
samostatne procedury s nasazenou SET NOCOUNT ON.
Problem s parametry nema bohuzel s NOCOUNT nic spolecneho, to jsem se zmylil
pri pokusech. Parametry nejsou vyneseny v pripade pouziti metody Open
namisto ExecProc.
Pavel
>
> Priznavam, ze jsem nikdy nezkousel Dataset a vracene
> parametry najednou.
> Netusim proc by to ale nemelo fungovat. Kdyz tak skus vyhodit
> ty NOCOUNTY a
> zavolat cca neco takoveho:
>
> StoredProc.ExecProc ;
> StoredProc.NextRecordset ;
>
> ale nikdy jsem to nepouzil a nevim jestli to takto pujde
> Obnova velke databaze IB
[*] Rado Benc <bego(zv)pobox.sk> - 10.12.2001 13:33:42
Nazdar,
> To jsem pochopil, a proto jsem do ibconfig napsal ty radky
> TMP_DIRECTORY 1800000000 e:\test\TEMP1
[snip]
> TMP_DIRECTORY 1800000000 e:\test\TEMP6
OK, uz som to pochopil aj ja. :-)
> 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:
Tak som sa zacal hrabat vo svojich archivoch a nasiel som nieco
od Davida Zverkica:
---
Q:
How can I tell InterBase 5.x on NT4 to store its temporary files
in let's say "d:\temp" instead of "c:\temp"? Is this a global windows
system setting or an interbase setting?
A:
Put lines similar to the following at the begining of you ibconfig file:
TMP_DIRECTORY 1800000000 "x:\temp"
TMP_DIRECTORY 1000000000 "c:\temp"
TMP_DIRECTORY 2000000000 "d:\temp"
Once you do this make sure to never use the ibconguration utility.
It will not preserve your manual modifications to ibconfig. The utility
is pretty useless anyway because it doesn't let you change most of
the configuration items.
Incidentally the above 3 lines, mean use 1.8 gb of temp space on
X:\temp and then when that runs out use 1 gb on c:\temp and then
finally 2gb on D:\temp.
Interbase actually pukes if it tries using more than 2gb in a single
temp file, so make sure to always restrict the size to 2gb or less
per temp directory. You should be able to specify the same temp
directory multiple times to force IB to create multiple 2gb files
instead of a single >2gb file.
David Zvekic
---
Celkom zaujimave. Ta posledne zmienovana finta ma nenapadla,
ale vyskusal by som.
BTW, nie je ten e:\temp na sietovom disku? Vtedy by ho IB / FB
pravdepodobne ignorovala. Vid Operations Guide.
> Jen tak mimochodem, system je skutecne W98, myslis ze je
> sance, ze na 2000 to projde ?
Nemyslim. I ked osobne W98 povazujem za nevhodny OS pre
databazovy server.
HTH,
Rado
____________________________________
http://www.pobox.sk/ - urcujeme trendy
Prenos dat z aplikacie do aplikacie + Spustanie ap
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 10.12.2001 13:38:20
----- Original Message -----
From: "Slavom�r #eke�" <cekel(zv)noves.sk>
> problem jedna:
> potreboval by som poradit, ako spravit prenos dat z jednej aplikacie do
> druhej ... napr. nejaky retazec .... ALE NIE CEZ CLIPBOARD!
bud pouzij WM_COPYDATA nebo memory mapped files, na oboji existuje
urcite spoustu komponent, napr. v JCL je jedna takova pekna
> problem dva:
> ako sa spusta aplikacia s parametrom ? a ako si ta spustena aplikacia
> precita parameter ?
parametry predas normalne na prikazove radce (programove napr. pomoci
ShellExecute z ShlApi.pas), ctou se pomoci vestavenych funkci ParamStr()
a ParamCount
Martin Schayna
transparentni panel
[*] kuchar(zv)unicodesys(tec)cz - 10.12.2001 13:43:22
i tohle jsem uz skusil ale bez efektu
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 10, 2001 12:53 PM
Subject: Re: transparentni panel
> Ahoj,
>
> u tPaintBox pouzivam - v OnCreate formulare - toto:
>
> PaintBox.ControlStyle:=PaintBox.ControlStyle+[csOpaque];
>
> Muzes vyzkouset...
>
> Karel Rys
> Prenos dat z aplikacie do aplikacie + Spustanie ap
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 10.12.2001 14:01:08
[P��loha v souboru: winmail.dat]
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Slavom�r #eke�
> Sent: Monday, December 10, 2001 12:27 PM
Ahoj!
> problem jedna:
>
> potreboval by som poradit, ako spravit prenos dat z jednej
> aplikacie do
> druhej ... napr. nejaky retazec .... ALE NIE CEZ CLIPBOARD!
>
Napr. p�es registry Windows nebo pomoci DDE (Dynamic Data Exchange).
> problem dva:
>
> ako sa spusta aplikacia s parametrom ? a ako si ta spustena aplikacia
> precita parameter ?
>
if ParamCount>0 then //fce vraci pocet parametru
begin
ParamStr(1); //jednotlive parametry
ParamStr(2);
...
end;
S pozdravem
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(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
Komponenty pro nativni pristup k Informixu
[*] Petr Adasek <petr.adasek(zv)iol(tec)cz> - 10.12.2001 14:03:16
Ahoj,
Hledam nejake komponenty pro nativni pristup k Informixu.
(a nemusi byt nutne free)
Zatim testuju tyto dva baliky:
1) INAP (Informix Native Access Pack)
verze 2.1.5 Build 131
2) SQLDirect Component Library
verze 2.7 for Delphi 5
Nemate s nimi nekdo nejake zkusenosti ?
Pripadne doporucili byste nejake jine komponenty ?
(ale musi fungovat na D5 Pro a bez BDE)
Diky
Petr Adasek
Obnova velke databaze IB
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 10.12.2001 14:54:04
Mam pocit ze jsem nekde cetl o tom, ze cesta v parametru
TMP_DIRECTORY v ibconfig _musi_ byt v uvozovkach,
jinak ibserver parametr ignoruje.
Martin Schayna
Aktis a.s.
----- Original Message -----
From: "Rado Benc" <bego(zv)pobox.sk>
Nazdar,
> To jsem pochopil, a proto jsem do ibconfig napsal ty radky
> TMP_DIRECTORY 1800000000 e:\test\TEMP1
> 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:
FreeVCS How To
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2001 14:57:18
> Konkretne Vyvyjim aplikaci a v urcitem okamziku vygeneruji verzi
> 2.0 a poslu k zakaznikovi, a pokracuji ve vyvoji, V tom vola
> zakaznik, ze chyba a ja si chci vratit verzi 2.0, abych nasel kde je
> chyba. Ale ouha jak zajistim aby VCS nahralo spravne verze
> modulu. Vypada to, ze vzdy v okamziku kdy to budu chtit uvolnit,
> budu muset duplikovat veskere i nezmenene moduly, aby tam byly
> i ve verzi stare i nove. Nelze nekde zapamatovat, ze byla vytvorena
> verze 2.0, ktera obsahovala seznam modulu a jejich verze ?
>
Pokud jsem pochopil FreeVCS spravne, pak je nutne si dane stavy vyvoje
explitne oznacit - tedy
pridelit vsem souborum nejaky label. Pak je mozne pozdeji vyextrahovat
stav projektu pomoci
techto labelu. Nenasel jsem funkci, kterou bych mohl label pridelit
jednoduse (metodou :"ted
si zapamatuj stav projektu"). Musis vytvorit label,oznacit vsechny
moduly a pridat jim ten label.
Jako alternativu lze pouzit backup projektu. Mam nastaveno, ze se
stare backupy nikdy
nemazou - staci pak najit ten spravny archiv a vytahnout projekt ze
zipu....
D. Toman
uvolnovanie pama(e)te
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 14:59:23
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > ehm, nejsem odbonik, ale dovolim si takovou kratkou poznamku, s
> > WINem mas pravdu, presne jak jsi napsal, WIN - zvlaste 98 neumi
> > pracovat s vyssi pamet jak 64MB dobre...
Blbost ...
> Opak je pravdou - ve vetsine pripadu dojde k uvolneni vsech zdroju
> (uzavreni handlu, atd). Windows moc dobre vedi, jaka pamet
> aplikaci patri a neni pro ne problem ji uvolnit. Samozrejme exituji
> pripady, kdy uvolneni pameti bez dalsich doprovodnych akci ma
> sve vedlejsi negativni ucinky.
Zalezi predevsim na jadre Windows. U skutecnych Windows, tedy NTcek je to bez
problemu. U PlayStationu to obcas nemusi vyjit, zvlastne kdyz byl proces jeste
v rezimu ladeni.
Petr Vones
OT: Zacatecnik s Win 2000 - Jeste jeden
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 10.12.2001 15:13:50
Ahoj,
omlouvam se za OT, ale predpokladam, ze "postizenych" stejnym
problemem bylo vice a ze jste to uspesne vyresili.
Presel jsem z W9x na W2k, na coz jsem se trasne tesil, ale bohuzel
stale musim udrzovat a upravovat me starsi programy napsane v TP
a Btrieve. Pouzivam v nich kodovani Kamenickych.
Presne podle starsiho prispevku ing. Jana Fialy (viz nize) jsem
provedl upravy v Config.NT a take BAT souboru, kterym program
spoustim.
Vse v pohode - az na tu nestastnou cestinu.
Zkousel jsem kod. stranky 895 i 867 (Kamenicky ???), ale objevi se
hlaska "Kodova stranka neni platna."
Muzete mi nekdo, prosim, [asi polopaticky -:) ] vysvetlit, jak vse
nastavit ?
Dekuji za pripadne podnety,
preji hezky den,
Jarek Uher
On 10 Oct 2001, at 9:32, ing. Jan Fiala wrote:
> 1. Zapomen na rezidenty, ktere se spousti pri startu systemu
> 2. Prepnuti klavesnice na US se provede pomoci :
> mode con cp select=437
> kb16 US
> 3. Je treba upravit WinNT/System32/Config.NT (dulezity je prvni
> radek):
> NTCmdPrompt
> EMM=RAM
> dos=high,umb
> device=%systemroot%\system32\himem.sys
> files=100
> 4. Vse spustet v ramci jednoho davkoveho souboru
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 10.10.2001 Robert Plz�k:
> > Jak prosim vas mohu nastavit klavesnici pro ulohy v DOS okne?
> > Chtel bych ji mit US a sam si spustit rezident s Kameniky.
OT: Zacatecnik s Win 2000 - Jeste jeden
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.12.2001 15:17:55
Potrebujes nejaky ovladac pro cestinu, ktery se bude spoustet v davce
tesne pred vlastnim dosovskym programem
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.12.2001 Jaroslav Uher:
> Ahoj,
> omlouvam se za OT, ale predpokladam, ze "postizenych" stejnym
> problemem bylo vice a ze jste to uspesne vyresili.
> Presel jsem z W9x na W2k, na coz jsem se trasne tesil, ale bohuzel
> stale musim udrzovat a upravovat me starsi programy napsane v TP
> a Btrieve. Pouzivam v nich kodovani Kamenickych.
> Presne podle starsiho prispevku ing. Jana Fialy (viz nize) jsem
> provedl upravy v Config.NT a take BAT souboru, kterym program
> spoustim.
> Vse v pohode - az na tu nestastnou cestinu.
> Zkousel jsem kod. stranky 895 i 867 (Kamenicky ???), ale objevi se
> hlaska "Kodova stranka neni platna."
> Muzete mi nekdo, prosim, [asi polopaticky -:) ] vysvetlit, jak vse
> nastavit ?FreeVCS How To
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 10.12.2001 15:30:26
Ano, ale to znamena zduplikovat vsechny soubory, i ty
nezmenene, protoze jinak se label ulozi ten novy a stary se
zapomene. To je celkem dost nepouzitelne
> > Konkretne Vyvyjim aplikaci a v urcitem okamziku vygeneruji verzi
> > 2.0 a poslu k zakaznikovi, a pokracuji ve vyvoji, V tom vola
> > zakaznik, ze chyba a ja si chci vratit verzi 2.0, abych nasel kde je
> > chyba. Ale ouha jak zajistim aby VCS nahralo spravne verze
> > modulu. Vypada to, ze vzdy v okamziku kdy to budu chtit uvolnit,
> > budu muset duplikovat veskere i nezmenene moduly, aby tam byly
> > i ve verzi stare i nove. Nelze nekde zapamatovat, ze byla vytvorena
> > verze 2.0, ktera obsahovala seznam modulu a jejich verze ?
> >
>
> Pokud jsem pochopil FreeVCS spravne, pak je nutne si dane stavy vyvoje
> explitne oznacit - tedy
> pridelit vsem souborum nejaky label. Pak je mozne pozdeji vyextrahovat
> stav projektu pomoci
> techto labelu. Nenasel jsem funkci, kterou bych mohl label pridelit
> jednoduse (metodou :"ted
> si zapamatuj stav projektu"). Musis vytvorit label,oznacit vsechny
> moduly a pridat jim ten label.
>
> Jako alternativu lze pouzit backup projektu. Mam nastaveno, ze se
> stare backupy nikdy
> nemazou - staci pak najit ten spravny archiv a vytahnout projekt ze
> zipu....
>
>
> D. Toman
>
>
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
FreeVCS How To
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2001 15:36:20
> Ano, ale to znamena zduplikovat vsechny soubory, i ty
> nezmenene, protoze jinak se label ulozi ten novy a stary se
> zapomene. To je celkem dost nepouzitelne
omyl. Modul muze mit vice labelu. To znamena, ze i soubor leta
nemeneny
bude pote zahrnut do nove vetve projektu.
FreeVCS mi celkem vyhovuje - ale pokud clovek potrebuje vyrobit (a
spravovat) dalsi vetev projektu (vyvoj vice verzi jednoho projektu),
neni to ono.
D. Toman
Firebird
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 10.12.2001 15:55:52
Ahoj
mam problem s FB 1
obcas se mi stava ze pri UPDATE mi zahlasi FB UPDATE conflicted s dalsim
UPDATE nebo tak neco, nevite cim to je ? (RH 6.2)
Milos
FreeVCS How To
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 10.12.2001 16:22:52
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> FreeVCS mi celkem vyhovuje - ale pokud clovek potrebuje vyrobit (a
> spravovat) dalsi vetev projektu (vyvoj vice verzi jednoho projektu),
> neni to ono.
A existuje vubec pro tento pomerne casty model nejake dobre reseni?
My pouzivame SourceSafe (cca 16tis./usera - hruza co?) a ten to trochu
podporuje ale neni to ono - je tam funkce Branch, kdy se jakoby rozdeli
vyvoj do dvou verzi (vsechny zdrojaky jsou 2x) pricemz umoznuje
poloautomaticky prebirat zmeny (rozumej opravy) ze starsi vetve do novejsi.
Zatim nepotrebujeme oddelovat novou verzi ale v dohledne dobe nas
to ceka...
Jinak jake jsou zkusenosti s FreeVCS, mam zpravy ze dela chyby a klienti
jsou nestabilni?
Martin Schayna
aditace HTMLTable jako databaze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 16:28:46
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
> stojim pred problemem editace jednoduche tabulky nacitane a ukladane v HTML.
Ahoj,
prijde mi rozumenjsi ukladat ty data v XML a vysledek generovat vhodnym XSL.
Normalni prohlizec to jiz umi primo zobrazit. Editovat XML data muzes primo v
Delphi.
Petr Vones
Jak osetrit jakoukoliv vyjimku ?
[*] bleak <bleak(zv)atlas(tec)cz> - 10.12.2001 16:31:08
m� to chod� tak, jak je to uvedeno nݿe, v tomto p��pad� je program v
p��pad� vyj�mky v�dy ukon�en... i kdy� Halt je abnormal termination.... nen�
to moc �ist�, pro moje ��ely to sta��...
=======
type
TForm1 = class(TForm)
procedure AppException(Sender: TObject; E: Exception);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Halt;
end;
Zalohovani IB
[*] vladimir.michl(zv)hlubocky.del(tec)cz - 10.12.2001 17:14:03
On Thu, 6 Dec 2001, 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?
Konkretne na toto zalohovani to myslim neni treba. Staci vzit gbak z win32
verze firebirdu (interbase).
V. Michl
Jak osetrit jakoukoliv vyjimku ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 17:16:38
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> Tento pripad si v programu dovedu osetrit, ale jsou pripady, kdy je to treba
> resit jinak, proto tento dotaz ...no a taky jsem %subj. v literature nikde
> nenasel a velice mne to zajima.
Ahoj,
a mas nekde jednoduchy priklad ve kterem se to vzdy projevi ?
Petr Vones
Jak osetrit jakoukoliv vyjimku ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2001 17:18:03
From: "bleak" <bleak(zv)atlas(tec)cz>
> m� to chod� tak, jak je to uvedeno nݿe, v tomto p��pad� je program v
> p��pad� vyj�mky v�dy ukon�en... i kdy� Halt je abnormal termination.... nen�
> to moc �ist�, pro moje ��ely to sta��...
Ahoj,
a v cem je pointa ? To ze v aplikaci vznikne neosetrena vyjimka jeste
neznamena, ze nelze alespon ulozit rozpracovana data a podobne. Za tohle by se
ti asi uzivatel podekoval, kdyz mu zcista jasna aplikace zmizi.
Petr Vones
FreeVCS How To
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2001 17:36:59
>
> A existuje vubec pro tento pomerne casty model nejake dobre reseni?
nevim. doufam :-)
> My pouzivame SourceSafe (cca 16tis./usera - hruza co?) a ten to
trochu
> podporuje ale neni to ono - je tam funkce Branch, kdy se jakoby
rozdeli
> vyvoj do dvou verzi (vsechny zdrojaky jsou 2x) pricemz umoznuje
> poloautomaticky prebirat zmeny (rozumej opravy) ze starsi vetve do
novejsi.
> Zatim nepotrebujeme oddelovat novou verzi ale v dohledne dobe nas
> to ceka...
>
> Jinak jake jsou zkusenosti s FreeVCS, mam zpravy ze dela chyby a
klienti
> jsou nestabilni?
ja ho pouzivam v podstate jen jako archivator zmen (muzu se kdykoliv
podovat
co se kde menilo) a navic mi diky pripojeni k Internetu zasadne
zjednodusilo prenos
zdrojaku mezi bytem a firmou. Pouzivam ho cca rok a nejake zasadni
problemy jsem
nikdy nemel. Samozrejme jsou zde mouchy, ktere zneprijemnuji (ne moc)
zivot (ukonceni
D5 obcas zpusobi serii vyjimek -ale to muze mit na svedomi i neco
jineho).
Pouzivam dedikovany DB server (DBISAM jako service na W2k). Nechce
nekdo napsat
handler pro MySQL??
D. Toman
FreeVCS How To
[*] vladimir.michl(zv)hlubocky.del(tec)cz - 10.12.2001 17:53:13
On Mon, 10 Dec 2001, Dalibor Toman wrote:
> > Ano, ale to znamena zduplikovat vsechny soubory, i ty
> > nezmenene, protoze jinak se label ulozi ten novy a stary se
> > zapomene. To je celkem dost nepouzitelne
>
> omyl. Modul muze mit vice labelu. To znamena, ze i soubor leta
> nemeneny
> bude pote zahrnut do nove vetve projektu.
>
> FreeVCS mi celkem vyhovuje - ale pokud clovek potrebuje vyrobit (a
> spravovat) dalsi vetev projektu (vyvoj vice verzi jednoho projektu),
> neni to ono.
Na toto se da s prehledem pouzit WinCVS (www.wincvs.org).
V zakladu je to vpodstate stejne jako FreeVCS. Pokud predavam verzi
zakaznikovi, je treba cely strom oznacit nejakym tagem (labelem - pro
kazdou verzi musi byt jiny). Pak si v klidu vyvijite dale a kdyz zakaznik
vola, do jineho adresare checkoutnete z CVS starsi verzi (pomoci toho
labelu) vytvorite branch (verzovou vetev - ta musi take byt oznacena
labelem napr. puvodni_label-patches) a delate opravy, na ktere take muzete
CVS pouzivat a i v teto patchovaci vetvi zase tagovat atd.
Navic pro tymovou praci je daleko pouzitelnejsi nez FreeCVS, protoze
umoznuje vice lidem zaroven editovat ten samy soubor (samozrejme to musi
byt cisty text). Tyto zmeny od ruznych lidi je pak schopen slit. (napr.
nejaky Vas spolupracovnik pracuje doma pres modem edituje soubor a vy do
nej potrebujete rychle neco noveho dopsat. V CVS jednoduse dopisete,
commitnete, modemistu to pak vyhodi ze chce commitovat ze starsi verze,
tak proste necha CVS slit upravy z repository s temi svymi, vyresi
pripadne konflikty a pak commitne).
FreeCVS jsem zkousel, ale funkcionalitou proste nevyhovoval mym
pozadavkum co jsem od verzovaciho systemu cekal.
V. Michl
OT: Vyreseno - Zacatecnik s Win 2000 - Jeste jeden
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 10.12.2001 18:17:30
Ahoj,
On 10 Dec 2001, at 15:17, ing. Jan Fiala wrote:
> Potrebujes nejaky ovladac pro cestinu, ktery se bude spoustet v davce
> tesne pred vlastnim dosovskym programem
ten mam a spoustim pred EXE.
Chyba byla jinde. Byl jsem zvykly ovladac umistovat do High
memory pomoci prikazu LH a navic jsem tam mel jeste >nul,
abych nevidel chybovou hlasku -:)))
Diky vsem za pomoc,
Jarek Uher
Konverze MSSQL->ORACLE
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 10.12.2001 19:08:43
Zdravim,
pokud si udrzujete popis datoveho schematu v nejakem case nastroji, tak by
melo stacit zmenit target server a opravit pouzite nekompatibilitni zapisy v
triggerech a ulozenych procedurach. Pokud ne stalo by za to zkusit
reingeneering do nejake case nastroje.
Pro prevod dat doporucuji vyexportovat data pres DTS packedges do ASCII
souboru a odsud pres SQL*Loader naimportovat do Oracle.
Co se tyce aplikace, to nelze tak snadno rici. Zalezi pres co se pripojujete
apod. Mozna by stalo za to v prvni fazi prevest T-SQL specialitky v
klientskych dotazech a prikazech na SQL standard.
Tohle tema mne take zajima.
S pozdavem, Lada
_______________________________________________
Mgr. Ladislav Nagy
Baader Computer, Hradebn� 287/22, 370 01 C. Budejovice
Tel.: +420-38-6354553,-4; Fax: +420-38-6354556
Baader Computer, Sokolsk� 66, 120 00 Praha 2
Tel.: +420-2-24941962,-3; Fax: +420-2-24942564
Mobil: +420-606-612717
----- Original Message -----
From: <borkovec(zv)email(tec)cz>
Dobre poledne,
Nevite nekdo o programech, pripadne utilitkach ci komponentach, ktere
mohou pomoci pri prenosu aplikace a db z MSSQL(7,2000) na ORACLE (8,9i)?
Za kazdou zkusenost dekuji
R&B
Sortovanie na ADOQuery
[*] Erik Salaj <winsoft(zv)stonline.sk> - 10.12.2001 19:10:59
> Preco ked pouzijem - "select * from XXX order by NAZOV"
> dostanem data do gridu v nasledovnom poradi
> A-AAA
> A-BBB
> A AAA
> A BBB
>
> Ak vsak pouzijem "select * from XXX"
> a po otvoreni ADOQuery vykonam
> ADOQuery.Sort := 'NAZOV'; tak dostanem data v nasledovnom poradi
> A AAA
> A BBB
> A-AAA
> A-BBB
>
> Problem je len " - " diakritika problem nerobi;
>
> Vie mi niekto poradit co urobit aby : "data po Sortovani" = "data po
selecte
> s ORDER BY"
myslim, ze problem moze suvisiet s tym, ze v prvom pripade sa triedi
na serveri (t.j. triedi DBMS), v druhom pripade sa udaje triedia
na klientovi (t.j. triedi ADO). Skontroluj, pripadne vyskusaj zmenit
triedenie
na serveri (na klientovi neviem, ci je to mozne ovplyvnit). Dalej myslim,
ze korektne by malo byt triedenie ADO (znak ' ' je pred '-'), ze teda
na serveri by mohol byt problem.
Erik
Soubor v databazi MS Access
[*] Erik Salaj <winsoft(zv)stonline.sk> - 10.12.2001 19:11:32
> nevite nekdo, jak dostat do Accessu, do pole typu OLE Object, soubor?
Predem
> dekuji.
pomocou ADO a blob polozky
Erik
otaceni wmf
[*] <mpig(zv)quick(tec)cz> - 10.12.2001 19:24:14
Ahoj delfini
muze mi prosim nekdo pomoct s otacenim wmf grafiky? Je na to nejaka funkce, nebo se musi
transformovat jednotlivy elementy - jak se k nim dostat?
dik david
Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.12.2001 19:28:52
Haj hou!
On 10 Dec 2001, at 15:55, Sula Milos wrote:
> mam problem s FB 1
> obcas se mi stava ze pri UPDATE mi zahlasi FB UPDATE conflicted s dalsim
> UPDATE nebo tak neco, nevite cim to je ? (RH 6.2)
A jake mas nastavene parametry transakce ? A vice detailu o
okolnostech vzniku hlaseni, prosim :-)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Adonis a store procedure
[*] JIM Design <jim.design(zv)iol(tec)cz> - 10.12.2001 19:28:15
Ahoj,
mno nevim jestli to neni blbost - nekamenujte me prosim, ale neslo by to
proceduru zkusit zavolat ne pomoci TADOStoredProcedure, ale treba pomoci
TADODataset nebo TADOQuery
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lstiburek Pavel
Next RecordSet me taky napadl, ale nefunguje to. V zoufalstvi jsem se
pokusil vratil nekolik Recordsetu, ale jakmile udelam UPDATE, tak se na
nasledujici recordsety pomoci NextRecordset nemohu dostat (chyba: tuto
operaci neni mozno provadet na uzavrenem objektu).
Jedine reseni na ktere jsem prisel je tu cast, ve ktere je UPDATE umistit do
samostatne procedury s nasazenou SET NOCOUNT ON.
Problem s parametry nema bohuzel s NOCOUNT nic spolecneho, to jsem se zmylil
pri pokusech. Parametry nejsou vyneseny v pripade pouziti metody Open
namisto ExecProc.
Pavel
>
> Priznavam, ze jsem nikdy nezkousel Dataset a vracene
> parametry najednou.
> Netusim proc by to ale nemelo fungovat. Kdyz tak skus vyhodit
> ty NOCOUNTY a
> zavolat cca neco takoveho:
>
> StoredProc.ExecProc ;
> StoredProc.NextRecordset ;
>
> ale nikdy jsem to nepouzil a nevim jestli to takto pujde
>SysMenu do PopupMenu
[*] Milan ��ek - 10.12.2001 20:15:41
Ahoj,
potrebuji nejakym zpusobem zjistit polozky systemoveho menu (vcetne ikon,
klavesovych zkratek...) a temito udaji naplnit vlastni PopupMenu, ktere bude
uzivatelsky kreslene - nebude problem se spravnou sirkou? Toto PopupMenu pak
priradim butonu v levem hornim rohu aplikace.
Jak tedy zkopirovat polozky ze SysMenu do meho menu? Zkousel jsem pouzit fci
GetSystemMenu, ale ziskany HMENU se mi nepodarilo s nicim propojit. Take me
napadlo vytvorit uz pevne dane PopupMenu, to by bylo ale jen v jendom
jazyce...
Diky
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
ScriptMaker+InnoSetup a cestina
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.12.2001 20:47:10
Zkus misto ScriptMaker pouzit ISTool (odkaz je na strance s INOO
setupem)
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.12.2001 Heinisch Jiri:
> Ahoj
> Pouzivate nekdo kombinaci ScriptMaker+InnoSetup+W2000 SP2
> a ve jm�nu aplikace pouzivate "e" s hackem.
> Ve Win98Se to jde bez problemu, ale ve Win2000
> mi to "e" nahradi otaznikem.Konfiguraci Scriptu pouzivam stejnou v obpu
> systemech.> S pozdravem Heinisch Jiri
Jak osetrit jakoukoliv vyjimku ?
[*] bleak <bleak(zv)atlas(tec)cz> - 10.12.2001 21:09:01
zapomn�l jsem je#t� na tohle: do form.create vlo�it tohle:
Application.OnException := AppException;
sorry...
chod� to tak jak jsem napsal... zrovna jsem to znovu zkou#el... p�esunul
jsem jednu aplikaci a smazal ini soubor, do#lo k vyj�mce a aplikace se
ukon�ila bez hl�#ky a je#t� p�edt�m p�ed� focus jin� aplikaci. to pot�ebuju
proto�e se v�stup pos�l� do TV vys�l�n�....
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 10, 2001 5:16 PM
Subject: Re: Jak osetrit jakoukoliv vyjimku ?> From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> > Tento pripad si v programu dovedu osetrit, ale jsou pripady, kdy je to
treba
> > resit jinak, proto tento dotaz ...no a taky jsem %subj. v literature
nikde
> > nenasel a velice mne to zajima.
>
> Ahoj,
>
> a mas nekde jednoduchy priklad ve kterem se to vzdy projevi ?
>
> Petr Vones
>Nazvy polozek v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 10.12.2001 21:20:12
> > 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.
Aha a plati to i kdyz vytvarim rucne NazvyPolozek a ObsahyPolozek? Mam tam totiz
i mezery i diakritiku a funguje to, tak me to zmatlo :-)
A je nejak mozne, aby se pri zadavani polozek v editoru zobrazovaly jejich
popisy misto nazvu? Pokud si chce uzivatel zmenit neco v sestave, tak nazvy
polozek z tabulek pusobi docela neuzivatelsky :-/
Dik,
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Seriove cislo
[*] Martin #d�rsk� <zdary(zv)seznam(tec)cz> - 10.12.2001 21:32:25
Ahoj, jak lze zjistit vyrobni cislo lib. hardwaru? Pokousim se o
zabezpeceni produktu. dik
Martin
______________________________________________________________________
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
Acrobat Distiller - print to file
[*] <jiri.sedivec(zv)email(tec)cz> - 10.12.2001 21:42:46
Mam nainstalovanou tiskarnu Acrobat Distiller. Ale nevim
jak ji mam rict, ze chci neco vytisknout (napr. do souboru
c:\aaa.pdf).
Myslel jsem, ze existuje neco takoveho:
Printers.Printer[2].Filename:='c:\aaa.pdf'
Diky za radu...
---
<a href="/mixer/redirect.phtml?kam=&robot=2219242&perioda=489" target="_blank">Set�ete si sv�ho losa a nejlep#� v�no�n� d�rky V�m budou ��kat �Pane�!
http://los.tiscali(tec)cz/?hledej
</a>
Nazvy polozek v Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.12.2001 00:10:13
> From: Roman
> > 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.
>
> Aha a plati to i kdyz vytvarim rucne NazvyPolozek a
> ObsahyPolozek? Mam tam totiz
> i mezery i diakritiku a funguje to, tak me to zmatlo :-)
Nekde to fungovat muze, ale bez zaruky.
Zcela urcite to nebude fungovat, pokud takovy
nazev polozky bude pouzit ve vyrazu uzivatelsky
definovane funkce.
> A je nejak mozne, aby se pri zadavani polozek v editoru zobrazovaly jejich
> popisy misto nazvu? Pokud si chce uzivatel zmenit neco v sestave,
> tak nazvy
> polozek z tabulek pusobi docela neuzivatelsky :-/
To samozrejme ano. Staci si v nastaveni prostredi
editoru zapnout volbu Misto nazvu polozek zobrazovat
popisy.
Vaclav Krmela
Komponenta-ovladaci prvek
[*] Hurricane <hurricane(zv)quick(tec)cz> - 11.12.2001 00:18:56
Zdravim
Je na to sada komponent s nekolika mooc peknymi komponentami na ovladani.
Tahle je tam taky. Ale neni to free (je trialware (nebo free pro D1 :-)).
www.abaecker.com
Hurricane
----- Original Message -----
> prosim nevite nekdo o 3D ovladacim prvku. Klasicky kulaty knoflik, kterym
> lze mysi otacet. Nebo ovladat pomoci sipek nahoru a dolu.DBGrid - posledni viditelny sloupec
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.12.2001 06:54:51
> bohuzel musim pracovat s DBGridem, kde je zobrazeno vice polozek -
> jsou za rohem. Jak zjistim poradove cislo posledniho viditelneho
> slouce v DBGridu. V udalosti OnDrawColumnCell provadim nejake operace,
> ktere ale jsou dany podminkou nactenim (a zobrazenim) vsech sloupci
> daneho radku v DBGridu.
>
Ahoj,
moc nerozumim, v cem je problem. Hodnoty sloupcu jsou prece
pristupne v datasetu, o ktery je DBGrid opren, a tam je aktualni
radek vzdy cely.
David Lebeda
OT: licence DELPHI 6 Personal
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 11.12.2001 07:13:41
Ahojky Zdenku,
zdravim i Tebe.
Pokud je mi znamo, tak trestni oznameni (nebo alespon podezreni ze spachani
trestneho cinu) muze podat jakakoliv fyzicka nebo pravnicka osoba a nemusi
se ji to nakonec ani tykat (s dlouhym ypsilon :-) ). A Borlandu se
porusovani copyrightu jejich produktu (nebo v pripade B. CZ produktu, ktery
prodavaji) zatracene tyka (take s dlouhym ypsilon :-) ). Takze
pravdepodobnost, ze by trestni oznameni podal Borland, je docela vysoka, co
myslis? Proc by mel na napr. pana Novaka podavat "Cesky stat" trestni
oznameni, protoze pouziva D6PE v rozporu s licencnim ujednanim?
No nechme toho, je to zbytecny OT. Jako zaver bych shrnul, ze by se mel
zastupce Borland CZ k tomuto vyjadrit (jakkoliv se me to netyka, protoze u
nas pracujeme na starych dobrych D4.03Pro) uz proto, aby se treba nejaky
student zbytecne nedostal do prusvihu :-( Uplne staci kriminalizace uzivani
marianky.
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zdenek Drvota
> Sent: Monday, December 10, 2001 1:17 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OT: licence DELPHI 6 Personal
>
>
> Ahoj,
> no pokud by to bylo podani TRESTNIHO oznameni, pak by to byl
> spor Cesky stat vs. uzivatel, a Borland (US nebo CZ) by tam vystupoval
> jedine jako svedek, ne jako protistrana, a k jeho nazoru by bylo
> mozne ze strany soudu prihlednout, nebo tak ne.
> Z.D.
>
>Firebird
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 11.12.2001 07:14:23
No abych se priznal tak na to nepristupuju z delphi ale pomoci IBPerlu
na strane linuxu( Karwinovo rozhrani pro perl - to si ale nejsem jisty
zda o tom neco vite ) a tam se uz celkem nic nenastavuje krome connectu
na databazi. Pak jen volam UPDATE tabule SET sloup=value WHERE
sloupec=1;
a hlasi to presne
deadlock
-update conflicts with concurrent update
jinak o tom jak vevnitr funguje IBPerl moc nevim
dik
Milos Sula
A jake mas nastavene parametry transakce ? A vice detailu o
okolnostech vzniku hlaseni, prosim :-)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
uvolnovanie pama(e)te
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.12.2001 07:20:51
> rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft v
> delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne ten
> program ale sa neuvolni pama(e)t, co sa tam alokovala.
Ahoj,
taky to u nekterych aplikaci pozoruji. Stavalo se mi (nekdy), ze po
CTRL+F2 zrejme nejen nedoslo k uvolneni pameti, ale u db
pripojeni treba zustalo neco viset (FlashFiler) apod. Mam pocit, ze
ukonceni Delphi a jejich nove spusteni pomohlo, ale je uz dele,
mozna se v nejakych podrobnostech mylim.
David Lebeda
Konverze MSSQL->ORACLE pro L.Nagyho
[*] borkovec(zv)email(tec)cz - 11.12.2001 07:22:42
Ten problem je opravdu velmi zajimavy a ne zrovna trivialni - kuprikladu aplikace, pracujici s vicero DBs, a nasledne Ora vazby na tablespaces a users... proste parada. Jen mam dojem, ze to nebude jiz tema pro admina a bohuzel ve Vasi odpovedi chybel soukromy mail.
Jestli mate zajem o drobnou debatu, jsem k dispozici na borkovec(zv)majak(tec)cz, pripadne borkovec(zv)email(tec)cz
R&B
---
Po��ta�ov� p�ekvapen� pod V�# strome�ek: http://www.gcsystem(tec)cz/darecek
a k tomu kni�n� hit roku: http://www.stansemilionarem.com/vanoce
uvolnovanie pama(e)te
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 11.12.2001 07:39:50
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > > ehm, nejsem odbonik, ale dovolim si takovou kratkou poznamku, s
> > > WINem mas pravdu, presne jak jsi napsal, WIN - zvlaste 98 neumi
> > > pracovat s vyssi pamet jak 64MB dobre...
>
> Blbost ...
Tohle je fakt blbost - sam mam 512MB a chvili jsem to provozoval na ME, a bez
problemu je cele vyuzival. Ted mam XP a je to uplne v pohode. Je s podivem, ze
mi po startu Delphi a otevreni projektu zbyva cca. 300MB volne pameti. Na tech
NT neco je :))))
S pozdravem
Milan Tome# [mailto:milan.tomes(zv)haida(tec)cz]
GORDIC distributor sever, HAiDA s.r.o.
tel : +420 424 / 222282, 222284
fax : +420 424 / 222962
Handle aplikacie
[*] Slavom�r �eke# - 11.12.2001 08:02:22
Ako zistim Handle nejakej aplikacie ?
Slavo
USB printer
[*] Robert Suska <robert(zv)korak.sk> - 11.12.2001 08:15:52
Ahojte, prepacte ze sa pytam na inu vec ako je Delphi ale proste uz som v
koncoch. Jedna sa o USB tlaciarne ci uz laserove alebo tryskove konkretne o
typ HP LaserJet 1000 a HP DeskJet 940C su pripojene ku PC cez USB a kazdy s
pocitacov su v LAN-ke. Samozrejme su zdielane. Po preinstalovani ovladacov
idu v pohode "nejaky" cas a potom zahadne prestanu tlacit az do dalsieho
restartu PC v najhorsom pripade do dalsieho reinstalu ovladacov. Ak mate
niekto skusenosti s USB tlaciarnami privitam hocijake info. Dakujem
S pozdravom Robert Suska
RTF - text jako v tabulce
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 11.12.2001 08:27:28
Zdravim,
musim programove udelat v rtf neco jako tabulku.
Nekde jsem cetl (a nemohu to najit), ze existuje neco jako Tab, tzn. za text
je zarovnan po sloupcich.
Idealni by bylo, kdyby ty odskoky sly udelat v ruznych sirkach.
Dily za pomoc Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
VYRESENO DBGrid - posledni viditelny sloupec
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 11.12.2001 08:31:29
Zdravim,
v podstate slo o to, ze po vzstupu na novy radek jsem potreboval provest
nejakou akci.
Ale jakmile jsem v DBGrid na prvnim slouci, tak neznam obsah dalsich
sloucu - bohuzel vyhodnoceni jsem provadel v spatne udalosti. Problem jsem
vyresil presmerovani na jiny Event.
> > bohuzel musim pracovat s DBGridem, kde je zobrazeno vice polozek -
> > jsou za rohem. Jak zjistim poradove cislo posledniho viditelneho
> > slouce v DBGridu. V udalosti OnDrawColumnCell provadim nejake operace,
> > ktere ale jsou dany podminkou nactenim (a zobrazenim) vsech sloupci
> > daneho radku v DBGridu.
> >
>
> moc nerozumim, v cem je problem. Hodnoty sloupcu jsou prece
> pristupne v datasetu, o ktery je DBGrid opren, a tam je aktualni
> radek vzdy cely.
>
> David Lebeda
uvolnovanie pama(e)te
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 11.12.2001 08:35:07
Zdravim,
nevim co mas povesene na CTRL+F2, ale s FF 2.00 (FlashFiler) se mi taky
stava, ze po ukonceni aplikace nekde neco visi. Vinu ale hazim na sebe,
ponevac jeste neznam vsechny zakonitosti s DB (konkretne s FF2).
Pavel ZIDEK
> > rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft v
> > delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne ten
> > program ale sa neuvolni pama(e)t, co sa tam alokovala.
>
> Ahoj,
>
> taky to u nekterych aplikaci pozoruji. Stavalo se mi (nekdy), ze po
> CTRL+F2 zrejme nejen nedoslo k uvolneni pameti, ale u db
> pripojeni treba zustalo neco viset (FlashFiler) apod. Mam pocit, ze
> ukonceni Delphi a jejich nove spusteni pomohlo, ale je uz dele,
> mozna se v nejakych podrobnostech mylim.
>
> David Lebeda
OT: Pomala aplikace v DOS okne Win2000
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 11.12.2001 08:43:53
OT :o) Zdravim,
instaloval jsem Win2000 a kdyz si pustim program v dosovem okne,
tak mi bezi zhruba o 50% pomaleji nez na Win98 (D�vka na indexov�n�
datab�z�).
Je nejaka moznost nastaveni priority programu a zrychleni???
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
Soubor v databazi MS Access
[*] martin.falta(zv)obi.de - 11.12.2001 08:48:44
This is a multi-part message in MIME format.
Nebyl by priklad? Nejak to tam porad nedokazu dostat.
Diky
Martin Falta
winsoft(zv)stonline
.sk To: delphi-l(zv)clexpert(tec)cz
Sent by: cc:
delphi-l-owner(zv)c Subject: Re: Soubor v databazi MS Access
lexpert(tec)cz
10.12.2001 19:11
Please respond
to delphi-l
> nevite nekdo, jak dostat do Accessu, do pole typu OLE Object, soubor?
Predem
> dekuji.
pomocou ADO a blob polozky
Erik
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.uvolnovanie pama(e)te
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.12.2001 09:00:15
> nevim co mas povesene na CTRL+F2, ale s FF 2.00 (FlashFiler) se mi
> taky stava, ze po ukonceni aplikace nekde neco visi. Vinu ale hazim na
> sebe, ponevac jeste neznam vsechny zakonitosti s DB (konkretne s FF2).
> Pavel ZIDEK
Rec je o ladeni v Delphi a o funkci Program Reset (CTRL+F2),
ktera okamzite zrusi ladeni a vrati rizeni do Delphi.
David Lebeda
> > > rad by som vedel jednu vec o delphi/windows. ked ladim nejaky soft
> > > v delfach a zrusim ho cez CTRL+F2... predpokladam, ze sa killne
> > > ten program ale sa neuvolni pama(e)t, co sa tam alokovala.
> >
> > taky to u nekterych aplikaci pozoruji. Stavalo se mi (nekdy), ze po
> > CTRL+F2 zrejme nejen nedoslo k uvolneni pameti, ale u db pripojeni
> > treba zustalo neco viset (FlashFiler) apod. Mam pocit, ze ukonceni
> > Delphi a jejich nove spusteni pomohlo, ale je uz dele, mozna se v
> > nejakych podrobnostech mylim.
> >
> > David Lebeda
>
RTF - text jako v tabulce
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 11.12.2001 09:02:51
Nejlepe je postupovat pokusem a vytvorit si napr. v MS Word ukazku toho, co
chces ziskat, to ulozit jako .rtf a z toho to vylustit.
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Pavel ZIDEK
> Sent: Tuesday, December 11, 2001 8:27 AM
> To: konference DELPHI
> Subject: RTF - text jako v tabulce
>
>
> Zdravim,
> musim programove udelat v rtf neco jako tabulku.
> Nekde jsem cetl (a nemohu to najit), ze existuje neco jako Tab,
> tzn. za text
> je zarovnan po sloupcich.
> Idealni by bylo, kdyby ty odskoky sly udelat v ruznych sirkach.
> Dily za pomoc Pavel
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
aditace HTMLTable jako databaze
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 11.12.2001 09:04:04
Dik, na to jsem take myslel, ale problem je v tom, ze jiz nyni jsou hotove HTML stranky obsahujici vzdy pouze jednu tabulku a v nich se maji delat upravy -> program ma umet tyto stranky nacist, zpracovat pripadne prohnat nejakymi autoatickymi upravami a ulozit zpet.
Rchad Valny
>>> pvones(zv)mbox.vol(tec)cz 10.12.2001 16:28:46 >>>
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
> stojim pred problemem editace jednoduche tabulky nacitane a ukladane v HTML.
Ahoj,
prijde mi rozumenjsi ukladat ty data v XML a vysledek generovat vhodnym XSL.
Normalni prohlizec to jiz umi primo zobrazit. Editovat XML data muzes primo v
Delphi.
Petr Vones
OT: licence DELPHI 6 Personal
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 11.12.2001 09:09:00
Ahoj,
to je ale spravne, v tom se shodnem.
Borland (napr. :) poda trestni oznameni
a stat na jeho podnet zahaji setreni v te veci, a od te chvile
uz vystupuje proti pachateli (podezrelemu) JEN stat.
Ledaze by Borland (ale US, jako drzitel autorskych prav),
podal JINOU zalobu dle obchodniho zakoniku, na usly zisk a jinou
skodu, to by ale byl asi obcanskopravni proces, ne trestni. I kdyz i
v trestnim procesu muze soud primo rozhodnout o nahrade skody, ale
taky nemusi, ze... nebo prisoudi jinou castku, nez si autor
predstavuje :))
Z.D.
On to zase tak velky OT neni, tyka se vseho softwaru i Delphi.
### Miroslav Ondrisek napsal dne 11 Dec 01, v 7:13 :
> Ahojky Zdenku,
> zdravim i Tebe.
>
> Pokud je mi znamo, tak trestni oznameni (nebo alespon podezreni ze
> spachani trestneho cinu) muze podat jakakoliv fyzicka nebo pravnicka osoba
> a nemusi se ji to nakonec ani tykat (s dlouhym ypsilon :-) ). A Borlandu
> se porusovani copyrightu jejich produktu (nebo v pripade B. CZ produktu,
> ktery prodavaji) zatracene tyka (take s dlouhym ypsilon :-) ). Takze
> pravdepodobnost, ze by trestni oznameni podal Borland, je docela vysoka,
> co myslis? Proc by mel na napr. pana Novaka podavat "Cesky stat" trestni
> oznameni, protoze pouziva D6PE v rozporu s licencnim ujednanim?
>
> No nechme toho, je to zbytecny OT. Jako zaver bych shrnul, ze by se mel
> zastupce Borland CZ k tomuto vyjadrit (jakkoliv se me to netyka, protoze u
> nas pracujeme na starych dobrych D4.03Pro) uz proto, aby se treba nejaky
> student zbytecne nedostal do prusvihu :-( Uplne staci kriminalizace
> uzivani marianky.
>
> Mira Ondrisek
>
>
>
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zdenek Drvota
> > Sent: Monday, December 10, 2001 1:17 PM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: Re: OT: licence DELPHI 6 Personal
> >
> >
> > Ahoj,
> > no pokud by to bylo podani TRESTNIHO oznameni, pak by to byl
> > spor Cesky stat vs. uzivatel, a Borland (US nebo CZ) by tam vystupoval
> > jedine jako svedek, ne jako protistrana, a k jeho nazoru by bylo mozne
> > ze strany soudu prihlednout, nebo tak ne. Z.D.
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
preco mi nejde SendMessage ?
[*] Slavom�r �eke# - 11.12.2001 09:19:43
Zdravim ...
testujem si SendMessage ... a nejde mi .... opisem situaciu:
Mam aplikaciu a chcem (koli testu) sam sebe poslat Message. Skusal som
posielat na Handle Okna aj na Handle Aplikacie a NIC, kde mam chybu ?
procedure TForm1.Button2Click(Sender: TObject);
const My_Message = WM_USER + 100;
begin
SendMessage(Form1.Handle,My_Message,12,10);
// SendMessage(Application.Handle,My_Message,12,10);
end;
{tato procedurka reaguje na vsetko okrem MOJEJ MESSAGE, preco ?}
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_USER + 100 then
Form1.Caption := IntToStr(Msg.wParam);
end;
end
Mozno spravu posielam na zle Handle, mozno treba nejako prepojit
ApplicationEvents komponentu s Form .... no neviem ako ... poradte ...
Vopred DAKUJEM za cokolvek :) cafte
Slavo
Jak osetrit jakoukoliv vyjimku ?
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 11.12.2001 09:20:31
Nebylo by pro uzivatele (a vlastne i programatora) lepsi misto ukonceni
programu zobrazit informaci o vzniku vyjimky a tuto vyjimku zapsat do logu.
Jak jinak potom tuto vyjimku osetrit, kdyz o ni nebudu nic vedet ?
Martin Ben
> -----Puvodni zprava-----
> Od: bleak [mailto:bleak(zv)atlas(tec)cz]
> Odesl�no: 10.12.2001 16:31
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Jak osetrit jakoukoliv vyjimku ?
>
>
> m� to chod� tak, jak je to uvedeno nݿe, v tomto p��pad� je program v
> p��pad� vyj�mky v�dy ukon�en... i kdy� Halt je abnormal
> termination.... nen�
> to moc �ist�, pro moje ��ely to sta��...
> =======
> procedure TForm1.AppException(Sender: TObject; E: Exception);
> begin
> Halt;
> end;
>
> Prevod cisla tydne
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 11.12.2001 09:24:13
Zdrav�m Delphiky,
M�m probl�m - pot�ebuji z roku a ��sla t�dne vr�tit datumy PO a NE toho
zadan�ho t�dne.
P�. rok 2001 a t�den 50 = 10.12.2001 - 16.12.2001 pro CZ
Ne�e#il jste to ji� n�kdo?
Nelezl jsem rozd�l v ��slovan� pro �esk� a nap�. n�meck� kalend߰.
Jsou n�jak� pravidla pro ��sla t�dne?
Pro� n�kdy za��n� �. 1 a n�kdy 2 ?
D�kuji za cokoli Jan �ebesta
uvolnovanie pama(e)te
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.12.2001 09:43:43
> Odes�latel: Pavel ZIDEK <delphi(zv)kopr(tec)cz>
> nevim co mas povesene na CTRL+F2, ale s FF 2.00 (FlashFiler) se mi taky
> stava, ze po ukonceni aplikace nekde neco visi. Vinu ale hazim na sebe,
> ponevac jeste neznam vsechny zakonitosti s DB (konkretne s FF2).
Nevim uplne presne, jak funguje Ctrl+F2, ale rozhodne nejde o korektni ukonceni aplikace.
Neprobehne OnClose, OnDestroy formularu, neprovedou se destruktory pouzitych komponent.
Takze vubec neni divu, ze soubory zustanou otevreny, DB server se "nedozvi" o tom, ze se klient odpojil, ...
Ctrl+F2 je nestandardni, nasilne ukonceni procesu, o jehoz dusledcich bych vubec nediskutoval.
Podobne dusledky by mel mit prikaz "halt".
Je to "nouzovka", ktera mi tak akorat pomuze k tomu, abych nemusel nasilne ukoncit Delphi nebo dokonce restartovat pocitac.
Po "odstreleni" procesu by nicmene mel operacni system pamet uvolnit.
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)
=========================================funkce Str vraci "Nan"
[*] likeapear <likeapear(zv)centrum(tec)cz> - 11.12.2001 09:47:15
ahoj, narazili jsme na problem:
prevadim hodnotu typu Double na String pomoci systemove funkce Str. Vysledek
je "Nan". Cekal bych ze Nan je neco jako Not A Number...Debugger vsak
ukazuje hodnotu Double-promenne jako 1, cili normalni cislo. V helpu jsme
nic nenasli. Ostatni funkce jako FloatToStr se chovaji spravne. No zktratka
jestli na to nekdo narazil, at nam prosim poradi.
Pomala aplikace v DOS okne Win2000
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 11.12.2001 09:52:36
> instaloval jsem Win2000 a kdyz si pustim program v dosovem okne,
> tak mi bezi zhruba o 50% pomaleji nez na Win98 (D�vka na indexov�n�
> datab�z�).
> Je nejaka moznost nastaveni priority programu a zrychleni???
Moja skusenost s Windows NT/2000 je taka, ze pomale je hlavne vykreslovanie
textu do okna v konzolovom rezime. Pri prepnuti na celu obrazovku je to o
nieco lepsie. Pri "ukecanych" programoch, ktore toho do konzoly pisu
neumerne vela, mi zvykne pomoct presmerovanie do suboru alebo na null.
Pripadne minimalizacia okna tej konzolovej aplikacie.
HTH
TOndrej
Adonis a store procedure
[*] bardon <bardon(zv)akord-soft(tec)cz> - 11.12.2001 09:52:01
V principu to neni uplna blbost, ale TADOStoredProc je myslim potomkem
TADODataSet, tak�e to asi nic moc neprinese. Pres TADOQuery to asi nepujde.
Myslim, ze nezbude nez pridat ty vystupni parametry do vystupniho datasetu.
Nekdy kdyz chci volat Stored procedure pres Query, pouzivam konstrukci
(okoukanou z BDE)
DECLARE (zv)PAR1 int, (zv)PAR2 int
SELECT (zv)PAR1 = :Vstupni_parametr
exec spNejakaProcedura (zv)PAR1, (zv)PAR2 OUT
select Vystupni_parametr = (zv)PAR2
Z toho je videt, ze by mi vznikly dva datasety - prvni dataset by
produkovala ta ulozena procedura a druhym bych dostaval ven vystupni
parametr. Mozna by to pres TADOQuery takto napsat slo, ale je to takove
divne...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of JIM Design
Sent: Monday, December 10, 2001 7:28 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Adonis a store procedure
Ahoj,
mno nevim jestli to neni blbost - nekamenujte me prosim, ale neslo by to
proceduru zkusit zavolat ne pomoci TADOStoredProcedure, ale treba pomoci
TADODataset nebo TADOQuery
M.Jirman
RTF - text jako v tabulce
[*] bardon <bardon(zv)akord-soft(tec)cz> - 11.12.2001 09:56:00
V RichEditu v property Paragraph jsou property TabCount a Tab[x]
Obcas se chovaji jinak, nez bych cekal, ale v konecnem dusledku se pouzit
daji.> Zdravim,
> musim programove udelat v rtf neco jako tabulku.
> Nekde jsem cetl (a nemohu to najit), ze existuje neco jako Tab,
> tzn. za text
> je zarovnan po sloupcich.
> Idealni by bylo, kdyby ty odskoky sly udelat v ruznych sirkach.
> Dily za pomoc Pavel
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
uvolnovanie pama(e)te
[*] iko <iko(zv)kamarad(tec)cz> - 11.12.2001 10:10:44
o tom velmi silne pochybujem hlavne pri W98. robim tu prave nieco a pada mi
to zatial z uplne nepochopitelnych dovodov. takze moja praca teraz vyzera,
ze nieco skusim, spustim, vyhodi chybu, dam CTRL+F2... a potom sa mi uz
nepodari spustit ani notepad, malo pamete, vybehne okno ze mam nebezpecne
malo syst. prostriedkov, teda restart a pokracujem :)
ohromna zabava
----- Original Message -----
From: Jan Sebel�k <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 11, 2001 9:43 AM
Subject: Re: uvolnovanie pama(e)te
> Po "odstreleni" procesu by nicmene mel operacni system pamet uvolnit.
OT: Pomala aplikace v DOS okne Win2000
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.12.2001 10:14:52
Je treba trochu upravit Config.NT a Autoexec.NT, dale vymezit programu
v zastupci asi 4 MB pameti a nenechavat to na AUTO. Treba pro FoxPro
davam EMS zadnou, XMS 4MB, DPMI 4MB.
Autoexec.NT:
===============
(zv)echo off
Path=xxxx
Set neco=neco jineho
lh %SystemRoot%\system32\dosx
Vse ostatni okomentovat
Config.NT:
============
NTCmdPrompt
EMM=RAM
dos=high,umb
device=%systemroot%\system32\himem.sys
files=100
Nic jineho neni treba
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.12.2001 Robert Plz�k:
> OT :o) Zdravim,
> instaloval jsem Win2000 a kdyz si pustim program v dosovem okne,
> tak mi bezi zhruba o 50% pomaleji nez na Win98 (D�vka na indexov�n�
> datab�z�).
> Je nejaka moznost nastaveni priority programu a zrychleni???
> 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
funkce Str vraci "Nan"
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.12.2001 10:16:41
Pouzij funkci Format('%f12.2', [double_cislo]);
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.12.2001 likeapear:
> ahoj, narazili jsme na problem:
> prevadim hodnotu typu Double na String pomoci systemove funkce Str. Vysledek
> je "Nan". Cekal bych ze Nan je neco jako Not A Number...Debugger vsak
> ukazuje hodnotu Double-promenne jako 1, cili normalni cislo. V helpu jsme
> nic nenasli. Ostatni funkce jako FloatToStr se chovaji spravne. No zktratka
> jestli na to nekdo narazil, at nam prosim poradi.preco mi nejde SendMessage ?
[*] brant(zv)dcomm(tec)cz - 11.12.2001 10:16:49
Jestli nemas spatne syntaxi, ja to delam takto a bez problemu:
v sekci private napisu:
procedure HandleMessage(var Msg: TMessage); message WM_USER + 100;
a potom v implementation:
procedure TForm1.HandleMessage(var Msg: TMessage);
begin
... nejaka akce
end;
A jako parametr v SendMessage pouzivam handle okna, tj.
SendMessage(Form1.Handle, ...);
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
testujem si SendMessage ... a nejde mi .... opisem situaciu:
Mam aplikaciu a chcem (koli testu) sam sebe poslat Message. Skusal som
posielat na Handle Okna aj na Handle Aplikacie a NIC, kde mam chybu ?
procedure TForm1.Button2Click(Sender: TObject);
const My_Message = WM_USER + 100;
begin
SendMessage(Form1.Handle,My_Message,12,10);
// SendMessage(Application.Handle,My_Message,12,10);
end;
{tato procedurka reaguje na vsetko okrem MOJEJ MESSAGE, preco ?}
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_USER + 100 then
Form1.Caption := IntToStr(Msg.wParam);
end;
end
Mozno spravu posielam na zle Handle, mozno treba nejako prepojit
ApplicationEvents komponentu s Form .... no neviem ako ... poradte ...Prevod cisla tydne
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 11.12.2001 10:32:18
Rozdil je tento
U nas je 1. tyden ten ve kterem je 1.1.
V nemecku je 1. tyden ktery ma pondeli v lednu
Tzn. ze tyden, ktery uz ma cislo napr. 53 z minuleho roku neni 1.
tyden noveho roku. 1. je az 1. cely tyden
> Zdrav�m Delphiky,
>
> M�m probl�m - pot�ebuji z roku a ��sla t�dne vr�tit datumy PO a NE toho
> zadan�ho t�dne.
>
> P�. rok 2001 a t�den 50 = 10.12.2001 - 16.12.2001 pro CZ
>
> Ne�e�il jste to ji� n�kdo?
> Nelezl jsem rozd�l v ��slovan� pro �esk� a nap�. n�meck� kalend߰.
> Jsou n�jak� pravidla pro ��sla t�dne?
> Pro� n�kdy za��n� �. 1 a n�kdy 2 ?
>
>
> D�kuji za cokoli Jan �ebesta
>
>
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
IB:Error-handling v SP
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 11.12.2001 10:32:04
Ahoj,
mam ulozenou proceduru napr.pro insertovani do tabulky. Tabulka je pres
foreign key svazana s jinou tabulkou. Porusim-li podminky tohoto foreign key
nastava chyba, procedura konci, a jsem oblazen chybovou hlaskou. Dobre,
pomoci konstrukce WHEN ANY DO zachytim tuto vyjimku. No a ja bych potreboval
cislo chyby (dle IB/FB) dostat do vystupniho parametru ulozene procedury
coby informaci pro klientskou aplikaci s jakym vysledkem ulozena procedura
skoncila. Nevite nekdo prosim jak na to? Nevim jak ziskat ten chybovy kod v
ramci ulozene procedury.
diky
PavelC
Prevod cisla tydne
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 11.12.2001 10:42:29
> M�m probl�m - pot�ebuji z roku a ��sla t�dne vr�tit datumy PO a NE toho
> zadan�ho t�dne.
>
> P�. rok 2001 a t�den 50 = 10.12.2001 - 16.12.2001 pro CZ
>
> Ne�e#il jste to ji� n�kdo?
> Nelezl jsem rozd�l v ��slovan� pro �esk� a nap�. n�meck� kalend߰.
> Jsou n�jak� pravidla pro ��sla t�dne?
> Pro� n�kdy za��n� �. 1 a n�kdy 2 ?
>
Kalendar si kazdy muze vytisknout jak chce, pokud to chces mit dle normy
ISO 8601, tak prvni tyden roku je tusim ten, ve kterem je prvni ctvrtek
roku (obsahuje tedy aspon jeden pracovni den) ... Resili to tusim rytiri JEDI v JCL:
function ISOWeekToDateTime(const Year, Week, Day: Integer): TDateTime;
Parameters
Year
base-year of the ISO-week.
Week
ISO week of the year.
Day
Day in the week (1=Monday, ... 7=Sunday).
Return Values
The function returns the TDateTime value of the specified day
Notes
The specified date is assumed to be after 1/1/0001 and before 1/1/10000).
According to ISO 8601 the reference year for the week can be the same as in
DateTime, the previous or the next year.
The constants ISOFirstWeekDay=2 and ISOFirstWeekMinDays=4 are defined for
ISO compatibility, Other values might be useful in some instances and can
be set in the source code.
Quick Info
Unit: JclDateTime
T.
Pojmenovan� sloupc� tabulky za b�hu
[*] Horcicka Petr <Petr.Horcicka(zv)mafra(tec)cz> - 11.12.2001 11:03:50
Ahoj,
pot�eboval bych poradit. D� se n�jak�m zp�sobem m�nit n�zvy sloupc� v tabulce 'DBGRID' za b�hu.Pou��v�m jednu tabulku pro v�ce SQL dotaz� a cht�l bych m�nit n�zvy a velikost sloupc� podle p�edem nastaven�ch hodnot p�ed ka�d�m SQL dotazem.
P�edem d�kuji za ka�dou radu.
S pozdravem
Petr Hor�i�ka
Administr�tor
D6,NT4,Oracle8i
preco mi nejde SendMessage ? ZHRUBA VYRIESENE
[*] Slavom�r �eke# - 11.12.2001 11:06:26
Zdravim ...
neviem cim to je, mozno tym, ze SendMessage caka na vykonanie, ale ked
som nahradil SendMessage funkciou PostMessage, tak vsetko zacalo
fungovat.
Takze teraz pouzivam PostMessage a je to v pohode :)
Slavo
-----Original Message-----
From: brant(zv)dcomm(tec)cz [mailto:brant(zv)dcomm(tec)cz]
Sent: Tuesday, December 11, 2001 10:17 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: preco mi nejde SendMessage ?
Jestli nemas spatne syntaxi, ja to delam takto a bez problemu:
v sekci private napisu:
procedure HandleMessage(var Msg: TMessage); message WM_USER + 100;
a potom v implementation:
procedure TForm1.HandleMessage(var Msg: TMessage);
begin
... nejaka akce
end;
A jako parametr v SendMessage pouzivam handle okna, tj.
SendMessage(Form1.Handle, ...);
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
testujem si SendMessage ... a nejde mi .... opisem situaciu:
Mam aplikaciu a chcem (koli testu) sam sebe poslat Message. Skusal som
posielat na Handle Okna aj na Handle Aplikacie a NIC, kde mam chybu ?
procedure TForm1.Button2Click(Sender: TObject);
const My_Message = WM_USER + 100;
begin
SendMessage(Form1.Handle,My_Message,12,10);
// SendMessage(Application.Handle,My_Message,12,10);
end;
{tato procedurka reaguje na vsetko okrem MOJEJ MESSAGE, preco ?}
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_USER + 100 then
Form1.Caption := IntToStr(Msg.wParam);
end;
end
Mozno spravu posielam na zle Handle, mozno treba nejako prepojit
ApplicationEvents komponentu s Form .... no neviem ako ... poradte ...uvolnovanie pama(e)te
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 11.12.2001 11:23:32
Cau Pavle,
rozhodne bych i doporucil upgrade FF na 2.05 a pote docasny beta patch
2.05.02. Koncem prosince by mela byt k dispozici 2.06. V techto verzich je
FF opravdu dabelsky stabilni!
Cau Mira Ondrisek
BONNEL TECHNOLOGIE
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavel ZIDEK
> Sent: Tuesday, December 11, 2001 8:35 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: uvolnovanie pama(e)te
>
>
> Zdravim,
> nevim co mas povesene na CTRL+F2, ale s FF 2.00 (FlashFiler) se mi taky
> stava, ze po ukonceni aplikace nekde neco visi. Vinu ale hazim na sebe,
> ponevac jeste neznam vsechny zakonitosti s DB (konkretne s FF2).
> Pavel ZIDEK
Ako na PHP > IB/FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.12.2001 11:39:08
Haj hou!
On 10 Dec 2001, at 9:45, Roland Turcan wrote:
> Potreboval by som informacie ohladne PHP vs, IB/FB, lebo sme zaukolovali
> jedneho mladeho muza a ma v tom nejasnosti. Kde na inete najde nieco ohladne
> pripojenia, prace s transakciami, priklady ?
www.php.org
www.php(tec)cz
mozna i www.php.sk
Dobry clanek o PHP+Apache+IB/FB je i na
www.interbase2000.org
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
uvolnovanie pama(e)te
[*] Martin Nedopil <nedopil(zv)yahoo(tec)com> - 11.12.2001 02:42:10 -0800 (pst)
>Neprobehne OnClose, OnDestroy formularu, neprovedou
>se destruktory pouzitych komponent.
To sice neprobehne, ale Windows se urcite dovi, ze
byla ukoncena aplikace a neni prec takovy problem
projit vsechny handles a podivat se jestli nahodou
nepatrily k prave ukoncene aplikaci.
Takze soubory otevreny nezustanou (jen ty sitove), ale
DB server se o ukonceni klienta dovi. Socket je dtto
taky soubor a navic TCP/IP ma takovou moznost, zjisti,
ze se ze socketu neda cist.
Z vlastni zkusenosti: Delal jsem aplikaci, ktera
poustela cizi EXE (ten pak, podle vetru, sam skoncil).
Pracoval jsem tehdy na Win98SE a tam i po tydnu vse
fungovalo. Na NT4 se do tri dnu rozsypal cely server.
Az po dlouhe dobe jsem zjistil pribyvani handlu. A po
mnohem delsi dobe jsem zjistil nasledujici - fce
CreateProcess vraci hProcess a hThread. Ten prvni jsem
uvolnoval, druhy ne. Nevedel jsem o tom. Tak handly
narustaly az ucpaly cely server. Ale Win98 se to
netykalo, tem to vubec nevadilo. No, a pak se v tom
vyznejte.
Martin
__________________________________________________
Do You Yahoo!?
Check out Yahoo! Shopping and Yahoo! Auctions for all of
your unique holiday gifts! Buy at http://shopping.yahoo.com
or bid at http://auctions.yahoo.com
SpeedButton
[*] Slavom�r �eke# - 11.12.2001 11:46:45
Preco v Delphi5 nefunguje toto:
SpeedButton1.Down := not SpeedButton1.Down;
Slavo