Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TOleContainer
[*] Peter Suv�k <suvak(zv)rebeca.sct.sk> - 8.9.2000 08:36:14
Nevie niekto ako dostat original suboru natiahnuteho do TOleContainer
metodou CreateObjectFromFile? Ak pouzijem metodu SaveAsDocument, funguje to
iba pri Worde a Exceli, ak chcem takymto sposobom dostat napr. obrazok bmp,
tak to ulozi iba ako OLE objekt. Ja vsak potrebujem ten original. Ako na to?
Peter Suvak
Explorer
[*] sup(zv)svitap(tec)cz - 8.9.2000 8:44:50
>Prijemny den,
> D4 Standard, W95 OSR2.
>
>Zjistil jsem zajimavou vec. Pokud chci, aby nejaka moje aplikace chodila ve
>windows misto Exploreru (Nabidka Start, lista, ikony na plose), jak se tady
>uz o tom psalo, staci muj program nakopirovat na C:\ Tento korenovy adresar
>ma prednost (aspon na mych W95 OSR2) pred C:\windows. Takze neni treba
>soubor Explorer.exe nekam schovavat, nebo ho prejmenovavat. Po smazani me
>aplikace (soubor C:\explorer.exe) se po restartu automaticky obnovi funkce
>windows (spusti se C:\windows\explorer.exe).
>
Pekny, ale nechodi to pod W98... Vyzkouseno na 5 pocitacich...
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Explorer
[*] L. ZITA <konference(zv)sales(tec)cz> - 8.9.2000 08:51:50
Behalf Of Josef Straka
> Prijemny den,
> D4 Standard, W95 OSR2.
>
> Zjistil jsem zajimavou vec. Pokud chci, aby nejaka moje aplikace
> chodila ve
> windows misto Exploreru (Nabidka Start, lista, ikony na plose),
> jak se tady
> uz o tom psalo, staci muj program nakopirovat na C:\ Tento
> korenovy adresar
> ma prednost (aspon na mych W95 OSR2) pred C:\windows. Takze neni treba
> soubor Explorer.exe nekam schovavat, nebo ho prejmenovavat. Po smazani me
> aplikace (soubor C:\explorer.exe) se po restartu automaticky obnovi funkce
> windows (spusti se C:\windows\explorer.exe).
>
> Zacinajici programator Straka Josef
> email: strakaj(zv)hba(tec)czn(tec)cz
> www: http://mujweb(tec)cz/www/strakaj/
>
Ahoj.
Delas to myslim spatne.
Pokud chces regureln nahradit explorer.exe mas na to
volbu shell v souboru system.ini sekce boot.
Zkus treba totot :
[boot]
...
shell=notepad.exe
...
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Zdilene Bookmarks - Open Source Project
[*] voltrr1.epr(zv)mail.cez(tec)cz - 8.9.2000 07:52:49
Hi All!
koukal jste nekdo na LUPU a diskusi o paradigmatu Inetovych aplikaci ??
Vypadlo z toho par navrhu a jeden z nich byl i klient umoznujici zdileni
bookmarku.
Uplne si to rika o realizaci v open source.
Mel by jste nekdo zajem na tom spolupracovat ?
Radek
Neviditelny TPanel
[*] Lauko �tefan <lauko(zv)salamon.sk> - 8.9.2000 08:52:17
Ahoj,
ja pouzivam TFrame asi to nebude uplne ono ale podobne sa to sprava.
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 10:26 PM
Subject: Neviditelny TPanel
> Zdravim.
>
> Potreboval by som komponentu identicku TPanel, ale aby bola priesvitna.
> Potrebujem zoskupit viac komponent aby volali po opusteni celej skupiny
> OnExit, ale mozu byt rozmiestnene po celom forme a aby sa neprekryvali
> ostatne komponenty alebo panely a inym panelom.
>
> Dakujem.
>
> Roland.
>Paradicka...
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 8.9.2000 08:54:18
Samozrejme ze to jde. Muzes na to jit i bez te komponenty, jen pomoci API
funkci jako CreateRgn a dalsi. Dokonce na to mam i sadu free komponent, jen
doufam, ze tady. Napis, budes-li je chtit.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Adam Feistner [mailto:feistna(zv)volny(tec)cz]
Sent: Friday, September 08, 2000 4:27 AM
To: Delphi konference
Subject: Paradicka...
Co myslite, slo by udelat pruhledny form (treba pomoci coolform komponenty)?
Bylo by to vazne doost dobry...
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
adresa tejto newsgrupy
[*] Lauko �tefan <lauko(zv)salamon.sk> - 8.9.2000 09:06:16
--
Vitejte v konferenci "delphi-l"!
Prosim, ulozte si tuto zpravu pro budouci pouziti. Dekujeme.
Pokud se budete chtit z konference odhlasit,
poslete e-mail na adresu <Majordomo(zv)fwd(tec)cz> s nasledujicim
prikazem v tele vaseho e-mailu:
unsubscribe delphi-l
nebo z jineho konta nez je lauko(zv)salamon.sk:
unsubscribe delphi-l lauko(zv)salamon.sk
Pokud se nekdy budete potrebovat spojit se spravcem konference
(jestlize budete mit problemy s odhlasenim ci dotazy ohledne
konference samotne), poslete e-mail na adresu
<owner-delphi-l(zv)fwd(tec)cz> .
Toto je obecne pravidlo pro vetsinu mailovych konferenc v pripade
ze potrebujete kontaktovat cloveka.
Atd...
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 7:34 AM
Subject: Re: adresa tejto newsgrupy
> www.delphi(tec)cz, teda jestli si to spravne pamatuju
>
> ----- Original Message -----
> > Mohol by mi niekto napisat adresu na ktoru sa prihlasit/odhlasit do/z
> tohoto
> > listu?
> Jmeno pocitace
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 8.9.2000 09:26:32
Omlouvam se jeste jednou, prave se mi podarilo nalezt funkci ktera to dela
primo v Delphi
pokud to snad nekoho zajima je to nasledujicich par radku
*****
var
p:Pchar;
size:Dword;
getcomputername:string;
begin
size:=MAX_COMPUTERNAME_LENGTH+1;
p:=stralloc(size);
windows.getcomputername(p,size);
getcomputername:=p;
strdispose(p);
end;
************
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Vojtek Jiri
Sent: Friday, September 08, 2000 7:45 AM
To: Delphi prispevky
Subject: Jmeno pocitace
Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
Page
takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
jmenuje
tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
funguje a posle popis:-) Diky. J. Vojt
Jmeno pocitace
[*] Roman �ev��k��������(��h�̿ - 8.9.2000 09:31:00
Ja pouzivam toto:
function GetName: string;
var
user: PChar;
l: DWord;
begin
l := 1024;
user := StrAlloc(Succ(l));
if GetComputerName(User, l) then
Result := StrPas(user)
else
Result := '1';
StrDispose(User);
end;
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Vojtek Jiri
Sent: Friday, September 08, 2000 7:45 AM
To: Delphi prispevky
Subject: Jmeno pocitace
Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
Page
takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
jmenuje
tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
funguje a posle popis:-) Diky. J. Vojt
DLL a 16 a 32bit
[*] Tibor Galik <TGalik(zv)vsz.sk> - 08.9.2000 09:40:06
Prosim o radu,
- ako do D4 zakomponovat volanie funkcii zo 16bitoveho DLL-ka ?
prosim o nejaky priklad
- da sa nejako zistit ci aplikacia je 16 alebo 32 bitova ?
dakujem
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Zapis do WinNT logu
[*] <mivaprog(zv)centrum(tec)cz> - 08.9.2000 09:48:56
Zdravim,
prosim pekne o radu.
Potrebuji simulovat hlaseni jinych programu do logu WinNT. Dokazu
zapsat do logu vse potrebne, ale system mi tam uz nedoplni
prislusny textovy popis udalosti.
Jsem schopen vytvorit udalost (napr. start EventLogu ...), ktera
na venek vypada uplne stejne jako ta co pise system sam (tzn.
Source, Category, Event ID, User ... vsechno je stejne), ale u me
udalosti se jiz nedoplni popis s hlaseni ze ho nebylo mozne
nalezt.
Uz si s tim vazne nevim rady.
Diky predem za jakekoliv popostrceni.
MiVa
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Jmeno pocitace
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 8.9.2000 09:52:17
jenze timhle ziskate Windowsi jmeno pocitace (respektive jmeno
dle NetBIOSu), a totyo jmeno nemusi mit zbla nic spolecneho s
DNS jmenem pocitace, a uz tuplem nemusi mit vubec nic
spolecneho s IP adresou pocitace. Existuje vzdy, byt treba ani
neni v pocitaci zadne TCP/Ip pritomno...> Omlouvam se jeste jednou, prave se mi podarilo nalezt funkci ktera to
> dela primo v Delphi pokud to snad nekoho zajima je to nasledujicich
> par radku
>
> *****
> var
> p:Pchar;
> size:Dword;
> getcomputername:string;
>
> begin
> size:=MAX_COMPUTERNAME_LENGTH+1;
> p:=stralloc(size);
> windows.getcomputername(p,size);
> getcomputername:=p;
> strdispose(p);
> end;
> ************
>
>
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Vojtek Jiri Sent: Friday, September 08, 2000 7:45 AM To: Delphi
> prispevky Subject: Jmeno pocitace
>
>
> Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
> pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's
> Delphi Page takova komponenta existuje. Nemuzu ji ale najit. Pokud
> nekdo vite jak se jmenuje tak se prosim podelte. Nejlepsi by bylo
> pokud ji nekdo pouzil a vi jak funguje a posle popis:-) Diky. J. Vojt
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
MS SQL 7 - pripojeni aplikace
[*] Robert Kindl <rob(zv)exec(tec)cz> - 8.9.2000 09:03:58
> > To vyzera na problem s komunikaciou. Pravdepodobne to vobec nesuvisi s
> > Delphi. V prvom rade by si mal skusit, ci sa daju vykonavat SQL dotazy z
> > Query Analyzer-a na tom istom pocitaci na ktorom Ti delphi hlasi tie
> chyby.
> > Predpokladam, ze to tak isto nepojde. Problem bude pravdepodobne v
sieti.
> > Este zakladna vec... skontroluj ci vobec bezi servis "MSSQLServer" na
> > serveri, teda ci je spusteny SQL server.
> >
>
> No to je prave divny, ze ostatni sitove veci jedou normalne. Z Query
> Analyzeru
> po siti se do databaze muzu divat jak dlouho chci a nic se nedeje.
> Servis bezi, jinak by to vubec nejelo (si myslim). Jede to chvili a
> po case to teprve spadne.
> Nevim jestli mam preinstalovat cely MS SQL znovu, nebo povymenovat
> datove komponenty v aplikaci, nebo oboji ?
> Mam zkusenost, ze ty cas od casu zlobi
> (vypadnou parametry ze StoredProcedur apod.)
No ja bych nejdrive povymenoval sitove prvky (HUB&spol).
U nas to napr. z jedne casti site pri pripojeni pres jeden konkretni sitovy
prvek
ma tu neprijemnou vlastnost ze vse trva 10x dele nez z ostatni casti site.
Problem se pritom projevu jen pri pouziti Delphi3.02&BDE5.11
a v nastaveni klienta MSSQL serveru je protokol NamedPipes.
Po prepnuti na protokol TCP/IP je to OK i z Delphi&BDE.
Ostatni aplikace (Query Analyzer, posta, fileserver, internet)
to vse jede OK stale bez ohledu na cas a misto a nastaveni.
Jen Delphi pres NamedPipes jsou jak snek.
A je to zpusobeno tim sitovym prvkem (vytrh jsem kabel a dal jsem
ho do jineho a uz to bylo OK).
Rob
Volani vzdaleneho COM objektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.9.2000 10:06:49
On 8 Sep 2000, at 0:03, Tomas Bradle wrote:
> predpokladam teda, ze na W2000 je ten COM server
Tak.
> > > 5) na jine moznosti bych si mozna jeste vzpomnel, dost pomuze
> > > textova prezentace vyjimky, kterou vraci ten nezdareny pokus o
> > > pripojeni)
> >
> > Access denied.
>
> Tak to budou pristupova prava.
>
> Nevim do jake hloubky znas prist prava na NT (w2000). Uzivatel, ktery
> je prihlasen na tech w95 musi byt i nadefinovan v tech W2000 (myslim,
> ze i se stejnym heslem) a musi mit prist pravo i pro ten COM objekt.
> Na prava COM objektu je prave ten DCOMCNFG.EXE. Vyberes nazev aplikace
> - to je help string z typove knihovny ty CoClass, ktery se to tyka.
> Smacknes Vlastnosti a na zalozce zabezpeceni upravis vlastni
> pristupove opravneni a vlastni opravneni ke spousteni. Chce to trochu
> experimentovat, protoze moznosti je tam vice. Napr. pokud potrebujes
> pouze jednu instanci pro vsechny uzivatele, tak musis v zalozce
> Identita zadat konkretniho uzivatele na jehoz ucet aplikace pobezi.
No, neznam. Ani jsem zatim nezjistil, jak povolit druhemu pocitaci
vstup ke sluzbam na W2000. Muzes v tom nejak poradit?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jmeno pocitace
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 8.9.2000 10:07:25
>Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
>pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
>Page
>takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
>jmenuje
>tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
>funguje a posle popis:-) Diky. J. Vojt
AHOJ,
naco komponenta... , mozno je o co hladas, funkcia Ti vrati "nazov"
pocitaca:
function TFormOptions.GetCurrHostName: String;
var
ComputerName: String;
Size: Cardinal;
begin
Result := EmptyStr;
Size := 64;
SetLength(ComputerName, Size);
if GetComputerName(PChar(ComputerName), Size) then
begin
ComputerName := PChar(ComputerName);
Result := AnsiLowerCase(ComputerName);
end;
end;
Jano
uzivatel na WinNT
[*] <mivaprog(zv)centrum(tec)cz> - 08.9.2000 10:09:26
Zdravim,
nevite nekdo jakym zpusobem zjistit zda urcity sitovy pocitac (s
WinNT) je dostupny a jestli je na nem prihlasen nejaky uzivatel.
Diky predem vsem
MiVa
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Jmeno pocitace
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 8.9.2000 10:13:25
> Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
> pocitace na kterem bezi muj program. Dostal jsem tip, ze na
Neni treba komponenty.
uses Registry;
var
reg:TRegistry;
jmenoPC:String;
begin
reg:=TRegistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
try
reg.OpenKey('\System\CurrentControlSet\control\ComputerName\ComputerName',
true);
jmenoPC:=reg.ReadString('ComputerName');
finally
reg.free;
end;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Jmeno pocitace
[*] Petr Vale� - 8.9.2000 10:14:48
Ja byc to zkusil vytahat nekde z registru ne ?
PETR.
----- Original Message -----
From: Vojtek Jiri <j_vojtek(zv)del(tec)cz>
To: Delphi prispevky <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 08, 2000 7:44 AM
Subject: Jmeno pocitace
> Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
> pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
> Page
> takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
> jmenuje
> tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
> funguje a posle popis:-) Diky. J. Vojt
W2K & NET
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 08.9.2000 10:23:08
Ahoj,
tohle PWS je zbytecne, protoze na W2k Profes. uz je
automaticky IIS v5, tak na co PWS?
Ale k puvodnimu problemu: uz na WfWkg 3.11 neslo nastartovat
PC se sitovkou, ale bez site. Tehdy se to dalo vyresit
pripojenim kusu kabelu s T-ecky a terminatory na koncich,
kdyz to byla sitovka pro koax (BNC). Treba to pujde
i na W2000 :-)
### honza-world napsal dne 7 Sep 00, v 17:15 :
Od: "honza-world" <honza.kachlik(zv)worldonline(tec)cz>
> Nazdarek .....
> Co takhle pouzit Personal Web Server PWS. Mel by byt standartne k
> dyspozici na instalacnim CD Windows. Pomoci tohoto nastroje muzete
!!!!!!!!!
...s tou kritikou ciziho pravopisu bych byl opatrnejsi...
(dIspozici a standarDne to melo byt, ze :-))> Vsiml jsem si ze
> vam nejde cestina :), klidne muzete psat v Anglictine mne to nevadi
.. S
> pozdravem Honza
>
> ----- Original Message -----
> From: Raul Endymion <raul.endymion(zv)ns1.infima(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, September 06, 2000 11:15 AM
> Subject: W2K & NET
>
>
> > Lidi promin OT, ale vyreseni tohoto problemu mi pomuze psat
programky
> > v delphach..
> > Mam W2K a nosim je z prace domu s celym pocem..
> > V praci mame sit, doma ne a v tom je problem..
> > Moje CGI applikace se odkazuji na IP adresy..
> > Z mnoha duvodu nemuzu doma pouzit localhost (127.0.0.1)..
> > Ovsem pokud w2k nemaji pripojeny kabel k siti IP adresa
nenabehne.. V
> > NT/95/98 toto vzdy fungovalo.. Nezalezi mi na tom, ze nemuzu na
sit,
> > ale potrebuju nabehlou sitovku s danym IP.. nebo jine rozhrani s
timto
> > nebo jinym IP.. (nejlepe i vice nez jednim, DNS server,
mailserver
> > apod..) nevite jak zapnout sit ve w2k natvrdo ? Dekuji budu vam
> > nesmirne zauzlovan...
> >
> > Raul mailto:raul.endymion(zv)bsdi.infima(tec)cz
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Problem s TBlobStream
[*] Lubo Fule <fule(zv)rebeca.sct.sk> - 8.9.2000 10:23:29
> Cau mam problem s tblobstream, pokud do nej nacpu data ve
> formatu PCHar pres promenou tak se zapisi jen blbosti a ne
> zadane data. Pokud tam napisu primo text tak je vse v
> poradku. Potrebuju tam psat pres promenou. Nevite nekdo jak na to ?
>
> Prikladek:
>
> procedure TFZaci.PlnSourozence;
> Var StreamJ: TBlobStream;
> Retezec: PChar;
> begin
> With JData.TZaci Do
> Begin
> Edit;
> StreamJ:=
> TBlobStream.Create(FieldByName('Souroz_Jmena') as TBlobField,
> bmReadWrite);
> StreamJ.Position:= 0;
> StreamJ.Truncate;
> Retezec:= PChar('��� �����');
> StreamJ.Write(Retezec, Length(Retezec));
Tu je chyba, takto sa tam zapisuje priemo smernik. Ak sa ma zapisat to, na
co odkazuje smernik, tak to musi vyzerat tako:
StreamJ.Write(Retezec^, Length(Retezec));
a este namiesto Length je v tomto pripade lepsie pouzit StrLen, teda:
StreamJ.Write(Retezec^, StrLen(Retezec));
>
> StreamJ.Write('��� �����',Length('��� �����'));
> //Takle to funguje
>
> Post;
> End;
> end;
>
> Dik Ladap
uzivatel na WinNT
[*] <mivaprog(zv)centrum(tec)cz> - 08.9.2000 10:27:52
Zdravim,
nevite nekdo jakym zpusobem zjistit zda urcity sitovy pocitac (s
WinNT) je dostupny a jestli je na nem prihlasen nejaky uzivatel.
Diky predem vsem
MiVa
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
IBDI] ANN: IBReplicator availability
[*] pcb(zv)atlas(tec)cz - 8.9.2000 10:33:23
------- Forwarded message follows -------
To: IBDI <IBDI(zv)egroups.com>
From: Vince Duggan <vince(zv)synectics.co.za>
Date sent: Fri, 08 Sep 2000 10:20:43 +0200
Send reply to: IBDI(zv)egroups.com
Subject: [IBDI] ANN: IBReplicator availability
Hello all,
Good news! Inprise and Synectics have reached an agreement on the sale
of IBReplicator, the replication engine for Interbase 5 and 6.
By early next week, we will have the product available on our web site.
We are busy setting up a proper e-commerce link so that we can sell
online.
The long wait is finally over, and your patience is appreciated.
Regards
Vince
--
Vince Duggan
Synectics Software
Inprise C/S Business Partner
South Africa
http://www.synectics.co.za
mailto:vince(zv)synectics.co.za
Community email addresses:
Post message: IBDI(zv)onelist.com
Subscribe: IBDI-subscribe(zv)onelist.com
Unsubscribe: IBDI-unsubscribe(zv)onelist.com
List owner: IBDI-owner(zv)onelist.com
Shortcut URL to this page:
http://www.onelist.com/community/IBDI
------- End of forwarded message -------
Jmeno pocitace
[*] martin.falta(zv)obi.de - 8.9.2000 09:34:24
Ahoj,
pouzij API funkci GetComputerName.
BOOL GetComputerName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);
Martin
---------------------- Weitergeleitet von Martin Falta/OBI/CZ am 08.09.2000
09:41 ---------------------------
Von: j_vojtek(zv)del(tec)cz(zv)fwd(tec)cz am 08.09.2000 07:44 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: Jmeno pocitace
Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
Page
takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
jmenuje
tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
funguje a posle popis:-) Diky. J. Vojt
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Jmeno pocitace
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 8.9.2000 10:36:11
function ComputerName: String;
var Buf: array[0..254] of char;
Len: DWord;
begin
Len:=254;
GetComputerName((zv)Buf,Len);
Result:=String(Buf);
end;
----- P�vodn� zpr�va -----
Od: Vojtek Jiri <j_vojtek(zv)del(tec)cz>
Komu: Delphi prispevky <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. z��� 2000 7:44
P�edm�t: Jmeno pocitace
> Omlouvamse za tak primitivni dotaz, ale potrebuju zjistit jmeno
> pocitace na kterem bezi muj program. Dostal jsem tip, ze na Torry's Delphi
> Page
> takova komponenta existuje. Nemuzu ji ale najit. Pokud nekdo vite jak se
> jmenuje
> tak se prosim podelte. Nejlepsi by bylo pokud ji nekdo pouzil a vi jak
> funguje a posle popis:-) Diky. J. Vojt
>
>wise installer na NT
[*] Daniel Fojt�k <xfojtik(zv)albert.osu(tec)cz> - 8.9.2000 10:50:46
Mam jeden drobny problem s instalackou na NT. Mam vytvoreny instalacni
program ktery vytvari ini soubor. Pod win95, win98 vse probehne v poradku.
Naopak pod NT ikdyz jsem prihlasen jako administrator na konci instalace
dojde k chybe: "You don't have access to make the required system
configuration modifications. Please rerun this instalation from an
administrators account." Vsechny podrebne udaje se zapisou do registru a
vsechny soubory jsou na svem miste. Jenom zminovany ini soubor se
nevygeneruje. Nevite kde muze byt problem???
Predem diky, Dan
P.S.: myslel jsem si ze je problem s vytvarenim souboru a ze mi pomuze kdyz
mu prazdny ini soubor predem nakopiruju, ale nepomohlo to...QRRichText
[*] Ji�� Fait���}���6���3 - 8.9.2000 10:55:40
Predpokladam ze mas nastavene
AutoSize := false
AutoStretch := true;
a vysku komponenty tak n jeden radek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jiri Kral
Sent: Thursday, September 07, 2000 3:36 PM
To: delphi-l(zv)fwd(tec)cz
Subject: QRRichText
Ahoj kolegove,
defekuje mne QRRichText. At delam co delam, nezavisle na objemu textu v
pripojene datove polozce zobrazuje na sestave jen 10 radku. Netusi nekdo
proc?
D5+Win NT
Jura
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
AnsiString a BlockWrite
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 8.9.2000 11:03:27
Zdravim,
mam problem (asi jako kazdy, kdo sem pise). Potrebuju do netypoveho souboru
ulozit promennou typu AnsiString pomoci BlockWrite. Problem je v tom, ze
AnsiString je dynamicke pole, takze v promenne je adresa. Kdyz zadam
BlockWritu jako buffer samotnou promennou AnsiString, tak mi to ulozi uplne
neco jinyho, nez co chci (to je tim, ze je to ukazatel, ale na druhou stranu
prece tomu BlockWrite predavam buffer, ci ukazatel na nej, nebo je to
jinak?).
Pretypovani se nedari.
Jak tedy zapsat promennou AnsiString pomoci BlockWrite do souboru ?
Petr
Volani vzdaleneho COM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 8.9.2000 11:28:02
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 08, 2000 10:06 AM
Subject: Re: Volani vzdaleneho COM objektu
> On 8 Sep 2000, at 0:03, Tomas Bradle wrote:
>
> > predpokladam teda, ze na W2000 je ten COM server
>
> Tak.
>
> > > > 5) na jine moznosti bych si mozna jeste vzpomnel, dost pomuze
> > > > textova prezentace vyjimky, kterou vraci ten nezdareny pokus o
> > > > pripojeni)
> > >
> > > Access denied.
> >
> > Tak to budou pristupova prava.
> >
> > Nevim do jake hloubky znas prist prava na NT (w2000). Uzivatel, ktery
> > je prihlasen na tech w95 musi byt i nadefinovan v tech W2000 (myslim,
> > ze i se stejnym heslem) a musi mit prist pravo i pro ten COM objekt.
> > Na prava COM objektu je prave ten DCOMCNFG.EXE. Vyberes nazev aplikace
> > - to je help string z typove knihovny ty CoClass, ktery se to tyka.
> > Smacknes Vlastnosti a na zalozce zabezpeceni upravis vlastni
> > pristupove opravneni a vlastni opravneni ke spousteni. Chce to trochu
> > experimentovat, protoze moznosti je tam vice. Napr. pokud potrebujes
> > pouze jednu instanci pro vsechny uzivatele, tak musis v zalozce
> > Identita zadat konkretniho uzivatele na jehoz ucet aplikace pobezi.
>
> No, neznam. Ani jsem zatim nezjistil, jak povolit druhemu pocitaci
> vstup ke sluzbam na W2000. Muzes v tom nejak poradit?
>
> S pozdravem
>
Nevim jake sluzby mas na mysli, ale v zasade plati hlavne to, ze musis mit
uzivatele z W95 mit nadefinovany se stejnym heslem i ve W2000. Napr s SQL7
jsem takto nemel problemy. Sluzby jako takovy bezi na systemovy ucet, pokud
ovsem nedefinujes jinak (v ovladacich panelech - nastroje na spravu -
sluzby), ale to neni asi potreba.
Tomas
DLL a 16 a 32bit
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 8.9.2000 11:28:53
> - ako do D4 zakomponovat volanie funkcii zo 16bitoveho DLL-ka ?
> prosim o nejaky priklad
Pomoci zpravy WM_COPYDATA se da poslat ukazatel na data z jednoho procesu
jinemu procesu.
V tomto pripade by slo udelat 16-bitovou aplikaci, ktera by byla
prostrednik mezi 32-bitovou a aplikaci a 16-bitovou DLL. Trochu kostrbate,
ale funkcni.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
D3 --> D3.01
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 8.9.2000 11:37:25
Ahoj,
potrebujem update D3 --> D3.01, ale oficialne to uz nik neponuka. Teraz sice
pouzivame D5, ale niektore stare projekty by potrebovali upravy a pre mnohe
nove komponenty je potrebny tento update.
Moze niekto pomoct?
Pavol Stolc
pstolc(zv)sc.sknet.sk
Zip/UnZip
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 8.9.2000 11:52:55
Prosim,
vi nekdo o free (nejlepe se zdroji) komponente na zip a unzip.
Nechci ale zadne, ktere pouzivaji dll.
Uz jsem prosel snad cely net a to co sem nasel mi nevyhovuje.
Petr Smol�k - Trade FIDES a.s.
psmolik(zv)fides(tec)cz
BLOB v StoredProcedure
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 8.9.2000 11:53:17
Ahoj,
prosim o radu skusenejsich.
Situacia: IB 5.6 - vytvoril som si logovaciu proceduru, ktora je spustana
triggerom a ma za ulohu vytvorit logovaci zaznam o zmenach v databaze.
Vzhaldom na to velkost logovanych dat je velmi variabilna pouzil som na
tento ucel pole typu BLOB Sub_Type Text.
Otazka: Ako je mozne v stored procedure vytvorit a naplnit BLOB pole
textovymi udajmi?
Priklad:
Create Table Logging (LogID Integer Not Null, LogText Blob Sub_Type Text);
Create Generator Gen_LogID;
Create Procedure LogData (DocID Integer) Returns (LogID Integer) As
Declare Variable LogText Blob;
Begin
LogID=Null;
LogText=''; /* empty string */
For
Select DocText From Documents /* tabulka s hodnotami pre log */
Where DocID=:DocID
Into :DocText
Do Begin
LogText=LogText||DocText; /* toto sposobi internal error */
End;
LogID=Gen_ID(Gen_LogID, 1);
Insert Into Logging (LogID, LogText)
Values (:LogID, :LogText);
End;
Vidi tu niekto zasadne chyby, resp. riesenie problemu?
Vdaka, Pavol Stolc
pstolc(zv)sc.sknet.sk
AnsiString a BlockWrite
[*] Lubo Fule <fule(zv)rebeca.sct.sk> - 8.9.2000 11:53:45
Skus takto
var s: AnsiString;
.
.
.
BlockWrite(f; s[1]; Length(s))
> ulozit promennou typu AnsiString pomoci BlockWrite. Problem
> je v tom, ze
> AnsiString je dynamicke pole, takze v promenne je adresa. Kdyz zadam
> BlockWritu jako buffer samotnou promennou AnsiString, tak mi
> to ulozi uplne
> neco jinyho, nez co chci (to je tim, ze je to ukazatel, ale
> na druhou stranu
> prece tomu BlockWrite predavam buffer, ci ukazatel na nej, nebo je to
> jinak?).
Zapis do WinNT logu
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 8.9.2000 11:55:07
Nevim jestli Ti to pomuze, ale ja jsem si napsal objekt, kterym do
application logu muzu zapisovat.
Note: Pokud chces, aby se dalo filtrovat v Event Vieweru podle textu,
ktery posles jako FNAME musis ho doplnit jako klic do registry -
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application.
//-------------- SOURCE ------------------------------
type
{: Simple object wrapper for the NT Event Log API}
oBsNTEventLogger = class(TObject)
private
FName: String;
FSID : PSID;
FEventLog: THandle;
protected
// get security descriptor for user
function GetNTUserSID(const UserName: String): PSID;
public
// constructor
constructor Create(const Name, UserName: String);
// destructor
destructor Destroy; override;
// writes message into NT Event log
function LogMessage(Message : String;
CurrNtUser : Boolean = True;
EventType : DWord = EVENTLOG_ERROR_TYPE; // event
type
Category : Word = 0; // specifies the event
category
EventID : DWord = 0): Boolean;
end;//==========================================================================
====
// oBsNTEventLogger Class
//==========================================================================
====
const
cBsSizeOfSID = 32;
constructor oBsNTEventLogger.Create(const Name, UserName: String);
//--------------------------------------------------------------------------
----
// Intitialization of NTEventLogger object.
const
cUnknownNameValue = 'unknown';
begin
// create object
inherited Create;
if Name <> '' then FName:= Name
else FName:= cUnknownNameValue;
// get SID (SecurityID) for logged user
if (UserName <> '') then FSID:= GetNTUserSID(UserName)
else FSID:= nil;
// set event log to closed
FEventLog:= 0;
end;
destructor oBsNTEventLogger.Destroy;
//--------------------------------------------------------------------------
----
// Free NTEventLogger
begin
// free SID for current NT user
if Assigned(FSID) then
FreeMem(FSID, cBsSizeOfSID);
// unregister event source name
if (FEventLog <> 0) then
DeregisterEventSource(FEventLog);
// destroy object
inherited Destroy;
end;
function oBsNTEventLogger.LogMessage(Message : String;
CurrNtUser : Boolean = True;
EventType : DWord = 1;
Category : Word = 0;
EventID : DWord = 0): Boolean;
//--------------------------------------------------------------------------
----
// Write "Message" into NT Event Log.
var
P: Pointer;
SID: PSID;
begin
Result:= False;
try
P := PChar(Message);
// register event source for first time -> open event log
if FEventLog = 0 then
FEventLog := RegisterEventSource(nil, PChar(FName));
// check FEventLog -> if is NULL stop logging
if (FEventLog = NULL) then Exit;
// if is set "CurrNTUser" flag then user SID of current user, else
// write log message as "anonymous" user
if (CurrNTUser) then SID:= FSID
else SID:= nil;
// write event into NT Event Log, return 'True' if function succeeds
Result:= ReportEvent(FEventLog, EventType, Category, EventID, SID, 1, 0,
(zv)P, nil)
except
// on error
Result:= False;
end;
end;
function oBsNTEventLogger.GetNTUserSID(const UserName: String): PSID;
//--------------------------------------------------------------------------
----
// Get user security ID for user "UserName". Return SID for existing NT user
// or 'nil' when an error occured.
var
tempSID: PSID;
peUse: SID_NAME_USE;
SizeOfSID: DWORD;
RefDomainName: array [0..MAX_PATH] of Char;
RefDomainNameSize: DWORD;
begin
Result:= nil;
tempSID:= nil;
try
// alloc memory for security descriptor SID; this memory must be freed
// by FreeMem routine.
GetMem(tempSID, cBsSizeOfSID);
// set type of SID which we want obtain for system
peUse:= SidTypeUser;
RefDomainNameSize:= Length(RefDomainName);
SizeOfSID:= cBsSizeOfSID;
// retrieves a security identifier (tempSID) for the account and the
name of
// the domain (RefDomainNameon) which the account was found.
if (LookupAccountName(nil, PChar(UserName), tempSID, SizeOfSID,
(zv)RefDomainName[0], RefDomainNameSize, peUse)) then
Result:= tempSID;
except
// on exception: free tempSID, return nil
if Assigned(tempSID) then FreeMem(tempSID, cBsSizeOfSID);
Result:= nil;
end;
end;
Petr
-----Original Message-----
From: mivaprog(zv)centrum(tec)cz [mailto:mivaprog(zv)centrum(tec)cz]
Sent: Friday, September 08, 2000 9:49 AM
To: Delphi Forum
Subject: Zapis do WinNT logu
Importance: High
Zdravim,
prosim pekne o radu.
Potrebuji simulovat hlaseni jinych programu do logu WinNT. Dokazu
zapsat do logu vse potrebne, ale system mi tam uz nedoplni
prislusny textovy popis udalosti.
Jsem schopen vytvorit udalost (napr. start EventLogu ...), ktera
na venek vypada uplne stejne jako ta co pise system sam (tzn.
Source, Category, Event ID, User ... vsechno je stejne), ale u me
udalosti se jiz nedoplni popis s hlaseni ze ho nebylo mozne
nalezt.
Uz si s tim vazne nevim rady.
Diky predem za jakekoliv popostrceni.
MiVa
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
NEUKONCENY PROGRAM
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 8.9.2000 11:57:01
On 8 Sep 2000, at 6:41, Parizsky Ladislav wrote:
Halt(0); - a program slitne behem mrknuti oka :))))))
Petr Fischer
> Nevim jestli je to tim, ale nemyslim si ze application.terminate je
> ten spravny zpusob ukonceni programu. Kdyz chces ukoncit program tak
> proste zavri hlavni okno MainForm.Close.
>
> Ladap
>
> >>> kinekus(zv)nextra.sk 7.9.00 9:42 >>>
> D4, W98
>
> Prosim o radu,
>
> pri ukonceni mojej aplikacie, ktora je zabezpecena cez
> applicate.terminate mi sice zatvori form aplikacie ale zostane visiet
> vo W98 ako spustene. Musim to ukoncit cez CTRL-ALT-DEL a natvrdo
> zrusit. Viete mi poradit ako to mam osetrit ?
>
> Dakujem
>
AnsiString a BlockWrite
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 8.9.2000 12:10:20
Dik, to je ono ...
---------
Skus takto
var s: AnsiString;
.
.
.
BlockWrite(f; s[1]; Length(s))FTP - WinInet versus WinSocks
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.9.2000 12:19:56
> Ahoj,
>
> v CGI skripte, ktory bezi pod MS IIS pouzivam
> prenos suborov cez FTP. FTP rozhranie som povodne
> urobil s vyuzitim WININET.DLL, lenze pod MS IIS
> sa mi to nepodarilo rozchodit (pod inymi
> web-servermi to pracovalo normalne).
> Prerobil som to teda na WINSOCKS.
> Narazil som ale na jeden problem.
> Komunikacia (nadvazovanie spojenia a pod.) trva
> vo WinSockets verzii velmi pomaly. U WinInet bola
> odozva prakticky okamzita. Nevie niekto, co
> sposobuje tento rozdiel ?
WinSocks je zakladni knihovna pro praci s TCP/IP - WinInet ji tedy taky
pouziva.
Nejcastejsim zdrojem problemu typu timeout jsou DNS prevody - nejcastejsi
reverzni (prevod IP na jmeno). Je mozne ze FTP server provadi tento prevod a
proto navazani spojeni zdanlive dlouho trva. Dalsi zdroj podobnych problemu
je AUTH sluzba - Unixove stroje maji tendenci zjistovat vzdalenym dotazem,
kdoze to vlastni vzdaleny konec spojeni (pokud se AUTH port (113) nevhodne
firewallne problem je na svete).
Otazkou je proc to ve verzi WinInet chodilo lepe. Celou komunikaci FTP sis
delal sam nebo pouzivas nejakou komponentu? On ten FTP protokol neni zrovna
trivialni ( obsluha datoveho spojeni ) a existuje podle me dost komponent,
ktere to resi malo funkcnim zpusobem.
Zdravi
D. Toman
D3 --> D3.01
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 8.9.2000 12:20:19
Taky bych mel zajem ...
Petr Dana
Petr.Dana(zv)pvt(tec)cz
> Ahoj,
>
> potrebujem update D3 --> D3.01, ale oficialne to uz nik
> neponuka. Teraz sice
> pouzivame D5, ale niektore stare projekty by potrebovali
> upravy a pre mnohe
> nove komponenty je potrebny tento update.
>
> Moze niekto pomoct?
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
> NEUKONCENY PROGRAM
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 08.9.2000 06:41:44 -0400
Nevim jestli je to tim, ale nemyslim si ze application.terminate je ten spravny zpusob ukonceni programu. Kdyz chces ukoncit program tak proste zavri hlavni okno MainForm.Close.
Ladap
>>> kinekus(zv)nextra.sk 7.9.00 9:42 >>>
D4, W98
Prosim o radu,
pri ukonceni mojej aplikacie, ktora je zabezpecena cez applicate.terminate
mi sice zatvori form aplikacie ale zostane visiet vo W98 ako spustene.
Musim to ukoncit cez CTRL-ALT-DEL a natvrdo zrusit. Viete mi poradit ako to
mam osetrit ?
Dakujem
Uvolnenie instancie DCOM objektu
[*] J�n Grman <janog(zv)pluto.elf.stuba.sk> - 8.9.2000 12:42:29
Ahoj (skoro som napisal Ahoj som Chuck Norris !).
Ale vazne. D5-C/S.
Mam aplikaciu ktora poskytuje COM object. Ten COM object je definovany v
DELPHI pomocou triedy TRemoteDataModule.
Pouzivam: Instancing - ciMultiInstance a ThreadingModel = tmFree.
Teda kazdy klient sa napaja na COM/DCOM object ktory bezi v samostatnom
Threade (vlakne).
Problem:
Ked spadne napriklad vypadkom el. vzdialeny klientsky pocitac, potreboval by
som uvolnit konekciu ktora zostala na tejto serverovskej aplikacii (zombie
COM object) !
Momentalne si zapamatavam SMERNIK na instanciu TRemoteDataModule a volam
metodu Free.
Vsetko sa zda v pohode (event TRemoteDataModule.OnDestroy sa zavola) az na
dve veci:
1) po zatvoreni poslednej aktivnej konekcie sa neukonci serverovska
aplikacia !
2) pri pokuse o ukoncenie mi hlasi ze mam stale aktivne COM objekty v
databaze a ci chcem napriek tomu ukonci aplikaciu, potom to padne na chybno
pristupe do pamati a nakoniec to este prida chybu 216.
Rovnake chyby sa stanu aj ked Free nezavolam. Vtedy sa len samozrejme
nevykona event OnDestroy.
Neviem to odladit a preto ak niekto nieco taketo robil a bol uspesny budem
vdacny za typ.
Za vsetky odpovede vopred dakujem.
JaNo.Vice pripojeni do DB, transaction isolation
[*] Ota Maly <maly(zv)space(tec)cz> - 8.9.2000 12:49:32
Ahoj,
jelikoz si myslim, ze tohle je obecny DB problem, ptam se na Vase
zkusenosti..
Pro pripojeni do DB (InterBase) pouzivam TIBDataSet. Mam okno se tremi
zalozkami, kazda zalozka se pripojuje do DB pomoci vlastniho TIBDataSetu.
Commit delam az pri zavreni celeho okna. A tady vznika problem: Pokud neco
modifikuju jednim datasetem (a jeste necommitnu), tak to ten druhy
samozrejme nevidi (IsolationLevel mam ReadComitted), coz je sice spravne,
ale pro me dost nesikovne. Napada me nekolik reseni:
- Pri prechodu z jedne zalozky na jinou udelat na uzivatele dotaz
Commit/Rollback, z hlediska ovladani programu docela nesikovne..
- snizit IsolationLevel na DirtyRead (nebojaxetojmenuje), ale to se mi
VUBEC nechce..
- pouzit jeden IBDataSet (jedno pripojeni), Select umim vytvorit v pohode,
ale neni mi jasne, jak mam delat update nad vice tabulkami. Tohle reseni se
mi zda lepsi, ale co s tim updatem?
Pomuze mi treba udelat vse v ramci jedne transakce? momentalne se o
transakce v podstate nestaram..
D5Prof;NT4;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
TComboBox
[*] Vlado <keder(zv)atlas(tec)cz> - 8.9.2000 12:51:24
Ahoj
Mam jeden mozno trivialny problem s ComboBox-om. Mam pole editov a combo
boxov medzi ktorymi sa uzivatel pohybuje Enterom. Kedze vacsinu hodnot mu
prednastavim, potom sa celym dialogom preklika Enterom. Obcas zmeni hodnoty
v combo boxoch. Hodnotu v boxoch zmeni pomocou sipky dole. Ak ide opat cez
ten combo box a stlaci sipku dole, tak uz ma nasledujucu hodnotu. Ja by som
chcel zabezpecit, aby ked stlaci sipku dole mal tam opat posledne vybranu
hodnotu. Napr.
borovica
dub
smrek
javor
Ak si vyberie dub pri dalsom prechode cez combo box ak stlaci sipku dole aby
tam mal opat dub a nie smrek. Skusal som v udalosti Exit
if TComboBox(Sender).Text<>'' then
begin
s:= TComboBox(Sender).Text;
TComboBox(Sender).ItemIndex:= TComboBox(Sender).ItemIndex-1;
TComboBox(Sender).Text:= s;
end;
Ma to chybu, ze ak sa preklika cez combo box kde som prednastavil hodnotu,
tak sa vykona odcitanie ItemIndex. V podstate mi staci vediet pri Exit
nastavit polozku v combo boxe (akt. polozka -1) bez toho aby sa zobrazila.
Pouzivam D5 Enterprise UpdatePack 1, W2000 Workstation SP 1
Diky za radu
Vlado
QRDBRichText
[*] Jiri Kral <admin(zv)printo(tec)cz> - 8.9.2000 13:46:19
opravka: jedna se o QRDBRichText
>>Predpokladam ze mas nastavene
>>AutoSize := false
>>AutoStretch := true;
>>a vysku komponenty tak n jeden radek
QRDBRichText nema vlastnost Autosize.
Autostretch mam false;
Komponenta ma pevnou vysku tak na 25 radku.
Presto se zobrazi jen prvnich 10.
JK
Problem s TBlobStream
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 8.9.2000 14:30:35
Mozna by stacilo alokovat pamet pro ten PChar. Zkus to, anebo
pouzif String ten se da pretypovat na PCHAR.
> Cau mam problem s tblobstream, pokud do nej nacpu data ve formatu PCHar pres promenou tak se zapisi jen blbosti a ne zadane data. Pokud tam napisu primo text tak je vse v poradku. Potrebuju tam psat pres promenou. Nevite nekdo jak na to ?
>
> Prikladek:
>
> procedure TFZaci.PlnSourozence;
> Var StreamJ: TBlobStream;
> Retezec: PChar;
> begin
> With JData.TZaci Do
> Begin
> Edit;
> StreamJ:= TBlobStream.Create(FieldByName('Souroz_Jmena') as TBlobField, bmReadWrite);
> StreamJ.Position:= 0;
> StreamJ.Truncate;
> Retezec:= PChar('��� �����');
> StreamJ.Write(Retezec, Length(Retezec)); //Takle tam napise kraviny
>
> StreamJ.Write('��� �����',Length('��� �����')); //Takle to funguje
>
> Post;
> End;
> end;
>
> Dik Ladap
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
D3 --> D3.01
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 8.9.2000 14:41:54
Ja to samozrejme mam a jelikoz se to prodavalo pry jen za cenu
CD i kdyz to bylo 700 Kc tak je snad legalni udelat kopii CD a
nekomu za nejakou 100 Kc na naklady poslat. Jsem pripadne i
ochoten, pokud nesezenete nekoho primo v miste bydliste.
Ja jsem v BRNE.
> Taky bych mel zajem ...
>
> Petr Dana
> Petr.Dana(zv)pvt(tec)cz
>
> > Ahoj,
> >
> > potrebujem update D3 --> D3.01, ale oficialne to uz nik
> > neponuka. Teraz sice
> > pouzivame D5, ale niektore stare projekty by potrebovali
> > upravy a pre mnohe
> > nove komponenty je potrebny tento update.
> >
> > Moze niekto pomoct?
> >
> > Pavol Stolc
> > pstolc(zv)sc.sknet.sk
> >
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Volani vzdaleneho COM objektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.9.2000 15:22:19
On 8 Sep 2000, at 11:28, Tomas Bradle wrote:
> > > > > 5) na jine moznosti bych si mozna jeste vzpomnel, dost pomuze
> > > > > textova prezentace vyjimky, kterou vraci ten nezdareny pokus o
> > > > > pripojeni)
> > > >
> > > > Access denied.
> > >
> > > Tak to budou pristupova prava.
> > >
> > > Nevim do jake hloubky znas prist prava na NT (w2000). Uzivatel,
> > > ktery je prihlasen na tech w95 musi byt i nadefinovan v tech W2000
> > > (myslim, ze i se stejnym heslem) a musi mit prist pravo i pro ten
> > > COM objekt. Na prava COM objektu je prave ten DCOMCNFG.EXE.
> > > Vyberes nazev aplikace - to je help string z typove knihovny ty
> > > CoClass, ktery se to tyka. Smacknes Vlastnosti a na zalozce
> > > zabezpeceni upravis vlastni pristupove opravneni a vlastni
> > > opravneni ke spousteni. Chce to trochu experimentovat, protoze
> > > moznosti je tam vice. Napr. pokud potrebujes pouze jednu instanci
> > > pro vsechny uzivatele, tak musis v zalozce Identita zadat
> > > konkretniho uzivatele na jehoz ucet aplikace pobezi.
> >
> > No, neznam. Ani jsem zatim nezjistil, jak povolit druhemu pocitaci
> > vstup ke sluzbam na W2000. Muzes v tom nejak poradit?
>
> Nevim jake sluzby mas na mysli, ale v zasade plati hlavne to, ze musis
> mit uzivatele z W95 mit nadefinovany se stejnym heslem i ve W2000.
> Napr s SQL7 jsem takto nemel problemy. Sluzby jako takovy bezi na
> systemovy ucet, pokud ovsem nedefinujes jinak (v ovladacich panelech -
> nastroje na spravu - sluzby), ale to neni asi potreba.
Sluzby, tedy napriklad pristup ke vzdalenym objektum. K MS SQL
jsem se uz dostal, ale pres nastaveni v cliconfg na W95.
Zadal jsem tedy v Users and Passwords stejneho uzivatele jako ve
W95. Pri prvnim spusteni hrabe cosi na disku pocitace s W2000,
ale pak vraci uz jen chybu Interface not supported. A to i v pripade,
ze program s volanym COM spustim predem. Takze krucek vpred,
ale nevyznamny. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dva TFiedDataLink v jedne komponente.
[*] Ond�ej Kolenat� <kolenaty(zv)supreme(tec)cz> - 8.9.2000 15:25:23
Damy a panove jseu uz zoufaly.
Pouzivam D4 Pro Up3. Mam komponentu ktrerou potrebuji napojit na dva
datasource.
Vse v pohode az na to ze kdyz u jedne z nich zavru a pak otevru Query tak se
mi u druheho FieldDataLinku nastavi datasource na nil. Pokud data taham jen
z jednoho datasource tak je to v pohode.
Nevi nekdo co s tim?
Ondrej Kolenaty
WM_SETREDRAW & MDI
[*] Such�nek Luk� <Lukas.Suchanek(zv)merlin(tec)cz> - 8.9.2000 15:37:13
Ave,
mam nasledujici problem. V moji MDI aplikaci nacitam layout oken ..
rad bych tedy, aby pri vykreslovani tech oken nedochazelo k nepeknym
prekreslovacim rysum, kterym se nelze docela dobre vyhnout, nebot mdi child
sice lze za urcitych podminek hidenout, ale nezabrani to vykresleni jeho
borderu ...
... zjistil jsem, ze idealni pro me potreby je poslat mainformu
aplikace WM_SETREDRAW,0,0 ... to dokonce jeste chodi, ale pak uz mam problem
s opetovnym vykreslenim mainformu .. mam zhruba tento kod:
SendMessage(Application.MainForm.Handle, WM_SETREDRAW, 0, 0);
... nacitam layout ...
SendMessage(Application.MainForm.Handle, WM_SETREDRAW, 1, 0);
invalidateRect(Application.MainForm.Handle,nil,True);
UpdateWindow(Application.MainForm.Handle);
----
To by podle ruznych helpu od MS melo stacit k prekresleni main formu a
kolega co to zkousel v cecku rikal, ze to chodi. Ja dokonce zkousel pridat i
nasledujici radky:
Application.MainForm.Invalidate;
Application.MainForm.Update;
Application.MainForm.SetFocus;
Application.MainForm.Repaint;
... a vysledek se objevil stejne jen na UpdateWindow a to se mi vykreslil
jen border mainformu. Jeho obsah ne.
Zajimalo by me, jestli delam nekde chybu, popr. zda je nutne jeste nekdo
neco ponastavovat ... a vubec. Hraju si s tim jiz 2 dny a vysledek je porad
vicemene nulovy :-(
Diky predem za kazde nakopnuti.
/ Lukas Suchanek
----- Lukas Suchanek ----- 0602 / 844 355 -----
AnsiString a BlockWrite
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 8.9.2000 15:40:38
On 8 Sep 2000, at 11:03, Da a Petr wrote:
> Zdravim,
> mam problem (asi jako kazdy, kdo sem pise). Potrebuju do netypoveho
> souboru ulozit promennou typu AnsiString pomoci BlockWrite. Problem je
> v tom, ze AnsiString je dynamicke pole, takze v promenne je adresa.
> Kdyz zadam BlockWritu jako buffer samotnou promennou AnsiString, tak
> mi to ulozi uplne neco jinyho, nez co chci (to je tim, ze je to
> ukazatel, ale na druhou stranu prece tomu BlockWrite predavam buffer,
> ci ukazatel na nej, nebo je to jinak?). Pretypovani se nedari. Jak
> tedy zapsat promennou AnsiString pomoci BlockWrite do souboru ?
>
> Petr
Neco jako:
var
s: string; // AnsiString
begin
....
BlockWrite(file, s[1], Length(s));
........
Aby string bylo mozno nacist zpet, bude nutne ulozit i delku. Takze:
//ZAPIS
var
s: string;
len: Integer;
begin
...
len := Length(s);
BlockWrite(file, len, SizeOf(len));
BlockWrite(file, s[1], len);
....
// CTENI
var
s: string;
len: Integer;
begin
...
BlockRead(file, len, SizeOf(len));
SetLength(s, len);
BlockRead(file, s[1], len);
....
Pro vetsinu pripadu je ale mnohem lepsi pouzit TReader a TWriter (umi
ukladat zakladni datove typy (string, integer, boolean...) a navic
maji podporu pro seznamy (viz. TWriter.WriteListBegin).
Petr Fischer
P.S. Psano v rychlosti, nezkouseno... :)Problem s TBlobStream
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 08.9.2000 09:47:48 -0400
Cau mam problem s tblobstream, pokud do nej nacpu data ve formatu PCHar pres promenou tak se zapisi jen blbosti a ne zadane data. Pokud tam napisu primo text tak je vse v poradku. Potrebuju tam psat pres promenou. Nevite nekdo jak na to ?
Prikladek:
procedure TFZaci.PlnSourozence;
Var StreamJ: TBlobStream;
Retezec: PChar;
begin
With JData.TZaci Do
Begin
Edit;
StreamJ:= TBlobStream.Create(FieldByName('Souroz_Jmena') as TBlobField, bmReadWrite);
StreamJ.Position:= 0;
StreamJ.Truncate;
Retezec:= PChar('��� �����');
StreamJ.Write(Retezec, Length(Retezec)); //Takle tam napise kraviny
StreamJ.Write('��� �����',Length('��� �����')); //Takle to funguje
Post;
End;
end;
Dik Ladap
Smazani sama sebe
[*] Hurricane <hurricane(zv)email(tec)cz> - 8.9.2000 15:55:42
Zdravim
Nemuzes smazat otevrenou aplikaci, je to jako, kdyby si mazal vetev sam pod
sebou. Budes to muset vyresit pres nejakeho prostrednika. K tomu muzes
pouzit Autoexec, polozku RonOnce v registru, slozku po spusteni atd. Napr.
tak, ze vytvoris soubor delapp.bak, ve kterem bude prikaz pro smazani tveho
programu a jesteprikaz pro smazani sama sebe (delapp.bat) (BAT soubor potom
sice vyhodi chybu, ale to je vse) Tento soubor zapises do RunOnce v
registru. Takhle se ti program smaze az pri nasledujicim spusteni Windli.
Teoreticky je mozne tu davku vytvorit a spustit v udalosti OnClose, ale je
mozne, ze se Form jeste nestihne zcela ukoncit a prikaz v davce uz ho bude
chtit mazat.
Jiste by se naslo i mnohem elegantnejsi reseni, ale je to jedno z moznych.
Hurricane
----- Original Message -----
> Jak docilim, aby se aplikace (napr. pri form close jestli to jde) sama
smazala?
> Mozna to souvisi se slovickem set ??SrollBox apod.
[*] Hurricane <hurricane(zv)email(tec)cz> - 8.9.2000 16:00:55
Zdravim
Zkousel si OnPaint? Nevim jestli se ale vola OnPaint pri scrollovani
virtualni plochy. (mislis tim to, ze mas rozliseni na monitoru 1024x768, ale
plocha WIN ma treba 1600x1200 a scrolluje se to mysi stejne jako ve
strategiich?) Zkus to dat tam. Vysledek nezarucuji.
Hurricane
----- Original Message -----
> Ale k problemu: potrebuju, aby se scrollbox pri zvetseni virtualni pochy
nascroloval na jeji konec. K tomu pouzivam nasledujici
> kod:
>
> With ScrollBox1 do
> begin
> VertScrollBar.Position:=(VertScrollBar.Range-Height)+4;
> end;
>
> Problem ale je, kam s nim. Pokud jej dam do udalosti OnResize, posune se
to o kousek (konkretne ScrollPos ukazuje 12) a
> nezalizi to asi na nicem (na velikosti kroku posuvniku ani na hodnote
prirazovane do VertScrollBar.Position). Pokud to dam do
> udalosti OnCanResize, posune se to sice spravne, ale uzivatel se
scrollbarem ani nehne (je prikovan uplne dolu).Volani vzdaleneho COM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 8.9.2000 16:04:25
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 08, 2000 3:22 PM
Subject: Re: Volani vzdaleneho COM objektu
> On 8 Sep 2000, at 11:28, Tomas Bradle wrote:
>
> > Nevim jake sluzby mas na mysli, ale v zasade plati hlavne to, ze musis
> > mit uzivatele z W95 mit nadefinovany se stejnym heslem i ve W2000.
> > Napr s SQL7 jsem takto nemel problemy. Sluzby jako takovy bezi na
> > systemovy ucet, pokud ovsem nedefinujes jinak (v ovladacich panelech -
> > nastroje na spravu - sluzby), ale to neni asi potreba.
>
> Sluzby, tedy napriklad pristup ke vzdalenym objektum. K MS SQL
> jsem se uz dostal, ale pres nastaveni v cliconfg na W95.
to jo, ten Cliconfg je nutnej, protoze nastavujes vlasne toho klienta - jak
ma pristupovat k serveru, aliasy serveru, protokoly atd.
> Zadal jsem tedy v Users and Passwords stejneho uzivatele jako ve
> W95. Pri prvnim spusteni hrabe cosi na disku pocitace s W2000,
> ale pak vraci uz jen chybu Interface not supported. A to i v pripade,
> ze program s volanym COM spustim predem. Takze krucek vpred,
> ale nevyznamny. :-)
a v DCOMCNFG.EXE jsi nastavil prava k tomu COM serveru ?
Tomas
Problem s TBlobStream - Vyreseno
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 08.9.2000 12:09:15 -0400
Dik moc.
Ladap
>>> fule(zv)rebeca.sct.sk 8.9.00 4:23 >>>
> Cau mam problem s tblobstream, pokud do nej nacpu data ve
> formatu PCHar pres promenou tak se zapisi jen blbosti a ne
> zadane data. Pokud tam napisu primo text tak je vse v
> poradku. Potrebuju tam psat pres promenou. Nevite nekdo jak na to ?
>
> Prikladek:
>
> procedure TFZaci.PlnSourozence;
> Var StreamJ: TBlobStream;
> Retezec: PChar;
> begin
> With JData.TZaci Do
> Begin
> Edit;
> StreamJ:=
> TBlobStream.Create(FieldByName('Souroz_Jmena') as TBlobField,
> bmReadWrite);
> StreamJ.Position:= 0;
> StreamJ.Truncate;
> Retezec:= PChar('i1eo 3����');
> StreamJ.Write(Retezec, Length(Retezec));
Tu je chyba, takto sa tam zapisuje priemo smernik. Ak sa ma zapisat to, na
co odkazuje smernik, tak to musi vyzerat tako:
StreamJ.Write(Retezec^, Length(Retezec));
a este namiesto Length je v tomto pripade lepsie pouzit StrLen, teda:
StreamJ.Write(Retezec^, StrLen(Retezec));
>
> StreamJ.Write('i1eo 3����',Length('i1eo 3����'));
> //Takle to funguje
>
> Post;
> End;
> end;
>
> Dik Ladap
Zapnuti ovladacich panelu
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 8.9.2000 19:44:00
[P��loha v souboru: enable CP.reg]
Je to v priloze
Detekce Ie5
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 8.9.2000 20:21:24
No ja bych to skusil vy��st s registru je tam dokonce i verze IE
myslim si �e je to n�kde tady:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
----- Original Message -----
From: Jiri Zachardala <jiri.zachardala(zv)spsselib.hiedu(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 8:58 AM
Subject: Detekce Ie5
> Nevite nekdo pros�m vas jak y detekovaT jestli je nainstalovanej IE5
>
> Dik
>Nahrada led na externim modemu
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 8.9.2000 20:23:10
[P��loha v souboru: modemspy.zip]
Posilam z dom�c� programatorsk�ho arch�vu
----- Original Message -----
From: Zapl�k <zaplik(zv)volny(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 7:05 AM
Subject: Nahrada led na externim modemu
> D5 Pro, Win98
>
> Zdravicko
> M�m n�sleduj�c� probl�m. Vlastnim interni modem, u ktereho jsem nikde v
> software nenasel nejakou utilitu, ktera by nahradila zobrazeni LED diod
jako
> na celnim panelu u externiho modemu. Vadi mi totiz , ze nevidim co se na
> modemu deje. Rad bych si tedy tyto led (SD,RD,OH,AA....)vytahnul nekam na
> form. Vite nekdo o nejakem zpusobu jak tohle resit pomoci AsyncPro 2.58,
> nebo RAS?
> Priklady potesi.
>
> Dik Zaplik
> zaplik(zv)volny(tec)cz
>
>
>Registry
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 8.9.2000 20:25:20
Hele a kdyz se na nej pt�s pod adminem tak to funguje.
Nen� to treba nastaven�m pr�v pro uzivatele (poledit)
----- Original Message -----
From: Surfman <surfman(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 12:35 PM
Subject: Registry
> Ahoj,
>
> Nejak se mi nedari prace s registrama pod NT.
> Do HKEY_LOCAL_MACHINE pri instalaci
> zapisu nejake klice a hodnoty - jako admin a potom
> pri dotazu na klic jako user dostavam hlaseni, ze klic
> neexistuje. Pritom pomoci regeditu vsechno vidim
> i jako user. Pomoooooc prosim.
>
> Pavel
>
>WebChat
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 8.9.2000 20:27:00
Zdravim Robine
Stačilo by ti napsany v CGI. Protože už něco takovýho delší dobu mám.
Když tak se mi ozvi na mobil nebo se stav nahraji na dysketu
----- Original Message -----
From: Robert Vanek <DELPHI(zv)dingo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 07, 2000 2:09 PM
Subject: OT: WebChat
> Ahojte,
>
> omlouvam se za OT, ale uz nevim, kde shanet.
> Nevite nahodou o nejakem free programku,
> ktery by me umoznil provozovat maly WebChat
> na mem serveru? Kdyby to bylo na Novell
> nebo win bylo by to skvely.
>
> Diky
>
> Bob
>
>Vicejazycne formulare
[*] Lud�k P�ral - 8.9.2000 22:54:25
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj Delphisti,
prosim o zkusenosti s vicejazycnym prostredim. Zkousim komponenty VGLib(Rus), docetl jsem se , ze vicejazycne prostredi podporuje D5-Enterprise, ale nevim podrobnosti.
VGLib obsahuje komponentu Tlanguage, se kterou lze nacitat formulare. Nedocetl jsem se ovsem, jak nastaveni formulare ulozim.
Dekuji za nazory
Ludek Paral
ludek.paral(zv)telecom(tec)cz
Panel s nastavitelnou farbou oramovania
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.9.2000 23:08:05
Ahoj.
Presne takto som to riesil, ale chcel som to vyriesit len jednou
komponentou.
Roland.
----- Original Message -----
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 08, 2000 12:55 AM
Subject: Re: Panel s nastavitelnou farbou oramovania
> Napadlo me, ze by stacilo vzit shape dane barvy a proste nastavit jeho
velikost a pozici odpovidajici panelu (tedy left a top o
> 1 mensi a width a height o 2 vetsi). Barvu oramovani pak nastavujete
pomoci vlastnosti Pen.Color. Lze to provest rucne i kodem,
> napr:
>
> Shape1.Top:=Panel1.Top-1;
> Shape1.Left:=Panel1.Left-1;
> Shape1.Width:=Panel1.Width+2;
> Shape1.Height:=Panel1.Height+2;
> Shape1.Pen.Color:=clGreen;
>
> S pozdravem,
>
> Adam Feistner
> feistna(zv)volny(tec)cz
> www.volny(tec)cz/feistna/cz.htm
>
>Smazani sama sebe
[*] azeleny(zv)csas(tec)cz - 8.9.2000 23:51:34
DDV,
na mazani sebe sama, nebo jine bezici aplikace slouzi v woknech standarni
API fce (na W95 to chce trohu vic prace), neni treba delat zadne
krkolomnosti s RunOnce... ono pak nepsis bude autor chtit smazat mazatko....
Podivejte se na MoveFileEx()
Pokud je jmeno kam se prejmenovava null, tak se provadio mazani. Na NT staci
tato fce, na W95 je treba nasledujici postup:
GetWindowsDirectory(szTmpName, cchpFullPathBuf);
lstrcat(szTmpName, "\\WININIT.INI");
WritePrivateProfileString("Rename", "NUL", szDstFile, szTmpName);
WritePrivateProfileString("Rename", szDstFile, szSrcFile, szTmpname);
The following syntax is used to delete a file.
NUL=SourceFileName
The following example shows a [rename] section from a WININIT.INI file.
[rename]
C:\WINDOWS\Fonts\arial.ttf=C:\WINDOWS\Fonts\arial.win
C:\WINDOWS\SYSTEM\advapi32.dll=C:\WINDOWS\SYSTEM\advapi32.tmp
Doufam, ze je to co hledate :-)
a.
-----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela 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. Panel s nastavitelnou farbou oramovania
[*] Hurricane <hurricane(zv)email(tec)cz> - 9.9.2000 00:02:06
Zkus si sehnat nekoho, kdo ma Chip CD, na jednom z poslednich to bylo. Vic
to bohuzel neporadim.
Hurricane
----- Original Message -----
Subject: Panel s nastavitelnou farbou oramovania
> Ako by som spravil, ale kde by som zohnal %subj%.Zapis do WinNT logu
[*] azeleny(zv)csas(tec)cz - 9.9.2000 00:02:38
Pridam se s dalsim dotazem (priznam se, ze ja jsem do logu zapisoval daleko
drevorubecteji), ktery jsem doposud nerezloskl.
Chtel bych si udelat dll s texty pro eventlog, protoze kdyz zavolam
ReportEvent a nezaregistruju DLL s sourcema tak se v logu objevuje neco ve
stylu "Message text not found, it contains following insertation
strings...".
Kdysi jsem dela ve Visual C DLL, ktere ty resoure obsahovalo, ale je to
davno a nevim hned nekolik veci:
Jak ma vypadat RC soubor ze ktereho ty resources vzniknou? (Pamatuji si, ze
musel byt unicode a obsahoval nejak ulozene texty pro vice jazyku).
Cim se RC soiubor ma kompilovat a jak (prepinace...)
Jak se vysledne DLL registruje, aby jej win pouzivaly pro doplnovani textu v
zaznamech eventlogu?
Diky za namety!
a.ip adresa
[*] azeleny(zv)csas(tec)cz - 9.9.2000 00:08:47
Doporucuji zkusit
http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
a.
> > Da se zjistit lokalni (cili tu co ma prave pocitac
> pridelenu at stat. ci
> dynamickou) napr. z registru?
> > Nebo jinym zpusobem? Ale hlavne BEZ pouziti nejake
> komponenty. Napr. ja
> jsem doposud
> > pouzival Powersock.LocalIp ale snazim se ted osekavat
> programy jak to jde
> takze setrim s
> > mistem.
> >
>
>
> klasicky postup je zavolat GetHostName() a pak GetHostByName() - vraci
> vsechny IPcka v PC
>
> Dalsi metody (pomoci SNMP, IPHelper) jsou take mozne ale podstatne
> krkolomenejsi.
>
> Zdravi
> D. Toman
>
>
> Explorer
[*] Hurricane <hurricane(zv)email(tec)cz> - 9.9.2000 00:35:11
Ano, to je pravda, funguje to i ve Win98SE.
----- Original Message -----
> Zjistil jsem zajimavou vec. Pokud chci, aby nejaka moje aplikace chodila
ve
> windows misto Exploreru (Nabidka Start, lista, ikony na plose), jak se
tady
> uz o tom psalo, staci muj program nakopirovat na C:\ Tento korenovy
adresar
> ma prednost (aspon na mych W95 OSR2) pred C:\windows. Takze neni treba
> soubor Explorer.exe nekam schovavat, nebo ho prejmenovavat. Po smazani me
> aplikace (soubor C:\explorer.exe) se po restartu automaticky obnovi funkce
> windows (spusti se C:\windows\explorer.exe).Explorer
[*] Hurricane <hurricane(zv)email(tec)cz> - 9.9.2000 00:37:38
> >Zjistil jsem zajimavou vec. Pokud chci, aby nejaka moje aplikace chodila
ve
> >windows misto Exploreru (Nabidka Start, lista, ikony na plose), jak se
tady
> >uz o tom psalo, staci muj program nakopirovat na C:\ Tento korenovy
adresar
> >ma prednost (aspon na mych W95 OSR2) pred C:\windows. Takze neni treba
> >soubor Explorer.exe nekam schovavat, nebo ho prejmenovavat. Po smazani me
> >aplikace (soubor C:\explorer.exe) se po restartu automaticky obnovi
funkce
> >windows (spusti se C:\windows\explorer.exe).
> >
>
> Pekny, ale nechodi to pod W98... Vyzkouseno na 5 pocitacich...
To mas, ale prvni 98 nebo ne? Ja si tim teda nejsem uplne jistej, ale tak na
98% to takhle funguje ve Win98SE.Smazani sama sebe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2000 00:57:20
From: "Hurricane" <hurricane(zv)email(tec)cz>
> Jiste by se naslo i mnohem elegantnejsi reseni, ale je to jedno z moznych.
Ahoj,
treba tady: http://www.microsoft.com/MSJ/0198/win320198.htm
Petr Vones, amatersky programator
Moc prosim o pomoc s problemem Database a dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2000 00:58:43
From: "Zdenek Gracias" <zdenek(zv)obchod.comacomp(tec)cz>
> Mam aplikaci kterou potrebuji rozdelit na nekolik DLL knihoven
> ale tak aby pokud zavolam z dll funkci potrebuji aby pouzila stavajici
> pripojeni k databazi tj. aby cela aplikace pouzivala pouze jeden connect.
Ahoj,
Pokud bude aplikace i vsechny DLL prelozene s balicky tak by v tom nemel byt
problem.
Petr Vones, amatersky programator
NEUKONCENY PROGRAM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2000 00:58:36
From: "KINEKUS" <kinekus(zv)nextra.sk>
> pri ukonceni mojej aplikacie, ktora je zabezpecena cez applicate.terminate
> mi sice zatvori form aplikacie ale zostane visiet vo W98 ako spustene.
> Musim to ukoncit cez CTRL-ALT-DEL a natvrdo zrusit. Viete mi poradit ako to
> mam osetrit ?
Ahoj,
Zkus pouzit metodu Close hlavniho formulare. Dale muze byt problem i v necem
jinem, pouzivas v te aplikaci vice threadu ?
Petr Vones, amatersky programator
�asova�e ve Windows + tvorba script�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2000 00:59:25
From: "Petr Navr�til" <DelphiForum(zv)Dssoft(tec)cz>
> to nen� tak docela pravda, ve Win32 se jejich po�et zvedl jen na 64 pro
> v�echny spu�t�n� aplikace dohromady.
Ahoj,
tomu se mi nechce verit, viz nasledujici test. Na Win95 vznikne chyba pri
cca 2500 timerech.
procedure TMainForm.Button1Click(Sender: TObject);
var
I, N: Integer;
ID: DWORD;
TimerIDs: array[1..100000] of DWORD;
begin
for I := Low(TimerIDs) to High(TimerIDs) do
begin
ID := SetTimer(Handle, I , 500, nil);
if ID = 0 then
begin
for N := Low(TimerIDs) to I - 1 do
Win32Check(KillTimer(Handle, TimerIDs[N]));
ShowMessageFmt('%d', [I]);
Break;
end else
TimerIDs[I] := ID;
end;
end;
Petr Vones, amatersky programator
WM_SETREDRAW & MDI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2000 00:59:54
From: "Such�nek Luk�" <Lukas.Suchanek(zv)merlin(tec)cz>
> mam nasledujici problem. V moji MDI aplikaci nacitam layout oken ..
> rad bych tedy, aby pri vykreslovani tech oken nedochazelo k nepeknym
> prekreslovacim rysum, kterym se nelze docela dobre vyhnout, nebot mdi child
Ahoj,
treba takhle:
procedure TMainForm.FileNew1Execute(Sender: TObject);
var
I: Integer;
begin
SendMessage(MainForm.ClientHandle, WM_SETREDRAW, 0, 0);
try
for I := 1 to 5 do
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
finally
SendMessage(MainForm.ClientHandle, WM_SETREDRAW, 1, 0);
RedrawWindow(MainForm.ClientHandle, nil, 0, RDW_INVALIDATE or
RDW_UPDATENOW or RDW_ALLCHILDREN);
end;
end;
Petr Vones, amatersky programator
Zdilene Bookmarks - Open Source Project
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 9.9.2000 01:31:06
Zdrav�m,
predem: nejsem profesion�ln� program�tor a moment�lne pracuju na free kalkulacce.
Ale uz m�m dels� dobu z�lusk na nejak� free organizer bookmarku. Kdybych mohl jakkoli prispet, byl bych r�d.
Zat�m jsem si navrhnul jenom GUI (jsetli to chces poslat, no problem). C�len� funkce:
tisk archivu bookmarku
zapakov�n� archivu
zpr�va archivu (prejmenov�n�, export, n�hled, apod.)
Sd�len� by se do toho hodilo v�zne b�jecne. Zat�m,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: <voltrr1.epr(zv)mail.cez(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 08, 2000 8:52 AM
Subject: Zdilene Bookmarks - Open Source Project
>
> Hi All!
>
> koukal jste nekdo na LUPU a diskusi o paradigmatu Inetovych aplikaci ??
>
> Vypadlo z toho par navrhu a jeden z nich byl i klient umoznujici zdileni
> bookmarku.
>
> Uplne si to rika o realizaci v open source.
>
> Mel by jste nekdo zajem na tom spolupracovat ?
>
> Radek
>
>
>Programovanie Hudby
[*] Martin 'Milo' Milesich <milesich(zv)fastu.fa.stuba.sk> - 9.9.2000 01:45:21
Ahojte,
dakujem Vam, ze ste mi pomohli dostat zo zvukovky nejaky zvuk...
Ale teraz by som potreboval, ci by ste mi nevedeli pomoct ako sa programuje hudba.
Najake linky, web stranky a podobne veci co by mi mohli pomoct.
Dakujem..
Martin Milesich
SrollBox apod.
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 9.9.2000 02:51:16
Tou vitualni plochou jsem myslel celou plochu scrollboxu (uzivatel ji nevidi celou a proto to virtualni).
Jde mi v podstate o to, ze chci vytvorit neco jako Memo, ale aby kazda radka mela moznost sveho individualniho formatovani
(font, kurzor) a take svoji vlastni obsluhu OnClick. Podle me se na to hodi prave scrollbox, pricemz radky resim pridavanim
(prozatim zviditelnovanim) labelu. Jediny problem je, ze to nescroluje jak ma (jako Memo).
A k tomu OnPaint - tuhle udalost jsem u scrollboxu nenasel (zrejme si myslel neco k ty Win plose - sorry za mystifikaci).
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
> Zdravim
>
> Zkousel si OnPaint? Nevim jestli se ale vola OnPaint pri scrollovani
> virtualni plochy. (mislis tim to, ze mas rozliseni na monitoru 1024x768, ale
> plocha WIN ma treba 1600x1200 a scrolluje se to mysi stejne jako ve
> strategiich?) Zkus to dat tam. Vysledek nezarucuji.
>
> Hurricane
> ----- Original Message -----
> > Ale k problemu: potrebuju, aby se scrollbox pri zvetseni virtualni pochy
> nascroloval na jeji konec. K tomu pouzivam nasledujici
> > kod:
> >
> > With ScrollBox1 do
> > begin
> > VertScrollBar.Position:=(VertScrollBar.Range-Height)+4;
> > end;
> >
> > Problem ale je, kam s nim. Pokud jej dam do udalosti OnResize, posune se
> to o kousek (konkretne ScrollPos ukazuje 12) a
> > nezalizi to asi na nicem (na velikosti kroku posuvniku ani na hodnote
> prirazovane do VertScrollBar.Position). Pokud to dam do
> > udalosti OnCanResize, posune se to sice spravne, ale uzivatel se
> scrollbarem ani nehne (je prikovan uplne dolu).
Volani vzdaleneho COM objektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.2000 10:55:55
On 8 Sep 2000, at 16:04, Tomas Bradle wrote:
> > Zadal jsem tedy v Users and Passwords stejneho uzivatele jako ve
> > W95. Pri prvnim spusteni hrabe cosi na disku pocitace s W2000, ale
> > pak vraci uz jen chybu Interface not supported. A to i v pripade, ze
> > program s volanym COM spustim predem. Takze krucek vpred, ale
> > nevyznamny. :-)
>
> a v DCOMCNFG.EXE jsi nastavil prava k tomu COM serveru ?
Jiste, zkousel jsem ruzne moznosti. Mas nejake doporuceni
nastaveni, ktere se ti osvedcilo?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
APLIKACE Z JINE CESTY was Re: Smazani sama sebe
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 9.9.2000 17:02:27
Fajn, a ja potrebuju ted jednu vec. Mam spustenou aplikaci c:\1.exe Tento program se sam
skopiruje do C:\zaloha\2.exe a chci, aby se spustil odtamtud. Ale windowsy mi nedovoli spustit
DVAKRAT STEJNOU APLIKACI i kdyz jsem ji dal jine jmeno(proste to pozna).
Jak muzu spustit tu aplikaci 2.exe az po zavreni 1.exe ???
respektive da se v D(5) nastavit vlastnost aplikace ze se muze vicekrat spoustet? (neco jak
MSExplorel?)
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> na mazani sebe sama, nebo jine bezici aplikace slouzi v woknech standarni
> API fce (na W95 to chce trohu vic prace), neni treba delat zadne
> krkolomnosti s RunOnce... ono pak nepsis bude autor chtit smazat mazatko....
>
> Podivejte se na MoveFileEx()
> Pokud je jmeno kam se prejmenovava null, tak se provadio mazani. Na NT staci
> tato fce, na W95 je treba nasledujici postup:
Ztratila se mi ikona
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 9.9.2000 17:05:53
Chci nastavit ikonu aplikace (project/options/application) kterou bude mit .exe soubor
a vono najednou je to neaktivni vlastnost proc nevite?
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Volani vzdaleneho COM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 9.9.2000 17:10:17
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 09, 2000 10:55 AM
Subject: Re: Volani vzdaleneho COM objektu
> On 8 Sep 2000, at 16:04, Tomas Bradle wrote:
>
> > > Zadal jsem tedy v Users and Passwords stejneho uzivatele jako ve
> > > W95. Pri prvnim spusteni hrabe cosi na disku pocitace s W2000, ale
> > > pak vraci uz jen chybu Interface not supported. A to i v pripade, ze
> > > program s volanym COM spustim predem. Takze krucek vpred, ale
> > > nevyznamny. :-)
> >
> > a v DCOMCNFG.EXE jsi nastavil prava k tomu COM serveru ?
>
> Jiste, zkousel jsem ruzne moznosti. Mas nejake doporuceni
> nastaveni, ktere se ti osvedcilo?
>
>
Vlastnosti:
=========
Obecne:
Uroven overovani : vychozi
Umisteni:
zaskrtnout pouze spoustet aplikaci v tomto pocitaci
Zabezpeceni:
Pouzivat vlastni prist. opravneni (tam nastavis uzivatele)
Pouzivat vlastni opravneni ke spousteni (taky nastavit uzivatele)
Identita:
muzes dat prakticky cokoli, ja mam nastaveno nasledujici uzivatel - mam spec
fiktivniho uzivatele jen pro ten COM objekt, abych zajistil, ze bude pouze
jedna instance objektu, on totiz pro kazdyho uzivatele spousti zvlastni
instanci objektu.
Pokud das interaktivni uzivatel, pak musi byt COM server spusten pred tim,
nez se na nej napojis.
Koncove body:
tam jsem nic nenastavoval
Tomas
RESTART WINDOWS
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 9.9.2000 17:46:31
Mam problem s tim, ze aplikace, kterou jsem naprogramoval a bezi mi na pozadi,
ma vlastnosti SW_HIDE a neni videt v serviceprocesu (CTRL+ALT+DEL) mi brani v tom,
ze se mi nechcou restartovat, resp. ani vypnout win98. Skoci to zpet do windows a brani
tomu prave tahle aplikace.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Z�kaz spodn� li�ty ve Windows
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 9.9.2000 19:12:46
Jo, je to jednoduchy, ale ja bych mel jeste male vylepseni: pokud totiz
pouzijes jen ty API funkce,o kterych byla uz rec, tak se sice schova
TaskBar, ale bude tam furt prazdny misto - tady je reseni:
var
r1,r2: TRECT;
implementation
Procedure SkrytTaskBar();
begin
TRect(r2).Left := 0;
TRect(r2).Right := Screen.Width;
TRect(r2).Top := 0;
TRect(r2).Bottom := Screen.Height;
SystemParametersInfo(SPI_GETWORKAREA, 0, (zv)r1, 0);
SystemParametersInfo(SPI_SETWORKAREA, 0, (zv)r2, 0);
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);
end;
Procedure UkazatTaskBar();
SystemParametersInfo(SPI_SETWORKAREA, 0, (zv)r1, 0);
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);
end;
---
Nyni to bude pracovat asi tak, jak si chtel...
______________________________________________
Vasek Navrat - lead programmer of NewReality engine
DarkLogic
NewReality web: www.ropacek(tec)cz/newreality
NewReality e-mail: newreality(zv)ropacek(tec)cz
private web: www.ropacek(tec)cz/engine/vasek
private e-mail: darklogic(zv)ropacek(tec)cz
mobil: 0603 944 964
ICQ: 74161244
______________________________________________
----- Original Message -----
From: honza-world <honza.kachlik(zv)worldonline(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 05, 2000 6:54 PM
Subject: Re: Z�kaz spodn� li�ty ve Windows
Hele je to velice jednoduchy
var
wnd:HWND;
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
ShowWindow(Wnd, SW_HIDE); // pokud chci skryt
end;
pokud chci zobrazit tak misto SW_HIDE nastavit SW_SHOW
Pokud ma nekdo dotaz ohledne tehle zalezitosti at se ozve rad poradim
s pozdravem
----------------------
-TMurphy software -
- Honza Kachlik -
- Programator -
---------------------
----- Original Message -----
From: Petr Kellner <kellner(zv)praktik(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 1:34 PM
Subject: Z�kaz spodn� li�ty ve Windows
> po�eboval bych zak�zat spodn� li�tu ve Windows.
> Na�el jsem si p��klad, ale t�m jde pouze zak�zat knofl�k "Start".
>
> procedure StartButton;
> var
> StartHandle: HWND;
> begin
> StartHandle := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,
> 'Button', nil);
> EnableWindow(StartHandle, False);
> end;
>
> D�ky za radu
> Franti�ek M��ala
>
>
>
SMS brana
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 9.9.2000 19:15:35
No tak to asi necham byt. Myslel jsem, ze si udelam programek pro usnadneni
prace, ale nez toto delat, to si radsi najedu na netove stranky :))
Az nekde bude ten programek, tak dej vedet...ja bych o to mel urcite zajem
(muselo by to ale podporovat vsechny 3(!!) nase operatory).
______________________________________________
Vasek Navrat - lead programmer of NewReality engine
DarkLogic
NewReality web: www.ropacek(tec)cz/newreality
NewReality e-mail: newreality(zv)ropacek(tec)cz
private web: www.ropacek(tec)cz/engine/vasek
private e-mail: darklogic(zv)ropacek(tec)cz
mobil: 0603 944 964
ICQ: 74161244
______________________________________________
----- Original Message -----
From: <novos(zv)post(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 2:47 PM
Subject: Re: SMS brana
> cau
>
> nevim jak predat parametry CGI skriptu, ale mam jine reseni. asi ne
nejlepsi, ale na nic jineho jsem zatim neprisel. delam takovou aplikaci pro
posilani SMSek pres web-branu a sice tak, ze komunikuji s Pegasackym
serverem na urovni html. vpodstate simul
> ovat nejaky browser. posup je:
>
> 1) odeslu dotaz ve formatu html - neco jako prihlaseni se na prislusnou
stranku
> 2) rozparsuju to co mi prijde - hlavne to autentifikacni cislo
> 3) odeslu dalsi html s jiz vyplnenymi parametry a s pouzitym
autentifikacnim cislem - bez toho autf. cisla to pegasi server nesezere
> 4) rozparsuju to co mi prijde - z toho poznam, jestli jsem prekrocil
casovy limit, nebo jestli odeslani probehlo v poradku
>
> jinak pro posilani pouzivam klasiku socket funkce jak WSAStartup, sendto,
bind, listen, .... no a pak uz potrebuji znat tech par html tagu a je to.
>
> ma to sice nevyhodu v tom, ze pokud paegas zmeni html podobu stranky, tak
ja musim pozmenit mou aplikaci, ale to zas neni tak velka zmena. a taky to
paegas nemeni kazdy tyden. navic je to reseni univerzalni pro ruzne brany a
po mensich upravach pouzitel
> ne temer vsude.
> taky se nemusim trapit s delemim zpravy pokud je moc dlouha. o to se
postara paegasi server.
>
> no takze az to bude hotove tak to dam nekam na web. (pokud bude zajem)
>
> hojky
>
> email: novos(zv)email(tec)cz
> icq: 7121363
>
>
> Aktualni zpravodajstvi?
> *** http://NAJDI.TO
>Zjisteni pripojeni k internetu
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 9.9.2000 19:19:04
A co takhle pouzit tuhle funkci:
Function InternetGetConnectedState (lpdwFlags: LongInt; dwReserved:
LongInt): Boolean; stdcall; external 'wininet.dll';
implementation
Function TForm1.Test_Pripojeni (): boolean;
var Flagy: LongInt;
begin
Flagy := 0;
Result := InternetGetConnectedState(Flagy, 0);
end;
---
Pokud je vysledek funkce TRUE, tak pocitac je on-line. Funguje to se vsemi
druhy netoveho spojeni...
______________________________________________
Vasek Navrat - lead programmer of NewReality engine
DarkLogic
NewReality web: www.ropacek(tec)cz/newreality
NewReality e-mail: newreality(zv)ropacek(tec)cz
private web: www.ropacek(tec)cz/engine/vasek
private e-mail: darklogic(zv)ropacek(tec)cz
mobil: 0603 944 964
ICQ: 74161244
______________________________________________
----- Original Message -----
From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 2:33 PM
Subject: Re: Zjisteni pripojeni k internetu
>
> > Nevite nekdo jak "nenasilne" zjistit, jestli je dany pocitac
pripojen
> k inetu? Dokazu si napr. zjistit ip adresu
> > pocitace, ale i kdyz je off-line tak ma napr. 1.0.0.1 ip adresu, cili z
> toho se to vycist asi neda. A nechci
> > posilat zadna data na vystup (protoze napr. pres dialup by se otevrelo
> okno s zadosti o pripojeni).
> >
>
> jednoznacne to zjistit nejde. Pouze je mozne zjistit nektere indicie,
ktere
> mohou (ale take nemusi) znamenat, ze spojeni je navazano.
>
> Existuje nekolik metod:
> 1) zkusit ping/connect na nejaky server v Internetu. Muze ale zpusobit
> nechtene vytoceni spojeni k Internetu
> 2) detekce aktivniho modemoveho spojeni. Snadno realizovatelne, ale neni
> jiste, ze je pripojen modem zrovna do Internetu (da se upresnit zjistenim,
> zda modemem jede PPPcko, je nastavena defa gateway na modem,...). Navic
> uzivatel muze byt k internetu pripojen jinym zpusobem nez dialupem
> 3) detekce existence default gatewaye - je ale spousta instalaci bez
> pristupu k Interhetu, ktere maji def gateway nastaveno (at blbje
> konfigurovane PC, ci sit s vice segmenty)
>
>
> Zdravi
> Dalibor Toman
>
>BeforePrint v TQuickRep
[*] Jirka Virt <virt(zv)volny(tec)cz> - 9.9.2000 20:11:11
Ahoj,
napokousel jste se nebo nevite nekdo jak upravit (pridat) ve svoji komponente
zalozene na TQuickRep udalost BeforePrint:TQRReportBeforePrintEvent?
Potrebuji zde poslat pred tiskem par znaku do tiskarny a tudy to vzdy projizdi.
Ale pri deklaraci mi to pise - not found in base class. Diky
Jirka Virt
email: virt(zv)volny(tec)cz
APLIKACE Z JINE CESTY
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 9.9.2000 20:20:36
Tak uz jsem prisel na to jak se to da udelat. Staci zavolat spusteni aplikace uplne na konci resp.
NESTACI FORM CLOSE ale DESTROY. Pak uz se da ta sama aplikace spustit znovu. Ale stejne
by mne zajimalo, jak se da nastavit spusteni jedne aplikace vicekrat.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> Fajn, a ja potrebuju ted jednu vec. Mam spustenou aplikaci c:\1.exe Tento program se sam
> skopiruje do C:\zaloha\2.exe a chci, aby se spustil odtamtud. Ale windowsy mi nedovoli spustit
> DVAKRAT STEJNOU APLIKACI i kdyz jsem ji dal jine jmeno(proste to pozna).
>
> Jak muzu spustit tu aplikaci 2.exe az po zavreni 1.exe ???
>
> respektive da se v D(5) nastavit vlastnost aplikace ze se muze vicekrat spoustet? (neco jak
> MSExplorel?Panel s nastavitelnou farbou oramovania
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 9.9.2000 21:33:46
Ja mam Chipy CD ale na ktorom aspon zhruba.
Roland.
----- Original Message -----
From: "Hurricane" <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 09, 2000 12:02 AM
Subject: Re: Panel s nastavitelnou farbou oramovania
> Zkus si sehnat nekoho, kdo ma Chip CD, na jednom z poslednich to bylo. Vic
> to bohuzel neporadim.
>
> Hurricane
> ----- Original Message -----
> Subject: Panel s nastavitelnou farbou oramovania
> > Ako by som spravil, ale kde by som zohnal %subj%.
>
>APLIKACE Z JINE CESTY was Re: Smazani sama sebe
[*] Lauko �tefan <lauko(zv)salamon.sk> - 9.9.2000 21:40:10
Ahoj,
ja viem skorej o opacnom probleme - je dost problematicke zabezpecit
kontrolu na viacnasobne spustenie app. a zabezpecit len jednu instanciu.
Windows standardne spusti app. x-krat az kym sa nevycerpaju zdroje. Druha
vec je ak ta app. 1.exe je osetrena na viacnasobne spustenie.
> respektive da se v D(5) nastavit vlastnost aplikace ze se muze vicekrat
spoustet? (neco jak
> MSExplorel?)
D(5) vytvara app. tak ze sa mozu neobmedzene-krat spustat - opak je potrebne
programovat.
Lauko.
----- Original Message -----
From: -=Ivomir=- <Ivomir(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 09, 2000 5:02 PM
Subject: APLIKACE Z JINE CESTY was Re: Smazani sama sebe
> Fajn, a ja potrebuju ted jednu vec. Mam spustenou aplikaci c:\1.exe Tento
program se sam
> skopiruje do C:\zaloha\2.exe a chci, aby se spustil odtamtud. Ale windowsy
mi nedovoli spustit
> DVAKRAT STEJNOU APLIKACI i kdyz jsem ji dal jine jmeno(proste to pozna).
>
> Jak muzu spustit tu aplikaci 2.exe az po zavreni 1.exe ???
>
> respektive da se v D(5) nastavit vlastnost aplikace ze se muze vicekrat
spoustet? (neco jak
> MSExplorel?)
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
> > na mazani sebe sama, nebo jine bezici aplikace slouzi v woknech
standarni
> > API fce (na W95 to chce trohu vic prace), neni treba delat zadne
> > krkolomnosti s RunOnce... ono pak nepsis bude autor chtit smazat
mazatko....
> >
> > Podivejte se na MoveFileEx()
> > Pokud je jmeno kam se prejmenovava null, tak se provadio mazani. Na NT
staci
> > tato fce, na W95 je treba nasledujici postup:
>
>Panel s nastavitelnou farbou oramovania
[*] Hurricane <hurricane(zv)email(tec)cz> - 10.9.2000 00:03:51
> Ja mam Chipy CD ale na ktorom aspon zhruba.
Tak to prave presne nevim, ale vem to od konce. Ted mi dochazi, ze v kazdem
cisle sou dve CD , nebo ne? Tak to druhe bylo cele venovane olympiade, byl
tam nejaky program pro deti (o olympiade).
Hurricane
Zaciernenie DBEditu a neuplne rozbalovanie DBLooku
[*] Ivan Kozak <kozaki(zv)atlas(tec)cz> - 9.9.2000 19:09:54 -0700
Mozno je to trivialny dotaz, ale si stym neviem rady a nechapem v com je problem.
Tyka sa to dBEditu a DBLookupComboBoxu.
Za urcitych okolnosti (preto to formulujem takto neurcito, lebo ich neviem formulovat presnejsie) mi nabehne dbBEdit uplne zacierneny a nevidno na nom nic. Pritom ale editacia, insert ci delete prebehnu v poriadku: akurat nevidim, co pisem.
A -- zrejme pribuzny -- problem je s DBLookupComboBox-om. Obvykle ked nabehne prvy raz, tak ked sa pokusim rozbalit, tak sa mi namiesto nastavenych napr. 7 riadkov zobrazi len jeden (ale listovanie funguje, takze viem vyberat i hociktory dalsi riadok, nielen prvy). Pri druhom zobrazeni sa uz rozbaluje normalne.
Ako hovorim, vsetko funguje, co pomocou tychto komponent robim, je to skor neprijemnost ako nefungovanie. Ale predsa len mam obavy, ze sa "tam" deje nieco nekaleho, o com ale zatial neviem.
Nestretol ste sa s tym niekto, neviete niekto preco sa tieto komponenty takto chovaju?
Dik za kazdu odpoved. Ivan Kozak
DLL a 16 a 32bit
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 10.9.2000 12:05:15
From: "Tibor Galik" <TGalik(zv)vsz.sk>> - ako do D4 zakomponovat volanie funkcii zo 16bitoveho DLL-ka ?
> prosim o nejaky priklad
>
Ja pouzivam tento postup:
unit xxx
interface
procedure Func1_16;
function Func2_16(w1, w2: word): word;
implementation
function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external
kernel32 index 35;
procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32
index 36;
function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer;
stdcall; external kernel32 index 37;
procedure QT_Thunk; cdecl; external kernel32 name 'QT_Thunk';
var
hInst16: THandle;
pFunc1: Pointer;
pFunc2: Pointer;
{$StackFrames On}
{$Optimization Off}
procedure Func1_16;
var
ThunkTrash: array[0..$20] of Word;
begin
ThunkTrash[0] := hInst16;
asm
mov edx, pFunc1
call QT_Thunk
end;
end;
function Func2_16(w1, w2: word): word;
var
ThunkTrash: array[0..$20] of Word;
ans: WORD;
begin
ThunkTrash[0] := hInst16;
asm
mov ax, w1
push ax
mov ax, w2
push ax
mov edx, pFunc2
call QT_Thunk
mov ans,ax
end;
Result := ans;
end;
initialization
hInst16 := LoadLibrary16('xxx16.DLL');
if hInst16 < 32 then
raise Exception.Create('Cannot load xxx16.DLL');
pFunc1 := GetProcAddress16(hInst16, 'Funkce1');
if pFunc1 = nil then
raise Exception.Create('Get address Error of Funkce1');
pFunc2 := GetProcAddress16(hInst16, 'Funkce2');
if pFunc2 = nil then
raise Exception.Create('Get address Error of Funkce2');
finalization
FreeLibrary16(hInst16);
end.
Podle poctu a typu predavanych parametru se upravi plneni zasobniku.
Pokud je potreba pradat ukazatel, je to trochu slozitejsi.
Musi se pro predavana data vytvorit sdilana pamet,
na kterou bude ukazatel ukazovat.
Informace lze nalezt na internetu i primo u Microsoftu pod
heslem thunk.
Bohuzel, uvedeny postup funguje pouze v prostredi 95/98.
Nelze pouzit v prostredi NT/2000. Jadro techto systemu
neobsahuje funkci QT_Thunk. Zatim se mi nepodarilo najit
postup, pro tyto operacni systemy. Nevit nekdo jak na to?
Vaclav Krmela
APLIKACE Z JINE CESTY
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 10.9.2000 17:54:31
To neni mozny, ja vse co jsem doposavad naprog. tak mi windozy dovolej
spustit jen jednou. Je to zajimavy.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> > respektive da se v D(5) nastavit vlastnost aplikace ze se muze vicekrat
> spoustet? (neco jak
> > MSExplorel?)
>
> D(5) vytvara app. tak ze sa mozu neobmedzene-krat spustat - opak je potrebne
> programovat.
>
> Lauko.
>
Volani vzdaleneho COM objektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.9.2000 18:59:31
On 9 Sep 2000, at 17:10, Tomas Bradle wrote:
> > > > Zadal jsem tedy v Users and Passwords stejneho uzivatele jako ve
> > > > W95. Pri prvnim spusteni hrabe cosi na disku pocitace s W2000,
> > > > ale pak vraci uz jen chybu Interface not supported. A to i v
> > > > pripade, ze program s volanym COM spustim predem. Takze krucek
> > > > vpred, ale nevyznamny. :-)
> > >
> > > a v DCOMCNFG.EXE jsi nastavil prava k tomu COM serveru ?
> >
> > Jiste, zkousel jsem ruzne moznosti. Mas nejake doporuceni
> > nastaveni, ktere se ti osvedcilo?
>
> Vlastnosti:
> =========
> [...]
Uz z toho zacinam pomalu zoufat. Zkousel nastaveni i podle tvych,
a stale nic. V nejakem dokumentu se pise, ze bych mel mit
nastaveny User-Level, ktery se nastavuje v Control Panel / Network
/ Access Control. Jenze je to psane pro NT, na W2000 se mi
nepodarilo najit ekvivalent.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Co je nove v IB 6.0.1 ?
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 10.9.2000 22:28:38
Lebo okrem IBConsole 1.0.0.315 som nic nenasiel, vsetky subory su povodne.
Alebo sa mylim ?
Dakujem
Roland.DATA Z KONFERENCE: SRPEN 2000
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.2000 22:50:04
Preji vsem pekneho dne,
jako obvykle zacatkem noveho mesice (no, ted je to spise na konci
prvni tretiny mesice), naleznete
na adrese
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
posledni data z teto konference pro programek
KonfView. Pres cetne dotazy pripominam, ze pouze
dodavam data, autorem programu je Petr Vaclavek
(bla(zv)atrey.karlin.mff.cuni(tec)cz).
Soucasne s tim bych chtel poprosit, aby vase pocitace dodrzovaly
spravny datum, cas a pravidla konference. Diky.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Zjisteni pripojeni k internetu
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 10.9.2000 22:57:50
Ahoj Vasek !
Toto trapilo moje srdce uz davnejsie, na Windows 2000 to funguje. Ale skusal
som to na:
Windows 95 CZ OSR2
IE 5.5 eng
klient siete Microsoft
NetBEUI
zdileni...
na tom stroji sa Internet nepouziva je to len klient pre IB
Vratilo to TRUE
vravim si asi to funguje na TCP/IP tak som to pridal, ale ziadna zmena.
Dakujem.
Roland.
----- Original Message -----
From: "Vasek Navrat" <engine(zv)ropacek(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 09, 2000 7:19 PM
Subject: Re: Zjisteni pripojeni k internetu
> A co takhle pouzit tuhle funkci:
>
> Function InternetGetConnectedState (lpdwFlags: LongInt; dwReserved:
> LongInt): Boolean; stdcall; external 'wininet.dll';
>
> implementation
>
> Function TForm1.Test_Pripojeni (): boolean;
> var Flagy: LongInt;
> begin
> Flagy := 0;
> Result := InternetGetConnectedState(Flagy, 0);
> end;
>
> ---
>
> Pokud je vysledek funkce TRUE, tak pocitac je on-line. Funguje to se vsemi
> druhy netoveho spojeni...
> ______________________________________________
> Vasek Navrat - lead programmer of NewReality engine
> DarkLogic
>
> NewReality web: www.ropacek(tec)cz/newreality
> NewReality e-mail: newreality(zv)ropacek(tec)cz
>
> private web: www.ropacek(tec)cz/engine/vasek
> private e-mail: darklogic(zv)ropacek(tec)cz
> mobil: 0603 944 964
> ICQ: 74161244
> ______________________________________________
>
>
> ----- Original Message -----
> From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, September 04, 2000 2:33 PM
> Subject: Re: Zjisteni pripojeni k internetu
>
>
> >
> >
> > > Nevite nekdo jak "nenasilne" zjistit, jestli je dany pocitac
> pripojen
> > k inetu? Dokazu si napr. zjistit ip adresu
> > > pocitace, ale i kdyz je off-line tak ma napr. 1.0.0.1 ip adresu, cili
z
> > toho se to vycist asi neda. A nechci
> > > posilat zadna data na vystup (protoze napr. pres dialup by se otevrelo
> > okno s zadosti o pripojeni).
> > >
> >
> > jednoznacne to zjistit nejde. Pouze je mozne zjistit nektere indicie,
> ktere
> > mohou (ale take nemusi) znamenat, ze spojeni je navazano.
> >
> > Existuje nekolik metod:
> > 1) zkusit ping/connect na nejaky server v Internetu. Muze ale zpusobit
> > nechtene vytoceni spojeni k Internetu
> > 2) detekce aktivniho modemoveho spojeni. Snadno realizovatelne, ale neni
> > jiste, ze je pripojen modem zrovna do Internetu (da se upresnit
zjistenim,
> > zda modemem jede PPPcko, je nastavena defa gateway na modem,...). Navic
> > uzivatel muze byt k internetu pripojen jinym zpusobem nez dialupem
> > 3) detekce existence default gatewaye - je ale spousta instalaci bez
> > pristupu k Interhetu, ktere maji def gateway nastaveno (at blbje
> > konfigurovane PC, ci sit s vice segmenty)
> >
> >
> >
> > Zdravi
> > Dalibor Toman
> >
> >
>
>MessageDlg
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:49
From: "Kriz Pavel, TDS" <tds(zv)volny(tec)cz>
> > VCL ma jiz zabudovany mechanismus pro lokalizaci tak proc jej nepouzit.
> Co t�m m� konkr�tn� na mysli?
Ahoj,
zpusob ktery pouziva napriklad Zbyskuv Localizator.
Petr Vones, amatersky programator
StringGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:31
From: "Krayzel Libor" <Libor.Krayzel(zv)czech-tv(tec)cz>
> jak vyhledavat ve TStringGridu?
Ahoj,
postupne prochazet vsechny bunky (vlastnost Cells) a porovnavat s hledanym
textem.
Petr Vones, amatersky programator
Bezpecnost a DLL...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:59
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> Otazku zajisteni bezpecnosti dynamickeho pole zrejme nevyresim, ptam se ale,
> jak co nejjednodu�eji zabranit tem funkcim k pristupu k souborovemu systemu
> uzivatelova poce. Znamy mi poradil projit si soubor Windows.pas v adresari
Ahoj,
obavam se ze toto je temer neresitelne, o zadne takove zazracne funkci osobne
nic nevim ;-) Jako moznost me napada nejaky algoritmus ukryty v te DLL, kde
si importujes funkci, do ni neco zadas a dle vysledku zjistis zdali je to ta
tvoje nebo podvrh. Samozrejme i toto lze obejit, ale nemusi to uz byt tak
jednoduche. Existuje take moznost nejak pridat certifikat do PE souboru.
Petr Vones, amatersky programator
outlook
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:27
From: <olej.jozef(zv)slsp.sk>
> Neviete niekdo poradit ako sa da precitat mail z outlooku 97.
> Pripadne kde sa da najs nejake info.
Ahoj,
urcite by to melo jit pomoci Simple MAPI. Nevyhoda je, ze to timto zpusobem
lze jen z hlavni slozky 'Dorucena posta' a ne z pripadnych podadresaru.
Petr Vones, amatersky programator
DBRitchEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:47
From: <olej.jozef(zv)slsp.sk>
> Mam DBRitchEdit pricom ReadOnly=true na samostnatnej stranke TPageControl .
> Ked sa prepnem na tuto stranku a dataset nemam v edit alebo insert mode
> vypise sa oznam "dataset not in edit or insert mode"
Ahoj,
v jake verzi Delphi ?
Petr Vones, amatersky programator
Resource z .RC souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:45
From: "Jan Krizek" <krizek(zv)krizkules(tec)cz>
> V helpu je totiz zminka jen o tom $R, ale co znamena %RC jsem v helpu
nenasel.
Ahoj,
to je pouze informace pro editor balicku o danem RC souboru. Pro prekladac to
nema zadny vyznam.
Petr Vones, amatersky programator
Async FREE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:34
From: "Bednar��k Dalibor" <dalibor(zv)torola(tec)cz>
> Nemate nekdo zkusenosti s AsyncFree ve vlastni aplikaci bezici pod
Win2000...
> Pri ukonceni prenosu potrebnych dat a opetnem zpusteni komunikace mi to
vyhodi
> exception 'Vstupn� v�stupn� operace byla p�eru�ena bu� z d�vodu ukon�en�
> podprocesu, nebo na ��dost aplikace'
Ahoj,
a mas nejaky pokud mozno co nejjednodusi priklad kde se to projevuje ?
Petr Vones, amatersky programator
Prevod TDateTime na sekundy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:41
From: "Vojtek Jiri" <j_vojtek(zv)del(tec)cz>
> napriklad cislo 637489404 = 14.3.2000 8:23:24 , jde o sekundy od 1.1.1980
> ve Visual Basic jde o mydatum=DateAdd("s",637489404,DateSerial(1980,1,1))
Ahoj,
const
SecondsPerDay = 60 * 24 * 60;
function DateTimeToSeconds(DateTime: TDateTime): Int64;
begin
Result := Round(DateTime * SecondsPerDay);
end;
function SecondsToDateTime(Seconds: Int64): TDateTime;
begin
Result := Seconds / SecondsPerDay;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
S: Int64;
D: TDateTime;
begin
S := DateTimeToSeconds(EncodeDate(1980, 1, 1)) + 637489404;
D := SecondsToDateTime(S);
ShowMessage(DateTimeToStr(D));
end;
Petr Vones, amatersky programator
TOpenDialog - vyber vice adresaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:16:22
From: "Delphi Konference" <delphi(zv)zps.skoda-auto(tec)cz>
> Jenze ja potrebuji vybirat i adresare, coz nejde.
Ahoj,
urcita moznost by byla v uprave dialogu priadnim seznamu (ListBox) do
ktereho by jsi pomoci dalsiho pridaneho tlacitka pridaval prave vybrany
soubor. Problem je ale takovu vec rozhchodit na vsech Win95/98/NT4/2000.
Petr Vones, amatersky programator
APLIKACE Z JINE CESTY was Re: Smazani sama sebe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:17:22
From: "-=Ivomir=-" <Ivomir(zv)seznam(tec)cz>
> Ale windowsy mi nedovoli spustit
> DVAKRAT STEJNOU APLIKACI i kdyz jsem ji dal jine jmeno(proste to pozna).
Ahoj,
to se mi nejak nezda, pokud si pamatuju tak v 16bit 'Windows' byl problem
se spoustenim aplikaci stejneho nazvu v ruznych adresarich. Nemas tam nahodou
kod pro kontrolu spusteni vice instanci ?
Petr Vones, amatersky programator
DLL a 16 a 32bit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:17:08
From: "Tibor Galik" <TGalik(zv)vsz.sk>
> - ako do D4 zakomponovat volanie funkcii zo 16bitoveho DLL-ka ?
> prosim o nejaky priklad
Ahoj,
nesnadno, pokud to opravdu neni zivotne dulezite tak se tomu snaz vyhnout
(lepsi DLL prepsat pokud k ni mas zdrojak). Neco najdes tady:
http://www.itecuk.com/delmag/thunk95.htm
> - da sa nejako zistit ci aplikacia je 16 alebo 32 bitova ?
type
TJclFileExeType = (etError, etMsDos, etWin16, etWin32Gui, etWin32Con);
function GetFileExeType(const FileName: TFileName): TJclFileExeType;
var
FileInfo: TSHFileInfo;
Ret: DWORD;
begin
Ret := SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
SHGFI_EXETYPE);
case LoWord(Ret) of
IMAGE_DOS_SIGNATURE:
Result := etMsDos;
IMAGE_OS2_SIGNATURE:
Result := etWin16;
Word(IMAGE_NT_SIGNATURE):
if HiWord(Ret) = 0 then
Result := etWin32Con
else
Result := etWin32Gui;
else
Result := etError;
end;
end;
Petr Vones, amatersky programator
Vicejazycne formulare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:17:12
From: "Lud�k P�ral" <ludek.paral(zv)telecom(tec)cz>
> prosim o zkusenosti s vicejazycnym prostredim. Zkousim komponenty
VGLib(Rus),
> docetl jsem se , ze vicejazycne prostredi podporuje D5-Enterprise, ale nevim
> podrobnosti.
Ahoj,
Lokalizaci podporuje Delphi jiz od verze 3, navic k tomu nepotrebujes ani
Enterprise verzi. V te mas navic jen integrovany nastroj pro preklad, misto
neho muzes pouzit Lokalizator (http://www.localizator.com). Ohledne prepinani
jazykovych verzi se podivej do \Demos\Richedit
Petr Vones, amatersky programator
Ztratila se mi ikona
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:17:15
From: "-=Ivomir=-" <Ivomir(zv)seznam(tec)cz>
> Chci nastavit ikonu aplikace (project/options/application) kterou bude mit
.exe soubor
> a vono najednou je to neaktivni vlastnost proc nevite?
Ahoj,
nevytratil se ti z projektoveho souboru (.DPR) radek:
{$R *.RES}
Petr Vones, amatersky programator
APLIKACE Z JINE CESTY was Re: Smazani sama sebe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2000 23:17:19
From: "Lauko �tefan" <lauko(zv)salamon.sk>
> ja viem skorej o opacnom probleme - je dost problematicke zabezpecit
> kontrolu na viacnasobne spustenie app. a zabezpecit len jednu instanciu.
Ahoj,
v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) najdes unit JclAppInst pomoci
ktereho muzes zajistit beh jedne ci jineho max.poctu instanci aplikace, vcetne
moznosti ziskani seznamu process ID a HWND bezicich instanci jakozto i zasilat
zpravy ostanim instancim ci ziskat oznameni v pripade ukonceni/spusteni.
Petr Vones, amatersky programator
MS Access 97 a D5 PRO
[*] E&J soft <uli(zv)internet.sk> - 11.9.2000 00:22:43
Pekny den ci noc preji,
prosim o radu ohledne pripojovani a prace s Access databazi.
K Accessu pristupuji pres BDE z D5 PRO.
Problem, ktereho jsem si doposud nevsiml :
Vytvoreni noveho zaznamu probehne v poradku i jeho ulozeni,
ale pri editaci jakekoli polozky zaznamu se objevi chybova hlaska od
ovladace ODBC pro MS Access,
ze Nastal Key Violation a ze retezec v polozce nemuze mit nulovou delku.
Prosim nesetkal jste se nekdo s podobnym problemem ? Da se s tim neco
delat ?
Asi bude lepsi prejit na nejake ADO komponenty.
Dekuji
Jaro
DBRitchEdit
[*] olej.jozef(zv)slsp.sk - 11.9.2000 06:46:33
Client/Server Suite Version 3.0 (Build 5.83)
> Ahoj,
> v jake verzi Delphi ?
> Petr Vones, amatersky programator
>
From: <olej.jozef(zv)slsp.sk>
> Mam DBRitchEdit pricom ReadOnly=true na samostnatnej stranke
TPageControl .
> Ked sa prepnem na tuto stranku a dataset nemam v edit alebo insert
mode
> vypise sa oznam "dataset not in edit or insert mode"
Vyp�n�n� zvuku
[*] yyy(zv)post(tec)cz - 11.9.2000 07:03:48
M��ete mi pros�m poradit jak vyp�nat a zap�nat zvukov� v�stup. Spezi�ln� m� zaj�ma LineOut.
D�ky Radim
Async FREE II
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 11.9.2000 07:16:47
> Ahoj,
>
> a mas nejaky pokud mozno co nejjednodusi priklad kde se to projevuje ?
>
> Petr Vones, amatersky programator
>
>
>
No, projevuje se to treba i v PRILOZENEM DEMU...
Kdyz pomoci nej prijmu 8193b a pak treba ukoncim aplikaci nebo se pokusim
uzavrit
port a je to ..
exception
ERROR CLEARING BUFFER(995) -
Vstupn� v�stupn� operace byla p�eru�ena bu� z d�vodu ukon�en� podprocesu,
nebo na ��dost aplikace.
(D5prof, Win200CZ)
Preskok na definici/deklaraci v IDE Delphi
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 11.9.2000 07:35:59
ahoj,
preskok mezi deklaraci a definici lze provest Ctrl+Up/Down (ctrl a sipka
nahoru nebo dolu).
a jako nahradu ctrl+click pouzivam menu (klavesa na win klavesnici,
ktera vyvola kontextovou nabidku) a v tom menu je hned prvni polozka
find declaration, takze sipka dolu a enter.
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> > Ahoj,
> > Delphi ve verzi 5 zavedli prima vec, kdyz v IDE stisknu Ctrl a
> > kliknu na
> > identifikator tak me to prenese na definici pripadne deklaraci
> > tohoto
> *** No me by spise zajimalo, jestli se ta sama akce da provest
> pouze pomoci klavesnice, to jest bez mysi (ono to prehmataani
> prece jen zdrzuje).
>
> Petr
Popis .ICO a .CUR
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 11.9.2000 07:40:14
ahoj,
nezma presne url, ale na wogsit (nebo vogsite, votsite wottsit ?)
proste, porad se tu ta sajta omila, ale cur a ico je v popisu *.BMP :).
ponevadz jsem si popis bmp stahoval, tak jsem si vsim, ze v popisu je ku
venovanej i temto aouborum.
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> mate nekdo (nebo vite, kde se to schovava) popis souboru .ICO a
> .CUR?
> Zbysek Hlinka
Excel velikost tabulky
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 11.9.2000 08:14:08
Potrebuji v Excelu zjistit rozmery tabulky - neznam presne rozsah vyplnenych
bunek
Momentalne to delam prohledanim vsech bunek a zjistovanim, jestli jsou
prazdne:(
Zda se mi to znacne primitivni a navic je to pomale. Tak se ptam zda nekdo
nevi jak na to lepe. V helpu VB jsem nic nenasel. Jeste jeden problem snazim
se nacist cely sloupec
tabulky. Ve VB to jde jak to zkusim pres Delphi tak mi to hodi na hlavu:)
Za kazdou radu predem diky. J. Vojt.SELECT na SQL DB
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 08:18:43
A neslo by neco takoveho ?
SELECT "kniha.nazev"=kniha.nazev, "dodav.spojeni"=dodav.spojeni ... atd.
Pouzivani SELECT * nedoporucuju
-----P�vodn� zpr�va-----
Od: mkotaska(zv)atlas(tec)cz [SMTP:mkotaska(zv)atlas(tec)cz]
Odesl�no: 5. z��� 2000 8:54
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: SELECT na SQL DB
Dobry den.
Nejprve omluva za OT, i kdyz souvisi s Delphi.
Da se obecne nejakym nastavenim zajistit, aby dotaz,ktery zasilam DB
serveru (MS SQL Server, Interbase) vracel vysledek dotazu - konkretne nazvy
vybranych sloupcu tabulek - vcetne jmena tabulky ?
Pr.:
SELECT kniha.*,dodav.* FROM kniha,dodav WHERE hniha.id_partner =
dodav.id_partner
Pozadovany vysledek:
kniha.nazev dodav.spojeni
------------ --------------
Test polozka 123456789
.
.
atd.
Kdo by vedel, budu rad, kdyz mi odpovi.
Dekuju.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
MS Access 97 a D5 PRO
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 11.9.2000 08:19:22
>
> prosim o radu ohledne pripojovani a prace s Access databazi.
> K Accessu pristupuji pres BDE z D5 PRO.
>
> Problem, ktereho jsem si doposud nevsiml :
> Vytvoreni noveho zaznamu probehne v poradku i jeho ulozeni,
> ale pri editaci jakekoli polozky zaznamu se objevi chybova hlaska od
> ovladace ODBC pro MS Access,
> ze Nastal Key Violation a ze retezec v polozce nemuze mit nulovou delku.
>
> Prosim nesetkal jste se nekdo s podobnym problemem ? Da se s tim neco
> delat ?
Otevri tabulku v Accesu najed do "Navrhu tabulky" a u fieldu, ktere nemusi
byt vyplneny nastav
Je nutno zadat na NE a Povolit nulovou delku na ANO a melo by to jet.
S pozdravem
Petr Sadovsky
MS SQL 7 - pripojeni aplikace
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 08:23:47
Tohle jsem videl, kdyz doslo k uspani pocitace pres power management
-----P�vodn� zpr�va-----
Od: Delphi Energotek [SMTP:delphi(zv)energotek(tec)cz]
Odesl�no: 7. z��� 2000 14:15
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: MS SQL 7 - pripojeni aplikace
Zdravim vsechny pritomne
mam takovy zapeklity problem s MS SQL 7. Od jiste doby zacal vykazovat
nasledujici chyby v pomerne castem
sledu za sebou (po cca 1-8 minutach, podle cinnosti)
Toto hlasi - kdyz je v ODBC nastaven protokol NamedPipes
[Microsoft][ODBC SQL Server
Driver][NamedPipes]ConnectionTransact[TransactNamedPipe()]
[Microsoft][ODBC SQL Server Driver][NamedPipes]Invalid connection
Tato hlaska se objevi, je-li protokol v ODBC nastaven na TCP/IP at s pevnou
IP adresou klienta nebo s DHCP
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]ConnectionWrite [send()]
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]General network error.
Check your network documentation
Kdyz se aplikace pokusi o nejaky pomerne jednoduchy dotaz do databaze -
dojde k tomuto hlaseni
(Protokol NamedPipes)
[Microsoft][ODBC SQL Server Driver][NamedPipes]
[Microsoft][ODBC SQL Server Driver]Communication link failure
A aby toho nebylo dost, tak cas od casu pri pripojeni aplikace, ktera ceka
na cinnost pomoci timeru
dojde k tomuhle
Read failure.
General SQL Error
[Microsoft][ODBC SQL Server Driver]Communication link failure
Aplikace je psana v Delphi4 Proff, pouziva se BDE 5.01 (nekamenovat,prosim)
:-)
ODBC 03.07.0623 a MS SQL 7.0 (SP 2)
Prostredi Win NT Work - SP 5, klienti W98
Sitovy provoz stredni
Vsechny chyby jsou hlaseny "aplikaci", tj pod hlavickou Delphi
Chyby se zacaly objevovat ze dne na den, dalsi vec je - ze inkriminovanou
noc
a cast dne nejel vetrak na serveru a bylo indikovano prehrivani. Nevim
jestli
to s tim muze souviset. Sit, posta a ostatni veci bezi normalne.
I z QA nebo z Manageru se na databazi dostanu, i po siti a nic se nedeje.
Spustim-li aplikaci, chvilku jede, pak se vylosuje jedna z vyse uvedenych
chyb, zahlasi se, databaze se tvari jako by tam nebyla, po znovuspusteni
aplikace jede zase chvilku normalne a tak se to porad opakuje.
Nevite nekdo kde by mohl byt pes zakopan ? Kde zacit patrat apod. ?
Diky za kazdy namet. (Omlouvam se za rozkecanost)
Libor Klicnik
ICQ : 37747310
E-mail : liborkl(zv)energotek(tec)cz
SELECT na SQL DB
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 08:30:08
A neslo by neco takoveho ?
SELECT "kniha.nazev"=kniha.nazev, "dodav.spojeni"=dodav.spojeni ... atd.
Pouzivani SELECT * nedoporucuju
-----P�vodn� zpr�va-----
Od: mkotaska(zv)atlas(tec)cz [SMTP:mkotaska(zv)atlas(tec)cz]
Odesl�no: 5. z��� 2000 8:54
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: SELECT na SQL DB
Dobry den.
Nejprve omluva za OT, i kdyz souvisi s Delphi.
Da se obecne nejakym nastavenim zajistit, aby dotaz,ktery zasilam DB
serveru (MS SQL Server, Interbase) vracel vysledek dotazu - konkretne nazvy
vybranych sloupcu tabulek - vcetne jmena tabulky ?
Pr.:
SELECT kniha.*,dodav.* FROM kniha,dodav WHERE hniha.id_partner =
dodav.id_partner
Pozadovany vysledek:
kniha.nazev dodav.spojeni
------------ --------------
Test polozka 123456789
.
.
atd.
Kdo by vedel, budu rad, kdyz mi odpovi.
Dekuju.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
MS SQL 7 - pripojeni aplikace
[*] Bardon <bardon(zv)ineq-soft(tec)cz> - 11.9.2000 08:30:16
Tohle jsem videl, kdyz doslo k uspani pocitace pres power management
-----P�vodn� zpr�va-----
Od: Delphi Energotek [SMTP:delphi(zv)energotek(tec)cz]
Odesl�no: 7. z��� 2000 14:15
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: MS SQL 7 - pripojeni aplikace
Zdravim vsechny pritomne
mam takovy zapeklity problem s MS SQL 7. Od jiste doby zacal vykazovat
nasledujici chyby v pomerne castem
sledu za sebou (po cca 1-8 minutach, podle cinnosti)
Toto hlasi - kdyz je v ODBC nastaven protokol NamedPipes
[Microsoft][ODBC SQL Server
Driver][NamedPipes]ConnectionTransact[TransactNamedPipe()]
[Microsoft][ODBC SQL Server Driver][NamedPipes]Invalid connection
Tato hlaska se objevi, je-li protokol v ODBC nastaven na TCP/IP at s pevnou
IP adresou klienta nebo s DHCP
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]ConnectionWrite [send()]
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]General network error.
Check your network documentation
Kdyz se aplikace pokusi o nejaky pomerne jednoduchy dotaz do databaze -
dojde k tomuto hlaseni
(Protokol NamedPipes)
[Microsoft][ODBC SQL Server Driver][NamedPipes]
[Microsoft][ODBC SQL Server Driver]Communication link failure
A aby toho nebylo dost, tak cas od casu pri pripojeni aplikace, ktera ceka
na cinnost pomoci timeru
dojde k tomuhle
Read failure.
General SQL Error
[Microsoft][ODBC SQL Server Driver]Communication link failure
Aplikace je psana v Delphi4 Proff, pouziva se BDE 5.01 (nekamenovat,prosim)
:-)
ODBC 03.07.0623 a MS SQL 7.0 (SP 2)
Prostredi Win NT Work - SP 5, klienti W98
Sitovy provoz stredni
Vsechny chyby jsou hlaseny "aplikaci", tj pod hlavickou Delphi
Chyby se zacaly objevovat ze dne na den, dalsi vec je - ze inkriminovanou
noc
a cast dne nejel vetrak na serveru a bylo indikovano prehrivani. Nevim
jestli
to s tim muze souviset. Sit, posta a ostatni veci bezi normalne.
I z QA nebo z Manageru se na databazi dostanu, i po siti a nic se nedeje.
Spustim-li aplikaci, chvilku jede, pak se vylosuje jedna z vyse uvedenych
chyb, zahlasi se, databaze se tvari jako by tam nebyla, po znovuspusteni
aplikace jede zase chvilku normalne a tak se to porad opakuje.
Nevite nekdo kde by mohl byt pes zakopan ? Kde zacit patrat apod. ?
Diky za kazdy namet. (Omlouvam se za rozkecanost)
Libor Klicnik
ICQ : 37747310
E-mail : liborkl(zv)energotek(tec)cz
Registry
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 11.9.2000 08:33:34
Je to velice jednoduche - Delphi pri volani OpenKey chteji klic otevrit v
modu KEY_ALL_ACCESS a ten nemuzes jako obycejny user pouzit v HLM. Zkus
pouzit OpenKeyReadOnly nebo nastav property Access na KEY_READ pred volanim
OpenKey.
vic info je u hesla RegOpenKeyEx ve Win32 API
Milan Tomes
> Ahoj,
>
> Nejak se mi nedari prace s registrama pod NT.
> Do HKEY_LOCAL_MACHINE pri instalaci
> zapisu nejake klice a hodnoty - jako admin a potom
> pri dotazu na klic jako user dostavam hlaseni, ze klic
> neexistuje. Pritom pomoci regeditu vsechno vidim
> i jako user. Pomoooooc prosim.
>
> Pavel
QRDBRichText
[*] Ji�� Fait���}���6���3 - 11.9.2000 09:13:26
To je divne, zkousel jsem to nad tabulkou biolife (DBDEMOS) pole NOTES a
zobrazovalo mi to bez problemu.
- Mas posledni verzi QR (3.0.7)?
- Vlastnosti Autostretch zajistis ze pokud z jakehokoli duvodu bude nacteny
obsah desli ne v dobe navrhu roztahne se ti komponenta na patricnou vysku.
Pozor pokud budes mit neco pod ni tak ti to premaluje. Resi se to tak ze se
tyto komponenty s promennou vyskou davaji na samostatny QRChildBand.
Doporucuji nejprve zkusit ten Autostretch := true.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jiri Kral
Sent: Friday, September 08, 2000 1:46 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: QRDBRichText
opravka: jedna se o QRDBRichText
>>Predpokladam ze mas nastavene
>>AutoSize := false
>>AutoStretch := true;
>>a vysku komponenty tak n jeden radek
QRDBRichText nema vlastnost Autosize.
Autostretch mam false;
Komponenta ma pevnou vysku tak na 25 radku.
Presto se zobrazi jen prvnich 10.
JK
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
Registry
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 11.9.2000 09:47:00
> Ahoj,
>
> Nejak se mi nedari prace s registrama pod NT.
> Do HKEY_LOCAL_MACHINE pri instalaci
> zapisu nejake klice a hodnoty - jako admin a potom
> pri dotazu na klic jako user dostavam hlaseni, ze klic
> neexistuje. Pritom pomoci regeditu vsechno vidim
> i jako user. Pomoooooc prosim.
>
> Pavel
Kterou verzi Delphi pouzivas ? Ja mam D4, a tam je
v unite Registry chyba. Pozaduje pro kazdy pristup
k registrum (i cteni) plna prava. A pro
HKEY_LOCAL_MACHINE ma plna prava jen
administrator, nestaci ani prava power user.
Ja to trochu upravil, jestli chces, tak ti tu opravu
poslu, mailni mi na rkunz(zv)casestudio.com
Radim
IB6 - podminka ve vypoctu sloupce
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 11.9.2000 09:49:17
ahoj,
potreboval bych poradit,
chci vypocet v selectu s podminkou ve vypoctu.
jed to? umi IB6 podminky ve vypoctech?
v MSDE (MSSQL7) to slo tusim CASE WHEN:xxx, WHEN:xxx, ... ELSE ... END,
v IB6 nic takovyho nemuzu najit...
diky
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
DLL a 16 a 32bit
[*] Tibor Galik <TGalik(zv)vsz.sk> - 11.9.2000 09:50:47
>nesnadno, pokud to opravdu neni zivotne dulezite tak se tomu snaz vyhnout
>(lepsi DLL prepsat pokud k ni mas zdrojak).
Bohuzial.
Robim komunikaciu medzi psion 3c a PC a na INETE bola DLL kniznica ale iba 16bit-ova a bez zdrojakov.
Neco najdes tady:
>http://www.itecuk.com/delmag/thunk95.htm
Vdaka >> - da sa nejako zistit ci aplikacia je 16 alebo 32 bitova ?
>
>type
> TJclFileExeType = (etError, etMsDos, etWin16, etWin32Gui, etWin32Con);
>
>function GetFileExeType(const FileName: TFileName): TJclFileExeType;
>var
> FileInfo: TSHFileInfo;
> Ret: DWORD;
>begin
> Ret := SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
>SHGFI_EXETYPE);
> case LoWord(Ret) of
> IMAGE_DOS_SIGNATURE:
> Result := etMsDos;
> IMAGE_OS2_SIGNATURE:
> Result := etWin16;
> Word(IMAGE_NT_SIGNATURE):
> if HiWord(Ret) = 0 then
> Result := etWin32Con
> else
> Result := etWin32Gui;
> else
> Result := etError;
> end;
>end;
>
>Petr Vones, amatersky programator
>
Dakujem. Tato f-cia mi potvrdila moj predpoklad, ze aj vzorove aplikacie pre komunikaciu so psionom su 16bit-ve.
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
IB6: ForcedRefresh - property does not exist
[*] Ota Maly <maly(zv)space(tec)cz> - 11.9.2000 09:50:44
Ahoj vespolek,
pouzivam IB6, pripojuji se pomoci TIBDataSet. Vidim, ze TIBDataSet ma
vlastnost ForcedRefresh, vyznam bych i snad chapal, ale pokud to nastavim na
true, program pri behu programu po spusteni spadne s vyjimkou "Property does
not exist". Co delam spatne?
Do databaze se pripojim v pohode, jen tato vlastnost mi nejak nejde
rozchodit..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
VB a Excel
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 11.9.2000 09:59:23
Omlouvam se, ze otravuju,
ale mam problemi s prevodem VB do Delphi. V Excel VB mam prikaz
With Worksheets(1)
.Range(.Cells(1, 1), _
.Cells(10, 10)).Borders.LineStyle = xlThick
End With
Ten pracuje bez problemu. A kdyz se ho pokusim naslapat nejakym zpusobem
do Delphi tak se porad bouri a tim nemyslim jen ze chce jine zavorky.
Predpokladam, ze delam nejakou zakladni chybu a tak prosim pomozte:0-)
Diky J. Vojt.zav�en� okna
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 11.9.2000 10:33:00
V aplikaci mam definovanu radu formu. Krome hlavniho a datoveho modulu,
ktere se vytvari v projektovem souboru (Applicatin.FormCreate(THlavniOkno,
HlavniOkno); ...) zobrazuji okna pomoci konstrukce
.....
Applicatin.FormCreate(TNeco,Neco);
Neco.Show;
.......
podle potreby.
Okno zavre uzivatel, nebo zustane otevrene. Pri ukonceni aplikace jsem
chtel, aby okna, ktera zustala otevrena se uzavrela drive nez hlavni okno.
Funguje pouziti FindWindow a zaslani zpravy WM_CLOSE. Pritom i kdyz neni
okno podle mne vytvoreno, handle tohoto okna <>0 a tak se ( podle mne
neexistujicimu oknu) posila zadost o zavreni. Nedojde pritom k zadne
vyjimce. V teto souvislosti mi neni jasne, zda vynechanim konstrukce oken v
projektovem souboru vubec usetrim pri behu aplikace pamet, nebo jenom
zdroje.
Petr Ma��k
RT electronic
Lokalizace program�
[*] Tom� Kru��k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 11.9.2000 11:17:33
Ahoj,
Mohl by mi nekdo poradit jak jednoduse lokalizovat retezce v aplikaci
vytvorene v Delphi1. Nejlepsi by bylo veskere retezce vlozit do nejekeho
souboru (zde je prepsat na jazykove spravne) a nadale je z tohoto souboru
prebirat do stringu v aplikaci
Za dobrou radu predem dekuji
Tom� Kru��k
t.kruzik(zv)msp.mesit(tec)cz
tel.:0632-522632
mobil: 0603-947060
Co je nove v IB 6.0.1 ?
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 11.9.2000 11:19:08
> Lebo okrem IBConsole 1.0.0.315 som nic nenasiel, vsetky subory su
> povodne.
Binarni soubory by mely byt identicke az na IBConsole (ale ta uz
je nyni k dispozici minimalne ve verzi ...317) a verzi (nebo snad jen
timestamp) na msvcrt.dll (pri instalaci to puvodne mylne
nahrazovalo novejsi verzi dll starsi)
Jiri Binder
Barva clCream?
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 11.9.2000 11:22:37
Ahoj vsem,
ne ze by to bylo nejak dulezite, ale zarazilo me to: pri nastavovani barvy
nejakeho prvku (property Color) jsem v kombicku s barvami zajel dale nez
jindy a objevila se hlaska: "clCream is not a valid integer value" a tim
listovani kombickem s barvami skoncilo. Tusite nekdo, co to ma znamenat a
kde je chyba? (W98SE, D5Prof)
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************synchronizacia systemoveho casu cez internet ?
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 11.9.2000 11:35:17
Neviete niekto ak sa robi synchronizacia systemoveho casu cez internet ?
Je na to nejaka komponenta, najlepsie pre C++ Builder, ale moze byt aj .pas.
Dik
Peto
mojdis(zv)pobox.sk
MS SQL 7 - pripojeni aplikace
[*] Delphi Energotek <delphi(zv)energotek(tec)cz> - 11.9.2000 11:42:06
>
> No ja bych nejdrive povymenoval sitove prvky (HUB&spol).
> U nas to napr. z jedne casti site pri pripojeni pres jeden konkretni
sitovy
> prvek
> ma tu neprijemnou vlastnost ze vse trva 10x dele nez z ostatni casti site.
> Problem se pritom projevu jen pri pouziti Delphi3.02&BDE5.11
> a v nastaveni klienta MSSQL serveru je protokol NamedPipes.
> Po prepnuti na protokol TCP/IP je to OK i z Delphi&BDE.
> Ostatni aplikace (Query Analyzer, posta, fileserver, internet)
> to vse jede OK stale bez ohledu na cas a misto a nastaveni.
> Jen Delphi pres NamedPipes jsou jak snek.
> A je to zpusobeno tim sitovym prvkem (vytrh jsem kabel a dal jsem
> ho do jineho a uz to bylo OK).
>
> Rob
>
>
Jo. S protokolama jsem tez laboroval, ale jelo to spatne i s
TCP/IP. Jak psal kolega - sleep mode - to by bylo dobry, kdybych
nemel jasne dukazy o tom, ze server je v tu chvili aktivni a rozhodne neni
uspanej, ani na nem nejede zadny 3D setric apod.
Technicky se mi zda sit dobra. Jeste mne napadla myslenka
spojeni BDE x ODBC - jestli neni nekde moucha v tom, za databaze
prave prekrocila 2GB , nemate s tim nekdo zkusenost ? (Ve smyslu - BDE vetsi
data od MS SQL nezvladne apod. ?) Eventuelne dlouhe transakce - blokovani
pripojeni ? I kdyz aplikace jede nad jednou TDatabase.
Nejsem si totiz moc jisty, jak obalit vypocty transakci - jestli ve vlozene
procedure
na serveru, nebo primo v Delphi.
Dik Libor
Variant array
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 11.9.2000 11:52:47
Tak a uz jsem tu zas:-)
momentalne mam tenhle problem
jako odpoved na dotaz COM dostanu Variant, ale jako pole a tady
je kamen urazu. Pokud zjistuji jakeho je pole typu pise mi ze je to variant
pole variantu.
Presto, ze to delphi maji podle helpu umet normalne pres index tak nejsem
schopen nacist z tohoto pole zadnou
hodnotu. Pokazde skoncim na evariant error. Dokonce jsem to zkousel nacist
do jineho variantu a porad chyba.
Var
v,v1:Variant;
i:Integer;
a:Array [1..3] of string;
s:string;
begin
With ExcelWorksheet1 Do
Begin
V:=Range[Cells.Item[2,2],Cells.Item[8,2]].Value;
END;
Try
v1:=v[VarArrayHighBound(v,1)];
s:=VartoStr(v[1]);
i:=VarType(v);
Except
on eVariantError do i:=0;
End;
i:=i+1;
Label1.caption:=inttostr(i);
end;
Tak pokud nekdo vite co s tim ozvete se prosim:-)Predem dekuju J. Vojt.synchronizacia systemoveho casu cez internet ?
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.9.2000 11:57:31
> Neviete niekto ak sa robi synchronizacia systemoveho casu cez internet
> ? Je na to nejaka komponenta, najlepsie pre C++ Builder, ale moze byt
> aj .pas.
Vim... pres protokol NTP ci SNTP. Oboje umi moje komponenty...
viz muj podpis. :-) je to free i se zdrojakama.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
TStoredProc
[*] Jurica Marek <marekj(zv)tdat(tec)cz> - 11.9.2000 12:04:10
Ahoj,
mala poznamka - nebylo by lepsi zavolat Parameters.Refresh ?
Nebylo
> -----Original Message-----
> From: Jaroslav Nadhera [mailto:nadhera(zv)csh(tec)cz]
> Sent: Thursday, September 07, 2000 2:17 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: TStoredProc
>
>
> Ja volam ulozene procedury takhle:
>
> With tADOStoredproc.Create(nil) do Try
> ExecuteOptions := [eoExecuteNoRecords];
> Connection := UseConnection;
> Procedurename := 'test_pfaktura_DPHdovoz';
> Parameters.Clear;
>
> Parameters.CreateParameter('(zv)ID_pfaktura',ftInteger,pdInput,0,
IDPFaktura);
> Barva clCream?
[*] Josef Slan� <slany(zv)hasici.znojmo(tec)cz> - 11.9.2000 12:13:51
clCream pridava RX library. Je treba nainstalovat fix na verzi
4.75. Link ted nevim, ale na pozadani poslu. Po aplikaci uz
mi to tuto chybu nehlasilo a clCream pouzivam bezne.
Josef Slan�
mailto:slany(zv)hasici.znojmo(tec)cz
Tel:0624-200740
GSM:0603-844999
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Brant Petr
Sent: Monday, September 11, 2000 11:23 AM
To: Konference Delphi (el. adresa)
Subject: Barva clCream?
Ahoj vsem,
ne ze by to bylo nejak dulezite, ale zarazilo me to: pri nastavovani barvy
nejakeho prvku (property Color) jsem v kombicku s barvami zajel dale nez
jindy a objevila se hlaska: "clCream is not a valid integer value" a tim
listovani kombickem s barvami skoncilo. Tusite nekdo, co to ma znamenat a
kde je chyba? (W98SE, D5Prof)
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************VB a Excel
[*] martin.falta(zv)obi.de - 11.9.2000 11:26:50
Ahoj,
zkus to takhle:
With Worksheets[1]
Range[Cells[1, 1],
Cells[10, 10]].Borders.LineStyle = xlThick
End;
Martin
---------------------- Weitergeleitet von Martin Falta/OBI/CZ am 11.09.2000
11:34 ---------------------------
Von: j_vojtek(zv)del(tec)cz(zv)fwd(tec)cz am 11.09.2000 09:59 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: VB a Excel
Omlouvam se, ze otravuju,
ale mam problemi s prevodem VB do Delphi. V Excel VB mam prikaz
With Worksheets(1)
.Range(.Cells(1, 1), _
.Cells(10, 10)).Borders.LineStyle = xlThick
End With
Ten pracuje bez problemu. A kdyz se ho pokusim naslapat nejakym zpusobem
do Delphi tak se porad bouri a tim nemyslim jen ze chce jine zavorky.
Predpokladam, ze delam nejakou zakladni chybu a tak prosim pomozte:0-)
Diky J. Vojt.
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Volani vzdaleneho COM objektu
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 11.9.2000 12:47:22
On 10 Sep 2000, at 18:59, Zbysek Hlinka wrote:
A pise to chybu "Interface not Supported" nebo porad "Access denied"?
Me se NIKDY nepodarilo vytvorit obekt pres DCOM v tomto tvaru
(nejspise tvuj zpusob volani):
Serv := CoMojeTrida.CreateRemote(<nazev_poce>);
kde Serv je TMojeTrida. TMojeTrida a CoMojeTrida je z *TLB.pas
souboru, kterej se sam generuje.
Vzdycky sem COM objekt musel vytvorit takto:
Serv := IMojeTrida(CreateComObject(CLASS_MojeTrida) as IDispatch);
kde Serv je VARIANT! Tento zpusob volani (s Variantem) je urcen
hlavne pro Visual Basic a podobny veci. Takto sem se sice pripojil,
muzu volat metody, nejak to funduje, ale kompilator kuprikladu
nekontroluje syntaxi volanych metod a je to cele takove polovicate...
Kdyztak se zkus pripojit pres ten Variant, a pokud to pujde, neni
problem v uzivatelich, ale v cemsi zahadnem...
>
> Uz z toho zacinam pomalu zoufat. Zkousel nastaveni i podle tvych, a
> stale nic. V nejakem dokumentu se pise, ze bych mel mit nastaveny
> User-Level, ktery se nastavuje v Control Panel / Network / Access
> Control. Jenze je to psane pro NT, na W2000 se mi nepodarilo najit
> ekvivalent.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Ulozeni System.dat
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 11.9.2000 13:50:49
Ahoj lidi.
Narazil jsem na nasledujici problem. Provedu zmenu v registru a
potrebuji zazalohovat soubor system.dat s touto zmenou. Existuje nejaka
funkce, ktera donuti provest aktualizaci system.dat. Ja to resim tak, ze
cekam az dojde ke zmene datumu tohotou souboru, coz nekdy trva treba i
minutu nebo dve.
Predem dik Jirka
VB do Delphi
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 11.9.2000 13:57:36
Ahoj lidi.
Jeste jeden dotaz. Existuje nejaka obecna pomucka jak prevest
VisualBasic do Delphi.
Predem dik Jirka
prace s cisly integer (zaokrouhleni)
[*] Milan ��ek - 11.9.2000 13:58:27
ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
neslo vice profesionalne...
Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v pripade
6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na 1300...
Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer cisly??
osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
SpinEditu.
Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
libilo :)
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Preskok na definici/deklaraci v IDE Delphi
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 11.9.2000 14:02:38
Diky za radu, preskok mezi deklaraci a definici funguje a to pomoci Ctrl+Shift+(sipka nahoru/dolu). Samotne Ctrl+(sipka nahoru/dolu) scrolluje textem bez zmeny pozice kurzoru.
(D5Prof, w2k)
Honza +
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Palicka
Sent: Monday, September 11, 2000 7:36 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Preskok na definici/deklaraci v IDE Delphi
ahoj,
preskok mezi deklaraci a definici lze provest Ctrl+Up/Down (ctrl a sipka
nahoru nebo dolu).
a jako nahradu ctrl+click pouzivam menu (klavesa na win klavesnici,
ktera vyvola kontextovou nabidku) a v tom menu je hned prvni polozka
find declaration, takze sipka dolu a enter.
dekuji
peca
prace s cisly integer (zaokrouhleni)
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.2000 14:10:26
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na 1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer cisly??
Co treba takhle:
X = ((X+5) mod 10)*10
P.
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]prace s cisly integer (zaokrouhleni)
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.2000 14:11:54
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na 1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer cisly??
Co treba takhle:
X = ((X+5) mod 10)*10
^^^^^^^^
Teda tady patri samozrejme DIV (celociselne deleni), krapet jsem
se uklep...!!!
P.[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]prace s cisly integer (zaokrouhleni)
[*] Ale� Va���ek�����"q��y�&���w�3 - 11.9.2000 14:25:51
Uplne jednoduse by to slo udelat tak, ze to cislo prevedes na float, vydelis
to 10, potom to standartne zaokrouhlis funkcema s delphi. No a potom zase
vynasobit nazpet 10 a prevest na Integer.
Ales
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 1:58 PM
Subject: prace s cisly integer (zaokrouhleni)> ahoj, ne ze by to byl nejaky podstatny problem, ale zajma me, jestli by to
> neslo vice profesionalne...
>
> Mam cislo ziskane ze SpinEditu, toto cislo potrebuji zaokrouhlit na cele
> desitky. Napr. pokud uzivatel zada 1234, bude prepocteno na 1230, v
pripade
> 6789 na 6790. Pochopitelne i prechod mezi rady: zadane cislo 1298 na
1300...
> Muzete mi nekdo nastinit alespon nejake prikazy pro praci s integer
cisly??
>
> osobne me napada jen reseni, ze bych to prevedl na string a pak pomoci
> string[x] porovnaval... Vysledek bych prevedl zpet na integer a dosadil do
> SpinEditu.
>
> Existuje nejaky prikaz, typu promena_integer[druhe_cislo] jako u stringu??
> Pak bych mohl vzit jen posledni cislo, zjistit, jestli je >=5, pokud ano,
> pak pricist x do deseti, pokud ne odecist x do nuly... tak by se mi to
> libilo :)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>StayOnTop okno
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 11.9.2000 14:27:14
Zdravim vsechny,
nevi z Vas nekdo proc je okno stylu fsStayOnTop porad "On top", i kdyz
aplikace uz neni aktivni. To se stane pouze tehdy, kdyz to fsStayOnTop okno
otevru z modalniho okna, kdyz z hlavniho okna aplikace, tak je vse OK.
Nevite nekdo jak by se to dalo nejak jednoduse (treba jenom nastavenim
nejakych parametru) zaridit, aby to fsStayOnTop okno nebylo nahore, kdyz se
prepnu do jine aplikace.
predem diky
Tomas
t.bradle(zv)pvtnet(tec)cz
Delphi 5 Profi na Win2000CZ Profi
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 11.9.2000 14:31:52
Nakonec jsem prisel na to, v cem je zakopany pes:
Pri instalaci Delphi5 na W2000 jsem pouzil uzivatele s pravy administratora,
jehoz jmeno obsahovalo mezeru a taky hacky a carky (nevim proc to vadi, kdyz
interne by mel byt uzivatel reprezentovan identifikatorem nezavislym na
jmenu). Po vytvoreni noveho uzivatele s "anglickym" jmenem uz lze Delphi
nainstalovat (resp. jakykoli novejsi Borland produkt - treba trial verze) .
Takze skutecne reseni teto drobnosti lezi mezi programatory M$ a
InstallShieldu.
Tomas
> Ja mam D5Prof na Windows2000Prof a vse naprosto v poradku, jenom instalace
se musela provadet pro kazdeho uzivatele (tedy pro ty dalsi staci zvolit
jenom obnova nastaveni).
>
> Jinak naprosta spokojenost, predtim jsem mel delfiny na Win98 a ted jsou
mnohonasobne stabilnejsi.
>
> Honza +
>
> P.S.: InstallShield mi obcas nebiha strasne pomalu, cekam cca minutu mezi
zmizenim dialogu, ze se pripravuje instalace a vlastnim spustenim -
naposledy mi pripadlo, ze to zdrzoval Outlook2000.>> Z predchozich prispevku je zrejme, ze jsou zde lidi, kteri pouzivaji D5
na Windows 2000.
>>
>> Zkousel jsem nainstalovat D5 Profi na Windows 2000 CZ Profi (HW: Celeron
600, ATI 2000, ...). V poradku se objevi uvodni okno, ale pri vyvolani
instalace Delphi pouze kratce problikne okno s Install Shieldem a hned zase
zmizi bez jakehokoli hlaseni.
>>
>> Na borland.com jsem se dozvedel, ze D5 neni na W2000 dosud podporovana,
ale ze je spousta uzivatelu, kteri to tak pouzivaji. Nenasel jsem ovsem
navod, jak to uvest do provozu... a zrejme to neni pouze muj problem.
>>
>> Ma nekdo nejake reseni ?
>>
>> Tomas
>Volani vzdaleneho COM objektu
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 11.9.2000 14:36:23
Zdravim,
----- Original Message -----
From: Petr Fischer <fifa(zv)praguesoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 11, 2000 12:47 PM
Subject: Re: Volani vzdaleneho COM objektu
> On 10 Sep 2000, at 18:59, Zbysek Hlinka wrote:
>
> A pise to chybu "Interface not Supported" nebo porad "Access denied"?
>
> Me se NIKDY nepodarilo vytvorit obekt pres DCOM v tomto tvaru
> (nejspise tvuj zpusob volani):
>
> Serv := CoMojeTrida.CreateRemote(<nazev_poce>);
>
ja se tak pripojuju - uz asi rok v kombinaci NT4/W2K jako server a w98 jako
klient
pritom prechod z NT na W2K nebyl zadny rozdil, chod� to jako na NT4
> kde Serv je TMojeTrida. TMojeTrida a CoMojeTrida je z *TLB.pas
> souboru, kterej se sam generuje.
>
> Vzdycky sem COM objekt musel vytvorit takto:
>
> Serv := IMojeTrida(CreateComObject(CLASS_MojeTrida) as IDispatch);
>
> kde Serv je VARIANT! Tento zpusob volani (s Variantem) je urcen
> hlavne pro Visual Basic a podobny veci. Takto sem se sice pripojil,
> muzu volat metody, nejak to funduje, ale kompilator kuprikladu
> nekontroluje syntaxi volanych metod a je to cele takove polovicate...
>
to je prave tim, ze ten Variant neni pro delphi, CoClass a interface
umoznuje prave ty kontroly
> Kdyztak se zkus pripojit pres ten Variant, a pokud to pujde, neni
> problem v uzivatelich, ale v cemsi zahadnem...
>
souhlas, dobrej napad
Tomas