Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ListView a focus
[*] delphi(zv)htkpro(tec)cz - 9.2.2001 11:03:42
Podle me staci zavolat pouze nasledujici dva radky
ListView.Items[0].Selected := True;
ListView.Items[0].Focused := True;
a melo by to stacit.
S pozdravem
Jan Kadlecek
HTK Pro s.r.o.
www.dev-shop(tec)cz
>----- Original Message -----
>From: "Pavel Zemek" <Zemek(zv)gymhu.ipex(tec)cz>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Thursday, February 08, 2001 10:05 AM
>Subject: Re: ListView a focus
>
>
>> => Zdravim vsechny,
>> => resim problem s ListView a uz si s tim fakt nevim rady.
>> => Problem je v tom, ze pokud ListView dostane focus, tak nenastavi
>kurzor
>na
>> => prvni Item, aby kdyz uzivatel da sipku dolu preskocil kurzorem na
>druhou.
>> => Dela to tak, ze focus dostane, ale na prvni pohled neni videt, ze ho
>ma,
>> => pouze kdyz uzivatel stiskne klavesu dolu tak se oznaci prvni polozka.
>> => Nevite nekdo jak docilit toho, aby kdyz ListView dostane focus
>vyznacil
>> => prvni Item?
>> => Zkousel jsem take reseni, jako do udalosti OnEnter vlozit
>> => PostMessage(lsvCar_Name.Handle, WM_KEYDOWN, VK_DOWN, 0);
>> => ... problem byl v tom, ze pokud uzivatel ListView aktivoval mysi, tak
>se
>> => oznacil Item o jeden nize nez, ktery mel v umyslu.
>> => Take jsem zkousel do udalosti OnKeyDown predchoziho controlu aktivovat
>> => ListView, ale zde jsem nemohl odchytit stisk klavesy TAB.
>> => Nesetkal jste se uz nekdo s timto problemem?
>> => S pozdravem,
>> => Petr
Scanner, TWAIN a automatizace skenov�n�
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 9.2.2001 11:07:57
Zdravim vsechny,
potreboval bych zautomatizovat skenov�n� pres TWAIN. Mam predstavu, ze bych
nastavil dopredu parametry skenovani a potom by obsluha uz jenom zalozila
predlohu do scanneru a stiskla butonek <seskenovat>. Nevite nekdo jestli to
vubec jde, eventuelne jak na to, nejake informacni zdroje apod. ???
diky predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
DCU to PAS
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 9.2.2001 11:16:31
Pas z toho uz asi nedostanes, kompilovat pas to chce z nekolika dovodu:
1. datum pas je nevejsi nez datum dcu
2. datum nektereho jineho dcu, nebo pas, ne kterem zavisi prislusny dcu je novejsi.
3. Linker mas nastaveny do obj a tento obj neexistuje.
Prelozeno do cestiny, pokud jsi zmenil neco na cem zavisi to tvoje dcu, tak mas smulu.
Slavek
> Chcel by som sa opytat ci neexistuje nejaky nastroj na konverziu DCU suboru
> na PAS. Strasne surne to potrebujem lebo mam komponentu v bpl subore ale ked
> chcem spustit program F9 tak mi to vypise ze subor pas neexistuje ale mam
> subor dcu skompilovany z pas suboru. Totiz omylom som si zmazal pas :( a
> bolo tam toho celkom dost napisane a ten bpl subor mal asi napevno nastavene
> stale sa rekompilovat alebo co tak teraz sa mi to neda spustit. Poradte mi
> prosim.
>
> Dakujem
zasifrovani
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 9.2.2001 11:26:08
> -----Original Message-----
> From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
> Subject: zasifrovani
> potreboval bych 2funkce (encode/decode), ktere by dokazali
> zasifrovat retezec. Potrebuju ale, aby ten zasifrovany string
Ahoj,
tohle by ti melo stacit, vypadne z toho retezec 0..9 a A..F:
Ales
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
function Crypt_Text(Text, Klic : String) : String;
var
KeyLen : Integer;
KeyPos : Integer;
offset : Integer;
Dest : string;
SrcPos : Integer;
SrcAsc : Integer;
Range : Integer;
begin
if Trim(Text) = ''
then begin
Result := '';
Exit;
end;
Dest := '';
KeyLen := Length(Klic);
KeyPos:=0;
Range:=256;
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
for SrcPos := 1 to Length(Text)
do begin
SrcAsc:=(Ord(Text[SrcPos]) + offset) MOD 255;
if KeyPos < KeyLen
then KeyPos:= KeyPos + 1
else KeyPos:=1;
SrcAsc:= SrcAsc xor Ord(Klic[KeyPos]);
try
Dest := Dest + Format('%1.2x',[SrcAsc]);
except
Dest := 'error';
Break;
end;
Offset := SrcAsc;
end;
Result := Dest;
end;
function UnCrypt_Text(Text, Klic : String) : String;
var
KeyLen : Integer;
KeyPos : Integer;
offset : Integer;
dest : string;
SrcPos : Integer;
SrcAsc : Integer;
TmpSrcAsc : Integer;
begin
if Trim(Text) = ''
then begin
Result := '';
Exit;
end;
try
Dest := '';
KeyLen := Length(Klic);
KeyPos := 0;
offset := StrToInt('$'+ copy(Text,1,2));
SrcPos := 3;
try
repeat
SrcAsc:=StrToInt('$'+ copy(Text,SrcPos,2));
if KeyPos < KeyLen
then KeyPos := KeyPos + 1
else KeyPos := 1;
TmpSrcAsc := SrcAsc xor Ord(Klic[KeyPos]);
if TmpSrcAsc <= offset
then TmpSrcAsc := 255 + TmpSrcAsc - offset
else TmpSrcAsc := TmpSrcAsc - offset;
Dest := Dest + Chr(TmpSrcAsc);
Offset := SrcAsc;
SrcPos := SrcPos + 2;
until SrcPos >= Length(Text);
except
Dest := 'error';
end;
Result := Dest;
except
Result := 'error';
end;
end;Oprava zaheslovanych tabulek
[*] tomas.mazurek(zv)vitkovice(tec)cz - 9.2.2001 10:35:53
Hello,
>O program *.exe ani tak nemam zajem, spis o nakopnuti, jak donutit
>tutil-u aby pozadoval heslo u zaheslovane tabulky, aby rebuild tabulky
>byl v poradku a pokud heslo nebude mit, at ohlasi chybu, "neni heslo"
>a nic nedela.
Vsak jsem taky nemel na mysli jen EXE, ale i zdrojove kody v Delphi.
Z tech uz samozrejme bude patrne, jak otevirat a obnovovat tabulky s
hesly... Neni to nijak velke a muzes to pripadne zabudovat do svych
programu.
TM
Parametry do DLL
[*] brant(zv)dcomm(tec)cz - 9.2.2001 11:47:52
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 vsem,
delam form, ktery se stara o tisk dat z databaze (nepouzivam QR ani nic
podobneho). Do formu predavam pointery na dve TTable, se kterymi se pracuje.
Protoze si zakaznici vymysleji vsechny mozne ptakoviny, chcel bych udelat
ten form do DLL, coz umim a pak je jednoduche zakladni DLL u zakaznika
vymenit za vylepsenou. Ale nevim, jestli lze do DLL predavat ty dva
pointery. Mohou to byt typy TTable nebo se musi pretypovat na typ Pointer a
v DLL zase pretypovat zpatky na TTable? Mate s tim nekdo zkusenost?
Diky predem
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7 MS SQL7 a spojeni blobu v Stored Proc
[*] Ren� Otisk - 9.2.2001 12:10:25
Hi,
MS SQL7, ODBCe, D3 C/S
Mam nasledujici problemek. Potrebuji v ulozene procedure ulozit do blobu
zmeny a ty promitnou do jineho blobu. Nasleduje ona inkriminovana procedurka
s tim mistem. Vi nekdo jak na to?
CREATE PROCEDURE UPDM2
(zv)MID INTEGER, (zv)DATUM DATETIME, (zv)BLOBON TEXT, (zv)VYSLEDEK INTEGER OUTPUT
AS
DECLARE (zv)DID INTEGER
BEGIN TRAN
SELECT DISTINCT (zv)DID = DID FROM M2 WHERE DATUM = (zv)DATUM
AND MID = (zv)MID
IF (zv)DID IS NULL
INSERT INTO M2 (DATUM, BLOBON) VALUES ((zv)DATUM, (zv)BLOBON)
ELSE
a tady bych potreboval neco jako
UPDATE M2 SET BLOBON = BLOBON + (zv)BLOBON WHERE DID = (zv)DID
IF (zv)(zv)ERROR <> 0
BEGIN
ROLLBACK
RETURN((zv)(zv)ERROR)
END
SELECT (zv)VYSLEDEK = (zv)(zv)IDENTITY
COMMIT
Diky
Sroub
Konfera pre CBuilder
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.2.2001 12:26:43
Ahoj,
priatel programuje pod CBuilder a paci sa mu nasa konferencia. Vie niekto o
podobnej konferencii so zameranim na CBuilder?
Pavol Stolc
pstolc(zv)sc.sknet.sk
Zpomalov�n� �asu na PC
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.2.2001 12:45:48
M�j probl�m se t�k� zpomalov�n� �asu na PC.
Program b��� u klienta 24h/denn� 7dn�/t�den.
St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
cca 10min/den, ale je to r�zn�. R�zn� jsou i
PC na kter�ch to b���, ale vesm�s P400 a v��e.
M�j program m��e b��et i ve v�ce instanc�ch najednou,
vyu��v� TTimer a kdy� b��� m��e ve �pi�ce zabrat
i 100% CPU (ov�em m��eno Microsoft�mi m���ky) na
dobu ne v�ce ne� cca 30sec. v intervalu �ekn�me co
10min. Program nevyu��v� ��dn� nedokumentovan� funkce,
nepracuje s p�eru�en�mi, nic takov�ho. Jen ten TTimer.
V jednom p��pad� pomohla v�m�na HW, ostatn� o tom
necht�j� moc sly�et.
M�te n�kdo podobnou zku�enost?
Martin
Zjistovani souboru na W2000
[*] Pavel Chaloupka <chaloupka.pavel(zv)worldonline(tec)cz> - 9.2.2001 12:56:58
Zdar,
delam sw jehoz soucasti je prochazeni filesystemu a zjistovani nazvu souboru
a jejich zapis do databaze. Na W200 En Pro mi program chodi bez problemu. Na
W2000 En Server mi funkce pro prohledavani vraci nazev bez diakritiky.
Projevuje se to u souboru kde je r s hackem a c s hackem. Pouzival jsem
konstrukci FindFirst - FindNext - FindClose. Po zjisteni problemu jsem
presel na FindFirstFileW - FindNextFileW - FindClose. Bohuzel se stejnym
vysledkem. Je zajimave ze presunu-li problemove soubory na moje PC s W2000
En Pro je vse OK, nazvy souboru se mi vrati tak jak jsou na disku. Na W2000
En Server mi obe funkce vraci nazev souboru bez diakritiky. Nevite nekdo co
s tim?
Pavel Chaloupka
E-Mail: pavel(zv)chaloupka(tec)cz
WWW: www.chaloupka(tec)cz
V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)Scanner, TWAIN a automatizace skenov�n�
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 9.2.2001 13:09:44
tady najdes komponentu na skenovani pres twain
http://tscanner.sourceforge.net
----- Original Message -----
From: "Tomas Bradle" <t.bradle(zv)pvtnet(tec)cz>
To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 11:07 AM
Subject: Scanner, TWAIN a automatizace skenov�n�
> Zdravim vsechny,
>
> potreboval bych zautomatizovat skenov�n� pres TWAIN. Mam predstavu, ze
bych
> nastavil dopredu parametry skenovani a potom by obsluha uz jenom zalozila
> predlohu do scanneru a stiskla butonek <seskenovat>. Nevite nekdo jestli
to
> vubec jde, eventuelne jak na to, nejake informacni zdroje apod. ???
>
> diky predem
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
>
>otevreni prohlizece
[*] azeleny(zv)csas(tec)cz - 9.2.2001 13:33:15
DDV,
> uses ShellAPI (mozna je to jina, nejsem si jisty, viz. help)
>
> if ShellExecute(Application.Handle, 'open',
> PCHar('C:\soubor.htm'),'', '',
> sw_showMaximized) < 32 then Application.MessageBox('Internet
....
Pekne , mam ale dotaz, potreboval bych otevrit nikoliv "soubor.htm", ale
"soubor.htm#Import" s cimz jsem nepochodil, neprisel nekdo jak na to?
(Zatim to delam otrocky tak, ze mnam pro kazdy pozadovany "A NAME" tag
udelany samostany soubor, ktery presmeruje prohlizec na spravne misto, ale
je to ponekud pres ruku.)
Diky a.pos�l�n� mailu
[*] Vaclav Krejci <krejciv(zv)ssakhk(tec)cz> - 9.2.2001 13:36:07
Zdravim,
cht�l sem se jenom zeptat, jestli n�kdo
n�hodou nev�t� o n�jak� mail komponent�
nebo n�vodu, jde mi pouze o to, poslat maila
na ur�itou adresu + �ist� text a p�edm�t. D�k
Scanner, TWAIN a automatizace skenov�
[*] azeleny(zv)csas(tec)cz - 9.2.2001 13:46:38
DDV,
kdesi jsem nasel neco, co obsahuje nasledujici hlavicku
{*******************************************************************
Delphi Scanner Support Framework
Copyright (C) 1999 by Uli Tessel
********************************************************************
Version 0.0:
Just some tests, not the real framework
(only shows that native scanning from delphi works)
********************************************************************}
Bohuzel nevim odkud to mam stazene...
a jeste tam je soubor twain.par obsahujic nasledujici text - to dava nadeji
na JEDI....
{******************************************************************}
{ }
{ Borland Delphi Runtime Library }
{ Twain interface unit }
{ }
{ Portions created by TWAIN Working Group, }
{ see Copyright statement from original file below }
{ }
{ The original file is: twain.h, released Januar 1999. }
{ The original Pascal code is: twain.pas, released 20. Dez 1999. }
{ The initial developer of the Pascal code is: Uli Tessel (UT) }
{ (UliTessel(zv)swol.de) with help of Matthias Thoma (MT) }
{ (ma.thoma(zv)gmx.de) }
{ }
{ Obtained through: }
{ Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project }
{ JEDI home page, located at http://delphi-jedi.org }
{ }
{ The contents of this file are used with permission, subject to }
{ the Mozilla Public License Version 1.1 (the "License"); you may }
{ not use this file except in compliance with the License. You may }
{ obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an }
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or }
{ implied. See the License for the specific language governing }
{ rights and limitations under the License. }
{ }
{******************************************************************}
a.Zpomalov�n� �asu na PC
[*] Krska Vit <v_krska(zv)del(tec)cz> - 9.2.2001 13:56:26
ahoj,
beh aplikace by na cas nemela mit vliv, jestli ho sama nenastavuje. na
zakladni desce pc je totiz IO, ktery je o aktualni cas stara a funguje i po
vypnuti na baterku. problem je nespis v tomto obvodu, ktery ma integrovany
krystal a ten je nachylny na teplotu. proste se rozladuje a tim se taktovaci
frekvence pro cas muze zrychlit nebo spomalit.
Ing. V�t Kr�ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin Nedopil
Sent: Friday, February 09, 2001 12:46 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Zpomalov�n� �asu na PC
M�j probl�m se t�k� zpomalov�n� �asu na PC.
Program b��� u klienta 24h/denn� 7dn�/t�den.
St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
cca 10min/den, ale je to r�zn�. R�zn� jsou i
PC na kter�ch to b���, ale vesm�s P400 a v��e.
M�j program m��e b��et i ve v�ce instanc�ch najednou,
vyu��v� TTimer a kdy� b��� m��e ve �pi�ce zabrat
i 100% CPU (ov�em m��eno Microsoft�mi m���ky) na
dobu ne v�ce ne� cca 30sec. v intervalu �ekn�me co
10min. Program nevyu��v� ��dn� nedokumentovan� funkce,
nepracuje s p�eru�en�mi, nic takov�ho. Jen ten TTimer.
V jednom p��pad� pomohla v�m�na HW, ostatn� o tom
necht�j� moc sly�et.
M�te n�kdo podobnou zku�enost?
Martin
WinInet.Dll
[*] rado(zv)nnsk.sk - 9.2.2001 14:02:21
http://www.delphi-jedi.org/Jedi:APILIBRARY:30964
HTH,
bego
Parametry do DLL
[*] rado(zv)nnsk.sk - 9.2.2001 14:16:41
> Mohou to byt typy TTable nebo se musi pretypovat
> na typ Pointer a v DLL zase pretypovat zpatky na
> TTable? Mate s tim nekdo zkusenost?
Susil by som radsej runtime packages, nativnejsiu
formu DLL pre Delphi.
Postup zhruba:
1. Vytvorim novu applikacia, v Project|Options...
nastavim Build with runtime packages na On.
2. Vytvorim novu package, v nej implementujem
dialog box a vsetky ostatne veci. Povedzme, ze
vytvorim TTableBrowser dialog, ktory bude mat
property typu TDataset (lepsie by asi bolo
TDatasource). Skompilujem, nainstalujem.
3. V povodnej aplikacii pridam novovytvorenu
package do Runtime Packages zoznamu (tiez v
Project|Options..., pridam unit z package
do uses atd. Skompilujem. Bezi :-)
4. Teraz mozem modifikovat package, menit
chovanie dialogu, pracovat s tabulkami ako chcem.
Pokial nezmenim definicie existujucich properties
TTableBrowser dialogu, vsetko je OK (pridavat nove
properties je OK).
Staci prekompilovat package podla potreby.
HTH,
bego
OT: Re: Win ME versus 2000
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 9.2.2001 14:17:56
On 8 Feb 2001, at 20:36, Hurricane wrote:
> No, ja jsem to nemyslel v kontextu s programovanim, ale obecne pri
> jakekoliv praci. To, ze si nekdy otevru OutlookExpress a 8 MSIE a jede
> to (Win98SE) a jindy mi spadne prvni explorer co spustim, nepovazuji
> za jiti az na krajnost systemu.
Tak v tomto pripade, kdyz se mi W98 poroucely i ze zcela
banalnich duvodu, jsem je vyhodil a koupil si W2000. A mam ted
klidne spani. Nejdrive jsem jel dualne W98 / W2000 RC2, a
postupne jsem stehoval veskerou cinnost na W2000, takze na
W98 zustalo jen ucetnictvi, a to jeste jen proto, ze RC2
nepodporovala mou tiskarnu. Nyni mam pocitac W98 clean.
BTW - provoz Delphi na W98 je ve srovnani s W2000 primo
katastrofalni.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zpomalov�n� �asu na PC
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.2.2001 14:24:05
Nu, tohle presne jsem tvrdil taky. Vlastni obvod, vlastni krystal, nezavisle
napajeni nicmene cas se zpomaluje :-)
Martin
----- Original Message -----
beh aplikace by na cas nemela mit vliv, jestli ho sama nenastavuje. na
zakladni desce pc je totiz IO, ktery je o aktualni cas stara a funguje i po
vypnuti na baterku. problem je nespis v tomto obvodu, ktery ma integrovany
krystal a ten je nachylny na teplotu. proste se rozladuje a tim se taktovaci
frekvence pro cas muze zrychlit nebo spomalit.
Ing. V�t Kr�ka
vit.krska(zv)del(tec)cz
-----Original Message-----
M�j probl�m se t�k� zpomalov�n� �asu na PC.
Program b��� u klienta 24h/denn� 7dn�/t�den.
St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
cca 10min/den, ale je to r�zn�. R�zn� jsou i
PC na kter�ch to b���, ale vesm�s P400 a v��e.
M�j program m��e b��et i ve v�ce instanc�ch najednou,
vyu��v� TTimer a kdy� b��� m��e ve �pi�ce zabrat
i 100% CPU (ov�em m��eno Microsoft�mi m���ky) na
dobu ne v�ce ne� cca 30sec. v intervalu �ekn�me co
10min. Program nevyu��v� ��dn� nedokumentovan� funkce,
nepracuje s p�eru�en�mi, nic takov�ho. Jen ten TTimer.
V jednom p��pad� pomohla v�m�na HW, ostatn� o tom
necht�j� moc sly�et.
M�te n�kdo podobnou zku�enost?
Martin
Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:26:28
From: "Martin Nedopil" <nedopil(zv)eskon(tec)cz>
> M�j probl�m se t�k� zpomalov�n� �asu na PC.
> Program b��� u klienta 24h/denn� 7dn�/t�den.
> St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
> cca 10min/den, ale je to r�zn�. R�zn� jsou i
> PC na kter�ch to b���, ale vesm�s P400 a v��e.
Ahoj,
Resenim muze byt synchronizace z nejakeho casoveho serveru. Pokud to bezi na
NT, tak se podivej na API funkci SetSystemTimeAdjustment, coz by mohlo pomoct.
Petr Vones, amatersky programator
Zjistovani souboru na W2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:28:12
From: "Pavel Chaloupka" <chaloupka.pavel(zv)worldonline(tec)cz>
> delam sw jehoz soucasti je prochazeni filesystemu a zjistovani nazvu souboru
> a jejich zapis do databaze. Na W200 En Pro mi program chodi bez problemu. Na
> W2000 En Server mi funkce pro prohledavani vraci nazev bez diakritiky.
Ahoj,
mas na obou systemech nastaveno shodne system locale ?
Petr Vones, amatersky programator
Zdrojov� k�dy
[*] Libor Jel�nek <ljelinek(zv)supreme(tec)cz> - 9.2.2001 14:29:29
M��ete mi, pros�m, n�kdo d�t n�jak� tip na str�nku se zdroj�ky pro Delphi?
Mysl�m n�jakou knihovnu uk�zkov�ch zdrojov�ch k�du program� a komponent,
kter� mi poslou�� jako u�ebn� materi�l.
S pozdravem
Libor Jel�nek
ICQ: 74575604
Parametry do DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:30:21
From: <brant(zv)dcomm(tec)cz>
> delam form, ktery se stara o tisk dat z databaze (nepouzivam QR ani nic
podobneho). Do formu predavam pointery na dve TTable, se kterymi se pracuje.
Protoze si zakaznici vymysleji vsechny mozne ptakoviny, chcel bych udelat
ten form do DLL, coz umim a pak je jednoduche zakladni DLL u zakaznika
vymenit za vylepsenou. Ale nevim, jestli lze do DLL predavat ty dva
pointery. Mohou to byt typy TTable nebo se musi pretypovat na typ Pointer a
v DLL zase pretypovat zpatky na TTable? Mate s tim nekdo zkusenost?
Ahoj,
pokud chces predavat Delphi tridy mezi aplikaci a DLL, tak musis jak EXE tak
DLL prelozit s balicky. Ohledne plugin aplikaci lze taky pouzit dynamicky
nahravane balicky misto DLL, viz clanek:
http://www.obsof.com/delphi_tips/DL613.html
Petr Vones, amatersky programator
WinInet.Dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:31:45
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> Nevite kde by se dal sehnat popis funkci pro WinInet.Dll, soucasti Delphi je
Ahoj,
na MSDN (http://msdn.microsoft.com)
> sice nejaky pseudo-hlavickovy unit, ale bez kloudneho popisu nemam sanci.
Co je na nem 'pseudo' ?
Petr Vones, amatersky programator
DCU to PAS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:33:20
From: "�u#ka R�bert" <spravca(zv)lumen.sk>
> Chcel by som sa opytat ci neexistuje nejaky nastroj na konverziu DCU suboru
> na PAS. Strasne surne to potrebujem lebo mam komponentu v bpl subore ale ked
Ahoj,
neexistuje. Jedine reseni (na ktere je asi pozde) je zalohovat, zalohovat,
zalohovat ...
Petr Vones, amatersky programator
Jak ulozit data
[*] rado(zv)nnsk.sk - 9.2.2001 14:37:12
> Dejme tomu ze mam data ulozeny treba v tomdle. Pouzivam totiz
> komponentu
> VirtualStringTree a tam jsou udaje ukladany do...
Z otazky celkom presne nevidno, co treba ukladat.
Ak je to napriklad potomok TComponent,
(predpokladam ze VirtualStringTree je), mozno pouzit
WriteComponentResFile / ReadComponentResFile par.
Pri classoch ktore nie su potomkom TComponent treba
ukladanie napisat, je to trosku zlozitejsie.
Povedzme ze mam formular a na nom komponent
typu TVirtualStringTree, ktory sa vola VirtualStringTree.
napr.
procedure TForm1.SaveData;
begin
with SaveDialog do
begin
if Execute then
begin
Screen.Cursor := crHourGlass;
try
// Try to write file
WriteComponentResFile(FileName, VirtualStringTree);
finally
Screen.Cursor := crDefault;
end;
end;
end;
end;
procedure TForm1.LoadData;
begin
RegisterClasses([TVirtualStringTree]);
with OpenDialog do
begin
if Execute then
begin
Screen.Cursor := crHourGlass;
try
// Read the stream
ReadComponentResFile(AFileName, VirtualStringTree);
finally
Screen.Cursor := crDefault;
end;
end;
end;
end;
Format je standardny Windows Resource File. Viac je v helpe.
HTH,
bego
pos�l�n� mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:37:02
From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
> nebo n�vodu, jde mi pouze o to, poslat maila
> na ur�itou adresu + �ist� text a p�edm�t. D�k
Ahoj,
otazka zni jak. Jestli pouze pomoci SMTP nebo prostrednictvim vychoziho
postovniho klienta.
Petr Vones, amatersky programator
Datab�ze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 14:45:12
From: "Jaroslav #�hal" <cihal(zv)mppraha(tec)cz>
> D�lal jsem datab�zi v MS Access jen�e probl�m byl v tom, �e mi nedovol�
> vytvo�it v jedn� tabulce v�c jak 255 sloupc�.
> 1. Kolik zvl�dne datab�ze v Delphi sloupc� a m� v�bec n�jak� omezen�?
Ahoj,
Delphi neni samo o sobe zadna databaze. Umoznuje vyuzivat ruzne databazove
servery, popripade i pristupovat k souborovym databazim, ale to je dnes spise
historicka zalezitost.
> 2. D� se k n� potom p�istupovat pomoc� ASP?
Pokud si vyberes databazi na kterou se lze pripojit pres ADO tak ano.
> 3. Co v#echno pot�ebuji k tvorb� plnohodnotn� datab�ze.
Staci si vybrat nektery z SQL serveru (InterBase, MS SQL, Oracle ...)
Petr Vones, amatersky programator
Datab�ze
[*] rado(zv)nnsk.sk - 9.2.2001 15:01:58
Tiez sa pripajam k tym, ktory potrebuju na odpoved
viac informacii, o co ide.
Tabulka, ktora ma 255 (alebo viac) na 99.9% nie je
ani v 1. normalovej forme a odporucam dobre si
rozmysliet, ci sa vobec pustat do implementacie.
Takze odporucam porozmyslat nad celkovym dizajnom,
precitat si nieco o normalizacii.
Ako hovori jeden moj kolega, 5. normalova forma
je dobry zaciatok :-).
> 1. Kolik zvl�dne datab�ze v Delphi sloupc� a m� v�bec n�jak� omezen�?
Nepoznam databazu, ktora by taketo obmedzenie nemala
(ani teoreticky).
> 2. D� se k n� potom p�istupovat pomoc� ASP?
Pokial k nej existuje ODBC, OLE DB, JDBC driver,
tak ano.
> 3. Co v#echno pot�ebuji k tvorb� plnohodnotn� datab�ze.
Databazy sa (zjednodusene) delia na 2 zakladne typy:
- flat-file: Paradox, dBase, Access
- SQL: Oracle, InterBase, MSSQL, Sybase
Predpokladam ze plnohodnotna databaza = SQL databaza.
Potrebujes:
1. Server (kupit alebo stiahnut z internetu)
2. Klientov (detto - pri instalacii obvykle nainstaluju
aj potrebne drivery)
Potom uz staci len to nainstalovat, nakonfigurovat a
rozchodit. :-)
HTH,
bego
Borland Pascal na Windows 98
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 9.2.2001 15:04:33
To je jako s USB tiskarnou. Taky ji jako LPT nejde zachytit.
Michal Kus
>
> No jo, ale pcAnywhere si prida do Windows (neznamy mistni
> port) pcaw.prn a
> jak donutit dos aplikaci k tisku na tenhle port?
>
> Michal
>
> ----- P�vodn� zpr�va -----
> Od: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 8. �nora 2001 1:17
> P�edm�t: Re: Borland Pascal na Windows 98
>
>
> | No, verim tomu ze jste to uz zkousel, ale Windowsy umeji
> zachytavat LPT
> pro
> | DOS aplikace..
> | To nevyhovuje?
> |
> | Zdenek
> |
> | ----- Original Message -----
> | From: "WEB ATLAS - SUKY" <suky(zv)atlas(tec)cz>
> | To: <delphi-l(zv)fwd(tec)cz>
> | Sent: Wednesday, February 07, 2001 10:32 PM
> | Subject: Re: Borland Pascal na Windows 98
> |
> |
> | > O aplikacich v DOSU se mi zdaji nocni mury. Mame tu v
> praci IS v DOSU a
> | ted
> | > resim vzdaleny pristup pomoci pcAnywhere 9.2, ovsem jak
> donutit DOSOVOU
> | > aplikaci k tisku na jinej port nez LPT. Pisu ted programek na
> zachycovani
> | > tisku a preposilani na port Windows. Nejradeji bych uz
> Dosove aplikace
> ani
> | > nevidel, to ovsem ve spolecnosti kde delam asi nehrozi :(
> | >
> | > Michal
> | >
> | >
> | > ----- P�vodn� zpr�va -----
> | > Od: "Jiri Hostinsky" <hostinsky(zv)teska(tec)cz>
> | > Komu: <delphi-l(zv)fwd(tec)cz>
> | > Odesl�no: 7. �nora 2001 16:23
> | > P�edm�t: OT : Borland Pascal na Windows 98
> | >
> | >
> | > | Omlouvam za OT.
> | > |
> | > | Delfin je pekna vec, ale tu a tam je treba udrzovat
> stare projekty v
> | > Pascalu
> | > | (vsichni jsme tak zacinali). Ted se mi stala neprijemna vec :
> | > | na masine s Windows 98 SE mi nejde spustit Pascal,
> pripadne se spusti,
> | ale
> | > | pri vypinani shodi system, nebo se vrati do DOSoveho
> manazera (M602,
> | > Volkov)
> | > | a zmrzne to az ted. Nepomaha nastartovat masinu
> rozskokem v CONFIGu
> (tam
> | > | prave nejde ani pustit, udela restart). Pritom na jinem
> stroji vsechno
> | > chodi
> | > | normalne.
> | > |
> | > | Nevite nekdo, co s tim ?
> | > |
> | > | Jiri Hostinsky
> | > |
> | > |
> | >
> | >
> |
> |
>
>
pos�l�n� mailu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 9.2.2001 15:18:19
jak sjem tak pochopil z notoricky opakujicich se dotazu a odpovedi, tak
bych rekl:
1. Pokud pres mailoveho klienmta, pak JEDI
2. pokud primo pres SMTP, pak pres moji Synapsi. :-)
> From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
> > nebo n�vodu, jde mi pouze o to, poslat maila
> > na ur�itou adresu + �ist� text a p�edm�t. D�k
>
> Ahoj,
>
> otazka zni jak. Jestli pouze pomoci SMTP nebo prostrednictvim
> vychoziho postovniho klienta.
>
> Petr Vones, amatersky programator
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Zpomalov�n� �asu na PC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2001 15:27:39
> ahoj,
> beh aplikace by na cas nemela mit vliv, jestli ho sama nenastavuje. na
> zakladni desce pc je totiz IO, ktery je o aktualni cas stara a funguje i
po
> vypnuti na baterku. problem je nespis v tomto obvodu, ktery ma
integrovany
> krystal a ten je nachylny na teplotu. proste se rozladuje a tim se
taktovaci
> frekvence pro cas muze zrychlit nebo spomalit.
Vtip je ale v tom, ze RTC obvod na desc, ktery udrzuje cas je tam opravdu
jen kvuli tomu aby cas bezel po vypnuti PC. Pokud PC bezi pak jsou hodiny
vytvareny softwarove pomoci periodicky generovaneho interruptu od casovace
(OS inicializuje casovac, nacte hodiny z CMOSky a pak k tomuto udaji pricita
nejake casove kvantum pri kazdem vyskytu interruptu od casovace). Cili za
chodu systemu se mohou hodiny zpozdovat jen za techto podminek a vadny RTC
ma vliv na chod hodin pouze pokud je PC vypnute:
- OS neni schopen obslouzit vsechn interrupty od casovace. Neco (nejaky
driver) zakazuje preruseni na prilis dlouhou dobu, takze se diky tomu nejake
preruseni ztrati, nejaka obsluha preruseni ztravi prilis dlouhou dobu
obsluhou interruptu (cili se jine opakujici se interrupty ztrati)
- neco prepisuje zamerne systemovy cas
- blbje inicializovany casovac (rozdil by byl asi vetsi nez 10 minut za
24h)
- nestabilni casovac
D. Toman
Zpomalov�n� �asu na PC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2001 15:29:22
----- Original Message -----
From: "Martin Nedopil" <nedopil(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:24 PM
Subject: Re: Zpomalov�n� �asu na PC
> Nu, tohle presne jsem tvrdil taky. Vlastni obvod, vlastni krystal,
nezavisle
> napajeni nicmene cas se zpomaluje :-)
>
RTC nema vliv na cas pokud PC bezi (DOS, Windows).
Zajimave by bylo za chodu nechat vypsat cas opravdu primo z CMOSky (zrejme
by mel byt bez zpozdeni)
D. Toman
DCU to PAS
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2001 15:31:48
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:33 PM
Subject: Re: DCU to PAS
> From: "�u#ka R�bert" <spravca(zv)lumen.sk>
> > Chcel by som sa opytat ci neexistuje nejaky nastroj na konverziu DCU
suboru
> > na PAS. Strasne surne to potrebujem lebo mam komponentu v bpl subore ale
ked
>
> Ahoj,
>
> neexistuje. Jedine reseni (na ktere je asi pozde) je zalohovat, zalohovat,
> zalohovat ...
pokud doslo ke smazani souboru je mozne se pokusit jej obnovit (nezustal-li
napriklad primo v kosi) nejakou kloudnou utilitou (Norton, NT Recover, On
track easy recover,...). Pokud se na ten disk moc (nejlepe) vubec od smazani
nezapisovalo je dost velika sance, ze se alespon podstatne kusy podari
zachranit..
D. Toman
pos�l�n� mailu
[*] Vaclav Krejci <krejciv(zv)ssakhk(tec)cz> - 9.2.2001 15:32:19
pomoci smtp, melo by to asi chodit s
komponentou nmsmtp, ale hlasi me
to chybu, ve smyslu ze se nenasel host
(Host Lookup Failed) i kdyz je zadanej
spravne (aspon myslim :)
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:37 PM
Subject: Re: pos�l�n� mailu
> From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
> > nebo n�vodu, jde mi pouze o to, poslat maila
> > na ur�itou adresu + �ist� text a p�edm�t. D�k
>
> Ahoj,
>
> otazka zni jak. Jestli pouze pomoci SMTP nebo prostrednictvim vychoziho
> postovniho klienta.
>
> Petr Vones, amatersky programator
>Zjistovani souboru na W2000
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2001 15:39:43
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:28 PM
Subject: Re: Zjistovani souboru na W2000
> From: "Pavel Chaloupka" <chaloupka.pavel(zv)worldonline(tec)cz>
> > delam sw jehoz soucasti je prochazeni filesystemu a zjistovani nazvu
souboru
> > a jejich zapis do databaze. Na W200 En Pro mi program chodi bez
problemu. Na
> > W2000 En Server mi funkce pro prohledavani vraci nazev bez diakritiky.
>
> Ahoj,
>
> mas na obou systemech nastaveno shodne system locale ?
>
Nikde v helpu jsem nenasel zminku o tom, ze by FindFirstFile vracel nejak
modifikovane jmeno souboru. To by preci byla blbost - pak bych ten soubor
nemohl vubec pouzit. Na druhou stranu uz jsem videl selhat napriklad
WindowsCommandera v podobne situaci - soubor jehoz jmeno obsahovalo nejake
paznaky nebyl schopen smazat (ale to mohlo byt zpusobene nejakou konverzi
uvnitr Commandera...)
D. Toman
Format casu v IB6
[*] rado(zv)nnsk.sk - 9.2.2001 15:40:55
> mam na IB6 serveru tabulku obsahujici sloupec typu TIME a
> potreboval bych do ni ulozit hodnotu aktualniho casu serveru
> snizenou o 10 minut. Zjistil jsem, ze tomu odpovida hodnota
> current_time - 600. Pokud se tedy podivam na hodnotu typu time
> jako na cele cislo, co mi hodnota hoto cisla rika?
Pokial viem, tak pocet sekund od polnoci.
Napr.
select current_time + 3600 from rdb$database
vrati current_time + 1 hodina
select current_time + 24 * 3600 from rdb$database
vrati to iste, co
select current_time from rdb$database
HTH,
bego
Zpomalov�n� �asu na PC
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.2.2001 15:53:31
> Vtip je ale v tom, ze RTC obvod na desc, ktery udrzuje cas je tam opravdu
> jen kvuli tomu aby cas bezel po vypnuti PC. Pokud PC bezi pak jsou hodiny
> vytvareny softwarove pomoci periodicky generovaneho interruptu od casovace
> (OS inicializuje casovac, nacte hodiny z CMOSky a pak k tomuto udaji
pricita
> nejake casove kvantum pri kazdem vyskytu interruptu od casovace). Cili za
> chodu systemu se mohou hodiny zpozdovat jen za techto podminek a vadny RTC
> ma vliv na chod hodin pouze pokud je PC vypnute:
To je asi, krucinal pravda...
> - OS neni schopen obslouzit vsechn interrupty od casovace. Neco (nejaky
> driver) zakazuje preruseni na prilis dlouhou dobu, takze se diky tomu
nejake
> preruseni ztrati, nejaka obsluha preruseni ztravi prilis dlouhou dobu
> obsluhou interruptu (cili se jine opakujici se interrupty ztrati)
Program pracuje s TCP (oboji ovsem pomoci standartnich winsock fci).
Tzn. ovladac sitovky?
> - neco prepisuje zamerne systemovy cas
Ne to nedelam, urcite...
> - blbje inicializovany casovac (rozdil by byl asi vetsi nez 10 minut za
> 24h)
Ano, byl rozdil cca 25min za 15h, extrem?
> - nestabilni casovac
A jak ho stabilizovat? Existuje neco, co umi nabrat periodicky cas z
CMOS a podle ni synchronizovat PC?
A proc to Windowsy nedelaji periodicky samy?
Martin
pos�l�n� mailu
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 9.2.2001 15:53:49
Mne prijde celkem jednoduchy SAKemail. Jedinou nevyhodou je, ze sem doposud neprisel na to, jak u nej poslat cestinu.
http://sak.org.ar
Mimoto mas neco primo v Delphinach.
Postu posles nasledovne:
na form das komponenty SakMsg (vlastni mail) a SakSMTP (odesilani mailu)
Posilani vypada:
Try
SakMsg1 := TSakMsg.Create(Self);
With SakMsg1 do
begin
// vyplneni maila:
// kodovani
CharSet := 'ISO 8859-2'; // cestina, bohuzel to nema vliv
textEncoding := teBase64; // opet by melo ale nema vliv na cestinu
// odesilatel
UserName := 'Adam Feistner';
From := 'feistna(zv)volny(tec)cz';
// prijemce
SendTo := 'adresat(zv)nekde(tec)cz';
CC := 'adresat2(zv)nekde(tec)cz, adresat3(zv)nekde(tec)cz'; // kopie
// BCC := 'adresat2(zv)nekde(tec)cz, adresat3(zv)nekde(tec)cz'; // skryta kopie
// co a jak odesilas
Priority := prHigh; // prNormal, prLow, prHigest, prLowest
Subject := 'predmet maila';
Text.Assign(Memo1.Lines); // v Memo1 mas text maila...
// AttachedFiles.Add(FullFileName); - kdybys chtel neco prikladat
end;
With SakSMTP1 do
begin
// poslani maila:
Host := 'smtp.volny(tec)cz';
Connect;
If not SMTPError then
begin
SendTheMessage(SakMsg1); // odeslani
Disconnect;
end else MessageDlg('Neslo se pripojit, zkontrolujte stav sveho pripojeni...',mtWarning,[mbOK],0);
end;
Finally
SakMsg1.Free;
End;
Take muzes zobrazovat stav odesilani (pres proceduru SnedProgress - najdes ji u SMTP komponenty),
a pred a po odeslani muzes spustit nejakou proceduru (v udalosti BeforeSend a AfterSend - taktez u SMTP). S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
Subject: pos�l�n� mailu
> Zdravim,
>
> cht�l sem se jenom zeptat, jestli n�kdo
> n�hodou nev�t� o n�jak� mail komponent�
> nebo n�vodu, jde mi pouze o to, poslat maila
> na ur�itou adresu + �ist� text a p�edm�t. D�k
>
>Zjistovani souboru na W2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 15:58:04
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> nemohl vubec pouzit. Na druhou stranu uz jsem videl selhat napriklad
> WindowsCommandera v podobne situaci - soubor jehoz jmeno obsahovalo nejake
> paznaky nebyl schopen smazat (ale to mohlo byt zpusobene nejakou konverzi
> uvnitr Commandera...)
Ahoj,
tohle strasne rad slysim ;-)) (viz vecerni neformalni diskuze v Belohradu)
Petr Vones, amatersky programator
Zjistovani souboru na W2000
[*] Lukas.Gallina(zv)cz.danzas(tec)com - 9.2.2001 16:02:59
Ahoj,
Nejsem si jist zda by to mohlo souviset, ale kdo vi? Mas nainstalovano na
tom serveru podporu cestiny a narodniho prostredi? Vim ze kdyz jsem to nemel
na NT 4 serveru zlobilo mi to prave v souvislosti se soubory na disku,
konkretne se soubory s c s hackem a r s hackem. Mohl jsem je otevrit,
prejmenovat ale nemohl napr presunout v Salamandrovi, v Pruzkumnikovi
ano.... ta cestina to vyresila.
S pozdravem
Luk�# Gallina
DANZAS a.s. (fili�lka Brno)
ITOS
lukas.gallina(zv)cz.danzas.com
tel.: +420 604 226 812, +420 (5) 47 135 403
-----Original Message-----
From: Pavel Chaloupka [mailto:chaloupka.pavel(zv)worldonline(tec)cz]
Sent: Friday, February 09, 2001 12:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Zjistovani souboru na W2000
Zdar,
delam sw jehoz soucasti je prochazeni filesystemu a zjistovani nazvu souboru
a jejich zapis do databaze. Na W200 En Pro mi program chodi bez problemu. Na
W2000 En Server mi funkce pro prohledavani vraci nazev bez diakritiky.
Projevuje se to u souboru kde je r s hackem a c s hackem. Pouzival jsem
konstrukci FindFirst - FindNext - FindClose. Po zjisteni problemu jsem
presel na FindFirstFileW - FindNextFileW - FindClose. Bohuzel se stejnym
vysledkem. Je zajimave ze presunu-li problemove soubory na moje PC s W2000
En Pro je vse OK, nazvy souboru se mi vrati tak jak jsou na disku. Na W2000
En Server mi obe funkce vraci nazev souboru bez diakritiky. Nevite nekdo co
s tim?
Pavel Chaloupka
E-Mail: pavel(zv)chaloupka(tec)cz
WWW: www.chaloupka(tec)cz
V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 16:08:42
From: "Martin Nedopil" <nedopil(zv)eskon(tec)cz>
> A jak ho stabilizovat? Existuje neco, co umi nabrat periodicky cas z
> CMOS a podle ni synchronizovat PC?
> A proc to Windowsy nedelaji periodicky samy?
Ahoj,
podivej se na tu API funkci co jsem posilal v minule odpovedi.
Petr Vones, amatersky programator
Delphi a .dgn
[*] Lubo Fule <fule(zv)sct.sk> - 9.2.2001 16:08:17
Hi,
nepoznate nejake komponenty alebo kniznice, ktore by vedeli pracovat s
vektorovym formatom DGN (MicroStation)?
L.
pohyb TImage po Formu bez problikavani
[*] Libor Kl��n�k - 9.2.2001 16:20:02
Dobry den
Pokud zobrazim TImage v mem konkretnim pripade o velikosti 200 x 77
pixelu a posouvam s nim plynule po jednom pixelu po formu v jakemkoliv smeru
pri prekreslovani je sice patrny plynuly pohyb obrazku, ale dochazi k
problikavani. Jak se da tomuto problikavani zamezit. Popripade da se nejak
posouvanim strefit do okamziku kdy neprobiha prekreslovani. Zajima me
jakykoli napad nebo zpusob reseni problemu.
S pozdravem Petr Blau Software developer
pos�l�n� mailu
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 9.2.2001 16:29:00
Ahoj
Dobra je Synapse. Neobsahuje sice komponenty, je to jen objektova knihovna,
ale pracuj spolehlive. Viz. http://www.ararat(tec)cz/synapse/
Jaromir Cermak
-----Original Message-----
From: Vaclav Krejci [mailto:krejciv(zv)ssakhk(tec)cz]
Sent: Friday, February 09, 2001 1:36 PM
To: delphi-l(zv)fwd(tec)cz
Subject: pos�l�n� mailu
Zdravim,
cht�l sem se jenom zeptat, jestli n�kdo
n�hodou nev�t� o n�jak� mail komponent�
nebo n�vodu, jde mi pouze o to, poslat maila
na ur�itou adresu + �ist� text a p�edm�t. D�k
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
pos�l�n� mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 16:40:50
From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
> pomoci smtp, melo by to asi chodit s
> komponentou nmsmtp, ale hlasi me
Ahoj,
v pripade SMTP pouzij radeji Indy nebo Synapsi.
Petr Vones, amatersky programator
zasifrovani
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.2.2001 16:46:35
From: "Milan #ݿek" <Cizek.Milan(zv)seznam(tec)cz> wrote:
Kdyz si z http://www.torry.net/cryptstrong.htm stahnes Delphi Encryption
Compendium od Hagena Reddmanna, coz je velmi slusna kolekce free sifrovacich
rutin, tak ti poslu demo s prikladem, jak pomoci teto knihovny standardne
zasifrovat/desifrovat retezce a ne nejakymi po doma zbastlenymi paskvily.
Bye, pf
Zpomalov�n� �asu na PC
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.2.2001 16:54:53
Ked sme uz pritom, nestretol sa niekto s tym,
ze hodiny realneho casu sa oneskorovali pri
dlhodobom vypnuti PC.
Hoci baterka bola uz raz vymenena, hodiny na
PC sa stale znacne omeskavaju.
Vlkovic
NMPOP3 nefunguje DeleteOnRead := False;
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 9.2.2001 16:56:14
Cau,
mam kod:
...
fNMPOP3.DeleteOnRead := FALSE;
fNMPOP3.GetMailMessage(mMailNumber);
...
ale po vykonani GetMailMessage tu message aj tak zo servru vymaze!
Neviete co s tym moze byt? Ten DeleteOnRead := FALSE proste nezabera.
Pomaha fNMPOP3.Reset, ale to je nekorektne riesenie (iba mi zachrani maily).
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
pos�l�n� mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 17:00:05
From: "CERMAK" <CERMAK(zv)procom(tec)cz>
> Dobra je Synapse. Neobsahuje sice komponenty, je to jen objektova knihovna,
^^^^^^^^^^^^^^^^^^^^^^^^^^
Coz bych videl jednoznacne jako prednost. Cim dal tim vic mam totiz pocit, ze
idea nevizualnich komponent je v mnoha pripadech ponekud neprakticka.
Petr Vones, amatersky programator
Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 17:07:06
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> Ked sme uz pritom, nestretol sa niekto s tym,
> ze hodiny realneho casu sa oneskorovali pri
> dlhodobom vypnuti PC.
Ahoj,
chyba muze byt v casovaci (tohle se stavalo hlavne u starych PC). Take muze
byt problem v baterii, je dobre ji zmerit protoze i u nove desky se obcas
stane ze je spatna.
Petr Vones, amatersky programator
Zpomalov�n� �asu na PC
[*] rado(zv)nnsk.sk - 9.2.2001 17:14:55
> From: "Martin Nedopil" <nedopil(zv)eskon(tec)cz>
> > M�j probl�m se t�k� zpomalov�n� �asu na PC.
> > Program b��� u klienta 24h/denn� 7dn�/t�den.
> > St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
> > cca 10min/den, ale je to r�zn�. R�zn� jsou i
> > PC na kter�ch to b���, ale vesm�s P400 a v�#e.
>
> Resenim muze byt synchronizace z nejakeho casoveho serveru.
> Pokud to bezi na
> NT, tak se podivej na API funkci SetSystemTimeAdjustment, coz
> by mohlo pomoct.
>
> Petr Vones, amatersky programator
>
Pripadne sa da synchronizovat pomocou
NetRemoteTOD z netapi32.dll
- zistit cas na nejakko servri v LAN a nastavit podla neho lokalny,
povedzme raz za den.
Zdrojak je dost dlhy, na poziadanie poslem mailom.
HTH,
bego
Zdrojov� k�dy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 17:23:43
From: "Libor Jel�nek" <ljelinek(zv)supreme(tec)cz>
> M��ete mi, pros�m, n�kdo d�t n�jak� tip na str�nku se zdroj�ky pro Delphi?
> Mysl�m n�jakou knihovnu uk�zkov�ch zdrojov�ch k�du program� a komponent,
> kter� mi poslou�� jako u�ebn� materi�l.
Ahoj,
za prve vlastni zdrojove kody VCL. Dale pak muzes prochazet stranky s tunami
komponent (RxLib, Torry apod.) Jejich kvalita je vsak (z pohledu studijnich
ucelu) casto pomerne diskutabilni. Dobre jsou priklady ke kniham o Delphi,
napriklad Marco Cantu je dava volne ke stazeni (http://www.marcocantu.com),
dale pak The Delphi Magazine (http://www.itecuk.com/delmag/dmdisk.htm),
CodeCentral na Borlandu (http://codecentral.borland.com) nebo i treba JCL
(http://delphi-jedi.org/Jedi:JCLDOWNLOADS)
Petr Vones, amatersky programator
Treeview s checkboxem u kazdeho nodu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 9.2.2001 17:24:59
Zdravim,
nemate nekdo komponentu Treeview, ktera by umoznovala dat ke kazdemu
nodu checkbox? Dost nutne bych to potreboval. Hledal jsem na Internetu,
ale vsechny ty komponenty jsou hodne chybove. Napadlo me jeste napsat si
to sam, ale nevim presne jak na to...
Pomuze nekdo?
Diky, Ales
Zpomalov�n� �asu na PC
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.2.2001 17:32:39
Petr Vones wrote:
>
> From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> > Ked sme uz pritom, nestretol sa niekto s tym,
> > ze hodiny realneho casu sa oneskorovali pri
> > dlhodobom vypnuti PC.
>
> Ahoj,
>
> chyba muze byt v casovaci (tohle se stavalo hlavne u starych PC). Take muze
> byt problem v baterii, je dobre ji zmerit protoze i u nove desky se obcas
> stane ze je spatna.
>
> Petr Vones, amatersky programator
PC je nove a baterka vymenena.
Takze neviem...Tlacova uloha
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.2.2001 17:35:02
Ahoj,
da sa prostrednictvom Delphi ovladat tlacovy server?
Potreboval by som zistit, ci bezi nejaka tlacova uloha
a aka, a najma stornovanie urcitej tlacovej ulohy.
Diky.
Vlkovic
DCU to PAS
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.2.2001 17:46:23
V pripade, ze to jak psal v puvodnim e-mailu zkousel nekolikrat
kompilovat, asi bezpredmetne. Pokud nema nastaven cil kompilace na
jiny disk, nez jsou zdrojaky.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
09.02.2001 Dalibor Toman:
> pokud doslo ke smazani souboru je mozne se pokusit jej obnovit (nezustal-li
> napriklad primo v kosi) nejakou kloudnou utilitou (Norton, NT Recover, On
> track easy recover,...). Pokud se na ten disk moc (nejlepe) vubec od smazani
> nezapisovalo je dost velika sance, ze se alespon podstatne kusy podari
> zachranit..
> D. Toman
P�evod ��sla
[*] <mdelphi(zv)email(tec)cz> - 9.2.2001 18:31:22
Pros�m jak p�evedu ��slo 123456, aby se zobrazovalo jako 12,35E+4.Bylo
mi razeno: format, ale bohu�el jsem ho asi nepochopil, proto uve�te i
p��klad.
Mockr�t d�kuji
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
hled�n� v datab�zi
[*] <mdelphi(zv)email(tec)cz> - 9.2.2001 18:35:13
Pros�m o vysv�tlen� tab.findkey, n�jak mi nechod�. nap��klad
m�m datab�zi ��slo,jmeno,p��jmeni.Podle prvn�ho sloupce v#e
chod� tab.findkey([3]) a nalezne,ale pro dal#� polo�ky neum�m.
P�edem d�kuji
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
pohyb TImage po Formu bez problikavani
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 9.2.2001 18:41:40
Ahoj,
zkus pouzit Form1.DoubleBuffered := True;
Ales
> -----Original Message-----
> From: Libor Kl��n�k [mailto:delphi(zv)energotek(tec)cz]
> Subject: pohyb TImage po Formu bez problikavani
>
> pixelu a posouvam s nim plynule po jednom pixelu po formu v
> jakemkoliv smeru
> pri prekreslovani je sice patrny plynuly pohyb obrazku, ale dochazi k
> problikavani. Jak se da tomuto problikavani zamezit. Zpomalov�n� �asu na PC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2001 18:59:43
> > > Ked sme uz pritom, nestretol sa niekto s tym,
> > > ze hodiny realneho casu sa oneskorovali pri
> > > dlhodobom vypnuti PC.
> >
> > Ahoj,
> >
> > chyba muze byt v casovaci (tohle se stavalo hlavne u starych PC). Take
muze
> > byt problem v baterii, je dobre ji zmerit protoze i u nove desky se
obcas
> > stane ze je spatna.
> PC je nove a baterka vymenena.
no nedavno manzelce v hodinarstvi menili baterku v hodinkach - a ty se
druhej den zastavili. Rekl jsem si - je po nich - a kopil novy. Manzelka pak
sla nechala znovu vymenit baterku (ten samy hodinar rikal - nojo vzdyt je
stara a vybita : -( ) - a hodinky jdou :-)
> Takze neviem...
Jak je velky ten rozdil casu? Pokud se to projevuje opravdu az po dlouhem
vypnuti (ne pri restartu atd) pak je zrejme mozne vyloucit manipulaci s
CMOSkou nejakym programem a jde zrejme o problem RTC obvodu.
PS i kdyz je baterka vadna tak kondiky na desce jsou schopny udrzet dost
dlouhou dobu napeti v takovem stavu, ze hodiny jdou (desitky hodin). Takze
napriklad, ze je vadna baterka se pozna az pri user odjede na dovolenou a
vypne pocitac na neobvykle dlouhou dobu. Videl jsem i pripad, ze se RTC
zastavil (CMOS data zustala zachovana) chvili po vypnuti PC.
Teoreticky jeste muze byt i problem na desce - napeti z baterky jde tusim
prez nejaky diody okolo tech kondiku az k RTC. Je mozny, ze nejaka ta dioda
je divna a v resimu napajeni z baterky (PC vypnute) z ty baterky k RTC moc
neproleze (takze to drzej ty kondiky ale napeti klesa a ustali se nekde niz
nez by mel RTC nejradsi - krystal pak mozna kmita o chlup pomaleji...)
Stalo by za to zjistit, zda se CMOSka zpomaluje i za chodu PC - nejakym
softwarem cist stav CMOSky a porovnavat data...
D. Toman
Zpomalov�n� �asu na PC
[*] Jan Naiser <tua(zv)wo(tec)cz> - 9.2.2001 19:32:56
Ahoj,
asi pred tremi lety jsem mel podobny problem na jednom programu pro
technologicke ucely, tehdy na Pentiu, kde zpozdeni bylo dost zavazne.
Zpocatku mi to chteli "prisit", ze za to muze program a nepomohl zadny
rozumny argument o hw PC. Tak jsem udelal test. Zapnul jsem PC na 24 hodin
pouze v DOSu a nechal bezet. Na pocatku jsme nastavili cas a na konci testu
zkontrolovali a ouha - cisty system bez programu - a zpomaleni bylo v radu
nekolika desitek minut.
Jelikoz bylo PC v siti (dokonce se zde krizily 2 ruzne site) a nechtel jsem
zakaznika dale trapit, vyuzil jsem funkci Novella a asi v 5-ti min.
intervalech jsem ze sveho programu cas synchronizoval z Novella, ktery bezel
pomerne presne.
Honza Naiser.
----- Original Message -----
From: Martin Nedopil <nedopil(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 2:24 PM
Subject: Re: Zpomalov�n� �asu na PC
> Nu, tohle presne jsem tvrdil taky. Vlastni obvod, vlastni krystal,
nezavisle
> napajeni nicmene cas se zpomaluje :-)
>
> Martin
>
> ----- Original Message -----
> beh aplikace by na cas nemela mit vliv, jestli ho sama nenastavuje. na
> zakladni desce pc je totiz IO, ktery je o aktualni cas stara a funguje i
po
> vypnuti na baterku. problem je nespis v tomto obvodu, ktery ma
integrovany
> krystal a ten je nachylny na teplotu. proste se rozladuje a tim se
taktovaci
> frekvence pro cas muze zrychlit nebo spomalit.
>
> Ing. V�t Kr�ka
> vit.krska(zv)del(tec)cz
>
> -----Original Message-----
>
>
> M�j probl�m se t�k� zpomalov�n� �asu na PC.
> Program b��� u klienta 24h/denn� 7dn�/t�den.
> St��uj� si, �e se jim na PC v�znamn� zpomaluje �as
> cca 10min/den, ale je to r�zn�. R�zn� jsou i
> PC na kter�ch to b���, ale vesm�s P400 a v��e.
>
> M�j program m��e b��et i ve v�ce instanc�ch najednou,
> vyu��v� TTimer a kdy� b��� m��e ve �pi�ce zabrat
> i 100% CPU (ov�em m��eno Microsoft�mi m���ky) na
> dobu ne v�ce ne� cca 30sec. v intervalu �ekn�me co
> 10min. Program nevyu��v� ��dn� nedokumentovan� funkce,
> nepracuje s p�eru�en�mi, nic takov�ho. Jen ten TTimer.
> V jednom p��pad� pomohla v�m�na HW, ostatn� o tom
> necht�j� moc sly�et.
>
> M�te n�kdo podobnou zku�enost?
>
> Martin
>
>
>Treeview s checkboxem u kazdeho nodu
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 9.2.2001 19:33:59
Nedavno jsem sehnal komponentu TreeNT. Najdes ji na Torry Delphi pages. Je zdarma a nemuzu si pomoct, ale panove - je skvela.
Omlouvam se, musel jsem to rict :-) S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
Subject: Treeview s checkboxem u kazdeho nodu
> Zdravim,
>
> nemate nekdo komponentu Treeview, ktera by umoznovala dat ke kazdemu
> nodu checkbox? Dost nutne bych to potreboval. Hledal jsem na Internetu,
> ale vsechny ty komponenty jsou hodne chybove. Napadlo me jeste napsat si
> to sam, ale nevim presne jak na to...
>
> Pomuze nekdo?
>
> Diky, Ales
> nacteni struktury disku
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 9.2.2001 19:36:16
Zdravim,
nevite nekdo, jak jednoduse a rychle nacist souborovou strukturu disku do TreeView? Jde mi o to, ze bych rad zobrazil jen
nektere typy souboru a priklad v Samples se mi nelibi. Pouzivam metodu FindFirst, ... ale to je desne pomale. Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 19:58:02
From: "Jan Naiser" <tua(zv)wo(tec)cz>
> Zpocatku mi to chteli "prisit", ze za to muze program a nepomohl zadny
> rozumny argument o hw PC. Tak jsem udelal test. Zapnul jsem PC na 24 hodin
> pouze v DOSu a nechal bezet. Na pocatku jsme nastavili cas a na konci testu
> zkontrolovali a ouha - cisty system bez programu - a zpomaleni bylo v radu
Ahoj,
a kontrolovali jste na konci cas ktery ukazoval DOS nebo RTC ?
Petr Vones, amatersky programator
Parametry ListBoxu odesilane skriptu z HTML Formul
[*] morzol(zv)atlas(tec)cz - 9.2.2001 20:20:57
Nevite nekdo jake jsou parametry ListBoxu odesilane WWW serveru z HTML Formulare obzvlast kdyz controlem vyberu naraz vice polozek a v jakem formatu jsou odesilany ?
Diky.nacteni struktury disku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 20:25:54
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> nevite nekdo, jak jednoduse a rychle nacist souborovou strukturu disku
do TreeView? Jde mi o to, ze bych rad zobrazil jen
> nektere typy souboru a priklad v Samples se mi nelibi. Pouzivam metodu
FindFirst, ... ale to je desne pomale.
Ahoj,
musis nacitat jednotlive podadresare az kdyz rozbalis dany node v treeview
nebo prohledavat cely disk v threadu a polozky postupne pridavat.
Petr Vones, amatersky programator
Tlacova uloha
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 20:28:06
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> da sa prostrednictvom Delphi ovladat tlacovy server?
> Potreboval by som zistit, ci bezi nejaka tlacova uloha
> a aka, a najma stornovanie urcitej tlacovej ulohy.
Ahoj,
podivej se na API funkce EnumJobs a spol (ne vsak v helpu z Delphi ale na
MSDN Online)
Petr Vones, amatersky programator
Aktivita uzivatele na PC
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 9.2.2001 20:28:39
Zdravim,
nevite nekdo, jak se da jednoduse zjistit, jak dlouho nebyl uzivatel
aktivni na PC? Tzn. jak dlouho je pryc od PC?
Michal
Treeview s checkboxem u kazdeho nodu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2001 20:30:13
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> nemate nekdo komponentu Treeview, ktera by umoznovala dat ke kazdemu
> nodu checkbox? Dost nutne bych to potreboval. Hledal jsem na Internetu,
Ahoj,
TTreeNode ma vlastnost StateIndex kde si muzes pridat jeste jednu dalsi ikonu.
Vytvor si tedy checkbox ikonu a tou takto odlisis zaskrtle polozky.
Petr Vones, amatersky programator
OT: Re: Win ME versus 2000
[*] Hurricane <hurricane(zv)quick(tec)cz> - 10.2.2001 02:52:45
Zdravim
> Tak v tomto pripade, kdyz se mi W98 poroucely i ze zcela
> banalnich duvodu, jsem je vyhodil a koupil si W2000. A mam ted
> klidne spani. Nejdrive jsem jel dualne W98 / W2000 RC2, a
> postupne jsem stehoval veskerou cinnost na W2000, takze na
> W98 zustalo jen ucetnictvi, a to jeste jen proto, ze RC2
> nepodporovala mou tiskarnu. Nyni mam pocitac W98 clean.
>
> BTW - provoz Delphi na W98 je ve srovnani s W2000 primo
> katastrofalni.
Tak tu RC2 jsem zkousel (kdysi jsem si ji nechal posla) a dvakrat mi ta
instalace zatuhla v tomtez miste. Ale presvedcil jsi me, sezenu si tech 2000
woken.
Hurricane
Treeview s checkboxem u kazdeho nodu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.2.2001 10:28:59
On 9 Feb 2001, at 20:30, Petr Vones wrote:
> > nemate nekdo komponentu Treeview, ktera by umoznovala dat ke kazdemu
> > nodu checkbox? Dost nutne bych to potreboval. Hledal jsem na
> > Internetu,
>
> TTreeNode ma vlastnost StateIndex kde si muzes pridat jeste jednu
> dalsi ikonu. Vytvor si tedy checkbox ikonu a tou takto odlisis
> zaskrtle polozky.
Presne tento zpusob pouzivam v nove verzi Lokalizatoru. Kdo se na
to chce podivat, muze si stahnout z http://www.hlinka(tec)cz/ll5/ll5.zip
beta verzi, a pripadne si s ni pohrat, bude-li chut. Prijimam
pripominky a namety na vylepseni. Upozorneni: ne vse zatim
funguje jak by melo. Testovano zatim pouze na W2000.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
pos�l�n� mailu
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 10.2.2001 10:51:45
procedure TForm1.Button1Click(Sender: TObject);
begin
if NMSMTP1.Connected then
NMSMTP1.Disconnect
else
begin
NMSMTP1.Host := ''; // mail server
NMSMTP1.UserID := ''; // existujuce konto
NMSMTP1.Connect;
end;
NMSMTP1.SubType := mtPlain;
NMSMTP1.EncodeType := uuMime;
NMSMTP1.PostMessage.FromAddress := ''; // od koho
NMSMTP1.PostMessage.FromName := 'Od koho';
NMSMTP1.PostMessage.ToAddress.Text := ''; // komu
NMSMTP1.PostMessage.Body.Text := 'text ktory chces poslat';
NMSMTP1.PostMessage.Subject := 'subject';
NMSMTP1.PostMessage.Date := 'datum';
NMSMTP1.SendMail;
end;
S pozdravom,
------------------------------
R�bert �u#ka, spr�vca siete
R�dio Lumen, Bansk� Bystrica
Slovensk� republika
www.lumen.sk
spravca(zv)lumen.sk
088/41 25 739 kl.14
------------------------------
Vice jazycna aplikace
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 10.2.2001 10:52:44
Cau,
mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil pomoci databaze :( Pripada mi to dost neohrabane. Nevite nekdo o nejakem jednoduchem zpusobu ?
dik Ladap
Struktura souboru paradox
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 10.2.2001 11:56:15
Ahoj,
nevite, prosim, kde sehnat %SUBJ%. Nejak se mi to nedari.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 Zpomalov�n� �asu na PC
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.2.2001 12:03:44
> Zajimave by bylo za chodu nechat vypsat cas opravdu primo z CMOSky (zrejme
> by mel byt bez zpozdeni)
Program, ktory zobrazuje aktualny datum a cas z CMOSky
je na http://www.cybermagic.co.nz/winsoft.
Erik
Zpomalov�n� �asu na PC
[*] Jan Naiser <tua(zv)wo(tec)cz> - 10.2.2001 13:11:50
Ahoj,
kontrolovali jsme cas DOSu (tehdy ver. 6.22). Tehdy hlavne nebyla ze strany
zakaznika vule s tim cokoliv po hw strance delat. Proto bylo pro me
schudnejsi to takto obejit a navic se to ukazalo pozdeji jako spravne,
jelikoz se zpresnily casy, (napr. start-stop linky) v porovnani s realnym
provozem.
Honza Naiser.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 7:58 PM
Subject: Re: Zpomalov�n� �asu na PC
> Ahoj,
>
> a kontrolovali jste na konci cas ktery ukazoval DOS nebo RTC ?
>
> Petr Vones, amatersky programator
>
>Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 13:43:01
From: "Jan Naiser" <tua(zv)wo(tec)cz>
> kontrolovali jsme cas DOSu (tehdy ver. 6.22). Tehdy hlavne nebyla ze strany
Ahoj,
no to se pak nesmis divit ze se to rozchazelo. DOS si pocital vlastni cas,
navic nejakym divnym zpusobem.
Petr Vones, amatersky programator
Struktura souboru paradox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 13:51:51
From: "Pavel Malinsk�" <spiderland(zv)iol(tec)cz>
> nevite, prosim, kde sehnat %SUBJ%. Nejak se mi to nedari.
Ahoj,
podivej se na Paradox stream (http://kuchyn.delphi(tec)cz/tools_ingredients.htm)
Petr Vones, amatersky programator
OT: Re: Win ME versus 2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 13:53:11
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Tak tu RC2 jsem zkousel (kdysi jsem si ji nechal posla) a dvakrat mi ta
> instalace zatuhla v tomtez miste. Ale presvedcil jsi me, sezenu si tech 2000
RC2 neni ostra verze ;-) Navic pokud chces mit jistotu tak je dobre se podivat
do HCL na kompatibilitu HW (http://www.microsoft.com/hcl)
Petr Vones, amatersky programator
Jak ulozit data
[*] Phill <pedrophill(zv)seznam(tec)cz> - 10.2.2001 14:13:55
No diky fsem, ja si ztoho udelam nakej vycuc a nak to dam dohromady
pouzivate to nekdo, je to komponenta uplne vo necem jinym nez naky gridy(umi
nadhernou tabulku), nebo tree. No kouknete se na ni. Doporucuju
tohle mi poslal jeji autor, kdyby vas to zajimalo.
>I am sorry to ask you a simple question, but I can't figure it out. I
> got a delphi aplication with the virtualstringtree - that's great, but I
> don't know how to save the data to a file. I mean the captions in a table,
> which was made from the tree. Here is an ex.
>
> type
> PData = ^TData;
> TData = record
> FirstName:String;
> LastName:String;
> .......
> end;
To initiate saving just call Tree.SaveToFile (or SaveToStream). Important is
that you assign a
handler to OnSaveNode and OnLoadNode. These handlers are also very important
for drag'n drop and
clipboard operations. In the handler you can directly store and load your
data into and from the
provided stream. I assume you know how to store a string to a stream. Note:
if you save the node
captions with your other data then there is no need that the string tree
saves the captions too.
Hence switch off soSaveCaptions in StringOptions.
Ciao, Mike
> > Dejme tomu ze mam data ulozeny treba v tomdle. Pouzivam totiz
> > komponentu
> > VirtualStringTree a tam jsou udaje ukladany do...
>
> Z otazky celkom presne nevidno, co treba ukladat.
> Ak je to napriklad potomok TComponent,
> (predpokladam ze VirtualStringTree je), mozno pouzit
> WriteComponentResFile / ReadComponentResFile par.
> Pri classoch ktore nie su potomkom TComponent treba
> ukladanie napisat, je to trosku zlozitejsie.
>
> Povedzme ze mam formular a na nom komponent
> typu TVirtualStringTree, ktory sa vola VirtualStringTree.
>
> napr.
>
> procedure TForm1.SaveData;
> begin
> with SaveDialog do
> begin
> if Execute then
> begin
> Screen.Cursor := crHourGlass;
> try
> // Try to write file
> WriteComponentResFile(FileName, VirtualStringTree);
> finally
> Screen.Cursor := crDefault;
> end;
> end;
> end;
> end;
>
> procedure TForm1.LoadData;
> begin
> RegisterClasses([TVirtualStringTree]);
> with OpenDialog do
> begin
> if Execute then
> begin
> Screen.Cursor := crHourGlass;
> try
> // Read the stream
> ReadComponentResFile(AFileName, VirtualStringTree);
> finally
> Screen.Cursor := crDefault;
> end;
> end;
> end;
> end;
>
> Format je standardny Windows Resource File. Viac je v helpe.
>
> HTH,
>
> bego
>MS SQL7 a spojeni blobu v Stored Proc
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 10.2.2001 14:28:37
Hazi pekny chyby, co ?
Prace s polem typu TEXT je ponekud slozitejsi, ale jde to. Pracuje se s nimi
pres ukazatele na text
a prikazy urcenymi poze pro praci s temito polozkami.
Podivej se do BOL na tyto prikazy:
TEXTPTR, READTEXT, WRITETEXT, UPDATETEXT atd.
Jako maly navod posilam mno pouzivanou proceduru, prostuduj a uvidis, jestli
ti to k necemu bude ...
CREATE PROCEDURE IS_SMLOUVA_POZNAMKA_SET
(zv)p_uid int,
(zv)p_Smlouva int, -- ID Smlouvy
(zv)p_Text text, -- Text poznamky
(zv)p_Advanced int = 0 -- rozsirene nastavovani: 1. bit = pricitat poznamku, 2.
bit = pridavat novy radek, 3. bit = pridavat oddelovac
AS
declare (zv)Text binary(16)
if (zv)p_Text is null
delete IS_Poznamky_smluv where Smlouva = (zv)p_Smlouva
else
begin
if exists (select * from IS_Poznamky_smluv where Smlouva = (zv)p_Smlouva and
Poznamka is not null)
begin
select (zv)Text = TEXTPTR(Poznamka) from IS_Poznamky_smluv where Smlouva =
(zv)p_Smlouva
print convert(varchar(8000), (zv)p_Text)
declare (zv)Add varchar(8000), (zv)i int
set (zv)Add = ''
if (zv)p_Advanced & 2 = 2
set (zv)Add = (zv)Add + char(13)
if (zv)p_Advanced & 4 = 4
set (zv)Add = (zv)Add + '=============================='+char(13)
print (zv)Add
if (zv)p_Advanced & 1 <> 1
WRITETEXT IS_Poznamky_smluv.Poznamka (zv)Text ''
UPDATETEXT IS_Poznamky_smluv.Poznamka (zv)Text null null (zv)Add
set (zv)i = DATALENGTH((zv)Add)
UPDATETEXT IS_Poznamky_smluv.Poznamka (zv)Text (zv)i 0 (zv)p_Text
end
else
insert into IS_Poznamky_smluv (Smlouva, Poznamka) values ((zv)p_Smlouva,
(zv)p_Text)
end
RETURN ( (zv)(zv)ERROR )
GO
Keep mailing :-)
=======================
Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ren� Otisk
> Sent: Friday, February 09, 2001 12:10 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: MS SQL7 a spojeni blobu v Stored Proc
>
>
> Hi,
>
> MS SQL7, ODBCe, D3 C/S
>
> Mam nasledujici problemek. Potrebuji v ulozene procedure ulozit do blobu
> zmeny a ty promitnou do jineho blobu. Nasleduje ona inkriminovana
> procedurka
> s tim mistem. Vi nekdo jak na to?
>
> CREATE PROCEDURE UPDM2
> (zv)MID INTEGER, (zv)DATUM DATETIME, (zv)BLOBON TEXT, (zv)VYSLEDEK INTEGER OUTPUT
> AS
> DECLARE (zv)DID INTEGER
> BEGIN TRAN
> SELECT DISTINCT (zv)DID = DID FROM M2 WHERE DATUM = (zv)DATUM
> AND MID = (zv)MID
> IF (zv)DID IS NULL
> INSERT INTO M2 (DATUM, BLOBON) VALUES ((zv)DATUM, (zv)BLOBON)
> ELSE
>
> a tady bych potreboval neco jako
> UPDATE M2 SET BLOBON = BLOBON + (zv)BLOBON WHERE DID = (zv)DID
>
> IF (zv)(zv)ERROR <> 0
> BEGIN
> ROLLBACK
> RETURN((zv)(zv)ERROR)
> END
> SELECT (zv)VYSLEDEK = (zv)(zv)IDENTITY
> COMMIT
>
> Diky
>
> Sroub
>Vice jazycna aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 14:56:46
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky
pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil
Ahoj,
jako ze si uzivatel bude sam lokalizovat vlastni aplikaci ?
Petr Vones, amatersky programator
Pod��zen� okna
[*] Dave FM <dave.fm(zv)atlas(tec)cz> - 10.2.2001 19:00:01
Zdrav�m v konerenci,
pot�eboval bych ve sv�m programu ud�lat pod��zen� okna. M�m D3 v�m, �e v D5
existuje n�co jako Frame. Ja bych pot�eboval tento zp�sob pod��zen�ch
formul߰� p�en�st do D3. V�m, �e to n�jak�m zp�sobem lze. Dokonce je to jako
p��klad v knݿce "Delphi pr�vodce v�voj߰e", ale je to na star#� verzi D2 a
v D3 to nefunguje upln� p�esn�.
Tak m��e m�t n�kdo poradit a uv�zt n�jak� p��klad nebo kde bych ho na#el,
abych mohl pou��t pod��zen� formul߰uvnit� hlavn�ho formul߰e, kdy� hlavn�
formul߰ je typu TMDIForm ??
D�ky David
Aktivita uzivatele na PC
[*] L. ZITA <konference(zv)sales(tec)cz> - 10.2.2001 20:46:24
----- Original Message -----
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
To: "DELPHI konference" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 09, 2001 8:28 PM
Subject: Aktivita uzivatele na PC
> Zdravim,
> nevite nekdo, jak se da jednoduse zjistit, jak dlouho nebyl uzivatel
> aktivni na PC? Tzn. jak dlouho je pryc od PC?
> Michal
>
>
>
Ahoj.
Napis si treba jednoduchy sporic obrazovky a nekam si ukladej
jak dlouho bezel a uzivatel tedy nepracoval.
Ludek
Zpomalov�n� �asu na PC
[*] Jan Naiser <tua(zv)wo(tec)cz> - 10.2.2001 20:56:58
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Je pravda, ze test nebyl dusledny. Slo jen o to dokazat, ze chybu
nezpusobuje aplikacni sw, coz se timto podarilo.
> no to se pak nesmis divit ze se to rozchazelo. DOS si pocital vlastni cas,
> navic nejakym divnym zpusobem.
Ale proc byl za 24 hodin na holem, cistem DOSu rozdil v radu nekolika
desitek minut? To uz dnes samozrejme nikdo nezjisti. Na ostatnich PC to bylo
v norme.
Pokud si tedy system pocita cas sam a chyba by byla nekde v systemu, mel by
po restartu PC byt cas v normalu, jelikoz se nacte z RTC. Ani toto se
nedelo, pokud si vzpominam. :-)
Honza Naiser.Pod��zen� okna
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 10.2.2001 21:43:12
Jsem rad, ze se zminujes - k cemu ty framy vlastne jsou?
Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Dave FM" <dave.fm(zv)atlas(tec)cz>
Subject: Pod��zen� okna
> Zdrav�m v konerenci,
>
> pot�eboval bych ve sv�m programu ud�lat pod��zen� okna. M�m D3 v�m, �e v D5
> existuje n�co jako Frame. Ja bych pot�eboval tento zp�sob pod��zen�ch
> formul߰� p�en�st do D3. V�m, �e to n�jak�m zp�sobem lze. Dokonce je to jako
> p��klad v knݿce "Delphi pr�vodce v�voj߰e", ale je to na star#� verzi D2 a
> v D3 to nefunguje upln� p�esn�.
> Tak m��e m�t n�kdo poradit a uv�zt n�jak� p��klad nebo kde bych ho na#el,
> abych mohl pou��t pod��zen� formul߰uvnit� hlavn�ho formul߰e, kdy� hlavn�
> formul߰ je typu TMDIForm ??
>
> D�ky David
>
>
>Vice jazycna aplikace
[*] Jan Kr�il <jkrcil(zv)jenda(tec)cz> - 10.2.2001 22:45:38
Zdravim,
asi bych to vyresil "textakama" - jak je mozne to obcas videt u nekterych
programu... proste si vytvorite soubor jazyk.txt, podle nejaky sablony si
tam naprskate texty a aplikaci o tom nejakym zpusobem date vedet... tak bych
to asi resil ja...
S pratelskym pozdravem,
|---> JanKrcil (_-'-_) JendaCZ <----|
|eml> jkrcil(zv)jenda(tec)cz </eml|
|icq> 34799706 </icq|
|hmp> www.jenda(tec)cz </hmp|
|---) <asp><html><js><vbs><vb> (----|
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Saturday, February 10, 2001 2:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vice jazycna aplikace
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky
pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil
Ahoj,
jako ze si uzivatel bude sam lokalizovat vlastni aplikaci ?
Petr Vones, amatersky programator
Vice jazycna aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 23:00:01
From: "Jan Kr�il" <jkrcil(zv)jenda(tec)cz>
> asi bych to vyresil "textakama" - jak je mozne to obcas videt u nekterych
Ahoj,
dobre, v pripade resourcestringu by to jeste slo, ale jak chces lokalizovat
formulare. Ulozit vsechny DFM v textove podobe ?
Petr Vones, amatersky programator
Aktivita uzivatele na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 23:37:41
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> nevite nekdo, jak se da jednoduse zjistit, jak dlouho nebyl uzivatel
> aktivni na PC? Tzn. jak dlouho je pryc od PC?
Ahoj,
ponekud neohrabane by to slo resit kontrolou v Timeru (cca po 10.sec), kde by
jsi mel takovouto funkci:
var
LastCursorPos: TPoint;
function WasUserActive: Boolean;
var
VirtKey: Integer;
CursorPos: TPoint;
begin
GetCursorPos(CursorPos);
Result := (LastCursorPos.x <> CursorPos.x) or
(LastCursorPos.y <> CursorPos.y);
LastCursorPos := CursorPos;
if not Result then
for VirtKey := 1 to 255 do
if GetAsyncKeyState(VirtKey) <> 0 then
begin
Result := True;
Break;
end;
end;
Bohuzel jak znamo jednoducha reseni nebyvaji nejlepsi a to plati i o tomto.
Obcas se stane, ze to nezachyti stisk klavesy.
Petr Vones, amatersky programator
WindowMenu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 23:50:32
From: "Olda Horak" <horacius(zv)horacius(tec)cz>
> Pokud vytvorim vnitrni okno bez "preventivniho otevreni" WindowMenu, polozka
> se neprida.
> Je to moje chyba nebo chyba v API?
Ahoj,
je to chyba ve VCL. Tusim ze pomoha nastavit AutoHotkeys a AutoLineReduction
v TMainMenu komponente na False.
Petr Vones, amatersky programator
Pixelova pozice kurzoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 23:51:56
From: "Uniplet T�eb�� - elektronika" <elektronika(zv)uniplet(tec)cz>
> pomozte kdo vite, v aplikaci mam vlozeny richedit v kterem muze uzivatel
libovolne psat, muze menit velikost fontu i radkovani, ale pro svoje potreby
bych potreboval nejakym spusobem zjistit pozici ( ne radku to umim ) kde se
nachazi kurzor pixelove od vrchu richeditu, ale to nevym a hlidat si vsechny
Ahoj,
podivej se na API funkci GetCaretPos.
Petr Vones, amatersky programator
Jak ziskat info o PCI zarizeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.2001 23:53:36
From: "RNDr. Milan Vo��#ek" <vorisek(zv)igtt(tec)cz>
> jedna se o merici kartu (AX5500P) se sadou citacu (8254)a logickymi vystupy
> (emulace 8255),
> pomoci ktere se ovlada externi pristroj.
> Pro nektere funkce karty nejsou dostupne drivery a realizovat je lze jen
> psanim do a ctenim z portu rutinami, ktere dostupne jsou napr.:
> procedure otput(addr:word;data:byte);
> function input(addr:word):byte;
Ahoj,
doufam ze ty rutiny nevolaji jen asm IN/OUT instrukce na urovni aplikace. To
pak nebude fungovat pod NT a bude "fungovat" ve Win9x.
Petr Vones, amatersky programator
Delphi <--> MS IIS (Index Server)
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.2.2001 10:57:34
Zajimalo by me, zda jdou pokladat dotazy (a samozrejme i ziskat
odpovedi na tyto dotazy) IndexServeru z MSIIS vzdalene pres Internet
pomoci aplikace napsane v Delphi. Setkal jste se s tim nekdo? Muzete
me nakopnout spravnym smerem? Nejaky priklad nebo alespon navod.
Zkousel to nekdo?
Predem diky za jakoukoliv radu.
Petr
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
Zpomalov�n� �asu na PC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.2.2001 11:21:41
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, February 10, 2001 1:43 PM
Subject: Re: Zpomalov�n� �asu na PC
> From: "Jan Naiser" <tua(zv)wo(tec)cz>
> > kontrolovali jsme cas DOSu (tehdy ver. 6.22). Tehdy hlavne nebyla ze strany
>
> Ahoj,
>
> no to se pak nesmis divit ze se to rozchazelo. DOS si pocital vlastni cas,
> navic nejakym divnym zpusobem.
DOS (nebo uz BIOS ??) nastavuje casovac tak, ze generuje preruseni cca kazdych 55 ms. Staci, aby nekdo zatrhnul preruseni na delsi cas nez je 55ms a uz se jeden impulz casovace ztraci. Videl jsem napr problemy zpusobene intenzivnim prenosem na siti (asi spatne napsany driver). Dalsim zajimavym dusledkem pretizeneho IRQ systemu byly chyby v komunikaci s klavesnici (projevovaly se nejvice v borlandim IDE) - stacilo zmacknout a drzet kurzorovou sipku a misto posunu se psaly do textu cislice (2,8,.. - jako by clovek mackal sipky na numericke klavesnici. Obvykle stacilo parkrat zmacknout numlock a bylo to zase OK), zustavaly nahozene preradovace (Shift, Ctrl,...)
Windows pravdepodobne preprogramovavaji casovac tak, aby generoval preruseni husteji - ale nejsem si tim moc jist.
D: Toman
Pod��zen� okna
[*] Marcant <marcant(zv)sct.sk> - 11.2.2001 12:35:56
Nemam sice mozno najoptimalnejsie riesenie, ale ja som na ten ucel pouzival
pomocny formular (samozrejme nevidelny) a jednotlivym komponentom
som zmenil Parent-a a iny formular. Optimalne je vlozit si tam jeden Panel a
vsetky komponenty vytvorit na nom. Potom staci zmenit Parent-a iba tomu
panelu.
Tych pomocnych formularov je samozrejme mozne vytvorit aj viac podla
potreby.
> Zdrav�m v konerenci,
>
> pot�eboval bych ve sv�m programu ud�lat pod��zen� okna. M�m D3 v�m, �e v
D5
> existuje n�co jako Frame. Ja bych pot�eboval tento zp�sob pod��zen�ch
> formul߰� p�en�st do D3. V�m, �e to n�jak�m zp�sobem lze. Dokonce je to
jako
> p��klad v knݿce "Delphi pr�vodce v�voj߰e", ale je to na star#� verzi D2
a
> v D3 to nefunguje upln� p�esn�.
> Tak m��e m�t n�kdo poradit a uv�zt n�jak� p��klad nebo kde bych ho na#el,
> abych mohl pou��t pod��zen� formul߰uvnit� hlavn�ho formul߰e, kdy� hlavn�
> formul߰ je typu TMDIForm ??
>
> D�ky David
>WinApi okno
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 11.2.2001 12:47:19
Ahoj lidicky, chtel sem si zkusit udelat okno jenom pomoci WinApi, tak
sem zkusil toto, ale nejak mi to nefacha. Error zadnej. Spustim, v
seznamu aplikaci je, ale okno nejni videt. Kde mam chybu???
program Pokus;
uses windows, messages;
const szAppName : PChar = 'HelloWin';
function WndProc(h:hwnd; Msg:UINT; WP:wParam; LP:lParam):LRESULT;
var
hd : HDC;
ps : PAINTSTRUCT;
R : TRect;
begin
case Msg of
WM_CREATE : begin;
MessageBox(0,PChar('Hello'),szAppName,MB_ICONERROR);
Result:=0; Exit;
end;
WM_PAINT : begin
hd:= BeginPaint(h,ps);
GetClientRect(h,R) ;
DrawText(hd,PChar('Ahoj Windows 98!'),-1,R,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
EndPaint(h,ps);
Result:=0; Exit;
end;
WM_DESTROY : begin
PostQuitMessage(0);
Result:=0; Exit;
end;
end;
Result:=DefWindowProc(h,Msg,WP,LP);
end;
var
h : hwnd;
m : msg;
w : wndclass;
begin
w.style := CS_HREDRAW or CS_VREDRAW ;
w.lpfnWndProc := (zv)WndProc;
w.cbClsExtra := 0;
w.cbWndExtra := 0;
w.hInstance := hInstance ;
w.hIcon := LoadIcon(0,IDI_APPLICATION);
w.hCursor := LoadCursor(0,IDC_ARROW);
w.hbrBackground := HBRUSH (GetStockObject (WHITE_BRUSH));
w.lpszMenuName := NIL;
w.lpszClassName := szAppName;
RegisterClass(w);
h:=CreateWindow(szAppName,PChar('Program Ahoj'),WS_OVERLAPPEDWINDOW,
0,0,100,100,0,0,hInstance,NIL);
ShowWindow(h,SW_MAXIMIZE);
UpdateWindow(h);
while GetMessage(m,0,0,0) do begin
TranslateMessage(m);
DispatchMessage(m);
end;
Halt(m.wParam);
end.
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/WinApi okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2001 14:52:55
From: "Martin Pe#ava" <jimx(zv)volny(tec)cz>
> Ahoj lidicky, chtel sem si zkusit udelat okno jenom pomoci WinApi, tak
> sem zkusil toto, ale nejak mi to nefacha. Error zadnej. Spustim, v
Ahoj,
podivej se na tohle:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/DelphiDays99_Prezentace.zip
Petr Vones, amatersky programator
Datab�ze
[*] Jaroslav ��hal <cihal(zv)mppraha(tec)cz> - 11.2.2001 18:10:41
To znamen�, �e nem��u nikdy vytvo�it tak velkou datab�zi? Pot�ebuji v n�
uchov�vat data �innosti zam�stnanc� a podle toho co cht�j� sledovat to
vych�z� na 255 polo�ek na zam�stnance respektive se te� omezuji jen na ty
st�ediska. Ty z�znamy se budou nav�c dod�vat je#t� z dal#�ch 15 st�edisek
tak�e to by se prov�d�lo asi pomoc� importu z tabulky do tabulky. Kdy� ty
tabulky rozd�l�m jak zajist�m p�enos dat. P�ece nem��u ka�d� den importovat
a potom n�sledn� exportovat �ty�i tabulky to by bylo p�i patn�cti
st�edisc�ch 60x stejn� operace. nav�c to bude d�lat u�ivatel a ne j�. Tak�e
by mi asi nepod�koval. D� se to v�bec o#et�it n�jak�m zp�sobem?
Budu r�d za ka�dou radu.
D�ky
#�hal Jaroslav
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
rado(zv)nnsk.sk
Sent: Friday, February 09, 2001 3:02 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Datab�ze
Tiez sa pripajam k tym, ktory potrebuju na odpoved
viac informacii, o co ide.
Tabulka, ktora ma 255 (alebo viac) na 99.9% nie je
ani v 1. normalovej forme a odporucam dobre si
rozmysliet, ci sa vobec pustat do implementacie.
Takze odporucam porozmyslat nad celkovym dizajnom,
precitat si nieco o normalizacii.
Ako hovori jeden moj kolega, 5. normalova forma
je dobry zaciatok :-).
> 1. Kolik zvl�dne datab�ze v Delphi sloupc� a m� v�bec n�jak� omezen�?
Nepoznam databazu, ktora by taketo obmedzenie nemala
(ani teoreticky).
> 2. D� se k n� potom p�istupovat pomoc� ASP?
Pokial k nej existuje ODBC, OLE DB, JDBC driver,
tak ano.
> 3. Co v#echno pot�ebuji k tvorb� plnohodnotn� datab�ze.
Databazy sa (zjednodusene) delia na 2 zakladne typy:
- flat-file: Paradox, dBase, Access
- SQL: Oracle, InterBase, MSSQL, Sybase
Predpokladam ze plnohodnotna databaza = SQL databaza.
Potrebujes:
1. Server (kupit alebo stiahnut z internetu)
2. Klientov (detto - pri instalacii obvykle nainstaluju
aj potrebne drivery)
Potom uz staci len to nainstalovat, nakonfigurovat a
rozchodit. :-)
HTH,
bego
SendKeys
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 11.2.2001 18:12:49
Ahoj, neda se zaridit, aby muj program 'poslal' bezici aplikaci stisk
nekolika klaves (Alt+Enter)? (potrebuju spustit WMP 6.4 ve fullscreen
rezimu)
S pozdravem
Petr Ha#lar
rincewind(zv)volny(tec)cz
ICQ #89356906
Datab�ze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2001 18:54:42
From: "Jaroslav #�hal" <cihal(zv)mppraha(tec)cz>
> To znamen�, �e nem��u nikdy vytvo�it tak velkou datab�zi? Pot�ebuji v n�
> uchov�vat data �innosti zam�stnanc� a podle toho co cht�j� sledovat to
> vych�z� na 255 polo�ek na zam�stnance respektive se te� omezuji jen na ty
Ahoj,
a co tu dabatazi navhrnout nejak jinak, napriklad rozdelit do vice tabulek.
Nebo v pripade jednoduche databaze nepouzivat databazi ale nejaky vlastni
format.
Petr Vones, amatersky programator
SendKeys
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2001 19:40:49
From: "Petr Ha#lar" <rincewind(zv)volny(tec)cz>
> Ahoj, neda se zaridit, aby muj program 'poslal' bezici aplikaci stisk
> nekolika klaves (Alt+Enter)? (potrebuju spustit WMP 6.4 ve fullscreen
> rezimu)
Ahoj,
a neslo by to resit tak, ze si naimportujes WMP jako ActiveX do Delphi a pak
si jej ovladas dle potreby. Je tam i property FullScreen.
Petr Vones, amatersky programator
Ovladani WebBrowser, Delphi 5 Prof.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2001 19:49:11
From: "L.Svoboda" <svoboda(zv)fdsystem(tec)cz>
> V aplikaci pouzivam komponentu WebBrowser.
> Potreboval bych u ni vypnout scrollbary
Ahoj,
nezkousel jsem to, ale mozna by pomohlo tohle:
http://www.deja.com/getdoc.xp?AN=684095669
Petr Vones, amatersky programator
Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2001 20:07:14
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> DOS (nebo uz BIOS ??) nastavuje casovac tak, ze generuje preruseni cca
kazdych 55 ms. Staci, aby nekdo zatrhnul preruseni na delsi cas nez je 55ms a
uz se jeden impulz casovace ztraci. Videl jsem napr problemy zpusobene
Ahoj,
To bylo tim, ze DOS nebyl nikdy operacni system ;-)
> dusledkem pretizeneho IRQ systemu byly chyby v komunikaci s klavesnici
(projevovaly se nejvice v borlandim IDE) - stacilo zmacknout a drzet
kurzorovou sipku a misto posunu se psaly do textu cislice (2,8,.. - jako by
tohle byla chyba starsich BIOSu, ktera se projevovala s nekterymy typy
klavesnic. Tentyz problem byl s NumLockem nebo TMaskEdit komponentou.
> Windows pravdepodobne preprogramovavaji casovac tak, aby generoval preruseni
husteji - ale nejsem si tim moc jist.
Ve Windows si muzes donastaveni napsat sam, navic NT primo umoznuji nastavit
periodu po ktere se bude cas cist (viz funkce SetSystemTimeAdjustment)
Petr Vones, amatersky programator
pohyb TImage po Formu bez problikavani
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 11.2.2001 20:41:35
> Dobry den
>
> Pokud zobrazim TImage v mem konkretnim pripade o velikosti 200 x 77
> pixelu a posouvam s nim plynule po jednom pixelu po formu v jakemkoliv smeru
> pri prekreslovani je sice patrny plynuly pohyb obrazku, ale dochazi k
> problikavani. Jak se da tomuto problikavani zamezit. Popripade da se nejak
> posouvanim strefit do okamziku kdy neprobiha prekreslovani. Zajima me
> jakykoli napad nebo zpusob reseni problemu.
Nasledujici pouzivam ve svych komponentach, hadam, ze by to melo fungovat i pro
Image:
Odvod si TMyImage=class(TImage)
a pridej do Private sekce:
procedure WMEraseBkgnd(var Msg: integer); message WM_ERASEBKGND;
v Implementation pak:
procedure TMyImage.WMEraseBkgnd;
begin
end;
Blika to, protoze se komponenta pri kazdem posunuti premaze pozadim.
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Datab�ze
[*] L. ZITA <konference(zv)sales(tec)cz> - 11.2.2001 23:01:51
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, February 11, 2001 6:54 PM
Subject: Re: Datab�ze
> From: "Jaroslav #�hal" <cihal(zv)mppraha(tec)cz>
> > To znamen�, �e nem��u nikdy vytvo�it tak velkou datab�zi? Pot�ebuji v n�
> > uchov�vat data �innosti zam�stnanc� a podle toho co cht�j� sledovat to
> > vych�z� na 255 polo�ek na zam�stnance respektive se te� omezuji jen na
ty
>
> Ahoj,
>
> a co tu dabatazi navhrnout nejak jinak, napriklad rozdelit do vice
tabulek.
> Nebo v pripade jednoduche databaze nepouzivat databazi ale nejaky vlastni
> format.
>
> Petr Vones, amatersky programator
>
>
Ahoj.
Presne tak.
Na tohle by se hodila spise tato struktura:
hlavni tabulka
PK - identifikator zamestnance
Stredisko - nazev strediska
Uzivatel - nazev uzivatele
Zamestnanci
PK id zamestnance
xk tady asi bude vhodny pomocny klic treba autoincrement
Polozka nazev polozky
Hodnota hodnota polozky
Ja takhle delam adresare, ma to vyhodu , ze uzivatel muze mit u kazdeho
subjektu libovolny pocet polozek a ja predem nemusim vedet
co chce sledovat. A u kazdeho to muze byt jine, takze nvznikaji zbytecna
prazdna mista v databazi. Samozrejme, ze prace je s tim nekdy pomalejsi
ale pri rozumnem poctu subjektu se nepozna rozdil.
Ludek
Vice jazycna aplikace
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 12.2.2001 06:49:43
Presne tak.
Ladap
>>> pvones(zv)mbox.vol(tec)cz 10.2.01 14:56 >>>
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky
pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil
Ahoj,
jako ze si uzivatel bude sam lokalizovat vlastni aplikaci ?
Petr Vones, amatersky programator
SQLDA missing or incorrect version
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 12.2.2001 07:24:14
Mam problem:
Program (Delphi5+IB6) ktery na jednom pocitaci v pohode chodi
hlasi na jinem chybu SQL -804 SQLDA missing or incorrect
version..., nikde se mi nepodarilo najit podrobnejsi vysvetleni a
hlavne - jak chybu odstranit. Posledni moznost je, ze kde
nepomuze dokumentace, pomuze Delphi konference. Diky.
Z.Kalhous
hled�n� v datab�zi
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.2.2001 07:40:58
> Pros�m o vysv�tlen� tab.findkey, n�jak mi nechod�. nap��klad
> m�m datab�zi ��slo,jmeno,p��jmeni.Podle prvn�ho sloupce v#e
> chod� tab.findkey([3]) a nalezne,ale pro dal#� polo�ky neum�m.
> P�edem d�kuji
>
Priste prosim bez diakritiky. FindKey, pokud vim, hleda podle
aktualniho indexu. Tj. pred hledanim v jinem sloupci by asi bylo
potreba zmenit index. Jinou cestou by mohlo byt pouziti fce Locate
(viz help).
Vse bez zaruky, uz jsem to dlouho nepouzival.
David
pos�l�n� mailu
[*] milan_2(zv)sose-sou(tec)cz - 12.2.2001 8:08:14
Pod D3 mi to nechce pracovat, cim to ?
Neni to jen pod D5 ? Dik za odpoved.
Milan.>procedure TForm1.Button1Click(Sender: TObject);
>begin
>if NMSMTP1.Connected then
> NMSMTP1.Disconnect
> else
> begin
> NMSMTP1.Host := ''; // mail server
> NMSMTP1.UserID := ''; // existujuce konto
> NMSMTP1.Connect;
> end;
> NMSMTP1.SubType := mtPlain;
> NMSMTP1.EncodeType := uuMime;
> NMSMTP1.PostMessage.FromAddress := ''; // od koho
> NMSMTP1.PostMessage.FromName := 'Od koho';
> NMSMTP1.PostMessage.ToAddress.Text := ''; // komu
> NMSMTP1.PostMessage.Body.Text := 'text ktory chces poslat';
> NMSMTP1.PostMessage.Subject := 'subject';
> NMSMTP1.PostMessage.Date := 'datum';
> NMSMTP1.SendMail;
>end;
>
>S pozdravom,
>
>------------------------------
>R�bert �u#ka, spr�vca siete
>R�dio Lumen, Bansk� Bystrica
>Slovensk� republika
>www.lumen.sk
>spravca(zv)lumen.sk
>088/41 25 739 kl.14
>------------------------------
>otevreni prohlizece
[*] milan_2(zv)sose-sou(tec)cz - 12.2.2001 8:18:26
Pouzij APIFci SHellExecute
Priklad:
ShellExecute(0,'open',Pchar('www.moje.com'),nil,nil,Sw_ShowNormal);
a nebo to muzes napsat takhle :
ShellExecute(0,'open',Pchar(edit1.text),nil,nil,Sw_ShowNormal);
... kde v pouzitem objektu edit1 bude vepsan nejaky text [URL]
P.S>
Kdyz uz to pouzijes, nezapomen nahore nadeklarovat ShellApi knihovnu
Milan
zacatecnik
=============
Milan S.
SOSESOU UL
milan(zv)sose-sou(tec)cz
MAPIMessage & MAPISendMail
[*] milan_2(zv)sose-sou(tec)cz - 12.2.2001 8:24:12
Cauky Delphini
pouzivam Delphi3, W98 a mam nasledujici trouble>
Pro vyvol�n� formul߰e pro odesl�n� mailika jsem kdysi pou��val APIfunkci
ze ShellApi :
ShellExecute(0,'open',Pchar('mailto:something(zv)domain.com'),nil,nil,Sw_ShowNo
rmal);
Bohu�el to nedok�zalo nic jin�ho ne� vyvolat formul߰ Outlooku s vypln�nou
kolonkou pro mail. Velk� probl�m v#ak nastal na PC, kde nen� naistalov�n
Outlook, proto�e Windows pak nedok߿e pracovat s "z�stupci internetov�ch
adres", nebo# k nim nem� asociov�n ��dn� program.
Proto jsem za�al pou��vat MAPIMessage, ale zase mi zde n�jak unik�, kter�
parametr je pro nastaven� internetov� adresy. Pro#el jsem n�pov�du na dan�
t�ma v D3, kter� pou��v�m, ale nena#el jsem :( Subject a text je v pohode,
ale "mailto" mi nejak unika.
Pou��v� to funkci MAPISendMail ... pro#el jsem k tomu n�pov�du, ale prd jsem
na#el :( Nevi nekdo co s tim ?// pro ilustraci posilam priklad MAPIMessage tak,
jak ji pouzivam. Pokud na neco prijdete, dejte vedet.
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := Pchar('Kam mam dat adresu ?');
lpszNoteText := PChar(Memo_mail.text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;
MError := MapiSendMail(0, 0, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
end;
Kde u MAPIMesage nebo MAPISendMail mohu nastavit adresata ?
=============
Milan
Delphi beginner
Delphi 3, W98
pos�l�n� mailu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.2001 08:43:30
Pokud ti jde o to, abys mohl vygenerovat e-mail s korektne zakodovanou
cestinou (nejlepe metodou quoted-printable) a jeste aby se to za tebe
postaralo o prekodovani do kodove stranky ISO-8859-2 (ktera je dle RFC
jedina mozna pro posilani cestiny v e-mailech), tak vim pouze o jedne
free knihovne, ktera to dokaze... moje Synapse. :-)
(a jeste to dokaze vyrabet i prilohy, atd...)
> Mne prijde celkem jednoduchy SAKemail. Jedinou nevyhodou je, ze sem
> doposud neprisel na to, jak u nej poslat cestinu.
>
> http://sak.org.ar
>
> Mimoto mas neco primo v Delphinach.
>
> Postu posles nasledovne:
> na form das komponenty SakMsg (vlastni mail) a SakSMTP (odesilani
> mailu)
>
> Posilani vypada:
> Try
> SakMsg1 := TSakMsg.Create(Self);
> With SakMsg1 do
> begin
> // vyplneni maila:
>
> // kodovani
> CharSet := 'ISO 8859-2'; // cestina, bohuzel to nema vliv
> textEncoding := teBase64; // opet by melo ale nema vliv na
> cestinu
>
> // odesilatel
> UserName := 'Adam Feistner';
> From := 'feistna(zv)volny(tec)cz';
>
> // prijemce
> SendTo := 'adresat(zv)nekde(tec)cz';
> CC := 'adresat2(zv)nekde(tec)cz, adresat3(zv)nekde(tec)cz'; // kopie //
> BCC := 'adresat2(zv)nekde(tec)cz, adresat3(zv)nekde(tec)cz'; // skryta
> kopie
>
> // co a jak odesilas
> Priority := prHigh; // prNormal, prLow, prHigest, prLowest
> Subject := 'predmet maila'; Text.Assign(Memo1.Lines); // v
> Memo1 mas text maila... //
> AttachedFiles.Add(FullFileName); - kdybys chtel neco
> prikladat
> end;
> With SakSMTP1 do
> begin
> // poslani maila:
> Host := 'smtp.volny(tec)cz';
> Connect;
> If not SMTPError then
> begin
> SendTheMessage(SakMsg1); // odeslani
> Disconnect;
> end else MessageDlg('Neslo se pripojit, zkontrolujte stav
> sveho pripojeni...',mtWarning,[mbOK],0);
> end;
> Finally
> SakMsg1.Free;
> End;
>
> Take muzes zobrazovat stav odesilani (pres proceduru SnedProgress -
> najdes ji u SMTP komponenty), a pred a po odeslani muzes spustit
> nejakou proceduru (v udalosti BeforeSend a AfterSend - taktez u SMTP).
>
>
> S pozdravem,
>
> Adam Feistner
> feistna(zv)volny(tec)cz
> www.volny(tec)cz/feistna/cz.htm
>
> ----- Original Message -----
> From: "Vaclav Krejci" <krejciv(zv)ssakhk(tec)cz>
> Subject: pos�l�n� mailu
>
>
> > Zdravim,
> >
> > cht�l sem se jenom zeptat, jestli n�kdo
> > n�hodou nev�t� o n�jak� mail komponent�
> > nebo n�vodu, jde mi pouze o to, poslat maila
> > na ur�itou adresu + �ist� text a p�edm�t. D�k
> >
> >
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
InstallShield
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 12.2.2001 08:45:22
Zdravim,
pouzivam Delphi 5 prof,
kdyz v InstallShieldu vytvorim instalaci a spustim ji, na jinem PC, kde je jiz tento program nainstalovan, neprepise se mi vetsinou exe soubor. Lze s tim neco udelat? V Delphi 3 jsem s timto problem nemel.
S pozdravem
Mirek Drejcek.
Aktivita uzivatele na PC
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 12.2.2001 08:45:41
Dobry den
a co takhle otocit a napojit se pres Application na OnMessage a pak asi
takhle
procedure tModuleObject.MessageEvent (var msg : tMsg; var handled :
boolean);
begin
if ((WM_KEYFIRST<=msg.message)and(msg.message<=WM_KEYLAST))or
((WM_MOUSEFIRST<=msg.message)and(msg.message<=WM_MOUSELAST)) then
begin
LastTime:=Time; {cas pri stisku,pusteni klavesy a pohybu mysi}
end;
if (Assigned (OldMessageEvent)) then OldMessageEvent (msg,handled);
{OldMessageEvent uschovana puvodni hodnota OnMessage}
end;
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, February 10, 2001 11:37 PM
Subject: Re: Aktivita uzivatele na PC
> From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> > nevite nekdo, jak se da jednoduse zjistit, jak dlouho nebyl uzivatel
> > aktivni na PC? Tzn. jak dlouho je pryc od PC?
>
> Ahoj,
>
> ponekud neohrabane by to slo resit kontrolou v Timeru (cca po 10.sec), kde
by
> jsi mel takovouto funkci:
>
> var
> LastCursorPos: TPoint;
>
> function WasUserActive: Boolean;
> var
> VirtKey: Integer;
> CursorPos: TPoint;
> begin
> GetCursorPos(CursorPos);
> Result := (LastCursorPos.x <> CursorPos.x) or
> (LastCursorPos.y <> CursorPos.y);
> LastCursorPos := CursorPos;
> if not Result then
> for VirtKey := 1 to 255 do
> if GetAsyncKeyState(VirtKey) <> 0 then
> begin
> Result := True;
> Break;
> end;
> end;
>
> Bohuzel jak znamo jednoducha reseni nebyvaji nejlepsi a to plati i o
tomto.
> Obcas se stane, ze to nezachyti stisk klavesy.
>
> Petr Vones, amatersky programator
>Jak ziskat info o PCI zarizeni
[*] RNDr. Milan Vor�sek <vorisek(zv)igtt(tec)cz> - 12.2.2001 08:50:06
>> a co takhle vykuchat to z registru: od dob PnP je ve windows s klici:
>> HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\PCI\
>> + VEN_1039&DEV_5513&SUBSYS_55131039&REV_D0
>> to stejne, ale mozna se muze malinko lisit umisteni tohoto klice. Rozhodne
>> doporucuji hledat v registrech polozku "&SUBSYS_".
>> Tomas Rosa
Bohuzel ve Win NT jsem nic podobneho nenasel.
M.Vorisek
Jak ziskat info o PCI zarizeni
[*] RNDr. Milan Vo��ek <vorisek(zv)igtt(tec)cz> - 12.2.2001 09:04:53
>> procedure otput(addr:word;data:byte);
>> function input(addr:word):byte;
>Ahoj,
>doufam ze ty rutiny nevolaji jen asm IN/OUT instrukce na urovni aplikace. To
>pak nebude fungovat pod NT a bude "fungovat" ve Win9x.
>
>Petr Vones, amatersky programator
Ahoj,
ty rutiny jsou dodavane spolu s drivery pro kartu a funguji v NT.
To mam odzkousene a karta s nimi je plne funkcni k me spokojenosti.
Jedine co potrebuji je adresa portu karty PCI. Tu mohu zatim ziskat jen
externim programem a natvrdo napsat do aplikace. Kdyz vsak zakaznik
zmeni konfiguraci pocitace muze se tato adresa zmenit, proto potrebuji
ziskat adresu az za behu programu.
Opakuji tedu svuj dotaz: Je mozne nejak ziskat informace i PCI zarizeni
ze systemu Windows NT 4 (API ...)?
M.Vorisek
Datab�ze
[*] Jaroslav ��hal <cihal(zv)mppraha(tec)cz> - 12.2.2001 09:06:34
O jak� vlastn� form�t se jedn�?
#�hal Jaroslav
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Sunday, February 11, 2001 6:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Datab�ze
From: "Jaroslav #�hal" <cihal(zv)mppraha(tec)cz>
> To znamen�, �e nem��u nikdy vytvo�it tak velkou datab�zi? Pot�ebuji v n�
> uchov�vat data �innosti zam�stnanc� a podle toho co cht�j� sledovat to
> vych�z� na 255 polo�ek na zam�stnance respektive se te� omezuji jen na ty
Ahoj,
a co tu dabatazi navhrnout nejak jinak, napriklad rozdelit do vice tabulek.
Nebo v pripade jednoduche databaze nepouzivat databazi ale nejaky vlastni
format.
Petr Vones, amatersky programator
WinApi okno
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.2.2001 09:11:50
> Ahoj lidicky, chtel sem si zkusit udelat okno jenom pomoci WinApi, tak
> sem zkusil toto, ale nejak mi to nefacha. Error zadnej. Spustim, v
> seznamu aplikaci je, ale okno nejni videt. Kde mam chybu???
>
1) WndProc by mela mit STDCALL volaci konvenci
2) vraci RegisterClass nenulu?
3) vraci CreateWindow() platny handle (nenulu)?
D. Toman
> program Pokus;
> uses windows, messages;
> const szAppName : PChar = 'HelloWin';
>
> function WndProc(h:hwnd; Msg:UINT; WP:wParam; LP:lParam):LRESULT;
> var
> hd : HDC;
> ps : PAINTSTRUCT;
> R : TRect;
> begin
> case Msg of
> WM_CREATE : begin;
> MessageBox(0,PChar('Hello'),szAppName,MB_ICONERROR);
> Result:=0; Exit;
> end;
> WM_PAINT : begin
> hd:= BeginPaint(h,ps);
> GetClientRect(h,R) ;
> DrawText(hd,PChar('Ahoj Windows 98!'),-1,R,
> DT_SINGLELINE or DT_CENTER or DT_VCENTER);
> EndPaint(h,ps);
> Result:=0; Exit;
> end;
> WM_DESTROY : begin
> PostQuitMessage(0);
> Result:=0; Exit;
> end;
> end;
> Result:=DefWindowProc(h,Msg,WP,LP);
> end;
>
> var
> h : hwnd;
> m : msg;
> w : wndclass;
> begin
> w.style := CS_HREDRAW or CS_VREDRAW ;
> w.lpfnWndProc := (zv)WndProc;
> w.cbClsExtra := 0;
> w.cbWndExtra := 0;
> w.hInstance := hInstance ;
> w.hIcon := LoadIcon(0,IDI_APPLICATION);
> w.hCursor := LoadCursor(0,IDC_ARROW);
> w.hbrBackground := HBRUSH (GetStockObject (WHITE_BRUSH));
> w.lpszMenuName := NIL;
> w.lpszClassName := szAppName;
> RegisterClass(w);
> h:=CreateWindow(szAppName,PChar('Program Ahoj'),WS_OVERLAPPEDWINDOW,
> 0,0,100,100,0,0,hInstance,NIL);
> ShowWindow(h,SW_MAXIMIZE);
> UpdateWindow(h);
> while GetMessage(m,0,0,0) do begin
> TranslateMessage(m);
> DispatchMessage(m);
> end;
> Halt(m.wParam);
> end.
>
> --
> Martin Pe#ava
>
> /--------------------------------------------------------------\
> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
> | WebMaster of |
> |http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
> \--------------------------------------------------------------/
vyska ComboBoxu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.2.2001 09:15:58
ahoj,
jakym zpusobem lze zmenit vysku ComboBoxu?
vim, ze se combicko vytvari primo pres api woken,
ale imho to nejak musi jit ne?
imho zasejc pres nejaky api a nastavovani params pro vytvareni to comba.
potreboval bych ho vysoky pouze 18 pixelu.
edit box je v pohode a pismenka se vejdou, ale s tim ComboBoxem nemuzu
hnout.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Vice jazycna aplikace
[*] Roman Brad�����##����u#�#��j_� - 12.2.2001 09:17:34
Skus pouzit ini soubory.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Parizsky Ladislav
Sent: Monday, February 12, 2001 6:50 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vice jazycna aplikace
Presne tak.
Ladap
>>> pvones(zv)mbox.vol(tec)cz 10.2.01 14:56 >>>
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky
pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil
Ahoj,
jako ze si uzivatel bude sam lokalizovat vlastni aplikaci ?
Petr Vones, amatersky programator
Zpomalov�n� �asu na PC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.2.2001 09:18:05
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > DOS (nebo uz BIOS ??) nastavuje casovac tak, ze generuje preruseni cca
> kazdych 55 ms. Staci, aby nekdo zatrhnul preruseni na delsi cas nez je
55ms a
> uz se jeden impulz casovace ztraci. Videl jsem napr problemy zpusobene
>
> Ahoj,
>
> To bylo tim, ze DOS nebyl nikdy operacni system ;-)
systemovy veci se pro nej ale programovaly ponekud jednoduseji ...
> > Windows pravdepodobne preprogramovavaji casovac tak, aby generoval
preruseni
> husteji - ale nejsem si tim moc jist.
>
> Ve Windows si muzes donastaveni napsat sam, navic NT primo umoznuji
nastavit
> periodu po ktere se bude cas cist (viz funkce SetSystemTimeAdjustment)
to se ztratou interrupt signalu ale moc nesouvisi , ze? Tuhle funkci muzu
pouzit pokud _VIM_ presne o kolik se hodiny zpozdi...
D. Toman
Pristup ke vzdalenym datum
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.2.2001 09:23:38
Ahoj,
chtel bych vas poprosit o nazory, jak se pustit do reseni neceho
takovehoto:
Je firma, ktera ma mnoho pobocek po cele republice a casem
budou i v zahranici. Na ustredi bude SQL server, patrne IB6.
Jednotlive pobocky maji mit moznost data z centraly prohlizet,
tisknout sestavy atd. (tj. bez moznosti editace). Prenos dat na
klienta by mel byt pokud mozno chranen proti zneuziti.
Muzete me prosim nejak nakopnout, kudy se do toho pustit,
jakou technologii? Diky,
David
Treeview s checkboxem u kazdeho nodu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.2.2001 10:15:45
> -----Original Message-----
> From: Zbysek Hlinka [mailto:hlinka(zv)hlinka(tec)cz]
> > TTreeNode ma vlastnost StateIndex kde si muzes pridat jeste jednu
> > dalsi ikonu. Vytvor si tedy checkbox ikonu a tou takto odlisis
> > zaskrtle polozky.
>
> Presne tento zpusob pouzivam v nove verzi Lokalizatoru. Kdo se na
Zdravim,
to funguje. Ale jak zjistim, ze uzivatel klepnul na image a nikoliv na
popis nodu?
Ales
hled�n� v datab�zi
[*] bures <bures(zv)ssakhk(tec)cz> - 12.2.2001 10:18:54
Ahoj podle toho co pisou v napovede tak funkci finndkey muzes pouzit pouze
na klicovou polozku.
Vlada
----- Original Message -----
From: <mdelphi(zv)email(tec)cz>
Sent: Friday, February 09, 2001 6:35 PM
Subject: hled�n� v datab�zi
> Pros�m o vysv�tlen� tab.findkey, n�jak mi nechod�. nap��klad
> m�m datab�zi ��slo,jmeno,p��jmeni.Podle prvn�ho sloupce v#e
> chod� tab.findkey([3]) a nalezne,ale pro dal#� polo�ky neum�m.
> P�edem d�kuji
>
> EMAIL.CZ - Vase posta je vzdy s Vami na
> http://www.email(tec)cz
>
>Kopirovani do vice adresaru pomoci ShellAPI (TSHFi
[*] Ivo Karko�ka <ikarkoska(zv)seznam(tec)cz> - 12.2.2001 10:19:55
Zdravim vsechny v konferenci.
Delsi dobu jsem hledal, jak kopirovat soubory. CopyFile se ukazal jako nepouzitelny a tak jsem to zkusil s API. V nasledujicim prikladu jsem schopen zkopirovat prakticky jakykoli soubor do adresare "bbb" a to i z nekolika ruznych adresaru. To v cem ale tkvi podstata meho problemu je, ze nemuzu prijit na to, jak kopirovat soubory DO nekolika adresaru najednou. Ve chvli kdy zkusim stejne parametry (davku) jako u "pFrom" program nahlasi, ze soubor existuje a tudiz nelze zapsat. Nechci tento problem resit opakovanim stejne rutiny. Neexistuje na to kopirovani do nekolika adresaru nejaky parametr ?
Ivo Karkoska
-------------------------------------------------
uses ShellAPI
var
FileOp: TSHFileOpStruct;
begin
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom := 'C:\aaa\*.*'#0 + 'C:\ddd\*.*'#0#0;
pTo := 'C:\bbb\'#0#0;
fFlags := FOF_SILENT;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Error');
if (SHFileOperation(FileOp) = 0) then StatusBar1.Panels[0].Text:='#ek�m';
end;
_____________________________________________________________________
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
pos�l�n� mailu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.2001 10:28:33
vykasli se na tyhle komponenty, pouzij moji Synapsi, ta funguje od D2 a
vys, ba dokonce po male uprave (v dalsim vydani uz to bude udelane
nastalo) i v C++builderu. :-)
A jeste je tam poslani e-mailu mnohem jednodusi! staci zavolat tuto
funkci:
function Sendto
(mailfrom,mailto,subject,SMTPHost:string;maildata:TStrings):Boolean;
> Pod D3 mi to nechce pracovat, cim to ?
> Neni to jen pod D5 ? Dik za odpoved.
>
> Milan.
>
>
> >procedure TForm1.Button1Click(Sender: TObject);
> >begin
> >if NMSMTP1.Connected then
> > NMSMTP1.Disconnect
> > else
> > begin
> > NMSMTP1.Host := ''; // mail server
> > NMSMTP1.UserID := ''; // existujuce konto
> > NMSMTP1.Connect;
> > end;
> > NMSMTP1.SubType := mtPlain;
> > NMSMTP1.EncodeType := uuMime;
> > NMSMTP1.PostMessage.FromAddress := ''; // od koho
> > NMSMTP1.PostMessage.FromName := 'Od koho';
> > NMSMTP1.PostMessage.ToAddress.Text := ''; // komu
> > NMSMTP1.PostMessage.Body.Text := 'text ktory chces poslat';
> > NMSMTP1.PostMessage.Subject := 'subject';
> > NMSMTP1.PostMessage.Date := 'datum';
> > NMSMTP1.SendMail;
> >end;
> >
> >S pozdravom,
> >
> >------------------------------
> >R�bert �u#ka, spr�vca siete
> >R�dio Lumen, Bansk� Bystrica
> >Slovensk� republika
> >www.lumen.sk
> >spravca(zv)lumen.sk
> >088/41 25 739 kl.14
> >------------------------------
> >
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Pristup ke vzdalenym datum
[*] Lubo Fule <fule(zv)sct.sk> - 12.2.2001 10:42:05
> Je firma, ktera ma mnoho pobocek po cele republice a casem
> budou i v zahranici. Na ustredi bude SQL server, patrne IB6.
> Jednotlive pobocky maji mit moznost data z centraly prohlizet,
> tisknout sestavy atd. (tj. bez moznosti editace). Prenos dat na
> klienta by mel byt pokud mozno chranen proti zneuziti.
Ja by som na ustredi zriadil WWW server a urobil nejaku vhodnu WWW aplikaciu
napr. v jave a klientom by potom stacil bezny WWW browser. Ma to tiez tu
vyhodu, ze nove verzie by nebolo treba zlozitym sposobom distribuovat. Co sa
tyka bezpecnosti dat, tak je mozne pouzit HTTPS.
L.
Lock timeout - chyba
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 12.2.2001 10:43:52
Zdravim vsechny,
nema nekdo zkusenosti s chybou lock timeout s paradoxima tabulkama? Cim to
je, co s tim, atd.
Aplikace neni moje, takze mne nekamenujte za ten Paradox.
diky
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Treeview s checkboxem u kazdeho nodu
[*] Marcant <marcant(zv)sct.sk> - 12.2.2001 11:07:08
Pozri si metodu TTreeView.GetHitTestInfoAt (konkretne htIcon) a pouzi ju v
OnMouse Down.
> Zdravim,
>
> to funguje. Ale jak zjistim, ze uzivatel klepnul na image a nikoliv na
> popis nodu?
>
> Ales
FAXOVANI Z DELPHI
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 12.2.2001 11:23:41
Ahoj
Existuje nejaky postup ci komponenta na zaslani tiskove sestavy na FAX
napriklad na tiskarnu Microsoft Fax tak aby vytacene cislo bylo mozne zadat
v
primo v programu tim byl odstranen jakykoliv dialog s uzivatelem ?
Jiri Heinisch
SQLDA missing or incorrect version
[*] rado(zv)nnsk.sk - 12.2.2001 11:42:42
> Program (Delphi5+IB6) ktery na jednom pocitaci v pohode chodi
> hlasi na jinem chybu SQL -804 SQLDA missing or incorrect
> version..., nikde se mi nepodarilo najit podrobnejsi vysvetleni a
> hlavne - jak chybu odstranit. Posledni moznost je, ze kde
> nepomuze dokumentace, pomuze Delphi konference. Diky.
1. Pozrel by som si verziu gds32.dll, ja mam WI-T0.9.4.41
z 29.12.2000. Odporucam co najnovsiu.
2. Pri pouziti stored procedur odporucam pouzit volania
Prepare / Unprepare pred a po kazdom volani, napr
with StoredProc1 do
begin
StoredProcName := 'TEST';
Prepare;
// ...
ParamByName('HUHU').AsInteger := 1;
// ...
ExecProc;
UpPrepare;
end;
3. Problemom moze byt aj UDF.
Bez blizsich informacii tazko povedat.
Pozeral som archivy na www.mers.com, ale zda sa ze chyba
nema jednoznacne urcitelnu pricinu.
HTH,
bego
zvlastnost u pocitadla pro web
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 12.2.2001 12:00:24
Dobr� den,
vyrobil jsem prave pocitadlo pro webik, facha skvele u me, ale kdyz
to soupnu na server, kde je pouze 16barev (proc mit taky na serveru
vice ze) tak se mi nedosazuje barva pozadi ale hazi se tam jina ...
Proste to vypada jako by ta graficka operace zavisela na barevne
hloubce u woken. TO zame se mi deje i kdyz pouzivam all thumbs.
Nevite nekdo kde je problem ? Nevim co je v tom serveru za grafarnu
a jezdit tam kvuli tomu se mi nechce. Nainstalovat ovladac muzu na
dalku. Da se nejak zjistit grafarna pomoci nejake utilitky, ale
myslim hw kartu, ne tu kterou mam nainstalovanou (standart vga) ??
Prip je chyba nekde jinde ?
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
InstallShield
[*] Milan Dvorak <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.2.2001 12:08:31
> Zdravim,
> pouzivam Delphi 5 prof,
> kdyz v InstallShieldu vytvorim instalaci a spustim ji, na jinem PC, kde je jiz tento program nainstalovan, neprepise se mi vetsinou exe soubor. Lze s tim neco udelat? V Delphi 3 jsem s timto problem nemel.
> S pozdravem
> Mirek Drejcek.
>
>
Mas li vyvolano pridavani souboru, je tam tlacitko Properties - zkus
je zmacknout a uvidis.
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
InstallShield
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 12.2.2001 12:09:52
Mel jsem podobn� probl�m s Inno Setupem, mozna to bude stejne. Program se
neprepsal, i kdyz byl novejsi, pokud obsahoval informace o verzi a ty se
nezmenily. Jinymi slovy bylo jedno jake je datum souboru, rozhodujici byla
verze. Takze reseni bylo bud vnutit nejaky priznak "vzdy_prepsat_soubor"
(nevim jestli to Instali Shield umi), nebo zmenit verzi souboru.
Ales
-----Original Message-----
From: "Mirek Drejeek" [mailto:drejcek(zv)schkocr(tec)cz]
Sent: Monday, February 12, 2001 8:45 AM
To: Konference Delphi
Subject: InstallShield
Zdravim,
pouzivam Delphi 5 prof,
kdyz v InstallShieldu vytvorim instalaci a spustim ji, na jinem PC, kde je
jiz tento program nainstalovan, neprepise se mi vetsinou exe soubor. Lze s
tim neco udelat? V Delphi 3 jsem s timto problem nemel.
S pozdravem
Mirek Drejcek.Vice jazycna aplikace
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 12.2.2001 12:18:19
Cau,
reseni jsou to krokolomna to uz to muzu nechat v ty tabulce myslel sem zda by se to nedalo nejak udelat pre resourcestrings. Jak vubec fungujou ty resourcestrings ?
dik Ladap
>>> romanbradac(zv)seznam(tec)cz 12.2.01 9:17 >>>
Skus pouzit ini soubory.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Parizsky Ladislav
Sent: Monday, February 12, 2001 6:50 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vice jazycna aplikace
Presne tak.
Ladap
>>> pvones(zv)mbox.vol(tec)cz 10.2.01 14:56 >>>
From: "Parizsky Ladislav" <parizsky(zv)access-it(tec)cz>
> mam dotaz ohledne jazyku v aplikaci. Potrebuji aby si uzivatel mohl jazyky
pridavat, upravovat, mazat a menit za behu programu. Drive jsem to resil
Ahoj,
jako ze si uzivatel bude sam lokalizovat vlastni aplikaci ?
Petr Vones, amatersky programator
InstallShield
[*] rado(zv)nnsk.sk - 12.2.2001 12:37:02
> kdyz v InstallShieldu vytvorim instalaci a spustim ji,
> na jinem PC, kde je jiz tento program nainstalovan,
> neprepise se mi vetsinou exe soubor.
> Lze s tim neco udelat? V Delphi 3 jsem s timto problem nemel.
V InstallShielde je polozka Specify Groups and Files.
Umoznuje urcit okrem suborov ktore sa maju nainstalovat i to,
ako sa ma InstallShield chovat ak subor uz existuje.
V okne Specify Groups and Files zalozka, Group, button
Properties, File update methods
1. updatuje len ak je vo VERSIONINFO resource
specifikovana novsia verzia (vacsinou cez FileVersion)
2. berie do uvahy datum subory
3. prepisuje vzdy
4. neprepisuje nikdy
Nastavenie as vztahuje na celu skupinu (skupin moze byt vela),
HTH,
bego
Treeview s checkboxem u kazdeho nodu
[*] MDvorak(zv)csas(tec)cz - 12.2.2001 12:47:21
Mam jeden drobny dotaz. Proc na me Lokalizator pri pokusu o Add Project
porad rve "Catastrophic failure" ?
Mam W2k Prof.
M. Dvorak
-----Original Message-----
From: Zbysek Hlinka [mailto:hlinka(zv)hlinka(tec)cz]
Sent: Saturday, February 10, 2001 10:29 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Treeview s checkboxem u kazdeho nodu
On 9 Feb 2001, at 20:30, Petr Vones wrote:
> > nemate nekdo komponentu Treeview, ktera by umoznovala dat ke kazdemu
> > nodu checkbox? Dost nutne bych to potreboval. Hledal jsem na
> > Internetu,
>
> TTreeNode ma vlastnost StateIndex kde si muzes pridat jeste jednu
> dalsi ikonu. Vytvor si tedy checkbox ikonu a tou takto odlisis
> zaskrtle polozky.
Presne tento zpusob pouzivam v nove verzi Lokalizatoru. Kdo se na
to chce podivat, muze si stahnout z http://www.hlinka(tec)cz/ll5/ll5.zip
beta verzi, a pripadne si s ni pohrat, bude-li chut. Prijimam
pripominky a namety na vylepseni. Upozorneni: ne vse zatim
funguje jak by melo. Testovano zatim pouze na W2000.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
InstallShield
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 12.2.2001 13:06:20
V Groups je nutne v Properties nastavit File update method.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Mirek Drej�ek
To: Konference Delphi
Sent: Monday, February 12, 2001 8:45 AM
Subject: InstallShield
Zdravim,
pouzivam Delphi 5 prof,
kdyz v InstallShieldu vytvorim instalaci a spustim ji, na jinem PC, kde je jiz tento program nainstalovan, neprepise se mi vetsinou exe soubor. Lze s tim neco udelat? V Delphi 3 jsem s timto problem nemel.
S pozdravem
Mirek Drejcek.Pristup ke vzdalenym datum
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 12.2.2001 13:07:46
Coz takhle pouzit replikaci? Pokud je IB umi (to nevim, nebot s ni nedelam).
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 12, 2001 9:23 AM
Subject: Pristup ke vzdalenym datum
> Ahoj,
>
> chtel bych vas poprosit o nazory, jak se pustit do reseni neceho
> takovehoto:
>
> Je firma, ktera ma mnoho pobocek po cele republice a casem
> budou i v zahranici. Na ustredi bude SQL server, patrne IB6.
> Jednotlive pobocky maji mit moznost data z centraly prohlizet,
> tisknout sestavy atd. (tj. bez moznosti editace). Prenos dat na
> klienta by mel byt pokud mozno chranen proti zneuziti.
>
> Muzete me prosim nejak nakopnout, kudy se do toho pustit,
> jakou technologii? Diky,
>
> David
>MAPIMessage & MAPISendMail
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 12.2.2001 13:42:00
----- Original Message -----
From: <milan_2(zv)sose-sou(tec)cz>
Ahoj,
> Proto jsem za�al pou��vat MAPIMessage, ale zase mi zde n�jak unik�, kter�
> parametr je pro nastaven� internetov� adresy. Pro#el jsem n�pov�du na dan�
> ...
> pro ilustraci posilam priklad MAPIMessage tak,
> jak ji pouzivam. Pokud na neco prijdete, dejte vedet.
>
> MapiMessage: TMapiMessage;
> ...
> lpszSubject := Pchar('Kam mam dat adresu ?');
> ...
> nRecipCount := 0;
> lpRecips := nil;
sem to daj!! nRecipCount je pocet prijemcov (recipient) a lpRecips je
pointer na pole prijemcov. Strukturu si pozri v helpe.
Pavol Stolc
pstolc(zv)sc.sknet.sk
InstallShield
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 12.2.2001 12:54:29 met-1
> kdyz v InstallShieldu vytvorim instalaci a spustim ji, na jinem PC, kde je=
> jiz tento program nainstalovan, neprepise se mi vetsinou exe soubor. Lze s=
> tim neco udelat? V Delphi 3 jsem s timto problem nemel.
A mas nastaveny spravne Properties pro prislusnou File Group?
Jirka.RICHEDIT a SCALEBY
[*] Uniplet T�eb�� - elektronika - 12.2.2001 14:04:53
Ahoj
potreboval bych nejakym zpusobem delat ve sve aplikaci neco jako ZOOM ( zvetsovani a zmensovani pohledu na text )
podle urcitych navolenych hodnot, proto jsem to skusil pres SCALEBY, vsechno bylo vporadku, pokud se v richeditu
nenachazelo pismo ruzne vysoke s ruznym fontem, v tu chvili se vsechno preplo do nejakeho standartniho fontu o
nejake vysce a cely dokument to rozhazelo, proto se chci zeptat, jestli jste uz nekdo resil neco podobneho, nebo
jestli nevite o nejakem zpusobu jak by to mohlo jit
Dik za pripadnou inspiraci
Zpomalov�n� �asu na PC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2001 14:05:20
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> to se ztratou interrupt signalu ale moc nesouvisi , ze? Tuhle funkci muzu
> pouzit pokud _VIM_ presne o kolik se hodiny zpozdi...
Ahoj,
je to mozne, blizsi informace jsem o tom nenasel. V popisu funkce je:
The SetSystemTimeAdjustment function enables or disables periodic time
adjustments to the system's time-of-day clock. Such time adjustments are used
to synchronize the time of day with some other source of time information
Predpokladam ze 'other source of time information' predstavuje nejaky
presnejsi zdroj casoveho udaje.
Petr Vones, amatersky programator
OT: DBF identifikatory LangDrivera
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.2.2001 14:10:10
Ahoj,
29. byte hlavicky DBF suboru urcuje pozadovany LangDriver.
Nikde som vsak nenasiel aka hodnota tohto byte
plati pre jednotlive kodove stranky.
Potrebujem hodnotu tohto byte pre stranky:
CP 1250 - Windows,
CP 852 - Latin2 pre DOS
CP 859 - Latin2 pre Unix
CP 862 - Br.Kamenicki
Za pripadnu radu dakujem.
Vlkovic
Otevreni vice oken z aplikace na spodni liste
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 12.2.2001 14:20:19
Dobry den,
potreboval bych v jedne aplikaci vytvorit okna,
ktera by byla videt dole na liste.Obdobne pracuje napr.Word,
kdy pri otevreni vice dokumentu tyto jsou videt na liste,
na CTRL-ALT-DEL je videt jen jeden Word, ALT-TAB jsou videt
vsechny dokumenty.
Nevim jak toto napsat.
Predem diky za radu
Frantisek Macala
macala(zv)praktik(tec)cz
RICHEDIT a SCALEBY
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.2.2001 14:22:09
Ahoj,
ja to delam pomoci zpravy
SendMessage(Handle, EM_SETZOOM, Citatel, Jmenovatel);
handle je HWND toho richeditu
EM_SETZOOM = (WM_USER + 225);
Citatel - integer od 1 do 64
Jmenovatel - integer od 1 do 64
podil Citatel/Jmenovatel definuje zvetseni (zmenseni)
Umi to Richedit od verze 3.0.
Dalsi rozumy jsou na MSDN.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Uniplet T�eb�� - elektronika
Odesl�no: 12. �nora 2001 14:05
Komu: Delphi konference
P�edm�t: RICHEDIT a SCALEBY
Ahoj
potreboval bych nejakym zpusobem delat ve sve aplikaci neco jako ZOOM (
zvetsovani a zmensovani pohledu na text )
podle urcitych navolenych hodnot, proto jsem to skusil pres SCALEBY,
vsechno bylo vporadku, pokud se v richeditu
nenachazelo pismo ruzne vysoke s ruznym fontem, v tu chvili se vsechno
preplo do nejakeho standartniho fontu o
nejake vysce a cely dokument to rozhazelo, proto se chci zeptat, jestli
jste uz nekdo resil neco podobneho, nebo
jestli nevite o nejakem zpusobu jak by to mohlo jit
Dik za pripadnou inspiraci
P�evod ��sla
[*] bures <bures(zv)ssakhk(tec)cz> - 12.2.2001 14:27:46
Ahoj
neco takovehoto ????
Format('%0.3e', [123456.0])
% - odvolava se na cislo co chces formatovat (v tomto pripade to musi byt
float)
0.3 - 0 pocte mezer pred stringem, 3 - pocet destinych mist
e - Scientific. The argument must be a floating-point value. The value
is converted to a string
of the form "-d.ddd...E+ddd". The resulting string starts with a
minus sign if the number
is negative. One digit always precedes the decimal point.
viz help (funkce format)
Vlada
----- Original Message -----
From: <mdelphi(zv)email(tec)cz>
Sent: Friday, February 09, 2001 6:31 PM
Subject: P�evod ��sla
> Pros�m jak p�evedu ��slo 123456, aby se zobrazovalo jako 12,35E+4.Bylo
> mi razeno: format, ale bohu�el jsem ho asi nepochopil, proto uve�te i
> p��klad.
> Mockr�t d�kuji
>
> EMAIL.CZ - Vase posta je vzdy s Vami na
> http://www.email(tec)cz
>
>Komponenty na PGP
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 12.2.2001 14:31:24
Zdrav�m,
nev�te nekdo o komponent�ch na kod�v�n� a rozk�dov�n� souboru pomoc� PGP.
d�ky
Mgr. Petr Kellner
Praktik SW, spol. s r.o.
V. Outraty 7, Prost�jov, 796 00
Tel : 0508/365583
Fax : 0508/365512
e-mail: mailto:kellner(zv)praktik(tec)cz
Web : http://www.praktik(tec)cz
ICQ : 104088467
puvodni velikost okna
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 12.2.2001 14:34:59
Pekny den,
nevite nekdo, je mozne v Delphi zjistit, na jakou velikost se
zmensi velikost okna ( formulare ) po prepnuti ze stavu "Maximalizovano"
na "Normal" ? Nemuzu to nikde najit. Pred ukoncenim aplikace potrebuju
totiz ulozit na disk stav a velikost formulare, ale je-li ve stavu
wsMaximized neumim zjistit, na jakou velikost se zmensi po uvedeni do
stavu wsNormal.
Dekuju, Dan
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001