Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
nevisualni komponenta pro DB se SQL
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 23.5.2002 14:56:07
Tak to urcite nie, priamo pracovat s databazou na urovni file, znamena obist
cele databazovy bezpecnostny system: referencna integrita a prava. Ak by to
dovolili bola by to sebavrazda. Ak to MySQL dovoli tak je poriadny blazon. || -----Original Message-----
|| From: Novalis [mailto:delphi(zv)novalis.dyndns.org]
|| Sent: Thursday, May 23, 2002 10:05 AM
||
|| chtel jsem se zeptat, jestli nekdo neznate nejakou
|| nevisualni komponentu pro
|| Delphi (pokud bude i pro Kylix, tim lip), ktera
|| zapouzdruje praci s
|| databazi, umi SQL dotazy apod, ale pracuje primo se
|| souborem a nepripojuje
|| se na zadny DB server.
FB - mazani tabulek
[*] Rado Benc <bego(zv)pobox.sk> - 23.5.2002 14:58:58
Marek Eichler wrote:
> Muj dotaz zni co musim udelat, abych mohl smazat tabulky.
Zmazat vsetky zavisle objekty.
Po kazdom DDL prikaze ukonci transakciu commitom:
SQL> COMMIT WORK;
Uisti sa ze vsetko je tak, ako ma byt. Priklad - mam view
V1 zavisle na tabulke T1:
SQL> SELECT RDB$DEPENDENT_NAME, RDB$DEPENDED_ON_NAME
CON> FROM RDB$DEPENDENCIES
CON> WHERE RDB$DEPENDED_ON_NAME = 'T1';
RDB$DEPENDENT_NAME RDB$DEPENDED_ON_NAME
=============================== ===========================
V1 T1
V1 T1
V1 T1
SQL> DROP VIEW V1;
SQL> COMMIT WORK;
SQL> SELECT RDB$DEPENDENT_NAME, RDB$DEPENDED_ON_NAME
CON> FROM RDB$DEPENDENCIES
CON> WHERE RDB$DEPENDED_ON_NAME = 'T1';
SQL>
HTH,
Rado
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
nevisualni komponenta pro DB se SQL
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.5.2002 15:00:14
----- Original Message -----
From: "Novalis" <delphi(zv)novalis.dyndns.org>
> chtel jsem se zeptat, jestli nekdo neznate nejakou nevisualni komponentu pro
> Delphi (pokud bude i pro Kylix, tim lip), ktera zapouzdruje praci s
> databazi, umi SQL dotazy apod, ale pracuje primo se souborem a nepripojuje
> se na zadny DB server. Napr. neco jako komponenta pro MySQL, ktera ale
> pracuje primo se soubory MySQL databaze ulozenymi lokalne a nemusi se
> pripojovat k MySQL serveru.
> Snad sem to vysvetlil tak, ze pochopite o co jde :)
Pred casem tady nekdo doporucoval takovy maly SQL server co se
jmenuje SQLite -- http://www.hwaci.com/sw/sqlite/
je to regulerni SQL server s transakcemi a subsetem SQL/DDL prikazu,
neumi triggery a ulozene procedury a pouze stringovy typ dat s
takovou fikanou simulaci numerickych typu; je vhodna zejmena
pro lokalni nasazeni. Zkousel jsem ji na cca 250tis. zaznamech
a fungovala naramne.
Na www.torry.net najdes komponenty pro Delphi...
Pro MySQL a podobne "vetsi" servery neco takoveho rozhodne neni
mozne i kdyz jsme si v praxi vyzkouseli malou kompilaci Firebirdu na
Linuxu, kdy se do klientske knihovny gdslib.so prilinkoval cely server
-- dokonce to fungovalo, ale doporucit to nemuzu, pri killnuti aplikace
ktera ji pouzivala se naboril gdb :-(
Martin Schayna
nevisualni komponenta pro DB se SQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2002 15:17:08
Pockej,
ted mozna kazdy mluvime o necem jinem. I BDE treba nad Paradoxem umi
tak trochu SQL, ale neni to SQL databaze, nybrz souborove uloziste
dat.
Ja jsem chtel rict, ze pristupovat na SQL server typu MS SQL, IB/FB,
Oracle, MySQL, ... nikoliv prirozenou cestou pres klienta, ale primo
k souboru, ve kterem jsou ulozena data, je cesta do pekel. Vynechame-
li skutecnost, ze v kazde verzi byva soubor jineho formatu, pak
zapisem do tohoto binarnimu souboru primou cestou jiz v nem ulozena
data nemusis nikdy videt v podobe, ktera ti nezpusobi koprivku.
Pokud existuje neco takoveho, byt to roste na sf, obesel bych to
velkym obloukem se zakrytyma ocima.
Slavek
> > timhle bys naprosto zabil myslenku SQL databazi a vratil se k
> > souborovym. Obavam se, ze nic takoveho pro SQL DB neexistuje.
>
> to je pravda,
>
> ale na SF jsem zahledl neco v tom stylu. je to doufam SQLLib
> nebo SQLLite (nebo tak nejak nebo LiteSQL, SQLite...). je to snad
> nejaka knihovna, ktera umi SQL, ale lokalne, zadnej server.
>
> SF = http://www.sf.net (SourceForge)
>
> pokud by to na SF nebylo, zkus google
>
> dekuji PeC(zv)
>
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TypeInfo
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 23.5.2002 15:17:01
Ahoj vsem,
mohl by jste mi nekdo vysvetlit rozdil mezi temito dvema kody psanymi v
Delphi 5:
var
ATypeInfo:PTypeInfo;
ATypeData:PTypeData;
.
.
.
ATypeInfo:=System.TypeInfo(TMyForm);
{vrati se ATypeInfo^.Kind=tkClass a ATypeInfo^.Name='TMyForm',
zdrojak ani deklaraci funkce TypeInfo jsem v knihovne system nenasel}
ATypeData:=GetTypeData(ATypeInfo);
{toto funguje, ATypeData^.ClassType je naplneno spravne}
a naproti tomu
New(ATypeInfo);
ATypeInfo^.Kind:=tkClass;
ATypeInfo^.Name:='TMyForm';
ATypeData:=GetTypeData(ATypeInfo);
{toto nefungujefunguje, ATypeData^.ClassType je naplneno nesmyslem}
Na prvni pohled to vypada podobne, ale funguje to jinak.
Diky za kazdou radu.
______________________________________________
Ing. Zden�k Za�al
Praktik SW s.r.o.
V. Outraty 7
796 01 Prost�jov
mailto:zacal(zv)praktik(tec)cz
www.praktik(tec)cz
tel.: 0508/365583
fax : 0508/365512
OT:VAKUS
[*] ales.pavel(zv)popron(tec)cz - 23.5.2002 15:18:44
nemel by jste nekdo strukturu souboru VAKUS??
Dekuji moc
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
HW-25 let,SW-D6 Ent W2000
Generovanie cisel cez SQL
[*] bardon <bardon(zv)akord-soft(tec)cz> - 23.5.2002 15:22:29
Ja takove veci resivam pres docasnou tabulku s fieldem typu identity.
Otazkou je v jakom tvaru potrebujes vystup. Pokud jako dataset, tak muze byt
docasna tabulka idealni.
-----Original Message-----
Subject: Generovanie cisel cez SQL
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2002 15:32:34
Ahoj,
> > existuje nejaky spolehlivy zpusob, jak se vystrihat problemu
> > spojenych s tim kesovanim a upravou GDB, krom COMMIT, DISCONETC a
> > novy CONNECT po kazdem DDL?
> Este by som shutdownol databazu :
*****No, nevim, nevim, ale co tu sleduji tu debatu, nevypada to, ze
by se IB hodila na nejaky narocnejsi reseni. Pokud budou uzivatele
pracovat s DB, kterou bude cas o casu nutne restartovat kvuli
naproste pitomosti, pak nebudou prilis hepy. Neberte to jako rejpani,
ale namet k zamysleni.
Slavek
> Rado
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Rado Benc <bego(zv)pobox.sk> - 23.5.2002 15:32:29
Milan Tome� wrote:
> Tak me napada - lze uzivateli SYSDBA odejmout opravneni pro
> manipulaci s nejakou DB ???
Je to stary "dirty trick":
1. Princip spociva v tom, ze vytvoris rolu SYSDBA. Kedze SYSDBU
zakazeme, treba vytvorit uzivatela, ktory bude moct SYSDBU znovu
povolit. Nech sa vola LUSER a heslo ma luser.
Vytvorim databazu:
isql
Use CONNECT or CREATE DATABASE to specify a database
SQL> CREATE DATABASE 'f:\data\role.gdb' USER 'sysdba' PASSWORD
'masterkey';
2. Dolezity krok - treba pobolit LUSERovi pracovat s rolami.
SQL> GRANT ALL ON RDB$ROLES TO LUSER;
3. Teraz vytvorime rolu:
SQL> CREATE ROLE SYSDBA;
Statement failed, SQLCODE = -607
unsuccessful metadata update
-user name SYSDBA could not be used for SQL role
Aha, tak to skusime inak:
SQL> INSERT INTO RDB$ROLES VALUES ('SYSDBA', 'LUSER');
SQL> SELECT * FROM RDB$ROLES;
RDB$ROLE_NAME RDB$OWNER_NAME
=============================== ===========================
SYSDBA LUSER
SQL> EXIT;
4. No a teraz:
isql f:\data\role.gdb -user sysdba -password masterkey
Statement failed, SQLCODE = -902
Your login SYSDBA is same as one of the SQL role name. Ask your
database administrator to set up a valid Firebird login.
Use CONNECT or CREATE DATABASE to specify a database
A sysdba si moze piskat. :-)
SQL> EXIT;
Zato LUSER sa prihlasi v pohode:
isql f:\data\role.gdb -user luser -password luser
Database: f:\data\role.gdb, User: luser
SQL> SELECT * FROM RDB$ROLES;
RDB$ROLE_NAME RDB$OWNER_NAME
=============================== ===========================
SYSDBA LUSER
5. Samozrejme je dolezite vediet dat veci do povodneho stavu (a na to
sme potrebovali ten krok 2):
SQL> DELETE FROM RDB$ROLES WHERE RDB$ROLE_NAME = 'SYSDBA';
SQL> SELECT * FROM RDB$ROLES;
SQL> EXIT;
6. Aznovu je vsetko tak, ako ma byt:
isql f:\data\role.gdb -user sysdba -password masterkey
Database: f:\data\role.gdb, User: sysdba
SQL>
Nuz a pre istotu:
SQL> REVOKE ALL ON RDB$ROLES FROM LUSER;
SQL>
HTH,
Rado
____________________________________
http://www.pobox.sk/ - najvacsi slovensky freemail
Databazove aplikace - pouzit komponenty nebo DBkom
[*] miro mrazik <preas_w(zv)stonline.sk> - 23.5.2002 15:43:46
Ahoj,
neviem ci je to celkom tak. Pouzitie db komponent s SQL databazou pri
pouziti BDE je tak pomale ze sa na to neda divat. Avsak nechapem preco by
mali by DBKomponenty pomale v pripade ak spolupracuju s niecim co pristupuje
k databazi rychlejsie ako BDE.
Ja som sa rozhodol, ze prevediem aplikacie paradox na FB. Pouzil som k tomu
IBODataset z IBOBjects. Nielenze prevod bol otazkou niekolkych minut, ale
velmi milo som bol prekvapeny rychlostou aplikacii, ktora sa mi zda byt este
rychlejsia ako paradox na lokale.
DBGrid nepouzivam na editaciu len na prezentaciu, a ostatne dbcomponenty su
spolahlive.
Podstatne je podla mna nepristupovat na SQL databazu cez BDE ani pomocou
linku, ani ODBC (cez BDE), a jednoducho BDE sa v tomto pripade zdaleka
vyhnut.
Miro
>
> Pokud jde o Oracle, nedoporucuji v zadnem pripade pouzivat db-komponenty.
Je to strasne pomale a neda se na aplikacni urovni nejak rozumne osetrit ta
funkcionalita, kterou nezajistuje sama database. Vim, o cem mluvim.
zmena metadat vo FB (was: Object xxx is in use)
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.5.2002 16:21:36
PP>> pokud manipulujes s metadaty, je dobry po kazdem DDL
PP>> poslat commit, tim se zmena zplatni a je mozne na ni
PP>> navazat. je mozne, ze si dotrazujes nejaka data a IB
PP>> pouzije index, ktery chces potom zmenit, ale to nelze,
PP>> protoze je aktivni trnsakce, ktera ten index pouziva.
<<< 23. 5. 2002 16:19 - Alex Cherednichenko "cherednichenko(zv)wo(tec)cz" >>>
AC> Obcas i to nepomuze.
AC> Je to tim, ze IB kesuje metadata.
AC> A zmeny se projevi jen po DISCONNECT a CONNECT.
Mam tomu rozumiet, ze ani po shutdown databazy nie je mozne ako SYSDBA
pracovat bez tej hlasky "Object XXX is in use". T.j. ak by som po
kazdom DDL dal commit, nepomoze to ?
--
Best regards, TRoland
DelphiX
[*] dphi_forum(zv)proces.sk - 23.5.2002 16:32:41
Ahoj
Skus radsej Surface.Canvas.Release.
Michal
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 23.5.2002 16:35:10
Ahoj, Petre !
you wrote:
[Skipped]
AC>> A zmeny se projevi jen po DISCONNECT a CONNECT.
PP> to je zajimavy, projevi se to i kdyz jsem jediny aktivni USER?
Kesovana data zustavaji platna pokud je aspon jeden connect k GDB.
"Object xxx is in use" vznika vetsinou kdyz je nekolik connectu.
To znamena, ze aby zmeny se projevily, vsechny uzyvatele musi
odpojit se. Ale, opakuji, takova to situace nemusi vzniknout pokazde.
Best regards, Alex Cherednichenko.
Jak nactu cestu, ktera je v NET dir Paradoxu?
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 23.5.2002 16:44:03
Ahoj,
chtel bych zjistit, jak je nastavena hodnota pomoci BDE Administratoru:
Configuration-Drivers-Native-Paradox-Net dir
Jak na to ...
diky Jiri
Sokol
______________________________________________________________________
Reklama:
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
TTable
[*] Petr Varga <djvar(zv)post(tec)cz> - 23.5.2002 16:55:54
>
> Ahoj,
>
> prosim Vas o radu. Mam D5 a Win 2000.
> Mam tabulku, napr. ABC (TTable) ale kam a jak
> napsat vyber nad ni,
> napr., ze jeji sloupe XY = 'A'.
>
> Diky
>
>
> Vasek
Nevim jestli jsem to dobre pochopil, ale podle toho co tu je se daji pouzit komponenty z listy datacontrols a to treba dbtext a staci propojit s datasource a nastavit datafield. Jinymi slovy ktery sloupec z vybrane polozky ma zobrazit...
Petr
----
Bez Financ� se p�i koupi
nemovitosti neobejdete
http://reality.finance(tec)cz
Zobrazovani JPG obrazku
[*] Martin Bob�k <bobek(zv)nextra.sk> - 23.5.2002 16:55:50
Cau,
mozes spokojne pouzit komponentu TImage a TImageList. Do TImageList si
mozes za sebou zoradit obrazky a potom ich priradit komponetne TImage
prostrednictvom indexu. Aby sa ti obrazky zobrazovali spravne a nerobilo
ti to problemy,
napis si proceduru , ktora ti zakazdym ked chces zobrazit obrazok
prekresli TImage bielym stvorcom o velkosti sucasneho obrazku, teda
premaze. Napriklad takto :
Procedure ClearImage(Var Image:Timage);
Begin
Image.Canvas.Brush.Color:=clBtnFace;
Image.Canvas.Pen.Color:=clBtnFace;
Image.Canvas.Rectangle(0,0,Form1.Image1.Width,Form1.Image1.Height);
End;
Z TImageList si nacitas obrazok takto :
NewPicture:=TBitmap.Create;
Form1.ImageList1.GetBitmap (0,NewPicture);
Zmazes stary obrazok , asi takto :
ClearImage(Form1.Image1); // procedura definovana vyssie
Potom si nastavis rozmery TImage na novy obrazok , napriklad takto :
Form1.Image1.Picture.Graphic.Width:=NewPicture.Width;
Form1.Image1.Picture.Graphic.Height:=NewPicture.Height;
A potom vykreslis obrazok asi takto :
Form1.Image1.Canvas.Draw(0,0,NewPicture);
A malo by to chodit. Este si mozes zapnut ze, Form1.DoubleBuffered ale
tym sa vsetko znacne spomali.
Cheers,
Bobek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Zdenek.Gala(zv)datis.cdrail(tec)cz
Sent: Friday, May 17, 2002 8:18 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zobrazovani JPG obrazku
Zdravim vsechny.
Zacinam delat v Delphi 5 pod Win98SE, tak moje dotazy mozna nebudou
prilis moudre. Chtel bych udelat programek, ktery by zabrazoval postupne
serii obrazku. Problem je v tom, ze maji ruznou velikost a jsou svisle i
vodorovne. Jakou komponentu bych mohl pouzit? Daji se obrazky
prilinkovat k vyslednemu exe, abych je nemusel distribuovat zvlast? Diky
DZDZD.
databaze
[*] Petr Varga <djvar(zv)post(tec)cz> - 23.5.2002 17:03:39
Mam databazi v paradox 7. Jedna se o soupis uzivatelu.. Cisla jsou nastavena jako samorostouci (nevim jak se to presne pise nejak autoincreasable) . Kdyz dojde k vymazani uzivatele chci aby se pri pridani noveho mohlo pouzit cislo smazaneho. Nebo jinak kdyz pridavam uzivatele chci umoznit vyber cislo pokud neni jiz obsazene.. A jeste s databazemi zacinam, ale nejsem schopen najit v helpu reakce na chybova hlaseni u Bde .. mohli by jste mi prosim poradit? Diky Petr
----
Bez Financ� se p�i koupi
nemovitosti neobejdete
http://reality.finance(tec)cz
databaze
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.5.2002 17:19:38
Petr Varga dne 23 May 2002 v 17:03:
> Mam databazi v paradox 7. Jedna se o soupis uzivatelu.. Cisla jsou
> nastavena jako samorostouci (nevim jak se to presne pise nejak
> autoincreasable) . Kdyz dojde k vymazani uzivatele chci aby se pri
> pridani noveho mohlo pouzit cislo smazaneho. Nebo jinak kdyz pridavam
> uzivatele chci umoznit vyber cislo pokud neni jiz obsazene.. A jeste s
> databazemi zacinam, ale nejsem schopen najit v helpu reakce na chybova
> hlaseni u Bde .. mohli by jste mi prosim poradit?
Ahoj,
tohle je jedna z vlastnosti datoveho typu AutoIncrement - jakmile ta hodnota byla jednou pouzita,
nepodari se Ti (alespon pokud vim) ji pouzit jiz nikdy znovu. Od poli typu AutoIncrement jsem brzy
upustil, protoze delaly dost velke problemy pri vymene dat mezi pobockami. Na Tvem miste bych
zmenil strukturu tabulky tak, aby to bylo cislo Integer, a pridelovani novych cisel bych si
obhospodaroval sam.
Karel Rys
Zobrazovani JPG obrazku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 17:27:36
From: "Martin Bob�k" <bobek(zv)nextra.sk>
> mozes spokojne pouzit komponentu TImage a TImageList. Do TImageList si
> mozes za sebou zoradit obrazky a potom ich priradit komponetne TImage
> prostrednictvom indexu. Aby sa ti obrazky zobrazovali spravne a nerobilo
Zalezi na velikosti obrazku. TImageList neni prilis vhodny pro velke obrazky,
hodi se spise na obrazky k toolbarum apod.
Petr Vones
Tuhnuti ImageListu na P4
[*] Pavel Kral <kral(zv)zoner(tec)com> - 23.5.2002 17:32:25
Diky za informace.
Mimochodem, v D5 to dela to same, ale nejsem si jisty, jestli je problem
v ImageListu. Projevuje se to pri vytvareni DBGridu, do ImageListu
jsem to vysledoval ve zdrojacich D3. Ale pokud vytvorim ImageList extra
a pridavam do nej bitmapy, tak to jede, v DBGridu to nejede.
Prosty prikaz vytuhne (v D5):
Grid := TDBGrid.Create(self);
Myslis, ze pomuze update D5?
Pavel
> -----Original Message-----
> > > - Bylo by vhodne prejit na nejakou novejsi verzi Delphi.
> >
> > To vim, ale ta aplikace je dost rozsahla a nejak se nemuzu odhodlat.
>
> Cim driv to udelas tim lip.
>
> Petr Vones
>
>
Prace se Stringy
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 23.5.2002 17:37:38
Dobry den,
Thursday, May 23, 2002, 2:04:16 PM, you wrote:
ZT> Mam takovy jednodychy problem, ale nejak na to nemohu prijit.
ZT> Mam napr. vetu: "Jel jsem na kole do kina"
ZT> Potrebuji zjistit jestli tato veta obsahuje slovo "kole". Mozna neco delam spatne ale StrComp mi to nechce rict.
ZT> Poradite nekdo?
ZT> ---
ZT> Odchoz� zpr�va neobsahuje viry.
ZT> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
ZT> Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002
Pouzij fci Pos(). Vrati pozici retezce, pokud ho nenajde vrati 0.
--
S pozdravem,
Pavel mailto:kubal.p(zv)seznam(tec)cz
Tuhnuti ImageListu na P4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 17:57:50
From: "Pavel Kral" <kral(zv)zoner.com>
> Prosty prikaz vytuhne (v D5):
>
> Grid := TDBGrid.Create(self);
To je divny, a kde presne a co se stane. Deje se tak na vice ruznych
pocitacich ?
> Myslis, ze pomuze update D5?
Update #1 je nezbytnou nutnosti, stejne tak jako i jine updaty.
Petr Vones
Re[2]: CRC
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 23.5.2002 17:57:20
Neda mi to a musim take reagovat. Jestli se nepletu, tak puvodne
tazatel chtel porovnavat nejak jinak 2 retezce tim, ze je prekoduje a
ze to bude rychlejsi. Ale jestli se nepletu, tak to prokodovani
spociva vzdycky v tom, ze nacte ten puvodni retezec a prekoduje ho a
totez udela s tim druhym. A kdyz by je porovnaval rovnou, tak je jenom
oba nacita a porovnava bajt po bajtu. Takze v pripade, ze jsou ruzne
skonci ta funkce dokonce driv, nez nacte celej retezec...
Proste chci tim rict, ze primym porovnavanim to musi preci bejt
vzdycky rychlejsi, kdyz nacitat se musej stejne oba ty retezce a pri
porovnavani rovnou odpada to kodovani ...
... a nebo jsem neco nepochopil
--
Martin Pesava mailto:jimx(zv)volny(tec)cz
CRC
[*] Pavel Kral <kral(zv)zoner(tec)com> - 23.5.2002 18:05:07
Zdravim,
vzhledem k tomu, ze se v programu vyskytne zcela urcite jeste
dost dalsich chyb, ktere clovek nepredpoklada, by asi bylo dobre
osetrit i tuto byt nepravdepodobnou situaci, kdyz uz je jednou
predpokladana :-).
Osobne si myslim, ze by mohlo stacit porovnat hash, delku, CRC
a rekneme prvnich X bytu. Pokud je stejny hash, pak "by nemela"
nastat situace, kdy se rovna delka a zaroven je stejny zacatek.
(tim myslim, ze pravdepodobnost se priblizila k nule o nekolik radu)
Pavel
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Karel Rys
> Sent: Thursday, May 23, 2002 1:00 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CRC
>
>
> Petr Zahradnik dne 23 May 2002 v 12:30:
>
> > Puvodni zprava, kterou napsal Vaclav Votipka dne 23 May 2002:
> >
> > > Neni treba testovat 2^160 ruznych vstupu - staci napoprve
> vybrat ty
> > > dva spravne :-) Jak uz tady kdosi podotknul, tak Murphyho zakony
> > > funguji.
> >
> > Ja tomu moc neverim :)))
>
> Ja bych rekl, ze jste ten vypocet pravdepodobnosti, ze se
> potkaji dva stejne hashe, dost osidili.
>
> Vezmete si tento priklad: mate 30 lidi, predpokladejme, ze
> jsou vsichni narozeni mezi 1.1.1980 a
> 31.12.1980, tj. v rozpeti je 365 dni.
>
> Pravdepodobnost, ze vybrani dva jedinci maji stejny den
> narozeni, je 1/365 = 0,27397 % - to je
> metoda, jakou jste pouzivali u toho hashovani.
>
> Ted si spocitejme, jaka je pravdepodobnost, ze nekteri z tech
> 30 maji stejny datum narozeni.
>
> Prvni clovek je jedinecny.
>
> U druheho cloveka mame pravdepodobnost 364/365 =
> 0,997260273972, ze se narodil jindy nez 1. clovek.
>
> U tretiho cloveka mame pravdepodobnost 363/365 =
> 0,994520547945, ze se narodil v jine dny nez dva
> predchozi lide.
>
> Pujdeme-li takhle dal, dostaneme pro tech 30 lidi, ze
> pravdepodobnost, ze se narodili _kazdy_ v
> jiny den, je
> 365/365 * 364/365 * 363/365 * ... * 336/365.
>
> Coz neumim spocitat nijak elegantne, ale kdyz to sjedu v
> Excelu, vychazi 0,293683757 - tj.
> prestoze mame jen 30 lidi na 365 dni, je pravdepodobnost pres
> 70 %, ze se dva z nich narodili ve
> stejny den (!). U te hashovaci funkce to bohuzel neumim
> spocitat, ale pokud se tu najde nejaky
> matematik, snad to dokonci... Pokud bychom tech porovnavanych
> textu meli hodne (rekneme 10
> milionu), mozna by ta pravdepodobnost nebyla tak nizka, jak
> tvrdite...
>
> Bohuzel k vypoctu potrebujeme spocitat toto:
> (2^160)*(2^160-1)*(2^160-2)*(2^160-3)* ... *(2^160-9999999)
>
> A to cele pak vydelit cislem 2^(160*10000000)
>
> Vysledkem by mela byt pravdepodobnost, s jakou se pro
> 10000000 textu vyskytne stejny vysledek
> hashovaci funkce.
>
> Karel Rys
>
>
>
>
Re[2]: CRC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.5.2002 18:08:08
> Neda mi to a musim take reagovat. Jestli se nepletu, tak puvodne
> tazatel chtel porovnavat nejak jinak 2 retezce tim, ze je prekoduje
a
> ze to bude rychlejsi. Ale jestli se nepletu, tak to prokodovani
> spociva vzdycky v tom, ze nacte ten puvodni retezec a prekoduje ho a
> totez udela s tim druhym. A kdyz by je porovnaval rovnou, tak je
jenom
> oba nacita a porovnava bajt po bajtu. Takze v pripade, ze jsou ruzne
> skonci ta funkce dokonce driv, nez nacte celej retezec...
> Proste chci tim rict, ze primym porovnavanim to musi preci bejt
> vzdycky rychlejsi, kdyz nacitat se musej stejne oba ty retezce a pri
> porovnavani rovnou odpada to kodovani ...
>
hashe se musi pocitat dopredu a ukladat. Jinak to opravdu nema smysl.
D. Toman
Prace se Stringy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 18:17:46
From: "Zach Tom�" <zach(zv)g-data(tec)cz>
> Mam napr. vetu: "Jel jsem na kole do kina"
> Potrebuji zjistit jestli tato veta obsahuje slovo "kole". Mozna neco delam
> spatne ale StrComp mi to nechce rict.
Pouzij funkci Pos.
Petr Vones
Create CheckBoxu v panelu
[*] harri.s(zv)tiscali(tec)cz - 23.5.2002 18:27:03
cb2 := TCheckBox.Create (self);
cb2.Left := Pozice v panelu;
cb2.top := pozice od shora;
cb2.Parent := Panel1;
a mas ho tam.
zrusih ho normalnim uvolnenim Free.
Harris.
>Zdravim vsechny,
>
>Mam Form1 a rucne na nej dam CheckBox1 vedle Panel1 a do tohoto panelu
dam
>dalsi CheckBox2.
>Takze CheckBox2, pokud s nim mysi pohnu, se muze pohybovat pouze v tom
>Panelu1 a ne mimo nej.
>
>Tak a ted moje otazka:
>Jak toto vytvorit programove ? (Myslim ten CheckBox2 aby 'nalezel' jenom
>Panelu1). Panel1 a CheckBox1 si vytvorim rucne a CheckBox2 potrebuji
>programuve (predem nevim kolik jich bude a pozdeji je chci mazat pouze
z
>Panelu1)
>
>Snad se to da pochopit co chci.
>
>Dekuji Jan Sebesta
>
_______________________________________________________
VELK� LETN� SOUT̮ na http://leto.tiscali(tec)cz.
Vyhrajte leteck� z�jezd do Bulharska!nevisualni komponenta pro DB se SQL
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.5.2002 18:30:11
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> Ja jsem chtel rict, ze pristupovat na SQL server typu MS SQL, IB/FB,
> Oracle, MySQL, ... nikoliv prirozenou cestou pres klienta, ale primo
> k souboru, ve kterem jsou ulozena data, je cesta do pekel. Vynechame-
> li skutecnost, ze v kazde verzi byva soubor jineho formatu, pak
> zapisem do tohoto binarnimu souboru primou cestou jiz v nem ulozena
> data nemusis nikdy videt v podobe, ktera ti nezpusobi koprivku.
>
> Pokud existuje neco takoveho, byt to roste na sf, obesel bych to
> velkym obloukem se zakrytyma ocima.
Pockej, to o cem byla rec (SQLite) se neprizivuje na nejakem existujicim
serveru, ma to samozrejme svuj vlastni datovy soubor a rozhodne
musim rict ze i promyslenou nekolikavrstvou vnitrni strukturu postavenou
castecne na standardech, je to (v urcitem ohledu) plnohodnotny maly
databazovy server i kdyz pro lokalni pouziti.
http://www.hwaci.com/sw/sqlite/
Martin Schayna
Ud�losti, zpr�vy syst�mu, RS232
[*] harri.s(zv)tiscali(tec)cz - 23.5.2002 18:32:48
Podivej se na API GetCommState, SetCommState, a jejim podobne. Myslim ze
se to zaridit vse pres ne. Ted to nevim urcite, ale myslim tam je mozno
predat nejakou CallBack funkci, takze by to melo jit ciste s API.
Harris.
>V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale
>pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�. Konkr�tn�
>kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo ud�lost,
>ve kter� bych si port p�e�etl. Kter� t��dy zapouzd�uj� zpr�vy Windows a
jak
>na n� reagovat? D�ky
_______________________________________________________
VELK� LETN� SOUT̮ na http://leto.tiscali(tec)cz.
Vyhrajte leteck� z�jezd do Bulharska!Databaze a distribuce
[*] Petr Varga <djvar(zv)post(tec)cz> - 23.5.2002 18:35:54
Chtel jsem se zeptat jen tak na okraj kdyz udelam databazi a chci ji prenest na misto kde bude pouzivana staci prenest ty soubory databaze ? Nebo jak to prenest.. V pripade ze by slo v aplikaci nastavit kam se ma na databazi pripojit, nebo kde ji ma hledat.. Diky Petr
----
MICHAL DAVID - zive na
http:\\chat.volny(tec)cz
ve ctvrtek 30.5. od 14:00hod
Databaze a distribuce
[*] harri.s(zv)tiscali(tec)cz - 23.5.2002 18:42:35
Ano, staci prenest soubory databaze. Pozor nektere databaze muzou obsahovat
i vice souboru (napr. paradox, dBase...). Potom si v aplikaci vytvoris ukazatel
(databazi) ktera bude ukazovat na adresar kde jsou soubory.
Harris.
>
>Chtel jsem se zeptat jen tak na okraj kdyz udelam databazi a chci ji prenest
>na misto kde bude pouzivana staci prenest ty soubory databaze ? Nebo jak
>to prenest.. V pripade ze by slo v aplikaci nastavit kam se ma na databazi
>pripojit, nebo kde ji ma hledat.. Diky Petr
>----
>MICHAL DAVID - zive na
>http:\\chat.volny(tec)cz
>ve ctvrtek 30.5. od 14:00hod
_______________________________________________________
VELK� LETN� SOUT̮ na http://leto.tiscali(tec)cz.
Vyhrajte leteck� z�jezd do Bulharska!Databaze a distribuce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 18:46:35
Puvodni zprava, kterou napsal Petr Varga dne 23 May 2002:
> Chtel jsem se zeptat jen tak na okraj kdyz udelam databazi a chci ji
> prenest na misto kde bude pouzivana staci prenest ty soubory databaze ?
> Nebo jak to prenest.. V pripade ze by slo v aplikaci nastavit kam se ma na
> databazi pripojit, nebo kde ji ma hle dat..
A jaka to bude databaze? Databaze textovych souboru nebo databaze .GIF
souboru nebo databaze XML nebo databaze MS SQL Server nebo co?
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
============================================================
(Mirne OT) RE: CRC
[*] Pavel Kral <kral(zv)zoner(tec)com> - 23.5.2002 18:56:01
Mimochodem jsem v Delphi zkusil provest ten vypocet,
bohuzel jen pro 2^63 misto 2^160 kvuli omezeni velikosti
Int64. Tady jsou vysledky:
Pocet stringu Pravdepodobnost ruznosti
10 000 000: 0,999994579003291
100 000 000: 0,999458045818579
1 000 000 000: 0,947233063703139
Pavel
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Karel Rys
> Sent: Thursday, May 23, 2002 1:00 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CRC
>
>
> Petr Zahradnik dne 23 May 2002 v 12:30:
>
> > Puvodni zprava, kterou napsal Vaclav Votipka dne 23 May 2002:
> >
> > > Neni treba testovat 2^160 ruznych vstupu - staci napoprve
> vybrat ty
> > > dva spravne :-) Jak uz tady kdosi podotknul, tak Murphyho zakony
> > > funguji.
> >
> > Ja tomu moc neverim :)))
>
> Ja bych rekl, ze jste ten vypocet pravdepodobnosti, ze se
> potkaji dva stejne hashe, dost osidili.
>
> Vezmete si tento priklad: mate 30 lidi, predpokladejme, ze
> jsou vsichni narozeni mezi 1.1.1980 a
> 31.12.1980, tj. v rozpeti je 365 dni.
>
> Pravdepodobnost, ze vybrani dva jedinci maji stejny den
> narozeni, je 1/365 = 0,27397 % - to je
> metoda, jakou jste pouzivali u toho hashovani.
>
> Ted si spocitejme, jaka je pravdepodobnost, ze nekteri z tech
> 30 maji stejny datum narozeni.
>
> Prvni clovek je jedinecny.
>
> U druheho cloveka mame pravdepodobnost 364/365 =
> 0,997260273972, ze se narodil jindy nez 1. clovek.
>
> U tretiho cloveka mame pravdepodobnost 363/365 =
> 0,994520547945, ze se narodil v jine dny nez dva
> predchozi lide.
>
> Pujdeme-li takhle dal, dostaneme pro tech 30 lidi, ze
> pravdepodobnost, ze se narodili _kazdy_ v
> jiny den, je
> 365/365 * 364/365 * 363/365 * ... * 336/365.
>
> Coz neumim spocitat nijak elegantne, ale kdyz to sjedu v
> Excelu, vychazi 0,293683757 - tj.
> prestoze mame jen 30 lidi na 365 dni, je pravdepodobnost pres
> 70 %, ze se dva z nich narodili ve
> stejny den (!). U te hashovaci funkce to bohuzel neumim
> spocitat, ale pokud se tu najde nejaky
> matematik, snad to dokonci... Pokud bychom tech porovnavanych
> textu meli hodne (rekneme 10
> milionu), mozna by ta pravdepodobnost nebyla tak nizka, jak
> tvrdite...
>
> Bohuzel k vypoctu potrebujeme spocitat toto:
> (2^160)*(2^160-1)*(2^160-2)*(2^160-3)* ... *(2^160-9999999)
>
> A to cele pak vydelit cislem 2^(160*10000000)
>
> Vysledkem by mela byt pravdepodobnost, s jakou se pro
> 10000000 textu vyskytne stejny vysledek
> hashovaci funkce.
>
> Karel Rys
>
>
>
>
Vyvoj BDE (konecne) zmrazen
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 19:08:01
17.5.2002 Petr Vones:
>> ADO - je to moloch s velkou rezii. Da se pres nej jit na Interbasi ?
> Je soucasti Windows, navic je tu ADO.NET, takze se s tim naucit pracovat asi
> neni od veci. Co se tyce InterBase, tak to neni problem ADO ale opet Borlandu,
> ktery dodnes nebyl schopen napsat oficialni OLE DB driver pro IB.
A pro pouzivani ADO.NET bude zrejme treba instalovat NET framework
atd. A misto nativnich komponent nebo instalace BDE (radove MB) to
budou desitky az stovky MB NET frameworku.
> Nezajimam se
> jinak o databaze, ale je pro me naprosto nepochopitelne, ze za celou dobu
> nebyli schopni vytvorit nasledujici dva drivery:
> 1. MS SQL driver pro dbExpress
> 2. OLE DB driver pro InterBase
> Vicemene z toho vyplyva, ze jednotny pristup k ruznym SQL serverum je v
> soucasne dobe v Delphi nemozny.
Omlouvam se, za predchozi reakci, ale tohle me docela dost vadi,
protoze databaze nas zivi.
Pripada mi, ze Delphi pomalu v konkurenci ztraci dech. Kde jsou ta
proklamovana hesla typu "data kdekoliv a kdykoliv" apod.
Samozrejme se na data z Delphi dostaneme, ale na kazdou databazi pres
odlisne komponenty. BDE bylo ve sve dobe spickou, ktera tento jednotny
pristup zajistovala. dbExpress mel byt jeho nastupcem pro pristup na
SQL servery. V teto chvili me vubec nezajima, ze se dostanu na MySQL
a dalsi "internetove" databaze, ktere jsou nevhodne na podnikovy IS.
Nepotrebuji internetove "telefonni seznamy", ktere jsou prezentovany
na konferencich. To co potrebuji je slusny databazovy pristup, ktery
by mi umoznil a usnadnil v aplikaci zmenu databazove platformu.
V soucasne dobe mi Delphi praci moc neulehcuje :-(
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
TypeInfo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 19:13:28
From: "Petr Kellner" <kellner(zv)praktik(tec)cz>
> mohl by jste mi nekdo vysvetlit rozdil mezi temito dvema kody psanymi v
> Delphi 5:
>
> var
> ATypeInfo:PTypeInfo;
> ATypeData:PTypeData;
> .
> .
> .
> ATypeInfo:=System.TypeInfo(TMyForm);
> {vrati se ATypeInfo^.Kind=tkClass a ATypeInfo^.Name='TMyForm',
> zdrojak ani deklaraci funkce TypeInfo jsem v knihovne system nenasel}
> ATypeData:=GetTypeData(ATypeInfo);
> {toto funguje, ATypeData^.ClassType je naplneno spravne}
>
> a naproti tomu
>
> New(ATypeInfo);
> ATypeInfo^.Kind:=tkClass;
> ATypeInfo^.Name:='TMyForm';
> ATypeData:=GetTypeData(ATypeInfo);
> {toto nefungujefunguje, ATypeData^.ClassType je naplneno nesmyslem}
TypeInfo cte informace ktere jsou vytvoreny kompilatorem, proto nemuzes nic
takoveho alokovat, ale jen ziskat z predane tridy nebo objektu. Vice v unitu
TypInfo.
Pokud by jsi chtel ziskat typeinfo dle jmena tridy tak by jsi ji predtim musel
tu tridu zaregistrovat pomoci RegisterClass a pak najit pomoci FindClass.
Vyjimkou jsou pouze tridy komponent pouzite ve formularich/data modulech,
ktere jsou vlastne published promenne pro ktere prekladac generuje specialni
RTTI informace a proto neni nutne je registrovat explicitne pomoci
RegisterClass.
Petr Vones
CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 19:26:15
Puvodni zprava, kterou napsal Karel Rys dne 23 May 2002:
> Bohuzel k vypoctu potrebujeme spocitat toto:
> (2^160)*(2^160-1)*(2^160-2)*(2^160-3)* ... *(2^160-9999999)
>
> A to cele pak vydelit cislem 2^(160*10000000)
>
> Vysledkem by mela byt pravdepodobnost, s jakou se pro 10000000 textu
> vyskytne stejny vysledek hashovaci funkce.
Ja nejsem matematik, takze ja toto nemohu potvrdit ani vyvratit. Ja
vychazim z odborne literatury.
Podivej, 2^160 je cca 1,5 x 10^48, to tedy je cislo 15 a za nim 47 nul.
Nejakych 10 milionu (1 se 7 nulama) dat je proti tomu prditko.
Pravdepodobnost miziva, zanedbatelna.
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
============================================================
(Mirne OT) RE: CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 19:35:26
Puvodni zprava, kterou napsal Pavel Kral dne 23 May 2002:
> Mimochodem jsem v Delphi zkusil provest ten vypocet,
> bohuzel jen pro 2^63 misto 2^160 kvuli omezeni velikosti
> Int64. Tady jsou vysledky:
Ale 2^63 a 2^160 je ale dost zasadni rozdil, cca 30 nul v desitkove
soustave. Ale nechme toho, asi uz to prehanime, proste hash je hash.
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
============================================================
Re[2]: CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 19:36:20
Puvodni zprava, kterou napsal Martin Pesava dne 23 May 2002:
> Neda mi to a musim take reagovat. Jestli se nepletu, tak puvodne
> tazatel chtel porovnavat nejak jinak 2 retezce tim, ze je prekoduje a ze
> to bude rychlejsi. Ale jestli se nepletu, tak to prokodovani spociva
> vzdycky v tom, ze nacte ten puvodni retezec a prekoduje ho a totez udela s
> tim druhym. A kdyz by je porovnaval rovnou, tak je jenom oba nacita a
> porovnava bajt po bajtu. Takze v pripade, ze jsou ruzne skonci ta funkce
> dokonce driv, nez nacte celej retezec... Proste chci tim rict, ze primym
> porovnavanim to musi preci bejt vzdycky rychlejsi, kdyz nacitat se musej
> stejne oba ty retezce a pri porovnavani rovnou odpada to kodovani ...
No vsak jo. Nema smysl delat hash ze dvou retezcu nebo dat pro
porovnavani. To je jasne, to muzes porovnat bajt po bajtu a bude to
opravdu rychlejsi. Hash se pouziva tam, kde to samozrejme ma vyznam, tj.
kde ten otisk mas ulozen a proti nemu porovnavas. Hash je stale stejne
velky (kratky) bez ohledu na velikost zdroje dat, tj. snadno se uklada. A
je jednosmerny. Typicke priklady pouziti:
- bezpecne ukladani hesel, ulozis si jen otisk a tim padem proverujes pak
otisk vlozeneho hesla s ulozenym otiskem spravneho hesla, zajistis tim
to, ze kdyz nekdo uloupi otisky, neziska heslo jako takove
- otisky cehokoliv, podle cehoz snadno zjistis zmenu v souboru, treba
digitalni podpis - podepisuje se otisk zpravy, ne zprava samotna, jakmile
se zprava zmeni, bude mit jiny otisk a podpis bude neplatny
- bezpecne overovani na zaklade tzv. sdileneho tajemstvi (MD5 HMAC, MD5
CHAP apod.) - zjednodusene, mas nejake sdilene tajemstvi, ktere je tajne,
ma ho klient i server, nikdo jiny, neni bezpecne porovnat primo tato
tajemstvi, pripadne otisky tajemstvi (moznost opakovani autentizace, kdyz
je odchycena), ale vygeneruje se jednorazove nahodne cislo na jedne
strane, druha strana jej spoji s tajemstvim, udela otisk (on to je trochu
slozitejsi algoritmus, ale jde o princip pouziti, ne o algoritnus)
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
============================================================
CM_BASE + ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 19:42:47
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> Zatim se motam porad dokola - naprogramuji si objekt napr.
> TDBColumnDataLink, ktery bude vytvaren TypeEditem, ale jak mam definovat
> propojeni TypeEdit <-> TDBColumn v designu, kdyz znam pouze jmeno tabulky a
> jmeno sloupce, ktery to bude editovat, ale neznam jmeno objektu TDBRecord,
> ktery je vlastnikem pole s objekty TDBColumn...
A neslo by pouzit jiz existujici TDataSet a TDataLink ?
Petr Vones
D grafika - rychle kreslenie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 19:43:27
From: "Slavomir Cekel" <cekel(zv)noves.sk>
> ako co najrychlejsie kreslit 2D ? mam vykreslovat nejake prvky (tvary),
Pomoci GDI funkci.
> btw. robim na W2000 a je to otrasne, (klasicke win su rychlejsie)
To bude spis problem hardwaru/driveru.
Petr Vones
HTTPSend
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.5.2002 19:47:19
> prosim o pomoc s navratovym kodem HTTPGetBinary ze Synapse.
>
> Problem je nasledujici. Je-li v prenosu chyba, vraci podle predpokladu
> False. Zadam-li URL, ktera existuje, funkce vrati True a vytvori se kyzeny
> soubor. Je-li ale jako URL zadana nedostupna adresa, tudiz funkce nemuze
> skoncit uspechem, pak vraci funkce True. Delam neco spatne, nebo jeste
> musim vylovit nejake doplnkove informace?
Tato funkce vraci TRUe v okamziku, kdy se uspesne spojil se serverem a
uspesne si s nim popividal. Hodnota false je vracena pouze a jedine
tehdy, kdyz selhala fyzicka ci logicka konektivita. (tedy pozadovany
server neezistuje, rozpadlo se spojeni, nebo cilovy pozitac neni HTTP
server.
Takze kdyz zadas URL, ve kterem mas existujici server, ale chces
neexistujici dokument, pak funkce vraci true.
jak z toho ven? Musis si napsat vlastni funkci, ktera bude volat primo
THTTPsend objekt. jako vzor ti poslouzi prave funkce HTTPGetBinary. V
tebou upravene funkci pokud metoda HTTPMethod vrati true, pak okontroluj
hodnotu THTTpsend.ResultCode, ve ktere mas HTTP stavovy kod.
Ty hotove funkce jako treba HTTPGetBinary jsou jen jednoduche udelatka a
slouzi na jednoduche bezne ulohy a hlavne jako priklad pouziti hlavniho
objektu. Vlastni objekt THTTPsend toho umi mnohonasobne vice nez ty
hotove funkce! neni mozne vyrobit jednoduche funkce, ktere by uspokojily
vsechny pozadavky. To proste nejde. pokud chces neco jen opravdu
jednoducheho, pak pouzit HTTPGetBinary. Pokud chces nejake lepsi, jako
treba podporu keep-alive, lepsi diagnostiku chyb, atd, pak se musis
obratit primo na vlastni objekt. Od toho tam je. ;-)
> A jeste o jednu vec bych poprosil, uz se na to nekdo ptal, ale odpoved jsem
> asi prehledl - odkud se da vycist pocet prenesenych bytu?
Podivej se na event THTTPsend.sock.onstatus
-- 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
OT: Windows XP Home Edition vs. Windows XP Profess
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 20:06:53
17.5.2002 Ludek ZITA:
> ----- Original Message -----
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Jeste jednou. Pokud chces do podnikove site, potrebujes verzi
>> professional. Na doma ti staci Home. Taky je mezi nimi dost velky
>> cenovy rozdil.
> Prave kvuli tomu cenovemu rozdilu. Ne kazdy pocitac v podnikove siti musi
> byt naslapan softwarem.
> U jednoho zakaznika mam napriklad PC s W98 na kterem se nedela nic jineho
> nez tisknou stitky, do site musi byt pripojen aby se tam daly aktualizovat
> informace. Proc by na takovemhle miste musely byt 2000(XP PROF) to opravdu
> nevim. Ne kazda firma prehazuje zbytecne tisicovky vidlemi.
Pokud jsi pozorne cetl mou odpoved, mluvil jsem u podnikove site o
prihlaseni do DOMENY ne o pouhe prilaseni do site (pracovni skupiny).
To samozrejme jde.
>> Co se tyka tveho druheho dotazu ohledne pripojeni k internetu. Ty pres
>> internet sdilis prostredky pocitace (adresare) ?
> No a co domaci sit ? Vzdyt to uz neni dnes nic tak uplne vyjimecneho, ze PC
> maji deti i rodice a chteji byt propojeni siti.
Na to prece nepotrebujes Active directory a domenu. To je pracovni
skupina a tamproblem neni.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
OT: Windows XP Home Edition vs. Windows XP Profess
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 20:10:25
MTcuNS4yMDAyIEdhbGxpbmEgTHVr4XM6DQo+IFBva3VkIHBvdXppdmFzIHNpdCBOb3ZlbGwgTmV0
V2FyZSB0YWsga2xpZW50YSBuYSBIb21lIHBvdXppdCBqZGUgYSBzdXAsDQo+IHBvY2l0YWMgamUg
dmUgZmlyZW1uaSBzaXRpIDopDQoNClN1cCwgYWxlIHYgcHJpc3Bldmt1IG5haG9yZSBieWxvIG5l
Y28gbyBwcmlwb2plbmkgZG8gImRvbWVueSIuIERvDQpwcmFjb3ZuaSBza3VwaW55ICh3b3JrZ3Jv
dXApIHNlIHByaXBvamlzIGkgcyBYUEhvbWUNClBhayBhbGUgcHJpamRlcyBvIGRpc3RyaWJ1b3Zh
bmEgcHJhdmEsIHByZWRpbnN0YWxhY2Ugc29mdHdhcmUgYSBkYWxzaQ0KTSQgdnltb3plbm9zdGku
DQoNCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3o=
Ud�losti, zpr�vy syst�mu, RS232
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 23.5.2002 20:12:45
Nekricte na me, jestli je to blbe ...
TForm1 = class(TForm)
...
procedure OnEvent(Sender: TObject);
...
end;
var
MSComm : TMSComm;
IComm : IMSComm;
procedure TForm1.FormCreate(Sender: TObject);
begin
MSComm := TMSComm.Create(self);
IComm := MSComm.ControlInterface;
MSComm.OnComm := Form1.OnEvent;
end;
procedure TForm1.OnEvent(Sender: TObject);
var
lngth : longint;
begin
ICOMM.Get_InputLen(lngth);
ShowMessage(IntToStr(lngth));
end;
>V Delphi jsem zat�m v�dy pou��val komponenty a jejich ud�losti. Nyn� ale
>pot�ebuji pou��t ud�lost p��mo od syst�mu. N�co na zp�sob p�eru�en�.
Konkr�tn�
>kdy� m�m otev�en� port, na ten mi p�ijdou data, aby to vyvolalo ud�lost,
>ve kter� bych si port p�e�etl. Kter� t��dy zapouzd�uj� zpr�vy Windows a
jak
>na n� reagovat? D�ky
Delphi 5 v. Delphi 6
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 20:18:53
Vicemene problemy nejsou.
V nekterych pripadech se rozhodila napoveda.
Dej si ale pozor na jednu vec. Pokud mas aplikaci, kterou vyvijis v D5
a otevres ji v D6, dojde k prekodovani textovych retezcu v DFM
(formularich). Ty pak nepujdou otevrit v D5.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.5.2002 Pavel Malinsky:
> Ahoj,
> chystam se nainstalovat D6 Pro, ale
> chtel jsem se zeptat zda je treba si na neco
> dat pozor pri koexistenci D5Pro a D6Pro
> na jednom PC, predpokladam, ze ne.
> Nebo se pletu?
> S pozdravem a dikem
> =====================================
>> Pavel Malinsky; spiderland(zv)iol(tec)cz <
> =====================================
> GSM: 0602 652 203
Prace se Stringy
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 23.5.2002 20:20:50
a nehodilo by se ti pouzit na tu vetu funkci Pos ???
st := 'Jel jsem na kole do kina';
fnd := 'kole';
if (pos(' ' + fnd,st) > 0) or (pos(fnd + ' ',st) > 0) then
ShowMessage('Nasel ...');
ty mezery tam jsou proto, ze muze byt slovo ukonceno teckou (Jel jsem na
kole.) nebo
slovo kolo muze byt na zacatku vety (Kolo je pryc.)
Mam takovy jednodychy problem, ale nejak na to nemohu prijit.
Mam napr. vetu: "Jel jsem na kole do kina"
Potrebuji zjistit jestli tato veta obsahuje slovo "kole". Mozna neco delam
spatne ale StrComp mi to nechce rict.
Poradite nekdo?Dlzka String a zavislost na RAM
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 20:31:59
Jediny pripad, kdy mi to pripada opravnene je zaznam
TMyRec = record
a: string[10];
i: Integer;
end;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
21.5.2002 Robert Suska:
> Ma zmysel pouzivat takyto zapis:
> var
> s: String[10];
> obmedzi to ze sa alokuije pre premennu s len 10byt ram alebo sa to robi
> podla toho ze kolko znakov priradim do s ???
CRC
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.2002 20:48:54
Puvodni zprava, kterou napsal Pavel Kral dne 23 May 2002:
> vzhledem k tomu, ze se v programu vyskytne zcela urcite jeste
> dost dalsich chyb, ktere clovek nepredpoklada, by asi bylo dobre
> osetrit i tuto byt nepravdepodobnou situaci, kdyz uz je jednou
> predpokladana :-).
Pravdepodobnost, ze se vyskytne stejny otisk pro dva vstupy, je mnohem,
mnohem, mnohem nizsi, nez ze ten program po pulhodine shodi Windows do
modre obrazovky :-)
> Osobne si myslim, ze by mohlo stacit porovnat hash, delku, CRC
> a rekneme prvnich X bytu. Pokud je stejny hash, pak "by nemela"
> nastat situace, kdy se rovna delka a zaroven je stejny zacatek.
> (tim myslim, ze pravdepodobnost se priblizila k nule o nekolik radu)
Ja opravdu nevim, lidi, co porad resite... Ta pravdepodobnost je uz sama
o sobe tak minimalni a zanedbatelna. Vysvetli mi prosim pekne, kde je pro
tebe a tve ucely ten meznik, ze pravdepodobnost 1 - 0.5^160 ti je moc
velka pravdepodobnost, ale kdyz bude jeste o nekolik radu nizsi, tak uz
to bude OK?
Jezisku, tak pouzij hashovaci funkce s vystupem 256 nebo 320 bitu
(RipeMD, Haval, Sapphire II) a nebo si to zkontroluj bajt po bajtu nebo
si pouzij dve ruzne hashovaci funkce. Nevymyslej ale ptakoviny, jak
kontrolovat velikost a jeste CRC a jeste prvnich 50 znaku a poslednich 50
znaku a podobne zbesilosti.
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
============================================================
IB/FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.5.2002 20:56:50
Haj hou!
On 22 May 2002 at 9:10, KALUS Jozef wrote:
> 2. cez dbExpress som tam nasiel iba daky IBLocal, co je pristup na lokalny
> IB/FB ale konekt na sietove IB/FB som nenasiel ( asi je to mojou
> nevedomostou alebo nepritomnostou nejakeho ovladaca)
Do specifikace databaze zadej take adresu serveru, ve formatu
remotehost:c:\path\db.gdb
Jmeno nebo IP pocitace je od cesty oddeleno strednikem.
> 3. teda ak funguje aj dbExpress (voci sietovemu serveru IB/FB, ak si nietko
> najde chvilku tak nech mi prosim v tomto helpne), tak co je lepsie pouzit:
> dbExpress alebo InterBase ???
Ono je to prakticky jedno, zalezi na tom, co se ti bude vlastnostmi vice hodit do
kramu.
> skoda ze nie je na ibphoenix(tec)cz prelozena licencia (nie som v anglictine tak
> dobry) a akosi stale neviem ci mozem Firebird pouzit do svojej aplikacie pre
> zakaznikov zadarmo alebo nie, t.j. za aplikaciu mozem pytat bubaky ale
> neviem ako je to so serverom a licenciami, mohol by si mi to prosim ta
> objasnit, niekde som tam nasiel, ze za FB nie su ziadne lic. poplatky, ale
> chcem mat istotu, dik
Poplatky se zadne neplati. Firebird je distribuovan pod variantou MPL, takze je
stejne free jako treba prave Mozilla.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
struktura souboru WIN32/PE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 21:03:18
From: "Martin Simbartl" <martin.simbartl(zv)seznam(tec)cz>
> neznate nekdo odkaz na stranky, kde je presna struktura *.exe souboru typu
> WIN32/PE.
Na MSDN online (http://msdn.microsoft.com/msdnmag/issues/02/02/PE/PE.asp).
Popripade se podivej na unit JclPeImage z JCL, kde jsou tridy ktere popisuji
jednotlive sekce tohoto formatu. Zalezi ale na tom co presne potrebujes
(http://delphi-jedi.org/Jedi:CODELIBJCL)
> Nejlepe v cestine, ale anglictina by taky nevadila. Diky.
Na cestinu v tomhle zapomen.
Petr Vones
Vyvoj BDE (konecne) zmrazen
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 21:15:56
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> A pro pouzivani ADO.NET bude zrejme treba instalovat NET framework
> atd. A misto nativnich komponent nebo instalace BDE (radove MB) to
> budou desitky az stovky MB NET frameworku.
Samozrejme, bude potreba i Delphi for .NET ale ten runtime neni zdaleka tak
velky.
> Pripada mi, ze Delphi pomalu v konkurenci ztraci dech. Kde jsou ta
> proklamovana hesla typu "data kdekoliv a kdykoliv" apod.
V konkurenci s cim ? Konkurence pouziva ADO a to muzes i v Delphi.
> odlisne komponenty. BDE bylo ve sve dobe spickou, ktera tento jednotny
Pred osmi lety asi ano.
Petr Vones
Vyvoj BDE (konecne) zmrazen
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 21:21:39
23.5.2002 Petr Vones:
>> Pripada mi, ze Delphi pomalu v konkurenci ztraci dech. Kde jsou ta
>> proklamovana hesla typu "data kdekoliv a kdykoliv" apod.
> V konkurenci s cim ? Konkurence pouziva ADO a to muzes i v Delphi.
Treba s MS. Delphi se v posledni dobe zameruje na vylepsovani
prostredi a ne na zjednodusovani prace vyvojaru. Tady uz nejde jen o
databazovy pristup.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.5.2002 21:46:30
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> *****No, nevim, nevim, ale co tu sleduji tu debatu, nevypada to, ze
> by se IB hodila na nejaky narocnejsi reseni. Pokud budou uzivatele
> pracovat s DB, kterou bude cas o casu nutne restartovat kvuli
> naproste pitomosti, pak nebudou prilis hepy. Neberte to jako rejpani,
> ale namet k zamysleni.
Ahoj.
IMHO zmena struktury database nepatri zrovna ke kazdodenni praci. A jestli
ano, pak to neni spatna vizitka IB/FB ale programatora nebo analytika.
Je ale jasne, ze na rizeni reaktoru atomove elektrarny se IB/FB proste
nehodi.
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Vyvoj BDE (konecne) zmrazen
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 21:58:44
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Treba s MS. Delphi se v posledni dobe zameruje na vylepsovani
> prostredi a ne na zjednodusovani prace vyvojaru.
No nevim, to prostredi by asi chtelo taky hodne vylepsit. Potiz je spise ve
lpeni na zpetne kompatibilite, coz dost dobre neumoznuje nektere veci zahodit
nebo od zakladu predelat. Nova platforma (v tomto pripade .NET) dava jiste
nadeje.
> Tady uz nejde jen o databazovy pristup.
Databaze jsou vubec kapitola sama pro sebe (a zdaleka nejen u Delphi) z cehoz
prameni i muj postoj k nim obecne :-) Tolik povyku pro par tabulek s radky a
sloupci, kde se cca 80% casu travi jen tim, jak tech par radek vubec precist.
Nemuzu si pomoct, ale neco je tu spatne ...
Petr Vones
nevisualni komponenta pro DB se SQL
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.5.2002 22:02:48
----- Original Message -----
From: "Novalis" <delphi(zv)novalis.dyndns.org>
> Jde mi proste o to, ze delam program a chci aby se uzivatel nemusel zabyt
necim jako je spousteni DB serveru, ukoncovani apod.
Ahoj.
Kazdy ze zde vyjmenovanych serveru (MySQL, IB/FB, MSDE..) se nainstaluje
tak, ze ho uzivatel obvykle nemusi nijak spoustet. Ve Win2000 dokonce ani
nemusi byt uzivatel prihlasen. Takze o existenci serveru uzivatel ani nemusi
vedet.
Samozrejme zustava problem s instalaci, ale spise s tim, pokud stejny typ
serveru jiz na pocitaci uzivatele je instalovan a pouziva se.
Uprime receno podobne problemy muzes zazit i se souborovymi DB ( Paradox -
instalace BDE, Acces - instalace JET engine).
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Delphi 5 v. Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 22:47:26
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Dej si ale pozor na jednu vec. Pokud mas aplikaci, kterou vyvijis v D5
> a otevres ji v D6, dojde k prekodovani textovych retezcu v DFM
> (formularich). Ty pak nepujdou otevrit v D5.
Tohle plati pouze v pripade textu s diakritikou.
Petr Vones
OT: Windows XP Home Edition vs. Windows XP Profess
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.5.2002 22:49:25
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>
> Pokud jsi pozorne cetl mou odpoved, mluvil jsem u podnikove site o
> prihlaseni do DOMENY ne o pouhe prilaseni do site (pracovni skupiny).
> To samozrejme jde.
>
> >> Co se tyka tveho druheho dotazu ohledne pripojeni k internetu. Ty pres
> >> internet sdilis prostredky pocitace (adresare) ?
>
> > No a co domaci sit ? Vzdyt to uz neni dnes nic tak uplne vyjimecneho, ze
PC
> > maji deti i rodice a chteji byt propojeni siti.
>
> Na to prece nepotrebujes Active directory a domenu. To je pracovni
> skupina a tamproblem neni.
Ahoj.
Predevsim si ujasneme situaci. Ja jsem reagoval na nekolik tvrzeni, ktere
padly v tomto threedu:
1) ze u XP home se neda zaheslovat sdileny adresar.
No to mi prijde primo zhovadile, a obecne mi to vadi jak pro domaci
pouziti, tak pro pouziti napriklad na notebooku, ktery si pracovnici obcas
pripojuji do podnikove site.
JE TO VUBEC PRAVDA ?
2) ze se XPhome nedokaze prihlasit do domeny.
Zde mam opet vyhrady, protoze treba v pripade ktery jsem citoval (vyuziti
PC prakticky jen na tisk carovych kodu) budu muset kazdeho uzivatele
synchronizovat i na tomto PC (prace navic) navic pokud budu temto uzivatelum
chtit nechat tataz hesla budou si je muset synchronizovat i zde a samozrejme
jejich bezpecnost bude tim evidentne snizena.
To ale neni ten nejvetsi problem. Konec koncu je to celkem ojedinela situace
a proste se uz priste neda setrit.
Hlavni problem je s pristupem do sdilenych prostredku domeny. Tady pujde o
to, ze jakmile budes chtit tyto prostredky sdilet treba z notebooku s XP
Home (vetsina modelu hodicich se cenove pro ruzne cestujici obchodniy a
pod.) budes muset drasticky snizit uroven zabezpeceni tehto sdilenych
prostredku v domene. To povazuji za opravdu nechutne a myslim, ze je od MS
velmi neseriozni ze to takhle udelali. No ale co by M$ neudelalo pro par
dolarku ze...
Ludek
P.S. Nevite jestli jeste existuje moznost tzv. Downgrade, t.j. prejit
bezplatne z OEM XP home na W98 ? Vim ze cesta z 98 na 95 byla oficialne
mozna.
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Vyvoj BDE (konecne) zmrazen
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2002 22:52:30
23.5.2002 Petr Vones:
> Databaze jsou vubec kapitola sama pro sebe (a zdaleka nejen u Delphi) z cehoz
> prameni i muj postoj k nim obecne :-) Tolik povyku pro par tabulek s radky a
> sloupci, kde se cca 80% casu travi jen tim, jak tech par radek vubec precist.
> Nemuzu si pomoct, ale neco je tu spatne ...
Jo, jo. samozrejme by to slo resit objektovym pristupem. Bohuzel
objektove databaze se zatim teprve zacinaji objevovat a ty, co jsou uz
dele na trhu (Cache) jsou krestansky i nekrestansky drahe a pro
zpracovani dat a reporty se u nich opet pouziva relacni pristup.
Jak si predstavujes zpracovat statisice zaznamu, neco z nich vybrat,
vysouctovat a dostat to do reportu ? Na to je relacni pristup v dnesni
dobe stale zatim to nejvykonnejsi.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Vyvoj BDE (konecne) zmrazen
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2002 23:15:03
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> vysouctovat a dostat to do reportu ? Na to je relacni pristup v dnesni
> dobe stale zatim to nejvykonnejsi.
Tady jde spis o vlastni implementaci pristupu k datum. Desitky ruznych vrstev,
driveru, knihoven. Pricemz casto neumoznuji ani takovou zakladni vec jako je
efektivni vyuziti multithreadingu, generovani jedinecnych ID pro zaznamy
(donekonecna omylane tema v konferenci), vykon neni nijak oslnujici (casto se
musi kombinovat s dalsim zpracovanim zaznamu na klientu aby to bylo vubec
pouzitelne), standardy SQL temer nikdo nedodrzuje atd ... Vysledek podle me
ponekud zaostava za celkovou komplikovanosti.
Petr Vones
nevisualni komponenta pro DB se SQL
[*] Novalis <delphi(zv)novalis.dyndns.org> - 23.5.2002 16:30:31 cest
Jde mi proste o to, ze delam program a chci aby se uzivatel nemusel zabyt necim jako je spousteni DB serveru, ukoncovani apod.
Chci aby kdyz se program spusi se hned mohl pripojovat k DB. takze bych potreboval nejaky FREE DB server, ktery se nemusi instalovat, a muzu ho distribuovat s programem. tak sem myslel, ze nejlepsi by bylo pristupovat k souboru primo, nez neco instalovat (nebo existuje nejaky DB server, ktery se nemusi instalovat a staci ho jen zkopirovat? a je jednoduche ho spustit/ukoncit z meho programu?).
Diky,
Novalis
--------------
Novalis :
> Dobry den,
> chtel jsem se zeptat, jestli nekdo neznate nejakou nevisualni komponentu pro
> Delphi (pokud bude i pro Kylix, tim lip), ktera zapouzdruje praci s
> databazi, umi SQL dotazy apod, ale pracuje primo se souborem a nepripojuje
> se na zadny DB server. Napr. neco jako komponenta pro MySQL, ktera ale
> pracuje primo se soubory MySQL databaze ulozenymi lokalne a nemusi se
> pripojovat k MySQL serveru.
> Snad sem to vysvetlil tak, ze pochopite o co jde :)
> Diky,
> Novalis
CRC
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.5.2002 02:00:38
> Neni treba testovat 2^160 ruznych vstupu - staci napoprve vybrat ty dva
> spravne :-)
ano. Cely problem je v tom, AKO tie dva spravne vstupy vybrat (hoci aj nie
na prvy raz).
> Jak uz tady kdosi podotknul, tak Murphyho zakony funguji. Pokud se budu
> snazit najit dva kolizni stringy, tak se mi to taky nemusi do konce
> zivota podarit. Ale kdyz na teto teorii postavim a odladim program, tak
> se mi muze stat, ze prvni dva stringy, ktere tam zada zakaznik pri
> prebirani programu se zrovna trefi. Nevim, jestli ho pak uspokoji
> konstatovani, ze ma proste jenom neuveritelnou smulu - zrejme mi to hodi
> na hlavu. Proto jsem navrhoval, aby se pro porovnavani pouzily hashe,
> ale vysledek aby se overil skutecnym porovnanim puvodnich dat.
az by taky pripad nastal, tak by si asi na publicite spojenej s tymto
pripadom zarobil daleko viac ako na Tvojom programe. Taky pripad
ale nikdy nenastal a je takmer iste, ze ani nikdy nenastane (to takmer
nechavam pre pripad, ze matematici s velkym usilim mozno niekedy
najdu nejaku chybu alebo nejaku zvlastnu vlastnost algoritmu, atd.).
> To, ze jsem jeste nevyhral ve Sportce, neznamena, ze mi zakaznik nedoda
> dva kolizni stringy - i o tom je statistika :-)
chcel by som mat takeho zakaznika
Erik
Expres QuantumQrid - cestina
[*] Fait FTSOFT <fait(zv)ftsoft(tec)cz> - 24.5.2002 02:09:27
Nedavno jsem se ptal na problem ceskych pismen v komponentach subj. Diky za
odpovedi, ale problem tam presto je.
Pokud jsou pouzity komponenty, nebo i primo v quantumgridu jsou nektera
pismena zobrazovana spatne. Stahl jsem si i demo aktualni verze 3.2.2 a v
nem je to take. Pismo se zobrzuje jinak pokud je aktivni nektera z
dxInplace...
Nakonec jsem problem snad odstranil, takze pokud nekdo budete chtit vedet
ozvete se na soukromy majl.
Jiri Fait
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
SQL 2000 a TMemo ...
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 24.5.2002 05:43:54
'Text' a pokud to ukladas v Delphi rucne, tak pouzij napr.
FieldByName('?').AsMemo.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Ako ulozit obsah TMemo do SQL 2000 ??? (samozrejme aby boli zachovane
> riadky)
> Akeho typu musi byt polozka v databaze ?
> Slavo
Databazove aplikace - pouzit komponenty nebo DBkom
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.5.2002 06:14:36
>
> Pokud nejsi v casovem pressu, rad bych se zeptal, proc si myslis, ze
pouziti
> DB-komponent je ztrata casu. Sam jsem dosud pouzival klasicke komponenty
(t�m
Problem originalnich DB komponent je ten, ze prakticky nad nimi nemas
kontrolu. Napr. pozadujes zadat cislo a omy;em stisknes vicekrat des.
carku - vypadne chyba - ne ze by to osetrili, aby neslo stisknout carku
vicekrat. jaskmile udelas svou kontrolu a neco programove prepises, tak
nekdy to jde a nekdy ne.
Ja mam udelany generator na Formy, kde zadavam vstupni data. Parametry
TEditu jsou ulozeny mimo.
Pouzivam pouze jeden TKEdit (od verze 6 taky TKLabeledEdit), kde jsou
zahrnuty veskere mozne zadavaci funkce - stringy, jakakoliv cisla, masky,
datumy, volani externich nabidek apod. Nekde mam ulozeno do jake tabulky a
do jakeho Fieldu se ma obsah dane komponenty ulozit nebo nacist.
Zatimco u klasickych DB-komponentach (i upravenych) mi hlavne vadi osetreni
chyb, ktere nemam uplne pod svou kontrolou.
Napr. zkus zadat datum - do masky. Nevim jak ostatni kolegove, ale tato
funkce je v pravi naprosto nepouzitelna.
DBkomponenty pouzivam v pripade nejakeho rychleho ladeni, nebo kdyz
analytikovi potrebuji neco vysvetlit.
Pavel
> mysl�m ne DB komponenty), do kterych jsem data nacital, po editaci
ukladal.
> Napadlo me vsak, zda to nedelam zbytecne pracne, kdyz komponenty typu DB
staci
> pripojit...
>
Pocet prvkov mnoziny
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 06:16:32
Zkus se podivat na funkce Low a High + examples. Treba z toho neco upotrebis.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.5.2002 Jaroslav Popluhar:
> da sa zistit pocet prvkov v premennej set of TVolaco ?
> var sc: set of Char;
> begin
> sc:= ['A', 'B'];
> ShowMessage (IntToStr (CountMembers (sc))); // chcem aby vypisalo 2
> end;
Interbase
[*] Karel Brkl <karel_brkl(zv)hotmail(tec)com> - 24.5.2002 06:18:43
Za��n�m s IB a proto bych pot�eboval okoukat z�kladn� rutiny jako: vytvo�en� datab�ze, vytvo�en� tabulky, vytvo�en� index� atd. Nejl�pe kdyby mi n�kdo mohl poskytnout zdrojov� text jednoduch� datab�ze. Sta�� jen .PAS soubor.
D�ky.
Karel Brkl
Je mo�no i na k.brkl(zv)email(tec)cz
databaze
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 06:56:03
ahoj,
> ...nevim jak se to presne pise nejak autoincreasable...
autoincrement
> Kdyz dojde k vymazani uzivatele chci
> aby se pri pridani noveho mohlo pouzit cislo smazaneho.
nelze. jedine misto autoincrementu pouzit nejaky bezny integer
a pocit si to sam.
dekuji peca
nevisualni komponenta pro DB se SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 07:09:11
ahoj,
> Jde mi proste o to, ze delam program a chci aby se uzivatel
> nemusel zabyt necim jako je spousteni DB serveru, ukoncovani apod.
mam zkusenost s instalaci a provozem FB serveru. z nekolika desitek
rozeslanych instalaci jsem mel problem jen u jedineho a to protoze
jsem udelal pristup natvrdo TCP/IP a on mel nefunkcni sit (blbe
nastavenou).
cilize nejakejch 30 BFU zvladlo zvladlo z CD spustit instalaci FB,
ktery uz pak nabiha sam a sam se po instalaci nastartuje. a instalaci
nasi aplikace. vse z jednoducheho html, ktery poustim z autorun na
cd-cku.
dekuji Peca
Interbase
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.5.2002 07:41:06
> Za��n�m s IB a proto bych pot�eboval okoukat z�kladn� rutiny jako:
> vytvo�en� datab�ze, vytvo�en� tabulky, vytvo�en� index� atd. Nejl�pe
> kdyby mi n�kdo mohl poskytnout zdrojov� text jednoduch� datab�ze.
> Sta�� jen .PAS soubor.
>
Ahoj,
tyhle veci se prece obvykle nedelaji z programu. Strukturu databaze
si pripravis bud rucne pomoci IBConsole, IBExperta ci jineho
nastroje pro praci se serverem nebo case nastrojem (vytvori skript)
a v aplikaci pak vytvaris dotazy a prikazy v SQL.
David Lebeda
Prace se Stringy
[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 24.5.2002 07:42:20
If pos('kole', 'jel jsem na kole do kina')<>0 then si bu� jistej, �e tam to slovo je :-))
Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz
-----Original Message-----
From: Zach Tom� [mailto:zach(zv)g-data(tec)cz]
Sent: Thursday, May 23, 2002 2:04 PM
To: Delphi-Forum (el. adresa)
Subject: Prace se Stringy
Mam takovy jednodychy problem, ale nejak na to nemohu prijit.
Mam napr. vetu: "Jel jsem na kole do kina"
Potrebuji zjistit jestli tato veta obsahuje slovo "kole". Mozna neco delam spatne ale StrComp mi to nechce rict.
Poradite nekdo?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002
IB: Object xxx is in use
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.5.2002 07:56:47
Haj hou!
On 23 May 2002 at 10:01, Milan Tome� wrote:
> Proc v pripade zmen struktury DB to nekdy vyhodi hlasku napr.: Object INDEX
> is in use ???
Obvzlaste kdyz se nekdo snazi dropnout referencni integritu s cascade
pravidlem :-) Pokud je to tvuj pripad, pak by melo pomoci provest dropnuti v
ramci jedine transakce (ruzne konzole maji vetsinou automaticky zapnuty
autocimmit po DDL prikazech). Problem je zapricinen konfliktem mezi
systemovymi triggery na master table a FK indexem na ktery se vazou.
> Vim, ze pomaha znovu se odpojit a pripojit, nicmene je to velice nepohodlne
> v pripade, ze potrebuju udelat kompletni skript pro prevod DB do novejsi
> verze a ten skript se bude spoustet u zakazniku...
Obecne prilis nedoporucuji provadet zmeny struktury na provozni databazi
pomoci ALTER skriptu a bez primeho dozoru (nebo alespon proves
backup/restore po ukonceni zmen, aby se data skutecne prevedla do nove
struktury, a nebyla preformatovavana pri kazdem pristupu). Navic je pocet zmen
struktury limitovany (citac formatu je na bajt a resetuje se pres backup/restore).
Zmena strukutry db u IB je navrzena tak, aby zjednodusila zivot administratorum
pri drobnych upravach provozni db, a navrharum pri navrhu databaze, kdy se
casto doladuje struktura. Pro upgrade struktur pri upgrade programu u zakaznika
je bezpecnejsi, jednodussi, efektivnejsi a pohodlnejsi vytvorit novou db s novou
strukturou a data prenest.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Object xxx is in use
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.5.2002 07:56:47
Haj hou!
On 23 May 2002 at 10:56, Alex Cherednichenko wrote:
> Obcas i to nepomuze.
> Je to tim, ze IB kesuje metadata.
> A zmeny se projevi jen po DISCONNECT a CONNECT.
To je sice pravda, ale zde ten problem zakopany neni. IB umi kesovana
metadata refresnout, ale to muze byt blokovano pripravenymi prikazy.
Pripravene prikazy se rovnez drzi v kesi a pretrvavaji pres hranici transakce.
Pomuze jen odpojeni, ktere vyprazdni kes prikazu. Bylo by fajn, kdy IB umela
detekovat takove prikazy a z kese je vyhodila sama (pokud nejsou v pouzivani).
Samozrejme, ze aplikace musi spolupracovat, a nedrzet si pripravene prikazy :-)
Dalsim problemem jsou trigerry a procedury, ktere se rovnez drzi v kesi od
prvniho pouziti, obvzlaste t systemove (napr. generovane pro referencni
integritu).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Struktura potvrzeni SMS u Eurotelu.
[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 24.5.2002 08:00:19
Delal jsem v Delphi aplikaci na odesilani a prijem SMS zprav s naslednym dalsim zpracovanim. Potvrzeni o doruceni zpravy u Eurotelu ma strukturu : **STATUS** Delivered.Message to 420602111111 sent at 23.05.02 12:17:16 (*sc:0)
Jeden zakaznik mi tvrdi, ze nyni struktura je jina ( ovsem pouze na jednom jeho cisle a na jinem chodi puvodni ). Ale at jsem patral kdekoliv, tak vsude jinde chodi potvrzeni puvodni, porad stejne. U mne taky puvodni. Nemate nekdo informace o tom, ze by Eurotel neco delal se syntaxi zprav. Predem dik.
Petr Dedecek
petrd(zv)atlas(tec)cz
Transakce na FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.5.2002 08:01:55
Haj hou!
On 22 May 2002 at 21:50, Harris wrote:
> Psalo se tady ze FB nepodporuji transakce, nakonec to vyvratil myslim
P.
> Cisar, transakce podporuji. OK, ale co mam delat kdy je nechci?
> Komponenty IBX to primo vyzaduji.
Vsechno se deje v kontextu transakce, i select. Transakcim se tedy nelze
vyhnout. Nektere komponenty to maskuji vytvarenim implicitni transakce.
> Dale, existuje nejaka solidni dokumentace k FB? Na jejich serveru se
> totiz pise ze dokum. je shodna s IB, ale zjistuji ze tam jsou zrejme
> nejake rozdily. Ale jsem ve FB i IB zacatecnik, takze mozna jenom neco
> delam blbe.
Jen drobne, ale spise jde o chyby v dokumentaci :-) Nechci tu moc delat
reklamu, ale IBPhoenix prave pracuje na nove dokumentaci a prvni dva svazky
(pouze elektronicky a v anglictine) Using Firebird a Firebird Reference jsou na
nasem poslednim CD (okolo 1000 stranek textu). Podrobnosti na nasem webu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Sender: TObject name
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 24.5.2002 08:06:48
Zadravim vsechny,
potrebuji nakopnout:
v procedure s parametrem (Sender: TObject) potrebuji zjistit neco
Sender.Name. Jak na to?
Dik Jan Sebesta
Sender: TObject name
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 24.5.2002 08:12:23
kdyz vis co je to za tridu a nehrozi riziko ze sender muze byt i jineho
"typu", tak to natvrdo pretypovat TMujObjekt(Sender).Name ...
a nebo si to nejdriv overit
if Sender is TMyObjekt then
with Sender as TMyObjekt do
Name:= '...';....
-----Original Message-----
From: Sebesta Jan [mailto:delcomseb(zv)volny(tec)cz]
Sent: Friday, May 24, 2002 8:07 AM
To: Delphi Konference
Subject: Sender: TObject name
Zadravim vsechny,
potrebuji nakopnout:
v procedure s parametrem (Sender: TObject) potrebuji zjistit neco
Sender.Name. Jak na to?
Dik Jan Sebesta
Sender: TObject name
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 08:13:50
A vis neco dalsiho o tom objektu ?
Pak by ti mohlo pomoci pretypovani, treba
TMenuItem(Sender).Name
TForm(Sender).Name
atd.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.5.2002 Sebesta Jan:
> Zadravim vsechny,
> potrebuji nakopnout:
> v procedure s parametrem (Sender: TObject) potrebuji zjistit neco
> Sender.Name. Jak na to?
> Dik Jan Sebesta
Synapse FTPSend pres libovolnou proxy
[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 24.5.2002 08:22:10
Resim program na odesilani a prijem souboru pres FTP pomoci FTPSend ze Synapse. Jak sleduji konferenci, resi se vzdy pruchod pres konkretni proxy. Moje predstava je takova, ze zakaznik si sam bude sirit tento program pro sve zakazniky a ti musi byt schopni si sami nastavit vlastni konfiguraci ? Pritom tam nemusi mit nic nebo muzou mit jakoukoliv proxy, firewall, ... Ted ani nedokazi odhadnout jake vsechny varianty mohou nastat. Existuje nejaky transparentni zpusob nastaveni FTP prenosu pouzitelny pro ruzne instalace ?
Predem dik za radu.
Petr Dedecek
petrd(zv)atlas(tec)cz
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:25:10
Ahoj,
> IMHO zmena struktury database nepatri zrovna ke kazdodenni praci. A
> jestli ano, pak to neni spatna vizitka IB/FB ale programatora nebo
> analytika.
****Tahle debata tu jiz minimalne jednou byla. To, ze casem potrebuju
dodelat/upravit tabulku nemusi byt chybou analytika ci vyvojare, ale
je to casto dano evoluci. (viz pomerne rozsahla debata v archivu,
netreba zacinat ji znovu)
To, ze IB/FB dela problem v podstate prihlouply DDL prikaz, je pro
mne duvodem prejit na databazi, ktera alespon toto umi, byt je za
penize. Dneska jiz slova "vykasli se na souborovou databazi a pouzij
nejaky SQL server" nejsou aktualni. Aktualni je "pouzij tu a tu SQL
databazi".
Slavek
> Ludek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Jaka windows jsou na PC
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.5.2002 08:27:46
Ahoj,
>Poradi nekdo jak zjistit ktera Windows bezi na PC (WIn95, WIN98, WIN2000
.....)
http://www.radekchalupa(tec)cz/developer/clanek.asp?stranka=windows_version.htm
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Vyvoj BDE (konecne) zmrazen
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:30:12
> Jo, jo. samozrejme by to slo resit objektovym pristupem. Bohuzel
> objektove databaze se zatim teprve zacinaji objevovat a ty, co jsou uz
> dele na trhu (Cache) jsou krestansky i nekrestansky drahe a pro
> zpracovani dat a reporty se u nich opet pouziva relacni pristup.
*****Zde pozor na opravdove objektove databaze a objektove-relacni.
Vyzkumy ukazuji, ze objektove databaze maji jednu velkou nevyhodu a
tou je rychlost zpracovani dat. Proto jsou stale pouze vhodne pro par
strestenych akademiku (no flame).
Slavek
> ing. Jan Fiala
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Sender: TObject name
[*] Lauko Stefan <laukosw(zv)naex.sk> - 24.5.2002 08:35:48
Ahoj,
ja pouzivam na zistenie kompatibility tried nasledujucu func.
Function IsCompatibleClass(Sender:TObject;S:String):Boolean;
var
ClassRef: TClass;
begin
Result:=False;
ClassRef := Sender.ClassType;
while ClassRef <> nil do
begin
If ClassRef.ClassName = S then begin Result:=True; Break; end;
ClassRef := ClassRef.ClassParent;
end;
end;
Potom to zistujem takto:
If IsCompatibleClass(Sender,'TComponent') then
begin
If TComponent(Sender).Name then ...
end;
Lauko.
----- Original Message -----
From: "Sebesta Jan" <delcomseb(zv)volny(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 24, 2002 8:06 AM
Subject: Sender: TObject name
> Zadravim vsechny,
>
> potrebuji nakopnout:
>
> v procedure s parametrem (Sender: TObject) potrebuji zjistit neco
> Sender.Name. Jak na to?
>
> Dik Jan Sebesta
>
>
Vyvoj BDE (konecne) zmrazen
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:36:05
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> > Treba s MS. Delphi se v posledni dobe zameruje na vylepsovani
> > prostredi a ne na zjednodusovani prace vyvojaru.
> No nevim, to prostredi by asi chtelo taky hodne vylepsit.
*****To sice ano, ale co bylo neustale presentovano pri uvadeni
Delphi 6? "Tisic a jedno vylepseni IDE" (haha) a dbExpress, ktery je
ovsem v soucasne podobe pro petilete deti do materske skolky na
hrani. Necha se v Delphi vyvijet kompletni aplikace, nebo jen busit
kod? Delphi je v soucasne dobe vhodne pro ,,WinForms`` aplikace a k
tomu je uzpusobeno prostredi. Bohuzel "WinForms: v dnesni dobe jiz
prestava stacit.
> Potiz je
> spise ve lpeni na zpetne kompatibilite, coz dost dobre neumoznuje
> nektere veci zahodit nebo od zakladu predelat.
*****Naprosty souhlas. Kompletni revize by mela byt provedena i v
pristup k vyvoji v Delphi (C++ Builderu).
> Nova platforma (v tomto pripade .NET) dava jiste nadeje.
****Platforma ano, Borland jiz nikoliv.
> Databaze jsou vubec kapitola sama pro sebe (a zdaleka nejen u Delphi)
> z cehoz prameni i muj postoj k nim obecne :-) Tolik povyku pro par
> tabulek s radky a sloupci, kde se cca 80% casu travi jen tim, jak tech
> par radek vubec precist. Nemuzu si pomoct, ale neco je tu spatne ...
*****No comment. ;-)
> Petr Vones
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Vyvoj BDE (konecne) zmrazen
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:40:11
> vykon neni nijak oslnujici (casto se musi kombinovat s dalsim
> zpracovanim zaznamu na klientu aby to bylo vubec pouzitelne),
> standardy SQL temer nikdo nedodrzuje atd ... Vysledek podle me ponekud
> zaostava za celkovou komplikovanosti.
*****To je slovo do pranice. :-) Co by byl podle tebe uspojujici
vykon? S temi standardy je to tezke. Kazda firma lobuje za svuj SQL
dialekt. V soucasne dobe to je podobne jako s C++. Firma implementuje
stadard a dodela vlastni rozsireni. Je to spatne? Neni.Je to dobre?
Take ne. A ted si vyber. :-)
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Synapse FTPSend pres libovolnou proxy
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.5.2002 08:49:25
> Resim program na odesilani a prijem souboru pres FTP pomoci FTPSend ze
> Synapse. Jak sleduji konferenci, resi se vzdy pruchod pres konkretni
> proxy. Moje predstava je takova, ze zakaznik si sam bude sirit tento
> program pro sve zakazniky a ti musi byt schopni si sami nastavit
> vlastni konfiguraci ? Pritom tam nemusi mit nic nebo muzou mit
> jakoukoliv proxy, firewall, ... Ted ani nedokazi odhadnout jake
> vsechny varianty mohou nastat. Existuje nejaky transparentni zpusob
> nastaveni FTP prenosu pouzitelny pro ruzne instalace ? Predem dik za
> radu.
Neexistuje.
Uzivatel muze byt pripojeny tak, ze zadne specialni anstaveni
nepotrebuje, nebo muze byt pripojeny tak, ze musi projit pres nejaku
specielni FTP proxy.
A tech FTP proxy je mnoho druhu. TFTPsend sam o sobe umi 9 druhu
techto FTP proxy serveru (a pripadne umoznuje nadefinovat si svuj
vlastni druh...). kdyby existoval nejaky zpusob, ktery by fungoval
vzdy a vsude, nemusel bych se s touto casti kodu nijak obtezovat.
Bohuzel tomu tak neni.
Vzdycky se musi programove ten spravny druh proxy nastavit.
Tedy vybrani spravneho druhu proxy by melo byt udelane v konfiguraci
tveho programu.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Interbase
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:53:09
Ahoj,
podivej se na priklad tu:
http://atrey.karlin.mff.cuni(tec)cz/~rk/pujcovani.shtml
Jinak podorucuji pro seriozni praci na tvorbu tabulek a spol. nejaky
seriozni Case nastroj (napr. CaseStudio), ktery ti vygeneruje skript,
ktery pak jenom spustis.
Slavek
>
> Za �n�m s IB a proto bych pot eboval okoukat z�kladn� rutiny jako:
> vytvo en� datab�ze, vytvo en� tabulky, vytvo en� index atd. Nejl�pe
> kdyby mi n kdo mohl poskytnout zdrojov text jednoduch� datab�ze. Sta �
> jen .PAS soubor.
>
> D�ky.
>
> Karel Brkl
>
> Je mo no i na k.brkl(zv)email(tec)cz
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Vyvoj BDE (konecne) zmrazen
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 24.5.2002 08:57:02
> From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> > Jo, jo. samozrejme by to slo resit objektovym pristupem. Bohuzel
> > objektove databaze se zatim teprve zacinaji objevovat a ty,
> co jsou uz
> > dele na trhu (Cache) jsou krestansky i nekrestansky drahe a pro
> > zpracovani dat a reporty se u nich opet pouziva relacni pristup.
> *****Zde pozor na opravdove objektove databaze a objektove-relacni.
> Vyzkumy ukazuji, ze objektove databaze maji jednu velkou nevyhodu a
> tou je rychlost zpracovani dat. Proto jsou stale pouze vhodne pro par
> strestenych akademiku (no flame).
Problemem je zde spise zpusob prace s "Objektovou databazi", ktery
naprosto odlisny od prace s relacni databazi. Skok je mnohem vetsi
nez mezi souborovou databazi a SQL serverem. Ve zpusobu prace (vyvoje)
se jedna o navrat o cca 10-15 let zpet, k databazim dle doporuceni IDMS.
Pokud je spravne udelana analyza a jsou respektovany zakonitosti
prace s objekty je rychlost v porovnani s relacni DB raketova.
Velke problemy vznikaji v pripade zmen ve vlastnostech dat tj. objektech,
potom je treba znacneho mnozstvi uprav jak v aplikaci tak ve schematu DB.
Zmenou zde neni pridani nebo ubrani vlastnoti, metody nebo vytvoreni
naslednika (to je temer bez problemu), ale skutecne zmeny objektoveho
schema.
Na rozdil od RD zde velmi spatne pracuje "metoda hrube sily", tak oblibena
u relacnich databazi (viz. prispevky do konference). Pokles vykonu je
enormni.
Dalsim problem bude i napojeni na prekladace (db ma vlastni typy,
provadi typovou kontrolu,...), zatim vse co jsem videl (pripadne s tim
pracoval) melo vlastni vyvojove prostredi.
Pavel
Sender: TObject name
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 08:59:33
Ahoj,
> a nebo si to nejdriv overit
>
> if Sender is TMyObjekt then
> with Sender as TMyObjekt do
> Name:= '...';....
*****Proc tak pomalu? ,,as`` ti provede neco jako: if xxx is yyyy
then ok else raise exception, tedy ve skutecnosti dvakrat volas
,,is``. Proto rychleji:
if Sender is TMyObjekt then
with TMyObjekt (Sender) do
...
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Vyuzitie unicodu pri pisani na canvas
[*] Lauko Stefan <laukosw(zv)naex.sk> - 24.5.2002 09:01:00
Ahojte,
prosim vas vedel by ma niekto nakopnut ake funkcie existuju pre subj?
Potrebujem pisat na canvas podobnou fce ako je Canvas.TextOut ale nie
string.
Pomohol by mi kusok kodu.
Dakujem. Lauko
D6 pro, Win2000.
OpenSSL
[*] delphi-konference(zv)bcpraha(tec)com - 24.5.2002 09:05:12
Chtel bych pouzit nektere sifrovaci algoritmy pro asynchronni sifry a certifikaty z
OpenSSL v programu v Delphi. Stahnul jsem si zdrojove kody z www.openssl.org,
ale neni tam temer ani radek dokumentace, co vlastne vsechno OpenSSL obsahuje.
Primo na webu taky nic moc neni. Kompilovat jsem to jeste nezkousel, ale taky to
asi bude podle toho popisu odvaz.
Neznate nekdo nejaky odkaz na dokumentaci nebo priklady, jak se to vsechno
pouziva?
Diky,
Ludek
OpenSSL
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.5.2002 09:13:34
> Chtel bych pouzit nektere sifrovaci algoritmy pro asynchronni sifry a certifikaty z
> OpenSSL v programu v Delphi. Stahnul jsem si zdrojove kody z www.openssl.org,
> ale neni tam temer ani radek dokumentace, co vlastne vsechno OpenSSL obsahuje.
> Primo na webu taky nic moc neni. Kompilovat jsem to jeste nezkousel, ale taky to
> asi bude podle toho popisu odvaz.
>
> Neznate nekdo nejaky odkaz na dokumentaci nebo priklady, jak se to vsechno
> pouziva?
Jednak si tahni uz zkompilovane OpenSSl v podobe DLL knihoven (jednu
takovou kompilaci najdes treba na mych Synapse strankach), druhak
nejak dokumentace v baliku se zdrojaky je. minimalne je tam par
ruznych prikladu a MAN napoveda. (s troskou trpelivosti
prohlidnutelna i pod windows)
Nejvice informaci jsem vsak o OpenSSL nasel pres Google. ;-)
BTW: nevite nekdo o prohlizeci MAN napoved pod windows???
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Sender: TObject name
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 24.5.2002 09:29:28
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> if Sender is TMyObjekt then
> with TMyObjekt (Sender) do
Vzhledem k tomu, co puvodni tazatel potreboval, je spravnejsi testovat
predka, ktery zavadi pozadovany atribut, tedy
if Sender.InheritesFrom(....) then
bye, pf
Kurzorove klavesy a CheckBox
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.5.2002 09:30:35
Ahoj,
potreboval bych udelat takovouhle vec:
Na formulari je DBGrid a pod nim nekolik groupboxu s checkboxy. Uzivatel
nastavi nejaky checkbox a pak stiskne rekneme sipku dolu s cilem popojet
v gridu. Jenze ouha - misto toho cestuje po jednotlivych checkboxech v
ramci groupboxu. To by nevadilo, ale maler je v tom, ze kurzorove klavesy
v tomto pripade neprochazeji pres OnKeyDown - udalost proste nenastane.
Ani na formu s KeyPreview, ani primo na komponente. JAK mam tedy
zajistit, aby kdyz uzivatel stiskne na checkboxu sipku dolu, aby se dal focus
DBGridu?
David Lebeda
Vyvoj BDE (konecne) zmrazen
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 24.5.2002 09:39:03
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> *****Zde pozor na opravdove objektove databaze a objektove-relacni.
> Vyzkumy ukazuji, ze objektove databaze maji jednu velkou nevyhodu a
> tou je rychlost zpracovani dat.
Protoze to je v podstate pokus vratit se k sitovemu popr.
hierarchicko-sitovemu modelu databaze, ktery byl opusten nekdy na prelomu
60/70 let a byl nahrazen prave modelem relacnim (viz T. Codd, 1970), ktery
se dnes prevazne pouziva.
Bye, pf
IB/FB: DDL a kesovani metadat [was: Object xxx is
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.5.2002 09:43:06
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > IMHO zmena struktury database nepatri zrovna ke kazdodenni praci. A
> > jestli ano, pak to neni spatna vizitka IB/FB ale programatora nebo
> > analytika.
> ****Tahle debata tu jiz minimalne jednou byla. To, ze casem potrebuju
> dodelat/upravit tabulku nemusi byt chybou analytika ci vyvojare, ale
> je to casto dano evoluci. (viz pomerne rozsahla debata v archivu,
> netreba zacinat ji znovu)
>
> To, ze IB/FB dela problem v podstate prihlouply DDL prikaz, je pro
> mne duvodem prejit na databazi, ktera alespon toto umi, byt je za
> penize. Dneska jiz slova "vykasli se na souborovou databazi a pouzij
> nejaky SQL server" nejsou aktualni. Aktualni je "pouzij tu a tu SQL
> databazi".
Ahoj.
Samozrejme pouzij DB ktera ti vyhovuje. Ale stejne mi pripada, ze pri
upgrade, kdy dochazi ke zmene struktury databaze (at uz kvuli oprave chyby
nebo proste jen vyvoj, s kterym se da napr. u ekon. programu pocitat klidne
kazde tri mesice) neni vubec potreba provadet za provozu. Vzdyt zmeny se
mohou (a IMHO vestsinou to tak je) tykat i klientske casti SW.
Nevim jak se na toto tvari treba MSSQL, ale pokud DDL nekesuje muzes se pri
upgrade datove struktury za provozu dostat do mnohem horsich problemu.
Myslim ze tenhle "problem" neni problemem, ale spise vlastnosti, ktera za
nekterych okolnosti muze byt vhodna a za jinych nevhodna.
Rozhodne to IB vuci jinym strojum nijak v mych ocich nedegraduje.
Ludek
--------------------------------------------------------
> Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
>
>
---
Douf�m, ze odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Oprava paradox tabulky
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 24.5.2002 10:03:19
Bohuzel mi ted nejde internet, takze se nepodivam, kde to je. Ale existuje
free opravator se zdroji, mam verzi 4.31 a pracuje velmi dobre. Jmenuje se
to "Paradox tables check and repair utility". Pripadne poslu na soukromy
mail.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Re: Oprava paradox tabulky
>
>
> Odinstalovat PDX, nainstalovat IB/FB. :-)
>
> Existuje utilita na opravu tabulek TUtility (TUTIL32.exe).
> Nebo rucne shodit index a udelat znovu.
>
> Josef Cerny
>
> > Ahoj konfenence, mam projekt ktery vyuziva paradoxove tabulky a pri
jednom
> > padu systemu doslo k poruseni tabulky a nyni nelze otevrit a pise to
error
> > Corupt table /index header. Exituje v bde api nejaka funkce na opravu
> > trakoveto tabulky... ???
>
Vektorove kreslenie ...
[*] Slavomir Cekel <cekel(zv)noves.sk> - 24.5.2002 10:04:39
kde najdem cosi o vektorovom kresleni ?? Slavo
WinInet, Proxy a SSL
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 24.5.2002 10:09:20
> nevim, jak predat jmeno a heslo, nebo nejlepe udelat to tak, aby se pri
> pokusu o pristup na zabezpecene stranky zobrazil automaticky login
> dialog (tak jako v IE). Podobny problem mam v pripade, kdy na internet
> pristupuji pres proxy a musim se na nej explicitne hlasit (IE mi opet
> automaticky zobrazi login dialog a pak je vse OK). Pokud byste s tim
Zobrazeni dialogu obstara fce. InternetErrorDlg. Zhruba tak nejak
by se to dalo pouzit s InternetOpenUrl, lepsi priklad je v MSDN :
// varianta OpenURL: opakuje se, dokud neni heslo spravne
// po spravnem zadani se jiz chyba 401|407 neobjevi - v ramci celeho
procesu
// pro zobr. dialogu musi byt v IE nastaveno "Pozadovat uziv. jmeno a
heslo"
hRequest:= nil;
np:= nil;
repeat
if Assigned(hRequest) then
HttpSendRequest(hRequest, nil, 0, nil, 0)
else
hRequest := InternetOpenUrl(hSession, pchar(Edit1.Text), 'Accept:
*/*'#13#10,
13, INTERNET_FLAG_RELOAD or INTERNET_FLAG_KEEP_CONNECTION,
0);
dwError := InternetErrorDlg(Handle, hRequest,
ERROR_INTERNET_INCORRECT_PASSWORD,
{FLAGS_ERROR_UI_FILTER_FOR_ERRORS or}
FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS or
FLAGS_ERROR_UI_FLAGS_GENERATE_DATA,
np);
until dwError <> ERROR_INTERNET_FORCE_RETRY;
Pokud chces jednoduse pouzivat WinInet zkus http://www.euromind.com/iedelphi
Tom
Downgrade (was Re: OT: Windows XP Home Edition vs.
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 10:25:32
Ahoj,
neco malo najdes tu:
http://www.microsoft.com/cze/infolinka/faq/Upgrade.asp#downgrade
Slavek
> P.S. Nevite jestli jeste existuje moznost tzv. Downgrade, t.j. prejit
> bezplatne z OEM XP home na W98 ? Vim ze cesta z 98 na 95 byla
> oficialne mozna.
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
OT: SQL: Proc ?
[*] Delphin <delphin(zv)post(tec)cz> - 24.5.2002 10:25:51
proc nefunguje:
select firma as dodavatel_firma
from dodavatel
where dodavatel_firma='1'
kdyz funguje:
select firma as dodavatel_firma
from dodavatel
order by dodavatel_firma
skutecne se to musi resit takto ?
select *
from (select Firma as Dodavatel_Firma from Dodavatel) A
where Dodavatel_Firma = '1'
OT: SQL: Proc ?
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 24.5.2002 10:33:59
Ne nemusi, staci pouzit
select firma as dodavatel_firma
from dodavatel
where firma='1'> proc nefunguje:
>
> select firma as dodavatel_firma
> from dodavatel
> where dodavatel_firma='1'
>
> kdyz funguje:
>
> select firma as dodavatel_firma
> from dodavatel
> order by dodavatel_firma
>
> skutecne se to musi resit takto ?
>
> select *
> from (select Firma as Dodavatel_Firma from Dodavatel) A
> where Dodavatel_Firma = '1'
>
>
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
SQL: Proc ?
[*] Martin Cajbik <cajbik(zv)sct.sk> - 24.5.2002 10:36:41
Na akom SQL serveri ?
MarCaNT (marcant(zv)sct.sk)
> proc nefunguje:
>
> select firma as dodavatel_firma
> from dodavatel
> where dodavatel_firma='1'
>
> kdyz funguje:
>
> select firma as dodavatel_firma
> from dodavatel
> order by dodavatel_firma
>
> skutecne se to musi resit takto ?
>
> select *
> from (select Firma as Dodavatel_Firma from Dodavatel) A
> where Dodavatel_Firma = '1'
>
>
>
OT: SQL: Proc ?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 10:37:04
24.5.2002 Delphin:
> proc nefunguje:
> select firma as dodavatel_firma
> from dodavatel
> where dodavatel_firma='1'
protoze filtrujes pole z tabulky a ne pole ve vysledku selectu.
je treba opravit podminku ve Where:
select firma as dodavatel_firma
from dodavatel
where firma='1'
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
databaze
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 24.5.2002 09:40:12
Petr Varga, <mailto:djvar(zv)post(tec)cz> napsal:
> Mam databazi v paradox 7. Jedna se o soupis uzivatelu.. Cisla jsou nastavena jako samorostouci (nevim jak se to presne pise nejak autoincreasable) . Kdyz dojde k vymazani uzivatele chci aby se pri
> pridani noveho mohlo pouzit cislo smazaneho. Nebo jinak kdyz pridavam uzivatele chci umoznit vyber cislo pokud neni jiz obsazene..
Pole typu Autoincrement jsou vhodna napr. pro primarni klic v tabulce,
tj. pro jednoznacne urceni zaznamu v tabulce. Nemaji mit _zadny_ jiny
vyznam.
Pro cislo uzivatele pouzij integer a hodnotu mu pocitej a
prirazuj sam.
> A jeste s databazemi zacinam, ale nejsem schopen najit v helpu
Uz je to evergreen, ale pokud zacinas s DB, nastuduj si radeji FireBird
nebo InterBasi, ma to rozhodne vetsi budoucnost nez BDE.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP1, D5Ent/UP1
QuickReport - nezobrazuje text pod W98
[*] Vakonic Pavol <vakonic(zv)tyory.sk> - 24.5.2002 10:55:20
Ahoj,
mam problem s QuickReportom. Pouzivam v nom Title, GroupHeader+SubDetail ,
StringsBand+SubDetail, Summary, PageFooter.
Na W2000 sa zobrazuje aj tlaci normalne, na W98 sa zobrazi iba Title,
ostatne je prazdny
papier - na tlaciarni sa to ale vytlaci normalne. Skusal som aj rozne fonty
a velkosti - nezabera.
QuickRep s pouzitim Title, ColumnHeaderBand, DatailBand, Sumary a PageFooter
funguje
normalne aj na W98.
Pavol Vakonic
vakonic(zv)tyory.sk
FoxPro DBF a CDX s CZECH parametrem
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 24.5.2002 10:56:52
Ahoj,
potrebuji pracovat z SQL databaze s DBF soubory, vytvorenymi (asi) pres
Visual Foxpro a obsahujicimi vzdy k tabulce CDX index. Delphi 5 (Pro) mam a
tim i BDE "5.01".
Vetsinu tabulek nactu v poradku, pouze tabulky s textem "CZECH" v CDX
(trideni?) mi napisou chybu "Could not find language driver."
Data jsou kodovana v DOS852, pouzivam v BDE nastaveni pro Foxpro ovladac
language "DBASE 852 CSY", u tabulek ktere otevru, vidim cestinu dobre.
Budu potrebovat jak cist, tak zapisovat...
Vite nekdo co s tim? Eventualne jiny, spolehlivejsi postup (napr. nejake
komponenty)???
Diky.
Leos
SQL: Proc ?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 11:02:09
a proc nepouzijes:
select firma as dodavatel_firma
from dodavatel
where firma='1'
???
jedna vec je prejmenovani sloupce a
druha vec je vyhodnoceni podminky na tabulkou.
prijde mi logicke, ze server podminku vyhodnoti
drive, nez prejmenuje sloupce. v order by to
funguje mozna pro to, ze order by se provadi
jako posledni operace s mnozinou (imho).
dekuji peca
SQL: Proc ?
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 24.5.2002 11:07:19
Jednoduse proto, ze v klauzili 'where' se SQL odkazuje pouze na pole
dane tabulky (a ne na aliasy - takze pouzij 'firma' misto
dodavatel_firma' a pujde to), zatimco v 'order by' mouh byt jak pole,
tak aliasy a dokonce i ciselne poradi sloupce uvedeneho v 'select'.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> proc nefunguje:
> select firma as dodavatel_firma
> from dodavatel
> where dodavatel_firma='1'
> kdyz funguje:
> select firma as dodavatel_firma
> from dodavatel
> order by dodavatel_firma
> skutecne se to musi resit takto ?
> select *
> from (select Firma as Dodavatel_Firma from Dodavatel) A
> where Dodavatel_Firma = '1'
Sender: TObject name
[*] Robert Suska <delphi(zv)korak.sk> - 24.5.2002 11:16:17
alebo
var s: String;
begin
if (Sender is TButton) then
s:= (Sender as TButton).Name;
...
Robo
------------------------------------
> TMenuItem(Sender).Name
> TForm(Sender).Name
>
> atd.
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 24.5.2002 Sebesta Jan:
> > Zadravim vsechny,
>
> > potrebuji nakopnout:
>
> > v procedure s parametrem (Sender: TObject) potrebuji zjistit neco
> > Sender.Name. Jak na to?
>
> > Dik Jan Sebesta
>
SQL: Proc ?
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 24.5.2002 11:24:04
urcite ti bude fungovat:
where firma='1'
pro order muzes naopak klidne pouzit:
order by 1
(index vybraneho sloupce)
-----Original Message-----
select firma as dodavatel_firma
from dodavatel
where dodavatel_firma='1'
kdyz funguje:
select firma as dodavatel_firma
from dodavatel
order by dodavatel_firma
---
Avast: Odchoz� zpr�va vyhodnocena jako �ist�
Datum a �as testov�n�: 24.5.2002 11:24:04
Datum virov� datab�ze (VPS): 23.5.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 23.5.2002): zprava neobsahuje virus
Sender: TObject name
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 11:30:50
Jinak me jeste napadlo. Mnohem spolehlivejsi (a rychlejsi) je
neporovnavat JMENA ale ODKAZY. pak nepotrebujes ani pretypovavat.
if Sender = Button1 then...
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.5.2002 Robert Suska:
> alebo
> var s: String;
> begin
> if (Sender is TButton) then
> s:= (Sender as TButton).Name;
> ...
Re[2]: IB: Object xxx is in use
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.5.2002 11:50:34
<<< 24. 5. 2002 11:49 - Pavel Cisar "pcb(zv)atlas(tec)cz" >>>
PC> Navic je pocet zmen
PC> struktury limitovany (citac formatu je na bajt a resetuje se pres backup/restore).
A co sa stane ak to pretecie ? Ako sa k tomu citacu dostanem ?
PC> Zmena strukutry db u IB je navrzena tak, aby zjednodusila zivot administratorum
PC> pri drobnych upravach provozni db, a navrharum pri navrhu databaze, kdy se
PC> casto doladuje struktura. Pro upgrade struktur pri upgrade programu u zakaznika
PC> je bezpecnejsi, jednodussi, efektivnejsi a pohodlnejsi vytvorit novou db s novou
PC> strukturou a data prenest.
Urcite, ale zober to, ze napr. moja aplikacia sa vyvija a este bude 5
rokov a to nie len opravy existujucich veci ale aj dorabanie novych.
Bez toho to proste nejde.
--
Best regards, TRoland
divne chovanie mojej komponenty
[*] Slavomir Cekel <cekel(zv)noves.sk> - 24.5.2002 11:51:05
Zdravim ...
skusam si vytvorit vlastnu komponentu typu TShape ... ide o ciaru
nakreslenu
od laveho horneho rohu do praveho dolneho rohu daneho priestoru
(obdlznika).
Vsetko je super, az na jednu vec ... kresli mi tu ciaru na pozicie pred
zmenou velkosti, preco ?
Slavo
Vyvoj BDE (konecne) zmrazen
[*] Jon�s Mari�n <Jonas(zv)komercpoj(tec)cz> - 24.5.2002 12:15:05
Zajimalo by mne, jaky bude mit vliv zmrazeni vyvoje BDE na TDataset ? Pro
pristup na IBM DB2 a Interbase pouzivame vlastnimi silami napsane komponenty
pro nativni pristup k DB2CLI.DLL a GDS32.DLL a nerad bych se v Delphi 7
dockal nejakeho nemileho prekvapeni.
Marian Jonas
Vyvoj BDE (konecne) zmrazen
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 24.5.2002 12:18:07
Pokud by kazda firma implementovala aspon standard, to by se to datovalo ...
A ne treba jako muj dotaz - ORACLE a prazdny retezec -> prazdny retezec je
prazdny retezec a ne neznama hodnota (null) - podle ORACLu ne :(
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Slavek Rydval
Firma implementuje
stadard a dodela vlastni rozsireni. Je to spatne? Neni.Je to dobre?
Take ne. A ted si vyber. :-)
Slavek
---
Avast: Odchozi zprava vyhodnocena jako eista
Datum a eas testovani: 24.5.2002 12:18:07
Datum virove databaze (VPS): 23.5.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 23.5.2002): zprava neobsahuje virus
report
[*] Rudolf Musil <musil(zv)ro.vutbr(tec)cz> - 24.5.2002 12:24:59
Muzete poradit nejaky opravdu dobry report pro CLX aplikace?
diky Ruda.M
Databaze MS Access & Delphi
[*] "Netu�il, Roman, Ing." - 24.5.2002 12:27:03
Panove,
chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS Accessu
jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
Roman
OpenSSL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 12:45:10
> BTW: nevite nekdo o prohlizeci MAN napoved pod windows???
a nebyl by nejakej u kylixu? myslim zdrojak, kterej by sel prelozit
v D6? nebo nekde na borlandu...
peca
Vyvoj BDE (konecne) zmrazen
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2002 12:48:58
From: "Jon�s Mari�n" <Jonas(zv)komercpoj(tec)cz>
> Zajimalo by mne, jaky bude mit vliv zmrazeni vyvoje BDE na TDataset ? Pro
Zadny, Borland podle mne od zpetne kompatibility neupusti, takze stale tam
bude tuna balastu v zakladnim datasetu. Urcitym resenim by bylo neco jako
TDataSet2 nebo jeste lepe IDataSet.
Petr Vones
Databaze MS Access & Delphi
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 24.5.2002 12:53:25
osobne pouzivam ADO komponenty z palety ADO.
jinak neco k tematu najdes na http://delphi.about.com
, Pavel
-----Original Message-----
From: "Netu�il, Roman, Ing." [mailto:Netusil.Roman(zv)vspardubice(tec)cz]
Sent: Friday, May 24, 2002 12:27 PM
To: DELPHI-Konference (el. adresa)
Subject: Databaze MS Access & Delphi
Panove,
chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS Accessu
jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
Roman
Databaze MS Access & Delphi
[*] Peter Surovy <psurovy(zv)uevora.pt> - 24.5.2002 11:54:32
Ahoj
----- Original Message -----
From: "Netu�il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
> chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS
Accessu
> jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
..pomocou ActiveX Data Objects (ADO),
paleta ADO napr. komponenty: ADOConnection, ADOTable,
ADOQuery pracuje sa s nimi skoro rovnako ako s Table a Query pre BDE.
Peter Surovy
FB a poradove cislo v insert
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 24.5.2002 12:59:30
Cau
mam aplikaci kde vkladam vety do FB tabulky, ktera ma sloupec s poradovymi cisly jednotlivych vet. Da se vlozit primo do insert aby mi to naslo maximalni hodnotu por a pricetlo 1 ?
napr.
insert into firmy (por,firma) values (max(por)+1,'firma');
no takhle mi to nejde
Milos
divne chovanie mojej komponenty
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 24.5.2002 13:04:32
toto by nefachalo? (pisu z hlavy, tak me nekamenujte :-)) )
P.
TMyShape= class(Tshape)
protected
procedure Paint;override;
end;
procedure TMyShape.Paint;
begin
Canvas.Brush.Assign(Brush);
Canvas.Pen.Assign(Color);
with Canvas do
begin;
FillRect(Rect(0,0,Width,Height));
MoveTo(0,0);
LineTo(Width,Height);
end;
end;
-----Original Message-----
From: Slavomir Cekel [mailto:cekel(zv)noves.sk]
Sent: Friday, May 24, 2002 11:51 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: divne chovanie mojej komponenty
Zdravim ...
skusam si vytvorit vlastnu komponentu typu TShape ... ide o ciaru
nakreslenu
od laveho horneho rohu do praveho dolneho rohu daneho priestoru
(obdlznika).
Vsetko je super, az na jednu vec ... kresli mi tu ciaru na pozicie pred
zmenou velkosti, preco ?
Slavo
StrToInt z hexadecim hodnoty
[*] Peter Surovy <psurovy(zv)uevora.pt> - 24.5.2002 12:05:14
Ahoj
b:= StrToInt('A0');
ohlasi ze A0 nie je integer value.Preco?
Ako prevediem nieco co som vyrobil
pomocou skratenia IntToHex napr:
colr:=IntToHex(Col,8);
colr_pom:= Copy(colr,7,2);
spat na integer?
Dik
Peter Surovy
OpenSSL
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.5.2002 13:05:03
> > BTW: nevite nekdo o prohlizeci MAN napoved pod windows???
> a nebyl by nejakej u kylixu? myslim zdrojak, kterej by sel prelozit
> v D6? nebo nekde na borlandu...
tam jsem to nikde nepotkal... kdybych ho potkal, tak bych ten jejich
MAN prohlizec upravil tak, aby byl pouzitlny a ne aby mi porad psal
bile na blem pozadi. ;-/ :-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Databaze MS Access & Delphi
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 24.5.2002 13:06:58
TKaDaoDatabase a TKaDaoTable - muzu poslat ...
Rumcajs
> Panove,
> chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS
Accessu
> jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
>
> Roman
>
Zmena kurzoru pro celou aplikaci
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.5.2002 13:14:37
Ahoj,
potrebuji v aplikaci zmenit globalne kurzor. Jak to udelat, aby se zmenil opravdu vsude (popupmenu, mainmenu, captionform, borders) ale jen na vybranych prvcich (obvykle listboxy) aby byl jiny. Potrebuji sjednotit vzhled aplikace na cca 120 formularich aplikace (aniz bych musel dopisovat kod do vsech formularu, vsechny formulare maji nevizualniho predka TXXForm, kde je prepisovana procedura Loaded). V nekterych pripadech nestaci Screen.Cursor := crMyDefaultCursor, na urcitych mistech stale problikava ten puvodni (napr. border listboxu).
Dekuji za kazdou radu
S pozdravem
Jaro B.
StrToInt z hexadecim hodnoty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 13:16:14
Pridej pred to znak dolaru
b:= StrToInt('$A0');
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.5.2002 Peter Surovy:
> Ahoj
> b:= StrToInt('A0');
> ohlasi ze A0 nie je integer value.Preco?
> Ako prevediem nieco co som vyrobil
> pomocou skratenia IntToHex napr:
> colr:=IntToHex(Col,8);
> colr_pom:= Copy(colr,7,2);
> spat na integer?
> Dik
> Peter Surovy
StrToInt z hexadecim hodnoty
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.5.2002 13:17:28
> b:= StrToInt('A0');
> ohlasi ze A0 nie je integer value.Preco?
protoze A0 skutecne neni cislo... aby to bylo ciso, muselo by to byt
$A0. ;-)
tedy zkus:
b:= StrToInt('$' + 'A0');
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Sender: TObject name
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.5.2002 13:32:07
Myslim, ze je to naprosto jedno. Operator "is" pouziva InheritesFrom a
jedniny rozdil je v tom, ze InheritesFrom je pouzitelna i na class,
nepotrebuje mit instanci.
Viz Help:
Note: The is and as operators use InheritsFrom in their implementations.
The is operator, however, can only determine the inheritance
relationship of an instance. As a class method InheritsFrom can
determine the relationship of class references.
Petr Fejfar wrote:
>
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
>
> > if Sender is TMyObjekt then
> > with TMyObjekt (Sender) do
>
> Vzhledem k tomu, co puvodni tazatel potreboval, je spravnejsi testovat
> predka, ktery zavadi pozadovany atribut, tedy
>
> if Sender.InheritesFrom(....) then
>
> bye, pf
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
FB a poradove cislo v insert
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 13:35:38
> insert into firmy (por,firma) values (max(por)+1,'firma');
insert into firmy
(por,
firma)
values
((select max(por) from firmy) + 1,
'nova firma')
/*
nebo
((select max(por) + 1 from firmy),
'nova firma')
*/
bez zaruky
peca
report
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.5.2002 13:36:27
> Muzete poradit nejaky opravdu dobry report pro CLX aplikace?
mozna: http://www.sinea(tec)cz
dekuji PeC(zv)
FB a poradove cislo v insert
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 24.5.2002 13:47:41
no takhle mi to neslo prave
co mi slo tak tohle:
insert into firmy(por,firma) select max(por),'sdfsfdg' from firmy;
bez VALUES !!
Milos
-----Original Message-----
From: Petr Palicka [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr
Palicka
Sent: Friday, May 24, 2002 1:36 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: FB a poradove cislo v insert
> insert into firmy (por,firma) values (max(por)+1,'firma');
insert into firmy
(por,
firma)
values
((select max(por) from firmy) + 1,
'nova firma')
/*
nebo
((select max(por) + 1 from firmy),
'nova firma')
*/
bez zaruky
peca
IB: Object xxx is in use
[*] Rado Benc <bego(zv)pobox.sk> - 24.5.2002 13:56:33
Roland Turcan wrote:
> A co sa stane ak to pretecie ? Ako sa k tomu citacu dostanem ?
Nieco taketo:
E:\Program Files\Firebird\bin>isql f:\data\test.gdb -u sysdba -pass
masterkey
Database: f:\data\test.gdb, User: sysdba
SQL> CREATE VIEW "VIEW_TABLE_VERSIONS" (
CON> "TABLE_NAME",
CON> "TABLE_VERSION"
CON> ) AS
CON> SELECT
CON> RDB$RELATION_NAME, COUNT(F.RDB$FORMAT)
CON> FROM
CON> RDB$RELATIONS R
CON> LEFT JOIN RDB$FORMATS F
CON> ON (R.RDB$RELATION_ID = F.RDB$RELATION_ID)
CON> WHERE (R.RDB$RELATION_NAME NOT LIKE 'RDB$%')
CON> GROUP BY R.RDB$RELATION_NAME
CON> ;
Takze co to tam mame...
SQL> SELECT * FROM VIEW_TABLE_VERSIONS;
TABLE_NAME TABLE_VERSION
=============================== =============
ACCOUNT 1
CASHFLOW 1
T1 1
T2 1
SQL> SELECT * FROM T1;
ID TYPE_ID
===================== =====================
1 1
2 1
3 2
Mame tabulku s dvoma polami, kedze chceme zvysit cislo verzie, pridame
stlpec:
SQL> ALTER TABLE T1 ADD FOO VARCHAR(10);
SQL> SELECT * FROM T1;
ID TYPE_ID FOO
===================== ===================== ==========
1 1 <null>
2 1 <null>
3 2 <null>
SQL> SELECT * FROM VIEW_TABLE_VERSIONS;
TABLE_NAME TABLE_VERSION
=============================== =============
ACCOUNT 1
CASHFLOW 1
T1 2
T2 1
SQL>
Funguje.
HTH,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
Databaze MS Access & Delphi
[*] "Netu�il, Roman, Ing." - 24.5.2002 13:59:02
Diky za odpoved,
jesti muzes, posli mi to.
P.S.?
A co Query?
-----Original Message-----
From: Rumcajs [mailto:prajz.rumcajs(zv)quick(tec)cz]
Sent: Friday, May 24, 2002 1:07 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Databaze MS Access & Delphi
TKaDaoDatabase a TKaDaoTable - muzu poslat ...
Rumcajs
> Panove,
> chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS
Accessu
> jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
>
> Roman
>
OpenSSL
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 24.5.2002 14:23:54
> Nejvice informaci jsem vsak o OpenSSL nasel pres Google. ;-)
>
> BTW: nevite nekdo o prohlizeci MAN napoved pod windows???
man - (www.cygwin.com)
Nativne pro W o nicem nevim.
Luf
OT: Windows XP Home Edition vs. Windows XP Profess
[*] Gallina Lukas <Lukas.Gallina(zv)cz.danzas(tec)com> - 24.5.2002 14:43:32
Ahoj:
> 1) ze u XP home se neda zaheslovat sdileny adresar.
To je nesmysl. Jde to jako ve Windows 98.
> 2) ze se XPhome nedokaze prihlasit do domeny.
To je pravda. Nicmene je faktem, ze kdyz budes mit stejnou skupinu jako je
jmeno domeny...resp domena se jmenuje v netbios nazvu napr "domena" (v
activedirectory napr domena.firma(tec)cz), tak nastavis WinXP do workgroupy
"domena". V AD vytvoris jmeno uzivatele napr "Pepa" a das mu stejne heslo a
tohoto uzivatele udelas i v XP homech. Pak, kdyz se prihlasi a bude chtit
pouzit nejaky prostredek serveru ci stanice v AD, ackoliv defakto stoji mimo
domenu, je overen a ma k nemu pristup.
Jedinne o co samozrejme prichazis timto postupem jsou moznosti AD jako je
distribuce SW, vetsi bezpecnost, logon skripty a samozrejme s tim mas vic
prace.
> P.S. Nevite jestli jeste existuje moznost tzv. Downgrade, t.j. prejit
> bezplatne z OEM XP home na W98 ? Vim ze cesta z 98 na 95 byla oficialne
> mozna.
Downgrade nevim jestli jeste plati, ale donedavna platilo, bylo popsano na
MS strankach.
S pozdravem
Luk� Gallina
ITOS
DANZAS a.s. (fili�lka Brno)
Brn�nsk� 840
664 42 Mod�ice
+420 604 226812
lukas.gallina(zv)cz.danzas.com
>Douf�m, �e odchoz� zpr�va neobsahuje viry.
Neobsahuje :)
Vyuzitie unicodu pri pisani na canvas
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.5.2002 14:52:33
> prosim vas vedel by ma niekto nakopnut ake funkcie existuju pre subj?
> Potrebujem pisat na canvas podobnou fce ako je Canvas.TextOut
napriklad DrawTextW:
var
Text: WideString;
DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), ...);
HTH
TOndrej
Delphi a ORACLE
[*] Martin Chaloupka <Martin.Chaloupka(zv)gmx(tec)net> - 24.5.2002 14:58:47
> Zajimalo by me zda jde tako ve spojeni nejak zabezpecit (napr. SSL)?
>
> Dik Ruda.M
Nevim, jestli odosel muj posledni mail, nejak mi to spadlo - takze jeste
jednou.
Vse o zabezpeceni ohledne spojeni Oracle server - klient je v
Oracle Advanced Security Administrator�s Guide.
S pozdravem Martin Chaloupka
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
Typ record a default hodnoty pro members
[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 24.5.2002 15:10:42
Ahoj,
nevite nahodou nekdo, jak pri deklaraci typu record nastavit vychozi
hodnoty pro jeho prvky ?
napr:
type
TMyRecord = record
MyStr: string = 'ahoj';
MyInt: integer = 10;
end;
->toto samozrejme compiler nebere :(( PaS.
Typ record a default hodnoty pro members
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2002 15:16:28
Ahoj,
> nevite nahodou nekdo, jak pri deklaraci typu record nastavit vychozi
> hodnoty pro jeho prvky ? napr:
>
> type
> TMyRecord = record
> MyStr: string = 'ahoj';
> MyInt: integer = 10;
> end;
****Tohle nejde.
Slavek
> PaS.
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Typ record a default hodnoty pro members
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2002 15:24:54
Uvedom si, ze deklarujes novy typ promenne, ne primo promennou.
Na rozdil od objektu, record nema zadne metody, inicializacni cast
apod. Takze to nejde.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.5.2002 Sommer Pavel:
> Ahoj,
> nevite nahodou nekdo, jak pri deklaraci typu record nastavit vychozi
> hodnoty pro jeho prvky ?
> napr:
> type
> TMyRecord = record
> MyStr: string = 'ahoj';
> MyInt: integer = 10;
> end;
Tuhnuti ImageListu na P4
[*] Pavel Kral <kral(zv)zoner(tec)com> - 24.5.2002 15:28:24
Zatim vim o dvou pocitacich P4 (1.6 a 1.8 GHz), oba Win98.
Zkousel jsem Update OS, ale nepomohlo to.
Update D5 taky nepomohl.
Jednoduchy priklad - na formulari nic neni a pri prvnim volani
tohoto prikazu to vytuhne. V D5 jsem zatim do zdrojaku DBGridu
nelezl, v D3 to vytuhlo uvnitr TImageListu pri pridavani ikonek,
ktere se zobrazuji ve sloupci ukazatele.
Pavel
> > Prosty prikaz vytuhne (v D5):
> >
> > Grid := TDBGrid.Create(self);
>
> To je divny, a kde presne a co se stane. Deje se tak na vice ruznych
> pocitacich ?
>
> > Myslis, ze pomuze update D5?
>
> Update #1 je nezbytnou nutnosti, stejne tak jako i jine updaty.
>
> Petr Vones
>
>
Tuhnuti ImageListu na P4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2002 15:33:09
From: "Pavel Kral" <kral(zv)zoner.com>
> Jednoduchy priklad - na formulari nic neni a pri prvnim volani
> tohoto prikazu to vytuhne. V D5 jsem zatim do zdrojaku DBGridu
> nelezl, v D3 to vytuhlo uvnitr TImageListu pri pridavani ikonek,
Tak to zkus krokovat v D5.01 na urovni zdrojaku VCL a pokud mozno na NT
systemu. Maji ty pocitace neco spolecneho, napriklad videokarta ? Take by mela
byt nastavena rozumna barevna hloubka, tedy alespon 16bit - HighColor. Muze to
mit totiz spojitost s driverem videokarty.
Petr Vones
Typ record a default hodnoty pro members
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2002 15:34:13
From: "Sommer Pavel" <PSommer(zv)cpoj(tec)cz>
> nevite nahodou nekdo, jak pri deklaraci typu record nastavit vychozi
> hodnoty pro jeho prvky ?
Musis pouzit konstantu ktera bude typu toho recordu, dale viz help.
Petr Vones
Formulator
[*] Petr Jandik <petr.jandik(zv)openone(tec)cz> - 24.5.2002 15:34:10
Dobry den,
nevite nekdo, jestli pro Delphi existuje nejaky "formulator"?
Potrebuji dosahnout toho, aby si uzivatel mohl za behu programu nasazet
kontrolky na formu a priradil jim sloupce v datasetu, do nehoz se pak
budou insertovat.
Neexistuje na to nejaka komponenta nebo neco?
S pozdravem,
Petr Jandik
FB a poradove cislo v insert
[*] Rado Benc <bego(zv)pobox.sk> - 24.5.2002 15:43:02
Sula Milos wrote:
> Cau
> mam aplikaci kde vkladam vety do FB tabulky, ktera ma sloupec s
> poradovymi cisly jednotlivych vet. Da se vlozit primo do insert
> aby mi to naslo maximalni hodnotu por a pricetlo 1 ?
> napr.
>
> insert into firmy (por,firma) values (max(por)+1,'firma');
To nerob.
Vo viacuzivatelskom prostredi to nebude fungovat, resp. bude dochadzat
ku koliziam - kazdy klient moze vidiet ine max (naozaj, naozaj je to
tak :-)).
Pouzi generator.
Priklad:
Majme tabulku:
CREATE TABLE "T2"
(
"ID" NUMERIC(10, 0) NOT NULL,
"NAME" VARCHAR(80),
PRIMARY KEY ("ID")
);
Chcem, aby ID bolo jedinecne cislo, jednoznacne urcujuce vetu v
tabulke. Vytvorim generator:
SQL> CREATE GENERATOR GEN_TEST;
A potom:
SQL> INSERT INTO T2 VALUES(GEN_ID(GEN_TEST, 1), NULL);
SQL> INSERT INTO T2 VALUES(GEN_ID(GEN_TEST, 1), NULL);
SQL> INSERT INTO T2 VALUES(GEN_ID(GEN_TEST, 1), NULL);
SQL> SELECT * FROM T2;
ID NAME
===================== =====================
1 <null>
2 <null>
3 <null>
SQL>
HTH,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
Vyvoj BDE (konecne) zmrazen
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.5.2002 16:43:09
> Dalsim problem bude i napojeni na prekladace (db ma vlastni typy,
> provadi typovou kontrolu,...), zatim vse co jsem videl (pripadne s tim
> pracoval) melo vlastni vyvojove prostredi.
ano, myslim si, ze toto je najvecsi problem a to nielen s objektovymi
databazami ale vobec s OOP. Jednak vecsina OOP jazykov implementuje
len redukovanu podmnozinu OOP vlastnosti a i to, co tam je k dispozicii
je urobene velmi casto nedosledne (t.j. obchadzaju sa zasady OOP,
typicky je mozne priamo priradovat hodnoty atributom objektov,
co je v protiklade so zapuzdrenim a pod.). Co jazyk, to samozrejme
iny, nekompatibilny objektovy model. V tomto smere snad .Net
moze priniest vyraznejsi pokrok.
Co sa tyka OOP databazy, tak tam vyhodu (a snad aj nevyhnutnost)
by som videl prave v tom integrovat tuto databazu s kvalitnym
OOP jazykom. Pricom by bolo zrejme vyhodne mat moznost
do databazy ukladat nielen stav objetu ale jeho spravanie.
Porovnavat OOP a relacne databazy je dost komplikovane,
jednak OOP databazy nie su dnes zdaleka tak prepracovane
ako relacne na druhej strane poskytuju daleko viac moznosti,
hlavne ak je vela komplikovanych vezieb medzi udajmi
alebo je velka roznorodost udajov.
Erik
Databaze MS Access & Delphi
[*] Martin Cajbik <cajbik(zv)sct.sk> - 24.5.2002 16:48:23
Jednou z moznosti je aj pristup cez ODBC pomocou ODBCe
http://www.sct.sk/soft/ODBCe.exe
MarCaNT (marcant(zv)sct.sk)
> Panove,
> chtel bych se dotazat, zda lze nejakym zpusobem pouzivat databazi MS
Accessu
> jako zdoj dat pro aplikace Delphi 6 bez pouziti BDE. Pripadne jak na to.
>
> Roman
>
>
SQL: Proc ?
[*] Delphin <delphin(zv)post(tec)cz> - 24.5.2002 17:32:41
protoze mam generator na export a tisk dat, kteremu predam jako parametr
TQuery, uzivatel ma moznost menit vyber a ja pochopitelne neznam puvodni
nazvy. Analyzovat sql se mi nechce a do property filter nektere podminky dat
nejdou.
Zatim jsem to vyresil zmenou dotazu na jiz zminene:
select *
from (select Firma as Dodavatel_Firma from Dodavatel) A
where Dodavatel_Firma = '1'
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 24, 2002 11:02 AM
Subject: RE: SQL: Proc ?
a proc nepouzijes:
select firma as dodavatel_firma
from dodavatel
where firma='1'
???
jedna vec je prejmenovani sloupce a
druha vec je vyhodnoceni podminky na tabulkou.
prijde mi logicke, ze server podminku vyhodnoti
drive, nez prejmenuje sloupce. v order by to
funguje mozna pro to, ze order by se provadi
jako posledni operace s mnozinou (imho).
dekuji peca