Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 27.5.1999 18:31:14
>Nebylo by lepsi k zaokrouhlovani pouzit funkci Round?
>Problem je asi v tom, ze cela realna cisla nejsou v pameti ulozeny presne,
>takze ani nula neni nikdy 0.
>Michal Bozon
Cela realna cisla samozrejme nejsou ulozena presne, ale
1) currency je implementovano jako 64 bitovy integer s posunutou desetinnou
carkou
a 4 mista (to je udelano tak, ze napriklad 2*2 se ve skutecnosti pocita jako
20000*20000/100000000 tzn. ze kompilator provadi automaticky korekce
pokud by doslo ke zmene radu - moje prvni zprava obsahovala
priklad vyrazu variant=currency*currency, kdy to prekladac "zapomnel"
udelat)
V zasade by pak nemelo k zadnym chybam dochazet (nula je v currency vzdy 0).
Smyslem meho pocinani zde bylo varovat, ze tomu tak neni vzdy :-(
2) Round by uvedene problemy nemel mit, ale az sesmolim tu zpravu o
duvodech problemu a dusledcich, tak te presvedcim, ze Round dokaze fungovat
jako Trunc (myslim tim ze vraci uplne stejne vysledky a nedela tedy
vubec to co ma (Hmmmm co ma vlastne Round delat? (viz dale))) !!!!
3) nekdy clovek proste potrebuje provest Trunc a nikoliv Round
Priklad?
kdyz chci matematicke zaokrouhlovani (nejblizzi cele cislo)
a nikoliv zaokrouhlovani na nejblizzi cele SUDE cislo jak standardne
funguje standardni Round:
function CRound(C: currency): integer;
{standard Round rounds to nearest even number:
C Round CRound
-1.5 -2 -2
-2.5 -2 -3
1.5 2 2
2.5 2 3
3.5 4 4
4.5 4 5}
begin
if C>=0 then
Result:=CTrunc(C+0.5) {CTrunc viz predchozi maily}
else
Result:=CTrunc(C-0.5);
end;
Mimochodem tohle chovani Round je taky dost zajimave:
v Delphi 3 bylo jeste v helpu napsano ze to zaokrouhluje matematicky
a az v Delphi 4 je "zdokumentovano", ze to zaokrouhluje na suda cisla.
Takze to neni CHYBA, ale FUNKCE....
Rob
DOS text capture
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 27.5.1999 17:58:53
To by mne zajimalo, jak to bude fungovat
pod Woknama ?
> From: "Bohumil Mi�ka" <bm(zv)isternet.sk>
> Znaky dosovskeho okna su ulozene vo videopamati na adrese b800h:0000,
> alebo za urcitych okolnosti na adrese b000h:0. Kazde pismenko tam ma vyhradene
> dva bajty, horny su atributy, dolny je ascii hodnota pismenka.
>
> Alebo pomocou preruseni video ( int 10h, ah = 8 ), co je mozno cistejsie.
>
> Bohumil Micka
>
> *********** REPLY SEPARATOR ***********
>
> On 27.5.1999 at 8:06 sup(zv)svitap(tec)cz wrote:
>
> >Ahoj lidi...
> >
> >Mam malinkaty problemecek: potreboval bych udelat capture dosovskyho
> >okna/screenu, ale v textovem tvaru... Poradte, jak na to. D3 Profi.
> >
> >Diky predem
> >
> >PS: Potrebuji to udelat programove, ne pres Ctrl+C, Ctrl+V.....
> >
> >Jaroslav Weiss
> >odd. informatiky
> >
> >SVITAP J.H.J. s.r.o.
> >Kijevska 6-8
> >SVITAVY
> >568 02
> >
> >tel: ++420-461-568 202
> >fax: ++420-461-568 300
> >E-mail: sup(zv)svitap(tec)cz
> >URL: www.svitap(tec)cz
> >FTP: ftp.svitap(tec)cz
>
>
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Thready a internet
[*] Jan Pukovec <pukovec2(zv)edunet(tec)cz> - 27.5.1999 19:07:58
Cau lidi,
mam takovy docela velky problem. Uz mne stve Internet Explorer a slozite
nastavovani proxy serveru, takze jsem uvazoval, ze si vytvorim svuj vlastni
web browser. Pro jedno okno je to docela jednoduchy, horsi uz to ale je
udelat multithreadove, tak aby to fungovalo treba pro tricet oken - at zije
poradna zatez :-) Myslite ze je to vubec mozne ? Chtel bych docilit toho,
abych byl rychlostne omezovan v podstate jenom prenosovou rychlosti a ne
procesorem - zkousel jsem neco s threadama udelat, ale uz i pri trech
threadech byl procesor P II na 100% a ostatni aplikace se nechtely hybat.
Nejdulezitejsi pro mne prozatim je pouzivat metody GET a POST protokolu
HTTP.
Dokazal by tedy nekdo nejaky multithreadovy browser sestrojit nebo mate
alespon jeho cast jiz naprogramovanou ? Byl bych vam strasne vdecny.
Diky za brzkou odpoved.
Jan Pukovec
pukovec2(zv)edunet(tec)cz
SELECT s LIKE
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 27.5.1999 20:25:31
Zdravim vsechny,
prosim Vas nevite nahodou nekdo, jak se da v paradoxovske databazi pouzit
SELECT s castecne zadanou hodnotou parametru ?
Mam na mysli napriklad
SELECT * FROM PACIENTI
WHERE JMENO LIKE "N*" apod.
Dekuji predem,
Zden�k Moravec zmo(zv)telecom(tec)cz
Ochrana programu (uz zase ;-)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.5.1999 20:35:51
Puvodni zprava, kterou napsal Erik Salaj dne 26 May 99,:
> Co sa tyka low level formatu, neviem ci je to dobre pre harddisk. Pocul
> som o tom vselico ale skusenosti s tym nemam.
Musi to byt rozumny low level formatovaci program dodany primo
vyrobcem toho ktereho disku. Pokud nekoho napadne low level
naformatovat disk tim, co je v biosu, nebo nejakym cizim
softwarem, tak je velke stesti, pokud to pak jeste funguje
dobre. V horsim pripade se snizi zivotnost disku nebo dokonce
rovnou znici disk...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
virtual vs. dynamic
[*] Mirun <forcom(zv)telecom(tec)cz> - 27.5.1999 21:43:40
Strucne receno je virtualni metoda kopirovana do VMT kazdeho potomka, odkud
se pak vybira rychle dle indexu. Dynamic metoda se dohledava zpetne v
nejblizsi aktualni nebo predchozi tride, tzn. ze zabira mene pameti, ale
jeji pristupova doba je delsi nez u virtual metody.
Vseobecne vzato je lepsi pouzivat virtual u metod, u kterych se pocita z
castou modifikaci u potomku - kdezto definovat metodu jako dynamic se
vyplati tam, kde se s override pocita pouze zridka.
Mirun
----- Original Message -----
From: Robert Kindl <rob(zv)optimal(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 27, 1999 6:02 PM
Subject: Re: virtual vs. dynamic
> >neumel byste mi negdo vysvetlit, jakej je vlastne rozdil mezi tim, kdyz
> >nadeklaruju metodu jako virtual nebo dynamic ... podle mych empirickych
> >zkusenosti se mi zda, ze je to jedno ... ale asi to tak neni ... co ...?
> >Jirka
>
> Dynamic metodu nelze pouzit pri deklaraci property komponenty jako
SetXXXX,
> GetXXXX nebo IsXXXX
>
> Priklad:
>
> type
> TNeco = class (TObject)
> protected
> function GetText: string; virtual; {tak tady to nemuze byt dynamic}
> public
> property Text: read GetText;
> end;
>
> Rob
>
>
>ExtractIcon
[*] Straka Josef <kshb(zv)seznam(tec)cz> - 27.5.1999 21:44:46
P��jemn� den,
m�m jeden dotaz ohledn� funkce ExtractIcon.
Neum�m pou��vat tuto a podobn� funkce (ShellExecute).
M�m Delphi 4 a p�i kompilaci mi hl�s�, �e funkce nen�
deklarov�na. Jin� funkce funguj�, nap�. ExtractFilePath.
M��ete mi n�kdo pomoci kouskem funk�n�ho zdroj�ku?
Zkou�el jsem tohle:
procedure TForm1.FormCreate(Sender: TObject);
begin
{chci zjistit, kolik obsahuje soubor Ikony.icl ikon}
Edit1.Text := ExtractIcon(MainInstance, 'Ikony.icl', -1);
end;
Straka Josef
za��naj�c� amat�rsk� program�tor
strakaj(zv)hba(tec)czn(tec)cz
http://freeweb.coco(tec)cz/strakaj/index.html
virtual vs. dynamic
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 27.5.1999 21:47:13
Podrobne to bylo vysvetleno nekde u TP6 nebo kde, kdyz zacaly metody "dynamic".
Nevim, jestli se mi to podari vysvetlit na trech radcich a taky si to uz uplne presne nepamatuju:
Kazda trida ma svou VMT (virtual method table, mimochodem, alespon v TP ukazoval pointer TypeOf(..) na tuto tabulku, v Delphi jsem se tim nezabyval).
V teto tabulce jsou odkazy (adresy) prislusnych virtualnich metod. Pokud je jich hodne, je i tabulka velka. Jsou tam odkazy bez ohledu na to, zda byla metoda prepsana ("override") nebo ne.
Odkazy na metody "dynamic" v tabulce nejsou, ale program v runtime prohlizi VMT predku tak dlouho, az odkaz na tuto metodu najde.
Jo, to byvaly casy, kdyz jsme jeste presne vedeli, kde co lezi a jak co funguje... Dokonce jsem zkousel do VMT sahat a v runtime tam menit odkazy. Dnes bych si to uz netroufnul.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jirka Fejfar <fejfarj(zv)iol(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> P�edm�t: virtual vs. dynamic
> Datum: 27. kv�tna 1999 16:54
>
> Ahoj vsichni,
>
> neumel byste mi negdo vysvetlit, jakej je vlastne rozdil mezi tim, kdyz
> nadeklaruju metodu jako virtual nebo dynamic ... podle mych empirickych
> zkusenosti se mi zda, ze je to jedno ... ale asi to tak neni ... co .....?
>
> diky ...
>
> Jirka
SELECT s LIKE
[*] Jaro <jaro(zv)sinea(tec)cz> - 27.5.1999 22:09:03
% (procento) - libovolny pocet libovolnych znaku, tj. jako hvezdicka
_ (podtrzitko) - jeden libovolny znak, tj. jako otaznik
Jaro
>Zdravim vsechny,
>prosim Vas nevite nahodou nekdo, jak se da v paradoxovske databazi
pouzit
>SELECT s castecne zadanou hodnotou parametru ?
>
>Mam na mysli napriklad
>SELECT * FROM PACIENTI
>WHERE JMENO LIKE "N*" apod.
>
>Dekuji predem,
>Zden�k Moravec zmo(zv)telecom(tec)cz
>
>koupe Delphi 3 Standard
[*] Jaro <jaro(zv)sinea(tec)cz> - 27.5.1999 22:12:24
Kubat na konfetrence o Delphi tvrdil, ze i kdyz to neni v ceniku,
tak dohada mozna je a pry to lze udelat.
Jenom naprosto nechapu motiv ke koupi D3 standard ???
Jaro
>Lze jeste nyni koupit oficialne (s dokladama) D3 Standard?
>Dival jsem se do ceniku borland(tec)cz a tam je pouze D4.
>
>Dik za info
>
>===========mozno pouzit PGP==============
>Richard Valny richard.valny(zv)oku-st(tec)cz
>Okresni urad Strakonice tel. 0342-441 l. 216
>Smetanova 533 fax. 0342-21208
>386 22 STRAKONICE FiDoNet 2:423/35
>===========mozno pouzit PGP==============
>
>... Windows nemohou byti virem, nebot virus je napsan inteligentne a
neco dela
>filter
[*] Jaro <jaro(zv)sinea(tec)cz> - 27.5.1999 22:37:31
No to jsou asi nejake bludy.
Petrovi vubec nerozumim, protoze
Query.RecordCount je metoda TQuery
a rozhodne pracuje na klientovi.
Pocita zaznamy dodane do datasetu, treba ze serveru
nebo i z lokalnich tabulek.
Se serverem nema spolecneho vubec nic.
Pocita se to na klientovi a ne na serveru.
To je taky jeden z duvodu,
proc je to tak pomala metoda. Dalsim duvodem je
ze pri Open se nemusi natahnout vsechna data
najednou, zatimco RecordCount si to vynuti.
Martinovu (i Radkovu) radu pouzit Query.RecordCount na zjisteni
zda dotaz s podminkou WHERE vratil nejake zaznamy
povazuji za velmi nevhodny zpusob. Zejmena pro vetsi
objemy ziskanych dat je to moc pomale.
RecordCount je totiz metoda a fyzicky secte vsechny vety
na DataSetu, tudiz na klientovi. Tato operace zpravidla
trva mnohem dele, nez vlastni otevreni dotazu.
Vyrazne rychlejsi je provest jeste jeden dotaz
SELECT Count(*) FROM stejna tabulka WHERE stejna podminka.
Takovy dotaz trva nejakou tu sec., zatimco zmineny RecordCount
muze pro dataset naplneny tisici zaznamy trvat desitky sec. az minuty.
Pokud ovsem potrebuji pouze informaci,
zda se vubec nejake zaznamy vybraly, pak staci jen podminka Eof
nebo IsEmpty, jak uvedl Petr.
Jaro
-----Puvodni zprava-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 27. kvetna 1999 10:06
Predmet: RE: filter
>Query.RecordCount nefunguje na SQL servrech spravne
>(aspon Informixu) dokud neskocis na posledni zaznam
>a to muze trvat delsi dobu, kdyz je SQL slozitejsi.
>Proto pres Query.IsEmpty je to podle me rychlejsi
>a jednodussi.
>Petr
>
>-----Original Message-----
>From: Martin Lasevic [mailto:vyvoj(zv)atlascon(tec)cz]
>Sent: Thursday, May 27, 1999 8:57 AM
>To: 'delphi-l(zv)fwd(tec)cz'
>Subject: RE: filter
>
>
>Jednoduse. Pokud je to Query otevrene pres Query.Open, pak je to
>Query.RecordCount.
>Urcuje pocet zaznamu, ktere vyhovuji podmince.
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>mailto:+420603338765(zv)sms.paegas(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>-----Puvodni zprava-----
>Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
>Odeslano: 27. kvitna 1999 8:38
>Komu: delphi-l(zv)fwd(tec)cz
>Poedmit: filter
>
>zdravim
>
>Mam komponentu Query. Ak pouzijem sql s filtrom WHERE a spustim
QUERY,
>ako
>zistim ale v kode, ci nasiel zaznamy ktore where vyhovuju.
>
>ponahla.
>
>
>vdaka
>
>Martin
>
SELECT s LIKE
[*] Cerny Roman <cerny.roman(zv)atlas(tec)cz> - 27.5.1999 22:43:58
je to stejne jako jsi to popsal akorat misto hvezdicky jsou tam procenta
napr. WHERE JMENO LIKE "N%"
-----P�vodn� zpr�va-----
Od: Zden�k Moravec <zmo(zv)telecom(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 20:55
P�edm�t: SELECT s LIKE
>Zdravim vsechny,
>prosim Vas nevite nahodou nekdo, jak se da v paradoxovske databazi pouzit
>SELECT s castecne zadanou hodnotou parametru ?
>
>Mam na mysli napriklad
>SELECT * FROM PACIENTI
>WHERE JMENO LIKE "N*" apod.
>
>Dekuji predem,
>Zden�k Moravec zmo(zv)telecom(tec)cz
>
>
koupe Delphi 3 Standard
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.5.1999 23:11:05
Richard Valny wrote:
>
> Lze jeste nyni koupit oficialne (s dokladama) D3 Standard?
> Dival jsem se do ceniku borland(tec)cz a tam je pouze D4.
Ahoj,
V Belohrade p.Kubat tvrdil, ze pokud ma nekdo enormni zajem, tak je schopen
zajistit oficialni koupi jakehokoliv Borland produktu. Nicmene nechapu proc
tak lpis na D3, cena D4 je podobna, navic tak budes mit moznost se rychleji
seznamit s novymi vlastnostmi. Pravda je, ze Delphi 4.00 bylo ponekud vice
zabugovane nez byvalo u Borlandu zvykem, ale po Update Packu #3 je to jiz
myslim na stejne urovni jako predchozi verze.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
DAO
[*] Cerny Roman <cerny.roman(zv)atlas(tec)cz> - 27.5.1999 23:18:11
Ahoj Vsem
Mam zase malicky problem s pristupem k objektum pres DAO. Potrebuji pridat objekt PROPERTY do kolekce PROPERTIES objektu TABLEDEF a nevim jak spravne postavit procedureru createproperty(jmeno,typ,hodnota,dedeni)
myslim ze problem je v tom typu nedokazu to presvedsit na dbtext
Za kazdou radu samozdrejme predem dekuji
ExtractIcon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.5.1999 23:23:11
Straka Josef wrote:
>
> P��jemn� den,
> m�m jeden dotaz ohledn� funkce ExtractIcon.
> Neum�m pou��vat tuto a podobn� funkce (ShellExecute).
> M�m Delphi 4 a p�i kompilaci mi hl�s�, �e funkce nen�
> deklarov�na. Jin� funkce funguj�, nap�. ExtractFilePath.
> M��ete mi n�kdo pomoci kouskem funk�n�ho zdroj�ku?
> Zkou�el jsem tohle:
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> {chci zjistit, kolik obsahuje soubor Ikony.icl ikon}
> Edit1.Text := ExtractIcon(MainInstance, 'Ikony.icl', -1);
> end;
Ahoj,
Tahle funkce je deklarovana v unitu ShellAPI, musis jen pridat do uses
v implementation sekci:
implenentation
uses
ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
.
.
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Zase jednou TTreeview
[*] PAC <apscomp(zv)login(tec)cz> - 27.5.1999 23:30:56
Zdravim vsechny konferenciery.
Netusite nekdo jak dosahnout kontroly zadavaneho textu pri pouziti
metody EditText u TTreeView?
Potrebuji zkontrolovat zadavany nejlepe jiz v prubehu jeho psani (resp.
jeho delku) a pred koncem provest jeste nejake kontroly. V pripade, ze
text nevyhovi kontrole, chtel bych uzivatele soupnout znova do modu
EditText. Pomoci OnKeyPress, OnEditing a OnEdited se mi to ne a ne podarit.
Diky vsem
Pavel Cink Elipsa se sikmou osou
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 28.5.1999 06:58:43
Ale to musi byt strasne pomale !
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
> Odesl�no: 28. kv�tna 1999 7:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Elipsa se sikmou osou
>
>
> Ahoj,
>
> zcela urcite to jde, nicmene funkce Ellipse ani Arc to nezvladne.
> Musis
> si vzit parametrickou rovnici, prepocitat ji pomoci matice rotace a
> pekne bod po bodu namalovat.
>
> **********************************************************************
> **
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> **********************************************************************
> **
> *******************************
>
>
> > -----P�vodn� zpr�va-----
> > Od: Michal Bozon [SMTP:bozon(zv)natur.cuni(tec)cz]
> > Odesl�no: 27. kv�tna 1999 11:28
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t:
> >
> > Potreboval bych vedet, jestli jde nakreslit elipticky oblouk, ale
> > takovy,
> > aby hlavni osa elipsy nebyla rovnobezna s osou x (nebo y). Normalni
> > funkce
> > Ellipse nakresli vzdy elipsu, jejiz osa je vodorovna. Stejne tak
> Arc.
> > Ten
> > nakresli elipticky oblouk, tedy cast elipsy ktera je opet
> rovnobezna.
> >
> > Michal Bozon.Databaze(zaklad)
[*] daniel.hrna(zv)vm.sme(tec)cz - 28.5.1999 07:15:00
Zdravim vsechny,
chci se zeptat, nikdo mi neodpovedel na muj asi zacatecnicky dotaz ohledne
databazi.
1. Plnit databaze umim vlastnim oknem. Horsi je to se zobrazenim. Mam ho
pomoci FormWizardu a pri OnShow si zavolam dalsi okno, kde je DBMemo, kdyz
pak klepnu na vetu, kde je nejaka poznamka (memo), chtel bych, aby mi to v
tom mem oknu s DBMemo zobrazovalo MEMO z databaze. Aby to fungovalo pri
prechodu na jinou vetu (asi onChange) Jak to mam udelat?
2. Mam v DBF sloupec KM(integer) a VYKON(integer). Chtel bych co
nejjednoduseji nastavit filter na VYKON a ze sloupce KM najit MAX cislo.
Poradte mi nekdo, jak to udelat ...
3. No aposledni dotaz. Vyhledavani v DBF. Zkusil jsem vlozit FindDialog, ale
nejak jsem se zamotal. Jak mam pres tuto komponentu najit v databazi treba
souhlasnou cast textu a tu pak zobrazit. Treba mam jmena a jejich adresy.
Chci najit vsechny "Daniely", vlozim do FindDialogu.FindText:='Dan' a chci
najit vsechny Daniely, Dany. Jak to bude nejjednodusi.
4. Je tady nekdo na koho bych se mohl obracet, treba na primy e.mail,
ohledne mych dotazu s DBF, byl bych moc vdecny, protoze takovych MINI-Dotazu
mam vic. Asi by mi to hodne pomohlo.
Dik za kazdou odpoved ....
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
DOS text capture
[*] sup(zv)svitap(tec)cz - 28.5.1999 7:19:30
>Ahoj,
>
>Znaky dosovskeho okna su ulozene vo videopamati na adrese b800h:0000,
>alebo za urcitych okolnosti na adrese b000h:0. Kazde pismenko tam ma vyhradene
>dva bajty, horny su atributy, dolny je ascii hodnota pismenka.
>
>>Ahoj lidi...
>>
>>Mam malinkaty problemecek: potreboval bych udelat capture dosovskyho
>>okna/screenu, ale v textovem tvaru... Poradte, jak na to. D3 Profi.
>>
>>Diky predem
>>
>>PS: Potrebuji to udelat programove, ne pres Ctrl+C, Ctrl+V.....
>>
Tak jsem si udelal malinkej programek na cteni pameti cizich procesu:
var
buff:array[0..32000] of char;
a,w1,w2:dword;
pa,pbuff:pointer;
b:boolean;
begin
w1:=4096;
a:=$b800;
pa:=ptr(a);
pbuff:=(zv)buff;
HWnd1:=FindWindow (nil,DOS); // DOS:='nazev_okna_DOS'
b:=ReadProcessMemory(hwnd1,pa,pbuff,w1,w2);
if b then richedit1.SetSelTextBuf(pbuff);
ale v buff je furt jenom houf #0.. :-(((
Poradi mi nekdo, kde delam chybu ci proc to nejede ???
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Thready a internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.5.1999 07:29:43
>Cau lidi,
>mam takovy docela velky problem. Uz mne stve Internet Explorer a slozite
>nastavovani proxy serveru, takze jsem uvazoval, ze si vytvorim svuj vlastni
>web browser. Pro jedno okno je to docela jednoduchy, horsi uz to ale je
>udelat multithreadove, tak aby to fungovalo treba pro tricet oken - at zije
>poradna zatez :-) Myslite ze je to vubec mozne ? Chtel bych docilit toho,
>abych byl rychlostne omezovan v podstate jenom prenosovou rychlosti a ne
>procesorem - zkousel jsem neco s threadama udelat, ale uz i pri trech
>threadech byl procesor P II na 100% a ostatni aplikace se nechtely hybat.
V tom pripade mas thready spatne napsane - asi zerou naprosto zbytecne vykon
CPU.
Pravdepodobne mas v threadech nejake smycky, ktere zatezuji CPU. Veskera
cekani na prichod / odchod dat musi byt zrealizovana pomoci funkci typu
select/WSAAsyncSelect/WaitForObject,...
>Nejdulezitejsi pro mne prozatim je pouzivat metody GET a POST protokolu
>HTTP.
>Dokazal by tedy nekdo nejaky multithreadovy browser sestrojit nebo mate
>alespon jeho cast jiz naprogramovanou ? Byl bych vam strasne vdecny.
Filozofie browseru je pomerne hodne jednoducha (spokojis-li se s HTTP/1.0
resp. nebudes-li podporovat persistent connections). Jediny problem je
podle me v HTML parseru. Dostat data ze serveru je trivka, ale jak je
zobrazit to uz je jina.
Zdravi
D. Toman
databaze
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 28.5.1999 07:42:21
Jan Pomikalek napsal(a) toto:
> mel bych nekolik dotazu ohledne databazi v Delphi. Pouzivam
> nasledujici propojeni TDBGrid - TDataSet - TTable. Problemy jsou
> nasledujici:
>
> 1) Jak jednoduse seradit zaznamy v TTable podle nejakeho konkretniho
> pole zaznamu, pripadne, jak nastavit, aby se tabulka automaticky
> radila (pri pridani dalsiho zaznamu)? Samozrejme bych si na to umel
Nadefinovat si v tabulce prislusne indexy, a pak jen rict, jaky ma
pouzivat. (table.indexname, pripadne table.indexfiedlds)
> napsat nejaky algoritmus - treba nastrilet vsechny zaznamy v tabulce
> do spojoveho seznamu, ten setridit bubble-sortem a vratit to zpet,
Brrrrrr, to by sice bylo mozne, ale kdo by se s tim delal, kdyz se tabulka
dokaze tridit sama (a dokonce podle nekolika ruznych indexu...).
> 2) Jak vymazat aktualni zaznam v TDBGrid bez pouziti takove te
> navigacni listy (nevzpominam si presne na nazev)? Jedine, co me zatim
> po radnem prohrabani se helpem napadlo, bylo pouzit vlastnosti
> TDBGrid.SelectedField, ktera vraci oznacene pole. Ja bych ale
A proc nepouzijes metody table.delete? Ta prece smaze cely aktualni radek.
Asi jsi se v tom helpu spatne dival....
> potreboval celou aktualni radku, abych se pak pomoci metody
> TTable.Locate mohl na dany zaznam presunout a nasledne ho vymazat.
> Jedno pole mi nestaci, protoze nemam jistotu, ze se ve sloupci
> nevyskytuje vice poli se stejnou hodnotou. Navic mam takove tuseni,
> ze oznacovat se da i pomoci trojuhelniku v uplne levem sloupci, aniz
> by bylo oznaceno jakekoli konkretni pole v TDBGrid.
Asi by bylo dobre si uvedomit, ze DBGrid v podstate slouzi jen pro
prezentaci dat (tj. zobrazeni). Veskera prace s daty se vsak deje jen a
pouze pomoci Table pripadne Datasource. (Vsimni si taky, ze i ten
navigator nepripojujes na dbgrid, ale na datasource, ktery je napojeny na
table. Takze kdyz napriklad zmenis neco v tabulce primo pomoci jejich
metod (smazani vety, prechod na jinou, zmena apod.), okamzite se ti zmeny
objevi i v dbgrid.
P.S. mluvim samozrejme o pouziti lokalnich databazich (Paradox).
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
Elipsa se sikmou osou
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 28.5.1999 06:43:11
Ahoj,
zcela urcite to jde, nicmene funkce Ellipse ani Arc to nezvladne. Musis
si vzit parametrickou rovnici, prepocitat ji pomoci matice rotace a
pekne bod po bodu namalovat.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************> -----P�vodn� zpr�va-----
> Od: Michal Bozon [SMTP:bozon(zv)natur.cuni(tec)cz]
> Odesl�no: 27. kv�tna 1999 11:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t:
>
> Potreboval bych vedet, jestli jde nakreslit elipticky oblouk, ale
> takovy,
> aby hlavni osa elipsy nebyla rovnobezna s osou x (nebo y). Normalni
> funkce
> Ellipse nakresli vzdy elipsu, jejiz osa je vodorovna. Stejne tak Arc.
> Ten
> nakresli elipticky oblouk, tedy cast elipsy ktera je opet rovnobezna.
>
> Michal Bozon.Volne systemove prostredky
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 28.5.1999 08:06:04
Ahoj,
Je to GetFreeSystemResources(integer) nebo novejsi
GlobalMemoryStatus(lpBuffer).
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'DELPHI FORUM 98' <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 15:10
P�edm�t: Volne systemove prostredky
>Zdravim,
>
>Existuje nejaka WIN API funkce, ktera vraci aktualni stav systemovych
prostredku?
>Pokud ne, je nejak jina moznost jak na to?
>
>Diky za radu.
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>mailto:+420603338765(zv)sms.paegas(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>
>filter
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 28.5.1999 08:17:20
Promin. Jsem se spletl. Uz jsem RecordCount dlouho nepouzil.
Tak jsem zapomel, ze on si sam dopocita pocet radku
ve vyberove mnozine. Ale to ze to muze trvat, to je fakt.
Taky souhlasim s tim Tvym SELECT COUNT(*) FROM .... To totiz
pouzivam na zjisteni poctu i ja.
A kdyz jsme u toho. Da se nejak zabezpecit zobrazeni
radek/pocet_radku v SQL databaz (samozrejme, kdyz mam na formu
TDBGrid, jinak si to muzu pocitat sam)?
Petr
> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Thursday, May 27, 1999 10:38 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: filter
>
>
> No to jsou asi nejake bludy.
> Petrovi vubec nerozumim, protoze
> Query.RecordCount je metoda TQuery
> a rozhodne pracuje na klientovi.
> Pocita zaznamy dodane do datasetu, treba ze serveru
> nebo i z lokalnich tabulek.
> Se serverem nema spolecneho vubec nic.
> Pocita se to na klientovi a ne na serveru.
> To je taky jeden z duvodu,
> proc je to tak pomala metoda. Dalsim duvodem je
> ze pri Open se nemusi natahnout vsechna data
> najednou, zatimco RecordCount si to vynuti.
>
> Martinovu (i Radkovu) radu pouzit Query.RecordCount na zjisteni
> zda dotaz s podminkou WHERE vratil nejake zaznamy
> povazuji za velmi nevhodny zpusob. Zejmena pro vetsi
> objemy ziskanych dat je to moc pomale.
> RecordCount je totiz metoda a fyzicky secte vsechny vety
> na DataSetu, tudiz na klientovi. Tato operace zpravidla
> trva mnohem dele, nez vlastni otevreni dotazu.
> Vyrazne rychlejsi je provest jeste jeden dotaz
> SELECT Count(*) FROM stejna tabulka WHERE stejna podminka.
> Takovy dotaz trva nejakou tu sec., zatimco zmineny RecordCount
> muze pro dataset naplneny tisici zaznamy trvat desitky sec. az minuty.
> Pokud ovsem potrebuji pouze informaci,
> zda se vubec nejake zaznamy vybraly, pak staci jen podminka Eof
> nebo IsEmpty, jak uvedl Petr.
> Jaro
>
>
> -----Puvodni zprava-----
> Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 27. kvetna 1999 10:06
> Predmet: RE: filter
>
>
> >Query.RecordCount nefunguje na SQL servrech spravne
> >(aspon Informixu) dokud neskocis na posledni zaznam
> >a to muze trvat delsi dobu, kdyz je SQL slozitejsi.
> >Proto pres Query.IsEmpty je to podle me rychlejsi
> >a jednodussi.
> >Petr
> >
> >-----Original Message-----
> >From: Martin Lasevic [mailto:vyvoj(zv)atlascon(tec)cz]
> >Sent: Thursday, May 27, 1999 8:57 AM
> >To: 'delphi-l(zv)fwd(tec)cz'
> >Subject: RE: filter
> >
> >
> >Jednoduse. Pokud je to Query otevrene pres Query.Open, pak je to
> >Query.RecordCount.
> >Urcuje pocet zaznamu, ktere vyhovuji podmince.
> >
> >Preji hezky den .....
> >============================================
> >ML Software - Martin Lasevic
> >Budovatelska 459,
> >708 00 Ostrava - Poruba
> >tel.: + 420 (69) 691 85 11, 0603 338 765
> >mailto:ml_software(zv)email(tec)cz
> >mailto:+420603338765(zv)sms.paegas(tec)cz
> >http://www.mujweb(tec)cz/www/ml_software
> >ICQ:33630882
> >============================================
> >
> >-----Puvodni zprava-----
> >Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> >Odeslano: 27. kvitna 1999 8:38
> >Komu: delphi-l(zv)fwd(tec)cz
> >Poedmit: filter
> >
> >zdravim
> >
> >Mam komponentu Query. Ak pouzijem sql s filtrom WHERE a spustim
> QUERY,
> >ako
> >zistim ale v kode, ci nasiel zaznamy ktore where vyhovuju.
> >
> >ponahla.
> >
> >
> >vdaka
> >
> >Martin
> >
>
> DOS text capture
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 08:19:21
Je to jenom takova blba poznamka - mozna 'sem neco zle pochopil, ale
> w1:=4096;
> a:=$b800;
> pa:=ptr(a);
$B800 nebo cokoliv takhle urcovane, se domnivam, ze je (z 16bitu) SEGMENT a
ne offset. (tj. adresa zacatku v.ram by mela byt nekde od B8000 ($b800*16)
(pokud 'sem zle pochopil, pardon...)
Mti.
-----P�vodn� zpr�va-----
>>Znaky dosovskeho okna su ulozene vo videopamati na adrese b800h:0000,
>>alebo za urcitych okolnosti na adrese b000h:0. Kazde pismenko tam ma
vyhradene
>>dva bajty, horny su atributy, dolny je ascii hodnota pismenka.
>>
>>>Ahoj lidi...
>>>
>>>Mam malinkaty problemecek: potreboval bych udelat capture dosovskyho
>>>okna/screenu, ale v textovem tvaru... Poradte, jak na to. D3 Profi.
>>>
>>>Diky predem
>>>
>>>PS: Potrebuji to udelat programove, ne pres Ctrl+C, Ctrl+V.....
>>>
>
>Tak jsem si udelal malinkej programek na cteni pameti cizich procesu:
>
>var
> buff:array[0..32000] of char;
> a,w1,w2:dword;
> pa,pbuff:pointer;
> b:boolean;
>begin
> w1:=4096;
> a:=$b800;
> pa:=ptr(a);
> pbuff:=(zv)buff;
> HWnd1:=FindWindow (nil,DOS); // DOS:='nazev_okna_DOS'
> b:=ReadProcessMemory(hwnd1,pa,pbuff,w1,w2);
> if b then richedit1.SetSelTextBuf(pbuff);
>
>ale v buff je furt jenom houf #0.. :-(((
>
>Poradi mi nekdo, kde delam chybu ci proc to nejede ???
>
>Jaroslav Weiss
>odd. informatiky
>
>SVITAP J.H.J. s.r.o.
>Kijevska 6-8
>SVITAVY
>568 02
>
>tel: ++420-461-568 202
>fax: ++420-461-568 300
>E-mail: sup(zv)svitap(tec)cz
>URL: www.svitap(tec)cz
Chyba DELPHI
[*] delphi(zv)alf.dingo(tec)cz - 28.5.1999 06:19:43 gmt
Zdravim vsechny,
nevim, jestli to v konferenci uz bylo, nebo ne,
ale stava se to casno a skoro vsude.
Jde o to, ze nekdy pri spusteni Delphi se se objevy chyba poruseni ochrany,
byba ve VCL a ztrati se informace o nastaveni prac. plochy atd.
Nevite, cim to je? Da se to odstranit?
Dik moc.
Bob
Delphi 4 update #3
NT 4.0 SP 4
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 08:21:18
> -----Original Message-----
> From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
> Sent: Thursday, May 27, 1999 9:54 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Chyby pri vypoctech (Was: Chyba prekladace pri porovnani
> currency a variant)
>
> Uz nikdy nebudes verit vypoctu v Delphi (Windows)
> a vsem zakaznikum doporucis aby si
> vysledky prepocitavali na kalkulacce :-)
>
> Rob
>
:-)
Pouzivam Delphi inteligentne, takze zakaznikum nic takoveho doporucovat
nebudu.
Tvuj problem vznikl proto, ze pouzivas realny typ na miste, kde chces pouzit
integer.
Pripada mi to dost demagogicke.
Neni to chyba Delphi, ale programatora, jak uz napsali jini...
U Delphi vidim jiny nedostatek:
I kdyz je currency s pevnou radovou carkou, porad je to realny typ a nehodi
se k k vypoctu ordinalnich hodnot.
Currency bych nepouzival ze zasady, je to zmrseny typ, neni k nicemu dobry.
Misto aby borlandi zavedli osvedceny decimal, udelali currency. Currency by
se dal
pouzit leda tam, kde by bylo vhodne pouzit i extended, ale extended je
lepsi, protoze
ma plovouci carku. Takze currency je uplne naprd.
Podle nazvu je currency urcen k uchovavani peneznich castek. Toho bych se
bal.
Radeji bych pouzival k fancnim operacim integer, kde by byly castky v
halirich
(nebo v desetitisicinach koruny, tak jak to provadi currency). Dulezite je,
aby
se s tim pracovalo jako s ordinalnim typem (tedy ne obycejne, ale
celociselne deleni).
(reaguji az dnes, vcera jsem nebyl na svem pracovisti)
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!DOS text capture
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 08:22:56
Pardon , ze zase otravuju. Jeste jedna vec mi tam nesedi.
Neocekavaji veskere textove veci jen(!) text?
Protoze v txtrezimu je obrazovka implementovana jako
znak1,barva1,znak2,barva2....... tj. mozna by to chtelo nakonec jeste vzit
"jen" kazdy druhy a barvy tam cpat jinak :-)
Mti.
(a uz toho necham)
>>Znaky dosovskeho okna su ulozene vo videopamati na adrese b800h:0000,
>>alebo za urcitych okolnosti na adrese b000h:0. Kazde pismenko tam ma
vyhradene
>>dva bajty, horny su atributy, dolny je ascii hodnota pismenka.
>>
>>>Ahoj lidi...
>>>
>>>Mam malinkaty problemecek: potreboval bych udelat capture dosovskyho
>>>okna/screenu, ale v textovem tvaru... Poradte, jak na to. D3 Profi.
>>>
>>>Diky predem
>>>
>>>PS: Potrebuji to udelat programove, ne pres Ctrl+C, Ctrl+V.....
>>>
>
>Tak jsem si udelal malinkej programek na cteni pameti cizich procesu:
>
>var
> buff:array[0..32000] of char;
> a,w1,w2:dword;
> pa,pbuff:pointer;
> b:boolean;
>begin
> w1:=4096;
> a:=$b800;
> pa:=ptr(a);
> pbuff:=(zv)buff;
> HWnd1:=FindWindow (nil,DOS); // DOS:='nazev_okna_DOS'
> b:=ReadProcessMemory(hwnd1,pa,pbuff,w1,w2);
> if b then richedit1.SetSelTextBuf(pbuff);
>
>ale v buff je furt jenom houf #0.. :-(((
>
>Poradi mi nekdo, kde delam chybu ci proc to nejede ???
>
>Jaroslav Weiss
>odd. informatiky
>
>SVITAP J.H.J. s.r.o.
>Kijevska 6-8
>SVITAVY
>568 02
>
>tel: ++420-461-568 202
>fax: ++420-461-568 300
>E-mail: sup(zv)svitap(tec)cz
>URL: www.svitap(tec)cz
Chyba prekladace pri porovnani currency a variant
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 08:23:32
> -----Original Message-----
> From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
> Sent: Monday, May 24, 1999 12:09 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Chyba prekladace pri porovnani currency a variant
>
>
> Vazeni,
> nasledujici kus kodu vas presvedci ze 2*2 neni 4!
>
> var
> a: currency;
> v: Variant;
> begin
> a:=2;
> v:=4;
> if v=a*a then ShowMessage('2*2 jsou 4');
> if v=a*a/10000 then ShowMessage('2*2 nejsou 4');
> end;
>
> Tento program nenapise "2*2 jsou 4"!
> Pokud by snad nekdo argumentoval,
> ze porovnavat realna cisla primo se nema
> tak at vysvetli proc to "2*2 nejsou 4 se vypise"!
>
> A odpoved proc to tak je?
> a) protoze 2*2 nejsou 4
> b) protoze Delphi (verze 3.02 i 4.03) neumeji porovnat variant
> a vynasobene currency.
> Zapomenou totiz provest korekci soucinu vydelenim 10000.
> Proto druha podminka projde.
> c) vsechny ostatni duvody
>
> b) je spravne
> Takze POZOR NA TO!
>
> Rob
>
> PS:
> Zapinani/Vypinani "optimalizace" a "Pentium safe FDIV" nema vliv!
>
>
Nezklamals, je to chyba stejne kategorie jako obe predchozi :-).
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Query, UpdateSQL a vice tabulek
[*] delphi(zv)alf.dingo(tec)cz - 28.5.1999 06:24:30 gmt
Jeste jednou zdravim,
Nevite prosim vas nekdo jak na nasledujici problem?
Mam tri tabulky. Z nich sestavim SQLkem pozadovanou mnozinu.
Potrebuji, aby se dali editovat.
Pouzitim kesovane aktualizace a UpdateSQL se to podarilo,
ale jen pro jednu tabulku.
Jde nejak dokazat updatovat polozky ze vsech tri tabulek?
Diky predem za rady.
Bob
koupe Delphi 3 Standard
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 28.5.1999 08:28:46
> >
> > Lze jeste nyni koupit oficialne (s dokladama) D3 Standard?
> > Dival jsem se do ceniku borland(tec)cz a tam je pouze D4.
>
> Ahoj,
>
> V Belohrade p.Kubat tvrdil, ze pokud ma nekdo enormni zajem, tak je
schopen
> zajistit oficialni koupi jakehokoliv Borland produktu. Nicmene nechapu
proc
> tak lpis na D3, cena D4 je podobna, navic tak budes mit moznost se
rychleji
> seznamit s novymi vlastnostmi. Pravda je, ze Delphi 4.00 bylo ponekud
vice
> zabugovane nez byvalo u Borlandu zvykem, ale po Update Packu #3 je to jiz
> myslim na stejne urovni jako predchozi verze.
>
Shani to muj kamarad. Jde o to, ze ma vytvoren jakysi programek (puvodnejen
pro jeho potreby) jeste v Delphi3. Nyni se mu objevila moznost jej prodat
pod firmou ale ta neni vlastnikem Delphi3. Jedna se tedy o "legalizacni"
koupi.
Vzhledem k tomu, ze nevi co by ho potkalo pri kompilaci pod D4 rad by
Delphi3.
Lze prodat soft kompilovany pod verzi 3 kdyz jsem vlastnikem pouze verze 4?
Ja osobne pisu zatim v D3Prof. protoze zamestnavatel nema na upgrade na D4
peniz (pry)===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela
Elipsa se sikmou osou
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 08:32:45
pomale? - tak si odhadni jak moc presne ji chces vykreslit a pocitej jen
nektere body a spojuj to useckama. :-)
Mti.
-----P�vodn� zpr�va-----
Ale to musi byt strasne pomale !
> -----P�vodn� zpr�va-----
> Ahoj,
>
> zcela urcite to jde, nicmene funkce Ellipse ani Arc to nezvladne.
> Musis
> si vzit parametrickou rovnici, prepocitat ji pomoci matice rotace a
> pekne bod po bodu namalovat.
>
> **********************************************************************
> **
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> **********************************************************************
> **
> *******************************
>
> > -----P�vodn� zpr�va-----
> > Od: Michal Bozon [SMTP:bozon(zv)natur.cuni(tec)cz]
> > Odesl�no: 27. kv�tna 1999 11:28
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t:
> >
> > Potreboval bych vedet, jestli jde nakreslit elipticky oblouk, ale
> > takovy,
> > aby hlavni osa elipsy nebyla rovnobezna s osou x (nebo y). Normalni
> > funkce
> > Ellipse nakresli vzdy elipsu, jejiz osa je vodorovna. Stejne tak
> Arc.
> > Ten
> > nakresli elipticky oblouk, tedy cast elipsy ktera je opet
> rovnobezna.
> >
> > Michal Bozon.Volne systemove prostredky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 08:40:32
> -----Original Message-----
> From: /O=INEQ SOFTWARE
> S.R.O./OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of Bardon
> Sent: Thursday, May 27, 1999 4:03 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Volne systemove prostredky
>
> Jestli myslis Resources, tak to lze asi jedine tehdy, pokud
> si nainstalujes Resourcemeter do W95. Ten sebou nese knihovny
> rsrc16.dll a rsrc32.dll. V uvedenych knihovnach je k
> dispozici funkce _MyGetFreeSystemResources32(zv)4. Aby to nebylo
> tak jednoduche, tak to na NT havaruje. Nakonec jsem to osetril takto:
[JP]
Podle nazvu je mozne, ze je to zabaleni 16 bitove GetFreeSystemResources,
ktera ve Windows neni v 32bitove verzi. Vim, ze tady sla kdysi rec o volani
16 bitovych dll z 32 bitovych aplikaci, nepamatuju si s jakym vysledkem.
Ja tu 16 bitovou provolat neumim. Kdyz jsem to potreboval, tak jsem to
udelal
pres 16bitove okno (v jinem exe), kteremu jsem posilal zpravu a ono provedlo
SystemHeapInfo (Obdoba GetFreeSystemResources) a zapsalo do log souboru.
Napsal jsem to v BorlandPascalu 7.0 s pou�it�m OWL. Pokud chce�, po�lu Ti
to.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Volne systemove prostredky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 08:49:48
> -----Original Message-----
> From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
> Sent: Friday, May 28, 1999 8:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Volne systemove prostredky
>
>
> Ahoj,
> Je to GetFreeSystemResources(integer) nebo novejsi
> GlobalMemoryStatus(lpBuffer).
Ano, to je (bylo vloni) napsano v MSDN, ze GlobalMemoryStatus
je nahrada za GetFreeSystemResources. Neni to ale pravda
Ta funkce vraci uplne neco jineho.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Co je to Torry
[*] Zdenek Bohm <bohm(zv)gacc(tec)cz> - 28.5.1999 08:56:33
Ahoj,
dost casto se tu hovori o cemsi, co se nazyva Torry. Podle vseho se tam nachazi nejaky archiv
komponent. Muzete mi, prosim, prozradit, co to je a kde to najdu?
Diky Zdenek
posta a cestina
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 28.5.1999 09:01:05
Nevite jak pocestit v Exchange (Outlooku) slozky v Prihradce na serveru jako
Inbox,Sent Items atd ? Mam nainstalovany Outlook98cz ale zobrazuje mi to
porad anglicke nazvy. Zkousel jsem preinstalovat a porad nic
IRC,asm
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 28.5.1999 09:13:14
Halloa ALL!
Nekde sem slysel o Delphi-konferenci bezici na IRC....
Dokaze mi n�kdo vysvetlit, co IRC vubec znamena? Nemam ani "sajnu wo co
de..." Dik.
A d�le, kdy� v�Delphim pouzivam assembler, muzu pouzivat 386kove a
pentiovske instrukce ? Jak? Normalnim zpusobem mi to nejde....asi nekde budu
muset n�co "zafajfkovat", ale nevim kde a co....zat�m mi to bere jenom
zakladni instrukce....table.filter -> sql.where
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 28.5.1999 09:38:51
Ahoj,
nevite nekdo, kde se da sehnat
prekladac vyrazu z TTable.Filter do vyrazu pouzitelneho v casti WHERE SQL
dotazu?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
Formular...
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 28.5.1999 09:47:30
Halloa ALL!
Este dotaz...muzu nejak udelat jiny tvar formulare?
T�eba kolecko, trojuhelnicek, kosoctverec.....
Mel jsem nakou komponentu, kter� ho "worizla", ale ja bych chtel, aby se mi
posunuly i systemova tlacitka (minimalizace,konec,maximalizace)
Tot fse....Dik....ByE.Elipsa se sikmou osou
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 28.5.1999 09:49:12
On Fri, 28 May 1999, Maixner Adam wrote:
> Ale to musi byt strasne pomale !
Tusim, ze mi kdysi nejaky informatik rikal, ze existuje algoritmus na
malovani elipsy, ktery pouziva pouze operace scitani, odcitani. Kdybys ho
nekde vyhledal, hned by to bylo radostnejsi (a rychlejsi).
cau
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Jak se v Dlephi posilaji SMS
[*] Filip Jirs�k <jirsak(zv)gymnacel(tec)cz> - 28.5.1999 09:52:41
Pouzit internetovou branu Eurotelu nebo Paegasu a z Deklphi
vygenerovat odpovidajici formular.
Filip Jirsak
From: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Subject: Jak se v Dlephi posilaji SMS
Date sent: Wed, 22 May 1996 09:44:16 +0200
Organization: MIKMIK company
Send reply to: delphi-l(zv)fwd(tec)cz
Delam takovy programek, co by me upozornoval na ruzne udalosti
poslilanim SMS zpravy na mobil. Problem je v tom, ze nevim, jak
posilat SMS pod Delphi. Jestli nakod vite jakym prikazem nebo
jakou metodou bych to mohl udelat, tak mi prosim napiste.
Diky
Pitr - Petr Vobornik - MIKMIK company - vobornik(zv)ssakhk(tec)cz
*************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
ICQ: 12801030
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
Volne systemove prostredky
[*] mdvorak(zv)csas(tec)cz - 28.5.1999 09:54:38
Ta fce vraci presne to, co ma (The function returns information about both
physical and virtual memory).
Pouziti:
procedure xxxx;
var
Info : TMemoryStatus;
begin
Info.dwLength:=SizeOf(Info);
GlobalMemoryStatus(Info);
end;
V Info pak mas udaje, ktere potrbujes (viz. SDK).
{
TMemoryStatus = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: DWORD;
dwAvailPhys: DWORD;
dwTotalPageFile: DWORD;
dwAvailPageFile: DWORD;
dwTotalVirtual: DWORD;
dwAvailVirtual: DWORD;
end;
}
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
Odesl�no: 28. kv�tna 1999 8:50
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Volne systemove prostredky
> -----Original Message-----
> From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
> Sent: Friday, May 28, 1999 8:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Volne systemove prostredky
>
>
> Ahoj,
> Je to GetFreeSystemResources(integer) nebo novejsi
> GlobalMemoryStatus(lpBuffer).
Ano, to je (bylo vloni) napsano v MSDN, ze GlobalMemoryStatus
je nahrada za GetFreeSystemResources. Neni to ale pravda
Ta funkce vraci uplne neco jineho.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!IRC,asm
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 28.5.1999 09:56:12
>Halloa ALL!
>Nekde sem slysel o Delphi-konferenci bezici na IRC....
>Dokaze mi n�kdo vysvetlit, co IRC vubec znamena? Nemam ani "sajnu wo co
>de..." Dik.
IRC = > www.mirc.com / www.irc.sk
/join #delphi
je to ale onicom, lepsie su rozne konferencie.>
>A d�le, kdy� v�Delphim pouzivam assembler, muzu pouzivat 386kove a
>pentiovske instrukce ? Jak? Normalnim zpusobem mi to nejde....asi nekde
budu
>muset n�co "zafajfkovat", ale nevim kde a co....zat�m mi to bere jenom
>zakladni instrukce....
zaujimalo by ma o ake konkretne funkcie sa jedna, ja osobne s tym problem
nemam,
ak su prikazy ktore delphi nepozna daju sa pouzit op-code
Ivan Turcan
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
Elipsa se sikmou osou
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 28.5.1999 10:01:31
Ale me jse o pomaly pristup od pixelu k pixelu, to je strasne pomale.
> -----P�vodn� zpr�va-----
> Od: Lukas Voborsky [SMTP:xvobl03(zv)sorry.vse(tec)cz]
> Odesl�no: 28. kv�tna 1999 9:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Elipsa se sikmou osou
>
> On Fri, 28 May 1999, Maixner Adam wrote:
>
> > Ale to musi byt strasne pomale !
>
> Tusim, ze mi kdysi nejaky informatik rikal, ze existuje algoritmus na
> malovani elipsy, ktery pouziva pouze operace scitani, odcitani. Kdybys
> ho
> nekde vyhledal, hned by to bylo radostnejsi (a rychlejsi).
> cau
> Lukas
>
> -==============================================================-
> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
> www: http://come.to/voborsky tel. 8551040-9 l. 393
> -==============================================================-
virtual vs. dynamic
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 28.5.1999 10:03:42
Hi ,
Rozdiel medzi virtual a dynamic, principialny nie je. Ich rozdiel je len v
implementacii volania metod. Virtualne metody su optimalizovane na
rychlost a dynamicke na velkost kodu.
viac je v prirucke Object Pascal kapitola 7-10
Ivan Turcan
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
"Jan �ebel�k" <honza(zv)haes(tec)cz> on 27.05.99 21:47:13
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Ivan Turcan/BBA/GAMO)
Subject: Re: virtual vs. dynamic
Podrobne to bylo vysvetleno nekde u TP6 nebo kde, kdyz zacaly metody
"dynamic".
Nevim, jestli se mi to podari vysvetlit na trech radcich a taky si to uz
uplne presne nepamatuju:
Kazda trida ma svou VMT (virtual method table, mimochodem, alespon v TP
ukazoval pointer TypeOf(..) na tuto tabulku, v Delphi jsem se tim
nezabyval).
V teto tabulce jsou odkazy (adresy) prislusnych virtualnich metod. Pokud je
jich hodne, je i tabulka velka. Jsou tam odkazy bez ohledu na to, zda byla
metoda prepsana ("override") nebo ne.
Odkazy na metody "dynamic" v tabulce nejsou, ale program v runtime prohlizi
VMT predku tak dlouho, az odkaz na tuto metodu najde.
Jo, to byvaly casy, kdyz jsme jeste presne vedeli, kde co lezi a jak co
funguje... Dokonce jsem zkousel do VMT sahat a v runtime tam menit odkazy.
Dnes bych si to uz netroufnul.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jirka Fejfar <fejfarj(zv)iol(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> P�edm�t: virtual vs. dynamic
> Datum: 27. kv�tna 1999 16:54
>
> Ahoj vsichni,
>
> neumel byste mi negdo vysvetlit, jakej je vlastne rozdil mezi tim, kdyz
> nadeklaruju metodu jako virtual nebo dynamic ... podle mych empirickych
> zkusenosti se mi zda, ze je to jedno ... ale asi to tak neni ... co
.....?
>
> diky ...
>
> Jirka
Elipsa se sikmou osou
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 10:08:26
No, elipsu nemam. Ale kruznicu jo (akorat teda neni natocena :-)
(nejhorsi, co tam je, je rotace 2)
a jeste ke vsemu se blbe kresli obluououk zadany necim jako uhel :-(
Na kruznici je pekne to, ze staci spocitat 1/8 a zbytek je stejny. (akorat
se otaci znamenka a osy)
u elipsy s vodorovnou osou (a svislou) to uz je 1/4 a u otocene elipsy je to
uz jenom 2x 1/4 (1/2)
Mti.
-----P�vodn� zpr�va-----
>On Fri, 28 May 1999, Maixner Adam wrote:
>
>> Ale to musi byt strasne pomale !
>
>Tusim, ze mi kdysi nejaky informatik rikal, ze existuje algoritmus na
>malovani elipsy, ktery pouziva pouze operace scitani, odcitani. Kdybys ho
>nekde vyhledal, hned by to bylo radostnejsi (a rychlejsi).
> cau
> Lukas
>
>-==============================================================-
> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
> www: http://come.to/voborsky tel. 8551040-9 l. 393
>-==============================================================-
>Jak se v Dlephi posilaji SMS
[*] Otakar Skoloud <otakar(zv)ssakhk(tec)cz> - 28.5.1999 10:12:56
Ahoj,
1) Je pot�eba n�jak� komponenta pro SMTP. V delphi je komponenta OCX. Zkou�el jsem (a �sp�n� i jinou). Zdroj p��le�itostn� dod�m.
2) Adresa na RadioMobil je XXXXXX(zv)sms.paegas(tec)cz adresa na Eurotel je XXXXXX(zv)sms.eurotel(tec)cz a zpr�va se d� jako subject. M�m zku�enost, �e posledn� �esti��sl� sta��.
Zdrav� O.�.Query, UpdateSQL a vice tabulek
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 28.5.1999 10:21:01
Zkuste vytvorit pohled na ty tri tabulky a updatovat pak ten pohled. Pri
update pohledu ale plati jiste omezeni, ktera se na jednotlivych DB strojich
trochu lisi ...
bye
R.Pospisil
-----Original Message-----
From: delphi(zv)alf.dingo(tec)cz [mailto:delphi(zv)alf.dingo(tec)cz]
Sent: Friday, May 28, 1999 8:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Query, UpdateSQL a vice tabulek
Jeste jednou zdravim,
Nevite prosim vas nekdo jak na nasledujici problem?
Mam tri tabulky. Z nich sestavim SQLkem pozadovanou mnozinu.
Potrebuji, aby se dali editovat.
Pouzitim kesovane aktualizace a UpdateSQL se to podarilo,
ale jen pro jednu tabulku.
Jde nejak dokazat updatovat polozky ze vsech tri tabulek?
Diky predem za rady.
Bob
Jak se v Dlephi posilaji SMS
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 28.5.1999 10:24:48
Nevim, jak u Eurotelu, ale u Paegasu
staci odeslat email na adresu
+420603xxyyzz(zv)sms.paegas(tec)cz,
kde xxyyzz je pochopitelne
telefonni cislo.
> ----------
> Delam takovy programek, co by me upozornoval
> na ruzne udalosti poslilanim SMS zpravy na mobil.
> Problem je v tom, ze nevim, jak posilat SMS
> pod Delphi. Jestli nakod vite jakym prikazem nebo
> jakou metodou bych to mohl udelat, tak mi prosim
> napiste.
> Chyba prekladace pri porovnani currency a variant
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 28.5.1999 10:32:37
>> Vazeni,
>> nasledujici kus kodu vas presvedci ze 2*2 neni 4!
>Nezklamals, je to chyba stejne kategorie jako obe predchozi :-).
>Jura
Jak to myslis?
Tohle je prece neco jineho!
A v zadnem pripade to neni chyba programatora,
ale definitifne chyba komplatoru :-)
Rob
Chyba DELPHI
[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 28.5.1999 10:43:40
Ja mam jinou chybu Deplhi: Cas od casu se mi stane, ze kdyz chci spustit
aplikaci primo z IDE, Delphi mi rekne, ze nemuze najit XXXX.EXE (tj. to, co
chci spustit). Pritom zkompilovane to jiz je (spustit primo to jde) a kdyz
Delphi uzavru a znovu spustim, je vse v poradku. Kdo vi cim to je.
Delphi 4, update 3
J. Nadhera
>Zdravim vsechny,
>
>nevim, jestli to v konferenci uz bylo, nebo ne,
>ale stava se to casno a skoro vsude.
>
>Jde o to, ze nekdy pri spusteni Delphi se se objevy chyba poruseni ochrany,
>byba ve VCL a ztrati se informace o nastaveni prac. plochy atd.
>
>Nevite, cim to je? Da se to odstranit?
>
>Dik moc.
>
>Bob
>
>Delphi 4 update #3
>NT 4.0 SP 4
>Co je to Torry
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 28.5.1999 10:45:50
www.torry.ru
> dost casto se tu hovori o cemsi, co se nazyva Torry. Podle vseho se tam
nachazi nejaky archiv
> komponent. Muzete mi, prosim, prozradit, co to je a kde to najdu?
Elipsa se sikmou osou
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 28.5.1999 10:49:32
[P��loha v souboru: Fastbmp.zip]
This message is in MIME format. The first part should be readable text,
while the remaining parts are likely unreadable without MIME-aware tools.
Send mail to mime(zv)docserver.cac.washington.edu for more info.
On Fri, 28 May 1999, Maixner Adam wrote:
> Ale me jse o pomaly pristup od pixelu k pixelu, to je strasne pomale.
Hmm, to mas asi recht. Kdysi jsem odnekud stahnul classu, ktera by mela
velmi rychle kreslit do bitmapy (nezkousel jsem to ale). Ac nevyzadane,
prosto to posilam (je to kratky). Treba to k necemu bude. :-)
cau
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Re2: Thready a internet
[*] Jan Pukovec <pukovec2(zv)edunet(tec)cz> - 28.5.1999 10:49:58
Mno, o ten parser mi prozatim ani nejde. To dodelam casem, ale nejvetsi
problem mi delaj ty thready a standardni komponenty Delphi pro praci s
Internetem, socketama atd. Jeste tomu na 100% nerozumim, takze by se mi
docela sikla nejaka napoveda. Pokud by se nasla na disku nejaka takova
malicka aplikace se zdrojakem, nemohla by byt zaslana na muj mail :-) Prosim
prosim. Moc by mi to pomohlo, protoze ty dema v delphi jsou podle mne uplne
na nic. Opravdu - jde jenom o to dostat ona data ze serveru pri minimalni
zatezi procesoru. Je treba moct pouzit ruzne proxy servrey (a ostatnich par
standardnich polozek HTTP protokolu - tzn. referer, agent)
>Filozofie browseru je pomerne hodne jednoducha (spokojis-li se s HTTP/1.0
>resp. nebudes-li podporovat persistent connections). Jediny problem je
>podle me v HTML parseru. Dostat data ze serveru je trivka, ale jak je
>zobrazit to uz je jina.
>
>Zdravi
>D. Toman
>
Zdravi Jan Pukovec
Elipsa se sikmou osou
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 28.5.1999 11:17:57
dik. To zni dost zajimave.
> -----P�vodn� zpr�va-----
> Od: Lukas Voborsky [SMTP:xvobl03(zv)sorry.vse(tec)cz]
> Odesl�no: 28. kv�tna 1999 10:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Elipsa se sikmou osou
>
> On Fri, 28 May 1999, Maixner Adam wrote:
>
> > Ale me jse o pomaly pristup od pixelu k pixelu, to je strasne
> pomale.
>
> Hmm, to mas asi recht. Kdysi jsem odnekud stahnul classu, ktera by
> mela
> velmi rychle kreslit do bitmapy (nezkousel jsem to ale). Ac
> nevyzadane,
> prosto to posilam (je to kratky). Treba to k necemu bude. :-)
> cau
> Lukas
>
> -==============================================================-
> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
> www: http://come.to/voborsky tel. 8551040-9 l. 393
> -==============================================================-
> <<Soubor: >> Co je to Torry
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 28.5.1999 11:19:42
Koukni na
http://www.torry.ru/
a uvidis
KOPR software Pavel ZIDEK
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
----------
> Odes�latel: Zdenek Bohm <bohm(zv)gacc(tec)cz>
> Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Co je to Torry
> Datum: 28. kv�tna 1999 8:56
>
> Ahoj,
>
> dost casto se tu hovori o cemsi, co se nazyva Torry. Podle vseho se tam nachazi nejaky archiv
> komponent. Muzete mi, prosim, prozradit, co to je a kde to najdu?
>
> Diky Zdenek
Thready a internet
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 28.5.1999 11:27:58
Haj hou!
> Mno, o ten parser mi prozatim ani nejde. To dodelam casem, ale nejvetsi
> problem mi delaj ty thready a standardni komponenty Delphi pro praci s
> Internetem, socketama atd. Jeste tomu na 100% nerozumim, takze by se mi
> docela sikla nejaka napoveda. Pokud by se nasla na disku nejaka takova
> malicka aplikace se zdrojakem, nemohla by byt zaslana na muj mail :-)
Prosim
> prosim.
Doporucuji ti podivat se na Winshoes, coz jsou velmi dobre komponenty pro
internet (free se zdroji, resp. Open Source). Umi to to co chces, jsou
prehlednejsi a vychytanejsi a jsou tam i priklady. Link si z hlavy
nepamatuji, ale najdes ho primo na tehle strance
http://delphree.clexpert.com/pages/projects/nexus/default.htm
Hodne zdaru.
Pavel Cisar
Nexus project coordinator
Delphree Open Source Initiative
http://delphree.clexpert.com
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 28.5.1999 11:28:37
>var
> a,b,c,d:currency;
>begin
> a:=6;
> b:=2;
> c:=1;
> d:=Int(a/b/c);
>end;
>
>Pokud toto zkusite v nove aplikaci vyjde d=3.
>To je normalni a bude to tak delat vsem.
>
>Pokud vsak do USES pridate unitu OLECTRLS
>tak vyjde d=2.
>
>Pritom kod pro vypocet vyrazu vygenerovany
>kompilatorem je identicky!!!
Tak vidim, ze vam to budu muset prozradit.
Problem je v tom ze unita OLECTRLS pouziva unitu AXCTLRS
a ta ve sve inicializacni casti vola InitOlePro32, ktere vola
LoadLibrary('olepro32.dll').
Tato knihovna PRENASTAVI presnost vypoctu komprocesoru
ze standardne nastavene presnosti vypoctu extended (64bitu)
na presnost double (53bitu).
Dusledky:
Od chvile kdy POUZE udelate uses OLECTRLS nebo AXCTRLS
bude program v pocitat s mensi presnosti!!!
Pouziti jakekoliv cizi knihovny (a ne jen jeji inicializace,
ale v zasade jakekoliv jeji volani) v Delphi programu muze
ovlivnit nastaveni flagu koprocesoru a tim presnost vypoctu!
Toto navic muze byt zavisle na instalovanem OS resp. SP, nebot kdo
z nas vi co ktera verze DLL knihovny presne dela?
Tvrdil jsem, ze Round lze prinutit delat to co normalne dela Trunc.
Neni nic jednodussiho:
const cwChop : Word = $1F32;
begin
Set8087CW(csChop);
end;
A je to...
Tohle, ale muze udelat kterakoliv DLL knihovna pouzita programem.
Navic to muze delat jen jeji verze XY, kterou programator nema
ale ma ji zakaznik.
Zaver:
Bez kontroly nastaveni koprocesoru program v Delphi slepe spoleha,
ze posledni volani cizi DLL knihovny neznicilo nastaveni koprocesoru a
zakaznikovi je treba dodavat s programem i kalkulacku.
Staci i obycejna za 100,- Kc.
Nebo proste az program ohlasi, ze 6/2 jsou 2 tak budeme tvrdit,
ze pocitac ma pravdu a ze tedy 6/2 jsou 2.
Kdyz bude zakaznik trvat na svem a sezene si nezvratne
dukazy, ze 6/2 jsou 3 tak rekneme, ze se pocitac splet,
preinstalujeme Windows a program znovu, nauctujeme
1 den servisnich praci a zivot pujde dal...
Rob
PS: Pro Juru Polaka ted mi rekni jak chces Delphi pouzivat inteligentne?
Jak se v Dlephi posilaji SMS
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 28.5.1999 11:34:18
No slo by to tim ze by jsi napsal mail klienta, ktery bude odesilat
zpravy na adresu brany site kterou potrebujes....(Peagas, Eurotel..)
-----P�vodn� zpr�va-----
Od: vobornik(zv)ssakhk(tec)cz <vobornik(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. kv�tna 1999 11:39
P�edm�t: Jak se v Dlephi posilaji SMS
>
>
>
>Delam takovy programek, co by me upozornoval na ruzne udalosti poslilanim
>SMS zpravy na mobil. Problem je v tom, ze nevim, jak posilat SMS pod
>Delphi. Jestli nakod vite jakym prikazem nebo jakou metodou bych to mohl
>udelat, tak mi prosim napiste.
>
>
>Diky
>
>
>
>Pitr - Petr Vobornik - MIKMIK company - vobornik(zv)ssakhk(tec)cz
>
>
>
>
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
><HTML><HEAD>
><META content="text/html; charset=iso-8859-2" http-equiv=Content-Type>
><META content="MSHTML 5.00.2314.1000" name=GENERATOR>
><STYLE></STYLE>
></HEAD>
><BODY bgColor=#ffffff>
>
><DIV><FONT face="Arial CE" size=2>Delam takovy programek, co by me
>upozornoval na ruzne udalosti poslilanim SMS zpravy na mobil. Problem je v
>tom, ze nevim, jak posilat SMS pod Delphi. Jestli nakod vite jakym prikazem
>nebo jakou metodou
>
>bych to mohl udelat, tak mi prosim napiste.</FONT></DIV>
><DIV> </DIV>
><DIV><FONT face="Arial CE" size=2>Diky</FONT></DIV>
><DIV> </DIV>
><DIV><FONT face="Arial CE" size=2>Pitr - Petr Vobornik - MIKMIK company -
><A
>href="mailto:vobornik(zv)ssakhk(tec)cz">vobornik(zv)ssakhk(tec)cz</A></FONT></DIV></BODY>
<
>/HTML>
>
>Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 28.5.1999 11:36:05
>> Uz nikdy nebudes verit vypoctu v Delphi (Windows)
>> a vsem zakaznikum doporucis aby si
>> vysledky prepocitavali na kalkulacce :-)
>Pouzivam Delphi inteligentne, takze zakaznikum nic takoveho doporucovat
>nebudu.
Inteligentni pouzivani = implementace vlastniho decimal typu?
A urcite to mas implementovane bez chyb?
>Tvuj problem vznikl proto, ze pouzivas realny typ na miste, kde chces
pouzit
>integer.
>Pripada mi to dost demagogicke.
>Neni to chyba Delphi, ale programatora, jak uz napsali jini...
To mi tedy prozrad jak chces zit zaohrouhlovani (demagogicky
receno)?
Je to chyba kompilatoru+chyba implementace funkce+nedoresenost
s DLL knihovnami, chyba programatora to neni v zadnem pripade.
Viz vysvetlujici mail.
Priklad s extended, ktery presne emuluje to co dela muj posledni priklad
s currency:
var
a,b,c,d: extended;
i: integer;
begin
a:=60000;
b:=20000;
c:=10000;
d:=Trunc(a/b/c*c);
end;
Normalne vyjde d=3. Ale ted vysvetli proc, kdyz pridam do USES unitu
OleCtrls
tak to vyjde d=2.
CI JE TO CHYBA? MOJE?
>U Delphi vidim jiny nedostatek:
>I kdyz je currency s pevnou radovou carkou, porad je to realny typ a nehodi
>se k k vypoctu ordinalnich hodnot.
>Currency bych nepouzival ze zasady, je to zmrseny typ, neni k nicemu dobry.
Fajn, co tedy pouzivas. Mas vlastni knihovnu?
>Misto aby borlandi zavedli osvedceny decimal, udelali currency. Currency by
>se dal
>pouzit leda tam, kde by bylo vhodne pouzit i extended, ale extended je
>lepsi, protoze
>ma plovouci carku. Takze currency je uplne naprd.
Tomu nerozumim. Extended trpi chybami pri vypoctech a napriklad
pri scitani dostatecneho poctu cisel to proste udela chybu a
musis zaokrouhlovat.
Tohle ti currency neudela.
>Podle nazvu je currency urcen k uchovavani peneznich castek. Toho bych se
>bal.
>Radeji bych pouzival k fancnim operacim integer, kde by byly castky v
>halirich
>(nebo v desetitisicinach koruny, tak jak to provadi currency). Dulezite je,
>aby
>se s tim pracovalo jako s ordinalnim typem (tedy ne obycejne, ale
>celociselne deleni).
Proc? Kdyz vis co to dela (a opakuji smyslem mych zprav bylo
varovat pred problemy) tak currency je presne to co potrebujes.
Ze existuje par problemu je pravda, ale odsuzovat rovnou
vsechno je prilis prehnane.
Rob
PS: Existuje moc pekna chyba BDE ve spojitosti s MSSQL:
1) predpoklada se nastaveni v BDE aliasu EnableBCD=False
2) udelej si table s jednim fieldem Decimal(10,2)
3) udelej si program s TDBNavigatorem, TTable, TDataSource a TDBEditem
4) zkus ulozit do fieldu cislo 355,70
5) po Postu do databaze se toto cislo okamzite zmeni na 355,69
Proste 355,7 (a spoustu jinych) do tveho slavneho Decimal fieldu nedostanes.
Ja to resil EnableBCD=True, coz prave prinuti pouzivat Delphi currency typ
a problem se tak obejde.
Jinak zase kalkulacka zakaznikovi (uz si pripadam jak agent s kalkulackama)
:-(
Volne systemove prostredky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 11:44:44
> -----Original Message-----
> From: mdvorak(zv)csas(tec)cz [mailto:mdvorak(zv)csas(tec)cz]
> Sent: Friday, May 28, 1999 9:55 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Volne systemove prostredky
>
>
> Ta fce vraci presne to, co ma (The function returns
> information about both
> physical and virtual memory).
Ano, vraci to, co ma. Ale je to neco jineho nez FreeSystemResources.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Chyba prekladace pri porovnani currency a variant
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 28.5.1999 11:50:27
> -----Original Message-----
> From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
> Sent: Friday, May 28, 1999 10:33 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Chyba prekladace pri porovnani currency a variant
>
>
> >> Vazeni,
> >> nasledujici kus kodu vas presvedci ze 2*2 neni 4!
> >Nezklamals, je to chyba stejne kategorie jako obe predchozi :-).
> >Jura
>
> Jak to myslis?
> Tohle je prece neco jineho!
> A v zadnem pripade to neni chyba programatora,
> ale definitifne chyba komplatoru :-)
>
> Rob
>
>
Jestli se nemylim, to predtim byly take chyby kompilatoru, ne?
V cem je to jine? :-)
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Elipsa se sikmou osou
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 28.5.1999 12:14:36
On Fri, 28 May 1999, Lukas Voborsky wrote:
Sakra, prisahal bych, ze jsem to neposilal do konference, ale na
soukromou adresu. Omlouvam se.
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
External Exception & BDE
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 28.5.1999 12:15:19
Preji vsem hezky den,
Aplikace D4 + BDE + Sybase. Pri volani Database.Close dostanu External
Exception in module ntdll.dll Vyjimka nastane jen pokud spoustim aplikaci
pod Delphi.
Nesetkal se nekdo s tim problemem ?
R.Pospisil
Thready a internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.5.1999 12:16:18
>Mno, o ten parser mi prozatim ani nejde. To dodelam casem, ale nejvetsi
>problem mi delaj ty thready a standardni komponenty Delphi pro praci s
>Internetem, socketama atd.
Aha, pokud ma ta palikace opravdu fungovat je treba zapomenout na
nejake TCP/IP komponenty. Nejjistejsi je se tech par funkci naucit pouzivat
primo. Pak mas zcela pod vlastni kontrolou rizeni komunikace a urcite
stravis min casu seznamenim s TCP/IP API nez tim, ze budes vymyslet proc ta
komonenta dela tohle kdyz ma delat tamto atd.
> Jeste tomu na 100% nerozumim, takze by se mi
>docela sikla nejaka napoveda. Pokud by se nasla na disku nejaka takova
>malicka aplikace se zdrojakem, nemohla by byt zaslana na muj mail :-)
Prosim
>prosim.
Na inetu je prece uplne vsechno a nejaky zdrojaky k browserum urcite taky
Na realizaci zakladni komunikace s WWW serverem ti staci smycka ktera po
navazani spojeni se serverem
a odeslani HTTP requestu cte data ze serveru a nekam si je uklada.
Connect();
Send(Head);
while recv(Buff) > 0 do
begin
StoreBuff(Buff);
end;
>Moc by mi to pomohlo, protoze ty dema v delphi jsou podle mne uplne
>na nic. Opravdu - jde jenom o to dostat ona data ze serveru pri minimalni
>zatezi procesoru.
>Je treba moct pouzit ruzne proxy servrey
>(a ostatnich par
>standardnich polozek HTTP protokolu - tzn. referer, agent)
referer a agent jsou pojmy z logu WWW serveru. Funkce browseru tim neni
vubec podminena. Pro vlastni browsovani jsou dulezitejsi uplne jine polozky
HTTP hlavicky.
Zdravi
D. Toman
Jak se v Dlephi posilaji SMS
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 28.5.1999 12:21:58
Ahoj,
takovy programek jsem si udelal taky.
na Paegas to posilam 12345(zv)sms.paegas(tec)cz
a Eurotel 12345(zv)sms.eurotel(tec)cz
1234 - tel. cislo bez 060x
Funguje to O.K.
Ahoj
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. kv�tna 1999 11:21
P�edm�t: RE: Jak se v Dlephi posilaji SMS
>Nevim, jak u Eurotelu, ale u Paegasu
>staci odeslat email na adresu
>+420603xxyyzz(zv)sms.paegas(tec)cz,
>kde xxyyzz je pochopitelne
>telefonni cislo.
>
>> ----------
>> Delam takovy programek, co by me upozornoval
>> na ruzne udalosti poslilanim SMS zpravy na mobil.
>> Problem je v tom, ze nevim, jak posilat SMS
>> pod Delphi. Jestli nakod vite jakym prikazem nebo
>> jakou metodou bych to mohl udelat, tak mi prosim
>> napiste.
>>Ochrana programu (uz zase ;-)
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 28.5.1999 11:23:16
> From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> Musi to byt rozumny low level formatovaci program dodany primo
> vyrobcem toho ktereho disku. Pokud nekoho napadne low level
> naformatovat disk tim, co je v biosu, nebo nejakym cizim
> softwarem, tak je velke stesti, pokud to pak jeste funguje
> dobre. V horsim pripade se snizi zivotnost disku nebo dokonce
> rovnou znici disk...
...ale rozhodne tim skonci take zaruka na HD, takze pak
uz si ho muzes jen vystavit na policku/pomnicek :-)
-----------------------------------------------
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
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Application.MessageBox
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 28.5.1999 12:23:59
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
rad bych se zeptal, zda lze a pripadne jak
predefinovat funkci %subj%. Jde mi o to,
ze kdykoli by se v programu vyvolalo %subj%
aby se spuistila moje rutina.
Duvod : jedna unita, ke ktere nemam zdrojak,
toto prave vola a ja bych v jine unite, v sekci
initialization chtel nejak predefinovat prave
tuto fci, aby ta prvni unita volala misto toho
tu moji rutinku (a tam aby se podle parametru
udelalo neco uplne jineho).
D�ky...
...Dobra
Doufam, ze jsem to popsal dobre.
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 28.5.1999 12:36:25
zdravim,
mam pocit, ze v tomto pripade je max. rozsah cca 20 (resp.40) milionu
pro financni operace zalostne malo.
kdyz tak by bylo vhodnejsi pouzit typ Comp.
michel
> -----Original Message-----
> From: Jiri.Polak(zv)tconsult(tec)cz [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Sent: Friday, May 28, 1999 8:21 AM
> To: kdelphi(zv)asex(tec)cz
> Subject: RE: Chyby pri vypoctech (Was: Chyba prekladace pri
> porovnani curr
>
> Podle nazvu je currency urcen k uchovavani peneznich castek. Toho bych
> se
> bal.
> Radeji bych pouzival k fancnim operacim integer, kde by byly castky v
> halirich
> (nebo v desetitisicinach koruny, tak jak to provadi currency).
> Dulezite je,
> aby
> se s tim pracovalo jako s ordinalnim typem (tedy ne obycejne, ale
> celociselne deleni).
>
>
>
>
> Ochrana programu (uz zase ;-)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.5.1999 11:49:03
Puvodni zprava, kterou napsal Zdenek Drvota dne 28 May 99,:
> > Musi to byt rozumny low level formatovaci program dodany primo
> > vyrobcem toho ktereho disku. Pokud nekoho napadne low level
> > naformatovat disk tim, co je v biosu, nebo nejakym cizim
> > softwarem, tak je velke stesti, pokud to pak jeste funguje
> > dobre. V horsim pripade se snizi zivotnost disku nebo dokonce
> > rovnou znici disk...
> ...ale rozhodne tim skonci take zaruka na HD, takze pak
> uz si ho muzes jen vystavit na policku/pomnicek :-)
Pokud to nekdo prejede jinym low level formatem, je to mozne,
i kdyz vetsina ceskych pocitacovych firem prd pozna. Pokud to
prejedes low level formatem od vyrobce, pak zaruka nekonci
a nemuze koncit. Ale myslim, ze to uz nema s Delphi nic spolecneho,
takze asi budeme koncit s takovymi debatami :)
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
grafika, ellipse, arc
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 28.5.1999 13:22:21
Dobry den,
no ja bych to udelal tak, ze bych rotoval celou elipsu podle sveho stredu.
Pochopitelne kdyz si udelas vzorec pro pocitani bodu na elipse, tak by se to
k tomu dalo rovnou (hm, teoreticky) pridat. No jestli s odpovedmi, ktere
tady dostanes na konferenci nebudes spokojeny, tak se ozvi a ja se zeptam
jednoho matematickyho machra.
mej se
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
(for czech recipients only:
Prijimam cestinu v kodove strance ISO-8859-2)
-----P�vodn� zpr�va-----
Od: Michal Bozon <bozon(zv)natur.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 12:56
P�edm�t: grafika, ellipse, arc
>Potreboval bych vedet, jestli jde nakreslit elipticky oblouk, ale takovy,
>aby hlavni osa elipsy nebyla rovnobezna s osou x (nebo y). Normalni funkce
>Ellipse nakresli vzdy elipsu, jejiz osa je vodorovna. Stejne tak Arc. Ten
>nakresli elipticky oblouk, tedy cast elipsy ktera je opet rovnobezna.
>
>Diky,
>Michal Bozon.
>
>DOS text capture
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 28.5.1999 13:23:01
Musis to delat v Delphinach?
-----P�vodn� zpr�va-----
Od: sup(zv)svitap(tec)cz <sup(zv)svitap(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 9:44
P�edm�t: DOS text capture
>Ahoj lidi...
>
>Mam malinkaty problemecek: potreboval bych udelat capture dosovskyho
>okna/screenu, ale v textovem tvaru... Poradte, jak na to. D3 Profi.
>
>Diky predem
>
>PS: Potrebuji to udelat programove, ne pres Ctrl+C, Ctrl+V.....
>
>Jaroslav Weiss
>odd. informatiky
>
>SVITAP J.H.J. s.r.o.
>Kijevska 6-8
>SVITAVY
>568 02
>
>tel: ++420-461-568 202
>fax: ++420-461-568 300
>E-mail: sup(zv)svitap(tec)cz
>URL: www.svitap(tec)cz
>FTP: ftp.svitap(tec)cz
>TFileListBox
[*] Pavel Vake� <Rocky(zv)podvodnik(tec)cz> - 28.5.1999 13:26:35
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Delam si komponentu ve ktere potrebuju vytvorit objekt typu TFileListBox.
Vytvorim ji kodem ...
FileB := TFileListBox.Create(Self);
to se me zda jeste vsechno v poradku, kazdy vlastnosti priradim jakoukoli hodnotu a jde vsechno v pohode.
Az na jednu vlastnost DIRECTORY (docela dulezita) ,ktere kdyz chci priradit nejakou cestu tak me to napise chybu ........ Control " has no parent window
a ani omylem nemuzu prijit na to co s tim je.
Prosim ty kdo vite jak to vyresit tak mi pomozte.
Dik..Housenka
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 28.5.1999 13:33:41
Dobry den,
bohuzel jsem se do teto konference prihlasil pozde, protoze nevim jak
uplne znel dotaz. Ale podle odpovedi hadam, ze bylo ukolem vytvorit housenku
(neco jako NIBBLES v Basicu). Hm, osobne jsem to delal (kdybys vo to hodne
stal, tak bych tady mohl prolizt celej byt a mozna bych nasel i zdrojaky) a
rozhodne nesouhlasim s tim, jak Ti bylo radeno od Oldricha N. (pochopitelne,
je to jen muj nazor). Normalne si udelas pole (jak to rikal on), budes tam
mit napr. nulu pro prazdny misto, jednicku pro zed, dvojku pro zradlo,
...... Rozdil je v tom, ze ta samotna housenka je v jinem poli (tak jsem to
delal ja, zda se mi to elegantnejsi a jednodussi). To pole vypada asi nejak
takhle:
POLEHOUSENKY =
Array[1..maximalni_delka_housenky_ktere_lze_behem_hry_dosahnout] of record
X, Y: Byte;
End;
No a ted mas v tom poli pozice jednotlivych clanku tela ty housenky. No a
kdyz se housenka posune tak jednoduse umazes posledni clanek a prvni pridas
ve smeru kt. se ta potvora pohybuje. No toho by se dalo dosahnout urcite
vice nez temito dvema zpusoby:
1) ta housenka na zacatku by byla umistena nekde uprostred toho POLEHOUSENKY
(nebylo by to tedy od
1...maximalni_delka_housenky_ktere_lze_behem_hry_dosahnout) - to kdyz si
uvedomis jake maximalni delky lze dosahnout (protoze pak by se mohlo
postupovat do jineho kola). Tohle neni spatnej napad.
2) takhle jsem to delal ja, a to ze to cely pole posouvas takze kazda Xta
polozka toho pole se posune na (X+1). A pak na prvni pozici pridas kam se
presunula ta hlavicka. Konec se ti timto posunem prodluzuje, takze muzes
posledni polozku smazat kdyz je to potreba. Hm, ale ten 1. zpusob je lepsi
;-)
no kdybys mel este nejaky dotazy tak se rozhodne ozvi
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
(for czech recipients only:
Prijimam cestinu v kodove strance ISO-8859-2)
-----P�vodn� zpr�va-----
Od: Oldrich Nic <NICO(zv)feld.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 11:24
P�edm�t: Re: Housenka
No, ja bych to udelal nejak takhle:
Udelas si dvourozmerny pole: Plocha: array [1..n, 1..n] of integer;,
ktery bude reprezentovat hraci plochu. Tam, kde bude prazdny misto,
das nulu: Plocha[2, 2]:= 0. Tam, kde je zed, das treba jednicku:
Plocha[1, 1]:= 1. No, a tam kde je zrovna housenka, das trojku:
Plocha[4, 5]:= 3. Po nejakem intervalu budes trojky z pole nahrazovat
nulami(housenka jede) a na druhou stranu budes pridavat trojky. Musis
pak taky pridavat trojky jeste navic, jak se housenka prodluzuje. Jak
testovat, jestli narazi? if Plocha[AktualX + KrokX, AktualY + KrokY]
<> 0 then write('Padla kosa na kamen!');, kde AktualX a AktualY jsou
souradnice polohy hlavicky nasi housenky, KrokX a KrokY smery, jak se
housenka pohybuje.
Snad je to jasne, neni to ale asi moc programatorsky cisty. Neva,
zapocet ti za to da. Oldrich nic, nico(zv)feld.cvut(tec)cz.
Oracle SQL
[*] miroslav.prokel(zv)rtscs(tec)cz - 28.5.1999 13:37:17
Ahoj,
pred casem jsem se ptal, jak nacist data z procedury ulozene na dbserveru
Oracle8 do Delphi pres komponentu TQuery. Problem se mi podarilo vyresit,
tak pokud ma nekdo zajem, poslu cele reseni.
Miroslav Prokel
miroslav.prokel(zv)rtscs(tec)cz
Fields & FieldDefs & FieldEditor
[*] David Svoboda <dsvoboda(zv)iol(tec)cz> - 28.5.1999 14:15:54
Dobre odpoledne,
Mam nasledujici problem. V run-time vytvarim docasnou pdox tabulku,
ktera ma promenny pocet sloupcu (asi 8 sloupcu je pevnych, dalsi se
doplnuji dle definicnich dat, ktere se muzou menit). Tato tabulka je
napojena na DBGrid, ktery nema definovane Columns, tj. Columns.Count =
0. Cast fieldu by mela byt Lookup. Problem je:
a) ze neumin definovat Lookup field v run-time, v tomto pripade se mi
zobrazuje spravny variabilni pocet sloupcu v DBGridu, ale pevne fieldy
nejsou lookup.
b) pevne a lookup fieldy nadefinuji ve Fields Editoru. Pri tomto reseni
se mi ale v Gridu zobrazuje pouze pevny pocet sloupcu.
Obe cesty a) b) jaksi neposkytuji pozadovanou funkcnost. Prosim o
zkusenosti pri reseni podobnych situaci.
David Svoboda
dsvoboda(zv)iol(tec)cz
Elipsa se sikmou osou
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 28.5.1999 14:17:39
No mi fakt reknete, co muze bejt rychlejsi nez pixel k pixelu? Fakt to by me
zajimalo, jo muzes siskoid kdyz to budes spojovat useckama
>Ale me jse o pomaly pristup od pixelu k pixelu, to je strasne pomale.
>
>> -----P�vodn� zpr�va-----
>> Od: Lukas Voborsky [SMTP:xvobl03(zv)sorry.vse(tec)cz]
>> Odesl�no: 28. kv�tna 1999 9:49
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: RE: Elipsa se sikmou osou
>>
>> On Fri, 28 May 1999, Maixner Adam wrote:
>>
>> > Ale to musi byt strasne pomale !
>>
>> Tusim, ze mi kdysi nejaky informatik rikal, ze existuje algoritmus na
>> malovani elipsy, ktery pouziva pouze operace scitani, odcitani. Kdybys
>> ho
>> nekde vyhledal, hned by to bylo radostnejsi (a rychlejsi).
>> cau
>> Lukas
>>
>> -==============================================================-
>> mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
>> www: http://come.to/voborsky tel. 8551040-9 l. 393
>> -==============================================================-
>Lokalizovani -- clanek
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.5.1999 14:48:59
Preji vsem pekneho dne,
v Softwarovych novinach vysel (nebo vyjde?) clanek o lokalizovani
od Zbyska.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
x dotaz - DLL
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 28.5.1999 13:43:20 met-1
Ahoj!
Poprosil bych zkusenejsi kolegy o rady:
1) V projektu potrebuji volat funkci z DLL, ktera vytvori novy
formular. Podle knihy Mistrovstvi v Delphi 2, jsem pri psani dotycne
DLL pouzil uvedeneho prikladu, kde se novy formular vytvori pres
NewForm := TNewForm.Create(Application);
NewForm.ShowModal;
NewForm.Free;
Ma to ale jeden hacek - pri zavolani DLL se v seznamu uloh objevi
dalsi uloha. Na puvodni projekt (ktery volal DLL) se tak mohu
prepnout, coz se mi moc nezamlouva. Je sice pravda, ze ten puvodni
projekt je "neaktivni" a "nic nedela", presto bych byl radeji, kdyby
se muj program uzivateli jevil v seznamu uloh pouze jako jedna
aplikace. Da se to nejak vyresit?
2) Opet podle zminene knihy jsem osetril situaci, kdy patricna DLL
neni k nalezeni. Stalo se ovsem to, ze pri spusteni hotoveho EXE se
objevi (zrejme systemova) hlaska: "Chyba pri spusteni programu -
nebyla nalezena potrebna dynamicka knihovna ..." a program skonci
(resp. ani nenastartuje). Ja si vzdy myslel, ze existence prislusne
DLL se kontroluje az pri jejim volani (jinak by prece nemelo smysl v
programu provadet tuto kontrolu) a ne pri spusteni EXE. Jak to
tedy je, resp. jak se da vyresit, aby program spustit sel i bez
nektere DLL?
Diky moc, Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Volne systemove prostredky
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 28.5.1999 16:00:38
Ta funkce opravdu vraci to, co ma. Ale to co ma vracet je uplne neco jineho, nez to, co vraci funkce GetFreeSystemResources. Proto to nemuze byt nahradou za GetFreeSystemResources.
Hwohgh!
-----P�vodn� zpr�va-----
Od: mdvorak(zv)csas(tec)cz [SMTP:mdvorak(zv)csas(tec)cz]
Odesl�no: 28. kv�tna 1999 9:55
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Volne systemove prostredky
Ta fce vraci presne to, co ma (The function returns information about both
physical and virtual memory).
Pouziti:
procedure xxxx;
var
Info : TMemoryStatus;
begin
Info.dwLength:=SizeOf(Info);
GlobalMemoryStatus(Info);
end;
V Info pak mas udaje, ktere potrbujes (viz. SDK).
{
TMemoryStatus = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: DWORD;
dwAvailPhys: DWORD;
dwTotalPageFile: DWORD;
dwAvailPageFile: DWORD;
dwTotalVirtual: DWORD;
dwAvailVirtual: DWORD;
end;
}
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
Odesl�no: 28. kv�tna 1999 8:50
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Volne systemove prostredky
> -----Original Message-----
> From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
> Sent: Friday, May 28, 1999 8:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Volne systemove prostredky
>
>
> Ahoj,
> Je to GetFreeSystemResources(integer) nebo novejsi
> GlobalMemoryStatus(lpBuffer).
Ano, to je (bylo vloni) napsano v MSDN, ze GlobalMemoryStatus
je nahrada za GetFreeSystemResources. Neni to ale pravda
Ta funkce vraci uplne neco jineho.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
Jak se v Dlephi posilaji SMS
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 28.5.1999 15:44:37
> From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Nevim, jak u Eurotelu, ale u Paegasu
> staci odeslat email na adresu
> +420603xxyyzz(zv)sms.paegas(tec)cz,
> kde xxyyzz je pochopitelne
> telefonni cislo.
U Eurotelu taky jako normalni e-mail na
+42060?xxyyzz(zv)sms.eurotel(tec)cz
ale POZOR, ne vsichni Paegas maji tuto sluzbu
aktivovanou, takze to kazdemu nemusi dojit
(na mobil, pochopitelne :-)
>
> > ----------
> > Delam takovy programek, co by me upozornoval
> > na ruzne udalosti poslilanim SMS zpravy na mobil.
> > Problem je v tom, ze nevim, jak posilat SMS
> > pod Delphi. Jestli nakod vite jakym prikazem nebo
> > jakou metodou bych to mohl udelat, tak mi prosim
> > napiste.
> >
>
>
-----------------------------------------------
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
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Jak se v Dlephi posilaji SMS
[*] Pavol Antalik <antalik(zv)pefstud.uniag.sk> - 28.5.1999 16:55:50
Pravdepodobne chcete posielat SMS cez internet, pochopil som spravne ?
Podla mojich skusenosti, posielanie SMS sprav cez internet je riesene
2 sposobmi :
1./ SMS to E-Mail
2./ SMS stranka ako napriklad : http://www.mtnsms.com
pravepodobne bude na SIETI viac pripadov tychto dvoch rieseni.
1./ ak viete o takej e-mail adrese ktora presmeruje postu na SMS,
pouzite nejaku komponentu do delphi na posielanie posty cez internet.
2./ Toto je trochu horsie. Takze najprv je treba zistit najjednoduchsiu
(myslim sposob posielania dat, nie graficky tvar )
stranku, potom zistit v akom tvare sa posielaju data serveru. Potom pomocou
komponenty pre HTTP napodobnit tento proces.
Pavol Antalik
antalik(zv)pefstud.uniag.sk
Housenka
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 28.5.1999 17:49:26
Preji prijemny den.
Souhlasim s kolegou, ze do jednoo pole se housenka i okoli nacpat neda. Ja jsem
tedy mel housenku ve spojovem seznamu (ale delal jsem ji v C++), pricemz
posledni clanek menil souradnice (na souradnici hlavy) a bylo tam ukazovatko,
ukazujici na ten posledni prvek. Je to sice zbytecne plytvani (proc hned spoj
seznam), ale neni treba omezovat pole, housenka muze mit libovolnou delku a i ty
presuny jed. clanku jsou jednoduche. Jestli mas zajem, poslu zdrojak v C++. Pri
trose snahy ho do objektu v Pascalu prepises za chvili.
Pavel
--
/---==ooOOoo==---=oOo=---==ooOOoo==---
|
| Pavel SKALICKY - student FEL CVUT
| e-mail : P.Skalicky(zv)sh.cvut(tec)cz
| wintalk : Pavel(zv)pts.sh.cvut(tec)cz
| ICQ : 38169741
|
\---==ooOOoo==---=oOo=---==ooOOoo==---
Housenka
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 18:14:10
Hm. Tech lidi, co delali tisice a jednu housenku bude asi cele pole ....
type Tlidi=array[0..2*moc] of ^zeli;
Plidi=^Tlidi; { uz blbnu ;-}
Taky bych cosi nasel, ale je to opravdu priserne napsane. (housenka byla
kreslena kruznicemi a kreslila se vlastne jen prvni (cervena hlava),
druha(zelana - coz uz vlastne bylo telo) a posledni (cerna - mazani).
kruznice byly "dute" a zradlo bylo jinou barvou nez zdi a sutry. (if
getpixel(q[0].x,q[0].y=12 then zdechnout.....)
Toto reseni nepotrebovalo zadne pole se zdima. Na druhou stranu se zase asi
dost blbe bude dat pouzit v Dphi, protoze tam muze "kdokoliv" preplacnout
puvodni obsah. (leda to kreslit na bitmapu - pomalejsi)
Priserne. (zacinal 'sem s packalem).
Pokud se chce nekdo zhrozit, odlozim to nekde na web/ftp :-)
Jinak souhlasim s nazory jiz poublikovanymi.
Mti.
(sice mam co delat, ale v krizovem pripade zacnu psat housenku pro delphi
:-) (zjednodusene) ( na soukr. mail )
(nezkousel uz nekdo delat 3dhousenku pod openGL nebo DirectX?) :-)
-----P�vodn� zpr�va-----
>Preji prijemny den.
>Souhlasim s kolegou, ze do jednoo pole se housenka i okoli nacpat neda. Ja
jsem
>tedy mel housenku ve spojovem seznamu (ale delal jsem ji v C++), pricemz
>posledni clanek menil souradnice (na souradnici hlavy) a bylo tam
ukazovatko,
>ukazujici na ten posledni prvek. Je to sice zbytecne plytvani (proc hned
spoj
>seznam), ale neni treba omezovat pole, housenka muze mit libovolnou delku a
i ty
>presuny jed. clanku jsou jednoduche. Jestli mas zajem, poslu zdrojak v C++.
Pri
>trose snahy ho do objektu v Pascalu prepises za chvili.
> Pavel
>--
>/---==ooOOoo==---=oOo=---==ooOOoo==---
>|
>| Pavel SKALICKY - student FEL CVUT
>| e-mail : P.Skalicky(zv)sh.cvut(tec)cz
>| wintalk : Pavel(zv)pts.sh.cvut(tec)cz
>| ICQ : 38169741
>|
>\---==ooOOoo==---=oOo=---==ooOOoo==---
>
>Formular...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.5.1999 18:17:50
M�ra Tom� wrote:
> Este dotaz...muzu nejak udelat jiny tvar formulare?
> T�eba kolecko, trojuhelnicek, kosoctverec.....
> Mel jsem nakou komponentu, kter� ho "worizla", ale ja bych chtel, aby se
> mi posunuly i systemova tlacitka (minimalizace,konec,maximalizace)
Ta si budes muset vytvorit a umistit sam.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
x dotaz - DLL
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 28.5.1999 18:19:50
Jiri Novotny wrote:
>
> Ahoj!
>
> Poprosil bych zkusenejsi kolegy o rady:
>
> 2) Opet podle zminene knihy jsem osetril situaci, kdy patricna DLL
> neni k nalezeni. Stalo se ovsem to, ze pri spusteni hotoveho EXE se
> objevi (zrejme systemova) hlaska: "Chyba pri spusteni programu -
> nebyla nalezena potrebna dynamicka knihovna ..." a program skonci
> (resp. ani nenastartuje). Ja si vzdy myslel, ze existence prislusne
> DLL se kontroluje az pri jejim volani (jinak by prece nemelo smysl v
> programu provadet tuto kontrolu) a ne pri spusteni EXE. Jak to
> tedy je, resp. jak se da vyresit, aby program spustit sel i bez
> nektere DLL?
>
Ono to zavisi na tom, jak tu knihovnu volas. Pokud mas nekde v hlavnim
EXE nadefinovane procedury jako treba
procedure Cosi(AParam: integer); external 'MyDLL.dll' name 'Cosi';
tak se ta knihovna zavadi soucasne s programem a spatne reference na
neexistujici knihovny resi OS, v nasem pripade WindBlows.
Pokud chces zavadet DLL s plnou kontrolou, tak musis pouzit
var MyDll: integer;
pCosi: procedure(AParam: integer); stdcall;
MyDll := LoadLibrary(PChar(DllPath+'MyDLL.DLL'));
a
pCosi := GetProcAddress(MyDLL,'Cosi');
ale to jiste je i v te knize a mne se to nechce vypisovat vsechno, kdyz
je tak hezky... :)))
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Housenka
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 28.5.1999 18:20:12
> To pole vypada asi nejak
> takhle:
> POLEHOUSENKY =
> Array[1..maximalni_delka_housenky_ktere_lze_behem_hry_dosahnout] of record
> X, Y: Byte;
> End;
>
To by byt mohlo.
> No a ted mas v tom poli pozice jednotlivych clanku tela ty housenky. No a
> kdyz se housenka posune tak jednoduse umazes posledni clanek a prvni pridas
> ve smeru kt. se ta potvora pohybuje. No toho by se dalo dosahnout urcite
> vice nez temito dvema zpusoby:
> 1) ta housenka na zacatku by byla umistena nekde uprostred toho POLEHOUSENKY
> (nebylo by to tedy od
> 1...maximalni_delka_housenky_ktere_lze_behem_hry_dosahnout) - to kdyz si
> uvedomis jake maximalni delky lze dosahnout (protoze pak by se mohlo
> postupovat do jineho kola). Tohle neni spatnej napad.
> 2) takhle jsem to delal ja, a to ze to cely pole posouvas takze kazda Xta
> polozka toho pole se posune na (X+1). A pak na prvni pozici pridas kam se
> presunula ta hlavicka. Konec se ti timto posunem prodluzuje, takze muzes
> posledni polozku smazat kdyz je to potreba. Hm, ale ten 1. zpusob je lepsi
1. je spatne, je to omezeni
2. je taky spatne, je to neefektivni.
Omezeni delky proc ne, treba i kvuli rychlosti (delat to pres TList, to
by ta housenka brzo chcipla hlady...), ale co takhle to davat do toho
pole MODULO??? Tj. chci psat na index I, delka pole je MAX a ja pisu do
WORM[I mod MAX] := neco
Da se snadno testovat dosazeni maximalni delky a je to efektivni.
Toto neni uplne reseni, pouze naznaceni urcite jedne konkretni casti
reseni. Proste jsem si vzpomel na skolni leta...
Howgh.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Housenka
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 28.5.1999 19:02:24
MOD NE !
(nebo jo ale v ramci rychlosti ne.)
Deleni (coz mod je - protize std zapis je
treba
div bx
coz provede
ax := dx:ax div bx
a zaraz
dx := dx:ax mod bx
(ono to dela jedna instrukce, ale princip je tento)
je lepsi to pole nastavit na nejakou rozumnou delku - tj. (2^n)
array[0..1023] of neco
a pak jde pouzit AND , coz rychlostne vyjde jako scitani !!!!!
Mti.
>Omezeni delky proc ne, treba i kvuli rychlosti (delat to pres TList, to
>by ta housenka brzo chcipla hlady...), ale co takhle to davat do toho
>pole MODULO??? Tj. chci psat na index I, delka pole je MAX a ja pisu do
> WORM[I mod MAX] := neco
>
>Da se snadno testovat dosazeni maximalni delky a je to efektivni.
>
>Toto neni uplne reseni, pouze naznaceni urcite jedne konkretni casti
>reseni. Proste jsem si vzpomel na skolni leta...x dotaz - DLL
[*] supervisor(zv)unicontrols(tec)cz - 28.5.1999 17:08:06
1) V projektu potrebuji volat funkci z DLL, ktera vytvori novy
formular. Podle knihy Mistrovstvi v Delphi 2, jsem pri psani dotycne
DLL pouzil uvedeneho prikladu, kde se novy formular vytvori pres
NewForm := TNewForm.Create(Application);
NewForm.ShowModal;
NewForm.Free;
Ma to ale jeden hacek - pri zavolani DLL se v seznamu uloh objevi
dalsi uloha. Na puvodni projekt (ktery volal DLL) se tak mohu
prepnout, coz se mi moc nezamlouva. Je sice pravda, ze ten puvodni
projekt je "neaktivni" a "nic nedela", presto bych byl radeji, kdyby
se muj program uzivateli jevil v seznamu uloh pouze jako jedna
aplikace. Da se to nejak vyresit?
Ano da
do kodu DLL tzn. treba do volaneho formu se vlozi
-----------------------
procedure doObjednavkyStart(Handle: HWND) ;stdcall;export;
begin
Application.Handle := Handle;
...
...
----------------------
Kde Handle je predan z hlavni aplikace
prikazem Application.MainForm.Handle
Snad to tak pojede
-----------------------------
- Vojtech Albrecht -
- supervisor(zv)unicontrols(tec)cz -
- ICQ 33995541 -
-----------------------------
VC++ a Delphi
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 28.5.1999 19:17:22
toto nefunguje, obj. moduly vo MSVC a Delphi, ci BCB nie su kompatibilne,
ostava ti jedina moznost a to pouzit Dll, na ktoru si ale musis vytvorit
importovaciu kniznicu v borlandovskom OMF formate. MSVC pouziva COFF format.
Coff2omf.exe zial nefunguje, takze si musis vytvorit kniznicu pomocou
implib.exe z def suboru, ktory si vytvoris pomocou impdef.exe.
Vlado
> -----Original Message-----
> From: Lubo Fule [SMTP:fule(zv)sct.sk]
> Sent: Thursday, May 27, 1999 3:59 PM
> To: Delphi
> Subject: VC++ a Delphi
>
> Ahojte,
> Viete niekto, ako vytvorit vo Visual C++ 5.0 object file (.OBJ), z ktoreho
> budem moct v Delphi pouzivat funkcie ako "external"? Zatial sa mi to nejak
> nedari, vo VC++ napisem nejake funkcie, skompilujem a v Delphi poviem ze
> {$L
> subor.OBJ}
> a hned tam mi to krici ze "Bad file format". Ked som to iste skompiloval v
> builderi, tak mi to uz nekricalo Bad file format, ale mi tvrdilo, ze
> funkcia
> v externych moduloch nie je. Neovladam velmi zaludnosti okolo kompilacie a
> nastaveni kompilatora v C.
> Vopred vdaka.
>
> Lubo.
> Jak se v Dlephi posilaji SMS
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 28.5.1999 22:11:05
To bys posilal podobne jako je to na WWW? No to fakt netusim, jak se v
Delphi posilaj formulare
-----P�vodn� zpr�va-----
Od: Filip Jirs�k <jirsak(zv)gymnacel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. kv�tna 1999 11:00
P�edm�t: Re: Jak se v Dlephi posilaji SMS
Pouzit internetovou branu Eurotelu nebo Paegasu a z Deklphi
vygenerovat odpovidajici formular.
Filip Jirsak
From: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Subject: Jak se v Dlephi posilaji SMS
Date sent: Wed, 22 May 1996 09:44:16 +0200
Organization: MIKMIK company
Send reply to: delphi-l(zv)fwd(tec)cz
Delam takovy programek, co by me upozornoval na ruzne udalosti
poslilanim SMS zpravy na mobil. Problem je v tom, ze nevim, jak
posilat SMS pod Delphi. Jestli nakod vite jakym prikazem nebo
jakou metodou bych to mohl udelat, tak mi prosim napiste.
Diky
Pitr - Petr Vobornik - MIKMIK company - vobornik(zv)ssakhk(tec)cz
*************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
ICQ: 12801030
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
TClass
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.5.1999 22:32:08
> Muze mi nekdo vysvetlit, k cemu slouzi vyrazy virtual, override, inherited
> v metodach, pripadne za jejich deklaracemi ?
Virtual: tzv virtaulani metoda. Pri vytvoreni objektu se vytvori tzv.
tabulka virtualnich metod, kde je odkazovano na aktualni virtualni
metodu. Tedy pri zavolani virtualni metody se program nejprve
podiva prave to VMT a pak zavola fci (==> je to ponekdu pomalejsi).
Pouziti: predstav si objekt A majici metodu Draw; virtual; no a pak
objekt B a C, oboji potomci A, majici taktez metodu Draw. Protoze
je tato metoda jiz nadeklarovana, musis misto slova virtual uvest
override. No na nakonec, k cemu to je. Dejme tomu, ze chces mit
519 objetku typu A, B a C nekdo treba v poli v pameti. A jak
zavolas vykresleni? Jednoduse: pole bude array of A, kde vsemu
priradis A, B i C. Pri volani draw ti prave tabulka virtualnich metod
zajisti volani spravne metody draw.
Dale inherited, to je klicove slovo, ktere se pouziva v tele metody,
ktera je virtualni (dynamicka) a je predefinovana. Pak, pokud chces
zavolat tu samou metodu predka, proste napises inherited.
Co se tyce dynamicke metody, je to neco podobneho na zpusob
virtualni metody, ale funguje to trosku jinak.
Snad jsem to napsal srozumitelne.
Slavek
> Dekuji
> Tomas
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Lokalizovani -- clanek
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.5.1999 07:58:01
Slavek Rydval wrote:
> v Softwarovych novinach vysel (nebo vyjde?) clanek o lokalizovani
> od Zbyska.
Pokud to sleduji, tak do cisla 5/99 dosud nevysel, urcite jsem jeste
nedostal zadny honorar. :-)
Sice trosku reklamy, ale mozna to bude nekoho zajimat: s firmou
Inprise jsem se dohodl na jednodennim skoleni o lokalizacich. Chci
tam prednest do hloubky, jak se ma psat program vhodny pro
lokalizovani, popis klicovych resourcu a zdrojaky, jak se k nim
dostat, jak je rozebrat a zase slozit dohromady (tedy jeste rada
veci nad ramec toho clanku). V cene bude i jedna licence na
Lokalizator a CD (od Petra Zahradnika) s hromadou zajimavych
komponent.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizovani -- clanek
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.5.1999 09:37:31
> > v Softwarovych novinach vysel (nebo vyjde?) clanek o lokalizovani
> > od Zbyska.
>
> Pokud to sleduji, tak do cisla 5/99 dosud nevysel, urcite jsem jeste
> nedostal zadny honorar. :-)
Je to v cervnovem. V patek jsem dostal cislo zrovna kdyz prislo
z tiskarny. :-) Kdy vyjde to cislo oficialni, to nevim. Mozna pristi
tyden.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Query za behu programu
[*] Milan Valenta <milan.valenta(zv)usa(tec)net> - 29.5.1999 09:48:17
Hi,
Stahni si komponentu TQuickSelect z
http://home.sol.no/~kbjerkne/QuickSelect/QS.htm
Zda se mi velice dobra, pouzivam (i kdyz jsem si musel udelat vlastni
ceske resoursy)
S pozdravem
Ing. Milan Valenta
Horni Slavkov
e-mail: milan.valenta(zv)usa.net
----------
> Odes�latel: Bonhard, Tomas Ing. <Tomas.Bonhard(zv)skoda-auto(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Query za behu programu
> Datum: 27. kv�tna 1998 7:27
>
> Srdecne zdravim.
> Nevite nekdo o nejake sikovne komponente nebo nastroji pro D3 na tvorbu
> uzivatelskych Query za behu programu ?
> Muze byt i komercni.
> Dekuji za odpovedi.
> Tomas
RichEdit
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 30.5.1999 11:30:30
Dost dobry soft - ClipMate (kdo jednou zkusil - jiz nemuze jinak ;-) -
pamatuje si to vse co hodis do schranky a pres hot-key ti to nabidne
rychly vyber + spousta dalsich srandicek.
http://www.clipmate.com
Mac
Polak Jiri wrote:
> tak jsem z toho byl dost vzteklej, protoze mi zpravidla preplacl
> v clipboardu dlouhej text, kterej jsem nikde jinde nem�l.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Akcny dotaz SQL- pridanie zaznamu
[*] Ma�ko Kiczko <4kiczko(zv)gmet.schools.sk> - 30.5.1999 14:01:05
Zdravim,
potrebujem poradit ako napisat vykonavaci dotaz SQL, ktory do tabulky prida novy zaznam. Problem je ale v tom, ze hodnoty pre jednotlive polia nemaju byt nacitane z inej tabulky, ale su povazovane za vyrazy. Teda napriklad hodnoty jednotlivych poli noveho zaznamu su nacitane z ovladacich prvkov, ktore su "unbounded".
Dakujem matus.filter
[*] Jaro <jaro(zv)sinea(tec)cz> - 30.5.1999 14:32:28
>A kdyz jsme u toho. Da se nejak zabezpecit zobrazeni
>radek/pocet_radku v SQL databaz (samozrejme, kdyz mam na formu
>TDBGrid, jinak si to muzu pocitat sam)?
>Petr
Jo tak to uz je horsi. SELECT normalne nevraci poradove cislo
vybranych radku. Musel bys to udelat pres FOR SELECT v ulozene
procedure.
Taky tu v konferenci kdysi byla na toto tema diskuse a kdosi
vymyslel slozeny SELECT, ktery sice fungoval, ale byl pomalejsi.
Jaro
koupe Delphi 3 Standard
[*] Jaro <jaro(zv)sinea(tec)cz> - 30.5.1999 14:40:23
>Vzhledem k tomu, ze nevi co by ho potkalo pri kompilaci pod D4 rad by
>Delphi3.
>Lze prodat soft kompilovany pod verzi 3 kdyz jsem vlastnikem pouze
verze 4?
-----------
Tak to mohu tveho kamarada zcela uklidnit.
Nepotkalo by ho vubec nic spatneho. Ja jsem do D4 prevedl vsechny
projekty z D3 a to naprosto bez potizi.
Vetsinou jsem nemusel menit vubec nic! Jenom jsem provedl kompilaci.
Jina situace muze byt, pokud vyuziva ruzne cizi knihovny, ale jinak
muze
byt bez obav. Kupovat dnes D3 jenom z obavy kompatibility je pitomost.
Jaro
-----------
>
>Ja osobne pisu zatim v D3Prof. protoze zamestnavatel nema na upgrade
na D4
>peniz (pry)
>
>===========mozno pouzit PGP==============
>Richard Valny richard.valny(zv)oku-st(tec)cz
>Okresni urad Strakonice tel. 0342-441 l. 216
>Smetanova 533 fax. 0342-21208
>386 22 STRAKONICE FiDoNet 2:423/35
>===========mozno pouzit PGP==============
>
>... Windows nemohou byti virem, nebot virus je napsan inteligentne a
neco
>dela
>Qreport
[*] Ji�� Zachardala����*��6����jV��,zX���v�� - 30.5.1999 16:35:07
Zdrav�m
Nev�te nekdo pros�m V�s jak se v Qreport v detailu daj� dva z�znamy z jedn� tabulky na �adek aby to pokra�ovalo
Dekuji
Akcny dotaz SQL- pridanie zaznamu
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 30.5.1999 17:54:20
Pres TQuery, do ktere vlozis SQL prikaz
INSERT INTO <Jmeno_tabulky>(<seznam_atributu_oddelenych_carkami>)
VALUES (<seznam_hodnot_ve_stejnem_poradi>)
Jelikoz to do TQuery vkladas jako retezec, muzes si to posbirat z
ruznych prvku a poslepovat, jak potrebujes. Potom ale na tu query
zavolas metodu ExecSQL a ne Open.
Pavel
Ma�ko Kiczko wrote:
> Zdravim,potrebujem poradit ako napisat vykonavaci dotaz SQL, ktory do
> tabulky prida novy zaznam. Problem je ale v tom, ze hodnoty pre
> jednotlive polia nemaju byt nacitane z inej tabulky, ale su povazovane
> za vyrazy. Teda napriklad hodnoty jednotlivych poli noveho zaznamu
> su nacitane z ovladacich prvkov, ktore su "unbounded".Dakujem matus.
--
/---==ooOOoo==---=oOo=---==ooOOoo==---
|
| Pavel SKALICKY - student FEL CVUT
| e-mail : P.Skalicky(zv)sh.cvut(tec)cz
| wintalk : Pavel(zv)pts.sh.cvut(tec)cz
| ICQ : 38169741
|
\---==ooOOoo==---=oOo=---==ooOOoo==---
ScreenSaver
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 30.5.1999 20:03:57
Ahoj....
Mam jeden (no mozna dva) dotaz(y) na ScreenSaver:
a) Potrebuji bud zjistit, zda je screensaver spustenej nebo
b) potrebuji spustit screensaver.
Diky za kazdou radu.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - ScreenSaver
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 30.5.1999 21:05:16
> a) Potrebuji bud zjistit, zda je screensaver spustenej nebo
Vedel bych, jak nastavit saver jako spusteny. Je na to jedna funkce a
promenna uvnitr windows, ktera
(SystemParametersInfo; external user32 name 'SystemParametersInfoA';) se
vola pomoci unitu Windows. Bohuzel ale nevim, jak se cte status
screensaveru.
> b) potrebuji spustit screensaver.
Kazdy *.scr screensaver je v podstate normalni exe soubor. Musis ho ale
spustit s parametrem /s , aby se ti rozbehl. Pokud nevis, jak se spousti
exace, vyhledej si v konferenci WinExec nebo ShellExecute..
> Diky za kazdou radu.
>
OK
Petr
TEdit
[*] Miroslav Topol�� - 30.5.1999 21:27:46
Potreboval bych zjistit a menit pozici kurzoru u komponenty TEDIT. Diky za jakoukoliv radu
Screen Saver 2
[*] lukas(zv)oknet(tec)cz (Vana Lukas) - 30.5.1999 22:02:48
Ja bych mel taky jeden dotaz k screen saveru: jak jenom dostat ukazku ss do
toho maleho okynka v dialogu W95 (do okynka s obrazkem monitoru).
Dik, Lukas Vana.Pocet rovnakych hodnot cez SQL dotaz
[*] Ma�ko Kiczko <4kiczko(zv)gmet.schools.sk> - 30.5.1999 22:04:44
Zdravim este raz,
chcel by som sa spytat na dotaz, ktory v danom stlpci tabulky spocita pocet
rovnakych hodnot. Hodnoty pripustne pre dany stlpec su ulozene v inej
tabulke.
Priklad:
Tab.1
stl.1 stl.2
YES use Hodnoty pripustne
pre kazdy stlpec su v Tab.2
NO need
NO need
YES don't need
YES use
Vysledok dotazu pre stl.1 Vysledok dotazu pre stl.2
YES 3 use
2
NO 2 need
2
don't
need 1
Dakujem Matus.DOS text capture
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:33:54
sup(zv)svitap(tec)cz wrote:
>
> Tak jsem si udelal malinkej programek na cteni pameti cizich procesu:
Ahoj,
> var
> buff:array[0..32000] of char;
> a,w1,w2:dword;
> pa,pbuff:pointer;
> b:boolean;
> begin
> w1:=4096;
> a:=$b800;
> pa:=ptr(a);
> pbuff:=(zv)buff;
> HWnd1:=FindWindow (nil,DOS); // DOS:='nazev_okna_DOS'
Jako parametr do ReadProcessMemory nemuzes davat handle okna, ale handle procesu.
Nejdrive musis zjistit ID procesu (napriklad funkci GetWindowThreadProcessId),
potom musis otevrit process funkci OpenProcess s pozadovanym pristupem pro cteni
PROCESS_VM_READ. Dalsi vec je, ze adresovani ve Win32 je naprosto rozdilne od
DOSu, takze na $B800 asi nic nebude.
Nicmene jak zjistit obsah DOS-Prompt okna nevim :-) Vypada to na Console Functions,
(narpiklad GetConsoleScreenBufferInfo) ale nevim jak cist z console ciziho procesu,
jde to vubec ? Chtel jsem zkusit spustit remote thread v danem procesu a v nem pak
volat GetStdHandle, jenze CreateRemoteThread neni zase podporovano ve Win95 :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
koupe Delphi 3 Standard
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:44:54
Jaro wrote:
>
> >Vzhledem k tomu, ze nevi co by ho potkalo pri kompilaci pod D4 rad by
> >Delphi3.
> >Lze prodat soft kompilovany pod verzi 3 kdyz jsem vlastnikem pouze
> verze 4?
> -----------
> Tak to mohu tveho kamarada zcela uklidnit.
> Nepotkalo by ho vubec nic spatneho. Ja jsem do D4 prevedl vsechny
> projekty z D3 a to naprosto bez potizi.
> Vetsinou jsem nemusel menit vubec nic! Jenom jsem provedl kompilaci.
Problem muze nastat v pripadech kdy chybne pouzival promenne Integer misto
DWORD (predevsim ve volani API funkci). V predchozich verzich Delphi to
proslo, protoze DWORD byl definovan jako Integer a teprve v D4 byl konecne
zaveden novy typ LongWord.
> byt bez obav. Kupovat dnes D3 jenom z obavy kompatibility je pitomost.
Presne tak.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:44:44
> Miroslav Topol�� wrote:
>
> Potreboval bych zjistit a menit pozici kurzoru u komponenty TEDIT.
Ahoj,
Podivej se do helpu na TEdit.SelStart
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TFileListBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:45:06
> Pavel Vake� wrote:
>
> Delam si komponentu ve ktere potrebuju vytvorit objekt typu TFileListBox.
> Vytvorim ji kodem ...
>
>
> FileB := TFileListBox.Create(Self);
>
>
> to se me zda jeste vsechno v poradku, kazdy vlastnosti priradim jakoukoli hodnotu a jde
> vsechno v pohode.
> Az na jednu vlastnost DIRECTORY (docela dulezita) ,ktere kdyz chci priradit nejakou cestu
> tak me to napise chybu ........
>
>
> Control " has no parent window
>
>
> a ani omylem nemuzu prijit na to co s tim je.
Ahoj,
Je to tim, ze jsi pri vytvareni komponenty za behu nenastavil vlastnost Parent.
Pokud ji mas primo na formulari (coz je v tvem prikladu patrne Self), pak to
bude vypadat takhle:
FileB := TFileListBox.Create(Self);
FileB.Parent := Self;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ScreenSaver
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:45:24
Petr Vaclavek wrote:
>
> Ahoj....
>
> Mam jeden (no mozna dva) dotaz(y) na ScreenSaver:
Ahoj,
> a) Potrebuji bud zjistit, zda je screensaver spustenej nebo
Pomoci SystemParametersInfo s parametrem SPI_GETSCREENSAVERRUNNING, ale
podle MSDN to patrne nefunguje pod NT4
> b) potrebuji spustit screensaver.
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Thready a internet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:46:57
Jan Pukovec wrote:
> Nejdulezitejsi pro mne prozatim je pouzivat metody GET a POST protokolu
> HTTP.
> Dokazal by tedy nekdo nejaky multithreadovy browser sestrojit nebo mate
> alespon jeho cast jiz naprogramovanou ? Byl bych vam strasne vdecny.
Ahoj,
Pokud tim myslis napsat znovu cely HTML engine, tak me to prijde pomerne dost
nerealny. Podivej se treba jak vypadaji dnesni dva prohlizece IE a Netscape,
oba dva maji stale problemy s interpretaci HTML, zvlaste Netscape je ted v
dost hroznem stavu, ceka se na verzi 5 kde to snad konecne daji do poradku.
Spis by asi stalo za pokus se vydat cestou vyuziti jiz hotoveho engine z IE.
Muzes si jej naimportovat jako ActiveX control a ten pak pouzivat v Delphi.
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Co je to Torry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:46:03
Zdenek Bohm wrote:
>
> Ahoj,
>
> dost casto se tu hovori o cemsi, co se nazyva Torry. Podle vseho se tam nachazi nejaky archiv
> komponent. Muzete mi, prosim, prozradit, co to je a kde to najdu?
Ahoj,
Nejlepsi mas se podivat na http://www.delphi(tec)cz. Tam mas odkazy konference a
v nich to najdes.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Schovat MDI scrollbary
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:46:11
Michal Bozon wrote:
>
> Nazdar.
> Nevite nahodou prosim vas nekdo, jak udelat neco, aby se nezobrazovaly
> scrollbary v MDI parent okne? I kdyz nastavim vlastnost formu (MDIParent)
> AutoSrollBars (nebo jak se to presne jmenuje) na false, vzdy se mi
> scrollbary objevi, kdyz nejaky MDI child form presunu v parentu tak, aby
> jeho cast nebyla videt.
Ahoj,
To zobrazovani scrollbaru je ale standartni vlastnost celeho MDI rozhrani,
proc ti tam toliko vadi ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
IRC,asm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.5.1999 22:57:36
M�ra Tom� wrote:
>
> Halloa ALL!
> Nekde sem slysel o Delphi-konferenci bezici na IRC....
> Dokaze mi n�kdo vysvetlit, co IRC vubec znamena? Nemam ani "sajnu wo co
> de..." Dik.
Ahoj,
IRC (Internet relay chat) jsou kanaly umoznujici rozhovor vice lidi, neco
jako NetMeeting, ale jen na psani. Osobne me to prijde znacne sileny :-)
Napriklad na strankach M$ - software ke stazeni mas Microsoft Chat kterym
se muzes k IRC pripojit. Pokud jsi ale na dial-upu (ktery si sam platis),
tak pozor na pripadny bankrot :-))
Ve slovniku je to popsano takhle:
http://muj.atlas(tec)cz/slovniky_result.asp?heslo=irc
> A d�le, kdy� v Delphim pouzivam assembler, muzu pouzivat 386kove a
> pentiovske instrukce ? Jak? Normalnim zpusobem mi to nejde....asi nekde budu
> muset n�co "zafajfkovat", ale nevim kde a co....zat�m mi to bere jenom
> zakladni instrukce....
A ktere instukce ti konkretne nejdou ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************postmessage a PARAMETRY
[*] Tom� Sypal <sypal(zv)seznam(tec)cz> - 31.5.1999 00:43:32
Ahoj !
Pokud chci poslat predesle instanci programu nejakou zpravu s parametry (napr. string ci integer), jak to mam udelat ? Postmessage nic takoveho nenabizi a nechce se mi predavat informace pres nejake diskove soubory, pripada mi to neciste.
Tomas
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
cele CISLO
[*] Tom� Sypal <sypal(zv)seznam(tec)cz> - 31.5.1999 01:09:50
Jak zjistim, jestli je cislo typu real cele ?
Zkousel jsem A mod 1,
ale nejde to zkompilovat, protoze je to pouze pro integer.
Tomas
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
exe > servis NT
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 31.5.1999 06:02:49
Mam na Vas dalsi otazku, aplikaci v Delphi jsem dotahl dokonce a ted ji
potrebuji spustet na NT. Chtel jsem dat odkaz na NT do startupu, ale to neni
zaruceno, ze ta aplikace bude porad spustena. Doslechl jsem se, ze jde
udelat z jakehokoliv exe souboru servis. Nevite nekdo jak na to?
Dekuji Novak
cele CISLO
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 31.5.1999 07:19:11
Mne to funguje takto (i pro zaporna cisla)
procedure TForm1.BitBtn1Click(Sender: TObject);
var
C:Double;
begin
RxSpinEdit1.ValueType := vtFloat;
C:=RxSpinEdit1.value;
if Round(C) = C then {TO JE ONO}
ShowMessage('Je cel�')
else
ShowMessage('Nen� cel�');
end;
ale nepochybuji, ze existuje neco jeste jednodussiho.
Cau mira
-----P�vodn� zpr�va-----
Od: Tom� Sypal <sypal(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 31. kv�tna 1999 1:15
P�edm�t: cele CISLO
>Jak zjistim, jestli je cislo typu real cele ?
>
>
>Zkousel jsem A mod 1,
>
>ale nejde to zkompilovat, protoze je to pouze pro integer.
>
>Tomas
>
>-- http://email.seznam(tec)cz
>-- email zdarma na cely zivot
>IRC,asm
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 31.5.1999 08:04:10
Nejdou mi vsechny, kter� se odkazujou na co-procesor...(v Delphi 3 C/S)
Ale kdy� jsem to zkousel v�Delphi 2.0, tak mi to zase fachalo....
-----P�vodn� zpr�va-----
Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 30. kv�tna 1999 22:58
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: IRC,asm
M�ra Tom� wrote:
>
> Halloa ALL!
> Nekde sem slysel o Delphi-konferenci bezici na IRC....
> Dokaze mi n�kdo vysvetlit, co IRC vubec znamena? Nemam ani "sajnu
wo co
> de..." Dik.
Ahoj,
IRC (Internet relay chat) jsou kanaly umoznujici rozhovor vice lidi,
neco
jako NetMeeting, ale jen na psani. Osobne me to prijde znacne sileny
:-)
Napriklad na strankach M$ - software ke stazeni mas Microsoft Chat
kterym
se muzes k IRC pripojit. Pokud jsi ale na dial-upu (ktery si sam
platis),
tak pozor na pripadny bankrot :-))
Ve slovniku je to popsano takhle:
http://muj.atlas(tec)cz/slovniky_result.asp?heslo=irc
> A d�le, kdy� v Delphim pouzivam assembler, muzu pouzivat 386kove a
> pentiovske instrukce ? Jak? Normalnim zpusobem mi to nejde....asi
nekde budu
> muset n�co "zafajfkovat", ale nevim kde a co....zat�m mi to bere
jenom
> zakladni instrukce....
A ktere instukce ti konkretne nejdou ?
--
Internet proti monopolu. Petr Vones, amatersky
programator
* http://www.bojkot(tec)cz *
************************Graf.
[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 31.5.1999 08:06:01
Zdar,
Potrebuji poradit, jakou komponentu pouzit pro zobrazeni grafu:
- zobrazeni staci 2D
- X-ova osa 24 hodin (s krokem 30 sec)
- Y-osa hodnota
Mozna to tu uz bylo, ale archiv Delphi konference zase nefunguje.
Diky
Libor Thiel
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.5.1999 08:30:01
> -----Original Message-----
> From: Robert Kindl [mailto:rob(zv)optimal(tec)cz]
> Sent: Friday, May 28, 1999 11:36 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Chyby pri vypoctech (Was: Chyba prekladace pri porovnani
> currency a variant)
>
>
> >> Uz nikdy nebudes verit vypoctu v Delphi (Windows)
> >> a vsem zakaznikum doporucis aby si
> >> vysledky prepocitavali na kalkulacce :-)
> >Pouzivam Delphi inteligentne, takze zakaznikum nic takoveho
> doporucovat
> >nebudu.
>
> Inteligentni pouzivani = implementace vlastniho decimal typu?
> A urcite to mas implementovane bez chyb?
>
> >Tvuj problem vznikl proto, ze pouzivas realny typ na miste, kde chces
> pouzit
> >integer.
> >Pripada mi to dost demagogicke.
> >Neni to chyba Delphi, ale programatora, jak uz napsali jini...
>
> To mi tedy prozrad jak chces zit zaohrouhlovani (demagogicky
> receno)?
> Je to chyba kompilatoru+chyba implementace funkce+nedoresenost
> s DLL knihovnami, chyba programatora to neni v zadnem pripade.
> Viz vysvetlujici mail.
Bez zaokrouhlovani zit nechci, nechapu ale, proc mluvis o zaokrouhlovani,
kdyz pouzivas funkci Int. Se zaokrouhlovanim bys ten problem nemel.
> Tomu nerozumim. Extended trpi chybami pri vypoctech a napriklad
> pri scitani dostatecneho poctu cisel to proste udela chybu a
> musis zaokrouhlovat.
> Tohle ti currency neudela.
>
Nedavno tady probihala diskuse o zaokrouhlovacich chybach,
to se nekdo divil, proc cislo vydelene a vynasobene stejnym cislem
neni opet stejne. Doporucuju Ti podivat se do archivu.
>
> PS: Existuje moc pekna chyba BDE ve spojitosti s MSSQL:
> 1) predpoklada se nastaveni v BDE aliasu EnableBCD=False
> 2) udelej si table s jednim fieldem Decimal(10,2)
> 3) udelej si program s TDBNavigatorem, TTable, TDataSource a TDBEditem
> 4) zkus ulozit do fieldu cislo 355,70
> 5) po Postu do databaze se toto cislo okamzite zmeni na 355,69
>
> Proste 355,7 (a spoustu jinych) do tveho slavneho Decimal
> fieldu nedostanes.
:-)))
To ses trochu spletl, to je prave naopak. Do realneho cisla to nedostanes.
To, ze nemas EnableBCD znamena, ze s tim pracujes jako s realnym cislem.
V currency je to mozna ulozeno dobre jako 3557000, jenomze pri pouziti s nim
Delphi
pracuje jako s realnym typem, tzn. prevede ho na 355.7 a pruser je na svete.
355.7 je totiz v binarni soustave 101100011.010110<0110> (v tech zobacich je
perioda,
jestli jsem se nesekl). Pokud by byl typ decimal, ulozila by se do nej pekne
sedmicka.
Protoze ale pro realny typ se prevadi cislo do dvojkove soustavy,
musi se nekonecny rozvoj cisla zaokrouhlit, i kdyz v desitkove soustave je
ten
rozvoj konecny.
Takze to, cemu rikas problem, neni zadny problem, ale normalni prirozena
vlastnost.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Install MS_SQL
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 31.5.1999 08:40:15
InstallShieldom chcem instalovat program , ktory pouziva MS-SQL.
Co mam zapisat do registrov?
TUNGLI Jan
tungli(zv)pvt.sk
Jak se v Dlephi posilaji SMS
[*] Filip Jirs�k <jirsak(zv)gymnacel(tec)cz> - 31.5.1999 08:41:44
Pomoci nejake komponenty, ktera umi protokol HTTP. Jsou bud v
Delphi (od Professional vyse), nebo freeware, napr od F. Pieteho.
Ale myslim, ze bude jednodussi vyuzit ten zpusob pres mail, jestli
se nepletu, tak tenhle zpusob umoznuje Paegas i Eurotel. Jaky je
presne tvar adresy by bylo nutne zjistit na internetu na jejich
strankach nebo nekde jinde. Jen nevim, jakym zpusobem brana e-
mail/SMS pracuje, protoze v e-mailu jsou 2 informace (subj a
zprava), kdezto na SMS je (snad) jen jedna - jde tedy o to, zda
napr. subj a text jsou oddeleny nejakym znakem apod. - to chce
vyzkouset. Jeste take musis kontrolovat maximalni moznou delku
SMS zpravy.
Filip Jirsak
From: "Tonda Kmoch" <t.kmoch(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Subject: Re: Jak se v Dlephi posilaji SMS
Date sent: Fri, 28 May 1999 22:11:05 +0200
Send reply to: delphi-l(zv)fwd(tec)cz
> To bys posilal podobne jako je to na WWW? No to fakt netusim, jak se v
> Delphi posilaj formulare -----P�vodn� zpr�va----- Od: Filip Jirs�k
> <jirsak(zv)gymnacel(tec)cz> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz> Datum: 28.
> kv�tna 1999 11:00 P�edm�t: Re: Jak se v Dlephi posilaji SMS
>
>
> Pouzit internetovou branu Eurotelu nebo Paegasu a z Deklphi
> vygenerovat odpovidajici formular.
>
> Filip Jirsak
>
> From: Petr Voborn�k <vobornik(zv)ssakhk(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Subject: Jak se v Dlephi posilaji SMS
> Date sent: Wed, 22 May 1996 09:44:16 +0200
> Organization: MIKMIK company
> Send reply to: delphi-l(zv)fwd(tec)cz
>
> Delam takovy programek, co by me upozornoval na ruzne udalosti
> poslilanim SMS zpravy na mobil. Problem je v tom, ze nevim, jak
> posilat SMS pod Delphi. Jestli nakod vite jakym prikazem nebo
> jakou metodou bych to mohl udelat, tak mi prosim napiste.
>
> Diky
>
> Pitr - Petr Vobornik - MIKMIK company - vobornik(zv)ssakhk(tec)cz
> *************************************************
> Filip Jirsak
> e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
> e-mail: Jirsak(zv)mujmail(tec)cz
> ICQ: 12801030
> autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
>
>
> *************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
ICQ: 12801030
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
exe > servis NT
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.5.1999 08:53:59
>Mam na Vas dalsi otazku, aplikaci v Delphi jsem dotahl dokonce a ted ji
>potrebuji spustet na NT. Chtel jsem dat odkaz na NT do startupu, ale to
neni
>zaruceno, ze ta aplikace bude porad spustena. Doslechl jsem se, ze jde
>udelat z jakehokoliv exe souboru servis. Nevite nekdo jak na to?
k tomu ucelu slouzi utilita srvany.exe (z Resource Kitu) - ale neni to
zdaleka vselek. Nejlepsi je doprogramovat podporu service primo do
aplikace..
Zdravi
D. Toman
chyba delphi ???
[*] Josef Vopalensky <xvopale(zv)pluto.spsselib.hiedu(tec)cz> - 31.5.1999 09:08:43
Zdravim, nevedel by nekdo jak se muze stat ze funkce zmeni hodnotu
parametru bez deklarace var?
PS:Nepouzivam zadny ukazatele.
Diky joe
koupe Delphi 3 Standard
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 31.5.1999 09:09:56
Hello All!
30. kv�tna 1999 Jaro wrote:
> Nepotkalo by ho vubec nic spatneho. Ja jsem do D4 prevedl vsechny
> projekty z D3 a to naprosto bez potizi.
Stastny clovek. Ja som urobil v D3 tri programy a dva z nich sa mi
nepodarilo pod D4 rozchodit. V jednom mi nespravne suctuje quickreport
(uplne inak sa chova Band.BeforePrint a AfterPrint) , v druhom mi
quickreport netlaci absolutne nic! Je pravda, ze moc som
experimentovaniu nevenoval, ale ked som si do toho projektu vlozil novy
QR, polozil do neho label s textom 'ahoj', dal preview a ukazalo mi to
prazdnu stranku, tak som dalej nebadal a D4 hned zmazal.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Pocet rovnakych hodnot cez SQL dotaz
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 31.5.1999 09:30:42
na toto se pouziva klicove slovo GROUP BY v SQL prikazu:
SELECT stl.1, COUNT(*) FROM tbl GROUP BY stl.1
nebo
SELECT stl.1, COUNT(*) FROM tbl GROUP BY 1
Muzes dokonce pouzit a filtrovani na vyslednou mnozinu:
SELECT stl.1, COUNT(*) FROM tbl GROUP BY stl.1 HAVING COUNT(*)>10
Petr
> -----Original Message-----
> From: Ma�ko Kiczko [mailto:4kiczko(zv)gmet.schools.sk]
> Sent: Sunday, May 30, 1999 10:05 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Pocet rovnakych hodnot cez SQL dotaz
>
>
> Zdravim este raz,
> chcel by som sa spytat na dotaz, ktory v danom stlpci tabulky
> spocita pocet
> rovnakych hodnot. Hodnoty pripustne pre dany stlpec su ulozene v inej
> tabulke.
> Priklad:
> Tab.1
>
> stl.1 stl.2
> YES use
> Hodnoty pripustne
> pre kazdy stlpec su v Tab.2
> NO need
> NO need
> YES don't need
> YES use
>
> Vysledok dotazu pre stl.1 Vysledok dotazu pre stl.2
>
> YES 3 use
> 2
> NO 2 need
> 2
>
> don't
> need 1
> Dakujem Matus.
> Chyba prekladace Delphi? Nebo co...
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 31.5.1999 09:45:25
Caute,
mam problem, ktery se jmenuje "Bitmap image is not valid."
Je to hlaska, ktera vznika takto: na formulari mam 2 TImageListy. Jeden
z nich vznikl pomoci Ctrl+C/Ctrl+V z formulare jineho projektu. Vsechno
jde. Druhy imagelist je zatim prazdny. Ale jen co do nej naskladam 13
obrazku (zeby to bylo tou 13???) a zkusim Alt+P+B, objevi se shora
uvedena hlaska. Vsechny ty obrazky jsou ze stejneho souboru na disku.
Delphi jsem preinstaloval 2x, nepomohlo. Nevite nekdo, cim je to
zpusobeno? Na jinem formulari v jinem projektu mam taky dva ImageListy a
nic.
Obcas se dostanu az k hlaseni RLINK32, ze nemuze otevrit FOptions.DFM
(to je ten formular) a ze pry mam kontaktovat Borland. (Neco jako
"Errorneous error: you should never get this message... :))) )
Poradte, prosim, jestli nekdo vite, co to je za ........... :(((
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)VC++ a Delphi
[*] Milan Nimec <nemec(zv)goldcard(tec)cz> - 31.5.1999 10:00:28
BCB -> Delphi funguje, VC nevim, nezkousel jsem to.
soubor.cpp
soubor.h
extern "C" int _stdcall funkce();
soubor.pas
implementation
{$L soubor.OBJ}
function funkce(): Integer; StdCall; far; external;
Milan
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 27. kv�tna 1999 15:59
Komu: Delphi
P�edm�t: VC++ a Delphi
Ahojte,
Viete niekto, ako vytvorit vo Visual C++ 5.0 object file (.OBJ), z ktoreho
budem moct v Delphi pouzivat funkcie ako "external"? Zatial sa mi to nejak
nedari, vo VC++ napisem nejake funkcie, skompilujem a v Delphi poviem ze {$L
subor.OBJ}
a hned tam mi to krici ze "Bad file format". Ked som to iste skompiloval v
builderi, tak mi to uz nekricalo Bad file format, ale mi tvrdilo, ze funkcia
v externych moduloch nie je. Neovladam velmi zaludnosti okolo kompilacie a
nastaveni kompilatora v C.
Vopred vdaka.
Lubo.
begin 600 WINMAIL.DAT
M>)\^(B8$`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`2````4D4Z
M(%9#*RL(zv)82!$96QP:&D`UP0!!8 #``X```#/!P4`'P`*````' `!`"$!`2"
M`P`.````SP<%`!\`"0`W`"T``0!H`0$)(zv) $`(0```#(R,# Q-S0T,D0Q-T0S
M,3%",$8U,# V,# X,3(zv)X-4,T`+,&`0.0!(zv)#L!(zv)``(0````L``(zv)`!````"P`C
M```````#`"8```````L`*0```````P`N```````#`#8``````$ `.0!0OJ2E
M.ZN^`1X`< `!````$(zv)```%)%.B!60RLK(&$(zv)1&5L<&AI`````(zv)%Q``$````6
M`````;ZK.Z6'1!<`(Q<M$=.P]0!(zv)"!B%Q ``'(zv)`># $````%````4TU44 ``
M```>`!\,`0```!(```!N96UE8T!G;VQD8V%R9"YC>(zv)````,`!A#BCE*1`P`'
M$+(zv)"```>``(zv)0`0```&4```!"0T(M1$5,4$A)1E5.1U5*12Q60TY%5DE-+$Y%
M6DM/55-%3$I314U43U-/54)/4D-04%-/54)/4DA%6%1%4DXB0R))3E135$1#
M04Q,1E5.2T-%*"D[4T]50D]24$%324U03$5-``````(!"1 !````V ,``-0#
M``!'!(zv)``3%I&=<&3C1(zv)#``H`<F-P9S$R-1<!0P$T"V!N#A P,CD=`?<(zv)`J0#
MXP(`<')Q$C<"`&-H"L!S971\," '$P*#`% 0=A%5,M0S. ``*(zv)+A80> $=;1
M!Q,(zv)0T4"(zv)S(0:A6AEQ,O%#\507T*(zv)75C`% 3"P,/!#,S"Z8(zv)0D,`0B M/B!$
M96R <&AI("!F=0\(zv)`'5J92P(zv)5D,(zv).&YE=(zv)=P'# <(zv)'IK%PA(zv)$9 #(&H1D&T(zv)
M=/QO+AFU#V 28(zv)JQ"H0*A)D9JR!S"& &X'(N#? V<![4(+5H'S\>>F5XPG0$
MDB)#(B +(zv) 5 X%]S=&1C!T #(1_Z$1O!:V-E(NH(zv)*"G^.Q[;'_\A``JP$, H
M*AZ)GP=P"U =L GP`9!T:0((zv)<1[5>R1,)7P(zv)M":[+F!/0DI<?1[4&\%CARP"
M)7\FCRDZ($D",+1E9P20.P8`)1!#)4'],O!F"L R\"0$$A$GOR V_DT#$ !P
M*D\?)P-(zv))" OX!D5A#$V&P`X\E!<)UAF.78$< N0)PF (,9Z$/ YT3%V83CS
M-XP'`4 +!#(zv)&:2TQ-#0Y`4!L:3T##- ]`V((zv)J$]D.(zv)R#8A' 3"#1""!&=2N0
M(%M335A44#H;P"N00 3P=/ N<VM='M4^,(zv)>0"5 ).F%N;SYW,C<N(!QK=CG1
M+^ 7D" Q.6-#(zv)$-(zv)-3HU-N! UDN]`W!U/G<;1$#'.4(X"8".;4+S/G<<4"LK
M($-0/T5[.W\X)!*"# $>XT%HU&]J)" L'M16") D(%L<< B0:QW(zv)'#!A'2 (zv)
M^'9Y=#F0!1 %0#F0'$!-! !U%0)'X34N$<!OOF(<$"_(zv)&[ #$!? *"[R^BD<
M,'I"P!W(zv)"7!+0![4O&)U`0`=P 1(zv)3Q%V&S;R< A(zv)>FDZD$\A,2((D(5,TR(S
M]B(_(%HK\745`7-#4&T;D!W(zv)''%JUTS(zv)'M0<(zv)&0*P&D<,$VR^T?2%Y!P! `=
ML553%\!2U?\<,$"0`W!7( I '! =P$-0]U&Y'* =L7H7P"RB(54(zv)TWLO"4-0
M:%8!'= 7H%3E:\<%$%,06E(B0F$Z`$]#I0(0<(zv)# =")"L$LY\?\(zv)L!W")* E
M`!? 6(5:`!4!OT+(zv)4+4#$ 2!5E$!D&M4Y?]28!QQ75('0#\P7?U,P3]QO53R
M=(zv)L(zv)8&%/\5?681[4VU&P) 1Y$5!1460_8%%P]V<`3&$=(zv)&5"L ? 6(zv)`+8-M6
M(!W =AM05/%Z!T!1$/=!X"4`&Y!O'2!C(5B4`-#_4R)5I2G `9!HT ,`:C90
M06U90D,>`$NT;Q#P.?%V^58(zv):V%L]1[4/P)N*V^O"(zv)H8\0!Q8 ,`$! `````
M`P`1$ $````#`( 0_____T `!S!0/0;].JN^`4 `"#!0/0;].JN^`0L``( (
M( 8``````, ```````!&``````.%`````````P`"(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````$(4````````#``6 "" &``````# ````````1(zv)````!2A0``\ X`
M`!X`)8 (( 8``````, ```````!&`````%2%```!````! ```#(zv)N, `#`":
M"" &``````# ````````1(zv)`````!A0````````L`+X (( 8``````, `````
M``!&``````Z%`````````P`P(zv) (zv)(zv)!(zv)``````P ```````$8`````$84`````
M```#`#* "" &``````# ````````1(zv)`````8A0```````!X`08 (( 8`````
M`, ```````!&`````#:%```!`````0`````````>`$* "" &``````# ````
M````1(zv)`````WA0```0````$`````````'(zv)!#(zv) (zv)(zv)!(zv)``````P ```````$8`
M````.(4```$````!`````````!X`/0`!````!0```%)%.B ``````P`--/TW
$``!?K(4`
`
end
chyba delphi ???
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 31.5.1999 10:11:45
> Zdravim, nevedel by nekdo jak se muze stat ze funkce zmeni hodnotu
> parametru bez deklarace var?
Na takove pripady mi vetsinou pomuze zapnout RangeChecking - a pak
zjistim, ze nekde misto A[r,s] mam A[s,r] a je jasno.
Tom
Screen Saver 2
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 31.5.1999 10:18:42
A nevite nekdo, jak ma screen saver kreslit do toho prewiew na karte
nastaveni ?
> -----P�vodn� zpr�va-----
> Od: Oldrich Nic [SMTP:NICO(zv)feld.cvut(tec)cz]
> Odesl�no: 31. kv�tna 1999 12:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Screen Saver 2
>
> SSaver je ve skutecnosti prachobycejny exac, jenomze s priponou scr.
> Kdyz vyberes screensaver ze seznamu na te karte Obrzovka->Setric
> obrazovky, spusti Windows soubor SSaver.scr s parametrem /T (alespon
> myslim). Tak si zjisti pri spusteni toho sveho souboru, jake dostal
> na prikazovy radce parametry a zarid se podle toho.
> Oldrich Nic, nico(zv)feld.cvut(tec)cz
Qreport
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 31.5.1999 10:20:05
Mimo ine aj tento problem riesi SQL Report Builder 1.1
Demo od 1.6.1999 je k dispozici na ftp.freeweb.coco(tec)cz - 400 kB zip
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Ji�� Zachardala <jiri.zachardala(zv)spsselib.hiedu(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. m�j 1999 17:06
P�edm�t: Qreport
Zdrav�m
Nev�te nekdo pros�m V�s jak se v Qreport v detailu daj� dva z�znamy z jedn� tabulky na �adek aby to pokra�ovalo
Dekuji
Clipboard
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 31.5.1999 10:25:26
Potrebujem uchovat obsah Clipboardu do premennej a po urcitych operaciach s clipboardom opet vratit povodny obsah clipboardu.
Je to mozne?
TUNGLI Jan
tungli(zv)pvt.sk
Predavanie prem.
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 31.5.1999 10:29:25
Chcem predat urcite parametre pre inu aplikaciu, ktoru ja spustim.
Nechcem to robit cez command line ako parametre, lebo sa tam nezmestia.
Mozete mi napisat co by bolo najlepsie?
TUNGLI Jan
tungli(zv)pvt.sk
cele CISLO
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 31.5.1999 10:37:20
Treba takhle - je to psane v PACALU, ale v DELPHI to taky pojede
var
R: real;
C: comp;
begin
R:=52.6; // zkus menit cisla
C:=R;
if C=R then write('celociselne')
else write('realne');
end.~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
----------
> Odes�latel: Tom� Sypal <sypal(zv)seznam(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: cele CISLO
> Datum: 31. kv�tna 1999 1:09
>
> Jak zjistim, jestli je cislo typu real cele ?
>
>
> Zkousel jsem A mod 1,
>
> ale nejde to zkompilovat, protoze je to pouze pro integer.
>
> Tomas
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
chyba delphi ???
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 31.5.1999 10:38:39
zadej priklad
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
----------
> Odes�latel: Josef Vopalensky <xvopale(zv)pluto.spsselib.hiedu(tec)cz>
> Komu: delphi konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: chyba delphi ???
> Datum: 31. kv�tna 1999 9:08
>
> Zdravim, nevedel by nekdo jak se muze stat ze funkce zmeni hodnotu
> parametru bez deklarace var?
>
> PS:Nepouzivam zadny ukazatele.
> Diky joe
koupe Delphi 3 Standard
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 31.5.1999 10:46:31
> >
> > >Vzhledem k tomu, ze nevi co by ho potkalo pri kompilaci pod D4 rad by
> > >Delphi3.
> > >Lze prodat soft kompilovany pod verzi 3 kdyz jsem vlastnikem pouze
> > verze 4?
> > -----------
> > Tak to mohu tveho kamarada zcela uklidnit.
> > Nepotkalo by ho vubec nic spatneho. Ja jsem do D4 prevedl vsechny
> > projekty z D3 a to naprosto bez potizi.
> > Vetsinou jsem nemusel menit vubec nic! Jenom jsem provedl kompilaci.
>
> Problem muze nastat v pripadech kdy chybne pouzival promenne Integer misto
> DWORD (predevsim ve volani API funkci). V predchozich verzich Delphi to
> proslo, protoze DWORD byl definovan jako Integer a teprve v D4 byl konecne
> zaveden novy typ LongWord.
>
> > byt bez obav. Kupovat dnes D3 jenom z obavy kompatibility je pitomost.
>
> Presne tak.
Vyborne. Koupi si tedy D4. Alespon budu mit moznost se ne take trochu kouknout.
Jak je to se servis packama?
Nemylim-li se, tak se svpck 2 se to jiz koupi a svpck 3 se stahne a aplikuje?
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Screen Saver 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.5.1999 10:57:56
Oldrich Nic wrote:
>
> From: Maixner Adam <Adam.Maixner(zv)pvt(tec)cz>
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Screen Saver 2
> Date sent: Mon, 31 May 1999 10:18:42 +0200
> Send reply to: delphi-l(zv)fwd(tec)cz
>
> > A nevite nekdo, jak ma screen saver kreslit do toho prewiew na karte
> > nastaveni ?
Ahoj,
Je to popsano primo na Borlandskem webu v Delphi Developer Support, tedy tam
kde by to clovek nejmene hledal :-)
http://www.borland.com/devsupport/delphi/ti_list/TI4534D.html
When you go to the Screen Saver tab in Display Properties the screen saver is
supposed to preview itself in the little monitor. ParamStr(1) will contain '/P',
'-P', or just 'P'. At the same time, ParamStr(2) will contain the window handle
for the little monitor window.
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
chyba delphi ???
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 31.5.1999 09:39:50 met-1mest
Zkus to popsat nejak vic, protoze normalne se to opravdu nestava.
Oldrich Nic.Graf.
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 31.5.1999 09:53:25 met-1mest
Zrovna sem programoval neco podobnyho => tak jsem teda hledal na
internetu nejaky komponenty. No, a nic sem nenasel, teda nic, co by
stalo za rec. Tak sem si to zacal psat sam, ale vysledky zatim nic
moc.
Olda Nic, nico(zv)feld.cvut(tec)cz
Paleta komponent
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 31.5.1999 12:00:42
Mam nejaky problem s paletou komponent v IDE Delphi. Vse funguje jak ma ale
ikonky v palete komponent jsou bud nesmyslne, nebo posunuty v nektere ose
nebo tam vubec nejsou a je tam jen zmet car (ocividne graficky zobrazeny
obsah nejake nahodne pameti). Zkousel jsem uz vsechno mozne - odmazat
vsechny balicky a znovu nainstalovat, mazat vsechny ty *.dsk, *.dof a jim
podobne soubory, 3x preinstalovat Delphi a porad vysledek zadny. S Delphi se
sice da pracovat ale kdyz pracuju komponentama a zvlast nevizualnima tak me
to zdrzuje nez treba zjistim ze ikona s Toolbarem je vlastne hlavni menu
nebo ikona s ColorGridem je PopupMenu
a tak podobne - no zkratka totalni hokej.
S pozdravem
Zdenek Petruj
____________________________
adress: Q.gir, s.r.o.
F�gnerova 11
702 00 Ostrava
Czech republic
____________________________
telefon: +420-(0)69-6134566
fax: +420-(0)69-6134567
e-mail: zpetruj(zv)qgir(tec)cz
internet: http://www.qgir(tec)cz
Screen Saver 2
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 31.5.1999 10:02:21 met-1mest
SSaver je ve skutecnosti prachobycejny exac, jenomze s priponou scr.
Kdyz vyberes screensaver ze seznamu na te karte Obrzovka->Setric
obrazovky, spusti Windows soubor SSaver.scr s parametrem /T (alespon
myslim). Tak si zjisti pri spusteni toho sveho souboru, jake dostal
na prikazovy radce parametry a zarid se podle toho.
Oldrich Nic, nico(zv)feld.cvut(tec)cz
cele CISLO
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 31.5.1999 10:04:53 met-1mest
var
r: real;
if Frac(r) = 0 then
Je_to_cely_hurara; {trochu mi uz sibe z toho horka...}
Oldrich Nic, nico(zv)feld.cvut(tec)cz
Paleta komponent
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 31.5.1999 12:18:33
Zkus zmenit hloubku barev windows - tohle mi delphi udelaly, kdyz jsem
nainstaloval 24bit color.
> -----P�vodn� zpr�va-----
> Od: Petr�j Zden�k [SMTP:ZPetruj(zv)qgir(tec)cz]
> Odesl�no: 31. kv�tna 1999 12:01
> Komu: Delphi Konference (el. adresa)
> P�edm�t: Paleta komponent
>
> Mam nejaky problem s paletou komponent v IDE Delphi. Vse funguje jak
> ma ale
> ikonky v palete komponent jsou bud nesmyslne, nebo posunuty v nektere
> ose
> nebo tam vubec nejsou a je tam jen zmet car (ocividne graficky
> zobrazeny
> obsah nejake nahodne pameti). Zkousel jsem uz vsechno mozne - odmazat
> vsechny balicky a znovu nainstalovat, mazat vsechny ty *.dsk, *.dof a
> jim
> podobne soubory, 3x preinstalovat Delphi a porad vysledek zadny. S
> Delphi se
> sice da pracovat ale kdyz pracuju komponentama a zvlast nevizualnima
> tak me
> to zdrzuje nez treba zjistim ze ikona s Toolbarem je vlastne hlavni
> menu
> nebo ikona s ColorGridem je PopupMenu
> a tak podobne - no zkratka totalni hokej.
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Q.gir, s.r.o.
> F�gnerova 11
> 702 00 Ostrava
> Czech republic
> ____________________________
> telefon: +420-(0)69-6134566
> fax: +420-(0)69-6134567
> e-mail: zpetruj(zv)qgir(tec)cz
> internet: http://www.qgir(tec)cz
>
> Jak se v Dlephi posilaji SMS
[*] muher(zv)csas(tec)cz - 31.5.1999 12:24:23
Jeste k Paegasu: Telo SMS se sklada z prvnich
15 znaku subj., pomlcka a pak nasleduje telo
email zpravy. Do 5ti minut by to melo dorazit
do mobilu {maximalne do 30min.}.
-----Original Message-----
From: Zdenek Drvota [SMTP:drvota(zv)zds(tec)cz]
Sent: Friday, May 28, 1999 4:45 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Jak se v Dlephi posilaji
SMS
> From: Mal� Dobromil
<dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Nevim, jak u Eurotelu, ale u Paegasu
> staci odeslat email na adresu
> +420603xxyyzz(zv)sms.paegas(tec)cz,
> kde xxyyzz je pochopitelne
> telefonni cislo.
U Eurotelu taky jako normalni e-mail na
+42060?xxyyzz(zv)sms.eurotel(tec)cz
ale POZOR, ne vsichni Paegas maji tuto sluzbu
aktivovanou, takze to kazdemu nemusi dojit
(na mobil, pochopitelne :-)
>
> > ----------
> > Delam takovy programek, co by me upozornoval
> > na ruzne udalosti poslilanim SMS zpravy na
mobil.
> > Problem je v tom, ze nevim, jak posilat SMS
> > pod Delphi. Jestli nakod vite jakym prikazem
nebo
> > jakou metodou bych to mohl udelat, tak mi prosim
> > napiste.
> >
>
>
-----------------------------------------------
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
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Screen Saver 2
[*] Petr Kure� - 31.5.1999 13:06:49
V MSDN je slusny popis jake funkce je potreba podporovat, abys mel
kompatibilni ss. Zrovna tohle je extra funkce, ktera se vola prave kdyz
chces ten nahled.
Petr
> -----Puvodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Oldrich Nic
> Odesl�no: 31. kvetna 1999 12:30
> Komu: delphi-l(zv)fwd(tec)cz
> Predmet: RE: Screen Saver 2
>
>
> From: Maixner Adam <Adam.Maixner(zv)pvt(tec)cz>
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Screen Saver 2
> Date sent: Mon, 31 May 1999 10:18:42 +0200
> Send reply to: delphi-l(zv)fwd(tec)cz
>
> > A nevite nekdo, jak ma screen saver kreslit do toho prewiew na karte
> > nastaveni ?
> Hmm, tak to nevim.
>
>Jak se v Dlephi posilaji SMS
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 31.5.1999 13:30:06
Ja bych taky prihodil svoji trosku do mlyna. Nejjednodussi je pouzivat na
odesilani SMS normalni mail. Jenze ma to samozrejme taky svoje omezeni.
1) Eurotel - je to silene nespolehlive a rychlost zprav je nezarucena.
Odeslal jsem SMSky, ktere nedosly dodnes. (A HLAVNE AT SE SE MNOU ZADNY
EUROTELISTA NEHADA !!!! POKUD MU TO FUNGUJE, TAK MA HOLT STESTI . JA JSEM NA
TOTO TEMA UDELAL STOVKY POKUSU, takze neplacejme do konference, jako
obycejne)
2) Paegas - nejvyhodnejsim prijemcem emailovych SMS jsou predplacene TWISTY,
protoze ty maji implicitne nastavenou adresu
+420603xxxyyy(zv)sms.paegas(tec)cz a neni mozne tento mailbox vypnout. Horsi uz je
to s radne placenymi tarify, protoze tam to uzivatel nemusi mit aktivovany
nebo muze mit zvolenou jinou adresu (napr.
cokoliv.kdokoliv(zv)sms.paegas(tec)cz ) a uz to nedojde resp. snazi se to vratit
odesilateli s tim, ze adresat neexistuje.
Druha moznost je posilat to pres HTTP protokol tomu Pegasimu (ci Eurotelimu)
CGI skriptu na jejich serveru. V tom pripade by ale (tusim jen u Paegasu)
musela byt nejdrive prekonana jejich ochrana, ktera kontroluje, odkud byla
zprava skriptu odeslana. Pokud to neni z adresy sms.paegas(tec)cz , skript
zpravu odmitne s tim, ze mas pouzit jejich oficialni SMS gate. To znamena,
ze bys musel do hlavicky HTTP nejak podvrhnout, ze to jde jako z Pegasu.
To jest asi tak vse
PK
----- P�vodn� zpr�va -----
Od: <muher(zv)csas(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 31. kv�tna 1999 12:24
P�edm�t: RE: Jak se v Dlephi posilaji SMS
Jeste k Paegasu: Telo SMS se sklada z prvnich
15 znaku subj., pomlcka a pak nasleduje telo
email zpravy. Do 5ti minut by to melo dorazit
do mobilu {maximalne do 30min.}.
postmessage a PARAMETRY
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 31.5.1999 12:44:54
Ahoj,
jedno z reseni najdes u nas na www.zds(tec)cz (download)
v OneInst
> From: Tom� Sypal <sypal(zv)seznam(tec)cz>
> Pokud chci poslat predesle instanci programu nejakou zpravu s
> parametry (napr. string ci integer), jak to mam udelat ?
> Postmessage nic takoveho nenabizi a nechce se mi predavat
> informace pres nejake >
-----------------------------------------------
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
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
cele CISLO
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 31.5.1999 12:44:54
> From: Tom� Sypal <sypal(zv)seznam(tec)cz>
> Jak zjistim, jestli je cislo typu real cele ?
Strucne receno - na 100% nijak.
Podrobneji:
vzdy se da pouze porovnat, zda se shoduje s
urcitou presnosti, tzn. urcit zda je v danem
(ne zcela) libovolne malem intervalu.
>
> Zkousel jsem A mod 1,
>
> ale nejde to zkompilovat, protoze je to pouze pro integer.
>
> Tomas
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
>
>
>
-----------------------------------------------
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
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu