Archív konference Delphi

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

Format a array of const

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 30.6.1999 07:32:17

Ahoj,

zkus pouzit tohle :

var
aArray : array of TVarRec;
i : integer;
begin
SetLength( aArray, 4 );
for i := Low( aArray ) to High( aArray ) do
begin
aArray[i].VType := vtInteger;
aArray[i].VInteger := 0;
end;
ShowMessage( Format( 'blabla %d %d %d %d' , aArray ));
end;

Ono totiz kdyz pouzijes array of integer, tak ta funkce format nevi
ze tam mas ulozene integery (je to jenom alokovana pamet pro ty integery),
kdezto pri pouziti array of TVarRec se uklada do pole i typ promene.

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. �ervna 1999 22:02
P�edm�t: Format a array of const


Preji vsem pekneho dne,

nejak jsem se zamotal do druheho argumentu funkce format.

Mam pole integeru, ktere nejakym zpusobem naplnim a chci jej
predat funkci format nasledovne (zkraceno na minimum):

procedure TfrmCasoveOmezeni.bbtnOkClick(Sender: TObject);
var
X: array of integer;
begin {bbtnOkClick}
SetLength (X, 33);
X [0] := ID_O;
X [1] := ID_Z;
...
X [32] := integer (chckNeA.Checked);

Format (sqlInsertIntoTimeTable, X);
end; {bbtnOkClick}


Pokud to pole bylo staticke, pak mi to ani neprelozil, pokud jej
vytvarim dynamicky, buchne mi to s vyjimkou. Jak presne to mam
zapsat?

Diky za kazdou radu

Slavek


-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------

udalost OnFilterRecord znovu

[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 30.6.1999 07:56:34

Tahle hlaska znamena, ze jsi editoval pole, ktere je klicove pro filter,
a zmenil si ho tak, ze ted neodpovida podmince. Reseni si jiste odvodis
sam...


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz

> -----P�vodn� zpr�va-----
> Od: jdanek(zv)fnbrno(tec)cz [SMTP:jdanek(zv)fnbrno(tec)cz]
> Odesl�no: 29. �ervna 1999 15:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: udalost OnFilterRecord znovu
>
>
> Blbne mi to tehdy, kdyz mam nastaveno vse jak popisuji a nad DbGridem,
> kde
> je vyfiltrovano to co potrebuji vyvolam DblClickem dalsi okno, ve
> kterem
> edituji
> prave aktualni zaznam Tabulky zobrazovane v DbGridu. Pri zapisu hodnot
> tohoto zaznamu mi pak Delphi napisi hlasku "No current record".
> Vypozoroval jsem, ........
>

ADO vs OLE DB (Was: D 3C/S + MS SQL 7 a varchar(80

[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 30.6.1999 08:04:21


> -----P�vodn� zpr�va-----
> Od: Erik Salaj [SMTP:winsoft(zv)napri.sk]
> Odesl�no: 29. �ervna 1999 18:04
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: ADO vs OLE DB (Was: D 3C/S + MS SQL 7 a
> varchar(8000))
>
> komplikovana. Takze hlavnym problemom by bola nie efektivita, ale to,
> ci by pouzitie dvoch odlisnych objektovych modelov nesposobil viac
> komplikacii ako uzitku. Prikladom moze byt napr. C++ Builder, ktory
> koli spolupraci s VCL pisanej v Object Pascale obsahuje jednak
> separatny
> kompilator Pascalu a dalej koli moznosti priamo programovat VCL
> objekty
> a komponenty aj rozsirenia samotneho jazyka C++. Podla mna to nie je
> dobre riesenie a vysledok (nazval by som to poriadny chaos) tomu
> aj odpoveda.
[Martin Fron�k] Jestli chce� vyvolat flamewar, tak jses na
dobre ceste.

navrh tabulky

[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 30.6.1999 08:08:42


[Martin Fron�k] Je to tim, ze placeni poplatku za telefon se
nelze vyhnout, ale placeni software ano. S vedenim kazdeho podniku je to
jako boj s vetrnymy mlyny (nic proti Sinea SW :-)
> -----P�vodn� zpr�va-----
> Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 29. �ervna 1999 21:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: navrh tabulky
>
> V tom pripade to vid�m jako hloup� absurdist�n, kdy� nekdo, kdo plat�
> janom za telefonn� slu�by
> kolem jednoho mili�nu korun se rozm��l� nad t�m zda zakoupit
> datobazov� server za p�r tis�c a� des�tek tis�c
> (podle poctu licenc�).. NOJO
> Jaro
> --------
>

Rozliseni obrazovky

[*] Jan Ko�� <honza(zv)skoda-ujp(tec)cz> - 30.6.1999 08:08:05

Ahoj.

Chtel bych se zeptat, jak lze programove zmenit rozliseni obrazovky napr.
z 800x600 na 640x480.

Dekuji.

Honza.

SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 30.6.1999 08:14:19

Ahoj,

je mozno napsat jeden SQL dotaz pro nasledujici problem?

Tabulka ma sloupce
Druh: cele cislo
Ucast: boolean
tedy

Druh Ucast
1 Ano
1 Ne
1 Ano
1 Ano
2 Ano
2 Ne
2 Ne
2 Ne

potrebuji vysledek:

Druh Pocet S ucasti
1 4 3
2 4 1

Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale lze to
ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?

Je to paradox, ale zajima me to i obecne.

Diky

Josef Slany
mail: slany(zv)fpozn(tec)cz

Objkety do StringListu nebo TStrings

[*] Martin Fiala <oldjojos(zv)excite(tec)com> - 30.6.1999 06:23:27 pdt

Ahoj

Nejdriv diky za ty ikony na panelu a mam dalsi amatersky problem

Mam Do StringListu udelat kolekci objektu, ktere
jsou slozeny z 3 stringu (nebo integeru).
Tato kolekce pak bude zobrazena v ListBoxe. A vubec Nevim jak na to

Potreboval bych opravit tenhle zdojak, je li to mozne:

Predem diky
-----------------------------

unit Unit1;

interface

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

type
TForm1 = class(TForm)
btnUdelej: TButton;
btnView: TButton;
ListBox1: TListBox;
procedure btnUdelejClick(Sender: TObject);
procedure btnViewClick(Sender: TObject);
private
{ Private declarations }
public
procedure UdelaniKolekce;
procedure KolekceDoViewu;
end;

type
TMujObjekt = class
Velikost : Integer;
Jmeno : String;
Atribut : Integer;
end;

var
Form1: TForm1;
List : TStrings;
MO : TMujObjekt;

implementation

{$R *.DFM}

procedure TForm1.UdelaniKolekce;
var
B : Byte;
begin
List := TStringList.Create;
for B := 1 to 50 do
begin
MO := TMujObjekt.Create;
MO.Velikost := 100 * B;
MO.Jmeno := 'Jmeno' + IntToStr(B);
List.AddObject('NAZEV' + IntToStr(B+900), MO);

end;
end;

procedure TForm1.KolekceDoViewu;
var
B: Byte;
begin
for B := 1 to 50 do
begin
MO := List.Objects[B];
ListBox1.Items.Add(MO.Jmeno);
ListBox1.Items.Add(IntToSTr(MO.Velikost));
List.Free;
end;

{--------------------------------------------}
procedure TForm1.btnUdelejClick(Sender: TObject);
begin
UdelaniKolekce;
end;

procedure TForm1.btnViewClick(Sender: TObject);
begin
KolekceDoViewu
end;

end.


_______________________________________________________
Get your free, private email at http://mail.excite.com/

par otazociek - Seriove cislo HD

[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 30.6.1999 08:29:05

Zdravim....
pro ziskani serioveho cisla disku zkus tohle

const
drive = 'C'
var
StrSN : String;
SerialNum : pdword;
mcL,FSF : dword;
sn : dword;
VNBuffer : array [0..255] of char;
begin
serialNum:=addr(sn);
if GetVolumeInformation(PChar(drive+':\'), VNBuffer, SizeOf(VNBuffer),
SerialNum, mcL,FSF, nil, 0) then StrSN:= IntToStr(SerialNum^);(*-------------------------------------------------------
Karel Pechanec; kapecha(zv)mias(tec)cz
MIA Software s.r.o.; www.mias(tec)cz
-------------------------------------------------------*)

-----P�vodn� zpr�va-----
Od: Lubos <bruce(zv)pobox.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 23:18
P�edm�t: par otazociek


>Caute Delfini.
>
>Mam zopar otazociek.
>
>1) Hladam funkciu na ziskanie cisla serioveho cisla HDD.
> Potreboval by som nakopnut spravnym smerom, nezaskodil
> by aj kusok zdrojaku.
>

PLUGINy

[*] David Hrbac <hrbac.conf(zv)seznam(tec)cz> - 30.6.1999 08:36:10

Ja jsem nasel zajimave reseni na plug-iny pomoci balicku, i kdyz ne primo
standardnich od Borlandu. Je na to velice sikovna komponenta, muzu poslat.
TPackagePanel a TPackForm.
David Hrbac


-----Original Message-----
From: Michal HAMPL <PLHA(zv)VIP.CBNET.CZ>
To: <delphi-l(zv)fwd(tec)cz>
Date: 29. �ervna 1999 18:35
Subject: PLUGINy


>Cau fsichni priznifci delphi
>Mam v planu vytvaret aplikaci, ktera by mela jit rozsirovat pomoci PLUGINu.
>
>Priklad:
>Mam hlavni okno, ktere ma prazdnou plochu a na tu plochu potrebuji
>nasmerovat ten plugin. Neco jako MDIForm a plugin by byl MDIChild.
>
>Otazka:
>Jake jsou varianty a jake jejich klady a zapory.
>
>(Chtel jsem pouzit DLL, ve kterem bude umisten MDIChild, ale moc se mi
>nedarilo)
>
>Predem diky za odpovedi
>Michal HAMPL
>
>
>

par otazociek

[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 30.6.1999 08:47:36


Lubos wrote:
>
> Caute Delfini.
>
> Mam zopar otazociek.
>
> 1) Hladam funkciu na ziskanie cisla sietovej karty a serioveho cisla HDD.
> Potreboval by som nakopnut spravnym smerom, nezaskodil
> by aj kusok zdrojaku.
>

Na zjisteni cisla sitove karty je treba pouzit funkce NetBiosu:

var adp: TAdpStat;
ncb: TNCB;

begin
FillChar(ncb,sizeof(ncb),0);
FillChar(adp,sizeof(adp),0);
ncb.Command := NCB_ADPSTAT;
ncb.Buf := (zv)adp;
ncb.Length := sizeof(adp);
FillChar(ncb.CallName,sizeof(TNBName),$20);
ncb.CallName[0] := byte('*');
ncb.Lana_Num := 0;
i := NetBiosCmd(ncb);
if i = NRC_GOODRET then
NetUnique := (((((adp.ID[5] shl 8) + adp.ID[4]) shl 8) + adp.ID[3])
shl 8) + adp.ID[2]
else
NetUnique := Random(MaxInt);
end;

Mozna nekde najdu i tu prilinkovanou unitu... Ale mela by byt nekde na
Internetu, podivej se na nejaky ten Delphi site.

--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)

Btrieve Magic

[*] Kriz David <david.kriz(zv)ccv(tec)cz> - 30.6.1999 08:47:36

Ahoj,

nahodou jiz asi 5 let programuji v systemu MAGIC od Izraelske firmy MSE. A
to ve verzi 4.20 a 5.70. Taktez pouzivame jako databazovy stroj Btrieve
verze 6.15. To vse na siti Novell NetWare 4.12.

Co se tyka Tveho dotazu:
Aplikace napsane v MAGICu nejsou zadne .exe-soubory. Jsou ulozeny v
databazove tabulce ve formatu Btrieve. Vetsinou maji nazev "??CTL.DAT". Je v
nich ulozen nejen vlastni kod programu (v tzv. programovem slovniku), ale i
struktury vsech databazovych souboru se kterymi dana aplikace pracuje (v
tzv. souborovem slovniku).

Z toho tedy vyplyva, ze aplikace v MAGICu zadne DDF soubory pro pristup k
databazim formatu Btrieve nepotrebuje. Takze je tam ani nikde nenajdete.
Jedinou sanci jak ziskat informace o strukture tech souboru je vlastnit
MAGIC "generator" coz je ta jeho cast ve ktere se aplikace vyvyji. V nem si
potom otevrit prislusne "??CTL.DAT" a v jeho souborovem slovniku se podivat
na ty struktury (vyssi verze MAGICu /windowsovske/ dokonce umi primo ze
souboroveho slovniku ty DDFka vygenerovat).

Uff ..., tak to by snad pro zacatek stacilo. Kdyby jste mel jeste nejake
dotazy, tak se klidne ozvete. Treba bych Vam mohl ty struktury dostat ven u
nas, protoze MAGIC "generator" vlastnime.
____________________________________
Podpis (ENG:signature, DEU:unterschrift, ESP:firma)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
David K��,
CCV s.r.o., Jir�skova 43, Brno, Czech republic - vyrobce ekonomickeho IS
"NPro"
mailto:david.kriz(zv)ccv(tec)cz
http://www.ccv(tec)cz
Telefon: +420-5-41215476, 41218050
Fax: +420-5-41217757
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

> -----P�vodn� zpr�va-----
> Od: Jiri Virt [SMTP:virt(zv)pepa(tec)cz]
> Odesl�no: st�eda 30. �ervna 1999 5:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Btrieve Magic
>
>

Rozliseni obrazovky

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 30.6.1999 09:03:59

Ahoj,

napriklad takhle zmenis rozliseni na 640x480 x 256 barev :

procedure TForm1.buttSetNewScrResClick(Sender: TObject);
var
lpDevMode : TDeviceMode;
aResult : integer;
begin
EnumDisplaySettings( nil, 0, lpDevMode );
with lpDevMode do
begin
dmBitsPerPel := 8;
dmPelsWidth := 640;
dmPelsHeight := 480;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
end;
aResult := ChangeDisplaySettings( lpDevMode, 0 );
end;


S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Jan Ko�� <honza(zv)skoda-ujp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. �ervna 1999 7:59
P�edm�t: Rozliseni obrazovky


>Ahoj.
>
>Chtel bych se zeptat, jak lze programove zmenit rozliseni obrazovky napr.
>z 800x600 na 640x480.
>
>Dekuji.
>
>Honza.
>
>
>

Btrieve Magic

[*] roman.vasicek(zv)email(tec)cz - 30.6.1999 09:25:05

Nazdarek

> Magic pracuje s Btrievem.V tom by problem nebyl.Spise v otevirani tabulek.
> Nemuzu vubec najit ty DDF soubory.Nevite kde by to mohl mit ten Magic
> schovany. Nemate s tim nekdo zkusenosti. Nebo jeste lepe - nevi nekdo jak by

Kdyz v Magicu vytvarim aplikaci, tak krome toho, ze ji davam do urciteho adresare,
uvadim jeste dvoupismennou predponu. Napriklad Diplomka\di. Potom soubory
teto aplikace jsou ulozeny v adresari Diplomka a zacinaji na di. Urcite tam pak
najdes dictl.mcf - CTLka (ridici soubor, vekterem jsou datove struktury) a pokud
byla zadana nejaka data, tak tam jsou i soubory difilXXX.dat, kde XXX je poradove
cislo souboru. V techto jsou vlastni data.

Doufam, ze je to to co jsi hledal

Bye
Phoenix
--
+------------------------
| Roman Vasicek - Phoenix
| student FEI VUT v Brne (xvasic04(zv)stud.fee.vutbr(tec)cz - pouze do 30.6.1999)
| E-mail: roman.vasicek(zv)email(tec)cz
| WWW: http://roman.manes.skm.vutbr(tec)cz/


--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email

editace datumove polozky

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 30.6.1999 09:52:07

Ahojky,
nevite nekdo, jak a kde nejlepe otestovat, zda je do TBEdit napojeneho na
datumovou zadano skutecne datum tak, aby to bylo drive nez na to prijde
BDE?
Kdesi jsem videl komponentu co to umela ale kde....

Pripadne lze prelozit hlasky od BDE (5.01) do cestiny?

Dik

===========mozno pouzit PGP==============
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
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela


par otazociek - Get Serial HDD, NIC

[*] Jano <jj_delphi(zv)ke.ubp.sk> - 30.6.1999 09:03:09

>Caute Delfini.
>
>Mam zopar otazociek.
>
>1) Hladam funkciu na ziskanie cisla sietovej karty a serioveho cisla HDD.
> Potreboval by som nakopnut spravnym smerom, nezaskodil
> by aj kusok zdrojaku.


Ziskanie serioveho cisla sietovky neviem, ale seriovre cislo HDD zistis takto:
(pomocou Windows API funkcie GetVolumeInformation)

procedure TForm1.Button1Click(Sender: TObject);var VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD; FileSystemFlags : DWORD;
SerialNumber : string;begin GetVolumeInformation('C:\',
nil, 0,
(zv)VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags, nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
'-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;

>
>2) Nemate niekto program do win, na presmerovanie vsetkych poziadaviek
>smerujucich na CD do zvoleneho adresara ? Cosi ako SUBST na CD.
>Nie FakeCD.


CD Copier 2.0
-nainstaluje Ti virtualne CD,
-cez program zgrabujes komplet cele CD na HDD ako jeden subor,
-tieto subory potom vkladas ako CD do virtualnej mechaniky CD,
...
Zavisi to od toho, na co to potrebujes...

Jano jj_delphi(zv)ke.ubp.sk

QReport - TQRExpr

[*] Bob <delphi(zv)alf.dingo(tec)cz> - 30.6.1999 10:16:42

Ahojte,

delal jste nekdo s touto komonentou?
Zkousel jsem to, ale jaksi me to nende.
Mam v reportu polozku, ktera ma kladne i zaporne hodnoty.
Potreboval bych, aby se me udelala na konci suma kladnych a suma zapornych
cisel zvlast.

Priklad:

Popis castka
---------------------------------------------------
jhjhkjhkjhkjh -100,00
pokus -200,00
dalsi pokus 1000,00
cosi -20,00
jeste neco 56400,00
---------------------------------------------------
Prijem: 57400,00 Vydej: -320,00

Robert Van�k
dingo(zv)dingo(tec)cz


SQL - dvojity Count

[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 30.6.1999 10:36:14

Preji hezky den,

Norma SQL92 umozuje tento zapis:

SELECT druh, COUNT(druh) AS pocet,
(SELECT COUNT(*) FROM test T2 WHERE T1.druh = T2.druh AND ucast = 1) AS
ucast
FROM test T1 GROUP BY druh

Nevim presne jestli je to uz v entry levelu te normy, takze zalezi na DB
stroji. Napr. MS SQL resp. Oracle to umi, ale az od verze 7.0 resp. 8. Jak
je to s Paradoxem nevim.

bye

R.Pospisil

-----Original Message-----
From: Josef Slan� [mailto:slany(zv)fpozn(tec)cz]
Sent: Wednesday, June 30, 1999 8:14 AM
To: Skupina Delphi
Subject: SQL - dvojity Count


Ahoj,

je mozno napsat jeden SQL dotaz pro nasledujici problem?

Tabulka ma sloupce
Druh: cele cislo
Ucast: boolean
tedy

Druh Ucast
1 Ano
1 Ne
1 Ano
1 Ano
2 Ano
2 Ne
2 Ne
2 Ne

potrebuji vysledek:

Druh Pocet S ucasti
1 4 3
2 4 1

Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale lze to
ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?

Je to paradox, ale zajima me to i obecne.

Diky

Josef Slany
mail: slany(zv)fpozn(tec)cz


OFF: DirectX 6.1 SDK

[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 30.6.1999 11:14:04

Nevite nahodou kde sehnat ci stahnout DirectX 6.1 SDK /neberu www.microsoft.com/...
popripade objednat, ne pres VISA, ale na dobirku...(*-------------------------------------------------------
Karel Pechanec; kapecha(zv)mias(tec)cz
MIA Software s.r.o.; www.mias(tec)cz
-------------------------------------------------------*)

None

[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 30.6.1999 11:44:10

V ktere verzi DELPHI

----------
> Odes�latel: Martin Fiala <oldjojos(zv)excite.com>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t:
> Datum: 29. �ervna 1999 12:30
>
> Ahoj,
>
> muze mi nekdo poradit jak si muzu k me vlastni komponente dat vlastni ikonu
> do delhpi Component palette. Jak se to dela?
>
> Diky Martin.
>
>
>
>
>
> _______________________________________________________
> Get your free, private email at http://mail.excite.com/

Rozliseni obrazovky

[*] Pavel �im��ek - 30.6.1999 12:38:59

>Ahoj.
>
>Chtel bych se zeptat, jak lze programove zmenit rozliseni obrazovky napr.
>z 800x600 na 640x480.
>
>Dekuji.
>
>Honza.
>
>
Nevim jestli to jde ale zkusil bych hledat nekde okolo GetSystemMetrics a
SystemParametersInfo ve WIN32.
Pavel

DirectX 6.1 SDK

[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 30.6.1999 13:06:21

ahoj, znas tuhle adresu :http://www.delphi-jedi.org/DelphiGraphics/ je
tam spousta veci o Delphi a DirectX jinak jsem si stahl docela dobre
dokumenty o programovani v DirectX, dohromady vsak maji neco kolem 6MB a
tak by to chtelo pripadne specifikovat co mas presne na mysli.

> -----P�vodn� zpr�va-----
> Od: Karel Pechanec [SMTP:kapecha(zv)mias(tec)cz]
> Odesl�no: 30. �ervna 1999 11:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OFF: DirectX 6.1 SDK
>
> Nevite nahodou kde sehnat ci stahnout DirectX 6.1 SDK /neberu
> www.microsoft.com/... <http://www.microsoft.com/>
> popripade objednat, ne pres VISA, ale na dobirku...
> �
> �
> (*-------------------------------------------------------
> Karel Pechanec; kapecha(zv)mias(tec)cz <mailto:kapecha(zv)mias(tec)cz>
> MIA Software s.r.o.; www.mias(tec)cz <http://www.mias(tec)cz>��������
> -------------------------------------------------------*)

Insert into

[*] Roman Toda <normex(zv)mail.pvt.sk> - 30.6.1999 13:20:50

Ako sa da cez INSERT INTO (pripadne iny SQL prikaz) vlozit udaje do viac
tabuliek ?
Pouzivam UpdateSQL a na tomto sa uz dlho trapim. Syntax Delete aj Update to
podporuje ale pri Inserte to nemozem najst.

-------------------------------------------
Roman Toda
http://www.technickenormy.com
Normex l.t.d. - fulltext for technical standard


SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 30.6.1999 13:31:22

Nize uvedene skutecne lze spustit, ale ve vysledku jsou ve tretim sloupci
(ucast) jen same nuly.
Delam nekde chybu, nebo to chce jeste nejakou upravu?

Slany

> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Radek Pospisil
> Odesl�no: 30. �ervna 1999 10:36
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL - dvojity Count
>
>
> Preji hezky den,
>
> Norma SQL92 umozuje tento zapis:
>
> SELECT druh, COUNT(druh) AS pocet,
> (SELECT COUNT(*) FROM test T2 WHERE T1.druh = T2.druh AND ucast = 1) AS
> ucast
> FROM test T1 GROUP BY druh
>
> Nevim presne jestli je to uz v entry levelu te normy, takze zalezi na DB
> stroji. Napr. MS SQL resp. Oracle to umi, ale az od verze 7.0 resp. 8. Jak
> je to s Paradoxem nevim.
>
> bye
>
> R.Pospisil
>
> -----Original Message-----
> From: Josef Slan� [mailto:slany(zv)fpozn(tec)cz]
> Sent: Wednesday, June 30, 1999 8:14 AM
> To: Skupina Delphi
> Subject: SQL - dvojity Count
>
>
> Ahoj,
>
> je mozno napsat jeden SQL dotaz pro nasledujici problem?
>
> Tabulka ma sloupce
> Druh: cele cislo
> Ucast: boolean
> tedy
>
> Druh Ucast
> 1 Ano
> 1 Ne
> 1 Ano
> 1 Ano
> 2 Ano
> 2 Ne
> 2 Ne
> 2 Ne
>
> potrebuji vysledek:
>
> Druh Pocet S ucasti
> 1 4 3
> 2 4 1
>
> Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim,
> ale lze to
> ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
>
> Je to paradox, ale zajima me to i obecne.
>
> Diky
>
> Josef Slany
> mail: slany(zv)fpozn(tec)cz
>
>

QReport a tisk obrazku

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 30.6.1999 13:52:23

Ahojky
potrebuji tisknout databazi s obrazky ulozenymi v souborech
Zkusil jsem to tedy tak:
V QReport do DetailBand jsem umistil jednak QRDBtext - tisknou se popisy a
dale jsem sem placnul QRImage.
Abych to krmil obrazky povesil jsem event DetailBandBeforePrint nasledujici
kus kodu:
--------------------------------------
Procedure TQR_foto_seznam.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var soubor: STring;
begin
if DMF.TFotky.fieldValues['signatura']>'' then
begin
soubor :=
NastaveniPrgF.CestaFoto.Text+'\'+DMF.TFotky.fieldValues['signatura']+'.j
pg';
try
QRImage1.Picture.LoadFromFile(soubor)
except
QRImage1.Picture.Graphic := nil;
end;
end;
end;
---------------------------------------------------------
Ve programu provedu Prepare a Preview.
Na preview to je vse v poradku. V okamziku, kdy to ale poslu na tiskarnu
(tlacitkem Print na preview), na tiskarne nevylezou vsechny obrazky.
Namisto nekterych tam jsou pouze prazdna mista. Vytvorim-li sestavu
nekolikrat po sobe, jsou tak se vzdy vytisknou nejake jine.


Dik

===========mozno pouzit PGP==============
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
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela


Format a array of const

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.6.1999 14:42:57

> Ono totiz kdyz pouzijes array of integer, tak ta funkce format nevi
> ze tam mas ulozene integery (je to jenom alokovana pamet pro ty integery),
> kdezto pri pouziti array of TVarRec se uklada do pole i typ promene.
Asi jsem precenil prekladac. :-(


Slavek

> S pozdravem
>
> Martin VLK


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


SQL - dvojity Count

[*] delphi(zv)htkpro(tec)cz - 30.6.1999 15:12:32


V Oracle lze pouzit funkci DECODE, ktera to umozni
mohlo by to asi vypadat nasledovne. Jine servery maji urcite
nejakou podobnou funkci :

select druh, count(druh), count(decode(ucast,1,1))
from pokus
group by druh

DECODE(par1,par2,par3,par4,par5...par_n) se chova jako prikaz case v pascalu

case par1 of
par2 : result := par3
par4 : result := par5
.
.
.
else result := par_n; // jen pokud n je sude jinak else je null
end;

Reseni bez DECODE je slozitejsi a vyzaduje pouziti vnoreneho selectu.
Muze vypadat cca plusminus nasledovne :

select a.druh, count(a.druh), b.pocet from pokus a,
(select druh, count(druh) pocet from pokus where ucast=ano group by druh) b
where a.druh=b.druh
group by a.druh,b.pocet



S pozdravem
Jan Kadlecek
----------------------------------------------------------------
HTK Pro s.r.o.
www.htkpro(tec)cz, www.dev-shop(tec)cz - Vse pro vyvojare
----------------------------------------------------------------


>
>je mozno napsat jeden SQL dotaz pro nasledujici problem?
>
>Tabulka ma sloupce
>Druh: cele cislo
>Ucast: boolean
>tedy
>
>Druh Ucast
>1 Ano
>1 Ne
>1 Ano
>1 Ano
>2 Ano
>2 Ne
>2 Ne
>2 Ne
>
>potrebuji vysledek:
>
>Druh Pocet S ucasti
>1 4 3
>2 4 1
>
>Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale lze to
>ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
>
>Je to paradox, ale zajima me to i obecne.
>
>Diky
>
>Josef Slany
>mail: slany(zv)fpozn(tec)cz
>
>
>
----------------------------------------------------------------------------


MSSQL

[*] Soft <soft(zv)comacomp(tec)cz> - 30.6.1999 15:59:26

Ahoj vsichni
M�m takov� probl�m co potrebuji k pripojeni na MSSQL pres internet ??
jde to pres odbc??

d�k za kazdou odpoved
Zdenek Gracias

graciasz(zv)comacomp(tec)cz


OFF: DirectX 6.1 SDK

[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 30.6.1999 16:23:01

> Nevite nahodou kde sehnat ci stahnout DirectX 6.1 SDK /neberu =
> www.microsoft.com/...
> popripade objednat, ne pres VISA, ale na dobirku...

Mam ho tu stahnute, ale to Ti asi moc nepomuze (71MB...).
A myslim, ze jsem ho taky netahal od microsoftu;
zkus vyhledat (treba HotBotem) jmeno souboru dx61sdkimage.exe.

Tom


Rozliseni obrazovky

[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 30.6.1999 16:34:45

>>Chtel bych se zeptat, jak lze programove zmenit rozliseni obrazovky napr.
>>z 800x600 na 640x480

Zda sa mi, ze je to na CD Delphi 4 v priecinku FAQ, dokument sa vola
presne 749.html. Ak nie, tak hladaj na inprise.com dokument
s nazvom "Changing the display mode settings in code." alebo
dokument 749.html.

forgo

Vyjizdejici panel

[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 30.6.1999 15:38:01

Hezky den,
rad bych se zeptal nevite-li nekdo jak nejlepe udelat takovy ten "vyjizdejici panel" (viz napr. menu u W98). Proste chci aby mi po stisku tlacidla plynule vyjel (treba z boku formulare) panel. Delam to tak, ze pokud ma vyjizdet zleva menim jeho Width v cyklu a pokud zprava menim jeho Left. Vyjizdet sice vyjizdi, ale je videt jak se vykresluje (na PII !) . Neznate nekdo lepsi zpusob ? Doufam ze jsem se vymackl jasne ...

Diky
T.B.

Objkety do StringListu nebo TStrings

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 30.6.1999 17:31:10

Ahoj

v podstate to mas dobre, akorad misto TStrings musis
pouzit TStringList, ale radsi bych pouzil TList. TStrings je jen
abtstraktni trida ktera ma pouze abstraktni metody (musi byt
implementovany u potomka).
A potom je nutne na konci programu vytvorene objekty uvolnit :

procedure TForm1.FormDestroy(Sender: TObject);
var
i : integer;
begin
for i := 0 to List.Count - 1 do
TObject(List.Items[i]).Free;
end;

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Martin Fiala <oldjojos(zv)excite.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. �ervna 1999 15:39
P�edm�t: Objkety do StringListu nebo TStrings


>Ahoj
>
>Nejdriv diky za ty ikony na panelu a mam dalsi amatersky problem
>
>Mam Do StringListu udelat kolekci objektu, ktere
>jsou slozeny z 3 stringu (nebo integeru).
>Tato kolekce pak bude zobrazena v ListBoxe. A vubec Nevim jak na to
>
>Potreboval bych opravit tenhle zdojak, je li to mozne:
>
>Predem diky
>-----------------------------
>
>unit Unit1;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
>type
> TForm1 = class(TForm)
> btnUdelej: TButton;
> btnView: TButton;
> ListBox1: TListBox;
> procedure btnUdelejClick(Sender: TObject);
> procedure btnViewClick(Sender: TObject);
> private
> { Private declarations }
> public
> procedure UdelaniKolekce;
> procedure KolekceDoViewu;
> end;
>
>type
> TMujObjekt = class
> Velikost : Integer;
> Jmeno : String;
> Atribut : Integer;
> end;
>
>var
> Form1: TForm1;
> List : TStrings;
> MO : TMujObjekt;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.UdelaniKolekce;
>var
> B : Byte;
>begin
> List := TStringList.Create;
> for B := 1 to 50 do
> begin
> MO := TMujObjekt.Create;
> MO.Velikost := 100 * B;
> MO.Jmeno := 'Jmeno' + IntToStr(B);
> List.AddObject('NAZEV' + IntToStr(B+900), MO);
>
> end;
>end;
>
>procedure TForm1.KolekceDoViewu;
>var
> B: Byte;
>begin
> for B := 1 to 50 do
> begin
> MO := List.Objects[B];
> ListBox1.Items.Add(MO.Jmeno);
> ListBox1.Items.Add(IntToSTr(MO.Velikost));
> List.Free;
>end;
>
>{--------------------------------------------}
>procedure TForm1.btnUdelejClick(Sender: TObject);
>begin
> UdelaniKolekce;
>end;
>
>procedure TForm1.btnViewClick(Sender: TObject);
>begin
> KolekceDoViewu
>end;
>
>end.
>
>
>
>
>_______________________________________________________
>Get your free, private email at http://mail.excite.com/

MSSQL

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.6.1999 18:30:41



> M�m takov� probl�m co potrebuji k pripojeni na MSSQL pres internet ??
> jde to pres odbc??


jde na www.tcx.se si muzes stahnout ODBC drivery

Ja ale pouzivam komponentu pro Delphi viz:
http://www.productivity.org/projects/mysql

Zdravi
D. Toman

Dial-up

[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 30.6.1999 19:23:13

Hi,

Potrebuju, aby moje aplikace v zadnem pripade nevyvolavala okno windows s nabidkou vytaceni, kdyz pracuju s TCP/IP ... Standartne to dela, je to sice chvalihodne, ale ja to nechci...

dik za rady

Pavel


QReport a tisk obrazku

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 30.6.1999 19:49:13

Mam podobny problem.
Zistil som ze BMP obrazky tlaci ale ICO nie.
Je to tak aj u teba ?

TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. j�n 1999 16:26
P�edm�t: QReport a tisk obrazku


>Ahojky
>potrebuji tisknout databazi s obrazky ulozenymi v souborech
>Zkusil jsem to tedy tak:
>V QReport do DetailBand jsem umistil jednak QRDBtext - tisknou se popisy a
>dale jsem sem placnul QRImage.
>Abych to krmil obrazky povesil jsem event DetailBandBeforePrint nasledujici
>kus kodu:
>--------------------------------------
>Procedure TQR_foto_seznam.DetailBand1BeforePrint(Sender: TQRCustomBand;
> var PrintBand: Boolean);
> var soubor: STring;
>begin
>if DMF.TFotky.fieldValues['signatura']>'' then
>begin
> soubor :=
>NastaveniPrgF.CestaFoto.Text+'\'+DMF.TFotky.fieldValues['signatura']+'.j
>pg';
>try
> QRImage1.Picture.LoadFromFile(soubor)
> except
> QRImage1.Picture.Graphic := nil;
> end;
>end;
>end;
>---------------------------------------------------------
>Ve programu provedu Prepare a Preview.
>Na preview to je vse v poradku. V okamziku, kdy to ale poslu na tiskarnu
>(tlacitkem Print na preview), na tiskarne nevylezou vsechny obrazky.
>Namisto nekterych tam jsou pouze prazdna mista. Vytvorim-li sestavu
>nekolikrat po sobe, jsou tak se vzdy vytisknou nejake jine.
>
>
>Dik
>
>===========mozno pouzit PGP==============
>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
>===========mozno pouzit PGP==============
>
>... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
>dela
>
>

Objkety do StringListu nebo TStrings

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1999 20:39:03



>Ahoj
>
>Nejdriv diky za ty ikony na panelu a mam dalsi amatersky problem
>
>Mam Do StringListu udelat kolekci objektu, ktere
>jsou slozeny z 3 stringu (nebo integeru).
>Tato kolekce pak bude zobrazena v ListBoxe. A vubec Nevim jak na to
>
>Potreboval bych opravit tenhle zdojak, je li to mozne:
>
>Predem diky
>-----------------------------

Mas tam nekolik chyb

>
>unit Unit1;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
>type
> TForm1 = class(TForm)
> btnUdelej: TButton;
> btnView: TButton;
> ListBox1: TListBox;
> procedure btnUdelejClick(Sender: TObject);
> procedure btnViewClick(Sender: TObject);
> private
> { Private declarations }
> public
> procedure UdelaniKolekce;
> procedure KolekceDoViewu;
> end;
>
>type
> TMujObjekt = class
> Velikost : Integer;
> Jmeno : String;
> Atribut : Integer;
> end;
>
>var
> Form1: TForm1;
> List : TStrings;

Tady patri List: TStringList, navic bych to presunul do TForm1, ale to uz je
vec nazoru.

> MO : TMujObjekt;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.UdelaniKolekce;
>var
> B : Byte;
>begin
> List := TStringList.Create;
> for B := 1 to 50 do
> begin
> MO := TMujObjekt.Create;
> MO.Velikost := 100 * B;
> MO.Jmeno := 'Jmeno' + IntToStr(B);
> List.AddObject('NAZEV' + IntToStr(B+900), MO);
>
> end;
>end;
>
>procedure TForm1.KolekceDoViewu;
>var
> B: Byte;

pri projizdeni tstringlistu nikdy nepouzivej Byte nebo Word, pokud by
byl tstringlist prazdny, vyhodilo by to vyjimku.
Takze radeji:

B:Integer


>begin
> for B := 1 to 50 do
for B := 0 to List.Count-1 // lepsi, navic TStringList zacina od nuly


> begin
> MO := List.Objects[B];
> ListBox1.Items.Add(MO.Jmeno);
> ListBox1.Items.Add(IntToSTr(MO.Velikost));

Tady ti asi urcite chybi jeden END

Pred List.Free musis dealokovat svoje objekty, TStringList to sam neumi
for b := 0 to List.Count-1 do List.Objects[b].free;

> List.Free;>end;


Radim


Mistrovstvi v Delphi 4

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1999 20:56:32

Koupil jsem si knihu Mistrovstvi v Delphi 4 od Cpressu a vsem vrele
doporucuju, NEKUPUJTE JI. Jsou to vyhozene penize. Takhle
mizernou knihu o Delphi jsem jeste necetl.

Radim

Vyhledavani souboru

[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 30.6.1999 21:36:33

Neznate nekdo nejakou funkci pro Delphi na vyhledavani, jako byla v Pascalu "FindFirst" a "FindNext"? V Delphi jsem nasel pouze "FileSearch" jenze to najde pouze soubor s konkretnim jmenem a ja potrebuju pouzivat vyhledavani typu "s*d?e.*".

vobornik(zv)ssakhk(tec)cz


Mistrovstvi v Delphi 4

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.6.1999 21:42:06

> Koupil jsem si knihu Mistrovstvi v Delphi 4 od Cpressu a vsem vrele
> doporucuju, NEKUPUJTE JI. Jsou to vyhozene penize. Takhle
> mizernou knihu o Delphi jsem jeste necetl.
****Mohl bys byt vice konkretnejsi?

Diky

Slavek

> Radim


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


Mistrovstvi v Delphi 4

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1999 21:51:03

Je dobra pro zacatecniky, ale jen pro ty, kteri umi object pascal.
To bude dost vzacna kombinace.
V hodne pripadech tam v poznamce prekladatele chudak prekladatel
opravuje evidentni chyby nebo opomenuti autora.
Divna terminologie, napr. Action je potomkem TAction.
V casti "pro pokrocile" jsou takove fajnovisti, jako tvorba vlastnich
komponent (jak zaregistrovat), nebo vysvetleni vyjimek, ale jen zakladni
vysvetleni, co to je, k cemu to je, a tak.
Divim se, jak s tim dokazal autor vyplnit tak hrubou knihu.


Hodne se tu kritizovalo Mistrovstvi v D2 od Cantu, ale to bylo proti tomu
zlate.


Radim
> Koupil jsem si knihu Mistrovstvi v Delphi 4 od Cpressu a vsem vrele
> doporucuju, NEKUPUJTE JI. Jsou to vyhozene penize. Takhle
> mizernou knihu o Delphi jsem jeste necetl.
****Mohl bys byt vice konkretnejsi?

Diky

Slavek

> Radim


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


Vyhledavani souboru

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1999 21:56:05

FindFirst a FinNext v Delphi jsou.

Radim
-----P�vodn� zpr�va-----
Od: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. �ervna 1999 21:43
P�edm�t: Vyhledavani souboru


Neznate nekdo nejakou funkci pro Delphi na vyhledavani, jako byla v Pascalu "FindFirst" a "FindNext"? V Delphi jsem nasel pouze "FileSearch" jenze to najde pouze soubor s konkretnim jmenem a ja potrebuju pouzivat vyhledavani typu "s*d?e.*".

vobornik(zv)ssakhk(tec)cz


Vyhledavani souboru

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.7.1999 01:01:53

Neznate nekdo nejakou funkci pro Delphi na vyhledavani, jako byla
v Pascalu "FindFirst" a "FindNext"? V Delphi jsem nasel pouze
"FileSearch" jenze to najde pouze soubor s konkretnim jmenem a ja
potrebuju pouzivat vyhledavani typu "s*d?e.*".
vobornik(zv)ssakhk(tec)cz
---------------
FindFirst i FindNext funguji.
V nasledujici procedure je FindFirst pouzito pro vyhledani
souboru.
Procedura DeleteAllFiles smaze vsechny soubory s pouzitim konvence
*?
Malou upravou za repeat je mozne vytvorit i dalsi podobne funkce.

napr.
DeleteAllFiles('System\','Jmeno*.doc');
Smaze vsechny soubory doc zacinajici v nazvu jmeno v podadresari
system

procedure DeleteAllFiles(const Path, FileSpec: string);
{ procedure searches Path subdir for files matching filespec }
var
SR: TSearchRec;
Fs,S: string[72];
begin
S := FileSpec;
repeat
if Pos(';', S) <> 0 then
begin
Fs := copy(S, 1, Pos(';', S)-1);
S := copy(S, Pos(';', S)+1, length(S));
end else
begin
Fs := S;
S := '';
end;
{ Najde prvni soubor }
if FindFirst(Path + Fs, faArchive, SR) = 0 then
repeat
// SearchFile(Path + SR.Name); { process file }
DeleteFile(Path + SR.Name);
Application.ProcessMessages; { take a deep breath }
until (FindNext(SR) <> 0) ;
until S = '';
SysUtils.FindClose(SR); { need for Win32
compatibility }
end;

------------------
Jaro

SQL - dvojity Count

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.7.1999 01:13:49

SELECT Druh, Count(Ucast)
FROM Tabulka
WHERE Ucast = "Ano"
GROUP BY Druh
ORDER BY Druh

Jaro
-----------------------------------


>Ahoj,
>
>je mozno napsat jeden SQL dotaz pro nasledujici problem?
>
>Tabulka ma sloupce
>Druh: cele cislo
>Ucast: boolean
>tedy
>
>Druh Ucast
>1 Ano
>1 Ne
>1 Ano
>1 Ano
>2 Ano
>2 Ne
>2 Ne
>2 Ne
>
>potrebuji vysledek:
>
>Druh Pocet S ucasti
>1 4 3
>2 4 1
>
>Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale
lze to
>ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
>
>Je to paradox, ale zajima me to i obecne.
>
>Diky
>
>Josef Slany
>mail: slany(zv)fpozn(tec)cz
>
>

navrh tabulky

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.7.1999 01:29:01

Bingo
Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc dlouhe.
Jestli se nekdy potkame, mas u me panaka.

S temi poplatky mas asi pravdu - ale to je zrejme zase z
uplne jineho romanu.
Odhadnul bych to na Temno
Jaro

> [Martin Fronek] Je to tim, ze placeni poplatku za telefon se
>nelze vyhnout, ale placeni software ano. S vedenim kazdeho podniku je
to
>jako boj s vetrnymy mlyny (nic proti Sinea SW :-)

Objkety do StringListu nebo TStrings

[*] Martin Fiala <oldjojos(zv)excite(tec)com> - 01.7.1999 02:28:15 pdt

Diky panove, za radu, ale ma to jeste jeden problem a to pri kompilaci hlasi
chybu na tomhle radku a to jo to co mne drti nejvice.

MO := List.Objects[B]; - jak vlastne priradit ten objekt ?

Text (opraveny) posilam jeste jednou aby jste jej nemuseli psat:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
btnUdelej: TButton;
btnView: TButton;
ListBox1: TListBox;
procedure btnUdelejClick(Sender: TObject);
procedure btnViewClick(Sender: TObject);
private
{ Private declarations }
public
procedure UdelaniKolekce;
procedure KolekcieDoViewu;
end;

type
TMujObjekt = class
Velikost : Integer;
Jmeno : String;
Atribut : Integer;
end;

var
Form1: TForm1;
List : TStringList;
MO : TMujObjekt;

implementation

{$R *.DFM}

procedure TForm1.UdelaniKolekce;
var
B : Integer;
begin
List := TStringList.Create;
for B := 1 to 50 do
begin
MO := TMujObjekt.Create;
MO.Velikost := 100 * B;
MO.Jmeno := 'Jmeno' + IntToStr(B);
List.AddObject('NAZEV' + IntToStr(B+900), MO);

end;
end;

procedure TForm1.KolekcieDoViewu;
var
B: Integer;
begin
for B := 0 to List.Count-1 do
begin
MO := List.Objects[B];
ListBox1.Items.Add(MO.Jmeno);
ListBox1.Items.Add(IntToSTr(MO.Velikost));
List.Free;
end;
end;

{--------------------------------------------}
procedure TForm1.btnUdelejClick(Sender: TObject);
begin
UdelaniKolekce;
end;

procedure TForm1.btnViewClick(Sender: TObject);
begin
KolekcieDoViewu
end;

end.

_______________________________________________________
Get your free, private email at http://mail.excite.com/

SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 1.7.1999 06:05:09

Toto samozrejme funguje, ale neni to reseni meho problemu.
Potrebuju v podstate spojit dva selecty do jednoho:

Select Druh, Count( * )
>From Tabulka
Group By Druh

a

Select Druh, Count( Druh )
>From Tabulka
Where Ucast="Ano"
Group By Druh

Slany
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Jaro
> Odesl�no: 1. �ervence 1999 1:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: SQL - dvojity Count
>
>
> SELECT Druh, Count(Ucast)
> FROM Tabulka
> WHERE Ucast = "Ano"
> GROUP BY Druh
> ORDER BY Druh
>
> Jaro
> -----------------------------------
>
>
> >Ahoj,
> >
> >je mozno napsat jeden SQL dotaz pro nasledujici problem?
> >
> >Tabulka ma sloupce
> >Druh: cele cislo
> >Ucast: boolean
> >tedy
> >
> >Druh Ucast
> >1 Ano
> >1 Ne
> >1 Ano
> >1 Ano
> >2 Ano
> >2 Ne
> >2 Ne
> >2 Ne
> >
> >potrebuji vysledek:
> >
> >Druh Pocet S ucasti
> >1 4 3
> >2 4 1
> >
> >Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale
> lze to
> >ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
> >
> >Je to paradox, ale zajima me to i obecne.
> >
> >Diky
> >
> >Josef Slany
> >mail: slany(zv)fpozn(tec)cz
> >
> >
>
>

Konference.

[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 1.7.1999 06:33:15

Dobry den.
Snazim se uz asi treti den dostat do konference a nejak mi to nejde. Nevite nedeje se neco.
(Ostatni spojeni jdou rychle a bez problemu).
Diky.
Nosek


QReport a tisk obrazku

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 1.7.1999 06:37:59

> Mam podobny problem.
> Zistil som ze BMP obrazky tlaci ale ICO nie.
> Je to tak aj u teba ?

Ne, vsechny moje obrazky jsou JPG
(jo pouzivam D 3.01 s original QReportem + BDE 5.01)

===========mozno pouzit PGP==============
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
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela


QReport - TQRExpr

[*] Jan Fiala <fiala(zv)infos(tec)cz> - 1.7.1999 07:02:45


----- P�vodn� zpr�va -----
Od: Bob <delphi(zv)alf.dingo(tec)cz>

> delal jste nekdo s touto komonentou?
> Zkousel jsem to, ale jaksi me to nende.
> Mam v reportu polozku, ktera ma kladne i zaporne hodnoty.
> Potreboval bych, aby se me udelala na konci suma kladnych a suma zapornych
> cisel zvlast.
>

Pro kladne castky nasledujici priklad, pro zaporne si to jiz urcite upravis.
Obsah TQRExpr.Expression :

Sum(If(qrySestava.Castka > 0, qrySestava.Castka, 000000000.00))

===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================

Tlacitko TBitBtn

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

Kouni na
http://www.kopr(tec)cz/delphi/k-delphi.htm
upravil jsem od Zbyska Hlinky (TColotButton) komponentu TKColBtn a si by ti mela vyhovovat

Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

----------
Odes�latel: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Tlacitko TBitBtn
Datum: 29. �ervna 1999 12:22

Dobry den.
Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn zadanim treba TBitBtn.color tak
aby kdyz si na toto tlacitko dojedu tabulatorem se zmenila barva pozadi tohoto tlacitka na nekterou mnou
zadanou?
Diky za odpovedi.
Nosek Libor

QueryPerformanceCounter

[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 1.7.1999 08:22:03

Ahoj (Petre),

vypada to zajimave, srovnaval jsem to s GetTickCount na tomto prikladu:

var
Form1: TForm1;
TotalTime: Extended;
ST, ET, Freq: Int64;
GT1,GT2: DWord;


procedure TForm1.Button3Click(Sender: TObject);
begin
Win32Check(QueryPerformanceFrequency(Freq));
QueryPerformanceCounter(ST);
Sleep(2000);
QueryPerformanceCounter(ET);
GT1:=GetTickCount;
Sleep(2000);
GT2 := GetTickCount;
TotalTime := (ET - ST) / Freq;
ShowMessageFmt('%5.3f sec.QPC, %d msec GTC (FREQ: %d)', [TotalTime,
GT2-GT1, FREQ]);
end;

Nicmene rozdil spocitany pomoci GetTickCount je 2000 a pomoci QPC 1997
ms

Stejne 3 ms rozdilu obdrzis i pri hodnote Sleep(200)

Jak je mozne, ze po Sleep(2000) je rozdil ziskany QPC nizssi - je
rychlejsi nez svetlo nebo je to tim, ze Pentium vysledky nepocita, ale
odhaduje (je to blbe, ale rychle)

Co je tedy spravne ?
Proc radis pouzivat QPC ? V cem je to lepsi ?

Mira


----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 28. �ervna 1999 22:32
P�edm�t: Re: QueryPerformanceCounter (was: beginupdate,endupdate)> A ted priklad. Pouziva se v nem typ Int64, takze je to jen pro D4 a
> vyssi:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> TotalTime: Extended;
> ST, ET, Freq: Int64;
> begin
> Win32Check(QueryPerformanceFrequency(Freq));
> QueryPerformanceCounter(ST);
> Sleep(200);
> QueryPerformanceCounter(ET);
> TotalTime := (ET - ST) / Freq;
> ShowMessageFmt('%5.3f sec.', [TotalTime]);
> end;
>
> --

PARADOX problem

[*] Ale� Kle�ka - 1.7.1999 08:49:16

Ahoj, ahoj,
muj kamarad ma mensi problem, netusi, kde dela chybu, a potreboval by
poradit ( natuknout, nakopnout ).

Ma PARADOXovskou databazi, k tomu aplikaci v D4. Pokud udela SELECT (bez
podminky ) nad tabulkou a neda ORDER BY, tak se mu vyberou VSECHNY zaznamy
tak by to melo byt... ), ale pokud tam vhodi ORDER BY libovolny sloupec,
tak mu chybi posledni zaznam.

Pokud se s timhle problemem nekdo setkal, tak bych prosil o radu.

Diky predem ( kamos taky dekuje ... )

Ale� Kle�ka
{ a.klecka(zv)email(tec)cz }

PARADOX problem

[*] Jan Fiala <fiala(zv)infos(tec)cz> - 1.7.1999 09:25:33


----- P�vodn� zpr�va -----
Od: Ale� Kle�ka <aklecka(zv)merlin(tec)cz>> Ahoj, ahoj,
> muj kamarad ma mensi problem, netusi, kde dela chybu, a potreboval by
> poradit ( natuknout, nakopnout ).
>
> Ma PARADOXovskou databazi, k tomu aplikaci v D4. Pokud udela SELECT
(bez
> podminky ) nad tabulkou a neda ORDER BY, tak se mu vyberou VSECHNY zaznamy
> tak by to melo byt... ), ale pokud tam vhodi ORDER BY libovolny sloupec,
> tak mu chybi posledni zaznam.

Zkusil bych preindexovat tabulku. Vypada to na naruseny indexovy soubor. Lze
to udelat i v Databaze Desktopu pres Restrukture tabulky. Pokud vytvari
nejakou aplikaci, mela by tam byt moznost preindexovat primo z aplikace.
Jsou na to funkce BDE napr. DBIDoRestructure apod. V archivu konference je
spousta prikladu.

===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================

SQL - dvojity Count

[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 1.7.1999 09:28:39

Ahoj

na Sybase bych udelal pro spojeni dvou selectu toto:

Select Druh, Count( * ) From Tabulka Group By Druh
union
Select Druh, Count( Druh ) From Tabulka Where Ucast="Ano" Group By Druh

Zdenek Fryz

> -----P�vodn� zpr�va-----
> Od: Josef Slan� [SMTP:slany(zv)fpozn(tec)cz]
> Odesl�no: 01.07.1999 06:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL - dvojity Count
>
> Toto samozrejme funguje, ale neni to reseni meho problemu.
> Potrebuju v podstate spojit dva selecty do jednoho:
>
> Select Druh, Count( * )
> From Tabulka
> Group By Druh
>
> a
>
> Select Druh, Count( Druh )
> From Tabulka
> Where Ucast="Ano"
> Group By Druh
>
> Slany
> > -----P�vodn� zpr�va-----
> > Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> > Jaro
> > Odesl�no: 1. �ervence 1999 1:14
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: SQL - dvojity Count
> >
> >
> > SELECT Druh, Count(Ucast)
> > FROM Tabulka
> > WHERE Ucast = "Ano"
> > GROUP BY Druh
> > ORDER BY Druh
> >
> > Jaro
> > -----------------------------------
> >
> >
> > >Ahoj,
> > >
> > >je mozno napsat jeden SQL dotaz pro nasledujici problem?
> > >
> > >Tabulka ma sloupce
> > >Druh: cele cislo
> > >Ucast: boolean
> > >tedy
> > >
> > >Druh Ucast
> > >1 Ano
> > >1 Ne
> > >1 Ano
> > >1 Ano
> > >2 Ano
> > >2 Ne
> > >2 Ne
> > >2 Ne
> > >
> > >potrebuji vysledek:
> > >
> > >Druh Pocet S ucasti
> > >1 4 3
> > >2 4 1
> > >
> > >Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale
> > lze to
> > >ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
> > >
> > >Je to paradox, ale zajima me to i obecne.
> > >
> > >Diky
> > >
> > >Josef Slany
> > >mail: slany(zv)fpozn(tec)cz
> > >
> > >
> >
> >
>

SQL - dvojity Count

[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 1.7.1999 09:35:35

Problem bych videl v tom ... AND ucast = 1 pokud tam mate typ boolean, tak
tam dejte
neco jako ... AND ucast = TRUE, ja jsem to zkousel na SQL 7.0 a mel jsem tam
typ int.

R.Pospisil


-----Original Message-----
From: Josef Slan� [mailto:slany(zv)fpozn(tec)cz]
Sent: Wednesday, June 30, 1999 1:31 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: SQL - dvojity Count


Nize uvedene skutecne lze spustit, ale ve vysledku jsou ve tretim sloupci
(ucast) jen same nuly.
Delam nekde chybu, nebo to chce jeste nejakou upravu?

Slany

> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Radek Pospisil
> Odesl�no: 30. �ervna 1999 10:36
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL - dvojity Count
>
>
> Preji hezky den,
>
> Norma SQL92 umozuje tento zapis:
>
> SELECT druh, COUNT(druh) AS pocet,
> (SELECT COUNT(*) FROM test T2 WHERE T1.druh = T2.druh AND ucast = 1) AS
> ucast
> FROM test T1 GROUP BY druh
>
> Nevim presne jestli je to uz v entry levelu te normy, takze zalezi na DB
> stroji. Napr. MS SQL resp. Oracle to umi, ale az od verze 7.0 resp. 8. Jak
> je to s Paradoxem nevim.
>
> bye
>
> R.Pospisil
>

MSSQL

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.7.1999 09:46:00

>
>
>> M�m takov� probl�m co potrebuji k pripojeni na MSSQL pres internet ??
>> jde to pres odbc??
>
>
>jde na www.tcx.se si muzes stahnout ODBC drivery
>
>Ja ale pouzivam komponentu pro Delphi viz:
> http://www.productivity.org/projects/mysql
>


auu auu - omlouvam se prehledl jsem jsem s. Ja pouzivam MYSQL server nikoliv MSSQL. Samozrejme komponenta k mysql bude chodit jen s MYSQL serverem......

D. Toman

navrh tabulky

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 1.7.1999 10:45:43

> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Thursday, July 01, 1999 1:29 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: navrh tabulky
>
>
> Bingo
> Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
> Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc dlouhe.
> Jestli se nekdy potkame, mas u me panaka.
>

Me to sinea pripominalo sinema, myslel jsem, ze mate neco spolecneho s
kinem.

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

Mistrovstvi v Delphi 3

[*] Martin Konarik <iss-tr(zv)clnet(tec)cz> - 1.7.1999 10:46:43

Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite M. v D3? Je to dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz me nebavi vsechno louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal automaticky. Ac je to krasne napsane, nejde to prilis do hloubky a navic je to anglicky ....

Tower.

DCOM

[*] Petr Mys <Mys(zv)post(tec)cz> - 1.7.1999 11:05:18

Potreboval bych poradit.
V Delphi4\demos\Midas jsou priklady na triurovnovou komunikaci pres DCOM.
Kdyz spustim klienta na stejnem PC jako je server (computerName je nastaven)
vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes?

Format ICL

[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 1.7.1999 11:10:19

Ahoj

hledam popis formatu ICL - icon library

vi nekdo kde bych ho nasel ?

diky

Zdenek Fryz


Vyjizdejici panel

[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 1.7.1999 10:17:00

jeho Width v cyklu a pokud zprava menim jeho Left. Vyjizdet sice vyjizdi, ale je videt jak se vykresluje (na PII !) . Neznate nekdo lepsi zpusob ? Doufam ze jsem se vymackl jasne ...
Zmena width zmeni jeho strukturu, tak se musi prekreslovat. No, lepsi zpusob znam, ale mohl by byt jeste nejakej lepsi. Ale jako nakopnuti (btw, kdo s timhle vyrazem kdy prisel? :-) by to mohlo byt uzitecny.
Podivej se na metodu ScrollBy(DeltaX, DeltaY). To posunuje formular po plose (nemam cas to ted zkouset, ale rozhodne se mi ta funkce zalibila uz na prvni pohled a mel jsem s ni dalekosahle plany :-).
Doufam, ze jsi pochopil, ze ty delty urcuji, o kolik se ma ten form posunout v ramci os X a Y...

SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 1.7.1999 11:22:30

V tom problem neni, vraci to nuly i kdyz tam tu podminku vubec nedam,
problem bude v tom T1.druh = T2.druh.
Zrejme to nepujde vubec. Budu muset stvorit docasnou tabulku.
Dik za ochotu.
Slany


> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Radek Pospisil
> Odesl�no: 1. �ervence 1999 9:36
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL - dvojity Count
>
>
> Problem bych videl v tom ... AND ucast = 1 pokud tam mate typ
> boolean, tak
> tam dejte
> neco jako ... AND ucast = TRUE, ja jsem to zkousel na SQL 7.0 a
> mel jsem tam
> typ int.
>
> R.Pospisil
>
>
> -----Original Message-----
> From: Josef Slan� [mailto:slany(zv)fpozn(tec)cz]
> Sent: Wednesday, June 30, 1999 1:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: SQL - dvojity Count
>
>
> Nize uvedene skutecne lze spustit, ale ve vysledku jsou ve tretim sloupci
> (ucast) jen same nuly.
> Delam nekde chybu, nebo to chce jeste nejakou upravu?
>
> Slany
>
> > -----P�vodn� zpr�va-----
> > Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> > Radek Pospisil
> > Odesl�no: 30. �ervna 1999 10:36
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: SQL - dvojity Count
> >
> >
> > Preji hezky den,
> >
> > Norma SQL92 umozuje tento zapis:
> >
> > SELECT druh, COUNT(druh) AS pocet,
> > (SELECT COUNT(*) FROM test T2 WHERE T1.druh = T2.druh AND ucast = 1) AS
> > ucast
> > FROM test T1 GROUP BY druh
> >
> > Nevim presne jestli je to uz v entry levelu te normy, takze zalezi na DB
> > stroji. Napr. MS SQL resp. Oracle to umi, ale az od verze 7.0
> resp. 8. Jak
> > je to s Paradoxem nevim.
> >
> > bye
> >
> > R.Pospisil
> >
>
>

QReport a tisk obrazku

[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 1.7.1999 11:24:53

Taky jsem asi pred rokem mel problemy s tiskem obrazku pomoci QRImage pomoci
originalniho Quick reportu z Delphi 3. QuSoft tam mel nejakou chybu a tak
jsem si stahnul z jejich stranek nejaky upgrade verze a pak to chodilo. Zkus
se podivat na jejich stranky.

> -----P�vodn� zpr�va-----
> Od: Richard Valny [mailto:richard.valny(zv)oku-st(tec)cz]
> Odesl�no: 30. �ervna 1999 13:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: QReport a tisk obrazku
>
>
> Ahojky
> potrebuji tisknout databazi s obrazky ulozenymi v souborech
> Zkusil jsem to tedy tak:
> V QReport do DetailBand jsem umistil jednak QRDBtext -
> tisknou se popisy a
> dale jsem sem placnul QRImage.

SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 1.7.1999 11:24:39

To funguje vsude, ale nespoji to sloupce z druheho selectu, ale
prida radky. Potrebuji ve vysledku tri sloupce:
Druh Pocet Pocet s ucasti.
Dik za ochotu.
Slany


> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Fryz, Zdenek
> Odesl�no: 1. �ervence 1999 9:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL - dvojity Count
>
>
> Ahoj
>
> na Sybase bych udelal pro spojeni dvou selectu toto:
>
> Select Druh, Count( * ) From Tabulka Group By Druh
> union
> Select Druh, Count( Druh ) From Tabulka Where Ucast="Ano" Group By Druh
>
> Zdenek Fryz
>
> > -----P�vodn� zpr�va-----
> > Od: Josef Slan� [SMTP:slany(zv)fpozn(tec)cz]
> > Odesl�no: 01.07.1999 06:05
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: SQL - dvojity Count
> >
> > Toto samozrejme funguje, ale neni to reseni meho problemu.
> > Potrebuju v podstate spojit dva selecty do jednoho:
> >
> > Select Druh, Count( * )
> > From Tabulka
> > Group By Druh
> >
> > a
> >
> > Select Druh, Count( Druh )
> > From Tabulka
> > Where Ucast="Ano"
> > Group By Druh
> >
> > Slany
> > > -----P�vodn� zpr�va-----
> > > Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> > > Jaro
> > > Odesl�no: 1. �ervence 1999 1:14
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: Re: SQL - dvojity Count
> > >
> > >
> > > SELECT Druh, Count(Ucast)
> > > FROM Tabulka
> > > WHERE Ucast = "Ano"
> > > GROUP BY Druh
> > > ORDER BY Druh
> > >
> > > Jaro
> > > -----------------------------------
> > >
> > >
> > > >Ahoj,
> > > >
> > > >je mozno napsat jeden SQL dotaz pro nasledujici problem?
> > > >
> > > >Tabulka ma sloupce
> > > >Druh: cele cislo
> > > >Ucast: boolean
> > > >tedy
> > > >
> > > >Druh Ucast
> > > >1 Ano
> > > >1 Ne
> > > >1 Ano
> > > >1 Ano
> > > >2 Ano
> > > >2 Ne
> > > >2 Ne
> > > >2 Ne
> > > >
> > > >potrebuji vysledek:
> > > >
> > > >Druh Pocet S ucasti
> > > >1 4 3
> > > >2 4 1
> > > >
> > > >Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim, ale
> > > lze to
> > > >ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
> > > >
> > > >Je to paradox, ale zajima me to i obecne.
> > > >
> > > >Diky
> > > >
> > > >Josef Slany
> > > >mail: slany(zv)fpozn(tec)cz
> > > >
> > > >
> > >
> > >
> >
>
>

QReport a tisk obrazku

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 1.7.1999 12:31:30

> -----P�vodn� zpr�va-----
> Od: =?windows-1250?Q?Petr=F9j_Zden=ECk?= [SMTP:ZPetruj(zv)qgir(tec)cz]
> Odesl�no: 1. �ervence 1999 11:25
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: QReport a tisk obrazku
>
>Taky jsem asi pred rokem mel problemy s tiskem obrazku pomoci QRImage pomoci
>originalniho Quick reportu z Delphi 3. QuSoft tam mel nejakou chybu a tak
>jsem si stahnul z jejich stranek nejaky upgrade verze a pak to chodilo. Zkus
>se podivat na jejich stranky.


Ano, lezi tam novejsi. Ja mam 2.0 g a tam je2.0k.
Ovsem chci-li to stahnout z
http://www.qusoft.com/scripts/download.dll
tak to chce heslo, jako ze je to placene. Ale placena by mela byt verze 3, ne?===========mozno pouzit PGP==============
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
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela


Objkety do StringListu nebo TStrings

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 1.7.1999 12:40:19



>Diky panove, za radu, ale ma to jeste jeden problem a to pri kompilaci
hlasi
>chybu na tomhle radku a to jo to co mne drti nejvice.
>
> MO := List.Objects[B]; - jak vlastne priradit ten objekt ?


Musis to pretypovat, protoze MO je TMujObjekt, a v Listu je TObjekt.
Nemuzes priradit potomku predka.

Takhle:

MO := List.Objects[b] as TMujObjekt nebo

MO := TMujObjekt(List.Objects[b])
Radim

navrh tabulky

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.7.1999 12:41:02

Jaro wrote:

> Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
> Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc dlouhe.

Mno, mam takovy nejasny pocit, ze se to pise Dulcinea...


S pozdravem

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


D 3C/S + MS SQL 7 a varchar(8000)

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.7.1999 12:41:02

Erik Salaj wrote:

> > Takuto vyhodu resp. moznost povazujem za dost nepodstatnu.
>
> Ja nikoliv. Protoze v dusledku mi muze tohle usetrit dost prace s
> kontrolami spravnosti. Coz je v pripade variantu znacna slabina.
>
> Otazne je, ci je to dostatocny dovod pre vyber pouzitej technologie. Ci
> usetrenie urcitej prace v jednej oblasti nesposobi narast v inej.

Musim znovu zopakovat: pro prime pouziti je lepsi ADO, pro vyvoj
mnohonasobne pouzitelnych komponent se mi jevi lepsi OLE DB.

> :-) A tohle je hned prvni veta v dokumentaci:
> Microsoft� ActiveX� Data Objects (ADO) enable your client applications
> to access and manipulate data in a database server through any OLE DB
> provider.
>
> Neviem, co si tym chcel povedat.

Ze ADO je nadstavba nad OLE DB.

> ADO je navrhnute, aby se dalo pouzit zejmena ve Visual Basicu. Vsimni
> si, ze priklady na ADO jsou psane prave ve VB. Ne nahodou jsou v C++
> priklady predevsim v OLE DB. Object Pascal je temer stejne mocny jako
> C++, takze vzhledem k OLE DB ma vyrazne bliz k C nez k VB.
>
> Treba si uvedomit, ze priklady pre OLE DB vo Visual Basicu je zbytocne
> hladat ;-). A jednoduchsie sa pochopi kratka funkcia vo Visual Basicu aj
> pre C-ckara ako opacne. Takze je daleko rozumnejsie ADO priklady robit
> vo Visual Basicu.

On je problem jeste nekde jinde, jak to tu jiz probehlo. V C++ je
ponekud problematicke pracovat s typem variant - jde to, ale clovek
musi davat pozor na to, co dela. V podstate stejne, i kdyz trochu
jednodussi, je to i v Delphi. Naopak ve VB je problematicke delat s
nizkourovnovymi konstrukcemi, kde se musi vselijak alokovat
pamet a pracovat s pointry, a pozici na pointru. Proste je tu
jazykova bariera. :-)


S pozdravem

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


SQL - dvojity Count

[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 1.7.1999 12:50:12

Ted jsem to Vas zpusob zkusil na SQL serveru (WinBase602) a funguje.
Takze zapis je spravne, nespravne to funguje na tabulkach Paradoxu.
Diky
Slany

> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Radek Pospisil
> Odesl�no: 30. �ervna 1999 10:36
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL - dvojity Count
>
>
> Preji hezky den,
>
> Norma SQL92 umozuje tento zapis:
>
> SELECT druh, COUNT(druh) AS pocet,
> (SELECT COUNT(*) FROM test T2 WHERE T1.druh = T2.druh AND ucast = 1) AS
> ucast
> FROM test T1 GROUP BY druh
>
> Nevim presne jestli je to uz v entry levelu te normy, takze zalezi na DB
> stroji. Napr. MS SQL resp. Oracle to umi, ale az od verze 7.0 resp. 8. Jak
> je to s Paradoxem nevim.
>
> bye
>
> R.Pospisil
>
> -----Original Message-----
> From: Josef Slan� [mailto:slany(zv)fpozn(tec)cz]
> Sent: Wednesday, June 30, 1999 8:14 AM
> To: Skupina Delphi
> Subject: SQL - dvojity Count
>
>
> Ahoj,
>
> je mozno napsat jeden SQL dotaz pro nasledujici problem?
>
> Tabulka ma sloupce
> Druh: cele cislo
> Ucast: boolean
> tedy
>
> Druh Ucast
> 1 Ano
> 1 Ne
> 1 Ano
> 1 Ano
> 2 Ano
> 2 Ne
> 2 Ne
> 2 Ne
>
> potrebuji vysledek:
>
> Druh Pocet S ucasti
> 1 4 3
> 2 4 1
>
> Dva selecty pro sloupec Pocet a dalsi pro sloupec S ucasti umim,
> ale lze to
> ziskat v jednom selectu (abych to mohl zobrazit v DBGridu)?
>
> Je to paradox, ale zajima me to i obecne.
>
> Diky
>
> Josef Slany
> mail: slany(zv)fpozn(tec)cz
>
>

Mistrovstvi v Delphi 3

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.7.1999 12:58:23

Ahoj,

tu knihu jsem si koupil a moc radosti z toho nemam. Je to psane
vice teoreticky a mnohem mene prakticky. Par zajimavosti se tam
clovek sice dozvi, ale je to drahe.

Doposud jsem se setkal snad se vsemi cesky psanymi knihami o
Delphi a jako nejlepsi se mi jevila kniha Delphi - pruvodce vyvojare
od Pacheca a Teixeira (pro D1, a nyni pro D4, kniha 2 (blize viz
recenze v SW 8/99). Obsahuje sice chyby, ale jsou to prevazne
preklepy, na ktere hned prijdes.

Slavek


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


DCOM

[*] Ale� Da�a���jW��֧g��v��̿ - 1.7.1999 13:04:45

A server je NT nebo Win95?
Musis na clientu zaregistrovat pomoci Tregsvr dbClient.dll, stdvcl32.dll a
na serveru nastavit dcomcnfg.exe pristupy.

Ales Dana
e-mail:ales.dana(zv)seznam(tec)cz

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Mys
> Sent: Thursday, July 01, 1999 11:05 AM
> To: Delphi forum
> Subject: DCOM
>
>
> Potreboval bych poradit.
> V Delphi4\demos\Midas jsou priklady na triurovnovou komunikaci pres DCOM.
> Kdyz spustim klienta na stejnem PC jako je server (computerName
> je nastaven)
> vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
> odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes?
>
>

Objkety do StringListu nebo TStrings

[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 1.7.1999 13:12:47

zkus toto

MO := TMujObjekt(List.Objects[B]);


-----P�vodn� zpr�va-----
Od: Martin Fiala <oldjojos(zv)excite.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. �ervence 1999 12:59
P�edm�t: Re: Objkety do StringListu nebo TStrings


>Diky panove, za radu, ale ma to jeste jeden problem a to pri kompilaci
hlasi
>chybu na tomhle radku a to jo to co mne drti nejvice.
>
> MO := List.Objects[B]; - jak vlastne priradit ten objekt ?
>
>Text (opraveny) posilam jeste jednou aby jste jej nemuseli psat:
>
>unit Unit1;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
>type
> TForm1 = class(TForm)
> btnUdelej: TButton;
> btnView: TButton;
> ListBox1: TListBox;
> procedure btnUdelejClick(Sender: TObject);
> procedure btnViewClick(Sender: TObject);
> private
> { Private declarations }
> public
> procedure UdelaniKolekce;
> procedure KolekcieDoViewu;
> end;
>
>type
> TMujObjekt = class
> Velikost : Integer;
> Jmeno : String;
> Atribut : Integer;
> end;
>
>var
> Form1: TForm1;
> List : TStringList;
> MO : TMujObjekt;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.UdelaniKolekce;
>var
> B : Integer;
>begin
> List := TStringList.Create;
> for B := 1 to 50 do
> begin
> MO := TMujObjekt.Create;
> MO.Velikost := 100 * B;
> MO.Jmeno := 'Jmeno' + IntToStr(B);
> List.AddObject('NAZEV' + IntToStr(B+900), MO);
>
> end;
>end;
>
>procedure TForm1.KolekcieDoViewu;
>var
> B: Integer;
>begin
> for B := 0 to List.Count-1 do
> begin
> MO := List.Objects[B];
> ListBox1.Items.Add(MO.Jmeno);
> ListBox1.Items.Add(IntToSTr(MO.Velikost));
> List.Free;
> end;
>end;
>
>{--------------------------------------------}
>procedure TForm1.btnUdelejClick(Sender: TObject);
>begin
> UdelaniKolekce;
>end;
>
>procedure TForm1.btnViewClick(Sender: TObject);
>begin
> KolekcieDoViewu
>end;
>
>end.
>
>
>
>_______________________________________________________
>Get your free, private email at http://mail.excite.com/

Format ICL

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.7.1999 13:19:22

Zkus http://www.wotsit.org tam je popis spooousty ruznych formatu
mmj i ICL

ftp://www.wotsit.org/cgi-bin/download?icl
> ----------
> hledam popis formatu ICL - icon library
>
> vi nekdo kde bych ho nasel ?
>

ADO komponenty

[*] mbartone(zv)Synthesia(tec)cz - 1.7.1999 13:32:38



Ahoj

odkud by se daly stahnout komponenty ADO, abych si je vyzkousel s MS SQL ?

Dekuji Milan

navrh tabulky

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 1.7.1999 13:55:37

> -----Original Message-----
> From: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> Sent: Thursday, July 01, 1999 12:41 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: navrh tabulky
>
> Jaro wrote:
>
> > Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
> > Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc dlouhe.
>
> Mno, mam takovy nejasny pocit, ze se to pise Dulcinea...

Pise se Dulcinea, tady bych vsak rekl, ze to byla
slovni hricka a ze DulSinea byla myslena foneticky.
To by se dalo, jenomze nevim, jestli se Dulcinea
vyslovuje spravne 'dulsinea' anebo 'dul�inea'
(je tam c s hackem). Mam pocit, ze na gymplu jsme se ucili
'dul�inea'. A rekl bych, ze stejne se bude vyslovovat
italsky. Naopak spanelsky (a Cervantes byl Spanel jak Brno)
se to asi vyslovuje skutecne 'dulsinea'. Bohuzel nevim, jak se to
vyslovuje anglicky.

Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

navrh tabulky

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.7.1999 15:05:45

>> > Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
>> > Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc
dlouhe.
>>
>> Mno, mam takovy nejasny pocit, ze se to pise Dulcinea...
>
>Pise se Dulcinea, tady bych vsak rekl, ze to byla
>slovni hricka a ze DulSinea byla myslena foneticky.
>To by se dalo, jenomze nevim, jestli se Dulcinea
>vyslovuje spravne 'dulsinea' anebo 'dul�inea'
>(je tam c s hackem). Mam pocit, ze na gymplu jsme se ucili
>'dul�inea'. A rekl bych, ze stejne se bude vyslovovat
>italsky. Naopak spanelsky (a Cervantes byl Spanel jak Brno)
>se to asi vyslovuje skutecne 'dulsinea'. Bohuzel nevim, jak se to
>vyslovuje anglicky.


No, jaxe to vyslovuje, to opravdu nevim (typnul bych Dulsinea,
aby se tam misto "S" rikalo "C (s hackem)" psalo by se to
nejspis Dulchiena), ale vypadala snad nejak takhle :
http://home.concepts.nl/~phermans/quichot-dulcinea01.html
(povsimnete si prosim vetrnych mlynu na pozadi...)

BTW:
> > Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
Rekl bych, ze muselo byt jasne kazdemu, kdo nekdy navstivil
Vase stranky :-)

Dobra.

TCP/IP ve threadu

[*] muher(zv)csas(tec)cz - 1.7.1999 15:14:26

>>Kdyz umistim DefWndProc do Threadu tak to hazi access violation. Musi byt
>>tedy samostatne v unitu?

???? to jsem nejak nepochopil DefWindowProc() se snad vola z lpfnWndProc a
je jedno kde je procedura prirazena k lpfnWndProc definovana...

Ale, snazil jsem se udelat vlastni DefWindowProc tak, jak jsem to nasel v
dokumentaci M$ coz byla blbost. Ted uz mi to je jasne. Procedura funguje,
ale samozrejme kdyz je mimo thread a tam je mi k nicemu. Jak zpravy tak
eventy uz umim obsluhovat a reknu vam, to je tedy vec!

Diky vsem

Martin


DBAware komponenta s jpg

[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 01.7.1999 15:26:29

Nevie niekto, kde by som nasiel DataAware komponentu, ktora
vie zobrazovat JPG, pre D3.

D.
Martin


Tlacitko TBitBtn

[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 1.7.1999 15:37:25

Vrele diky.
Funguje uplne bezvadne.

Libor Nosek

----- Original Message -----
From: Pavel ZIDEK <kopr(zv)kopr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, July 01, 1999 8:16 AM
Subject: Re: Tlacitko TBitBtn


> Kouni na
> http://www.kopr(tec)cz/delphi/k-delphi.htm
> upravil jsem od Zbyska Hlinky (TColotButton) komponentu TKColBtn a si by
ti mela vyhovovat
>
> Pekny den (rano, vecer i noc) preje
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi.htm
http://www.kopr(tec)cz
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~
>
> ----------
> Odes�latel: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Tlacitko TBitBtn
> Datum: 29. �ervna 1999 12:22
>
> Dobry den.
> Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn
zadanim treba TBitBtn.color tak
> aby kdyz si na toto tlacitko dojedu tabulatorem se zmenila barva pozadi
tohoto tlacitka na nekterou mnou
> zadanou?
> Diky za odpovedi.
> Nosek Libor
>
>

Objkety do StringListu nebo TStrings

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 1.7.1999 16:23:19

Ahoj,

problem je v tom ze property Objects[] vraci TObject.
Je proto nutne to pretypovat :

MO := List.Objects[B] as TMujObjekt;

potom to bude chodit vsechno Ok.

Vrele doporucuji vyhnout se pouzivani globalnich
promennych pokud to jde. Usetris si tim hledani chyb
ve velkych projektech. List dat do toho Formu a MO
dovnitr metody na vytvareni kolekce.

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Martin Fiala <oldjojos(zv)excite.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. �ervence 1999 11:22
P�edm�t: Re: Objkety do StringListu nebo TStrings


>Diky panove, za radu, ale ma to jeste jeden problem a to pri kompilaci
hlasi
>chybu na tomhle radku a to jo to co mne drti nejvice.
>
> MO := List.Objects[B]; - jak vlastne priradit ten objekt ?
>
>Text (opraveny) posilam jeste jednou aby jste jej nemuseli psat:
>
>unit Unit1;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
>type
> TForm1 = class(TForm)
> btnUdelej: TButton;
> btnView: TButton;
> ListBox1: TListBox;
> procedure btnUdelejClick(Sender: TObject);
> procedure btnViewClick(Sender: TObject);
> private
> { Private declarations }
> public
> procedure UdelaniKolekce;
> procedure KolekcieDoViewu;
> end;
>
>type
> TMujObjekt = class
> Velikost : Integer;
> Jmeno : String;
> Atribut : Integer;
> end;
>
>var
> Form1: TForm1;
> List : TStringList;
> MO : TMujObjekt;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.UdelaniKolekce;
>var
> B : Integer;
>begin
> List := TStringList.Create;
> for B := 1 to 50 do
> begin
> MO := TMujObjekt.Create;
> MO.Velikost := 100 * B;
> MO.Jmeno := 'Jmeno' + IntToStr(B);
> List.AddObject('NAZEV' + IntToStr(B+900), MO);
>
> end;
>end;
>
>procedure TForm1.KolekcieDoViewu;
>var
> B: Integer;
>begin
> for B := 0 to List.Count-1 do
> begin
> MO := List.Objects[B];
> ListBox1.Items.Add(MO.Jmeno);
> ListBox1.Items.Add(IntToSTr(MO.Velikost));
> List.Free;
> end;
>end;
>
>{--------------------------------------------}
>procedure TForm1.btnUdelejClick(Sender: TObject);
>begin
> UdelaniKolekce;
>end;
>
>procedure TForm1.btnViewClick(Sender: TObject);
>begin
> KolekcieDoViewu
>end;
>
>end.
>
>
>
>_______________________________________________________
>Get your free, private email at http://mail.excite.com/
>

DCOM

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 1.7.1999 16:24:27

Ahoj,

problem bude asi nekde v nastavenych pristupovych pravech.
Jake pouzivas OS na serveru a klientovi ?

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Petr Mys <Mys(zv)post(tec)cz>
Komu: Delphi forum <delphi-l(zv)fwd(tec)cz>
Datum: 1. �ervence 1999 11:02
P�edm�t: DCOM


>Potreboval bych poradit.
>V Delphi4\demos\Midas jsou priklady na triurovnovou komunikaci pres DCOM.
>Kdyz spustim klienta na stejnem PC jako je server (computerName je
nastaven)
>vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
>odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes?
>
>

Kontrola systemu

[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 1.7.1999 16:50:10

Dobry den.
Mam za ukol kontrolovat spousteni aplikaci, hledal jsem to v konferenci a nezadarilo se.
Jde o to, jak zjistit ktera aplikace je spustena vcetne 16bit v systemu. Pokud to jde
prosim o kratke demo jak zjistit co bezi v systemu. WIN95 a D3.

Diky
Nosek Libor


Tlacitko TBitBtn

[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 1.7.1999 16:52:54

Jsem rad ze jsem zadani dobre pochopil.
Jestli muzes, napis pripominky.
Lze lehce dodelat i barvu stisknuteho tlacitka, ale nevim k cemu by to bylo. Dale chci dodelat moznost stisku klavesy Enter tak, aby se tlactiko zatlacilo jako po stisku mezerniku.

----------
> Odes�latel: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Tlacitko TBitBtn
> Datum: 1. �ervence 1999 15:37
>
> Vrele diky.
> Funguje uplne bezvadne.
>
> Libor Nosek
>
> ----- Original Message -----
> From: Pavel ZIDEK <kopr(zv)kopr(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, July 01, 1999 8:16 AM
> Subject: Re: Tlacitko TBitBtn
>
>
> > Kouni na
> > http://www.kopr(tec)cz/delphi/k-delphi.htm
> > upravil jsem od Zbyska Hlinky (TColotButton) komponentu TKColBtn a si by
> ti mela vyhovovat
> >
> > Pekny den (rano, vecer i noc) preje
> > ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~
> > KOPR software Pavel ZIDEK voice 069 / 66 02 156
> > mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi.htm
> http://www.kopr(tec)cz
> > ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~
> >
> > ----------
> > Odes�latel: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Tlacitko TBitBtn
> > Datum: 29. �ervna 1999 12:22
> >
> > Dobry den.
> > Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn
> zadanim treba TBitBtn.color tak
> > aby kdyz si na toto tlacitko dojedu tabulatorem se zmenila barva pozadi
> tohoto tlacitka na nekterou mnou
> > zadanou?
> > Diky za odpovedi.
> > Nosek Libor
> >
> >

BDE Chyba

[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 1.7.1999 16:57:46

Zdravim,

tahle chyba se mi objevila take, ale s MSSQL 7.0 a pri metode TTable.Last.
(MS SQL Link)

V Delphi 3 s Px tabulkama to bylo OK, ale predelal jsem aplikaci do D 4
a s SQL 7.0, a pri Last mi to vyhodi tuhle hlasku:

Non-blob column in table required to perform operation.

Chci se zeptat jestli, jsi to nejak vyresil, nebo jestli nekdo jiny nevi co
s tim.
Vypada to totiz jako problem Delphi 4, protoze mi to D 3 nedelalo.

predem diky
Tomas

tbradle(zv)pvtnet(tec)cz

-----P�vodn� zpr�va-----
Od: Petr Vale� <pvales(zv)post(tec)cz>
Komu: DELPHI Konference <delphi-l(zv)fwd(tec)cz>
Datum: 15. �ervna 1999 13:42
P�edm�t: BDE Chyba


>Ahoj,
>
>pouzivam D4 a v nem vytvorenou aplikaci pro editaci Acc. tabulky ve ktere
je
>mimo jine i jedna MEMO polozka. Ovsem kdyz pridam zaznam a vyplnim TDBMemo,
>ktere je spojeno s timto Memo polem a pote to chci vsechno ulozit metodou
>Post; vse se ulozi, ale hodi mi to chybu
>"Non-blob column in table required to perform operation"
>
>Zkousel jsem to uz ruzne objeit, ale nejak se mi to nedari.
>Nemate nahodou nekdo podobnou zkusenost.
>
>Dekuji
>
>Petr
>
>
>

QReport a tisk obrazku

[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 1.7.1999 18:16:05

Cau

tak toto byl jeden z duvodu proc uz nepracuji s QR.
Je to pry ale zalezitost Windows.

Jindra



----- P�vodn� zpr�va -----
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 30.�ervna.1999 13:52
P�edm�t: QReport a tisk obrazku


> Ahojky
> potrebuji tisknout databazi s obrazky ulozenymi v souborech
> Zkusil jsem to tedy tak:
> V QReport do DetailBand jsem umistil jednak QRDBtext - tisknou se popisy a
> dale jsem sem placnul QRImage.
> Abych to krmil obrazky povesil jsem event DetailBandBeforePrint
nasledujici
> kus kodu:
> --------------------------------------
> Procedure TQR_foto_seznam.DetailBand1BeforePrint(Sender: TQRCustomBand;
> var PrintBand: Boolean);
> var soubor: STring;
> begin
> if DMF.TFotky.fieldValues['signatura']>'' then
> begin
> soubor :=
> NastaveniPrgF.CestaFoto.Text+'\'+DMF.TFotky.fieldValues['signatura']+'.j
> pg';
> try
> QRImage1.Picture.LoadFromFile(soubor)
> except
> QRImage1.Picture.Graphic := nil;
> end;
> end;
> end;
> ---------------------------------------------------------
> Ve programu provedu Prepare a Preview.
> Na preview to je vse v poradku. V okamziku, kdy to ale poslu na tiskarnu
> (tlacitkem Print na preview), na tiskarne nevylezou vsechny obrazky.
> Namisto nekterych tam jsou pouze prazdna mista. Vytvorim-li sestavu
> nekolikrat po sobe, jsou tak se vzdy vytisknou nejake jine.
>
> Dik
>
> ===========mozno pouzit PGP==============
> 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
> ===========mozno pouzit PGP==============
>
> ... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
> dela

Flat ToolBar a SpeedButton uplne v pravo

[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 1.7.1999 19:51:46

Ahoj

Mam TToolBar (vse v Delphi 4), je nastaveny na Flat a chtel bych, aby
jedno tlacitko (SpeedButton) byl uplne vpravo a navic aby se pri
zmene velikosti formulare (a tedy i toho TollBaru) soupal tak aby se
porad drzel toho praveho okraje.

Diky predem za rady

Petr


==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - -

ADO komponenty

[*] Erik Salaj <winsoft(zv)napri.sk> - 1.7.1999 19:57:23

Rozne ADO komponenty su na http://www.kylecordes.com

Erik Salaj

----- Original Message -----
From: <mbartone(zv)Synthesia(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, July 01, 1999 1:32 PM
Subject: ADO komponenty


>
> Ahoj
>
> odkud by se daly stahnout komponenty ADO, abych si je vyzkousel s MS SQL ?
>
> Dekuji Milan


D2, repoty a grafy

[*] Arnost Kobylka <AK(zv)atlas(tec)cz> - 1.7.1999 20:47:40

Ahoj.
Poradte prosim nekdo nejakou komponentu kterou by se v D2 dali tisknout grafy.
(Aspon kolacovy a sloupcovy.) Nemusi byt zrovna free.
Ing. Arno�t Kobylka
------------------------------
C3, s.r.o.
�rob�rova 32
Praha 10
71734608


D2, repoty a grafy

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 1.7.1999 21:14:56

Mozem ti poslat SQL Report Builder ver 1.3 450 kB aj s helpom.
Zial nie je to uplne zadarmo ale dokaze vela za malo penazi.
Alebo kukni na http://freeweb.coco(tec)cz/tungli

TUNGLI Jan
tungli(zv)pvt.sk

-----P�vodn� zpr�va-----
Od: Arnost Kobylka <AK(zv)atlas(tec)cz>
Komu: Delphi-l <delphi-l(zv)fwd(tec)cz>
Datum: 1. j�l 1999 21:07
P�edm�t: D2, repoty a grafy


>Ahoj.
>Poradte prosim nekdo nejakou komponentu kterou by se v D2 dali tisknout
grafy.
>(Aspon kolacovy a sloupcovy.) Nemusi byt zrovna free.
>
>
>Ing. Arno�t Kobylka
>------------------------------
>C3, s.r.o.
>�rob�rova 32
>Praha 10
>71734608
>
>
>
>

Flat ToolBar a SpeedButton uplne v pravo

[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 1.7.1999 22:12:28

On Thu, 1 Jul 1999, Petr Vaclavek wrote:

> Ahoj
>
> Mam TToolBar (vse v Delphi 4), je nastaveny na Flat a chtel bych, aby
> jedno tlacitko (SpeedButton) byl uplne vpravo a navic aby se pri
> zmene velikosti formulare (a tedy i toho TollBaru) soupal tak aby se
> porad drzel toho praveho okraje.

Ahoj, doporucuju prozkoumat property Anchors (nastav akRight na true).
bye
Lukas

-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-


Kontrola systemu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.7.1999 22:26:46

> Libor Nosek wrote:
>
> Dobry den.
> Mam za ukol kontrolovat spousteni aplikaci, hledal jsem to v konferenci a nezadarilo se.
> Jde o to, jak zjistit ktera aplikace je spustena vcetne 16bit v systemu. Pokud to jde
> prosim o kratke demo jak zjistit co bezi v systemu. WIN95 a D3.

Ahoj

Ve Win9x a teoreticky i v NT5 (ne vsak v NT4) muzes vyuzit funkci toolhelp
knihovny, pomoci kterych muzes prochazet seznamem procesu a dale pak u
jednotlivych procesu zjistovat jake pouzivaji knihovny, kolik maji threadu
atd. Priklad na prochazeni seznamem procesu vypada treba takhle:

uses
TLHelp32;

procedure TForm1.Button2Click(Sender: TObject);
var
SnapProcHandle: THandle;
ProcEntry: TProcessEntry32;
NextProc: Boolean;
begin
with ListBox1 do
begin
Items.BeginUpdate;
Items.Clear;

SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapProcHandle <> THandle(-1) then
begin
ProcEntry.dwSize := Sizeof(ProcEntry);
NextProc := Process32First(SnapProcHandle, ProcEntry);
while NextProc do
begin
Items.Add(Format('%.8x %s', [ProcEntry.th32ProcessID, ProcEntry.szExeFile]));
NextProc := Process32Next(SnapProcHandle, ProcEntry);
end;
CloseHandle(SnapProcHandle);
end;

Items.EndUpdate;
end;
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Mistrovstvi v Delphi 3

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

> Martin Konarik wrote:
>
> Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite M. v D3? Je to
> dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz me nebavi vsechno
> louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal automaticky. Ac je
> to krasne napsane, nejde to prilis do hloubky a navic je to anglicky ....

Ahoj,

Pokud touzis po nejake knize kde jsou veci trochu vice do hloubky, tak muzu
doporucit treba "Delphi 4 Unleashed" od Charlieho Calverta (uz se pripravuje
dalsi i pro D5). Pokud vim, tak je dostupna jen v originale, coz se bohuzel
projevuje na cene. Je to vlastne docela legracni, kdyz prelozena kniha u nas
vyjde podstatne levneji nez original. Mozna by to slo pri trose skodolibosti
vysvetlit tim, ze diky nekterym prekladum se puvodni obsah vytraci :-)

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Sinea (Was: navrh tabulky)

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.7.1999 22:31:27

> > -----P�vodn� zpr�va-----
> > Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> > Odesl�no: 01. �ervence 1999 1:29
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: navrh tabulky
> >
> > Bingo
> > Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
> > Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc dlouhe.
> > Jestli se nekdy potkame, mas u me panaka.

Martin Fron�k wrote:
>
> :-))))))) Radsi panenku, alkohol nepiju :-))))))))))
^^^^^^^^^^^^^^

Chyba, nevis o co prichazis, panaka bych neodmital :-) Navic alkoholu
se vetsinou do druheho dne zbavis, kdezto s panenkou se ti to muze za
nepriznivych okolnosti i trochu protahnout :-)

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

D2, repoty a grafy

[*] Arnost Kobylka <AK(zv)atlas(tec)cz> - 1.7.1999 22:45:54

> >Ahoj.
> >Poradte prosim nekdo nejakou komponentu kterou by se v D2 dali tisknout
> grafy.
> >(Aspon kolacovy a sloupcovy.) Nemusi byt zrovna free.
> >
> >
> >
> >Ing. Arno�t Kobylka
> >------------------------------
> >C3, s.r.o.
> >�rob�rova 32
> >Praha 10
> >71734608

----- Original Message -----
From: TUNGLI Jan <tungli(zv)pvt.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, July 01, 1999 9:14 PM
Subject: Re: D2, repoty a grafy


> Mozem ti poslat SQL Report Builder ver 1.3 450 kB aj s helpom.
> Zial nie je to uplne zadarmo ale dokaze vela za malo penazi.
> Alebo kukni na http://freeweb.coco(tec)cz/tungli


Diky. Spis hledam zpusob jak pomoci STANDARDNIHO QR 1.x dodavaneho s D2 vytisknout nejaky
sloupcovy ci kolacovy graf. Tj. nejlepe nejakou drobnost, kterou doplnim k stavajici sade komponent.
Nebo navod jak neco takovyho udelat.

Ale i tak mne zajima - musim mit k tomu SQL Report Builder jeste QR2?

Arnost Kobylka


SQL - dvojity Count

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.7.1999 23:09:42

No jestli to delas na serveru, tak by ti to vyresil FOR SELECT
v ulozene procedure. Bylo by to podstatne rychlejsi nez docasna
tabulka
Jaro


>To funguje vsude, ale nespoji to sloupce z druheho selectu, ale
>prida radky. Potrebuji ve vysledku tri sloupce:
>Druh Pocet Pocet s ucasti.
>Dik za ochotu.
>Slany
>
>
>> -----Puvodni zprava-----
>> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za
uzivatele
>> Fryz, Zdenek
>> Odeslano: 1. cervence 1999 9:29
>> Komu: delphi-l(zv)fwd(tec)cz
>> Predmet: RE: SQL - dvojity Count
>>
>>
>> Ahoj
>>
>> na Sybase bych udelal pro spojeni dvou selectu toto:
>>
>> Select Druh, Count( * ) From Tabulka Group By Druh
>> union
>> Select Druh, Count( Druh ) From Tabulka Where Ucast="Ano" Group By
Druh
>>
>> Zdenek Fryz
>>
>> > -----Puvodni zprava-----
>> > Od: Josef Slany [SMTP:slany(zv)fpozn(tec)cz]
>> > Odeslano: 01.07.1999 06:05
>> > Komu: delphi-l(zv)fwd(tec)cz
>> > Predmet: RE: SQL - dvojity Count
>> >
>> > Toto samozrejme funguje, ale neni to reseni meho problemu.
>> > Potrebuju v podstate spojit dva selecty do jednoho:
>> >
>> > Select Druh, Count( * )
>> > From Tabulka
>> > Group By Druh
>> >
>> > a
>> >
>> > Select Druh, Count( Druh )
>> > From Tabulka
>> > Where Ucast="Ano"
>> > Group By Druh
>> >
>> > Slany
>> > > -----Puvodni zprava-----
>> > > Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za
uzivatele
>> > > Jaro
>> > > Odeslano: 1. cervence 1999 1:14
>> > > Komu: delphi-l(zv)fwd(tec)cz
>> > > Predmet: Re: SQL - dvojity Count
>> > >
>> > >
>> > > SELECT Druh, Count(Ucast)
>> > > FROM Tabulka
>> > > WHERE Ucast = "Ano"
>> > > GROUP BY Druh
>> > > ORDER BY Druh
>> > >
>> > > Jaro
>> > > -----------------------------------

navrh tabulky

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.7.1999 23:17:06

Zbysek Hlinka napsal:
Mno, mam takovy nejasny pocit, ze se to pise Dulcinea...
------
To mas spravnej pocit. Jenze Cinea by nikdo nevyslovoval Sinea
a znelo by to blbe.
-------
Jiri Polak napsal:
Pise se Dulcinea, tady bych vsak rekl, ze to byla
slovni hricka a ze DulSinea byla myslena foneticky.
To by se dalo, jenomze nevim, jestli se Dulcinea
vyslovuje spravne 'dulsinea' anebo 'dulcinea'
(je tam c s hackem). Mam pocit, ze na gymplu jsme se ucili
'dulcinea'. A rekl bych, ze stejne se bude vyslovovat
italsky. Naopak spanelsky (a Cervantes byl Spanel jak Brno)
se to asi vyslovuje skutecne 'dulsinea'. Bohuzel nevim, jak se to
vyslovuje anglicky.
-------
Vidim, ze mas perfektni prehled.
Na skole jsme take vyslovovali Dulcinea (c s hackem),
ale kdyz jsem jednou videl hru v divadle, tak tam to vyslovovali
Dulsinea, a to mi znelo mnohem lepe.
Na tom, jak je to spravne vlastne tolik nezalezi. Me se Sinea libi ...
a mlyn, ten je ovsem pravy. V urcite dobe mlyny predstavovaly pokrok a
boj proti nim byl marny (alespon podle romanu). Dnes ten pokrok
predstavuji pocitace a situace je trochu obdobna ... mnozi lide s nimi
rovnez svadeji marny boj, at uz je to mysleno jakkoliv.
-------
Dobromil napsal:
...... ale vypadala snad nejak takhle :
http://home.concepts.nl/~phermans/quichot-dulcinea01.html
(povsimnete si prosim vetrnych mlynu na pozadi...)
--------
Dekuji za odkaz ... neni k pomilovani? ... no asi teda ne.

Jaro

PS. Omlovam se za tema mimo predmet konference
Potesilo me, ze programatori znaji i jine veci nez
jenom IF ... ELSE ...
----------------------------------------------------------------------

Tvorba sestav

[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 1.7.1999 23:18:13

Ahoj,
budeme prepisovat nase stavajici znakove sestavy do graficke podoby a
stojime pred rozhodnutim vybrat vhodny nastroj. Uz tady toto tema slo
nekolikrat, ale mne by zajimala skutecnost v praxi. Pokud nekdo pouzivate
graficke reporty pro ucetni, vyrobni ci manazerske sestavy (>100 stran,
slozitejsi struktura, desitky sestav) podelte se prosim o zkusenosti.
Mel by to byt robustni, spolehlivy nastroj ktery umi zpracovat slozitejsi
sestavy, je rychly, ma k dispozici EndUser Designer. Moznost prevodu do TXT,
HTML a XLS by take nebyla k zahozeni.
Dekuji za kazdou konkretni informaci.
Leos


D2, repoty a grafy

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 2.7.1999 00:04:27

K SQL Report Builderu QR2 nemusis mat. Je to samostatna aplikacia ktoru je
mozes pouzit z lubovolneho programovacie jazyka pod Windows. To je umoznene
pomocou predavanie parametrov. Potom SQL Report Builder sa sprava akoby bol
sucast aplikacie.

TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Arnost Kobylka <AK(zv)atlas(tec)cz>
Komu: Delphi-l <delphi-l(zv)fwd(tec)cz>
Datum: 1. j�l 1999 23:12
P�edm�t: Re: D2, repoty a grafy


>> >Ahoj.
>> >Poradte prosim nekdo nejakou komponentu kterou by se v D2 dali tisknout
>> grafy.
>> >(Aspon kolacovy a sloupcovy.) Nemusi byt zrovna free.
>> >
>> >
>> >
>> >Ing. Arno�t Kobylka
>> >------------------------------
>> >C3, s.r.o.
>> >�rob�rova 32
>> >Praha 10
>> >71734608
>
>----- Original Message -----
>From: TUNGLI Jan <tungli(zv)pvt.sk>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Thursday, July 01, 1999 9:14 PM
>Subject: Re: D2, repoty a grafy
>
>
>> Mozem ti poslat SQL Report Builder ver 1.3 450 kB aj s helpom.
>> Zial nie je to uplne zadarmo ale dokaze vela za malo penazi.
>> Alebo kukni na http://freeweb.coco(tec)cz/tungli
>
>
>Diky. Spis hledam zpusob jak pomoci STANDARDNIHO QR 1.x dodavaneho s D2
vytisknout nejaky
>sloupcovy ci kolacovy graf. Tj. nejlepe nejakou drobnost, kterou doplnim k
stavajici sade komponent.
>Nebo navod jak neco takovyho udelat.
>
>Ale i tak mne zajima - musim mit k tomu SQL Report Builder jeste QR2?
>
>Arnost Kobylka
>
>

math.dcu - problemy

[*] Miro Mrazik <miro_mr(zv)hotmail(tec)com> - 02.7.1999 00:40:32 pdt

Ahojte,

Ked v niektorom unite v Uses uvediem unit Math a nemam zapnutu volbu "Build
with runtime packages" na karte packages vo formulari Projekt/Options
hlasi mi pri preklade ze math.dcu neexistuje (skutocne ho na disku ani na
instalacnom mediu nemam).
Zaujimave je ze ak zapnem volbu "Build with runtime packages" tak sa program
zkompiluje bez problemov a bez problemov aj bezi, len by som musel s nim
sirit aj RTL kniznice Delphi a to mi nevyhovuje.
Neviete mi niekto poradit co s tym, mam Delphi 3 Standard. Ma kniznica Math
nejake ine postavenie v ramci Delphi ako ine RTL kniznice napr. System ???
Vdaka


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


Mistrovstvi v Delphi 3

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 2.7.1999 06:08:00

Ahoj,

jeste neco co se jde trochu vic do hloubky. Delphi Developer's Handbook.
Je taky od Marca Cantu a je fakt dost dobra. Ovsem je take pouze
v anglictine. Tyto knihy ale nikdy nebudou vychazet v cestine, protoze
se to proste nevyplati.

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. �ervence 1999 22:27
P�edm�t: Re: Mistrovstvi v Delphi 3


>> Martin Konarik wrote:
>>
>> Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite M.
v D3? Je to
>> dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz me
nebavi vsechno
>> louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal
automaticky. Ac je
>> to krasne napsane, nejde to prilis do hloubky a navic je to anglicky ....
>

DCOM

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.7.1999 07:45:25

> -----Original Message-----
> From: Martin VLK [mailto:mavlk(zv)helpforest(tec)cz]
> Sent: Thursday, July 01, 1999 4:24 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: DCOM
>
>
> Ahoj,
>
> problem bude asi nekde v nastavenych pristupovych pravech.
> Jake pouzivas OS na serveru a klientovi ?
>
> S pozdravem
>
> Martin VLK
>
> ***************************************
> * Help forest s.r.o.
> * Dr.E.Benese 14, Sumperk, 78701
> *
> * tel : 0649/217149
> * fax : 0649/226930
> * e-mail : mavlk(zv)helpforest(tec)cz
> *
> ***************************************
> -----P�vodn� zpr�va-----
> Od: Petr Mys <Mys(zv)post(tec)cz>
> Komu: Delphi forum <delphi-l(zv)fwd(tec)cz>
> Datum: 1. �ervence 1999 11:02
> P�edm�t: DCOM
>
>
> >Potreboval bych poradit.
> >V Delphi4\demos\Midas jsou priklady na triurovnovou
> komunikaci pres DCOM.
> >Kdyz spustim klienta na stejnem PC jako je server (computerName je
> nastaven)
> >vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
> >odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes?
> >
> >

Nechci pusobit jako rozkladny zivel, ale zvazil bych nutnost
pouzit DCOM z hlediska perspektivy tohoto standardu. Situace na me
pusobi tak, ze Microsoft od DCOMu ustupuje a ze perspektivu
ma pouze COM. Svedci o tom samotne Microsofti produkty, ktere
DCOM nepouzivaji a uz se o nem ani moc nemluvi, naopak
i takovy MTS (Microsoft Transaction Server) pouziva pouze COM
a sitovani resi sam MTS.


Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

dotaz na TColorMemo

[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 2.7.1999 08:03:50

Zdravim !

Potreboval bych nejakou freeware komponentu co umi barvit text podle zadanych kriterii podobne jako TColorMemo ale aby nebylo omezene celikosti textu. Zkousel sem hledat na vsemoznejch serverech torry superpage apod. ale vsecko co sem nasel je shareware a pekne drahej . Nevite nekdo o necem podobnem?

Dik Pavel Polak

DCOM

[*] Petr Mys <Mys(zv)post(tec)cz> - 2.7.1999 08:04:30

Na clientu i serveru je OS NT4. Na clientu jsem zaregistroval nize uvedene
dll. Na serveru jsem se znazil nastavit dle dcomcnfg.exe (ale nevim co
vsechno a jak nastavit), ale kdyz spustim program na clientu tak program
hlasi chybu:
"Exception EOleSysError in module empedit.exe at 000677D1.
Pristup odmitnut."


---- Odpoved ----


A server je NT nebo Win95?
Musis na clientu zaregistrovat pomoci Tregsvr dbClient.dll, stdvcl32.dll a
na serveru nastavit dcomcnfg.exe pristupy.

----- P�vodn� zpr�va -----

Potreboval bych poradit.
V Delphi4\demos\Midas jsou priklady na triurovnovou komunikaci pres DCOM.
Kdyz spustim klienta na stejnem PC jako je server (computerName
je nastaven)
vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes


Sinea (Was: navrh tabulky)

[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 2.7.1999 08:12:18


> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> P�edm�t: Re: Sinea (Was: navrh tabulky)
>
> > > -----P�vodn� zpr�va-----
> > > Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> > >
> > > Bingo
> > > Mozna jsi prvni, kdo poznal odkud pochazi nase logo a jmeno.
> > > Pravda jmeno jsme trochu upravili. Dulsinea se nam zdalo moc
> dlouhe.
> > > Jestli se nekdy potkame, mas u me panaka.
>
> Martin Fron�k wrote:
> >
> > :-))))))) Radsi panenku, alkohol nepiju :-))))))))))
> ^^^^^^^^^^^^^^
>
> Chyba, nevis o co prichazis, panaka bych neodmital :-) Navic alkoholu
> se vetsinou do druheho dne zbavis, kdezto s panenkou se ti to muze za
> nepriznivych okolnosti i trochu protahnout :-)

:-)))))))))) S panenkou ne, pak uz neni panenka :-)))))))))

Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
>

CGI

[*] Ivan Turcan <iturcan(zv)gamo.sk> - 2.7.1999 08:28:09




Hi all

Vytvaral uz niekto v Delphi CGI aplikaciu ?
Nejakym nedopatrenim som sa k tomu dostal, zda sa mi to sikovne, avsak
zatial ma nenapadlo ako sa preberaju parametre.
Upresnujem, nechcem pouzit CGIExperta ani ine podobne komponenty,
potrebujem napisat len obyc. konzolovu CGI aplikaciu,
ktora vyhodnoti vstupne parametre a na ich zaklade vrati vysledok.

Najde sa niekto kto vie ako na to ?

i.t.


Ivan Turcan

Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase602)

WDE HomePage: www.software602(tec)cz/wde

Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
WWW Server: www.gamo.sk
GAMO a.s.
Slovakia

Mistrovstvi v Delphi 3

[*] Karel Kral <kral(zv)purus(tec)cz> - 02.7.1999 08:29:18

Mohl bys mi poradir, kde to kupujes? Ty mas zahranicni kreditku?

Petr Vones wrote:
>
> > Martin Konarik wrote:
> >
> > Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite M. v D3? Je to
> > dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz me nebavi vsechno
> > louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal automaticky. Ac je
> > to krasne napsane, nejde to prilis do hloubky a navic je to anglicky ....
>
> Ahoj,
>
> Pokud touzis po nejake knize kde jsou veci trochu vice do hloubky, tak muzu
> doporucit treba "Delphi 4 Unleashed" od Charlieho Calverta (uz se pripravuje
> dalsi i pro D5). Pokud vim, tak je dostupna jen v originale, coz se bohuzel
> projevuje na cene. Je to vlastne docela legracni, kdyz prelozena kniha u nas
> vyjde podstatne levneji nez original. Mozna by to slo pri trose skodolibosti
> vysvetlit tim, ze diky nekterym prekladum se puvodni obsah vytraci :-)
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> ************************

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


Off topic

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.7.1999 08:38:09

Zdravim,

je tu mezi Vami nejaky Turbopacsalista? Potreboval bych malou radu.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================

Sinea (Was: navrh tabulky)

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

>>
>> :-))))))) Radsi panenku, alkohol nepiju :-))))))))))
> ^^^^^^^^^^^^^^
>
>Chyba, nevis o co prichazis, panaka bych neodmital :-) Navic
alkoholu
>se vetsinou do druheho dne zbavis, kdezto s panenkou se ti to
muze za
>nepriznivych okolnosti i trochu protahnout :-)

No, ona neni panenka jako panenka. Napriklad takova veprova
panenka, pokud ji kuchar udela mizerne, tak se ji clovek
muze zbavit i drive, nez toho alkoholu :-)))
A protoze jsem zasadovy clovek, tak podle sve zasady (tuhle
mam nejradeji) take panaka nikdy neodmitam :-)

Dobra.

CGI

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.7.1999 08:55:35


> Vytvaral uz niekto v Delphi CGI aplikaciu ?
> Nejakym nedopatrenim som sa k tomu dostal, zda sa mi to sikovne, avsak
> zatial ma nenapadlo ako sa preberaju parametre.
****Nedelal jsem jeste CGI v Delphi, ale pouze v C+ pod Linuxem.
Presto by mohlo byt predavani parametru stejne. Tam to dostanes
presne jako parametr, ale s tim, ze takove ty ,,pochybne`` znaky
dostanes v hexa cisla. Pokud chces, odkud se kdo lognul nebo
treba parametry serveru, pak jsou na to promenne prostredi.

Pokud to je jinak, pak me prosim netlucte.

Slavek

> Ivan Turcan


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


Kontrola systemu

[*] tichyr <tichyr(zv)vaipe(tec)cz> - 2.7.1999 08:59:32

No a jak se to da tedy zjistit u NT4 ?!?!

Dik Radim


Off topic

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.7.1999 09:01:39

> > je tu mezi Vami nejaky Turbopacsalista? Potreboval bych malou radu.
> To nas tu asi vetsina. :-)

Ja jen tak;-)

Potreboval bych, aby se po spusteni programu zablokovala klavesnice (vcetne
Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE, vite o co jde.

Dik za radu.

==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================

dotaz na TColorMemo

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

Vim, ze jsi chtel freeware, ale zkus PlusMemo, stoji 29$, coz neni
zase tak moc. Nic lepsiho jsem dosud nenasel.

Potom existuje jeste LangParser, ktery se napoji na RichEdit, ale
ten se mi nepodarilo "rozhybat". URL: http://www.eq-soft.se/delphi/

> ----------
> Potreboval bych nejakou freeware komponentu co umi barvit text podle
> zadanych kriterii podobne jako TColorMemo ale aby nebylo omezene
> celikosti textu. Zkousel sem hledat na vsemoznejch serverech
> torry�superpage apod. ale�vsecko�co sem�nasel je shareware a
> pekne�drahej�. Nevite nekdo o necem podobnem?
>

SQL jak vybrat N zaznamu z M-te pozice

[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 2.7.1999 09:32:56

Ahojte,

jak udelat SQL dotaz, ktery vybere treba 10 polozek
z databaze (nesetridene) pomoci standardniho SQL?
Budu vybirat 1. - 10. polozku nebo 11. - 20., 21. - 30. atd.
Dik Milan


Mistrovstvi v Delphi 3

[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 2.7.1999 09:33:00

Tyhle knizky koupis na www.starman.net, nebo mozna na vltava.cpress(tec)cz .


Radim


>Mohl bys mi poradir, kde to kupujes? Ty mas zahranicni kreditku?
>
>Petr Vones wrote:
>>
>> > Martin Konarik wrote:
>> >
>> > Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite
M. v D3? Je to
>> > dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz
me nebavi vsechno
>> > louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal
automaticky. Ac je
>> > to krasne napsane, nejde to prilis do hloubky a navic je to anglicky
....
>>

CGI

[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 2.7.1999 09:33:11


Tohle napis do project source !

M.


program Project1;

uses windows, sysutils;

var buffer : array[0..1024] of char;

begin

writeln('content-type =3D text/plain');
writeln;
writeln('<HTML><HEAD><TITLE>Vracene hodnoty</TITLE></HEAD>');
writeln('<BODY bgcolor=3Dwhite>');
writeln('Zde jsou hodnoty ktere jste chteli vedet :<BR>');
writeln('<BR>');

GetEnvironmentVariable('QUERY_STRING', buffer, sizeof(buffer));
writeln('QUERY_STRING: ' + buffer + '<BR>');

GetEnvironmentVariable('REMOTE_USER', buffer, sizeof(buffer));
writeln('REMOTE_USER: ' + buffer + '<BR>');

GetEnvironmentVariable('REMOTE_HOST', buffer, sizeof(buffer));
writeln('REMOTE_HOST: ' + buffer + '<BR>');

GetEnvironmentVariable('REMOTE_ADDR', buffer, sizeof(buffer));
writeln('REMOTE_ADDR: ' + buffer + '<BR>');

writeln('</BODY></HTML>');

// Application.Initialize;
// Application.CreateForm(TForm1, Form1);
// Application.Run;
end..
.
.
> potrebujem napisat len obyc. konzolovu CGI aplikaciu,
> ktora vyhodnoti vstupne parametre a na ich zaklade vrati vysledok.
>
.
.
.

Off topic

[*] rdocekal(zv)csas(tec)cz - 2.7.1999 09:44:04

procedure BlokujKlavesnici; assembler;
asm
mov al,0f5H
out 60H,al
end;

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

> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [mailto:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 2. �ervence 1999 9:02
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Off topic
>
>
> > > je tu mezi Vami nejaky Turbopacsalista? Potreboval bych
> malou radu.
> > To nas tu asi vetsina. :-)
>
> Ja jen tak;-)
>
> Potreboval bych, aby se po spusteni programu zablokovala
> klavesnice (vcetne
> Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE,
> vite o co jde.
>
> Dik za radu.
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================
>

Off topic

[*] Martin Bobak <bobak(zv)minv.sk> - 2.7.1999 09:46:39

Myslim ze v pascale sa to robilo nejako cez SetCBrake alebo tak nejak , uz
si nespominam ................................
----- Original Message -----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 02, 1999 9:01 AM
Subject: RE: Off topic


> > > je tu mezi Vami nejaky Turbopacsalista? Potreboval bych malou radu.
> > To nas tu asi vetsina. :-)
>
> Ja jen tak;-)
>
> Potreboval bych, aby se po spusteni programu zablokovala klavesnice
(vcetne
> Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE, vite o co jde.
>
> Dik za radu.
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================

Ctrl-Break (WAS: Off topic)

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.7.1999 09:47:58

Ahoj, program shutdown.exe neznam, ale presto
myslim, ze vim o co jde a rekl bych, ze neni
nic jednodussiho...

CheckBreak:=false;
SetCBreak(false);
while { to je jen prikald }
Keypressed and
{ not } NEJAKA_UKONCOVACI_PODMINKA
do ReadKey;

Nezapomen to po ukonceni programu nastavit zpet.

Jinak to jde jeste odchycenim INT 23h, ale proc
se drbat levou rukou za pravym uchem, ze.

Dobra.

> ----------
> Potreboval bych, aby se po spusteni programu zablokovala klavesnice
> (vcetne
> Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE, vite o co
> jde.
>
>

dotaz na TColorMemo

[*] Martin VLK <mavlk(zv)helpforest(tec)cz> - 2.7.1999 09:48:01

Ahoj,

freeware i se zdojaky je mwEdit. Akorad ma jednu
vadu na krase - je celkem pomaly. Najdes ho na DSP nebo
Torry (domovskou adresu zrovna nemohu najit).

S pozdravem

Martin VLK

***************************************
* Help forest s.r.o.
* Dr.E.Benese 14, Sumperk, 78701
*
* tel : 0649/217149
* fax : 0649/226930
* e-mail : mavlk(zv)helpforest(tec)cz
*
***************************************
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. �ervence 1999 9:10
P�edm�t: RE: dotaz na TColorMemo


>Vim, ze jsi chtel freeware, ale zkus PlusMemo, stoji 29$, coz neni
>zase tak moc. Nic lepsiho jsem dosud nenasel.
>
>Potom existuje jeste LangParser, ktery se napoji na RichEdit, ale
>ten se mi nepodarilo "rozhybat". URL: http://www.eq-soft.se/delphi/
>
>> ----------
>> Potreboval bych nejakou freeware komponentu co umi barvit text podle
>> zadanych kriterii podobne jako TColorMemo ale aby nebylo omezene
>> celikosti textu. Zkousel sem hledat na vsemoznejch serverech
>> torry superpage apod. ale vsecko co sem nasel je shareware a
>> pekne drahej . Nevite nekdo o necem podobnem?
>>
>

Off topic

[*] Martin Bobak <bobak(zv)minv.sk> - 2.7.1999 09:48:12

Yo a este asi aj GetCBrake sa tam pouzivalo , ale fakt si nie som isty ;o)))
----- Original Message -----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 02, 1999 9:01 AM
Subject: RE: Off topic


> > > je tu mezi Vami nejaky Turbopacsalista? Potreboval bych malou radu.
> > To nas tu asi vetsina. :-)
>
> Ja jen tak;-)
>
> Potreboval bych, aby se po spusteni programu zablokovala klavesnice
(vcetne
> Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE, vite o co jde.
>
> Dik za radu.
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================

Barevne rozliseni + registr kontra INI

[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 02.7.1999 10:00:31

Ahoj,

pot�eboval bych poradit jak korektne zjistit aktualni nastaveni pocetu
barev (barevnou hloubku). Podobne problemy tady uz byly diskutovany, ale
zamerovali se predevsim na rozmerove rozliseni.
Zkousel jsem kombinaci funkci GetGraphicsMode s EnumDisplaySettings, ale
zrejme funkci GetGraphicsMode spatne pouzivam, nebot mi neustale vraci
stejny (a chybny) parametr. Funkci EnumDisplaySettings ziskam spr�vn�
seznam. Dale jsem se snazil najit neco obdobne jednoduchoho jako je
screen.width a sreen.height pro barvy, ale bez uspechu.

A pred svatky trochu teoreticka otazka. Je vhodne ukladat vsechny
parametry programu do registru nebo je lepsi tam ulozit jen ty
souvisejici se systemem a ty, ktere se tykaji ciste programu do INI
souboru, aby registr zbytecne nenarustal?

Diky za odpovedi.

Petr Gadourek


EMail

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.7.1999 10:08:49

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.

Ahoj,
nemate prosim nekdo funkci priklad, jak automaticky
(napr. pri nejake udalosti) odeslat email i s vyplnenym
subjektem a s prilohou ?
Zkoumal jsem komponenty od F. Pietteho, ale nepovidlo
se mi to.

Diky moc za pomoc.

Dobra.

Barevne rozliseni + registr kontra INI

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.7.1999 10:14:38

Ahoj,
vyzkousej

if GetDeviceCaps(GetDeviceContext(Wnd), BITSPIXEL)>8
{ v�ce ne� 256 barev }

Dobra.

> ----------
> pot�eboval bych poradit jak korektne zjistit aktualni nastaveni pocetu
> barev (barevnou hloubku). Podobne problemy tady uz byly diskutovany,
> ale
> zamerovali se predevsim na rozmerove rozliseni.
>
>

CGI

[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 2.7.1999 10:26:51

Ahoj,

Ve WEB modulu nadefinujes akci a v obsluze te akce pak k parametrum lze
pristupovat napr. takto (plati pro GET i POST metodu), tento priklad je pro
predani parametru datum:

procedure TCGIM.CGIM_Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Data: TStrings;
datum: string;
begin
Data:= nil;
with Request do
begin
case MethodType of
mtPost: Data:=ContentFields;
mtGet : Data:=QueryFields;
end;
datum:=Data.Values['datum'];
end;

...

end;


S pozdravem

Petr Kandera
<pkandera(zv)tanger(tec)cz>


----- Original Message -----
From: Ivan Turcan <iturcan(zv)gamo.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 2. �ervence 1999 8:28
Subject: CGI


>
>
> Hi all
>
> Vytvaral uz niekto v Delphi CGI aplikaciu ?
> Nejakym nedopatrenim som sa k tomu dostal, zda sa mi to sikovne, avsak
> zatial ma nenapadlo ako sa preberaju parametre.
> Upresnujem, nechcem pouzit CGIExperta ani ine podobne komponenty,
> potrebujem napisat len obyc. konzolovu CGI aplikaciu,
> ktora vyhodnoti vstupne parametre a na ich zaklade vrati vysledok.
>
> Najde sa niekto kto vie ako na to ?
>
> i.t.
>
> Ivan Turcan
>
> Development specialist
> (Delphi,C++ , Assembler, Interbase, Informix, WinBase602)
>
> WDE HomePage: www.software602(tec)cz/wde
>
> Tel: +421-88-4137 935
> e-mail: iturcan(zv)gamo.sk
> WWW Server: www.gamo.sk
> GAMO a.s.
> Slovakia
>

Presmerovanie Telefonu

[*] Patrik Legath <Pato(zv)Baris.sk> - 2.7.1999 10:29:58

Ahojte.
Potreboval bi som Poradit, Ci sa nieco taketo Da, alebo je to len moje zbozne prianie.
Cez TApi(Modem) viem Vytocit nejake Cislo mimo Firmu. Potrebovel Bi som, aby Modem po spojeni presmeroval Hovor na iny telefon vo Vnutry Firmy.
Na telefone sa to Robi Tak, ze po vytoceni cisl sa Zdvihne sluchadlo, vytoci sa Klapka, a polozi Sluchadlo.
Neviem ci je to Hardware - ova vec TELEFONU, alebo sa to da spravit aj Softvare - ove.

Pomohlo bi mi, aj kebi ste povedali, ze sa to neda, aby som s tym nemusel Ratat.
Dopredu Vdaka za kazdu Radu.
Pato.

Mistrovstvi v Delphi 3

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 02.7.1999 10:29:38

No D4 Unleashed jsem Petrovi privezl ja ;-). Resp. koupili jsme dve (levnejsi
dovoz) a jednu jsme Petrovi prodali (s tucnym ziskem - dodneska z toho zijeme
;-). Nakupoval jsem na:

http://www.amazon.co.uk

Pomer cena/rychlost doruceni byla nejvyhodnejsi (vyslo to asi na 1500,- Kc) a
bylo to tu za tyden. Z USA se to da ziskat pozemni cestou za cca 1300,- ale je
to od tusim 4-12 tydnu coz mi nevyhovovalo. Prekvapive z nemecke pobocky Amazonu
to je drazsi nez z Anglie. Jinak to nabizi i Vltava bratru za 2.200,- do tusim
6-8 tydnu (nebo neco takoveho).

Platba pochopitelne pres Eurocard/Mastercard.

Mac

Radim Kunz wrote:

> Tyhle knizky koupis na www.starman.net, nebo mozna na vltava.cpress(tec)cz .
>
> Radim
>
> >Mohl bys mi poradir, kde to kupujes? Ty mas zahranicni kreditku?

--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================

Off topic

[*] martin.falta(zv)obi(tec)cz - 2.7.1999 10:36:59


Jestli potrebujes zablokovat jenom Ctrl+Break a Ctrl+C tak pouzij
SetCBreak(False). Do uses musis napsat unitu Dos.

PostMessage a breakpoint

[*] Karel Kral <kral(zv)purus(tec)cz> - 02.7.1999 10:45:35

Mohl byste mi nekdo poradit s nasledujicim zvlastnim jevem:
Ladim nejaky message handler, ve kterem posilam dalsi zpravu stejnemu
objektu pomoci PostMessage.
A ted ta zvlastnost: pokud spustim program bez breakpointu, chova se Ok.
Ale kdyz si dam pred PostMessage breakpoint, pres nej krokuji a pak
program dale spustim, akce volana pomoci PostMessage se neprovede. Kde
je chyba?
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________


MS SQL 6.5

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 02.7.1999 10:56:59

Naimportuj si ADO Type Library (Import Type Library) a pak muzes pouzivat ADO v
Delphi bez problemu...

Mac

"No Comment Group, s.r.o. / Sales Department" wrote:

> ok. s ADO som robil v VBScripte v prostredi ASP stranok ... AKo na to v
> Delphi?
>

--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================

Off topic

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.7.1999 10:56:31

> Jestli potrebujes zablokovat jenom Ctrl+Break a Ctrl+C tak pouzij
> SetCBreak(False). Do uses musis napsat unitu Dos.

Diky vsem.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================

CGI

[*] Lubos <bruce(zv)pobox.sk> - 02.7.1999 10:57:59

>
> Vytvaral uz niekto v Delphi CGI aplikaciu ?
> Nejakym nedopatrenim som sa k tomu dostal, zda sa mi to sikovne, avsak
> zatial ma nenapadlo ako sa preberaju parametre.
> Upresnujem, nechcem pouzit CGIExperta ani ine podobne komponenty,
> potrebujem napisat len obyc. konzolovu CGI aplikaciu,
> ktora vyhodnoti vstupne parametre a na ich zaklade vrati vysledok.

Ja mam take nieco urobene v C.
Parametre sa preberaju cez premennu QUERY_STRING.
Mozes pouzit dve metody na predanie parametrov.
Jedna je GET a druha POST.
Ak pouzijes GET, tak ziskas tento parameter cez getenv.
Nevyhoda je ze mozes preniest len 255 znakov.
Pri POSTe mozes preniest lubovolny pocet znakov, a
premennu QUERY_STRING ziskas citanim zo standardneho vstupu.
Ostatne premenne (REMOTE_HOST, ...) ziskas klasicky cez getenv.
V premennej QUERY_STRING mas potom parametre co si posielal
v tvare param1=hodnota1&param2=hodnota2 ...

/LH


SQL jak vybrat N zaznamu z M-te pozice

[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 2.7.1999 10:58:55

Haj hou !

Polozkami myslis sloupce nebo radky ?

Pokud jde o radky, pak mas smulu, SQL pracuje s mnozinami, ne se zaznamy (jako DBF).
V pripade sloupcu je asi nejjednodussi vytvaret SQL prikaz za behu (je to preci jen string), kde obmenujes seznam filedu.

From: Milan N�mec

jak udelat SQL dotaz, ktery vybere treba 10 polozek
z databaze (nesetridene) pomoci standardniho SQL?
Budu vybirat 1. - 10. polozku nebo 11. - 20., 21. - 30. atd.

EMail

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.7.1999 11:07:36

> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Friday, July 02, 1999 10:09 AM
> To: #Delphi-K
> Subject: EMail
>
> Ahoj,
> nemate prosim nekdo funkci priklad, jak automaticky
> (napr. pri nejake udalosti) odeslat email i s vyplnenym
> subjektem a s prilohou ?
> Zkoumal jsem komponenty od F. Pietteho, ale nepovidlo
> se mi to.
>
> Diky moc za pomoc.
>
> Dobra.

Pouzival jsem OLE a objekt Outlooku,
kdyz jsem to chtel pouzit ze stroje, kde nebyl nainstalovan
Office, a byl pristup k emailovemu hostovi, pouzil jsem
Delphi komponentu NMSMTP.
Bez problemu. Myslim, ze to zvladnes podle helpu.
S cim jsem trochu narazil - pokud jsem nemel
nastaven dostatecny pocet promennych, psalo
mi to, ze se nemuze connectovat k hostovi.
Nevim ale, ktere properties jsou vyzadovany.

Jestli Te ani jedna moznost neuspokoji nebo chces
priklad treba k tomu Outlooku, napis.
Zkus kdyztak pripsat i v jakem prostredi ta aplikace pobezi
a co mas k dispozici (lokalni sit nebo pracovni stanice a internet,
software, se kterym se pocita a tak.)

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

Sinea (Was: navrh tabulky)

[*] Zden�k B�hm - 2.7.1999 11:10:22

Tak to uz tady chybi jen plastova panenka, drevena panenka a porcelanova
panenka a to o cem bychom se pak mohli bavit bych nazval toysfilie a udelal
bych to jako program pro naprosty uchylaky...


S pozdravem Zdenek

----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 02, 1999 8:45 AM
Subject: RE: Sinea (Was: navrh tabulky)>>
>> :-))))))) Radsi panenku, alkohol nepiju :-))))))))))
> ^^^^^^^^^^^^^^
>
>Chyba, nevis o co prichazis, panaka bych neodmital :-) Navic
alkoholu
>se vetsinou do druheho dne zbavis, kdezto s panenkou se ti to
muze za
>nepriznivych okolnosti i trochu protahnout :-)

No, ona neni panenka jako panenka. Napriklad takova veprova
panenka, pokud ji kuchar udela mizerne, tak se ji clovek
muze zbavit i drive, nez toho alkoholu :-)))
A protoze jsem zasadovy clovek, tak podle sve zasady (tuhle
mam nejradeji) take panaka nikdy neodmitam :-)

Dobra.

Off topic

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.7.1999 11:21:33

> Potreboval bych, aby se po spusteni programu zablokovala klavesnice
> (vcetne Ctrl+C, nebo Ctrl+Break). Kdo znate program SHUTDOWN.EXE, vite o
> co jde.
Tady to mas vcetne ctrl alt del

Slavek

uses DOS,CRT;

const AKTIV : Boolean = False;

var OldKeyb,Old1B : procedure;

procedure BARVY(A,B : byte);
begin
TextColor(A);
TextBackGround(B);
end;

procedure New1B;interrupt;
begin
Sound(1000);
Delay(100);
NoSound;
end;

procedure NewKeyb;interrupt;
begin
if ((MEM[0:$417] and 12) = 12) and
(PORT[$60] = 83) and
(AKTIV = False) then
begin
AKTIV := True;
Sound(1000);
Delay(100);
NoSound;
asm
Mov al,20h
Out 20h,al
end;
AKTIV := False
end
else
begin
Inline ($9C);
OldKeyb
end
end;


begin
GetIntVec($09,(zv)OldKeyb);
GetIntVec($1B,(zv)Old1B);
SetIntVec($09,Addr(NewKeyb));
SetIntVec($1B,Addr(New1B));

..zde si delej co chces

SetIntVec($09,Addr(OldKeyb));
SetIntVec($1B,Addr(Old1B));
end.

> ==[ Libor Krayzel ]================================


----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------


Sinea (Was: navrh tabulky)

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.7.1999 11:31:58

> -----Original Message-----
> From: Zden�k B�hm [mailto:bohm(zv)gacc(tec)cz]
> Sent: Friday, July 02, 1999 11:10 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Sinea (Was: navrh tabulky)
>
>
> Tak to uz tady chybi jen plastova panenka, drevena panenka a
> porcelanova
> panenka a to o cem bychom se pak mohli bavit bych nazval
> toysfilie a udelal
> bych to jako program pro naprosty uchylaky...
>
>

Tos jenom vyjmenoval ruzna provedeni stejneho druhu panenek.
Veprovou panenkou bych taky nepohrdl. Ale je jeste ocni
pupila, ktere se rika panenka. Martin ale asi nechtel
dostat za odm�nu oko :-)

Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

CGI

[*] Ivan Turcan <iturcan(zv)gamo.sk> - 2.7.1999 11:32:12

>Pri POSTe mozes preniest lubovolny pocet znakov, a
>premennu QUERY_STRING ziskas citanim zo standardneho vstupu.


metoda GET funguje ale ak nastavym POST tak to nejde.
Skusil som parametre citac cez readln (...), nuz a ztuhlo to , kde je chyba
?
i.t.

Mistrovstvi v Delphi 3

[*] Robert Jendrisak <delphi(zv)minv.sk> - 2.7.1999 11:41:14

Countrujem vyvolanie tvojho M. v D3. Ye to shit za velku vyvolavaciu cenu
a ziadny effekt. Par ludom dokonca udelil leathal hit, ktory sa tazko preventuje.
Naco mame tuto grupu?? Navyse zadarmo!!!

Werki
----- Original Message -----
From: Martin Konarik
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, 1 July 1999 10:46
Subject: Mistrovstvi v Delphi 3


Kdyz uz se tu mluvi o knihach (M. v D4), chci se zeptat, jak hodnotite M. v D3? Je to dobry, nebo existuje pro mirne pokrocile zacatecniky neco lepsiho? Uz me nebavi vsechno louskat z "Teach yourself DELPHI 3 in 14 days", kterou jsem k D3 dostal automaticky. Ac je to krasne napsane, nejde to prilis do hloubky a navic je to anglicky ....

Tower.

SQL jak vybrat N zaznamu z M-te pozice

[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 2.7.1999 11:44:32

Zdravim,

klasicke SQL to neumi (je orientovano na mnoziny zaznamu podle hodnoty klice), lepsi by bylo, pokud to jde, udelat to jinak. Pokud na tom trvas, budes to muset obejit. Zalezi na tom, jaky SQL server uzivas, MS SQL napriklad umi klauzuli top <n>, kde n je pocet zaznamu. Pokud
pouzivas lokalni SQL z BDE, tam jsou moznosti velmi omezene, tam bych to radsi udelal jinak.

select top 10 col1, col2, col3 from tabulka where poradi>20

Nesetridene radky bych v SQL nedoporu�oval (server si je totiz muze prohazovat jak se mu to zrovna hodi), hlavne v tomhle pripade bych v tabulce zavedl specialni sloupecek - Poradi. Jinak totiz nedokazes urcit polohu intervalu tech x radku. Hodnoty v nem vubec nemusi byt spojite (10,50,51,52,...), v pripade MS SQL to muze byt i IDENTITYCOL (autoincrement) - tam je zarucen vzrustajici seznam celych cisel (nespojity).

cau
Tomas
tbradle(zv)pvtnet(tec)cz


-----P�vodn� zpr�va-----
Od: Milan N�mec <nemec(zv)goldcard(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. �ervence 1999 9:47
P�edm�t: SQL jak vybrat N zaznamu z M-te pozice


Ahojte,

jak udelat SQL dotaz, ktery vybere treba 10 polozek
z databaze (nesetridene) pomoci standardniho SQL?
Budu vybirat 1. - 10. polozku nebo 11. - 20., 21. - 30. atd.



Dik Milan


CSV format

[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 2.7.1999 11:45:09

Potreboval bych udelat export do formatu CSV.
Vim jak to udelat, ale nevim jak zjistit aktualne
nastavenou hodnotu List Separatoru, kterym jsou
jednotlive polozky od sebe oddeleny.
Potrebuju to do Delphi 1 a aby to bezelo i
v 16 i 32 bitovych Windowsech.
Petr


SQL jak vybrat N zaznamu z M-te pozice

[*] Vaclav_Lukes(zv)EUROTEL.CZ - 2.7.1999 11:57:59


Hi,

mysl�m, �e by mohlo b�t �e�en� v pou�it� FETCHE. Ten Ti na��t� v�tu po v�t� a
pak s n� m��e� d�lat, co chce�, t�eba insertovat jinam a pod.

Va�ek



Odpov�zte pros�m u�ivateli: delphi-l(zv)fwd(tec)cz

Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Vaclav Lukes/IT/EuroTel)
P�edm�t zpr�vy: Re: SQL jak vybrat N zaznamu z M-te pozice

Haj hou !

Polozkami myslis sloupce nebo radky ?

Pokud jde o radky, pak mas smulu, SQL pracuje s mnozinami, ne se zaznamy (jako
DBF).
V pripade sloupcu je asi nejjednodussi vytvaret SQL prikaz za behu (je to preci
jen string), kde obmenujes seznam filedu.

From: Milan N�mec

jak udelat SQL dotaz, ktery vybere treba 10 polozek
z databaze (nesetridene) pomoci standardniho SQL?
Budu vybirat 1. - 10. polozku nebo 11. - 20., 21. - 30. atd.

Barevne rozliseni + registr kontra INI

[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 2.7.1999 12:07:26

>pot�eboval bych poradit jak korektne zjistit aktualni nastaveni pocetu
>barev (barevnou hloubku). Podobne problemy tady uz byly diskutovany, ale


snad takto, pripadne si to uprav.

ShowMessage(IntToStr(HowManyCurrentColors(Form1)));

function HowManyCurrentColors(Form: TForm): Integer;
var
TempInt: Integer;
begin
Result := 0;
with Form.Canvas do
TempInt := GetDeviceCaps(Handle, BITSPIXEL) * GetDeviceCaps(Handle,
PLANES);
case TempInt of
1: Result := 2;
4: Result := 16;
8: Result := 256;
15: Result := 32768;
16: Result := 65535;
24: Result := 16777216;
32: Result := 16777216;
end;
end;


forgo

EMail

[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 2.7.1999 12:31:08

> nemate prosim nekdo funkci priklad, jak automaticky
>(napr. pri nejake udalosti) odeslat email i s vyplnenym



uses ...NMSMTP...

bolo to na inprise(tec)cz:{
k prikladu na formulari budes potrebovat:
LabelERROR: TLabel
Memo1: TMemo;

do Memo1 napis text spravy
}

procedure TForm1.SendMail;
var
SMTP1: TNMSMTP;
begin
SMTP1:=TNMSMTP.Create(nil);
try
SMTP1.Host:='winproxy'; // toto treba zmenit... with SMTP1.PostMessage do begin
FromAddress := 'moja(zv)adresa.com';
FromName := 'moje meno';
Subject := 'ahoj, ako sa mas';
ReplyTo := 'moja.reply(zv)adresa.com';
LocalProgram := Subject; {tak toto uz ani sam neviem, co je}
ToAddress.Append('kamarat1(zv)hotmail.com');
ToAddress.Append('kamarat2(zv)hotmail.com');
try
Body.Assign(Memo1.Lines);
//Attachments.Append('tu zadaj mena suborov, ktore chces poslat');
try
SMTP1.Connect;
LabelERROR.Caption := 'posielam spravu...';
try
SMTP1.SendMail;
LabelERROR.Caption := 'sprava poslana OK';
except
on E: Exception do
LabelERROR.Caption := 'Spravu nebolo mozne poslat. Cybova
sprava: '+E.Message;
end;
SMTP1.Disconnect;
except
on E: Exception do
LabelERROR.Caption := 'Nebolo sa mozne pripojit. Chybova sprava:
' + E.Message;
end;
except
on E: Exception do
LabelERROR.Caption := E.Message + ' Nebolo mozne natiahnut
prilohy';
end;
end; // with
finally

SMTP1.Free;
end;
end;

forgo

Presmerovanie Telefonu

[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 2.7.1999 12:36:25

Patrik Legath napsal(a) toto:

> Potreboval bi som Poradit, Ci sa nieco taketo Da, alebo je to len moje zbozne prianie.
> Cez TApi(Modem) viem Vytocit nejake Cislo mimo Firmu. Potrebovel Bi som, aby Modem po spojeni presmeroval Hovor na iny telefon vo Vnutry Firmy.
> Na telefone sa to Robi Tak, ze po vytoceni cisl sa Zdvihne sluchadlo, vytoci sa Klapka, a polozi Sluchadlo.
> Neviem ci je to Hardware - ova vec TELEFONU, alebo sa to da spravit aj Softvare - ove.

Jestli jsem to dobre pochopil, tak v podstate potrebujes udelat na modemu
"flash" (kratke rozpojeni spojeni coz vetsina pobockovych ustreden
rozpozna jako vyzvu pro zvlastni funkce (odlozeni hovoru, prepinani dvou
hovoru, presmerovani apod.)) a pak vytocit dalsi cislo....

Pokud si vzpominam na AT prikazy modemu, tak "flash" se dela pridanim
vykricniku do vytaceneho cisla, cili ATD0,123456!211 (vytoci 0, pak 2 sec.
pocka, vytoci cislo 123456, "flashne" a vytoci 211.

S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano


Registry

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 2.7.1999 12:38:59

Delfini, kdo se vyznate _dobre_ v registrech?
Hledam nejaky nastaveni OE5.0 a RegMon hlasi, ze OE to zapisuje do
0xC29C16E0\Software\Microsoft\Outlook Express\5.0\Rules
Samozrejme v registrech je pouze HKCR, HKCU, HKLM, HKUSers, HKCC a HKDD.
Jak je mozny zapisovat do klice, kam zapisuje napr. tendle OE a hlavne KDE to v registrech najdu?????
Dik
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


EMail

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.7.1999 12:45:18

> >> nemate prosim nekdo funkci priklad, jak automaticky
> >> (napr. pri nejake udalosti) odeslat email i s vyplnenym
> >> subjektem a s prilohou ?
> >> Zkoumal jsem komponenty od F. Pietteho, ale nepovidlo
> >> se mi to.
> >>
>
> >Pouzival jsem OLE a objekt Outlooku,
> >kdyz jsem to chtel pouzit ze stroje, kde nebyl nainstalovan
> >Office, a byl pristup k emailovemu hostovi, pouzil jsem
> >Delphi komponentu NMSMTP.
> >Bez problemu. Myslim, ze to zvladnes podle helpu.
> >S cim jsem trochu narazil - pokud jsem nemel
> >nastaven dostatecny pocet promennych, psalo
> >mi to, ze se nemuze connectovat k hostovi.
> >Nevim ale, ktere properties jsou vyzadovany.
> >
> >Jestli Te ani jedna moznost neuspokoji nebo chces
> >priklad treba k tomu Outlooku, napis.
> >Zkus kdyztak pripsat i v jakem prostredi ta aplikace pobezi
> >a co mas k dispozici (lokalni sit nebo pracovni stanice a internet,
> >software, se kterym se pocita a tak.)
>
To je prave ten problem, chtel bych, aby aplikace, kterou
si nekdo/kdokoli nainstaluje, byla schopna automaticky
odeslat email i s logem (logovym souborem). Pochopitelne
s vyzvou o pripojeni k internetu (resp. k POP3 serveru)
ale se SMTP a pod. nemam vubec zadne zkusenosti.

Adresu toho serveru, jmeno a heslo by si uzivatel zadal
v "konfiguraci" programu. Chtel bych aby nebyl zavisly
na Outlook-u, Exchange, PMailu a podobnych programech.

BTW: Komponentu MNSMTP jsem nenasel.

Datava struktura

[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 02.7.1999 13:18:17

Ahoj,

potreboval bych se poradit jak nejlepe ukladat namerena data, pokud jste
nekdo resil podobny problem. Nejde mi o konkretni reseni, spis o vas
nazor jak na to abych nenicil jednak sebe a jednak jiz tak dost o pomoc
volajici Windows.

Problem:
Na lidech merim ruzne fyziologicke veliciny, ktere potrebuju nejak
ulozit U kazdeho cloveka merim ruzny pocet velicin a ruzne dlouho. Pocet
velicin je v rozmezi 1-20 a pocty zaznamu pro kazdou velicinu mohou byt
radove stovky tisic vzhledem k dlouhodobemu mereni a rychlemu
vzorkovani. Namerena data budu zobrazovat a ruzne zpracovavat -
doplnovat popisne texty, dilci vypocty ap.

Reseni:
1. Velicina = binarni soubor recordu, to je prijemne na dalsi praci, ale
tech souboru, zvlaste kdyz pro kazdou velicinu pribude soubor textu a
mezivysledku.
2. ListBox s rozsirenim na neomezeny pocet radek (nekde jsem takovou
komponentu videl), prijemna prace, vsechny veliciny vcetne popisnych
textu vzorku mohou byt na jednom radku, ale ta velikost kdyz je to
vsechno textove.
3. TStream, z toho mam trochu strach, neprehledna datova struktura,
slozite funkce pro nacteni presne definovane casti udaju ap. Delal jsem
neco podobneho v DOSu jeste pod Pascalem 5 a bylo to maso, zvlaste
nasledne zasahy do teto struktury.

Budu rad za kazdy nazor. Predem vsem diky a sorry za obsahlejsi dotaz.

Petr Gadourek

SQL jak vybrat N zaznamu z M-te pozice

[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 2.7.1999 13:30:39

Preji hezky den,

Jak uz tady padlo, v neusporadanych radcich tabulky nelze vybirat podle
poradi. Jina situace je napr. kdyz by jste chtel vybrat kteri zamestanci
jsou na 10. - 20. miste podle vyse platu.� V takovem pripade to jde i
standardnim SQL.

bye

R.Pospisil

-----Original Message-----
From: Milan N�mec [mailto:nemec(zv)goldcard(tec)cz]
Sent: Friday, July 02, 1999 9:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL jak vybrat N zaznamu z M-te pozice


Ahojte,

jak udelat SQL dotaz, ktery vybere treba 10 polozek
z databaze (nesetridene) pomoci standardniho SQL?
Budu vybirat 1. - 10. polozku nebo 11. - 20., 21. -�30. atd.



Dik Milan


EMail

[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 2.7.1999 13:35:02


pouzivam komponenty od F. Pietteho a funguje to v pohode, prohledni si
Mailsnd.dpr v ICS

M. SmtpClient.Host := 'iiserver'; /// nebo ip adresa smtp serveru
SmtpClient.Port := 'smtp';
SmtpClient.SignOn := '';
SmtpClient.Connect;

while SmtpClient.State <> smtpReady do
begin
Application.ProcessMessages;
end;

SmtpClient.HdrFrom := FromEdit.Text;
SmtpClient.HdrTo := ToEdit.Text;
SmtpClient.HdrSubject := SubjectEdit.Text;
SmtpClient.SignOn := '';
SmtpClient.FromName := FromEdit.Text;

SmtpClient.EmailFiles.Clear; /// tady
se nastavuje priloha
SmtpClient.EmailFiles.Add(Edit2.Text); /// Edit2.Text
obsahuje neco jako C:\TEXT.TXT

SmtpClient.RcptName.Clear;
SmtpClient.RcptName.Add(ToEdit.Text);

SmtpClient.Host := 'iiserver';
SmtpClient.Port := 'smtp';
SmtpClient.SignOn := '';
SmtpClient.Mail;

while SmtpClient.State <> smtpReady do
begin
Application.ProcessMessages;
end;

SmtpClient.Quit;
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: #Delphi-K <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 02, 1999 10:08 AM
Subject: EMail
.
.
.
> Zkoumal jsem komponenty od F. Pietteho, ale nepovidlo
> se mi to.
.
.
.

DCOM

[*] Ale� Da�a���jW��֧g��v��̿ - 2.7.1999 13:38:28

Na NT 4 v dcomcnfg
Default Authentication Level - NONE
Default Impersonation Level - ANONYMOUS
a chodi to.

Ales Dana
ales.dana(zv)seznam(tec)cz

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Mys
> Sent: Friday, July 02, 1999 8:05 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: DCOM
>
>
> Na clientu i serveru je OS NT4. Na clientu jsem zaregistroval nize uvedene
> dll. Na serveru jsem se znazil nastavit dle dcomcnfg.exe (ale nevim co
> vsechno a jak nastavit), ale kdyz spustim program na clientu tak program
> hlasi chybu:
> "Exception EOleSysError in module empedit.exe at 000677D1.
> Pristup odmitnut."
>
> ---- Odpoved ----
>
>
> A server je NT nebo Win95?
> Musis na clientu zaregistrovat pomoci Tregsvr dbClient.dll, stdvcl32.dll a
> na serveru nastavit dcomcnfg.exe pristupy.
>
> ----- P�vodn� zpr�va -----
>
> Potreboval bych poradit.
> V Delphi4\demos\Midas jsou priklady na triurovnovou komunikaci pres DCOM.
> Kdyz spustim klienta na stejnem PC jako je server (computerName
> je nastaven)
> vse funguje, ale kdyz prekopiruji clienta na jine PC napise "Pristup
> odmitnut" popr.: "Exception EOleSysError ...". Kde je zakopanej pes
>

CGI

[*] Lubos <bruce(zv)pobox.sk> - 02.7.1999 13:49:51

> >Pri POSTe mozes preniest lubovolny pocet znakov, a
> >premennu QUERY_STRING ziskas citanim zo standardneho vstupu.
> metoda GET funguje ale ak nastavym POST tak to nejde.
> Skusil som parametre citac cez readln (...), nuz a ztuhlo to , kde je chyba
> ?

nuz, uz dlho som nerobil v PACKALE, takze ti neviem presne povedat co treba
pouzit.
Ale princip je nasledovny.
1) zistis pomocou getenv hodnotu premennej CONTENT_LENGTH, ktora uvadza pocet
znakov
v premennej QUERY_STRING.
2) nacitas zo standard vstupu dany pocet znakov.

mam to v C a funguje to.

/LH



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