Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Vektorova grafika, DWG, CAD
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 11.2.2002 21:56:27
From: "Miroslav Prokel" <miroslav.prokel(zv)rtscs(tec)cz>
Sent: Monday, February 11, 2002 9:05 AM
Subject: Vektorova grafika, DWG, CAD
> shanim nejakou vizualni komponentu pro prohl�zeni souboru typu DXF a
DWG s
> vektorovou grafikou. Pro me potreby staci neco jednoducheho, ale melo
by to
> byt free :(( Nevedel by nekdo o necem? Predem diky.
Na http://www.opendwg.org je krome "popisu" formatu DWG i odkaz na cleny
aliance, ci jak si rikaji, a mezi nimi jsem onehdy stahl (tusim od
Visia) i nejaky free prohlizec, ktery se dal pouzit jako ActiveX. Chtel
jsem to jenom na pokusy a docela to chodilo. Asi to neni to prave, ale
jako nouzovka...
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Balicky: debugovani, duplicita unit
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 11.2.2002 23:14:52
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
> Subject: Re: Balicky: debugovani, duplicita unit
Ahoj,
> Podivej se jestli nemas v Project Options nekde pouzite relativni
> cesty. Pokud
Tusis spravne. Hnusna, ale snadno prehlednutelna chyba.
Relativni cesty nelze pouzivat. Je-li treba output uveden
relativni cestou.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
MDIChildForm -> restore, maximize
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 11.2.2002 23:22:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Blazek Jaroslav
> Ahoj,
Ahoj,
> 1. jakym zpusobem mam udelat restore, maximize MDIChild Formu
> je-li minimalizovane?
>
> V adresari Delphi je sice ukazkova MDI aplikace, ale absolutne
> jsem nepochopil jakym zpusobem toho, co potrebuji, docili.
K child formu pristupujes jako ke kazdemu jinemu oknu.
Mas k dispozici seznam vsech child oken pomoci fce MDIChildCount.
V demu se mozna divis, ze tam neni zadny vykonny kod,
ale podivej se jakeho typu jsou akce. Ne TAction, ale TWindowAction
a jeji potomci. Mrkni do zdrojaku VCL a hned pochopis...
> 2. Dale bych se chtel zeptat, jakym zpusobem neco vykreslit na
> MDIForm, tak, aby to neprekryvalo MDIChildForm.
Z hlavy nevim, ale tady to uz probehlo. Cely archiv je na www.delphi(tec)cz.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Po�et otev�en�ch soubor�
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 12.2.2002 00:02:58
Zdrav�m,
ob�as se je�t� vrac�m k DOSu a pot�eboval bych zjistit po�et otev�en�ch
soubor�, kolik mi z FILES v CONFIG.SYS ubylo.
Necht�l bych pou��vat cyklus a funkci IORESULT p�i otv�r�n� soubor� a
testovat jestli lze otev��t dal�� soubor.
D�ky
Martin Pavera
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 14.11.2001
Linux, Delphi (Kilix) a seriova komunikace
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 12.2.2002 00:21:14
Zdravim vsechny,
zabyval se nekdo komunikaci v realnem case s nejakym zarizenim pres
seriovy port na Linuxu? Jde to z Delphi vubec? Co je na to potreba? Jsou uz
treba nejake komponenty? Atd...
Diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Delphi a hry
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 12.2.2002 00:40:10
a este dalsou je www.glscene.org
fakt skvele, staci si pozriet priklady :-)))
delphiX sa mi az tak nepacilo, ale to je asi vec vkusu :-)
----- Original Message -----
From: "Kan�r" <delphi(zv)obecpohori(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 11, 2002 7:07 PM
Subject: Re: Delphi a hry
> Dalsi alternativou jsou komponenty DelphiX, ktere jsou rovnez dost
pouzivane
> pro vyvoj her v Direct X.
> Maji stranku tusim: http://www.ingjapan.ne.jp/hori/
> VJ
>
>
> ----- Original Message -----
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Sunday, February 10, 2002 6:49 PM
> Subject: Re: Delphi a hry
>
>
> > From: "Martin Kasman" <martinkasman(zv)pobox.sk>
> > > Nemam konkretnu otazku, iba som zvedavy: je Delphi dobry programovaci
> jazyk
> > > pre hry? Ako na to, ked chcem aby mi hra bezala na celej obrazovke.
Robi
> sa
> >
> > Ahoj,
> >
> > dobra otazka. Object Pascal jako takovy rozhodne ano. Co se tyce Delphi
> jako
> > produktu tak tam uz je to horsi, protoze Borland zcela ignoruje
> skutecnost, ze
> > Delphi by bylo dobre i pro psani her. Nastesti se naslo par lidi, kteri
za
> ta
> > leta pochopili, ze Borland svuj postoj nezmeni a snazili se udelat neco
> sami.
> > Problem tkvi v tom, ze pro vyvoj her je nezbytnou soucasti DirectX a k
> tomu
> > potrebujes do Delphi prislusne konverze C hlavicek do Object Pascalu.
> Prave o
> > to se postaral project JEDI, vice (konverze, priklady) najdes na JEDI
> Graphix:
> > http://delphi-jedi.org/DelphiGraphics/oldindex.htm
> >
> > Petr Vones
> >
> >Tisk pod WinXP bez cestiny
[*] Jaroslav Holub <netera.cl(zv)iol(tec)cz> - 12.2.2002 01:34:47
Zkontroloval bych nastaveni BDE, jestli je ovladac nastaven na cestinu,
setkal jsem se jiz s podobnym problemem.
Jarda.
----- Original Message -----
From: "Sebesta Jan" <delcomseb(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 11, 2002 8:45 PM
Subject: Tisk pod WinXP bez cestiny
> Zrdavim,
>
> setkal jsem se pro me s velikou zahadou:
>
> mam program v D5E a pouzivam tisk pres TQuickReport .
> Tisku napr. pres TQRLabel a v nem text s cestinou.
>
> - pokud tisku na sitovou tiskarnu z Win95 nebo Win98 tak je vse OK.
> - pokud ale tisku z WinXP tak se "podela" cestina !!! Preview je ale OK.
>
> Jedna se o tiskarnu Ricoh Aficio AP 1400 Laser a je pripojena k PC s
WinXP.
>
> Nevite nekdo kde hledat chybu?
> V Delphi (QR), proc ale z Win98 je vse OK?
> V nasteveni tiskarny (mam nejnovejsi ovladac)?
> Ve TTF fontech? Font Arial je na vsech PC a v TQRLabel je nastaven na
> 'Stredoevropsky'.
>
> Dekuji za cokoli, jiz zoufam. Jan Sebesta
>
>
>Tisk pod WinXP bez cestiny
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 12.2.2002 03:40:26
Na XP myslim uz neni TrueType a fonty e mohou jinak tvarit, jestlize jsoui
pojmenovany na tvrdo - dle nazvu.
V nazvu fontu neni CE.
> mam program v D5E a pouzivam tisk pres TQuickReport .
> Tisku napr. pres TQRLabel a v nem text s cestinou.
>
> - pokud tisku na sitovou tiskarnu z Win95 nebo Win98 tak je vse OK.
> - pokud ale tisku z WinXP tak se "podela" cestina !!! Preview je ale OK.
>
> Jedna se o tiskarnu Ricoh Aficio AP 1400 Laser a je pripojena k PC s
WinXP.
>
> Nevite nekdo kde hledat chybu?
> V Delphi (QR), proc ale z Win98 je vse OK?
> V nasteveni tiskarny (mam nejnovejsi ovladac)?
> Ve TTF fontech? Font Arial je na vsech PC a v TQRLabel je nastaven na
> 'Stredoevropsky'.
>
plocha u win98 a win2k
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 12.2.2002 06:39:04
> Od: Jan Zeleny [SMTP:zeleny.jan(zv)seznam(tec)cz]
>
> Najdes to v registru- myslim ze to je v Shellfolders - snad tady
> :HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\She
> ll
> Folders
> Jinak bych zkusil najit klic manualne pomoci regeditu s aktualni
> cestou k plose a pak ten klic pouzit.Nasel jsem to takhle a funguje
> mi to na vsech wokenich systemech.
>
>
ad na vsech wokenich systemech: Jen tak ze srandy jsem se kouk do registru
Win 95B, v uvedene vetvi je tu jen Common AppData a vyraz Desctop se v
celych reg. nevyskytuje.
S pozdravem
Ober
plocha u win98 a win2k
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 12.2.2002 06:45:59
Pardon,
samozrejme jsem mel zadat vyraz DesKtop, ktery je v HKEY_CURRENT_USER i na
Win95B spolu s ostatnimi...
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: Obermaier Petr Ing.
> Odesl�no: 12. �nora 2002 6:39
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P�edm�t: RE: plocha u win98 a win2k
>
> Od: Jan Zeleny [SMTP:zeleny.jan(zv)seznam(tec)cz]
>
> Najdes to v registru- myslim ze to je v Shellfolders - snad tady
> :HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\She
> ll
> Folders
> Jinak bych zkusil najit klic manualne pomoci regeditu s aktualni
> cestou k plose a pak ten klic pouzit.Nasel jsem to takhle a funguje
> mi to na vsech wokenich systemech.
>
>
> ad na vsech wokenich systemech: Jen tak ze srandy jsem se kouk do registru
> Win 95B, v uvedene vetvi je tu jen Common AppData a vyraz Desctop se v
> celych reg. nevyskytuje.
>
>
> S pozdravem
> Ober
Linux, Delphi (Kilix) a seriova komunikace
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.2002 07:53:37
> zabyval se nekdo komunikaci v realnem case s nejakym zarizenim pres
> seriovy port na Linuxu? Jde to z Delphi vubec? Co je na to potreba? Jsou uz
> treba nejake komponenty? Atd...
Nevim co presne myslis tou omunikaci v realnem case, ale seriovou
komunikaci se pod delphi i Kylixem zabyvam. (takove ty komunikace s
modemy a zarizenimi na RS485...)
Viz. SynaSer na mem webu...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 12.2.2002 08:11:55
Zdravim vsechny odborniky i amatery.
Potreboval bych v knihovne *.dll zjistit handle na hlavni okno aplikace,
kter� toto *.dll vola.
Pritom:
- Aplikaci nelze zm�nit, a tedy aplikace nemuze tuto informaci predat.
- Aplikace muze byt spustena vicekrat a nelze pouzit FindWindow (neni
jednoznacne)
- Aplikace nemusi byt vytvorena v Delphi
Nema nahodou nekdo hotove nejake reseni ?
Diky za napady
Pavel
Minimalizace okna kontra aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.2.2002 08:22:12
> Lebeda David, <mailto:david.lebeda(zv)comarr(tec)cz> napsal:
> > Tohle funguje dobre az na jednu vec. Aplikaci spustim A
> > MINIMALIZUJI. Pote zkusim spustit druhou instanci. FindWindow v dpr
> > souboru najde handle hlavniho okna aplikace a necha ho zobrazit. PRI
> > TOM SE NEPROVEDE Application.OnRestore.
>
> Nedavno jsem to psal do odpovedi na dotaz se subj. Jedna instance,
> prohledej nedavne zpravy, reseni je vice. Pokud nadale pouzijes reseni
> s FindWindow, tak prostuduj nasledujici:
Ahoj,
mame vlastne dost podobna reseni. O to, co volat v FindWindow, v
tomto pripade nejde (i kdyz si myslim, ze moje reseni - ono tedy
neni z me hlavy, kdysi jsem ho nekde opsal) je lepsi v tom, ze
nemusim osetrovat situaci, kdy aplikaci ladim v Delphi, protoze za
behu ma jine jmeno tridy.
To podstatne, co bylo v Tvem kodu a co pomohlo, je poslani
zpravy aplikaci - a ta pak sama iniciuje Application.Restore.
Diky.
David Lebeda
MDIChildForm -> restore, maximize
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 12.2.2002 08:25:34
Ahoj,
>K child formu pristupujes jako ke kazdemu jinemu oknu.
>Mas k dispozici seznam vsech child oken pomoci fce MDIChildCount.
Mel jsi na mysli asi MDIChildren, coz neni fce, ale property, taktez i MDIChildCount....
To uz jsem davno vedel, jen jsem hledal nejakou tu fci nebo property.
Vubec jsem si nevzpomnel, ze existuje property WindowState
MDIChildren[Index].WindowState:=wsNormal;
MDIChildren[Index].WindowState:=wsMaximize;
MDIChildren[Index].WindowState:=wsMinimize;
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Vektorova grafika, DWG, CAD
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 12.2.2002 08:26:40
Mam odnekud stazenou free komponentu ktera zapouzdruje mnozinu AutoCAD DXF
read/write/display rutin. Jmenuje se Zoom_panel a napsal ji John Biddiscombe
z Rutherford Appleton Laboratory, UK. Nevim jestli ji jeste najdes na
inetu - zkus to. Kdyztak mi poradte kam ji mam soupnout aby si ji mohl
kdokoliv stahnout (treba i za par mesicu, pri prohledavani archivu
konference).
Ahoj Michal
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 11, 2002 9:56 PM
Subject: Re: Vektorova grafika, DWG, CAD
> From: "Miroslav Prokel" <miroslav.prokel(zv)rtscs(tec)cz>
> Sent: Monday, February 11, 2002 9:05 AM
> Subject: Vektorova grafika, DWG, CAD
>
>
> > shanim nejakou vizualni komponentu pro prohl�zeni souboru typu DXF a
> DWG s
> > vektorovou grafikou. Pro me potreby staci neco jednoducheho, ale melo
> by to
> > byt free :(( Nevedel by nekdo o necem? Predem diky.
>
> Na http://www.opendwg.org je krome "popisu" formatu DWG i odkaz na cleny
> aliance, ci jak si rikaji, a mezi nimi jsem onehdy stahl (tusim od
> Visia) i nejaky free prohlizec, ktery se dal pouzit jako ActiveX. Chtel
> jsem to jenom na pokusy a docela to chodilo. Asi to neni to prave, ale
> jako nouzovka...
>
> Miroslav Novosad
> mirnov(zv)atlas(tec)cz
>Dostupnost Firebirdu 1.0
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 12.2.2002 09:05:26
Haj hou!
V Belohradu jsem oznamil dostupnost finalni verze FB 1.0 na
zacatek tohoto tydne. Protoze jsme ale zahrnuli jeste par oprav na
posledni chvili, a protoze jeste probiha rozsirene kolecko testovani
instalaci, nebude FB 1.0 k dispozici drive nez v patek. BTW, pokud
se chce nekdo z vas zapojit do testovani moznych instalacnich
problemu Linuxove verze, tak se mi ozvete na privatni mail.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Linux, Delphi (Kilix) a seriova komunikace
[*] pavel.ales(zv)popron(tec)cz - 12.2.2002 09:24:02
Ja jsem delal jakousi takoukousi service ktera komunikuje pres seriovy
port,kdybys potreboval tak ti pomohu,ale spicka je asi autor komponent
Synapse Lukas Gebauer,ktery jak ho znam se urcite ozve.
Ales PAVEL
D5 Ent,W2000
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
-----Original Message-----
From: Tomas Bradle [mailto:t.bradle(zv)worldonline(tec)cz]
Sent: 12. �nora 2002 0:21
To: Delphi konference new
Subject: Linux, Delphi (Kilix) a seriova komunikace
Zdravim vsechny,
zabyval se nekdo komunikaci v realnem case s nejakym zarizenim pres
seriovy port na Linuxu? Jde to z Delphi vubec? Co je na to potreba? Jsou uz
treba nejake komponenty? Atd...
Diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.281 / Virov� b�ze: 149 - datum vyd�n�: 18.9.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.281 / Virov� b�ze: 149 - datum vyd�n�: 18.9.2001
Nekompatibilita typoveho souboru z Pascalu a Delph
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 12.2.2002 09:28:09
reseni je jednoduche:
TUcet= packed record ...
Jinak jakakoliv struktura, ktera jde MIMO program by mela byt packed.
Je to velmi hruba, ale presto casta chyba.
Slavek
> Je to tim, ze Delphi zarovnava na 4 bajty a jestli chces opravdu tu
> strukturu mit 75bajtu velkou tak musis pouzit neco, co nevim co je,
> ale proste to jde. Chytrejsi z tyhle diskuze jiste poradi a nebo zkus
> konzultaci s helpem.
>
> --
>
> > Ahoj,
>
> > mam nasledujici record:
>
> > TUcet = record
> > ID_Uctu:Word;
> > Datum_Zrizeni:string[10];
> > Cas_Zrizeni:string[5];
> > Datum_Posledniho_Zapisu:string[10];
> > Cas_Posledniho_Zapisu:string[5];
> > ID_Klienta:Word;
> > Nazev:string[30];
> > Cena_Celkem:Real48;
> > end;
>
> > Tato struktura by mela podle mych predpokladu zabirat 75B.
> > Zabira vsak 80B.
>
> > Bylo by mi to jedno, ale soubor s touto strukturou vyrabi program v Pascalu,
> > kde to opravdu zabira 75B. Tudiz prestoze je TUcet deklarovan v Pascalu i
> > Delphi uplne stejne, zabira to nestejne.Po�et otev�en�ch soubor�
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.2.2002 09:29:26
> ob�as se je�t� vrac�m k DOSu a pot�eboval bych zjistit po�et
otev�en�ch
> soubor�, kolik mi z FILES v CONFIG.SYS ubylo.
pokud vim, toto lze zjistit jedine prochazenim internich struktur DOSu
(v kazde verzi jine) - mozna projit seznam vsech procesu (PSP
segmentu) a v nich projit vsechny JFT tabulky...
> Necht�l bych pou��vat cyklus a funkci IORESULT p�i otv�r�n� soubor�
a
> testovat jestli lze otev��t dal�� soubor.
Pozor - proces v DOSu ma implicitne vytvorenou tabulku do ktere se
vejde jen 20 handlu. Pokud chce proces vyuzit vice handlu musi mit k
dispozici vetsi tabulku (az 256 polozek) do ktere musi prekopirovat
tu puvodni tabulku a musi presmerovat pointr na tabulku s handly a
zmenit indikator velikosti tabulky (JFT polozky v PSP segmentu
procesu).
Koukal jsem ted do zdrojaku BP7 a v RTL sources jsem nikde zminku o
JFT nenasel. Je mozne, ze BP7 implicitne nezvetsoval tabulku na
handle? (cili povolil jen 20 otevrenych filu?)
D. Toman
Scrolujici texty
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 12.2.2002 10:09:10
Ahoj,
zkousim takovou "blbost" - ve vyloze prodejny by mel byt monitor, na kterem
pojedou porad dokola vybrane polozky, ktere jsou skladem s cenami. V postate
takove titulky.
Napadlo me, ze vytvorim stringlist, podle kazde polozky pak staticText a ty
pak jeden za druhym vyjedou ze spodniho okraje okna /bez frame, maximized/ a
zmizi zase za hornim. Prvni pokus mi funguje v podstate tak, jak ma, ale jen
na mem pocitadle /Athlon800/. Predpokladal jsem, ze do vylohy dame nejakou
starou 486 - na te je to ale straaasne pomale. Asi je potreba k tomu
pristoupit nejak jinak - prosim tedy zkusenejsi o radu.
Diky, Martin
Zdrojak:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure Go;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
stop: boolean;
implementation
{$R *.dfm}
procedure TForm1.Go;
var sText: TStaticText;
f,ff,fff : integer;
list: TStringList;
begin
list:=TStringList.create;
list.LoadFromFile('List.txt');
//opakuj do AltF4
while true do begin
for f:=0 to List.Count-1 do
begin
//vytvor staticText
sText:=TStaticText.Create(Form1);
With sText do
begin
parent:=Form1;
font.Name:='Arial CE';
font.Size:=20;
//barva pozdeji podle druhu zbozi
font.Color:=clAqua;
caption:=List.Strings[f];
//pod spodnim okrajem formu
Top:=Form1.Height+30;
Left:=(Form1.Width-Width) div 2;
tag:=99;
visible:=true;
Application.ProcessMessages;
end;
//posun vsechny texty nahoru o 30bodu
For fff:=1 to 30 do
begin
ff:=0;
repeat
if stop then exit;
If Components[ff].Tag=99 then
begin
sText:=TStaticText(Components[ff]);
sText.Top:=stext.Top-1;
//uvolni odskrolovany text
If sText.Top<=-30 then
sText.Free
else Inc(ff);
end
else Inc(ff);
until ff>=Form1.ComponentCount-1;
application.ProcessMessages;
end
end;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
stop:=true;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.WindowState:=wsMaximized;
stop:=false;
Go;
end;
end.
WinXP a krokovani DLL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 12.2.2002 10:12:49
Zdravim,
mam problem s WinXP, kde mi nejde krokovat DLL. EXE soubory krokovat
jdou, ale DLL ani tuk :( Nevite jak na to? Na jinych windows to samozrejmne
funguje :(((((( Dikes. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
TApplication, TForm & Minimize
[*] Roman Pagac <PagacR(zv)servonic.de> - 12.2.2002 10:18:10
ahoj,
mam nasledujuci problem: mam dve formy, jednu Main a jednu pomocnu.
potreboval by som, aby ta "pomocna" forma zostala na obrazovke aj potom, ako
minimizujem Main formu ... mate s tym niekto skusenosti?
vdaka
D6 enterprise, win2000 pro sp2.
Roman
OT: RE: MDIChildForm -> restore, maximize
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 12.2.2002 10:36:20
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> >Mas k dispozici seznam vsech child oken pomoci fce MDIChildCount.
>
> Mel jsi na mysli asi MDIChildren, coz neni fce, ale property,
> taktez i MDIChildCount....
Doufam, ze se nechces hadat o slovicka. Je rychlejsi napsat
fce nez property:).
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
WinXP a krokovani DLL
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.2.2002 10:45:00
Ahoj,
Tohle muzu potvrdit. Mam .NET Enterprise Server beta 3 a nejde mi attach
na jakykoliv proces. Nevi nekdo jestli to v te bete proste nejde, nebo
je nekde neco potreba nastavit? Dival jsem se na MSDN a nic jsem nenasel
:(
Ales
> -----Original Message-----
> From: Tomas Rosa [mailto:trosa(zv)seznam(tec)cz]
>
> mam problem s WinXP, kde mi nejde krokovat DLL. EXE
> soubory krokovat
> jdou, ale DLL ani tuk :( Nevite jak na to? Na jinych windows
> to samozrejmne
> funguje :(((((( Dikes.Po�et otev�en�ch soubor�
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 12.2.2002 11:04:44
To je skutecnost. Kdyz chci otevrit vice souboru, musim zavolat svoji
fonkci na rozsireni poctu handlu.
> Koukal jsem ted do zdrojaku BP7 a v RTL sources jsem nikde zminku o
> JFT nenasel. Je mozne, ze BP7 implicitne nezvetsoval tabulku na
> handle? (cili povolil jen 20 otevrenych filu?)
>
> D. Toman
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
ascii zpravy via TCP/IP
[*] Pavel Kupka <pavel.kupka(zv)atlas(tec)cz> - 12.2.2002 11:11:48
Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat zpravy
maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
NMMsgServ, ale FastNet nemam rad, co radite?
Diky
Pavel Kupka
komponenta pro z�pis na CD
[*] Str�n�k Franti�ek - 12.2.2002 11:17:41
Nevite nekdo o komponente, ktera by umoznovala zapis na CD v univerzalnim ISO formatu ?
Chci, aby muj program pro uzivatele, ktery ma nainstalovany vypalovaci CD, umoznil klepnutim na ikonku automaticky archivovat soubory, por. cele adresare na CD - prepisovaci nebo neprepisovaci)
Nechci aby si uzivatel musel predtim formatovat CD pro tyto ucely apod.
(Uzivatel si koupi CD a ja mojim programem mu na CD udelam archiv - samozrejme, ze ,musi mit vypalovacku)
Je to vubec mozne ?
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
Po�et otev�en�ch soubor�
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 12.2.2002 11:38:16
| pokud vim, toto lze zjistit jedine prochazenim internich struktur DOSu
| (v kazde verzi jine) - mozna projit seznam vsech procesu (PSP
| segmentu) a v nich projit vsechny JFT tabulky...
Moc prosim o nejaky priklad, kus zdrojaku - teto problematice nerozumim
| Pozor - proces v DOSu ma implicitne vytvorenou tabulku do ktere se
| vejde jen 20 handlu. Pokud chce proces vyuzit vice handlu musi mit k
| dispozici vetsi tabulku (az 256 polozek) do ktere musi prekopirovat
| tu puvodni tabulku a musi presmerovat pointr na tabulku s handly a
| zmenit indikator velikosti tabulky (JFT polozky v PSP segmentu
| procesu).
| Koukal jsem ted do zdrojaku BP7 a v RTL sources jsem nikde zminku o
| JFT nenasel. Je mozne, ze BP7 implicitne nezvetsoval tabulku na
| handle? (cili povolil jen 20 otevrenych filu?)
| D. Toman
| ---
| To je skutecnost. Kdyz chci otevrit vice souboru, musim zavolat svoji
| fonkci na rozsireni poctu handlu
| Karel Kral
Mohl byste prozradit jak zvetsit pocet handlu?
Diky moc
Martin Pavera
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
monitorovani obsahu adresare na vzdalenem servru
[*] Krmela Tom� <Krmela(zv)olc.pvt(tec)cz> - 12.2.2002 11:52:52
dobry den
vite jak na monitorovani obsahu adresare na vzdalenem servru a nasledne
stahovani rozdilovych souboru . diky Tomas Krmela
Po�et otev�en�ch soubor�
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 12.2.2002 12:01:28
>Mohl byste prozradit jak zvetsit pocet handlu?
Bez zaruky:
From: Raul Rebane (raul(zv)reveko.estnet.ee)
Subject: Re: FILES line in CONFIG.SYS, CONFIG.NT
Newsgroups: comp.lang.pascal.borland
View this article only
Date: 1997/11/24
Hi Grant
> Does anyone know if there's a way to set the equivalent FILES setting
> inside a BP 7.01 program?
You can easily expand the number of files allowed to
open by program. I have used example from SWAG archive which is for
protected mode but is easy to convert to real mode.
Procedure DPMIExtendHandles;
Const
Handles = 255; (* added *)
Type
DosMemRec = record
Sele, Segm : Word;
end;
Var
OldTable : Pointer;
OldSize : Word;
NewTable : Pointer;
DosMem : DosMemRec;
begin
If AllocDosMem(16, DosMem.Segm, DosMem.Sele) <> 0 then
Halt(255);
NewTable := Ptr(DosMem.Sele, 0);(*1*)
FillChar(NewTable^, Handles, $FF);(*1*)
{Copy old table to new. Assume old table in PrefixSeg}
OldTable := Ptr(PrefixSeg, MemW[PrefixSeg:$34]);
OldSize := Mem[PrefixSeg:$32];
move(OldTable^, NewTable^, OldSize);
{Set new handle table size and pointer}
Mem[PrefixSeg:$32] := Handles;
MemW[PrefixSeg:$34] := 0;
MemW[PrefixSeg:$36] := DosMem.Segm;
end;
Simply call DPMIExtendHandles in Your program startup and
You can open 255 files in Your program. For more information You should
see SWAG collection.
Sincerely Raul Rebane
===========================================================
From: Votis (votis(zv)paratiritis.the.forthnet.gr)
Subject: Re: More than 15 files in BP 7 / Delphi 1 ??
Newsgroups: comp.lang.pascal.borland, comp.lang.pascal.delphi.misc
View: Complete Thread (7 articles) | Original Format
Date: 1997/01/26
Thomas Buehren wrote:
> > Hi there!
> > We're working on a rather big, existing program in Borland Pascal 7.
> Now we've obviously come to another limit of BP7: It seems that only
> 15 files can be open at one time. Does anybody know a way around that?
>
Hi Thomas
This is a DOS and not BP-specific limitation. There are two things you must
take care of.
First, you must set FILES= to a big number in your config.sys file, but you
will probably have done this already.
Second, the maximum number of files per DOS process is determined by a table
named JFT (for "Job File Table"), where file handles are allocated. This
table by default is located in a program's PSP and has a limited size (20
handles, of which 5 are all the time open as std input, std output, etc),
which is causing your problems even if you have FILES=100 in your
config.sys.
The PSP also contains the JFT size and a pointer to the JFT, so it is
possible to install an optional JFT: just declare the new JFT as an
initialized global variable and put its size and address to the
corresponding
fields of the PSP.
This is how I have implemented it:
------------------------ [cut here] --------------------------------
UNIT big_JFT;
INTERFACE
IMPLEMENTATION
const
my_JFT : array[1..50] of byte
= ($FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF);
const
JFT_count_ofs = $32;
JFT_addr_ofr = $34;
procedure install_new_JFT( var a; count:word );
var
JFT_count : ^word;
JFT_addr : ^pointer; { note: this is a pointer to a pointer! }
begin
if (count>20) then begin
JFT_count:=ptr(PrefixSeg,JFT_count_ofs);
JFT_addr:=ptr(PrefixSeg,JFT_addr_ofs);
move(JFT_addr^^, a, JFT_count^); { copy active file handles }
JFT_count^:=count;
JFT_addr^:=(zv)a;
end;
end;
BEGIN {initialization}
install_new_JFT( my_JFT, sizeof(my_JFT) );
END.
------------------------ [cut here] -----------------------------
Just declare *** USES big_JFT *** in your main program, and you will be able
to open up to 45 (i.e. 50-5) files concurrently in your application,
provided
that you have FILES>=50 in your config.sys file.
I hope it helps
Votis Kokavessis
ascii zpravy via TCP/IP
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 12.2.2002 12:03:33
Mrkni se na www.nevrona.com - ja uz nejakej cas INDY pouzivam a jsem nadmiru
spokojen...
Michal Prokopec
----- Original Message -----
From: "Pavel Kupka" <pavel.kupka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, February 12, 2002 11:11 AM
Subject: ascii zpravy via TCP/IP
> Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat zpravy
> maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
> Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
> NMMsgServ, ale FastNet nemam rad, co radite?
> Diky
> Pavel Kupka
ascii zpravy via TCP/IP
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 12.2.2002 12:19:49
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Komponenty Indy obsahuji TCP/IP client i server, pouzivam je pro prenos
podobnych zprav a funguje to.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************
> Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat zpravy
> maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
> Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
> NMMsgServ, ale FastNet nemam rad, co radite?
> Diky
> Pavel Kupka
Zakazanie zapisovania do ComboBoxu
[*] Slavom�r �eke� - 12.2.2002 12:27:49
Ako zabezpecim "subject" ? Ak nastavim ReadOnly, tak si znemoznim vyber
poloziek. Poradte Slavo
ascii zpravy via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.2002 12:28:36
Osobne bych sahnul po Synapsi. (:-)))... uz jen pro to, ze jsou
oproti Indy jednodusi a rychlejsi.
(a to uz nemluvim o dobre podpore Synapse v ceskem jazyce... ;-)))
> Komponenty Indy obsahuji TCP/IP client i server, pouzivam je pro prenos
> podobnych zprav a funguje to.
>
> > Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat zpravy
> > maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
> > Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
> > NMMsgServ, ale FastNet nemam rad, co radite?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Zakazanie zapisovania do ComboBoxu - uz som na to
[*] Slavom�r �eke� - 12.2.2002 12:31:07
Sorry, uz som na to prisiel ... Slavo
ascii zpravy via TCP/IP
[*] Pavel Kupka <pavel.kupka(zv)atlas(tec)cz> - 12.2.2002 12:32:29
RE: ascii zpravy via TCP/IPA ktere konkretne, muzes prosim napsat priklad?
Diky
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Brant
Sent: Tuesday, February 12, 2002 12:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ascii zpravy via TCP/IP
Komponenty Indy obsahuji TCP/IP client i server, pouzivam je pro prenos
podobnych zprav a funguje to.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************
> Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat
zpravy
> maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
> Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
> NMMsgServ, ale FastNet nemam rad, co radite?
> Diky
> Pavel Kupka
ascii zpravy via TCP/IP
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 12.2.2002 12:56:46
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
IdTCPClient a IdTCPServer.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************> A ktere konkretne, muzes prosim napsat priklad?
>
>
> Komponenty Indy obsahuji TCP/IP client i server, pouzivam je pro prenos
podobnych
> zprav a funguje to.
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
>
>> Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat
zpravy
>> maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
>> Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
>> NMMsgServ, ale FastNet nemam rad, co radite20
>> Diky
>> Pavel Kupka Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] skalsky(zv)oksystem(tec)cz - 12.2.2002 13:03:54
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Hoj Delphini,
Nevite nekdo, jakym zpusobem by slo udelat %subject% ???
Dik za nakopnuti spravnym smerem
Milan
ascii zpravy via TCP/IP
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 12.2.2002 13:03:10
RE: ascii zpravy via TCP/IPAhoj Pavle,
myslim, ze bude pro Tebe lepsi, aby sis prohledl soubor Indy\Demos\indy demos.html. Tam si vyberes primo prikladek...
Mnoho uspechu s Indy preje
Michal Zakazanie zapisovania do ComboBoxu
[*] Martin �ajbik <cajbik(zv)sct.sk> - 12.2.2002 13:18:20
Nastavis Style:= csDropDownList
MarCaNT (marcant(zv)sct.sk)>Ako zabezpecim "subject" ? Ak nastavim ReadOnly, tak si znemoznim vyber
>poloziek. Poradte Slavo
Po�et otev�en�ch soubor�
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.2.2002 13:29:25
> | pokud vim, toto lze zjistit jedine prochazenim internich struktur
DOSu
> | (v kazde verzi jine) - mozna projit seznam vsech procesu (PSP
> | segmentu) a v nich projit vsechny JFT tabulky...
>
> Moc prosim o nejaky priklad, kus zdrojaku - teto problematice
nerozumim
> Mohl byste prozradit jak zvetsit pocet handlu?
konkretni zdrojaky mam pouze v ASM (*.COM file coz je trosku
specificke).
Principy jsem popsal v minulem mailu. Snad bych dodal, ze PSP execka
lze zjistit pomoci DOS sluzby (Int 21h, cislo sluzby 62h). Dokumentaci
najdes na
WWW (Brown's Interrupt list, techhelp, atd). Pro kratka execka (kod
neni ve
vice segmentech by melo stacit ke zjisteni adresy PSP zjistit adresu
segmentu.
D. Toman
Zakazanie zapisovania do ComboBoxu
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 12.2.2002 13:37:43
Style := csOwnerDrawFixed nevyhovuje ?
Martin Ben
> -----Puvodni zprava-----
> Od: Slavom�r �eke� [mailto:cekel(zv)noves.sk]
>
> Ako zabezpecim "subject" ? Ak nastavim ReadOnly, tak si
> znemoznim vyber
> poloziek. Poradte Slavo
Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 12.2.2002 13:49:16
API funkce SystemParametersInfo - vice v napovede
Martin Ben
> -----Puvodni zprava-----
> Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
>
> Hoj Delphini,
> Nevite nekdo, jakym zpusobem by slo udelat %subject% ???
> Dik za nakopnuti spravnym smerem
> Milan Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] skalsky(zv)oksystem(tec)cz - 12.2.2002 13:56:56
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Tu funkci jsem uz zkousel ... je popsana v 1001T&T nekde kolem 80-90
stranky. Bohuzel mi nefachala - a to jsem to obslehl do posledniho pismene
:( ... asi jsem to spatne pochopil a napsal :(
Milan
-----Original Message-----
From: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
API funkce SystemParametersInfo - vice v napovede
Martin Ben
> -----Puvodni zprava-----
> Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
Nevite nekdo, jakym zpusobem by slo udelat %subject% ???
Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 14:18:35
From: <skalsky(zv)oksystem(tec)cz>
> Tu funkci jsem uz zkousel ... je popsana v 1001T&T nekde kolem 80-90
> stranky. Bohuzel mi nefachala - a to jsem to obslehl do posledniho pismene
Ahoj,
ktere je to presne cislo ?
Petr Vones
komponenta pro z�pis na CD
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 14:22:08
From: "Str�n�k Franti�ek" <FStranik(zv)cpoj(tec)cz>
> Nevite nekdo o komponente, ktera by umoznovala zapis na CD v univerzalnim
> ISO formatu ?
Ahoj,
neco takoveho je tady: http://www.bmagics.com/html/magic_cd_dvd_burner.html
Petr Vones
ascii zpravy via TCP/IP
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.2.2002 14:48:56
> Potrebuju udelat client/server, kdy klienti tak do 50 budou posilat zpravy
> maximalne 1000 znaku dlouhe serveru, ktery je zpracuje.
> Jakou byste mi doporucili komponentu, pozadavky by asi splnovala NMMsg a
> NMMsgServ, ale FastNet nemam rad, co radite?
napr. SOAP
Erik
Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 12.2.2002 15:01:43
RE: Zakazani stisku CTRL-ALT-DEL ve Win98 ???Na netu jsem nasel nasledujici
zpusob, ale nevim, jestli neni stejny s knihou. Navic nemam W98, takze jsem
to ani nezkousel.
1) Vypnout Windowsovske klavesy + klavesove zkratky...
var
Dummy: Integer;
begin
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, (zv)Dummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, (zv)Dummy, 0);
end;
2) Zapnout Windowsovske klavesy + klavesove zkratky...
var
Dummy: Integer;
begin
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, (zv)Dummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, (zv)Dummy, 0);
end;
Jarda
----- Original Message -----
From: skalsky(zv)oksystem(tec)cz
To: delphi-l(zv)clexpert(tec)cz
Sent: Tuesday, February 12, 2002 1:56 PM
Subject: RE: Zakazani stisku CTRL-ALT-DEL ve Win98 ??? Tu funkci jsem uz zkousel ... je popsana v 1001T&T nekde kolem 80-90
stranky. Bohuzel mi nefachala - a to jsem to obslehl do posledniho pismene
:( ... asi jsem to spatne pochopil a napsal :(
Milan
-----Original Message-----
From: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
API funkce SystemParametersInfo - vice v napovede
Martin Ben
> -----Puvodni zprava-----
> Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
Nevite nekdo, jakym zpusobem by slo udelat %subject% ???Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 12.2.2002 15:10:17
Abych pravdu psal, tak jsem to predtim nezkousel (nepotreboval jsem to). Ted
u mne nesla taky. Po juknuti do helpu jsem zjistil ze:
a) SPI_SETFASTTASKSWITCH : ALT + TAB, CTRL + ESC
- zastaraly, od W95/NT4 je rychle prepinani uloh(programu) vzdy zapnuto
b) SPI_SCREENSAVERRUNNING : CTRL + ALT + DEL
- pouze W95: pouzit vnitrne, aplikace by jej nemela pouzivat
Jiny vhodny flag jsem nenasel. Taky by mne tedy zajimalo, jak to s temito
klavesami je.
Martin Ben
-----Puvodni zprava-----
> Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
>
> Tu funkci jsem uz zkousel ... je popsana v 1001T&T nekde kolem
80-90 stranky. Bohuzel mi > nefachala - a to jsem to obslehl do posledniho
pismene :( ... asi jsem to spatne pochopil a > napsal :(
> Milan
> -----Original Message-----
> From: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
> API funkce SystemParametersInfo - vice v napovede
> Martin Ben
> > -----Puvodni zprava-----
> > Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
> > Nevite nekdo, jakym zpusobem by slo udelat %subject% ??? Ziskanie cisla vybranej strany z PrintDialog.
[*] Slavom�r �eke� - 12.2.2002 15:15:12
Zdravim ... mam taky problem, da sa ziskat z PrintDialogu alebo
PrinterSetupDialogu cislo strany ktoru chcem vytlacit ? popripade cisla
stran, ktore si vyberiem ?
Prosim poradte surne ... srdecna vdaka ...
Slavo
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 12.2.2002 15:17:03
Jak lze zjistit celkovy pocet handlu alokovany applikaci (procesem) ?
Staci mi to pod WinNT/Win2000, jedna se self test aplikace, jestli
nenastava nejaky "handle leak".
Diky Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
Jak na celkovy pocet handlu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.2.2002 15:42:52
> Jak lze zjistit celkovy pocet handlu alokovany applikaci (procesem)
?
> Staci mi to pod WinNT/Win2000, jedna se self test aplikace, jestli
> nenastava nejaky "handle leak".
funkcni metoda ke zjisteni otevrenych handlu je:
I := 0;
While I < rozumne_Maximum do
begin
if TestHandle(I) then
begin
// handle je pouzivan
end;
I := I+4;
end;
Za TestHandle lze dosadit nejakou rozumnou funkci, ktera dobre pozna,
ze handle je platne ci ne a neprovede zadne zverstvo
(GetFileInformationByHandle, DuplicateHandle,...)
Stejnou metodu lze pouzit i na sockety.
Pozn: tento zpusob je pomerne pomaly - cili je nutne omezit maximum
iteraci (ja pouzivam jako strop 2000)
Jinak je samozrejme mozne zapouzdrit vsechna volani, ktere
alokuji/dealokuji handle nejakym wrapperem a delat si vlastni evidenci
(s podrobnejsimi informacemi jako je jmeno filu atd). Tim se
samozrejme odhali problemy jen v kodu ktery wrappery pouziva..
D. Toman
Aplikace XML
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 12.2.2002 15:44:19
Ahoj,
potrebuji napsat aplikaci, ktera bude pres XML komunikovat s
databazi v interbase.
Struktura dat v databazi a XML rozhrani jsou dane a musim je
dodrzet, nevim ale jak to vsechno nacpat do delphi, ze aby to
fungovalo,
potrebuji zrejme nejake datasety, pak vyresit komunikaci na
aplikacni server, a pak nejak zrejme na app serveru konvertovat xml
na sql a zpet.
poradte prosim co si mam nastudovat a pouzit.
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
Aplikace XML
[*] voltrr1.epr(zv)mail.cez(tec)cz - 12.2.2002 15:51:01
Zdar,
> potrebuji napsat aplikaci, ktera bude pres XML komunikovat s
> databazi v interbase.
> poradte prosim co si mam nastudovat a pouzit.
To nejak nechapu - co potrebujes ? Mas data v XML ktera jsou ulozena
v IB v BLOBu a ty je potrebujes zkonvertovat na jinak vypadajici XML ktere
posles nekam nebo co ???
XML parser pouzivam dlouhodobe jeden (http://www.destructor.de) takze
s tim ti muzu poradit a ted se chystam vyzkouset OpenXML (takze s tim ti
zatim neporadim :-))
Cus
Radek
Jak na celkovy pocet handlu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 12.2.2002 15:52:36
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>> Jak lze zjistit celkovy pocet handlu alokovany applikaci (procesem) ?
> Staci mi to pod WinNT/Win2000, jedna se self test aplikace, jestli
> nenastava nejaky "handle leak".
Task manager ve Win2000, menu View -> Select Columns...
Martin Schayna
Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 12.2.2002 16:02:15
tip cislo 246
Martin Ben
PatBlt - posunuti pod Win9x
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 12.2.2002 16:19:45
Mam problemek s funkci PatBlt, kterou plnim
vzorek v PaintBox.Canvas. Pod NT/2K vse
funguje spravne, pod Win9x se vzorek vykresli
vice vlevo a nahoru nez by mel. (Ostatni funkce
GDI jako napr. Polygon ci LineTo kresli spravne)
Posunuti koresponduje se vzdalenosti PaintBoxu
od leveho horniho rohu okna.
V SDK se u vsech GDI funkci vcetne PatBlt
pise ze souradnice maji byt v logical units.
Zkousel jsem cist ViewportOrg, ale je obou
pripadech nulovy.
Diky
Daniel
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 12.2.2002 16:27:44
To znam a prave to potrebuji pro jeden self test, abych byl schopen identifikovat,
ze dochazi k hromadeni handlu a napriklad to zaznamenat do logu, nebo
jako jeden z testu http://dunit.sourceforge.net/.
Slavek
> > Jak lze zjistit celkovy pocet handlu alokovany applikaci (procesem) ?
> > Staci mi to pod WinNT/Win2000, jedna se self test aplikace, jestli
> > nenastava nejaky "handle leak".
>
> Task manager ve Win2000, menu View -> Select Columns...
>
> Martin Schayna
>
> Aplikace XML
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 12.2.2002 16:43:34
Open XML pouzivam a je to celkem dobre, zatim, co jsem od nej potreboval, to
umel.
-----Original Message-----
From: voltrr1.epr(zv)mail.cez(tec)cz [mailto:voltrr1.epr(zv)mail.cez(tec)cz]
Sent: Tuesday, February 12, 2002 3:51 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Aplikace XML
Zdar,
> potrebuji napsat aplikaci, ktera bude pres XML komunikovat s
> databazi v interbase.
> poradte prosim co si mam nastudovat a pouzit.
To nejak nechapu - co potrebujes ? Mas data v XML ktera jsou ulozena
v IB v BLOBu a ty je potrebujes zkonvertovat na jinak vypadajici XML ktere
posles nekam nebo co ???
XML parser pouzivam dlouhodobe jeden (http://www.destructor.de) takze
s tim ti muzu poradit a ted se chystam vyzkouset OpenXML (takze s tim ti
zatim neporadim :-))
Cus
Radek
Ziskanie cisla vybranej strany z PrintDialog.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 17:28:12
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
> Zdravim ... mam taky problem, da sa ziskat z PrintDialogu alebo
> PrinterSetupDialogu cislo strany ktoru chcem vytlacit ? popripade cisla
> stran, ktore si vyberiem ?
Ahoj,
TPrintDialog.FromPage a ToPage, viz help
Petr Vones
ascii zpravy via TCP/IP
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.2.2002 17:28:45
Ahoj, nemate niekto k dizpozicii Indy komponenty,
ktore by fungovali aj pod D3 ?
Vlkovic
> Komponenty Indy obsahuji TCP/IP client i server, pouzivam je pro
> prenos podobnych zprav a funguje to.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]Jak na celkovy pocet handlu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 17:33:49
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> To znam a prave to potrebuji pro jeden self test, abych byl schopen
> identifikovat, ze dochazi k hromadeni handlu a napriklad to zaznamenat do
> logu, nebo jako jeden z testu http://dunit.sourceforge.net/.
Ahoj,
pomoci Performance Counteru "\\Machine\Process()\Handle Count". Vice najdes v
PerfMon.zip http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
OT:free CDDB server
[*] robiin <Roman.Kubin(zv)seznam(tec)cz> - 12.2.2002 17:43:25
Dobry den,
neznate nekdo nejaky free CDDB server a komunikacni protokol k nemu?
Roman Kubin,
programator
______________________________________________________________________
http://www.mistral(tec)cz Internet po kabelovce: rychlost a� 320 kb.s-1,
cena od 1,36 K�/hod., neomezen� p�enos dat, pro prvn�ch 300 instalace zdarma
Jak zjistit Application.MainForm.Handle z DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 17:44:34
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> Potreboval bych v knihovne *.dll zjistit handle na hlavni okno aplikace,
> kter� toto *.dll vola.
> - Aplikace nemusi byt vytvorena v Delphi
Ahoj,
za teto podminky je to temer neresitelne. V pripade Delphi aplikace totiz lze
zjistit jen skryte okno TApplication a ne hlavni okno aplikace ktere je ve VCL
jako Application.MainForm.Handle.
Petr Vones
OT:free CDDB server
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 17:52:49
From: "robiin" <Roman.Kubin(zv)seznam(tec)cz>
> neznate nekdo nejaky free CDDB server a komunikacni protokol k nemu?
Ahoj,
http://www.freedb.org/
http://www.freedb.org/modules.php?name=Sections&sop=viewarticle&artid=28
Petr Vones
ascii zpravy via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.2002 18:03:44
Vidis, dalsi duvod k tomu nepouzivat Indy... a pouzivat Synapsi,
ktera podporuje sirsi skalu verzi Delphi. :-)
> Ahoj, nemate niekto k dizpozicii Indy komponenty,
> ktore by fungovali aj pod D3 ?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Application.Title
[*] Martin �d�rsk� <zdary(zv)seznam(tec)cz> - 12.2.2002 18:39:31
Ahoj, chtel bych udelat scrolujici tech do Application.Title, ale
nevim jak zjistit sirku toho "tlacitka" na spodni liste. Nevite jak
na to?
Dik
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
MAC
[*] Martin �d�rsk� <zdary(zv)seznam(tec)cz> - 12.2.2002 18:40:42
Ahoj, jak bych zjistil fyzickou adresu sitove karty??? Predem
dik
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
MAC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 19:37:31
From: "Martin �d�rsk�" <zdary(zv)seznam(tec)cz>
> Ahoj, jak bych zjistil fyzickou adresu sitove karty??? Predem
Ahoj,
minimalne dvema zpusoby:
1. Pres NetBios (ne kazdy jej ma ale instalovany). Tento zpusob pouziva treba
JCL ve funkci GetMacAddresses (http://delphi-jedi.org/Jedi:CODELIBJCL)
2. Pomoci SNMP. Priklad najdes v Snmp.zip konverzi na Jedi:
http://delphi-jedi.org/Jedi:APILIBRARY
Petr Vones
Kdo ma zkusenosti s PReport
[*] Lud�k P�ral - 12.2.2002 19:51:52
Ahoj,
testuji tiskovy spravce "PREPORT" (FREE). Cela knihovna vypada velmi dobre,
ale ma problem, ze je dokumentace psana v rustine. Jejich sample je prilis
komplikovany a mota vse dohromady.
Ludek Paral Ludek Paral
LUPAsoft
Sadova 2/503, 352 01 As
tel. 0166/527410, 0605/25 12 83
mail/SMS : lupasoft(zv)centrum(tec)cz
mail/SMS : ludek.paral(zv)atlas(tec)cz
Jak na Oracle z Delphi
[*] Lud�k P�ral - 12.2.2002 19:51:56
Jeste jednou se moc omlouvam vsem, kteri zaregistrovali nesmysl, ktery jsem
napsal. Myslel jsem na mazani vsech dat z tabulky TABLE. Denne pouzivam jak
DROP, tak DELETE. Souhlasim s Tebou, ze pokud nebudu presne vedet, co ktery
SQL prikaz znamena, tak mohu udelat fatalni problem (bud smazu data, nebo
tabulky, nebo updatnu vic polozek, nez jsem chtel)
To je nesmysl ! Co delam na Oraclu, tak DELETE FROM TABLE <tablename> vzdy
smazal obsah tabulky, ale tabulka zustala. Tabulku smazes prikazem DROP
TABLE <tablename>.
Jiz jsem to v tomto tematu psal - je potreba se s SQL seznamit. Obecne na
Tisk z Excelu pres OLE - vyber tiskarny
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 12.2.2002 20:02:56
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj vespolek, vytvarim pres OLE dokument v Excelu, ktery se ma posleze
vytisknout. Pouzivam metodu WorkSheet.PrintOut, ktera krome jineho vyzaduje
jmeno tiskarny, kam se bude tisknout. Nedokazal jsem vsak najit nic, co by
pripominalo PrintDialog v Delphi, takze momentalne dovedu tisknout jen na
defaultni tiskarnu, staci dat misto jmena tiskarny jen prazdny retezec.
Nevite nekdo, jak pres OLE zvolit jinou tiskarnu? Pripada mi "neorganicke"
vyvolat PrintDialog z Delphi, v nem zvolit tiskarnu a jeji jmeno cpat jako
parametr do te funkce PrintOut. Diky predem za vsechny odpovedi
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************jedna instance
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 20:09:45
From: "Zden�k �t�p�nek" <zstepanek(zv)atlas(tec)cz>
> Je mi vicemene jedno, jestli pouziju externi unitu (jcl) nebo komponentu.
> Porad je to spousta zbytecneho kodu, ktery nepotrebuji. Vyborne funguje
Ve srovnani s VCL je napriklad tech cca 7k opravdu zoufale mnoho ;-)
> tohle (z prvni odpovedi):
> hMutex:= CreateMutex(nil, false, 'Test jednoho spu�t�n�'); //add single
Akorat musis zajistit aby tento string byl jedinecny. Pokud nekdo jiny pouzije
nahodou stejny tak se potom aplikace vubec nespusti.
Petr Vones
Uzivatelska komponenta a TCustomControl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2002 20:18:02
From: <mkotaska(zv)atlas(tec)cz>
> Vytvoril jsem si vlastni komponentu, odvozenou z TCustomControl, a v jejim
> konstruktoru dynamicky generuji komponenty jine (TPanel). Vse funguje temer
> tak, jak bych si predstavoval, krome jedne "zvlastnosti". Pokud pri navrhu
> formulare vlozim na formular tuto komponentu a do ni jeste vlozim napr.
> Button, je vse v poradku. Po spusteni programu je videt moje komponenta, ale
> uz nejsou videk komponenty, ktere jsem na tuto moji komponentu vlozil pri
> navrhu. Pokud by nekdo vedel, jak na to, prosim odpovezte.
Ahoj,
nebylo by jednodusi pouzit frame ?
Petr Vones
jedna instance
[*] Zden�k �t�p�nek�����^��ޏ����� - 12.2.2002 20:53:21
Zdravim
> > Je mi vicemene jedno, jestli pouziju externi unitu (jcl) nebo
komponentu.
> > Porad je to spousta zbytecneho kodu, ktery nepotrebuji. Vyborne funguje
>
> Ve srovnani s VCL je napriklad tech cca 7k opravdu zoufale mnoho ;-)
Faktem je, ze jsem JCL podrobneji nestudoval, ale stale trvam na tom, ze
tech mych 5 radku zabiram min mista.
> > tohle (z prvni odpovedi):
> > hMutex:= CreateMutex(nil, false, 'Test jednoho spu�t�n�'); //add
single
>
> Akorat musis zajistit aby tento string byl jedinecny. Pokud nekdo jiny
pouzije
> nahodou stejny tak se potom aplikace vubec nespusti.
Diky za upozorneni, to me nenapadlo, ja myslel, ze tam muze byt cokoliv.
Zdenek
Debug DLL ve WinXP
[*] <xwoman2(zv)centrum(tec)cz> - 12.2.2002 23:24:34
Mam problem, ve WinXP mi normalne dll jdou vytvorit i spustit,
ale nedaji se krokovat (breakpoint je disabled). Nevite nekdo, co
s tim? Diky.
-------------------------------
Bronislav Klucka
mail: xwoman2(zv)centrum(tec)cz
ICQ: 109718536
telefon: +420605582922
===== www.centrum(tec)cz doporu�uje =====
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...Borland reveals Microsoft .NET platform support st
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2002 00:46:50
Announces Delphi and C++Builder Support for Microsoft .NET Platform
http://www.borland.com/about/press/2002/net_platform.html
http://community.borland.com/article/0,1410,28386,00.html
Petr Vones
Aplikace XML
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 13.2.2002 07:42:04
Data jsou normalne v interbase klasicky v tabulkach, ale potrebuji s
tim komunikovat XML, protoze tam stejne pojedou na tu databazi i
jine aplikace ( jinych firem ) tzn. ze musim napsat aplikaci a pak
jeste neco co kdyz se na to nekdo oprati, ze chce XML data tak
ono si to sahne do interbase vytahne to z ni a odesle v XML
formatu a naopak zapis kdyz tomu necemu nekdo posle XML data
k ulozeni tak ono to vymysli SQL dotaz a nasype ho do interbase.
> Zdar,
>
> > potrebuji napsat aplikaci, ktera bude pres XML komunikovat s
> > databazi v interbase.
> > poradte prosim co si mam nastudovat a pouzit.
>
> To nejak nechapu - co potrebujes ? Mas data v XML ktera jsou ulozena v
> IB v BLOBu a ty je potrebujes zkonvertovat na jinak vypadajici XML
> ktere posles nekam nebo co ???
>
> XML parser pouzivam dlouhodobe jeden (http://www.destructor.de) takze
> s tim ti muzu poradit a ted se chystam vyzkouset OpenXML (takze s tim
> ti zatim neporadim :-))
> 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
Ulozeni Stringu do pointeru
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 13.2.2002 07:52:32
Ahoj,
mam pole recordu, kde je pres pointer ukazovano na string. Potrebuji ale
ukazovat na dlouhy string, tak aby se mi potom dobre dealokoval. Jak bych to
mel udelat?
type
Tjistina=Record
...
obsah:Pointer;
end;
S:='blabla'; {S je lokalni promenna}
jistina1.obsah:=Addr(S); {??? je to tak dobre ???}
potom jak to priradit zpet do stringu a puvodni alokaci zrusit? Mate nekdo
nejaky prikladek?
Diky
Ka.
Jak zjistit Application.MainForm.Handle z DLL
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 13.2.2002 07:59:12
> > Potreboval bych v knihovne *.dll zjistit handle na hlavni okno aplikace,
> > kter� toto *.dll vola.
> > - Aplikace nemusi byt vytvorena v Delphi
>
> za teto podminky je to temer neresitelne. V pripade Delphi aplikace totiz
lze
> zjistit jen skryte okno TApplication a ne hlavni okno aplikace ktere je ve
VCL
> jako Application.MainForm.Handle.
>
> Petr Vones
>
Ahoj
Zkusim to tedy jinak:
Kdyz na DESKTOPu najdu 2 okna programu, kter� hled�m,
jak zjistim, kter� z nich spustil moji knihovnu *.dll ?
Je pravdepodobne, ze obe instance programu moje *.dll pou��vaj�, ale mne
zajima
momentalne jen jedna.
Pavel
ascii zpravy via TCP/IP
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.2.2002 08:09:54
OK. A mas tam aj telnetovskeho klienta?
Vlkovic
> Vidis, dalsi duvod k tomu nepouzivat Indy... a pouzivat Synapsi,
> ktera podporuje sirsi skalu verzi Delphi. :-)
>
> > Ahoj, nemate niekto k dizpozicii Indy komponenty,
> > ktore by fungovali aj pod D3 ?
>
> -- Lukas Gebauer.Aplikace XML
[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.2.2002 08:21:38
> Data jsou normalne v interbase klasicky v tabulkach, ale potrebuji s
> tim komunikovat XML, protoze tam stejne pojedou na tu databazi i
> jine aplikace ( jinych firem ) tzn. ze musim napsat aplikaci a pak
> jeste neco co kdyz se na to nekdo oprati, ze chce XML data tak
Todle mas vyreseno ? Tj. dostanes XML do nejakeho bufferu
a ty ho ulozis a nebo ho jen posles do bufferu ?
> ono si to sahne do interbase vytahne to z ni a odesle v XML
> formatu a naopak zapis kdyz tomu necemu nekdo posle XML data
> k ulozeni tak ono to vymysli SQL dotaz a nasype ho do interbase.
Rozparsovat XML na neco jineho neni problem (viz OpenXML/XMLParser)
,ulozit XML taky neni problem (je to jen text a pomoci rekurze se da uplne
v pohode vygenerovat). Problem je v konverzi dat mezi XML a IB
Todle bych delal dvam zpusobama :
1. Format XML je takovy ze lze aplikovat jednoduchy univerzalni preklad.
Napr. staci zmenit jmena polozek atd... To bych pak udelal jednu exp/imp
funkci ktera by se konfigurovala podle obsahu XML ve spolupraci s napr.
tabulkou kde by byla ulozena jmena polozek XML<>IB
2. Format XML je ruzny pro ruzne polozky a neni moc univerzalni - udelal
bych si tridy ktere budou resit preklad. Mely by spolecneho predka ktery
by zajistoval load/save XML, connect k IB atd... a jednu proceduru ktera
by byla prepsana v kazdem potromkovi a ktera by zajistovala samotny
preklad XML<> IB
Cus
Radek Voltr
Debug DLL ve WinXP
[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.2.2002 08:28:14
Zdar,
> Mam problem, ve WinXP mi normalne dll jdou vytvorit i spustit,
> ale nedaji se krokovat (breakpoint je disabled). Nevite nekdo, co
me to na XP chodi. Ale obcas se me stane ze D5 nenajde symbol
table a tudiz breakpointy nechodej. Nemyslim ze by to byl problem XP.
Reseni je :
- projit vsechny cesty zda nekde nemas relativni odkaz (v projektu i
library)
- pokud to nepomuze, tak si aktivuj okno modules (v debug windows)
- na zacatek DLL dat napr. showmessage (proste neco co ti zastavi beh)
- spustis to a v okne modules si najdes tu svoji knihovnu
- kliknes pravej cudl a das Reload Symbol Table. Tam si browsnes cestu
ke zdrojaku aplikace
- v okamziku kdy das OK by se ti mely v editoru ukazat ty modry pecky a
ty muzes odmacknout message a pokracovat v ladeni
Vypada to slozite ,ale po par desitkach provedeni uz to budes mit v ruce :
-)
To okenko z Reload... si nastesti pamatuje cesty takze to je pak uz
rychlejsi
Cus
Radek Voltr
ascii zpravy via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 13.2.2002 08:32:34
Zalezi na tom co si pod tim predstavujes? Ciste jen implementaci
telnetu, nebo i nejakou emulaci terminalu, atd?
V soucasne dobe tam neni, ale namplementovat si cisty telnet je vec
vcelku trivialni... (a jak se dozvis na mem webu v planech, tak se na
to chystam.)
> OK. A mas tam aj telnetovskeho klienta?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.ascii zpravy via TCP/IP
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.2.2002 08:52:08
Potrebujem nadviazat cez telnet na unixovy server, spustit
asi tri prikazy a odpojit sa. Nepotrebujem spracovavat ani
nijak specialne upravovat vystup (okno) terminalu, cele by
to malo prebehnut na pozadi. Dokonca ani server sa nebude menit.
Ak by sa to dalo urobit nejak jednoducho, napr. aj cez
komponenty Synapse, to by som bol celkom rad.
Vlkovic
> Zalezi na tom co si pod tim predstavujes? Ciste jen implementaci
> telnetu, nebo i nejakou emulaci terminalu, atd?
>
> V soucasne dobe tam neni, ale namplementovat si cisty telnet je vec
> vcelku trivialni... (a jak se dozvis na mem webu v planech, tak se na
> to chystam.)Uzivatelska komponenta a TCustomControl
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 13.2.2002 08:53:56
napadaji me 2 duvody:
1. do constructoru komponenty pridej
ControlStyle := ControlStyle+[csAcceptsControls];
2. Pri dynam. vkladani TPanel spatne nastavujes Owner popripade Parent
Martin Kleiner
------------
Ahoj.
Vytvoril jsem si vlastni komponentu, odvozenou z TCustomControl, a v jejim
konstruktoru dynamicky generuji komponenty jine (TPanel). Vse funguje temer
tak, jak bych si predstavoval, krome jedne "zvlastnosti". Pokud pri navrhu
formulare vlozim na formular tuto komponentu a do ni jeste vlozim napr.
Button, je vse v poradku. Po spusteni programu je videt moje komponenta, ale
uz nejsou videk komponenty, ktere jsem na tuto moji komponentu vlozil pri
navrhu.
Pokud by nekdo vedel, jak na to, prosim odpovezte.
Dekuju.Manazer tabulek a zaznamu pro Interbase
[*] "Nov� Lubo�" <delphi(zv)unicos(tec)cz> - 13.2.2002 8:54:42
Zdravim,
nutne bych potreboval nejakou radu ohledne manazera tabulek. Potrebuju kopirovat tabulky mezi ruznymi .gdb soubory. Hodila by se i moznost kopirovani urcitych zaznamu. Nevite jestli neco na to jiz neexistuje ?
Nejaky manazer tabulek v databazi ?
Nechce se mi to programovat z cisteho listu....
Diky moc,
Lubos
Manazer tabulek a zaznamu pro Interbase
[*] Kinsky Filip <xkinf01(zv)vse(tec)cz> - 13.2.2002 09:29:53
Cau,
jak ti asi za chvili Pavel Cisar napise, mrkni se sem :
http://www.ibphoenix.com/ibp_contrib_download.html :)
Filip Kinsky
On Wed, 13 Feb 2002 8:54:42 +0100
"Nov� Lubo�" <delphi(zv)unicos(tec)cz> wrote:
> Zdravim,
> nutne bych potreboval nejakou radu ohledne manazera
> tabulek. Potrebuju kopirovat tabulky mezi ruznymi .gdb
> soubory. Hodila by se i moznost kopirovani urcitych
> zaznamu. Nevite jestli neco na to jiz neexistuje ?
> Nejaky manazer tabulek v databazi ?
> Nechce se mi to programovat z cisteho listu....
> Diky moc,
> Lubos
MSExcel95 & komunikacia s Delphi - OLE
[*] iturcan(zv)gamo.sk - 13.2.2002 09:31:33
Hi all,
vie niekto poradit ako komunikovat s Excelom95 prostrednictvom OLE ? Mam
kniznicu ktora to dokaze s Excelom97/2000 a vyssim avsak pri
MS Excel95 mi to zhuci na chybe "unknown language" . Mam CZ verziu MS
Excelu avsak podla kolegu na EN verzii sa to chova totozne.
Na komunikaciu pouzivam OleContainer. Problem testujem na Excel 5.0a a
7.0a , platforma je Windows95, patch na OLEAut je aplikovany.
Mate nejaky napad ako to riesit resp. riesili ste toto uz ?
dakujem
Ivan Turcan
ps. napada ma prepisat pristup a volat funkcie priamo prostrednictvom type
library avsak neviem ci to pomoze :)Ulozeni Stringu do pointeru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.2.2002 09:31:26
> Ahoj,
> mam pole recordu, kde je pres pointer ukazovano na string. Potrebuji
ale
> ukazovat na dlouhy string, tak aby se mi potom dobre dealokoval. Jak
bych to
> mel udelat?
AnsiString je sam o sobe pointer - cil typ polozky bude String;
Vetsinou se i sam dealokuje (kompilator dela co muze). Pokud delas
nejaky cunarny (pretypovani oblasti pameti, dynamicke alokace pomoci
GetMem, atd) pak musis:
1) pred prvnim pouzitim prepsat pointry na budouci stringa na NIL
2) po ukonceni prace (pred dealokaci struktury) provest:
promenna.stringmember := '' (tedy nechat odalokovat stringo)
>
> type
> Tjistina=Record
> ...
> obsah:Pointer;
> end;
>
> S:='blabla'; {S je lokalni promenna}
> jistina1.obsah:=Addr(S); {??? je to tak dobre ???}
Je-li S lokalni promenna ( v nejake funkci) pak po opusteni funkce
bude dealokovana pamet pouzita pro stringo (pokud nebyla vyrobena
dalsi reference prirazenim do jine promenne - to ale prirazeni adresy
do samozrejme neudela)
D. Toman
porovnani IBObjects a FIBPlus
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.2.2002 09:34:05
ahoj,
po prednasce na seminari jsem dospel k rozhodnuti,
ze je nacase opustit IBX (z duvodu budouci podpory
FireBirdu) a vybrat jine vhodne komponenty.
poohlizel jsem se po IBO a FIBP.
byl bych velmi vdecny, kdyby ti kteri je pouzivaji
zodpovedne napsali co si na nich nejvice cenite,
co vam naopak nejvice vadi a nejlepe i duvod,
ktery vas vedl k te vasi volbe.
osobne to zatim vidim spis na IBO, byt za vyssi cenu,
ale neuveritelny komfort, vcetne exportu do txt a dbf,
vlastnich dbAware komponent a spousty dalsich vychytavek.
FIBP jsou spise jednodussi a IBX velmi podobne, vzdyt maji
konec koncu stejny pocatek ve FreeIB komponentach.
dekuji PeC(zv)Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] skalsky(zv)oksystem(tec)cz - 13.2.2002 09:39:20
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Znamena to, ze
b) SPI_SCREENSAVERRUNNING : CTRL + ALT + DEL
nebude spravne fungovat pod w98 nebo jsem jen tu poznamku spatne pochopil ?
Milan
Pro P.Vonese : Tip c. 246
-----Original Message-----
From: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
Subject: RE: Zakazani stisku CTRL-ALT-DEL ve Win98 ???
b) SPI_SCREENSAVERRUNNING : CTRL + ALT + DEL
- pouze W95: pouzit vnitrne, aplikace by jej nemela pouzivat
Odeslani dat do WWW formulare metodou POST
[*] martin.falta(zv)obi.de - 13.2.2002 09:55:19
This is a multi-part message in MIME format.
Ahoj,
pisu aplikaci, ze ktere potrebuji poslat data na www server. Tato data lze
zadavat i prostrednictvim www formulare. Data se z tohoto formulare
odesilaji metodou POST. Ja bych potreboval, aby moje aplikace umela poslat
data pres tento formular. Nevite nekdo jak na to?
Predem dekuji.
S pozdravem
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
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.Application.Title
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.2.2002 10:07:27
Proc to delas? K cemu je to dobre? Pridelavas si jenom starosti.
Pokud chces uzivatele nejak upozornit, pouzivej spise standardni
rozblikani buttonu (viz MSDN FlashWindow).
Kazdopadne myslim ze zjistit sirka buttonu regulerne nejde, od
Win98 resp Win95+IE4 je k dispozici COM trida Class_TaskbarList,
ktera umoznuje pracovat s listou, ale to co potrebujes v jejim interfacu
neni. Mozna snad zjistit to traverzovanim Win handlu.
Martin Schayna
----- Original Message -----
From: "Martin �d�rsk�" <zdary(zv)seznam(tec)cz>
Ahoj, chtel bych udelat scrolujici tech do Application.Title, ale
nevim jak zjistit sirku toho "tlacitka" na spodni liste. Nevite jak
na to?
Dik
zalohovani v IBObjects
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.2.2002 10:10:59
ahoj,
marne hledam komponenty na zalohovani
v IBO, tedy nejakou obdobu IBRestore
a IBBackup v IBX ci FIBP.
znamena to, ze musim zalohovat "rucne",
napr volanim gbak? pokud ano, muze te
prosim nekdo poslat prikladek kodu?
dekuji PeC(zv)okno jako nastrojova lista
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 13.2.2002 10:15:55
nevite nekdo jak udelat aby pomocny formular byl nahore, mel focus, ale jeho
vlastnik mel aktivni zahlavi?
predem diky za kazdy napad
jedna instance
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.2.2002 10:20:19
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>> From: "Zden�k �t�p�nek" <zstepanek(zv)atlas(tec)cz>
> > tohle (z prvni odpovedi):
> > hMutex:= CreateMutex(nil, false, 'Test jednoho spu�t�n�'); file://add
single
>
> Akorat musis zajistit aby tento string byl jedinecny. Pokud nekdo jiny
pouzije
> nahodou stejny tak se potom aplikace vubec nespusti.
Doporucuji GUID:
const
SingleInstanceGUID: TGUID = '{....}';
// GUID vygenerovany pomoci Ctrl+Shift+G
...
hMutex:= CreateMutex(nil, false, GUIDToString(SingleInstanceGUID));
Martin Schayna
jedna instance
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 13.2.2002 10:47:12
> > > tohle (z prvni odpovedi):
> Doporucuji GUID:
>
> const
> SingleInstanceGUID: TGUID = '{....}';
> // GUID vygenerovany pomoci Ctrl+Shift+G
>
> ...
> hMutex:= CreateMutex(nil, false, GUIDToString(SingleInstanceGUID));
>
> Martin Schayna
Zdravim
Bylo by mozno "GUID" trochu rozvest? Nejak nerozumim " GUID vygenerovany
pomoci Ctrl+Shift+G"
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
MDIChildForm -> vlastnost Anchors u komponent
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.2.2002 10:52:36
Ahoj,
chci se zeptat jakym zpusobem zajistit, aby se vizualni komponenty na ChildFormu, zadam-li jim vlastnost Anchors (akRight, akBottom), pri zmene velikosti ChildFormu se prizpusobovaly jemu a ne hlavnimu formu.
Diky
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
jedna instance
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.2.2002 10:59:24
> Bylo by mozno "GUID" trochu rozvest? Nejak nerozumim " GUID vygenerovany
> pomoci Ctrl+Shift+G"
>
No, ze proste jako ten svuj unikatni retezec si tam vlozis GUID, ktery ti
umi Delphi vygenerovat v editoru pomoci teto klavesove zkratky (pokud nemas
tuto zkratku obsazenu necim jinym) ...
T.
FreeVCS a sdilene zdrojove kody
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 13.2.2002 11:01:20
Zdravim a mam jeden dotaz. Pouzivam FreeVCS a jsem v situaci, kdy mam
nekolik projektu a vsechny obsahuji sdilene unity, spolecne pro vsechny
projekty. Jak zajistit, aby se dokazaly tyto sdilene zdr. kody udrzovat
jenom jednou fyzicky a pritom v databazi figurovaly odkazem u vsech
projektu?
Diky za radu
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
okno jako nastrojova lista
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 13.2.2002 11:06:54
> From: Ladislav Fitz
>
> nevite nekdo jak udelat aby pomocny formular
> byl nahore, mel focus, ale jeho
> vlastnik mel aktivni zahlavi?
>
A musi to byt za kazdou cenu formular?
Ja k temto udelum pouzivam komponentu
TPlovouciPanel z balicku Sinea VCL.
Je to panel vzhledove podobny oknu,
na ktery naskladam potrebne komponenty
a jenom mu nastavuji Visible.
Jedinou nevyhodou je, ze s timto panelem
nemohu vyjet mimo plochu vlastnika.
Vaclav Krmela
MDI aplikace - spusteni vnitrni proc.
[*] "Nov� Lubo�" <delphi(zv)unicos(tec)cz> - 13.2.2002 11:06:52
Jeste jeden dotaz...
Mam MDI aplikaci,
MDIMaster - je form s menu
MDIForm - je formular ktery se spousti kolikrat chci. Zobrazuji na nem jakesi smlouvy.
ALE jak mam spustit nejakou proceduru, kterou mam v MDIForm z hlavniho menu.
MDIChildren[0].mojeprocedura;
nefunguje, muzete mi nekdo prosim poradit ...
diky, Lubos
jedna instance
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.2.2002 11:12:53
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> > Doporucuji GUID:
> >
> > const
> > SingleInstanceGUID: TGUID = '{....}';
> > // GUID vygenerovany pomoci Ctrl+Shift+G
> > ...
> > hMutex:= CreateMutex(nil, false, GUIDToString(SingleInstanceGUID));
> >
> Bylo by mozno "GUID" trochu rozvest? Nejak nerozumim " GUID vygenerovany
> pomoci Ctrl+Shift+G"
Ctrl+Shift+G je kombinace klaves (stisknes Ctrl, pridas k tomu Shift
a klavesu G :-) ktera ti v editoru v Delphi vygeneruje unikatni
identifikator,
ktery je dle Microsoftu unikatni na celem svete. Je to 16 bytu,
ktere MS reprezentuje jako znakovy retezec (hexa reprezentace
doplnena o smeti z pomlcek a slozenych zavorek na delku 40 znaku).
Tento retezec se vyborne hodi prakticky pro kazdy pripad kdy
potrebujes vygenerovat unikatni klic, ktery nema nikdo na svete.
Martin Schayna
TGUID jedna instance
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 13.2.2002 11:23:31
> unikatni identifikator,
> ktery je dle Microsoftu unikatni na celem svete.
Ahoj,
muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
identifikator na celem svete??? To je opravdu nad miru meho mysleni.
I v pripade, ze se GUID generuje na zaklade aktualniho systemoveho
casu, je stale velka pravdepodobnost na vytvoreni identickeho
retezce. Moc by mne zajimalo, jak se da takova unikatnost zabezpecit.
Ze by mel Microsoft nejakou soukromou databazi GUIDu??? ;-))
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Skv�l� valent�nsk� p��n� a loga na mobil
http://ad2.seznam(tec)cz/redir.cgi?instance=20764%26url=http://www.orionmodreznebe(tec)cz
OT: koupim Turbo Pascal 6 nebo Borland Pascal 7
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 13.2.2002 11:27:22
Zdravim vsechny,
neproda nekdo licenci na TP 6 nebo BP 7 ?
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
okno jako nastrojova lista
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 13.2.2002 11:33:02
> > nevite nekdo jak udelat aby pomocny formular
> > byl nahore, mel focus, ale jeho
> > vlastnik mel aktivni zahlavi?
> >
>
> A musi to byt za kazdou cenu formular?
> Ja k temto udelum pouzivam komponentu
> TPlovouciPanel z balicku Sinea VCL.
>
> Je to panel vzhledove podobny oknu,
> na ktery naskladam potrebne komponenty
> a jenom mu nastavuji Visible.
>
> Jedinou nevyhodou je, ze s timto panelem
> nemohu vyjet mimo plochu vlastnika.
>
> Vaclav Krmela
a to vyjeti je prave to co potrebuji
ale presto diky
Debug DLL ve WinXP
[*] Jan Misek <jmdelphiforum1(zv)seznam(tec)cz> - 13.2.2002 11:42:57
Ahoj nemohli by jste me odkazat na nejakej slusnej navod
jak kdokovat dll (isapi) v delphi
dik
----- Original Message -----
From: <voltrr1.epr(zv)mail.cez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 8:28 AM
Subject: Re: Debug DLL ve WinXP
>
> Zdar,
>
> > Mam problem, ve WinXP mi normalne dll jdou vytvorit i spustit,
> > ale nedaji se krokovat (breakpoint je disabled). Nevite nekdo, co
>
> me to na XP chodi. Ale obcas se me stane ze D5 nenajde symbol
> table a tudiz breakpointy nechodej. Nemyslim ze by to byl problem XP.
>
> Reseni je :
> - projit vsechny cesty zda nekde nemas relativni odkaz (v projektu i
> library)
> - pokud to nepomuze, tak si aktivuj okno modules (v debug windows)
> - na zacatek DLL dat napr. showmessage (proste neco co ti zastavi beh)
> - spustis to a v okne modules si najdes tu svoji knihovnu
> - kliknes pravej cudl a das Reload Symbol Table. Tam si browsnes cestu
> ke zdrojaku aplikace
> - v okamziku kdy das OK by se ti mely v editoru ukazat ty modry pecky a
> ty muzes odmacknout message a pokracovat v ladeni
>
> Vypada to slozite ,ale po par desitkach provedeni uz to budes mit v ruce :
> -)
> To okenko z Reload... si nastesti pamatuje cesty takze to je pak uz
> rychlejsi
>
> Cus
> Radek Voltr
>
>Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Slavom�r �eke� - 13.2.2002 11:44:09
Zdravim ...
otazka preco funkcia Round zaokruhluje nahor od cisla 6 a nie od cisla 5
? Existuje nejaka ina funkcia, ktora to robi spravne ?
Slavo
Zakazani stisku CTRL-ALT-DEL ve Win98 ???
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 13.2.2002 11:47:37
Ja jsem to pochopil tak, ze flag je platny pouze pro W95 a to pouze pro
vnitrni potrebu systemu a my bychom jej nemeli pouzivat.
Martin Ben
-----Original Message-----
From: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
Sent: Wednesday, February 13, 2002 9:39 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Zakazani stisku CTRL-ALT-DEL ve Win98 ???
Znamena to, ze
b) SPI_SCREENSAVERRUNNING : CTRL + ALT + DEL
nebude spravne fungovat pod w98 nebo jsem jen tu poznamku spatne pochopil ?
Milan
Pro P.Vonese : Tip c. 246
-----Original Message-----
From: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
Subject: RE: Zakazani stisku CTRL-ALT-DEL ve Win98 ???
b) SPI_SCREENSAVERRUNNING : CTRL + ALT + DEL
- pouze W95: pouzit vnitrne, aplikace by jej nemela pouzivat
jedna instance
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.2.2002 11:49:14
> Akorat musis zajistit aby tento string byl jedinecny. Pokud
> nekdo jiny pouzije
> nahodou stejny tak se potom aplikace vubec nespusti.
>
> Petr Vones
Ahoj,
mozna jednoducha cesta k zajisteni jedinecnosti stringu je vygenerovat si do
zdrojaku GUID (Ctrl-Shift-G) u D5 Ent.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
MSExcel95 & komunikacia s Delphi - OLE
[*] iturcan(zv)gamo.sk - 13.2.2002 11:57:06
Hi all,
uz je mi jasne ze problem je v lokalizovanych Exceloch avsak nezda sa mi ze
by to neslo . Komunikujete s tym niekto?
Ivan Turcan
iturcan(zv)gamo.sk
Sent by: To: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)c cc:
lexpert(tec)cz Subject: MSExcel95 & komunikacia s Delphi - OLE
13.02.2002 09:31
Please respond
to delphi-l
Hi all,
vie niekto poradit ako komunikovat s Excelom95 prostrednictvom OLE ? Mam
kniznicu ktora to dokaze s Excelom97/2000 a vyssim avsak pri
MS Excel95 mi to zhuci na chybe "unknown language" . Mam CZ verziu MS
Excelu avsak podla kolegu na EN verzii sa to chova totozne.
Na komunikaciu pouzivam OleContainer. Problem testujem na Excel 5.0a a
7.0a , platforma je Windows95, patch na OLEAut je aplikovany.
Mate nejaky napad ako to riesit resp. riesili ste toto uz ?
dakujem
Ivan Turcan
ps. napada ma prepisat pristup a volat funkcie priamo prostrednictvom type
library avsak neviem ci to pomoze :)OT: MDB
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 13.2.2002 12:02:42
Snazim se otevrit MDB soubor. Ale porad mi to hlasi, ze nemam opravneni ho
otevrit, pritom to nechce zadne heslo.
Kde se nastavuji nejake ty opravneni? Muzete mi s tim poradit?
Diky
TGUID jedna instance
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 13.2.2002 12:09:49
> Ahoj,
> muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
> identifikator na celem svete??? To je opravdu nad miru meho mysleni.
IMHO do GUIDu se totiz pridava nejakym zpusobem i MAC adresa sitove karty a
ta je sama o sobe na svete jedinecna...
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
MDI aplikace - spusteni vnitrni proc.
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 13.2.2002 12:12:12
> MDIChildren[0].mojeprocedura;
>
> nefunguje, muzete mi nekdo prosim poradit ...
> diky, Lubos
Musel bys to pretypovat:
(MDIChildren[0] as trida_toho_childu).mojeprocedure;
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.2.2002 12:15:06
----- Original Message -----
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
> otazka preco funkcia Round zaokruhluje nahor od cisla 6 a nie od cisla 5
Mnohokrat opakovane tema: funkce Round dela tzv. "bankerske"
zaokrouhleni, ktere zaokrouhluje pulku nahoru nebo dolu podle toho
zda je to pulka sudeho nebo licheho cisla. Svym zpusobem
je to spravedlivejsi zaokrouhlovani nez klasice "aritmeticke",
t.j. pulka vzdy nahoru.
Martin Schayna
okno jako nastrojova lista
[*] pavel.ales(zv)popron(tec)cz - 13.2.2002 12:18:03
Poslu ti svoji listicku na soukromy mail
> From: Ladislav Fitz
>
> nevite nekdo jak udelat aby pomocny formular
> byl nahore, mel focus, ale jeho
> vlastnik mel aktivni zahlavi?
Ales PAVEL
D5 Ent W2000
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.281 / Virov� b�ze: 149 - datum vyd�n�: 18.9.2001
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.2.2002 12:19:08
> otazka preco funkcia Round zaokruhluje nahor od cisla 6 a nie od cisla 5
> ? Existuje nejaka ina funkcia, ktora to robi spravne ?
>
Zde je otazkou, co rozumis pod pojmem "spravne". V Delphi mas stejne
zaokrouhlovani jako v intelovskych CPU, je to zaokrouhlovani doporucene
IEEE, ktere ma statisticky minimalizovat efekt zaokrouhlovani, ale tusim se
tu o tom jiz nekolikrat diskutovalo, takze koukni do archivu.
T.
From: TeamB (rick(zv)fenestra.com_(Rick_Rogers)
Subject: Re: Question about round function
Newsgroups: borland.public.delphi.objectpascal
View this article only
Date: 1998/09/01
On Mon, 31 Aug 1998 17:06:28 -0500, "Luis Cantu"
<al538164(zv)campus.cdj.itesm.mx> wrote:
> Why rounding 1.5 or any .5 odd number returns the lower number
Prior to Delphi 4, the Delphi documentation for the Round function is
incorrect. The way you've described Round working is the way it is
supposed to work (and has worked, since Borland Pascal 7), and the way
it is documented in D4.
That is how the Intel Numeric Processing Unit (NPU) rounds numbers by
default, and consequently that is how the Delphi Round() function
works. When the fractional part of the real is exactly 0.5 rounding is
done to the nearest =even= number.
Actually, it would be better to say that Intel chose this algorithm
because that's what IEEE floating point is supposed to do.
The following table shows why this method of rounding is necessary:
"error"
0.0 -> 0.0 0.0
0.1 -> 0.0 -0.1
0.2 -> 0.0 -0.2
0.3 -> 0.0 -0.3
0.4 -> 0.0 -0.4
0.5 -> ???
0.6 -> 1.0 0.4
0.7 -> 1.0 0.3
0.8 -> 1.0 0.2
0.9 -> 1.0 0.1
4 values are rounded down (0.1 .. 0.4) and 4 values are rounded up
(0.6 .. 0.9) and 0.0 isn't changed. If 0.5 is always rounded up, then
on average the errors would total 0.5, while if 0.5 is always rounded
down, then the average error would be -0.5.
By rounding 0.5 down half the time, and up the other half, the
average errors would balance out.
This illustrates how quickly rounding errors can accumulate in a
simple total.
IEEE "Traditional"
0.5 -> 0 1
1.5 -> 2 2
2.5 -> 2 3
3.5 -> 4 4
---------------------------------------------
Total 8 10
Error 0 2 ( 25%)
Accountants and bankers are aware of how traditional rounding can
distort their bookkeeping records over time. Hence, the IEEE
method is sometimes called "banker's rounding".
If you don't agree with the logic behind the way Delphi implements the
Round function, and you don't mind accumulating statistical errors,
then use this algorithm, which always rounds up:
function AlwaysRoundUp(X: Extended): Extended;
begin
Result := Trunc(X) + Trunc ( Frac(X) * 2 );
end;
TGUID jedna instance
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 13.2.2002 12:20:05
> Ahoj,
> muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
> identifikator na celem svete??? To je opravdu nad miru meho mysleni.
>IMHO do GUIDu se totiz pridava nejakym zpusobem i MAC adresa sitove
karty a
>ta je sama o sobe na svete jedinecna...
no jo, a ked nemam sietovu kartu? ;)TGUID jedna instance
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.2.2002 12:38:07
> muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
> identifikator na celem svete??? To je opravdu nad miru meho mysleni.
> Ze by mel Microsoft nejakou soukromou databazi GUIDu??? ;-))
http://www.opengroup.org/dce/info/faq-mauney.html#Q2_26
http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
TGUID jedna instance
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 13.2.2002 12:45:36
Samozrejme se da pouzit i MAC adresa, ale co s pocitacem, ktery nema
sitovku?
V kazdem pripade bych rekl, ze staci vygenerovat nahodne cislo o velikosti
GUID a tim mas teoreticky zajisteno, ze bude jedinecne na svete. Vem si, ze
pocet kombinaci GUID je 32 na 16-tou a to dela nejakych
1208925819614629174706176 kombinaci. A pokud by kazdy (i deti a babicky) na
tomto svete (cca 7 mld.) lidi kazdou sekundu vygenerovalo 1000 GUIDu, tak by
vycerpani vsech moznych variant trvalo asi 5476 let.
Netvrdim, ze to je jedinecne, ale pri zamysleni se nad timto, bych ja osobne
rekl, ze je tento identifikator opravdu svetove jedinecny.
Jarda
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 13, 2002 12:09 PM
Subject: RE: TGUID jedna instance
> > Ahoj,
> > muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
> > identifikator na celem svete??? To je opravdu nad miru meho mysleni.
>
> IMHO do GUIDu se totiz pridava nejakym zpusobem i MAC adresa sitove karty
a
> ta je sama o sobe na svete jedinecna...
>
> S pozdravem
>
> Milan Tome�
> mailto:Milan.Tomes(zv)haida(tec)cz
porovnani IBObjects a FIBPlus
[*] miromr <miromr(zv)hotmail(tec)com> - 13.2.2002 12:50:12
Ahoj,
pouzivam IBO. Rozhodol som sa pre ne z tychto dovodov:
- neporovnatelne vyssia rychlost ako IB cez BDE.
- prevod aplikacie z BDE (ak sa nepouzili funkcie BDE) ale iba SQL, TTABLE a
TQUERY, do IBO je otazkou skor minut ako hodin.
- trochu mi vadi, ze vysledny exe je cca. o 700KB nafuknutejsi, ale zase na
druhej strane uz neni treba nic instalovat.
Miro
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
Subject: porovnani IBObjects a FIBPlus
po prednasce na seminari jsem dospel k rozhodnuti,
ze je nacase opustit IBX (z duvodu budouci podpory
FireBirdu) a vybrat jine vhodne komponenty.
KonfView
[*] Martinec <martin108(zv)post(tec)cz> - 13.2.2002 12:50:35
Kde bych mohl sehnat %subject% ?
Martinec
MDI aplikace - spusteni vnitrni proc.
[*] Martin �ajbik <cajbik(zv)sct.sk> - 13.2.2002 12:57:06
Toto spusti proceduru pre i-te MDIChild okno
if MDIChildren[i] is TMDIForm then
TMDIForm(MDIChildren[0]).mojaprocedura;
ak to chces spustit pre prave aktivne MDIChild tak potom
if ActiveMDIChild <> nil then
if ActiveMDIChild is TMDIForm then
TMDIForm(ActiveMDIChild).mojaprocedura;
MarCaNT (marcant(zv)sct.sk)
Jeste jeden dotaz...
Mam MDI aplikaci,
MDIMaster - je form s menu
MDIForm - je formular ktery se spousti kolikrat chci. Zobrazuji na nem
jakesi smlouvy.
ALE jak mam spustit nejakou proceduru, kterou mam v MDIForm z hlavniho menu.
MDIChildren[0].mojeprocedura;
nefunguje, muzete mi nekdo prosim poradit ...
diky, Lubos
MDB
[*] Peter Surovy <psurovy(zv)uevora.pt> - 13.2.2002 12:05:11 -0000
Ahoj
A ako sa ho snazis otvorit? :-)
Ja by som pouzil AdoConnection a
a tam by nemal byt problem.
Peter Surovy
----- Original Message -----
From: "Bednar��k Dalibor" <dalibor(zv)torola(tec)cz>
Sent: Wednesday, February 13, 2002 11:02 AM
> Snazim se otevrit MDB soubor. Ale porad mi to hlasi, ze nemam opravneni ho
> otevrit, pritom to nechce zadne heslo.
> Kde se nastavuji nejake ty opravneni? Muzete mi s tim poradit?
FreeVCS a sdilene zdrojove kody
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 13.2.2002 13:07:49
Ahoj,
Pokud budou spolecne unity na disku v jednom exemplari napr:
D:\Delphi\projects\ProjectA
D:\Delphi\projects\ProjectB
D:\Delphi\components\ComponentsC
(projekty A i B pouzivaji komponenty C)
a takto to vlozis do FVCS archivu, tak budou komponenty C sdilene
pro vsechny projekty, ktere je pouzivaji.
Pokud bys mel komponenty jak v adresari ProjectA i ProjectB tak si
s tim FVCS neporadi.
Ahoj
Tomas Bihary
----- Original Message -----
> Zdravim a mam jeden dotaz. Pouzivam FreeVCS a jsem v situaci, kdy mam
> nekolik projektu a vsechny obsahuji sdilene unity, spolecne pro vsechny
> projekty. Jak zajistit, aby se dokazaly tyto sdilene zdr. kody udrzovat
> jenom jednou fyzicky a pritom v databazi figurovaly odkazem u vsech
> projektu?
TGUID jedna instance
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 13.2.2002 13:17:01
GUID Info:
http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> > Ahoj,
> > muzete mi nekdo objasnit, jak je mozne vygenerovat jedinecny
> > identifikator na celem svete??? To je opravdu nad miru meho mysleni.
>
> >IMHO do GUIDu se totiz pridava nejakym zpusobem i MAC adresa sitove
> karty a
> >ta je sama o sobe na svete jedinecna...
>
> no jo, a ked nemam sietovu kartu? ;)TGUID jedna instance
[*] Roland Turcan <rolo(zv)sedas.sk> - 13.2.2002 13:26:32
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
Sent: Wednesday, February 13, 2002 12:09 PM
> IMHO do GUIDu se totiz pridava nejakym zpusobem i MAC adresa sitove karty
a
OK, je MAC adresa jedinecna a co ked nemam sietovu kartu ?
Roland.FreeVCS a sdilene zdrojove kody
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 13.2.2002 13:29:42
From: "Lasevic, Martin" <MLasevic(zv)ratiopharm(tec)cz>
> Zdravim a mam jeden dotaz. Pouzivam FreeVCS a jsem v situaci, kdy
mam
> nekolik projektu a vsechny obsahuji sdilene unity, spolecne pro
vsechny
> projekty. Jak zajistit, aby se dokazaly tyto sdilene zdr. kody
udrzovat
> jenom jednou fyzicky a pritom v databazi figurovaly odkazem u vsech
> projektu?
My to resime tak, ze spolecne moduly mame na serveru ulozeny jako
samostatne projekty oddelene od aplikaci, ktere je pouzivaji a mame je
rozdeleny do nekolika kategorii (pro ilustraci):
- obecne non-visual
- obecne visual
- spolecne pro urcitou rodinu aplikaci
Tech kategorii je ve skutecnosti daleko vice, protoze jeste
rozlisujeme nase moduly, 3rd party moduly, nase DLL, 3rd party DLL
atd.
U vlastni aplikace nadefinujeme zavislosti na techto projektech pomoci
Projects | Cross-references.
Toto reseni ma pri stavaji (ne)podpore prace s vice projekty u FreeVCS
clienta tu nevyhodu, ze musime rucne synchronizovat kazdou z techto
cross referenci, coz je dost velka onanie... (existuje 'core' DLL pro
pristup k VCS serveru, takze by se dal napsat asi nejaky
specializovany client, ktery by to zautomatizoval, ale zatim na to
nemame cas)
Vyhoda tohoto reseni ovsem je, ze muzes nezavisle ovladat prava
pristupu/modifikace k temto sdilenym modulum a tak udrzet framework
pod kontrolou.
Jeste pouzivam techniku napr. u RC souboru s informacemi o verzi
apod., kdy jsou tyto soubory vlozeny individualne v kazde aplikaci a
jeste jednou vsechny RC soubory do dedikovaneho projektu.
Kolikrat jsou soubory vlozeny v DB nevim, ale rozhodne to pracuje se
spolecnou kopii souboru na lokalnim disku, protoze kdyz soubor zamknu
v jednom projektu, vidim ten zamek i z jineho. Tim je mohu ovladat
vsechny z jednoho mista.
hth, pf
P.S.
Jo a jeste pouzivame virtualni disk V: vytvoreny pomoci subst pri
start-upu, aby vsichni mohli mit na svych pocitacich stejne cesty,
protoze FreeVCS pracuje bohuzel s aboslutnimi cestami.FreeVCS a sdilene zdrojove kody
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.2.2002 13:42:15
> Zdravim a mam jeden dotaz. Pouzivam FreeVCS a jsem v situaci, kdy
mam
> nekolik projektu a vsechny obsahuji sdilene unity, spolecne pro
vsechny
> projekty. Jak zajistit, aby se dokazaly tyto sdilene zdr. kody
udrzovat
> jenom jednou fyzicky a pritom v databazi figurovaly odkazem u vsech
> projektu?
>
pokud zdrojaky v roznych projektech maji stejnou cestu, pak FreeVCS
automaticky pozna, ze jde o sdileny soubor. To znamena, ze musis
sdilene knihovny mit ve jednom adresari
D. Toman
OT: Ukoncenie programu vo win
[*] <delphi(zv)zvlauto.sk> - 13.2.2002 13:44:24
Zdravim,
Ako ukoncit davkovy subor, ktory nacita nejaky rezidentny program bez toho
aby vypisalo hlasku ze sa ukonci stlacenim Ctrl-C? Program nema volbu
"odinstalovania sa z pamati" Ked zaskrtnem vo vlastnostiach davkoveho suboru
aby ukoncil cinnost pri skonceni tak to stale robi.
Pozn: Ide o program "print.com" z dosu 6.22
Dakujem
Priloha z Kursu tvorby napovedy
[*] V�clav Nov�k <gestore(zv)wo(tec)cz> - 13.2.2002 14:14:08
Ahoj,
vzpomel jsem si na Kurs tvorby napovedy Vilema Svobody v roce 1998
v teto konferenci. Prosel jsem si ho znovu v archivu
konference, hovori se zde o priloze kurs.zip, kde jsou priklady.
Tato priloha ale z archivu stahnout nejde. Mate ji nekdo nebo vite,
kde ji stahnout ? Hlavne ji neposlete sem do konference nebo
administratora klepne.
Vasek Novak
novak(zv)gestore(tec)cz
Zmena farby ProgressBar
[*] Slavom�r �eke� - 13.2.2002 14:16:31
Zdravim .... skusam Tip930, ale nako mi to nejde ...
SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clLime);
nepozna konstantu PBM_SETBARCOLOR ...
Slavo
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 13.2.2002 14:43:25
Ano, to se mi podarilo zprovoznit, ale ma to nekolik nedostatku:
1. pdh.dll neni defaultne soucasti WinNT
2. nazvy counteru jsou jazykove zavisle
3. jsou zde problemy pri odkaze na proces s vice instancemi
4. PdhBrowseCounters ovlivni PdhAddCounter (staci jej zavolat a dat storno).
Slavek
> Ahoj,
>
> pomoci Performance Counteru "\\Machine\Process()\Handle Count". Vice najdes v
> PerfMon.zip http://delphi-jedi.org/Jedi:CODELIBJCL
>
> Petr Vones
> Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.2.2002 15:02:57
bacha,
delphi zaokrouhluji x.5 na nejblizsi sudou.
tedy
6.5 =. 6
7.5 =. 8
mam pocit, ze se tomu rika statisticke zaokrouhlovani.
oproti tomu "klasicke" zaokrouhlovani vyucovane v
soucasne dobe na zakladni skole je tzv matematicke,
tedy pulka vzdy nahoru.
dekuji PeC(zv)KonfView
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 13.2.2002 15:07:13
> Kde bych mohl sehnat %subject% ?
Ahoj,
http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.shtml
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
TGUID jedna instance
[*] Martin Nedopil <nedopil(zv)yahoo(tec)com> - 13.2.2002 06:09:40 -0800 (pst)
Pocinaje Win98 a mozna i s nejakou instalaci IE 4 a
vyse na Win95 se zmenila logika vytvareni GUID. Drive
se vyuzivalo cislo prvni sitove karty. Protoze vsak
temer kazdy compound dokument (DOC, XLS) vyuziva GUID
slo velmi jednoduse najit skutecneho tvurce dokumentu
a tak byl Microsoft nucen toto zmenit.
Postup tvorby GUID a moznost jak to zmenit se da najit
na webu.
Martin
-------------------------------------------------
Samozrejme se da pouzit i MAC adresa, ale co s
pocitacem, ktery nema
sitovku?
V kazdem pripade bych rekl, ze staci vygenerovat
nahodne cislo o velikosti
GUID a tim mas teoreticky zajisteno, ze bude jedinecne
na svete. Vem si, ze
pocet kombinaci GUID je 32 na 16-tou a to dela
nejakych
1208925819614629174706176 kombinaci. A pokud by kazdy
(i deti a babicky) na
tomto svete (cca 7 mld.) lidi kazdou sekundu
vygenerovalo 1000 GUIDu, tak by
vycerpani vsech moznych variant trvalo asi 5476 let.
Netvrdim, ze to je jedinecne, ale pri zamysleni se nad
timto, bych ja osobne
rekl, ze je tento identifikator opravdu svetove
jedinecny.
Jarda
__________________________________________________
Do You Yahoo!?
Send FREE Valentine eCards with Yahoo! Greetings!
http://greetings.yahoo.com
ascii zpravy via TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 13.2.2002 15:12:58
Tak na tohle ti bohate staci jadro Synapse, konkretne TTCPBlockSocket
trida... navazat spojeni, a pak si vystacis s metodami SendString a
RecvString...
neni to nic tezkeho ci nepochopitelneho. ;-)
> Potrebujem nadviazat cez telnet na unixovy server, spustit
> asi tri prikazy a odpojit sa. Nepotrebujem spracovavat ani
> nijak specialne upravovat vystup (okno) terminalu, cele by
> to malo prebehnut na pozadi. Dokonca ani server sa nebude menit.
>
> Ak by sa to dalo urobit nejak jednoducho, napr. aj cez
> komponenty Synapse, to by som bol celkom rad.
>
> Vlkovic
>
>
> > Zalezi na tom co si pod tim predstavujes? Ciste jen implementaci
> > telnetu, nebo i nejakou emulaci terminalu, atd?
> >
> > V soucasne dobe tam neni, ale namplementovat si cisty telnet je vec
> > vcelku trivialni... (a jak se dozvis na mem webu v planech, tak se na
> > to chystam.)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.TGUID jedna instance
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2002 15:16:13
From: "Martin Nedopil" <nedopil(zv)yahoo.com>
> Pocinaje Win98 a mozna i s nejakou instalaci IE 4 a
> vyse na Win95 se zmenila logika vytvareni GUID. Drive
> se vyuzivalo cislo prvni sitove karty. Protoze vsak
> temer kazdy compound dokument (DOC, XLS) vyuziva GUID
> slo velmi jednoduse najit skutecneho tvurce dokumentu
> a tak byl Microsoft nucen toto zmenit.
Ono se vyuziva porad, ale uz neni tak snadne jej z toho zpetne dostat.
Petr Vones
Zavreni aplikace pri ukonceni Windows
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 13.2.2002 15:22:21
Zdravim,
mam tu jeden problemek. Moje aplikace se na FormClose nezavira ale schova do
traye. Jenze, kdyz ukoncuji Wokna a ty zaviraji programy, tak ta aplikace se
misto ukonceni zase schova do toho traye :o(.
metoda close od main formu:
---------------------------------------------------------------------
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
CoolTray.HideMainForm; // ikonka do traye
end;
---------------------------------------------------------------------
zkousel jsem tedy odchytavat:
procedure OnQUERYENDSESSION(var Message: TMessage); Message
WM_QUERYENDSESSION;
.
.
.
procedure TMain.OnQUERYENDSESSION(var Message: TMessage);
begin
Message.Result := Integer(True);
Application.Terminate;
end;
----------------------------------------------------------
Moje aplikace se sice ukonci ale Windows uz ne :o(
NEVITE NEKDO JAK NA TO ? ABY SE MOJE APP UKONCILA A WINDOWS TAKY ? Robert Plz�k
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2002 15:30:11
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>
> Mnohokrat opakovane tema: funkce Round dela tzv. "bankerske"
> zaokrouhleni, ktere zaokrouhluje pulku nahoru nebo dolu podle toho
> zda je to pulka sudeho nebo licheho cisla. Svym zpusobem
> je to spravedlivejsi zaokrouhlovani nez klasice "aritmeticke",
> t.j. pulka vzdy nahoru.
Ahoj,
zpusob zaokrouhlovani se da nastavit pomoci FPU CW. Napriklad pomoci funkce
Set8087Rounding v unitu Jcl8087 (http://delphi-jedi.org/Jedi:CODELIBJCL)
T8087Rounding =
(rcNearestOrEven, rcDownInfinity, rcUpInfinity, rcChopOrTruncate);
Petr Vones
Spusteni dalsi SP v ramci transakce
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.2.2002 15:39:18
Ahoj,
v ulozene procedure v IB6 vytvorim zaznam. V te same procedure spustim dalsi
ulozenou proceduru, ktera do prave vytvoreneho zaznamu potrebuje zapsat
nejake udaje. Bohuzel to zarve na deadlock. Da se nejak nastavit, aby se
vsechno, co se provadi v procedure provadelo v ramci jedne transakce /tj. i
procedury spustene v hlavni procedure/? Nebo je nejake jine reseni?
Dik predem za odpoved,
Roman
Jak zjistit Application.MainForm.Handle z DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2002 15:40:21
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> Zkusim to tedy jinak:
>
> Kdyz na DESKTOPu najdu 2 okna programu, kter� hled�m,
> jak zjistim, kter� z nich spustil moji knihovnu *.dll ?
>
> Je pravdepodobne, ze obe instance programu moje *.dll pou��vaj�, ale mne
> zajima momentalne jen jedna.
Ahoj,
prilis moudry z toho nejsem ale:
* V DLL muzes zjistit ID procesu do ktereho byla knihovna nahrana
* Z kazdeho handle okna lze zjistit ID procesu a threadu ktere ho vytvorilo
* Vsechna top-level okna v systemu lze prochazet, stejne tak jejich child okna
nebo okna vytvorene specificky threadem
Kombinaci vyse uvedenho by jsi asi byl schopen dosahnout toho co potrebujes.
Ohledne hlavniho okna aplikace. VCL pouziva jiny zpusob nez MFC, ve VCL je
hlavni okno aplikace skryte a jeho caption je to co vidis v taskbaru, takze
titulek hlavniho okna aplikace a popisu v taskbaru se muze lisit protoze jde o
dve ruzna okna. V MFC aplikacich tomu vetsinou tak neni (nevim jestli to ale
jde udelat podobne) takze titulek v taksbaru je shodny s titulkem hlavniho
okna, protoze se jedna o totez okno.
Petr Vones
Divne zaokruhlovanie cisel pomocou funkcie Round()
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 13.2.2002 15:45:32
muzete si jednoduse napsat fci:
function MathRound(n: Extended; exp: Integer): Extended;
// +exp= pocet desetinych mist, 0 na cele, -exp= kdyz je 1 tak na 10, 2 na
100...
var x: Extended;
begin
x := Power(10,exp);
// lze MathRound := Int((n * x)+0.5)/x;
// nebo citelneji
n := n * x;
n := n + 0.5;
n := Int(n);
MathRound := n / x;
end;
Michal
bacha,
delphi zaokrouhluji x.5 na nejblizsi sudou.
tedy
6.5 =. 6
7.5 =. 8
mam pocit, ze se tomu rika statisticke zaokrouhlovani.
oproti tomu "klasicke" zaokrouhlovani vyucovane v
soucasne dobe na zakladni skole je tzv matematicke,
tedy pulka vzdy nahoru.
Zmena farby ProgressBar
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 13.2.2002 16:10:12
Nizsie verzie Delphi tuto konstantu nepoznaju.
Skus si ju nadefinovat sam:
const
PBM_SETBARCOLOR = $409;
Vlkovic
> nepozna konstantu PBM_SETBARCOLOR ...
>
> Slavo
Zmena farby ProgressBar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2002 16:15:30
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
> nepozna konstantu PBM_SETBARCOLOR ...
Ahoj,
tato konstanta ve unitu CommCtrl.pas
V podobnych pripadech je nejrychelsi:
* vyhledat ve zdrojacich VCL pomoci Search | Find Files
* nahlednout do MSDN ve kterem headeru by mela byt
Petr Vones
OT: nakup a technicka podpora u IBObjects
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.2.2002 16:37:42
ahoj,
k mym predchozim dotazum pripojim jeste jeden.
chtel bych vedet, jak se vlastne plati. jasne
vyplaznu (ja ne, sef) balik dolaru, ale jak
upgrade, dokumentace a technicka podpora?
dostanu od nich nejaky doklad pro ucetnictvi?
z textu na jejich strankach nejsem moudrej,
<citat>
Upgrades
Upgrade policy: To remain eligible for minor
upgrades you are required to purchase an
upgrade subscription after a year from your
original purchase date. To be eligible for
major upgrades, you must purchase an upgrade
subscription after six months from your original
purchase date. Then, each upgrade cycle is for 6 months.
</citat>
muze mi to nekdo prosim vysvetlit? nejak mi unika
smysl a nerad bych si neco blbe vysvetlil.
dekuji PeC(zv)Zavreni aplikace pri ukonceni Windows
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.2.2002 17:04:22
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>> Zdravim,
> mam tu jeden problemek. Moje aplikace se na FormClose nezavira ale schova
do
> traye. Jenze, kdyz ukoncuji Wokna a ty zaviraji programy, tak ta aplikace
se
> misto ukonceni zase schova do toho traye :o(.
Implementuj WMQueryEndSession i WMEndSession, napr.:
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := fCanClose;
if not CanClose then Hide;
end;
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
inherited;
Msg.Result := 1;
end;
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
inherited;
if Msg.EndSession then begin
fCanClose := True;
Close;
end;
Msg.Result := 0;
end;
Martin Schayna
Spusteni dalsi SP v ramci transakce
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 13.2.2002 17:05:28
Hello, Roman!
You wrote :
R> v ulozene procedure v IB6 vytvorim zaznam. V te same procedure spustim dalsi
R> ulozenou proceduru, ktera do prave vytvoreneho zaznamu potrebuje zapsat
R> nejake udaje. Bohuzel to zarve na deadlock. Da se nejak nastavit, aby se
R> vsechno, co se provadi v procedure provadelo v ramci jedne transakce /tj. i
R> procedury spustene v hlavni procedure/? Nebo je nejake jine reseni?
Mam tuseni ze pouzivas SnapShot.
Je to tak ?
With best regards, Alex Cherednichenko.Komponenta - vlastnosti
[*] Peter Surovy <psurovy(zv)uevora.pt> - 13.2.2002 17:21:19 -0000
Ahoj
chcel by som pocas runtime vytvorit
jednu komponentu resp.jej instanciu.
Ta komponenta je vizualna a podobne ako
napr SpeedButton ked si ju zobrazim ako
text ma jednu z vlastnosti = data ako napr.:
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000D0000000F0000000100
04000000000078000000120B0000120B00001000000000000000000000000000
........
Ked si tu komponentu dam na form tie data
sa tam vlozia automaticky
ale ja ju chcem vytvorit az v runtime
a pokial tie data nezadam nezobrazi sa.
<problem>A samozrejme tie data zadata neviem, pretoze taka vlastnost
ako Komponenta.Data neexistuje rovnako ako neexistuje ani
SpeedButton.Glyph.Data</problem>
Komponenta je odvodena od TOleControl.
Vdaka
Peter Surovy