Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

Textovy editor misto DbRichEdit

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.6.1998 17:42:10

�ke��k Jaroslav wrote:
>
> P�ed �asem tu �la diskuse o tom
> jake lep�� textov� editory pou��vat nam�sto DbrichText
> pro uklad�n� dokument� do datab�ze.
> J� s�m jsem uv�d�l, jako dobr� �e�en�
> UDC Memo Writer Pro.
> Jenom�e nov� verze sl�ben� na b�ezen doposud
> nevy�la. Od dodavetele ani na opakovan� ��dosti,
> dotazy a objedn�vky nep�i�la ��dn� odpov��!
> Proto ztr�c�me d�v�ru v tento editor. Je to �koda.
>
> V t�to diskusi byl nek�m zmi�ov�n je�t�
> jin� editor. Bohu�el u� se mi nepoda�ilo
> tuto uinformaci znova objevit.
> Pros�m napi�te pokud pou��v�te nebo v�te
> o n�jak�m textov�m editoru, kter� je mo�n� napojit
> na blob text.
> D�kuji.

Ahoj,

tady nejaky editor nabizeji (TWordEdit), ale nic blizsiho o nem nevim:

http://www.dbuilder.chrudim(tec)cz/cz/main.html


Petr Vones, amatersky programator


ISDN v Delphi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.6.1998 18:01:46

Abio International s.r.o. wrote:
>
> Zdravim, mam problem s ISDN V Delphi. Pokousim se pomoc� capi
> ( capi32.dll)
> pristupovat k ISDN karte, hlavne se mi jedna o ozn�meni prichoziho voice
> volani. Potrebuji ziskat cislo prichoziho hovoru. a Nejak mi to nef.
> Nevite nekdo o nejake komponente, pripadne je tu jeste nejaky takovy
> silenec?
>
> Predem dik
>
> Martin Kralicek
> kralicek(zv)czoom(tec)cz

Ahoj,

Neco malo je na DSP:
http://www.cdrom.com/pub/delphi_www/ftp/d10free/dcapi.zip

a potom jeste tady:
http://home.t-online.de/home/Peter.Zwosta/isdn.htm

Petr Vones, amatersky programator


Delphi 4

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.6.1998 20:41:54


>Delphi 4 zav�d� typ LongWord
ze se tim nechlubi na WWW = kvuli tomu se to uz vyplati i koupit :-)
a je to s tim LongWordem o pravdu jisty ?

Zdravi
D. Toman


Ikony na Taskbaru

[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 21.6.1998 20:44:41

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Diky za radu - pomohlo mi to. Pokud se ale pokusim nejaky formular minimalizovat, uz se na nej nedostanu - na taskbaru zustane hlavni formular (taky minimalizovany), ale obnovit nelze. Neresil nekdo podobny problem?

Radek
-----P�vodn� zpr�va-----
Od: Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 21. �ervna 1998 14:54
P�edm�t: RE: Ikony na Taskbaru


Mam SDI aplikaci, kde se nektere moduly spousteji z DLL. Velmi mi vadi, ze se pri zobrazeni jakkehokoli dalsiho formulare (volaneho navzajem z DLL), dialogu atd. (vcetne MessageBox) se na taskbaru vytvori dalsi ikona takze se muze stat, ze pri jedne spustene aplikaci je dole na liste treba 20 ikon. Podobny problem byl udajne v Delphi 1 i u normalnich SDI aplikaci. Domnivam se, ze je to zapriceneno tim, ze se velka cast kodu vola z externiho DLL. Nevite nekdo, jak tento nedostatek odstranit? Mohlo by to odstranit Delphi 4 ?

Uz sem to tu jednou psal :

Tyto problemy vyresis jednoduse - do svy DLL si predas nejakou funkci

hodnotu Application.MainForm.Handle z tvy aplikace a v ty DLL ji priradis do

Application.Handle. Od te chvile maji spolecne hlavni okno a vsechno funguje

jako by byl formular z DLL normalnim formularem v programu.

cili [DLL].Application.Handle := [PROGRAM].Application.MainForm.Handle;



Cau

McLEI

pro pratele PC FANDu ...

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 21.6.1998 22:22:28


Ahoj,

pro byvale priznivce PC FANDu, dnes programujici v Delphi, jsem na
http:\\www.kjsoft(tec)cz\dmf32.htm
zverejnil zdrojove texty objektu pro cteni tabulek a katalogu PC FANDu
spolu s prikladem pouziti. K dispozici jsou metody
First,Next,EOF,FieldByName,... ale neni to potomek TDataSet:(

Milos Skacel


Funkcie

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.6.1998 22:37:25

psoft wrote:
>
> Zdravim vsetkych,

Ahoj,
pokud jsem to spravne pochopil tak si chces definovat nejake
pole funkci ktere pak podle indexu budes volat. Neni z toho jasne
jestli budou mit vsechny funkce stejne parametry a navratovou
hodnotu.

>
> mam malicky problem s funkciami. Potreboval by som cosi take, ako je
> pole funkcii. Napr. mal by som
>
> FN=record of
^^ <- to je asi chyba .....
> Name:String[10];
> Adr :Pointer;
> Typ :?;
> end;
>
> a premennu
> Functions=array[1..100] of FN =(
> (Name:'Cos'; Typ=ftExtended; Adr = ??? ));

Tady by se spise hodila konstanta.

>
> Podla isteho kluca by som doistal index do tohto pola a vratil
> vysledok danej funkcie ...
> Problem je v tom, ze sa mi nijako nedari naplnit premennu Adr, vzdy
> to chce zatvorku pre zoznam argumentov.
>
> Viete mi niekto tu cosi poradit ?
>
> Dakujem.
>

Da se to tedy udelat napriklad takhle:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TMyFunc = function(X, Y: Integer): Integer;

TMyFuncRec = record
Name: String[10];
Adr: Pointer;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function F1(X, Y: Integer): Integer;

function F2(X, Y: Integer): Integer;

var
Form1: TForm1;

const
Functions: array[1..2] of TMyFuncRec =
( (Name: 'F1'; Adr: (zv)F1),
(Name: 'F2'; Adr: (zv)F2)
);

implementation

{$R *.DFM}

function F1(X, Y: Integer): Integer;
begin
Result := X + Y;
end;

function F2(X, Y: Integer): Integer;
begin
Result := X - Y;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( TMyFunc(Functions[1].Adr)(1, 2) ));
end;

end.
-------------------------------------------------------------------

Nebo je jeste jedna moznost, a to ze misto ukladani pointeru na
obecnou funkci, pouzijes primo promennou typu funkce. Pak musi
mit vsechny funkce stejne paramerty a hodnotu.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TMyFunc = function(X, Y: Integer): Integer;

TMyFuncRec = record
Name: String[10];
Func: TMyFunc;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function F1(X, Y: Integer): Integer;

function F2(X, Y: Integer): Integer;

var
Form1: TForm1;

const
Functions: array[1..2] of TMyFuncRec =
( (Name: 'F1'; Func: F1),
(Name: 'F2'; Func: F2)
);

implementation

{$R *.DFM}

function F1(X, Y: Integer): Integer;
begin
Result := X + Y;
end;

function F2(X, Y: Integer): Integer;
begin
Result := X - Y;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( Functions[1].Func(1, 2) ));
end;

end.

Petr Vones, amatersky programator

P.S.
Tohle je sice OFFTOPIC, ale stoji za shlednuti (http://www.dzj(tec)cz) :-))

GIS Engine

[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 21.6.1998 22:38:28

Ahoj Delfini,

setkali jste se nekdo v praxi s nejakym GIS enginem?

Zaciname delat projekt, kde je treba pracovat s mapou (ulice, ...) - zoomovat, vyhled�vat, ... Programujeme v Delphi. Nevite o nejakem prostredku, ktery bychom mohli vyuzivat primo z Delphi kodu? Nejsem si jisty zda neco takoveho existuje. Takze bych uvital i kontakty na nejaky takovy Engin pristupny z jineho jazyka (C++).

Kdyz byste ke svym zkusenostem pripojili kontakt na vyrobce ci prodejce, tak bych Vam byl vdecen.

Diky moc, Ladislav Nagy


Minimalizace

[*] Petr Kandera <p_kandera(zv)usa(tec)net> - 21.6.1998 22:42:07

Ahoj,

na Internetu, uz nevim kde, jsem nasel komponentu TRAYICON, ktera asi by
mohla delat co potrebujes. Das ji na formular a jak aplikaci spustis,
objevi se jeji icona vedle hodin a je i v taskbaru. Po minimalizaci je
pouze u hodin. Ma metody na klik, dvojklik i pop-up menu. Kdyz pri
startu aplikaci zminimalizujes, bude jen vedle hodin. Pokud mas zajem,
poslu Ti ji primo, at to nejde pres konferenci, je to sice jen
4 KB, ale prece. Jinak se daji najit podobne i na DSP nebo Torry.

Petr Kandera
p_kandera(zv)usa.net


svatos(zv)af(tec)czu(tec)cz wrote:
>
> Ahoj Delphinari !!!
>
> Bavili jste se o tom, jak zmizet aplikaci z TaskBaru.
> Nuze, vyskousel jsem vase rady a jsem spokojen.
> Ovsem ...
>
> Predstavte si:
> 1) Aplikace se mi ukaze jen ve treji, dvojitym poklepanim na ikonku
> ji aktivuji (=ukazi patricne okynko)
> 2) pak kliknu na ikonku minimalizace a chci, aby to okynko zase
> zmizelo z TaskBaru
>
> ???? Existuje nejaka zprava ci co ??????
> Prosim pomozte !!!!
>
> Svatos Hynek
> svatos(zv)af(tec)czu(tec)cz


Drag and Drop?

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 21.6.1998 23:25:41

Dne 21.06.1998 17:06:39 Petr Vones napsal:

> Tak jsem se na to dival a po nekolika pokusech jsem dospel k tomuto reseni,
> ale jeste to prozkousej treba to ma nejake dalsi skryte problemy:
To snad neni pravda. Je to fantasticky a parti ti muj velkej obdiv,
protoze ty tu vidis naprosto do vseho. Diky moc.

Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019


Pristupy k databazim

[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 21.6.1998 23:32:59

Ahoj Delphici,

kdyz jsem se tak nedavno zucastnil prezentace database Pervasive.SQL
(byvale Btrieve), tak jsem se dozvedel, ze jsou dva typy pristupu k
databazi (sok ...) - prvni je typicky databazovy soubor, data jsou
ziskavana pres nejaky dotaz - napr clovek hleda jeden zaznam, tak da
select neco from neceho a po chvili (kdyz ma stesti), tak mu to vychrli
i vysledek.

Druhy pristup je tzv. transakcni - je to ta matoda pristupu, kdy ani
neni tak dulezite, aby mu to vydalo jeden zaznam, ale o to, aby uzivatel
mohl bleskove cist/zapisovat konkretni zaznam. Fakt nevim, jak se to
dela, asi ani nejsem schopen to vysvetlit, ale snad jste pochopili, o co
jde.

A otazka : existuje nejaky jiny databazovy server, ktery podporuje
transakcni pristup, nez Pervasive.SQL??

Diky za odpoved, a omlouvam se za ten zmateny popis, snad i vite, o com
mluvim :-)).

Peter
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz


Fonty vo win3.11

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 22.6.1998 06:02:36

> Pricinou zlej tlace mozu byt nainstalovane nie CE fonty.
> Skus odstranit vsetky fonty ktore nie su CE,
> POZOR na systemove fonty, tie neodstranuj. Ked sme toto
> urobili pri nasich aplikaciach, tak vsetko sa tlacilo dobre.
> Tiez sa pozri ci nemas tlaciaren nastavenu na 600 dpi,
> Win 3.11 v tomto rozliseni nevie riadne tlacit diakritiku.
>
> S pozdravom Jaro
> uli&internet.sk

Vdaka za odozvu. Uz sa mi to podarilo vyriesit.
Chyba bola vo mne. Ja som stredoeuropsky font
Arial napisal ako "ArialCE" a nie "Arial CE".
Chodil som okolo toho cely den a nevidel som to.
Mat tak oci.

Ale aj tak dik.

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk

Drag and Drop?

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 22.6.1998 06:32:39

> Ahoj,
>
> Tak jsem se na to dival a po nekolika pokusech jsem dospel k tomuto reseni,
> ale jeste to prozkousej treba to ma nejake dalsi skryte problemy:
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
>
> TKeyDragControlObject = class(TDragControlObject)
> private
> FOldOnMessage: TMessageEvent;
> FCtrlDragCursor: TCursor;
> FDragCursor: TCursor;
.
.
.
> var DragObject: TDragObject);
> begin
> DragObject := TKeyDragControlObject.Create(TControl(Sender),
> crDrag, crCross, crHelp);
> end;
>
>
> end.
>
> Petr Vones, amatersky programator

Pane Boze!!!

Ikony na Taskbaru

[*] V�t�zslav Gazda������u��n�?��? - 22.6.1998 07:39:12

To je zpusobeno tim, ze knihovna i program ma kazdy sve vlastni globalni
promenne. V unite Forms je globalni promenna Application, takze jestlize
pouzivas nejaka okna i v DLL knihovne tak mas vlastne dva rozdilne objekty
Application a kazdy ma sve okno. To okno je to tlacitko na taskbaru. Ja jsem
to vyresil tak, ze jsem si vytvoril v DLL knihovne takovou inicializacni
funkci. Te funkci jako parametr predavam Application.Handle z aplikace a
priradim ho do Application.Handle v knihovne. Pred pouzitim jakekoliv funkce
z knihovny volam tu inicializacni funkci.

DLL.Application.Handle := EXE.Application.Handle

Vita


Ikony na Taskbaru

[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 22.6.1998 08:04:17

Pouzivam take DLL, ktere jsou volany z hlavniho programu. Vse funguje OK.
Hlavni program i DLL ale kompiluji s volbou Build with Runtime Packages.
Takto si DLL najde spravnou aplikaci a pri volani metody
Application.CreateForm v DLL se formular priradi k aplikaci hlavniho modulu
(promenne jsou zdileny pomoci DPL).

S pozdravem,

Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216

-----Pyvodnm zprava-----
Od: Radek Soucek <rsoucek(zv)email(tec)cz>
Komu: DELPHI Distribution List <(zv)p53f01.chv.pvt(tec)cz:delphi(zv)pinknet(tec)cz>
Datum: 20. hervna 1998 12:04
Pxedmlt: Ikony na Taskbaru


Mam SDI aplikaci, kde se nektere moduly spousteji z DLL. Velmi mi vadi, ze
se pri zobrazeni jakkehokoli dalsiho formulare (volaneho navzajem z DLL),
dialogu atd. (vcetne MessageBox) se na taskbaru vytvori dalsi ikona takze se
muze stat, ze pri jedne spustene aplikaci je dole na liste treba 20 ikon.
Podobny problem byl udajne v Delphi 1 i u normalnich SDI aplikaci. Domnivam
se, ze je to zapriceneno tim, ze se velka cast kodu vola z externiho DLL.
Nevite nekdo, jak tento nedostatek odstranit? Mohlo by to odstranit Delphi 4
?

Diky. Radek

Delphi 4

[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 22.6.1998 08:26:54

On Sunday, June 21, 1998 8:42 PM, Dalibor Toman [SMTP:dtoman(zv)fortech(tec)cz]
wrote:
> ze se tim nechlubi na WWW = kvuli tomu se to uz vyplati i koupit
Chlubi - uz je na www.borland(tec)cz seznam novinek vcetne toho LongWord...

Tomas


GIS Engine

[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 22.6.1998 08:28:02

Jeden cas jsem delal na GIS projektech a tyhle interfacy na mapy nabizi
skoro kazda GIS firma - pro ArcView, MapInfo, ..... Vetsinou je to ve
forme nejakych VBX/OCX a priprav se na to, ze je to pekne mastna
zalezitost :

MapObjects pro MapInfo staly cca 100.000 a ArcView na tom bylo snad
jeste hur.

Mozna ceny od te doby klesly, ale nevim, nevim, ...

-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------

> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy
> Odesl�no: 21. �ervna 1998 22:38
> Komu: DELPHI Distribution List
> P�edm�t: GIS Engine
>
> Ahoj Delfini,
>
> setkali jste se nekdo v praxi s nejakym GIS enginem?
>
> Zaciname delat projekt, kde je treba pracovat s mapou (ulice, ...) -
> zoomovat, vyhled�vat, ... Programujeme v Delphi. Nevite o nejakem
> prostredku, ktery bychom mohli vyuzivat primo z Delphi kodu? Nejsem
> si jisty zda neco takoveho existuje. Takze bych uvital i kontakty
> na nejaky takovy Engin pristupny z jineho jazyka (C++).
>
> Kdyz byste ke svym zkusenostem pripojili kontakt na vyrobce ci
> prodejce, tak bych Vam byl vdecen.
>
> Diky moc, Ladislav Nagy


Shut down...

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.6.1998 08:44:57

Richard Willmann wrote:

> A pokial by este niekto mohol, ako odchytim spravu win v delphi?
>
> > tak zkus nekdy odchytit help k WIN32:
> >
> > WM_QUERYENDSESSION
> > nSource = (UINT) wParam; /* source of end-session request */

MujForm=class(TForm)
...
procedure QueryEndSession(var Msg:TMessage);
message WM_QUERYENDSESSION;
...

procedure MujForm.QueryEndSession(var Msg:TMessage);
begin
if Msg.wParam=... a zde si musis podle helpu dohledat, co se ti to
sem vraci
end;

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Delphi 4

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.1998 09:27:48

>> ze se tim nechlubi na WWW = kvuli tomu se to uz vyplati i koupit
>Chlubi - uz je na www.borland(tec)cz seznam novinek vcetne toho LongWord...


tam je uvedeno, ze podporuje 64-bitove cele cislo (coz podle me zdaleka
neznamena ze je to LongWord), www.Inprise.com uvadi 64 bit Integer,
takze spis zase jen dlouhy Integer...

Zdravi
D. Toman

Tisk na jehlickovych tiskarnach

[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 22.6.1998 09:43:19

Moc diky vsem za vsechny rady a napady. Vyzkousime, proverime ;)

Jeste jednou diky...

Martin Kubecka


Pretypovani Double -> Byte

[*] Petr Brant <pbrant(zv)softhome(tec)net> - 22.6.1998 09:45:13

Nejsem v Delphi prilis zbehly, proto bude muj dotaz asi velmi lehce
zodpoveditelny:

Pouzivam komponentu, jejiz vystupni hodnota je Double a ta se ma pouzit pro
jinou komponentu, jejiz vstupni hodnota je Byte. Pritom je zajisteno, aby
ta hodnota Double neprekrocila meze typu Byte. Jak lze z Double udelat Byte
? Diky za kazdou radu.

S pozdravem

Petr Brant

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************

Ovl�d�n� LPT portu

[*] Novak Josef <jnovak(zv)anect(tec)cz> - 22.6.1998 10:28:49

Zdrav�m v�echny !!!
Nev� te n�kdo o komponent� do D3 pro ovl�d�n� LPT portu?
Jedn� se mi o ovl�d�n� jednotliv�ch linek portu.
N�co jako pro ovl�d�n� s�riov�ho portu pomoc� komponenty TCommPortDriver.
(Je to pro m� �ivotn� dule�it� !!!)
D�kuji !

Nov�k Josef
e-mail: jnovak(zv)anect(tec)cz


Pretypovani Double -> Byte

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.1998 11:06:00

>Nejsem v Delphi prilis zbehly, proto bude muj dotaz asi velmi lehce
>zodpoveditelny:
>
>Pouzivam komponentu, jejiz vystupni hodnota je Double a ta se ma pouzit
pro
>jinou komponentu, jejiz vstupni hodnota je Byte. Pritom je zajisteno,
aby
>ta hodnota Double neprekrocila meze typu Byte. Jak lze z Double udelat
Byte
>? Diky za kazdou radu.
>

try
B := Byte(Round(D));
except
....
end;


Zdravi
D. Toman

Funkcie

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.6.1998 11:56:43

Petr Vones wrote:

Jestli jsem to spravne pochopil ja, tak to by mohlo vyresit
pretezovani metod, ktere by uz (konecne!) melo byt v Delphi 4.

> pokud jsem to spravne pochopil tak si chces definovat nejake
> pole funkci ktere pak podle indexu budes volat. Neni z toho jasne
> jestli budou mit vsechny funkce stejne parametry a navratovou
> hodnotu.
>
> > mam malicky problem s funkciami. Potreboval by som cosi take, ako je
> > pole funkcii. Napr. mal by som
> >
> > FN=record of
> ^^ <- to je asi chyba .....
> > Name:String[10];
> > Adr :Pointer;
> > Typ :?;
> > end;
> >
> > a premennu
> > Functions=array[1..100] of FN =(
> > (Name:'Cos'; Typ=ftExtended; Adr = ??? ));

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Pretypovani Double -> Byte

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 22.6.1998 12:08:26

> Nejsem v Delphi prilis zbehly, proto bude muj dotaz asi velmi lehce
> zodpoveditelny:
>
> Pouzivam komponentu, jejiz vystupni hodnota je Double a ta se ma pouzit pro
> jinou komponentu, jejiz vstupni hodnota je Byte. Pritom je zajisteno, aby
> ta hodnota Double neprekrocila meze typu Byte. Jak lze z Double udelat Byte
> ? Diky za kazdou radu.

Napriklad funkciou TRUNC.

b:=trunc(d); // d:double; b:byte;

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk

ctrl+esc, alt+tab

[*] David Hrb�� - 22.6.1998 12:49:22

Potreboval bych zakazat kombinaci techto klaves ctrl+esc, alt+tab, melo by
to jit pomoci

SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, Nil, 0)

ale v NT 4.0 WKS CZ mi to nefunguje, nevite nekdo jak to vyresit?

Diky,
David

GIS

[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.6.1998 12:50:33

Haj hou!

GIS komponent (8-layer bitmap, vektory atd) je k nalezeni
http://www.torry.ru/misc3.htm

HTH

UDF example

[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 22.6.1998 13:05:35

O prechodu z NT na Linux zatim moc informaci nemame (delam to s kolegou, ja
se staram o IB a on o Linux). Problem byl s UDF a ten jsme vyresili (tam byl
problem s registraci knihovny). Jinak se doporucuje aby se pri prechodu
neprenasel GDB soubor, ale provedl se backup a ten se na Linuxu
naimportoval. To je vse co se tyka databaze. Na Linuxu je treba spravne
nakonfigurovat sit, atd. , ale to neni problem IB samotne to je vec OS. V NT
se toho moc konfigurovat neda. Na Linuxu bohudik mnoho. Dnes vecer budeme NT
menit za Linux takze mohu poreferovat.

-----P�vodn� zpr�va-----
Od: Radek URBANCZYK <urbanczyk(zv)nam(tec)cz>
Komu: 'chaloupka(zv)mboxzn(tec)cz' <chaloupka(zv)mboxzn(tec)cz>
Datum: 18. �ervna 1998 8:38
P�edm�t: UDF example


>Prosim o zaslani linuxove UDF.
>Jinak bych Vam byl vdecny, pokud byste mi zaslal informace (prip. odkazy) o
vsem co je spojene
>s prechodem na linuxovy InterBase(nyni jede na NT). Tento pozadavek jsem
take adresoval do konference, ovsem bez vysledku.
>
>Predem dekuji
> Radek Urbanczyk, urbanczyk(zv)nam(tec)cz.
>
>

Pretypovani Double -> Byte

[*] Lubo Fule <fule(zv)sct.sk> - 22.6.1998 13:25:04

Jednoduchym pretypovanim to nepojde, pretoze double nie je ordinalny typ.
Je potrebne pozit niektoru funkciu, ktora z double urobi cele cislo napr.:

d:=8.9;

b:=round(d); // b = 9

alebo

b:=trunc(d); // b = 8


-----Original Message-----
From: Petr Brant [mailto:pbrant(zv)softhome.net]
Sent: Monday, June 22, 1998 9:45 AM
To: 'Konference Delphi'
Subject: Pretypovani Double -> Byte


Nejsem v Delphi prilis zbehly, proto bude muj dotaz asi velmi lehce
zodpoveditelny:

Pouzivam komponentu, jejiz vystupni hodnota je Double a ta se ma pouzit pro
jinou komponentu, jejiz vstupni hodnota je Byte. Pritom je zajisteno, aby
ta hodnota Double neprekrocila meze typu Byte. Jak lze z Double udelat Byte
? Diky za kazdou radu.

S pozdravem

Petr Brant

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************

Minimalizace

[*] Rene Wagner <rxw(zv)post(tec)cz> - 22.6.1998 13:37:22

>Predstavte si:
>1) Aplikace se mi ukaze jen ve treji, dvojitym poklepanim na ikonku
>ji aktivuji (=ukazi patricne okynko)
>2) pak kliknu na ikonku minimalizace a chci, aby to okynko zase
>zmizelo z TaskBaru


Zkuste pouzit knihovnu RxLib. Obsahuje komponentu TRxTrayIcon a TAppEvents.
Vyuziti te prvni je jasne a pomoci druhe obslouzite akci "Minimalize" -
staci
pouze prepsat udalost "onMinimize" teto komponenty.

Rene Wagner
rwagner(zv)opv(tec)czn(tec)cz
www.mujweb(tec)cz/www/bez_penez

Pristupy k databazim

[*] Lubo Fule <fule(zv)sct.sk> - 22.6.1998 13:38:33

Nie som si isty, ci som celkom spravne pochopil, o co Ti ide.
Pod pojmom transakcia ja osobne chapem postupnost urcitych operacii nad
databazou. Tuto postupnost je mozne po jej ukonceni bud potvrdit (tzv.
COMMIT) alebo vratit databazu do stavu v akom bola pred zacatim vykonavania
danej postupnosti (tzv. ROLLBACK). Napriklad, urobim viac zapisov do roznych
tabuliek, ktore navzajom suvisia a v pripade , ze sa niektory nepodaril,
chcem vsetko vratit do povodneho stavu. Robi sa to tak, ze pred zapisovanim
sa nastartuje transakcia, v pripade, ze pocas zapisovania do niektorej
tabulky dojde ku chybe, tak sa urobi ROLLBACK (databaza sa uvedie do takeho
stavu v akom bola v okamihu, ked sa nastartovala transakcia a transakcia sa
ukonci) a ak "zbehli" vsetky zapisi OK, tak sa urobi COMMIT cim sa zmeny
potvrdia a transakcia sa ukonci.

Taketo spracovania transakcii umoznuje kazdy SQL server (aspon by mal).

-----Original Message-----
From: Peter Rus [mailto:peterrus(zv)intesys(tec)cz]
Sent: Sunday, June 21, 1998 11:33 PM
To: DELPHI Distribution List
Subject: Pristupy k databazim


Ahoj Delphici,

kdyz jsem se tak nedavno zucastnil prezentace database Pervasive.SQL
(byvale Btrieve), tak jsem se dozvedel, ze jsou dva typy pristupu k
databazi (sok ...) - prvni je typicky databazovy soubor, data jsou
ziskavana pres nejaky dotaz - napr clovek hleda jeden zaznam, tak da
select neco from neceho a po chvili (kdyz ma stesti), tak mu to vychrli
i vysledek.

Druhy pristup je tzv. transakcni - je to ta matoda pristupu, kdy ani
neni tak dulezite, aby mu to vydalo jeden zaznam, ale o to, aby uzivatel
mohl bleskove cist/zapisovat konkretni zaznam. Fakt nevim, jak se to
dela, asi ani nejsem schopen to vysvetlit, ale snad jste pochopili, o co
jde.

A otazka : existuje nejaky jiny databazovy server, ktery podporuje
transakcni pristup, nez Pervasive.SQL??

Diky za odpoved, a omlouvam se za ten zmateny popis, snad i vite, o com
mluvim :-)).

Peter
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz


OnMouseOver

[*] sula milos <crkstrobe(zv)geocities(tec)com> - 22.6.1998 14:30:49

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Prosim vas nevi nekdo jak si vytvorim vlastni OnMouseOver event ? Mam na mysli zda neposila windows nejakou message do okna pri nastaveni ukazatele mysi na dany objekt.

Pretypovani Double -> Byte

[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 22.6.1998 14:36:30

On Monday, June 22, 1998 9:45 AM, Petr Brant [SMTP:pbrant(zv)softhome.net]
wrote:
> ta hodnota Double neprekrocila meze typu Byte. Jak lze z Double
> udelat Byte
Double patri mezi real typy...
Pouzij tudiz Trunc...

Tomas


Unita pro adapi

[*] jan.pruha(zv)matsushita(tec)cz (Jan Pruha) - 22.6.1998 15:11:56 jst


Zdravim,

Mame v praci merici kartu kompatibilni s kartami ADVANTECH. Je k ni
knihovna "adapi.dll". Chtel bych se zeptat, zdali nekdo nema napsanou
unitu s interfacem pro tuhle dll. Podle toho co jsem videl tak je
univerzalni pro spoustu mericich karet. Je to spousta mechanicke prace
a ja nerad delam udelane. Dekuji za namety.

Honza

jan.pruha(zv)matsushita(tec)cz


IPX/SPX

[*] Dan Rulicek <daniel.r(zv)avizo(tec)cz> - 22.6.1998 15:52:06

Zdravim Vas vsechny ve spolek,
nevite nekdo o nejake komponente nebo unite pro praci s protokolem IPX/SPX


Diky
Dan


QuickReport a Delphi 1.02

[*] tomas.mazurek(zv)vitkovice(tec)cz - 22.6.1998 16:10:42

Hello,

nemate nekdo prehled o tom, jaka je posledni verze QuickReportu 1.0
pro Delphi 1.02. My jsme zakoupili verzi 1.0d. Z webovske stranky
QUSOFTUu neni jasne, jak bychom meli dostat nejaky update... Pouziva
vubec nekdo QuickReport pro 16ti-bitova Delphi?

tomas.mazurek(zv)vitkovice(tec)cz


hledani v tabulce TTable.Locate

[*] Milevsk� software <milesoft(zv)ns.mi.cesnet(tec)cz> - 22.6.1998 17:01:26

Zacinam s programovanim v Delphi a narazil jsem
na problem. Pri prohledavani tabulky metodou
TTable.Locate se vzdy presunu pouze na prvni
vyhovujici zaznam a na dalsi uz ne. Jak zkratka
zaridit, aby vyhledavani probihalo od bezneho
zaznamu a ne vzdy od zacatku souboru?


Zdenek Haringer
milesoft(zv)mi.cesnet(tec)cz


pro pratele PC FANDu ...

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.6.1998 17:17:09

psoft wro>
> > pro byvale priznivce PC FANDu, dnes programujici v Delphi, jsem na
> > http:\\www.kjsoft(tec)cz\dmf32.htm
> > zverejnil zdrojove texty objektu pro cteni tabulek a katalogu PC FANDu
> > spolu s prikladem pouziti. K dispozici jsou metody
> > First,Next,EOF,FieldByName,... ale neni to potomek TDataSet:(
^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Ahoj,

neznam jake fuknce podporuje PC FAND, ale jako potomek TDataSet by
to melo jit udelat bez vetsich potizi. Jestli chces, mohu ti poslat
muj pokus o jakysi jednoduchy vlastni DataSet. Jsou tam i odkazy na
clanky z Internetu, na jejichz zaklade jsem to delal.

Petr Vones, amatersky programator

RichEdit a OLE

[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 22.6.1998 17:19:17

Kde se tohle da stahnout, prosim?

Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/

> -----P�vodn� zpr�va-----
........
> ....komponenta RichEditWithOLE od "Matej Trampus"........

> ....... Zdenek.Rehor(zv)vabo(tec)cz


Volne systemove prostredky

[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 22.6.1998 17:20:21

Ahoj!
Bohuzel nepomohu, jen se pridam k zadosti.
I ja bych to velmi ocenil. Me to sice obcas nahlasi relativne rozumnou hlasku
"Out of system resources", ale nic to nemeni na tom, ze to nezjistim
programove.
Ja bych si pak mohl jeste nejake zdroje uvolnit, kdybych to zjistil.

Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/

> -----P�vodn� zpr�va-----
> Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
> Ahoj vespolek,
>
> prosim o radu ohledne zjisteni, kolik zbyva volnych systemovych
> prostredku (System resources).
> Vytvarim v aplikaci za behu StringGridy s vysledky analyz. Pokud
> uzivatel zada "mastne" zadani, tak to pri vytvareni SGridu spadne ...
> selze vnitrni volani API fce. Myslim, ze WIN95 dojdou handly. Spadne to
> dost blbym zpusobem, a to ze cele Window$y. Tech SGridu muze byt az
> tisice (zalezi na uzivatelove zadani).
> Chtel bych treba pred kazdym 10. SGridem testnout nejake systemove
> prostredky, a v pripade kritickeho stavu akci stopnout, uklidit a
> vynadat uzivateli.
> Nejake API uz jsem zkousel, ale nic z toho nebylo (leda smrt W95).
>
> Diky za rady a porady.
>
> --
> Stepan "Chaosz" Cerny
> chaosz(zv)geocities.com


Zmena velikosti fontu pred tiskem RichEditu

[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 22.6.1998 17:20:39

Elegantne to resit neumim, ale pokud ti vadi probliknuti, tak si udelej dalsi
neviditelny RichEdit a pres ten to propasiruj ( a z toho to vytiskni)
(nejrychlejsi prenos vseho mezi nima je pres stream).

Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/

> -----P�vodn� zpr�va-----
> Od: Martin Fr�hlich [SMTP:unites(zv)telecom(tec)cz]
> Odesl�no: 18. �ervna 1998 16:34
> Komu: Konference Delphi
> P�edm�t: Zmena velikosti fontu pred tiskem RichEditu
>
> Zdravim Delfiny
>
> chtel bych se zeptal, zda jde zmenit velikost fontu RichEditu pro tisk.
> Priklad: mam v RichEditu ulozeny text o velikosti 8 a vytisknout ho chci
> aby mel velikost 10.
>
> Prisel jsem na toto:
>
> form1.RichEdit1.SelectAll;
> form1.RichEdit1.SelAttributes.Size:=10;
> form1.RichEdit1.Print('');
> form1.RichEdit1.SelectAll;
> form1.RichEdit1.SelAttributes.Size:=8;
>
> ale ma to jeden maly problem. Text problikne ve zmene velikosti a je to
> bohuzel moc videt. Jak neco takoveho udelat aby to videt nebylo?
>
> Dekuji za kazdou, alespon trochu uzitecnou radu.
>
> Martin Frohlich
> Unites
> --------------
> E-mail: unites(zv)telecom(tec)cz
>

Ovl�d�n� LPT portu

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.1998 17:53:08

>Zdrav�m v�echny !!!
>Nev� te n�kdo o komponent� do D3 pro ovl�d�n� LPT portu?
>Jedn� se mi o ovl�d�n� jednotliv�ch linek portu.
>N�co jako pro ovl�d�n� s�riov�ho portu pomoc� komponenty
TCommPortDriver.
>(Je to pro m� �ivotn� dule�it� !!!)


v 95kach muzes pouzit instrukce assembleru IN/OUT v NT musis mit driver
ktery porty zpristupni - cirou nahodou jsem dnes narazil na shareware,
ktery se chlubi tim, ze to umi
(http://www.winsite.com/info/pc/winnt/programr/tinypo20.zip/) zatim jsem
to nezkousel, takze nemuzu rici, ze je to to prave orechove. V kazdym
pade, NTcka te k portum lacino nepusti...


Zdravi
D. Toman

OnMouseOver

[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.6.1998 18:02:17

> Prosim vas nevi nekdo jak si vytvorim vlastni OnMouseOver event ? Mam na =
> mysli zda neposila windows nejakou message do okna pri nastaveni =
> ukazatele mysi na dany objekt.
>


Posilam ti neco z dilny velkeho maga Petra Vonese. Ja mel podobny
problem s PaintBoxem, ale potreboval jsem nejen vstup mysi do oblasti
objektu ale i vystup, ale to ti snad vadit nebude.
Cau Pavel


type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
procedure PaintBox1Paint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
inherited;
if Pointer(Msg.lParam) = PaintBox1 then
PaintBox1.Color := clRed;
end;

procedure TForm1.CMMouseLeave(var Msg: TMessage);
begin
inherited;
if Pointer(Msg.lParam) = PaintBox1 then
PaintBox1.Color := clGreen;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1 do
begin
Canvas.Brush.Color := Color;
Canvas.FillRect(ClientRect);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.Color := clGreen;
end;

RichEdit a OLE

[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 22.6.1998 18:51:54

Trebas na DSP
http://sunsite.icm.edu.pl/delphi/ftp/d20free/myole91.zip

Radek

-----P�vodn� zpr�va-----
Od: Greissler Ronald <greissler(zv)cbnet(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 22. �ervna 1998 18:19
P�edm�t: RichEdit a OLE


>Kde se tohle da stahnout, prosim?
>
>Rony
>/*********************/
>GREISSLER(zv)CBNET.CZ
>Prerov
>/*********************/
>
>> -----P�vodn� zpr�va-----
>........
>> ....komponenta RichEditWithOLE od "Matej Trampus"........
>
>> ....... Zdenek.Rehor(zv)vabo(tec)cz


Ukladani vlastnosti objektu

[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.6.1998 19:22:53

Ahoj vsem!
Navite prosim nekdo jak by se daly ulozit do souboru vlastnosti
objektu? Pokud to tedy vubec jde.
Konkretne bych potreboval ulozit nastaveni fontu.

Mam na mysli neco takoveho jako napr:

var F: file;
Font1: TFont
begin
AssignFile(F, Name);
Rewrite(F, 1);
BlockWrite(Font1, SizeOf(Font1));
CloseFile(F);
end;

Ale aby to ulozilo ne ukazatel na promennou ale jeji celou struktura
aniz bych to musel delat polozku po polozce.
Proste neco podobneho jak se to da udelat pres syntaxi Promenna^.

Dekuji za kazddou radu, Pavel.

-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------


Ovl�d�n� LPT portu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.6.1998 19:33:48

Novak Josef wrote:
>
> Zdrav�m v�echny !!!
> Nev� te n�kdo o komponent� do D3 pro ovl�d�n� LPT portu?
> Jedn� se mi o ovl�d�n� jednotliv�ch linek portu.
> N�co jako pro ovl�d�n� s�riov�ho portu pomoc� komponenty TCommPortDriver.
> (Je to pro m� �ivotn� dule�it� !!!)
> D�kuji !
>
> Nov�k Josef

Ahoj,

tohle je problem stary jako Windows 95 sami. Komunikace po seriovem portu
neni problem, na to jsou primo API funkce vcetne moznosti nastavovani
stavu jednotlivych vystupu RTS a DTR. Jenze M$ se rozhodl ze paralelni
port bude asi jen na tiskarnu, takze tam takova moznost pravdepodobne neni.
Pritom by stacilo napr. otevrit LPT.VXD a nejak (treba pomoci DeviceIoControl)
provadet nastavovani jednotlivych signalu. Je mozne ze to jde, ale ja nemam
moc pristup k zadnemu SDK/DDK takze pokud by nekdo neco takoveho nasel, nebo
to vyvratil jako naprostou blbost byl bych mu velmi vdecen. Napriklad aplikace
"Prime propojeni kabelem" take komunikuje pomoci paralelniho portu.

Druha moznost je zkusit se poptat nekoho kdo pracuje s C++ Builderem 3, tam
je uz pry mozne psat VxD drivery. Treba uz tam neco podobneho bude jako priklad.

A treti je komponenta TVicPort (bude asi na http://www.torry.ru) ktera obsahuje
VxD a Kernel driver ktery umoznuje pristup k I/O portum, neni samozrejme zadarmo. Petr Vones, amatersky programator

Funkcie

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.6.1998 20:05:04

Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> Jestli jsem to spravne pochopil ja, tak to by mohlo vyresit
> pretezovani metod, ktere by uz (konecne!) melo byt v Delphi 4.

Ano, to me prislo jako jedna z nejzajimavejsich novinek. Nicmene
v dohledne dobe nevypada ze by mi D4 v praci vubec nekdy zakoupili
(nebo existuje nejaka demo verze ?), takze bych byl rad kdyby zde
nekdo mohl uvest nejake konkretjsi informace (ci odkaz). Zatim jsem
jich moc nenasel. Take by me zajimalo jestli kompilator D4 nabizi
nejake volnejsi implicitni pretypovani, napr. jako :

var
I: Integer;
B: Boolean;
begin
A := 1;
I := A; // misto I := Boolean(A);


Dekuji.

Petr Vones, amatersky programator


Pristup na disketu v Delphi2

[*] Dano <dano(zv)dodo.sk> - 22.6.1998 20:36:10

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Ako mam napisat proceduru ktora pouziva priamy pristup na disketu cez INT 13 ?

v 16b delphi to ide bez problemov ale v 32b sa to sekne.

Viem ze sa da vynutit priamy pristup asi cez DPMI ale ako to neviem ...

{DANO}

Funkcie

[*] psoft <psoft(zv)kosice.telecom.sk> - 22.6.1998 21:40:39

Zdravim vsetkych,

mam malicky problem s funkciami. Potreboval by som cosi take, ako je
pole funkcii. Napr. mal by som

FN=record of
Name:String[10];
Adr :Pointer;
Typ :?;
end;

a premennu
Functions=array[1..100] of FN =(
(Name:'Cos'; Typ=ftExtended; Adr = ??? ));

Podla isteho kluca by som doistal index do tohto pola a vratil
vysledok danej funkcie ...
Problem je v tom, ze sa mi nijako nedari naplnit premennu Adr, vzdy
to chce zatvorku pre zoznam argumentov.

Viete mi niekto tu cosi poradit ?

Dakujem.

> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
>

Funkcie

[*] psoft <psoft(zv)kosice.telecom.sk> - 23.6.1998 06:22:52

>
> Ahoj,
> pokud jsem to spravne pochopil tak si chces definovat nejake
> pole funkci ktere pak podle indexu budes volat. Neni z toho jasne
> jestli budou mit vsechny funkce stejne parametry a navratovou
> hodnotu.

Ano, je to tak. Parametre mozu mat funkcie rozne, napr. mozu tam byt
vsetky funkcie z unitu SysUtils alebo Math.

Chcem to pouzit pre parser, kde sa chcem vyhnut jednej obrovskej
funkcii s milion if a else. Navyse to chcem pouzit aj na ine
spracovania.

> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
>

pro pratele PC FANDu ...

[*] psoft <psoft(zv)kosice.telecom.sk> - 23.6.1998 06:27:20

> pro byvale priznivce PC FANDu, dnes programujici v Delphi, jsem na
> http:\\www.kjsoft(tec)cz\dmf32.htm
> zverejnil zdrojove texty objektu pro cteni tabulek a katalogu PC FANDu
> spolu s prikladem pouziti. K dispozici jsou metody
> First,Next,EOF,FieldByName,... ale neni to potomek TDataSet:(

No, existuju este aj ludia, co robia zatial v oboch jazykoch ... pre
Dos je Fand cosi ako Delphi pre Windows ...aspon pre mna.
Dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
>

ovladani modemu

[*] milanf(zv)post(tec)cz - 23.6.1998 08:21:22


Zdravim vsechny nadsence,
mam D2 koupil jsem si modem a chci ho softwarove propojit po tel.lince a komunikovat nikdy jsem to nedelal kde mam zacit a nevite o nejake komponente.
dik
Milan Fiedler
MilanF(zv)post(tec)cz


nastaveni language BDE

[*] milanf(zv)post(tec)cz - 23.6.1998 08:26:45

Zdravim vsechny
jak nastavim za behu programu LanguageTable v BDE za behu programu
dik za kazdou radu
Milan Fiedler
MilanF(zv)post(tec)cz

Pruhledny form

[*] Tomas Bobek <tbobek(zv)ciglersw(tec)cz> - 23.6.1998 08:33:58

Nazdar vsichni,

chtel bych napsat jednu zvracenost, ale netusim vubec, jestli to pujde.
Potreboval bych, aby si okno me aplikace bylo schopno zjistit, co je
vykreslene pod nim a udelat pruhledny form. Jako kdybyste polozili
tabulku skla na obrazovku a psali na ni fixem.

Pruhledna aplikace bez ramecku, na ktere by bylo umisteno par komponent
a ja do toho mohl kreslit. Pokud se zmeni obsah toho, co je pod oknem
(napriklad bezici AVI z uplne jine aplikace :-) je potreba to
refreshovat. Najde se nejaky machr, ktery by vedel jak na to? Diky.

Tomas Bobek.

Ovl�d�n� LPT portu

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.6.1998 08:51:31

> tohle je problem stary jako Windows 95 sami. Komunikace po seriovem portu
> neni problem, na to jsou primo API funkce vcetne moznosti nastavovani
> stavu jednotlivych vystupu RTS a DTR. Jenze M$ se rozhodl ze paralelni
> port bude asi jen na tiskarnu, takze tam takova moznost pravdepodobne neni.
> Pritom by stacilo napr. otevrit LPT.VXD a nejak (treba pomoci DeviceIoControl)
> provadet nastavovani jednotlivych signalu. Je mozne ze to jde, ale ja nemam
> moc pristup k zadnemu SDK/DDK takze pokud by nekdo neco takoveho nasel, nebo
> to vyvratil jako naprostou blbost byl bych mu velmi vdecen. Napriklad aplikace
> "Prime propojeni kabelem" take komunikuje pomoci paralelniho portu.

Port Contention

A VxD must use the VCOMM contention services (VCOMM_Get_Contention_Handler, ACQUIRE_RESOURCE,
RELEASE_RESOURCE, and so on) to coexist properly with other drivers in the system that write to
parallel ports (for example, LPT.VXD for printing and LPTENUM.VXD for enumeration).

This section describes services for managing contention for COM ports, LPT ports, and other VCOMM
devices by VxDs and VMs. This section also explains how multiple VxD device drivers can
simultaneously access dongles and other passthrough devices attached to a parallel port.

A VCOMM resource is any device that has a VCOMM driver installed (for example, COM1 and LPT1). A
VCOMM resource is also any device for which VCOMM is the device loader.

A contention handler is the VxD that provides acquiring and releasing services for a VCOMM resource.


The INF file for a VCOMM device driver specifies the name of its contention handler VxD. For COM
ports, this is *VCD, and for LPT ports, this is *VPD. If no contention handler is specified for a
device, VCOMM is used by default.

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Emulace COM portu

[*] pedskola <pedskolakv(zv)mbox.vol(tec)cz> - 23.6.1998 09:04:26

Potreboval bych poradit, delam pro jednu hernu program, kterej by mel umet
emulovat spojeni seriovim kabelem po IPXsovy siti,kvuli hram,
nejlepe pod DOSem(ASM,C,...),ale staci to i v Delphi.

Jestli je na to nejakej rezidentak, tak me upozornete.

Za kazdou radu budu velice vdecny, diky Sopak

PS: prosim nejakou dobrou dusi jestli mi neposle podrobny popis COM portu a
IPXsovych siti
posilejte na sopakkv(zv)usa.net nebo pedskolakv(zv)mbox.vol(tec)cz Diky

ovladani modemu

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.6.1998 09:28:13

> mam D2 koupil jsem si modem a chci ho softwarove propojit po tel.lince a komunikovat nikdy jsem to
> nedelal kde mam zacit a nevite o nejake komponente. dik Milan Fiedler MilanF(zv)post(tec)cz

Async Professional, ale je to komercni produkt... Ty chces
ale zrejme neco free, je to tak?

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 23.6.1998 09:28:57

Chtel bych se zeptat, nema-li nekdo zkusenosti s chybovym hlasenim
Project MujProject raised exception class EAccessViolation at adress ....
in module IDPDX32.DLL. Read of adress FFFF FFFF. Process stopped.....

Vyhazuje to pri listovani v DBGridu (casteji se to stava pri listovani
pomoci klavesnice), k jehoz DataSource.DataSetu je napojeny jiny DBGrid s
podrizenou tabulkou (klasicky jednoduchy master/detail). Vyhazuje se to
pravidelne, ale ne na stejnym miste. Je to hlaseni neodbytne, kdyz se ukaze
jednou, tak si neda rict a otravuje pri kazdem kroku programu, tj. jedina
pomoc je zruseni programu.
Kdyz jsem pouzival v detailu OnCalcFields, byla cesta k hlasce rychlejsi,
ted jsou tam Lookup polozky a "vydrzi" to tak o dva PageDowny vic.
Problem je v tom, ze nedokazu zjisti, jestli je to chyba v mem programu
nebo v BDE, nebo v necem jinem.

Pouzivam Delphi 3.01 Prof, Update na 3.02, BDE hlasi verzi 4.01 z Delphi,
do systemu doinstalovany i Corel Paradox 8.

Za kazdou pomoc budu velice vdacny.

Juraj.Nagy(zv)nh-trans(tec)cz


Pokladni panely

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 23.6.1998 09:30:53

Ahojda,

jeden muj znamy/zakaznik si koupil panel k pokladne (takovej 2radkovej,
jako maj v obchodacich), a chce napsat softik, ktery tam bude vypisovat
texty. To neni problem, jenze k tomu panelu nemam
ZADNOU DOKUMENTACI !!!
Pokud jste nekdo s temito panely pracoval ... prosim POMOC !
PS: Je to typ Gigatek - DSP800, pripojen na Com2.

Cago Belo Programatori
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com

QuickReport a Delphi 1.02

[*] Vesna <veselyt(zv)sagas(tec)cz> - 23.6.1998 09:44:01

Posledni verze je 2.0K. Nevim, jak jste objednavali QuickReport, ale asi po
inetu. QuSoft Vam poslal heslo pro volne upgrady, ktere jsou na jejich
strance stazitelne (www.qusoft.com ). V pripade problemu mailuj
sales(zv)qusoft.com.

S pozdravem

Vesna

-----P�vodn� zpr�va-----
Od: tomas.mazurek(zv)vitkovice(tec)cz <tomas.mazurek(zv)vitkovice(tec)cz>
Komu: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Datum: 22. �ervna 1998 17:33
P�edm�t: QuickReport a Delphi 1.02


Hello,

nemate nekdo prehled o tom, jaka je posledni verze QuickReportu 1.0
pro Delphi 1.02. My jsme zakoupili verzi 1.0d. Z webovske stranky
QUSOFTUu neni jasne, jak bychom meli dostat nejaky update... Pouziva
vubec nekdo QuickReport pro 16ti-bitova Delphi?

tomas.mazurek(zv)vitkovice(tec)cz

Ukladani vlastnosti objektu

[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 23.6.1998 09:48:17

Myslim, ze najjednoduchsie je to pomocou procedury WriteComponentResFile
(unit Classes), ktora ulozi do suboru vsetky published vlastnosti tvojho
potomka TComponent (tak ako sa ukladaju aj .dfm subory).

procedure WriteComponentResFile(const FileName: string; Instance:
TComponent);

Ondrej Kelle
kelleon(zv)nnsk.sk

> -----Original Message-----
> From: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
> Sent: Monday, June 22, 1998 9:23 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: Ukladani vlastnosti objektu
>
> Ahoj vsem!
> Navite prosim nekdo jak by se daly ulozit do souboru vlastnosti
> objektu? Pokud to tedy vubec jde.
> Konkretne bych potreboval ulozit nastaveni fontu.
>
> Mam na mysli neco takoveho jako napr:
>
> var F: file;
> Font1: TFont
> begin
> AssignFile(F, Name);
> Rewrite(F, 1);
> BlockWrite(Font1, SizeOf(Font1));
> CloseFile(F);
> end;
>
> Ale aby to ulozilo ne ukazatel na promennou ale jeji celou struktura
> aniz bych to musel delat polozku po polozce.
> Proste neco podobneho jak se to da udelat pres syntaxi Promenna^.
>
> Dekuji za kazddou radu, Pavel.
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------


Ukladani vlastnosti objektu

[*] Jiri Kanda <kanda(zv)havit(tec)cz> - 23.6.1998 10:11:30

Stahni si RxLib (http://rx.demo.ru). Tam je, mimo jine, komponenta
TFormStorage, kde muzes nastavit ukladani bud do INI-souboru nebo do
registru. Ukladaji se hodnoty tech properties tech komponent, ktere
nastavis. Pouzivam to a jsem s tim plne spokojen.

>Ahoj vsem!
>Navite prosim nekdo jak by se daly ulozit do souboru vlastnosti
>objektu? Pokud to tedy vubec jde.
>Konkretne bych potreboval ulozit nastaveni fontu.
>
>Mam na mysli neco takoveho jako napr:
>
>var F: file;
> Font1: TFont
>begin
> AssignFile(F, Name);
> Rewrite(F, 1);
> BlockWrite(Font1, SizeOf(Font1));
> CloseFile(F);
>end;
>
>Ale aby to ulozilo ne ukazatel na promennou ale jeji celou struktura
>aniz bych to musel delat polozku po polozce.
>Proste neco podobneho jak se to da udelat pres syntaxi Promenna^.
>
>Dekuji za kazddou radu, Pavel.
>
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
>

Pruhledny form

[*] Bielik Marian <bielik(zv)basl.sk> - 23.6.1998 10:17:17

Bohuzial nie som macher ale skus:

Do udalosti formularu onCreate zapis

Brush.Style:=bsClear;

V properties BorderStyle zadaj bsNone

Avsak problemy Ti este len zacnu ... :-)

Marian.

Tomas Bobek wrote:

> Nazdar vsichni,
>
> chtel bych napsat jednu zvracenost, ale netusim vubec, jestli to pujde.
> Potreboval bych, aby si okno me aplikace bylo schopno zjistit, co je
> vykreslene pod nim a udelat pruhledny form. Jako kdybyste polozili
> tabulku skla na obrazovku a psali na ni fixem.
>
> Pruhledna aplikace bez ramecku, na ktere by bylo umisteno par komponent
> a ja do toho mohl kreslit. Pokud se zmeni obsah toho, co je pod oknem
> (napriklad bezici AVI z uplne jine aplikace :-) je potreba to
> refreshovat. Najde se nejaky machr, ktery by vedel jak na to? Diky.
>
> Tomas Bobek.

Pruhledny form II.cast

[*] Bielik Marian <bielik(zv)basl.sk> - 23.6.1998 10:25:00

Ale mozne je to aj takto:
(len sa s tym budes musiet pohrat)

procedure TForm1.FormCreate(Sender: TObject);
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
X := X + Button1.Left;
Y := Y + Button1.Top;
ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height);
CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
SetWindowRgn(Handle, FullRgn, True);
end;

PS: Bohuzial musim upozornit ze to nemam z vlastnej hlavy.Iba viem kde to
hladat :-))

Pokladni panely

[*] IKOS Liberec, s.r.o. <sales(zv)ikos(tec)cz> - 23.6.1998 11:20:39


-----P�vodn� zpr�va-----
Od: Stepan Cerny <chaosz(zv)geocities.com>
Komu: Delphi konference <delphi(zv)pinknet(tec)cz>
Datum: 23. �ervna 1998 9:53
P�edm�t: Pokladni panely


>Ahojda,
>
>jeden muj znamy/zakaznik si koupil panel k pokladne (takovej 2radkovej,
>jako maj v obchodacich), a chce napsat softik, ktery tam bude vypisovat
>texty. To neni problem, jenze k tomu panelu nemam
>ZADNOU DOKUMENTACI !!!
>Pokud jste nekdo s temito panely pracoval ... prosim POMOC !
>PS: Je to typ Gigatek - DSP800, pripojen na Com2.
>
>Cago Belo Programatori
>--
>Stepan "Chaosz" Cerny
>chaosz(zv)geocities.com
>
>
>
Ahoj,

distribuci techto displeju se zabyva napr. http://www.konsigna(tec)cz

Snad Ti pomuzou.

Tomas Baloun
http://www.ikos(tec)cz
baloun(zv)ikos(tec)cz

<none>

[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 23.6.1998 11:27:43


Ahoj lidi!

V Delphi toho moc neumim, a proto bych potreboval velmi poradit, jak
udelat dll knihovnu (z napovedy jsem toho moc nezjistil).

Diky


Formatovani hodnot

[*] V�t�zslav Gazda������u��n�?��? - 23.6.1998 12:08:30

Potrebuji sehnat nebo vytvorit si nejakou funkci na formatovani ruznych
hodnot (cislo, text, mena, datum, cas). Chtel bych, aby to bylo tak dokonale
jeko formatovani bunek v Excelu. Neexistuje jiz neco takoveho ? Pokud ne,
tak nema nekdo nejaky namet jak na to ?

Diky Vita


Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 23.6.1998 12:21:42

> Chtel bych se zeptat, nema-li nekdo zkusenosti s chybovym hlasenim
> Project MujProject raised exception class EAccessViolation at adress ....
> in module IDPDX32.DLL. Read of adress FFFF FFFF. Process stopped.....
>
> Vyhazuje to pri listovani v DBGridu (casteji se to stava pri listovani
> pomoci klavesnice), k jehoz DataSource.DataSetu je napojeny jiny DBGrid s
> podrizenou tabulkou (klasicky jednoduchy master/detail). Vyhazuje se to
> pravidelne, ale ne na stejnym miste. Je to hlaseni neodbytne, kdyz se ukaze
> jednou, tak si neda rict a otravuje pri kazdem kroku programu, tj. jedina
> pomoc je zruseni programu.
> Kdyz jsem pouzival v detailu OnCalcFields, byla cesta k hlasce rychlejsi,
> ted jsou tam Lookup polozky a "vydrzi" to tak o dva PageDowny vic.
> Problem je v tom, ze nedokazu zjisti, jestli je to chyba v mem programu
> nebo v BDE, nebo v necem jinem.
>
> Pouzivam Delphi 3.01 Prof, Update na 3.02, BDE hlasi verzi 4.01 z Delphi,
> do systemu doinstalovany i Corel Paradox 8.
>
> Za kazdou pomoc budu velice vdacny.
>
> Juraj.Nagy(zv)nh-trans(tec)cz
>
>
S databazema moc nedelam, ale s touto chybou jsem se setkal pokud si
muj program hrabne do pameti nekam kam nema.
P.
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------


ovladani modemu

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.6.1998 12:23:08

milanf(zv)post(tec)cz wrote:

> Zdravim vsechny nadsence,
> mam D2 koupil jsem si modem a chci ho softwarove propojit po
> tel.lince a komunikovat nikdy jsem to nedelal kde mam zacit a nevite
> o nejake komponente. dik Milan Fiedler MilanF(zv)post(tec)cz

Existuje rada free komponent, se kterymi jsou vetsi ci mensi
starosti. Existuje take dobra knihovna pro seriovou komunikaci,
jmenuje se AsyncPro. Jeji trial verze funguje stejne jako ostra, ale
musi byt spusteno Delphi. Jestli to chces jen na hrani, porid si tuto
trial, jestli s tim chces vazne pracovat, je rozumnejsi investovat.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Funkcie

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.6.1998 12:23:08

Petr Vones wrote:

> > Jestli jsem to spravne pochopil ja, tak to by mohlo vyresit
> > pretezovani metod, ktere by uz (konecne!) melo byt v Delphi 4.
>
> Ano, to me prislo jako jedna z nejzajimavejsich novinek. Nicmene v
> dohledne dobe nevypada ze by mi D4 v praci vubec nekdy zakoupili
> (nebo existuje nejaka demo verze ?), takze bych byl rad kdyby zde
> nekdo mohl uvest nejake konkretjsi informace (ci odkaz). Zatim jsem

Mam Delphi 4 zamluveno na recenzi pro SWN. Takze jakmile to budu mit,
dam sem zpravu a potom to muzeme spolecne rozebrat. Doufam, ze zde
ziskam nejake prinosne podnety pro recenzi.

Jinak to lze resit napr. takto:

function Pole(Index:integer;Params:array of const):variant;
begin
case Index of
1:with Params[0] do
case VType of
vtInteger:;
vtAnsiString:if string(VAnsiString)='ahoj' then beep;
....
end;
end;
Result:=....
end;

....
...:=Pole(1,['ahoj']);

Viz take Language Guide, Procedures and Functions, Type variant
open-array parameters.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Ukladani vlastnosti objektu

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.6.1998 12:23:08

Simicek Pavel wrote:

> Navite prosim nekdo jak by se daly ulozit do souboru vlastnosti
> objektu? Pokud to tedy vubec jde. Konkretne bych potreboval ulozit
> nastaveni fontu.
>
> var F: file;
> Font1: TFont
> begin
> AssignFile(F, Name);
> Rewrite(F, 1);
> BlockWrite(Font1, SizeOf(Font1));
> CloseFile(F);
> end;

Prohledni si TWriter. Urcite to jde, protoze tyto informace jsou
ulozeny napriklad v .DFM, kam je uklada prave tato trida. Blize ti
vsak neporadim, protoze jsem se tim zabyval jen velice letmo.
Odkrokuj si nacitani zdroje z DFM (pri Form.Create), tam zjistis, jak
se zdroj cte, z toho odvodis i jak se zapisuje.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


IB, RH 5, Perl

[*] Marcel Telka <marcel(zv)vadium.sk> - 23.6.1998 12:42:29

Zdravim.

Situacia:
Potrebujem publikovat na Webe nejake data databazoviteho tvaru. (Vsetko
je na RedHat 5.0)

Mam takuto ideu:
Nainstalujem Free Interbase 4.0, zo vzdialeneho klienta (Win95, Delphi 2
Dev.) naplnim databazu
a pomocou perlovskych skriptov na linuxee data z databazy vytiahnem a
zostavim stranku.

Problem:
Zatial sa mi nepodarilo rozbehat IBPerl na RH 5. Ako na to?

Dalsia otazka:
Je moja idea "v ramci normy"? Nevymyslel som nejaku vyslovenu hlupost?
Ak ano, tak ma nakopnite.

Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, 080 01 Presov
http://www.vadium.sk/ Tel./fax: 091/721 160

dll knihovny

[*] Ondrej Valentik <valeon(zv)svatava.guh(tec)cz> - 23.6.1998 12:50:04

Ahoj lidi!

V Delphi toho moc neumim, a proto bych potreboval velmi poradit, jak
udelat dll knihovnu (z napovedy jsem toho moc nezjistil).

Diky


Prepinani parent ...

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 23.6.1998 13:01:55


Ahoj,

potrebuji navrhnout formular se zalozkami pro zadavani parametru,
tak by jej soucasne mohlo upravovat N programatoru, kazdy svoji
zalozku pro svoje parametry.

Inspiroval jsem se maily 'Prepinani parent'.
Hlavni formular fmMain obsahuje TabControl1.
Kazda zalozka ma svoji podobu definovanu ve formulari fmMainPageX.

Pri prepinani zalozek se vytvari konkretni fmMainPageX
a nastavi se vlastnost Parent. Pokud se to udela nasledovne

procedure TfmMainPage1.FormCreate(Sender: TObject);
begin
Parent:=fmMain.TabControl1
end;

tak se v TabControl1 objevi cely formular TfmMainPage1- to je nezadouci.
Jak to udelat, aby v TabControl1 byly videt pouze komponenty z fmMainPage1?

Milos Skacel

TRichEdit98

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 23.6.1998 13:05:39

Zdravim,

pouzivate nekdo komponentu TRichEdit98? Nejak blbe mi tam funguje funkce
SelText


S pozdravem

Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava

Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz

Formatovani hodnot

[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 23.6.1998 14:12:39

Nevim, jestli je to to, co potrebujes, ale nejlepsi free unita pro
manipulaci se stringama je IMHO HyperString na
http://www.mindspring.com/~efd/hyperstr.htm.

S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
>Potrebuji sehnat nebo vytvorit si nejakou funkci na formatovani ruznych
>hodnot (cislo, text, mena, datum, cas). Chtel bych, aby to bylo tak
dokonale
>jeko formatovani bunek v Excelu. Neexistuje jiz neco takoveho ? Pokud ne,
>tak nema nekdo nejaky namet jak na to ?
>
>Diky Vita
>
>

directx pod NT

[*] MARSIK(zv)gbn(tec)czn(tec)cz - 23.6.1998 14:57:26

zdravim,

vim, ze je to docela off, ale je to pro me dooost dulezity. Zabyvam se
programovanim pod DirectX v delphi a chci prejit na NT. Problem je v
tom, ze potrebuju DirectX 5 a ne DirectX 3, kterej je v SP3. Nevite
nekdo nahodou jak uchodit DirectX 5 pod NTckama (nepiste pls, ze mam
pockat na NT 5.0). Moc byste mi pomohli.

{--------------------------------------------------------------------}
{Jakub Marsik web http://www.gbn(tec)czn(tec)cz/marsik/index.htm }
{K Homolce 294 admin of mail & www server of Gymnazium Benesov }
{257 21 Porici n.Saz. }
{--------------------------------------------------------------------}

TTreeView

[*] sps_tr <sps_tr(zv)brn.pvtnet(tec)cz> - 23.6.1998 15:23:19

Ahoj Delfini

Pisu program, ktery vyuziva komponentu TTreeView. Prace s ni je pekna, ale kdyz do ni nacitam vetsi mnozstvi zaznamu tak se jeji rychlost snizuje. Cim vice zaznamu tim je nacitani pomalejsi. Je mozne tuto komponentu zrychlit, nebo jak nacist vetsi pocet polozek do TTreeView. TTreeView je pomale uz pri cca 100 zaznamech - pri nacitani. Pri pozdejsim zobrazeni a prochazeni to docela jde.

Jirka


hesla NT a MSSQL

[*] sula milos <crkstrobe(zv)geocities(tec)com> - 23.6.1998 15:24:58

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Prosim vas nevite nekdo jak zmenit heslo do site Microsoft NT a do MS SQL ?
Mam na mysli zda neexistuje nejaka API funkce.

ovladani modemu

[*] VTech Kavan <vtech(zv)kavan.org> - 23.6.1998 15:27:46

[P��loha v souboru: Ras.zip]
ja pouzivam pro ovladani modemu unit ktery jsem pripojil k mailu.

VTech

Zbysek Hlinka wrote:

> milanf(zv)post(tec)cz wrote:
>
> > Zdravim vsechny nadsence,
> > mam D2 koupil jsem si modem a chci ho softwarove propojit po
> > tel.lince a komunikovat nikdy jsem to nedelal kde mam zacit a nevite
> > o nejake komponente. dik Milan Fiedler MilanF(zv)post(tec)cz
>
> Existuje rada free komponent, se kterymi jsou vetsi ci mensi
> starosti. Existuje take dobra knihovna pro seriovou komunikaci,
> jmenuje se AsyncPro. Jeji trial verze funguje stejne jako ostra, ale
> musi byt spusteno Delphi. Jestli to chces jen na hrani, porid si tuto
> trial, jestli s tim chces vazne pracovat, je rozumnejsi investovat.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ


OFF TOPIC: MSSQL Server: Index skryje vety

[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 23.6.1998 16:30:56

Dobreho dne.

Omlouvam se za off topic.

Ospravedlneni: 1)Vyvojari v Delphi pracuji s databazemi,
nekteri i s MSSQL Serverem a mozna se trapi jako ja.
2)Konference o MSSQL Serveru je nejaka lina az mrtva.

Mam problem a neverim svym ocim:

V databazi mam tabulku mest, ktera ma polozky id_city (int), name
(char(40)). Polozka name je unikatni.
Databaze je provozovana na dvou mistech. Na prvnim miste je
MS SQL server nastaven na kodovou stranku 437 a case-insensitive.
Na druhem miste je kodovani 1250 a case-sensitive.
Pres polozku name je index (lhostejno jaky).

V tabulce je veta 125,"Praha 5". Vse je ok.
Pridam vetu 126,"PRAHA 5".
V prvnim pripade se mi to nepodari, polozka jiz existuje.
V druhem pripade se mi to podari a veta je zalozena.
ALE!!
Dam-li v druhem pripade prikaz
SELECT * FROM c_city WHERE name = 'Praha 5',
vrati mi nic.
Obe vety vsak v tabulce jsou, o cemz se
muzu presvedcit prikazem
SELECT * FROM c_city.

Pokud odstranim index pres name, je zase vse ok a
prikaz
SELECT * FROM c_city WHERE name = 'Praha 5'
vrati jedinou radku tak, jak ma.

Mate nekdo nejake vysvetleni? Zapomnel jsem neco nastavit, ohlidat,
udelat...?
Diky za kazdy napad.

Zdravim.
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+

Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 23.6.1998 16:30:01


Ja vim, ze je to odkazem na ukazatel, ktery je NIL. Problem je v tom, ze
vetsinou tuto chybu vyhodi Muj program, ale to uvedene DLL je z BDE a ode
mne by se to asi melo dostat do BDE pres odkaz na neotevrenou tabulku.
Takova vsak nemuze byt, kdyz ze vsech tabulek vidim spoustu udaju. Ke vsemu
jsem to nekolikrat debugoval a nic.

Juraj Nagy


> -----P�vodn� zpr�va-----
> Od: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
> Odesl�no: 23. �ervna 1998 14:22
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Chyba EAccessViolation ... in module IDPDX32.DLL
>
> >> Chtel bych se zeptat, nema-li nekdo zkusenosti s chybovym hlasenim
> >> Project MujProject raised exception class EAccessViolation at adress
....
> >> in module IDPDX32.DLL. Read of adress FFFF FFFF. Process stopped.....
>
> >S databazema moc nedelam, ale s touto chybou jsem se setkal pokud si
> >muj program hrabne do pameti nekam kam nema.
>
> >P.
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------

<none>

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.6.1998 16:45:01

> V Delphi toho moc neumim, a proto bych potreboval velmi poradit, jak
> udelat dll knihovnu (z napovedy jsem toho moc nezjistil).

Vzdyt je to tam uplne krasne napsane vcetne prikladu a podle
me neni moc co dodat... Opravdu ses tam dival? Co mas za
verzi Delphi? Zkus si take udelat FILE - NEW - LIBRARY...

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

HELP

[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 23.6.1998 17:22:22

Cau
Kde by som mohol ten program splasit, alebo ak mas dobru naladu tak mi ho
prosim Ta posli.


Dik
-----P�vodn� zpr�va-----
Od: Jiri Sladek <chmelar(zv)oasanet(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 30. j�l 1998 13:04
P�edm�t: Re: HELP


>Pouzivame program VBAHA.
>
>Ma jednoduchou obsluhu a je WYSIWYG.
>
>
>
>
>-----Original Message-----
>From: mstevlik(zv)gamo.sk <mstevlik(zv)gamo.sk>
>To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Date: 30. �ervence 1998 9:30
>Subject: HELP
>
>
>>Nazdar, opat otrvujem,
>> Rad by som do mojej aplikacie vlozil help, nemam ani zdania ako sa to
>>robi.
>>Vie mi niekto poradit?
>> Majkl
>>
>>
>>
>
>

Seriova komunikace

[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 23.6.1998 17:33:52

> Existuji "udelatka", ktera umi odposlouchat seriovou linku. Ja pouzivam
> ASP (analyzator serioveho prenosu). Je potreba specialni kabel a SW.
> Kabel ma uprostred dalsi pripojku napr. na notebook. Program pak
> zachycuje komunikaci do dvou separatnich oken, vcetne napr.
> synchronizacnich casovych znacek.
>
> Program ti muzu nakopirovat (mozna bych nasel i nejake dalsi), s kabelem
> je to horsi, muzu zkusit nacmarat schema propojeni....
>
> -Ales Bukovsky-
>
>

Pokud to bude mozne, posli mi to, prosim.
Ke kabelu mi bude staci t to schematko.

Diky moc.

S pozdravem Zdenek
---------------------------------------------------------
: o__o Zdenek Sraier sraierzd(zv)czn(tec)cz :
: ( o o) users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske www.byll(tec)cz/scuba/ :
---------------------------------------------------------
This message was delivered using 100% recyclable electrons.

TTreeView

[*] Jarda Sikora <sikora(zv)af(tec)czu(tec)cz> - 23.6.1998 19:53:04 met

> From: "sps_tr" <sps_tr(zv)brn.pvtnet(tec)cz>
> To: <delphi(zv)pinknet(tec)cz>
> Subject: TTreeView
> Date: Tue, 23 Jun 1998 15:23:19 +0200
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>

> Ahoj Delfini
>
> Pisu program, ktery vyuziva komponentu TTreeView. Prace s ni je pekna, ale kdyz do ni nacitam vetsi mnozstvi zaznamu tak se jeji rychlost snizuje. Cim vice zaznamu tim je nacitani pomalejsi. Je mozne>
> Jirka
>

Problem je v tom, ze TTreeView pokazde tridi cely strom. Pro
zrychleni je nutne po pridani tridit jen prislusnou cast
(Node1.AlphaSort) nebo cele nacist a pote setridit
(Treeview1.AlphaSort).

Jarda


Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.6.1998 20:13:24

Simicek Pavel wrot>
> > Pouzivam Delphi 3.01 Prof, Update na 3.02, BDE hlasi verzi 4.01 z Delphi,
> > do systemu doinstalovany i Corel Paradox 8.
Ahoj,

Asi to moc nepomuze, ale zkus si od Borlandu stahnout update na BDE 4.51.

Petr Vones, amatersky programator

OFF TOPIC: MSSQL Server: Index skryje vety

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 23.6.1998 20:14:41

Tak je to u� s produktami Microsoft - ob�as ,a to zpravidla ked ide do tuheho, nefunguju spolahlivo. Zial to je pravda. Pride upgrade len treba pockat.
Tungli

----------
> Od: Pavel Klimes <klimes(zv)c3(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Predmet: OFF TOPIC: MSSQL Server: Index skryje vety
> D�tum: 23. j�n 1998 16:30
>
> Dobreho dne.
>
> Omlouvam se za off topic.
>
> Ospravedlneni: 1)Vyvojari v Delphi pracuji s databazemi,
> nekteri i s MSSQL Serverem a mozna se trapi jako ja.
> 2)Konference o MSSQL Serveru je nejaka lina az mrtva.
>
> Mam problem a neverim svym ocim:
>
> V databazi mam tabulku mest, ktera ma polozky id_city (int), name
> (char(40)). Polozka name je unikatni.
> Databaze je provozovana na dvou mistech. Na prvnim miste je
> MS SQL server nastaven na kodovou stranku 437 a case-insensitive.
> Na druhem miste je kodovani 1250 a case-sensitive.
> Pres polozku name je index (lhostejno jaky).
>
> V tabulce je veta 125,"Praha 5". Vse je ok.
> Pridam vetu 126,"PRAHA 5".
> V prvnim pripade se mi to nepodari, polozka jiz existuje.
> V druhem pripade se mi to podari a veta je zalozena.
> ALE!!
> Dam-li v druhem pripade prikaz
> SELECT * FROM c_city WHERE name = 'Praha 5',
> vrati mi nic.
> Obe vety vsak v tabulce jsou, o cemz se
> muzu presvedcit prikazem
> SELECT * FROM c_city.
>
> Pokud odstranim index pres name, je zase vse ok a
> prikaz
> SELECT * FROM c_city WHERE name = 'Praha 5'
> vrati jedinou radku tak, jak ma.
>
> Mate nekdo nejake vysvetleni? Zapomnel jsem neco nastavit, ohlidat,
> udelat...?
> Diky za kazdy napad.
>
> Zdravim.
> --
> +---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
> | C3, s.r.o. (Czech Card Centrum) | __) """ |
> | Srobarova 32, Praha 10, Czech Republic | \/"""\ |
> +---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+
>

OFF TOPIC: MSSQL Server: Index skryje vety

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 23.6.1998 20:20:10

Este kontroluj ci male a velke pismena alebo medzery su rovnake v "Praha 5"


----------
> Od: Pavel Klimes <klimes(zv)c3(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Predmet: OFF TOPIC: MSSQL Server: Index skryje vety
> D�tum: 23. j�n 1998 16:30
>
> Dobreho dne.
>
> Omlouvam se za off topic.
>
> Ospravedlneni: 1)Vyvojari v Delphi pracuji s databazemi,
> nekteri i s MSSQL Serverem a mozna se trapi jako ja.
> 2)Konference o MSSQL Serveru je nejaka lina az mrtva.
>
> Mam problem a neverim svym ocim:
>
> V databazi mam tabulku mest, ktera ma polozky id_city (int), name
> (char(40)). Polozka name je unikatni.
> Databaze je provozovana na dvou mistech. Na prvnim miste je
> MS SQL server nastaven na kodovou stranku 437 a case-insensitive.
> Na druhem miste je kodovani 1250 a case-sensitive.
> Pres polozku name je index (lhostejno jaky).
>
> V tabulce je veta 125,"Praha 5". Vse je ok.
> Pridam vetu 126,"PRAHA 5".
> V prvnim pripade se mi to nepodari, polozka jiz existuje.
> V druhem pripade se mi to podari a veta je zalozena.
> ALE!!
> Dam-li v druhem pripade prikaz
> SELECT * FROM c_city WHERE name = 'Praha 5',
> vrati mi nic.
> Obe vety vsak v tabulce jsou, o cemz se
> muzu presvedcit prikazem
> SELECT * FROM c_city.
>
> Pokud odstranim index pres name, je zase vse ok a
> prikaz
> SELECT * FROM c_city WHERE name = 'Praha 5'
> vrati jedinou radku tak, jak ma.
>
> Mate nekdo nejake vysvetleni? Zapomnel jsem neco nastavit, ohlidat,
> udelat...?
> Diky za kazdy napad.
>
> Zdravim.
> --
> +---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
> | C3, s.r.o. (Czech Card Centrum) | __) """ |
> | Srobarova 32, Praha 10, Czech Republic | \/"""\ |
> +---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+
>

Delphi 4

[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 23.6.1998 20:43:10

Zdar,

nevite jestli v Delphi 4 je novy format dcu?

Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
V�voj SW


QuickReport a Delphi 1.02

[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 23.6.1998 22:26:58


Pismeno za cislem je taky poradi? Pokud mam 2.0J, je starsi nez ta tvoje?

Kupka Lubom�r
-------------------------------------------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
-------------------------------------------------------------------------------------------------------------

-----P�vodn� zpr�va-----
Od: Vesna [SMTP:veselyt(zv)sagas(tec)cz]
Odesl�no: 23. �ervna 1998 9:44
Komu: DELPHI Distribution List
P�edm�t: Re: QuickReport a Delphi 1.02

Posledni verze je 2.0K. Nevim, jak jste objednavali QuickReport, ale asi po
inetu. QuSoft Vam poslal heslo pro volne upgrady, ktere jsou na jejich
strance stazitelne (www.qusoft.com ). V pripade problemu mailuj
sales(zv)qusoft.com.

directx pod NT

[*] voltrr1.epr(zv)mail.cez(tec)cz - 24.6.1998 06:23:23


Nova zprava:
Nazdar,existuje soubor nt4dx5 ktery obsahuje knihovny DX5 ktere jedou pod
NT4. Pokud jej nenajdes muzu ti jej poslat ale mapres 2MB.Radek
Voltrvoltrr1.epr(zv)mail.cez(tec)cz
---------------------------------------------------------------
Puvodni zprava:
zdravim,vim, ze je to docela off, ale je to pro me dooost dulezity. Zabyvam
se
programovanim pod DirectX v delphi a chci prejit na NT. Problem je v
tom, ze potrebuju DirectX 5 a ne DirectX 3, kterej je v SP3. Nevite
nekdo nahodou jak uchodit DirectX 5 pod NTckama (nepiste pls, ze mam
pockat na NT 5.0). Moc byste mi
pomohli.{------------------------------------------------------------------
--}
{Jakub Marsik web http://www.gbn(tec)czn(tec)cz/marsik/index.htm }
{K Homolce 294 admin of mail & www server of Gymnazium Benesov }
{257 21 Porici n.Saz. }
{--------------------------------------------------------------------}

Program ZADARMO

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 24.6.1998 06:54:33

Ahoj Zbysku,

> *** PROGRAM ZADARMO ***
>
> Dovoluji si vsem oznamit, ze v zachvatu dobrocinnosti jsem uvolnil
> program pro lokalizaci programu napsanych v Delphi 3 a C++ Builder 3,
> Jazykovy Lokalizator, do FREEWARE.
>

prosimte nakopni me. Stahl jsem si free Lokalizator a snazim se s nim
pracovat. Otevru si *.DPR, pocestim si retezce a zkompiluji. Ale jaxi mi
unika co dal.
Porad prosim (klidne muzes pouzivat i nespisovna slova;-))

S pozdravem

Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava

Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz

GIS Engine

[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 24.6.1998 07:17:33

1. MapObject, alebo
2. MapObjectLT od firmy ESRI.

ESRI je na internete, volakedy bola k dispozicii trial verzia MapObjectLT.
Obidve su OCX enginy pre VB, C, ale aj pre Delphi.
MapObjectLT som testoval je OK - ale vhodny len pre jednoduche ucely.
Plna verzia sa zda byt velmi silny nastroj.
Cena LT cca 10 000 Sk - neobmedzene sirenie, plna verzia cca 100 000 Sk ta
zahrnuje aj 10 licencii.
Zastupenie ESRI na Slovensku - firma CAADG - sidlo Bratislava - pan. Ing.
A. Priesol

S pozdravom Miro Balaz

-----P_vodn_ spr_va-----
Od: Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 21. j_n 1998 22:41
Predmet: GIS Engine


>Ahoj Delfini,
>
>setkali jste se nekdo v praxi s nejakym GIS enginem?
>
>Zaciname delat projekt, kde je treba pracovat s mapou (ulice, ...) -
zoomovat, vyhled_vat, ... Programujeme v Delphi. Nevite o nejakem
prostredku, ktery bychom mohli vyuzivat primo z Delphi kodu? Nejsem si jisty
zda neco takoveho existuje. Takze bych uvital i kontakty na nejaky takovy
Engin pristupny z jineho jazyka (C++).
>
>Kdyz byste ke svym zkusenostem pripojili kontakt na vyrobce ci prodejce,
tak bych Vam byl vdecen.
>
>Diky moc, Ladislav Nagy
>

TTreeView

[*] roman.palarcik(zv)spt(tec)cz - 24.6.1998 07:29:13

Ahoj Delfini

Pisu program, ktery vyuziva komponentu TTreeView. Prace s ni je pekna,
ale kdyz do ni nacitam vetsi mnozstvi zaznamu tak se jeji rychlost
snizuje. Cim vice zaznamu tim je nacitani pomalejsi. Je mozne tuto
komponentu zrychlit, nebo jak nacist vetsi pocet polozek do TTreeView.
TTreeView je pomale uz pri cca 100 zaznamech - pri nacitani. Pri
pozdejsim zobrazeni a prochazeni to docela jde.

Jirka

-------------------------------------------------------

Na strance www.gnomehome.demon.nl/uddf/compon.htm je nejaka rychlejsi
verze TTreeView. Zrychleni je patrne hlavne pri nacitani dat ze souboru
(radove rychlejsi). Pro trideni a beznou praci nevim, nezkousel jsem.
Jinak na techto strankach je velke mnozstvi jinych uzitecnych
informaci, ale uz tu myslim byla nekym prezentovana.

Roman Palarcik
roman.palarcik(zv)spt(tec)cz


GIS Engine

[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 24.6.1998 07:33:02


Jeden cas jsem delal na GIS projektech a tyhle interfacy na mapy nabizi
skoro kazda GIS firma - pro ArcView, MapInfo, ..... Vetsinou je to ve
forme nejakych VBX/OCX a priprav se na to, ze je to pekne mastna
zalezitost :

MapObjects pro MapInfo staly cca 100.000 a ArcView na tom bylo snad
jeste hur.

Mozna ceny od te doby klesly, ale nevim, nevim, ...

Firma Intergraph nabizi sadu objektu pro praci s GIS, zalozene na
otevrene technologii. Ceny jsou pomerne slusne v zavislosti na poctu a
na typu objektu. Nabizi se objekty pro zobrazovani, transformace
souradnych systemu, pristupu k datum atd.

Vice Vam rad zodpovi Tomas Krebs tkrebs(zv)ingr.com

Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/


-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------

> -----P�vodn� zpr�va-----
> Od: Ladislav Nagy
> Odesl�no: 21. �ervna 1998 22:38
> Komu: DELPHI Distribution List
> P�edm�t: GIS Engine
>
> Ahoj Delfini,
>
> setkali jste se nekdo v praxi s nejakym GIS enginem?
>
> Zaciname delat projekt, kde je treba pracovat s mapou (ulice, ...) -
> zoomovat, vyhled�vat, ... Programujeme v Delphi. Nevite o nejakem
> prostredku, ktery bychom mohli vyuzivat primo z Delphi kodu? Nejsem
> si jisty zda neco takoveho existuje. Takze bych uvital i kontakty
> na nejaky takovy Engin pristupny z jineho jazyka (C++).
>
> Kdyz byste ke svym zkusenostem pripojili kontakt na vyrobce ci
> prodejce, tak bych Vam byl vdecen.
>
> Diky moc, Ladislav Nagy


OFF TOPIC: MSSQL Server: Index skryje vety

[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 24.6.1998 07:42:40



Dobreho dne.

Omlouvam se za off topic.

Ospravedlneni: 1)Vyvojari v Delphi pracuji s databazemi,
nekteri i s MSSQL Serverem a mozna se trapi jako ja.
2)Konference o MSSQL Serveru je nejaka lina az mrtva.

Mam problem a neverim svym ocim:

V databazi mam tabulku mest, ktera ma polozky id_city (int), name
(char(40)). Polozka name je unikatni.

Neodpovidam sice na dotaz, ale rad bych pripomenul, ze polozka Name v
Ceske republice nemuze byt unikatni viz SIS (Standard statni informacni
system). Napriklad obec "Kladno" je v CR dvakrat a neni jedina.

Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/

dll knihovny

[*] Petr Brant <pbrant(zv)softhome(tec)net> - 24.6.1998 08:00:57



-----Puvodni zprava-----
Od: Ondrej Valentik
Odeslano: 23. eervna 1998 12:50
Komu: delphi(zv)pinknet(tec)cz
Poedmit: dll knihovny

Ahoj lidi!

V Delphi toho moc neumim, a proto bych potreboval velmi poradit, jak
udelat dll knihovnu (z napovedy jsem toho moc nezjistil).

Diky

[Petr Brant]

Pro ilustraci posilam jednu ocesanou DLL, kterou jsem kdysi psal:

library update; //misto slova program se pise library


uses
SysUtils,
Registry,
Windows; //zde se musi napsat vsechny nutne unity


var
Source1, Destination1,
Source2, Destination2: string; {zdrojovy a cilovy adresar}
MyReg: TRegistry;
LogDirectory: string;
Logfile:TextFile;
LogFileOpen:boolean; //stejne jako v programu



function IsOpened(FileName:string):boolean;
{zkouma, zda je soubor FileName otevren, resp. je-li mozne do nej zapsat}
var FileHandle:integer;
begin
(....)
end; //stejne jako v programu, pokud nema byt funkce exportovana


function ClosedFiles(source, dest:PChar; var Are:bytebool):integer;
stdcall;export;
{zkouma, zda neni nektery ze souboru v cilovem adresari otevreny}
var z:integer;
f:TSearchRec;
var dir:string;
begin
(...)
end;

//stejne jako v programu, ale tato funkce ma byt exportovana, musi se zde
//uvest slovo export a doporucuji i stdcall, i kdyz nevim presne, k cemu
to je


procedure AddBackSlash(var s:String);
begin
if (Copy(s,Length(s),1)<>'\') then s:=s+'\';
end;

function CreateLogFile:integer; stdcall;export;
begin
(...)
end;

function CloseLogFile:integer; stdcall;export;
begin
(...)
end;


function AudaPadFound:PChar;stdcall;export;
{vraci cestu, kde se nasel AudaPad}
var AudaPadPath:string;
begin
(...)
end;


function FoundDataPathKey(SourceKey:string):integer ;
var s:string;
begin
(...)
end;

function FoundUpdateDriveKey(SourceKey:string):integer;
{jako parametr se predava Key1 nebo Key2}
var s:string;
4begin
(...)
end;

function ExecuteAudaPadUpdate(i:integer):integer;stdcall;export;
//zkouma, zda se bude spoustet update AudaPadu
var upd11,upd12,path11,path12:string;
upd21,upd22,path21,path22:string;
begin
(...)
end;


function FilesAreYounger(source,destination:PChar; var
Are:bytebool):integer; stdcall;export;
{zkouma, zda nejsou soubory v cilovem adresari mladsi nez ve zdrojovem}
{Are = True znamena, ze ano}
var agesrc,agedest:integer;
filesrc:string;
dir:string;
begin
(...)
end;


function FilesUpdate(source,destination:PChar):integer; stdcall;export;
{source a destination jsou adresare s koncovym lomitkem}
var z:integer;
f:TSearchRec;
dir:string;
begin
(...)
end;


function MakeUpdate(Source,Destination:PChar):integer; stdcall;export;
var i:integer;
are:bytebool;
begin
(...)
end;

function ReadKey(i:integer):boolean; stdcall;export;
var key:string;
begin
(...)
end;

function AudaPadUpdate(DirName:PChar):integer ; stdcall;export;
var Dir,AudaPadPath:string;
i:integer;
ProcessInfo:TProcessInformation;
StartupInfo:TStartupInfo ;
begin
(...)
end;
function AudaBasicUpdate(zobrazit_okno:integer; napis, Capt:PChar):integer;
var MyReg:TRegistry;
Source, Destination:string;
begin
(...)
end;


function AudaCarUpdate(zobrazit_okno:integer; napis, Capt:PChar):integer;
var MyReg:TRegistry;
Source, Destination:string;
begin
(...)
end;

function CDUpdate(what:integer; zobrazit_okno:integer; napis:PChar;
capt:PChar ):integer; stdcall;export;
{what = 1 jen Audapad, what = 2 - FZGDAT i AudaPad,
what = 3 jen FZGDAT}
var
ReturnValue,ReturnValue1,ReturnValue2:integer;
{vracene hodnoty - chybove stavy}
i:integer; {pomocna hodnota}
AudaPadPath:string;
ProcessInfo:TProcessInformation;
StartupInfo:TStartupInfo ;

begin
(...)
end;
//a tak dale.
exports CDUpdate index 1,
AudaPadUpdate index 2,
ClosedFiles index 3,
AudaPadFound index 4,
FilesAreYounger index 5,
FilesUpdate index 6,
MakeUpdate index 7,
ReadKey index 8,
CreateLogFile index 9,
CloseLogFile index 10,
ExecuteAudaPadUpdate index 11; //zde se uvedou jmena vsech
exportovanych funkci
//spolu s cislem, ktere je reprezentuje

begin
LogFileOpen:=False; //zde se uvede kod, ktery se ma vykonat
LogDirectory:='C:\'; //pri natazeni DLL do pameti
end.


Pokud potrebujes v ramci DLL pouzivat okno, normalne si je vytvor se vsemi
komponentami, ale
v okamziku, kdy je budes chtit pouzit, musis je tvorit dynamicky a pak zase
odstranit. Napr.
Form1:=TForm1.Create(nil); Form1.ShowModal; a na zaver Form1.Free. Je treba
doplnit kod pro
obsluhu chybovych stavu apod.

Doufam, ze ti to pomuze, kdyz tak se soukromne ozvi.


P.S. Takhle muze vypadat zahlavi programu, kde se (jina) DLL staticky (tj.
pri startu volajiciho programu) pripojuje. Tu DLL jsem psal v C++, proto
direktiva cdecl:

function OpenDatabase(DatabaseName:PChar):integer;cdecl;external 'DBEng';
procedure CloseDatabase;cdecl;external 'DBEng';
function CreateRecordset(Query:PChar):integer;cdecl;external 'DBEng';
function
RecordsetToListBox(Handle:HWND;Column:integer):integer;cdecl;external
'DBEng';
function GetTableCount:integer; cdecl;external 'DBEng';
function GetFieldCount(TableNumber:integer):integer; cdecl;external
'DBEng';
function GetFieldName
(TableNumber,FieldNumber:integer;FieldName:PChar):integer;cdecl;external
'DBEng';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=OpenDatabase(PChar('C:\translate\ungarn.mdb'));

atd.

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************

DragDrop so stvorcekom

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 24.6.1998 08:03:07

Nazdar!

Pred nedavnom sa tu preberalo DragDropovanie(autor Big Wizard Petr Vones).
Celkom ma to zaujalo a teraz by som chcel nieco prerobit na DragDrop.
Chcel by som, aby sa mi pri dragovani premiestnoval taky stvorec, ako
napriklad v Delhi pri navrhu formulara, ale aby sa s nim dalo vybehnut aj
mimo formulara. Nieco som skusal (cez ImageList) ale nejako mi to nejde.
Lepsie povedane neviem co s tym, ako tam dostat ten stvorec, co je to maska
a ako to cele funguje, Je dokonca mozne, ze som uplne mimo. Mozte ma niekto
naviest("nakopnut") spravnym smerom?

Vdaka za vsetky rady a odkazy.

P.S.: Prikladik potesi.

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk


Zacatecnicka rada

[*] East Trading Company s.r.o. <vit(zv)ardo(tec)cz> - 24.6.1998 08:08:38

Zdravim vsechny programatory!

Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi programky
typu mluvici kalkulacka, hodiny atd. :)))))

O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se vede
informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
komponenta s hotovymi vecmi jako napr.
NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale doufam
ze pochopite, ze kazdy jednou zacina...

Svatopluk Vit
spr.poc.site
East Trading Company s.r.o.
Karvina

TTreeView

[*] Jarda Venclu <venclu(zv)oez(tec)cz> - 24.6.1998 08:10:57

Ahoj
Uz to zde bylo. Zkus pouzit komponentu HETreeView. Je
nesrovnateln� rychlej��. Kdyby jsi ji nemohl
naj�t, tak Ti ji poslu.
Jarda


sps_tr wrote:
>
> Ahoj Delfini
>
> Pisu program, ktery vyuziva komponentu TTreeView. Prace s ni je pekna, ale kdyz do ni nacitam vetsi mnozstvi zaznamu tak se jeji rychlost snizuje. Cim vice zaznamu tim je nacitani pomalejsi. Je mozne tuto komponentu zrychlit, nebo jak nacist vetsi pocet polozek do TTreeView. TTreeView je pomale uz pri cca 100 zaznamech - pri nacitani. Pri pozdejsim zobrazeni a prochazeni to docela jde.
>
> Jirka


TTreeView

[*] Petr Brant <pbrant(zv)softhome(tec)net> - 24.6.1998 08:11:50



-----Puvodni zprava-----
Od: sps_tr
Odeslano: 23. eervna 1998 15:23
Komu: delphi(zv)pinknet(tec)cz
Poedmit: TTreeView

Ahoj Delfini

Pisu program, ktery vyuziva komponentu TTreeView. Prace s ni je pekna, ale
kdyz do ni nacitam vetsi mnozstvi zaznamu tak se jeji rychlost snizuje. Cim
vice zaznamu tim je nacitani pomalejsi. Je mozne tuto komponentu zrychlit,
nebo jak nacist vetsi pocet polozek do TTreeView. TTreeView je pomale uz
pri cca 100 zaznamech - pri nacitani. Pri pozdejsim zobrazeni a prochazeni
to docela jde.

Jirka


[Petr Brant]
Pokud mas ty zaznamy strukturovane,zkus nacist jen prvni uroven a ostatni
nechat byt. Tim se zobrazi jen prvni uroven a pri kliknuti na uzel nacti
jen odpovidajici zaznamy druhe urovne, ne vsak treti atd. Pokud neni v
prvni urovni prilis mnoho zaznamu, snad to pomuze. Resil jsem kdysi neco
podobneho se cca 5000 zaznamy a chodilo to dobre.

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************

Pocet barev u TMetaFile

[*] roman.palarcik(zv)spt(tec)cz - 24.6.1998 08:27:39

Zdravim,

mam takovou drobnost, nevite jak by se dalo zjistit pocet bar u
TMetaFile ? U TBitmap je property PixelFormat, ale u TMetaFile nic
takoveho neni. Zkousel jsem hledat v API funkcich primo neco pres
HPALETTE, ale zjisteni poctu barev tam neni. Vsude se pracuje s
jednotlivymi polozkami palety, ale jak zjistit jejich pocet to nikde
neni. Nebo jsem neco prehledl ?

Roman Palarcik
roman.palarcik(zv)spt(tec)cz


Program ZADARMO

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.6.1998 09:00:52

> prosimte nakopni me. Stahl jsem si free Lokalizator a snazim se s nim
> pracovat. Otevru si *.DPR, pocestim si retezce a zkompiluji. Ale jaxi mi
> unika co dal.
> Porad prosim (klidne muzes pouzivat i nespisovna slova;-))

A manual (help) jsi cetl?

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Prepinani parent ...

[*] Pavel Kral <kral(zv)afx(tec)cz> - 24.6.1998 09:03:51


-----Original Message-----
From: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 23. �ervna 1998 17:28
Subject: Prepinani parent ...>Ahoj,
>
>potrebuji navrhnout formular se zalozkami pro zadavani parametru,
>tak by jej soucasne mohlo upravovat N programatoru, kazdy svoji
>zalozku pro svoje parametry.
>
>Inspiroval jsem se maily 'Prepinani parent'.
>Hlavni formular fmMain obsahuje TabControl1.
>Kazda zalozka ma svoji podobu definovanu ve formulari fmMainPageX.
>
>Pri prepinani zalozek se vytvari konkretni fmMainPageX
>a nastavi se vlastnost Parent. Pokud se to udela nasledovne
>
>procedure TfmMainPage1.FormCreate(Sender: TObject);
>begin
> Parent:=fmMain.TabControl1
>end;
>
--------------
A co takhle?

procedure TfmMainPage1.FormCreate(Sender: TObject);
var i: integer;
begin
for i:=0 to componentCount-1 do // pridelit parenta kazdemu prvku
formulare
begin
if Components[i] is TWinCOntrol then
TWinControl(Components[i]).Parent:= fmMain.TabControl1;
end;
end;

Cau Pavel
----------------
>tak se v TabControl1 objevi cely formular TfmMainPage1- to je nezadouci.
>Jak to udelat, aby v TabControl1 byly videt pouze komponenty z fmMainPage1?
>
>Milos Skacel
>
>

Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 24.6.1998 09:10:58

Hi,
nevim, jestli to byla zrovna tato chyba, ale objevovala se mi
asi podobna chyba.
Stavalo se to, pokud jsem provadel zmeny ve vlastni komponente
DBGrid, pote jsem natahnul projekt, ktery tuto komponentu
obsahoval a dal jsem prikaz Project/build all. Program se prelozil,
makal, ale pri stisku kurzorovych klaves na komponente vyhodil
chybove hlaseni.
Kdyz jsem provedl rekompilaci komponenty (component/install
packages/edit prislusne komponenty/compile), chyba zmizela.

Neni to take tvuj pripad?

S pozdravem
Ing. Milan VALENTA
Horni Slavkov
e-mail: milan.valenta(zv)usa.net


----------
> Odes�latel: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Chyba EAccessViolation ... in module IDPDX32.DLL
> Datum: 23. �ervna 1998 12:21
>
> > Chtel bych se zeptat, nema-li nekdo zkusenosti s chybovym hlasenim
> > Project MujProject raised exception class EAccessViolation at adress ....
> > in module IDPDX32.DLL. Read of adress FFFF FFFF. Process stopped.....
> >
> > Vyhazuje to pri listovani v DBGridu (casteji se to stava pri listovani
> > pomoci klavesnice), k jehoz DataSource.DataSetu je napojeny jiny DBGrid s
> > podrizenou tabulkou (klasicky jednoduchy master/detail). Vyhazuje se to
> > pravidelne, ale ne na stejnym miste. Je to hlaseni neodbytne, kdyz se ukaze
> > jednou, tak si neda rict a otravuje pri kazdem kroku programu, tj. jedina
> > pomoc je zruseni programu.
> > Kdyz jsem pouzival v detailu OnCalcFields, byla cesta k hlasce rychlejsi,
> > ted jsou tam Lookup polozky a "vydrzi" to tak o dva PageDowny vic.
> > Problem je v tom, ze nedokazu zjisti, jestli je to chyba v mem programu
> > nebo v BDE, nebo v necem jinem.
> >
> > Pouzivam Delphi 3.01 Prof, Update na 3.02, BDE hlasi verzi 4.01 z Delphi,
> > do systemu doinstalovany i Corel Paradox 8.
> >
> > Za kazdou pomoc budu velice vdacny.
> >
> > Juraj.Nagy(zv)nh-trans(tec)cz
> >
> >
> S databazema moc nedelam, ale s touto chybou jsem se setkal pokud si
> muj program hrabne do pameti nekam kam nema.
> P.
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------


hesla NT a MSSQL

[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 24.6.1998 09:18:26

Hledej v helpu k API funkci NetUserChangePassword.

-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------

> -----P�vodn� zpr�va-----
> Od: sula milos
> Odesl�no: 23. �ervna 1998 15:25
> Komu: delphi konference
> P�edm�t: hesla NT a MSSQL
>
> Prosim vas nevite nekdo jak zmenit heslo do site Microsoft NT a do
> MS SQL ?
> Mam na mysli zda neexistuje nejaka API funkce.

Prepinani parent ...

[*] RADIK(zv)p15.monet(tec)cz - 24.6.1998 09:25:00

To je clekem jednoduche. Staci na ty formulare stranek polozit panel a
teprve na nej dat komponenty. Pak se misto Parent napise Panel1.Parent
:= Mform.TabControl1.
Jeste je dobre dat tomu panelu zarovnani na Client, tim jednoduse vyplni
celou plochu TabControlu.


Ales

----------
Od: Miloslav Skacel
Komu: 'DELPHI Distribution List'
P�edm�t: Prepinani parent ...
Datum: 23. �erven 1998 13:01

Ahoj,

potrebuji navrhnout formular se zalozkami pro zadavani parametru,
tak by jej soucasne mohlo upravovat N programatoru, kazdy svoji
zalozku pro svoje parametry.

Inspiroval jsem se maily 'Prepinani parent'.
Hlavni formular fmMain obsahuje TabControl1.
Kazda zalozka ma svoji podobu definovanu ve formulari fmMainPageX.

Pri prepinani zalozek se vytvari konkretni fmMainPageX
a nastavi se vlastnost Parent. Pokud se to udela nasledovne

procedure TfmMainPage1.FormCreate(Sender: TObject);
begin
Parent:=fmMain.TabControl1
end;

tak se v TabControl1 objevi cely formular TfmMainPage1- to je nezadouci.
Jak to udelat, aby v TabControl1 byly videt pouze komponenty z
fmMainPage1?

Milos Skacel

Prepinani parent ...

[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 24.6.1998 09:37:07

Haj hou!

Hod kontroly na panel s Align = alClient a presmeruj Parent onoho panelu.

>Pri prepinani zalozek se vytvari konkretni fmMainPageX
>a nastavi se vlastnost Parent. Pokud se to udela nasledovne
>
>procedure TfmMainPage1.FormCreate(Sender: TObject);
>begin
> Parent:=fmMain.TabControl1
>end;
>
>tak se v TabControl1 objevi cely formular TfmMainPage1- to je nezadouci.
>Jak to udelat, aby v TabControl1 byly videt pouze komponenty z fmMainPage1?

Zacatecnicka rada

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 24.6.1998 09:42:36

Najjednoduchsie bude pre teba asi pouzit DBF alebo paradox tabulky a to s DBgrid komponentom, tora umoznuje zobrazenie,editovanie mazanie viet.
Pokukaj si nejake jednoduche aplikacie v Demo adresary.


----------
> Od: East Trading Company s.r.o. <vit(zv)ardo(tec)cz>
> Pre: delphi(zv)pinknet(tec)cz
> Predmet: Zacatecnicka rada
> D�tum: 24. j�n 1998 9:08
>
> Zdravim vsechny programatory!
>
> Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi programky
> typu mluvici kalkulacka, hodiny atd. :)))))
>
> O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
> jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se vede
> informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
> vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
> Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
> komponenta s hotovymi vecmi jako napr.
> NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
> Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
> kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale doufam
> ze pochopite, ze kazdy jednou zacina...
>
> Svatopluk Vit
> spr.poc.site
> East Trading Company s.r.o.
> Karvina
>
>

Neviditelne okno

[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 24.6.1998 10:02:08

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Caute !
Potrebujem poradit v nasledujucej veci. Pre svoju aplikaciu musim zostrojit jedno neviditelne okno, ktore by sa nachadzalo nad vsetkymi spustenymi aplikaciami vo WIN95 a nevim ako na to ( jedna sa mi v podstate o priesvitne okno ). Ak niekto viete ako take okno zostrojim dajte mi vediet.
Dik

Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk


Chyba EAccessViolation ... in module IDPDX32.DLL

[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 24.6.1998 10:09:40

> Ja vim, ze je to odkazem na ukazatel, ktery je NIL. Problem je v tom, ze
> vetsinou tuto chybu vyhodi Muj program, ale to uvedene DLL je z BDE a ode
> mne by se to asi melo dostat do BDE pres odkaz na neotevrenou tabulku.
> Takova vsak nemuze byt, kdyz ze vsech tabulek vidim spoustu udaju. Ke vsemu
> jsem to nekolikrat debugoval a nic.
>
> Juraj Nagy
>

Fakt nevim. Do databazi skoro vubec nevidim. Ale nemuze byt chyba
nekde uplne jinde?
Nedavno jsem mal totiz ve svem programu problem s ukazatelem, ktery
se zniceho nic zmenil a ja jsem vubec nevedel proc. A pokazde nekdy
jindy. A pak jsem uplnou nahodou prisel na to ze si ho prepisuju sam
protoze ve statickem poli o 20 prvcich pisu do 21. Samozrejmne range
checking jsem zapnuty nemel, takze jsem to zjistil az po dlouhe dobe
uplnou nahodou.
Nerikam ze tvuj problem je stejny, jenom bych se zkusil presvedcit,
jestli ta chyba nemuze byt podobne nekde uplne jinde.
A zkusil bych si to odkrokovat i dodavanych unitach.
Ahoj Pavel

-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------


InstallShield Delphi Edition

[*] Vesna <veselyt(zv)sagas(tec)cz> - 24.6.1998 10:18:28

Ahoj delfini,

Chtel jsem se zeptat, jestli mate nekdo zkusenosti s InstallShield Delphi
Edition. Presneji: chtel bych se zeptat, jestli jdou delat scripty (zda se
mi ze se musi koupit plna verze) a jestli nemate nekdo pocestenou verzi.
Pripadne jak osetrit seriove cislo???

Diky za odpoved.

Vesna, SagaS


dll knihovny

[*] Vesna <veselyt(zv)sagas(tec)cz> - 24.6.1998 10:19:58

Primo v delphi mas ukazku jak udelat DLL a jak ji volat.
Dalsi ukazky na sunsite.mff.cuni(tec)cz/delphi nebo na sunsite.icm.edu.pl/delphi

S pozdravem
Vesna

-----P�vodn� zpr�va-----
Od: Ondrej Valentik <valeon(zv)svatava.guh(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 23. �ervna 1998 15:10
P�edm�t: dll knihovny


>Ahoj lidi!
>
>V Delphi toho moc neumim, a proto bych potreboval velmi poradit, jak
>udelat dll knihovnu (z napovedy jsem toho moc nezjistil).
>
> Diky
>

Zacatecnicka rada

[*] tomas gurny <tgurny(zv)finaldim(tec)cz> - 24.6.1998 10:19:59

>...Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
>jako databaze. ... Chtel bych radu, jak to udelat v Delphi.
>Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
>komponenta s hotovymi vecmi jako napr.
>NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....


Ahoj,
Delphi nabizi velmi silne nastroje pro databaze. Komponenty pro praci
s databazi najdes v zalozkach 'DataAcces' a 'DataControl'.
Zkusim dat dohromady strucny navod na vyvoj DB aplikace.
1) v programu BDE Config vytvor novy alias (na ten se budes odkazovat)
a zapis, kde bude tvy databaze umistena

2) pomoci programu Database Desktop (vse je soucast Delphi) vytvor
novou databazi. Pri ulozeni ji nezapomen priradit spravny Alias

3) v Delphi zaloz novy projekt. Uloz ho.

4) na Form umisti komponenty Table a DataSource z zalozky DataAccess

5) v komponente Table nastav vlastnost DatabaseName. (v ComboBoxu najdes
seznam Aliasu zapsanych v BDE Config). Vyber alias tve databaze

6) v komponente Table nastav vlastnost TableName (tva databaze muze byt
slozena z vice tabulek)

7) v komponente DataSource nastav vlastnost DataSet na Table1 (pokud jsi
nezmenil
jmeno komponety Table)

8) nyni mas pripraven pristup k tve databazi a muzes zacit na Form umistovat
vizualni komponenty ze zalozky DataControls.
Napr: umisit na form komponentu DBGird. Nastav jeji vlastnost DataSource na
DataSource1
(Tim komponetu pripojis k datum) atd.

9) v okamziku, kdy nastavis v komponente Table1 vlastnost Active na True -
budes videt
data (i ve fazi navrhu!!!).

10) Vkladani zaznamu atd resi komponeta DBNavigator (zase ji musis pripojit
k datum
pomoci nastaveni parametru DataSource).

To je asi tak nejrychlejsi zpusob jak vytvorit DB aplikaci. Ovsem aplikace
je jen VELMI jednoducha - pokud chces vylepsit (resit ochranu dat, osetreni
vyjimek ...) cekaji
te dlouhe noci. Delphi sice umoznuje rychly start, ale proniknout do vsech
moznosti ktere
nabizi neni trivialni (alespon moje zkusenosti).
Je tady jeste jeden problem - distribuce takove aplikace. Musis krome
databze a EXE
souboru distribuovat jeste BDE (Borland Database Engine). Ovsem to je
kapitola sama pro sebe
Hodne stesti
Tomas Gurny
tgurny(zv)finaldim(tec)cz

QuickReport a Delphi 1.02

[*] Vesna <veselyt(zv)sagas(tec)cz> - 24.6.1998 10:23:22

Presne tak, K-cko je posledni verze a pry by mela ted brzy vyjet nova.

Vesna

-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 23. �ervna 1998 22:52
P�edm�t: RE: QuickReport a Delphi 1.02


Pismeno za cislem je taky poradi? Pokud mam 2.0J, je starsi nez ta tvoje?

Kupka Lubom�r
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
----------------------------------------------------------------------------
---------------------------------

-----P�vodn� zpr�va-----
Od: Vesna [SMTP:veselyt(zv)sagas(tec)cz]
Odesl�no: 23. �ervna 1998 9:44
Komu: DELPHI Distribution List
P�edm�t: Re: QuickReport a Delphi 1.02

Posledni verze je 2.0K. Nevim, jak jste objednavali QuickReport, ale asi po
inetu. QuSoft Vam poslal heslo pro volne upgrady, ktere jsou na jejich
strance stazitelne (www.qusoft.com ). V pripade problemu mailuj
sales(zv)qusoft.com.

Zacatecnicka rada

[*] Vesna <veselyt(zv)sagas(tec)cz> - 24.6.1998 10:26:27

Podivej se na ukazky v delphi s databazema a podle nich zacni. Pak ti muzem
pomoct pri konkretni veci, ale vsechno chce svuj cas.

Vesna, SagaS

-----P�vodn� zpr�va-----
Od: East Trading Company s.r.o. <vit(zv)ardo(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 24. �ervna 1998 9:26
P�edm�t: Zacatecnicka rada


>Zdravim vsechny programatory!
>
>Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi
programky
>typu mluvici kalkulacka, hodiny atd. :)))))
>
>O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
>jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se
vede
>informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
>vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
>Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
>komponenta s hotovymi vecmi jako napr.
>NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
>Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
>kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale
doufam
>ze pochopite, ze kazdy jednou zacina...
>
>Svatopluk Vit
>spr.poc.site
>East Trading Company s.r.o.
>Karvina
>
>

Promena DFM v TXT a naopak

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 24.6.1998 10:26:25

Je to vlastne program Convert.Exe

var
xxx : TStream;
yyy : TStream;
begin
xxx := nil;
yyy := nil;
try
try
xxx := TFileStream.Create( ParamStr(1), fmOpenRead );
yyy := TFileStream.Create( 'OUTPUT.TXT', fmCreate );
except
WriteLn( 'Failed creating OUTPUT.TXT' );
exit;
end;
ObjectResourceToText( xxx, yyy );
finally
xxx.Free;
yyy.Free;
end;
end;

Deklarace v Classes

procedure ObjectResourceToText(Input, Output: TStream);
procedure ObjectTextToResource(Input, Output: TStream);

Vedeli jste to? Ja ne :-(

Martin Nedopil
nedopil(zv)eskon(tec)cz
nedopil(zv)geocities.com
Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260

Zacatecnicka rada

[*] Pavel Kral <kral(zv)afx(tec)cz> - 24.6.1998 10:45:54

Zdravim Vas,
neni duvod se stydet, radi Vam tu poradime.
Pro praci s databazemi je Delphi primo delane.
Muzete pouzit komponentu TTable nebo TQuery v zalozce Data Access.
TTable je primo napojena na tabulku databaze, TQuery pres SQL dotaz

Ty maji metody jako First, Next, Eof, Bof, Last atd.
Zobrazit hodnoty z databaze muzete s pomoci komponent v zalozce
Data Controls. Nejlepe je asi zacit s TDBGrid - mrizka, ktera zobrazuje
vsechna nebo jen zvolena pole z tabulky.
Pro zobrazeni zaznamu je zapotrebi pouzit jeste komponentu
Datasource ze zalozky Data Access, ktera zprostredkovava spojeni mezi
TTable nebo TQuery a mezi prvky Data Controls.
Komponenty TTable, TQuery, TDatasource muzete umistit bud na formular
nebo do datoveho modulu.

Podivejte se na priklady do adresare Demos\DB

TTable se napojuje na databazi pres vlastnost DATABASENAME
a na jeji tabulku pres vlastnost TableName
Dulezita je vlastnost Active, ktera udava, zda je tabulka otevrena.

TDatasource se napojuje na TTable pres vlastnost DATASET,
kde se uvede nazev komponenty TTable,

TDBGrid se napojuje na TDatasource pres vlastnost Datasource

hodne zdaru

Pavel Kral, Jesenik

-----Original Message-----
From: East Trading Company s.r.o. <vit(zv)ardo(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 24. �ervna 1998 9:20
Subject: Zacatecnicka rada


>Zdravim vsechny programatory!
>
>Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi
programky
>typu mluvici kalkulacka, hodiny atd. :)))))
>
>O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
>jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se
vede
>informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
>vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
>Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
>komponenta s hotovymi vecmi jako napr.
>NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
>Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
>kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale
doufam
>ze pochopite, ze kazdy jednou zacina...
>
>Svatopluk Vit
>spr.poc.site
>East Trading Company s.r.o.
>Karvina
>
>
>

Zacatecnicka rada

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 24.6.1998 11:22:22

Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji freewarovou
verzi a zajimala by mne jedna vec. Pokud chci nacitat z modemu, musim to
delat pres event. Ja ale chci mit funkci, napr.
ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny retezec,
popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?

Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019


GIS Engine

[*] Ladislav Bohun <bohun(zv)vuje.sk> - 24.6.1998 11:42:03



Miroslav BALAZ wrote:

> 1. MapObject, alebo
> 2. MapObjectLT od firmy ESRI.
>
> ESRI je na internete, volakedy bola k dispozicii trial verzia MapObjectLT.
> Obidve su OCX enginy pre VB, C, ale aj pre Delphi.
> MapObjectLT som testoval je OK - ale vhodny len pre jednoduche ucely.
> Plna verzia sa zda byt velmi silny nastroj.
> Cena LT cca 10 000 Sk - neobmedzene sirenie, plna verzia cca 100 000 Sk ta
> zahrnuje aj 10 licencii.
> Zastupenie ESRI na Slovensku - firma CAADG - sidlo Bratislava - pan. Ing.
> A. Priesol
>

Vsetko suhlasi az na nazov firmy zastupujucej ESRI na Slovensku - je to ArcGeo
Information Systems. Tel. na p. Priesola je 07/ 5787 313.
V Cechach je to prazska firma ArcData - pan P. Seidl, 02/ 2491 1308.
Inak - solidne informacie o oboch vyssie uvedenych produktoch mozno ziskat na
http://www.esri.com. Odtial je mozne stiahnut si "evaluation copy" a pripadne aj
priklady pouzitia.
Co sa tyka ceny, tych 100 000 Sk je za plnu vyvojarsku verziu, ktora obsahuje aj
10 licencii na sirenie vzniknutych aplikacii. Kazda dalsia licencia vyjde na cca
3000 Sk.

S pozdravom ;)

Ladislav


***************************************************************
* Ladislav Bohun
*
* VUJE TRNAVA a.s.
* (Vyskumny ustav jadrovych elektrarni Trnava a.s.)
* Oddelenie pre riadenie krizovych situacii a hodnotenie rizika
*
* Okruzna 5, 918 64, TRNAVA, SR
*
* Tel.: +421 805 569 425, Fax: +421 805 569 169
* bohun(zv)vuje.sk
***************************************************************

OFF TOPIC: MSSQL Server: Index skryje vety

[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 24.6.1998 12:05:55

Taky neporadim ;-). Jen bych opet upozornil na existenci Service Packu
(a to jiz verze 4) pro MS SQL. Nepises, jestli ho mas nainstalovany.
Pokud ne, treba to pomuze...

Mac

Pavel Klimes wrote:
>
> Dobreho dne.
>
> Omlouvam se za off topic.

directx pod NT

[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 24.6.1998 12:07:45

Taky mam ten pocit ze DX5 pro NT existuje, ale co vim tak pouze pro
anglicke NT. Alespon pro W95 je nutno rozlisovat jazykove mutace DX.

Mac

voltrr1.epr(zv)mail.cez(tec)cz wrote:
>
> Nova zprava:
> Nazdar,existuje soubor nt4dx5 ktery obsahuje knihovny DX5 ktere jedou pod
> NT4. Pokud jej nenajdes muzu ti jej poslat ale mapres 2MB.Radek
> Voltrvoltrr1.epr(zv)mail.cez(tec)cz


Apollo a DBlookupCombo

[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 24.6.1998 12:32:00

Ahoj


v Delphi misto BDE pouzivam Apollo a nejde me nastavit DBLookupComboBox tak
aby zobrazoval polozky setridene podle abecedy. Pokud pouziju BDE tak
vsechno funguje.
Uzivatele Apolla nevite nahodou kde delam chybu - ozvete se jake mate
skusenosti.

pouzivam D 3 Apollo 4.03 NT 4.0 CZ SP3


M. Cipel

Resource WorkShop ???

[*] Vesna <veselyt(zv)sagas(tec)cz> - 24.6.1998 12:39:38

Ahoj,
chtel jsem se zeptat jestli nekdo nevi jestli existuje neco jako Resource
WorkShop (a kde), ale s vlastnostma W95. Potrebuji prepsat v DLL dialog, ale
cestina pak nefunguje kdyz pouziju WorkShop.
Mam Resource Workshop verzi 4.5. Je snad novejsi? Jina moznost jak to
udelat?

Jeste jedna vec, pred casem jsem nekde videl programek, ktery vytahl z DLL
funkce a procedury a vlastne me udelal interface k teto dll. Bohuzel ho
nejak nejsem schopen najit. Nevite kde je?

Diky moc za vsechny namety.

Vesna, SagaS


CPL

[*] Ing. Lud�k Florian <bluerose(zv)pce(tec)cz> - 24.6.1998 12:49:42

Cauec vsichni,

nevi nekdo, co je to za soubory CPL (ovladaci panely) a jak je v Delphi
vytvorit ?

Nekde jsem kdysi cetl, ze se jedna o prejmenovane DLL soubory, ale nejak se
nedari...


Bye Ludan

ludan(zv)bluerose(tec)cz

IPX

[*] Jirka Stepanek <pavoocek(zv)usa(tec)net> - 24.6.1998 12:51:34

Zdravim vsechny Delphisty,
potreboval bych nejaky unit pro komunikaci v prostredi IPX nebo SPX
(Novell,W95 apod.)
Muze mi nekdo pomoct?

Pavook

Neviditelne okno

[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 24.6.1998 12:54:31

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Potrebujem zachytavat pohyb mysi a klikanie tlacitok mysi
-----P�vodn� zpr�va-----
Od: Marcel Telka <marcel(zv)Vadium.Sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 31. j�l 1998 12:46
P�edm�t: Re: Neviditelne okno


A na co to potrebujes?

M.T.
-----Original Message-----
From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 31. j�l 1998 12:34
Subject: Neviditelne okno


Caute !
Potrebujem poradit v nasledujucej veci. Pre svoju aplikaciu musim zostrojit jedno neviditelne okno, ktore by sa nachadzalo nad vsetkymi spustenymi aplikaciami vo WIN95 a nevim ako na to ( jedna sa mi v podstate o priesvitne okno ). Ak niekto viete ako take okno zostrojim dajte mi vediet.
Dik

Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk


meno pracovnej skupiny ?

[*] Bielik Marian <bielik(zv)basl.sk> - 24.6.1998 13:02:37

Ahoj vsetcia !

Vie niekto ako najjednoduchsie zistim do akej "pracovnej skupiny" v
sieti masina
patri. Nejaku obdobu k GetUserName.

Dik .

Marian.

ovladani modemu

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.6.1998 13:30:52

VTech Kavan wrote:

> ja pouzivam pro ovladani modemu unit ktery jsem pripojil k mailu.

No, AsyncPro je na rozdil od teto unitky komplexnejsi, podporuje radu
protokolu, je postavena z komponent (takze se s tim lip pracuje) a
jsou ke vsemu zdrojaky.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Program ZADARMO

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.6.1998 13:30:52

Krayzel Libor wrote:

> > Jazykovy Lokalizator, do FREEWARE.
>
> prosimte nakopni me. Stahl jsem si free Lokalizator a snazim se s
> nim pracovat. Otevru si *.DPR, pocestim si retezce a zkompiluji. Ale
> jaxi mi unika co dal. Porad prosim (klidne muzes pouzivat i
> nespisovna slova;-))

No, kdyz selzou vsechny pokusy, je na case si precist navod. Radeji
nez DPR doporucuji lokalizovat primo EXE. Rozdil je v tom, ze EXE
obsahuje uz vsechny resourcy, kdezto pri lokalizaci DPR se muze stat,
ze nektere formulare i resourcy (to je, myslim, nespisovne? :) s
texty jsou ulozene nekde mimo, v knihovnach komponent (typickym
pripadem je QReport) - z tohoto duvodu jsem lokalizaci z DPR v
novejsi verzi vyhodil. Podminkou samozrejme je, ze po lokalizaci se
nesmi program jiz kompilovat (resp. po kompilaci se musi lokalizovat
znovu, z duvodu prirazeni jinych cisel resourcestringum
kompilatorem).

Po lokalizaci (do cestiny, napr.) se vytvori soubor <program>.csy,
ktery se prida k puvodnimu programu. Po spusteni programu dojde k
tomu, ze program si natahne resourcy z tohoto externiho souboru a
pracuje s nimi. Takze pokud pocestis jen zalozku DRC, budou se ti
ukazovat systemova hlaseni knihoven cesky (priklad: misto File not
found se objevi Soubor nebyl nalezen, atp.). Podminkou pri tom je,
ze program musi byt napsan v Delphi 3 nebo C++B 3 a ze musi byt
nastavene ceske prostredi ve Windows. Jinak je nutno pouzit unitu
Transl.pas, pomoci ktere se zavede vyber jazyku (lokalizaci), ktere
jsou k dispozici, do menu, ze ktereho si uzivatel muze vybrat.
Programy psane v Delphi 2 umi lokalizovat az verze 3.5 (lokalizuje
se pod NT), a mam uz hlasku, ze D4 lokalizovat nelze, asi ma neco
noveho v DFM, takze to bude soucasti nejakeho dalsiho update.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Zacatecnicka rada

[*] Petr Brant <pbrant(zv)softhome(tec)net> - 24.6.1998 13:30:44



-----Puvodni zprava-----
Od: East Trading Company s.r.o.
Odeslano: 24. eervna 1998 9:09
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Zacatecnicka rada

Zdravim vsechny programatory!

Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi
programky
typu mluvici kalkulacka, hodiny atd. :)))))

O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se
vede
informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
komponenta s hotovymi vecmi jako napr.
NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale
doufam
ze pochopite, ze kazdy jednou zacina...

Svatopluk Vit
spr.poc.site
East Trading Company s.r.o.
Karvina


[Petr Brant]
Spolecne s instalaci Delphi 3.0 je na CD take instalace Delphi 1.0 a v
adresari tusim DOC nebo snad MANUALS je nekolik souboru PDF. Databazemi se
zabyva DBDESKUG.PDF. Je to citelne Acrobat Readerem, staci verze 2.1.
Jestli budes chtit, muzu ti PDF poslat (cca 1.3 MB).

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************

Prepinani parent ...

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 24.6.1998 13:33:34


procedure TfmMainPage1.FormCreate(Sender: TObject);
var i: integer;
begin
for i:=0 to componentCount-1 do // pridelit parenta kazdemu prvku
formulare
begin
if Components[i] is TWinCOntrol then
TWinControl(Components[i]).Parent:= fmMain.TabControl1;
end;
end;

Ahoj,

problem je nekde jinde. Totiz v tom, ze se zobrazi formular TfmMainPage
uvnitr TfmMain. Cilem je zobrazit pouze jeho obsah v zalozce, tj. bez ramecku,
titulku atd.
Navic vyse uvedene smycka se da nahradit pouzitim panelu na TfmMainPage
a ve FormCreate provest paAllPage.Parent:=fmMain.TabControl.

Milos Skacel


InstallShield Delphi Edition

[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 24.6.1998 13:54:14


Ahoj,

zatim pouzivame pocestenou verzi od f. Sinea.
Ale ma 'mouchy' a podle reakci f. Sinea neni jasne jak moc vazne to berou.

Instala�n� program na Win NT pou�ije misto Program Files
lokalizovan� n�zev 'Programov� soubory' :), ale na Win95 spr�vn� Program Files
Jednou to p�e Serial a podruh� Licence, atd.

P�i definici insta�n�ho skriptu lze zadat zobrazen� dialogu pro UserName,CompanyName a SerialNo.
Tyto informace instala�n� program ulo�� do registr�.

Lze definovat Custom,Typical,Compact typy instalac�.
Nekdy mi stava, ze skript 'neudrzi' informaci, ze mnou definovana slozka instalace (Components)
BDEFiles obsahuje skupiny (Groups) BDE/IDAPI Files,BDE/IDAPI CNF File,BDE/IDAPI BLL Files
a je potreba toto prirazeni definovat znovu a znovu ...

Docela by me zajimalo, jake moznosti navic (krome toho ze to funguje OK)
nabizi vyssi verze.

Milos Skacel

OpenDialog

[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 24.6.1998 14:43:18

Ahoj vsem!
Na uvod dekuji tem kdoz se ozvali ohledne problemu s ukladanim
vlastnosti objektu.

A ted bych mel jednu otazku ohledne OpenDialogu.
Mam MDI aplikaci na prohlizeni grafu. Pres OpenDialog si vyberu
soubor s daty ktere chci v grafu zobrazit a u Child oken v OnCreate
zalozim object pro zobrazovani, otevru soubor, nactu data a nastavim
vlastnosti onoho zobrazovaciho objektu podle posledniho nastaveni
pred zavrenim. Tyto vlastnosti jsou ulozeny v souboru se stejnym
jmenem jako ma datovy soubor ovsem s jinou priponou.

V cem je problem. Pokud pri vyberu souboru v OpenDialogu kliknu na
tlacitko [ Otevrit ], vse je OK. Ovsem pokud provedu otevreni
doubleklikem na jmeno souboru (v OpenDialogu), tak nastaveni
zobrazovaciho objektu neodpovida ulozenemu nastaveni, a pokud
oteviram soubor poprve (zde se nastavuji nejake defaultni hodnoty),
tak ani ty neodpovidaji.
A kdyz jsem program krokoval tak v obou vyse uvedenych pripadech bylo
vse v poradku.

Myslim si ze problem nastava nekde pri predavani parametru jmena
souboru. Nenapadlo mne totiz nic rozumnejsiho nez pred volanim
konstruktoru Child okna ulozit jmeno souboru do promenne hlavniho
okna a pak se na nej dotazovat v metode OnCreate. Ale co mi neni jasne
je proc se to chova dvema ruznymi zpusoby pri vyberu souboru.

Dekuji za kazdou radu
Pavel


-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------


InstallShield Delphi Edition

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.6.1998 15:38:07

> Chtel jsem se zeptat, jestli mate nekdo zkusenosti s InstallShield Delphi
> Edition. Presneji: chtel bych se zeptat, jestli jdou delat scripty (zda se
> mi ze se musi koupit plna verze) a jestli nemate nekdo pocestenou verzi.
> Pripadne jak osetrit seriove cislo???

Jestli tim Delphi Edition myslis InstallShield Express, ktery je
u Delphi, tak to neni zadna slava. Umi to opravdu jen to zakladni,
co je nutne pro instalaci programu, tedy nakopirovat soubory,
zaregistrovat DLL/OLE/COM, vytvorit zastupce, napsat neco do
registru a to je temer vsechno, nepocitam-li jeste nekolik
drobnosti. Pocestili do hosi z firmy Sinea. Pokud ale chces opravdu
nejaky solidni instalacni program, neni to prave orechove, pak
si musis poridit treba InstallShield 5.1 Professional nebo WISE.
Skoda, ze Eschalon Setup koupili Microsofti, protoze to bylo delo
za velmi slusne penize. Ostatni jsou dosti drahe a vyplati se
jen, pokud opravdu delas programy ve vetsim mnozstvi a vydelava
ti to.

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

InstallShield Delphi Edition

[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 24.6.1998 16:15:54

On Wednesday, June 24, 1998 10:18 AM, Vesna [SMTP:veselyt(zv)sagas(tec)cz]
wrote:
> Edition. Presneji: chtel bych se zeptat, jestli jdou delat scripty
Domnivam se ze nejdou - je to predevsim Express Edition :))

Tomas


custom open dialog + TDBGrid

[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 24.6.1998 16:39:47

Ahoj,

snazim sa vytvorit potomka TOpenDialog s pouzitim panelu, na ktorom
chcem zobrazit DBGrid. Pozrel som si zdrojak TOpenPictureDialog a robim
to podobne. V konstruktori si vytvorim Panel, DataSet, DataSource, a
DBGrid, ktoremu priradim Panel ako Parent (a samozrejme Align :=
alClient). V DoShow potom priradim FPanel := Handle.

Pri zobrazeni je vsetko O.K., kym nepresuniem focus na ten DBGrid. V tom
okamihu dostavam hlasku 'Control _xy_ has no parent window'. Pozrel som
sa do zdrojakov VCL a nasiel som tam TCustomDBGrid.DrawCell, ktory
kontroluje ci v retazi parentov je potomok TCustomForm inak hodi tuto
hlasku. Cize, inak povedane, TDBGrid vyzaduje, aby bol umiestneny na
formulari. To v mojom pripade neplati, kedze moj parent je non-VCL
window vytvoreny Windows pomocou API funkcie GetOpenFileName (v
TOpenDialog.DoExecute).

Prebehli tu diskusie o tom, ako umiestnovat formulare do inych
formularov tusim pomocou nastavenia Parent, ak je to ono, prosim o maly
priklad.

Velmi budem vdacny za akykolvek napad a radu.

Ondrej Kelle
kelleon(zv)nnsk.sk


Zacatecnicka rada

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.6.1998 16:52:07

>Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji freewarovou
>verzi a zajimala by mne jedna vec. Pokud chci nacitat z modemu, musim
to
>delat pres event. Ja ale chci mit funkci, napr.
>ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny
retezec,
>popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?


no tak se bav primo se seriakem via CreateFile a ReadFile, WriteFile.
Jednina milkno narocnejsi vec je vyznat se v DCB strukture a spravne ji
vyplnit - i kdyz i to se da obejit tim, ze si nastavis seriak pomoci
Windows dialogu....

Zdravi
D. Toman

InstallShield Delphi Edition

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.6.1998 20:03:27

Vesna wrote:

> ... InstallShield Delphi Edition. ... a jestli nemate nekdo
> pocestenou verzi...

Prave delam na funkci Lokalizatoru, ktera bude umet i toto.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Zacatecnicka rada

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.6.1998 20:10:54

> Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji freewarovou
> verzi a zajimala by mne jedna vec. Pokud chci nacitat z modemu, musim to
> delat pres event. Ja ale chci mit funkci, napr.
> ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny retezec,
> popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?

1. Async Professional nema zadnou freeware verzi, je to komercni produkt,
zrejme mas trial verzi - to je trochu rozdil.

2. Async Professional jsou zalozeny architekture rizene udalostmi, coz
ale neni nevyhoda, naopak, je to velke plus, protoze nemusis prave delat
to, co chces, ze cekas na naplneni retezce a pritom je program zatuhly.
Nicmene neni problem udelat to, co chces, udelas si obsluhu te udalosti
a budes znaky pridavat do nejakeho stringu. Kdyz uz si myslis, ze je
to cely retezec, tak nastavis nejakou jinou promennou. No a pak z tela
procesu budes jen cekat, az se ta promenna nastavi, pripadne bude
time-out, no a budes volat ProcessMessages...

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

QuickReport a Delphi 1.02

[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 24.6.1998 20:53:33

> Presne tak, K-cko je posledni verze a pry by mela ted brzy vyjet nova.
>
> Vesna
>
> Pismeno za cislem je taky poradi? Pokud mam 2.0J, je starsi nez ta tvoje?
>
> Kupka Lubomor
> ----------------------------------------------------------------------------
> Posledni verze je 2.0K. Nevim, jak jste objednavali QuickReport, ale asi po
> inetu. QuSoft Vam poslal heslo pro volne upgrady, ktere jsou na jejich
> strance stazitelne (www.qusoft.com ). V pripade problemu mailuj
> sales(zv)qusoft.com.
>

Srdecne zdravim,
zkousel jsem se divat na www.qusoft.com, nasel jsem patricne verze,
bylo tam take napsano, ze to je quickreport pro delphi, ale kdyz to
chci stahnout, chce to ode mne heslo.

KDE TO HESLO ZISKAM ?

Jen mi nepiste ze v manualu, tam jsem ho nanasel.


S pozdravem Zdenek
---------------------------------------------------------
: o__o Zdenek Sraier sraierzd(zv)czn(tec)cz :
: ( o o) users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske www.byll(tec)cz/scuba/ :
---------------------------------------------------------
This message was delivered using 100% recyclable electrons.

Zacatecnicka rada

[*] Petr Kandera <p_kandera(zv)usa(tec)net> - 24.6.1998 21:00:17

Kolar Lubor wrote:
>
> Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji freewarovou
> verzi a zajimala by mne jedna vec. Pokud chci nacitat z modemu, musim to
> delat pres event. Ja ale chci mit funkci, napr.
> ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny retezec,
> popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?
>
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019

Pokud se chces vyhnout eventum a podle vseho zrejme cekat na urcity
string, jde to s pouzitim dvou metod komponenty TApdComPort:
WaitForString nebo lepe WaitForMultiString, kde se da zadat i timeout a
i to, jesli se maji zpracovavat ostatni message mezitim, nez vyprsi
timeout, jestli to ma reagovat na velka a mala pismena atd. Sice firma
TurboPower pouzivani nedoporucuje (preferuje eventy), ale ty procedury
chodi dobre (odzkouseno). Jinak, ale ovladani modemu v AsyncPro pres
TApdModem a eventy je urcite vyhodnejsi.

Petr Kandera
p_kandera(zv)usa.net


InstallShield Delphi Edition

[*] �ke��k Jaroslav�������6�����̿ - 25.6.1998 01:44:37

Ta lokalizace je kompatibilni i pro InstallShield 5.1 Professional.

Myslim, ze pro bezne instalace programu
vytvorenych v Delphi staci ten Express.
Urcita vyhoda je i v tom, ze tam mate zahrnut tez
pruvodce pro instalaci BDE a SQL links.

Ty "mouchy" o kterych pise Milos Skacel
se tykaji jen Win NT a da se to snadno obejit.
Jsou to spise prkotiny a zatim to nestalo za
pracne predelavani. Lokalizace by se musela udelat znova.
Cekali jsme proto az na novou verzi s Delphi 4,
kde se to opravi.

Mozna vsak nebudeme novou verzi muset
delat vubec.
Pokud Zbysek Hlinka dokonci svuj novy lokalizator,
tak to asi pujde snadneji s tim jeho lokalizatorem.
Uvidime, jak se to vyvine.

Soucasna lokalizovana verze funguje uz bezmala rok
a myslim, ze je s ni spokojenost.
Jaro

SINEA software telefon: 0446/612468
Ing. Jaroslav Skerik e-mail: sinea(zv)sinea(tec)cz
Tylova 957 privat: jaro(zv)sinea(tec)cz
564 01 ZAMBERK http://www.sinea(tec)cz/

-----------------------------------------------------
> Chtel jsem se zeptat, jestli mate nekdo zkusenosti s InstallShield Delphi
> Edition. Presneji: chtel bych se zeptat, jestli jdou delat scripty (zda se
> mi ze se musi koupit plna verze) a jestli nemate nekdo pocestenou verzi.
> Pripadne jak osetrit seriove cislo???

Jestli tim Delphi Edition myslis InstallShield Express, ktery je
u Delphi, tak to neni zadna slava. Umi to opravdu jen to zakladni,
co je nutne pro instalaci programu, tedy nakopirovat soubory,
zaregistrovat DLL/OLE/COM, vytvorit zastupce, napsat neco do
registru a to je temer vsechno, nepocitam-li jeste nekolik
drobnosti. Pocestili do hosi z firmy Sinea. Pokud ale chces opravdu
nejaky solidni instalacni program, neni to prave orechove, pak
si musis poridit treba InstallShield 5.1 Professional nebo WISE.
Skoda, ze Eschalon Setup koupili Microsofti, protoze to bylo delo
za velmi slusne penize. Ostatni jsou dosti drahe a vyplati se
jen, pokud opravdu delas programy ve vetsim mnozstvi a vydelava
ti to.

S pozdravem
Petr Zahradnik, pocitacovy expert

==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================

Paleta komponentov

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 25.6.1998 06:20:52

> Zdravim,
>
> taka somarina, ale uz mi to lezie na nervy.
> Neviete niekto ako mozete pri editacii palety komponentov (chcem
> poprehazdovat komponenty medzi zalozkami, niektore zneviditelnit ...)
> rychlo najst ten komponent ktory chcem ? Ak dam zobrazit vsetky, je
> ich tam kopa a strasne tazko sa mi tam hlada. Alebo ako to zotriedit,
> resp., podla coho je to tam usporiadane ?
>
> Dakujem.

Ak mas D3, tak cez menu Project/Option/Packages sa daju odskrtat vybrane komponenty.
Myslim, ze by to mohlo ist aj s instalovanymi komponentamy.
V D1,D2 :-(?

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk


Zacatecnicka rada

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 25.6.1998 06:57:12

Nazdar!

Este by som Ta chcel upozornit na Form Wizarda, ktory Ti pomoze interaktivne
vytvorit databazovy formular. V D3 je v menu cez Database\Form Wizard.
Je to jednoduche. Zakazdym Ti da vybrat par moznosti a cez Next pokracujes az
do Final. Mozno trolinka zlozitejsie je to pri volbe Master/detail. Mozes sa
s tym pohrat.

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk

>Zdravim vsechny programatory!
>
>Zacinam v Delphi3 (predtim TP 6.0 a 7.0). Zatim zkousim jednodussi
programky
>typu mluvici kalkulacka, hodiny atd. :)))))
>
>O co jde. Potreboval bych udelat aplikaci (EXE format), ktera bude fungovat
>jako databaze. Nase firma nakupuje zbozi v Italii a o kazdem kamionu se
vede
>informace co je na ceste, kdy to prijede atd. V Excelu97 jsem udelal makro,
>vlastni formulare atd. a jede to. Chtel bych radu, jak to udelat v Delphi.
>Jake prostredky (co nejednodussi) lze pouzit? Existuje nejaky UNIT nebo
>komponenta s hotovymi vecmi jako napr.
>NactiZaznam,UlozZaznam,SmazZaznam,ZobrazZaznam....
>Delphi mam asi 14 dni a jeste jsem do nej naplno neproniknul. Dekuji za
>kazdou radu, ktera pro Vas muze byt jednoducha. Hrozne se stydim, ale
doufam
>ze pochopite, ze kazdy jednou zacina...
>
>Svatopluk Vit
>spr.poc.site
>East Trading Company s.r.o.
>Karvina
>
>
>

----------


hesla NT a MSSQL

[*] sula milos <crkstrobe(zv)geocities(tec)com> - 25.6.1998 07:49:42

Bohuzel jsem zjistil ze funkce NetUserChangePassword neni podporovana ve
win95 ale snad by to mnelo jit pomoci funkce PwdChangePassword.
-----P�vodn� zpr�va-----
Od: Vodnansky David <Vodnansky(zv)allianz(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 24. �ervna 1998 12:15
P�edm�t: RE: hesla NT a MSSQL


>Hledej v helpu k API funkci NetUserChangePassword.
>
>-----------------------------------------------------
>David Vodnansky - database analyst
><mailto: vodnansky(zv)allianz(tec)cz>
>-----------------------------------------------------
>
>> -----P�vodn� zpr�va-----
>> Od: sula milos
>> Odesl�no: 23. �ervna 1998 15:25
>> Komu: delphi konference
>> P�edm�t: hesla NT a MSSQL
>>
>> Prosim vas nevite nekdo jak zmenit heslo do site Microsoft NT a do
>> MS SQL ?
>> Mam na mysli zda neexistuje nejaka API funkce.

Zacatecnicka rada

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.6.1998 08:22:06

Kolar Lubor wrote:

> Videl jsem tu vychvalovanou komponentu ASync Pro. Mam jeji
> freewarovou verzi a zajimala by mne jedna vec. Pokud chci nacitat z
> modemu, musim to delat pres event. Ja ale chci mit funkci, napr.
> ReadModem(TimeOut:Integer):String, ktera vrati z modemu nacteny
> retezec, popr. po vyprseni timeoutu vrati ''. Vi nekdo, jak na to?

No, nevim, jestli je to spravna idea. Modem ti muze (principialne)
zacit chrlit data, a ty je musis vycitat driv, nez se ti preplni
vyrovnavaci buffer. Takze je tu reseni, ze v eventu je budes cpat do
nejakeho vetsiho bufferu (napr. TMemoryStream), a pak si je vyzobes
tvou funkci.

S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


InstallShield Delphi Edition

[*] Vesna <veselyt(zv)sagas(tec)cz> - 25.6.1998 09:27:34

Ahoj,
chtel jsem se zeptat, kde sezenu tu pocestenou verzi InstallShield Expresu,
Sinea ji nema na svych
home page.

Diky

Vesna
-----P�vodn� zpr�va-----
Od: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 24. �ervna 1998 19:34
P�edm�t: RE: InstallShield Delphi Edition


Ahoj,

zatim pouzivame pocestenou verzi od f. Sinea.
Ale ma 'mouchy' a podle reakci f. Sinea neni jasne jak moc vazne to berou.

Instala�n� program na Win NT pou�ije misto Program Files
lokalizovan� n�zev 'Programov� soubory' :), ale na Win95 spr�vn� Program
Files
Jednou to p�e Serial a podruh� Licence, atd.

P�i definici insta�n�ho skriptu lze zadat zobrazen� dialogu pro
UserName,CompanyName a SerialNo.
Tyto informace instala�n� program ulo�� do registr�.

Lze definovat Custom,Typical,Compact typy instalac�.
Nekdy mi stava, ze skript 'neudrzi' informaci, ze mnou definovana slozka
instalace (Components)
BDEFiles obsahuje skupiny (Groups) BDE/IDAPI Files,BDE/IDAPI CNF
File,BDE/IDAPI BLL Files
a je potreba toto prirazeni definovat znovu a znovu ...

Docela by me zajimalo, jake moznosti navic (krome toho ze to funguje OK)
nabizi vyssi verze.

Milos Skacel

OFF TOPIC: MSSQL Server: Index skryje vety

[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 25.6.1998 10:04:01

Dekuji za reakce k neposlusnemu indexu.
Zkusim ten Service Pack, nemam jej instalovan.

Zdravim. Pavel.

--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+

InstallShield Delphi Edition

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 25.6.1998 10:12:25

Nazdar!

Oni to robia ako sluzbu (musis mat svoj InstallShield Expres a oni Ti ho pocestia).

S pozdravom

Marek Repisky
mrepisky_zl(zv)zsnp.sk

----------
Odes�latel: Vesna <veselyt(zv)sagas(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
P�edm�t: Re: InstallShield Delphi Edition
Datum: 25. j�n 1998 9:27

Ahoj,
chtel jsem se zeptat, kde sezenu tu pocestenou verzi InstallShield Expresu,
Sinea ji nema na svych
home page.

© Delphi.cz, program netcode.cz, 2008-9.