Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Console MySQL
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.7.2004 13:15:01
diky, ale nemam SQL server
JV
> bin/mysql.exe
export DBF do MSSQL
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 28.7.2004 13:04:57
Mozna je to blbost, ale nejde to nejak bez MSSQL?
> spustit na MSSQL7+ pod sysadminem:
>
> SELECT *
> INTO dbo.NovaTabulkaZDBF
> FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data
Source="C:\Cesta";Extended properties=dBase 5.0')...[Soubor]Porovnani textovych souboru
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.7.2004 13:29:05
V MSDN jsem nasel toto, to bude to, co potrebujes:
To compare files and display the results graphically, use Windiff.exe. The
following line shows Windiff command-line syntax:
windiff [path1] [path2]
where path1 and path2 indicate the files to be compared. Windiff uses the
following rules to determine what is to be compared:
* If you invoke Windiff without specifying path1 or path2, you can
click Compare Files or Compare Directories from the File menu to specify the
files to compare.
* If you invoke WINDIFF with a filename for path1, but nothing for
path2, Windiff compares the file with a file of the same name in the current
directory.
* If you invoke Windiff with a directory name for path1, but nothing
for path2, Windiff compares the files in the specified directory with the
files in the current directory.
* If you invoke Windiff specifying files for path1 and path2, Windiff
compares the two files.
* If you invoke Windiff specifying directories for path1 and path2,
Windiff compares the files in those directories.
The results are initially displayed in outline mode. Windiff lists the files
that were compared and indicates whether they are identical or whether one
file is newer than the other. To view the differences in expanded mode,
select the file from the display and click the Expand button. The parts that
are common to both files are displayed on a white background. The parts that
belong to the file listed on the left are displayed on a red background. The
parts that belong to the file listed on the right are displayed on a yellow
background. To return to outline mode, click the Outline button.
For more information, see the help file Windiff.hlp, which is included with
Windiff.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
> potreboval bych vzajemne porovnavat ve svem programu v D dva textove
> soubory.
> Vystup by mohl byt dalsi tex. soubor, kde rozeznam radky pridane, smazane
> (zmenene) atd.
>
> Pokud znate nejake hotove reseni, prosim o radu.
>
Tipy a triky, fultextove vyhledavani v CHM
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.7.2004 13:23:03
Jo, takze uz je to vyresene. Stacilo nastavit ve vlastnostech projektu
"compile full-text search information" a uz to funguje. Az budu mit
odpoledne nebo navecer chvili, prekompiluju to, dam na web a napisu oznameni
do konference.
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
JvDocking
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 28.7.2004 12:36:43
Ahoj,
pouzivam JvDocking komponenty pro dokovani fomularu, vse funguje ok, akorat
ze potrenuji, aby uz pro prvnim zobrazeni formulare byly formulare
zadokovane v hlavnim, ne hromada formularu, ktere si uzivatel zadokuje, ale
hromada docku v jednom formulari, ktere si uzivatel muze vybrat ven :).
Nevite nekdo, jak na to?
Brona
Porovnani textovych souboru
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 28.7.2004 12:36:43
Zavolat si na to diff.
Lukas
> Zdravim,
>
> potreboval bych vzajemne porovnavat ve svem programu v D dva textove
> soubory.
> Vystup by mohl byt dalsi tex. soubor, kde rozeznam radky pridane, smazane
> (zmenene) atd.
>
> Pokud znate nejake hotove reseni, prosim o radu.
>
> Diky Jiri Brothanek.
>
export DBF do MSSQL
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 28.7.2004 13:02:50
Zapomel jsem rict, bez BDE by to neslo?. Pouzivam Apollo a to je bez BDE.> pred BDE a BatchMove
>
> Jirka Virt
Console MySQL
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 28.7.2004 12:54:48
Dobry den,
nemate nekdo link na consoli(pod win) k MySQL, tak aby se tan dali psat
prikazy?
mam nejakou grafickou, ale ta silne nevyhovuje.
Zkus "MySQLFront" http://www.mysqlfront.de/ sam to pouzivam aje sqelej.
vitek
export DBF do MSSQL
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 28.7.2004 12:42:45
ja si nactu obe tabulky a
while not DM.TB_odbery.Eof do
begin
DM.QR_odbery.Insert;
for i := 0 to DM.TB_odbery.FieldCount-1 do DM.QR_odbery.Fields[i]
Value := DM.TB_odbery.Fields[i].Value;
DM.QR_odbery.Post;
DM.TB_odbery.Next;
end;
Marek
Chtel bych se zeptat jake mam moznosti pri exportu DBF tabulky do MSSQL.
Uprednostnuji jednoduche reseni.
dik Martin
D5,XP
Tipy a triky, fultextove vyhledavani v CHM
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 28.7.2004 12:28:41
Asi si nerozumime.
Ja nemluvim o indexu, ten je jasny, ze se musi sestavit rucne. Ale kdyz
si pustis nejaky help od MS (treba ADO, Excel VBA atd), je v prohlizeci
helpu i zalozka Vyhledavat, kde zadas klicove slovo a ono ti to najde
kdekoliv v textu. V Tipy a triky jsou pouze zalozky Obsah a Rejstrik,
Vyhledavat chybi.
A ma otazka znela, zda zalozka Vyhledavat je standardni soucasti
funkcionality CHM helpu kterou lze pouze zapnou nejakym nastavenim. Pak
by to urcite stalo za to.
Petr Brant napsal(a):
> Je to pouze problem toho, ze je treba poridit seznam klicovych slov, urcit,
> kde se vyskytuji a do toho CHM to zabudovat. Ale fulltextove hledani je neco
> jineho. Pripadne by slo napsat programek, ktery to bude realizovat nejakym
> jinym zpusobem. V patek mam volno, tak si s tim budu hrat. Pripadne kdyby
> nekdo z vas vedel, napiste (ale na petr.brant(zv)cmail(tec)cz, ne na sluzebni mail
> ani ne do konference, budu doma) a muzeme to dat nejak dohromady, delame to
> prece pro sebe.
______________________________________________________
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
______________________________________________________
export DBF do MSSQL
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.7.2004 12:08:38
pred BDE a BatchMove
Jirka Virt
export DBF do MSSQL
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 28.7.2004 12:20:40
> Chtel bych se zeptat jake mam moznosti pri exportu DBF
> tabulky do MSSQL. Uprednostnuji jednoduche reseni.
spustit na MSSQL7+ pod sysadminem:
SELECT *
INTO dbo.NovaTabulkaZDBF
FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source="C:\Cesta";Extended properties=dBase 5.0')...[Soubor]
C:\Cesta je adresar, kde lezi DBF soubor z pohledu serveru
Soubor je 8.3 jmeno DBF souboru bez pripony
Tomas Zalesak
export DBF do MSSQL
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 28.7.2004 12:06:37
Chtel bych se zeptat jake mam moznosti pri exportu DBF tabulky do MSSQL.
Uprednostnuji jednoduche reseni.
dik Martin
D5,XP
Console MySQL
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 28.7.2004 11:56:36
http://www.phpmyadmin.net/home_page/
Marek
Dobry den,
nemate nekdo link na consoli(pod win) k MySQL, tak aby se tan dali psat
prikazy?
mam nejakou grafickou, ale ta silne nevyhovuje.
Diky
Jiri Virt
Tipy a triky, fultextove vyhledavani v CHM
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.7.2004 11:40:33
Je to pouze problem toho, ze je treba poridit seznam klicovych slov, urcit,
kde se vyskytuji a do toho CHM to zabudovat. Ale fulltextove hledani je neco
jineho. Pripadne by slo napsat programek, ktery to bude realizovat nejakym
jinym zpusobem. V patek mam volno, tak si s tim budu hrat. Pripadne kdyby
nekdo z vas vedel, napiste (ale na petr.brant(zv)cmail(tec)cz, ne na sluzebni mail
ani ne do konference, budu doma) a muzeme to dat nejak dohromady, delame to
prece pro sebe.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
> Tipy a triky v CHM jsou skvela vec, diky za ni.
>
> Ale mam jeden problem: nevite, proc v nekterych CHM helpech chybi
> moznost fulltextoveho hledani ve vsech tematech? Zrovna tady to chybi
> velmi vyrazne. To same se tyka serialu Umime to s Delphi. Je to
> zalezitost autoru, zda to povoli?
Firebird 1.5.1 - vynucene ukonceni projetku
[*] Petr Hartman <petr.hartman(zv)medisoft(tec)cz> - 28.7.2004 11:36:32
From: "Dalibor" <dalibor(zv)torola(tec)cz>
> Ahoj, nainstaloval jsem si Firebird 1.5.1. Stava se mi, ze kdy ukoncim
vynucene projekt ladeny v Delphi (CTRL + F2) tak Firebird najednou zacne jet
na plny vykon a zabira 100% strojoveho casu a jede do te doby, nez Firebird
ukoncim
Je to opravdu tak, dela to az FB 1.5.1, u FB 1.5 to bylo v tomto ohledu v
poradku. Stava se to, pokud pouzivas eventy. Nedavno se o tom diskutovalo na
Firebird-support, ale bez nejakeho konkretniho zaveru.
Petr Hartman
Console MySQL
[*] Jiri Virt <virt(zv)volny(tec)cz> - 28.7.2004 10:44:24
Dobry den,
nemate nekdo link na consoli(pod win) k MySQL, tak aby se tan dali psat
prikazy?
mam nejakou grafickou, ale ta silne nevyhovuje.
Diky
Jiri Virt
Porovnani textovych souboru
[*] Jiri Brothanek <jiri.brothanek(zv)seznam(tec)cz> - 28.7.2004 11:24:30
Zdravim,
potreboval bych vzajemne porovnavat ve svem programu v D dva textove
soubory.
Vystup by mohl byt dalsi tex. soubor, kde rozeznam radky pridane, smazane
(zmenene) atd.
Pokud znate nejake hotove reseni, prosim o radu.
Diky Jiri Brothanek.Database Comparer VCL v 2.0
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2004 10:56:27
Hm, to ja taky, ale potrebuju nejak nainstalovat to demo
KOMPONENT, kterezto demo je stazitelne na
nize uvedenem webu. Nez to koupim. Potrebuju porovnavani
DB zabudovat primo do sve aplikace. Jinak jako samostatnou
aplikaci pouzivam DB Comparer 2.5 a taky OK.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milan Tomes
> Sent: Wednesday, July 28, 2004 10:42 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Database Comparer VCL v 2.0
>
> Pouzivan Database Comparer 2.4 od www.clevercomponents.com a
> ten chodi bez
> problemu...
>
> S pozdravem
>
> Milan Tomes
>
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavel Malinsky
> > Sent: Wednesday, July 28, 2004 10:34 AM
> >
> > Nezkousel jste nekdo demoverzi DBCompareru?
> > Jak to spravne nainstalovat? Instaluje se to
> > primo jejich instalakem.
>
>
>
Tipy a triky, fultextove vyhledavani v CHM
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 28.7.2004 10:48:25
Ahoj,
Tipy a triky v CHM jsou skvela vec, diky za ni.
Ale mam jeden problem: nevite, proc v nekterych CHM helpech chybi
moznost fulltextoveho hledani ve vsech tematech? Zrovna tady to chybi
velmi vyrazne. To same se tyka serialu Umime to s Delphi. Je to
zalezitost autoru, zda to povoli?
--
______________________________________________________
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
______________________________________________________
Database Comparer VCL v 2.0
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 28.7.2004 10:42:23
Pouzivan Database Comparer 2.4 od www.clevercomponents.com a ten chodi bez
problemu...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavel Malinsky
> Sent: Wednesday, July 28, 2004 10:34 AM
>
> Nezkousel jste nekdo demoverzi DBCompareru?
> Jak to spravne nainstalovat? Instaluje se to
> primo jejich instalakem.Database Comparer VCL v 2.0
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2004 10:34:22
Ahoj,
pokousim se nainstalovat demoverzi %SUBJ%
pro Delphi 5. Zkousel sem demo jak pro IBX tak
pro IBO, ale balicek se nepodari nikdy natahnout.
Pro IBX to rve, ze vstupni bod (zv)Ibxconst(zv)initialization$qqrv
v knihovne VCLIB50.bpl nelze nalezt.
Pro IBO zase, ze
(zv)Ib_Components(zv)TIB_Database(zv)CreateTransaction$qqrp18Classes(zv)TComponent
v knihovne IBO40CRT_D5.bpl nelze nalezt.
IBX i IBO mam nainstalovane a bezne pouzivam :(( .
Nezkousel jste nekdo demoverzi DBCompareru?
Jak to spravne nainstalovat? Instaluje se to
primo jejich instalakem.
Env: XP Pro, D5, IBO40
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Firebird 1.5.1 - vynucene ukonceni projetku
[*] Dalibor <dalibor(zv)torola(tec)cz> - 28.7.2004 10:18:20
Ahoj, nainstaloval jsem si Firebird 1.5.1. Stava se mi, ze kdy ukoncim vynucene projekt ladeny v Delphi (CTRL + F2) tak Firebird najednou zacne jet na plny vykon a zabira 100% strojoveho casu a jede do te doby, nez Firebird ukoncim
Nedela vam to taky?
U Firebird 1.5 se mi to nestavalo
WinXP, Delphi 7
ESC sekvence
[*] Lauko Stefan <laukosw(zv)naex.sk> - 28.7.2004 08:48:09
Ahoj,
http://delphi.icm.edu.pl/ftp/d20free/rawprint.zip - riesi tvoj problem.
Lauko.
----- Original Message -----
From: <david(zv)nj.hcv(tec)cz>
Sent: Wednesday, July 28, 2004 8:34 AM
> No to jde ale ja chci tisknout na usb ne na lpt nebo na sitovou to uz je
jedno....ale kdyz si tak s tim hraju tak se mi porad vyhyba to jak zjistit
na jakem portu je ta tiskarna....Nevite nahodou jak zjistit na jakem portu
je dana tiskarna?TvirtualStringTree - refresh
[*] Martin Zeman <zeman14(zv)bonbox(tec)cz> - 28.7.2004 08:48:08
Me funguje tohle
vst_Strom.ReinitNode(vst_Strom.FocusedNode,False);
vst_Strom.InvalidateToBottom(vst_Strom.FocusedNode);
Martin
To asi musim, jak zajistit, aby se pridala (zmizela, zmenila) prislusna uz
zobrazena vetev, kdyz jen vim ze se "neco" zmenilo ale nevim co konkretne.
>
> prece jak editujes konkretni zaznam, tak nemusis volat nic,
>
> var
> Data: PMyRec;
> begin
> .....
> Data := vst.GetNodeData(vst.GetFirstSelected);
> .....
> Data.read :=DM.TB_V3_reading.Fields[2].Text;
> ........
> Marek
>
> formulari zprava, ze se neco zmenilo a ja potrebuju zajisti, aby se
> pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
> Refresh tohle neudela (asi je na neco jineho).Dalsi offline serial o Delphi - dulezity dodatek
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 28.7.2004 09:18:14
Tak ta nova adresa http://brant.wz(tec)cz je zablokovana.
F.
DLL v theardu a uvolneni objektu.
[*] koukal(zv)petrkoukal(tec)cz - 28.7.2004 09:06:12
Dobry den.
V theardu bezicim na pozadi (je startovan ze sluzby TService) - theard provede zavedeni dll knihovny, tato tvori vykoony kod theardu - v ni volam dalsi dll knihovnu pro rizeni mericich karet nidaq32.dll.
Volani loadlirary obcas selze na chybu 1114 (ERROR_DLL_INIT_FAILED). Stane se to v priipade, ze jiz nejaky dalsi theard uspesne provedl zavedeni dll knihovny .
Pri volanii freelibrary obcas skonci s chybou 2 (ERROR_FILE_NOT_FOUND) - po uspesnem provedeni Loadlibrary..
Jaky mechanizmus prace s dll knihovnami pri paralelnim chodu vice theardu je mozno pouzit ?
(Getmodulehandle .. Freelibrary nebo Loadlibrary ..Ffreelibrary ).
Muze byt problem i pri uvolneni pameti po free objektu viz. dale.
Dll v theardu inicializuje a posleze uvolnuje objekt, potrebuji zjistit zda byl spravne uvolnen t (v dosu to byly dve promenne MemAvail a MaxAvail, jejichz hodnota musela byt pred a po uvolneni objektu shodna).
Existuje v delphi mechanzmus pomoci ktereho je toto mozno zjistit ?
Pouzit v theardu pro uvolnani objetku .free nebo . release ?
Petr Koukal.
ESC sekvence
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 28.7.2004 08:58:10
> No to jde ale ja chci tisknout na usb ne na lpt nebo na sitovou to uz
> je jedno....ale kdyz si tak s tim hraju tak se mi porad vyhyba to jak
> zjistit na jakem portu je ta tiskarna....Nevite nahodou jak zjistit
> na jakem portu je dana tiskarna?
co se tyka posilani ESC sekvenci tak se podivej na API Escape
co se tyka zjistovani portu podivej se na www.volny(tec)cz\maxi_fikus mam tam
unity k tiskarnam a tam nekde zjistuju i porty
ESC sekvence
[*] david(zv)nj.hcv(tec)cz - 28.7.2004 08:34:06
No to jde ale ja chci tisknout na usb ne na lpt nebo na sitovou to uz je jedno....ale kdyz si tak s tim hraju tak se mi porad vyhyba to jak zjistit na jakem portu je ta tiskarna....Nevite nahodou jak zjistit na jakem portu je dana tiskarna?
****************************
David Go+AVk-ula, HCV group a.s.
Van+AQ0-urova 40,Nov+AP0- Ji+AQ0A7Q-n
www.nj.hcv(tec)cz/maddave/
www.hcv(tec)cz
databaze - jakou vybrat?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.7.2004 07:49:59
K otazce vyberu databaze se tady uz v minulosti parkrat objevila
celkem kosata diskuse. Jelikoz Ti tentokrat skoro nikdo neodpovedel,
mozna bych Ti poradil, abys zkusil juknout do archivu konference,
protoze bys tam toho mel najit dost.
No a muj nazor:
1) BDE rozhodne ne.
2) Uvazoval bych o FireBirdu ci Interbasi (velmi podobne, temer
totozne) nebo o MSDE (prip. o uplnem MSSQL serveru). Pro tuto Tvou
aplikaci je to asi celkem jedno, spis pujde o to, co a pro koho budes
vyvijet dal a co bude po Tobe pozadovat.
3) S Accessem nemam zadne zkusenosti.
4) Pro jednodussi aplikace (spise nesitove, neco jako nahrada
Paradoxu) pouzivame FlashFiler k naproste spokojenosti. Vice najdes
asi opet v archivu.
David Lebeda
maximalizovane MDI child okno
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2004 07:50:00
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Bronislav Klucka
>
> Zdar,
Ahoj,
> mam-li MDI child okno a maximalizuji ho, potom se BorderIcons
> (minimalizovat, maximalizovat/obnovit, zavrit) presunou do
> hlavniho menu...
> Bohuzel toto uz neplati pro ActionMainMenuBar... jak
> presvedcim MDI child,
> aby mi tam tyto tlacitka pri maximalizaci zobrazil? pac oni
> zmizi a mam
> peska...
Nepresvedcis :(( .
Bohuzel todle je jedna z chyb, ktera me vedla k zavrzeni
teto(a souvisejicich) komponenty. Nepises sice v jake verzi D,
ale v D7 to neni opraveno ani v SP. Zkus se radeji podivat
treba na Toolbar2000(http://www.jrsoftware.org/tb2kdl.php),
ktery je tusim free.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
TvirtualStringTree - refresh
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 28.7.2004 07:50:01
To asi musim, jak zajistit, aby se pridala (zmizela, zmenila) prislusna uz
zobrazena vetev, kdyz jen vim ze se "neco" zmenilo ale nevim co konkretne.
>
> prece jak editujes konkretni zaznam, tak nemusis volat nic,
>
> var
> Data: PMyRec;
> begin
> .....
> Data := vst.GetNodeData(vst.GetFirstSelected);
> .....
> Data.read :=DM.TB_V3_reading.Fields[2].Text;
> ........
> Marek
>
> formulari zprava, ze se neco zmenilo a ja potrebuju zajisti, aby se
> pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
> Refresh tohle neudela (asi je na neco jineho).databaze - jakou vybrat?
[*] Marian Nykel <nykel(zv)atlascon(tec)cz> - 28.7.2004 07:56:02
Ja mam na siti perfektni zkusenosti s InterBase - podpora pres IBX je
primo v Delphi a pro kompletni aplikaci staci 3 komponenty (IBSQL pro
dotazy, IBTransaction pro spravu transakci a IBDB - nastaveni parametru
databaze).
MN
Jan Novak wrote:
>> mam se vrhnout do stareho BDE?
>>
>>
>
>TvirtualStringTree - refresh
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 28.7.2004 06:13:51
ahoj,
prece jak editujes konkretni zaznam, tak nemusis volat nic,
var
Data: PMyRec;
begin
.....
Data := vst.GetNodeData(vst.GetFirstSelected);
.....
Data.read :=DM.TB_V3_reading.Fields[2].Text;
........
Marek
Ahoj vsem,
zacal jsem koketovat s komponentou TVirtualStringTree a celkem spokojenost,
ale mam jeden problemek - v pohode inicializuju obsah - pak prijde
formulari zprava, ze se neco zmenilo a ja potrebuju zajisti, aby se
pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
Refresh tohle neudela (asi je na neco jineho). Jak mam docilit zadaneho ?
Mohl bych pozavirat cely strom, ale to neni ono.
predem diky za cenne rady
Zdenda Brejsa - HJ-SOFT
maximalizovane MDI child okno
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 27.7.2004 22:23:16
Zdar,
mam-li MDI child okno a maximalizuji ho, potom se BorderIcons
(minimalizovat, maximalizovat/obnovit, zavrit) presunou do hlavniho menu...
Bohuzel toto uz neplati pro ActionMainMenuBar... jak presvedcim MDI child,
aby mi tam tyto tlacitka pri maximalizaci zobrazil? pac oni zmizi a mam
peska...
Brona
Listbox predelany na TListview.. - solved
[*] david.kopecek(zv)hacktrack(tec)com - 27.7.2004 21:29:11
Ahoj
>> n
>> echce a nemuzu pouzivat TShellListView, bohuzel to musim
>> postavit na standardnich komponentach listview, listbox..
>>
BK> No pockej, nejdriv po nas chces nejakou komponentu a pak rikas, ze to musis
BK> postavit na standardnich...
BK> Musi rto ted byt primo odvozene komponenty z TListView a TListBox?
BK> No potom to mas tezky, snad Ti pomuze virtualni mod TListView.
diky vsem za namety uz to vsechno resim ve virtualnim modu...
--
S pozdravem,
David
david.kopecek(zv)hacktrack.com
generator grafu v COM
[*] david.kopecek(zv)hacktrack(tec)com - 27.7.2004 21:27:10
Cau
PV> program Project1;
PV> {$APPTYPE CONSOLE}
PV> uses
PV> SysUtils, Forms, TeeProcs, TeEngine, Chart;
PV> procedure Run;
PV> var
PV> C: TChart;
PV> F: TForm;
PV> begin
PV> F := TForm.CreateNew(nil);
PV> try
PV> C := TChart.Create(F);
PV> C.Parent := F;
PV> C.SaveToBitmapFile('chart.bmp');
PV> finally
PV> F.Free;
PV> end;
PV> end;
PV> begin
PV> Run;
PV> end.
me to pri variante bez TFOrm padalo pri tom SaveToBitmapFile.. ale
resim to takhle
bitmap:=nil;
Rect.Left := 0;
Rect.Top := 0;
Rect.Right := 250;
Rect.Bottom := 180;
Bitmap := FChart.TeeCreateBitmap(clWhite, Rect);
bitmap.SaveToFile('d:\temp\sss.bmp');
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Cestina v D5
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 27.7.2004 20:49:06
Prijemny den,
co zkusit nastavit font, ktery se pouziva v editoru (Courier New) takovy,
aby umel zobrazovat spravne ceske znaky? Je to v menu Tools/Editor Options
zalozka Display.
Straka Josef
mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
----- Original Message -----
From: Jan Najvarek
> vite nekdo, jak zaridit, aby se ceske znaky korektne zobrazovali v Delphi
> pri provozu na anglickych Windows? Pro aplikaci v Delphi nemam problem, to
> nastavim pouze spravny charset pro Font, ale co samotne Delphi, specialne
> Object inspektor, tam to zobrazuje ceske znaky zkreslene.
> Honza Najvarek
databaze - jakou vybrat?
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 27.7.2004 19:38:59
> mam se vrhnout do stareho BDE?
Zapomen.
> Uvazoval jsem, ze to cele udelam v Accessu,
Kdyz umis s Accessem, tak bude nejlepsi stahnout si k Delphi knihovnu
KADAO (free). Ja s tim jedu jednou aplikaci s cca 5 klienty v siti a
.MDB ma kolem 80M ale to uz je fakt asi doraz a chce to s rozmyslem
navrhnout indexy a celou strukturu vubec.TvirtualStringTree - refresh
[*] Marian Nykel <nykel(zv)atlascon(tec)cz> - 27.7.2004 15:56:39
Co projit vsechny uzly a zkusit ReinitNode(Node, Recursive)
MN
Zdenek Brejsa wrote:
>potrebuju zajisti, aby se
>pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
>Refresh tohle neudela (asi je na neco jineho). Jak mam docilit zadaneho ?
>Mohl bych pozavirat cely strom, ale to neni ono.
>
>TreeView, LoadFromFile a StatusIndex
[*] Jiri Brothanek <jiri.brothanek(zv)seznam(tec)cz> - 27.7.2004 14:44:28
Zdravim, mam nasledujici problem :
- nactu asi 700 polozek do TreeView :
TreeView1.LoadFromFile('......');
- Ikony prirazuji az v udalosti TreeView1GetImageIndex, napr. :
procedure TForm1.TreeView1GetImageIndex(......);
begin
Node.StateIndex := j;
Node.ImageIndex := i;
Node.SelectedIndex := i;
end;
Ikony ImageIndex jsou zobrazeny spravne, ale ikona StateIndex neni zobrazena
vubec, dokud nenastavim kurzor na prislusnou polozku stromu (dokud ji
nevyberu).
Setkal se s tim nekdo ?
diky za pripadnou radu.
Jiri Brothanek
Settings v XML
[*] spider_x(zv)quick(tec)cz - 27.7.2004 14:44:27
BK> tak, aby se dalo pristupovat timto zpusobem: dir :=
BK> sett["profile"]["directory"];
BK> a aby to samo umelo vytvaret vetve (sett["store"]["data"] := 'blabla';).
BK> Nemate nekdo neco takoveho?
BK> P.S. Prosim zadne flamewar o uchovavani hesla v souboru, toto je pouze
BK> ilustracni priklad.
BK> P.P.S. NECHCI to ukladat do registru, takze ani zadne flamewar o
BK> registrech.:)
BK> P.P.P.S. Neradte mi jak, to napsat, to vim, ale pokud uz to nekdo ma....
pouzij TJanXMLTree z www.jansfreeware.com, ten umi hledat a vytvaret
elementy podle cesty (napr. settings/data/blabla). Kdyby si to na ty
adrese nenasel, tak to muzu pripadne poslat.
--
S pozdravem,
Michal Kuncl (Spider_X)
mailto:spider_x(zv)quick(tec)cz
Format souboru DFM
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.7.2004 15:50:38
> je nejaka cesta, jak jednoduse rozsifrovat soubor s popisem formulare
> (.dfm) tak, jak to udela IDE po stisku klavesy Alf+F12 (View as Text)?
Ahoj,
v D5 je prece nekde v menu Tools moznost nastavit, ze dfm se maji uz
rovnou ukladat na disk v textove podobe. Staci zaskrtnout a pak uz jen
primet stavajici formy, aby se tak ulozily (nevim, zda postaci save nebo
zda bude potreba nejake dalsi postrceni, zmena v dfm apod.).
David Lebeda
TvirtualStringTree - refresh
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 27.7.2004 15:22:35
Metoda TVirtualStringTree.Invalidate?
----- Original Message -----
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 27, 2004 1:42 PM
Subject: TvirtualStringTree - refresh
> Ahoj vsem,
> zacal jsem koketovat s komponentou TVirtualStringTree a celkem
spokojenost,
> ale mam jeden problemek - v pohode inicializuju obsah - pak prijde
> formulari zprava, ze se neco zmenilo a ja potrebuju zajisti, aby se
> pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
> Refresh tohle neudela (asi je na neco jineho). Jak mam docilit zadaneho ?
> Mohl bych pozavirat cely strom, ale to neni ono.
>
> predem diky za cenne rady
>
> Zdenda Brejsa - HJ-SOFT
>
>
>Format souboru DFM
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 27.7.2004 14:58:32
> je nejaka cesta, jak jednoduse rozsifrovat soubor s popisem formulare
> (.dfm) tak, jak to udela IDE po stisku klavesy Alf+F12 (View as Text)?
nebo Classes.pas:
{ Object conversion routines }
type TStreamOriginalFormat = (sofUnknown, sofBinary, sofText);
procedure ObjectBinaryToText(Input, Output: TStream); overload;
procedure ObjectBinaryToText(Input, Output: TStream;
var OriginalFormat: TStreamOriginalFormat); overload;
procedure ObjectTextToBinary(Input, Output: TStream); overload;
procedure ObjectTextToBinary(Input, Output: TStream;
var OriginalFormat: TStreamOriginalFormat); overload;
procedure ObjectResourceToText(Input, Output: TStream); overload;
procedure ObjectResourceToText(Input, Output: TStream;
var OriginalFormat: TStreamOriginalFormat); overload;
procedure ObjectTextToResource(Input, Output: TStream); overload;
procedure ObjectTextToResource(Input, Output: TStream;
var OriginalFormat: TStreamOriginalFormat); overload;
function TestStreamFormat(Stream: TStream): TStreamOriginalFormat;
Tomas Zalesak
Format souboru DFM
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 27.7.2004 14:52:30
> je nejaka cesta, jak jednoduse rozsifrovat soubor s popisem formulare
> (.dfm) tak, jak to udela IDE po stisku klavesy Alf+F12 (View as Text)?
<Delphi>\BIN\convert.exe
Delphi Form Conversion Utility Version 5.0
Copyright (c) 1995,99 Inprise Corporation
Usage: convert.exe [-i] [-s] [-t | -b] <filespec(s) | (zv)filelist>
-i Convert files in-place (output overwrites input)
-s Recurse subdirectories
-t Convert to text
-b Convert to binary
Tomas Zalesak
Format souboru DFM
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 27.7.2004 14:42:26
Zdravim,
je nejaka cesta, jak jednoduse rozsifrovat soubor s popisem formulare
(.dfm) tak, jak to udela IDE po stisku klavesy Alf+F12 (View as Text)?
Hodilo by se mi to pro usnadneni prace pri prekladu programu.
Diky za napady.
Karel, D5
databaze - jakou vybrat?
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 27.7.2004 13:44:21
zdravim konferenci,
mam udelat v D6p databazovou aplikaci, ale s databazemi v D zatim nemam
zkusenosti. Je tu spousta komponent a tak se ptam, mam se vrhnout do stareho
BDE nebo se mam ucit neco novejsiho?
Aplikace bude interni na siti, 1uziv. s pravy zapisu (muze byt jina
app),ostatni jen cist, vyuzivajici vice tabulek (prevedenych z xls resp.
doc) + relace prip. SQL dotazy, export dat do internich bin souboru...
Uvazoval jsem, ze to cele udelam v Accessu, a ty exporty nejak v Delphi..
Jak byste to delali?
diky za namety
Radek Lahoda
XPp, D6p
TvirtualStringTree - refresh
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 27.7.2004 13:42:20
Ahoj vsem,
zacal jsem koketovat s komponentou TVirtualStringTree a celkem spokojenost,
ale mam jeden problemek - v pohode inicializuju obsah - pak prijde
formulari zprava, ze se neco zmenilo a ja potrebuju zajisti, aby se
pridaly/opravily/zrusily zobrazene hodnoty - proste refresh, ale metoda
Refresh tohle neudela (asi je na neco jineho). Jak mam docilit zadaneho ?
Mohl bych pozavirat cely strom, ale to neni ono.
predem diky za cenne rady
Zdenda Brejsa - HJ-SOFT
Dalsi offline serial o Delphi - dulezity dodatek
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 27.7.2004 12:12:12
Tak na FTP uz se to v teto chvili uploaduje, netusim, kdo nebo proc to
smazal. A mam uz nove stranky <http> http://brant.wz(tec)cz, tam je ten serial
komplet v jednom souboru (kdo jste navstivil stare stranky
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> , tak by
vas to melo presmerovat). Kdo sledujete Sindelaruv serial "Tipy a triky",
tak tamtez je ke stazeni podoba jiz se 149 dily oproti minulym 146 dilum.
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
> PB> Bohuzel se nekde vloudila chybicka - FTP meho webu se chova ponekud
> zahadne,
> PB> takze mi to nechce ten soubor vzit (resp. soubor se tam nakopiruje,
> ale
> PB> vzapeti se zase smaze). Dal jsem jej tedy na ftp://delphi(tec)cz
> <ftp://delphi(tec)cz> (U: delphi, P:
> PB> archivar) do adresare Other/Offline. Omlouvam se, bohuzel to ale
> neovlivnim.
>
> Na webu chybi druha cast a na ftp je others prazdne, mozno to len
> niekto vymazal :-(
>
> Ak to budes davat na ftp, poprosim aj rozdelene na casti, aby mi
> stacil download len druhej casti. Prvu uz mam.
>
Dalsi offline serial o Delphi - dulezity dodatek
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 27.7.2004 11:58:10
PB> Bohuzel se nekde vloudila chybicka - FTP meho webu se chova ponekud zahadne,
PB> takze mi to nechce ten soubor vzit (resp. soubor se tam nakopiruje, ale
PB> vzapeti se zase smaze). Dal jsem jej tedy na ftp://delphi(tec)cz (U: delphi, P:
PB> archivar) do adresare Other/Offline. Omlouvam se, bohuzel to ale neovlivnim.
Na webu chybi druha cast a na ftp je others prazdne, mozno to len
niekto vymazal :-(
Ak to budes davat na ftp, poprosim aj rozdelene na casti, aby mi
stacil download len druhej casti. Prvu uz mam.
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
MDI a tabPage
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 27.7.2004 11:00:03
proc ne pagecontrol,
var
NP: TTabSheet;
begin
NP := TTabSheet.Create(PC_main);
NP.PageControl := PC_main;
NP.Caption := 'Obraty';
NP.Name := 'TS_obraty';
PC_main.ActivePage := NP;
Application.CreateForm(Tfrm_obraty, frm_obraty);
Frm_obraty.Panel1.Parent := NP;
Marek
>Ahoj, chtel bych udelat MDI aplikaci, ale potreboval bych, aby okna byla
>definovana i pomoci zalozek, tzn nahore by byla ouska tabControl, pro
>kliknuti by se preplo na dalsi okno. Nechci pageControl, jelikoz obsah
>nereprezentuje vlastni okno (funkce
>zavrit/maximalizovat/obnovit/minimalizovat, proste regulerni formular) chci
>ponechat. pokud nekdo pouzivate Operu, je to presne to, co chci. Nevite o
>necem takovem?
>
>Brona
>
>
>
>
>
MDI a tabPage
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 27.7.2004 10:07:55
Me se osvedcila komponenta MDI Tab na http://www.mitec(tec)cz/
Petr
> definovana i pomoci zalozek, tzn nahore by byla ouska tabControl, pro
> kliknuti by se preplo na dalsi okno. Nechci pageControl, jelikoz obsah
> nereprezentuje vlastni okno (funkce
> zavrit/maximalizovat/obnovit/minimalizovat, proste regulerni
> formular) chci
Ako ulozit WideString cez TFileStream
[*] Miso <delphinpp(zv)atlas(tec)cz> - 27.7.2004 10:15:58
Zdar,
mam nejaky velky text a chcem ho ulozit do textoveho suboru cez TFileStream,
ako na to?..pouzitim Write, alebo WriteBuffer je z toho "sypany caj"..
dik,
Miso
MDI a tabPage
[*] Marian Nykel <nykel(zv)atlascon(tec)cz> - 27.7.2004 10:11:57
Neslo by to vyresit pomoci TabControl (v Delphi na karte Win32 hned
vedle PageControl)? TabControl zobrazi jen zalozky a veskerou spravu
(prepinani, pridavani atd.) resis sam...
Marian Nykel
Bronislav Klucka wrote:
>Ahoj, chtel bych udelat MDI aplikaci, ale potreboval bych, aby okna byla
>definovana i pomoci zalozek, tzn nahore by byla ouska tabControl, pro
>kliknuti by se preplo na dalsi okno. Nechci pageControl, jelikoz obsah
>nereprezentuje vlastni okno (funkce
>zavrit/maximalizovat/obnovit/minimalizovat, proste regulerni formular) chci
>ponechat. pokud nekdo pouzivate Operu, je to presne to, co chci. Nevite o
>necem takovem?
>
>Brona
>
>
>
>
>
>MDI a tabPage
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 27.7.2004 09:57:54
Ahoj, chtel bych udelat MDI aplikaci, ale potreboval bych, aby okna byla
definovana i pomoci zalozek, tzn nahore by byla ouska tabControl, pro
kliknuti by se preplo na dalsi okno. Nechci pageControl, jelikoz obsah
nereprezentuje vlastni okno (funkce
zavrit/maximalizovat/obnovit/minimalizovat, proste regulerni formular) chci
ponechat. pokud nekdo pouzivate Operu, je to presne to, co chci. Nevite o
necem takovem?
Brona
Virtualni seriovy port
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 27.7.2004 09:27:50
> > Zkousim komunikovat pres %subj% vytvoreny pomoci programu Network
> > SerialPort Kit http://www.networkserial-port.com/ >
> To musi byt ten driver pekne blbe napsany, kdyz ho zborim pres volani
> standardniho Win32Api. :-O
> Lukas Gebauer.
Mam bohuzel stejny dojem :-(
INDY a Socker error: 10055
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.7.2004 08:55:47
Ahoj, vytvoril jsem si programek, ktery pomoci komponenty z INDY TIdTCPClient, najde v siti PC ze zadanym otevrenym portem.
Na Win2000 a WinXP funguje OK, ale kdyz program pustim nad Win98, tak po testovani asi 90 IP adresy a vyse mi zace INDY hlasit chybu - Socke error 10055: No buffer space available.
Nevite nekdo co s tim?
P.S: V Googlu jsem si nasel, ze by to mohlo souviset s nastavenim LINGERU , ale u INDY jsem zatim naprisel na to, jak to pripadne vypnout.
Dekuji
D.
Virtualni seriovy port
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.7.2004 08:33:44
> Zkousim komunikovat pres %subj% vytvoreny pomoci programu Network
> SerialPort Kit http://www.networkserial-port.com/ se zarizenim
> pripojenym na fyzicky seriovy port na vzdalenem PC (LAN/internet),
> ktery je sdilen na siti pomoci tehoz programu. Zatim se nedari bohuzel
> ani pomoci komponent AsyncPro (TurboPower) ,ani s unitou Synaser.V
> druhem pripade nasleduje dokonce totalni zhrouceni systemu (do modra)
> pri nastavovani konfigurace portu. Samozrejme v obou pripadech
To musi byt ten driver pekne blbe napsany, kdyz ho zborim pres volani
standardniho Win32Api. :-O
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.InterBase Security Service: zjisteni hesla uzivate
[*] Marian Nykel <nykel(zv)atlascon(tec)cz> - 27.7.2004 08:01:41
Sotva jsem sem napsal ten dotaz, napadlo me mozne reseni (resp. jak
problem obejit...), kazdopadne diky za reakci.
Marian Nykel
Milan Tomes wrote:
>Nijak - heslo je v databazi ISC4.gdb a je ulozen jen jeho kryptovany tvar,
>ktery je kryptovan nereverzibilnim postupem.
>
>HTH
>
>S pozdravem
>
>Milan Tomes
>
>
>
>
>>[mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Marian Nykel
>>Sent: Monday, July 26, 2004 1:32 PM
>>
>>Jak zjistim heslo daneho uzivatele pomoci komponenty IB Security
>>Service? Kdyz DisplayUser(jmeno), promenna Password zustane prazdna.
>>
>>
>
>
>
>
>ADO & Paradox
[*] pgregor <pgregor(zv)orsia(tec)cz> - 27.7.2004 07:29:29
Mam aplikaci napsanou v Delphi 6, ktera pracuje proti Paradoxovym tabulkam.
Jako databazove komponenty pouzivam ADO komponenty dodavane s Delphi.
Vse mi na mem PC funguje OK. Kdyz aplikaci testuji na jinem PC, tak mi
nahlasi chybu:
"[Microsoft] [Ovladac ODBC pro Paradox] Databazovy stroj Microsoft Jet
nemuze najit objekt ...... "
Objekt ale existuje, a chybu je odstranim v okamziku kdy na testoovaci PC
doinstaluji BDE. Na mem PC mam BDE taky.
Moje otazka spociva v tom ze se mi zda divne mit nainstalovane BDE k tomu
abych se pomoci ADO dostal na paradoxovske tabulky.
Jako driver pouzivam:
Driver do Microsoft Paradox (*.db )};DriverId=538;FIL=Paradox 5.X;
Muze mi nekdo napsat jestli nedelam nekde chybu?
Bylo by resenim bez BDE kdybych misto Paradoxovych tabulek
pouzil tabulky dBASE IV?
Me Delphi jsou D6 Professional na Win XP.
Testovaci PC jsou na Win XP a Win2000.
Petr
Jmeno PC dle IP
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.7.2004 07:09:26
Ahoj, musis dat do USES jeste WinSock, potom by to to melo fungovat
----- Original Message -----
From: "Matejcek Petr" <konference(zv)crhov.komfi(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 26, 2004 9:00 PM
Subject: Re: Jmeno PC dle IP
> jake pro to pouzivate knihovny ?? me ta Vase funkce nefunguje vubec (
> identifikace promennych )
>
>
> P.M.
>
> Dalibor napsal(a):
>
> >Ahoj, mam funkci na zjistovani jmena PC dle IP adresy.
> >V me siti mi vraci u kazde IP adresy jmeno "privat"
> >Da se s tim neco delat?
> >
> >Vypis funkce
> >
> >function HostByIP(IP:PChar):string;
> >var
> > wVersionRequested : WORD;
> > wsaData : TWSAData;
> > Addr:LongWord;
> > p : PHostEnt;
> >begin
> > Result:='Can''t reslove host';
> > p:=nil;
> >
> > {Start up WinSock}
> > wVersionRequested := MAKEWORD(1, 1);
> > WSAStartup(wVersionRequested, wsaData);
> >
> > {Get the Host Name by address}
> > Addr:=inet_addr(IP);
> > p := GetHostByAddr((zv)Addr,128,AF_INET);
> >
> > {Shut down WinSock}
> > WSACleanup;
> > if p<>nil then Result:=p^.h_Name;
> >end;
> >
> >
> >
> >
> >
> >
>
>
Virtualni seriovy port
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 27.7.2004 06:11:19
Zkousim komunikovat pres %subj% vytvoreny pomoci programu Network
SerialPort Kit http://www.networkserial-port.com/ se zarizenim pripojenym na
fyzicky seriovy port na vzdalenem PC (LAN/internet), ktery je sdilen na siti
pomoci tehoz programu. Zatim se nedari bohuzel ani pomoci komponent AsyncPro
(TurboPower) ,ani s unitou Synaser.V druhem pripade nasleduje dokonce
totalni zhrouceni systemu (do modra) pri nastavovani konfigurace portu.
Samozrejme v obou pripadech testovaci programy spolehlive komunikuji se
zarizenim na beznem fyzickem seriovem portu. Nema nekdo zkusenosti se
zminenym programem?
Dik
Jirka
D5 Prof, WinXP Prof
Settings v XML
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 26.7.2004 22:34:44
Ahoj,
potrebuji udelat nastaveni programu do settings, ale potrebuji viceurovnove
(takze ne INI file). Nejlepe XML soubor ve strukture
<?xml version="1.0" encoding="utf-8">
<settings>
<profile>
<directory>C:\ccc</directory>
<file>xx.xxx</file>
</profile>
<login>
<username>Bauglir</username>
<password>lasjdaksd</password>
</login>
</settings>
tak, aby se dalo pristupovat timto zpusobem: dir :=
sett["profile"]["directory"];
a aby to samo umelo vytvaret vetve (sett["store"]["data"] := 'blabla';).
Nemate nekdo neco takoveho?
P.S. Prosim zadne flamewar o uchovavani hesla v souboru, toto je pouze
ilustracni priklad.
P.P.S. NECHCI to ukladat do registru, takze ani zadne flamewar o
registrech.:)
P.P.P.S. Neradte mi jak, to napsat, to vim, ale pokud uz to nekdo ma....
Diky.
Brona
textovy soubor v azbuce
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 26.7.2004 21:58:36
tak se to o trosku zlepsilo ale porad to neni ono ted to pise misto
nesmyslu otazniky
zapomnel jsem na neco ?
Milan Tomes napsal(a):
>Cti jednotlive radky a string z unicode ziskas pomoci funkce
>WideCharToString(PWideChar(radek_z_toho_textoveho_souboru))
>
>S pozdravem
>
>Milan Tomes
>
>
>
>
>>[mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Matejcek Petr
>>Sent: Monday, July 26, 2004 9:03 PM
>>
>>
>>
>>> potreboval bych nacist radek z textoveho souboru ktery je napsan v
>>>azbuce (tudiz ulozen s kodovanim unicode) a zobrazit ho ve sve aplikaci
>>>
>>>
>
>
>
>
>Jmeno PC dle IP
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 26.7.2004 21:00:30
jake pro to pouzivate knihovny ?? me ta Vase funkce nefunguje vubec (
identifikace promennych )
P.M.
Dalibor napsal(a):
>Ahoj, mam funkci na zjistovani jmena PC dle IP adresy.
>V me siti mi vraci u kazde IP adresy jmeno "privat"
>Da se s tim neco delat?
>
>Vypis funkce
>
>function HostByIP(IP:PChar):string;
>var
> wVersionRequested : WORD;
> wsaData : TWSAData;
> Addr:LongWord;
> p : PHostEnt;
>begin
> Result:='Can''t reslove host';
> p:=nil;
>
> {Start up WinSock}
> wVersionRequested := MAKEWORD(1, 1);
> WSAStartup(wVersionRequested, wsaData);
>
> {Get the Host Name by address}
> Addr:=inet_addr(IP);
> p := GetHostByAddr((zv)Addr,128,AF_INET);
>
> {Shut down WinSock}
> WSACleanup;
> if p<>nil then Result:=p^.h_Name;
>end;
>
>
>
>
>textovy soubor v azbuce
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2004 21:12:32
Cti jednotlive radky a string z unicode ziskas pomoci funkce
WideCharToString(PWideChar(radek_z_toho_textoveho_souboru))
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Matejcek Petr
> Sent: Monday, July 26, 2004 9:03 PM
>
> > potreboval bych nacist radek z textoveho souboru ktery je napsan v
> >azbuce (tudiz ulozen s kodovanim unicode) a zobrazit ho ve sve aplikaci textovy soubor v azbuce
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 26.7.2004 21:02:31
to opravdu nikdo nevite jak to udelat ? prosim poradte
PM
Matejcek Petr napsal(a):
>DD,
> potreboval bych nacist radek z textoveho souboru ktery je napsan v
>azbuce (tudiz ulozen s kodovanim unicode) a zobrazit ho ve sve aplikaci
> kdyz nastavim rusky charset tak rustina v samotne aplikaci funguje
>ale z toho souboru ctu porad nesmysly
>
>pls poradil by nekdo ?
>diky PM
>
>
>
>
>Diakritika pri filtrovani na cast retezce
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 26.7.2004 19:28:22
Tipoval bych, ze funkce UPPER na databazi to prevede spatne, chce to
tedy donutit ke spravnemu prevedeni diakritiky i ji. Co to vrati pokud
se da pouze "SELECT UPPER(Jmeno) ..." na radek s diaktitikou?
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, July 26, 2004, 12:25:32 PM, you wrote:
L> Ahoj,
L> dekuju, ale asi je jeste nekde chyba...
L> pokud napisu:
L> IBQuery1.SQL.Add('Where UPPER(Jmeno) LIKE :p1');
L> IBQuery1.ParamByName('p1').AsString :=
L> '%'+AnsiUpperCase(editHledej.Text)+ '%';
L> nevyhleda se uz vubec nic s diakritikou.
L> Pokud pouziju fci UpperCase, vyhleda se alespon vse s diakritikou stejne
L> velikosti znaku.
L> Dik moc,
L> Lada
InterBase Security Service: zjisteni hesla uzivate
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2004 18:46:14
Nijak - heslo je v databazi ISC4.gdb a je ulozen jen jeho kryptovany tvar,
ktery je kryptovan nereverzibilnim postupem.
HTH
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Marian Nykel
> Sent: Monday, July 26, 2004 1:32 PM
>
> Jak zjistim heslo daneho uzivatele pomoci komponenty IB Security
> Service? Kdyz DisplayUser(jmeno), promenna Password zustane prazdna.TChart, dilky na ose
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 26.7.2004 14:43:54
Ahoj, delka na ose mezi jednotivymi hodnotami se zjistit da, ale jak zjistit
delku mezi nejblizsimi popsanymi dilky, to opravdu nevim.
Dalik.
>
> Prosim, da se nejak zjistit delka dilku na ose (tj. rozdil mezi ciselnou
hodnotou sousednich labelu automaticky generovanych TChartem)?Listbox predelany na TListview..
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 26.7.2004 14:37:53
> nechce a nemuzu pouzivat TShellListView, bohuzel to musim
> postavit na standardnich komponentach listview, listbox..
>
No pockej, nejdriv po nas chces nejakou komponentu a pak rikas, ze to musis
postavit na standardnich...
Musi rto ted byt primo odvozene komponenty z TListView a TListBox?
No potom to mas tezky, snad Ti pomuze virtualni mod TListView.
Brona
Programovani Drivers pod windows
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 26.7.2004 14:35:52
Ahoj, je to celkem prusvih, ale pokud potrebujes ovladat kartu ve W95, nebo
W98 , pak to jde i v 16 bitove verzi Delphi pristupovat na porty a do
pameti, dokonce v nem jde udelat i 16- bitovou DLL knihovnu, jejiz funkce
lze volat z jine 16 bitove aplikace. Je to sice trochu retro a muzou nastat
problemy, ale pokud to neni urceno pro zakaznika ale pro vlastni potrebu,
nebal bych se toho. Sam to pouzivam, neni-li zbyti. Velmi dobry popis, jak
na to, je napriklad v knize Delphi pruvodce vyvojare z nakladetelstvi UNIS
1996 od panu Pacheca a Teixeiry.
S pozdravem Dalik.
> Naprogramovat je pro dos nebyl problem. Ted ale chci ovladac
> naprogramovat i pro windows (zazacatku W95/W98 - protoze karta je zatim
> na IZA slotu). Na jinych diskusi jsem zjistil, ze k vyvoji noveho
> ovladace potrebuji "Windows Driver Development Kit". Bohuzel nevim jak
> ho sehnat (na stazeni nemam dostatecne privilgovane jmeno - mi to pise).
>
> Nema nekdo s touto problematikou zkusenosti a nemohl by mi poradit a
> spravne mne nasmerovat?Programovani Drivers pod windows
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 26.7.2004 14:17:49
> > Mam pocit, ze DDK neni cely free, ale ze je soucasti predplatneho MSDN.
> > Takze predplatit a pak si hrat s C++.
>
> A jiny zpusob programovani Driveru neznate?
ak potrebujes len citat/zapisovat registre zariadenia, tak mozes pouzit
univerzalne drivery, napr. nas IOPort http://www.winsoft.sk/ioport.htm
Erik
Programovani Drivers pod windows
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.7.2004 13:51:47
Puvodni zprava ze dne 26.7.2004:
>> Mam pocit, ze DDK neni cely free, ale ze je soucasti predplatneho MSDN.
>> Takze predplatit a pak si hrat s C++.
> A jiny zpusob programovani Driveru neznate?
Neznam, protoze neexistuje. Drivery se pisi jedine v C++ pomoci DDK. A
nebo jeste mozna v Assembleru :-)
PS: To nevis, ze pri kazde flame C++ vs. Pascal/Delphi vzdycky
programatori C++ argumentuji v prvni rade tim, ze jedine v C++ lze
psat drivery a ze preci to je nejdulezitejsi porovnavaci hledisko,
protoze kazdy prece drivery pise? No a pak kdyz jsem jednou potreboval
sam napsat driver a chtel jsem za to zaplatit programatora, ktery to
opravdu umi, tak jsem zjistil, ze to vlastne nikdo neumi :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
SettingsFile - adresar s lokalnim nastavenim uziva
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 26.7.2004 13:49:46
Jak zjistim, ktery adresar obsahuje lokalni nastaveni uzivatele (chci
program vytvorit nastavitelny pro kazdeho uzivatele zvlast).
Programovani Drivers pod windows
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 26.7.2004 13:45:45
> Mam pocit, ze DDK neni cely free, ale ze je soucasti predplatneho MSDN.
> Takze predplatit a pak si hrat s C++.
A jiny zpusob programovani Driveru neznate?
InterBase Security Service: zjisteni hesla uzivate
[*] Marian Nykel <nykel(zv)atlascon(tec)cz> - 26.7.2004 13:31:43
Jak zjistim heslo daneho uzivatele pomoci komponenty IB Security
Service? Kdyz DisplayUser(jmeno), promenna Password zustane prazdna.
Pokud bych dal ModifyUser, nastavim prazdne heslo, coz nechci...
Diky za rady, Marian
generator grafu v COM
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.7.2004 13:27:42
From: <david.kopecek(zv)hacktrack.com>
> no napriklad je problem v
>
>
> FChart := TChart.Create(nil);
>
> na tomto to proste krachne protoze je to visualni komponenta co
> poteubje Form...
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Forms, TeeProcs, TeEngine, Chart;
procedure Run;
var
C: TChart;
F: TForm;
begin
F := TForm.CreateNew(nil);
try
C := TChart.Create(F);
C.Parent := F;
C.SaveToBitmapFile('chart.bmp');
finally
F.Free;
end;
end;
begin
Run;
end.
Petr Vones
Diakritika pri filtrovani na cast retezce
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2004 13:21:41
A mas databazi definovanou s default character set Win1250 a na sloupci
definovany COLLATE PXW_CSY ???
Pokud ne, tak je nutno pouzit nasledujici:
IBQuery1.SQL.Add('Where UPPER(Jmeno COLLATE PXW_CSY) LIKE :p1');
HTH
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Lada
> Sent: Monday, July 26, 2004 12:26 PM
>
> pokud napisu:
>
> IBQuery1.SQL.Add('Where UPPER(Jmeno) LIKE :p1');
> IBQuery1.ParamByName('p1').AsString :=
> '%'+AnsiUpperCase(editHledej.Text)+ '%';
>
> nevyhleda se uz vubec nic s diakritikou.
> Pokud pouziju fci UpperCase, vyhleda se alespon vse s diakritikou stejne
> velikosti znaku.Listbox predelany na TListview..
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.7.2004 13:15:40
From: <david.kopecek(zv)hacktrack.com>
> nechce a nemuzu pouzivat TShellListView, bohuzel to musim postavit na
> standardnich komponentach listview, listbox..
Takze jsme zase na zacatku, v cem je tedy problem ?
Petr Vones
Diakritika pri filtrovani na cast retezce
[*] Lada <lada.xt(zv)volny(tec)cz> - 26.7.2004 12:25:32
Milan Tomes napsal(a):
>V Delphi misto funkce UpperCase pouzij AnsiUpperCase - UpperCase neprevadi
>ceske znaky.
>
>
Ahoj,
dekuju, ale asi je jeste nekde chyba...
pokud napisu:
IBQuery1.SQL.Add('Where UPPER(Jmeno) LIKE :p1');
IBQuery1.ParamByName('p1').AsString :=
'%'+AnsiUpperCase(editHledej.Text)+ '%';
nevyhleda se uz vubec nic s diakritikou.
Pokud pouziju fci UpperCase, vyhleda se alespon vse s diakritikou stejne
velikosti znaku.
Dik moc,
Lada
ADO a excel
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 26.7.2004 12:43:36
dobry den,
zkousim v D6p pripojit excel soubor, ktery ma ve sloupci jak cisla,tak text.
At nastavuju parametry bunek (obecny nebo text) anebo komponent ADO jak
chci, bud se precte jen text nebo jen cisla, poradite mi? Zkousel jsem i to
KaDao, ale to skonci s chybou numeric field overflow
dekuji
Radek Lahoda
Listbox predelany na TListview..
[*] david.kopecek(zv)hacktrack(tec)com - 26.7.2004 12:39:35
Ahoj
PV> From: <david.kopecek(zv)hacktrack.com>
>> no napriklad je pomaly pri vymazavani..
PV> Neni, pokud se pouzije spravne (virtualni rezim). To o co se snazis mas
PV> vicemene hotove uz v Delphi, viz komponenta TShellListView nebo demo Virtual
PV> Listview.
nechce a nemuzu pouzivat TShellListView, bohuzel to musim postavit na
standardnich komponentach listview, listbox..
--
S pozdravem,
David
ESC sekvence
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 26.7.2004 12:39:34
Ahoj,
pouzivame toto bez problemu. Snad to pomuze:
KasaLPT : String;
KasaLPT := 'LPT1';
var
PrintFile : TextFile;
begin
if (KasaLPT<>'') and (KasaESC<>'')
then
begin
AssignFile(PrintFile,KasaLPT);
Rewrite(PrintFile);
Write(PrintFile,#27,#112,#0,#60,#120); //pro EPSON TM210 otevreni
kasy
CloseFile(PrintFile);
end;
end;
Vlasta
----- Original Message -----
From: "Milos J. Hrach" <delphi_konf(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 26, 2004 10:33 AM
Subject: Re: ESC sekvence
> Jestli se nemilim tak zapisem na LPT.Uz jsem to dlouho nedelal,
> ale myslim, ze je to nejak takle: Write(LPT,<kod ESC sekvence>)
>
> > Nevite nahodou nekdo jak nebo cim posilat
> > na tiskarnu ESC sequence? Alespon na
> > HP(pcl5) nap+AVk-.reset (27,69)....ESC a
> > E.On mi to totiz vzdycky vezme jako
> > znaky.......
> >
>
>
> --
> Milos J. Hrach, D6 profi, WinXP Home
>
>
>IBCDS a aggregates - chyby
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 26.7.2004 12:21:31
Kdyz vytvorim aggregovane pole v IBClientDataSetu, nastavim AggregatesActive
na true, nastavim Filter na neco (CENA>100), zapnu Filter na true
a pokusim se zavrit IBCDS (Close)
Chyba:
exception class EDBClient with message 'Operation not applicable.'.
-----------------------------------------
Kdysi jsem zahledl, ze Aggregates maji ve svem kodu nejake chyby. Nesetkal
jste se nekdo s touto chybou?
Listbox predelany na TListview..
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 26.7.2004 12:05:29
Ahoj,
Dopurucuji VirtualTreeView ( i kdyz se jmenuje TV, lsit s nim udelas v
pohode :)), se kterym jdou delat ledas jake kousky a bylo primo vytvoreno
pro velke mnozsrvi dat, je s nim narocnejsi prace, nez s normalnim
TListView, ale doporucuji ho.
Brona
Diakritika pri filtrovani na cast retezce
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2004 11:25:24
V Delphi misto funkce UpperCase pouzij AnsiUpperCase - UpperCase neprevadi
ceske znaky.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Lada
> Sent: Monday, July 26, 2004 11:17 AM
>
> Funguje to, jen mam problemy s diakritikou. Pokud mam v DB napr. jmeno s
> malym pocatecnim pismenem s hackem a filtruju podle velkeho pocatecniho
> pismene s hackem... Pokud filtruju podle casti retezce s malym poc.
> pismenem s hackem, vse je OK. Obracene to nefunguje stejne.Listbox predelany na TListview..
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.7.2004 11:21:24
From: <david.kopecek(zv)hacktrack.com>
> no napriklad je pomaly pri vymazavani..
Neni, pokud se pouzije spravne (virtualni rezim). To o co se snazis mas
vicemene hotove uz v Delphi, viz komponenta TShellListView nebo demo Virtual
Listview.
Petr Vones
Diakritika pri filtrovani na cast retezce
[*] Lada <lada.xt(zv)volny(tec)cz> - 26.7.2004 11:17:23
Zdravim vsechny a moc dekuju za pomoc pri filtrovani podle casti retezce.
Funguje to, jen mam problemy s diakritikou. Pokud mam v DB napr. jmeno s
malym pocatecnim pismenem s hackem a filtruju podle velkeho pocatecniho
pismene s hackem... Pokud filtruju podle casti retezce s malym poc.
pismenem s hackem, vse je OK. Obracene to nefunguje stejne.
IBQuery1.SQL.Add('Where (UPPER(Jmeno) LIKE :p1) or (UPPER(Prijmeni)
LIKE :p2)');
IBQuery1.ParamByName('p1').AsString := '%'+UpperCase(editHledej.Text)+
'%';
IBQuery1.ParamByName('p2').AsString := '%'+UpperCase(editHledej.Text)+
'%';
(DB FB1.5) WIN1250
Poradi mne nekdo jak se to resi..?
Diky moc, Lada.
Programovani Drivers pod windows
[*] Jiri Virt <virt(zv)volny(tec)cz> - 26.7.2004 11:01:21
jo, soucasna verze je sucasti MSDN , pisou to tam.
ja mam ve svzm DDk toto
The DDK Web site at http://www.microsoft.com/ddk/. This Web site provides
information and resources for driver development, including:
a.. The most current DDK available, publicly downloadable.
b.. Current documentation for the DDK, downloadable or browseable online.
c.. Announcements of new DDK developments.
d.. Feedback for reporting bugs, suggesting content, and rating the DDK
vypada to, ze nyni je pouze k zdarma k dispozici verze "browseable online"
;o)
Jirka Virt
Programovani Drivers pod windows
[*] Jiri Virt <virt(zv)volny(tec)cz> - 26.7.2004 10:13:12
minimalne zde je online.Mozna je to predelano, ale DDk mas stazeno do
WinNT4.0
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gstart/hh/gstart/gs_design_cd42709d-4a10-4dc2-9823-d960566a1557.xml.asp
Jirka Virt
select * alebo select a,b,c...
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.7.2004 10:03:11
> Mozem pouzivat select * alebo treba vymenovavat vsetky polia
> v sql prikaze u IBQuery. Cosi som niekde zaregistroval, ze
> select * moze robit problemy.
>
Ahoj,
krome rizika, ze budes dotahovat na klienta i sloupce, ktere treba
nepotrebujes, coz muze dost zdrzovat, riskujes i to, ze zmena v
databazi muze ovlivnit chovani v programu. Pokud si grid vytvari
sloupce automaticky, tj. nemas je preddefinovane v dobe navrhu,
muze se treba po pridani sloupce do databaze nebo po prohazeni
poradi sloupcu v tabulce stat, ze grid bude najednou necekane
ukazovat i ten novy sloupec nebo se zmeni poradi sloupcu... Naopak
vyjmenovanim pozadovanych sloupcu, i kdyz jich je treba hodne, se
aspon trochu chranis pred zmenami v databazi, ktere jsem popsal.
David Lebeda
Dalsi offline serial o Delphi - dulezity dodatek
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.7.2004 10:47:19
Bohuzel se nekde vloudila chybicka - FTP meho webu se chova ponekud zahadne,
takze mi to nechce ten soubor vzit (resp. soubor se tam nakopiruje, ale
vzapeti se zase smaze). Dal jsem jej tedy na ftp://delphi(tec)cz (U: delphi, P:
archivar) do adresare Other/Offline. Omlouvam se, bohuzel to ale neovlivnim.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
Ahoj vsem, s radosti oznamuji, ze na mem webu
http://web.redbox(tec)cz/petr.brant je k dispozici dalsi offline verze
serialu o
Delphi, tentokrat od Vaclava Kadlece. Je toho 133 dilu (dekuji panu
Petru
Potuzakovi za poskytnuti dat) na nejruznejsi temata od BDE po
sockety. Takze
stahujte, predhanejte se ve vyjadrovani diku :-) a hlavne
programujte...ESC sekvence
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 26.7.2004 10:33:17
Jestli se nemilim tak zapisem na LPT.Uz jsem to dlouho nedelal,
ale myslim, ze je to nejak takle: Write(LPT,<kod ESC sekvence>)
> Nevite nahodou nekdo jak nebo cim posilat
> na tiskarnu ESC sequence? Alespon na
> HP(pcl5) nap+AVk-.reset (27,69)....ESC a
> E.On mi to totiz vzdycky vezme jako
> znaky.......
>
--
Milos J. Hrach, D6 profi, WinXP Home
Programovani Drivers pod windows
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.7.2004 10:29:16
Puvodni zprava ze dne 26.7.2004:
> DDK lze normalne stahnout na strankach microsoftu ...
Mam pocit, ze DDK neni cely free, ale ze je soucasti predplatneho
MSDN. Takze predplatit a pak si hrat s C++.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Dalsi offline serial o Delphi
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.7.2004 10:17:14
Ahoj vsem, s radosti oznamuji, ze na mem webu
http://web.redbox(tec)cz/petr.brant je k dispozici dalsi offline verze serialu o
Delphi, tentokrat od Vaclava Kadlece. Je toho 133 dilu (dekuji panu Petru
Potuzakovi za poskytnuti dat) na nejruznejsi temata od BDE po sockety. Takze
stahujte, predhanejte se ve vyjadrovani diku :-) a hlavne programujte...
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
info o exception
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.7.2004 10:03:09
Sice nevidim puvodni dotaz (odpoved prisla driv), ale pokud jde o nalezeni
mista v kodu, ktere zpusobuje potize (rozumi se ovsem v hotove verzi, ktera
bezi u zakaznika, ne v okamziku vyvoje), tak se mi osvedcil Exceptdlg z JCL.
Jen je treba nastavit linker tak, aby generoval MAP soubor.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
> > List index of bounds(13)
>
> Vznika tam kde pretece pocet prvku v poli. Napr. kdyz ctes z ListBoxu
> prvek s poradovym cislem pet a pritom v list boxu je prvku jenom pet
> (rozumnej cislovani zacina od nuly, takze prvky jsou 0 az 4).
>
> Tohle se stava i tobe, akorat ze se snazis precist trinacty prvek, ktery
> ale neexistuje.
>
> Zkus si vlozti do try except bloku vsechno to, kde pouzivat TStrings (to
> muze byt i v PopupMenu, ComboBoxu) a uvidis ze to prestane.
>
> Btw. ale i kdyz to prestane, zkus si postupne, napr. pomoci ShowMessage
> vypsat misto, kde k vijimce dochazi, neni to tak tezke zjistit.
>
>
Programovani Drivers pod windows
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 26.7.2004 10:01:06
> DDK lze normalne stahnout na strankach microsoftu ...
Muzete mi primo poslat odkaz odkud to stahnu? Prosim. Po mne to chce
nejake MSDN Subscription, pro ktere abych dokoncil, potrebuji nejake dva
kody, nevim jake. Nevim kde je ziskat (nejblizsi Customer Service, je v
nejake cizine a mluvi pouze anglicky).info o exception
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 26.7.2004 09:25:03
> List index of bounds(13)
Vznika tam kde pretece pocet prvku v poli. Napr. kdyz ctes z ListBoxu prvek s poradovym cislem pet a pritom v list boxu je prvku jenom pet (rozumnej cislovani zacina od nuly, takze prvky jsou 0 az 4).
Tohle se stava i tobe, akorat ze se snazis precist trinacty prvek, ktery ale neexistuje.
Zkus si vlozti do try except bloku vsechno to, kde pouzivat TStrings (to muze byt i v PopupMenu, ComboBoxu) a uvidis ze to prestane.
Btw. ale i kdyz to prestane, zkus si postupne, napr. pomoci ShowMessage vypsat misto, kde k vijimce dochazi, neni to tak tezke zjistit.
Lukas Benda
Programovani Drivers pod windows
[*] Jiri Virt <virt(zv)volny(tec)cz> - 26.7.2004 09:21:02
DDK lze normalne stahnout na strankach microsoftu ...
jsou v nem ukazky programovani ; priklady na printer driver
Jirka Virt
Programovani Drivers pod windows
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 26.7.2004 09:17:01
Dobry den,
Mam vlastnorucne vyrobenou kartu pro pocitacem rizene stroje. Protoze
jsem si kartu vyrobil sam, je zrejme, ze k ni nesezenu zadne ovladace.
Naprogramovat je pro dos nebyl problem. Ted ale chci ovladac
naprogramovat i pro windows (zazacatku W95/W98 - protoze karta je zatim
na IZA slotu). Na jinych diskusi jsem zjistil, ze k vyvoji noveho
ovladace potrebuji "Windows Driver Development Kit". Bohuzel nevim jak
ho sehnat (na stazeni nemam dostatecne privilgovane jmeno - mi to pise).
Nema nekdo s touto problematikou zkusenosti a nemohl by mi poradit a
spravne mne nasmerovat?
Lukas Benda
Jak spravne polapit objekt
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.7.2004 08:52:58
> Co je spravnejsi
>
> 1)
> procedure TForm1.CheckBox1Click(Sender: TObject);
> var
> Check : TCheckBox;
> begin
> Check := Sender as TCheckBox;
> end;
>
> 2)
> procedure TForm1.CheckBox1Click(Sender: TObject);
> var
> Check : TCheckBox;
> ChbName : String;
> begin
> ChbName := (Sender as TCheckBox).Name;
> Check := TCheckBox(FindComponent( ChbName ));
> end;
Ahoj,
podle me vedou oba zpusoby k temuz vysledku, nicmene prvni zpusob je urcite
efektivnejsi a setrnejsi (proc prohledavat pole komponent podle nazvu?). P. Kuklik
navrhuje reseni s pomoci is misto as - to se mi libi nejvic, i kdyz zalezi na tom, co
pozadujes. Pokud sender nebude TCheckBox, jestli ma vzniknout vyjimka (pak je
operator as na miste) nebo ne (pak delat kontrolu pres is ve sve rezii). To ze by Sender
nebyl checkbox, se muze stat treba tak, ze nekdo nekde funkci CheckBox1Click zavola
rucne z programu a da ji nesmyslny parametr. Otazka je, do jake miry to je
pravdepodobne.
David Lebeda
David Lebeda
Vyhledavani podle casti retezce
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2004 08:20:55
IMHO dle prikazu, ktery tazatel napsal to hleda retezec, ktery obsahuje
podretezec 'UPPER(ko)'.
Procenta ma dobre... Jen je nutne to udelat trochu jinak -
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE UPPER(''%ko%'')');
HTH
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pesek Michal
> Sent: Monday, July 26, 2004 8:03 AM
>
> > IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko)%'' ');
> > takto dostanu prazdny vysledek. Predpokladam chybu nekde v uvozovkach
>
> Hi,
> Chybu bych nevidel v uvozovkach, ale v tech procentech
> IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko%)'' ');
>
> Michal PEPR Pesek
Listbox predelany na TListview..
[*] david.kopecek(zv)hacktrack(tec)com - 26.7.2004 08:06:53
AHoj
BK> Co mas za problem s ListView??
no napriklad je pomaly pri vymazavani..
>>
>> nemate nekdo komponentu typu listbox ktera je predelana
>> alespon castecne na listview ?... tj aby mela columns a
>> moznost ikonek ?...
>> Treba Total Commander kterej je spanej v delphy pouziva
>> TMyListBox jenze tahle asi nebude verejne dostupna.. Musim
>> totiz udelat commandera ve stylu total commander.. a s
>> listview se mi to nedari
David
Vyhledavani podle casti retezce
[*] Pesek Michal <michal.pesek(zv)mnul(tec)cz> - 26.7.2004 08:02:53
> IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko)%'' ');
> takto dostanu prazdny vysledek. Predpokladam chybu nekde v uvozovkach
Hi,
Chybu bych nevidel v uvozovkach, ale v tech procentech
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko%)'' ');
Michal PEPR Pesek
Zapis do registu, jak ziskat opravneni?
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 26.7.2004 08:00:52
> nevite nekdo, jak se da obejit opravneni k zapisu do registru?
A k cemu by tam to opravneni bylo, pokud by ho kazdy mohl obejit?
> Kdyz se pri instalaci snazim zapisovat do
> HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\ a do
> HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\, tak mi to
> odmitne, zrejme kvuli tomu, ze nemam opravneni k zapisu. Jak to ale obejit?
...
> Neznate nekdo lepsi a pohodlnejsi zpusob?
Instalovat vas program s administratorskymi pravy.
Luf
Jak zapisovat do HKLM i HKCU?
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 26.7.2004 07:56:51
> > > Opet se budu opakovat - vynech chyby meho programu ktere
> > mohou nastat
> > > at bude hodnota ulozena kdekoliv a dej alespon jeden konkretni
> > > argument proc je zpristupneni hodnoty v
> > > HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy
> > > "user" pro zapis muze ohrozit system W2K
>
> > Coz takhle zaplneni veskereho mista v registrech/disku.
>
> No to je ovsem zcela jednoznacne mozne i zapisem do HKCU....
Nj, ale HKCU si to zaplaca jen sam sobe nikoli vsem na danem pocitaci
(zvlaste pri cestovnich profilech).
Luf
Listbox predelany na TListview..
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 26.7.2004 07:26:35
Co mas za problem s ListView??
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of
> david.kopecek(zv)hacktrack.com
> Sent: Saturday, July 24, 2004 11:53 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Listbox predelany na TListview..
>
> Zdravim vsechny prazdninove delphare.. :)
>
> nemate nekdo komponentu typu listbox ktera je predelana
> alespon castecne na listview ?... tj aby mela columns a
> moznost ikonek ?...
> Treba Total Commander kterej je spanej v delphy pouziva
> TMyListBox jenze tahle asi nebude verejne dostupna.. Musim
> totiz udelat commandera ve stylu total commander.. a s
> listview se mi to nedari
>
> --
> S pozdravem,
> david
> david.kopecek(zv)hacktrack.com
>
>
>
>
> ESC sekvence
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 25.7.2004 21:01:49
>Nevite nahodou nekdo jak nebo cim posilat na tiskarnu ESC sequence? Alespon
na HP(pcl5) nap+AVk-.reset (27,69)....ESC a E.On mi to totiz vzdycky vezme
jako znaky.......
Pouzivam toto:
AssignFile(F,prn);
Rewrite(F);
if FNodeSetup.FPRNIni<>'' then write(F,FNodeSetup.FPrnIni); // Pokud je
inicializace jako je reset, nastaveni velikosti pisma atd #27 #69 .....
....
....
CloseFile(F);
ZVO
Vyhledavani podle casti retezce
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 25.7.2004 18:51:36
1)
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%'' + UPPER(ko) + ''%'' ');
zalezi na databazi, muze to byt i:
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%'' || UPPER(ko) || ''%'' ');
2)
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE :param1');
IBQuery1.ParamByName('param1').AsString := '%text%'
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Sunday, July 25, 2004, 6:29:34 PM, you wrote:
L> Zdravim vsechny,
L> mam opet jeden zacatecnickej...
L> poradi nekdo prosim, proc mne nefunguje toto...?
L> IBQuery1.SQL.Clear;
L> IBQuery1.SQL.Add('SELECT * from tabulka');
L> IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko)%'' ');
L> IBQuery1.Active := true;
L> takto dostanu prazdny vysledek. Predpokladam chybu nekde v uvozovkach,
L> ale uz jsem vyzkousel ledacos..
L> Jeste bych se rad zeptal: Jak by se v takovemto dotazu dala zadat cast
L> retezce, podle ktere hledam parametrem?
L> Dik moc za pripadnou odpoved,
L> Lada
Vyhledavani podle casti retezce
[*] Lada <lada.xt(zv)volny(tec)cz> - 25.7.2004 18:29:34
Zdravim vsechny,
mam opet jeden zacatecnickej...
poradi nekdo prosim, proc mne nefunguje toto...?
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT * from tabulka');
IBQuery1.SQL.Add('WHERE UPPER(Prijmeni) LIKE ''%UPPER(ko)%'' ');
IBQuery1.Active := true;
takto dostanu prazdny vysledek. Predpokladam chybu nekde v uvozovkach,
ale uz jsem vyzkousel ledacos..
Jeste bych se rad zeptal: Jak by se v takovemto dotazu dala zadat cast
retezce, podle ktere hledam parametrem?
Dik moc za pripadnou odpoved,
Lada
INCLUDE_FILE
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 25.7.2004 17:09:28
Zdravim
Help soubor mam zakompilovany v aplikaci v exe a jeho pro jeho spusteni
pouzivam nize uvedene procedury (priklad z tipu na spusteni kalkulacky)
Problem nastane pokud se spusti help, shodi se na listu a chci ukoncit
hlavni aplikaci ShellExecute_AndWait(INCLUDE_FILE);
Jak to zaonacit aby se aplikace mohla ukoncit a soucasne sebou vzala
"INCLUDE_FILE"
Diky za radu a omlouvam se za trochu delsi mail
Viktor Marek
viktor(zv)mbox.vol(tec)cz
procedure TForm1.ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
res := TResourceStream.Create(HInstance, ResName, PChar(ResType));
try
Res.SaveToFile(ResNewName);
finally
Res.Free;
end;
end;
procedure TForm1.ShellExecute_AndWait(FileName: String);
var
exInfo : TShellExecuteInfo;
ph : DWord;
begin
FillChar(exInfo, SizeOf(exInfo), 0);
with exInfo do begin
cbSize := SizeOf(exInfo);
fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
Wnd := GetActiveWindow();
ExInfo.lpVerb := 'open';
lpFile := PChar(FileName);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx((zv)exInfo) then begin
ph := exInfo.HProcess;
end else begin
ShowMessage(SysErrorMessage(GetLastError));
exit;
end;
while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
Application.ProcessMessages;
CloseHandle(ph);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
INCLUDE_FILE := 'Help.hlp';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExtractRes('EXEFILE','TESTFILE', INCLUDE_FILE);
if FileExists(INCLUDE_FILE) then begin
ShellExecute_AndWait(INCLUDE_FILE);
DeleteFile(INCLUDE_FILE);
end;
end;select * alebo select a,b,c...
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 24.7.2004 17:39:39
On 24 Jul 2004 at 15:47, hlas wrote:
> Mozem pouzivat select * alebo treba vymenovavat vsetky polia
> v sql prikaze u IBQuery. Cosi som niekde zaregistroval, ze
> select * moze robit problemy.
>
> Mate take skusenosti?
zasadne:
1. pokud se jedna o data do DBGridu, popr. DataSetu, tak jen pole
potrebna
2. pokud chci aktualni record 'nahrnout' na editacni form, tak klidne
select * from tabulka where ID = :ID
a na to Ti staci TIBSQL - ma mensi rezii
> IBquery pouzivam iba na zobrazenie dat cez grid
> s napojeni na IBupdateSql, kde vyuzivam iba refreshsql.
uvedom si, ze budes potrebovat take JOIN (ovat) nekolik tabulek a
potom budes 'honit po siti' zbytecne "bajtiky"
Jarek Uher
select * alebo select a,b,c...
[*] hlas <hlas(zv)inmail.sk> - 24.7.2004 15:47:30
Mozem pouzivat select * alebo treba vymenovavat vsetky polia
v sql prikaze u IBQuery. Cosi som niekde zaregistroval, ze
select * moze robit problemy.
Mate take skusenosti?
IBquery pouzivam iba na zobrazenie dat cez grid
s napojeni na IBupdateSql, kde vyuzivam iba refreshsql.
Zapis do registu, jak ziskat opravneni?
[*] Jaroslav Horak <jaroslav.horak(zv)elcomgroup(tec)cz> - 24.7.2004 13:23:19
Zdravim,
nevite nekdo, jak se da obejit opravneni k zapisu do registru?
Kdyz se pri instalaci snazim zapisovat do
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\ a do
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\, tak mi to
odmitne, zrejme kvuli tomu, ze nemam opravneni k zapisu. Jak to ale obejit?
Kolega mi poradil programek SetACL
(http://setacl.sourceforge.net/index.html), ktery bych s parametry
spoustel externe, ale jak sem se dival na examples, zda se mi to dost
divoke.
Neznate nekdo lepsi a pohodlnejsi zpusob?
Diky, Jarda
rychle vymazani TListview
[*] david.kopecek(zv)hacktrack(tec)com - 24.7.2004 12:29:14
Ahoj
>> nevite nekdo jak se da rychle vymazat TListview kdyz obsahuje cca
>> 10.000 polozek ?..
PV> Pouzivat TListView ve virtualnim rezimu (OwnerData = True) a data si ukladat v
PV> nejakych vlastnich strukturach. Pak se "vymaze" okamzite treba i pri nekolika
PV> milionech polozek.
jo tohle pomohlo...
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
generator grafu v COM
[*] david.kopecek(zv)hacktrack(tec)com - 24.7.2004 12:27:13
Ahoj
>> nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite
>> jakou poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
>> nejde to.
PV> A v cem je konkretne problem ?
PV> Napriklad pro ISAPI je to popsano tady:
PV> http://www.matlus.com/scripts/website.dll/Tutorials?DelphiISAPI&ISAPIUsingTChart&15
no napriklad je problem v
FChart := TChart.Create(nil);
na tomto to proste krachne protoze je to visualni komponenta co
poteubje Form...
--
S pozdravem,
David
Listbox predelany na TListview..
[*] david.kopecek(zv)hacktrack(tec)com - 24.7.2004 11:53:08
Zdravim vsechny prazdninove delphare.. :)
nemate nekdo komponentu typu listbox ktera je predelana alespon
castecne na listview ?... tj aby mela columns a moznost ikonek ?...
Treba Total Commander kterej je spanej v delphy pouziva TMyListBox
jenze tahle asi nebude verejne dostupna.. Musim totiz udelat
commandera ve stylu total commander.. a s listview se mi to nedari
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Demo Scan v SYNAPSE
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.7.2004 12:23:12
> Pro Milana Tomese: pouzivam Delphi 3 a demo jsem
> nemenil, to nastaveni setlength tam skutecne takhle je.
> Asi se opravdu pocita s vyssi verzi Delphi, ackoliv Lukas
> Gebauer tvrdi, ze SYNAPSE podporuje i Delphi3.
Pozor, Synapse skutecne v delphi3 beha bez sebemensich problemu. To ale
neznamena, ze uplne vsechny prilozene DEMO aplikace pobezi pod Delphi3!
(zvlaste ty demo aplikace, ktere nepochazi odemne...)
Demo aplikace je jen ukazka pouziti, kus zdrojaku, ze ktereho muzes
opisovat a okukovat, jak se se Synapsi zachazi. Ale demo aplikace nejsou
soucast Synapse.
Jiste, mohu si nekdy sednout a to cizi demo prepsat tak, aby chodilo i
pod D3. Nicmene ted radeji misto toho pracuji na nove verzi Synapse. Demo
aplikace jsou uz jen tresnicka na dortu, ale nejdriv je treba se venovat
tomu dortu. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
generator grafu v COM
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.7.2004 11:53:07
From: <david.kopecek(zv)hacktrack.com>
> nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite
> jakou poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
> nejde to.
A v cem je konkretne problem ?
Napriklad pro ISAPI je to popsano tady:
http://www.matlus.com/scripts/website.dll/Tutorials?DelphiISAPI&ISAPIUsingTChart&15
Petr Vones
rychle vymazani TListview
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 24.7.2004 11:59:09
> From: <david.kopecek(zv)hacktrack.com>
> > nevite nekdo jak se da rychle vymazat TListview kdyz obsahuje cca
> > 10.000 polozek ?..
>
Nejlepe pouzivat LV ve virtualnim rezimu, ale podstatne pomuze, kdyz po dobu
mazani polozek das Visible := False. Tusim ze stejne tak pomuze uzavrit
Items.Clear mezi par BeginUpdate/EndUpdate, to by byl lepsi zpusob, ale to
uz si presne nevzpominam, kazdopadne Visible := False pomuze zasadne (ale
pro 10000 polozek to stejne nebude ono...).rychle vymazani TListview
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.7.2004 11:27:05
From: <david.kopecek(zv)hacktrack.com>
> nevite nekdo jak se da rychle vymazat TListview kdyz obsahuje cca
> 10.000 polozek ?..
Pouzivat TListView ve virtualnim rezimu (OwnerData = True) a data si ukladat v
nejakych vlastnich strukturach. Pak se "vymaze" okamzite treba i pri nekolika
milionech polozek.
Petr Vones
rychle vymazani TListview
[*] david.kopecek(zv)hacktrack(tec)com - 24.7.2004 11:03:02
Zdravim
nevite nekdo jak se da rychle vymazat TListview kdyz obsahuje cca
10.000 polozek ?..
lv.beginupdate;
lv.clear;
lv.endupdate;
ma takovej sekavej efekt... zato kdyz v komponente TlistBox ktera ma
cca 20.000 zaznamu dam items.clear; tak to vymaze hodne rychle bez
jakyhokoliv sekani aplikace...
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
generator grafu v COM
[*] david.kopecek(zv)hacktrack(tec)com - 24.7.2004 10:51:01
Zdravim
nevite nekdo jakym zpusobem vygenerovat grafy v COM komponente, v kvalite jakou
poskytuje komponenta TChart ?.. Skousel jsem dat TChart do COM ale
nejde to.
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Obrazek v RichEditu
[*] Radim Hradecky <radim.hradecky(zv)seznam(tec)cz> - 24.7.2004 09:16:53
Pokud se nepletu tak Richedit obrazky nepodporuje. Jde to tam ale vrazit
pres OLE - je to ale takove cele kostrbate a nakonec sem to nepouzil kdyz
sem to zkousel. Pokud mas zajem muzu ti poslat zdrojak. Kdyztak mi napis na
mejl pokud mas zajem
S pozdravem Radim Hradecky
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Viktor Marek
Sent: Friday, July 23, 2004 11:32 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Obrazek v RichEditu
Zdravim
Pokud chci k jednoduche aplikaci dat mini napovedu pridam Form na nej
RichEdit a do nej napisi strucnou napovedu.
Cela aplikace je pak jen jeden exe. Kdyz chci na RichEdit dat obrazek neni
videt.
Existuje finta jak obrazek zviditelnit?
Pokud ne, je mozno zakompilovat help.hlp do souboru Aplikace.exe?
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Demo Scan v SYNAPSE
[*] Petr Potuzak <potuzacek(zv)volny(tec)cz> - 24.7.2004 00:44:13
Zdravim,
problem jsem si zpusobil jen a pouze tim, ze pouzivam Delphi3, ktere
neumi setlength pro pole, ale jen pro retezce a tudiz pravdu ma OndraG.
, ted jiz to vim !!!
Pro Pave Gazda: predpokladal jsem odpoved od lidi, kteri maji zdrojak
pred sebou a tak jsem napsal jenom vycuc. Na zacatku si pole deklarujes
pro nejaky pocet pocitacu
a tim padem i definujes pocet spoustenych threadu, takhle jsem pochopil
zdrojak a myslim, ze dobre. Z rozdilu zadanych adres se zjisti pocet
skutecne
spustenych threadu a proto si delku pole zmenis na aktualni potrebnou
velikost
tesne pred vlastnim cyklem pingu na jednotlive adresy ze zadaneho
rozsahu.
Podivej se na demo lepe.
Pro Milana Tomese: pouzivam Delphi 3 a demo jsem
nemenil, to nastaveni setlength tam skutecne takhle je.
Asi se opravdu pocita s vyssi verzi Delphi, ackoliv Lukas
Gebauer tvrdi, ze SYNAPSE podporuje i Delphi3.
Dobra, jak to tedy v Delphi3 obejit? Ukol pro Lukase Gebauera :-)
Dekuju, Petr.Demo Scan v SYNAPSE
[*] Petr Potuzak <potuzacek(zv)volny(tec)cz> - 24.7.2004 00:38:12
Zdravim,
problem jsem si zpusobil jen a pouze tim, ze pouzivam Delphi3, ktere
neumi setlength pro pole, ale jen pro retezce a tudiz pravdu ma OndraG.
, ted jiz to vim !!!
Pro Pave Gazda: predpokladal jsem odpoved od lidi, kteri maji zdrojak
pred sebou a tak jsem napsal jenom vycuc. Na zacatku si pole deklarujes
pro nejaky pocet pocitacu
a tim padem i definujes pocet spoustenych threadu, takhle jsem pochopil
zdrojak a myslim, ze dobre. Z rozdilu zadanych adres se zjisti pocet
skutecne
spustenych threadu a proto si delku pole zmenis na aktualni potrebnou
velikost
tesne pred vlastnim cyklem pingu na jednotlive adresy ze zadaneho
rozsahu.
Podivej se na demo lepe.
Pro Milana Tomese: pouzivam Delphi 3 a demo jsem
nemenil, to nastaveni setlength tam skutecne takhle je.
Asi se opravdu pocita s vyssi verzi Delphi, ackoliv Lukas
Gebauer tvrdi, ze SYNAPSE podporuje i Delphi3.
Dobra, jak to tedy v Delphi3 obejit? Ukol pro Lukase Gebauera :-)
Dekuju, Petr.
Obrazek v RichEditu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 23.7.2004 23:32:05
Zdravim
Pokud chci k jednoduche aplikaci dat mini napovedu pridam Form na nej
RichEdit a do nej napisi strucnou napovedu.
Cela aplikace je pak jen jeden exe. Kdyz chci na RichEdit dat obrazek neni
videt.
Existuje finta jak obrazek zviditelnit?
Pokud ne, je mozno zakompilovat help.hlp do souboru Aplikace.exe?
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Jak zapisovat do HKLM i HKCU?
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 23.7.2004 20:35:46
> odesle ho nekam mailem se subjektem REPORT0001 a
> dalsi MUSI byt REPORT0002 at to poslal ketrykoliv user.
Korektni zpusob reseni tohoto problemu muze byt napriklad ten, ze
zadny user nic neposila, jen to nekam u sebe pripravi. A pak kdesi na
pozadi bezi servis (systemovy, s pristupem do vysilacich oblasti
uzivatelu), ktery ceka na 'MultipleObject' a pripravena data zpracuje.
Pak by tu tisic lidi nemuselo preskakovat zpravy o HKLM.Jak zapisovat do HKLM i HKCU?
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 23.7.2004 18:03:34
Zdravim,
uz me to nebavi, kazdy mame jiny nazor na vec a neshodneme se, takze nema cenu
to dal resit. Posledni strucne odpovedi.
On 23 Jul 2004 at 17:39, Ludek ZITA wrote:> Registr je normalni stromova struktura stejne jako adresare. System prav
> je navrzen prave proto, aby byl vyuzivan.
> Tvuj argument je opet z rise "mne se to nejak nelibi"
Ano, nelibi se mi to, a to nejen me (ale i jinym lidem, a to nejen v teto konferenci).
Pokud mame (jako firma) nejak nastavenu bezpecnostni politiku a opravneni,
nebudeme pokud mozno pouzivat programy, ktere tu politiku porusuji. A muzu te
ujistit, ze vsechny nami pouzivane programy teto politice vyhovuji.
> No pokud je to proste spolecna hodnota tak je to spolecna hodnota a
> useri ji proste meni.
> To je jako nebezpecny kazdy program, kde useri sdileji nejaka data ????
Pokud je nejak umozneno menit ta data kazdemu uzivateli mimo ten program bez
jakychkoliv omezeni, pak je potencionalne nebezpecny.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)Jak zapisovat do HKLM i HKCU?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.7.2004 17:39:30
On Behalf Of Pavel Zichovsky
> > > Je to poruseni standardni bezpecnostni politiky, a proto je
> > > to bezpecnostni problem.
> > > Je uplne jedno, ze treba v pripade tveho programu "o nic nejde".
> >
> > Standardni bezpecnostni politika zustava nezmenena.
> > Ja nezpristupnuji userum zadny existujici klic v HKLM.
>
> Zpristupnujes userum nejaky klic v HKLM. Je jedno, ze je to
> nove vytvoreny. Je to
> klic v HKLM a tam (podle nasi bezpecnostni politiky) nemaji
> useri mit pravo zapisu.
> Tvuj program toto pravidlo porusuje.
Registr je normalni stromova struktura stejne jako adresare. System prav
je navrzen prave proto, aby byl vyuzivan.
Tvuj argument je opet z rise "mne se to nejak nelibi"
> > Porad opakujes - "kdyz bude v Tvem programu chyba". Ano ja , ty ,
> > kdokoliv muze udelat v programu chybu, spatne si alokovat misto pro
> > promennou apod. ale pak JE UPLNE JEDNO jestli ta promenna je v
> > HKLM/xxx nebo v databazi. S mistem kam data
> ukladam/nacitam to VUEC
> > NESOUVISI.
>
> Ale souvisi! Pisu to porad dokola, ale asi to nectes. Kdyz
> umisteni hodnoty bude pro
> kazdeho usera, tak pokud tu hodnotu upravi "bokem", ovlivni
> jen sam sebe, ale kdyz
> ta hodnota bude spolecna, ovlivni VSECHNY uzivatele!
No pokud je to proste spolecna hodnota tak je to spolecna hodnota a
useri ji proste meni.
To je jako nebezpecny kazdy program, kde useri sdileji nejaka data ????
> Pokud je ta hodnota treba v DB, muzes pristup do te DB omezit
> treba heslem, ktere
> nebude mimo aplikaci znamo. DB taky uz sama o sobe nepovoli
> ulozit hodnotu,
> ktera je mimo ocekavany rozsah (coz v registru ani v INI neudelas).
Zjistit heslo k databazi, ktere je ulozeno v programu je jen o male
nesnadnejsi nez najit jeden klic v HKLM.
Navic se opet se odvolavas na jinou chybu kterou muzu a nemusim udelat a
nezavisi vubec na umisteni.
>
> > Viz vyse. Vse co popisujes je naprosto nezavisle na umisteni te
> > hodnoty a muze k tomu dojit i kdyz ta hodnota bude v Tebou
> > doporucovane databazi.
>
> Viz vyse, kdyz bude mit moznost ovlivnit hodnotu mimo program
> kazdy user, ovlivni
> tak vsechny uzivatele, a to je spatne. Jde o to, aby tvuj
> system byl navrzen tak, aby
> jeden uzivatel nemohl umyslne ovlivnit (omezit) cinnost
> ostatnich uzivatelu.
No pokud je to proste spolecna hodnota tak je to spolecna hodnota a
useri ji proste meni.
> > Opet se budu opakovat - vynech chyby meho programu ktere
> mohou nastat
> > at bude hodnota ulozena kdekoliv a dej alespon jeden konkretni
> > argument proc je zpristupneni hodnoty v
> > HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy
> > "user" pro zapis muze ohrozit system W2K
>
> Toto opakujes porad dokola, dostanes odpoved, ptas se zas. Na
> bezpecnost se
> musis (jako administrator) divat komplexne a uvazovat (krome
> spousty jinych veci)
> prave i ty mozne chyby v programu. Nemuzes vzit jen kousek
> "skladanky" (prava ke
> konkretnimu klici) a z toho vyvodit celek (bezpecnost se
> nezmeni). To bys mohl stejne rict, ze kdyz vynechas moznost,
> ze jeden z uzivatelu bude
> "parchant", tak muzou mit klidne vsichni admin prava a system
> to neohrozi. Je to
> pravda, ale sam snad vidis, ze spolehat na to, ze nikdo neni
> "parchant" nemuzes.
>
Stale jsi nenasel jediny argument k tomu ze pokud v HKLM vytvorim nejaky
klic a zpristupnim jej pro zapis userum tak ohrozim system.
Porad dokola uvazujes az nasledne chyby a z nich teprve vyvozujes tuto
pricinu.
Ludek
Jak zapisovat do HKLM i HKCU?
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 23.7.2004 17:03:26
Zdravim,
On 23 Jul 2004 at 15:59, Ludek ZITA wrote:
> > Je to poruseni standardni bezpecnostni politiky, a proto je
> > to bezpecnostni problem.
> > Je uplne jedno, ze treba v pripade tveho programu "o nic nejde".
>
> Standardni bezpecnostni politika zustava nezmenena.
> Ja nezpristupnuji userum zadny existujici klic v HKLM.
Zpristupnujes userum nejaky klic v HKLM. Je jedno, ze je to nove vytvoreny. Je to
klic v HKLM a tam (podle nasi bezpecnostni politiky) nemaji useri mit pravo zapisu.
Tvuj program toto pravidlo porusuje.
> Porad opakujes - "kdyz bude v Tvem programu chyba". Ano ja , ty ,
> kdokoliv muze udelat v programu chybu, spatne si alokovat misto pro
> promennou apod. ale pak JE UPLNE JEDNO jestli ta promenna je v HKLM/xxx
> nebo v databazi. S mistem kam data ukladam/nacitam to VUEC NESOUVISI.
Ale souvisi! Pisu to porad dokola, ale asi to nectes. Kdyz umisteni hodnoty bude pro
kazdeho usera, tak pokud tu hodnotu upravi "bokem", ovlivni jen sam sebe, ale kdyz
ta hodnota bude spolecna, ovlivni VSECHNY uzivatele!
Pokud je ta hodnota treba v DB, muzes pristup do te DB omezit treba heslem, ktere
nebude mimo aplikaci znamo. DB taky uz sama o sobe nepovoli ulozit hodnotu,
ktera je mimo ocekavany rozsah (coz v registru ani v INI neudelas).
> Viz vyse. Vse co popisujes je naprosto nezavisle na umisteni te hodnoty
> a muze k tomu dojit i kdyz ta hodnota bude v Tebou doporucovane
> databazi.
Viz vyse, kdyz bude mit moznost ovlivnit hodnotu mimo program kazdy user, ovlivni
tak vsechny uzivatele, a to je spatne. Jde o to, aby tvuj system byl navrzen tak, aby
jeden uzivatel nemohl umyslne ovlivnit (omezit) cinnost ostatnich uzivatelu.
> Opet se budu opakovat - vynech chyby meho programu ktere mohou nastat at
> bude hodnota ulozena kdekoliv a dej alespon jeden konkretni argument
> proc je zpristupneni hodnoty v
> HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy "user"
> pro zapis muze ohrozit system W2K
Toto opakujes porad dokola, dostanes odpoved, ptas se zas. Na bezpecnost se
musis (jako administrator) divat komplexne a uvazovat (krome spousty jinych veci)
prave i ty mozne chyby v programu. Nemuzes vzit jen kousek "skladanky" (prava ke
konkretnimu klici) a z toho vyvodit celek (bezpecnost se nezmeni).
To bys mohl stejne rict, ze kdyz vynechas moznost, ze jeden z uzivatelu bude
"parchant", tak muzou mit klidne vsichni admin prava a system to neohrozi. Je to
pravda, ale sam snad vidis, ze spolehat na to, ze nikdo neni "parchant" nemuzes.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)Jak zapisovat do HKLM i HKCU?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.7.2004 16:23:23
On Behalf Of Ludek Finstrle
> > Opet se budu opakovat - vynech chyby meho programu ktere
> mohou nastat
> > at bude hodnota ulozena kdekoliv a dej alespon jeden konkretni
> > argument proc je zpristupneni hodnoty v
> > HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy
> > "user" pro zapis muze ohrozit system W2K
>
> Coz takhle zaplneni veskereho mista v registrech/disku.
Ahoj.
No to je ovsem zcela jednoznacne mozne i zapisem do HKCU....
Ludek
Jak zapisovat do HKLM i HKCU?
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 23.7.2004 16:11:21
> Opet se budu opakovat - vynech chyby meho programu ktere mohou nastat at
> bude hodnota ulozena kdekoliv a dej alespon jeden konkretni argument
> proc je zpristupneni hodnoty v
> HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy "user"
> pro zapis muze ohrozit system W2K
Coz takhle zaplneni veskereho mista v registrech/disku.
Luf
Jak zapisovat do HKLM i HKCU?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.7.2004 15:59:20
On Behalf Of Pavel Zichovsky
>
> Zdravim,
>
> On 22 Jul 2004 at 23:52, Ludek ZITA wrote:
>
> > Ano, ovsem to co rikas automaticky predpoklada, ze to zpristupneni
> > jedne jedine vetve/hodnoty v HKLM je bezpecnostni problem a to tady
> > zatim nikdo nevysvetlil proc (krom argumentu typu "mne se
> to nelibi")
>
> Je to poruseni standardni bezpecnostni politiky, a proto je
> to bezpecnostni problem.
> Je uplne jedno, ze treba v pripade tveho programu "o nic nejde".
Standardni bezpecnostni politika zustava nezmenena.
Ja nezpristupnuji userum zadny existujici klic v HKLM.
> > Ja hledam ohrozeni systemu nebo jinych aplikaci a tohle s
> tim nema co
> > delat. Chybu a diru si tam muzu napsat at pouziju cokoliv.
>
> No prave, a jakou ma admin jistotu, ze v tom tvem programu
> takova chyba neni?
> Vem si, kolik ruznych buffer overflow a podobnych chyb je
> (bylo) treba v MSIE.
> Zarucis se zakaznikovi, ze v tvem programu neni zadna chyba,
> a pokud je, tak ze
> uhradis veskere skody z toho vznikle? Asi ne, ze? Takze
> zakaznik se musi co nejvic
> zabezpecit sam.
Porad opakujes - "kdyz bude v Tvem programu chyba". Ano ja , ty ,
kdokoliv muze udelat v programu chybu, spatne si alokovat misto pro
promennou apod. ale pak JE UPLNE JEDNO jestli ta promenna je v HKLM/xxx
nebo v databazi. S mistem kam data ukladam/nacitam to VUEC NESOUVISI.
> > Prosim vysvetli jak muze jakykoliv zapis do
> > HKLM/Software/ludek/plmail/common/last_report zblbnout
> system tak aby
> > admin neco nechtene spustil. Ale pochopitelne ne tak ze tam
> bude ode
> > mne naprogramovane
> > ShellExec(HodnotaPrectenaZtohoKlice)
>
> :-) a jakou mam jistotu, ze to v programu nemas? ;-)
> Bezpecnost je bohuzel hodne i
> o paranoie ;-)
> A to zblbnuti zalezi na programu. Napriklad ocekavas hodnotu
> typu integer (2B), v
> LastReport bude treba 28B, diky tomu, ze si v programu
> neosetris rozsah (necekas,
> ze by tu hodnotu nekdo upravoval bokem), tech 26B "pretece"
> pres 2B vyhrazene
> pro tu promenou a zpusobi to pad aplikace. Navic to muze
> pretect az do oblasti pro
> code a tak tech xB muze byt spusteno (jako operacni
> instrukce). A pokud tvuj
> program spusti admin, muze tech xB udelat cokoliv.
Viz vyse. Vse co popisujes je naprosto nezavisle na umisteni te hodnoty
a muze k tomu dojit i kdyz ta hodnota bude v Tebou doporucovane
databazi.
> > Ale to se podle mne skarede mylis, bezpecnost system v
> tomto pripade
> > byla ohrozena spatnym navrhem programu totiz ze nacital pluginy z
> > common uloziste a ne tim ze useri meli prava zapisu do nejakeho
> > adresare. Pokud
>
> Ne, i kdyby byly pluginy bokem, porad se dala podvrhnout
> soubor se zpravou, ktera
> vyuzila neopravenou buffer overflow chybu a mohla spustit
> jakykolvi operacni kod
> (viz vyse). Takze bezpecnostni problem byly prave ty
> nadstandardni prava v
> soucinosti s chybou programu (za ktere autori samozrejme
> nikdy neruci).
To je zase jina chyba a opet je zcela nezavisla na tom, zda budou udaje
( v tomto pripade zpravy) ulozene v userum pristupnem adresari nebo v
userum pristupne databazi, nebo jestli si budou ta data stahovat z
bezpecneho uloziste na mesici...
> > priklad, ale s x krat jsem musel z tohoto duvodu pouzit ini nekde v
> > C:\MojeData a prislo mi , ze registr by byl sikovnejsi, uz z toho
> > duvodu, ze (pokud vyloucim umysl) je to cislo v registru ponekud
> > bezpecnejsi pred BFU nez v tom INI.
>
> A problem je prave to, ze nemuzes vyloucit umysl. Spravne
> musis pocitat prave s
> tim umyslem, ze nekdo bude chtit tu aplikaci poskodit, a
> udelat to tak, aby to pokud
> mozno neslo. 100% zabezpecni samozrejme neexistuje.
> V tom tvem konkretnim pripade by mozna stalo za zvazeni, zda
> (v souladu s
> prijemcem reportu) nezmenit pravidla tak, aby cislo reportu
> bylo slozeno z cisla
> uzivatele a jeho poradoveho cisla. Jednoznacnost a radu tak
> budes mit zajistenu ;-)
No ja ale neumim ovlivnit pozadavky, to je zadani a soubor se v tomto
konkretnim pripade posila treti strane, ktera rozhodne nebude menit sve
zajete zvyky kvuli me malickosti.
Opet se budu opakovat - vynech chyby meho programu ktere mohou nastat at
bude hodnota ulozena kdekoliv a dej alespon jeden konkretni argument
proc je zpristupneni hodnoty v
HKLM/Software/ludek/plmail/common/last_report uzivatelum s pravy "user"
pro zapis muze ohrozit system W2K
Ludek
Jak zrychlit cteni IBOQuery
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 23.7.2004 15:43:18
> > >Taky by pomohlo nastavit Query.Unidirectional:=True;
> > Tam je rychlost stejna, nepozoroval jsem nejaky rozdil.
>
> Bude to podobne rychle jen do te doby, nez zacne swapovat na disk ...
Tak to jo to tam tedy nastavim :-) - potrebuji jen IBOQuery.Next.
> PS: co omezit maximalni nactene mnozstvi uz selectem a dat uzivateli
> vedet, ze nema vsechno, at si poupravi filtr ... ?
To by slo, ale uzivatel tam nastesti ma tlacitko 'storno'. Osobne si myslim,
ze je to o neco lepsi, nez upozornovaci dialog, uzivatel sam vidi co se deje
a pomuze si jestli se mu neco nezda (nemusi studovat podivnou neznamou
hlasku ;-), take tezko rict na kolik to omezit. Ale to uz jsou drobnosti.
A.
ESC sekvence
[*] david(zv)nj.hcv(tec)cz - 23.7.2004 15:15:15
Nevite nahodou nekdo jak nebo cim posilat na tiskarnu ESC sequence? Alespon na HP(pcl5) nap+AVk-.reset (27,69)....ESC a E.On mi to totiz vzdycky vezme jako znaky.......
****************************
David Go+AVk-ula, HCV group a.s.
Van+AQ0-urova 40,Nov+AP0- Ji+AQ0A7Q-n
www.nj.hcv(tec)cz/maddave/
www.hcv(tec)cz
Jak zrychlit cteni IBOQuery
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 23.7.2004 13:49:06
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> >Taky by pomohlo nastavit Query.Unidirectional:=True;
> Tam je rychlost stejna, nepozoroval jsem nejaky rozdil.
Bude to podobne rychle jen do te doby, nez zacne swapovat na disk ...
30000 * 1024 = cca 30MB a pokud se toto musi udrzovat v pameti ... (pri
vetsi sirce vety (nebo na app serveru s vice klienty) by to bylo
vyraznejsi...
Danik
PS: co omezit maximalni nactene mnozstvi uz selectem a dat uzivateli
vedet, ze nema vsechno, at si poupravi filtr ... ?Demo Scan v SYNAPSE
[*] OndraG <gebakonf(zv)centrum(tec)cz> - 23.7.2004 13:21:03
Pokud si dobre vzpominam, tak v Delphi3 jeste nebyly dynamicka pole, proto
D3 znaji SetLength pouze se stringem.....
To demo bylo asi psane ve vyssi verzi Delphi s vyuzitim dynamickych poli
OndraG
----- Original Message -----
From: "Petr" <potuzacek(zv)volny(tec)cz>
> nemohu rozebehnout demo SCAN v Synapse.
> Hlasi mi to chybu Incompatible type : 'Array' and 'String'
> pri volani procedur Setlength. Misto parametru Ping a ThreadArray
> by mel asi byt parametr typu string ? Nebo co je spatne?
> Zkousim to na Delphi3.
>
> Dekuju za opravu,
Petr.Jak zrychlit cteni IBOQuery
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 23.7.2004 12:51:00
> > misto FieldByName pouzij Field[n].
> > je to radove rychlejsi. pokud neznas dopredu poradi poli, lze si je
> > dohledat treba tkhle:
> >
> etc.
>
No mam to ted tak udelane, je to o neco rychlejsi, radove sice ne, ale co
uz, nejaky prinos to byl.
>Taky by pomohlo nastavit Query.Unidirectional:=True;
Tam je rychlost stejna, nepozoroval jsem nejaky rozdil.
Dekuji vsem za rady a namety
Jak zrychlit cteni IBOQuery
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 23.7.2004 12:40:59
> ahoj,
>
> a co filter ?
> proc nacitat 30000 polozek ?
> co zkusit misto Listview - VirtualTreeView
>
Protoze uzivatel si pocvaka co chce videt, ale nevi kolik toho bude. Stane
se klidne, ze mu to vyhodi 100000 zaznamu, tedy do te doby, nez se nauci
pouzivat filtry, ktere ma k dispozici. Ale treba 10-15000 zaznamu jeste neni
tak moc pokud se pak hleda v razenem seznamu, a proste se tolik nekdy
zobrazi a ja to chci urychlit, protoze rychlost mam rad ;-)
VirtualTreeView je bezva a ma skvele featury, ale me tady staci LV ve
virtualnim rezimu, navic s VTV jsem mozna delal nejakou chybu, ale mel-li
jsem napr tech 100000 root nodu a 6 sloupcu (tabulka), tak VTV byl opravdu
"lightning fast" jak se pise na webu, ale jen do te doby, nez jsem
nescrolloval moc dolu. Cim niz tim pomaleji to jelo, uplne dole to bylo
proste nesnesitelne. Inicializace nodu byla proste pomala.
A.Kontextove menu TWebBrowser
[*] tondrej(zv)t-online.de - 23.7.2004 11:12:49
> jak vytvorit vlastni kontextove menu pro TWebBrowser? Aby to nenabizelo to,
> co tam mam MSIE....
implementovanim interfacu IDocHostUIHandler.
Priklad najdes tu, je to komponenta TEmbeddedWB, mozes ju aj priamo
pouzit: http://www.euromind.com/iedelphi/embeddedwb/onshowcontextmenu.htm
HTH
TOndrej
OT: Konference on-line
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 23.7.2004 10:52:47
na www.delphi(tec)cz byla tato (predpokladam:) konference on-line, nevi nekdo,
kam se podela?
Brona
Kontextove menu TWebBrowser
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 23.7.2004 10:50:46
jak vytvorit vlastni kontextove menu pro TWebBrowser? Aby to nenabizelo to,
co tam mam MSIE....
Brona
Jak zapisovat do HKLM i HKCU?
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 23.7.2004 10:30:43
Zdravim,
On 22 Jul 2004 at 23:52, Ludek ZITA wrote:
> Ano, ovsem to co rikas automaticky predpoklada, ze to zpristupneni jedne
> jedine vetve/hodnoty v HKLM je bezpecnostni problem a to tady zatim
> nikdo nevysvetlil proc (krom argumentu typu "mne se to nelibi")
Je to poruseni standardni bezpecnostni politiky, a proto je to bezpecnostni problem.
Je uplne jedno, ze treba v pripade tveho programu "o nic nejde".
> OK tak dam to do navodu a upozornim hlaskou, ze tyto prava instalak
> nastavuje.
Jo, pokud na to bude Admin pri instalaci predem upozornen, je to OK, muze se
rozhodnout, jestli ten soft za to stoji ;-)
A uplne idealni by bylo, kdyby bylo napsano, jaka prava, proc, pro koho a kam
program potrebuje (ne jen, ze dojde k nastaveni nejakych prav). Pak se to da
zapracovat do bezpenostnich politik (ruzne group user politiky apod.) a nebude
hrozit ztrata tech prav pri nejake proverce.
> No zalezi asi hodne na uzivatel a jeho schopnostech, chapu ze BFU otevre
> ini a porejpe se v nem, ale ze by si otevrel regedit a hezky si nasel
> ten jeden jedinej klic ???!!!!
Pokud bude nekdo chcti schvalne ten soft nabourat, nebude to BFU, ale nekdo
alespon trochu znaly, kteremu ty registry problem cinit nebudou ;-)
Mimochodem, divil by ses, co dokazou BFU provest s registry podle ruznych
"navodu na vylepseni systemu" co najdou na internetu.... Jeste ze na NT/2k/XP
nemaji prava k HKLM ;-)
> Ovsem protoze jsem programator ja nech prosim tuhle cast bezpecnosti na
> mne. Proti tomu se muzu branit treba tim, ze budu udaj kodovat a pro
> dekodovani poznam zda bylo zmeneno. A urcite to jde i lepe, ale o tohle
> nejde. Kazda app je jina, a vyzaduje jinou bezpecnost. Konec koncu ani
> databaze nejsou 100% nenapadnutelne.
Ano, zabezpeceni je na tobe, ale admin ciloveho systemu musi vedet, jestli to mas
zabezpeceno, aby ty prava nesly zneuzit. Debata uz myslim taky odbocila od
nejakeho konkretniho programu k obecnym principum.
> Ja hledam ohrozeni systemu nebo jinych aplikaci a tohle s tim nema co
> delat. Chybu a diru si tam muzu napsat at pouziju cokoliv.
No prave, a jakou ma admin jistotu, ze v tom tvem programu takova chyba neni?
Vem si, kolik ruznych buffer overflow a podobnych chyb je (bylo) treba v MSIE.
Zarucis se zakaznikovi, ze v tvem programu neni zadna chyba, a pokud je, tak ze
uhradis veskere skody z toho vznikle? Asi ne, ze? Takze zakaznik se musi co nejvic
zabezpecit sam.
> > Ne, neni to jedno. Opet - "zly" user muze (diky tomu, ze ma k
> > tomu klici prava
> > zapisu) podvrhnout neco "skaredeho", co se pak spusti
> > adminovi (bez jeho bedomi). Co a jak konkretne vzdy zalezi na
> > aplikaci, jak je napsana, odolna proti podobnym utokum apod.
>
> Prosim vysvetli jak muze jakykoliv zapis do
> HKLM/Software/ludek/plmail/common/last_report zblbnout system tak aby
> admin neco nechtene spustil.
> Ale pochopitelne ne tak ze tam bude ode mne naprogramovane
> ShellExec(HodnotaPrectenaZtohoKlice)
:-) a jakou mam jistotu, ze to v programu nemas? ;-) Bezpecnost je bohuzel hodne i
o paranoie ;-)
A to zblbnuti zalezi na programu. Napriklad ocekavas hodnotu typu integer (2B), v
LastReport bude treba 28B, diky tomu, ze si v programu neosetris rozsah (necekas,
ze by tu hodnotu nekdo upravoval bokem), tech 26B "pretece" pres 2B vyhrazene
pro tu promenou a zpusobi to pad aplikace. Navic to muze pretect az do oblasti pro
code a tak tech xB muze byt spusteno (jako operacni instrukce). A pokud tvuj
program spusti admin, muze tech xB udelat cokoliv.
> > Napr. konkretne Pegasus Mail. Pro "nativni" dorucovani posty
> > v siti musel mit kazdy uzivatel pravo zapisu v mailboxu vsech
> > ostatnich uzivatelu (aby do nej mohl ulozit soubor s novou
> > postou) - coz je analogie pristupu vsech useru na jedno
>
> Ale to se podle mne skarede mylis, bezpecnost system v tomto pripade
> byla ohrozena spatnym navrhem programu totiz ze nacital pluginy z common
> uloziste a ne tim ze useri meli prava zapisu do nejakeho adresare. Pokud
Ne, i kdyby byly pluginy bokem, porad se dala podvrhnout soubor se zpravou, ktera
vyuzila neopravenou buffer overflow chybu a mohla spustit jakykolvi operacni kod
(viz vyse). Takze bezpecnostni problem byly prave ty nadstandardni prava v
soucinosti s chybou programu (za ktere autori samozrejme nikdy neruci).
> priklad, ale s x krat jsem musel z tohoto duvodu pouzit ini nekde v
> C:\MojeData a prislo mi , ze registr by byl sikovnejsi, uz z toho
> duvodu, ze (pokud vyloucim umysl) je to cislo v registru ponekud
> bezpecnejsi pred BFU nez v tom INI.
A problem je prave to, ze nemuzes vyloucit umysl. Spravne musis pocitat prave s
tim umyslem, ze nekdo bude chtit tu aplikaci poskodit, a udelat to tak, aby to pokud
mozno neslo. 100% zabezpecni samozrejme neexistuje.
V tom tvem konkretnim pripade by mozna stalo za zvazeni, zda (v souladu s
prijemcem reportu) nezmenit pravidla tak, aby cislo reportu bylo slozeno z cisla
uzivatele a jeho poradoveho cisla. Jednoznacnost a radu tak budes mit zajistenu ;-)
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)A pouzivat registry vubec? WAS: Jak zapisovat do H
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.7.2004 10:14:41
On Thursday, July 22, 2004 6:36 PM [CET], Petr Vones
<konference(zv)petrvones.net> wrote:
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
>> Cili neni pravdive tvrzeni, ze konfigurace aplikace v registru se
>> spatne zalohuje. Samozrejme predpokladem je, ze nastaveni neni
>> rozlezle po ruznych vetvich registru
>
> Coz prave vetsinou je. Navic lze ten export automazitovat tak aby
slo
> provest zalohu dat ?
neni problem napsat programek, ktery probehne prislusnou cast registru
a ulozi jej cely do zalohy - pokud uz je potreba delat nejake
periodicke automaticke zalohy.
Nechtel jsem obhajovat registr jako takovy - pouze jsem chtel
upozornit na to, ze za jistych okolnosti (casto u aplikaci zrejme
splnenych ci splnitelnych ) je zalohovani ci prenaseni nastaveni
stejne snadne (a mozna i jednodussi) nez kopirovani souboru s cfg).
D. Toman
A pouzivat registry vubec?
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 23.7.2004 09:46:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Malinsky
> Sent: Friday, July 23, 2004 8:55 AM
>
> > Proboha, no tak zapisu jejich konfiguraci na jejich lokal
> nekam, kde
> > maji pravo zapisu. V cem je problem?
>
> :) Samozrejme ze neni problem. Takze INI nebo registr na
> lokale - tak to taky delam. Tim sem myslel to, ze kdyz
> uzivatel preseda z PC na PC a nema zapis k instalaci na
> serveru, tak tyto informace ukladam docasne na lokale tam kde
> zrovna sedi a pri ukoncovani aplikace to nasypu do DB odkud
> si to zase pri prihlaseni odjinud natahne na aktualni lokal...
Hm. Zde je treba rozlisit dva druhy nastaveni. Jedny jsou skutecne ciste
uzivatelske, napriklad klavesove zkratky, jine jsou jeste k tomu HW zavisle,
napriklad poloha formulare na obrazovce. V pripade prebihani mezi pocitaci
maji vyznam jen ty prvni udaje, a ty klidne mohu zaznamenat do databaze, a
nemusim je nikam prenaset. Proste odtamtud se ctou, a tam se ukladaji. Zadny
ini, xml, a tim spis registry k tomu nepotrebuju.
Pak zde mohou byt inicializacni informace. Ty se zpravidla nastavi jednou na
zacatku, a startujici aplikace z nich bere informace pro svuj start a beh.
Tyto informace by v registrech nemely vubec byt, podstatne vyhodnejsi
umisteni je v konfiguraku, zpravidla v adresari aplikace. Podle okolnosti by
se to dalo umistit i v databazi.
At to beru z jake chci strany, tak s vyjimkou informaci o nainstalovanerm
programu z duvodu jeho standardni odinstalace nebo globalni viditelnosti
nevidim duvod, proc cokoliv jineho zanaset do registru. Nenapada me jina
situace, ktera by si vyzadovala registry.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
A pouzivat registry vubec? WAS: Jak zapisovat do H
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 23.7.2004 08:56:33
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Zahradnik
> Sent: Thursday, July 22, 2004 10:34 PM
>
> Ovsem v okamziku, kdy jdu s
> programem na trh a notabene do viceuzivatelskeho prostredi,
> musi ten program mit nejakou koncepci, musi byt robustni,
> musi byt blbuvzdorny a musi splnovat urcita kriteria.
Tyto podminky NIJAK nesouvisi s tim, kam zapisuju curbes uzivatelskych
nastaveni.
Doporuceni MS o zapisu kdejakeho smeti do registru je stare a dnes ho MS
postupne opousti. Urcite druhy informaci tam proste nepatri.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Demo Scan v SYNAPSE
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 23.7.2004 08:44:30
Ja som len zle pochopil povodny prispevok, kde som predpokladal, ze
Synapse ma nejake svoje SetLength. Myslel som to skor ako nie nenajdenie
procedury ale nenajdenie spravnej procedury. Zda sa vsak, ze som uplne
vedla :-)
> -----Original Message-----
>
> Pokud by ta chyba byla zpusobena nenalezenim procedury/funkce, tak by
> chybova hlaska vypadala nejak takto: Undefined identifier setLength
:))))
> BTW setLength je deklarovan (v D7) v unite System, ktera je linkovana
> automaticky...