Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Connectiva na internet podruhee
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 1.1.2003 13:59:29
Nejde mi tak ani o to jestli jsem pripojen pres LAN,PROXY ci DIALUP...
Jde mi o to zjistit jestli pripojen jsem a jestli nejsem...neni to nekde v
registrech....?
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Connectiva na internet podruhee
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 01.1.2003 14:08:38
> Nejde mi tak ani o to jestli jsem pripojen pres LAN,PROXY ci DIALUP...
> Jde mi o to zjistit jestli pripojen jsem a jestli nejsem...neni to nekde v
> registrech....?
To je prave to... DIALUP zjistis pres to RAS API. V pripade pripojeni
pres router to muzes zkusit zjistit treba pres SNMP z toho routeru.
Jinak ti nezbyva nez zkouset existujici konektivitu pomoci PINGu n
nejakou adresu, o ktere vis ze se nachazi na internetu a ze funguje. Coz
neni zrovna bezproblematicke... :-(
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Connectiva na internet podruhee
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 1.1.2003 14:19:31
mno to je hnusnyyy...dial a proxy jsem zjistil...ale LAN....pip pip pip....
Kdyz to nevis ani to ty Gebiku,tak to jsem asi v PIP a PIP a PIP..... mno
ten ping me taky napadl....ale nic nefunguje neustale ze?
Jak to resi treba drahy autor GateKeeperu Jakub Dusek??
Gebiik pise:
>
> > Nejde mi tak ani o to jestli jsem pripojen pres LAN,PROXY ci DIALUP...
> > Jde mi o to zjistit jestli pripojen jsem a jestli
> nejsem...neni to nekde v
> > registrech....?
>
> To je prave to... DIALUP zjistis pres to RAS API. V pripade pripojeni
> pres router to muzes zkusit zjistit treba pres SNMP z toho routeru.
>
> Jinak ti nezbyva nez zkouset existujici konektivitu pomoci PINGu n
> nejakou adresu, o ktere vis ze se nachazi na internetu a ze funguje. Coz
> neni zrovna bezproblematicke... :-(
>
>
Connectiva na internet podruhee
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 1.1.2003 17:26:44
----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>> mno to je hnusnyyy...dial a proxy jsem zjistil...ale LAN....pip pip
pip....
> Kdyz to nevis ani to ty Gebiku,tak to jsem asi v PIP a PIP a PIP..... mno
> ten ping me taky napadl....ale nic nefunguje neustale ze?
> Jak to resi treba drahy autor GateKeeperu Jakub Dusek??
Ahoj.
IMHO pokud je ten komp na pevny lajne tak netreba testovat cili resenim je
nastaveni v setupu (Zjistovat/Nezjistovat pripojeni)
Primy Dial-Up nejni problem.
Zustava prusvih pri pripojeni prez proxy, ktera sama pouziva Dial-Up - tady
asi nezbyva nez vybrat si omezeny pocet podporovanych proxyserveru zvolit v
setupu a pro kazdej to nejak individualne zjistit (hodne jich ma www
rozhrani a tam se to da "precist" ovsem nejni to nic moc pohodlne)
Jinak v tomhle pripade je myslim i ten ping na prd anzto pokud bude
nastaveno automaticke vytaceni pri pristupu na INET pak pingnes - nic se ti
nevrati (pro Tebe = nepripojeno) jenze tim uplne zbytecne rozjedes na
proxyne Dial-UP pripojeni. Dalsi problem je ten, ze pri urcitem nastaveni
(hlavne u klasickych proxyn, ktere nemaji NAT) vlastne ani ze stanice ping
neprojde, takze tady narazis. Dalsi moznosti by tedy bylo umistit nekde na
dobre dostumnem www serveru svoji stranku (nastavit tam v hlavickach
"no-cashe") a testovat jeji dostupnost (dyztak napis ja ti ji nekam k sobe
strcim). Ale to zase muze zbytecne startovat automaticky Dial-Up.
Takze se nda nic delat, musis zasednout a napsat si sevices, ktere bude
bezet na proxyne a (treba) po TCP se ji zeptas jestli je nastartovan
Dial-UP. Konec koncu muzes to takhle pak pouzivat i na lokale.
Vsem hodne stetsti a zdarvi v Novem PRACOVNIM roce (zase nam tu Sportku holt
nevytahli)
Ludek
Spojeni tabulek v Delphi a rychlost
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 02.1.2003 08:10:55
> select
> PALETY.*,ARTIKL.ART_SKUPINA,ARTIKL.DRUH_LAHVE
> from PALETY left join ARTIKL on
> (PALETY.ART_CISLO=ARTIKL.ART_CISLO)
> where ARTIKL.DRUH_ARTIKLU=:DRUH_ARTIKLU
> order by
> PALETY.ART_CISLO,PALETY.ART_DATE1,PALETY.ART_DATE2
>
>
> PALETY maj cca 8000 polozek a index
> ART_CISLO,ART_DATE1,ART_DATE2, ARTIKL ma cca 30
> polozek a index ART_CISLO.
Ahoj,
pocet vet v tabulce je velmi maly, takze v tomto pripade snad nemuze byt left join
problem. Zkusil bych si jeste pohrat s indexy:
1) ORDER BY obvykle nepouziva indexy, takze indexy na datumy jsou tu asi
zbytecne (ale snad neprekazeji)
2) Zvazil bych pridani indexu na ARTIKL.DRUH_ARTIKLU.
Jestlize provedeni dotazu na mistnim pocitaci je skoro hned a na vzdalenem trva pul
minuty, tak nebude problem v SQL dotazu, ale spis v nepruchodnosti site apod. To,
co vazne, asi neni vypocet dotazu, ale doprava vyslednych dat na klienta. Je to jen
muj odhad, ale treba neni uplne mimo.
David Lebeda
zdojovani radku v DBGridu
[*] martin.kubis(zv)volny(tec)cz - 02.1.2003 09:53:53
Ne to ne, je tam primarni klic. Jde o to,ze se v Gridu zobrazuji
stejne zaznamy vickrat i kdyz jsou v DB pochopitelne jen jednou.
Nevim jakym zpusobem grid ty data od ODBC dostava, ale myslim, ze
je chyba tam. Je mozne aby to takhle divne fungovalo? Nevim co s
tim. Dekuju za jakoukoliv radu.
-----Original Message-----
From: Jan Sebel=EDk [mailto:honza(zv)haes(tec)cz]
Sent: Monday, December 30, 2002 2:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: zdojovani radku v DBGridu
> zobrazuji v Gridu (TDBGrid). To funguje OK. Kdyz vsak v Gridu
> chvilku scrolluju, tak se najednou zacnou objevovat nektere
> zaznamy dvakrat i vickrat (Najednou je v gridu nekolik
> identickych radku - coz je nesmysl) Taky jsem si vsiml, ze kdyz
Ja bych si (mozna nespravne) tipnul, ze tam neni primarni klic.
A do Accessu bych spise zkusil ADO nez BDE+ODBC.
Honza
Prichozi hovor
[*] Vlastimil Zdenek <gestore(zv)wo(tec)cz> - 2.1.2003 10:30:29
Zdravim vsechny!
Uz jsem se na to jednou ptal, ale nikdo nereagoval tak PROSIM jeste jednou:
Mam ISDN ustrednicku a chtel bych hlidat prichozi hovory. Chtel bych, aby mi
program (funkce) automaticky rekl, ze "nekdo" vola a ktere cislo prave
vola.... Pry nejak pres TAPI, ale nikdy jsem s tim nedelal....
Nejlepsi by byl prikladek se zdrojem, to by bylo vyborny!
Diky moc Vlasta
D5Enterprise, NT4.0, SQL7.0
ANN: Synapse rel. 30
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 02.1.2003 11:26:17
Dovolte, abych upozornil na novorocni vydani Synapse.
Novinkami jsou:
- mnoho oprav chyb.
- optimalizace jak rychlosti, tak i spotreby pameti.
- predelany DNS klient. (nyni umi jak UDP, tak i TCP,... umi delat
zonove transfery, atd.)
- Telnet klient. Nevizualni! Zadne okno s terminalem! Je to
skriptovaci klient, tady abyste se treba na dalku nekam pritelnetil a
tam neco na dalku treba spustili, nebo tak nejak.
- Nova unita SynaMisc s ruznymi uzitecnymi funkcemi, jako treba
autodetekce aktualniho DNS serveru, autodetekce nastaveni proxy,
volani Wake-on-lan... a casem snad i neco navic.
Uzijte si novy rok ve zdravi!
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Popis funkci nebo hlavickovy soubor Imapi.h
[*] virt(zv)volny(tec)cz - 02.1.2003 12:02:09
Ahoj,
nemate nekdo pristup k hlavickovym souborum SDK "Image Mastering
API" (IMAPI).Jsou to nove funkce API WinXP slouzici k vypalovani
CD.Funkce a struktury funkci mam stazeno z msd.microsoft , ale
nevim z jakych knihoven jsou portovany?
Dekuji
Jiri Virt
email: virt(zv)volny(tec)cz
Popis funkci nebo hlavickovy soubor Imapi.h
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 2.1.2003 12:17:02
> nemate nekdo pristup k hlavickovym souborum SDK "Image Mastering
> API" (IMAPI).
Mam.
> Jsou to nove funkce API WinXP slouzici k vypalovani
> CD.Funkce a struktury funkci mam stazeno z msd.microsoft , ale
> nevim z jakych knihoven jsou portovany?
To IMHO ani nepotrebujes vediet, su to totiz COM interfacy. V MSDN pisu, ze
v aplikacii si potrebujes vytvorit instanciu MSDiscMasterObj pomocou
CoCreateInstance (potrebne CLSID je deklarovane prave v imapi.h), a potom uz
pracujes s IDiscMaster a jeho metodami. Precitaj si "Using the Image
Mastering API" v Platform SDK alebo MSDN.
Zial, nemam XP, neviem to vyskusat.
HTH
TOndrej
Connectiva na internet podruhee
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 2.1.2003 12:27:15
V pohode,vyresil jsem to konfiguraci na strane klienta...at si to kazde
nastavi jak potrebuje ne?:-)))Kdyz je PIP tak mu to asi nepujde a je to j=
eho
problem...
uz je to i otestovano v podnikove siti i na proxy...
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
> -----Puvodn=ED zpr=E1va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]za u=9Eivatele Ludek ZITA
> Odesl=E1no: 1. ledna 2003 17:27
> Komu: delphi-l(zv)clexpert(tec)cz
> Predmet: Re: Connectiva na internet podruhee
>
>
> ----- Original Message -----
> From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
>
> > mno to je hnusnyyy...dial a proxy jsem zjistil...ale LAN....pip pip
> pip....
> > Kdyz to nevis ani to ty Gebiku,tak to jsem asi v PIP a PIP a
> PIP..... mno
> > ten ping me taky napadl....ale nic nefunguje neustale ze?
> > Jak to resi treba drahy autor GateKeeperu Jakub Dusek??
>
> Ahoj.
> IMHO pokud je ten komp na pevny lajne tak netreba testovat cili resenim=
je
> nastaveni v setupu (Zjistovat/Nezjistovat pripojeni)
> Primy Dial-Up nejni problem.
> Zustava prusvih pri pripojeni prez proxy, ktera sama pouziva
> Dial-Up - tady
> asi nezbyva nez vybrat si omezeny pocet podporovanych
> proxyserveru zvolit v
> setupu a pro kazdej to nejak individualne zjistit (hodne jich ma www
> rozhrani a tam se to da "precist" ovsem nejni to nic moc pohodlne)
> Jinak v tomhle pripade je myslim i ten ping na prd anzto pokud bude
> nastaveno automaticke vytaceni pri pristupu na INET pak pingnes -
> nic se ti
> nevrati (pro Tebe =3D nepripojeno) jenze tim uplne zbytecne rozjedes na
> proxyne Dial-UP pripojeni. Dalsi problem je ten, ze pri urcitem nastave=
ni
> (hlavne u klasickych proxyn, ktere nemaji NAT) vlastne ani ze stanice p=
ing
> neprojde, takze tady narazis. Dalsi moznosti by tedy bylo umistit nekde=
na
> dobre dostumnem www serveru svoji stranku (nastavit tam v hlavickach
> "no-cashe") a testovat jeji dostupnost (dyztak napis ja ti ji nekam k s=
obe
> strcim). Ale to zase muze zbytecne startovat automaticky Dial-Up.
>
> Takze se nda nic delat, musis zasednout a napsat si sevices, ktere bude
> bezet na proxyne a (treba) po TCP se ji zeptas jestli je nastartovan
> Dial-UP. Konec koncu muzes to takhle pak pouzivat i na lokale.
>
> Vsem hodne stetsti a zdarvi v Novem PRACOVNIM roce (zase nam tu
> Sportku holt
> nevytahli)
>
> Ludek
>
>
Hak na telefonicke pripojeni
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 2.1.2003 12:34:21
Nevite jak udelat hak na telefonicke pripojeni?zatim to testuju timerem a to
se mi moc nelibi..
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Problem s funkci
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 2.1.2003 14:34:42
Jedinnou moznosti je prejit od recordu k objektum.
Co ziskas:
jednotne ruseni, moznost parametrickeho vytvareni (staci si predat =
ClassType a podle toho lze vytvorit instanci daneho typu),
moznost logicke hiearchie potomku.
Co stratis:
jednoduchost deklarace (objekty nutno bytvaret a rusit), moznost =
prirazeni mezi sebou.
Ja obvykle pouzivam objekty, pripadne record schovany v objektu (kvuli =
assign).
Na spravu je asi nejvhodnejsi TObjectList (na rozdil od TListu umi =
objekty automaticky uvolnovat).
Slavek
> Zdrav=EDm,
> doposud jsem nize zminovanou deklaraci pouzival v tomto tvaru:
>=20
> Type
> Tpuvodni1 =3D record
> cislo: integer;
> Nadpis:string;
> Text: string;
> end;
>=20
> Tpuvodni =3D array of Tpuvodni1;
>=20
> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
>=20
>=20
> Pro ka=BEd=FD nov=FD z=E1znam(ve kter=E9m uberu polozku napr. =
"Nadpis") mus=EDm tedy
> vytv=E1=F8et novou funkci?
> Nejde to udelat jinak?
zdojovani radku v DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 02.1.2003 15:54:29
> Ne to ne, je tam primarni klic. Jde o to,ze se v Gridu zobrazuji
> stejne zaznamy vickrat i kdyz jsou v DB pochopitelne jen jednou.
> Nevim jakym zpusobem grid ty data od ODBC dostava, ale myslim, ze je
> chyba tam. Je mozne aby to takhle divne fungovalo? Nevim co s tim.
Ahoj,
tohle se mi driv stavalo, kdyz jsem pouzival komponentu TTable.
Pravda, proti MSSQL serveru, ale IMHO je problem v komponente.
Pokud ji opravdu pouzivas, zkus treba pouzit TQuery pripadne jiny
pristup (bez BDE apod.) Nepamatuji si na zacatek diskuze, nevim,
jake komponenty pouzivas.
David Lebeda
zdojovani radku v DBGridu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 02.1.2003 16:03:23
On 2 Jan 2003 at 15:54, Lebeda David wrote:
> tohle se mi driv stavalo, kdyz jsem pouzival komponentu TTable.
> Pravda, proti MSSQL serveru, ale IMHO je problem v komponente.
> Pokud ji opravdu pouzivas, zkus treba pouzit TQuery pripadne jiny
> pristup (bez BDE apod.) Nepamatuji si na zacatek diskuze, nevim, jake
> komponenty pouzivas.
Mne se to stavalo i s TQuery. Chyba je ve spolecnem predku TTable a
TQuery.
S pozdravem
Zbysek Hlinka
zdojovani radku v DBGridu
[*] martin.kubis(zv)volny(tec)cz - 02.1.2003 16:11:06
No tak to je super :-( A nenapada nekoho z vas nejake uspokojive
reseni? TTable pouzivam a TQuery taky, ale nemuzu se jich zbavit
mam jich v projektu snad 30 :-( Please zkuste nekdo vymyslet
nejake reseni (klidne i nejakou prasarnu) je mi to jedno.
Uzivateli dochazi trpelivost... :-(
Predem dik za neco podnetneho.
On 2 Jan 2003 at 15:54, Lebeda David wrote:
> tohle se mi driv stavalo, kdyz jsem pouzival komponentu TTable.
> Pravda, proti MSSQL serveru, ale IMHO je problem v komponente.
> Pokud ji opravdu pouzivas, zkus treba pouzit TQuery pripadne
jiny > pristup (bez BDE apod.) Nepamatuji si na zacatek diskuze,
nevim, jake > komponenty pouzivas.
Mne se to stavalo i s TQuery. Chyba je ve spolecnem predku TTable
a TQuery.
S pozdravem
Zbysek Hlinka
zdojovani radku v DBGridu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 02.1.2003 16:27:47
On 2 Jan 2003 at 16:11, martin.kubis(zv)volny(tec)cz wrote:
> No tak to je super :-( A nenapada nekoho z vas nejake uspokojive
> reseni? TTable pouzivam a TQuery taky, ale nemuzu se jich zbavit
> mam jich v projektu snad 30 :-( Please zkuste nekdo vymyslet
> nejake reseni (klidne i nejakou prasarnu) je mi to jedno.
> Uzivateli dochazi trpelivost... :-(
Mne dosla trpelivost tak, ze jsem tohle cele zahodil a program
prepsal. :-( V dusledku me to stalo mene prace nez obchazet a
osetrovat uvedenou chybu.
S pozdravem
Zbysek Hlinka
zdvojovani radku v DBGridu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 2.1.2003 16:41:05
Necetl jsem zacatek a tak nevim jiste, jestli je to to, co se stavalo mi.
Ale mi to nedelalo, pokud to bylo cachovane query. Takze jsem si nastavil
CachedUpdates na True a do AfterPost a AfterDelete jsem dopsal ApplyUpdates
a CommitUpdates a tim mi to prestalo zlobit.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of martin.kubis(zv)volny(tec)cz
No tak to je super :-( A nenapada nekoho z vas nejake uspokojive
reseni? TTable pouzivam a TQuery taky, ale nemuzu se jich zbavit
mam jich v projektu snad 30 :-( Please zkuste nekdo vymyslet
nejake reseni (klidne i nejakou prasarnu) je mi to jedno.
Uzivateli dochazi trpelivost... :-(
Predem dik za neco podnetneho.
zdojovani radku v DBGridu
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 2.1.2003 16:44:30
martin.kubis(zv)volny(tec)cz, <mailto:martin.kubis(zv)volny(tec)cz>:
mkvc> Kdyz vsak v Gridu
mkvc> chvilku scrolluju, tak se najednou zacnou objevovat nektere
mkvc> zaznamy dvakrat i vickrat
Zkus v TDataSet.AfterScroll vyvolat TDBGrid.Refresh (Update, Repaint).
Cely grid by se tim mel prekreslit.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
zdojovani radku v DBGridu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 2.1.2003 17:23:12
> Mam tabulku (TTable) s nastavenym filtrem (property Filter) K
> tomu odpovidajici dataset (TDataSet). Vysledek filtrovani
> zobrazuji v Gridu (TDBGrid). To funguje OK. Kdyz vsak v Gridu
> chvilku scrolluju, tak se najednou zacnou objevovat nektere
> zaznamy dvakrat i vickrat (Najednou je v gridu nekolik
> identickych radku - coz je nesmysl) Taky jsem si vsiml, ze kdyz
> scrolluju kurzorovyma sipkama, tak smerem dolu projdu treba pres
> 100 zaznamu, pak jedu nahoru a najednou jsem nazacatku i kdyz
> jsem projel jen pres 20 zaznamu. Tohle mi dost vadi, protoze
> potrebuju v gridu multiselectovat par radku a s nima neco
> delat,ale multiselect je za techto podminek prakticky nemozny.
> Kdyz prochazim radky programove {Bookmarkama) tak se mi to
> zdvojuje (znasobuje) taky! Mam pocit, ze je to horsi, pokud mam
> zaznamy serazene podle pole ve krerem jsou polozky s diakritikou.
> Ono mi to razeni s diakritikou vubec nejak divne
> (nedeterministicky) funguje.
>
> Pouzivam BCB6, databaze je v Accessu2k, pristujupu pres ODBC,
> pomoci komponent, ktere jsem uvedl v textu.
Pripada mi to ako problem s unikatnym identifikovanim viet. Takto nejako
divne sa spravaju datasety nad tabulkami, ktore nemaju primarny kluc alebo
iny sposob ako unikatne identifikovat vety.
Kedze v dalsej sprave si napisal, ze Tvoja tabulka primarny kluc ma, ide
pravdepodobne o chybu alebo nekompatibiltu niekde medzi BDE / ODBC / ADO /
Access.
Na Borlandovskych newsgroupoch je niekolko diskusii o podobnych problemoch,
skus tam pohladat. Ja som tam narychlo nasiel dva navrhy, ktore by mohli
stat za pokus:
Skus nastavit IndexName na meno unikatneho (napriklad primarneho) kluca,
alebo skus nastavit IndexFieldNames na meno pola ci poli, ktore tvoria
primarny kluc. (Niekde som tusim cital, ze Access vyzaduje, aby primarny
kluc mal nazov 'PrimaryKey', ale nemam to overene, nepouzivam Access.)
Skus sa v nastaveniach BDE pohrat s jazykovym nastavenim LANGDRIVER, moze to
suvisiet aj s diakritikou.
Moj vlastny napad je: skus pouzit nativny MSACCESS driver namiesto ODBC (za
predpokladu, ze Access 2000 dodrziava aku-taku spetnu kompatibilitu so
starsimi verziami Accessu, pre ktore bol tento BDE driver pisany).
Tiez mozes skusit namiesto TTable a Filter pouzit TQuery, ktora bude dany
filter implementovat v SQL prikaze pomocou klauzuly WHERE.
HTH
TOndrej
Uprava TImage (2. krat)
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 02.1.2003 17:44:49
> > Mam v TImage obrazok. Ako mam spustit mspaint (malovani) a nechat
obrazok v
> > nom upravit bez toho, aby som musel obrazok ukladat na disk? Skusal som
to
> > cez OLE ale akosi mi to nejde. Nakopnite ma prosim.
> V oboch pripadoch sa zmeny pri editacii ukladaju len do vnutornych dat
daneho
> objektu. To znamena, ze su drzane v pameti a pri ukonceni Tvojej aplikacie
su
> znicene, ak ich niekam neuchovas napriklad pomocou metod TOleContainer:
> SaveToFile/SaveToStream. Nacitat ich spet potom mozes cez
> LoadFromFile/LoadFromStream.
Dakujem.
Ked vsak pouzijem TOleContainer.SaveToFile, obrazok sa ulozi do formatu
BDoc. Ako potom mam z toho vydolovat ten obrazok? Alebo je tam vobec?
A za druhe: ked dam TOleContainer.SaveToFile hned po
OleContainer1.DoVerb(ovOpen), tak aj program hned ulozi obrazok po jeho
otvoreni. Ako mam odchytit ukoncenie prace s upravou obrazoku?
Vdaka za kazdu radu.
Prichozi hovor
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 2.1.2003 18:58:16
> Mam ISDN ustrednicku a chtel bych hlidat prichozi hovory. Chtel bych,
aby mi
> program (funkce) automaticky rekl, ze "nekdo" vola a ktere cislo prave
> vola.... Pry nejak pres TAPI, ale nikdy jsem s tim nedelal....
Pomocou TAPI mozes sledovat akurat telefonicke pripojenie siete na tento
pocitac.
Ak chces odpocuvat ISND zbernicu vcetne voice hovorov, musis sa na nu
zavesit cez CAPI adapter a komunikovat s nim cez CAPI driver pomocu CAPI
sprav, vid www.capi.org
> Nejlepsi by byl prikladek se zdrojem, to by bylo vyborny!
Bohuzial som to robil v C-cku a este k tomu pre QNX. Princip je ten, ze
ked niekto vola, pride ti (aj vsetkym ostatnym zariadeniam na ISDN
zbernici) sprava CONNECT_REQ a v nej su tie udaje schovane: kto vola,
ake cislo chce, aky typ spojenia (voice, video, data..). To zariadenie,
ktoremu sprava patri, na nu odpovie.
bye
vmlich http://www.rar(tec)cz
Prichozi hovor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.1.2003 19:00:54
From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> Ak chces odpocuvat ISND zbernicu vcetne voice hovorov, musis sa na nu
> zavesit cez CAPI adapter a komunikovat s nim cez CAPI driver pomocu CAPI
> sprav, vid www.capi.org
Ohledne CAPI a Delphi:
http://home.t-online.de/home/Peter.Zwosta/capiidx.htm
http://www.isdnobjects.de/
Petr Vones
Zkouska pripojeni k inetu a pripadne vyvolani dial
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.1.2003 19:02:37
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Ahoj kluci,mam problem potreboval bych otestovat zda je aktivni pripojeni k
> inetu pripadne nekdy vyvolat pripojeni.Zkousel jsem pouzit winnet fce z
> knihy tipu a triku a to jsem si nabehl,ukoncuje se mi wokno a podobny
> nesmysli,neporadite mi nekdo?Jinak treba je to i v synapsi,tu totiz nasledne
Co presne ? Pripojeni stejne musis vyvolat pres RAS.
Petr Vones
registrace Chart FX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.1.2003 19:03:19
From: "bleak" <bleak(zv)mvesely.com>
> mam aplikaci s komponentou Chart Fx. Prenesl jsem ji na jiny pocitac vcetne
> prislusneho souboru OCX. Po spusteni programu dojde k vyjimce OleSysError -
> trida neni registrovana.
Neni lepsi pouzit VCL komponentu TChart ?
Petr Vones
Detekce vypnuti WIN9x v konzolove aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.1.2003 19:08:44
From: <tyu1(zv)centrum(tec)cz>
> ano, to me taky napadlo a funguje to.
> nezda se mi to vsak dostatecne elegantni s ohledem na setreni
> systemovymi prostredky a taky velikost programu se docela natahne.
Nenatahne, kdyz to napises bez VCL. Ohledne prostredku ti staci jedno 'okno'.
Petr Vones
TCustomForm, Cut, Copy, Paste
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.1.2003 19:11:24
From: "Daniel Dedek" <admin2.ok.prague(zv)embassy.mzv(tec)cz>
> nepriradim do menu ty standardni actions, je vse normalni. Stejne tak vse
> funguje, kdyz je dynam. vytvarenej form odvozenej od TForm.
Vypada to, ze v implementaci akci je nekde pouzita podminka ktera testuje,
zdali je trida odvozena od TForm. Na druhe strane nevidim duvod proc to
odvozujes od TCustomForm.
Petr Vones
MySQL - pripojeni a tazani se v MySQL databazi na
[*] Jan �imeck� - 2.1.2003 19:59:36
Zdravim vsechny ucastniky konference,
potreboval bych poradit zda se da nejakym zpusobem pripojit k databazi na
localhost (pak popripade mysql.webzdarma(tec)cz) z programu vytvorene v delph=
i a
pak se MySQL programu tazat. Poradte mi prosim!
S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan Simeck=FD
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov=E1 b=E1ze: 240 - datum vyd=E1n=ED: 5.12.1985
TreeView a dynamicka data TStrings
[*] <blue22(zv)quick(tec)cz> - 02.1.2003 20:01:37
Resim nasledujici problem:
Mam strukturu dat:
Type
TData =^DataRec;
DataRec = record
Values : TStrings;
Keys : TStrings;
Typ : String;
Caption : String;
Ptr : Pointer;
end;
V hlavnim formulari delam toto prirazeni do
TreeView:
var
MyData : TData;
TN : TTreeNode;
------------------------
procedure TMain.AddStepClick(Sender: TObject);
MyData:=new(TData);
MyData.Values:=TStringList.Create;
MyData.Keys:=TStringList.Create;
...
MyData.Values:=HandleData.Values.Items;
MyData.Keys:=HandleData.Keys.Items;
TN:=MainTree.Items.Add(nil,'Dalsi');
TN.Data:=MyData;
end;
kde Values a Keys jsou listboxy, abych taky neco
videl.
V jine procedure se zeptam na data
procedure TMain.MainTreeDblClick(Sender: TObject);
var TN : TTreeNode;
TD : TData;
begin
HandleData.Keys.Items:=TD.Keys;
HandleData.Values.Items:=TD.Values;
end;
a neni tam nic, TD.Keys.count je 0, jako by tam
nic nebylo..
v cem bude problem ?
Diky Honza
registrace Chart FX
[*] bleak <bleak(zv)mvesely(tec)com> - 2.1.2003 20:42:04
je to 2 roky stary program napsany v D4S. Mam dojem, ze D4S TChart
neobsahuje.
Pro registraci ChartFX staci toto: regsvr32 CFX32.OCX
bleak
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Neni lepsi pouzit VCL komponentu TChart ?
> Petr Vones
DBExpress a SQL Explorer
[*] Sedlak Zdenek <konf(zv)seus(tec)cz> - 2.1.2003 23:19:18
Ahoj,
zabyvam DB aplikacemi a hlavne pouzivam IBX. Nyni se zacinam intezivneji
zajimat o DBExpress kvuli jeho implementaci v Linuxu a take kvuli
dostupnosti driveru pro ruzne db stroje. Vim, ze tady bezelo nekolik diskuzi
na tema pomalosti, vhodnosti ci vyuzitelnosti DBExpressu pro seriozni praci.
Myslim, ze na community.borland.com je nekolik velmi zajimavych clanku
zabyvajicich se obecne ClientDatasetem od Cary Jensena (posledni prispevek
je http://community.borland.com/article/0,1410,29416,00.html a seznam vsech
je http://bdn.borland.com/soapbox/professionaldeveloper/), je to dost
zajimave.
Zacinam mit potrebu vyuziti male nebo lepe jednoduche desktopove db, par
jsem jich zkousel a asi mi nejvice bude vyhovovat SQLite, jsou k ni prave i
DBExpress drivery (docela casto jsou novejsi verze... napr. na
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18385). No a
s tim souvisi ma potreba nebo spise touha mit nejaky nastroj pro DBExpress,
ktery by umoznoval "totez" co SQL Explorer pro BDE. Podarilo se mi najit
jakysi SQL Browser pro DBExpress
(http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16112,
dalsi link http://sourceforge.net/projects/sqlbrowser), ovsem verze 0.9.97
nekdy z roku 2001. Vypada to velmi slibne. Ovsem nejsou tam asi jeste
vsechny veci dotazene a navic se mi zda, ze tento projekt jiz neni
podporovan. Nevite o tom nekdo vice?
Pripadne neznate nejaky dalsi podobny program, ktery by resil totez?
Prosim pokud mate nejake velke problemky s pouzivanim DBExpress a/nebo
SQLite, tak jake? Na co si dat pozor?
diky.
Zdenek Sedlak
MS Word OLE Find&Replace
[*] Roland Turcan <rolo(zv)sedas.sk> - 02.1.2003 23:53:46
Hello Delphi CZ konferencia!
Pouzivam toto:
var WD:TWordDocument;....
WD.Range.Find.Execute(FindText,
VFalse,
VTrue,
VFalse,
VFalse,
VFalse,
VTrue,
EmptyParam,
EmptyParam,
ReplaceW,
ReplaceType
);
Lenze problem je ze ak text ReplaceW je dlhy tak Word zahlasi
exception "Retezcovy parametr je prilis dlouhy." Exception class:
EOleException.
Nikde som sa nedocital ze aka dlzka textu moze byt dosadena do
OLEVariant aby Word vykonal Replace. Ale urcite tam nejake obmedzenie
existuje, ale musim to nejako vyriesit. Rozmyslal som nad takym
niecim, ze by som dal:
1. text vyhladat
2. oznacit najdene
3. prepisat oznacene textom
Ale ako to naprogramovat. Je mi uz z MS Word OLE na grcanie. Pomozte
mi prosim...
--
Best regards, TRoland
MS Word OLE Find&Replace
[*] Roland Turcan <rolo(zv)sedas.sk> - 03.1.2003 01:10:13
<<< 3. 1. 2003 1:07 - Roland Turcan "rolo(zv)sedas.sk" >>>
RT> Nikde som sa nedocital ze aka dlzka textu moze byt dosadena do
RT> OLEVariant aby Word vykonal Replace. Ale urcite tam nejake obmedzenie
RT> existuje, ale musim to nejako vyriesit. Rozmyslal som nad takym
RT> niecim, ze by som dal:
RT> 1. text vyhladat
RT> 2. oznacit najdene
RT> 3. prepisat oznacene textom
RT> Ale ako to naprogramovat. Je mi uz z MS Word OLE na grcanie. Pomozte
RT> mi prosim...
Takze po dlhsej dobe skusania sa mi to predsa len podarilo, a zistil
som ze cez Selection.text je mozne modifikovat len 255 znakov. Takze
"tudy cesta nevede"
Co by ste mi este doporucili?
--
Best regards, TRoland
zdojovani radku v DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 03.1.2003 07:08:08
> No tak to je super :-( A nenapada nekoho z vas nejake uspokojive
> reseni? TTable pouzivam a TQuery taky, ale nemuzu se jich zbavit
> mam jich v projektu snad 30 :-( Please zkuste nekdo vymyslet
> nejake reseni (klidne i nejakou prasarnu) je mi to jedno.
Ahoj,
ja nevim pricinu uvedeneho chovani, pokud nevyhovi nektera z rad
v ostatnich mailech, zkusil bych neco z tohoto:
1) Pokud pouzivas property FIlter, tak ji nepouzivat a misto toho
filtrovat v udalosti OnFilterRecord.
2) Ciste cvicne dotycnou TTable nahradit TQuery. Mne to tenkrat
opravdu pomohlo, ale moznost, ze to v obecnem pripade neresi
problem (jak rika Zbysek), samozrejme neodmitam. Jelikoz nevim,
kde presne je problem.
3) Jde-li o tabulku s neprilis velkym mnozstvim dat (rekneme par
stovek nebo tisic radku, zalezi na jejich sirce), zvazit jejich nacteni
do pametove tabulky (TClientDataset, RxMemoryData apod.). Pri
velkem mnozstvi dat neni problem pametova narocnost (i TTable ci
TQuery po najeti na posledni radek uchovava vsechna data v
pameti), ale spis rychlost jejich nasypani do pametove tabulky. Je
potreba zkusit, zda to v dane situaci bude jeste snesitelne. Na
pametove tabulce pak lze v AfterPost, AfterDelete pomoci Query
resit zapis do databaze (SQL update, insert, delete)
4) Pokusit se filtrovani v co nejvetsi mire omezit a resit v Query
pomoci SQL - vhodne where apod.
Vic me momentalne nenapada.
David Lebeda
TCustomForm, Cut, Copy, Paste
[*] Daniel Dedek <admin2.ok.prague(zv)embassy.mzv(tec)cz> - 3.1.2003 09:10:25
& > nepriradim do menu ty standardni actions, je vse normalni.
& > Stejne tak vse
& > funguje, kdyz je dynam. vytvarenej form odvozenej od TForm.
&
& Vypada to, ze v implementaci akci je nekde pouzita podminka ktera testuje,
& zdali je trida odvozena od TForm. Na druhe strane nevidim duvod proc to
& odvozujes od TCustomForm.
&
& Petr Vones
Ten duvod tu skutecne neni, jen me zajimalo cim to muze byt, kdyz uz me to
stalo tolik casu.
Dan Dedek
zdojovani radku v DBGridu
[*] Paly <paly(zv)sct.sk> - 3.1.2003 09:40:02
Nie je nahodou problem v tom ze primarny kluc je typu string alebo varchar?
Pavol Griga
zdojovani radku v DBGridu
[*] martin.kubis(zv)volny(tec)cz - 03.1.2003 09:55:01
Primarni klic je typu string, je to rodne cislo. Mohlo by to
vadit? Je to problem? To doufam ne... Nemel bych pouzivat string
pro primarni klic?
Nie je nahodou problem v tom ze primarny kluc je typu string
alebo varchar?
Pavol Griga
zdojovani radku v DBGridu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 3.1.2003 10:41:26
Jen mala poznamecka: rodne cislo bych rozhodne nikdy nedaval jako primarni
klic. Jednak proto, ze neverim CZ uradum, ze se nikdy nedopusti(ly)
duplicity a pak take proto, ze pres primarni klic se zpravidla dela
referencni integrita a v okamziku kdy zjistis, ze ti nekdo nadiktoval spatne
rodne cislo a musis ho zmenit (popripade ho musis zmenit z jineho duvodu,
napriklad u cizincu se obcas meni), tak budes mit velke problemy.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of martin.kubis(zv)volny(tec)cz
Primarni klic je typu string, je to rodne cislo. Mohlo by to
vadit? Je to problem? To doufam ne... Nemel bych pouzivat string
pro primarni klic?
Prichozi hovor
[*] Vlastimil Zdenek <gestore(zv)wo(tec)cz> - 3.1.2003 10:44:13
Diky moooooooooooooooooooc Petre!!!!!! To je presne to, co jsem
potreboval!!!!
Vlasta
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 02, 2003 7:00 PM
Subject: Re: Prichozi hovor
> From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> > Ak chces odpocuvat ISND zbernicu vcetne voice hovorov, musis sa na nu
> > zavesit cez CAPI adapter a komunikovat s nim cez CAPI driver pomocu CAPI
> > sprav, vid www.capi.org
>
> Ohledne CAPI a Delphi:
> http://home.t-online.de/home/Peter.Zwosta/capiidx.htm
> http://www.isdnobjects.de/
>
> Petr Vones
zdojovani radku v DBGridu
[*] Paly <paly(zv)sct.sk> - 3.1.2003 11:04:19
>Primarni klic je typu string, je to rodne cislo. Mohlo by to
>vadit? Je to problem? To doufam ne... Nemel bych pouzivat string
>pro primarni klic?
primarny kluc typu string nam sposoboval problemy na MSSQL, primarny kluc
typu string asi nema fixnu dlzku a praca s nim je asi odlisna ako s datovymi
typmi pevnej dlzky, riesenie moze byt:
1. rodne cislo ukladat v databaze ako cislo
2. vytvorit interny primarny kluc typu int
3. pouzit typ string s fixnou dlzkou ak to SQL server podporuje
Pavol Griga
Zaloha a prenos dat
[*] <delphin(zv)centrum.sk> - 03.1.2003 11:38:23
Zdravim!
Potrebujem z casu na cas presuvat,pripadne zalohovat data. Chcel=20
som to urobit ako jednu cast programu preto som nechcel pouzit=20
nastroje ako IBDataPump a pod. Kedze pri prenosoch sa robi=20
export/import len urcitych dat, musim preto pouzivat dotazy na=20
odfiltrovanie tychto dat. Na prenos som si zvolil strukturu=20
podobnu formatu CSV. Moj problem je v tom, ze ak tychto dat je=20
prilis vela, tak mi to v cykle,kde sa tieto data zapisuju vyhuci=20
na EOutOfMemory...skusal som rozne sposoby..=20
Najskor som si to hadzal do RichEditu, kde som potom chcel dat=20
SaveToFile..padlo... potom som skusal TFileStream, neskor=20
CreateFile/WriteFile..takisto bez vysledku.. spadlo to vzdy ked=20
subor dosiahol velkost okolo 1,5 MB..=20
=2E.neviem, kde robim chybu.. asi nieco=20
nealokujem/neuvolnujem..neviem..
=2E. za kazdu radu, prip. kusok kodu diik
W2000,D5Ent,512MB
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion=E1lny webhosting
zdojovani radku v DBGridu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 3.1.2003 11:42:22
> Odes=EDlatel: bardon <bardon(zv)akord-soft(tec)cz>
> Jen mala poznamecka: rodne cislo bych rozhodne nikdy nedaval jako =
primarni
> klic. Jednak proto, ze neverim CZ uradum, ze se nikdy nedopusti(ly)
> duplicity a pak take proto, ze pres primarni klic se zpravidla dela
> referencni integrita a v okamziku kdy zjistis, ze ti nekdo nadiktoval =
spatne
> rodne cislo a musis ho zmenit (popripade ho musis zmenit z jineho =
duvodu,
> napriklad u cizincu se obcas meni), tak budes mit velke problemy.
Souhlas, Souhlas, Souhlas, Souhlas, Souhlas, Souhlas, ...
Primarni klic (identifikacni atribut) by se nemel NIKDY menit.
Nejlepe (a nejsnadneji) se to zajisti tak, ze identifikacni atribut =
nebude mit ZADNY VECNY VYZNAM.=20
Pak nemuze nastat duvod pro jeho zmenu.
Tedy nejaky autoincrement nebo neco obdobneho (generator).
Obzvlaste pikantni jsou primarni indexy napr. char(8), kde prvni 3 znaky =
maji nejaky vyznam, pak dalsi 2 jiny vecny vyznam, pak dalsi 3 zase =
jiny. S tim se pak pracuje opravdu bezvadne...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
zdvojovani radku v DBGridu
[*] martin.kubis(zv)volny(tec)cz - 03.1.2003 11:43:52
No mam to s fixni delkou string(11). Rodne cislo nemuze byt
cislo-co treba pocatecni nuly? A navic s tim nikde jako s cislem
nepocitam... S tim internim klicem je to asi pravda. No ted uz je
pozde to menit. Ale string s pevnou delkou pouzivam jako primarni
klic naprosto bezne a nemyslim, ze by to melo vadit pokud v tom
neni diakritika. Ale zkusim s tim zaexperimentovat a dam vedet.
>primarny kluc typu string nam sposoboval problemy na MSSQL,
primarny kluc >typu string asi nema fixnu dlzku a praca s nim je
asi odlisna ako s datovymi >typmi pevnej dlzky, riesenie moze
byt:
>1. rodne cislo ukladat v databaze ako cislo
>2. vytvorit interny primarny kluc typu int
>3. pouzit typ string s fixnou dlzkou ak to SQL server podporuje
> Pavol Griga
>>Primarni klic je typu string, je to rodne cislo. Mohlo by to
>>vadit? Je to problem? To doufam ne... Nemel bych pouzivat
string >>pro primarni klic?
Kurzory ve Windows
[*] skalsky(zv)oksystem(tec)cz - 3.1.2003 13:01:39
Ahojky Delphini,
Ve W2k se v Control Panel/Mouse daji nastavit kurzory mysi.
Netusite nahodou nekdo, kde jsou schovane ty implicitni (default nastaveni)
? Jako fyzicky soubor *.cur je na disku nikde nemam a jestli jsou v nejake
*.DLL, tak to jaxi nemuzu nikde dohledat ... nepatral jste po tom uz nekdo ?
Diky za jakoukoli pomoc.
Milan
P.S.
V registrech jsem hledal, ale odpovidajici klice v HKCU\Control
Panel\Cursors se objevily az pote, co jsem namisto implicitniho obrazku
cursoru dal nejaky jiny ... teprve pote se v registrech vytvoril
odpovidajici klic :( ... jakmile zmenim cursor na default (ktery fyzicky
hledam), pak v registrech sice klic zustane, ale jeho hodnota je prazdna :(
(takze zas nic nevim)
zdojovani radku v DBGridu
[*] bardon <bardon(zv)akord-soft(tec)cz> - 3.1.2003 13:36:14
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Sebel�k
>Obzvlaste pikantni jsou primarni indexy napr. char(8), kde prvni 3 znaky
maji nejaky vyznam, >pak dalsi 2 jiny vecny vyznam, pak dalsi 3 zase jiny. S
tim se pak pracuje opravdu bezvadne...
Jen tak mimochodem tohle je take pripad rodneho cisla, kde prvni dve cislice
jsou rocnik narozeni, druhe dve mesic a pohlavi a treti dve den narozeni :-)
Ikdyz u rodneho cisla na to pochopitelne nelze spolehnout protoze nekteri
cizinci to maji jinak.
D6 Ent a preklad do jineho jazyka
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 3.1.2003 14:23:42
V d6 jsem pouzil zajimave udelatko a prelozil jsem si svuj projekt do
anglictiny...fajn...vse chodi jak ma pri zmene jazyka se meni i text, jenze
kdyz prekopcim sve exe nekam jinam opet na me mluvi cesky... nevite kde je
problem,pripadne muzete mi nekdo vysvetlit jak to funguje??
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
D6 Ent a preklad do jineho jazyka
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.1.2003 14:37:08
Musis distribuovat i jazykove knihovny, ktere ti vzniknou tim
prekladem.
Viz priklad c:\Program Files\Borland\Delphi6\Demos\Richedit
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.1.2003 Ales Pavel:
> V d6 jsem pouzil zajimave udelatko a prelozil jsem si svuj projekt do
> anglictiny...fajn...vse chodi jak ma pri zmene jazyka se meni i text, jenze
> kdyz prekopcim sve exe nekam jinam opet na me mluvi cesky... nevite kde je
> problem,pripadne muzete mi nekdo vysvetlit jak to funguje??
D6 Ent a preklad do jineho jazyka
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 3.1.2003 14:54:00
> kdyz prekopcim sve exe nekam jinam opet na me mluvi cesky...
Okrem .EXE musis nakopirovat aj tie DLL subory .ENU, .CSY atd s menom
ako povodny .EXE, prave pred vianocami som tu postnul text pre takych
chytrakov, ako si ty.
BTW na prepnutie jazyka Qreportov to fakt nemate nikto hotove? Ten
ReInitializeForms prechadza len zoznam Screen.Forms[i]. Obavam sa, ze
podobny zoznam Qreportov neexistuje.
Dalsia otazka je, ked si aj ten zoznam urobim rucne, ci
ReloadInheritedComponent bude fungovat aj s TQuickReport. BTW, preco je
vlastne tak divne napisane? Funkcia vo funkcii:
=== cut begin ==
function ReloadInheritedComponent(Instance: TComponent; RootAncestor:
TClass): Boolean;
function InitComponent(ClassType: TClass): Boolean;
begin
Result := False;
if (ClassType = TComponent) or (ClassType = RootAncestor) then Exit;
Result := InitComponent(ClassType.ClassParent);
Result := InternalReloadComponentRes(ClassType.ClassName,
FindResourceHInstance(
FindClassHInstance(ClassType)), Instance) or Result;
end;
begin
Result := InitComponent(Instance.ClassType);
end;
=== cut end ==
Fakt tu este nikto nerobil QuickReport viacjazzycne?
bye
vmlich
D6 Ent a preklad do jineho jazyka
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 03.1.2003 15:45:45
On 3 Jan 2003 at 14:54, Viliam Mlich wrote:
> > kdyz prekopcim sve exe nekam jinam opet na me mluvi cesky...
>
> Okrem .EXE musis nakopirovat aj tie DLL subory .ENU, .CSY atd s menom
> ako povodny .EXE, prave pred vianocami som tu postnul text pre takych
> chytrakov, ako si ty.
To ale nestaci. Pokud ma uzivatel instalovane ceske Windows, a
lokalizace se jmenuje program.EN, pak je tato lokalizace standardne
ignorovana. Je tedy treba udelat zapis do registru, kde se urci, ze
bude natazen prave ten ktery jazykovy modul.
> Fakt tu este nikto nerobil QuickReport viacjazzycne?
Jazykovy Lokalizator ma QR balicek prelozeny do cestiny.
S pozdravem
Zbysek Hlinka
D6 Ent a preklad do jineho jazyka
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 3.1.2003 16:13:31
> BTW na prepnutie jazyka Qreportov to fakt nemate nikto hotove? Ten
> ReInitializeForms prechadza len zoznam Screen.Forms[i]. Obavam sa, ze
> podobny zoznam Qreportov neexistuje.
ReinitializeForms je potrebne volat len pre uz existujuce instancie
formularov v projekte (preto Screen.Forms). Po prepnuti jazyka sa kazdy
nasledne vytvarany komponent (potomok TComponent) inicializuje uz z
resourcov podla aktivneho jazyka automaticky.
BTW, to plati o vsetkych aktivnych instanciach jazykovo zavislych komponent
v projekte, napriklad Screen.DataModules, ak obsahuju nejake jazykovo
zavisle komponenty, musis ich tiez preinicializovat rovnakym sposobom.
Richedit demo jazykovo zavisle datamoduly ani ine komponenty nepouziva,
preto ten kod osetruje len formulare.
> Dalsia otazka je, ked si aj ten zoznam urobim rucne, ci
> ReloadInheritedComponent bude fungovat aj s TQuickReport.
Fungovat by to malo, skus to.
Dobrou praxou je vytvarat instancie tried podla potreby a po pouziti ich
uvolnovat. Vo vecsine pripadov aplikacia zrejme nepotrebuje mat vytvorenych
naraz viac ako jednu instanciu Qreportu. V tom pripade nepotrebujes ani ten
zoznam, staci reinicializovat ten pripadny prave aktivny Qreport.
HTH
TOndrej
Kurzory ve Windows
[*] Jon�s Marian <Jonas(zv)komercpoj(tec)cz> - 3.1.2003 16:15:34
> Ahojky Delphini,
> Ve W2k se v Control Panel/Mouse daji nastavit kurzory mysi.
> Netusite nahodou nekdo, kde jsou schovane ty implicitni=20
> (default nastaveni)
> ? Jako fyzicky soubor *.cur je na disku nikde nemam a jestli=20
> jsou v nejake
> *.DLL, tak to jaxi nemuzu nikde dohledat ... nepatral jste po=20
> tom uz nekdo ?
Ve Windows NT/2000/XP jsou v USER32.DLL, jinak lze defaultni kurzory =
nacist pres LoadCursor(nil, IDC_ARROW)
Marian Jonas
Zaloha a prenos dat
[*] Jon� Marian <Jonas(zv)komercpoj(tec)cz> - 3.1.2003 16:25:34
> Potrebujem z casu na cas presuvat,pripadne zalohovat data. Chcel=20
> som to urobit ako jednu cast programu preto som nechcel pouzit=20
> nastroje ako IBDataPump a pod. Kedze pri prenosoch sa robi=20
> export/import len urcitych dat, musim preto pouzivat dotazy na=20
> odfiltrovanie tychto dat. Na prenos som si zvolil strukturu=20
> podobnu formatu CSV. Moj problem je v tom, ze ak tychto dat je=20
> prilis vela, tak mi to v cykle,kde sa tieto data zapisuju vyhuci=20
> na EOutOfMemory...skusal som rozne sposoby..=20
> Najskor som si to hadzal do RichEditu, kde som potom chcel dat=20
> SaveToFile..padlo... potom som skusal TFileStream, neskor=20
> CreateFile/WriteFile..takisto bez vysledku.. spadlo to vzdy ked=20
> subor dosiahol velkost okolo 1,5 MB..=20
> ..neviem, kde robim chybu.. asi nieco=20
> nealokujem/neuvolnujem..neviem..
> .. za kazdu radu, prip. kusok kodu diik
Pokud se jedna o Interbasi a pouzivas IBExpress mohl by jsi vyuzit
TIBOutputDelimitedFile. Pouzival jsem tento kod :
uses
IBSQL, IBDatabase, IBTransaction;
function Export: boolean;
var
BOut: TIBOutputDelimitedFile;
ISQL: TIBSQL;
begin
result:=3Dfalse;
ISQL:=3DTIBSQL.Create(Self);
BOut:=3DTIBOutputDelimitedFile.Create;
try
ISQL.Database:=3DIBDatabase1;
ISQL.Transaction:=3DIBTransaction1;
ISQL.SQL.Text:=3D'select * from kmen where typ=3D0';
BOut.Filename:=3D'c:\soubor.dat';
BOut.OutputTitles:=3Dtrue;
ISQL.Transaction.StartTransaction;
ISQL.BatchOutput(BOut);
ISQL.Transaction.Commit;
result:=3Dtrue;
finally
ISQL.Free;
BOut.Free;
end;
end;
=20
Marian Jonas
Komponenty typu Edit, validace a vyjimky
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 03.1.2003 16:26:49
Ahoj,
zacal jsem pouzivat komponenty DevExpress a jejich editacni komponenty
se chovaji tak, ze pri chybe v zadavanych udajich (chybny datum
atd.)_vyvolaji vyjimku_. Vubec nevim, jak toto rozumne osetrit. Hledal
jsem v jejich newsech a nasel odpoved, ze si to mam osetrit v
Application.OnException. Coz je podle mne zcela postavene na hlavu z
techto duvodu:
1. Podle mne by Application.OnException melo slouzit tak maximalne k
zapisu do logu chyb, ktere nezvladl osetrit programator.
2. Potrebuju na chyby reagoval lokalne, ve formulari, kde chyba nastala
- a ne v aplikaci. Tam ani nezjistim, co ji zpusobilo.
Opravdu nevim, co bych mel uzavrit do try..except abych to nejak rozumne
osetril. Tak mozna ShowModal ale to taky neni ono - zase jsem mimo
rozsah formulare. Neumite nekdo poradit, jak na to? Zatim jsem pouzival
knihovny Orpheus a tak to naprosto jinak, bez vyjimek.
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Komponenty typu Edit, validace a vyjimky
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 03.1.2003 16:29:55
Jeste doplneni: jde o bezne komponenty typu Edit - nahrada standardnich
TEdit, TMaskEdit atd.
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Default value parametru sp MSSQL+ADO
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 3.1.2003 16:50:04
Nevite nekdo jak zjistit default hodnotu parametru
ulozene procedury MSSQL serveru pri pristupu pomoci ADO
nebo prostrednictvim dotazu na serveru ? Nemuzu totiz
ani prijit na to, kam si default hodnoty slupcu a
parametru server uklada.
Diky Pavel
Frame
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 3.1.2003 21:50:37
Ahoj muzete mi prosim nekdo ukazat pouziti Frame?Nikdy jsem ho nepouzil a
nevim jak se pouziva a jsem zvedavej jak vopice,prosiiiim:-)))nemel by nekdo
ukazku ci nazorny priklad?
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
D6 Ent a preklad do jineho jazyka
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 3.1.2003 22:00:54
JEEEE JAAA TO CHAPU DIKY....
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
D6 Ent a preklad do jineho jazyka
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 4.1.2003 11:28:32
Nejzajimavejsi na tom je ze me ukazka z richedit nefunguje a nefunguje...=
to
je zahada co?
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
> -----P=F9vodn=ED zpr=E1va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u=9Eivatele Ales Pavel
> Odesl=E1no: 3. ledna 2003 22:01
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: RE: D6 Ent a preklad do jineho jazyka
>
>
> JEEEE JAAA TO CHAPU DIKY....
>
> Hezky den
>
> Ales Pavel
> TalpaSoft - software pro kazdeho
> tel:0777/992792
> web: http://Talpa.chytrak(tec)cz
> e-casopis: http://rozarkaweb.aktualne(tec)cz
>
>
Deklarace plosneho pole>?
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 4.1.2003 11:34:42
> Odes=EDlatel: J.Dostal <dostal.j(zv)wo(tec)cz>
> Ahoj potrebuji deklarovat plosne pole ("potrbuji prvky treba a11 =
...a25
> ..az a55") Dik Jiri Dostal
Nevim, jesli rozumim
type
Pole =3D array [1..10,1..5] of Integer
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Frame
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 4.1.2003 11:41:37
> Odes=EDlatel: Ales Pavel <Aldik(zv)quick(tec)cz>
> Ahoj muzete mi prosim nekdo ukazat pouziti Frame?Nikdy jsem ho =
nepouzil a
> nevim jak se pouziva a jsem zvedavej jak vopice,prosiiiim:-)))nemel by =
nekdo
> ukazku ci nazorny priklad?
Posilam mimo konferenci priklad ze zakladn=EDho kurzu Delphi.
Ale urcite by to chtelo nejaky vyklad o dedicnosti formularu, dedicnost =
frame - a vubec OOP.
Frame bez dedicnosti je celkem k nicemu.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
D6 Ent a preklad do jineho jazyka
[*] tondrej(zv)t-online.de (TOndrej) - 4.1.2003 12:25:39
> Nejzajimavejsi na tom je ze me ukazka z richedit nefunguje a nefunguje...to
> je zahada co?
Zahada je pre mna hlavne Tvoja otazka a to, co mas na mysli pod "nefunguje a
nefunguje".
Tvoja zahada je velmi pravdepodobne zdokumentovana. RTFM.
Dovolim si tipnut:
Po skompilovani resource DLLs (.deu, .enu, .fra) ich potrebujes skopirovat do
toho adresara, kde je .exe.
HTH
TOndrej
Frame
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.1.2003 12:29:22
Doporucuji treba priklad z adresare
c:\Program Files\Borland\Delphi5\Demos\Frames\Db
Frame je zjednodusene "kus formulare" s plnou funcnosti. Frame vezmes
z palety jako normalni komponentu, umistis na formular. Takze se hodi
pro veci, ktere jsou stejne a pouzivas je casteji na ruznych
formularich.
Napr. zadani rozsahu datumu od - do, vcetne kontroly, ze druhe je
vetsi nez prvni atd.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.1.2003 Ales Pavel:
> Ahoj muzete mi prosim nekdo ukazat pouziti Frame?Nikdy jsem ho nepouzil a
> nevim jak se pouziva a jsem zvedavej jak vopice,prosiiiim:-)))nemel by nekdo
> ukazku ci nazorny priklad?
D6 Ent a preklad do jineho jazyka
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.1.2003 12:31:57
4.1.2003 Ales Pavel:
> Nejzajimavejsi na tom je ze me ukazka z richedit nefunguje a nefunguje...to
> je zahada co?
A oteviral jsi a prekladal celou grupu nebo jen projekt editoru ?
Je treba otevrit project group a prelozit i jazykove knihovny
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Zmena jazyka QuickReport
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 4.1.2003 15:10:37
Ondrej Kelle wrote:
>> Dalsia otazka je, ked si aj ten zoznam urobim rucne, ci
>> ReloadInheritedComponent bude fungovat aj s TQuickReport.
> Fungovat by to malo, skus to.
Tak som to skusil a funguje. Konkretne som pred volanie
MyReport.Preview;
pridal volanie:
ReloadInheritedComponent(MyReport, TQuickRep)
Presnejsie povedane to nastavi retazce v tom jazyku, pre ktory sa
naposledy uspesne previedlo LoadNewResourceModule(Locale_ID). A do
'uses' som musel pridat 'ReInit' z Demos\Richedit a 'QuickRep'.
> Dobrou praxou je vytvarat instancie tried podla potreby a po pouziti
ich
> uvolnovat.
To mam s QRep robit ako? Teraz v design-time poskladam kazdu instanciu
(zostavu) a v runtime uz len dodavam data. Ze by som v 'Main' namiesto:
Application.CreateForm(TMyReport, MyReport);
napisal len:
MyReport := nil;
a potom pred kazdym pouzitim MyReport testovat, ci neni nil a pripadne
vykonat ten riadok odstraneny z Main? Alebo dokonca po vytlaceni
Destroy? Dneska sa velkost RAM pocita v stovkach Mega.
Mozno by to urychlilo start, keby takych zostav bolo niekolko desiatok a
poriadne zlozitych, ale mne zatial vystacili max. 3. Okrem toho v
poslednej dobe aj tak prechadzam na html vystupy. A este k tomu nerad
editujem Main.
bye
vmlich
uprava TreeView
[*] Branislav Dimo� <listonos(zv)stonline.sk> - 04.1.2003 18:50:56
>TTreeNode ma property Data, do ktere muzes dat ukazatel
>na cokoliv, vcetne TStringList.
Tak cez tie "pointre" mi to v pohode bezi, dik.
Akurat neviem ci zbytocne neplitvam pamatou. Mam to takto:
--------------------------------------------------------------
type
PStringList = ^TStringList ;
var
Form1: TForm1;
Aktual: TTreeNode ;
implementation
{$R *.dfm}
procedure TForm1.AddClick(Sender: TObject);
var
node: TTreeNode ;
list: PStringList ;
begin
node :=TreeView1.Items.Add(nil, 'parent new ');
GetMem(list, SizeOf(TStringList));
list^ := TStringList.Create ;
list^.Text := 'text bla bla';
node.Data := list ;
end;
procedure TForm1.TreeView1Click(Sender: TObject);
var
list: PStringList ;
begin
if Aktual <> nil then
begin
GetMem(list, SizeOf(TStringLIst));
list^ := TStringList.Create ;
list^.Text := memo1.Lines.Text ;
TreeView1.Items.GetNode(Aktual.ItemId).Data := list ;
end;
if TreeView1.Selected <> nil then
begin
memo1.Lines := Pointer(TreeView1.Selected.Data^);
Aktual := TreeView1.Selected ;
end;
end;
---------------------------------------------------------------------
Cele to ma fungovat /a zatial funguje :)/ podobne ako HTMLhelp
teda ze vlavo je treeview v ktorom ma kazda polozka StringList ktory sa
po kliknuti na node objavi v Memo, kde sa edituje a potom ho potrebujem
dostat spat do StringListu a ten spat do TreeView.
Bezi to v pohode akurat ze pri kazdom kliknuti na TreeView sa
musi pren alokovat pamat. Netreba tu pamat niekde uvolnit ?
Z ukazatelov niesom moc mudry a stale mi neni jasne kam sa vsetky tie
vytvorene StringListy vlastne "podeju". Neslo by priradit obsah Mema
do TreeView.Item[0].data nejak priamo, bez toho aby som musel stale
vytvarat TStringList, vsak jeden tam uz predsa priradeny je.
A este by ma zaujimalo co spravy program ked ma alokovat pamat
a uz nema ktoru ? Teda ze je cela obsadena a swapdisk je tiez plny.
Padne program?>Novou property do jiz existujicich objektu v jeho potomkovi
>samozrejme pridat lze.
Neviete nahodou niekto kde sa o tom mozem docitat viac?
Vazne by ma to zaujimalo ale nikde o tom neni ani zmienky.
Podobne aj spominane pretypovanie pomocou Tag-ov.
Brano Dimos
uprava TreeView
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.1.2003 20:42:21
No, podle mne to delas trochu zbytecne slozite. Stacilo by ti
...
var
node: TTreeNode ;
list : TStringList;
begin
node :=TreeView1.Items.Add(nil, 'parent new ');
list := TStringList.Create;
list^.Text := 'text bla bla';
node.Data := (zv)list;
end;
...
ve chvili, kdy uz to nepotrebujes nebo prepisujes hodnotu v node.data, tak
to samozrejme MUSIS uvolnit.
Jednoduse:
...
var
list : TStringList;
begin
if (node.Data <> nil) then // (*)
begin
try
list := TStringList(node.Data^); // (**)
list.free;
except
end;
end;
list := TStringList.Create;
list.Text := 'text bla bla 2';
node.Data := (zv)list;
end;
(*) Dej si pozor, ze ve chvili, kdy uvolnis objekt, neni jeho promenne
automaticky prirazen nil, takze to nemusi byt platna reference !
(**) muze byt i list := Pointer(node.Data^); stejne jako to mas pozdeji u
mema. Identicke prirazeni taky pouzijes, pokud bys chtel napr. do toho listu
pridat dalsi polozky.
HTH
Petr Langer
----- Original Message -----
From: "Branislav Dimo�" <listonos(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, January 04, 2003 6:50 PM
Subject: Re: uprava TreeView
> >TTreeNode ma property Data, do ktere muzes dat ukazatel
> >na cokoliv, vcetne TStringList.
>
> Tak cez tie "pointre" mi to v pohode bezi, dik.
> Akurat neviem ci zbytocne neplitvam pamatou. Mam to takto:
>
> --------------------------------------------------------------
> type
> PStringList = ^TStringList ;
> var
> Form1: TForm1;
> Aktual: TTreeNode ;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.AddClick(Sender: TObject);
> var
> node: TTreeNode ;
> list: PStringList ;
> begin
> node :=TreeView1.Items.Add(nil, 'parent new ');
> GetMem(list, SizeOf(TStringList));
> list^ := TStringList.Create ;
> list^.Text := 'text bla bla';
> node.Data := list ;
> end;
>
> procedure TForm1.TreeView1Click(Sender: TObject);
> var
> list: PStringList ;
> begin
> if Aktual <> nil then
> begin
> GetMem(list, SizeOf(TStringLIst));
> list^ := TStringList.Create ;
> list^.Text := memo1.Lines.Text ;
> TreeView1.Items.GetNode(Aktual.ItemId).Data := list ;
> end;
>
> if TreeView1.Selected <> nil then
> begin
> memo1.Lines := Pointer(TreeView1.Selected.Data^);
> Aktual := TreeView1.Selected ;
> end;
> end;
> ---------------------------------------------------------------------
>
> Cele to ma fungovat /a zatial funguje :)/ podobne ako HTMLhelp
> teda ze vlavo je treeview v ktorom ma kazda polozka StringList ktory sa
> po kliknuti na node objavi v Memo, kde sa edituje a potom ho potrebujem
> dostat spat do StringListu a ten spat do TreeView.
> Bezi to v pohode akurat ze pri kazdom kliknuti na TreeView sa
> musi pren alokovat pamat. Netreba tu pamat niekde uvolnit ?
> Z ukazatelov niesom moc mudry a stale mi neni jasne kam sa vsetky tie
> vytvorene StringListy vlastne "podeju". Neslo by priradit obsah Mema
> do TreeView.Item[0].data nejak priamo, bez toho aby som musel stale
> vytvarat TStringList, vsak jeden tam uz predsa priradeny je.
>
> A este by ma zaujimalo co spravy program ked ma alokovat pamat
> a uz nema ktoru ? Teda ze je cela obsadena a swapdisk je tiez plny.
> Padne program?
>
> >Novou property do jiz existujicich objektu v jeho potomkovi
> >samozrejme pridat lze.
>
> Neviete nahodou niekto kde sa o tom mozem docitat viac?
> Vazne by ma to zaujimalo ale nikde o tom neni ani zmienky.
> Podobne aj spominane pretypovanie pomocou Tag-ov.
>
> Brano Dimos
>
>
>
>
>
>Re[2]: uprava TreeView
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 4.1.2003 20:52:25
Dobr� den,
4. ledna 2003, 20:42:21, napsal jste:
PL> No, podle mne to delas trochu zbytecne slozite. Stacilo by ti
PL> ...
PL> var
PL> node: TTreeNode ;
PL> list : TStringList;
PL> begin
PL> node :=TreeView1.Items.Add(nil, 'parent new ');
PL> list := TStringList.Create;
PL> list^.Text := 'text bla bla';
PL> node.Data := (zv)list;
Mozna hloupa otazka, ale proc tam tahat ukazatele?
Je k tomu nejaky duvod?
list.Add('textblabla');
node.AddObject(....
S pozdravem
Martin Radvansky
uprava TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.1.2003 20:54:03
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> No, podle mne to delas trochu zbytecne slozite. Stacilo by ti
Ano.
> var
> node: TTreeNode ;
> list : TStringList;
> begin
> node :=TreeView1.Items.Add(nil, 'parent new ');
> list := TStringList.Create;
> list^.Text := 'text bla bla';
Nesmysl.
> node.Data := (zv)list;
Nesmysl.
> begin
> if (node.Data <> nil) then // (*)
> begin
> try
> list := TStringList(node.Data^); // (**)
> list.free;
> except
> end;
Naprosty nesmysl.
Jedno z moznych reseni je napriklad tohle:
procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
begin
Node.Data := TStringList.Create;
end;
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
TObject(Node.Data).Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
Node := TreeView1.Items.AddChild(nil, 'Item');
TStringList(Node.Data).Text := 'Text for Item';
end;
Petr Vones
uprava TreeView
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.1.2003 21:26:52
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, January 04, 2003 8:54 PM
Subject: Re: uprava TreeView
> From: "Petr Langer" <langer(zv)xdom(tec)cz>
> > No, podle mne to delas trochu zbytecne slozite. Stacilo by ti
>
> Ano.
>
> > var
> > node: TTreeNode ;
> > list : TStringList;
> > begin
> > node :=TreeView1.Items.Add(nil, 'parent new ');
> > list := TStringList.Create;
> > list^.Text := 'text bla bla';
>
> Nesmysl.
>
Ano, nema tam byt ^, jak jsem to kopiroval z originalu tak jsem to zapomnel
smazat.
> > node.Data := (zv)list;
>
> Nesmysl.
>
Nesmysl proc? Neni to funkcni, nebo se ti to zda byt zbytecne slozite proti
tvojemu reseni (coz jest, pripoustim...)> > begin
> > if (node.Data <> nil) then // (*)
> > begin
> > try
> > list := TStringList(node.Data^); // (**)
> > list.free;
> > except
> > end;
>
> Naprosty nesmysl.
Opet - napsat ze je to nesmysl je vyborna odpoved jako na otazku "proc to
nefunguje" odpovedet "asi je to pokazene" :-(>
> Jedno z moznych reseni je napriklad tohle:
>
> procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
> begin
> Node.Data := TStringList.Create;
> end;
>
> procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
> begin
> TObject(Node.Data).Free;
> end;
>
chapal-li jsem dobre puvodni otazku, slo i o to, jestli kdyz budu do
existujiciho uzlu cpat novy TStringList (nejen rozsirovat puvodni), jestli
ho musim uvolnovat. Tve reseni podle meho resi mazani uzlu...
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Node: TTreeNode;
> begin
> Node := TreeView1.Items.AddChild(nil, 'Item');
> TStringList(Node.Data).Text := 'Text for Item';
> end;
>
> Petr Vones
>
>uprava TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.1.2003 21:40:05
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Nesmysl proc? Neni to funkcni, nebo se ti to zda byt zbytecne slozite proti
> tvojemu reseni (coz jest, pripoustim...)
Zbytecne slozite a zbytecne neprehledne. Jednim slovem - nesmyslne.
> Opet - napsat ze je to nesmysl je vyborna odpoved jako na otazku "proc to
> nefunguje" odpovedet "asi je to pokazene" :-(
> var
> list : TStringList;
> begin
> if (node.Data <> nil) then // (*)
Kdy bude Node.Data = nil ? V timto pripade nikdy, pokud ano pak je to chyba
kterou je treba indikovat a odstranit. Navic kdyby to nebylo tak strasne
komplikovane napsane, tak test na nil provadi primo metoda TObject.Free
> begin
> try
> list := TStringList(node.Data^); // (**)
> list.free;
> except
> end;
Chyby se maji opravovat a ne se je pokouset utajit. Takovyhle kod muze vest
pouze k dalsim zavlecenym chybam, nemluve o tom ze je i zbytecne pomaly.
> chapal-li jsem dobre puvodni otazku, slo i o to, jestli kdyz budu do
> existujiciho uzlu cpat novy TStringList (nejen rozsirovat puvodni), jestli
> ho musim uvolnovat. Tve reseni podle meho resi mazani uzlu...
Puvodni otazka byla (myslim) jak priradit TStringList ke kazdemu uzlu v
TreeView.
Petr Vones
Vysoke skoly, informatika, programovanie
[*] Mirko jr. <mzibolen(zv)enelux.sk> - 5.1.2003 08:36:07
Dobry den prajem,
obraciam sa na Vas ako na svetaznalych informatikov - programatorov, rad by
som nasledoval vo vasich slapajach ... Chcel by som sa spytat, ake mate
skusenosti s vysokymi skolami najma na Slovensku, prip. v Cechach. Rad by
som "ciste" programovanie, tvorba software, nie nejaka sprava systemov,
zatial to vyhrava MatFyz v Ba.
Zasadna otazka: keby ste sa pozreli dozadu, na ktorej skole by ste sa
rohodli dnes studovat ?
Dakujem za pomoc, odpovede mozete posielat aj na sukromny mail
mzibolen(zv)enelux.sk
P.S: Matematika a informatika mi nevadia, tej fyziky keby tam bolo menej.
Mirko Zibolen, Gymnazium V.Paulinyho-Totha, Martin
uprava TreeView
[*] Petr Langer <langer(zv)xdom(tec)cz> - 5.1.2003 09:38:54
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, January 04, 2003 9:40 PM
Subject: Re: uprava TreeView
>
> Zbytecne slozite a zbytecne neprehledne. Jednim slovem - nesmyslne.
>
Souhlas...> > var
> > list : TStringList;
> > begin
> > if (node.Data <> nil) then // (*)
>
> Kdy bude Node.Data = nil ? V timto pripade nikdy, pokud ano pak je to
chyba
> kterou je treba indikovat a odstranit. Navic kdyby to nebylo tak strasne
> komplikovane napsane, tak test na nil provadi primo metoda TObject.Free
No vidis, staci trocha vysvetleni a mam v tom jasneji.
>
> > begin
> > try
> > list := TStringList(node.Data^); // (**)
> > list.free;
> > except
> > end;
>
> Chyby se maji opravovat a ne se je pokouset utajit. Takovyhle kod muze
vest
> pouze k dalsim zavlecenym chybam, nemluve o tom ze je i zbytecne pomaly.
>
Souhlas, ale pokud vim, osetrovani vyjimek se ma pouzivat tam kde chybu
necekam, ale muze nastat (myslim tim nikoliv jako primarni test, napr. na
osetreni deleni nulou...) a tady jsem si myslel, ze by to bylo dobre...
nicmene, asi ne...
> > chapal-li jsem dobre puvodni otazku, slo i o to, jestli kdyz budu do
> > existujiciho uzlu cpat novy TStringList (nejen rozsirovat puvodni),
jestli
> > ho musim uvolnovat. Tve reseni podle meho resi mazani uzlu...
>
> Puvodni otazka byla (myslim) jak priradit TStringList ke kazdemu uzlu v
> TreeView.
>
jo jo, staci si ten puvodni mail precist az do konce ;-)
-----------------------------------------------------------
Bezi to v pohode akurat ze pri kazdom kliknuti na TreeView sa
musi pren alokovat pamat. Netreba tu pamat niekde uvolnit ?
-----------------------------------------------------------
Celkove dik za ujasneni, ale kdybys to takhle vysvetlil uz v prvnim mailu,
usetrili bychom dohromady tri maily. Jeden se ma porad co ucit a odpovedi
typu "nesmysl" v tomto moc nepomuzou.
S pozdravem
Petr Langer
Vysoke skoly, informatika, programovanie
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 05.1.2003 09:54:50
Na tvou otazku mohu dat odpoved jen co se tyce Brna a Prahy.
Pokud si budes vybirat mezi FIT na VUT a FI na MUNI. Dej prednost FI na
MUNI. Ja studuji obe a masaricka je vice zarizena pro informaticky. Jeji
vyuka dava vetsi zaklady logiky programovani.
No a co se tyce jestly Matfyz v Praze, nebo FI v Brne, tak to nemohu
slouzit dostatecne, jenom vim od kluku, ktery presli z Prahy do Brna
(obracene se asi jeste nestalo), tak Praha je jednodussi, ale neni tam
dobry kolektiv, kazdy tam kope sam za sebe. V takovem prostredi se ble
studuje. Treba sehnat prednasku na opsani je celkem problem.
Lukas "benzin" Benda
Mirko jr. wrote:
>Dobry den prajem,
>
>obraciam sa na Vas ako na svetaznalych informatikov - programatorov, rad by
>som nasledoval vo vasich slapajach ... Chcel by som sa spytat, ake mate
>skusenosti s vysokymi skolami najma na Slovensku, prip. v Cechach. Rad by
>som "ciste" programovanie, tvorba software, nie nejaka sprava systemov,
>zatial to vyhrava MatFyz v Ba.
>
>Zasadna otazka: keby ste sa pozreli dozadu, na ktorej skole by ste sa
>rohodli dnes studovat ?
>
>Dakujem za pomoc, odpovede mozete posielat aj na sukromny mail
>mzibolen(zv)enelux.sk
>
>P.S: Matematika a informatika mi nevadia, tej fyziky keby tam bolo menej.
>
>Mirko Zibolen, Gymnazium V.Paulinyho-Totha, Martin
>
>
Vysoke skoly, informatika, programovanie
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.1.2003 10:38:52
Ja jsem vystudoval MFF UK.
Rozhodne me tam programovat nenaucili - uz proto, ze pocitace tenkrat =
(skoro) nebyly. Ucili jsme se Algol, Pascal, assembler jenom na papire.
Ziskal jsem ale schopnost abstraktniho mysleni, schopnost odlisit obecne =
a zvlastni, schopnost presne formulovat, ... A to povazuju pro oblast =
vyvoje informacnich systemu za nejcennejsi.
Honza
(a i kdyz Mat-Fyz, fyziku jsme vubec nemeli...)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Mirko jr. <mzibolen(zv)enelux.sk>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Vysoke skoly, informatika, programovanie
> Datum: 5. ledna 2003 8:36
>=20
> Dobry den prajem,
>=20
> obraciam sa na Vas ako na svetaznalych informatikov - programatorov, =
rad by
> som nasledoval vo vasich slapajach ... Chcel by som sa spytat, ake =
mate
> skusenosti s vysokymi skolami najma na Slovensku, prip. v Cechach. Rad =
by
> som "ciste" programovanie, tvorba software, nie nejaka sprava =
systemov,
> zatial to vyhrava MatFyz v Ba.
>=20
> Zasadna otazka: keby ste sa pozreli dozadu, na ktorej skole by ste sa
> rohodli dnes studovat ?
>=20
> Dakujem za pomoc, odpovede mozete posielat aj na sukromny mail
> mzibolen(zv)enelux.sk
>=20
> P.S: Matematika a informatika mi nevadia, tej fyziky keby tam bolo =
menej.
>=20
> Mirko Zibolen, Gymnazium V.Paulinyho-Totha, Martin
>=20
>=20
> Zmena jazyka QuickReport
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.1.2003 10:47:54
> Ondrej Kelle wrote:
> Dobrou praxou je vytvarat instancie tried podla potreby a po pouziti
> ich uvolnovat.
Tady bych se priklonil k nazoru Ondreje.
Nejde jen o reporty, jde o celkovy styl prace s formulari a dalsimi =
objekty (instancemi trid).
> Odes=EDlatel: Viliam Mlich <mlich1(zv)volny(tec)cz>
> To mam s QRep robit ako? Teraz v design-time poskladam kazdu instanciu
> (zostavu) a v runtime uz len dodavam data. Ze by som v 'Main' =
namiesto:
> Application.CreateForm(TMyReport, MyReport);
> napisal len:
> MyReport :=3D nil;
Neni treba, globalni promenne jsou vzdy inicializovany na nil, 0, false, =
....
> a potom pred kazdym pouzitim MyReport testovat, ci neni nil a pripadne
> vykonat ten riadok odstraneny z Main? Alebo dokonca po vytlaceni
> Destroy? Dneska sa velkost RAM pocita v stovkach Mega.
ANO.=20
Az na nejake zduvodnene vyjimky, treba otevreni datoveho modulu =
(=3Dpripojeni k databazi). Ten by mohl byt "autocreate".
Nejde jen o RAM, jde taky o systemove zdroje (kterymi VCL rozhodne =
nesetri).
Znam pripady, kdy na Win9x nelze program koncipovany s AutoCreate =
formulari vubec spustit.
A dale:
Pokud mam na formularich data, neni zpomaleni pri startu programu vubec =
zanedbatelne.
A dale:
Pokud pri otevirani nejakeho formulare (treba OnCreate) dojde k vyjimce, =
nemelo by to nastat pred spustenim aplikace (=3DApplication.Run, =
=3Dotevreni hlavniho formulare), ale az pri pokusu explicitne otevrit =
tento formular v pripade, ze ho potrebuju
A dale:
Z hlediska architektury aplikace - kdo je vlastnikem (Owner) takove =
sestavy TMyReport? Aplikace? Spise bych rekl, ze to je formular, ze =
ktereho sestavu volam. Anebo "nikdo" tedy vytvorit (Owner=3Dnil), =
vytisknout a Free;
> Mozno by to urychlilo start, keby takych zostav bolo niekolko desiatok =
a
> poriadne zlozitych, ale mne zatial vystacili max. 3. Okrem toho v
> poslednej dobe aj tak prechadzam na html vystupy. A este k tomu nerad
> editujem Main.
Verim, ze ti to funguje dobre.
Vyjadril jsem se k problemu nikoli proto, ze by to takto nefungovalo, =
ale ze jde o celkovy styl prace, ktery propaguje Ondrej. V Options =
Delphi by melo byt nastaveno AutoCreateForms=3Dfalse. Pak se vytvareni =
formulare do .dpr vubec nedostane.
Jde jen o muj nazor... :-)
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Table
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 5.1.2003 14:12:38
Zdravim mam ted jeden problem mam dve tabulky (pod IB) a obe tabulky
obsahuji field - ID typu Integer a potreboval bych zobrazit obe tabulky tak
aby se v jednom radku zobrazilo vse co splnuje podminku Table1.ID =
Table2.ID ???
Pres SQL to neni problem, ale v komponente Table jsem si uz nejak neporadil.
Dik Petr
Sinea a tisk nul
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 5.1.2003 15:18:50
Zdravim
Do sestavy Sinea 3.39y mi vstupuji z tabulky ciselne hodnoty. V pripade, =
ze
je hodnota "null" tiskne se "0".
Jak docilit toho, je-li vstupni hodnota "null" nebo "0" aby se v tiskove
sestave nula netiskla.
Je mi jasne, ze to ma co delat s formatovanim cisla jen nevim kam sahnout.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.435 / Virov=E1 b=E1ze: 244 - datum vyd=E1n=ED: 30.12.2002
None
[*] Martin �d�rsk� <zdary(zv)seznam(tec)cz> - 05.1.2003 15:27:37
Dobry den,
potreboval bych v listboxu kazdou polozku jinym fontem, na pozadi
komponenty obrazek a skryt vertikalni scrollovaci listu.
Jde to?
Jak?
Predem diky
Martin
Zdarsky
______________________________________________________________________
Reklama:
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.sezna=
m(tec)cz
Reklamni banner v komponente webbrowser
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 5.1.2003 15:39:23
Ahoj kluci potrebuji ve svem programu zobrazovat reklamni banner,mam ale
problem,kdyz nactu do komponentz webbrowser stranku,ktera byla vytvorena jen
pro zobrazeni banneru,tak mam velky problem v tom ze se stranka nacte o par
cm vetsi nez je bannner a neni videt jen oramovany banner,muzete mi nekdo
poradit jak to udelam aby se mi zobrazil jen ten banner a ne jeste bila
mista okolo?Da se to nastavit nekde v komponente,nebo je to samotna
vlastnost stranky neporadite mi nekdo?
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Reklamni banner v komponente webbrowser
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 5.1.2003 16:21:53
> Od: Ales Pavel [SMTP:Aldik(zv)quick(tec)cz]
> Ahoj kluci potrebuji ve svem programu zobrazovat reklamni banner,mam =
ale
> problem,kdyz nactu do komponentz webbrowser stranku,ktera byla =
vytvorena jen
> pro zobrazeni banneru,tak mam velky problem v tom ze se stranka nacte =
o par
> cm vetsi nez je bannner a neni videt jen oramovany banner,muzete mi =
nekdo
> poradit jak to udelam aby se mi zobrazil jen ten banner a ne jeste =
bila
> mista okolo?Da se to nastavit nekde v komponente,nebo je to samotna
> vlastnost stranky neporadite mi nekdo?
>=20
Proc nezobrazujes ten banner pres TImage?
Ober
Table
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.1.2003 16:28:16
> Odes=EDlatel: Petr K. <xdelphi(zv)seznam(tec)cz>
> Zdravim mam ted jeden problem mam dve tabulky (pod IB) a obe tabulky
> obsahuji field - ID typu Integer a potreboval bych zobrazit obe =
tabulky tak
> aby se v jednom radku zobrazilo vse co splnuje podminku Table1.ID =3D
> Table2.ID ???
> Pres SQL to neni problem, ale v komponente Table jsem si uz nejak =
neporadil.
To nejde.
Leda si tak pridat Lookup field pro kazdou polozku Table2 do Table1.
Ale to je nesmysl.
S InterBase i tabulka (TTable, TIBTable) komunikuje pres SQL.
Tak proc se tomu vyhybat?=20
Tedy pouzit TIBQuery nebo (lepe) TIBDataSet.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Sinea a tisk nul
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.1.2003 17:08:22
> From: Viktor Marek
>=20
> Do sestavy Sinea 3.39y mi vstupuji z tabulky =20
> ciselne hodnoty. V pripade, ze
> je hodnota "null" tiskne se "0".
> Jak docilit toho, je-li vstupni hodnota "null" nebo "0"
> aby se v tiskove sestave nula netiskla.
>=20
> Je mi jasne, ze to ma co delat s formatovanim cisla =20
> jen nevim kam sahnout.
Formatovani databazovych polozek se prebira z DataSource,
konkretne je to DisplayFormat jednotlivych polozek.
Jak to je v DBGridu, tak to je v sestave.
Pokud je potreba jine formatovani nez v DataSource,
musi se pouzit uzivatelska funkce a tam je mozne=20
vystup libovolne preformatovat, napriklad:
Pouziti vestavene funkce FORMAT, ktera ma stejne
moznosti, jako funkce FormatFloat v Delphi.
Definovami vlastniho formatovani s vyuzitim funkci
IIF a ISNULL, asi takto:
IIF(ISNULL(#24), 'nevypln=ECno', #24)=20
Pozn. Funkce ISNULL byla zavedena az ve verzi
X.40, ve verzi X.39 jeste nebyla, je treba upgrade.=20
Kompletni popis vestavenych funkci je na:
http://www.sinea(tec)cz/default.asp?page=3D134
Vaclav Krmela
OleContainer - uprava obrazku
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 05.1.2003 17:16:29
LedovecCez OleContainer si vytvorim upravu obrazku z disku. Ako ho mam na
konci ulozit?
1) ked pouzijem TOleContainer.SaveToFile, obrazok sa ulozi do formatu
BDoc. Ako potom mam z toho vydolovat ten obrazok? Alebo je tam vobec?
2) Ako mam odchytit ukoncenie prace s upravou obrazoku?
Vdaka za kazdu radu.
Prichozi hovor
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 5.1.2003 17:55:39
A jak to funguje na normalni lince?
Uz o tom premyslim delsi dobu. Nejde ani tak o to vedet kdo vola, ale
vedet dopredu jestli je to hovor nebo fax by se mi leckdy hodilo.
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> > Ak chces odpocuvat ISND zbernicu vcetne voice hovorov, musis sa na
nu
> > zavesit cez CAPI adapter a komunikovat s nim cez CAPI driver pomocu
CAPI
> > sprav, vid www.capi.org
>
> Ohledne CAPI a Delphi:
> http://home.t-online.de/home/Peter.Zwosta/capiidx.htm
> http://www.isdnobjects.de/
>
> Petr Vones
Sinea a tisk nul
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 5.1.2003 18:58:17
Zdravim
Tak to mi opravdu v zapalu boje uteklo. Mam jeste jeden dotaz.
V sestave mam nadefinovanou funkci ktera scita vsechny hodnoty jednoho
sloupce tabulky. Hodnoty jsou Integer.
Funkce je nadefinovana
Typ - ciselna
Format - Number
Znaku - 6
mist - 0
Dalsi zpracovani - soucet
Vypocetni vyraz #7 zobrazi v sestave "0"
Vypocetni vyraz Format(#7,'### ###') zobrazi v sestave take "0"
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
>Subject: RE: Sinea a tisk nul
> Do sestavy Sinea 3.39y mi vstupuji z tabulky
> ciselne hodnoty. V pripade, ze
> je hodnota "null" tiskne se "0".
> Jak docilit toho, je-li vstupni hodnota "null" nebo "0"
> aby se v tiskove sestave nula netiskla.
>
> Je mi jasne, ze to ma co delat s formatovanim cisla
> jen nevim kam sahnout.
>Formatovani databazovych polozek se prebira z DataSource,
>konkretne je to DisplayFormat jednotlivych polozek.
>Jak to je v DBGridu, tak to je v sestave.
>Pokud je potreba jine formatovani nez v DataSource,
>musi se pouzit uzivatelska funkce a tam je mozne
>vystup libovolne preformatovat, napriklad:
>Pouziti vestavene funkce FORMAT, ktera ma stejne
>moznosti, jako funkce FormatFloat v Delphi.
>Definovami vlastniho formatovani s vyuzitim funkci
>IIF a ISNULL, asi takto:
>IIF(ISNULL(#24), 'nevypln=ECno', #24)
>Pozn. Funkce ISNULL byla zavedena az ve verzi
>X.40, ve verzi X.39 jeste nebyla, je treba upgrade.
>Kompletni popis vestavenych funkci je na:
>http://www.sinea(tec)cz/default.asp?page=3D134
Vaclav Krmela
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.435 / Virov=E1 b=E1ze: 244 - datum vyd=E1n=ED: 30.12.2002
Reklamni banner v komponente webbrowser
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 5.1.2003 19:00:43
Hezky...ale ja potrebuji natahnout banner podle javascriptu ktery je na
strance,jsem totiz v bannerovem systemu....
> Ober:
> Proc nezobrazujes ten banner pres TImage?
>
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
WAROWANI:
---------
Nepouzivejte prosim v subjektu zpravy slova PENIS,NEW,FREE,YOUNG muj
vlastnorucne vyrobeny hlavickovy antispam tyto zpravy s chuti maze.Nezapadam
uz totiz do mnoziny PENIS,NEW,FREE,YOUNG:-)
Sinea a tisk nul
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.1.2003 19:58:57
> From: Viktor Marek
>
> Tak to mi opravdu v zapalu boje uteklo. Mam jeste jeden dotaz.
>
> V sestave mam nadefinovanou funkci ktera scita vsechny hodnoty jednoho
> sloupce tabulky. Hodnoty jsou Integer.
> Funkce je nadefinovana
> Typ - ciselna
> Format - Number
> Znaku - 6
> mist - 0
> Dalsi zpracovani - soucet
> Vypocetni vyraz #7 zobrazi v sestave "0"
> Vypocetni vyraz Format(#7,'### ###') zobrazi v sestave take "0"
>
> Diky za odpoved
Nejak jsem nepochopil, v cem spociva otazka a na co se ceka odpoved.
Vaclav Krmela
Hlidani presunu okna
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 5.1.2003 22:03:18
Ahoj potreboval bych presouvat vsechny okna modalne zobrazena...tj. kdyz
pohnu jednim oknem tak aby i ty ostatni podnim se hnuly s nim...nevite jak
na to?
Proste mi jde o pohyb cele aplikace...
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Sinea a tisk nul
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 5.1.2003 23:31:08
Zdravim
Jde mi o secteni sloupce ciselnych hodnot, pricemz vysledek sloupce muze =
byt
roven "0" a nechci aby se zobrazovala "0"
Ve funkci jsem nadefinoval Vypocetni vyraz #7 soucet, ale ten pri
vysledkove hodnote "0" nulu zobrazuje.
Pokus o formatovani cisla pres parametr mi take nevysel.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> > Dalsi zpracovani - soucet
> > Vypocetni vyraz #7 zobrazi v sestave "0"
> > Vypocetni vyraz Format(#7,'### ###') zobrazi v sestave take "0"
> Nejak jsem nepochopil, v cem spociva otazka a na co se ceka odpoved.
> Vaclav Krmela
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.435 / Virov=E1 b=E1ze: 244 - datum vyd=E1n=ED: 30.12.2002
Sinea a tisk nul
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 6.1.2003 00:31:19
> From: Viktor Marek
>
> Jde mi o secteni sloupce ciselnych hodnot, pricemz vysledek
> sloupce muze byt
> roven "0" a nechci aby se zobrazovala "0"
> Ve funkci jsem nadefinoval Vypocetni vyraz #7 soucet, ale ten pri
> vysledkove hodnote "0" nulu zobrazuje.
Je treba si rozmyslet, co se chce formatovat,
jestli jednotlive polozky, dilci mezisoucty, nebo az hotovy vysledek.
#7 neni vypocetni vyraz, ale databazova polozka.
Predpokladejme, ze vypocetni funkce, ktera provadi souctovani,
ma oznaceni (zv)3. Pokud je pozadavek formatovat az hotovy soucet,
musi se formatovat (zv)3 a ne #7.
Je treba definovat dalsi retezcovou funkci, napr (zv)4,
ktera bude provadet formatovani vysledku souctove funkce (zv)3.> Vypocetni vyraz Format(#7,'### ###') zobrazi v sestave take "0"
Jiz jednou jsem psal, ze interne se pouziva funkce FormatFloat.
Vysledek "0" je v tomto pripade spravny.
Doporucuji nahlednout do helpu Delphi, jak ma vypadat
formatovaci retezec. Ve vyse uvedenem prikladu bude
formatovaci funkce (zv)4 vypadat asi takto:
FORMAT((zv)3, '# ##0;# ##0; ')
Dulezita je ta mezera za druhym strednikem.
Vaclav Krmela
uprava TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.1.2003 03:21:52
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Souhlas, ale pokud vim, osetrovani vyjimek se ma pouzivat tam kde chybu
> necekam, ale muze nastat (myslim tim nikoliv jako primarni test, napr. na
> osetreni deleni nulou...) a tady jsem si myslel, ze by to bylo dobre...
> nicmene, asi ne...
Osetreni vyjimky ma prave smysl tam kde ji ocekavas a je treba provest nejakou
specialni akci. Napriklad kdyz vytvoris a vkladas nejaky objekt do seznamu a
tesne pred tim vlozenim provedes operaci, kde to muze selhat (cteni souboru,
cteni ze socketu, slozity vypocet apod) a vyvola tak vyjimku. Priklad (neuplny
kod):
var
List: TObjectList;
Item: TSomeObject;
(...)
begin
Item := TSomeObject.Create;
try
Item.PerformSomeOperationWhichMightFail;
List.Add(Item);
except
Item.Free; // Pokud metoda PerformSomeOperationWhichMightFail selze tak se
// objekt nevlozi do seznamu a je treba jej uvolnit
raise; // a poslat vyjimku dal ...
end;
end;
Pripadu kdy je treba osetrit nejakou konkretni vyjimku neni zase tolik, o
neosetrenou vyjimku se ti postara primo TApplication. Je ale vhodne takovou
vyjimku nekam zalogovat, vcetne dalsich udaju jako je vypis zasobniku, volne
misto na disku apod. K tomu existuji ruzne nastroje.
Opravnene pripady, kdy se vyjimka uplne 'zahodi' jsou jeste vice ojedinele a
vzdy je treba dobre zvazit, jestli to neni dusledek nejake chyby v navrhu.
> Celkove dik za ujasneni, ale kdybys to takhle vysvetlil uz v prvnim mailu,
> usetrili bychom dohromady tri maily. Jeden se ma porad co ucit a odpovedi
> typu "nesmysl" v tomto moc nepomuzou.
Mas pravdu, psal jsem to bohuzel dost v rychlosti.
Petr Vones
Reklamni banner v komponente webbrowser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.1.2003 03:25:42
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Hezky...ale ja potrebuji natahnout banner podle javascriptu ktery je na
> strance,jsem totiz v bannerovem systemu....
TWebBrowser ti dava moznost menit jednotlive HTML elementy v zobrazene strance
programove, takze si tu stranku muzes upravit dle libosti. V MSDN hledej
"IWebBrowser2 Interface"
Petr Vones
Komponenty typu Edit, validace a vyjimky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.1.2003 04:13:19
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> zacal jsem pouzivat komponenty DevExpress a jejich editacni komponenty
> se chovaji tak, ze pri chybe v zadavanych udajich (chybny datum
> atd.)_vyvolaji vyjimku_. Vubec nevim, jak toto rozumne osetrit. Hledal
> jsem v jejich newsech a nasel odpoved, ze si to mam osetrit v
> Application.OnException. Coz je podle mne zcela postavene na hlavu z
> techto duvodu:
Je. Takova komponenta by mela mit spise udalost OnValidateError nebo neco
podobneho. Doufam ze se alespon jedna o nejakou specialni vyjimku a ne o
EConvertError apod.
> 1. Podle mne by Application.OnException melo slouzit tak maximalne k
> zapisu do logu chyb, ktere nezvladl osetrit programator.
Ano, k chybam ktere nemely nikdy nastat.
> 2. Potrebuju na chyby reagoval lokalne, ve formulari, kde chyba nastala
> - a ne v aplikaci. Tam ani nezjistim, co ji zpusobilo.
Slo by to resit pomoci interface, ktery muze formular implementovat aby
obdrzel neosetrenou vyjimku. Navratova hodnota metody ValidateError pak urci,
zdali byla vyjimka obslouzena nebo ne a podle toho zobrazit standardni
exception dialog.
------------------------------------------------------------------------------
unit ValidateIntf;
interface
uses
SysUtils;
type
IEditValidate = interface
['{E5C83121-190E-48FF-8CB2-995D96346C26}']
function ValidateError(E: Exception): Boolean;
end;
implementation
end.
------------------------------------------------------------------------------
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ValidateIntf, StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure AppException(Sender: TObject; E: Exception);
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses Unit2;
{$R *.dfm}
procedure TMainForm.AppException(Sender: TObject; E: Exception);
var
TempForm: TForm;
ValidateIntf: IEditValidate;
begin
TempForm := Screen.ActiveForm;
if not (Assigned(TempForm) and Supports(TempForm, IEditValidate,
ValidateIntf) and ValidateIntf.ValidateError(E)) then
Application.ShowException(E);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
end.
------------------------------------------------------------------------------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ValidateIntf;
type
EMyValidateError = class(Exception);
TForm2 = class(TForm, IEditValidate)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
function ValidateError(E: Exception): Boolean;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TForm2 }
function TForm2.ValidateError(E: Exception): Boolean;
begin
Result := (E is EMyValidateError);
if Result then
ShowMessage(E.Message);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
raise EMyValidateError.Create('Error');
end;
end.
Petr Vones
Hlidani presunu okna
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 6.1.2003 08:16:41
Tak si odchyt udalost, kdy se dane modalni okno presouva a vsem podrizenym
posli prikaz pro zmenu pozice na pozici jakou ma ono modalni - neco
podobneho jsem uz resil, cili bych mozna mohl poslat i nejakou jednoduchou
ukazku
MI'RA
-----Original Message-----
From: Ales Pavel [mailto:Aldik(zv)quick(tec)cz]
Sent: Sunday, January 05, 2003 10:03 PM
To: delphi
Subject: Hlidani presunu okna
Ahoj potreboval bych presouvat vsechny okna modalne zobrazena...tj.
kdyz
pohnu jednim oknem tak aby i ty ostatni podnim se hnuly s nim...nevite jak
na to?
Proste mi jde o pohyb cele aplikace...
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/richedit a klavesove zkratky..
[*] cz574068(zv)tiscali(tec)cz - 6.1.2003 08:49:23
Dobry den..
najde se zde dobry clovek, jez mi poradi s prkotinou na niz nemohu priji=
t
? Problem jest nasledujici. Udelal jsem si jednoduchy editor na text zalo=
zeny
na komponente TRichEdit. Byl bych rad, aby fungoval, co se tyce klavesovy=
ch
zkratek stejne jako klasicky wordpad. Tedy na zkratky CTRL+B, CTRL+U, CTR=
L+I.
Jak proste,ze? Lec u zkratky CTRL+I se sice zmenim styl fontu, ale take
se do editoru prida asi sest podtrzitek..(a ja je tam nedavam :) Pokusy
odchytit tuto kombinaci klaves ztroskotali. A to na tom, ze sice klavesy
chytnu, ale nedari se je nijak 'utopit', protoze podtrzitka lezou do edit=
oru
dal. Uaaa!!Grrr!!
Zkusil jsem i priklad v demos od BORLANDu, ale tam je to same..
Prosim nevite nekdo oc jde? Proc to? Nebo jak se toho zbavit?
Dekuji, dekuji za kazdy TIP&TRICK :) Martin.
____________________________________________________
Postete svym znamym vanocni prani a udelejte jim radost!
http://pohlednice.tiscali(tec)cz
richedit a klavesove zkratky..
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 6.1.2003 09:13:46
Ahoj,
ja jsem delal jeden editor (teda asi mnohem slozitejsi - byl pro
prumyslovy programovaci jazyk) a tenhle problem jsem mel take. Zprvu
jsem se (jako ty) snazil prijit na to proc, ale pak jsem se na takove
badani vyprdnul a udelal nasledujici:
* vytvoril si novou komponentu zalozenou na TRichEdit
* a v ni odchytavat co pujde na zobrazeni a co se jaksi ztrati - tam to slo
Je to vyzkousene - mozna trosku krkolomne, ale funkcni. Pokud s tim budes
mit nejake problemy, tak bud pockej na nejakou radu, nebo ti vecer z domova
muzu poslat tenhle kousek komponenty, kterou jsem vytvoril.
MI'RA
-----Original Message-----
From: cz574068(zv)tiscali(tec)cz [mailto:cz574068(zv)tiscali(tec)cz]
Sent: Monday, January 06, 2003 8:49 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: re : richedit a klavesove zkratky..
Dobry den..
najde se zde dobry clovek, jez mi poradi s prkotinou na niz nemohu prijit
? Problem jest nasledujici. Udelal jsem si jednoduchy editor na text
zalozeny
na komponente TRichEdit. Byl bych rad, aby fungoval, co se tyce klavesovych
zkratek stejne jako klasicky wordpad. Tedy na zkratky CTRL+B, CTRL+U,
CTRL+I.
Jak proste,ze? Lec u zkratky CTRL+I se sice zmenim styl fontu, ale take
se do editoru prida asi sest podtrzitek..(a ja je tam nedavam :) Pokusy
odchytit tuto kombinaci klaves ztroskotali. A to na tom, ze sice klavesy
chytnu, ale nedari se je nijak 'utopit', protoze podtrzitka lezou do editoru
dal. Uaaa!!Grrr!!
Zkusil jsem i priklad v demos od BORLANDu, ale tam je to same..
Prosim nevite nekdo oc jde? Proc to? Nebo jak se toho zbavit?
Dekuji, dekuji za kazdy TIP&TRICK :) Martin.
____________________________________________________
Postete svym znamym vanocni prani a udelejte jim radost!
http://pohlednice.tiscali(tec)cz
FTP - Aktualni pozice stahovani
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 6.1.2003 09:13:47
Zdravim,
mate nekdo zkusenosti zobrazovat aktualni pocet stazenych kB pres nejakou
FTP komponentu? Ja znam jen komponentu IdFTP a ta to neumoznuje (nebo se
mylim?)...
Jiri
FTP - Aktualni pozice stahovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 06.1.2003 09:17:09
> mate nekdo zkusenosti zobrazovat aktualni pocet stazenych kB pres
> nejakou FTP komponentu? Ja znam jen komponentu IdFTP a ta to
> neumoznuje (nebo se mylim?)...
Prekvapilo by mne, kdyby tohle indy neumelo... kazdopadne v Synapsi
se staci povesit na event TFTpsend.dsock.onstatus a cihat na zpravy o
poctu prenesenych bytu dat. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
FTP - Aktualni pozice stahovani
[*] Jir� Matejka <matejka(zv)stemmark(tec)cz> - 6.1.2003 09:21:24
Komponenta TIdFTP ma udalost OnWork, ve ktere je aktualni pocet stazenych
bytu, v udalosti OnWorkBegin se pak da ziskat celkovy ocekvany pocet bytu=
a
podle toho treba posouvat progressbar, v OnWorkEnd pak treba vynulovat. M=
am
Indy 9.0.3, nevim jestli to maji i starsi verze.
Jirka Matejka
----- Original Message -----
From: "Jiri Sedivec" <jsedivec(zv)mail(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 06, 2003 9:13 AM
Subject: FTP - Aktualni pozice stahovani
> Zdravim,
>
> mate nekdo zkusenosti zobrazovat aktualni pocet stazenych kB pres nejak=
ou
> FTP komponentu? Ja znam jen komponentu IdFTP a ta to neumoznuje (nebo s=
e
> mylim?)...
>
> Jiri
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.435 / Virov=E1 b=E1ze: 244 - datum vyd=E1n=ED: 2.1.2003
OT:sit peer2peer,spojeni pres LPT
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 6.1.2003 09:26:22
Zdravim v novem roce,
1.
Mam problem s rozchozenim TCP/IP (ethernet) mezi 2 kompy.
Co chodi: jsou-li na obou kompasech XP home nebo prof.,tak to chodi v pohode
na 100 megabitech.
Kdyz ale na jednom kompu jsou Win98SE a na druhym WinXP Home - tak to z
urcitych
duvodu potrebuji, tak at s tim delam psi kusy, ne a ne se to vzajemne
dorozumet. Zkousel jsem ruzne adresy, masky podsite (lokalni sit) i
dynamicke pridelovani ze serveru DHCP, ale vzdy to pingem poznalo jenom ten
samy pocitac. W XP je pruvodce nastavenim domaci site, ktery funguje i pod
98, ale tim to taky neslo nakonfigurovat.
Treba jsem zkousel na jednom poci s XP Home nastavit adresu 169.254.0.1 a
masku 255.255.255.0 a na druhym s W98SE adresu 169.254.0.2 a tutez masku a
ping nasel na kazdym kompu jenom ten pocitac, na kterym byl spusten. V
sitovem okoli se taky zobrazi jen ten samy (lokalni) pocitac.
Vzhledem k funkcnimu spojeni mezi obema pocitaci s WinXP se odvazuji tvrdit,
ze hardware (sitove karty, kabel, propojeni, samotne kompy) je naprosto v
poradku.
A ted dotazy:
Co a jak se jeste musi nastavit, aby tahle nejjednodussi TCP/IP sit chodila?
Jak ovlivni maska podsite chovani (jaky je presne rozdil treba mezi maskou
255.255.0.0 a 255.255.255.0?
Je nutne nastavovat parametr Vychozi brana? V napovede jsem vycetl zhruba
to, ze tahle brana je treba pouze pro komunikaci s jakousi nadrazenou siti.
Neovlivnuje nefunkcnost "spojeni W98 a WXP" napriklad i fakt, ze v XP se
vytvari sitove slozky typu Sdilene dokumenty apod., ktere maji dlouhy nazev,
coz W98 neskousne? Zkousel jsem totiz, jak jsem se uz vyse zminil, i toho
jejich pomocnika pro domaci a malou sit, ktery tedy udajne ma fungovat i ve
W98, a ten mi tu sit v tech 98 nakonfiguroval (je jedno jaka moznost funkce
a umisteni kompu se zvoli) tak, ze misto Sdilene dokumenty se pod ikonkou
daneho (v mem pripade jen lokalniho) pocitace zobrazil patvar
"sd=len-dokum".
2.
Jen kratce: Podarilo se nekomu z Vas rozchodit prime propojeni paralelnim
kabelem mezi 2 kompy pod Windows (jakekoli 32-bit)? S kamosema (3) jsme to
zkouseli snad do aleluja s nulovym vysledkem. Jestli to vubec jde, jak se
musi nastavit parametry LPT u obou kompu (myslim EPP, ECP,...) a ovladac pro
wokna, aby se to rozbehlo?
Diky za kazdy osvedceny a pokud mozno podrobny postup.
-----
Ing. Tomas Krysl,
programator a analytik
ALVA Strakonice s.r.o.
Pisecka 893, 386 01 Strakonice
++420 377 430 701
GSM: 776 892 206
ICQ: 176733526
tomkrysl(zv)quick(tec)cz
FTP - Aktualni pozice stahovani
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 6.1.2003 09:40:05
Aha tak v tom to bude - mam DOST starou verzi...
OT: DDG - Pacheco,Teixeira - hleda se dil o grafic
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 6.1.2003 09:42:00
Cau lidi,
bohuze jsem pri povodni prisel o tento dil Delphi Developres Guide. Koukam
ze v knihkupectvich uz ho asi nepujde splasit. Nevedel by nekdo nahodou kde
by se jeste dal koupit.
dik Pavel
MailSlot a NT sluzba
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 6.1.2003 10:42:42
Moje aplikace vytvari MailSlot pro komunikaci s klienty.
Pokud ji vsak spustim jako NT sluzbu, tak vsichni klienti
dostavaji pri pripojeni chybu 5 access denied.
Co je potreba udelat aby se aplikace bezici na desktopu
pod uzivatelskym uctem mohli pripojovat ke sluzbe
bezici pod systemovym uctem ?
Dekuji
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.Delphi componenty kotra C++
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 6.1.2003 11:16:30
Jak funguje prevod komponent a jejich pouziti napriklad v C++ builderu,muzou
me komponenty pouzit C++kari a jak to funguje?
Mam svoji unitu FreeExcelSylk...jestli je to jak si myslim tak to staci
prehodit do Lib a unita bude fungovat?
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Delphi componenty kotra C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 06.1.2003 11:30:34
Ahoj,
> Aldik(zv)quick(tec)cz 6.1.03 11:16 >>>
>Jak funguje prevod komponent a jejich pouziti napriklad v C++ builderu,muz=
ou
>me komponenty pouzit C++kari a jak to funguje?
>Mam svoji unitu FreeExcelSylk...jestli je to jak si myslim tak to staci
>prehodit do Lib a unita bude fungovat?
pokud mas komponentu v Delphi mela by jit naistalovat v BCB...
v podstate v BCB staci soubor *.pas (a ostatni potrebne unity), kde je =
procedura register, mozna se najdou i vyjimky, ale jeste jsem se s nimi =
nesetkal
obracene to nejde
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
OT:sit peer2peer,spojeni pres LPT
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.1.2003 11:52:02
Tomas Krysl dne 6 Jan 2003 v 9:26:
> 2.
> Jen kratce: Podarilo se nekomu z Vas rozchodit prime propojeni
> paralelnim kabelem mezi 2 kompy pod Windows (jakekoli 32-bit)? S
> kamosema (3) jsme to zkouseli snad do aleluja s nulovym vysledkem.
> Jestli to vubec jde, jak se musi nastavit parametry LPT u obou kompu
> (myslim EPP, ECP,...) a ovladac pro wokna, aby se to rozbehlo?
Ahoj,
no, castecne a bylo to veru zajimave... Na jednom PC Win2K SP2, na notebooku Win2K SP3. Parametry
LPT jsem nijak nemenil a ani nevim, co tam je. Kabel stary, pouzival jsem ho kdysi pro LL3, M602
apod. Pro pripojeni jsem pouzil toho pomocnika, co nabehne pri vytvareni noveho sitoveho
pripojeni. Laboroval jsem s tim dost dlouho, prestoze byly stejne nazvy skupiny ci jak tomu
rikaji, mohl jsem pingnout, ale nevidel sdilene slozky druheho pocitaci. Momentalne to "funguje"
tak, ze na notebooku odklepnu, ze se chci pripojit, a pak ze stolniho PC mohu pouzivat slozky
nasdilene na notebooku. Obracene mi to nechodi a uz jsem (po tech asi trech hodinach) nenasel
odvahu v tom dal vrtat.
Adresy jsem pouzival 172.17.14.10 a 172.17.14.11, masku podsite 255.255.255.0. Vychozi brana neni
snad treba.
Karel Rys
TreeView a dynamicka data TStrings
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 6.1.2003 12:03:07
Ahoj,
> V jine procedure se zeptam na data
> procedure TMain.MainTreeDblClick(Sender: TObject);
> var TN : TTreeNode;
> TD : TData;
problem bude asi tady - TD je definovana jako lokalini promenna. Misto ni
pouzij MyData.
> begin
> HandleData.Keys.Items:=TD.Keys;
HandleData.Keys.Items:=MyData.Keys;
> HandleData.Values.Items:=TD.Values;
> end;
>
> a neni tam nic, TD.Keys.count je 0, jako by tam
> nic nebylo..
> v cem bude problem ?
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
OT:sit peer2peer,spojeni pres LPT
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.1.2003 12:21:02
> 1.
> Mam problem s rozchozenim TCP/IP (ethernet) mezi 2 kompy.
> Co chodi: jsou-li na obou kompasech XP home nebo prof.,tak to chodi
v pohode
> na 100 megabitech.
> Kdyz ale na jednom kompu jsou Win98SE a na druhym WinXP Home - tak
to z
> urcitych
> duvodu potrebuji, tak at s tim delam psi kusy, ne a ne se to
vzajemne
> dorozumet. Zkousel jsem ruzne adresy, masky podsite (lokalni sit) i
> dynamicke pridelovani ze serveru DHCP, ale vzdy to pingem poznalo
jenom ten
> samy pocitac. W XP je pruvodce nastavenim domaci site, ktery funguje
i pod
> 98, ale tim to taky neslo nakonfigurovat.
> Treba jsem zkousel na jednom poci s XP Home nastavit adresu
169.254.0.1 a
> masku 255.255.255.0 a na druhym s W98SE adresu 169.254.0.2 a tutez
masku a
> ping nasel na kazdym kompu jenom ten pocitac, na kterym byl spusten.
V
> sitovem okoli se taky zobrazi jen ten samy (lokalni) pocitac.
> Vzhledem k funkcnimu spojeni mezi obema pocitaci s WinXP se odvazuji
tvrdit,
> ze hardware (sitove karty, kabel, propojeni, samotne kompy) je
naprosto v
> poradku.
seznam moznych pricin:
1) hardware - pokud pri nainstalovani WinXP chodi pak tato poznost
pada. Predpokladam, ze PC jsou propojeny krizenym kabelem (plne
zapojeni) nebo prez switch/hub
2) software (drivery) - je mozne, ze Win9X nejsou schopny s tou
sitovkou spravne komunikovat
3) nastaveni driveru/TCP/IP subsystemu
- nastaveni rezimu komunikace (duplex, speed) musi byt na obou
stanicich stejne (nespolehat na automatickou detekci). Je mozne, ze
Win9X drivery se vice boji a proto defaultne nastavuji 10/half duplex.
Kolizne nastaveny duplex by nemel zpusobit ztratu spojeni - obcas
nejakej packet by mel projit. Kolizne nastavena rychlost zpusobi
ztratu spojeni na 100%
- nastaveni TCP/IP - zvolil bych jine IP nez 169.254.x.x (to je
rozsah vyhrazeny pro DHCP klienty po nenalezeni DHCP serveru) -
napriklad 192.168.x.x nebo 10.x.x.x Ale volba IP rozsahu nemuze mit
vliv na funkcnost/nefunkcnost spojeni mezi 2ma PC.
>
> A ted dotazy:
> Co a jak se jeste musi nastavit, aby tahle nejjednodussi TCP/IP sit
chodila?
IP/maska - vic nic. Zbytek by se mel nastavit sam (routovaci tabulka).
Win jeste vyzaduji pridelit stanici jmeno - konfiguracni dialog Te bez
nej nepusti
>
> Jak ovlivni maska podsite chovani (jaky je presne rozdil treba mezi
maskou
> 255.255.0.0 a 255.255.255.0?
Maska urcuje velikost site (bloku IPcek). Cim vice nul zprava tim
vetsi sit. Pokud chces vedet vice detailu pak si to nekde nestuduj
:-). Podstatne je to, ze vsechny stanice v jedny siti musi mit stejnou
masku (prislusnost do site urcuje adresa site a maska)
>
> Je nutne nastavovat parametr Vychozi brana?
nikoliv. Ten je treba jen kdyz z dane site je treba poslat TCP/IP
packet za router na adresy cizich siti (pak je/muze byt ten router
vychozi branou)
>V napovede jsem vycetl zhruba
> to, ze tahle brana je treba pouze pro komunikaci s jakousi
nadrazenou siti.
>
> Neovlivnuje nefunkcnost "spojeni W98 a WXP" napriklad i fakt, ze v
XP se
> vytvari sitove slozky typu Sdilene dokumenty apod., ktere maji
dlouhy nazev,
> coz W98 neskousne?
samotne TCP/IP to ovlivnit nemuze
> 2.
> Jen kratce: Podarilo se nekomu z Vas rozchodit prime propojeni
paralelnim
> kabelem mezi 2 kompy pod Windows (jakekoli 32-bit)? S kamosema (3)
jsme to
> zkouseli snad do aleluja s nulovym vysledkem. Jestli to vubec jde,
jak se
> musi nastavit parametry LPT u obou kompu (myslim EPP, ECP,...) a
ovladac pro
> wokna, aby se to rozbehlo?
Btw: pro ECP/EPP rezim prenosu potrebujes specialni kabel (nikoliv ten
od stareho Laplinka ci Nortona). Komunikace je skutecne 8mibitova a
obousmerna a je treba mit plne zapojeny kabel (mel by obashovat par
prekrizenych vodicu).
Pozn: ECP/EPP we Windows jsem nikdy netestoval ale psal jsem
komunikaci pomoci ECP jeste v DOSu...
D. Toman
UDP protokol, komunikace pres TCP
[*] Ing. Zden�k �ezn��ek - 6.1.2003 13:20:48
Zdravim vsechny
mam dotaz ohledne UDP protokolu.
Tato problematika tu jiz byla resena. Je mi jasne, ze v pripade UDP
protokolu se narozdil od TCP protokolu musim sam postarat o overevi doruceni
zpravy. Neni mo vsak jasne, zda musim sam take overovat spravnost obsahu
zpravy (nejakym CRC).
Chci pouzit Indy komponenty IdUDPServer a IdUDPClient.
Diky za pripadne rady.
Zdenek Reznicek
OT:sit peer2peer,spojeni pres LPT
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 6.1.2003 13:28:45
Tomas Krysl, <mailto:tomkrysl(zv)quick(tec)cz>:
TK> 2.
TK> Jen kratce: Podarilo se nekomu z Vas rozchodit prime propojeni paralelnim
TK> kabelem mezi 2 kompy pod Windows (jakekoli 32-bit)? S kamosema (3) jsme to
Prenos souboru pres LPT umi vyborne Total (Windows) Commander. Z
Win9x, 2K, XP na libovolny stroj s DOS(!), Win9x, 2K, XP. Pouzivam
laplinkovy kabel.
Prime propojeni pres LPT jen pomoci Win jsem nerozchodil, i kdyz jsem
to zkousel.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
UDP protokol, komunikace pres TCP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.1.2003 13:29:45
> mam dotaz ohledne UDP protokolu.
> Tato problematika tu jiz byla resena. Je mi jasne, ze v pripade UDP
> protokolu se narozdil od TCP protokolu musim sam postarat o overevi
doruceni
> zpravy. Neni mo vsak jasne, zda musim sam take overovat spravnost
obsahu
> zpravy (nejakym CRC).
kazdy UDP packet v sobe nese vlastni CRC, kterym se kontroluje
integrita packetu. Jedna se sice o obycejnou sumu (zadny slozity
vypocet - tady slo predevsim o rychlost a snadnost vypoctu) ale pro
bezne pouziti by mela stacit. Cili s vysokou pravdepodobnosti je
packet doruceny aplikaci naprosto v poradku (packety, ktere maji jiny
CRC nez v hlavicce uvedeny jsou/mely by byt zahozeny systemem)
D. Toman
UDP protokol, komunikace pres TCP
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 6.1.2003 13:51:58
Pokud to bude jen na ethernetu, tak tam je jeste dalsi CRC, to ovsem
neplati o obecnem internetu.
Slavek
> > mam dotaz ohledne UDP protokolu.
> > Tato problematika tu jiz byla resena. Je mi jasne, ze v pripade UDP
> > protokolu se narozdil od TCP protokolu musim sam postarat o overevi
> doruceni
> > zpravy. Neni mo vsak jasne, zda musim sam take overovat spravnost
> obsahu
> > zpravy (nejakym CRC).
>
> kazdy UDP packet v sobe nese vlastni CRC, kterym se kontroluje
> integrita packetu. Jedna se sice o obycejnou sumu (zadny slozity
> vypocet - tady slo predevsim o rychlost a snadnost vypoctu) ale pro
> bezne pouziti by mela stacit. Cili s vysokou pravdepodobnosti je
> packet doruceny aplikaci naprosto v poradku (packety, ktere maji jiny
> CRC nez v hlavicce uvedeny jsou/mely by byt zahozeny systemem)
>
> D. Toman
>
> OT:sit peer2peer,spojeni pres LPT
[*] Dalibor <dalibor(zv)torola(tec)cz> - 06.1.2003 14:48:49
Ahoj, ja mam doma rozbehnuty LPT pripojeni mezi notebookem s
Win95 a PC s Win2000(WinXP). Teda doufam, ze nekecam.
Je fakt, ze mi to nejakou tu chvili trvalo, ale nakonec se to povedlo.
Myslim, ze jsem musel jeste pridat do seznamu UZIVATELU i toho
uzivatele, kterej je na Win95(98).
Protokoly jsem tam mel TCPIP, NETBUI?(tady si nejsem jisty) -
1PC - 192.168.7.1
2PC - 192.168.7.2
MASKA - 255.255.255.0
Zadnou branu a ani dalsi veci (ECP,EPP) sem nenastavoval.
Dal.Sinea a tisk nul
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 6.1.2003 15:58:45
Zdravim
Diky za serii uspesnych nakopnuti. Ted to chodi jak ma.
Zil jsem v domeni, ze formatovani muzu provest v jednom kroku.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> > Jde mi o secteni sloupce ciselnych hodnot, pricemz vysledek
> > sloupce muze byt
> > roven "0" a nechci aby se zobrazovala "0"
> > Ve funkci jsem nadefinoval Vypocetni vyraz #7 soucet, ale ten pri
> > vysledkove hodnote "0" nulu zobrazuje.
>
> Je treba si rozmyslet, co se chce formatovat,
> jestli jednotlive polozky, dilci mezisoucty, nebo az hotovy vysledek.
>
> #7 neni vypocetni vyraz, ale databazova polozka.
> Predpokladejme, ze vypocetni funkce, ktera provadi souctovani,
> ma oznaceni (zv)3. Pokud je pozadavek formatovat az hotovy soucet,
> musi se formatovat (zv)3 a ne #7.
> Je treba definovat dalsi retezcovou funkci, napr (zv)4,
> ktera bude provadet formatovani vysledku souctove funkce (zv)3.
> > Vypocetni vyraz Format(#7,'### ###') zobrazi v sestave take "0"
> Jiz jednou jsem psal, ze interne se pouziva funkce FormatFloat.
> Vysledek "0" je v tomto pripade spravny.
> Doporucuji nahlednout do helpu Delphi, jak ma vypadat
> formatovaci retezec. Ve vyse uvedenem prikladu bude
> formatovaci funkce (zv)4 vypadat asi takto:
> FORMAT((zv)3, '# ##0;# ##0; ')
> Dulezita je ta mezera za druhym strednikem.
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.435 / Virov=E1 b=E1ze: 244 - datum vyd=E1n=ED: 30.12.2002
UDP protokol, komunikace pres TCP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.1.2003 16:29:12
> Pokud to bude jen na ethernetu, tak tam je jeste dalsi CRC, to ovsem
> neplati o obecnem internetu.
ekvivalent ethernetiho frame CRC je urcite v kazdym protokolu, kterym
se prenaseji data ( a je jedno zda spoj je na ethernetu ci na jinem
mediu/protokolu)
D. Toman
Table
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 6.1.2003 16:46:27
Skus pouzit Table.Filter, kde si ulozis nieco podobne ako SQL napr.:
Table.Filter:='id=table2.id'; Potom este aktivuj filter prikazom
Table.Filtered:=True; Takyto filter funguje na BDE, v IB som to
neskusal.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Petr K.
>: Sent: Sunday, January 05, 2003 2:13 PM
>: To: Delphi clexpert
>: Subject: Table
>:
>: Zdravim mam ted jeden problem mam dve tabulky (pod IB) a obe tabulky
>: obsahuji field - ID typu Integer a potreboval bych zobrazit obe
tabulky
>: tak
>: aby se v jednom radku zobrazilo vse co splnuje podminku Table1.ID =
>: Table2.ID ???
>: Pres SQL to neni problem, ale v komponente Table jsem si uz nejak
>: neporadil.
>: Dik Petr
Sinea a tisk nul
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 6.1.2003 16:48:50
> From: Viktor Marek
>
> Zil jsem v domeni, ze formatovani muzu provest v jednom kroku.
Za urcitych okolnosti by to chodilo i v jednom kroku.
V tomto konkretnim pripade asi ano.
Obecne ale vysledkem formatovani muze byt ztrata
presne ciselne hodnoty, napr. zaokrouhlenim.
No a potom uz neni jedno, zda se formatuje vysledek
souctovani, nebo zda se scitaji formatovana data.
Vaclav Krmela
Delphi componenty kotra C++
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 6.1.2003 17:08:10
plati to i o nevizualnich kde neni register..dojde k prekladu?
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/ > -----Puvodni zprava-----
> Od: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]za uzivatele Blazek Jaroslav
> Odeslano: 6. ledna 2003 11:31
> Komu: delphi-l(zv)clexpert(tec)cz
> Predmet: Re: Delphi componenty kotra C++
>
>
> Ahoj,
>
> > Aldik(zv)quick(tec)cz 6.1.03 11:16 >>>
> >Jak funguje prevod komponent a jejich pouziti napriklad v C++
> builderu,muzou
> >me komponenty pouzit C++kari a jak to funguje?
> >Mam svoji unitu FreeExcelSylk...jestli je to jak si myslim tak to staci
> >prehodit do Lib a unita bude fungovat?
>
> pokud mas komponentu v Delphi mela by jit naistalovat v BCB...
> v podstate v BCB staci soubor *.pas (a ostatni potrebne unity),
> kde je procedura register, mozna se najdou i vyjimky, ale jeste
> jsem se s nimi nesetkal
> obracene to nejde
>
>
> 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
> UDP protokol, komunikace pres TCP
[*] Ing. Zdenek Rezn�cek <reznicek(zv)nem.pce(tec)cz> - 6.1.2003 17:18:36
Ja vim, to je fakt, ze zabezpeceni nejakym napriklad Ethernet II frejmem=
by
mohlo stacit. Jde o to, ze kdyz bude zprava dels=ED, bude dorucena nejspi=
s ne
jednim ale nekolika pakety. A tady bude mozna problem umet zajistit doruc=
eni
vsech paketu. Moc tomu nerozumim, takze ted nevim jestli nahodou moc
nekecam.
Zdenek
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 06, 2003 4:29 PM
Subject: Re: UDP protokol, komunikace pres TCP
>
> > Pokud to bude jen na ethernetu, tak tam je jeste dalsi CRC, to ovsem
> > neplati o obecnem internetu.
>
> ekvivalent ethernetiho frame CRC je urcite v kazdym protokolu, kterym
> se prenaseji data ( a je jedno zda spoj je na ethernetu ci na jinem
> mediu/protokolu)
>
> D. Toman
>
UDP protokol, komunikace pres TCP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.1.2003 17:20:56
>Ja vim, to je fakt, ze zabezpeceni nejakym napriklad Ethernet II
frejmem by
>mohlo stacit. Jde o to, ze kdyz bude zprava dels=ED, bude dorucena
nejspis ne
>jednim ale nekolika pakety. A tady bude mozna problem umet zajistit
doruceni
>vsech paketu. Moc tomu nerozumim, takze ted nevim jestli nahodou moc
>nekecam.
Datagram muze byt teoreticky az 64kB dlouhy (plus minus autobus - ale
malej). Takovy datagram se samozrejme fragmentuje na vice kousku podle
maximalni velikosti packetu na trase - stanice prijemce ale zase vse
posklada do sebe. Casove kriticke aplikace (prenos videa/hlasu) se
ovsem brani fragmentaci (posilaji packety tak male aby prosly bez
fragmentace). Timeouty pri defragentaci mohou mit totiz horsi vliv nez
kdyz se ztrati ( a nenahradi) jen jeden mensi packet.
Cili volba velikosti (a zabezpeceni integrity) data zavisi hlavne na
tom co se prenasi
D. Toman
OT: Vstup/vystup S-VHS u karty s TV tunerem
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 6.1.2003 17:49:21
Ahoj vespolek, mam kartu s TV tunerem a k ni pripojenou televizi pres =
cinch
konektory Audio Out a Video Out. Krome toho ale karta obsahuje take
vstup/vystup S-VHS. Chtel bych se pritomnych odborniku zeptat, zda ma =
smysl
z hlediska kvality pripojovat TV prijimac (ma samozrejme S-VHS vstup) =
na
tento S-VHS vystup anebo zda staci stavajici pripojeni pres Audio Out a
Video Out.
Odpovedi prosim na soukromy mail, at nezatezujeme konferenci. Diky =
predem za
vsechny odpovedi.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Delphi componenty kotra C++
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 06.1.2003 18:18:55
Ahoj,
> Aldik(zv)quick(tec)cz 6.1.03 17:08 >>>
>plati to i o nevizualnich kde neni register..dojde k prekladu?
ano, vytvori si vlastni *.hpp a *.obj a hlavickovy soubor jde potom jen =
includnout v projektu
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
InstallShield a FB
[*] J�n Harman <harman(zv)volny(tec)cz> - 6.1.2003 22:39:16
Ahoj,
vite nekdo, muzu prosim nainstalovat aplikaci i s FB dohromady a instalac=
ky
vyrobit pomoci install shieldu?
Diky
J=E1n Harman, Brno, harman(zv)volny(tec)cz
InstallShield a FB
[*] tondrej(zv)t-online.de (TOndrej) - 6.1.2003 22:52:50
> muzu prosim nainstalovat aplikaci i s FB dohromady a instalacky
> vyrobit pomoci install shieldu?
http://ibinstall.defined.net
HTH
TOndrej
Vysoke skoly, informatika, programovanie
[*] Jaroslav �velta <jsvelta(zv)ciglersw.sk> - 7.1.2003 08:10:06
Odporucam MFF UK Praha alebo FEL CVUT Praha
Jaroslav =A9velta
Program=E1tor
----------------------------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
----------------------------------------------------
-----Original Message-----
From: Mirko jr. [mailto:mzibolen(zv)enelux.sk]
Sent: Sunday, January 05, 2003 8:36 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Vysoke skoly, informatika, programovanie
Dobry den prajem,
obraciam sa na Vas ako na svetaznalych informatikov - programatorov, rad =
by
som nasledoval vo vasich slapajach ... Chcel by som sa spytat, ake mate
skusenosti s vysokymi skolami najma na Slovensku, prip. v Cechach. Rad =
by
som "ciste" programovanie, tvorba software, nie nejaka sprava systemov,
zatial to vyhrava MatFyz v Ba.
Zasadna otazka: keby ste sa pozreli dozadu, na ktorej skole by ste sa
rohodli dnes studovat ?
Dakujem za pomoc, odpovede mozete posielat aj na sukromny mail
mzibolen(zv)enelux.sk
P.S: Matematika a informatika mi nevadia, tej fyziky keby tam bolo =
menej.
Mirko Zibolen, Gymnazium V.Paulinyho-Totha, Martin
---
Prich=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.435 / V=EDrusov=E1 datab=E1za: 244 - d=E1tum vydania: 30. =
12. 2002
=20
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.435 / V=EDrusov=E1 datab=E1za: 244 - d=E1tum vydania: 30. =
12. 2002
=20
Spusteni IE s adresou a danym ukotvenim <a name="x
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 7.1.2003 08:37:07
Chci spustit webovy prohlizec s danou adresou (se strankou, ktera obsahuje
ukotveni
<a name="ukotveni1"><a/> tedy napr. pomoci
ShellExecute(Application.Handle,'open',pchar('file:///c:/index.htm#ukotveni1
'),'','',0);
Ale spusti se dokument od zacatku - nenastavi se na dane ukotveni.
Kde je chyba???
Diky
J.
Spusteni IE s adresou a danym ukotvenim <a name="x
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 7.1.2003 09:53:25
tipoval bych to na nasledujici moznost (nemam tu Delfiny, tak to
nemohu zkusit)
zkusit tu kotvu dat jako parametr pro spusteni toho souboru - cili:
ShellExecute(Application.Handle,'open',pchar('file:///c:/index.htm'),
'#ukotveni1','',0);
pokud je to spravny parametr fce ShellExecute
MI'RA
-----Original Message-----
From: jtomecek [mailto:jtomecek(zv)dezadata(tec)cz]
Sent: Tuesday, January 07, 2003 8:37 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Spusteni IE s adresou a danym ukotvenim <a name="xxx"></a>
Chci spustit webovy prohlizec s danou adresou (se strankou, ktera obsahuje
ukotveni
<a name="ukotveni1"><a/> tedy napr. pomoci
ShellExecute(Application.Handle,'open',pchar('file:///c:/index.htm#ukotveni1
'),'','',0);
Ale spusti se dokument od zacatku - nenastavi se na dane ukotveni.
Kde je chyba???
Diky
J.
UDP protokol, komunikace pres TCP
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 7.1.2003 10:09:23
Na nekterych ser. linkach ne. Tusim ze SLIP nema zadne CRC, to je ponechano
na vyssi vrstve. Ser. linky se nepouzivaji jen mezi PC, ale i mezi providery.
Bylo to v jedne knizce o TCP/IP, tusim Kompendium TCP/IP a servery DNS.
Slavek
> > Pokud to bude jen na ethernetu, tak tam je jeste dalsi CRC, to ovsem
> > neplati o obecnem internetu.
>
> ekvivalent ethernetiho frame CRC je urcite v kazdym protokolu, kterym
> se prenaseji data ( a je jedno zda spoj je na ethernetu ci na jinem
> mediu/protokolu)
Komponenty typu Edit, validace a vyjimky
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 07.1.2003 10:18:56
Ahoj,
dival jsem se na tve reseni a vypada velice velice elegantne. Diky.
Jediny nedostatek je, ze ti (blbouni) Devexpress generuji pri chybe
vyjimku typu Exception! Takto mi do formulare polezou naprosto vsechny
vyjimky a ja nepoznam, ktera je ta prava. Ale myslim, ze i to je
prijatelne, porad lepsi, nez zobrazit message box v App.OnException.
Komunikoval jsem s DevExpress a ti napsali, ze v dalsi verzi pridaji
mozna udalost.
Pripada mi, ze se snad vratim ke komponentam Oprheus, ktere sice
vypadaji nic moc ale validace u nich funguje pekne.
> Je. Takova komponenta by mela mit spise udalost OnValidateError nebo neco
> podobneho. Doufam ze se alespon jedna o nejakou specialni vyjimku a ne o
> EConvertError apod.
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
MailSlot a NT sluzba
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.1.2003 10:19:40
> Odes=EDlatel: Daniel Rott <roxton(zv)seznam(tec)cz>
> Komu: Delphi Forum <delphi-l(zv)clexpert(tec)cz>
> P=F8edm=ECt: MailSlot a NT sluzba
> Datum: 6. ledna 2003 10:42
>=20
> Moje aplikace vytvari MailSlot pro komunikaci s klienty.
> Pokud ji vsak spustim jako NT sluzbu, tak vsichni klienti
> dostavaji pri pripojeni chybu 5 access denied.
> Co je potreba udelat aby se aplikace bezici na desktopu
> pod uzivatelskym uctem mohli pripojovat ke sluzbe
> bezici pod systemovym uctem ?
>=20
Preposilam odpoved od V.Bodecka, ktery toto tema skoli u nas skoli v =
kurzu "Serverove aplikace na Win NT/2000".
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Problem souvisi s NT security, ktera vyzaduje, aby kazdy systemovy =
objekt (napr. soubor, proces, klic v registry, mutex atd.) mel Security =
Descriptor (SD), ktery urcuje pristupova prava k objektu. Pokud pri =
vytvareni objektu neni SD zadan (coz je bezny zpusob), vytvari system =
implicitni SD a prideli jej objektu.Jaky to je SD je na delsi povidani =
(stale me prekvapuje jak malo programatoru tento mechanismus zna, i kdyz =
je to predevsim pro tvorbu serverovych aplikaci zcela zasadni).
Takze ve vasem konkretnim pripade v service vytvorite mailslot a system =
mu prideli SD. Pokud bezi service na Local System account, pak plny =
pristup k mailslotu ma POUZE system sam, ostatni uzivatele dostanou =
chybu "Access denied".=20
Jedine reseni je tedy vytvorit explicitne SD, uvest v nem skupinu ci =
uzivatele kteri maji mit k mailslotu pristup (treba Domain Users) a =
predat vytvoreny SD funkci CreateMailslot. Upozornuji ovsem, ze =
vytvoreni SD neni trivialni.
S pozdravem,
V.Bodecek
UDP protokol, komunikace pres TCP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.1.2003 10:23:12
:-) to bych chtel videt toho providera, ktery na tech gigabitovych
optikach pouziva SLIP. :-))) A i dnesni pevne linky jsou vesinou
digitalni a pouziva uplne jine technologie... SLIP je uz vzne
archaismus.
Krom toho nevim co se tu vlastne resi.. je uplne jedno jestli je
transportni vrstva zabezpecena nebo ne, kdyz vrstva protokolu UDP si
integritu hlida sama, ne?
> Na nekterych ser. linkach ne. Tusim ze SLIP nema zadne CRC, to je
> ponechano na vyssi vrstve. Ser. linky se nepouzivaji jen mezi PC, ale
> i mezi providery. Bylo to v jedne knizce o TCP/IP, tusim Kompendium
> TCP/IP a servery DNS.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
InstallShield a FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.1.2003 11:00:11
> Odes=EDlatel: J=E1n Harman <harman(zv)volny(tec)cz>
> vite nekdo, muzu prosim nainstalovat aplikaci i s FB dohromady a =
instalacky
> vyrobit pomoci install shieldu?
Nevim, co to je za aplikaci, nevim o jaky okruh uzivatelu jde, nevim, co =
mas v umyslu.
Presto bych byl pri instalaci databazoveho serveru opatrny.
Rozhodne bych povazoval za "ranu pod pas", kdyby se mi nejaky databazovy =
server nainstaloval na pocitac bez meho vedomi. A co kdyz tam ten FB uz =
je nahodou nainstalovany? Co pak? A co kdyz je navic nejak =
zkonfigurovany, co pak? Anebo je tam InterBase?=20
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TDatabase - password
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 7.1.2003 11:54:43
Ak sa napajam k databaze cez BDE a potrebujem heslo pritom nechcem
pouzit LoginPrompt - staci ak pridam medzi parametre toto:
User Name=yyy
Password=xxx
Ak nie, tak mi prosom poradte ako sa to da urobit...
Dakujem
jozo
TDatabase - password
[*] Jon�s Marian <Jonas(zv)komercpoj(tec)cz> - 7.1.2003 12:02:03
> Ak sa napajam k databaze cez BDE a potrebujem heslo pritom nechcem
> pouzit LoginPrompt - staci ak pridam medzi parametre toto:
>=20
> User Name=3Dyyy
> Password=3Dxxx
>=20
> Ak nie, tak mi prosom poradte ako sa to da urobit...
=20
Jeste je treba nastavit LoginPrompt na false.
Marian Jonas
Problem s MessageBox pri volani na OnExit z TEdit
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 7.1.2003 12:25:15
Mam problem s Application.MessageBox :
Pokud jej zavolam z udalosti OnExit komponenty TEdit a potomku, potom se
komponenta kam se predava Focus chova podivne a vubec nezobrazi kurzor ani
select.
Priklad:
Mam EDIT1 a EDIT2 na OnExit EDIT1 (vyvola napr stisk TAB) zobrzim pomoci
MessageBox nejake upozorneni a necham uzivatele skocit do EDIT2, focus by
ted mel byt v EDIT2. On tam sice je, ale nezobrazi se ani kurzor ani sse
neoznaci text, da se tam vsak psat.
Nevite nekdo jak to vyresit ?
PS: SetFocus, Invalidate ap. nepomuze
dekuji za pomoc
Pavel Bares
Problem s MessageBox pri volani na OnExit z TEdit
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.1.2003 12:41:03
> Mam problem s Application.MessageBox :
>
> Pokud jej zavolam z udalosti OnExit komponenty TEdit a
> potomku, potom se komponenta kam se predava
> Focus chova podivne a vubec nezobrazi kurzor ani
> select.
>
> Priklad:
>
> Mam EDIT1 a EDIT2 na OnExit EDIT1 (vyvola napr stisk TAB)
> zobrzim pomoci
> MessageBox nejake upozorneni a necham uzivatele skocit do
> EDIT2, focus by
> ted mel byt v EDIT2. On tam sice je, ale nezobrazi se ani
> kurzor ani sse
> neoznaci text, da se tam vsak psat.
>
> Nevite nekdo jak to vyresit ?
>
> PS: SetFocus, Invalidate ap. nepomuze
Skus v OnExit, OnEnter nevykonavat operacie, ktore menia focus, v nich totiz
prave prebieha zmena focusu. Namiesto toho skus svojmu oknu z toho OnExit
poslat vlastnu spravu cez PostMessage, pri spracovani ktorej zavolas to
MessageBox.
HTH
TOndrej
Problem s MessageBox pri volani na OnExit z TEdit
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 7.1.2003 12:46:09
A co treba zkusit SelLength a SetStart (nebo jak jsou ty funkce pro =
pohyb a
oznacovani v editacnich polich) ...
Nebo misto Application.MessageBox zkusit MessageDialog(), nebo =
ShowMessage()
MI'RA
-----Original Message-----
From: Pavel Bare=B9 [mailto:bares(zv)atoll(tec)cz]
Sent: Tuesday, January 07, 2003 12:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Problem s MessageBox pri volani na OnExit z TEdit
Mam problem s Application.MessageBox :
Pokud jej zavolam z udalosti OnExit komponenty TEdit a potomku, potom =
se
komponenta kam se predava Focus chova podivne a vubec nezobrazi kurzor =
ani
select.
Priklad:
Mam EDIT1 a EDIT2 na OnExit EDIT1 (vyvola napr stisk TAB) zobrzim =
pomoci
MessageBox nejake upozorneni a necham uzivatele skocit do EDIT2, focus =
by
ted mel byt v EDIT2. On tam sice je, ale nezobrazi se ani kurzor ani =
sse
neoznaci text, da se tam vsak psat.
Nevite nekdo jak to vyresit ?
PS: SetFocus, Invalidate ap. nepomuze
dekuji za pomoc
Pavel Bares
Volani podprogramu z balicku
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 7.1.2003 12:57:34
Hi,
D5, MS SQL 2000
Mam v balicku nekolik formularu, ktere maji nejake ty funkce a procedurky.
Mam zaregistrovanou tridu a v hlavnim programu ty formulare drzim v
promennych TForm.
Nemuzu prijit na to jak mam zavolat ty funkce a procedurky treba
Form1.UdelejNeco(params...), Kdyz je ten Form v Balicku...
Sroub
InstallShield a FB
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 7.1.2003 13:24:26
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>> Odes�latel: J�n Harman <harman(zv)volny(tec)cz>
>> vite nekdo, muzu prosim nainstalovat aplikaci i s FB dohromady a
instalacky
>> vyrobit pomoci install shieldu?
>
>Rozhodne bych povazoval za "ranu pod pas", kdyby se mi nejaky databazovy
server nainstaloval na >pocitac bez meho vedomi. A co kdyz tam ten FB uz je
nahodou nainstalovany? Co pak? A co kdyz je >navic nejak zkonfigurovany, co
pak? Anebo je tam InterBase?
Musi se to udelat sikovne (pohlidat si zda tam IB/FB je) a nechat si
uzivatelem
potvrdit ze instalovat server opravdu chce, pak to jde. Viz nase instalacka.
Martin Schayna
www.aktis(tec)cz
Obrazek JPG zabira moc pameti!
[*] <little_bobes(zv)centrum(tec)cz> - 7.1.2003 13:30:22
Zdravim,
mam JPG obrazek s temito parametry:
velikost na disku: 2.27 MB
rozmer: 3840x4000 pixel
barvy: 24bit
DPI: 96x96
komprese: JPG/JFIF
Kdyz jej otevru pomoci TImage, zabere v pameti pres 50MB.
Je nejaky zpusob, jak tento obrazek otevrit, aby tolik pameti nezabiral?
Dekuji Bob
(D4 c/s)
Obrazek JPG zabira moc pameti!
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 7.1.2003 13:43:29
> Od: little_bobes(zv)centrum(tec)cz [SMTP:little_bobes(zv)centrum(tec)cz]
> mam JPG obrazek s temito parametry:
> rozmer: 3840x4000 pixel
> barvy: 24bit
>=20
> Kdyz jej otevru pomoci TImage, zabere v pameti pres 50MB.
> Je nejaky zpusob, jak tento obrazek otevrit, aby tolik pameti =
nezabiral?
>=20
Asi ne, pokud se ti jedna o otevrit ve smyslu - zobrazit.
V TImage nehraje komprese zdroje zadnou roli, mas to tu rozlozeno do =
RGB, a 3840x4000x3 je asi tech 45 MB.
Ober
Obrazek JPG zabira moc pameti!
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 7.1.2003 13:55:24
Ahoj, on si ho mozna TImage prebira jako BMP - zkus si to programove nacist
do promenne a tu pak do TImage vykreslit, bo ji vykreslit do TCanvas. Mam
za to, ze se na netu vali spousta tipu - neco jako nasledujici priklad,
ktery ti zvetsi/zmensi jpg do velikosti komponenty TImage:
Image1.Picture.Graphic := nil;
try
Image1.Picture.Graphic := nil;
Image1.Picture.LoadFromFile(jpegfile);
except
on EInvalidGraphic do
Image1.Picture.Graphic := nil;
end;
if (Image1.Picture.Graphic is TJPEGImage) then
begin
TJPEGImage(Image1.Picture.Graphic).Scale := Self.Scale;
TJPEGImage(Image1.Picture.Graphic).Performance := jpBestSpeed;
end;
MI'RA
-----Original Message-----
From: little_bobes(zv)centrum(tec)cz [mailto:little_bobes(zv)centrum(tec)cz]
Sent: Tuesday, January 07, 2003 1:30 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Obrazek JPG zabira moc pameti!
Zdravim,
mam JPG obrazek s temito parametry:
velikost na disku: 2.27 MB
rozmer: 3840x4000 pixel
barvy: 24bit
DPI: 96x96
komprese: JPG/JFIF
Kdyz jej otevru pomoci TImage, zabere v pameti pres 50MB.
Je nejaky zpusob, jak tento obrazek otevrit, aby tolik pameti nezabiral?
Dekuji Bob
(D4 c/s)UDP protokol, komunikace pres TCP
[*] Ing. Zdenek Rezn�cek <reznicek(zv)nem.pce(tec)cz> - 7.1.2003 13:55:54
UDP ma sice CRC kterym si hlida integritu sama, to je pravda, ale jde spi=
se
o problem ktery, vznikne ztratou paketu pri fragmentaci delsich zprav. Po=
kud
neni jiste, ze mi ztratu fragmentovane zpravy pohlida nizsi vrstva, mam
jedinou sanci - posilat opravdu kratke pakety, ktere nebudou urcite
fragmentovany. Nevim ale, jak nastavit delku UDP paketu aby k fragmentaci
zpr=E1vy nedoslo. Komponenty IdUDPClient a IdUDPServer napriklad takovou
vlastnost nemaji. Pokud vite nekdo o jinych komponentach, ktere by umeli
nastavit delku UDP paketu dejte vedet nebo poradte, jak jinak ovlivnit tu=
to
delku.
Za pripadne rady diky
Zdenek R.
----- Original Message -----
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 07, 2003 10:23 AM
Subject: RE: UDP protokol, komunikace pres TCP
> :-) to bych chtel videt toho providera, ktery na tech gigabitovych
> optikach pouziva SLIP. :-))) A i dnesni pevne linky jsou vesinou
> digitalni a pouziva uplne jine technologie... SLIP je uz vzne
> archaismus.
>
> Krom toho nevim co se tu vlastne resi.. je uplne jedno jestli je
> transportni vrstva zabezpecena nebo ne, kdyz vrstva protokolu UDP si
> integritu hlida sama, ne?
>
> > Na nekterych ser. linkach ne. Tusim ze SLIP nema zadne CRC, to je
> > ponechano na vyssi vrstve. Ser. linky se nepouzivaji jen mezi PC, ale
> > i mezi providery. Bylo to v jedne knizce o TCP/IP, tusim Kompendium
> > TCP/IP a servery DNS.
>
> -- Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
UDP protokol, komunikace pres TCP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.1.2003 14:01:01
Vzdyt uz tu bylo receno, ze kdyz se ti packet pri trasportu rozdrobi,
tak bude sam zahozen systemem, pokud se nepodari spravne slozit.
takze tady nemas co k reseni!
To jsou dve ruzne veci... velikost UDP packetu a trasportni framy.
;-) Ty proste posilas UDP packet takhle a takhle velky, a je ti z
hlediska programovani uplne jedno, jestli jej neco pri prenosu
orzdrobilo, protoze tobe je to naservirovane opet slozene zpet.
Jinak delku UDP packetu ovlivnujes preci tim, co mu posles za data.
Kdyz posles 1 kilo dat, tak velikost UDP packetu bude 1 kilo (+
hlavicka, ale to je par bajtiku...). kdyz posles 8 kilo, velikost
bude 8 kilo... Tedy zadne nastavovatko nepotebujes, je to ciste a jen
na tobe, jak velka posles data!
P.S. o jinych komponentach vim. ;-)))
> UDP ma sice CRC kterym si hlida integritu sama, to je pravda, ale jde
> spise o problem ktery, vznikne ztratou paketu pri fragmentaci delsich
> zprav. Pokud neni jiste, ze mi ztratu fragmentovane zpravy pohlida
> nizsi vrstva, mam jedinou sanci - posilat opravdu kratke pakety, ktere
> nebudou urcite fragmentovany. Nevim ale, jak nastavit delku UDP paketu
> aby k fragmentaci zpr=E1vy nedoslo. Komponenty IdUDPClient a IdUDPServer
> napriklad takovou vlastnost nemaji. Pokud vite nekdo o jinych
> komponentach, ktere by umeli nastavit delku UDP paketu dejte vedet
> nebo poradte, jak jinak ovlivnit tuto delku.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
UDP protokol, komunikace pres TCP
[*] Ing. Zden�k �ezn��ek - 7.1.2003 14:23:26
Jo, ted uz mi to je jasny.
Diky Zdenek R
----- Original Message -----
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 07, 2003 2:01 PM
Subject: Re: UDP protokol, komunikace pres TCP
> Vzdyt uz tu bylo receno, ze kdyz se ti packet pri trasportu rozdrobi,
> tak bude sam zahozen systemem, pokud se nepodari spravne slozit.
> takze tady nemas co k reseni!
>
> To jsou dve ruzne veci... velikost UDP packetu a trasportni framy.
> ;-) Ty proste posilas UDP packet takhle a takhle velky, a je ti z
> hlediska programovani uplne jedno, jestli jej neco pri prenosu
> orzdrobilo, protoze tobe je to naservirovane opet slozene zpet.
>
> Jinak delku UDP packetu ovlivnujes preci tim, co mu posles za data.
>
> Kdyz posles 1 kilo dat, tak velikost UDP packetu bude 1 kilo (+
> hlavicka, ale to je par bajtiku...). kdyz posles 8 kilo, velikost
> bude 8 kilo... Tedy zadne nastavovatko nepotebujes, je to ciste a jen
> na tobe, jak velka posles data!
>
> P.S. o jinych komponentach vim. ;-)))
>
> > UDP ma sice CRC kterym si hlida integritu sama, to je pravda, ale jde
> > spise o problem ktery, vznikne ztratou paketu pri fragmentaci delsich
> > zprav. Pokud neni jiste, ze mi ztratu fragmentovane zpravy pohlida
> > nizsi vrstva, mam jedinou sanci - posilat opravdu kratke pakety, kter=
e
> > nebudou urcite fragmentovany. Nevim ale, jak nastavit delku UDP paket=
u
> > aby k fragmentaci zpr=E1vy nedoslo. Komponenty IdUDPClient a IdUDPSer=
ver
> > napriklad takovou vlastnost nemaji. Pokud vite nekdo o jinych
> > komponentach, ktere by umeli nastavit delku UDP paketu dejte vedet
> > nebo poradte, jak jinak ovlivnit tuto delku.
>
> -- Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
UDP protokol, komunikace pres TCP
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 7.1.2003 14:26:50
> Vzdyt uz tu bylo receno, ze kdyz se ti packet pri trasportu rozdrobi,
> tak bude sam zahozen systemem, pokud se nepodari spravne slozit.
> takze tady nemas co k reseni!
To znamena ze cim je packet delsi, tak tim je vetsi pravdepodobnost
ztraty, protoze pokud bude chybet byt i jedina jeho cast, tak bude
systemem zahozen, chapu-li to spravne.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Komponenty typu Edit, validace a vyjimky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2003 15:03:56
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> Jediny nedostatek je, ze ti (blbouni) Devexpress generuji pri chybe
> vyjimku typu Exception! Takto mi do formulare polezou naprosto vsechny
To je ovsem dukazem toho, ze ten jejich kod bude asi obecne pekna prasecina.
Tohle je prece naprosty nesmysl, vyjimka Exception je pouze zakladni trida od
ktere by se mela odvozovat vlastni trida vyjimky. Opet to jen potvrzuje fakt,
ze nekteri vyrobci komponent by si o tom meli nejdrive neco precist. Asi
jedine reseni je si to upravit ve zdrojacich.
> Komunikoval jsem s DevExpress a ti napsali, ze v dalsi verzi pridaji
> mozna udalost.
To je od nich moc pekne, ale nejdriv by mohli opravit tu zcela evidentni chybu
v navrhu a definovat vlastni tridu vyjimky.
Petr Vones
UDP protokol, komunikace pres TCP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.1.2003 15:12:50
> To znamena ze cim je packet delsi, tak tim je vetsi pravdepodobnost
> ztraty, protoze pokud bude chybet byt i jedina jeho cast, tak bude
> systemem zahozen, chapu-li to spravne.
chapes. Ztrati-li se fragment UDP packetu nemuze dojit k slozeni,
protoze odesilatel nikdy neni zadan o jeho znovuodeslani (ani uz davno
kopii toho packetu nema protoze neceka, ze by ji nekdo chtel poslat
znovu).
Jinak to zda se packet cestou fragmentuje nebo ne zavisi na velikosti
maximalni delky packetu na vsech zucastnenych trasach mezi
odesilatelem a prijemcem. Je-li packet dlouhy 1000 bytu projde vsemi
ethernet based systemi bez fragmentace, ale cilovy prijemce muze byt
pripojen dialupem na nemz je maximalni delka packetu (MTU) kratsi a
tam se packet rozpadne na 2 (ci vice) fragmentu. Posle-li ten
dialupista packet o delce 1000 byte rpzadne se hned a slozi se az u
prijemce.
Detekce nejnizsiho MTU na ceste je mozna pomoci ICMP zprav (MTU Path
discovery nebo tak nejak)
Tusim, ze za rozumnou velikost UDP packetu se povazuje neco kolem 576
bytu (coz by snad melo byt obvukle MTU na dialupu). Ale znovu musim
rict, ze zalezi na tom k cemu je ten prenos vlastne pouzivan
D. Toman
Limbo ve FB
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 7.1.2003 16:31:42
FB server nam nahlasil tuto chybu:
InterBase: record from transaction 166848 is stuck in limbo
Stalo se to po vypadku el. energie [] pri selectu .
Bezela transakce pres dve DB (dve PC), vypadla el. energie,
od to doby nejde provest nad prislusnou tabulkou ani prosty select
(tedy cursor se nesmi dostat do mist te transakce).
Opravit to neni problem (staci na to gfix a potvrdit/odvolat limbo transakce),
problem je, ze se to obcas stane i u zakaznika (na stroji ktery nevypadl, ale
vypadnula mu protistrana).
Dotazy jsou tyto:
1. Proc nejde ten select
2. V FB 1.0.2.901 je opravena drobna chyba s dvou fazovym commitem, co to bylo ?
Slavek
nulovani� autoincrement
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 7.1.2003 20:02:51
Zdrav=EDm vsechny v Novem roce.
Potrebuji po vyprazdneni tabulky prikazem emtytable vynulovat hodnotu
polozky autoincrement pred naplnenim prikazem batchmove. tabu=E1lka DB -
lokalni paradox 7. Po provedeni batchmove se hodnoty polozky s
autoincrementem porad zvetsuji a nesouhlasi s hodnotami z tabulky, z kter=
e
exportuji data. Tabulka nema definovana persistentni pole. Lze nejak ten
autoincrement znasilnit ?
S pozdravem
Petr marik