Archív konference Delphi

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

komponenta nebo API pro obsluhu vypalovac�ch CD

[*] L. ZITA <konference(zv)sales(tec)cz> - 7.4.2000 01:24:02

Behalf Of Petr Zahradnik

> Nelibi se mi na tom par veci, ale co hlavne, tak to je spolehlivost.
> Nevim, zda je to tak vzdy, ale ja jsem se pekne spalil. Od te doby,
> co mam vypalovacku (nejednu) jsem vypalil kolem 2.000 CD-R (presne
> je nepocitam, mozna to bude i vic). Az dosud jsem vypaloval na jednu
> jedinou znacku medii (ted jsem ji zmenil kvuli uplne jinemu duvodu),
> se kterou jsem mel nejlepsi zkusenosti - z te hromady CD-R se mi
> jen jedno jedine CD-R vratilo od zakaznika jako poskozene, opravdu
> bylo necitelne, jinak nikdy nic. Kdyz jsem vypalil cokoliv klasicky,
> tak tam ta data neustale jsou a vzdy byla a neni problem. Ale jednou
> jsem prisel o asi 3 CD-R vypalena UDF pomoci Packet CD. Nevim, jak
> to zmizelo, protoze ihned po nahrani jsem to dukladne kontroloval,
> nicmene za 14 dni jsem to potreboval a nebylo to tam, CD-R neslo
> otevrit a prd. Asi si dovedes predstavit, co to se mnou udelalo
> a jak se mi to libilo... od te doby jsem to nepouzil a nepouziji...
> Mozna je to kruta nahoda, ale stalo se mi to a uz o to nestojim.

Ahoj.
Zajimave je, ze ja mam zkusenosti temer opacne.
Pouze jsem vypozoroval, ze je dobre (pouze kvuli mene kvalitnim CD
mechanikam) nejprve
na prazdne CD dat 50-100 Mb soubor. "Ctivost" na starsich mechanikach se tim
zlepsila
dost podstatne. Je to vhodne zejmena pokud vlastni obsah CD je pouze nekolik
desitek MB.
Vysvetluji si to tim, ze palene CD ma uzsi stopu a ze pokud je na CD vypalen
jen uzky
prouzek u stredu, pak nektere mechaniky povazuji to CD za prazdne protoze
"promachnou"
tu aktivni oblast.

Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000


Delphi days a MSDE

[*] Ji�� Fait���}���6���3 - 7.4.2000 06:03:26

Nesmi
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ren� Otisk
Sent: Friday, December 31, 1999 8:56 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Delphi days a MSDE


Hi,

V lednu na Delphi days jsme dostali original CD s MSDE. Muzeme MSDE volne
sirit? V licenci jest uvedeno, ze se smi pouzivat a sirit jen, je li
zakoupena licence na Interdev, VB, C++ ... Mam delphi (coz zaplatpanbuh neni
produkt Microsoftu) a ted babo rad! Poradi mi nekdo?

Sroub
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.121 / Virov� b�ze: 58 - datum vyd�n�: 31.1.2000


Aktualizace ZIP komponent

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.4.2000 07:36:47

Ahoj,

na http://www.micrel(tec)cz/delphi/ je aktualizace 32-bit. TZip komponenty, kde
jsem na�el chybu (zamena longstring za shortstring) a funkce nepracovala tak
jak mela. Uzivatelum. kteri s tim meli potize, se timto omlouvam

Jaro B.

Jak provest script?

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.4.2000 08:00:35

> Je ta adresa dobre ?
>
> > PS Jake presne pouzivas komponenty na pristup k MSSQL7 ?
>
> Pouzivam komponenty od L. Fuleho
> (http://www.sct.sk/~fule/ODBCe/ODBCe.zip).
>
> Jsem s nimi zcela spokojen a i podpora autora je vynikajici.
>
> David
>

Je dobre. Pokud i tady v Pegasu na ni kliknu, otevre se IE a
nabidne mi ten ZIP ke stazeni.
Ta adresa ukazuje nekam do adresarove struktury, nejedna se
o WWW stranku. Muzes tez zkusit mail primo autorovi:
fule(zv)sct.sk

David


sprava pameti

[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 7.4.2000 08:01:26

> > K tomu zvetsovani pole o jednicku (Daniel Rott) - asi dochazi k potizim
> > tehdy, kdyz po alokaci pole je alokovana jeste nejaka dalsi promenna nad
> > tim polem. Potom pri zvetseni velikosti zrejme dojde k realokaci CELEHO
> > pole v nove oblasti pameti a spotreba roste opravdu exponencialne. (bych
> > si myslel)
>
> Naprosto presne :o)

S tou realokaci neni pochyb, jinak by to ani neslo :-)
Proc jej ale realokuje nahoru (kde si musi vyzadat dalsi pamet
od Windows), kdyz dole ma volnej 90 MB a z TOHO 83 MB
V KUSE !!! (GetHeapStatus.FreeBig) :-((
Jak jiz jsem ale rikal, tykalo se to D4, v D5 jsem to nezkousel
a momentalne mam lepsi zabavu :-)

Daniel

ABC komponenty

[*] pemasoft(zv)atlas(tec)cz - 7.4.2000 08:12:22

Ahoj

Na CD Companion Tools dodavane s Delphi 5 prof. se nachazeji ABC komponenty lite version.
Po nainstalovani do Delphi a naslednem pouziti nektere komponenty, Delphi pri kompilaci skonci na chybovem hlaseni File not found *.dcu.
Vyrobce pise ze DCU soubory v lite veresion neposkytuje...

Funguje to nekomu ???
Jde compilator nastavit, aby DCU nepotreboval ???

Jak provest script?

[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 7.4.2000 08:17:39

Nasa domena www.sct.sk nejako blbne takze v pripade potreby moze Lubo poslat
komponenty na osobnu mail adresu.

----- Original Message -----
From: Radim Kunz <rkunz(zv)ova.comp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 06, 2000 11:54 PM
Subject: Re: Jak provest script?> Je ta adresa dobre ?
>
> Radim Kunz
>
> -----Original Message-----
> From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: 6. dubna 2000 15:08
> Subject: Re: Jak provest script?
>
> > PS Jake presne pouzivas komponenty na pristup k MSSQL7 ?
>
> Pouzivam komponenty od L. Fuleho
> (http://www.sct.sk/~fule/ODBCe/ODBCe.zip).
>
> Jsem s nimi zcela spokojen a i podpora autora je vynikajici.
>
> David
>
>

IB a Numeric 9,2

[*] Radek KALA <Kala(zv)atlas(tec)cz> - 7.4.2000 08:26:44

Hi,

Vite prosim nekdo o problemu, ze nejde pozivat Numeric na IB 4.0

Mam Linux IB 4.0 a D5 Pouzivam TIBDataSet a jak sahnu na field
typu Numeric 9.2 tak chyba a musim aplikaci zhodit pokud
databazi prenesu na IB 6.0 tak to funguje.

Jde to resit, nebo se musim smirit s tim, ze musim pockast az to
preklopim na IB 6.0 ????

Dekuji za odpoved.

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


Jak provest script?

[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 7.4.2000 08:46:48

Pozadovan� dokument je nedostupn�

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

Pri pokusu o pr�stup k: http://www.sct.sk/~fule/ODBCe/ODBCe.zip

se objevila n�sleduj�c� chyba:

Jm�no serveru nen� mozno prev�st na IP adresu. www.sct.sk


Mne to pise toto.
Pavel



----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 07, 2000 8:00 AM
Subject: Re: Jak provest script?> > Je ta adresa dobre ?
> >
> > > PS Jake presne pouzivas komponenty na pristup k MSSQL7 ?
> >
> > Pouzivam komponenty od L. Fuleho
> > (http://www.sct.sk/~fule/ODBCe/ODBCe.zip).
> >
> > Jsem s nimi zcela spokojen a i podpora autora je vynikajici.
> >
> > David
> >
>
> Je dobre. Pokud i tady v Pegasu na ni kliknu, otevre se IE a
> nabidne mi ten ZIP ke stazeni.
> Ta adresa ukazuje nekam do adresarove struktury, nejedna se
> o WWW stranku. Muzes tez zkusit mail primo autorovi:
> fule(zv)sct.sk
>
> David
>

TBitmap 8bit pro winNT a 95/98

[*] Pavel Hampl <phampl(zv)chmi(tec)cz> - 07.4.2000 06:54:58

dobreho dne vespolek preju,

mel jsem problemy s vytvarenim palety pro TBitmap v pripade, ze jeho
pixelformat je 8bit. V zasade pouzivam dva druhy bitmapy, truecolor, kde
na jeden pixl jsou potreba 3 bajty a indexovany BMP, ktery je osmibitovy
a ma pripojenou paletu ve formatu HPALETTE windows. Kdyz nepotrebuju
opravdu truecolor, tak ten osmibitovy BMP je rychlejsi, protoze na jeho
vytvoreni v pameti potrebuju trikrat mene casu. Broblem se objevil, kdyz
zobrazuju tyhle osmibitove BMP a maji ruznou paletu. Prvni se zobrazi v
poradku, druhy se zobrazi v poradku, a treti si necha paletu od toho
druheho a ta uz tam zustane, dokud program neskonci. Takhle se chovaji
WIN 95/98, zatimco WINNT to udelaji korektne a vsechno se porad
zobrazuje krasne v poradku. Hledal jsem a neprisel jsem na nic. Nakonec
jsem to vyresil tak, ze testuju verzi windows a kdyz to neni NT, tak
proste vytvarim truecolor bitmapu. Ta se zobrazi spravne. Presto bych
docela rad nasel nejake jine reseni, ktere by nezralo pamet na truecolor
bitmapu, kdyz to z hlediska obsahu vubec neni potreba.
Nemate nekdo nejakou podobnou zkusenost, ovsem uspesnejsi nez ja?

Pavel Hampl,
druzicove oddeleni
Cesky hydrometeorologicky ustav


Kopirovani z CD

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.4.2000 08:55:56

Ahoj,

koukal jsem do archivu, ale nenasel jsem tam nic uspokojiveho.
Tedy - jakym zpusobem zaridit, aby soubor prekopirovany z CD-
ROM nebyl Read only? Chtel bych se vyhnout pouziti Attrib, na
druhou stranu bych rad zachoval pouziti funkce CopyFile.
Prece neni mozne, ze by Windows neumoznovaly menit
atributy u souboru. Nebo jo?

David


Error reading data from the connection.

[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.4.2000 09:27:54


Mam stejny problem, zjistil jsem tohle:
Problemy zpusobuje komponenta IBAlerts pripojena na IBExpres (Stejne spatne vysledky
podava tato komponenta i s FIBI.
Reseni:
Pouzit dve komponenty DB
jednu na vsechnu praci s daty a druhou na POUZE na ibalerts.

Take se nam stavalo, ze jsem po registrovani udalosti museli dat tak na 600 ms Sleep.

Slavek


Zdravim

Podobne problemy a stejnou chybu jsem mel take. Chyba se vyskytovala
nepravidelne. Priciny byly dve (nezavisle na sobe):

1) Spatny ovladac sitove karty

Reseni: novy ovladac nebo sitova karta


2) Kolize s Netware Clientem verze 3.00 a vyssi a InterBase clientem.
Netware Client nahradil nektere DLL knihovny a ty pak nebyly
v souladu s InterBase clientem - vysledkem byla rada podivnych
chybovych hlaseni pri komunikaci s SQL serverem.

Reseni: Reinstalace InterBase clienta z instalacniho CD

Puvodne jsem take podezrival kabelaz nebo ruseni ale nebylo tomu tak....

Rosta Podmanicky
Trias 92 s.r.o.
Jicin

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Roland Tur�an (RoTurSoft)
Sent: Tuesday, March 28, 2000 1:47 AM
To: Delphi CZ konferencia
Subject: IB: Error reading data from the connection. - Upresnen�


Ziskani LongFileName...

[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 7.4.2000 09:42:23

Ahoj

potrebuji nejaky ( spolehlivy ) zpusob ziskani dlouheho jmena
souboru vcetne cesty ( nejlepe nezavisly na verzi Windows :-))) )
za ruznych okolnosti:

- drop souboru do programu (zprava WM_DROPFILES )
- predani nazvu souboru jako parametru volani aplikace ( drop souboru na
ikonu/zastupce programu, nebo menu "SendTo" )
...

aby fungoval i v pripade UNC path.

Rad bych ziskal nazev jaky by vratil TOpenDialog v pripade jeho pouziti k
vyberu souboru.

Diky za kazdou radu

Zdenek Fryz


__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.

tisk pres pokladni tiskarny v delphi

[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 7.4.2000 09:54:36

My pouzivame pro tisk na tiskarnu STAR SP 212 nasledujici proceduru. Je
nutne ji brat jako namet, protoze je v urcitych mistech konkretizovana na
nase specialni pouziti a obsahuje odkazy na dalsi prvky konkterniho
programu.

procedure tdataPokladna.PrintCurrentParagon;
{ Rychly paragon }
Const TopRows = 1;
paragonHeaderRows = 8; { pokud se bude menit hlavicka paragonu, je
nutne zmenit tuto konstantu }
var
HeightRemaining: Longint;
SubItems,
CurrSubItem,
I, RowsOnpage,
CurrRow,
RowHeight: Integer;
X: Double;
S: String;
T: tPoint;

Procedure SetPointT(RowOnpage: Integer);
begin
T.X := 10;
T.Y := (TopRows+RowOnpage)*RowHeight;
end;

Var
Done: Boolean;
Tel,fax,LPT: string;
F: Text;
begin
if not tablePokladna.Active then exit;
if tablePokladnaIDPokladna.AsInteger = 0 then exit;
if tablePokladnaprijem.AsInteger <> pokladnaPrijem then
raise Exception.Create('Tisk paragonu lze prov�st pouze u "p��jmu do
pokladny"');
Done := false;
RowsOnpage := 0;
CurrRow := 1;
TablePolPokladna.DisableControls;
TRY
TablePolPokladna.First;
SubItems := TablePolPokladna.RecordCount;
CurrSubItem := 0;
With printer do begin

LPT := Printers.Strings[PrinterIndex]; // Otev�en�
pokladn� z�suvky
LPT := Slovo(LPT, KolikSlov(LPT,[' ']), [' ']);
System.Assign(F, LPT);
Rewrite(F);
Write(F, #07);
Close(F);

BeginDoc;
Rowheight := round(1.1*Canvas.TextHeight('1234567890'));
HeightRemaining := Pageheight-TopRows*RowHeight;
Repeat
if HeightRemaining < Rowheight then begin
Newpage;
HeightRemaining := pageheight-TopRows*RowHeight;
RowsOnpage := 0;
end;
SetPointT(RowsOnpage);
canvas.Font.Style := canvas.Font.Style - [fsBold];
case CurrRow of
{ Hlavicka paragonu }
1: begin
S := 'Paragon �.
'+TablePokladnaCDOKLADU.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
2: begin
S := 'Datum uskut.zda�.pln�n�:
'+tablePokladnaVystaveno.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
3: begin
S := Data.tableFirmaFirma.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
4: begin
S := Data.tableFirmaUlice.AsString + ' ' +
Data.tableFirmaPSC.AsString + ' ' +
Data.tableFirmaObec.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
5: begin
S := 'DI�: '+ Data.tableFirmaDIC.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
6: begin
S := 'I�O: '+ Data.tableFirmaICO.AsString;
Canvas.TextOut(T.X,T.Y,S);
end;
7: begin
Tel := '';
Fax := '';
if (CurrentZamestId <> 0) and
data.tableosobni.FindKey([CurrentZamestId]) then begin
Tel := data.tableosobni.FieldByname('TelPrace').AsString;
Fax := data.tableosobni.FieldByname('TelDomu').AsString;
S := Format('Tel: %s Fax: %s',[Tel,Fax]);
Canvas.TextOut(T.X,T.Y,S);
end;
end;
paragonHeaderRows: begin
S := StringOfChar('_',42);
Canvas.TextOut(T.X,T.Y,S);
end;
{ Konec hlavicky paragonu }
else begin
if CurrSubItem >= SubItems then begin
Case (CurrRow - paragonHeaderRows - 2*SubItems {kazda polozka
na 2 radky }) of
1: begin
S := StringOfChar('_',42);
Canvas.TextOut(T.X,T.Y,S);
end;
2: begin
S := 'Placeno celkem hotov�:
'+PadLeft(FloatToStrF(TablePokladnaCASTKA.AsFloat,ffCurrency,18,2), 19);
Canvas.TextOut(T.X,T.Y,S);
end;
3: begin
S := StringOfChar('_',42);
Canvas.TextOut(T.X,T.Y,S);
end;
4: begin
S := ' D�kujeme v�m za va�i n�v�t�vu';
Canvas.TextOut(T.X,T.Y,S);
end;
5: begin
S := ' ';
Canvas.TextOut(T.X,T.Y+8,S);
Done := True;
end;
end;
end else if CurrRow > paragonHeaderRows then begin
if Odd(CurrRow) <> Odd(paragonHeaderRows) then begin {Liche
radky polozek, kazda na dve radky }
S := LeftJustStr(TablePolPokladnaTEXT.AsString,' ',30)+

RightJustStr(FloatToStrF(TablePolPokladnaMNOZ.AsFloat,ffFixed,18,2),' ',8)+'
'+
TablePolPokladnaMJ.AsString;
Canvas.TextOut(T.X,T.Y,S);
end else begin
S := '
'+RightJustStr(FloatToStrF(TablePolPokladnaJCENA.AsFloat,ffFixed,18,2),'
',14);
S := S + ' ' +
RightJustStr(FloatToStrF(TablePolPokladnaCENA.AsFloat,ffFixed,18,2),' ',14);
case TablePolPokladnaTypDPH.AsInteger of
dphProdejDPHVys: X :=
pamOpt.GetDPHVys(tablePokladnaVystaveno.AsDateTime);
dphProdejDPHNiz: X :=
pamOpt.GetDPHNiz(tablePokladnaVystaveno.AsDateTime);
else X := 0;
end;
S := S + ' DPH '+ FloatToStr(100*X)+ '%';
Canvas.TextOut(T.X,T.Y,S);
TablePolPokladna.Next;
inc(CurrSubItem);
end;
end;
end;
end;
inc(CurrRow);
inc(RowsOnpage);
Dec(HeightRemaining,RowHeight);
Until Done;
EndDoc;
end;
Finally
TablePolPokladna.EnableControls;
End;
end;

J. N�dhera

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

----- Original Message -----
From: Heinisch Jiri <deis(zv)deis(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 05, 2000 7:05 PM
Subject: tisk pres pokladni tiskarny v delphi


> ahoj
>
> Ma nekdo zkusenosti tiskem pres pokladni ( bankovni ) tiskarny v DELPHI
> tiskarny od vyrobce STAR
>
>
> Diky
>
> S pozdravem Heinisch Jiri
>
>

Quick report na Minolte

[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 7.4.2000 09:59:42

> A uz mam zase problem. Netusite nekdo proc mi na tiskarne Minolta PagePro8
> netiskne cesky
> Quick report ? Tisknu formular, kde jako podklad je Image a na nem jsou
> textova pole. Pouzivam
> font Fixedsys a ten je ve WIN98 nainstalovanej.

Ja musel na jedne HP tiskarne nastavit v jejim ovladaci Tisknout true typova
pisma jako bitmapu . Mozna by to pomohlo i u Minolty.

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

Kopirovani z CD

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.4.2000 10:03:24

Na to exituje funkce:
function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Urcite byla zminovana i v debate o kopirovani souboru. Nasel jsem to v helpu k
Delphi pod odkazem "file attribute" a trvalo mi to asi 5s. Stoji za to do helpu
obcas kouknout... :-(

Jan Fiala

----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>> Ahoj,
>
> koukal jsem do archivu, ale nenasel jsem tam nic uspokojiveho.
> Tedy - jakym zpusobem zaridit, aby soubor prekopirovany z CD-
> ROM nebyl Read only? Chtel bych se vyhnout pouziti Attrib, na
> druhou stranu bych rad zachoval pouziti funkce CopyFile.
> Prece neni mozne, ze by Windows neumoznovaly menit
> atributy u souboru. Nebo jo?
>
> David
>

Jak zjistit stav okna?

[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 7.4.2000 10:08:03

Pekny den.
Nemohu se dopatrat jak zjistit stav okna za behu (potomek TForm, je-li
Normal, Minimized nebo Maximized).
WindowState je jen pri startu a ve FormState neni co potrebuji.

Nevite to nekdo? Dik.

Petr Smol�k
psmolik(zv)fides(tec)cz


Jak pristupovat k MS Access 2.0 z D1 C/S

[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 7.4.2000 10:09:14

Ahoj,
potreboval bych poradit, jakymi moznymi zpusoby, lze pristupovat k databazi MS Access 2.0 z Delphi 1 C/S. Je mozno pristupovat jinak nez pres ODBC?
Za vsechny odpovedi predem dekuji.
Petr Kejval

RichEdit-nacteni souboru

[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 7.4.2000 10:12:34

P.Vones wrote:
>napriklad WordPad to otvira o trochu rychleji. Podobne chovani by v Delphi
>mohlo jit udelat takto:
>
>uses
> RichEdit;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> EventMask: DWORD;
>begin
> EventMask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0);
> SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, EventMask and not
(ENM_REQUESTRESIZE) );
> RichEdit1.Lines.LoadFromFile('excel2000.pas');
>end;

Parada, zrychleni je opravdu znat:

soubor cca 4,3 MB jsem puvodne nacital asi za 30 sec., po zrychleni asi 3
!!! sec.
( P120, 32MB RAM, W95 )

ale co je vlastne pricinou toho zrychleni, napoveda prakticky nic nerika...
?

Z.Fryz


__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.

Jak odstranit Highlight u vybraneho radku v ListBo

[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 7.4.2000 10:57:14

Ahoj,
prosim o radu, jak zlikvidovat modrou barvu u vybraneho radku z ListBoxu.
Dekuji
Martin Vackar.
mvackar(zv)cpoj(tec)cz


WinBase602 a komponenty

[*] Josef S�P����*?j�Z��3 - 7.4.2000 11:22:50

Delal nekdo z vas neco z Winbase602 ?
Nasel jsem na inetu nativni komponenty do
delphi http://ns1.software602(tec)cz/wde/
a chtel jsem se zeptat jake s tim mate zkusenosti.

DBGrid - zvyrazneni nasledujiciho radku

[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 07.4.2000 11:25:09

Ahoj programatori,
mam maly problem, se kterym se mi nedari hnouti

Chci zvyraznit radek v DBGrid, ale podle stavu predchozi polozky.
Nyni mam

procedure TKabelPlusF.DBGridSoucetDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGridSoucet do
begin
if TableSoucet.FieldByName('Cas').AsString = '0:00:00' then
begin
Canvas.Font.Color := clRed;
Canvas.Brush.Color := clYellow;
if (Focused) and (GdSelected in state) then
begin
Canvas.Font.Color := clWhite;
Canvas.Brush.Color := clBlue;
end;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

Rad bych zvyraznil i radek podle vztahu dvou nasledujicich radku napr.
if TableSoucet.FieldByName('Cas').AsString = TableSoucet.FieldByName('Cas').AsString predchazejici then
a tady to vybarvim

Zkousel jsem se posouvat v databazi pomoci Prior a Next, ale to pochopitelne vede k zacykleni.

Jak se da adresovat predchozi radek v DBGrid?
Ostatne, snad by stacilo jen zjistit aktualni cisla radku a hodnoty tahat primo z DBGrid. To cislo ale stejne neumim zjistit.


Diky za rady
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=========================================

ListView !

[*] Robert Zak <nrsys(zv)psn.sk> - 7.4.2000 11:30:52

Da sa docielit, aby ListView po kliknuti inam (do vnutra listview) ako na
niektoru z jeho ikon zostal selectnuty (aj vysvieteny) na poslednej
selectnutej ikone?
HideSelection tam akurat nakresli stvorcek ale items.selected sa mi prestavi
na False. Ked mu priradim v OnChange tu poslednu ikonu selected na true,
zostane mi stvorcek aj novo selectnuta ikona. Poradi mi niekto?


Dakujem

Robo


MDAC 2.5

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.4.2000 11:38:24

Ahoj,

zkousel jste nekdo instalovat MDAC 2.5 na Windows 95? Po
kazdem restartu mi ve Woknech problikne dialog o pokusu neco
instalovat. Muj partner mi hlasi, ze po instalaci MDAC na pocitac
poveseny na NoWell sit se nedostane k databazi (ktera je na jinem
pocitaci), pricemz s MDAC 2.1 to fungovalo. Ma nekdo s verzi 2.5
nejake zkusenosti? IMHO to muze byt zabrana pri prechodu na
OLE DB (tedy i pro ADO) 2.5.


S pozdravem

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


Jak pristupovat k databazi MS Access 2.0 z D1 C/S

[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 7.4.2000 11:41:51

Ahoj,
potreboval bych poradit, jakymi moznymi zpusoby, lze pristupovat k databazi MS Access 2.0 z Delphi 1 C/S. Je mozno pristupovat jinak nez pres ODBC?
Za vsechny odpovedi predem dekuji.
Petr Kejval

IB a hesla priradene k databaze.

[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.4.2000 12:19:15


Nemylis se, skutecne to jde. Jen je otazka kdo je owner DB, toho pak musis vytvorit v server manageru.

Slavek

PS: Ono by se totoz DB mela proti kopirovani chranit na urovni OS.

-----P�vodn� zpr�va-----
Od: Roland Turcan (RoTurSoft) [SMTP:rotursoft(zv)nextra.sk]
Odesl�no: 6. dubna 2000 23:20
Komu: Delphi CZ konferencia
P�edm�t: IB a hesla priradene k databaze.

Zdravim.

Ako je to s heslami v IB 6, ja som to zatial pochopil ze k samotnej databaze
je definovane jedno heslo a to SYSDBA a vsetky dalsie a vsetky ROLE su v
ISC4.GDB ? To znamena ze ak si nakopirujem databazu do ineho PC kde na novo
instalujem IB tak sa prihlasim ako SYSDBA a som vitaz. ...alebo sa mylim ?

Dakujem.


roland.

Info o otevrenem souboru

[*] Ing. Miroslav Ondrisek <bonnel(zv)telecom(tec)cz> - 7.4.2000 12:21:20

Ahoj vsichni,

existuje nejaka jednoducha cesta jak zjistit, ktery uzivatel ma ze ktereho
pocitace otevreny konkretni soubor?

Jinymi slovy - pomoci funkce FileOpen(FN, fmOpenRead) zjistim, ze soubor se
pouziva (vrati -1) a potreboval bych vedet alespon jmeno PC, ze ktereho je
soubor otevren. Zkousel jsem to najit v projektu LAN Manager od Petra
Vonese, ale je to prilis rozsahle na me casove moznosti. Nicmene kdyz to
jinak nepujde...

Sit je Peer-to-peer IPX/SPX W95/8/NT Work

Diky Mira


TPopupmenu jako submenu TMainmenu

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.4.2000 12:22:14

Ahoj,

nevite, prosim, jak pripojit k mainmenu uz vytvorene a funkcni popupmenu
jako submenu?

Dekuji za kazdou radu

Jaro B.

Kopirovani z CD

[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 7.4.2000 12:28:21


----- P�vodn� zpr�va -----
Od: David Lebeda <david.lebeda(zv)comarr(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. dubna 2000 8:55
P�edm�t: Kopirovani z CD


> Ahoj,
>
> koukal jsem do archivu, ale nenasel jsem tam nic uspokojiveho.
> Tedy - jakym zpusobem zaridit, aby soubor prekopirovany z CD-
> ROM nebyl Read only? Chtel bych se vyhnout pouziti Attrib, na
> druhou stranu bych rad zachoval pouziti funkce CopyFile.
> Prece neni mozne, ze by Windows neumoznovaly menit
> atributy u souboru. Nebo jo?
>
> David
>

Nastaven� atributu z Delphi Helpu:


FileSetAttr sets the file attributes of a specified file.

Unit
SysUtils

function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Description

The FileSetAttr function sets the file attributes of the file given by FileName
to the value given by Attr. The attribute value is formed by OR-ing the
appropriate TSearchRec type constants. The return value is zero if the function
was successful. Otherwise the return value is a Windows error code.

Jak provest script?

[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.4.2000 13:06:01

> > Ahoj,
> >
> > pred chvili jsem narazil na problem. Nechal jsem si vytvorit
> > databazovy script popisujici jeji vytvoreni, nevim ale, jak ho vykonat
> > z Delphi. Dam-li ho do Query, neuspeji. Jednak se mu nelibi slovo
> > GO, ale kdyz je odmazu, odmita provest Create View apod. Sice to
> > chapu, ze by se tezko poznavalo, kde to view konci, kdyz to
> > odmita GO, ale otazka je, co s tim? Kdyz to jde v MS Query
> > Analyzeru, melo by to nejak jit i z Delphi.
> > Pozor - program nepouziva BDE, takze nelze provest
> > komponentu z RxLib.
> >
> > Konfigurace: D4 C/S, nonBDE komponenty, MSSQL 7, spojeni
> > pres ODBC.
> >
>
> Presne na tento problem jsem taky narazil, pak jsem sel touto cestou:
> v stringlistu mam vsechny radky skriptu, jak to vygeneruje MSSQL. Ctu
jeden
> radek po druhem, pokud na radku je GO, dam Query.ExecSQL, smazu Query.SQL
a
> jedu na dalsi radek. Jinak to asi nepude.
>
> Jinak pri pristupu pres BDE musel byt vypnut parametr TQuery.ParamCheck,
> jinak si BDE myslelo ze za dvojteckou je nazev parametru, coz delalo
problem
> napriklad v deklaraci ulozenych procedur.
> Marian

Ne jinak to ani nepujde, nebot GO vpodstate neni prikaz MSSQL, ale jen a
pouze separator
jednotlivych prikazu (Batch), ktere se na MSSQL posilaji postupne (je to
posano v BOL a lze to snadno overit v SQL Profileru).
Dokonce jde v QueryAnalyzeru nastavit jiny oddelovac
viz. menu Query/Current Connection Options... volba TSQL batch separator.

Takze jak bylo receno jedine hledat GO a posilat postupne...

Rob

Web aplikace ISAPI

[*] Jan Votava <djsoft(zv)top(tec)cz> - 7.4.2000 14:13:41

Mne se osvedcilo nastavit PWS tak, aby se automaticky nespoustel pri startu
pocitace - pak se totiz chova tak, jak popisujete.

MSCONFIG -> Spusteni pri startu -> tam vypnout.

PWS se musi spoustet jako prirazena aplikace pri debugovani sam. NEPOUSTET
RUCNE!

Pak debugovani funguje presne tak, jak je popsano v helpu Delphi (D4 C/S) o
debugovani ISAPI a NSAPI aplikaci.

Honza.

> REM BEGIN
> net stop "World Wide Web Publishing Service"
> net stop "IIS Admin service"
> net start "World Wide Web Publishing Service"
> REM END
>
> pokud mate CZ Web server, podivejte se do sluzeb a prepiste si
> tento batch pro vase nazvy. Nepamatuju si to presne, ale cesky se jmenuji
> myslim nejak jako:
> "Sluzba publikovani na siti WWW" a
> "Sluzba spravce systemu IIS" (samozrejme s diakritikou a v 852)
>
> Jura


odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 7.4.2000 14:21:12

Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i object
(TStringList).
Na pridavani pouzivam Items.AddObject metodu. Pro vycisteni vsech objektu se
vola procedura:

procedure TFromDBComboBox.ClearAllItems;

//--------------------------------------------------------------------------
----
// remove all data from Items and clear all items
var
KeyData: TStringList;
i: Integer;
begin
KeyData := nil;
for i:= 0 to Items.Count - 1 do begin
KeyData := TStringList(Items.Objects[i]);
if Assigned(KeyData) then begin
FreeAndNil(KeyData);
end;
end;
Items.Clear;
end;

Ta se vola i z Destructoru:

destructor TFromDBComboBox.Destroy;

//--------------------------------------------------------------------------
----
begin
ClearAllItems;
inherited Destroy;
end;

Pokud vsak tuto komponentu dam na form, program spustim tak dostanu chybu
Access violation ...

Dokonce jsem tu (v destructoru) zkousel jen prikaz ShowMessage('Test:
Destroy') a chyba se objevila znovu.
Tak jsem odstranil vsechen kod z meho TComboBoxu a nechal jen zobrazit
zpravu v destructoru. Kod pak vypadal:

TFromDBComboBox = class(TComboBox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
destructor Destroy; override;
published
{ Published declarations }
end;

destructor TFromDBComboBox.Destroy;

//--------------------------------------------------------------------------
----
begin
ShowMessage('Test: Destroy');
inherited Destroy;
end;

Ale access violation je tam znovu. Zkousel jsem zmenit predka na
TCustomComboBox ci dokonce TButton,
ale chyba je stale tam. Uz jsem z toho celkem zoufaly.
Nevite mi nekdo poradit?

Petr


Config.sys

[*] Karel Kral <kral(zv)purus(tec)cz> - 07.4.2000 14:24:39

V Dosu bych se asi nasmeroval podle promenne environmentu %SystemRoot a
pridal bych k ni \SYSTEM32. To by mohlo fungovat.

Nebo: napsat Delphi (treba konzolovou) aplikaci, ktera si pomoci
GetWindowsDir (? presny nazev nevim) zjisti systemovy adresar Windows a
jsi zase doma.

Problem je, ze kazde Dosovske okno muze mit i jiny config nez config.nt.
Ale nevim, jak moc se to vyuziva.

--
______________________________________________________
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
______________________________________________________


tisk pres pokladni tiskarny v delphi

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 7.4.2000 14:52:44

Neni to zbytecne slozite?
Ja jsem nasel na internetu primo ovladace
takovych tiskaren (SPxx) pro windows a pak
je to docela bezny tisk jako na jine tiskarny.
Uz presne nevim, kde jsem je vyhrabal, ale zkus
www.windrivers.com, hledat STAR, SP, ticket printer...
(V pripade nouze mam SP2xx, muzu poslat)
### Jan Fiala napsal dne 6 Apr 00, v 6:47 :

Od: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
V�c: Re: tisk pres pokladni tiskarny v delphi
Datum odesl�n�: Thu, 6 Apr 2000 06:47:34 +0200
Po�tovn� prog.: Microsoft Outlook Express 5.00.2615.200
Odpov�� kam: delphi-l(zv)fwd(tec)cz

> Taky jsem s tim dlouho bojoval. jedna se vetsinou o seriove
tiskarny, coz
> vec trochu komplikuje. Na W9x jde pouzit znakova tiskarna - je treba
> upravit v definici tiskarny (jde o soubor \Windows\TTY.DAT)
znakovou sadu
> (tiskarna ma latin II nebo Kameniky) a pak jde tisknout i s
cestinou. Na
> NT se mi to zatim nepodarilo, protoze jak je zvykem M$, tisk je
delany
> uplne jinak. Pak jsou dalsi moznosti - tisknout primo na tiskarnu,
tisk si
> ulozit napred do souboru a prikazem Copy ho na tiskarnu zkopirovat.
>
> Jan Fiala
>
> P.S. Viz AutoCont Vyskov
>
> ----- Original Message -----
> From: Heinisch Jiri <deis(zv)deis(tec)cz>
>
>
> > ahoj
> >
> > Ma nekdo zkusenosti tiskem pres pokladni ( bankovni ) tiskarny v
DELPHI
> > tiskarny od vyrobce STAR
> >
> >
> > Diky
> >
> > S pozdravem Heinisch Jiri
> >
> >
>
>


-----------------------------------------------
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


odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.4.2000 15:48:27

> Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i
> object (TStringList). Na pridavani pouzivam Items.AddObject metodu.
> Pro vycisteni vsech objektu se vola procedura:
>
> procedure TFromDBComboBox.ClearAllItems;
>
> //--------------------------------------------------------------------
> ------ ----
> // remove all data from Items and clear all items
> var
> KeyData: TStringList;
> i: Integer;
> begin
> KeyData := nil;
> for i:= 0 to Items.Count - 1 do begin
> KeyData := TStringList(Items.Objects[i]);
> if Assigned(KeyData) then begin
> FreeAndNil(KeyData);
> end;
> end;
> Items.Clear;
> end;
>
> Ta se vola i z Destructoru:
>
> destructor TFromDBComboBox.Destroy;
>
> //--------------------------------------------------------------------
> ------ ----
> begin
> ClearAllItems;
> inherited Destroy;
> end;
>
> Pokud vsak tuto komponentu dam na form, program spustim tak dostanu
> chybu Access violation ...
>
Mozna to je pitomost, ale napada me, ze po uvolneni nejakeho
objektu se snizi jejich pocet a patrne dojde i k preindexovani.
Namisto mazani i-teho prvku bych i-krat mazal nulty. Ale je to jen
takovy momentalni napad na prvni pohled.

David


odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 7.4.2000 16:12:37

Ale problem neni tam - viz verze jen s ShowMessage.
Jo zapomel jsem poznamenat, ze tato chyba se vyskytne jen
kdyz se zavira form, ktery tuto komponentu obsahuje.
Pokud ten object zrusim rucne (MyControl.Free), tak vse probehne OK.

Petr

-----Original Message-----
From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Friday, April 07, 2000 3:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (WinNT,
W2000)> Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i
> object (TStringList). Na pridavani pouzivam Items.AddObject metodu.
> Pro vycisteni vsech objektu se vola procedura:
>
> procedure TFromDBComboBox.ClearAllItems;
>
> //--------------------------------------------------------------------
> ------ ----
> // remove all data from Items and clear all items
> var
> KeyData: TStringList;
> i: Integer;
> begin
> KeyData := nil;
> for i:= 0 to Items.Count - 1 do begin
> KeyData := TStringList(Items.Objects[i]);
> if Assigned(KeyData) then begin
> FreeAndNil(KeyData);
> end;
> end;
> Items.Clear;
> end;
>
> Ta se vola i z Destructoru:
>
> destructor TFromDBComboBox.Destroy;
>
> //--------------------------------------------------------------------
> ------ ----
> begin
> ClearAllItems;
> inherited Destroy;
> end;
>
> Pokud vsak tuto komponentu dam na form, program spustim tak dostanu
> chybu Access violation ...
>
Mozna to je pitomost, ale napada me, ze po uvolneni nejakeho
objektu se snizi jejich pocet a patrne dojde i k preindexovani.
Namisto mazani i-teho prvku bych i-krat mazal nulty. Ale je to jen
takovy momentalni napad na prvni pohled.

David


Langdriver BDE

[*] Jan Naiser <tua(zv)ltm(tec)cz> - 7.4.2000 16:33:43

Pekny den,

W98SE, D4S, BDE5.01
importuji DBF tabulku, ktera je v CP852. V DB, do ktere ji potrebuji dostat
pouzivam langdriver anczechw. Pokud mam v BDE nastaveny pro DBF
LANGDRIVER=DB852CZ0, je vse vporadku. Pokud ale na jinem stroji bude tento
driver nastaveny v BDE jinak (napr. ANSI), jak ho prestavet programove na
tuto moji hodnotu a potom pripadne zpet?
Puvodne jsem zamyslel pouzit 2x TDatabase s rozdilnym nastavenim, ale to se
samozrejme pere mezi sebou (directory is busy).

Za kazdou radu dekuji.

Honza.

TToolButton

[*] Jan Naiser <tua(zv)ltm(tec)cz> - 7.4.2000 18:45:33

Pekny den,

W98SE, D4.03S

mam-li na TToolBaru TToolButton a u neho Style:= tbsSeparator a za behu
nastavuji Visible, nezmeni se (skryje nebo zobrazi), pouze, pokud vytahnu
ToolBar z Docku nebo ho umistim zpet. Jestlize je nastaveni Style:=
tbsButton, je vse vporadku. Obesel jsem to tim, ze prestavim nejdrive Style
na tbsButton a po nastaveni Visible ho opet prestavim.

Je to chyba v D4 nebo delam neco spatne?

Honza.

Jak zjistit, ze proces neni ukoncen?

[*] Pavel Bansky <pbansky(zv)volny(tec)cz> - 7.4.2000 20:11:57

ave Petre !

No jo, ale pri kompilaci to neuprsone krici, a problem je ze ja ten PsApi v Source\Rtl\win nemam :((
nevim proc. Mam D4 C/S. Mohl by jsi me to kdyz tak poslat?

diky Ti moc Pavel


>PSAPI potrebuje jen na NT a tam by prece mela byt, na Win9x pouziva ToolHelp
>funkce. Jeste to asi upravim, aby byly ToolHelp funkce pouzity i ve W2000.

------------------------------------------------------
Pavel Bansky
pbansky(zv)volny(tec)cz


DAO knihovny, DAO3032.DLL

[*] Pavel Bansky <pbansky(zv)volny(tec)cz> - 7.4.2000 20:15:3

Resili jsme podobny problem v praci, ono to chce jeden a ten samej build vsech tech
dao fajlu aby to behalo spolehlilve na vsech kompech. V praci nam BDE s DAO behalo
krasne ale u zakaznika to rvalo. Tak jsem sehnali ty komplet fajly a bylo to. :-)

Pavel

>A Office 2000 obsahuje DAO 3.6 (a s nim souvisejici MS Jet 4.0). MS Jet 4.0
>je i soucasti MDAC 2.1 a vyssi ale jiz neobsahuje DAO.
>
>Mac
>
>----- Original Message -----
>From: "Filip Hlad�k" <fihla(zv)telecom(tec)cz>
>
>Pokud mas Access i doma, muze byt problem ve vezi DAO. Muzes mit v obou
>strojich stejnou verzi Office a zaroven muzes mit rozdilne verze DAO.
>Pricinou je nap�. upgrade Office 95 na Office 97 - zustava puvodni DAO 3.0.
>Samotna instalace O97 ovsem obsahuje DAO 3.5. Bohuzel si uz nepamatuju, kde
>jsem o tom cetl.

------------------------------------------------------
Pavel Bansky
pbansky(zv)volny(tec)cz


mail klient

[*] Pavel Bansky <pbansky(zv)volny(tec)cz> - 7.4.2000 20:17:13

Ja pouzivam na tahani Delphi konference FoxMal a jsem fakt spokojen
http://aerofox.com/fox/

>poradte nejakeho free email klienta ale nie Outlooku a Outlooku Express.
>
>Martin

------------------------------------------------------
Pavel Bansky
pbansky(zv)volny(tec)cz


Langdriver BDE

[*] Lauko �tefan <lauko(zv)salamon.sk> - 7.4.2000 22:58:28

Dobry,
Langdriver BDE je mozne programovo nastavit zapisom do registry (pred
otvorenim datasetu).
Ja som to tak pouzival a fungovalo...

----- Original Message -----
From: Jan Naiser <tua(zv)ltm(tec)cz>
> Pekny den,
>
> W98SE, D4S, BDE5.01
> importuji DBF tabulku, ktera je v CP852. V DB, do ktere ji potrebuji
dostat
> pouzivam langdriver anczechw. Pokud mam v BDE nastaveny pro DBF
> LANGDRIVER=DB852CZ0, je vse vporadku. Pokud ale na jinem stroji bude tento
> driver nastaveny v BDE jinak (napr. ANSI), jak ho prestavet programove na
> tuto moji hodnotu a potom pripadne zpet?
> Puvodne jsem zamyslel pouzit 2x TDatabase s rozdilnym nastavenim, ale to
se
> samozrejme pere mezi sebou (directory is busy).
>
> Za kazdou radu dekuji.
>
> Honza.
>
>

odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

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

Dobry,
napadlo ma: vkladate tam objekty ktore sa rusia pri zruseni formu a tak
destructor formu sa pokusa zrusit
zrusene.
Mozno...


----- Original Message -----
From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 07, 2000 2:21 PM
Subject: odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (WinNT, W2000)> Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i object
> (TStringList).
> Na pridavani pouzivam Items.AddObject metodu. Pro vycisteni vsech objektu
se
> vola procedura:
>
> procedure TFromDBComboBox.ClearAllItems;
>
>
file://---------------------------------------------------------------------
-----
> ----
> // remove all data from Items and clear all items
> var
> KeyData: TStringList;
> i: Integer;
> begin
> KeyData := nil;
> for i:= 0 to Items.Count - 1 do begin
> KeyData := TStringList(Items.Objects[i]);
> if Assigned(KeyData) then begin
> FreeAndNil(KeyData);
> end;
> end;
> Items.Clear;
> end;
>
> Ta se vola i z Destructoru:
>
> destructor TFromDBComboBox.Destroy;
>
>
file://---------------------------------------------------------------------
-----
> ----
> begin
> ClearAllItems;
> inherited Destroy;
> end;
>
> Pokud vsak tuto komponentu dam na form, program spustim tak dostanu chybu
> Access violation ...
>
> Dokonce jsem tu (v destructoru) zkousel jen prikaz ShowMessage('Test:
> Destroy') a chyba se objevila znovu.
> Tak jsem odstranil vsechen kod z meho TComboBoxu a nechal jen zobrazit
> zpravu v destructoru. Kod pak vypadal:
>
> TFromDBComboBox = class(TComboBox)
> private
> { Private declarations }
> protected
> { Protected declarations }
> public
> { Public declarations }
> destructor Destroy; override;
> published
> { Published declarations }
> end;
>
> destructor TFromDBComboBox.Destroy;
>
>
file://---------------------------------------------------------------------
-----
> ----
> begin
> ShowMessage('Test: Destroy');
> inherited Destroy;
> end;
>
> Ale access violation je tam znovu. Zkousel jsem zmenit predka na
> TCustomComboBox ci dokonce TButton,
> ale chyba je stale tam. Uz jsem z toho celkem zoufaly.
> Nevite mi nekdo poradit?
>
> Petr
>

Filtr na zavisle Query

[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 8.4.2000 00:04:29

Ahoj,
Mam dve Query (Oddeleni => Pracovnici)
Potreboval bych filtrovat zaznamy na zavisle Query (pracovnici) pomoci
stisku klaves (napr. jako W. Explorer).
Priklad: natypuju "No" a jsem v DBGridu treba na Novakovi.
Vsechny pokusy mi zatim konci na "Capability not supported."

Dik za Vas cas.

Marian


Error reading data from the connection. - Upresnen

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.4.2000 01:23:50

Skusal som moje PC1 s Windows 2000 tak vsetko bezi ako ma,ba dokonca je
klient PC2 este rychlejsi (lepsie cachovanie W2K). Myslim, ze v mojom
pripade to bude v ovladaci
jednej karty, ktoru W2K vyriesil. Mam moznost to vyskusat na vacsej sieti s
3COM kartami. Dam potom echo o tom.

Roland.


Mam stejny problem, zjistil jsem tohle:
Problemy zpusobuje komponenta IBAlerts pripojena na IBExpres (Stejne spatne
vysledky
podava tato komponenta i s FIBI.
Reseni:
Pouzit dve komponenty DB
jednu na vsechnu praci s daty a druhou na POUZE na ibalerts.

Take se nam stavalo, ze jsem po registrovani udalosti museli dat tak na 600
ms Sleep.

Slavek


Zdravim

Podobne problemy a stejnou chybu jsem mel take. Chyba se vyskytovala
nepravidelne. Priciny byly dve (nezavisle na sobe):

1) Spatny ovladac sitove karty

Reseni: novy ovladac nebo sitova karta


2) Kolize s Netware Clientem verze 3.00 a vyssi a InterBase clientem.
Netware Client nahradil nektere DLL knihovny a ty pak nebyly
v souladu s InterBase clientem - vysledkem byla rada podivnych
chybovych hlaseni pri komunikaci s SQL serverem.

Reseni: Reinstalace InterBase clienta z instalacniho CD

Puvodne jsem take podezrival kabelaz nebo ruseni ale nebylo tomu tak....

Rosta Podmanicky
Trias 92 s.r.o.
Jicin

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Roland Tur�an (RoTurSoft)
Sent: Tuesday, March 28, 2000 1:47 AM
To: Delphi CZ konferencia
Subject: IB: Error reading data from the connection. - Upresnen�


Rychlost IB

[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.4.2000 01:33:38

Zdravim.

Mam tabluku v IB 6, ktora je naplnena cca 10 000 zaznamami o dlazke cca 100
B, co si myslim ze nie je nejak vela, ale zmena zotriedenia je cca 2s a po
pridani alebo oprave a naslednom refresh cca tri sekundy.
--------------------------
Select je nasledovany:

select kurzlist.*,stat from kurzlist left join cudzmena on
kurzlist.mena=cudzmena.mena order by KurzList.Datum
--------------------------
samotny refresh je takto:

function qIBRefresh(IBQuery:TIBQuery):boolean;
var ujed:integer;
begin
Result:=False;
ujed:=0;
Screen.Cursor:=crHourGlass;
try
try
if IBQuery.Active then
begin
ujed:=IBQuery.FieldByName('jedin').asinteger;
IBQuery.Close;
end;
if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
IBQuery.Open;
if IBQuery.Active and IBQuery.Locate('jedin',ujed,[])
then Result:=true
else Result:=False;
// ak nasiel vrati true a ak nie tak false
except on E:EIBError do
begin
MessageDlg('Nastala chyba po�as refresh datab�zy.', mtError, [mbOK], 0);
end; end;
finally Screen.Cursor:=crDefault; end;
end;
---------------------------------------------------
Len co bude ak tabulka bude mat radovo sto tisice zaznamov a podstatne viac
stlpcov,kolko to potom bude.

Co by mu pomohlo k zvyseniu rychlosti.

S pozdravom roland(zv)dakujem.sk

Nahravani wavu

[*] Petr Jel�nek <pjmodos(zv)mymail(tec)cz> - 8.4.2000 01:42:42

Ahoj, nevite nekdo jak bych mohl nahravat zvuk do libovolneho nainstalovaneho formatu (ADPCM, GSM, a dalsi). Budu vam velice vdecny za pomoc.
Petr


Kontrola jedinecnosti v IB

[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.4.2000 02:48:04

Zdravim.

Mam tabulku s poliami

PredBU varchar(6),
CisloBU varchar(10) not null,
KodBanky varchar(4) not null,
SpecSymb varchar(10)


tato tabulka sa pouziva na definovanie bankovych uctov partnerov, ale pri
vytvoreni:

ALTER TABLE BANKSPOJ
ADD CONSTRAINT BANKSPOJ_UCET UNIQUE (PREDBU,CISLOBU,KODBANKY,SPECSYMB)

som pochopil ze chce aby boli polia PredBU a SpecSymb definovane ako not
null, ale nie kazdy bankovy ucet vyzaduje predcislie a specificky symbol a
ked su ako not null, tak nie je samozrejme mozne zadat dva ucty bez napr.
predcislia bankoveho uctu.

Je to mozne riesit na urovni databazy, alebo ist cez :

Select count(*)
from bankSpoj
where
PredBU='123456' and
CisloBU='1234567890' and
KodBanky='1234' and
SpecSymb='1234567890'


Dakujem za kazdy nazor.

Roland.

Jak odstranit Highlight u vybraneho radku v ListBo

[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 8.4.2000 10:01:05

Jestli to dobre chapu, tak by melo stacit nastavit property
ItemIndex:= -1

Snad je to ono.

Karel

Karel Vlcek
=============================
poskytovani software
mailto: vlcekk(zv)hotmail.com
=============================

----- Original Message -----
From: Va�k�� Martin <MVackar(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 07, 2000 10:57 AM
Subject: Jak odstranit Highlight u vybraneho radku v ListBoxu ?> Ahoj,
> prosim o radu, jak zlikvidovat modrou barvu u vybraneho radku z ListBoxu.
> Dekuji
> Martin Vackar.
> mvackar(zv)cpoj(tec)cz
>
>

Version Info

[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 8.4.2000 11:58:05

Sice si nejsem jisty, jestli je to uplne to prave, ale uz to funguje.
Ono tam to VersionInfo bylo, ale pres API se k nemu nedalo dostat.
Zatim nejsem schopen to znovu nasimulovat.

Presto diky

Karel

Karel Vlcek
=============================
poskytovani software
mailto: vlcekk(zv)hotmail.com
=============================

----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 07, 2000 12:07 AM
Subject: Re: Version Info


> From: Karel Vlcek <vlcekk(zv)hotmail.com>
> > Po preinstalovani pocitace, tedy i Delphi - D5-Prof, mi pri kompilaci
> > nepridaji VersionInfo do exe souboru.
> > V "Project|Options|Version Info" je samozrejme zaskrnutno "Include
version
> > info in project", coz pred preinstalaci stacilo. Myslel jsem na nejakou
> > chybicku D, tak jsem pridal "Update...", ale je to porad stejne.
>
> Ahoj,
>
> zkus vymazat .RES soubor projektu, Delphi si jej pak znovu vytvori.
>
> Petr Vones, amatersky programator
>
>
>

Config.sys

[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 8.4.2000 12:35:55

Ahoj,
Mozna by to slo udelat i takhle.
Kazdy DOS program muze pod NT pouzivat vlastni
verzi autoexec a config. To se nadefinuje v PIF souboru.
Tvoje instalace by pak obsahovala tenhle pif a
modifikovanej config. Cesta ke tvamu config.nt by v
pif souboru byla napsana pomoci systemove promenne,
kterou vytvoris zapisem do registru
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment

Ahoj Tomas Bihary

----- Original Message -----
From: Lauko Stefan <lauko(zv)salamon.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 06, 2000 6:00 PM
Subject: RE: Config.sys


> To je jasne, ze WIN32 nepouziva config a autoexec ale ked sa spusta DOS
> aplikacia tak sa pouzije config. Na NT/W2000 nemusi byt na disku z ktoreho
> sa bootuje. Konkretne na W2000 je vo WinNT\SYSTEM32. Jedna sa o to, ze pri
> instalacii DOS-programu potrebujem modifikovat config. V DOS/W95/W98 to
> funguje bez problemu. Na NT/W2000 uz musi uzivatel rucne dopisat udaje do
> config.nt - inak program skolabuje.
> Mozno tento problem nepatri do diskusie ale kolegovia ktory udrziavaju
> DOSovsky program ma poziadali o vyriesenie tohto problemu.
> Bohuzial este sa pouzivaju aj DOS programi z ktorych zijeme, alebo sa
mylim.
>
> Lauko.
>
> > > Dobry,
> > > vedel by mi niekto poradit ako zistit umiestnenie aktivneho suboru
> config.sys(nt) a autoexec.bat(nt).
> > > Bud v Delphi alebo TP.
> > > Hlavne na NT a W2000.
> > >
> > > Dakujem.
> > >
> >
> >

Acrobat a DELPHI

[*] Miroslav Topol�� - 8.4.2000 20:27:04



Zdravim vas.
Mam jeden velky problem. Potrebuji ve vlastnim programu zobrazovat PDF soubory.

Co se povedlo:
1. Pomoci ACTIVEX komponenty Acrobat Readeru jsem zobrazil PDFko

S cim nemuzu hnout:
1. Netusim jak zjistit aktualni stranku v otevrenem PDF. ACTIVEX komponenta povoluje pouze nastavovat aktualni stranku a ne ji cist. K reseni meho problemu je ovsem znalost aktualni stranky nutna !!!

Moc vas vsechny prosim, jestli vite jak zjistit aktualni stranku, ci nejaky zpusob jak by se ji slo dopatrat, ci znate jiny zobrazovac PDF nez Acrobat Reader, poradte prosim.

Predem velice dekuji, M.Topolar


Refresh v SQL vs. Close/Open po UPDATE

[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 8.4.2000 23:04:06

Delphi 5Prof, Win98, IB6.0 Beta

V Interbasi udelam update a chci, aby se mi zmeny projevili i na formulari.
Delam to tak, ze IBDataSet zavru a zase otevru pomoci Close/Open. Kurzor se
vsak dostane na prvni radek, coz nechci. Potrebuji, aby kurzor zustal na
radku, kde jsem delal update. Jaky je spravny postup a jake komponenty u IB
pouzit? Resp. co vechno musim mit na formulari, aby mi u tabulky fungovali
spravne zakladni operace (Insert, update, delete,...).

Jsem C/S zacatecnik.

Ing. Petr Svejda
software specialist


Zatuhnuti aplikace v D5

[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 9.4.2000 11:04:57

Zdravim!
V D5 Ent. programuju editor map pro moji budouci hru a posledni dobou se me stava, ze kdyz programuju v Delphi a spustim ten editor tak aplikace vubec nenabehne a musim shodit cele Delphi. Mozna to zpusobuje pocet komponent TImage (cca 566). Tento pocet by mel v budoucnu jeste stoupnout. Temto komponentam prirazuju obrazky az za behu pomoci Image200.Picture.Assign(Image1.Picture); - delam to samozrejme v cyklu:

for I := 0 to ComponentCount - 1 do
begin
C := Components[I];
if not bylOK then
begin
if (C is TImage) and (C <> Image1) then
TImage(C).Picture.Assign(Image1.Picture);
end else
begin
if (C is TImage) and (C <> TIKlik) then
TImage(C).Picture.Assign(FNovaMapa.Image1.Picture);
end;
end;

Asi 80ti komponentam (TImage) nahravam obrazky pomoci TSImage1.Picture.LoadFormFile(nazev souboru); - Tento pocet se bude nejvice zvetsovat.

Pomoci aplikace "Meric prostredku" jsem nameril tyto hodnoty (editor jsem spoustel bez bezicich Delphinu):

Systemove prostredky:
Pred spustenim: 84%
Po spusteni: 80%
Po ukonceni: 84% (obcas 83%)

Uzivatelske prostredky:
Pred spustenim: 84%
Po spusteni: 80%
Po ukonceni: 84% (obcas 83%)

Prostredky GDI:
Pred spustenim: 92%
Po spusteni: 84%
Po ukonceni: 92%

Program byl spusten na W98, 64 MB RAM. Pokud bude potreba uvest jakekoliv dalsi udaje tak je rad poskytnu (klidne i zdrojove kody).

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ www.samuel(tec)cz/~gamemaker
[ www.samuel(tec)cz/~markm
[ http://board.jinak(tec)cz
===============================

treeview a expand

[*] Tom� Br�dle������i�^����? - 9.4.2000 11:59:02

Zdravim,

a pouzivas items.BeginUpdate a items.EndUpdate ? To by mohl byt ten problem.

Tomas

----- P�vodn� zpr�va -----
Od: Robert Zak <nrsys(zv)psn.sk>

> To sa sice da, ale ja som sa chcel prave vyhnut tomu aby som musel do
> Treewiev pchat dvakrat tolko poloziek ako naozaj potrebujem.. Mozno robim
> nieco zle, ale pokial nic nenastavim a pouzivam do items Add, trva mi
napr.
> 400 poloziek aj 5-6 sekund.
>
> Robo

WinBase602 a komponenty

[*] iturcan(zv)gamo.sk - 9.4.2000 14:58:18


>Delal nekdo z vas neco z Winbase602 ?

Pravdaze

>Nasel jsem na inetu nativni komponenty do
>delphi http://ns1.software602(tec)cz/wde/
>a chtel jsem se zeptat jake s tim mate zkusenosti.

Kedze som tieto komponenty programoval, to co tu uvediem sa moze zdat dost
neobjektivne.
Balik komponent WDE sluzi na nativne pripojenie k databazovemu stroju
WinBase602.
Charakteristika a popis komponent je k dispozicii na webe (adresa je hore).
Skusenosti s komponentami mam dobre, pretoze splnaju vsetko to co od WB
potrebujem, tiez velmi dobre
spolupracujem z uzivatelmi WDE , takze pripadne chyby ktore komponenty maju
sa snazim rychlo riesit.
Komponenty pouzivam pre svoje aplikacie, ktore su roznych typov:

- informacny system liekov a diagnoz (win32 version)
- informacny system liekov a diagnoz, verzia for Inet, pouzitie vramci DCOM
servra a CGI skriptu
- komunikacny server
- statisticky software

Iste je ze nema zmysel vypisovat vyhody a nevyhody, kazdy uzivatel si musi
urobit na zaklade svojich
potrieb vlastny usudok ku komponentam WDE. Co sa mna tyka, rad na pripadne
otazky ku konektivite
a pouzivaniu WinBase v spolupraci z nastrojmi Inprise zodpoviem.

S pozdravom

Ivan Turcan


seriova komunikace

[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 9.4.2000 15:38:24

ahoj

marne shanim nejakou literaturu k seriov� komunikaci ve Win32.
Nemate nekdo nejaky link, material ci knihu k uvedemu tematu.
Melo by to byt uplneho zacatecnika. (to jsem ja)

S pozdravem Heinisch Jiri

Refresh v SQL vs. Close/Open po UPDATE

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 9.4.2000 16:47:00

V Interbasi udelam update a chci, aby se mi zmeny projevili i na formulari. Delam to tak, ze IBDataSet zavru a zase otevru pomoci Close/Open. Kurzor se vsak dostane na prvni radek, coz nechci. Ja to riesim tak, ze pred close si zapamatam cislo v riadku, ktore je jedinecne, zatvorim ho a po otvoreni ho vyhladam. Ale mam taku skusenosti, ze musis deaktivovat aj priradeny IBTransaction k IB..., lebo refresh nebude spravny Ked chces poslem ti moje zdrokaj refreshu.

Potrebuji, aby kurzor zustal na radku, kde jsem delal update. Jaky je spravny postup a jake komponenty u IB pouzit? Resp. co vechno musim mit na formulari, aby mi u tabulky fungovali spravne zakladni operace (Insert, update, delete,...).

Doporucujem pouzivat IBDataset alebo IBQuery, nie Table (budes mat problemy pri zoradeni s diakritikou, query to riesi cez Collate ale table bez zadania collate a prislusnej kodovej stranky.)
Porozmyslaj na pouziti IBTable.

Ak som vsetko nevysvetlil tak mi este napis co chces. Roland (rotursoft(zv)nextra.sk)

Kontrola jedinecnosti v IB

[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.4.2000 21:03:32

Ja by som to riesil tak, ze ak ucet nema predcislie alebo nevyzaduje
spec.symbol tak nech sa zada prazdny retazec ( to je NOT NULL) a tym sa
vyhovie aj definicii constraint.
Da sa to zabezpecit triggerom na insert napr. takto:
...
if (new.PredBU is null) then new.PredBU='';
...

Pavol Stolc
pstolc(zv)sc.sknet.sk

----- Original Message -----
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, April 08, 2000 2:48 AM
Subject: Kontrola jedinecnosti v IB


> Zdravim.
>
> Mam tabulku s poliami
>
> PredBU varchar(6),
> CisloBU varchar(10) not null,
> KodBanky varchar(4) not null,
> SpecSymb varchar(10)
>
> tato tabulka sa pouziva na definovanie bankovych uctov partnerov, ale pri
> vytvoreni:
>
> ALTER TABLE BANKSPOJ
> ADD CONSTRAINT BANKSPOJ_UCET UNIQUE (PREDBU,CISLOBU,KODBANKY,SPECSYMB)
>
> som pochopil ze chce aby boli polia PredBU a SpecSymb definovane ako not
> null, ale nie kazdy bankovy ucet vyzaduje predcislie a specificky symbol a
> ked su ako not null, tak nie je samozrejme mozne zadat dva ucty bez napr.
> predcislia bankoveho uctu.
>
> Je to mozne riesit na urovni databazy, alebo ist cez :
>
> Select count(*)
> from bankSpoj
> where
> PredBU='123456' and
> CisloBU='1234567890' and
> KodBanky='1234' and
> SpecSymb='1234567890'
>
> Dakujem za kazdy nazor.
>
> Roland.
>
>

Refresh v SQL vs. Close/Open po UPDATE

[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 9.4.2000 21:15:08

IBDataSet ma aj property RefreshSQL. Tam treba napchat SQL dotaz napr.: select * from table where id=?old id, a potom namiesto close/open pouzit metodu Refresh.

Pozn.: Formular musi zobrazovat data v kontexte tej istej transakcie, alebo transakcia formularu musi mat v Params definovany parameter ReadComitted.

Pavol Stolc
pstolc(zv)sc.sknet.sk


Info o otevrenem souboru

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

From: Ing. Miroslav Ondrisek <bonnel(zv)telecom(tec)cz>
> existuje nejaka jednoducha cesta jak zjistit, ktery uzivatel ma ze ktereho
> pocitace otevreny konkretni soubor?
>
> Jinymi slovy - pomoci funkce FileOpen(FN, fmOpenRead) zjistim, ze soubor se
> pouziva (vrati -1) a potreboval bych vedet alespon jmeno PC, ze ktereho je
> soubor otevren. Zkousel jsem to najit v projektu LAN Manager od Petra
> Vonese, ale je to prilis rozsahle na me casove moznosti. Nicmene kdyz to

Ahoj,

V tom demu by to mela byt metoda TMainForm.BuildNetFileList. Nemam moznost
to ted uz zkusit. Dalsi problem je, ze toto bude fungovat jen na Win9x, pro
NT je odlisna sada funkci.

Petr Vones, amatersky programator

odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:18:29

From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
> Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i object
> (TStringList).
> Na pridavani pouzivam Items.AddObject metodu. Pro vycisteni vsech objektu se
> vola procedura:
> procedure TFromDBComboBox.ClearAllItems;
>
> Ta se vola i z Destructoru:
> destructor TFromDBComboBox.Destroy;
> Pokud vsak tuto komponentu dam na form, program spustim tak dostanu chybu
> Access violation ...

Ahoj,

Prepis metodu DestroyHandle a z ni volej (pred inherited) svoji metodu
ClearAllItems. Nezkousel jsem to, ale melo by to fungovat.

Petr Vones, amatersky programator

MDAC 2.5

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:18:57

From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> zkousel jste nekdo instalovat MDAC 2.5 na Windows 95? Po
> kazdem restartu mi ve Woknech problikne dialog o pokusu neco
> instalovat. Muj partner mi hlasi, ze po instalaci MDAC na pocitac

Ahoj,

Presne to se mi delo taky, patrne to M$ zapomel otestovat na Win95 :-) Stacilo
odstranit zapis v registru pro spousteni souboru RUNONCE.EXE. Nejsem ale v
siti, takze je mozne, ze to ma jeste nejake dalsi problemy.

Pred instalaci musi byt na Win95 take nainstalovan DCOM. To ale neni problem,
staci provest update pomoci instalace IE5.

Petr Vones, amatersky programator

Zatuhnuti aplikace v D5

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:19:07

From: Martin Pe�ek <pesek.martin(zv)mymail(tec)cz>
> V D5 Ent. programuju editor map pro moji budouci hru a posledni dobou se me stava,
> ze kdyz programuju v Delphi a spustim ten editor tak aplikace vubec nenabehne a
> musim shodit cele Delphi. Mozna to zpusobuje pocet komponent TImage (cca 566).
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Uff! Proc jich tam mas tolik, neslo by to vyresit nejak jinak ? Vzdyt staci mit
napriklad jen jeden TImage a do neho nahravat obrazky dle potreby.

Petr Vones, amatersky programator

TToolButton

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:19:36

From: Jan Naiser <tua(zv)ltm(tec)cz>
> W98SE, D4.03S
>
> mam-li na TToolBaru TToolButton a u neho Style:= tbsSeparator a za behu
> nastavuji Visible, nezmeni se (skryje nebo zobrazi), pouze, pokud vytahnu
> ToolBar z Docku nebo ho umistim zpet. Jestlize je nastaveni Style:=
> tbsButton, je vse vporadku. Obesel jsem to tim, ze prestavim nejdrive Style
> na tbsButton a po nastaveni Visible ho opet prestavim.

Ahoj,

Stejna chyba je i v D5. Lze ji odstranit napriklad takhle:

procedure TForm1.Button1Click(Sender: TObject);
var
SaveButtonHeight: Integer;
begin
with ToolButton4 do
Visible := not Visible;

// zavolani private metody TToolBar.RecreateButtons
with ToolBar1 do
begin
SendMessage(Handle, WM_SETREDRAW, 0, 0);
try
SaveButtonHeight := ButtonHeight;
ButtonHeight := ButtonHeight + 1;
ButtonHeight := SaveButtonHeight;
finally
SendMessage(Handle, WM_SETREDRAW, 1, 0);
Invalidate;
end;
end;
end;

Petr Vones, amatersky programator

Jak odstranit Highlight u vybraneho radku v ListBo

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:19:25

From: Va�k�� Martin <MVackar(zv)cpoj(tec)cz>
> prosim o radu, jak zlikvidovat modrou barvu u vybraneho radku z ListBoxu.

Ahoj,

nastav u neho vlastnost Style na lbOwnerDrawFixed a pak do udalosti
OnDrawItem dej toto:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control) do
begin
Canvas.Brush.Color := Color;
Canvas.Font.Color := Font.Color;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect, Rect.Left, Rect.Top, Items[Index]);
end;
end;

Petr Vones, amatersky programator

ABC komponenty

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.4.2000 23:19:15

From: <pemasoft(zv)atlas(tec)cz>
> Na CD Companion Tools dodavane s Delphi 5 prof. se nachazeji ABC komponenty
> lite version.
> Po nainstalovani do Delphi a naslednem pouziti nektere komponenty, Delphi
> pri kompilaci skonci na chybovem hlaseni File not found *.dcu.
> Vyrobce pise ze DCU soubory v lite veresion neposkytuje...
>
> Funguje to nekomu ???
> Jde compilator nastavit, aby DCU nepotreboval ???

Ahoj,

v tomto pripade pak musis projekt prekladat s balicky.

Petr Vones, amatersky programator

seriova komunikace

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

From: Heinisch Jiri <deis(zv)deis(tec)cz>
> marne shanim nejakou literaturu k seriov� komunikaci ve Win32.
> Nemate nekdo nejaky link, material ci knihu k uvedemu tematu.
> Melo by to byt uplneho zacatecnika. (to jsem ja)

Ahoj,

Tady je docela dobry clanek pro zacatek:
http://msdn.microsoft.com/library/techart/msdn_serial.htm

Jinak je dobre mit i znalosti jadra Win32, asi nejlepsi kniha na toto tema
je Jeffrey Richter: "Advanced Windows". Ted uz vyslo ctvrte vydani (pozor
finta, kniha se uz jmenuje jinak). Kdysi tu vysel preklad starsiho vydani,
pod nazvem "Windows pro pokrocile a experty". Popripade se ti muze hodit i
nejake to skoleni Win32 API.

Petr Vones, amatersky programator


Rychlost IB

[*] Jaro <jaro(zv)sinea(tec)cz> - 9.4.2000 20:41:17 -0700

Jedna se o Join dvou tabulek s absenci klauzele where.
Nutno pocitat vsechna spojeni.
10 000 x 100 B = 1 000 000 B, tj. 1 MB dat.
Za jak dlouho myslis, ze nactes 1MB dat do pameti
nebo presunes tento objem dat po siti ze serveru?
Ja myslim, ze jsou to dobre casy.
Doufam, ze az ta tabulka bude mit jak pises
radove sto tisic radku, ze s tim nebudes zachazet
timto zpusobem. Interbase je databazovy server
a slouzi pro vytvareni technologii C/S

Pokud se tyka te konstrukce Refresh, tak
zde provadis zpracovani v datasetu a IB s tim neme
uz vubec nic spolecnyho. To uz je v rezii BDE
a tveho algoritmu, ktery mimo jine vyuziva
ne prilis rychle funkce Locate
Vzhledem k tomu bych cas 3 sec povazoval take za dobry.
Pomoci SQL monitoru si zjisti jake casy pripadaji
na IB, jake na dopravu dat a pak si zmer jak dlouho
trva napriklad toLocate na klientovi.

Ke zvyseni rychlosti pomuze napr.

1. nahradit JOIN ulozenou procedurou nebo view
2. provest ucinnou segregaci dat (radky i sloupce) a zobrazovat
jenom data, ktera jsou prave potrebna. Na jedne
obrazovce stejne nikdy nelze zobrazit najednou 100 000
radku, tak proc je stale natahovat vsechna a delat
na ne jeste refresh. Krom toho uz vidim, jak nekdo
listuje v takovam mnozstvi zaznamu. Je potreba vymyslet to jinak.
3. nisto Locate pouzit Bookmark. Teprve pokud se
puvodni zaznam nenachazi na stejnem miste, dohledat
jej pomoci Locate

> Zdravim.
>
> Mam tabluku v IB 6, ktora je naplnena cca 10 000 zaznamami o dlazke cca
100
> B, co si myslim ze nie je nejak vela, ale zmena zotriedenia je cca 2s a po
> pridani alebo oprave a naslednom refresh cca tri sekundy.
> --------------------------
> Select je nasledovany:
>
> select kurzlist.*,stat from kurzlist left join cudzmena on
> kurzlist.mena=cudzmena.mena order by KurzList.Datum
> --------------------------
> samotny refresh je takto:
>
> function qIBRefresh(IBQuery:TIBQuery):boolean;
> var ujed:integer;
> begin
> Result:=False;
> ujed:=0;
> Screen.Cursor:=crHourGlass;
> try
> try
> if IBQuery.Active then
> begin
> ujed:=IBQuery.FieldByName('jedin').asinteger;
> IBQuery.Close;
> end;
> if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
> IBQuery.Open;
> if IBQuery.Active and IBQuery.Locate('jedin',ujed,[])
> then Result:=true
> else Result:=False;
> // ak nasiel vrati true a ak nie tak false
> except on E:EIBError do
> begin
> MessageDlg('Nastala chyba poeas refresh databazy.', mtError, [mbOK],
0);
> end; end;
> finally Screen.Cursor:=crDefault; end;
> end;
> ---------------------------------------------------
> Len co bude ak tabulka bude mat radovo sto tisice zaznamov a podstatne
viac
> stlpcov,kolko to potom bude.
>
> Co by mu pomohlo k zvyseniu rychlosti.
>
> S pozdravom roland(zv)dakujem.sk
>

Kontrola jedinecnosti v IB

[*] Jaro <jaro(zv)sinea(tec)cz> - 9.4.2000 21:04:05 -0700

To je prece logicke, ze UNIQUE pole musi byt not null,
jinak by prece mohlo byt duplicitni.

Bylo by vhodne to resit na urovni triggeru BeforeInsert
podobnym Select, jaky jsi uvedl.

create trigger Trigger1 for BANKSPOJ active before insert position 0
DECLARE VARIABLE Count1 integer;
AS
BEGIN
Select count(*) from bankSpoj
where
PredBU = new.PredBU and
CisloBU = new.CisloBU and
KodBanky = new.KodBanky and
SpecSymb = new.SpecSymb
into :Count1

IF (Count1 > 0) THEN BEGIN
exception except_uniq;
END
END

Pak uz jen staci zalozit exception except_uniq s textem treba "Duplicitni
bankovni zapis"
Jaro


Select count(*) from bankSpoj
where PredBU = new.PredBU and
CisloBU = new.CisloBU and
KodBanky = new.KodBanky and
SpecSymb = new.SpecSymb
into


> Zdravim.
>
> Mam tabulku s poliami
>
> PredBU varchar(6),
> CisloBU varchar(10) not null,
> KodBanky varchar(4) not null,
> SpecSymb varchar(10)
>
> tato tabulka sa pouziva na definovanie bankovych uctov partnerov, ale pri
> vytvoreni:
>
> ALTER TABLE BANKSPOJ
> ADD CONSTRAINT BANKSPOJ_UCET UNIQUE (PREDBU,CISLOBU,KODBANKY,SPECSYMB)
>
> som pochopil ze chce aby boli polia PredBU a SpecSymb definovane ako not
> null, ale nie kazdy bankovy ucet vyzaduje predcislie a specificky symbol a
> ked su ako not null, tak nie je samozrejme mozne zadat dva ucty bez napr.
> predcislia bankoveho uctu.
>
> Je to mozne riesit na urovni databazy, alebo ist cez :
>
> Select count(*)
> from bankSpoj
> where
> PredBU='123456' and
> CisloBU='1234567890' and
> KodBanky='1234' and
> SpecSymb='1234567890'
>
> Dakujem za kazdy nazor.
>
> Roland.
>
>

Rychlost IB

[*] J�n Tungli - 10.4.2000 06:22:09

(Co sa tice Join tak to nevadi lebo to sa vykona na servri.)
Co sa tice Locate - tam je zrada lebo locate hlada u klienta zaznam tak ze
prechadza vsetky zaznami. Trena mat na pameti, ze ak parcujes na SQL je
nutne zabudnut na funkcie ktore robia nieco u klienta a to su: Locate,
Filter, MoveBy (mozno aj Last). Ak Locate robis cez SQL dotaz tak ti to
preide bleskovo. (locate u 10 000 zaznamov trva 3 sec)

J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384


----- Original Message -----
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, April 08, 2000 1:33 AM
Subject: Rychlost IB


Zdravim.

Mam tabluku v IB 6, ktora je naplnena cca 10 000 zaznamami o dlazke cca 100
B, co si myslim ze nie je nejak vela, ale zmena zotriedenia je cca 2s a po
pridani alebo oprave a naslednom refresh cca tri sekundy.
--------------------------
Select je nasledovany:

select kurzlist.*,stat from kurzlist left join cudzmena on
kurzlist.mena=cudzmena.mena order by KurzList.Datum
--------------------------
samotny refresh je takto:

function qIBRefresh(IBQuery:TIBQuery):boolean;
var ujed:integer;
begin
Result:=False;
ujed:=0;
Screen.Cursor:=crHourGlass;
try
try
if IBQuery.Active then
begin
ujed:=IBQuery.FieldByName('jedin').asinteger;
IBQuery.Close;
end;
if IBQuery.Transaction.Active then IBQuery.Transaction.Active:=False;
IBQuery.Open;
if IBQuery.Active and IBQuery.Locate('jedin',ujed,[])
then Result:=true
else Result:=False;
// ak nasiel vrati true a ak nie tak false
except on E:EIBError do
begin
MessageDlg('Nastala chyba po�as refresh datab�zy.', mtError, [mbOK], 0);
end; end;
finally Screen.Cursor:=crDefault; end;
end;
---------------------------------------------------
Len co bude ak tabulka bude mat radovo sto tisice zaznamov a podstatne viac
stlpcov,kolko to potom bude.

Co by mu pomohlo k zvyseniu rychlosti.

S pozdravom roland(zv)dakujem.sk

Kontrola jedinecnosti v IB

[*] Bc. Libor Filip <filip(zv)agrokonzulta(tec)cz> - 10.4.2000 07:56:05


Co se tyka bankovnich uctu, tak jsme postupovali nasledovne:
Mam tabulku

CisloBU varchar(17) not null,
EdicniCisloBU varchar(16) not null,
KodBanky varchar(4) not null,
SpecSymb varchar(10)

kde
PredBU a CisloBU jsou v CisloBU
a navic je sloupec EdicniCisloBU, kde se zadane cislo uctu prevadi do unifikovane podoby
jedinecny index je na polozkach
EdicniCisloBU + KodBanky
jako funkci pro prevod do edicniho formatu mame UDF

function f EdicniUcet(Ucet: PChar): PChar; cdecl; export;
var
sPom: string;

function PridejZnakZleva(AsPom: string; ADoDelky: byte; Znak:Char): string;
begin
while Length(AsPom)<ADoDelky do
AsPom:=Znak+AsPom;
Result:=AsPom;
end;

begin
sPom := Ucet;
while (Pos(' ', sPom) > 0) do delete(sPom, Pos(' ', sPom), 1);
if Length(sPom)>=3 then begin
if Copy(sPom,Length(sPom)-3,1)='-' then
sPom:=PChar(Copy(sPom,1,Length(sPom)-4)+copy(sPom,length(sPom)-2,3));
end;
if Pos('-',sPom)>0 then
sPom:=PChar(PridejZnakZleva(Copy(sPom,1,Pos('-',sPom)-1),6,'0')
+PridejZnakZleva(Copy(sPom,Pos('-',sPom)+1,255),10,'0'))
else
sPom:=PChar(PridejZnakZleva(sPom,16,'0'));
Result := MakeResultString(PChar(sPom), nil, 0);
end;

function MakeResultString(Source, OptionalDest: PChar; Len: DWORD): PChar;
begin
result := OptionalDest;
if (result = nil) then begin
if (Len = 0) then
Len := StrLen(Source) + 1;
{$ifdef FREE IT}
result := malloc(Len);
{$else}
with ThreadLocals do begin
(*
* If the current PChar is smaller than than Source, or
* it is significanly larger than Source, then reallocate it
* in cSignificantlyLarger chunks.
*)
if (FPCharSize < Len) or
(FPCharSize > Len + cSignificantlyLarger) then begin
FPCharSize := 0;
(*
* Realistically, we'll never return strings longer than about
* 2k, so I'd rather risk spending time in a loop that *adds* than
* "compute" FPCharSize by performing division and modulo arithmetic.
* Addition is very fast, and the while loop will in general, only
* be at most 1 to 2 steps.
*)
while (FPCharSize < Len) do
Inc(FPCharSize, cSignificantlyLarger);
ReallocMem(FPChar, FPCharSize);
end;
result := FPChar;
end;
{$endif}
end;
if (Source <> result) then begin
if (Source = nil) or (Len = 1) then
result[0] := #0
else
Move(Source^, result^, Len);
end;
end;

tato funkce se vola ve dvou triggerech
1. BEFORE INSERT
New.EdicniUcet = f EdicniUcet(New.Ucet);
2. BEFORE UPDATE
New.EdicniUcet = f EdicniUcet(New.Ucet);

-----P�vodn� zpr�va-----
Od: Roland Turcan (RoTurSoft) [SMTP:rotursoft(zv)nextra.sk]
Odesl�no: 8. dubna 2000 2:48
Komu: Delphi CZ konferencia
P�edm�t: Kontrola jedinecnosti v IB

Zdravim.

Mam tabulku s poliami

PredBU varchar(6),
CisloBU varchar(10) not null,
KodBanky varchar(4) not null,
SpecSymb varchar(10)


tato tabulka sa pouziva na definovanie bankovych uctov partnerov, ale pri
vytvoreni:

ALTER TABLE BANKSPOJ
ADD CONSTRAINT BANKSPOJ UCET UNIQUE (PREDBU,CISLOBU,KODBANKY,SPECSYMB)

som pochopil ze chce aby boli polia PredBU a SpecSymb definovane ako not
null, ale nie kazdy bankovy ucet vyzaduje predcislie a specificky symbol a
ked su ako not null, tak nie je samozrejme mozne zadat dva ucty bez napr.
predcislia bankoveho uctu.

Je to mozne riesit na urovni databazy, alebo ist cez :

Select count(*)
from bankSpoj
where
PredBU='123456' and
CisloBU='1234567890' and
KodBanky='1234' and
SpecSymb='1234567890'


Dakujem za kazdy nazor.

Roland.

Jak na distribuci?

[*] Marian Hatala <emha(zv)mailbox.sk> - 10.4.2000 07:22:42

Zdravim

Nieco podobne je mozne aj na MS SQL 7 - treba si pozriet procedurky
sp_attach_db a sp_attach_single_file_db a netreba sa bat ze niekto
uvidi nieco co nema
eMHa
emha(zv)mailbox.sk



----- Original Message -----
From: "Bosnis" <bosnis(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 6. dubna 2000 8:27
Subject: RE: Jak na distribuci?> Osobne bych nedaval nikde zadny script, nevim jestli vsechny typy
databazi,
> ale ORACLE i ASA od Sybase maji ve scriptu, pokud se pouzije unload
i radky
> obsahujici jmeno uzivatele i heslo (!!!) a existuje i zpusob jak se
> prihlasit bez znalosti hesla v citelnem tvaru ( i tento je obsazen
ve
> scriptu ).
>
> connect user <uzivatel> identified by <heslo nebo zakodovane heslo v
HEX
> tvaru>
>
> Ja pouzivam kopii databaze s predvyplnenymi daty.
>
> Ing. 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 uzivatele
> David Lebeda
> Odesl�no: 6. dubna 2000 7:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Jak na distribuci?
>
> Ahoj,
>
> chtel bych vas poprosit o nejake postrehy k distribuci programu
> vyuzivajicich nejaky SQL server, konkretne toto:
>
> Na SQL serveru u zakaznika je treba vytvorit databazi a necim
> ji predvyplnit. Otazka je, jak toto efektivne vyresit. Mam
pripraveny
> Script ze sve databaze a staci ho spustit u zakaznika. Nevim ale,
> jestli je rozumne ho jen tak prilozit na instalacni CD, nebo jestli
je
> vhodne ho nejak zakodovat apod. Jak to resite vy?
>
> David
>

odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 10.4.2000 08:38:50

Zkusil jsem to ale ta metoda (DestroyHandle) se vubec nezavola.

Zkusil jsem jednoduchy komponent:


//==========================================================================
====
unit MyComboBox;

//==========================================================================
====


//==========================================================================
====
interface

//==========================================================================
====

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

type
TPokusComboBox = class(TComboBox)
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

procedure Register;


//==========================================================================
====
implementation

//==========================================================================
====


//==========================================================================
====
{ TPokusComboBox }

constructor TPokusComboBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;

destructor TPokusComboBox.Destroy;
begin
if Items.Count > 0 then
Items.Clear;
inherited;
end;

procedure Register;

//--------------------------------------------------------------------------
----
begin
RegisterComponents('JD Soft', [TPokusComboBox]);
end;

end.

Pokud tento komponent hodim na form, ulozim ho a ukocim Delphi, tak dostanu
zpravu
"Control PokusComboBox1 has no parent window" a pak (nekdy) The instruction
"adresa"
referenced memory at "adresa". The memory could not be "read".


Pokud do meho puvodniho komponentu (s TStringList vlozenych pres AddObject)
dam na form
kod pro rucni zruseni vsech komponent, tak mi pak vse chodi OK. V jeho
destructoru se vola
ClearAllItem a tehdy projde a pri uzavreni formu pak zadna chyba nevznikne
(pochopitelne).

procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i:= ControlCount - 1 downto 0 do
if Controls[i] is TFromDBComboBox then
TFromDBComboBox(Controls[i]).Free;
end;

Uz jsem z toho mirne zoufaly.

Petr
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Sunday, April 09, 2000 11:18 PM
To: Konference Delphi
Subject: Re: odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (WinNT,
W2000)


From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
> Mam potomka od TComboBox, ktery si v Items pamatuje krome textu i object
> (TStringList).
> Na pridavani pouzivam Items.AddObject metodu. Pro vycisteni vsech objektu
se
> vola procedura:
> procedure TFromDBComboBox.ClearAllItems;
>
> Ta se vola i z Destructoru:
> destructor TFromDBComboBox.Destroy;
> Pokud vsak tuto komponentu dam na form, program spustim tak dostanu chybu
> Access violation ...

Ahoj,

Prepis metodu DestroyHandle a z ni volej (pred inherited) svoji metodu
ClearAllItems. Nezkousel jsem to, ale melo by to fungovat.

Petr Vones, amatersky programator

DBGrid - zvyrazneni nasledujiciho radku

[*] Lauko Stefan <lauko(zv)salamon.sk> - 10.4.2000 08:47:20

Ahoj,
vytvoril by som dalsi dataset a vnom by som udrziaval predchazajucu poziciu.

PomTable.GotoCurrent(Table_v_gride);
PomTable.Prior;

samozrejme to treba osetrit.
mozno to bude fungovat.

----- Original Message -----
From: Richard Valny <Richard.Valny(zv)oku-st(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 07, 2000 11:25 AM
Subject: DBGrid - zvyrazneni nasledujiciho radku


> Ahoj programatori,
> mam maly problem, se kterym se mi nedari hnouti
>
> Chci zvyraznit radek v DBGrid, ale podle stavu predchozi polozky.
> Nyni mam
>
> procedure TKabelPlusF.DBGridSoucetDrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> with DBGridSoucet do
> begin
> if TableSoucet.FieldByName('Cas').AsString = '0:00:00' then
> begin
> Canvas.Font.Color := clRed;
> Canvas.Brush.Color := clYellow;
> if (Focused) and (GdSelected in state) then
> begin
> Canvas.Font.Color := clWhite;
> Canvas.Brush.Color := clBlue;
> end;
> end;
> DefaultDrawColumnCell(Rect, DataCol, Column, State);
> end;
> end;
>
> Rad bych zvyraznil i radek podle vztahu dvou nasledujicich radku napr.
> if TableSoucet.FieldByName('Cas').AsString =
TableSoucet.FieldByName('Cas').AsString predchazejici then
> a tady to vybarvim
>
> Zkousel jsem se posouvat v databazi pomoci Prior a Next, ale to
pochopitelne vede k zacykleni.
>
> Jak se da adresovat predchozi radek v DBGrid?
> Ostatne, snad by stacilo jen zjistit aktualni cisla radku a hodnoty tahat
primo z DBGrid. To cislo ale stejne neumim zjistit.
>
> Diky za rady
>
>
> =========================================
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> =========================================
>

Rychlost IB

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.4.2000 08:54:29

> Co sa tice Locate - tam je zrada lebo locate hlada u klienta zaznam
> tak ze prechadza vsetky zaznami. Trena mat na pameti, ze ak parcujes
> na SQL je nutne zabudnut na funkcie ktore robia nieco u klienta a to
> su: Locate, Filter, MoveBy (mozno aj Last). Ak Locate robis cez SQL
> dotaz tak ti to preide bleskovo. (locate u 10 000 zaznamov trva 3 sec)

Ahoj,

mam DBGrid opreny o nejake Query. Udelam, resp. dostanu
zpravu, ze nekdo udelal nejakou zmenu v datech a touzim po
refreshi. Udelam tedy Close a Open no a otazka zni, jak bez
Locate nastavit aktualni radek v Gridu tam, co byl (pokud nebyl
smazan)? Ale nemusi jit ani o DBGrid, staci, kdyz se budu chtit v
te mnozine dat, kterou Query vrati, nastavit na urcitou pozici. To
prece pres SQL nejde - ten vratil mnozinu dat a to, jak ji klient
zpracuje, je jiz zalezitost klienta. (nechci ani serverovsky kurzor
apod.)

David


Jak udelat: Nacteni dotazu a editace vysledku jen

[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 10.4.2000 08:57:41

> > Neznate prosim nekdo nejaky efektivnejsi zpusob prekopirovani dat do
> > in-memory recordsetu?
> > Pozn: RecordSet 5.000 zaznamu
> > -> ciste projiti pomoci MoveNext = 1,5 s
> > -> prekopirovavani dat pomoci AddNew = (1,5 + 6) s

> Vyhodnejsi sposob ako cez AddNew nepoznam, ale u mojich pokusov som
> pomocou ADO dosiahol casy 10 nasobne kratsie (ale pouzite su
najjednoduchsie
> operacie, u zlozitejsieho kopirovanie poloziek tu bude trvat urcite
dlhsie):

Jeste jsem kod zoptimalizoval tim, ze nepouzivam jako pole Fieldu nazvy ale
cisla.
Skoda, ze nejde pristoupit u zdrojoveho RecordSetu na pole Items. Takhle si
musim naplnovat pomocne pole
Vals a z neho pak AddNew kopiruje data dal.
Je to hrozne, ze nacteni dat z databaze je "rychle jak blesk", ale
prekopirovani RecordSetu do In-Memory je pomale "jako hlemyzd" :-(.
Myslim, ze zrychlit uz to nepujde :-(.

procedure InsertRecordsetData(Src, Dst : ADO.RecordSet);
// pred volanim procedury je treba zajistit, aby mely oba RecordSety stejne
Fieldy.
var
Flds, Vals : Variant;
i, j : Integer;
begin
i := Src.Fields.Get_Count - 1;

{ create fields structs }
Flds := VarArrayCreate([0, i], varVariant);
Vals := VarArrayCreate([0, i], varVariant);
for j := 0 to i do
Flds[j] := j;

// nasledujici radky jsou odladeny, aby dosahovaly maximalni rychlosti
// (soucasna pomalost je dana presypavanim hodnot mezi Varianty)
// Priklad 5.000 zaznamu:
// Projiti recordsetu pomoci MoveNext => 0,430 s (odpovida zakomentovani
radku *)
// + Naplnovani Vals[j] => + 1,280 s (odpovida zakomentovani
radku **)
// + volani AddNew => + 2,660 s (odpovida zakomentovani
radku ***)
// Dohromady: 4,370 s
// Pozor: rychlost zalezi i na tom jak se pouziva width

// Testovano na SQL zdroji s 5000 zaznamy:
{declare (zv)min int
select (zv)min = min (ID_1) from a_1

-- z fiktivnich nazvu fieldu lze vycist jakeho jsou typu
select ID_1, a_CHAR1, a_CHAR5, a_CHAR2, a_VARCHAR12 from a_1
where ID_1 <= (zv)min + 5000}

{ insert new records }

Src.MoveFirst;
with Src do
while (not EOF) do
begin
with Src.Fields do
for j := 0 to i do
Vals[j] := Item[j].Value; {**}

Dst.AddNew (Flds, Vals); {***}
Src.MoveNext; {*}
end;
end;

L��a

> Vyhodnejsi sposob ako cez AddNew nepoznam, ale u mojich pokusov som
> pomocou ADO dosiahol casy 10 nasobne kratsie (ale pouzite su
najjednoduchsie
> operacie, u zlozitejsieho kopirovanie poloziek tu bude trvat urcite
dlhsie):
>
> procedure TADODemo.ButtonTestClick(Sender: TObject);
> var
> i: Integer;
> begin
> Profiler.Init;
> Profiler.Start;
>
> // vlozenie 50000 zaznamov do disconnected recordsetu
> with ADORecordset.ADORecordset do
> for i := 1 to 50000 do
> AddNew(0, 1);
>
> Profiler.Stop;
> ShowMessage(IntToStr(TicksHi) + ':' + IntToStr(TicksLo));
>
> Profiler.Init;
> Profiler.Start;
>
> // prechadzanie 50000 zaznamami
> with ADORecordset.ADORecordset do
> begin
> MoveFirst;
> for i := 1 to 50000 do
> MoveNext;
> end;
>
> Profiler.Stop;
> ShowMessage(IntToStr(TicksHi) + ':' + IntToStr(TicksLo));
> end;
>
> Vlozenie 50000 zaznamov trvalo 7s (2 727 984 270 taktov 400MHz procesora)
> Prechod 50000 zaznamov trval necelu 1s (185 592 087 taktov)
>
> Po uprave prechadzania na pouzivanejsi cyklus (s testovanim konca
> recordsetu):
>
> with ADORecordset.ADORecordset do
> begin
> MoveFirst;
> while not EOF do
> MoveNext;
> end;
>
> bol cas stale pod 1s (233 232 082 taktov).
>
> Tu su este parametre ADO recordsetu: CommandType = adCmdTable,
> CursorLocation = adUseClient,
> CursorType = adOpenStatic, LockType = adLockBatchOptimistic.
>
> Test som robil s ADO 2.5 na Win2000. Ak si to chce nie niekto vyskusat,
> mozem poslat zdrojovy
> kod (potrebny je Adonis pripadne ADOCS komponenty).
>
> Erik
>
>

OT: Windows 2000 server

[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 10.4.2000 08:58:47

Nainstaloval jsme na nas podnikovy server Windows 2000 server a v ten moment
prestaly sitove bezet
vsechny stanice, ktere nemaji W98 t.j. maji W95 nebo W95 OSR2. Na stanice
lze pingnout, ale v sitovem
okoli tyto stanice nevidi nic. S NT 4 to bezelo vsechno OK.

Tusite nekdo co s tim ?


Diky.

Pavel

WBMP

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.4.2000 09:14:57

[P��loha v souboru: cbep.wbmp]
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.

Zdravim,

nevedel by nekdo jak prekonvertit format WBMP (ukazku prikladam) do JPG nebo
GIF?

==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.134 / Virov� b�ze: 63 - datum vyd�n�: 20.3.2000


Delphi a DTMF

[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 10.4.2000 09:17:34

Prijemny den,
D4 Standard, W95 OSR2.

Nemate nekdo zkusenosti s DTMF v Delphi? Treba nejakou komponentu,
ktera by umela prevadet cisla na DTMF a zpet?

Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/

IB a Numeric 9,2

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.4.2000 09:27:00

Haj hou!

From: "Radek KALA" <Kala(zv)atlas(tec)cz>
>
> Vite prosim nekdo o problemu, ze nejde pozivat Numeric na IB 4.0

A proc by nemelo jit ? Problem je v SW ktery pouzivas k pristupu k IB,
protoze NUMERIC 9.2 je interne ukladan jako DOUBLE PRECISION a tvuj SW ho
neumi spravne prelozit.

> Mam Linux IB 4.0 a D5 Pouzivam TIBDataSet a jak sahnu na field
> typu Numeric 9.2 tak chyba a musim aplikaci zhodit pokud
> databazi prenesu na IB 6.0 tak to funguje.

Pouzivas FreeIB nebo IBX ? Zkus pouzit FreeIB pripadne BDE.

Hodne zdaru

Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz

IB a Numeric 9,2

[*] psojka(zv)els.ln.skoda(tec)cz - 10.4.2000 08:43:49



> Ahoj,
> prosim o radu, jak zlikvidovat modrou barvu u vybraneho radku z ListBoxu.
> Dekuji
> Martin Vackar.
> mvackar(zv)cpoj(tec)cz

Zkus odselectit prislusny Item v seznamu Selected

MyListBox.Selected[ItemNo]:= False;


hnd
Peter Sojka

TRichEdit a Tabulatory

[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 10.4.2000 09:43:51

Ahojte,
v RichEditu prohlizim "textovou tabulku". Pokud se podivam do souboru
napr. Wordpadem, vidim data pekne zarovnana, ale v richeditu jsou rozhozena,
protoze mezera nema stejnou sirku jako znak a ani kazdy znak nema stejnou
sirku.
Zkousel jsem vkladat tabulatory asi takto:

procedure TForm1.FormCreate(Sender: TObject);
var DialogUnitsX:LongInt;
PixelsX:LongInt;
I:Integer;
TabArray:array[0..4] of integer;
begin
RichEdit1.Lines.LoadFromFile('10042000.txt');
DialogUnitsX:=LoWord(GetDialogBaseUnits);
PixelsX:=15;
for i:=1 to 5 do begin
TabArray[i-1]:=((PixelsX*i)*4) div DialogUnitsX;
end;
SendMessage(RichEdit1.Handle,EM_SETTABSTOPS,5,Longint((zv)TabArray));
RichEdit1.Refresh;
end;

... ale vysledek zadny.
Radek do RichEditu vlozim tak ze k jednotlivym udajum pridam mezery dle
potreby, spojim je do jednoho Stringu a vlozim
RichEdit.Lines.Insert(0,Radek);
Jakym zpusobem donutit RichEdit, aby mi to zobrazil, tak jak je to ulozeno.

Predem diky.

Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001

D4C/S,W98

Jak odstranit Highlight u vybraneho radku v ListBo

[*] psojka(zv)els.ln.skoda(tec)cz - 10.4.2000 08:44:39



> Ahoj,
> prosim o radu, jak zlikvidovat modrou barvu u vybraneho radku z ListBoxu.
> Dekuji
> Martin Vackar.
> mvackar(zv)cpoj(tec)cz

Zkus odselectit prislusny Item v seznamu Selected

MyListBox.Selected[ItemNo]:= False;


hnd
Peter Sojka

tisk pres pokladni tiskarny v delphi

[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 10.4.2000 09:46:07

> Neni to zbytecne slozite?
> Ja jsem nasel na internetu primo ovladace
> takovych tiskaren (SPxx) pro windows a pak
> je to docela bezny tisk jako na jine tiskarny.
> Uz presne nevim, kde jsem je vyhrabal, ale zkus
> www.windrivers.com, hledat STAR, SP, ticket printer...
> (V pripade nouze mam SP2xx, muzu poslat)
> ### Jan Fiala napsal dne 6 Apr 00, v 6:47 :

Tak tohle lze pouzit jem u tiskarem, ktere podporuji graficky tisk. Levne
tiskarny jsou pouze znakove a tam je na ne nutne tisknout opravdu znakove
pomoci TTY.DAT.


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

Langdriver BDE

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.4.2000 09:55:57

Proc na to chodit pres registr, kdyz to jde primo, za pouziti funkci BDE. Na
www.volny(tec)cz/jan.fiala je krome jineho unita Un_DBCFG, ktera umoznuje nastavovat
parametry BDE za chodu.

Jan Fiala

----- Original Message -----
From: Lauko �tefan <lauko(zv)salamon.sk>> Dobry,
> Langdriver BDE je mozne programovo nastavit zapisom do registry (pred
> otvorenim datasetu).
> Ja som to tak pouzival a fungovalo...
>
> ----- Original Message -----
> From: Jan Naiser <tua(zv)ltm(tec)cz>
> >
> > W98SE, D4S, BDE5.01
> > importuji DBF tabulku, ktera je v CP852. V DB, do ktere ji potrebuji
> dostat
> > pouzivam langdriver anczechw. Pokud mam v BDE nastaveny pro DBF
> > LANGDRIVER=DB852CZ0, je vse vporadku. Pokud ale na jinem stroji bude tento
> > driver nastaveny v BDE jinak (napr. ANSI), jak ho prestavet programove na
> > tuto moji hodnotu a potom pripadne zpet?
> > Puvodne jsem zamyslel pouzit 2x TDatabase s rozdilnym nastavenim, ale to
> se
> > samozrejme pere mezi sebou (directory is busy).
> >
> > Za kazdou radu dekuji.
> >
> > Honza.
> >
> >
>

Seznam =?ISO-8859-1?Q?funkc=ED Delphi?=

[*] Pavel �ern� - 10.4.2000 10:15:55

Zdravim zkusene, kteri maji v maliku Delphi dokumantaci

Da se nekde najit kompletni seznam funkci a procedur, ktere jsou
v Delphi k dispozici ?

Nemyslim tim metody objektu, ale samostatne procedury a funkce.
Potesil by nejaky tematicky organizovany seznam nebo aspon
abecedni seznam.

Prochazel jsem helpy, ale nic takoveho jsem nenasel.
Dik za odpoved.

Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz

Rychlost IB

[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 10.4.2000 10:21:34


Zkus pouzit (napsat) iterativni algorytmus (predpoklada to setrideni), iterovat
pulenim intervalu nad setridenymi sloupci, a pak sekvencne hledat (pokud
to neni setrideni podle unikatni polozky), melo by to byt mnohonasobne rychlejsi
nez sekvencni hledani.

slavek

-----P�vodn� zpr�va-----
Od: David Lebeda [SMTP:david.lebeda(zv)comarr(tec)cz]
Odesl�no: 10. dubna 2000 8:54
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Rychlost IB

> Co sa tice Locate - tam je zrada lebo locate hlada u klienta zaznam
> tak ze prechadza vsetky zaznami. Trena mat na pameti, ze ak parcujes
> na SQL je nutne zabudnut na funkcie ktore robia nieco u klienta a to
> su: Locate, Filter, MoveBy (mozno aj Last). Ak Locate robis cez SQL
> dotaz tak ti to preide bleskovo. (locate u 10 000 zaznamov trva 3 sec)

Ahoj,

mam DBGrid opreny o nejake Query. Udelam, resp. dostanu
zpravu, ze nekdo udelal nejakou zmenu v datech a touzim po
refreshi. Udelam tedy Close a Open no a otazka zni, jak bez
Locate nastavit aktualni radek v Gridu tam, co byl (pokud nebyl
smazan)? Ale nemusi jit ani o DBGrid, staci, kdyz se budu chtit v
te mnozine dat, kterou Query vrati, nastavit na urcitou pozici. To
prece pres SQL nejde - ten vratil mnozinu dat a to, jak ji klient
zpracuje, je jiz zalezitost klienta. (nechci ani serverovsky kurzor
apod.)

David

OT:MS Proxy

[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 10.4.2000 10:39:18

Ahoj

Moc se omlouvam z Off Topic. Vzhledem k tomu, ze neznam konkretni konferenci
k MS Proxy a nemam zadnou moznost cist web stranky, prosim vas touto cestou
o pomoc.
Na nasem firemnim NT serveru, na kterem bezi i MS Proxy 2.0 doslo po mne
neznamych upravach k nasledujicimu problemu: Kdyz poslu ze stanice dotaz na
web stranky primo na nas server je vse v poradku. Kdyz se ale odkazuji na
stranky na siti internet vrati se mi misto pozadovane stranky pouze obsah
knihovny w3proxy.dll, tato knihovna je v seznamu ISAPI filtru naseho
firemniho severu. Kdyz ji ale odstranim, vraci se mi vzdy defaultni stranka
naseho serveru. Nevite nekdo co s tim. Odpovedi muzete posilat primo na moji
adresu: mailto:cermak(zv)procomcr(tec)cz.

Predem dekuji za pripadnou pomoc

Jaromir Cermak


Jak provest script?

[*] Lubo Fule <fule(zv)sct.sk> - 10.4.2000 11:03:00

> Presne na tento problem jsem taky narazil, pak jsem sel touto cestou:
> v stringlistu mam vsechny radky skriptu, jak to vygeneruje MSSQL.
> Ctu jeden
> radek po druhem, pokud na radku je GO, dam Query.ExecSQL, smazu
> Query.SQL a
> jedu na dalsi radek. Jinak to asi nepude.
>

Tiez si myslim, ze toto je jediny sposob. Aj Query Analyzer to robi tak
isto.

L.

Handle "hlavniho" formu

[*] Karel Klime� <kchodl(zv)email(tec)cz> - 10.4.2000 11:13:27

Ahoj,
jak zjistit handle "hlavniho" okna aplikace, tj. okno do ktereho kdyz poslu
zpravu WM_CLOSE, tak se zavre cela aplikace?

Progr-Amather -Kchodl-(r) 1989-2000


Zistenie, ci je nainstalovany BDE

[*] Nade�da Chrap�iakov� <chrapciakova(zv)vuje.sk> - 10.4.2000 11:23:46

Potrebujem programovo zistit, ci je na pocitaci nainstalovany BDE.

Dakujem dopredu za kazdu radu, ako to urobit.

Nada


NVarchar a MSSQL

[*] Ren� Otisk - 10.4.2000 11:31:37

Hi,

D3, MS SQL7.0, RxLib2.75, MODBC


Po spusteni "EXEC sp helprotect NULL, dbo" mi to vrati jen sloupce, ktere nejsou v UNICODE. Jenze ja bych potreboval dostat i Ownera, Object a Grantora (sysname - nvarchar(128)). Japa na to?


Sroub


Langdriver BDE

[*] azeleny(zv)csas(tec)cz - 10.4.2000 12:01:07

> Dobry,
> Langdriver BDE je mozne programovo nastavit zapisom do registry (pred
> otvorenim datasetu).
> Ja som to tak pouzival a fungovalo...

uz si to nepamatuji presen, ale BDE ma fce, jako GetDrivernames... ktere
bych pouzival, ne primo zapis do registry, tak by se mohlo stat, ze zapises
driver, ktery nebude instalovan.... cesta v registry se zmeni...
Temer vse v BDE se da celkem dpobre nahledat v hlepu, vcetne ukazek C/Delphi
a je to podle mne daleko bezpecnejsi, nez psat primo do registry.

----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.

MDAC 2.5

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.4.2000 12:06:58

On 9 Apr 00, at 23:18, Petr Vones wrote:

> > zkousel jste nekdo instalovat MDAC 2.5 na Windows 95? Po
> > kazdem restartu mi ve Woknech problikne dialog o pokusu neco
> > instalovat. Muj partner mi hlasi, ze po instalaci MDAC na pocitac
>
> Presne to se mi delo taky, patrne to M$ zapomel otestovat na Win95 :-)
> Stacilo odstranit zapis v registru pro spousteni souboru RUNONCE.EXE.
> Nejsem ale v siti, takze je mozne, ze to ma jeste nejake dalsi
> problemy.
>
> Pred instalaci musi byt na Win95 take nainstalovan DCOM. To ale neni
> problem, staci provest update pomoci instalace IE5.

To samozrejme mam. Vis presne, co je treba upravit? Zjistil jsi to
metodou pokus-omyl, nebo je to rada od MS?


S pozdravem

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


Zatuhnuti aplikace v D5

[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 10.4.2000 12:06:17

Zdravim!
Jak uz jsem psal tak delam editor map pro moji budouci hru. Takze si muzes
vybrat texturu a usadit ji na mapu (to jsou TImage vedle sebe a tvori jakoby
celek - mapu). Nenapada me jak bych to mohl udelat do jednoho TImage. Mozna
pomoci canvasu, ale to bych potom asi nezjistil co na kterym poli je a tim
padem bych to asi neulozil (ted to delam tak, ze i s tou texturou predam
parametr TAG, a pak to cyklem projizdim a ukladam).

S pozdravem Martin Pesek, amatersky programator
D5 Ent., W98



From: Martin Pe�ek <pesek.martin(zv)mymail(tec)cz>
>Mozna to zpusobuje pocet komponent TImage (cca 566).

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Uff! Proc jich tam mas tolik, neslo by to vyresit nejak jinak ? Vzdyt staci
mit
napriklad jen jeden TImage a do neho nahravat obrazky dle potreby.

Petr Vones, amatersky programator

format Macromedia Flash

[*] sorbo <sorbo(zv)centrum(tec)cz> - 10.4.2000 12:09:14

> nemate nekdo popis formatu .swf prinalezejic programu Macromedia Flash?
Nebo
> nejaky odkaz na program, ktery by jej dokazal dynamicky modifikovat /
> generovat? Vim o moznosti predavat hodnoty promennych do plug-inu, ale
nekdy
> se hodi radeji generovani.
Nevim jestli ti to pomuze:

The Flash file format was documented in April 1998, and a year later the
Flash Player source code became available for zero-cost licensing to
creators of emerging platforms. More info on this topic can be found by
using the "Standards" link on the front page of
http://www.macromedia.com/software/flash/ .
sorbo


IB a Numeric 9,2

[*] Radek KALA <Kala(zv)atlas(tec)cz> - 10.4.2000 12:54:25

1. Problem neni v SW, protoze kdyz to neni na IB 4.0 ale na 5.6
tak to chodi dobre
2. Jak snad plyne z textu pouzivam primy pristup z delphi 5.0
3. Do ted jsem si myslel, ze 9.2 je jeste integer a az 10 a vice
ulozi jako DOUBLE. Proto jsem chtel pouzivat 9.2 abych to mel
rychlejsi a mensi, pokud tam dam 10.2 tak uz to fuguje vsude.

> Haj hou!
>
> From: "Radek KALA" <Kala(zv)atlas(tec)cz>
> >
> > Vite prosim nekdo o problemu, ze nejde pozivat Numeric na IB 4.0
>
> A proc by nemelo jit ? Problem je v SW ktery pouzivas k pristupu k IB,
> protoze NUMERIC 9.2 je interne ukladan jako DOUBLE PRECISION a tvuj SW ho
> neumi spravne prelozit.
>
> > Mam Linux IB 4.0 a D5 Pouzivam TIBDataSet a jak sahnu na field
> > typu Numeric 9.2 tak chyba a musim aplikaci zhodit pokud
> > databazi prenesu na IB 6.0 tak to funguje.
>
> Pouzivas FreeIB nebo IBX ? Zkus pouzit FreeIB pripadne BDE.
>
> Hodne zdaru
>
> Pavel Cisar
> Borland s.r.o.
> pcisar(zv)inprise(tec)cz
>
>
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


Windows 2000 server

[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 10.4.2000 13:01:11

mel jsem stejny problem se sdilenim disku na W2000 Profi. Pomohlo zalozit na
nich kazdemu uzivateli konto a kdyz se ze stanic uzivatele prihlasovali do
svych Windows pod timto jmenem a heslem, sdileni zacalo fungovat lepe nez
kdy predtim.

Lubos

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Pavel Medek
> Sent: Monday, April 10, 2000 8:59 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Windows 2000 server
>
>
> Nainstaloval jsme na nas podnikovy server Windows 2000 server a v
> ten moment
> prestaly sitove bezet
> vsechny stanice, ktere nemaji W98 t.j. maji W95 nebo W95 OSR2. Na stanice
> lze pingnout, ale v sitovem
> okoli tyto stanice nevidi nic. S NT 4 to bezelo vsechno OK.
>
> Tusite nekdo co s tim ?
>
> Diky.
>
> Pavel
>
>
>

NVarchar a MSSQL7

[*] Ren� Otisk - 10.4.2000 13:11:14

Hi,

D3, MS SQL7.0, RxLib2.75, MODBC


Po spusteni "EXEC sp helprotect NULL, dbo" mi to vrati jen sloupce, ktere nejsou v UNICODE. Jenze ja bych potreboval dostat i Ownera, Object a Grantora (sysname - nvarchar(128)). Japa na to?


Sroub


Handle "hlavniho" formu

[*] Juraj Skotnicky <juraj.skotnicky(zv)jdsoftware.sk> - 10.4.2000 13:17:42

Ahoj,

skus Application.Handle.

Z help o TApplication.Handle:
Provides access to the window handle of the main form (window) of the
application. Juraj

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Karel Klime�
Sent: Monday, April 10, 2000 11:13 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Handle "hlavniho" formu


Ahoj,
jak zjistit handle "hlavniho" okna aplikace, tj. okno do ktereho kdyz poslu
zpravu WM_CLOSE, tak se zavre cela aplikace?

Progr-Amather -Kchodl-(r) 1989-2000


NVarchar a MSSQL

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.4.2000 13:17:08

> Po spusteni "EXEC sp_helprotect NULL, dbo" mi to vrati jen sloupce,
> ktere nejsou v UNICODE. Jenze ja bych potreboval dostat i Ownera,
> Object a Grantora (sysname - nvarchar(128)). Japa na to?

Ahoj, tak tohle jsem pred casem resil taky. Ptal jsem se na reseni
tady v konferenci, ale bez nejake pouziteln odezvy. Jako nouzove
reseni jsem udelal to, ze jsem tu ulozenou proceduru (a neni to
zdaleka jen sp_helprotect) nasel v tabulce Master a misto typu
nvarchar jsem jsem to vsude prepsal na char (nebo varchar, ted
nevim). Reseni je to mizerne, ale tenkrat mi pomohlo.

David


Langdriver BDE

[*] Jan Naiser <tua(zv)ltm(tec)cz> - 10.4.2000 13:32:20


To se mi zda rozumnejsi. Mimochodem, kde najdu seznam API fci BDE? Nejak se
mi to nepodarilo nikde v helpech najit.

Honza

----- Original Message -----
From: Jan Fiala <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, April 10, 2000 9:55 AM
Subject: Re: Langdriver BDE


> Proc na to chodit pres registr, kdyz to jde primo, za pouziti funkci BDE.
Na
> www.volny(tec)cz/jan.fiala je krome jineho unita Un_DBCFG, ktera umoznuje
nastavovat
> parametry BDE za chodu.

Handle "hlavniho" formu

[*] Jan Naiser <tua(zv)ltm(tec)cz> - 10.4.2000 13:35:26

Ahoj,

Rekl bych: Aplication.MainForm.Handle

Honza.

----- Original Message -----
From: Karel Klime� <kchodl(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, April 10, 2000 11:13 AM
Subject: Handle "hlavniho" formu


> Ahoj,
> jak zjistit handle "hlavniho" okna aplikace, tj. okno do ktereho kdyz
poslu
> zpravu WM_CLOSE, tak se zavre cela aplikace?
>
> Progr-Amather -Kchodl-(r) 1989-2000


TRichEdit a Tabulatory

[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 10.4.2000 13:54:22

----- P�vodn� zpr�va -----
Od: Petr Sadovsky <petr(zv)slunce(tec)cz>

> Ahojte,
> v RichEditu prohlizim "textovou tabulku". Pokud se podivam do souboru
> napr. Wordpadem, vidim data pekne zarovnana, ale v richeditu jsou rozhozena,
> protoze mezera nema stejnou sirku jako znak a ani kazdy znak nema stejnou
> sirku.
> Zkousel jsem vkladat tabulatory asi takto:
>
> procedure TForm1.FormCreate(Sender: TObject);
> var DialogUnitsX:LongInt;
> PixelsX:LongInt;
> I:Integer;
> TabArray:array[0..4] of integer;
> begin
> RichEdit1.Lines.LoadFromFile('10042000.txt');
> DialogUnitsX:=LoWord(GetDialogBaseUnits);
> PixelsX:=15;
> for i:=1 to 5 do begin
> TabArray[i-1]:=((PixelsX*i)*4) div DialogUnitsX;
> end;
> SendMessage(RichEdit1.Handle,EM_SETTABSTOPS,5,Longint((zv)TabArray));
> RichEdit1.Refresh;
> end;
>
> ... ale vysledek zadny.
> Radek do RichEditu vlozim tak ze k jednotlivym udajum pridam mezery dle
> potreby, spojim je do jednoho Stringu a vlozim
> RichEdit.Lines.Insert(0,Radek);
> Jakym zpusobem donutit RichEdit, aby mi to zobrazil, tak jak je to ulozeno.

A nebude to n�hodou problem proporcionalni/neproporcionalni pismo?
Zkus v RichEditu nastavit Courier....

Handle "hlavniho" formu

[*] Jiri Toman <toman(zv)plbohnice(tec)cz> - 10.4.2000 13:57:14

Ahoj

handle:=FindWindow('TForm1','Form1'));

Jirka

Karel Klime� p�e:

> Ahoj,
> jak zjistit handle "hlavniho" okna aplikace, tj. okno do ktereho kdyz poslu
> zpravu WM_CLOSE, tak se zavre cela aplikace?
>
> Progr-Amather -Kchodl-(r) 1989-2000


Langdriver BDE

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.4.2000 14:21:09

> To se mi zda rozumnejsi. Mimochodem, kde najdu seznam API fci BDE?
> Nejak se mi to nepodarilo nikde v helpech najit.
>
V BDE32.hlp. Najdes ho nekde pod BDE, napr. Program
Files\Common Files\Borland Shared\BDE

David


OT: IIS, SSL, Cert Server,...

[*] Jan Fryscak <fryscak(zv)scio(tec)cz> - 10.4.2000 14:36:00

Ahoj lidi,
mel bych par dotazu ohleden bezpecneho spojeni

Jak prinutit IIS, aby bylo mozne se pripojit jen pres https?
Je nutna nejaka certifikacni autorita, nebo si muzu certifikat vystavit
sam (nainstaloval jsem Cert Server, ale moc mi to nepomohlo)?

Budu vdecen za kazdou informaci ci link

Honza


skryta aplikace

[*] Radim Holan <radim.holan(zv)seznam(tec)cz> - 10.4.2000 14:38:10


Cau,

potreboval bych udelat aplikaci, ktreou bych spustil, neco udelal a
trekneme stisknul tlacitko a aplikace by se jako ukoncila, ale ve
skutecnosti by zustala spustena na pozadi, ale nesmela by byt v panelu dole,
a pokud mozno ani jako ikonka vpravo dole. A pri ukonceni Windows by mela
neco udelat, jeste nez se ukonci. Ja vim ze na to existuje udalost on exit
nebo tak nejak, de mi o to skryti aby normalni uzivatel nepoznal ze tam je
ten program spusteny.
--------------------------------------------
NEVER NA ZAZRAKY - SPOLEHEJ NA NE!

Radim Hol��

email: radim.holan(zv)maringotka(tec)cz (soukromy)
holan(zv)oauh(tec)cz (do prace)
radim.holan(zv)seznam(tec)cz

www: http://www.oauh(tec)cz/~holan
mobil: 0604/748216 (paegas)
sms: +420604748216(zv)sms.paegas(tec)cz

\\|||//
(o o)
--------ooooO--(_)--Ooooo---------

Tisk�rna a rozm�ry str�nky

[*] Matin Koller <koller(zv)gema(tec)cz> - 10.4.2000 14:48:28

Ahoj

Pracuji z QReportem a ten z neznam�ho duvodu nebere sam rozmery stranky z nastaveni tiskarny v windows.
Potrebuji tisknout na ruzn� i nestandartni velikosti papiru.
Jak mam presvedcit QReport aby tiskl na spravnou velikost papiru automaticky, nebo jak z windows dostat rozmery stranky vychozi tiskarny.
Zkousel jsem DeviceCapabilities ale pocitac mi hlasi
"Soubor Project1.exe je pripojen na chybejici export
GDI32.DLL:DeviceCapabilitiesA"

Dekuji.

************************************************************
* Martin Kolller Koller(zv)Gema.Cz *
************************************************************

skryta aplikace

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.4.2000 14:48:18

Ahoj,

ShowWindow(handle, SW_HIDE);
-skryje z TaskBaru
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID, 1);
- skryje z TaskListu

Dobra.

> ----------
> Od: Radim Holan[SMTP:radim.holan(zv)seznam(tec)cz]
>
> potreboval bych udelat aplikaci, ktreou bych spustil, neco udelal a
> trekneme stisknul tlacitko a aplikace by se jako ukoncila, ale ve
> skutecnosti by zustala spustena na pozadi, ale nesmela by byt v panelu dole,
>

Handle "hlavniho" formu

[*] Karel Klime� <kchodl(zv)email(tec)cz> - 10.4.2000 14:50:50

Ahoj,
je na case muj dotaz trochu upresnit.

1.) Spustim "cizi" aplikaci pomoci CreateProcess (schovam si vracene udaje
v ProcessInfo strukture).

2.)Chci najit handle "hlavniho" formu te spustene aplikace.

Pozn.: Nelze pouzit FindWindow, protoze se mne casto meni text titulku okna
a take mne bezi vice procesu soucasne (vice stejnych aplikaci).

Progr-Amather -Kchodl-(r) 1989-2000


Zatuhnuti aplikace v D5

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.4.2000 14:59:30

Ahoj,

v RXLib je komponent PicClip, kde muzes pristupovat k segmenutum jedne
bitmapy (napr. 1x30 nebo 8x8 obrazku vel napr. 16x16 pixelu). Vyhodou je, ze
je to v jedne bitmape a ja to pouzivam k uschovani ikonek do MENU (16x16
pix) nebo statickych ikon (32x32).

Jaro B.

> -----P�vodn� zpr�va-----
> Od: Martin Pe�ek [SMTP:pesek.martin(zv)mymail(tec)cz]
> Odesl�no: 10. IV 2000 12:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Zatuhnuti aplikace v D5
>
> Zdravim!
> Jak uz jsem psal tak delam editor map pro moji budouci hru. Takze si muzes
> vybrat texturu a usadit ji na mapu (to jsou TImage vedle sebe a tvori
> jakoby
> celek - mapu). Nenapada me jak bych to mohl udelat do jednoho TImage.
> Mozna
> pomoci canvasu, ale to bych potom asi nezjistil co na kterym poli je a tim
> padem bych to asi neulozil (ted to delam tak, ze i s tou texturou predam
> parametr TAG, a pak to cyklem projizdim a ukladam).
>
> S pozdravem Martin Pesek, amatersky programator
> D5 Ent., W98
>
>
>
> From: Martin Pe�ek <pesek.martin(zv)mymail(tec)cz>
> >Mozna to zpusobuje pocet komponent TImage (cca 566).
>
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> Uff! Proc jich tam mas tolik, neslo by to vyresit nejak jinak ? Vzdyt
> staci
> mit
> napriklad jen jeden TImage a do neho nahravat obrazky dle potreby.
>
> Petr Vones, amatersky programator
>
>
>

skryta aplikace

[*] Karel Klime� <kchodl(zv)email(tec)cz> - 10.4.2000 15:03:33

> Cau,
>
> potreboval bych udelat aplikaci, ktreou bych spustil, neco udelal a
> trekneme stisknul tlacitko a aplikace by se jako ukoncila, ale ve
> skutecnosti by zustala spustena na pozadi, ale nesmela by byt v panelu dole,
> a pokud mozno ani jako ikonka vpravo dole. A pri ukonceni Windows by mela
> neco udelat, jeste nez se ukonci. Ja vim ze na to existuje udalost on exit
> nebo tak nejak, de mi o to skryti aby normalni uzivatel nepoznal ze tam
je
> ten program spusteny.

Ahoj,
pouzij fci ShowWindow.

ShowWindow(handle_okna,SW_HIDE) - skryti okna
ShowWindow(handle_okna,SW_SHOW) - zobrazeni okna

vice viz. Win32 Help

Progr-Amather -Kchodl-(r) 1989-2000


Velikost objektu

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.4.2000 15:40:20

Ahoj,
jak zjistim, kolik pameti zabere objekt po jeho vytvoreni
(napr. TEdit)

SizeOf(TEdit) nebo SizeOf(Edit) mi pochopitelne vraci
velikost ukazatele...

A metodou zjistit volnou pamet, vytvorit objekt, znovu
zjistit volnou pamet a odecist od prvni namerene hodnoty
se mi v pseudo-multitaskingu moc nechce :-)

Diky moc...
...Dobra


Ukryti tray-icony

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.4.2000 15:42:22

Ahoj,
"cizi" program se po minimalizaci zobrazuje v tray
(trayicon). Jak jej ze sveho programu schovam i odtud?

Dobra.

mail

[*] Radim Holan <radim.holan(zv)seznam(tec)cz> - 10.4.2000 15:49:33


Nevite nekdo jak se da z Delphi jednoduse poslat mail?

Treba jestli se vyskytne chyba tak posli mail na .....

version info - VS_FIXEDFILEINFO

[*] azeleny(zv)csas(tec)cz - 10.4.2000 16:39:35

DDV,
nevite nekdo, proc kdyz v D5 project options zadam verzi souboru a verzi
produktu, tak v strukture
VS_FIXEDFILEINFO
je korektne ulozena informace o verzi souboru, ale v polozkach pro verzi
produktu je zase jen verze souboru, kdezto, kdyz verzi produktu zjistuji z
Bufferu naplneneho pres VerQueryValue ctenim
\StringFileInfo\lang-charset\string-name tak tam je jak verze souboru, tak
verze produktu korektni?

Nejde mi o to, ze je rada hotovych komponent, potrebuji vedet, zda delam
chybu (polozky v VS_FIXEDFILEINFO maji ale stejne hodnoty jak pro ver
souboru, tak pro ver produktu, takze chyba bude asi kdyz Delphi vytvari
resource) nebo, pokud se jedna o verzi souboru, tak ktera z hodnot je
primarni (nesnasim duplicitni uvadeni informaci),v helpu jsem to nenasel...

Nemate nekdo zkusenost, zda nenarazim jeste na nejake dalsi problemy tohoto
typu?

Diky a.

tady je jak to ctu:

VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
if VerInfoSize = 0 then
Result.FileVersion := RS_UNKNOWN_VERSION
else
begin
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0,
VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue),
VerValueSize);
with VerValue^ do
begin
// Decode file version information.
VMajor:= HiWord(dwFileVersionMS);
VMinor:= LoWord(dwFileVersionMS);
VRelease:= HiWord(dwFileVersionLS);
VBuild:= LoWord(dwFileVersionLS);
// Decode poduct version
information.
PVMajor:=
HiWord(dwProductVersionMS);
PVMinor:=
LoWord(dwProductVersionMS);
PVRelease:=
HiWord(dwProductVersionLS);
PVBuild:=
LoWord(dwProductVersionLS);
// Decode file flags.
ValidFileFlags:= dwFileFlagsMask and
dwFileFlags;
if (ValidFileFlags and VS_FF_DEBUG)
<> 0 then
Include(Result.FileFlags,
ffDebug);
...
----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.

tisk pres pokladni tiskarny v delphi

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 10.4.2000 16:42:42

No samozrejme, kdyz to tiskarna neumi,
muzu skutecne tisknout jen text, ale da se to
pouzit i u tech textovych.

### Jaroslav Nadhera napsal dne 10 Apr 00, v 9:46 :
> > Neni to zbytecne slozite?
> > Ja jsem nasel na internetu primo ovladace
> > takovych tiskaren (SPxx) pro windows a pak
> > je to docela bezny tisk jako na jine tiskarny.
> > Uz presne nevim, kde jsem je vyhrabal, ale zkus
> > www.windrivers.com, hledat STAR, SP, ticket printer...
> > (V pripade nouze mam SP2xx, muzu poslat)
> > ### Jan Fiala napsal dne 6 Apr 00, v 6:47 :
>
> Tak tohle lze pouzit jem u tiskarem, ktere podporuji graficky tisk. Levne
> tiskarny jsou pouze znakove a tam je na ne nutne tisknout opravdu znakove
> pomoci TTY.DAT.
>
>
> 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
>
>
>


-----------------------------------------------
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


TRichEdit a Tabulatory

[*] Marek Soukup <marek(zv)comberg(tec)cz> - 10.4.2000 16:58:29

Nebude to proste proporcionalnim fontem ?
MS
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Petr Sadovsky
> Odesl�no: 10. dubna 2000 9:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TRichEdit a Tabulatory
>
>
> Ahojte,
> v RichEditu prohlizim "textovou tabulku". Pokud se podivam do souboru
> napr. Wordpadem, vidim data pekne zarovnana, ale v richeditu jsou
> rozhozena,
> protoze mezera nema stejnou sirku jako znak a ani kazdy znak nema stejnou
> sirku.
> Zkousel jsem vkladat tabulatory asi takto:
>
> procedure TForm1.FormCreate(Sender: TObject);
> var DialogUnitsX:LongInt;
> PixelsX:LongInt;
> I:Integer;
> TabArray:array[0..4] of integer;
> begin
> RichEdit1.Lines.LoadFromFile('10042000.txt');
> DialogUnitsX:=LoWord(GetDialogBaseUnits);
> PixelsX:=15;
> for i:=1 to 5 do begin
> TabArray[i-1]:=((PixelsX*i)*4) div DialogUnitsX;
> end;
> SendMessage(RichEdit1.Handle,EM_SETTABSTOPS,5,Longint((zv)TabArray));
> RichEdit1.Refresh;
> end;
>
> ... ale vysledek zadny.
> Radek do RichEditu vlozim tak ze k jednotlivym udajum pridam mezery dle
> potreby, spojim je do jednoho Stringu a vlozim
> RichEdit.Lines.Insert(0,Radek);
> Jakym zpusobem donutit RichEdit, aby mi to zobrazil, tak jak je
> to ulozeno.
>
> Predem diky.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
>
> D4C/S,W98
>

mail

[*] Josef Zlomek <zlomj9am(zv)artax.karlin.mff.cuni(tec)cz> - 10.4.2000 17:02:27

> Nevite nekdo jak se da z Delphi jednoduse poslat mail?
>
> Treba jestli se vyskytne chyba tak posli mail na .....

V Delfach 4 a 5 (prof., c/s, enterp.) je v zalozce internet komponenta
NMSMTP.
Pomoci ni muzes celkem jednoduse odeslat mail.

TreeView a Drag&Drop

[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 10.4.2000 17:23:15

Pri presuvani poloziek v TreeView pomocou Drag&Drop potrebujem v
udalosti OnDragOver odchytit, nad ktorou polozkou sa nachadzam, kvoli
akceptacii(Selected a Focused ukazuje na Source).
TTreeView(Sender).DropTarget funguje len pri OnDragDrop a to uz je
neskoro.
Nema s tym niekto skusenosti?

--
mailto:budinec_roman(zv)ttc-telecom.sk


mail

[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 10.4.2000 17:26:23

> Nevite nekdo jak se da z Delphi jednoduse poslat mail?
> Treba jestli se vyskytne chyba tak posli mail na .....
>
to zavisi aky mail server sa ma pouzit.
Ak nieco standardne(SMTP - POP3/IMAP) , tak na to je komponenta
NMSMTP v zalozke Internet.
Ak MS Exchange, tak na to su funkcie MAPI (MapiSendMail).

/LH


Vlozenie btimapy do bitmapy

[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.4.2000 17:28:35

Zdravim, potreboval by som nakreslit jeden Image do druheho.

Napr. Image1.width:=10; Image1.height:=10;
Image2= 100 x100;

No a ja chcem vlozit image1 do image2 vo velkosti 10 x10 na nejake suradnice
x,y do Image2.
Nie ako object, ale len ju tam v podstate nakreslit.

Dik, Miso


mail

[*] Virag, Ivan <ViragI(zv)logica(tec)com> - 10.4.2000 17:53:37

jednoduche poslani mailu:


ShellExecute(Application.Handle, NIL, 'mailto:franta(zv)seznam(tec)cz', NIL,NIL,
SW_SHOWNOACTIVATE);

Ivan Virag


Rozdilna delka recordu D4 a D5

[*] Roman Sokol <sokolr(zv)spk(tec)cz> - 10.4.2000 17:57:20

Mam jiz u zakazniku aplikaci vytvorenou v D3, ktera pouziva zarovnavane
zaznamy. (Tenkrat jsem nepredpokladal takove problemy s velikosti zaznamu.)
Lze nejak jednoduse prevest zaznamy, aby byly funkcni v te same aplikaci
prelozene prekladacem D5?

Diky za odpoved. Roman Sokol.

----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 05, 2000 2:23 AM
Subject: Re: Rozdilna delka recordu D4 a D5


> From: ing.Kraicinger Anton�n <tksoft(zv)bva.sol(tec)cz>
> > Prechazim z D4 na D5 a narazil jsem na vyse uvedeny problem.
> > U tehoz programu prelozeneho v D4 nize uvedeny record ma delku 252 bytu
a u
> > D5 ma delku 256 bytu.
> >
> > {$A+}
> >
> > TCenik = record
> >
> > { 4} DelRec : LongInt;
> > {11} Cis_Mat : string[10];
> > Co s tim ? Co delam spatne ? Co jsem nepochopil ? Dik. Kraicinger
Tonda.
>
> Ahoj,
>
> Pokud ti zalezi na fyzicke velikosti zaznamu (napriklad ze je ukladas do
> streamu a podobne), tak by jsi u neho nikdy nemel povolovat zarovnavani.
> Tedy by mel byt deklarovan jako "packed record" (spolehat se na nastaveni
> $ALIGN je take nespravne). V opacnem pripade provede prekladac zarovnani
> fyzicke reprezentace polozek zaznamu v pameti tak, aby dosahl optimalniho
> pristupu z hlediska rychlosti. To se muze v kazde verzi prekladace lisit.
> Zde je prave drobna zmena v D5 oproti D4, ktera v dusledku muze zrychlit
> kod az o cca 5..10%
>
> Petr Vones, amatersky programator
>
>

skryta aplikace

[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.4.2000 18:02:54

Otazka:

Nedalo by sa to riesit cez rezidenta?

Miso

----- Original Message -----
From: Radim Holan <radim.holan(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, April 10, 2000 2:38 PM
Subject: skryta aplikace


>
> Cau,
>
> potreboval bych udelat aplikaci, ktreou bych spustil, neco udelal a
> trekneme stisknul tlacitko a aplikace by se jako ukoncila, ale ve
> skutecnosti by zustala spustena na pozadi, ale nesmela by byt v panelu
dole,
> a pokud mozno ani jako ikonka vpravo dole. A pri ukonceni Windows by mela
> neco udelat, jeste nez se ukonci. Ja vim ze na to existuje udalost on exit
> nebo tak nejak, de mi o to skryti aby normalni uzivatel nepoznal ze tam je
> ten program spusteny.
> --------------------------------------------
> NEVER NA ZAZRAKY - SPOLEHEJ NA NE!
>
> Radim Hol��
>
> email: radim.holan(zv)maringotka(tec)cz (soukromy)
> holan(zv)oauh(tec)cz (do prace)
> radim.holan(zv)seznam(tec)cz
>
> www: http://www.oauh(tec)cz/~holan
> mobil: 0604/748216 (paegas)
> sms: +420604748216(zv)sms.paegas(tec)cz
>
> \\|||//
> (o o)
> --------ooooO--(_)--Ooooo---------
>
>
>

Mail II

[*] Josef ��P����*?j�Z��3 - 10.4.2000 18:30:57

Nevite jak poslat HTML mail spolu s prilohami ??
Pomoci komponenty NMSMTP v D5 se mi to nedari.
Pokud tam neni priloha je vse OK.
Pokud tam dam jako prilohu jakykoliv sobor posila se to jako text
a po prijmuti mailu se zobrazi zdrojovy kod HTML.

Dik za radu

Zatuhnuti aplikace v D5 - reseni (?)

[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 10.4.2000 18:47:22

Zdravim!
No, problem je asi vyresen. Kdyz jsem se pokousel aplikaci spustit v D5 tak uz to neslo vubec. Zacalo to delat po posledni zmene, kdy jsem pridal komponentu CoolBar a prendal jsem tam horni menu (viz. Internet Explorer neno Outlook Express) a ikonove menu. Smazal jsem to a vratil menu do puvodni podoby. Aplikace se rozbehla. Zkousel jsem to spustit asi tak 10krat a zatim to vzdy nabehlo. Ze by mela komponenta TCoolBar mouchy? Dekuji za opovedi.

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ www.samuel(tec)cz/~gamemaker
[ www.samuel(tec)cz/~markm
[ http://board.jinak(tec)cz

[ Info
[ Delphi 5 Ent., W98
===============================

Mail II

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.4.2000 19:04:24

Rekl bych, ze nejjednodussi bude pouzit
komponentu TSMTP od F.Pietteho

http://www.rtfm.be/fpiette/indexuk.htm

D.

> ----------
> Od: Josef > ��P[SMTP:sip(zv)atlas(tec)cz]
>
> Nevite jak poslat HTML mail spolu s prilohami ??
> Pomoci komponenty NMSMTP v D5 se mi to nedari.
>

TabControl - vyvolani udalosti OnChange

[*] Mirek Melichar <xmelich(zv)informatics.muni(tec)cz> - 10.4.2000 19:28:54

Zdravim,
pri praci s TabControl jsem narazil na (snad resitelny) problem:
Potreboval bych zajistit, aby kdyz u TabControl zmenim TabIndex, aby se mi
vyvolala udalost OnChange (OnChanging), ktera se nyni vyvola, jen pokud
TabIndex zmeni uzivatel kliknutim na Tab.
Za kazde naznaceni reseni moc dekuji.

Jo a este mam takovou pochybnost: Kdyz mi v Delphi spusteny program
skonci, obcas se stane (zvlast kdyz v bezici aplikaci zkousim kde co),
ze Delphi maji v titulku jeste treba 7 sekund text "[Running]" (a odmitaji
pracovat), zatimco obvykle okamzite po skonceni aplikace je text
"Running" zrusen a vse funguje normalne. Nevim cim to je, mozna nekde v
programu zapominam uvolnovat pamet, nebo zapominam na Query1.UnPrepare
(pracuji predevsim s lokalni databazi Paradox a dynamickymi poli).
Ma jiz s tim nekdo nejake zkusenosti??? V souvislosti s tim by me
zajimalo, jestli se dynamicka pole po skonceni aplikace automaticky
dealokuji nebo je treba je nastavit na "nil" (0). (Zvlast kdyz jde o pole
recordu a v tom recordu je jedna z polozek opet dyn. pole)
Na zaver podotykam, ze jde o D4, WIN98, K6/300(?)MHz.
Diky za kadou radu, staci mi nakopnout.

Mirek Melichar


Mail II

[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 10.4.2000 19:36:40

Cely vtip je ve zpusobu vnoreni MIME parts. Myslim ze by to melo byt nejak
takhle:

MIME-Version: 1.0
Content-Type: multipart/mixed
boundary="MIMEBoundary1"

This is a multi-part message in MIME format

--MIMEBoundary1
Content-Type: multipart/alternative

--MIMEBoundary2
Content-Type: text/plain

--MIMEBoundary2
Content-Type: text/html

--MIMEBoundary2--

--MIMEBoundary1
Content-Type: typ tvoji prilohy
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment

sem pride vlozenej soubor

--MIMEBoundary1--

a tohle musis nejak protlacit na SMTP server. nevim, jestli NNSMTP je to
prave, nikdy sem to nezkousel.

Lubos

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Josef ��P
> Sent: Monday, April 10, 2000 6:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Mail II
>
>
> Nevite jak poslat HTML mail spolu s prilohami ??
> Pomoci komponenty NMSMTP v D5 se mi to nedari.
> Pokud tam neni priloha je vse OK.
> Pokud tam dam jako prilohu jakykoliv sobor posila se to jako text
> a po prijmuti mailu se zobrazi zdrojovy kod HTML.
>
> Dik za radu

Jak udelat: Nacteni dotazu a editace vysledku jen

[*] Erik Salaj <winsoft(zv)napri.sk> - 10.4.2000 20:15:51

> Jeste jsem kod zoptimalizoval tim, ze nepouzivam jako pole Fieldu nazvy
ale
> cisla.
> Skoda, ze nejde pristoupit u zdrojoveho RecordSetu na pole Items. Takhle
si
> musim naplnovat pomocne pole
> Vals a z neho pak AddNew kopiruje data dal.
> Je to hrozne, ze nacteni dat z databaze je "rychle jak blesk", ale
> prekopirovani RecordSetu do In-Memory je pomale "jako hlemyzd" :-(.
> Myslim, ze zrychlit uz to nepujde :-(.

Este ma napada moznost pouzit Visual C++ Externsions for ADO, kde nie
je potrebne konvertovat hodnoty na Variant-y. Ked som to skusal, tak
zrychlenie bolo okolo 30%. Mozno v tomto pripade by to dost pomohlo,
aj ked sa to trochu pracnejsie programuje a pouziva. Pripravim a poslem Ti
(na sukromny mail) priklad. Princip spociva v tom, ze si pre recordset
nadefinujes sktrukturu popisujucu polozky (typ, pametove miesto, kde ma
byt hodnota polozky, ....). Hodnoty poloziek sa potom pri prechadzani
recordsetu ukladaju na zadane miesto, plus je mozne pridavat a udatovat
zaznamy.

V ADO by sa zisla nejaka priama podpora pre batch operacie,
mozno sa snad objavi v buducich verziach.

Erik


Informace o FlashFileru

[*] novacek(zv)vanicek(tec)cz - 10.4.2000 18:41:20

Zdar a silu delfinisti,

ohlizime se po nejake nahrade BDE a nas zrak padl na FlashFiler (FF).
Navstivili jsme webove stranky, stahli si a vyzkouseli demo, ale
presto mame nekolik otazek.
Oficialni a odpovedna mista mlci :-(( a tak se obracime na Vas, kdo
mate zkusenosti a znalosti, odpovezte a poradte. Diky.

V popisu se pravi, ze pro spravnou funkci cestiny (hlavne trideni) ve
FF je nutne nastavit stejnou kodovou stranku na serveru a vsech
klientech. Jak mnoho zalezi na verzi Windows (ceske resp. anglicke) a
jake problemy muze kombinace obou jazykovych verzi Windowsu zpusobit.
Jak moc "stejna" musi byt konfigurace pocitacu, aby FF fungoval
spravne i s cestinou?

Je mozne vyvijet i sitovou (= klient/server) aplikaci s FF na jednom
pocitaci, tj. aniz by vyvijena aplikace musela komunikovat s nejakym
serverem? Popripade s jakymi omezenimi nebo podminkami.

FF umi kodovat tabulky a vazat pristup k nim na heslo. Je mozne
nastavit ruzna hesla pro ruzne tabulky a databaze, popr. ruzne
tabulky v teze databazi? A totez pro kodovani. Nebo je jeden kodovaci
algoritmus pro cely FF?

Jak bude fungovat "singleEXE" aplikace s FF (FF prilinkovany primo do
EXE) spustena na tomze pocitaci vicekrat? Priklad: program UCET.EXE
pro jednoduche ucetnictvi, ktery ma nekolik databazi/tabulek pro
ruzna ucetni obdobi nebo uctovane firmy. Pokud bude UCET.EXE spusten
vicekrat, pak: dalsi instance nebudou fungovat, protoze FF nedovoli
vicenasobny pristup k databazi, budou fungovat, ale dve ruzne
instance nebudou moci pracovat s daty tehoz ucetniho obdobi nebo
budou vsechny instance moci neomezene pracovat s daty vsech ucetnich
obdobi a tedy i dve ruzne instance budou moci pracovat s daty tehoz
obdobi? Popripade jak by bylo mozne dosahnout jednotlivych variant?

A konecne, demo FF je v podstate vzorova aplikace, ale radi bychom si
FF vyzkouseli primo v nasi aplikaci. Je mozne ziskat nejakou rekneme
trial verzi FF (napr. casove omezenou nebo vazanou na IDE, bez
zdrojovych textu, apod.)?

Zdar a silu!

Vladimir Novacek

VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz


Datab�ze

[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 10.4.2000 21:30:44

Ahoj lidi, pros�m pomozte za��te�n�kovi v Delphi 4 Prof. Pot�eboval bych
vytvo�it velmi jednoduchou datab�zi na evidenci adres lid�. Hlavn� form
by obsahoval grid a n�jak� tla��tka (P�idej, Sma�, ...). Po stisku
tla��tka P�idej by se otev�elo okno, kde by byly jednotliv� polo�ky
datab�ze jako EditLiny ... A to je vlastn� v�echno... Pot�eboval bych
poradit (nebo alespo� nast�nit) zhruba postup p�i tvorb� tohoto
programu... - jak� v�echny komponenty mus� obsahovat, atd. P�edem d�ky
za ka�dou pomoc.
--
Martin Pe�ava

/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/

PsApi

[*] Pavel Bansky <pbansky(zv)volny(tec)cz> - 10.4.2000 22:5:58

Ave Pratele !

Posim potreboval bych khihovnu PsApi.pas, nemate ji nekdo?
V Delphi 4.0 ji proste nemam ani v tom Rtl\ adresari :(((

Dekuji moc

Pavel

------------------------------------------------------
Pavel Bansky
pbansky(zv)volny(tec)cz


DBGrid - zvyrazneni nasledujiciho radku

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

From: Richard Valny <Richard.Valny(zv)oku-st(tec)cz>
> Chci zvyraznit radek v DBGrid, ale podle stavu predchozi polozky.
> Rad bych zvyraznil i radek podle vztahu dvou nasledujicich radku napr.
> Zkousel jsem se posouvat v databazi pomoci Prior a Next, ale to pochopitelne vede k zacykleni.
>
> Jak se da adresovat predchozi radek v DBGrid?
> Ostatne, snad by stacilo jen zjistit aktualni cisla radku a hodnoty tahat primo z DBGrid. To
cislo ale stejne neumim zjistit.

Ahoj,

Pokud ti to pomuze, tak takhle obarvis vsechny nasledujici radky, kde se opakuje
stejne mesto:

type
TDBGridHack = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
LastActiveRecord: Integer;
LastCountry: string;
begin
with TDBGridHack(Sender) do
begin
LastActiveRecord := DataLink.ActiveRecord;
try
LastCountry := Table1Country.Value;
if LastActiveRecord > 0 then
begin
DataLink.ActiveRecord := LastActiveRecord - 1;
if Table1Country.Value = LastCountry then
Canvas.Font.Color := clBlue;
end;
finally
DataLink.ActiveRecord := LastActiveRecord;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

Petr Vones, amatersky programator


Seznam funkc� Delphi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:14:29

From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Da se nekde najit kompletni seznam funkci a procedur, ktere jsou
> v Delphi k dispozici ?
>
> Nemyslim tim metody objektu, ale samostatne procedury a funkce.
> Potesil by nejaky tematicky organizovany seznam nebo aspon
> abecedni seznam.

Ahoj,

V helpech mas radu funkci razenou podle kategorii. Uceleny seznam vsak
ziskas nejlepe pomoci Browseru primo v IDE. Neuvadis verzi Delphi, takze
implicitne predpokladam D5. Pokud das v menu View | Browser, pak das
Globals a ve stromu rozbalis polozku Procedures, tak uvidis seznam vsech
procedur a funkci. K tomu musis mit jeste nastavenou v Explorer Options
volbu Browser Scope na All symbols (VCL included).

Petr Vones, amatersky programator

Langdriver BDE

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:14:42

From: Jan Naiser <tua(zv)ltm(tec)cz>
> To se mi zda rozumnejsi. Mimochodem, kde najdu seznam API fci BDE? Nejak se
> mi to nepodarilo nikde v helpech najit.

Ahoj,

Seznam najdes v BDE API heplu (bde32.hlp)

Petr Vones, amatersky programator

MDAC 2.5

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:14:38

From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> To samozrejme mam. Vis presne, co je treba upravit? Zjistil jsi to
> metodou pokus-omyl, nebo je to rada od MS?

Ahoj,

Nemam rad kdyz se mi po startu spousti neco, co se spoustet nema :-)
Tech mist kde to muze byt ulozeno zase tolik neni, takze pak uz staci
je prohledat. Na M$ jsem k tomuto nic nenasel.

Petr Vones, amatersky programator

odvozeny TComboBox + Delphi 5.0 + Update Pack 1 (W

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:14:09

From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
> Zkusil jsem to ale ta metoda (DestroyHandle) se vubec nezavola.

Ahoj,

Mas pravdu. Pak je jeste moznost prepsat zpravu WM_DESTROY (ta se vola vzdy)
a z ni volat metodu pro uvolneni. Idealni by ale bylo upravit tridu
TComboBoxStrings, protoze k uvolneni objektu nedojde volanim metody Clear.

Petr Vones, amatersky programator

Rozdilna delka recordu D4 a D5

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:14:53

From: Roman Sokol <sokolr(zv)spk(tec)cz>
> Mam jiz u zakazniku aplikaci vytvorenou v D3, ktera pouziva zarovnavane
> zaznamy. (Tenkrat jsem nepredpokladal takove problemy s velikosti zaznamu.)
> Lze nejak jednoduse prevest zaznamy, aby byly funkcni v te same aplikaci
> prelozene prekladacem D5?

Ahoj,

V tomto pripade musis zaznamy deklarovat jako packed a zarovnani doplnit
rucne mezi polozky, napriklad pomoci array [0..X] of Byte. Zkratka pouzivat
zarovnavani v techto pripadech se nevyplaci.

Petr Vones, amatersky programator


Tisk�rna a rozm�ry str�nky

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:15:38

From: Matin Koller <koller(zv)gema(tec)cz>
> Zkousel jsem DeviceCapabilities ale pocitac mi hlasi
> "Soubor Project1.exe je pripojen na chybejici export
> GDI32.DLL:DeviceCapabilitiesA"

Ahoj,

tohle je chyba ve Windows.pas. Funkce DeviceCapabilities je v knihovne
winspool.dll a ne v gdi, takze musis pridat Winspool.pas a explicitne
se na neho odkazat.

Petr Vones, amatersky programator

Zatuhnuti aplikace v D5 - reseni (?)

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

From: Martin Pe�ek <pesek.martin(zv)mymail(tec)cz>
> No, problem je asi vyresen. Kdyz jsem se pokousel aplikaci spustit v D5 tak uz
> to neslo vubec. Zacalo to delat po posledni zmene, kdy jsem pridal komponentu
> CoolBar a prendal jsem tam horni menu (viz. Internet Explorer neno Outlook

Ahoj,

Pricin muze byt nekolik. Zkontroluj jestli mas:
- update pack #1
- posledni verzi COMCTL32 (5.80). Tu lze ziskat budto instalaci IE5 nebo
samostatnym updatem tady:
http://www.microsoft.com/msdownload/ieplatform/ie/comctrlx86.asp
- nejnovejsi driver videokarty a pouzivas "rozumnou" barevnou hloubku, tedy
alespon 16bit HighColor.

Dale, projevuje se ti ta chyba i kdyz aplikace nebezi pod Delphi debugerem ?
Zkousel jsi to i na jinych Windows ? W98 (prvni verze) nepatri zrovna k tem
prilis stabilnim.

Petr Vones, amatersky programator


RichEdit-nacteni souboru

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

From: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
> Parada, zrychleni je opravdu znat:
> soubor cca 4,3 MB jsem puvodne nacital asi za 30 sec., po zrychleni asi 3
> !!! sec.
> ( P120, 32MB RAM, W95 )
> ale co je vlastne pricinou toho zrychleni, napoveda prakticky nic nerika...
> ?

Ahoj,

Popravde receno presne nevim :-) Podival jsem se jen jak to ma nastaveny
richedit ve WordPadu a porovnaval rozdily. V helpu o tom opravdu moc neni.
Patrne se tim interne usetri nejaka prace RichEditu s oznamovanim a pak
to nahrava rychleji.

Petr Vones, amatersky programator

Vlozenie btimapy do bitmapy

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2000 23:15:29

From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
> Zdravim, potreboval by som nakreslit jeden Image do druheho.
>
> Napr. Image1.width:=10; Image1.height:=10;
> Image2= 100 x100;
>
> No a ja chcem vlozit image1 do image2 vo velkosti 10 x10 na nejake suradnice
> x,y do Image2.
> Nie ako object, ale len ju tam v podstate nakreslit.

Ahoj,

napriklad takhle:

procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
begin
R := Rect(0, 0, 50, 50);
Image2.Picture.Bitmap.Width := 100;
Image2.Picture.Bitmap.Height := 100;
Image2.Picture.Bitmap.Canvas.CopyRect(R, Image1.Picture.Bitmap.Canvas, R);
end;

Petr Vones, amatersky programator

Handle "hlavniho" formu

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

From: Karel Klime� <kchodl(zv)email(tec)cz>
> 1.) Spustim "cizi" aplikaci pomoci CreateProcess (schovam si vracene udaje
> v ProcessInfo strukture).
>
> 2.)Chci najit handle "hlavniho" formu te spustene aplikace.

Ahoj,

Pokud pouzijes pro spusteni komponentu TJvCreateProcess, tak muzes handle
okna ziskat pomoci vlastnosti TopLevelWnd, popripade aplikaci i zavrit.
Melo by to byt zjevne z prikladu. Najdes to tady:

http://www.volweb(tec)cz/pvones/download/JediVCL_Vones_mirror.zip

Poznamka pro D4. Mezi soubory se nachazi i D4ONLY_Contnrs.pas, ten je
treba prejmenovat na Contnrs.pas, obsahuje jednoduchou implementaci
tridy TObjectList, ktera je az v D5.

Petr Vones, amatersky programator

Jak zjistit, ze proces neni ukoncen?

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

From: Pavel Bansky <pbansky(zv)volny(tec)cz>
> No jo, ale pri kompilaci to neuprsone krici, a problem je ze ja ten PsApi v
> Source\Rtl\win nemam :(( nevim proc. Mam D4 C/S. Mohl by jsi me to kdyz tak

Ahoj,

Zvlastni, v D4 soubor psapi.pas mam. Mas posledni update pack #3 ?

Petr Vones, amatersky programator

Velikost objektu

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

From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> jak zjistim, kolik pameti zabere objekt po jeho vytvoreni
> (napr. TEdit)
>
> SizeOf(TEdit) nebo SizeOf(Edit) mi pochopitelne vraci
> velikost ukazatele...

Ahoj,

podivej se na metodu TObject.InstanceSize.

Petr Vones, amatersky programator

Konfview a PDOXUSRS.LCK

[*] Jan Naiser <tua(zv)ltm(tec)cz> - 10.4.2000 23:47:56

Pekny den,

konecne jsem se dostal pred casem k tomu, abych zacal pouzivat take
konfview. Jak uz tu pred casem probehlo, nastal pad pri nacitani DELPHI.TXT
na zaznamu 1532. Zjistil jsem, ze pad se deje pote, co se soubor
PDOXUSRS.LCK naplni na hranici neco pres 26MB. Pote to zahlasi tu znamou
chybu "Invalid parametr". Kdysi jsem v programu uz podobny zadrhel mel.
Tehdy jsem musel optimalizovat (redukovat) pouziti SELECTU v Query. Zda se,
ze nekolikanasobne pouzivani vede k rapidnimu zvetseni jmenovaneho souboru a
nakonec k padu. Pokud se sekce na kotrolu duplicity pri nacitani vyblokuje,
nacte se vse v pohode a LCK se nezvetsuje. Staci si nastavit breaky po 500
zaznamech a podivat se na velikost LCK.
Po ukonceni formu pro nacitani se velikost LCK opet redukuje na unosnou
velikost.

Nezjistil jsem zatim, jak to souvisi s nastavenim BDE. Ktere parametry na to
mohou mit vliv. (LOCAL SHARE ??) Pokrocil jste nekdo dale?

A co tedy ovlivnuje velikost (narustani) souboru PDOXUSRS.LCK a jak se to da
ohlidat?

Honza.

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