Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Mnozstvi dat z/do aplikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.2.2003 14:29:13
POP3 protokol zna prikaz TOP, pomoci ktereho lze stahnout jen VSECHNy
hlavicky mailu, a to klidne ten kilobajtik byt muze...
Pokud ti jde skutecne u velikost, pak snad leda sahnout po jinem
protokolu, treba po IMAP4. Pomoci neho si muzes nechat stahnout jen
tebou vyjmenovane hlavicky...
> Jeste k tomu malickost. Pouzivam pro stazeni hlavicky metodu
> TIdPOP3.RetrieveHeader z Indy. Dival jsem se do proxy a stazeni
> informaci o hlavickach 4 mailu dalo statistiku 4780 bytes in, 118 out.
> Prijde mi to docela hodne, pres kilobyte na jeden mail :-((. Neni
> sance zavolat POP server tak, aby vydal jen nejnutnejsi udaje (FROM,
> SUBJECT, DATE)? Musi vzdy posilat vse? Potreboval bych tento provoz
> srazit na co nejmensi mnozstvi bytes, ktere protecou...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
modalni okno a klik mysi
[*] Ing. J�n Kuch�r PhD. <kuchar(zv)unicodesys(tec)cz> - 12.2.2003 14:31:03
cau,
predstavte si situaci kde mate pres celou obrazovku spustenou aplikaci, z
ktere jste spustili dalsi modalni okno mensich rozmeru a ted uzivatel klikne
mysi mimo to modalni okno na hlavni aplikaci a zrovna na nejake tlacitko
ktere je na hlavnim okne, normalne to nic neprovede, ale ja bych potreboval
nejaky zpusob jak to rozpoznat, zavrit to modalni okno a jeste spustit akci
ktera se vyvolava tim tlacitkem, dalo by se to resit pres MDI aplikaci, ale
to muj problem momentalne nevyresi, predelavam totiz jednu aplikaci kde
techto situaci s modalnim oknem je kvantum, tak co ted s tim ?
DIK
Re[2]: Mnozstvi dat z/do aplikace
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 12.2.2003 14:39:12
A co kdyby ten server umel IMAP4? Umi IMAP Indy?
Mira
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Vit Tichy
> Sent: Wednesday, February 12, 2003 2:05 PM
> To: Miroslav Ondrisek
> Subject: Re[2]: Mnozstvi dat z/do aplikace
>
>
> Joha Miroslav,
>
> M> Neni sance zavolat POP server tak, aby vydal jen nejnutnejsi udaje
> M> (FROM, SUBJECT, DATE)? Musi vzdy posilat vse?
>
> POP umi jen RETR a TOP, koukni na rfc.
>
> --
> vt
>
>
>
> OT:Ochrana software? - diskuze
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 12.2.2003 14:41:04
viz text nize
> -----Original Message-----
> ...
> b) zhotovi si zalozni rozmnozeninu pocitacoveho
> programu, je-li to potrebne pro jeho uzivani,
> ...
>
> Autorska prava neporusi ten, kdo si pro svou
> potrebu vytvori zalozni kopii. Neni v zakone
> receno, ze dodavatel SW musi umoznit vytvoreni
> teto zalozni kopie.
Ale ani neni receno, ze nesmi obejit pripadnou ochranu proti kopirovani (viz
drive zminena konverze DVD disku)...
Mira
OT:Ochrana software? - diskuze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2003 15:09:24
From: "Vaclav Riha - Soft Consult" <vaclav_riha(zv)softconsult(tec)cz>
> Pouzivame ochranu diskety proti zkopirovani a zaplat panbu (levna ochrana
> pro levny SW). Lze tedy instalovat pouze z originalni diskety a ne z
> duplikatu. Neomezuje to platiciho zakaznika a je to urcita prekazka
Presne takovy software bych si nikdy nekoupil. Nevim jestli si to uvedomujes,
ale disketa je znacne nespolehlive (a drahe) medium, navic uz na nekterych
pocitacich nekdy neni diketova mechanika, zato je tam CDROMka. Jeden znamy co
ma telekomunikacni firmu kupuje licence na nejaky software pro sber dat ktery
je na disketach. Nema sebemensi zajem to krast (stoji to pakatel), jenze tak
tretina tech disket se proste neda precist. A kdyz jede pres pul mesta za
zakaznikem kde to potrebuje nainstalovat a ono to (zase) nejde, tak tim ztraci
dost casu.
Petr Vones
modalni okno a klik mysi
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.2.2003 15:14:22
Spatny navrh aplikace.
Nepouzivat modalni okno, pouzit normalni okno, pak tu bude fungovat tak jak jsi popsal
samo. Ale jedna se o dost nestandartni chovani aplikace.
Slavek
> predstavte si situaci kde mate pres celou obrazovku spustenou aplikaci, z
> ktere jste spustili dalsi modalni okno mensich rozmeru a ted uzivatel klikne
> mysi mimo to modalni okno na hlavni aplikaci a zrovna na nejake tlacitko
> ktere je na hlavnim okne, normalne to nic neprovede, ale ja bych potreboval
> nejaky zpusob jak to rozpoznat, zavrit to modalni okno a jeste spustit akci
> ktera se vyvolava tim tlacitkem, dalo by se to resit pres MDI aplikaci, ale
> to muj problem momentalne nevyresi, predelavam totiz jednu aplikaci kde
> techto situaci s modalnim oknem je kvantum, tak co ted s tim ?
>
>
> DIK
> OT:Ochrana software? - diskuze
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 12.2.2003 15:16:13
> Odes=EDlatel: js-delphi(zv)quick(tec)cz
> Autorska prava neporusi ten, kdo si pro svou=20
> potrebu vytvori zalozni kopii. Neni v zakone=20
> receno, ze dodavatel SW musi umoznit vytvoreni=20
> teto zalozni kopie.
Jasne, jenze ja bych si takovy SW nekoupil...
Naposledy, kdyz jsem byl nucen nejakou ochranu SW implementovat, resil =
jsem to zhruba takto:
Na webu prislusneho dodavatele byla ke stazeni plne funkcni verze. Tato =
verze se od koupene verze lisila pouze tim, ze neustale nekde hlasila =
"jsem DEMO, nejsem licencovana", a to jak v Caption hlavniho formulare, =
na vsech sestavach atd.
Po zaplaceni licence byl uzivateli zaslan jakysi "licencni kod", ktery =
se proste viditelne zapsal do ini spolu s jmenem uzivatele a jakymsi =
kontrolnim souctem. Pak SW zase vsude hlasil: patrim tomu a tomu =
legalnimu uzivateli. Zmenit jmeno se nedalo: prestala fungovat kontrola =
jmena vuci kodu. Bylo to udelano dost jednoduse, asi by se rychle prislo =
na to, jak. Nicmene kdyby se kontrolni mechanismus trochu zdokonalil, =
nebylo by az tak snadne to prorazit. Pritom se tomu z uzivatelskeho =
hlediska nedalo nic vytknout.
Myslim, ze nejak zhruba podobne to resi Sinea.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
OT:Ochrana software? - diskuze
[*] <js-delphi(zv)quick(tec)cz> - 12.2.2003 15:18:12
=3E =3E Navic=2C ty nesmis porusit ci obejit =
=3E jakoukoliv ochranu=2C tzn=2E napr=2E u DVD=2C ze
=3E =3E mas sice pravo si udelat kopii=2C ale aby =
=3E sis ho =22grabnul=22=2C musis obejit CSS a
=3E =3E to neni legalni =3A-) Podobne to bude i u =
=3E software=2E
=3E Toto ovsem neni pravda (aspon podle vykladu =
=3E zakonu=2C ktery se taky objevil na =
=3E internetu - a myslim=2C ze zrovna na Zive)=2E =
=3E Podle nasich platnych zakonu tu =
=3E ochranu muzes obejit (respektive nase zakony =
=3E pry nezakazuji obejiti ochrany) =
=3E ale samozrejme porad jen pro archivni ucely =
=3E (tj=2E udelat si zalozni kopii tebou =
=3E vlastneneho originalu)=2E
=3E Pavel =AEichovsk=FD (zichovsky=40trul=2Ecz)
mas naprosto pravdu! viz jiz mnou zmineny zakon =
121/2000Sb=2E =A743 a =A744=2E
Je to presne tak! Dokonce pokud si koupite orig=2E =
SW a budete si ho chtit zkusit cracknout - vesele =
do toho=2C POKUD si zpusob prolomeni ochrany =
nechate jen pro sebe! Vsechno ostatni je jiz =
porusenim autorskych prav=2E
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
Mnozstvi dat z/do aplikace
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 12.2.2003 15:19:05
Blby je, ze kilobajtik ma KAZDA hlavicka, ne vsechny dohromady :-((
Na ten IMAP jsem opravdu myslel... diky, ze jsi mi to Lukasi potvrdil. Verze
Indy, kterou mam, vsak IMAP nezna - umi to Tva Synapse? Nebo nejaka posledni
INDY? Kde to ted roste (i kdyz hledat ten link nemusis, asi to nekde
najdu...)?
Diky
Mira
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Lukas Gebauer
> Sent: Wednesday, February 12, 2003 2:29 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Mnozstvi dat z/do aplikace
>
>
> POP3 protokol zna prikaz TOP, pomoci ktereho lze stahnout jen VSECHNy
> hlavicky mailu, a to klidne ten kilobajtik byt muze...
>
> Pokud ti jde skutecne u velikost, pak snad leda sahnout po jinem
> protokolu, treba po IMAP4. Pomoci neho si muzes nechat stahnout jen
> tebou vyjmenovane hlavicky...
modalni okno a klik mysi
[*] Delphin <delphin(zv)post(tec)cz> - 12.2.2003 15:24:03
1) misto modalniho okna bude okno stayontop a pred zobrazenim takoveho okna
se v hlavnim okne zakazou vsechny tlacitka, polozky v menu a pod, ktere
behem zobrazeni nemaji byt dostupne.
2) predelat dotcene tlacitka na akce a v modalnim formulari udelat napr
ToolBar a mozne akce dynamicky pridavat.
----- Original Message -----
From: "Ing. J�n Kuch�r PhD." <kuchar(zv)unicodesys(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 12, 2003 2:31 PM
Subject: modalni okno a klik mysi
> cau,
>
> predstavte si situaci kde mate pres celou obrazovku spustenou aplikaci, z
> ktere jste spustili dalsi modalni okno mensich rozmeru a ted uzivatel
klikne
> mysi mimo to modalni okno na hlavni aplikaci a zrovna na nejake tlacitko
> ktere je na hlavnim okne, normalne to nic neprovede, ale ja bych
potreboval
> nejaky zpusob jak to rozpoznat, zavrit to modalni okno a jeste spustit
akci
> ktera se vyvolava tim tlacitkem, dalo by se to resit pres MDI aplikaci,
ale
> to muj problem momentalne nevyresi, predelavam totiz jednu aplikaci kde
> techto situaci s modalnim oknem je kvantum, tak co ted s tim ?
>
> DIK
>
>
modalni okno a klik mysi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.2.2003 15:27:13
MTIuMi4yMDAzICJJbmcuIErhbiBLdWNo4XIgUGhELiI6DQo+IHByZWRzdGF2dGUgc2kgc2l0dWFj
aSBrZGUgbWF0ZSBwcmVzIGNlbG91IG9icmF6b3ZrdSBzcHVzdGVub3UgYXBsaWthY2ksIHoNCj4g
a3RlcmUganN0ZSBzcHVzdGlsaSBkYWxzaSBtb2RhbG5pIG9rbm8gbWVuc2ljaCByb3ptZXJ1IGEg
dGVkIHV6aXZhdGVsIGtsaWtuZQ0KPiBteXNpIG1pbW8gdG8gbW9kYWxuaSBva25vIG5hIGhsYXZu
aSBhcGxpa2FjaSBhIHpyb3ZuYSBuYSBuZWpha2UgdGxhY2l0a28NCj4ga3RlcmUgamUgbmEgaGxh
dm5pbSBva25lLCBub3JtYWxuZSB0byBuaWMgbmVwcm92ZWRlLCBhbGUgamEgYnljaCBwb3RyZWJv
dmFsDQo+IG5lamFreSB6cHVzb2IgamFrIHRvIHJvenBvem5hdCwgemF2cml0IHRvIG1vZGFsbmkg
b2tubyBhIGplc3RlIHNwdXN0aXQgYWtjaQ0KPiBrdGVyYSBzZSB2eXZvbGF2YSB0aW0gdGxhY2l0
a2VtLCBkYWxvIGJ5IHNlIHRvIHJlc2l0IHByZXMgTURJIGFwbGlrYWNpLCBhbGUNCj4gdG8gbXVq
IHByb2JsZW0gbW9tZW50YWxuZSBuZXZ5cmVzaSwgcHJlZGVsYXZhbSB0b3RpeiBqZWRudSBhcGxp
a2FjaSBrZGUNCj4gdGVjaHRvIHNpdHVhY2kgcyBtb2RhbG5pbSBva25lbSBqZSBrdmFudHVtLCB0
YWsgY28gdGVkIHMgdGltID8NCg0KVGFrIHRvaGxlIG5lbmkgcHJhY2UgcHJvIG1vZGFsbmkgb2tu
by4NCk1vem5hIGJ5IHRvIHNwcmF2aWxvIG9rbm8sIG5hc3RhdmVuZSBqYWtvIFN0YXlPblRvcCBz
ZSB6YWNoeWNlbmltDQp6cHJhdnkgcHJpIG9wdXN0ZW5pIG9rbmEuDQpBbGUgcyBtb2RhbG5pbSBv
a25lbSBzZSBvYmF2YW0sIHplIHRvIG5lcHVqZGUgIDotKA0KDQotLSANCkphbiBGaWFsYQ0KbWFp
bHRvOmphbi5maWFsYUBpb2wuY3o=
Mnozstvi dat z/do aplikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.2.2003 15:39:58
INDY9 urcite IMAP umi. (www.nevrona.com/indy)
Synapse ostatne take (url v podpisu... ;-))), ale na takovou
specialitku, jako tahat jen urcite hlavicky, si v pripade Synapse
budes muset rozebrat odpoved serveru rucne. (Musis si vymyslet ten
konkretni IMAP prikaz, pomoci hotove metody jej zavolat.. a pak si
vytahnout vracene hlavicky z vysledku te funkce)
Jak je na timto pozadavkem Indy, to fakt uz nevim.
> Blby je, ze kilobajtik ma KAZDA hlavicka, ne vsechny dohromady :-(( Na
> ten IMAP jsem opravdu myslel... diky, ze jsi mi to Lukasi potvrdil.
> Verze Indy, kterou mam, vsak IMAP nezna - umi to Tva Synapse? Nebo
> nejaka posledni INDY? Kde to ted roste (i kdyz hledat ten link
> nemusis, asi to nekde najdu...)?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
ZeosDBO ve webserverove aplikaci (ISAPI)
[*] Ji�� Mat�jka�����^�F�צ����̿ - 12.2.2003 16:58:12
Zdravim,
mam Zeos komponenty pro MySQL pouzite ve webserverove (ISAPI) aplikac=
i a
mam s nimi nasledujici problem: pri VICE pozadavcich soucasne, nebo ve ve=
lmi
kratkem sledu, tezko se to simuluje jako soubezny pozadaek :-( dochazi k
tomu, ze aplikace pada nejcasteji na "access violation..", obcas nejakou
databazovou chybu "lost connection during query..." apod. Pokud jde o pou=
ze
JEDEN pozadavek, tak nenastava zadny problem.
Aplikace vzdy nejdriv vytvori datamodul se zeos komponentami, vytvori
spojeni k db, provede dotaz, zavre spojeni, znici datamodul a vrati vysle=
dek
klientovi. V realu to bude pochopitelne daleko slozitejsi, nicmene pro
testovaci ucely sem to takhle zjednodusil...
Zkousel sem to experimentalne udelat stejne pomoci db-expressu a vsec=
hno
slape OK. Akorat ze db-express nechci pouzit, mj. proto, ze pro MySQL
nepodporuje transakce.
Mate nekdo s vyse zminenym nejakou zkusenost? Prip. jine komponenty pro
pristup do MySQL s podporou transakci?
W2000 SP3, IIS 5.0, D6 Prof na jednom stroji; MySQL 3.23.53 max-nt na
druhem.
diky
Jirka Matejka
matejka(zv)stemmark(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
IB, FB a subst slozky
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 12.2.2003 17:44:00
Podle me proces Firebird ten disk N nevidi a server se tak chce pripojit
na stroj s nazvem N.
On Wed, 5 Feb 2003, Jan Naiser wrote:
> Preji pekny den,
> (D6)
>
> pri ladeni aplikaci pouzivam DOSovsky prikaz SUBST. Namapuji si napr. slo=
zku
> E:\Borland\Delphi6\Project1\Data jako N:.
> Pouzival jsem IB6 na W2k a pripojoval se v aplikaci lokalne (connection =
=3D
> local) na N:\ a chodilo to. Ted jsem na XP Pro nainstaloval FB a rve mi t=
o:
> Unable to complet network request to host N. Asi nerespektuje substituci =
N
> jako disk, ale soubor hleda na siti. Jinak se v systemu N: chova jako dis=
k.
> Nezkousel jsem jeste kombinaci XP-IB a W2k-FB.
>
> Da se to nejak obejit, nebo budu muset pouzivat cesty bez SUBST?
>
> Diky, Honza.
>
>
---------------------------------------------------------------------------
Vladim=EDr Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj=EDrensk=E1 38, =AE=EF=E1r nad S=E1zavou
pobo=E8ka Olomouck=E1 355, Hlubo=E8ky-Mari=E1nsk=E9 =DAdol=ED
http://hlubocky.del(tec)cz
InterBase - poskozeny index v databazi
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 12.2.2003 18:03:32
On Wed, 12 Feb 2003, [ISO-8859-1] Jan Sebel=EDk wrote:
> > Odes=EDlatel: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> > > > Mne se to stalo jednou taky. Uz si dobre nevzpominam, ale mam takov=
y
> > > > pocit, ze pri nastaveni cehosi (IBConsole) mi to validace odhalila.=
=2E.
> > Mozna to cosi nemam nastavene, ale nevim co mam nastavit.
> > Idealni by vsak bylo to zjistit z aplikace.
>
> V IBConsole jsem dal "validace" a tam se dole nastavuje nejake "validate =
record fragments" a pod.
> Ale jak pisu vyse, uz si nevzpominam, co jsem nastavoval a jestli vubec n=
ekecam.
Pomoci gfixu by to melo jit takto:
gfix -validate -full
---------------------------------------------------------------------------
Vladim=EDr Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj=EDrensk=E1 38, =AE=EF=E1r nad S=E1zavou
pobo=E8ka Olomouck=E1 355, Hlubo=E8ky-Mari=E1nsk=E9 =DAdol=ED
http://hlubocky.del(tec)cz
Jak na reinstalaci Delphi?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2003 18:32:52
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> Ahoj vespolek, pouzivam D5 + SP1 (WinXP) a zacaly mi tu a tam padat, nektere
> funkce funguji blbe nebo vubec ne a zrejme to chce reinstalaci. Je treba
> dodrzet nejake zasady, aby se pokud mozno zachovala vsechna nastaveni a take
Schovej si akorat .dst soubory at nemusis znovu delat nastaveni desktopu.
Zbytek nastaveni mas hotovy za chvili, bylo by sice mozno experimentovat s
daty v registru, ale prave tam se to treba mohlo nejak zmrsit a proto ti to
ted nefunguje.
Ohledne komponent. Instalovat pouze ty ktere nejsou nejak extremne zprasene, a
tech bohuzel neni zase tolik. Jinak receno, pouzivat jen ty co opravdu k
necemu potrebujes.
Petr Vones
Kopirovani a-la XCOPY
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.2.2003 18:35:11
From: "Netu�il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
> potreboval bych poradit, jakym zpusobem provadet tvrde kopirovani v aplikaci
Pomoci API funkce CopyFile, viz Platform SDK nebo MSDN.
Petr Vones
InterBase - poskozeny index v databazi
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 12.2.2003 18:40:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vladimir Michl
>
> Pomoci gfixu by to melo jit takto:
>
> gfix -validate -full
Zkusim diky.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
spusteni .exe aplikace uvnitr sebe sama
[*] -= Ivomir =- <ivomir(zv)seznam(tec)cz> - 12.2.2003 23:24:02
Neumej nejak DEPHI (5) do sebe zakompilovat jinej exac a spustit ho?
Aby ten vnitrni nesel videt jako dalsi soubor ale tvarilo se to jako jeden?
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
spusteni .exe aplikace uvnitr sebe sama
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 12.2.2003 23:29:32
Hello -=,
Wednesday, February 12, 2003, 11:24:02 PM, you wrote:
I> Neumej nejak DEPHI (5) do sebe zakompilovat jinej exac a spustit ho?
I> Aby ten vnitrni nesel videt jako dalsi soubor ale tvarilo se to jako jeden?
I> ....... s pozdravem Ivomir
I> --------------------------------------------------
I> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
I> WWW: http://www.iwebs(tec)cz ICQ: 28872917
Lze skryt soubor, aby nebyl videt v seznamu uloh....
--
Pavel Kubal
+420 728 102 328 mailto:kubal.p(zv)seznam(tec)cz
schovani aplikace z task listu ve XP a w2000
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 12.2.2003 23:49:34
nemate nekdo univ. kod kterej schova aplikaci ve vsech
windowsech ze seznamu spustenych procesu?
ja sem pouzival tuto, ale nevali to pod w2000 ani v XPckach.
kerneldll:=LoadLibrary('kernel32.dll');
//*************************************** SCHOVANI SERVICE PROCESS *****
procedure mojeaplikace.PWserviceprocess(value:boolean);
begin
fserviceprocess:=value;
if serviceprocess then serviceprocessEin;
if not serviceprocess then serviceprocessAus;
end;
procedure mojeaplikace.serviceprocessEin;
type Tregisterservice = function(dwProcessId,dwType:dword): Integer;stdcall;
var registerserviceprocess:Tregisterservice;
begin
if (csDesigning in ComponentState) then exit;
(zv)registerserviceprocess:=GetProcAddress(kerneldll, 'RegisterServiceProcess');
if (zv)registerserviceprocess=nil then exit;
RegisterServiceProcess(GetCurrentProcessID,1);
end;
procedure mojeaplikace.serviceprocessAus;
type Tregisterservice = function(dwProcessId,dwType:dword): Integer;stdcall;
var registerserviceprocess:Tregisterservice;
begin
if (csDesigning in ComponentState) then exit;
(zv)registerserviceprocess:=GetProcAddress(kerneldll, 'RegisterServiceProcess');
if (zv)registerserviceprocess=nil then exit;
RegisterServiceProcess(GetCurrentProcessID,0);
end;
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
schovani aplikace z task listu ve XP a w2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2003 00:00:20
From: " Ivomir" <ivomir(zv)seznam(tec)cz>
> nemate nekdo univ. kod kterej schova aplikaci ve vsech
> windowsech ze seznamu spustenych procesu?
Ne. Na NT neco takoveho pokud vim nejde a je to tak spravne.
Petr Vones
spusteni .exe aplikace uvnitr sebe sama
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2003 00:02:52
From: "-= Ivomir =-" <ivomir(zv)seznam(tec)cz>
> Neumej nejak DEPHI (5) do sebe zakompilovat jinej exac a spustit ho?
> Aby ten vnitrni nesel videt jako dalsi soubor ale tvarilo se to jako jeden?
Ne, protoze to "neumi" operacni system. A takova vec by ani nebyla nijak
uzitecna (tedy krome viru).
Petr Vones
schovani aplikace z task listu ve XP a w2000
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 00:04:58
urcite de protoze sem se setkal s mnoha aplikacema
co byly schovany a sly videt napr. v TASK INFO 2000
ale v normalnim taskmanageru ne. ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
> Ne. Na NT neco takoveho pokud vim nejde a je to tak spravne.
>
> Petr Vones
> spusteni .exe aplikace uvnitr sebe sama
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 00:10:27
bohuzel opet to jde, napsal mi zdenek horak tak sem placnu
jeho postup.
btw: vsechno nemusi byt viry, ses nejakej skeptickej covece.
delam na studijni aplikaci ktera mi bude pakovat .exe a sama se
dovnitr zakompiluje aby nebylo potreba tahat i rozbalovaci
soubor proste samorozbalovaci archiv.
1) vytvor si resource soubor MojeRes.rc a vloz do nej nasledujici radku:
identifikator exefile MojeExe.exe
2) zkompiluj resource soubor (tim se ti vytvori MojeRes.res)
brcc32 MojeRes.rc
3) pridej MojeRes.res do projektu (bud do *.dpr nebo do *.pas)
implementation
{$R *.dfm}
{$R MojeRes.res}
4) pak potrebujes procedurku, co ti vytahne ten exac abys ho mohl
pozdeji spustit:
procedure TForm1.ExtractRes(ResType,ResName, ResNewName:String);
var ExeRes:TResourceStream;
begin
ExeRes:=TResourceStream.Create(Hinstance,Resname,Pchar(ResType));
ExeRes.SavetoFile(ResNewName);
ExeRes.Free;
end;
5) no a to je asi vse, pouziti procedury ExtractRes je snad jiz
zrejme, napr:
procedure TForm1.FormCreate(Sender: TObject);
begin
ExtractRes('exefile','identifikator','NoveExe.exe');
end;
ave
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> Ne, protoze to "neumi" operacni system. A takova vec by ani nebyla nijak
> uzitecna (tedy krome viru).
>
> Petr Vones
>
> schovani aplikace z task listu ve XP a w2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2003 00:16:56
From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> urcite de protoze sem se setkal s mnoha aplikacema
> co byly schovany a sly videt napr. v TASK INFO 2000
Napriklad ?
Petr Vones
spusteni .exe aplikace uvnitr sebe sama
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2003 00:17:19
From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> bohuzel opet to jde, napsal mi zdenek horak tak sem placnu
> jeho postup.
Jenze to musis ulozit do docasneho souboru, to uz je neco uplne jineho. Pak uz
jsou to dva soubory.
Petr Vones
schovani aplikace z task listu ve XP a w2000
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 00:28:34
napriklad adminisracni modul pro remote destkop anywere
nejde ani sestrelit v taskinfu, v systray nejde videt. ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> > urcite de protoze sem se setkal s mnoha aplikacema
> > co byly schovany a sly videt napr. v TASK INFO 2000
>
> Napriklad ?
>
> Petr Vones
> spusteni .exe aplikace uvnitr sebe sama
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 00:59:37
no a neslo by to ulozit do pameti misto na disk a odtud
to spustit? tezko co
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 13, 2003 12:17 AM
Subject: Re: spusteni .exe aplikace uvnitr sebe sama
> From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> > bohuzel opet to jde, napsal mi zdenek horak tak sem placnu
> > jeho postup.
>
> Jenze to musis ulozit do docasneho souboru, to uz je neco uplne jineho. Pak uz
> jsou to dva soubory.
>
> Petr Vones
>
> nevyskoceni chybove hlasky
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 01:04:55
obcas se mi stane, ze mi NMUDP1.SendStream(MyStream);
vyhodi chybovou hlasku error stream NULL bo neco takovyho
asi kdyz do MyStream nic nedam ale o to nejde, potrebuju
odchytat aby ta hlaska neyskakovala de to nejak?
dal sem tam
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1], Length(TmpStr));
NMUDP1.SendStream(MyStream);
finally
MyStream.Free;
end;
ale to try a finally to nevyresilo.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
nevyskoceni chybove hlasky
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 01:08:20
abych navazal na to minule lze nejak v debuggeru (D5) uplne
potlacit vyskakovani jakychkoliv chybovych hlasek?
V archivu sem vycetl neco o
Tools > Debugger optios > Language Exceptions
> Stop on Delphi Exceptions
nicmene mi hlasky porat vyskakuji
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Velokost pracovni plochy
[*] "Netu�il, Roman, Ing." - 13.2.2003 06:39:13
Zdravim,
potreboval bych vedet, jak zjistit skutecnou velikost volne pracovni plochy
Windows 98/200/XP. Myslim tim volnou oblast bez task baru, panelu MS Office
atd. Jak zjistim, ze se tato volna oblast zmenila?
Roman
D6Prof, Win2000,XP
nevyskoceni chybove hlasky
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.2.2003 07:24:56
> obcas se mi stane, ze mi NMUDP1.SendStream(MyStream);
> vyhodi chybovou hlasku error stream NULL bo neco takovyho
> asi kdyz do MyStream nic nedam ale o to nejde, potrebuju
> odchytat aby ta hlaska neyskakovala de to nejak?
> dal sem tam
>
> MyStream := TMemoryStream.Create;
> try
> MyStream.Write(TmpStr[1], Length(TmpStr));
> NMUDP1.SendStream(MyStream);
> finally
> MyStream.Free;
> end;
>
> ale to try a finally to nevyresilo.
Try..finally NESLOUZI k zachyceni vyjimky - to musis pouzit try..except. U finally
sekce jde o to, ze se provede vzdy, i v pripade, ze uvnitr try bloku dojde k vyjimce.
Ovsem vyjimku to nezadrzi a ta se siri dal, az do nejakeho nadrazeneho except.
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1], Length(TmpStr));
try
NMUDP1.SendStream(MyStream);
except
tady se da zareagovat, pripadne vybirat jen urcite vyjimky pomoci ON, viz help
end;
finally
MyStream.Free;
end;
David Lebeda
nevyskoceni chybove hlasky
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.2.2003 07:29:04
> abych navazal na to minule lze nejak v debuggeru (D5) uplne
> potlacit vyskakovani jakychkoliv chybovych hlasek?
> V archivu sem vycetl neco o
> Tools > Debugger optios > Language Exceptions
> > Stop on Delphi Exceptions
> nicmene mi hlasky porat vyskakuji
Pokud mas Stop on Delphi exceptions zapnute, tak vzdy, kdyz v
programu vznikne vyjimka, Ti Delphi napred reknou, ze vyjimka
vznikla. Beh programu pak bezi dal. Pokud ji v programu zachytis a
osetris, tak uz ti nic dalsiho nevyskoci, pokud ji v programu
nezachytis, tak Ti program zobrazi hlasku o vyjimce. Vypnutim Stop
on Delphi exceptions rikas Delphi, ze kdyz vznikne vyjimka, tak ti to
Delphi nebude hlasit. Pokud ovsem vyjimku nezachyti program
pomoci try..except, program Ti hlasku zobrazi. Toto chovani je v
poradku - vyjimky se maji resit a ne ignorovat.
David Lebeda
spusteni .exe aplikace uvnitr sebe sama
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.2.2003 08:07:11
> Neumej nejak DEPHI (5) do sebe zakompilovat jinej exac a spustit ho?
> Aby ten vnitrni nesel videt jako dalsi soubor ale tvarilo se to jako
jeden?
vzdycky muzes spojit nekolik souboru za sebe do jednoho velkyho (treba
i komprimovat). Pokud pred libovolny soubor prilepis (prostym
kopirovanim) execko pujde bez problemu spustit. Ten zavadec pak muze
otevrit sam sebe na disku zkopirovat do jinyho souboru zbytek dat
(dalsi execko) a spustit je. Takhle funguji napriklad instalcni
programy
D. Toman
Velokost pracovni plochy
[*] <js-delphi(zv)quick(tec)cz> - 13.2.2003 08:08:36
Ahoj=2E
Hledej v helpu Screen=2E To co chces se bude =
jmenovat setjene jako napr=2E u =22Formu=22=2E Tam je =
taky jen pracovni plocha=2E
budeto neco jako
Screen=2EClientWidth=3B Screen=2EClientHieght=3B
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A =22Netu=B9il=2C Roman=2C Ing=2E=22 =
=3CNetusil=2ERoman=40vspardubice=2Ecz=3E
Datum=3A =E8tvrtek=2C 13=2E =FAnora 2003 v 6=3A39 dop=2E
P=F8edm=ECt=3A Velokost pracovni plochy
=3E Zdravim=2C
=3E potreboval bych vedet=2C jak zjistit skutecnou =
=3E velikost volne pracovni plochy
=3E Windows 98/200/XP=2E Myslim tim volnou oblast =
=3E bez task baru=2C panelu MS Office
=3E atd=2E Jak zjistim=2C ze se tato volna oblast =
=3E zmenila=3F
=3E Roman
=3E =
=3E D6Prof=2C Win2000=2CXP
=3E
Velokost pracovni plochy
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 13.2.2003 08:58:34
Zdravim
ja by som pouzil Screen.WorkAreaRect, Screen.WorkAreaLeft....pripadne
Screen.Monitors[i].WorkAreaRect
Milan
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Thursday, February 13, 2003 8:09 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Velokost pracovni plochy
Ahoj.
Hledej v helpu Screen. To co chces se bude=20
jmenovat setjene jako napr. u "Formu". Tam je=20
taky jen pracovni plocha.
budeto neco jako
Screen.ClientWidth; Screen.ClientHieght;
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od: "Netu=B9il, Roman, Ing."=20
<Netusil.Roman(zv)vspardubice(tec)cz>
Datum: =E8tvrtek, 13. =FAnora 2003 v 6:39 dop.
P=F8edm=ECt: Velokost pracovni plochy
> Zdravim,
> potreboval bych vedet, jak zjistit skutecnou=20
> velikost volne pracovni plochy
> Windows 98/200/XP. Myslim tim volnou oblast=20
> bez task baru, panelu MS Office
> atd. Jak zjistim, ze se tato volna oblast=20
> zmenila?
> Roman
>=20
> D6Prof, Win2000,XP
>=20
Could not find language driver
[*] Dalibor <dalibor(zv)torola(tec)cz> - 13.2.2003 09:12:34
Dobry den,
Mam DBF tabulku typu FOXPRO, kterou se snazim otevrit pres BDE.
Pri otevirani mi to ale pise "Could not find language driver".
Nevite nekdo co s tim, nebo jak to obejit?
Struktura DBF je korektni. Potrebuji ji nacist bez nejakeho fyzickeho
zasahu. (prepsani hlavicky atd.)
Pres ODBC to funguje.
Jak se da nastavit ODBC alias s Delphi?
Diky moc
Velokost pracovni plochy
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 13.2.2003 09:16:35
Ahoj, pokud to potrebujes napriklad na vykresleni formulare do cele volne
plochy, tak bys mel odchytit zpravu WM_SETTINGCHANGE.
procedure TForm1.WMSettingChange(var Message: TMessage);
var
R: TRect;
begin
SystemParametersInfo( SPI_GETWORKAREA, 0, (zv)R, 0 );
BoundsRect :=3D R;
end;
Ahoj, Jarda
----- Original Message -----
From: "Netu=B9il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
Sent: Thursday, February 13, 2003 6:39 AM
Subject: Velokost pracovni plochy
> Zdravim,
> potreboval bych vedet, jak zjistit skutecnou velikost volne pracovni
plochy
> Windows 98/200/XP. Myslim tim volnou oblast bez task baru, panelu MS
Office
> atd. Jak zjistim, ze se tato volna oblast zmenila?
>
> Roman
>
> D6Prof, Win2000,XP
schovani aplikace z task listu ve XP a w2000
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 13.2.2003 09:25:39
> napriklad adminisracni modul pro remote destkop anywere
> nejde ani sestrelit v taskinfu, v systray nejde videt.
>
A nebezi to jako sluzba?
Jarda
Rozdil v razeni?
[*] Dalibor <dalibor(zv)torola(tec)cz> - 13.2.2003 10:17:20
Ahoj,
Je nejaky rozdil v razeni mezi Slovenstinou a Cestinou?
Jde o to, jestli muzu pouzit ceske trideni i pro Slovenstinu, nebo ma
Slovenstina v necem jina specifika.
Dekuji
oddelovac data
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 13.2.2003 11:38:05
Podivej se v helpu na heslo "Currency and date/time formatting variables"
Pavel
> -----Original Message-----
> From: Dalibor Falt=FDnek [mailto:dalibor.faltynek(zv)orgrez(tec)cz]
> Sent: Thursday, February 13, 2003 11:44 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: oddelovac data
>=20
>=20
> Ahoj,
> jak se prosimvas da zjistit v d5 oddelovac data. U nas je=20
> sice zvykem tecka,
> ale obcas ma nekdo mistnim nastaveni pomlcku a pak mi ruzne=20
> prevody string
> do data hazi type mysmas. Asi to pujde pres API, ale jak.
> Diky.
> dalibor.faltynek(zv)orgrez(tec)cz
>=20
>=20
oddelovac data
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 13.2.2003 11:43:55
Ahoj,
jak se prosimvas da zjistit v d5 oddelovac data. U nas je sice zvykem tecka,
ale obcas ma nekdo mistnim nastaveni pomlcku a pak mi ruzne prevody string
do data hazi type mysmas. Asi to pujde pres API, ale jak.
Diky.
dalibor.faltynek(zv)orgrez(tec)cz
Prevod FileTime do DateTime
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 13.2.2003 11:51:36
Asi s tim otravuju, ale
pokud to potrebuji obecne i v navazujicich nedelfackych programech kde neni
fce FileDateToDateTime() a pouze 32bit integer?> Podivej se na funkci FileDateToDateTime()
>
> > prosim poradte jak prevest cas ve formatu FileTime do TDateTime. Bohuzel
> > nemuzu pouzit cislo Int64 a 64bitovou aritmetiku, moje Integery maji
pouze
> > 32 bit. Nacitani casovych udaju je z binarniho souboru, zpracovani musi
byt
> > v 16 bitovem delphi, nebo vb16.JCL Help - chybne hledani
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.2.2003 11:53:10
Ahoj,
Zadam v HTML helpu na zalozce Vyhledavat retezec "temp" a stisknu Enter.
Najde se mi pouze GetWindowsTempPath, ac zjevne existuje taky
FileGetTempName a mnoho dalsich? Mam posledni verzi helpu:
http://prdownloads.sourceforge.net/jcl/JCLHelp_chm_17032002.zip?download
Nevite, v cem muze bych chyba? Je to chyba HTMPHelpu nebo souboru JCL?
Co s tim? Hledat v obsahu je docela zdlouhave.
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Prevod FileTime do DateTime
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 13.2.2003 12:07:52
From: "Dalibor Falt�nek" <dalibor.faltynek(zv)orgrez(tec)cz>
> Asi s tim otravuju, ale
> pokud to potrebuji obecne i v navazujicich
> nedelfackych programech kde neni
> fce FileDateToDateTime() a pouze 32bit integer?
>
> > Podivej se na funkci FileDateToDateTime()
Podivej se jeste jednou na tu funkci FileDateToDateTime(), ale tentokrat do
zdrojovky
sysutils.pas. Z toho kodu bys mel pochopit,
jak je zformatovan DWORD obsahujici FileDate.
Format TDateTime je znam a je popsan v helpu.
Na zaklade techto informaci bys mel byt schopen si potrebnou konverzi napsat
a to treba na 8mi bitovem jednocipu.
HTH, pf
Prevod FileTime do DateTime
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 13.2.2003 12:12:04
> pokud to potrebuji obecne i v navazujicich nedelfackych
> programech kde neni fce FileDateToDateTime() a pouze
> 32bit integer?
A co takhle FileTimeToSystemTime a SystemTimeToDateTime ?
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Zpravy po siti
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 13.2.2003 13:08:39
Zdravim vas,
prosil bych opet o radu.
Potreboval bych z jednoho pocitace v siti odeslat zpravu (klasicky
MessageBox) na jiny pocitac. Parametrem zpravy by bylo jmeno toho pocitace
kam se ma zprava poslat a nejaky text.
Lze toto uskutecnit bez spusteni mesengeru a ostatnich programku na PC?
Pokud ano, poradte prosim...
Diky moc V
Delphi 5, WNT, W98, WXP
schovani aplikace z task listu ve XP a w2000
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 13:09:44
jo bezi
takze otazka zni jak spustit ulohu jako sluzbu ve w2k ci XP? ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
> > napriklad adminisracni modul pro remote destkop anywere
> > nejde ani sestrelit v taskinfu, v systray nejde videt.
> >
>
> A nebezi to jako sluzba?
>
> Jarda
>
> Zpravy po siti
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 13.2.2003 13:10:20
NET SEND [jmeno_ciloveho_pc] [text_zpravy]
Ales
> -----Original Message-----
> From: Vlastimil Zden=ECk [mailto:delphi(zv)gestore(tec)cz]=20
> Potreboval bych z jednoho pocitace v siti odeslat zpravu (klasicky
> MessageBox) na jiny pocitac. Parametrem zpravy by bylo jmeno=20
> toho pocitace
> kam se ma zprava poslat a nejaky text.Zpravy po siti
[*] �tuPe - 13.2.2003 13:23:17
Syst=E9m tohle neum=ED s=E1m o sob=EC. V=9Edy mus=ED b=FDt na obou =
stran=E1ch n=ECjak=E9 progr=E1mky. Po=E8=EDnaje messengerem, kter=FD se =
tv=E1=F8=ED b=FDti jednolit=FD se syst=E9mem (to tak ale vypad=E1 jen =
proto, =9Ee je spu=9At=ECn jako slu=9Eba).
Pak by jsi musel m=EDt progr=E1mky na obou stran=E1ch, t=F8eba v Delphi =
viz. "Program Files\Borland\Delphi5\Demos\Internet\Chat", kde ti to =
pojede i na OSW95(existuje TrayPop, na w95 slu=9Eby nebyly) <-> W2K.
=8AtuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: "Vlastimil ZdenXk" <delphi(zv)gestore(tec)cz>
Komu: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 13. =FAnora 2003 13:08
P=F8edm=ECt: Zpravy po siti
> Zdravim vas,
> prosil bych opet o radu.
> Potreboval bych z jednoho pocitace v siti odeslat zpravu (klasicky
> MessageBox) na jiny pocitac. Parametrem zpravy by bylo jmeno toho =
pocitace
> kam se ma zprava poslat a nejaky text.
> Lze toto uskutecnit bez spusteni mesengeru a ostatnich programku na =
PC?
> Pokud ano, poradte prosim...
>=20
> Diky moc V
>=20
> Delphi 5, WNT, W98, WXP
>=20
>=20
>=20
>=20
>=20
Enumerace compu v siti a pravidelny ping na ne
[*] Petr Langer <langer(zv)xdom(tec)cz> - 13.2.2003 13:52:01
Zdravim vsechny,
potrebuju enumerovat compy v lokalni siti, udelat z nich seznam a dale v
pravidelnych intervalech zobrazovan casy pingu na ne.
Myslim, ze by to nebyl problem udelat (i kdyz ping jsem nikdy nedelal), ale
spise hledam, jestli neco takoveho uz nekdo nema.
Diky
Petr Langer
Komunikace mezi sluzbou a aplikaci
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 13.2.2003 14:20:02
Ahoj,
mam napsanou sluzbu, ktera provadi urcite operace. Nyni bych potreboval
napsat servisni aplikaci, pres kterou budu service ovladat. Narazil jsem
ovsem na problem, jak si mezi sluzbou a aplikaci vymenovat data. Idealni
stav by byl, kdybych si mohl posilat do sluzby zpravu WM_COPYDATA a tam
ji zpracovat. Ovsem problem je v tom, ze tuto zpravu nemuzu ve sluzbe
odchytit, protoze nema zadne okno, ktere by ji zachytilo.=20
Jde to nejak rozumne vyresit? Nechce se mi delat komunikaci pres
mailsloty a podobne veci.
Na netu jsem nasel nejake informace o posilani zprav threadu service
pres PostThreadMessage, nicmene toto se mi nepodarilo rozchodit.=20
Za kazdou radu diky.
Ales=20
zmena ikony za behu programu
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 14:30:38
mam ikona.res v nem dve ikony
chci zmenit ikonu programu (ne okna ale ikonu u .exe) ale tohle mi
nejak nevali, kde delam chybu nevite?
image1.Picture.Icon.Handle := extracticon(application.Handle,PChar('ikona'),1);
application.Icon := image1.Picture.Icon; ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
CONST
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 13.2.2003 14:46:42
Ahoj,
rad bych se zeptal, co vse se da ulozit jako konstatna.
Jde mi hlavne o to, jestli muzu nejakym zpusobem ulozit jako konstatntu =
FIELDBYNAME a odvolavat se na to treba FBN.
Diky
Vasek
CONST
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.2.2003 14:53:54
> Jde mi hlavne o to, jestli muzu nejakym zpusobem ulozit jako
> konstatntu FIELDBYNAME a odvolavat se na to treba FBN.
Myslim ze ne. FieldByName je nazev metody, to nejak jednoduse
nezmenis.
Jedine, co me napada, ale nevim, zda je schudne, je vyuziti Delphi -
code templates. Pokud je mozne pridat vlastni sablonu, tak bys pak
mohl v kodu napsat FBN, zmacknout CTRL+J (pokud se nepletu).
Nevim, nepouzivam to, jde jen o napad k nasmerovani.
David Lebeda
shared folders
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 13.2.2003 14:58:18
ahoj
hadze mi to nejake exception ??? a to v tomto kode
> procedure TNetThread.InsertStrToResUsers;
> var i : integer;
> s : string;
> begin
> if FUsers.Count>1 then
> begin
> FResUsers.Clear; - NA TOMTO RIADKU ?????????
> for i:=0 to FUsers.Count-1 do
> FResUsers.Add(FUsers.Strings[i]);
> end;
> end;
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************CONST
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.2.2003 14:59:54
SmFrbyBrb25zdGFudHUgbHplIHVsb3ppdCBrb25zdGFudG5pIChuZW1lbm55KSB1ZGFqLiBOZSBv
ZGtheiBuYQ0Kb2JqZWt0LCBqbWVuYSBwcm9wZXJ0eSBhcG9kLg0KVG8sIGNvIHBvdHJlYnVqZXMs
IGplIG5hZGVmaW5vdmF0IHNpIEZpZWxkcyBhIHBhayBzZSBuYSBuZSBtdXplcyBwcmltbw0Kb2R2
b2xhdmF0IGEgcHJhY292YXQgcyBob2Rub3RhbWkuDQoNCkVkaXRvciB1bWkgaSBwb2RvYm5lIGRv
cGxub3ZhbmksIHRha3plIG5hcGlzZXMgZmJuIEN0cmwrSiBhIG9ubyBzZSB0aQ0KdG8gZG9wbG5p
IG5hIEZpZWxkQnlOYW1lIChudXRubyBuYWRlZmlub3ZhdCkNClBvcHIuIERhbHNpIG1vem5vc3Qg
amUgbmFpbnN0YWxvdmF0IHNpIEdFeHBlcnRzLCBrdGVyZSBtYWppDQphdXRvbWF0aWNrZSBvcHJh
dnksIHRha3plIG5hcGlzZXMgZmJuIGEgdXogamUgeiB0b2hvIEZpZWxkQnlOYW1lDQoNCkFsZSBu
YSBwb2RvYm5lIHByb3BlcnR5IGEgbWV0b2R5IG9iamVrdHUgamUgbGVwc2kgbm9ybWFsbmkgQ3Ry
bCtTcGFjZS4NCk5hcGlzZXMgVGFibGUuIEN0cmwrU3BhY2UsIHBhayBwb2tyYWN1amVzIHYgcHNh
bmkgZmllLi4uLCBuYWpkZXMgc2kNCkZpZWxkQnlOYW1lIGEgRW50ZXIuDQoNCi0tIA0KSmFuIEZp
YWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxMy4yLjIwMDMgTFVLRVMgVuFjbGF2Og0K
PiByYWQgYnljaCBzZSB6ZXB0YWwsIGNvIHZzZSBzZSBkYSB1bG96aXQgamFrbyBrb25zdGF0bmEu
DQo+IEpkZSBtaSBobGF2bmUgbyB0bywgamVzdGxpIG11enUgbmVqYWt5bSB6cHVzb2JlbSB1bG96
aXQgamFrbw0KPiBrb25zdGF0bnR1IEZJRUxEQllOQU1FIGEgb2R2b2xhdmF0IHNlIG5hIHRvIHRy
ZWJhIEZCTi4=
Predefinovani predka
[*] harman(zv)volny(tec)cz - 13.2.2003 15:16:38
Zdravim,
nevim jestli se k problemu stavim dobre, ale takova situace:
Potreboval bych pridat nejake vlastnosti a metody do TControl a
potom od toho TControl dynamicky vytvaret TLabel, TEdit... je
toto vubec mozne? Dik. Honza.Re2: Zpravy po siti
[*] �tuPe - 13.2.2003 15:18:59
Ano, "net send" pou=BE=EDv=E1 zm=EDn=ECnou slu=BEbu Messenger.
Zkuste si vypnout slu=BEbu "net stop messenger", nic neode=B9lete a =
nep=F8ijmete ...
p.
----- P=F9vodn=ED zpr=E1va -----=20
Od: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 13. =FAnora 2003 13:10
P=F8edm=ECt: RE: Zpravy po siti
NET SEND [jmeno_ciloveho_pc] [text_zpravy]
Ales
> -----Original Message-----
> From: Vlastimil Zden=ECk [mailto:delphi(zv)gestore(tec)cz]=20
> Potreboval bych z jednoho pocitace v siti odeslat zpravu (klasicky
> MessageBox) na jiny pocitac. Parametrem zpravy by bylo jmeno=20
> toho pocitace
> kam se ma zprava poslat a nejaky text.oddelovac data
[*] <js-delphi(zv)quick(tec)cz> - 13.2.2003 15:18:24
Ahoj=2E
Bude to neco podobneho jako DecimalSeparator - =
snad DateSeparator=2E
Pak se Ti mozna bude hodit i nastaveni formatu =
data (automaticky to potom vraci pri pouziti =
napr=2E DateToStr() pozadovany format) - mrkni na =
ShortDateFormat (nebo ShortFormatDate =3F=3F =2E=2E=2E ted =
fakt nevim)
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Dalibor Falt=FDnek =3Cdalibor=2Efaltynek=40orgrez=2Ecz=3E
Datum=3A =E8tvrtek=2C 13=2E =FAnora 2003 v 11=3A43 dop=2E
P=F8edm=ECt=3A oddelovac data
=3E Ahoj=2C
=3E jak se prosimvas da zjistit v d5 oddelovac =
=3E data=2E U nas je sice zvykem tecka=2C
=3E ale obcas ma nekdo mistnim nastaveni pomlcku =
=3E a pak mi ruzne prevody string
=3E do data hazi type mysmas=2E Asi to pujde pres =
=3E API=2C ale jak=2E
=3E Diky=2E
=3E dalibor=2Efaltynek=40orgrez=2Ecz
=3E =
=3E =
=3E
Enumerace compu v siti a pravidelny ping na ne
[*] Vlko II. <vlko(zv)zilina(tec)net> - 13.2.2003 15:24:10
prednedavnom som poslal do konferencie cely unit na zistovanie pocitacov v
sieti, je to
pod subjektom Re: shared folders tak si to skus najst, alebo sa ozvi
sukromne na moj mail
poslem ti ho. Je to robene ako thread a dalsie veci, ping si uz jednoducho
dorobis.
On Thu, 13 Feb 2003 13:52:01 +0100, Petr Langer <langer(zv)xdom(tec)cz> wrote:
> Zdravim vsechny,
> potrebuju enumerovat compy v lokalni siti, udelat z nich seznam a dale v
> pravidelnych intervalech zobrazovan casy pingu na ne.
> Myslim, ze by to nebyl problem udelat (i kdyz ping jsem nikdy nedelal),
> ale
> spise hledam, jestli neco takoveho uz nekdo nema.
>
> Diky
> Petr Langer
>
>
>
--
--------------
vlko_(zv)pobox.sk
shared folders
[*] Vlko II. <vlko(zv)zilina(tec)net> - 13.2.2003 15:29:54
pri vytvarani threadu predavas odkaz na objekt TStringList, tak ak
si mu nepredal dobry TStringList, tak ti do ani fungovat nebude:)
Je to urobene tak, aby bol ten zoznam pocitacov dostupny aj ked sa nacitava
preto je tam osobitne ten FUsers, no a na konci vyhladavania sa ti udaje
prenesu do toho stringlistu, ktory si odovzdal ako odkaz.
PS: nezabudni potom odfiltrovat znak '#', ktory je vzdy na zaciatku
pocitaca,
tym sa robi rozdiel medzi groupov a pocitacom, je to robene kvoli
nacitavaniu
do stromu
On Thu, 13 Feb 2003 14:58:18 +0100, Robert Suska <SuskaR(zv)seznam(tec)cz> wrote:
> ahoj
>
> hadze mi to nejake exception ??? a to v tomto kode
>
>> procedure TNetThread.InsertStrToResUsers;
>> var i : integer;
>> s : string;
>> begin
>> if FUsers.Count>1 then
>> begin
>> FResUsers.Clear; - NA TOMTO RIADKU ?????????
>> for i:=0 to FUsers.Count-1 do
>> FResUsers.Add(FUsers.Strings[i]);
>> end;
>> end;
>
> Robo
>
> ************************************
> Robert Suska
> KORAK SLOVAKIA s.r.o.
> Horna 52
> 974 01 Banska Bystrica
> www.korak.sk robert(zv)korak.sk
> Network administrator, Delphi programmer
> ************************************
>
>
--
--------------
vlko_(zv)pobox.sk
schovani aplikace z task listu ve XP a w2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.2.2003 15:31:07
From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> takze otazka zni jak spustit ulohu jako sluzbu ve w2k ci XP?
Napsat ji jako service. V Delphi: New Items -> Service Application ...
Petr Vones
Predefinovani predka
[*] Delphin <delphin(zv)post(tec)cz> - 13.2.2003 15:31:52
1) nestavis se k tomu dobre
2) lze to obejit vicenasobnou dedicnosti (potomek je potomkem vice predku
najednou) a vicenasobnou dedicnost lze obejit pomoci interface. viz help k
interface
----- Original Message -----
From: <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 13, 2003 3:16 PM
Subject: Predefinovani predka
> Zdravim,
> nevim jestli se k problemu stavim dobre, ale takova situace:
> Potreboval bych pridat nejake vlastnosti a metody do TControl a
> potom od toho TControl dynamicky vytvaret TLabel, TEdit... je
> toto vubec mozne? Dik. Honza.
>
Enumerace compu v siti a pravidelny ping na ne
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 13.2.2003 15:52:29
A PING pak udelas snadno treba pomoci Synapse... v unite PingSend.pas
mas hotovou funkci PingHost, ktera dostava jako parametr jmeno
pocitace, a vraci cislo. T cislo je cas pingu v milisekundach,
pripadne vraci -1, kdyz se ping nepovedl.
> prednedavnom som poslal do konferencie cely unit na zistovanie
> pocitacov v sieti, je to pod subjektom Re: shared folders tak si to
> skus najst, alebo sa ozvi sukromne na moj mail poslem ti ho. Je to
> robene ako thread a dalsie veci, ping si uz jednoducho dorobis.
> > potrebuju enumerovat compy v lokalni siti, udelat z nich seznam a
> > dale v pravidelnych intervalech zobrazovan casy pingu na ne. Myslim,
> > ze by to nebyl problem udelat (i kdyz ping jsem nikdy nedelal), ale
> > spise hledam, jestli neco takoveho uz nekdo nema.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Predefinovani predka
[*] harman(zv)volny(tec)cz - 13.2.2003 15:52:38
Slysel jsem uz o tom, ale trosku se vicenasobne dedicnosti bojim.
Podivam se do helpu, uvidime asi nic jineho nezbyde. Snad jestli
by jeste nekoho neco napadlo.
Potrebuji volat sve stejne metody a vlastnosti u napriklad
Tlabel, TEdit, TImage... Honza.
> 1) nestavis se k tomu dobre
> 2) lze to obejit vicenasobnou dedicnosti (potomek je
> potomkem vice predku
> najednou) a vicenasobnou dedicnost lze obejit pomoci
> interface. viz help k
> interface
>
> ----- Original Message -----
> From: <harman(zv)volny(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, February 13, 2003 3:16 PM
> Subject: Predefinovani predka
>
>
> > Zdravim,
> > nevim jestli se k problemu stavim dobre, ale takova
> > situace:
> > Potreboval bych pridat nejake vlastnosti a metody do
> > TControl a
> > potom od toho TControl dynamicky vytvaret TLabel,
> > TEdit... je
> > toto vubec mozne? Dik. Honza.
> >
>
> Re2: Zpravy po siti
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 13.2.2003 15:56:12
Neprijmes, ale odesilat muzes. Ta sluzba je podle vseho jen server, ktery zpravy
prijima, ackoliv v popisu ma napsano neco jineho.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Thursday, February 13, 2003, 3:18:59 PM, you wrote:
�> Ano, "net send" pou��v� zm�n�nou slu�bu Messenger.
�> Zkuste si vypnout slu�bu "net stop messenger", nic neode�lete a nep�ijmete ...
�> p.
�> ----- P�vodn� zpr�va -----
�> Od: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
�> Komu: <delphi-l(zv)clexpert(tec)cz>
�> Odesl�no: 13. �nora 2003 13:10
�> P�edm�t: RE: Zpravy po siti
�> NET SEND [jmeno_ciloveho_pc] [text_zpravy]
�> Ales
>> -----Original Message-----
>> From: Vlastimil Zden�k [mailto:delphi(zv)gestore(tec)cz]
>> Potreboval bych z jednoho pocitace v siti odeslat zpravu (klasicky
>> MessageBox) na jiny pocitac. Parametrem zpravy by bylo jmeno
>> toho pocitace
>> kam se ma zprava poslat a nejaky text.
Obnovenie pozicie formu na ulozenu poziciu
[*] Roland Turcan <rotursoft(zv)post.sk> - 13.2.2003 15:58:35
Hello Delphi CZ konferencia!
Snazim sa obnovit poziciu formu, ktory som si v TForm.Destroy ulozil
do registry. Lenze v OnCreate a OnShow formu sa okno nepostavi podla
nastavenych Left.Top, ale MoveWindow,SetBounds ... nereaguje na Left a
Top. Sirka a Vyska sa mu podari nastavit. Pokial samotne obnovenie
vlozim do OnActivate je uz neskoro, lebo sa presunutie prejavi aj
vizualne.
PS: TJvFormPlacement momentalne pouzivam, ale potrebujem svoju logiku
uschovania pozicie v registry.
--
Best regards, TRoland
Re2: Zpravy po siti
[*] <js-delphi(zv)quick(tec)cz> - 13.2.2003 16:01:53
A jak je zachytit=3F Jak napr=2E udelat takovy =
Winpopup fungujici i pod WNT=2C W2k=2C WXP=3F=3F
Odesilani zprav funguje stejne=2C ale pak jsem uz =
nebyl schopen dochytit zpravu=2C ze prisla =
nejaka =22textova zprava=22 a dal systemu rict=2C at uz =
nic nehlasi=2E
Resil jste to uz nekdy nekdo=3F
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
=3E Ano=2C =22net send=22 pou=BE=EDv=E1 zm=EDn=ECnou slu=BEbu =
=3E Messenger=2EZkuste si vypnout slu=BEbu =22net stop =
=3E messenger=22=2C nic neode=B9lete a nep=F8ijmete =2E=2E=2E
=3E p=2E
=3E =
=3E NET SEND =5Bjmeno=5Fciloveho=5Fpc=5D =5Btext=5Fzpravy=5D
=3E =
=3E Ales
Obnovenie pozicie formu na ulozenu poziciu
[*] Richard Siegl <rsiegl(zv)elas.sk> - 13.2.2003 16:06:32
ja pouzivam toto v oncreate volam proceduru loadform a v onclose volam
proceduru saveform
Rickie
procedure SaveForm(xForm : TForm);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\MySoft\'+ xform.Name , True) then
begin
case xform.windowstate of
wsMinimized :
reg.WriteInteger('State',1);
wsMaximized :
reg.WriteInteger('State',2);
else
reg.WriteInteger('State',0);
reg.writeInteger('Top',xform.Top);
reg.writeInteger('Left',xform.Left);
reg.writeInteger('Height',xform.Height);
reg.writeInteger('Width',xform.Width);
end;
end;
finally
end;
Reg.CloseKey;
Reg.Free;
end;
procedure LoadForm(xForm : TForm;ApplySize : boolean);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\MySoft\'+ xform.Name , True) then
begin
try
if Reg.ReadInteger('Top') <> -760227
then xform.Top := Reg.ReadInteger('Top');
except end;
try
if Reg.ReadInteger('Left')
<> -760227 then xform.Left := Reg.ReadInteger('Left');
except end;
if ApplySize then
begin
try
if Reg.ReadInteger('Height')
<> -760227 then xform.Height := Reg.ReadInteger('Height');
except end;
try
if Reg.ReadInteger('Width')
<> -760227 then xform.Width := Reg.ReadInteger('Width');
except end;
end;
try
if Reg.ReadInteger('State') <> -760227
then
case Reg.ReadInteger('State') of
0: xform.WindowState := wsNormal;
1: xform.WindowState :=
wsMinimized;
2: xform.WindowState :=
wsMaximized;
end;
except end;
end;
except
end;
Reg.CloseKey;
Reg.Free;
end;
----- Original Message -----
From: "Roland Turcan" <rotursoft(zv)post.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 13, 2003 3:58 PM
Subject: Obnovenie pozicie formu na ulozenu poziciu
> Hello Delphi CZ konferencia!
>
> Snazim sa obnovit poziciu formu, ktory som si v TForm.Destroy ulozil
> do registry. Lenze v OnCreate a OnShow formu sa okno nepostavi podla
> nastavenych Left.Top, ale MoveWindow,SetBounds ... nereaguje na Left a
> Top. Sirka a Vyska sa mu podari nastavit. Pokial samotne obnovenie
> vlozim do OnActivate je uz neskoro, lebo sa presunutie prejavi aj
> vizualne.
>
> PS: TJvFormPlacement momentalne pouzivam, ale potrebujem svoju logiku
> uschovania pozicie v registry.
> --
> Best regards, TRoland
>
>
>
Posilani e-mailu s prilohou
[*] Jiri Hoffmayer <andris(zv)digitus(tec)cz> - 13.2.2003 16:25:02
Ahoj,
pot=F8eboval bych z aplikace vytvo=F8it vlastn=ED e-mailovou zpr=E1vu obs=
ahuj=EDc=ED
p=F8=EDlohy a poslat ji. Nebo aspo=F2 vyvolat okno mail klienta s c=EDlov=
ou adresou
a p=F8=EDlohami. Cht=ECl bych dos=E1hnout toho, aby mi u=BEivatel mohl je=
dnodu=B9e
poslat log a r=F9zn=E1 dal=B9=ED data vytv=E1=F8en=E1 programem.
Ud=EClat to bez p=F8=EDloh dok=E1=BEu jednodu=B9e pomoc=ED ShellExecute()=
, ale vlo=BEit
t=EDmto zp=F9sobem p=F8=EDlohy se mi nepoda=F8ilo.
Porad=EDte mi jak na to?
d=EDky
Jirka (D4 WinXP)
Re2: Zpravy po siti
[*] Vlko II. <vlko(zv)zilina(tec)net> - 13.2.2003 16:49:49
no ak to nikoho neurazi, teda trosku vatsi mail, posielam navod (ENG) na
naprogramovanie
vlastneho messengera. Kedysi som to robil do mojho vlastneho popupu:):
<alebo sa da niekde na nete stiahnut komponenta, ktora to riesi sama>
WinPopup
This here started with me getting fed up with the way WinPopup was working.
I always had this big visible block in my taskbar in Windows 95, and
therefore I often did not use my WinPopup - which the others often thought
irritateing. Also the fact that I was using non English letters in my login
name, which made the Danish versions (not the English versions) of WinPopup
ignore sending messages to me, even I had started WinPopup.
So what do a programmer do? He deside to make his own version of WinPopup!
Yes, but how?
I looked around in the WIN32 API for functions which were meeting the
functionabillity of WinPopup, and found mailslots. Mailslots is a conection
less service, which is made directly accessible in Windows 95 and NT. The
mailslots create a kind of virtual file on your machine (when your are the
owner of a mailslot), where other machines can write into.
The mailslots should be tried out, so I implemented the functionallity in a
program, and it all looked like the functionallity of WinPopup, but I was
still not any further because a mailslot have a name, and what name did
Microsoft choose to there system messages (Printer notification and
WinPopup messages) - I could not guess :(
I created a usable mailslot object, and made it avalible on the Internet so
other could user my work now when I coudn't (wasn't that nice of me?).
After a week - or so - someone wrote to me and asked if I knew how he could
send a message to WinPopup :( - and ofcource I cound not help him. But this
guy started searching himself, and a few days later he mailed me the
"secret" mailslot name "messngr".
Next we were looking for the format of a message - that was not so
difficult to find out of by sending messages. A recieved block of data is
threaded as folow three NULL terminated strings after each other :
Sender
Reciever
Message
So 'MARTIN'#0'DON'#0'Hi'#0 is a message from Martin to Don with the message
Hi.
In the next I'll tell how to use mailslots (the Windows - WinPopup one as
example), using
examples in a Pascal-like code. The code parts is not fully explaining (if
you want to use mailslots in a program you have a compiler and a helpfile
where you can find the exact syntax) - I'll just tell you about what you
need for making use of this function.
If you are Delphi 2.0 developer then you can go to my VCL page where I have
a fully functional VCL, with all the source code, for free download. For
writing to an existing mailslot (send a message over the network), all you
have to do is to thread the mailslot as a file on the target machine, whith
this filename :
"\\"+Server_Name+"\mailslot\messngr"
To write to this file, first open it like this :
!!vlko: odporucam ti zmenit mailslot na ine meno, a potom mozes ak ma
niekto
klienta, tak v pohode ho mozes pouzivat ako standartny messenger a spravy
nemoze zachytavat nikto iny, kto nema urobene zachytenie na tento
mailslot!!
Handle := CreateFile("\\THOR\mailslot\messngr",
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
-1)
The handle returned can then be used in a call to write to the file like
this :
WriteFile(Handle,
Data,
Size(Data),
BytesWritten,
NIL)
It is wise to close the handle after user with a call like this :
CloseHandle(Handle)
That was easy - wasn't it?
To make a mailslot avalible for other to use, you have to create a mailslot
usong the
CreateMailslot function like this :
Handle := CreateMailSlot("\\.\mailslot\messngr",
0,
$FFFFFFFF,
NIL)
The handle returned from the CreateMailSlot function should then be used
for accessing the
mailslot. Note the value $FFFFFFFF should also be called
"MAILSLOT_WAIT_FOREVER", but my Delphi 2.0 does not reconize the name. The
value is also said in the WIN32 API helpfile to make a read from the
mailslot go into a blocked waitstate until something is arriving into it,
but I can not make it do so :(.
For checking up anything is in the mailslot call the GetMailSlotInfo
function
GetMailSlotInfo(Handle,NIL, NextSize, (zv)Waiting, NIL)
where NextSize and Waiting is both defined as DWord's.
NextSize will after a call contain the size of the next message (for
allocation of buffer) and Waiting will contain the number of messages
waiting.
For reading from a mailslot, all which is needed to be done, is to call the
ReadFile function with the handle recieved from the CreatMailSlot function,
like this :
ReadFile(Handle,Buffer^,NextSize,ReadSize,NIL)
After end use of the mailslot I'll advise you to close the handle with the
CloseHandle function (as
far as I have understood, it is not strictly necessary) like this :
CloseHandle(FHandle)
Before continuing to the next problem, I'll like to thank Don Hass for
telleing me about the
"messngr" mailslot.
Username
See since I started writeing this page and my MailSlot component for
Delphi, I have got a lot of questions about how we could be able to send
messages to a user, and not only a computer. See the secret is not a secret
anymore - Microsoft do NOT use MailSlots for sending/receiving messages,
but have obviously being creating a MailSlot for makeing it all a bit more
exiting (or for makeing a simple way to send a small message!). See
Microsoft uses direct calls to the NetBios function in the API (under NT
the actually uses NetMessageBufferSend etc.), which explains why we do not
receive dublicated messages when using WinPopup (but we do when using
MailSlots) and how they are able to send messages to a username as well.
If you look in the NetBios table (use NBTSTAT -n in a DOS prompt) you will
see two entries called USERNAME <03> & COMPUTERNAME <03>, these is actually
what Microsoft uses. See now we know that it should be pretty easy to do
that as well - but sorry, not even in the SDK is the NetBios structures
used for sending/receiving messages explained/ documenteted, so until that
documentation is found somewhere we all have to wait a bit...
--------------
vlko_(zv)pobox.sk
Posilani e-mailu s prilohou
[*] <js-delphi(zv)quick(tec)cz> - 13.2.2003 16:51:21
Ahoj=2E
Tohle jsem resil cca pred rokem=2E Ted asi nebudu =
moc konkretni=2C ale resil jsem to pomoci komponent =
z JEDI Component Library (to si najdi pres =
vyhledavac) a tam je komponenta P=2E Vonese=2E Je u =
toho i dobry Help=2C takze tam si prectes zbytek=2E =
Je to dobre intuitivni=2C takze nemusis mit strach =
z jazykovych problemu (podle sebe soudim =
Tebe =3Bo)) )
Moc jsem Ti asi nepomohl=2C ale aspon =22nakopnout=22=2E =
Kdyby jsi s tim nehnul=2C dej vedet=2E Mrknu se doma =
a reseni Ti poslu=2E
Ahoj
Jirka
P=2ES=2E=3AAkorat me napada=2C ze mozna bude problem s =
Tvou verzi Delphi =2E=2E=2E no nevim=2E Budes to muset =
zkusit=2E Treba zrovna komponenta P=2E Vonese Ti bude =
chodit OK=2E Zdar!
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Jiri Hoffmayer =3Candris=40digitus=2Ecz=3E
Datum=3A =E8tvrtek=2C 13=2E =FAnora 2003 v 4=3A25 odp=2E
P=F8edm=ECt=3A Posilani e-mailu s prilohou
=3E Ahoj=2C
=3E =
=3E pot=F8eboval bych z aplikace vytvo=F8it vlastn=ED =
=3E e-mailovou zpr=E1vu obsahuj=EDc=ED
=3E p=F8=EDlohy a poslat ji=2E Nebo aspo=F2 vyvolat okno =
=3E mail klienta s c=EDlovou adresou
=3E a p=F8=EDlohami=2E Cht=ECl bych dos=E1hnout toho=2C aby =
=3E mi u=BEivatel mohl jednodu=B9e
=3E poslat log a r=F9zn=E1 dal=B9=ED data vytv=E1=F8en=E1 =
=3E programem=2E
=3E Ud=EClat to bez p=F8=EDloh dok=E1=BEu jednodu=B9e pomoc=ED =
=3E ShellExecute()=2C ale vlo=BEit
=3E t=EDmto zp=F9sobem p=F8=EDlohy se mi nepoda=F8ilo=2E
=3E =
=3E Porad=EDte mi jak na to=3F
=3E =
=3E d=EDky
=3E Jirka (D4 WinXP)
=3E =
=3E =
=3E
Obnovenie pozicie formu na ulozenu poziciu
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 13.2.2003 17:00:48
Podivej se, jestli mas u Formu Position nastavenu na Designed.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
----- Original Message -----
From: "Roland Turcan" <rotursoft(zv)post.sk>
> Snazim sa obnovit poziciu formu, ktory som si v TForm.Destroy ulozil
> do registry. Lenze v OnCreate a OnShow formu sa okno nepostavi podla
> nastavenych Left.Top, ale MoveWindow,SetBounds ... nereaguje na Left a
Posilani e-mailu s prilohou
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.2.2003 17:05:05
JCL uz od verze 1.0 obsahuje funkci JclSimpleSendMail, kde je to =
resene.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
pot=F8eboval bych z aplikace vytvo=F8it vlastn=ED e-mailovou zpr=E1vu
obsahuj=EDc=ED
p=F8=EDlohy a poslat ji. Nebo aspo=F2 vyvolat okno mail klienta s =
c=EDlovou
adresou
a p=F8=EDlohami. Cht=ECl bych dos=E1hnout toho, aby mi u=BEivatel mohl
jednodu=B9e
poslat log a r=F9zn=E1 dal=B9=ED data vytv=E1=F8en=E1 programem.
Ud=EClat to bez p=F8=EDloh dok=E1=BEu jednodu=B9e pomoc=ED =
ShellExecute(), ale
vlo=BEit
t=EDmto zp=F9sobem p=F8=EDlohy se mi nepoda=F8ilo.stale rozkose z ikonou .exe aplikace
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 17:06:06
stale se mi nedari nijak zmenit ikonu .exe aplikace za chodu.
uz sem z toho vazne na hlavu.
zjistil sem ze kdyz vytvorim resource ikona.rs a do ni flaknu
ikony tak mi posledni ikona z tohohle seznamu preplacne
standardni ikonu .exe aplikace i kdyz mam nastavenou v
PROGRAM - OPTIONS - APPLICATION - ICON jinou ikonu.
navic kdyz pouziju
application.Icon.Handle := extracticon(application.Handle,PChar('ikona'),CISLOIKONY);
a do CISLOIKONY dosazuju uz vsechno mozny od cisel az
po jmena tak se proste nic nedeje. ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
stale rozkose z ikonou .exe aplikace
[*] <js-delphi(zv)quick(tec)cz> - 13.2.2003 17:57:03
Asi Ti vubec nepomuzu=2C ale vzpominam si=2C ze tohle =
je reseno v knize 1000tipu a triku pro Delphi
Nic moc=2C co=3F
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Ivomir =3Civomir=40seznam=2Ecz=3E
Datum=3A =E8tvrtek=2C 13=2E =FAnora 2003 v 5=3A06 odp=2E
P=F8edm=ECt=3A stale rozkose z ikonou =2Eexe aplikace
=3E stale se mi nedari nijak zmenit ikonu =2Eexe =
=3E aplikace za chodu=2E
=3E uz sem z toho vazne na hlavu=2E
=3E zjistil sem ze kdyz vytvorim resource =
=3E ikona=2Ers a do ni flaknu
=3E ikony tak mi posledni ikona z tohohle =
=3E seznamu preplacne
=3E standardni ikonu =2Eexe aplikace i kdyz mam =
=3E nastavenou v =
=3E PROGRAM - OPTIONS - APPLICATION - ICON jinou =
=3E ikonu=2E
=3E navic kdyz pouziju
=3E application=2EIcon=2EHandle =3A=3D =
=3E extracticon(application=2EHandle=2CPChar
(=27ikona=27)=2CCISLOIKONY)=3B
=3E a do CISLOIKONY dosazuju uz vsechno mozny od =
=3E cisel az
=3E po jmena tak se proste nic nedeje=2E
=3E =
=3E =
=3E =2E=2E=2E=2E=2E=2E=2E s pozdravem Ivomir
=3E ---------------------------------------------
=3E -----
=3E EMAIL=3A Ivomir=40iwebs=2Ecz MOBIL=3A 777/831270
=3E WWW=3A http=3A//www=2Eiwebs=2Ecz ICQ=3A 28872917
=3E =
=3E =
=3E
OT:Word a PostScript
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 13.2.2003 18:30:13
Dobry den,
vim,ze to tu nema co delat, ale potreboval bych poradit. Prednedavnem jsem
vytvarel PDF z dokumentu ve Wordu - nainstaloval si PostScriptovou tiskarnu
a ve Wordu pri tisku jsem dal ulozit do souboru, atd.
Chtel jsem to zopakovat i ted - a ejhle. Word kdyz mu zadam soubor k ulozeni
dela ze uklada, ale nic. Zkusil jsem preinstalovat cely Office, ovladace
tiskarny, ale nic. V ostatnich programech PostScript funguje.
Nevite nekdo co s tim ?
Dik
DKx
Datum v tabulce
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 13.2.2003 18:49:55
Zdrav=EDm
V tabulce databaze DBISAM mam definovane pole Datum jako DATE. Pokud zapi=
suj
do tabulky, zadavam datum ve formatu DD.MM.YYY a takto se mi taky v tabul=
ce
taky zobrazuje.
Jestlize davam na pole select musim ale zadat
select * from Test datum where cast(datum as varchar(10)) like "2000-02-1=
0"
order by Datum
Pokud zadam datum 10-02-2000 select havaruje.
Bohuzel jsem nenasel zadnou moznost, jak zmenit ulozeny format data v
tabulce.
Poradi nekdo jak na to?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.454 / Virov=E1 b=E1ze: 253 - datum vyd=E1n=ED: 10.2.2003
None
[*] Ji�� Binder<j.binder(zv)albacon(tec)cz> - 13.2.2003 20:22:26
=3E stale se mi nedari nijak zmenit ikonu =2Eexe aplikace za chodu=2E
Jedna z moznych pricin muze byt=2C ze Windowsy ikony kesuji=2Etakze zm=ECna=
se neprojevi=2E
Pro vynucenou obnovu ikon lze pouzit prilozenou proceduru=2C ktera trochu=
protrepe desktopem=2E
PS=2E kdyby mel nekdo lepsi postup=2C uvital bych ho=2E
Zdravi Jiri Binder
procedure RefreshIcons=3B
var
myReg=3A TRegistry=3B
IconSize=3A Integer=3B
begin
myReg =3A=3D TRegistry=2ECreate=3B
myReg=2ERootKey =3A=3D HKEY=5FCURRENT=5FUSER=3B
myReg=2EOpenKey=28'=5CControl Panel=5CDesktop=5CWindowMetrics=5C'=2C false=
=29=3B
=2F=2F IconSize =3A=3D StrToInt=28myReg=2EReadString=28'Shell Icon Size'=29=
=29=3B
IconSize =3A=3D 32=3B
IconSize =3A=3D IconSize + 1=3B
myReg=2EWriteString=28'Shell Icon Size'=2C IntToStr=28IconSize=29=29=3B
SendMessage=28HWND=5FBROADCAST=2C WM=5FWININICHANGE=2C 0=2C Integer=
=28WinMetricsStr=29=29=3B
IconSize =3A=3D IconSize - 1=3B
myReg=2EWriteString=28'Shell Icon Size'=2C IntToStr=28IconSize=29=29=3B
SendMessage=28HWND=5FBROADCAST=2C WM=5FWININICHANGE=2C 0=2C Integer=
=28WinMetricsStr=29=29=3B
end=3B
stale rozkose z ikonou .exe aplikace
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 13.2.2003 21:00:13
rek bych ze to nebude v kesovani protoze kdyz jsem pouzil variantu s
tim resourcem ve ktery sem mel ikonu tak ihned po zkompilovani sla
videt ikona programu u .exe souboru kterou jsem mel nastavenou
pres menu PROGRAM - OPTIONS - atd.... a pak se behem par sekund
zmenila na tu ikonu co sem mel v resourcu, cili to ty ikony asi nejak
zvlada prehazovat za chodu. ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> stale se mi nedari nijak zmenit ikonu .exe aplikace za chodu.
Jedna z moznych pricin muze byt, ze Windowsy ikony kesuji.takze zm=ECna s=
e neprojevi.
Pro vynucenou obnovu ikon lze pouzit prilozenou proceduru, ktera trochu p=
rotrepe desktopem.
PS. kdyby mel nekdo lepsi postup, uvital bych ho.
Zdravi Jiri Binder
procedure RefreshIcons;
var
myReg: TRegistry;
IconSize: Integer;
begin
myReg :=3D TRegistry.Create;
myReg.RootKey :=3D HKEY_CURRENT_USER;
myReg.OpenKey('\Control Panel\Desktop\WindowMetrics\', false);
// IconSize :=3D StrToInt(myReg.ReadString('Shell Icon Size'));
IconSize :=3D 32;
IconSize :=3D IconSize + 1;
myReg.WriteString('Shell Icon Size', IntToStr(IconSize));
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Integer(WinMetricsStr))=
;
IconSize :=3D IconSize - 1;
myReg.WriteString('Shell Icon Size', IntToStr(IconSize));
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Integer(WinMetricsStr))=
;
end;Jak zkopirovat vlastnosti komponenty
[*] Milo� Kastner - 14.2.2003 00:39:10
Potreboval bych poradit jakym zpusobem se daji zkopirovat properties
jedne komponenty do druhe, bez toho abych je musel vsechny vyjmenovat.
Priklad:
Mam na formulari komponentu Edit1 s nejakym nastavenim vlastnosti.
Vytvorim za behu Edit2 a chtel bych mu nastavit 90% stejnych
vlastnosti jako ma Edit1 (napr. vse krome pozice).
Diky za radu.
Milos Kastner
kastner(zv)stereo(tec)cz
Datum v tabulce
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.2.2003 07:07:45
> V tabulce databaze DBISAM mam definovane pole Datum jako DATE. Pokud
> zapisuj do tabulky, zadavam datum ve formatu DD.MM.YYY a takto se mi
> taky v tabulce taky zobrazuje. Jestlize davam na pole select musim ale
> zadat select * from Test datum where cast(datum as varchar(10)) like
> "2000-02-10" order by Datum Pokud zadam datum 10-02-2000 select
> havaruje. Bohuzel jsem nenasel zadnou moznost, jak zmenit ulozeny
> format data v tabulce.
Ahoj,
datum je v databazi ulozeno jako nejake cislo. Myslim si, ze format na vstupu je dan
tim, cemu rozumi SQL server, zatimco format na vystupu pravdepodobne
nastavenim Windows (mistni nastaveni).
1) Pokud to jde, predavam datum do selectu jako parametr, tj. napr.
query.sql.text := 'select * from test where datum = :datum';
query.ParamByName('datum').AsDateTime := now;
2) Pokud je nutne pouzit textovou reprezentaci, na Firebirdu urcite funguje Tebou
pouzity format (yyyy-mm-dd), ovsem firebird konverzi zvladne sam:
select * from test where datum = '2000-02-10';
Chce to ale ty apostrofy. Pro zformatovani data pouzivam FormatDateTime, je-li
potreba promennou TDateTime nejprve vyrobit, tak EncodeDate, ale to asi znas.
Vystupni format zalezi na Windows. Muzes v Delphi zmenit implicitni format, ktery je
pri startu aplikace nacten z Windows, to uz tady nedavno probehlo, nebo i pro vystup
pouzivat FormatDateTime.
David Lebeda
Jak zkopirovat vlastnosti komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.2.2003 07:12:14
VG9obGUgc2Ugb2J2eWtsZSByZXNpIHRpbSwgemUgc2kgdWRlbGFzIHBvdG9ta2EsIGt0ZXJ5IG1h
IHR5DQp2bGFzdG5vc3RpIHV6IG5hc3RhdmVuZSBwb2RsZSBwb3RyZWJ5IGEgdnl0dmFyaXMgcG90
b21rYS4gUGFrIG5lbXVzaXMgbmljDQpuYXN0YXZvdmF0LCBrcm9tZSBwb3ppY2UuDQpUeSB0b3Rp
eiBuZWNoY2VzIGtvcGlyb3ZhdCBwcm9wZXJ0aWVzLCBhbGUgaG9kbm90eSB2IHByb3BlcnRpZXMN
Cg0KUGFrIGplIGRhbHNpIG1vem5vc3QsIG5hcHNhdCBzaSBwcm9jZWR1cnUsIGt0ZXJlIHByZWRh
cyAyIGVkaXR5IGEgb25hDQp0aSBuYXN0YXZpLCBjbyBwb3RyZWJ1amVzDQoNCi0tIA0KSmFuIEZp
YWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxNC4yLjIwMDMgTWlsb5ogS2FzdG5lcjoN
Cj4gUG90cmVib3ZhbCBieWNoIHBvcmFkaXQgamFreW0genB1c29iZW0gc2UgZGFqaSB6a29waXJv
dmF0IHByb3BlcnRpZXMNCj4gamVkbmUga29tcG9uZW50eSBkbyBkcnVoZSwgYmV6IHRvaG8gYWJ5
Y2ggamUgbXVzZWwgdnNlY2hueSB2eWptZW5vdmF0Lg0KPiBQcmlrbGFkOg0KPiBNYW0gbmEgZm9y
bXVsYXJpIGtvbXBvbmVudHUgRWRpdDEgcyBuZWpha3ltIG5hc3RhdmVuaW0gdmxhc3Rub3N0aS4N
Cj4gVnl0dm9yaW0gemEgYmVodSBFZGl0MiBhIGNodGVsIGJ5Y2ggbXUgbmFzdGF2aXQgOTAlIHN0
ZWpueWNoDQo+IHZsYXN0bm9zdGkgamFrbyBtYSBFZGl0MSAobmFwci4gdnNlIGtyb21lIHBvemlj
ZSkuDQoNCiA=Posilani e-mailu s prilohou
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.2.2003 07:49:54
na tohle existuje uz zabehnuta odpoved:
Pres tveho postovniho klienta pres MAPI pomoci JCL, pripadne primo z
tve aplikace pres SMTP pomoci Synapse. ;-)
> pot=D9eboval bych z aplikace vytvo=D9it vlastn=ED e-mailovou zpr=E1vu
> obsahuj=EDc=ED p=D9=EDlohy a poslat ji. Nebo aspo=C8 vyvolat okno mail k=
lienta s
> c=EDlovou adresou a p=D9=EDlohami. Cht�l bych dos=E1hnout toho, aby mi
> u=FEivatel mohl jednodu=E1e poslat log a r=EFzn=E1 dal=E1=ED data vytv=E1=
=D9en=E1
> programem.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Tisk na HP pomoci QReportu
[*] Martin P��vratsk� - 14.2.2003 08:28:04
Zdravim,
vyskytl se mi problem, ktery se mi nedari vyresit a proto vas zadam o radu.
Kdyz tisknu na tiskarne HP LaserJet 2100 v systemu WinXP program
"vytuhne" a sestava se nevytiskne. Bohuzel tento jev se objevuje velmi
nepravidelne. Na vsech pocitacich, na kterych jsem to osobne skousel vse
funguje bez problemu a u klienta s tou samou tiskarnou se objevuji vyse
zminene problemy.
Program je napsany v Delphi 2 a generator sestav je QReport 2.0k.
Predem dekuji za jakykoliv napad.
Martin Privratsky
Posilani e-mailu s prilohou
[*] Jiri Hoffmayer <andris(zv)digitus(tec)cz> - 14.2.2003 08:30:13
Diky za tipy,
JCL jsem nasel (pro presnost je to Jedi Code Library nikoli J. Component
L.), rozbalil, nasel jclSimpleSendMail().
Zda se, ze to bude presne TO reseni :-) Uvidime, podle popisu by to melo s
D4 jet v pohode.
diky vsem
Jirka
Jak zkopirovat vlastnosti komponenty
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 14.2.2003 08:37:20
> Potreboval bych poradit jakym zpusobem se daji zkopirovat properties
> jedne komponenty do druhe, bez toho abych je musel vsechny vyjmenovat.
> Priklad:
> Mam na formulari komponentu Edit1 s nejakym nastavenim vlastnosti.
> Vytvorim za behu Edit2 a chtel bych mu nastavit 90% stejnych
> vlastnosti jako ma Edit1 (napr. vse krome pozice).
>
Priblizny postup muze byt nasledujici: ulozit na stream original, nacist
kopii, nastavit
ostatni property a vlozit na parenta.
Alexandr STEFEK
Tisk na HP pomoci QReportu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.2.2003 08:38:18
> Zdravim,
> vyskytl se mi problem, ktery se mi nedari vyresit a proto vas zadam o
radu.
> Kdyz tisknu na tiskarne HP LaserJet 2100 v systemu WinXP program
> "vytuhne" a sestava se nevytiskne. Bohuzel tento jev se objevuje velmi
> nepravidelne. Na vsech pocitacich, na kterych jsem to osobne skousel vse
> funguje bez problemu a u klienta s tou samou tiskarnou se objevuji vyse
> zminene problemy.
> Program je napsany v Delphi 2 a generator sestav je QReport 2.0k.
Neni mozne, ze nekdy ta sestava dosahne velikosti, kterou uz ta lejzrovka
neni schopna vytisknout?
Roman
==============================
http://kouzelne.misto(tec)cz
Tisk na HP pomoci QReportu
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 14.2.2003 08:44:07
1, Zkus upgradovat Quickreport
2, Zkus to mimo WinXP s tou samou tisk=E1rnou
Rumcajs
> Zdravim,
> vyskytl se mi problem, ktery se mi nedari vyresit a proto vas zadam o
radu.
> Kdyz tisknu na tiskarne HP LaserJet 2100 v systemu WinXP program
> "vytuhne" a sestava se nevytiskne. Bohuzel tento jev se objevuje velmi
> nepravidelne. Na vsech pocitacich, na kterych jsem to osobne skousel vs=
e
> funguje bez problemu a u klienta s tou samou tiskarnou se objevuji vyse
> zminene problemy.
> Program je napsany v Delphi 2 a generator sestav je QReport 2.0k.
>
> Predem dekuji za jakykoliv napad.
>
> Martin Privratsky
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
Tisk na HP pomoci QReportu
[*] Martin P��vratsk� - 14.2.2003 08:55:46
>1, Zkus upgradovat Quickreport
To mam.
>2, Zkus to mimo WinXP s tou samou tisk=E1rnou
mimo WinXP s tou samou tiskarnou se navyskytl vubec zadny problem
Martin Privratsky
Rozdil v razeni?
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 14.2.2003 09:02:10
Dalibor, <mailto:dalibor(zv)torola(tec)cz>:
D> Je nejaky rozdil v razeni mezi Slovenstinou a Cestinou?
D> Jde o to, jestli muzu pouzit ceske trideni i pro Slovenstinu, nebo ma
D> Slovenstina v necem jina specifika.
V zasade ne. Maji nekolik pismenek, ktera v cestine nejsou, ale stejne
se pismena s diakritikou radi za pismena bez diakritiky. Az pak jsou
razena dalsi pismena podle abecedy.
Naistaluj si slovenskou klavesnici a zkus to.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Jak zkopirovat vlastnosti komponenty
[*] Milo� Kastner - 14.2.2003 09:03:46
Asi jsem se nevyjadril presne, opravdu potrebuju kopirovat hodnoty v
properties a ne properties.
Problem s potomkem bude v tom, ze ja potrebuju pak tu puvodni
komponentu zrusit.
> Pak je dalsi moznost, napsat si proceduru, ktere predas 2 edity a ona
> ti nastavi, co potrebujes
To je prave to co chci, ale ne ze pro kazdou komponentu napisu proceduru,
ve ktere bych rucne vyjmenoval jeji properties. Proste nevim jestli
jde a jak, projit v cyklu vsechny properties komponenty libovolneho
typu.
Diky.
Milos Kastner
kastner(zv)stereo(tec)cz
P�vodn� zpr�va:
> Tohle se obvykle resi tim, ze si udelas potomka, ktery ma ty
> vlastnosti uz nastavene podle potreby a vytvaris potomka. Pak nemusis nic
> nastavovat, krome pozice.
> Ty totiz nechces kopirovat properties, ale hodnoty v properties
> Pak je dalsi moznost, napsat si proceduru, ktere predas 2 edity a ona
> ti nastavi, co potrebujes
Tisk na HP pomoci QReportu
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 14.2.2003 09:04:27
Vyhod WinXP, ja pro ne taky neprogramuju. Nekde na netu by mely byt udajn=
e
nejake upgrade pro Delphi pro WinXP, ale cert vi kde. Jestli mas moznost,
zkus to zkompilovat na vyssi verzi Delphi.
Rumcajs
>1, Zkus upgradovat Quickreport
To mam.
>2, Zkus to mimo WinXP s tou samou tisk=E1rnou
mimo WinXP s tou samou tiskarnou se navyskytl vubec zadny problem
Martin Privratsky
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
stale rozkose z ikonou .exe aplikace
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 14.2.2003 09:13:24
Ivomir, <mailto:ivomir(zv)seznam(tec)cz>:
I> stale se mi nedari nijak zmenit ikonu .exe aplikace za chodu.
Na Zive je serial Umime to s Delphi a Tipy a triky v Delphi. V jednom
dile byla ukazka, jak animovat (tj. menit rychle za sebou) ikonu
aplikace. Mrkni na web.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Re[2]: Obnovenie pozicie formu na ulozenu poziciu
[*] Roland Turcan <rotursoft(zv)post.sk> - 14.2.2003 09:18:53
<<< 14. 2. 2003 9:17 - Zdenek Moravec "zmo(zv)volny(tec)cz" >>>
ZM> Podivej se, jestli mas u Formu Position nastavenu na Designed.
Mam nastaveny Position na ScreenCenter, lebo ak nie je v registry
zaznam o ulozenej pozicii, tak nech nastavi okno do stredu. Mam to tak
ma kazdom okne a TPlacement z RX alebo JVCL to urobil aj napriek tomu.
--
Best regards, TRoland
Tisk na HP pomoci QReportu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 14.2.2003 09:22:29
>Vyhod WinXP, ja pro ne taky neprogramuju. Nekde na netu by mely byt udajne
>nejake upgrade pro Delphi pro WinXP, ale cert vi kde. Jestli mas moznost,
Jak je mozne neprogramovat pro XP, kdyz novy pocitac s jinymi Windowsy se uz
nekoupi?
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.445 / Virov� b�ze: 250 - datum vyd�n�: 21.1.2003
Zjisteni handle aplikace z nazvu exe
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 14.2.2003 09:23:31
Dobry den,
jak mam zjistit handle spustene aplikace kdyz znam pouze nazev exe souboru?
Aplikace nema titulkovy pruh.
Dekuji a preji pekny den.
Petr
FB pomaly login
[*] Pavel Rechberg <prechberg(zv)tempos(tec)cz> - 14.2.2003 09:24:22
Zdravim,
mam nainstalovany FB 1.0 (WI-V6.2.794) na XP Profi (cerstva instalace),
malou databazi cca 2MB, pridava se maximalne 500 zaznamu za den, v aplikaci
pouzivam IBExpress (update 5.04). Problem je, ze prihlaseni k DB trva
nekolik minut. Pokud provedu backup/restore databaze tak to jeden den jede v
pohode (prihlaseni je hned). Neresil jste nekdo podobny problem?
Diky
Pavel
Tisk na HP pomoci QReportu
[*] Martin P��vratsk� - 14.2.2003 09:30:51
> Neni mozne, ze nekdy ta sestava dosahne velikosti, kterou uz ta lejzrovka
> neni schopna vytisknout?
Myslim, ze tim to neni, protoze se jedna o bezne sestavy, ktere zejmena pod
jinym OS nebo
pod WinXP na jinych pocitacich, pripadne na mnou testovanych pocitacich,
jde vytisknout v pohode.
Jeste jeden priznak teto chyby: vyjede nahled a sestava je na formulari
vpravo dole a miniaturni.
Tisk na HP pomoci QReportu
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 14.2.2003 09:31:09
Treba proto, ze polovina mych programu pod tim vubec nebezi ...
A u druhe poloviny to dele neplechu, priklad:
try ComPort1.Open;
MessageDlg('Port v poradku otevren', ....
except
MessageDlg('Chyba, port nelze otevrit ....
end;
Vsude to funguje, ale pod XP to hodi natvrdo chybu portu a na nejake try
except se vy.....
Rumcajs
> >Vyhod WinXP, ja pro ne taky neprogramuju. Nekde na netu by mely byt
udajne
> >nejake upgrade pro Delphi pro WinXP, ale cert vi kde. Jestli mas mozno=
st,
>
> Jak je mozne neprogramovat pro XP, kdyz novy pocitac s jinymi Windowsy =
se
uz
> nekoupi?
>
> Jaroslav Nadhera
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov=E1 b=E1ze: 251 - datum vyd=E1n=ED: 27.1.2003
FB pomaly login
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 14.2.2003 09:32:18
From: "Pavel Rechberg" <prechberg(zv)tempos(tec)cz>
> mam nainstalovany FB 1.0 (WI-V6.2.794) na XP Profi (cerstva instalace),
> malou databazi cca 2MB, pridava se maximalne 500 zaznamu za den, v
aplikaci
> pouzivam IBExpress (update 5.04). Problem je, ze prihlaseni k DB trva
> nekolik minut. Pokud provedu backup/restore databaze tak to jeden den jede
v
> pohode (prihlaseni je hned). Neresil jste nekdo podobny problem?
Pozri do historie uz sa to riesilo. probelm je FB vs. XP.
WinXP maju inak riesene kesovanie suborov. XP nedoporucujem pre databazovy
server (okrem MS SQL). Mam ale pocit ze s FB 1.5 Beta 1 to ide uz rozumne.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
INIsoubor - problem s ukladanim Streamu
[*] <js-delphi(zv)quick(tec)cz> - 14.2.2003 09:51:10
Ahoj.
Chtel jsem ulozit nastaveni gridu do ini souboru,
ale nepovedlo se mi to. Nevite kde je problem?
Diky, Jirka
procedure ULOZ;
var
soub:TINIFile;
SloupceGridu:TMemoryStream;
begin
soub:=TIniFile.Create(CestaPrg+DataAplikace+'\'+
ChangeFileExt(ExtractFileName(
Application.ExeName),'.ini'));
soub.UpdateFile;
SloupceGridu:=TMemoryStream.Create;
Form1.AA_DBGrid.Columns.SaveToStream
(SloupceGridu);
soub.WriteBinaryStream
('Gridy','G_01',SloupceGridu);
soub.UpdateFile;
FreeAndNil(SloupceGridu);
FreeAndNil(soub);
end;
V *.ini vznikne Sekce, Klic, ale neni tam zadna
hodnota. Proc?
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] <js-delphi(zv)quick(tec)cz> - 14.2.2003 09:59:27
Ahoj
Mam dotaz %subject%. Jde mi o to, ze si pri
startu aplikace naplnim Combo - udelam si
ciselnik - nazvy obci. Vzhledem k tomu, ze je v
CR cca 15.500 obci, tak to trva -> plnit dve
comba uz by bylo nemozny.
Tak jsem to chtel resit tak, ze naplnim jedno a
tomu budu menit parenta. Jenze ejhle ... to trva
skoro stejne dlouho jako naplneni dalsiho comba. :
(
Co s tim?
Nelze nejak naplnit jedno combo a pak rict
dalsimu - prazdnymu -combu, ze ma koukat na
polozky toho naplnenyho comba?
Neco jako predat adresu ...
Kdyz to udelam (napr budu mit 3 takovato comba) -
nebude se mi menit i ItemIndex u ostatnich dvou,
kdyz na jednom neco vyberu?
Uz se mi tam metoda prestava libit. Bylo to
reseni, ale nejak budu muset vymyslet nacteni jen
casti obci - ale chybi idea ...
Nejaky napad?
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
StrToDate a EConvertError
[*] <kuba.zubaty(zv)centrum(tec)cz> - 14.2.2003 10:04:33
Ahoj,
chtel bych osetrit chybu vznikajici pri pokusu o prevod stringu na=20
datum.
V helpu jsem nasel:
try
TempDate :=3D StrToDate(Edit1.Text);
except
on E: EConvertError do OK:=3Dfalse;
end;
To funguje az na retezec: '1.1.200' zahlasi, ze '-' neni integer a=20
except to nezachyti.
Kde je problem?
Diky
--------------------
Poslouchejte Radio Impuls a vyhrajte v=EDkendy pro dva v evropsk=FDch
metropol=EDch. V=EDce na Radiu Impuls a http://www.netimpuls(tec)cz!StrToDate a EConvertError
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 14.2.2003 10:15:24
Ahoj,
mrkni se na funkci TryStrToDate
Petr
chtel bych osetrit chybu vznikajici pri pokusu o prevod stringu na
datum.
V helpu jsem nasel:
try
TempDate := StrToDate(Edit1.Text);
except
on E: EConvertError do OK:=false;
end;
To funguje az na retezec: '1.1.200' zahlasi, ze '-' neni integer a
except to nezachyti.
Kde je problem?
Diky
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Cejka Pavel <cejka(zv)proteco(tec)cz> - 14.2.2003 10:16:58
Ahoj,
a co nazvy obci nacist do TStringListu a potom rici ComboBoxum, aby divaly
na tento TSringList - ComboBox.Items := TStringList
Pavel
> Ahoj
> Mam dotaz %subject%. Jde mi o to, ze si pri
> startu aplikace naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
> Tak jsem to chtel resit tak, ze naplnim jedno a
> tomu budu menit parenta. Jenze ejhle ... to trva
> skoro stejne dlouho jako naplneni dalsiho comba. :
> (
> Co s tim?
> Nelze nejak naplnit jedno combo a pak rict
> dalsimu - prazdnymu -combu, ze ma koukat na
> polozky toho naplnenyho comba?
> Neco jako predat adresu ...
> Kdyz to udelam (napr budu mit 3 takovato comba) -
> nebude se mi menit i ItemIndex u ostatnich dvou,
> kdyz na jednom neco vyberu?
>
> Uz se mi tam metoda prestava libit. Bylo to
> reseni, ale nejak budu muset vymyslet nacteni jen
> casti obci - ale chybi idea ...
>
> Nejaky napad?
> Ahoj
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>
>
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.2.2003 10:22:14
> Ahoj
> Mam dotaz %subject%. Jde mi o to, ze si pri
> startu aplikace naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
> Tak jsem to chtel resit tak, ze naplnim jedno a
> tomu budu menit parenta. Jenze ejhle ... to trva
> skoro stejne dlouho jako naplneni dalsiho comba. :
> (
> Co s tim?
> Nelze nejak naplnit jedno combo a pak rict
> dalsimu - prazdnymu -combu, ze ma koukat na
> polozky toho naplnenyho comba?
> Neco jako predat adresu ...
> Kdyz to udelam (napr budu mit 3 takovato comba) -
> nebude se mi menit i ItemIndex u ostatnich dvou,
> kdyz na jednom neco vyberu?
>
> Uz se mi tam metoda prestava libit. Bylo to
> reseni, ale nejak budu muset vymyslet nacteni jen
> casti obci - ale chybi idea ...
Nemuzes pro to pouzit nejaky DBComboBox? Anebo si ComboBox uprav tak, ze
data budes nacitat az pri jeho rozbaleni a navic pouzijes v dotazu podminku
na pocatecni pismenka, ktera do toho comba uz mohl uzivatel zadat (uziv. do
comba napise "pr", klikne na rozbalit a vyjedou mu mesta zacinajici na "pr")
Roman
==============================
http://kouzelne.misto(tec)cz
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Petr Jarkovsk� <pejasoft(zv)volny(tec)cz> - 14.2.2003 10:28:50
Predpokladam, ze tyto hodnoty jsi do Comba nacetl z tabulky.
Nebylo by lepsi treba pouzit DBComboBox?
Nebo si ten tvuj ComboBox upravit, aby se data postupne nacitala (nebyla
cela tabulka v pameti).
Nebo zmenit uplne styl. Musi to byt jenom ComboBox? Co treba Edit s
tlacitkem nebo automatickym vyskakovacim formularem s napr. sikovne
upravenym DBGridem?
S pozdravem
Petr Jarkovsky
pejasoft(zv)volny(tec)cz
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>> Ahoj
> Mam dotaz %subject%. Jde mi o to, ze si pri
> startu aplikace naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
> Tak jsem to chtel resit tak, ze naplnim jedno a
> tomu budu menit parenta. Jenze ejhle ... to trva
> skoro stejne dlouho jako naplneni dalsiho comba. :
> (
> Co s tim?
> Nelze nejak naplnit jedno combo a pak rict
> dalsimu - prazdnymu -combu, ze ma koukat na
> polozky toho naplnenyho comba?
> Neco jako predat adresu ...
> Kdyz to udelam (napr budu mit 3 takovato comba) -
> nebude se mi menit i ItemIndex u ostatnich dvou,
> kdyz na jednom neco vyberu?
>
> Uz se mi tam metoda prestava libit. Bylo to
> reseni, ale nejak budu muset vymyslet nacteni jen
> casti obci - ale chybi idea ...
INIsoubor - problem s ukladanim Streamu
[*] Petr Slaby <petr.slaby(zv)i(tec)cz> - 14.2.2003 10:41:48
Ahoj,
nejspis bude problem v tomto....
jdqc> soub.UpdateFile;
jdqc> SloupceGridu:=TMemoryStream.Create;
jdqc> Form1.AA_DBGrid.Columns.SaveToStream
SloupceGridu.Position := 0;
jdqc> (SloupceGridu);
jdqc> soub.WriteBinaryStream
jdqc> ('Gridy','G_01',SloupceGridu);
Petr
Tisk na HP pomoci QReportu
[*] Vlastimil Bardo� <bardon(zv)akord-soft(tec)cz> - 14.2.2003 10:43:55
A nepomohlo by nastavit kompatibilitu na W2000? Mi take leccos napsaneho
v Delphi na XP nechodilo, ale kdyz se nastavila kompatibilita na W2000
tak to zaclo chodit.
-----Original Message-----
From: Rumcajs-konfera [mailto:konfera(zv)rumcajs.com]
Sent: Friday, February 14, 2003 9:31 AM
Treba proto, ze polovina mych programu pod tim vubec nebezi ...
A u druhe poloviny to dele neplechu, priklad:
try ComPort1.Open;
MessageDlg('Port v poradku otevren', ....
except
MessageDlg('Chyba, port nelze otevrit ....
end;
Vsude to funguje, ale pod XP to hodi natvrdo chybu portu a na nejake try
except se vy.....
Rumcajs
Tisk na HP pomoci QReportu
[*] Lauko Stefan <laukosw(zv)naex.sk> - 14.2.2003 11:25:15
Ahoj,
mnohokrat mi pomohlo odinstalovat ovladac dodany k tlaciarni (hlavne od HP)
a nainstalovat ovladac podobny z Windows napr. HP LJ 4,5,6.. . Pripadne ho
nainstalovat ako dalsiu tlaciaren a nastavit ako predvolenu.
Lauko.
----- Original Message -----
From: "Martin P��vratsk�" <martinp(zv)benefitcz(tec)cz>
Sent: Friday, February 14, 2003 8:28 AM
> Zdravim,
> vyskytl se mi problem, ktery se mi nedari vyresit a proto vas zadam o
radu.
> Kdyz tisknu na tiskarne HP LaserJet 2100 v systemu WinXP program
> "vytuhne" a sestava se nevytiskne. Bohuzel tento jev se objevuje velmi
> nepravidelne. Na vsech pocitacich, na kterych jsem to osobne skousel vse
> funguje bez problemu a u klienta s tou samou tiskarnou se objevuji vyse
> zminene problemy.
> Program je napsany v Delphi 2 a generator sestav je QReport 2.0k.
>
> Predem dekuji za jakykoliv napad.
>
> Martin Privratsky
>
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] <js-delphi(zv)quick(tec)cz> - 14.2.2003 11:41:11
Anebo si ComboBox uprav tak, ze
data budes nacitat az pri jeho rozbaleni a navic
pouzijes v dotazu podminku
na pocatecni pismenka, ktera do toho comba uz
mohl uzivatel zadat (uziv. do
comba napise "pr", klikne na rozbalit a vyjedou
mu mesta zacinajici na "pr")
Roman
Ahoj.
Tohle me uz taky napadlo. Co jsem ale neumel
vyresit je:
1)mam obyc ComboBox
2)cekam na rozabelni, dokud uzivatel neda aspon
jedno pismeno (popr. ho naplnim prvnimi cca 10
3)podle zmacknutych pismen vytvorim "filtr"
JAK ale osetrit:
uzivatel zada jedno pismeno, v Combu se pripravi
jen obce s tim pismenem - pak si uzivatel rozbali
DropDownList dojede na konec obci zacinajicich na
zadane pismeno a bude ocekavat, ze se automaticky
prejde na pismeno dalsi?
Jak udelat tohle? Neumim odchytit stisk na
ScrollBar comboBoxu. Kdybych si combo vykresloval
sam, umim zjistit, kde je zrovna kurzor ...
aha to mozna bude cesta spravnym smerem
co vy na to?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 14.2.2003 11:44:11
My sme mali podobny problem a riesili sme to tak ze sme komba s tak velkym
poctom udajov (15000) zamenili za editovaci riadok a tlacitko.
V editovacom riadku je napr. nazov vybranej obce a ked user klepne na to
tlacitko tak sa otvori nova forma kde ma uzivatel v DBgride zoznam vsetkych
obci (pricom tieto data sa natahuju pri otvarani formy) a sucasne ma moznost
tiedit tieto data, filtroval, alebo vyhladavat podla zazanych podmienok.
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>
To: "konference delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 14, 2003 9:59 AM
Subject: ComboBox - jak hodnoty jednoho comba pouzit bez naplneni v jinem
> Ahoj
> Mam dotaz %subject%. Jde mi o to, ze si pri
> startu aplikace naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
> Tak jsem to chtel resit tak, ze naplnim jedno a
> tomu budu menit parenta. Jenze ejhle ... to trva
> skoro stejne dlouho jako naplneni dalsiho comba. :
> (
> Co s tim?
> Nelze nejak naplnit jedno combo a pak rict
> dalsimu - prazdnymu -combu, ze ma koukat na
> polozky toho naplnenyho comba?
> Neco jako predat adresu ...
> Kdyz to udelam (napr budu mit 3 takovato comba) -
> nebude se mi menit i ItemIndex u ostatnich dvou,
> kdyz na jednom neco vyberu?
>
> Uz se mi tam metoda prestava libit. Bylo to
> reseni, ale nejak budu muset vymyslet nacteni jen
> casti obci - ale chybi idea ...
>
> Nejaky napad?
> Ahoj
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>
>
>
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] <js-delphi(zv)quick(tec)cz> - 14.2.2003 11:45:47
Ahoj,
a co nazvy obci nacist do TStringListu a potom
rici ComboBoxum, aby divaly
na tento TSringList - ComboBox.Items :=
TStringList
Pavel
Ahoj.
No ja zkousel uz treba ComboBox1:=ComboBox2;
ComboBox1.Items:=ComboBox2.Items;
a vsechno tohle prirazeni trvalo strasne dlouho.
Se StringListem jsem to nezkousel, ale moc se mi
to nezda ...
vyzkousim
Ale prece jenom neda se primo tomu objektu zmenit
natvrdo adresa kam se ma koukat na data? To si
myslim, ze by byla otazka ms.
Co vy na to?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
TJclEmail - Outlook 2k - modalni okno
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.2.2003 12:04:35
Ahoj,
posilam mail pomoci JclEmail.Send(true);
na Outlook 2k se mi objevi "modalni" okno zpravy, nejde pracovat jak s =
aplikaci, tak se samotnym Outlookem, coz nechci, chci aby se pod tim dalo =
normalne pracovat...
v metode=20
function TJclEmail.InternalSendOrSave(Save, ShowDialog: Boolean): Boolean;
...
Res :=3D MapiSendMail(FSessionHandle, 0 {ParentWND}, MapiMessage, Flags, =
0);
...
jsem zrusil ParentWND, ale okno je stale modalni, co s tim ???
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
stale rozkose z ikonou .exe aplikace
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 14.2.2003 12:12:24
to sice byla ale to byla prace ikony v okne, ci ikony na
spodni liste windows ci v tray ale ja potrebuju zmenit
ikonu .exe souboru ve windozech. ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
> Na Zive je serial Umime to s Delphi a Tipy a triky v Delphi. V jednom
> dile byla ukazka, jak animovat (tj. menit rychle za sebou) ikonu
> aplikace. Mrkni na web.
>
> ------
> S pozdravem Karel Horky
> horky.karel(zv)quick(tec)cz
> W2K/SP2, D5Ent/UP1
> FieldByName vs. ['fieldname']
[*] harman(zv)volny(tec)cz - 14.2.2003 12:14:19
V napovede pisou ze je to zamenne. Proc to nekdy funguje a nekdy
ne? U zkraceneho nazvu se casto vyskytuje "Invalid variant type
conversion". Honza.TJclEmail - Outlook 2k - modalni okno
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 14.2.2003 12:17:39
Ahoj,
obavam se, ze tohle nepujde, protoze fce MapiSendMail ceka, az user
zavre formular outlooku, aby mohla vratit vysledek odeslani. Stejne tak
se to chova i ve windows kdyz z pruzkumnika odesilas file pres Send To
-> Mail Recipient.
Ales
> -----Original Message-----
> From: Blazek Jaroslav [mailto:Jaroslav.Blazek(zv)access-it(tec)cz]=20
>=20
> posilam mail pomoci JclEmail.Send(true);
> na Outlook 2k se mi objevi "modalni" okno zpravy, nejde=20
> pracovat jak s aplikaci, tak se samotnym Outlookem, coz=20
> nechci, chci aby se pod tim dalo normalne pracovat...
>=20
> v metode=20
> function TJclEmail.InternalSendOrSave(Save, ShowDialog:=20
> Boolean): Boolean;
> ...
> Res :=3D MapiSendMail(FSessionHandle, 0 {ParentWND},=20
> MapiMessage, Flags, 0);
> ...
>=20
> jsem zrusil ParentWND, ale okno je stale modalni, co s tim ???Adresar RO, UDPServer, ikony
[*] Ji�� Nov��ek <jnovacek(zv)spst(tec)cz> - 14.2.2003 12:42:49
Dobry den.
Mam nekolik problemu v Delphi a proto Vas zadam o radu.
1. Jak ve Windows XP smazat adresar, ktery dedi atribut RO? Jak zrusit
tento atribut?
2. Jak ve Windows XP zmenim heslo aktualniho uzivatele, respektive jak
se pracuje s ucty (vytvareni, ruseni ..)? Zatim pouzivam NET.
3. Jak napsat aplikaci pro W9x, ktera nema formular a okamzite se
neukonci? Do projektu (.dpr) doplnim standardne mezi begin a end kod
programu, ale nechci aby se program ukoncil. Vlastne potrebuji vytvorit
sluzbu?
4. Jak inicializuji v aplikaci pro W9x, ktera opet nema formular
komponentu z Indy UDPServer, aby UDPRead fungovalo? (D6)
5. Kde se ve Windows uchovava umisteni ikonek na plose?
Snad bude stacit nakopnut. Kdyz se vsak objevi nejaky kousek kodu,
budeto perfektni.
Predem vsem dekuji.
Jirka
Jak zkopirovat vlastnosti komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.2.2003 12:43:57
UG9tb2NpIFJUVEkgYnkgbWVsbyBqaXQgemppc3RpdCB2c2VjaG55IHByb3BlcnR5IGEgZXZlbnR5
LiBBbGUgbmV2aW0sDQpqYWsgcG96bmFzLCBjbyBjaGNlcyBhIG5lY2hjZXMga29waXJvdmF0DQoN
Ci0tIA0KSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxNC4yLjIwMDMgTWls
b5ogS2FzdG5lcjoNCj4gQXNpIGpzZW0gc2UgbmV2eWphZHJpbCBwcmVzbmUsIG9wcmF2ZHUgcG90
cmVidWp1IGtvcGlyb3ZhdCBob2Rub3R5IHYNCj4gcHJvcGVydGllcyBhIG5lIHByb3BlcnRpZXMu
DQoNCj4gUHJvYmxlbSBzIHBvdG9ta2VtIGJ1ZGUgdiB0b20sIHplIGphIHBvdHJlYnVqdSBwYWsg
dHUgcHV2b2RuaQ0KPiBrb21wb25lbnR1IHpydXNpdC4NCg0KPj4gUGFrIGplIGRhbHNpIG1vem5v
c3QsIG5hcHNhdCBzaSBwcm9jZWR1cnUsIGt0ZXJlIHByZWRhcyAyIGVkaXR5IGEgb25hDQo+PiB0
aSBuYXN0YXZpLCBjbyBwb3RyZWJ1amVzDQo+IFRvIGplIHByYXZlIHRvIGNvIGNoY2ksIGFsZSBu
ZSB6ZSBwcm8ga2F6ZG91IGtvbXBvbmVudHUgbmFwaXN1IHByb2NlZHVydSwNCj4gdmUga3RlcmUg
YnljaCBydWNuZSB2eWptZW5vdmFsIGplamkgcHJvcGVydGllcy4gUHJvc3RlIG5ldmltIGplc3Rs
aQ0KPiBqZGUgYSBqYWssIHByb2ppdCB2IGN5a2x1IHZzZWNobnkgcHJvcGVydGllcyBrb21wb25l
bnR5IGxpYm92b2xuZWhvDQo+IHR5cHUu
Ulozeni nastaveni komprese
[*] Petr Bozek <bozek(zv)seznam(tec)cz> - 14.2.2003 12:48:37
Dobry den,
potreboval bych radu pri nahravani videa pomoci AVICAP.DLL.
Da se nejak ulozit nastaveni komprese, abych pri incializaci mohl nastavit kodek
programove (napr. z ini)?
Umim pouze zavolat dialog pomoci message WM_CAP_DLG_VIDEOCOMPRESSION, ale uz
nedostanu zpatky zpravu, co jsem vybral a ani nevim jak to nastavit znovu.
Takze pri kazdem nahravani videa se mne znovu zepta na kodek, coz je neprijemne.
Dekuji predem za kazdy podnet.�
Petr Bozek
TJclEmail - Outlook 2k - modalni okno
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.2.2003 12:56:39
Ahoj,
> vasicek(zv)ecommerce(tec)cz 14.2.03 12:17 >>>
>obavam se, ze tohle nepujde, protoze fce MapiSendMail ceka, az user
>zavre formular outlooku, aby mohla vratit vysledek odeslani. Stejne tak
>se to chova i ve windows kdyz z pruzkumnika odesilas file pres Send To
>-> Mail Recipient.
a proc, kdyz to posilam pomoci Novellovskeho GroupWise, to okno modalni =
neni a necha se pod nim normalne pracovat ????
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
StrToDate a EConvertError
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.2.2003 12:59:50
> try
> TempDate := StrToDate(Edit1.Text);
> except
> on E: EConvertError do OK:=false;
> end;
>
> To funguje az na retezec: '1.1.200' zahlasi, ze '-' neni integer a
> except to nezachyti. Kde je problem? Diky
Nevim,
strelim od boku, ale presto: opravdu vznika chyba v tomto miste? Neni mozne, ze
StrToDate normalne projde, v TempDate bude zaporna hodnota, jelikoz datum je
mensi nez tusim 31.12.1899 a ze by to pak vylitlo az nekde pri pokusu o pouziti
tohoto TempDate?
David Lebeda
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.2.2003 13:05:33
From: <js-delphi(zv)quick(tec)cz>
> No ja zkousel uz treba ComboBox1:=ComboBox2;
> ComboBox1.Items:=ComboBox2.Items;
> a vsechno tohle prirazeni trvalo strasne dlouho.
> Se StringListem jsem to nezkousel, ale moc se mi
> to nezda ...
To se Ti spravne nezda, protoze to prirazeni vola metodu SetItems() a ta
udela Assign tj. prekopiruje data. Protoze me podobny problem ceka, tak jsem
se na to lehce dival a vypada to, ze nejvice casu promrhas na operaci
trideni
obecne, v rezii woken obzvlast. Takze nejschudnejsi reseni je (i kdyz nic
moc):
1. Vytvorit instanci TStringList s nastavenim
Sorted=TRUE a Duplicities=dupIgnore.
2. Do tohoto string listu nacist data - na mych datech tj. pres 38000
polozek to byla otazka rekneme 10 sekund - to je opravdu dost dlouho
3. ComboBox nechat v rezimu Sorted=FALSE a priradit mu polozky
ze setrideneho seznamu. To mi trvalo tak 1.2 sekundy a to uz je IMHO
unosne.
***
Jinak napsat vlastni ComboBox, ktery by si bral polozky odnekud z pameti
misto aby si je pomoci zprav CB_GET/SETITEMDATA posilal s woknama,
by vyzadovalo zmenit tridu Items z TComboBoxStrings na neco vlastniho.
Zdanlive brnkacka, protoze architekt VCL doplnil virtualni metodu
GetItemsClass, ovsem implementator byl vul, takze ji nepouzil
a nastavuje private FItems natvrdo na TComboBoxStrings (!)
Ostatne jako vzdycky, kdyz clovek potrebuje rozsirit/zmenit funkcnost VCL
:-((
Takze tudy prima cesta nevede. Oklikou by se nejspis nechal napsat
TComboBoxEx - tam se lze take podivat, jak to resi s tim typem polozek.
Ale to uz bude dost prace :-(
HTH, pf
Re2: Zpravy po siti
[*] �tuPe - 14.2.2003 13:17:24
Sice u=BE nev=EDm, odkud jsem TrayPop z=EDskal, ale v doprovodn=FDch =
textech jsem na=B9el:
Contacts:
Andrey Shedel
E-Mail: andreys(zv)tarzan.cr.cyco.com
http://www.cyco.nl/~andreys
P=F8i startu na syst=E9mu WIN typu NT se pt=E1, jestli zastavit slu=BEbu =
Messenger (pokud ano, zastav=ED slu=BEbu, zpr=E1vu odchyt=ED s=E1m a =
slu=BEba ji=BE hl=E1=B9ku nevyhod=ED).
P=F8izn=E1v=E1m, odes=EDlat asi (ur=E8it=EC) p=F9jde (a proto=BEe jsem =
to poslal s=E1m sob=EC, tak jsem minule vyvodil =B9patn=FD z=E1v=ECr)
V=EDc u=BE fakt nev=EDm ... (no m=E1m ty exe=E8ka, ale je to patrn=EC =
tvo=F8en=FD v C, je toho 180kB - 2 exe=E8ka, pro W9x a WinNT, kdy=BE tak =
po=B9lu p=F8=EDmo tob=EC)
=A9tuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: <js-delphi(zv)quick(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 13. =FAnora 2003 16:01
P=F8edm=ECt: Re: Re2: Zpravy po siti
A jak je zachytit? Jak napr. udelat takovy=20
Winpopup fungujici i pod WNT, W2k, WXP??
Odesilani zprav funguje stejne, ale pak jsem uz=20
nebyl schopen dochytit zpravu, ze prisla=20
nejaka "textova zprava" a dal systemu rict, at uz=20
nic nehlasi.
Resil jste to uz nekdy nekdo?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
> Ano, "net send" pou=BE=EDv=E1 zm=EDn=ECnou slu=BEbu=20
> Messenger.Zkuste si vypnout slu=BEbu "net stop=20
> messenger", nic neode=B9lete a nep=F8ijmete ...
> p.
>=20
> NET SEND [jmeno_ciloveho_pc] [text_zpravy]
>=20
> Ales
Jak zkopirovat vlastnosti komponenty
[*] injeniero(zv)volny(tec)cz - 14.2.2003 13:23:15
No a metoda Assign by nefungovala?? Dyt k tomu tam je,ne?
Nebo se pletu?
P.> Asi jsem se nevyjadril presne, opravdu potrebuju
> kopirovat hodnoty v
> properties a ne properties.
Jak zkopirovat vlastnosti komponenty
[*] Milo� Kastner - 14.2.2003 13:24:51
Vim ktere propetries nechci kopirovat.
Kde bych nasel informace o RTTI a jak to pouzit?
Diky
Milos Kastner
kastner(zv)stereo(tec)cz
P�vodn� zpr�va:
> Pomoci RTTI by melo jit zjistit vsechny property a eventy. Ale nevim,
> jak poznas, co chces a nechces kopirovat
Jak zkopirovat vlastnosti komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.2.2003 13:30:40
14.2.2003 injeniero(zv)volny(tec)cz:
> No a metoda Assign by nefungovala?? Dyt k tomu tam je,ne?
> Nebo se pletu?
A to si predstavujes jako Edit1.Assign(Edit2) ?
Takhle obsah properties urcite nezkopirujes :-(
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Jak zkopirovat vlastnosti komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.2.2003 13:32:28
Wmt1cyB6YWNpdCB2IGhlbHB1LCByZWpzdHJpazoNCnJ1bnRpbWUgdHlwZSBpbmZvcm1hdGlvbiAo
UlRUSSkgKyBvZGthenkNCg0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
DQoNCjE0LjIuMjAwMyBNaWxvmiBLYXN0bmVyOg0KPiBWaW0ga3RlcmUgcHJvcGV0cmllcyBuZWNo
Y2kga29waXJvdmF0Lg0KPiBLZGUgYnljaCBuYXNlbCBpbmZvcm1hY2UgbyBSVFRJIGEgamFrIHRv
IHBvdXppdD8=stale rozkose z ikonou .exe aplikace
[*] �tuPe - 14.2.2003 13:36:04
Hr=E1tky v resource nejsou beztrestn=E9 (alespo=F2 takov=E9 m=E1m =
zku=B9enosti s D5). Pokud jsem vkl=E1dal v=EDce ikon do .RES souboru, =
bylo d=F9le=BEit=E9, jestli jm=E9no vkl=E1dan=FDch ikon bylo po M nebo =
p=F8ed (podle MAINICON). Ob=E8as mi to za=F8valo "duplikace resource =
ikon" p=F8i otev=F8en=ED hlavn=EDho formul=E1=F8e a pokusu o jeho =
zobrazen=ED (po F12 z k=F3du) a takov=FD RES soubor jsem mohl vyhodit a =
za=E8=EDt znova ...
Pokud pot=F8ebuje=B9 zm=ECnit ikonu na taskli=B9t=EC a na hlavn=EDm =
formul=E1=F8i tak takhle:
procedure TMain.rfrsh;
(*var Ic: TIcon;*)
begin
// Ic:=3D TIcon.Create;
If SynEdit1.Tag=3D1
then il1.GetIcon(0, Application.Icon)
else il1.GetIcon(1, Application.Icon);
// Application.Icon.Assign(Ic);*)
to zapozn=E1mkovan=FD mi nejelo.
Pak je taky mo=BEn=E9, =BEe jsem nepochopil po=BEadavek a chce=B9 =
t=F8eba zm=ECnit ikonu p=F8=EDmo v exe souboru, tzn. pokud m=E1 EXE =
d=E9lku 350 024B po zm=ECn=EC bude m=EDt jinou ikonu a d=E9lku t=F8eba =
350 240B - i kdy=BE to m=EC p=F8ipad=E1 jako ...
=A9tuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: <js-delphi(zv)quick(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 13. =FAnora 2003 17:57
P=F8edm=ECt: Re: stale rozkose z ikonou .exe aplikace
Asi Ti vubec nepomuzu, ale vzpominam si, ze tohle=20
je reseno v knize 1000tipu a triku pro Delphi
Nic moc, co?
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od: Ivomir <ivomir(zv)seznam(tec)cz>
Datum: =E8tvrtek, 13. =FAnora 2003 v 5:06 odp.
P=F8edm=ECt: stale rozkose z ikonou .exe aplikace
> stale se mi nedari nijak zmenit ikonu .exe=20
> aplikace za chodu.
> uz sem z toho vazne na hlavu.
> zjistil sem ze kdyz vytvorim resource=20
> ikona.rs a do ni flaknu
> ikony tak mi posledni ikona z tohohle=20
> seznamu preplacne
> standardni ikonu .exe aplikace i kdyz mam=20
> nastavenou v=20
> PROGRAM - OPTIONS - APPLICATION - ICON jinou=20
> ikonu.
> navic kdyz pouziju
> application.Icon.Handle :=3D =20
> extracticon(application.Handle,PChar
('ikona'),CISLOIKONY);
> a do CISLOIKONY dosazuju uz vsechno mozny od=20
> cisel az
> po jmena tak se proste nic nedeje.
>=20
>=20
> ....... s pozdravem Ivomir
> ---------------------------------------------
> -----
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>=20
>=20
>=20
StrToDate a EConvertError
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.2.2003 14:12:53
Docela mi to zaujalo, ale nedari se mi to nasimulovat. 1.1.200 prevede
funkce uplne OK !
Nevznika chyba az nekde dal ? TempDate (TDate) je totiz pri zadani
'1.1.200' zaporne cislo !
Pavel
From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
> try
> TempDate := StrToDate(Edit1.Text);
> except
> on E: EConvertError do OK:=false;
> end;
>
> To funguje az na retezec: '1.1.200' zahlasi, ze '-' neni integer a
> except to nezachyti. Kde je problem? Diky
stale rozkose z ikonou .exe aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.2.2003 14:17:00
From: "Ivomir" <ivomir(zv)seznam(tec)cz>> application.Icon.Handle := extracticon
> (application.Handle,PChar('ikona'),CISLOIKONY);
>
> a do CISLOIKONY dosazuju uz vsechno mozny od cisel
> az po jmena tak se proste nic nedeje.
Mas to skoro dobre - jen Ti unikl drobny rozdil
mezi Application.Handle a HInstance.
HTH, pf
Zjisteni handle aplikace z nazvu exe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 15:13:45
From: "Petr Hlo�ek" <petr_h(zv)mrp(tec)cz>
> jak mam zjistit handle spustene aplikace kdyz znam pouze nazev exe souboru?
Co je to 'handle aplikace' ?
Petr Vones
TJclEmail - Outlook 2k - modalni okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 15:14:59
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> a proc, kdyz to posilam pomoci Novellovskeho GroupWise, to okno modalni neni
> a necha se pod nim normalne pracovat ????
To zalezi ciste na implementaci u toho klienta. Spravne by melo byt modalni
ale ne vzdy to tak funguje.
Petr Vones
StrToDate a EConvertError
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 15:15:41
From: <kuba.zubaty(zv)centrum(tec)cz>
> chtel bych osetrit chybu vznikajici pri pokusu o prevod stringu na
> datum.
Viz funkce TryStrToDate.
Petr Vones
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Ji�� Semler <jsemler(zv)stbk.mcs(tec)cz> - 14.2.2003 15:25:42
Ahoj,
nakopirovat data pomoci ComboBox2.Items.SetData(ComboBox1.Items.GetData)
je taky pomale?
Jirka
> naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 15:35:34
From: <js-delphi(zv)quick(tec)cz>
> Mam dotaz %subject%. Jde mi o to, ze si pri
> startu aplikace naplnim Combo - udelam si
> ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> CR cca 15.500 obci, tak to trva -> plnit dve
> comba uz by bylo nemozny.
Komponenty ktere neumoznuji 'virtualni rezim' se na toto v zasade nikdy
nehodi. TComboBox neco takoveho neumi, takze se budto podivej po jine
komponente, napriklad TDBLookupComboBox (pokud jej muzes pouzit).
Pri pouziti TComboBoxu by to slo castecne obejit tim, ze pred naplnenim
polozkami posles zpravu CB_INITSTORAGE, cimz se to trochu zrychli. Jine reseni
je naplnit combobox jen prazdnymi stringy (to je nejrychlejsi), data mit pak
ulozene vedle v nejakem TStringListu a pomoci ownerdraw stylu je vykreslovat v
tom comboboxu. Muzes si na to pomerne snadno udelat novou komponentu.
Petr Vones
TJclEmail - Outlook 2k - modalni okno
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.2.2003 15:38:45
> > a proc, kdyz to posilam pomoci Novellovskeho GroupWise, to okno
> > modalni neni a necha se pod nim normalne pracovat ????
> To zalezi ciste na implementaci u toho klienta. Spravne by melo byt
> modalni ale ne vzdy to tak funguje.
To jsem fakt nepochopil, proc by melo byt 'spravne modalni'?
Me pripada, ze kdyz si nejaka aplikace ma tu drzost mi pod rukama
otevirat okno s nejakym mailem na odeslani, tak bych byl hodne
roztrpceny z toho, ze mi toto mnou neotevrene okno brani v normalni
praci s postovnim klientem.
Dle meho by to melo byt okno s novou postou jako kazde jine. Nebo vas
postovni klient snad neumi mit otevreno treba tucet rozepsanych
novych dopisu?
Trosku mi vadi, kdyz je demence Microsoftich postovnich programu
povysovana za 'spravnou vlastnost'. ;-(
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Obnoveni DOS okna do full-screen?
[*] Pavel T�e���k - 14.2.2003 15:40:30
Ahoj,
jak mam obnovit DOS okno, ktere bylo full-screen a prepnul jsem se z n�j do
win (Alt-TAB). Kdyz dam SetForegroundWindow, tak se pouze oznaci jako
aktivni, ale neroztahne se. Nepomuze ani SendMessage(HWND, WM_COMMAND,
SC_MAXIMIZE, 0)
Dekuji a jsem s pozdravem
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
TJclEmail - Outlook 2k - modalni okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 15:48:45
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Me pripada, ze kdyz si nejaka aplikace ma tu drzost mi pod rukama
> otevirat okno s nejakym mailem na odeslani, tak bych byl hodne
> roztrpceny z toho, ze mi toto mnou neotevrene okno brani v normalni
> praci s postovnim klientem.
Modalni vuci te aplikaci ze ktere to volas. Ta funkce pro odesilani totiz neni
asynchronni.
Situace:
- volas funkci MapiSendMail ze sve aplikace
- otevre se okno klienta (ktery ma jako parent hlavni okno te aplikace)
- aplikace CEKA na navratovou hodnotu volane funkce MapiSendMail, ktera je
mimo jine dana i tim, jestli uzivatel zpravu nakonec odeslal.
Ted mi prosim rekni, jak cekat na navratovy kod z funkce, ktera nezobrazi
dialog modalne. Predstav si misto toho klienta jakykoli jiny dialog.
> Dle meho by to melo byt okno s novou postou jako kazde jine. Nebo vas
> postovni klient snad neumi mit otevreno treba tucet rozepsanych
> novych dopisu?
Samozrejme ze umi.
> Trosku mi vadi, kdyz je demence Microsoftich postovnich programu
> povysovana za 'spravnou vlastnost'. ;-(
Hm, jiste. Vsechno co je od Microsoftu je dementni a naopak. To uz jsme
slyseli mnohokrat.
Petr Vones
Obnoveni DOS okna do full-screen?
[*] Pavel T�e���k - 14.2.2003 15:51:16
Ahoj,
uz to mam, resi to WM_SYSCOMMAND
S pozdravem
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavel T�e���k
Sent: Friday, February 14, 2003 3:41 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Obnoveni DOS okna do full-screen?
Ahoj,
jak mam obnovit DOS okno, ktere bylo full-screen a prepnul jsem se z n�j do
win (Alt-TAB). Kdyz dam SetForegroundWindow, tak se pouze oznaci jako
aktivni, ale neroztahne se. Nepomuze ani SendMessage(HWND, WM_COMMAND,
SC_MAXIMIZE, 0)
Dekuji a jsem s pozdravem
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] <js-delphi(zv)quick(tec)cz> - 14.2.2003 15:53:37
to nevim=2E To me ani nenapdalo=2E Vyzkousim to =2E=2E=2E =
ale az doma =3A(
Diky
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Ji=F8=ED Semler =3Cjsemler=40stbk=2Emcs=2Ecz=3E
=3E nakopirovat data pomoci =
=3E ComboBox2=2EItems=2ESetData(ComboBox1=2EItems=2EGetData)
je taky pomale=3F
=3E =
=3E Jirka
TJclEmail - Outlook 2k - modalni okno
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.2.2003 16:09:11
> Modalni vuci te aplikaci ze ktere to volas. Ta funkce pro odesilani
> totiz neni asynchronni.
O tom neni pochyb. Ja mel ale za to, ze se tady bavime o modalnosti
vyskocivsiho okna vuci zbytku mailove aplikace. Pojem 'modalnost'
mezi dvema apliakcemi je sam o sobe takovy jakysi zvlastni, ze?
Je logicke, ze aplikace volajici jinou aplikaci pres MAPI ma cekat na
ukonceni teto operace. Ale tak je to snad vzdy, protoze kdyz by tomu
tak nebylo, tak by to neodpovidalo MAPI rozhrani, ne?
> Ted mi prosim rekni, jak cekat na navratovy kod z funkce, ktera
> nezobrazi dialog modalne. Predstav si misto toho klienta jakykoli jiny
> dialog.
O tom jsi mluvil jen a jen TY! Ty jsi tady vyjadroval litost nad tim,
ze ne vsechny postovni klienti nejsou dle tebe 'modalni'!
Takze nam vysvetli TY jak to teda ty aplikace dokazi cekat na
navratovy kod?
Ja mel opravdu za to, ze se bavime o modalnosti okna v ramci
postovniho klienta... ze volani MAPI ma cekat na navratovy kod z
klienta, to je bezpochyb, ale nijak to nekoliduje s pozadavkem
modalniho ci nemodlniho okna.
> > Trosku mi vadi, kdyz je demence Microsoftich postovnich programu
> > povysovana za 'spravnou vlastnost'. ;-(
> Hm, jiste. Vsechno co je od Microsoftu je dementni a naopak. To uz
> jsme slyseli mnohokrat.
Jiste, od tebe. ;-) Jen a jen TY tady rikas pojmy jako 'vsechno od
Microsoftu'. Ja takhle kategoricky nikdy nebyl... :-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Zjisteni handle aplikace z nazvu exe
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 14.2.2003 16:30:05
Otvoris si WinSight32 a tam najdes tu aplikaciu (na zaklade nazvu toho
exaca) a odtial dostanes classname a nazov okna toho okna ktoreho handle
chces ziskat a potom
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
If the function succeeds, the return value is the handle to the window that
has the specified class name and window name
----- Original Message -----
From: "Petr Hlo�ek" <petr_h(zv)mrp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 14, 2003 9:23 AM
Subject: Zjisteni handle aplikace z nazvu exe
> Dobry den,
>
> jak mam zjistit handle spustene aplikace kdyz znam pouze nazev exe
souboru?
> Aplikace nema titulkovy pruh.
> Dekuji a preji pekny den.
>
> Petr
>
>
>
TJclEmail - Outlook 2k - modalni okno
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.2.2003 16:47:43
Ahoj,
> pvones(zv)mbox.vol(tec)cz 14.2.03 15:49 >>>
>Modalni vuci te aplikaci ze ktere to volas. Ta funkce pro odesilani totiz =
neni
>asynchronni.
dobre, modalni vuci aplikaci, to bych pochopil, protoze ceka na nejaky =
result, ale proc nejde sakra pracovat i s Outlookem...???
Ja bych si i vytvoril vlastni Form a posilal pomoci JclEmail.Send(false);, =
ale to mi zase nechodi k prijemci prilohy (no chodi, ale v priloze =
Part.001 - to uz jsem sem jednou posilal a porad jsem nic nevyresil)
z GroupWise funguje vsechno tak jak chci, okno neni modalni, s GroupWisem =
i s aplikaci se necha normalne pracovat a prilohy prijdou v poradku...
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
TJclEmail - Outlook 2k - modalni okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 16:50:54
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> dobre, modalni vuci aplikaci, to bych pochopil, protoze ceka na nejaky
> result, ale proc nejde sakra pracovat i s Outlookem...???
S jakym presne ? Ja to zkousel s OE 5.5 SP2 a tam fo funguje presne tak, jak
by se ocekavalo.
Petr Vones
TJclEmail - Outlook 2k - modalni okno
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 14.2.2003 16:54:12
Napr. MS Outlook 2002 (10.2627.3311). Delal to i Outlook 2000.
Ales
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]=20
>=20
> S jakym presne ? Ja to zkousel s OE 5.5 SP2 a tam fo funguje=20
> presne tak, jak
> by se ocekavalo.TJclEmail - Outlook 2k - modalni okno
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.2.2003 16:58:09
Ahoj,
> pvones(zv)mbox.vol(tec)cz 14.2.03 16:51 >>>
>S jakym presne ? Ja to zkousel s OE 5.5 SP2 a tam fo funguje presne tak, =
jak
>by se ocekavalo.
je to v subjectu
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644