Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Robot Karol++
[*] dphi_forum(zv)proces.sk - 5.10.2001 09:53:27
Nazdarek Ondrej.......
Mozem ti nieco pomoct. Ak by to mohlo byt OpenGL, alebo DIRECT 3D tak je to
v pohode.
Zajtra ti poslem co som robil. Je to taky jednoduchy 3D Editor na animacie
s linearnou interpolaciou.
S pozdravom
Michal
TServerSocket a TClientSocket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.2001 10:11:39
> Ja nevim, cim tady minite spojeni kazdy s kazdym... Dyt prece muze
existovat
> pouze 1 TCP Server a spoustu klientu, ktery se pripoji jen na ten
server a
> ten jim vsechno pak preposila ... daji se tim vyresit i spoustu
problemu,
> jako jsou zpravy jen pro "nektere" atd ... Ja osobne bych se v
"nepratelskem
> prostredi internetu" na UDP nespolihal ... >
Vse zalezi na tom jak moc bude CHAT server zatizen. Pokud si na nem
bude klabosit par desitek lidi najednou pak to TCP v pohode zvladne.
Pokud ovsem pujde o zalezitost vice masovou pak musi nastoupit UDP
>A kdyz chces si posilat potvrzeni
> o prijmu paketu, tak proc nepouzit zrovna TCP? TO potvrzeni ti taky
nemusi
> prijit a
Nektere zalezitosti jsou pomoci TCP nerealizovatelne. TCP ma daleko
vetsi narocnost na prostredky systemu nez UDP. Jeden TCP socket
umoznuje komunikaci pouze s jednim klientem. Socketu muze byt v
systemu jen omezene mnozstvi (teoreticke maximum je 65535, Windows NT
maji prednastaveny strop na 4000), kazdy socket ve spojenem stavu
sezere nejakou tu RAMku (na systemech typu WIn9X/Me se kernel memory
vycerpa uz po par socketech). Pri soubezne obsluze mnoha TCP spojeni
muze snaze dojit i k pretizeni CPU...
Naproti tomu k obslouzeni tisicu klientu staci jeden jediny UDP socket
(pripadne 2 - jeden prijem druhy odesilani). Proc si myslis, ze ICQ
komunikuje se serverem pomoci UDP?
>A kdyz chces si posilat potvrzeni
> o prijmu paketu, tak proc nepouzit zrovna TCP? TO potvrzeni ti taky
nemusi
> prijit a
> jede pres IP, ktery zadny komunikacni kanaly nevytvari ... a v dobe
P III je
> to uplne zanedbatelny, jestli se vykona par radku kodu navic ...
Rychlost CPU s celym problemem nemusi mit vubec nic spolecneho.
Omezeni na pocet spojeni bys musel resit jedine sestavenim serveroveho
pole - jako napriklad ICQ - pod icq.mirabilis.com (nebo jak seserver
jmenuje) je skryto nekolik IPCek - klientuv DNS resolver nahodne nebo
cyklicky vybira jedno z nich a tak vlastne rozklada zatez.
Nektere aplikace (video , voice,..) pouzivaji UDP i z jinych duvodu.
TCP se pomalu vzpamatovava z vypadku a ma casto vyssi narocnost na
sirku prenosoveho pasma...
D. Toman
TServerSocket a TClientSocket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.10.2001 10:18:35
Opakovani je matka moudrosti.. proto tedy shrnu co jsem tu v par
poslednich zpravach tvrdil:
Chci-li implementvat pres TCP/IP chat vice uzivatelu najednou,
pak mam dve zakladni moznosti:
1. Udelat chat-server, kke kteremu se kazdy klient pres TCP
protokol pripoji, a komunikuje pouze s timto serverem. Server se
postara o distribuci informaci vsem pripojenym klientum.
2. udelat to bez serveru. A tady mam dve varianty:
a) pres TCP. To ale znamena, ze kazdy chat klient musi byt
schopen se pres TCP pripojovat k ostatnim, ale take musi bych
sam schopen TCP spojeni prijimat. Uz to samo o sobe naznacuje,
ze je to neni stastne reseni. Navic v nejhorsim moznem pripade
pak bude existovat TCP spojeni mezi kazdym zucastnenym
clovekem v chatu. Efektivita place...
b) pres UDP, kdy na jednom portu kazdy klient posloucha a ceka
na prichozi zpravu od KOHOKOLIV a napak na tento port odesila
informace komukoliv. Ve vysledku pak sice take proudi data
naprosto mezi vsemu zucastnenymi, ale mnohem efektivneji, a to
uz nemluvim o tom, ze takovato aplikace je trivialne jednoducha!
S variantami 1 a 2b se v praxi bezne setkate u takovych systemu
jako je ICQ, IRC chat, atd... varianta 2a je na nic, proto ji nikdo
take nejak v masovem meritku nepouziva.
A neni to jen tento duvod... duvod jsou taky firewally!!! Vetsinu jsou
totiz takove firewall politiky, ktere umoznuji klientum se pripojovat
ven, ale pochopitene nedovoli se z venku pripojit dovnitr! Takze
varianta 1 je schudna, protoze se vsichni pripojuji k vne
umistenemu serveru. Varianta 2a na drtive vetsine firewallu zcela
pohori! A varianta 2b nebude mit sebemensi problem pokud umi
SOCKS5, coz je dneska standard!
Jinak bych rad odboural mylne predstavy... rozdil mezi UDP a TCP
neni v zatezi procesoru, takze nejak nechapu poznamku o PIII. ;-)
TCP ma znatelne vetsi overhead nez UDP. Hlavni rozdil je ale v
logice fungovani.
Nesmite zapominat na to, ze mnozstvi socketu je pro kazdy
pocitac OMEZENY. (nezapomente, ze kazdy socket si musi
alokovat nejake zdroje!) ve chvili, kdy potrebujete komunikovat s
mnoha ruznymi pocitaci najednou, tak u TCP si to vyzaduje mit pro
kazdeho klienta TCP kanal, tedy pro kazdeho klienta jeden socket.
Navic navazani TCP spojeni stoji nezanedbatelny cas, takze
neustale rozpojovat a spojovat TCP je blbost!
Zatimco u UDP si vystacite s JEDNIM jedinym socketem! TO JE
TEN DUVOD, proc treba DNS v masove mire pouziva UDP protokol
a ne TCP!
Ano, UDP ma tu nevyhodu, ze neni garantovano doruceni dat
prijemci. To lze ale snadno obejit 'logikou' komunikace... Nicmene
predstava, ze se si pres UDP vesele komunikujete a tu a tam se
ztrati packet je MYLNA! Teoreticky to nastat muze, ale v praxi se
to stava vyjimecne. V praxi bud ty UDP normalne prochazeji, nebo
naopak neprochazi vubec zadny (protoze je nekdo umele
odfiltruje... :-))
> Ja nevim, cim tady minite spojeni kazdy s kazdym... Dyt prece muze
> existovat pouze 1 TCP Server a spoustu klientu, ktery se pripoji jen
> na ten server a ten jim vsechno pak preposila ... daji se tim vyresit
> i spoustu problemu, jako jsou zpravy jen pro "nektere" atd ... Ja
> osobne bych se v "nepratelskem prostredi internetu" na UDP nespolihal
> ... A kdyz chces si posilat potvrzeni o prijmu paketu, tak proc
> nepouzit zrovna TCP ? TO potvrzeni ti taky nemusi prijit a ... Ty
> komunikacni kanaly, to je jen "priblizeni" ... stejne to jede pres
> IP, ktery zadny komunikacni kanaly nevytvari ... a v dobe P III je to
> uplne zanedbatelny, jestli se vykona par radku kodu navic ...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
povoleni editace ale ne insertu
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 5.10.2001 10:26:36
tak jsem to udelal tak, ze do InsertSQL jsem dal neskodny dotaz a
DeforeInsert jsem dal Abort
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Vytvaranie komonenty
[*] jarunek peter <oldiak(zv)yahoo(tec)com> - 5.10.2001 01:29:54 -0700 (pdt)
Caute!
Snazim sa vytvorit komponrntu typu bunka, aby
obsahovala nejaky text.
Ako predka mojej komponenty TCell som uviedol
TGraphicControl a vytvoril som jedinu metodu
procedure TCell.Show;
begin
canvas.rectangle(0,0,100,100);
end;
Nevyhadzuje ziadne chyby, ale ked tu komponentu
umiestnim na formular a dam vyvolat napr
Cell1.Show, nic sa neudeje (a ocakaval by som
vykreslenie obdlznika na formular).
Co tam robim zle? Mam volat este nejake ine metody?
Ako vytvorit komponentu, aby sa vykreslila uz v dobe
navrhu?
Dik, Peter Jarunek
__________________________________________________
Do You Yahoo!?
NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.com/ps/info1
TServerSocket a TClientSocket
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.10.2001 10:33:49
A jak si myslis ze je delany chat ?
Kdyz budes resit potvrzeni, tak si jen budujes
vlastni TCP nad UDP.
Navic UDP broad cast (tak jsi to asi myslel) neprojde
pres router.
Slavek
> TCP je na chat hezke jen kdyz mas chat jen a jen mezi dvema
> lidmi! Copak si myslis, ze treba tako ve IRC ma spojeni kazdy s
> kazdym??? Ne, vsichni jsou pripojeni na server, ktery jim ony
> informace redistribuje!MS SQL2000 lokalni promenna typu TEXT ?
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 5.10.2001 10:33:53
Pozor : Hodne velk� cislo je pro MS-SQL2000 max. 8000 pro char a 4000 pro
nchar.
Pavel
> -----P�vodn� zpr�va-----
> Od: bardon [mailto:bardon(zv)akord-soft(tec)cz]
> Odesl�no: 5. ��jna 2001 8:46
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: RE: MS SQL2000 lokalni promenna typu TEXT ?
>
>
> Uvazoval bych o pouziti typu varchar(hodne_velke_cislo)
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Radek Janu# FSG
> Sent: Thursday, October 04, 2001 11:11 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: MS SQL2000 lokalni promenna typu TEXT ?
> DECLARE (zv)SQL TEXT
>
> potrebuji ji plnit avsak server mi to zakaze, lokalni
> promennou tohoto typu
> nelze pouzivat
>
>
>
>
>
>
>
>
> IBX: povoleni editace ale ne insertu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 5.10.2001 10:40:17
Vypln i ten insert dotaz a osetri si to v beforeinsert tzn. vypis
hlasku a dej abort;
> mam tabulku, do ktere se ukladaji nejake davkove operace nad databazi.
> do ty tabulky je nesmysl pridavat neco rucne, ale je tam moznost
> editovat poznamku nebo zrusit radek (vyvola zruseni cele operace). IB6,
> D5p, IBX 4.52. ted problem: Pouzivam TIBDataSet + DBGrid a mam zadany
> Select, Modify, Delete a Refresh SQL (tedy ne Insert). No a kdyz se
> pokusim pridat novou vetu, tak to vyhodi anglickou hlasku, ze chyby
> InsertSQL a blablabla. Zkusil jsem tu hlasku odchytit before insert, ale
> vubec to tam nevleze, rovnou hlasku :(. netusite nekdo, jak korektne
> zakazat insert/append, ale ne edit/delete?
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Ztrata Modalnosti
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 5.10.2001 11:04:45
> Mam okno zobrazene jako modalni a na nem cudl, kterym odesilam Email
> pres JclSimpleSendMail.
> Potom co ten cudl zmacknu se zobrazi okno Outlooku.
> Potud to funguje dobre, ale potom co zavru okno Outlooku tak to okno
> s tim cudlem uz neni modalni.
Podivej se, jestli na nem neni nastaven ModalResult. Pokud ano tak ho zrus.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Ztrata Modalnosti
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 5.10.2001 11:08:03
Ahoj vsem
Mam okno zobrazene jako modalni a na nem cudl, kterym odesilam Email pres JclSimpleSendMail.
Potom co ten cudl zmacknu se zobrazi okno Outlooku.
Potud to funguje dobre, ale potom co zavru okno Outlooku tak to okno s tim cudlem uz neni modalni.
To znamena ze se chova jako
normalni okno zobrazene pres Show.
Prosim pomozte
Jirka
TServerSocket a TClientSocket
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 5.10.2001 11:15:09
Ok ...
urcite mate pravdu, vzdyt ja se nepru, ale ted bych prosil o vysvetleni ..
Jak pomoci UDP bez servru rozeslu data vsem klientum ?
1. Kazdy klient ma v nejakem seznamu vsechny zucastnene adresy ...
2. Pomoci technologie Broadcast ...
Bod 1 se ale bes Serveru nebo bez broadcastu neobejde a bod 2 je pro
internet uplne na prd ...
Jinak k me poznamce, "rozdil mezi TCP a UDP lezi ve vykonu procesoru ...",
jestli jsem to tak spatne napsal, ze to je k nepochopeni, tak se omlouvam.
Ale ja sem tim chtel rici, ze v Ethernetu jsou vsechny sitove vrstvy krome
fyzicke a mozna linkove implementovany primo procesorem ... pokud se
nemylim, takze by na vykonu procesoru zas mohlo trochu zalezet. A jak zde
bylo receno, ma TCP o kus vetsi Overhead, takze pri pouziti TCP v masivnim
meritku se uz trochu procik zahreje ...
A k tem SOCKS5, ja mam takovej dojem, ze v nasi firme na firewallu nemame
zadnej bezici SOCKS Server ... Mame se tim padem povazovat za nestandartni ?
Ahoj
Radek
Vytvaranie komonenty
[*] <kuchar(zv)unicodesys(tec)cz> - 5.10.2001 11:25:24
skus volat perform(self);Ztrata Modalnosti
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 5.10.2001 11:26:07
> Podivej se, jestli na nem neni nastaven ModalResult. Pokud ano tak ho zrus.
Ahoj
ModalResult je 0
Ted jsem zkousel volat primo API - MapiSendMail a dela to to same, takze problem
nebude v Jcl.
Jirka
Transparentni Panel
[*] <kuchar(zv)unicodesys(tec)cz> - 5.10.2001 11:36:08
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Caute,
vytvoril jsem novou komponentu jako potomka TPanel, potreboval bych te komponente priradit novou vlastnost TRANSPARENT, do procedury paint jsem pridal :
-----------------------------------------------------------------------------------------
Canvas.Brush.Style := bsclear;
inherited Paint;
-----------------------------------------------------------------------------------------
ale najak se to minulo ucinkem, muzete mi poradit kde delam chybu ?Vytvaranie komonenty
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 5.10.2001 11:37:37
> Nevyhadzuje ziadne chyby, ale ked tu komponentu
> umiestnim na formular a dam vyvolat napr
> Cell1.Show, nic sa neudeje (a ocakaval by som
> vykreslenie obdlznika na formular).
Ahoj
mas predefinovanou metodu Paint?
Priklad:
type
TCell = class(TGraphicControl)
...
protected
procedure Paint; override;
...
end; procedure TCell.Paint;
begin
canvas.rectangle(0,0,100,100);
end;
Je to to co potrebujes?
Preji hodne zdaru
Jirka
========================
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lanskroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
TServerSocket a TClientSocket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.10.2001 11:44:29
> Jak pomoci UDP bez servru rozeslu data vsem klientum ?
>
> 1. Kazdy klient ma v nejakem seznamu vsechny zucastnene adresy ...
>
> 2. Pomoci technologie Broadcast ...
>
> Bod 1 se ale bes Serveru nebo bez broadcastu neobejde a bod 2 je pro
> internet uplne na prd ...
Nechapu... kdyz mate nejaka data a sznam klientu, kterym ty data
chci poslat, tak proc proste neposlete ty data kazdemu klientovi
zvlast???
Broacast je technologie vhodna jen na MALE lokalni site! A i kdyz
mam server na rozeslani dat, tak v masovemmeritku je UDP lepsi
volba nez TCP.. ale to jsem to uz taky vysvetlil.. a nejen ja. ;-)
> A k tem SOCKS5, ja mam takovej dojem, ze v nasi firme na firewallu
> nemame zadnej bezici SOCKS Server ... Mame se tim padem povazovat za
> nestandartni ?
SOCKS nemusi bezet NA firewallu. muze bezet klidne i na jinem
troji, jen pochopitene firewall musi byt nakonfigurovan tak, aby k
tomu SOCKS5 proxy neco pustil... ;-) A SOCKS5 proxy se naleza
v mnoha programech, existuje i zvlast a existuje i zadarmo.
SOCKS5 je popsan v RFC dokumentech a je to navrhovany
internetovy standard! Mnoho klientskych aplikaci jej podporuje..
Takze v cem je problem???
Osobne si myslim, ze jste-li firewallem prakticky uriznuti a nemate
SOCKS5, tak jste opravdu hodne nestandardni. ;-)
>
> Ahoj
>
> Radek
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Ztrata Modalnosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2001 11:55:43
From: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
> Ted jsem zkousel volat primo API - MapiSendMail a dela to to same, takze
> problem nebude v Jcl.
Ahoj,
tohle je problem ktery se zatim nepodarilo uspokojive vyresit. U nekterych
klientu to slo resit nasledujicim zpusobem (puvodne byl tento kod i soucasti
unitu JclMapi, ale protoze s tim byly problemy tak se to odstranilo) ale je
nutne to vyzkouset s danym klientem a v dane aplikaci:
uses
JclMapi, TaskWnds;
procedure TForm2.SendBtnClick(Sender: TObject);
var
Email: TJclEmail;
T: TTaskWindows;
begin
Email := TJclEmail.Create;
try
Email.Recipients.Add('aaa(zv)aaa.aaa');
SaveTaskWindowsState(T);
try
Email.Send;
finally
RestoreTaskWindowsState(T);
end;
finally
Email.Free;
end;
end;
Unit TaskWnds je zde: http://www.volweb(tec)cz/pvones/download/TaskWnds.zip
Petr Vones
THREAD a databasove transakce
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 11:57:55
> Odes�latel: Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital.com>
> dat. Mozna by take pomohlo mit pro thread vlastni session. Jsou takove
> napady.
Urcite vlastni session!
Honza
=========================================
= 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 569 (0776 347735)
=========================================Vytvaranie komonenty
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.10.2001 12:02:54
> From: jarunek peter
>
> Snazim sa vytvorit komponrntu typu bunka, aby
> obsahovala nejaky text.
> Ako predka mojej komponenty TCell som uviedol
> TGraphicControl a vytvoril som jedinu metodu
>
> procedure TCell.Show;
> ....
TGraphicControl uz metodu Show ma, s jinym vyznamem.
Nepripada mi vhodne vytvaret stejnojmenne metody
pro jinou funkci.
Podivej se do zdrojoveho textu ExtCtrls,
jak je udelana komponenta TPaintBox,
pripadne pouzij TPaintBox jako predka sve komponenty.
Vaclav Krmela
Obslouzeni IB vyjimek
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 12:09:38
> Odes�latel: Miroslav Evj�k <evjak(zv)atlas(tec)cz>
> mohl bych poprosit o Vase zkusenosti s elegantnim obslouzenim vyjimek
> InterBase? Konkretne se mi jedna, aby uzivatel nevidel primo to, co na nej
> rve database (napr "violation of FOREIGN KEY constraint INTEG_XX on table
> TABULKA"), ale nejakou stravitelnejsi hlasku.
Mozna existuji elegantnejsi reseni,
ale ja na kurzu "Navrh a implementace SQL databaze" vzdy doporucuji
DUSLEDNE POJMENOVAVAT VSECHNY CONSTRAINTS
napr.
PK_FAKTURA (primary key)
FK_FAKTURA_ODBERATEL (foreign key)
...
V Application.OnException pak lze tuto chybu "rozkodovat" a ohlasit neco smysluplneho napr. Faktura s timto cislem uz existuje.
U foreign key je smysluplna hlaska obtiznejsi, kazdopadne chyba je presne identifikovana.
Honza
=========================================
= 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 569 (0776 347735)
=========================================
KYLIX Report Generator
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 12:16:36
> Odes�latel: Radek KALA <Kala(zv)Atlas(tec)cz>
> Mam dotaz, v Delphi pouzivam QuickReport a narozdil od spousty
> lidi jsem celkem spokojen, to ale neni predmetem dotazu,
> potreboval bych delat aplikace prelozitelne v DELPHI 6 a KYLIX a
> vypada to, ze v KYLIXu neni QuickReport. Na co by jste mi
> doporucili prejit, ze aby to fungovalo.
Pokud vim, tak Sinea (www.sinea(tec)cz) intenzivne pracuje na generatoru sestav pro Kylix.
Ja sestavy Sinea uspesne pouzivam uz od Delphi 1.
Honza
=========================================
= 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 569 (0776 347735)
=========================================KYLIX Report Generator
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.10.2001 12:22:05
> Odes�latel: David Janko <djanko(zv)infoware(tec)cz>
> Omlouvam se,
> ze neodpovidam na dotaz ale zato se k nemu pripojuji ... mimochodem, mam
> pocit, ze ohledne Kylixu (obecneji CLX) se tady nejak nikdo moc nevyjadruje,
> cim to je ? Konecne se necha psat trochu prenositelne, a nikde nic .... :(
Nechci rozpoutavat vasne Windows vs. Linux.
Nicmene kdyz jsem na seminari Delphi 2001, Lazne Belohrad, leden 2001, 130 ucastniku,
polozil otazku:
"kdo se chysta zcela vazne, s nasazenim penez a vyvojarskych kapacit, vyvijet klientske aplikace pro Linux",
zvedly se 4 ruce...
Jsem zvedav, jak to bude v lednu 2002...
Honza
=========================================
= 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 569 (0776 347735)
=========================================�esk� t��d�n� v TADODataset
[*] Str�n�k Franti�ek - 5.10.2001 12:50:51
Pratele,
nejde nam korektne �esk� trideni v TADODatasetu.
Co s tim ?
Predem diky za rady
zdravi
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
TServerSocket a TClientSocket
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 5.10.2001 12:55:16
> Nechapu... kdyz mate nejaka data a sznam klientu, kterym ty data
> chci poslat, tak proc proste neposlete ty data kazdemu klientovi
> zvlast???
>
Ja zas tedy nechapu, jak se ten dynamickej seznam vsech clientu dostane ke
kazdemu clientovy ... bez serveru ... a bez broadcastu, jak zjistim noveho
clienta atd ...
Cau Radek
TServerSocket a TClientSocket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.2001 12:58:25
> A jak si myslis ze je delany chat ?
> Kdyz budes resit potvrzeni, tak si jen budujes
> vlastni TCP nad UDP.
to neni tak uplne pravda (muzu si definovat vlastni casove prodlevy a
opravne mechanismy coz muze byt nekdy vyhoda)
> Navic UDP broad cast (tak jsi to asi myslel) neprojde
> pres router.
no na ciscu je volba "ip directed broadcast", ktera je defaultne
zapnuta. Cili skrz spoustu routeru broadcasty projdou. Ale je pravda,
ze je nesmysl pouzivat broadcast k sireni paketu v internetu
(boradcasty jsou urceny pro LANky).
D> Toman
Jak dostat do emailu pres NMSMTP text v html forma
[*] holan <holan(zv)pressmedia(tec)cz> - 5.10.2001 13:03:38
Prosim o radu, jak dostat do emailu pres NMSMTP text v html formatu?
Pokousim se pres body.append('<html>...text...</html>') ale nedari se mi. outlook mi to prezentuje stale jako "<HTML>...text...</HTML>" ne jako "TEXT". pozn. Proprietu SubType mam nastavenou na mtHtml.
Diky Jan Holan holan(zv)volny(tec)cz
TServerSocket a TClientSocket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.10.2001 13:14:05
> Ja zas tedy nechapu, jak se ten dynamickej seznam vsech clientu
> dostane ke kazdemu clientovy ... bez serveru ... a bez broadcastu, jak
> zjistim noveho clienta atd ...
ja se nestacim divit.. JA TU PRECI NEVYMYSLIM CHAT!!! Tento
problem je resitelny i bez serveru, ale opravdu nevim, proc to mam
zrovna ted vymyslet??? Zdrojak bys nahodou nechtel? ;-)
Ja tu preci polemizoval s tim, ze delat chat BEZ SERVERU na
TCP je blbost, ze je na to vhodnejsi UDP. A ty polemizujes o tom,
ze chces delat chat pres server. Ja o voze a ty o koze!
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Drag vs MouseDown/Up, Inc(Tag)
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 5.10.2001 13:15:10
Chtel bych, abych panel tazenim kopiroval (do scrollboxu) a pri kliknuti aby
vykonal nejakou cinnost. Delam to takto:
procedure ...Panel1MouseDown...
begin
(Sender as TPanel).BeginDrag(false,5);
end;
procedure ...Panel1MouseUp...
begin
If not (Sender as TPanel).Dragging then
begin
//nejaka cinnost
end;
end;
No a problem je v tom, ze cinnost se vykona uz pri stisknuti mysi misto po
jejim uvolneni. Cim to a co s tim ?
---------
A jeste detail: proc nemuzu pouzivat Inc() na tagy? Vzdyt to jsou proste
integery - je pro to nejaky logicky duvod? Diky,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Jak dostat do emailu pres NMSMTP text v html forma
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.10.2001 13:19:13
Zahod NM* komponenty.. a pouzij radeji treba Indy.
Pokud ale chces vyuzivat i takove drobnosti jako treba koretkni
kodovani cestiny, pak zahod i to Indy a pouzij Synapsi. ;-)))
> Prosim o radu, jak dostat do emailu pres NMSMTP text v html formatu?
>
> Pokousim se pres body.append('<html>...text...</html>') ale nedari se
> mi. outlook mi to prezentuje stale jako "<HTML>...text...</HTML>" ne
> jako "TEXT". pozn. Proprietu SubType mam nastavenou na mtHtml.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
JOIN nebo nekolik selectu?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 5.10.2001 13:30:00
Ahoj,
v ulozene procedure mam select obnasejici left join 4 tabulek, v
podmince where je pak vyber jednoho konkretniho radku (ten select
ma vratit jeden radek). Je vyhodnejsi udelat takovyto select, nebo
je lepsi udelat ctyri selecty (kazdy do jedne tabulky), takze
vysledne hodnoty ziskam postupne?
Druhy zpusob se mi zda byt lepsi, protoze si nejsem jist, zda
SQL server nebude napred dlouho sestavovat join, aby z nej pak
rychle vybral jeden radek.
IB6, tabulky obsahuji nekolik set tisic zaznamu kazda.
Diky.
David Lebeda
Jak dostat do emailu pres NMSMTP text v html forma
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 5.10.2001 13:45:44
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
Nazdar Svete
</HTML>
Cau Radek
�esk� t��d�n� v TADODataset
[*] Str�n�k Franti�ek - 5.10.2001 13:54:34
>to asi bude zalezet na pouzite databazi a jeji nastaveni?
Pouzita DB je na MS SQL server 2000 a collate ma nastaveno Czech CI AS.
Ale myslim si, ze problem je spis na strane TAdoDataset, protoze pri
trideni tam jde nastavit
caseInsensitive, ale nejde tam dat AnsiSort. Jestli nekdo vite, jak to
resit, tak se prosim ozvete.
> zdravi
> Franti#ek STR#N#K
> mailto:FSTRANIK(zv)CPOJ.CZ
>
>
> �esk� t��d�n� v TADODataset
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 5.10.2001 13:55:07
Ahoj,
to asi bude zalezet na pouzite databazi a jeji nastaveni?
Bohdan Voska
SOFTWARE OK
----- Original Message -----
From: "Str�n�k Franti#ek" <FStranik(zv)cpoj(tec)cz>
To: "Delphi konference" <DELPHI-L(zv)CLEXPERT.CZ>
Sent: Friday, October 05, 2001 12:50 PM
Subject: #esk� t��d�n� v TADODataset
Pratele,
nejde nam korektne �esk� trideni v TADODatasetu.
Co s tim ?
Predem diky za rady
zdravi
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
�esk� t��d�n� v TADODataset
[*] Str�n�k Franti�ek - 5.10.2001 13:57:40
Pouzita DB je na MS SQL server 2000 a collate ma nastaveno Czech CI AS.
Ale myslim si, ze problem je spis na strane TAdoDataset, protoze pri
trideni tam jde nastavit
caseInsensitive, ale nejde tam dat AnsiSort. Jestli nekdo vite, jak to
resit, tak se prosim ozvete.
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
> Ahoj,
> to asi bude zalezet na pouzite databazi a jeji nastaveni?
>
> Bohdan Voska
> SOFTWARE OK
>
> Pratele,
> nejde nam korektne �esk� trideni v TADODatasetu.
> Co s tim ?
Franti#ek STR#N#K
JOIN nebo nekolik selectu?
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 5.10.2001 13:58:09
Pokud bys udelal test v nejakem programu, ktery ti vypise cas straveny
vykonanim prikazu (nebo si to udelej sam), tak zjistis, ze druha varianta
vyjde casove mnohem lepe.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Ahoj,
>
> v ulozene procedure mam select obnasejici left join 4 tabulek, v
> podmince where je pak vyber jednoho konkretniho radku (ten select
> ma vratit jeden radek). Je vyhodnejsi udelat takovyto select, nebo
> je lepsi udelat ctyri selecty (kazdy do jedne tabulky), takze
> vysledne hodnoty ziskam postupne?
> Druhy zpusob se mi zda byt lepsi, protoze si nejsem jist, zda
> SQL server nebude napred dlouho sestavovat join, aby z nej pak
> rychle vybral jeden radek.
>
> IB6, tabulky obsahuji nekolik set tisic zaznamu kazda.
TServerSocket a TClientSocket
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.10.2001 14:09:15
S tim vyse uvedenym souhlasim, ani to nebylo veci sporu,
veci sporu bylo tvrzeni, ze TCP je nanic.>
> Ano, UDP ma tu nevyhodu, ze neni garantovano doruceni dat
> prijemci. To lze ale snadno obejit 'logikou' komunikace... Nicmene
> predstava, ze se si pres UDP vesele komunikujete a tu a tam se
> ztrati packet je MYLNA! Teoreticky to nastat muze, ale v praxi se
> to stava vyjimecne. V praxi bud ty UDP normalne prochazeji, nebo
> naopak neprochazi vubec zadny (protoze je nekdo umele
> odfiltruje... :-))
>
K tomuto, opet se jedna o cilenou dezinformaci, z vlastni zkusenosti
vim, ze UDP obcas nedojde (testovano v podnikove siti).
schvalne si zkuste vzit jeden HUB(nejlepe 10MB) a 4 PC,
pustete kopirovani (simulace zateze) mezi PC 1 a 2 a zaroven UDP prenos mezi
3 a 4. Slavek
TServerSocket a TClientSocket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.10.2001 14:18:41
> S tim vyse uvedenym souhlasim, ani to nebylo veci sporu,
> veci sporu bylo tvrzeni, ze TCP je nanic.
Ale..ale! To jsem NIKDY netvrdil! TCP je uzitecny protokol a nikdy
jsem netvrdil, ze je na nic. Ja jen tvrdil, ze na CHAT BEZ
SERVERU je nanic, respektive ze neni vhodny.. a na tom trvam!
> > Ano, UDP ma tu nevyhodu, ze neni garantovano doruceni dat
> > prijemci. To lze ale snadno obejit 'logikou' komunikace... Nicmene
> > predstava, ze se si pres UDP vesele komunikujete a tu a tam se
> > ztrati packet je MYLNA! Teoreticky to nastat muze, ale v praxi se to
> > stava vyjimecne. V praxi bud ty UDP normalne prochazeji, nebo naopak
> > neprochazi vubec zadny (protoze je nekdo umele odfiltruje... :-))
> K tomuto, opet se jedna o cilenou dezinformaci, z vlastni zkusenosti
> vim, ze UDP obcas nedojde (testovano v podnikove siti). schvalne si
> zkuste vzit jeden HUB(nejlepe 10MB) a 4 PC, pustete kopirovani
> (simulace zateze) mezi PC 1 a 2 a zaroven UDP prenos mezi 3 a 4.
Nemohu si pomoci, ale za teto situace si troufnu tvrdit, ze onen
UDP packet siti prosel! (a zatez si simulovat ani nemuzim.. mam
tu dost siti, ktere jsou zatizene i bez toho. ;-))
Problem je u UDP zakopan trosku jinde. A tou je jestli stihnes
zpracovat vsechny prichozi UDP packety.. kdyz ne, tak se zacnou
salatovat v bufferech.. a kdyz ty dojdou, tak jsou prichozi UDP
jednoduse zahazovany... ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
JOIN nebo nekolik selectu?
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 5.10.2001 14:59:22
Podle spravneho by ve where melo byt pouze omezeni pro danou hlavni
tabulku a napojeni na ni z tech priplacnutych tabulek by melo byt v
kazdem joinu. Pak je tato varianta dobra, nebot nejdrive vybere jen tu
jednu vetu z hlavni tabulky a pak k ni postupne prirazuje ty
priplacnute tabulky.
Ovsem ne vzdy se to takto da udelat a tak hodne zalezi na tom, jak moc
jsou ve where vsechny tabulky mezi sebou provazany ( v podstate jde
jen o to, na kolik zaznamu se dostanu pri podminkach jen pro tu hlavni
tabulku - pkud je to radove 100 a ty pak jen filtruji podle tech
ostatnich tabulek, tak bych take pouzil tuto variantu).
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
5.10.2001 Lebeda David:
> Ahoj,
> v ulozene procedure mam select obnasejici left join 4 tabulek, v
> podmince where je pak vyber jednoho konkretniho radku (ten select
> ma vratit jeden radek). Je vyhodnejsi udelat takovyto select, nebo
> je lepsi udelat ctyri selecty (kazdy do jedne tabulky), takze
> vysledne hodnoty ziskam postupne?
> Druhy zpusob se mi zda byt lepsi, protoze si nejsem jist, zda
> SQL server nebude napred dlouho sestavovat join, aby z nej pak
> rychle vybral jeden radek.
> IB6, tabulky obsahuji nekolik set tisic zaznamu kazda.
> Diky.
> David Lebeda
Drag vs MouseDown/Up, Inc(Tag)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.10.2001 15:10:23
5.10.2001 Adam Feistner:
> Chtel bych, abych panel tazenim kopiroval (do scrollboxu) a pri kliknuti aby
> vykonal nejakou cinnost. Delam to takto:
> procedure ...Panel1MouseDown...
> begin
> (Sender as TPanel).BeginDrag(false,5);
> end;
> procedure ...Panel1MouseUp...
> begin
> If not (Sender as TPanel).Dragging then
> begin
> //nejaka cinnost
> end;
> end;
Pro kopirovani pomoci tazeni mysi se pouzivaji metody Drag&Drop +
prislusne metody. Neni to nic sloziteho.
> A jeste detail: proc nemuzu pouzivat Inc() na tagy? Vzdyt to jsou proste
> integery - je pro to nejaky logicky duvod?
Protoze TAG je property objektu a ne primo integer.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
TServerSocket a TClientSocket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.2001 15:14:08
> >
> > Ano, UDP ma tu nevyhodu, ze neni garantovano doruceni dat
> > prijemci. To lze ale snadno obejit 'logikou' komunikace... Nicmene
> > predstava, ze se si pres UDP vesele komunikujete a tu a tam se
> > ztrati packet je MYLNA! Teoreticky to nastat muze, ale v praxi se
> > to stava vyjimecne. V praxi bud ty UDP normalne prochazeji, nebo
> > naopak neprochazi vubec zadny (protoze je nekdo umele
> > odfiltruje... :-))
> >
> K tomuto, opet se jedna o cilenou dezinformaci, z vlastni zkusenosti
> vim, ze UDP obcas nedojde (testovano v podnikove siti).
> schvalne si zkuste vzit jeden HUB(nejlepe 10MB) a 4 PC,
> pustete kopirovani (simulace zateze) mezi PC 1 a 2 a zaroven UDP
prenos mezi
> 3 a 4.
>
Kdo dnes jeste pouziva HUBy?
Pokud neni linka do internetu zacpana nebo nekvalitni (bezdrat se
slabym signalem, atd) tak se tech paketu moc neztrati.
Neni pravda, ze vsechny internetove linky jsou pretizene tak, aby
ztracely pakety. Doruceni UDP paketu se od paketu, ktery je soucasti
streamu TCP spojeni nijak nelisi, cili neni duvod predpokladat, ze se
budou UDP pakety ztracet vice nez jakekoliv jine pakety.
D. Toman
IBDatabase a reconnect
[*] Martin Nedopil <nedopil(zv)yahoo(tec)com> - 5.10.2001 06:21:19 -0700 (pdt)
Ahoj,
mam takovy problem s IBDatabase. Pokud se mi rozpadne
spojeni s InterBase, zkousim udelat reconnect. K
spojeni dojde (komponenta je v IBDatabase.Connected =
true), ale IBDatabase.AfterConnect se nikdy nezavola.
Pri pokusu otevreni napr. TIBDataSet to vse opet
spadne.
Takze problem je jasny. Jak resit ze mi nekdo vytahne
sitovy kabel.
Diky za podnety
Martin
__________________________________________________
Do You Yahoo!?
NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.com/ps/info1
TServerSocket a TClientSocket
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 5.10.2001 15:34:49
Ahoj !
> ja se nestacim divit.. JA TU PRECI NEVYMYSLIM CHAT!!! Tento
> problem je resitelny i bez serveru, ale opravdu nevim, proc to mam
> zrovna ted vymyslet??? Zdrojak bys nahodou nechtel? ;-)
Chtel, a moc .... ;-)
> Ja tu preci polemizoval s tim, ze delat chat BEZ SERVERU na
> TCP je blbost, ze je na to vhodnejsi UDP. A ty polemizujes o tom,
> ze chces delat chat pres server. Ja o voze a ty o koze!
Tak to sem rad, ze uz si konecne rozumime ...
P.S. Ja jenom chtel rici, kdyz Chat, tak pres 1 server, a uz je pak jedno,
jestli UDP nebo TCP (teda do 4000 Clientu ...)
PP.S. A nebo bez serveru s pomoci Broadcast, ale jenom v LAN ...
PPP.S. Zdrojaky zaslu ...
Ale taky se mohu mylit ...
Tak peknej week end ...
Radek
�esk� t��d�n� v TADODataset
[*] Lubo Fule <fule(zv)ekosoft.sk> - 5.10.2001 16:02:04
Tiez sa priklanam k nazoru, ze ADO s tym nic nema. O triedenie (order by) v
select-e sa stara server a ADO uz data netriedi (to by teda bolo pekne
pomale, keby ADO este nejako triedilo zaznamy, ktore dostane zo servera).
Skus rovnaky select spustit v SQL Query Analyzer a uvidis, ci to tam bude
utriedene spravne alebo nie. Ak to ani tam nebude utriedene spravne, tak ADO
je v tom nevinne, pretoze SQL Query Analyzer pristupuje na MSSQL cez ODBC a
ODBC zarucene nema s triedenim nic spolocne.
L.
> Pouzita DB je na MS SQL server 2000 a collate ma nastaveno Czech_CI_AS.
> Ale myslim si, ze problem je spis na strane TAdoDataset, protoze
> pri trideni tam jde nastavit
> caseInsensitive, ale nejde tam dat AnsiSort. Jestli nekdo vite,
> jak to resit, tak se prosim ozvete.
TServerSocket a TClientSocket
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.10.2001 16:12:52
> Ale..ale! To jsem NIKDY netvrdil! TCP je uzitecny protokol a nikdy
> jsem netvrdil, ze je na nic. Ja jen tvrdil, ze na CHAT BEZ
> SERVERU je nanic, respektive ze neni vhodny.. a na tom trvam!
No, tak toto jsem nepochopil, pokud neco myslis, tak to laskave napis,
usetrili bychom si dost casu.
Puvodni dotaz byl, jak realizovat CHAT (neprislo mi, ze musi byt bez serveru).
> Problem je u UDP zakopan trosku jinde. A tou je jestli stihnes
> zpracovat vsechny prichozi UDP packety.. kdyz ne, tak se zacnou
> salatovat v bufferech.. a kdyz ty dojdou, tak jsou prichozi UDP
> jednoduse zahazovany... ;-)
>
A kdyz to zahodi napr. router, tak je to zmeho pohledu ztraceny paket (treba 286 s linuxem).
Jinak mne se UDP celkem s prehledem ztraceji, jdu na kontrolnim algorytmem, ktery to sklada dohromady.
Hlavne chi upozornit zacatecnika, ktery se ptal, na tu skutecnost, ze doma, na jednom PC bude vse OK,
ale pri nasazeni v praxi (treba ve skole, nebo firme) se mu obcas muze ztratit paket, pokud o tom nevi,
tak to bude hledat tydny.
Slavek
TServerSocket a TClientSocket
[*] Radek Masnica - konference <delphi(zv)wige-mic(tec)cz> - 5.10.2001 16:19:42
> A kdyz to zahodi napr. router, tak je to zmeho pohledu ztraceny paket
(treba 286 s linuxem).
> Jinak mne se UDP celkem s prehledem ztraceji, jdu na kontrolnim
algorytmem, ktery to sklada dohromady.
> Hlavne chi upozornit zacatecnika, ktery se ptal, na tu skutecnost, ze
doma, na jednom PC bude vse OK,
> ale pri nasazeni v praxi (treba ve skole, nebo firme) se mu obcas muze
ztratit paket, pokud o tom nevi,
> tak to bude hledat tydny.
Presne tak ... ono dokonce to funguje na vice pocich nez na jednom bez
problemu, ale o ztraceni paketu taky vim sve, at uz to dela router, switch
nebo nekdo jiny ...
Radek
TServerSocket a TClientSocket
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.10.2001 16:33:39
> Kdo dnes jeste pouziva HUBy?
Moje zkusenost s infrastrukturou ve firmamch:
centralni switch a pak v jednotlivich kancelarich 8 portove HUBy
(ty za tech 1500).>
> Pokud neni linka do internetu zacpana nebo nekvalitni (bezdrat se
> slabym signalem, atd) tak se tech paketu moc neztrati.
> Neni pravda, ze vsechny internetove linky jsou pretizene tak, aby
> ztracely pakety. Doruceni UDP paketu se od paketu, ktery je soucasti
> streamu TCP spojeni nijak nelisi, cili neni duvod predpokladat, ze se
> budou UDP pakety ztracet vice nez jakekoliv jine pakety.
S tim souhlasim, ale nemohu proste postavit program na tom,
ze budu pocitat, ze se doruci 100%, ono kdys se toho ztraci
vic jak cca 30%, tak uz je to nepouzitelne (jak TCP, tak UDP).
Slavek
TServerSocket a TClientSocket
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 5.10.2001 16:51:36
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Kdo dnes jeste pouziva HUBy?
Divil by si sa, i niektore vacsie firmy :-O
Pavol Kakacka
KasiX(zv)atlas(tec)cz
Klice v MS SQL Serveru 7.0
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 5.10.2001 17:12:33
Dobry den,
muzete mi nekdo poradit jak vytvorit cizi klicv SQL serveru 7.0?
Diky.Drag vs MouseDown/Up
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 5.10.2001 17:43:02
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Sent: Friday, October 05, 2001 3:10 PM
>
> > procedure ...Panel1MouseDown...
> > begin
> > (Sender as TPanel).BeginDrag(false,5);
> > end;
>
> > procedure ...Panel1MouseUp...
> > begin
> > If not (Sender as TPanel).Dragging then
> > begin
> > //nejaka cinnost
> > end;
> > end;
>
> Pro kopirovani pomoci tazeni mysi se pouzivaji metody Drag&Drop +
> prislusne metody.
To ja vim, ale ptal jsem se na to, proc se ...MouseUp... vykona uz pri
nakliku na panel, nikoli po uvolneni tlacitka mysi. Pro upresneni dodam, ze
se vyvola okamzite po ...MouseDown... ignorujic fakt, ze tlacitko stale
jeste drzim...
KYLIX Report Generator - obecne ke Kylixu
[*] David Janko <djanko(zv)infoware(tec)cz> - 5.10.2001 19:05:49
Dne �t 4. ��jen 2001 19:07 jste napsal(a):
> Zkusili jsme prevest projekt (celkem rozsahly) a dosli jsme k nasledujicimu
> - existuji celkem velke problemy s tiskem, spoustou chyb v CLX (a mozna i
> Qt), opravdu chybovym IDE v D6 a chybami v dbExpress. Prozatim cekame na
> servis peky pro D6 a Kylix a uz jsme opustili dbExpress a pokorne se
> vratili k IBX. U Oracle jsme nastesti DOA neopousteli.
Necekam, ze by se velky projekt ve VCL nechal bez prevest bez velkych
problemu do CLX ;-). Jde spise o to, aby se z nich nechaly prevest casti
(komponenty) a nove projekty se psali v CLX ... ty chyby v CLX na ktere jste
narazili by me moc zajimaly (zejmena chyby v dbExpressu - take se mi zda ze
tam spousta veci nefunguje, jenze s nim zacinam a docs je dost mizerna, takze
spousta "chyb" muze (a doufam ze i je) byt pouze moje neznalost ...). Pokud
je to OT tak na muj soukromi mail, dekuji. (Na oplatku poslu prip. svoje ;-))
Jeste by me zajimalo, jak resite prevod zobrazeneni/ukladani DB dat z CP1250
(klient ve win) do ISO-latin2 (mysql server na linuxu) ? Me zatim napadlo jen
upravit mysql server na set charset ....>
> Podle meho nazoru opravdu plati ze sude verze Delphi se proste nedari, u
> Kylixu to prozatim vypada na liche verze. Doufam ze se mylim. Pokud mate
> nekdo D5 a staci Vam tak se ho drzte.
Bohuzel, pokud vim, D5 nema podporu mysql jinak nez pres ODBC (to funguje
dost pomalu a pofiderne) a o podpore Linuxu nemluvim, takze mi nezbyva nez si
projit krusne zacatky Kylixu/D6 ....
>
> S pozdravem
> Jan Kadlecek
> HTK Pro s.r.o.
> www.htkpro(tec)cz
> www.dev-shop(tec)cz
A zaverem, asi tu neni nekdo kdo by vedel neco o moznosti portace KDE widgetu
do CLX komponent ? Takova editacni komponenta jako ma treba editor Kate a
spousty dalsich chutnych opensource veci ;-)).
At se vsem CLX vyvojarum dari ....
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Klice v MS SQL Serveru 7.0
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 5.10.2001 19:17:53
V Enterprise Manageru pres design tabulky, tam je nahore tlacitko Indexes
... To je asi to nejjednodussi. Nebo se podivej na syntaxi v Query
Analyzeru -> Napoveda -> T-SQL help
end ohekzeh minarp a mevardzop S
arebmehcS naliM .rDCP
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of 3D-imenision
> Sent: Friday, October 05, 2001 5:13 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Klice v MS SQL Serveru 7.0
>
>
> Dobry den,
> muzete mi nekdo poradit jak vytvorit cizi klicv SQL serveru 7.0?
> Diky.
TServerSocket a TClientSocket
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.10.2001 19:22:30
> P.S. Ja jenom chtel rici, kdyz Chat, tak pres 1 server, a uz je pak jedno,
> jestli UDP nebo TCP (teda do 4000 Clientu ...) PP.S. A nebo bez serveru s
No, ty 4000 jsou jeden konkretni technologicky strop jednoho konkretniho
operacniho systemu.. osobne si myslim, ze jakmile bys chtel spravovat uz
treba jen 100 soubeznych TCP spojeni, je lepsi to zkusit vymyslet jinak.
:-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
TServerSocket a TClientSocket
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.10.2001 19:34:53
> > Ale..ale! To jsem NIKDY netvrdil! TCP je uzitecny protokol a nikdy jsem
> > netvrdil, ze je na nic. Ja jen tvrdil, ze na CHAT BEZ SERVERU je nanic,
> > respektive ze neni vhodny.. a na tom trvam!
> No, tak toto jsem nepochopil, pokud neco myslis, tak to laskave napis,
> usetrili bychom si dost casu. Puvodni dotaz byl, jak realizovat CHAT
> (neprislo mi, ze musi byt bez serveru).
Jenze ja to psal, a dokonce nekolikrat.. takze 'laskave' cti vsechno, nez
zacnes delat soudy, ano? ;-) Dokonce jsem dnes rano psal obsahlou zpravu
o moznostech, kde jsem uvadel varianty se serverem i bez serveru. Jakou
vetsi laskavost jsem mel podle vas udelat? ;-)
> Hlavne chi upozornit zacatecnika, ktery se ptal, na tu skutecnost, ze
> doma, na jednom PC bude vse OK, ale pri nasazeni v praxi (treba ve
> skole, nebo firme) se mu obcas muze ztratit paket, pokud o tom nevi,
> tak to bude hledat tydny.
KAZDY, kdo chce programovat neco ohledne TCP/IP podle mne MUSI mit
nejakou potuchu o tom, jak to vlastne funguje! A kazdy, kdo tuto potuchu
ma, tak urcite vi, ze u UDP nemas zadnou zpetnou kontrolu o tom, jestli
byl dorucen ci ne. Kdo tohle nevi, at se do programovani sitariny radeji
vubec nepousti.
To je jako kdyz chcete programovat seriovou komunikaci, take musite mit
potuchu o tom, jak to funguje... ziskat zaklady o sitich neni vubec
problem, je na to hromada knizek...
Jinymi slovy radit tady ze se ztrati UDP packet je naprosto nanic,
protoze bud to clovek stejne vi, nebo mu to tak ci tak nic nerekne. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Vice ikon v aplikaci ?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.10.2001 20:21:41
4.10.2001 Hurricane:
> Zdravim
> Nikoliv "treba ImageEditor". Pouzuj cokoliv jinyho, jen ne ten. To proto, ze
> v nem muzes ikony pouze malovat. Neumi je importovat ze souboru. A jelikoz
> se daserict od D2 nezmenil, vetsi ikony nez 32x32 jsou mu cizi.
Mas pravdu, ze se nezmenil. Mas pravdu, ze nelze ikony importovat ze
souboru. Ale copak je takovy problem si vytvorit novou ikonu, otevrit
si v jinem souboru tu, ktera me zajima a pres schranku ji tam prenest?
Jsou i kvalitnejsi nastroje jako ResourceBuilder na praci s resourci.
MicroAngelo na praci s ikonami apod. Vetsinou ale ne zdarma.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Co stoji dot NET (Was: Volba)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.10.2001 21:07:53
> > technologii podporuji a vyuzivaji.
> Ako SQL Server 2000 podporuje a vyuziva .NET technologiu?
*****Treba klauzuli FOR XML u SELECTu. ;-) Jinak SQL Server
2000 byl prvni .NET serverem uvedenym na trh.
Slavek
> Erik
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Existence sequence(generatoru) na MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.10.2001 21:07:53
Ahoj,
> Na MSSQL su na tento ucel urcene IDENTITY polozky. Podla mna
> je to lepsie riesenie ako programovanie pomocou generatorov.
*****V cem lepsi? Ja osobne je zase nesnasim, protoze pokud
pominu to, ze se hodnotu dozvim az PO vlozeni dat do tabulky tak
muze dojit ke spatnemu vysledku (viz priklad bezne chyby
zacatecniku dale). A i kdyz si problem uvedeny v tom prikladu
uvedomim, tak dalsi vec, ktera mi vadi, je, ze nemuzu vlozit do
sloupecku v pripade potreby moji vlastni hodnotu, pokud nevypnu
identity a pak zase nezapnu. A zamykat kvuli tomu celou tabulku...
CREATE TABLE TABLE_A (
IDTABLE_A INTEGER IDENTITY NOT NULL
)
CREATE TABLE TABLE_B (
IDTABLE_B INTEGER IDENTITY NOT NULL,
)
GO
CREATE TRIGGER TGAI_TABLE_A ON TABLE_A AFTER INSERT
AS
INSERT INTO TABLE_B DEFAULT VALUES
GO
INSERT INTO TABLE_B DEFAULT VALUES
INSERT INTO TABLE_B DEFAULT VALUES
INSERT INTO TABLE_A DEFAULT VALUES
SELECT (zv)(zv)IDENTITY --bezna chyba, chci 1, dostanu 3
SELECT SCOPE_IDENTITY() --to, co vetsinou potrebuji, tedy 1
> Erik
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
groupovanie pomocou SQL
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.10.2001 22:46:30
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
Sent: Wednesday, October 03, 2001 12:42 PM
jestli tvuj SQL server umi groupovat podle vypoctu
..........
group by
cast(sloupec div 10 as integer)
IB6 ani FB1.0 to nevie, ale dalo by sa to riesit cez pohlad ktory vrati
potrebne veci na grupovanie a nasledne ho grupovat.
S pozdravom
Roland Turcan
query na datum narozeni v terminu od do
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.10.2001 22:46:22
----- Original Message -----
From: "Skokosek" <skokosek(zv)seznam(tec)cz>
Sent: Wednesday, October 03, 2001 12:57 PM
select rodnecislo, datumnarozeni,
extract(day from datumnarozeni) den,
extract(month from datumnarozeni) mesic
from tabulka
where
extract(day from datumnarozeni)=27
and
extract(month from datumnarozeni)=8
S pozdravom
Roland Turcan
Existence sequence(generatoru) na MSSQL
[*] Erik Salaj <winsoft(zv)stonline.sk> - 5.10.2001 23:02:36
> > Na MSSQL su na tento ucel urcene IDENTITY polozky. Podla mna
> > je to lepsie riesenie ako programovanie pomocou generatorov.
> *****V cem lepsi? Ja osobne je zase nesnasim, protoze pokud
> pominu to, ze se hodnotu dozvim az PO vlozeni dat do tabulky tak
To je predsa logicke. Aky vyznam ma ID nejakeho riadku, ci objektu,
ktory este neexistuje? Co to vlastne potom je?
> muze dojit ke spatnemu vysledku (viz priklad bezne chyby
> zacatecniku dale). A i kdyz si problem uvedeny v tom prikladu
Treba citat spravnym sposobom, na MS SQL 2000 je na to
SCOPE_IDENTITY(). Mohlo by to byt aj lepsie, s tym sa da
suhlasit, ale vela veci by v SQL jazyku mohlo byt daleko lepsie.
> uvedomim, tak dalsi vec, ktera mi vadi, je, ze nemuzu vlozit do
> sloupecku v pripade potreby moji vlastni hodnotu, pokud nevypnu
> identity a pak zase nezapnu. A zamykat kvuli tomu celou tabulku...
Menit identitu objektov nie je dobry napad, je to dobre, ze to
nemozes hocikedy zmenit.
Erik
Co stoji dot NET (Was: Volba)
[*] Erik Salaj <winsoft(zv)stonline.sk> - 5.10.2001 23:06:24
> > Ako SQL Server 2000 podporuje a vyuziva .NET technologiu?
> *****Treba klauzuli FOR XML u SELECTu. ;-) Jinak SQL Server
> 2000 byl prvni .NET serverem uvedenym na trh.
Netaraj somariny. Chces povedat, ze kazdy program, ktory robi
nieco s XML podporuje technologiu .NET? I taky, ktory bol
urobeny davno predtym, nez technologia .NET existovala?
Erik
JOIN nebo nekolik selectu?
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 6.10.2001 09:52:22
Ahoj,
join obecne by mel byt rychlejsi, kdyz je navic v ulozene proc. tak o
tom neni sporu. Rezie na vystaveni 4 recordsetu a zbytecneho vraceni
balastu kolem 4 recordsetu je zbytecna. Pokud je alespon trochu slusne
navrzen desigh DB, tak je jeden select rychlejsi nez 4.
Radim
> Pokud bys udelal test v nejakem programu, ktery ti vypise cas straveny
> vykonanim prikazu (nebo si to udelej sam), tak zjistis, ze
> druha varianta
> vyjde casove mnohem lepe.> > v ulozene procedure mam select obnasejici left join 4 tabulek, v
> > podmince where je pak vyber jednoho konkretniho radku (ten select
> > ma vratit jeden radek). Je vyhodnejsi udelat takovyto select, nebo
> > je lepsi udelat ctyri selecty (kazdy do jedne tabulky), takze
> > vysledne hodnoty ziskam postupne?
> > Druhy zpusob se mi zda byt lepsi, protoze si nejsem jist, zda
> > SQL server nebude napred dlouho sestavovat join, aby z nej pak
> > rychle vybral jeden radek.
> >
> > IB6, tabulky obsahuji nekolik set tisic zaznamu kazda.Klice v MS SQL Serveru 7.0
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 6.10.2001 11:52:26
Tam jsem to hledal ale nic jako foreign key sem tam nenasel. Existuje jeste
vubec neco takove na MS SQL serveru nebo uz se s tinhle vubec nezabiva?> V Enterprise Manageru pres design tabulky, tam je nahore tlacitko Indexes
> ... To je asi to nejjednodussi. Nebo se podivej na syntaxi v Query
> Analyzeru -> Napoveda -> T-SQL help
> > Dobry den,
> > muzete mi nekdo poradit jak vytvorit cizi klicv SQL serveru 7.0?
> > Diky.
Access violation na nejake adrese, co s tim ?
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 6.10.2001 12:33:00
Ahoj vsem,
mam takovy problem. V aplikaci se mi stava, ze za behu dojde k nejake
vyjimce a chybe na nejake adrese. Za nic na svete nemuzu prijit na to, v cem
je chyba. Poradte mi prosim nekdo, jak se da vysledovat co je za problem.
Zkousel jsem break pointy, ale vypada to, ze ta chyba neni ani tak v kodu,
jako spis v nejake komponente. Jak se da zjistit, co chyba na urcite adrese
znamena ? Nebo, jak jinak se dostat k tomu, v cem je problem ?
Mnohokrat diky.
Zdravi
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Access violation na nejake adrese, co s tim ?
[*] Peter Surovy <psurovy(zv)uevora.pt> - 6.10.2001 12:03:37
Ahoj
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> mam takovy problem. V aplikaci se mi stava, ze za behu dojde k nejake
> vyjimce a chybe na nejake adrese. Za nic na svete nemuzu prijit na to, v
cem
> je chyba.
Tu adresu si skus najst cez Search -Find Error ak ju nenajde Delphi
v Tvojom kode pravdepodobne sa nachadza v nejakej kniznici, ktoru
pouzivas asi sa snazis zapisovat do pamati ktoru si si nevyhradil
alebo pouzit object, ktory si este v tom case nevytvoril.
Peter Surovy
Bitmapa v threadu a Synchronize(Draw)
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 6.10.2001 13:46:53
> Kdyz se to spusti, tak to dlouho je zcela OK, ale pak to
> znicehonic prestane tu
> bitmapu vykreslovat (ale thread bezi, Draw se vola).
> Je temer jiste, ze to bude souviset s nerentrantnosti VCL,
> ale neni mi jasne, co
> delam spatne - tohle by prece mel byt korektni zpusob
> (metody TBitmap vola vzdy jen jeden thread).
Mam pocit, ze nie. Bitmapu vytvaras a inicializujes v kontexte sekundarneho
threadu a potom ho pouzivas v kontexte primarneho threadu, t.j.
Synchronize(Draw).
Malo by sa to dat overit pomerne lahko: skus presunut vytvorenie bitmapy a
inicializaciu do konstruktora, uvolnenie do destruktora a samotne kreslenie
do bitmapy a kopirovanie na PaintBox do metody Draw, ktora bude volana cez
Synchronize.
Predpokladam, ze konstruktor/destruktor sekundarneho threadu bezi este/uz v
primarnom threade, dufam, ze sa nemylim.
Mimochodom, mam overene, ze na kreslenie do okna zo sekundarneho threadu
staci pouzit priamo API volania GDI funkcii s HDC (t.j. ziadne TCanvas) a v
tom pripade nie je dokonca ani potrebne pouzit Synchronize, usetri sa tym
cas potrebny na prepinanie kontextov threadov.
HTH
TOndrej
Access violation na nejake adrese, co s tim ?
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 6.10.2001 20:55:43
Mozna zkus pouzit Exception Magic - komponenta - pridas to do aplikace,
zkompilujes a ono ti to pri padu ukaze primo radek, kde k tomu doslo.
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
Sent: Saturday, October 06, 2001 12:33 PM
Ahoj vsem,
mam takovy problem. V aplikaci se mi stava, ze za behu dojde k nejake
vyjimce a chybe na nejake adrese. Za nic na svete nemuzu prijit na to, v cem
je chyba. Poradte mi prosim nekdo, jak se da vysledovat co je za problem.
Zkousel jsem break pointy, ale vypada to, ze ta chyba neni ani tak v kodu,
jako spis v nejake komponente. Jak se da zjistit, co chyba na urcite adrese
znamena ? Nebo, jak jinak se dostat k tomu, v cem je problem ?Bezpecnost spravy hesel?
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 6.10.2001 21:51:37
Zdravim,
prave delam na generatoru hesel a docela rad bych, aby si uzivatel mohl
uchovat hesla s poznamkami, sablony hesel apod. Samozrejme je to
bezpecnostne citliva vec, takze bych se chtel optat, zda mate nejaky tip na
neco free (obrazovka, pamet, filesystem, soubor) / pripadne zkusenosti?
Jeste trochu OT: jak se tvori / uchovavaji registracni cisla ke
komercnimu softu? dik za info,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Klice v MS SQL Serveru 7.0
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.10.2001 22:00:28
Otevrel jsem si BookOnline (to je napoveda k MS SQL, pokud by ti to
nic nerikalo), v rejstriku nasel Foreign Key a dostal vsechny
informace, ktere jsou potreba k vytvoreni, modifikovani, zakazani pri
replikacich atd. atd. vcetne prikladu. Nevim, co dalsiho bys jeste
mohl potrebovat.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.10.2001 3D-imenision:
> Tam jsem to hledal ale nic jako foreign key sem tam nenasel. Existuje jeste
> vubec neco takove na MS SQL serveru nebo uz se s tinhle vubec nezabiva?
>> V Enterprise Manageru pres design tabulky, tam je nahore tlacitko Indexes
>> ... To je asi to nejjednodussi. Nebo se podivej na syntaxi v Query
>> Analyzeru -> Napoveda -> T-SQL help
OT: WIN verusus LINOX (KYLIX Report Generator)
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 7.10.2001 19:42:25
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>Nicmene kdyz jsem na seminari Delphi 2001, Lazne Belohrad, leden 2001, 130
ucastniku,
>polozil otazku:
>"kdo se chysta zcela vazne, s nasazenim penez a vyvojarskych kapacit,
vyvijet klientske aplikace pro Linux",
>zvedly se 4 ruce...
>Jsem zvedav, jak to bude v lednu 2002...
Ahoj.
IMHO po ohlasovanem 50% zdrazeni Microsoftu a po zjisteni, ze uz nejde
zaplatit 5 licenci a provozovat je na 15 PC myslim, ze poptavka po Linuxu
mezi firmami vzroste. Je ovsem otazkou jaky budou mit na celou vec vliv
nedavne tragicke udalosti v USA, ktere vyvolavaji ruzne tlaky na statem
"posvecena" zadni vratka v SW , omezeni sifrovani a pod. (napr. ve smyslu
navrhu zakona SSSSCA). To zase muze Linuxove distribuce dostat z oblasti
OpenSource do komercni sfery se vsemi dusledky.
Takz kdo vi jak to bude.
Ludek
KYLIX Report Generator
[*] David Janko <djanko(zv)infoware(tec)cz> - 7.10.2001 20:47:56
Dne p� 5. ?�jen 2001 12:22 jste napsal(a):
> Nechci rozpoutavat vasne Windows vs. Linux.
Pokud z toho nevypadne neco uzitecneho, tak ja take ne ...
>
> Nicmene kdyz jsem na seminari Delphi 2001, Lazne Belohrad, leden 2001, 130
> ucastniku, polozil otazku:
> "kdo se chysta zcela vazne, s nasazenim penez a vyvojarskych kapacit,
> vyvijet klientske aplikace pro Linux", zvedly se 4 ruce...
z kolika ? ;-)
kdybys byl na linuxExpo tak by byla reakce asi prave opacna ...
ne, jiste, kdyby to bylo POUZE pro linux, tak by asi trh v dane chvili nebyl
nic moc, preci jenom na klientske strane win stale vladnou ... dle mych
zkusenosti je to asi tak, ze se zakaznici po linuxu obcas ptaji a take si ho
obcas chteji zkusit ... ale alespon na beznych desktopech jedou zpravidla na
win (servery to uz je neco jineho).
Problem je vsak prave v tom, ze pod linuxem je nedostatecna podpora nekterych
typu aplikaci. Kdyz budou, budou i zakaznici pro ne - chapu, ze mala firma si
nemuze dovolit zacit delat klientske/desktop aplikace pouze pro linux, to je
pro ni moc riskantni ( je to i muj pripad). Ale moznost napsat to tak, ze to
zkompiluji pro oba systemy, je neco jineho - to si dovolit muzu. I kdyz
realne to na Linuxu v danou chvili pobezi u 1-2 zakazniku z deseti ...
Dejte mi neco jako Word, Excel, Pohoda pro linux a minimalne 30 % mych
zakazniku prejde na Linux do pul roku ...
Mimochodem, kdyz jsem tohle leto byl ve francii, videl jsem verejne automaty
pro pristup k inetu - na Linuxu. Kdyz jsem si v Parizi kupoval listek na
metro, tak na monitoru mela X-window ...
Nechci tim rici, ze linux je jednoznacne lepsi nez win, kazde ma sve vyhody a
nedostatky - chci jen rici, ze linux i teto oblasti muze mit zajimavy trh,
pokud budou prislusne aplikace.
>
> Jsem zvedav, jak to bude v lednu 2002...
A ja, jestli me jako Linuxari v C/C++ zacinajicimu s Inprise dev tool v
Pascalu nekdo priste odpovi, ze TBlobField.LoadFromFile na datasetu zavolam
jako DataSetImage.LoadFromFile i kdyz ke vsemu ostatnimu se pristupuje pres
DataSet['Image'] OR DataSet.FieldByName() OR DataSet.Fields[index] ...
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
OT: WIN verusus LINOX (KYLIX Report Generator)
[*] David Janko <djanko(zv)infoware(tec)cz> - 7.10.2001 21:02:45
Dne ne 7. ��jen 2001 19:42 jste napsal(a):
> ----- Original Message -----
> From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>
> Ahoj.
> IMHO po ohlasovanem 50% zdrazeni Microsoftu a po zjisteni, ze uz nejde
> zaplatit 5 licenci a provozovat je na 15 PC myslim, ze poptavka po Linuxu
> mezi firmami vzroste.
poscitejte si naklady na server pod win platformou a linux ;-)
> Je ovsem otazkou jaky budou mit na celou vec vliv
> nedavne tragicke udalosti v USA, ktere vyvolavaji ruzne tlaky na statem
> "posvecena" zadni vratka v SW , omezeni sifrovani a pod. (napr. ve smyslu
> navrhu zakona SSSSCA). To zase muze Linuxove distribuce dostat z oblasti
> OpenSource do komercni sfery se vsemi dusledky.
OpenSource != nekomerci SW (sorry, pro pascalisty <> ;-) )
klidne muzu prodavat svuj SW za prachy a mit ho OpenSource ... coz bezne
delam ...
> Takz kdo vi jak to bude.
>
> Ludek
Jo, mozna nekdo prevede McOS 10 pro PC - slysel jsem, ze az na aqua (vrcholna
vrstva, neco jako window manager) je Open ....
Ale na zkurvene pomale architekture IBM/PC asi sotva ... RISC je o necem
jinem, ze ....
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
D6: problem s formy a jejich visible
[*] Milan ��ek - 7.10.2001 21:14:42
ahoj,
predem se omlouvam, za nedodrzeni subjectu (prisel jsem o maily).
pokud pridam do meho existujiciho projektu s jednim hlavnim formem dalsi
form, tak:
1) Ano, prida se do autocreate foms (nekdo se ptal).
2) Jeho vlastnost visible je defaultne false.
Pri startu programu se ale zobrazi mimo hlavni form i ten pridany (s visible
false). Dela mi to na 2PC, v ruznych projektech.
Jak uz jsem rekl, tak to obchazim vyhozenim formu z autocreate, a jeho
vytvorenim za behu. Ale i tak mi to docela vadi.
Jsem jediny?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Vlastni soubor s nekolika .cur (was: format kurzor
[*] Milan ��ek - 7.10.2001 21:14:36
ahoj,
stale se nemuzu pohnmout z mista, zkusim tedy do tretice a naposledy (pokud
uz moc otravuju, nebite me :)). Mam vlastni soubor, ve kterem mam ulozeno
nekolik .cur souboru za sebou+nejaka dalsi data. Ty soubory dokazu podle
vlastni hlavicky zase nacist do TMemoryStreamu, takze mam v kazdem streamu 1
kurzor (stejny jako soubor). Muj neprekonatelny problem je, ze nedokazu ty
kurzory z MemoryStreamu priradit aplikaci. Vymyslel jsem 2 teoreticka
reseni, ale zatim se mi je nepodarilo uspesne zrealizovat:
1) vzit kutzory z MemoryStreamu a preplacnout jimi puvodni kurzory v
resource aplikace.
2) ukladat do vlastniho souboru, jen udaje
(vysku,sirku,barvy,bitmapu,masku), ktere bych potom pouzil ve funkci
CreateCursor.
Nedokazu posoudit, ktere reseni je lepsi. Bod 1 si nedokazu predstavit ani
teoreticky. U bodu 2 bych to snad nejak dal do kupy, ale nevim presne jak
funguje CreateCursor.
Nemate nekdo prevedenou deklaraci dat v souboru .CUR do Delphi?
Nevim, jak se predeklaruje DWORD, jestli dobre chapu, mohlo by to byt
doubleword, takze 32bit cislo, treba integer? A pak hlavne to ulozeni te
bitmapy a masky.
Diky za jakykoli napad.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
OT: otevreni slozky
[*] Milos Komurka <komurka(zv)myto(tec)cz> - 8.10.2001 07:21:40
Zdravim,
potrebuji z delphi vyvolat otevreni slozky,
jako kdyz v nab. start dam spustit a napisu "c:\"
dekuji za radu
Commanche
OT: otevreni slozky
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.10.2001 07:25:48
Spousteni pres nabidku start je ekvivalentni prikazu ShellExecute.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
8.10.2001 Milos Komurka:
> Zdravim,
> potrebuji z delphi vyvolat otevreni slozky,
> jako kdyz v nab. start dam spustit a napisu "c:\"
> dekuji za radu
> Commanche
Nabidnuti adresare ke sdileni
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 8.10.2001 08:15:18
Cauec,
jak muzu programove nabidnout adresar ke sdileni ? Uz jsem to nekde videl,
ale nemuzu si vzpomenout. Pripojeni a odpojeni sitoveho disku je v pohode,
ale to nabidnuti jsem nekde potratil.
Dik za nakopnuti.
Bye Ludan
Existence sequence(generatoru) na MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.10.2001 08:32:24
> > *****V cem lepsi? Ja osobne je zase nesnasim, protoze pokud
> > pominu to, ze se hodnotu dozvim az PO vlozeni dat do tabulky tak
> To je predsa logicke. Aky vyznam ma ID nejakeho riadku, ci objektu,
> ktory este neexistuje? Co to vlastne potom je?
****Mas pravdu, trosku jsem se predbehl. Souvisi to z moznosti
zadat vlastni identitu, protoze kdyz chci zadat vlastni, musim
hodnotu znat predem.
> > muze dojit ke spatnemu vysledku (viz priklad bezne chyby
> > zacatecniku dale). A i kdyz si problem uvedeny v tom prikladu
> Treba citat spravnym sposobom, na MS SQL 2000 je na to
> SCOPE_IDENTITY(). Mohlo by to byt aj lepsie, s tym sa da
> suhlasit, ale vela veci by v SQL jazyku mohlo byt daleko lepsie.
*****Beze sporu. Ovsem dosud netusim, na ktere lidi mam tlacit.
> Menit identitu objektov nie je dobry napad, je to dobre, ze to
> nemozes hocikedy zmenit.
*****To je vec nazoru kazdeho vyvojare a zpusobu jeho prace.
Nelze rict, zda to je ci neni dobre.
Slavek
> Erik
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Co stoji dot NET (Was: Volba)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.10.2001 08:32:24
> > > Ako SQL Server 2000 podporuje a vyuziva .NET technologiu?
> > *****Treba klauzuli FOR XML u SELECTu. ;-) Jinak SQL Server
> > 2000 byl prvni .NET serverem uvedenym na trh.
> Netaraj somariny. Chces povedat, ze kazdy program, ktory robi
> nieco s XML podporuje technologiu .NET? I taky, ktory bol
> urobeny davno predtym, nez technologia .NET existovala?
****Nechci. Nedelej z implikace ekvivalenci.
Dle MS je .NET ,,platforma webovych XML sluzeb obsahujicich vse, co je nutne
pro tvorbu a pouzivani aplikaci zalozenych na XML`` Snad uz je to jasnejsi. :-)
Slavek
> Erik
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Transparentni panel
[*] <kuchar(zv)unicodesys(tec)cz> - 8.10.2001 09:26:40
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Caute, protoze moje otazka nezaznamenala zadny ohlas tak to skousim podruhe
vytvoril jsem novou komponentu jako potomka TPanel, potreboval bych te komponente priradit novou vlastnost TRANSPARENT, do procedury paint jsem pridal :
-----------------------------------------------------------------------------------------
inherited Paint;
Canvas.Brush.Style := bsclear;
-----------------------------------------------------------------------------------------
ale najak se to minulo ucinkem, muzete mi poradit kde delam chybu ?
Rozdiely v SQL selectoch
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.10.2001 09:40:49
Zdravim
vyskusajte toto:
select first 10 jedin from skuska;
a potom toto:
select jedin from skuska where jedin in (select first 10 jedin from skuska);
Podla mna by to malo byt to iste len s tym rozdielom ze ten prvy je
jednoduchsi a rovnako funkcny.
Roland.UTF-8
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 8.10.2001 09:51:25
Zdravicko
Muze mi nekdo napovedet jak pracovat s UTF-8 ?
Existuji nejake WinAPI funkce pro konverzi ?
Pouzivam IXMLDOMDocument z msxml3.dll
pro parsovani XML souboru. Pokud je soubor
v UTF-8, tak ziskana data jsou take v UTF-8.
Jak je prevezt do ANSI ?
Dekuji
Daniel
Transparentni panel
[*] Lubo Fule <fule(zv)ekosoft.sk> - 8.10.2001 09:52:09
Problem moze byt v poradi. Nejprv treba zmenit Canvas.Brush.Style az potom
zavolat inherited Paint. Totiz ten "inherited Paint" nakresli panel a potom
uz abytocne budes menit Canvas.Brush.Style.
Canvas.Brush.Style := bsclear;
inherited Paint;
Ale nie som si isty, ci to bude stacit.
L.
> vytvoril jsem novou komponentu jako potomka TPanel, potreboval
> bych te komponente priradit novou vlastnost TRANSPARENT, do
> procedury paint jsem pridal :
> inherited Paint;
> Canvas.Brush.Style := bsclear;
> ale najak se to minulo ucinkem, muzete mi poradit kde delam chybu ?
Firebird (Interbase 6.0) a UDF
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 8.10.2001 10:11:10
Dobry den,
zkousim vytvorit UDF k Firebirdu a nedari se mi.
Pokud vytvorim DLL v Delphi 5 firebird v pohode
s dll pracuje.
Pokud ho vytvorim v C a prelozim pomoci mingw (www.mingw.org)
firebird porad hlasi ze zadanou funkci nevidi.
Pritom jsem si zkousel napsat testovaci programek na loadknihovny,
ktery pritom bezproblemu funguje a pokud jsem se dival do zdrojaku
Firebirdu, tak presne toto pouziva.
Tady je Makefile:
--------------------------------------------------------
CC=gcc
DLLTOOL=dlltool
del_udf.dll: del_udf.c
$(CC) -fwritable-strings -Wall -c del_udf.c
$(DLLTOOL) -e del_udf-exports.o -D del_udf.dll -l del_udf.lib -k -A del_udf.o
$(CC) -mdll -mconsole -mwin32 --kill-at del_udf.o del_udf-exports.o -o del_udf.dll
del *.o
loadlib.exe: loadlib.c
$(CC) -Wall -mwin32 -mconsole -o loadlib.exe loadlib.c
wclean:
del *.o *.dll *.lib *.def
---------------------------------------------------------
Tady je UDF v C:
#include <stdlib.h>
#include <math.h>
#include <time.h>
/* #define EXPORT _export*/
#define EXPORT(type, fndef) __declspec(dllexport) type __stdcall fndef
typedef double * pdouble;
typedef int * pint;
EXPORT(double, RandG(pdouble mean, pdouble std_dev)){
double u1, u2, s2;
/* Marsaglia-Bray algorithm */
do {
u1 = 2*(rand()/(double)RAND_MAX)-1;
u2 = 2*(rand()/(double)RAND_MAX)-1;
s2 = u1*u1 + u2*u2;
} while(s2 >= 1);
return (sqrt((-2) * log(s2)/s2) * u1 * (*std_dev) + (*mean));
};
EXPORT(int, RandSeed()){
srand(time(NULL));
return 0;
};
EXPORT(double, RandRange(pint range)){
return (rand()/(double)RAND_MAX)* (*range);
}
---------------------------------------------------------
Tady jsou SQL definice:
/* This function generate random values with normal distribution */
DECLARE EXTERNAL FUNCTION RandG
DOUBLE PRECISION,
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'RandG' MODULE_NAME 'del_udf';
/* This function generate random value 0 <= x < range */
DECLARE EXTERNAL FUNCTION RandRange
INTEGER
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'RandRange' MODULE_NAME 'del_udf';
/* This function setup random generator */
DECLARE EXTERNAL FUNCTION RandSeed
RETURNS INTEGER BY VALUE
ENTRY_POINT 'RandSeed' MODULE_NAME 'del_udf';
-----------------------------------------------------------
Test na load knihovny:
#include <stdlib.h>
#include <unistd.h>
#include <stdio.h>
#include <windows.h>
typedef double (CALLBACK* LPFNDLLFUNC1)(double *,double *);
#define DLLNAME "del_udf"
int main(){
HINSTANCE hDLL; // Handle to DLL
LPFNDLLFUNC1 lpfnDllFunc1; // Function pointer
DWORD dwParam1;
UINT uParam2, uReturnVal;
double mean, stddev, ret;
int err;
if ((err = _access(DLLNAME ".DLL", 4)) != 0){
printf("Access Error %i", err);
};
hDLL = LoadLibrary("del_udf");
if (hDLL != (HINSTANCE)NULL)
{
lpfnDllFunc1 = (LPFNDLLFUNC1)GetProcAddress(hDLL,
"RandG");
if (!lpfnDllFunc1)
{
// handle the error
FreeLibrary(hDLL);
printf("Error: Cannot find RandG function\n");
return 1;
}
else
{
// call the function
mean = 10;
stddev = 10;
ret = lpfnDllFunc1(&mean, &stddev);
printf("RandG: %g\n", ret);
}
} else {
printf("Error: Cannot load library\n");
};
return 0;
};
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
UTF-8
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 8.10.2001 10:14:47
Existuji na to nejake API funkce, ale take muzes zkusit pouzit
Synapsi (unita SynaChar.pas), pomoci ktereho to prevedes na
cokoliv. ;-)
> Muze mi nekdo napovedet jak pracovat s UTF-8 ?
> Existuji nejake WinAPI funkce pro konverzi ?
> Pouzivam IXMLDOMDocument z msxml3.dll
> pro parsovani XML souboru. Pokud je soubor
> v UTF-8, tak ziskana data jsou take v UTF-8.
> Jak je prevezt do ANSI ?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
OT: WAV z Pascalu
[*] Zden�k Sv�en - 8.10.2001 10:25:17
Ahoj lidi,
potrebuju prehrat WAV pres zvukovou kartu v Turbo Pascalu 7. Jde to?
Diky za radu.
Zdenek
Transparentni panel
[*] <kuchar(zv)unicodesys(tec)cz> - 8.10.2001 10:29:40
nezabralo to
>
> Canvas.Brush.Style := bsclear;
> inherited Paint;
>
Transparentni panel
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 8.10.2001 10:41:42
> Caute, protoze moje otazka nezaznamenala zadny
> ohlas tak to skousim podruhe
>
> vytvoril jsem novou komponentu jako potomka
> TPanel, potreboval bych te komponente priradit
> novou vlastnost TRANSPARENT, do procedury paint
> jsem pridal :
> -----------------------------------------------
> inherited Paint;
> Canvas.Brush.Style := bsclear;
> -----------------------------------------------
> ale najak se to minulo ucinkem, muzete mi poradit kde delam chybu ?
Ahoj, toto som napisal velmi narychlo, ale snad Ti to na zaciatok pomoze:
type
TCustomPanelEx = class(TCustomPanel)
private
FTransparent: Boolean;
procedure SetTransparent(Value: Boolean);
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message
WM_ERASEBKGND;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
public
property Transparent: Boolean read FTransparent write SetTransparent;
end;
implementation
{ TCustomPanelEx private }
procedure TCustomPanelEx.SetTransparent(Value: Boolean);
begin
if FTransparent <> Value then
begin
FTransparent := Value;
RecreateWnd;
end;
end;
procedure TCustomPanelEx.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
if not FTransparent then
inherited;
end;
{ TCustomPanelEx protected }
procedure TCustomPanelEx.CreateParams(var Params: TCreateParams);
const
TransparentFlags: array[Boolean] of DWORD = (0, WS_EX_TRANSPARENT);
begin
inherited CreateParams(Params);
with Params do
ExStyle := ExStyle or TransparentFlags[FTransparent];
end;
procedure TCustomPanelEx.Paint;
const
Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
Rect: TRect;
TopColor, BottomColor: TColor;
FontHeight: Integer;
Flags: Longint;
procedure AdjustColors(Bevel: TPanelBevel);
begin
TopColor := clBtnHighlight;
if Bevel = bvLowered then TopColor := clBtnShadow;
BottomColor := clBtnShadow;
if Bevel = bvLowered then BottomColor := clBtnHighlight;
end;
begin
if FTransparent then
begin
Rect := GetClientRect;
if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;
Frame3D(Canvas, Rect, Color, Color, BorderWidth);
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;
with Canvas do
begin
Brush.Style := bsClear;
Font := Self.Font;
FontHeight := TextHeight('W');
with Rect do
begin
Top := ((Bottom + Top) - FontHeight) div 2;
Bottom := Top + FontHeight;
end;
Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[Alignment];
Flags := DrawTextBiDiModeFlags(Flags);
DrawText(Handle, PChar(Caption), -1, Rect, Flags);
end;
end
else
inherited Paint;
end;
HTH
TOndrej
indikator prubehu behem SQL prikazu
[*] Jirka Kral jr. <admin(zv)printo(tec)cz> - 8.10.2001 10:44:15
Ahoj, zrova se chystam tvorit subj.
mate nekdo nejaky napad jak na to?
pouzivam D5, MS SQL7 pres ADO
da se nekde precist nejaka hodnota? jak resit refresh progressbaru? v extra
threadu?
diky za any info
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940
Upraveny BitBtn nebo SpeedButton
[*] Petr Kucera <kucera(zv)vri(tec)cz> - 8.10.2001 09:48:52
Dobry den,
prosim Vas, da se nejak nastavit velikost obrazku u BitBtn nebo
SpeedButtonu (vlastnost Glyph) nejak podobne jako je tomu u
komponenty Image (tam se to da pomoci vlastnosti Stretch)? Nebo
Existuje neco podobneho jako vyse uvedene, co by umoznovalo menit
velikost obrazku na velikost te ikonky?
Dekuji.
Petr Kucera
P.S. Mam na mysli neco takoveho: obrazek ma napr. velikost 160x160
bodu a ja mam tlacitko o velikosti 80x80 a chtel bych ten obrazek
vecpat na to tlacitko cely.Open dialog & sitove okoli
[*] Liboz Zapletal <zapletal.libor(zv)c-box(tec)cz> - 8.10.2001 10:58:19
Co vse je potreba udelat, aby:
1) v open(save,..) dialogu bylo na vyber krome lokalnich disku i sitove
okoli
2) aplikace dokazala pracovat se sitovymi cestami. Myslim tim prace se
soubory jejichz cesta je zadana sitove (napr. \\pocitac11\data\soubor.txt)
Diky vsem LiborZ
Zobrazenie iba ramceka stvorca
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.10.2001 11:16:01
Nastav Brush.Style na bsClear
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
8.10.2001 bpodolak(zv)elanor.sk:
> Ahoj, potreboval by som nakreslit iba ramik stvorceka a nie aj jeho vnutro,
> takze text, ktory bude pod nim by zostal viditelny a len by sa oramikoval.Open dialog & sitove okoli
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.10.2001 11:22:54
8.10.2001 Liboz Zapletal:
> Co vse je potreba udelat, aby:
> 1) v open(save,..) dialogu bylo na vyber krome lokalnich disku i sitove
> okoli
Sitove okoli je tam snad standardne (D5). Podminkou je pouze existence
site.
> 2) aplikace dokazala pracovat se sitovymi cestami. Myslim tim prace se
> soubory jejichz cesta je zadana sitove (napr. \\pocitac11\data\soubor.txt)
Pro Windows aplikaci by nemelo existovat zadne omezeni pri praci se
sitovymi cestami (pokud nepocitam prava na pristup apod.).
Se souborem s cestou \\pocitac\c\soubor.txt se zachazi stejne jako se
C:\soubor.txt. Nemusis kolem toho delat nic.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zobrazenie iba ramceka stvorca
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 8.10.2001 11:35:24
> Ahoj, potreboval by som nakreslit iba ramik stvorceka a nie
> aj jeho vnutro,
> takze text, ktory bude pod nim by zostal viditelny a len by
> sa oramikoval.
Cau,
Canvas.Pen.Style := psSolid; // styl ciary
Canvas.Pen.Color := clBlack; // farba ciary
Canvas.Brush.Style := bsClear; // ziadna vypln
Canvas.Rectangle(MyRect); // go! :-)
HTH
TOndrej
Brutalni chyba D5
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.10.2001 11:35:13
V D5 se mi stala divna vec.
Bud je to moje hloupost, nebo tak brutalni chyba,
ze jsem se az zapotil. V nasledujicim programku
se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
po vstupu do cyklu se rovnou skoci na radek -B- !!!
Radek -C- se taky nevykonava, ale to bych mozna
chapal (mozna ho odstrani optimalizace).
Nema na to vliv, jestli mam nebo nemam zapnutou
optimalizaci.
Nenapada vas nekoho vysvetleni?
Dik. Kokes
{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,
M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y+,Z1}
procedure TForm1.Button1Click(Sender: TObject);
var
Prvni : integer;
Posledni : integer;
begin
Prvni := $8C;
repeat
while Buf[Prvni]=$48 do inc(Prvni); { -A- }
Posledni := Prvni+1; { -B- }
//
// nejake vypocty
//
Prvni := Posledni; { -C- }
until Prvni>=1000;
end;
Zobrazenie iba ramceka stvorca
[*] bpodolak(zv)elanor.sk - 8.10.2001 10:38:45
Ahoj, potreboval by som nakreslit iba ramik stvorceka a nie aj jeho vnutro,
takze text, ktory bude pod nim by zostal viditelny a len by sa oramikoval.
Brutalni chyba D5
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.10.2001 11:43:04
Puvodni zprava, kterou napsal Josef Kokes dne 8 Oct 2001:
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Prvni : integer;
> Posledni : integer;
> begin
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do inc(Prvni); { -A- }
> Posledni := Prvni+1; { -B- }
> //
> // nejake vypocty
> //
> Prvni := Posledni; { -C- }
> until Prvni>=1000;
> end;
No tak zrejme kompilator usoudi, ze je to vsechno
uplne na nic, ze ani jednu promennou dale nepouzijes,
tak to cele zahodi. Ale nevim, co mas uprostred,
a nezkousel jsem to.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
OT: Re: WIN verusus LINOX (KYLIX Report Generator)
[*] Erik Salaj <winsoft(zv)stonline.sk> - 8.10.2001 11:47:41
> IMHO po ohlasovanem 50% zdrazeni Microsoftu a po zjisteni, ze uz nejde
> zaplatit 5 licenci a provozovat je na 15 PC myslim, ze poptavka po Linuxu
> mezi firmami vzroste. Je ovsem otazkou jaky budou mit na celou vec vliv
Alebo firmy nebudu software od MS upgradovat kazdy rok ale kazde dva roky.
> nedavne tragicke udalosti v USA, ktere vyvolavaji ruzne tlaky na statem
> "posvecena" zadni vratka v SW , omezeni sifrovani a pod. (napr. ve smyslu
> navrhu zakona SSSSCA). To zase muze Linuxove distribuce dostat z oblasti
> OpenSource do komercni sfery se vsemi dusledky.
> Takz kdo vi jak to bude.
Nemozem si pomoct, ale iny ako komercny system si v trhovej ekonomike
predstavit neviem. A to aj v pripade Linuxu, hoci sa to na prvy pohlad tak
nemusi javit.
Erik
indikator prubehu behem SQL prikazu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 8.10.2001 11:50:20
Lze to resit behem nacitani dat (Fetch),
problemem je, ze nevys kolik dat budes cist (existuji vyjimky)
a dalsim problemem je, ze nevis, jak dlouho bude trvat serveru,
nez ti posle prvni zaznam.
Pokud se ti jedna o prikazy, ktere nevraci postupne data,
tak se neda asi nic delat (jedine, ze by MSSQL mel neco, co jine
SQL servery nemaji).
Slavek
> Ahoj, zrova se chystam tvorit subj.
> mate nekdo nejaky napad jak na to?
> pouzivam D5, MS SQL7 pres ADO
> da se nekde precist nejaka hodnota? jak resit refresh progressbaru? v extra
> threadu?
> OT: WIN verusus LINOX (KYLIX Report Generator)
[*] Erik Salaj <winsoft(zv)stonline.sk> - 8.10.2001 11:51:24
> > IMHO po ohlasovanem 50% zdrazeni Microsoftu a po zjisteni, ze uz nejde
> > zaplatit 5 licenci a provozovat je na 15 PC myslim, ze poptavka po
Linuxu
> > mezi firmami vzroste.
>
> poscitejte si naklady na server pod win platformou a linux ;-)
Naklady na zakupenie licencie alebo aj na prevadzku?
> OpenSource != nekomerci SW (sorry, pro pascalisty <> ;-) )
> klidne muzu prodavat svuj SW za prachy a mit ho OpenSource ... coz bezne
> delam ...
Lenze Linux sa prezentuje tak, ze je zdarma a ze je OpenSource
a zvadza to tak k podobnym zaverom. A mozem Ta ubezpecit,
ze mnoho samotnych linuxakov v tom nema jasno ako to je
a co vlastne chcu.
> Jo, mozna nekdo prevede McOS 10 pro PC - slysel jsem, ze az na aqua
(vrcholna
> vrstva, neco jako window manager) je Open ....
> Ale na zkurvene pomale architekture IBM/PC asi sotva ... RISC je o necem
> jinem, ze ....
Vlastne co od OS chces? Aby bol zdarma alebo aby bol open source alebo
aby nefungoval na PC-ckach alebo aby nebol od MS?
Erik
Transparentni panel
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 8.10.2001 11:52:31
Budes musiet prepisat metodu Paint kde budes nastavovat Canvas....
(Staci ked zkopiruje metodu z TCustomPanel, upravis to a nebudes volat
inherited)
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
From: <kuchar(zv)unicodesys(tec)cz>
> nezabralo to
> >
> > Canvas.Brush.Style := bsclear;
> > inherited Paint;
> >
>Brutalni chyba D5
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 8.10.2001 11:56:54
No, chyba D5 to urcite neni. Ale zkus si vymazat DCU subory a urob build.
btw: mas v tom poli Buf viac ako 140 hodnot? ;-)
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
From: "Josef Kokes" <kokes(zv)fsid.cvut(tec)cz>
> V D5 se mi stala divna vec.
> Bud je to moje hloupost, nebo tak brutalni chyba,
> ze jsem se az zapotil. V nasledujicim programku
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
> po vstupu do cyklu se rovnou skoci na radek -B- !!!
> Radek -C- se taky nevykonava, ale to bych mozna
> chapal (mozna ho odstrani optimalizace).
> Nema na to vliv, jestli mam nebo nemam zapnutou
> optimalizaci.
> Nenapada vas nekoho vysvetleni?
> Dik. Kokes
>
> {$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,
> M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y+,Z1}
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Prvni : integer;
> Posledni : integer;
> begin
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do inc(Prvni); { -A- }
> Posledni := Prvni+1; { -B- }
> //
> // nejake vypocty
> //
> Prvni := Posledni; { -C- }
> until Prvni>=1000;
> end;
>
>Brutalni chyba D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2001 12:05:04
From: "Josef Kokes" <kokes(zv)fsid.cvut(tec)cz>
> ze jsem se az zapotil. V nasledujicim programku
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
Ahoj,
omyl, radek se vyvola, ovsem debugger to (z neznamych duvodu - chyba ?)
preskoci. Pokud to trochu upravis tak se muzes presvedcit ze to funguje:
var
Buf: array[0..1000] of Byte;
procedure TForm1.Button1Click(Sender: TObject);
var
Prvni, Posledni: Integer;
begin
Prvni := $8C;
repeat
while Buf[Prvni] = $48 do
Inc(Prvni); { -A- }
Posledni := Prvni + 1; { -B- }
//
// nejake vypocty
//
Prvni := Posledni; { -C- }
until Prvni >= 1000;
end;
initialization
Buf[$8C] := $48; // Vlozime nejakou hodnotu
end.
Dej si breakpoint na {-A-}, o tom ze kod je vygenerovan spravne se muzes
presvedcit i v CPU okne.
Petr Vones
Brutalni chyba D5
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.10.2001 12:14:49
On 8 Oct 2001 at 11:35, Josef Kokes wrote:
> V D5 se mi stala divna vec.
> Bud je to moje hloupost, nebo tak brutalni chyba,
> ze jsem se az zapotil. V nasledujicim programku
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Prvni : integer;
> Posledni : integer;
> begin
> Prvni := $8C;
> repeat
Zkus to rozdelit takto na dva radky a krokovat:
while Buf[Prvni]=$48 do
inc(Prvni); { -A- }
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Brutalni chyba D5
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 8.10.2001 12:16:36
[snip...]
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do inc(Prvni); { -A- }
[snip...]
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
> Nenapada vas nekoho vysvetleni?
Ahoj, napada ma toto:
1. Buf[$8C] neobsahuje hodnotu $48, takze slucka while ... prebehne spravne
0-krat.
2. Buf je pole s poctom prvkov mensim ako $8C? :-)
Ak je to tak, potom pristupujes na pametove miesta, ktore mozu obsahovat
vselico a _nahodou_ tam prave hodnota $48 nie je...
Skus ten riadok prepisat na dva riadky:
while Buf[Prvni] = $48 do
Inc(Prvni);
Pri krokovani by ten prvy riadok (kontrola podmienky) mal prebehnut vzdy
aspon raz.
Skratka, skus trochu podebugovat, skor ako zvalis vinu na Delphi. Sice ma
svoje muchy, ale az taketo brutalne snad nie.
HTH
TOndrej
problem s formy a jejich visible
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.10.2001 12:20:46
> Odes�latel: Milan #ݿek <cizek.milan(zv)seznam(tec)cz>
> Pri startu programu se ale zobrazi mimo hlavni form i ten pridany (s visible
> false). Dela mi to na 2PC, v ruznych projektech.
> Jak uz jsem rekl, tak to obchazim vyhozenim formu z autocreate, a jeho
> vytvorenim za behu. Ale i tak mi to docela vadi.
Vytvaret formulare v runtime (bez autocreate) je obecne spravny postup.
Nicmene formular, kde Visible=false, by se mel zobrazit az po Show.
Alepson me to tak vzdycky fungovalo a funguje.
(Delphi 1,2,3,4,5,6)
Honza
=========================================
= 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 569 (0776 347735)
=========================================UTF-8
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 8.10.2001 12:27:13
> Muze mi nekdo napovedet jak pracovat s UTF-8 ?
> Existuji nejake WinAPI funkce pro konverzi ?
> Pouzivam IXMLDOMDocument z msxml3.dll
> pro parsovani XML souboru. Pokud je soubor
> v UTF-8, tak ziskana data jsou take v UTF-8.
> Jak je prevezt do ANSI ?
>
MSXML samo pozna a provadi potrebny encoding podle hlavicky XML dokumentu. Kdyz neni encoding uveden bere se jako default utf-8. Takto pracuji jeho metody Save a Load (tj. stream).
Metody xml a loadXML vraceji/nacitaji vzdy UTF-16 (= WideString/BSTR). Prevod na ANSI (String) provadeji Delphi automaticky pomoci API fce WideCharToMultiByte.
Tom
CLX aplikace Was: KYLIX Report Generator
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2001 12:33:35
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Nechci rozpoutavat vasne Windows vs. Linux.
> Nicmene kdyz jsem na seminari Delphi 2001, Lazne Belohrad, leden 2001, 130
> ucastniku, polozil otazku:
> "kdo se chysta zcela vazne, s nasazenim penez a vyvojarskych kapacit,
> vyvijet klientske aplikace pro Linux", zvedly se 4 ruce...
Ahoj,
ono vzdy nejakou chvili trva nez se nova vec prosadi. VCL a Win32 API znaji
programatori uz po nekolik let. CLX a Qt je pro vetsinu z nich vec nova,
prinasi nektera omezeni takze nelze plne vyuzit vse co Windows (a predevsim
XP) GUI nabizi, navic je zde releativne nedostatek literatury ohledne pouziti
a prevevsim vyvoje komponent CLX. Mozna by nebylo spatne nekam na web umistit
anketu kolik vyvojaru by v soucasne dobe melo zajem o to vyvijet aplikace pro
Linux s pouzitim dostupnych verzi Kylixu a Delphi.
Petr Vones
Brutalni chyba D5
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 8.10.2001 12:57:27
Moc som nestudoval ten tvoj kod, ale malo by to normalne ist. S podobnym
problemom som sa stretol aj ja, robilo to naozaj divne, potom som
preinstaloval delphi a bolo vsetko ok.
S pozdravom
Ondrej Krsko
On Mon, 8 Oct 2001, Josef Kokes
wrote:
> V D5 se mi stala divna vec.
> Bud je to moje hloupost, nebo tak brutalni chyba,
> ze jsem se az zapotil. V nasledujicim programku
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
> po vstupu do cyklu se rovnou skoci na radek -B- !!!
> Radek -C- se taky nevykonava, ale to bych mozna
> chapal (mozna ho odstrani optimalizace).
> Nema na to vliv, jestli mam nebo nemam zapnutou
> optimalizaci.
> Nenapada vas nekoho vysvetleni?
> Dik. Kokes
>
> {$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,
> M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y+,Z1}
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Prvni : integer;
> Posledni : integer;
> begin
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do inc(Prvni); { -A- }
> Posledni := Prvni+1; { -B- }
> //
> // nejake vypocty
> //
> Prvni := Posledni; { -C- }
> until Prvni>=1000;
> end;
>
>
> Brutalni chyba D5
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.10.2001 12:58:35
Nojo, prave ze se se vsemi promennymi dost intenzivne
pocita. Navic bych cekal, ze {$O-} vypne optimalizaci...
Kokes
----- Original Message -----
From: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 08, 2001 11:43 AM
Subject: Re: Brutalni chyba D5
> No tak zrejme kompilator usoudi, ze je to vsechno
> uplne na nic, ze ani jednu promennou dale nepouzijes,
> tak to cele zahodi. Ale nevim, co mas uprostred,
> a nezkousel jsem to.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
ISDN - zvukovka
[*] <vasek.zaruba(zv)volny(tec)cz> - 8.10.2001 12:59:02
Ahoj,
Mam koupenou knihovnu ISDN-TOOLS. Potrebuji v realnem case
posilat (prijimat) wav na zvukovku. V knihovne je to reseno
jako zaznamnik z ulozeneho wav souboru, ale umoznuje v
udalosti prijimani dat neco provest s tokem dat..
Nevite, prosim, nekdo jak posilat kontinuelne (v blocich
2048b za 250 ms) na zvukovku zvuk a obracene snimat z mikrofonu do pameti. DIKY Brutalni chyba D5
[*] Jirka Kr�l jr. <admin(zv)printo(tec)cz> - 8.10.2001 13:00:32
>>se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
>>po vstupu do cyklu se rovnou skoci na radek -B- !!!
>>Radek -C- se taky nevykonava, ale to bych mozna
>>chapal (mozna ho odstrani optimalizace).
>>Nema na to vliv, jestli mam nebo nemam zapnutou
>>optimalizaci.
Rozhodne zkus smazat vse krome DPR, PAS a DFM a udelej kompletni build
projektu
Jirka
Brutalni chyba D5
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.10.2001 13:02:26
Build jsem delal, nepomohl.
V Buf je nekolik tisic hodnot, tim to taky nebude :-(
Dik. Kokes
----- Original Message -----
From: Pavol Kaka�ka <kakacka(zv)proca(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 08, 2001 11:56 AM
Subject: Re: Brutalni chyba D5
>
> No, chyba D5 to urcite neni. Ale zkus si vymazat DCU subory a urob build.
> btw: mas v tom poli Buf viac ako 140 hodnot? ;-)
>
Ord()
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 8.10.2001 13:14:00
Zdravim vsechny delfaky!
Delam jednu vec a nevim si rady s pouzitim funkce ord().
Zde je kousek kodu:
var
J: integer;
R,S: string;
Z: string[1];
B: byte;
begin
R := vstupni retezec;
S := '';
for J:=1 to Length(R) do
begin
Z := copy(R,J,1);
B := ord(Z); // zde mi kompilator hlasi "Incompatible types",
jakmile napisu ord('Z') tak je to OK
.......
.......
S := S + chr(B);
end;
......
end;
Nevite nekdo jak s ord() pracovat, co delam blbe?
Predem dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.280 / Virov� b�ze: 147 - datum vyd�n�: 11.9.2001
Ord()
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.10.2001 13:18:04
Misto string[1] pouzij char
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Z: string[1];
> B := ord(Z); // zde mi kompilator hlasi "Incompatible types",
> jakmile napisu ord('Z') tak je to OK
Ord()
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.10.2001 13:19:54
Ord se da pouzit pouze na ordinalni typy, coz string vznikly z funkce
Copy neni, presto ze jde o jednoznakovy string, porad je to string.
Misto funkce
Z musi bych typu Char
a misto:
Z := copy(R,J,1);
pouzit
Z := R[J];
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
8.10.2001 Igor Vodi�ka:
> Zdravim vsechny delfaky!
> Delam jednu vec a nevim si rady s pouzitim funkce ord().
> Zde je kousek kodu:
> var
> J: integer;
> R,S: string;
> Z: string[1];
> B: byte;
> begin
> R := vstupni retezec;
> S := '';
> for J:=1 to Length(R) do
> begin
> Z := copy(R,J,1);
> B := ord(Z); // zde mi kompilator hlasi "Incompatible types",
> jakmile napisu ord('Z') tak je to OK
> .......
> .......
> S := S + chr(B);
> end;
> ......
> end;
> Nevite nekdo jak s ord() pracovat, co delam blbe?
> Predem dik
> Ing. Igor Vodi�ka
> informa�n� syst�my
> Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
> Tel.: 069 353 062, Fax: 069 357 758
> Mailto:vodicka(zv)sagit(tec)cz
> Http:\\www.sagit(tec)cz\
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.280 / Virov� b�ze: 147 - datum vyd�n�: 11.9.2001
inno setup - dotaz zacatecnika
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 8.10.2001 13:21:33
ahoj,
moc prosim o radu (priklad),
vim ze co chci vedet asi najdu v helpu, ale ja bych to potrebival
relativne rychle ;)
chtel bych sefa presvedcit, jak je InnoSetup dobrej, a potrebuju:
1/ v ramci jednoho setupu spustit instalaci jineho (konkretne IB6) nebo
nejak sloucit instalacni script IB6 s tim mym (staci merge? nebo musim
neco poupravit?)
2/ jak udelat aby vysledny pakovanec byl roztristen na disketove svazky.
neco jako instalce.exe, instalace.000, instalace.001, ...,
instalace.nnn, nebo neco podobneho, co by slo instalovat z CD nebo
kopirovat na diskety a potom instalovat z disket.
zatim budu hledat, ale kdyby sem nekdo poslal odpoved, budu moc vdecny.
inno se opravdu libi a s tema toolsama co k tomu jsou je to celkem easy
(az na par drobnosti ;).
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Rotace obrazku o 90 stupnu
[*] <suky(zv)atlas(tec)cz> - 8.10.2001 13:29:47
Ahoj, potreboval bych provest rotaci obrazku o 90 stupnu v obouch smerech.
Muzete nekdo poradit?
Michal
Brutalni chyba D5
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.10.2001 13:29:33
> 1. Buf[$8C] neobsahuje hodnotu $48, takze slucka while ... prebehne
spravne
> 0-krat.
Nojo - problem prave je, ze se to na to While vubec nedostane. Kdyz to treba
krokuju, tak se udela ten radek pred Repeat a pak az ten radek za While. To
While
se proste vynecha, takze je docela jedno, jestli v Buf nejaka $48 existuje.
Dokonce,
kdyz dam na to While breakpoint, tak se to na nem nikdy nezastavi (ale ani
se barevne
neoznaci jako neplatny breakpoint)...
> 2. Buf je pole s poctom prvkov mensim ako $8C? :-)
Ne, v Buf je nekolik ticic hodnot.
> Skus ten riadok prepisat na dva riadky:
> while Buf[Prvni] = $48 do
> Inc(Prvni);
No prave; nedojede to na ten PRVNI radek.
Ach jo, fakt s tim zapasim od rana a nic.
Rozumis, mne ani tak nejde o to, jak to obejit.
Obejit by se to asi (docela snadno) dalo. Mne
na tom desi, ze mi to dela takovouhle vec, aniz
bych vedel, proc! Bud delam neco spatne, nebo
je chyba jinde. Ale ze by byla chyba takovehoto
kalibru?!
S diky
Kokes
----- Original Message -----
From: Ondrej Kelle <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 08, 2001 12:16 PM
Subject: RE: Brutalni chyba D5
Ord()
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 8.10.2001 13:30:30
Delam jednu vec a nevim si rady s pouzitim funkce ord().
Zde je kousek kodu:
var
J: integer;
R,S: string;
B: byte;
begin
R := vstupni retezec;
S := '';
for J:=1 to Length(R) do
begin
B := ord(R[J]);
S := S + chr(B);
end;
......
end;
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.282 / Virov� b�ze: 150 - datum vyd�n�: 25.09.2001
Ord()
[*] brant(zv)dcomm(tec)cz - 8.10.2001 13:34:15
Tenhle kousek kodu dela to, ze okopiruje obsah retezce R na retezec S, tj.
totez jako prikaz S:= R. Jinak funkce Ord v tomto kontextu vraci ASCII kod
znaku R[j], tedy znaku, ktery je na j-tem miste retezce R. Funkce Chr
prevadi tento kod zpet na znak.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Delam jednu vec a nevim si rady s pouzitim funkce ord().
Zde je kousek kodu:
var
J: integer;
R,S: string;
B: byte;
begin
R := vstupni retezec;
S := '';
for J:=1 to Length(R) do
begin
B := ord(R[J]);
S := S + chr(B);
end;
......
end;Brutalni chyba D5
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 8.10.2001 13:42:18
From: "Josef Kokes" <kokes(zv)fsid.cvut(tec)cz>
> > Skus ten riadok prepisat na dva riadky:
> > while Buf[Prvni] = $48 do
> > Inc(Prvni);
> No prave; nedojede to na ten PRVNI radek.
> Ach jo, fakt s tim zapasim od rana a nic.
> Rozumis, mne ani tak nejde o to, jak to obejit.
> Obejit by se to asi (docela snadno) dalo. Mne
> na tom desi, ze mi to dela takovouhle vec, aniz
> bych vedel, proc! Bud delam neco spatne, nebo
> je chyba jinde. Ale ze by byla chyba takovehoto
> kalibru?!
No a skusal si vymazat tie DCUcka?
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Ord()
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 08.10.2001 14:06:28
Ahoj,
a s cim si nevis rady? Zapis je spravne, akorat nevim na co je to dobry.
misto
B := ord(R[J]);
S := S + chr(B);
muzes napsat S := S + R [J]
a cely to dela S := R
Vaclav Sazima
Mephisto wrote:
>
> Delam jednu vec a nevim si rady s pouzitim funkce ord().
> Zde je kousek kodu:
>
> var
> J: integer;
> R,S: string;
> B: byte;
> begin
> R := vstupni retezec;
> S := '';
> for J:=1 to Length(R) do
> begin
> B := ord(R[J]);
> S := S + chr(B);
> end;
> ......
> end;Brutalni chyba D5 - vyreseno
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.10.2001 14:11:49
Dekuji vsem za pomoc a nazory na uvedeny Subj.
Bohuzel, nepodarilo se mi D primet k poslusnosti.
Tak jsem to nakonec prepsal jinak.
Dik. Kokes
Ord()
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 8.10.2001 14:15:00
Ord vyzaduje v parametru ordinalni typ:
var Z: Char;
...
Z:=R[J];
B:=Ord(Z);
...
nebo
2)
...
B:=Ord(R[J]);
...
-----P�vodn� zpr�va-----
Od: Igor Vodi�ka [mailto:vodicka(zv)sagit(tec)cz]
Odesl�no: 08.10.2001 13:14
Komu: Delphi konference II (el. adresa)
P�edm�t: Ord()
Zdravim vsechny delfaky!
Delam jednu vec a nevim si rady s pouzitim funkce ord().
Zde je kousek kodu:
var
J: integer;
R,S: string;
Z: string[1];
B: byte;
begin
R := vstupni retezec;
S := '';
for J:=1 to Length(R) do
begin
Z := copy(R,J,1);
B := ord(Z); // zde mi kompilator hlasi "Incompatible types",
jakmile napisu ord('Z') tak je to OK
.......
.......
S := S + chr(B);
end;
......
end;
Nevite nekdo jak s ord() pracovat, co delam blbe?
Predem dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.280 / Virov� b�ze: 147 - datum vyd�n�: 11.9.2001
Rotace obrazku o 90 stupnu
[*] Roman Toda <toda(zv)digitaldocuments.org> - 8.10.2001 14:32:38
Uz to urcite bude niekde hotove. Ja som to tak pred 3mi rokmi robil. Ked nic
nezozenies ozvi sa pohladam to.
Roman
----- Original Message -----
From: <suky(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 08, 2001 1:29 PM
Subject: Rotace obrazku o 90 stupnu
> Ahoj, potreboval bych provest rotaci obrazku o 90 stupnu v obouch smerech.
> Muzete nekdo poradit?
>
> Michal
>inno setup - dotaz zacatecnika
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.10.2001 14:37:43
> 1/ v ramci jednoho setupu spustit instalaci jineho (konkretne IB6) nebo
> nejak sloucit instalacni script IB6 s tim mym (staci merge? nebo musim
> neco poupravit?)
Nejlepsi je si napsat tu instalaci sam. Urcite to nebude tak slozity.
>
> 2/ jak udelat aby vysledny pakovanec byl roztristen na disketove svazky.
> neco jako instalce.exe, instalace.000, instalace.001, ...,
> instalace.nnn, nebo neco podobneho, co by slo instalovat z CD nebo
> kopirovat na diskety a potom instalovat z disket.
V IS Tool - menu Project - Setup options - Compiler, checkbox Disk spanning
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Brutalni chyba D5
[*] bpodolak(zv)elanor.sk - 8.10.2001 13:41:54
Nazdar.
Mal som podobny problem.
Mal som vo var zadeklarovanu premenu triedy TIntegerField,
ale nebola nikde vytvarana ani zrusena.
Robilo mi to podobne veci. Preskakovalo a ignorovalo riadky.
Vyskusaj si pozriet deklaracie premmennych.inno setup - dotaz zacatecnika
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 8.10.2001 14:57:24
> 1/ v ramci jednoho setupu spustit instalaci jineho (konkretne
> IB6) nebo nejak sloucit instalacni script IB6 s tim mym
> (staci merge? nebo musim neco poupravit?)
ok, takze to bych vedel, udelal jsem si samostatny balik a spoustim pred
koncem instalace. ted bych ale potreboval (a na to nemuzu prijit)
potlacit veskerou komunikaci s userem. vzycky mi to zobrazi alespon
welcome (vitejte v instalaci), pak uz to jede.
> 2/ jak udelat aby vysledny pakovanec byl roztristen na
> disketove svazky.
jo, tak to jsem taky nasel ;)
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Zobrazenie iba ramceka stvorca
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 8.10.2001 14:59:35
No, mas dve moznosti:
a) klikni na ten ctverec pravym tlacitkem a dej Send to back
b) nebo mu v Object Inspectoru nastav Brush > Style > bsClear
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: <bpodolak(zv)elanor.sk>
Sent: Monday, October 08, 2001 11:38 AM
> Ahoj, potreboval by som nakreslit iba ramik stvorceka a nie aj jeho
vnutro,
> takze text, ktory bude pod nim by zostal viditelny a len by sa oramikoval.Brutalni chyba D5
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 8.10.2001 15:04:52
> Nojo - problem prave je, ze se to na to While vubec
> nedostane.
To je zaujimave. Pisal si, ze sa to chova rovnako nezavisle od toho, ci
zapnes/vypnes optimalizaciu.
O ktoru verziu/update pack Delphi sa jedna? Vedel by si napisat minimalny
skompilovatelny priklad, na ktorom sa ten problem da reprodukovat? Ak je to
fakt chyba Delphi :-\ potom by bolo vhodne minimalne vediet o nej... ;-)
TOndrej
RichEdit a tlac na poziciu
[*] mstevlik(zv)gamo.sk - 8.10.2001 15:06:49
Zdarvim ve spolek,
Potrebujem vytlacit obsah richeditu ale na urcitu poziciu na papieri (napr
do spodnej polovice ...)
a potreboval by som vediet kde na papieri ta tlac prestala aby som sa pri
buducej tlaci vedel naviazat pod ten text, kt. som tlacil predtim
Richedit obsahuje Print a myslel som si ze pomocou PageRect nastavim kde sa
ma zacat tlacit, ale jej hodnoty mi delphi nedovolia zmenit :(
Dakujem za kazde nakopnutie
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
Firebird (Interbase 6.0) a UDF
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.10.2001 15:09:36
Haj hou!
On 8 Oct 2001, at 10:11, Vladimir Michl wrote:
> zkousim vytvorit UDF k Firebirdu a nedari se mi.
> Pokud vytvorim DLL v Delphi 5 firebird v pohode
> s dll pracuje.
>
> Pokud ho vytvorim v C a prelozim pomoci mingw (www.mingw.org)
> firebird porad hlasi ze zadanou funkci nevidi.
>
> Pritom jsem si zkousel napsat testovaci programek na loadknihovny,
> ktery pritom bezproblemu funguje a pokud jsem se dival do zdrojaku
> Firebirdu, tak presne toto pouziva.
Problem bude v exportu funkce a zjisteni jeji adresy dle jmena.
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
inno setup - dotaz zacatecnika
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 8.10.2001 15:12:28
Stahni si freeware ScriptMaker nebo ScriptMaker a tam vse najdes intuitivne.
Ve scriptMakeru:
Rozdeleni na vice souboru -> zalozka Spann/Add files
Spusteni pred nebo po instalaci -> zalozka Run
J.Madlik
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: "DELPHI Konference (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 08, 2001 1:21 PM
Subject: inno setup - dotaz zacatecnika
> 1/ v ramci jednoho setupu spustit instalaci jineho (konkretne IB6) nebo
> nejak sloucit instalacni script IB6 s tim mym (staci merge? nebo musim
> neco poupravit?)
>
> 2/ jak udelat aby vysledny pakovanec byl roztristen na disketove svazky.
> neco jako instalce.exe, instalace.000, instalace.001, ...,
> instalace.nnn, nebo neco podobneho, co by slo instalovat z CD nebo
> kopirovat na diskety a potom instalovat z disket.
>
inno setup - dotaz zacatecnika
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 8.10.2001 15:16:44
> Stahni si freeware ScriptMaker nebo ScriptMaker a tam vse najdes
intuitivne.
Pardon preklep, to druhe melo byt ISTool
J.M.
Bezpecnost hesel 2
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 8.10.2001 15:17:03
zdravim,
zkusim to jeste jednou - nemate nekdo zkusenost / tip na free
zabezpeceni dat v programu? Mam na mysli ochranu za chodu aplikace, pri
ukladani i ochranu vlastnich ulozenych dat. Rad bych takto zabezpecoval
ukladani hesel... Diky,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Rotace obrazku o 90 stupnu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 8.10.2001 15:32:48
> From: suky(zv)atlas(tec)cz
>
> Ahoj, potreboval bych provest rotaci obrazku o 90 stupnu v obouch smerech.
> Muzete nekdo poradit?
Podivej se na:
http://www.efg2.com/Lab/Library/Delphi/Graphics/ImageProcessing.htm
Vaclav Krmela
inno setup - dotaz zacatecnika
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 8.10.2001 15:41:22
> ok, takze to bych vedel, udelal jsem si samostatny balik a
> spoustim pred koncem instalace. ted bych ale potreboval (a na
> to nemuzu prijit) potlacit veskerou komunikaci s userem.
> vzycky mi to zobrazi alespon welcome (vitejte v instalaci),
> pak uz to jede.
nakonec jsem to cely sesypal do jedny instalacky.
bylo to celkem snadny (jenom trochu cist ;).
dekuji vsem za pomoc.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Bezpecnost hesel 2
[*] brant(zv)dcomm(tec)cz - 8.10.2001 15:45:25
Pokud chces bezpecne ukladat hesla, staci ulozit jen hash toho hesla (mam
napr. free implementaci algoritmu MD5). Kontrola hesla se pak provadi tak,
ze se udela hash vlozeneho hesla a porovna se s tim ulozenym. Z hashe vsak
zpetne nelze puvodni heslo rekonstruovat. Ulozeni je tim padem bezpecne. A
pokud chces ukladat jeste jina data - k dispozici jsou mraky implementaci
nejruznejsich sifrovacich algoritmu. Na webu toho najdes spoustu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
zdravim,
zkusim to jeste jednou - nemate nekdo zkusenost / tip na free
zabezpeceni dat v programu? Mam na mysli ochranu za chodu aplikace, pri
ukladani i ochranu vlastnich ulozenych dat. Rad bych takto zabezpecoval
ukladani hesel... Diky,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Brutalni chyba D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2001 15:48:53
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> O ktoru verziu/update pack Delphi sa jedna? Vedel by si napisat minimalny
> skompilovatelny priklad, na ktorom sa ten problem da reprodukovat? Ak je to
> fakt chyba Delphi :-\ potom by bolo vhodne minimalne vediet o nej... ;-)
Ahoj,
zkousel jsem to v D5.01 a zkompiluje to spravne. Pouze pri ladeni se to chova
tak jak bylo popsano. Staci si ale otevrit CPU okno a projit tu cast kodu v
assembleru.
Petr Vones
Cool Menus Pro
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 8.10.2001 16:00:54
Ahoj,
zdravim vsechny. Mam takovy dotaz. Nemate nekdo zkusenosti s komponentami
Cool Menus Pro ?
Predem diky za odpoved.
Zdravi
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================Dalsi chyby v D5
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 8.10.2001 16:19:47
Ahoj
1. vyjimky:
mam projekt, v uses je SysUtils, a hned za beginem vyvolam vyjimku. Prelozeny program po spusteni okamzite bez dialogu spadne. To same pokud vyvolam vyjimku v initialization jednotky.
Nemely by se nahodou neosetrene vyjimky zachytit v SysUtils.ExceptHandler ?
2. stringy:
zkuste si kod umisteny na ftp://ftp.iol(tec)cz/incoming/Delphi_bug.zip
a budete koukat co Delphi vyvadeji. Zkouseno na 3 PC s D5.01 W2K.
3. taky jste si vsimli, jak stupidne funguje Undo+Redo. Holt se po Undo nesmi ani nahodou zmenit pozice kurzoru.
Tom
PS: Jak je to se zarukou u SW? Kdyz si nekdo neco koupi a zjisti, ze to obsahuje chyby, muze chtit napravu nebo vraceni penez.
OT: 1001 t&t pro Delphi - prirucka pro programator
[*] skalsky(zv)oksystem(tec)cz - 8.10.2001 16:27:42
k jiz nekolikrat zminovane knize : 1001 tipu a triku pro Delphi [Svoboda,
Vones, Konsal, Mares] :
Dostala se mi do ruky, takze par informaci [pokud uz to tu bezelo, tak
sorry]
Zminovane oblasti :
Object Pascal, databaze, SQL, Internet (http, ftp), WinAPI, OLE
object - s M$, pr�ce s registry,popisy komponent, pr�ce s grafikou, zvukem,
ale i tiskem ...
Kniha je doslova nacpan� spoustou kvalitn�ch zdrojov�ch k�du a praktick�ch
uk�zek, ze kter�ch by pochopil danou problematiku snad i Nezn�lek. Myslim,
ze na trhu cesky psane literatury k Delphi patri rozhodne k tem lepsim
(ostatne kdo sleduje prispevky Petra Vonese, tak asi prilis pochybovat
nebude ... )
Kde naj�t :
internetovy prodej :
http://www.vltava(tec)cz/Store/GoodsDetail.asp?sCGoodsID=SE00081927&nShopID=1&nD
epartmentID=605&nLanguageID=169&sCurrencyAbbreviation=CZK&sOrderBy=ByName
... bohuzel do kamennych kramku asi prijde az tento tyden, zatim ji nema ani
www.ben(tec)cz [a ten pry ma vsechno prvni :))) ]
Milan P. Skalsk�
odd�len� technick�ho rozvoje
OKsystem s.r.o.
Na Pankr�ci 125
140 21, Praha 4
---
http://www.oksystem(tec)cz
MailTo:Skalsky(zv)oksystem(tec)cz
Tlf +420 2 44021217
OT: WIN verusus LINOX (KYLIX Report Generator)
[*] David Janko <djanko(zv)infoware(tec)cz> - 8.10.2001 16:31:32
Dne po 8. ��jen 2001 11:51 jste napsal(a):
> > poscitejte si naklady na server pod win platformou a linux ;-)
>
> Naklady na zakupenie licencie alebo aj na prevadzku?
I na provoz - a pripadne admin linuxu bude cenove srovnatelny s adminem win.
Ale hlavni cenovy rozdil pri porizeni neni ani tak cena OS, jako treba SQL
serveru a pod.
> Lenze Linux sa prezentuje tak, ze je zdarma a ze je OpenSource
> a zvadza to tak k podobnym zaverom. A mozem Ta ubezpecit,
> ze mnoho samotnych linuxakov v tom nema jasno ako to je
> a co vlastne chcu.
Proto jsem to tady zduraznoval ...
> Vlastne co od OS chces? Aby bol zdarma alebo aby bol open source alebo
> aby nefungoval na PC-ckach alebo aby nebol od MS?
>
> Erik
Zdarma byt nemusi, pokud tu jsou konkurencni produkty. OpenSource ano, pokud
se k nemu nedava zaruka na pozadovanou funkcnost, bezpecnost a pod. (a ne my
ze nic nerucime a mozna to opravime za penize ktere si usmyslime - kdyz se
nam bude chtit). OpenSource je vubec na delsi debatu, kterou bych tu nerad
rozvadel. At je na PC nebo kde chce - tady jsem jen chtel upozornit, ze sam
HW uz je zbytecne limitujicim faktorem. A at je klidne od MS ;-).
Ale mym hlavnim cilem proc se tu o tom bavim je to, aby se vice lidi zabyvalo
desktopovymi aplikacemi pro linux (nebo jeste lepe aplikacemi ktere nejsou
jenom pod win, ale linux je pripade Deplhi vyvojaru aktualni). Vyvojem, radou
... A nikoliv resit, jestli je lepsi Linux nebo Windows ...
Dekuji
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Brutalni chyba D5
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 8.10.2001 16:48:52
> From: Josef Kokes
>
> Bud je to moje hloupost, nebo tak brutalni chyba,
> ze jsem se az zapotil. V nasledujicim programku
> se totiz VUBEC NIKDY nevyvola radek oznaceny -A-,
> po vstupu do cyklu se rovnou skoci na radek -B- !!!
> .....
To, ze se radek nevykona, neni pravda.
Neni treba propadat panice, nejedna se o zadnou chybu.
Problem je pouze v krokovani zdrojoveho textu,
kde jsou na jednom radku dva prikazy.
Staci se podivat na prelozeny program:
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do inc(Prvni); { -A- }
> Posledni := Prvni+1; { -B- }
> ...
se prelozi takto:
Prvni := $8C;
1. mov edx,$xxxx
2. jmp TForm1.Button1Click + $8 // na radek 4.
while Buf[Prvni]=$48 do inc(Prvni);
3. inc edx
4. cmp byte ptr [eax+edx+$xxxx],$48
5. jz TForm1.Button1Click + $7 // na radek 3.
Posledni := Prvni+1;
6. inc edx
...
Stejny zdrojovy text napsany takto:
> Prvni := $8C;
> repeat
> while Buf[Prvni]=$48 do
> inc(Prvni); { -A- }
> Posledni := Prvni+1; { -B- }
> ...
se prelozi takto:
Prvni := $8C;
1. mov edx,$xxxx
2. jmp TForm1.Button1Click + $8 // na radek 4.
inc(Prvni);
3. inc edx
while Buf[Prvni]=$48 do
4. cmp byte ptr [eax+edx+$xxxx],$48
5. jz TForm1.Button1Click + $7 // na radek 3.
Posledni := Prvni+1;
6. inc edx
Preklad je tedy naprosto shodny.
Program se vykonava po radcich
1. 2. 4. 5. (3. 4. 5.) (3. 4. 5.)...
Pri prvnim pruchodu tedy preskoci radek 3.
Pokud se krokuje zdrojovy text v Pascalu,
tak na puvodni slozeny radek A nevstoupi,
protoze ho vyhodnocuje az pri druhem
a dalsim pruchodu while.
Vaclav Krmela
PDF a doplneni do formulare
[*] Tom� Hol� - 8.10.2001 16:49:08
ahoj,
potreboval bych otevrit PDF dokument-formular a vyplnit
naimportoval jsem si ocx od Acrobat Readeru a umim otevrit
PDF soubor, ale nevim, jak se odkazat na ty policka v PDF formulari
kde se da najit help k importovanym OCX ???
diky TH
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.282 / Virov� b�ze: 150 - datum vyd�n�: 25.09.2001
Firebird (Interbase 6.0) a UDF
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 8.10.2001 17:14:35
On Mon, 8 Oct 2001, Pavel Cisar wrote:
> Problem bude v exportu funkce a zjisteni jeji adresy dle jmena.
No toho jsem se dovtipil, ale v cem je presne problem? Pokud pomoci
objdump --all *.dll (nastroj z mingw32) se podivam na funkcni dll a mou
nefunkcni, tak v sekci tabulky exportovanych symbolu (ord tabulka)
sice moje obsahuje jak jmena "xxx(zv)N" tak jmena "xxx", kdezto ta delphova
pouze jmena "xxx", ale kdyz spustim svuj testovaci program, ktery
pouziva LoadLibrary a GetProcAddress (ktere mimochodem pouziva i FB -
pokud jsem se dobre dival do jrd/flc.c) tak vse funguje jak ma s obema.
Ale ve FB funguje pouze ta delphova.
Pripadne kde se da najit nejaka dokumentace jak onu udf dll pro
Win vytvorit?
Na www.firebirdsql.org, jsem nasel pro Windows pouze navody pro delphi
a potom tam byl jeden pro UNIX.
Zdravi
Vladimir Michl
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� #dol�
tel: 068/5353548
Problemy s pristupem do Access-tabulky s obrazky
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 8.10.2001 17:17:04
Vazeni,
pro reseni jedne maturitni prace potrebujeme zvladnout problem
pristupu do Access-tabulky se strukturou:
N�zev ....... text
Obr�zek ... objekt OLE
V tabulce jsou ulozeny jednoduche BMP-obrazky 17x17 pixelu.
Pristup z Delphi 4 Professional je pomoci komponenty Table a
vlastnosti DatabaseName=MSACCESS1 a v BDE je tento alias
nastaven takto:
Type = MSACCESS
DatabaseName=D:\Delphi\DB_aplikace\Access_Delphi\db1.mdb
LangDriver=dBASE CSY cp852
OpenMode=READ/WRITE
Obrazky chceme ve formulari zobrazit pomoci komponenty
DBImage s vlastnostmi DataSource=DataSource1 a
DataField=Obr�zek
Pokus o otevreni tabulky prikazem Table1.Active:=True; konci
chybovou zpravou: Bitmap image is not valid. Pokud odpojim
komponentu DBImage a zobrazuji pouze pole N�zev pomoc�
komponenty DBText, je vse OK.
Ani pokusy o pristup do Access-tabulky prec ODBC se nedari.
Doufame, ze nam nekdo poradi a predem dekujeme.
S pozdravem J.P.
ing. Jan Plisek e-mail: plisek(zv)spse,cz
SPSE a VOS, Karla IV. 13 tel. (040)6614763
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic OT: 1001 t&t pro Delphi - prirucka pro programator
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 8.10.2001 17:37:06
V prodejne BEN ve Strasnicich ji uz maji, koukal jsem do ni a opravdu je
tam fura tipu, nektere jen na 3 radky (obalene volani API funkce), nektere
na stranku. Nevim jestli k ni je CD s fulltextovym hledanim, ale urcite by
se hodilo...
Martin Schayna
----- Original Message -----
From: <skalsky(zv)oksystem(tec)cz>...
bohuzel do kamennych kramku asi prijde az tento tyden, zatim ji nema ani
www.ben(tec)cz [a ten pry ma vsechno prvni :))) ]
Dalsi chyby v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2001 17:39:42
From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
> 1. vyjimky:
> mam projekt, v uses je SysUtils, a hned za beginem vyvolam vyjimku.
> Prelozeny program po spusteni okamzite bez dialogu spadne. To same pokud
> vyvolam vyjimku v initialization jednotky.
> Nemely by se nahodou neosetrene vyjimky zachytit v SysUtils.ExceptHandler ?
Ahoj,
V D5 byla pridana moznost interakce aplikace s vychozim debuggerem. Podivej se
na globalni promenne JITEnable a DebugHook. V zasade by mohlo pomoct toto:
DebugHook := 1;
> 2. stringy:
>zkuste si kod umisteny na ftp://ftp.iol(tec)cz/incoming/Delphi_bug.zip
>a budete koukat co Delphi vyvadeji. Zkouseno na 3 PC s D5.01 W2K.
Tak tohle je pekna lahudka. V Delphi 6.01 to pri prekladu hlasi:
[Error] Too many local constants. Use shorter procedures
Zatim se snazim zjistit co to znamena (vypada to na nejake interni omezeni v
prekladaci) a kde je presne ta hranice.
Petr Vones
Event onClick.
[*] Centrum <E_DDT(zv)centrum(tec)cz> - 8.10.2001 18:10:22
Dobry den.
Potreboval bych poradit s nasledujicim.
Mam jednoduchou aplikaci s jednim Panelem a Buttonem. Kdyz na neho kliknu,
pridam do panelu dalsi Button. Je to nasledovne:
...
private
MyButton: TButton;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
MyButton:=TButton.Create(Panel1);
MyButton.Width:=100;
MyButton.Height:=20;
MyButton.Left:=8;
MyButton.Top:=8+(Index*20);
MyButton.Name:='Button'+IntToStr(Index);
MyButton.Parent := Panel1;
Index:=Index+1;
end;
...
Ja ale potrebuji nejen pridavat ty buttony, ale i ovladat jejich udalost
onClick. A to uz dost dobre nevim jak. Staci mi jedna procedure, ve ktere
bych poreboval vyhodnotit na ktery button bylo kliknuto a pak uz to
obslouzit. Kdesi sem tady v archivu vystaral, ze by se dalo pouzit
"x:=(Sender as TButton).Name;" pro urceni na ktery button bylo kliknuto, ale
nevim kam a jak to do programu umistit. Muzete mi poradit?
Diky DDT.
PS: Prosim trosku podrobneji popsat, sem zacatecnik.