Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TurboPower konci ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2003 22:35:54
Komponenty prechazi do Open Source, vice na http://www.turbopower.com
Petr Vones
TurboPower konci ...
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 7.1.2003 22:45:54
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 07, 2003 10:35 PM
Subject: TurboPower konci ...> Komponenty prechazi do Open Source, vice na http://www.turbopower.com
>
> Petr Vones
>
Zrovna jsem chtel koupit Sleuth QA Suite. Dobre ze jsem par dnu pockal.
Radim
TurboPower konci ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2003 22:49:59
From: "Radim Kunz" <privat(zv)casestudio.com>
> Zrovna jsem chtel koupit Sleuth QA Suite. Dobre ze jsem par dnu pockal.
Nastroje asi hned zadarmo nebudou, viz jejich FAQ:
Q: You mention the open sourcing of component libraries, what about other
products like Sleuth QA Suite, Memory Sleuth and ProActivate?
A: Non-library products will not be open sourced. We are currently pursuing
other options for these products, and will make announcements regarding their
disposition when more information becomes available. If you are interested in
aquiring one or more of these products (and are capable/qualified to do so)
please contact us.
Petr Vones
TurboPower konci ...
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 7.1.2003 22:54:17
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 07, 2003 10:49 PM
Subject: Re: TurboPower konci ...> From: "Radim Kunz" <privat(zv)casestudio.com>
> > Zrovna jsem chtel koupit Sleuth QA Suite. Dobre ze jsem par dnu pockal.
>
> Nastroje asi hned zadarmo nebudou, viz jejich FAQ:
>
> Q: You mention the open sourcing of component libraries, what about other
> products like Sleuth QA Suite, Memory Sleuth and ProActivate?
>
> A: Non-library products will not be open sourced. We are currently
pursuing
> other options for these products, and will make announcements regarding
their
> disposition when more information becomes available. If you are interested
in
> aquiring one or more of these products (and are capable/qualified to do
so)
> please contact us.
>
> Petr Vones
>
Podstatne je, ze budoucnost je nejista.
Radim
TurboPower konci ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2003 22:56:28
From: "Radim Kunz" <privat(zv)casestudio.com>
> Podstatne je, ze budoucnost je nejista.
To bude zalezet na tom, kdo to koupi.
Petr Vones
Systemovy Charset v XP
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 8.1.2003 07:10:05
Lze ve Win XP nejak zjistit konkretne pouzivany systemovy CharSet? Ve =
Win 98 pouzivam nize uvedeny kod, takovej workaround (z archivu teto =
konference), ktery spolehlive v CZ Windows vraci 238 =
(EASTEUROPE_CHARSET). V ceskych XP uz ale vraci 1 (DEFAULT_CHARSET), coz =
tipuju vraci asi ve vsech lokalizacich.
function GetUsedCharSet: Byte;
var lf: tagNONCLIENTMETRICS;
begin
Result:=3D 0;
FillChar(lf, SizeOf(lf), 0);
lf.cbSize:=3D SizeOf(lf);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, lf.cbSize, (zv)lf, 0)
then Result:=3D TFontCharset(lf.lfCaptionFont.lfCharSet);
end;
S diky, Ober
NERO API
[*] Dalibor <dalibor(zv)torola(tec)cz> - 08.1.2003 07:20:12
Ahoj, nezkouseli jste nekdo pracovat s NERO API?
Nemate nejake examply pro DELPHI?
Dekuji
OT: Kamen�ci v XP
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 8.1.2003 07:41:21
Nevite nekdo, jak programove prepnout klavesnici v DOSu ve WinXP na
americkou (cp473). Prikaz keyb jiz chybi a prikaz chcp sice dela pekla s
videem, ale kasle na klavesnici. Zatim jediny zpusob prepinani pomoci
Ctrl+Alt+F1 sice funguje, ale zakaznik chce vic. Diky za kazdou radu.
S pozdravem Vaclav Riha
TurboPower konci ...
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 08.1.2003 08:26:11
Fungovali tak dlouho, ze to ve mne vzbuzuje pochyby o budoucnosti
Delphi.
Petr Vones wrote:
>
> Komponenty prechazi do Open Source, vice na http://www.turbopower.com
>
> Petr Vones
--
______________________________________________________
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
______________________________________________________
Rotace obrazku
[*] <little_bobes(zv)centrum(tec)cz> - 8.1.2003 08:56:32
Zdravim,
mam nekolik stejne velkych obrazku a potrebuji je rolovat stejne, jako
funguji valce u vyhernich automatu.
Bohuzel zatim nemam zkusenosti s castym pouzivanim Canvas, Draw, TRect, ...
takze si s tim nevim rady.
Delal jste nekdo neco podobneho nebo existuji nekde nejake komponenty?
Diky Bob
(D4 c/s)
Jak zaheslovat pr�stup k MS SQL
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 8.1.2003 09:01:23
Ahoj,
predem ohlasuji ze MS SQL srv moc neznam.=20
Mam na nem postavenej jeden programek v nasi firme - vse funguje OK, =
akorat ze pro prihlaseni staci zadat spravne uzivatelske jmeno. Heslo to =
vubec neoveruje, at ho zadam nebo ne je to nastejno.
Na MS SQLsrv mam nastaveny overovani podle win a SQL srv bezi primo na =
domain serveru nasi site.=20
V pohode muzu urcovat uzivatele ktery se tam dostanou, ale proc to kasle =
na hesla ?
Diky Tymi
NERO API
[*] tondrej(zv)t-online.de (TOndrej) - 8.1.2003 09:04:07
> Ahoj, nezkouseli jste nekdo pracovat s NERO API?
> Nemate nejake examply pro DELPHI?
V Delphi sa to neda pouzit, pouzivaju tam C++ triedy.
HTH
TOndrej
Jak zaheslovat pr�stup k MS SQL
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 8.1.2003 09:05:38
Ahoj, zkus nastavit na SQL serveru autentikaci ne pres Win autentikaci, =
ale
primo na SQL server ( zda se mi to bezpecnejsi).
Martin=20
> -----Original Message-----
> From: Jaroslav Koh=E1k [mailto:jaroslav.kohak(zv)dites(tec)cz]
> Subject: Jak zaheslovat pr=EDstup k MS SQL
>=20
>=20
> Ahoj,
> predem ohlasuji ze MS SQL srv moc neznam.=20
> Mam na nem postavenej jeden programek v nasi firme - vse=20
> funguje OK, akorat ze pro prihlaseni staci zadat spravne=20
> uzivatelske jmeno. Heslo to vubec neoveruje, at ho zadam nebo=20
> ne je to nastejno.
> Na MS SQLsrv mam nastaveny overovani podle win a SQL srv bezi=20
> primo na domain serveru nasi site.=20
> V pohode muzu urcovat uzivatele ktery se tam dostanou, ale=20
> proc to kasle na hesla ?
>=20
> Diky Tymi
>=20
Jak zaheslovat pr�stup k MS SQL
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 8.1.2003 09:23:56
Prave proto, ze mas nastavene overovani podle win (windows authentication=
).
Pri tomto nastaveni se o overeni uzivatele stara windows. To znamena, ze
pokud zna uzivatel heslo do domeny, pak je overen i pro praci s SQL. Pak =
uz
jen zalezi na pravech daneho uzivatele. Ma to jednu velkou vyhodu - nemus=
is
mit dve databaze uzivatelu (domena + SQL), ale staci pouze jedna (domena).
Pro uzivatele je vyhodne, ze si namisto dvou hesel musi pamatovat jen jed=
no.
Ahoj, Jarda
----- Original Message -----
From: "Jaroslav Koh=E1k" <jaroslav.kohak(zv)dites(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 9:01 AM
Subject: Jak zaheslovat pr=EDstup k MS SQL
Ahoj,
predem ohlasuji ze MS SQL srv moc neznam.
Mam na nem postavenej jeden programek v nasi firme - vse funguje OK, akor=
at
ze pro prihlaseni staci zadat spravne uzivatelske jmeno. Heslo to vubec
neoveruje, at ho zadam nebo ne je to nastejno.
Na MS SQLsrv mam nastaveny overovani podle win a SQL srv bezi primo na
domain serveru nasi site.
V pohode muzu urcovat uzivatele ktery se tam dostanou, ale proc to kasle =
na
hesla ?
Diky Tymi
Jak zaheslovat pr�stup k MS SQL
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 8.1.2003 09:32:36
No jo, jenze ten clovek se prihlasi do domeny na svuj ucet (treba login: =
lojza psw:abcd), ale pri spousteni aplikace muze zadat treba name uplne =
jineho uzivatele a pracovat v jeho datech aniz by znal jeho heslo. To =
nejde nejak nastavit, aby logovani k aplikaci vyzadovalo i heslo =
zadaneho uzivatele?
Tymi
-----Original Message-----
From: Jaroslav Bucek [mailto:bucek(zv)eskon(tec)cz]
Sent: Wednesday, January 08, 2003 9:24 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Jak zaheslovat pr=EDstup k MS SQL
Prave proto, ze mas nastavene overovani podle win (windows =
authentication).
Pri tomto nastaveni se o overeni uzivatele stara windows. To znamena, ze
pokud zna uzivatel heslo do domeny, pak je overen i pro praci s SQL. Pak =
uz
jen zalezi na pravech daneho uzivatele. Ma to jednu velkou vyhodu - =
nemusis
mit dve databaze uzivatelu (domena + SQL), ale staci pouze jedna =
(domena).
Pro uzivatele je vyhodne, ze si namisto dvou hesel musi pamatovat jen =
jedno.
Ahoj, Jarda
----- Original Message -----
From: "Jaroslav Koh=E1k" <jaroslav.kohak(zv)dites(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 9:01 AM
Subject: Jak zaheslovat pr=EDstup k MS SQL
Ahoj,
predem ohlasuji ze MS SQL srv moc neznam.
Mam na nem postavenej jeden programek v nasi firme - vse funguje OK, =
akorat
ze pro prihlaseni staci zadat spravne uzivatelske jmeno. Heslo to vubec
neoveruje, at ho zadam nebo ne je to nastejno.
Na MS SQLsrv mam nastaveny overovani podle win a SQL srv bezi primo na
domain serveru nasi site.
V pohode muzu urcovat uzivatele ktery se tam dostanou, ale proc to kasle =
na
hesla ?
Diky Tymi
Jak zaheslovat pr�stup k MS SQL
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 8.1.2003 09:52:45
Pokud vim, tak pri windows authentication to nechce zadne uzivatelske jme=
no.
Toto jmeno by se melo prevzit z Windows a pokud by ses chtel prihlasit do
SQL pod jinym uzivatelem, tak se musis prihlasit timto uzivatelem do wind=
ows
(domeny)
Jarda
----- Original Message -----
From: "Jaroslav Koh=E1k" <jaroslav.kohak(zv)dites(tec)cz>
Subject: RE: Jak zaheslovat pr=EDstup k MS SQL
No jo, jenze ten clovek se prihlasi do domeny na svuj ucet (treba login:
lojza psw:abcd), ale pri spousteni aplikace muze zadat treba name uplne
jineho uzivatele a pracovat v jeho datech aniz by znal jeho heslo. To nej=
de
nejak nastavit, aby logovani k aplikaci vyzadovalo i heslo zadaneho
uzivatele?
Tymi
Jak zaheslovat pr�stup k MS SQL
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 8.1.2003 10:14:21
Ja to povazuji za vyhodu. Nemusim se prihlasovat do kazde aplikace
/ databaze extra. Prihlasim se do Windows a tim je overeno, kdo u te
klavesnice sedi. A pokud se chci vzdalit, tak Ctrl+Alt+Del -
Uzamknout pocitac - a je vystarano.
Daniel
----- Original Message -----
From: "Jaroslav Koh�k" <jaroslav.kohak(zv)dites(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 9:32 AM
Subject: RE: Jak zaheslovat pr�stup k MS SQL
No jo, jenze ten clovek se prihlasi do domeny na svuj ucet (treba login:
lojza psw:abcd), ale pri spousteni aplikace muze zadat treba name uplne
jineho uzivatele a pracovat v jeho datech aniz by znal jeho heslo. To nejde
nejak nastavit, aby logovani k aplikaci vyzadovalo i heslo zadaneho
uzivatele?
Tymi
Kompilace souboru Helpu a WinXP
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 8.1.2003 10:16:57
Zdravim
resime problem s cestinou v helpu. Po kompilaci se v helpovem okne objevuji
spatne znaky s diakritikou r,e,c,u,n. Rejstrik je ale v poradku.
Operacni system je Win XP HomEd. CZ, help je psan ve Wordu 97 nebo 2000
(efekt
stejny) fontem Arial a kompilovan v HCW ver.4.03.002. V HCW je nastaven
CHARSET = DEFAULT,
mistni nastaveni ve Win klasicky.
Nevite nekdo, co s tim?
Diky
Delphi 6 pro UPD2, W2K pro SP3
Jaroslav KUBA
Tresoft s.r.o
jarda(zv)tresoft(tec)cz
+420724/091592
Jak zaheslovat pristup k MS SQL
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 8.1.2003 10:36:32
> From: Jaroslav Koh=E1k Sent: Wednesday, January 08, 2003 9:33 AM
> No jo, jenze ten clovek se prihlasi do domeny na svuj ucet=20
> (treba login: lojza psw:abcd), ale pri spousteni aplikace=20
> muze zadat treba name uplne jineho uzivatele a pracovat v=20
> jeho datech aniz by znal jeho heslo. To nejde nejak nastavit,=20
> aby logovani k aplikaci vyzadovalo i heslo zadaneho uzivatele?
> Tymi
Nastav si na sql mixed mode autentizaci, to znamena, ze ti uzivatele =
autentizuji windozy, nebo pokud chces, tak to bude brat tvoje uzivatele =
z sql. Tuhle volbu treba muzes dat do prihlasovaciho dialogu aplikace a =
podle toho menit connection string.
Radim
nulovani autoincrement
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.1.2003 10:48:44
> Odesilatel: Petr Marik <rtepema(zv)mbox.vol(tec)cz>
> Potrebuji po vyprazdneni tabulky prikazem emtytable vynulovat hodnotu
> polozky autoincrement pred naplnenim prikazem batchmove. tabulka DB -
> lokalni paradox 7.=20
Pokud ja vim, tak to "normalne" nejde.
Nastesti jsem to nikdy nepotreboval delat programove.
Delam to pres Database Desktop tak, ze zmenim typ na Integer a pak =
zpatky na AutoIncrement. AutoIncrement pak zacne fungovat od Max(id), =
ktera v tabulce jsou.
A pokud je mi znamo, tak Database Desktop pri restrukturalizaci tabulky =
proste vytvori tabulku novou, do ktere prekopiruje stara data. Takze =
programove by se to asi melo delat obdobne. Navic, ty mas v danem =
okamziku tabulku prazdnou...
> Po provedeni batchmove se hodnoty polozky s
> autoincrementem porad zvetsuji a nesouhlasi s hodnotami z tabulky, z =
ktere
> exportuji data. Tabulka nema definovana persistentni pole. Lze nejak =
ten
> autoincrement znasilnit ?
Nevim, ale pokud maji (klicove?) hodnoty souhlasit, pak tam =
autoincrement asi vubec nepatri.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TurboPower konci ...
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.1.2003 10:49:45
> Odes=EDlatel: Karel Kral <kralkonf(zv)purus(tec)cz>
> Fungovali tak dlouho, ze to ve mne vzbuzuje pochyby o budoucnosti
> Delphi.
Borland CZ vysvetluje svoji neucast na seminari "Delphi 2003" mimo jine =
takto:
> Odesilatel: RKubat(zv)borland(tec)cz
> Datum: 7. ledna 2003 15:37
> Az bude .NET Builder a Delphi 8 "na spadnuti", jiste o tom zase
> udelame zvlastni radu technickych seminaru po republice
:-)
Takze soudim, ze i bez Borlandu bude na seminari o cem mluvit.
Dnes prihlaseno 77 ucastniku (+10 prednasejicich).
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TWebBrowser a ENTER
[*] <tomino(zv)army.sk> - 8.1.2003 10:54:23
Dobry den
Vedel by mi prosim Vas niekto poradit s nasledujucim problemom:
V aplikacii mam komponentu Exploreru (TWebBrowser). Na web stranke ktoru
otvorim v aplikacii mam klasicky html formular.
Do viacriadkoveho textoveho pola (tzv. textarea) na html stranke potrebujem
napisat par riadkov, ale nefunguje v nom ENTER klavesa.
Vsetky ostatne funguju, ale ENTER nie.Vie mi niekto poradit kde je problem ?
Netreba nadstavit neaku vlastnost
komponenty TWebBrowser ? Tak isto klavesa ESCAPE funguje nestandartne -
zmaze cely text ktory som
napisal do textoveho pola. Zrejem si komponneta TWebBrowsera tieto dve
klavesy vysvetluje po svojom. Co
sa da s tym spravit ? Vdaka za kazdu radu. (D5Ent,WinNT4.0 SP6,IE5.5)
S pozdravom
Martin Jurkovic
MetaFileCanvas - nejde mi nastavit spravne velikos
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 8.1.2003 11:24:27
Cau lidi,
mam problem pri kresleni do MetaFilu:
1)
na hlavnim formu mam Panel, podle jehoz velikosti nastavim velikost
MEtafilu, ale kdy ze pak na ten soubor podivam treba v ACDSEE, tak sirka je
asi 1/2 a vyska asi 3/4 jaka by mela byt. Coz je samozrejme zdeformovany.
2) me neni jasny, proc se musi nejdriv MetaCanvas uvolnit a pak az dat
MetaFile.SaveTo.. Pac kdyz se to platno uvolni az po zapisu do Souboru, tak
se do nej nic nezapise
Dik Pavel
------- cut here - - --------------------------------
var MetaFile: TMEtaFile;
MFCanvas:TMetaFileCanvas;
procedure ClearCanvas(mCanvas:TMetaFileCanvas;aR:TRect);
begin
with mCanvas do
begin
Brush.Style:= bsSolid;
FillRect(R);
end;
end;
begin
MetaFile:= TMetaFile.Create;
MFCanvas:= TMetaFileCanvas.Create(MetaFile,0);
try
with MFCanvas do
begin
MetaFile.Width:= Panel1.Width;
MetaFile.Height:= Panel1.Height;
R:= Rect(0,0,MetaFile.Width,MetaFile.Height);
Brush.Color:= Panel1.Color; // budem mazat barvou panel1
ClearCanvas(MFCanvas,R); //vymazeme platno
Pen.Color:= clBlack;
Pen.Style:= psSolid;
Pen.Width:= 1;
InflateRect(R,-5,-5); // namaluj obrysovy obdelnik
Rectangle(R);
end;
finally
MFCanvas.Free;
MetaFile.SaveToFile(dlgSave.FileName);
MetaFile.Free;
end;
end;
Kompilace souboru Helpu a WinXP
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 8.1.2003 12:15:05
Mas ten Arial opravdu Stredoevropsky? Pripadne se mi stavalo (mel jsem
stejny
problem pri kompilaci do .CHM) ze nebyl nstaven jazyk primo v helpu.
Da se jeste kompilovat z HTML a tam zase je problem se znakovou sadou
stranky.
MI'RA
-----Original Message-----
From: Jaroslav Kuba [mailto:jarda(zv)tresoft(tec)cz]
Sent: Wednesday, January 08, 2003 10:17 AM
To: Delphi konference
Subject: Kompilace souboru Helpu a WinXP
Zdravim
resime problem s cestinou v helpu. Po kompilaci se v helpovem okne objevuji
spatne znaky s diakritikou r,e,c,u,n. Rejstrik je ale v poradku.
Operacni system je Win XP HomEd. CZ, help je psan ve Wordu 97 nebo 2000
(efekt
stejny) fontem Arial a kompilovan v HCW ver.4.03.002. V HCW je nastaven
CHARSET = DEFAULT,
mistni nastaveni ve Win klasicky.
Nevite nekdo, co s tim?
Diky
Delphi 6 pro UPD2, W2K pro SP3
Jaroslav KUBA
Tresoft s.r.o
jarda(zv)tresoft(tec)cz
+420724/091592
Uvolnovani class a interface
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 8.1.2003 12:19:21
Ahoj,
mam dotaz k nasledujicimu:
1) mam tridu:
TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
...
2) mam proceduru:
procedure ...
var
P:TParser;
begin
P:=TParser.create(nil);
...
FreeAndNil(P);
end;
3) mam problem:
Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
Kernel32.dll),
na Win2000/XP to funguje.
Takze muj dotaz zni: Staci mi pouze udelat P:=nil; (nebo taky vubec nic),
aby se uvolnila pamet pro interface(y) i TComponent?
A nebo: Jak spravne uvolnit takovy objekt pro Win95/98 i Win2000/XP
Roman
TurboPower konci ...
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 08.1.2003 12:20:31
Puvodni zprava, kterou napsal Jan Sebel=EDk dne 8 Jan 2003:
> Borland CZ vysvetluje svoji neucast na seminari "Delphi 2003" mimo jine
> takto:
>
> > Az bude .NET Builder a Delphi 8 "na spadnuti", jiste o tom zase
> > udelame zvlastni radu technickych seminaru po republice
:-) Kam nikdo asi neprijde :-)
> Takze soudim, ze i bez Borlandu bude na seminari o cem mluvit.
Jo, uz znas dalsi moje tema :-)
S pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Jak zaheslovat pr�stup k MS SQL
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 8.1.2003 13:29:00
Cau Jaroslav,
Wednesday, January 8, 2003, 9:01:23 AM, you wrote:
> Ahoj,
> predem ohlasuji ze MS SQL srv moc neznam.
> Mam na nem postavenej jeden programek v nasi firme - vse funguje OK, akorat ze pro prihlaseni staci zadat spravne uzivatelske jmeno. Heslo to vubec neoveruje, at ho zadam nebo ne je to nastejno.
> Na MS SQLsrv mam nastaveny overovani podle win a SQL srv bezi primo na domain serveru nasi site.
> V pohode muzu urcovat uzivatele ktery se tam dostanou, ale proc to kasle na hesla ?
NO v podstate staci aby jsi tam nastavil kombinovanou formu
autentifikace. A pak staci pridat jenom v administraci mssql serveru
jednotlive uzivatele. A budou tam mit pristup pouze uzivatele kteri
tam maji ucet. Tvuj problem muze byt spusoben tim ze mas asi v MSSQL
serveru vytvoreneho usera BUILTIN\Administrators a to znamena ze na
server maji pristpup vsichni kdo jsou nebo alespon neco maji castecne
spolecneho s administraci.> Diky Tymi
S pozdravem
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Uvolnovani class a interface
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.1.2003 13:43:21
> Odes=EDlatel: Roman Macura <delphi(zv)atlascon(tec)cz>
> TParser=3Dclass(TComponent, IUnknown, IVBSAXXMLReader)
> Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
Ja nevim, ale kdyz implementujes IUnknown,=20
pak asi implementujes sam _AddRef, _Release, QueryInterface.
Neni chyba nekde tam?
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TurboPower konci ...
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.1.2003 13:50:44
> Odes=EDlatel: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
> Puvodni zprava, kterou napsal Jan Sebel=EDk dne 8 Jan 2003:
> > Borland CZ vysvetluje svoji neucast na seminari "Delphi 2003" mimo =
jine
> > takto:
> >=20
> > > Az bude .NET Builder a Delphi 8 "na spadnuti", jiste o tom zase
> > > udelame zvlastni radu technickych seminaru po republice
=20
> Jo, uz znas dalsi moje tema :-)
Jeste posli osnovu...
Poslal bych ti to na soukromy mail, ale mozna se nekdo pripoji, o cem by =
se jeste mohlo mluvit...
Delam ted uz na konkretnim casovem programu seminare.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TurboPower konci ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2003 14:18:41
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> Fungovali tak dlouho, ze to ve mne vzbuzuje pochyby o budoucnosti
> Delphi.
Tady se to bude urcite probirat donekonecna ;-)
http://groups.google.com/groups?hl=en&selm=3e1b487b%40newsgroups.borland.com
Samozrejme neni asi tajemstvim, ze Delphi komponenty nejsou zadny velky byznys
a vlastnik Turbo Power ma zajimavejsi aktivity v oblasti herniho prumyslu, viz
http://www.aristocrat.com.au
Petr Vones
Jak zaheslovat pr�stup k MS SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 8.1.2003 14:25:31
Ahoj,
pokud pouzivas WINNT autentizaci, SQL server si prihlasovaciho (loginname=
)
jmena nijak nevsima !
Pristup se autentizuje proti domain, zkusi se zda k domain prihlaseny
uzivatel (tj. BEZICI POCITAC !)
ma pristup k SQL serveru (jeho zdrojum, ... ), zadne dalsi heslo se
nevyzaduje ani se nic nekotroluje.
Pokud chces, aby se uzivatele museli prihlasovat a autentizovat k SQL
serveru, je treba zmenit mod na
mix a zmenit v connection stringu autentizaci na SQL. Doplnit jednotlive
uzivatele do logins,=20
potom bude serverem overena dvojice LoginName a password.=20
Z hlediska spravy to moc nedoporucuji, pokud nekdo odejde pak pri WINT
autentizaci ho administrator vyhodi=20
z domain a je hotovo (jeho ucet sice stale zustava v MSSQL, ale nejde se =
na
nej prihlasit). Pokud pouzijes
autentizaci SQL, tak ho musis vyhodit jeste tam ( a nezapomenout na to).
Pavel
> From: Daniel Rott [mailto:roxton(zv)seznam(tec)cz]
> Ja to povazuji za vyhodu. Nemusim se prihlasovat do kazde aplikace
> / databaze extra. Prihlasim se do Windows a tim je overeno, kdo u te
> klavesnice sedi. A pokud se chci vzdalit, tak Ctrl+Alt+Del -
> Uzamknout pocitac - a je vystarano.
>=20
> Daniel
>=20
> From: "Jaroslav Koh=E1k" <jaroslav.kohak(zv)dites(tec)cz>
> No jo, jenze ten clovek se prihlasi do domeny na svuj ucet=20
> (treba login:
> lojza psw:abcd), ale pri spousteni aplikace muze zadat treba=20
> name uplne
> jineho uzivatele a pracovat v jeho datech aniz by znal jeho=20
> heslo. To nejde
> nejak nastavit, aby logovani k aplikaci vyzadovalo i heslo zadaneho
> uzivatele?
> Tymi
>=20
Komunikace Delphi <-> Matlab
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 8.1.2003 14:29:22
Ahoj!
Mam DLL vytvorenou v Matlabu a v ni je funkce, ktere predavam nejake
ciselne parametry a vysledkem te funkce je opet sada nekolika
cisel, ktere pak dal v mem programu napsanem v Delphi zpracovavam.
Nejsem schopen ale prijit na to, jak ty parametry predat do DLL a jak
precist vysledek. Ma nekdo s komunikaci Delphi - Matlab zkusenosti a
dokaze poradit. Maly priklad by byl uplne nejlepsi. :-)
Jirka.Uvolnovani class a interface
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 8.1.2003 14:37:51
----- Original Message -----
From: "Roman Macura" <delphi(zv)atlascon(tec)cz>
>
> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
S takovym pouzitim TComponent nemam zkusenosti,
ale obecne se musi interfacove objekty drzet za interface
takze nejak takto:
procedure ...
var
P: IVBSAXXMLReader;
begin
P:=TParser.create(nil) as IVBSAXXMLReader;
...
P := nil; // nebo taky vubec nic
end;
Martin Schayna
Uvolnovani class a interface
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 8.1.2003 14:52:26
----- Original Message -----
From: "Roman Macura" <delphi(zv)atlascon(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 12:19 PM
Subject: Uvolnovani class a interface
> Ahoj,
>
> mam dotaz k nasledujicimu:
>
> 1) mam tridu:
>
> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> ...
>
> 2) mam proceduru:
>
> procedure ...
> var
> P:TParser;
> begin
> P:=TParser.create(nil);
> ...
> FreeAndNil(P);
> end;
>
> 3) mam problem:
>
> Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
> Kernel32.dll),
> na Win2000/XP to funguje.
>
> Takze muj dotaz zni: Staci mi pouze udelat P:=nil; (nebo taky vubec nic),
> aby se uvolnila pamet pro interface(y) i TComponent?
> A nebo: Jak spravne uvolnit takovy objekt pro Win95/98 i Win2000/XP
>
>
> Roman
>
Trosku nechapu, k cemu tam mas deklarovane ty rozrani, kdyz je
nepouzivas. Spravny postup by mel byt nejak takto:
procedure ...
var
P:TParser;
x:IVBSAXXMLReader;
begin
P:=TParser.create(nil);
x := p as IVBSAXXMLReader;
...
x := nil;
end;
Radim
TurboPower konci ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2003 15:01:29
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Borland CZ vysvetluje svoji neucast na seminari "Delphi 2003" mimo jine
> takto:
> Odesilatel: RKubat(zv)borland(tec)cz
> Datum: 7. ledna 2003 15:37
> Az bude .NET Builder a Delphi 8 "na spadnuti", jiste o tom zase
> udelame zvlastni radu technickych seminaru po republice
No doufejme ze to bude jeste tenhle rok a bude to vyrazne lepsi nez typicka
'verze 1' predchozich produktu. Jinak se totiz opravdu muze stat to, co psal
Petr Zahradnik, ze tam uz skoro nikdo neprijde. Cas bezi ...
At to dopadne jakkoli, ucebnice jazyka C# by se rozhodne mela stat soucasti
knihovnicky kazdeho vyvojare v Delphi :-)
Petr Vones
Uvolnovani class a interface
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 8.1.2003 15:24:52
No a mas to IUnknown implementovany (a spravne). Jevi se mi jako lepsi de=
dit
v takovemto pripade od nejake delphi tridy, ktera uz ma implementaci
IUnknown vyresenu (napr. TComObject), pak opravdu staci prirazeni :=3D ni=
l,
nebo dojde ke zruseni po ukonceni metody.
O :-))
> -----P=F9vodn=ED zpr=E1va-----
> 1) mam tridu:
>
> TParser=3Dclass(TComponent, IUnknown, IVBSAXXMLReader)
> ...
>
> 2) mam proceduru:
>
> procedure ...
> var
> P:TParser;
> begin
> P:=3DTParser.create(nil);
> ...
> FreeAndNil(P);
> end;
>
> 3) mam problem:
>
> Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
> Kernel32.dll),
> na Win2000/XP to funguje.
>
> Takze muj dotaz zni: Staci mi pouze udelat P:=3Dnil; (nebo taky vubec n=
ic),
> aby se uvolnila pamet pro interface(y) i TComponent?
> A nebo: Jak spravne uvolnit takovy objekt pro Win95/98 i Win2000/XP
>
>
> Roman
Uvolnovani class a interface
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 8.1.2003 15:52:49
> 1) mam tridu:
>
> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> ...
>
> 2) mam proceduru:
>
> procedure ...
> var
> P:TParser;
> begin
> P:=TParser.create(nil);
> ...
> FreeAndNil(P);
> end;
Bolo by tiez vhodne pouzit try..finally, aby bola pamet uvolnena aj v
pripade vynimky.
> 3) mam problem:
>
> Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
> Kernel32.dll), na Win2000/XP to funguje.
Pravdepodobne sa jedna o nejaku chybu, ktora sa prejavi prave pri pokuse o
Free.
> Takze muj dotaz zni: Staci mi pouze udelat P:=nil; (nebo taky
> vubec nic), aby se uvolnila pamet pro interface(y) i TComponent?
To urcite nie. Pri praci s triedou musis uvolnit pamet. Free alebo
FreeAndNil je spravne.
var
P: TParser;
begin
P := TParser.Create;
try
...
finally
FreeAndNil(P);
end;
end;
Pri praci s interfacom to zavisi od toho, ako dany objekt implementuje
reference counting, cize IUknown/IInterface. Ak je reference counting
implementovane standardnym sposobom (tak ako je to v TInterfacedObject),
potom sa objekt zrusi pri klesnuti refcount na nulu. Nezavisle od toho,
objekt je zruseny automaticky pri priradeni nil alebo ked sa lokalna
premenna dostane out of scope (cize na konci procedury).
var
P: IVBSAXXMLReader;
begin
P := TParser.Create;
...
end;
Nemal by si vsak pouzivat naraz oba pristupy, (interface aj odkaz na
instanciu triedy), moze sa stat, ze instancia uz bola vdaka reference
counting uvolnena, teda odkaz je neplatny a pri pokuse o pristup k nejakej
metode/property nasleduje access violation.
HTH
TOndrej
parametry IE
[*] David Janko <djanko(zv)wizards(tec)cz> - 8.1.2003 16:24:17
Zdravim,
je mozne spustit IE s nejakymi parametry ktere by urcili jestli ma byt
zobrazen napr. toolbar, ram okna apod. ? Lze nekde ziskat popis parametru
ktere IE akceptuje ? Zkousel jsem napovedu IE, spustit ho s /? --help a
pod. ale nejak sem neuspel :(.
Mam pocit ze se tu neco takoveho nedavno resilo, ale v archivu jsem to
nenasel, takze se mozna mylim ...
Dekuji
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
FreeReport - Object Stretched
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 8.1.2003 16:26:55
Ahoj,
ve frReport mam formular faktury s objekty (rectangle object), kde zadny nema zacheckly (to je
hrozne slovo) Stretched.
Presto pri tisku nektere objekty tuto vlastnost evidentne maji aplikovanou.
Zkousel jsem nastavit flagy v
procedure TFormPrintFaZbozi.frReport1EnterRect(Memo: TStringList;
View: TfrView);
begin
View.Flags := 0; //View.Flags - flStretched;
end;
ale nepomaha to.
Muze mi nekdo poradit, co s tim,
W2000 SP1, D6P SP2, FastReport v2.3
dekuji,
Jarek Uher
parametry IE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2003 16:28:37
From: "David Janko" <djanko(zv)wizards(tec)cz>
> je mozne spustit IE s nejakymi parametry ktere by urcili jestli ma byt
> zobrazen napr. toolbar, ram okna apod. ? Lze nekde ziskat popis parametru
> ktere IE akceptuje ? Zkousel jsem napovedu IE, spustit ho s /? --help a
Podivej se v MSDN na popis IWebBrowser2. Priklad:
uses
SHDocVw;
var
IE: IWebBrowser2;
procedure TForm1.Button1Click(Sender: TObject);
var
URL: OleVariant;
begin
IE := CoInternetExplorer.Create;
URL := 'http://www.delphi(tec)cz';
IE.Visible := True;
IE.TheaterMode := True;
IE.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;
Petr Vones
Thread s navratovou hodnotou
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 8.1.2003 16:31:10
Zdravim delphiny,
potrebuju nasmerovat od zkusenejsich kolegu ...
Mam jedno formularovou aplikaci, ktera pri startu zjistuje nejake udaje a ty
pak nabidne kdalsimu zpracovani. To pocatecni nacteni nejakou chvili trva a
tak jsem se rozhodl ze na to pouziju Thread, protoze P.Vones pred
ProccessMessage varuje a ja chci, aby byl formular zivy (pohyblivy) a taky
se chci naucit neco noveho.
Takze, pred predelanim na Thread to fungovalo takhle: v OnShow se zavolal
PostMessage, ktery vyvolal proceduru pro zjisteni dat a predal je do
ListBoxu.
A predelal jsem to takto: v OnShow se zavola PostMessage, ktery vyvola
proceduru a ta spusti Thread (bez pozastaveni s automatickym uvolnenim),
ktery je napojen pres udalost OnTerminate na proceduru, ktera si sahne na
StringList vlastnost toho Threadu a z ni naplni ten ListBox a uvolni prvky
pro dalsi praci. Vypadalo to dobre, ale pri ukoncovani aplikace vznika
vyjimka AV :-(( (zkusil jsem ten StringList nevytvaret v threadu, ale
vytvorit ho v ramci formulare a predat v Create threadu, ale nepomohlo to)
Jak se to ma spravne delat ???
predem dekuji za jakoukoli radu
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
IC: 62026631 DIC: 273-62026631
Tel./fax: 465 321096, 465 322889, 465 324795
hotline: 465 324795
Mobil Eurotel: 724 185948; T-Mobile : 603 833124
www.hjsoft(tec)cz
ICQ: 47636291
OT: Funkcni klavesy na klavesnici Logitech
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 8.1.2003 17:00:27
Zdravim.
Jezisek mi prinesl krasnou novou klavesnici Logitech Internet Navigator
Keyboard, ktera me ovsem trapi jednou drobnosti.
Na klavesach F1-F12 ma dalsi rozsirujici funkce (undo, open, tento pocitac).
Kdyz chci, aby fungovaly klavesy F1-F12, musim si zapnout tzv. F-LOCK, ktery
funguje na principu caps locku - prepina mezi rozsirenou moznosti klaves a
klasickou funkci.
Toto je velmi otravna vec, protoze po kazdem spusteni pocitace musim
stisknout klavesu F-lock.
Nevite nekdo nejakou moznost, jak tuto toto implicitni nezapnuti zmenit?
V ovladacich klavesnice a utilitach k ni tato moznost neni, tak me napada
jen nejaka externi utilita nebo nejakou svoji naprogramovat, ktera by se po
startu windows spustila a "umele" F-Lock zmackla.
Da se nejak zjistit kod, co bych mel klavesnici poslat?
Prosim o nakopnuti.
Diky moc.
Thread s navratovou hodnotou
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 8.1.2003 17:08:40
A pouzivas v tom threadu pri plneni StringListu metodu Synchronize?
TStringList je objekt VCL, kterazto neni threadsafe. I kdyz je divne, =
ze by
to padalo az pri ukoncovani.=20
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
v OnShow se zavola PostMessage, ktery vyvola
proceduru a ta spusti Thread (bez pozastaveni s automatickym
uvolnenim),
ktery je napojen pres udalost OnTerminate na proceduru, ktera si
sahne na
StringList vlastnost toho Threadu a z ni naplni ten ListBox a uvolni
prvky
pro dalsi praci. Vypadalo to dobre, ale pri ukoncovani aplikace
vznika
vyjimka AV :-(( (zkusil jsem ten StringList nevytvaret v threadu,
ale
vytvorit ho v ramci formulare a predat v Create threadu, ale
nepomohlo to)
Jak se to ma spravne delat ???Thread s navratovou hodnotou
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2003 17:21:56
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> A pouzivas v tom threadu pri plneni StringListu metodu Synchronize?
> TStringList je objekt VCL, kterazto neni threadsafe. I kdyz je divne, ze by
TStringList je trida RTL, ne VCL komponenta. Problem bude spis nekde v
uvolnovani toho thread objektu. Odhaduji to treba na chybu, kdy je nastaveno u
toho threadu FreeOnTerminate na True a po te se volaji nejake jeho metody,
vcetne Free.
Petr Vones
Thread s navratovou hodnotou
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 8.1.2003 17:31:56
> TStringList je trida RTL, ne VCL komponenta. Problem bude spis nekde v
> uvolnovani toho thread objektu. Odhaduji to treba na chybu, kdy je
nastaveno u
> toho threadu FreeOnTerminate na True a po te se volaji nejake jeho metody,
> vcetne Free.
s tim threadem se pracuje jen v OnTerminate a zkusil jsem mit i
FreeOnTerminate na False a tady (OnTerminate) udelat Free (ale nedal jsem
tam nil) a chovani se nezmenilo
JPEG Image problem
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 8.1.2003 17:32:35
Ahojda konferaci, netusite, proc kod
procedure ScaleJPEG(FN:String);
var J : TJPEGImage;
begin
J:=TJPEGImage.Create;
try
J.LoadFromFile(FN);
J.CompressionQuality:=1;
J.SaveToFile(FN+'.jpeg');
finally
J.Free;
end;
end;
ac davam do J.CompressionQuality ruzna cisla vzdycky udela vysledny
obrazek stejne velky (datove) jako original??? Nechapu, co delam
spatne :-/
D6PE (vsechny updaty, co sem daval PVones), W98
--
Best regards,
Martin Pe�ava mailto:jimx(zv)volny(tec)cz
Thread s navratovou hodnotou
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 8.1.2003 17:49:26
> > TStringList je trida RTL, ne VCL komponenta. Problem bude spis nekde v
> > uvolnovani toho thread objektu. Odhaduji to treba na chybu, kdy je
> nastaveno u
> > toho threadu FreeOnTerminate na True a po te se volaji nejake jeho
metody,
> > vcetne Free.
>
> s tim threadem se pracuje jen v OnTerminate a zkusil jsem mit i
> FreeOnTerminate na False a tady (OnTerminate) udelat Free (ale nedal jsem
> tam nil) a chovani se nezmenilo
mozna je dulezite uvest i toto: pouzivam D4 Prof; pokud to pustim jako exe,
tak to AV nehlasi (jen z Delphi); pracuje se s daty pres BDE (protoze
potrebuju data z databazi ruznych typu)
Kamen�ci v XP
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 8.1.2003 18:36:19
> Nevite nekdo, jak programove prepnout klavesnici v DOSu ve WinXP na
> americkou (cp473). Prikaz keyb jiz chybi a prikaz chcp sice dela pekla s
kb16 US (nebo -US)
Martin Burle
nulovani autoincrement
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 8.1.2003 21:05:58
>Pokud ja vim, tak to "normalne" nejde.
>Nastesti jsem to nikdy nepotreboval delat programove.
>Nevim, ale pokud maji (klicove?) hodnoty souhlasit, pak tam autoincrement
asi vubec >nepatri.
>Honza
Diky za odpoved. S database Desktopem to delam podobne.
Chtel jsem jenom zabranit, aby pri pravidelnem exportu dat (po castech) z
centraly na lokalni pobocky (evidence osob jen pro cteni) se autoincrement
porad nezvysoval. Zjistil jsenm vsak mezitim, ze pokud pouziji v procedure
batchmove parametr batCopy, tak v nove tabulce autoincrement nastartuje od
nuly. (puvodne jsem tam mel batAppend, coz je pro prazdnou tabulku totez co
batCopy, jen ten autoincrement je jinak. Primarni klic jako autoincrement
tam mam proto, abych nemusel hlidat duplicitu v jinych klicich. Na fakticke
hodnote neni aplikace zavisla.
Zdravi
Petr marik
Cestina v IB
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 8.1.2003 22:59:03
Heeelp
potrebuju provest filtr v databazi nejak takhle
select * from Kmen_zamestnanci where Upper(Prijmeni) like Upper('�%')
DB je nastavena na Win1250 collate pxw_csy
Pokud dam do filtr male treba 'k' tak to najde zaznamy s velkym 'K', ale
pokud tam dam napr. '�' tak mi to zaznamy s velkym '�' nenajde
nevite nekdo co s tim?
Dik Petr
MetaFileCanvas - nejde mi nastavit spravne velikos
[*] Lauko Stefan <laukosw(zv)naex.sk> - 9.1.2003 00:11:28
Ahoj,
rozmer nastav este pred vytvorenim TMetafileCanvas:
MetaFile:= TMetaFile.Create;
MetaFile.Width:= Panel1.Width;
MetaFile.Height:= Panel1.Height;
Lauko.
----- Original Message -----
From: "Vagner Pavel" <Vagner(zv)ceps(tec)cz>
Sent: Wednesday, January 08, 2003 11:24 AM
> Cau lidi,
> mam problem pri kresleni do MetaFilu:
> 1)
> na hlavnim formu mam Panel, podle jehoz velikosti nastavim velikost
> MEtafilu, ale kdy ze pak na ten soubor podivam treba v ACDSEE, tak sirka
je
> asi 1/2 a vyska asi 3/4 jaka by mela byt. Coz je samozrejme zdeformovany.
Uprava obrazku prostrednictvom OleContainer-u
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 09.1.2003 00:32:18
LedovecCez OleContainer si vytvorim upravu obrazku z disku. Ako ho mam na
konci ulozit?
1) ked pouzijem TOleContainer.SaveToFile, obrazok sa ulozi do formatu
BDoc. Ako potom mam z toho vydolovat ten obrazok? Alebo je tam vobec?
2) Ako mam odchytit ukoncenie prace s upravou obrazoku?
Vdaka za kazdu radu.
--------------------------
Tisicky obrazkov na tlacitka a ikonky v Delphi!
www.martinkasman.sk - Sekcia programy zdarma, program Ikony!
Uvolnovani class a interface
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 9.1.2003 07:36:32
1) Neni to moje komponenta, ale prevzata TXMLParser od Per Lindse Larsena
(www.euromind.com/iedelphi),
ktera silne zjednodusuje pouziti protokolu SAX.
2) Ukazka kodu je zjednodusena ciste pro ilustraci, takze interface se tam
pouziva:-) a to v nasledujici forme:
TXMLParser = class(TComponent, IUnknown, IVBSAXXMLReader)
private
Reader:IVBSAXXMLReader;
...
...
constructor TXMLParser.create(AOwner:TComponent)
begin
Reader := CoSaxXMLReader30.Create;
...
end;
atd.
3) Tato komponenta skvele funguje a dobre se pouziva, ale na Win95/98 je
zjevne problem,
o kterem autor bud nevi, nebo je problem na strane Microsoftu. A proto
jsem dal dotaz na tuto konferenci.
Takze jeste nejake nakopnuti jak to predelat spravne, bez nutnosti
predelavat celou komponentu?
----- Original Message -----
From: "Radim Kunz" <privat(zv)casestudio.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 2:52 PM
Subject: Re: Uvolnovani class a interface
>
> ----- Original Message -----
> From: "Roman Macura" <delphi(zv)atlascon(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, January 08, 2003 12:19 PM
> Subject: Uvolnovani class a interface
>
>
> > Ahoj,
> >
> > mam dotaz k nasledujicimu:
> >
> > 1) mam tridu:
> >
> > TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> > ...
> >
> > 2) mam proceduru:
> >
> > procedure ...
> > var
> > P:TParser;
> > begin
> > P:=TParser.create(nil);
> > ...
> > FreeAndNil(P);
> > end;
> >
> > 3) mam problem:
> >
> > Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
> > Kernel32.dll),
> > na Win2000/XP to funguje.
> >
> > Takze muj dotaz zni: Staci mi pouze udelat P:=nil; (nebo taky vubec
nic),
> > aby se uvolnila pamet pro interface(y) i TComponent?
> > A nebo: Jak spravne uvolnit takovy objekt pro Win95/98 i Win2000/XP
> >
> >
> > Roman
> >
>
> Trosku nechapu, k cemu tam mas deklarovane ty rozrani, kdyz je
> nepouzivas. Spravny postup by mel byt nejak takto:
>
> procedure ...
> var
> P:TParser;
> x:IVBSAXXMLReader;
> begin
> P:=TParser.create(nil);
> x := p as IVBSAXXMLReader;
> ...
>
> x := nil;
> end;
>
> Radim
>
>
>
>
>
>
Cestina v IB
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 9.1.2003 07:46:30
Zkus tohle:
select * from Kmen_zamestnanci where Upper(Prijmeni) like Upper('�%' COLLATE
PXW_CSY)
HTH
Milan Tomes
> potrebuju provest filtr v databazi nejak takhle
> select * from Kmen_zamestnanci where Upper(Prijmeni) like Upper('�%')
> Dik Petr
P.S.: V archivu konference to bylo pred nejakymi 2-mi mesici...
Cestina v IB
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 09.1.2003 08:11:07
> select * from Kmen_zamestnanci where Upper(Prijmeni) like Upper('=B9%')
>
Viz archviv.
1) Nektera z funkci, ted nevim jestli STARTING WITH nebo
CONTAINING nerozlisuje mala/velka. Muzes zvazit, zda to
nemuzes pouzit misto LIKE
2) Za LIKE uz nedavat upper, ale velky retezec vyrobit na klientovi
pomoci AnsiUpperCase. Nevim ale, zda to bude korektne fungovat i
na anglickych Windows.
3) Pokud =B9% nepredavas na SQL server ve forme parametru,
pomuze i toto:
...like upper(=B9% collate pxw_csy)
Tohle funguje spolehlive, ale ne v pripade, kdy to =B9% predavas
parametrem, pak to kdoviproc nejde.
Musis sam zvazit, co je pro Tebe schudne.
David Lebeda
Thread s navratovou hodnotou
[*] Paly <paly(zv)sct.sk> - 9.1.2003 08:33:24
Podobny problem som mal aj v D6 prof ze ked som uvolnoval
v udalosti OnTerminate tak nastala vynimka, vyriesil som to tak ze kod s
uvolnovanim pamate so dal na koniec procedury Execute.
Pavol Griga
Nacteni, ulozeni hodnot objektu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 09.1.2003 08:36:06
Muzete mi poradit jak otestovat, zda dany objekt ma property TEXT, pripadne jak ji
prectu, nebo nastavim.
Myslim obecne reseni.
Dekuji
Thread s navratovou hodnotou
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 09:23:01
> mozna je dulezite uvest i toto: pouzivam D4 Prof; pokud to
> pustim jako exe, tak to AV nehlasi (jen z Delphi); pracuje
> se s daty pres BDE (protoze potrebuju data z databazi
> ruznych typu)
Kazdy thread pracujuci s BDE musi mat zvlast session (TSession, TDatabase
vytvorene a pouzivane v kontexte toho threadu). Mozno v tom je problem.
HTH
TOndrej
ActionManager v D7
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 9.1.2003 09:31:55
Ahoj,
chtel bych se zeptat, zda nekdo mate vylozene
spatne zkusenosti s ActionManagerem v D7, protoze
bych ho rad pouzil v jednom projektu, ale pred casem
tu byly velke namitky proti ActionManageru v D6.
Jak je to v D7, chyby pretrvavaji ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
Spusteni service
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 9.1.2003 10:05:29
Mam vytvo�enou Nt service ktera s danou periodou dela nejakou akci.
Ted bych chtel aby tato akce se spustela v predem definovany cas.
Otazka zni da se k tomu vyuzit Sheduler v NT, ktery by tedy v predem
definouvanou dobu spustil proces bezici sluzby (nebo samotnou sluzbu a ta
byse po zpracovani sama ukoncila) ?
Je to vhodne reseni, "nebo nekudy jinudy" ?
Za odpoved diky
Marek Hradil
Rizeni po siti
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 9.1.2003 10:14:03
Ahoj,
pripravuji novou aplikaci, kde jde o to, �e externi HW zarizeni pripojene k
lokalni siti resp. pres lokalni sit k Internetu bude monitorovano/rizeno z
PC pripojeneho do stejne site resp. k Internetu. Protoze jsem doposud nic
takoveho nedelal, muzete mi doporucit vhodny prevodnik RS232<->Ethernet pro
toto zarizeni, pripadne vhodne komponenty pro Delphi? Pokud vite o nejakem
linku resicim tuto problematiku budu jen rad.
Dik. Jara
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Sidla Evropy
[*] Dalibor <dalibor(zv)torola(tec)cz> - 09.1.2003 11:25:27
Muzete mi nekdo poradit, kde bych sehnal sidla Evropy i se
zemepisnymi souradnicemi?
Dik
Rizeni po siti
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 9.1.2003 11:37:28
Ahoj,
pouzivame prevodniky Olympo (www.olympo(tec)cz),
sice mezi jinymi protokoly, ale v nabidce ma firma
i prevodniky ELTHERNET/RS232. Dle popisu jsou
velice podobne tem ktere pouzivame my.
Jsou sice relativne drahe, ale snadno se po siti
konfiguruji, k dispozici je OS podobny DOSu.
Programovat se daji i ve starym TP modelu 64k.
Zakladni funkcionalita:
1. vem znak co prisel z RS a posliho na IP adresu,
2. vse co prislo z ETHERNETU posli do RS,
je jiz primo vestavena.
Pavel Nacteni, ulozeni hodnot objektu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 09.1.2003 11:38:47
Muzete mi poradit jak otestovat, zda dany objekt ma property TEXT, pripadne jak ji
prectu, nebo nastavim.
Myslim obecne reseni.
Dekuji
Problem s komponentou Memo
[*] Lenka Don�tov� <lenkad(zv)nemocnice-vs(tec)cz> - 9.1.2003 11:54:47
Pouzivam komponentu memo pro editaci urciteho textu a po stisku urcite
kombinace klaves
dojde k vepsani nejakeho textu na pozici kurzoru.Problem spociva v tom ze
pokud vkladam text
dal nez se vejde na jednu obrazovku. po vlozeni se mi text zobrazi zase o=
d
zacatku, tj. scrollbar je
posunuty uplne nahore.Poradte mi nekdo prosim jak to mam udelat aby mi te=
xt
zustaval v memu zobrazen
stejne jako pred vkladanim.
Podotykam ze text vkladam tak ze manipuluji s vlastnost=ED Text.
Pouzivam D6
Dekuji za jakoukoli radu
Lenka
Firebird a data na CD
[*] Jan Graas <abyssinian(zv)centrum(tec)cz> - 09.1.2003 11:54:05
Orientacni dotaz:
je mozne, aby data v souboru pro databazi Firebird byla umistena na=20
CD-ROM a muzne je aplikaci prohlizet? Tedy muze byt GDB read only?
Jednalo by se jen o cteni a vlastni aplikace by byla normalne
na harddisku.
Diky.
Olda=20
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m in=
ternetu - sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
Spusteni service
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 9.1.2003 12:02:44
Pokud chces vyuzivat Scheduler, tak nepotrebujes mit svoji sluzbu,
staci spustit normalni proces - exe - (treba s parametry).
Pokud chces vyuzivat svoji sluzbu, tak do ni budes muset
doplnit nejaky timer, ktery bude spoustet Tvuj dany algoritmus.
V tom pripade, ale sluzba klasicky pobezi porad.
----- Original Message -----
From: "Marek Hradil" <marekhr(zv)benefitcz(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 09, 2003 10:05 AM
Subject: Spusteni service
>
> Mam vytvo�enou Nt service ktera s danou periodou dela nejakou akci.
> Ted bych chtel aby tato akce se spustela v predem definovany cas.
> Otazka zni da se k tomu vyuzit Sheduler v NT, ktery by tedy v predem
> definouvanou dobu spustil proces bezici sluzby (nebo samotnou sluzbu a ta
> byse po zpracovani sama ukoncila) ?
>
> Je to vhodne reseni, "nebo nekudy jinudy" ?
>
> Za odpoved diky
> Marek Hradil
>
>
Spusteni service
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 12:08:54
> Mam vytvo=F8enou Nt service ktera s danou periodou dela nejakou akci.
> Ted bych chtel aby tato akce se spustela v predem definovany cas.
> Otazka zni da se k tomu vyuzit Sheduler v NT, ktery by tedy v predem
> definouvanou dobu spustil proces bezici sluzby (nebo samotnou=20
> sluzbu a ta byse po zpracovani sama ukoncila) ?
Mozes si v Scheduleri nastavit napriklad prikaz 'sc start'. Alebo si =
mozes
napisat vlastny program, ktory Ti spusti Tvoj service, a pouzit ten.
Pripadne mozes ten service prepisat tak, aby bezal stale (ale vykonaval
nejake akcie len v stanoveny cas), ale to moze byt pre niektore ucely
zbytocny overhead.
> Je to vhodne reseni, "nebo nekudy jinudy" ?
To asi zavisi aj od toho, co je ucelom toho service. Unika mi dovod, =
preco
to mas napisane ako service, ked na spustenie chces pouzit scheduler =
(tiez
service). Mozno by stacil obycajny klasicky .exe program. Mozno =
potrebujes,
aby to bezalo pod System account, spustalo sa automaticky pri starte
systemu, prezilo logoff a podobne. Tazko povedat.
HTH
TOndrej
Rizeni po siti
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 09.1.2003 12:22:20
> pripravuji novou aplikaci, kde jde o to, =BEe externi HW zarizeni
> pripojene k lokalni siti resp. pres lokalni sit k Internetu bude
> monitorovano/rizeno z PC pripojeneho do stejne site resp. k Internetu.
> Protoze jsem doposud nic takoveho nedelal, muzete mi doporucit vhodny
> prevodnik RS232<->Ethernet pro toto zarizeni, pripadne vhodne
> komponenty pro Delphi? Pokud vite o nejakem linku resicim tuto
> problematiku budu jen rad.
Takovych prevodniku je spousta, a to v ruznych provedenich.. jedni
jej delaji jako modul k zbudovani, druzi jako externi krabicku, jako
modul do rozvadece... pro orientci v teto problematice doporucuji
treba www.hw(tec)cz :-)
Z pohledu tve aplikace pak komunikujes pomoci normalniho TCP/IP... k
tomu existuji hromady kodu... doporucil bych pochopitelne bud moji
Synapsi, nebo pokud chces komponenty, tak Indy.
Vlastni komunikace pak probiha obvykle pres TCP protokol. proste co
do toho TCP posles se ti posle do dratu.. a co prijde z dratu, tak ti
prijde pres to TCP spojeni. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Access violation pri uzavirani DELPHI
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 9.1.2003 12:40:06
Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi prosim
poradit kterym smerem zamerit patrani?
Dik
JK
D5-SP1,WXP
Uvolnovani class a interface
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 9.1.2003 12:45:55
Jak uz jsem odpovidal, ja nic neimplementuju, je to prevzata komponenta
a v ni rovnez zadna implementace _addref, _release, atd. neni.
Je to jen komponenta, ktera zjednodusuje programatorske pouziti interface.
Mozna, ze v definici class(TComponent, IUnknown, ...) vubec ty interface byt
nemusi
(viz. muj predchozi prispevek do teto diskuse), ale to je to, na co se ptam
:-)
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 08, 2003 1:43 PM
Subject: Re: Uvolnovani class a interface
> Odes�latel: Roman Macura <delphi(zv)atlascon(tec)cz>
> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> Na Win95 a Win98 nelze provest free tohoto objektu (chyba v
Ja nevim, ale kdyz implementujes IUnknown,
pak asi implementujes sam _AddRef, _Release, QueryInterface.
Neni chyba nekde tam?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================Uvolnovani class a interface
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 13:03:24
>> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> Ja nevim, ale kdyz implementujes IUnknown,
> pak asi implementujes sam _AddRef, _Release, QueryInterface.
Deklaracia
TMyClass = class(TMyAncestor, IMyInterface)
znamena, ze trieda TMyClass implementuje IMyInterface, ale neznamena to
automaticky, ze ich implementuje alebo reimplementuje na svojej urovni. Moze
to byt na urovni niektoreho predka (TMyAncestor atd.) a potom je castym
ucelom takejto deklaracie to, aby bola trieda TMyClass assignment compatible
voci premennym typu IMyInterface.
Je fakt, ze ak niekto uvadza IUnknown do zoznamu implementovanych
interfacov, velmi pravdepodobne ho aj reimplementuje (pretoze akakolvek
trieda implementujuca akykolvek interface automaticky musi implementovat
IUnknown, "the root of all evil", kompilator o tom vie a tym padom je taka
explicitna deklaracia z tohto hladiska zbytocna).
Ja sa len snazim upozornit, ze to tak nemusi byt a z toho kodu to nie je
jednoznacne jasne. Presnejsi popis je v helpe: "Interface references"
(Object Pascal Language Guide).
Ak teda povodny autor nereimplementuje IUnknown na urovni TParser, potom je
pouzita implementacia na urovni TComponent. Pre triedy, ktore nie su
potomkami TCOMObject to znamena, ze reference counting sa nepouziva; metody
_AddRef a _Release vracaju -1. Aby reference counting fungovalo spravne,
treba reimplementovat IUnknown rovnakym sposobom, ako je to urobene v
TInterfacedObject.
HTH
TOndrej
Rizeni po siti
[*] Jiri Zavada <Jiri.Zavada(zv)molnlycke(tec)net> - 9.1.2003 13:11:55
Ahoj,
nedavno jsem si delal podobny pruzkum, takze tady jsou zajimave alternativy=
, ktere jsem objevil:
http://www.papouch.com=20
http://www.moxa.com/product/nport/nport.htm
http://www.axis.com/products/cam_2490/
Jinak na=20
http://obchod.hw(tec)cz/hw/obchod/index.php3?short=3D0&cid=3D900014&HWShop_Ses=
sion=3Dfe2b88b680ae7cbbc8d8c2a2ae71432a
je k dispozici vyvojovy kit pro tvorbu vlastniho zarizeni s pouzitim jejich=
know-how pro komunikaci po Ethernetu.=20
Pokud ti ale postacuje zarizeni urcene pro seriovou komunikaci snadno a ryc=
hle osalit tak, aby si nevsimlo, ze seriova linka je prodlouzena pres TCP/I=
P mustek a nezalezi ti na nejake kacce, je pomerne spolehlive reseni od fy =
moxa nport server (uzivane pro vzdalene pripojeni tiskaren caroveho kodu ko=
munikujicich pres RS-232). Osvedcilo se zajistit komunikacni server pred ko=
lisanim napeti pomoci UPS.
HTH.
Jiri Zavada
Molnlycke Health Care Klinipro s.r.o.
mailto:jiri.zavada(zv)molnlycke.net
mailto:jzavada(zv)telecom(tec)cz
phone: ++420 597 017 777
mobile: ++420 724 260 117
=20
-----Original Message-----
From: Svehla Jaroslav [mailto:svehla(zv)spelza(tec)cz]
Sent: Thursday, January 09, 2003 10:14 AM
To: Konference Delphi
Subject: Rizeni po siti
Ahoj,
pripravuji novou aplikaci, kde jde o to, =BEe externi HW zarizeni pripojene=
k
lokalni siti resp. pres lokalni sit k Internetu bude monitorovano/rizeno z
PC pripojeneho do stejne site resp. k Internetu. Protoze jsem doposud nic
takoveho nedelal, muzete mi doporucit vhodny prevodnik RS232<->Ethernet pro
toto zarizeni, pripadne vhodne komponenty pro Delphi? Pokud vite o nejakem
linku resicim tuto problematiku budu jen rad.
Dik. Jara
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov=E1 b=E1ze: 235 - datum vyd=E1n=ED: 13.11.2002
Confidentiality Notice: This e-mail transmission may contain
confidential or legally privileged information intended only for the=20
individual or entity named in the e-mail address. If you are not the=20
intended recipient, you are hereby notified that any disclosure,=20
copying, distribution, or reliance upon the contents of this e-mail is=20
strictly prohibited. If you have received this e-mail transmission in=20
error, please reply to the sender, so that Molnlycke Health Care can=20
arrange for proper delivery, and please delete the message from your=20
inbox. Thank you.
Vysoke skoly, informatika, programovanie
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.1.2003 14:02:48
From: "K�ss, Pavel" <Pavel.Kaess(zv)trimondo.com>
> From: Jan Sebel�k [SMTP:honza(zv)haes(tec)cz]
>
> Ja jsem vystudoval MFF UK.
> Rozhodne me tam programovat nenaucili - uz proto, ze pocitace tenkrat
> (skoro) nebyly. Ucili jsme se Algol, Pascal, assembler jenom na papire.
>
[Pavel] Me uz jo. I kdyz jsem jim musel hodne pomoct, aby se jim to
povedlo :). Kdo nechodil sam do labu, u toho moc sanci nemeli.
Kdyz se porozhlednu mezi znamymi z mladsi generace, kde vsude posledni dobou
graduovali a promitnu to do mych 25 letych zkusenosti, tak bych to videl
takto:
- programovani je inzenyrska disciplina a tak bych jako zaklad volil skolu,
ktera inzenyrske vzdelani poskytuje, zrejme FEL Praha
- protoze podle mych letitych zkusenosti maji "elektrikari" tendenci
"tihnout k detailum" (u pocitacove profese bychom asi rekli "matlat
bitiky")
zkusil bych soucasne studovat FIS na VSE Praha, kde se dost
zameruji na vlastni SI tj.metodiky etc... a maji zasazeno
programovani do ekonomickeho ramce.
- a kdybych po tom vsem mel pocit, ze moje vzdelani je malo rigorozni,
tak bych pokracoval 3-letym doktorantskym studiem na MFF UK Praha
HTH, pf
Nacteni, ulozeni hodnot objektu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 14:09:26
> Muzete mi poradit jak otestovat, zda dany objekt ma property
> TEXT, pripadne jak ji prectu, nebo nastavim.
> Myslim obecne reseni.
Ak sa jedna o published property a kompilator pre danu triedu vygeneroval
RTTI (co je automaticke pre published vlastnosti potomkov TPersistent a pre
ine objekty sa dosiahnut pouzitim direktivy {$M+} alebo {$TYPEINFO ON}),
potom mozes pouzit unitu TypInfo: IsPublishedProp, GetStrProp, SetStrProp.
HTH
TOndrej
Uvolnovani class a interface
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 9.1.2003 14:16:12
> >> TParser=3Dclass(TComponent, IUnknown, IVBSAXXMLReader)
> > Honza Sebelik=20
> > Ja nevim, ale kdyz implementujes IUnknown,=20
> > pak asi implementujes sam _AddRef, _Release, QueryInterface.
> Odes=EDlatel: Ondrej Kelle <O.Kelle(zv)digitalpublishing.de>
> TMyClass =3D class(TMyAncestor, IMyInterface)
> znamena, ze trieda TMyClass implementuje IMyInterface, ale neznamena =
to
> automaticky, ze ich implementuje alebo reimplementuje na svojej =
urovni.=20
Jasne, ale implementuje TComponent interface IUnknown?
Alespon v Delphi 5 (D6 mam jen na ucebne) je hierarchie=20
TComponent < TPersistent < TObject a nic z toho IUnknown neimplementuje.
TParser by bylo treba odvodit alespon od TInterfacedObject, ktery je =
odvozen od TObject + implementuje IUnknown.
A vubec:
Ono to vypada spise tak, jak uz tady nekdo psal:
Sama komponenta by IVBSAXXMLReader implementovat asi nemela. Misto toho =
by si mela vytvorit "interni instanci" tohoto interface a ve svych =
metodach, properties se na tento interface odvolavat.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Problem s komponentou Memo
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 9.1.2003 14:23:38
> Odes=EDlatel: Lenka Don=E1tov=E1 <lenkad(zv)nemocnice-vs(tec)cz>
> Podotykam ze text vkladam tak ze manipuluji s vlastnost=ED Text.
Pokud vkladas text, mohla bys zkusit vlastnost SelText.
To ti vlozi text na pozici kurzoru (vlastnost SelStart).
Kam se ti ale pohne ScrollBar, to ti z hlavy nereknu.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Problem s komponentou Memo
> Datum: 9. ledna 2003 11:54
>=20
> Pouzivam komponentu memo pro editaci urciteho textu a po stisku =
urcite
> kombinace klaves
> dojde k vepsani nejakeho textu na pozici kurzoru.Problem spociva v tom =
ze
> pokud vkladam text
> dal nez se vejde na jednu obrazovku. po vlozeni se mi text zobrazi =
zase od
> zacatku, tj. scrollbar je
> posunuty uplne nahore.Poradte mi nekdo prosim jak to mam udelat aby mi =
text
> zustaval v memu zobrazen
> stejne jako pred vkladanim.
> Podotykam ze text vkladam tak ze manipuluji s vlastnost=ED Text.
>=20
> Pouzivam D6
>=20
> Dekuji za jakoukoli radu
> Lenka
>=20
> Access violation pri uzavirani DELPHI
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 9.1.2003 14:29:37
----- Original Message -----
From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 09, 2003 12:40 PM
Subject: Access violation pri uzavirani DELPHI
> Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
> VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
> jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi prosim
> poradit kterym smerem zamerit patrani?
> Dik
> JK
>
> D5-SP1,WXP
>
Me to delavalo, kdyz se jedna komponenta odkazovala na druhou komponentu
v jinem formulari, a onen formular nebyl pri uzavirani projektu otevreny.
Radim
Uvolnovani class a interface
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 14:38:09
> Jasne, ale implementuje TComponent interface IUnknown?
V Delphi 6 ano.
TOndrej
Uvolnovani class a interface
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 9.1.2003 14:56:15
>Ono to vypada spise tak, jak uz tady nekdo psal:
>Sama komponenta by IVBSAXXMLReader implementovat asi nemela. Misto toho by
si mela vytvorit "interni instanci" tohoto
>interface a ve svych metodach, properties se na tento interface odvolavat.
No vzdyt to tak je:
TXMLParser = class(TComponent, IUnknown, IVBSAXXMLReader)
private
Reader: IVBSAXXMLReader;
...
end;
implementation
constructor TXMLParser.Create(Owner: TComponent);
begin
inherited;
Reader := CoSaxXMLReader30.Create;
Writer := CoMXXMLWriter30.create;
reader.ContentHandler := self;
reader.ErrorHandler := self;
reader.dtdHandler := self;
end;
Jenom v tom constructoru se zase odkazuje sam na sebe.
Pokud jsem prispevky v teto diskuzi dobre pochopil, tak by mi melo stacit
do teto tridy doplnit metody _AddRef, _Release a QueryInterface. Je to tak?
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 09, 2003 2:16 PM
Subject: Re: Uvolnovani class a interface
> >> TParser=class(TComponent, IUnknown, IVBSAXXMLReader)
> > Honza Sebelik
> > Ja nevim, ale kdyz implementujes IUnknown,
> > pak asi implementujes sam _AddRef, _Release, QueryInterface.
> Odes�latel: Ondrej Kelle <O.Kelle(zv)digitalpublishing.de>
> TMyClass = class(TMyAncestor, IMyInterface)
> znamena, ze trieda TMyClass implementuje IMyInterface, ale neznamena to
> automaticky, ze ich implementuje alebo reimplementuje na svojej urovni.
Jasne, ale implementuje TComponent interface IUnknown?
Alespon v Delphi 5 (D6 mam jen na ucebne) je hierarchie
TComponent < TPersistent < TObject a nic z toho IUnknown neimplementuje.
TParser by bylo treba odvodit alespon od TInterfacedObject, ktery je odvozen
od TObject + implementuje IUnknown.
A vubec:
Ono to vypada spise tak, jak uz tady nekdo psal:
Sama komponenta by IVBSAXXMLReader implementovat asi nemela. Misto toho by
si mela vytvorit "interni instanci" tohoto interface a ve svych metodach,
properties se na tento interface odvolavat.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================ActionManager v D7
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 9.1.2003 15:03:35
Ahoj,
ja s nim mel velmi nedobre zkusenosti - stale to padalo s
AV a nakonec mi to shodilo i Wokna - na WinXP, ale kdyz se
zadarilo, tak se s tim i prez AV dalo pracovat.
Nevim, mozna je to moje zla zkusenost a jini ji mit nebudou,
ale jedno vim jiste - uz to nikdy nepouziju ackoli by to bylo
dobre a vyhodne - tedy pokud by to fungovalo jak by melo.
MI'RA
-----Original Message-----
From: Pavel Malinsky [mailto:spiderland(zv)iol(tec)cz]
Sent: Thursday, January 09, 2003 9:32 AM
To: Delphi Konference
Subject: ActionManager v D7
Ahoj,
chtel bych se zeptat, zda nekdo mate vylozene
spatne zkusenosti s ActionManagerem v D7, protoze
bych ho rad pouzil v jednom projektu, ale pred casem
tu byly velke namitky proti ActionManageru v D6.
Jak je to v D7, chyby pretrvavaji ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
ActionManager v D7
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 15:21:49
> chtel bych se zeptat, zda nekdo mate vylozene
> spatne zkusenosti s ActionManagerem v D7, protoze
> bych ho rad pouzil v jednom projektu, ale pred casem
> tu byly velke namitky proti ActionManageru v D6.
> Jak je to v D7, chyby pretrvavaji ?
Ja som uspesne pouzil ActionManager (s updatemi od S. Trefethena) uz v
Delphi 6, kde som pomocou neho vytvoril nestandardne uzivatelske rozhranie,
je na tom postaveny cely projekt a nie su s tym ziadne problemy. Je ale
pravda, ze som si odvodil vlastne komponenty a kontrolky a vsetky vytvaral
za behu, ziadny designtime navrh formularov som nepouzil. Mam pocit, ze vela
problemov spojenych s action controls sa tyka chyb v designtime,
'stratenych' hodnot vlastnosti pri streamovani z .dfm a pod.
To nestandardne prostredie bolo poziadavkou pre ten projekt, tykalo sa to
hlavne menu, ale aj toolbarov a buttonov, a boli to veci, ktore neslo riesit
cez ownerdraw, takze by som musel vela tych kontroliek pisat sam odznova.
Action controls boli teda pre mna velkym prinosom a usetrili mi kopec casu.
Napriklad napisat si vlastne plne funkcne menu nie je podla mna prave
trivialna vec.
HTH
TOndrej
Uvolnovani class a interface
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.1.2003 15:30:40
> Pokud jsem prispevky v teto diskuzi dobre pochopil, tak by mi
> melo stacit do teto tridy doplnit metody _AddRef, _Release a
> QueryInterface. Je to tak?
To sa neda z tych kuskov kodu presne zistit.
Pripada mi to tak, ze ta trieda implementuje nejake interfacy s tym, ze tie
implementacie jednoducho deleguju volania metod externym objektom. Ak ma byt
ucelom zjednodusenie, ako si pisal, potom je ta trieda zrejme myslena na
pouzitie ako komponenta, odkazom na triedu a nie na interface. Ak je potom
ten komponent vzdy pouzivany odkazom na triedu, potom tam to reference
counting ani nie je potrebne.
Problem ale moze nastat, ak sa k tej triede zaroven pristupuje odkazom na
interface, a to moze byt dokonca aj v kode tej samotnej triedy. V tom
pripade by mohlo snad pomoct reimplementovat IUnknown a delegovat volania
jeho metod tomu externemu objektu.
Obavam sa, ze bez kompletneho kodu a pochopenia spravnej prace s tymi
konkretnymi interfacemi Ti asi nikto nema sancu pomoct.
TOndrej
zacatecnik- OnClick metoda
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 9.1.2003 15:37:47
Tohle pouziti Tagu se mi jevi jako nesmysl. UkazRub by mela byt metoda
TKarta a ne funkce v unite nebo metoda formu. Pak staci volat
TKarta(Sender).UkazRub.
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Peter Ondras
Vytvor si jednu udalost OnClick, ktoru potom prirad vsetkym panelom.
Vsetky panely si rozlis nastavenim vlastnosti TAG od 1 do 64 a potom
vlastnost TAG vkladaj do procedury UKAZ_RUB(TAG). Vlozis to tam tak, ze
pouzijes SENDER z udalosti OnClick.
>: Nevim jak zaridit to aby po kliknuti na jekykoli panel byla spustena
>: jedna obsluzna procedura, ktera by ukazala lic karty, cili nastavila
>: spravny obrazek pripadne text..,
Uvolnovani class a interface
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 9.1.2003 15:42:37
Dobre, diky aspon za snahu, kompletni kod poslu komukoliv, kdo bude mit
jeste
zajem mi pomoct (piste na macura(zv)atlascon(tec)cz).
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 09, 2003 3:30 PM
Subject: RE: Uvolnovani class a interface
> > Pokud jsem prispevky v teto diskuzi dobre pochopil, tak by mi
> > melo stacit do teto tridy doplnit metody _AddRef, _Release a
> > QueryInterface. Je to tak?
>
> To sa neda z tych kuskov kodu presne zistit.
> Pripada mi to tak, ze ta trieda implementuje nejake interfacy s tym, ze
tie
> implementacie jednoducho deleguju volania metod externym objektom. Ak ma
byt
> ucelom zjednodusenie, ako si pisal, potom je ta trieda zrejme myslena na
> pouzitie ako komponenta, odkazom na triedu a nie na interface. Ak je potom
> ten komponent vzdy pouzivany odkazom na triedu, potom tam to reference
> counting ani nie je potrebne.
> Problem ale moze nastat, ak sa k tej triede zaroven pristupuje odkazom na
> interface, a to moze byt dokonca aj v kode tej samotnej triedy. V tom
> pripade by mohlo snad pomoct reimplementovat IUnknown a delegovat volania
> jeho metod tomu externemu objektu.
> Obavam sa, ze bez kompletneho kodu a pochopenia spravnej prace s tymi
> konkretnymi interfacemi Ti asi nikto nema sancu pomoct.
>
> TOndrej
>
Access violation pri uzavirani DELPHI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.1.2003 15:52:04
From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
> Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
> VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
> jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi prosim
Chyba muze byt (a s nejvetsi pravdepodobnosti i bude) v instalovanych IDE
expertech nebo komponentach od jinych vyrobcu.
Petr Vones
ActionManager v D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.1.2003 15:55:15
From: "Tvrz Miroslav" <Miroslav.Tvrz(zv)merlin(tec)cz>
> ja s nim mel velmi nedobre zkusenosti - stale to padalo s
> AV a nakonec mi to shodilo i Wokna - na WinXP, ale kdyz se
V jake verzi Delphi ?
> Nevim, mozna je to moje zla zkusenost a jini ji mit nebudou,
> ale jedno vim jiste - uz to nikdy nepouziju ackoli by to bylo
> dobre a vyhodne - tedy pokud by to fungovalo jak by melo.
Delphi 7 IDE pouziva v menu ActionBandy, takze z toho si muzes odvodit jak to
(ne)funguje. Vice se o techto komponetach dozvis na teto strance:
http://homepages.borland.com/strefethen/info/ABFAQ.htm
Petr Vones
Re[2]: Access violation pri uzavirani DELPHI
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 9.1.2003 16:01:18
No stava se to i na uplne cistych Delphi, takze chyba bude spis u
Borlandu. Tyhle hlasky pri vypinani se kazdej asi musi naucit
ignorovat :)
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Thursday, January 9, 2003, 3:52:04 PM, you wrote:
PV> From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
>> Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
>> VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
>> jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi prosim
PV> Chyba muze byt (a s nejvetsi pravdepodobnosti i bude) v instalovanych IDE
PV> expertech nebo komponentach od jinych vyrobcu.
PV> Petr Vones
JPEG Image problem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.1.2003 16:08:07
From: "Martin Pesava" <pesavova(zv)dkm(tec)cz>
> Ahojda konferaci, netusite, proc kod
>
> procedure ScaleJPEG(FN:String);
^^^^^^^^^ const FN: string
> var J : TJPEGImage;
> begin
> J:=TJPEGImage.Create;
> try
> J.LoadFromFile(FN);
> J.CompressionQuality:=1;
> J.SaveToFile(FN+'.jpeg');
> finally
> J.Free;
> end;
> end;
>
> ac davam do J.CompressionQuality ruzna cisla vzdycky udela vysledny
> obrazek stejne velky (datove) jako original??? Nechapu, co delam
> spatne :-/
uses
Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
JpegImage: TJPEGImage;
begin
JpegImage := TJPEGImage.Create;
try
JpegImage.LoadFromFile('a.jpg');
JpegImage.CompressionQuality := 10;
JpegImage.DIBNeeded;
JpegImage.Compress;
JpegImage.SaveToFile('b.jpg');
finally
JpegImage.Free;
end;
end;
Petr Vones
Access violation pri uzavirani DELPHI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.1.2003 16:13:13
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
> No stava se to i na uplne cistych Delphi, takze chyba bude spis u
> Borlandu. Tyhle hlasky pri vypinani se kazdej asi musi naucit
> ignorovat :)
Me se to nestava ani na 'necistych', takze bych se nejdrive naucil hledat
chybu u sebe ;-)
Petr Vones
TWebBrowser a ENTER
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.1.2003 16:20:45
From: <tomino(zv)army.sk>
> V aplikacii mam komponentu Exploreru (TWebBrowser). Na web stranke ktoru
> otvorim v aplikacii mam klasicky html formular.
> Do viacriadkoveho textoveho pola (tzv. textarea) na html stranke potrebujem
> napisat par riadkov, ale nefunguje v nom ENTER klavesa.
Tento problem je popsan tady, bohuzel ten kod nejde ani prelozit:
http://community.borland.com/article/0,1410,6302,00.html
Vypada to, ze by to mohlo fungovat takto, nenasel jsem k tomu ale zadnou dalsi
dokumentaci, takze je to tvoreno spise metodou pokus-omyl upravou toho kodu z
vyse zmineneho odkazu:
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FOldBrowserWndPoc: TWndMethod;
procedure WebBrowserWndProc(var Message: TMessage);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
ActiveX;
procedure TForm1.WebBrowserWndProc(var Message: TMessage);
var
Msg: TMsg;
begin
if (Message.Msg >= CN_BASE + WM_KEYFIRST) and (Message.Msg <= CN_BASE +
WM_KEYLAST) then
begin
Msg.HWnd := WebBrowser1.Handle;
Msg.Message := Message.Msg - CN_BASE;
Msg.WParam := Message.WParam;
Msg.LParam := Message.LParam;
Msg.Time := GetMessageTime;
Msg.Pt.X := $115DE1F1;
Msg.Pt.Y := $115DE1F1;
if (Message.WParam <> VK_RETURN) and
((WebBrowser1.DefaultInterface as
IOleInPlaceActiveObject).TranslateAccelerator(Msg) = S_OK) then
Message.Result := 1
else
Message.Result := 0;
end
else
FOldBrowserWndPoc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldBrowserWndPoc := WebBrowser1.WindowProc;
WebBrowser1.WindowProc := WebBrowserWndProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WebBrowser1.WindowProc := FOldBrowserWndPoc;
end;
Petr Vones
Access violation pri uzavirani DELPHI
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.1.2003 17:21:22
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
>> No stava se to i na uplne cistych Delphi,
>> takze chyba bude spis u Borlandu.
>> Tyhle hlasky pri vypinani se kazdej
>> asi musi naucit ignorovat :)
>
> Me se to nestava ani na 'necistych',
> takze bych se nejdrive naucil hledat
> chybu u sebe ;-)
Presne tak.
pf
Re[2]: Access violation pri uzavirani DELPHI
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 9.1.2003 17:56:03
Samozrejme zalezi na verzi, me to D6 Professional taky moc casto
nedela. Ale D4 jo, pri stejne konfiguraci a baliccich.
A pada i hned po instalaci. Mozna ze D6 je uz vychytanejsi, ale D4 je
semeniste chyb.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Thursday, January 9, 2003, 5:21:22 PM, you wrote:
PF> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
>>> No stava se to i na uplne cistych Delphi,
>>> takze chyba bude spis u Borlandu.
>>> Tyhle hlasky pri vypinani se kazdej
>>> asi musi naucit ignorovat :)
>>
>> Me se to nestava ani na 'necistych',
>> takze bych se nejdrive naucil hledat
>> chybu u sebe ;-)
PF> Presne tak.
PF> pf
Firebird a data na CD
[*] J�n Harman <harman(zv)volny(tec)cz> - 9.1.2003 21:02:13
Pred casem jsem se tady ptal na radu, protoze mi nesla otevrit Databaze.
Porad to hazelo chybu. Potom jsme prisli nato ze soubor *.gdb byl ReadOnl=
y.
Zkus si nastavit attribut ReadOnly u toho souboru na disku a uvidis.
Mozna to ale nejak obejit de ale nevim otom.
Honza.
Orientacni dotaz:
je mozne, aby data v souboru pro databazi Firebird byla umistena na
CD-ROM a muzne je aplikaci prohlizet? Tedy muze byt GDB read only?
Jednalo by se jen o cteni a vlastni aplikace by byla normalne
na harddisku.
Diky.
Olda
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m inte=
rnetu -
sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
Spusteni externiho programu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 9.1.2003 22:10:37
Zdravim
Spustim bat soubor prikazem
ShellExecute(Handle, nil, 'c:\test.bat', nil, nil, SW_SHOWNORMAL);
Chci se zeptat na tuto variantu
Spustim prvni batak
ShellExecute(Handle, nil, 'c:\test1.bat', nil, nil, SW_SHOWNORMAL);
Spustim druhy batak
ShellExecute(Handle, nil, 'c:\test2.bat', nil, nil, SW_SHOWNORMAL);
Probehne zpracovani tak, ze se provedou vsechny prikazy v prvnim bataku a=
a
po jeho ukonceni se spusti druhy batak.
Pokud ne, poradte prosim jak to napsat.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'c:\test1.bat', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle, nil, 'c:\test2.bat', nil, nil, SW_SHOWNORMAL);
end;
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.441 / Virov=E1 b=E1ze: 247 - datum vyd=E1n=ED: 9.1.2003
ScrollBar
[*] <kuba.zubaty(zv)centrum(tec)cz> - 09.1.2003 22:33:22
Ahoj, jak lze skryt vertikalni scrollbar u listboxu?
Kuba
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m in=
ternetu - sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
tisk na nekonecny papir
[*] votava <votava(zv)cmail(tec)cz> - 9.1.2003 23:52:30
zdravim,
muzete mi prosim poradit jak na tisk na nekonecny papir na tiskarne, kde
neni moznost uzivatelkeho nastaveni rozmeru papiru. W2K, D5Prof, Epson LQ300
dekuji Votava
Spusteni externiho programu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.1.2003 01:50:47
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Probehne zpracovani tak, ze se provedou vsechny prikazy v prvnim bataku a
a
> po jeho ukonceni se spusti druhy batak.
Ahoj.
Nejjednodussi je pouzit ShellExecAndWait z JCL.
Ludek
Access violation pri uzavirani DELPHI
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.1.2003 07:32:22
> > No stava se to i na uplne cistych Delphi, takze chyba bude spis u
> > Borlandu. Tyhle hlasky pri vypinani se kazdej asi musi naucit
> > ignorovat :)
>
> Me se to nestava ani na 'necistych', takze bych se nejdrive naucil
> hledat chybu u sebe ;-)
>
Ahoj,
mne Delphi obcas, zcela nepravidelne vyhlasi AV v nejake borlandi dll. V rade
pripadu se pak da s Delphi dal pracovat, nekdy je nutne Delphi ukoncit. Nejcasteji se
to deje pri pokusu o preklad, obcas pri pokusu o ulozeni. Nejhorsi je, kdyz takova AV
neumozni ulozit unitu, nastesti funguje Windows schranka, takze leccos se da i tak
zachranit.
O pricine nevim, deje se to pomerne zridka a nepravidelne, tak si neumim predstavit,
jak po tom patrat a navic je pro me casove vyhodnejsi restartovat Delphi nez nekolik
dni hledat pricinu. Ale to jen pro info, myslim, ze pokracovani v tomto thredu by jiz
neprineslo nic pozitivniho.
David Lebeda
Nulovanie autoincrement
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:01:43
(* --Prvy prispevok mi nepresiel, tak to posielam az trochu oneskorene--
Vytvor novy projekt. Na formular vloz jeden button a prirad mu
button1onclick. Potom vloz na formular jednu ttable, ktoru nazvi Tabul a
pouzi nasledovny program. Malo by to fungovat aj ked nezarucujem to. Ak
to nepojde tak sa este ozvi.
*)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Tablul: TTable;
procedure Button1Click(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure ChangeField(Table: TTable; Field: TField; Rec: ChangeRec);
implementation
{$R *.dfm}
procedure ChangeField(Table: TTable; Field: TField; Rec: ChangeRec); var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
pFields: pFLDDesc;
pOp: pCROpType;
B: byte;
begin
// Initialize the pointers...
pFields := nil; pOp := nil;
// Make sure the table is open exclusively so we can get the db
handle...
if Table.Active = False then
raise EDatabaseError.Create('Table must be opened to restructure');
if Table.Exclusive = False then
raise EDatabaseError.Create('Table must be opened exclusively to
restructure');
Check(DbiSetProp(hDBIObj(Table.Handle), curxltMODE,
integer(xltNONE)));
// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));
// Make sure the table is either Paradox or dBASE...
if (Props.szTableType <> szPARADOX) and (Props.szTableType <> szDBASE)
then
raise EDatabaseError.Create('Field altering can only occur on
Paradox' +
' or dBASE tables');
// Allocate memory for the field descriptor...
pFields := AllocMem(Table.FieldCount * sizeof(FLDDesc));
// Allocate memory for the operation descriptor...
pOp := AllocMem(Table.FieldCount * sizeof(CROpType));
try
// Set the pointer to the index in the operation descriptor to put
// crMODIFY (This means a modification to the record is going to
happen)...
Inc(pOp, Field.Index);
pOp^ := crMODIFY;
Dec(pOp, Field.Index);
// Fill the field descriptor with the existing field information...
Check(DbiGetFieldDescs(Table.Handle, pFields));
// Set the pointer to the index in the field descriptor to make the
// midifications to the field
Inc(pFields, Field.Index);
// If the szName portion of the ChangeRec has something in it,
change it...
if Length(Rec.szName) > 0 then
pFields^.szName := Rec.szName;
// If the iType portion of the ChangeRec has something in it, change
it...
if Rec.iType > 0 then
pFields^.iFldType := Rec.iType;
// If the iSubType portion of the ChangeRec has something in it,
change it...
if Rec.iSubType > 0 then
pFields^.iSubType := Rec.iSubType;
// If the iLength portion of the ChangeRec has something in it,
change it...
if Rec.iLength > 0 then
pFields^.iUnits1 := Rec.iLength;
// If the iPrecision portion of the ChangeRec has something in it,
change it...
if Rec.iPrecision > 0 then
pFields^.iUnits2 := Rec.iPrecision;
Dec(pFields, Field.Index);
for B := 1 to Table.FieldCount do begin
pFields^.iFldNum := B;
Inc(pFields, 1);
end;
Dec(pFields, Table.FieldCount);
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE,
hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// The following three lines are necessary when doing any field
restructure
// operations on a table...
// Set the field count for the table
TableDesc.iFldCount := Table.FieldCount;
// Link the operation descriptor to the table descriptor...
TableDesc.pecrFldOp := pOp;
// Link the field descriptor to the table descriptor...
TableDesc.pFldDesc := pFields;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, (zv)TableDesc, nil, nil, nil, FALSE));
finally
if pFields <> nil then
FreeMem(pFields);
if pOp <> nil then
FreeMem(pOp);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Novy:ChangeRec;
begin
Tabul.DatabaseName:='alias';
Tabul.TableName:='test.db';
Tabul.Exclusive:=true;
Tabul.Open; with Novy do
begin
szName:='Autopole';
iType:=fldINT32;
iSubType:=0;
iLength:=0;
iPrecision:=0;
end;
ChangeField(Tabul,Tabul.FieldByName('Autopole'),Novy); Tabul.Open;
with Novy do
begin
szName:='Autopole';
iType:=fldINT32;
iSubType:=fldstAUTOINC;
iLength:=0;
iPrecision:=0;
end;
ChangeField(Tabul,Tabul.FieldByName('Autopole'),Novy);
Tabul.Close;
Tabul.Exclusive:=false;
Tabul.Open;
end;
end.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
Re[2]: Spusteni externiho programu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 10.1.2003 08:06:00
Cau Ludek,
Friday, January 10, 2003, 1:50:47 AM, you wrote:> ----- Original Message -----
> From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
>> Probehne zpracovani tak, ze se provedou vsechny prikazy v prvnim bataku a
> a
>> po jeho ukonceni se spusti druhy batak.
> Ahoj.
> Nejjednodussi je pouzit ShellExecAndWait z JCL.
ja to resim takto :
function WinExecAndWait32(FileName:String; Visibility : integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
> Ludek
S pozdravem
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Nacteni, ulozeni hodnot objektu
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:12:49
Pouzi SENDER (vseobecny objekt) a testuj jeho typ (if sender is ...),
ked zistis, ze objekt je napr. typu Tedit, tak automaticky vies, ze ma
TEXT a ten ziskas takto:
if Sender is TEdit then
(Sender as Tedit).Text:=3D'nejak=E1 hodnota';
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Dalibor
>: Sent: Thursday, January 09, 2003 8:36 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Nacteni, ulozeni hodnot objektu
>:=20
>: Muzete mi poradit jak otestovat, zda dany objekt ma property TEXT,
>: pripadne jak ji
>: prectu, nebo nastavim.
>: Myslim obecne reseni.
>:=20
>: Dekuji
>:=20
OT: RE: Sidla Evropy
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:12:49
Ja pouzivam Route 66 Europa. Su tam aj malicke dediny a pri vsetkom su
aj zemepisne suradnice. Dalsi podobny program je Microsoft AutoRoute.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Dalibor
>: Sent: Thursday, January 09, 2003 11:25 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Sidla Evropy
>:
>: Muzete mi nekdo poradit, kde bych sehnal sidla Evropy i se
>: zemepisnymi souradnicemi?
>:
>: Dik
Access violation pri uzavirani DELPHI
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:18:44
Neviem presne, ale mne sa to stava ked pracujem s DLL projektom, ktory
obsahuje MDI Child okno. Cele Delphi najprv pracuje normalne, rovnako aj
DLL, ale pri ukonceni mam Access violation. Pritom nezalezi na verzii
Delphi. Je to na vsetkych verziach od Delphi 4 az po Delphi 7
Enterprise. Nikdy som sa nad tym vsak nerozrusoval, pretoze DLL
jednoznacne funguje spravne a neohrozuje nijak system.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Ing. Jiri Kubicek
>: Sent: Thursday, January 09, 2003 12:40 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Access violation pri uzavirani DELPHI
>:
>: Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v
modulu
>: VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho
projektu,
>: jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi
prosim
>: poradit kterym smerem zamerit patrani?
>: Dik
>: JK
>:
>: D5-SP1,WXP
>:
ActionManager v D7
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:18:44
Chyby pretrvavaju. Ani upgrade nepomoze nejak radikalne (ale aspon
nieco).
ActionManager nie je vyslovene zly, ale su snim problemy pri vytvarani
menu a panelov. Dalsie problemy nastavaju pri pristupe programovo k
jednotlivym polozkam menu alebo panelu. Vysledok je vsak vizualne krajsi
ako stare menu.
Moje odporucanie je pouzit klasicke stare menu a k tomu freeware
komponentu XPMenu, ktoru najdes na www.torry.net. Staci ju vlozit na
formular a pri spusteni projektu sa vsetky menu, panely atd. (podla
nastavenia) zmenia na XP vzhlad.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Pavel Malinsky
>: Sent: Thursday, January 09, 2003 9:32 AM
>: To: Delphi Konference
>: Subject: ActionManager v D7
>:
>: Ahoj,
>:
>: chtel bych se zeptat, zda nekdo mate vylozene
>: spatne zkusenosti s ActionManagerem v D7, protoze
>: bych ho rad pouzil v jednom projektu, ale pred casem
>: tu byly velke namitky proti ActionManageru v D6.
>: Jak je to v D7, chyby pretrvavaji ?
>:
>: S pozdravem a dikem
>: =====================================
>: > Pavel Malinsky; spiderland(zv)iol(tec)cz <
>: =====================================
>: GSM: 602 652 203
>:
Access violation pri uzavirani DELPHI
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 10.1.2003 08:25:03
Stava sa to aj na CERSTVO nainstalovanych Delphi 7. Tym cerstvo myslim
pracu niekolko minut po instalacii Delphi bez instalacie dalsich
pridavnych balickov.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Petr Vones
>: Sent: Thursday, January 09, 2003 4:13 PM
>: To: Konference Delphi
>: Subject: Re: Access violation pri uzavirani DELPHI
>:
>: From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
>: > No stava se to i na uplne cistych Delphi, takze chyba bude spis u
>: > Borlandu. Tyhle hlasky pri vypinani se kazdej asi musi naucit
>: > ignorovat :)
>:
>: Me se to nestava ani na 'necistych', takze bych se nejdrive naucil
hledat
>: chybu u sebe ;-)
>:
>: Petr Vones
Spusteni service
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 10.1.2003 08:35:16
> To asi zavisi aj od toho, co je ucelom toho service. Unika mi dovod, preco
> to mas napisane ako service, ked na spustenie chces pouzit scheduler (tiez
> service). Mozno by stacil obycajny klasicky .exe program. Mozno
> potrebujes,
> aby to bezalo pod System account, spustalo sa automaticky pri starte
> systemu, prezilo logoff a podobne. Tazko povedat.
>
> HTH
> TOndrej
Presne tak potrebuji vyuzit vsech vyhod ktere mi sluzba NT prinasi (system
account,spousteni pri startu ...). Chtel jsem se jen vyhnout implemetaci
sheduleru specialne pro tuto slubu a nasledne pomoci timeru testovat zda mam
spustit proces ci nikoliv.
Ukladani komponent do souboru a jejich nasledne na
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 10.1.2003 08:42:25
Ahoj vsem dobrym lidem - prosim o radu,
Mam takovou aplikaci, kde si uzivatel na formular sklada ruzne komponenty
(TEdit, TPanel, atp.) a nastavuje si
jejich ruzne vlastnosti (Text, Caption, Color, rozmery, atp.) - ma jich
nekolik u kazdeho objektu (kazda je presne
definovana). No a ja bych potreboval nejak ulozit do souboru vsechny
komponenty, ktere uzivatel na formular
naskladal a zaroven s nimi ulozit i vsechny jejich vlastnosti.
Doposud to resim tak, ze pri ukladani mam cyklus, kterym projdu vsechny
komponenty a do "TXT" (soubor s
priponou .DAT) souboru zapisu index komponenty (indexy vytvarim/rusim pri
vkladani/odmazavani komponent z
formulare) a k onomu indexu pridam danou vlastnost a jeji hodnotu (viz.
konec mailu). Jenze tenhle zpusob je pak
celkem dosti krkolomny, jelikoz uzivatel muze mit takovychto komponent na
formulari i vic nez 100 - jejich nacteni
na pomalejsim stroji pote zabere treba nekolik minut.
Vedel by prosim nekdo o nejakem rozumnem reseni tohoto problemu - klidne
mohu ukladat i do binarniho
souboru, ale aby pak take sel nacitat?
priklad ulozeni dvou komponent a nekolika jejich vlastnosti:
--------------------------
0 Name "Panel1"
0 Color "clBlue"
0 Caption "Test. panel"
0 Width "50"
0 Height "100"
0 Top "50"
0 Left "35"
1 Name "Edit1"
1 Color "clWhite"
1 Caption "Test. edit. pole"
1 Width "150"
1 Height "35"
1 FontSize "14"
1 Top "10"
1 Left "0"
-------------------------
diky za kazdou radu
MI'RA
Miroslav Tvrz
Software Development Specialist
E-mail: miroslav.tvrz(zv)merlin(tec)cz Spusteni service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.1.2003 08:45:36
>
> Mam vytvo=F8enou Nt service ktera s danou periodou dela nejakou akci.
> Ted bych chtel aby tato akce se spustela v predem definovany cas.
> Otazka zni da se k tomu vyuzit Sheduler v NT, ktery by tedy v predem
> definouvanou dobu spustil proces bezici sluzby (nebo samotnou sluzbu
a ta
> byse po zpracovani sama ukoncila) ?
>
pokud to mas napsany skutecne jako service pak je nesmysl jej nejak
planovane spustet a ukoncovat. Ta sluzba proste musi implementovat
vlastni planovac. Pobezi stale, bude kontrolovat datum a cas a v
prihodnou chvili provede co je treba.....
D. Toman
InstallShield a FB
[*] tondrej(zv)t-online.de (TOndrej) - 10.1.2003 09:00:52
> Nevim, co to je za aplikaci, nevim o jaky okruh uzivatelu jde, nevim,
> co mas v umyslu.
>
> Presto bych byl pri instalaci databazoveho serveru opatrny.
> Rozhodne bych povazoval za "ranu pod pas", kdyby se mi nejaky
> databazovy server nainstaloval na pocitac bez meho vedomi. A co
> kdyz tam ten FB uz je nahodou nainstalovany? Co pak? A co kdyz
> je navic nejak zkonfigurovany, co pak? Anebo je tam InterBase?
Tieto veci sa daju osetrit, nedavno som to robil pre setup jedneho programu,
ktory so sebou instaluje IB6 Open. Existencia uz nainstalovaneho FB/IB roznych
verzii sa da zistit, a v takom pripade sa treba spytat uzivatela, co s tym a
ako dalej.
Vytvaranie databazy a import dat sa deje cez SQL skripty, takze mi je v
podstate jedno, aku verziu tam ma. Vyskusane na IB4 az IB6.5. Samotna
instalacia IB je cez Install API bez problemov.
HTH
TOndrej
Ukladani komponent do souboru a jejich nasledne na
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 10.1.2003 09:19:27
Ahoj
pouzi toto a budes bez problemov
function TShowLoadedForm.StringToComponent(Value: string; F:TComponent):
TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(F);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
priklad pouzitia
if SaveDialog1.Execute then
begin
St:=TStringList.Create;
St.Text:= ComponentToString( TForm Tvoj form ktory budes ukladat aj
s komponentami );
St.SaveToFile(SaveDialog1.FileName);
St.Free;
end;
a spat urobis toto
procedure TMainForm.Otvorulozenyform1Click(Sender: TObject);
var
F:TForm;
St:TStringList;
i: Integer;
s,ss :string;
begin
if OpenDialog.Execute then
begin
St:=TStringList.Create;
St.LoadFromFile(OpenDialog.FileName);}
OpenModul(OpenDialog.FileName);
F:= TForm.Create(Application);
F:=StringToComponent(St.Text,F) as TForm;
F.FormStyle:= fsMDIChild;
for I:= 0 to F.ComponentCount -1 do
begin
ss:= F.Components[i].ClassName;
if F.Components[i] is TButton then
if (F.Components[i] as TButton).Caption = '&FillDATA&' then
begin
Control:= F.Components[i];
(F.Components[i] as TButton).Caption:= 'moj text'; //mojametoda;
(F.Components[i] as TButton).OnClick:= ClickForm.mojclick;
end;
if F.Components[i] is TEdit then
if pos('&FillDATA&', (F.Components[i] as TEdit).Text) <> 0 then
begin
s:= UpravText((F.Components[i] as TEdit).Text, '1200');
Caption:= (s);
end;
ss:= ss;
end;
St.Free;
end;
end;
a vie to pouzivat aj eventy mozes si ich spat pri "otvarani" formu dynamicky
nalinkovat a pouzivat za behu. Ja tak robim jednu celu apl. a je to parada.
To som len tak pastol z jedneho testovacieho dema co som robil niekedy davno
takze tam mozno budu nejake chyby ale podstatu dufam pochopis.
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: "Tvrz Miroslav" <Miroslav.Tvrz(zv)merlin(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 10, 2003 8:42 AM
Subject: Ukladani komponent do souboru a jejich nasledne nacitani
> Ahoj vsem dobrym lidem - prosim o radu,
>
> Mam takovou aplikaci, kde si uzivatel na formular sklada ruzne
komponenty
> (TEdit, TPanel, atp.) a nastavuje si
> jejich ruzne vlastnosti (Text, Caption, Color, rozmery, atp.) - ma jich
> nekolik u kazdeho objektu (kazda je presne
> definovana). No a ja bych potreboval nejak ulozit do souboru vsechny
> komponenty, ktere uzivatel na formular
> naskladal a zaroven s nimi ulozit i vsechny jejich vlastnosti.
>
> Doposud to resim tak, ze pri ukladani mam cyklus, kterym projdu vsechny
> komponenty a do "TXT" (soubor s
> priponou .DAT) souboru zapisu index komponenty (indexy vytvarim/rusim pri
> vkladani/odmazavani komponent z
> formulare) a k onomu indexu pridam danou vlastnost a jeji hodnotu (viz.
> konec mailu). Jenze tenhle zpusob je pak
> celkem dosti krkolomny, jelikoz uzivatel muze mit takovychto komponent na
> formulari i vic nez 100 - jejich nacteni
> na pomalejsim stroji pote zabere treba nekolik minut.
>
> Vedel by prosim nekdo o nejakem rozumnem reseni tohoto problemu - klidne
> mohu ukladat i do binarniho
> souboru, ale aby pak take sel nacitat?
>
> priklad ulozeni dvou komponent a nekolika jejich vlastnosti:
> --------------------------
> 0 Name "Panel1"
> 0 Color "clBlue"
> 0 Caption "Test. panel"
> 0 Width "50"
> 0 Height "100"
> 0 Top "50"
> 0 Left "35"
>
> 1 Name "Edit1"
> 1 Color "clWhite"
> 1 Caption "Test. edit. pole"
> 1 Width "150"
> 1 Height "35"
> 1 FontSize "14"
> 1 Top "10"
> 1 Left "0"
> -------------------------
>
> diky za kazdou radu
>
> MI'RA
>
> Miroslav Tvrz
> Software Development Specialist
> E-mail: miroslav.tvrz(zv)merlin(tec)cz
>
Ukladani komponent do souboru a jejich nasledne na
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 10.1.2003 09:26:00
> Ahoj vsem dobrym lidem - prosim o radu,
>
> Mam takovou aplikaci, kde si uzivatel na formular sklada ruzne
komponenty
> (TEdit, TPanel, atp.) a nastavuje si
> jejich ruzne vlastnosti (Text, Caption, Color, rozmery, atp.) - ma jich
> nekolik u kazdeho objektu (kazda je presne
> definovana). No a ja bych potreboval nejak ulozit do souboru vsechny
> komponenty, ktere uzivatel na formular
> naskladal a zaroven s nimi ulozit i vsechny jejich vlastnosti.
>
> Vedel by prosim nekdo o nejakem rozumnem reseni tohoto problemu - klidne
> mohu ukladat i do binarniho
> souboru, ale aby pak take sel nacitat?
Podivej se do helpu, popr. do archivu konference na ReadComponent,
WriteComponent. Kdyz nic kloudneho nenajdes, tak pohledam a poslu ti kousek
kodu...
Roman
==============================
http://kouzelne.misto(tec)cz
Ukladani komponent do souboru a jejich nasledne na
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 10.1.2003 09:51:22
-----Original Message-----
From: Roman [mailto:sw.maurice(zv)seznam(tec)cz]
Sent: Friday, January 10, 2003 9:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Ukladani komponent do souboru a jejich nasledne nacitani
> Ahoj vsem dobrym lidem - prosim o radu,
>
> Mam takovou aplikaci, kde si uzivatel na formular sklada ruzne
komponenty
> (TEdit, TPanel, atp.) a nastavuje si
> jejich ruzne vlastnosti (Text, Caption, Color, rozmery, atp.) - ma jich
> nekolik u kazdeho objektu (kazda je presne
> definovana). No a ja bych potreboval nejak ulozit do souboru vsechny
> komponenty, ktere uzivatel na formular
> naskladal a zaroven s nimi ulozit i vsechny jejich vlastnosti.
>
> Vedel by prosim nekdo o nejakem rozumnem reseni tohoto problemu - klidne
> mohu ukladat i do binarniho
> souboru, ale aby pak take sel nacitat?
Podivej se do helpu, popr. do archivu konference na ReadComponent,
WriteComponent. Kdyz nic kloudneho nenajdes, tak pohledam a poslu ti kousek
kodu...
Roman
==============================
http://kouzelne.misto(tec)cz
No problem nastava s tim (pokud se nepletu), ze pokud to udelam za pomoci
vyse zminovaneho, tak musim pri Loadu formu zaregistrovat vsechny tridy
komponent - neco jako RegisterComponentClass(), ale zkusim to co mi radil
Robert Suska - vypadalo to celkem velmi zajimave - neco podobneho jsem se
pokousel vymyslet, ale nikdy mi to nefungovalo - proto jsem se uchylil k
mnou popisovanemu "primitivnimu" postupu.
Diky jeste jednou za vsechny pripadne dalsi rady a namety
MI'RA
Ukladani komponent do souboru a jejich nasledne na
[*] Milo� Kastner - 10.1.2003 09:53:07
Pouzivam podobne funkce (ComponentToString,...) jako uvadi Robert Suska.
Na ukladani a nacitani celeho nebo casti formularu lze take pouzit
componentu Dream Designer od Dream Company http://www.dream-com.com .
Ta umi hodne dalsich veci - v podstate jako IDE Delphi za behu
programu, ale neni zadarmo.
Milos Kastner
P�vodn� zpr�va:
> Ahoj vsem dobrym lidem - prosim o radu,
> Mam takovou aplikaci, kde si uzivatel na formular sklada ruzne komponenty
> (TEdit, TPanel, atp.) a nastavuje si
> jejich ruzne vlastnosti (Text, Caption, Color, rozmery, atp.) - ma jich
> nekolik u kazdeho objektu (kazda je presne
> definovana). No a ja bych potreboval nejak ulozit do souboru vsechny
> komponenty, ktere uzivatel na formular
> naskladal a zaroven s nimi ulozit i vsechny jejich vlastnosti.
FTP - Aktualni pozice stahovani
[*] Milo� Kastner - 10.1.2003 10:01:16
V Delphi 7 je v helpu k TIdFTP uvedena verze 9.0.
TIdFTP z D7 udalosti OnWork, OnWorkBegin a OnWorkEnd nema.
Vite nekdo, co je to za verzi Indy v Delphi 7 a kde vzit 9.0.3?
Diky,
Milos Kastner
Puvodni zprava:
> Komponenta TIdFTP ma udalost OnWork, ve ktere je aktualni pocet stazenych
> bytu, v udalosti OnWorkBegin se pak da ziskat celkovy ocekvany pocet bytu a
> podle toho treba posouvat progressbar, v OnWorkEnd pak treba vynulovat. Mam
> Indy 9.0.3, nevim jestli to maji i starsi verze.
> Jirka Matejka
FTP - Aktualni pozice stahovani
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 10.1.2003 10:11:36
Ted jsem si je pustil a ty udalosti tam mam...
Jiri
Subject: Re: FTP - Aktualni pozice stahovani
> V Delphi 7 je v helpu k TIdFTP uvedena verze 9.0.
>
> TIdFTP z D7 udalosti OnWork, OnWorkBegin a OnWorkEnd nema.
> Vite nekdo, co je to za verzi Indy v Delphi 7 a kde vzit 9.0.3?
CodeSite - pouzivate nekdo?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 10.1.2003 10:56:19
Ahoj,
nemuzete mi nekdo napsat, zda pouzivate CodeSite a jak jste s nim
spokojeni? Stale na to narazim v ruznych konferencich a vypada to
zajimave, jen je to dost drahe.
--
______________________________________________________
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
______________________________________________________
OT: msdos aplikacia vo W2k poziera 100% procesora
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 10.1.2003 11:05:18
hi,
sorry za OT, ale narazil som na takyto problem:
vo W2000 jedna msdos aplikacia zerie 100% procesora a nasledne to
rapidne brzdi procesy na pozadi, napriklad tlac, ked jej nasilu (task
manager) zmenim prioritu je to potom celkom znesitelne a funguje to
uspokojujuco, na W9x to predtym behalo v pohode, ale to je asi len tym
ze W9x su vlastne MSDOS9x :o)
otazky:
1. da sa niekde nastavit pre takuto dos aplikaciu znizenie priority
2. ak sa neda bod 1. dalo by sa v Delphi naprogramovat nieco take t.j.
poslat spravu msdos app aby znizila prioritu
dik
joka
Access violation pri uzavirani DELPHI
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 10.1.2003 11:06:12
Chyba se ukaze u jedineho projektu a to i kdyz vubec nestartuji program,
takze zadny formular se neotvira. Kdyz spustim Delphi, kde se automaticky
natahne zmineny projekt a bez jeho startu zase Delphi zavru, vyskoci AV.
Kdyz ale mezitim vyberu jiny projekt (a tez ho nestartuji ani nekompiluji),
tak pri zavreni Delphi je vse OK.
JK
> > Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
> > VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
> > jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv.
> Me to delavalo, kdyz se jedna komponenta odkazovala na druhou komponentu
> v jinem formulari, a onen formular nebyl pri uzavirani projektu otevreny.
>
> Radim
Access violation pri uzavirani DELPHI
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 10.1.2003 11:06:41
Diky vsem za reakce, jen bych znovu zduraznil ze toto nectne chovani Delphi
se projevuje pouze pri odchodu z jednoho jedineho projektu, u ostatnich
projektu neni problem a nektere jsou pritom velmi podobne, jiste rozdily
jsou
ve vyuzivani balicku. Komponenty od jinych vyrobcu pouzivam bezne -
JCL,AsyncProf,RX a samozrejme komponenty od naseho guru ;-).Z expertu
pouzivam jen GExpert. Budu se pidit po rozdilech mezi projekty.
JK
> > Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
> > VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
> > jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv. Muzete mi
prosim
>
> Chyba muze byt (a s nejvetsi pravdepodobnosti i bude) v instalovanych IDE
> expertech nebo komponentach od jinych vyrobcu.
>
> Petr Vones
>Jak dostat data z LB_GETITEMDATA
[*] virt(zv)volny(tec)cz - 10.1.2003 11:07:02
Ahoj,
nevite jak dostat ze zpravy
var
Data:integer;
begin
Data := SendMessage(hListBox, LB_SETITEMDATA, nIndex,0);
Data ???
end;
Jak z toho dostanu data???
Dekuji
Jirka Virt
email: virt(zv)volny(tec)cz
Jak dostat data z LB_GETITEMDATA
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.1.2003 11:09:42
> var
> Data:integer;
> begin
> Data := SendMessage(hListBox, LB_SETITEMDATA, nIndex,0);
> Data ???
> end;
>
> Jak z toho dostanu data???
Predpokladam, ze sa jedna o preklep a mas na mysli LB_GETITEMDATA.
Prave ten Integer v premennej Data su tie data, ktore boli do listboxu
vlozene cez spravu LB_SETITEMDATA. Ak je to v skutocnosti pointer na nejaku
inu premennu, napriklad typu record alebo nejaky objekt, potom si to
pretypuj. (Ak je to listbox z ineho procesu, tak to nebude fungovat.). Musis
ale vediet, co tam je.
HTH
TOndrej
msdos aplikacia vo W2k poziera 100% procesora
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 10.1.2003 11:39:40
Ahoj!
Nepoviem Ti to teraz presne len Ta navediem bolo to uz preberane v
konferencii a viem ze existuje na to program cez ktory sa spusta taka msdos
aplikacia ako parameter. A konkretne som to v jednej firme pouzil na dos
uctovnictvo kde bola w2000 stanica a fungovalo to pekne. Len naozaj neviem
ako sa to vola.
Dufam ze som Ti pomohol....
S spozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
> hi,
>
> sorry za OT, ale narazil som na takyto problem:
>
> vo W2000 jedna msdos aplikacia zerie 100% procesora a nasledne to
> rapidne brzdi procesy na pozadi, napriklad tlac, ked jej nasilu (task
> manager) zmenim prioritu je to potom celkom znesitelne a funguje to
> uspokojujuco, na W9x to predtym behalo v pohode, ale to je asi len tym
> ze W9x su vlastne MSDOS9x :o)
>
> otazky:
> 1. da sa niekde nastavit pre takuto dos aplikaciu znizenie priority
> 2. ak sa neda bod 1. dalo by sa v Delphi naprogramovat nieco take t.j.
> poslat spravu msdos app aby znizila prioritu
>
> dik
>
> joka
>
OT: msdos aplikacia vo W2k poziera 100% procesora
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.1.2003 11:40:47
1. Pri spusteni pres CreateProcess lze nastavit priorita aplikace
2. Musel by ses napojit na proces te aplikace a snizit mu prioritu.
Samozrejme bys k tomu potreboval prislusna prava atd.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.1.2003 KALUS Jozef:
> otazky:
> 1. da sa niekde nastavit pre takuto dos aplikaciu znizenie priority
> 2. ak sa neda bod 1. dalo by sa v Delphi naprogramovat nieco take t.j.
> poslat spravu msdos app aby znizila prioritu
CodeSite - pouzivate nekdo?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 10.1.2003 12:11:27
----- Original Message -----
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> nemuzete mi nekdo napsat, zda pouzivate CodeSite a jak jste s nim
> spokojeni? Stale na to narazim v ruznych konferencich a vypada to
> zajimave, jen je to dost drahe.
Podle me se da CodeSite uplne nahradit pomoci Overseeru
od Pavla Cisare (krome posilani zprav po Internetu), navic
je Overseer rychlejsi pri odesilani zprav takze testovana
aplikace jich muze odesilat radove vic nez v pripade CodeSitu.
Naposledy jsem CodeSite videl cca pred rokem.
Martin Schayna
msdos aplikacia vo W2k poziera 100% procesora
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 10.1.2003 12:15:16
> vo W2000 jedna msdos aplikacia zerie 100% procesora
> a nasledne to rapidne brzdi procesy na pozadi, napriklad
> tlac, ked jej nasilu (task manager) zmenim prioritu je to
> potom celkom znesitelne a funguje to uspokojujuco ...
Napis si BAT ci CMD na spousteni te aplikace a pouzij
pro jeji spusteni prikaz START s parametrem /LOW.
Dobirat procesor na 100% bude i nadale, ale nebude
by jiz brzdit ostatni aplikace.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Access violation pri uzavirani DELPHI
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 10.1.2003 13:14:28
Ing. Jiri Kubicek, <mailto:kubicek(zv)etatherm(tec)cz>:
IJK> Chyba se ukaze u jedineho projektu a to i kdyz vubec nestartuji program,
IJK> takze zadny formular se neotvira. Kdyz spustim Delphi, kde se automaticky
IJK> natahne zmineny projekt a bez jeho startu zase Delphi zavru, vyskoci AV.
IJK> Kdyz ale mezitim vyberu jiny projekt (a tez ho nestartuji ani nekompiluji),
IJK> tak pri zavreni Delphi je vse OK.
Na predchozim pocitaci se mi nahodile take objevovala AV pri ukonceni
Delphi. Pomohl prikaz File - Close All pred ukoncenim Delphi, pak to
slo v klidu ukoncit.
Nyni na novem pocitaci a v nove instalaci jiz zadne AV :-)
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Access violation pri uzavirani DELPHI
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 10.1.2003 13:20:01
Ahoj
Aku mas konfiguraciu hardware a aky tam mas OS ? a mas posledny update s M$
na win a ovladace ku hardwaru alebo hm... neviem len nahlas myslim :)
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: "Ing. Jiri Kubicek" <kubicek(zv)etatherm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 10, 2003 11:06 AM
Subject: Re: Access violation pri uzavirani DELPHI
> Chyba se ukaze u jedineho projektu a to i kdyz vubec nestartuji program,
> takze zadny formular se neotvira. Kdyz spustim Delphi, kde se automaticky
> natahne zmineny projekt a bez jeho startu zase Delphi zavru, vyskoci AV.
> Kdyz ale mezitim vyberu jiny projekt (a tez ho nestartuji ani
nekompiluji),
> tak pri zavreni Delphi je vse OK.
> JK
>
> > > Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v
modulu
> > > VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho
projektu,
> > > jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv.
>
> > Me to delavalo, kdyz se jedna komponenta odkazovala na druhou komponentu
> > v jinem formulari, a onen formular nebyl pri uzavirani projektu
otevreny.
> >
> > Radim
>
>
>
property Text - defaultni nastaveni
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 10.1.2003 13:57:00
Ahoj,
u sve komponenty, ktera je naslednikem TCustomComboBox, bych chtel odstranit
zobrazeni nazvu v property Text, kdyz se vlozi z palety na form. Proste kdyz
se hodi z palety na form, aby se v tom okynku nezobrazila hodnota
vlastnosti Name.
property Text - defaultni nastaveni
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 10.1.2003 15:08:16
----- Original Message -----
From: "Tomas Krysl" <tomkrysl(zv)quick(tec)cz>
> u sve komponenty, ktera je naslednikem TCustomComboBox, bych chtel
odstranit
> zobrazeni nazvu v property Text, kdyz se vlozi z palety na form. Proste
kdyz
> se hodi z palety na form, aby se v tom okynku nezobrazila hodnota
> vlastnosti Name.
Zkus dat do constructoru toto:
ControlStyle := ControlStyle - [csSetCaption];
Martin Schayna
Nahrada za Memory Sleuth, prip. Sleuth QA Suite
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 10.1.2003 15:10:38
Znate nekdo nahradu za Memory Sleuth od TurboPower?
Samozrejme muze byt i komercni.
Radim
property Text - defaultni nastaveni
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.1.2003 15:28:53
>> u sve komponenty, ktera je naslednikem TCustomComboBox, bych
>> chtel odstranit zobrazeni nazvu v property Text, kdyz se vlozi z palety
>> na form. Proste kdyz se hodi z palety na form, aby se v tom okynku
>> nezobrazila hodnota vlastnosti Name.
>
> Zkus dat do constructoru toto:
>
> ControlStyle := ControlStyle - [csSetCaption];
Presne tak. Zmena hodnoty vlastnosti Text sa deje v TControl.SetName, ak je
csSetCaption flag nastaveny, a ten je v konstruktore TControl.Create
nastaveny. Potomkovia TControl, u ktorych je neziaduce, aby sa Text
automaticky menil podla Name, musia ten flag vypnut pomocou horeuvedeneho
riadku kodu vo svojom konstruktore.
HTH
TOndrej
Nahrada za Memory Sleuth, prip. Sleuth QA Suite
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.1.2003 15:41:43
From: "Radim Kunz" <privat(zv)casestudio.com>
> Znate nekdo nahradu za Memory Sleuth od TurboPower?
> Samozrejme muze byt i komercni.
http://www.automatedqa.com/products/
Petr Vones
Firebird a data na CD
[*] abyssinians(tec)cz <abyssinian(zv)centrum(tec)cz> - 10.1.2003 16:14:43
Zkousel jsem to - nejde to. Neprisel jsem na to, jak to obejit,
asi je to dano z principu. Skoda, ale na druhou stranu je to
logicke. Databaze Firebird neni proste zamyslena
pro tento typ pouziti.
Napadlo me, ze by to treba mohlo jit, protoze Flash Filler
to umi a pritom je to taky SQL server.
Nicmene presto diky za ochotu.
Honza
______________________________________________________________
> Od: <delphi-l-owner(zv)clexpert(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:=20
> Datum: Thu, 9 Jan 2003 21:02:13 +0100
> P=F8edm=ECt: Re: Firebird a data na CD
>
> Pred casem jsem se tady ptal na radu, protoze mi nesla otevrit=20
Databaze.
> Porad to hazelo chybu. Potom jsme prisli nato ze soubor *.gdb byl=20
ReadOnly.
> Zkus si nastavit attribut ReadOnly u toho souboru na disku a uvidis.
> Mozna to ale nejak obejit de ale nevim otom.
> Honza.
>=20
>=20
> Orientacni dotaz:
> je mozne, aby data v souboru pro databazi Firebird byla umistena na
> CD-ROM a muzne je aplikaci prohlizet? Tedy muze byt GDB read only?
> Jednalo by se jen o cteni a vlastni aplikace by byla normalne
> na harddisku.
>=20
> Diky.
>=20
--------------------
NOVINKA na Centrum(tec)cz Auto! Nejv=ECt=B9=ED autokatalog na =E8esk=E9m in=
ternetu - sestavte si sv=E9 auto sn=F9! http://auto.centrum(tec)cz/katalog
Prednastaveni noveho formu
[*] Jan Naiser <tua(zv)wo(tec)cz> - 10.1.2003 17:08:57
Preji pekny den,
D5prof
daji se nejak ovlivnit prednastavene hodnoty noveho formu? Mam na mysli
toto: umistim-li do aplikace novy form, aby se mi nastavily property podle
meho nastaveni (napr. ShowHint=true...) nebo jsem odkazany jen na sve formy
takto nastavene a ulozene do repository a nove jsou "zadratovane" a musim u
kazdeho tyto vlastnosti menit rucne?
Diky, Honza.
Access violation pri uzavirani DELPHI
[*] bardon <bardon(zv)akord-soft(tec)cz> - 10.1.2003 17:29:56
Mi se to stava v techto pripadech:
A.
1) Pouzivam vlastni balicky
2) Build provadim bez balicku - tedy vsechno linkuji do exe
3) delam zmenu do zdrojaku komponenty ale neprelozim znovu balicek
Aplikace pak funguje korektne i s novou zmenou, ale pri uzavirani Delphi,
nebo pro uzavirani formulare, ktery pouziva pozmenenou komponentu se objevi
AV.
Vzdy mi v takovem pripade staci prelozit vsechny me balicky a problem
prestane.
B.
V prubehu ladeni se objevi Exceptions v COM objektech (napriklad v ADO).
Dokud ladim je vse OK, jakmile koncim Delphi, vysype to na me jednu i vice
AV. Tohle me trapi vice, ale neumim s tim nic delat. Nedela to pri kazdem
Exception, ale dela to docela casto.
----------
Jinak ale uplne ciste Delphi mi AV nikdy nedelaly.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
> No stava se to i na uplne cistych Delphi, takze chyba bude spis u
> Borlandu. Tyhle hlasky pri vypinani se kazdej asi musi naucit
> ignorovat :)
Me se to nestava ani na 'necistych', takze bych se nejdrive naucil hledat
chybu u sebe ;-)
tisk na nekonecny papir
[*] votava <votava(zv)cmail(tec)cz> - 10.1.2003 17:30:47
zdravim,
muzete mi prosim poradit jak na tisk na nekonecny papir na tiskarne, kde
neni moznost uzivatelkeho nastaveni rozmeru papiru. W2K, D5Prof, Epson LQ300
dekuji Votava
SQL Collation conflict
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.1.2003 17:30:06
Zdravim.
Poradte mi prosim jak mam zjoinovat dve tabulky z ruznych databazi na temze
serveru kdyz jsou kazda s jinou collation.
Zkousel jsem
SELECT .....
FROM db1.dbo.Table1 T1
JOIN db2.dbo.Table2 T2 ON Convert(nchar,T1.JMENO_UZIV) =
Convert(nchar,T2.o_prijmeni)
a porad mi nadava ze pry "Cannot resolve collation conflict for equal to
operation."
Dik Ludek
Access violation pri uzavirani DELPHI
[*] bardon <bardon(zv)akord-soft(tec)cz> - 10.1.2003 17:36:40
To, ze ho nestartujes neznamena, ze se nic neotevira. Oteviraji se ti
vsechny AutoCreate Forms. Takze to musi delat nektery z nich.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ing. Jiri Kubicek
Sent: Friday, January 10, 2003 11:06 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Access violation pri uzavirani DELPHI
Chyba se ukaze u jedineho projektu a to i kdyz vubec nestartuji program,
takze zadny formular se neotvira. Kdyz spustim Delphi, kde se automaticky
natahne zmineny projekt a bez jeho startu zase Delphi zavru, vyskoci AV.
Kdyz ale mezitim vyberu jiny projekt (a tez ho nestartuji ani nekompiluji),
tak pri zavreni Delphi je vse OK.
JK
> > Od jiste doby se mi pri odchodu z D5 ukaze dodatecne hlaska AV v modulu
> > VCL50.bpl. Takto se projevuje ale pouze pri odchodu z jednoho projektu,
> > jinak ne. Na vyslednem EXE nepozoruji zadny spatny vliv.
> Me to delavalo, kdyz se jedna komponenta odkazovala na druhou komponentu
> v jinem formulari, a onen formular nebyl pri uzavirani projektu otevreny.
>
> Radim
SQL Collation conflict 2
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.1.2003 17:52:10
Omlouvam se.
Zapomel jsem rict ze jde o MSSQL 2000
----- Original Message -----
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> Zdravim.
>
> Poradte mi prosim jak mam zjoinovat dve tabulky z ruznych databazi na
temze
> serveru kdyz jsou kazda s jinou collation.
>
> Zkousel jsem
> SELECT .....
> FROM db1.dbo.Table1 T1
> JOIN db2.dbo.Table2 T2 ON Convert(nchar,T1.JMENO_UZIV) =
> Convert(nchar,T2.o_prijmeni)
> a porad mi nadava ze pry "Cannot resolve collation conflict for equal to
> operation."
>
> Dik Ludek
>
>
>
>
>
SQL Collation conflict
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 10.1.2003 18:17:41
Misto Convert je lepsi pouzit vlastni funkci. V te vlastni funkci muze byt
treba ten convert. Snad Ti to pomuze.
Bohdan Voska
> Poradte mi prosim jak mam zjoinovat dve tabulky z ruznych databazi na
temze
> serveru kdyz jsou kazda s jinou collation.
>
> Zkousel jsem
> SELECT .....
> FROM db1.dbo.Table1 T1
> JOIN db2.dbo.Table2 T2 ON Convert(nchar,T1.JMENO_UZIV) =
> Convert(nchar,T2.o_prijmeni)
> a porad mi nadava ze pry "Cannot resolve collation conflict for equal to
> operation."
>
> Dik Ludek
>
>
>
>
>
FTP - Aktualni pozice stahovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.1.2003 18:24:02
From: "Milo� Kastner" <kastner(zv)stereo(tec)cz>
> V Delphi 7 je v helpu k TIdFTP uvedena verze 9.0.
V About mam verzi 9.00.10
> TIdFTP z D7 udalosti OnWork, OnWorkBegin a OnWorkEnd nema.
> Vite nekdo, co je to za verzi Indy v Delphi 7 a kde vzit 9.0.3?
Ja je tam mam. Nejnovejsi verzi pak najdes na http://www.nevrona.com/indy/
Petr Vones
Access violation pri uzavirani DELPHI
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 10.1.2003 18:43:43
V teto diskusi jsem spise mlcel a poslouchal.
Protoze se mi to ale u jednoho projektu taky stavalo, tak jsem si rekl, =
ze to zkusim "vyextrahovat".
Vysledkem je projekt, ktery ma dva formulare, jedinou komponentu, zadny =
kod.
Pada spolehlive v Delphi 4 (vsechny update) a Delphi 5 (s update si =
nejsem jist).
Kvuli Delphi 6 na ucebnu ted nepoletim...(mam jenom skolici verzi, takze =
doma ne)
Problem spociva v tom, ze mam v IDE otevreny formular Form2, ktery neni =
soucasti projektu. Unit2 jsem vyradil z projektu, je ve stejnem =
adresari. Na formulari Form2 je DBGrid.
Pokud je formular soucasti projektu nebo neni v IDE otevreny nebo na nem =
neni DBGrid, zadny problem nenastane.
Na pozadani poslu 4KB zip.
Zkuste si to ale radsi sami - je to jednoduche a poucne.
Je otazka, zda tento priklad hovori za vsechny problemy, nebo jsou jeste =
dalsi speky.
Mne se to stalo jedinkrat a to je ted vyreseno.
Rozhodne to neresi obcasne padani IDE v ramci prace s projektem.
Jde pouze o uzavirani Delphi, nespadne to ani pri ReOpen nebo prostem =
otevreni jineho projektu.
Honza
P.S.
Pripadne dalsi problemy muzeme probrat na seminari "Delphi 2003" (viz =
www.haes(tec)cz)
Zkuste mi je poslat (ale takhle jednoduse a presne) a ja je budu =
evidovat.
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Prednastaveni noveho formu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 10.1.2003 18:57:44
> Odes=EDlatel: Jan Naiser <tua(zv)wo(tec)cz>
> daji se nejak ovlivnit prednastavene hodnoty noveho formu? Mam na =
mysli
> toto: umistim-li do aplikace novy form, aby se mi nastavily property =
podle
> meho nastaveni (napr. ShowHint=3Dtrue...) nebo jsem odkazany jen na =
sve formy
> takto nastavene a ulozene do repository a nove jsou "zadratovane" a =
musim u
> kazdeho tyto vlastnosti menit rucne?
1.
Neni nutno tyto formulare ukladat do Repository.
Jakmile se stanou soucasti projektu, lze od nich dedit.
2.
Jakykoli jiny nez "minimalni" projekt si bez dedicnych formularu =
nedokazu predstavit.
Od toho tu prave dedicnost je, abych si nastavil obecne to, co obecne =
potrebuju.
Zaver:=20
Zadny formular me aplikace (az na jeden hlavni a jeden "zakladni") =
nebude oddeden od TForm.
Budu-li dusledny, budu i hlavni dedit od "obecne hlavniho" a zakladni od =
"obecne zakladniho".
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Access violation pri uzavirani DELPHI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.1.2003 19:00:31
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Na pozadani poslu 4KB zip.
Posli. Pokud se chyba projevuje opakovane tak je na pul vyhrano. V takovych
pripadech je ale dobre, aby o ni Borland vedel, vice na http://qc.borland.com
Petr Vones
SQL - Group by ROK, MESIC
[*] J�n Harman <harman(zv)volny(tec)cz> - 10.1.2003 20:07:57
Ahoj, delam to na FB, ale myslim ze se to tyce obecne SQL.
Mam tabulku a v ni pole TIMESTAMP a nekolik dalsich, ktere ted nejsou
dulezite.
Potrebuji z teto tabulky dostat ve kterych mesicich je alespon nejaky zaznam
a kolik.
Udelal jsem to takto:
SELECT EXTRACT(YEAR FROM DatumCas) AS ROK,
EXTRACT(MONTH FROM DatumCas) AS MESIC,
Count (*)
from WorkData
GROUP BY ROK, MESIC
NEFUNGUJE TO! Napise to ze nezna pole ROK. POMOZTE nekdo PROSIM.
Honza.
SQL Collation conflict
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.1.2003 21:43:49
> > Poradte mi prosim jak mam zjoinovat dve tabulky z ruznych databazi na
> temze
> > serveru kdyz jsou kazda s jinou collation.
> >
> > Zkousel jsem
> > SELECT .....
> > FROM db1.dbo.Table1 T1
> > JOIN db2.dbo.Table2 T2 ON Convert(nchar,T1.JMENO_UZIV) =
> > Convert(nchar,T2.o_prijmeni)
> > a porad mi nadava ze pry "Cannot resolve collation conflict for equal to
> > operation."
----- Original Message -----
From: "Bohdan Voska" <bohdan(zv)softok(tec)cz>
>
> Misto Convert je lepsi pouzit vlastni funkci. V te vlastni funkci muze byt
> treba ten convert. Snad Ti to pomuze.
>
> Bohdan Voska
>
>
Ahoj.
No ono to samozrejme dela i bez Convert tedy pri prostem porovnani :
.......ON T1.JMENO_UZIV = T2.o_prijmeni
convert jsem tam dal ve snaze ten konflikt Collation odstranit.
Co by ta funkce, kterou mas na mysli mela delat. Problem je za kazda
databaze ma jinou collation, proto jsem se to snazi nejprve prevest na
Unicode a pak teprve porovnat.
Ludek
SQL - Group by ROK, MESIC
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.1.2003 21:47:47
----- Original Message -----
From: "J�n Harman" <harman(zv)volny(tec)cz>
....
> SELECT EXTRACT(YEAR FROM DatumCas) AS ROK,
> EXTRACT(MONTH FROM DatumCas) AS MESIC,
> Count (*)
> from WorkData
> GROUP BY ROK, MESIC
>
> NEFUNGUJE TO! Napise to ze nezna pole ROK. POMOZTE nekdo PROSIM.
> Honza.
>
Ahoj.
Zkus GROUP BY 1,2
Ludek
XP controls vs. nativni vizualni Delphi komponenty
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 10.1.2003 22:00:27
Cau,
existuje nejaky zpusob, jak donutit nativni vizualni VCL komponenty k
podobnemu zobrazeni, jako maji new style controls ve WinXP? Mam na mysli
napr. TBitBtn, TSpeedButton, aj. Kdyz do jedne sve aplikace zaresourcuju ten
manifest, tak z toho je pekna cokolada ;-(.
Shut down Windows
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 10.1.2003 22:44:08
LedovecAko sa da vypnut Windows?
Vdaka za kazdu radu.
--------------------------
Tisicky obrazkov na tlacitka a ikonky v Delphi!
www.martinkasman.sk - Sekcia programy zdarma, program Ikony!