Archív konference Delphi

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

Algoritmus pro zimni/letni cas

[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 11.4.2001 10:39:13

Mam na to unitu. Dela to timto algoritmem. Muzu poslat.
Michal Tiller

-----Original Message-----
From: Jan Krizek [mailto:krizek(zv)vitasw(tec)cz]
Sent: Wednesday, April 11, 2001 7:31 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Algoritmus pro zimni/letni cas


> Pokud to sedi, nema nekdo nejaky stepny napad, jak to
> elegantne urcit (tedy
> ne tak, ze budu pro dany rok postupne dekrementovat datum od
> 31.3. nebo
> 31.10. a zjistovat, jestli to neni nedele ) ?
>

Zjistit, ktery den 31.3. (resp. 31.10.) je a pak odecist odpovidajici pocet
dni. Kdyz 31.3. je pondeli, tak jeden, kdyz utery tak dva atd...

Honza +

IB6 + procedura + ceske znaky

[*] Karel B�ich��� - 11.4.2001 10:46:06

Upozorneni:
Bohuzel to vypada, ze interni funkce UPPER zohlednuje znakovou sadu pouze
pokud je pouzita na pole tabulky, nikoliv na promennou v ulozene procedure
nebo konstantu. Takze pokud bych v nasledujici procedure pouzil
navrat=UPPER(testik); vrati to SVyCARSKa zizALA. To samozrejme pri pouziti
DEFAULT CHARACTER SET WIN1250.

> create procedure ceska_procedura
> returns (navrat varchar(32) character set WIN1250)
> as
> declare variable testik varchar(32) character set WIN1250;
> begin
> testik = 'Svycarska zizala';
> navrat = testik;
> suspend;
> end !!

Takze pozor nejen pri ulozenych procedurach, ale i pokud se pouziji dotazy
pouzivajici UPPER na konstantu. Napr.

select field1 from tbl1 where UPPER(field1) like UPPER('%Svycarska
zizala%')

Toto se projevuje jak u IB 6.01 tak FB 0.9.4

Zdravim
Brichna

Algoritmus pro zimni/letni cas

[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 11.4.2001 10:50:32

Dle sesbiranych informaci z konference jsem vytvoril dve funkce. Jednu pro
den, s tim, ze pokud je v onu nedeli prechod, jiz se cely den pocita jako
letni nebo zimni a druhou funkci kde se zada datum i s casem.

Function JeLetniDen(PDate:TDate):Boolean;
Var StartDate,EndDate:TDate;
Year:Word;
begin
Year:=StrToInt(FormatDateTime('yyyy',PDate));
StartDate:=EnCodeDate(Year,3,31);
StartDate:=StartDate-DayOfWeek(StartDate)+1;
EndDate:=EnCodeDate(Year,10,31);
EndDate:=EndDate-DayOfWeek(EndDate);
If Year<1996 then
EndDate:=IncMonth(EndDate,-1);
Result:=((PDate>=StartDate) and (PDate<=EndDate));
end;

Function JeLetniCas(PDateTime:TDateTime):Boolean;
Var StartDateTime,EndDateTime:TDate;
Year:Word;
begin
Year:=StrToInt(FormatDateTime('yyyy',PDateTime));
StartDateTime:=EnCodeDate(Year,3,31)+EnCodeTime(2,0,0,0);
StartDateTime:=StartDateTime-DayOfWeek(StartDateTime)+1;
EndDateTime:=EnCodeDate(Year,10,31)+EnCodeTime(3,0,0,0);
EndDateTime:=EndDateTime-DayOfWeek(EndDateTime)+1;
If Year<1996 then
EndDateTime:=IncMonth(EndDateTime,-1);
Result:=((PDateTime>=StartDateTime) and (PDateTime<EndDateTime));
end;

S pozdravem Pavel Koukal.

IB6 + procedura + ceske znaky

[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.4.2001 11:03:19

Ahoj,

Karel B�ich��� wrote:
>
> Upozorneni:
> Bohuzel to vypada, ze interni funkce UPPER zohlednuje znakovou sadu pouze
> pokud je pouzita na pole tabulky, nikoliv na promennou v ulozene procedure
> nebo konstantu. Takze pokud bych v nasledujici procedure pouzil
> navrat=UPPER(testik); vrati to SVyCARSKa zizALA. To samozrejme pri pouziti
> DEFAULT CHARACTER SET WIN1250.

Je to tak. Da se to ale vyresit takhle (dosadit do nize napsane
procedury):

...
navrat = upper(testik collate PXW_CSY);
...

S pozdravem,
Tom

> > create procedure ceska_procedura
> > returns (navrat varchar(32) character set WIN1250)
> > as
> > declare variable testik varchar(32) character set WIN1250;
> > begin
> > testik = 'Svycarska zizala';
> > navrat = testik;
> > suspend;
> > end !!
>
--
=================================

Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic

e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446


Konverzia diakritiky a prehliadac suborov

[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 11.4.2001 11:22:01

Ahoj,
1. nepoznate niekto nejaky dobry komponent, ktory by sluzil ako prehliadac
textovych, ale aj binarnych suborov. Najlepsie freeware.

2. Kde mozem zohnat tabulky pre konverziu medzi povedzme Latin2, kamenicky a
windows.
Existuje na prevod vo windowse nejaka funkcia?

Vdaka, Lubos


Konverzia diakritiky a prehliadac suborov

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.4.2001 11:41:11

> 2. Kde mozem zohnat tabulky pre konverziu medzi povedzme Latin2,
> kamenicky a windows. Existuje na prevod vo windowse nejaka funkcia?

V ramci moji Synapse je unita MIMEChar.pas, ktera se prave prevodem
vsemoznych kodovani zabyva. A to i vcetne Unicode, atd...

Ale kameniky tam jeste nemam. (nejak jsem doposud nesehnal
poradnou prevodni tabulku kamenici -> Unicode.)

Louci se Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library


Zaokrouhleni realneho cisla

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 11.4.2001 11:48:47

Inac zaokruhlenie veseobecne je dost velkym problemom. Isty cas som stym
zaoberal a vysledok je jedna funkcia ktory dokaze zaokruhlovat na x miest
prirodzene, nahoru a dole.
Problemy ktore som musel vyriesit boli nasledujuce:
1. Ty ulozis do DB hodnotu 3.0 a moze sa stat ze ti DB vrati 2.99999999 a
to pri zaokruhlovani hore alebo dole je uz problem.
2. Ak velke cislo chces zokruhlit napr. na miliony tak postup (c*1000000)
div 1000000 nemusi byt dobry atd.
a este nejake ale uz nepametam


Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli



> -----P�vodn� zpr�va-----
> Od: Petr Palicka [SMTP:petr.palicka(zv)atlas(tec)cz]
> Odesl�no: 11. apr�l 2001 7:05
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: RE: Zaokrouhleni realneho cisla
>
>
> > zaokrouhlit realne cislo (extended) na dve desetina mista
> > nahoru. Funkce
>
> y:=ceil(x*100)/100;
>
> staci ;) ?
>
> dekuji PeC(zv)
>
> CU onTheFutureOfMatrix
> MatriX.CyberSpace.Cz
>
> -< ON - LINE - AGAIN >-
>
> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
> |[smtp:petr.palicka(zv)atlas(tec)cz]|
> |[smtp:peca(zv)email(tec)cz] |
> \~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

DLL

[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 11.4.2001 11:54:04

Zdravim,
mam exportni proceduru v DLL, ktera vypada asi takto:

procedure SpustMapu(VysX1,VysY1,VysX2,VysY2,VysX3,VysY3,VysX4,VysY4,VysX5,VysY5,VysX6,VysY6,VysPres:Integer);
begin
MapaForm:=TMapaForm.Create(Application);
Try
MapaForm.ShowModal;
finally
MapaForm.Free;
End;
end;

V programu je tato procedura spoustena z vice mist. Ve formulari MapaForm uzivatel otevira ruzne soubory, ktere se v nem zobrazuji. Ja potrebuji, aby kdyz si na miste A otevre tento formular a otevre si nejake soubory, tak aby na miste B se otevrel opet stejny obsah. Musim to resit predavanim spousty parametru programu a opetovnemu zasilani techto parametru pri pouziti procedury? Nebo to lze udelat jednoduseji? Ja bych si predstavoval dat prikaz MapaForm.Free az pri ukonceni programu.
Muzete mi nekdo poradit?
S pozdravem
Mirek Drejcek.

ListBox a Multiselect

[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 11.4.2001 11:54:49

Zdravim

Ako zistim, ktore polozky v listboxe su oznacene ked je
Multiselect := True;
potrebujem ich vymazat
po jednom mi to ide:

ListBox3.Items.Delete(ListBox3.ItemIndex);

a ked mam oznacenych viac, tak mi vrati iba pri jednej polozke Selected = True;

jozo


Instalace BDE z CD Delphi 3

[*] brant(zv)dcomm(tec)cz - 11.4.2001 12:13:20

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

Myslim, ze to jde volbou "Custom installation" a zvolit pouze BDE. Jinak BDE
se musi instalovat certifikovanym nastrojem, lze pouzit InstallShield.

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

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


Ahoj,
mam maly problemek,
potreboval bych instalovat BDE verze z Delphi 3 ale nemohu ho nikde na CD
najit. Nevite, prosim, kde je, nebo odkud ho ziskat?

uz OT: Maly exe z Delphi - korekce uses

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.4.2001 12:18:42

Puvodni zprava, kterou napsal Radek Janka dne 11 Apr 2001,:

> 1. Jsem pocitacovy grafik, delam 3D vizualizace
> nebo 1a. Jsem databazovy specialista spravuji databazi s desetitisici
> zaznamu: jaky potrebuji pocitac?
> 2. Pocitac mi stoji na stole, bezi sice cely den ale jenom obcas na nem
> napisu dopis, obcas fakturu nebo sklouznu po interneru: opravdu potrebuji
> ten P4/1,5GHz?
> 3. dtto 2, ale navic potrebuji na disk ulozit velky archiv realizovanych
> zakazek: mozna by to chtelo rozsirit pamet a disk, mozna ta jedna aplikace
> bude trochu linejsi, ale nebudu kupovat novej stroj kvuli jedne aplikaci
> kdyz ostatni jedou slusne.
> 4. pocitac zapnu dvakrat v tydnu vecer, jen sem tam nejaky ten dopis na
> ourad nebo kouknout na "ten internet": no neni to ono, ja vim, ale mam tu
> 486ku hodit do srotu?

Krasne prirovnani, i kdyz ne uplne presne. Jsou to extremy. Dole
mas 486, coz je naprosty srot, nahore P4, coz je preci jen trochu
drazsi pocitac. Mezi tim mas bezna Pentia, Pentia II, III, Celerony
a pak jeste ty ruzne AMD apod. Take rozdeleni jsi zdacne zjednodusil,
coz neni vubec odpovidajici. Uvedom si, ze bezny uzivatel vypada
asi tak, ze:

1. Vede si na svem pocitaci ucetnictvi. Mozna se ti to zda jako
banalita, ale tady je dost dulezite, aby o sva data neprisel.
Staci uz to, jak si sva data podela sam svou neznalosti zakonu,
natoz jeste aby mu pocitac nejake problemy pridelal. Neda se rici,
ze mu vystaci nejaka stara osuntela 486 z bazaru s nakopnutym
diskem, co odejde kazdou chvili, a bez zalozniho zdroje. Nejde
jen o rychlost, ale i o opotrebeni sunky, pokud je neco stareho,
je to nespolehlive a o data muze kdykoliv prijit. Vzhledem k tomu,
ze bezny uzivatel vetsinou nezalohuje, je to dost dulezite.

2. Obcas si na pocitaci neco napise, ale nechce to delat uz
v Text602, chce mit program pod Windows. A vetsinou Windows
stejne ma, mezi nami.

3. Chce byt na Internetu, treba jen obcas, ale chce to mit.

4. No a treba jeste pouziva nejaky programek pro svou profesi,
treba nejake vypocty apod.

Takze nemusi mit P4, ale rozhodne ne 6 let starou 486. Podivej
se na ceny novych pocitacu s Celeronem a zjistis, ze to neni
tak neprekonatelny problem. Muze si nechat stary monitor, za
pocitac za treba 25 tisic. Pokud minulym pocitacem byla 486,
pak ji kupoval nekdy pred 6 roky, no takze 25 tisic za 6 let
neni zase tolik penez, kdyz na tom chce neco delat, tedy
aspon vest to ucetnictvi. Predpokladam, ze je to podnikatel...
Kdyz to neni podnikatel, pak ma deti, ktere chteji hrat
hry, no a to bude pocitac MNOHEM MNOHEM DRAZSI, protoze hry
jsou mnohem narocnejsi nez bezne programy od nas Delphaku...


S pozdravem
Petr Zahradnik, pocitacovy expert

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

uz OT: Maly exe z Delphi - korekce uses

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.4.2001 12:31:55

On 11 Apr 2001, at 8:52, Bene# Jaroslav wrote:

> Delam pro zadavatele program, pro ktery bylo nekolik zajimavych
> pozadavku. Jednim z nich bylo, aby se vesel na jednu disketu (ale
> pokud jsem udelal standardni instalaci pomoci InstallShl. tak byl
> program vzdy na diskety dve !!! ) a druhym, aby veskera data a
> tabulky, ktera by se normalne dala do nejakych externich souboru, se
> ulozila primo do EXE (aby uzivatel, jako nepritel cislo jedna, nemohl
> data nejak pozmenit a tim ovlivnit vypocty).

He he, to je dobre. A jak resis pripadny update? Pokud si uzivatel
natahne novou verzi, prijde tim o veskera data? Nebo je program
tak dokonaly (~ je uplny vzhledem k ucelu, jaky ma plnit), ze neni
co updatovat?


S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Konverzia diakritiky a prehliadac suborov

[*] CERMAK <CERMAK(zv)procom(tec)cz> - 11.4.2001 12:35:50

ahoj

Na www.micrel(tec)cz/delphi/ jsem nasel unitu jbstr, ktera obsahuje ruzne
manipulace se stringy a umi i pozadovane konverze znakovych sad. Jaromir Cermak

-----Original Message-----
From: Gebauer Lukas [mailto:gebylist(zv)mlp(tec)cz]
Sent: Wednesday, April 11, 2001 11:41 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Konverzia diakritiky a prehliadac suborov


> 2. Kde mozem zohnat tabulky pre konverziu medzi povedzme Latin2,
> kamenicky a windows. Existuje na prevod vo windowse nejaka funkcia?

V ramci moji Synapse je unita MIMEChar.pas, ktera se prave prevodem
vsemoznych kodovani zabyva. A to i vcetne Unicode, atd...

Ale kameniky tam jeste nemam. (nejak jsem doposud nesehnal
poradnou prevodni tabulku kamenici -> Unicode.)

Louci se Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001


ListBox a Multiselect

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 11.4.2001 12:51:29

Udelas to napr. takhle :

for i := 0 to Pred(ListBox3.Items.Count) do
if ListBox3.Selected[i] then
ListBox3.Items.Delete(i);

S pozdravem

Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Zdravim

Ako zistim, ktore polozky v listboxe su oznacene ked je
Multiselect := True;
potrebujem ich vymazat
po jednom mi to ide:

ListBox3.Items.Delete(ListBox3.ItemIndex);

a ked mam oznacenych viac, tak mi vrati iba pri jednej polozke Selected = True;

jozo


DLL

[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 11.4.2001 12:54:27

Tak si tyto parametry zapamatuj v ramci DLL a pri opetovnem volani je neber v
potaz (tudiz je nemusis ani posilat) a nebo si vytvor druhou metodu, ktere
posles jenom ty nejnutnejsi parametry.

S pozdravem

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


Zdravim,
mam exportni proceduru v DLL, ktera vypada asi takto:

procedure
SpustMapu(VysX1,VysY1,VysX2,VysY2,VysX3,VysY3,VysX4,VysY4,VysX5,VysY5,VysX6,VysY
6,VysPres:Integer);
begin
MapaForm:=TMapaForm.Create(Application);
Try
MapaForm.ShowModal;
finally
MapaForm.Free;
End;
end;

V programu je tato procedura spoustena z vice mist. Ve formulari MapaForm
uzivatel otevira ruzne soubory, ktere se v nem zobrazuji. Ja potrebuji, aby kdyz
si na miste A otevre tento formular a otevre si nejake soubory, tak aby na miste
B se otevrel opet stejny obsah. Musim to resit predavanim spousty parametru
programu a opetovnemu zasilani techto parametru pri pouziti procedury? Nebo to
lze udelat jednoduseji? Ja bych si predstavoval dat prikaz MapaForm.Free az pri
ukonceni programu.
Muzete mi nekdo poradit?
S pozdravem
Mirek Drejcek.

uz OT: Maly exe z Delphi - korekce uses

[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 11.4.2001 13:13:27

Ach ne, to ne, tak 486 uz je srot? Ale vzdyt jeste pred osmi lety kdyz nam
na skolu privezli prvni tak jsme kolem ni chodili jako by to byl
prinejmensim Cray.... :-))

Ne, ted vazne: Je jasne ze v kancelari uz dnes nema 486 co pohledavat (mozna
u nejakeho sevce nebo automechanika...) a ani s windowsama si uz vubec
netyka. S tim naprosto souhlasim, tam patri ta "stredni trida" normalnich
Pentii (nevim ale jestli i P75? :) Nechme ale zit domaci bezdetne uzivatele
s 486kama. Je to jejich volba. A s tim zalohovanim mas pravdu. Kdo z nas
zalohuje?

A navrhuji ukoncit tuto off-topicovou presterlku, uz se to tahne ctyri dny a
stejne to nikam nevede. Myslim ze by mel zasahnout administrator :-)

Mmch nepamatuje se nekdo kdo tu debatu zacal a na co se vlastne ptal?

Radek.

> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Krasne prirovnani, i kdyz ne uplne presne. Jsou to extremy. Dole
> mas 486, coz je naprosty srot, nahore P4, coz je preci jen trochu
> drazsi pocitac. Mezi tim mas bezna Pentia, Pentia II, III, Celerony
> a pak jeste ty ruzne AMD apod. Take rozdeleni jsi zdacne zjednodusil,
> coz neni vubec odpovidajici. Uvedom si, ze bezny uzivatel vypada
>
> aspon vest to ucetnictvi. Predpokladam, ze je to podnikatel...
> Kdyz to neni podnikatel, pak ma deti, ktere chteji hrat
> hry, no a to bude pocitac MNOHEM MNOHEM DRAZSI, protoze hry
> jsou mnohem narocnejsi nez bezne programy od nas Delphaku...
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000


Vyuzivanie pamete OS Win PlayStation

[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 11.4.2001 13:13:09

> Nechcel by som brat nikomu iluzie o "profesionalne nainstalovanom
> unixe", ale vies si taketo rebootovanie predstavit v prevadzke 24x7
> (24 hodin denne, 7 dni v tyzdni) - a to nemusi ist akurat o jadrovu
> elektraren :)).

24x7 s jednim pocitacem nezajistis, takze behem restartu jednoho zajistuje
praci ten druhy. Stejne jako pri jakemkoliv problemu, upgradu apod.

> Podla mna profesionalne nainstalovany unix sam osebe ziadny restart
> nepotrebuje a do urcitej miery musi zvladat aj nekorektne spravanie
> aplikacii. Vsetko je vec (ne)korektneho spravania sa aplikacii.
> Samozrejme ludska blbost je nekonecna a niekto moze vymysliet nejaku
> "rozsiahlu" aplikaciu na dva riadky, ktora nebude robit nic ine iba
> rebootovat masinu (lenze na to je kratky akykolvek operacny system)
>

I OS je jenom program. Napr. nektere verze SCO unixu se nevratili z fread ze
socketu pokud ten byl nasilne uzavren. A tak tam zustavaji zombie, ktere
ctou z jiz davno zavreneho socketu.

Ale asi je Linux jiz bez chyb.

Ohledne toho nekorektniho zachazeni, to je samozrejme pravda. A NT a unix
nabizeji srovnatelne stabilni prostredi pro beh aplikaci. Obecne ale plati,
ze na Win strojich je spusteno vice aplikaci (zvysuje se moznost kolize a
problemu), mene se zalohuji a spravuji je mensi odbornici a zatim je
slozitejsi jejich sprava z dalky. Krome toho posledniho to ale neni chyba
Win, ale lidi, kteri je spravuji.

Honza +

p.s. Nas firemni NT server taky chudak nezna co je to restart - jsem liny to
nastavit - a tak bezi a bezi a bezi ... A to tam ma MSSQL, Oracle 8i i
Informix, MS Exchange.

IB: Detekce nainstalovane IB

[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 11.4.2001 13:15:44

Ahoj,
jak lze detekovat, jestli a jaka verze IB je instalovana?

D5Prof;IBX4.4;

S pozdravem
Ota Maly

PaPouch elektronika
http://www.papouch.com

ListBox a Multiselect

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.4.2001 13:23:38

A neni lepsi to udelat odzadu?
Jaro B.

> -----Original Message-----
> From: Milan Tome# [mailto:Milan.Tomes(zv)haida(tec)cz]
> Sent: Wednesday, April 11, 2001 12:51 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: ListBox a Multiselect
>
>
> Udelas to napr. takhle :
>
> for i := 0 to Pred(ListBox3.Items.Count) do
> if ListBox3.Selected[i] then
> ListBox3.Items.Delete(i);
>
> S pozdravem
>
> Milan Tomes
> mailto:Milan.Tomes(zv)haida(tec)cz
>
>
>
> Zdravim
>
> Ako zistim, ktore polozky v listboxe su oznacene ked je
> Multiselect := True;
> potrebujem ich vymazat
> po jednom mi to ide:
>
> ListBox3.Items.Delete(ListBox3.ItemIndex);
>
> a ked mam oznacenych viac, tak mi vrati iba pri jednej
> polozke Selected = True;
>
> jozo
>
>

Vyuzivanie pamete OS Win PlayStation - trochu OT

[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 11.4.2001 13:25:49

> A nevim o nikom ze sveho okoli, kdo restartoval kazdou noc.
> Abych se priznal, slysim to poprve. Muzete mi nekoho takoveho
> jmenovat, kdo tohle dela?

Jmenovat mohu - v mem okoli si to vyzaduje hlavne Informix. U verze 4 a 5 to
bylo opravdu nutnost po tydnu behu uz odmital pripojeni do DB apod. A ani
verze 7 neni bez problemu : posledni zazitek pochazi z Uradu mestske casti
Praha 6, kde se neslo ze zahadnych duvodu pripojit k db - az pak se zjistilo
od spravcu, ze mesice nerestartovali - ano je pravda, ze mozna stacilo
restartovat "pouze" Informix, ale pokud na tom stroji bezi jako aplikace
hlavne on, pak restart celeho stroje je jednodussi. Otazka je co chapeme
jako OS a sluzby poskytovane serverem, ja osobne nerozlisuji zda je dole
cely system, nebo jen jeho podstatna cast.

Uznavam, ze restart kazdy den je na dnesnich strojich zbytecny, ale na
zacatku devadesatych let se na mestskych uradech byly takove pocitace
(upozornuji ze znackove se znackovym unixem), ze restart potrebovali. Ale
presto obcas si ho pocitac zaslouzi - nebo po case vyzada.

Honza +

Instalace BDE z CD Delphi 3

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 11.4.2001 13:28:48


P�edm�t: RE: Instalace BDE z CD Delphi 3

Myslim, ze to jde volbou "Custom installation" a zvolit pouze BDE. Jinak BDE
se musi instalovat certifikovanym nastrojem, lze pouzit InstallShield.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]

Ahoj,
mam maly problemek,
potreboval bych instalovat BDE verze z Delphi 3 ale nemohu ho nikde na CD
najit. Nevite, prosim, kde je, nebo odkud ho ziskat?

Ahoj,

pokud Ti vyhovuje plna instalace, muzes pouzit InnoSetup a ISTools (odkazy
tu uz byly). Pro instalaci se pouziva originalni BDEINST.DLL a Russeluv (?)
MiniReg, takze neni potreba certifikovany nastroj (ledaze by Borland sam
sebe za certifikovanou autoritu nepovazoval :-)).

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

COM:OleVariant a Record

[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 11.4.2001 13:36:49

D5Ent,W2000,WinNT

Nevite nekdo, jak vytvorit a hlavne, jak
puzivat property COM objektu typu record.
Wizard sice vytvori packed record, ale uz nezaregistruje
tridu pro vytvoreni OleVariant. Vytvori sice GUID, ale
v importu TLB do Delphi uz tento GUID nikde neni.
Zatim to obchazime pres objekt, ale pro nektere
jednoduche akce se nam jevi vhodnejsi struktura.

Diky Slavek

ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)atlas(tec)cz

uz OT: Maly exe z Delphi - korekce uses

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.4.2001 13:39:47

> A navrhuji ukoncit tuto off-topicovou presterlku, uz se to tahne ctyri
> dny a stejne to nikam nevede. Myslim ze by mel zasahnout administrator
> :-)
>
> Mmch nepamatuje se nekdo kdo tu debatu zacal a na co se vlastne ptal?
>
Zacal jsem ji ja - stouranim okolo velikosti prazdneho programu v
Deplhi - coz se tu na samem zacatku te hromady OT skutecne
vyjasnilo zpusobem, jenz mi plne postacuje. :)))

David Lebeda


ListBox a Multiselect

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 11.4.2001 13:42:01

> P�edm�t: RE: ListBox a Multiselect
>
>
> Udelas to napr. takhle :
>
> for i := 0 to Pred(ListBox3.Items.Count) do
> if ListBox3.Selected[i] then
> ListBox3.Items.Delete(i);
>
> S pozdravem
>
> Milan Tomes

Ahoj,

tohle neni moc dobre, protoze pokud budes mit vybrane dve po sobe jdouci
polozky, tak to vymaze pouze tu prvni, druhou preskoci. Lepsi je to takhle
nejak (pisu to zpameti bez Delphi, takze to asi nepojde prelozit :-)):

i := 0;
while (i < ListBox1.Items.Count) and (ListBox1.SelCount > 0) do
begin
if ListBox1.Selected[i] then
begin
ListBox1.Items.Delete(i);
end
else
begin
inc(i);
end;
end;

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

ListBox a Multiselect

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 11.4.2001 13:46:09

Pravda - na to jsem zapomnel. Urcite to neni lepsi, ale je to NUTNOST !!! Jinak
to totiz zpusobi vyjimku AV.

Milan Tomes

A neni lepsi to udelat odzadu?
Jaro B.
>
> Udelas to napr. takhle :
>
> for i := 0 to Pred(ListBox3.Items.Count) do
> if ListBox3.Selected[i] then
> ListBox3.Items.Delete(i);
>
> S pozdravem
>
> Milan Tomes
> mailto:Milan.Tomes(zv)haida(tec)cz
>
>
> Zdravim
>
> Ako zistim, ktore polozky v listboxe su oznacene ked je
> Multiselect := True;
> potrebujem ich vymazat
> po jednom mi to ide:
>
> ListBox3.Items.Delete(ListBox3.ItemIndex);
>
> a ked mam oznacenych viac, tak mi vrati iba pri jednej
> polozke Selected = True;
>
> jozo
>
>

ListBox a Multiselect

[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 11.4.2001 13:58:51

Ahoj,
tohle snadno skonci s chybou list index out of range, neb pri delete se
meni count a podminka pro cyklus for se testuje jen na vstupu do cyklu.
Tak radsi takhle :

I := 0;
while I < listbox3.count do
if ListBox3.Selected[i] then ListBox3.Items.Delete(i)
else inc (i);

Vaclav Sazima

Milan Tome# wrote:
>
> Udelas to napr. takhle :
>
> for i := 0 to Pred(ListBox3.Items.Count) do
> if ListBox3.Selected[i] then
> ListBox3.Items.Delete(i);
>
> S pozdravem
>
> Milan Tomes
> mailto:Milan.Tomes(zv)haida(tec)cz
>
> Zdravim
>
> Ako zistim, ktore polozky v listboxe su oznacene ked je
> Multiselect := True;
> potrebujem ich vymazat
> po jednom mi to ide:
>
> ListBox3.Items.Delete(ListBox3.ItemIndex);
>
> a ked mam oznacenych viac, tak mi vrati iba pri jednej polozke Selected = True;
>
> jozo


DBGrid a titulek

[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 11.4.2001 13:59:49

Ahoj,

nevite nekdo jak zjistit, ze uzivatel udelal double-click na titulek okna ?

Standardne grid po double-clicku prejde na prvni zobrazovany radek.
Potrebuji rozlisit double-click na radku s udaji (=Editace) a na titulku
(=trideni).

Diky za kazde nasmerovani Pavel


uz OT: Maly exe z Delphi - korekce uses

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.4.2001 14:01:53

Puvodni zprava, kterou napsal Radek Janka dne 11 Apr 2001,:

> Ach ne, to ne, tak 486 uz je srot? Ale vzdyt jeste pred osmi lety kdyz nam
> na skolu privezli prvni tak jsme kolem ni chodili jako by to byl
> prinejmensim Cray.... :-))

:))) Jooo, to u znameho meli ve firme nejakeho Commodora XT-cko
s barevnym monitorem, na ktere museli zadat o povoleni k dovozu
(bylo na to embargo) a stalo je to asi 350 tisic... a to tehdy
350 tisic byly mnohem vetsi penize nez dnes :)))

> s 486kama. Je to jejich volba. A s tim zalohovanim mas pravdu. Kdo z nas
> zalohuje?

Ja zalohuju :) Ale ja jsem exot, ja ani nekradu software :)))

> A navrhuji ukoncit tuto off-topicovou presterlku, uz se to tahne ctyri dny a
> stejne to nikam nevede. Myslim ze by mel zasahnout administrator :-)

OK, zasahuju :)

> Mmch nepamatuje se nekdo kdo tu debatu zacal a na co se vlastne ptal?

To uz nikdo nevi...


S pozdravem
Petr Zahradnik, pocitacovy expert

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

The Bat!

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.4.2001 14:16:06

> V hlavnim okne Zobrazit/Zdroj zpr�vy RFC 822...

A to je podle Tebe zdroj zpravy? Podle me tedy ne. Tohle jsem samozrejme
nasel, ale zobrazujete to skutecne jen hlavni hlavicku zpravy (plus
dekodovany text zpravy). Nikoliv originalni zdrojovy text zpravy.

> Jinak The Bat! existuje i v cestine, vcetne ceskeho spell checkeru.
> A to uzivatelske rozhrani chce opravdu trochu zvyku. Ale zato ty
> moznosti ....

Zda se mi ale ponekud neodladeny. Za tu cca hodinu co jsem si s nim hral
jsem narazil na:
- zobrazovaci chyby
- nespravne fungujici import z MS OE 5.X (neimportovaly se zdaleka vsechny
zpravy), navic cestu k adresari s daty je nutno namysovat - nejde zadat
rucne (pres clipboard), coz bylo pomerne komicke, protoze na Win2000 uklada
MS OE data implicitne do adresare, ktere jsou hidden (a nejsou v Batove file
okne videt)
- uninstaller se zhroutil, protoze zrejme nenasel co si v registrech


D. Toman

Uvolnovani objektu v IDE

[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 11.4.2001 14:18:18

Ahoj,

mam stale problem se svoji komponentou. Je to spojeni TList, nekolika TPanel
THeader a dalsi.

Funguje v poradku, jak v aplikacich, tak pri designu, ale pokud mam v IDE
otevreno okno s touto komponentou, to pak zavru a snazim se bud o
odinstalovani nebo o prekompilaci, tak mi cele Delphi sleti na nejake Access
violation, kde v titulku toho MessageBoxu je "jmeno_promenne :
Ttyp_komponenty". Pokud pustim IDE a bez otvirani toho okna obsahujici
komponentu, pak je vse OK. Poradi nekdo co se presne deje s objekty
vzniklymi behem designu modu.

Dik za rady
Jan Krizek
- D5Prof Update 1, W2K -


Wokno - On_fokus

[*] Marcant <marcant(zv)sct.sk> - 11.4.2001 14:29:33

OnActivate

MarCaNT


> potrebuji natuknou. Pro prepinani mezi okny potrebuju zachytit udalost ze
> okno dostalo fokus. Nejak nemuzu najit ten spravny event. diky.
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896

VCL a instalace Windows Was OT: Maly exe z Delphi

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2001 14:34:37

From: "Hurricane" <hurricane(zv)quick(tec)cz>
> No, Comctrl32.dll neni zrovna ten nejlepsi priklad. Rekni mi, jak chces
> napsat pouzitelnou aplikaci bez pouzivani teto knihovny. Tenhle problem se
> resi tak, ze si stahnes od MS update, ktery pribalis do sve aplikace. Napr.

Ahoj,

presne, update COMCTL32 na spatne udrzovanych pocitacich je pomerne snadna,
navic VCL je navrzena pro pouziti touto (IE4) minimalni verzi. Nechapu proc to
delat vsechno slozite (pokud to ovsem neni cilem), kdyz je to tak jednoduche.

Petr Vones, amatersky programator

ListBox a Multiselect

[*] Marcant <marcant(zv)sct.sk> - 11.4.2001 14:40:18

Takyto kod mi funguje uplne korektne:

var
i: Integer;
begin
for i:= ListBox1.Items.Count-1 downto 0 do
if ListBox1.Selected[i] then
ListBox1.Items.Delete(i);
end;

MarCaNT
----- Original Message -----
From: Ing. Jozef Baranec
To: Konferencia Delphi 2
Sent: Wednesday, April 11, 2001 11:54 AM
Subject: ListBox a Multiselect


Zdravim

Ako zistim, ktore polozky v listboxe su oznacene ked je
Multiselect := True;
potrebujem ich vymazat
po jednom mi to ide:

ListBox3.Items.Delete(ListBox3.ItemIndex);

a ked mam oznacenych viac, tak mi vrati iba pri jednej polozke Selected = True;

jozo


uz OT: Maly exe z Delphi - korekce uses

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

From: "Erik Salaj" <winsoft(zv)napri.sk>
> Ano, a ak chce firma usetrit na pocitacoch, tak dopis sa da napisat aj
> perom.
> Po obsahovej stranke to bude rovnake, po grafickej - zalezi od sekretarky.
> V zaostalych krajinach, kde ludska praca nema takmer ziadnu hodnotu
> (v porovnani s cenou pocitaca), to aj moze byt velmi efektivne riesenie.
> Vo vyspelych krajinach, kde je ludska praca inac ohodnotena, a kde
> z jedneho platu si moze clovek kupit x-pocitacov, o takejto alternative
> nikto ani neuvazuje. Ja samozrejme, ze firma si kupi pocitace, pretoze

Tohle je myslim idealni shrnuti obsahu cele teto diskuze.

> >konsternovane hledet na monitor a zoufale volat o pomoc :-)), tedy tvrdit
> >temto lidem ze musi upgradovat harware, potom operacni system a nakonec
> >veskery aplikacni software, tedy investovat nekolik desitek tisic jen proto
> >aby jejich pocitac delal totez co delal predtim (tedy: psal, tiskl, vrcel
>
> Ked dva pocitace robia to iste, nie je to vzdy to iste ;-).

Tak nejak, ono to "totez co predtim" je prece jen o necem jinem nez na srotu s
386 a DOSem ;-) Narazka na nespolehivost pocitacu v puvodnim prispevku je sice
pravdiva, ovsem neni to ve velke vetsine vina techniky. Je opravdu tezke tady
najit firmu ktera umi postavit funkcni a spolehlivy pocitac, protoze tomu
narozdil od ruznych prodavacu baterii a zarovek "preskolenych" na pocitacove
odborniky rozumi, totez plati o instalaci systemu a pouceni uzivatelu.

Petr Vones, amatersky programator

Algoritmus pro zimni/letni cas

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

Zdravicko,

mam zakodovany soubor (obrazek), ma treba velikost 30 MB, jak ho mam
zobrazit aby mi nepretekla pamet? Potreboval bych ho cist po kouskach abych
ho zaroven mohl dekodovat a davat do TImage. Pouzival jsem Memory stream kam
jsem nacetl postupne cely dekodovany obrazek, a pak ho soupnul do TImage,
ale 30 MB je na nej moc....Nemam treba pouzit neco jineho nez TImage (musi
to umet BMP a JPG) a ja to zaridit aby se mi to cele veslo do pameti...JO
JESTE POZNAMKA - nesmim zapisovat na disk !!!!!!!

Radim Hol߲

email: holan(zv)oauh(tec)cz
radim.holan(zv)maringotka(tec)cz
www : holan.zde(tec)cz

prohledavani site

[*] <ondra.vosta(zv)centrum(tec)cz> - 11.4.2001 15:07:12

Potreboval bych poradit jak prohledavat sdilene adresare na siti.
(neco jako program NetFind).
Predem Dik

Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz


uz OT: Maly exe z Delphi - korekce uses

[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 11.4.2001 15:09:23

Ja jsem to z sirsiho kontextu pochopil tak ze se jedna o data ktera nabizi
ten zadavatel uzivatelum a proto je nechce dovolit menit (neco jako
napriklad firemni software na dimenzovani nejakych technologii: dodavatel
technologie poskytuje projektantum software, aby mohli tu jeho technologii
napocitat do sveho projektu ale pochopitelne chce mit zaruku ze to udelaji
podle spravnych dat.) Uzivatelska data pak jsou podle meho zvlast.

pro J.Benese: Co se tyce instalace na jednu disketu: asi je marne zkusit
zadavateli vykladat neco o CD disku jako instalacnim mediu, co?

> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:hlinka(zv)hlinka(tec)cz]
>
> > program vzdy na diskety dve !!! ) a druhym, aby veskera data a
> > tabulky, ktera by se normalne dala do nejakych externich souboru, se
> > ulozila primo do EXE (aby uzivatel, jako nepritel cislo jedna, nemohl
> > data nejak pozmenit a tim ovlivnit vypocty).
>
> He he, to je dobre. A jak resis pripadny update? Pokud si uzivatel
> natahne novou verzi, prijde tim o veskera data? Nebo je program
> tak dokonaly (~ je uplny vzhledem k ucelu, jaky ma plnit), ze neni
> co updatovat?
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000


Instalace IB pomoci Wise

[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 11.4.2001 15:53:11

Ahoj,
resite nekdo %SUBJ% ?
Nebo jinym instalacnim programem nez Installshield Express..
Zajimaji me moznosti konfigurovatelnosti instalace podle toho, jestli si
uzivatel zvoli "Serverovou" instalaci nebo klientskou..

S pozdravem
Ota Maly

PaPouch elektronika
http://www.papouch.com

TListBox a OnChange

[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 11.4.2001 16:22:21

Zdravim,
nevite nekdo, jestli se da nejak jednoduse implementovat udalost OnChange do
TListBoxu? Normalne tam neni, a kontrolovat mysi a klavesnicove udalosti se
mi moc nechce...
Mam na mysli nejakou udalost, ktera se vyvola, kdyz se zmeni vybrana
polozka.

Diky
Petr


Presmerovani vystupu

[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 11.4.2001 16:25:38

Ahoj.

Mam konzolovou aplikaci, rekneme ping.exe a potrbuju odchytit jeji vystup
(obdoba presmerovani >soubor) pokud ji spustim pomoci CreateProcess. Je mi
jedno jestli to presmeruje do souboru nebo nekam jinam, proste nevim kde
zacit. Poradite?

Ales


TListBox a OnChange

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.4.2001 16:27:53

ahoj
napr. http://www.micrel(tec)cz/delphi/tablist.zip

Jaro B.

> -----Original Message-----
> From: Da�a Petr [mailto:Petr.Dana(zv)pvt(tec)cz]
> Sent: Wednesday, April 11, 2001 4:22 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: TListBox a OnChange
>
>
> Zdravim,
> nevite nekdo, jestli se da nejak jednoduse implementovat
> udalost OnChange do
> TListBoxu? Normalne tam neni, a kontrolovat mysi a
> klavesnicove udalosti se
> mi moc nechce...
> Mam na mysli nejakou udalost, ktera se vyvola, kdyz se zmeni vybrana
> polozka.
>
> Diky
> Petr
>
>

uz OT: Maly exe z Delphi - korekce uses

[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 11.4.2001 16:58:47

> aspon vest to ucetnictvi. Predpokladam, ze je to podnikatel...
> Kdyz to neni podnikatel, pak ma deti, ktere chteji hrat
> hry, no a to bude pocitac MNOHEM MNOHEM DRAZSI, protoze hry
> jsou mnohem narocnejsi nez bezne programy od nas Delphaku...

A co mam rict pani, ktera mi rekne "Doma mam dobry pocitat, protoze se na
nem hraji hry a ty by nechodily, ale v praci mi musi stacit to, co mam,
protoze DOSove ucetnictvi mi tam bezi" ?

J. N�dhera

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

Instalace Resource Workshop

[*] "Fait Ji��, ml." <fait(zv)jakl(tec)cz> - 11.4.2001 17:16:03



> -----Original Message-----
> From: Petr Reichl [mailto:p.reichl(zv)gmc.net]
> Sent: Tuesday, April 10, 2001 2:33 PM
> To: ListServ - Delphi (el. adresa)
> Subject: Instalace Resource Workshop
>
>
> Zdravim vsechny,
>
> prave se snazim nainstalovat Resource Workshop, ktery jsem nasel na
> instalacnim CD Delphi5, ale moc se mi to nedari. Porad pise:
>
> --
> INSTBI40 caused a general Protection Fault in module BAMGR16.dll at
> 0004:0D70.
>
> Choose close. INSTBI40 will close.
> --

Nepises sice na cem to instalujes, ale ja jsem to nemohl na W2K taky
nainstalovat.
Resil jsem to tak ze jsem to nainstaloval na Windows95 pak zkopiroval na
W2K a kdyz to
pri spusteni rvalo o chybejicich knihovnach, tak jsem je postupne z tech
W95 (v System}
zkopiroval do Bin adresare WorkShopu.

Jiri Fait

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


COM:OleVariant a Record

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.4.2001 17:48:29

On 11 Apr 2001, at 13:36, Slavomir Skopalik wrote:

> Nevite nekdo, jak vytvorit a hlavne, jak
> puzivat property COM objektu typu record.
> Wizard sice vytvori packed record, ale uz nezaregistruje
> tridu pro vytvoreni OleVariant.

Na tento problem jsem narazil v D5.00, v D5.01 jsem to
neproveroval. Je to bota, takze to obchazim tak, ze mam typ
OleVariant, do ktereho nacpu nejaky stream, a na druhe strane ho
zase stejnym zpusobem vyctu.


S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


uz OT: Maly exe z Delphi - korekce uses

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.4.2001 17:48:29

On 11 Apr 2001, at 9:05, Jaroslav Nadhera wrote:

> plati (malo) lidi, nez aby si koupili nove vybaveni. A nebo si radsi
> koupi pozlacene kliky ke dverim (videl jsem firmu, kde meli nobl
> budovu, nobl vybavenou, ale 5 let stare pocitace a jehlickove
> tiskarny, prototoze pry na nich je tisk levnejsi a opan sef jine
> nekoupi).

Hm, a ma vubec smysl s takovym "zakaznikem" ztracet cas?


S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Presmerovani vystupu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2001 18:06:30

From: "Ales Radikovsky" <radik(zv)allstar(tec)cz>
> Mam konzolovou aplikaci, rekneme ping.exe a potrbuju odchytit jeji vystup
> (obdoba presmerovani >soubor) pokud ji spustim pomoci CreateProcess. Je mi
> jedno jestli to presmeruje do souboru nebo nekam jinam, proste nevim kde
> zacit. Poradite?

Ahoj,

pouzij funkci CreateDOSProcessRedirected z unitu JclMiscel:
http://delphi-jedi.org/Jedi:JCLDOWNLOADS

Petr Vones, amatersky programator


Instalace IB pomoci Wise

[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 11.4.2001 18:36:52

From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
> resite nekdo %SUBJ% ?
> Nebo jinym instalacnim programem nez Installshield Express..
> Zajimaji me moznosti konfigurovatelnosti instalace podle toho, jestli
> si uzivatel zvoli "Serverovou" instalaci nebo klientskou..
> Ota Maly

Leccos kolem instalace IB lze nalezt na

http://ibwise.delphihost.com/

Jiri Binder


uz OT: Maly exe z Delphi - korekce uses

[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 11.4.2001 18:43:04

> > A navrhuji ukoncit tuto off-topicovou presterlku, uz se to tahne
> > ctyri dny a stejne to nikam nevede.

A ani nemohlo, ovsem znalci zakonu profesora Parkinsona byli
jiste poteseni opetovnym potvrzenim jejich platnosti

Jiri Binder

uz OT: Maly exe z Delphi - korekce uses

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.4.2001 18:44:19

Puvodni zprava, kterou napsal Jaroslav Nadhera dne 11 Apr 2001,:

> A co mam rict pani, ktera mi rekne "Doma mam dobry pocitat, protoze se na
> nem hraji hry a ty by nechodily, ale v praci mi musi stacit to, co mam,
> protoze DOSove ucetnictvi mi tam bezi" ?

No at domu detem koupi jeste lepsi pocitac, ze jim hry
pujdou jeste lepe, a ten z domova at si da do prace :)


S pozdravem
Petr Zahradnik, pocitacovy expert

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

MENU

[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 11.4.2001 19:36:59

Ahoj lidi, nevite o nejake free komp. hlavniho menu ve stylu Windows XP?
Taky hledam sorter pro ListView, mam jenom pro StringGrid.

Jsem moc linej neco sam tvorit.

Michal

Mozna OT: ActiveX library a Unregister

[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 11.4.2001 20:23:05

Zdravim,

zkousim ted delat nejakou knihovnu pro MTS. Udelal jsem ji, zaregistroval,
pouzil, fungovala, vsechno v pohode. Ale kdyz do ni chci udelat nejaky
upravy, tak prestoze ji odregistruju (regsvr32 -u nazev.dll), soubor je
stale zamceny a nemuzu kompilovat (leda nekam jinam, ale to je pro ucely
ladeni trosku nepohodlny).

Vi nekdo jak z toho (ven) ?

Diky,

Milan

----------
Win2k Prof
IIS 5.0
D5

OT: The Bat!

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



11.4.2001 Dalibor Toman:
>> V hlavnim okne Zobrazit/Zdroj zpr�vy RFC 822...

> A to je podle Tebe zdroj zpravy? Podle me tedy ne. Tohle jsem samozrejme
> nasel, ale zobrazujete to skutecne jen hlavni hlavicku zpravy (plus
> dekodovany text zpravy). Nikoliv originalni zdrojovy text zpravy.

Asi to bude tim, ze me nic jineho nezajima. A abych si zobrazoval HTML
zdroj zpravy ...

> Zda se mi ale ponekud neodladeny. Za tu cca hodinu co jsem si s nim hral
> jsem narazil na:
> - zobrazovaci chyby

Zobrazovaci chyby jsou, protoze je v originalni verzi chybne udelano
kodovani ISO 8859-2. Pokud se s Batem budes chtit jeste nekdy zajimat,
podivej se spis na www.thebat.ipex(tec)cz Zde to mas skutecne spravne cesky.
A OE ma s cestinou problemy take.

> - nespravne fungujici import z MS OE 5.X (neimportovaly se zdaleka vsechny
> zpravy), navic cestu k adresari s daty je nutno namysovat - nejde zadat
> rucne (pres clipboard), coz bylo pomerne komicke, protoze na Win2000 uklada
> MS OE data implicitne do adresare, ktere jsou hidden (a nejsou v Batove file
> okne videt)

Me probehl import toho asi tisice zprav v pohode. A kolikrat v zivote
to z toho OE importujes ?

> - uninstaller se zhroutil, protoze zrejme nenasel co si v registrech

Tak to ti nepovim, protoze jsem necitil touhu jej odinstalovavat :-)
Zbavil jsem se OE a tim i vsech problemu s nim spojenych, namatkou
chybneho quotovani a spousty dalsich.
Navic mam jistotu, ze se mi nahodou nespusti, co nechci (viz posledni
bezpecnostni dira v html zpravach OE) a muzu si postu nakonfigurovat
podle svych predstav, o cemz se mi u OE mohlo tak akorat zdat.

> D. Toman

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

OT: Detekce internetu pomoci RAS: je to bezpecne?

[*] Jan Novak <megamax(zv)seznam(tec)cz> - 11.4.2001 22:40:07

Ahoj,
resim relativne jednoduchy problem, a sice jak detekovat, ze je PC ON-LINE.
Pouzil jsem k tomu tuhle (relativne znamou) fci:

--------------------------------------------------------------------------
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;

function InternetGetConnectedState(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall; external 'WININET.DLL';

function _IsConnectedToInternet: Boolean;
var
dwConnectionTypes: Integer;
begin
try
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState((zv)dwConnectionTypes, 0) then
Result := true
else
Result := false;
except
Result := false;
end;
end;

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

To sice funguje, ale stava se mi, ze z niceho nic spadne aplikace
TAPISRV.EXE (coz je podle me nejaky telefoni subsystem) a to se mi nelibi.
Nevite nekdo, v cem je chyba? Stava se to jen na W98. A nebo neresil jste uz
nekdo takovy problem jinak? Rad se necham inspirovat.

Predem Diky

Pavel Novak



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


Detekce internetu pomoci RAS: je to bezpecne?

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

From: "Jan Novak" <megamax(zv)seznam(tec)cz>
> Nevite nekdo, v cem je chyba? Stava se to jen na W98. A nebo neresil jste uz

Ahoj,

Ze se to stava jen na Win98 by me az tak neprekvapovalo. Predpokladam ze to
periodicky volas v nejakym timeru, jak casto ?

Petr Vones, amatersky programator


Dokument v BLOBu -> Word

[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 11.4.2001 23:10:22

Da se nejak primo (predpoklal bych napr. pomoci OLE)
naplnit MS Word obsahem, ktery je ulozen v BLOBu v databazi,
aniz bych tento obsah presunul do temporary souboru,
ktery bych nasledne otevrel ?
Potreboval bych i zmeny ulozit zpet do BLOBu v databazi.

Dik za radu, Filip.

UDF format a W2000

[*] Jaroslav Popluh�r <popluhar(zv)acc.sk> - 11.4.2001 23:52:14

Pomoc nemam, len podobne skusenosti:

Na Windows ME instalovana napalovacka TEAC, soft Nero Burn In ... InCD pre
UDF.
V jeho helpe sa pise:
UDF je nativne podporovane vo Win98, W2k. W95 potrebuju reader.

Vysledok:
WME - s driverom InCD all is OK.
W98 - na korektne (?:-) zapisanom disku vidim v roote CD readme.txt s
nasledovnym obsahom:
---
This disc contains a "UDF" file system and requires an operating system
that supports the ISO-13346 "UDF" file system specification.
---
W2k+SP1 - nejaky zmatok v adresarovej strukture, ktora sa vzdialene podoba
povodne zapisanym datam, ale je to k nicomu.

Takze, jediny zachytny bod, je ta ISO norma. Mna by zaujimalo stanovisko MS,
k podpore takehoto alebo ineho napalitelneho UDF v ich OS.
Ak bude nieco nove, ozvem sa, zatial palim / zalohujem po starom.

S pozdravom J. Popluhar

----- Original Message -----
From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
To: "Delphi konference 1" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 06, 2001 10:05 PM
Subject: OT: UDF format a W2000


> Zdravim a predkladam jeden problem. Mam vypalovacku Yamaha, k te byl
program
> WINonCD, verze 3.6. K tomu i Packet CD s formatem UDF (prace s CD jako
hard
> disk, pri pouziti CD-RW). Nemuzu W2000 prinutit, aby mi ten format cetl.
> nepomaha ani driver Adaptec, volne sireny, proste W2000 to neprectou.
Nevite
> jak na to?
>
> Petr Marik
> rtepema(zv)mbox.vol(tec)cz
>
>
>

uplne OT: Maly exe z Delphi - korekce uses

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

From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Aktualni ceny:
> 32 MB EDO RAM / 72 PIN 1438

Ano, muzealni kusy jsou vzdy drahe, jinak DIMM 128MB SDRAM PC133 vyjde na cca
1850Kc, takze v prepoctu na kapacitu pameti je to:

45Kc / 1MB u srotu
15Kc / 1MB u normalni pameti, nemluve o ponekud vetsi rychlosti.

Petr Vones, amatersky programator

uz OT: Maly exe z Delphi - korekce uses

[*] Hurricane <hurricane(zv)quick(tec)cz> - 12.4.2001 01:15:54

Zdravim

No, jenze jeste je tu skupina (5).

5: Uzivatel prijde ze skoly (dulezite) domu, zapne pocitac (486) protoze
potrebuje napsat spoustu skolnich praci : priblizne kazde 2 sekundy si
rekne, ze chce novy komp, ale v prasatku neni ani 50Kc.

Co s tim? Z pohledu uzivatele nic, z pohleddu vyvojare psat
optimalizovanejsi programy a ne 20MB silenosti.

I mezi domacimi uzivateli jsou experti na kompy (i ja se mezi ne radim,
neukamenujte me). Ne vsichni hraji dooma, quaka a podobne kraviny. Parani
maji vetsinou dost nadupane masiny, takze ty tenhle problem netrapi.

Hurricane
----- Original Message -----
vyborne prirovnani. Obvykle take pokud potrebuji neco nazorne vysvetlit
pouzivam jako priklad automobily, protoze tem rozumi kazdy i bezny
pocitacovy uzivatel. Takze tabulka prvni:

1. auto mne zivi, jezdim s nim denne pres trista kilometru: potrebuji
mercedes nebo jeste lepe porsche
2. auto pouzivam k beznemu pracovnimu jezdeni ale nejezdim kazdej den: to
porsche zrejme nepotrebuju, asi bude stacit ta oktavka
3. dtto.2, ale obcas v nem potrebuju odvezt dve palety zbozi: to asi
nenalozim, musim mit vetsi a silnejsi auto
4. mam auto rodinne ale jedu jenom obcas na chalupu a jednou za ctrnact dni
do supermarketu: mno, tady by ta stodvacitka asi sla jeste obhajit. I se
sjetyma gumama, ale pozor na policii.

Tabulka druha:

1. Jsem pocitacovy grafik, delam 3D vizualizace
nebo 1a. Jsem databazovy specialista spravuji databazi s desetitisici
zaznamu: jaky potrebuji pocitac?
2. Pocitac mi stoji na stole, bezi sice cely den ale jenom obcas na nem
napisu dopis, obcas fakturu nebo sklouznu po interneru: opravdu potrebuji
ten P4/1,5GHz?
3. dtto 2, ale navic potrebuji na disk ulozit velky archiv realizovanych
zakazek: mozna by to chtelo rozsirit pamet a disk, mozna ta jedna aplikace
bude trochu linejsi, ale nebudu kupovat novej stroj kvuli jedne aplikaci
kdyz ostatni jedou slusne.
4. pocitac zapnu dvakrat v tydnu vecer, jen sem tam nejaky ten dopis na
ourad nebo kouknout na "ten internet": no neni to ono, ja vim, ale mam tu
486ku hodit do srotu?

Uzivatele skupiny 4 budou jiste na sve sunky nadavat, ale pokud na novou
nemaji tak jim muzou slouzit. A je jasne ze kdyz mu odejde harddisk tak si
koupi novy stejne jako ty si koupis nove gumy. Ale gumy na tu stodvacitku
koupi asi v bazaru, do sve stare sunky si koupi "novy" harddisk taky z
bazaru, protoze to 20 gigo se jim pod DOSem nechytne. Ale treba jo... Ale
nebude si ten disk kupovat jenom proto ze ten jeho je tri roky stary a tedy
"out" stejne jako ty si nebudes kupovat cele nove auto jenom proto ze mas
sjete gumy.

Vyuzivanie pamete OS Win PlayStation

[*] Hurricane <hurricane(zv)quick(tec)cz> - 12.4.2001 01:25:59

Zdravim

To vubec neni pavda. Na bezne instalaci Linuxu bezi tak kolem 100 procesu
najednou. Nejsou nijak velike, ale jsou to samostatne programy, ktere se
staraji o zakladni veci. Mysoidni server, quota a rada dalsich serveru.

Na beznych WIN98SE je tech procesu tak 8, vic ne

Linux je proste stabilni system s funkcnim MultiThreadingem, to se ale o WIN
rict neda.

Hurricane
----- Original Message -----

Obecne ale plati,
> ze na Win strojich je spusteno vice aplikaci (zvysuje se moznost kolize a
> problemu), mene se zalohuji a spravuji je mensi odbornici a zatim je
> slozitejsi jejich sprava z dalky. Krome toho posledniho to ale neni chyba
> Win, ale lidi, kteri je spravuji.

uplne OT: Maly exe z Delphi - korekce uses

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.4.2001 02:04:54

Puvodni zprava, kterou napsal Hurricane dne 11 Apr 2001,:

> Tak to bohuzel.
>
> Aktualni ceny:
> 8 MB EDO RAM / 72 PIN 377
> 16 MB EDO RAM / 72 PIN 792
> 32 MB EDO RAM / 72 PIN 1438
> 8 MB RAM FASTPAGE / 72 PIN, i pro 486 450
> 16 MB RAM FASTPAGE / 72 PIN, i pro 486 1109
>
> Ta (BTW dokonale stabilni) 486 stoji 1500, takze v porovnani s pametmi.

Jo, porovnavas 486 z bazaru (protoze jaksi tu uz tezko nekde sezenes)
s cenami novych pameti, ktere jsou logicky drahe, protoze je nikdo
nechce. Kdyz jsme u toho, tak K6 na 500 MHz (nejlevnejsi procesor,
co mam v ceniku) nestoji o moc vic nez ta bazarova 486. A 64 MB DIMM
stoji asi tisicovku. 128 MB DIMM stoji necele dva tisice.


S pozdravem
Petr Zahradnik, pocitacovy expert

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

Wokno - On_fokus

[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 12.4.2001 06:49:31

To nefunguje

> OnActivate
>
> MarCaNT
>
>
> > potrebuji natuknou. Pro prepinani mezi okny potrebuju zachytit udalost
ze
> > okno dostalo fokus. Nejak nemuzu najit ten spravny event. diky.
> > e-mail : valentapat(zv)volny(tec)cz
> > ICQ: 54152896
>
>
>

AT nebo service

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 12.4.2001 06:56:16

Zdravim.
Poradte, mam napsat programek, ktery se jednou za hodinu zepta v databazi
kalendare (InterBase) na aktualni ukoly
a rozesle jejich kratkou textovou podobu emailem na mailove sms brany.

Pobezi to na serveru s domenou (W2000 server, AD).

1) Je lepsi napsat to jako service nebo jako samostatnou konzolovku
spoustenou AT prikazem.
2) Pokud bych to psal jako service, jak nejlepe zajistit to pravidelne
aktivovani (cca 1x za hod.).

Diky za Vase nazory.

Ludek


uz OT: Maly exe z Delphi - korekce uses

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.4.2001 07:11:23

Ano, je to presne tak.
Jaro B.

> -----Original Message-----
> From: Radek Janka [mailto:radek.janka(zv)ipsystem(tec)cz]
> Sent: Wednesday, April 11, 2001 3:09 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: uz OT: Maly exe z Delphi - korekce uses
>
>
> Ja jsem to z sirsiho kontextu pochopil tak ze se jedna o data
> ktera nabizi
> ten zadavatel uzivatelum a proto je nechce dovolit menit (neco jako
> napriklad firemni software na dimenzovani nejakych
> technologii: dodavatel
> technologie poskytuje projektantum software, aby mohli tu
> jeho technologii
> napocitat do sveho projektu ale pochopitelne chce mit zaruku
> ze to udelaji
> podle spravnych dat.) Uzivatelska data pak jsou podle meho zvlast.
>
> pro J.Benese: Co se tyce instalace na jednu disketu: asi je
> marne zkusit
> zadavateli vykladat neco o CD disku jako instalacnim mediu, co?
>
> > -----P�vodn� zpr�va-----
> > Od: Zbysek Hlinka [SMTP:hlinka(zv)hlinka(tec)cz]
> >
> > > program vzdy na diskety dve !!! ) a druhym, aby veskera data a
> > > tabulky, ktera by se normalne dala do nejakych externich
> souboru, se
> > > ulozila primo do EXE (aby uzivatel, jako nepritel cislo
> jedna, nemohl
> > > data nejak pozmenit a tim ovlivnit vypocty).
> >
> > He he, to je dobre. A jak resis pripadny update? Pokud si uzivatel
> > natahne novou verzi, prijde tim o veskera data? Nebo je program
> > tak dokonaly (~ je uplny vzhledem k ucelu, jaky ma plnit), ze neni
> > co updatovat?
> >
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
>
>
>

Zaokrouhleni realneho cisla - jeste jednou

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 12.4.2001 07:40:37

Zdravim vsechny.
Jelikoz muj dotaz nebyl zcela pochopen, upresnim ho. V databazi mam cislo,
ktere z ni prectu a vydelim ho napr. 60, cimz casto dostanu realne cislo,
ktere je napriklad 2,8633333. Toto cislo potrebuji zaokrouhlit nahoru a to
na jedno desetinne misto (jedno desetinne misto bude stacit). To znamena
potrebuji dostat neco takoveho: 2,9. Toto cislo prevedu f-ci FloatToStr na
string a nactu do editu. Nic vic s nim nedelam a zpatky do databaze ho
neukladam. Je to pouze kalkulacni vypocet.

Ptam se tedy zda nekdo nevi, jak tohoto vysledku dosahnout.

Diky vam vsem za napady. Paklize je to prilis jednoduche, pak si to rovnou
mazte a dal se tim nezabyvejte. Ja na to ale nemam ted cas prichazet a
dlouze zkouset a tak bych potreboval nekoho, kdo uz si to zkousel a vi jak
na to.

Diky
Filip


Wokno - On_fokus

[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 12.4.2001 07:50:27

Ahoj!

zkus OnActivate

Ing. Igor Vodi�ka
informa�n� syst�my

Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Valenta Patrik
> Sent: Wednesday, April 11, 2001 9:54 AM
> To: Delphi konference
> Subject: Wokno - On_fokus
>
>
> potrebuji natuknou. Pro prepinani mezi okny potrebuju
> zachytit udalost ze
> okno dostalo fokus. Nejak nemuzu najit ten spravny event. diky.
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
>
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001


Zaokrouhleni realneho cisla - jeste jednou

[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 12.4.2001 07:58:40

Na jedno desetinne cislo takto
Round(cislo*10)/10
Petr

uplne OT: Maly exe z Delphi - korekce uses

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

> Puvodni zprava, kterou napsal Hurricane dne 11 Apr 2001,:
>
> > Tak to bohuzel.
> >
> > Aktualni ceny:
> > 8 MB EDO RAM / 72 PIN 377
> > 16 MB EDO RAM / 72 PIN 792
> > 32 MB EDO RAM / 72 PIN 1438
> > 8 MB RAM FASTPAGE / 72 PIN, i pro 486 450
> > 16 MB RAM FASTPAGE / 72 PIN, i pro 486 1109
> >
> > Ta (BTW dokonale stabilni) 486 stoji 1500, takze v porovnani s
> > pametmi.
>

Tak se mi nejak vybavila leta, kdy jsem byl na prumce... Mel jsem
doma pocitac vzdy o dva procesory horsi nez momentalne bezny
stav (tj. v dobe 486 jsem mel 286) a jak jsem byl pysny. Oblitaval
jsem vsechny bazary, 100 Kc rozdilu za stejnou vec uz jsem
povazoval za nehorazne predrazeni a shanet hotovy pocitac - no to
ani nahodou (kdo by platil praci?) - pekne jen dily a poskladat sam.
Jenze pak jsem zacal pracovat a domaci pocitac mi prestaval
vyhovovat:
- protoze to, co v praci odsejpalo, se doma silene vleklo
- protoze zmizela skola coby zdroj poznatku. Chtel-li jsem
neco vedet o soucasnych pocitacich (a soucasnem operacnim
systemu), nebylo vyhnuti, nez si to poridit i domu.
Kdyby mi dnes nekdo nabidl domu zcela zdarma nejaky
pocitac "z doby kamenne", rozhodne bych to odmitl. Ovsem na
skole - kde by studak vzal tolik penez, aby si mohl dovolit nejaky
"soucasny stroj"? :)). Plne Hurricana chapu, i kdyz dnes uz mam
samozrejme jiny pohled na vec.

David Lebeda


Zaokrouhleni realneho cisla - jeste jednou

[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 12.4.2001 08:06:54

Ale pri techto postupech pozor na velka cisla, pri nasobeni 10
muze dojit k preteceni.

Karel

> -----P�vodn� zpr�va-----
> Od: Petr Kejval [mailto:petr.kejval(zv)worldonline(tec)cz]
> Odesl�no: 12. dubna 2001 7:59
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Zaokrouhleni realneho cisla - jeste jednou
>
>
> Na jedno desetinne cislo takto
> Round(cislo*10)/10
> Petr
>
>
>

AT nebo service

[*] voltrr1.epr(zv)mail.cez(tec)cz - 12.4.2001 07:16:06



> 2) Pokud bych to psal jako service, jak nejlepe zajistit to pravidelne
> aktivovani (cca 1x za hod.).

Jednoznacne service.

Pro aktivaci bych pouzil WaitForSingleObject - bude se cekat na
nejaky stop event sluzby (zalezi na tom jakej toolkit pouzijes) a
v pripade ze to vypadne na timeout tak se kouknes kolik je
hodin a bud nic neudelas nebo udelas to co chces

Radek

Zaokrouhleni realneho cisla - jeste jednou

[*] RNDr. Milan Vo��ek <vorisek(zv)igtt(tec)cz> - 12.4.2001 08:16:24

> ktere je napriklad 2,8633333. Toto cislo potrebuji zaokrouhlit nahoru a to
> na jedno desetinne misto (jedno desetinne misto bude stacit). To znamena
> potrebuji dostat neco takoveho: 2,9. Toto cislo prevedu f-ci FloatToStr na
> string a nactu do editu. Nic vic s nim nedelam a zpatky do databaze ho
> neukladam. Je to pouze kalkulacni vypocet.

na to je funkce
edit1. text:=FloatToStrF(cislo,ffFixed,4,1)

M.Vorisek


Mozna OT: ActiveX library a Unregister

[*] Petr Slaby <slaby(zv)bivoj.it.cas(tec)cz> - 12.4.2001 08:56:22

Ahoj,

Unregister delat nemusis, ale musis vzdy restartovat WebServer (jestlize
bezi lokalne), jinak dll zustane v pameti serveru a nebudes v ni moct delat
jakekoli upravy.....

Petr


----- Original Message -----
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
To: "'Konference DELPHI'" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 11, 2001 8:23 PM
Subject: Mozna OT: ActiveX library a Unregister


> Zdravim,
>
> zkousim ted delat nejakou knihovnu pro MTS. Udelal jsem ji, zaregistroval,
> pouzil, fungovala, vsechno v pohode. Ale kdyz do ni chci udelat nejaky
> upravy, tak prestoze ji odregistruju (regsvr32 -u nazev.dll), soubor je
> stale zamceny a nemuzu kompilovat (leda nekam jinam, ale to je pro ucely
> ladeni trosku nepohodlny).
>
> Vi nekdo jak z toho (ven) ?
>
> Diky,
>
> Milan
>
> ----------
> Win2k Prof
> IIS 5.0
> D5
>
>
>

AT nebo service

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 12.4.2001 09:05:08


Nazdar,

voltrr1.epr(zv)mail.cez(tec)cz wrote:
>
> > 2) Pokud bych to psal jako service, jak nejlepe zajistit to pravidelne
> > aktivovani (cca 1x za hod.).
>
> Jednoznacne service.

To teda nevim proc. Podle me udela Scheduler ve Windows NT/2K stejnou
nebo lepsi sluzbu. Stejne to bezi jako sluzba ale cloveka
to odstini od takovych veci, jako je osetreni sychronizacnich
zalezitosti atp. (doufam teda ze se nebavime o tom hruzostrasnem
balastu, ktery Borland velkolepe nazyva Service Application).

> Pro aktivaci bych pouzil WaitForSingleObject - bude se cekat na
> nejaky stop event sluzby (zalezi na tom jakej toolkit pouzijes) a
> v pripade ze to vypadne na timeout tak se kouknes kolik je
> hodin a bud nic neudelas nebo udelas to co chces

Kdyz uz, tak bych pouzil Waitable Timer (CreateWaitableTimer,
SetWaitableTimer), na ten se da cekat celkem pohodlne.
Navic se to da zkombinovat s handlem nejakeho stop eventu
sluzby (WaitForMultipleObjectsEx).

S pozdravem,

Ondrej Krajicek

--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic et {ics,fi}.muni(tec)cz
Omnia ad maiorem Informaticae gloriam.
-->>> The Nexus Framework <<<-- sourceforge.net/projects/nexusproject
Of course we can, moreover we must, it is our holiest duty.
---------------------------------------------------------------------


Detekce internetu pomoci RAS: je to bezpecne?

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 09:14:24

> From: "Jan Novak" <megamax(zv)seznam(tec)cz>
> > Nevite nekdo, v cem je chyba? Stava se to jen na W98. A nebo neresil
jste uz
>
> Ahoj,
>
> Ze se to stava jen na Win98 by me az tak neprekvapovalo. Predpokladam ze
to
> periodicky volas v nejakym timeru, jak casto ?
>
> Petr Vones, amatersky programator

Z neoverenych zdroju jsem take ziskal inormace, ze nektere RAS funkce
(enumerace aktivnich spojeni napriklad ) crashnou, pokud se volaji prilis
casto. Tusim, ze se rikalo pokud se volaji cca 1x za sekundu ci dve chova se
to mnohem lepe.
Sam v jedne aplikaci RAS podobnym zpusobem hojne pouzivam a mam od nekterych
uzivatelu chybove reporty, ktere jednoznacne rikaji ze nejaka funkce RASu
(at RASEnumConnection nebo dokonce i RASDial) padla na nejakou vyjimku -
zapis/cteni ze zakazane oblasti pameti. Pritom je temer jiste (uplna jistota
neni nikdy, ze:-( ) muj program neposila zadne parametry spatne ci spatne
predvyplnene struktury (ladici vypisy to dokazuji). Zadne rozumne vysvetleni
(krome toho, ze je mozne , ze RAS funkce byly volany prilis casto nebo v
nevhodnou dobu ??) nemam.

Pokud bys mel (Petre Vonesi) nejake konkretnejsi informace o tomto problemu
nebo vlastni zkusenosti bylo by to fajn.

D. Toman

Graf

[*] cis <cis(zv)atlas(tec)cz> - 12.4.2001 09:24:18

Zdar

jaky je podle vasich zkusenosti nejlepsi komponenta na grafy?
dik
alda

Zaokrouhleni realneho cisla - jeste jednou

[*] Miroslav Slav�k <slavik(zv)ticketpro(tec)cz> - 12.4.2001 09:44:27

>Jelikoz muj dotaz nebyl zcela pochopen, upresnim ho. V databazi mam cislo,
>ktere z ni prectu a vydelim ho napr. 60, cimz casto dostanu realne cislo,
>ktere je napriklad 2,8633333. Toto cislo potrebuji zaokrouhlit nahoru a to
>na jedno desetinne misto (jedno desetinne misto bude stacit). To znamena
>potrebuji dostat neco takoveho: 2,9. Toto cislo prevedu f-ci FloatToStr na
>string a nactu do editu. Nic vic s nim nedelam a zpatky do databaze ho
>neukladam. Je to pouze kalkulacni vypocet.

Result:=Ceil(X*10)/10; //Plati pro zaokrouhleni na jedno desetine misto.

Mira Slavik


AT nebo service

[*] voltrr1.epr(zv)mail.cez(tec)cz - 12.4.2001 09:19:51



> > Jednoznacne service.
> To teda nevim proc. Podle me udela Scheduler ve Windows NT/2K stejnou
> nebo lepsi sluzbu. Stejne to bezi jako sluzba ale cloveka
> to odstini od takovych veci, jako je osetreni sychronizacnich

Vychazim z toho ze jako programator mam radsi plnou kontrolu nad chodem
aplikace coz (podle mne) v pripade spousteni pres scheduler nemam. No a
navic jsem uz videl stroje na kterych nebyl scheduler spusten atd. Proste se
priznam ze veci jako SrvAny uplne a At castecne povazuji za nedobre nastroje.

Nemluvim o spousteni skripu atd.. pres At, to do aplikace davat nebudu, ale
kdyz se rozhoduji pri tvorbe aplikace tak jednoznacne je lepsi naprogramovat
to jako service a podle toho to i optimalizovat.

Ale je to jen nazor a nema cenu se tady poustet do nejake flame-war ,pak stejne
zalezi na spravci toho stroje. Nekoho nastve sluzba, jineho zas at.

> Kdyz uz, tak bych pouzil Waitable Timer (CreateWaitableTimer,
Tak ten neznam a nepouzivam ,ale kdyz jsem kouknul do helpu
tak tam pisou ze je pouze pro NT. Coz by mohlo pro lidi kteri ladi
sve aplikace na W9x predstavovat drobny problem (nastesti
mezi ne nepatrim ale myslim ze je dobre se o tom zminit)


Radek


Graf

[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 12.4.2001 10:21:37

Mne se osvedcila TSimpleGraph
http://www.iae.nsk.su/~lab12/pod

Ale zalezi na co to potrebujete.
J.M.

> jaky je podle vasich zkusenosti nejlepsi komponenta na grafy?
> dik
> alda

Datum

[*] prajz.rumcajs(zv)quick(tec)cz - 12.4.2001 10:23:26

Objevial se mi jedna zvlastni chyba - je-li to chyba:
Mam vstupni pole, ktere porovnavam s datumovou polozkou. Kdyz zadam

s: string;
if StrToDate(s) = DateTimePicker3.Date then ....

a v promene 's' je shodne datum, tak stejne to nic nedela, respektive tvari
se, ze to neni rovno, ale pritom je! Kdyz vymenim rovna se za vetsi ci
mensi, tak to funguje.
Chapete to? Ja ne .... Prosim o pomoc ....

Rumcajs


Datum

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.4.2001 10:26:48

Zrejme porovnavas realna FP cisla.
Jaro B.

> -----Original Message-----
> From: prajz.rumcajs(zv)quick(tec)cz [mailto:prajz.rumcajs(zv)quick(tec)cz]
> Sent: Thursday, April 12, 2001 10:23 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Datum
>
>
> Objevial se mi jedna zvlastni chyba - je-li to chyba:
> Mam vstupni pole, ktere porovnavam s datumovou polozkou. Kdyz zadam
>
> s: string;
> if StrToDate(s) = DateTimePicker3.Date then ....
>
> a v promene 's' je shodne datum, tak stejne to nic nedela,
> respektive tvari
> se, ze to neni rovno, ale pritom je! Kdyz vymenim rovna se za
> vetsi ci
> mensi, tak to funguje.
> Chapete to? Ja ne .... Prosim o pomoc ....
>
> Rumcajs
>
>

odchytenie v�nimky a logovanie neobsluzenych vynim

[*] MUDr. Alena Bal�ov� - 12.4.2001 10:30:07

Zdravim vas, mam takyto problem, nasiel som takyto kus kodu vraj to ma
logovat neobsluzene vynimky, ale ono to nechce fungovat, nevedel by mi
niekto pomoct ako na to. Potreboval by som nejaku funkciu, ktora loguje uz
spominane neobsluzene vynimky. Za radu dik

var
LogFileName: string = 'c:\log.txt';
ExceptProc : procedure;

procedure LogExceptProc(ExceptObject: TObject; ErrorAddr: Pointer);
const
Size = 1024;
resourcestring
Title = ' Internal error. Please, contact the technical support.';
var
Buffer : PChar[0..Size - 1];
F: TextFile;
begin
ExceptionErrorMessage(ExceptObject, ErrorAddr, Buffer, Size);

AssignFile(F, LogFileName);
if FileExists(LogFileName) then Append(F)
else Rewrite(F);
WriteLn(F, Buffer);
CloseFile(F);

MessageBox(0, Buffer, Title, MB_IconStop);
end;

// Somewhere in code
ExceptProc := (zv)LogExceptProc;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001


Graf

[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 12.4.2001 10:30:04

> jaky je podle vasich zkusenosti nejlepsi komponenta na grafy?

TChart me plne uspokojuje.

Josef Cerny

Datum

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.4.2001 10:34:00

> s: string;
> if StrToDate(s) = DateTimePicker3.Date then ....

DateTimePicker3.Date neni jen datum, jak by z nazvu vyplyvalo,
ale obsahuje i cas. Melo by pomoci Int(DateTimePicker3.Date).

David

> a v promene 's' je shodne datum, tak stejne to nic nedela, respektive
> tvari se, ze to neni rovno, ale pritom je! Kdyz vymenim rovna se za
> vetsi ci mensi, tak to funguje. Chapete to? Ja ne .... Prosim o pomoc


uplne OT: Maly exe z Delphi - korekce uses

[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 12.4.2001 10:44:22

Ahoj
### Petr Vones napsal dne 12 Apr 01, v 0:53 :
> From: "Hurricane" <hurricane(zv)quick(tec)cz>
> > Aktualni ceny:
> > 32 MB EDO RAM / 72 PIN 1438
>
> Ano, muzealni kusy jsou vzdy drahe, jinak DIMM 128MB SDRAM PC133 vyjde na
> cca 1850Kc, takze v prepoctu na kapacitu pameti je to:
>
> 45Kc / 1MB u srotu
> 15Kc / 1MB u normalni pameti, nemluve o ponekud vetsi rychlosti.
>
Nejde o tu cenu pameti.
Daleko vetsi problem je v tom, ze do te stare desky uz
proste nesezente SIMM, ktery by v ni opravdu FUNGOVAL.
Novejsi SIMMy ve starsich MB proste vetsinou nejdou,
a situace se opakovala i v pripade nekterych MB pro
Pentium 1 a DIMMu, znam hodne konkretnich pripadu.
Pak majiteli skutecne nezbyde, nez celou desku MB
vyhodit i s CPU a stavajicimi pametmi (nekdy i ISA
deskami, ktere tam ma :-) a koupit nove (8-10000?),
nebo se s tim smirit.
Bohuzel se s tim rada z nich radeji smiri :-(
A obdobne to bude u tech, co si poridili _perspektivni_
desky pro AMD Slot-A, mozna brzy i Intel Slot-1 (redukce
jsou-zatim), etc.

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


Zaokrouhleni realneho cisla - jeste jednou

[*] Petr Vesely <Petr.Vesely(zv)upce(tec)cz> - 12.4.2001 10:55:37

Vzhledem k tomu, ze puvodni dotaz znel na zaokrouhleni
na jedno desetinne misto NAHORU,
proto nebude fungovat

>Na jedno desetinne cislo takto
>Round(cislo*10)/10

Ani jednoduche pouziti FloatToStrF(Cislo,ffFixed,4,1) nefunguje.

Spravne reseni je bud pouziti funkce ceil, jak uz tady kdosi psal,
nebo
Round(Cislo*10+0.5)/10 // pokud to ma byt na jedno desetinne mosto
popripde primo prevod na retezec
FloatToStrF(Round(Cislo*10+0.5)/10,ffFixed,10,1)

Petr Vesely


Problem WinNT, TeeChart, IEEE 488...

[*] Infra Red <nezadal(zv)volny(tec)cz> - 12.4.2001 11:24:57

Dobry den,
mam nasledujici problem:
pomoci sbernice HP-IB (IEEE std. 488) ziskavam data do pocitace (HP Vectra
VE, 64MB RAM, WINT SP. 5) z HP LF Impedance Analyzer 4192A. Ziskana data
vykresluji do 2 grafu - komponenta TeeChart Pro 4.02 (Delphi 5
Proffesional). Nasleduje kousek kodu, ktery zpusobuje chybu:

{Add Datapiont To Graph 1}
If Error1 = False then begin
If StepInc = False then begin
Form2.Series1.AddXY(Log10(StartFreq), DataArA[DataCount-1], '',
clred);
end
Else
Form2.Series1.AddXY(StartFreq, DataArA[DataCount -1], '', clred);
end;
{Add Datapiont To Graph 2}
If Error2 = False then begin
If StepInc = False then
Form3.Series1.AddXY(Log10(StartFreq), DataArB[DataCount-1], '',
clred)
Else
Form3.Series1.AddXY(StartFreq, DataArB[DataCount -1], '', clred)
end;
If CloseMeas = True then
Break;
Application.ProcessMessages;

kde StartFreq je Real a DatArA a DataArB jsou Array 0..999 of Real, obsahuji
data prectena
ze sbernice (namerena data). Cely tento kod se vykonava v cyklu
Repeat..Until, kde se zapisuji parametry na merici pristroj, ceka se na
ustaleni po zapsani novych parametru (Sleep) a ctou se namerene hodnoty. A
ted k chybe: Pokud jsme merili pevne vzorky keramiky,
vse bylo OK, nyni merime roztoky, takze se trochu pozmenila konfigurace
mericiho nastavce a
pri druhem pruchodu cyklem zpusobi pridani dat do 2. grafu chybu
EInvalidPointer Operation. K chybe nedojde, pokud odstranim
Application.ProcessMessages (potrebuji aby byly funkcni ovladaci prvky
programu) nebo pokud odstranim zminovane pridani dat do 2. grafu (AddXY..).
Nepokousim se logaritmovat zaporne hodnoty, presunuti
Application.Process...na jine misto cyklu take nepomaha. Namerena data maji
radove stejne hodnoty jako pri mereni keramiky, kde se chyba nevyskytovala.
Pozadovane hodnoty v okamziku zapsani do grafu v DataArB skutecne jsou.
Myslite, ze, je chyba spise v TeeChart Pro nebo v Timmingu NTycek? Nesetkal
se nekdo s podobnym problem? Nenapada nekoho nejake reseni?
Diky, Martin Nezadal
Fakulta Chemicka
VUT Brno


AT nebo service

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 12:13:44


>
> Ale je to jen nazor a nema cenu se tady poustet do nejake flame-war ,pak
stejne
> zalezi na spravci toho stroje. Nekoho nastve sluzba, jineho zas at.
>
> > Kdyz uz, tak bych pouzil Waitable Timer (CreateWaitableTimer,
> Tak ten neznam a nepouzivam ,ale kdyz jsem kouknul do helpu
> tak tam pisou ze je pouze pro NT. Coz by mohlo pro lidi kteri ladi
> sve aplikace na W9x predstavovat drobny problem (nastesti
> mezi ne nepatrim ale myslim ze je dobre se o tom zminit)
>

BTW: a services snad funguji na Win9x? (ted me nechytejte za slovo, mam na
mysli skutecne services)

D. Toman

Graf

[*] cis <cis(zv)atlas(tec)cz> - 12.4.2001 12:24:00

Dik
potretreboval bych takovy prostredek, ktery je mozne pripojit na db.
Umoznuje 3d, lupu, nataceni, kliknu nekam a odecte mi to hodnoty, treba
prekryvat vic grafu pres sebe atd...
Samozrejme nemusi byt free.

alda
----- Original Message -----
From: Josef Madlik <madlik(zv)jsp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 12, 2001 10:21 AM
Subject: Re: Graf


> Mne se osvedcila TSimpleGraph
> http://www.iae.nsk.su/~lab12/pod
>
> Ale zalezi na co to potrebujete.
> J.M.
>
> > jaky je podle vasich zkusenosti nejlepsi komponenta na grafy?
> > dik
> > alda
>
>

mailovy program

[*] Pavel Kupka <pavel.kupka(zv)atlas(tec)cz> - 12.4.2001 13:16:39

Ahoj!
Shanim naprosto zakladni mailovaci program se zdrojakama, potreboval bych si ho upravit, ale nechce se mi ho psat od zacatku, kdyz uz to nekdo jiste delal, vite o necem?
Diky
Pavel Kupka


zase ty streamy a obrazky

[*] Radim.Holan <radim.holan(zv)seznam(tec)cz> - 12.4.2001 13:19:11

Zdravicko,

mam zakodovany soubor (obrazek), ma treba velikost 30 MB, jak ho mam
zobrazit aby mi nepretekla pamet? Potreboval bych ho cist po kouskach abych
ho zaroven mohl dekodovat a davat do TImage. Pouzival jsem Memory stream kam
jsem nacetl postupne cely dekodovany obrazek, a pak ho soupnul do TImage,
ale 30 MB je na nej moc....Nemam treba pouzit neco jineho nez TImage (musi
to umet BMP a JPG) a ja to zaridit aby se mi to cele veslo do pameti...JO
JESTE POZNAMKA - nesmim zapisovat na disk !!!!!!!

Radim Hol߲

email: holan(zv)oauh(tec)cz
radim.holan(zv)maringotka(tec)cz
www : holan.zde(tec)cz

FileRead

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.4.2001 14:00:45


iFileHandle := FileOpen(Value, fmOpenRead);
if iFileHandle>0 then
try
b := PChar(AllocMem(234));
FileSeek(iFileHandle, 6, 0);
// tady je hodnota iFileHandle 124 (proste OK)
iBytesRead:=FileRead(iFileHandle, b, 233);
// tady se to zmrsi na nejaky zaporny numero
.......
proc, nevite nekdo?
se z toho docela vedle.
delam to presne podle prikladu a nejde a nejde.
iFileHandle se vzdy pri zavolani fce FileRead zmrsi :(

dekuji PeC(zv)

CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

FileRead

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 14:06:29

>
> iFileHandle := FileOpen(Value, fmOpenRead);
> if iFileHandle>0 then
> try
> b := PChar(AllocMem(234));
> FileSeek(iFileHandle, 6, 0);
> // tady je hodnota iFileHandle 124 (proste OK)
> iBytesRead:=FileRead(iFileHandle, b, 233);
> // tady se to zmrsi na nejaky zaporny numero

rekl bych ze prepisujes primo pamet urcenou pro promennou B nikoliv buffer
na ktery tato promenna ukazuje. Tim si prepises i promenne, ktere jsou za B
a tak se zmeni i iFileHandle, ktery je pravdepodobne deklarovan v blizkosti
promenne B

D. Toman

FileRead

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

From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> proc, nevite nekdo?
> se z toho docela vedle.
> delam to presne podle prikladu a nejde a nejde.
> iFileHandle se vzdy pri zavolani fce FileRead zmrsi :(

Ahoj,

ta ukazka kodu me prijde ponekud neprehledna, co treba takto:

procedure TForm1.Button2Click(Sender: TObject);
var
FS: TFileStream;
Buffer: array[0..233] of Char;
begin
FS := TFileStream.Create('blabla', fmOpenRead or fmShareDenyWrite);
try
FS.Seek(6, soFromBeginning);
FS.ReadBuffer(Buffer, SizeOf(Buffer));

finally
FS.Free;
end;
end;

Petr Vones, amatersky programator


mailovy program

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

From: "Pavel Kupka" <pavel.kupka(zv)atlas(tec)cz>
> Shanim naprosto zakladni mailovaci program se zdrojakama, potreboval bych si
> ho upravit, ale nechce se mi ho psat od zacatku, kdyz uz to nekdo jiste
> delal, vite o necem?

Ahoj,

napriklad Indy (http://www.nevrona.com/Indy) ma v prikladech i MailClient.

Petr Vones, amatersky programator


Detekce internetu pomoci RAS: je to bezpecne?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 14:24:05

From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Z neoverenych zdroju jsem take ziskal inormace, ze nektere RAS funkce
> (enumerace aktivnich spojeni napriklad ) crashnou, pokud se volaji prilis
> casto. Tusim, ze se rikalo pokud se volaji cca 1x za sekundu ci dve chova se

Ahoj,

tohle jsem uz nekde take cetl, ovsem termin 'prilis casto' je opravdu presna
specifikace ;-)

> Sam v jedne aplikaci RAS podobnym zpusobem hojne pouzivam a mam od nekterych
> uzivatelu chybove reporty, ktere jednoznacne rikaji ze nejaka funkce RASu
> (at RASEnumConnection nebo dokonce i RASDial) padla na nejakou vyjimku -

A je z toho mozne vysledovat zdali se to tyka nejake konkretni verze Windows ?
Samozrejme i z vlastni zkusenosti vim, jak tezke je vydolovat z lidi nejakou
informaci pokud se chyba projevuje nahodne ci jen na specificke konfiguraci (a
to se netyka jen uzivatelu ;-)

Pokud ti jde jen o volani RASEnumConnection, tak by to slo mozna obejit
monitorovanim RAS operaci.

Petr Vones, amatersky programator


FileRead

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 14:29:32

> dik, to me nakonec taky napadlo, ale nevidim chybu.
> FileRead se funkce ze SysUtils a mapuje se primo
> ReadFile z Kernel32.dll. pokud zavolam
> primo api ReadFile, tak to udela totez. tak ja nevim.
>

tohle nepomuze?
iBytesRead:=FileRead(iFileHandle, pointer(b)^, 233);

D. Toman

zoznam eventov

[*] Tono Kukura <akukura(zv)microstep-hdo.sk> - 12.4.2001 14:30:17

Ako by sa dalo zistit ake eventy maju jednotlive komponeny, a ktore z nich
su assigned?

Tono


FileRead

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.4.2001 14:36:09

> > iFileHandle := FileOpen(Value, fmOpenRead);
> > if iFileHandle>0 then
> > try
> > b := PChar(AllocMem(234));
> > FileSeek(iFileHandle, 6, 0);
> > // tady je hodnota iFileHandle 124 (proste OK)
> > iBytesRead:=FileRead(iFileHandle, b, 233);
> > // tady se to zmrsi na nejaky zaporny numero
>
> rekl bych ze prepisujes primo pamet urcenou pro promennou B
> nikoliv buffer na ktery tato promenna ukazuje.
> Tim si prepises i promenne, ktere jsou za B a tak se
> zmeni i iFileHandle, ktery je pravdepodobne deklarovan v
> blizkosti promenne B
> D. Toman

dik, to me nakonec taky napadlo, ale nevidim chybu.
FileRead se funkce ze SysUtils a mapuje se primo
ReadFile z Kernel32.dll. pokud zavolam
primo api ReadFile, tak to udela totez. tak ja nevim.

mam D5P upd1, na W2000 sp1

dekuji PeC(zv)

CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Quick Report3 a tiskarny HP

[*] Str�n�k Franti�ek - 12.4.2001 14:50:27

Pratele,
nemate nekdo zkusenosti s QuickReport3 a tiskarnami typu HP1100,
HP550 apod.
Uzivatele si stezuji, ze na techto tiskarn�ch pri pouziti QR3 nejdou
sestavy vytisknout (b�l� pruhy, poloviny str�nek apod.)
Nejak tak tusim, ze to muze byt ovladacema techto tiskaren.
Prosim o pomoc , radu apod.
Diky

Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ


BUG Compiler or My?

[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 12.4.2001 15:02:57

Dnes se mi "podarilo" sestrojit podobnou konstrukci v programu jako je
priklad nize. Vysledek mne prekvapil (asi nemel :) ).

-1 je castovana na byte hodntou 255


procedure TForm1.Button1Click(Sender: TObject);
var
i, j: byte;
k : integer;
begin
j := 0; k := 0;

for i := 0 to j - 1 do
k := k + 1;

ShowMessage(IntToStr(k)); //256
end; Pazout


Quick Report3 a tiskarny HP

[*] CERMAK <CERMAK(zv)procom(tec)cz> - 12.4.2001 15:02:49

Ahoj

Mam takove tuseni, ze QuickReport mel vzdycky problemy s tiskarnama od HP.
Zkus novejsi ovladace z webu vyrobce, nebo ovladac kompatibilni tiskarny. V
nekterych pripadech, kdyz se mi nepodarilo dotiskovat okraje, jsem do
programu vlozil funkci na zmenu okraju sestavy a jeji ulozeni do souboru. Jaromir Cermak

-----Original Message-----
From: Str�n�k Franti#ek [mailto:FStranik(zv)cpoj(tec)cz]
Sent: Thursday, April 12, 2001 2:50 PM
To: Delphi konference
Subject: Quick Report3 a tiskarny HP


Pratele,
nemate nekdo zkusenosti s QuickReport3 a tiskarnami typu HP1100,
HP550 apod.
Uzivatele si stezuji, ze na techto tiskarn�ch pri pouziti QR3 nejdou
sestavy vytisknout (b�l� pruhy, poloviny str�nek apod.)
Nejak tak tusim, ze to muze byt ovladacema techto tiskaren.
Prosim o pomoc , radu apod.
Diky

Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001


odchytenie neobsluzenej vynimky a jej zapis do sub

[*] MUDr. Alena Bal�ov� - 12.4.2001 15:09:17

Zdravim vas, mam takyto problem, nasiel som takyto kus kodu vraj to ma
logovat neobsluzene vynimky, ale ono to nechce fungovat, nevedel by mi
niekto pomoct ako na to. Potreboval by som nejaku funkciu, ktora loguje uz
spominane neobsluzene vynimky. Za radu dik

var
LogFileName: string = 'c:\log.txt';
ExceptProc : procedure;

procedure LogExceptProc(ExceptObject: TObject; ErrorAddr: Pointer);
const
Size = 1024;
resourcestring
Title = ' Internal error. Please, contact the technical support.';
var
Buffer : PChar[0..Size - 1];
F: TextFile;
begin
ExceptionErrorMessage(ExceptObject, ErrorAddr, Buffer, Size);

AssignFile(F, LogFileName);
if FileExists(LogFileName) then Append(F)
else Rewrite(F);
WriteLn(F, Buffer);
CloseFile(F);

MessageBox(0, Buffer, Title, MB_IconStop);
end;

// Somewhere in code
ExceptProc := (zv)LogExceptProc;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001


Detekce internetu pomoci RAS: je to bezpecne?

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 15:12:20

> tohle jsem uz nekde take cetl, ovsem termin 'prilis casto' je opravdu
presna
> specifikace ;-)

vzpomnel jsem si, ze jsem to videl v nejakem changelogu u Wingate (neco
jako: snizili jsme frequenci dotazu na RAS a zacalo se to chovat lip)

>
> > Sam v jedne aplikaci RAS podobnym zpusobem hojne pouzivam a mam od
nekterych
> > uzivatelu chybove reporty, ktere jednoznacne rikaji ze nejaka funkce
RASu
> > (at RASEnumConnection nebo dokonce i RASDial) padla na nejakou vyjimku -
>
> A je z toho mozne vysledovat zdali se to tyka nejake konkretni verze
Windows ?

zkusenost me naucila, ze co mi program sam nezapise do errlogu to se od
uzivatelu nedozvim, takze pri exception se loguje:
- verze windows (vcetne vsech podrobnosti jako je build atd)
Prave jsem prolezl maily a databazi hlasenych problemu a nasel jsem _jen_
reporty z Win9X co se tyce problemu s enumeraci aktivnich RAS spojeni
(RASEnumConnection) - zadny z WinME/WinNT/Win2000. WinME bych za
bezproblemove nebral - mozne je jich jen jeste prilis malo mezi lidmi.

- jmeno funkce/procedury ve ktere to spadlo

- informace, ktera nejak lokalizuje radek, kde to spadlo (proste do nejake
zvlastni promenne zapisuju hodnotu pred kazdou operaci, ktera je trochu
slozitejsi nez jen pouhe prirazeni. Kdyz to crashne, pak log funkce zapise
hodnotu teto promenne a pohledem do zdrojaku vidim: " aha tak sem to jeste
dolezlo a pak to propadlo az do except/end)

- samozrejme se jeste loguje vlastni exception hlaska. Ale informace o tom,
ze v KERNEL32 na nejake adrese doslo k nejake chybe je mi stejne k nicemu
:-(. Nemate nekdo zdrojaky a MAP fily k windowsum? :-)))
BTW: mam pocit, ze WinICE obsahuje neco jako MAP file pro ruzne verze
windows - je schopen pri trasovani jadra vypisovat jmena funkci. Zkousel tim
nekdo honit podobne chyby?

> Samozrejme i z vlastni zkusenosti vim, jak tezke je vydolovat z lidi
nejakou
> informaci pokud se chyba projevuje nahodne ci jen na specificke
konfiguraci (a
> to se netyka jen uzivatelu ;-)
>
> Pokud ti jde jen o volani RASEnumConnection, tak by to slo mozna obejit
> monitorovanim RAS operaci.

Co mas presne na mysli (klasicky monitoring DLL fci via falesne DLLko)?
Ja vim, ze se jsem zavolal napriklad RASDial a v nem to nekde crashlo. Co
delal a volal RASDial asi nezjistim nijak jinak nez krokovanim (kodu o
kterym netusim co dela, v MSDOSu to jeste slo ve Windows uz nemam odvahu ani
silu - asi starnu :-( ).


D. Toman

OT: RE: UDF format a W2000

[*] Ji�� Kr�l jr. - 12.4.2001 15:16:58

leda bych zminil, ze CD-RW z Roxio Easy CD Creatoru 5.01
funguji na vsech MS OS bez problemu...

==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)

>>-----Original Message-----
>>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>>Behalf Of Jaroslav Popluh�r
>>Sent: Wednesday, April 11, 2001 11:52 PM
>>To: delphi-l(zv)clexpert(tec)cz
>>Subject: Re: UDF format a W2000
>>
>>
>>Pomoc nemam, len podobne skusenosti:
>>
>>Na Windows ME instalovana napalovacka TEAC, soft Nero Burn In ... InCD pre
>>UDF.
>>V jeho helpe sa pise:
>>UDF je nativne podporovane vo Win98, W2k. W95 potrebuju reader.
>>
>>Vysledok:
>>WME - s driverom InCD all is OK.
>>W98 - na korektne (?:-) zapisanom disku vidim v roote CD readme.txt s
>>nasledovnym obsahom:
>>---
>>This disc contains a "UDF" file system and requires an operating system
>>that supports the ISO-13346 "UDF" file system specification.
>>---
>>W2k+SP1 - nejaky zmatok v adresarovej strukture, ktora sa vzdialene podoba
>>povodne zapisanym datam, ale je to k nicomu.
>>
>>Takze, jediny zachytny bod, je ta ISO norma. Mna by zaujimalo
>>stanovisko MS,
>>k podpore takehoto alebo ineho napalitelneho UDF v ich OS.
>>Ak bude nieco nove, ozvem sa, zatial palim / zalohujem po starom.
>>
>>S pozdravom J. Popluhar
>>
>>----- Original Message -----
>>From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
>>To: "Delphi konference 1" <delphi-l(zv)clexpert(tec)cz>
>>Sent: Friday, April 06, 2001 10:05 PM
>>Subject: OT: UDF format a W2000
>>
>>
>>> Zdravim a predkladam jeden problem. Mam vypalovacku Yamaha, k te byl
>>program
>>> WINonCD, verze 3.6. K tomu i Packet CD s formatem UDF (prace s CD jako
>>hard
>>> disk, pri pouziti CD-RW). Nemuzu W2000 prinutit, aby mi ten format cetl.
>>> nepomaha ani driver Adaptec, volne sireny, proste W2000 to neprectou.
>>Nevite
>>> jak na to?
>>>
>>> Petr Marik
>>> rtepema(zv)mbox.vol(tec)cz
>>>
>>>
>>>

mailovy program

[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 12.4.2001 15:19:44

Koukni do Delphi5\Demos\FastNet\ tam by jsi mohl neco vykoukat.

Martin

----- Original Message -----
From: Pavel Kupka <pavel.kupka(zv)atlas(tec)cz>
To: delphi konfera <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 12, 2001 1:16 PM
Subject: mailovy program


> Ahoj!
> Shanim naprosto zakladni mailovaci program se zdrojakama, potreboval bych
si ho upravit, ale nechce se mi ho psat od zacatku, kdyz uz to nekdo jiste
delal, vite o necem?
> Diky
> Pavel Kupka
>

odchytenie neobsluzenej vynimky a jej zapis do sub

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.4.2001 15:19:29

Zkus se podivat na http://www.micrel(tec)cz/delphi/appex.zip mam tam
komponent pro zachytavani globalnich vyjimek a jejich zapis do souboru.
Jaro B.

> -----Original Message-----
> From: MUDr. Alena Bal߿ov� [mailto:balazova(zv)bb.psg.sk]
> Sent: Thursday, April 12, 2001 3:09 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: odchytenie neobsluzenej vynimky a jej zapis do suboru
>
>
> Zdravim vas, mam takyto problem, nasiel som takyto kus kodu vraj to ma
> logovat neobsluzene vynimky, ale ono to nechce fungovat, nevedel by mi
> niekto pomoct ako na to. Potreboval by som nejaku funkciu,
> ktora loguje uz
> spominane neobsluzene vynimky. Za radu dik
>

Odchytenie neobsluzenej vynimky a jej zapisanie do

[*] MUDr. Alena Bal�ov� - 12.4.2001 15:21:57

Zdravim vas, mam takyto problem, nasiel som takyto kus kodu vraj to ma
logovat neobsluzene vynimky, ale ono to nechce fungovat, nevedel by mi
niekto pomoct ako na to. Potreboval by som nejaku funkciu, ktora loguje uz
spominane neobsluzene vynimky. Za radu dik

var
LogFileName: string = 'c:\log.txt';
ExceptProc : procedure;

procedure LogExceptProc(ExceptObject: TObject; ErrorAddr: Pointer);
const
Size = 1024;
resourcestring
Title = ' Internal error. Please, contact the technical support.';
var
Buffer : PChar[0..Size - 1];
F: TextFile;
begin
ExceptionErrorMessage(ExceptObject, ErrorAddr, Buffer, Size);

AssignFile(F, LogFileName);
if FileExists(LogFileName) then Append(F)
else Rewrite(F);
WriteLn(F, Buffer);
CloseFile(F);

MessageBox(0, Buffer, Title, MB_IconStop);
end;

// Somewhere in code
ExceptProc := (zv)LogExceptProc;

Detekce internetu pomoci RAS: je to bezpecne?

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

From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> zkusenost me naucila, ze co mi program sam nezapise do errlogu to se od
> uzivatelu nedozvim, takze pri exception se loguje:

Ahoj,

tohle se da u uzivatelu, ale tezko u vyvojaru. Tam je to jeste horsi ;-)

> - informace, ktera nejak lokalizuje radek, kde to spadlo (proste do nejake

Dival jsi se nekdy na JclDebug ?

> BTW: mam pocit, ze WinICE obsahuje neco jako MAP file pro ruzne verze
> windows - je schopen pri trasovani jadra vypisovat jmena funkci. Zkousel tim

Tohle umi i JclDebug, zkratka kdyz neni jiny zdroj debug informaci (prilozeny
MAP file, JDBG file - binarni podoba map filu cca 12% velikosti nebo JCLDEBUG
data primo v PE souboru) tak zacne prochazet exporty a pokud je ta adresa
nekde mezi tak ho vybere za jmeno procedury. Priklad:

[0042F54B] Controls.TWinControl.DefaultHandler
[004253F5] StdCtrls.TButtonControl.WndProc
[00440C76] Forms.StdWndProc
[77E148DC] PtInRect
[77E14AA7] TranslateMessageEx
[77E266FD] DispatchMessageA
[0047D9D0] StackTrackExample.StackTrackExample (Line 13,
"C:\code library\examples\StackTrackExample.dpr")
[77E992A6] GetCommandLineW

> Co mas presne na mysli (klasicky monitoring DLL fci via falesne DLLko)?

Pokud sam vyvolas spojeni pomoci RasDail tak pak vidis co se deje protoze ti
to posila zpet zpravy.

> Ja vim, ze se jsem zavolal napriklad RASDial a v nem to nekde crashlo. Co

To je uz opravdu divne. Nejsou to nahodou pocitace s instalovanou betaverzi
IE5.5 ?

Petr Vones, amatersky programator

Kopirovani z TStringGrig do schranky

[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 12.4.2001 15:59:53

Zdravim.
Mam mozna trivialni dotaz, ale jakym zpusobem
muzu docilit toho, abych mohl zkopirovat oznacenou
oblast v TStringGridu treba do Excelu - pres schranku.

Diky
J.Madlik


uplne OT: Maly exe z Delphi - korekce uses

[*] Hurricane <hurricane(zv)quick(tec)cz> - 12.4.2001 16:15:51

Zdravim

Samozrejme, ja moc dobre vim, jak jsou na tom ceny DIMMu, ale ty do 486ky
bohuzel nenacpu :-((.

Hurricane

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

> > Aktualni ceny:
> > 32 MB EDO RAM / 72 PIN 1438
>
> Ano, muzealni kusy jsou vzdy drahe, jinak DIMM 128MB SDRAM PC133 vyjde na
cca
> 1850Kc, takze v prepoctu na kapacitu pameti je to:
>
> 45Kc / 1MB u srotu
> 15Kc / 1MB u normalni pameti, nemluve o ponekud vetsi rychlosti.

Cesta k souboru na NT a 2000

[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 12.4.2001 16:32:50

Prijemny den,
pouzivam D5Prof a Win 95 OSR2

S uspechem pouzivam nasleduji funkci na zjisteni cesty k EXE souboru
aplikace, ktera je aktivni (navrchu). Funguje to pekne na W95/98, vraci to
jmeno souboru i s cestou.

Ale ja bych potreboval vedet proc to na WinNT nefunguje vubec (nevraci to
nic) a na W2000 to vraci jen jmeno souboru bez cesty. Muzete mi nekdo
pomoci?

Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
S pozdravem Straka Josef,
kteremu uz kukacka 28krat oznamila jaro.
e-mail: strakaj(zv)hbnet(tec)cz
www: http://strakaj.zde(tec)cz

//-------------------------------------------------------
function RunningProcessesList(List: TStrings): Boolean;
function BuildListTH: Boolean;
var
SnapProcHandle: THandle;
ProcEntry: TProcessEntry32;
NextProc: Boolean;
begin
SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapProcHandle <> THandle(-1) then
begin
Result := True;
ProcEntry.dwSize := Sizeof(ProcEntry);
NextProc := Process32First(SnapProcHandle, ProcEntry);
while NextProc do
begin
List.AddObject(ProcEntry.szExeFile,
Pointer(ProcEntry.th32ProcessID));
NextProc := Process32Next(SnapProcHandle, ProcEntry);
end;
CloseHandle(SnapProcHandle);
end else
Result := False;
end;
function BuildListPS: Boolean;
var
PIDs: array[0..1024] of DWORD;
Handle: THandle;
Needed: DWORD;
I: Integer;
ModuleFileName: array[0..MAX_PATH] of Char;
begin
Result := EnumProcesses((zv)PIDs, Sizeof(PIDs), Needed);
if not Result then Exit;
for I := 0 to (Needed div Sizeof(DWORD)) - 1 do
if PIDs[I] <> 0 then
begin
Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
False, PIDs[I]);
if Handle <> 0 then
begin
if GetModuleFileNameEx(Handle, 0, ModuleFileName,
Sizeof(ModuleFileName)) = 0 then
List.AddObject('[System]', Pointer(INVALID_HANDLE_VALUE))
else
List.AddObject(ModuleFileName, Pointer(PIDs[I]));
CloseHandle(Handle);
end;
end;
end;
begin
List.BeginUpdate;
try
List.Clear;
if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion = 4)
then
Result := BuildListPS
else
Result := BuildListTH;
finally
List.EndUpdate;
end;
end;

function CestaAktivnihoOkna: String;
var
W: HWND;
PID: DWORD;
Processes: TStringList;
I: Integer;
FileName: TFileName;
begin
W := GetForegroundWindow;
if W <> 0 then
begin
GetWindowThreadProcessId(W, (zv)PID);
Processes := TStringList.Create;
try
Win32Check(RunningProcessesList(Processes));
I := Processes.IndexOfObject(Pointer(PID));
if I < 0 then
FileName := '???'
else
FileName := Processes[I];
finally
Processes.Free;
end;
Result := AnsiUpperCase(FileName);
end;
end;
//-------------------------------------------------------


Detekce internetu pomoci RAS: je to bezpecne?

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.2001 16:33:11

>
> Dival jsi se nekdy na JclDebug ?

dival.
Trosku mam strach, ze pri pouziti vysledne EXE prilis nabobtna (muj sprogram
nepouziva VCL a nimportuje ani Classes - coz JCLDebug dela). Pri pokusne
kompilaci s JCL se kod sice prodlouzil asi o 40 (kdyz jsem nepouzil zadnou
funkci z JCL) ci o 60kB (kdyz jsem vytvoril instanci TJCLMap. Navic nevim
jestli ma smysl pouzivat JCLdebug bez prilepeneho debug filu - coz znamena
dalsi balast.
Nechci jit cestou - mas problemy? tak Ti poslu debug verzi a uvidime co se
dozvime. Jednak to obnasi zdlouhavou mailovou komunikaci s uzivateli a
vysledek je stejne nejisty (nekteri uzivatele nejsou schopni ani podle
instrukci poslat ten spravny log). Proste normalni produkcni EXEcko musi
samo poskytovat dostatek informaci.

>
> > BTW: mam pocit, ze WinICE obsahuje neco jako MAP file pro ruzne verze
> > windows - je schopen pri trasovani jadra vypisovat jmena funkci. Zkousel
tim
>
> Tohle umi i JclDebug, zkratka kdyz neni jiny zdroj debug informaci
(prilozeny
> MAP file, JDBG file - binarni podoba map filu cca 12% velikosti nebo
JCLDEBUG
> data primo v PE souboru) tak zacne prochazet exporty a pokud je ta adresa
> nekde mezi tak ho vybere za jmeno procedury.

No jo ale pokud dojde k chybe nekde v nejake vnorene funkci (ja volam funkci
z RASu a problem nastane v KERNEL32.DLL) pak mi to nejspis nepomuze.

> > Co mas presne na mysli (klasicky monitoring DLL fci via falesne DLLko)?
>
> Pokud sam vyvolas spojeni pomoci RasDail tak pak vidis co se deje protoze
ti
> to posila zpet zpravy.

to moc nepomuze, sice se tak muzu dozvedet do jake faze se RASDial dostal,
ale tezko me to navede na nejake reseni.
RASDial callback pouzivam (a muzu z uzivatele vymamit i nejaky ten debug
vystup), ale problem je ten, ze vetsina RAS chyb je spojena s tim
RASEnumConnections....

Kdybych byl schopen tu chybu vyvolat na nejakem pocitaci ve firme pak se
samozrejme da testovat spousta veci, hledat zavislosti. Pokud ale problemy
maji (jako obvykle) jen zakaznici je to dost problem.

>
> > Ja vim, ze se jsem zavolal napriklad RASDial a v nem to nekde crashlo.
Co
>
> To je uz opravdu divne. Nejsou to nahodou pocitace s instalovanou
betaverzi
> IE5.5 ?

Jak jsem jiz psal - ten RASDial padne jeste mene casto nez jine RAS funkce.
Nektere reporty tech chyb jsou z doby kdy o IE5.X jeste nikdo nevedel (ani
MS).

D. Toman

Datum

[*] Ji�� Kr�l jr. - 12.4.2001 16:49:13

datum D=x.y.zzzz 00:00 je nej. real cislo n
kde 1= 1 den = 24 hodin

takze treba x.y.zzzz 12:00 je n+0,5

proto se ti polozka datum+cas nerovna "stejne" polozce datum, prave o ty
hodiny, o desetinnou cast

tzn. musis si obe TDatetime truncnout (tzn. prevest na nizsi pulnoc, na cele
cislo) a pak to muzes porovnat s datumem bez casu


==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Bene# Jaroslav
Sent: Thursday, April 12, 2001 10:27 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Datum


Zrejme porovnavas realna FP cisla.
Jaro B.
> -----Original Message-----
> From: prajz.rumcajs(zv)quick(tec)cz [mailto:prajz.rumcajs(zv)quick(tec)cz]
> Sent: Thursday, April 12, 2001 10:23 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Datum
>
>
> Objevial se mi jedna zvlastni chyba - je-li to chyba:
> Mam vstupni pole, ktere porovnavam s datumovou polozkou. Kdyz zadam
>
> s: string;
> if StrToDate(s) = DateTimePicker3.Date then ....
>
> a v promene 's' je shodne datum, tak stejne to nic nedela,
> respektive tvari
> se, ze to neni rovno, ale pritom je! Kdyz vymenim rovna se za
> vetsi ci
> mensi, tak to funguje.
> Chapete to? Ja ne .... Prosim o pomoc ....
>
> Rumcajs
>
>

TListBox a OnChange

[*] Marcant <marcant(zv)sct.sk> - 12.4.2001 17:06:10

Ale to predsa robi OnClick.

MarCaNT

> Zdravim,
> nevite nekdo, jestli se da nejak jednoduse implementovat udalost OnChange
do
> TListBoxu? Normalne tam neni, a kontrolovat mysi a klavesnicove udalosti
se
> mi moc nechce...
> Mam na mysli nejakou udalost, ktera se vyvola, kdyz se zmeni vybrana
> polozka.
>
> Diky
> Petr
>

ADO a jeden nejeden recordset

[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 12.4.2001 17:11:07

Zdravim,

Podle mne by melo stacit zavolat po uspesnem naconnecteni k DB 1x prikaz SET
NOCOUNT ON.
Potlaceni ziskavani informaci o poctu zaznamu se vztahuje k aktualni
connection, nikoliv k jednotlivym dotazum.
(Pokud se samozrejme mezi jednotlivymi prikazy/dotazy neodpojujete a
nepripojujete vzdy znovu.)

Takze melo by stacit volat 1x hned po pripojeni k DB.

S pozdravem, Ladislav Nagy


> V ADO neprojde Open dotazu, kter� d�l� update a z�rove� select, nap�.
> INSERT INTO ...
> SELECT (zv)IDENTITY
> Jde ud�lat pouze ExecSQL, ale to zase nevr�t� recordset. Hledal jsem ve
> FAQ jak se to m� d�lat a na#el jsem, �e to d�laj� procedurou. Hledal
> jsem d�l a zjistil jsem, �e ADO m��e vracet v�ce recordset� (a d� se
> m�zi mima p�ep�nat). Nakonec jsem zjistil i jak tu ud�lat, aby v�#e
> uveden� konstrukce fungovala, mus� se d�t na za��tek SET NOCOUNT ON,
> tak�e to mus� b�t
> SET NOCOUNT ON
> INSERT INTO ...
> SELECT (zv)IDENTITY
> Toto mus� b�t u v#ech query, kter� se otev�raj� pomoc� Open a uvnit�
> prov�d�j� update, insert �i podobn� operace. Je mo�n� �e se to d�
> zapnout defaultn�, ale zat�m jsem nep�i#el na to kde.

Kurzor my=?ISO-8859-1?Q?=9Ai?=

[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 12.4.2001 11:27:43 -0400

Zdravim,
tento problem uz jsem tady jednou psal, bohuzel se mi jej zatim nepodarilo
vyresit. Pokusim se muj dotaz jasneji formulovat:

Jak mohu nacist vlastni kurzor mysi, aby se objevil, i kdyz napriklad sjedu s
dialogoveho okna a v pozadi je jina Form me aplikace.
V praxi je treba po cele plose roztazena Form a na ni se objevi nejake
dialogove okno. Kdyz pouziju prikazy SetCursor, pak Screen.Cursor:=, tak se mi
sice muj kurzor ukaze na dialogovem okne, ale kdyz ho mysi opustim, zmeni se
na defaultni kurzor Windows.

Neporadil by mi nekdo prosim, jak bych toto mohl vyresit? Pouzil bych klidne
i fci SetSystemCursor, ale nevim, jak pak obnovit puvodni nastaveni.

Dekuji moc za pomoc
Petr Vasicek

-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------


Mozna OT: ActiveX library a Unregister

[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 12.4.2001 17:42:25

Zdarec!

Mno, restartovat pokazde cely WebServer neni podle mne idealni.
Uplne staci restartovat jenom dany balicek v MTS (COM+). Jak se to presne
dela nevim, ale kolega delal scripty pro registraci komponent pro instalaci
produktu, takze jsem ho zaukoloval to zjistit, jelikoz to taky sam budu
potrebovat. Bohuzel se k MTS pristupuje jinak nez k COM+, ale popis obeho
najdes stopro v MSDN.

HTH
Petr Langer

> Ahoj,
>
> Unregister delat nemusis, ale musis vzdy restartovat WebServer (jestlize
>

> >
> > zkousim ted delat nejakou knihovnu pro MTS. Udelal jsem ji,
zaregistroval,
> > pouzil, fungovala, vsechno v pohode. Ale kdyz do ni chci udelat nejaky
> > upravy, tak prestoze ji odregistruju (regsvr32 -u nazev.dll), soubor je
> > stale zamceny a nemuzu kompilovat (leda nekam jinam, ale to je pro ucely
> > ladeni trosku nepohodlny).

FileRead

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.4.2001 17:45:14

> tohle nepomuze?
> iBytesRead:=FileRead(iFileHandle, pointer(b)^, 233);
> D. Toman

bohuzel uz to nezjistim, prepsal jsem to:

AssignFile(f, Value);
Reset(f);
Seek(f, 6);
t:='';
for i:=1 to 233 do
begin
Read(f, b);
t:=t+b;
end;
CloseFile(f);

zkousel jsem (zv)b a ^p, nejak mi stale unika smysl (a hlavne rozdil)
techto operatoru. pokud vim, tak (zv)x vrati adresu x, a co teda ma delat
^p (nebo p^?) ?

dekuji PeC(zv)

CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

uz OT: Maly exe z Delphi - korekce uses

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 17:57:10

From: "Hurricane" <hurricane(zv)quick(tec)cz>
> 5: Uzivatel prijde ze skoly (dulezite) domu, zapne pocitac (486) protoze
> potrebuje napsat spoustu skolnich praci : priblizne kazde 2 sekundy si
> rekne, ze chce novy komp, ale v prasatku neni ani 50Kc.
>
> Co s tim?

Ahoj,

co s tim ? Vzit to co je v prasatku a jit s kamarady do hospody. Ono za
takovych deset let uz organismus tolik nevydrzi, takze neni od veci tuto dobu
vhodne vyuzit ;-)

Petr Vones, amatersky programator


uz OT: Maly exe z Delphi - korekce uses

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

Puvodni zprava, kterou napsal Hurricane dne 12 Apr 2001,:

> 5: Uzivatel prijde ze skoly (dulezite) domu, zapne pocitac (486) protoze
> potrebuje napsat spoustu skolnich praci : priblizne kazde 2 sekundy si
> rekne, ze chce novy komp, ale v prasatku neni ani 50Kc.

Sakra, deti vubec nemaji mit pocitac, protoze pak ztraci kontakt
s realnym svetem a uzaviraji se do sebe, komunikuji jen po internetu
apod. Deti si maji jit hrat ven do prirody!

> I mezi domacimi uzivateli jsou experti na kompy (i ja se mezi ne radim,
> neukamenujte me). Ne vsichni hraji dooma, quaka a podobne kraviny. Parani
> maji vetsinou dost nadupane masiny, takze ty tenhle problem netrapi.

No to teda pozdrav pambu... :-)

Nechme prosim uz tech debat, timto diskusi koncim a jiz nereaguji,
prosim Vas vsechny o totez... Zase nekdy priste nad jinym OT...


S pozdravem
Petr Zahradnik, pocitacovy expert

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

Detekce internetu pomoci RAS: je to bezpecne?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 18:06:14

From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Trosku mam strach, ze pri pouziti vysledne EXE prilis nabobtna (muj sprogram
> nepouziva VCL a nimportuje ani Classes - coz JCLDebug dela). Pri pokusne

Ahoj,

VCL nepouziva, Classes samozrejme ano.

> kompilaci s JCL se kod sice prodlouzil asi o 40 (kdyz jsem nepouzil zadnou
> funkci z JCL) ci o 60kB (kdyz jsem vytvoril instanci TJCLMap. Navic nevim

TJCLMap - to mas asi jeste nejakou historickou verzi, ten unit by cely
prepracovan.

> jestli ma smysl pouzivat JCLdebug bez prilepeneho debug filu - coz znamena

Ne, ale ty pridana data tvori cca 12% velikosti MAP souboru. Zase bych v
dnesni dobe tech par desitek kb tolik neprozival ;-)

> vysledek je stejne nejisty (nekteri uzivatele nejsou schopni ani podle
> instrukci poslat ten spravny log). Proste normalni produkcni EXEcko musi

Soucasti je ukazkovy dialog ktery lze pridat do aplikace a sam umoznuje poslat
chyby mailem.

Petr Vones, amatersky programator


Scrolling v DbGridu

[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.4.2001 18:44:02

Ahoj,

potreboval bych v rxDBGrid vlastnost [goThumbTracking] jako v options ve
stringridu. Nevite nekdo jak to doprogramovat?

Ales


HTTP/1.1

[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 12.4.2001 19:09:48

Pot�ebuji poradit s t�mto probl�mem:
Kdy� na server (Apache) pos�l�m po�adavek 'GET / HTTP/1.1'+cr+'Accept:
*/*'+cr+'Connection: Keep-Alive'+cr+cr (kde cr = #13#10), vr�t� se mi
chybov� hl�#ka 400 - Bad request. Jestli�e zam�n�m verzi protokolu na
HTTP/1.0, v#e funguje, jak m�. J� v#ak pot�ebuji, aby server spojen�
neukon�il, proto chci pou��t verzi 1.1.
Nev�te, kde d�l�m chybu?

D�ky
Mike


UDF format a W2000

[*] Petr Ma��k - 12.4.2001 19:10:18


> W2k+SP1 - nejaky zmatok v adresarovej strukture, ktora sa vzdialene podoba
> povodne zapisanym datam, ale je to k nicomu.
>
> S pozdravom J. Popluhar
>
Na strance adaptecu je UDF reader, ktery udajne ve verzi 1.03 chodi i pod
W2k. Nainstaloval jsem to, po restartu mi W2k precetly drive vypalene
disky s UDF formatem pomoci Packet CD z baliku WinOnCd (ten PacketCD ale
oficialne neni pro NT a tim ani pro W2k). Myslel jsem si. ze mam vyhrano.
Bohuzel pri dalsim spusteni pocitace podpora zmizela a nepomohlo ani
odistalace a nova instalace. Takze reseni zatim take ne. Presto diky za
informace

Petr Marik
rtepema(zv)mbox.vol(tec)cz

Graf

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.4.2001 19:12:39

Ahoj,

TChart ci TDBChart -- zoom napriklad pomoci oznaceni vysece
mysi, muzes take pretahovat graf, vice serii atd... Nemel jsme
dosub problemy.

Slavek

> Dik
> potretreboval bych takovy prostredek, ktery je mozne pripojit na db.
> Umoznuje 3d, lupu, nataceni, kliknu nekam a odecte mi to hodnoty, treba
> prekryvat vic grafu pres sebe atd...
> Samozrejme nemusi byt free.
>
> alda


Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------


Vyuzivanie pamete OS Win PlayStation

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 19:41:53

From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Linux je proste stabilni system s funkcnim MultiThreadingem, to se ale o WIN
> rict neda.

Ahoj,

Zalezi na tom o jakych, pokud se budeme bavit o NT na solidnim pocitaci tak je
to myslim taktez bez problemu. Srovnani s Windows PlayStation je samozrejme o
necem jinem, ale to uz se tu probiralo 1000x.

Petr Vones, amatersky programator


zase ty streamy a obrazky

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 19:49:41

From: "Radim.Holan" <radim.holan(zv)seznam(tec)cz>
> ho zaroven mohl dekodovat a davat do TImage. Pouzival jsem Memory stream kam
> jsem nacetl postupne cely dekodovany obrazek, a pak ho soupnul do TImage,
> ale 30 MB je na nej moc....Nemam treba pouzit neco jineho nez TImage (musi

Ahoj,

dekodovat JPG do bitmapy budes muset tak jako tak. Misto TImage muzes pouzit
treba TScrollBox a v nem TPaintBox, takze pak budes zobrazovat jen potrebny
vyrez. To mas 30MB JPG ?

> to umet BMP a JPG) a ja to zaridit aby se mi to cele veslo do pameti...JO

Do "pameti" se ti vicemene vejde tolik, kolik mas volneho mista na disku.

> JESTE POZNAMKA - nesmim zapisovat na disk !!!!!!!

To ma byt co, nevytvaret nejaky docasny soubor ? Ten ani nepotrebujes.

Petr Vones, amatersky programator

HTTP/1.1

[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.4.2001 19:58:33


U HTTP 1.1 je vyzadovana hlavicka 'host: bleble'. viz RFC.

Kazdopadne vsechny potrebne vymozenosti vsech verzi HTTP
protokolu mas naimplementovane v moji Synapsi. ;-))))

Lukas.

> Pot�ebuji poradit s t�mto probl�mem:
> Kdy� na server (Apache) pos�l�m po�adavek 'GET / HTTP/1.1'+cr+'Accept:
> */*'+cr+'Connection: Keep-Alive'+cr+cr (kde cr = #13#10), vr�t� se mi
> chybov� hl�#ka 400 - Bad request. Jestli�e zam�n�m verzi protokolu na
> HTTP/1.0, v#e funguje, jak m�. J� v#ak pot�ebuji, aby server spojen�
> neukon�il, proto chci pou��t verzi 1.1. Nev�te, kde d�l�m chybu?
>
> D�ky
> Mike
>

"Prkotina"

[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 12.4.2001 20:00:49

Zdar
Prominte, ze vas obtezuju s opravdou blbosti, ale nejak me nic nenapada:

Mam string ve tvaru: 0|1|xxx
Potrebuju z nej vytahnout cislo 1, ale zrada je v tom, ze to cislo muze byt
i vetsi nez 1, takze muze byt napr. 0|255|xxx , takze funkce Copy() zde
nelze pouzit, nebo ano?
Sem asi uplne tupej, ale zkuste to vymyslet

PS: Za tvar toho stringu ja nemuzu, to mi vraci jedna funkce, kterou musim
pouzit.
PPS: Kde v helpu najdu popis zakladnich funkci pro praci se stringama.
____________________________________________________________________________
Vyhrajte zajezd na Velikonocni ostrovy! http://www.jobpilot(tec)cz/go/velikonoce


"Prkotina"

[*] brant(zv)dcomm(tec)cz - 12.4.2001 20:41:10

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

Pokud jsou ty oddelovace "|" porad stejne, lze pouzit tyto dve funkce
(opsano z UDDF), pouzivam je hodne a bez problemu:

Takze pro tvuj pripad by se hodilo treba

if NumToken(s, '|') >=2 then p:= GetToken(s, '|', 2) apod.

function NumToken(aString, SepChar: String):Byte; (*downloaded from UDDF*)
{
parameters: aString : the complete string
SepChar : a single character used as separator
between the substrings
result : the number of substrings
}

var
RChar : Char;
StrLen : integer;
TNum : integer;
TEnd : integer;

begin
if SepChar = '#' then
begin
RChar := '*'
end
else
begin
RChar := '#'
end;
StrLen := Length(aString);
TNum := 0;
TEnd := StrLen;
while TEnd <> 0 do
begin
Inc(TNum);
TEnd := Pos(SepChar,aString);
if TEnd <> 0 then
begin
aString[TEnd] := RChar;
end;
end;
NumToken := TNum;
end;


function GetToken(aString, SepChar: String; TokenNum: Byte):String;
(*downloaded from UDDF*)
{
TokenNum se ��sluje od 1.
parameters: aString : the complete string
SepChar : a single character used as separator
between the substrings
TokenNum: the number of the substring you want
result : the substring or an empty string if the are less then
'TokenNum' substrings
}
var
Token : String;
StrLen : Byte;
TNum : Byte;
TEnd : Byte;

begin
StrLen := Length(aString);
TNum := 1;
TEnd := StrLen;
while ((TNum <= TokenNum) and (TEnd <> 0)) do
begin
TEnd := Pos(SepChar,aString);
if TEnd <> 0 then
begin
Token := Copy(aString,1,TEnd-1);
Delete(aString,1,TEnd);
Inc(TNum);
end
else
begin
Token := aString;
end;
end;
if TNum >= TokenNum then
begin
GetToken := Token;
end
else
begin
GetToken := '';
end;
end;


RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

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


Zdar
Prominte, ze vas obtezuju s opravdou blbosti, ale nejak me nic nenapada:

Mam string ve tvaru: 0|1|xxx
Potrebuju z nej vytahnout cislo 1, ale zrada je v tom, ze to cislo muze byt
i vetsi nez 1, takze muze byt napr. 0|255|xxx , takze funkce Copy() zde
nelze pouzit, nebo ano?

kl�vesa "PrintScreen"

[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 12.4.2001 20:55:01

Ahoj, prosim vas pomozte mi nekdo. Jak zjistim, ze byla stisknuta klavesa
PrintScreen? Dokazu zjistit jen UP teto klavesy, ale to uz je pozde.

A jeste jeden dotaz: Da se poslat pomoci TJCLEmail mail tak, aby se nulozil
do odeslane posty?

diky
Mirek Drancak

BUG Compiler or My?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 20:59:46

From: "Jio� Koeara" <pazout(zv)sport(tec)cz>
> Dnes se mi "podarilo" sestrojit podobnou konstrukci v programu jako je
> priklad nize. Vysledek mne prekvapil (asi nemel :) ).

Ahoj,

vysledek je zcela zpravne, zapni si *docasne* Range a Overflow Checking.
Konstrukce (J - 1) -> 0 - 1 = 255, tedy 0..255 je 256

Petr Vones, amatersky programator


"Prkotina"

[*] Delphi <DelphiForum(zv)seznam(tec)cz> - 12.4.2001 20:59:59

>i vetsi nez 1, takze muze byt napr. 0|255|xxx , takze funkce Copy() zde
>nelze pouzit, nebo ano?

Samozrejme ze se to da pomoci Copy. Pouzij v ni funkci pos, ktera ti vrati
pozici daneho podretezce v retezci (viz. help).
Napr.
vystup := Copy ( retezec, 1, pos ( '|', retezec)-1);
tohle ti prekopiruje vse az po znak |.

Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz

Quick Report3 a tiskarny HP

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.4.2001 21:36:19

Na strance Qusoftu (www.qusoft.com) je popisovana oprava QuickReportu.
Bohuzel jsou k ni treba zdroje :-(. Problem je pri vytvareni TPrinter.
Se slozitymi ovladaci, jake maji napr. HP, neni dostatek casu na
vytvoreni objektu. Uprava spociva v tom, ze se ceka, dokud se objekt
nevytvori.

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

12.4.2001 CERMAK:
> Ahoj

> Mam takove tuseni, ze QuickReport mel vzdycky problemy s tiskarnama od HP.
> Zkus novejsi ovladace z webu vyrobce, nebo ovladac kompatibilni tiskarny. V
> nekterych pripadech, kdyz se mi nepodarilo dotiskovat okraje, jsem do
> programu vlozil funkci na zmenu okraju sestavy a jeji ulozeni do souboru.> Jaromir Cermak

> -----Original Message-----
> From: Str�n�k Franti#ek [mailto:FStranik(zv)cpoj(tec)cz]
> Sent: Thursday, April 12, 2001 2:50 PM
> To: Delphi konference
> Subject: Quick Report3 a tiskarny HP


> Pratele,
> nemate nekdo zkusenosti s QuickReport3 a tiskarnami typu HP1100,
> HP550 apod.
> Uzivatele si stezuji, ze na techto tiskarn�ch pri pouziti QR3 nejdou
> sestavy vytisknout (b�l� pruhy, poloviny str�nek apod.)
> Nejak tak tusim, ze to muze byt ovladacema techto tiskaren.
> Prosim o pomoc , radu apod.
> Diky

> Franti#ek STR#N#K
> mailto:FSTRANIK(zv)CPOJ.CZ
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001

Cesta k souboru na NT a 2000

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.2001 21:38:19

From: "Josef Straka" <strakajosef(zv)seznam(tec)cz>
> S uspechem pouzivam nasleduji funkci na zjisteni cesty k EXE souboru
>
> Ale ja bych potreboval vedet proc to na WinNT nefunguje vubec (nevraci to
> nic) a na W2000 to vraci jen jmeno souboru bez cesty. Muzete mi nekdo

Ahoj,

pouzij funkci GetProcessNameFromWnd ktera je v unitu JclSysInfo v JCL:
http://delphi-jedi.org/Jedi:JCLDOWNLOADS

Petr Vones, amatersky programator


uz OT: Maly exe z Delphi - korekce uses

[*] Hurricane <hurricane(zv)quick(tec)cz> - 12.4.2001 22:45:52

Zdravim

Sice bych uz taky nejredsi skoncil (a taky to udelam), ale tohle mi neda.

> > 5: Uzivatel prijde ze skoly (dulezite) domu, zapne pocitac (486) protoze
> > potrebuje napsat spoustu skolnich praci : priblizne kazde 2 sekundy si
> > rekne, ze chce novy komp, ale v prasatku neni ani 50Kc.
>
> Sakra, deti vubec nemaji mit pocitac, protoze pak ztraci kontakt
> s realnym svetem a uzaviraji se do sebe, komunikuji jen po internetu
> apod. Deti si maji jit hrat ven do prirody!

Jake deti? Ja mluvim o studentech 3. rocniku SS. (17-18 let) Totez jsem ja.
(18) Studenta bez pocitace uprimne lituji. Vzdyt jen u me a meho kompu se
pravidelne stridaji 3 mi spoluzaci, jelikoz 3 z nich patri do kategorie (5).
No, jeden z nich ted bude mit tu 486ku, co jsem o ni psal. Treti spoluzak to
neumi a potrebuje radit.

Hurricane


ListView

[*] Hejna Martin, PRAHA <hejnam(zv)praha(tec)comsoft(tec)cz> - 12.4.2001 22:50:56

[P��loha v souboru: x.zip]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

Ahojte, potreboval bych opet poradit s ListView (uz potreti..)

v ZIPu je kdyztak jednodychy programek (zdrojaky) ktery se tyka meho
problemu

Jedna se o to, ze pokud mam t list view nastaven na vsReport a MultiSelect
je True
a implementuji vlastni udalost OnCustomDrawItem (viz vypis).

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If Item.Checked then
with ListView1.Canvas do
begin
Pen.Style := psClear;
Brush.Style := bsSolid;
Brush.Color := clGrayText;
Rectangle( Item.DisplayRect(drLabel) );
{DefaultDraw := False;} // <- pokud je zde tento radek vse funguje,
//musim si ale zajisit vykresleni textu sam
//coz muze byt i pomerne narocne
(zaokrouhlovani,...)
end;
{ ListView1.Canvas.Font.Style := [fsBold];} //pokud je zde toto nebo treba
fsItalic a DefaultDraw
//je True vse je OK, jinak divne
chovani, i pri []
end;

Potrebuji reagovat na to, kdyz uzivatel zasktrne polozku atuto podbarvit
jinou barvou.
Problem je v tom, ze kdyz v obsluze teto udalosti nenastavim DefaultDraw na
False (tj. musim si text polozky vypsat sam) a uzivatel vybere vice polozek
(pres Alc, Ctrl, nebo tazenim mysi) zobrazuji se nektere polozky v ListView
znacne podivne (velike fony, tucne) pricemz zadne tyto vlastnosti nemenim.
Reseni je kdyz na vystupu z udalosti nastavim Font.Style na nenulovou
mnozinu.
tj treba fsBold, nebo fsItalic.
Pokud nekdo nahodou vite jak tento problem vyresit byl bych rad (mozna mam
obecne problem v procedure).

<<x.zip>>
S pozdravem Martin Hejna

PS : Omlouvam se za velice zmateny popis, ale opravdu se spatne popisuje co
to dela
pokud to neuvidite v "akci"

Pripojeni na MS SQL server

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 13.4.2001 00:00:21

Zdravim vsechny.
Potreboval bych poradit s nasledujicim problemem. Mam databazi na MS SQL
serveru. Pres moji aplikaci v Delphi se na ni pripojuji pres ODBC, kde si
vytvorim alias v systemovem DSN a pres BDE, kde v Databaze exploreru
nastavim alias pro SQL server a jeho ODBC DSN na muj alias v ODBC. Takto mi
to funguje, ale pripada mi to prilis slozite. Nevite nekdo, jak vynechat
ODBC a rovnou vytvaret alias jen v Databaze exploreru nebo BDE
Administratoru ? Pro interbase to funguje, ze se nastavi pouze LangDriver a
Databaze Name cesta k dane databazi. Pro MS SQL server mi to nefunguje.

Diky za vsechny vase napady.

Filip


Dkoument v BLOBu do Wordu

[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 13.4.2001 00:37:12

Da se nejak primo (predpoklal bych napr. pomoci OLE)
naplnit MS Word obsahem, ktery je ulozen v BLOBu v databazi,
aniz bych tento obsah presunul do temporary souboru,
ktery bych nasledne otevrel ?
Potreboval bych i zmeny ulozit zpet do BLOBu v databazi.

Dik za radu, Filip.

Zaokrouhleni realneho cisla - jeste jednou

[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 13.4.2001 01:26:56

Result := Int(cislo*10+0.9)/10;

Jan Skopovy

----- Original Message -----
From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 12, 2001 7:40 AM
Subject: Zaokrouhleni realneho cisla - jeste jednou


> Zdravim vsechny.
> Jelikoz muj dotaz nebyl zcela pochopen, upresnim ho. V databazi mam cislo,
> ktere z ni prectu a vydelim ho napr. 60, cimz casto dostanu realne cislo,
> ktere je napriklad 2,8633333. Toto cislo potrebuji zaokrouhlit nahoru a to
> na jedno desetinne misto (jedno desetinne misto bude stacit). To znamena
> potrebuji dostat neco takoveho: 2,9. Toto cislo prevedu f-ci FloatToStr na
> string a nactu do editu. Nic vic s nim nedelam a zpatky do databaze ho
> neukladam. Je to pouze kalkulacni vypocet.
>
> Ptam se tedy zda nekdo nevi, jak tohoto vysledku dosahnout.
>
> Diky vam vsem za napady. Paklize je to prilis jednoduche, pak si to rovnou
> mazte a dal se tim nezabyvejte. Ja na to ale nemam ted cas prichazet a
> dlouze zkouset a tak bych potreboval nekoho, kdo uz si to zkousel a vi jak
> na to.
>
> Diky
> Filip


Pripojeni na MS SQL server

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.4.2001 02:40:26

From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> to funguje, ale pripada mi to prilis slozite. Nevite nekdo, jak vynechat
> ODBC a rovnou vytvaret alias jen v Databaze exploreru nebo BDE
> Administratoru ? Pro interbase to funguje, ze se nastavi pouze LangDriver a

Ahoj,

pro MS SQL je predevsim nejlepsi vynechat BDE a pouzit ADO.

Petr Vones, amatersky programator


kl�vesa "PrintScreen"

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.4.2001 03:05:52

From: "Mirek" <dmiroslav(zv)seznam(tec)cz>
> Ahoj, prosim vas pomozte mi nekdo. Jak zjistim, ze byla stisknuta klavesa
> PrintScreen? Dokazu zjistit jen UP teto klavesy, ale to uz je pozde.

Ahoj,

a k cemu to ma byt dobre ?

> A jeste jeden dotaz: Da se poslat pomoci TJCLEmail mail tak, aby se nulozil
> do odeslane posty?

Ne, resp. to zalezi na nastaveni daneho postovniho klienta. Moznost vyvolat
toto explicitne je navic vcelku nezadouci, protoze by tak slo snadno poslat
mail bez vedomi uzivatele a mozne zpetne kontroly.

Petr Vones, amatersky programator


ListView

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

From: "Hejna Martin, PRAHA" <hejnam(zv)praha.comsoft(tec)cz>
> Jedna se o to, ze pokud mam t list view nastaven na vsReport a MultiSelect
> je True a implementuji vlastni udalost OnCustomDrawItem (viz vypis).

Ahoj,

v jake verzi Delphi ?

Petr Vones, amatersky programator

Problem WinNT, TeeChart, IEEE 488...

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.4.2001 04:43:09

From: "Infra Red" <nezadal(zv)volny(tec)cz>
> pri druhem pruchodu cyklem zpusobi pridani dat do 2. grafu chybu
> EInvalidPointer Operation. K chybe nedojde, pokud odstranim
> Application.ProcessMessages (potrebuji aby byly funkcni ovladaci prvky

Ahoj,

pouziti Application.ProcessMessages muze byt problemove a ve vetsine pripadu
je navic zcela neopodstatnene. Pokud potrebujes prekreslit ovl.prvky tak volej
jejich metodu Repaint. Idealni by asi bylo napsat kod komunikace, tedy cteni
dat z pristroje do samostatneho threadu, a z neho jakmile jsou k dispozici
data vhodna pro zobrazeni tyto predat a zobrazit v hlavnim threadu aplikace.

Petr Vones, amatersky programator

HTTP/1.1

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 13.4.2001 06:56:32

Musi to vypadat takto
GET / HTTP/1.1
Accept: */*
Connection: Keep-Alive
Host: www.pocketpc(tec)cz

tj musi tam byt uveden Host ve verzi HTTP 1.1 na ktereho se konektujes

-----Original Message-----
From: Michal K�rka [mailto:kurkami(zv)volny(tec)cz]
Sent: Thursday, April 12, 2001 7:10 PM
To: Delphi Konference
Subject: HTTP/1.1


Pot�ebuji poradit s t�mto probl�mem:
Kdy� na server (Apache) pos�l�m po�adavek 'GET / HTTP/1.1'+cr+'Accept:
*/*'+cr+'Connection: Keep-Alive'+cr+cr (kde cr = #13#10), vr�t� se mi
chybov� hl�#ka 400 - Bad request. Jestli�e zam�n�m verzi protokolu na
HTTP/1.0, v#e funguje, jak m�. J� v#ak pot�ebuji, aby server spojen�
neukon�il, proto chci pou��t verzi 1.1.
Nev�te, kde d�l�m chybu?

D�ky
Mike


TListBox a OnChange

[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 13.4.2001 07:16:40

Pokud se nemilim, tak OnClick odchytava kliknuti mysitka na ListBox jako
takovy.
V kazdem pripade jsem to vyresil tak, ze jsem si odvodil jednoduchou
komponentu od TListBox, a v ni reaguju prave na OnClick a na OnKeyDown, ve
kterych testuju, jestli je ItemIndex ruzny od toho predchoziho, ktery mam
ulozeny v promenne. Pokud ano, vyvolam OnChange.

Petr

>
> Ale to predsa robi OnClick.
>
> MarCaNT
>
> > Zdravim,
> > nevite nekdo, jestli se da nejak jednoduse implementovat
> udalost OnChange


Zaokrouhleni realneho cisla - jeste jednou

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.4.2001 07:26:14

A kdyz to cislo bude zaporne ?

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

13.4.2001 Jan Skopov�:
> Result := Int(cislo*10+0.9)/10;

> Jan Skopovy


Pripojeni na MS SQL server

[*] Ren� Otisk - 13.4.2001 07:34:40

Zahod BDE a taky DSN v ODBC pokud to lze. Jinak si najdi v archivu odkaz na
ODBCe a zkus se na to mrknout.

Sroub

> Zdravim vsechny.
> Potreboval bych poradit s nasledujicim problemem. Mam databazi na MS SQL
> serveru. Pres moji aplikaci v Delphi se na ni pripojuji pres ODBC, kde si
> vytvorim alias v systemovem DSN a pres BDE, kde v Databaze exploreru
> nastavim alias pro SQL server a jeho ODBC DSN na muj alias v ODBC. Takto
mi
> to funguje, ale pripada mi to prilis slozite. Nevite nekdo, jak vynechat
> ODBC a rovnou vytvaret alias jen v Databaze exploreru nebo BDE
> Administratoru ? Pro interbase to funguje, ze se nastavi pouze LangDriver
a
> Databaze Name cesta k dane databazi. Pro MS SQL server mi to nefunguje.
>
> Diky za vsechny vase napady.
>
> Filip


AT nebo service

[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.4.2001 06:40:05



> BTW: a services snad funguji na Win9x? (ted me nechytejte za slovo, mam na
> mysli skutecne services)

Normalne samozrejme ne, ale napr. ja pouzivam na service jeden framework
(je sice hodne starej (od d2) ,ale slape k naproste spokojenosti) ktery je udelany
tak ze kdyz pustis exe service s parametrem debug tak sam v sobe nasimuluje
service manager a tu sluzbu spusti.

Je to idealni na ladeni (rovnou v Delphi) a v tomto modu ta sluzba bezi i na W9x
(nikdo to asi nebude nasazovat produkcne ,ale pro ladeni je to dobre pouzitelne)


Radek Voltr


Pripojeni na MS SQL server

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.4.2001 07:53:18

> Potreboval bych poradit s nasledujicim problemem. Mam databazi na MS
> SQL serveru. Pres moji aplikaci v Delphi se na ni pripojuji pres ODBC,
> kde si vytvorim alias v systemovem DSN a pres BDE, kde v Databaze
> exploreru nastavim alias pro SQL server a jeho ODBC DSN na muj alias v
> ODBC. Takto mi to funguje, ale pripada mi to prilis slozite. Nevite
> nekdo, jak vynechat ODBC a rovnou vytvaret alias jen v Databaze
> exploreru nebo BDE Administratoru ?

Ahoj,

ja se sice taky pripojuji k nazoru, ze lepsi by bylo pouzit ODBCe
nebo ADO - viz paralelni prispevky, ale k tomu BDE - ja jsem to
resival tak, ze jsem jen vytvoril ODBC DSN a na BDE jsem vubec
nesahal. Tj. v BDE Adminu jiz neni treba delat vubec nic. ODBC
DSN jsou dostupne z komponenty TDatabase primo, i bez BDE
aliasu.

Pokud se tyka ODBCe, to ma vyhodu i v tom, ze se snadno
pripojis i bez DSN, tj. vsechny potrebne udaje lze zadat primo do
komponenty ODBCDatabase. U BDE se mi pripojit bez DSN
nepovedlo, i kdyz nevylucuji, ze v tom byla jen neznalost.

David Lebeda


"Prkotina"

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 13.4.2001 08:09:17

Zkus pouzit treba tohle. Ja to pouzivam dost casto.

procedure BreakApart(const S : string; const Delimiter : Char; var Result :
TStringList);
var
i : integer;
Str : string;

begin
Result.Clear;
Str := S;
if copy(Str,Length(Str),1) <> Delimiter then
Str := Str + Delimiter;
repeat
for i := 0 to Length(Str) do begin
if Str[i] = Delimiter then begin
Result.Add(copy(Str,1,i - 1));
Str := copy(Str,i + 1,Length(Str));
Break;
end;
end;
until Length(Str) = 0;
end;

Milan Tomes

> Zdar
> Prominte, ze vas obtezuju s opravdou blbosti, ale nejak me nic nenapada:
>
> Mam string ve tvaru: 0|1|xxx
> Potrebuju z nej vytahnout cislo 1, ale zrada je v tom, ze to cislo muze byt
> i vetsi nez 1, takze muze byt napr. 0|255|xxx , takze funkce Copy() zde
> nelze pouzit, nebo ano?
> Sem asi uplne tupej, ale zkuste to vymyslet



© Netcode.cz, 2008-9. Doporučujeme portál delphi.cz