Archív konference Delphi

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

Corel/Borland

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 19:44:12

Ahoj,

Nove zpravy:
http://www.borland.com/about/press/2000/inprise_corel.html

Petr Vones, amatersky programator

ADO Test

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.2.2000 19:46:10

Nevim co se ti na teto fci nelibi (jestli funguje)?
ADO (pro osobni potrebu) zjistuji na PC podle verze IE (od IE 4.neco s SP1
pro IE)

From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>> Dobry den vsem,
> na strance http://www.cybermagic.co.nz/winsoft/adofaq.htm
> je dotaz (hned ten prvni) jak zjistit, zda je nainstalovano
> ADO, ale nevim odkud se vzala ta funkce (konstatnta ?)
> GetADOVersion.
>
> Q : How do I check in my application if ADO is installed?
> A : try
> ShowMessage('ADO version ' + GetADOVersion + ' installed');
> except
> ShowMessage('ADO not installed');
> end;
>
> Vite to nekdo prosim ?
>
> Dobra.
>

Web pocitadlo

[*] Roman Fiser <rfiser(zv)leknet(tec)cz> - 7.2.2000 19:47:45

> myslim ze by to malo na standartny vystup
> poslat cestu k tomi obrazku...
> Majo

rozhodne ne. Resil sem neco podobneho v dosu:
writeln('image/gif');
writeln('');

a pak vypsat obsah souboru s obrazkem...

> >Dobry den. Delam webovsky pocitadlo.
> >Neni mi jasny, jak dostanu vygenerovany obrazek z programu.

S pozdravem,
Roman Fiser
roman(zv)management(tec)cz


Delphi 5

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.2.2000 19:57:46

TO JARO:
Prece si nedam na takovej stroj W2000 RC2 (mam 4GB s ATA33) a nebo snad jo?

M. Jirman

> Problem je v tom, ze i kdybys mel 500 MB RAM, tak pod W98
> ti to se systemovymi zdroji nepomuze. Musis si zapnout sledovani
> systemu a jak se blizis k cervene (asi 15%), tak je nutne pozavirat
> par formularu.
> Vhodnejsi je vsak prejit na lepsi wokna
>
> Jaro

On-line

[*] Va�ek N�vrat���zx"��뢖�z?� - 7.2.2000 20:48:48

Ahoj,
mas pravdu. Mam jeden komercni program (nikoliv vlastni vyroby) a tam to
resi tak, ze v nastaveni musis zadat prave tuto dobu (od vytoceni cisla po
pripojeni na net - priblizne 12 - 15 sekund). Jak program zjisti, ze uz jsi
na netu, pripocita prave tuto hodnotu.

Je to jednoduche a ucinne... :-)
Vasek Navrat
programator DiskMagu Engine


----- Original Message -----
From: Zdenek Drvota <drvota(zv)zds(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, February 05, 2000 7:28 PM
Subject: Re: On-line


ano, ale pozor, je tady jeste doba mezi okamzikem,
kdy ten druhy modem zvedne "sluchatko"
(SPT zacne pocitat cas spojeni),
a dostupnosti internetu, to tato funkce patrne
neresi, a muze to byt treba cela minuta :-((

### p. Jirman napsal dne 4 Feb 00, v 18:09 :
> From: Vojt�ch Br�zda <xbrazda(zv)gymzr(tec)cz>
>
> >Cht�l bych ud�lat men�� aplikaci, kter� by po��tala pen�n� poplatky za
> p�ipojen� k Internetu. Nev�m ov�em jak zjistit, �e >byl aktivov�n modem a
> tud�, �e mohu zapo��t s po��t�n�m.
>
> Uz se to tu jednou resilo, jestli chces zjistit jestli je PC online pouzi
> toto:
>
> M. Jirman
>
> ----- Original Message -----
> From: Va�ek N�vrat
> To: Delphi forum
> Sent: Sunday, December 05, 1999 1:23 AM
> Subject: Re: On-line
>
>
> Ahoj !
> Mam pro Tebe reseni tohoto problemu. Nasledujici funkce testne, jestli ma
> v ten okamzik pocitac umoznen pristup na Internet - myslim, ze by to melo
> fungovat se vsemi druhy netoveho pripojeni, ale na modemu to funguje 100%.
>
> Function InternetGetConnectedState (lpdwFlags: LongInt; dwReserved:
> LongInt): Boolean; stdcall; external 'wininet.dll';
>
> implementation
>
> {$R *.DFM}
>
> Function TForm1.Test_Pripojeni (): boolean;
> var Flagy: LongInt;
> begin
> Flagy := 0;
> Result := InternetGetConnectedState(Flagy, 0);
> end;
>
> {pokud funkce vrati hodnotu TRUE, pocitac je prave pripojen na Net}
>
> S pozdravem...
> Vasek Navrat
> programator diskmagu Engine
>
>


-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail

Skryti TaskBaru

[*] Va�ek N�vrat���zx"��뢖�z?� - 7.2.2000 21:07:37

Cau,
pro zmenu rozliseni pri startu aplikace pouzivam komponenty DelphiX
vyuzivajici DirectX (coz je zamer). Ovsem pri teto zmene komponenta udela
neco s chovanim Form1 a pak to nelze prekryt. Proto potrebuju schovat
TaskBar jinzm zpusobem....

Vasek Navrat

----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 01, 2000 10:28 PM
Subject: Re: Skryti TaskBaru


Ahoj,

A proc stale trvas na schovavani taskbaru, lze prece prekryt taskbar hlavnim
oknem aplikace.

Petr Vones, amatersky programator

None

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.2.2000 21:10:16

Ahoj,

Jestli ti jde o to napsat chat aplikaci, tak bych se vykaslal an WINPOPUP
a pouzil komponenty DELPHIX od jednoho japonce na adrese
http://www.ingjapan.ne.jp/hori/
je tam dokonce i priklad jedne takove (pres TCP/IP protokol)

M. Jirman

From: bohous m <bohous_m(zv)seznam(tec)cz>> Ma nekdo zkusenosti s posilanim zprav
> pres WIN POPUP?
>
> Jde mi o zasilani a prijimani zprav.
>
> Vim, ze win popup pouziva nejakou
> virtualni schranku, ke ktere pristupuje.
>
> Poradi nekdo, jak v DELPHI k tomuto
> pristupovat a jak s tim pracovat? Pouzivam
> DELPHI 4 standartni a W98 SE.
>
> dIKY
>
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
>
>

Zobrazoani obrazku v TImage

[*] Va�ek N�vrat���zx"��뢖�z?� - 7.2.2000 21:24:05

Nazdarek,
...no a to prave v Delphi 4 TImage nedela (myslim) - podle me si to
prekresluje celej canvas. Komprimaci to neni...vsechno jsem zkousel. Alespon
mam o duvod vic, proc si koupit Delphi 5 (nebo rovnou pockat na Delphi 6 ?
:-)). Nakonec jsem to vyresil tak, ze jsem to dal jako jeden GIF obrazek a v
komponente TGIFImage menim framesy - tam se to prekresluje spravne bez
"blikani"

Vasek Navrat

----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 01, 2000 10:28 PM
Subject: Re: Zobrazoani obrazku v TImage


Ahoj,

z popisu jsem pochopil, ze obrazek zobrazujes pomoci TImage. Nevim jak je to
v nizsich verzich Delphi, ale v D5 je to ve VCL udelane tak, ze pokud je
velikost TImage stejna ci mensi nez obrazku, tak se neprekresluje pozadi,
takze by ti to nemelo blikat. Dale muze byt problem v dekomprimaci JPEG,
ktera
nejaky cas trva. Zkus je dekomprimovat do bitmap a ty pak prirazovat do
TImage.

Petr Vones, amatersky programator

Zobrazoani obrazku v TImage

[*] Va�ek N�vrat���zx"��뢖�z?� - 7.2.2000 21:28:31

Nazdarek :o)
...a v tom se prave pletes. Ja jsem totiz jeste nerekl, ze pres celej
formular (jako pozadi) je natazenej JPEG obrazek 800x600, takze i pri blbem
visible je i u toho maleho TImage videt prekreslovani :-((. Muj stroj neni
sice zrovna nejrychlejsi (P166), ale chci, aby muj program fungoval i na
slabsich PC.

Vasek Navrat

----- Original Message -----
From: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 02, 2000 12:24 AM
Subject: Re: Zobrazoani obrazku v TImage


Ja bych to udelal takto:
Polozil bych dve komponenty TImage pres sebe, spodni s prvnim obrazkem
a horni s druhym obrazkem. Potom staci jenom na tom hornim prepinat
Visible false/true.
Zadne blikani ani na tom nejpomalejsim stroji.

Vaclav Krmela


query alebo table

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.2.2000 21:32:25

A pres co to je BDE, ADO ...?
Jestli mas D5Prof a vyssi je dobre pouzit TADODataset.
a jestli ne tak:
Vyhoda TQuery je ze tam muzes napr. napsat SQL prikaz a v
TTable zase napr. vytvorit vazbu Master/Detail.

M. Jirman
----- Original Message -----
From: Martin
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, February 07, 2000 7:01 AM
Subject: query alebo table


dobry,

mam databazu v Acces 97, asi 5-10 tis zaznamov. Je lepsie pouzit pristup pomocou komponentou Query alebo table ? Prip ake su vyhody a nevyhody.

Martin


Diakritika v Interbase.

[*] J�n Tungli - 7.2.2000 22:38:53

Aj ja som mal tento problem.
jedine riesenie je v SQL scripte pred Connect nastavit Set Names W1250.
napr. takto:
Set Names Win1250
CONNECT 'C:\DB\MYDB.GDB'
USER 'SYSDBA' PASSWORD 'masterkey';

....

tungli(zv)datapac.sk



----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 14, 2000 1:56 AM
Subject: Diakritika v Interbase.


Ahojte.

Mam vytvorenu databazu pomocou Create database .... default character set
win1250, v nej mam vytvorene tabulky. Ale ak chcem zadat text do field type
Char(x) ktory obsahuje nase diakriticke znamienka, tak sa vyvola chyba ze
nie je povoleny nejaky znak, odstranim diakritiku tak ho post-ne.

Preco to robi ?

Tenk j� veri ma�.

H�j. Roland Tur�an


BDE a PARADOX

[*] Lauko �tefan <lauko(zv)salamon.sk> - 7.2.2000 23:09:29

Dobry vecer,
vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe vyuzivat
len tabulky PARADOXu v D4 len TTable a TQuery.
Jedna sa o jednoduche app. Podla prvych pokusov asi staci toto:
batman.dll
idapi32.dll
idr20009.dll
idapi32.cfg

Je nieco este vo Win\system. Skusal som to tak, ze pri spustenej aplikacii
ktora vyuziva BDE - PARADOX som vymazal obsah adresara ..\BDE ostali v nom
len tie tri DLLky (system ich nedovolil vymazat). O registry by som sa
postaral.

Dakujem za kazdu uvahu.

P.S.
V jednoduchosti je krasa..., ze by to bolo take jednoduche a dokonca mensie
ako PC FAND?

distribuce dBase bez BDE ?

[*] Adler Michal <adler(zv)nex.tel(tec)cz> - 7.2.2000 23:09:39

Zdravim vespolek,
mel bych jeden dotaz tykajici se BDE. Mam jednoduchy programek, ktery
pouziva tabulky ve formatu dBase. Je to jednoducha databaze adres, telefonu
atd. Jedna se o to, ze potrebuji tento programek jednoduse sirit (bez
instalace), jenze tady narazim na problem. Vi nekdo jak obejit BDE ? Nebo
jak to udelat jinak ? Proste potrebuju aplikaci, kterou neni potreba
instalovat, nebude potrebovat zbytecne soubory okolo sebe a bude umoznovat
alespon zakladni operace s databazovymi soubory.

Za odpovedi predem dekuju.

Priamy pristup na disk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:04

From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> Mohol by mi niekto poradit, ako z Delphi pouzit priame volania BIOS-u
> (priamy pristup na disk bez pouzitia WinAPI) ?

Ahoj,

a proc se tak branis primemu pristupu pres WinAPI ?

Petr Vones, amatersky programator

Frames

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:50

From: Ing. Keder Vladim�r <keder(zv)columbex.sk>
> Mam D5 a zacal som pouzivat Frames. Vytvoril som si rozne ramce a
> potrebujem ich zobrazovat na zaklade uzivatelovho vyberu. Skusal som ho
> vytvarat dynamicky ako formulare, ale ramec sa mi nezobrazi

Ahoj,

Musis jeste priradit Parent framu, napriklad:

procedure TForm1.FormCreate(Sender: TObject);
begin
with TFrame2.Create(Self) do
begin
SetBounds(10, 10, Width, Height);
Parent := Self;
end;
end;

Petr Vones, amatersky programator

Pozice kurzoru v bunce StringGrid

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:46

From: Bran��k Pavel* <brancik(zv)let(tec)cz>
> jakym zpusobem lze zjistit aktualni pozici kurzoru v bunce StringGridu
> (ekvivalent vlastnosti SelStart v Tedit).
> Mam Delphi 4.0 standard.

Ahoj,

napriklad takhle (po stisku klavesy F5 ve StringGridu):

type
TCustomGridHack = class(TCustomGrid);

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then
with TCustomGridHack(Sender) do if InplaceEditor <> nil then
ShowMessageFmt('%d', [InplaceEditor.SelStart]);
end;

Petr Vones, amatersky programator

Disk I/O error + MS Outlook

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:01

From: <caoperator(zv)ozjc.cpost(tec)cz>
> 1. Kdyz si vytvorim formular, kde mam komponentu DriveComboBox a DirectoryListBox,
> tyto komponenty propojim mezi sebou relaci DirectoryListBox.Drive :=
> DriveComboBox.Drive, tak mi to funguje do te doby, nez se pokusim sahnout nekam, kde
> neni disk - typicky mechanika bez diskety. V tom pripade mi vyskoci oskliva hlaska, ze
> nastala vyjimka s popisem "Disk I/O error" a program se stopne. Tahle vyjimka nastane

Ahoj,

Toto muzes vyresit treba takhle:

procedure TForm1.OnAppException(Sender: TObject; E: Exception);
begin
with Application do
if (E is EInOutError) and (EInOutError(E).ErrorCode = 21) then
MessageBox('V mechanice nen� disketa.', PChar(Title), MB_ICONERROR)
else
ShowException(E);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := OnAppException;
end;

> Jakym zpusobem muzu otestovat, zda v mechanice je medium

function IsDiskInDrive(Drive: Char): Boolean;
var
OldErrorMode: UINT;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Result := DiskSize(Byte(UpCase(Drive)) - 64) <> -1;
finally
SetErrorMode(OldErrorMode);
end;
end;

> 2. Jakym zpusobem muzu z Delphi spolupracovat s MS Outlookem? Zahledl jsem tu par

Outlook lze ovladat pres OLE automation. V D5 jej mas primo v palete komponent
Servers.

Petr Vones, amatersky programator

Midi a noty

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:27

From: <sup(zv)svitap(tec)cz>
> Jak v midi vybrat nastroj a zahrat na nem jednu nebo nekolik not (akord).
> Nejlepe bez meziukladani souboru na disk a jejich prehravani...
> V tomto oboru jsem uplnej zacatecnik, tak prosim polopate.
> Pomozte starostlivemu otci, jehoz dite se uci hrat na mandolinu.....

Ahoj,

Nejake MIDI komponenty jsou tady:
http://www.wilsonc.demon.co.uk/Delphi%20Components/MidiComponents/d4psp31.zip

Petr Vones, amatersky programator

Zobrazoani obrazku v TImage

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:12:23

From: Va�ek N�vrat <engine(zv)ropacek(tec)cz>

Ahoj,

> ...no a to prave v Delphi 4 TImage nedela (myslim) - podle me si to
> prekresluje celej canvas. Komprimaci to neni...vsechno jsem zkousel. Alespon
> mam o duvod vic, proc si koupit Delphi 5 (nebo rovnou pockat na Delphi 6 ?

... na Corel Delphi 6 ;-)

> :-)). Nakonec jsem to vyresil tak, ze jsem to dal jako jeden GIF obrazek a v
> komponente TGIFImage menim framesy - tam se to prekresluje spravne bez
> "blikani"

Dalsi moznost mas ve vyuziti TPaintBox ve kterem budes vykreslovat predem
pripravene bitmapy.

Petr Vones, amatersky programator

Hlavickovy subor z C do Delphi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:13:23

From: Iko <iko(zv)kamarad(tec)cz>
> prerobil som jeden hlavickovy subor pre DLL z
> C do Delphi takto:
> Delphi:
> type BBGOOD=record

Ahoj,

Puvodni definice patrne nepouziva zarovnavani, musis tedy zaznam definovat
jako packed record. Dale je dobre dodrzovat konvence Borlandu pro konverzi
hlavicek z C do OP, takze by to vypadalo treba takhle:

type
PBBGood = ^TBBGood;
tagBBGOOD = packed record
(...)
end;
TBBGood = tagBBGOOD;
BBGOOD = tagBBGOOD;

Petr Vones, amatersky programator


Natazeni sestavy QReportu ze souboru

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:13:03

From: J.Faltynek <FS_software(zv)telecom(tec)cz>
> Potreboval bych male postrceni - mam ulozene sestavy z QuickReportu (D4,SP
> vsechny,W98) na disku a potrebuji po startu aplikace jednu z nich natahnout
> primo do preview, aniz by uzivatel musel pouzit buton "Open" v QRPreview.

Ahoj,

Dival jsem se do KB QR a pisi tam toto:

Q. How do I load a previously saved report via code?
A. We have a new class, TQRPHandler, that is defined and documented in the
QRBonus unit. This class is designed to easily allow you load a saved
report using the following syntax:

Zkousel jsem to v D5, QR 3.0.5 a vypadalo to, ze to funguje:

uses
QRExtra;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TQRPHandler.Create do
try
Filename := 'A.QRP';
Preview;
finally
Free;
end;
end;

Petr Vones, amatersky programator

Web pocitadlo - CGI

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:13:31

From: Daniel Rott <roxton(zv)atlas(tec)cz>
> Nikoliv vsak cestu, ale data (obsah onoho
> souboru), ale nejprve musi byt hlavicka
> WriteLn('image/gif) nasledovana prazdnym
> radkem. Pak uz nasleduji vlastni data.

Ahoj,

Priklad CGI pocitadla najdete treba tady:
http://homepages.borland.com/aohlsson/Articles/CounterCGI.html

Petr Vones, amatersky programator

Pocet otvorenych suborov

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:13:41

From: Peter Vlkovic <vlkovic(zv)minv.sk>
> Nevie niekto poradit nejaky trik,
> aby bolo mozne v DOS-ovskej
> aplikacii mat sucasne otvorenych
> viac suborov (napr. 30) ?

Ahoj,

Pokud si vzpominam, tak se muselo tusim do CONFIG.SYS dopsat:

FILESHIGH = <n>

Petr Vones, amatersky programator

Delphi 5 & W200

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.2.2000 23:58:43

From: Jaro <jaro(zv)sinea(tec)cz>
> Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci licence na
> pouzivani RC2 a ostra verze bude stat o dost vice nez W98. Slysel jsem ale, ze
> ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj. maji licencni ujednani

Ahoj,

Udajne ma jit upgradovat i z Win9x:
http://svet.namodro(tec)cz/go/r-art.asp?id=991102192

Petr Vones, amatersky programator

BDE a PARADOX

[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 8.2.2000 00:14:04

>vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe
vyuzivat
>len tabulky PARADOXu v D4 len TTable a TQuery.
>Jedna sa o jednoduche app. Podla prvych pokusov asi staci toto:
>batman.dll
>idapi32.dll
>idr20009.dll
>idapi32.cfg

Jina nez kompletni instalace vede vetsinou na problemy
s jinymi programy vyuzivajicimi BDE.

S pozdravem
Miloslav Skacel

ADO a vicevlaknove aplikace

[*] Tom� Br�dle������i�^����? - 8.2.2000 00:35:51

Zdravim vsechny,

chci se zeptat, jestli ma nekdo nejake prakticke zkusenosti s pouzitim ADO,
pri pouziti ve vice paralenich vlaknech. Jde to vubec ? Musi se nejak
synchronizovat ? Nebo to ma jako napr BDE jiz vyreseno?
Jak napr. s ADOxpress ?

Predem diky

Tomas Bradle
t.bradle(zv)pvtnet(tec)cz


Delphi 5 & W200

[*] vp <vpetr(zv)bigfoot(tec)com> - 8.2.2000 05:19:32

> From: Jaro <jaro(zv)sinea(tec)cz>
> > Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci
licence na
> > pouzivani RC2 a ostra verze bude stat o dost vice nez W98. Slysel jsem
ale, ze
> > ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj. maji licencni
ujednani

kde jste to slysel? Co je to RC1 legalne? Vy mate MSDN Subscription?

> Ahoj,
>
> Udajne ma jit upgradovat i z Win9x:
> http://svet.namodro(tec)cz/go/r-art.asp?id=991102192
>
> Petr Vones, amatersky programator

mluvime o licencnim, nebo fyzickem upgradu? Ten prvni je IMO podivne (z RCx
licencne upgradovat na FULL, o W9x na W2000 se pry jednalo, u NT nic
takoveho nebylo) a druhy (fyzicky) lze v pripade, kdy jde o shodnou
jazykovou verzi


Pocet otvorenych suborov

[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 8.2.2000 07:27:01

do CONFIG.SYS napis napr.
FILES=150

max je to tusim 255

----- Original Message -----
From: Peter Vlkovic <vlkovic(zv)minv.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, February 07, 2000 5:30 PM
Subject: OT: Pocet otvorenych suborov


> Nevie niekto poradit nejaky trik,
> aby bolo mozne v DOS-ovskej
> aplikacii mat sucasne otvorenych
> viac suborov (napr. 30) ?
> Vdaka.
>
> Peter
>

Memo v DBGridu

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.2.2000 07:28:31

Ahojte lidi,

sonduji, zda existuje moznost do DBGridu nebo nejake jeho
obdoby zapsat Memo? Normalne je v prislusnych bunkach
napsano slovo memo; ja bych rad zjistil, zda jde docilit toho, aby
se tam zobrazil pocatek obsahu toho mema, co se do bunky vejde.

Dik moc predem za nazory :)

David


JavaScript, framy, reload, back,...

[*] Bosnis <bosnis(zv)atlas(tec)cz> - 8.2.2000 07:46:56

Podle toho co jsem cetl to vypada, ze vykonne java scripty jsou v
jedotlivych strankach nacitanych do jednotlivych casti framu. Doporucuji
umistit vykonny script do tela deklarujiciho fram za tag <html>, zde se daji
deklarovat promenne, ktere jsou nezavisle na obsahu jednotlivych casti
framu, a counter (odpocet casu) muze byt spusten zde.

frame.html - deklarace framu
up.htm - horni cast
down.htm - dolni cast

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

zjisteni zda je okno nacteno se da zjistit takto (kod je potreba upravit na
konkretni podminky) [tento kod testuje kazdou 1s zda je obsah okna main
korektne nacten = vcetne obrazku pokud tam jsou]

var WIN;
var TimRdy;


function LoadWindow() {

WIN=window.open("okno.htm","main","width=400,height=420,left=200,top=0,scrol
lbars=1,resizable=0,tollbar=0,menubar=0,border=0,location=0,status=1");
TimRdy=setTimeout("IsReadyBann();",1000);
};

function IsReady(){

St=WIN.document.readyState;
if ( St == "complete" ) {
clearTimeout(TimRdy);
}
else
{
TimRdy=setTimeout("IsReady();",1000);
}
};

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

Priklad pouziti scriptu v deklaraci framu

// deklarace framu //
<html>
<script language="JavaScript">
<!--
var Q;
Q='toto je test';
//-->
</script>

<head>
<title>NADPIS</title>

</head>
<FRAMESET rows="50,50" FRAMEBORDER="0" FRAMESPACING="0" FRAMEBORDER="NO"
BORDER="0" >

<FRAME marginwidth="0" marginheight="0" FRAMEBORDER="0" FRAMESPACING="0"
BORDER="0" name="list" noresize src="list.htm">
<FRAME marginwidth="0" marginheight="0" FRAMEBORDER="0" FRAMESPACING="0"
BORDER="0" name="stl" noresize src="s.htm">

</FRAMESET>

<NOFRAMES>
<BODY>
K prohl�en� t�chto str�nek pot�ebujete prohl�e� umo��uj�c� zobrazen�
r�me�k�.
<p>
Viewing this page requires a browser capable of displaying frames.
</BODY>
</NOFRAMES>

</html>
//-------------------//// ---- list.htm ---- //
<html>
<body>
<script language="JavaScript">
document.write(parent.Q);
</script>

</body>
</html>
//-------------------//

// ---- s.htm ---- //
<html>
<body>
<script language="JavaScript">
document.write(parent.Q);
</script>

</body>
</html>
//-------------------//

v obou castech framu se objevi text "toto je test"


Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html


-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele Jan
Fryscak
Odesl�no: 7. �nora 2000 19:25
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: OT: JavaScript, framy, reload, back,...


Ahoj,
omlouvam se za off-topic, ale uz si s tim hraju nekolik dnu a nevim co s
tim.
Mam okno otevrene Javascriptem, kde jsou 2 framy. Horni frame (maly) slouzi
predevsim k odecitani casu (od zadane hodnoty do nuly pomoci javascriptu).
Spodni frame je radove vetsi, cili se nacita relativne dlouho. Mam dva pro
problemy, ktere jsem oba schopen vyresit, ale nikoli najednou.

1. zajistit, aby se cas zacal odecitat az po nacteni spodniho frameu
2. zajistit, aby se reloudnutim (ci jakkoli jinak) nezacal odecitat znovu

ad 1. pri otevirani okna dam do horni frameu nejaky text (napr. "pockejte az
se nacte zbytek" a na konec dolnihu frameu pridam kod javascriptu, ktery
zameni obsah hornihu frameu "odecitacim" framem
ad 2. pri reloadu se koukam do databaze, kde je nejaky parametr, ktery rika,
zda je frame nacitan poprve ci nikoli. Podle toho nastavim odecitani casu od
puvodni hodnoty nebo od hodnoty zjistene ze soucasneho casu

toto reseni funguje, ale bohuzel s jednou vyjimkou
Pokud dam v browseru "back", tak se do horniho frame vrati puvodni obsah a
odecitani tedy vubec nebezi. Resil jsem to tak, ze jsem nakonec frameu s
textem pridal "history.forward()", ale fungujete to jenom v Nescape. V
Exploreru se zacne odecitat od casu posledniho reloadu (tedy v principu se
cas do nuly nemusi dostat nikdy).

Budu vdecen za kazdy napad

Diky Honza

P.S. zkousel jsem i pragma: no-cache, expires:0 apod, ale nepomohlo to

Web pocitadlo

[*] sup(zv)svitap(tec)cz - 8.2.2000 8:03:38

>> >Dobry den. Delam webovsky pocitadlo.
>> >Neni mi jasny, jak dostanu vygenerovany obrazek z programu.
>
>> >Ale jak udelat aby fungovalo <img src="script.exe">
>
> Predokladam, ze pises cgi skript v Delphi.
>
> Pouzij komponentu TWebModule, pridej akci WebAction a:
>
> with Response do
> begin
> ContentType := 'img/jpeg';
> ContentStream := xj;
> end;
>
>Josef Cerny

Nemuzu pouzit TWebModule, v D3Profi nic takovyho neni, az v D3CS...

Jaroslav Weiss
odd. informatiky

SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02

tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz


distribuce dBase bez BDE ?

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.2.2000 08:04:16

> Zdravim vespolek,
> mel bych jeden dotaz tykajici se BDE. Mam jednoduchy programek, ktery
> pouziva tabulky ve formatu dBase. Je to jednoducha databaze adres, telefonu
> atd. Jedna se o to, ze potrebuji tento programek jednoduse sirit (bez
> instalace), jenze tady narazim na problem. Vi nekdo jak obejit BDE ? Nebo
> jak to udelat jinak ? Proste potrebuju aplikaci, kterou neni potreba
> instalovat, nebude potrebovat zbytecne soubory okolo sebe a bude umoznovat
> alespon zakladni operace s databazovymi soubory.

Na www.torry.ru je tusim hned nekolik komponent ci baliku
komponent, ktere umozni pristup k dbf bez BDE.

David


JavaScript, framy, reload, back,...

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 8.2.2000 08:14:43



> -----P�vodn� zpr�va-----
> Od: Jan Fryscak [mailto:fryscak(zv)scio(tec)cz]
> Odesl�no: 7. �nora 2000 19:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: OT: JavaScript, framy, reload, back,...

> toto reseni funguje, ale bohuzel s jednou vyjimkou
> Pokud dam v browseru "back", tak se do horniho frame vrati
> puvodni obsah a

Mam dojem, ze tu historii lze nejakym zpusobem promazavat,
aby back udelat neslo. Nevim ale jak a nemam cas to hledat,
treba je to ale nakopnuti spravnym smerem?

Jura


distribuce dBase bez BDE ?

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 08:16:31

Jestli to mas v dBase, pak existuji na DSP nebo i v kongfere free komponenty pro primy pristup do dBASE bez BDE.

P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> Zdravim vespolek,
> mel bych jeden dotaz tykajici se BDE. Mam jednoduchy programek, ktery
> pouziva tabulky ve formatu dBase. Je to jednoducha databaze adres, telefonu
> atd. Jedna se o to, ze potrebuji tento programek jednoduse sirit (bez
> instalace), jenze tady narazim na problem. Vi nekdo jak obejit BDE ? Nebo
> jak to udelat jinak ? Proste potrebuju aplikaci, kterou neni potreba
> instalovat, nebude potrebovat zbytecne soubory okolo sebe a bude umoznovat
> alespon zakladni operace s databazovymi soubory.
>
> Za odpovedi predem dekuju.
>
>
>
>

BDE a PARADOX

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 08:21:52

To jsem nezkousel, ale Tvoje uvaha mne zavadi na myslenku, ktera dll-ka z
woken nepotrebuji ( mozna staci jen Win.com :-).

Jde o to, ze s BDE jsou problemy i normalni instalaci, natoz jeste s
nejakymi vyextrahovanymi dll-kami ( ikdyz je to velmi zajimava myslenka,
kdyz nejde BDE zrusit
uplne, tak ho vyhladime per-partes).


P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Lauko �tefan [SMTP:lauko(zv)salamon.sk]
> Odesl�no: 7. �nora 2000 23:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: BDE a PARADOX
>
> Dobry vecer,
> vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe
vyuzivat
> len tabulky PARADOXu v D4 len TTable a TQuery.
> Jedna sa o jednoduche app. Podla prvych pokusov asi staci toto:
> batman.dll
> idapi32.dll
> idr20009.dll
> idapi32.cfg
>
> Je nieco este vo Win\system. Skusal som to tak, ze pri spustenej
aplikacii
> ktora vyuziva BDE - PARADOX som vymazal obsah adresara ..\BDE ostali v
nom
> len tie tri DLLky (system ich nedovolil vymazat). O registry by som sa
> postaral.
>
> Dakujem za kazdu uvahu.
>
> P.S.
> V jednoduchosti je krasa..., ze by to bolo take jednoduche a dokonca
mensie
> ako PC FAND?
>
>
>
>

Instalace ODBC?

[*] garalda <garalda(zv)mail(tec)cz> - 8.2.2000 08:28:20

Ahoj vespolek.

Udelal jsem program, ktery pracuje s databazi v Accessu pod BDE. Rad bych ho vyzkousel i na jinem(ych) pocitaci(ch). Zjistil jsem ale, ze ODBC (natoz s ovladacem pro Access) neni standardne ani v jedne verzi Windows (95, 98, NT). Zda se mi ponekud uhozene u kazdeho pocitace instalovat MS Office (nehlede na problemy s licenci :-) ), nevite zda existuje nejaka jina moznost jak to rozchodit na pocitaci, kde neni ODBC? Predpokladam, ze s OLEDB bude stejny problem.

Diky

ADO Test

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.2.2000 08:30:58

Neni to, ze by se mi nelibila, zkratka nevim,
odkud ji mam vzit (z nejake unity nebo dll ?)
Kompilator zkratka hlasi
"Undeclared identifier: GetADOVersion"

(D3, Win95 OSR2, DCOM95,MSDAC 2.1)

Dobra.

> ----------
> Od: p. Jirman[SMTP:jim.design(zv)iol(tec)cz]
>
> Nevim co se ti na teto fci nelibi (jestli funguje)?
> ADO (pro osobni potrebu) zjistuji na PC podle verze IE (od IE 4.neco s SP1
> pro IE)
>
> From: Mal> � Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
>
> > na strance http://www.cybermagic.co.nz/winsoft/adofaq.htm
> > je dotaz (hned ten prvni) jak zjistit, zda je nainstalovano
> > ADO, ale nevim odkud se vzala ta funkce (konstatnta ?)
> > GetADOVersion.
> >
> > Q : How do I check in my application if ADO is installed?
> > A : try
> > ShowMessage('ADO version ' + GetADOVersion + ' installed');
> > except
> > ShowMessage('ADO not installed');
> > end;
> >
>

Delphi 5 & W200

[*] Jaro <jaro(zv)sinea(tec)cz> - 7.2.2000 23:36:29 -0800

> TO JARO:
> Prece si nedam na takovej stroj W2000 RC2 (mam 4GB s ATA33) a nebo snad jo?
>
> M. Jirman

A proc ne?
Min pozadavky jsou: P166, 32 MB RAM, asi 800 MB volneho prostoru. Doporuceno je
64 MB RAM. Adresar WinNT (opravdu se to instaluje do WinNT a ne do Win2000)
zabere kolem 500 MB.

Ja mam Celeron 466 pretakt. na 525, 14 GB HDD UATA 66 7200 ot. a 128 MB RAM.
To je vic nez dostacujici. Mimochodem dnes se to da poridit za mrzky peniz.
Ovsem zkousel jsem to i na podstatne slabsich strojich (P200 s 64 MB RAM)
a chodilo to take slusne. W200 nejsou pomalejsi nez W98. Ta tvoje masinka P233,
100 MB RAM na to staci.

Na webu MS se da stahnout testovaci programek, ktery zjisti, zda je tvuj
hardware
W200 ready. W200 provadeji duslednejsi kontrolu pri instalaci. Myslenka je asi
takovato: budto si to se zelezem bude rozumet a pak to nesmi padat a nebo se to
tam nema co instalovat. Ten programek je podobny testovacimu, ktery se spousti
pri instalaci a navic sepise mozna problemova zarizeni.

Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci licence na
pouzivani RC2 a ostra verze bude stat o dost vice nez W98. Slysel jsem ale, ze
ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj. maji licencni ujednani
(jako treba ja) budou moci pozadat o upgrade. To nema chybu - protoze ja uz bych
se k W9x nevratil i kdyby me mucili. Za dobu, co RC1 a RC2 pouzivam mi to
nespadlo ani jednou.

Takze jestli je to pravda a chces usetrit za upgrade, tak mas nejvyssi cas.

Jaro


Instalace ODBC?

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.2.2000 08:51:47

Ahoj, mrkni se sem http://www.microsoft.com/data
a stahni si MSDAC (Microsoft Data Access Components)
Pokud mas Win95 je nutne nejprve nainstalovat DCom95

Dobra.

> ----------
> Od: garalda[SMTP:garalda(zv)mail(tec)cz]
>
> Udelal jsem program, ktery pracuje s databazi v Accessu pod BDE. Rad bych ho vyzkousel i na jinem(ych) pocitaci(ch). Zjistil jsem ale, ze ODBC (natoz s ovladacem pro Access) neni> �> standardne ani v jedne verzi Windows (95, 98, NT). Zda se mi ponekud uhozene u kazdeho pocitace instalovat MS Office (nehlede na problemy s licenci :-) ), nevite zda existuje nejaka jina moznost jak to rozchodit na pocitaci, kde neni ODBC? Predpokladam, ze s OLEDB bude stejny problem.
>

Editor komponenty

[*] Tomas Peroutka <tperoutka(zv)drusoft(tec)cz> - 8.2.2000 08:57:04

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

Dobry den,
chtel bych udelat editor pro svoji komponentu, ktera ma
v seznamu nekolik dalsich objektu (napr. jako kdyz
TTable ma seznam objektu tridy TField). Neni mi jasne, jak
docilim toho, aby se po kliknuti na polozku v seznamu v okne
editoru objevil v Object Inspectoru vlastnosti vybraneho
objektu a ty se dali editovat.
Jestli mate nekdo nejaky priklad nebo vite o necem podobnem
ne webu, budu vdecny.

S pozdravem

Tomas Peroutka
tperoutka(zv)drusoft(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000

Memo v DBGridu

[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 8.2.2000 09:11:30

Nie je to mozno celkom ono, ale ja som to vo svojich aplikaciach riesil
zobrazenim string fieldu, ktory vznikol pretypovanim toho memo fieldu uz na
urovni SQL (Query). Neviem sice, ci nieco take umoznuju vsetky SQL servery,
ale na MSSQL to ma tvar:

SELECT ..., CONVERT(VARCHAR(255), Popis) AS Popis, ... FROM ...

Vysledok som zobrazoval cez TDBCtrlGrid a vtedy som to robil kvoli
obmedzeniu BLOBS TO CACHE, ale v podstate to umoznuje zobrazit memo v
DBGrid.

----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 08, 2000 7:28 AM
Subject: Memo v DBGridu


> Ahojte lidi,
>
> sonduji, zda existuje moznost do DBGridu nebo nejake jeho
> obdoby zapsat Memo? Normalne je v prislusnych bunkach
> napsano slovo memo; ja bych rad zjistil, zda jde docilit toho, aby
> se tam zobrazil pocatek obsahu toho mema, co se do bunky vejde.
>
> Dik moc predem za nazory :)
>
> David
>

Pracuje jeste disk

[*] Martin Zapletal <zaplik(zv)volny(tec)cz> - 8.2.2000 09:31:58

Jak v Delphi 5 (WIN95, 98, NT) zjistim, jestli disk pracuje, nebo je v klidu. Myslim tim obdobu blikajici led od HDD, FD, CD? Nejlepe nejakou LED na FORMu.

Zaplik(zv)volny(tec)cz


Frames

[*] Tomas Vesely <veselyt(zv)bigfoot(tec)com> - 8.2.2000 09:55:38

Prirad parenta a visible

Tomas

-----Original Message-----
From: Ing. Keder Vladim�r <keder(zv)columbex.sk>
To: Delphi konferencia <delphi-l(zv)fwd(tec)cz>
Date: 7. �nora 2000 16:11
Subject: Frames


>Ahoj vsetci
>
> Mam D5 a zacal som pouzivat Frames. Vytvoril som si rozne ramce a
>potrebujem ich zobrazovat na zaklade uzivatelovho vyberu. Skusal som ho
>vytvarat dynamicky ako formulare, ale ramec sa mi nezobrazi
>
>mam vytvorene ramce Frame1, Frame2, .... FrameN
>
>v procedure som ich skusal vytvorit takto
>
>procedure .....
>var frmSkrinka: TFrames;
>begin
> case skrinka of
> 1: begin
> frmSkrinka:=TFrame1.Create(Self);
> ...
> end;
> ......
> end;
> ........
>end;
>
> Kde robim chybu ?
>
>Vlado
>
>

Pocet otvorenych suborov

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.2.2000 09:56:11

Upresnim, mozno som bol prilis strucny.

Prikazom FILES=nn sa nastavuje maximalny pocet suborov, ktore
mozu byt sucasne otvorene v ramci vsetkych procesy dohromady.

V ramci jedneho procesu (t.j. beziaceho programu) v DOS-e je
vsak pocet suborov limitovany na 20 (vratane standardnych handles
pre zakladne vstupne a vystupne zariadenia ako napr. obrazovka).
Vyplyva to zo struktury PSP (Program Segment Prefix), ktora ma
vyhradenu oblast pre aktualne otvorene handle prave o velkosti
20 bytes. Preto ma aj tabulka JFT (Job File Table) default len
20 poloziek. Obist sa to vsak da jej zvacsenim.

Mimochodom od verzie DOS-u 3.3. mozno pomocou jeho sluzieb nastavit
dokonca vyssi pocet sucasne otvorenych suborov nez udava hodnota
FILES=nn, ktora moze byt najviac 255.

Ja potrebujem poradit prave tento trik, ako si rozsirit tento
limit (20) maximalneho poctu otvorenych suborov v ramci jedneho
procesu v DOS-e. Teda, ak niekto nieco podobne uz riesil.

Peter


Pavel ZIDEK wrote:
>
> do CONFIG.SYS napis napr.
> FILES=150
>
> max je to tusim 255
>
> ----- Original Message -----
>
> > Nevie niekto poradit nejaky trik,
> > aby bolo mozne v DOS-ovskej
> > aplikacii mat sucasne otvorenych
> > viac suborov (napr. 30) ?
> > Vdaka.
> >
> > Peter
> >

Zjisteni skriptu z MS SQL

[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 8.2.2000 10:11:20

Preji hezky den,

Text scriptu objektu muzete zjistit normalnim SQL dotazem ze systemove
tabulky syscomments. Jinak soucasti SQL serveru je sada COM objektu, pomoci
kterych lze server administrovat. Jedna se o tzv. SQL-DMO objekty. Tam je
urcite taky moznost dozvedet se text objektu. (vice viz. SQL-DMO Reference v
MSDN Library).

bye

R.Pospisil

> -----Original Message-----
> From: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
> Sent: Monday, February 07, 2000 6:06 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Zjisteni skriptu z MS SQL
>
>
> Kolega nekde zahlednul, ze existuje OLE objekt na serveru,
> ktery umi vratit
> skript zvoleneho databazoveho objektu na MS SQL. Prosim
> nevite o tom nekdo
> neco blizsiho? (Hlavne pro MS SQL7, ale bylo by idealni,
> kdyby se to tykalo
> jak MS SQL 6.5, tak i MS SQL 7).
>
>
>

InstallShield

[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 8.2.2000 10:12:46

Pro lokalizaci InstallShieldu, ktery se dodava s D5 jsem pouzil Resource Workshop 4.5.
Pri editaci ve Workshopu se jevi cestina editovanych resourcu OK. V okamziku, kdy tyto resource pouziju v InsatllShieldu, tak jsou ceske znaky necitelne.
Ve Resource Workshop mam nastaveno: Major Language for Win32 = czech.
Pro kazde editovane resource mam nastaveno: Major Language = czech.
Pro kazde editovane resource jsem zkousel i menit font na napr. Arial CE.

vyber s pevnym poctem zaznamu

[*] mbartone(zv)Synthesia(tec)cz - 8.2.2000 10:23:17



Ahoj,

nad Pdx tabulkou potrebuji k existujicimu vyberu v Query pridat urceny pocet
praznych zaznamu.

select a,b,c from mytable
union
select null,null,null from mytable
where .... < 5 - pridani peti prazdnych zaznamu

nevim jak se odkazovat na cislo radku.

neco jako je u MS SQL

select top 5 null,null,null from mytable

nebo u ORACLE

select null,null,null from mytable
where rownum < 5


Milan

Volanie funkcie

[*] Iko <iko(zv)kamarad(tec)cz> - 8.2.2000 09:27:04 -0000

Caute...

mam problem. Mam spravenu funkciu 1, v ktorej sa odkazujem na
funkciu 2 a zaroven vo funkcii 2 sa odkazujem na funkciu 1. Delphi
mi ale dovoli volat funkciu definovanu pred funkciou, z ktorej ju
volam. Da sa to nejak oklamat? Viem, ze v C to ide bez problemov.

iko
iko(zv)kamarad(tec)cz


Sporic obrazovky

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 8.2.2000 10:34:58

Tohle by mne zajimalo. Jak vyvolat ten dialog na heslo,
aby byl skutecne funkcni a to heslo overil?
Urcite to bude jinak ve W9x a WNT/2000, kdyz pouzivaji
jina hesla...

### Mal� Dobromil napsal dne 7 Feb 00, v 18:19 :
> A s tim skoncenim pri pohybu mysi nebo stiskem
> klavesy to neni uplne pravda; mel by jsi kontrolovat,
> zda uzivatel ma aktivovanou volbu "Chranit heslem"
> a podle toho se zachovat (tzn. zobrazit std. dialog)
> Navic, je lepsi kontrolovat spis Application.OnMessage
> nez Form.OnKeyDown / Press / Up.

-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail


Priamy pristup na disk

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 8.2.2000 10:46:16

BTW pouzivat primy pristup na disk v prostredi
windows je dost o hubu :-)

### Petr Vones napsal dne 7 Feb 00, v 23:12 :
> From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> > Mohol by mi niekto poradit, ako z Delphi pouzit priame volania BIOS-u
> > (priamy pristup na disk bez pouzitia WinAPI) ?
>
> Ahoj,
>
> a proc se tak branis primemu pristupu pres WinAPI ?
>
> Petr Vones, amatersky programator

-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail


Delphi 5 & W200

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 8.2.2000 10:46:16

Plna verze W2000 Professional En (full pack-krabice)
by mela stat asi 12400 Kc :-(
Ver.upgrade 5700 a Product upgrade 8400 Kc.
V anglicke verzi si ji uz muzete objednat
(treba i u nas :-), bude se distribuovat hned,
jak bude uvolnena.
Problem muze nastat, jestlize pouzivate W2k (beta)
ENG a budete chtit prejit na final CZ.
MS se k takovemu upgradu stavi dost opatrne,
nezarucuje, ze to technicky pujde.

### Petr Vones napsal dne 7 Feb 00, v 23:58 :
> From: Jaro <jaro(zv)sinea(tec)cz>
> > Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci
> > licence na pouzivani RC2 a ostra verze bude stat o dost vice nez W98.
> > Slysel jsem ale, ze ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj.
> > maji licencni ujednani
>
> Ahoj,
>
> Udajne ma jit upgradovat i z Win9x:
> http://svet.namodro(tec)cz/go/r-art.asp?id=991102192
>
> Petr Vones, amatersky programator


-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail


Editor komponenty

[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 8.2.2000 10:51:08

Slab�, Petr (Pilsen), 08.02.2000 10:20:34
Tomas Peroutka wrote:

> Neni mi jasne, jak
> docilim toho, aby se po kliknuti na polozku v seznamu v okne
> editoru objevil v Object Inspectoru vlastnosti vybraneho
> objektu a ty se dali editovat.

Ahoj,
nevim jestli je to presne co hledas, ale muzes si napsat vlastni editor prislusne vlastnosti. Priklad najdes v demos\propedit v delphi

Best regards,
PS.

OFF TOPIC:
Nejak se nam z konference posledni dobou stala burza prace. Takze taky vyuziju toho, ze administrator k tomu zatim mlci, zrejme unaven predchozim bojem o cracknute komponenty (taky si myslim, ze se to nema).

Cesko-Nemecka firma z Plzne hleda programatory Delphi a C++. Info o nas najdete na http://www.kadel(tec)cz, pripadne se ozvete na cislo 019/7533219, Ing. Slaby nebo Ing. Beranek.

Volanie funkcie

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 10:57:50

Mas dve moznosti

unit Unit1;
inferface
funciton Funkce1 : integer;

implementation

function Funkce2;
begin
Result := Funkce1;
end;

function Funkce1;
begin
Result := Funkce2; //bacha tady je to obecne, normalne by se to zacyklilo
end;

end.

Druha moznost by mohla vyuzit klicove slowo forward ( asi takhle):

unit Unit2;

interface
implementation

function Funkce1; forward;

function Funkce2;
begin
Result := Funkce1;
end;

function Funkce1;
begin
Result := Funkce2; //bacha tady je to obecne, normalne by se to zacyklilo
end;

end.

P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================


> -----P�vodn� zpr�va-----
> Od: Iko [SMTP:iko(zv)kamarad(tec)cz]
> Odesl�no: 8. �nora 2000 10:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Volanie funkcie
>
> Caute...
>
> mam problem. Mam spravenu funkciu 1, v ktorej sa odkazujem na
> funkciu 2 a zaroven vo funkcii 2 sa odkazujem na funkciu 1. Delphi
> mi ale dovoli volat funkciu definovanu pred funkciou, z ktorej ju
> volam. Da sa to nejak oklamat? Viem, ze v C to ide bez problemov.
>
> iko
> iko(zv)kamarad(tec)cz
>
>

CDDB

[*] Honza <delphi(zv)mis-net(tec)cz> - 8.2.2000 11:06:12

Ahoj,

chtel bych si udelat malinkatej programek,
ktery by nacetl inf. z audio CD a z internetu
stahnul nazvy pisnicek, ktere bych ulozil do
cdplayer.ini

Na zminenem serveru jsem zapsal jmeno
a mail, ale odpoved mi neprisla. Mam pocit,
ze se jim musi odfaxovat jakysi presny formular,
kde se musi uvest spousta veci.

Chapu to spravne?
Nevite o tom nekdo neco?
(treba o jinem serveru ... ?)

predem diky za informace

..........Honza

PS: Win98, D3


Editor komponenty

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.2.2000 11:08:10

Ahoj, posilam Ti jeden priklad, je to cut'n'paste, kdyztak se jeste
zeptej.

//-----------------------------------------------------------TRelationEditor---
TRelationEditor = class (TComponentEditor)
function GetVerbCount: integer; override;
function GetVerb (index: integer): string; override;
procedure ExecuteVerb (index: integer); override;
procedure Edit; override;
end;

//========================================
// { TRelationEditor }
//========================================
//-----------------------------------------------------------------------------
// TRelationEditor.Edit
//-----------------------------------------------------------------------------
procedure TRelationEditor.Edit;
begin {TRelationEditor.Edit}
ShowMessage (VersionString); //sem si dej co chces, teba volani
vlastniho dialogu
end; {TRelationEditor.Edit}
//-----------------------------------------------------------------------------
// TRelationEditor.ExecuteVerb
//-----------------------------------------------------------------------------
procedure TRelationEditor.ExecuteVerb(index: integer);
begin {TRelationEditor.ExecuteVerb}
case index of
0: Edit;
1: TLine (Component).CenterAnchorsInEntities;
end;
end; {TRelationEditor.ExecuteVerb}
//-----------------------------------------------------------------------------
// TRelationEditor.GetVerb
//-----------------------------------------------------------------------------
function TRelationEditor.GetVerb(index: integer): string;
begin {TRelationEditor.GetVerb}
case index of
0: Result := VersionString;
1: Result := 'Center in entities';
end;
end; {TRelationEditor.GetVerb}
//-----------------------------------------------------------------------------
// TRelationEditor.GetVerbCount
//-----------------------------------------------------------------------------
function TRelationEditor.GetVerbCount: integer;
begin {TRelationEditor.GetVerbCount}
Result := 2;
end; {TRelationEditor.GetVerbCount}


A nakonec nezapomen editor zaregistrovat:

procedure Register;
begin {Register}
RegisterComponentEditor (TRelation, TRelationEditor);
end; {Register}
Slavek

> Tomas Peroutka


-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------


BDE a PARADOX

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.2.2000 11:08:33

> To jsem nezkousel, ale Tvoje uvaha mne zavadi na myslenku, ktera dll-ka z
> woken nepotrebuji ( mozna staci jen Win.com :-).
>
> Jde o to, ze s BDE jsou problemy i normalni instalaci, natoz jeste s
> nejakymi vyextrahovanymi dll-kami ( ikdyz je to velmi zajimava myslenka,
> kdyz nejde BDE zrusit
> uplne, tak ho vyhladime per-partes).

Ahoj,

tady pri tech metodach smazu neco a zkusim, jestli to jeste
funguje je totiz problem, ze za jinych okolnosti, napr. po drobnem
upgrade, zacne ten program vyzadovat i nektere soubory, ktere
dosud nepotreboval. Napr. v souborech s priponou btl jsou jazykove
zalezitosti. Nejaka dll je potreba pro logovani (trasovani) a jiste by
se nasla i cela rada dalsich, ktere jsou potreba jen za jistych
okolnosti.
Napr. pri spojeni BDE + ODBC na SQL server je potreba
paradoxi driver pro docasne tabulky (Cached Updates).

V BDE jiste existuje spousta souboru, ktere lze bez obav
smazat (drivery pro databaze jine nez tu Tvoji), ale s vytvarenim
nejake opravdu minimalni verze BDE bych byl opatrny.

David


JavaScript, framy, reload, back,...

[*] Jan Fryscak <fryscak(zv)scio(tec)cz> - 8.2.2000 11:11:26

Vyresil jsem to velmi podobne. Script na odecitani casu nespostim v up.htm,
ale v down.htm (az uplne na konci) a refreshe resim puvodnim zpusobem. Nemam
sice zaruceno, ze budou nacteny i obrazky, ale jako beta verze to urcite
staci. Casem mozna pouziji nize popsanou funkci, ale je tam trochu
komplikace se synchonizaci casu.

Diky vsem za podnetne navrhy

Honza

> Podle toho co jsem cetl to vypada, ze vykonne java scripty jsou v
> jedotlivych strankach nacitanych do jednotlivych casti framu.
> Doporucuji
> umistit vykonny script do tela deklarujiciho fram za tag
> <html>, zde se daji
> deklarovat promenne, ktere jsou nezavisle na obsahu jednotlivych casti
> framu, a counter (odpocet casu) muze byt spusten zde.
>
> frame.html - deklarace framu
> up.htm - horni cast
> down.htm - dolni cast
>
> -----------------------------------
>
> zjisteni zda je okno nacteno se da zjistit takto (kod je
> potreba upravit na
> konkretni podminky) [tento kod testuje kazdou 1s zda je obsah
> okna main
> korektne nacten = vcetne obrazku pokud tam jsou]
>
> var WIN;
> var TimRdy;
>
>
> function LoadWindow() {
>
> WIN=window.open("okno.htm","main","width=400,height=420,left=2
> 00,top=0,scrol
> lbars=1,resizable=0,tollbar=0,menubar=0,border=0,location=0,st
> atus=1");
> TimRdy=setTimeout("IsReadyBann();",1000);
> };
>
> function IsReady(){
>
> St=WIN.document.readyState;
> if ( St == "complete" ) {
> clearTimeout(TimRdy);
> }
> else
> {
> TimRdy=setTimeout("IsReady();",1000);
> }
> };
>
> -----------------------------------
>
> Priklad pouziti scriptu v deklaraci framu
>
> // deklarace framu //
> <html>
> <script language="JavaScript">
> <!--
> var Q;
> Q='toto je test';
> //-->
> </script>
>
> <head>
> <title>NADPIS</title>
>
> </head>
> <FRAMESET rows="50,50" FRAMEBORDER="0" FRAMESPACING="0"
> FRAMEBORDER="NO"
> BORDER="0" >
>
> <FRAME marginwidth="0" marginheight="0" FRAMEBORDER="0"
> FRAMESPACING="0"
> BORDER="0" name="list" noresize src="list.htm">
> <FRAME marginwidth="0" marginheight="0" FRAMEBORDER="0"
> FRAMESPACING="0"
> BORDER="0" name="stl" noresize src="s.htm">
>
> </FRAMESET>
>
> <NOFRAMES>
> <BODY>
> K prohl�en� t�chto str�nek pot�ebujete prohl�e� umo��uj�c� zobrazen�
> r�me�k�.
> <p>
> Viewing this page requires a browser capable of displaying frames.
> </BODY>
> </NOFRAMES>
>
> </html>
> //-------------------//
>
>
> // ---- list.htm ---- //
> <html>
> <body>
> <script language="JavaScript">
> document.write(parent.Q);
> </script>
>
> </body>
> </html>
> //-------------------//
>
> // ---- s.htm ---- //
> <html>
> <body>
> <script language="JavaScript">
> document.write(parent.Q);
> </script>
>
> </body>
> </html>
> //-------------------//
>
> v obou castech framu se objevi text "toto je test"
>
>
> Pavel SPEJTEK
> e-mail: bosnis(zv)atlas(tec)cz
> www: http://freeweb.coco(tec)cz/ps/index.html
>
>
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za
> u�ivatele Jan
> Fryscak
> Odesl�no: 7. �nora 2000 19:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: OT: JavaScript, framy, reload, back,...
>
>
> Ahoj,
> omlouvam se za off-topic, ale uz si s tim hraju nekolik dnu a
> nevim co s
> tim.
> Mam okno otevrene Javascriptem, kde jsou 2 framy. Horni frame
> (maly) slouzi
> predevsim k odecitani casu (od zadane hodnoty do nuly pomoci
> javascriptu).
> Spodni frame je radove vetsi, cili se nacita relativne
> dlouho. Mam dva pro
> problemy, ktere jsem oba schopen vyresit, ale nikoli najednou.
>
> 1. zajistit, aby se cas zacal odecitat az po nacteni spodniho frameu
> 2. zajistit, aby se reloudnutim (ci jakkoli jinak) nezacal
> odecitat znovu
>
> ad 1. pri otevirani okna dam do horni frameu nejaky text
> (napr. "pockejte az
> se nacte zbytek" a na konec dolnihu frameu pridam kod
> javascriptu, ktery
> zameni obsah hornihu frameu "odecitacim" framem
> ad 2. pri reloadu se koukam do databaze, kde je nejaky
> parametr, ktery rika,
> zda je frame nacitan poprve ci nikoli. Podle toho nastavim
> odecitani casu od
> puvodni hodnoty nebo od hodnoty zjistene ze soucasneho casu
>
> toto reseni funguje, ale bohuzel s jednou vyjimkou
> Pokud dam v browseru "back", tak se do horniho frame vrati
> puvodni obsah a
> odecitani tedy vubec nebezi. Resil jsem to tak, ze jsem
> nakonec frameu s
> textem pridal "history.forward()", ale fungujete to jenom v Nescape. V
> Exploreru se zacne odecitat od casu posledniho reloadu (tedy
> v principu se
> cas do nuly nemusi dostat nikdy).
>
> Budu vdecen za kazdy napad
>
> Diky Honza
>
> P.S. zkousel jsem i pragma: no-cache, expires:0 apod, ale nepomohlo to
>
>

Volanie funkcie

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.2.2000 11:14:39

procedure X (parametry); forward;

procedure Y;
begin
X;
end;

procedure X (parametry);
begin
Y;
end;

Slavek

> Caute...
>
> mam problem. Mam spravenu funkciu 1, v ktorej sa odkazujem na
> funkciu 2 a zaroven vo funkcii 2 sa odkazujem na funkciu 1. Delphi
> mi ale dovoli volat funkciu definovanu pred funkciou, z ktorej ju
> volam. Da sa to nejak oklamat? Viem, ze v C to ide bez problemov.
>
> iko
> iko(zv)kamarad(tec)cz
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------


JavaScript, framy, reload, back,...

[*] Jan Fryscak <fryscak(zv)scio(tec)cz> - 8.2.2000 11:16:14

> > toto reseni funguje, ale bohuzel s jednou vyjimkou
> > Pokud dam v browseru "back", tak se do horniho frame vrati
> > puvodni obsah a
>
> Mam dojem, ze tu historii lze nejakym zpusobem promazavat,
> aby back udelat neslo. Nevim ale jak a nemam cas to hledat,
> treba je to ale nakopnuti spravnym smerem?

Znam jediny zpusob, jak smazat historii, a to je otevrit nove okno. Pokud by
to slo i jinak, tak by to pochopitelne bylo reseni (nejen) tohoto problemu.

Honza


Pocet otvorenych suborov

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.2.2000 11:34:22


----- Original Message -----
From: Peter Vlkovic <vlkovic(zv)minv.sk>> Upresnim, mozno som bol prilis strucny.
>
> Prikazom FILES=nn sa nastavuje maximalny pocet suborov, ktore
> mozu byt sucasne otvorene v ramci vsetkych procesy dohromady.
>
> V ramci jedneho procesu (t.j. beziaceho programu) v DOS-e je
> vsak pocet suborov limitovany na 20 (vratane standardnych handles
> pre zakladne vstupne a vystupne zariadenia ako napr. obrazovka).

Nemyslim. Jeden program je FoxPro, a otevru si tam treba 150 souboru. Jak by
pracovaly vsechny DOS databazove programy ?
Nejedna se ti treba o dosovske pripojeni k Novell Netware ?

> Vyplyva to zo struktury PSP (Program Segment Prefix), ktora ma
> vyhradenu oblast pre aktualne otvorene handle prave o velkosti
> 20 bytes. Preto ma aj tabulka JFT (Job File Table) default len
> 20 poloziek. Obist sa to vsak da jej zvacsenim.
>
> Mimochodom od verzie DOS-u 3.3. mozno pomocou jeho sluzieb nastavit
> dokonca vyssi pocet sucasne otvorenych suborov nez udava hodnota
> FILES=nn, ktora moze byt najviac 255.
>
> Ja potrebujem poradit prave tento trik, ako si rozsirit tento
> limit (20) maximalneho poctu otvorenych suborov v ramci jedneho
> procesu v DOS-e. Teda, ak niekto nieco podobne uz riesil.

Honza


Volanie funkcie

[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 8.2.2000 12:11:15

No ja se taky pridam,
jeste existuje treti moznost:
- funciton Funkce2 : integer; je v jinem Unite napr Unit2;
- pak je treba dopsat v unite Unit1

implementation
uses Unit2;

a v Unit2 zase dopsat:
implementation
uses Unit1;

Pavel

> Mas dve moznosti
>
> unit Unit1;
> inferface
> funciton Funkce1 : integer;
>
> implementation
>
> function Funkce2;
> begin
> Result := Funkce1;
> end;
>
> function Funkce1;
> begin
> Result := Funkce2; file://bacha tady je to obecne, normalne by se to
zacyklilo
> end;
>
> end.
>
> Druha moznost by mohla vyuzit klicove slowo forward ( asi takhle):
>
> unit Unit2;
>
> interface
> implementation
>
> function Funkce1; forward;
>
> function Funkce2;
> begin
> Result := Funkce1;
> end;
>
> function Funkce1;
> begin
> Result := Funkce2; file://bacha tady je to obecne, normalne by se to
zacyklilo
> end;
>
> end.
>
> P�kny den a pilotum mnoho stastnych pristani...
> ====================================
>
> ML Software - Martin Lasevic
> Budovatelska 459
> Ostrava - Poruba, 708 00
> tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
> fax.: +420 (69) 691 85 11
> E-mail : ml_software(zv)email(tec)cz
> WWW: http://www.volny(tec)cz/ml_software
> Miror : http://freeweb.coco(tec)cz/ml_software
> ====================================
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Iko [SMTP:iko(zv)kamarad(tec)cz]
> > Odesl�no: 8. �nora 2000 10:27
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Volanie funkcie
> >
> > Caute...
> >
> > mam problem. Mam spravenu funkciu 1, v ktorej sa odkazujem na
> > funkciu 2 a zaroven vo funkcii 2 sa odkazujem na funkciu 1. Delphi
> > mi ale dovoli volat funkciu definovanu pred funkciou, z ktorej ju
> > volam. Da sa to nejak oklamat? Viem, ze v C to ide bez problemov.
> >
> > iko
> > iko(zv)kamarad(tec)cz
> >
> >
>

Volanie funkcie

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.2.2000 12:16:21


>mam problem. Mam spravenu funkciu 1, v ktorej sa odkazujem na
>funkciu 2 a zaroven vo funkcii 2 sa odkazujem na funkciu 1. Delphi
>mi ale dovoli volat funkciu definovanu pred funkciou, z ktorej ju
>volam. Da sa to nejak oklamat? Viem, ze v C to ide bez problemov.


mela by to vyresit direktiva forward

Zdravi
D> Toman

Copy structure to - DBase tabulka

[*] Robert Plz�k <rpdap(zv)atlas(tec)cz> - 8.2.2000 12:17:42

Zdravim vsechny neunavne ladice,
mozna mi nekdo muze pomoct s problemem DBase a Numeric vs. ftFloat.

Par let uz delam v databzich (Clipper, Fox, FoxPro...) a chtel jsem
zacit delat take v Delphi 5 s tabulkami DBase III+. Ale tvrde jsem narazil
na problemy s ciselnymi hodnotami. Potrebuji udelat neco, co je napr. v
Clipperu nebo
Fox trivialni problem reseny prikazem COPY STRUCTURE TO NOVY_SOUBOR.DBF.

Jednoduchy priklad:
Tabulka POKUS.DBF vytvorena Database Desktopem jako DBase III+ ma
jedine pole >>> CASTKA, N, 10, 2 <<<

Kdyz v Delphi5 udelam toto:

Table1.Active := False;
Table1.DatabaseName := 'C:\TEMP';
Table1.TableName := 'POKUS.DBF';
Table1.Active := True;
Table1.Active := False;
Table1.TableName := 'POKUS2.DBF';
Table1.CreateTable;

tak mi vznikne novy soubor 'POKUS2.DBF' a v nem jedine pole
>>> CASTKA, N, 20, 4 <<< (proc zrovna ja?)

Tato vec me dohani k zoufalstvi a nedokazu ji odstranit.
Jestli skoncim na pude se smyckou kolem krku, budu mit na hrudi
ceduli s napisem [CASTKA, N, 20, 4 ???].

Pokud v Delphi5 zavolam funkci:

DbiCopyTable(Table1.DBHandle, True, 'POKUS.DBF', nil, 'POKUS3.DBF'));

vznikne perfektni kopie souboru POKUS3.DBF se spravnym polem
>>> CASTKA, N, 10, 2 <<< jenze vcetne vsech zaznamu a ja potrebuji
pouze vytvorit kopii struktury databze.

Umim sice natvrdo okopirovat header souboru DBF ale tim ztraci BDE na krase.
Radeji bych Vas chtel poprosit o radu, jak vyresit kopii struktury databaze
legalnim zpusobem s Delphi5 a BDE.

S uctou Robert Plz�k
rpdap(zv)atlas(tec)cz

Pocet otvorenych suborov

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.2.2000 12:28:03

V tom je prave ta pointa. FoxPro to robi nejakym trikom
(bezne DOS programy si vystacia s poctom suborov < 20).
V minulosti som skusal urobit rezidentnu utilitku
na online kryptovanie databaz spracovavanych vo FoxBase.
Ked som sa zavesil na sluzby DOS-u, zistil som
ze Foxka pristupuje ku vsetkym suborom cez jedine
unikatne handle (!).

Teraz potrebujem sucasne spracovat vacsi pocet suborov aj ja.
Lenze uz druhy den sa trapim a nedari sa mi :-<
Napriklad ked ziadam o pridelenie vacsej tabulky JFT, DOS
mi vrati Insufficient memory.

Peter

> > V ramci jedneho procesu (t.j. beziaceho programu) v DOS-e je
> > vsak pocet suborov limitovany na 20 (vratane standardnych handles
> > pre zakladne vstupne a vystupne zariadenia ako napr. obrazovka).
>
> Nemyslim. Jeden program je FoxPro, a otevru si tam treba 150 souboru. Jak by
> pracovaly vsechny DOS databazove programy ?
> Nejedna se ti treba o dosovske pripojeni k Novell Netware ?
>
> Honza


Volanie funkcie

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 12:30:15

>
>
> mela by to vyresit direktiva forward
>
> Zdravi
> D> Toman
>
Pozor forward neni direktiva.

P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================

Delphi 5 & W200

[*] vp <vpetr(zv)bigfoot(tec)com> - 8.2.2000 12:32:57

----- Original Message -----
> Plna verze W2000 Professional En (full pack-krabice)
> by mela stat asi 12400 Kc :-(
> Ver.upgrade 5700 a Product upgrade 8400 Kc.
> V anglicke verzi si ji uz muzete objednat

Tvrdite, ze ceny budou jine nez u soucasnych Windows NT? Podle mne budou
stejne, ale treba se pletu.

> (treba i u nas :-), bude se distribuovat hned,
> jak bude uvolnena.
> Problem muze nastat, jestlize pouzivate W2k (beta)
> ENG a budete chtit prejit na final CZ.
> MS se k takovemu upgradu stavi dost opatrne,
> nezarucuje, ze to technicky pujde.

to zjevne nepujde, to by musel MS CZ mnoho pracovat...

Pocet otvorenych suborov

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.2.2000 12:45:54

>Prikazom FILES=nn sa nastavuje maximalny pocet suborov, ktore
>mozu byt sucasne otvorene v ramci vsetkych procesy dohromady.
>
>V ramci jedneho procesu (t.j. beziaceho programu) v DOS-e je
>vsak pocet suborov limitovany na 20 (vratane standardnych handles
>pre zakladne vstupne a vystupne zariadenia ako napr. obrazovka).
>Vyplyva to zo struktury PSP (Program Segment Prefix), ktora ma
>vyhradenu oblast pre aktualne otvorene handle prave o velkosti
>20 bytes. Preto ma aj tabulka JFT (Job File Table) default len
>20 poloziek. Obist sa to vsak da jej zvacsenim.
>
>Mimochodom od verzie DOS-u 3.3. mozno pomocou jeho sluzieb nastavit
>dokonca vyssi pocet sucasne otvorenych suborov nez udava hodnota
>FILES=nn, ktora moze byt najviac 255.
>
>Ja potrebujem poradit prave tento trik, ako si rozsirit tento
>limit (20) maximalneho poctu otvorenych suborov v ramci jedneho
>procesu v DOS-e. Teda, ak niekto nieco podobne uz riesil.

Kdysi jsem to delal v jednom rezidentu. Pokud se moc nepletu, prinicp je
ten, ze:
- vyhradis novou tabulku o patricne delce (256 byte)
- zkopirujes do ni JFT
- v PSP nastavis JFTPointer (DWORD na PSP offset 34h) na adresu nove
tabulky
- v PSP nastavis delku (WORD na PSP offset 32h) nove JFT tabulky (255 je
max - asi)


urcite to je nekde popsany - TechHelp nebo Brownuv Interrupt List - ten je
asi nejlepsi zdroj informaci o DOS/BIOS systemu

Zdravi
D> Toman

Sporic obrazovky

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.2.2000 13:02:55

Ahoj, jestli to chces i s komentarem, tak to najdes tady:
http://www.borland.com/devsupport/delphi/ti/TI4534D.html

Jinak mam doma jeden funkci priklad, takze jestli ho budes
chtit a jestli ho nezapomenu, tak ho prinesu a poslu Ti to.
Je to funkcni pro Win 9x a predpokladam, ze na WinNT na to
budou jine API fce (tedy, volani bude asi stejne, ale jejich
fce bude asi odlisna).

Dobra.

> ----------
> Od: Zdenek Drvota[SMTP:drvota(zv)zds(tec)cz]
>
> Tohle by mne zajimalo. Jak vyvolat ten dialog na heslo,
> aby byl skutecne funkcni a to heslo overil?
> Urcite to bude jinak ve W9x a WNT/2000, kdyz pouzivaji
> jina hesla...
>
> ### Mal> � Dobromil napsal dne 7 Feb 00, v 18:19 :
> > A s tim skoncenim pri pohybu mysi nebo stiskem
> > klavesy to neni uplne pravda; mel by jsi kontrolovat,
> > zda uzivatel ma aktivovanou volbu "Chranit heslem"
> > a podle toho se zachovat (tzn. zobrazit std. dialog)
> > Navic, je lepsi kontrolovat spis Application.OnMessage
> > nez Form.OnKeyDown / Press / Up.
>
>

Volanie funkcie

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.2.2000 13:07:03

>> mela by to vyresit direktiva forward
>>
>> Zdravi
>> D> Toman
>>
>Pozor forward neni direktiva.


Smim tedy vedet co to je ?!?

PS: vynatek z helpu od Borlandu (prvni radek napovedy):

The forward directive replaces the block.....


Zdravi
D> Toman

SaveDialog a OpenDialog

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 13:09:59

Zdravim,

mozna to je stupidni otazka, ale presto. Da se nejak chytit v SaveDialogu
nebo v OpenDialogu zmena filtru a zjistit jaky filtr je nastaveny? A taky
pak v pripade, ze ma jedinou priponu, priradit priponu nazvu a v pripade,
ze je v masce filtru vice pripon,
tak vzit prvni priponu?


P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================

autorun

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 13:14:59

Tedy :

Predpokladam, ze nemas sanci CD zmenit. Proto je potreba napsat aplikaci,
ktera se pomoci ShellExecute pokusi spustit default.htm. Pokud vrati
chybovy kod, muzes si tento
stav osetrit svoji hlaskou. Problem je v tom, ze tuto aplikaci musis
zaregistrovat na HTM v pripade, ze tam neni Explorer.

Pokud mas sanci toto CD zmenit, tak tu aplikaci hodit na CD, nic se
registrovat nemusi a misto default.htm vyse popsanou aplikaci.

Martin

P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================

> -----P�vodn� zpr�va-----
> Od: charon / smidek [SMTP:charon(zv)ipex(tec)cz]
> Odesl�no: 8. �nora 1995 12:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: autorun
>
> Diky za podnet,
>
> chtel bych se jeste zeptat, da se pomoci delphi osetrit nasledujici
problemek.
> Dostala se mi do ruky aplikace cela udelana v html.
> potreboval bych a by po zasunuti CD do mechaniky prinutil "autorun"
defaultni.htm soubor
> spusteni pod prohlizecem (explorer). V pripade ze na pocitaci neni
prohlizec nainstalovan,
> to oznamit.
>
> Diky charon II
>
> ----- Original Message -----
> From: bures
> To: delphi-l(zv)fwd(tec)cz
> Sent: Monday, February 07, 2000 3:08 PM
> Subject: Re: autorun
>
>
> Ahoj tvuj dotaz je velmi obecny ale pokusim se napsat aspon par veci co
k tomu budes potrebovat
>
> 1) cestu k programu muzes ji odvodit treba z cestu k tvymu menu na
ktery se budes odvolavat autorunem na CD (doufam ze jsem to spravne
pochopil)
> a to je Application.ExeName. To ti vrati cestu k tvojemu menu,
> ExtractFileDrive(Application.ExeName) zjisti disk odkud jsi spustil
svoje menu
> ExtractFilePath(Application.ExeName) zjisti cestu do adresare tveho
menu (vcetne disku)
> 2) zda ssoubor ktery chces spustit opravdu existuje zjistis traba If
FileExists(nejaky_soubor) then .....
> 3) Soubor programu na ktery chces spustit, spusis treba
WinExec(Pchar(nejaky_soubor),SW_SHOWNORMAL);
> 4) Soubory ktere chces spoustet si traba zapis do Ini Souboru viz
http://www.ssakhk(tec)cz/home/bures/delphi/hint20.htm
> 5) pokud chces to menu spoustet z CD pomoci autorunu tak nezapomen ze
tam zadavas 'relativni' cestu
> a proto pro zjiskani cestu k tvemu projektu nemuzes pouzit
GetCurrentDir protoze ten bude z nejvetsi pravdepodobnosti
> korenovy adresar toho CD, to same plati kdyz se na svuj projekt
odvolavas z MSIE.
>
> Doufam ze ti to pomuze Vlada
>
>
>
> ----- Original Message -----
> From: charon / smidek
> To: konference delphi
> Sent: Tuesday, February 07, 1995 1:55 PM
> Subject: autorun
>
>
> Preji hezky den,
>
> muzete mi, prosim poradit jakym zpusobem naprogramovat autorun
pro urcity i nekym jinym
> dodany program.
> (delphi 3 - standart)
>
> predem diky, charon II
> <<Soubor: ATT00000.html>>

ADO a Timouty - problem

[*] Martin Bednar <bednar(zv)ova.cpress(tec)cz> - 8.2.2000 13:23:18

Mam neco takoveho.

FConnection:=TADOConnection.Create(nil);
FConnection.LoginPrompt:=false;
FConnection.ConnectionTimeout:=120; //Timeout pro SQL
FConnection.CommandTimeout:=120;

query:=TADOQuery.Create(nil);
query.Connection:=FConnection;
query.SQL.Clear();
query.SQL.Add("SELECT * FROM table");
query.Open;
query.First;

Jenze mi to vzdycky po 30ti vterinach (coz je default timeout) vypadne na
timeout :(
Co s tim ?
Thanx
_______________________________________________
Martin Bedn��, Computer Press, v�voj internetov�ch aplikac�
tel.: +420-69-6634734, fax: +420-69-6634734
Fr�ni �r�mka 5, 709 00, Ostrava-Mar.Hory
ICQ: 3577914
http://www.zive(tec)cz | http://www.vltava(tec)cz | http://www.aukce(tec)cz |
http://www.vltava2000(tec)cz | http://www.travelguide(tec)cz | http://www.doupe(tec)cz |
http://www.serge(tec)cz | http://www.ceskaskola(tec)cz

SaveDialog a OpenDialog

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 8.2.2000 13:34:55

Ahoj,
ja bych se chtel take pripojit s dotazem, jak je mozne pracovat v Save-Open
Dialogu s histori� (ulozeni, aktivovani aj.), je-li to tedy mozne.
Diky
Jaro B.

Pocet otvorenych suborov

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.2.2000 13:35:14

>V tom je prave ta pointa. FoxPro to robi nejakym trikom
>(bezne DOS programy si vystacia s poctom suborov < 20).
>V minulosti som skusal urobit rezidentnu utilitku
>na online kryptovanie databaz spracovavanych vo FoxBase.
>Ked som sa zavesil na sluzby DOS-u, zistil som
>ze Foxka pristupuje ku vsetkym suborom cez jedine
>unikatne handle (!).

Pokud si to jeste dobre pamatuju tak:
handle je pointer do JFT (Job File Table), coz je pole bytu. Kazdy byte
obsahuje index do SFT (System File Table). SFT je dynamicky alokovany
spojovy seznam s popisem vsech otevrenych souboru.
Takze handle nemuze mit vyssi hodnotu nez 255 (pozic v JFT max 0..255) a
pocet adresovatelnych souboru je 256 protoze velikost polozky v JFT je byte.

Takze sice FOXka muze pouzivat jeden jediny handle k pristupum na vsechny
soubory, pokud meni prislusnym zpusobem obsah prislusneho pole v JFT (aby se
zde objevil spravny pointer do SFT), ale je ji to stejne k nicemu, protoze
vic nez 256 SFT zaznamu nenaadresuje.

>
>Teraz potrebujem sucasne spracovat vacsi pocet suborov aj ja.
>Lenze uz druhy den sa trapim a nedari sa mi :-<
>Napriklad ked ziadam o pridelenie vacsej tabulky JFT, DOS


>mi vrati Insufficient memory.
a nepouziva Tvuj program celou pamet? Obvykla chyba je, ze v programu chybi
{$Mx x x} direktiva - pak program sezere vsechno co je k dispozici. Je treba
urcit nejakou rozumnou horni hranici pameti se kterou si program vystaci. Je
to dobre i z duvodu mozneho vyskytu chyb u uzivatelu (nikde neni napsany ze
kazdy user ma tolik pameti co Ty na svem PC).

Doplneni meho minuleho prispevku:
K zvetseni JFT je zrejme mozne pouzit (Bill to tak asi puvodne planoval) DOS
funkci 67h (Set handle count) misto rucni manipulace s PSP. DOS by mel
naalokovat patricnou pamet sam. Ale Brown's Interrupt list popisuje nekolik
zajimavych bugu (doufejme, ze jen ve starsich verzich DOSu)


Zdravi
D. Toman

OT: PHP na IFORMIX

[*] Bednar��k Dalibor - 8.2.2000 13:40:26

Omlouvam se za OT...


Nemate nekdo zkusenosti s napojenim PHP na INFORMIX 7..
presneji PHP3 na serveru APACHE 1.3 WIN32...

Za pripadnou radu predem dekuji


Pocet otvorenych suborov

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.2.2000 13:58:53

Vyskusam tvoju radu.

Inak Ralf Brownov list som preliezol, ale nejaky
navod resp. trik, ako osetrit "too many file open"
som tam nenasiel. TechHelp mam z 89-teho, momentalne
som sa pokusal najst na Inete novsiu verziu (zatial
bez uspechu).

Peter


> >Ja potrebujem poradit prave tento trik, ako si rozsirit tento
> >limit (20) maximalneho poctu otvorenych suborov v ramci jedneho
> >procesu v DOS-e. Teda, ak niekto nieco podobne uz riesil.

> Kdysi jsem to delal v jednom rezidentu. Pokud se moc nepletu, prinicp je
> ten, ze:
> - vyhradis novou tabulku o patricne delce (256 byte)
> - zkopirujes do ni JFT
> - v PSP nastavis JFTPointer (DWORD na PSP offset 34h) na adresu nove
> tabulky
> - v PSP nastavis delku (WORD na PSP offset 32h) nove JFT tabulky (255 je
> max - asi)
>
> urcite to je nekde popsany - TechHelp nebo Brownuv Interrupt List - ten je
> asi nejlepsi zdroj informaci o DOS/BIOS systemu
>
> Zdravi
> D> Toman


Editor komponenty

[*] Tomas Peroutka <tperoutka(zv)drusoft(tec)cz> - 8.2.2000 14:01:40

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

Diky Slavku za ten priklad, mam k tomu ale jeste dotaz

...
>procedure TRelationEditor.Edit;
>begin {TRelationEditor.Edit}
>
> ShowMessage (VersionString); //sem si dej co chces, teba volani
> vlastniho dialogu
>
>end; {TRelationEditor.Edit}

Jestli jsem to dobre pochopil, tak cely editor je v tady v procedure Edit.
To by slo. No a ja potrebuju v okne toho editoru, ktery si vytvorim jako
vlastni formular (mimochodem - muze to byt potomek od TForm nebo je na
to jina specialni trida?) zobrazit napr. v ListBoxu nazvy objektu, ktere
komponenta
vytvori a pri vyberu jednoho nazvu umoznit editaci jeho vlastnosti v Object
Inspectoru.
Tak jak to dela editor pro TTable (TQuery) - pri vyberu Fieldu si muzu menit
jeho vlastnosti.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000

Pocet otvorenych suborov

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.2.2000 14:28:54

Diky Dalibor, funguje to !
Peter

Dalibor Toman wrote:
>
> ..prinicp je ten, ze:
> - vyhradis novou tabulku o patricne delce (256 byte)
> - zkopirujes do ni JFT
> - v PSP nastavis JFTPointer (DWORD na PSP offset 34h) na adresu nove tabulky
> - v PSP nastavis delku (WORD na PSP offset 32h) nove JFT tabulky...
> Zdravi


ADO Test

[*] Erik Salaj <winsoft(zv)napri.sk> - 8.2.2000 14:33:44

> Q : How do I check in my application if ADO is installed?
> A : try
> ShowMessage('ADO version ' + GetADOVersion + ' installed');
> except
> ShowMessage('ADO not installed');
> end;

GetADOVersion robi velmi jednoduchy test: vytvori connection object,
ktory umozni zistit verziu ADO:

function GetADOVersion: String;
var Connection: Variant;
begin
try
Connection := CreateOleObject('ADODB.Connection');
Result := Connection.Version;
except
Result := '0.0';
end;
end;

Erik Salaj


Volanie funkcie

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 8.2.2000 14:49:03

forward je podle mne klicove slovo. Directiva zacina skupinou znaku {$.

Hlavni je, ze vime o co go.

P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================> >> mela by to vyresit direktiva forward
> >>
> >> Zdravi
> >> D> Toman
> >>
> >Pozor forward neni direktiva.
>

Pocet otvorenych suborov

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.2.2000 15:06:34

>
> Takze sice FOXka muze pouzivat jeden jediny handle k pristupum na vsechny
> soubory, pokud meni prislusnym zpusobem obsah prislusneho pole v JFT (aby se
> zde objevil spravny pointer do SFT), ale je ji to stejne k nicemu, protoze
> vic nez 256 SFT zaznamu nenaadresuje.

Z najvacsou pravdepodobnostou to bude presne tak ako pises (t.j. pred
volanim prislusnej sluzby na pristup k suboru Foxka manipuluje
s prislusnymi datovymi strukturami), ale dovody tejto manipulacie
som blizsie neskumal.

Inak, podla mna to s tym obmedzenim na 255 nie je az take jednoznacne,
pretoze
hodnota udavajuca pocet poloziek v JFT sa vsade popisuje vo velkosti
word (ktovie,
moznoze s ohladom na pripadne buduce verzie DOS-u).

> Doplneni meho minuleho prispevku:
> K zvetseni JFT je zrejme mozne pouzit (Bill to tak asi puvodne planoval) DOS
> funkci 67h (Set handle count) misto rucni manipulace s PSP. DOS by mel
> naalokovat patricnou pamet sam. Ale Brown's Interrupt list popisuje nekolik
> zajimavych bugu (doufejme, ze jen ve starsich verzich DOSu)

Prave funkcia 67h mi vracala Insufficient memory. Pravdou vsak je,
ze ked mi to stale nechcelo fungovat, postupne som pri testovani
presiel od Pascalu k cistemu Asembleru, a ked som si pozrel hlavicku
vysledneho exaca, ukazalo sa, ze naozaj alokuje vsetku dostupnu pamat.
BTW jedna z chyb funkcie 67h sa u starsich verzii DOS-u prejavovala
prave nadmernou konzumaciou pamati.


---

Este raz diky za rady a pomoc. Som rad, ze sa tu nasiel aspon jeden
znalec v oblasti DOS-u.

Peter


TreeView

[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 8.2.2000 15:30:25

Dobry den,
mam tabulku pracovniku. Kazdy pracovnik ma sve osobni cislo a osobni cislo
sveho nadrizeneho.
ID_PRAC ID_VED JMENO
-------------------------------------------------------------
1 0 reditel
2 1 namestek1
3 1 namestek2
4 2 ekon. vedouci
5 2 provoz. vedouci
6 1 sekretarka
...
Cela struktura se muze neomezene clenit. Poradte, prosim, (nejlepe kouskem
zdrojaku) jak celou strukturu rozhazet do TreeView.
Predem diky Petr Riedel


OT: Pocet otvorenych suborov

[*] Karel Kral <kral(zv)purus(tec)cz> - 08.2.2000 15:30:59

Zalezi na tom, zde je to aplikace v Borland Pascalu. Pokud ano, mohu ti
poslat funkci, ktera to nastavi tak, aby slo otevrit stejne souboru,
jako je v Config.sys.

Peter Vlkovic wrote:
>
> Nevie niekto poradit nejaky trik,
> aby bolo mozne v DOS-ovskej
> aplikacii mat sucasne otvorenych
> viac suborov (napr. 30) ?
> Vdaka.
>
> Peter

--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________


Delphi 5 nechodi a nechodi

[*] Anton�n Blatn� - 8.2.2000 16:58:39

Zdravim!

Uz jednou jsem se ptal a nikdo se neozval. Dival jsem se do historie a
podobny problem nas melo vic. Ptam se tedy alespon tech, co meli stejny
problem a asi ho vyresili, kdyz uz se neozvali:

Mam NT4, SP5 (a nechodilo to ani na SP3-4) a Delphi 5 Enterprise se po
nainstalovani ani nespusti. Objevi se uvodni Logo obrazovka, ktera bez chyby
zmizi a Delphi se ukonci. Nestane se proste NIC. Nevim ani, kde mam hledat
chybu a co zkouset.

Diky za kazdou i malinkou radu. Rad bych tu petku aspon videl ...

T.

Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz


Zobrazoani obrazku v TImage

[*] Majo Petrik <zajodelphi(zv)hotmail(tec)com> - 08.2.2000 15:07:16 gmt

Mozno by si sa nemal zamerat na co najrychlejsie prekreslenie
obrazkov, ked chces aby to slo aj na slabsich compoch.
Zaujimavo by to mohlo vyzerat, keby sa obrazky
vykreslovali napr. po riadoch, po malych stvorcekoch
vid. obsluzny program na CHIP CD, alebo nahodnym nahadzovanim
pixelov az do zobrazenia obrazku....
Zdravim, MAJO



______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com


Video + Delphi

[*] Radek Zitta <Radek.Zitta(zv)gyza(tec)cz> - 8.2.2000 15:20:19 met

Nevite nekdo, jak presmerovat vystup obrazu na hlavni okno
aplikace nebo na panel pri prohlizeni videa.
Pro prohlizeni jsou pouzity prikazy typu MCI.

Nebo bych alespon potreboval vedet o nejake komponente,
ktera dokaze prehravat video(AVI+MPEG).

Editor komponenty

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.2.2000 16:29:25

Ahoj,

> Jestli jsem to dobre pochopil, tak cely editor je v tady v procedure Edit.
****Ano. Metoda edit se spusti,kdyz na komponentu
dablkliknes (jak je ceske inteligenti slovo?).

> To by slo. No a ja potrebuju v okne toho editoru, ktery si vytvorim jako
> vlastni formular (mimochodem - muze to byt potomek od TForm nebo je na to
> jina specialni trida?)
****Je to formular jako kazdy jiny. Soucasti balicku komponenty muzes
mit nejaky formular.

> zobrazit napr. v ListBoxu nazvy objektu, ktere
> komponenta vytvori
****Objekty, ktere vytvoris, bys mel mit nekde ulozene. Dejme tomu, ze
to jsou prvky TEdit a jsou v poli MyEdits. Pak jejich nazvy do ListBoxu
dostanes treba takto:

for i := Low (MyEdits) to High (MyEdits) do
ListBox.Items.Add (MyEdits [i].Name);

> a pri vyberu jednoho nazvu umoznit editaci jeho
> vlastnosti v Object Inspectoru. Tak jak to dela editor pro TTable (TQuery)
> - pri vyberu Fieldu si muzu menit jeho vlastnosti.
****Tohle jsem jeste nezkousel. Pokud nemas nejakou odpovidajici
literaturu, asi bych se podival do adresare Source, kde mas Delphi
nainstalovane, adresar Property Editors a Vcl.

Slavek


-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------


DebugHook

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 8.2.2000 17:04:47

V unite System je nekolik procedur tohoto tvaru:

procedure NotifyTerminate;
asm
CMP BYTE PTR DebugHook,1
JBE (zv)(zv)1
PUSH EDX
PUSH ESP
PUSH 1
PUSH cContinuable
PUSH cDelphiTerminate
CALL RaiseException
POP EDX
(zv)(zv)1:
end;

Promena DebugHook je nastavovana internim Debugerem Delphi na vetsi nez
jedna, protoze
pokud se pusti program v IDE, tak se da zachytit volani RaiseException s
parameterm
cDelphiTerminate apod. Ale mimo Delphi k tomu nedojde.

Pokud programove zmenim DebugHook na hodonotu vetsi nez jedna, tak aplikace
pri vytvoreni
vyjimky (mimo IDE) chvili zustane stat a pak padne.
Trochu jsme se v tom stourali a zjistili sme, ze aplikace nejdriv posle
specialni vyjimku
a ceka na odpoved od Debug programu. Pokud ji nedostane, tak zkousi znovu az
program
nakonec padne.
Taky jsem zkouseli udelat vlastni debug program, ktery se tvari jako by
danou aplikaci debugoval.
To celkem fungovalo, ale je tady jedno riziko, ze kdyz tento pseudo Debug
program padne,
tak sebou vezme i vsechny debugovane aplikace.

Nevite jak by se dal tento problem resit?

Jaka vsechna uskali by vznikla, kdybychom chteli zmenit rovnou unitu
System.pas?

Petr


ADO a vicevlaknove aplikace

[*] Erik Salaj <winsoft(zv)napri.sk> - 8.2.2000 17:16:33

> chci se zeptat, jestli ma nekdo nejake prakticke zkusenosti s pouzitim
ADO,
> pri pouziti ve vice paralenich vlaknech. Jde to vubec ? Musi se nejak
> synchronizovat ? Nebo to ma jako napr BDE jiz vyreseno?

ADO samotne podporuje multithreading velmi dobre, problem je v Delphi,
pretoze VCL nie je threadsafe.

Erik Salaj


Video + Delphi

[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 8.2.2000 18:20:55

> Nebo bych alespon potreboval vedet o nejake komponente,
> ktera dokaze prehravat video(AVI+MPEG).

A co standardni TMediaPlayer?

Tom


Delphi 5 & W200

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 17:30:10

> > TO JARO:
> > Prece si nedam na takovej stroj W2000 RC2 (mam 4GB s ATA33) a nebo snad
jo?
>
> A proc ne?
> Min pozadavky jsou: P166, 32 MB RAM, asi 800 MB volneho prostoru.
Doporuceno je
> 64 MB RAM. Adresar WinNT (opravdu se to instaluje do WinNT a ne do
Win2000)
> zabere kolem 500 MB.
>
> Ja mam Celeron 466 pretakt. na 525, 14 GB HDD UATA 66 7200 ot. a 128 MB
RAM.
> To je vic nez dostacujici. Mimochodem dnes se to da poridit za mrzky
peniz.
> Ovsem zkousel jsem to i na podstatne slabsich strojich (P200 s 64 MB RAM)
> a chodilo to take slusne. W200 nejsou pomalejsi nez W98. Ta tvoje masinka
P233,
> 100 MB RAM na to staci.

Po zkusenostech s NT5.0 na tomhle stroji a W2000 na trochu lepsich strojich
si
stale myslim, ze si nemohu dovolit W2000 na 4.3GB DISK s ATA/33
(neprestava na disku strachat ani se 100MB RAM),
ale uznavam ze rychlost CPU je mozna dostatecna a tak je i tak s dost malo
mistem zkusim.
Diky
>
> Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci
licence na
> pouzivani RC2 a ostra verze bude stat o dost vice nez W98. Slysel jsem
ale, ze
> ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj. maji licencni
ujednani
> (jako treba ja) budou moci pozadat o upgrade. To nema chybu - protoze ja
uz bych
> se k W9x nevratil i kdyby me mucili. Za dobu, co RC1 a RC2 pouzivam mi to
> nespadlo ani jednou.
To by me teda zajimalo cos timhle myslel?!? Mam to z Belohradu, kde to
rozdavali
pred a po M$ prezentaci (normalni CD bez niceho), tak to teda znamena ze to
nemam
legalne nebo co (pripadne jak to zaregistrovat apod.?) a navic to davali ve
velkem i
na bezplatne M$ propagaci TECHNET v Praze na podzim 99.

M. Jirman


Video + Delphi

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 17:41:21

From: Radek Zitta <Radek.Zitta(zv)gyza(tec)cz>> Nevite nekdo, jak presmerovat vystup obrazu na hlavni okno
> aplikace nebo na panel pri prohlizeni videa.
> Pro prohlizeni jsou pouzity prikazy typu MCI.
>
> Nebo bych alespon potreboval vedet o nejake komponente,
> ktera dokaze prehravat video(AVI+MPEG).
>
Video (AVI) dokaze prehrat standartni TMediaPlayer, kdyz si placnes na form
nebo na panel
TANimate a nastavis v Object inspectoru TMediaplayer.Display:=TAnimate;

Vse je tusim od D3


PaintTo

[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 8.2.2000 17:43:07

Mohol by mi niekto poradit, akym sposobom by bolo mozne na pozadi zobrazit
nejaky TWinControl do bitmapy.
Nefunguje mi PaintTo, ani PostMessage(WM_PAINT, dc, 0) a TWinControl nema
Canvas.

ADO a Timouty - problem

[*] Erik Salaj <winsoft(zv)napri.sk> - 8.2.2000 17:48:40

> FConnection:=TADOConnection.Create(nil);
> FConnection.LoginPrompt:=false;
> FConnection.ConnectionTimeout:=120; file://Timeout pro SQL
> FConnection.CommandTimeout:=120;
>
> query:=TADOQuery.Create(nil);
> query.Connection:=FConnection;
> query.SQL.Clear();
> query.SQL.Add("SELECT * FROM table");
> query.Open;
> query.First;
>
> Jenze mi to vzdycky po 30ti vterinach (coz je default timeout) vypadne na
> timeout :(

Problem je v tom, ze kazdy ADO Command objekt ma vlastny timeout, takze
to treba nastavit tam. Borland to vsak zabudol do TADOQuery dat, tak pouzi
TADODataSet, alebo stiahni si ADO Express patch, tam by to snad malo byt
opravene.

Erik Salaj


distribuce dBase bez BDE ?

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 17:53:09

[P��loha v souboru: Test.UDL]
From: Adler Michal <adler(zv)nex.tel(tec)cz>> Zdravim vespolek,
> mel bych jeden dotaz tykajici se BDE. Mam jednoduchy programek, ktery
> pouziva tabulky ve formatu dBase. Je to jednoducha databaze adres,
telefonu
> atd. Jedna se o to, ze potrebuji tento programek jednoduse sirit (bez
> instalace), jenze tady narazim na problem. Vi nekdo jak obejit BDE ? Nebo
> jak to udelat jinak ? Proste potrebuju aplikaci, kterou neni potreba
> instalovat, nebude potrebovat zbytecne soubory okolo sebe a bude umoznovat
> alespon zakladni operace s databazovymi soubory.
>
Tak treba toto napriklad umi FlashFiller.
Jinak na stavajici databazi by slo udelal UDL soubor (viz priloha) a
pristupovat na ni pres
ADO (myslim, ze pres BDE se nelze pres UDL soubor napojit do databaze)

ADMIN necht promine UDL soubor na ukazku


Instalace ODBC?

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 18:00:40

a taky MSDAC a DCOM95 je soucast IE5, kterym by mel byt kazdy lepsi stroj
vybaven.

M.Jirman

From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>


Ahoj, mrkni se sem http://www.microsoft.com/data
a stahni si MSDAC (Microsoft Data Access Components)
Pokud mas Win95 je nutne nejprve nainstalovat DCom95

Dobra.

> ----------
> Od: garalda[SMTP:garalda(zv)mail(tec)cz]
>
> Udelal jsem program, ktery pracuje s databazi v Accessu pod BDE. Rad bych
ho vyzkousel i na jinem(ych) pocitaci(ch). Zjistil jsem ale, ze ODBC (natoz
s ovladacem pro Access) neni> > standardne ani v jedne verzi Windows (95,
98, NT). Zda se mi ponekud uhozene u kazdeho pocitace instalovat MS Office
(nehlede na problemy s licenci :-) ), nevite zda existuje nejaka jina
moznost jak to rozchodit na pocitaci, kde neni ODBC? Predpokladam, ze s
OLEDB bude stejny problem.
>

DebugHook

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.2.2000 18:24:18

>Taky jsem zkouseli udelat vlastni debug program, ktery se tvari jako by
>danou aplikaci debugoval.
>To celkem fungovalo, ale je tady jedno riziko, ze kdyz tento pseudo Debug
>program padne,
>tak sebou vezme i vsechny debugovane aplikace.
>
>Nevite jak by se dal tento problem resit?

Otazka zni proc?

>
>Jaka vsechna uskali by vznikla, kdybychom chteli zmenit rovnou unitu
>System.pas?


To zalezi na tom co by se melo menit. Ja jsem si troufnul jen na kosmeticke
zmeny...


Zdravi
D> Toman

SaveDialog a OpenDialog (oba)

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 18:36:19

From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>

>mozna to je stupidni otazka, ale presto. Da se nejak chytit v SaveDialogu
>nebo v OpenDialogu zmena filtru a zjistit jaky filtr je nastaveny? A taky
>pak v pripade, ze ma jedinou priponu, priradit priponu nazvu a v pripade,
>ze je v masce filtru vice pripon,
>tak vzit prvni priponu?

ahoj,
zmenu filtru odchytis pomoci TOpenDilalog.Ontypechange

prvni filtr nastavis pomoci OpenDialog1.FilterIndex:=0;
a jmeno zjistit pomoci TOpenDialog.Filter

From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
>ja bych se chtel take pripojit s dotazem, jak je mozne pracovat v Save-Open
>Dialogu s histori� (ulozeni, aktivovani aj.), je-li to tedy mozne.
muzes si nekam ukladat pred ukoncenim Dialogu InitialDir
nebo si prostudovat Topendialog.Historylist v Delphi helpu

M. Jirman


Skryti TaskBaru

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 18:40:42

From: Va�ek N�vrat <engine(zv)ropacek(tec)cz>
> pro zmenu rozliseni pri startu aplikace pouzivam komponenty DelphiX
> vyuzivajici DirectX (coz je zamer). Ovsem pri teto zmene komponenta udela
> neco s chovanim Form1 a pak to nelze prekryt. Proto potrebuju schovat
> TaskBar jinzm zpusobem....
>
> Vasek Navrat

Ahoj,

kdyz nastavis TForm.Formstyle:=StayOnTop a TForm.WindowState:=wsMaximized
tak nevyleze taskbar ani pri zmeneni rozliseni pomoci DELPHIX

M. Jirman

Registry - LoadKey

[*] bures <bures(zv)ssakhk(tec)cz> - 8.2.2000 19:02:36

Ahoj mam tokovy maly problem kdyz ulozim par klicu a subklicu sys. registru do souboru pomoci

reg.RootKey := HKEY LOCAL MACHINE;
reg.SaveKey('\Software\dlazdice','c:\moje.pok');

a pote ho chci spatky nahrat z souboru do registru pomoci -
reg.CreateKey('\dlazdice'),
reg.LoadKey('\dlazdice','c:\moje.pok')

tak se nic nestane v helpu mi radi ze mam v rootkey vytvorit nejdrive klic a pote to do nej nahrat,
coz mi nejak nefunguje. Toto jsem zkousel v Delphi 5. ve Win98 cz.
Mocrkrat dekuji za radu, Vlada

Delphi Formatter

[*] rdocekal(zv)csas(tec)cz - 8.2.2000 19:27:12

Freewarovy formatovac zdrojoveho kodu pro D2 - D5 muzete najit na
http://www.slm.wau.nl/wkao/DelForExp.html
Mne osobne se docela libi.

S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367


SQL a Memory

[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 8.2.2000 19:50:59


Stale mi to neda spat, ze preco sa nikdo nepozrie na moj dotaz.
Ale je naozaj taky strasny?!?!?!?

Miso :-(

TDbMaskEdit

[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 8.2.2000 19:53:28

Zdravim,

otazocka to malicka: Neviete niekto o komponente TDbMaskEdit (snad to
vacsina pochopi).
Napriklad na pisanie tel.c., psc a pod.

Dakujem Hlavki


Web pocitadlo

[*] Roman Fiser <rfiser(zv)leknet(tec)cz> - 8.2.2000 20:25:50

>
> Nemuzu pouzit TWebModule, v D3Profi nic takovyho neni, az v D3CS...


Zkuste CGIexpert http://www.cgiexpert.com nejaka verze je i free.


S pozdravem,
Roman Fiser
roman(zv)management(tec)cz

Volanie funkcie

[*] Erik Salaj <winsoft(zv)napri.sk> - 8.2.2000 21:31:56

> forward je podle mne klicove slovo. Directiva zacina skupinou znaku {$.

Forward nie je klucove slovo ale directiva Pascalu. Rozdiel oproti klucovemu
slovu je v tom, ze directivu mozno predefinovat, napr:

var Forward: Integer;

Erik Salaj

debugovani OCX v D5, WNT

[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 8.2.2000 20:36:30 -0000

Ahoj mam problem ...

Pracuji s D5, WNT a mam problem s debugovanim OCX ktere pisu.
Pri vytvoreni noveho ActiveX formu je to v pohode, problem nastane,
jestli chci debugovat OCX psane jeste v D4.

Drive jsem mel tento problem, kdyz jsem mel OCX na disku vicekrat a zaregistrovana
verze nebyla prave ta, kterou jsem se pokousel debugovat. Nyni jsem pro jistotu vsechny
smazal, ale presto to nejde.

Nastaveni mam Projects->Options->Compiler->
Code generation
Optimization:= False
Aligned record fields:= True
Stack frames:= True
Debugging vse na True
Projects->Options->Linker
Map file nastaveno na Detailed

Nevite nekdo co je spatne, zkousel jsem nastaveni vicekrat ruzne menit,
ale bezvysledne.

Diky

Pavel Vasek


BDE a PARADOX

[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 8.2.2000 21:50:27

> vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe vyuziv
at


Nieco distribucii BDE.

Hi. Roland.
----------------------------------------------------------------------------
-------
Redistributing the Borland Database Engine (BDE)
Problem
When programming database applications in Borland Delphi, the program will n
ot start, unless the Borland Database Engine is installed. Furthermore, Borl
and redistributes the Borland Database Engine only with their own installati
on program, which is unsuitable if only one set of installation disks is wan
ted for your self-made program.
How BDE installs itself
The Borland Database Engine installs itself into a specified directory. The
default is C:\IDAPI, and all files are put in this directory or in sub direc
tories. Furthermore it adds settings to WIN.INI as follows:
[IDAPI]
DLLPATH=C:\idapi
CONFIGFILE01=C:\IDAPI\IDAPI.CFG

[Borland Language Drivers]
LDPath=C:\IDAPI\LANGDRV

You might thing, that CONFIGFILE01 refers to the first configuration file of
many, but unfortunately, this is not the case.
How to install BDE from your application
You must use two .EXE files. The first .EXE file may not use any database un
its (DB, DBTables, DBCtrls), since these units requires the BDE to be instal
led prior to running the .EXE file. This first file must check for the prese
nce of BDE and alert the user, if BDE is not installed. An easy way to do th
is is:
var
WinDir:string;

function GetWindowsDirectory:string;
begin
If WinDir='' then
raise Exception.Create ('Could not retrieve Windows directory.');
Result:=WinDir;
end;

function IsInstalledBDE:boolean;
var
f:TIniFile;
begin
f:=TIniFile.Create (GetWindowsDirectory+'\win.ini');
Result:=f.ReadString('IDAPI','DLLPATH','')<>'';
f.Free;
end;

procedure CheckForBDE;
begin
if not IsInstalledBDE then begin
Application.MessageBox ('Error!', 'You must install the '+
'Borland Database Engine '+
'prior to running this program.', MB_OK+MB_ICONEXCLAMATION);
raise Exception.Create ('Borland Database Engine is not installed');
end;
end;

begin
WinDir[0]:=char(WinProcs.GetWindowsDirectory ((zv)WinDir[1],255));
end.

If you use an installation program, like Microsoft Setup, you must add all t
he files in the C:\IDAPI directory and sub directories to the installation d
iskettes. The setup program must end with adding the lines mentioned in the
previous paragraph to the WIN.INI file, like this:
procedure AutoRegistration;
var
WinINI:TIniFile;
Buffer:string;
begin
WinINI:=TIniFile.Create (GetWindowsDirectory+'\Win.ini');
try
WinINI.WriteString ('IDAPI','DLLPATH','C:\idapi');
WinINI.WriteString ('IDAPI','CONFIGFILE01',
'C:\IDAPI\IDAPI.CFG');
WinINI.WriteString ('Borland Language Drivers',
'LDPath','C:\IDAPI\LANGDRV');
finally
WinINI.Free;
end;
end;

In order to add your own aliases (try to avoid these!), or worse, your own O
DBC drivers, you must either exchange the IDAPI.CFG file, or make the WIN.IN
I file point to another IDAPI.CFG file. The easiest way is to make WIN.INI p
oint to another file, which makes one of the lines above look like this:
WinINI.WriteString ('IDAPI','CONFIGFILE01',
'C:\MYAPP\IDAPI.CFG');

Here, C:\MYAPP is the directory of your self-made application. The IDAPI.CFG
file in this directory can be copied to the hard disk by your installation p
rogram.

TDbMaskEdit

[*] bures <bures(zv)ssakhk(tec)cz> - 8.2.2000 21:56:19

Ahoj
Ale standartni dbEdit se umi chovat jako mask edit
staci 2 X kliknout na table1 a zmackonut prave tlacitko dat "add"
zvolit zaznam a ten ma vlastnost mask ...

Vlada

----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 08, 2000 7:53 PM
Subject: TDbMaskEdit


> Zdravim,
>
> otazocka to malicka: Neviete niekto o komponente TDbMaskEdit (snad to
> vacsina pochopi).
> Napriklad na pisanie tel.c., psc a pod.
>
> Dakujem Hlavki
>

Priamy pristup na disk

[*] V�clav Muchna <apscomp(zv)seznam(tec)cz> - 08.2.2000 22:22:50

> Martin �ajbik (Marcant) wrote:
>
> Mohol by mi niekto poradit, ako z Delphi pouzit priame volania BIOS-u (priamy
> pristup na disk bez pouzitia WinAPI) ?

No ja se teda nechci mejlit, ale mozna ne wokna 9x, (to neni OS), ale urcite
NT
a mozna i ty 9x proste pristup pres volani biosu nedovoli.

Takze s tim se rozluc. Ja jsem se zabyval pristupem na disk pres pul roku,
a je to velmi zajimava zalezitost. Pokud nechces pouzit nejaky VxD (prip. drv
pro
NT), tak je to docela problem. Zajimave je, ze ruzne informacni zdroje si v
otazce primeho pristupu na disk vyslovene protireci.

Ovsem ja to vyresil tak, ze jsem nekde na netu nasel komponenty TDirDisk a je
hotovo. Je to shareware, a nekde se to urcite jeste vali (zkus Torryho,...).

No, pokud to vyslovene nebudes moc najit, tak to nekde vyhrabu a poslu ti to,
autor vyslovene v lic. uvedl, ze sharewarovou verzi muzes (pokud je beze zmeny)
libovolne bez uplaty sirit.

Vasek Muchna

--
Vaclav Muchna
My name ...... is NEO!
verejny pgp klic: http://www.apscomputer(tec)cz/vasek/pubring.html


Registry - LoadKey

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 8.2.2000 22:23:40

Ahoj,

pri zapisu souboru do registru je to podle helpu takto:


reg.CreateKey('\dlazdice'),
reg.OpenKey('\dlazdice', true),
reg.LoadKey('\dlazdice','c:\moje.pok')
reg.free

M.Jirman

----- Original Message -----
From: bures
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 7:02 PM
Subject: Registry - LoadKey


Ahoj mam tokovy maly problem kdyz ulozim par klicu a subklicu sys. registru do souboru pomoci

reg.RootKey := HKEY LOCAL MACHINE;
reg.SaveKey('\Software\dlazdice','c:\moje.pok');

a pote ho chci spatky nahrat z souboru do registru pomoci -
reg.CreateKey('\dlazdice'),
reg.LoadKey('\dlazdice','c:\moje.pok')

tak se nic nestane v helpu mi radi ze mam v rootkey vytvorit nejdrive klic a pote to do nej nahrat,
coz mi nejak nefunguje. Toto jsem zkousel v Delphi 5. ve Win98 cz.
Mocrkrat dekuji za radu, Vlada

Skryti TaskBaru

[*] bures <bures(zv)ssakhk(tec)cz> - 8.2.2000 22:30:04

Jak schovat TaskBar

1) Jak schovat TaskBar
begin
ShowWindow(FindWindow('Shell TrayWnd', nil), SW HIDE); //schov� TaskBar
end;

3) Jak zobrazit TaskBar
begin
ShowWindow(FindWindow('Shell TrayWnd', nil), SW SHOW); //zobraz� aplikaci
end;

----- Original Message -----
From: Va�ek N�vrat
To: Delphi forum
Sent: Tuesday, February 01, 2000 8:20 PM
Subject: Skryti TaskBaru


Cau,
takze fakt nikdo nevi, jak schovat ten TaskBar nebo jak zrusit volbu "Vzdy na vrchu"??

Vasek


INTERBASE - Help me please.

[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 8.2.2000 22:47:20

Zdravim, pomozte mi pliz.

Potrebujem vediet

1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.

2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.

3. Este pred Commit Transaction je uz mozne na sieti vydiet zmenu v
databazach ?

4. Aku literaturu by ste mi odporucili na Interbase a kde ju dostat ?


Tenk j� veri ma�.

H�j. Roland Tur�an


Nastaveni tiskarny-to neni ono

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:57:40

From: Roman �ev��k <r.sevcik(zv)iol(tec)cz>
> > no, asi jsem to spatne podal
> > potrebuji vytvorit novy MujPrintSetupDialog, kde budou navic nejaka dalsi
> > tlacitka.
> > V tom dialogu nacpu seznam tiskaren z Printer.Printers, nastav�m kopie,
> > atd...,ale nevim jak spustit vlastnosti jiz vybrane tiskarny.

Ahoj,

V zasade jsou mozne dve reseni. Pridat do dialogu dalsi komponenty pomoci VCL
(takto je treba rozsiren Open/SavePictureDialog) nebo je definovat primo v
.RC souboru a komunikaci resit pres WinAPI. Osobne se mi zamlouva spise ten
druhy pristup, ale zase neni tak efektivni pri pouziti slozitejsich prvku
(napriklad TreeView, ListView atd..). Zalezi tedy na tom, jake ovl.prvky tam
chces presne pridat.

Petr Vones, amatersky programator

Query & Thread

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:57:50

From: Jirka Virt <virt(zv)volny(tec)cz>
> Snazil jsem se udelat TQuery na vlastnim Threadu (prikladem mi bylo CD
> Delphi5 ...\BKQuery) , ale to porad neni ono.
>
> Ja proste nemohu docilit toho, aby komponenta pracovala pri
> Active := True,Open a ExecSql.

Ahoj,

A v cem je problem, v tom prikladu je to popsano docela dobre.

Petr Vones, amatersky programator

Text z DBGridu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:57:45

From: MJsoft <mjsoft(zv)rychnov(tec)cz>
> nevite jestli v komponente DBGrid lze zjistit text v prave rozeditovanem
> sloupci? Nemuzu to najit.

Ahoj,

Podobny dotaz zde nedavno byl, hledej tema "Pozice kurzoru v bunce StringGrid",
to by ti melo pomoct.

Petr Vones, amatersky programator

Palety v Delphi II

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:58:45

From: Petr Va���ek <czechitout(zv)email(tec)cz>
> Mam takovy problem a byl bych strasne vdecny, kdyby mi s nim nekdo pomohl.
> Potreboval bych vedet, jak v Delphi u nejakeho Projectu muzu menit napriklad
> barvu Menu, Buttonu apod. Vim, ze normalne je to zavisle na nastaveni
> Windows, ale muzu si nejak nastavit v mem Projectu, aby napriklad barva menu
> byla clNavy a text v menu clWhite?

Ahoj,

Ohledne menu to lze udelat pro jednotlive polozky, ale jeho oramovani zustane
vykresleno puvodni barvou, coz ti asi nebude vyhovovat. U Buttonu by pak bylo
nutne si odvodit novou komponentu (uz to tu tusim probehlo, hledej v archivu
ColorBtn nebo tak).

Petr Vones, amatersky programator

DebugHook

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:58:28

From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
> Promena DebugHook je nastavovana internim Debugerem Delphi na vetsi nez
> jedna, protoze

Ahoj,

Pokud spustim aplikaci v Delphi debuggeru, tak je DebugHook = 1.

> Pokud programove zmenim DebugHook na hodonotu vetsi nez jedna, tak aplikace
> pri vytvoreni
> vyjimky (mimo IDE) chvili zustane stat a pak padne.

Programove by jsi nemel nastavovat DebugHook, pak se totiz predpoklada
jista interakce s debuggerem.

> Taky jsem zkouseli udelat vlastni debug program, ktery se tvari jako by
> danou aplikaci debugoval.
> To celkem fungovalo, ale je tady jedno riziko, ze kdyz tento pseudo Debug
> program padne,
> tak sebou vezme i vsechny debugovane aplikace.
>
> Nevite jak by se dal tento problem resit?

No, ten debugger musi byt zkratka dobre napsany :-)

> Jaka vsechna uskali by vznikla, kdybychom chteli zmenit rovnou unitu
> System.pas?

Radeji bych tam zadne upravy neprovadel. Je dobre aby aplikace bezela na alespon
trochu spolehlivem zaklade, coz uz takhle moc jiste treba nebude.

Informace predavane do debuggeru by snad pro dany ucel odchytavani vyjimek
mely postacovat.

Petr Vones, amatersky programator


SaveDialog a OpenDialog

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:59:16

From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> ja bych se chtel take pripojit s dotazem, jak je mozne pracovat v Save-Open
> Dialogu s histori� (ulozeni, aktivovani aj.), je-li to tedy mozne.

Ahoj,

Je to mozne upravou std.dialogu. Zalezi ale na verzi Delphi, nejlepe se to
dela v D5.

Petr Vones, amatersky programator

SaveDialog a OpenDialog

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:59:53

From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
> mozna to je stupidni otazka, ale presto. Da se nejak chytit v SaveDialogu
> nebo v OpenDialogu zmena filtru a zjistit jaky filtr je nastaveny? A taky
> pak v pripade, ze ma jedinou priponu, priradit priponu nazvu a v pripade,
> ze je v masce filtru vice pripon, tak vzit prvni priponu?

Ahoj,

odchytit to muzes v udalosti OnTypeChange, pripona je dana vlastnosti
DefaultExt.

Petr Vones, amatersky programator


Pracuje jeste disk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:59:10

From: Martin Zapletal <zaplik(zv)volny(tec)cz>
> Jak v Delphi 5 (WIN95, 98, NT) zjistim, jestli disk pracuje, nebo je v klidu.
> Myslim tim obdobu blikajici led od HDD, FD, CD? Nejlepe nejakou LED na FORMu.

Ahoj,

Obavam se, ze neco takoveho asi nepujde. Jako opravdu nouzove reseni, ktere
ale nebude prilis korespondovat se stavem LED radice, by bylo mozne pouzit
udaje z performance registry. Jedna se o udaj, ktery ziskas pomoci aplikace
"Sledovani systemu" -> system souboru -> cteni/zapisu za vterinu. Dalsi
problem je v tom, ze zpusob ziskani techto dat je zcela odlisny na W9x a NT.
Pro W9x na to mam komponenty, ktere ti umoznuji kompletni praci s temito
udaji, lze si tedy v Delphi napsat aplikaci podobnou "Sledovani systemu".

Petr Vones, amatersky programator

TDbMaskEdit

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:59:59

From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
> otazocka to malicka: Neviete niekto o komponente TDbMaskEdit (snad to
> vacsina pochopi).
> Napriklad na pisanie tel.c., psc a pod.

Ahoj,

TDBEdit je potomkem TCustomMaskEdit, takze ma i jeho vlastnosti. Masku pak
definujes u prislusneho Fieldu (vlastnost EditMask) DataSetu.

Petr Vones, amatersky programator

Memo v DBGridu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 22:59:24

From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> sonduji, zda existuje moznost do DBGridu nebo nejake jeho
> obdoby zapsat Memo? Normalne je v prislusnych bunkach
> napsano slovo memo; ja bych rad zjistil, zda jde docilit toho, aby
> se tam zobrazil pocatek obsahu toho mema, co se do bunky vejde.

Ahoj,

Lze to udelat v udalosti TField.OnGetText:

procedure TForm1.Table1Event_DescriptionGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
Text := Copy(Sender.AsString, 1, Sender.DisplayWidth);
end;

Petr Vones, amatersky programator

Copy structure to - DBase tabulka

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 23:00:44

From: Robert Plz�k <rpdap(zv)atlas(tec)cz>
> Par let uz delam v databzich (Clipper, Fox, FoxPro...) a chtel jsem
> zacit delat take v Delphi 5 s tabulkami DBase III+. Ale tvrde jsem narazil
> na problemy s ciselnymi hodnotami. Potrebuji udelat neco, co je napr. v
> Clipperu nebo
> Fox trivialni problem reseny prikazem COPY STRUCTURE TO NOVY_SOUBOR.DBF.

Ahoj,

Melo by to jit udelat takhle. Table1 je zdrojova tabulka:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TTable.Create(nil) do
try
DatabaseName := Table1.DatabaseName;
TableType := Table1.TableType;
TableName := 'X:\NewTable.dbf';
FieldDefs.Assign(Table1.FieldDefs);
CreateTable;
finally
Free;
end;
end;

Petr Vones, amatersky programator

Delphi 5 & W200

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 23:00:55

From: vp <vpetr(zv)bigfoot.com>
> mluvime o licencnim, nebo fyzickem upgradu? Ten prvni je IMO podivne (z RCx

Ahoj,

o licencnim, alespon z toho clanku jsem pochopil, ze bude mozne upgradovat z
Win9x. Microsoft to asi s W2000 mysli vazne.

Petr Vones, amatersky programator

PaintTo

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 23:00:37

From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> Mohol by mi niekto poradit, akym sposobom by bolo mozne na pozadi zobrazit
> nejaky TWinControl do bitmapy.

Ahoj,

napriklad takhle:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Picture.Bitmap do
begin
Width := DrawGrid1.Width;
Height := DrawGrid1.Width;
DrawGrid1.PaintTo(Canvas.Handle, 0, 0);
end;
end;

Petr Vones, amatersky programator

Editor komponenty

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 23:00:33

From: Tomas Peroutka <tperoutka(zv)drusoft(tec)cz>
> To by slo. No a ja potrebuju v okne toho editoru, ktery si vytvorim jako
> vlastni formular (mimochodem - muze to byt potomek od TForm nebo je na
> to jina specialni trida?) zobrazit napr. v ListBoxu nazvy objektu, ktere
> komponenta vytvori a pri vyberu jednoho nazvu umoznit editaci jeho
> vlastnosti v Object Inspectoru. Tak jak to dela editor pro TTable (TQuery)
> - pri vyberu Fieldu si muzu menit jeho vlastnosti.

Ahoj,

Tady mas vcelku dve moznosti. Budto pouzijes jako objekty tvorene komponentou
potomka TCollectionItem (pak to bude vypadat treba jako TListView.Columns),
coz je ten jednodussi pripad nebo si vytvoris vlastni, ty si pak budes muset
obsluhovat sam, vcetne vytvoreni vlastniho property editoru. Pro ten prvni
pripad (implementace TCollection a TCollectionItem) ma Delphi jiz vlastni
property editor, takze jej nemusis psat.

Petr Vones, amatersky programator

Video + Delphi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.2.2000 23:01:16

From: Radek Zitta <Radek.Zitta(zv)gyza(tec)cz>
> Nevite nekdo, jak presmerovat vystup obrazu na hlavni okno
> aplikace nebo na panel pri prohlizeni videa.
> Pro prohlizeni jsou pouzity prikazy typu MCI.

Ahoj,

Na MCI je zalozena komponenta TMediaPlayer, pomoci jeji vlastnosti Display
muzes urcit kde se video bude zobrazovat. Jinak je to zprava MCI_WINDOW z
MCI.

> Nebo bych alespon potreboval vedet o nejake komponente,
> ktera dokaze prehravat video(AVI+MPEG).

Napriklad Windows Media Player. Muzes si jej importovat jako ActiveX do
Delphi a pak pouzit.

Petr Vones, amatersky programator

Registry - LoadKey

[*] bures <bures(zv)ssakhk(tec)cz> - 8.2.2000 23:28:28

Toto jsem jiz zkousel, vytvoreni klice a otevreni klice je v poradku ale funkce LoadKey stale nechce fungovat a vraci navratovou hodnotu - false

Vlada
----- Original Message -----
From: p. Jirman
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 10:23 PM
Subject: Re: Registry - LoadKey


Ahoj,

pri zapisu souboru do registru je to podle helpu takto:


reg.CreateKey('\dlazdice'),
reg.OpenKey('\dlazdice', true),
reg.LoadKey('\dlazdice','c:\moje.pok')
reg.free

M.Jirman

----- Original Message -----
From: bures
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 7:02 PM
Subject: Registry - LoadKey


Ahoj mam tokovy maly problem kdyz ulozim par klicu a subklicu sys. registru do souboru pomoci

reg.RootKey := HKEY LOCAL MACHINE;
reg.SaveKey('\Software\dlazdice','c:\moje.pok');

a pote ho chci spatky nahrat z souboru do registru pomoci -
reg.CreateKey('\dlazdice'),
reg.LoadKey('\dlazdice','c:\moje.pok')

tak se nic nestane v helpu mi radi ze mam v rootkey vytvorit nejdrive klic a pote to do nej nahrat,
coz mi nejak nefunguje. Toto jsem zkousel v Delphi 5. ve Win98 cz.
Mocrkrat dekuji za radu, Vlada

Delphi 5 nechodi a nechodi

[*] Lauko �tefan <lauko(zv)salamon.sk> - 8.2.2000 23:39:19

>Zdravim!
>
>Uz jednou jsem se ptal a nikdo se neozval. Dival jsem se do historie a
>podobny problem nas melo vic. Ptam se tedy alespon tech, co meli stejny
>problem a asi ho vyresili, kdyz uz se neozvali:
>
>Mam NT4, SP5 (a nechodilo to ani na SP3-4) a Delphi 5 Enterprise se po
>nainstalovani ani nespusti. Objevi se uvodni Logo obrazovka, ktera bez
chyby
>zmizi a Delphi se ukonci. Nestane se proste NIC. Nevim ani, kde mam hledat
>chybu a co zkouset.
>
>Diky za kazdou i malinkou radu. Rad bych tu petku aspon videl ...
>
>T.
>
>Mgr. Anton�n Blatn�
>blatny(zv)atlas(tec)cz

Nemal som uplne ten isty problem ale podobny.
- ked som nastavil (system/grafika/hardwarove urychlovanie) na min tak to
slo.
- skuste spustit NT ako VGA (nemam to pred sebou, podobne ako W9x nudzovy
rezim).

mozno vam to nepomoze...

ADO a vicevlaknove aplikace

[*] Tom� Br�dle������i�^����? - 9.2.2000 00:02:25

-----P�vodn� zpr�va-----
Od: Erik Salaj <winsoft(zv)napri.sk>>> chci se zeptat, jestli ma nekdo nejake prakticke zkusenosti s pouzitim
>ADO,
>> pri pouziti ve vice paralenich vlaknech. Jde to vubec ? Musi se nejak
>> synchronizovat ? Nebo to ma jako napr BDE jiz vyreseno?
>
>ADO samotne podporuje multithreading velmi dobre, problem je v Delphi,
>pretoze VCL nie je threadsafe.
>


Myslis spolupraci ADO s vizualnimi komponentami ? Tam je mi jasny,
ze musi byt specialni synchronizace, s tou pocitam. Nebo komponenty
obalujici ADO pod TDataset (ADONIS, ADOExpress, ...) ?

Diky

Tomas Bradle

Memo v DBGridu

[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 9.2.2000 02:17:04

Ahoj, tady je popis komponenty pro D2 (da se pouzit i v D5).
Mohlo by to byt ono a umi toho trochu vic..
Na pozadani poslu na soukromy mail.

ag.art
Marian Winkler
ag.art(zv)iol(tec)cz
GSM: +42 0604 880 555
********************************************************
Extended DBGrid
Copyright (c) 1997, Javier Tari Agullo
Author: Javier Tari Agullo E-MAIL: cyber(zv)ctv.es
Class: TDBGridPlus Data Bound: YES
Ancestor:
Enhancements:
- Cand display memos and graphics (whithout deforming the graphics)
- Event for detecting the clicking of a column
- Capable of row height adjustment with the mouse (better memo viewing)

- Event for selecting any brush and font for any cell, selected or not.
(in short: select the colors *without* having to draw the cell)

**********************************************************
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 08, 2000 7:28 AM
Subject: Memo v DBGridu


| Ahojte lidi,
|
| sonduji, zda existuje moznost do DBGridu nebo nejake jeho
| obdoby zapsat Memo? Normalne je v prislusnych bunkach
| napsano slovo memo; ja bych rad zjistil, zda jde docilit toho, aby
| se tam zobrazil pocatek obsahu toho mema, co se do bunky vejde.
|
| Dik moc predem za nazory :)
|
| David
|

ADO oproti MS SQL

[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 9.2.2000 07:18:37

Ahojte vseci,

vcera jsem prisel na jednu silenou vec. Mam na MS SQL 7 serveru VIEW, kde jsou pospojovany 3 tabulky. Pokud se podivam na vysledek view primo v Enterprise Manageru, mam vysledek zpet do sekundy (jsou tam nejaky agregacni fce). Pokud si udelam z D5 TADOQuery, kde je jenom SELECT * FROM VIEW, cekam na vysledek cca 1-3 minuty.

Netusite nekdo, jak se da komponenta ADO (btw: derivovana z TDataSet) nastavit tak, aby opravdu fungovala jako ADO komponenta ?

S pozdravem a pranim hezkeho dne

Milan Schembera
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz

Delphi 5 & W200

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 9.2.2000 07:20:30

Ahoj,

Pouzil jsem utilitku CacheMan (byla popsana nekde v Computeru, mam
W95,IE5,64MB RWM a 1.6GB HD) a Windows mi uz na disk tolik nestracha (daji
se tam nastavit i nejake profily - typicky uzivatel, hry, DB aj.) ale ...

Jaro B.

> -----P�vodn� zpr�va-----
> Od: p. Jirman [SMTP:jim.design(zv)iol(tec)cz]
> Odesl�no: 8. �nora 2000 17:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Delphi 5 & W200
>
>
> (neprestava na disku strachat ani se 100MB RAM),
>
> M. Jirman


Zatuhnuti Delphi pri startu aplikace

[*] Bejvlov� Martina <M.Bejvlova(zv)cra(tec)cz> - 9.2.2000 07:30:16



Ale jak jsem pochopila, tak tyhle problemy jsou jenom pri spusteni aplikace
z prostredi Delphi. (Jak uz jsem psala, me se to stavalo taky. ) Tak proc u
zakaznika nespustis vysledny prelozeny soubor? Prece tam nepotrebujes
instalovat cele Delphi?
Martina


>A co kdyz se deje neco takoveho u zakaznika (treba jen u >jednoho ze sta).
>Mam jej nutit k prechodu na NT nebo si instalovat IE5, kdyz >on ani nevi,
co
>to je. Nebo mu mam koupit NT za sve? Protoze on ma jakesi >Windowsy a na
>zrovna tech jeho MUSI (podle jeho nazoru) chodit veskery >software (i kdyz
by
>byla ve Windowsech chyba). A pokud neco nechodi, neni to >chyba Windowsu,
ale
>aplikacniho softwaru. Nejlepsi je argument "me chodi Word, >tak mam vse v
>poradku, ale ten vas soft je tak mizernej, ze u me nechodi".

>J. N�dhera

CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz

>
>
>

Delphi 5 & W2000

[*] Jaro <jaro(zv)sinea(tec)cz> - 8.2.2000 22:44:38 -0800

>
> kde jste to slysel?

Vlastne cetl. Computer c. 2 z 8.2.2000 - clanek Windows 2000 finalne, str. 10.
Cituji" ... byl ukoncen prodej verze RC2. Neznamena to, ze by se vsechny licence
neostrych verzi staly ihned ilegalnimi. Bety a RC je mozne pouzivat v souladu s
licenci az do 17. unora 2000. Abyste mohli pouzivat W2000 i nadale, budete muset
zaplatit za upgrade. Nelze upgradovat z libovolne betaverze, nejstarsi moznou
verzi pro upgrade je RC1.

> Co je to RC1 legalne? Vy mate MSDN Subscription?

Pod pojmem ziskat legalne rozumim, ze jsem zakoupil Corporate Preview - obdrzel
jsem krabici, 2 lisovane CD (prof a server) a dokumentaci v knizni podobe.
Pozdeji jsem automaticky (bez objednavky) a jiz bezplatne obdrzel verzi RC2.
Jaro

>
> > Ahoj,
> >
> > Udajne ma jit upgradovat i z Win9x:
> > http://svet.namodro(tec)cz/go/r-art.asp?id=991102192
> >
> > Petr Vones, amatersky programator
>
> mluvime o licencnim, nebo fyzickem upgradu?

Ja bych rad oboji.

> Ten prvni je IMO podivne (z RCx
> licencne upgradovat na FULL,

Jestli je to podivne, to mi je jedno. Hlavne, zda-li je to pravda, jak uvadi
Computer.

o W9x na W2000 se pry jednalo, u NT nic
> takoveho nebylo) a druhy (fyzicky) lze v pripade, kdy jde o shodnou
> jazykovou verzi

Me zajima jen US. Na CZ neminim cekat.
Jaro


Delphi 5 & W200

[*] Jaro <jaro(zv)sinea(tec)cz> - 8.2.2000 22:44:37 -0800


> stale myslim, ze si nemohu dovolit W2000 na 4.3GB DISK s ATA/33
> (neprestava na disku strachat ani se 100MB RAM),
> ale uznavam ze rychlost CPU je mozna dostatecna a tak je i tak s dost malo
> mistem zkusim.
> Diky

Co mas porad s tim ATA 33 ?
Disk mas dost velkej (pokud ho nemas uz plnej) a pameti mas take dostatek.
Mezi ATA33 a ATA66 neni zase tak velky vykonnostni rozdil, protoze datova
propustnost ATA33 staci zpravidla i na disky se 7200 ot. Rozdil se muze
projevit pri praci s velkymi soubory - treba prehravani DVD a tak,
ale ne pri praci v Delphi. Taky nevim co myslis tim, ze W2000 stale
hrabou na disk. Ja nic takoveho nepozoruji - spise naopak obcas mi disk
odpadne do spanku i pri praci.

Jaro


Copy structure to - DBase tabulka

[*] Robert Plz�k <rpdap(zv)atlas(tec)cz> - 9.2.2000 07:47:50

Ahoj,

Diky za radu.
Zkusil jsem to, ale vysledek je stejny.
V druhe tabulce je pole CASTKA zase N, 20, 4.
Mam dojem, ze BDE a Delphi nejak nechapou to, ze
obe tabulky jsou DBase III+ a maj� TableLevel = 3.
Zkusil jsem do Tveho prikladu pridat jeste
TableLevel := Table1.TableLevel; a to donutilo
Delphi k chybov� hl�ce "Invalid field descriptor".

Jeste jednou diky za odezvu a zatim
s uctou Robert Plz�k


-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Tuesday, February 08, 2000 11:01 PM
To: Konference Delphi
Subject: Re: Copy structure to - DBase tabulka


From: Robert Plz�k <rpdap(zv)atlas(tec)cz>
> Par let uz delam v databzich (Clipper, Fox, FoxPro...) a chtel jsem
> zacit delat take v Delphi 5 s tabulkami DBase III+. Ale tvrde jsem narazil
> na problemy s ciselnymi hodnotami. Potrebuji udelat neco, co je napr. v
> Clipperu nebo
> Fox trivialni problem reseny prikazem COPY STRUCTURE TO NOVY_SOUBOR.DBF.

Ahoj,

Melo by to jit udelat takhle. Table1 je zdrojova tabulka:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TTable.Create(nil) do
try
DatabaseName := Table1.DatabaseName;
TableType := Table1.TableType;
TableName := 'X:\NewTable.dbf';
FieldDefs.Assign(Table1.FieldDefs);
CreateTable;
finally
Free;
end;
end;

Petr Vones, amatersky programator


DebugHook

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 9.2.2000 07:50:12

My potrebujeme vytvorit exception handling system (EHS), ktery by odchytaval
a logoval nejen, vytvoreni vyjimky, ale i ze program skocil do casti
except nebo finally nebo ze vyjimka byla zrusena.
A na to jsou v System.pas procedury, jako napriklad:
- NotifyExceptFinally
- NotifyTerminate

Vsechny v uvodni casti testuji promenou DebugHook a pokud je 0, tak se
volani
funkce RaiseException nevykona:
asm
CMP BYTE PTR DebugHook,1
JBE (zv)(zv)1
...
CALL RaiseException
...
(zv)(zv)1:
end;

Proto, kdyz pustim program s EHS v IDE, tak vse funguje presne jak
potrebujeme.
Ale mimo IDE, dokazu zacytit jen vznik vyjimky. Jen pokud spustim i nas
pseudo
debug program a nastavim DebugHook na 0, tak se vse znovu funguje.

Co vse je tedy potrebne, kdybych chtel zmenit System.pas?

Petr

-----Original Message-----
Dalibor Toman

>Taky jsem zkouseli udelat vlastni debug program, ktery se tvari jako by
>danou aplikaci debugoval.
>To celkem fungovalo, ale je tady jedno riziko, ze kdyz tento pseudo Debug
>program padne,
>tak sebou vezme i vsechny debugovane aplikace.
>
>Nevite jak by se dal tento problem resit?

Otazka zni proc?

TreeView

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.2.2000 07:56:35

Zkus to takhle.

1) Tabulku vypsat serazene podle ID nadrizeneho a osobniho ID. Tim dostanes seznam
lidi, seskupenych podle nadrizenych.
2) Zaloz si TreeView a zacni prvnim pracovnikem. Prochazej tabulky tak dlouho, az se
zmeni ID nadrizeneho. To je signal pro zalozeni dalsiho TreeNode na koreni TreeView.
atd...


P�kny den a pilotum mnoho stastnych pristani...
====================================

ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================

> -----P�vodn� zpr�va-----
> Od: Riedel Petr [SMTP:Petr.Riedel(zv)ipbpojistovna(tec)cz]
> Odesl�no: 8. �nora 2000 15:30
> Komu: DELPHI Distribution List (el. adresa 2)
> P�edm�t: TreeView
>
> Dobry den,
> mam tabulku pracovniku. Kazdy pracovnik ma sve osobni cislo a osobni cislo
> sveho nadrizeneho.
> ID_PRAC ID_VED JMENO
> -------------------------------------------------------------
> 1 0 reditel
> 2 1 namestek1
> 3 1 namestek2
> 4 2 ekon. vedouci
> 5 2 provoz. vedouci
> 6 1 sekretarka
> ...
> Cela struktura se muze neomezene clenit. Poradte, prosim, (nejlepe kouskem
> zdrojaku) jak celou strukturu rozhazet do TreeView.
> Predem diky Petr Riedel


SaveDialog a OpenDialog (oba)

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 9.2.2000 07:58:15

> zmenu filtru odchytis pomoci TOpenDilalog.Ontypechange
> prvni filtr nastavis pomoci OpenDialog1.FilterIndex:=0;
> a jmeno zjistit pomoci TOpenDialog.Filter

OpenDialog1.Filter mi vrati cely nastaveny filtr (napr. "All files
(*.*)|*.*|GIF files (*.gif)|*.gif"

ADO Test

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.2.2000 08:16:06

Bezva, diky...

> ----------
> Od: Erik Salaj[SMTP:winsoft(zv)napri.sk]
>
> > Q : How do I check in my application if ADO is installed?
> > A : try
> > ShowMessage('ADO version ' + GetADOVersion + ' installed');
> > except
> > ShowMessage('ADO not installed');
> > end;
>
> GetADOVersion robi velmi jednoduchy test: vytvori connection object,
> ktory umozni zistit verziu ADO:
>
> function GetADOVersion: String;
> var Connection: Variant;
> begin
> try
> Connection := CreateOleObject('ADODB.Connection');
> Result := Connection.Version;
> except
> Result := '0.0';
> end;
> end;
>

QReport a HPLJ1100

[*] karel BRKL <karel_brkl(zv)hotmail(tec)com> - 9.2.2000 08:22:10

Ma nekdo zkusenost s W95 s nainstalovanou HPLJ1100 nastavenou ja vychozi a
D4 QuickReportem?

Pri pridani komponenty QuickRep na formular Delphi zkolabuji na chybe
'delphi 32 v programu doslo k chybe ... zavrit ... ignorovat'


K. Brkl


Interbase SQL script +NT fonty

[*] Radek KALA <Kala(zv)atlas(tec)cz> - 9.2.2000 08:57:59

Pred prikazem connect zadej char set.

From: J�n Tungli <tungli(zv)datapac.sk>
To: "delphi conferencia" <delphi-l(zv)fwd(tec)cz>
Subject: Interbase SQL script +NT fonty
Date sent: Sat, 5 Feb 2000 23:46:40 +0100
Send reply to: delphi-l(zv)fwd(tec)cz

> Mam Windows NT WorkStation (Servis Pack6) a Interbase 5
> Mam vytvorenu databazu s: Default character set WIN1250
>
> Pokusim spustit SQL script, kde insertujem vety (varchar polia) do tabulky a
> ISQL mi neustale odmieta vykonat - nekompactibilne znaky.
> Ale znaky su normalne (bezna diaktitika ��蝞����)
> Ten isty SQL script pod W95 krasne ide.
>
> Kde je zrada?
>
> J�n TUNGLI
> Email: tungli(zv)datapac.sk
> URL: http://free.netlap.hu/4321/
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15


INTERBASE - Help me please.

[*] Radek KALA <Kala(zv)atlas(tec)cz> - 9.2.2000 08:57:58

From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
Subject: INTERBASE - Help me please.
Date sent: Tue, 8 Feb 2000 22:47:20 +0100
Organization: RoTurSoft
Send reply to: delphi-l(zv)fwd(tec)cz

> Zdravim, pomozte mi pliz.
>
> Potrebujem vediet
>
> 1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.
Musis pro dany Field zvolit vhodny Collate.
Pro char set Win1250 pouzivam PXW_CSY.
>
> 2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.
Popmoci generatoru.
>
> 3. Este pred Commit Transaction je uz mozne na sieti vydiet zmenu v
> databazach ?
To se mi nezda, pokud tomu dobre rozumim, tak to odporuje
principu databaze.
>
> 4. Aku literaturu by ste mi odporucili na Interbase a kde ju dostat ?
To by mne taky zajimalo, po velmi dlouhem patrani jsem zjistil, ze
pry snad neco vyslo v Nemecku. Takze nezbyva nez manualy.
Ucebnice jako takova neni.
>
>
> Tenk j� veri ma�.
>
> H�j. Roland Tur�an
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15


Interbase SQL script +NT fonty

[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 09.2.2000 08:58:31

> Mam Windows NT WorkStation (Servis Pack6) a Interbase 5
> Mam vytvorenu databazu s: Default character set WIN1250
>
> Pokusim spustit SQL script, kde insertujem vety (varchar polia) do
> tabulky a
> ISQL mi neustale odmieta vykonat - nekompactibilne znaky.
> Ale znaky su normalne (bezna diaktitika ��軾����)
> Ten isty SQL script pod W95 krasne ide.
>
> Kde je zrada?

Nekde v manualu pro isql je popis.
Ja to mam ve skriptu takhle:

SET NAMES WIN1250;

CONNECT "xxx.gdb"
USER "xxx" PASSWORD "xxx";

INSERT INTO .....

COMMIT;

EXIT;

--

Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093


QReport a HPLJ1100

[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 9.2.2000 09:00:36

Ja mohu rict jen, ze chyba nastane i na Win98. Driver ma zrejme nejakou
tezkou nestandardnost, na ktere si QR vylame zuby.

> Ma nekdo zkusenost s W95 s nainstalovanou HPLJ1100 nastavenou ja vychozi a
> D4 QuickReportem?
>
> Pri pridani komponenty QuickRep na formular Delphi zkolabuji na chybe
> 'delphi 32 v programu doslo k chybe ... zavrit ... ignorovat'

INTERBASE - Help me please.

[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 09.2.2000 09:05:42

> 1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.

Pouzij COLLATE PXW_CSY, to se da pouzit pri definici domeny, sloupce v
tabulce i pri pri trideni.

> 2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.

Pomoci generatoru, CREATE GENERATOR, SET GENERATOR, GEN_ID. Vse je v
manualu i s priklady, nebo v adresari Examples\Tutorial

> 3. Este pred Commit Transaction je uz mozne na sieti vydiet zmenu v
> databazach ?

Podle me zalezi na typu transakce, ale krk bych za to nedal :-)

> 4. Aku literaturu by ste mi odporucili na Interbase a kde ju dostat ?

Manualy v pdf-kach, ja v nich nasel skoro vse potrebne, ostatni ne
potvrdil nekdo v konferenci....

Ales

--

Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093


Delphi 5 nechodi a nechodi

[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 09.2.2000 09:15:25

> >Mam NT4, SP5 (a nechodilo to ani na SP3-4) a Delphi 5 Enterprise se po
> >nainstalovani ani nespusti. Objevi se uvodni Logo obrazovka, ktera bez
> chyby
> >zmizi a Delphi se ukonci. Nestane se proste NIC. Nevim ani, kde mam hledat
> >chybu a co zkouset.

Ja som mal podobny problem s CB4.0 a W98.
Problem bola graficka karta - S3.
Ked som zmenil gr. kartu, vsetko krasne slapalo.
Neviem ci to pomoze., mne to pomohlo.
--
\LH

autorun

[*] Petr Hodbod <hodbod(zv)mendelu(tec)cz> - 09.2.2000 09:37:24

No uplne stejne jako u normalni aplikace, nebo alespon myslim. Pokud se
to neotevre tak tam explorer neni.
[autorun]
OPEN=explorer.exe app.htm
ICON=IKONA.ICO


charon / smidek wrote:

> Diky za podnet, chtel bych se jeste zeptat, da se pomoci delphi
> osetrit nasledujici problemek. Dostala se mi do ruky aplikace cela
> udelana v html. potreboval bych a by po zasunuti CD do mechaniky
> prinutil "autorun" defaultni.htm soubor spusteni pod prohlizecem
> (explorer). V pripade ze na pocitaci neni prohlizec nainstalovan,
> to oznamit. Diky charon II
>
> ----- Original Message -----
> From: bures
> To: delphi-l(zv)fwd(tec)cz
> Sent: Monday, February 07, 2000 3:08 PM
> Subject: Re: autorun
> Ahoj tvuj dotaz je velmi obecny ale pokusim se napsat aspon
> par veci co k tomu budes potrebovat 1) cestu k programu
> muzes ji odvodit treba z cestu k tvymu menu na ktery se
> budes odvolavat autorunem na CD (doufam ze jsem to spravne
> pochopil) a to je Application.ExeName. To ti vrati cestu k
> tvojemu menu, ExtractFileDrive(Application.ExeName) zjisti
> disk odkud jsi spustil svoje menu
> ExtractFilePath(Application.ExeName) zjisti cestu do
> adresare tveho menu (vcetne disku)2) zda ssoubor ktery chces
> spustit opravdu existuje zjistis traba If
> FileExists(nejaky_soubor) then .....3) Soubor programu na
> ktery chces spustit, spusis treba
> WinExec(Pchar(nejaky_soubor),SW_SHOWNORMAL);4) Soubory ktere
> chces spoustet si traba zapis do Ini Souboru viz
> http://www.ssakhk(tec)cz/home/bures/delphi/hint20.htm5) pokud
> chces to menu spoustet z CD pomoci autorunu tak nezapomen ze
> tam zadavas 'relativni' cestu a proto pro zjiskani cestu
> k tvemu projektu nemuzes pouzit GetCurrentDir protoze ten
> bude z nejvetsi pravdepodobnosti korenovy adresar toho
> CD, to same plati kdyz se na svuj projekt odvolavas z
> MSIE. Doufam ze ti to pomuze Vlada ----- Original Message
> -----
>
> From: charon / smidek
> To: konference delphi
> Sent: Tuesday, February 07, 1995 1:55 PM
> Subject: autorun
> Preji hezky den, muzete mi, prosim poradit
> jakym zpusobem naprogramovat autorun pro urcity i
> nekym jinym dodany program. (delphi 3 -
> standart) predem diky,
> charon II
>
--
__________________________________

Ing. Petr Hodbod
Dep. of Computer Science
Mendel University of Agriculture
fax : +420 5 4513 5008
email: hodbod(zv)mendelu(tec)cz
___________________________________

Komponenta zdedena z TToolBar

[*] Radek KALA <Kala(zv)atlas(tec)cz> - 9.2.2000 09:47:09

Hi,
mam maly problem, potrebuji si napsat vizualni komponentu, a
mam problem, Komponenta je potomek TToolBar a na ni chci mit
TEdit a nekolik tlacitek. Jak to mam vytvorit.
At delam co delam, tak bud neni Edit videt, nebo to zhazuje
DELPHI.

S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15



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