Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Ukonceni aplikace pri startu
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 22.1.2001 13:12:37
Dobry den,
potreboval bych poradit jak vyresit nasledujici problemek.
Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
Muzete mi prosim poradit jak zrusit to bliknuti?
S pozdravem,
Petr Reichl
CoolForm a Mask
[*] milan_2(zv)sose-sou(tec)cz - 22.1.2001 13:22:10
FROM BRANT(zv)DCOMM.CZ
>Nakreslil jsem si
>tehdy z tlustsich car prasatko, pouzil tu komponentu a skrz pruhledne telo
>prasatka slo v pohode treba kliknout na ikonu apod. Kolegove z C++ bledli
>zavisti, jak se da neco udelat bez jedine radky kodu :-)))
>RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
Vy doktori jste byli vzdycky koumaci ... :)))
ale abys mi rekl, co delam spatne, to ne :)
Patrne delam neco spatne, ale netusim co. Pri tvorbe te masky se mi
mrcha nechce vytvorit ten soubor ... fakt netusim, cim to :( Mam relativne
silnou masinu (Celer 600, 128MB RAM), coz by melo zarucit vytvoreni nejake
masky maximalne do sekundy (to by musela bejt bitmapa jak krava). No a cekam
treba i 5 sec a porad nic :((( Cim to ? Pouzivam D3.
.... Milan
=============
Milan S.
Informacni technologie
SOSE-SOU Usti n/L
CoolForm a Mask
[*] milan_2(zv)sose-sou(tec)cz - 22.1.2001 13:27:44
>Nevim odkud si tu komponentu stahnul, ale jestli si dobre pamatuju, tak se
>nejdriv musela z te bitmapy vytvorit maska a priklad tam na to byl i se
>zdrojakem a ukazkovou bitmapou.
>
>Roman
Jo, to jsem si vsiml, ze tam je demicko ....
jenze co jsem z popisu komponenty pochopil, tak spustenej formular bude
vypadat treba jako cernej kun, kdyz na nej polozim bitmapu cerneho kone na
bilem pozadi a bilou barvu dam jako transparentni ....
... jenze to demo vyopada tak, ze je tam sice jakasi zenska, okolo ktere
je neviditelna transparentni barva, ale formular jako takovej zachovava
obdelnikovej tvar .... takze z toho vyleze sedej obdelnik a v nem pekna
zenska ... coz je mi naprd:((( Potreboval bych, aby z toho vylezla pekna
zenska, okolo ktere by byla napriklad jen pracovni plocha meho kompu !
Heeeelp me someone, thanx.
MIlan
=============
Milan S.
Informacni technologie
SOSE-SOU Usti n/L
MS SQL7.0 - Grant a Deny
[*] Ren� Otisk - 22.1.2001 13:49:27
Hi,
Diky tem novym zakonum na ochranu osobnosti musim vyresit nasledujici
problem. Pro nekoho chci, aby byla videt jen vybrana data (treba RC) a
nekomu to chci zakazat, ale aby to nebylo videt, ale blbecek mi rve, ze
nemam pristup na celou tabulku. Prece pro kazdou roli nebudu mit vlastni
view? Nebo japa se to resi?
Sroub
Registry
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 22.1.2001 14:35:37
Zdravim,
dneska jsem se poprve pustil do registru. Celkem mi to slo, az na jednu vec:
Reg.CreateKey('DBF.DatView');
Reg.OpenKey('\DBF.DatView',True);
Reg.CreateKey('DefaultIcon');
Reg.OpenKey('\DBF.DatView\DefaultIcon',True);
Reg.WriteString('',Application.ExeName+',0');
Reg.OpenKey('\DBF.DatView',True);
Reg.CreateKey('shell');
Reg.OpenKey('\DBF.DatView\shell',True);
Reg.CreateKey('open');
Reg.OpenKey('\DBF.DatView\shell\open',True);
Reg.CreateKey('command');
Reg.OpenKey('\DBF.DatView\shell\open\command',True);
Reg.WriteString('',Application.ExeName+' %1');
Tohle vsechno funguje, ale to co je dal, uz nefunguje.
Muzete mi prosim nekdo rict proc?
Reg.OpenKey('\.DBF',True);
Asociace:=Reg.ReadString('');
Reg.DeleteValue('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
Reg.Free;
S pozdravem
Mirek Drejcek.
Cteni z adres
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 22.1.2001 14:43:50
Dobr� den,
chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
mam nasledujici kod, ktery ovsem vyvola Access violation
var pcislo : ^word;
cislo : Word;
begin
pcislo := Ptr($294);
cislo := pcislo^;
label5.caption := IntToStr(cislo);
end;
Nevite nekdo, jak se podivat na tuhle I/O adresu ?
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
Ukonceni aplikace pri startu
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 22.1.2001 14:50:27
A co treba to okno zmensit na minimum ? Treba na velikost 1x1 pixel a v
pripade, ze se pusti - zvetsis ho. Nebo to okno spoustej minimalizivane :)
Zkus a uvidis, co to udela.
Batex
----- Original Message -----
From: "Petr Reichl" <p.reichl(zv)gmc.net>
To: "ListServ - Delphi (el. adresa)" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 22, 2001 1:12 PM
Subject: Ukonceni aplikace pri startu
> Dobry den,
>
> potreboval bych poradit jak vyresit nasledujici problemek.
>
> Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
> ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
> stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
> Muzete mi prosim poradit jak zrusit to bliknuti?
>
> S pozdravem,
>
> Petr Reichl
TTable komponenta versus SQL server 2000 (microsof
[*] mms(zv)host.sk - 22.1.2001 14:54:08
Ajhoj,
ked pouzivas CacheUpdate tak vsetky zmeny su kladabne do cache. Post tlacitko
ich automaticky neuklada. Preto musis asi zavolat metodu ApplyUpdate niekde v
udalosti before alebo afterpost tabulky
M.Mrazik
Ukonceni aplikace pri startu
[*] Ing. Jir� Vojtek <j vojtek(zv)del(tec)cz> - 22.1.2001 15:02:53
Co treba
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;
end;
S pozdravem Jiri Vojtek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Reichl
Sent: Monday, January 22, 2001 1:13 PM
To: ListServ - Delphi (el. adresa)
Subject: Ukonceni aplikace pri startu
Dobry den,
potreboval bych poradit jak vyresit nasledujici problemek.
Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
Muzete mi prosim poradit jak zrusit to bliknuti?
S pozdravem,
Petr Reichl
Ukonceni aplikace pri startu
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 22.1.2001 15:05:56
Dal bych tu kontrolu do *.dpr pred Application.Run;
(Delphi>Menu>Project>View Source)
A pokud se nema spustit, tak Halt;
Michal Tiller;
-----Original Message-----
From: Petr Reichl [mailto:p.reichl(zv)gmc.net]
Sent: Monday, January 22, 2001 1:13 PM
To: ListServ - Delphi (el. adresa)
Subject: Ukonceni aplikace pri startu
Dobry den,
potreboval bych poradit jak vyresit nasledujici problemek.
Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
Muzete mi prosim poradit jak zrusit to bliknuti?
S pozdravem,
Petr Reichl
Ukonceni aplikace pri startu
[*] Ji�� Ko�ara - 22.1.2001 15:06:24
Obsluzte si to v udalosti OnCreate
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Reichl
Sent: 22. ledna 2001 13:13
To: ListServ - Delphi (el. adresa)
Subject: Ukonceni aplikace pri startu
Dobry den,
potreboval bych poradit jak vyresit nasledujici problemek.
Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
Muzete mi prosim poradit jak zrusit to bliknuti?
S pozdravem,
Petr Reichl
Ukonceni aplikace pri startu
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 22.1.2001 15:22:58
Dobr� den,
22. ledna 2001, 13:12:37, napsal jste:
PR> Dobry den,
PR> potreboval bych poradit jak vyresit nasledujici problemek.
PR> Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
PR> ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
PR> stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
PR> Muzete mi prosim poradit jak zrusit to bliknuti?
PR> S pozdravem,
PR> Petr Reichl
Co takhle ten test nedavat do onShow ale primo do souboru .dpr ? Pred
vsechny app..
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
Ukonceni aplikace pri startu
[*] brant(zv)dcomm(tec)cz - 22.1.2001 15:39:25
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ja to delam tak, ze zasahnu do souboru DPR, napriklad:
program SecretPost;
uses
Forms, Controls, windows,
ScPostMainWnd in 'ScPostMainWnd.pas' {SecretRabbitPostWnd},
PasswordWnd in 'PasswordWnd.pas' {EnterPasswordWnd};
{$R *.RES}
function IsPasswordCorrect(Passw: string):boolean;
begin
Result:=false;
if Passw =........ then Result:=true;
end;
begin
Application.Initialize;
EnterPasswordWnd:=TEnterPasswordWnd.Create(nil);
if EnterPasswordWnd.ShowModal = mrOK then
begin
if IsPasswordCorrect(EnterPasswordWnd.PasswEd.Text) then
begin
EnterPasswordWnd.free;
Application.Title := ........
Application.CreateForm(TSecretRabbitPostWnd, SecretRabbitPostWnd);
Application.Run;
end else
begin
Application.MessageBox('Nespr�vn� heslo, program nebude spusten!',
'Upozornen�', MB ICONSTOP);
EnterPasswordWnd.free;
end;
end;
end.
-----Original Message-----
From: Petr Reichl [mailto:p.reichl(zv)gmc.net]
Sent: Monday, January 22, 2001 1:13 PM
To: ListServ - Delphi (el. adresa)
Subject: Ukonceni aplikace pri startu
Dobry den,
potreboval bych poradit jak vyresit nasledujici problemek.
Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
Muzete mi prosim poradit jak zrusit to bliknuti?
S pozdravem,
Petr Reichl
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.225 / Virov� b�ze: 107 - datum vyd�n�: 22.12.2000
Soubory v adresari
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 22.1.2001 15:46:32
Cau,
potreboval bych radu ohledne zjisteni souboru ve specifikovanem adresari. Potreboval bych to v nejaky prehledny forme napr StringList. A nesmi to byt funkce FindFirst/FindNext, nechodi to na Novelu :(
Dik Ladap
Ukonceni aplikace pri startu
[*] iko <iko(zv)kamarad(tec)cz> - 22.1.2001 15:51:15
Treba si to zistovat ci sa ma spustit nie v oncreate ani onshow, ale v
zdoji projektu, tam kde je application.run. Ak nechces aby sa spustila, tak
mozes preskocit vytvaranie formularov a aj application.run.
At 13:12 22.1.2001, you wrote:
>Dobry den,
>
>potreboval bych poradit jak vyresit nasledujici problemek.
>
>Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
>ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
>stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
>Muzete mi prosim poradit jak zrusit to bliknuti?
>
>S pozdravem,
>
>Petr Reichl
--
...uveznite ma, pretoze som predstieral ze som muz...CoolForm a Mask
[*] brant(zv)dcomm(tec)cz - 22.1.2001 15:55:10
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Zcela urcite je to tak, ze je tam ta zenska a obdelnik toho okna tam opravdu
NENI. Kdyz jsem to ukazoval kolegum z C++, tak si pamatuju, jak byli u
vytrzeni, kdyz se dalo vedle te zenske kliknou na ikonu... Chyba je urcite
u tebe. Bohuzel tady tu komponentu nemam, kdyz tak mi ji posli na soukromy
mail a rad si s tim pohraju. Ale ve stredu a ve ctvrtek jsem v Belohrade,
takze radsi co nejdrive.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7 >Nevim odkud si tu komponentu stahnul, ale jestli si dobre pamatuju, tak se
>nejdriv musela z te bitmapy vytvorit maska a priklad tam na to byl i se
>zdrojakem a ukazkovou bitmapou.
>
>Roman
Jo, to jsem si vsiml, ze tam je demicko ....
jenze co jsem z popisu komponenty pochopil, tak spustenej formular bude
vypadat treba jako cernej kun, kdyz na nej polozim bitmapu cerneho kone na
bilem pozadi a bilou barvu dam jako transparentni ....
... jenze to demo vyopada tak, ze je tam sice jakasi zenska, okolo ktere
je neviditelna transparentni barva, ale formular jako takovej zachovava
obdelnikovej tvar .... takze z toho vyleze sedej obdelnik a v nem pekna
zenska ... coz je mi naprd:((( Potreboval bych, aby z toho vylezla pekna
zenska, okolo ktere by byla napriklad jen pracovni plocha meho kompu !
Heeeelp me someone, thanx.
MIlan
=============
Milan S.
Informacni technologie
SOSE-SOU Usti n/L
---
CoolForm a Mask
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 22.1.2001 16:10:55
> ... jenze to demo vyopada tak, ze je tam sice jakasi zenska, okolo ktere
> je neviditelna transparentni barva, ale formular jako takovej zachovava
> obdelnikovej tvar .... takze z toho vyleze sedej obdelnik
z ceho vyleze sedej obdelnik ? obavam se, ze ti moc nerozumim. prece kolem
te zenske neni nic jen plocha...
> zenska ... coz je mi naprd:((( Potreboval bych, aby z toho vylezla pekna
> zenska, okolo ktere by byla napriklad jen pracovni plocha meho kompu !
a co prosimte kolem te zenske mas ? ja tam mam teda plochu....
hotovy vysledek ti klidne poslu :)) opravdu funguje.
Batex
>
> Heeeelp me someone, thanx.
>
> MIlan
> =============
> Milan S.
> Informacni technologie
> SOSE-SOU Usti n/L
Registry
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 22.1.2001 16:14:43
S vestami v Registroch mozes pracovat iba s absolutnou cestou. :-(. Mozes
sice otvorit kluc o uroven vyzsie ale to je vsetko.
Takze musis pouzit CloseKey. a do OpenKey napisat cestu od zaciaktu kluca.
TRegisrty nepozna prikaz o uroven vyzsie, musis si ho doprogramovat ak ho
chces pouzivat.
Pavol Kakacka
kasix(zv)atlas(tec)cz
>Zdravim,
>dneska jsem se poprve pustil do registru. Celkem mi to slo, az na jednu
vec:
>Reg.CreateKey('DBF.DatView');
>Reg.OpenKey('\DBF.DatView',True);
** Ked volas OpenKey tak to True znamena ze ho vytvori ak neexistuje, cize
tu Createkey nemusis volat.
>Reg.CreateKey('DefaultIcon');
>Reg.OpenKey('\DBF.DatView\DefaultIcon',True);
Reg.WriteString('',Application.ExeName+',0');
Reg.OpenKey('\DBF.DatView',True);
Reg.CreateKey('shell');
Reg.OpenKey('\DBF.DatView\shell',True);
** tu to iste a vsade inde podobne.
>Reg.CreateKey('open');
>Reg.OpenKey('\DBF.DatView\shell\open',True);
Reg.CreateKey('command');
Reg.OpenKey('\DBF.DatView\shell\open\command',True);
Reg.WriteString('',Application.ExeName+' %1');
Tohle vsechno funguje, ale to co je dal, uz nefunguje.
Muzete mi prosim nekdo rict proc?
Reg.OpenKey('\.DBF',True);
Asociace:=Reg.ReadString('');
Reg.DeleteValue('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
Reg.Free;
S pozdravem
Mirek Drejcek.CASE nastroj
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 22.1.2001 16:45:59
Jo jo, presne to jsem potreboval. Neco kde bych mohl navrhnout
objekty pro aplikaci. Tj. UML (ci zjednodusene objektove
orientovany navrh) Jak se rika nepotrebuji na vrabce kanon
(Rational Rose atd, za statisice). Ale na to Case Studio se
podivam, vypada to dost zajimave.
Diky a hezky den
| -----Original Message-----
| From: Radim Kunz [mailto:privat(zv)casestudio.com]
| Sent: Monday, January 22, 2001 4:13 PM
| To: Delphi
| Subject: Re: CASE nastroj
|
|
| > Zdravim vsechny,
| >
| > a mam dotazek. Postupne prichazim na to, ze bez dobre
analyzy
| > neni mozne dobre udelat aplikaci, a hlavne ji potom dale
| > udrzovat. Takze moje otazka zni, jake nastroje pouzivate
(pokud
| > to neni tajne) a pripadne nejaky dobry tip.
| >
| > Zatim by mi stacil uplne jednoduchy nastroj, kde bych mohl
| > sledovat vyvoj, tj. navrh trid a jejich vazeb. Pokud o necem
| > takovem vite tak vas prosim o zaslani adresy ke stazeni.
Jestli
| > to navic bude free (treba omezenim jen na 5 trid) tim lip.
| >
| > Uspesny den a at se vam dari
| >
| >
| > *****************
| > Libor Stujan
| > listuj(zv)centrum(tec)cz
|
| Jak vidim, tak ti vsichni doporucili moje CASE Studio. :-)))
| Je to na http://www.casestudio.com/rksoft
|
| Ale pokud dobre chapu tvuj mail, chces nejaky objektovy,
| s podporou UML.
| Podivej se tady.
| http://www.objectsbydesign.com/tools/umltools_byCompany.html
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Ukonceni aplikace pri startu
[*] Petr Vales <delphipetr(zv)infoware(tec)cz> - 22.1.2001 17:19:55
Nejsem si vubec jist, ale nestaci mit toto hlavni okno Visible=False ?
P.
----- Original Message -----
From: "Petr Reichl" <p.reichl(zv)gmc.net>
To: "ListServ - Delphi (el. adresa)" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 22, 2001 1:12 PM
Subject: Ukonceni aplikace pri startu
> Dobry den,
>
> potreboval bych poradit jak vyresit nasledujici problemek.
>
> Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
> ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
> stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
> Muzete mi prosim poradit jak zrusit to bliknuti?
>
> S pozdravem,
>
> Petr Reichl
Ukonceni aplikace pri startu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 22.1.2001 17:23:23
Ja to mam takhle:
begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
if (InstanceType = itSingle) and (frmMain.State = mfsSuccess) then
begin
frmMain.Show;
Application.Run;
end;
end.
Ty dve promenne si nastavuji v OnCreate hlavniho formulare.
Petr Reichl wrote:
>
> Dobry den,
>
> potreboval bych poradit jak vyresit nasledujici problemek.
>
> Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
> ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
> stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
> Muzete mi prosim poradit jak zrusit to bliknuti?
>
> S pozdravem,
>
> Petr Reichl
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Soubory v adresari
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 22.1.2001 17:27:57
TFileListBox v palette 'Win3.1'.
Staci nastavit Directory a je to.
Oskouseno i na Novelu.
Michal Tiller
-----Original Message-----
From: Parizsky Ladislav [mailto:parizsky(zv)access-it(tec)cz]
Sent: Monday, January 22, 2001 3:47 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Soubory v adresari
Cau,
potreboval bych radu ohledne zjisteni souboru ve specifikovanem adresari.
Potreboval bych to v nejaky prehledny forme napr StringList. A nesmi to byt
funkce FindFirst/FindNext, nechodi to na Novelu :(
Dik Ladap
Cteni z adres
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 22.1.2001 17:37:48
> chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
> otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
> docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
> mam nasledujici kod, ktery ovsem vyvola Access violation
>
>var pcislo : ^word;
> cislo : Word;
>begin
> pcislo := Ptr($294);
> cislo := pcislo^;
> label5.caption := IntToStr(cislo);
>end;
>
> Nevite nekdo, jak se podivat na tuhle I/O adresu ?
Ahoj,
urcite Ta zrusili wydli... Mozno je to somarina, ale na svedomi to moze mat
jadro systemu "kernell32.dll" a nedovoli Ti robit ce chces. Zaujima aj mna
riesenie, ja by som to skusil na Win9x nejako takto:
...
uses
TLHelp32;
...
function FindProcessID(ModuleName: String): DWORD;
var
SnapProcHandle: THandle;
ProcessEntry: TProcessEntry32;
Next: Boolean;
begin
Result := 0;
SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapProcHandle <> THandle(-1) then
begin
ProcessEntry.dwSize := Sizeof(ProcessEntry);
Next := Process32First(SnapProcHandle, ProcessEntry);
while Next do
begin
if AnsiLowerCase(ExtractFileName(ProcessEntry.szExeFile)) =
AnsiLowerCase(ModuleName) then
Result := ProcessEntry.th32ProcessID;
Next := Process32Next(SnapProcHandle, ProcessEntry);
end;
CloseHandle(SnapProcHandle);
end;
end;
...
var
CodeFounded: packed array [1..4] of Byte;
...
procedure XY;
var
ProcID: THandle;
NR: DWORD;
Const
FAddress: DWORD = $00000294;
begin
ProcID := FindProcessID('kernell32.dll');
FProcess := OpenProcess(PROCESS_VM_READ, TRUE, ProcID);
if FProcess = 0 then
RaiseLastWin32Error
else
begin
ReadProcessMemory(FProcess, FAddress, (zv)CodeFounded,
Sizeof(CodeFounded), NR);
end;
Win32Check(CloseHandle(FProcess));
end;
a s nacitanym "CodeFounded" urob co chces
Ak ma niekto rozumnejsi napad a mylim sa, sem s nim :-D
Jano
>
>--
>S pozdravem,
> Raul
> raul(zv)raphael(tec)cz
>
>
kopirovanie suboru
[*] Tom� Hol� - 22.1.2001 17:46:59
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
v RX library je funkce CopyFIle
funguje v pohode a pak bude asi neco v API, ale to neumim pouzit
TH
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, January 22, 2001 10:33 AM
Subject: kopirovanie suboru
ako mozem v D5 s kodu kopirovat subor ?
Martin
Cteni z adres
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 18:06:06
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
> chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
> otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
> docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
Ahoj,
to jsou ovsem adresy I/O portu a ne adresy ve virtualnim pametovem prostoru
procesu. Ve Windows potrebujes pro pristup k I/O adresam specialni driver (ve
Win9x to sice na prvni pohled lze delat i bez driveru, avsak vysledky budou
prinejmensim rozporuplne). Vice se dozvis treba tady:
http://www.efg2.com/Lab/Library/Delphi/IO/PortIO.htm
Mimochodem, u boardu na CD vetsinou byva aplikace, ktera umi tyto informace
precist.
Petr Vones, amatersky programator
pomala aplikace v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 18:12:56
From: "RNDr. Milan Vor�sek" <vorisek(zv)igtt(tec)cz>
> kdyz spustim aplikaci z IDE, probiha viditelne pomaleji
> a kdyz se ji pokusim ukoncit nebo jen prerusit, vse zatuhne
> a jsem schopny jen shodit Delphi.
> Kdyz tuto aplikaci spustim samostatne, je vse O.K.
Ahoj,
za prve, mas instalovan Update Pack #1 na D5 ? Nemas nainstalovany nejaky
rezidentni antivir ? Pouzivas nejake dalsi komponenty krom tech, ktere jsou
standartne dodavane s Delphi (RxLib apod.) ?
Petr Vones, amatersky programator
IB: Linux, Superserver a omezeni pristupu
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 22.1.2001 19:21:19
Ahoj,
jde nejak pri pouziti IB SuperServer na Linuxu nastavit omezeni
na adresy pocitacu pristupujicich k Interbase ?
Hosts.allow nefunguje (na SuperServer), nebot se nestartuje pres inetd,
zadny soubor k nastaveni jsem nenasel,
takze mne napada jen IP Firewall s ipchains.
Mate lepsi reseni ???
Diky
Leos
dpi momentky z videa
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.1.2001 19:32:01
Ahoj,
V nasom programe bezi zaznam z videokamery ktora snima stav vnutri potrubia
v samostatnom okne a obsluha v podla potreby stiskom klavesy vytvara
momentky, ktore sa ukladaju do databazy aj s casovymi udajmi.
Pouzivame na to kniznicu avicap32.dll. Na vytvorenie momentky pouzivame
funkcie capGrabFrame a capFileSaveDIB.
1. chcel by som sa opytat ake funkcie na to pouzivate
2. ako nastavit dpi ulozenej bitmapy? je mozne najako ovplyvnit velkost
ukladanej bitmapy?
Dik, Pavol Stolc
pstolc(zv)sc.sknet.sk
Jak zjistit, ze nejaka TControl byla odstranena?
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 22.1.2001 19:50:48
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Vytvoril jsem Componentu, ktera ma property Control: TControl
a pokud ji nastavim na nejakou Tcontrol (napr. nejaky panel) tu pak nekdo
(napr. ja) ostrani, nevim jak to ve sve komponente poznam. (Control = nill)
je samosebou False, Assigned(Control) je True (???), jak na to?
Za kazdou radu moc dekuji.
Michal Tiller
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" />
Nove ODBCe - blokove operacie
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 22.1.2001 20:17:34
A pujde to spustit?
Uz jsem se jednou ptal, ale asi to zapadlo. Stahoval jsem to 2x a
pokazde to bylo "corrupt file..."
Miroslav Novosad
mirnov(zv)atlas(tec)cz
----- Original Message -----
From: "Lubo Fule" <fule(zv)sct.sk>
To: "delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 22, 2001 11:02 AM
Subject: Nove ODBCe - blokove operacie
> Uz je na svete nova verzia ODBCe
(http://www.sct.sk/~fule/ODBCe/ODBCe.exe).
> Pribudla podpora blokovych operacii (insert, update a pod.), teda je
mozne
> napriklad "zainsertovat" viac riadkov naraz (podrobnosti v popis.txt -
> ParamsetSize, ParamsetIndex, ParamsetProcessing, ParamsetProcessed,
> ParamsetStatus, ParamsetIgnore).
>
> L.
>
>Cteni z adres
[*] Luk� Lou�ansk����#��#�o��#�� - 22.1.2001 21:23:48
Nazdar,
no fakt sorac, ale nezbytva mi nez se smat. To ses jiste odkojen Win
programovanim, zes v zivote nevidel zapis na port (tedy ne do adresoveho
prostoru)....
Opravdu teda nevim, nevim....
Ale abych se jen neposmival tady je jedna rada :
1) Skoukni stranky firem VIA,Intel,Sis,Ali - stahni co muzes o jejich south
bridge, SMBUs controller a north bridge (t.j. chipsety a radice SMBUs)
2) Skoukni stranky National semiconductor (LM75..LM80 hardware monitors),
Winbond (8338x hardware monitor) + fura dalsich
BTW Skoro vsechny tyhle hardware monitory sou pristupny pouze na SmBus
(omezena podpora ISA na budoucich deskach) - jinak na SMBus muzes jeste
najit :
EEPROM na SDRAM/EDO/RIMM DIMM modulech
EEPROM v PII/II Xeon
Nastaveni vsemoznych tuneru (Philips, (S3, ATI))
PLL clock generator na novych deskach -pracuje na tom i SoftFSB
+ dalsi vsemozny zarizeni
Pokud chces psat program opravdu pouze pro svuj MB tak ti staci udelat
podporu pouze na dany typ hardware monitoru (viz informace z Sissoft Sandra
2001 aj - treba HWInfo od M. Malika)
Opravdu bych, ale doporucoval seznamit se se zaklady spoluprace procesoru s
periferiemi (porty, pametovy prostor).
Potom zapis na porty pod Win9x (pod WinNT je potreba Ring0 driver) je
zalezitosti nejaky freeware dll.
Lukas L.Zmena MDI okna na modalni
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 22.1.2001 21:35:49
Moja aplikacia je pisana ako MDI, ale su niekedy stavy ked potrebujem okno
otvorit ako ShowModal.
Riesim to tym ze form ma nastavene formstyle na fsNormal a visible:=false.
Ak ho chcem otvorit ako MDI Child tak vykonam toto:
----------------------------------------------------------------------------
-----------------
if aktivneokno('frmUzivText')=0 then
begin
Application.CreateForm(TFrmUzivText,frmUzivText);
frmUzivText.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
frmUzivText.formstyle:=fsMDIChild;
end else begin
frmMain.mdichildren[aktivneokno('frmUzivText')-1].show;
frmMain.mdichildren[aktivneokno('frmUzivText')-1].windowstate:=wsNormal;
end;
----------------------------------------------------------------------------
------------------
pre uplnost este toto:
----------------------------------------------------------------------------
------------------
function AktivneOkno(xnazov:string):integer;
var xcislo:integer;
begin
Result:=0;
for xcislo:=frmMain.MDIChildCount-1 downto 0 do
begin
if uppercase(frmMain.mdichildren[xcislo].Name)=uppercase(xnazov)
then result:=xcislo+1;
end;
end;
----------------------------------------------------------------------------
------------------
ak chcem otvorit okno ako modal tak takto
-------------------------------------------------------------------
Application.CreateForm(TFrmUzivText,frmUzivText);
with frmUzivText do
begin
ShowModal;
FreeAndNil(frmUzivText);
end;
------------------------------------------------------------------
PS: Ale predpokladam ze v tvojom pripade okno pred zmenou uz nie je
vytvorene.
Roland.
----- Original Message -----
From: "Jan Kirchner" <imconr(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, January 20, 2001 11:35 PM
Subject: Zmena MDI okna na modalni
> Zdravim priznivce DELPHI.
>
> mam dotaz zda lze MDI okno zmenit na modalni a zpet.
> Potrebuji v jistem okamziku (v prubehu konunikace s RS-232) zajistit aby
> okno bylo modalni a po ukonceni komunikace je zase dat do normalniho
stavu.
> Po pravde receno nevim jak na to a prepnout okno na modalni asi nejde.
>
> Poradite mi nekdo?
>
> Diky
>
> J.Kirchner
>
>
>CoolForm a Mask
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 22.1.2001 21:44:40
> >Nevim odkud si tu komponentu stahnul, ale jestli si dobre pamatuju, tak se
> >nejdriv musela z te bitmapy vytvorit maska a priklad tam na to byl i se
> >zdrojakem a ukazkovou bitmapou.
> >
> >Roman
>
> Jo, to jsem si vsiml, ze tam je demicko ....
>
> jenze co jsem z popisu komponenty pochopil, tak spustenej formular bude
> vypadat treba jako cernej kun, kdyz na nej polozim bitmapu cerneho kone na
> bilem pozadi a bilou barvu dam jako transparentni ....
>
> ... jenze to demo vyopada tak, ze je tam sice jakasi zenska, okolo ktere
> je neviditelna transparentni barva, ale formular jako takovej zachovava
> obdelnikovej tvar .... takze z toho vyleze sedej obdelnik a v nem pekna
> zenska ... coz je mi naprd:((( Potreboval bych, aby z toho vylezla pekna
> zenska, okolo ktere by byla napriklad jen pracovni plocha meho kompu !
jooo, taky bych bral komponentu, ze ktery by vylezla pekna zenska... ;-))
hele, skoro to vypada, ze ti de o zivot :-), nedavno sem tu posilal tri kratke
procedury, ktery delaji to, co ta komponenta /vytvorit masku, ulozit, nahrat/,
tak ti je muzu poslat i s navodem /zdravim Darklogica ;-)/...
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Soubory v adresari
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 22:12:36
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> potreboval bych radu ohledne zjisteni souboru ve specifikovanem adresari.
Potreboval bych to v nejaky prehledny forme napr StringList. A nesmi to byt
funkce FindFirst/FindNext, nechodi to na Novelu :(
Ahoj,
obavam se, ze jinak nez pomoci uvedenych funkci to asi nepujde. Jinak v JCL
(http://delphi-jedi.org/Jedi:JCLDOWNLOADS) mas funkci BuildFileList, ktera
vysledek uklada prave do TStrings.
Petr Vones, amatersky programator
Dynamicka pole
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 22:25:58
From: "Ji�� Foldyna" <jiri.f(zv)avizo(tec)cz>
> narazil jsem v souvislosti s dynamickymi poli na problem s jejich predavanim
> odkazem, viz nasledujici fragment kodu.
Ahoj,
to je velmi zvlastni, jakou mas verzi Delphi ? Oba dva pripady, tedy Pokus2 a
Pokus2a by mely byt totozne (coz doklada i vysledny kod obou procedur, ktery
je naprosto stejny). Muzes se prosim podivat pomoci CPU okna jak se to
prelozi ? Me to funguje v D5.01 bez problemu.
Petr Vones, amatersky programator
Ukonceni aplikace pri startu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 22:30:28
From: "Petr Reichl" <p.reichl(zv)gmc.net>
> Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
> ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
> stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
> Muzete mi prosim poradit jak zrusit to bliknuti?
Ahoj,
procedure TForm1.FormCreate(Sender: TObject);
begin
if NECHCI_TO_SPUSTIT then
begin
Application.ShowMainForm := False;
Application.Terminate;
end;
end;
Petr Vones, amatersky programator
Debug in design time
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.1.2001 22:37:48
From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
> Je mozne abych mohl ladit (nastavit si break point) svou vlastni componentu,
> kdyz ji z tool boxu umistim na formular a menim si vlastnosti?
Ahoj,
ladeni kodu v design time mozne je. Otevri si balicek ve kterem mas svoji
komponentu, v Run | Parameters vyber jako Host Application Delphi IDE (tedy
soubor Delphi32.exe), zmackni Load a pak Run. Tim se ti spusti druhe IDE, kde
muzes vlozit komponentu, jejiz kod ladis v prvni instanci IDE. Toto funguje v
D5, v D4 jsou s tim pry problemy, navic je dobre mit stabilni OS (tedy WinNT)
Petr Vones, amatersky programator
TPrintDialog v Sinea generatori
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 23.1.2001 06:13:32
Caute
Zistil som tento "bug" :
Ked pouzivam v generatori TPrintDialog a linknem ho s Sestavou,
napriek tomu, ze mam nastaveny report, ziadny mi nezobrazuje...
Tlaciarne v combo mi nezobrazuje defaultnu nastavenu vo WinX, ale prvu v
poradi
podla abecedy...
Neviete co s tym?
Dakujem.
P.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Vones
> Sent: Monday, January 22, 2001 10:38 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Debug in design time
>
>
> From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
> > Je mozne abych mohl ladit (nastavit si break point) svou
> vlastni componentu,
> > kdyz ji z tool boxu umistim na formular a menim si vlastnosti?
>
> Ahoj,
>
> ladeni kodu v design time mozne je. Otevri si balicek ve kterem mas svoji
> komponentu, v Run | Parameters vyber jako Host Application Delphi
> IDE (tedy
> soubor Delphi32.exe), zmackni Load a pak Run. Tim se ti spusti
> druhe IDE, kde
> muzes vlozit komponentu, jejiz kod ladis v prvni instanci IDE.
> Toto funguje v
> D5, v D4 jsou s tim pry problemy, navic je dobre mit stabilni OS
> (tedy WinNT)
>
> Petr Vones, amatersky programator
>CASE nastroj
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 06:32:43
Pouze jeden problem. CaseStudio je nastroj pro datovou analyzu a datove
toky. Pro navrh trid a objektovou analyzu jsem se zatim s nicim levnym
nesetkal. Nastroje typu RationalCase, TeamWork jsou v cenach radu
stovek tisic. :-(
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.1.2001 M. Winkler :
> Ahoj,
> http://www.casestudio.com/rksoft
> M.Winkler
>> Zdravim vsechny,
>>
>> a mam dotazek. Postupne prichazim na to, ze bez dobre analyzy
>> neni mozne dobre udelat aplikaci, a hlavne ji potom dale
>> udrzovat. Takze moje otazka zni, jake nastroje pouzivate (pokud
>> to neni tajne) a pripadne nejaky dobry tip.
>>
>> Zatim by mi stacil uplne jednoduchy nastroj, kde bych mohl
>> sledovat vyvoj, tj. navrh trid a jejich vazeb. Pokud o necem
>> takovem vite tak vas prosim o zaslani adresy ke stazeni. Jestli
>> to navic bude free (treba omezenim jen na 5 trid) tim lip.
>>
>> Uspesny den a at se vam dari
>>
>>
>> *****************
>> Libor Stujan
>> listuj(zv)centrum(tec)cz
>> ^^^^^^^^^^^^^^^^^
>> SW development
>> ^^^^^^^^^^^^^^^^^
>> **************
>>
>> K chatov�n� je tu http://www.XChat(tec)cz
>> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
>>
Neprazdne premenne.
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 06:37:55
Spolehat se nato, ze JAKAKOLIV promenna, nadefinovana napr. ve formu
bude po vytvoreni napr. formu "vynulovana" je hazard.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.1.2001 Roland Turcan (RoTurSoft) :
> Zdravim.
> Vytvaram okno cez Application.CreateForm a v nom je definovany zaznam typu
> Record s roznymi typy poli. Pokial po FreeAndNil(Okno) okno uvolnim a
> nasledne ho potom vytvorim, stane sa ze premenne obsahuju data z minuleho
> pouzitia okna. Co s tym ? Mam stale pri vytvoreni zadavat
> with Zaznam do
> begin
> Cislo:=0;
> Text:='';
> ...
> end;> alebo existuje aj nejake rozumnejsie riesenie ?> Dakujem.
> roland.
Soubory v adresari
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 06:45:20
1. se mi nezda, ze by FindFirst nechodila na Novelu, zatim jsem s
tim zadne problemy nemel. Mozna delas neco spatne :-)
2. TFileListBox pri nacitani souboru pouziva FindFirst ...
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.1.2001 Michal Tiller :
> TFileListBox v palette 'Win3.1'.
> Staci nastavit Directory a je to.
> Oskouseno i na Novelu.
> Michal Tiller
> Cau,
> potreboval bych radu ohledne zjisteni souboru ve specifikovanem adresari.
> Potreboval bych to v nejaky prehledny forme napr StringList. A nesmi to byt
> funkce FindFirst/FindNext, nechodi to na Novelu :(
> Dik Ladap
MS SQL7.0 - Grant a Deny
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.1.2001 07:26:58
> Diky tem novym zakonum na ochranu osobnosti musim vyresit nasledujici
> problem. Pro nekoho chci, aby byla videt jen vybrana data (treba RC) a
> nekomu to chci zakazat, ale aby to nebylo videt, ale blbecek mi rve,
> ze nemam pristup na celou tabulku. Prece pro kazdou roli nebudu mit
> vlastni view? Nebo japa se to resi?
>
Ahoj,
podle informaci z knihy Microsoft SQL server 7.0 sice muzes
nekomu zakazat pristup k vybranym sloupcum dane tabulky,
ovsem pak se tento uzivatel na ty sloupce nesmi zkusit koukat - to
dostane chybovou hlasku. Navrhovana cesta je prave pres view.
Pokud SQL dotaz vytvaris v kodu, muzes prislusne sloupce ze
selectu odstranit nebo je treba delat jako vypocitavane s
retezcovou hodnotou prazdny retezec apod.
To ale asi neni to, co by Te potesilo.
David Lebeda
Nove ODBCe - blokove operacie
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.1.2001 07:29:14
> A pujde to spustit?
> Uz jsem se jednou ptal, ale asi to zapadlo. Stahoval jsem to 2x a
> pokazde to bylo "corrupt file..."
>
Uz jsem to dlouho nestahoval, ale nikdy jsem nemel problem.
Neverim, ze na serveru je soubor poskozeny.
David Lebeda
Jak zjistit, ze nejaka TControl byla odstranena?
[*] Ing. Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 23.1.2001 07:56:33
[P��loha v souboru: winmail.dat]
Ahoj,
ve sve komponente musis pouzit metodu Set pri setovani property Control
a dale je nutno predefinovat metodu Notification.
TMyComponent = class(TComponent)
private
fControl: TControl;
procedure SetControl( value: TControl);
public
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
published
property Control: TControl read fControl write SetControl;
end;
procedure TMyControl.Notification(AComponent: TComponent; Operation:
TOperation);
begin
inherited;
if AComponent = fControl then
if Operation = opRemove then
fControl := nil;
end;
procedure TMyControl.SetControl( value: TControl);
begin
fControl := value;
if value <> nil then
Value.FreeNotification(Self);
end;
S pozdravem
Jaroslav Sipek
e-mail: <mailto:jaroslav.sipek(zv)idea(tec)cz> jaroslav.sipek(zv)idea(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Michal Tiller
Sent: Monday, January 22, 2001 7:51 PM
To: Delphi Forum (E-mail)
Subject: Jak zjistit, ze nejaka TControl byla odstranena?
Vytvoril jsem Componentu, ktera ma property Control: TControl
a pokud ji nastavim na nejakou Tcontrol (napr. nejaky panel) tu pak nekdo
(napr. ja) ostrani, nevim jak to ve sve komponente poznam. (Control = nill)
je samosebou False, Assigned(Control) je True (???), jak na to?
Za kazdou radu moc dekuji.
Michal Tiller
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
Cteni z adres
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.1.2001 07:58:55
Zkus pouzit Motherboard monitor - je to ten nejlepsi program na monitorovani
nejen otacek ventilatoru, ale i teplot, frekvence CPU atp... a podporuje
ruzne chipy
Milan Tomes
Dobr� den,
chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
mam nasledujici kod, ktery ovsem vyvola Access violation
var pcislo : ^word;
cislo : Word;
begin
pcislo := Ptr($294);
cislo := pcislo^;
label5.caption := IntToStr(cislo);
end;
Nevite nekdo, jak se podivat na tuhle I/O adresu ?
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
CASE nastroj
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.1.2001 08:03:06
Na navrh datoveho modelu jsem zacal pouzivat PowerDesigner AppModeler od
Sybase. Vypada vcelku dobre, umi take reverzni engineering a podporuje
velkou spoustu databazi (jak zdrojovych tak cilovych)
Milan Tomes
Jo jo, presne to jsem potreboval. Neco kde bych mohl navrhnout
objekty pro aplikaci. Tj. UML (ci zjednodusene objektove
orientovany navrh) Jak se rika nepotrebuji na vrabce kanon
(Rational Rose atd, za statisice). Ale na to Case Studio se
podivam, vypada to dost zajimave.
Diky a hezky den
| > Zdravim vsechny,
| >
| > a mam dotazek. Postupne prichazim na to, ze bez dobre
analyzy
| > neni mozne dobre udelat aplikaci, a hlavne ji potom dale
| > udrzovat. Takze moje otazka zni, jake nastroje pouzivate
(pokud
| > to neni tajne) a pripadne nejaky dobry tip.
| >
| > Zatim by mi stacil uplne jednoduchy nastroj, kde bych mohl
| > sledovat vyvoj, tj. navrh trid a jejich vazeb. Pokud o necem
| > takovem vite tak vas prosim o zaslani adresy ke stazeni.
Jestli
| > to navic bude free (treba omezenim jen na 5 trid) tim lip.
| >
| > Uspesny den a at se vam dari
| >
| >
| > *****************
| > Libor Stujan
| > listuj(zv)centrum(tec)cz
|
| Jak vidim, tak ti vsichni doporucili moje CASE Studio. :-)))
| Je to na http://www.casestudio.com/rksoft
|
| Ale pokud dobre chapu tvuj mail, chces nejaky objektovy,
| s podporou UML.
| Podivej se tady.
| http://www.objectsbydesign.com/tools/umltools_byCompany.html
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
CoolForm a Mask
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 23.1.2001 08:05:57
Ahoj,
asi neco delas spatne:))) to je pravda. Prijd na www.astrafren(tec)cz/chat a
muzeme to probrat. Kdyz tam nebudu posli mi sms na 0608700114 :)) Zatim se
mej.
Batex
----- Original Message -----
From: <milan_2(zv)sose-sou(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 22, 2001 1:22 PM
Subject: Re(2x): CoolForm a Mask
> FROM BRANT(zv)DCOMM.CZ
> >Nakreslil jsem si
> >tehdy z tlustsich car prasatko, pouzil tu komponentu a skrz pruhledne
telo
> >prasatka slo v pohode treba kliknout na ikonu apod. Kolegove z C++ bledli
> >zavisti, jak se da neco udelat bez jedine radky kodu :-)))
> >RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
>
> Vy doktori jste byli vzdycky koumaci ... :)))
> ale abys mi rekl, co delam spatne, to ne :)
>
> Patrne delam neco spatne, ale netusim co. Pri tvorbe te masky se mi
> mrcha nechce vytvorit ten soubor ... fakt netusim, cim to :( Mam
relativne
> silnou masinu (Celer 600, 128MB RAM), coz by melo zarucit vytvoreni nejake
> masky maximalne do sekundy (to by musela bejt bitmapa jak krava). No a
cekam
> treba i 5 sec a porad nic :((( Cim to ? Pouzivam D3.
>
> .... Milan
>
>
>
>
> =============
> Milan S.
> Informacni technologie
> SOSE-SOU Usti n/L
IB: Linux, Superserver a omezeni pristupu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.1.2001 08:11:15
Haj hou!
On 22 Jan 2001,, Leos Urban wrote:
> jde nejak pri pouziti IB SuperServer na Linuxu nastavit omezeni
> na adresy pocitacu pristupujicich k Interbase ?
> Hosts.allow nefunguje (na SuperServer), nebot se nestartuje pres inetd,
> zadny soubor k nastaveni jsem nenasel,
> takze mne napada jen IP Firewall s ipchains.
> Mate lepsi reseni ???
Neni to sice uplne presne to co jsi chtel, ale z dotazu
predpokladam, ze ti jde o bezpecnost :-)
Tudiz doporucuji cerstvy clanek na toto tema na
http://www.ibphoenix.com/art_fb_security.html
(orientovano na Linux)
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.CoolForm a Mask
[*] milan_2(zv)sose-sou(tec)cz - 23.1.2001 8:21:56
>hele, skoro to vypada, ze ti de o zivot :-), nedavno sem tu posilal tri
>kratke
>procedury, ktery delaji to, co ta komponenta /vytvorit masku, ulozit,
>nahrat/,
>tak ti je muzu poslat i s navodem /zdravim Darklogica ;-)/...
>Roman
>OOOOOOOOOOOOOOOO
>O icq #84229702
>O sw.maurice(zv)cbox(tec)cz
>O http://kouzelne.misto(tec)cz
>OOOOOOOOOOOOOOOO
A to mi rikas az ted ? :)))
jasne ze to posli ... a s tim, jestli mi jde nebo nejde o zivot : No, da
se rici, ze ted uz ano :(
MIlan
=============
Bc.Mgr. Milan S.
SOSESOU UL
Registry II
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 23.1.2001 08:24:56
Zdravim,
diky za odpoved predesleho dotazu. Vyzkousel jsem to takto:
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY CLASSES ROOT;
Reg.OpenKey('\.DBF',True);
Znaky:=Reg.ReadString('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
Reg.Free;
a skoncilo to takto:
...ERegistryException with message 'Failed to set data for ''''...
Nevite prosim nekdo co s tim? Kdyz neco takoveho vykonam na jinem klici, tak to funguje.
S pozdravem
MIrek Drejcek.
Ukonceni aplikace pri startu
[*] milan_2(zv)sose-sou(tec)cz - 23.1.2001 8:25:12
>Dobry den,
>
>potreboval bych poradit jak vyresit nasledujici problemek.
>
>Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
>ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
>stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
>Muzete mi prosim poradit jak zrusit to bliknuti?
>S pozdravem,
>Petr Reichl
Zkus nastavit puvodni FORM na visible:=false a pokud se ma spustit tak do
ONSHOW dej visible:=true
.... je to jen napad z leku, nevyzkousenej ... ale zkusit to muzes ... je
to dvoje kliknuti mysi a jeden radek textu :))
S pozdravem MIlan
=============
Bc.Mgr. Milan S.
SOSESOU UL
Instalacia balika
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 23.1.2001 08:28:45
Ludia kto mi poradi ako skompilovat program ked mam subor baliku
WavRecpk5.bpl potom mam aj DCU subor ten sa vola wavrec.dcu, ktory je
skopirovany v adresaroch c:\Prog..\Borland\Delphi5\lib a je aj v adresary
c:\Prog..\Borland\Delphi5\lib\DEBUG. Samozrejme BPL subor je nainstalovany
ako balik komponenta je zobrazena v liste komponent ale ked dam vytvorit
(RUN program) program tak odo mna chce subor PAS. To sa bez neho sakra neda
?????? Kto mi poradi ma u mna PIVO :) Je to velmi surne DAKUJEM vopred.
S pozdravom,
------------------------------------------------
R�bert �u#ka, spr�vca siete
R�dio Lumen, Bansk� Bystrica
Slovensk� republika
www.lumen.sk
spravca(zv)lumen.sk
088/41 25 739 kl.14
------------------------------------------------
Neprazdne premenne.
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.1.2001 08:31:06
> Pokial po FreeAndNil(Okno) okno
> uvolnim a nasledne ho potom vytvorim, stane sa ze premenne obsahuju
> data z minuleho pouzitia okna. Co s tym ? Mam stale pri vytvoreni
> zadavat
>
> with Zaznam do
> begin
> Cislo:=0;
> Text:='';
> ...
> end;
Asi by bylo v tomto pripade jednodussi cely zaznam vynulovat pomoci
FillChar(Zaznam, sizeof(Zaznam), 0);
To, ze jsou tam data z minuleho okna, muze byt tak trosku nahoda,
obecne v tom zaznamu muze totiz byt cokoli, co zrovna bylo v tom
miste pameti predtim.
Karel Rys
Soubory v adresari
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.1.2001 08:32:16
> > potreboval bych radu ohledne zjisteni souboru ve specifikovanem
> > adresari. Potreboval bych to v nejaky prehledny forme napr
> > StringList. A nesmi to byt funkce FindFirst/FindNext, nechodi to na
> > Novelu :(
Na Novellu (5) chodi, vyzkouseno pod Windows 95/98, Novell Client
3.30.
Karel Rys
Help inverzn�
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 23.1.2001 08:50:13
Ahoj Delphici,
nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do souboru .rtf a
pripadne i .hpj. Potrebuji doplnit stavajici help ale mam jen .hlp.
Dik. Jara
CoolForm a Mask + detailni popis problemu :)
[*] milan_2(zv)sose-sou(tec)cz - 23.1.2001 8:50:06
Protoze se tu par lidi sice ozvalo a snazilo se resti muj problemek, ale
nejaxe jim nepodarilo rozkodovat, co jsem vlastne popsal, tak to popisu
jeste jednou.
Mam FORM 300x300
... na nej dam obrazek z DEMA, ktere bylo prilozene ke komponente (na bilem
pozadi 100x200 je vyfocena nejaka zenska).
CoolForm (to je ta komponenta, do ktere se vklada obrazek) dam na
ALLCLIENT ... na celou plochu 300x300 ...
Udelam masku a spustim.
Vysledek vypada nasledovne :
Zenska vypada sice dobre, bile pozadi za ni neni videt, ale okolo te
zenske je 300*300 obdelnik v barve clButtnFace (proste klasicka barva
nastavena ve vlastnostech WIndows pro vzhled-barvu schematu)
Pozadovany vysledek :
aby tam nebyl videt ten obdelnik 300x300, ale proste jenom ta
bitmapka a na pozadi by byla treba pracovni plocha WIN ci cokoli jineho ....
Dik za help
MIlan
=============
Bc.Mgr. Milan S.
SOSESOU UL
Dotaz na CreateParented
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.1.2001 08:51:28
[P��loha v souboru: Prefer.pas]
Zdravim vsechny ucastniky,
potreboval bych pomoc. Mam aplikaci resp. DLL, ktera v sobe obsahuje
formular. Tento formular vytvarim pomoci metody CreateParented (viz.
priloha) a ted ten problem: pokud se pri takto vytvorenem formulari prepnu
do jine aplikace a nasledne se chci prepnout zpet, tak se rizeni preda ne
tomuto formulari, ale aplikaci (tj. Paradoxu), ktery tento formular otevrel.
Nevite nahodou nekdo co s tim ??? Rad bych to mel takto, aby se to tvarilo
jako soucast paradoxu a ne jako externi aplikace.
Dekuji
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
PS: Je to opravdu velice dulezite a potreboval bych to rychle vyresit.Linux, Superserver a omezeni pristupu
[*] azeleny(zv)csas(tec)cz - 23.1.2001 09:18:35
> zadny soubor k nastaveni jsem nenasel,
> takze mne napada jen IP Firewall s ipchains.
> Mate lepsi reseni ???
Nenam a ipchains povazuji za tu spravnou volbu pro popsanou ulohu.
a.
-----------------------------------------------------------------------
Ale# Zelen� (OK1UUE)
#esk� spo�itelna a.s.
Na Per#t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely. Nove ODBCe - blokove operacie
[*] Ren� Otisk - 23.1.2001 09:24:18
Mam tutez zkusenost. Vzdy bez problemu...
Sroub
> > A pujde to spustit?
> > Uz jsem se jednou ptal, ale asi to zapadlo. Stahoval jsem to 2x a
> > pokazde to bylo "corrupt file..."
> >
> Uz jsem to dlouho nestahoval, ale nikdy jsem nemel problem.
> Neverim, ze na serveru je soubor poskozeny.
>
> David Lebeda
MS SQL7.0 - Grant a Deny
[*] Ren� Otisk - 23.1.2001 09:31:59
Nepotesilo. I blbej Paradox pokud si dobre pamatuji mel moznost grant/deny -
none, takze hodnoty daneho sloupce nebyly videt a slo z nej delat select...
Grrr... Takze uz zbyva jen flag v aplikaci a sifrovana pole v databasi?
Prece nemuzu menit view v sitovem provozu...
Sroub
> > Diky tem novym zakonum na ochranu osobnosti musim vyresit nasledujici
> > problem. Pro nekoho chci, aby byla videt jen vybrana data (treba RC) a
> > nekomu to chci zakazat, ale aby to nebylo videt, ale blbecek mi rve,
> > ze nemam pristup na celou tabulku. Prece pro kazdou roli nebudu mit
> > vlastni view? Nebo japa se to resi?
> >
>
> Ahoj,
>
> podle informaci z knihy Microsoft SQL server 7.0 sice muzes
> nekomu zakazat pristup k vybranym sloupcum dane tabulky,
> ovsem pak se tento uzivatel na ty sloupce nesmi zkusit koukat - to
> dostane chybovou hlasku. Navrhovana cesta je prave pres view.
> Pokud SQL dotaz vytvaris v kodu, muzes prislusne sloupce ze
> selectu odstranit nebo je treba delat jako vypocitavane s
> retezcovou hodnotou prazdny retezec apod.
> To ale asi neni to, co by Te potesilo.
>
> David Lebeda
uzamceni adresare aplikaci
[*] Mion <mion(zv)quick(tec)cz> - 23.1.2001 09:36:20
Mam nasledujici problem.
Moje aplikace je neco na zpusob grafickeho prohlizece a alba. Snazim se
v ni vyresit nasledujici problem:
Pokud v teto aplikaci nalistuji nejaky adresar a zobrazim si jeho obsah
(pomoci jpeg unity a dalsich), nejsem nasledne az do skonceni aplikace
zmenit jmeno adresare, nebo jej presunout jinam. Hlasi mi to, ze je
uzamcen bezicim procesem. Uzamceni nastane v okamziku pouziti metody
"Tjpegimage.loadfromfile"
Menit nazev toho adresare (anebo jej presouvat) mohu az po restartovani
me aplikace.
Diky za radu
Michal Ondrej
mion(zv)quick(tec)cz
STROM-telecom, s.r.o.
http://www.strom(tec)cz
Jak zjistit, ze nejaka TControl byla odstranena?
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 23.1.2001 09:44:23
Ahoj,
pri nastavovani Controlu musis na nom zavolat FreeNotification a predat
componentu ktora dostane informaciu pri uvolnovani toho Cotrolu. Prikald:
procedure TmwEditController.SetEdit(AEdit: TmwCustomEdit);
begin
UnHookEvents;
fEdit := nil;
fEdit := AEdit;
if AEdit <> nil then
AEdit.FreeNotification(Self); {*****}
CtrlE_ClearSearching;
HookEvents;
end;
a na tej svojej komponente musis prepisat metodu: Notification ktora sa vola
pri destroy Controlu. priklak:
procedure TmwEditController.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (FEdit <> nil) and (AComponent = mwEdit)
then
mwEdit := nil;
end; Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> Vytvoril jsem Componentu, ktera ma property Control: TControl
> a pokud ji nastavim na nejakou Tcontrol (napr. nejaky panel) tu pak nekdo
> (napr. ja) ostrani, nevim jak to ve sve komponente poznam. (Control =
nill)
> je samosebou False, Assigned(Control) je True (???), jak na to?
> Za kazdou radu moc dekuji.
> Michal Tiller
Help inverzn�
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 09:49:12
Zkus na internetu najit HelpDC21.ZIP. Melo by to byt to co potrebujes.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.1.2001 SPELZA s.r.o. :
> Ahoj Delphici,
> nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do souboru .rtf a
> pripadne i .hpj. Potrebuji doplnit stavajici help ale mam jen .hlp.
> Dik. Jara
TPrintDialog v Sinea generatori
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.1.2001 09:55:10
From: "Ing. Patrik Tesar" <tesar(zv)rainside.sk>
> Zistil som tento "bug" :
>
> Ked pouzivam v generatori TPrintDialog a linknem ho s Sestavou,
> napriek tomu, ze mam nastaveny report, ziadny mi nezobrazuje...
Pro vyber reportu je pouzit prvek typu ComboBox.
Tento prvek vyzaduje seznam predloh.
Pouhe prilinkovani s komponentou TSestava tento seznam
nenaplni. Seznam je treba naplnit rucne. Pokud je seznam
predem vyplneny, pak se pri prilinkovani focusuje polozka
seznamu odpovidajici predloze komponenty.
> Tlaciarne v combo mi nezobrazuje defaultnu nastavenu vo WinX,
> ale prvu v poradi podla abecedy...
Na tuto chybu upozornil jiz Zbysek Hlinka. Zde prikladam
jeho navrh reseni:
>> Ahoj,
>> nevim, zda to uz neni opraveno, ale ve verzi tiskovych sestav kterou
>> mam, se defaultne dosazovala prvni tiskarna ze seznamu, namisto
>> defaultni podle Woken. Pomohla tato drobna uprava v
>> constructor TPrintDialogTyp.Create(AOwner: TComponent);
>> ...
>> FPrinterIndex := Printer.PrinterIndex;
>>
>> S pozdravem
>> Zbysek Hlinka
Podle tohoto navrhu jiz byla provedena oprava do pristi verze.
Ve stavajici verzi je nutno provest opravu samostatne.
Vaclav Krmela
Registry II
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 23.1.2001 10:02:47
Mno, tak som si to vyskusal a mne to ide.
Testovane na: D5, Win98
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
Znaky:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('\.DBF',True);
Znaky:=Reg.ReadString('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
finally
Reg.Free;
end;
end;
Pavol Kakacka
kasix(zv)atlas(tec)cz
>Zdravim,
diky za odpoved predesleho dotazu. Vyzkousel jsem to takto:
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('\.DBF',True);
Znaky:=Reg.ReadString('');
Reg.WriteString('','DBF.DatView');
Reg.CloseKey;
Reg.Free;
a skoncilo to takto:
...ERegistryException with message 'Failed to set data for ''''...
Nevite prosim nekdo co s tim? Kdyz neco takoveho vykonam na jinem klici, tak
to funguje.
S pozdravem
MIrek Drejcek.Re[2]: Cteni z adres
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 23.1.2001 10:07:46
Dobr� den,
22. ledna 2001, 18:06:06, napsal jste:
PV> From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>> chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
>> otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
>> docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
PV> Ahoj,
PV> to jsou ovsem adresy I/O portu a ne adresy ve virtualnim pametovem prostoru
PV> procesu. Ve Windows potrebujes pro pristup k I/O adresam specialni driver (ve
PV> Win9x to sice na prvni pohled lze delat i bez driveru, avsak vysledky budou
PV> prinejmensim rozporuplne). Vice se dozvis treba tady:
PV> http://www.efg2.com/Lab/Library/Delphi/IO/PortIO.htm
PV> Mimochodem, u boardu na CD vetsinou byva aplikace, ktera umi tyto informace
PV> precist.
PV> Petr Vones, amatersky programator
Jo to bejva, ale ma nevyhodu, neda se spustit pri startu
minimalizovana a navic pri prehrati pouze zobrazi hlasku a ja bych
chtel pocitac vypnout atd atd atd atd...
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
Neprazdne premenne.
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 23.1.2001 10:10:39
"ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz> wrote:
> Spolehat se nato, ze JAKAKOLIV promenna, nadefinovana napr. ve formu
> bude po vytvoreni napr. formu "vynulovana" je hazard.
Vseobecne ano, ale v Delphi, kde je vetsina trid potomkem tObject *NE*,
protoze instance potomku tridy tObject se vytvari automatickym volanim
metody tridy NewInstance() a ta vola metodu tridy InitInstance(). Kdyz se
podivas od zdrojovky unit SYSTEM.PAS, tak zjistis, ze vsechna pamet
pridelena instanci se v teto metode pomoci REP STOSD vynuluje, takze vsechny
pointery obsahuji NIL, numericke hodnoty nuly, stringy NULL atd.
***
Chybu s "udajne" neinicializovanymi atributy tridy, ktera je potomkem
tObject (a to form je), bych rozhodne hledal nekde jinde, napr. by to mohlo
znamenat, ze pokud nevytvarim formular rovnou z tForm, tak nektery z predku
meho formulare nevola jako posledni prikaz metody NewInstance metodu
InitInstance viz Help.
Bye, pf
IB spustenie
[*] Ing. Csaba Kissi <ckissi(zv)email(tec)cz> - 23.1.2001 10:25:56
Zdravim vsetkych,
Mam tu mozno amatersku otazku ale potrebujem poradit. Zacinam robit s IB 6
a chcem aby moj program nejako spustil IB server po svojom spusteni tj. aby
server bezal iba ak bezi ten moj program ktory ho bude vyuzivat. Vsetko to
bude bezat na jednom pocitaci - t.j. ziadna siet ani nic podobne.
Vdaka za kazdu radu.
EMAIL.CZ - Vase posta je vzdy s Vami
http://www.email(tec)cz
Neprazdne premenne.
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.1.2001 10:47:06
Ahoj,
pokud me pamet neklame, pak ,,nulovani`` obsahu promennych
dochazi pouze u statickych promennych, nikoliv dynamickych.
Protoze vytvaris objekt dynamicky, nejsou jeho atributy
automaticky nulovany.
To, ze zavolas FreeAndNil znamena, ze se uvolni pro dalsi veci a
ukazateli se priradi nil. Neznamena to, ze pamet, kterou objekt
obsazoval, bude ,,nulovana``.
Pokud maji atributy v novem objektu stejne hodnoty jako drive, je to
nahoda, kdy objekt byl umisten na to same misto, kde byl pred
chvili predchozi, ale nemusi to byt pravda => vzdy to v konstruktoru
nastavuj na hodnoty, ktere potrebujes.
Slavek
> Zdravim.
>
> Vytvaram okno cez Application.CreateForm a v nom je definovany zaznam typu
> Record s roznymi typy poli. Pokial po FreeAndNil(Okno) okno uvolnim a
> nasledne ho potom vytvorim, stane sa ze premenne obsahuju data z minuleho
> pouzitia okna. Co s tym ? Mam stale pri vytvoreni zadavat
>
> with Zaznam do
> begin
> Cislo:=0;
> Text:='';
> ...
> end;
>
>
> alebo existuje aj nejake rozumnejsie riesenie ?
>
>
> Dakujem.
>
> roland.
>
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
PrinterIndex
[*] Krska Vit <v_krska(zv)del(tec)cz> - 23.1.2001 10:47:23
ahoj,
tisknu bitmapu a vse je OK, kdyz ale zmenim PrinterIndex na jinou nez
defaultni tiskarnu tak mi to stejne vytiskne na te defaultni. muze mi nekdo
poradit?
pouzivam tridu TPrinter a jeji Canvas
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
Delhpi
[*] Jaroslav ��hal <cihal(zv)mppraha(tec)cz> - 23.1.2001 11:03:52
V Delphi za��n�m poprv�. M��ete mi pros�m n�kdo poradit n�jakou dobrou
literaturu(Delphi 5) a odkaz na p�ede#l� konference v Delphi.
d�kuji mnohokr�t
#�hal Jaroslav
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
Help inverzn�
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.1.2001 11:24:26
Tohle dokaze RoboHelp. Mohl bych to pripadne prekonvertit
Milan Tomes
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
SPELZA s.r.o.
Sent: Tuesday, January 23, 2001 8:50 AM
To: DELPHI
Subject: Help inverzn�
Ahoj Delphici,
nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do souboru .rtf a
pripadne i .hpj. Potrebuji doplnit stavajici help ale mam jen .hlp.
Dik. Jara
DAO
[*] Martin <geoplan(zv)pp.sinet.sk> - 23.1.2001 12:00:14
mohli by ste mi povedat, presne ktory suboe stiahnut ?
Martin
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 15, 2001 4:43 PM
Subject: RE: DAO
> ahoj,
>
> musis nainstalovat Data Access Objects (DAO) nejlepe posledni verze - IE
je
> ma totiz v sobe.
> stahni si je z www.microsoft.com sekce downloads
>
> M.Jirman
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin
> Sent: Friday, January 12, 2001 9:52 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: DAO
>
>
> MAm problem . Urobil som si programcek v D5 s komponentamy od Erika Salaje
> DAO, ktorymi pristupujem na databazu Acces. Ak to spustam pod NT 4.00 tak
to
> ide dobre . Ale ak to spustim pod Win95 tak sa to ruca. Ale iba dovtedy
kym
> nenaistalujem Internet explorer. Potom to uz bezi v pohode. Pravdepodobne
> zaktualizuje nejake DLL, nie ? V NT40 uz IE je standartne.
> Musim instalovat IE ? Nestacilo by len nejake DLL ?
>
> Martin
>Dotaz na CreateParented
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 23.1.2001 12:05:41
Nevim jestli je to tvuj problem, ale obdobne chovani jsem resil dle helpu:
When writing a DLL that uses VCL forms, assign the window handle of the host
EXE's main window to the DLL's Application.Handle property. This makes the
DLL's form part of the host application. Never assign to the Handle property
in an EXE.
Akorat to jeste chtelo nasledujici pokud byla aplikace hostujici app delana
v Delphi:
hWindow := FindWindow( nazev tridy okna', caption okna);
hWindow := GetWindow( hWindow, GW_OWNER);
Application.Handle := hWindow;
S pozdravem
Ondrej Malecek
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 8:51 AM
Subject: Dotaz na CreateParented
Zdravim vsechny ucastniky,
potreboval bych pomoc. Mam aplikaci resp. DLL, ktera v sobe obsahuje
formular. Tento formular vytvarim pomoci metody CreateParented (viz.
priloha) a ted ten problem: pokud se pri takto vytvorenem formulari prepnu
do jine aplikace a nasledne se chci prepnout zpet, tak se rizeni preda ne
tomuto formulari, ale aplikaci (tj. Paradoxu), ktery tento formular otevrel.
Nevite nahodou nekdo co s tim ??? Rad bych to mel takto, aby se to tvarilo
jako soucast paradoxu a ne jako externi aplikace.
Dekuji
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
PS: Je to opravdu velice dulezite a potreboval bych to rychle vyresit.
Help inverzn�
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 23.1.2001 12:06:25
> nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do
> souboru .rtf a
Vyzkousej
http://www.herdsoft.com/ftp/hlp2rtf.exe
T.
CASE nastroj
[*] Marek Soukup <msoukup(zv)btt(tec)cz> - 23.1.2001 12:08:32
Pokud si sezenete MS VC++ tak tam je orezana verze Rational Rose s trochu
jinym interfacem, ale funkcni. A pokud vim tak VC++ se da poridit celkem za
rozumne penize (nevim v jakych verzich to je, ale to se da zjistit od
prodejce).
S pozdravem
Marek Soukup
> Pouze jeden problem. CaseStudio je nastroj pro datovou analyzu a datove
> toky. Pro navrh trid a objektovou analyzu jsem se zatim s nicim levnym
> nesetkal. Nastroje typu RationalCase, TeamWork jsou v cenach radu
> stovek tisic. :-(pomala aplikace v D5
[*] RNDr. Milan Vo��ek <vorisek(zv)igtt(tec)cz> - 23.1.2001 12:38:11
>From: "RNDr. Milan Vor�sek" <vorisek(zv)igtt(tec)cz>
>> kdyz spustim aplikaci z IDE, probiha viditelne pomaleji
>> a kdyz se ji pokusim ukoncit nebo jen prerusit, vse zatuhne
>> a jsem schopny jen shodit Delphi.
>> Kdyz tuto aplikaci spustim samostatne, je vse O.K.
>
>Za prve, mas instalovan Update Pack #1 na D5 ? Nemas nainstalovany nejaky
>rezidentni antivir ? Pouzivas nejake dalsi komponenty krom tech, ktere jsou
>standartne dodavane s Delphi (RxLib apod.) ?
>
>Petr Vones, amatersky programator
Objevil jsem pricinu. Bylo to necitlive nastaveni debugger options.
Zdrzoval to zapis Event Log\Windows messages.
Nicmene porad se obcas vyskytuje pri ukonceni programu
acces violation v bordbk50.dll. Pak uz nemuzu delat nic jen ukoncit Delphi.
Je to vsak jen sporadicke.
M.Vorisek
Detail v sestave Sinea
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.1.2001 12:43:36
Ahoj,
potreboval bych do sestavy Sinea vlo�it jinou sestavu (SestDetail) -
ale pozor - nikoli do tela, nybrz do hlavicky stranky. Mam sanci?
Sestava detailu funguje, pokud je v tele hlavni sestavy, ale na
zacatku sestavy nikoli.
O co mi jde konkretneji: mam na formu dva listboxy a v nich si
uzivatel vybere nekolik (libovolne mnozstvi) polozek. Rad bych tuto
uzivatelovu volbu zobrazil na zacatku sestavy pod nadpisem (nebot
uzivatel v listboxech vybira omezeni pro obsah sestavy).
Diky. Sinea je ve verzi 3.39w pro D5.
David Lebeda
MS SQL7.0 - Grant a Deny
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.1.2001 12:48:57
> Nepotesilo. I blbej Paradox pokud si dobre pamatuji mel moznost
> grant/deny - none, takze hodnoty daneho sloupce nebyly videt a slo z
> nej delat select... Grrr... Takze uz zbyva jen flag v aplikaci a
> sifrovana pole v databasi? Prece nemuzu menit view v sitovem
> provozu...
>
Menit ne, to by nedopadlo dobre, ale mozna by stacilo udelat
nekolik tech view - jedno view pro kazdy typ uzivatele a v aplikaci
se rozhodovat, ktere zavolat. Nevim, jak hodne je to v Tve aplikaci
schudne a pouzitelne, ale nic lepsiho me nenapada.
David Lebeda
>
>
>
> > > Diky tem novym zakonum na ochranu osobnosti musim vyresit
> > > nasledujici problem. Pro nekoho chci, aby byla videt jen vybrana
> > > data (treba RC) a nekomu to chci zakazat, ale aby to nebylo videt,
> > > ale blbecek mi rve, ze nemam pristup na celou tabulku. Prece pro
> > > kazdou roli nebudu mit vlastni view? Nebo japa se to resi?
> > >
> >
> > Ahoj,
> >
> > podle informaci z knihy Microsoft SQL server 7.0 sice muzes
> > nekomu zakazat pristup k vybranym sloupcum dane tabulky,
> > ovsem pak se tento uzivatel na ty sloupce nesmi zkusit koukat - to
> > dostane chybovou hlasku. Navrhovana cesta je prave pres view. Pokud
> > SQL dotaz vytvaris v kodu, muzes prislusne sloupce ze selectu
> > odstranit nebo je treba delat jako vypocitavane s retezcovou
> > hodnotou prazdny retezec apod. To ale asi neni to, co by Te
> > potesilo.
> >
> > David Lebeda
>
>
Re[2]: Cteni z adres
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.1.2001 12:55:59
Motherboard monitor tohle vsechno umi. Dale umi spoustet SW chladic atp...
Zkus si ho nainstalovat a odzkouset.
Milan Tomes
Dobr� den,
22. ledna 2001, 18:06:06, napsal jste:
PV> From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>> chtel bych si sestavit, jednoduchy program, ktery by mi hlidal
>> otacky vetracku, teplotu procesoru apod. V navodu od boardu jsem se
>> docetl, ze tyto informace jsou na adresach $294-$297 (294H-297H),
PV> Ahoj,
PV> to jsou ovsem adresy I/O portu a ne adresy ve virtualnim pametovem
prostoru
PV> procesu. Ve Windows potrebujes pro pristup k I/O adresam specialni
driver (ve
PV> Win9x to sice na prvni pohled lze delat i bez driveru, avsak vysledky
budou
PV> prinejmensim rozporuplne). Vice se dozvis treba tady:
PV> http://www.efg2.com/Lab/Library/Delphi/IO/PortIO.htm
PV> Mimochodem, u boardu na CD vetsinou byva aplikace, ktera umi tyto
informace
PV> precist.
PV> Petr Vones, amatersky programator
Jo to bejva, ale ma nevyhodu, neda se spustit pri startu
minimalizovana a navic pri prehrati pouze zobrazi hlasku a ja bych
chtel pocitac vypnout atd atd atd atd...
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
nove moznosti Synapse v SMTP a HTTP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 23.1.2001 13:07:38
protoze to zde bylo nedavno diskutovano a dost lidi odsud to
zajima, posilam i sem:
Nova Synapse ma hodne vylepsenou komponentu pro SMTP.
- Nyni podporuje ESMTP,
- podporuje prihlasovani pomoci AUTH prikazu (metodou LOGIN ci
CRAM-MD5) - to je mozna potreba na vyreseni zahadnych
problemu s odesilanim pres exchange...
- prikazy ETRN, VRFY, podporovan je i SIZE parametr
- podporovany jou i rozsirene navratove kody (takove to: "230 2.0.0
OK")
HTTP komponenta stale podporuje velmi nizourovnovou
komunikaci, ale navic pribyla i vyssi uroven, ktera za vas sama
vypni i patricne hlavicky HTTP requestu, takze se s ni da ted
pohodlne iplementovat prakticky libovolny HTTP pozadavek, a to
vcetne podpory proxy. Prilady jsou udelany pro GET a POST, ale
neni problem si podobnym stylem udelat jakykoliv vlastni priklad. :-)
Dekuji za pozornost a za nezabiti.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
PrinterIndex
[*] Krska Vit <v_krska(zv)del(tec)cz> - 23.1.2001 13:17:49
sorry,
chyba je na me strane, jiz jsem ji objevil.
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Krska Vit
Sent: Tuesday, January 23, 2001 10:47 AM
To: delphi-l(zv)fwd(tec)cz
Subject: PrinterIndex
ahoj,
tisknu bitmapu a vse je OK, kdyz ale zmenim PrinterIndex na jinou nez
defaultni tiskarnu tak mi to stejne vytiskne na te defaultni. muze mi nekdo
poradit?
pouzivam tridu TPrinter a jeji Canvas
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
IB + komponenty
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 23.1.2001 13:22:40
Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
free).
Pristupujete nekdo k IB z PHP a pokud ano, jak?
Dekuji
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Ukonceni aplikace pri startu
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 23.1.2001 13:22:13
To rozhodne nepujde. :)
1/Pokud je ten form MainForm, tak nelze spustit jako Not Visible. Applikace
ho stejne pusti Visible.
2/V OnShow a OnHide nelze menit Visible. Vyvola to vyjimku.
Nu. Tak to myslim nepujde. :)
Michal Tiller
-----Original Message-----
From: milan_2(zv)sose-sou(tec)cz [mailto:milan_2(zv)sose-sou(tec)cz]
Sent: Tuesday, January 23, 2001 8:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Ukonceni aplikace pri startu
Zkus nastavit puvodni FORM na visible:=false a pokud se ma spustit tak do
ONSHOW dej visible:=true
.... je to jen napad z leku, nevyzkousenej ... ale zkusit to muzes ... je
to dvoje kliknuti mysi a jeden radek textu :))
S pozdravem MIlan
=============
Bc.Mgr. Milan S.
SOSESOU UL
>Dobry den,
>
>potreboval bych poradit jak vyresit nasledujici problemek.
>
>Pri stratu aplikace (OnShow) zjistuji zda se aplikace ma spustit. Pokud ne
>ukoncim ji (Close;) a aplikace se ukonci. Problem je v tom, ze pri tom
>stejne ukaze hlavni okno. Sice jenom tak blikne, ale to mi prave vadi.
>Muzete mi prosim poradit jak zrusit to bliknuti?
>S pozdravem,
>Petr Reichl
desatinne cislo
[*] Martin <geoplan(zv)pp.sinet.sk> - 23.1.2001 13:29:24
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit ako s retazcom.
Martin
Pozor na OnClick !!!
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 23.1.2001 13:31:17
Zdravim vsechny,
ted nemam zadost o radu, ale chci vsechny upozornit na jednu vaznou vec,
ktera se mi prihodila, a stala me mnoho usili a nadavani.
Mam na formulari komponenty, ktere vytvarim za behu. Po kliknuti na jednu z
nich (je to potomek TImage, ale to asi neni podstatne) se maji vsecny ty
komponenty uplne uvolnit (metodou Free) a vytvorit nove, podle toho kam se
kliklo.
Problem je vsak v tom, ze kdyz ty komponenty uvolnim primo v udalosti
OnClick tak mi po dalsim kliku dojde k exception (cert vi proc ne hned, ale
to se mi nepodarilo zjistit a po vyreseni jsem to uz dal nezkoumal). Ten
exception vznikne pri zpracovani zpravy wm_MouseUp v tom formulari. Zjistil
jsem, ze po uvolneni komponenty toho obrazku, co se na nej kliklo, jeste
prijde ke zpracovani zprava wm_MouseUp, komponenta jiz neexistuje, a vznikne
exception.
Vyresil jsem to tedy tak (nic lepsiho mne nenapadlo), ze jsem v OnClick dal
PostMessage(naka moje nova wm_xxxxxx), abych obkrocil tu wm_MouseUp, a do
obsluhy ty wm_xxxxxx jsem umistil cele to uvolnovani a znovuvytvareni. (Nevi
nekdo jak by se to dalo jeste resit?)
Mozna to nekomu prijde jako moje dost velka blbost, ale pisu o tom zvlaste
proto, protoze udalost OnClick se primo nabizi na obsluhu udalosti kliknuti
(da se rict, ze je k tomu urcena), a radu programatoru by vubec nenapadlo
tam hledat nejakou zradu tohoto razeni. Alespon me se za ty roky (delam v
Delphi uz od verze 2 a cert vi, kolik je to vlastne roku) neco takoveho snad
jeste nestalo.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Delphi 5
IB + komponenty
[*] azeleny(zv)csas(tec)cz - 23.1.2001 13:33:21
DDV,
> Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
> free).
IB_Objects (www.ibobjects.com) nejsou free, ale vzhledem k tomu, ze je to
trustware, tak riziko vyhozenych penez neni a ty komponenty jsou opravdu
_VELMI_ dobre.
> Pristupujete nekdo k IB z PHP a pokud ano, jak?
No, PHP je treba kompilovat s parametrem --with-interbase (pokud jem to
napsal nepresne, tak se podivejte do manualu k PHP), pod NTckem jsem to uz
taky videl behat, byt jsem to osobne nezkousel. V oubou pripadech byl web
server Apache tusim 1.3.6, nebo vyssi.
Snad to pomzue.
a.
-----------------------------------------------------------------------
Ale# Zelen� (OK1UUE)
#esk� spo�itelna a.s.
Na Per#t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely. Proxy, mailserver
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 23.1.2001 13:40:36
Zdravim vsechny,
chci se zeptat na tri veci:
1) jake pouzivate proxy pro pristup na internet (HTTP, FTP, SQL-port1433,
SMTP, POP3)
2) nevite o nejakem jednoduchem postovnim serveru (tak do 5 pocitacu) nechci
servery typu MS Exchange - moc velke naroky na HW
3) nevite nekdo nahodou o nejakych zdrojich (komponenty, informace, apod.)
na vytvoreni vlastniho proxy a mailserveru, nema s tim nekdo z Vas
zkusenosti ?
diky za vsechny odpovedi
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Proxy, mailserver
[*] azeleny(zv)csas(tec)cz - 23.1.2001 13:51:51
DDV,
> 2) nevite o nejakem jednoduchem postovnim serveru (tak do 5
> pocitacu) nechci
> servery typu MS Exchange - moc velke naroky na HW
Mercury, existuje jak pod WinNT, tak Novell, MailDaemon(share) pripadne
SendMail, FetchMail na UX systemech.
> 3) nevite nekdo nahodou o nejakych zdrojich (komponenty,
> informace, apod.)
> na vytvoreni vlastniho proxy a mailserveru, nema s tim nekdo z Vas
> zkusenosti ?
Zkus se podivat na stranky Synapse, ale osobne bych to videl jako zbytecnou
praci.
a.EDatabase Error - Cannot modify a read only datase
[*] M. Winkler <m.winkler(zv)seznam(tec)cz> - 23.1.2001 14:08:14
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
bude to asi skolacka chyba, ale pro oci nevidim.
Mam Query:
SELECT d1.ID mat,
d1.Id provoz,
d1.Id stred,
d1.Id mistn,
d1.Id VNO,
d1.ID druhu,
d1.Nazev Mat,
d1.Mer Jedn,
d1.Cena nakup,
d1.DPH,
d1.Mnoz skladem
FROM "Provozxxx.db" d1
WHERE (d1.Id mat =:DMOper.MatRecord.Id)
AND (d1.Id vnitroodb=:DMOper.Loc.IDVNO)
AND (d1.Id stred =:DMOper.Loc.IDS)
AND (d1.Id mistn =:DMOper.Loc.IDM)
Pri otvirani:
with SQLProvoz do
begin
Close.
SQL.Clear;
SQL.Add( promenna = vyse uvedeny Select se zmenou Provozxxx )
Prepare;
Params[0].AsInteger := DMOper.MatRecord.Id;
Params[1].AsInteger := DMOper.Loc.IDVNO;
Params[2].AsInteger := DMOper.Loc.IDS;
Params[3].AsInteger := DMOper.Loc.IDM;
Open;
end;
Pro zapsani nove polozky z vydejky na sklad provozu
provadim v udalosti DataSourceQueryVydej B.OnDataChange:
begin
.....
with DMLUP.QueryProvoz do
begin
Insert;
FieldByName('Id mat').AsInteger := MatRecord.ID;
FieldByName('Nazev mat').AsString := MatRecord.Nazev;
FieldByName('Id provoz').AsInteger := Loc.IDP;
FieldByName('Id stred').AsInteger := Loc.IDS;
FieldByName('Id mistn').AsInteger := Loc.IDM;
FieldByName('VNO').AsInteger := Loc.IDVNO;
FieldByName('Id druhu').AsInteger := MatRecord.ID dr;
FieldByName('Mer jedn').AsString := MatRecord.MJ;
FieldByName('Cena nakup').AsCurrency := MatRecord.Cena0;
FieldByName('DPH').AsString := DMLUP.TableLUPMatDPH.AsString;
FieldByName('Mnoz skladem').AsFloat := NewQuoMistn;
Post;
end;
end;
QueryProvoz ma RequestLive = True
a po Insertu dostanu chybove hlaseni viz %subj.
Nepouzivam Distinct, Order By, QueryProvoz ma pole pouze z jedne
tabulky a neni vazana pres property DataSource.
Mam nekde chybu a nebo to takhle nejde napsat?
Doufam, ze jsem na nic duleziteho nezapomnel.
D5 Prof + SP1, Pdox7, BDE 5.1
Dik za Vas cas.
M. Winkler
PRIPLACNOUT TEXT
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 23.1.2001 14:09:19
Chtel bych na horkou klavesu ve winech priplacnout nejaky text tam kde se prave nachazi kurzor.
Ty hotkeys uz mam vychytany v celym systemu ted jen jak poslat text na vystup?
Neni to neco s SendMessage(handle,WM_char,?,?); nevim. poradte.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Divne chovani fileexists()
[*] Maly(zv)pds.pce.cdrail(tec)cz - 23.1.2001 14:23:57
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj
pri pouziti fce fileexists() z sysutils na prokazatelne existujici soubor na
lokalnim disku mi tato funkce tvrdosijne vracela false.Prava,atributy atd.
k souboru normalni jako u jinych souboru ve slozce, ktere normalne
fungovaly.Nepomohl ani restart.Pomohlo teprve presunuti souboru do jine
slozky a jeho nasledne navraceni do puvodni lokace, pak uz bylo vse v
poradku.Co to ?? Da se teto funkci, respektive findfirst() verit ?
Pou��v�m D5prof na W2000
Dekuji
Lada Maly
malyl(zv)atlas(tec)cz
Help inverzn�
[*] M. Winkler <m.winkler(zv)seznam(tec)cz> - 23.1.2001 14:41:13
Ahoj,
Hlp2Rtf je to shareware.
http://www.herdsoft.com
M. Winkler
----- Original Message -----
From: "SPELZA s.r.o." <spelza(zv)spelza(tec)cz>
To: "DELPHI" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 8:50 AM
Subject: Help inverzn�
> Ahoj Delphici,
> nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do souboru .rtf
a
> pripadne i .hpj. Potrebuji doplnit stavajici help ale mam jen .hlp.
>
> Dik. Jara
>
>
>editace v gridu - opet
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 23.1.2001 14:46:55
Ahoj,
zakaznik se opet (a tvrdeji) ozval s tim, ze by chtel editaci v gridu. Proto
se ptam:
Funguje toto reseni nekomu v praxi?
Lze nekde koupit komponentu, ktera umi editaci v Gridu uspokojive (nikoli
jako DBGrid) ?
Cena az tak uplne nerozhoduje..
Nepouzivam pro zmenu dat ulozene procedury, ale primo DBAware, proto
potrebuji neco, co se umi pripojit na DataSource.
Ja VIM, ze editace v gridu je blbost, ale zakaznik to docela vyzaduje, tak
mi, prosim, pomozte..:)
D5Prof;IB6;IBX;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
IB + komponenty
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 23.1.2001 15:16:44
Chvili jsem pouzival IBExpress, ale pak jsem presel na IBObjects a jsem
spokojeny.
Jsou Free pro vlastni pouziti. Jen to pri kazdem spusteni vyhodi takovou
malou hlasku.
Je to hromada komponent a umi to snad vsechno, co se s IB da delat.
Michal Tiller
-----Original Message-----
From: Milan Dvo��k [mailto:Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz]
Sent: Tuesday, January 23, 2001 1:23 PM
To: delphi-l(zv)fwd(tec)cz
Subject: IB + komponenty
Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
free).
Pristupujete nekdo k IB z PHP a pokud ano, jak?
Dekuji
Milan Dvorak
dvorak(zv)gymzn(tec)cz
IB + komponenty
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 23.1.2001 15:21:09
na adrese
http://php.weblogs.com/adodb
jsou pristupne soubory ADODB pro include a zaroven i instalace
PHP. Ja pouzivam php verzi 4.0.3pl a funguje.
Komponenty muzes vyzkouset z IBObjects, nebo standartne dodavane
z Delphi (IBX)| -----Original Message-----
| From: Milan Dvo��k [mailto:Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz]
| Sent: Tuesday, January 23, 2001 1:59 PM
| To: delphi-l(zv)fwd(tec)cz
| Subject: IB + komponenty
|
|
|
| Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud
mozno
| free).
| Pristupujete nekdo k IB z PHP a pokud ano, jak?
|
| Dekuji
|
|
| Milan Dvorak
| dvorak(zv)gymzn(tec)cz
|
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
IB + komponenty
[*] Campulka Jir� <campulka(zv)czas(tec)cz> - 23.1.2001 15:24:39
>
> Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
> free).
Treba FreeIBPlus z http://www.second-dream.ru/
nebo IBObjects http://www.ibobjects.com
Delphi 5 ma IBX
> Pristupujete nekdo k IB z PHP a pokud ano, jak?
>
Ano.
ibase_connect - Open a connection to an InterBase database
ibase_pconnect - Creates an persistent connection to an InterBase database
ibase_close - Close a connection to an InterBase database
ibase_query - Execute a query on an InterBase database
ibase_fetch_row - Fetch a row from an InterBase database
ibase_fetch_object - Get an object from a InterBase database
ibase_field_info - Get information about a field
ibase_free_result - Free a result set
ibase_prepare - Prepare a query for later binding of parameter placeholders
and execution
ibase_execute - Execute a previously prepared query
ibase_trans - Begin a transaction
ibase_commit - Commit a transaction
ibase_rollback - Rolls back a transaction
ibase_free_query - Free memory allocated by a prepared query
ibase_timefmt - Sets the format of timestamp, date and time type columns
returned from queries
ibase_num_fields - Get the number of fields in a result set
ibase_errmsg - Returns error messages
viz www.php.net
> Dekuji
>
>
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
Detail v sestave Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.1.2001 16:33:49
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>> potreboval bych do sestavy Sinea vlo�it jinou sestavu (SestDetail) -
> ale pozor - nikoli do tela, nybrz do hlavicky stranky. Mam sanci?
> Sestava detailu funguje, pokud je v tele hlavni sestavy, ale na
> zacatku sestavy nikoli.
Ja jsem si vzdy myslel, ze princip vazby master/detail
spociva v tom, ze mam master tabulku, kde jednomu
radku odpovida nekolik (0..n) radku v jine, detailni
tabulce. Radky vybrane z detailni tabulky tedy vzdy
odpovidaji prave aktualnimu radku master tabulky.
Va tomto principu je postavena funkcnost generatoru
sestav Sinea.
Tedy detailni sestavu lze pouzit pouze v ramci
konkretniho tela sestavy a nikde jinde.
Vzhledem k cetnosti pripominek i reklamaci tohoto
typu usuzuji, ze jsem neco hrube nepochopil
Mohl by mi prosim nekdo vysvetlit, jak maji
spravne fungovat sestavy typu Master/detail?> O co mi jde konkretneji: mam na formu dva listboxy a v nich si
> uzivatel vybere nekolik (libovolne mnozstvi) polozek. Rad bych tuto
> uzivatelovu volbu zobrazil na zacatku sestavy pod nadpisem (nebot
> uzivatel v listboxech vybira omezeni pro obsah sestavy).
Toto ale preci neni pozadavek na detail sestavy.
Pro predavani udaju tohoto typu ma generator Sinea
prvky typu PARAMETR. To je udaj, ktery je charakteristicky
pro celou sestavu, ale pri dalsim tisku jiz muze mit
jiny obsah.
V tomto konkretnim pripade bude pravdepodobne pozadavek,
aby parametr byl viceradkovy a asi i s promennou vyskou.
To se udela takto:
- v navrhu komponenty se pripravi pozadovany pocet parametru,
predpokladejme, ze pro tento ucel pouzijeme parametr
s poradovym cislem 3 (interni index 2 - je pocitano od 0)
- ve StringList editoru mu dame libovolny pocatecni obsah
- v editoru predloh umistime tento parametr do zacatku
sestavy na pozadovane misto, vysku nechame na jeden radek
- po dvojkliku na tomto prvku se zaskrtne ve vlastnostech
Viceradkovy text a Promenna vyska
- za behu programu pred pouzitim komponenty se naplni
do parametru skutecny obsah, vyberove omezeni.
Jednotlive radky jsou oddeleny znaky konce radku, napriklad:
Sestava1.Parametry[2] :=
'Radek1'#10'Radek2'#10'Radek3'#10'Radek4'#10'Radek5';
To je vse.
Vaclav Krmela
>
> Diky. Sinea je ve verzi 3.39w pro D5.
>
> David Lebeda
>
Ako zistit vsetky beziace procesy na WinNT a syste
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 23.1.2001 17:05:37
>> ma niekto so %subj% nejake skusenosti? Potrebujem zistit vsetky
natiahnute
>> DLL-ky jednotlivych programov beziacich na WinNT. ProcessID od ktoreho sa
>> odvija vsetko dokazem zistit, ale ako zistim "modBaseSize" a
"modBaseAddr"
>> natiahnutych DLL kniznic? Na W9x aj W2k to ide cez API
>
>Ahoj,
>
>podivej se na zdrojaky aplikace ToolHelpViewer:
>http://www.volweb(tec)cz/pvones/delphi/
>
>Petr Vones, amatersky programator
Ahoj,
pozrel som si ho, ale ten priklad je tusim len na W9x/2k, nemylim sa?
Skusil som si stiahnut aj:
http://www.dependencywalker.com/depends20_x86.zip
ako mi poradil Ing. Patrik Tesar, je to parada, ale bez zdrojakov, ak som
dobre hladal :-(
Skusim konkretnejsie. Ide mi o sledovanie nejakeho beziaceho procesu, aby
som mohol zistovat dynamicke volanie dll z neho, zistit "BaseAdresses" vo
virtualnom priestore, nazov suboru, verziu atd.. Naprogramoval som si teda
primitivny debugger. Bezi dobre, to najdolezitejsie - "Base Adresses"
dynamicky nahravanych Dll takto ziskam aj na NT4/2k, az na jednu
alickost - meno suboru.
debug proces spustam s nasledovnymi parametrami
Result := CreateProcess(PChar(FDebugProcName), nil, nil, nil, False,
DEBUG_ONLY_THIS_PROCESS or DEBUG_PROCESS or NORMAL_PRIORITY_CLASS, nil,
nil,
StartupInfo, ProcessInfo);
a v spustenom threade:
ukazatel lpImageName^ vo Win9x mi ukazuje na meno suboru aj s jeho uplnou
cestou a na W2k/NT4.0 je tam prazdny retazec a bez nazvu je mi "BaseAdress"
dynamicky nahranej dll nanic. V helpe "LOAD_DLL_DEBUG_EVENT" som sa docital,
ze su na NT nejake restrikcie preco je to tak, dokaze niekto meno suboru
zistit aj inak? Kde som urobil chybu? Uz ma to dost trapi a neviem si rady
:-(
...
LOAD_DLL_DEBUG_EVENT:
begin
with DebugEvent.LoadDll do
begin
if hFile <> 0 then
WriteMsg('> Load Dll --> ' +
Format('BaseAddr: %8p FileName: %12s (BinFileVer: %14s) ' +
'(FileVer: %14s) Path: ''%s''',
[lpBaseOfDll, // zisti mi "BaseAddress" DLL
ExtractFileName(PChar(lpImageName^)), // zisti nazov DLL
GetBinaryFileVersion(PChar(lpImageName^)), // zisti
BinVerziu
GetVerInfoB(PChar(lpImageName^), viFileVersion), // zisti
Verziu
ExtractFilePath(PChar(lpImageName^))])); // extrahuj
cestu k DLL
end;
end;
UNLOAD_DLL_DEBUG_EVENT:
begin
with DebugEvent.UnLoadDll do
WriteMsg('> UnLoad Dll <-- ' +
Format('BaseAddr: %8p ', [DebugEvent.UnLoadDll.lpBaseOfDll]));
end;
...
Diky za kazdu radu,
Jano
IB + komponenty
[*] Brano Vislocky <delphi(zv)jdsoftware.sk> - 23.1.2001 17:59:59
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Milan Dvooak
> Sent: Tuesday, January 23, 2001 1:23 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: IB + komponenty
>
>
> Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
> free).
> Pristupujete nekdo k IB z PHP a pokud ano, jak?
>
vid "Installing, Configuring and Using Apache, PHP3 and Interbase on Linux"
http://www.synectics.co.za/php3/tutorial/tutorial.php3
> Dekuji
>
>
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
>SAK mail
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 23.1.2001 18:45:50
Zdravim,
pokud nekdo pouzivate SAK mail, neznate odpoved na tyto dve otazky?
1) jak poslat mail vice nez dvema osobam (CC a BCC jsou jen stringy - nikoli stringlisty)
2) jak je to s kodovanim cestiny - at pouzivam kodovani 8bit nebo 64base, at mam ISO8859-2 nebo US-ASCII, stale ne a ne poslat
cestinu... Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Help =?iso-8859-2?Q?inverzn=EC?=
[*] Petr Vesely <Petr.Vesely(zv)upce(tec)cz> - 23.1.2001 18:48:27
"SPELZA s.r.o." wrote:
> nevite o nejakem nastroji pro inverzni prevod helpu (.hlp) do souboru .rtf a
> pripadne i .hpj. Potrebuji doplnit stavajici help ale mam jen .hlp.
Ahoj,
Napriklad to umi Help&Manual.
http://www.ec-software.com/index.html
Petr Vesely
Prevod Gis souradnic na Zemepisne?
[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 23.1.2001 18:49:05
Nevite nekdo, jak toto prepocitat? Samozrejme nejlepsi by byl nejaky zdrojak
nebo komponenta, ale i navod je super.
Diky
Danik (DanikF(zv)Email(tec)cz)
PS: Mimochodem - jak se temto Gis souradnicim rika? (znam jen osloveni
"krovacke" a to nebude asi to prave)IB + komponenty
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 23.1.2001 18:54:55
Ahoj,
pokud vim, tak IBObjects jsou free jen pro nekomercni ucely, coz pro nekoho
muze byt problem.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Campulka Jir�
> Sent: Tuesday, January 23, 2001 3:25 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: IB + komponenty
>
>
> >
> > Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud mozno
> > free).
>
> Treba FreeIBPlus z http://www.second-dream.ru/
> nebo IBObjects http://www.ibobjects.com
> Delphi 5 ma IBX
>
>
> > Pristupujete nekdo k IB z PHP a pokud ano, jak?
> >
>
> Ano.
>
> ibase_connect - Open a connection to an InterBase database
> ibase_pconnect - Creates an persistent connection to an InterBase database
> ibase_close - Close a connection to an InterBase database
> ibase_query - Execute a query on an InterBase database
> ibase_fetch_row - Fetch a row from an InterBase database
> ibase_fetch_object - Get an object from a InterBase database
> ibase_field_info - Get information about a field
> ibase_free_result - Free a result set
> ibase_prepare - Prepare a query for later binding of parameter
> placeholders
> and execution
> ibase_execute - Execute a previously prepared query
> ibase_trans - Begin a transaction
> ibase_commit - Commit a transaction
> ibase_rollback - Rolls back a transaction
> ibase_free_query - Free memory allocated by a prepared query
> ibase_timefmt - Sets the format of timestamp, date and time type columns
> returned from queries
> ibase_num_fields - Get the number of fields in a result set
> ibase_errmsg - Returns error messages
>
> viz www.php.net
>
> > Dekuji
> >
> >
> > Milan Dvorak
> > dvorak(zv)gymzn(tec)cz
>
>ADO + W2000 EN Adv Serv + cestina
[*] Delphi Newsgroup <DELPHI(zv)wsc(tec)cz> - 23.1.2001 19:45:39
Zdravim vsechny Delphare...
mam jeden velky problem, ktery nesouvisi primo z delphi, ale souvisi z
databazovymi technologiemi. Mame WEB server, kde bezi Windows 2000 Advanced
Server (anglicka verze). Aktualni verze ADO je 2.6. Aplikace pustene na
tomto serveru (at uz napsane v Delphi nebo ASP) pristupujici k databazi na
MSSQL2000 nebo i do Access2000 maji problem s cestinou v retezcich ctenych z
techto DB - nektere znaky zobrazi spravne (z, s s hackem), ale nektere ne
(treba c, r s hackem). Setkali jste se s tim uz nekdo, a jak jste to resili?
Docela to specha - bezi tam nekolik webovych aplikaci a zakaznici si toho
pomalu zacinaji vsimat :((((.
S pozdravem
Michal HAMPL (HAMPL(zv)WSC.CZ)
WinSoft Company, spol. s r.o.Outlook Express 5.5 kontra Win95/98 Logo Applicati
[*] Ing. Jiri Brothanek <brothanek(zv)seznam(tec)cz> - 23.1.2001 20:56:27
Zdravim.
Do doby, nez jsem instaloval MS Explorer 5.5 Cz, jsem nemel problem. (Mel
jsem
4.0 Cz.) Po instalaci mi prestala chodit aplikace, ze ktere vytvarim novou
zpravu. (Pokud se nevyjadruji presne, omlouvam se.)
V podstate si to kazdy muze odzkouset :
1. File
2. New
3. Zalozka Projects
4. Win 95/98 Logo application
5. Run
6. Staci kliknout na ikonu Send
7. Pokud Vam to bude reagovat jako mne, tak se prepnete na okno s kodem a
doporucuji CTRL F2 (ale to kazdy Delfik zna)
Otravoval jsem s tim nekolik kamaradu na podnikovych sitich (poslal jsem jim
exe) a vsichni ucinili stejnou zkusenost (bez problemu na Netscape a
nizsich verzich IE).
Vi nekdo, co s tim ? Byl bych velmi vdecny za radu.
Jirka.
Star� probl�m: ZIP komponenta
[*] Jan Nov�k <megamax(zv)seznam(tec)cz> - 23.1.2001 20:57:43
Ahoj,
moc se omlouv�m, �e p�#i o n��em, co u� v konferenci bylo, ale pot�eboval
bych n�jakou komponetu (D5) vzchopnou kompresovat a dekompresovat soubory,
nejl�pe ve form�tu ZIP. To, co jsem na#el v konferenci, mi nevyhovuje -
odkazy �asto nejsou aktu�ln� nebo je komponeta Shareware (to by norm�ln� tak
nevadilo, ale j� si stav�m jenom n�co pro sebe dom�). Pracuje n�kdo
moment�ln� s n���m takov�m??
D�ky. Pavel Nov�k
megamax(zv)seznam(tec)cz
Outlook Express 5.5 kontra Win95/98 Logo Applicati
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 21:59:04
23.1.2001 Ing. Jiri Brothanek :
> Zdravim.
> Do doby, nez jsem instaloval MS Explorer 5.5 Cz, jsem nemel problem. (Mel
> jsem
> 4.0 Cz.) Po instalaci mi prestala chodit aplikace, ze ktere vytvarim novou
> zpravu. (Pokud se nevyjadruji presne, omlouvam se.)
> V podstate si to kazdy muze odzkouset :
> 1. File
> 2. New
> 3. Zalozka Projects
> 4. Win 95/98 Logo application
> 5. Run
> 6. Staci kliknout na ikonu Send
> 7. Pokud Vam to bude reagovat jako mne, tak se prepnete na okno s kodem a
> doporucuji CTRL F2 (ale to kazdy Delfik zna)
> Otravoval jsem s tim nekolik kamaradu na podnikovych sitich (poslal jsem jim
> exe) a vsichni ucinili stejnou zkusenost (bez problemu na Netscape a
> nizsich verzich IE).
> Vi nekdo, co s tim ? Byl bych velmi vdecny za radu.> Jirka.
Pri volani MapiSendMail musis predat jako handle nadrizeneho okna
Application.Handle (tusim je to prvni parametr).
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Star� probl�m: ZIP komponenta
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.1.2001 22:02:00
23.1.2001 Jan Nov�k :
> Ahoj,
> moc se omlouv�m, �e p��i o n��em, co u� v konferenci bylo, ale pot�eboval
> bych n�jakou komponetu (D5) vzchopnou kompresovat a dekompresovat soubory,
> nejl�pe ve form�tu ZIP. To, co jsem na�el v konferenci, mi nevyhovuje -
> odkazy �asto nejsou aktu�ln� nebo je komponeta Shareware (to by norm�ln� tak
> nevadilo, ale j� si stav�m jenom n�co pro sebe dom�). Pracuje n�kdo
> moment�ln� s n���m takov�m??
> D�ky. Pavel Nov�k
> megamax(zv)seznam(tec)cz
Doporucil bych ZipMaster. Ovsem ten je dost casto v konferenci
"omilany". Muzes napsat v cem ti konkretne nevyhovuje ? Umi vse co
potrebuju s minimalni namahou. Je vcetne ceskych resourcu, umi SFX,
delit na diskety ..... Jedinou nevyhodou jsou samostatne DLL. Ale
pokud to chces pro vlastni pouziti, problem v tom nevidim.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Prikaz activate u TIBTAble/TIBQuery
[*] Ivan Koz�k - 23.1.2001 15:18:31 -0800
#hojte, neviete mi niekto podrobnejsie povedat, co sa vlastne vsetko deje pri prikaze Activate u TIBTAble/TIBQuery?
Stalo sa mi to, ze v programe na zasiatku aktivujem tabulky. Nikdy to casovo nestalo za rec, az ked som to pustil pod sietou (pricom data boli na inom pocitaci v tejto sieti) tak to aktivovanie prebiehalo priserne, ale priserne pomaly. Musim to nejak vyriesit (lebo potom, pocas prace bol pristup k datam pomerne rozumny) ale neviem "kam sahnut". Kto ma osvieti? Dik. Ivan
Nove ODBCe - blokove operacie
[*] L. ZITA <konference(zv)sales(tec)cz> - 24.1.2001 00:45:41
----- Original Message -----
From: "Ren� Otisk" <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 9:24 AM
Subject: Re: Nove ODBCe - blokove operacie
> Mam tutez zkusenost. Vzdy bez problemu...
>
> Sroub
>
>
>
> > > A pujde to spustit?
> > > Uz jsem se jednou ptal, ale asi to zapadlo. Stahoval jsem to 2x a
> > > pokazde to bylo "corrupt file..."
> > >
> > Uz jsem to dlouho nestahoval, ale nikdy jsem nemel problem.
> > Neverim, ze na serveru je soubor poskozeny.
> >
> > David Lebeda
>
Ahoj.
Ja to nestahoval, ale podoba vec se obcas deje kdyz je podruhe stahovany
soubor
stejneho jmena , a kdyz tim padem se nezmenila stranka s odkazem a kdyz mas
zapnute
v IE cashovani stranek. Download je pak rychly a soubor posozeny.
Reseni : prolezt internet cashe a vymaznout stary soubor.
Ludek
Mirne OT: Resource editor
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 24.1.2001 07:28:16
Ahoj,
nevite prosim nekdo o nejakem resource editoru pro 32bitove aplikace
ve Windows? Jeste s Borland Pascalem pro Windows byl nejaky takovy
program dodavan, ten ale umi jen 16bitove soubory. U Delphi 5 Pro
jsem nic podobneho jiz nenasel. Potreboval bych to k prekladu
programu Pegasus Mail, ktery pouzivame ve skole na siti, ale dela
problemy studentum, kteri nevladnou anglictinou.
Diky, Karel Rys
delphi(zv)zas-me(tec)cz
FormStorage
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 24.1.2001 07:28:38
AHoj
Komponenta Form storage z RX komponent slouzi k ulozeni nastaveni z
formulare.
Da se nejak teto komponente vnutit objekt CheckListBox tak aby ukladala
zaskrtnute checkboky u polozek?
Diky
Dalibor
Detail v sestave Sinea
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 24.1.2001 07:39:59
> > potreboval bych do sestavy Sinea vlo�it jinou sestavu (SestDetail) -
> > ale pozor - nikoli do tela, nybrz do hlavicky stranky. Mam sanci?
> > Sestava detailu funguje, pokud je v tele hlavni sestavy, ale na
> > zacatku sestavy nikoli.
>
> Ja jsem si vzdy myslel, ze princip vazby master/detail
> spociva v tom, ze mam master tabulku, kde jednomu
> radku odpovida nekolik (0..n) radku v jine, detailni
> tabulce. Radky vybrane z detailni tabulky tedy vzdy
> odpovidaji prave aktualnimu radku master tabulky.
> Va tomto principu je postavena funkcnost generatoru
> sestav Sinea.
> Tedy detailni sestavu lze pouzit pouze v ramci
> konkretniho tela sestavy a nikde jinde.
>
> Vzhledem k cetnosti pripominek i reklamaci tohoto
> typu usuzuji, ze jsem neco hrube nepochopil
> Mohl by mi prosim nekdo vysvetlit, jak maji
> spravne fungovat sestavy typu Master/detail?
>
Ja s naznacenym popisem vztahu master/detail souhlasim,
nicmene to, na co jsem se ptal, neni master/detail. To, co bych
uvital (nevim, zda jen ja nebo vic lidi), je moznost vlozit do sestavy
jinou sestavu (nejen do tela). Komponentu TSestDetail jsem pouzil
na zkousku jen proto, ze nic lepsiho jsem nenasel.
V tomto konkretnim pripade to jde resit pomoci parametru (za
popis dekuji - opravdu mi to pomohlo), ale sonduji, zda se s necim
takovym treba nepocita. Nekdy by to usnadnilo zivot.
> > O co mi jde konkretneji: mam na formu dva listboxy a v nich si
> > uzivatel vybere nekolik (libovolne mnozstvi) polozek. Rad bych tuto
> > uzivatelovu volbu zobrazil na zacatku sestavy pod nadpisem (nebot
> > uzivatel v listboxech vybira omezeni pro obsah sestavy).
>
> Toto ale preci neni pozadavek na detail sestavy.
> Pro predavani udaju tohoto typu ma generator Sinea
> prvky typu PARAMETR. To je udaj, ktery je charakteristicky
> pro celou sestavu, ale pri dalsim tisku jiz muze mit
> jiny obsah.
>
> V tomto konkretnim pripade bude pravdepodobne pozadavek,
> aby parametr byl viceradkovy a asi i s promennou vyskou.
> To se udela takto:
> - v navrhu komponenty se pripravi pozadovany pocet parametru,
> predpokladejme, ze pro tento ucel pouzijeme parametr
> s poradovym cislem 3 (interni index 2 - je pocitano od 0)
> - ve StringList editoru mu dame libovolny pocatecni obsah
> - v editoru predloh umistime tento parametr do zacatku
> sestavy na pozadovane misto, vysku nechame na jeden radek
> - po dvojkliku na tomto prvku se zaskrtne ve vlastnostech
> Viceradkovy text a Promenna vyska
> - za behu programu pred pouzitim komponenty se naplni
> do parametru skutecny obsah, vyberove omezeni.
> Jednotlive radky jsou oddeleny znaky konce radku, napriklad:
> Sestava1.Parametry[2] :=
> 'Radek1'#10'Radek2'#10'Radek3'#10'Radek4'#10'Radek5';
> To je vse.
>
Ja jsem prave nevedel, jak se ma delat odradkovani u
viceradkoveho textu, proto jsem se parametru nevenoval.
Ale zeptam se na neco jineho. Vlozim do sestavy prvek Graficky
text, nastavim ho jako viceradkovy. Jak ho snadno naplnim jiz v
dobe navrhu viceradkovym textem? Prvek se plni jednoradkovym
editem. Toto i pouziti parametru vyse popsanym zpusobem navrhuji
dat do prirucky napr. do Tipu a triku, protoze to neni nikde
zdokumentovane.
Dale se mi nedari uspesne pouzit svisly text (prvek Graficky
text, uhel sklonu 90 stupnu. Jediny pripad, kdy je neco videt, je pri
zarovnani uprostred, kdy je videt leva polovina textu. Delam neco
spatne?
Posledni dotaz - na palete komponent mam komponentu
CompositeReportSinea, o niz neni v dokumentaci ani zminka. K
cemu je dobra?
Pokud jiz existuje novejsi dokumentace, tak se omlouvam.
Dekuji za trpelivost :)
David Lebeda
IB + komponenty
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 24.1.2001 07:43:36
>No, PHP je treba kompilovat s parametrem --with-interbase (pokud jem to
>napsal nepresne, tak se podivejte do manualu k PHP), pod NTckem jsem to uz
>taky videl behat, byt jsem to osobne nezkousel. V oubou pripadech byl web
>server Apache tusim 1.3.6, nebo vyssi.
Ja to kdysi zkousel pod Linuxem i Windows, slo to dobre, ale jen pro PHP3.
PHP4 tenkrat melo podporu jen v neprilis funkcni bete.
Ale uz je to rok, takze predpokladam, ze uz to jede, ono totiz PHP3
nema v sobe podporu session a to je dost velke omezeni,
i kdyz to jde implementovat pres jine produkty.
Leos
local IB alebo IB C/S
[*] Ing. Csaba Kissi <ckissi(zv)email(tec)cz> - 24.1.2001 07:51:28
Zdravim vestkych ,
Zacinam s IB a potrebujem poradit. Chcem robit DB aplikaciu s IB, ktora bude
bezat na jednom pocitaci (neuvazuje sa o sieti ani v buducnosti). Neviem
ci pouzit instalaciu IB6 client+ server alebo local interbase. Aky je v tom
rozdiel ? Dalej by ma zaujimalo ci existuje nieco ako local IB6 na stiahnutie
na nete podobne ako je public license pre IB6 na stranke borlandu?
Vdaka.
EMAIL.CZ - Vase posta je vzdy s Vami
http://www.email(tec)cz
Dotaz na CreateParented
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 24.1.2001 08:18:35
Zkusim to, ale nevim - Paradox je produkt Borlandu ale neni to psane v
Delphi a take nemam zdrojaky :)
Milan Tomes
Nevim jestli je to tvuj problem, ale obdobne chovani jsem resil dle helpu:
When writing a DLL that uses VCL forms, assign the window handle of the host
EXE's main window to the DLL's Application.Handle property. This makes the
DLL's form part of the host application. Never assign to the Handle property
in an EXE.
Akorat to jeste chtelo nasledujici pokud byla aplikace hostujici app delana
v Delphi:
hWindow := FindWindow( nazev tridy okna', caption okna);
hWindow := GetWindow( hWindow, GW_OWNER);
Application.Handle := hWindow;
S pozdravem
Ondrej Malecek
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 8:51 AM
Subject: Dotaz na CreateParented
Zdravim vsechny ucastniky,
potreboval bych pomoc. Mam aplikaci resp. DLL, ktera v sobe obsahuje
formular. Tento formular vytvarim pomoci metody CreateParented (viz.
priloha) a ted ten problem: pokud se pri takto vytvorenem formulari prepnu
do jine aplikace a nasledne se chci prepnout zpet, tak se rizeni preda ne
tomuto formulari, ale aplikaci (tj. Paradoxu), ktery tento formular otevrel.
Nevite nahodou nekdo co s tim ??? Rad bych to mel takto, aby se to tvarilo
jako soucast paradoxu a ne jako externi aplikace.
Dekuji
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
PS: Je to opravdu velice dulezite a potreboval bych to rychle vyresit.
OT: Win2000
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 24.1.2001 08:38:39
Ahoj.
Uz jsem to tady jednou psal, ale porad na to nemuzu prijit.
Mam W2000 Prof. Sit je na NOVELLU, tedy SPX a Protokoly TCPIP pro inet.
Mam nastaveny klient site Windows, ale nevidim okolni pocitace, jen ten svuj
a novelovske servery.
Pritom okolni pocitace vidi me a prihlasi se i k tomu co sdilim.
Nevite nekdo co s tim?
Neprazdne premenne.
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 24.1.2001 08:42:17
>
> Chybu s "udajne" neinicializovanymi atributy tridy, ktera je potomkem
> tObject (a to form je), bych rozhodne hledal nekde jinde,
> napr. by to mohlo
> znamenat, ze pokud nevytvarim formular rovnou z tForm, tak
> nektery z predku
> meho formulare nevola jako posledni prikaz metody NewInstance metodu
> InitInstance viz Help.
>
>
Ja bych si spise tipl, ze ten record nebyl soucasti tridy, ale byl
deklarovany
jen jako globalni promenna ve stejnem unitu (stejne unite? (:-). Mohl by
autor
puvodnihi dotazu poslat interface sekci z te jednotky?
s pozdravem Otakar Milink desatinne cislo
[*] Krska Vit <v_krska(zv)del(tec)cz> - 24.1.2001 08:54:55
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
na to jsou funkce Int a Frac. jsou popsany v helpu
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin
Sent: Tuesday, January 23, 2001 1:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: desatinne cislo
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit
ako s retazcom.
Martin
IB + komponenty
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.1.2001 09:36:09
Vsechny me zname distribuce PHP pro Windows obsahuji
podporu IB. jedine, co krome vlastniho PHP modulu je potreba
GDS32.DLL, ktery je v distribucich tez obsazen. (podporovana je
verze IB 6) priklady pouziti jsou v dokumentaci od PHP.
A FUNGUJE to! (dokonce i rychle)
> na adrese
> http://php.weblogs.com/adodb
> jsou pristupne soubory ADODB pro include a zaroven i instalace
> PHP. Ja pouzivam php verzi 4.0.3pl a funguje.
>
> Komponenty muzes vyzkouset z IBObjects, nebo standartne dodavane z
> Delphi (IBX)
>
>
> | -----Original Message-----
> | From: Milan Dvo��k [mailto:Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz]
> | Sent: Tuesday, January 23, 2001 1:59 PM
> | To: delphi-l(zv)fwd(tec)cz
> | Subject: IB + komponenty
> |
> |
> |
> | Ktere by jste mi doporucili komponenty pro pristup k IB? (pokud
> mozno | free). | Pristupujete nekdo k IB z PHP a pokud ano, jak? | |
> Dekuji | | | Milan Dvorak | dvorak(zv)gymzn(tec)cz |
>
>
>
> *****************
> Libor Stujan
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> **************
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
desatinne cislo
[*] delphiko <delphi(zv)kopr(tec)cz> - 24.1.2001 09:38:07
R := Frac(123.456); { 0.456 }
R := Frac(-123.456); { -0.456 }
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, January 23, 2001 1:29 PM
Subject: desatinne cislo
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit ako s retazcom.
Martin
FormStorage
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 24.1.2001 09:48:48
> AHoj
>
> Komponenta Form storage z RX komponent slouzi k ulozeni nastaveni z
> formulare.
> Da se nejak teto komponente vnutit objekt CheckListBox tak aby ukladala
> zaskrtnute checkboky u polozek?
>
> Diky
>
> Dalibor
>
>
Kdyz na te komponente udelas doubleclick, tak ti bude umozneno to,
ceho zadas.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
PRIPLACNOUT TEXT
[*] Brano Vislocky <delphi(zv)jdsoftware.sk> - 24.1.2001 10:02:26
SendMessage( handle, WM_PASTE, 0, 0 )
Brano
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> -=Ivomir=-
> Sent: Tuesday, January 23, 2001 2:09 PM
> To: Delphi Konference
> Subject: PRIPLACNOUT TEXT
>
>
> Chtel bych na horkou klavesu ve winech priplacnout nejaky text
> tam kde se prave nachazi kurzor.
> Ty hotkeys uz mam vychytany v celym systemu ted jen jak poslat
> text na vystup?
> Neni to neco s SendMessage(handle,WM_char,?,?); nevim. poradte.
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
> desatinne cislo
[*] Brano Vislocky <delphi(zv)jdsoftware.sk> - 24.1.2001 10:03:56
var
i: integer;
d: real;
begin
i := trunc( d );
end;
Mozno to ide aj inak, ale takto skoro rano :-) ma nic lepsie nenapada ..
Brano
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin
Sent: Tuesday, January 23, 2001 1:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: desatinne cislo
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit
ako s retazcom.
Martin
FormStorage
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.1.2001 10:04:27
Ahoj,
muzes si vytvorit vlastni ukladani cehokoliv, ktere je schovane pod
FormStorage (tedy primo nezaskrtavas v Object Inspectoru) v
onSavePlacement a onRestorePlacement. Primo tento objekt umoznuje zapsat
cislo a retezec viz.
function ReadString(const Ident, Default: string): string;
procedure WriteString(const Ident, Value: string);
function ReadInteger(const Ident: string; Default: Longint):
Longint;
procedure WriteInteger(const Ident: string; Value: Longint);
procedure EraseSections;
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Bednar��k Dalibor [SMTP:dalibor(zv)torola(tec)cz]
> Odesl�no: 24. I 2001 7:29
> Komu: forum
> P�edm�t: FormStorage
>
> AHoj
>
> Komponenta Form storage z RX komponent slouzi k ulozeni nastaveni z
> formulare.
> Da se nejak teto komponente vnutit objekt CheckListBox tak aby
> ukladala
> zaskrtnute checkboky u polozek?
>
> Diky
>
> Dalibor
>
>
>
>
> Divne chovani fileexists()
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.1.2001 10:07:07
Tohle se mi stalo taky na W98.
Jaro B. >pri pouziti fce fileexists() z sysutils na prokazatelne
existujici soubor na lokalnim disku mi tato funkce tvrdosijne vracela
>false.Prava,atributy atd. k souboru normalni jako u jinych
souboru ve slozce, ktere normalne fungovaly.Nepomohl ani
>restart.Pomohlo teprve presunuti souboru do jine slozky a jeho
nasledne navraceni do puvodni lokace, pak uz bylo vse v
>poradku.Co to ?? Da se teto funkci, respektive findfirst()
verit ?
> Pou��v�m D5prof na W2000
> Dekuji
>
> Lada Maly
> malyl(zv)atlas(tec)cz
> Registry II
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 24.1.2001 10:21:31
Mam D5 prof, Win NT a nefunguje to, ale vyzkousel jsem spustit exe soubor na jinem PC (take Win NT) a tam to funguje.
Bude to proste neco mezi PC a Billem.
Takze diky za vsechny rady.
S pozdravem
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
On 23.1.2001 at 10:02 Pavol Kakacka wrote:
>Mno, tak som si to vyskusal a mne to ide.
>
>Testovane na: D5, Win98
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> Reg:TRegistry;
> Znaky:String;
>begin
> Reg:=TRegistry.Create;
> try
> Reg.RootKey:=HKEY_CLASSES_ROOT;
> Reg.OpenKey('\.DBF',True);
> Znaky:=Reg.ReadString('');
> Reg.WriteString('','DBF.DatView');
> Reg.CloseKey;
> finally
> Reg.Free;
> end;
>end;
>
> Pavol Kakacka
> kasix(zv)atlas(tec)cz
>
>>Zdravim,
>diky za odpoved predesleho dotazu. Vyzkousel jsem to takto:
>
>Reg:=TRegistry.Create;
>Reg.RootKey:=HKEY_CLASSES_ROOT;
>Reg.OpenKey('\.DBF',True);
>Znaky:=Reg.ReadString('');
>Reg.WriteString('','DBF.DatView');
>Reg.CloseKey;
>Reg.Free;
>
>a skoncilo to takto:
>
>...ERegistryException with message 'Failed to set data for ''''...
>
>Nevite prosim nekdo co s tim? Kdyz neco takoveho vykonam na jinem klici, tak
>to funguje.
>S pozdravem
>MIrek Drejcek.desatinne cislo
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 24.1.2001 10:25:13
Ja bych se asi podival do napovedy v rejstriku na Trunc function. Ta se urcite hodi. Pak je tam odkaz na matematicke funkce. Tam urcite bude i ta druha.
S pozdravem
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
On 23.1.2001 at 13:29 Martin wrote:
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit ako s retazcom.
Martin
Prevod Gis souradnic na Zemepisne?
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 24.1.2001 10:30:24
Vim, jen ted bohuzel nebudu mit cas. Nejdriv to budu muset najit. Pred pul rokem jsem to programoval.
Jsou to nechutne vzorecky. Zitra to poslu.
Krovak je naprosto OK. Jinak ma take nazev JTSK.
S pozdravem
Mirek Drej�ek.
drejcek(zv)schkocr(tec)cz
Laborato� GIS Spr�vy CHKO #R.
*********** REPLY SEPARATOR ***********
On 23.1.2001 at 18:49 Frant�k Daniel wrote:
>Nevite nekdo, jak toto prepocitat? Samozrejme nejlepsi by byl nejaky zdrojak
>nebo komponenta, ale i navod je super.
>
>Diky
>Danik (DanikF(zv)Email(tec)cz)
>
>PS: Mimochodem - jak se temto Gis souradnicim rika? (znam jen osloveni
>"krovacke" a to nebude asi to prave)CoolForm a Mask + detailni popis problemu :)
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 24.1.2001 10:36:23
Ahoj
> Mam FORM 300x300
> ... na nej dam obrazek z DEMA, ktere bylo prilozene ke komponente (na
bilem
> pozadi 100x200 je vyfocena nejaka zenska).
A muzes me prosim te rict, proc mas form 300x300, kdyz je zenska 100x200 ?
Co je to za volovinu roztahovat formular, kdyz stejne nebude videt ?
> CoolForm (to je ta komponenta, do ktere se vklada obrazek) dam na
> ALLCLIENT ... na celou plochu 300x300 ...
To souhlasi, toto ti nastavi velikost masky na cely formular... Ale... ted
ti reknu ja jednu perlicku: Kdyz nastavis v komponente COOLFORM vlastnost
center na true - obrazek na formu se sice zarovna na stred, ale kdyz udelas
masku, vysledkem je maskovany sice puvodni obrazek, ale ten je umisten v
levem hornim rohu (tzn stejne jako kdyz nepouzijes center=true) a navic je
jeste barevne stejny jako formular !!! Neni zrovna v tomhle problem?
nepouzil jsi nahodou i centrovani ? Cool ma mnoho chyb nejen to centrovani,
napr coolmemo taky nefunguje tak, jak by melo :(
Moje rada zni: pokud potrebujes puvodni obrazek rozmerove upravit,
rozhodne to nedelej vlastnosti autosize nebo stretch. To vede jenom k
problemum. Pouzij na to nejaky externi program na upravu obrazku.
S pozdravem Batex :)desatinne cislo
[*] Ing. Pavel #ilinec <zilinec(zv)fpozn(tec)cz> - 24.1.2001 10:41:06
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
DIV je celociselne deleni a MOD je zbytek po celociselnem deleni - viz primo help.
Predpokladam, ze to chces udelat v DELPHI.
The value of x div y is the value of x/y rounded in the direction of zero to the nearest integer.
The mod operator returns the remainder obtained by dividing its operands. In other words, x mod y = x - (x div y) * y.
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym robit ako s retazcom.
Martin
Spustenie IB
[*] effect(zv)nextra.sk - 24.1.2001 09:47:00 gmt
Zdravim vsetkych,
Mam tu otazku, ktora tu uz mozno bola, ale potrebujem poradit.
Zacinam robit s IB 6 a chcem aby moj program nejako spustil IB server
po svojom spusteni tj. aby server bezal iba ak bezi ten moj program
ktory ho bude vyuzivat. Vsetko to bude bezat na jednom pocitaci -
t.j. ziadna siet ani nic podobne. Po ukomceni prace s mojim programom
by sa mal IB server vypnut.
Vdaka za kazdu radu.
Win2000
[*] Maly(zv)pds.pce.cdrail(tec)cz - 24.1.2001 10:56:38
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj
mas spravne nastaveny WINS v TCPIP ?
Lada Maly
> -----P�vodn� zpr�va-----
> Od: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
> Odesl�no: 24. ledna 2001 8:39
> Komu: forum
> P�edm�t: OT: Win2000
>
>
> Ahoj.
> Uz jsem to tady jednou psal, ale porad na to nemuzu prijit.
>
> Mam W2000 Prof. Sit je na NOVELLU, tedy SPX a Protokoly TCPIP
> pro inet.
> Mam nastaveny klient site Windows, ale nevidim okolni
> pocitace, jen ten svuj
> a novelovske servery.
> Pritom okolni pocitace vidi me a prihlasi se i k tomu co sdilim.
>
> Nevite nekdo co s tim?
>
>
>
>
> Chyba AV p�i kompilaci
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 24.1.2001 11:04:20
Ahojte,
nepravidelne se mi stava, ze pri kompilaci Delphi vyhodi
hlasku Access Violation in bordbk40.dll. Protoze je pak nutne
cele IDE zavrit, pekne mi to otravuje praci. Nemate s tim nekdo
zkusenosti?
Mam D4 C/S + SP3, Win2k bez SP, IE5.0
Martin Dupal
Pozor na OnClick !!!
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 24.1.2001 11:56:48
Zdravim,
podle meho nazoru by stacilo obslouzit udalosti talcitka OnMouseDown
(nastaveni priznaku, ze se maji uvolnit komponenty) a OnMouseUp (vlastni
uvolneni komponent)
S pozdravem Marek Eichler
----- Original Message -----
From: "Tomas Bradle" <t.bradle(zv)pvtnet(tec)cz>
To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 1:31 PM
Subject: Pozor na OnClick !!!> Zdravim vsechny,
>
> ted nemam zadost o radu, ale chci vsechny upozornit na jednu vaznou vec,
> ktera se mi prihodila, a stala me mnoho usili a nadavani.
>
> Mam na formulari komponenty, ktere vytvarim za behu. Po kliknuti na jednu
z
> nich (je to potomek TImage, ale to asi neni podstatne) se maji vsecny ty
> komponenty uplne uvolnit (metodou Free) a vytvorit nove, podle toho kam se
> kliklo.
>
> Problem je vsak v tom, ze kdyz ty komponenty uvolnim primo v udalosti
> OnClick tak mi po dalsim kliku dojde k exception (cert vi proc ne hned,
ale
> to se mi nepodarilo zjistit a po vyreseni jsem to uz dal nezkoumal). Ten
> exception vznikne pri zpracovani zpravy wm_MouseUp v tom formulari.
Zjistil
> jsem, ze po uvolneni komponenty toho obrazku, co se na nej kliklo, jeste
> prijde ke zpracovani zprava wm_MouseUp, komponenta jiz neexistuje, a
vznikne
> exception.
>
> Vyresil jsem to tedy tak (nic lepsiho mne nenapadlo), ze jsem v OnClick
dal
> PostMessage(naka moje nova wm_xxxxxx), abych obkrocil tu wm_MouseUp, a do
> obsluhy ty wm_xxxxxx jsem umistil cele to uvolnovani a znovuvytvareni.
(Nevi
> nekdo jak by se to dalo jeste resit?)
>
> Mozna to nekomu prijde jako moje dost velka blbost, ale pisu o tom zvlaste
> proto, protoze udalost OnClick se primo nabizi na obsluhu udalosti
kliknuti
> (da se rict, ze je k tomu urcena), a radu programatoru by vubec nenapadlo
> tam hledat nejakou zradu tohoto razeni. Alespon me se za ty roky (delam v
> Delphi uz od verze 2 a cert vi, kolik je to vlastne roku) neco takoveho
snad
> jeste nestalo.
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
> Delphi 5
>
>Detail v sestave Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 24.1.2001 11:58:48
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
> Ale zeptam se na neco jineho. Vlozim do sestavy prvek Graficky
> text, nastavim ho jako viceradkovy. Jak ho snadno naplnim jiz v
> dobe navrhu viceradkovym textem? Prvek se plni jednoradkovym
> editem.
Prvek typu Graficky text je urcen pro konstantni texty, ktere
se ukladaji primo do predlohy. Zde se nepredpoklada
variabilni text s promennou vyskou. Vice radku je vhodne realizovat
jednotlivymi prvky pro kazdy radek.
Lze sice dlouhy text nechat zformatovat na vice radku,
ale jiz do tohoto prvku neni mozne vnutit tvrdy konec radku.> Dale se mi nedari uspesne pouzit svisly text (prvek Graficky
> text, uhel sklonu 90 stupnu. Jediny pripad, kdy je neco videt, je pri
> zarovnani uprostred, kdy je videt leva polovina textu. Delam neco
> spatne?
Tento problem byl uspokojive vyresen az ve verzi
3.39w ze dne 22.8.2000. Provedte si update.
> Posledni dotaz - na palete komponent mam komponentu
> CompositeReportSinea, o niz neni v dokumentaci ani zminka. K
> cemu je dobra?
To by melo byt prave to, s cim tato diskuse zacinala.
Tato komponenta by mela slouzit ke spojeni nekolika dilcich sestav
z ruznych i stejnych datovych zdroju do jedne sestavy.
Bohuzel, pro nedostatek casu toto neni zatim dodelano.
Vaclav Krmela
Divne chovani fileexists()
[*] delphiko <delphi(zv)kopr(tec)cz> - 24.1.2001 12:04:13
RE: Divne chovani fileexists()podobne problemy jsem mel v Paragoxu. Zkus veskere nazvy souboru psat velkymi pismenky.
Pavel ZIDEK
----- Original Message -----
From: Bene# Jaroslav
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, January 24, 2001 10:07 AM
Subject: RE: Divne chovani fileexists() Tohle se mi stalo taky na W98.
Jaro B.
>pri pouziti fce fileexists() z sysutils na prokazatelne existujici soubor na lokalnim disku mi tato funkce tvrdosijne vracela
>false.Prava,atributy atd. k souboru normalni jako u jinych souboru ve slozce, ktere normalne fungovaly.Nepomohl ani
>restart.Pomohlo teprve presunuti souboru do jine slozky a jeho nasledne navraceni do puvodni lokace, pak uz bylo vse v
>poradku.Co to ?? Da se teto funkci, respektive findfirst() verit 20
Pou��v�m D5prof na W2000
Dekuji
Lada Maly
malyl(zv)atlas(tec)cz
desatinne cislo
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 24.1.2001 12:06:12
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Nazdar, na to jsou uz hotove fce, ne?
function Frac(X: Extended): Extended;
The Frac function returns the fractional part of the argument X.
function Int(X: Extended): Extended;
Int returns the integer part of X; that is, X rounded toward zero. X is a
real-type expression.
function Trunc(X: Extended): Int64;
The Trunc function truncates a real-type value to an integer-type value.
Tomas
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ing. Pavel �ilinec
Sent: Wednesday, January 24, 2001 10:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: desatinne cislo
DIV je celociselne deleni a MOD je zbytek po celociselnem deleni - viz
primo help.
Predpokladam, ze to chces udelat v DELPHI.
The value of x div y is the value of x/y rounded in the direction of zero
to the nearest integer.
The mod operator returns the remainder obtained by dividing its operands.
In other words, x mod y = x - (x div y) * y.
Zdravim,
mam taku blbu otazku ale akosi mi to nepali.
Mam desat. cislo, napr. 8.5 - typ real
potrebujem z toho vybrat celu cast a desatinnu cast a nechcem s tym
robit ako s retazcom.
Martin
uzamceni adresare aplikaci?
[*] Mion <mion(zv)quick(tec)cz> - 24.1.2001 12:17:17
Mam nasledujici problem (OS WinNT4.0 Wks).
Pokud ve sve aplikaci vyberu nejaky adresar a nactu si nektery jeho
soubor, nejsem nasledne schopen zmenit jmeno tohoto adresare, nebo jej
presunout jinam, a to az do skonceni me aplikace. Hlasi mi to, ze
adresar je uzamcen bezicim procesem. Pritom v te chvili jsou vsechny
soubory jiz uzavreny.
Menit nazev toho adresare (anebo jej presouvat) mohu az po restartovani
me aplikace.
Diky za radu
Michal Ondrej
mion(zv)quick(tec)cz
Win2000
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 24.1.2001 12:19:51
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
RE: Win2000AHoj..
WINS mam prazdne a abych se priznal, nevim na co to presne je.
Ostatni to taky maji prazdne.
----- Original Message -----
From: Maly(zv)pds.pce.cdrail(tec)cz
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, January 24, 2001 10:56 AM
Subject: RE: Win2000
Ahoj
mas spravne nastaveny WINS v TCPIP 20
Lada Maly
> -----P�vodn� zpr�va-----
> Od: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
> Odesl�no: 24. ledna 2001 8:39
> Komu: forum
> P�edm�t: OT: Win2000
>
>
> Ahoj.
> Uz jsem to tady jednou psal, ale porad na to nemuzu prijit.
>
> Mam W2000 Prof. Sit je na NOVELLU, tedy SPX a Protokoly TCPIP
> pro inet.
> Mam nastaveny klient site Windows, ale nevidim okolni
> pocitace, jen ten svuj
> a novelovske servery.
> Pritom okolni pocitace vidi me a prihlasi se i k tomu co sdilim.
>
> Nevite nekdo co s tim20
>
>
>
>
>
Co je to PHP?
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 24.1.2001 12:53:49
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nu, mam jednoduchou otazku.
Co je to PHP?
Nevim o tom nic a vy tu o tom mluvite.
Diky moc, Michal
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" />
Butonek ?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.1.2001 13:05:09
Ahoj
mel bych maly dotaz.
Potrebuji k listboxu strcit header ale tak, aby byl v ramci komponenty.
Ty mas tlacitko u editu a tak jsem se chtel poptat jak se to dela.
Diky.
Jaro B
OT: Algoritmus pro BTree
[*] mkotaska(zv)atlas(tec)cz - 24.1.2001 14:09:11
Ahoj,
omlouvam se za OT, ale problem resim prave v Delphi.
Mam tridu, prostrednictvi ktere je vytvoren obecny BTree, tj. pocet nasledniku neni omezen.
Potrebuji proceduru, ktera dokaze vypsat vsechny cesty od korene do jednotlivych listu stromu.
Resil nekdo podobny problem? Nebo ma nekdo napad?
Dekuji za kazdy namet.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
uzamceni adresare aplikaci?
[*] delphiko <delphi(zv)kopr(tec)cz> - 24.1.2001 14:39:41
Ja mam podobny.
Zalozim obycejny textovy soubor. Cosi do neho zapisu a uzavru.
Po opetovnem otevrenim, zadanim Append a uzavrenim. se na disku nic nedeje.
Az vypadnu z programu. dale mohu delat cokoli a po nastartovani programu,
ktery do tohoto txt souboru zapisoval, se data do tohoto souboru teprve
zapisi.
Pavel ZIDEK
----- Original Message -----
From: Mion <mion(zv)quick(tec)cz>
To: delphi f�rum <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 24, 2001 12:17 PM
Subject: uzamceni adresare aplikaci?> Mam nasledujici problem (OS WinNT4.0 Wks).
> Pokud ve sve aplikaci vyberu nejaky adresar a nactu si nektery jeho
> soubor, nejsem nasledne schopen zmenit jmeno tohoto adresare, nebo jej
> presunout jinam, a to az do skonceni me aplikace. Hlasi mi to, ze
> adresar je uzamcen bezicim procesem. Pritom v te chvili jsou vsechny
> soubory jiz uzavreny.
>
> Menit nazev toho adresare (anebo jej presouvat) mohu az po restartovani
> me aplikace.
>
> Diky za radu
>
> Michal Ondrej
> mion(zv)quick(tec)cz
>
>Debug in design time
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 24.1.2001 15:05:01
Diky za pomoc.
Mam ale s tim problem. Kdyz si v parameters nastavim delphi32.exe a dam LOAD
a pak zmacknu RUN tak se mi zacne spoustet druha instance DELPHI ale napise
mi to 'EPackageError with message Can't load package VCLMid50.' Tento soubor
neexistuje. Muzez mi poradit co s tim?
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 22, 2001 10:37 PM
Subject: Re: Debug in design time
> From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
> > Je mozne abych mohl ladit (nastavit si break point) svou vlastni
componentu,
> > kdyz ji z tool boxu umistim na formular a menim si vlastnosti?
>
> Ahoj,
>
> ladeni kodu v design time mozne je. Otevri si balicek ve kterem mas svoji
> komponentu, v Run | Parameters vyber jako Host Application Delphi IDE
(tedy
> soubor Delphi32.exe), zmackni Load a pak Run. Tim se ti spusti druhe IDE,
kde
> muzes vlozit komponentu, jejiz kod ladis v prvni instanci IDE. Toto
funguje v
> D5, v D4 jsou s tim pry problemy, navic je dobre mit stabilni OS (tedy
WinNT)
>
> Petr Vones, amatersky programator
>
>PRIPLACNOUT TEXT
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 24.1.2001 15:07:54
Hazi mi to chybu constant expression expected. To nevim co je no a pak jedna vec.
Tohle slouzi k priplacnuti clipboardu. Ale ja nechci ten text presouvat do clipbordu a pak ho
vlozit (tim bych se zdrzel a zrusil si clib.) a i kdybych si docasne data z clib. presunul jinam
a pak zase zpet tak kdybch mel napr. v clib. obrazek tak by to celkem zdrzovalo. Potreboval
bych nejake elegantnejsi reseni nevite? Priplacnout text do aktivniho okna tam kde je cursor.
?????????
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)seznam(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> SendMessage( handle, WM_PASTE, 0, 0 )
> Brano
>
>
> >
> > Chtel bych na horkou klavesu ve winech priplacnout nejaky text
> > tam kde se prave nachazi kurzor.
> > Ty hotkeys uz mam vychytany v celym systemu ted jen jak poslat
> > text na vystup?
> > Neni to neco s SendMessage(handle,WM_char,?,?); nevim. poradte.
HTML Highlighting
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.1.2001 15:46:02
Ahoj,
misto Richeditu pouzij SynEdit (http://synedit.sourceforge.net), kde
bez prace mas zvyraznovaci, co hrdlo raci. RichEdit neni na tohle
staven.
Slavek
PS: Jinak nepis v html, podivej se, cos napsal a uprav si datum v
pocitaci.> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <HTML><HEAD>
> <META content=3D"text/html; charset=3Diso-8859-2" =
> http-equiv=3DContent-Type>
> <META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
> <STYLE></STYLE>
> </HEAD>
> <BODY bgColor=3D#ffffff>
> <DIV><FONT face=3D"Arial CE" size=3D2>Dobry den,</FONT></DIV>
> <DIV><FONT face=3D"Arial CE" size=3D2>pot=F8ebuji pomoc=ED komponenty =
> richedit ud=EClat=20
> editor, kter=FD bude zv=FDraz=F2ovat HTML. Nev=EDm, ale jak =
> ur=E8it richeditu, =BEe m=E1=20
> ur=E8it=E9 =E8=E1sti textu nastavit ur=E8it=E9 textattributes. Zkou=B9el =
> jsem to pomoc=ED=20
> selstart, sellenght a n=E1sledn=EC nastaven=EDm selattributes. Toto sice =
> funguje, ale=20
> p=F8i zpracov=E1n=ED trochu del=B9=EDho dokumentu je to velmi pomale! =
> Pot=F8eboval bych=20
> poradit jak mam ke m=ECn=ECn=ED textattributes =E8asti textu =
> p=F8istupovat p=F8=EDmo (bez=20
> ozna=E8ov=E1n=ED textu v richeditu).</FONT></DIV>
> <DIV><FONT face=3D"Arial CE" size=3D2> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> P=F8eji p=ECkn=FD den,</FONT></DIV>
> <DIV><FONT face=3D"Arial CE" size=3D2> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> =
> =20
> Jan=20
> Kravar</FONT></DIV></BODY></HTML>
>
> ------=_NextPart_000_001C_01C03556.B2B17DD0--
>
Setrete vodou. Sprchujte se s pritelem/pritelkyni.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Delhpi
[*] Ing. Jiri Brothanek <brothanek(zv)seznam(tec)cz> - 24.1.2001 16:21:11
Pokud vim, tak v prodeji je v cestine pouze "Mistrovstvi v Delphi 4" Tom
Swan (Computer Press) asi 800 stran i Kc.
a prechazime na Delphi 5 Ludek Svoboda (asi ne pro zacatek).
Osttatni jsem nemel v rukach.
Zravi Jirka
----- Original Message -----
From: "Jaroslav #�hal" <cihal(zv)mppraha(tec)cz>
To: "Delphi-L(zv)Fwd. Cz" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 11:03 AM
Subject: Delhpi
> V Delphi za��n�m poprv�. M��ete mi pros�m n�kdo poradit n�jakou dobrou
> literaturu(Delphi 5) a odkaz na p�ede#l� konference v Delphi.
> d�kuji mnohokr�t
> #�hal Jaroslav
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
>
>
>
Outlook Express 5.5 kontra Win95/98 Logo Applicati
[*] Ing. Jiri Brothanek <brothanek(zv)seznam(tec)cz> - 24.1.2001 16:36:23
Zdravim.
Diky moc opravil jsem takto a funguje.
MError := MapiSendMail(0, Application.Handle, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
Nebylo by dobre nahlasit to u Inprise, tam kde je to treba ? Jde prece jenom
o vzorovou aplikaci z Objeckt repository a kdyz to nefunguje nevypada to
zrovna nejlip. V poslednim update to rozhodne nemaji, ten jsem si stahl.
Jirka
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: "Ing. Jiri Brothanek" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 23, 2001 9:59 PM
Subject: Re: Outlook Express 5.5 kontra Win95/98 Logo Application D5
> 23.1.2001 Ing. Jiri Brothanek :
> > Zdravim.
>
> > Do doby, nez jsem instaloval MS Explorer 5.5 Cz, jsem nemel problem.
(Mel
> > jsem
> > 4.0 Cz.) Po instalaci mi prestala chodit aplikace, ze ktere vytvarim
novou
> > zpravu. (Pokud se nevyjadruji presne, omlouvam se.)
>
> > V podstate si to kazdy muze odzkouset :
>
> > 1. File
> > 2. New
> > 3. Zalozka Projects
> > 4. Win 95/98 Logo application
> > 5. Run
> > 6. Staci kliknout na ikonu Send
> > 7. Pokud Vam to bude reagovat jako mne, tak se prepnete na okno s kodem
a
> > doporucuji CTRL F2 (ale to kazdy Delfik zna)
>
> > Otravoval jsem s tim nekolik kamaradu na podnikovych sitich (poslal jsem
jim
> > exe) a vsichni ucinili stejnou zkusenost (bez problemu na Netscape a
> > nizsich verzich IE).
>
> > Vi nekdo, co s tim ? Byl bych velmi vdecny za radu.
>
> > Jirka.
>
> Pri volani MapiSendMail musis predat jako handle nadrizeneho okna
> Application.Handle (tusim je to prvni parametr).
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
>
>