Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 18.2.2002 09:08:40
ANO, to jr ono, konkretne komponenta TPerfMonitor.
Doporucuji pouzivat POUZE nastaveni anglicke (009).
Jen to ma cele jednu vadu na krase, nikde se nepise,
ze na jinych Win tyto klice take existuji, ale to je vada
systemu, nikoliv komponent.
Slavek
> Teda nesleduju tuhle debatu od zacatku, takze mozna nosim drivi do lesa,
> ale nejde pouzit rovnou Perfutils
> http://www.aldyn.ru/products/perfutils/index.html ?
>
> Ales
Pocet suborov v adresare
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 09:09:14
> if (sr.name <> '') and (sr.name[1] <> '.') and (sr.attr and faDirectory >
0)
> then
Pozor, ta podmienka sr.name[1] <> '.' nestaci, pretoze moze existovat subor
alebo adresar, ktory ju splna, napr:
.txt
Takze treba kontrolovat explicitne '.' a '..', napr. takto:
(sr.name <> '.') and (sr.name <> '..')
TOndrej
Automation, Destroy
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 09:11:23
> potreboval by som spravit Automation Object, ktory by pri
> uvolneni napriklad zobrazil MessageBox.
> teda napriklad kod:
>
> Set A = CreateObject("Auto.Auto")
> Set A = nil
>
> by zobrazilo MessageBox, s informaciou "Objekt zruseny".
> existuje nejaka metoda, ktora je vyvolana pri "Set A = nil" ???
malo by stacit overridnut destructor Free
HTH
TOndrej
IB na Win2000 a subor services
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 18.2.2002 09:12:48
>
> Jo, presne tam. Jinak pro zapis/cteni toho souboru jsou Winsock funkce.
>
> Petr Vones
>
Ahoj Petre,
ktere to, prosim Te, jsou funkce?
MiP
IB a insert do NotNull poli
[*] Martinec <martin108(zv)post(tec)cz> - 18.2.2002 09:27:24
Zkus se trochu zamyslet nad slovem DEFAULT, strucne receno jeho pouziti znamena zhruba toto: pokud pri vlozeni radku nebyla zadana hodnota, dosad hodnotu uvedenou za slovem DEFAULT. Pokud v prikazu INSERT pole a hodnotu zadas, do pole se dosadi tato zadana hodnota.
Martinec
> -----Original Message-----
> From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
>
> Tohle jsem nemyslel, to umim, jenze je to silene pracne (hodne
> tabulek, hodne sloupecku a co kdyz se pak rozhodnu default
> upravit..., nezapomenout na to pri pridani novych tabulek...).
> Dlouho bych popisoval, proc to potrebuji, ale doufal jsem, ze
> existuje nejaky flag nebo neco, co bez zasahu do databaze i do
> programu rekne serveru, ze kdyz prijde prikaz
>
> insert into bla (...) values (..., NULL, ...) a dany sloupec nebude
> bude NOT NULL s default hodnotou, tak aby ji pouzil misto NULL.
>
> Vim, ze to je nestandardni chovani a teprve pokud by to neslo
> zajistit, budu hledat nahradni reseni.
>
> V kazdem pripade to davam jako argument proti pouzivani dbaware
> komponent pro editaci.
>
> David Lebeda
Jak na celkovy pocet handlu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 10:28:34
> ANO, to jr ono, konkretne komponenta TPerfMonitor.
> Doporucuji pouzivat POUZE nastaveni anglicke (009).
> Jen to ma cele jednu vadu na krase, nikde se nepise,
> ze na jinych Win tyto klice take existuji, ale to je vada
> systemu, nikoliv komponent.
A ten komponent Ta nejako nuti pouzit nastavenie jazyka?
Ved pocet handlov procesu od jazyka nijako nezavisi...
Myslim, ze performance counters sa daju citat priamo cez indexy a ich nazvy
k tomu nepotrebujes poznat.
TOndrej
OT cislo CD ve Windows
[*] Rado Benc <bego(zv)pobox.sk> - 18.2.2002 10:34:05
Nazdar,
> > nevite jak ziskat cislo CD ve Windows, ktere se pouziva v
> > CDPLAYER.INI ?
// Comment: The CD may or may not have a serial number and/or Universal
Product
// Code embedded in the CD. The MCI Windows extension does provide this
// functionality through the MCI_INFO_MEDIA_IDENTITY command. This command
will
// return a unique ID string consisting of 16 hexadecimal digits.
function GetAudioCDSerialNumberStr(const Drive: Char): String;
{$IFDEF MSWINDOWS}
var
MSP: TMCI_INFO_PARMS;
MediaString: array[0..255] of char;
Ret: longint;
{$ENDIF}
begin
Result := '';
{$IFDEF MSWINDOWS}
with TMediaPlayer.Create(nil) do
try
Visible := FALSE;
Parent := Application.MainForm;
Shareable := TRUE;
DeviceType := dtCDAudio;
FileName := Drive + ':\';
Open;
Application.ProcessMessages;
FillChar(MediaString, SizeOf(MediaString), #0);
FillChar(MSP, SizeOf(MSP), #0);
MSP.lpstrReturn := (zv)MediaString;
MSP.dwRetSize := 255;
Ret := MciSendCommand(DeviceId,
MCI_INFO,
MCI_INFO_MEDIA_IDENTITY,
longint((zv)MSP));
Result := String(MediaString);
if Ret <> 0 then
begin
MciGetErrorString(Ret, MediaString, SizeOf(MediaString));
ShowMessage(MediaString);
end;
Close;
finally
Application.ProcessMessages;
Free;
end;
{$ENDIF}
end;
HTH,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
Jak na celkovy pocet handlu
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 18.2.2002 10:35:03
> > ANO, to jr ono, konkretne komponenta TPerfMonitor.
> > Doporucuji pouzivat POUZE nastaveni anglicke (009).
> > Jen to ma cele jednu vadu na krase, nikde se nepise,
> > ze na jinych Win tyto klice take existuji, ale to je vada
> > systemu, nikoliv komponent.
>
> A ten komponent Ta nejako nuti pouzit nastavenie jazyka?
> Ved pocet handlov procesu od jazyka nijako nezavisi...
> Myslim, ze performance counters sa daju citat priamo cez
> indexy a ich nazvy
> k tomu nepotrebujes poznat.
No takhle komponenta umi nejen cist, ale treba i listovat seznamem
dostupnych hodnot.... takze je celkem "vhodne", aby to byla jmena.... A
asi prave kvuli kompatibilite umi vsechny systemy anglictinu.... Nakonec
at si kazdy pouzije co chce, tohle je hotove, funkcni a zadarmo ;)
Ales
IB a insert do NotNull poli
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2002 11:11:23
> Zkus se trochu zamyslet nad slovem DEFAULT, strucne receno jeho
> pouziti znamena zhruba toto: pokud pri vlozeni radku nebyla zadana
> hodnota, dosad hodnotu uvedenou za slovem DEFAULT. Pokud v prikazu
> INSERT pole a hodnotu zadas, do pole se dosadi tato zadana hodnota.
Ja vim, toto je standardni chovani pro default. Ale umel bych si
predstavit i takovouto interpretaci (samozrejme implicitne
zakazanou): Pokud zadanou hodnotu do daneho sloupce z
jakehokoliv duvodu nejde vlozit (NULL, validation apod.), pouzij
default.
David Lebeda
>
> > Tohle jsem nemyslel, to umim, jenze je to silene pracne (hodne
> > tabulek, hodne sloupecku a co kdyz se pak rozhodnu default
> > upravit..., nezapomenout na to pri pridani novych tabulek...).
> > Dlouho bych popisoval, proc to potrebuji, ale doufal jsem, ze
> > existuje nejaky flag nebo neco, co bez zasahu do databaze i do
> > programu rekne serveru, ze kdyz prijde prikaz
> >
> > insert into bla (...) values (..., NULL, ...) a dany sloupec nebude
> > bude NOT NULL s default hodnotou, tak aby ji pouzil misto NULL.
> >
> > Vim, ze to je nestandardni chovani a teprve pokud by to neslo
> > zajistit, budu hledat nahradni reseni.
> >
> > V kazdem pripade to davam jako argument proti pouzivani dbaware
> > komponent pro editaci.
> >
> > David Lebeda
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 18.2.2002 11:17:46
Bohuzel je znat musis, jinak nevis co jsi precetl.
Nejdrive ctes nazvy, ty nazvy pak maji atributy, kdere
ti reknou, kde to prectes.
Kazda aplikace(sluzba) muze mit vlastni pocitadla
dle libosti a k jejich monitorovani slozi PerfMonitor
(ten program ve WinNT).
Podivej se na HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib\009
Slavek
> A ten komponent Ta nejako nuti pouzit nastavenie jazyka?
> Ved pocet handlov procesu od jazyka nijako nezavisi...
> Myslim, ze performance counters sa daju citat priamo cez indexy a ich nazvy
> k tomu nepotrebujes poznat.
>
> TOndrej
Velikost Jpeg
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 18.2.2002 11:19:33
Je nekde v hlavicce JPEGu ulozena celkova velikost obrazku?OT cislo CD ve Windows
[*] Rado Benc <bego(zv)pobox.sk> - 18.2.2002 11:39:25
Sorry, este Ti asi bude chybat par malickosti:
> nevite jak ziskat cislo CD ve Windows, ktere se pouziva v
CDPLAYER.INI ?
Sorry, este Ti asi bude chybat par malickosti:
const
// Constants for MCI info API Interface
MCI_INFO_PRODUCT = $0000100;
MCI_INFO_FILE = $0000200;
MCI_INFO_MEDIA_UPC = $0000400;
MCI_INFO_MEDIA_IDENTITY = $0000800;
MCI_INFO_NAME = $0001000;
MCI_INFO_COPYRIGHT = $0002000;
type
{ Parameter Block for MCI_INFO Command Message }
PMCI_Info_ParamsA = ^TMCI_Info_ParamsA;
PMCI_Info_ParamsW = ^TMCI_Info_ParamsW;
PMCI_Info_Params = PMCI_Info_ParamsA;
TMCI_Info_ParamsA = record
dwCallBack: DWord;
lpstrReturn: PAnsiChar;
dwRetSize: DWord;
end;
TMCI_Info_ParamsW = record
dwCallBack: DWord;
lpstrReturn: PWideChar;
dwRetSize: DWord;
end;
TMCI_Info_Params = TMCI_Info_ParamsA;
---
HTH,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
Automation, Destroy
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 18.2.2002 12:31:27
----- Original Message -----
From: "Ondrej Kr�ko" <krsko(zv)gjh.sk>
> potreboval by som spravit Automation Object, ktory by pri uvolneni
napriklad
> zobrazil MessageBox.
> teda napriklad kod:
>
> Set A = CreateObject("Auto.Auto")
> Set A = nil
>
> by zobrazilo MessageBox, s informaciou "Objekt zruseny".
> existuje nejaka metoda, ktora je vyvolana pri "Set A = nil" ???
Opravdu by melo platit ze takovy kod muzes dat do destructoru
Destroy toho automation objectu a pri nilovani te promenne A
ti spadne reference count na nulu a automaticky se vyvola destructor.
Ale setkal jsem se s tim, ze VB (konkretne VBA v Excelu)
nedela vsechno hned jak je to v kodu napsane, napr. kdyz
napises:
Dim A as New Auto.Auto
Nezalozi se nova instance Auto.Auto hned, ale az pri prvnim
vyvolani nejake metody na promenne A.
Martin Schayna
Automation, Destroy
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 18.2.2002 13:07:31
No, skusal som v tom vizualnom editore TLB pridat metodu Free, napisal som
jej kod, ale nijako nepomohlo. Ta metoda sa jednoducho nevyvola pri zruseni
objektu.
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 18, 2002 9:11 AM
Subject: RE: Automation, Destroy
> > potreboval by som spravit Automation Object, ktory by pri
> > uvolneni napriklad zobrazil MessageBox.
> > teda napriklad kod:
> >
> > Set A = CreateObject("Auto.Auto")
> > Set A = nil
> >
> > by zobrazilo MessageBox, s informaciou "Objekt zruseny".
> > existuje nejaka metoda, ktora je vyvolana pri "Set A = nil" ???
>
> malo by stacit overridnut destructor Free
>
> HTH
> TOndrej
Automation, Destroy
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 18.2.2002 13:19:43
----- Original Message -----
From: "Ondrej Kr�ko" <krsko(zv)gjh.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 18, 2002 1:07 PM
Subject: Re: Automation, Destroy
> No, skusal som v tom vizualnom editore TLB pridat metodu Free, napisal som
> jej kod, ale nijako nepomohlo. Ta metoda sa jednoducho nevyvola pri
zruseni
> objektu.
Destructor je Destroy, ne Free. A nema cenu pridavat ho do TLB, pripis ho
rovnou do zdrojaku.
Radim
>
Automation, Destroy
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 13:32:01
> > malo by stacit overridnut destructor Free
> No, skusal som v tom vizualnom editore TLB pridat metodu
> Free, napisal som jej kod, ale nijako nepomohlo. Ta
> metoda sa jednoducho nevyvola pri zruseni objektu.
Sorry za tu chybu, mal som samozrejme na mysli Destroy:
destructor TMyAutoObject.Destroy; override;
TOndrej
EWin32Error: Out of error messages. <g>Jak na celkovy pocet handlu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 14:10:59
> Bohuzel je znat musis, jinak nevis co jsi precetl.
> Nejdrive ctes nazvy, ty nazvy pak maji atributy, kdere
> ti reknou, kde to prectes.
Myslim, ze nemusis. Napriklad 'Handle Count' ma index 952 a je definovany
pre objekt 'Process' (index 230). Tieto indexy by mali byt pevne a nezavisle
na jazykovom nastaveni.
> Kazda aplikace(sluzba) muze mit vlastni pocitadla
> dle libosti a k jejich monitorovani slozi PerfMonitor
> (ten program ve WinNT).
V tomto pripade je mozne, ze sa tym stringom neda vyhnut (pretoze asi nie je
mozne zarucit, aby uzivatelske countre mali rovnake indexy na kazdom
stroji)... ?
Ale Process(id)\Handle count je nieco ine, tam sa na tie indexy dufam da
spolahnut. Dokonca som kedysi kdesi videl nejaky MS priklad, ktory to
pouzival tiez.
> Podivej se na HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
> NT\CurrentVersion\Perflib\009
Win2K Professional (US English): vobec nic som tam nenasiel ;-)
P.S. Napisal som si na skusku funkciu GetProcessHandleCount, ktora cita
performanca data z registry. Zda sa, ze na mojom stroji to chodi, v pripade
zaujmu to sem mozem poslat.
TOndrej
OT: ConnectionString k Interbase (FB) pro ADO conn
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 18.2.2002 15:02:29
Zdravim vsechny,
povedlo se nekomu pripojit se pres ADO v ASP k Interbase? Uz se to tu asi
pred pulrokem probiralo, ale zadna z odpovedi mne neprivedla k pozitivnimu
vysledku. Zajimave je, ze v Delphi-ADOExpress ten retec chodi.
DSN=IB6_Test_sys;UID=SYSDBA;PWD=masterkey
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Jak na celkovy pocet handlu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 18.2.2002 15:05:31
Hmm, z dokumentace MS toto zrovna neplyne a vsechny programy co jsem zatim
videl pristupovali pres registry (ze si necetli podle jmena).
Muzi ti to otestovat na WinNT wrk CZ jestli mas zajem.
Slavek
PS: Na Win2000 CZ ten klic je, ale je prazdny (regedit).> Myslim, ze nemusis. Napriklad 'Handle Count' ma index 952 a je definovany
> pre objekt 'Process' (index 230). Tieto indexy by mali byt pevne a nezavisle
> na jazykovom nastaveni.AdvStringGrid a ActiveX
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 18.2.2002 15:21:41
Ahoj,
ve sve aplikaci pouzivam komponentu TAdvStringGrid od TMS a mam problem:
V jednom okne aplikace pouzivam tuhle komponentu pro zobrazovani
nejakych dat. Na tomto formulari je i tlacitko, na ktere kdyz uzivatel
klikne zobrazi se mu dalsi formular s dalsi komponentou TAdvStringGrid.
Formular se zobrazuje tak, ze se dynamicky natahne DLL a zavola se z nej
jedna fce. V te se vytvori pozadovany formular a zobrazi se. Potud je
vse v pohode. Pokud ovsem formular z DLL zavru a dll uvolnim a pokusim
se ho znovu vyvolat dostanu tuto chybovou hlasku:
"A component named TAdvStringGrid already exists." a pak nasleduje
nekolik access violation a konec. Nevite nekdo v cem je problem?
Myslim si ze problem bude nekde s uvolnovanim COMu, ale nevim to jiste.
Nicmene ve zdrojaku od gridu je:
initialization
Initialize;
RegisterClass(TAdvStringGrid);
procedure Initialize;
var
Result : HResult;
begin
Result := OleInitialize(Nil);
Assert(Result in [S_OK, S_False], Format ('OleInitialize failed
($%x)', [Result]));
end;
finalization
OleUninitialize
Kde mam hledat problem? Nuvolni mi konstrukce ve finalization sekci
vsechny tyto komponenty v cele aplikaci? Takove psi kusy program dela
pouze pri pouziti teto komponenty. Ostatni jsou v pohode. Je mozne ze to
takhle nejde pouzit?
Jeste doplnim ze aplikace je napsana v D5 prof., update pack, a je
prelozena s balicky.
Ales
AdvStringGrid a ActiveX
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 18.2.2002 15:33:10
Neni mozne, ze to DLL mas kompilovane BEZ balicku ve kterem
je AdvStringGrid ale zbytek aplikace S timto balickem?
Martin Schayna
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
ve sve aplikaci pouzivam komponentu TAdvStringGrid od TMS a mam problem:
V jednom okne aplikace pouzivam tuhle komponentu pro zobrazovani
nejakych dat. Na tomto formulari je i tlacitko, na ktere kdyz uzivatel
klikne zobrazi se mu dalsi formular s dalsi komponentou TAdvStringGrid.
Formular se zobrazuje tak, ze se dynamicky natahne DLL a zavola se z nej
jedna fce. V te se vytvori pozadovany formular a zobrazi se. Potud je
vse v pohode. Pokud ovsem formular z DLL zavru a dll uvolnim a pokusim
se ho znovu vyvolat dostanu tuto chybovou hlasku:
"A component named TAdvStringGrid already exists." a pak nasleduje
nekolik access violation a konec. Nevite nekdo v cem je problem?
Myslim si ze problem bude nekde s uvolnovanim COMu, ale nevim to jiste.
Nicmene ve zdrojaku od gridu je:
initialization
Initialize;
RegisterClass(TAdvStringGrid);
procedure Initialize;
var
Result : HResult;
begin
Result := OleInitialize(Nil);
Assert(Result in [S_OK, S_False], Format ('OleInitialize failed
($%x)', [Result]));
end;
AdvStringGrid a ActiveX
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 18.2.2002 15:38:03
Ahoj, to ne. Zkompilovane to je s balickem.
Ales
> -----Original Message-----
> From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
>
> Neni mozne, ze to DLL mas kompilovane BEZ balicku ve kterem
> je AdvStringGrid ale zbytek aplikace S timto balickem?
>
> ----- Original Message -----
> From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
>
> ve sve aplikaci pouzivam komponentu TAdvStringGrid od TMS a
> mam problem:
> V jednom okne aplikace pouzivam tuhle komponentu pro zobrazovani
> nejakych dat. Na tomto formulari je i tlacitko, na ktere kdyz uzivatel
> klikne zobrazi se mu dalsi formular s dalsi komponentou
> TAdvStringGrid.
> Formular se zobrazuje tak, ze se dynamicky natahne DLL a
> zavola se z nej
> jedna fce. V te se vytvori pozadovany formular a zobrazi se. Potud je
> vse v pohode. Pokud ovsem formular z DLL zavru a dll uvolnim a pokusim
> se ho znovu vyvolat dostanu tuto chybovou hlasku:
> "A component named TAdvStringGrid already exists." a pak nasleduje
> nekolik access violation a konec. Nevite nekdo v cem je problem?
> Myslim si ze problem bude nekde s uvolnovanim COMu, ale nevim
> to jiste.
> Nicmene ve zdrojaku od gridu je:
>
> initialization
> Initialize;
> RegisterClass(TAdvStringGrid);
>
> procedure Initialize;
> var
> Result : HResult;
> begin
> Result := OleInitialize(Nil);
> Assert(Result in [S_OK, S_False], Format ('OleInitialize failed
> ($%x)', [Result]));
> end;
>
>
> Jak na celkovy pocet handlu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 15:46:25
> Hmm, z dokumentace MS toto zrovna neplyne a vsechny programy
> co jsem zatim
> videl pristupovali pres registry (ze si necetli podle jmena).
> Muzi ti to otestovat na WinNT wrk CZ jestli mas zajem.
OK, tu je ten kod:
// declarations from WinPerf.h (MS Platform SDK July 2000)
type
PPerfDataBlock = ^TPerfDataBlock;
TPerfDataBlock = record
Signature: array[0..3] of WCHAR;
LittleEndian: DWORD;
Version: DWORD;
Revision: DWORD;
TotalByteLength: DWORD;
HeaderLength: DWORD;
NumObjectTypes: DWORD;
DefaultObject: Longint;
SystemTime: TSystemTime;
PerfTime: TLargeInteger;
PerfFreq: TLargeInteger;
PerfTime100nSec: TLargeInteger;
SystemNameLength: DWORD;
SystemNameOffset: DWORD;
end;
PPerfObjectType = ^TPerfObjectType;
TPerfObjectType = record
TotalByteLength: DWORD;
DefinitionLength: DWORD;
HeaderLength: DWORD;
ObjectNameTitleIndex: DWORD;
ObjectNameTitle: LPWSTR;
ObjectHelpTitleIndex: DWORD;
ObjectHelpTitle: LPWSTR;
DetailLevel: DWORD;
NumCounters: DWORD;
DefaultCounter: Longint;
NumInstances: Longint;
CodePage: DWORD;
PerfTime: TLargeInteger;
PerfFreq: TLargeInteger;
end;
PPerfCounterDefinition = ^TPerfCounterDefinition;
TPerfCounterDefinition = record
ByteLength: DWORD;
CounterNameTitleIndex: DWORD;
CounterNameTitle: LPWSTR;
CounterHelpTitleIndex: DWORD;
CounterHelpTitle: LPWSTR;
DefaultScale: Longint;
DetailLevel: DWORD;
CounterType: DWORD;
CounterSize: DWORD;
CounterOffset: DWORD;
end;
PPerfCounterBlock = ^TPerfCounterBlock;
TPerfCounterBlock = record
ByteLength: DWORD;
end;
PPerfInstanceDefinition = ^TPerfInstanceDefinition;
TPerfInstanceDefinition = record
ByteLength: DWORD;
ParentObjectTitleIndex: DWORD;
ParentObjectInstance: DWORD;
UniqueID: DWORD;
NameOffset: DWORD;
NameLength: DWORD;
end;
const
PERF_NO_INSTANCES = -1;
PERF_SIZE_DWORD = $00000000;
PERF_SIZE_LARGE = $00000100;
PERF_SIZE_ZERO = $00000200;
PERF_SIZE_VARIABLE_LEN = $00000300;
PERF_TYPE_NUMBER = $00000000;
PERF_TYPE_COUNTER = $00000400;
PERF_TYPE_TEXT = $00000800;
PERF_TYPE_ZERO = $00000C00;
PERF_COUNTER_VALUE = $00000000;
PERF_COUNTER_RATE = $00010000;
PERF_COUNTER_FRACTION = $00020000;
PERF_COUNTER_BASE = $00030000;
PERF_COUNTER_ELAPSED = $00040000;
PERF_COUNTER_QUEUELEN = $00050000;
PERF_COUNTER_HISTOGRAM = $00060000;
PERF_COUNTER_PRECISION = $00070000;
PERF_TIMER_TICK = $00000000;
PERF_TIMER_100NS = $00100000;
PERF_OBJECT_TIMER = $00200000;
PERF_DELTA_COUNTER = $00400000;
PERF_DELTA_BASE = $00800000;
PERF_INVERSE_COUNTER = $01000000;
PERF_MULTI_COUNTER = $02000000;
PERF_DISPLAY_NO_SUFFIX = $00000000;
PERF_DISPLAY_PER_SEC = $10000000;
PERF_DISPLAY_PERCENT = $20000000;
PERF_DISPLAY_SECONDS = $30000000;
PERF_DISPLAY_NOSHOW = $40000000;
PERF_ELAPSED_TIME = PERF_SIZE_LARGE or PERF_TYPE_COUNTER or
PERF_COUNTER_ELAPSED or
PERF_OBJECT_TIMER or PERF_DISPLAY_SECONDS;
{ utility functions }
function GetFirstObject(PerfData: PPerfDataBlock): PPerfObjectType;
begin
Result := PPerfObjectType(Cardinal(PerfData) + PerfData^.HeaderLength);
end;
function GetNextObject(PerfObject: PPerfObjectType): PPerfObjectType;
begin
Result := PPerfObjectType(Cardinal(PerfObject) +
PerfObject^.TotalByteLength);
end;
function GetFirstCounterDefinition(PerfObject: PPerfObjectType):
PPerfCounterDefinition;
begin
Result := PPerfCounterDefinition(Cardinal(PerfObject) +
PerfObject^.HeaderLength);
end;
function GetNextCounterDefinition(PerfCounter: PPerfCounterDefinition):
PPerfCounterDefinition;
begin
Result := PPerfCounterDefinition(Cardinal(PerfCounter) +
PerfCounter^.ByteLength);
end;
function GetFirstInstanceDefinition(PerfObj: PPerfObjectType):
PPerfInstanceDefinition;
begin
Result := PPerfInstanceDefinition(Cardinal(PerfObj) +
PerfObj^.DefinitionLength);
end;
function GetNextInstanceDefinition(PerfInst: PPerfInstanceDefinition):
PPerfInstanceDefinition;
var
PerfCounter: PPerfCounterBlock;
begin
PerfCounter := PPerfCounterBlock(Cardinal(PerfInst) +
PerfInst^.ByteLength);
Result := PPerfInstanceDefinition(Cardinal(PerfCounter) +
PerfCounter^.ByteLength);
end;
// works only for objects with no instance!
function GetCounterBlockNoInstance(PerfObject: PPerfObjectType):
PPerfCounterBlock;
var
PerfCounterDef: PPerfCounterDefinition;
I: Cardinal;
begin
PerfCounterDef := GetFirstCounterDefinition(PerfObject);
for I := 0 to PerfObject^.NumCounters - 1 do
PerfCounterDef := GetNextCounterDefinition(PerfCounterDef);
Result := PPerfCounterBlock(PerfCounterDef);
end;
function GetCounterBlock(PerfInst: PPerfInstanceDefinition):
PPerfCounterBlock;
begin
Result := PPerfCounterBlock(Cardinal(PerfInst) + PerfInst^.ByteLength);
end;
// 230 'Process'
// 952 'Handle count'
// 784 'ID Process'
function GetProcessHandleCount(ProcessID: Cardinal): Integer;
const
BufSizeInc = 4096;
var
Buf: Pointer;
BufSize: Cardinal;
Test: Cardinal;
I, J: Integer;
PerfData: PPerfDataBlock;
PerfObject: PPerfObjectType;
PerfInstanceDef: PPerfInstanceDefinition;
PerfCounterDef: PPerfCounterDefinition;
PerfCounterBlock: PPerfCounterBlock;
PerfIDProcessDef: PPerfCounterDefinition;
PerfHandleCountDef: PPerfCounterDefinition;
Data: Cardinal;
begin
Result := -1;
BufSize := BufSizeInc;
Buf := AllocMem(BufSize);
try
Test := RegQueryValueEx(HKEY_PERFORMANCE_DATA, '230', nil, nil,
PByte(Buf), (zv)BufSize);
try
while Test = ERROR_MORE_DATA do
begin
Inc(BufSize, BufSizeInc);
ReallocMem(Buf, BufSize);
Test := RegQueryValueEx(HKEY_PERFORMANCE_DATA, '230', nil, nil,
PByte(Buf), (zv)BufSize);
end;
if Test <> ERROR_SUCCESS then
RaiseLastOSError;
PerfData := PPerfDataBlock(Buf);
// enumerate objects
PerfObject := GetFirstObject(PerfData);
for I := 0 to PerfData^.NumObjectTypes - 1 do
begin
// looking for Process object (230)
if PerfObject^.ObjectNameTitleIndex = 230 then
begin
// look up ID Process definition (784)
PerfIDProcessDef := nil;
PerfCounterDef := GetFirstCounterDefinition(PerfObject);
for J := 0 to PerfObject^.NumCounters - 1 do
begin
if PerfCounterDef^.CounterNameTitleIndex = 784 then
begin
PerfIDProcessDef := PerfCounterDef;
Break;
end;
PerfCounterDef := GetNextCounterDefinition(PerfCounterDef);
end;
if PerfIDProcessDef = nil then
Exit;
// look up Handle count definition (952)
PerfHandleCountDef := nil;
PerfCounterDef := GetFirstCounterDefinition(PerfObject);
for J := 0 to PerfObject^.NumCounters - 1 do
begin
if PerfCounterDef^.CounterNameTitleIndex = 952 then
begin
PerfHandleCountDef := PerfCounterDef;
Break;
end;
PerfCounterDef := GetNextCounterDefinition(PerfCounterDef);
end;
if PerfHandleCountDef = nil then
Exit;
PerfInstanceDef := GetFirstInstanceDefinition(PerfObject);
for J := 0 to PerfObject^.NumInstances - 1 do
begin
// look up given ProcessID
PerfCounterBlock := GetCounterBlock(PerfInstanceDef);
Data := PCardinal(Cardinal(PerfCounterBlock) +
PerfIDProcessDef^.CounterOffset)^;
if Data = ProcessID then
begin
Result := PCardinal(Cardinal(PerfCounterBlock) +
PerfHandleCountDef^.CounterOffset)^;
Break;
end;
PerfInstanceDef := GetNextInstanceDefinition(PerfInstanceDef);
end;
Break;
end;
PerfObject := GetNextObject(PerfObject);
end;
finally
RegCloseKey(HKEY_PERFORMANCE_DATA);
end;
finally
FreeMem(Buf);
end;
end;
> PS: Na Win2000 CZ ten klic je, ale je prazdny (regedit).
To iste u mna na US English.
Diky.
TOndrej
AdvStringGrid a ActiveX
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 18.2.2002 16:27:17
Jeste jedna takova poznamka. Ted to zkousim na W2000 a tam to jede
spravne. Zkousel jsem to trasovat a zjistil jsem ze mi na windows XP
nechodi program do sekce initialization po dalsim nacteni DLL, ale do
finalization ano. V tom prave vidim ten problem, protoze se nevola
CoInitialize a CoUninitialize parove.
Ales
> -----Original Message-----
> From: Ales Vasicek
>
> Ahoj, to ne. Zkompilovane to je s balickem.
>
> Ales
>
> > -----Original Message-----
> > From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
> >
> > Neni mozne, ze to DLL mas kompilovane BEZ balicku ve kterem
> > je AdvStringGrid ale zbytek aplikace S timto balickem?
> >
> > ----- Original Message -----
> > From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> >
> > ve sve aplikaci pouzivam komponentu TAdvStringGrid od TMS a
> > mam problem:
> > V jednom okne aplikace pouzivam tuhle komponentu pro zobrazovani
> > nejakych dat. Na tomto formulari je i tlacitko, na ktere
> kdyz uzivatel
> > klikne zobrazi se mu dalsi formular s dalsi komponentou
> > TAdvStringGrid.
> > Formular se zobrazuje tak, ze se dynamicky natahne DLL a
> > zavola se z nej
> > jedna fce. V te se vytvori pozadovany formular a zobrazi
> se. Potud je
> > vse v pohode. Pokud ovsem formular z DLL zavru a dll
> uvolnim a pokusim
> > se ho znovu vyvolat dostanu tuto chybovou hlasku:
> > "A component named TAdvStringGrid already exists." a pak nasleduje
> > nekolik access violation a konec. Nevite nekdo v cem je problem?
> > Myslim si ze problem bude nekde s uvolnovanim COMu, ale nevim
> > to jiste.
> > Nicmene ve zdrojaku od gridu je:
> >
> > initialization
> > Initialize;
> > RegisterClass(TAdvStringGrid);
> >
> > procedure Initialize;
> > var
> > Result : HResult;
> > begin
> > Result := OleInitialize(Nil);
> > Assert(Result in [S_OK, S_False], Format ('OleInitialize failed
> > ($%x)', [Result]));
> > end;
> >
> >
> >
> SetForegroundWindow
[*] HOST user <cico(zv)host.sk> - 18.2.2002 16:30:12
Zdravim ...
Mam jednu otazocku..
Mam dve nezavisle aplikacie : App1 a App2. Potrebujem urobit taku vec ze pri aktivaci
App1 sa mi aktivuje a hned nato sa da do popredia aplikacia App2.
tu je ten moj kod v App1:
procedure TViewerForm.WndProc(var Message: TMessage);
Var
App2Handle : THandle;
begin
if Message.Msg = WM_ACTIVATE then
begin
App2Handle := FindWindow('TForm1','Aplikacia2');
SetForeGroundWindow(App2Handle);
BringToFront;
end;
inherited;
end;
Robi to taku haluz ze, aktivuje okno app2 kazdy druhy krat...
Vdaka za kazdu radu....QReport - zlobi, pomuzete?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.2.2002 16:42:03
> >Ing. Ji�� SOKOL dne 14 Feb 2002 v 9:59:
>
> >> QReport pouzivam k tisku.
> >> Mam QReport,DetailBand, na kterym jsou umisteny QRLabel-y.
> >> Nekolik techto QRlabel-u doplnuju pred QReport.PreviewModal.
> >> Bohuzel mi aplikace casto spadne prave pri QReport.PreviewModal a
> >> nahlasi to:
> >>
> >> "A call to an OS function failed." a hned po OK
> >> "A component named QRStandardPreview already exists."
Ahoj,
jeste k tomu jeden napad. Rekl bych, ze podobne potize mohou vzniknout i tak, ze napr. v udalosti
OnCreate toho formulare se sestavou dojde k vyjimce a formular uz neni spravne uvolnen. To si
muzes celkem snadno nasimulovat a otestovat, zda se to pak chova opravdu timhle zpusobem.
Karel Rys
Existuju nejake komponenty typu Shape ?
[*] Slavom�r �eke� - 18.2.2002 16:54:39
Zdravim ...
upresnenie SUBJECTU ... potrebujem nejaky kruhovy vysek, trojuholnik,
lichobeznik ... existuju nejake take komponenty ? najlepsie free ...
Slavo
Image a skrolovani
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 18.2.2002 18:06:09
Ahoj,
uz jsem vzdal boj s chybami v QReportu a tak si delam vlastni
komponentu pro tisk. Ted jsem se zasekl pri vytvareni "naheldu".
Zobrazim Formular, na kterym mam toolbar, dole statusBar a mezi
nimi uprostred mam image, do kteryho vkladam vytvorenou Bitmapu.
Probelm pro me nastane, kdyz je nahled vesti nez obrazovka. Tim,
ze nahled zobrazuju pomoci bitmapy jsem docilil, ze se mi zobrazuje
scrollBar, ale FORMULARE! Coz ma za nasledek, ze pri jeho pouziti
mi odjede toolbar a nebo statusbar.
Co s tim? Jak docilim skrolovani jenom Image?
Jirka S.
______________________________________________________________________
Exclusivni zpravodajstvi ze ZOH 2002 v Salt Lake City http://www.duhovehry(tec)cz
SetForegroundWindow
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 18:12:53
> Mam jednu otazocku..
> Mam dve nezavisle aplikacie : App1 a App2. Potrebujem urobit
> taku vec ze pri aktivaci
> App1 sa mi aktivuje a hned nato sa da do popredia aplikacia App2.
>
> tu je ten moj kod v App1:
>
> procedure TViewerForm.WndProc(var Message: TMessage);
> Var
> App2Handle : THandle;
> begin
> if Message.Msg = WM_ACTIVATE then
> begin
> App2Handle := FindWindow('TForm1','Aplikacia2');
> SetForeGroundWindow(App2Handle);
> BringToFront;
> end;
> inherited;
> end;
>
> Robi to taku haluz ze, aktivuje okno app2 kazdy druhy krat...
Spravu WM_ACTIVATE dostavaju pri prepnuti dve okna: okno, ktora je prave
deaktivovane, s parametrom WA_INACTIVE, a okno, ktora je prave aktivovane, s
parametrom WA_CLICKACTIVE alebo WA_ACTIVE, podla toho, ci zmena nastala
nasledkom kliknutia mysi alebo inak.
Takze musis "odfiltrovat" WA_INACTIVE, skus si napisat nieco taketo:
if Message.Msg = WM_ACTIVATE then
with TWMActivate(Message) do
case Active of
WA_ACTIVE, WA_CLICKACTIVE:
begin
... aktivuj app2
end;
end;
Ale aktivovanie aplikacie a aktivovanie okna su dve rozne veci: WM_ACTIVATE
dostavaju okna aj pri prepinani medzi oknami v ramci tej istej aplikacie.
Pri prepinani medzi aplikaciami dostavaju obe aplikacie spravu
WM_ACTIVATEAPP, tentokrat s parametrom typu BOOL, ktory indikuje, ci je dana
aplikacia prave aktivovana alebo deaktivovana.
Myslim, ze najjednoduchsie a najlepsie to bude vykonavat ten kod v
Application.OnActivate.
HTH
TOndrej
Image a skrolovani
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.2.2002 18:12:05
> Zobrazim Formular, na kterym mam toolbar, dole statusBar a mezi
> nimi uprostred mam image, do kteryho vkladam vytvorenou Bitmapu.
>
> Probelm pro me nastane, kdyz je nahled vesti nez obrazovka. Tim,
> ze nahled zobrazuju pomoci bitmapy jsem docilil, ze se mi zobrazuje
> scrollBar, ale FORMULARE! Coz ma za nasledek, ze pri jeho pouziti
> mi odjede toolbar a nebo statusbar.
>
> Co s tim? Jak docilim skrolovani jenom Image?
Mozes ten TImage umiestnit do scrollboxu (TScrollBox).
HTH
TOndrej
THotPointImage
[*] Zden�k �t�p�nek�����^��ޏ����� - 18.2.2002 20:03:32
Zdravim
Pokud chces mit na pozadi bitmapu, tak dej jako predka TImage. Pokud ne, tak
dej TControl, nebo neco takoveho vyssiho. Na tvuj mail posilam prilohu. Je
tam komponenta THCButton. Dela vicemene presne to, co chces, az na to, ze je
to pouze jako button, staci to trochu rozsirit a mas to tak, jak chces.
Nemelo by ti to delat potize.
Jedine, co tam vubec neni, je to array, ktere chces a definice Bounds
jednotlivych tlacitek. To je pochopitelne, kdyz je to jeden Button. IMHO
postaci, kdyz si komponentu ode me pretvoris, aby mela property, ktere chces
a udelas si z ni interni komponentu (TInternalHotPointButton) pouzitou pouze
pro tu hlavni (THotPointImage). Overridem procedury create si zajisti, abys
do ni mohl predavat VSECHNY ty property, ktere potrebujes. Neco jako tohle:
TInternalHotPointButton.Create(parent, width, height, left, top, id,
onmouseclick, onmouseover, color1, color2, color3,..)
A pak uz jen staci v hlavni komponente vytvorit dynamicke array s temi
buttony. Do OnCreate te komponenty dat smycku FOR, ktera se zopakuje
tolikrat, kolik je radku v property TString. V prubehu toho cyklu musis
parsovat ten TStrings a do vyse zmineneho nastinu definice procedury Create
je vkladat.
InternalHotPointImagesArray[i].Create......
Nedalo mi to, a tak tam mas i moji nejlepsi komponentu THCOpenDialog a
THCSaveDialog. Precti si textak, mas tam nejaky popis.
Kdyztak klidne napis, ale upozornuju, ze ted nemam k dispozici delphace, jen
svoji hlavu.
P.S.:Myslim, ze by se ucitel netvaril moc stastne, kdybys mu odevzdal
aplikaci, ktera sice funguje, ale ty nemas tuseni jak. Tohohle stavu se
vyvaruj. Ja to ted ve ctvrtaku vim mooc dobre.
Zdenek
-----P�vodn� zpr�va-----
Chtel bys poprosit o pomoc. Urcite se zde najde nekdo kdo rozumi
tvorbe komponent vice nez ja. Potreboval bych vytvorit pro mne
obtiznou komponentu, rad bych si ji udelal sam, ale ponekud s tim
pospicham. Proto bych vas chtel poprosit jestli byste mi s tim
nepomohli.
Nyni popisu par bodu, ktere bych od komponenty potreboval:
- pracovni nazev by zatim byl THotPointImage a jako predka bych asi
urcil TImage
- melo by jit vlastne o TImage s definovatelnymi oblastmi
(hotpointy), ktere by reagovali na udalosti OnMouseClick a
OnMouseOver
- definice umisteni jednotlivych oblasti by byli ulozeny ve
vlastnosti typu TStrings, na kazdem radku by byly uchovany informace
o umisteni a rozmerech oblasti
- dalsi dulezitou vlastnosti by melo byt neco na zpusob array of
THotPoints, ktere by obsahovalo jednotlive HotPointy
- kazdy THotPoint by mel mit vlastnosti:
* id (celociselna identifikace hotpointu prirazena pri nacitani z
TStrings a postupne inkrementovana)
* bordercolor (barva jednoducheho ramecku kazdeho hotpointu)
* borderwidth (sirka ramecku)
* bordercolorover (barva ramecku pri prejezdu mysi nad
hotpointem)
* bordercolorclick (barva ramecku pri kliknuti na hotpoint)
* checked (stav hotpointu meneny za behu programu)
* uncheckedcolor (barva vyplne pri checked := false)
* checkedcolor (barva vyplne pri checked := true)
- za behu programu bych chtel k jednotlivym hotpointum pristupovat
pred jejich id (napr. HotPointImage1.HotPoints[3].checked := true)
Tak to bude asi vse. Predem upozornuji, ze komponentu nechci pouzit v
zadnem komerecnim programu. Docela nutne ji potrebuju pouzit v
programu pro maturitni praci, ktera se kontroluje priblizne za mesic,
takze mam co delat. Moc dekuji za ochotu a vubec bych se nezlobil,
kdyby se nekomu chtelo vytvorit to cele.Otvorenie excelu
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 18.2.2002 21:29:56
Ahoj vsetci
Potrebujem vo svojej aplikacii otvorit tabulku z excelu a zapisat do nej
potrebne data. Na konci zapisu sa otvori excel a uzivatel si moze upravit
tabulku podla potreby, vytlacit, ... Uzivatel sam zavrie excel. Na otvorenie
excelu pouzivam komponenty z palety Servers (D6 Ent + MS Office XP)
Otazka 1: Musim pockat az uzivatel sam ukonci excel aby doplnil potrebne
udaje. Kde umiestnit ukoncenie excelu ?
ExcelWorksheet.Disconnect;
ExcelApplication.Workbooks.Close(0);
Otazka 2: (mozno odpoved je v otazke 1) Ak prvy krat spustim program naplni
sa tabulka z excelu a excel sa korektne otvori. Ked zavriem excel a necham
prebehnut proceduru na naplnenie tabulky, procedura sa vykona korektne,
otvori excel, ale nevidiet pracovnu plochu excelu s mojou tabulkou. Vidiet
menu, ikony, stavovy riadok ale po mojej tabulke ani chyru ani slychu. Ak
vsak dam Prewiev (z excelu) zobrazi mi korektne nahlad na tabulku. Kde robim
chybu ? Takto otvaram excel :
begin
try
ExcelApplication.connect;
except
MessageDlg('Na tomto pocitaci nie je nainstalovany Excel',
mtError,[mbOk], 0);
Exit;
end;
ExcelApplication.Visible[0]:=False;
ExcelApplication.Workbooks.Open(ExtractFilePath(ExpandUNCFileName(Applicatio
n.EXEName))+'Evidencia dochadzky.xls', false,
false,EmptyParam,'',false,false,EmptyParam,EmptyParam,false,false,EmptyParam
,false,0);
ExcelWorksheet.ConnectTo(ExcelApplication.ActiveWorkbook.ActiveSheet as
_Worksheet);
...
ExcelWorksheet.Cells.Item[1, 1] := 'bla bla'; //a takto naplnam bunky
hodnotami
...
ExcelApplication.Visible[0]:=True;
end;
Dakujem za kazdu radu. S pozdravom
Vlado
DBGrid & azbuka
[*] <mkotaska(zv)atlas(tec)cz> - 19.2.2002 08:47:09
Ahoj,
byl jsem postaven pred ukol zpracovat slovnik CJ-RJ.
Rad bych ukladal slovni ekvivalenty do DB (asi nejlepe Paradox) a upravoval je pomoci DBGridu. Co vse mam nastavit, aby se spravne zobrazovaly jak ceske, tak ruske znaky spolecne.
Pokud by mel nekdo nejaky napad,odkazy , budu velice rad.
Problem se da zobecnit na ukol soucasneho zobrazeni cestiny a jakehokoli jineho jazyka nepouzivajici latinku nebo pouzivajici svoje specificka interpunkcni znamenka (francoustina, spanelstina). Dalsi problem je, co vsechno je nutne pro to, aby se znaky bezpecne ulozily do databaze.
Dekuji za jakykoli namet.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
Quickreport
[*] <kuchar(zv)unicodesys(tec)cz> - 19.2.2002 10:01:15
caute,
mam nasledujici problem, v programu pouzivam Quicreport.Preview pro
tisk SQL tabulek, ale potreboval bych uzivatelovy zakazat tlacitko
pro otevreni jineho souboru v horni liste, nevite jak na to ?
DIK
planovani uloh
[*] Tonda Blatn� <BlatnyDelphi(zv)seznam(tec)cz> - 19.2.2002 10:17:08
Zdravim,
prosim o radu, jak programove zajistit planovani uloh: umim to pouze
s vyuzitim prikazu AT, ale nevim, jak zjistit, zda prikaz ulohu
skutecne spravne naplanoval, jak zjistit, zda ve windows vubec bezi
planovac uloh atd. nemate nekdo s timto zkusenosti?
Mgr. Antonin Blatny
blatny(zv)bakalari(tec)cz
______________________________________________________________________
Nakupujte z tepla domova! Potraviny, napoje, drogerie, DOPRAVA ZDARMA
Z-Market - obchod, ktery prijde za vami - http://www.z-market(tec)cz/Existuje podpora CAB souboru v D5
[*] Michal Jan� <janu(zv)stemmark(tec)cz> - 19.2.2002 10:21:32
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj,
nemate nekdo zkusenosti z pouzitim CAB souboru v Delphi ? Pripadne nejaky prikladek.
Vim, ze na vytvoreni CAB souboru se da pouzit \bin\cabarc.exe.
Ale jedna se mi spise o rozbaleni z CAB behem instalace programu.
D�ky za kazdou radu
Michal Janu
STEM/MARK a.s.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Existuje podpora CAB souboru v D5
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 19.2.2002 10:27:27
Ahoj,
tady je jedna ma vlastni unita, pouzivam ji k vybaleni souboru z CAB.
unit uCabFile;
interface
uses Windows,SysUtils,Classes;
const
SPFILENOTIFY_CABINETINFO = $00000010;
SPFILENOTIFY_FILEINCABINET = $00000011;
SPFILENOTIFY_FILEEXTRACTED = $00000013;
FILEOP_DOIT = 1;
FILEOP_SKIP = 2;
type
PSP_FILE_CALLBACK = function (Context: pointer;
Notification,Param1: integer;
var Param2: integer): integer;
stdcall;
PPSP_FILE_CALLBACK = PSP_FILE_CALLBACK;
PFILE_IN_CABINET_INFO = ^FILE_IN_CABINET_INFO;
FILE_IN_CABINET_INFO = record
NameInCabinet: PChar; FileSize,Win32Error:
DWORD; DosDate,DosTime,DosAttribs: WORD;
FullTargetName: array[0..255] of Char;
end;
PCabinet_Info = ^Cabinet_Info;
Cabinet_Info = record CabinetPath,CabinetFile,DiskName: PChar;
Id,CabinetNumber: Shortint; end;
PFilePath = ^TFilePath;
TFilePath = record Target,Source: PChar; ErrorCode: integer; Flags:
DWord; end;
TSetupIterateCabinet = function (CabinetFile: PChar; Reserved:
DWord; MsgHandle: PPSP_FILE_CALLBACK;
Context: pointer): boolean;
stdcall; TCabFile = class(TComponent)
private
DLL_hwnd: THandle;
SetupIterateCabinet: TSetupIterateCabinet;
protected
public
CAB_FileName: TFileName;
DestinationPath: string;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
function ExtractCABfile: boolean;
end;
implementation
constructor TCabFile.Create(AOwner: TComponent);
begin
inherited;
DLL_hwnd:=LoadLibrary('setupapi.dll');
if DLL_hwnd<>0 then
SetupIterateCabinet:=GetProcAddress(DLL_hwnd,'SetupIterateCabinetA')
else raise Exception.Create('Unable to find
setupapi.dll');
end;
destructor TCabFile.Destroy;
begin
if DLL_hwnd<>0 then FreeLibrary(DLL_hwnd);
inherited;
end;
function CExtract(Context: pointer; Notification,Param1: integer; var
Param2: integer): integer; stdcall;
var cab: PFILE_IN_CABINET_INFO; path: string; i: integer; Sender:
TCabFile;
begin
Result:=ERROR_BAD_COMMAND;
if Context<>nil then Sender:=TCabFile(Context^) else Exit;
if Notification = SPFILENOTIFY_CABINETINFO then
Result:=0
else
if Notification = SPFILENOTIFY_FILEINCABINET then
begin
try
Result:=FILEOP_DOIT;
cab:=PFILE_IN_CABINET_INFO(Param1);
path:=Sender.DestinationPath+strpas(cab^.NameInCabinet);
for i:=1 to length(path) do
cab^.FullTargetName[i-1]:=path[i];
cab^.FullTargetName[length(path)]:=#0;
except
Result:=FILEOP_SKIP;
end;
end
else
if Notification = SPFILENOTIFY_FILEEXTRACTED then
Result:=NO_ERROR;
end;
function TCabFile.ExtractCABfile: boolean;
begin
if DestinationPath[length(DestinationPath)]<>'\' then
DestinationPath:=DestinationPath+'\';
if (zv)SetupIterateCabinet<>nil then
Result:=SetupIterateCabinet(PChar(CAB_FileName),0,CExtract,(zv)self)
else Result:=false;
end;
end.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Nakupujte z tepla domova! Potraviny, napoje, drogerie, DOPRAVA ZDARMA
Z-Market - obchod, ktery prijde za vami - http://www.z-market(tec)cz/Jak na celkovy pocet handlu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.2.2002 10:37:27
Prave som to vyskusal na Windows XP Deutsch, a chodi to tam tiez.
Zda sa, ze pre citanie performance data jazykove nastavenie skutocne nie je
podstatne.
TOndrej
planovani uloh
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.2.2002 11:39:08
> prosim o radu, jak programove zajistit planovani uloh: umim to pouze
> s vyuzitim prikazu AT, ale nevim, jak zjistit, zda prikaz ulohu
> skutecne spravne naplanoval, jak zjistit, zda ve windows vubec bezi
> planovac uloh atd. nemate nekdo s timto zkusenosti?
Na http://www.delphi-jedi.org/ najdes preklad Task Scheduler API, je tam aj
demo.
HTH
TOndrej
Message na cizim PC
[*] pavel.ales(zv)popron(tec)cz - 19.2.2002 11:50:25
Ahoj potreboval bych vyvolat message na cizim PC,napadlo me ze by to slo
pres handle plochy a message box,protoze jestli to dobre chapu tak ke
kazdemu handlu jde vyvolat message.
Chci totiz udelat jakysi primitivni komunikator pro uzivatele a tohle by
bylo zajimave i doufam ze rychle.....
Ales Pavel
D5 Ent W2000
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
Existuje podpora CAB souboru v D5
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 19.2.2002 12:01:03
From: Michal Jan�
>nemate nekdo zkusenosti z pouzitim CAB souboru v Delphi ? Pripadne nejaky
prikladek.
>Vim, ze na vytvoreni CAB souboru se da pouzit \bin\cabarc.exe.
>Ale jedna se mi spise o rozbaleni z CAB behem instalace programu.
>D�ky za kazdou radu
na stranke
http://www.torry.net/quicksearch.php
napis "CAB"
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
employee.gdb a mastsql.gdb
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 19.2.2002 12:51:40
Zdravim, muzete mi prosim nekdo poslat na delcomseb(zv)volny(tec)cz zabalenou
databazi employee.gdb a mastsql.gdb z Delphi 6 (IB6).
Dik Jan Sebesta
Panel nastroju v Quick Report
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.2.2002 13:02:31
Napsat si vlastni preview
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.2.2002 ales(zv)kerner(tec)cz:
> Jak se da jednoduse pocestit panel nastroju v quick reportu pri nahledu tisku.
> Popripade i odstranit nejake ikonky (vpred, vzad apod.)Panel nastroju v Quick Report
[*] ales(zv)kerner(tec)cz - 19.2.2002 13:03:16
Jak se da jednoduse pocestit panel nastroju v quick reportu pri nahledu tisku.
Popripade i odstranit nejake ikonky (vpred, vzad apod.)
dik
Ales
Quickreport
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 19.2.2002 13:06:47
Ahoj,
v D5 Ent to d�l�m tak, �e edituji formular QRPREV.DFM. U pozadovaneho
tlacitka dopises nebo nastavis bud Visible=false (nebude videt) nebo
Enabled=false (bude neaktivni).
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Komu: Delphi
> P�edm�t: Quickreport
>
> mam nasledujici problem, v programu pouzivam Quicreport.Preview pro
> tisk SQL tabulek, ale potreboval bych uzivatelovy zakazat tlacitko
> pro otevreni jineho souboru v horni liste, nevite jak na to ?
Panel nastroju v Quick Report
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 19.2.2002 13:07:59
Ahoj,
v D5 muzes editovat QRPREV.DFM.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: Panel nastroju v Quick Report
>
> Jak se da jednoduse pocestit panel nastroju v quick reportu
> pri nahledu tisku.
> Popripade i odstranit nejake ikonky (vpred, vzad apod.)
komunikace IB/FB
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)oku-uo(tec)cz> - 19.2.2002 13:18:40
DD,
prosim o radu. Nedari se mi donutit komunikovat server IB po SPX.
Jestliye dam InterBase proporties tak mam v Capabilities: TCP/IP Client
Support a Local Client Support a samosebou se na nej pres spx
nekonektnu.
Kde by mohla byt zrada?
Diky.
--
Martin Bednar
bednar(zv)mujweb(tec)cz
Cas v DBEditu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.2.2002 13:25:21
V tabulce mam nadefinovane pole "Time" a toto pole zobrazuji v DBEditu.
Cas se ale zobrazuje v plnem formatu 00:00:00 (hh:mm:ss)
Jak docilim zobrazeni 00:00 (hh:mm)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
komunikace IB/FB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.2.2002 13:30:46
ja bych tipnul, ze spx
umi jenom netwarovej IB server.
samo ze muzu kecat, ale neni-li
tam ta volba...
jeste napis na cem to pustis.
jestli teda win95, 2k, NetWare?
pokud je to win sit, pak je otazka
proc to cpat pres ipx/spx, kdyz netbleju
je pro win prirozenejsi, eventualne
rovnou pouzit tcp/ip.
dekuji PeC(zv)rozpad pisma v QuickReportu
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 19.2.2002 13:53:31
ahoj,
kdyz si udelam nahled v QuickReportu tak se mi rozpadne pismo (mezery mezi
znaky jsou nekde vetsi, jinde mensi, mnohdy je problem rozeznat mezeru mezi
slovy od mezery meri znaky v jednom slove). Pri tisku uz t ale z tiskarny
vyleze v poradku. Na webu jsem nasel navod, jak upravit zdrojove kody, pry
by to melo pomoct. Mate s timto nekdo zkusenosti? Musel bych si totiz QR
koupit, prave kvuli tem zdrojakum.. Nebo je jiny zpusob jak tomu predejit?
Za pripadne nazory diky.
ver. Delphi 6 Professional
Pavel Mattivi
pmattivi(zv)dezadata(tec)cz
komunikace IB/FB
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 19.2.2002 14:32:53
Client platform Windows 95 Windows NT UNIX server NetWare server
server server
Windows 95 TCP/IP, Local TCP/IP, NetBEUI TCP/IP TCP/IP, IPX/SPX
Windows NT TCP/IP TCP/IP, NetBEUI, Local TCP/IP TCP/IP, IPX/SPX
UNIX TCP/IP TCP/IP TCP/IP TCP/IP
Takto je to pro IB5.6, co pouzivas ty nevim, ale myslim, ze IPX/SPX podporu nema ani IB6, ani FB1.0.
Jinak hledej v opguide.pdf na tvem instalacnim CD delphi 5 (klient interbase).
Co te vede pouzivat IPX/SPX ?
Slavek
> DD,
> prosim o radu. Nedari se mi donutit komunikovat server IB po SPX.
> Jestliye dam InterBase proporties tak mam v Capabilities: TCP/IP Client
> Support a Local Client Support a samosebou se na nej pres spx
> nekonektnu.
> Kde by mohla byt zrada?
> Diky.komunikace IB/FB
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)oku-uo(tec)cz> - 19.2.2002 14:38:30
> ja bych tipnul, ze spx
> umi jenom netwarovej IB server.
> samo ze muzu kecat, ale neni-li
> tam ta volba...
Aha, je to mozne. Nenapadlo me to.
> jeste napis na cem to pustis.
> jestli teda win95, 2k, NetWare?
Jsou to win95.
> pokud je to win sit, pak je otazka
> proc to cpat pres ipx/spx, kdyz netbleju
> je pro win prirozenejsi, eventualne
> rovnou pouzit tcp/ip.
netbleju mi taky nechodi. proste tam nedokazu ten protokol nastavit.
Problem je v tom, ze tady je kopa pocitacu w95, kde je jiz ipx/spx a jen
nekde je TCP/IP, chtel jsem se vyvarovat doinstalovani tcp/ip na vsechny
a rozbehat aplikaci na spx, ale jak na to?
Diky za snahu,
uvitam kazde dalsi info.
S podravem
martin
Cas v DBEditu
[*] Kru��k Tom� <T.Kruzik(zv)Aquasoft(tec)cz> - 19.2.2002 15:34:52
> V tabulce mam nadefinovane pole "Time" a toto pole zobrazuji
> v DBEditu.
> Cas se ale zobrazuje v plnem formatu 00:00:00 (hh:mm:ss)
> Jak docilim zobrazeni 00:00 (hh:mm)
FormatDateTime('hh:mm', TDateTime(<casovy udaj>))
Vysledek funkce je string pro zobrazovani by to mohlo stacit, ale jinak bych
pracoval s uplnym udajem.
Kruzik Tomas
t.kruzik(zv)aquasoft(tec)cz
tkruzik(zv)atlas(tec)cz
ICQ: 99789730
Otvorenie excelu
[*] Str�n�k Franti�ek - 19.2.2002 15:55:40
a cim ten excel.exe odstrelim nejl�pe ?
(zatim se mi to moc nedari asi blbe mirim )
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
> -----Original Message-----
> From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]
> Sent: Tuesday, February 19, 2002 9:08 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Otvorenie excelu
>
>
> Mam odpoved pouze na 2.
>
> Stavalo se mi to pri vyvoji take. Je to stav, kdy je stale spusteny
> excel.exe. Pokud si dobre vzpominam, nastavalo to pri ladeni, kdy se
> sice provedl connect na excel ale uz ne korektne disconnect, protoze
> jsem treba beh programu ukoncil predcasne pri ladeni.
>Staci execel.exe odstrelit ze seznamu uloh a vse zase jede. Otvorenie excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 19.2.2002 16:52:58
Pomoci Ctrl-Alt-Del, ukoncit ukol, :))
Str�n�k Franti�ek wrote:
>
> a cim ten excel.exe odstrelim nejl�pe ?
> (zatim se mi to moc nedari asi blbe mirim )
>
> zdrav�
> Franti�ek STR�N�K
> mailto:FSTRANIK(zv)CPOJ.CZ
> tel. 02-67991481
>
> > -----Original Message-----
> > From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]
> > Sent: Tuesday, February 19, 2002 9:08 AM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: Re: Otvorenie excelu
> >
> >
> > Mam odpoved pouze na 2.
> >
> > Stavalo se mi to pri vyvoji take. Je to stav, kdy je stale spusteny
> > excel.exe. Pokud si dobre vzpominam, nastavalo to pri ladeni, kdy se
> > sice provedl connect na excel ale uz ne korektne disconnect, protoze
> > jsem treba beh programu ukoncil predcasne pri ladeni.
>
> >Staci execel.exe odstrelit ze seznamu uloh a vse zase jede.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Cas v DBEditu
[*] Josef Semera <semera(zv)atlas(tec)cz> - 19.2.2002 16:58:55
Nenastavuj DBedit ale primo v TTimeField vlastnost DisplayFormat na
hh:nn
> -----Original Message-----
> V tabulce mam nadefinovane pole "Time" a toto pole zobrazuji v
DBEditu.
> Cas se ale zobrazuje v plnem formatu 00:00:00 (hh:mm:ss)
> Jak docilim zobrazeni 00:00 (hh:mm)
Otvorenie excelu
[*] Str�n�k Franti�ek - 19.2.2002 16:59:07
Pomoci Ctrl-Alt-Del mi je jasny, ale ja to chci programove.
Kdyz se uzivateli vyboura program, tak chci na zaver prave programove odstrelit ten EXCEl.EXE.
Rucne to je jednoduchy, ale programove .... ?
Nechci nechat uzivatele del Ctrl-Alt-del
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
> -----Original Message-----
> From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]
> Sent: Tuesday, February 19, 2002 4:53 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Otvorenie excelu
>
>
> Pomoci Ctrl-Alt-Del, ukoncit ukol, :))
>
> Str�n�k Franti�ek wrote:
> >
> > a cim ten excel.exe odstrelim nejl�pe ?
> > (zatim se mi to moc nedari asi blbe mirim )
> >
> > zdrav�
> > Franti�ek STR�N�K
> > mailto:FSTRANIK(zv)CPOJ.CZ
> > tel. 02-67991481
> >
> > > -----Original Message-----
> > > From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]
> > > Sent: Tuesday, February 19, 2002 9:08 AM
> > > To: delphi-l(zv)clexpert(tec)cz
> > > Subject: Re: Otvorenie excelu
> > >
> > >
> > > Mam odpoved pouze na 2.
> > >
> > > Stavalo se mi to pri vyvoji take. Je to stav, kdy je
> stale spusteny
> > > excel.exe. Pokud si dobre vzpominam, nastavalo to pri
> ladeni, kdy se
> > > sice provedl connect na excel ale uz ne korektne
> disconnect, protoze
> > > jsem treba beh programu ukoncil predcasne pri ladeni.
> >
> > >Staci execel.exe odstrelit ze seznamu uloh a vse zase jede.
>
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
> Otvorenie excelu
[*] Roland Turcan <rolo(zv)sedas.sk> - 19.2.2002 16:59:53
----- Original Message -----
From: "Str�n�k Franti�ek" <FStranik(zv)cpoj(tec)cz>> a cim ten excel.exe odstrelim nejl�pe ?
> (zatim se mi to moc nedari asi blbe mirim )
Ak jazdis na Playstation (9x,Me) tak ani presne netrafis. Ak pouzivas
operacny system (NT,2000,XP) tak (Spravce uloh systemu/Procesy)
Roland.
Otvorenie excelu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 19.2.2002 17:35:05
Str�n�k Franti�ek dne 19 Feb 2002 v 16:59:
> Pomoci Ctrl-Alt-Del mi je jasny, ale ja to chci programove.
> Kdyz se uzivateli vyboura program, tak chci na zaver prave programove
> odstrelit ten EXCEl.EXE.
Melo by stacit, kdyz ho "odstrelis" (provedes odpojeni a zavreni) v sekci finally, ta se vykona, i
kdyz dojde behem komunikace s Excelem k vyjimce.
Karel Rys
Ukonceni / odlogovani windows
[*] EFG developer <developer(zv)efg(tec)cz> - 19.2.2002 17:41:02
Zdravim, jak se da jednoduse zjistit jestli uzivatel ukoncuje windows
nebo se jen odlogovava?
Koukal jsem do helpu na message WM_QUERYENDSESSION, ale nejak mi nejsou
jasne hodnoty v lParam. Muze mi to nekdo objasnit.
Dekuji Petr Sikola
Re[2]: Odeslani dat do WWW formulare metodou POST
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 19.2.2002 18:41:23
Ja bych to spis potreboval pro WinInet.
Friday, February 15, 2002, 1:22:19 PM, you wrote:
PM> Ahoj Martine,
PM> stahni si Proxomitron (dej si ho vyhledat v Seznamu). Nastav si ho ve www
PM> prohlizeci dle napovedy. Otevri v prohlizeci onen tvuj www formular pro
PM> zadavani dat. Otevri si Proxomitron Log window a tam zvol View posted data.
PM> V prohlizeci zadej do formulare nejaka data a odesli je. V log window se Ti
PM> objevi co se vlastne posila a to pouzijes (samozrejmne s upravenyma
PM> hodnotama) do fce MakeTextForSend. A ted fragment kodu do Tve aplikace:
PM> function GetUrlEncodingText(const Text: String): String; // pouzita v
PM> MakeTextForSend
PM> var i: Integer;
PM> begin
PM> Result := '';
PM> for i:=1 to Length(Text) do
PM> case Ord(Text[i]) of
PM> 48..57{0..9},64..90{(zv),A..Z},97..122{a..z},
PM> 42{*},45{-},46{.},95{_}: Result := Result + Text[i];
PM> else Result := Result + '%' + IntToHex(Ord(Text[i]),2);
PM> end;
PM> end;
PM> function TFrm.MakeTextForSend: String;
PM> begin
PM> Result :=
PM> 'poleNejakeCislo=123&'+
PM> 'polePrazdnaHodnota=&'+ // nebo to uplne vynechas
PM> 'poleNejakejString='+GetUrlEncodingText('nejaka ceska pismena')+'&'+
PM> 'polePosledniPoleNeniZakonceneAmprsandem=1';
PM> end;
PM> function TFrm.PostDataToWWW(const Response: TStringStream): Boolean;
PM> function CheckResponse(const Data: String): Boolean;
PM> begin
PM> Result := UpperCase(Data)='OK';
PM> end;
PM> var Source: TStringStream;
PM> begin
PM> Result := false;
PM> HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
PM> Response.Seek(0,soFromBeginning);
PM> Source := TStringStream.Create('');
PM> try
PM> Source.WriteString(MakeTextForSend);
PM> try
PM> HTTP.Post('http://www.nejakaadresa(tec)cz/nejakastranka.asp?', Source,
PM> Response); // nebo .php, ? je kvuli zabraneni kesovani
PM> except
PM> on E: Exception do begin
PM> MessageDlg(E.Message,mtError,[mbOk],0);
PM> Exit;
PM> end;
PM> end;
PM> finally
PM> Source.Free;
PM> end;
PM> Result := CheckResponse(Response.DataString);
PM> end;
PM> procedure TFrm.btnSendClick(Sender: TObject);
PM> var Response: TStringStream;
PM> begin
PM> Response := TStringStream.Create('');
PM> try
PM> PostDataToWWW(Response);
PM> finally
PM> Response.Free;
PM> end;
PM> end;
PM> Kde HTTP je typu TIdHTTP (komponenta z INDY) a ma takto nastavene hodnoty:
PM> HTTP.Request.ProxyServer := '127.0.0.1'; // dej pres Proxomitron - kvuli
PM> debugu
PM> HTTP.Request.ProxyPort := 8080; // standard v Proxomitronu
PM> HTTP.Request.Username := ''; // nejake jmeno a heslo - do Proxomitronu neni
PM> treba
PM> HTTP.Request.Password := '';
PM> P.S.: kod jsem psal primo do mailu, takze tam mozna jsou nejake syntakticke
PM> preklepy - dulezita je vsak ta idea...
PM> Uspech preje
PM> Michal Prokopec
PM> ----- Original Message -----
PM> From: <martin.falta(zv)obi.de>
PM> To: <delphi-l(zv)clexpert(tec)cz>
PM> Sent: Friday, February 15, 2002 9:57 AM
PM> Subject: Odeslani dat do WWW formulare metodou POST
>> Ahoj,
>>
>> pisu aplikaci, ze ktere potrebuji poslat data na www server. Tato data lze
>> zadavat i prostrednictvim www formulare. Data se z tohoto formulare
>> odesilaji metodou POST. Ja bych potreboval, aby moje aplikace umela poslat
>> data pres tento formular. Nevite nekdo jak na to?
>>
>> Predem dekuji.
>>
>> S pozdravem
>> Martin Falta
>> OBI IT
>> tel.: +420 2 96576 156
>> GSM: +420 603 151147
>>
>>
--
Martin
Cas v tabulce
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.2.2002 22:07:03
Narazil jsem na jednu podivnost.
- pokud se snazim dostat do tabulky cas 24:00 dojde k chybe '24:00' is not a
valid time
- DBISAMTable1.FieldValues['CasZ']:=StrToDateTime(cas1); a cas1 je roven
24:00 opet chyba
Jestlize zadam cas 23:59 (nebo 23:59:59) vse probehne OK
Pokud se nepletu tak den zacina 00:00 a konci 24:00 a to je 24 hodin (1440
minut, 86400 vterin) a plati to na celem svete.
Muze mi k tomu nekdo neco rici?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
Cas v tabulce
[*] Vot�pka V�clav <Vaclav.Votipka(zv)merlin(tec)cz> - 19.2.2002 22:43:40
Pokud vim, tak den zacina 0:00 a konci 23:59:59. To tve 24:00 je vlastne
00:00 nasledujiciho dne. Pokud by existoval cas 24:00, pak by nebylo jasne,
do ktereho dne tento casovy okamzik patri. Dusledky takoveho stavu si
laskavy ctenar jiste domysli sam. :-)
eNca
-----P�vodn� zpr�va-----
Od: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
Odesl�no: 19. �nora 2002 22:07
Komu: Konference Delphi 2000
P�edm�t: Cas v tabulce
Narazil jsem na jednu podivnost.
- pokud se snazim dostat do tabulky cas 24:00 dojde k chybe '24:00' is not a
valid time
- DBISAMTable1.FieldValues['CasZ']:=StrToDateTime(cas1); a cas1 je roven
24:00 opet chyba
Jestlize zadam cas 23:59 (nebo 23:59:59) vse probehne OK
Pokud se nepletu tak den zacina 00:00 a konci 24:00 a to je 24 hodin (1440
minut, 86400 vterin) a plati to na celem svete.
Muze mi k tomu nekdo neco rici?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
DBGrid a poradove cislo sloupce
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.2.2002 22:56:02
Zdravim,
lze nejak rozumne zjistit z nazvu sloupce jeho poradove cislo.
Tzn. znam FieldName v DBGridu, a potrebuji zjistit pro dalsi (barevne)
upravy jeho poradove cislo v DBGridu. Nemusim doufam projizdet vsechny
sloupce a zjistovat, zda takovyto nazev existuje.
Diky Pavel ZIDEK
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Delphi 6 Update Pack #2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.2.2002 01:02:12
Ahoj,
Vice tady: http://community.borland.com/article/0,1410,28405,00.html
Petr Vones
ZEOS a cestina
[*] R.Chwalek <delphi(zv)atlascon(tec)cz> - 20.2.2002 07:55:12
Dobry den,
kamarad ma Delphi 4 Std. a potrebuje se nakonektovat na IB 6.0 Zkousel Zeos
library, ktere funguji docela dobre, akorat se objevil problem s vkladanim
nebo updateovanim zaznamu psanych cesky (z s hackem, e s hackem ...). Chyba
... cannot transliterate between characterset ...
Pritom na stejnou databazi se pres BDE a Delphi 5, quickdesk, IB console
p�ipojim v pohode a zaden problem se neobjevuje.... :-(
Nevite nekdo, co to muze zapricinovat? Resp. ktere nastaveni ma spatne?
Radek
Delphi 6 Update Pack #2
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.2.2002 07:57:49
ahoj,
pochvili laborovani se mi podarilo tech 27MB stahnout :)
a nainstalovat.
ted mi D6 pri spousteni vyhazuje:
"The procedure entry point (zv)Ibxmlheader(zv)initialization$qqrv could not be
located in the dynamic link library ibxpress60.bpl."
dale:
"Can't load package c:\program files\borland\delphi6\bin\dclib60.bpl.
The specified procedure could not be found.
Do you want to attempt to load this package the next time a project is
loaded?"
dale znova prvni hlaska a dale:
"Can't load package C:\PROGRA~1\borland\delphi6\bin\dclIBXtras60.bpl.
The specified procedure could not be found.
Do you want to attempt to load this package the next time a project is
loaded?"
dale znova prvni hlaska a dale:
"Can't load package C:\PROGRA~1\borland\delphi6\bin\dclClxIBXtras60.bpl.
The specified procedure could not be found.
Do you want to attempt to load this package the next time a project is
loaded?"
pak to celkem logicky zarve, ze:
"Class TIBDatabase not found......."
zkusil jsem znovu nainstalovat IBX_6.02 a IBXtra_6.01 a nic nepomohlo.
docela nalehave bych to potreboval vyresit :(
dekuji PeC(zv)Delphi 6 Update Pack #2
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 20.2.2002 08:09:02
> Vice tady: http://community.borland.com/article/0,1410,28405,00.html
Coz je sice skvely, nicmne na te strance Borlandum nefunguje odkaz ke
stazeni...... ;-/
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Delphi 6 Update Pack #2
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.2.2002 08:23:37
> > Vice tady: http://community.borland.com/article/0,1410,28405,00.html
> Coz je sice skvely, nicmne na te strance Borlandum nefunguje odkaz ke
> stazeni...... ;-/
tady: http://www.borland.com/devsupport/delphi/
vlevo nahore je "Delphi 6 Downloads"
me spis vytaci, ze podle readme to vypada na reinstalaci
delphi, dokud nebude nova verze IBX :(. zrovna dneska teda nemam moc
naladu se s tim babrat cely dopoledne. grrr.
dekuji PeC(zv)Otvorenie excelu
[*] Str�n�k Franti�ek - 20.2.2002 10:01:32
Ze je to nejlepsi napsat do sekce finally tomu rozumin, ale co tam presne programove napisu ?
Nevim jak to napsat.
(nemuzes poslat kus programoveho kodu na to odstreleni excel.exe ?)
A co kdyz uzivatel pojede jiz predtim samostatny excel ? Neodstrelim mu ho taky ?
zdrav�
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
tel. 02-67991481
> -----Original Message-----
> From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
> Sent: Tuesday, February 19, 2002 5:35 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Otvorenie excelu
>
>
> Str�n�k Franti�ek dne 19 Feb 2002 v 16:59:
>
> > Pomoci Ctrl-Alt-Del mi je jasny, ale ja to chci programove.
> > Kdyz se uzivateli vyboura program, tak chci na zaver prave
> programove
> > odstrelit ten EXCEl.EXE.
>
> Melo by stacit, kdyz ho "odstrelis" (provedes odpojeni a
> zavreni) v sekci finally, ta se vykona, i
> kdyz dojde behem komunikace s Excelem k vyjimce.
>
> Karel Rys
>
>
> rozpad pisma v QuickReportu
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 20.2.2002 10:09:21
No primo z timto jsem se nesetkal, ale myslim si ze je to dano tim, ze font
lze zmensovat jen po skocich (velikost v pt) a pri jemnem zoomu nahledu na
tisk se to nejak musi korigovat, aby font neprelezal pres okraj stranky, ci
naopak nestacil - tak se proste docpou mezery tak, aby byl OK.
At 13:53 19.2.2002 +0100, you wrote:
>ahoj,
>kdyz si udelam nahled v QuickReportu tak se mi rozpadne pismo (mezery mezi
>znaky jsou nekde vetsi, jinde mensi, mnohdy je problem rozeznat mezeru mezi
>slovy od mezery meri znaky v jednom slove). Pri tisku uz t ale z tiskarny
>vyleze v poradku. Na webu jsem nasel navod, jak upravit zdrojove kody, pry
>by to melo pomoct. Mate s timto nekdo zkusenosti? Musel bych si totiz QR
>koupit, prave kvuli tem zdrojakum.. Nebo je jiny zpusob jak tomu predejit?
>Za pripadne nazory diky.
>
>ver. Delphi 6 Professional
>
>Pavel Mattivi
>pmattivi(zv)dezadata(tec)cz
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Delphi 6 Update Pack #2
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 20.2.2002 10:16:17
> zkusil jsem znovu nainstalovat IBX_6.02 a IBXtra_6.01 a nic nepomohlo.
> docela nalehave bych to potreboval vyresit :(
>
> dekuji PeC(zv)
On existuje nejaky update na IBX ?
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
Nesouvisla rada cisel
[*] Vlastimil Zden�k <gestore(zv)wo(tec)cz> - 20.2.2002 10:17:39
Zdravim a prosim o radu:
Mam nesouvislou radu cisel. Potreboval bych algoritmus nebo fci pro SQL,
ktera nalezne "diry" v rade v vrati mezni cisla:
priklad rada - 1;2;5;6;7;
navratova hodnota fce - 2;5;
Diky moc
D5Ent, SQL7.0
Vlasta
WndProc
[*] HOST user <cico(zv)host.sk> - 20.2.2002 10:27:42
Potrebujem zistit handle predosleho okna, z ktoreho bolo aktivovane nove okno.
Odchytavam message WM_ACTIVATE. Message.lparam by malo vratit handle predosleho okna,
ale vracia nulu.
Tu je ten kod:
procedure TViewerForm.WndProc(var Message : TMessage);
begin
if (Message.Msg = WM_ACTIVATE) and ((Message.WParam = WA_ACTIVE) or (Message.WParam =
WA_CLICKACTIVE)) then
StatusBar1.Panels[0].Text := InToStr(Message.lParam);
inherited;
end;
Mate s tym niekto skusenosti????... (vdaka za kazdu radu...)Delphi 6 Update Pack #2
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.2.2002 10:32:30
> On existuje nejaky update na IBX ?
http://codecentral.borland.com
http://codecentral.borland.com/codecentral/ccweb.exe/author?authorid=102
dekuji PeC(zv)Pismo na vysku v TBitBtn
[*] Slavom�r �eke� - 20.2.2002 10:39:22
Zdravim ...
potrebujem tlacidlo v ktorom bude text na vysku ... da sa to ?
Slavo
Delphi 6 Update Pack #2
[*] Jan Dibl�k <jan.diblik(zv)lfmotol.cuni(tec)cz> - 20.2.2002 10:52:59
Tady jsem nasel vyjadreni a popis reseni od Jeffa Overcashe:
http://groups.google.com/groups?hl=cs&group=borland.public.delphi.dat
abase.interbaseexpress&selm=3C72CD6D.5F6B6E4B%40mindspring.
com
Jan Diblik
DBGrid a poradove cislo sloupce
[*] Martin �ajbik <cajbik(zv)sct.sk> - 20.2.2002 10:58:45
mozes pouzit
DBGrid.DataSource.DataSet.FieldByName(FieldName).Index
alebo ak poznas priamo DataSet tak
DataSet.FieldByName(FieldName).Index
MarCaNT (marcant(zv)sct.sk)
> Zdravim,
> lze nejak rozumne zjistit z nazvu sloupce jeho poradove cislo.
> Tzn. znam FieldName v DBGridu, a potrebuji zjistit pro dalsi (barevne)
> upravy jeho poradove cislo v DBGridu. Nemusim doufam projizdet vsechny
> sloupce a zjistovat, zda takovyto nazev existuje.
>
> Diky Pavel ZIDEK
> Borland, .NET a ako ho bude podporovat ?
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 20.2.2002 11:09:40
Ahoj,
viete ako planuje Borland podporovat .NET ?
Teda ma sa v Delphi, atd objavit aj kompiler pre MSIL, alebo to myslia len
tak, ze bude podporovat napr. datove typy,... ?
GIS - zistenie pozicii na skenovanej mape
[*] iturcan(zv)gamo.sk - 20.2.2002 11:49:39
Ahojte,
Potreboval by som zistit geograficke suradnice na zoskenovanych mapach.
Predpokladajme ze mapy su dostatocne kvalitne a mam najmenej 3 referencne
zname body z geogr. suradnicami .
Napada vas nejaky postup popripade neviete o nejakych knizniciach najlepsie
do Delphi ktore to vedia.
Budem vdacny za kazdu radu
Ivan
Rucni dokovani
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 20.2.2002 11:52:52
Dobry den,
potreboval bych poradit s dokovanim. Chtel bych, aby se po
vytvoreni formu tento form ihned zadokoval do predem zname
komponenty, treba do PageControlu.
Diky
Petr
______________________________________________________________________
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky.
http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
Kodovani DBF, BDE a souvislosti
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 20.2.2002 12:00:14
Ahoj,
mam dotaz, ktery snad vyresi jeden problem - nebudu popisovat situaci,
protoze v urcitych chvilich se zda, ze si BDE dela co chce, takze rovnou ten
dotaz:
Jak mam nastavit BDE (langdriver, level, defaultdriver apod.) na to, aby mi
pri cteni z DBF tabulky (respektive tabulky foxpro vytvorene v 2.5tce-DOS),
kde jsou data ulozena v kodovani kamenickych, pomoci SQL prikazu select *
from tabulka.dbf (tecka a dbf je dulezita, opravdu tam je), nastavene
kodovani DBF souboru (byte 29) muze byt x00 ci x68 (obe hodnoty jsou
pripustne), vracel tento dotaz spravne znaky v kodovani kamenickych
(pripustim i Win1250)? Data nejsou zobrazovana do gridu, ale dale
zpracovavana.
Abych predesel zbytecnym diskusim, tak mozna preci jen nejake dalsi
podrobnosti:
zkusil jsem takrka vse od nastaveni driveru (ANSI, FOXPRO, ANSI CSY 867
apod.) az po nepouzivani pripony a ruzne nastaveni implicitniho driveru a
jedina jistota, ze se mi to nacita sparvne je tehdy, kdyz je v kodove
strance sbouru DBF nastavena 68cka. Jindy je to praticky sazka do loterie a
prevadi se to v navaznosti na situaci i do mne neznamych znakovych sad.
Stejne chovani WinNT 4.0/XP.
Diky za kazde nakopnuti, KER
Editace calculated fieldu
[*] <ZPetruj(zv)qgir(tec)cz> - 20.2.2002 12:02:32
Prosim vas jde editovat calculated field datasetu - nejak se mi to nedari,
pokud ne tak k cemu je tam metoda fieldu SetText ????
Zdenek
GIS - zistenie pozicii na skenovanej mape
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 20.2.2002 12:32:55
Zkuste se zeptat u Geodezie CS - www.geodezie(tec)cz
Martin Ben
> -----Original Message-----
> From: iturcan(zv)gamo.sk [mailto:iturcan(zv)gamo.sk]
> Sent: Wednesday, February 20, 2002 11:50 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: GIS - zistenie pozicii na skenovanej mape
>
>
> Ahojte,
>
>
> Potreboval by som zistit geograficke suradnice na
> zoskenovanych mapach.
> Predpokladajme ze mapy su dostatocne kvalitne a mam najmenej
> 3 referencne
> zname body z geogr. suradnicami .
>
> Napada vas nejaky postup popripade neviete o nejakych
> knizniciach najlepsie
> do Delphi ktore to vedia.
>
>
> Budem vdacny za kazdu radu
>
> Ivan
> Kodovani DBF, BDE a souvislosti
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 20.2.2002 13:00:30
Ahoj,
zkus toto:
dbFrom.DriverName:='STANDARD';
dbFrom.Params.Add('DEFAULT DRIVER=DBASE');
dbFrom.Params.Add('PATH=' + cesta k adresari s DBF souborem);
with Session do
begin
ConfigMode := cmSession;
SL:=TStringList.Create;
try
SL.Add('LANGDRIVER=DB852CZ0');
ModifyDriver('DBASE',SL);
finally
ConfigMode := cmAll;
SL.Free;
end;
end;
...kde m�sto DB852CZ0 dej kod jazykoveho driveru pro kamenicke (proste ten,
ktery chces vyuzit)
dbFrom je TDatabase. Nemusis pouzivat priponu .DBF
Jenom poznamka:
Pokud BDE pouzivam jen pres TDatabase a TQuery, bez cached updates, s
dynamicky nastavovanymi parametry
aliasu pres TDatabase.Params nebo TSession a prectu si jeho dokumentaci, tak
s nim nemam nejmensi problemy.
Pouzivame databazi InterBase, velke mnozstvi dat (cca 2000000 z�znam�),
lokalni i sitovy provoz, import z ruznych
ostatnich formatu (XML, DB, DBF) do Interbase a pokud odectu asi 20% ztr�ty
rychlosti oproti IBX/FIB/IBObjects,
tak se BDE mnohdy chova korektneji nez tyto komponenty. Cimz jen doplnuji
davnou diskusi o problemech s BDE,
ktere jsem se kdysi nezucastnil.
----- Original Message -----
From: "Ing. Marek Kocan" <kocan(zv)ebchod(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 20, 2002 12:00 PM
Subject: Kodovani DBF, BDE a souvislosti
> Ahoj,
> mam dotaz, ktery snad vyresi jeden problem - nebudu popisovat situaci,
> protoze v urcitych chvilich se zda, ze si BDE dela co chce, takze rovnou
ten
> dotaz:
>
> Jak mam nastavit BDE (langdriver, level, defaultdriver apod.) na to, aby
mi
> pri cteni z DBF tabulky (respektive tabulky foxpro vytvorene v
2.5tce-DOS),
> kde jsou data ulozena v kodovani kamenickych, pomoci SQL prikazu select *
> from tabulka.dbf (tecka a dbf je dulezita, opravdu tam je), nastavene
> kodovani DBF souboru (byte 29) muze byt x00 ci x68 (obe hodnoty jsou
> pripustne), vracel tento dotaz spravne znaky v kodovani kamenickych
> (pripustim i Win1250)? Data nejsou zobrazovana do gridu, ale dale
> zpracovavana.
>
> Abych predesel zbytecnym diskusim, tak mozna preci jen nejake dalsi
> podrobnosti:
>
> zkusil jsem takrka vse od nastaveni driveru (ANSI, FOXPRO, ANSI CSY 867
> apod.) az po nepouzivani pripony a ruzne nastaveni implicitniho driveru a
> jedina jistota, ze se mi to nacita sparvne je tehdy, kdyz je v kodove
> strance sbouru DBF nastavena 68cka. Jindy je to praticky sazka do loterie
a
> prevadi se to v navaznosti na situaci i do mne neznamych znakovych sad.
> Stejne chovani WinNT 4.0/XP.
>
> Diky za kazde nakopnuti, KER
>
>
>
"Hvezdicky" v heslu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 20.2.2002 13:00:22
Ahoj,
rad bych Vas poprosil o radu. Chtel bych mit okno kam bude uzivatel
zadavat sve heslo a rad bych, aby obsah tohoto okna nebyl videt, aby v
nem byly "hvezdicky".
Diky.
Vasek
"Hvezdicky" v heslu
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 20.2.2002 13:01:53
Pouzij TEdit a vlastnost PasswordChar nastav na tu hvezdicku
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> zadavat sve heslo a rad bych, aby obsah tohoto okna nebyl videt, aby v
> nem byly "hvezdicky".
>
> Vasek
"Hvezdicky" v heslu
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 20.2.2002 13:09:27
> rad bych Vas poprosil o radu. Chtel bych mit okno kam bude uzivatel
> zadavat sve heslo a rad bych, aby obsah tohoto okna nebyl videt, aby v
> nem byly "hvezdicky".
Pokud budes zadavat "heslo" pomoci TEdit, tak tato komponenta ma
vlastnost PasswordChar, kde si muzes nastavit libovolny znak, ktery
se ma v Editu zobrazovat.
Jirka.Mistrovstvi Delphi 3
[*] <ZPetruj(zv)qgir(tec)cz> - 20.2.2002 13:10:58
Prosim vas mam knihu Mistrovstvi Delphi 3 a nekde jsem si zalozil CD.
Nemohl by mi nekdo poslat soubor ASCIIDRV.PAS na e-mail zpetruj(zv)qgir(tec)cz ???
Zdenek Mistrovstvi Delphi 3
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 20.2.2002 13:12:46
> Prosim vas mam knihu Mistrovstvi Delphi 3 a nekde jsem si zalozil CD.
> Nemohl by mi nekdo poslat soubor ASCIIDRV.PAS na e-mail
> zpetruj(zv)qgir(tec)cz ???
>
Nebude to tady?
http://www.marcocantu.com/md3/md3code.zip
Handle NotifyEventu
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 20.2.2002 13:17:36
Cau,
potrebuju zjistit handle NotifyEventu, pokousim se zkrze OpenEvent ale vubec se mi nedari, muze me nekdo nasmerovat zpravnym smerem
procedure test;
var
fRxFlag: TNotifyEvent;
evHandle: THandle;
begin
fRxFlag:= CPScanOnRxFlag;
evHandle:= OpenEvent(EVENT_ALL_ACCESS, true, (zv)fRxFlag); //vrati errorcode 2
end;
CPScanOnRxFlag je procedura navlecena na NotifyEvent z komponenty pro komunikaci RS232 (Comport1.OnRxFlag:= CPScanOnRxFlag)
dik Ladap
Otvorenie excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 20.2.2002 13:19:26
Ja myslim, ze to je trochu nedorozumeni. Samozrejme tu je rec o tom, jak
excel NEDOSTAT do stavu, kdy potrebuje "odstreleni". To je stav, ktery
muze vzniknout maximalne pri ladeni ale pri beznem behu programu ne.
Takze ve finally je treba provest korektni odpojeni se od Excelu (kod
jsem ti posilal soukrome), ne odstrelovat excel.exe.
Samozrejme se tim ale neresi tva otazka, jak se odpojit od Excelu az
pote, co uzivatel udela nejake zmeny. Tu tady jeste nikdo nezodpovedel.
Treba Excel pri zavirani nabizi nejakou udalost, nevim???
Str�n�k Franti�ek wrote:
>
> Ze je to nejlepsi napsat do sekce finally tomu rozumin, ale co tam presne programove napisu ?
>
> Nevim jak to napsat.
> (nemuzes poslat kus programoveho kodu na to odstreleni excel.exe ?)
>
> A co kdyz uzivatel pojede jiz predtim samostatny excel ? Neodstrelim mu ho taky ?
>
> zdrav�
> Franti�ek STR�N�K
> mailto:FSTRANIK(zv)CPOJ.CZ
> tel. 02-67991481
>
> > -----Original Message-----
> > From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
> > Sent: Tuesday, February 19, 2002 5:35 PM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: RE: Otvorenie excelu
> >
> >
> > Str�n�k Franti�ek dne 19 Feb 2002 v 16:59:
> >
> > > Pomoci Ctrl-Alt-Del mi je jasny, ale ja to chci programove.
> > > Kdyz se uzivateli vyboura program, tak chci na zaver prave
> > programove
> > > odstrelit ten EXCEl.EXE.
> >
> > Melo by stacit, kdyz ho "odstrelis" (provedes odpojeni a
> > zavreni) v sekci finally, ta se vykona, i
> > kdyz dojde behem komunikace s Excelem k vyjimce.
> >
> > Karel Rys
> >
> >
> >
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Mistrovstvi Delphi 3
[*] <ZPetruj(zv)qgir(tec)cz> - 20.2.2002 13:30:17
To bohuzel neni kniha od Marco Cantu, ale je to ta kniha co vysla
u nas v Computer Pressu preklad od T. Millera a D. Powella.
> > Prosim vas mam knihu Mistrovstvi Delphi 3 a nekde jsem si
> zalozil CD.
> > Nemohl by mi nekdo poslat soubor ASCIIDRV.PAS na e-mail
> > zpetruj(zv)qgir(tec)cz ???
> >
>
> Nebude to tady?
> http://www.marcocantu.com/md3/md3code.zip
>
> Editace calculated fieldu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.2.2002 13:40:47
A jaky smysl ma editace Calculated fieldu ? Uz z principu to jit
nemuze. Obsah pole je tvoren vypoctem z jinych poli.
Pokud neco takoveho potrebujes, budes si muset pridat obycejne pole
(ne pocitane), obsah spocitat a nechat uzivatele, at si dela co chce.
SetText je tam zrejme zdedena od predchudce.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.2.2002 ZPetruj(zv)qgir(tec)cz:
> Prosim vas jde editovat calculated field datasetu - nejak se mi to nedari,
> pokud ne tak k cemu je tam metoda fieldu SetText ????
> Zdenek
Kodovani DBF, BDE a souvislosti
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.2.2002 13:49:47
20.2.2002 Ing. Marek Kocan:
> Ahoj,
> mam dotaz, ktery snad vyresi jeden problem - nebudu popisovat situaci,
> protoze v urcitych chvilich se zda, ze si BDE dela co chce, takze rovnou ten
> dotaz:
> Jak mam nastavit BDE (langdriver, level, defaultdriver apod.) na to, aby mi
> pri cteni z DBF tabulky (respektive tabulky foxpro vytvorene v 2.5tce-DOS),
> kde jsou data ulozena v kodovani kamenickych, pomoci SQL prikazu select *
> from tabulka.dbf (tecka a dbf je dulezita, opravdu tam je), nastavene
> kodovani DBF souboru (byte 29) muze byt x00 ci x68 (obe hodnoty jsou
> pripustne), vracel tento dotaz spravne znaky v kodovani kamenickych
> (pripustim i Win1250)? Data nejsou zobrazovana do gridu, ale dale
> zpracovavana.
> Abych predesel zbytecnym diskusim, tak mozna preci jen nejake dalsi
> podrobnosti:
> zkusil jsem takrka vse od nastaveni driveru (ANSI, FOXPRO, ANSI CSY 867
> apod.) az po nepouzivani pripony a ruzne nastaveni implicitniho driveru a
> jedina jistota, ze se mi to nacita sparvne je tehdy, kdyz je v kodove
> strance sbouru DBF nastavena 68cka. Jindy je to praticky sazka do loterie a
> prevadi se to v navaznosti na situaci i do mne neznamych znakovych sad.
> Stejne chovani WinNT 4.0/XP.
Pokud tam das pro driver LangDriver = "dBase CSY CP867" nebo "FoxPro
CZECH DOS895", dojde k prekodovani do Windows 1250 (kvuli spravnemu
zobrazeni) V typu tabulky (query) nastav ttFoxPro, jinak by ti mohl
brat obladac pro dBase (rozlisuje to podle pripony a dBase ma
prednost), popr. nastav LangDriver i pro dBase.
Pokud tam nastavis LangDriver nejaky s 1250, nemelo by k prekodovani
dojit.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Borland, .NET a ako ho bude podporovat ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.2.2002 13:57:12
From: "Ondrej Kr�ko" <krsko(zv)gjh.sk>
> viete ako planuje Borland podporovat .NET ?
> Teda ma sa v Delphi, atd objavit aj kompiler pre MSIL, alebo to myslia len
> tak, ze bude podporovat napr. datove typy,... ?
http://www.borland.com/net/net_faq.html
Petr Vones
Jak pristupovat k MS SQL Serveru
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 20.2.2002 14:18:25
Prosim,
podelte se se mnou o sve zkusenosti s pristupem k MS SQL Serveru (verze 8) z
Delphi 6 .
Jaky pristup pouzit a jake jsou pro nej nejvhodnejsi komponety.
Uvazuji o pristupu pres ADO pomoci ADOExpress.
Nevim zda v tomto pripade ma smysl pouzit MIDAS (jaka uskali to prinasi)?.
Nebo koupit komponenty Adonis?
Nebo komponety Zeos.
Nebo pristupovat uplne jinak?
Za kazdy nazor predem dekuji.
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 20.2.2002 16:00:43
Ahoj,
nevite jak na stahovani tarifikacnich udaju z tel. ustreden? Je na to
nejaky obecny postup? Mam Panasonic KXT 61610CE pripojenou k COM1. Kdysi
jsem na to mel original soft, ale instalacni diskety jsou dead, a stejne
bych si na to chtel napsat neco sveho.
Diky za kazdou radu
Tomas
OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 20.2.2002 16:09:01
On 20 Feb 2002, at 16:00, Tomas Vida wrote:
> nevite jak na stahovani tarifikacnich udaju z tel. ustreden? Je na to
> nejaky obecny postup?
V podstate je obecny postup v tom, ze se ctou data s toho portu.
Ale vazne - je potreba vedet, v jakem formatu ta ustredna data
posila. To je pro kazdou jine a velice rozmanite, zhruba se to da
odpozorovat od oka. Nektere ustredny potrebuji nakopnout - nez
zacne posilat data, musi se na ten port neco poslat a to neco
muze byt zase ruzne. Nektere ustredny data posilaji a nestaraji se
o ne, jine pozaduji za kazdou vetou ACK. Nektere posilaji komplet
vetu o celem hovoru, jine zvlast info o zacatku a zvlast o konci
hovoru.
Myslim, ze pri trose snahy se to da prostrelit tak, ze se na port
povesi terminal, nejaka data se nactou a pak se bada a zkouma.
Snadno se podari odhalit kde je volajici a volane cislo a cas, s
delkou hovoru to uz muze byt netrivialni.
Z.Kalhous
Borland, .NET a ako ho bude podporovat ?
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 20.2.2002 16:35:43
A ceska tiskova zprava je na
http://www.builder(tec)cz/art/tiskove_zpravy/borlandnet.html
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
> From: "Ondrej Kr�ko" <krsko(zv)gjh.sk>
> > viete ako planuje Borland podporovat .NET ?
> > Teda ma sa v Delphi, atd objavit aj kompiler pre MSIL, alebo to myslia
len
> > tak, ze bude podporovat napr. datove typy,... ?
>
> http://www.borland.com/net/net_faq.html
>
> Petr Vones
GIS - zistenie pozicii na skenovanej mape
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 20.2.2002 16:49:34
Mozna, ze me to bude taky zanedlouho cekat, tak jsem se nedavno poohlizel po
nejakem reseni prace s GPS.
Tady je par odkazu:
http://www.torry.net/gps.htm
http://www.tmapy(tec)cz/gis/en_gis_res.html
http://www.sigmap.com
http://www.axolot.com/components/f_tgps.htm
http://www.scaryshed.com/
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
From: <iturcan(zv)gamo.sk>
> Ahojte,
>
> Potreboval by som zistit geograficke suradnice na zoskenovanych mapach.
> Predpokladajme ze mapy su dostatocne kvalitne a mam najmenej 3 referencne
> zname body z geogr. suradnicami .
>
> Napada vas nejaky postup popripade neviete o nejakych knizniciach
najlepsie
> do Delphi ktore to vedia.
> Ivan
RDS
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 20.2.2002 17:19:38
Ahoj,
prave zkousim pristup k datum pomoci RDS (RDSConnection a ADODataSet). V
demos je priklad jak nacist data z RDS, ale nevim jak se daji pridana nebo
opravena data poslat znovu na RDS.
Prosim, zda by mi to mohl nekdo objasnit, nejlepe zaslanim prikladu na muj
soukromy mail.
Dekuji,
Petr
komunikace IB/FB
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)oku-uo(tec)cz> - 20.2.2002 17:46:07
DD,
>Slavomir Skopalik wrote:Takto je to pro IB5.6, co pouzivas ty nevim, ale myslim, ze IPX/SPX podporu
nema ani IB6, ani >FB1.0.
OK, to jsem ji� vy�e�il IPX/SPX je u IB jen u Novell a ten je jen do vs. 6.0 a neni v Open Source.
Jasny, beru.
> Jinak hledej v opguide.pdf na tvem instalacnim CD delphi 5 (klient interbase).
> Co te vede pouzivat IPX/SPX ?
Na vsech tech masinach na kterych chci tu aplikaci provozovat ( dochazkovy system ) neni TCP/IP.
Asi bude nutne jej ale v tomto pripade doinstalovat. To taky beru, ale mam problem. Z nekterych stanic
(win95) se
k databazi konektnu, ale na nekterych mi to pise nasledujici. Podotykam, ze se normalne pingnu:
Unable to complete network request to host "192.168.0.20".
Failed to lacate host machine.
The specified name was not found in the hosts file or Domain Name Services.
Vsechny protokoly TCP/IP jsou ale stejne nakonfigurovany. Soubor hosts.sam jsem needitoval a DNS v siti
nepouzivame a stejne se z nekterych pocitacu na server (192.168.0.20) konektnu a z nekterych ne, byt se
na nej dopingnu.
Prosim o radu, kde by mohl byt zakopany pes.
Mnohakrat diky.
--
Martin Bedn��
bednar(zv)mujweb(tec)cz
Service
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 20.2.2002 17:52:34
Dobry,
Pokusam sa spravit service pod Win NT v DELPHI 5.
Ale ked ho spustim, tak sa hned zatvori. A ja neviem preco. Prosim Vas porad
te mi preco sa hned zatvara.
Tento servis potrebujem, aby bezal od prveho spustenia az do vypnutia
pocitaca.
Servis pouzivam ako sucast trojvrstvovej aplikacie. Jeho sucastou su DCOM
objecty, ktore su vytvorene pomocou komponent MIDAS.
Cize program, ktory bezi na klientskej stanici, by sa mal pripajat na tuto
sluzbu. A ta by mala komunikovat s SQL serverom.
Prosim Vas podate mi kde robim chybu.
Miro.
Hlavny unit :
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
Menus, lmdcompo, lmdclass, lmdnwgui;
type
TServiceNautilus = class(TService)
LMDTrayIcon1: TLMDTrayIcon;
procedure ServiceCreate(Sender: TObject);
procedure ServiceDestroy(Sender: TObject);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;
var
ServiceNautilus: TServiceNautilus;
implementation
{$R *.DFM}
uses databazaDm,iniObj;
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
ServiceNautilus.Controller(CtrlCode);
end;
function TServiceNautilus.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TServiceNautilus.ServiceCreate(Sender: TObject);
var IniObj : TIniObj;
begin
IniObj := TIniObj.Create;
if IniObj.LoadConfig(DMDatabaza.iniDBaseConnectUser ) then
begin
{ DMDatabaza.ADODatabaseNRSYS.UserName := 'sa';
DMDatabaza.ADODatabaseNRSYS.Password := '';}
DMDatabaza.ADODatabaseNRSYS.Open;
end;
IniObj.SaveConfig;
end;
end.IDE smaze hodnotu property
[*] Vot�pka V�clav <Vaclav.Votipka(zv)merlin(tec)cz> - 20.2.2002 18:05:51
Ahoj
potykam se s nasledujicim problemem:
Mam formular na kterem lezi nekolik komponent TDBLookupComboBox. Ty maji v
properte ListSource prirazen TDataSource(kazda jiny), ktery ale lezi na
datamodulu. Kdyz otevru formular v IDE, tak jsou u vetsiny comboboxu
property ListSource prazdne. IDE nevyhodi zadnou hlasku o tom, ze by je
chtelo smazat a navic formular se jevi jako nezeditovany. V dfm na disku je
v tuto chvili vse v poradku (ListSource maji prirazenou hodnotu).
Samozrejme pokud formular ulozim, tak se ulozi bez vyplnenych ListSource.
Podobne chovani pozoruji i na jinych komponentach. Nesetkal jste se s tim uz
nekdo? Pouzivam D5Ent Update Pack 1 a W2k SP2
eNca
Service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.2.2002 18:16:50
> Pokusam sa spravit service pod Win NT v DELPHI 5.
> Ale ked ho spustim, tak sa hned zatvori. A ja neviem preco. Prosim
Vas porad
> te mi preco sa hned zatvara.
Doudam, ze ho spoustis pomoci Control panel /services (pred tim
service samozrejme musis samozrejme registrovat abyjej ServiceManager
znal) - ne jen jako obycejne execko.
D. Toman
Formular vzdy navrchu
[*] MiroM <miromr(zv)hotmail(tec)com> - 20.2.2002 18:58:56
Zdravim vsetkych,
neviem prist na to ako to robia aplikacie, kde si je mozne vo formulari
pomocou chckboxu zaistit ze formular je vzdy na vrchu.
Mam taky dojem ze zmena vlastosti
FormStyle na fsStayOnTop
sa za pochodu vykonat neda. Neviete ako to robia?
Diky Miro
IDE smaze hodnotu property
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 20.2.2002 19:22:29
----- Original Message -----
From: "Vot�pka V�clav" <Vaclav.Votipka(zv)merlin(tec)cz>
> Mam formular na kterem lezi nekolik komponent TDBLookupComboBox. Ty maji v
> properte ListSource prirazen TDataSource(kazda jiny), ktery ale lezi na
> datamodulu. Kdyz otevru formular v IDE, tak jsou u vetsiny comboboxu
> property ListSource prazdne. IDE nevyhodi zadnou hlasku o tom, ze by je
> chtelo smazat a navic formular se jevi jako nezeditovany. V dfm na disku
je
> v tuto chvili vse v poradku (ListSource maji prirazenou hodnotu).
> Samozrejme pokud formular ulozim, tak se ulozi bez vyplnenych ListSource.
Nemas nahodou ten datamodul vizualne podedeny z jineho datamodulu,
ktery v tu chvili neni pro IDE dostupny (nemuze ho nalezt protoze
neni soucasti projektu)?
Delphi v takovem pripade umoznuji takovyto formular/datamodul otevrit
a opravovat, ale pouze jeho *.pas. Mozna v tomto pripade IDE ztrati
moznost odvolavat se z formu na takovyto (polo)otevreny datamodul.
Martin Schayna
IDE smaze hodnotu property
[*] Vot�pka V�clav <Vaclav.Votipka(zv)merlin(tec)cz> - 20.2.2002 19:40:27
Nastesti se jiz dokazu uvedeneho jevu zbavit ale priciny neznam.
Kdyz mam zapnute Tools/Environment options/Preferences/Autosave
options/Project desktop, a pri ukoncovani IDE necham otevreny formular s
comboboxem, tak pri nasledujicim spusteni se delphi dostanou do zajimaveho
stavu:
Property editor mi u property ListSource nabizi NEKTERE komponenty z (dosud
neotevreneho) datamodulu ale ne vsechny. Pote co datamodul otevru, tak se to
spravi a property editor jiz nabizi vsechny komponenty z datamodulu.
Muze mi nekdo uvedeny jev vysvetlit?
eNca
-----P�vodn� zpr�va-----
Od: Vot�pka V�clav [mailto:Vaclav.Votipka(zv)merlin(tec)cz]
Odesl�no: 20. �nora 2002 18:06
Komu: 'delphi-l(zv)clexpert(tec)cz'
P�edm�t: IDE smaze hodnotu property
Ahoj
potykam se s nasledujicim problemem:
Mam formular na kterem lezi nekolik komponent TDBLookupComboBox. Ty maji v
properte ListSource prirazen TDataSource(kazda jiny), ktery ale lezi na
datamodulu. Kdyz otevru formular v IDE, tak jsou u vetsiny comboboxu
property ListSource prazdne. IDE nevyhodi zadnou hlasku o tom, ze by je
chtelo smazat a navic formular se jevi jako nezeditovany. V dfm na disku je
v tuto chvili vse v poradku (ListSource maji prirazenou hodnotu).
Samozrejme pokud formular ulozim, tak se ulozi bez vyplnenych ListSource.
Podobne chovani pozoruji i na jinych komponentach. Nesetkal jste se s tim uz
nekdo? Pouzivam D5Ent Update Pack 1 a W2k SP2
eNca
komunikace IB/FB
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.2.2002 19:59:46
W95 potrebuje aktualizace pro DHCP server, Winsock2 a YEAR 2000.
Vse ke stazeni na strankach M$
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.2.2002 Martin Bedn��:
> Na vsech tech masinach na kterych chci tu aplikaci provozovat ( dochazkovy system ) neni TCP/IP.
> Asi bude nutne jej ale v tomto pripade doinstalovat. To taky beru, ale mam problem. Z nekterych stanic
> (win95) se
> k databazi konektnu, ale na nekterych mi to pise nasledujici. Podotykam, ze se normalne pingnu:
> Unable to complete network request to host "192.168.0.20".
> Failed to lacate host machine.
> The specified name was not found in the hosts file or Domain Name Services.ZEOS a cestina
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.2.2002 20:20:42
A je nastaveny charset pri pripojeni k databazi na win1250?
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/
> kamarad ma Delphi 4 Std. a potrebuje se nakonektovat na IB 6.0 Zkousel
Zeos
> library, ktere funguji docela dobre, akorat se objevil problem s vkladanim
> nebo updateovanim zaznamu psanych cesky (z s hackem, e s hackem ...).
Chyba
> ... cannot transliterate between characterset ...
>
> Pritom na stejnou databazi se pres BDE a Delphi 5, quickdesk, IB console
> p�ipojim v pohode a zaden problem se neobjevuje.... :-(
>
> Nevite nekdo, co to muze zapricinovat? Resp. ktere nastaveni ma spatne?
Zobrazovani udaju z tabulky
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 20.2.2002 20:24:11
Pro zobrazovani udaju v tabulce pouzivam DBEdity
Jmeno Primeni Bydliste
Pod tuto skupinu pridam DBEdity
Jmeno Primeni Bydliste
Je mozno v kazdem takovemto radku zobrazovat jiny zaznam tabulky (1,2 3,4
5,6 .....)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
komunikace IB/FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 20.2.2002 20:31:15
Hello, Martin!
You wrote :
[Skipped]
MB> Vsechny protokoly TCP/IP jsou ale stejne nakonfigurovany. Soubor hosts.sam
MB> jsem needitoval a DNS v siti nepouzivame a stejne se z nekterych pocitacu
MB> na server (192.168.0.20) konektnu a z nekterych ne, byt se na nej dopingnu.
Zasadni vec: kdyz pouzivas konnekt na IB pres TCP/IP, musi byt spravne
nakonfigurovan DNS anebo hosts !!!
Jinak to z 99% fungovat nebude.
Kdyz nepouzivas v siti DNS, tak musis nakonfigurovan hosts.
Ne hosts.sam !!
Ten je jenom vzorek.
Soubor hosts nesmi mit preponu.
Na Win9X ma byt ve slozce %windir%.
Na NT, 2k, XP ve slozce %systemroot%\system32\drivers\etc
With best regards, Alex Cherednichenko.Kodovani DBF, BDE a souvislosti
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 20.2.2002 20:51:14
Zkusim to jeste jednou, ale ::
>
> Pokud tam das pro driver LangDriver = "dBase CSY CP867" nebo "FoxPro
> CZECH DOS895", dojde k prekodovani do Windows 1250 (kvuli spravnemu
> zobrazeni) V typu tabulky (query) nastav ttFoxPro, jinak by ti mohl
> brat obladac pro dBase (rozlisuje to podle pripony a dBase ma
> prednost), popr. nastav LangDriver i pro dBase.
>
> Pokud tam nastavis LangDriver nejaky s 1250, nemelo by k prekodovani
> dojit.
Bohuzel, u query nastaveni tabulky neni, langdrivery jsou nastavovany vzdy
stejne jak pro dbase, tak foxpro, implicitni je navic foxpro. Bohuzel k
prekodovani dochazi opravdu nesmyslne:-( uz jsem zkusil snad vsechno (takze
urcite nejakou drobnost jsem prehledl:-)) ) Diky.DBNavigator & click
[*] cYd <cYd(zv)seznam(tec)cz> - 20.2.2002 21:05:55
Hezky den,
jak mam odchytit udalost, ze bylo stisknuto tlacitko "Insert" z DBNavigatoru???
Dekuji
cYd
Zvuky
[*] Fredy Crueger <Fredy.Conf(zv)Seznam(tec)cz> - 20.2.2002 21:12:37
Zdravim
Nevite kde se daji sehnat nejake zvuky vhodn� pro programy? Tim myslim treba
nejaky pipnuti pri vysunuti menu, nebo cvaknuti pro kliknu na tlacitko,
atd.. Nebo neni na to nejaky dobry program na tvorbu takovychto jednoduchych
zvuku?
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)Transparentni TNotebook
[*] Fredy Crueger <Fredy.Conf(zv)Seznam(tec)cz> - 20.2.2002 21:13:30
Potreboval bych neco ve stylu stare komponenty TNotebook, kde jsou pouze
stranky bez nejakych prepinacich prvku. Ale hlavne mi jde o to, aby byl
transparetni. Proste takovy neviditelny Container, ktery ma vice ploch, na
kterych uchovava urcite komponenty.
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)Zajimavost nebo chyba?
[*] Fredy Crueger <Fredy.Conf(zv)Seznam(tec)cz> - 20.2.2002 21:14:03
Pred chvili jsem normalne tvoril program, ktery po zkompilovani mel kolem
450 Kb. Nyni jsem tam udelal nejake zmeny, ne prilis drasticke a najednou
koukam, cely program ma 80 Kb ?!?!? A neni to zadna chyba, program se
normalne spusti a funguje podle ocekavani a pritom jde o standartni
32bitovou aplikaci.Samozrejme tato velikost zustava i po nekolikanasobnych
komplikacich. Vzdy jsem myslel, ze uz jen pri pouziti unity SysUtils
neklesne velikost programu pod 200 kB. Zkuste se k tomu nejak vyjadrit
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)IDE smaze hodnotu property
[*] Vot�pka V�clav <Vaclav.Votipka(zv)merlin(tec)cz> - 20.2.2002 21:28:28
Nemam. Je to primy potomek TDataModule.
eNca
-----P�vodn� zpr�va-----
Od: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
Nemas nahodou ten datamodul vizualne podedeny z jineho datamodulu,
ktery v tu chvili neni pro IDE dostupny (nemuze ho nalezt protoze
neni soucasti projektu)?Zajimavost nebo chyba?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.2.2002 21:30:36
From: "Fredy Crueger" <Fredy.Conf(zv)Seznam(tec)cz>
> Pred chvili jsem normalne tvoril program, ktery po zkompilovani mel kolem
> 450 Kb. Nyni jsem tam udelal nejake zmeny, ne prilis drasticke a najednou
> koukam, cely program ma 80 Kb ?!?!? A neni to zadna chyba, program se
Ahoj,
patrne si odstranil unity jejichz kod jsi sice primo nepouzival ale diky
inicializacnimu kodu byl linkovan do aplikace. Druha moznost je ze jsi
prelozil aplikaci s runtime balicky.
> 32bitovou aplikaci.Samozrejme tato velikost zustava i po nekolikanasobnych
> komplikacich. Vzdy jsem myslel, ze uz jen pri pouziti unity SysUtils
> neklesne velikost programu pod 200 kB. Zkuste se k tomu nejak vyjadrit
Pri pouziti SysUtils je velikost radove desitky kb.
Petr Vones
Editace calculated fieldu
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 20.2.2002 21:36:24
Zdravim,
myslim ze calculated field nelze editovat, ponevac je to vypocitana polozka.
Napr zde muzes vyhodnotit nejakou situaci, napr. kdyz nejaka hodnota je
nejake cislo, tak do calculated das nejaky text. No a jak to chces editovat.
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Prosim vas jde editovat calculated field datasetu - nejak se mi to nedari,
> pokud ne tak k cemu je tam metoda fieldu SetText ????
Pismo na vysku v TBitBtn
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 20.2.2002 21:39:02
Jak to myslis na vysku, Text bude normelne napsany jak jej cteme, a pismenka
budou pouze nad/pod sebou, nebo to pismo ma byt otocene.
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> potrebujem tlacidlo v ktorom bude text na vysku ... da sa to ?
Ulozenie ikony
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 20.2.2002 21:46:15
Mam obrazok v Image a chcem ho ulozit do suboru ako ikonu. Napadlo ma, ze by
som to mohol spravit nasledovne:
Icon:=TIcon.Create;
Image2.Picture.Bitmap.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
Icon.LoadFromClipboardFormat(MyFormat,AData,APalette); *
Icon.SaveToFile(SavePictureDialog1.FileName);
Icon.Free;
Pri riadku s hviezdickou mi vsak vypise hlasku Clipboard does not support
Icons. Podla mojho nazoru je to len preto, ze v image mam 24 bit-ovi
obrazok, co nie je pripustne pre objekt Icon. Smola je, ze neviem ako to mam
zmenit.
Vdaka za kazdu radu.Image s efekty
[*] Kan�r - 20.2.2002 21:56:38
Nevi nekdo o komponente, ktera umoznuje vykreslovat obrazky (nejlepe BMP i
JPG) za pomoci efektu? (napriklad postupne sesypani, kruhovy strih apod).
D4standart
Diky
Delphi 6 Update Pack #2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.2.2002 22:17:31
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> delphi, dokud nebude nova verze IBX :(. zrovna dneska teda nemam moc
Ahoj,
IBX update 6.03 for Delphi 6. If you apply D6 UP2 apply this after the update.
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17555
Kdyz jsme u tech updatu, na strance QuSoftu existuje update, ktery konecne
funguje s D6:
Quick Report Standard 3.5.1 for Delphi 6. Full install
http://www.qusoft.com/DownloadS.html
Petr Vones
Zvuky
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.2.2002 23:51:19
Muzes pouzit:
1. software pro zaznam zvuku a mikrofon nebo linku (radio,televize) a
"nasamplovat" si to sam
2. internet, klicova slova: sound sample wave atd., mrknul bych se na
stranky vyrobcu zvukovych karet, sampleru, synt apod. (na www.maz-sound.com
byvaly dobre veci zadarmo, hledej v oddeleni Samples)
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/
> Zdravim
> Nevite kde se daji sehnat nejake zvuky vhodn� pro programy? Tim myslim
treba
> nejaky pipnuti pri vysunuti menu, nebo cvaknuti pro kliknu na tlacitko,
> atd.. Nebo neni na to nejaky dobry program na tvorbu takovychto
jednoduchych
> zvuku?
Nakonektovani k databazi na internetu
[*] Reesha <reeshad(zv)seznam(tec)cz> - 21.2.2002 01:21:47
Dobry den,
chci se zeptat na jednu vec. Mam u poskytovatele webhostingu zrizenou
databazi MySQL se kterou bude pracovat internetovy obchod. Chtel bych ale
vytvorit aplikaci v delphi, ktera dokaze data z teto databaze nacist a take
je tam vlozit. (uzivatel si offline vytvori sortiment a pak se pripoji a
vyrobky ci nejake jine informace nasype do databaze)
Nevim ale vubec, jakym smerem se ubirat. Jestli se da k datum pripo
pristupovat, ci je zpracovavat a predavat mezi skriptem a mou aplikaci jako
XML ... ??
Nemam zadne zkusenosti s programovam v aplikaci pro internet v delphi. Tak
prosim o pomoc, zda-li byste mi nemohli poskytnout nejake informace, jak
zacit.
Predem diky
Richard Strunc
PS: Mam ZEOS library pro pristup k MySQL, Delhi 5 prof., W2000
Handle NotifyEventu + WaitFor
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 21.2.2002 07:03:36
Cau,
muj dotaz asi zapadl tak jeste jednou a trochu podrobneji. Ve svy podstate bych potreboval nastavit naky timeout na udalost od scanneru na RS232 bez pouziti TTimer, zkousel jsem pres WaitForSingleObject ale ktomu prave potebuji zjistit handle NotifyEventu, pokousim se zkrze OpenEvent ale vubec se mi nedari, muze me nekdo nasmerovat zpravnym smerem jak ziskat pozadovany handle, popripade jakym jinym zpusobem, nastavit naky timeout na odezvu...
procedure test;
var
fRxFlag: TNotifyEvent;
evHandle: THandle;
begin
fRxFlag:= CPScanOnRxFlag;
evHandle:= OpenEvent(EVENT_ALL_ACCESS, true, (zv)fRxFlag); //vrati errorcode 2
if WaitForSingleObject(evHandle, 5000) = WAIT_TIMEOUT then
begin
ComPort1.WriteStr(Char(27) + 'S8' + Char(13)) > 0;
ShowMessage('TimeOUT');
end;
end;
CPScanOnRxFlag je procedura navlecena na NotifyEvent z komponenty pro komunikaci RS232 (Comport1.OnRxFlag:= CPScanOnRxFlag)
dik Ladap
Pismo na vysku v TBitBtn - otocene
[*] Slavom�r �eke� - 21.2.2002 07:06:24
Myslim OTOCENE ...
Slavo
Jak to myslis na vysku, Text bude normelne napsany jak jej cteme, a
pismenka
budou pouze nad/pod sebou, nebo to pismo ma byt otocene.> potrebujem tlacidlo v ktorom bude text na vysku ... da sa to ?
icona do DLL
[*] Standa <Ooman(zv)centrum(tec)cz> - 21.2.2002 07:13:26
De nejak za behu aplikace vlozit do DLL iconu?OT: stahovani tarifikacnich udaju z tel. ustredny
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 21.2.2002 07:52:58
> On 20 Feb 2002, at 16:00, Tomas Vida wrote:
> > nevite jak na stahovani tarifikacnich udaju z tel. ustreden? Je na to
> > nejaky obecny postup?
> V podstate je obecny postup v tom, ze se ctou data s toho portu.
> Ale vazne - je potreba vedet, v jakem formatu ta ustredna data
> posila. To je pro kazdou jine a velice rozmanite, zhruba se to da
V podstate mas pravdu, ale vzdycky jsou to textova data. Staci vsechno
prijmout a pak si podle prijatych dat udelat nejaky parser, ktery rozebere
jednoduchy soubor.
Tusim, ze je pravidlem, ze vsechny ustredny to posilaji ve formatu, ktery ma
pevne umistene jednotlive sloupce, tudiz tam nejsou oddelovace.
Jeste jedna vec - zajisti si prubezne stahovani, protoze ustredny maji
docela maly buffer (tusim, ze 616-ka ma jenom 32kB).
> odpozorovat od oka. Nektere ustredny potrebuji nakopnout - nez
> zacne posilat data, musi se na ten port neco poslat a to neco
> muze byt zase ruzne. Nektere ustredny data posilaji a nestaraji se
> o ne, jine pozaduji za kazdou vetou ACK.
Vetsina ustreden kasle na potvrzovani - lze pripojit i seriovou tiskarnu.
> Z.Kalhous
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Nakonektovani k databazi na internetu
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 21.2.2002 08:00:15
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Reesha
Sent: Thursday, February 21, 2002 1:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Nakonektovani k databazi na internetu
Dobry den,
chci se zeptat na jednu vec. Mam u poskytovatele webhostingu zrizenou
databazi MySQL se kterou bude pracovat internetovy obchod. Chtel bych
ale vytvorit aplikaci v delphi, ktera dokaze data z teto databaze nacist
a take je tam vlozit. (uzivatel si offline vytvori sortiment a pak se
pripoji a vyrobky ci nejake jine informace nasype do databaze) Nevim ale
vubec, jakym smerem se ubirat. Jestli se da k datum pripo pristupovat,
ci je zpracovavat a predavat mezi skriptem a mou aplikaci jako XML ...
??
Nemam zadne zkusenosti s programovam v aplikaci pro internet v delphi.
Tak prosim o pomoc, zda-li byste mi nemohli poskytnout nejake informace,
jak zacit.
Predem diky
Richard Strunc
PS: Mam ZEOS library pro pristup k MySQL, Delhi 5 prof., W2000
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
ZEOS a cestina
[*] R.Chwalek <delphi(zv)atlascon(tec)cz> - 21.2.2002 08:05:25
Ahoj,
samoz�ejm�, �e je .... dokonce do parametru databaze vkladam
lc_ctype=WIN1250 na tech D4 Std. proste nic nepomaha....
Kdyz si zkusim stejnou sadu komponent nainstalovat do Delphi 5 u sebe, tak
to projde naprosto v pohode.....
Opravdu jste to nikdo nezkousel? Resp. ma nekdo jiny navrh, jak se z D4 Std.
pripojit na IB6? hlavne to musi byt free.....
Radek
----- Original Message -----
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 20, 2002 8:20 PM
Subject: Re: ZEOS a cestina
> A je nastaveny charset pri pripojeni k databazi na win1250?
>
> Roman
> - - - - - - - - - - - - - - - - - - - - -
> http://kouzelne.misto(tec)cz/
>
> > kamarad ma Delphi 4 Std. a potrebuje se nakonektovat na IB 6.0 Zkousel
> Zeos
> > library, ktere funguji docela dobre, akorat se objevil problem s
vkladanim
> > nebo updateovanim zaznamu psanych cesky (z s hackem, e s hackem ...).
> Chyba
> > ... cannot transliterate between characterset ...
> >
> > Pritom na stejnou databazi se pres BDE a Delphi 5, quickdesk, IB console
> > p�ipojim v pohode a zaden problem se neobjevuje.... :-(
> >
> > Nevite nekdo, co to muze zapricinovat? Resp. ktere nastaveni ma spatne?
>
>
Zajimavost nebo chyba?
[*] voltrr1.epr(zv)mail.cez(tec)cz - 21.2.2002 08:06:51
> 450 Kb. Nyni jsem tam udelal nejake zmeny, ne prilis drasticke a najednou
> koukam, cely program ma 80 Kb ?!?!? A neni to zadna chyba, program se
V D5 se me obcas stane ze se aplikace prelozi s balikcky i kdyz to neni
zapnute. Zkus zapnout build s balicky a ze seznamu smazat vse krome VCL50,
pak to buildni, pak zrus ze seznamu i VCL50 a buildni znova
Cus
Radek
Nakonektovani k databazi na internetu
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 21.2.2002 08:06:38
Ahoj,
pro ucely dalkoveho plneni dat do mySQL se hlavne potrebujes do te
databaze dostat. Vsichni provozovatele webhostingovych serveru to maji
delano tak, ze do mysql maji povolen pristup jen z localhostu, coz je
prave ten pocitac, na kterem mySQL bezi. Zkus se zkontaktovat se
spravcem tohoto serveru, jestli by ti mohl povolit pristup do tve
databaze z tve (nebo zakaznikove) IP adresy.
Ja osobne bych to udelal tak, ze bych zakaznikovi nainstaloval na jeho
lokalni pocitac take mySQL server, on by si svuj sortiment pekne
spracoval u sebe, a potom by si pomoci mysqldump jenom provedl
prekopirovani dat na hostingovy server. ZEOS je pro mySQL dobra volba,
take je pouzivam.
Jiste existuje jeste cela dalsi spousta reseni, snad se ozve jeste nekdo
jiny....
Tomas
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Reesha
Sent: Thursday, February 21, 2002 1:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Nakonektovani k databazi na internetu
Dobry den,
chci se zeptat na jednu vec. Mam u poskytovatele webhostingu zrizenou
databazi MySQL se kterou bude pracovat internetovy obchod. Chtel bych
ale vytvorit aplikaci v delphi, ktera dokaze data z teto databaze nacist
a take je tam vlozit. (uzivatel si offline vytvori sortiment a pak se
pripoji a vyrobky ci nejake jine informace nasype do databaze) Nevim ale
vubec, jakym smerem se ubirat. Jestli se da k datum pripo pristupovat,
ci je zpracovavat a predavat mezi skriptem a mou aplikaci jako XML ...
??Jak pouzivat Loadpackage a Unloadpackage?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 21.2.2002 08:21:02
Zdravim,
mam aplikaci ve ktere pouzivam vetsi mnozstvi vlastnich balicku (asi 15).
Vse funguje bez problemu, ale mam pocit ze pri spusteni aplikace se vsechny
balicky nactou do pameti (staticky?). Pri tom nektere nemusi byt vubec
pouzity. Predpokladam, ze by mohlo existovat nejake dynamicke nacteni (tak
jako u DLL).
Pravdepodobne by k tomu mohl slouzit %subject%. Muzete mi tento problem
nekdo trochu osvetlit, respektive nejaky priklad nebo odkaz.
Diky
D5Ent.Systemovy cas pocitaca v sieti
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 21.2.2002 08:22:02
Ahoj
Robim jeden malicky program na sledovanie dochadzky zamestnancov.
Aplikacia pobezi na jednom stroji odkial ho budu ostatny uzivatelia spustat.
Aby mali rovnaky cas, potreboval by som zistit aktualny cas pocitaca odkial
bola aplikacia spustena. V konferencii som nasiel aj funkciu ktora tento
problem riesi
"Napriklad pomoci funkce NetRemoteTOD z NetApi"
ale neviem to pouzit. Mohol by mi niekto pomoct ako to pouzit ? Ako dostat
datum a cas pocitaca ?
Dakujem vsetkym za pomoc
Vlado
Rozlozenie nazvu suboru
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 21.2.2002 08:29:58
Kedysi som pouzival jednu Delphi funkciu, do ktorej vstup bol nazov suboru s
celou cestou a vystup bol cesta subora, nazov a pripona zvlast. Nemozem tu
funkciu teraz narychlo najst. Neviete niekto jej nazov?
Vdaka za kazdu radu.
--------------
Ikony pre svoje programy najdete na www.kasman.martin.as
H:Jak na DLL v Delphi?
[*] Petr Hlo�ek <phlozek(zv)post(tec)cz> - 21.2.2002 08:32:08
Dobr� den,
pros�m v�s o radu jak pou��t funkce z dll psan� v jazyce C v Delphi. Nem�m st�m moc zku�enost�.
Autor napsal k funkc�m tento text:
BOOLEAN WINAPI AGWGetData(LPSTR FromCall,LPSTR Data,LPDWORD DataKind,LPDWORD DataLen,LPDWORD RadioPort);
You call this function to see if there are available data. If no data are available returns FALSE. If there are data returns TRUE and all the variables are filled.
LPSTR FromCall The call from which the data are from. Can be empty if Unproto data or Mheard list etc
LPSTR Data The data it is not NULL terminated and can conatain NULLs inside it. So dont use the strcpy() or lstrcpy() functions to get the data. Instead use the CopyMemory() Windows function.
LPDWORD DataKind Points to a variable that will be filled with The data kind (Unproto,MHeard list etc)
LPDWORD DataLen Points to a variable that will be filled with The length of DATA string
LPDWORD RadioPort Points to a variable that will be filled with the radioport from which the data received the first port has number 0, the second 1 etc.
(jedn� se o soubor AGW32DLL.DLL)
Nev�mn si st�m rady.
D�kuji mnohokr�t a omlouv�m se, jestli zat�uji konferenci t�mito pro n�koho mo�n� trivi�ln�mi ot�zkami.
P�eji hezk� den!
Petr Hlo�ek
Service
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 21.2.2002 08:45:10
>
> > Pokusam sa spravit service pod Win NT v DELPHI 5.
> > Ale ked ho spustim, tak sa hned zatvori. A ja neviem preco. Prosim
> Vas porad
> > te mi preco sa hned zatvara.
>
> Doudam, ze ho spoustis pomoci Control panel /services (pred tim
> service samozrejme musis samozrejme registrovat abyjej ServiceManager
> znal) - ne jen jako obycejne execko.
>
> D. Toman
>
>
Ako sa registruje service ?
Ja som skusal registrovat service, tak ze som spustil exe subor s parametrom
/INSTALL.
Ale v Control panel\Sluzby sa mi neobiavila moja sluzba.
Prosim Vas porad te mi.
Miro.Nakonektovani k databazi na internetu
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 21.2.2002 08:47:59
Ahoj,
pochybuju, ze spravce serveru povoli vzdaleny pristup do SQL databaze,
kterou spravuje! Standardne se to dela tak, ze se napise skript
(PHP,ASP,JSP,CGI...) ten se umisti na spravcem urceny server a zpristupni
sluzbou http. Offline programek se, v okamziku kdy chce, nakonekti na tento
skript z jakekoliv IP a davkove, formou kterou jsem jiz naznacil v prispevku
z 15.2.2002, odesle ulozena data. Je to proste a jiz nejakou dobu to
pouzivam. Hlavni vyhodou tohoto pojeti je, ze data projdou pres vsechny
fajrvoly a da se pouzit SSL!
Michal
----- Original Message -----
From: "Tomas Vida" <vida(zv)uniware(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 21, 2002 8:06 AM
Subject: RE: Nakonektovani k databazi na internetu
> Ahoj,
> pro ucely dalkoveho plneni dat do mySQL se hlavne potrebujes do te
> databaze dostat. Vsichni provozovatele webhostingovych serveru to maji
> delano tak, ze do mysql maji povolen pristup jen z localhostu, coz je
> prave ten pocitac, na kterem mySQL bezi. Zkus se zkontaktovat se
> spravcem tohoto serveru, jestli by ti mohl povolit pristup do tve
> databaze z tve (nebo zakaznikove) IP adresy.
> Ja osobne bych to udelal tak, ze bych zakaznikovi nainstaloval na jeho
> lokalni pocitac take mySQL server, on by si svuj sortiment pekne
> spracoval u sebe, a potom by si pomoci mysqldump jenom provedl
> prekopirovani dat na hostingovy server. ZEOS je pro mySQL dobra volba,
> take je pouzivam.
>
> Jiste existuje jeste cela dalsi spousta reseni, snad se ozve jeste nekdo
> jiny....
>
> Tomas
>
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
> Behalf Of Reesha
> Sent: Thursday, February 21, 2002 1:22 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Nakonektovani k databazi na internetu
>
>
> Dobry den,
>
> chci se zeptat na jednu vec. Mam u poskytovatele webhostingu zrizenou
> databazi MySQL se kterou bude pracovat internetovy obchod. Chtel bych
> ale vytvorit aplikaci v delphi, ktera dokaze data z teto databaze nacist
> a take je tam vlozit. (uzivatel si offline vytvori sortiment a pak se
> pripoji a vyrobky ci nejake jine informace nasype do databaze) Nevim ale
> vubec, jakym smerem se ubirat. Jestli se da k datum pripo pristupovat,
> ci je zpracovavat a predavat mezi skriptem a mou aplikaci jako XML ...
> ??OT: Ulozeni nastaveni barev v registru
[*] �EZN��EK David - 21.2.2002 08:49:29
Omlouvam se za OT, ale marne hledam ulozeni barevneho schema,
barev oken a nastaveni tykajiciho se vzhledu oken... Muzete mi
nekdo poradit kde v registru to najdu ????
Dik za namety.
....... Reznicek David .......
...... reznicek(zv)jakl(tec)cz ......
... mailto:reznicek(zv)jakl(tec)cz...
....... www.gag.virt(tec)cz ......
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Aplikace XML podruhe
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.2.2002 08:53:01
Uz jsem jednou podobny dotaz zkousel, ale odpovedi nebyly moc
presne. Zrejme jsem to dost dobre nepopsal.
Kolega to zkusil rozepsat podrobneji. Prosim zkuste nekdo poradit.
Diky
mam nasledujici "konfiguraci"
- standardizovany datovy model, ktery muze byt implementovan na
libovolnem SQL serveru
- XML rozhrani, ktere slouzi k tomu, aby mohla libovolna aplikace,
ktera pouziva toto standardizovane XML rozhrani komunikovat s
datovym
serverem
- aplikaci, kterou muze napsat kdokoli, kdo zna standardizovane
XML
rozhrani, ktere se sestava z XML dictionary (coz je v podstate popis
datoveho modelu v XML) a XML schemat, ktere urcuji co se muze a
nemuze po
rozhrani chtit.
Napriklad tedy: mam primitivni aplikaci, ktera uklada do databaze
pravidelne nejake vysledky mereni. Probiha to tak, ze pripravi data,
ulozi
je do XML dokumentu, ktery vyhovuje nejakemu schematu a tento
dokument
posle aplikacnimu serveru.
Aplikacni server prijme XML dokument a nyni musi "prelozit" tento
dokument do SQL dotazu (resp SQL INSERT). A to je nejvetsi
problem.
Chtel jsem to mit nejak automatizovane. Schemata jsou pomerne
slozita a
rozsahla. U velmi jednoducheho dokumentu by to asi jeste nejak
slo, ale
nevim jak to resit v pripade, ze obsah XML dokumentu ma vliv treba
na 10
tabulek. Pravdepodobne potrebuji popsat vazby mezi XML
schematem a SQL
databazi pro kazde XML schema zvlast. To by jeste slo. Ale jak?
Neni na to
nejaky vhodny nastroj? Podotykam, ze do standardizovanych XML
schemat ani
do XML dictionary nemohu zasahovat. V SQL databazi si mohu
dovolit pridat
tabulky. S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Aplikace XML podruhe
[*] voltrr1.epr(zv)mail.cez(tec)cz - 21.2.2002 09:12:11
> Aplikacni server prijme XML dokument a nyni musi "prelozit" tento
> dokument do SQL dotazu (resp SQL INSERT). A to je nejvetsi
> problem.
Podle mne to jde velmi jednoduse :
1. XML bych rozparsoval do pameti - kazda XML entita se da pomerne dobre
popsat napr. jako cesta
<NAME>
<ID NAMEX="xxxx"/>
<QUAK>aaaaa</QUAK>
</NAME>
<ROOT NAMEX="yyyy"/>
bych ulozil do tabulky
Path;Ident;Value
NAME; ;
NAME/ID;NAMEX;xxxx
NAME/QUAK; ;aaaaaa
2. vytvoril bych prekladaci algoritmus ktera todle projede a vytvori z toho
seznam sloupecku pro DB
napr. hledanim v takoveto tabulce
Path;Ident;DB_Table;DB_Field
NAME;*; IB_NAMETable;
ROOT;*; IB_ROOTTable;
*;NAMEX; ;ib_namex_varchar
NAME/ID; ;IB_NAMETable;IB_ID
NAME/QUAK; ;IB_NAMETable;IB_QUAK
ti to vytvori seznam :
IB_NAMETable; ib_namex_varchar; xxxx
IB_ROOTTable; ib_namex_varchar; yyyy
IB_NAMETable; ib_quak;aaaa
3. tendle seznam projedes ,vyberes vzdy zaznamy pro stejnou tabulku,
vytvoris dynamicky SQL a posles do DB
Cus
Radek
Nakonektovani k databazi na internetu
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 21.2.2002 09:23:08
Delaji to placeni provideri. Pro dnes jiz nefungujici domenu kamnaobed(tec)cz
jsem delal i klient aplikaci a tam jsem sel primo na jejich server.
Localhost vetsinou delaji provideri, kteri freewebhzosting. Z free jsem
narazil i na vzdaleny pristup u providera, jehoz URL si uz nepamatuji, ale
hosting mel domenu 2.radu 3web ( neco jako splaska.3web(tec)cz) Tam nam to taky
chodilo
Martin
-----Original Message-----
From: Tomas Vida [mailto:vida(zv)uniware(tec)cz]
Sent: Thursday, February 21, 2002 8:07 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Nakonektovani k databazi na internetu
Ahoj,
pro ucely dalkoveho plneni dat do mySQL se hlavne potrebujes do te
databaze dostat. Vsichni provozovatele webhostingovych serveru to maji
delano tak, ze do mysql maji povolen pristup jen z localhostu, coz je
prave ten pocitac, na kterem mySQL bezi. Zkus se zkontaktovat se
spravcem tohoto serveru, jestli by ti mohl povolit pristup do tve
databaze z tve (nebo zakaznikove) IP adresy.
Ja osobne bych to udelal tak, ze bych zakaznikovi nainstaloval na jeho
lokalni pocitac take mySQL server, on by si svuj sortiment pekne
spracoval u sebe, a potom by si pomoci mysqldump jenom provedl
prekopirovani dat na hostingovy server. ZEOS je pro mySQL dobra volba,
take je pouzivam.
Jiste existuje jeste cela dalsi spousta reseni, snad se ozve jeste nekdo
jiny....
Tomas
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Reesha
Sent: Thursday, February 21, 2002 1:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Nakonektovani k databazi na internetu
Dobry den,
chci se zeptat na jednu vec. Mam u poskytovatele webhostingu zrizenou
databazi MySQL se kterou bude pracovat internetovy obchod. Chtel bych
ale vytvorit aplikaci v delphi, ktera dokaze data z teto databaze nacist
a take je tam vlozit. (uzivatel si offline vytvori sortiment a pak se
pripoji a vyrobky ci nejake jine informace nasype do databaze) Nevim ale
vubec, jakym smerem se ubirat. Jestli se da k datum pripo pristupovat,
ci je zpracovavat a predavat mezi skriptem a mou aplikaci jako XML ...
??Editace calculated fieldu
[*] <ZPetruj(zv)qgir(tec)cz> - 21.2.2002 09:36:44
Nemas pravdu ze calculated field by v principu nemel jit editovat.
Napr. jestlize calcfield = datafield * konstanta
pak bych chtel po editaci calcfieldu ulozit do datafieldu hodnotu
calcfield/konstanta .... co ty na to ??????
> -----Original Message-----
> From: Pavel ZIDEK [mailto:delphi(zv)kopr(tec)cz]
> Sent: Wednesday, February 20, 2002 9:36 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Editace calculated fieldu
>
>
> Zdravim,
> myslim ze calculated field nelze editovat, ponevac je to
> vypocitana polozka.
> Napr zde muzes vyhodnotit nejakou situaci, napr. kdyz nejaka
> hodnota je
> nejake cislo, tak do calculated das nejaky text. No a jak to
> chces editovat.
>
> ----- Pavel ZIDEK -----
> http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
>
>
> > Prosim vas jde editovat calculated field datasetu - nejak
> se mi to nedari,
> > pokud ne tak k cemu je tam metoda fieldu SetText ????
>
>
> Systemovy cas pocitaca v sieti
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.2.2002 09:42:10
> Ahoj
>
> Robim jeden malicky program na sledovanie dochadzky zamestnancov.
> Aplikacia pobezi na jednom stroji odkial ho budu ostatny
> uzivatelia spustat.
> Aby mali rovnaky cas, potreboval by som zistit aktualny cas
> pocitaca odkial
> bola aplikacia spustena. V konferencii som nasiel aj funkciu
> ktora tento problem riesi
>
> "Napriklad pomoci funkce NetRemoteTOD z NetApi"
>
> ale neviem to pouzit. Mohol by mi niekto pomoct ako to pouzit
> ? Ako dostat datum a cas pocitaca ?
Na
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=jul&den=02&soubor=dlfaaabh.ht
m najdes:
function ServerTime(UNCServer: string; var Stamp: TDateTime): Integer;
UNCServer - UNC cesta k stroju, ktoreho cas chces zistit. napr.
'\\MYSERVER'. Ak zadas prazdny string, berie sa lokalny stroj.
Stamp - v pripade uspesneho vykonania bude obsahovat hladany cas
Navratova hodnota - v pripade uspechu 0 (NERR_SUCCESS), inak chybovy kod, a
v tom pripade je hodnota Stamp nezmenena.
HTH
TOndrej
H:Jak na DLL v Delphi?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.2.2002 09:56:59
> Dobr� den,
> pros�m v�s o radu jak pou��t funkce z dll psan� v jazyce C v Delphi.
Nem�m st�m moc zku�enost�.
musis si header file z C prepsat do pascalu.
> Autor napsal k funkc�m tento text:
>
> BOOLEAN WINAPI AGWGetData(LPSTR FromCall,LPSTR Data,LPDWORD
DataKind,LPDWORD DataLen,LPDWORD RadioPort);
mozny prepis by mohl vypadat takto:
Function AGWGetData(VAR FromCall : Pointer; VAR Data : Pointer; VAR
DataKind : DWORD; VAR DataLen : DWORD; VAR RadioPort : DWORD) :
BOOL;stdcall;
pokud fromcall ma ukazovat na string (zero terminated) pak muze byt
nahrazena hlavicka zapisem:
Function AGWGetData(FromCall : PChar; VAR Data : Pointer; VAR DataKind
: DWORD; VAR DataLen : DWORD; VAR RadioPort : DWORD) : BOOL;stdcall;
D. Toman
Jak na DLL v Delphi?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.2.2002 10:07:35
> BOOLEAN WINAPI AGWGetData(LPSTR FromCall,LPSTR Data,LPDWORD
> DataKind,LPDWORD DataLen,LPDWORD RadioPort);
Mozes to skusit takto:
function AGWGetData(FromCall, Data: PChar; var DataKind, DataLen, RadioPort:
DWORD): BOOL; stdcall;
external 'agw32dll.dll' name 'AGWGetData';
(bez zaruky)
HTH
TOndrej
Shutdown versus Logoff
[*] EFG developer <developer(zv)efg(tec)cz> - 21.2.2002 10:08:46
Zdravim vsechny,
Muj predchozi dotaz asi nejak zapadl, tak to zkusim jeste jednou a
trosku jinak.
Jak lze odlisit (zjistit) vypnuti PC a nebo pouhe odlogovani se ?
Potrebuji to pro aplikaci ktera bezi jako service a pri odlogovani se ma
normalne bezet dal.
Dekuji Petr Sikola