Archív konference Delphi

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

Zistenie vyrocia pomocou SQL

[*] miro mrazik <preas_w(zv)stonline.sk> - 18.8.2002 23:03:18

Ahoj
ako sa daju pomocou SQL prikazu zistit v tabulke (firebird) vsetky osoby
ktore maju v urcity datum narodeniny?

Vdaka
Miro

OT: sudy a lichy v PHP

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 19.8.2002 01:05:04

Zdravim

Omlouvam se, ze opet podavam dotaz ohledne PHP, ale nebudu to delat tak
dlouho, abych se kvuli tomu prihlasoval do PHP konference. Zkousel jsem to,
ale mnou vybrana konference uz asi neexistuje. Kdyby nekdo byl ochotny mi
obcas (tak jednou-dvakrat do tydne, maximalne) s necim jednoduchym (v PHP
delam asi tyden) poradit, at se mi ozve, budu mu vdecny, abych nemusel stale
narusovat zabehle koleje teto konference.

O co jde:
Potrebuji vytvorit dvousloupcovou tabulku s urcitym poctem poli (to je
vstupni hodnota)

$maxcat = 7 //vstupni hodnota
for ($cat = 1; $cat <= $maxcat;$cat++)
{
$cat = sprintf("%03d", $cat);
echo "<tr>"; //vykonat kdyz je lichy
echo "<td><a href=\"#{$cat}\"><font
color=\"yellow\">{$cat}</font></a></td>";
echo "</tr>"; //vykonat, kdyz je sudy
}

Vysledek musi byt:
XX
XX
XX
X

Potrebuji tedy zjistovat, zda je cislo $cat sude nebo liche. Nepotvrdily se
moje obavy, ze s cislem 001 (vysledek ze sprintf) nepujde pracovat jako s
cislem. Jde to. V manualu k PHP jsem zkousel hledat EVEN a ODD, ale nenaslo
se nic.

P.S.: Jedna se o ten internetovy obchod, na jehoz cenu jsem se kdysi ptal.
Nakonec jsme to dohodli na 7000 a vysledek muzete videt na
http://www.rokaglass.com.

Dekuji za odpoved.
Odpovedi prosim na soukromy mail
Zdenek
zstepanek(zv)atlas(tec)cz


Nazev EXE

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

From: "Martin Pesava" <pesavova(zv)dkm(tec)cz>
> Hm, tak taky vraci vsechno s velkejma pismenkama :((

Ono je to asi zavisle na OS a file systemu, coz koneckoncu neni chyba protoze
nikde neni psano ze to ma vracet presne nazev. Pak pouzij PathGetLongName z
JclFileUtils.

Petr Vones

naplnanie array

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

From: "Peter Surovy" <psurovy(zv)uevora.pt>
> Problem : skoro vzdy mi v prvku 0 niekedy aj v 1
> naskoci uplne nezmyselne cislo (napr prvky pola su bud
> 0 alebo medzi 200 a 300) a v nultom prvku
> mi naskoci napr 27.5 :-/(

A nemas chybu v indexovani toho pole ?

Petr Vones

ScrollBox

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 01:31:14

From: "Peter Surovy" <psurovy(zv)uevora.pt>
> v onMouseMove robim
> ScrollBox1.ScrollBy(x-pociatocne_x,y-ppociatocne_y);
>
> obrazok sa pekne presuva spolu s mysou
> ale Scrollbary na to vobec nereaguju
> skusal som
> ScrollBox1.HorzScrollBar.Position:= x;

TScrollBox.HorzScrollBar.Position a TScrollBox.VertScrollBar.Position by melo
fungovat.

Petr Vones

Zobrazeni Formu na WinXP

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 01:34:02

From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
> mam aplikaci, kde je chybne zobrazen hlavni Form na WinXP.
> Form ma tvar jako ve Win 9x, ale ostatni formy z teto aplikace jsou jiz
> normalni, tzn se zakulacenymi roky atd.
>
> Je mozne ze tento stav je zpusoben utilitou z JclAppInst pro jedinecne
> spusteni programu?

Pochybuji.

Petr Vones

Rozdil D4 a D6

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 01:50:05

From: "SPELZA s.r.o." <spelza(zv)spelza(tec)cz>
> umi mi nekdo vysvetlit, proc v D4Std nasledujici kod funguje a v D6Pro
> vyhazuje na radku AssignFile(Soubor, FJmeno) access violation. Prostredi je
> W2K.
>
> Dik. Jara
>
> procedure TForm1.Proved(FJmeno: PChar);

Pomineme-li, ze ta konstrukce je vcelku nesmyslna (proc nepouzit normalni
string ?) tak je to chyba v kompilatoru (generovani kodu) kde se spatne
zachazi s retezcem predanym jako PChar do "magic" funkce System._Assign,
neprovede se konverze pomoci (zv)LStrFromPChar.

Petr Vones

Zjisteni verze

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 01:52:07

From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> jak zjistim , teda spise vytahnu informace o verzi ci vyrobci
> napriklad z .dll .ocx nebo .exe

Pomoci tridy TJclFileVersionInfo nebo funkce VersionFixedFileInfo v unitu
JclFileUtils z JCL: http://delphi-jedi.org/Jedi:CODELIBJCL

Petr Vones

Jak poslat stisk hotkey do cizi aplikace ??

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 01:54:14

From: <tomsir1.edu(zv)mail.cez(tec)cz>
> Cely vecer jsem si hral s posilanim messages , bohuzel asi nejsem schopen
> sestavit parametry message. Predpokladam ze musim posilat
>
> SendMessage(handle_cizi_app, WM_HOTKEY, ..., ...)

Podivej se do dokumentace k te zprave. Musis hlavne predat ID te hotkey ktere
bylo zadano pri registraci v te aplikace pomoci RegisterHotKey.

Petr Vones

Konverze stringu z D6 DFM do Ansi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 02:03:11

From: "Tomas Grepl" <delphi(zv)kapsw(tec)cz>
> Lze nejakym jednoduchym zpusobem prevest retezec (ziskany napr. z DFM v D6)
> do ANSI kodovani (nemyslim tim zrovna nutne CP1250) ?
>
> Priklad
> 'Zalo'#382'eno'

procedure TForm1.Button1Click(Sender: TObject);
var
W: WideString;
begin
W := #382;
ShowMessage(W);
end;

Zbytek uz si dopises.

Petr Vones

Komponenta na tabulku

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.8.2002 05:36:32

StringGrid s uzivatelskym vykreslovanim pres OwnerDraw

--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

18.8.2002 Martin Kozusky:
> Ahojte,
> neznate nekdo komponentu, ktera se podoba te v priloze?

> Nebo nejakou jinou jednoduchou, nemusi to byt TStringGrid. staci abych si
> nastavil pocet sloupecku, nejake zahlavi a jeho barvu, popripade barvu
> pozadi a tlousku radku ...

Spocitanie riadkov v Tabulke DTB

[*] Karel Du�ek <Karel.Dusek(zv)oku-tu(tec)cz> - 19.8.2002 06:32:38

Jestli ze se nejedna o tabulku s vypocitanymi radkami, tak ti bude stacit
Table1.RecordCount.

K.D.

----- Original Message -----
From: "bugi" <bugala_a(zv)centrum.sk>
To: "Konfa Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, August 17, 2002 2:12 PM
Subject: Spocitanie riadkov v Tabulke DTB


>
> Vsetkych srdecne zdravim a verim, ze Vas voda obisla a mate sa
> fajn!
>
> Potreboval by som pri nacitani tabulky do DBGrid-u zistit pocet
> jej riadkov a nasledne ho vypisat na formular.
>
> Jedna sa o tabulku Paradox.
>
> Aka funkcia sluzi na zistenie poctu riadkov ???
> (pomohla by aj mala ukazka v podobe kodu ...)
>
> Dakujem,
> Alex
>
>
> Delphi 5 Ent & Win2000
> -----------------------
> BUGALA Alex
> e-mail: bugala_a(zv)centrum.sk
>
>
>

Pracuje HDD?

[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 19.8.2002 07:36:41

Dobry den,
Potrebuji v delphi zjistit, zda pracuje HDD. Zapis i cteni.
Cteni kontrolky HDD.
Nev� n�kdo adresu LED HDD? V cistem Delphi to asi nepujde, ale
co takhle cast v ASM?

Pros�m poradte mi. Dekuji
S pozdravem Martin Novak.

--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...

ListBox itemchange

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.8.2002 07:47:21

> FAAAAKKKKKKTTTT TO MI NIKDO NEREKL.....:-))) myslel jsem ze je to
> logicky jinaaac..diky jdu to zkusit.... Aldik

Jak to, ze Ti to nikdo nerekl? Vzdyt to bylo hned v te prvni odpovedi,
akorat ze anglicky.

David Lebeda

Pracuje HDD?

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.8.2002 07:55:21

T2JhdmFtIHNlLCB6ZSB0byBuZXB1amRlLCBhc3BvbiBuZSBqZWRub2R1c2UuIE8gTEVEIHNlIHN0
YXJhIHByaW1vDQpyYWRpYyBkaXNrdS4gTmV2aW0gbyB0b20sIL5lIGJ5IHNlIG8gdG9tIHBvc+1s
YWx5IHN5c3TpbXUgbuxqYWvpIHpwcuF2eS4NCkEgbmEgcHJpbXkgcHJpc3R1cCBuYSBwb3J0eSBu
YSBXaW5OVCB6YXBvbWVuLg0KDQotLSANCkphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wu
Y3oNCg0KMTkuOC4yMDAyICJNYXJ0aW4gTm924WsiIDoNCj4gRG9icnkgZGVuLA0KPiAgUG90cmVi
dWppIHYgZGVscGhpIHpqaXN0aXQsIHpkYSBwcmFjdWplIEhERC4gWmFwaXMgaSBjdGVuaS4gDQo+
IEN0ZW5pIGtvbnRyb2xreSBIREQuDQo+ICBOZXbtIG7sa2RvIGFkcmVzdSBMRUQgSEREPyBWIGNp
c3RlbSBEZWxwaGkgdG8gYXNpIG5lcHVqZGUsIGFsZSANCj4gY28gdGFraGxlIGNhc3QgdiBBU00/
DQoNCj4gUHJvc+1tIHBvcmFkdGUgbWkuIERla3VqaQ0KPiAgUyBwb3pkcmF2ZW0gTWFydGluIE5v
dmFrLg0KDQo+IC0tLS0tLS0tLS0tLS0tLS0tLS0tDQo+IE5vdv0gdnlobGVk4XZh6CBwcm8g6GVz
a/0gaW50ZXJuZXQgd3d3LldlYkZhc3QuY3ogLSBwcm9zdOwgbmFqZGUgLi4uDQoNCg0KDQog

OT- zdielanie vo Windows 2000/XP

[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 19.8.2002 07:56:31

A co treba nastavit sdileni pro EveryOne...

S pozdravem

Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz

> Ako mozem nastavit urcity adresar aby ho mohli vsetci vidiet, t.j. aj
> Best regards, TRoland

Konverze stringu z D6 DFM do Ansi

[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.8.2002 08:05:26


>From: "Tomas Grepl" <delphi(zv)kapsw(tec)cz>
> > Lze nejakym jednoduchym zpusobem prevest retezec (ziskany napr. z DFM v D6)
> > do ANSI kodovani (nemyslim tim zrovna nutne CP1250) ?
> >
> > Priklad
> > 'Zalo'#382'eno'

***psal jsem program pro prevod D6 DFM do D5 DFM -> muzu jej zaslat


S pozdravem
Tomas Rosa

------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------

Zistenie vyrocia pomocou SQL

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 19.8.2002 08:36:51

> Ahoj
> ako sa daju pomocou SQL prikazu zistit v tabulke (firebird) vsetky osoby
> ktore maju v urcity datum narodeniny?

SELECT jmeno FROM osoby WHERE datum= :datum
;-)

anebo pokud mas ulozene jejich data narozeni tak by mohlo jit treba:
SELECT jmeno FROM osoby WHERE (EXTRACT(day FROM datum)=:den) and
(EXTRACT(month FROM datum)=:mesic)

Roman
==============================
http://kouzelne.misto(tec)cz

Udalosti v DCOM, Pomoooc !

[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 19.8.2002 08:37:26


Ahoj,

Prava mam nastavene stejne jako u pocitace v mistni siti, kde to funguje.
Dokonce
pouzivam i stejny ucet a heslo.
Myslim, ale ze kdyz zkusim vyvolat spojeni interfacu 5x neuspesne a po 6 se
mi to pripoji
( neni to pravidlem ), tak to v pravech nemuze byt.

>
> 95 % problemu s DCOM je v nastaveni prav. Neni problem v tom ?
>
> Radim


> > Ahoj,
> >
> > ma nekdo nejake prakticke zkusenosti s eventama mezi 2 COM objekty ?
> >
> > Opravdu uz nevim, kde delam chybu, protoze kdyz mam pocitace v mistni
> > siti, tak komunikace probiha bez problemu (predpokladam, ze server bezi
> > s identitou uctu klienta).
> >
> > Problem nastava pokud pocitace spojim vytacenou linkou, tak server se
sice
> > vytvori, ale nepripoji se k udalostnimu rozhrani (Cookie=0).
> >
> > Mam takovy dojem, ze se to nestihne pripojit do nejakeho casu a pak se
to
> > odstreli.
> >
> > Je metodika zpetneho volani pres udalostni rozhrani v praxi vubec
> pouzitelna
> > ?
> > Trosku jsem si upravil priklad z Mistrovstvi v Delphi 6 a opravdu nevim,
> kde
> > by mohla byt chyba, protoze uvedeny prikladek jsem skoro uplne opsal a
zda
> > se mi, ze na nem neni nic sloziteho. V pravech chyba byt take nemuze,
> > protoze
> > se to obcas pripoji, ale vetsinou ne.
> >
> > Potreboval bych alespon vedet, jestli to nekdy nekomu po modemu
fungovalo.
> > OS : Win 2000 server nebo profesional, Delphi 5.0
> >
> > Diky za kazdou radu
> >
> >
> > S pozdravem
> > Richard Kejval

Komponenta na tabulku

[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 19.8.2002 08:41:09

Neslo by to trochu rozvest :) bohuzel nejsem zase takovy expert :(

Diky,
Martin

----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Newsgroups: cz.muni.redir.delphi
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 19, 2002 5:36 AM
Subject: Re: Komponenta na tabulku


> StringGrid s uzivatelskym vykreslovanim pres OwnerDraw
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 18.8.2002 Martin Kozusky:
> > Ahojte,
> > neznate nekdo komponentu, ktera se podoba te v priloze?
>
> > Nebo nejakou jinou jednoduchou, nemusi to byt TStringGrid. staci abych
si
> > nastavil pocet sloupecku, nejake zahlavi a jeho barvu, popripade barvu
> > pozadi a tlousku radku ...

Problemy s MDI

[*] <belcik(zv)centrum.sk> - 19.8.2002 08:44:26

Potrebujem spravit MDI aplikaciu, ktora by behala pod W2000 aj
W95,ale pri zlucovani menu program nefunguje dobre.

Pod W2000 zosedne tlacitko (X)(ale funguje) a sem-tam nefunguje
dobre menu "Okno". AutoHotkeys a AutoLineReduction mam na
maManual.

Pod W95 je to uplne v haji. Systemove tlacitka tam vobec nie su a
ked su, tak nefunguju.Okrem toho nefunguje dobre vykreslovanie
menu.

Da sa to nejako vyriesit ? Nejaky Service Pack alebo co ?
Alebo mam zabudnut na zlucovanie menu ?

D5 Prof., W2000 aj W95.

Dik za kazdu radu.
Stano.

----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting

USB Kamera

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.8.2002 08:48:09

ahoj,

koukam, ze uz jsem to sem
musel nekdy posilat, mam to
uz davno u sebe:
http://www.peca(tec)cz/delphi/kamera.zip

peca

Aplikace s FlashFiler na CD

[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 19.8.2002 08:50:20

Delam aplikaci s FlashFiler 2 , ktera je spoustena z CD. Data se ctou jednak z CD a jednak pracovni soubory jsou na pevnem disku. Vse funguje jenom pri ukoncovani programu mi to hlasi chybu FF serveru pri zapisu do souboru, chce zapisovat na CD. Pri nastaveni IsReadOnly v TffServerEngine na True nejde zapisovat do pracovnich souboru, pri False zas je na konci programu zminovana hlaska.
Dik za radu.

Petr Dedecek
petrd(zv)atlas(tec)cz

TRichEdit,PlainText a font

[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 19.8.2002 09:15:13

Ahoj,

mam problem s nacitanim textu do TRichEdit. Chtel bych nejak ovlivnit font a
velikost fontu, kterym se ma nacist text do TRichEdit. V konferenci jsem se
neco docetl o fixed fontu, ale nezjistil jsem kde se nachazi a jak ho
zmenit.Nasmerujte me prosim jak mohu tento font zmenit.

Bohdan Voska

Aplikace s FlashFiler na CD

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.8.2002 10:25:58

Puvodni zprava, kterou napsal Petr Dedecek dne 19 Aug 2002:

> Delam aplikaci s FlashFiler 2 , ktera je spoustena z CD. Data se ctou
> jednak z CD a jednak pracovni soubory jsou na pevnem disku. Vse funguje
> jenom pri ukoncovani programu mi to hlasi chybu FF serveru pri zapisu do
> souboru, chce zapisovat na CD. Pri nastaveni IsReadOnly v TffServerEngine
> na True nejde zapisovat do pracovnich souboru, pri False zas je na konci
> programu zminovana hlaska. Dik za radu.

Zkontroluj nastaveni s mymi tipy:

http://www.clexpert(tec)cz/devtip/

S pozdravem
Petr Zahradnik, pocitacovy expert

=====================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
======================================================

Pracuje HDD?

[*] David Mensik <mensikd(zv)seznam(tec)cz> - 19.8.2002 11:14:36

Jde to - filter driver na disk...Ale urcite ne v Delphi :)

Ozon

> Dobry den,
> Potrebuji v delphi zjistit, zda pracuje HDD. Zapis i cteni.
> Cteni kontrolky HDD.
> Nev� n�kdo adresu LED HDD? V cistem Delphi to asi nepujde, ale
> co takhle cast v ASM?

Jak poslat stisk hotkey do cizi aplikace ??

[*] tomsir1.edu(zv)mail.cez(tec)cz - 19.8.2002 11:17:31



OK, jsem schopen nejak zjistit ID te hotkey te cizi aplikace ?? Jedna se
opravdu o cizi /tzn. ne mnou vytvorenou/ aplikaci, ktere chybi scheduler a
ja ho potrebuji takto nahradit ...

Diky Radek


"Petr Vones" <pvones(zv)mbox.vol(tec)cz>(zv)clexpert(tec)cz on 19.08.2002 01:54:14

Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz

Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz


Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Re: Jak poslat stisk hotkey do cizi aplikace ??


Podivej se do dokumentace k te zprave. Musis hlavne predat ID te hotkey
ktere
bylo zadano pri registraci v te aplikace pomoci RegisterHotKey.

Petr Vones

Pracuje HDD?

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 19.8.2002 11:43:04

Zdravim

Muzu jenom potvrdit. O LED, ktera je napojena na desku se stara radic na
desce a o LED, ktera je na disku, ze zase stara samotny radic disku. To je
jeho interni zalezitost. Jedine reseni co me napada, je sledovat prutok dat
(sledovani systemu to umi, tak by to melo nejak jit) a pri prekroceni urcite
hranice bys to detekoval jako ze disk pracuje.

Na ASM zapomen. Jedine jeho vyuziti je dneska stale jeste ve cteni a zapis
portu pod 9x, jeste ze to funguje s malou berlickou (UserPort) i na NT, bez
toho bych byl nametenej.

Zdenek
----- Original Message -----

> Obavam se, ze to nepujde, aspon ne jednoduse. O LED se stara primo
> radic disku. Nevim o tom, �e by se o tom pos�laly syst�mu n�jak� zpr�vy.
> A na primy pristup na porty na WinNT zapomen.

> > Potrebuji v delphi zjistit, zda pracuje HDD. Zapis i cteni.
> > Cteni kontrolky HDD.
> > Nev� n�kdo adresu LED HDD? V cistem Delphi to asi nepujde, ale
> > co takhle cast v ASM?

naplnanie array

[*] Peter Surovy <psurovy(zv)uevora.pt> - 19.8.2002 10:50:03

NO odpoviem si sam
mal som tam ine pomocne pole
ktore malo 8 prvkov

ak sa vsetkych 8 prvkov naplnilo
do prvku hlavneho pola sa zapisala hodnota sumy.
ak sa nenaplnilo do hlavneho pola sa napisala 0;

problem bol ale ak sa do tohoto 8 prvkoveho pola
z nejakeho dovodu snazil narvat 9 prvok
Compilator tento nadpocetny prvok jednoducho supol
na prve miesto hlavneho pola. Bez hlasenia chyby.

A zahada bola na svete.

Peter Surovy

----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
Sent: Sunday, August 18, 2002 6:45 PM

> Problem : skoro vzdy mi v prvku 0 niekedy aj v 1
> naskoci uplne nezmyselne cislo (napr prvky pola su bud
> 0 alebo medzi 200 a 300) a v nultom prvku
> mi naskoci napr 27.5 :-/(


> Preco ale pisem: Ked si tento proces
> odkrokujem vsetko prebehne ok!
> Ziadnych 27,5 sa nikde neobjavi.
> Ked to pustim bez breaku
> je to tam zas.

InnoSetup a instalace BDE

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.8.2002 12:18:26

ahoj,

zkousim nainstalovat BDE pomoci InnoSetupu.
asi to funguje dobre, ale pri instalaci BDE se to
pta na cestu kam se ma BDE nainstalovat. potreboval
bych to skryt a nechat do implicitniho adresare, pac
jeto jednak v anglictine a druhak uzivatl v tu chvili
nechape co se deje.

jak to mamte reseny vy? sice budu BDE v pristi
versi SW opoustet, ale ted to vyresit musim k naproste
spokojenosti sefa ;o)

dekuji

peca

VYRESENO: Jak poslat stisk hotkey do cizi aplikace

[*] tomsir1.edu(zv)mail.cez(tec)cz - 19.8.2002 12:21:25



OK, potreboval bych jeste poradit, jak zjistim handle okna, kdyz znam jen
nazev spusteneho souboru, napr. notepad.exe

Diky Radek


Pracuje HDD?

[*] Delphin <delphin(zv)post(tec)cz> - 19.8.2002 12:25:31

> Potrebuji v delphi zjistit, zda pracuje HDD. Zapis i cteni.

V pripade, ze informace o cinnosti HDD neni kriticka, coz evidentne neni,
dalo by se to na NT/2000 snadno zjistit pomoci performance counters.

OT: porovnani hernich konzoli

[*] <little_bobes(zv)centrum(tec)cz> - 19.8.2002 12:39:23

Zdravim,

vite nekdo o strance, kde jsou vzajemne porovnany herni konzole XBOX, PS2,
GameCube?

Diky Bob

Problemy s MDI

[*] <belcik(zv)centrum.sk> - 19.8.2002 13:14:47

Potrebujem spravit MDI aplikaciu, ktora by behala pod W2000 aj
W95,ale pri zlucovani menu program nefunguje dobre.

Pod W2000 zosedne tlacitko (X)(ale funguje) a sem-tam nefunguje
dobre menu "Okno". AutoHotkeys a AutoLineReduction mam na
maManual.

Pod W95 je to uplne v haji. Systemove tlacitka tam vobec nie su a
ked su, tak nefunguju.Okrem toho nefunguje dobre vykreslovanie
menu.

Da sa to nejako vyriesit ? Nejaky Service Pack alebo co ?
Alebo mam zabudnut na zlucovanie menu ?

D5 Prof., W2000 aj W95.

Dik za kazdu radu.
Stano.

----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting

Text otvoreneho wordu

[*] Roland Turcan <rolo(zv)sedas.sk> - 19.8.2002 13:21:04

Hello Delphi CZ konferencia!

V okne si otvaram Word na editovanie dokumentu a ked by nahodov
uzivatel sa vratil do mojej aplikacie aby nemohol zatvorit okno ked je
otvoreny Word tak sa snazim tento kod v CloseEvent aplikovat:

if WA.Visible then
begin
WA.Activate;
Action := caNone;
Exit;
end;

ale ak je okno wordu zatvorene este pred poziadavkov zatvorenia okna
tak Word.Exe ani nebezi, ale pri teste WA.Visible sa spusti proces
Word.exe vrati False a uz musim za tym davat toto aby zase proces
word.exe ukoncilo:
WD.Disconnect;
WA.Quit;
WA.Disconnect;

Nezda sa mi to celkom normalne alebo to je proste tak ?


--
Best regards, TRoland

IB/FB jako lokalni DB stroj

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 19.8.2002 13:38:54

----- Original Message -----
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> v posledni dobe jsem hledal nejakou vhodnou lokalni DB a nakonec jsem dosel
> k zaveru, ze jedine uspokojive reseni by mohla byt IB, ktera by se dala
> spoustet
> jako lokalni stroj spolu s aplikaci bez instalace serveru a bez pripadnych
> kolizi s jiz nainstalovanym beznym IB/FB serverem.
>
> Nezabyval se nekdo takovou upravou open source IB/FB?
> Potrebuji to jen pro platformu M$.

Pred casem jsem na vlastni oci videl prelozenou klientskou knihovnu
gdslib.so (totez co gds32.dll jenze na Linuxu), ktera v sobe mela
zakompilovany cely server takze se nemusel instalovat a jelo to velice
pekne, jenze po ukonceni aplikace ktera tu knihovnu pouzivala
doslo k poruseni databaze. Kolega toho dosahl na Linuxu pouhym
nastavenim symbolu podmineneho prekladu. Protoze to byla ale
slepa cesta, nepokracovali jsme v pokusech.

Martin Schayna

FB - table rename ?

[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 19.8.2002 14:59:33

Ahoj,

potrebuji pridat do tabulky jedno pole. Coz neni problem.
Ale rad bych jej umistil na treti posici, tak jsem si rikal, DROPnu
vsechny SP a TRIGGERy, dam RENAME table, vytvorim novou tabulku
se vsemi SP znovu, presypu data ze stare tabulky do nove a nakonec
DROPnu i puvodni tabulku.

Jenze SQL syntaxe RENAME (zrejme) nezna. Takze se zda, ze to budu
muset vyresit pres treti, pomocnou tabulku.

Napada mne jeste ulozit data do scriptu, ale jedno pole je
VARCHAR(8192), coz bude sranda.

Rad bych se zeptal jak podobne problemy resite vy.

Dekuji za pripadne namety,

preji hezky den,

Jarek Uher


Fatal Error] Internal error L1496

[*] Martin Valach <vachix(zv)centrum.sk> - 19.8.2002 15:01:42

Zdravim Vas,

niekedy ked otvorim projekt v delphi a hned ho spustim,
vypise mi tuto hlasku "[Fatal Error] Internal error L1496".
Ked dam Build All a spustim, vsetko ide.
Neviete v com to je ?

dik

D5 prof. UP1, W2000CZ

martin

FB - table rename ?

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 19.8.2002 15:21:57

> Ahoj,
>
> potrebuji pridat do tabulky jedno pole. Coz neni problem.
> Ale rad bych jej umistil na treti posici, tak jsem si rikal, DROPnu
> vsechny SP a TRIGGERy, dam RENAME table, vytvorim novou tabulku
> se vsemi SP znovu, presypu data ze stare tabulky do nove a nakonec
> DROPnu i puvodni tabulku.
>
> Jenze SQL syntaxe RENAME (zrejme) nezna. Takze se zda, ze to budu
> muset vyresit pres treti, pomocnou tabulku.
>
> Napada mne jeste ulozit data do scriptu, ale jedno pole je
> VARCHAR(8192), coz bude sranda.
>
> Rad bych se zeptal jak podobne problemy resite vy.
>
> Dekuji za pripadne namety,

ALTER TABLE tabulka ADD pole domena
ALTER TABLE tabulka ALTER pole POSITION n;

Roman
==============================
http://kouzelne.misto(tec)cz

FB - table rename ?

[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 19.8.2002 15:26:38

K cemu to je dobry mit pole na 3. pozici? To kdybych mel delat neco
podobnyho pri kazdym pridani pole tak umru :)

Jakub Dusek

-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------

Monday, August 19, 2002, 2:59:33 PM, you wrote:

JU> Ahoj,

JU> potrebuji pridat do tabulky jedno pole. Coz neni problem.
JU> Ale rad bych jej umistil na treti posici, tak jsem si rikal, DROPnu
JU> vsechny SP a TRIGGERy, dam RENAME table, vytvorim novou tabulku
JU> se vsemi SP znovu, presypu data ze stare tabulky do nove a nakonec
JU> DROPnu i puvodni tabulku.

JU> Jenze SQL syntaxe RENAME (zrejme) nezna. Takze se zda, ze to budu
JU> muset vyresit pres treti, pomocnou tabulku.

JU> Napada mne jeste ulozit data do scriptu, ale jedno pole je
JU> VARCHAR(8192), coz bude sranda.

JU> Rad bych se zeptal jak podobne problemy resite vy.

JU> Dekuji za pripadne namety,

JU> preji hezky den,

JU> Jarek Uher

FB - table rename ?

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.8.2002 15:28:27

a proc ten sloupec proste nepridas pomoci alter table?
druhym alterem ho posunes na treti pozici, kdyz uz to mysy byt :o)
precti si dokumentaci, nebo jestli neumis anglicky, tak
napis jak vypada ta tabulka a co tam chces pridat.

peca

FB - table rename ?

[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 19.8.2002 15:45:40

Ahoj,

On 19 Aug 2002 at 15:26, Jakub Dusek wrote:

> K cemu to je dobry mit pole na 3. pozici? To kdybych mel delat neco
> podobnyho pri kazdym pridani pole tak umru :)

protoze mam rad poradek a u vsech tabulek podobnou strukturu
(nejprve ID, pote pole odkazujici na jine tabulky, pole vlastni tbl. a
nakonec info pole o uzivateli a update tbl.)

Pokud zacnu uz na serveru mit 'chaos', jak to muze pokracovat na
klientovi. A co kolegove, ti by mne potom utloukli.
Zacal jsem delat ten script.

Jarek Uher

>
> Monday, August 19, 2002, 2:59:33 PM, you wrote:
>
> JU> Ahoj,
>
> JU> potrebuji pridat do tabulky jedno pole. Coz neni problem.
> JU> Ale rad bych jej umistil na treti posici, tak jsem si rikal,
> DROPnu JU> vsechny SP a TRIGGERy, dam RENAME table, vytvorim novou
> tabulku JU> se vsemi SP znovu, presypu data ze stare tabulky do nove a
> nakonec JU> DROPnu i puvodni tabulku.
>
> JU> Jenze SQL syntaxe RENAME (zrejme) nezna. Takze se zda, ze to budu
> JU> muset vyresit pres treti, pomocnou tabulku.
>
> JU> Napada mne jeste ulozit data do scriptu, ale jedno pole je
> JU> VARCHAR(8192), coz bude sranda.
>
> JU> Rad bych se zeptal jak podobne problemy resite vy.
>
> JU> Dekuji za pripadne namety,
>
> JU> preji hezky den,
>
> JU> Jarek Uher
>
>

TRichEdit,PlainText a font

[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 19.8.2002 15:57:27

Po nacteni textu do TRichEdit zavolej
RichEdit.DefAttributes.Name := DefFontData.Name; //nastavi na MS Sans
Serif
RichEdit.DefAttributes.Size := -MulDiv(DefFontData.Height, 72,
Screen.PixelsPerInch);

Libor

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Bohdan Voska
Sent: Monday, August 19, 2002 9:15 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: TRichEdit,PlainText a font


Ahoj,

mam problem s nacitanim textu do TRichEdit. Chtel bych nejak ovlivnit font a
velikost fontu, kterym se ma nacist text do TRichEdit. V konferenci jsem se
neco docetl o fixed fontu, ale nezjistil jsem kde se nachazi a jak ho
zmenit.Nasmerujte me prosim jak mohu tento font zmenit.

Bohdan Voska


Re[2]: FB - table rename ?

[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 19.8.2002 16:00:07

Monday, August 19, 2002, 3:45:40 PM, you wrote:

JU> Ahoj,

JU> On 19 Aug 2002 at 15:26, Jakub Dusek wrote:

>> K cemu to je dobry mit pole na 3. pozici? To kdybych mel delat neco
>> podobnyho pri kazdym pridani pole tak umru :)

JU> protoze mam rad poradek a u vsech tabulek podobnou strukturu
JU> (nejprve ID, pote pole odkazujici na jine tabulky, pole vlastni tbl. a
JU> nakonec info pole o uzivateli a update tbl.)

JU> Pokud zacnu uz na serveru mit 'chaos', jak to muze pokracovat na
JU> klientovi. A co kolegove, ti by mne potom utloukli.
JU> Zacal jsem delat ten script.

No my to mame uplne stejne, vcetne tech poli o update a uzivateli,
zacal jsem te podezrivat jestli nedelas u stejny firmy :) Ovsem takhle
je zalozena jen zakladni struktura, dalsi pole ktery se pridavali za
behu se netridi. Na serveru to mozna pak neni prehledne, ale jasne
vidis v jakem poradi se pridavali dalsi pole, cili na prvni pohled
vidis co je noveho. No a na klientu je poradi poli na serveru uplne
jedno, stejne si uzivatel setridi pole podle sebe. Trideni ma asi neco
do sebe, otazka je jak dlouho te to bude bavit :))

JU> Jarek Uher

Jakub Dusek

FB - table rename ? - Vyreseno

[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 19.8.2002 17:34:49

On 19 Aug 2002 at 15:28, Petr Palicka wrote:

> a proc ten sloupec proste nepridas pomoci alter table?
> druhym alterem ho posunes na treti pozici, kdyz uz to mysy byt :o)
> precti si dokumentaci, nebo jestli neumis anglicky, tak napis jak

anglicky snad umim, ale
ALTER TABLE tabulka ALTER pole POSITION n; (viz
Roman)
jsem neznal a tim padem ani nehledal (a ze jsem se v ni
dnes "hrabal").

Jak snadne :-)))

Diky moc,

Jarek U.

showmessage vzdy na vrchu

[*] Martina Bejvlova <mabej(zv)seznam(tec)cz> - 19.8.2002 18:46:30

Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a
tak), nebo muzu mit i vlastni program na liste. Timerem testuju jednu
udalost a potrebuju,aby o ni informovala uzivatele, at ma spusteno co
chce.
Zkousela jsem podle rady, kterou jsem tady nasla:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE) ;

Ale to nepomohlo,porad byl nahore Excel. Uz jsem nad tim stravila
dobre dve hodiny hledani v nejruznejsich helpech, takze jsem dychtiva
po kazde dobre rade... Diky Martina

______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz

showmessage vzdy na vrchu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 18:56:17

From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
> Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
> showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
> aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a

Application.MessageBox('Text', 'Chyba', MB_OK or MB_ICONERROR or MB_TOPMOST);

v priade formulare pak TForm.FormStyle = fsStayOnTop

Petr Vones

Test otvoreneho wordu

[*] Roland Turcan <rolo(zv)sedas.sk> - 19.8.2002 19:01:43

<<< 19. 8. 2002 19:01 - Roland Turcan "rolo(zv)sedas.sk" >>>
Opravujem iba %subj%

--
Best regards, TRoland

Jak provedu zapis do registru?

[*] PETR Va�eka <pvareka(zv)mujmejl(tec)cz> - 19.8.2002 19:25:29

Marne jsem v Delphi 6 hledal komponentu nebo funkci umoznujici zapis dat do
registru a naopak jejich cteni z registru. Muzete mi poradit?

Jak provedu zapis do registru?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.8.2002 19:30:50

From: "PETR Va�eka" <pvareka(zv)mujmejl(tec)cz>
> Marne jsem v Delphi 6 hledal komponentu nebo funkci umoznujici zapis dat do
> registru a naopak jejich cteni z registru. Muzete mi poradit?

Trida TRegistry, viz help

Petr Vones

Tiskove sestavy

[*] Jan Jochman <Jan.Jochman(zv)ais(tec)cz> - 19.8.2002 19:56:08

Zdravim vespolek,
potrebuji vytvaret nekolikastrankove tiskove vystupy. Vzdycky je prvni nejaka uvodni stranka, za tim nasleduji nejake
komplikovanejsi sestavy ( ne vzdy stejne ). Urcite existuje nejaky generator sestav, ktery to zvlada, ale jsou jich desitky a nemam
cas je vsechny testovat. V Sineai se mi to nepodarilo.
Nevite nekdo o necem co to zvlada?

Honza Jochman

showmessage vzdy na vrchu

[*] Jirka Virt <virt(zv)volny(tec)cz> - 19.8.2002 20:19:24

MessageBoxEx(Application.Handle,'Text','Caption',MB_OK+OB_ICONWARNING,Lang_C
zech);


Jirka Virt

email: virt(zv)volny(tec)cz


----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 19, 2002 6:46 PM
Subject: showmessage vzdy na vrchu


Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a
tak), nebo muzu mit i vlastni program na liste. Timerem testuju jednu
udalost a potrebuju,aby o ni informovala uzivatele, at ma spusteno co
chce.
Zkousela jsem podle rady, kterou jsem tady nasla:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE) ;

Ale to nepomohlo,porad byl nahore Excel. Uz jsem nad tim stravila
dobre dve hodiny hledani v nejruznejsich helpech, takze jsem dychtiva
po kazde dobre rade... Diky Martina

______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz

FB - INSERT INTO

[*] J�n Harman <harman(zv)atlas(tec)cz> - 19.8.2002 20:45:43

Ahoj, prosim Vas zacinam v FB a dela mi to nasledujici vec:

Vytvorim tabulku:
TIBSQL.SQL.Add('CREATE TABLE UZIVATELE (....)');
TIBSQL.ExecQuery;
TIBSQL.SQL.Clear;
TIBSQL.SQL.ADD('CREATE GENERATOR XXXX');
TIBSQL.ExecQuery;
TIBSQL.SQL.Clear;
TIBSQL.SQL.ADD('INSERT INTO UZIVATELE (.....)');
TIBSQL.ExecQuery; >>> A tady mi to hodi chybu ze takovou
tabulku nezna. Co delam spatne? Diky moc, trapim se s tim uz pul dne.

FB - INSERT INTO

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.8.2002 21:08:19

ahoj,

asi to bude chtit potvrtid zmenu v metadatech.
tedy:

TIBSQL.Commit;
TIBSQL.StartTransaction;
teprve ted INSERT...


peca

Jak provedu zapis do registru?

[*] J�n Harman <harman(zv)atlas(tec)cz> - 19.8.2002 21:09:03

Podivej se do helpu na TRegistry.
Honza.> Marne jsem v Delphi 6 hledal komponentu nebo funkci umoznujici zapis dat
do
> registru a naopak jejich cteni z registru. Muzete mi poradit?
>
>

FB - INSERT INTO

[*] J�n Harman <harman(zv)atlas(tec)cz> - 19.8.2002 21:15:56

Vyzkousel jsem to ale TIBSQL nema metodu Commit, tak jsem toto udelal pres
ibTransaction a funguje. Super. Dik. Honza.

ahoj,

asi to bude chtit potvrtid zmenu v metadatech.
tedy:

TIBSQL.Commit;
TIBSQL.StartTransaction;
teprve ted INSERT...


peca

FB - INSERT INTO

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.8.2002 21:36:58

> Vyzkousel jsem to ale TIBSQL nema metodu Commit, tak jsem
> toto udelal pres
> ibTransaction a funguje. Super. Dik. Honza.

jasne, sorry :o)

jinak by to melo jit:
TIBSQL.Transaction.Commit;

psal jsem to z hlavy.

peca

showmessage vzdy na vrchu

[*] TVRZ Miroslav jr. <MIRA_Delphi(zv)seznam(tec)cz> - 19.8.2002 22:16:00

Zkus napr. tohle:

// vrzne aplikaci nad vsechny ostatni, ale zanecha modalni dialogy nad
sebou
Application.NormalizeTopMosts;

// souvisi s predchozim prikazem - vsechny okna jsou pod timhle, ale
formular
// program nema focus nad ostatnimi
SetWindowPos(DigitalkyFrm.Handle,
HWND_TOPMOST,
0,
0,
0,
0,
SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);

MI'RA


-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jirka Virt
Sent: Monday, August 19, 2002 8:19 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: showmessage vzdy na vrchu


MessageBoxEx(Application.Handle,'Text','Caption',MB_OK+OB_ICONWARNING,Lang_C
zech);


Jirka Virt

email: virt(zv)volny(tec)cz


----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 19, 2002 6:46 PM
Subject: showmessage vzdy na vrchu


Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a
tak), nebo muzu mit i vlastni program na liste. Timerem testuju jednu
udalost a potrebuju,aby o ni informovala uzivatele, at ma spusteno co
chce.
Zkousela jsem podle rady, kterou jsem tady nasla:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE) ;

Ale to nepomohlo,porad byl nahore Excel. Uz jsem nad tim stravila
dobre dve hodiny hledani v nejruznejsich helpech, takze jsem dychtiva
po kazde dobre rade... Diky Martina

______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz


showmessage vzdy na vrchu

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 20.8.2002 01:32:41

Zdravim

Pokud chces mit nahore Form, tak nastav FormState = fsStayOnTop. Na soukromy
mail posilam genialni utilitku na praci s messageboxem.

Zdenek

----- Original Message -----

Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a
tak), nebo muzu mit i vlastni program na liste. Timerem testuju jednu
udalost a potrebuju,aby o ni informovala uzivatele, at ma spusteno co
chce.
Zkousela jsem podle rady, kterou jsem tady nasla:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE) ;

Ale to nepomohlo,porad byl nahore Excel. Uz jsem nad tim stravila
dobre dve hodiny hledani v nejruznejsich helpech, takze jsem dychtiva
po kazde dobre rade... Diky Martina

komprimace db acces

[*] Erik Salaj <winsoft(zv)stonline.sk> - 20.8.2002 03:53:02

> poradte proosim jak z D5 zkomprimovat Accesovskou DB.

pomocou JRO, pozri http://msdn.microsoft.com

Erik

Komponenta na tabulku

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.8.2002 06:28:50

19.8.2002 Martin Kozusky:
>>> neznate nekdo komponentu, ktera se podoba te v priloze?

>> StringGrid s uzivatelskym vykreslovanim pres OwnerDraw

> Neslo by to trochu rozvest :) bohuzel nejsem zase takovy expert :(

Priklad posilam na soukromy e-mail

--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

InnoSetup a instalace BDE

[*] Karel Dusek <Karel.Dusek(zv)oku-tu(tec)cz> - 20.8.2002 06:40:19

Pro instalaci BDE a programu jsem pouzival InstallShield Express, ktery
instaloval BDE bez dotazu na cokoliv.

K.D.

----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 19, 2002 12:18 PM
Subject: InnoSetup a instalace BDE


ahoj,

zkousim nainstalovat BDE pomoci InnoSetupu.
asi to funguje dobre, ale pri instalaci BDE se to
pta na cestu kam se ma BDE nainstalovat. potreboval
bych to skryt a nechat do implicitniho adresare, pac
jeto jednak v anglictine a druhak uzivatl v tu chvili
nechape co se deje.

jak to mamte reseny vy? sice budu BDE v pristi
versi SW opoustet, ale ted to vyresit musim k naproste
spokojenosti sefa ;o)

dekuji

peca

InnoSetup a instalace BDE

[*] EFG developer <developer(zv)efg(tec)cz> - 20.8.2002 06:53:54

> zkousim nainstalovat BDE pomoci InnoSetupu.

Ja jsem v InstallShieldu vytvoril .msi modul, ktery jsem pak tise
instaloval v InnoSetupu. Instalace .msi baliku je mnohokrat popisovana
na webu.

[RUN]
;instalace BDE
Filename: msiexec.exe; Parameters: "-i ""{src}\bde.msi"" -qn";
WorkingDir: "{src}\"; StatusMsg: "Instaluji BDE..."


Petr Sikola

PS: jediny problem jsem mel s instalaci driveru ma mssql, ten jsem
bohuzel musel k BDE prikopirovat rucne a rucne udelat i zmenu v
reistrech, protoze jsem to proste nedonutil a by se to tise
nainstalovalo i s timto driverem, normalne to slo ale tise proste ne.

Pracuje HDD?

[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 20.8.2002 06:58:23

Zdravim,
poradte mi, jak to udelat pres sledovani systemu. Tato moznost
me take napadla, ale nevim jak to realizovat.

Diky. S pozdravem Martin Novak.
______________________________________________________________
> Od: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:
> Datum: Mon, 19 Aug 2002 11:43:04 +0200
> P�edm�t: Re: Pracuje HDD?
>
> Zdravim
>
> Muzu jenom potvrdit. O LED, ktera je napojena na desku se stara
radic na
> desce a o LED, ktera je na disku, ze zase stara samotny radic
disku. To je
> jeho interni zalezitost. Jedine reseni co me napada, je
sledovat prutok dat
> (sledovani systemu to umi, tak by to melo nejak jit) a pri
prekroceni urcite
> hranice bys to detekoval jako ze disk pracuje.
>
> Na ASM zapomen. Jedine jeho vyuziti je dneska stale jeste ve
cteni a zapis
> portu pod 9x, jeste ze to funguje s malou berlickou (UserPort)
i na NT, bez
> toho bych byl nametenej.
>
> Zdenek
> ----- Original Message -----
>
> > Obavam se, ze to nepujde, aspon ne jednoduse. O LED se stara
primo
> > radic disku. Nevim o tom, �e by se o tom pos�laly syst�mu
n�jak� zpr�vy.
> > A na primy pristup na porty na WinNT zapomen.
>
> > > Potrebuji v delphi zjistit, zda pracuje HDD. Zapis i cteni.
> > > Cteni kontrolky HDD.
> > > Nev� n�kdo adresu LED HDD? V cistem Delphi to asi nepujde,
ale
> > > co takhle cast v ASM?
>


--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz

pomaly SendMessage a PostMessage

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 20.8.2002 07:02:44

Cau
Mam v aplikaci svuj thread ze ktereho posilam do hlavniho threadu (okna)
message, ktera spusti proceduru v hlavnim threadu. Tato procedura trva
max 15ms. Co me vsak zarazilo je to jak dlouho trva provedeni
SendMessage a dokonce i PostMessage - 140 ms (Athlon XP 1200MHz) ???
Mereno to je pomoci GetTickCount. Tohle je pro me ale nepouzitelne,
nebot volam v jednom pruchodu threadem SendMessage nebo PostMessage
celkem 5x tj. zpozdeni 700ms a tech pruchodu tam je napr. 200.

Nevite jak to udelat jinak (nebo pouzit TThread + synchronize pro
pousteni procedur z hlavniho threadu ) ???


Milos

Tiskove sestavy

[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.8.2002 07:57:56

Ahoj,
zkus FastReport www.fastreport.ru

Jirka

>Zdravim vespolek,
>potrebuji vytvaret nekolikastrankove tiskove vystupy. Vzdycky je prvni nejaka uvodni
>stranka, za tim nasleduji nejake
>komplikovanejsi sestavy ( ne vzdy stejne ). Urcite existuje nejaky generator sestav, ktery >to zvlada, ale jsou jich desitky a
nemam
>cas je vsechny testovat. V Sineai se mi to nepodarilo.
>Nevite nekdo o necem co to zvlada?

>Honza Jochman

InnoSetup a instalace BDE

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.8.2002 08:49:30

ahoj,

nakonec jsem v news k inno setupu nasel odkaz
na utilitku AutoIt ( http://www.hiddensoft.com/AutoIt/ ).
a ukazkovy skriptik pro ni, ktery odklape ty OK, YES
apod buttony behem instalace BDE z BDEInst.DLL.
AutoIt ma nastroj, ktery z jeho *.aut skriptu vytvori EXE,
ten se pak spusti v {tmp} misto puvodniho MiniReg.exe.
pokud by nekdo mel zajem, muzu nekam uploadnout.

peca

InnoSetup a instalace BDE

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.8.2002 08:54:59

UG91emUgZGVqIHBvem9yIG5hIHRvLCCeZSBzZSB0aSB07W10byB6cPlzb2JlbSBuZW5haW5zdGFs
dWppIFNRTA0KbGlua3kuDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFA
aW9sLmN6DQoNCjIwLjguMjAwMiBQZXRyIFBhbGlja2E6DQo+ICAgbmFrb25lYyBqc2VtIHYgbmV3
cyBrIGlubm8gc2V0dXB1IG5hc2VsIG9ka2F6DQo+IG5hIHV0aWxpdGt1IEF1dG9JdCAoIGh0dHA6
Ly93d3cuaGlkZGVuc29mdC5jb20vQXV0b0l0LyApLg0KPiBhIHVrYXprb3Z5IHNrcmlwdGlrIHBy
byBuaSwga3Rlcnkgb2RrbGFwZSB0eSBPSywgWUVTDQo+IGFwb2QgYnV0dG9ueSBiZWhlbSBpbnN0
YWxhY2UgQkRFIHogQkRFSW5zdC5ETEwuDQo+IEF1dG9JdCBtYSBuYXN0cm9qLCBrdGVyeSB6IGpl
aG8gKi5hdXQgc2tyaXB0dSB2eXR2b3JpIEVYRSwNCj4gdGVuIHNlIHBhayBzcHVzdGkgdiB7dG1w
fSBtaXN0byBwdXZvZG5paG8gTWluaVJlZy5leGUuDQo+ICAgcG9rdWQgYnkgbmVrZG8gbWVsIHph
amVtLCBtdXp1IG5la2FtIHVwbG9hZG5vdXQu

Tray icon

[*] Pavel <delphi(tec)cz(zv)seznam(tec)cz> - 20.8.2002 10:21:20

Dobry den.

Chtel bych udelat svemu programu moznost minimalizovani do tray icony.
Potreboval bych poradit jak to realizovat.
Kdyz by uzivatel meho programu m�l v nastaveni zaskrtnuty check box, tak
by se mu po zmacknuti na tlacitko minimalizovat program stahnul do tray
icony. Kdyby check box zaskrtnuty nemel, tak by se program zminimalizoval
standartne na listu.

Pokud mi chcete poradit nejakou komponentu. Popiste mi prosim jak ji pouzit.

Predem dekuji za odpovedi... Punjab

Tvorba PDF a cestina

[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 20.8.2002 10:27:21

Ahoj,

prohlizim si FreeReport a libi se mi moznost exportu do PDF,
bohuzel se mi nepodarilo do vytvoreneho PDF souboru dostat cestinu.
Vim, ze se to zde jiz diskutovalo, ale v archivu jsem reseni nenasel.


Muze mi nekdo poradit?
Pomuze instalace a pouziti fontu Adobe ?


Diky Pavel

( Win98 SE, D6, Up2, FreeReport 232, FR_E_TNPDF, PowerPDF)

ADO a prepinac Prepare - nefunguje.

[*] pilifs <pilifs(zv)seznam(tec)cz> - 20.8.2002 10:35:13

Hello Delphi,

muzete mi poradit proc mi nejde zrusit volani pres ADO na MSSQL2000
tak, aby nebylo pouzito pro kazdy prikaz "sp_prepare" (cpe mi to jak do
selectu tak do volani procedur).
Pouzivam TADODataSet a Prepared = False. ADOConnection si sestavuju
programove timto zpusobem:

with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
try
Result := 'Provider=SQLOLEDB.1';
Result := Result + ';Persist Security Info=False';
Result := Result + ';Initial Catalog=' + ReadString('Main','Initial Catalog','Algis');
Result := Result + ';Data Source=' + ReadString('Main','Data Source','Algis_Comp');
Result := Result + ';Use Procedure for Prepare=1';
Result := Result + ';Auto Translate=True';
Result := Result + ';Packet Size=4096';
Result := Result + ';Use Encryption for Data=False';
Result := Result + ';Tag with column collation when possible=False';
Result := Result + ';Application Name=' + Application.Title + ' - ' + GetUserWindows;
finally
Free;
end;

Zkousel jsem menit hodnotu v "Use Procedure for Prepare=1", ale
vysledek byl stejny. Pri tom kdyz to vyzkousim z Designe modu tak vse
funguje tak jak chci.

D5Ent, W2000, MSSQL2000

Diky Lada.

--
Best regards,
pilifs mailto:pilifs(zv)seznam(tec)cz

OT: Testovani TCP/IP komunikace

[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 20.8.2002 10:39:24

Ahoj,

omlouvam se za OT, ale nalehave potrebuji nejaky hotovy SW (nejlepe
free/share okamzite ke stazeni) na testovani komunikace mezi dvema pocitaci
propojenymi NETem. Potrebuji testovat nejen pruchodnost, ale i rychlost
prenosu (dlouhodobe a pokud mozno s nejakym reportem). Mame problemy s
konektivitou IOL-Nextra a nikdo se k tomu nechce znat.

Odpovedi klidne i muj mail, specha to.

Predem diky za tipy.

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

komprimace db acces

[*] Houzvicka Jan <houzvickaj(zv)threeman(tec)cz> - 20.8.2002 10:43:10

[P��loha v souboru: winmail.dat]
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
poradte proosim jak z D5 zkomprimovat Accesovskou DB.
Diky Honza

showmessage vzdy na vrchu

[*] <tuffi(zv)email(tec)cz> - 20.8.2002 10:44:17

Ahoj, bringtofront nepomaha?
----- Original Message -----

Prosim, nevi nejaky schopnejsi programator, jak udelat to, aby se mi
showmessage (a nebo klidne i cely form1) zobrazil i pres jinou
aplikaci? Mam pres vlastni program spustene i jine aplikace (Excel a
tak), nebo muzu mit i vlastni program na liste. Timerem testuju jednu
udalost a potrebuju,aby o ni informovala uzivatele, at ma spusteno co
chce.
Zkousela jsem podle rady, kterou jsem tady nasla:
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE) ;

Ale to nepomohlo,porad byl nahore Excel. Uz jsem nad tim stravila
dobre dve hodiny hledani v nejruznejsich helpech, takze jsem dychtiva
po kazde dobre rade... Diky Martina

______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!

VYRESENO: Jak poslat stisk hotkey do cizi aplikace

[*] <tuffi(zv)email(tec)cz> - 20.8.2002 10:48:32

Pres FindWindow

--- P�vodn� zpr�va ---
Od: tomsir1.edu(zv)mail.cez(tec)cz
Datum: 19.08.2002 14:27:27



OK, potreboval bych jeste poradit, jak zjistim handle okna, kdyz znam jen
nazev spusteneho souboru, napr. notepad.exe

Diky Radek


______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!

Tiskove sestavy

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.8.2002 10:52:59

> Zdravim vespolek,
> potrebuji vytvaret nekolikastrankove tiskove vystupy. Vzdycky je prvni
nejaka uvodni stranka, za tim nasleduji nejake
> komplikovanejsi sestavy ( ne vzdy stejne ). Urcite existuje nejaky
generator sestav, ktery to zvlada, ale jsou jich desitky a nemam
> cas je vsechny testovat. V Sineai se mi to nepodarilo.
> Nevite nekdo o necem co to zvlada?

Nevim, jak komplikovane maji byt ty komplikovanejsi sestavy, ale to snad
neni problem v zadnem generatoru vytisknout uvodni stranu a za ni zbytek...
V Sineai bych si asi udelal tu uvodni stranku jako zvlastni sestavu.

Roman
==============================
http://kouzelne.misto(tec)cz

InnoSetup a instalace BDE

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.8.2002 10:57:06

> Pouze dej pozor na to, �e se ti t�mto zp�sobem nenainstaluji SQL
> linky.

SQLlinks nepotrebuju, jenom pro upresneni,
nemuzu tim nekomu zrusit jeho instalaci se
SQLlinks? myslim, ze by to vadit nemelo, ale
jestli nekdo mate opacnou zkusenost, rad se
poucim vcas.

dik

peca

graficke knihovny pro nacitani (konverzi) dalsich

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.8.2002 11:05:20

ahoj,

potreboval bych nacitat nebo alespon mit moznost
primo z aplikace konvertovat do BMP graficke formaty:
DGN, TIFF, CIT, GIF, JPEG.
AFAIK, JPEG a GIF by mel jit s tim, co je v DELPHI,
alespon JPEG jsem uz nekdy delal, ale co ty dalsi?
Knihovna muze byt placene, ale aby se s ni v delphi
dobre delalo. Nejlepe se zdroji v pascalu, idealne
free, ale neni podminkou.
Pokud by knihovna obsahovala i nejake vizualizacni
funkce, bylo by to asi fajn. Pocitam se zobrazenim
obrazku az 13000x13000 pixelu (1bit) velkych a potrebuju
na (nad) ne vykreslovat vlastni grafiku (vektory) ve
vice nez 16-ti barvach. Podpora tisku grafiky vitana.

dekuji peca

Tiskove sestavy

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.8.2002 11:24:52

> From: Roman
>
> Nevim, jak komplikovane maji byt ty komplikovanejsi sestavy,
> ale to snad neni problem v zadnem generatoru
> vytisknout uvodni stranu a za ni zbytek...
> V Sineai bych si asi udelal tu uvodni stranku
> jako zvlastni sestavu.

Uvodni stranka se v Sinee dela pomoci oddilu
zacatku sestavy s nastavenym priznakem
Odstrankovat po zacatku sestavy.

Neni duvod to delat jako zvlastni sestavu.

Vaclav Krmela

Tiskove sestavy

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.8.2002 11:32:11

> > Nevim, jak komplikovane maji byt ty komplikovanejsi sestavy,
> > ale to snad neni problem v zadnem generatoru
> > vytisknout uvodni stranu a za ni zbytek...
> > V Sineai bych si asi udelal tu uvodni stranku
> > jako zvlastni sestavu.
>
> Uvodni stranka se v Sinee dela pomoci oddilu
> zacatku sestavy s nastavenym priznakem
> Odstrankovat po zacatku sestavy.
>
> Neni duvod to delat jako zvlastni sestavu.

Jasne, ale ja to myslel takhle: mam-li 100 ruznych sestav se stejnou uvodni
stranou, dal bych si tu uvodni stranu zvlast z toho duvodu, ze kdybych ji
chtel nekdy prikraslit, tak at to nemusim delat 100x :-)

Roman
==============================
http://kouzelne.misto(tec)cz

IB/FB jako lokalni DB stroj

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 20.8.2002 11:38:23

Haj hou!

On 19 Aug 2002 at 13:38, Martin Schayna wrote:

> ----- Original Message -----
> From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> > v posledni dobe jsem hledal nejakou vhodnou lokalni DB a nakonec jsem dosel
> > k zaveru, ze jedine uspokojive reseni by mohla byt IB, ktera by se dala
> > spoustet
> > jako lokalni stroj spolu s aplikaci bez instalace serveru a bez pripadnych
> > kolizi s jiz nainstalovanym beznym IB/FB serverem.
> >
> > Nezabyval se nekdo takovou upravou open source IB/FB?
> > Potrebuji to jen pro platformu M$.
>
> Pred casem jsem na vlastni oci videl prelozenou klientskou knihovnu
> gdslib.so (totez co gds32.dll jenze na Linuxu), ktera v sobe mela
> zakompilovany cely server takze se nemusel instalovat a jelo to velice
> pekne, jenze po ukonceni aplikace ktera tu knihovnu pouzivala
> doslo k poruseni databaze. Kolega toho dosahl na Linuxu pouhym
> nastavenim symbolu podmineneho prekladu. Protoze to byla ale
> slepa cesta, nepokracovali jsme v pokusech.

Mno, jenze to byl SuperServer :-) Jinak Classic funguje prave timto zpusobem,
t.j. 1MB velka dll/so knihovna, ktera se linkuje do adresniho prostoru
"pidiserveru" (pri vzdalenem pristupu), nebo klientske aplikace (lokalni pristup).
Resenim je tedy Classic pro Windows, ktery bohuzel zatim neni k dispozici
(pouze SS). Funkcni Classic pro Win je pry dostupny pro Yaffil, ale je to za
penize. Borland classic pro win taky delat nebude a v ramci projektu Firebird to
neni prilis prioritni (zabyvala se tim pouze Ann Harrison zhruba pred pul rokem).
IB/FB je tedy (zatim) ze hry.

S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase

JPEG - SaveToClipboard

[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.8.2002 12:25:30

Zdravim.
Nemohu prijit na to, jak jpg obrazek zobrazeny pres TPicture na formu
zkopirovat do Clipboardu.

Zkousel jsem

procedure TFormProdukt.Button6Click(Sender: TObject);
var
MyFormat: Word;
AData: THandle;
APalette: HPALETTE;
begin
if Image1.Picture.Bitmap.Empty
then Exit;
MyFormat := CF_PICTURE; // tady jsem zkousel kde co
Image1.Picture.RegisterClipboardFormat(MyFormat,TJPEGImage);
(Image1.Picture.Graphic as TJpegImage).SaveToClipBoardFormat(MyFormat,
AData, APalette);
ClipBoard.SetAsHandle(MyFormat, AData);
end;

Ovsem bezvysledne.

Predem dik.

Ludek

IB Problem s indexami

[*] dphi_forum(zv)proces.sk - 20.8.2002 12:55:15



Nazdar,

pri databazach (IB6, Win NT, 2000) s hustejsou prevadzkou sa nam obcas
vyskytne problem
- record s unique indexom ma duplicitne hodnoty
- record nema ulozeny index, takze sa k nemu da dostat iba pri PLAN NATURAL
gfix -v -f ....... vrati napr.: Number of index page errors : 9
Po alter index ... inactive/active alebo backup/restore je to ok.

Poznate niekto pricinu/riesenie ?

Dakujem Rudo

FB bez nutnosti instalace celeho serveru

[*] martin.falta(zv)obi.de - 20.8.2002 13:21:30


This is a multi-part message in MIME format.

Ahojte,
vim, ze uz se to tu jednou probiralo, ale v archivu to nemuzu najit (bud
jsem slepej nebo z toho horka nic nevidim :-)). O co mi jde? Mam aplikaci,
kde chci pouzit FB, ale bez nutnosti instalovat server a klienta. Pokud si
dobre vzpominam, tak se tu mluvilo o tom, ze staci nakopirovat gds32.dll a
upravit soubor services. Ale nejak si nevzpominam, jestli je to vsechno
nebo se musi nastavit jeste nekde neco jinyho?

Predem diky

Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147


IMPORTANT NOTICE:

This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.

Autentikace ke nasdilenemu prostredku

[*] Gallina Lukas <Lukas.Gallina(zv)programky(tec)cz> - 20.8.2002 13:31:34

Ahoj.

Potrebuji se autentikovat ke nasdilenemu prostredku. Moje appl je spustena pod uzivatelem, ktery nema pravo pristupu na server k nasdilene slozce - to je zamer kvuli bezpecnosti. Aplikace bude mit nekde ulozene jmeno a heslo a ja potrebuji se pomoci nich overit. Muzete me nekdo nakopnout, neb vubec netusim jak na to.

Pouzivam Delphi 6 personal SP2, WinXP professional.

Diky.


S pozdravem
Lukas Gallina
lukas.gallina(zv)programky(tec)cz
www.programky(tec)cz

Pracuje HDD?

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 20.8.2002 13:34:59

Zdravim

Tusim ze na to je OCX komponenta SysMeter. Pracovat jsme s ni ale nezkousel.
Zkus ji naimportovat, ale musis mit nainstalovany SysMeter jako takovy.

Nebo zkus najit komponentu na torry nebo programmersheaven.

Zdenek

----- Original Message -----

> poradte mi, jak to udelat pres sledovani systemu. Tato moznost
> me take napadla, ale nevim jak to realizovat.

komprimace db acces

[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 20.8.2002 13:43:09

> poradte proosim jak z D5 zkomprimovat Accesovskou DB.

http://www.delphi(tec)cz/soubor.asp?rok=2000&mesic=dec&den=07&soubor=dlfaaabe.ht
m

Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.

Tray icon

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 20.8.2002 13:49:13

Zdravim

Samozrejme to jde i jinak, ale ja to delam takhle:

Potrebujes balik komponent RX. Oficialni stranky uz tusim nejsou, ale na
netu se to da najit, nebo napis do konference, at ti to nekdo posle (pokud
to nenajdes). Na form dej komponenty AppEvents a RxTrayIcon. Do te
si nahraj nejakou ikonu a nastav ji active na false.

Pak nastav takhle procedury:

procedure TForm1.AppEvents1Minimize(Sender: TObject);
begin //provede se pri MINIMIZE
if checkbox1.checked then
begin
rxtrayicon1.active := true;
ShowWindow(Application.Handle, SW_HIDE);
end;
end;

procedure TForm1.AppEvents1Restore(Sender: TObject);
begin //provede se pri RESTORE
if checkbox1.checked then
begin
rxtrayicon1.active := false;
ShowWindow(Application.Handle, SW_SHOW);
end;
end;

procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin //kliknuti na tray ikonu
application.Restore;
end;

Tot vse.

P.S.: Nechci tady suplovat admina, ale psat zpravy v plain textu je jednak
slusnost a za druhe je to tady jediny povoleny format. Podivej se na zdroj
sve zpravy, posilas skoro 3 krat vice textu nez je potreba. Takze si nastav
NASTROJE | MOZNOSTI | ODESILANI | FORMAT ODESILANI POSTY | PROSTY TEXT.

Zdenek

----- Original Message -----

Chtel bych udelat svemu programu moznost minimalizovani do tray icony.
Potreboval bych poradit jak to realizovat.
Kdyz by uzivatel meho programu m�l v nastaveni zaskrtnuty check box, tak
by se mu po zmacknuti na tlacitko minimalizovat program stahnul do tray
icony. Kdyby check box zaskrtnuty nemel, tak by se program zminimalizoval
standartne na listu.

Pokud mi chcete poradit nejakou komponentu. Popiste mi prosim jak ji pouzit.

pomaly SendMessage a PostMessage

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 20.8.2002 13:50:34

Zdravim

Mozna placam, ale pokud mas dva nebo vice threadu v jednom programu, muzes
mezi nima komunikovat mnohem jednoduseji a hlavne spolehliveji nez pres
SendMessage apod. To jsme pouzil na predani zpravy z jednoho programu do
jineho, ale nebouzival bych to uvnitr jednoho programu.

Trochu teorie. Zpravy se radi do fronty ihned po provedeni SendMessage, ale
odesilani z fronty do ciloveho programu se provadi az kdyz skonci aktivni
thread. Tzn, ze pokud volas SendMessage uprostred beziciho threadu, je to
totez, jaky bys to volal az na konci. Da se tomu predejit volanim
Application.ProcessMessages ihned po SendMessage. Zkus to, melo by to
pomoct.

Zdenek

----- Original Message -----

Mam v aplikaci svuj thread ze ktereho posilam do hlavniho threadu (okna)
message, ktera spusti proceduru v hlavnim threadu. Tato procedura trva
max 15ms. Co me vsak zarazilo je to jak dlouho trva provedeni
SendMessage a dokonce i PostMessage - 140 ms (Athlon XP 1200MHz) ???
Mereno to je pomoci GetTickCount. Tohle je pro me ale nepouzitelne,
nebot volam v jednom pruchodu threadem SendMessage nebo PostMessage
celkem 5x tj. zpozdeni 700ms a tech pruchodu tam je napr. 200.

Nevite jak to udelat jinak (nebo pouzit TThread + synchronize pro
pousteni procedur z hlavniho threadu ) ???

Tvorba PDF a cestina

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 20.8.2002 13:50:06

----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> prohlizim si FreeReport a libi se mi moznost exportu do PDF,
> bohuzel se mi nepodarilo do vytvoreneho PDF souboru dostat cestinu.
> Vim, ze se to zde jiz diskutovalo, ale v archivu jsem reseni nenasel.
>
> Muze mi nekdo poradit?
> Pomuze instalace a pouziti fontu Adobe ?

Podle me ne, podle specifikace PDF (ve verzi PDF v1.3 tj. Acrobat Reader 5)
lze zobrazit cestinu pouze tak, ze se fonty pripoji do PDF pomoci sekce /FontFile,
coz vsechny exportni filtry a knihovny pro PDF co jsem videl neumi.

Jedine schudne reseni v tuto chvili je normalni tisk do "driveru" Acrobat Distiller
(za penize) nebo do Ghostscriptu.

Pokud ma nekdo jine reseni, rad se poucim...

Martin Schayna

JPEG - SaveToClipboard

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

From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> Nemohu prijit na to, jak jpg obrazek zobrazeny pres TPicture na formu
> zkopirovat do Clipboardu.

Clipboard.Assign(Picture);

Petr Vones

graficke knihovny pro nacitani (konverzi) dalsich

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.2002 14:44:27

From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> AFAIK, JPEG a GIF by mel jit s tim, co je v DELPHI,
> alespon JPEG jsem uz nekdy delal, ale co ty dalsi?
> Knihovna muze byt placene, ale aby se s ni v delphi
> dobre delalo. Nejlepe se zdroji v pascalu, idealne
> free, ale neni podminkou.

http://www.delphi-gems.com/Graphics.html

Petr Vones

Aplikace s FlashFiler na CD

[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 20.8.2002 14:51:38

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Dedecek
>
> Delam aplikaci s FlashFiler 2 , ktera je spoustena z CD. Data se
> ctou jednak z CD a jednak pracovni soubory jsou na pevnem disku.
> Vse funguje jenom pri ukoncovani programu mi to hlasi chybu FF
> serveru pri zapisu do souboru, chce zapisovat na CD. Pri
> nastaveni IsReadOnly v TffServerEngine na True nejde zapisovat do
> pracovnich souboru, pri False zas je na konci programu zminovana hlaska.
> Dik za radu.
>

Ahoj posilam zpravu z FF konference (mozna Ti to pomuze):

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On

> Puvodni zprava, kterou napsal Ing. Igor Vodi�ka dne 7 Jun 2002:
>
> > Narazil jsem na jeden problem. Mam aplikaci postavenou na FF 2.10.
> > Demoverzi chci spoustet s CD-ROMu. Dokud jsem pouzival FF 2.05, tak vse
> > fungovalo normalne. Funkci GetDriveType() jsem zjistil, ze se aplikace
> > spousti z CD-ROMu a nastavil property
> ffServerEngine1.IsReadOnly na True.
> > Od verze FF 2.10 mi to takto funguje jen na WIN NT, 2000 a XP,
> ale na WIN
> > 98 to hlasi "Exception EffServerException in module ... INTERNAL Error
> > when writing to file [Cesta:\FFSTRAN.CFG, error 5. Pristup byl
> odepren]".
> >
> > Nevite nekde co to muze byt. pritom funkce GetDriveType() nebo
> > GetDriveTypeStr() z JCL spravne detekuje CD-ROM mechaniku. Nevite co je
> > ten soubor FFSTRAN.CFG u verze FF 2.05 to nebylo.
>
> To je nejaky konfiguracni soubor pro transakcni soubor nebo co, novinka
> verze 2.10. Ale IsReadOnly by mel zamezit jeho vytvareni, je divne, ze se
> to pod W98 chova jinak. Zkusim se na to podivat, ale asi by to chtelo
> napsat do newsu TP...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>

Jedina zminka o tomto souboru v ruznych napovedach FF je tato:

FlashFiler 2 allows concurrent transactions per database. Each TffDatabase
component may still have only one active transaction at a time. Each table
may be modified by only one transaction at a time. If a table is currently
locked by a transaction, another transaction needing to modify that table
will wait until the current transaction has finished or until its timeout
expires.

In FlashFiler 1, a client reading a table might encounter data that had been
changed but not committed by a transaction. This is called a dirty read. In
FlashFiler 2, all reads are clean reads. A client sees only clean data or,
if the client is in a transaction, the data that it has modified.

Each file block is marked with the Log Sequence Number (LSN) of the
transaction modifying the block. The transaction manager maintains the
highest LSN for each database, storing the information in a file named
FFSTRAN.CFG.

Ja jsem to prozatim vyresil nasledovne:

1. do datamodulu pred otevrenim databazi jsem dal tento kod

if Z_CDRomu then
begin
ffServerEngine1.IsReadOnly := True;
ffServerEngine1.NoAutoSaveCfg := True;
Database1.ReadOnly := True;
end
else
begin
ffServerEngine1.IsReadOnly := False;
ffServerEngine1.NoAutoSaveCfg := False;
Database1.ReadOnly := False;
end;

2. Soubor FFSTRAN.CFG jsem neumistil na CD (coz jsem pred tim mel).

Takto to prozatim funguje na vsech OS (overeno), krome WIN 95, ktere ve
firme uz nemame.

Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002

pomaly SendMessage a PostMessage

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

From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
> max 15ms. Co me vsak zarazilo je to jak dlouho trva provedeni
> SendMessage a dokonce i PostMessage - 140 ms (Athlon XP 1200MHz) ???

PostMessage pouze vlozi zpravu do fronty a dale na nic neceka. SendMessage
pocka az se zprava zpracuje a zalezi to na tom jake zpravy jsou prave ve
fronte, jak dlouhy je kod ktery se prave vykonava v tom threadu (jako reakce
na zpravu) do jehoz okna si zpravu poslal atd. V zasade se ta doba muze dost
lisit.

> Nevite jak to udelat jinak (nebo pouzit TThread + synchronize pro
> pousteni procedur z hlavniho threadu ) ???

Musis vec navrhnout tak, aby si nebyl zavisly na te synchronizaci pokud je kod
v threadu nejak casove kriticky. Predpokladam ze smysl tech zprav je obnovovat
neco v GUI (nejaky ukazatel, label apod.). V tomto pripade je dobe to resit
asynchronne, kde z toho threadu ve kterem se deje dana akce pouze nekam davas
informace o stavu. Ty pak zpracuje jiny thread, ktery se stara o jejich
zobrazeni (synchronizovane s hlavnim threadem), pricemz vypusti ty zpravy
ktere uz jsou zastarale. Napriklad je-li zobrazovan prubeh akce 0..100% tak
zobrazi prubeh pro 1% (mezitim se z threadu vykonavajici akci ulozi postupne
informace o stavu: 2, 3, 4, 5, 6) takze po navratu ze synchronizovane metody
threadu obsluhujiciho zobrazovani se zahodi informace 2, 3, 4, 5 a zobrazi se
rovnou 6. Samozrejme konkretni implementace zalezi na tom co presne delas.

Petr Vones

tray

[*] Martina Bejvlova <mabej(zv)seznam(tec)cz> - 20.8.2002 15:21:56

Prosim jeste jednou o pomoc. Potrebuju,aby minimalizovany program
bezel v tray.
Prosla jsem historii teto konference a postahovala dle tam uvedenych
rad vsechno, na co jsem narazila. Bohuzel se mi nepovedlo najit a
pouzit tu komponentu v knihovne RX,na kterou je zde uvedeny navod,ani
pouzit TryIcon, kterou mam dokonce uz i nainstalovanou.
Vim ze tohle je trivialita a nekde urcite uz existuje napsany navod i
pro totalni pitomce,kde konkretne najdu neco funkcniho (jmena
serveru, kde je to mozne nalezt mam, ale nic jsem nenasla nebo mi to
nebehalo,takze rada "www.torry.ru" nebo "www.rxlib.com" mi nepomuze)
a hlavne podrobny popis, ja to zabudovat do programu.
Diky
naprosto zoufala Martina
PS: nejhorsi je, ze se divam na jeden muj vlastni asi 3 roky stary
programek, ktery to dela a nemam od nej zdrojak.

______________________________________________________________________
Reklama:
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz

FB bez nutnosti instalace celeho serveru

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.8.2002 15:22:57

> aplikaci, kde chci pouzit FB, ale bez nutnosti instalovat server a
> klienta. Pokud si dobre vzpominam, tak se tu mluvilo o tom, ze staci
> nakopirovat gds32.dll a upravit soubor services.

Ahoj,

bez toho serveru to asi nepujde, ten nekde bezet musi, ale s klientem mas skoro
pravdu:

1) gds32.dll kopirovat spolu s aplikaci

2) Od jiste verze FB, mozna od 1.0 (to nevim) neni nutne upravovat soubor services.
Mas-li starsiho FB, doporucuji upgrade. Pak staci jen bod 1).

David Lebeda

Tray icon

[*] skalsky(zv)oksystem(tec)cz - 20.8.2002 15:38:43

Existuje na torry.ru nebo i jinych serverech spousta vyzkousenych
Traykomponent i se zdrojakem.
Napr. RX (http://www.oxygensoftware.com/download/rx275d6.zip)
Pokud to chces bez komponent, zkus tohle :
1) http://community.borland.com/article/0,1410,28377,00.html
2) http://www.delphifaq.com/fq/q2186.shtml
Mohl by postacit odkaz c.2

nebo
http://skalsky.webzdarma(tec)cz/odkazy/index.html#delphi

odkazy c.6, 10-16, 19-22, 24-26 ... tam urcite neco najdes - mozna si
vyberes i jinde.
Milan

Milan P. Skalsk�, software consultant
OKsystem s.r.o.
Na Pankr�ci 125, 140 21, Praha 4
http://www.oksystem(tec)cz
Skalsky(zv)oksystem(tec)cz, +42 02/44021133
ICQ: 67571111
-----Original Message-----
From: Pavel [mailto:delphi(tec)cz(zv)seznam(tec)cz]
Chtel bych udelat svemu programu moznost minimalizovani do tray icony.
Potreboval bych poradit jak to realizovat.�
Pokud mi chcete poradit nejakou komponentu. Popiste mi prosim jak ji pouzit.
Punjab

video capture

[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 20.8.2002 16:37:09

Ahoj,
potrebuji v programu tyto video funkce : zobrazeni ziveho videa v
rezimu overlay, ulozeni snimku do souboru a zaznam videa. Mam na to
nekolik ruznych komponent a unit a jiz jsem je nekolikrat uspesne
pouzil. Ted jsem ale narazil na problem. Program ma bezet na notebooku
Umax s VGA ATI Rage Mobility AGP a video kartou Margi Capture To Go, win
ME, directX 8.1. Tato kombinace dovoluje capture pouze pres WDM, VFW se
mi tam nepodarilo rozchodit, dokonce tam nemohou byt ani win 98. Na NT a
pod. si myslet nemohu, notebook ma jen Celeron 360.
Zobrazeni ziveho videa jsem uspesne vyresil pres Dirext Show (JEDI -
DSCapture, written by orthkon} ale ten snap a zaznam mi nejdou. Kdyz
uz neco tak treba s vyuzitim HiComponent, jenze snapu chybi dolni
pulka. {Problem je asi v nespravne kombinaci rozmeru bitmapy a
prokladani, coz bohuzel nejde nijak ovlivnit}. Myslim, ze zdroj potizi
je v tom, ze me komponenty pouzivaji pritup pres VFW, ktere je WDM
emulovano, a jak jsem si nekde precetl, vetsinou ne moc dobre.
Nevedel byste nekdo, jak na to?
Dekuji.
Vaclav Sazima

Memory fence

[*] Petr Sunek <petr.sunek(zv)admina(tec)cz> - 20.8.2002 17:49:37

Zdravim,

hledam maskovanou chybu v balickove aplikaci (nahodne se vyskytujici AV),
nevite o nejakem memory fence pro D6? Chtel bych si overit, zda si
neprepisuji jeste existujici objekty...

S pozdravem
Petr Sunek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002

tray

[*] Lukas Marek <lukas.marek(zv)seznam(tec)cz> - 20.8.2002 18:34:16

Ahoj

http://www.builder(tec)cz/art/delphi/trayapp.html

Lukas Marek

----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 3:21 PM
Subject: tray


>nebehalo,takze rada "www.torry.ru" nebo "www.rxlib.com" mi nepomuze)
>a hlavne podrobny popis, ja to zabudovat do programu.

Sta�en� souboru z Internetu

[*] IT-BOSS <it-boss(zv)seznam(tec)cz> - 20.8.2002 20:08:15

Ahoj,
nalezl jsem dv� �e�en� - jedno pou��v� knhovnu URLMon.dll z Windows a druh�
jednotku WinInet. M��e mi n�kdo aspo� nazna�it, jak� je mezi t�mto rozd�l,
pop�. jak� jsou omezen� - t�eba z�vislost na OS: Windows/Linux, nebo na
prohl�e�i: MSIE/Navigator? Lze tak� n�jak zobrazovat pr�b�h stahov�n�?

D�ky za radu.

Josef Obdr��lek

IB/FB jako lokalni DB stroj

[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.8.2002 20:16:08

From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>

> Mno, jenze to byl SuperServer :-) Jinak Classic funguje prave timto
zpusobem, > t.j. 1MB velka dll/so knihovna, ktera se linkuje do adresniho
prostoru
> "pidiserveru" (pri vzdalenem pristupu), nebo klientske aplikace
> (lokalni pristup).
> Resenim je tedy Classic pro Windows, ktery bohuzel zatim neni k dispozici
> (pouze SS). Funkcni Classic pro Win je pry dostupny pro Yaffil, ale je to
za
> penize.

Mohl bys mi pls vysvetlit, co to znamena Classic, SuperServer aj.
a v cem se lisi?


Thx, pf

Hexa cislo v FB

[*] J�n Harman <harman(zv)atlas(tec)cz> - 20.8.2002 20:46:10

Ahoj, daji se prosim vkladat napriklad pri INSERT INTO nebo UPDATE cisla ve
formatu Hexa?
Neco jako je v Delphi $5AC6, nebo v Cecku 0x5AC6.
Diky. Honza.

tray

[*] Martina Bejvlova <mabej(zv)seznam(tec)cz> - 20.8.2002 20:55:49

Ahoj, tak ikonu do tray uz dostanu, zbytek ukryji pomoci
ShowWindow(Handle, SW_HIDE);
ale jak zrusit dole na task baru tu ikonku? (myslim to v prostredku
se jmenem programu, nevim jak se to spravne jmenuje)
Tedy bez pomoci tech komponent, ktere tady vsichni doporucuji,
nepovedlo se mi ani po nekolika hodinach pouzit ani jednou a
potrebuji tohle dodelat, nez definitivne preinstaluji wokna i
Delphi... :-(
Jinak diky za pomoc...
Martina

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

video capture

[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 20.8.2002 21:03:10

Zdravim

Reseni tveho problemu nevim, ale kazdopadne zahod originalni WDM ovladace a
pouzij tveakovany od IvanaUskova. Odkaz na ne najdes na
http://www.tvfreak(tec)cz. Jde o to, ze originalni spatne zvladaji normu PAL
(mam dokonce pocit, ze ji uplne ignoruji) a ze vsechno jede v rozliseni
NTSC. V tech tveakovanych je to vsechno v poradku a funkcni. Me to osobne
velmi pomohlo a podle ohlasu nejsem sam.

Zdenek

----- Original Message -----

> potrebuji v programu tyto video funkce : zobrazeni ziveho videa v
> rezimu overlay, ulozeni snimku do souboru a zaznam videa. Mam na to
> nekolik ruznych komponent a unit a jiz jsem je nekolikrat uspesne
> pouzil. Ted jsem ale narazil na problem. Program ma bezet na notebooku
> Umax s VGA ATI Rage Mobility AGP a video kartou Margi Capture To Go, win
> ME, directX 8.1. Tato kombinace dovoluje capture pouze pres WDM, VFW se
> mi tam nepodarilo rozchodit, dokonce tam nemohou byt ani win 98. Na NT a
> pod. si myslet nemohu, notebook ma jen Celeron 360.
> Zobrazeni ziveho videa jsem uspesne vyresil pres Dirext Show (JEDI -
> DSCapture, written by orthkon} ale ten snap a zaznam mi nejdou. Kdyz
> uz neco tak treba s vyuzitim HiComponent, jenze snapu chybi dolni
> pulka. {Problem je asi v nespravne kombinaci rozmeru bitmapy a
> prokladani, coz bohuzel nejde nijak ovlivnit}. Myslim, ze zdroj potizi
> je v tom, ze me komponenty pouzivaji pritup pres VFW, ktere je WDM
> emulovano, a jak jsem si nekde precetl, vetsinou ne moc dobre.

Sta�en� souboru z Internetu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.2002 21:20:58

From: "IT-BOSS" <it-boss(zv)seznam(tec)cz>
> prohl�e�i: MSIE/Navigator? Lze tak� n�jak zobrazovat pr�b�h stahov�n�?

http://www.euromind.com/iedelphi/iedownload.htm

Alternativne muzes pouzit Indy nebo Synapsi, i kdyz WinInet dle mych
zkusenosti funguje bez problemu.

V pripade pouziti neceho jineho nez WinInet vznika problem s nastavenim proxy,
ktere je v systemu protoze tyto knihovny jej nerespektuji. Pomoci si muzes
treba timhle:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18195

Petr Vones

Pracuje HDD?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.2002 21:24:41

From: "Martin Nov�k" <mnk(zv)centrum(tec)cz>
> poradte mi, jak to udelat pres sledovani systemu. Tato moznost
> me take napadla, ale nevim jak to realizovat.

Zalezi na operacnim systemu Win9x nebo NT.

Petr Vones

Memory fence

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.8.2002 21:24:02

From: "Petr Sunek" <petr.sunek(zv)admina(tec)cz>
> hledam maskovanou chybu v balickove aplikaci (nahodne se vyskytujici AV),
> nevite o nejakem memory fence pro D6? Chtel bych si overit, zda si
> neprepisuji jeste existujici objekty...

Chybu hledej ve svem kodu. Pomoci muzou tyhle nastroje:
http://www.automatedqa.com/downloads/memproof.asp
http://www.turbopower.com/products/Sleuth/

Petr Vones

tray

[*] <bukaj(zv)iol(tec)cz> - 20.8.2002 21:25:31

treba takto:

ShowWindow(Application.Handle, SW_HIDE);

----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 8:55 PM
Subject: Re: tray


Ahoj, tak ikonu do tray uz dostanu, zbytek ukryji pomoci
ShowWindow(Handle, SW_HIDE);
ale jak zrusit dole na task baru tu ikonku? (myslim to v prostredku
se jmenem programu, nevim jak se to spravne jmenuje)
Tedy bez pomoci tech komponent, ktere tady vsichni doporucuji,
nepovedlo se mi ani po nekolika hodinach pouzit ani jednou a
potrebuji tohle dodelat, nez definitivne preinstaluji wokna i
Delphi... :-(
Jinak diky za pomoc...
Martina

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

tray

[*] miro mrazik <preas_w(zv)stonline.sk> - 20.8.2002 21:33:33

Ahoj,
tym skryjes len ten formular. Treba skryt hlavne okno aplikacie (nie je
viditelne). Skus dat
ShowWindow(Application.Handle, SW_HIDE);
miro
----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 8:55 PM
Subject: Re: tray


> Ahoj, tak ikonu do tray uz dostanu, zbytek ukryji pomoci
> ShowWindow(Handle, SW_HIDE);
> ale jak zrusit dole na task baru tu ikonku? (myslim to v prostredku
> se jmenem programu, nevim jak se to spravne jmenuje)
> Tedy bez pomoci tech komponent, ktere tady vsichni doporucuji,
> nepovedlo se mi ani po nekolika hodinach pouzit ani jednou a
> potrebuji tohle dodelat, nez definitivne preinstaluji wokna i
> Delphi... :-(
> Jinak diky za pomoc...
> Martina
>
> ______________________________________________________________________
> Reklama:
> Jake bude pocasi? http://pocasi.seznam(tec)cz
>

Tisk na HP 1000 USB

[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 20.8.2002 22:03:59

Zdravim,

pri tisku na tiskarnu HP1000 USB nefunguje Printer.NewPage - program tiskne
stale na stejnou stranku. Neznate nekdo pricinu ci jak zjednat napravu ?

Odinstalace ovladace tiskarny a opetovne zavedeni nepomohlo. Z ostatnich
programu (napriklad MS Excel) odstrankovani probiha v poradku.

D6 prof., W98

Diky Dan

Sta�en� souboru z Internetu

[*] IT-BOSS <it-boss(zv)seznam(tec)cz> - 20.8.2002 22:37:56

Poradil jsem si s�m, ale jeliko� se to m��e n�komu hodit, tak tedy na
http://www.euromind.com/iedelphi/iedownload.htm
je k dispozici super komponenta, kter� tuhle problematiku um� �e�it (dokonce
i resume).
Pepa

----- Original Message -----
From: "IT-BOSS" <it-boss(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 8:08 PM
Subject: Sta�en� souboru z Internetu


> Ahoj,
> nalezl jsem dv� �e�en� - jedno pou��v� knhovnu URLMon.dll z Windows a
druh�
> jednotku WinInet. M��e mi n�kdo aspo� nazna�it, jak� je mezi t�mto rozd�l,
> pop�. jak� jsou omezen� - t�eba z�vislost na OS: Windows/Linux, nebo na
> prohl�e�i: MSIE/Navigator? Lze tak� n�jak zobrazovat pr�b�h stahov�n�?
>
> D�ky za radu.
>
> Josef Obdr��lek
>
>

Sta�en� souboru z Internetu

[*] IT-BOSS <it-boss(zv)seznam(tec)cz> - 20.8.2002 23:44:06

D�ky za odpov�di, jsem r�d, �e jsem �el podobnou cestou. :-)
Pepa
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 9:20 PM
Subject: Re: Sta�en� souboru z Internetu


> From: "IT-BOSS" <it-boss(zv)seznam(tec)cz>
> > prohl�e�i: MSIE/Navigator? Lze tak� n�jak zobrazovat pr�b�h stahov�n�?
>
> http://www.euromind.com/iedelphi/iedownload.htm
>
> Alternativne muzes pouzit Indy nebo Synapsi, i kdyz WinInet dle mych
> zkusenosti funguje bez problemu.
>
> V pripade pouziti neceho jineho nez WinInet vznika problem s nastavenim
proxy,
> ktere je v systemu protoze tyto knihovny jej nerespektuji. Pomoci si muzes
> treba timhle:
> http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18195
>
> Petr Vones
>
>

Tiskove sestavy

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.8.2002 00:18:04

Puvodni zprava, kterou napsal Jan Jochman dne 19 Aug 2002:

> potrebuji vytvaret nekolikastrankove tiskove vystupy. Vzdycky je prvni
> nejaka uvodni stranka, za tim nasleduji nejake komplikovanejsi sestavy (
> ne vzdy stejne ). Urcite existuje nejaky generator sestav, ktery to
> zvlada, ale jsou jich desitky a nemam cas je vsechny testovat. V Sineai se
> mi to nepodarilo. Nevite nekdo o necem co to zvlada?

Zkus tohle:

http://www.clexpert(tec)cz/software/fastreport/

Je to velmi levny a umi to temer vsechno vcetne skriptu v sestave, takze
tim udelas opravdu temer vse...

S pozdravem
Petr Zahradnik, pocitacovy expert

=====================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
======================================================

Tisk na HP 1000 USB

[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 21.8.2002 06:59:23

Podle mne je to pouze u tisku z QuickReportu. Reseni na strane HP
neexistuje (je to GDI a neumi PCL). Argumentace HP je kdyz to tiskne z
Excelu, tak je to v poradku.


S pozdravem Vaclav Riha

-----P�vodn� zpr�va-----
Od: Redlich Software [SMTP:RedlichDaniel(zv)seznam(tec)cz]
Odesl�no: 20. srpna 2002 22:04
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Tisk na HP 1000 USB

Zdravim,

pri tisku na tiskarnu HP1000 USB nefunguje Printer.NewPage - program tiskne
stale na stejnou stranku. Neznate nekdo pricinu ci jak zjednat napravu ?

Odinstalace ovladace tiskarny a opetovne zavedeni nepomohlo. Z ostatnich
programu (napriklad MS Excel) odstrankovani probiha v poradku.

D6 prof., W98

Diky Dan

Tisk na HP 1000 USB

[*] Lauko Stefan <laukosw(zv)naex.sk> - 21.8.2002 06:59:22

Ahoj,
je tam potrebne stiahnut novy ovladac.
http://www.hp.com/cposupport/swindexes/hplaserjet45675_swcz.html
Lauko.

----- Original Message -----
From: "Redlich Software" <RedlichDaniel(zv)seznam(tec)cz>
Sent: Tuesday, August 20, 2002 10:03 PM
Subject: Tisk na HP 1000 USB


> Zdravim,
>
> pri tisku na tiskarnu HP1000 USB nefunguje Printer.NewPage - program
tiskne
> stale na stejnou stranku. Neznate nekdo pricinu ci jak zjednat napravu ?
>
> Odinstalace ovladace tiskarny a opetovne zavedeni nepomohlo. Z ostatnich
> programu (napriklad MS Excel) odstrankovani probiha v poradku.
>
> D6 prof., W98
>
> Diky Dan

pomaly SendMessage a PostMessage

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.8.2002 07:06:54


>PostMessage pouze vlozi zpravu do fronty a dale na nic neceka.
SendMessage
>pocka az se zprava zpracuje a zalezi to na tom jake zpravy jsou prave
ve
>fronte, jak dlouhy je kod ktery se prave vykonava v tom threadu (jako
>reakce
>na zpravu) do jehoz okna si zpravu poslal atd. V zasade se ta doba muze
>dost
>lisit.

No prave u PostMessage me to zarazilo jak dlouho vubec trva, me opravdu
trva 140ms a sendmessage taktez (pri volani PRAZDNE procedury
obsluhujici message). Muzete to prosim nekdo zmerit pres GetTickCount()
?>Musis vec navrhnout tak, aby si nebyl zavisly na te synchronizaci pokud
je >kod

>Petr Vones

Jedna se mi o nacteni dat z databaze + nejake algoritmy coz delam ve
vedlejsim threadu a z nej chci volat proceduru v hlavnim threadu pro
pridani techto veci do komponenty pro zobrazeni na obrazovce (komponenta
samozrejme neni threadsafe). Send/PostMessage mi trva ale strasne
dlouho, tak to asi udelam pres globalni promenne - predavani dat do
hlavniho threadu - a v hlavnim threadu udelam TTimer kde ty data budu
nacitat a vykreslovat, nic jineho me nenapada.

Milos Sula

pomaly SendMessage a PostMessage

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.8.2002 07:15:22

>Mozna placam, ale pokud mas dva nebo vice threadu v jednom programu, muzes
>mezi nima komunikovat mnohem jednoduseji a hlavne spolehliveji nez pres
>SendMessage apod. To jsme pouzil na predani zpravy z jednoho programu do
>jineho, ale nebouzival bych to uvnitr jednoho programu.

Jak elegantneji ?

>Trochu teorie. Zpravy se radi do fronty ihned po provedeni SendMessage, ale
>odesilani z fronty do ciloveho programu se provadi az kdyz skonci aktivni
>thread. Tzn, ze pokud volas SendMessage uprostred beziciho threadu, je to
>totez, jaky bys to volal az na konci. Da se tomu predejit volanim
>Application.ProcessMessages ihned po SendMessage. Zkus to, melo by to
>pomoct.

>Zdenek

Myslim ze u SendMessage se ceka na zpracovani ikdyz je v threadu, nebot SendMessage vraci vzdy result z te procedury tj. mus� pockat na zpracovani procedury obsluhujici message.

Milos Sula

tray

[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 21.8.2002 07:22:04

Pouzivam komponentu TrayIconSinea, ktera byla soucasti vizualnich komponent
od Sinei. Velka spokojenost. Protoze vidim, ze se stim dost lopotis, poslu
cast zasadniho kodu. Doufam, ze na nic nezapomenu.

v TForm1 udelas
published
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormMinimize(Sender: TObject);
procedure TrayIconAppShow(Sender: TObject);
procedure TrayIconAppHide(Sender: TObject);
protected
FormMinimized: Boolean;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin TrayIconAppHide(Self); end;

procedure TForm1.FormMinimize(Sender: TObject);
begin FormMinimized:=True; TrayIcon.AppHide; end;

procedure TForm1.TrayIconAppShow(Sender: TObject);
begin
if FormMinimized then Application.Restore;
FormMinimized:=False; TrayIcon.AppShow; Application.BringToFront;
end;

procedure TForm1.TrayIconAppHide(Sender: TObject);
begin TrayIcon.AppHide; end;


a jeste tato cast kodu dela, ze se ti program nespusti vicekrat, je v v
souboru XXXXXX.DPR:
......
var WPHandle: THandle;

begin
WPHandle:=FindWindow('TForm1', nil);
if WPHandle<>0 then begin PostMessage(WPHandle, wm_User, 123456, 123456);
Exit; end;
Application.Initialize;
Application.Title := 'XXXXX';
Application.HelpFile := 'XXXXXX.hlp';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

a v TForm1 udelas proceduru

public
procedure FormMessage(var AMsg: TMessage); message wm_User;

procedure TForm1.FormMessage(var AMsg: TMessage);
begin
if (AMsg.WParam=123456) and (AMsg.LParam=123456)
then TrayIconAppShow(Self);
end;
S pozdravem Vaclav Riha
-----P�vodn� zpr�va-----
Od: bukaj(zv)iol(tec)cz [SMTP:bukaj(zv)iol(tec)cz]
Odesl�no: 20. srpna 2002 21:26
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: tray

treba takto:

ShowWindow(Application.Handle, SW_HIDE);

----- Original Message -----
From: "Martina Bejvlova" <mabej(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 20, 2002 8:55 PM
Subject: Re: tray


Ahoj, tak ikonu do tray uz dostanu, zbytek ukryji pomoci
ShowWindow(Handle, SW_HIDE);
ale jak zrusit dole na task baru tu ikonku? (myslim to v prostredku
se jmenem programu, nevim jak se to spravne jmenuje)
Tedy bez pomoci tech komponent, ktere tady vsichni doporucuji,
nepovedlo se mi ani po nekolika hodinach pouzit ani jednou a
potrebuji tohle dodelat, nez definitivne preinstaluji wokna i
Delphi... :-(
Jinak diky za pomoc...
Martina

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

pomaly SendMessage a PostMessage

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.8.2002 07:34:44

> Trochu teorie. Zpravy se radi do fronty ihned po provedeni
> SendMessage, ale odesilani z fronty do ciloveho programu se provadi az
> kdyz skonci aktivni thread. Tzn, ze pokud volas SendMessage uprostred
> beziciho threadu, je to totez, jaky bys to volal az na konci. Da se
> tomu predejit volanim Application.ProcessMessages ihned po
> SendMessage. Zkus to, melo by to pomoct.


Ahoj,

rec je patrne o PostMessage, ale nejak se mi to nezda. Ja tedy o tomto ted nemam
blizsi informace, treba to je pravda, ale nevzpominam si, ze bych o popsanem
chovani nekde cetl. Odkud mas ty informace?

David Lebeda

Pracuje HDD?

[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 21.8.2002 07:35:09

Zdrav�m jedn� se mi o WIN 98 SE. D�ky za rady. S pozdravem Martin.
______________________________________________________________
> Od: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:
> Datum: Tue, 20 Aug 2002 21:24:41 +0200
> P�edm�t: Re: Pracuje HDD?
>
> From: "Martin Nov�k" <mnk(zv)centrum(tec)cz>
> > poradte mi, jak to udelat pres sledovani systemu. Tato
moznost
> > me take napadla, ale nevim jak to realizovat.
>
> Zalezi na operacnim systemu Win9x nebo NT.
>
> Petr Vones
>


--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...

Tiskove sestavy

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.8.2002 07:45:39

> Zkus tohle:
>
> http://www.clexpert(tec)cz/software/fastreport/
>
> Je to velmi levny a umi to temer vsechno vcetne skriptu v sestave,
> takze tim udelas opravdu temer vse...

Ahoj,

na webu jsem nenasel informaci, ktera by mozna zajimala vic lidi (proto to posilam
do konference) - totiz cenu toho produktu. Kolik to tedy stoji?

David Lebeda

Tisk na HP 1000 USB

[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 21.8.2002 07:49:40

Bohuzel se to neprojevuje u QuickReportu, ale u primeho tisku pomoci
TPrinter. Stacilo udelat

Printer.BeginDoc;
Printer.Canvas.TextOut(....);
Printer.NewPage;
Printer.Canvas.TextOut(....);
Printer.NewPage;
Printer.Canvas.TextOut(....);
Printer.EndDoc;

To vytiskne jednu stranu a na ni vsechny texty. Na jinych tiskarnach HP
takovy program funguje v poradku (alespon co vim). Ze zrejme bude problem na
strane ovladace to chapu. Na druhou stranu, kdyz se podivam na proceduru
TPrinter.NewPage, kde se v podstate zavolaji funkce gdi32 EndPage(DC) a
StartPage(DC), tak tam neni co zkazit. Co jsem se dival do MSDN, dela se to
v podstate stejne. Tak jen nerozumim tomu, ze se z Delphi nova stranka
nevytvori a z jinych programu ano.

Dan

----- Original Message -----
From: "Vaclav Riha - Soft Consult" <vaclav_riha(zv)softconsult(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 21, 2002 6:59 AM
Subject: RE: Tisk na HP 1000 USB


Podle mne je to pouze u tisku z QuickReportu. Reseni na strane HP
neexistuje (je to GDI a neumi PCL). Argumentace HP je kdyz to tiskne z
Excelu, tak je to v poradku.


S pozdravem Vaclav Riha

-----P�vodn� zpr�va-----
Od: Redlich Software [SMTP:RedlichDaniel(zv)seznam(tec)cz]
Odesl�no: 20. srpna 2002 22:04
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Tisk na HP 1000 USB

Zdravim,

pri tisku na tiskarnu HP1000 USB nefunguje Printer.NewPage - program tiskne
stale na stejnou stranku. Neznate nekdo pricinu ci jak zjednat napravu ?

Odinstalace ovladace tiskarny a opetovne zavedeni nepomohlo. Z ostatnich
programu (napriklad MS Excel) odstrankovani probiha v poradku.

D6 prof., W98

Diky Dan

Tiskove sestavy

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2002 07:53:22

> > Zkus tohle:
> >
> > http://www.clexpert(tec)cz/software/fastreport/
> >
> > Je to velmi levny a umi to temer vsechno vcetne skriptu v sestave,
> > takze tim udelas opravdu temer vse...
>
> Ahoj,
>
> na webu jsem nenasel informaci, ktera by mozna zajimala vic lidi (proto to
posilam
> do konference) - totiz cenu toho produktu. Kolik to tedy stoji?

Nevim jak u Clexpert, ale na dev-shop(tec)cz za 3140,- bez DPH.

Roman
==============================
http://kouzelne.misto(tec)cz

Tvorba PDF a cestina

[*] <morzol(zv)atlas(tec)cz> - 21.8.2002 07:55:06


Myslim ze pripojit fonty do exportu PDF umi software od WPTools , ale je to shareware.


-----Original Message-----
From: "delphi-l-owner(zv)clexpert(tec)cz" <delphi-l-owner(zv)clexpert(tec)cz> on behalf of "Martin Schayna" <mschayna(zv)aktis(tec)cz>
Sent: Tuesday, August 20, 2002 1:50 PM
To: "delphi-l(zv)clexpert(tec)cz" <delphi-l(zv)clexpert(tec)cz>
Subject: Re: Tvorba PDF a cestina

----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> prohlizim si FreeReport a libi se mi moznost exportu do PDF,
> bohuzel se mi nepodarilo do vytvoreneho PDF souboru dostat cestinu.
> Vim, ze se to zde jiz diskutovalo, ale v archivu jsem reseni nenasel.
>
> Muze mi nekdo poradit?
> Pomuze instalace a pouziti fontu Adobe ?

Podle me ne, podle specifikace PDF (ve verzi PDF v1.3 tj. Acrobat Reader 5)
lze zobrazit cestinu pouze tak, ze se fonty pripoji do PDF pomoci sekce /FontFile,
coz vsechny exportni filtry a knihovny pro PDF co jsem videl neumi.

Jedine schudne reseni v tuto chvili je normalni tisk do "driveru" Acrobat Distiller
(za penize) nebo do Ghostscriptu.

Pokud ma nekdo jine reseni, rad se poucim...

Martin Schayna

FreeReports a Dataset OPET

[*] Lauko Stefan <laukosw(zv)naex.sk> - 21.8.2002 07:58:50

Ahoj,
hrabal som sa v zdrojakoch. Nacitanie zoznamu component sa deje v
FR_Utils.pas. Ono to prejde vsetky dostupne objecty Screens a ponukne vsetko
co najde. Ja som dosiahol to ze nacita len z ownera. Ale ak by si chcel
priamo urcit datasety musis to doprogramovat. Vytvor si cmp kde bude zoznam
datasetov ktory budes v designtime upravovat a pridelovat datasety. Potom
uprav frGetComponents tak aby ponukal len tento zoznam. Pozor, tato
procedura nenacita len datasety ale asi aj ine cmp...
Lauko.

procedure frGetComponents(Owner: TComponent; ClassRef: TClass;
List: TStrings; Skip: TComponent);
var
i, j: Integer;

procedure EnumComponents(f: TComponent);
var
i: Integer;
c: TComponent;
begin
{$IFDEF Delphi5}
if f is TForm then
for i := 0 to TForm(f).ControlCount - 1 do
begin
c := TForm(f).Controls[i];
if c is TFrame then
EnumComponents(c);
end;
{$ENDIF}
for i := 0 to f.ComponentCount - 1 do
begin
c := f.Components[i];
if (c <> Skip) and (c is ClassRef) then
if f = Owner then
List.Add(c.Name)
else if ((f is TForm) or (f is TDataModule)) then
List.Add(f.Name + '.' + c.Name)
else
List.Add(TControl(f).Parent.Name + '.' + f.Name + '.' + c.Name)
end;
end;

begin
List.Clear;
EnumComponents(Owner);
exit;//Zmenene **************************************************
for i := 0 to Screen.FormCount - 1 do
EnumComponents(Screen.Forms[i]);
for i := 0 to Screen.DataModuleCount - 1 do
EnumComponents(Screen.DataModules[i]);
{$IFDEF Delphi6}
with Screen do
for i := 0 to CustomFormCount - 1 do
with CustomForms[i] do
if (ClassName = 'TDataModuleForm') then
for j := 0 to ComponentCount - 1 do
begin
if (Components[j] is TDataModule) then
EnumComponents(Components[j]);
end;
{$ENDIF}
end;
{$HINTS ON}


----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
To: "delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 23, 2002 9:44 PM
Subject: FreeReports a Dataset OPET


> Ahoj nevite proc se vyplnuje FrReportDatataset kdyz stejne se dotahnou
> vsechny datasety do designeru z kterych se pak muze vybirat, jak je
zakazu?
> Nechci tam mit vsechny datasety ktere pouzivam na formulari....
> PLEASEEEE helpnete mi nejak na to nemuzu prijit.
>
> Ales Pavel
> D6 Ent WXP
> laik v profesionalnim kolotoci
>
>

tisk na generic text printer

[*] Petr <DelphiForum(zv)seznam(tec)cz> - 21.8.2002 08:24:43

Zdravim.
Mam dotaz. Potrebuji tisknout na generic text printer (paska siroka na 40
znaku) prubezne ... tzn. ze vytisknu asi 15 radku, po nejake opraci dalsich
15 radku .... neni predem dane, jak dlouho dana oprace mezi tisky trva a jde
mi ted o nasledujici :
kdyz pouziju printer.BeginDoc a printer.EndDoc, tak to vytiskne, ale vyjede
jeste spousta papiru (jakoby dokonceni stranky). Jak udelat, aby se vytisklo
jen to, co ma a "nevytahoval" papir ?

Petr
ICQ# : 119119215

tisk na generic text printer

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2002 08:43:33

> Zdravim.
> Mam dotaz. Potrebuji tisknout na generic text printer (paska siroka na 40
> znaku) prubezne ... tzn. ze vytisknu asi 15 radku, po nejake opraci
dalsich
> 15 radku .... neni predem dane, jak dlouho dana oprace mezi tisky trva a
jde
> mi ted o nasledujici :
> kdyz pouziju printer.BeginDoc a printer.EndDoc, tak to vytiskne, ale
vyjede
> jeste spousta papiru (jakoby dokonceni stranky). Jak udelat, aby se
vytisklo
> jen to, co ma a "nevytahoval" papir ?

Kdysi byla na torry.ru unita RawPrinter, pomoci ni se tisklo primo na LPT
(tj. bez Win driveru). Zpusob tisku je prakticky stejny jako pres Printer.
Kdybys nenasel, muzu poslat (vecer).

Roman
==============================
http://kouzelne.misto(tec)cz

tisk na generic text printer

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.8.2002 08:45:44

A jaky mas nastaveny format papiru u generic printer ve Windows ?
Pokud tam mas A4, tak se nediv. Zkus to prepnout na nekonecny papir.

--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

21.8.2002 Petr:
> Zdravim.
> Mam dotaz. Potrebuji tisknout na generic text printer (paska siroka na 40
> znaku) prubezne ... tzn. ze vytisknu asi 15 radku, po nejake opraci dalsich
> 15 radku .... neni predem dane, jak dlouho dana oprace mezi tisky trva a jde
> mi ted o nasledujici :
> kdyz pouziju printer.BeginDoc a printer.EndDoc, tak to vytiskne, ale vyjede
> jeste spousta papiru (jakoby dokonceni stranky). Jak udelat, aby se vytisklo
> jen to, co ma a "nevytahoval" papir ?

> Petr
> ICQ# : 119119215

EAN 128 do QReportu

[*] <belcik(zv)centrum.sk> - 21.8.2002 08:55:59

Potrebujem tlacit EAN 128 do QReportu.
Nasiel som
WWW.psoft.sk
www.tec-it.co.at

neviete niekto o nejakom lacnejsom rieseni ?
Stano.

----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting

Zkusenost s MapPointem?

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.8.2002 09:16:18

Ahoj, shanim nekoho, kdo by mel zkusenosti s produktem MS MapPoint, verze 9
ve spojeni s Delphi. Pripadne odpovedi prosim na soukromy mail.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380

D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7

QReport cesky

[*] David Kraina <DKx(zv)Seznam(tec)cz> - 21.8.2002 09:37:43

Ahoj,
uz delsin dobu se snazim sehnat nejaky QReport, ktery by byl cesky, nebo se
dal prelozit. Na konferenci byl nejaky vykrik o ceskem FreeReport, ale
uvedeny odkaz nefungoval. Dik za kazdy tip.

S pozdravem

================================
David Kraina, DKx
-------------------------
Vedouc� t�mu MX-3, program�tor

http://DKx.Hyperlink(tec)cz
http://MX-3.w3.to
================================

tisk na generic text printer

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 21.8.2002 09:49:47

> From: Petr
>
> Potrebuji tisknout na generic text printer
> prubezne ... tzn. ze vytisknu asi 15 radku, po nejake
> opraci dalsich
> 15 radku .... neni predem dane, jak dlouho dana oprace mezi
> tisky trva a jde mi ted o nasledujici :
> kdyz pouziju printer.BeginDoc a printer.EndDoc, tak to
> vytiskne, ale vyjede
> jeste spousta papiru (jakoby dokonceni stranky). Jak udelat,
> aby se vytisklo jen to, co ma a "nevytahoval" papir ?

Je nutne si pohrat s nastavenim ovladace obecne tiskarny.
Konkretne je treba vyzkouset dve veci:
- Papir / Zdroj papiru, doporucuji vyzkouset variantu
Spojity bez zlomu stranek
- Podrobnosti / Zarazovani, doporucuji Tisknout primo na tiskarnu

Vaclav Krmela


Grafy

[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.8.2002 09:58:17

Zdravim

potreboval bych neco vykreslovat do grafu. No vlastne bych potreboval
generovat graf nastevnsti. Nevite kde muzu najit nejakou ukazku s 2D
grafem. Nebo nejakou lepsi komponentu nez co je v delphi 5.


Diky Milan

pomaly SendMessage a PostMessage

[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 21.8.2002 10:19:12

No nevim, mi vetsinou stacilo pouzit jeden z parametru PostMessage, do
ktereho se strci pointer na dynamicky alokovana data, ta se pak v obsluze
zpravy zpracuji & uvolni, je tim zajistena i synchronizace. Rekl bych ze
reseni pres globalni promenne & timer musi byt casove narocnejsi.
-------------------------
> Send/PostMessage mi trva ale strasne
> dlouho, tak to asi udelam pres globalni promenne - predavani dat do
> hlavniho threadu - a v hlavnim threadu udelam TTimer kde ty data budu
> nacitat a vykreslovat, nic jineho me nenapada.
>
> Milos Sula
>

EAN 128 do QReportu

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 21.8.2002 10:43:45

www.tsoft.szm.sk

|| -----Original Message-----
|| From: belcik(zv)centrum.sk [mailto:belcik(zv)centrum.sk]
|| Sent: Wednesday, August 21, 2002 8:56 AM
|| To: delphi-l(zv)clexpert(tec)cz
|| Subject: EAN 128 do QReportu
||
||
|| Potrebujem tlacit EAN 128 do QReportu.
|| Nasiel som
|| WWW.psoft.sk
|| www.tec-it.co.at
||
|| neviete niekto o nejakom lacnejsom rieseni ?
|| Stano.
||
|| ----------------------------------------------------------------
|| http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
||

zsednuti obrazovky

[*] J�n Kuch�r - 21.8.2002 11:00:25

caute,

potreboval bych nejakym zpusobem dosahnout ve svem programu zsednuti
obrazovky podobne jako je ve woknech kdyz date prikaz vypnout pocitac,
skousel jsem to pomoci komponenty image a obrazku kde se stridali cerne a
bile tecky, ale neprekrilo to komponenty ktere byly zalozeny na oknech,
nevite nekdo jak toho docilit ?

dik

JCL a vytuhnuti programu

[*] Vlastimil Zdenek <gestore(zv)wo(tec)cz> - 21.8.2002 11:16:37

Zdravim, delphisti!
Prosil bych o pomoc. Pouzivam JCL od Petra Vonese. Chci poslat pomoci ni
mail s prilohou.
Vse vypada OK, ale po odeslani mailu (fce Send) se mi (nekdy!) ztrati muj
program ze seznamu uloh
a pri dalsim pokusu o poslani mailu program totalne vytuhne. Pomuze pouze
CTRLALTDEL...
Uz jste se s tim nekdo setkal? Nevite co s tim?

kus kodu:

var
Meilik : TJclEmail;
begin
with Meilik do
begin
Meilik := TJclEmail.Create;
try
begin
Recipients.Add(nekdo(zv)nekde.ru,'');
Attachments.Add('prvni.jpg');
Attachments.Add('druhy.jpg');
Subject := 'pozdrav';
Body := 'nejakej text';
Send;
end;
finally
Meilik.Free;
end;
end;
end;

Diky za kazdou pomoc
Vlasta

D5, IE6, JCL 2.21(Last modified: July 5, 2002)

zsednuti obrazovky

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.8.2002 11:16:13

UHJvZ3JhbW92ZSBzZWptb3V0IG9icmF6b3ZrdSwgdnl0dm9yaXQgZm9ybXVsYXIgcyBpbWFnZSBw
cmVzIGNlbG91DQpvYnJhem92a3UgYSBzIHRpbSBwcmFjb3ZhdC4NCg0KLS0gDQpKYW4gRmlhbGEN
Cm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjIxLjguMjAwMiAiSuFuIEt1Y2jhciI6DQo+IHBv
dHJlYm92YWwgYnljaCBuZWpha3ltIHpwdXNvYmVtIGRvc2Fobm91dCB2ZSBzdmVtIHByb2dyYW11
IHpzZWRudXRpDQo+IG9icmF6b3ZreSBwb2RvYm5lIGpha28gamUgdmUgd29rbmVjaCBrZHl6IGRh
dGUgcHJpa2F6IHZ5cG5vdXQgcG9jaXRhYywNCj4gc2tvdXNlbCBqc2VtIHRvIHBvbW9jaSBrb21w
b25lbnR5IGltYWdlIGEgb2JyYXprdSBrZGUgc2Ugc3RyaWRhbGkgY2VybmUgYQ0KPiBiaWxlIHRl
Y2t5LCBhbGUgbmVwcmVrcmlsbyB0byBrb21wb25lbnR5IGt0ZXJlIGJ5bHkgemFsb3plbnkgbmEg
b2tuZWNoLA0KPiBuZXZpdGUgbmVrZG8gamFrIHRvaG8gZG9jaWxpdCA/

Chovani ExpressQuantumGrid

[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 21.8.2002 11:19:46

Premyslim nad porizenim ExpressQuantumGrid od Developer Express. Vypada to
krasne, ale mam urcite pochybnosti o skutecnem chovani techto komponent.

- jak je to s lokalizaci techto komponent do cestiny ?
- jak to funguje v siti pri soucasne praci uzivatelu nad stejnymi daty ?
- jak je to narocne na prostredky Windows (resp. jestli to dokaze bez padani
bezet napr. na W98 spolu s jinymi aplikacemi) ?
- jak to bezi na siti s IB (FB) - jak mohou byt velke vysledky dotazu
(tabulek), tak aby to jeste bylo rozumne provozovatelne ?

Bohuzel jsem na webu nenasel nejake demo komponenty, tak abych si to mohl
vyzkouset sam a nerad bych kupoval zajice v pytli (a cena neni zrovna
nizka).
Jestli nekdo s temito komponentami ma nejake pozitivni ci negativni
zkusenosti, tak si je prosim nenechte pro sebe.

Tomas

EAN 128 do QReportu

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.8.2002 11:32:01


----- Original Message -----
From: <belcik(zv)centrum.sk>
> Potrebujem tlacit EAN 128 do QReportu.
> Nasiel som
> WWW.psoft.sk
> www.tec-it.co.at

Pouzivame komponentu BarCode http://mitglied.lycos.de/ajschmidt/

Tady je seznam vsech typu carovych kodu co umi:

type
TBarcodeType = (
bcCode_2_5_interleaved,
bcCode_2_5_industrial,
bcCode_2_5_matrix,
bcCode39,
bcCode39Extended,
bcCode128A,
bcCode128B,
bcCode128C,
bcCode93,
bcCode93Extended,
bcCodeMSI,
bcCodePostNet,
bcCodeCodabar,
bcCodeEAN8,
bcCodeEAN13,
bcCodeUPC_A,
bcCodeUPC_E0,
bcCodeUPC_E1,
bcCodeUPC_Supp2, { UPC 2 digit supplemental }
bcCodeUPC_Supp5, { UPC 5 digit supplemental }
bcCodeEAN128A,
bcCodeEAN128B,
bcCodeEAN128C
);

tisk na generic text printer

[*] Pavel Cab�k <cabak(zv)cross(tec)cz> - 21.8.2002 11:52:06

Ja to resim tak, ze tisknu do souboru s nazvem 'lpt1'.

Pavel CABAK
cabak(zv)cross(tec)cz


> Zdravim.
> Mam dotaz. Potrebuji tisknout na generic text printer (paska
> siroka na 40
> znaku) prubezne ... tzn. ze vytisknu asi 15 radku, po nejake
> opraci dalsich
> 15 radku .... neni predem dane, jak dlouho dana oprace mezi
> tisky trva a jde
> mi ted o nasledujici :
> kdyz pouziju printer.BeginDoc a printer.EndDoc, tak to
> vytiskne, ale vyjede
> jeste spousta papiru (jakoby dokonceni stranky). Jak udelat,
> aby se vytisklo
> jen to, co ma a "nevytahoval" papir ?
>
> Petr
> ICQ# : 119119215
>
>

DBGrid - preskrtnuti celeho radku

[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 21.8.2002 12:14:24

Zdravim,
potrebuji pro vybrane polozky v DBGridu preskrtnout cely radek. Nenasel jsem
zde udalost DrawCell, takze nevim v ktere udalosti tuto operaci provest.
Nechci skrtat pismo pomoci Font.Style = fsStrikeOut, ale graficky
preskrtnout i nevyplnene polozky

Diky za pomoc

----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz

zsednuti obrazovky

[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 21.8.2002 12:15:27

Ja bych si sejmul obsah obrazovky, v archivu urcite najdes jak na to, a
potom tento sejmuty obrazek po upravach zobrazil na formu, kteremu nastavis
BorderStyle na bsNone a WindowState na wsMaximize, cimz zakryjes i TaskBar.

Ahoj Jarda

----- Original Message -----
From: "J�n Kuch�r" <kuchar(zv)unicodesys(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 21, 2002 11:00 AM
Subject: zsednuti obrazovky


> caute,
>
> potreboval bych nejakym zpusobem dosahnout ve svem programu zsednuti
> obrazovky podobne jako je ve woknech kdyz date prikaz vypnout pocitac,
> skousel jsem to pomoci komponenty image a obrazku kde se stridali cerne a
> bile tecky, ale neprekrilo to komponenty ktere byly zalozeny na oknech,
> nevite nekdo jak toho docilit ?
>
> dik

Barva textu pri Disabled:=True

[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 21.8.2002 12:16:42

Ahoj vsem,
Potreboval bych poradit jak zmenit barvu textu u editu pri disabled=True.
Automaticky se nastavuje sediva, ale ja bych potreboval aby zustala cerna.
Zkousel jsem text vykreslovat sam pri WMPaint,
ale nefunguje to vsude (TDBComboBox).

Predem diky za odpoved

Jirka

zsednuti obrazovky

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2002 12:19:29

> caute,
>
> potreboval bych nejakym zpusobem dosahnout ve svem programu zsednuti
> obrazovky podobne jako je ve woknech kdyz date prikaz vypnout pocitac,
> skousel jsem to pomoci komponenty image a obrazku kde se stridali cerne a
> bile tecky, ale neprekrilo to komponenty ktere byly zalozeny na oknech,
> nevite nekdo jak toho docilit ?

Co treba:
1. ulozit obrazovku do bitmapy,
2. pridat do ulozene bitmapy ty cerne tecky
3. zobrazit Form (maximized, noborder),
4. v OnPaint zobrazit ulozenou bitmapu.

Roman
==============================
http://kouzelne.misto(tec)cz

DBGrid - preskrtnuti celeho radku

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2002 12:23:14

> Zdravim,
> potrebuji pro vybrane polozky v DBGridu preskrtnout cely radek. Nenasel
jsem
> zde udalost DrawCell, takze nevim v ktere udalosti tuto operaci provest.
> Nechci skrtat pismo pomoci Font.Style = fsStrikeOut, ale graficky
> preskrtnout i nevyplnene polozky

Takhle nejak by to slo v OnDrawColumnCell:
DefaultDrawColumnCell(...)
Grid.Canvas.MoveTo(...)
Grid.Canvas.LineTo(...)
Bud proskrtas jednotlive Columns anebo u posledniho viditelneho sloupce
vykreslis caru od leveho kraje gridu po pravy (+/- posuvnik apod., nezkousel
jsem).

Roman
==============================
http://kouzelne.misto(tec)cz

Barva textu pri Disabled:=True

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2002 12:28:09

> Ahoj vsem,
> Potreboval bych poradit jak zmenit barvu textu u editu pri disabled=True.
> Automaticky se nastavuje sediva, ale ja bych potreboval aby zustala cerna.
> Zkousel jsem text vykreslovat sam pri WMPaint,
> ale nefunguje to vsude (TDBComboBox).

Nejde u DBComboBox pouzit udalost OnDrawItem?

Roman
==============================
http://kouzelne.misto(tec)cz

zsednuti obrazovky

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.8.2002 12:35:34

----- Original Message -----
From: "J�n Kuch�r" <kuchar(zv)unicodesys(tec)cz>
> potreboval bych nejakym zpusobem dosahnout ve svem programu zsednuti
> obrazovky podobne jako je ve woknech kdyz date prikaz vypnout pocitac,
> skousel jsem to pomoci komponenty image a obrazku kde se stridali cerne a
> bile tecky, ale neprekrilo to komponenty ktere byly zalozeny na oknech,
> nevite nekdo jak toho docilit ?

Jestli jsi videl XPecka, tak tam je to uplne jinak -- misto ditherovani tam
obrazovka pomalu plynule prechazi z barevne do cernobile...

Myslim ze snazit se imitovat neco co dela operacni system je zbytecne
a programy pak vypadaji na novejsich systemech nestandardne a casto
zpusobuji kolize s novymi vlastnostmi jako je napr. skinovani na XP
(to se tyka spise klasickych prvku jako napr. vykreslovane menu,
dodatecna tlacitka v captionu apod.)

Martin Schayna

zsednuti obrazovky

[*] Delphin <delphin(zv)post(tec)cz> - 21.8.2002 12:48:51

prekryvani asi moc vyresit nepujde, ale jde to snadno jinak.
Do Image zkopiruj snimek z DC desktopu. Napr:

canvas:=tcanvas.create;
canvas.handle:=createdc('DISPLAY',nil,nil,nil);
image.canvas.copyrect ....

formular s image potom zvetsi na celou plochu.

Dalsi moznost je zsednuti provadet primo v DC desktopu, ale asi nelze dost
dobre ostatnim aplikacim zakazat prekreslovat se.

Delphin

----- Original Message -----
From: "J�n Kuch�r" <kuchar(zv)unicodesys(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 21, 2002 11:00 AM
Subject: zsednuti obrazovky


> caute,
>
> potreboval bych nejakym zpusobem dosahnout ve svem programu zsednuti
> obrazovky podobne jako je ve woknech kdyz date prikaz vypnout pocitac,
> skousel jsem to pomoci komponenty image a obrazku kde se stridali cerne a
> bile tecky, ale neprekrilo to komponenty ktere byly zalozeny na oknech,
> nevite nekdo jak toho docilit ?
>
> dik
>
>

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