Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Object to File
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 20.10.1997 20:24:38
> Ahoj, mam radu objektu (ne komponent) nap��klad v�Tlist a potreboval
> bych vsechny ulozit do souboru nebo do streamu a pak je zase ze streamu
> nebo ze souboru precist. Poradi mi n�kdo jak jednoduse na to. Kdysi jsem
> to uz delal ale skleroza a ztrata archivu udelaji sve.
>
> S�pozdravem
> Zdenek Petruj
>
>
Jednoduchy zpusob neexistuje. Musis vsechny objekty naucit ulozeni se
do streamu. Napr. metodou savetostream.
Pak to vsechno ulozis
for i := 0 to list.count-1 do (list.objects[i] as
tmyobject).savetostream.
Uplne nejlepsi je udelat pro sve objekty predka, ktery ma metodu
savetostream a loadfromstream, samozrejme override.
Dale je dobre udelat si sveho potomka TList, kteremu prepises
savetostream a loadfromstrea, vsechno override.
V MyList.savetostream doporucuji nejprve ulozit pocet objektu, a az
potom objekty. V MyList.loadfromstream nejpr
prectes pocet objektu, pak je nactes.
Snad to pochopis, chtelo by to mozna vice rozepsat.
Radim Kunz
Radim Kunz Software
Radim.Kunz(zv)bigfoot.com
rkunz(zv)ova.comp(tec)cz
�esk� jazykove ovladace pro InterBase
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 21.10.1997 09:01:50
Nev� n�kdo kde bych mohl sehnat �esk� jazykov� ovlada�e pro InterBase
(nap�. pro znakovou sadu WIN1250).
D�ky
Vita
EnumServicesStatus, D2
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.10.1997 10:36:03
1000000x diky Alesi Zelenemu - diky teto funkci se mi
podarilo
vyresit problem s rozpoznanim typu spousteni programu
(services kontra aplikace)
Takhle se to povedlo me vymamit seznam services (v D3):
Procedure BFLMPSVZe;
VAR
SChandle : Thandle;
Res : Integer;
Needed : DWORD;
BuffSize : Integer;
Next : DWORD;
Services : DWORD;
I : Integer;
TYPE
PStatusBuffer = ^TStatusBuffer;
TStatusBuffer = Array[0..100] of TENUM_SERVICE_STATUS;
VAR
PStat : PENUM_SERVICE_STATUS;
begin
SCHandle := OpenSCManager('',NIL,SC_MANAGER_ALL_ACCES);
if SCHAndle = 0 then
begin
Res := GetLastError;
.........
Exit;
end;
PStat := NIL;
//pocatecni velikost bufferu na 20 services
BuffSize := SizeOf(TENUM_SERVICE_STATUS)*20;
PStat := HeapAlloc(GetProcessHeap,0,BuffSize);
//nastavit na NULU
Next := 0;
Res := 0;
if NOT
EnumServicesStatus(SCHandle,SERVICE_WIN32,SERVICE_ACTIVE+SER
VICE_INACTIVE,
PStat^,
BuffSize,
Needed,
Services,
Next) then
begin
// pokud se nepovedlo nacist vsechny services vraci se
LastError = 234=ERROR_MORE_DATA
Res := GetLastError;
if Res = ERROR_MORE_DATA then
begin
Res := 0;
HeapFree(GetProcessHeap,0,PStat);
PStat := NIL;
// !!!!!!!!!!!!!! promennou needed naplni API velikosti
ZBYVAJICICH dat
BuffSize := BuffSize+Needed;
PStat := HeapAlloc(GetProcessHeap,0,BuffSize);
// !!!!!!!! zase nastavit na NULU,
// samozrejme je mozne zpracovat jiz nactena data a pak
nacist zbyvajici (BuffSize := Needed),
// me se to ale hodilo takhle
Next := 0;
if NOT
EnumServicesStatus(SCHandle,SERVICE_WIN32,SERVICE_ACTIVE+SER
VICE_INACTIVE,
PStat^,
BuffSize,
Needed,
Services,
Next) then
begin
Res := GetLastError;
end
end;
end;
if Res = 0 then
begin
// a je to
end;
S pozdravem
Dalibor Toman
----------
> Odes�latel: Ales Zeleny <zelenya(zv)mlp(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: EnumServicesStatus, D2
> Datum: 20. ��jna 1997 15:08
>
> DDV,
>
> Nemate nekdo zkusenost s funkci EnumServicesStatus?
>
> Ponekud jsem se zamotal, v tom co funkci predhodit, aby
nekoncila
> ctenim z cteni neinicializovane pameti.
>
> Resp.: Jak alokovat record ENUM_SERVICE_STATUSA
(WinSVC.pas) a co
> funkci predhodit jako velikost bufferu.
>
> Diky za napady, rady, pomluvy...
> Prikladky vitany!!!
>
> winsvc.pas:
>
> type ENUM_SERVICE_STATUSA = packed record
> lpServiceName: PChar;
> lpDisplayName: PChar;
> ServiceStatus: SERVICE_STATUS;
> end;
>
>
> API help:
>
> BOOL EnumServicesStatus(
>
> SC_HANDLE hSCManager, // handle of service control
manager
> database DWORD dwServiceType, // type of services to
enumerate
> DWORD dwServiceState, // state of services to
enumerate
> LPENUM_SERVICE_STATUS lpServices, // address of
service status
> buffer DWORD cbBufSize, // size of service status
buffer LPDWORD
> pcbBytesNeeded, // address of variable for bytes
needed LPDWORD
> lpServicesReturned, // address of variable for number
returned
> LPDWORD lpResumeHandle // address of variable for
next entry
> );
>
>
>
> +------------------------+
+---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny
OK1UUE|
> |Mestska knihovna v Praze| |Municipal
Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1
|
> |115 72 | |115 72
|
> | | |
|
> |Tel.: (420)(2)2448 3203 | |Tel.: (420)(2)
2448 3203 |
> |E-mail:zelenya(zv)mlp(tec)cz |
|E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME:
ISO-8859-2 OK! |
> +------------------------+
+---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit
paralelne.
>
> Multitasking means that applications can crash
simultaneously.
�esk� jazykove ovladace pro InterBase
[*] Software TDA <softda(zv)mbox.vol(tec)cz> - 21.10.1997 10:58:12
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 21. ��jna 1997 9:02
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: �esk� jazykove ovladace pro InterBase
Nev� n�kdo kde bych mohl sehnat �esk� jazykov� ovlada�e pro InterBase
(nap�. pro znakovou sadu WIN1250).
D�ky
Vita
jak zrychlit spousteni programu?
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 21.10.1997 14:01:37
Ahoj,
potrebuji zrychlit spousteni db programu. Na zacatku
se vytvari datove moduly, cim vice komponent obsahuji,
tim je to pomalejsi. Hledam radu jak to zrychlit.
Rada, nevytvarej datove moduly pri startu asi moc nepomuze. Jedna
se o db aplikaci a kazda akce uzivatele povede na
potrebu existence datoveho modulu.
Milos
TreeView and ListView jako ve Windows 95 Explorer
[*] Tomas Krecmer <tokr(zv)tmapy(tec)cz> - 21.10.1997 14:16:58
Zdravim,
nevite nekdo o fungujicich komponentach pro Delphi 3 pomoci kterych
by, kdyby to bylo potreba, sel naprogramovat Windows Explorer
(Pruzkumnik). Mel jsem nejake pro Delphi 2.1 a fungovaly bezvadne,
ale to co jsem stahnul pro Delphi 3 me zatim nechodi.
Dekuji predem.
Tomas Krecmer
----------------------------------------------------------------------
_____ T-Mapy spol. s r.o. Phone: +42 49 673180
|_ _| Ing.Tomas Krecmer Fax: +42 49 619122
MAPY Skroupova 957 Email: tokr(zv)tmapy(tec)cz
|_| 500 02 Hradec Kralove
Czech Republic
----------------------------------------------------------------------
EnumServicesStatus, D2
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 21.10.1997 14:17:38
DDV,
> 1000000x diky Alesi Zelenemu - diky teto funkci se mi
> podarilo
> vyresit problem s rozpoznanim typu spousteni programu
> (services kontra aplikace)
No, nevim kdo komu vice dekuje, ale ja _ROZHODNE_VELMI_DEKUJI_ padim
to zkusit napchat do D2. Jinak, kdyz se na to podivam, tak si
pripadam jako toruba; mohlo mne to taky napadnout.
BTW: Zkousel jste to pomoci fce QueryServiceStatus? Tam je daleko
mene parametru a pokud se ptate na jednu konkretni service, mohlo by
to projit (ja se chystal to pro jednu konkretni hlidanou service
napsat takto, lec mel jsem pocit ze to je kapku neelegantni).
Jeste jednou diky!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)2448 3203 | |Tel.: (420)(2) 2448 3203 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.�esk� jazykove ovladace pro InterBase
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 21.10.1997 15:46:35
Zadne specialni ovladace neexistuji, vse umi InterBase a Delphi (BDE)
Pouzivate-li Delphi pak nastavte v BDE neco jako Pdox ANSI Czech nebo jiny ANSI Czech
Pri tvorbe IB databaze v IISQL dejte do options "default character set win1250"
(Pokud jiz mate nejakou databazi v IB vytvorenou, tak to uz nejde jednoduse zmenit)
J. Burian
----------
Od: V�t�zslav Gazda
Odesl�no: 21. ��jna 1997 10:01
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: �esk� jazykove ovladace pro InterBase
Nev� n�kdo kde bych mohl sehnat �esk� jazykov� ovlada�e pro InterBase
(nap�. pro znakovou sadu WIN1250).
D�ky
Vita
Komprese bitmap ve Windows
[*] Pavel Madr <MADR(zv)milada.troja.mff.cuni(tec)cz> - 21.10.1997 15:54:46
Ahoj vsichni,
nevite nekdo o nejake API nebo Delphi funkci, ktera by
komprimovala bitmapy (konkretne dvoubarevne). Nasel jsem ve strukture
BITMAPINFOHEADER atribut biCompression, ale nejakou funkci na kompresi
nemohu najit.
Diky za pomoc
Pavel
<none>
[*] Ing. Josef Kryml <Kryml(zv)uhul(tec)cz> - 21.10.1997 15:57:05
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
> Omlouvam se, vsem delfistum, ale mam tento problem.
> V MS Exchange pri vytvoreni formulare nemohu vlozit do patricneho pole
> ListBox soubor (prilohu).
> Jak vytvorim formular v MS Exchange do ktereho mohu vkladat soubory
> (prilohy).
>
>
> Dekuji.
> Zapis do registru
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 21.10.1997 16:24:15
Ahoj vsichni!
Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
hodnotu retezce.
Diky za kazdou radu Pavel
Seznam pocitacu v domene
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 21.10.1997 17:37:50
DDV,
nevite jak zjistit seznam pocitacu v domene (sit MS, network
neighborhood)?
diky a.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)2448 3203 | |Tel.: (420)(2) 2448 3203 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Zapis do registru a Nabidka Start
[*] Miroslav Svoboda <MSVOBODA(zv)hermes.zcu(tec)cz> - 21.10.1997 18:53:41 metdst
> From: "Simicek Pavel" <simicek(zv)uvss.fme.vutbr(tec)cz>
> To: delphi(zv)io.pinknet(tec)cz
> Date sent: Tue, 21 Oct 1997 16:24:15 +200
> Subject: Zapis do registru
> Priority: normal
> Send reply to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Ahoj vsichni!
> Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
> Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
> na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
> hodnotu retezce.
> Diky za kazdou radu Pavel
k tomuto problemu pridam podobny.
Jak zjistit, zda se pouzivaji ve Windows Hesla a pri vytvareni
nejake nabidky v nabidce Start, jak se k ni dostat.
A) pokud se hesla nepouzivaji, je to v adresari \WINDOWS\Nabidka
Start\ ...
B) pokud se poouzivaji, tak je to v adresari
\WINDOWS\ProFiles\...\Nabidka Start\ ...
a misto mezi Profiles a Nabidka start tvori uzivatelske jmeno, pod
kterym se do Woken prihlasuje.
Lee
*********************************************************************
___
/ _ \
/ / \ \ For Group Sdruzeni AX write to
/ / \ \ __
Sdruzeni \ \ / / *******************************
___/ / \ \/ / * E-mail: AX-SDRUZENI(zv)USA.NET *
(____/ ) ( *******************************
/ /\ \________
/__/ \_________)----------------------------
Miroslav Svoboda (E-mail: MSVOBODA(zv)HERMES.ZCU.CZ), tel: 0168/665669
Bedrich Korinek (E-MAIL: KORINEK(zv)MBOX.VOL.CZ ), tel: 0168/624657
*********************************************************************
Seznam pocitacu v domene
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 21.10.1997 18:55:04
> nevite jak zjistit seznam pocitacu v domene (sit MS, network
> neighborhood)?
Tohle je rekurzivni procedurka co sem pouzil pro muj netscan:
procedure RecurServer(Parent: PNETRESOURCE);
var
H: THandle;
Num: integer;
ResSize : integer;
NetRes : packed array[0..4] of TNETRESOURCE;
Res: integer;
I:integer;
begin
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
{RESOURCEUSAGE_CONNECTABLE+}RESOURCEUSAGE_CONTAINER,
Parent, H);
if Res = 0 then begin
repeat
Num := 1;
ResSize := SizeOf(NetRes);
Res := WNetEnumResourceA(H, Num, (zv)NetRes, ResSize);
if Res <> ERROR_NO_MORE_ITEMS then begin
if _Action <> -1 then break;
for I:=0 to Num-1 do begin
if NetRes[I].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
begin
// Tady se podivej do structury NetRes[I]
end;
if NetRes[I].dwUsage and RESOURCEUSAGE_CONTAINER <> 0 then
RecurServer((zv)NetRes[I]);
end;
end;
until Res <> NO_ERROR;
Res := WNetCloseEnum(H);
end;
end;
souborove udalosti
[*] tanger <tanger(zv)mbox.vol(tec)cz> - 21.10.1997 21:04:35
> Dobry den,
> nevite nekdo, jake jsou a jak odchytit souborove udalosti ve Windows?
> Ty co pouziva napr Explorer.
> Dik.
> Vaclav Sazima
Doporucuji knihu Windows pro pokrocile a experty, vydal Computer press 1997. Je to preklad knihy
J. Richtera - Advanced Windows, cena 600,-. Specialne kapitola 14 je o souborovych systemech, k
Vasemu problemu se pak vaze zrejme podkapitola Oznameni zmen v souborovem systemu, strana 638.
Ke knize je i CD s priklady v C, ale dobre citelne.
Snad to pomuze, Petr Kandera
(tanger(zv)mbox.vol(tec)cz)(no subject)
[*] zzntabor(zv)mbox.vol(tec)cz - 21.10.1997 21:31:50
subscribe zzntabor(zv)mbox.vol(tec)cz
Zapis do registru
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 21.10.1997 22:53:27
> Ahoj vsichni!
> Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
> Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
> na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
> hodnotu retezce.
> Diky za kazdou radu Pavel
Nejlepe pouzivat objekt TRegistry z unity registry
Honza +(no subject)
[*] zzntabor(zv)mbox.vol(tec)cz - 22.10.1997 00:09:38
subscribe delphi
<none>
[*] zzntabor(zv)mbox.vol(tec)cz - 22.10.1997 01:16:35
subscribe delphi
Delphi a Informix
[*] Martin Blatny <martin.blatny(zv)tconsult(tec)cz> - 22.10.1997 07:39:31
Mate nekdo zkusenosti s pouzivanim Informixu s Delphi? Hlavne co se tyce cestiny.
Druha otazka pro vsechny: jak nejlepe udelat pridavani radku do tabulky, aby se radky nepridaly hned, ale az po potvrzeni uzivatelem?
Martin Blatny
martin.blatny(zv)tconsult(tec)cz
Lesk� jazykove ovladace pro InterBase
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 22.10.1997 07:58:26
DDV,
> Nev� n�kdo kde bych mohl sehnat �esk� jazykov� ovlada�e pro InterBase
> (nap�. pro znakovou sadu WIN1250).
CREATE DATABASE .... DEFAULT CHARACTER SET WIN1250...
CREATE DOMAIN V5 as varchar(5) collate PXWCSY;
viz tabulka RDB$CHARACTER_SETS a RDB$COLLATIONS.
Tusim ze lokalni IB (z D2C/S) neumi PXWCSY (pisi to z hlavy, doufam
ze to je takto).
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)2448 3203 | |Tel.: (420)(2) 2448 3203 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Delphi a Informix
[*] Ladik Kasza <ladik(zv)army.sk> - 22.10.1997 08:18:48
Martin Blatny wrote:
> Mate nekdo zkusenosti s pouzivanim Informixu s Delphi? Hlavne co se
> tyce cestiny.
>
Databaza musi byt vytvorena s narodnou podporou (NLS). Pri pouziti typov
v tabulkach, ako je NCHAR a NVARCHAR, mi Native driver Informixu hlasil
"Nespravny typ". Preto pouzivam ODBC, s ktorym mi to funguje (vcetne
triedenia).
> Druha otazka pro vsechny: jak nejlepe udelat pridavani radku do
> tabulky, aby se radky nepridaly hned, ale az po potvrzeni uzivatelem?
>
Zase zavisi, ci chces potvrdzovat kazdy riadok zvlast, alebo zadat
riadky a potom ich potvrdit. Prvy pripad riesim tym. ze som si spravil
vlastne ovladanie pohybu po tabulke. Tym ked si zavola Insert, vyplni
data a potom musi dat Post aby sa data ulozili. Pohyb po tabulke testuje
stav TTable. Ak nie je v stave Browse tak sa pyta na potvrdenie.Druhe
riesenie vyzaduje pracu s transakciami. Nastartujes transakciu v
TDatabases, vyplnis riadky a potom ukoncis transakciu. Ci ju potvrdis
alebo zrusis je tvoja vec.
> Martin Blatny
> martin.blatny(zv)tconsult(tec)cz
Dufam, ze ti to pomoze.
Ladik
Zapis do registru
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 22.10.1997 08:57:19
Simicek Pavel wrote:
> Ahoj vsichni!
> Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
> Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
> na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
> hodnotu retezce.
> Diky za kazdou radu Pavel
Na strankach Jirku Buriana bol trik, ako mozno pridat CPU okno do
Delphi. Staci len previest zapis na urcite miesto v registri. Tento
programcek vyuziva zapis do registra:
unit CPUWnd;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Registry;
{$R *.DFM}
const
DelphiKey : String = 'Software\Borland\Delphi\'; // Common registry key
D2Key : String = '2.0\Debugging'; // Delphi 2.0
D3Key : String = '3.0\Debugging'; // Delphi 3.0
var R : TRegistry;
procedure AddKey;
begin
R.WriteString('EnableCPU', '1');
R.CloseKey;
MessageDlg('Okno CPU bolo �spe�ne pridan� do IDE.', mtInformation,
[mbOK], 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
R := TRegistry.Create;
R.RootKey := HKEY_CURRENT_USER;
// Try to find Delphi 2.0
If R.OpenKey(DelphiKey+D2Key, False) Then AddKey
// Try to find Delphi 3.0
Else If R.OpenKey(DelphiKey+D3Key, False) Then AddKey;
R.Free;
Close;
end;
end.
D3C/S - RemoteDataset bez DCOM
[*] Voltr.Radek/4600/EPR(zv)epr1.ccmail.x400.cez(tec)cz - ct 1997 08:59:44 -0700
Hi All!
Mam dotaz - mohu pomoci D3C/S (pomoci RemoteDataSetu) udelat prohlizecku
databaze (onen ultralehky klient)
pro ktery nebudu na clienta nic instalovat (napr. BDE,DCOM,OLEnterprise a pod..)
??????
Proste abych tam dopravil exe file a uz to komunikovalo (samozrejme ze klient je
TCP/IP konektivni).
Zatim se me to totiz povedlo pouze pokud je na clientu nainstalovano DCOM (coz
neni to prave orechove)
*
* Radek Voltr
* voltrr1(zv)epr1.ccmail.x400.cez(tec)cz
* tel. 0398 30 42 39
* mobil 0603 49 93 43
*Komprese bitmap ve Windows
[*] Jiri Semecky <JSEM6533(zv)barbora.mff.cuni(tec)cz> - 22.10.1997 10:47:50
> nevite nekdo o nejake API nebo Delphi funkci, ktera by
> komprimovala bitmapy (konkretne dvoubarevne). Nasel jsem ve strukture
> BITMAPINFOHEADER atribut biCompression, ale nejakou funkci na kompresi
> nemohu najit.
Mam neblahy pocit, ze Windows nic takoveho nepodporuji, tedy v zadne
API knihovne to nenajdes. Resenim by snad bylo pouzit nejaky jiny
format, nez je BMP (na DSP je na to spousta komponent). Tim bys vsak
usetril na disku, ale ne v pameti (pri loadovani se obrazek prevede
na Windows Bitmat).
Cau Jirka
Zapis do registru
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.10.1997 11:27:47
> > Ahoj vsichni!
> > Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
> > Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
> > na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
> > hodnotu retezce.
> > Diky za kazdou radu Pavel
>
> Nejlepe pouzivat objekt TRegistry z unity registry
>
> Honza +
>
Mockrat dekuju ale bohuzel jsem nejak nenasel v helpu tu spravnou
metodu, ktera by to umela. Zkousel jsem WriteString ale nevim jak
zadat misto kam se ma onen retezec zapsat. Ci spise nedokazu se
dostat az k onomu klici WallPaper.
Pavel Zapis do registru
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - ct 1997 11:42:34 -0700
No, pokud ti jde pouze o prehozeni pozadi desktopu, je v API funkce
SystemParametersInfo(), ktera udela modifikace registru za tebe.
Priklad:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,
'C:\WINDOWS\BACK.BMP', 0);
Cau, Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddilovae odpovidi ________________________________
Vic: Zapis do registru
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 21.10.1997 19:52
Ahoj vsichni!
Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
hodnotu retezce.
Diky za kazdou radu Pavel
Mixer ve W95
[*] Stepan Kellner, UP Olomouc <kellners(zv)risc.upol(tec)cz> - 22.10.1997 14:01:25
On 22 Oct 1997 Istenik.Petr/4600/EPR(zv)epr1.ccmail.x400.cez(tec)cz wrote:
> Zdravim,
>
> potreboval bych nejake priklady toho, jak pracovat s mixerem ve W95.
> (Chtel bych menit volume u CD)
>
> Zkousel jsem se probirat helpem, ale moc chytrej z toho nejsem.
>
> Diky za rady.
>
>
> E-mail: petr.istenik(zv)usa.net
>
Mozna, ze by stacilo si nainstalovat Windows CE - ty uz maji standartni
ovladace na mixery s sebou (ETA, Philips, Moulinex...).
:-)))))))))))))))))))))))))))))))))))))))
Stepan
-------------------------------------------------------------------
| Stepan Kellner |
| stepan.kellner(zv)usa.net J. Glazarove 1 |
| Olomouc |
| kellners(zv)risc.upol(tec)cz 779 00 |
| Czech Republic |
-------------------------------------------------------------------
!!!!!! ALL THE ABOVE ARE MY IDEAS AND THEY CAN BE IN CONTRADICTION
WITH IDEAS OF THE FACULTY I AM STUDYING !!!!!Zapis do registru
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.10.1997 14:21:45
> Date: Wed, 22 Oct 1997 08:57:19 +0200
> From: "Jozef Strnadik" <strnadik(zv)mrp.sk>
> Organization: MRP-Company s.r.o., Brezno, Slovakia
> To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Subject: Re: Zapis do registru
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Simicek Pavel wrote:
>
> > Ahoj vsichni!
> > Nevedeli byste nekdo jak se da nastavit urcita hodnota v registru.
> > Konkretne se jedna o retezec udavajici cestu na bitmapu ktera ma byt
> > na pozadi. Kde to je v registru vim, ale nevim jak mam nastavit novou
> > hodnotu retezce.
> > Diky za kazdou radu Pavel
>
> Na strankach Jirku Buriana bol trik, ako mozno pridat CPU okno do
> Delphi. Staci len previest zapis na urcite miesto v registri. Tento
> programcek vyuziva zapis do registra:
>
> unit CPUWnd;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> Label2: TLabel;
> Button1: TButton;
> Button2: TButton;
> procedure Button2Click(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> uses Registry;
>
> {$R *.DFM}
>
> const
> DelphiKey : String = 'Software\Borland\Delphi\'; // Common registry key
>
> D2Key : String = '2.0\Debugging'; // Delphi 2.0
> D3Key : String = '3.0\Debugging'; // Delphi 3.0
>
> var R : TRegistry;
>
> procedure AddKey;
> begin
> R.WriteString('EnableCPU', '1');
> R.CloseKey;
> MessageDlg('Okno CPU bolo yenspe ne pridan, do IDE.', mtInformation,
> [mbOK], 0);
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Close;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> R := TRegistry.Create;
> R.RootKey := HKEY_CURRENT_USER;
> // Try to find Delphi 2.0
> If R.OpenKey(DelphiKey+D2Key, False) Then AddKey
> // Try to find Delphi 3.0
> Else If R.OpenKey(DelphiKey+D3Key, False) Then AddKey;
> R.Free;
> Close;
> end;
>
> end.
>
>
>
Dekuji moc, to je presne to co jsem potreboval a funguje to.
Pavel
Delphi a Informix
[*] Ladik Kasza <ladik(zv)army.sk> - 22.10.1997 15:04:12
Martin Blatny wrote:
> Mate nekdo zkusenosti s pouzivanim Informixu s Delphi? Hlavne co se
> tyce cestiny.
>
Databaza musi byt vytvorena s narodnou podporou (NLS). Pri pouziti typov
v tabulkach, ako je NCHAR a NVARCHAR, mi Native driver Informixu hlasil
"Nespravny typ". Preto pouzivam ODBC, s ktorym mi to funguje (vcetne
triedenia).
> Druha otazka pro vsechny: jak nejlepe udelat pridavani radku do
> tabulky, aby se radky nepridaly hned, ale az po potvrzeni uzivatelem?
>
Zase zavisi, ci chces potvrdzovat kazdy riadok zvlast, alebo zadat
riadky a potom ich potvrdit. Prvy pripad riesim tym. ze som si spravil
vlastne ovladanie pohybu po tabulke. Tym ked si zavola Insert, vyplni
data a potom musi dat Post aby sa data ulozili. Pohyb po tabulke testuje
stav TTable. Ak nie je v stave Browse tak sa pyta na potvrdenie.Druhe
riesenie vyzaduje pracu s transakciami. Nastartujes transakciu v
TDatabases, vyplnis riadky a potom ukoncis transakciu. Ci ju potvrdis
alebo zrusis je tvoja vec.
> Martin Blatny
> martin.blatny(zv)tconsult(tec)cz
Dufam, ze ti to pomoze.
Ladik
Ulo�en� a na�ten� hesla ze seznamu hesel
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 22.10.1997 15:24:38
Nevi nekdo jak zapsat heslo do seznamu hesel a zase ho z tohoto seznamu
zjistit ?
Vita
souborove udalosti
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 22.10.1997 15:50:49 -0700
Dobry den,
nevite nekdo, jake jsou a jak odchytit souborove udalosti ve Windows?
Ty co pouziva napr Explorer.
Dik.
Vaclav Sazima
Udalost v Delphi
[*] MERLIN(zv)mail.spsuh.hiedu(tec)cz - 22.10.1997 16:50:14
Zdravim,
za behu programu vytvarim slozky menu (MenuItem) a nedari se mi vytvorit
udalost
za rady predem dekuju
Merlin <none>
[*] MERLIN(zv)mail.spsuh.hiedu(tec)cz - 22.10.1997 16:57:54
help
D3C/S - RemoteDataset bez DCOM
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 22.10.1997 17:54:09
Je potreba updatovat na D 3.01 Client/Server, tam to jde uplne samo.
Z kazdeho "holeho" 32-bit. PC na kterem je jakekoli funkcni TCPIP pak
jde spoustet tenky klient.
V D 3.01 je dalsi nova komponenta na spojeni prez TCP/IP Sockety.
Je mozne jednoduse nahradit tu ktera umela jenom DCOM.
Jeste je treba u aplikacniho serveru spustit Socksrvr.exe (rozhrani
mezi TCPIP venku a COM uvnitr.) Ten je taky v 3.01.
Na klientu musi byt mimo toho exe jeste jedna knihovna dbclient.dll,
ale ta je mala - asi 156 k
(Mimochodem, DCOM se mi nepodarilo nikdy spolehlive a rychle rozchodit
a to TCPIP mi zatim funguje vzdy, vsude a napoprve.)
Jirka Burian, Borland
----------
Od: Voltr.Radek/4600/EPR(zv)epr1.ccmail.x400.cez(tec)cz
Odesl�no: 22. ��jna 1997 17:59
Komu: Receipt Notification Requested
P�edm�t: D3C/S - RemoteDataset bez DCOM
Hi All!
Mam dotaz - mohu pomoci D3C/S (pomoci RemoteDataSetu) udelat prohlizecku
databaze (onen ultralehky klient)
pro ktery nebudu na clienta nic instalovat (napr. BDE,DCOM,OLEnterprise a pod..)
??????
Proste abych tam dopravil exe file a uz to komunikovalo (samozrejme ze klient je
TCP/IP konektivni).
Zatim se me to totiz povedlo pouze pokud je na clientu nainstalovano DCOM (coz
neni to prave orechove)
*
* Radek Voltr
* voltrr1(zv)epr1.ccmail.x400.cez(tec)cz
* tel. 0398 30 42 39
* mobil 0603 49 93 43
*Delphi a Informix
[*] Igor Forgac <enter(zv)enterkosice.sk> - 22.10.1997 18:11:57
> Druha otazka pro vsechny: jak nejlepe udelat pridavani radku do tabulky, aby se radky nepridaly hned, ale az po potvrzeni uzivatelem?
>
Ak potrebujes potvrdzovat jeden alebo niekolko riadkov, mozno pride vhod aj moj sposob:
1. V TTable nastav CachedUpdates na True
2. Napis novu udalost pre TTable: AfterPost, kde zavolas metodu ApplyUpdates.
3. Ak nechces zapisat riadky (nejaka podmienka), zavolaj v AfterPost metodu CancelUpdates.
Nakoniec to funguje celkom pekne. Zavolas INSERT, vyplnis polozky a zavolas POST. Tym sa vykona procedura AfterPost, kde otestuje nejaku podmienku a zavolas ApplyUpdates alebo CancelUpdates. Funguje to spolahlivo pre jeden riadok aj pre (asi) neobmedzeny pocet riadkov. Ak k tomu pridas este transakcie (ak je podmienka prebehnutia zapisu vo viacerych tabulkach naraz), tak potom to bude nacisto OKAY.
S pozdravom
Igor Forgac
****************************************************************************
* Enter Kosice s.r.o.
* Vyrobca ekonomick�ho AccoSoftware ... pre pohodlne uctovanie
* TEL: +421-95-6232674
* FAX: +421-95-6232675
* EMAIL: enter(zv)enterkosice.sk
* WEB: http://www.enterkosice.sk
****************************************************************************Svatky (off topic)
[*] Ing. Martin Kube�ka <M.Kubecka(zv)sh.cvut(tec)cz> - 22.10.1997 19:32:40
Kdyby te to Petre moc neobtezovalo, tak bych se te databaze svatku rad ujal.
Kdyz ti program popreje hezky svatek, tak je to hned vice user friendly :)
Diky moc...
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
-----Original Message-----
From: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 22. ��jna 1997 18:39
Subject: Re: Svatky (off topic)> Prosim vas, nemate nekdo seznam svatku dle kalendare ?
> Nutne bych to potreboval a nechce se mi opisovat cely kalendar.
Proc? Vzdyt je to jen 368 jmen (nektere dny maji vice jmen a nektere
zase zadne)... Ja jsem to prave asi pred mesicem opisoval prave
z kalendare a mam to tedy v Pradoxove tabulce. Pokud to chces
a pripadne i nekdo jiny, hodte mi mail a ja Vam to poslu - zadny
problem.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Mixer ve W95
[*] Voltr.Radek/4600/EPR(zv)epr1.ccmail.x400.cez(tec)cz - ct 1997 06:51:29 -0700
Tady je zas nekdo strasne ftipnej.
Doporucuji podivat se na stranky o Delphi (Delphi Super Page nebo Delphi Deli) a
hledat soubor
se jmenem mixer.zip ,nebo tak nejak - v kazdym pripade jsou to funkce ktere
zabali API funkce mixeru
do Delphi.
Radek
*
* Radek Voltr
* voltrr1(zv)epr1.ccmail.x400.cez(tec)cz
* tel. 0398 30 42 39
* mobil 0603 49 93 43
*
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 22. oijna 1997 16:12
Komu: Internet:delphi(zv)io.pinknet(tec)cz/
Kopie: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: Re: Mixer ve W95
On 22 Oct 1997 Istenik.Petr/4600/EPR(zv)epr1.ccmail.x400.cez(tec)cz wrote:
> Zdravim,
>
> potreboval bych nejake priklady toho, jak pracovat s mixerem ve W95.
> (Chtel bych menit volume u CD)
>
> Zkousel jsem se probirat helpem, ale moc chytrej z toho nejsem.
>
> Diky za rady.
>
>
> E-mail: petr.istenik(zv)usa.net
>
Mozna, ze by stacilo si nainstalovat Windows CE - ty uz maji standartni
ovladace na mixery s sebou (ETA, Philips, Moulinex...).
:-)))))))))))))))))))))))))))))))))))))))
Stepan
-------------------------------------------------------------------
| Stepan Kellner |
| stepan.kellner(zv)usa.net J. Glazarove 1 |
| Olomouc |
| kellners(zv)risc.upol(tec)cz 779 00 |
| Czech Republic |
-------------------------------------------------------------------
!!!!!! ALL THE ABOVE ARE MY IDEAS AND THEY CAN BE IN CONTRADICTION
WITH IDEAS OF THE FACULTY I AM STUDYING !!!!!
<<Soubor: TXT1.TXT>> Udalost v Delphi
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 23.10.1997 07:21:57
Ud�lost bohu?el nevytvo��? (mysl�m). Navrhuji zhruba tento postup (jde o hrub� rysy a snad ti to pom�?e):
N�kde v programu, kde generuje? polo?ky munu pi?:
NewItem := TMenuItem.Create(Self); { Vytvo� novou polo?ku menu }
try
NewItem.Caption := PomCapt;
{Zde by bylo t�eba do NewItem.Tag vlo?it 0 pro nad��zenou polo?ku}
{To by mohla zajistit funkce GetTextPolMenu.}
NewItem.Tag := MyTag;
NewItem.OnClick := F0201.MakeOper; {P�i�a� metodu OnClick-u objektu MenuItem}
parNewItem.Add(NewItem); {Vklo? novou polo?ku na posledn� pozici}
except
NewItem.Free;
raise;
end;
D�le definuj proceduru MakeOper:
procedure Tfxxx.MakeOper(Sender: TObject);
{ Procedura volan� po kliknut� na kter�koliv polo?ce menu. Prost�ednictv�m }
{ vlastnosti Tag objektu Sender je zaji?t�no spu?t�n� jedn� konkr�tn� rutiny. }
var
Spust: Boolean;
ParamTxt : string;
begin
if (Sender is TComponent) then
begin
Spust := True;
ParamTxt := '';
F0201Proc := GetFunName((Sender as TComponent).Tag, Spust, ParamTxt);
if Spust then {Na?la se po?adovan� rutina, kter� se m� spustit}
begin
try
F0201Proc(ParamTxt);
except
ShowMessage('Nepoda�ilo se spustit V�mi vybranou funkci. Kontaktujte '+
'autora programu.');
end; {try}
end; {if Spust}
end; {if Sender is TComponent}
end; {MakeOper}
function GetFunName(parCase: Integer; var parSpust: Boolean;
var AParamTxt: string): TMyProcedure;
{ Vr�t� n�zev funkce, kter� m� b�t spu?t�na po odklepnut� polo?ky meny s propr.}
{ Tag rovnou hodnot� parTag. Pokud se n�zev funkce nalezne, vr�t� se v paramet.}
{ parSpust hodnotu True, jinak False. }
begin
parSpust := True;
case parCase of {N�zev procedury, kter� se bude spou?t�t}
1: Result := P0501.VypocetMezd;
2: Result := P0501.VyplatniListky;
else begin
parSpust := False;
Result := nil;
end {else - case}
end; {case}
end; {GetFunName}
Vit Malecek, Czech Republic
Phone number: .: +420-(0)508-27141, +420-(0)508 330 301, +420-(0)508 330 303
malecek(zv)melzer(tec)cz
-----P�vodn� zpr�va-----
Od: MERLIN(zv)mail.spsuh.hiedu(tec)cz [SMTP:MERLIN(zv)mail.spsuh.hiedu(tec)cz]
Odesl�no: 22. X 1997 15:50
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Udalost v Delphi
Zdravim,
za behu programu vytvarim slozky menu (MenuItem) a nedari se mi vytvorit
udalost
za rady predem dekuju
Merlin
Svatky (off topic)
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 23.10.1997 07:52:05
Diky vsem, kteri mi poslali seznam svatku.
Roman K.
Ako spustit web prehliadac
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 23.10.1997 08:57:31
Ahojte vsetci
Uz som sa raz pytal, ale nikto neodpovedal tak skusim este raz.
Kto poradi ?
1.Ked zvolim v Delphi 3.0 Professional v menu Help|Borland Home Page
namiesto spustenia prehliadaca obdrzim hlasku
No Web browser could be located.
Pouzivam Netscape Communicator 4.02b. Ked zvolim skok na domovsku
stranku Microsoft z MS Wordu, prehliadac sa spusti.
2. Ked v mojom programe pouzijem priklad spustenia prehliadaca
uverejneny na www.borland.com (FAQ), t.j.
uses Urlmon;
.
.
HlinkNavigateString(nil, 'http://www.borland.com');
prehliadac sa nespusti.
Kde je chyba ?
Jozef
Udalost v Delphi
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 23.10.1997 10:10:38
> From: MERLIN(zv)mail.spsuh.hiedu(tec)cz
> Date: Wed, 22 Oct 1997 16:50:14 +0200
> To: delphi(zv)pinknet(tec)cz
> Subject: Udalost v Delphi
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Zdravim,
> za behu programu vytvarim slozky menu (MenuItem) a nedari se mi vytvorit
> udalost
> za rady predem dekuju
> Merlin
>
A jsou reakce na udalosti stejneho typu, pro vsechny Item polozky
stejne, nebo ma kazda Item jinou odezvu (proceduru nebo osetreni
udalosti) na stejnou udalost?
Asi budes muset mit predem napsane procedury ktere budou hlavickou
odpovidat typu udalosti, a tu pak priradis k dane udalosti pro onu
konkretni Item.
procedure TMyObjekt.Kliknuti(Sender: TObjekt; .....atd)
begin
.......
end;
Item1.OnClick:= Kliknuti;
Kdyz tak to skus blize upresnit.
Pavel
ikona komponenty v palete D3
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 23.10.1997 10:15:39
Narazil jsem na takovy trivialni problem s�D3. Nejaky cas uz s�D3 delam.
Instaloval jsem uz nejake balicky komponent od dodavatelu. Ale ted jsem
si chtel poprve nainstalovat svou komponentu do sv�ho pracovniho
balicku. Komponenta se v�pohode nainstalovala ale do palety komponent
nemuzu dostat obrazek komponenty. Porad mi to tam cpe krychlicku jehlan
a kouli, tedy implicitni bitmapu. Vsechno mam v�jednom adresari
KOMPONENTA.PAS, KOMPONENTA.DCR a v�dcr mam bitmapu se spravnym nazvem
komponenty - proste tak jak jsem to vzdy delal v�D1 a D2 a ono nic.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
Ako spustit web prehliadac
[*] Igor Forgac <enter(zv)enterkosice.sk> - 23.10.1997 13:43:22
> Uz som sa raz pytal, ale nikto neodpovedal tak skusim este raz.
> Kto poradi ?
> 1.Ked zvolim v Delphi 3.0 Professional v menu Help|Borland Home Page
> namiesto spustenia prehliadaca obdrzim hlasku
- neviem, neskusal som a ani ma to netrapi, ak to u mna nefunguje
> No Web browser could be located.
> Pouzivam Netscape Communicator 4.02b. Ked zvolim skok na domovsku
> stranku Microsoft z MS Wordu, prehliadac sa spusti.
> 2. Ked v mojom programe pouzijem priklad spustenia prehliadaca
> uverejneny na www.borland.com (FAQ), t.j.
> uses Urlmon;
> .
> .
> HlinkNavigateString(nil, 'http://www.borland.com');
> prehliadac sa nespusti.
>
Ja som niekde nasiel pekny sposob, ako spsutit browser po kliknuti na TLabel:
(uses ShellAPI)
procedure TfrmFAbout.Label1Click(Sender: TObject);
var TempString : array[0..79] of char;
begin
StrPCopy(TempString,Label1.Caption);
ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL);
end;Ako spustit web prehliadac
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 23.10.1997 14:23:18
Igor Forgac wrote:
> > 2. Ked v mojom programe pouzijem priklad spustenia prehliadaca
> > uverejneny na www.borland.com (FAQ), t.j.
> > uses Urlmon;
> > .
> > .
> > HlinkNavigateString(nil, 'http://www.borland.com');
> > prehliadac sa nespusti.
> >
>
> Ja som niekde nasiel pekny sposob, ako spsutit browser po kliknuti na TLabel:
> (uses ShellAPI)
>
> procedure TfrmFAbout.Label1Click(Sender: TObject);
> var TempString : array[0..79] of char;
> begin
> StrPCopy(TempString,Label1.Caption);
> ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL);
> end;
Dakujem za radu, ale zial ani toto mi nefunguje. Ani ked mam spusteny
Navigator.
Jozef
ikona komponenty v palete D3
[*] Jarek Mare�ek <marecek(zv)melzer(tec)cz> - 23.10.1997 14:54:05
Uz jsem to delsi dobu nedelal ale myslim si ze musi byt nazev souboru
s bitmapou velkymi pismeny a pak to vezme
Jarek M.
----------
Narazil jsem na takovy trivialni problem s�D3. Nejaky cas uz s�D3 delam.
Instaloval jsem uz nejake balicky komponent od dodavatelu. Ale ted jsem
si chtel poprve nainstalovat svou komponentu do sv�ho pracovniho
balicku. Komponenta se v�pohode nainstalovala ale do palety komponent
nemuzu dostat obrazek komponenty. Porad mi to tam cpe krychlicku jehlan
ikona komponenty v palete D3
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 23.10.1997 17:11:27
To v�m
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----Puvodn� zpr�va-----
Od: WORKGROUP/VACLAV/Jarek za uzivatele Jarek
Marecek
Odesl�no: 23. r�jna 1997 14:54
Komu: 'DELPHI Distribution List'
Predmet: RE: ikona komponenty v palete D3
Uz jsem to delsi dobu nedelal ale myslim si ze musi
byt nazev souboru
s bitmapou velkymi pismeny a pak to vezme
Jarek M.
----------
Narazil jsem na takovy trivialni problem s�D3.
Nejaky cas uz s�D3 delam.
Instaloval jsem uz nejake balicky komponent od
dodavatelu. Ale ted jsem
si chtel poprve nainstalovat svou komponentu do
sv�ho pracovniho
balicku. Komponenta se v�pohode nainstalovala
ale do palety komponent
nemuzu dostat obrazek komponenty. Porad mi to
tam cpe krychlicku jehlan
Ulo�en� a na�ten� hesla ze seznamu hesel
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.10.1997 17:40:34
V�t�zslav Gazda wrote:
> Nevi nekdo jak zapsat heslo do seznamu hesel a zase ho z tohoto
> seznamu zjistit ?
Session.AddPassword(Heslo);
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Help
[*] NN Slovakia <nnsk(zv)isternet.sk> - 23.10.1997 19:10:40
Presun property AAA do published. Cau
Ondrej Kelle it(zv)nnsk.sk
----------
> From: Slavek <condata(zv)risc.upol(tec)cz>
> To: 'Delphi forum eMail' <delphi(zv)io.pinknet(tec)cz>
> Subject: Help
> Date: 23. okt�ber 1997 11:07
>
>
> Pos�m, pora�te mi.
>
> P�i deklaraci komponenty mi nefunguje direktiva STORED.
>
> P��klad:
>
> type
> TPokus = class(TGraphicControl)
> private
> FAAA: integer;
> .
> .
> protected
> .
> .
> public
> property AAA: integer read FAAA write FAAA stored True;
> .
> .
> published
> .
> .
> end;
>
> Teoreticky by se m�l obsah property AAA ukl�dat do DFM souboru p�i vytvo�en� komponenty
> v dob� n�vrhu (design time). Pro� tomu tak nen� ?
>
> Za p��padnou odpov�d d�kuji.
> Mirek KLEINBAUER
>
> mirkle(zv)hotmail.com
> condata(zv)risc.upol(tec)cz
> <none>
[*] Roman Fara <fara(zv)c3(tec)cz> - 23.10.1997 19:16:10
zzntabor(zv)mbox.vol(tec)cz wrote:
> subscribe delphi
posilej to na listserv mailto:LISTSERV(zv)pinknet(tec)cz, ne do konference
ikona komponenty v palete D3
[*] Igor Forgac <enter(zv)enterkosice.sk> - 23.10.1997 19:27:58
Ja pridavam ikonu sposobom popisanym nizsie:
1. mam napriklad unit aaaa
2. zadefinujem si napriklad dve nove komponenty:
TAAAButton = class(TSpeedButton)
TBBBButton = class(TSpeedButton)
3. hned za "implementation" zapisem riadok:
{$R MOJ_RESOURCE.RES}
4. Subor MOJ_RESOURCE.RES si pripravim napriklad v Image Editor - moze obsahovat lubovolny pocet ikon, ale dve nazvem TAAABUTTON a TBBBBUTTON
5. To je asi vsetko.
6. Ak chcem priradit mojmu novemu buttonu (TAAAButton) ikonu vtedy, ked ju "polozim" na formular, pouzivam jeden riadok v constructor-e TAAAButton.Create
Glyph.LoadFromResourceName(HInstance,'TAAABUTTON');
Nezabudnut samozrejme volat inherited Create(AOwner);
S pozdravom
Igor Forgac
****************************************************************************
* EMAIL: enter(zv)enterkosice.sk
* WEB: http://www.enterkosice.sk
*
****************************************************************************DDE a MS WORD (fwd)
[*] Liane BBS <bbs(zv)ratbert.kin.vslib(tec)cz> - 23.10.1997 22:03:35
*** Forwarded file follows ***
Posted By: tomko (tomko) on 'CZmswindows'
Title: Re: DDE a MS WORD
Date: Tue Oct 21 17:35:53 1997
>
>
> Hop,
>
> nemate nekdo zkusenosti s vymenou dat pomoci DDE ve WORDu s vlastni
> aplikaci?
> Staci aspon poradit, kde hledat dalsi info. Potrebuju nacist text v okne
> pripadne jeho cast.
Funguje to docela Cool pres OLE Automation, da se to volat z VB nebo z
nejakyho jinyho jazyka ( VC, ale i Excel). Plati to pro Word 7.0 resp. 8.0 a
v pripade zajmu muzu poskytnout nejaky kus zdrojaku ve VB (napsal jsem uz
toho na tohle tema docela dost...) Tomko
Jak zapsat a p�e��st heslo ze seznamu hesel ve Win
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 24.10.1997 07:42:51
V�t�zslav Gazda wrote:
>
> Omlouv�m se za ne�plnost m�ho dotazu. Ptal jsem se zda n�kdo nev� jak
> zapsat a zase p�e��st heslo ze seznamu hesel. Seznamem hesel jsem myslel
> soubory s p��ponou *.pwl, v kter�ch jsou ulo�ena r�zn� hesla ka�d�ho
Muzu vam jen rict, ze to na 100% jde,ale uz nevim jak :)
Sam jsem testoval jaky by byl problem udelat program, ktery
extrahoval jmena share zdroju a hesla na ne. Tam je to nastesti
v registry a hesla jdou prekodovat podle tabulky.
To je ale neco jineho. Nevim jak jaka je struktura *.pwl
, ale to heslo tam bude maximlane:
a, XORnute
b, prelozene tabulkou
BTW: nekde na Internetu je program, ktery extrahuje PWL soubory
> u�ivatele, kter� se p�ihl�sil do Windows (nap�.: heslo pro po�tu).
> U�ivatel pak nemus� po p�ihl�en� do Windows toto heslo zad�vat.
>
> Vita
--
S pozdravem
Petr Snajdr
Software is like sex;
it's better when it's free.
--- Linus Torvalds
___________________________________
Jak zapsat a p�e��st heslo ze seznamu hesel ve Win
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 24.10.1997 07:46:14
Omlouv�m se za ne�plnost m�ho dotazu. Ptal jsem se zda n�kdo nev� jak
zapsat a zase p�e��st heslo ze seznamu hesel. Seznamem hesel jsem myslel
soubory s p��ponou *.pwl, v kter�ch jsou ulo�ena r�zn� hesla ka�d�ho
u�ivatele, kter� se p�ihl�sil do Windows (nap�.: heslo pro po�tu).
U�ivatel pak nemus� po p�ihl�en� do Windows toto heslo zad�vat.
Vita
<none>
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 24.10.1997 08:16:03
Bohuzel, ten clovek se jeste nesubscribnul, takze tuhle vitku
nedostane... :)))
Psal jsem mu uz trikrat, jak na to, ale zjevne to nestaci...
Ted jsem mu poslal moje tel. cislo, snad to nejak nakonec zvladne... :))
Tomas
btw: objednal jsem do konference novinky z DSP - kdysi to nekdo chtel...> -----P�vodn� zpr�va-----
> Od: Roman Fara [SMTP:fara(zv)c3(tec)cz]
> Odesl�no: 23. ��jna 1997 19:16
> Komu: DELPHI Distribution List
> P�edm�t: Re: <none>
>
> zzntabor(zv)mbox.vol(tec)cz wrote:
>
> > subscribe delphi
>
> posilej to na listserv mailto:LISTSERV(zv)pinknet(tec)cz, ne do konference
Knihovna obrazku
[*] David Hrb�� <hrbac.david(zv)usa(tec)net> - 24.10.1997 09:11:37
Cel� sada bitmap je u komponenty ToolBar97. Najdes to na Delphi super page.
Jinak muzu poslat.
David Hrbac
----------
Odes�latel: Ing. Martin Kube�ka <M.Kubecka(zv)sh.cvut(tec)cz>
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Knihovna obrazku
Datum: 23. ��jna 1997 10:45
DDV,
Nevite nekdo o nejakem zdroji bitmap na tlacitka? Nejlepe na webu.
S pozdravem
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
Ako spustit web prehliadac
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 24.10.1997 09:16:36
Igor Forgac wrote:
> > Pouzivam Netscape Communicator 4.02b. Ked zvolim skok na domovsku
> > stranku Microsoft z MS Wordu, prehliadac sa spusti.
> > 2. Ked v mojom programe pouzijem priklad spustenia prehliadaca
> > uverejneny na www.borland.com (FAQ), t.j.
> > uses Urlmon;
> > .
> > .
> > HlinkNavigateString(nil, 'http://www.borland.com');
> > prehliadac sa nespusti.
> >
>
> Ja som niekde nasiel pekny sposob, ako spsutit browser po kliknuti na TLabel:
> (uses ShellAPI)
>
> procedure TfrmFAbout.Label1Click(Sender: TObject);
> var TempString : array[0..79] of char;
> begin
> StrPCopy(TempString,Label1.Caption);
> ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL);
> end;
Vyskusal som obidve metody v kombinacii s MSIE 3.02 a obidve funguju. Preco to
nefunguje s Nescape Navigatorom ???
Jozef
Jak zapsat a precist heslo ze seznamu hesel ve Win
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 24.10.1997 09:43:01
>Petr Snajdr.......
Jeste jednou se vam pokusim priblizit muj problem.
Nemyslim si, ze bych musel znat strukturu souboru *.pwl, abych mohl
pracovat ze seznamem hesel. Predpokladam ze pro tuto vec by mela
existovat podpora v API, protoze hodne aplikaci vyuziva ochranu heslem,
ktere si ukladaji do seznamu hesel ve Windows. Nejde mi ani tak o
extrahovani cizich hesel, ale o moznost vyuzit tuto ochranu ve sve
aplikaci.
Vita
Jak zapsat a p�e��st heslo ze seznamu hesel ve Win
[*] Dan Ohnesorg, admin on power <Dan.Ohnesorg(zv)feld.cvut(tec)cz> - 24.10.1997 11:15:59
On 24 Oct 97 at 7:42, Petr Snajdr wrote:
> Muzu vam jen rict, ze to na 100% jde,ale uz nevim jak :)
> Sam jsem testoval jaky by byl problem udelat program, ktery
> extrahoval jmena share zdroju a hesla na ne. Tam je to nastesti v
> registry a hesla jdou prekodovat podle tabulky. To je ale neco
> jineho. Nevim jak jaka je struktura *.pwl , ale to heslo tam bude
> maximlane:
Kdysi jsem se o to zajimal. Hruby postup je takovy, ze se napise dll,
ktere ma diky pouziti nejake sablony z sdk hlavicku network provider.
Windows sami potom pri startu predaji vsem registrovanym network
providerum plain text heslo jako parametr. Do pwl si heslo ulozi
sami.
zdravim
dan
________________________________________
DDDDDD
DD DD Dan Ohnesorg, supervisor on POWER
DD OOOO Dan(zv)feld.cvut(tec)cz
DD OODDOO Dep. of Power Engineering
DDDDDD OO CTU FEL Prague, Bohemia
OO OO work: +420 2 24352785;+420 2 24972109
OOOO home: +420 311 679679;+420 311 679311
________________________________________
Pesimista vidi v ementalskem syru jen ty diry.Jak zapsat a precist heslo ze seznamu hesel ve Win
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 24.10.1997 12:56:14
V�t�zslav Gazda wrote:
> >Petr Snajdr.......
>
> Predpokladam ze pro tuto vec by mela existovat podpora v API, protoze
> hodne aplikaci vyuziva ochranu heslem, ktere si ukladaji do seznamu hesel
> ve Windows.
> Vita
Neviem ci je to presne to co potrebujes ale v knihe Programovani ve Windows
95 - Podrobna prirucka programatora ve W95 je kapitola 19 Ovladaci panel
hesiel a tam su popisane funkcie ako PPChangePassword, PPGetPasswordStatus
atd. Knihu vydalo nakladatelstvo Computer Press.
Jozef
Rozliseni a aplikace
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 24.10.1997 15:09:48
>> nedari se mi provozovat aplikaci pri ruznem rozliseni
(800x600,1024x768...)
>> tak, aby byl zachovan pomer jako pri navrhu (fonty, listbox,butony,..).
Ma s
>> tim nekdo nejake zkusenosti ? Diky.
>Delphi 3 to resi samo (viz property scale). U D1 a D2 se to musi resit
>nejlepe pres komponenty, ktere naleznes na DSP nebo Delphi Deli.
Ted sem nekde vyhrabal tenhle tvuj prispevek do Delphi konference a:
Me de o tohle - co kdyz si user navoli jiny velikosti pisma a velikosti
buttonu
v Display/Appearance tak ze mi vsechny dialogy rozjedou a dostanou scroler a
celkove je to hnusny.
Jde nam udelat aby se zmenila velikost formu sama - nebo to musim delat sam
rucne ?
diky
McLEI
cestina
[*] Ing. Josef Kryml <Kryml(zv)uhul(tec)cz> - 24.10.1997 15:18:36
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Pekny den preji,
mam jeden mensi problem, s kterym nemohu hnout a to je cestina v
paradox tabulce a dale pod Delphi 2.0. Tabulku porizujiv Database Destop
7.0.
Predem dekuji za radu.
------------------------------------------
Kryml Josef
E-Mail: kryml(zv)uhul(tec)cz
------------------------------------------
cestina
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 25.10.1997 18:36:12
Ahoj,
zkus nastavit v BDE Admin Language driver PDX Ansi Czech CZ (tak nejak).
Funguje to pro nove tabulky.
Milos
-----P�vodn� zpr�va-----
Od: Ing. Josef Kryml [SMTP:Kryml(zv)uhul(tec)cz]
Odesl�no: 24. ��jna 1997 15:19
Komu: Delphi konference
P�edm�t: cestina
Pekny den preji,
mam jeden mensi problem, s kterym nemohu hnout a to je cestina v paradox tabulce a dale pod Delphi 2.0. Tabulku porizujiv Database Destop 7.0.
Predem dekuji za radu.
------------------------------------------
Kryml Josef
E-Mail: kryml(zv)uhul(tec)cz
------------------------------------------
cestina
[*] Igor Forgac <enter(zv)enterkosice.sk> - 25.10.1997 19:48:56
[P��loha v souboru: RESTRU.zip]
Toto je v�ced�ln� zpr�va form�tu MIME.
Nasiel som niekde malu utilitku, ktoru som si prisposobil (alebo lepsie doplnil o...) na zmenu ovladaca pre uz vytvorene tabulky. {Nieco podobne je vsak aj v Database Desktop.}
Dufam, ze to ostatnym nebude vadit, spakoval som to na 196 kB, tak to posielam. Ak je zaujem o zdrojak, napis.
Ak Vam vadi zasielanie takych velkych suborov - OSPRAVEDLNENIE.
K programu: nie je to nic super, ma svoje nedostatky. Napriklad povodnu kodovu stranku suboru pise ako cislo, napriklad 437 (co je ovladac "ascii"), ale vyber kodovej stranky, je uz prijatelnejsou formou - vyberaj si napriklad "anczech", tym sa nastavi kodova stranka 1250.
S pozdravom
Igor Forgac
****************************************************************************
* WEB: http://www.enterkosice.sk
*
****************************************************************************
-----P�vodn� zpr�va-----
Od: Ing. Josef Kryml [SMTP:Kryml(zv)uhul(tec)cz]
Odesl�no: 24. ��jna 1997 15:19
Komu: Delphi konference
P�edm�t: cestina
Pekny den preji,
mam jeden mensi problem, s kterym nemohu hnout a to je cestina v paradox tabulce a dale pod Delphi 2.0. Tabulku porizujiv Database Destop 7.0.
Predem dekuji za radu.
------------------------------------------
Kryml Josef
E-Mail: kryml(zv)uhul(tec)cz
------------------------------------------
----------
cestina
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 25.10.1997 20:24:09
Igor Forgac wrote:
>
> Nasiel som niekde malu utilitku, ktoru som si prisposobil (alebo lepsie doplnil o...) na zmenu ovladaca pre uz vytvorene tabulky. {Nieco podobne je vsak aj v Database Desktop.}
>
> Dufam, ze to ostatnym nebude vadit, spakoval som to na 196 kB, tak to posielam. Ak je zaujem o zdrojak, napis.
>
> Ak Vam vadi zasielanie takych velkych suborov - OSPRAVEDLNENIE.
Vyborny napad. Lide pripojeni pres Dialup zaplati radi kazdy kB na vic.
Nevim kolik je tu prihlaseno lidi, ale pokud rekneme 50, znamena to, ze
jste prave
rozeslal skoro 10 MB !
> Name: RESTRU.zip
> Type: Zip Compressed Data
> Part 1.2 (application/x-zip-compressed)
> Encoding: base64
> Description: RESTRU.zip (WinZip File)
--
S pozdravem
Petr Snajdr
Software is like sex;
it's better when it's free.
--- Linus Torvalds
___________________________________
cestina
[*] Igor Forgac <enter(zv)enterkosice.sk> - 25.10.1997 21:45:42
Taktiez som tak pripojeny a neplatim nic naviac. Myslel som, ze by mohol byt problem len pri stahovani na pomalych modemoch a ani ma nenapadlo, ze niekto plati za nieco, co je naviac... Treba si najst vhodnejsieho poskytovatela. Ale OSPRAVEDLNENIE este raz - uz sa to nestane.
Petr - nepripaj take dlhe podpisy, lebo budes vela platit :)))
S pozdravom
Igor Forgac
****************************************************************************
* WEB: http://www.enterkosice.sk
*
****************************************************************************
----------
> Odes�latel: Petr Snajdr <snajdr(zv)pvt.net>
> Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> P�edm�t: Re: cestina
> Datum: 25. okt�ber 1997 22:24
>
> Igor Forgac wrote:
> >
> > Nasiel som niekde malu utilitku, ktoru som si prisposobil (alebo lepsie doplnil o...) na zmenu ovladaca pre uz vytvorene tabulky. {Nieco podobne je vsak aj v Database Desktop.}
> >
> > Dufam, ze to ostatnym nebude vadit, spakoval som to na 196 kB, tak to posielam. Ak je zaujem o zdrojak, napis.
> >
> > Ak Vam vadi zasielanie takych velkych suborov - OSPRAVEDLNENIE.
>
>
> Vyborny napad. Lide pripojeni pres Dialup zaplati radi kazdy kB na vic.
> Nevim kolik je tu prihlaseno lidi, ale pokud rekneme 50, znamena to, ze
> jste prave
> rozeslal skoro 10 MB !
>
>
>
> > Name: RESTRU.zip
> > Type: Zip Compressed Data
> > Part 1.2 (application/x-zip-compressed)
> > Encoding: base64
> > Description: RESTRU.zip (WinZip File)
>
> --
>
> S pozdravem
> Petr Snajdr
>
> Software is like sex;
> it's better when it's free.
> --- Linus Torvalds
> ___________________________________
Rozliseni a aplikace
[*] Martin Kubecka <M.Kubecka(zv)sh.cvut(tec)cz> - 26.10.1997 11:53:17
Nahodou jsem na neco narazil:
Want your Forms to work in any resolution?
This component automatically adjusts all child controls size proportionally
to the panel current size. Including font size, column
widths, etc...
With this you can easily deploy resolution independent applications.
(Shareware trial version)
Nevyhoda - $20 popr. $30 vcetne zdrojoveho textu, demo zdarma...
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
Prague, Europe, Czech republic, Earth
P.S. Malem sem zaponel ;) http://www.digiserve.com/cmab/delphi.htm
-----Original Message-----
From: Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 24. ��jna 1997 19:43
Subject: Re: Rozliseni a aplikace
>>> nedari se mi provozovat aplikaci pri ruznem rozliseni
>(800x600,1024x768...)
>>> tak, aby byl zachovan pomer jako pri navrhu (fonty, listbox,butony,..).
>Ma s
>>> tim nekdo nejake zkusenosti ? Diky.
>>Delphi 3 to resi samo (viz property scale). U D1 a D2 se to musi resit
>>nejlepe pres komponenty, ktere naleznes na DSP nebo Delphi Deli.
>
>Ted sem nekde vyhrabal tenhle tvuj prispevek do Delphi konference a:
>
>Me de o tohle - co kdyz si user navoli jiny velikosti pisma a velikosti
>buttonu
>v Display/Appearance tak ze mi vsechny dialogy rozjedou a dostanou scroler
a
>celkove je to hnusny.
>Jde nam udelat aby se zmenila velikost formu sama - nebo to musim delat sam
>rucne ?
>
> diky
> McLEI
>
>cestina
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.10.1997 17:17:26
Igor Forgac wrote:
> Nasiel som niekde malu utilitku, ktoru som si prisposobil (alebo
> lepsie doplnil o...) na zmenu ovladaca pre uz vytvorene tabulky.
> {Nieco podobne je vsak aj v Database Desktop.}
>
> Dufam, ze to ostatnym nebude vadit, spakoval som to na 196 kB, tak
> to posielam. Ak je zaujem o zdrojak, napis.
Vadi. Kdyz uz mas potrebu neco verejne posilat, tak ve zdrojacich.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
ActiveX
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 26.10.1997 18:01:46
Dobry den !
Daji se v Delphi 3 verze STANDARD
vytvaret objekty ActiveX ?
Dekuji
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/ActiveX
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 26.10.1997 18:03:12
Dobry den !
Daji se v Delphi 3 verze STANDARD
vytvaret objekty ActiveX ?
Dekuji
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/cestina
[*] Adam AHA Hauner <aha(zv)pinknet(tec)cz> - 26.10.1997 18:50:16
On Sun, 26 Oct 1997, Zbysek Hlinka wrote:
> > Dufam, ze to ostatnym nebude vadit, spakoval som to na 196 kB, tak
> > to posielam. Ak je zaujem o zdrojak, napis.
>
> Vadi. Kdyz uz mas potrebu neco verejne posilat, tak ve zdrojacich.
*** Obavam se, ze zaslani 190kB souboru by vadilo i mne, jakozto spravci
konference. Nasobte si prosim kazde cislo 200x (stavajici pocet ucastniku
konference). Nas mailserver ma na starosti i dulezitejsi veci, nez
zbytecne rozesilani souboru.
Ale takhle by to bylo nekonstruktivni, takze pokud mate neco zajem
poslat vice lidem, muzeme se domluvit na umisteni na nasem FTP - je
trvalejsi a adresnejsi. Mate zajem?
Pekny den preje
Adam Hauner
----------------------------------------------------------------------------
Adam Hauner (AHA) Flamingo - Web Design
E-mail: Adam.Hauner(zv)pinknet(tec)cz spravce Projektu PinkNet
Telefon: +420 603 471460 Olsova 12
ICQ: 3443338 307 07 PLZEN
http://i.love.pinknet(tec)cz/aha/ http://flamingo.pinknet(tec)cz/
----------------------------------------------------------------------------
cestina
[*] Ing. Lud�k Florian <bluerose(zv)pce(tec)cz> - 27.10.1997 00:30:50
> > Vadi. Kdyz uz mas potrebu neco verejne posilat, tak ve zdrojacich.
>
> *** Obavam se, ze zaslani 190kB souboru by vadilo i mne, jakozto spravci
> konference. Nasobte si prosim kazde cislo 200x (stavajici pocet ucastniku
> konference). Nas mailserver ma na starosti i dulezitejsi veci, nez
> zbytecne rozesilani souboru.
> Ale takhle by to bylo nekonstruktivni, takze pokud mate neco zajem
> poslat vice lidem, muzeme se domluvit na umisteni na nasem FTP - je
> trvalejsi a adresnejsi. Mate zajem?
Jsem pro
Bye Ludan
Ing. Ludek Florian
Blue Rose v.o.s.
Mikulovick� 2584
CZ-53002 Pardubice
Tel: +420-603-471087
Fax: +420-40-33948
E-mail: ludan(zv)bluerose(tec)cz
http://www.bluerose(tec)cz
Comctl32 - ruzne verze & TImageList
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 27.10.1997 11:47:59
No tak tohle me teda uz potreti dostalo.
Zajimalo by me jak resite problem ze microsoft uz potreti zmenil knihovnu
COMCTL32.DLL a kazda nova verze ma jiny format TImageList takze pokud
vytvarim program v Delphi s nejnovejsi verzi tak vsichni ti se starou nevidi
zadny obrazek kery byl v ImageListu. Jina verze byla v s IE3 a OSR2, dalsi z
IE4 Preview 2 no a s IE4 Final zase dalsi, a jak sem je postupne instaloval
tak pokazdy sem musel ve vsech svych pojektech znovu naplnovat ImageListy,
protoze byly jednoduse prazdny. A ke kazde instalaci musim pridat i
nejnovejsi COMCTL32.DLL. No timhle me Microshiti teda pekne nastvali.
McLEI
project manager
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 27.10.1997 12:43:01
Dobry den,
nevite nekdo o nejakem programu na spravu
a zprehledneni slozitejsich projektu v Delphi 3 ?
Predstavoval bych si to asi tak, ze by do
stromove struktury sestavil hierarchii unitu
a pripadne by u nich vypsal procedury.
Chtel jsem neco takoveho udelat, ale chci se nejprve
ujistit, ze to jeste neni, abych to nedelal zbytecne.
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/Chyba fce TRUNC v Delphi 1 a 3
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 28.10.1997 11:26:12
Hi,
prave jsem se prihlasil do teto konference a doufam, ze ji nekdo take cte.
No zkusim to.
Mam hned upozorneni pro vsechny.
Tyka se to jak Delphi 1 Professional tak i 3 Profesional. Dvojku jsem
nezkousel,
neb ji nemam k dispozici, ale myslim si, ze tam to bude to same.
Je to o funkci TRUNC
Zkuste si jednoduchy prikladek:
procedure TForm1.Button1Click(Sender: TObject);
var
re1, re : real;
begin
re1 :=133.180;
Label1.Caption :=IntToStr(Trunc(re1*1000));
re:2=re1*1000;
Label2.Caption :=IntToStr(Trunc(re2));
end;
!!!!! Label1.Caption bude "133179" a Label2.Caption bude spravne "133180"
!!!
A neni to jenom pro toto cislo.
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
P.S.: Pokud tuto konferenci cte take nekdo od Borlandu, tak mi sdelte, kam
bych mel tento problem oznamit.
Zd.Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 28.10.1997 11:29:57
Omlouvam se, ale do prikladku se mi vloudily syntakticke chyby,
myslim si ze priklad je pruzracne jednoduchy, ale pro uplnost jej posilam znovu:
procedure TForm1.Button1Click(Sender: TObject);
var
re1, re2 : real;
begin
re1 :=133.180;
Label1.Caption :=IntToStr(Trunc(re1*1000));
re2:=re1*1000;
Label2.Caption :=IntToStr(Trunc(re2));
end;
!!!!! Label1.Caption bude "133179" a Label2.Caption bude spravne "133180" !!! Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Vladimir Vanicek 7-327.3 <V.Vanicek(zv)sh.cvut(tec)cz> - 28.10.1997 14:29:54
Chyba je dana reprezentaci typu float - ma malou presnost (ted zrovna
nevim kolik mist presne). Zkuste pouzit typy promennych double nebo
aspon pretypovat re1 na double...
Label1.Caption :=IntToStr(Trunc(double(re1)*1000) );
Nashle Vlada.
> procedure TForm1.Button1Click(Sender: TObject);
> var
> re1, re2 : real;
> begin
> re1 :=133.180;
> Label1.Caption :=IntToStr(Trunc(re1*1000));
> re2:=re1*1000;
> Label2.Caption :=IntToStr(Trunc(re2));
> end; ___________________________________________________________________
! Vlada Vanicek | e-mail: V.Vanicek(zv)sh.cvut(tec)cz !
! Strahov 7/327 | (xVanicek(zv)kii.fsv.cvut(tec)cz) !
! PCname: lars.sh.cvut(tec)cz | WWW: http://kix.fsv.cvut(tec)cz/~xvanicek !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] NN Slovakia <nnsk(zv)isternet.sk> - 28.10.1997 15:14:45
Ja dostavam v oboch pripadoch '133180'...
Ondrej Kelle it(zv)nnsk.sk
----------
> From: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
> To: 'Delphi LSV' <delphi(zv)pinknet(tec)cz>
> Subject: Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
> Date: 28. okt�ber 1997 11:29
>
> Omlouvam se, ale do prikladku se mi vloudily syntakticke chyby,
> myslim si ze priklad je pruzracne jednoduchy, ale pro uplnost jej posilam znovu:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> re1, re2 : real;
> begin
> re1 :=133.180;
> Label1.Caption :=IntToStr(Trunc(re1*1000));
> re2:=re1*1000;
> Label2.Caption :=IntToStr(Trunc(re2));
> end;
>
> !!!!! Label1.Caption bude "133179" a Label2.Caption bude spravne "133180" !!!
>
>
> Zdenek Prantl
> prantl(zv)ptc.pvt(tec)cz
>
> Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 28.10.1997 17:08:54
On Tuesday, October 28, 1997 3:30 PM, Vladimir Vanicek 7-327.3
[SMTP:V.Vanicek(zv)sh.cvut(tec)cz] wrote:
>
> Chyba je dana reprezentaci typu float - ma malou presnost (ted zrovna
> nevim kolik mist presne). Zkuste pouzit typy promennych double nebo
> aspon pretypovat re1 na double...
>
O.K., to funguje, ale podle mne by to melo fungovat i na REAL, vzdyt po nem
chci
jenom tri desetinna mista.
Navic, pokud to rozepisu na vice radku, tzn.:
re:=re1*1000;
TRUNC(re2);
tak to take vrati spolehlivy ( a spravny vysledek).
Co se tyka toho pretypovani, tak uz potom je mi jedno, jestli to pretypuju nebo
rozepisu. Hlavni je ta vec, ze si na to musim davat moc velky pozor a ze mne to
dost stve. Podle mne bych mel dostat spolehlivy vysledek i bez pretypovani.
On Tuesday, October 28, 1997 3:15 PM, NN Slovakia [SMTP:nnsk(zv)isternet.sk]
wrote:
> Ja dostavam v oboch pripadoch '133180'...
>
> Ondrej Kelle it(zv)nnsk.sk
>
A necha se nekde zjistit presna verze Delfinu (napr.: 3.001), jestli to nedela
pouze
nejaka verze ?
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Igor Forgac <enter(zv)enterkosice.sk> - 28.10.1997 19:27:31
V pomoci od Delphi 3 som nasiel tento text:
Note: The Real type is provided for backwards compatibility with earlier versions of Delphi and Borland Pascal. Since the storage format of the Real type is not native to the Intel CPU family, operations on Real type values are slower than the other floating-point types.
Zda sa, ze typu REAL sa treba vyhnut.
S pozdravom
Igor Forgac
----------
> Odes�latel: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
> Komu: 'DELPHI Distribution List' <delphi(zv)io.pinknet(tec)cz>
> P�edm�t: RE: Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
> Datum: 28. okt�ber 1997 17:08
>
> On Tuesday, October 28, 1997 3:30 PM, Vladimir Vanicek 7-327.3
> [SMTP:V.Vanicek(zv)sh.cvut(tec)cz] wrote:
> >
> > Chyba je dana reprezentaci typu float - ma malou presnost (ted zrovna
> > nevim kolik mist presne). Zkuste pouzit typy promennych double nebo
> > aspon pretypovat re1 na double...
> >
>
> O.K., to funguje, ale podle mne by to melo fungovat i na REAL, vzdyt po nem
> chci
> jenom tri desetinna mista.
> Navic, pokud to rozepisu na vice radku, tzn.:
>
> re:=re1*1000;
> TRUNC(re2);
>
> tak to take vrati spolehlivy ( a spravny vysledek).
>
> Co se tyka toho pretypovani, tak uz potom je mi jedno, jestli to pretypuju nebo
> rozepisu. Hlavni je ta vec, ze si na to musim davat moc velky pozor a ze mne to
> dost stve. Podle mne bych mel dostat spolehlivy vysledek i bez pretypovani.
>
> On Tuesday, October 28, 1997 3:15 PM, NN Slovakia [SMTP:nnsk(zv)isternet.sk]
> wrote:
>
> > Ja dostavam v oboch pripadoch '133180'...
> >
> > Ondrej Kelle it(zv)nnsk.sk
> >
>
> A necha se nekde zjistit presna verze Delfinu (napr.: 3.001), jestli to nedela
> pouze
> nejaka verze ?
>
> Zdenek Prantl
> prantl(zv)ptc.pvt(tec)cz
Knihovna obr�zk�
[*] Tom�\& Hopl��ek <hoplicet(zv)risc.upol(tec)cz> - 28.10.1997 20:49:23 -0000
Mohl bych poprosit o TToolBar97.
Dekuji.
Tomas Hoplicek
tomas.hoplicek(zv)upol(tec)cz
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 27. ��jna 1997 7:28
Komu: ;esk� Delphi konference
P�edm�t: Re: Knihovna obr�zk�
Standardn� bitmapy pro tla��tka jsou v knihovn� COMCTL32.DLL, kter� je
sou��st� Windows. Obr�zky jsou stejn� jako v Microsoft aplikac�ch. M�m
vytvo�enou komponentu tla��tko pro panel n�stroj�, kter� pou��v� obr�zky
z t�to knihovny. Obr�zek se u t�to komponenty nastav� pouh�m v�b�rem ze
seznamu v object inspektoru. Podporuje tak� mal� a velk� obr�zky. Toto
tla��tko m�m tak� pro komponentu TToolBar97. Pokud je z�jem po�lu.
Vita
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 29.10.1997 07:58:22
On Tuesday, October 28, 1997 7:28 PM, Igor Forgac [SMTP:enter(zv)enterkosice.sk]
wrote:
> V pomoci od Delphi 3 som nasiel tento text:
>
> Note: The Real type is provided for backwards compatibility with earlier
> versions of Delphi and Borland Pascal. Since the storage format of the Real
> type is not native to the Intel CPU family, operations on Real type values
> are slower than the other floating-point types.
>
> Zda sa, ze typu REAL sa treba vyhnut.
Ja jsem to nasel take, ale kvuli tomu preci nebudu prepisovat cely program i s
jeho datovymi strukturami ... 8-)
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Packages
[*] Jan Krizek <JKRI6312(zv)barbora.mff.cuni(tec)cz> - 29.10.1997 08:55:59
Ahoj vespolek,
pouziva z vas nekdo runtime packages v D3? Lze nejak udelat adresar,
kde budou .DPL pro vsechny moje aplikace, aby to nemuselo byt ve
Windows/System, nebo ulozeno v promenne PATH.
Ahoj Honza +Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 29.10.1997 09:04:48
On Wednesday, October 29, 1997 9:35 AM, NN Slovakia [SMTP:nnsk(zv)isternet.sk]
wrote:
> Mam Delphi 3.0 Build 5.53.
Tak uz jsem taky u trojek nasel, verzi. Mam take Build 5.53.
U jednotek jsem nasel pouze oznaceni 1.00 (Datum u souboru DELPHI.EXE mam
24.08.95)
> Je to nechutna chyba, Borland ma v tomto dost sklamal...
Mne taky, jeste jim tam o tom napisu.
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] NN Slovakia <nnsk(zv)isternet.sk> - 29.10.1997 09:35:26
Musim sa ospravedlnit, s Double to funguje, s Real mam rovnaky problem... Mam Delphi 3.0 Build 5.53.
Je to nechutna chyba, Borland ma v tomto dost sklamal... "Backwards compatibility" je u nich zrejme siroky pojem. Odporucam skutocne nahradit vsetky deklaracie Real.
Este raz sorry.
Ondrej Kelle it(zv)nnsk.sk
----------
> >
> > > Ja dostavam v oboch pripadoch '133180'...
> > >
> > > Ondrej Kelle it(zv)nnsk.sk
> > >
> >
> > A necha se nekde zjistit presna verze Delfinu (napr.: 3.001), jestli to nedela
> > pouze
> > nejaka verze ?
> >
> > Zdenek Prantl
> > prantl(zv)ptc.pvt(tec)cz
Jak zm�nit parenta komponenty
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 29.10.1997 12:52:57
Vytvo�il jsem si komponentu TMyComponent, kter� d�d� z TCustomPanel a
skl�d� se z dal��ch dvou panel�, kter� vytv���m v konstruktoru. V
konstruktoru tak� nastavuji vlastnost Owner obou panel� na Self (tzn.
Owner obou panel� je TMyComponent). Jak m�m doc�lit toho, abych na ka�d�
s t�chto dvou panel� mohl p�i vizu�ln�m n�vrhu vkl�dat dal�� komponenty
(tj. aby vlastnost Parent komponent vlo�en�ch na tuto komponentu byla
nastavena na jeden z panel�, na kter� byla komponenta vlo�ena). Norm�ln�
je vlastnost Parent nastavena na komponentu TMyComponent.
Zkusil jsem p�edefinovat procuduru Notification v TMyComponent, ale
nastane chyba, kdy� se pokus�m v t�to procedu�e zm�nit vlastnost Parent
pro nov� vlo�enou komponentu.
Za p��padnou radu d�ky.
Vita
ActiveX
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 29.10.1997 14:28:47
Pokud si napisete kompletni COM interface, tak jak to udelali
Borlandi (v Delphi pro Delphi) sam, tak ano.
Taky existuje nejaky Tools tretich stran /OCX Expert/
Doporucuji ale pouzit D3 Profi.
=== Jiri Burian ===
jburian(zv)borland(tec)cz
Borland s.r.o., Tynsky dvur 10, 110 00 Praha 1
tel.: 02-2481 8152-3, fax.: 02-24812753
http://www.borland(tec)cz/dics/
----- P�vodn� zpr�va -----
Odes�latel: Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 26. ��jna 1997 18:10
P�edm�t: ActiveX
Dobry den !
Daji se v Delphi 3 verze STANDARD
vytvaret objekty ActiveX ?
Dekuji
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 29.10.1997 14:30:09
Myslim si, ze to neni jenom vlastnost nektereho DELPHI. Takove veci se
dely ve vsech Pascalech a myslim si, ze i jinde.
Pokud chci presny vysledek, musim pocitat celociselne.
Jakmile provedu sebejednodussi vypocet v pohyblive radove carce,
musim vysledek zaokrouhlit, jinak se na nej nemohu spolehnout, ze mi
misto 133180,0000000000000000 nevrati treba 133179,99999999985442164
(napriklad).
To je dane mechanismem ulozeni float cisel. Ja to resim tak, ze mam
zaokrouhlovaci funkci s urcenim poctu platnych desetinnych cisel,
ktera od vysledku chci a vypocty, kde by mi takova chyba vadila
pres ni pasiruju. Naprosto nezbytny je takovy (nebo podobny)postup
pri testech rovnosti.
Zdenlk PRANTL wrote:
>
> On Tuesday, October 28, 1997 3:30 PM, Vladimir Vanicek 7-327.3
> [SMTP:V.Vanicek(zv)sh.cvut(tec)cz] wrote:
> >
> > Chyba je dana reprezentaci typu float - ma malou presnost (ted zrovna
> > nevim kolik mist presne). Zkuste pouzit typy promennych double nebo
> > aspon pretypovat re1 na double...
> >
>
> O.K., to funguje, ale podle mne by to melo fungovat i na REAL, vzdyt po nem
> chci
> jenom tri desetinna mista.
> Navic, pokud to rozepisu na vice radku, tzn.:
>
> re:=re1*1000;
> TRUNC(re2);
>
> tak to take vrati spolehlivy ( a spravny vysledek).
>
> Co se tyka toho pretypovani, tak uz potom je mi jedno, jestli to pretypuju nebo
> rozepisu. Hlavni je ta vec, ze si na to musim davat moc velky pozor a ze mne to
> dost stve. Podle mne bych mel dostat spolehlivy vysledek i bez pretypovani.
>
> On Tuesday, October 28, 1997 3:15 PM, NN Slovakia [SMTP:nnsk(zv)isternet.sk]
> wrote:
>
> > Ja dostavam v oboch pripadoch '133180'...
> >
> > Ondrej Kelle it(zv)nnsk.sk
> >
>
> A necha se nekde zjistit presna verze Delfinu (napr.: 3.001), jestli to nedela
> pouze
> nejaka verze ?
>
> Zdenek Prantl
> prantl(zv)ptc.pvt(tec)cz
CD konference Delphi
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 29.10.1997 14:31:04
DDK je pro BC++ 4.52
=== Jiri Burian ===
jburian(zv)borland(tec)cz
Borland s.r.o., Tynsky dvur 10, 110 00 Praha 1
tel.: 02-2481 8152-3, fax.: 02-24812753
http://www.borland(tec)cz/dics/
----- P�vodn� zpr�va -----
Odes�latel: VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz
<VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz>
Komu: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Datum: 27. ��jna 1997 6:40
P�edm�t: RE: CD konference Delphi
>Je to DDK pro C++ nebo pro Delphi - tzn. muzu ty databazove drivery tvorit
i v
>Delphi ????
>
> Radek
>
>
>-----Puvodni zprava-----
>Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
>Odeslano: 24. oijna 1997 19:44
>Komu: Internet:delphi(zv)io.pinknet(tec)cz/
>Poedmit: Re: CD konference Delphi
>
>K volnemu stazeni to neni. Pokud bude mit nekdo opravdovy zajem,
>pak si ke mne prijedte se 4 disketama.
>
>=== Jiri Burian ===
>jburian(zv)borland(tec)cz
>Borland s.r.o., Tynsky dvur 10, 110 00 Praha 1
>tel.: 02-2481 8152-3, fax.: 02-24812753
>http://www.borland(tec)cz/dics/
>
>MDITabSet
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 29.10.1997 19:42:06
DDV,
nevite nekdo o komponente nebo zpusobu, jak udelat
takove ty usi pro prepinani MDI oken ?
Diky
Vojta
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 30.10.1997 08:04:02
On Wednesday, October 29, 1997 2:30 PM, Ing. Jindrich Danihelka
[SMTP:jidas(zv)mbox.vol(tec)cz] wrote:
> Pokud chci presny vysledek, musim pocitat celociselne.
> To je dane mechanismem ulozeni float cisel.
Dobre tedy, dejme tomu, ze je to float cislem 8-)))))
, ale PROC tedy, kdyz ten TRUNC rozepisu na dva radky vraci hodnotu
spravnou ?? PROC vraci spatnou hodnotu pokud je to na JEDNOM radku ??
Vzdyt tam take delam TRUNC z realneho cisla. PROC mi i v tomto pripade
(rozepsano na dva radky) nevrati spatnou hodnotu ???
viz priklad:
> Zdenlk PRANTL wrote:
> > Navic, pokud to rozepisu na vice radku, tzn.:
> >
> > re2:=re1*1000;
> > TRUNC(re2);
> >
> > tak to take vrati spolehlivy ( a spravny vysledek).
Zdenek
Prantl
prantl(zv)p
tc.pvt(tec)cz
Dialog pro vyber adresare
[*] Martin Dupal <vision(zv)mbox.vol(tec)cz> - 30.10.1997 11:15:23
Nevite, prosim, nekdo jestli je ve Windows95/NT4.0 definov�n
standardni dialog pro vyber adresare (takovy, jaky je obsazen
ve standardnim vyhledavacim programu v nabidce Start).
V kladnem pripade, jakou funkci jej lze vyvolat z Delphi 3 ?
Dik, Martin Dupal
P.S. Celkem se divim, ze tento dialog neni obsazen implicitne v
palete komponent Dialogs.Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 30.10.1997 11:51:52
Je to tak. Nevim presne proc, ale souvisi to s formatem ukladanych
mezivysledku, ktery si generuje prekladac pri vypoctech.
kdyz udelam
re2:=re1*1000;
TRUNC(re2);
dopstane funkce TRUNC jako paramert promennou re2,
kdyz udelam
TRUNC(re1*1000), tak dostane jako parametr nejakou promennou na
heapu nebo ve stacku, o ktere nevim, jaky ma format. A protoze pracuje
s float cislem v jinem zobrazeni, je tu cesta k rozdilnym vysledkum.
Ale tahle nazorne to funguje jenom nekdy. Ve vetsine pripadu dostanu
zobrazovaci chyby i kdyz si mezivysledky sam schovavam. Je to zatracene
neprijemne, ale asi se s tim opravdu nic jineho delat neda.
Zdenlk PRANTL wrote:
>
> On Wednesday, October 29, 1997 2:30 PM, Ing. Jindrich Danihelka
> [SMTP:jidas(zv)mbox.vol(tec)cz] wrote:
> > Pokud chci presny vysledek, musim pocitat celociselne.
> > To je dane mechanismem ulozeni float cisel.
>
> Dobre tedy, dejme tomu, ze je to float cislem 8-)))))
>
> , ale PROC tedy, kdyz ten TRUNC rozepisu na dva radky vraci hodnotu
> spravnou ?? PROC vraci spatnou hodnotu pokud je to na JEDNOM radku ??
> Vzdyt tam take delam TRUNC z realneho cisla. PROC mi i v tomto pripade
> (rozepsano na dva radky) nevrati spatnou hodnotu ???
> viz priklad:
>
> > Zdenlk PRANTL wrote:
> > > Navic, pokud to rozepisu na vice radku, tzn.:
> > >
> > > re2:=re1*1000;
> > > TRUNC(re2);
> > >
> > > tak to take vrati spolehlivy ( a spravny vysledek).
>
> Zdenek
> Prantl
>
> prantl(zv)p
> tc.pvt(tec)cz
Chyba fce TRUNC v Delphi 1 a 3
[*] Kameron s.r.o. <kameron(zv)ba.pubnet.sk> - 30.10.1997 11:55:14
n
q
q
q
q
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 30.10.1997 12:57:28
On Thursday, October 30, 1997 11:52 AM, Ing. Jindrich Danihelka
[SMTP:jidas(zv)mbox.vol(tec)cz] wrote:
> Je to tak. Nevim presne proc, ale souvisi to s formatem ukladanych
> mezivysledku, ktery si generuje prekladac pri vypoctech.
> kdyz udelam TRUNC(re1*1000), tak dostane jako parametr nejakou promennou
> na heapu nebo ve stacku, o ktere nevim, jaky ma format.
Ano, ja si myslim to same, a proto to pokladam za chybu. Pokud bych dostal
oba dva vysledky spatne (tj. jak na jednom tak na dvou radkach), tak reknu, ze
je
to problemu typu Real. Takto si myslim, ze je to problem compilatoru a tedy
problem pro Borlandy.
> Ale tahle nazorne to funguje jenom nekdy. Ve vetsine pripadu dostanu
> zobrazovaci chyby i kdyz si mezivysledky sam schovavam.
??? jake chyby
Ja jsem se tedy nikdy neodvazil od typu Real chtit vice jak tri platna
desetinna
mista a spoleham na to, ze tyto tri des. mista jsou vzdy dobre. Pokud tomu tak
neni, tak mne prosim vyvedte z omylu.
> Je to zatracene neprijemne, ale asi se s tim opravdu nic jineho delat neda.
Potom je ale take celkem zbytecna volba compilatoru "Pentium safe ..." 8-)
Zdenek Prantl
prantl(zv)ptc.pvt(tec)cz
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Ondra Gebauer <gebauero(zv)mlp(tec)cz> - 30.10.1997 13:45:38
> > Zda sa, ze typu REAL sa treba vyhnut.
>
> Ja jsem to nasel take, ale kvuli tomu preci nebudu prepisovat cely program i s
> jeho datovymi strukturami ... 8-)
Mozna by slo dat na zacatku unity
type
real=double;
Zdravi Ondra
souborove udalosti
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 30.10.1997 13:54:35
Tak jsem se prizivil na dotazu nekoho jineho a snazim se resit stejny
problem. Zakoupil jsem knihu a s potesenim v oku jsem studoval kapitolu 14.
Je to tam opravdu podrobne popsano (kez by tomu tak bylo vzdycky).
A ted problem. K nahozeni cele akce je potreba na zacatku volat
FindFirstChangeNotification pro ziskani handlu. Pokud to udelam, obdrzim
Invalid_Handle_Value s hodnotou GetLastError=ERROR_INVALID_PARAMETER.
Prestoze jsem presvedcen, ze vsechny parametry jsou OK (dodrzel jsem presny
typy z unity Windows) a cesta k adresari skutecne existuje, nejsem schopen
z toho vymacknout korektni handle. Nevite nekdo? Diky.
At 21:04 21.10.1997 +0200, you wrote:
>> Dobry den,
>> nevite nekdo, jake jsou a jak odchytit souborove udalosti ve Windows?
>> Ty co pouziva napr Explorer.
>> Dik.
>> Vaclav Sazima
>
>Doporucuji knihu Windows pro pokrocile a experty, vydal Computer press
1997. Je to preklad knihy
>J. Richtera - Advanced Windows, cena 600,-. Specialne kapitola 14 je o
souborovych systemech, k
>Vasemu problemu se pak vaze zrejme podkapitola Oznameni zmen v souborovem
systemu, strana 638.
>Ke knize je i CD s priklady v C, ale dobre citelne.
>
>Snad to pomuze, Petr Kandera
> (tanger(zv)mbox.vol(tec)cz)
>
>
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Jeste jednou fce TRUNC
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 30.10.1997 14:49:12
... k tem kratkejm realnejm cislum a Trunc funkci:
(Hledal jsem vsude mozne a nic co by se vam libilo jsem nenasel)
1. Borland nedoporucuje v Delphi pouzivani Single a Real
2. Tyto typy jsou implementovany pro zpetnou kompatibilitu s Pascalem
3. Kdo chce videt jak je to delany, ma verzi vyssi nez Standard
a chce se v tom rypat, pak zdrojaky jsou ASM nebo PAS v ...SOURCE/RTL/SYS.
4. Stejne jako real se chova single, jenom u jinych cisel a typu cisel
5. Neni paravda, ze vyraz typu IntToStr(Trunc(re2)) dava vzdy korektni
hodnotu
(Vyzkousejte v rozesilanem priklade vynasobit hodnotou 1000000)
6. Zkousel jsem to testovat i s Double a zde jsem na nic podobneho zatim
neprisel.
Z toho vseho plyne pro dnes i na priste v Delphi:
A) Pokud mozno prestat pouzivat Single a Real /tak jak doporucuje Borland/
B) Zacit pouzivat Double /tak jak doporucuje Borland/
Jirka Burian
jburian(zv)borland(tec)cz
Borland s.r.o., Tynsky dvur 10, 110 00 Praha 1
tel.: 02-2481 8152-3, fax.: 02-24812753
http://www.borland(tec)cz/dics/
----- P�vodn� zpr�va -----
Odes�latel: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
Komu: 'Delphi LSV' <delphi(zv)pinknet(tec)cz>
Datum: 28. ��jna 1997 11:58
P�edm�t: Chyba fce TRUNC v Delphi 1 a 3
>Je to o funkci TRUNC
>
>Zkuste si jednoduchy prikladek:
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> re1, re : real;
>begin
> re1 :=133.180;
> Label1.Caption :=IntToStr(Trunc(re1*1000));
> re:2=re1*1000;
> Label2.Caption :=IntToStr(Trunc(re2));
>end;
>
> !!!!! Label1.Caption bude "133179" a Label2.Caption bude spravne
"133180"
>!!!
>
>A neni to jenom pro toto cislo.
>
> Zdenek Prantl
> prantl(zv)ptc.pvt(tec)cz
>
>P.S.: Pokud tuto konferenci cte take nekdo od Borlandu, tak mi sdelte, kam
>bych mel tento problem oznamit.
> Zd.
>
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 30.10.1997 15:25:18
On Thursday, October 30, 1997 1:46 PM, Ondra Gebauer [SMTP:gebauero(zv)mlp(tec)cz]
wrote:
> > > Zda sa, ze typu REAL sa treba vyhnut.
> >
> > Ja jsem to nasel take, ale kvuli tomu preci nebudu prepisovat cely program
i
> > s
> > jeho datovymi strukturami ... 8-)
> Mozna by slo dat na zacatku unity
> type
> real=double;
A na zacatek datovych struktur si mam dat co ?? 8-)
Prave, ze jsem predelaval program z Packalu do Delfinu a problem je v tom,
ze v datech (ten program bezi cca 3-4 roky a skladuje si historicka data) mam
naskladane Real typy (6 bytu) a Double je na 8 bytu, takze bych k tomu musel
jeste udelat konverzni program na data. No asi mi nic jineho nezbude.
Zd.TToolBar97
[*] Vojtech Semecky <v-soft(zv)scretchy(tec)czech(tec)net> - 30.10.1997 20:53:21
> Mohl bych poprosit o TToolBar97.
ToolBar97 se da stahnout na adrese :
http://www.intermid.com/delphi/download/tb97_151.zip
nebo primo na strance autora :
http://members.aol.com/jordanr7
Rekl bych, ze je to jedine do konce dotazene reseni
toolbaru ve stylu noveho officu. Pouzivam to
v Tarantuli a nemuzu si stezovat.
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/Dialog pro vyber adresare
[*] Tomas Krecmer <tokr(zv)tmapy(tec)cz> - 31.10.1997 06:41:20
> Nevite, prosim, nekdo jestli je ve Windows95/NT4.0 definov�n
> standardni dialog pro vyber adresare (takovy, jaky je obsazen
> ve standardnim vyhledavacim programu v nabidce Start).
> V kladnem pripade, jakou funkci jej lze vyvolat z Delphi 3 ?
>
> Dik, Martin Dupal
>
> P.S. Celkem se divim, ze tento dialog neni obsazen implicitne v
> palete komponent Dialogs.
>
Na internetu najdes napriklad komponentu TBrowseFolder. Je to
klasicky dialog, ktery zapouzdruje SHBrowseForFolder. Funguje i pod Delphi 3.
Je treba na adrese
ftp://ftp.ms.mff.cuni(tec)cz/MIRRORS/sunsite.icm.edu.pl/pub7/delphi/ftp/d2
0free/browfold.zip
nebo
ftp://ftp.ms.mff.cuni(tec)cz/OS/MSWin/Delphi/d20free/browfold.zip
Zdravim
Tomas Krecmer
----------------------------------------------------------------------
_____ T-Mapy spol. s r.o. Phone: +42 49 5513335
|_ _| Ing.Tomas Krecmer Fax: +42 49 5513371
MAPY Nezvalova 850 Email: tokr(zv)tmapy(tec)cz
|_| 500 02 Hradec Kralove
Czech Republic
----------------------------------------------------------------------
Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)
[*] Jan Rejlek <apex(zv)apex-lib(tec)cz> - 31.10.1997 08:17:52
Zdravim vsechny,
podle meho nazoru neni chyba ani u Borlandu ani v typu REAL, ale v prevodu
floating point cisla na integer. Ten NELZE delat funkci Trunc (ta totiz, jak
naznacuje jeji nazev,jen ORIZNE desetinnou cast), ale musi se delat funkci
Round, ktera opravdu zaokrouhluje.
Jinak sebemensi zaporna zaokrouhlovaci chyba v predchozich vypoctech zpusobi
zmenseni vysledku o 1. Tomu se neda predejit ani pouzitim jineho typu cisla
(snad krome Currency).
Jan Rejlek
-----Original Message-----
From: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)io.pinknet(tec)cz>
Date: 30. ��jna 1997 16:59
Subject: RE: Chyba fce TRUNC v Delphi 1 a 3 (jeste jednou)>On Thursday, October 30, 1997 1:46 PM, Ondra Gebauer [SMTP:gebauero(zv)mlp(tec)cz]
>wrote:
>> > > Zda sa, ze typu REAL sa treba vyhnut.
>> >
>> > Ja jsem to nasel take, ale kvuli tomu preci nebudu prepisovat cely
program
>i
>> > s
>> > jeho datovymi strukturami ... 8-)
>> Mozna by slo dat na zacatku unity
>> type
>> real=double;
>
>A na zacatek datovych struktur si mam dat co ?? 8-)
>Prave, ze jsem predelaval program z Packalu do Delfinu a problem je v tom,
>ze v datech (ten program bezi cca 3-4 roky a skladuje si historicka data)
mam
>naskladane Real typy (6 bytu) a Double je na 8 bytu, takze bych k tomu
musel
>jeste udelat konverzni program na data. No asi mi nic jineho nezbude.
>
> Zd.
Popup menu
[*] Petr Kol�� <petrkolar(zv)melzer(tec)cz> - 31.10.1997 12:52:57
Zdravim fsechny,
mam dva dotazy k TPopupMenu.
1. Jak lze zmodifikovat popup menu zobrazene napr. na komponente TDBMemo. Normalne se zobrazi polozky Undo, -, Cut, Copy, Paste, Delete, -, Select All. Ja bych chtel k existujicim polozkam jeste nejakou polozku pridat. Pokud vytvorim popup menu a priradim ho do TDBMemo.PopupMenu, defaultni menu se vubec nezobrazi.
2. Lze nejak zjistit, na ktere komponente se popup menu vyvolalo. Mam pripad, kdy priradim jedno popup menu vice komponentam a chci v OnClick delat neco s komponentou, na ktere jsem stiskl prave tlacitko.
Diky za odpovedi
Petr
Petr Kol��
mailto:petrkolar(zv)melzer(tec)cz
http://www.melzer(tec)cz
program v taskbaru
[*] VIR(zv)mail.spsuh.hiedu(tec)cz - 31.10.1997 15:11:54
Ahoj vsichni,
mam problem, chtel bych si udelat neco jako Microsoft Office Manager.
Potrebuju ale, aby se mi tento program nezobrazoval v te dolni liste (task
baru) ve WIN95. Prosim, poradte mi.Popup menu
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 31.10.1997 16:13:05
1. Jak lze zmodifikovat popup menu zobrazene napr. na komponente TDBMemo. Normalne se zobrazi polozky Undo, -, Cut, Copy, Paste, Delete, -, Select All. Ja bych chtel k existujicim polozkam jeste nejakou polozku pridat. Pokud vytvorim popup menu a priradim ho do TDBMemo.PopupMenu, defaultni menu se vubec nezobrazi.
[Miloslav Sk�cel]
Kdyz priradis do property WinControl.PopupMenu svoje menu tak se nevyvola to default menu.
Myslim, ze nejjednodussi je vytvorit vlastni 'default' polozky ve svem menu.
2. Lze nejak zjistit, na ktere komponente se popup menu vyvolalo. Mam pripad, kdy priradim jedno popup menu vice komponentam a chci v OnClick delat neco s komponentou, na ktere jsem stiskl prave tlacitko.
[Miloslav Sk�cel]
Zkus se podivat do helpu na property TPopupMenu.PopupComponent
Milos
program v taskbaru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.10.1997 16:27:54
staci pouze na prislusne okno zavolat ShowIndow s
parametrem hide
P.S. okno najdete napr fci FindWindow pomoci textu
zobrazeneho v Caption ramecku
----------
> Odes�latel: VIR(zv)mail.spsuh.hiedu(tec)cz
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: program v taskbaru
> Datum: 31. ��jna 1997 15:11
>
> Ahoj vsichni,
> mam problem, chtel bych si udelat neco jako Microsoft
Office Manager.
> Potrebuju ale, aby se mi tento program nezobrazoval v te
dolni liste (task
> baru) ve WIN95. Prosim, poradte mi.Popup menu
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 31.10.1997 17:23:57
Co se tyce prvni veci tak nevim jak to udelat jednoduse. Ale myslim
si ze by urcite slo dodat dalsi polozky do menu dynamicky za behu
programu, napr. pri vytvareni formulare.
Druha otazka: Pokud se nepletu tak v procedurach provadenych na
kliknuti v menu je v hlavicce uveden Sender, a to by mel byt tvuj
hledany objekt. Musis to ale vyzkouset.
Ahoj Pavel
> From: Petr Kol_ <petrkolar(zv)melzer(tec)cz>
> To: "'Delphi List'" <delphi(zv)pinknet(tec)cz>
> Subject: Popup menu
> Date: Fri, 31 Oct 1997 12:52:57 +0100
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Zdravim fsechny,
> mam dva dotazy k TPopupMenu.
> 1. Jak lze zmodifikovat popup menu zobrazene napr. na komponente TDBMemo.
Normalne se zobrazi polozky Undo, -, Cut, Copy, Paste, Delete, -, Select All. Ja bych
chtel k existujicim polozkam jeste nej
> 2. Lze nejak zjistit, na ktere komponente se popup
menu vyvolalo. Mam pripad, kdy priradim jedno popup menu vice komponentam a chci v OnClick
delat neco s komponentou, na ktere jsem stiskl prave tla
> Diky za odpovedi
> Petr
> Petr Kol_
> mailto:petrkolar(zv)melzer(tec)cz
> http://www.melzer(tec)cz
>
>
> program v taskbaru
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 31.10.1997 18:36:13
>mam problem, chtel bych si udelat neco jako Microsoft Office Manager.
>Potrebuju ale, aby se mi tento program nezobrazoval v te dolni liste (task
>baru) ve WIN95. Prosim, poradte mi.
ShowWindow(Application.Handle, sw_hide);
skryje prave jenom to tlacitko na taksbaru - protoze Application ve
skutecnosti je male neviditelne okno prave jen s timto tlacitkem
McLEI
V.c : RE: Popup menu
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - ct 1997 19:19:32 -0700
>1. Jak lze zmodifikovat popup menu zobrazene napr. na komponente TDBMemo.
>Normalne se zobrazi polozky Undo, -, Cut, Copy, Paste, Delete, -, Select All.
>Ja bych chtel k existujicim polozkam jeste nejakou polozku pridat. Pokud
>vytvorim popup menu a priradim ho do TDBMemo.PopupMenu, defaultni menu se vubec
>nezobrazi.
>[Miloslav Skacel]
>Kdyz priradis do property WinControl.PopupMenu svoje menu tak se nevyvola to
>default menu.
>Myslim, ze nejjednodussi je vytvorit vlastni 'default' polozky ve svem menu.
>2. Lze nejak zjistit, na ktere komponente se popup menu vyvolalo. Mam
>pripad, kdy priradim jedno popup menu vice komponentam a chci v OnClick
>delat neco s komponentou, na ktere jsem stiskl prave tlacitko.
>[Miloslav Skacel]
>Zkus se podivat do helpu na property TPopupMenu.PopupComponent
Anebo v udalosti OnClick(Sender: TObject) na Sender
Par prikladu:
procedure TForm1.MyPopup1Click(Sender: TObject);
begin
if Sender is TEdit then
TEdit(Sender).Text:= '';
if TWinControl(Sender).Name='Memo1' then
Memo1.Lines.Clear;
end;
Stingl.Pavel/2300/ETI(zv)ETI1.CCMAIL.X400.CEZ.CZ
Dialog pro vyber adresare
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 1.10.1997 11:28:20
> Nevite, prosim, nekdo jestli je ve Windows95/NT4.0 definov�n
> standardni dialog pro vyber adresare (takovy, jaky je obsazen
> ve standardnim vyhledavacim programu v nabidce Start).
> V kladnem pripade, jakou funkci jej lze vyvolat z Delphi 3 ?
Tento dialog existuje. Hledej na DSP neco jako BrowseFolder.
> P.S. Celkem se divim, ze tento dialog neni obsazen implicitne v
> palete komponent Dialogs.
Taky obcas zasnu, co v te standardni palete neni.
Co se tyce prvku pro praci se soubory a adresari ve stylu
Win95, tak se na to uplne vyflakli. Akorat tem starym dali
moznost zobrazovat dlouhe nazvy. Ale co kdyz chce uzivatel
pristupovat na plochu, ze ? (Prumerny uzivatel nevi, ze plocha
je adresar kdesi v C:\Windows\Profiles\Uzivatel\Plocha).
Vojta
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/Stracanie rekordov v Paradoxovych tabulkach
[*] Marek Smol�k <marek(zv)ba.sknet.sk> - 01.10.1997 19:23:32
Mam taky problem,
stracaju sa mi rekordy v paradoxovych tabulkach.
(delphi 3.0, paradox 7)
Neviem, cim to je.
Neviem, moze sa take nieco stavat v pripade ze mam na jednu
tabulku otvorenych viacej TTable premennych a raz z jednej a
raz z druhej pisem do tabulky?
Alebo existuju nejake zakazane operacie s tabulkami pri ktorych by
sa mohol stratit nejaky rekord?
Alebo sa moze stratit rekord v pripade ze zabudnem zatvorit tabulku?
Marek
marek(zv)ba.sknet.sk
CGI
[*] Michal Krause <m-krause(zv)usa(tec)net> - 02.10.1997 12:24:41
Zkousim psat CGI v Delphi a nejak nevim, jak ziskam parametry (tedy
treba obsah poli formulare). Kdysi mi myslim nekdo rikal, ze se maj
precist z inputu, ale nejak mi to nefunguje.
Mike
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
---====> M I C H A L K R A U S E <===---
---===>>> Grafika, 3D Studio MAX, Delphi, WEB, JAVA <<<===---
--= Spoluautor neoficialnich stranek muzikalu KRYSAR =--
--+-+-+ http://web.pinknet(tec)cz/krysar +-+-+--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"Muzeme mit vsechno, co chceme, pokud chceme jenom
to, co muzeme mit." Moritz von Schwindt
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Alokace pameti
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 2.10.1997 17:13:07
Srdecne vsechny zdravim,
pochopitelne mam problem.
V programu potrebuji pracovat s velkym mnozstvim dat.
Ukladam je do pameti.
Klasicky New(data). Po provedeni potrebnych operaci uvolnuji
pamet Dispose(data). A tady je problem. Pri cyklickem behu
neustale vzrusta mnozstvi alokovane pameti. Windows stale casteji
smatraji na disk, az se nakonec zhouti.
Nejde o zapomenute pointry, tento jev je mozne jednoduse
vyzkouset.
Co s tim ???
Diky za rady
---------------------------------------------------------
Zdenek (Hroch) Sraier
E-mail:sraierzd(zv)czn(tec)cz HTTP://users(tec)czn(tec)cz/~sraierzd/
---------------------------------------------------------
Alokace pameti
[*] jpivonka(zv)bbs.infima(tec)cz - v 1997 19:00:12
DE>Klasicky New(data). Po provedeni potrebnych operaci uvolnuji
DE>pamet Dispose(data). A tady je problem. Pri cyklickem behu
DE>neustale vzrusta mnozstvi alokovane pameti. Windows stale casteji
DE>smatraji na disk, az se nakonec zhouti.
DE>Nejde o zapomenute pointry, tento jev je mozne jednoduse
DE>vyzkouset.
Byla publikovana jedna chyba v tStrings, ktera za sebou nechavala
zapomenutejch 8 byte. Kdyz si prosatras inet, najdes to. Ale stejne
bych hledal neco zapomenutyho: Nemas tam nejaky objekty? Dlouhy
retezce? Pokud pouzivas New/Dispose, je to vzdycky o hubu. Posli
zdrojak.
Jarda 8-{ <pivonka(zv)ibm.net>Alokace pameti - ZDROJAK TESTU
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 2.10.1997 22:22:09
[P��loha v souboru: Test.zip]
Toto je v�ced�ln� zpr�va form�tu MIME.
----------
> Odes�latel: jpivonka(zv)bbs.infima(tec)cz
> Komu: delphi(zv)io.pinknet(tec)cz
> P�edm�t: Alokace pameti
> Datum: 2. listopadu 1997 19:00
>
> DE>Klasicky New(data). Po provedeni potrebnych operaci uvolnuji
> DE>pamet Dispose(data). A tady je problem. Pri cyklickem behu
> DE>neustale vzrusta mnozstvi alokovane pameti. Windows stale casteji
> DE>smatraji na disk, az se nakonec zhouti.
> DE>Nejde o zapomenute pointry, tento jev je mozne jednoduse
> DE>vyzkouset.
>
> Byla publikovana jedna chyba v tStrings, ktera za sebou nechavala
> zapomenutejch 8 byte. Kdyz si prosatras inet, najdes to. Ale stejne
> bych hledal neco zapomenutyho: Nemas tam nejaky objekty? Dlouhy
> retezce? Pokud pouzivas New/Dispose, je to vzdycky o hubu. Posli
> zdrojak.
>
> Jarda 8-{ <pivonka(zv)ibm.net>
Prikladam zdrojak testovaciho programku. Kliknutim na prvni tlacitko
se alokuje pamet. Kliknutim na druhe uvolni. Po asi dvaceti cyklech
je jiz mozne pozorovat na grafu alokovane pameti narust.
(W95 - Prislusenstvi - Systemove nastroje - Sledovani systemu - alokovana pamet)
Nemyslim si, ze by v tomto prikladku byl zapomenuti pointer.
Diky za trpelivost, Zdenek
---------------------------------------------------------
Zdenek (Hroch) Sraier
E-mail:sraierzd(zv)czn(tec)cz HTTP://users(tec)czn(tec)cz/~sraierzd/
---------------------------------------------------------
CGI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.10.1997 23:17:44
> Zkousim psat CGI v Delphi a nejak nevim, jak ziskam parametry (tedy
> treba obsah poli formulare). Kdysi mi myslim nekdo rikal, ze se maj
> precist z inputu, ale nejak mi to nefunguje.
Ono totiz zalezi take na tom, pro jaky software na serveru ma byt CGI
skript vytvoreny. Napr. Microsoft Internet Information Server predava
data jinak nez Web Site apod. Na cem to provozujes?
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Alokace pameti - ZDROJAK TESTU
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.10.1997 00:36:37
> Prikladam zdrojak testovaciho programku. Kliknutim na prvni tlacitko
> se alokuje pamet. Kliknutim na druhe uvolni. Po asi dvaceti cyklech
> je jiz mozne pozorovat na grafu alokovane pameti narust.
> (W95 - Prislusenstvi - Systemove nastroje - Sledovani systemu - =
> alokovana pamet)
> Nemyslim si, ze by v tomto prikladku byl zapomenuti pointer.
1. Zkousel jsem to a nedela mi to zadny problem. Mam Delphi 2, Windows 95,
Pentium 166 MHz a 64 MB RAM. Zadal jsem pocet struktur 16380 a kdyz dam
vytvorit, zvysi se alokovana pamet na 80.740.352, jamile dam vymazat,
klesne zpet na 63.897.600 - stale stoupa a klesa uplne stejne, zkousel
jsem to asi 120x.
2. Nemas nahodou Delphi 1 ??? Totiz pod Delphi 1 nelze alokovat promennou
String tak, jak to delas ty, na to je treba pouzit NewStr a DisposeStr,
jinak to samozrejme nechodi. V Delphi 2 a vyse jsou tyto funkce jen pro
zpetnou kompatibilitu, ale v 16-bitovem Delphi mely smysl. Pokud mas
Delphi 1, pak bys to musel udelat tak, ze bys to pole stringu ukladal
kazdy string zvlast pomoci NewStr a pak zase likvidoval DisposeStr...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Popup menu
[*] Petr Kol�� <petrkolar(zv)melzer(tec)cz> - 3.10.1997 06:55:18
Ahoj
diky za odpovedi.
1. Radeji bych chtel nejakym zpusobem zmodifikovat defaultni menu, protoze se muze lisit v ruznych verzich Windows nebo priinstalovanim nejakeho softu. Navic pri vyvolani na jinem objektu muze byt menu uplne jine. Myslim si, ze by mela jit odchytit nejaka zprava, ktera by informovala o tom, ktere menu se vyvolava.
2. TPopupMenu.PopupComponent funguje (spatne jsem hledal).
>Anebo v udalosti OnClick(Sender: TObject) na Sender
Sender v OnClick je TMenuItem, tj. polozka menu, ktera byla vybrana.
S pozdravem
Petr
Petr Kol��
mailto:petrkolar(zv)melzer(tec)cz
http://www.melzer(tec)cz
-----P�vodn� zpr�va-----
Od: Skacel Miloslav [SMTP:skacel(zv)kjsoft(tec)cz]
Odesl�no: 31. ��jna 1997 16:13
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Popup menu
1. Jak lze zmodifikovat popup menu zobrazene napr. na komponente TDBMemo. Normalne se zobrazi polozky Undo, -, Cut, Copy, Paste, Delete, -, Select All. Ja bych chtel k existujicim polozkam jeste nejakou polozku pridat. Pokud vytvorim popup menu a priradim ho do TDBMemo.PopupMenu, defaultni menu se vubec nezobrazi.
[Miloslav Sk�cel]
Kdyz priradis do property WinControl.PopupMenu svoje menu tak se nevyvola to default menu.
Myslim, ze nejjednodussi je vytvorit vlastni 'default' polozky ve svem menu.
2. Lze nejak zjistit, na ktere komponente se popup menu vyvolalo. Mam pripad, kdy priradim jedno popup menu vice komponentam a chci v OnClick delat neco s komponentou, na ktere jsem stiskl prave tlacitko.
[Miloslav Sk�cel]
Zkus se podivat do helpu na property TPopupMenu.PopupComponent
Milos
Stracanie rekordov v Paradoxovych tabulkach
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - v 1997 07:46:06 -0700
Mam taky problem,
stracaju sa mi rekordy v paradoxovych tabulkach.
(delphi 3.0, paradox 7)
Neviem, cim to je.
Neviem, moze sa take nieco stavat v pripade ze mam na jednu
tabulku otvorenych viacej TTable premennych a raz z jednej a
raz z druhej pisem do tabulky?
Alebo existuju nejake zakazane operacie s tabulkami pri ktorych by
sa mohol stratit nejaky rekord?
Alebo sa moze stratit rekord v pripade ze zabudnem zatvorit tabulku?
Zkus po kazdem zapisu prilozenou proceduru. Nevim, jak to mas
udelane, ale Paradox v Delphi ma tu neprijemnou vlastnost, ze BDE pro-
vadi zpozdene zapisy na disk. Muze dochazet k neprijemnym situacim,
zvlaste pri vypadcich proudu atd. V kazdem pripade bych se vyhnul
nekolika instancim jedne tabulky. Nevim, jak a proc to tak delas,
proc nepouzijes TDataModule, kde mas pro celou aplikaci vsechny data atp.
Procedura provadi nuceny zapis cache BDE na disk, v klauzuli uses musi
byt uvedena jednotka BDE.
procedure FlushBDEMem(Tbl: TTable);
begin
Tbl.DisableControls;
Tbl.Open;
Check(dbiSaveChanges(Tbl.Handle));
Tbl.EnableControls;
end;
Pak jeste jedna uzitecna vec- pakovani PDX tabulek (Tabulka musi byt
otevrena exkluzivne)
procedure PackPDXTable(Tbl: TTable);
var
hDb: hDbiDb;
TblDesc: CRTblDesc;
Dir: String;
begin
SetLength(Dir, dbiMaxNameLen + 1);
Check(DbiGetDirectory(Tbl.DBHandle, False, PChar(Dir)));
SetLength(Dir, StrLen(PChar(Dir)));
try
FillChar(TblDesc, sizeof(CRTblDesc), #0);
Tbl.DisableControls;
Tbl.Close;
Check(DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0, nil,
nil, hDb));
Check(DbiSetDirectory(hDb, PChar(Dir)));
StrPCopy(TblDesc.szTblName, Tbl.TableName);
StrCopy(TblDesc.szTblType, szParadox);
TblDesc.bPack:= True;
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, False));
finally
Check(DbiCloseDatabase(hDb));
Tbl.EnableControls;
Tbl.Open;
Check(DbiSaveChanges(Tbl.Handle));
end;
end; Mej se
Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
CGI
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 3.10.1997 08:09:36
-----Original Message-----
From: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 2. November 1997 23:21
Subject: Re: CGI
> Zkousim psat CGI v Delphi a nejak nevim, jak ziskam parametry (tedy
> treba obsah poli formulare). Kdysi mi myslim nekdo rikal, ze se maj
> precist z inputu, ale nejak mi to nefunguje.
Ono totiz zalezi take na tom, pro jaky software na serveru ma byt CGI
skript vytvoreny. Napr. Microsoft Internet Information Server predava
data jinak nez Web Site apod. Na cem to provozujes??????? Ja jsem myslel, ze rozhrani CGI je standard :).
Dale k problemu:
Data pro cgi script se predavaji pri metode GET v promene QUERY_STRING a pri
metode POST pres std. vstup. Delka predavanych udaju je v promene
CONTENT_LENGTH. Typ metody udava promena REQUEST_METHOD.
Vsechny promene jsou jako promene prostredi. Vysledek ze skryptu se predava
pres std. Vystup
Jinak vice informaci o CGI je na http://info.pvt.net
Roman K.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
CGI
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 3.10.1997 08:19:58
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
>
> Napr. Microsoft Internet Information Server predava
> data jinak nez Web Site apod. Na cem to provozujes?
[T.B.]
Pokud to pises pro MS IIS, tak bych radsi nez CGI napsal ISAPI script,
je to rychlejsi a na muj vkus i jednodussi...
Tomas
[T.B.] ---------------------------------------
Tomas Burger
MIUS v.o.s.
mailto:Tomas.Burger(zv)mius(tec)cz
http://www.teplice-city(tec)cz/
http://staff.mius(tec)cz/~tomasb/
icq:3908757
---------------------------------------
> program v taskbaru
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 03.10.1997 08:23:04
At 15:11 31.10.1997 +0100, you wrote:
>Ahoj vsichni,
>mam problem, chtel bych si udelat neco jako Microsoft Office Manager.
>Potrebuju ale, aby se mi tento program nezobrazoval v te dolni liste (task
>baru) ve WIN95. Prosim, poradte mi.
>
>
Asi dva dny zpatky jsem na Newsech nasel tip, kterej jsem hned vyzkousel a
funguje to. Do FormCreate pridej
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Systemove promenne
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 03.10.1997 11:17:00
Ahoj Konference,
po nejake dobe zase problem .. :-))
Prosim, pomozte mi ... potrebuji nacist obsah systemove promenne do
stringu. V pascalu se to delalo pres "GetEnvStr" tusim, ale v Delphi
jsem na nic nenarazil ...
Mockrat Vam dekuji a preji nadherny den
Peter Rus
peterrus(zv)geocities.com
ps. Pokud existuji odchylky syntaxe u Delphi 2 a 3, prosil bych o popis.
CGI
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 03.10.1997 11:25:16
=?iso-8859-2?Q?Burger_Tom=E1=B9?= wrote:
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> >
> > Napr. Microsoft Internet Information Server predava
> > data jinak nez Web Site apod. Na cem to provozujes?
Jak vypada standardni CGI skript je popsano na moc mistech.
Staci se podivat treba na yahoo/www/cgi ( nebo tak nejak podobne)
> [T.B.]
> Pokud to pises pro MS IIS, tak bych radsi nez CGI napsal ISAPI script,
> je to rychlejsi a na muj vkus i jednodussi...
> Tomas
a muj vkus taky zbytecne destabilizujici cely server v pripade
chyby. To uz radej ASP ;-)
>
> [T.B.] ---------------------------------------
> Tomas Burger
> MIUS v.o.s.
>
--
S pozdravem
Petr Snajdr
Software is like sex;
it's better when it's free.
--- Linus Torvalds
___________________________________
Ztracene zaznamy v tabulkach Paradoxu.
[*] tomas.mazurek(zv)vitkovice(tec)cz - 3.10.1997 11:32:12
Nazdar,
delam s Paradoxem od r. 1990, tj. jeste pro DOS a vim, ze je velmi
haklivy na stabilitu. Napr. vypadek proudu muze vest. mj. k poskozeni
tabulky. U verzi pro Windows je to jeste horsi. Z vlastni zkusenosti
vim, ze k poskozeni tabulky staci zejmena u Windows 3.1 nebo 3.11
jejich pad..
Nabizim drobnou utilitku, ktera pouziva borlandovskou knihovnu
Tutility.DLL resp. Tutil32.DLL, jenz slouzi ke kontrole a pripadnemu
obnoveni poskozene paradoxovske tabulky. Pokud mas zajem, posli mail.
Freewerova verze umi jen zjistit, zdali a jak je tabulka poskozena,
ale to by mozna pro Tebe pro zacatek stacilo...
Tomas
CGI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.10.1997 11:42:59
> ?????? Ja jsem myslel, ze rozhrani CGI je standard :).
>
> Dale k problemu:
>
> Data pro cgi script se predavaji pri metode GET v promene QUERY_STRING a pri
> metode POST pres std. vstup. Delka predavanych udaju je v promene
> CONTENT_LENGTH. Typ metody udava promena REQUEST_METHOD.
Neni tomu tak, aspon podle mych informaci. To, co je psano vyse, plati pro
napr. MS IIS, je to vetsinou tak. Ale WebSite od O'Reilly (nebo jak se to
jmenuje) predava data tak, ze udaje napise do souboru, ktery ulozi na udane
misto, a v STD preda programu nazev tohoto souboru. CGI musi otevrit tento
soubor, precist udaje a vytvorit jiny soubor s vysledkem, ktery zase preda
serveru.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Systemove promenne
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 03.10.1997 12:04:44
At 11:17 3.11.1997 +0100, you wrote:
>Ahoj Konference,
>
>po nejake dobe zase problem .. :-))
>
>Prosim, pomozte mi ... potrebuji nacist obsah systemove promenne do
>stringu. V pascalu se to delalo pres "GetEnvStr" tusim, ale v Delphi
>jsem na nic nenarazil ...
>
>Mockrat Vam dekuji a preji nadherny den
>
>Peter Rus
>peterrus(zv)geocities.com
>
>ps. Pokud existuji odchylky syntaxe u Delphi 2 a 3, prosil bych o popis.
>
>
Pro Delphi 3.0 - ale je to volani API, takze by se to dle meho nemelo lisit:
Var P : array [0..255] of char;
begin
GetEnvironmentVariable ('Temp',P,255);
end;
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
CGI
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 03.10.1997 12:51:18
Petr Zahradnik wrote:
> > Data pro cgi script se predavaji pri metode GET v promene QUERY_STRING a pri
> > metode POST pres std. vstup. Delka predavanych udaju je v promene
> > CONTENT_LENGTH. Typ metody udava promena REQUEST_METHOD.
>
> Neni tomu tak, aspon podle mych informaci. To, co je psano vyse, plati pro
> napr. MS IIS, je to vetsinou tak. Ale WebSite od O'Reilly (nebo jak se to
> jmenuje) predava data tak, ze udaje napise do souboru, ktery ulozi na udane
> misto, a v STD preda programu nazev tohoto souboru. CGI musi otevrit tento
> soubor, precist udaje a vytvorit jiny soubor s vysledkem, ktery zase preda
> serveru.
Pak to neni CGI ;-)
Neni to treba WinCGI ? Mam pocit, ze tohle prave pouziva WebSite.
--
S pozdravem
Petr Snajdr
Software is like sex;
it's better when it's free.
--- Linus Torvalds
___________________________________
CGI
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 3.10.1997 13:09:14
-----Original Message-----
From: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
To: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Date: 3. November 1997 12:47
Subject: Re: CGI
Neni tomu tak, aspon podle mych informaci. To, co je psano vyse, plati pro
napr. MS IIS, je to vetsinou tak. Ale WebSite od O'Reilly (nebo jak se to
jmenuje) predava data tak, ze udaje napise do souboru, ktery ulozi na udane
misto, a v STD preda programu nazev tohoto souboru. CGI musi otevrit tento
soubor, precist udaje a vytvorit jiny soubor s vysledkem, ktery zase preda
serveru.
To jsem nevedel, ale obecne by melo platit, ze jsou data predavany pres
STDIN a STDOUT. Uz jsem totiz delal scripty pro ruzne servery (unix, NT) ale
nesetkal jsem se z jinym zpusobem nez vyse uvedene.
Roman K.Ceske fonty
[*] Pavel Chaloupka <chaloupka(zv)com-tech(tec)cz> - 3.10.1997 14:14:45
Zdravim vsechny!
Mam nasledujici problem:
Chci pouzit cesky (CE) font v Delphi 2.0 pod Windows NT 4.0 US. Problem je v
tom, ze v ceskych
Win95 to chodi a v NT US ne.
Vytvorim si ve Formu Label. Nastavim Font.Name = 'Arial CE' atd.
v Win95 je vse OK (kdyz nastavim jenom Arial tak je anglicky, to ja taky OK)
v NT je font vzdy ANGLICKY.
Dival jsem se do zdroju, jak se ty fonty vytvari a on tam pouziva funkci
CreateFontIndirect() a v znakove sade dava DEFAULT_CHARSET. Po konzultaci s
nekterymi
kolegy jsem dosel k nazoru, ze v NT asi spatne funguji FontSubstitutes.
V Win95 je toto ulozeno v Ini souboru Win.INI, NT to maji v registru.
Hodnoty jsou stejne,
ale v NT to proste nechodi...
Chtel jsem si vytvorit ten font sam. Vytvorim font pomoci CreateFontIndirect
se stejnym nastavenim
jako Delphi, ale misto DEFAULT_CHARSET dam EASTEUROPE_CHARSET kdyz to
priradim
do Font.Handle tak je tam jiny font nez jsem vytvoril. Jestli by se dal do
fontu priradit muj vytvoreny
font, tak si to uz nejak v te aplikaci udelam, ale nejde mi to.
Ma na to nekdo jiny nazor? Popripade reseni?
Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
Prezentace Delphi - Midas- (Oracle)
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 3.10.1997 14:32:56
Ve stredu, 5.11.97 v prostorach firmy ORACLE bude od
13.00 do 15.00 mala prednaska a prezentace technologie
Borland MIDAS v Delphi 3.01 i s malinkou zivou ukazkou.
Vsichni, kteri pracujete s Oraclem a Delphi a mate zajem,
jste zvani. Vstup volny. Nutna registrace na tel. 0800167225
=== Jiri Burian ===
jburian(zv)borland(tec)cz
Borland s.r.o., Tynsky dvur 10, 110 00 Praha 1
tel.: 02-2481 8152-3, fax.: 02-24812753
http://www.borland(tec)cz/dics/
Systemove promenne
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 03.10.1997 15:47:45
> Pro Delphi 3.0 - ale je to volani API, takze by se to dle meho nemelo
> lisit:
>
> Var P : array [0..255] of char;
> begin
> GetEnvironmentVariable ('Temp',P,255);
> end;
>
HEEEUUUURRREEEEKKKKAAA (sorry, tomu se rika nadsena reakce ..) !!!
Super, Pavle, Diky, diky, diky !! Funguje to funguje. Mockrat dekuji,
jsem ti do konce zivota
zavazan :-))
S pozdravem a usmevem
Peter
CGI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.10.1997 16:17:14
> Pak to neni CGI ;-)
> Neni to treba WinCGI ? Mam pocit, ze tohle prave pouziva WebSite.
Je to mozne, ze to je WinCGI, nevim, uz to nainstalovane nemam a nechce
se mi to kvuli tomu znovu instalovat...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Uvodni obrazek
[*] Strunc <strunc(zv)krv.pvt(tec)cz> - 3.10.1997 16:55:44
Ahojte lidi,
ja vim, ze tato otazka tu byla nedavno pretrasana, ale navrhovane reseni se tykalo asi D2 protoze v mem D3 navrhovany postup nejde.
Prosim tedy, muzete mi nekdo popsat jak udelat onen pekny uvodni obrazek, ktery se zobrazi pri spusteni aplikace a pri jejim "nabihani" zustava na obrazovce? (Pro D3)
Dekuji moc i za pouhe precteni, za odpoved budu moc rad.
Diky a preji vam pekny den!
***************************************
Miloslav Strunc
Podnik vypocetni techniky a.s.
Apolinarska 12, Praha 2
tel.: 21 996 323
e-mail: strunc(zv)krv.pvt(tec)cz
***************************************
Ceske fonty
[*] Ivo Liska <lisak(zv)vszbr(tec)cz> - 3.10.1997 17:48:46
On Mon, 3 Nov 1997, Pavel Chaloupka wrote:
> Mam nasledujici problem:
> Chci pouzit cesky (CE) font v Delphi 2.0 pod Windows NT 4.0 US. Problem je v
> tom, ze v ceskych
> Win95 to chodi a v NT US ne.
> Dival jsem se do zdroju, jak se ty fonty vytvari a on tam pouziva funkci
> CreateFontIndirect() a v znakove sade dava DEFAULT_CHARSET. Po konzultaci s
> nekterymi
> kolegy jsem dosel k nazoru, ze v NT asi spatne funguji FontSubstitutes.
*** Presne tak. Do Win NT je treba aplikovat Service Pack 3, pak
by se to melo ve vetsine pripadu umravnit. U nekterych aplikaci
to nefunguje (napr. WordPro 96 8-[ ) Muze to ovsem take byt
zpusobeno tim, ze NT pouzivaji UNICODE fonty, tedy jiny zpusob
vyberu spravne sady znaku nez Win 95.
> V Win95 je toto ulozeno v Ini souboru Win.INI, NT to maji v registru.
> Hodnoty jsou stejne,
> ale v NT to proste nechodi...
*** Pouha oprava registry nepomaha, je treba zamenit nektere
soubory (nevim presne ktere) pomoci SP3.
S pozdravem
Lisak
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ivo Liska Dept. of Informatics
WWW & LAN Administrator Mendel University of Agriculture & Forestry
Zemedelska 1, Brno 61300
E-mail: lisak(zv)vszbr(tec)cz Czech Republic, Central Europe
Muzete mi psat cesky v ISO-8859-2! (viz - http://www.cestina(tec)cz/) Gener. nah.cisel
[*] Ivan Vavra <vavra(zv)fzu(tec)cz> - 3.10.1997 18:25:26
Zdravim vsechny,
nevedel by nekdo jak co nejjednoduseji naprogramovat generator nahodnyxh
cisel (typ Integer, v urcitem rozsahu), cisla se mohou opakovat.
Dekuji
Ivan Vavra
SAVT - Center for Automation and Computing
Institute of Physics
Academy of Sciences of Czech Republic e-mail: vavra(zv)fzu(tec)cz
souborove udalosti
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 03.10.1997 19:00:30
Pavel Nykl wrote:
>
> Tak jsem se prizivil na dotazu nekoho jineho a snazim se resit stejny
> problem. Zakoupil jsem knihu a s potesenim v oku jsem studoval kapitolu 14.
> Je to tam opravdu podrobne popsano (kez by tomu tak bylo vzdycky).
>
> A ted problem. K nahozeni cele akce je potreba na zacatku volat
> FindFirstChangeNotification pro ziskani handlu. Pokud to udelam, obdrzim
> Invalid_Handle_Value s hodnotou GetLastError=ERROR_INVALID_PARAMETER.
> Prestoze jsem presvedcen, ze vsechny parametry jsou OK (dodrzel jsem presny
> typy z unity Windows) a cesta k adresari skutecne existuje, nejsem schopen
> z toho vymacknout korektni handle. Nevite nekdo? Diky.
>
> At 21:04 21.10.1997 +0200, you wrote:
> >> Dobry den,
> >> nevite nekdo, jake jsou a jak odchytit souborove udalosti ve Windows?
> >> Ty co pouziva napr Explorer.
> >> Dik.
> >> Vaclav Sazima
> >
> >Doporucuji knihu Windows pro pokrocile a experty, vydal Computer press
> 1997. Je to preklad knihy
> >J. Richtera - Advanced Windows, cena 600,-. Specialne kapitola 14 je o
> souborovych systemech, k
> >Vasemu problemu se pak vaze zrejme podkapitola Oznameni zmen v souborovem
> systemu, strana 638.
> >Ke knize je i CD s priklady v C, ale dobre citelne.
> >
> >Snad to pomuze, Petr Kandera
> > (tanger(zv)mbox.vol(tec)cz)
> >
> >
>
> ---------------------------------------------------------------------------
> Pavel Nykl Saturn Toya s.r.o. - Teletext systems
> mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
> http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
> ---------------------------------------------------------------------------
Ja jsem si tu knihu jeste nekoupil, ale jen tak jsem to skusil podle
Helpu a funguje mi to :
procedure TForm1.FormCreate(Sender: TObject);
begin
H := FindFirstChangeNotification
('c:\',false,FILE_NOTIFY_CHANGE_FILE_NAME);
if H = INVALID_HANDLE_VALUE then ShowMessage ('Invalid Handle');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if H <> INVALID_HANDLE_VALUE then FindCloseChangeNotification (H);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case WaitForSingleObject(H,0{Funguje to i s nulou}) of
WAIT_FAILED : Label1.Caption := 'Failed';
WAIT_OBJECT_0 : begin Label1.Caption := 'Sgnal'; MessageBeep (0);
end;
WAIT_TIMEOUT : Label1.Caption := 'TimeOut';
end;
FindNextChangeNotification (H);
end;
Ma to to ale jednu stinnou stramku, i kdyz asi pochopitelnou, nefunguje
to po siti.
Vaclav Sazima
Gener. nah.cisel
[*] jpivonka(zv)bbs.infima(tec)cz - v 1997 20:49:02
DE>nevedel by nekdo jak co nejjednoduseji naprogramovat generator nahodnyxh
DE>cisel (typ Integer, v urcitem rozsahu), cisla se mohou opakovat.
x(i+1) = ( x(i) * 3125 ) mod 65536
RND { od 0 do N-1 } = x*N div 65536
Je to linearni kongruence, ergo z kryptologickeho pohledu upoceny
<piiip>, ale na hazeni kostkou a jine detske hry to staci.
Jarda 8-{ <pivonka(zv)ibm.net>CGI
[*] Michal Krause <m-krause(zv)usa(tec)net> - 03.10.1997 20:52:16
Uf, tak to jste mi udelali v hlave peknej saigon. No, vyzkousim vase
rady s temi systemovymi promenymi a uvidim. To co delam by melo fachat
na MS IS, ale taky na MS Personal WebServer (v lokalni podobe). Doufam,
ze alespon tyhle dva budou fungovat stejne.
Mike
Mimochodem, je CGI standard nebo neni ? Jsou ty rozdily, o kterych se
tu mluvilo pouze mezi CGI a WinCGI nebo i mezi CGI na ruznych web
serverech ?
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
---====> M I C H A L K R A U S E <===---
---===>>> Grafika, 3D Studio MAX, Delphi, WEB, JAVA <<<===---
--= Spoluautor neoficialnich stranek muzikalu KRYSAR =--
--+-+-+ http://web.pinknet(tec)cz/krysar +-+-+--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"Muzeme mit vsechno, co chceme, pokud chceme jenom
to, co muzeme mit." Moritz von Schwindt
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Alokace pameti - ZDROJAK TESTU
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 3.10.1997 22:38:38
> Odes�latel: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
> Komu: delphi(zv)io.pinknet(tec)cz
> P�edm�t: Re: Alokace pameti - ZDROJAK TESTU
> Datum: 3. listopadu 1997 0:36
>
> > Prikladam zdrojak testovaciho programku. Kliknutim na prvni tlacitko
> > se alokuje pamet. Kliknutim na druhe uvolni. Po asi dvaceti cyklech
> > je jiz mozne pozorovat na grafu alokovane pameti narust.
> > (W95 - Prislusenstvi - Systemove nastroje - Sledovani systemu - =
> > alokovana pamet)
> > Nemyslim si, ze by v tomto prikladku byl zapomenuti pointer.
>
> 1. Zkousel jsem to a nedela mi to zadny problem. Mam Delphi 2, Windows 95,
> Pentium 166 MHz a 64 MB RAM. Zadal jsem pocet struktur 16380 a kdyz dam
> vytvorit, zvysi se alokovana pamet na 80.740.352, jamile dam vymazat,
> klesne zpet na 63.897.600 - stale stoupa a klesa uplne stejne, zkousel
> jsem to asi 120x.
>
> 2. Nemas nahodou Delphi 1 ??? Totiz pod Delphi 1 nelze alokovat promennou
> String tak, jak to delas ty, na to je treba pouzit NewStr a DisposeStr,
> jinak to samozrejme nechodi. V Delphi 2 a vyse jsou tyto funkce jen pro
> zpetnou kompatibilitu, ale v 16-bitovem Delphi mely smysl. Pokud mas
> Delphi 1, pak bys to musel udelat tak, ze bys to pole stringu ukladal
> kazdy string zvlast pomoci NewStr a pak zase likvidoval DisposeStr...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
1. Kdyz mi to kamarad prinesl, zkousel jsem to a tak to slo.
Podruhe uz ne. Delam to v DELPHI DEVELOPER 2.01.
Chyba se projevila asi na peti pocitacich, konktretne
AM K5/100, 64 MB RAM, W95 CZ Upgrade;
Intel P120, 16 MB RAM, W95 CZ SR2;
Intel P166, 64 MB RAM, WINNT 4.01;
ty dalsi si nepamatuji.
Zkus pridat treti tlacitko a delat cyklicky
while automat do begin
button1.click;
application.processMessages;
button2.click;
end;
Tehdy se mi to projevilo zcela jiste.
Stacilo tech 2000 struktur.
Jsem z toho docela zmateny.
Zdenek
---------------------------------------------------------
Zdenek (Hroch) Sraier
E-mail:sraierzd(zv)czn(tec)cz HTTP://users(tec)czn(tec)cz/~sraierzd/
---------------------------------------------------------
CGI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.10.1997 01:35:30
> Uf, tak to jste mi udelali v hlave peknej saigon. No, vyzkousim vase
> rady s temi systemovymi promenymi a uvidim. To co delam by melo fachat
> na MS IS, ale taky na MS Personal WebServer (v lokalni podobe). Doufam,
> ze alespon tyhle dva budou fungovat stejne.
Na techto dvou je to v STDIN a STDOUT. Mam to vyzkouseno.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Uvodni obrazek
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - v 1997 06:44:03 -0700
Udelas si form s obrazkem (v mem pripade se jmenuje Splasher) a takhle ho das do
.dpr
Splasher:=TSplasher.Create(Application);
Splasher.Show;
Splasher.Update;
Application.CreateForm(TMain, Main);
Splasher.Free;
funguje to spolehlive v libovolne verzi Delphi (pouzivam to ji od 1.0 a ted
jedu 2 Desktop a 3 C/S)
Radek Voltr
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 3. listopadu 1997 18:46
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: Uvodni obrazek
Ahojte lidi,
ja vim, ze tato otazka tu byla nedavno pretrasana, ale navrhovane reseni se
tykalo asi D2 protoze v mem D3 navrhovany postup nejde.
Prosim tedy, muzete mi nekdo popsat jak udelat onen pekny uvodni obrazek,
ktery se zobrazi pri spusteni aplikace a pri jejim "nabihani" zustava na
obrazovce? (Pro D3)
Dekuji moc i za pouhe precteni, za odpoved budu moc rad.Uvodni obrazek
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - v 1997 08:00:58 -0700
A nebo hodis vytvoreni formulare do sekce initialization v unite
formulare, a uvolnis ho v OnCreate udalosti hlavniho formulare.
Mne to pripadne cistejsi, ale to je vec nazoru.
Cau, Pavel
Stingl.Pavle/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddelovac odpovedi ________________________________
Vec: RE: Uvodni obrazek
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 4.11.1997 07:00
Udelas si form s obrazkem (v mem pripade se jmenuje Splasher) a takhle ho das do
.dpr
Splasher:=TSplasher.Create(Application);
Splasher.Show;
Splasher.Update;
Application.CreateForm(TMain, Main);
Splasher.Free;
funguje to spolehlive v libovolne verzi Delphi (pouzivam to ji od 1.0 a ted
jedu 2 Desktop a 3 C/S)
Radek Voltr
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 3. listopadu 1997 18:46
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: Uvodni obrazek
Ahojte lidi,
ja vim, ze tato otazka tu byla nedavno pretrasana, ale navrhovane reseni se
tykalo asi D2 protoze v mem D3 navrhovany postup nejde.
Prosim tedy, muzete mi nekdo popsat jak udelat onen pekny uvodni obrazek,
ktery se zobrazi pri spusteni aplikace a pri jejim "nabihani" zustava na
obrazovce? (Pro D3)
Dekuji moc i za pouhe precteni, za odpoved budu moc rad.
CGI
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 4.10.1997 08:35:13
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Na techto dvou je to v STDIN a STDOUT. Mam to vyzkouseno.
[T.B.]
Jenom znovu pripodotknu: na tech dvou bych zrovna volil radsi psani
ISAPI scriptu... Jsou rychlejsi (i kdyz trosku nebezpecnejsi... tj pri
chybe muzou sundat cely web server, i kdyz me PWS drzel i pres spoustu
chyb... :) )...
Tomas
---------------------------------------
Tomas Burger
MIUS v.o.s.
mailto:Tomas.Burger(zv)mius(tec)cz
http://www.teplice-city(tec)cz/
http://staff.mius(tec)cz/~tomasb/
icq:3908757
---------------------------------------
Gener. nah.cisel
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 04.10.1997 08:46:30
Borland standardne vybavuje svoje prekladace generatorem
nahodnych cisel - viz funkce RANDOMIZE a RANDOM.
Jde samozrejme o pseudonahodna cisla, ale na vetsinu
propadu postacuji.
J. Danihelka
Ivan Vavra wrote:
>
> Zdravim vsechny,
> nevedel by nekdo jak co nejjednoduseji naprogramovat generator nahodnyxh
> cisel (typ Integer, v urcitem rozsahu), cisla se mohou opakovat.
> Dekuji
>
> Ivan Vavra
>
> SAVT - Center for Automation and Computing
> Institute of Physics
> Academy of Sciences of Czech Republic e-mail: vavra(zv)fzu(tec)cz
>souborove udalosti
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 04.10.1997 08:53:13
> Ja jsem si tu knihu jeste nekoupil, ale jen tak jsem to skusil podle
>Helpu a funguje mi to :
>
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
> H := FindFirstChangeNotification
>('c:\',false,FILE_NOTIFY_CHANGE_FILE_NAME);
> if H = INVALID_HANDLE_VALUE then ShowMessage ('Invalid Handle');
>end;
>
>procedure TForm1.FormDestroy(Sender: TObject);
>begin
> if H <> INVALID_HANDLE_VALUE then FindCloseChangeNotification (H);
>end;
>
>procedure TForm1.Timer1Timer(Sender: TObject);
>begin
> case WaitForSingleObject(H,0{Funguje to i s nulou}) of
> WAIT_FAILED : Label1.Caption := 'Failed';
> WAIT_OBJECT_0 : begin Label1.Caption := 'Sgnal'; MessageBeep (0);
>end;
> WAIT_TIMEOUT : Label1.Caption := 'TimeOut';
> end;
> FindNextChangeNotification (H);
>end;
>
Opravdu to mam rad, dneska jsem spustil ten zdrojak, ktery jsem si napsal
pred tim nez jsem hledal inforamci v konferenci - a dostal jsem korektni
handle.
Diky za odpoved - jen poznamka - ve FormDestroy by melo byt
FindCloseChangeNotification.
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Uvodni obrazek
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 4.10.1997 09:15:46
Nevim proc by ti uvadene postupy pod D3 nemeli fungovat. Normalne
funguji, asi delas chybu nekde jinde. Jinak si to chce poradne projit
demo adresar v�D3 a projekty tam obsazene. Kdyby ses tam poradne
podival, tak bys nasel projekt MastApp kde se uvodni Splash pouziva.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----Puvodn� zpr�va-----
Od: Strunc [SMTP:strunc(zv)krv.pvt(tec)cz]
Odesl�no: 3. listopadu 1997 16:56
Komu: Delphi (el. adresa)
Predmet: Uvodni obrazek
Ahojte lidi,
ja vim, ze tato otazka tu byla nedavno pretrasana, ale
navrhovane reseni se tykalo asi D2 protoze v mem D3 navrhovany postup
nejde.
Prosim tedy, muzete mi nekdo popsat jak udelat onen pekny
uvodni obrazek, ktery se zobrazi pri spusteni aplikace a pri jejim
"nabihani" zustava na obrazovce? (Pro D3)
Dekuji moc i za pouhe precteni, za odpoved budu moc rad.
Diky a preji vam pekny den!***************************************
Miloslav
Strunc
Podnik
vypocetni techniky a.s.
Apolinarska
12, Praha 2
tel.: 21 996
323
e-mail:
strunc(zv)krv.pvt(tec)cz
***************************************souborove udalosti
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 04.10.1997 09:22:40
>>procedure TForm1.FormCreate(Sender: TObject);
>>begin
>> H := FindFirstChangeNotification
>>('c:\',false,FILE_NOTIFY_CHANGE_FILE_NAME);
>> if H = INVALID_HANDLE_VALUE then ShowMessage ('Invalid Handle');
>>end;
>>
>>procedure TForm1.FormDestroy(Sender: TObject);
>>begin
>> if H <> INVALID_HANDLE_VALUE then FindCloseChangeNotification (H);
>>end;
>>
>>procedure TForm1.Timer1Timer(Sender: TObject);
>>begin
>> case WaitForSingleObject(H,0{Funguje to i s nulou}) of
>> WAIT_FAILED : Label1.Caption := 'Failed';
>> WAIT_OBJECT_0 : begin Label1.Caption := 'Sgnal'; MessageBeep (0);
>>end;
>> WAIT_TIMEOUT : Label1.Caption := 'TimeOut';
>> end;
>> FindNextChangeNotification (H);
>>end;
>>
>Opravdu to mam rad, dneska jsem spustil ten zdrojak, ktery jsem si napsal
>pred tim nez jsem hledal inforamci v konferenci - a dostal jsem korektni
>handle.
>Diky za odpoved - jen poznamka - ve FormDestroy by melo byt
>FindCloseChangeNotification.
>
Musel jsem si to po sobe precist podruhy, abych zjistil, ze tam FormDestroy
opravdu je. Sorry.
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Uvodni obrazek
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 4.10.1997 13:23:16
> ja vim, ze tato otazka tu byla nedavno pretrasana, ale navrhovane reseni
se tykalo asi D2 protoze v mem D3 navrhovany postup nejde.
> Prosim tedy, muzete mi nekdo popsat jak udelat onen pekny uvodni obrazek,
ktery se zobrazi pri spusteni aplikace a pri jejim "nabihani" zustava na
obrazovce? (Pro D3)
A vyhodil si ten form s tim obrazkem z Autocreate formularu ?????
McLEI
Kodovani dat pro prenos
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 4.10.1997 14:56:41
Dobry den ci noc vsem,
potrebuju vyresit nasledujici problem:
Potrebuju zabezpecit prenos dat, tak aby byl temer nedekodovatelny.
Prenos bude probihat pres sit, seriovy port infracervene nebo bezdratove
(zalezi na konkretni implementaci). Vzhledem k bezdratovemu prenosu je nutne
pouzit co nejbezpecnejsi zpusob. hledal jsem neco pro delphi, ale vetsina
jsou hotove knihovny a to mi nevyhovuje, protoze komunikace bude probihat
mezi PC a zarizenim s jednochipem nebo mezi PC a PC.
Uvital bych proto nejaky zdrojovy kod, nebo alespon odkaz kde se da najit
(PAscal, C, ASM).
Pro lepsi predstavu prikladam prubeh komunikace:
Predstaveni zarizeni
*heslo
Prikaz
*data
Konec spojeni
polozky oznacene * musi byt kodovany. Ma predstava je nasledujici:
Po predstaveni si zarizeni vymeni klice a pak pomoci techto klicu koduji
data. Je vsak dulezite, aby se klice dynamicky menily ( kvuli radiovemu
prenosu)
Dekuji Roman K.
BTW: pokud je to offtopic moc, tak se omlouvam