Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ClientDataSource
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 23.9.2002 11:02:58
Ahoj Honzo,
ja mam na formu tyto komponenty:
SQLConnection
SQLDataSet
DataSetProvider
ClientDataSet
DataSource
a mrizku - DBGrid.
Propojim to a v DBGridu mam data. OK. ted chci ale treba udelat Update na datech, ne ale v mrizce, ale pomoci SQLka. A tady jsem out...
V.
-----Original Message-----
From: Jan Sebel�k [mailto:honza(zv)haes(tec)cz]
Sent: Friday, September 20, 2002 3:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> Potom jsem chtel data zobrazit v mrizce, v DBGridu, ale jakmile b DBGridu u DataSource chci dat DataSource z SQLQuery, dostanu tuhle chybu:
> Operation not allowed on a unidirectional dataset.
Veskere komponenty dbExpress jsou pouze unidirectional, takze prakticky nejsou pouzitelne.
Ani v dridu, ani pro update, ani pro vyhledavani, ani pro filter.
Pouze "while not eof do dejmidata".
Jsou proto pouzitelne pouze ve spojeni s TDataSetProvider a TClientDataSet.
Pak je v dbExpress jeste komponenta TSQLClientDataSet, ktera toto propojeni interne realizuje.
Osobne bych ji moc nedoporucoval a radsi bych si to propojeni udelal sam.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Interbase 6.1 a LEFT nebo SUBSTR
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 23.9.2002 11:04:08
Pokud muzes prejdi na FB, ten je stabilnejsi nez IB6.01
a ma i funkci substring.
Slavek
> > zkousel jsem nejak dostat group by pro data se stejnymi prvnimi tremi
> > pismeny, ale nejak jsem neoibjevil textovou funkci, ktera by to umela :
> >
> > SELECT ART_CISLO,SUBSTR(ART_DATE,1,3) as CAST_DATE,IDSKLAD, ID_LODE,
>
> InterBase nema standardne funkci SubStr.
> Dodava ji ale jako example na UDF.
> Podivej se do adresare examples (nebo tak nejak).
komponenta pro prumyslove FTP
[*] EFG developer <developer(zv)efg(tec)cz> - 23.9.2002 11:11:16
Hi,
potrebuju komponentu na ftp klienta pro upload firmwaru do prumyslovych
zarizeni.
Nikde ji nemuzu sehnat. Mate s tim nekdo zkusenosti?
btw. standardne to bezi na portu 69.
standardnim ftp klientem mi zarizeni neodpovi, i kdyz to zkousim na port
69.
Petr Sikola
Bezpecne ulozeni dat
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.9.2002 11:20:24
Puvodni zprava, kterou napsal Ing. Jan Dvorak dne 23 Sep 2002:
> Predstavuji si postup takovy, ze pri spusteni programu
> operujiho s datovymi soubory se zada heslo, jehos hash by
> byl pouzit k zakryptovani i odkryptovani retezcu citlivych
A co je tohle za sprosta slova? Lidi, kam na to chodite? Tak bud piste
anglicky a nebo cesky, ale tohle...
Podle meho nazoru, nez tohle zbytecne sifrovat sam polozku po polozce, je
lepsi vyuzit SQL Server nebo jinou Client Server databazi, ktera
podporuje primo sifrovani, a pristup k datum jako takovym potom omezit
pomoci pristupovych prav.
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
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
ICQ: 21215917
=======================================================Odchytenie minimalizacie okna .... Kde je chyba ??
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.9.2002 11:20:31
Melo by stacit povesit si vlastni udalost na Application.OnMinimize.
private
procedure ApplicationEventsMinimize(Sender: TObject);
implementation
procedure TForm1.ApplicationEventsMinimize(Sender: TObject);
begin
ShowMessage('minim');
end;
v OnCreate formu:
Application.OnMinimize := ApplicationEventsMinimize;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.9.2002 Richard Siegl:
> Potrebujem odchytit udalost minimalizacie okna uzivatelom.
> Udalosti restore, maxim funguju ale minimalizacia nie .
> Neviete kde je chyba ???
Bezpecne ulozeni dat
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 23.9.2002 11:24:25
From: "Ing. Jan Dvorak" <dvorak(zv)szu(tec)cz>
> Predtim nez to cele zacnu vymyslet se zde chci
> zeptat, zda s tim jiz ma nekdo zkusenost pripadne
> link, kde bych se mohl v tomto smeru poucit a
Existuje pomerne slusna free knihovna pro Delphi
http://www.torry.net/cryptstrong.htm s nazvem
DEC (Delphi Encryption Compendium). Je do D5, pro
D6 se z duvodu nekompatibility generovaneho kodu
museji udelat asi 3 zmeny - muzu poskytnout.
***
Pouzival jsem ji i proti HW sifratorum od ruznych vyrobcu a i k ucelu
podobnym, jako potrebujes ty.
Obsahuje ruzne hashe, sifry a napr. konverzni funkce do ruznych formatu.
Zasifrovana data potrebujes prevest zpravidla do
"printable" tvaru, nejvhodnejsi je asi Mime-Base64 -> zabere to 4/3 vice
mista (je case sensitive)
Zbytek uz je otazka dalsich pozadavku
a) na rychlost
b) na bezpecnost
Jaka sifra, jaky hash apod. - setkal jsem se s pozadavkem zakaznika, ktery
chtel hesla pulena
(kazdou pulku mel jeden senior manager) a ti hesla menili kazdych 90 dni,
takze se to muselo
automaticky presifrovat atd.
HTH, pf
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 23.9.2002 11:28:00
> Potrebujem odchytit udalost minimalizacie okna uzivatelom.
> Udalosti restore, maxim funguju ale minimalizacia nie .
> Neviete kde je chyba ???
> procedure tform1.Zmena(var Message: TMessage);
> begin
> if message.WParam = SIZE_MINIMIZED then ShowMessage('minim');
> if message.WParam = SIZE_MAXIMIZED then ShowMessage('maxim');
> if message.WParam = SIZE_RESTORED then ShowMessage('resto');
> inherited;
> end;
Ahoj,
zkus misto ShowMessage pouzit logovani do souboru. Ja myslim, ze je to co do
kodu spravne.
Logicky bych usuzoval, ze aplikace po minimalizaci nema byt aktivni ... tudiz
i zobrazovani hlasky ShowMessage bych nepouzil.
Je to jen myslenka ...
Ahoj Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
Kde koupit EMS QuickDesk
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 23.9.2002 11:52:37
Poradte prosim jak a kde v CR nejsnaze koupit EMS QuickDesk
dik
Pavel Bares
Atoll s.r.o.
K Vi��ovce 1560
530 02 Pardubice
Tel. / Fax.: 040 6310510
Prace s databazi - zacatky
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.9.2002 11:58:47
> > Byl bych rad, kdybyste mi nekdo poslal ukazkovy progrma(ktyry
> > bude data
> > ukladat treba do souboru data.dat) na adresu simecky(zv)centrum(tec)cz.
> >
> > Mam doma D4 profesinal a D6 personal.
V D6Personal si na data asi nesahnes, protoze tam databazova podpora neni.
K praci s databazi pak existuje spousta literatury od navrhu a implementace databaze az po programovani databazoveho klienta v Delphi, probirani ruznych technologii a technik pripojeni k databazi, ...
Je toho dost.
Taky kurzy, ten zakladni dokonce hned pristi tyden :-)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
QUICKREPORT A MEMO
[*] Michal Sefcik <sefcik(zv)benefitcz(tec)cz> - 23.9.2002 12:03:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of J�n Kuch�r
> Sent: Monday, September 23, 2002 8:58 AM
> To: Delphi
> Subject: QUICKREPORT A MEMO
> OTAZKY :
> 1 - jak zabezpecit prave to vypisovani za sebou
> 2 - co kdyz nebudu chtit zrusit zobrazeni napr. M3, jak posunout poradi
tech
> ostatnich memo pozic
>
Ja resim vypis promenliveho poctu poznamek do 3 sloupcu generovanim
childbandu a qrmemo komponent na nich s pouzitim teto tridy:
type PMemoItem = ^TMemoItem;
TMemoItem = record
Band : TQRChildBand;
MA : array[1..3] of TQRMemo;
Next : PMemoItem;
end;
TMemoList = class
First : PMemoItem;
constructor Create;
destructor Destroy;
public
procedure Add(F : TForm);
end;
constructor TMemoList.Create;
begin
First := nil;
end;
destructor TMemoList.Destroy;
var pi : PMemoItem;
i : byte;
begin
while First <> nil do begin
pi := First;
First := First.next;
for i := 1 to 3 do
if pi.MA[i] <> nil then pi.MA[i].Free;
pi.Band.Free;
Dispose(pi);
end;
end;
procedure TMemoList.Add(F : TForm);
var pi, pn : PMemoItem;
i : byte;
begin
pi := First;
// najdi posledn�
while (pi <> nil) and (pi.Next <> nil) do
pi := pi.Next;
if (pi = nil) or (pi.MA[3] <> nil) then begin
new(pn);
pn^.Band := TQRChildBand.Create(F);
pn^.Band.Parent := (F as TFP_Kons).QuickRep1;
pn^.Band.Height := 116;
for i := 1 to 3 do
pn^.MA[i] := nil;
pn^.Next := nil;
if pi = nil then begin
pn^.Band.ParentBand := (F as TFP_Kons).cb_Ostatni;
First := pn;
end else begin
pn^.Band.ParentBand := pi^.Band;
pi^.Next := pn;
end;
pi := pn;
end;
for i := 1 to 3 do
if pi^.MA[i] = nil then Break;
pi^.MA[i] := TQRMemo.Create(F);
pi^.MA[i].Parent := pi^.Band;
pi^.MA[i].Height := 113;
pi^.MA[i].Width := 235;
pi^.MA[i].Left := 5 + (i-1)*240;
pi^.MA[i].Top := 0;
pi^.MA[i].Font.Size := 8;
pi^.MA[i].Lines := (F as TFP_Kons).DBMemo.Lines;
end;
BeforePrint reportu vycreatuju tento seznam a naplnim jej pomoci metody Add;
v AfterPrint jej Destroynu. Kod urcite neni optimalni, nicmene je funkcni
:-))
************************************************************
Ing.Mgr. Michal Sefcik
Benefit CZ, s.r.o.
Hrub�ho 11, 612 00 Brno
tel: +420 5 41219098, 9
fax: +420 5 41215886
http: www.benefitcz(tec)cz
************************************************************
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] Richard Siegl <rsiegl(zv)elas.sk> - 23.9.2002 12:05:55
Dakujem .... funguje to spravne
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 23, 2002 11:20 AM
Subject: Re: Odchytenie minimalizacie okna .... Kde je chyba ???> Melo by stacit povesit si vlastni udalost na Application.OnMinimize.
>
> private
> procedure ApplicationEventsMinimize(Sender: TObject);
>
> implementation
> procedure TForm1.ApplicationEventsMinimize(Sender: TObject);
> begin
> ShowMessage('minim');
> end;
>
> v OnCreate formu:
> Application.OnMinimize := ApplicationEventsMinimize;
>
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 23.9.2002 Richard Siegl:
>
> > Potrebujem odchytit udalost minimalizacie okna uzivatelom.
> > Udalosti restore, maxim funguju ale minimalizacia nie .
> > Neviete kde je chyba ???
>
>
>
IB - zakladni nastaveni+rozjeti RemoteServer+pocet
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.9.2002 12:05:39
> Odes�latel: Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz>
> 3)Daji se prava k databazi, tabulkam nastavovat nejak vizualne (napr. pomoci IBConsole)?
> Prisel jsem jen na zpusob pomoci SQL - GRANT.
Ne.
A u slozitejsich databazi je to peknej vopruz. Tim spis, ze se musi grantovat i ulozene procedury, triggery, nestaci uzivateli grantovat tabulku, kdyz je na ni trigger (nebo snad dokonce jen foreign key), ktery saha na jine tabulky, ...
> 4) V projektu, kterym se snazim pristupovat k databazi, pouzivam IBDatabaze, IBTransaction,
> IBQuery, DataSource. Jde nejak zadat (aspon pro navrh projektu) default user_name a defult
> password, abych to nemusel 1000 do hodiny vypisovat? Jak?
user_name a password do IBDatabase.Params,
IBDatabase.LoginPromt=false.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
komponenta pro prumyslove FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.9.2002 12:17:23
To co potrebujes neni FTP, ale TFTP (trivial FTP), ne? To by melo
umet treba Indy...
> potrebuju komponentu na ftp klienta pro upload firmwaru do
> prumyslovych zarizeni. Nikde ji nemuzu sehnat. Mate s tim nekdo
> zkusenosti? btw. standardne to bezi na portu 69.
>
> standardnim ftp klientem mi zarizeni neodpovi, i kdyz to zkousim na
> port 69.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
QUICKREPORT A MEMO
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.9.2002 12:19:10
Kazdou dvojici memopolozek dej na samostatny band a zrus autosize
Pavel
> -----P�vodn� zpr�va-----
> Od: Karel Horky [mailto:horky.karel(zv)quick(tec)cz]
> Odesl�no: 24. z��� 2002 12:28
> Komu: J�n Kuch�r
> P�edm�t: Re: QUICKREPORT A MEMO
>
>
> J�n Kuch�r, <mailto:kuchar(zv)unicodesys(tec)cz> napsal:
> > ted potrebuju zabezepecit vypis techto jednotlivych textu jako
> > samostatne bloky na quickreport asi nasledovne :
>
> > M1 M2 M3
> > M4 M5 M6
> > M7 M8 M9
>
> > kde cisla M1-az xxx predsavuji prave ty jednotlive texty z
> mema o nekolika
> > radcich a o libovolne delce radku.
>
> Kdysi jsem delal sestavy, ktere vypisovaly retezce konstantni delky do
> nekolika sloupcu (1 az 8), pocet sloupcu byl zavisly prave na delce
> retezcu. Bylo to dost huste. Proc si to komplikovat a nepsat
> to krasne jedno
> memo pod druhe ? Zvlast pokud kazde memo ma nekolik radku o libovolne
> delce.
>
> > 2 - co kdyz nebudu chtit zrusit zobrazeni napr. M3, jak
> posunout poradi tech
> > ostatnich memo pozic
>
> Pri vypisu pod sebe se tento problem vyresi sam :-).
> ------
> S pozdravem Karel Horky
> horky.karel(zv)quick(tec)cz
> W2K/SP2, D5Ent/UP1
>
CoMarshalInterface vraci E_INVALIDARG
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 23.9.2002 12:23:09
Hm, pokud mas ten interface vzity z TDispatch, neni nutno pri jeho predavani
do jineho
procesu marshallovat. Manualni marshalovani je nutne pouze pri predavani
mezi apartmenty uvnitr procesu. Mimo process se o to stara standardni
proxy-stub, akorat nutno pouzivat pouze automation compatible typy, ale to
asi vis.
Ale zpatky k tomu problemu. Nemuze to byt tim, ze na tech masinach nemas
registrovana vsechna pozuvana rozhrani. Mel jsem problemy s tim, ze pokud
jsem pouzival eventy mezi dvema PC, musel jsem mit rozhrani jak serveru, tak
i klienta registrovana na obou strojich, mam dojem, ze jsem nekde cetl o
souvislosti s tim, jak Delphi pracuji s typovymi knihovnami. Nemuze to byt
timhle ???
O :-))
> -----Puvodni zprava-----
> >Kde se vzalo FEvents ve volani CoMarshalInterface ???
>
> FEvents je private atribut tridy TKCH_DCOM_03, ktery byl vytvoren pomoci
> wizardu v D6 (na zaklade DAX) a obsahuje source interface, jehoz metody
> musi klient implementovat v sink objektu. V tomto konkretnim pripade,
> obsahuje, mimo jine i metodu OnEvent, kterou klient MUSI implementovat.
> Tento interface se tedy snazim marshalovat. V pripade behu jako
> out-process
> je vse OK. V pripade behu klienta a serveru na ruznych PC dojde
> ke zminene
> chybe E_INVALIDARG pri volani CoMarshalInterface.
Bezpecne ulozeni dat
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 23.9.2002 12:24:56
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> Podle meho nazoru, nez tohle zbytecne sifrovat sam polozku po polozce, je
> lepsi vyuzit SQL Server nebo jinou Client Server databazi, ktera
> podporuje primo sifrovani, a pristup k datum jako takovym potom omezit
> pomoci pristupovych prav.
Pokud vim, tak v puvodnim prispevku byl pozadavek na bezpecne ulozeni udaju
v archivovanych souborech.
***
BTW, mas zkusenosti s sifrovanim na urovni SQL stroje na Wintel platforme?
Ktereho?
bye, pf
ClientDataSource
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 23.9.2002 12:27:09
Co tedy pouzit pro "datarinu" ???
BDE jde do hrobu, dbExpress je k nepou�it�... ADO ???
V.
-----Original Message-----
From: Jan Sebel�k [mailto:honza(zv)haes(tec)cz]
Sent: Friday, September 20, 2002 3:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> Potom jsem chtel data zobrazit v mrizce, v DBGridu, ale jakmile b DBGridu u DataSource chci dat DataSource z SQLQuery, dostanu tuhle chybu:
> Operation not allowed on a unidirectional dataset.
Veskere komponenty dbExpress jsou pouze unidirectional, takze prakticky nejsou pouzitelne.
Ani v dridu, ani pro update, ani pro vyhledavani, ani pro filter.
Pouze "while not eof do dejmidata".
Jsou proto pouzitelne pouze ve spojeni s TDataSetProvider a TClientDataSet.
Pak je v dbExpress jeste komponenta TSQLClientDataSet, ktera toto propojeni interne realizuje.
Osobne bych ji moc nedoporucoval a radsi bych si to propojeni udelal sam.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.9.2002 12:33:43
> Potrebujem odchytit udalost minimalizacie okna uzivatelom.
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var Message: TWMSysCommand); message
WM_SYSCOMMAND;
end;
implementation
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType and $FFF0 of
SC_MINIMIZE:
ShowMessage('minimize');
SC_MAXIMIZE:
ShowMessage('maximize');
SC_RESTORE:
ShowMessage('restore');
end;
inherited;
end;
> Melo by stacit povesit si vlastni udalost na Application.OnMinimize.
To funguje len pre hlavne okno aplikacie.
HTH
TOndrej
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 23.9.2002 12:33:15
Ahoj,
> rsiegl(zv)elas.sk 23.9.02 11:00 >>>
>Potrebujem odchytit udalost minimalizacie okna uzivatelom.
>Udalosti restore, maxim funguju ale minimalizacia nie .
>Neviete kde je chyba ???
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var AMsg:TMessage); message WM_SYSCOMMAND;
end;
procedure TForm1.WMSysCommand(var AMsg:TMessage);
begin
case AMsg.WParam of
SC_MINIMIZE : ShowMessage('Minimize');
SC_MAXIMIZE : ShowMessage('Maximize');
SC_RESTORE : ShowMessage('Restore');
end;
inherited;
end;
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 23.9.2002 12:40:49
Ahoj,
> jan.fiala(zv)iol(tec)cz 23.9.02 11:20 >>>
>Melo by stacit povesit si vlastni udalost na Application.OnMinimize.
>Application.OnMinimize := ApplicationEventsMinimize;
timhle to nezajistis ale pro vsechna okna, jen pro to hlavni, pro ostatni musis odchytavat WM_SYSCOMMAND
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Odchytenie minimalizacie okna .... Kde je chyba ??
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.9.2002 12:53:00
23.9.2002 Blazek Jaroslav:
>> jan.fiala(zv)iol(tec)cz 23.9.02 11:20 >>>
>>Melo by stacit povesit si vlastni udalost na Application.OnMinimize.
>>Application.OnMinimize := ApplicationEventsMinimize;
> timhle to nezajistis ale pro vsechna okna, jen pro to hlavni, pro
> ostatni musis odchytavat WM_SYSCOMMAND
Vim, ale predpokladal jsem, ze jde o hlavni okno. Pro MDI aplikaci a
child okna to samozrejme neni...
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
zip32.dll
[*] likeapear <likeapear(zv)centrum(tec)cz> - 23.9.2002 12:54:35
> Zkus napsat cely postup (vcetne deklarace) , asi tam mas chybu.
> Pavel
posilam cely unit, snad to admin prezije...
D_Zip32 a D_UnZip32 jsou orig. unity s rozhranim k dll. problem nastava ve
funkci ZipFiles...
unit D_Web_Procs;
interface
uses
Windows, SysUtils, Classes, D_Zip32, D_UnZip32;
function ZipFiles(ZipName : string; FileList: TStrings; JunkDir: boolean;
RootDir: String): boolean;
function ZipFile(ZipName, FileName : string; JunkDir: boolean; RootDir:
String): boolean;
function UnZipFiles(FileName,Dir: String): boolean;
implementation
function ZipProcPrint(Buffer: PChar; Size: ULONG): integer; stdcall;
begin
Result:=Size;
end;
function ZipProcPassword(P: PChar; N: Integer; M, Name: PChar): integer;
stdcall;
begin
Result:=1;
end;
function ZipProcComment(Buffer: PChar): PChar; stdcall;
begin
Result:=Buffer;
end;
function ZipProcService(Buffer: PChar; Size: ULONG): integer; stdcall;
begin
Result:=0;
end;
procedure ZipSetProcInitFunctions(var Z:TZipUserFunctions);
begin
with Z do
begin
(zv)Print := (zv)ZipProcPrint;
(zv)Comment := (zv)ZipProcComment;
(zv)Password := (zv)ZipProcPassword;
(zv)Service := (zv)ZipProcService;
end;
ZpInit(Z);
end;
function ZipFiles(ZipName : string; FileList: TStrings; JunkDir: boolean;
RootDir: String): boolean;
var
i : integer;
ZipRec : TZCL;
ZUF : TZipUserFunctions;
FNVStart : PCharArray;
ZipOptions: TZPOpt;
PRootDir: PChar;
begin
Result:=false;
try
PRootDir:=StrAlloc(Length(RootDir)+1);
try
StrPCopy(PRootDir,RootDir);
ZipOptions:=ZpGetOptions;
ZipOptions.fJunkDir:=JunkDir;
ZipOptions.szRootDir:=PRootDir; //'C:\Zumpa\www\';
ZpSetOptions(ZipOptions);
{ precaution }
if Trim(ZipName) = '' then Exit;
if FileList.Count <= 0 then Exit;
{ initialize the dll with Proc functions }
ZipSetProcInitFunctions(ZUF);
{ number of files to zip }
ZipRec.argc := FileList.Count;
{ name of zip file - allocate room for null terminated string }
GetMem(ZipRec.lpszZipFN, Length(ZipName) + 1 );
ZipRec.lpszZipFN := StrPCopy( ZipRec.lpszZipFN, ZipName);
try
{ dynamic array allocation }
GetMem(ZipRec.FNV, ZipRec.argc * SizeOf(PChar));
FNVStart := ZipRec.FNV;
try
{ copy the file names from FileList to ZipRec.FNV dynamic array }
for i := 0 to ZipRec.argc - 1 do
begin
GetMem(ZipRec.FNV^[i], Length(FileList[i]) + 1 );
StrPCopy(ZipRec.FNV^[i], FileList[i]);
end;
try
{ send the data to the dll }
Result:=(ZpArchive(ZipRec)=0);
finally
{ release the memory for the file list }
ZipRec.FNV := FNVStart;
for i := (ZipRec.argc - 1) downto 0 do
FreeMem(ZipRec.FNV^[i], Length(FileList[i]) + 1 );
end;
finally
{ release the memory for the ZipRec.FNV dynamic array }
ZipRec.FNV := FNVStart;
FreeMem(ZipRec.FNV, ZipRec.argc * SizeOf(PChar));
end;
finally
{ release the memory for the FileName }
FreeMem(ZipRec.lpszZipFN, Length(ZipName) + 1 );
end;
finally
StrDispose(PRootDir);
end;
except
end;
end;
function ZipFile(ZipName, FileName : string; JunkDir: boolean; RootDir:
String): boolean;
var
FileList: TStrings;
begin
FileList:=TStringList.Create;
try
FileList.Add(FileName);
Result:=ZipFiles(ZipName,FileList,JunkDir,RootDir);
finally
FileList.Free;
end;
end;
function UnZipProcPrnt(Buffer: PChar; Size: ULONG): integer; stdcall;
begin
Result:=Size;
end;
function UnZipProcPassword(P: PChar; N: Integer; M, Name: PChar): integer;
stdcall;
begin
Result:=1;
end;
function UnZipProcService(CurFile: PChar; Size: ULONG): integer; stdcall;
begin
Result:=0;
end;
function UnZipProcReplace(FileName: PChar): integer; stdcall;
begin
Result:=1;
end;
procedure UnZipProcSound; stdcall;
begin
end;
procedure UnZipProcMessage(UnCompSize: ULONG; CompSize: ULONG; Factor: UINT;
Month: UINT; Day: UINT; Year: UINT; Hour: UINT; Minute: UINT; C: Char;
FileName: PChar; MethBuf: PChar; CRC: ULONG; Crypt: Char); stdcall;
begin
end;
procedure UnZipSetProcInitFunctions(var Z:TUserFunctions);
begin
with Z do
begin
(zv)Print := (zv)UnZipProcPrnt;
(zv)Sound := (zv)UnZipProcSound;
(zv)Replace := (zv)UnZipProcReplace;
(zv)Password := (zv)UnZipProcPassword;
(zv)SendApplicationMessage := (zv)UnZipProcMessage;
(zv)ServCallBk := (zv)UnZipProcService;
end;
end;
function UnZipFiles(FileName,Dir: String): boolean;
var
UF: TUserFunctions;
UnZipOptions: TDCL;
PDir: PChar;
PFileName: PChar;
begin
Result:=false;
try
PDir:=StrAlloc(Length(Dir)+1);
PFileName:=StrAlloc(Length(FileName)+1);
try
StrPCopy(PDir,Dir);
StrPCopy(PFileName,FileName);
{ set user functions }
UnZipSetProcInitFunctions(UF);
{ set unzip operation options }
FillChar(UnZipOptions,SizeOf(UnZipOptions),#0);
UnZipOptions.nDFlag:=1;
UnZipOptions.nOFlag:=1;
UnZipOptions.lpszExtractDir:=PDir;
UnZipOptions.lpszZipFN:=PFileName;
{ unzip }
Wiz_SingleEntryUnzip(0,nil,0,nil,UnZipOptions,UF);
Result:=true;
finally
StrDispose(PDir);
StrDispose(PFileName);
end;
except
end;
end;
end.
ClientDataSource
[*] delfi <delfi(zv)pocitac(tec)net> - 23.9.2002 12:56:22
Hi, pouzivam to stejne jako ty. Napsal jsem si unit, ktery z TClientDataSetu
generuje sql dotazy na insert, update...
ales
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 23, 2002 11:02 AM
Subject: RE: ClientDataSource
Ahoj Honzo,
ja mam na formu tyto komponenty:
SQLConnection
SQLDataSet
DataSetProvider
ClientDataSet
DataSource
a mrizku - DBGrid.
Propojim to a v DBGridu mam data. OK. ted chci ale treba udelat Update na
datech, ne ale v mrizce, ale pomoci SQLka. A tady jsem out...
V.
-----Original Message-----
From: Jan Sebel�k [mailto:honza(zv)haes(tec)cz]
Sent: Friday, September 20, 2002 3:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> Potom jsem chtel data zobrazit v mrizce, v DBGridu, ale jakmile b DBGridu
u DataSource chci dat DataSource z SQLQuery, dostanu tuhle chybu:
> Operation not allowed on a unidirectional dataset.
Veskere komponenty dbExpress jsou pouze unidirectional, takze prakticky
nejsou pouzitelne.
Ani v dridu, ani pro update, ani pro vyhledavani, ani pro filter.
Pouze "while not eof do dejmidata".
Jsou proto pouzitelne pouze ve spojeni s TDataSetProvider a TClientDataSet.
Pak je v dbExpress jeste komponenta TSQLClientDataSet, ktera toto propojeni
interne realizuje.
Osobne bych ji moc nedoporucoval a radsi bych si to propojeni udelal sam.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
komponenta pro prumyslove FTP
[*] EFG developer <developer(zv)efg(tec)cz> - 23.9.2002 12:59:35
Dekuji, uz to mam vyreseno, prave pomoci Indy
Petr Sikola
> To co potrebujes neni FTP, ale TFTP (trivial FTP), ne? To by
> melo umet treba Indy...
Bezpecne ulozeni dat
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 23.9.2002 13:12:34
skus urobit HESLOm XOR stringu
je to jednoduche, rychle a nie je na prvy pohlad jasne co tam je :o) alebo
potom mozes urobit aj nieco fikanejsie a to podla hesla si vyberies z
nejakej tabulky znakov prislusne kody... nuz robil som jeden taky programcek
na kryptovanie suborov ale tam som este pouzil neuplny kluc ktory sa
jednoducho v programe dogeneroval do uplneho a az potom som to nim kryptoval
a tento kluc bol este chraneny heslom... ale to je uz asi pre teba riadne
prekombinovane, doporucujem XOR s nejakou fikanou modifikaciou, inak sa
radsej vrhni na kryptovacie kniznice delphi
joka
-----Original Message-----
From: Ing. Jan Dvorak [mailto:dvorak(zv)szu(tec)cz]
Sent: Monday, September 23, 2002 11:01 AM
To: Konference Delphi (el. adresa)
Subject: Bezpecne ulozeni dat
Zdravim ucastniky konference.
Ve sve aplikaci tykajici se zpracovani medicinskych a
psychologickych dat potrebuji nektere udaje archivovane v
souborech bezpecne ulozit tak, aby k nim mela pristup jen
povolana osoba. Jde o osobni data ve tvaru stringu: jmeno,
bydliste apod. Ostatni data maji byt volne k dispozici pro
statisticke zpracovani a jine ucely.
IB - zakladni nastaveni+rozjeti RemoteServer+pocet
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.9.2002 13:13:57
> 1) bez problemu jsem rozjel LocalServer. Proc nemuzu stejne rozjet
> RemoteServer?
> Mam sitovou kartu, instalovany TCP/IP protokol, ale porad nic.
> Instaloval jsem
> FULL IB,takze by mi nemelo nic chybet. Jediny co nevim, jestli muze
> byt problem je, ze nemam k memu PC nic pripojeno.
Co znamena, nemam nic pripojeno? V lokalni siti normalne neni problem server
videt, takhle je tezko neco poradit.
2) Chci se
> zeptat kde muzu ovlnit pocet pripojeni k databazi. Stalo se mi, ze
> jsem mel rozjetou IBConsole a zaroven jsem chtel delat v Delphi a to
> mi hlasilo, ze uzivatel SYSDBA je uz pripojen a ze se mam poradit s
> administratorem.
To je divny. Co mas za verzi IB nebo FireBirda? Pres jake komponenty se
pripojujes? Ja totiz o zadnem podobnem omezeni nevim.
3)Daji se prava k databazi,
> tabulkam nastavovat nejak vizualne (napr. pomoci IBConsole)?
V IB consoli jde delat vizualne hrozne malo veci. Doporucuji pouzit lepsi nastroj,
napr. IBExpert (www.ibexpert.com, pokud to jeste plati). Tam to jde.
4) V projektu, kterym se snazim
> pristupovat k databazi, pouzivam IBDatabaze, IBTransaction, IBQuery,
> DataSource. Jde nejak zadat (aspon pro navrh projektu) default
> user_name a defult password, abych to nemusel 1000 do hodiny
> vypisovat? Jak?
Zkus dvojklik na komponentu IBDatabase. Jinak doporucuji si zvyknout pouzivat
nikoli jednu IBTransaction pro celou aplikaci, ale pro kazdy IBDataset vlastni
IBTransaction. Pouzivat IBDataset misto IBQuery. Na transakci lze tez dvakrat
kliknout a v mnoha pripadech bude rozumne zvolit "read commited".
David Lebeda
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 23.9.2002 13:15:08
Prominte, ze se znovu pripominam, opravdu mi nikdo nemuzete ani malinko napovedet, kterym smerem se ubirat?
Moc by mi to pomohlo.
Tomas
> -----Original Message-----
> From: Tomas Folprecht [mailto:tomas(zv)apkfolprecht(tec)cz]
> Sent: Wednesday, September 18, 2002 11:53 AM
>
> Dobry den,
>
> rad bych pozadal o radu.
> Nevim, jak ve wordovskem dokumentu ovladanem pres TWordDocument z Delphi 5 nastavovat vlastnosti dokumentu,
> jako nazev, autor, spolecnost....
> TWordDocument obsahuje "CustomDocumentProperties" a "BuiltInDocumentProperties", to bude asi ono, ale vubec
> nevim, jak k nim pristupovat. Jsou typu IDispatch a ja bohuzel nevim, co to je.
>
> Dekuji za kazdou radu
>
> Tomas Folprecht
Bezpecne ulozeni dat
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 23.9.2002 13:34:33
este k tomu co som pisal, ten programcek co som robil si mozes skusit
stiahnut z www.equipment.sk je tam daka funkcna test verzia, ak sa ti to
bude pozdavat mozem poslat aj zdrojak v delphi ale vopred upozornujem, ze v
tom sa ani diva svina uz nevyzna... to je tak ked clovek zacina s delphi a
pred tym robil v klasickom C... :o)
joka
PS: mal by tam byt aj navod ako to pouzivat, aspon sa mi zda ze som ho tam
daval :o)
-----Original Message-----
From: Ing. Jan Dvorak [mailto:dvorak(zv)szu(tec)cz]
Sent: Monday, September 23, 2002 11:01 AM
To: Konference Delphi (el. adresa)
Subject: Bezpecne ulozeni dat
Zdravim ucastniky konference.
Ve sve aplikaci tykajici se zpracovani medicinskych a
psychologickych dat potrebuji nektere udaje archivovane v
souborech bezpecne ulozit tak, aby k nim mela pristup jen
povolana osoba. Jde o osobni data ve tvaru stringu: jmeno,
bydliste apod. Ostatni data maji byt volne k dispozici pro
statisticke zpracovani a jine ucely.
zip32.dll
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 23.9.2002 13:54:27
>
> ZipOptions.szRootDir:=PRootDir; //'C:\Zumpa\www\';
> { name of zip file - allocate room for null terminated string }
> GetMem(ZipRec.lpszZipFN, Length(ZipName) + 1 );
> ZipRec.lpszZipFN := StrPCopy( ZipRec.lpszZipFN, ZipName);
> finally
> { release the memory for the FileName }
> FreeMem(ZipRec.lpszZipFN, Length(ZipName) + 1 );
> end;
>
Ahoj,
pro szRootDir pouzij stejny postup jako pro lpszZipFN.
Pavel
Problem s SQL
[*] Karel Zelnicek <Zelnicek(zv)seznam(tec)cz> - 23.9.2002 14:10:53
Nazdar,
mam takovy problem s SQL. Kdyz delam SELECT z vice nez dvou tabulek a
jeden ze SELECTovanych sloupcu je typu MEMO, tak to MEMO je ve
vysledku uplne prazdne, ackoliv v te tabulce prazdne neni. Pouzivam
Delphi2, tabulky jsou Paradox.
Jestli nekdo tusite, co s tim, bude to uplne super.
Karel
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
zip32.dll
[*] likeapear <likeapear(zv)centrum(tec)cz> - 23.9.2002 14:14:15
> pro szRootDir pouzij stejny postup jako pro lpszZipFN.
>
> Pavel
dekuji za zajem, ale bohuzel to nepomohlo...debugger ukazuje vse jak ma byt,
ale proste se to chovat tak, jakoby szRootDir vubec nebyl nastaven. co mi
vrta hlavou nejvic je to, ze pokud to nastavim natvrdo, tak to funguje.
nevim jeslti to nemuze souviset s tim, ze pouzivame borlndmm.dll nebo nakym
nastavenim prekladace...
likeapear
Re[2x]: IB - zakladni nastaveni+rozjeti RemoteServ
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 23.9.2002 14:27:48
> > 1) bez problemu jsem rozjel LocalServer. Proc nemuzu stejne rozjet
> > RemoteServer?
> > Mam sitovou kartu, instalovany TCP/IP protokol, ale porad nic.
> > Instaloval jsem
> > FULL IB,takze by mi nemelo nic chybet. Jediny co nevim, jestli muze
> > byt problem je, ze nemam k memu PC nic pripojeno.
>
> Co znamena, nemam nic pripojeno? V lokalni siti normalne neni problem server
> videt, takhle je tezko neco poradit.
Myslel jsem tim, ze mam jen jeden stroj, na kterym je sitovka a vse, pro
spojeni pomoci TCP/IP, je instalovano. (obcas mam pripojenej notebook). Povedlo
se mi registrovat LocalServer, ale uz se mi nepovedlo registrovat RemoteServer.
Mam zapsany chybovy hlaseni, ale ty jsem pochopitelne nechal doma. Bylo to
neco jako: "Unable to connect ... network ...".
Muzete mi rict, co mam presne vyplnit pri registraci RemoteServer?
> 2) Chci se
> > zeptat kde muzu ovlnit pocet pripojeni k databazi. Stalo se mi, ze
> > jsem mel rozjetou IBConsole a zaroven jsem chtel delat v Delphi a to
> > mi hlasilo, ze uzivatel SYSDBA je uz pripojen a ze se mam poradit s
> > administratorem.
>
> To je divny. Co mas za verzi IB nebo FireBirda? Pres jake komponenty se
> pripojujes? Ja totiz o zadnem podobnem omezeni nevim.
Pouzivam IB (aspon zatim) primo dodavanou s D6Prof. Je to 6.xx. Myslel jsem,
jestli nebude problem, ze mam tu databazi pripojenou jako LocalServer. Nevim.
Komponenty v projektu pouzivam: IBDatabase, IBTransaction, IBQuery, DataSource,
DBGrid.
Mozna by mi pomohlo i vysvetleni jaky je rozdil mezi Local Serverem a
RemoteServerem.
> David Lebeda
Diky Jirka.
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Prekvapive dobry signal! Presvedcte se v Oskar Testu ...
http://www.oskarmobil(tec)cz/oskartest
Bezpecne ulozeni dat
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.9.2002 14:38:37
Puvodni zprava, kterou napsal Petr Fejfar dne 23 Sep 2002:
> BTW, mas zkusenosti s sifrovanim na urovni SQL stroje na Wintel platforme?
> Ktereho?
Sybase SQL Anywhere. Nebo take FlashFiler pro mensi systemy.
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
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
ICQ: 21215917
=======================================================Bezpecne ulozeni dat
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.9.2002 14:41:24
Puvodni zprava, kterou napsal Ing. Jan Dvorak dne 23 Sep 2002:
> Asi jsem se nevyjadril dostatecne presne. Jina data v
> souborech nejsou tajna, je dokonce nutno k nim pristupovat
> pro zpracovani prehledu na jinem pracovisti. Jenom nesmi byt
> prirazena ke konkretni osobe.
Vyjadril ses dostatecne presne a ja to doufam pochopil. Neni problem na
SQL Serveru nastavit prava pro konkretni sloupce (jmeno, prijmeni, rodne
cislo) jinak nez na ostatni sloupce (statisticke hodnoty). Pak mas
zajisteno, ze na urcite sloupce se budou moci dotazovat jen vybrani
uzivatele. A pokud SQL Server podporuje opravdove sifrovani (napr. Sybase
SQL Anywhere), pak se tam jinak nedostanes...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
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
ICQ: 21215917
=======================================================Prace s databazi - zacatky
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 23.9.2002 14:51:33
On 23 Sep 2002 at 11:58, Jan Sebel�k wrote:
> V D6Personal si na data asi nesahnes, protoze tam databazova podpora
> neni.
Sahne, musi na to ale oklikou. Budto muze pouzit primo MS ADO, a do
komponent si data nastouchat rucne, nebo muze pouzit moje OLE DB, ty
jsou vsak odladeny pro MS SQL, jine databaze jsem nezkousel.
S pozdravem
Zbysek Hlinka
Formular vzdy na vrchu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 23.9.2002 15:02:01
Zdravim
mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
okno.
procedure TIntellForm.FormCreate(Sender: TObject);
begin //??
intellform.Top:=0;
intellform.show;
table1.visible:=false;
intellform.FormStyle:=fsStayOnTop;
height:=19;
end
no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
mi to nejde. nevite kde je problem
Milan
zip32.dll
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 23.9.2002 15:08:31
> vrta hlavou nejvic je to, ze pokud to nastavim natvrdo, tak to funguje.
to me prave vedlo k tomu, ze tam mas chybu
> nevim jeslti to nemuze souviset s tim, ze pouzivame borlndmm.dll nebo
nakym
zkousel si precist (programove) co jsi skutecne nastavil ?
Jinak ti neporadim, jen jsem poprve zareagoval, protoze sam mam nekdy
problemy s michanim String x PChar a myslel jsem, ze je chyba tam.
Pavel
Re[2x]: IB - zakladni nastaveni+rozjeti RemoteServ
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.9.2002 15:13:16
Ahoj,
nemam zkusenosti s D6 a nevim, co k nemu dodavaji. Nicmene doporucuji kouknout
na www.ibphoenix(tec)cz, tam nekde najit FireBird pro Windows ke stazeni, stahnout a
nainstalovat. Neni to nic tezkeho ani zaludneho.
> Myslel jsem tim, ze mam jen jeden stroj, na kterym je sitovka a vse,
> pro spojeni pomoci TCP/IP, je instalovano. (obcas mam pripojenej
> notebook). Povedlo se mi registrovat LocalServer, ale uz se mi
> nepovedlo registrovat RemoteServer.
Tomuhle nejak nerozumim, ale nevadi. Pokud nainstalujes FB, muzes k nemu pak
pristupovat lokalne i vzdalene, nicmene i pri lokalnim pristupu doporucuji databazi
uvadet ve tvaru nikoli napr. C:\FireBird\data.gdb, nybrz
localhost:C:\FireBird\data.gdb.
> Mozna by mi pomohlo i vysvetleni jaky je rozdil mezi Local Serverem a
> RemoteServerem.
Neznam tyto pojmy jako oficialni. Odkud je mas, resp. ktery program rozlisuje server
na lokalni a vzdaleny takhle explicitne?
Neni treba mozne, ze s D6 je sirena jen nejaka oklestena verze jinak komercni IB6?
Zkus FB a uvidis, co to udela.
David Lebeda
Update Pack 2 - Delphi 6 Ent
[*] Robert Suska <delphi(zv)korak.sk> - 23.9.2002 15:22:46
Ahojte!
Prepacte ze otavujem konferenciu takymito vecami ked to uz bolo ale hladam
to od 13:00 a nie a nie to v datach z konferencie najst... prosim Vam kde sa
da stiahnut tento Update Pack 2 pre D6 Ent?
Dakujem
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
************************************
ClientDataSource
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 23.9.2002 15:31:28
Ja jsem z toho out. Bylo mi receno, ze pouzivat BDE je nesmysl. Dobra, je tu dbExpress. Ale jak s nim jednoduse pracovat ? Potrebuju data insertovat, menit a mazat...
Trapne jsem si myslel, ze pouziju SQLQuery. To mi jde, ale prijde mi to pekna cunarna. Copak to nejde udelat podobne, jako v BDE, kde mi stacil Connect a Sql ???
V.
-----Original Message-----
From: delfi [mailto:delfi(zv)pocitac.net]
Sent: Monday, September 23, 2002 12:56 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
Hi, pouzivam to stejne jako ty. Napsal jsem si unit, ktery z TClientDataSetu
generuje sql dotazy na insert, update...
ales
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 23, 2002 11:02 AM
Subject: RE: ClientDataSource
Ahoj Honzo,
ja mam na formu tyto komponenty:
SQLConnection
SQLDataSet
DataSetProvider
ClientDataSet
DataSource
a mrizku - DBGrid.
Propojim to a v DBGridu mam data. OK. ted chci ale treba udelat Update na
datech, ne ale v mrizce, ale pomoci SQLka. A tady jsem out...
V.
-----Original Message-----
From: Jan Sebel�k [mailto:honza(zv)haes(tec)cz]
Sent: Friday, September 20, 2002 3:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> Potom jsem chtel data zobrazit v mrizce, v DBGridu, ale jakmile b DBGridu
u DataSource chci dat DataSource z SQLQuery, dostanu tuhle chybu:
> Operation not allowed on a unidirectional dataset.
Veskere komponenty dbExpress jsou pouze unidirectional, takze prakticky
nejsou pouzitelne.
Ani v dridu, ani pro update, ani pro vyhledavani, ani pro filter.
Pouze "while not eof do dejmidata".
Jsou proto pouzitelne pouze ve spojeni s TDataSetProvider a TClientDataSet.
Pak je v dbExpress jeste komponenta TSQLClientDataSet, ktera toto propojeni
interne realizuje.
Osobne bych ji moc nedoporucoval a radsi bych si to propojeni udelal sam.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Bezpecne ulozeni dat
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 23.9.2002 15:37:32
Jako databazovy odbornik radis velmi dobre. Kdybych byl
databazovy odbornik, tak bych to tak asi vyresil. Buhuzel
nejsem a na to abych se jim stal neni dostatek casu. V
uvazovanem pripade nejde o relacni databazi s mnoha
tabulkami. Pokud bych to charakerizoval v databazovem
smyslu, tak se jedna o prostou tabulku a jeji obraz
uchovavam v binarnim souboru ve forme rekordu. Soubor nikdy
nebude umisten jinde nez v pocitaci, kde se zpracovava. Vse
co potrebuji je znemoznit identifikaci osoby pro zachovani
ochrany osobnich dat. Snad se najde nejake reseni, ktere mi
umozni vyresit problem i s mym omezenym rozsahem vedomosti.
Jan Dvorak
> > Asi jsem se nevyjadril dostatecne presne. Jina data v
> > souborech nejsou tajna, je dokonce nutno k nim
pristupovat
> > pro zpracovani prehledu na jinem pracovisti. Jenom nesmi
byt
> > prirazena ke konkretni osobe.
>
> Vyjadril ses dostatecne presne a ja to doufam pochopil.
Neni
> problem na
> SQL Serveru nastavit prava pro konkretni sloupce (jmeno,
> prijmeni, rodne
> cislo) jinak nez na ostatni sloupce (statisticke hodnoty).
Pak mas
> zajisteno, ze na urcite sloupce se budou moci dotazovat
jen vybrani
> uzivatele. A pokud SQL Server podporuje opravdove
sifrovani
> (napr. Sybase
> SQL Anywhere), pak se tam jinak nedostanes...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
OT: VGA a 50Hz
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 23.9.2002 15:40:38
Zdravim vsechny,
nevite nekdo jestli jde driveru VGA vnutit snimkovou frekvenci 50Hz ?
Existuji nejake funkce driveru ktere to umoznuji ?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.350 / Virov� b�ze: 196 - datum vyd�n�: 17.4. 2002
OT VGA a 50Hz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.9.2002 15:43:35
From: "Tomas Bradle" <t.bradle(zv)worldonline(tec)cz>
> nevite nekdo jestli jde driveru VGA vnutit snimkovou frekvenci 50Hz ?
> Existuji nejake funkce driveru ktere to umoznuji ?
Zalezi na te videokarte. Ja si muzu nastavovat frekvenci v kroku po 1Hz od 40
do cca 120 Hz. Ovsem 50Hz na pocitacovem monitoru uz je opravdu dost vrazedna
frekvence a nemusi se mu libit, protoze v praxi je to stejne nepouzitelne.
Petr Vones
Update Pack 2 - Delphi 6 Ent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.9.2002 15:44:57
From: "Robert Suska" <delphi(zv)korak.sk>
> Prepacte ze otavujem konferenciu takymito vecami ked to uz bolo ale hladam
> to od 13:00 a nie a nie to v datach z konferencie najst... prosim Vam kde sa
> da stiahnut tento Update Pack 2 pre D6 Ent?
http://www.borland.com/products/downloads/download_delphi.html
Dale pak Registered Users -> Updates.
Petr Vones
D7 a INADDR_ANY
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.9.2002 16:01:11
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> D7 (mozna uz D6) zmenilo definici INADDR_ANY (hint nabizi typ : -128..127 -
> zdrojaky winsock.pas v Trial verzi nejsou :-( ) nebo se zmenilo prirazeni
D6 a D7: INADDR_NONE = -1;
Petr Vones
Formular vzdy na vrchu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 23.9.2002 16:08:27
Ahoj,
zkus jeste pridat :
procedure TIntellForm.FormActivate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_HWNDPARENT, 0);
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE);
end;
Vymazal Milan wrote:
>
> Zdravim
>
> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
> okno.
>
> procedure TIntellForm.FormCreate(Sender: TObject);
> begin //??
> intellform.Top:=0;
> intellform.show;
> table1.visible:=false;
> intellform.FormStyle:=fsStayOnTop;
> height:=19;
> end
>
> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
> mi to nejde. nevite kde je problem
>
> Milan
QUICKREPORT A MEMO
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.9.2002 16:26:20
----- Original Message -----
From: "J�n Kuch�r" <kuchar(zv)unicodesys(tec)cz>
> v programu mam databazy textu, kterou jsou postupne naplnil pres komponentu
> memo a ted potrebuju zabezepecit vypis techto jednotlivych textu jako
> samostatne bloky na quickreport asi nasledovne :
>
> M1 M2 M3
> M4 M5 M6
> M7 M8 M9
Neco podobneho jsme si do QR dodelali sami, nejsou to sice rozepsane radky
mema ale primo radky subdetailu -- na subdetail jsme si doplnili vlastnost kterou
zapiname sloupcovy tisk a pocet sloupcu. Tiskneme takto napr. seriova cisla na
doklady apod. Nebylo to snadne ale je to mozne.
Je zajimave, ze tuto vlastnost vetsina generatoru sestav nepodporuje...
Martin Schayna
Re[2]: Kod na precislovani cisel telefonu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 23.9.2002 16:31:52
http://dusek.webz(tec)cz/precisl.txt
Tady je moje funkce na precislovani, tabulky jsou primo v konstantach
v programu, nepredpokladam ze by se ted zmenily. Bere to mezinarodni i
mistni format, podle toho je i vysledek mezinarodni nebo mistni.
Doufam ze za svou dobrotu zase vyvolam flamewar ohledne optimalizace funkci :)
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
>> -----Original Message-----
>> From: Jan Najvarek [mailto:conference.reader(zv)artin(tec)cz]
>>
>> nema nekdo kod v Delphi pro precislovani telefonnich cislel?
>> Nechce se mi
>> vymyslet jiz vymyslene.
CustomDocumentProperties
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.9.2002 16:42:52
----- Original Message -----
From: "Tomas Folprecht" <tomas(zv)apkfolprecht(tec)cz>
> TWordDocument obsahuje "CustomDocumentProperties" a
> "BuiltInDocumentProperties", to bude asi ono, ale vubec nevim, jak k
> nim pristupovat. Jsou typu IDispatch a ja bohuzel nevim, co to je.
Z napovedy pro Microsoft Visual Basic pro Word:
BuiltInDocumentProperties Property
Returns a DocumentProperties collection that represents all the
built-in document properties for the specified document. Read-only.
To return a single DocumentProperty object that represents a specific
built-in document property, use BuiltinDocumentProperties(index),
where index is one of the following WdBuiltInProperty constants.
wdPropertyAppName
wdPropertyAuthor
wdPropertyBytes
wdPropertyCategory
wdPropertyCharacters
wdPropertyCharsWSpaces
wdPropertyComments
wdPropertyCompany
wdPropertyFormat
wdPropertyHiddenSlides
wdPropertyHyperlinkBase
wdPropertyKeywords
wdPropertyLastAuthor
wdPropertyLines
wdPropertyManagerwdPropertyMMClips
wdPropertyNotes
wdPropertyPages
wdPropertyParas
wdPropertyRevision
wdPropertySecurity
wdPropertySlides
wdPropertySubject
wdPropertyTemplate
wdPropertyTimeCreated
wdPropertyTimeLastPrinted
wdPropertyTimeLastSaved
wdPropertyTitle
wdPropertyVBATotalEdit
wdPropertyWords
Use the CustomDocumentProperties property to
return the collection of custom document properties.
Martin Schayna
ClientDataSource
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 23.9.2002 16:56:20
> Ja jsem z toho out. Bylo mi receno, ze pouzivat BDE je nesmysl. Dobra, je
tu dbExpress. Ale jak s nim jednoduse pracovat ? Potrebuju data insertovat,
menit a mazat...
> Trapne jsem si myslel, ze pouziju SQLQuery. To mi jde, ale prijde mi to
pekna cunarna. Copak to nejde udelat podobne, jako v BDE, kde mi stacil
Connect a Sql ???
http://gethelp.devx.com/techtips/delphi_pro/10min/10min0701/10min0701-1.asp
http://gethelp.devx.com/techtips/delphi_pro/10min/10min0501/10min0501-1.asp
http://community.borland.com/article/0,1410,22495,00.html
Pekny den
jg
Re[2x]: IB - zakladni nastaveni+rozjeti RemoteServ
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.9.2002 17:07:16
----- Original Message -----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>> > 1) bez problemu jsem rozjel LocalServer. Proc nemuzu stejne rozjet
> > RemoteServer?
> Muzete mi rict, co mam presne vyplnit pri registraci RemoteServer?
Jmeno serveru by melo byt "localhost" nebo "127.0.0.1", user "SYSDBA"
a password "masterkey".
1) Vyzkousel jsi po zaregistrovani v IBConsoli na pravem tlacitku volbu
Diagnose connection?
2) Mas zaregistrovanou TCP sluzbu gds_db na portu 3050 (zjisti to lze
v souboru services napr. na NT/2000/XP v adresari c:\WINDOWS
\system32\drivers\etc\services)?
3) Posloucha server na tomto portu (zjistit to lze napr. na NT/2K/XP pomoci
"netstat -a" nebo pomoci utility TCPView z www.sysinternals.com)?
> Mozna by mi pomohlo i vysvetleni jaky je rozdil mezi Local Serverem a
> RemoteServerem.
Server je jen jeden, lisi se pouze zpusob spojeni mezi klientem a serverem.
Remote spojeni pouziva sitovy protokol a to i tehdy pokud jsou oba na
stejnem stroji. Lokalni spojeni pouziva techniku memory mapped filu a
synchronizaci z operacniho systemu, takze je mnohem rychlejsi, avsak lze
pouzit jen pokud jsou klient a server na stejnem stroji.
Martin Schayna
Formular vzdy na vrchu
[*] Maxian Michal <Michal.Maxian(zv)dashofer.sk> - 23.9.2002 17:09:41
Skus to tam dat miesto:
intellform.show;
toto
intellform.showmodal;
malo by to ostat na vrchu.
Michal Maxian
-----Original Message-----
From: Vymazal Milan [mailto:vymazal.milan(zv)seznam(tec)cz]
Sent: Monday, September 23, 2002 3:02 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Formular vzdy na vrchu
Zdravim
mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
okno.
procedure TIntellForm.FormCreate(Sender: TObject);
begin //??
intellform.Top:=0;
intellform.show;
table1.visible:=false;
intellform.FormStyle:=fsStayOnTop;
height:=19;
end
no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
mi to nejde. nevite kde je problem
Milan
Re[2]: Kod na precislovani cisel telefonu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.9.2002 17:10:29
Ahoj,
namatkou jsem zkousel fci a hned prvni telefon mi neprecislovala. Chybi
ti tam Brno: 05 -> 5
Ale jinak je to OK.
A.
> -----Original Message-----
> From: Jakub Dusek [mailto:jdev(zv)seznam(tec)cz]
>
> http://dusek.webz(tec)cz/precisl.txt
>
> Tady je moje funkce na precislovani, tabulky jsou primo v konstantach
CoMarshalInterface vraci E_INVALIDARG
[*] Karel Kimes <kkonf(zv)email(tec)cz> - 23.9.2002 17:21:39
>Hm, pokud mas ten interface vzity z TDispatch, neni nutno pri jeho predavani
>do jineho
>procesu marshallovat. Manualni marshalovani je nutne pouze pri predavani
>mezi apartmenty uvnitr procesu.
**** mas pravdu, uz sem to objevil :) (pozde, ale prece - jedna se o MTA =>
no marshaling required)
>akorat nutno pouzivat pouze automation compatible typy, ale to
>asi vis.
**** vim
>Ale zpatky k tomu problemu. Nemuze to byt tim, ze na tech masinach nemas
>registrovana vsechna pozuvana rozhrani. Mel jsem problemy s tim, ze pokud
>jsem pouzival eventy mezi dvema PC, musel jsem mit rozhrani jak serveru, tak
>i klienta registrovana na obou strojich, mam dojem, ze jsem nekde cetl o
>souvislosti s tim, jak Delphi pracuji s typovymi knihovnami. Nemuze to byt
>timhle ???
**** ZPATKY NA STROMY (zapomenme na to, ze sem resil marshalovani, protoze
uz vim kde je chyba, ALE neznam PRICINU)!!! Viz. dale...
1) Mam Automation objekt, ktery byl generovan pres wizarda v D6PRO, s
podporou events.
2) Mam klienta, ktery si naimportoval typovou knihovnu Automation objektu,
jako komponentu.
3) klient vola metodu napr. Go (dojde ke spojeni s Automation objektem)
4) automation objekt v implementaci metody Go ma vyvolat udalost. Tedy
napr. FEvents.OnEvent (FEvent je soucasti CoClass objektu a generoval ji
wizard, je to source interface, ktery MUSI implementovat klient)
Definujme varianty:
A) klient je spusten na PC, kde take registrovan automation objekt.
B) klient je spusten na PC, kde je registrovan automation objekt jako
remote server a automation objekt bezi na tomto remote serveru, kde je take
registrovan. (pro nastaveni DCOM sem pouzil DCOMCNFG.EXE a na obou PC sem
nastavil pro tento vsechna prava atd. => v tom bych problem nehledal, ale
na 100% si jistej nejsu :( )
U var. A je vse OK.
U var. B sem zjistil, ze je FEvents = NIL !!!
Mj. to je ten problem proc ten marshaling nefungoval (pokousel sem se
marshalovat interface, ktery byl NIL - coz asi nejde, ze :) ).
No dobre, ale jak z toho ven. Pokracoval sem v pruzkumu a zameril sem se na
klienta, ktery by v urcitem bode mel serveru predat ukazatel na sink event
objekt a to procedurou InterfaceConnect, definovanou v jednotce ComObj.pas.
Ta procedura vypada takto:
procedure InterfaceConnect(const Source: IUnknown; const IID: TIID;
const Sink: IUnknown; var Connection: Longint);
var
CPC: IConnectionPointContainer;
CP: IConnectionPoint;
begin
Connection := 0;
if Succeeded(Source.QueryInterface(IConnectionPointContainer, CPC)) then
if Succeeded(CPC.FindConnectionPoint(IID, CP)) then
CP.Advise(Sink, Connection);
end;
cely kod probehne spravne a do mista, kde se vola CP.Advise(Sink,
Connection), kde je Connection je cookie, ktery mam ziskat od Automation
objektu. U var. A je vse OK a cookie je 1, u var. B dostanu jako cookie 0.
Probuh, co ma kde nastavit, opravit, prepsat, upravit, ...., aby to
fungovalo. Su z toho jelen.
WinXP, D6PRO UPDATE PACK 2
kchodl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
Bezpecne ulozeni dat
[*] David Janko <djanko(zv)infoware(tec)cz> - 23.9.2002 17:39:19
> Puvodni zprava, kterou napsal Petr Fejfar dne 23 Sep 2002:
>
> > BTW, mas zkusenosti s sifrovanim na urovni SQL stroje na Wintel
platforme?
> > Ktereho?
>
DECROS mival nejaky system na kryptovani na urovni FS - slo kryptovat tusim
i jeden adresar a ma to tu vyhodu, ze je to nezavisle na pouzitem SQL
stroji - proste DB na disku (nebo jakekoliv jine soubory) sou vzdy sifrovane
..
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
Re[4]: Kod na precislovani cisel telefonu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 23.9.2002 17:57:43
Jo toho jsem si taky vsiml ze tam nemaji vsechny. Ted uz je tam new
version :)
Jakub Dusek
Monday, September 23, 2002, 5:10:29 PM, you wrote:
AV> Ahoj,
AV> namatkou jsem zkousel fci a hned prvni telefon mi neprecislovala. Chybi
ti tam Brno: 05 ->> 5
AV> Ale jinak je to OK.
AV> A.
>> -----Original Message-----
>> From: Jakub Dusek [mailto:jdev(zv)seznam(tec)cz]
>>
>> http://dusek.webz(tec)cz/precisl.txt
>>
>> Tady je moje funkce na precislovani, tabulky jsou primo v konstantach
Re[2x]: IB - zakladni nastaveni+rozjeti RemoteServ
[*] miro mrazik <preas_w(zv)stonline.sk> - 23.9.2002 18:02:42
Ahoj
neviem ci som dobre cital info ale mam taky dojem ze s delphi mas v baliku
lokalnu verziu IB, tak ako to byvalo kedysi, s tou sa asi neda pripojit na v
sieti.
(neni som si isty) Ja by som pouzil Firebird.
miro
> Mozna by mi pomohlo i vysvetleni jaky je rozdil mezi Local Serverem a
> RemoteServerem.
INTERBASE: Jak lze zjistit k dane tabulce cizi kli
[*] Petr Va�eka <pvareka(zv)mujmejl(tec)cz> - 23.9.2002 20:07:32
Zdravim a vznasim nasl. dotaz:
Pokud chci zjistit primarni klic tabulky TAB, pouzivam tuto konstrukci.
IBTab.TableName:=TAB; // ******* Zjisteni prim. klice ********
IBTab.IndexDefs.Update;
Primarni_Klic:=IBTab.IndexDefs[0].Fields; // Predp. ze jde o prvni index.
Daji se nejak zjistit (treba podobne) i vsechny cizi klice k dane tabulce ?
Petr Vareka.
Prace s databazi - zacatky
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 23.9.2002 20:10:59
Pokud to chce pouze na studium, muze jeste pouzit FB a IBO
Martin Ben
> -----Original Message-----
> From: Zbysek Hlinka [mailto:hlinka(zv)hlinka(tec)cz]
>
> On 23 Sep 2002 at 11:58, Jan Sebel�k wrote:
>
> > V D6Personal si na data asi nesahnes, protoze tam databazova podpora
> > neni.
>
> Sahne, musi na to ale oklikou. Budto muze pouzit primo MS ADO, a do
> komponent si data nastouchat rucne, nebo muze pouzit moje OLE DB, ty
> jsou vsak odladeny pro MS SQL, jine databaze jsem nezkousel.
Neprerusena ciselna rada pro doklady v FB/IB
[*] <aldik(zv)quick(tec)cz> - 23.9.2002 20:51:54
Nazdar kluci, jak na %subj% fci MAX samozrejme
znam....chci se ale zeptat na
rozumne reseni z hlediska duplicity zaznamu, jake
je riziko, kdyz pouziju
Gen_ID tak to je preci jen jina vec,mam dojem ze
max mohu pouzivat jen po
commit ze? Jake jsou dalsi rizika??
Dekuji moc za kazdou radu...
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Re[2]: Formular vzdy na vrchu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 23.9.2002 21:15:18
Hello Vaclav,
Monday, September 23, 2002, 4:08:27 PM, you wrote:
VS> Ahoj,
VS> zkus jeste pridat :
VS> procedure TIntellForm.FormActivate(Sender: TObject);
VS> begin
VS> SetWindowLong(Handle, GWL_HWNDPARENT, 0);
VS> SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
VS> SWP_NOMOVE or SWP_NOSIZE);
VS> end;
super tohle pomohlo.. funguje to skvele. ale kde jsi tohle nasel.
jinak dik
VS> Vymazal Milan wrote:
>>
>> Zdravim
>>
>> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
>> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
>> okno.
>>
>> procedure TIntellForm.FormCreate(Sender: TObject);
>> begin //??
>> intellform.Top:=0;
>> intellform.show;
>> table1.visible:=false;
>> intellform.FormStyle:=fsStayOnTop;
>> height:=19;
>> end
>>
>> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
>> mi to nejde. nevite kde je problem
>>
>> Milan
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Re[2]: Formular vzdy na vrchu
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 23.9.2002 21:16:31
Hello Maxian,
Monday, September 23, 2002, 5:09:41 PM, you wrote:
MM> Skus to tam dat miesto:
MM> intellform.show;
MM> toto
MM> intellform.showmodal;
no tohle nepomohlo. ale to bude mozna tim ze jsem to okno skoval ve
statusbaru
dik
MM> malo by to ostat na vrchu.
MM> Michal Maxian
MM> -----Original Message-----
MM> From: Vymazal Milan [mailto:vymazal.milan(zv)seznam(tec)cz]
MM> Sent: Monday, September 23, 2002 3:02 PM
MM> To: delphi-l(zv)clexpert(tec)cz
MM> Subject: Formular vzdy na vrchu
MM> Zdravim
MM> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
MM> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
MM> okno.
MM> procedure TIntellForm.FormCreate(Sender: TObject);
MM> begin //??
MM> intellform.Top:=0;
MM> intellform.show;
MM> table1.visible:=false;
MM> intellform.FormStyle:=fsStayOnTop;
MM> height:=19;
MM> end
MM> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
MM> mi to nejde. nevite kde je problem
MM> Milan
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
pomalost dbexpress
[*] Hlas <hlas(zv)inmail.sk> - 23.9.2002 22:33:32
opat tu otravujem s pomalostou DBX, ale neporadil som si.
vyskusal som sqlclientdataset aj clientdataset s providerom.
je niekde literatura popisujuca pracu s dbx (nie zaklady)
alebo je to fakt nepouzitelne? robi na tom seriozne niekto?
potrebujem previest bde aplikaciu do C/S dbexpressu, aby
som mal otvorene dvere aj k inym databazam.
vyzera to tak, ze po mesiaci pokusov idem na IBX,
pretoxe s tym sa da robit na rozdiel od dbx.
IB versus MSSQL
[*] Hlas <hlas(zv)inmail.sk> - 23.9.2002 22:38:56
je mssql lepsi ako IB? je mssql ozaj free?
ako sa da pristupovat k mssql? iba cez dbx?
su aj nativne komponenty?
bojim sa, ze ked postavim aplikaciu nad IB6/firebird, komponenty IBX
nebudu sledovat vyvoj firebirdu a vyssie verzie IB budu zasa platene.
Aka je najlepsia volba na free databazu? mssql, IB, postgre, mysql?
ADO na Intraweb
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 23.9.2002 22:54:20
Ahoj
Skusam robit v Delphi 7 trial taku pokusnu webovu aplikaciu. Pouzil som
komponenty z palety IntraWeb. Mam databazu v MS access a chcel by som ju
otvorit. Pouzil som ADO komponenty. Ked umiestnim na formular komponentu
ADOConnection pripravim si spojenie, otestujem, dam Connected=True vsetko je
v poriadku. Pouzil som Microsoft Jet 4.0 OLE DB Provider. Ked spustim
aplikaciu program sa zastavi s hlaskou CoInitialize has not been called. V
helpe som nasiel nasledovne
ComInitialization is used when using COM. Each thread needs to call the
WinAPI CoInitialize Set the value to ciNormal or ciMultiThreaded (depend on
the required needs) to let IW handle this for you automatically.
Prosim o pomoc, radu ako sa pripojit na databazu .mdb v IntraWeb. Pripadne
ak mate niekto jednoduchy prikladik alebo link na nieco kde sa take uz
robilo. Budem vdacny za kazdu pomoc ktora ma posunie aspon o kusok vpred.
Vlado
thready
[*] kevin33(zv)post(tec)cz - 23.9.2002 23:04:55
zdravim,
mam problem ktery se budu snazit popsat: mam hlavni vlakno aplikace
a jeden thread ktery vypada asi takto:
execute:
OdesilaniDatNaComPort();
cas_odeslani := GetTickCount;
// cekam na data nebo na timeout
while ( (not odpoved_od_stroje) and (GetTickCount < (cas_odeslani +
timeout_mezi_odeslanim_a_prijmem) ) ) do sleep( 2 );
CekaniNaPredpokladanyPocetDatATestovaniJestliNenastalTimeout;
a ta posledni funkce normalne funguje, ale kdyz v hlavnim vlakne
spustim nejakou funkci (treba z menu), se smyckou ktera neco dela -
konkretne prekresleni obrazovky + dalsi veci tak v threadu nastane
timeout. a me ted neni jasne proc, kdyz ten thread prece bezi uplne
nezavisle na ostatnich vecech.
snazil jsem se z toho threadu odstranit vsechny kriticke sekce a
veskerou komunikaci s ostatnimi vlakny, ale timeout porad nastaval.
potreboval bych aby vlakno bezelo opravdu nezavisle na tom co se
deje ve zbytku aplikace
diky
ps: thread ma jeste roceduru ktera cte z com portu a nastavuje
promennou odpoved_od_stroje
EXIF data
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 24.9.2002 00:24:10
Ahoj,
vite nekdo, jak je precist?
Diky.
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
Neprerusena ciselna rada pro doklady v FB/IB
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 24.9.2002 07:27:20
On 23 Sep 2002 at 20:51, aldik(zv)quick(tec)cz wrote:
> Nazdar kluci, jak na %subj% fci MAX samozrejme
> znam....chci se ale zeptat na
> max mohu pouzivat jen po
> commit ze? Jake jsou dalsi rizika??
Pridelovani unikatnich cisel v neprerusene rade neni tak trivialni jak
se na prvni pohled zda, riziko pouzivani max pro tento ucel je krome
jineho v tom, ze ve viceuzivatelskem a trochu intenzivnim provozu
ma prakticky nulovou sanci na fungovani. Zkuste si jen tak na papire
nasimulovat jak se to bude chovat.
INTERBASE: Jak lze zjistit k dane tabulce cizi kli
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 24.9.2002 07:30:24
> Pokud chci zjistit primarni klic tabulky TAB, pouzivam tuto
> konstrukci.
> Daji se nejak zjistit (treba podobne) i vsechny cizi klice k dane
> tabulce ?
Obecne asi dost tezko uz proto, ze treba kdyz je referencni integrita
implementovana triggery tak ani v systemovych tabulkach IB neni
sance zjistit, ze nejaky sloupec je cizim klicem.
Neprerusena ciselna rada pro doklady v FB/IB
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 07:38:47
Q2hjZSB0byB0+GViYSBzYW1vc3RhdG5vdSB0YWJ1bGt1LCBrZGUganNvdSBjaXNsYS4NClYgcmFt
Y2kgdHJhbnNha2NlIHByaSB6YXBpc3UgZG9rbGFkdSBwcmlkZWxpcyBjaXNsbywgbmF2eXNpcyBq
ZWogdg0KdGFidWxjZSBhIGNvbW1pdG5lcyBjZWx5IHphcGlzIGRva2xhZHUuDQpKZSB0cmViYSBk
YmF0IG5hIHNwcmF2bm91IHVyb3ZlbiB0cmFuc2FrY2UuDQoNClYgemFkbmVtIHByaXBhZGUgY2lz
bGEgbmVwcmlkZWx1aiBwcmkgemFjYXRrdSBlZGl0YWNlIGRva2xhZHUgYSBrZHl6LA0KdGFrIHBv
dXplIGluZm9ybWF0aXZuZS4NCg0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9s
LmN6DQoNCjI0LjkuMjAwMiBLYWxob3VzIFpkZW5lazoNCj4gT24gMjMgU2VwIDIwMDIgYXQgMjA6
NTEsIGFsZGlrQHF1aWNrLmN6IHdyb3RlOg0KPj4gTmF6ZGFyIGtsdWNpLCBqYWsgbmEgJXN1Ymol
IGZjaSBNQVggc2Ftb3pyZWptZSANCj4+IHpuYW0uLi4uY2hjaSBzZSBhbGUgemVwdGF0IG5hDQo+
PiBtYXggbW9odSBwb3V6aXZhdCBqZW4gcG8NCj4+IGNvbW1pdCB6ZT8gSmFrZSBqc291IGRhbHNp
IHJpemlrYT8/
INTERBASE: Jak lze zjistit k dane tabulce cizi kli
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 24.9.2002 07:42:29
Snad to bude pro inspiraci stacit...
type
TColumnRelation = record
BaseColumn: string;
LookupColumn: string;
end;
TColumnRelationsList = array of TColumnRelation;
TRelation = record
RelationName: string;
LookupTableName: string;
DetailName: string;
ColumnRelation: TColumnRelationsList;
end;
TRelationsList = array of TRelation;
function Tf_Generator.getReferenceNames(
const TableName: string): TRelationsList;
var
Dataset: TIBDataset;
T: TIBTransaction;
begin
Dataset := TIBDataSet.Create(nil);
try
Dataset.SelectSQL.Text := 'SELECT C.RDB$CONSTRAINT_NAME CONSTRAINT_NAME,
I1.RDB$RELATION_NAME LOOKUP_TABLE_NAME'+#13+
'FROM RDB$RELATION_CONSTRAINTS C'+#13+
'JOIN RDB$INDICES I'+#13+
'ON (C.RDB$INDEX_NAME =
I.RDB$INDEX_NAME)'+#13+
'JOIN RDB$INDICES I1'+#13+
'ON (I1.RDB$INDEX_NAME =
I.RDB$FOREIGN_KEY)'+#13+
'WHERE'+#13+
'(C.RDB$RELATION_NAME = '''+TableName+''')
AND'+#13+
'(C.RDB$CONSTRAINT_TYPE = ''FOREIGN KEY'')';
T := Gor3WinApp.CreateTransactionReadOnly;
try
DataSet.Database := Gor3WinApp.IBDatabase;
DataSet.Transaction := T;
T.StartTransaction;
Dataset.Open;
Dataset.FetchAll;
setLength(Result, Dataset.RecordCount);
while not Dataset.Eof do
begin
Result[Dataset.RecNo - 1].RelationName :=
Trim(Dataset.fieldByName('CONSTRAINT_NAME').AsString);
Result[Dataset.RecNo - 1].LookupTableName :=
Trim(Dataset.fieldByName('LOOKUP_TABLE_NAME').AsString);
Dataset.Next;
end;
Dataset.Close;
T.Commit;
finally
freeAndNil(T);
end;
finally
freeAndNil(Dataset);
end;
end;
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Daji se nejak zjistit (treba podobne) i vsechny cizi klice k dane
> tabulce ?
> Petr Vareka.
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 07:52:35
> On 23 Sep 2002 at 20:51, aldik(zv)quick(tec)cz wrote:
> > Nazdar kluci, jak na %subj% fci MAX samozrejme
> > znam....chci se ale zeptat na
> > max mohu pouzivat jen po
> > commit ze? Jake jsou dalsi rizika??
> Odes�latel: Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz>
> Pridelovani unikatnich cisel v neprerusene rade neni tak trivialni jak
> se na prvni pohled zda, riziko pouzivani max pro tento ucel je krome
> jineho v tom, ze ve viceuzivatelskem a trochu intenzivnim provozu
> ma prakticky nulovou sanci na fungovani.
[Honza]
No prave...
Zkusme se zamyslet nad timto resenim:
create table faktura(
id integer not null,
cislofaktury integer not null unique,
status smallint,
primary key (id)
);
Before insert nastavim id=gen_id(g_id).
Nemam zarucenou souvislou radu.
Faktury mohu dokonce mazat.
V urcitem okamziku je faktura uz hotova.
Nastavim status=1.
Before update if (old.status=0 and new.status=1)
a vsechno je odkontrolovano a je to spravne
nastavim cislofaktury=gen_id(g_cf ).
Kdyz je cislofaktury not null, fakturu uz nesmim menit ani mazat.
Muze se stat, ze nebude cislo faktury souvisla rada?
Pouze tehdy, kdyz before update zavolam g_cf, ale update pritom z nejakych duvodu selze.
Protoze menim pouze cislo faktury, nehrozi mi selhani update z duvodu nejakych integritnich kontrol.
Jedine, ze bych se dostal do konfliktu s jinym uzivatelem na teze fakture.
Je to mozne?
Myslim, ze tomu lze zabranit, treba tak, ze uzavrit fakturu ma pravo pouze jeden clovek.
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)
=========================================
Neprerusena ciselna rada pro doklady v FB/IB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 24.9.2002 08:01:52
Haj hou!
On 24 Sep 2002 at 7:38, ing. Jan Fiala wrote:
> Chce to t�eba samostatnou tabulku, kde jsou cisla.
> V ramci transakce pri zapisu dokladu pridelis cislo, navysis jej v
> tabulce a commitnes cely zapis dokladu.
> Je treba dbat na spravnou uroven transakce.
Docela hruza z pohledu prace vice uzivatelu. Propustnost bude nula nula
nic.
> V zadnem pripade cisla neprideluj pri zacatku editace dokladu a kdyz,
> tak pouze informativne.
To nelze vzdy dodrzet.
Neprerusovanou radu lze realizovat i vlastnim sdilenym TCP/IP serverem s
jednoduchou implementaci dvoufazoveho potvrzovaciho protokolu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB versus MSSQL
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 24.9.2002 08:01:52
Haj hou!
On 23 Sep 2002 at 22:38, Hlas wrote:
> je mssql lepsi ako IB?
Prijde na to jak v cem a jak pro koho. Tuto otazku by si mel kazdy
zodpovedet sam dle svych vlastnich aplikacnich potreb.
> je mssql ozaj free?
Ocesana verze ano.
> ako sa da pristupovat k mssql? iba cez dbx?
> su aj nativne komponenty?
> bojim sa, ze ked postavim aplikaciu nad IB6/firebird, komponenty IBX
> nebudu sledovat vyvoj firebirdu a vyssie verzie IB budu zasa platene.
> Aka je najlepsia volba na free databazu? mssql, IB, postgre, mysql?
InterBase je uz zase komercni, a asi tak uz zustane. Firebird je free a
zustane free uz ze sve podstaty. Je open source a vyvojari na rozdil od
Bo�rlandu nemaji pravo licenci zmenit. On ostatne ani Borland :) Borland
to vyresil tak, ze ukoncil vyvoj free verze a venuje se jen komercni
verzi.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 24.9.2002 08:08:14
Ja mnohokrat dekuji za pomoc. Tohle jsem jiz nasel take, ale problem je v tom, jak k se k tomu dostat z Delphi. Tam to
tak jednoduche neni.
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Martin Schayna
> Sent: Monday, September 23, 2002 4:43 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CustomDocumentProperties
>
>
> ----- Original Message -----
> From: "Tomas Folprecht" <tomas(zv)apkfolprecht(tec)cz>
> > TWordDocument obsahuje "CustomDocumentProperties" a
> > "BuiltInDocumentProperties", to bude asi ono, ale vubec nevim, jak k
> > nim pristupovat. Jsou typu IDispatch a ja bohuzel nevim, co to je.
>
> Z napovedy pro Microsoft Visual Basic pro Word:
>
> BuiltInDocumentProperties Property
>
> Returns a DocumentProperties collection that represents all the
> built-in document properties for the specified document. Read-only.
>
> To return a single DocumentProperty object that represents a specific
> built-in document property, use BuiltinDocumentProperties(index),
> where index is one of the following WdBuiltInProperty constants.
>
> wdPropertyAppName
> wdPropertyAuthor
> wdPropertyBytes
> wdPropertyCategory
> wdPropertyCharacters
> wdPropertyCharsWSpaces
> wdPropertyComments
> wdPropertyCompany
> wdPropertyFormat
> wdPropertyHiddenSlides
> wdPropertyHyperlinkBase
> wdPropertyKeywords
> wdPropertyLastAuthor
> wdPropertyLines
> wdPropertyManagerwdPropertyMMClips
> wdPropertyNotes
> wdPropertyPages
> wdPropertyParas
> wdPropertyRevision
> wdPropertySecurity
> wdPropertySlides
> wdPropertySubject
> wdPropertyTemplate
> wdPropertyTimeCreated
> wdPropertyTimeLastPrinted
> wdPropertyTimeLastSaved
> wdPropertyTitle
> wdPropertyVBATotalEdit
> wdPropertyWords
>
> Use the CustomDocumentProperties property to
> return the collection of custom document properties.
>
> Martin Schayna
>
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 24.9.2002 08:13:04
Nejlepsi mas kdyz udelas generator:
CREATE GENERATOR GEN_Muj;
SET GENERATOR GEN_Muj TO 161
a das do trigeru:
CREATE TRIGGER jmeno FOR tabulka BEFORE INSERT POSITION 0 AS
BEGIN
NEW.TvojeID = gen_id(GEN_Muj,1);
END
Cau Jarda
-----Original Message-----
From: aldik(zv)quick(tec)cz [mailto:aldik(zv)quick(tec)cz]
Sent: Monday, September 23, 2002 8:52 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Neprerusena ciselna rada pro doklady v FB/IB
Nazdar kluci, jak na %subj% fci MAX samozrejme
znam....chci se ale zeptat na
rozumne reseni z hlediska duplicity zaznamu, jake
je riziko, kdyz pouziju
Gen_ID tak to je preci jen jina vec,mam dojem ze
max mohu pouzivat jen po
commit ze? Jake jsou dalsi rizika??
Dekuji moc za kazdou radu...
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
IB versus MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.9.2002 08:17:29
On 23 Sep 2002 at 22:38, Hlas wrote:
> je mssql lepsi ako IB?
****Ano v mnoha vecech. A samozrejme se najde neco malo veci, kdy je
lepsi IB.
> je mssql ozaj free?
*****Ne. Posledni dobou se diskutuje, zda je free MSDE, coz je MS SQL
pro desktopy pro max pet uzivatelu (resp. kazdy dalsi uzivatel
zpusobi vyrazne snizeni vykonu).
> ako sa da pristupovat k mssql? iba cez dbx?
*****Tfuj, jen to ne. ADO, OLE DB, ODBC, ... (ale v nouzi i
DBExpress)
> su aj nativne komponenty?
*****Ano. napr. ADO.
> bojim sa, ze ked postavim aplikaciu nad IB6/firebird, komponenty IBX
> nebudu sledovat vyvoj firebirdu a vyssie verzie IB budu zasa platene.
> Aka je najlepsia volba na free databazu? mssql, IB, postgre, mysql?
******To zalezi na tom, co od databaze ocekavas, universalni odpoved
neexistuje.
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
CustomDocumentProperties
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 08:20:17
Zkus tohle:
var
docprop: Variant;
begin
docprop := WordDocument.CustomDocumentProperties;
pak uz k tomu pristupujes pres
docprop.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.9.2002 Tomas Folprecht:
> Ja mnohokrat dekuji za pomoc. Tohle jsem jiz nasel take, ale problem
> je v tom, jak k se k tomu dostat z Delphi. Tam to tak jednoduche
> neni.
Neprerusena ciselna rada pro doklady v FB/IB
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 08:27:22
MjQuOS4yMDAyIFBhdmVsIENpc2FyOg0KPj4gQ2hjZSB0byB0+GViYSBzYW1vc3RhdG5vdSB0YWJ1
bGt1LCBrZGUganNvdSBjaXNsYS4NCj4+IFYgcmFtY2kgdHJhbnNha2NlIHByaSB6YXBpc3UgZG9r
bGFkdSBwcmlkZWxpcyBjaXNsbywgbmF2eXNpcyBqZWogdg0KPj4gdGFidWxjZSBhIGNvbW1pdG5l
cyBjZWx5IHphcGlzIGRva2xhZHUuDQo+PiBKZSB0cmViYSBkYmF0IG5hIHNwcmF2bm91IHVyb3Zl
biB0cmFuc2FrY2UuDQoNCj4gRG9jZWxhIGhydXphIHogcG9obGVkdSBwcmFjZSB2aWNlIHV6aXZh
dGVsdS4gUHJvcHVzdG5vc3QgYnVkZSBudWxhIG51bGENCj4gbmljLg0KDQpaIGpha2VobyBkdXZv
ZHUgPw0KU2Ftb3pyZWptZSBwcmVkcG9rbGFkYW0sIHplIG5lbWFtIG90ZXZyZW5vdSB0cmFuc2Fr
Y2kgcG8gY2Vsb3UgZG9idQ0KcG9yaXpvdmFuaSBkb2tsYWR1IChqYWsgdG8gbW5vemkgZGVsYWpp
KSwgYWxlIHByZWRwb2tsYWRhbSB6cHVzb2INCnByYWNlLCBrZHkgamUgdHJhbnNha2NlIHphaGFq
ZW5hIGF6IGtkeXogdXppdmF0ZWwgcG90dnJkaSB1bG96ZW5pDQpkb2tsYWR1LiBBIHphcHNhbmkg
ZG9rbGFkdSB0cnZhIHJlbGF0aXZuZSBjaHZpbGt1Lg0KSmFrZSB2aWRpcyBwcm9ibGVteSBzIHBy
b3B1c3Rub3N0aSA/DQoNCj4+IFYgemFkbmVtIHByaXBhZGUgY2lzbGEgbmVwcmlkZWx1aiBwcmkg
emFjYXRrdSBlZGl0YWNlIGRva2xhZHUgYSBrZHl6LA0KPj4gdGFrIHBvdXplIGluZm9ybWF0aXZu
ZS4NCg0KPiBUbyBuZWx6ZSB2emR5IGRvZHJ6ZXQuDQoNCkEgamFrIHBhayB2eXJlc2lzIHRvLCBr
ZHl6IHV6aXZhdGVsIHphY25lIGVkaXRvdmF0LCBqYSBtdSBwcmlyYWRpbQ0KY2lzbG8sIG1leml0
aW0gemFjbmUgZWRpdG92YXQgbmVrZG8gamlueSwgZG9zdGFuZSB2eXNzaSBjaXNsbywgdGVuDQpw
cnZuaSBzaSB0byByb3pteXNsaSBhIGRpcmEgamUgbmEgc3ZldGUuDQpVdmVkIHByaWtsYWQsIGtk
eSBuZW11enUgcHJpcmFkaXQgY2lzbG8gYXogbmEga29uY2kuDQoNCj4gTmVwcmVydXNvdmFub3Ug
cmFkdSBsemUgcmVhbGl6b3ZhdCBpIHZsYXN0bmltIHNkaWxlbnltIFRDUC9JUCBzZXJ2ZXJlbSBz
DQo+IGplZG5vZHVjaG91IGltcGxlbWVudGFjaSBkdm91ZmF6b3ZlaG8gcG90dnJ6b3ZhY2lobyBw
cm90b2tvbHUuDQoNCkFsZSB0byBtYXMgcG9yYWQgdG8gc2FtZS4gQ28gdiBwcmVjaG9kdSBtZXNp
Y2UsIGtkeSBuYXN0YW5lIHByaXBhZCwNCmt0ZXJ5IGpzZW0gcG9zYWwgcHJlZHRpbSA/IFBhayBz
ZSBub3Z5IGRva2xhZCB2IGRhbHNpbSBtZXNpY2kgemFwaXNlDQpkbyB0ZSBkaXJ5Lg0KDQotLSAN
CkphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3o=
Neprerusena ciselna rada pro doklady v FB/IB
[*] Hlas <hlas(zv)inmail.sk> - 24.9.2002 08:30:42
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> V zadnem pripade cisla neprideluj pri zacatku editace dokladu a kdyz,
> tak pouze informativne.
>
ako sa to da urobit - nepridelovat cislo pred zaciatkom editacie, ked pocas
editacie chcem udrzat vazbu
master detail a prim. kluc je zaroven kodom tejto vazby?
----------
Teraz si uz KAZDY moze registrovat svoju domenu .SK
Viac info na: http://www.SlovakNET.sk/predregistracia.asp
SINEA a OnGetData, OnStepData
[*] Anton�n =?ISO-8859-1?QD8ez�� - 24.9.2002 08:30:48
Zdravim,
snazim se podstrcit Sinei data pomoci OnGetData a OnStepData. Obsluhu
udalosti mam napsanou, ale editor predloh zatvrzele pozaduje DataSource.
Nevite nekdo, jak na to ?
Diky
Antonin Rezac
D6, Sinea 6.40.17
Kod na webu was: Kod na precislovani cisel telefon
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.9.2002 08:38:02
> Doufam ze za svou dobrotu zase vyvolam flamewar ohledne optimalizace
> funkci :)
Ahoj,
nasledujici povidani nema zadnou souvislost s puvodnim tazatelem a jeho sw, jde o
obecne povidani.
Dnes existuje ohromna spousta stranek s vlastnimi komponentami autoru. Mnohdy
jde o stranky studentu, kteri si chvili hraji s Delphi, naucili se tvorit www stranky a tak
si tam vystavi neco ze sve tvorby. Nicmene IMHO to je pro ostatni programatory v
podstate nepouzitelne, protoze:
1) Takovych stranek je silene mnozstvi, takze nema smysl je zkouset vsechny
navstivit.
2) Na techto strankach je obvykle velmi malo veci - treba 5 komponent apod. V
souvislosti s bodem 1 si myslim, ze kdyz clovek bude hledat nejake reseni, potrebuje
jen nekolik malo velkych sbirek kodu a komponent, jako torry apod.
Presto je mozne, ze na primy odkaz nekdo pouzije i zdrojaky z techto mimisbirek. Je
pak skoda, kdyz po stahnuti zjisti, ze ten kod je diky neznalosti ci kratouckemu
pouzivani Delphi napsany otresne. Daleko horsi je, kdyz takovy kod najde
zacatecnik, ktery neumi posoudit kvalitu, ale inspiruje se tim a dalsi svoje veci
programuje podobne.
Dnes v dobe, kdy se slohove prace do skoly nepisi, nybrz stahuji z internetu a kdy
novacek, ktery se chce v Delphi neco naucit, misto knihy hleda ukazkovy program,
ze ktereho by vykoukal, o co vubec v resene problematice jde, si myslim, ze je
potrebne upozornovat na mizerny kod, a pokud to povede k jeho uprave ci aspon
pouceni autora, splni to ucel. Aby toho mizerneho, co mnozi zacatecnici pouzivaji
jako vzor a inspiraci, bylo alespon co nejmene.
Jeste jednou zduraznuji, ze nejde o narazku na sw autora puvodniho sw, protoze ten
prakticky neznam. Jen se mi obecne nelibi trend metod uceni se Delphi, kdy vubec
nejde o to, udelat to dobre, ale udelat to jakkoli, hlavne kdyz to po 10 pokusech
konecne zacne fungovat.
David Lebeda
Neprerusena ciselna rada pro doklady v FB/IB
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 24.9.2002 08:39:34
On 24 Sep 2002 at 8:13, Jaroslav Koh�k wrote:
> Nejlepsi mas kdyz udelas generator:
> CREATE GENERATOR GEN_Muj;
> SET GENERATOR GEN_Muj TO 161
> a das do trigeru:
> CREATE TRIGGER jmeno FOR tabulka BEFORE INSERT POSITION 0 AS
> BEGIN
> NEW.TvojeID = gen_id(GEN_Muj,1);
> END
Gott der Gerechte, tohle byste snad nemel pro generovani
NEPRETRZITE ciselne rady radit ani z legrace a ani nejvetsimu
nepriteli. Generatory se posouvaji nezavisle na transakci a tim
padem tam bude der jak v ementalu.
SINEA a OnGetData, OnStepData
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 24.9.2002 08:43:56
> From: Anton�n �ez��
>
> snazim se podstrcit Sinei data pomoci OnGetData a OnStepData.
> Obsluhu udalosti mam napsanou, ale editor predloh
> zatvrzele pozaduje DataSource.
Udalosti OnGetData a OnStepData se projevi pouze
ze behu aplikace, nikoliv pri editaci v IDE.
Takoveto sestavy je mozne editovat pouze
z bezici aplikace, nikoliv z IDE.
Vaclav Krmela
Re[3x]: IB - zakladni nastaveni+rozjeti RemoteServ
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 24.9.2002 08:51:52
> > > 1) bez problemu jsem rozjel LocalServer. Proc nemuzu stejne rozjet
> > > RemoteServer?
> > Muzete mi rict, co mam presne vyplnit pri registraci RemoteServer?
> Jmeno serveru by melo byt "localhost" nebo "127.0.0.1", user "SYSDBA"
> a password "masterkey".
Muzu zadat IP, ne? To jsem udelal. Jinak v souboru Hosts v systemu Windows mam
zatim localhost 127.0.0.1, ale ve skutecnosti je me IP 193.86.107.188 (zkousel
jsem to i prepsat, ale treba je chyba jeste nekde).
user a password je OK. Pak to hlasi:
Unable to complete network request to host "tonda".
Failed to establish a connection.
unknown Win32 error 10061
> 1) Vyzkousel jsi po zaregistrovani v IBConsoli na pravem tlacitku volbu
> Diagnose connection?
Ano, vysledky testy posilam:
An InterBase error has occurred while attaching.
Error - Unable to complete network request to host "193.86.107.188".
Failed to establish a connection.
unknown Win32 error 10049
InterBase Communication Test Failed!
> 2) Mas zaregistrovanou TCP sluzbu gds_db na portu 3050 (zjisti to lze
> v souboru services napr. na NT/2000/XP v adresari c:\WINDOWS
> \system32\drivers\etc\services)?
ano to jsem kontroloval, mam.
> 3) Posloucha server na tomto portu (zjistit to lze napr. na NT/2K/XP pomoci
> "netstat -a" nebo pomoci utility TCPView z www.sysinternals.com)?
tak tohle jsem nedelal. Provedu. ;o)
> > Mozna by mi pomohlo i vysvetleni jaky je rozdil mezi Local Serverem a
> > RemoteServerem.
>
> Server je jen jeden, lisi se pouze zpusob spojeni mezi klientem a serverem.
> Remote spojeni pouziva sitovy protokol a to i tehdy pokud jsou oba na
> stejnem stroji. Lokalni spojeni pouziva techniku memory mapped filu a
> synchronizaci z operacniho systemu, takze je mnohem rychlejsi, avsak lze
> pouzit jen pokud jsou klient a server na stejnem stroji.
>
> Martin Schayna
Ja bych chtel vyzkouset, jestli se pripojim pres sit (taky kvuli tomu prechazim,
z BDE). Chtel bych rozjet na WinNT, na jednom PC, pomoci TCP protokolu prostredi
RemoteServer/Client. Je to mozne? Jak???
Diky za kazdou radu. (FB jsem si stahnul a vecer ho vyzkousim)
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Prekvapive dobry signal! Presvedcte se v Oskar Testu ...
http://www.oskarmobil(tec)cz/oskartest
CoMarshalInterface vraci E_INVALIDARG
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 24.9.2002 09:19:35
Abych pravdu rekl, framework okolo ConnectionPoints jsem zavrhl. Duvod:
univerzalni, ale bohuzel dost nepruhledne => neco na tom odladit chce pevne
nervy. Dale pri provozu po siti v tomto modelu naskakuji nezanedbatelne casy
pri volani metod jednotlivych callback rozhrani. Nakonec jsem skoncil u
toho, ze si velmi jednoduchou obsluhu realizuju sam, s tim, ze volani
kazdeho registrovaneho callback interfacu (Sink) mam delane ze specialniho
vlakna. Taky to ma samozrejme svoje => nelze pouzit pro vetsi mnozstvi
klientu (radove max. desitky), ale to mi staci. Vyhodou je, ze to ma clovek
docela pod kontrolou a volani callback interfacu mi bezi "paralelne", coz je
pro me dost podstatne.
O :-))
> -----Puvodni zprava-----
> No dobre, ale jak z toho ven. Pokracoval sem v pruzkumu a zameril
> sem se na
> klienta, ktery by v urcitem bode mel serveru predat ukazatel na
> sink event
> objekt a to procedurou InterfaceConnect, definovanou v jednotce
> ComObj.pas.
> Ta procedura vypada takto:
>
> procedure InterfaceConnect(const Source: IUnknown; const IID: TIID;
> const Sink: IUnknown; var Connection: Longint);
> var
> CPC: IConnectionPointContainer;
> CP: IConnectionPoint;
> begin
> Connection := 0;
> if Succeeded(Source.QueryInterface(IConnectionPointContainer,
> CPC)) then
> if Succeeded(CPC.FindConnectionPoint(IID, CP)) then
> CP.Advise(Sink, Connection);
> end;
>
> cely kod probehne spravne a do mista, kde se vola CP.Advise(Sink,
> Connection), kde je Connection je cookie, ktery mam ziskat od Automation
> objektu. U var. A je vse OK a cookie je 1, u var. B dostanu jako cookie 0.
>
> Probuh, co ma kde nastavit, opravit, prepsat, upravit, ...., aby to
> fungovalo. Su z toho jelen.
>
> WinXP, D6PRO UPDATE PACK 2
>
> kchodl
>
thready
[*] Tom� Janta��������{����Y��̿ - 24.9.2002 09:49:37
Ahoj
Mas pravdu ze Thready pracuji nezavisle na jinych procesech, ale predstav si
jak procesor vykonava instrukce! On provadi nejakou cast programu (jedno
vlakno) a sam z niceho nic se do jineho procesu prepnout nemuze. To za nej
dela system, ktery vlastne spousti a koordinuje procesy. Takze System zavola
nejakou cast programu (pomoci nejake udalosti napr. onClick) a dokud
procedura obsluhujici tuto udalost neskonci, nebo nepovoli zpracovani
dalsich udalosti systemu probiha jeji zpracovani. Tzn. Pokud mas v nejake
casti hlavniho vlakna narocnejsi operace, je nutne je prolozit prikazem
Application.ProcessMessages nebo sleep(X). Kdyz tedy bude nejaka procedura
vykreslovat ve smycce neco na obrazovku je nutne do smycky vlozit jeden z
techto prikazu. Tim hlavni vlakno preda rizeni systemu, ten zpracuje
udalosti a preda rizeni dalsimu procesu. Procesy se takto mezi sebou
stridaji o systemovy cas a tak mohou bezet jakoby "paralelne".
V tvem pripade jde tedy pravdepodobne o to ze hlavni vlakno nenecha system
obslouzit ostatni procesy a ty se ke slovu dostanou az pozdeji, po TimeOutu
Pokud muzu radit, zkus se zamerit na funkce WaitForSingleMessage a
WaitForMultipleMessage s vyuzitim Eventu pri cekani a synchronizaci vlaken.
Osobne pri komunikaci po seriovem portu pouzivam komponentu afComPort od
Petra Vonese asi timto zpusobem:
....
procedure TMyCom.AfComPort1NonSyncEvent(Sender: TObject;
EventKind: TAfCoreEvent; Data: Cardinal);
begin
If (DATA AND Not(EV_RXCHAR)=0) AND (EventKind=ceLineEvent) then
setEvent(eventData);
end;
Constructor TMyCom.Create;
begin
eventData := CreateEvent(nil,false,false,nil);
eventShutDown := CreateEvent(nil,false,false,nil);
afComPort.onNonSyncEvent:=AfComPort1NonSyncEvent;
end;
Procedure TMyCom.Execute;
Var MO : array [0..1] of THandle;
begin
MO[0]:=eventData;
MO[1]:=eventShutDown;
Repeat
Case WaitForMultipleObject(2,(zv)MO,false,200) of
WAIT_OBJECT_0 : Zpracuj data na portu!;
WAIT_OBJECT_0+1: Bereak;
WAIT_TIMEOUT : Pripadna obsluha pri zadne udalosti a
TimeOutu(200ms);
end;
until terminated;
end;
...
Tomas Jantac
>mam problem ktery se budu snazit popsat: mam hlavni vlakno aplikace
>a jeden thread ktery vypada asi takto:
>
>execute:
>
>OdesilaniDatNaComPort();
>
>cas_odeslani := GetTickCount;
>// cekam na data nebo na timeout
>while ( (not odpoved_od_stroje) and (GetTickCount < (cas_odeslani +
>timeout_mezi_odeslanim_a_prijmem) ) ) do sleep( 2 );
>
>CekaniNaPredpokladanyPocetDatATestovaniJestliNenastalTimeout;
>
>a ta posledni funkce normalne funguje, ale kdyz v hlavnim vlakne
>spustim nejakou funkci (treba z menu), se smyckou ktera neco dela -
>konkretne prekresleni obrazovky + dalsi veci tak v threadu nastane
>timeout. a me ted neni jasne proc, kdyz ten thread prece bezi uplne
>nezavisle na ostatnich vecech.
>
>snazil jsem se z toho threadu odstranit vsechny kriticke sekce a
>veskerou komunikaci s ostatnimi vlakny, ale timeout porad nastaval.
>
>potreboval bych aby vlakno bezelo opravdu nezavisle na tom co se
>deje ve zbytku aplikace
ClientDataSource
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 24.9.2002 10:01:55
Diky,
dobra, pro praci s daty mi staci SQLConnection a SQLQuery.
Ale co musim pouzit pro zobrazeni dat treba v DBGridu ???
V.
-----Original Message-----
From: Jan Grman [mailto:J.Grman(zv)kmer.elf.stuba.sk]
Sent: Monday, September 23, 2002 4:56 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ClientDataSource
> Ja jsem z toho out. Bylo mi receno, ze pouzivat BDE je nesmysl. Dobra, je
tu dbExpress. Ale jak s nim jednoduse pracovat ? Potrebuju data insertovat,
menit a mazat...
> Trapne jsem si myslel, ze pouziju SQLQuery. To mi jde, ale prijde mi to
pekna cunarna. Copak to nejde udelat podobne, jako v BDE, kde mi stacil
Connect a Sql ???
http://gethelp.devx.com/techtips/delphi_pro/10min/10min0701/10min0701-1.asp
http://gethelp.devx.com/techtips/delphi_pro/10min/10min0501/10min0501-1.asp
http://community.borland.com/article/0,1410,22495,00.html
Pekny den
jg
Bezpecne ulozeni dat
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 24.9.2002 10:03:58
Zdravim a dekuji za namet. Takove myslenky mne napadaly
take, avsak pro kazdeho poradneho hackera je prolomeni
takove ochrany smesnou zalezitosti. Jiste by to slo udelat
komplikovanejsi, avsak pak je dobre se poohlednout po
nejakych sifrovacich postupech, kde to je matematicky
overena pravdepodobnost zlomeni sifry velmi mala.
Ing. Jan Dvorak
> skus urobit HESLOm XOR stringu
>
> je to jednoduche, rychle a nie je na prvy pohlad jasne co
tam
> je :o) alebo
> potom mozes urobit aj nieco fikanejsie a to podla hesla si
vyberies z
> nejakej tabulky znakov prislusne kody... nuz robil som
jeden
> taky programcek
> na kryptovanie suborov ale tam som este pouzil neuplny
kluc ktory sa
> jednoducho v programe dogeneroval do uplneho a az potom
som
> to nim kryptoval
> a tento kluc bol este chraneny heslom... ale to je uz asi
pre
> teba riadne
> prekombinovane, doporucujem XOR s nejakou fikanou
> modifikaciou, inak sa
> radsej vrhni na kryptovacie kniznice delphi
>
> joka
thready
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 24.9.2002 10:19:54
Zalezi na casu toho timeoutu, normalne se cas prideluje po 5 - 20 ms.
Pokud je system zatizen, tak se ti muze stat, ze thread dostane cas
az po stovkach ms (extremene i po nekolikla desitkach sekund).
reseni:
1. doplnit vice CPU
2. zvetsit prioritu threadu
3. zvetsit prioritu aplikace
4. Napsat to jako kernel driver
5. Misto te divne smycky pouzit comtimeouts
6. Prodlouzit time outy (zpomalit komunikaci)
Slavek
> a ta posledni funkce normalne funguje, ale kdyz v hlavnim vlakne
> spustim nejakou funkci (treba z menu), se smyckou ktera neco dela -
> konkretne prekresleni obrazovky + dalsi veci tak v threadu nastane
> timeout. a me ted neni jasne proc, kdyz ten thread prece bezi uplne
> nezavisle na ostatnich vecech.
>
> snazil jsem se z toho threadu odstranit vsechny kriticke sekce a
> veskerou komunikaci s ostatnimi vlakny, ale timeout porad nastaval.
>
> potreboval bych aby vlakno bezelo opravdu nezavisle na tom co se
> deje ve zbytku aplikace
>
> diky
>
> ps: thread ma jeste roceduru ktera cte z com portu a nastavuje
> promennou odpoved_od_stroje
nacteni TIFF obrazku
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.9.2002 10:30:53
Preji vsem pekneho dne,
nevite nekdo o free (nemusi byt se zdrojaky) komponente (staci i
funkce), ktera by mi nacetla TIFF obrazek do necoho rozumneho (napr.
TBitmap)?
Diky za kazde info
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TWebBrowser s vlastnim kontextovym menu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.9.2002 10:34:07
Preji vsem pekneho dne,
prasknu na formular komponentu TWebBrowser a potreboval bych nahradit
kontextove menu (objevuje se za behu) vlastnim, kde krome mych
polozek budou i nektere standardni. Pokud to vubec jde, jak na to?
Kde ziskat seznam polozek v onom menu? Pripadne kde si o tom neco
precist?
Diky za kazde info
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
thready
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.9.2002 10:38:38
> Takze System zavola
> nejakou cast programu (pomoci nejake udalosti napr. onClick) a dokud
> procedura obsluhujici tuto udalost neskonci, nebo nepovoli zpracovani
> dalsich udalosti systemu probiha jeji zpracovani. Tzn. Pokud mas v nejake
Nejsem odbornik na thready, ale toto je zjevne blbost. Tak to fungovalo
za dob Windows 3.X, kdy byl kooperativni multitasking.
______________________________________________________
Karel Kral, vyvojar IT / IT developer
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
______________________________________________________
Distribuce & kompilace vice balicku komponent naje
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 24.9.2002 09:45:11
Dobry den,
mam nekolik sad komponent (hodne *.dpk), jejichz instalace zabere celkem cca
3 hodiny. Chtel bych tyto nainstalovat pokud mozno jednim ukonem. Moje
predstava je, ze novy programator si nakopiruje adresar, a nainstaluje
nejaky zastresujici balicek a nainstaluje se mu vsechno.
Moje napady:
-------
1) Udelat nejake dpk, jehoz instalaci se mi nainstaluji vsechny komponenty.
(to by ale znamenalo vybrat ty spravne unity ze vsech "podrizenych" balicku
a pridat je do "nadrizeneho" dpk a podrizenym nastavit rebuilt as needed a
...
2) Snazil jsem se pouzit Package Colecion Editor, ale:
2a) Dotahne se tam automaticky cela VCL a tvrdi to, ze tyto bpl nejdou
nainstalovat
2b) Spadne to na index out of range ... (vzdycky)
Jde to nejak udelat lepe a radostneji?
Diky
Danik
thready
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.9.2002 10:48:33
> Tzn. Pokud mas v nejake casti hlavniho vlakna narocnejsi
> operace, je nutne je prolozit prikazem
> Application.ProcessMessages nebo sleep(X). Kdyz tedy bude
> nejaka procedura vykreslovat ve smycce neco na obrazovku je
> nutne do smycky vlozit jeden z techto prikazu. Tim hlavni vlakno
> preda rizeni systemu, ten zpracuje udalosti a preda rizeni
> dalsimu procesu. Procesy se takto mezi sebou stridaji o
> systemovy cas a tak mohou bezet jakoby "paralelne".
To bolo v 16-bitovych Windows. Vo Win32 funguje preemptivny multitasking.
Ak mas v hlavnom threade programu pevnu slucku a nevolas
Application.ProcessMessages, prejavi sa to len v Tvojom programe - tym, ze
pocas vykonavania slucky nereaguje na spravy. Na ostatne procesy to nema
vplyv.
> V tvem pripade jde tedy pravdepodobne o to ze hlavni vlakno
> nenecha system obslouzit ostatni procesy a ty se ke slovu
> dostanou az pozdeji, po TimeOutu
Vo Win32 to nehrozi. Hovoris o 32-bitovych Windows?
TOndrej
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 24.9.2002 11:09:42
Tomu vubec nerozumim. Porad neumim nastavovat jednotlive wordowske proprty. Neumim ani napsat kod, ktery by se tvaril,
ze to bude delat a sel by zkompilovat.
Predstavovat bych si, ze napisu neco jako:
WordDocument.CustomDocumentProperties('C�slo dokumentu') := 123
ale to jsem teda dost naivni.
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of ing. Jan Fiala
> Sent: Tuesday, September 24, 2002 8:20 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CustomDocumentProperties
>
>
> Zkus tohle:
>
> var
> docprop: Variant;
> begin
> docprop := WordDocument.CustomDocumentProperties;
>
> pak uz k tomu pristupujes pres
> docprop.
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 24.9.2002 Tomas Folprecht:
> > Ja mnohokrat dekuji za pomoc. Tohle jsem jiz nasel take, ale problem
> > je v tom, jak k se k tomu dostat z Delphi. Tam to tak jednoduche
> > neni.
>
>
OT:ForeHelp a novejsi verze
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.9.2002 11:17:09
Ahoj,
mam jiste problemy s Forhelpem. Pouzivam verzi 2.96 a je to uz dost stara verze. Nainstaloval jsem si Help workshop a od te doby mi nechodi interni preklad Forehelpu do HLP. Musim pouzit Help Workshop (ma i lepsi kompresi) ale moc mi to nevyhovuje. Nevite, kde se da sehnat novejsi verze Forehelpu, ktere by to nevadilo (v soucasnosti uz Forehelp asi neexistuje, potreboval bych asi jeste tu verzi kdy Forehelp byl Forehelpem) nebo alespon jak donutit Forehelp, aby nekolaboval na prekladu do HLP (pokud je to tedy jen nejaky problem nastaveni, ktere prepsal HelpWorkshop).
Diky za kazdou radu
Jaro B.
IB versus MSSQL
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 24.9.2002 10:32:23
> > je mssql lepsi ako IB?
>
> Prijde na to jak v cem a jak pro koho. Tuto otazku by si mel kazdy
> zodpovedet sam dle svych vlastnich aplikacnich potreb.
>
> > je mssql ozaj free?
> Ocesana verze ano.
A neni to free jen pokud mas koupenou nejakou licenci na MSSQL? Jedna-li se
o MSSql personal (http://www.microsoft.com/cze/servers/sql/howtobuy/) (popr.
neco jako jen pro vyvojare ...)
> > ako sa da pristupovat k mssql? iba cez dbx?
> > su aj nativne komponenty?
co treba SqlDirect?
> > bojim sa, ze ked postavim aplikaciu nad IB6/firebird, komponenty IBX
> > nebudu sledovat vyvoj firebirdu a vyssie verzie IB budu
> zasa platene.
Ktere komponenty doporucujes pro FB? U IBX asi opravdu hrozi budouci
nekompatibilita s FB.
Danik
Neprerusena ciselna rada pro doklady v FB/IB
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 24.9.2002 10:39:33
[P��loha v souboru: winmail.dat]
> Nejlepsi mas kdyz udelas generator:
>
> CREATE GENERATOR GEN_Muj;
> SET GENERATOR GEN_Muj TO 161
>
> a das do trigeru:
>
> CREATE TRIGGER jmeno FOR tabulka BEFORE INSERT POSITION 0 AS
> BEGIN
> NEW.TvojeID = gen_id(GEN_Muj,1);
> END
A co kdyz to vypadne na chybu pri tom Insertu -> vznikne dira v
posloupnosti.
Generator rollbackem nevratis. Neznam moc IB, ale pochybuji, ze test na
integritu apod. dela jeste pred beforeinsert.
Pomohlo by AfterInsert, nebo ne? Co to udela, pokud je na ID constraint na
not null?
Danik
PS: opravdu me odpoved zajima, jelikoz to budu brzo asi resit :-)
CustomDocumentProperties
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 11:47:22
DQoyNC45LjIwMDIgVG9tYXMgRm9scHJlY2h0Og0KPiBUb211IHZ1YmVjIG5lcm96dW1pbS4gUG9y
YWQgbmV1bWltIG5hc3Rhdm92YXQgamVkbm90bGl2ZSB3b3Jkb3dza2UgcHJvcHJ0eS4gTmV1bWlt
IGFuaSBuYXBzYXQga29kLCBrdGVyeSBieSBzZSB0dmFyaWwsDQo+IHplIHRvIGJ1ZGUgZGVsYXQg
YSBzZWwgYnkgemtvbXBpbG92YXQuDQo+IFByZWRzdGF2b3ZhdCBieWNoIHNpLCB6ZSBuYXBpc3Ug
bmVjbyBqYWtvOg0KDQo+ICBXb3JkRG9jdW1lbnQuQ3VzdG9tRG9jdW1lbnRQcm9wZXJ0aWVzKCdD
7XNsbyBkb2t1bWVudHUnKSA6PSAxMjMNCg0KPiBhbGUgdG8ganNlbSB0ZWRhIGRvc3QgbmFpdm5p
Lg0KDQpUZW4ga29kIGRvbGUgbmVjaG9kaSA/DQpQcm9zdGUgbXVzaXMgaW50ZXJmYWNlIHByaXJh
ZGl0IGRvIG5lamFrZSBwcm9tZW5uZSBhIHMgbmkgcGFrDQpwcmFjb3ZhdC4gUHJpbW8gdG8gbmVq
ZGUuDQoNCg0KPj4gWmt1cyB0b2hsZToNCj4+DQo+PiB2YXINCj4+ICBkb2Nwcm9wOiBWYXJpYW50
Ow0KPj4gYmVnaW4NCj4+ICBkb2Nwcm9wIDo9IFdvcmREb2N1bWVudC5DdXN0b21Eb2N1bWVudFBy
b3BlcnRpZXM7DQo+Pg0KPj4gIHBhayB1eiBrIHRvbXUgcHJpc3R1cHVqZXMgcHJlcw0KPj4gIGRv
Y3Byb3AuDQo+Pg0KDQotLSANCmluZy4gSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5j
eg==
Neprerusena ciselna rada pro doklady v FB/IB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 24.9.2002 11:51:19
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Chce to t�eba samostatnou tabulku, kde jsou cisla.
> V ramci transakce pri zapisu dokladu pridelis cislo, > navysis jej v
tabulce a commitnes cely zapis dokladu.
> Je treba dbat na spravnou uroven transakce.
Aby to mohlo fungovat v concurrent rezimu,
musi byt operace cteni+inkrementu neprerusitelna
jinym procesem.
Jak se to na SQL serveru implementuje?
* existuje nejaky SQL prikaz, ktery umi zaroven
vratit hodnotu pole a inkrementovat ji v tabulce?
* nebo lze predepsat, aby se STORED PROC vykonala
exclusivne?
* nebo existuji na urovni SQL nejaky prikazy pro
implementaci kriticke sekce
* nebo ....?
thx, pf
Neprerusena ciselna rada pro doklady v FB/IB
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 11:51:09
24.9.2002 Hlas:
> ako sa to da urobit - nepridelovat cislo pred zaciatkom editacie, ked pocas
> editacie chcem udrzat vazbu
> master detail a prim. kluc je zaroven kodom tejto vazby?
A jaky je problem si tam to cislo po editaci dodat ? proste doedituji
a nez to zapisu do tabulek, reknu si o cislo dokladu, a to tam
doplnim.
K cemu je potrebujes v prubehu editace ?
To snad editujes v GRIDu ? Pak s tim budes mit ve viceuzivatelskem
rezimu problemy. A pokud to neni sitova aplikace, nemusis se o ciselne
rady starat.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
thready
[*] kevin33(zv)post(tec)cz - 24.9.2002 11:52:04
> > Tzn. Pokud mas v nejake casti hlavniho
> vlakna narocnejsi > operace, je nutne je
> prolozit prikazem
> > Application.ProcessMessages nebo sleep(X).
> Kdyz tedy bude > nejaka procedura
> vykreslovat ve smycce neco na obrazovku je >
> nutne do smycky vlozit jeden z techto
> prikazu. Tim hlavni vlakno > preda rizeni
> systemu, ten zpracuje udalosti a preda
> rizeni > dalsimu procesu. Procesy se takto
> mezi sebou stridaji o > systemovy cas a tak
> mohou bezet jakoby "paralelne".
> To bolo v 16-bitovych Windows. Vo Win32
> funguje preemptivny multitasking. Ak mas v
> hlavnom threade programu pevnu slucku a
> nevolas Application.ProcessMessages, prejavi
> sa to len v Tvojom programe - tym, ze pocas
> vykonavania slucky nereaguje na spravy. Na
> ostatne procesy to nema vplyv.
pises ze na ostatni procesy to nema vliv? a jaky to ma vliv na
thready v ramci moji aplikace?
> > V tvem pripade jde tedy pravdepodobne o to
> ze hlavni vlakno > nenecha system obslouzit
> ostatni procesy a ty se ke slovu > dostanou
> az pozdeji, po TimeOutu
> Vo Win32 to nehrozi. Hovoris o 32-bitovych
> Windows?
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 11:59:54
> > V zadnem pripade cisla neprideluj pri zacatku editace dokladu a kdyz,
> > tak pouze informativne.
> >
> ako sa to da urobit - nepridelovat cislo pred zaciatkom editacie, ked pocas
> editacie chcem udrzat vazbu
> master detail a prim. kluc je zaroven kodom tejto vazby?
Mas pravdu, prim. klic pri editaci potrebujes.
Mimo jine to znamena, ze se musis vzdat pozadavku na kontinualni casovou radu id (treba kdyz uzivatel zmackne Cancel).
(Viz moje uvaha v paralelni zprave.)
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)
=========================================
thready
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.9.2002 12:00:36
> Mas pravdu ze Thready pracuji nezavisle na jinych procesech, ale
predstav si
> jak procesor vykonava instrukce! On provadi nejakou cast programu
(jedno
> vlakno) a sam z niceho nic se do jineho procesu prepnout nemuze. To
za nej
> dela system, ktery vlastne spousti a koordinuje procesy. Takze
System zavola
> nejakou cast programu (pomoci nejake udalosti napr. onClick) a dokud
> procedura obsluhujici tuto udalost neskonci, nebo nepovoli
zpracovani
> dalsich udalosti systemu probiha jeji zpracovani. Tzn. Pokud mas v
nejake
> casti hlavniho vlakna narocnejsi operace, je nutne je prolozit
prikazem
> Application.ProcessMessages nebo sleep(X).
blbost. Od Win9x funguje multitasking ve windows nastesti uplne jinak.
Planovac uloh v systemu prideluje cas uloham a po dane dobe jim ho
odebere at aplikace chce nebo ne. Cili v Tvem prikladu s OnClickem se
muze stat, ze behem vykonavani jeho obsluhy bude stokrat aplikaci CPU
odejmut a znovu pridelen.
ProcessMessages je jen o tom, ze potrebujes donutit prekreslovaci
rutiny (stejneho threadu) aby obnovili zaobrazovany obsah okna (cili
vlastne jde o trosku zasmodrchane proste volani v ramci jednoho
threadu/procesu)
> V tvem pripade jde tedy pravdepodobne o to ze hlavni vlakno nenecha
system
> obslouzit ostatni procesy a ty se ke slovu dostanou az pozdeji, po
TimeOutu
preemptivni multitaskink je prave o tom, ze muzes mit X
aplikaci/threadu, kde v kazde pobezi prave jen prosta hloupa smycka
(while true do Inc(I);) a ve vsech apliacich se bude I vesele zvysovat
(ze bude CPU na 100% zatizene je samozrejme)
D. Toman
IB versus MSSQL
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 12:13:00
> Odes�latel: Daniel Frantik <frantik(zv)telpro(tec)cz>
> Ktere komponenty doporucujes pro FB? U IBX asi opravdu hrozi budouci
> nekompatibilita s FB.
Nevim, zda jsou moje informace aktualni.
Pavel Cisar mi 7.3.2002 napsal
> > V adresari Drivers jsou nasledujici veci:
> >
> > fib/freeibcomponents.exe
> Stare dobre FreeIBComponents, pokud nebudete pouzivat D5, D6
>
> > fibplus/fibplus4_5_full.zip
> Jako IBX (maji stejneho predka - FreeIB). IBX sice pracuje s FB,
> ale bez zaruky a Jeff Overcash - spravce IBX - nehne ani prstem
> aby IBX fungoval s FB i v budoucnu. FIBPlus a IBO podporuji IB i
> FB tady a ted i v budoucnu.
>
> > IBObjects
> Tohle rozhodne stoji za pozornost. Nejlepsi sada komponent pro
> Delphi a IB/FB.
Ja si z toho delam zaver: FIBPlus nebo IBObjects.
IBObjects free nejsou.
Jak je to s FIBPlus, to presne nevim. Nekde jsem slysel, ze to free neni.
Jak je to, Pavle?
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)
=========================================Obousmerne odkazy na Interfaces a ref counting
[*] Jan K��ek - 24.9.2002 12:13:34
Zdravim,
zacinam pouzivat Interface misto abstraktnich trid a mam nasledujici
problem. Casto mam objekty udrzovane ve stromove strukture - tedy rodic
drzi interface IInterfaceList a v nem ma potomky. Obcas ty potomci
potrebuji naopak mit odkaz na rodice a tak jim predavam jeho interface v
konstruktoru a oni si ho ulozi do privatni promenne - problem je, ze se
zapocita reference a takova struktura se mi nikdy neuvolni. Takze mam na
to nasledujici kod:
IParent = interface(IUnknown)
...
IChild = interface(IUnknown)
...
TChild = class(TInterfacedObject, IChild)
private
FParent: IParent;
...
constructor Create(AParent: IParent);
end;
constructor TChild.Create;
begin
inherited Create;
FParent := AParent;
if Assigned(FParent) then FParent._Release;
...
end;
To funguje, ale lze nejak udelat prirazeni FParent := AParent, tak aby
se nezvysil RefCount (tedy nezavolalo se _Add).
Honza +
D5Prof
Neprerusena ciselna rada pro doklady v FB/IB
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 12:18:17
24.9.2002 Petr Fejfar:
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Aby to mohlo fungovat v concurrent rezimu,
> musi byt operace cteni+inkrementu neprerusitelna
> jinym procesem.
> Jak se to na SQL serveru implementuje?
> * existuje nejaky SQL prikaz, ktery umi zaroven
> vratit hodnotu pole a inkrementovat ji v tabulce?
> * nebo lze predepsat, aby se STORED PROC vykonala
> exclusivne?
> * nebo existuji na urovni SQL nejaky prikazy pro
> implementaci kriticke sekce
> * nebo ....?
Nastavi se uroven transakce treba na
set transaction level serializable
To staci udelat na chvilku, nez nactes cislo a inkrementujes je.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
CustomDocumentProperties
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 12:19:11
> Odes�latel: Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz>
> Ja mnohokrat dekuji za pomoc. Tohle jsem jiz nasel take, ale problem je v tom, jak k se k tomu dostat z Delphi. Tam to
> tak jednoduche neni.
Ja tedy vubec neznam interface do Wordu. Ale pokud dostanu jakykoli interface (staci IDispatch, CreateOLEObject), tak uz volam vsechny metody bez problemu. (No, pokud je to jenom trochu mozne, tak bych se vyhnul pouziti typu Variant.)
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)
=========================================
QUICKREPORT A MEMO
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 24.9.2002 11:28:05
J�n Kuch�r, <mailto:kuchar(zv)unicodesys(tec)cz> napsal:
> ted potrebuju zabezepecit vypis techto jednotlivych textu jako
> samostatne bloky na quickreport asi nasledovne :
> M1 M2 M3
> M4 M5 M6
> M7 M8 M9
> kde cisla M1-az xxx predsavuji prave ty jednotlive texty z mema o nekolika
> radcich a o libovolne delce radku.
Kdysi jsem delal sestavy, ktere vypisovaly retezce konstantni delky do
nekolika sloupcu (1 az 8), pocet sloupcu byl zavisly prave na delce
retezcu. Bylo to dost huste. Proc si to komplikovat a nepsat to krasne jedno
memo pod druhe ? Zvlast pokud kazde memo ma nekolik radku o libovolne
delce.
> 2 - co kdyz nebudu chtit zrusit zobrazeni napr. M3, jak posunout poradi tech
> ostatnich memo pozic
Pri vypisu pod sebe se tento problem vyresi sam :-).
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 24.9.2002 12:35:27
No dobra, mam odkaz na Word.....Properties v promenne typu Variant, ale to je nejaka Visual Basicovska Collection. Jak
z ni vytahnout jeden prvek?
Asi jsem dost natvrdly, co?
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of ing. Jan Fiala
> Sent: Tuesday, September 24, 2002 11:47 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CustomDocumentProperties
>
>
> 24.9.2002 Tomas Folprecht:
> > Tomu vubec nerozumim. Porad neumim nastavovat jednotlive wordowske proprty. Neumim ani napsat kod, ktery by
> se tvaril,
> > ze to bude delat a sel by zkompilovat.
> > Predstavovat bych si, ze napisu neco jako:
>
> > WordDocument.CustomDocumentProperties('C�slo dokumentu') := 123
>
> > ale to jsem teda dost naivni.
>
> Ten kod dole nechodi ?
> Proste musis interface priradit do nejake promenne a s ni pak
> pracovat. Primo to nejde.
>
> >> Zkus tohle:
> >>
> >> var
> >> docprop: Variant;
> >> begin
> >> docprop := WordDocument.CustomDocumentProperties;
> >>
> >> pak uz k tomu pristupujes pres
> >> docprop.
> >>
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 12:37:30
> Odes�latel: Daniel Frantik <frantik(zv)telpro(tec)cz>
> Pomohlo by AfterInsert, nebo ne? Co to udela, pokud je na ID constraint na
> not null?
Nepomohlo. After Insert uz nelze new.polozka menit.
Pokud se nemylim, probiha to nasledovne:
1. before insert
2. integritni kontroly
3. after insert
Podotykam, ze pokud after insert dojde k navaznym akcim na jinych tabulkach, ktere skonci chybou, tak se provede celkovy rollback celeho insertu (i kdyz uz jsem AFTER) vcetne vseho, co jsem udelal before insert. Tedy prave s vyjimkou generatoru.
Abych se priznal, nedokazu pochopit, jak toto resil MSSQL, kdyz neznal before/after a jak to resi ted.
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)
=========================================
ClientDataSource
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 12:45:27
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> dobra, pro praci s daty mi staci SQLConnection a SQLQuery.
> Ale co musim pouzit pro zobrazeni dat treba v DBGridu ???
A jsme tam, kde jsme uz byli: jedine ClientDataSet.
Anebo, jak by asi poradil Zbysek :-), data umistit do vlastnich objektu a na DBControls zapomenout.
Pak mam vsechno uplne pod vlastni kontrolou. Je to ale pracnejsi.
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)
=========================================
CustomDocumentProperties
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.9.2002 12:45:53
K te kolekci pristupujes prave pres tu promennou. Takze misto abys
psal
WordDocument.CustomDocumentProperties()
zkus napsat
promenna.neco(....)
V lepsim pripade ti to po napsani tecky delphi nabidne properties
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
24.9.2002 Tomas Folprecht:
> No dobra, mam odkaz na Word.....Properties v promenne typu Variant, ale to je nejaka Visual Basicovska Collection. Jak
> z ni vytahnout jeden prvek?
> Asi jsem dost natvrdly, co?
Kod na webu was: Kod na precislovani cisel telefon
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.9.2002 13:07:54
> Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> Jeste jednou zduraznuji, ze nejde o narazku na sw autora puvodniho sw, protoze ten
> prakticky neznam. Jen se mi obecne nelibi trend metod uceni se Delphi, kdy vubec
> nejde o to, udelat to dobre, ale udelat to jakkoli, hlavne kdyz to po 10 pokusech
> konecne zacne fungovat.
Diky, Davide, mluvis mi z duse.
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)
=========================================
Kod na webu was: Kod na precislovani cisel telefon
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.9.2002 13:09:09
Svet je uz takovy. Stale se zkracuje cas na vyvoj a hledaji se uz instantni reseni. At je to jakkoliv, hlavne ze to fuguje. A v dalsi verzi se to treba zahodi a vari se instantne z neceho noveho. Treba...
Pokud se uz rozhodnu o uziti nejake free (nebo za penizky) knihovne, baliku komponent, a rozleze se mi to po projektech, tak jsem de facto otrokem distributorske firmy/developera (zvlazt kdyz komponenty nejsou zas tak uplne bez zavazku, cela knihovna pouziva spolecneho predka - narazim tim na knihovny HighGear nebo Orpheus - atp.). Cekam na patche (i kdyz mam zdrojaky), opravuji interface (pokud je developer zmeni), nebo sam opravuji zjevne chyby. Ale vyrazit balik komponent ze vsech projektu, pokud zjistim, ze mi nevyhovuji nebo nezapadaji do me koncepce je docela problem. Otazkou je, zda-li se to pro pracnost a casovou narocnost vubec vyplati ? A je-li za takovy balik vubec nejaka alternativa. A pak, kdyz uz se rozhodnu pro zmenu, tak co s tim starym? Konvertovat? Zahodit a budovat znovu? Lovit ve sbirkach komponent a skladat alternativu jako mozaiku?
Pokud budu varit instantne a kazdy druhy mesic zacinat novy projekt, tak me to neboli. Ale pokud mam udrzovat projekty, ktere maji dlouhou dobu zivota (napriklad v pojistovnictvi), jsou konzervativni, ale maji svuj jisty periodicky vyvoj a presto by mely jit s dobou, co pak s tim ? V takovyhle projektech je utopeno mnoho prace, jsou uz plne vyjimek a uz neni jednoduche vydat verzi dve, novou, bez zavazku, instantne uvarenou. Obvzlast, podili-li se na tom mnoho lidi (radove desitky, z nichz udrzuje/programuje aplikaci jeden-dva).
Takhle stojim dnes pred QuickReportem. Vyrazit ho? Je objektivne lepsi alternativa? A co s desitkama reportu, ktere jsou tak slozite a pracne? Taky vyhodit a namalovat lepsi (ale vlastne stejne) v jinem nastroji? To je otazka...
To je jako v zivote. Kdyz neco zdedis, mas sice zavazek minulosti ale lepsi vychozi postaveni nez ten co nema nic ale zase je bez zavazku. :-|
Jaro B.
-----Original Message-----
From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Tuesday, September 24, 2002 8:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kod na webu was: Kod na precislovani cisel telefonu
1) Takovych stranek je silene mnozstvi, takze nema smysl je zkouset vsechny
navstivit.
2) Na techto strankach je obvykle velmi malo veci - treba 5 komponent apod. V
souvislosti s bodem 1 si myslim, ze kdyz clovek bude hledat nejake reseni, potrebuje
jen nekolik malo velkych sbirek kodu a komponent, jako torry apod.
David Lebeda
Neprerusena ciselna rada pro doklady v FB/IB
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 24.9.2002 13:16:04
a co takto si to po sebe skontrolovat a ak nie je rada celistva (je diera)
tak ju precislovat a poopravovat relacie - to by slo po kazdom inserte, je
to sproste riesenie ale islo by to aj tak... vzdy by vlastne stacilo
okontrolovat len n cisiel dozadu podla toho pokial to bolo uz okontrolovane
- to by sa niekde odlozilo.... neviem ci by som to takto nezmakol skor ako
nejake ine riesenie ... a to uz ani nehovorim o dakych transakciach a
podobne.... apropo nevsimol som si na akej baze to mas, niektore bazy
(ORACLE) maju db trigre pre insert, update, delete kde je nieco taketo mozne
strcit a skor ako to zapise alebo po zapise sa to moze usporiadat... a
podobne
joka
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Tuesday, September 24, 2002 8:27 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Neprerusena ciselna rada pro doklady v FB/IB
24.9.2002 Pavel Cisar:
>> Chce to t�eba samostatnou tabulku, kde jsou cisla.
>> V ramci transakce pri zapisu dokladu pridelis cislo, navysis jej v
>> tabulce a commitnes cely zapis dokladu.
>> Je treba dbat na spravnou uroven transakce.
> Docela hruza z pohledu prace vice uzivatelu. Propustnost bude nula nula
> nic.
Z jakeho duvodu ?
Samozrejme predpokladam, ze nemam otevrenou transakci po celou dobu
porizovani dokladu (jak to mnozi delaji), ale predpokladam zpusob
prace, kdy je transakce zahajena az kdyz uzivatel potvrdi ulozeni
dokladu. A zapsani dokladu trva relativne chvilku.
Jake vidis problemy s propustnosti ?
>> V zadnem pripade cisla neprideluj pri zacatku editace dokladu a kdyz,
>> tak pouze informativne.
> To nelze vzdy dodrzet.
thready
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.9.2002 13:28:25
> > To bolo v 16-bitovych Windows. Vo Win32
> > funguje preemptivny multitasking. Ak mas v
> > hlavnom threade programu pevnu slucku a
> > nevolas Application.ProcessMessages, prejavi
> > sa to len v Tvojom programe - tym, ze pocas
> > vykonavania slucky nereaguje na spravy. Na
> > ostatne procesy to nema vplyv.
>
> pises ze na ostatni procesy to nema vliv? a jaky to ma vliv na
> thready v ramci moji aplikace?
za obvyklych podminek zadny. Thready stejne jako cizi procesy pobezi
simultanne
D. Toman
Memory manager BORLNDMM.DLL, padajici program pri
[*] Radek Ku�era <raku(zv)foresta(tec)cz> - 24.9.2002 13:38:32
Win2000, Delphi6, MSSQL2000, Adonis
Dobry den,
v programu pouzivam volani DLL. Pri uvolneni DLL ( FreeLibrary(LibHandle) )
na OS WIN95 vyskoci chyba: "Program provedl neplatnou operaci a bude
ukoncen". Na Win98, Win2000 i WinXP to funguje spravne.
I na W2000 me program padal v runtime modu (z vyvojoveho prostredi
fungoval), pokud jsem pouzival BORLNDMM.DLL : verze: 6.0.6.163 velikost:
22016 z 22.5.2001 8:00 z Delphi6. Kdyz jsem ji nahradil: BORLNDMM.DLL :
verze: 5.0.12.34 velikost: 13312 z 31.1.2000 5:00, funguje program spravne.
Na Win95 pada, i kdyz jsem zkusil BORLNDMM.DLL z Delphi4, ci pridal
DELPHIMM.DLL z Delphi4.
Muzete mne nekdo poradit, jak vyresit problem uvolneni DLL na Win95 ?
Prikladam ukazku pouziti:
procedure _SpustModul(...);
var
LIBHandle:THandle;
Run:TRun;
DataRun:TDLL;
HandleRun:THandle;
NazevDLL:string;
FceDLL :string;
Modul : String;
begin
FceDll :='RunDllDetail';
HandleRun:=Application.Handle;
//Spu�t�n� vybran�ho modulu(dll souboru)
LibHandle:=0;
(zv)Run:=nil;
try
LibHandle:=Loadlibrary(PChar(NazevDLL));
(zv)Run:=GetProcAddress(LibHandle,PChar(FceDll));
if not ((zv)Run=nil) then
finally
if LibHandle <> 0 then
begin
FreeLibrary(LibHandle); //!!! A tady to pada na Win95 !!!
end;
end;
end;
Predem dekuji za odpovedi
Radek Kucera
Formular vzdy na vrchu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 24.9.2002 14:05:37
Ahoj,
Vymazal Milan wrote:
>
> VS> procedure TIntellForm.FormActivate(Sender: TObject);
> VS> begin
> VS> SetWindowLong(Handle, GWL_HWNDPARENT, 0);
> VS> SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
> VS> SWP_NOMOVE or SWP_NOSIZE);
> VS> end;
>
> super tohle pomohlo.. funguje to skvele. ale kde jsi tohle nasel.
>
Subject:
Re: Form Stay on top
Date:
Wed, 15 Dec 1999 08:12:21 +0100
From:
Miroslav Mare� <sm(zv)sct(tec)cz>
Reply-To:
delphi-l(zv)fwd(tec)cz
To:
<delphi-l(zv)fwd(tec)cz>
Vaclav Sazima
Neprerusena ciselna rada pro doklady v FB/IB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 24.9.2002 14:39:51
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Nastavi se uroven transakce treba na
> set transaction level serializable
> To staci udelat na chvilku, nez nactes cislo a inkrementujes je.
Aha, ale pokud mne pamet neklame, tak jsem si teto moznosti u SQL serveru
nevsiml (ale nepotreboval jsem,tak nevim). Da se predpokladat, ze podobnou
vlastnost na urovni transakce ma vetsina SQL server u PC platforme?
Thx, pf
Neprerusena ciselna rada pro doklady v FB/IB
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.9.2002 14:47:10
>> Chce to t�eba samostatnou tabulku, kde jsou cisla.
>> V ramci transakce pri zapisu dokladu pridelis cislo, navysis jej v
>> tabulce a commitnes cely zapis dokladu.
>> Je treba dbat na spravnou uroven transakce.
>
>Docela hruza z pohledu prace vice uzivatelu. Propustnost bude nula nula
>nic.
podla mna to je jedno z najrozumnejsich a zaroven univerzalnych rieseni,
t.j. tabulka s pocitadlami, kde je mozne nastavit (a ak je to potrebne
i zmenit) hodnotu pocitadla a pripadne i hodnotu inkrementacie
(zase ak by to bolo potrebne). Kazde pocitadlo moze byt v zvlastnom
zazname, cize uzivatelia roznych tabuliek nie su vzajomne blokovani.
>> V zadnem pripade cisla neprideluj pri zacatku editace dokladu a kdyz,
>> tak pouze informativne.
>
>To nelze vzdy dodrzet.
preco nie? Master-detail relacia by aj tak nemala byt naviazana na
nejake cislo dokladu ale na ID zaznamu. A ci viem cislo dokladu
pocas alebo az po editacii (teda o 5 minut skor alebo neskor)
je podla mna uplne jedno.
>Neprerusovanou radu lze realizovat i vlastnim sdilenym TCP/IP serverem s
>jednoduchou implementaci dvoufazoveho potvrzovaciho protokolu.
zbytocne komplikovane a este k tomu low-level riesenie
Erik
Obousmerne odkazy na Interfaces a ref counting
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.9.2002 14:53:04
>To funguje, ale lze nejak udelat prirazeni FParent := AParent, tak aby
>se nezvysil RefCount (tedy nezavolalo se _Add).
skus po priradeni zavolat _Release a pocitadlo dekrementovat
(len pozor na to, aby objekt potom nebol uvolneny skor ako treba).
Samozrejme idealnym riesenim by bola automaticka sprava pameti,
t.j. GC, kde sa o to vobec nemusis starat ale to v COM a Delphi
nie je mozne pouzit (az v Delphi.NET).
Erik
Neprerusena ciselna rada pro doklady v FB/IB
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.9.2002 15:03:42
Ahoj,
> honza(zv)haes(tec)cz 24.9.02 12:37 >>>
>Abych se priznal, nedokazu pochopit, jak toto resil MSSQL, kdyz neznal before/after a jak to resi ted.
na MSSQL to muze byt treba takto...neznam moc FB/IB, ale mozna neco pujde pouzit i tam
CREATE TABLE Tabulka
(
IdTabulka INT PRIMARY KEY IDENTITY,
Cislo INT NOT NULL UNIQUE,
Info VARCHAR(50),
Smazano BIT DEFAULT 0
)
INSERT INTO Tabulka (Cislo, Info)
(
SELECT CASE WHEN AktMinimum > 1 THEN 1 ELSE PoruseneMinimum END NoveCislo, 'text' FROM
(SELECT ISNULL(MIN(Cislo),0) AS AktMinimum FROM Tabulka ) t1,
(SELECT ISNULL(MIN(Cislo),0) + 1 AS PoruseneMinimum FROM Tabulka t
WHERE NOT EXISTS (SELECT * FROM Tabulka WHERE Cislo = t.Cislo + 1)) t2
)
nebo neco podobneho jde pouzit i v triggeru
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 24.9.2002 15:07:55
Jestli myslis treba takhle:
var V,XX:Variant;
begin
...
V:=WDoc.CustomDocumentProperties;
XX:=V.Item(1);
tak to nechodi.
Nebo jsi to myslel jinak? Nevim totiz, co napsat misto "promenna.neco".
Uz se tim trapim tri dny, zatracene.
Nevite nahodou nekdo, na co je procedure Invoke ? Mam dojem, ze to bude nejak souviset.
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of ing. Jan Fiala
> Sent: Tuesday, September 24, 2002 12:46 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CustomDocumentProperties
>
>
> K te kolekci pristupujes prave pres tu promennou. Takze misto abys
> psal
> WordDocument.CustomDocumentProperties()
> zkus napsat
> promenna.neco(....)
>
> V lepsim pripade ti to po napsani tecky delphi nabidne properties
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 24.9.2002 Tomas Folprecht:
> > No dobra, mam odkaz na Word.....Properties v promenne typu Variant, ale to je nejaka Visual Basicovska
> Collection. Jak
> > z ni vytahnout jeden prvek?
> > Asi jsem dost natvrdly, co?
>
>
>
FB existence table a domain
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 24.9.2002 15:08:10
Ahoj
snazim se vygenerovat programove FB databazi. A protoze casto saham do
struktury tabulek apod. (databaze stale neni definitivni a dlouho nebude
:-)), potrebuju zjistit zda existuje tabulka resp. domena prip. dalsi
objekty
1) existenci tabulky zjistuju takto: select count(*) from rdb$relations
where rdb$relation_name= 'tabulka'
je to v poradku? nebo existuje lepsi metoda.
2) jak zjistim existenci libovolneho objektu<
Diky
S pozdravem
Petr J�nsk�
---
Odchoz� zpr�va mo�n� neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.385 / Virov� b�ze: 217 - datum vyd�n�: 4.9.2002
thready
[*] Erik Salaj <winsoft(zv)stonline.sk> - 24.9.2002 15:16:59
> potreboval bych aby vlakno bezelo opravdu nezavisle na tom co se
> deje ve zbytku aplikace
thready bezia nezavisle a komunikacia by mala fungovat. Obvykle
seriova komunikacia vyuziva eventy posielane Windowsom a koli
tomu sa zvykne pouzit jeden zvlastny thread na obsluhu eventov.
Programovanie seriovej komunikacie je dost komplikovana
zalezitost a s vynimkou trivialnych pripadov je vyhodnejsie
pouzit uz naprogramovane a odladene komponenty.
Erik
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jan Fiala [work] <delphi(zv)kvasar(tec)cz> - 24.9.2002 15:19:47
ja to delal tak, ze na sloupci nastavis NOT NULL.
pri vyplnovani nabidnes treba MAX(cislo) + 1
pri ukladani to prdnes to transakce a pokud to padne na neunikatni cislo,
tak ho povysis a opakujes transakci do te doby, nez to projde. Samozrejme by
bylo vhodne uzivatele informovat o zmene cisla, ktere bylo nabidnuto ve
formulari.
Preji Hezk� den
Jan Fiala
_________________________________________
fiala(zv)kvasar(tec)cz
http://www.kvasar(tec)cz
tel.:067/7212800
mob.:0608724278
ICQ#: 22070733
_________________________________________
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Blazek Jaroslav
Sent: Tuesday, September 24, 2002 3:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Neprerusena ciselna rada pro doklady v FB/IB
Ahoj,
> honza(zv)haes(tec)cz 24.9.02 12:37 >>>
>Abych se priznal, nedokazu pochopit, jak toto resil MSSQL, kdyz neznal
before/after a jak to resi ted.
na MSSQL to muze byt treba takto...neznam moc FB/IB, ale mozna neco pujde
pouzit i tam
CREATE TABLE Tabulka
(
IdTabulka INT PRIMARY KEY IDENTITY,
Cislo INT NOT NULL UNIQUE,
Info VARCHAR(50),
Smazano BIT DEFAULT 0
)
INSERT INTO Tabulka (Cislo, Info)
(
SELECT CASE WHEN AktMinimum > 1 THEN 1 ELSE PoruseneMinimum END NoveCislo,
'text' FROM
(SELECT ISNULL(MIN(Cislo),0) AS AktMinimum FROM Tabulka ) t1,
(SELECT ISNULL(MIN(Cislo),0) + 1 AS PoruseneMinimum FROM Tabulka t
WHERE NOT EXISTS (SELECT * FROM Tabulka WHERE Cislo = t.Cislo + 1)) t2
)
nebo neco podobneho jde pouzit i v triggeru
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Neprerusena ciselna rada pro doklady v FB/IB
[*] Hlas <hlas(zv)inmail.sk> - 24.9.2002 15:30:29
needitujem v gride, edituje v dbeditoch. editujem naraz aj master aj detail
tabulku
a aby to pocas editacie normalne vyzeralo, aby uzivatel videl ako mu
pribudaju zaznamy
do detailu, a aby sa mohol na zaver rozhodnut ci to cele chce ulozit alebo
nie
tak potrebujem hodnotu v poliach (primarny kluc v mastrovi a cudzi kluc v
detaile).
jednoducho ak tam tieto hodnoty nie su, tak to pisti hlaskami, co je uplne
logicke.
inak trochu to je o inom ako znie subject mailu, lebo ja vlastne nevyzadujem
neprerusenu
radu - primarny kluc je schovany a uzivatel ho nevidi, takze su tam diery,
pri takomto
postupe vznikaju diery ak uzivatel urobi append a cancel.
neulozi zaznam, ale mne IB generator zvisi hodnotu o 1 lebo si ho pytam
pri udalosti komponenty IBQuery.before insert.
inak takto to robia aj vzorove prikladi v delphi-demos
mastapp, ibmastapp a toto je odporucane aj v knihe myslime v jazyku D6
od marca cantu. takto som to mal vyriesene
v bde aplikacia, kde sa to osvedcilo. neviem to vymysliet lepsie.
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, September 24, 2002 11:51 AM
Subject: Re: Neprerusena ciselna rada pro doklady v FB/IB
> 24.9.2002 Hlas:
> > ako sa to da urobit - nepridelovat cislo pred zaciatkom editacie, ked
pocas
> > editacie chcem udrzat vazbu
> > master detail a prim. kluc je zaroven kodom tejto vazby?
>
> A jaky je problem si tam to cislo po editaci dodat ? proste doedituji
> a nez to zapisu do tabulek, reknu si o cislo dokladu, a to tam
> doplnim.
> K cemu je potrebujes v prubehu editace ?
> To snad editujes v GRIDu ? Pak s tim budes mit ve viceuzivatelskem
> rezimu problemy. A pokud to neni sitova aplikace, nemusis se o ciselne
> rady starat.
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
>
>
----------
Teraz si uz KAZDY moze registrovat svoju domenu .SK
Viac info na: http://www.SlovakNET.sk/predregistracia.asp
Distribuce & kompilace vice balicku komponent naje
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 15:35:55
From: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
> mam nekolik sad komponent (hodne *.dpk), jejichz instalace zabere celkem cca
Neni prece duvod aby kazda komponenta mela vlastni design-time balicek. Je
mozne vytvorit jeden pro vsechny komponenty a pripadne i runtime balicek,
pokud jej chces pouzivat.
> 2) Snazil jsem se pouzit Package Colecion Editor, ale:
> 2a) Dotahne se tam automaticky cela VCL a tvrdi to, ze tyto bpl nejdou
> nainstalovat
> 2b) Spadne to na index out of range ... (vzdycky)
Bohuzel, PCE byl k tomuto ucelu vytvoren ale nikdo to asi nepouzival a jeho
implementace je dost nedotazena.
> Jde to nejak udelat lepe a radostneji?
Asi nejsnazsi je udelat jen jeden design-time balicek popripade vice balicku a
ty dat do jedne project group. Podobny problem byl v JCL/JVCL kde je nekolik
IDE expertu a jejich instalace (i pri pouziti te project group) byla pomerne
nezazivna. Nakonec se to vyresilo 'instalatorem', ktery pomoci command-line
compileru prelozi potrebne DPK a prida je do IDE. V unitu DelphiInstall.pas
tam najdes zakladni sluzby na zjisteni instalovanych verzi Delphi, zavolani
prekladace, instalace balicku, integrace helpu komponent do helpu IDE, prace s
Object Repository, Tools menu atd..
Petr Vones
Memory manager BORLNDMM.DLL, padajici program pri
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 15:45:36
From: "Radek Ku�era" <raku(zv)foresta(tec)cz>
> I na W2000 me program padal v runtime modu (z vyvojoveho prostredi
> fungoval), pokud jsem pouzival BORLNDMM.DLL : verze: 6.0.6.163 velikost:
Co to napsat tak aby pouziti BORLNDMM.DLL nebylo vubec nutne.
Petr Vones
IB versus MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.9.2002 15:57:42
Ahoj,
> > je mssql ozaj free?
> Ocesana verze ano.
****Nemas pravdu. I kdybys chtel pouze MSDE (pokud ocesanou verzi
myslis prave to), musis mit licenci na nejaky MS produkt, ke kteremu
mas pravo jej pouzit: velky MS SQL Server, MS Office Developer, MSDN
Subscription, VS.NET ci Web Matrix.
Posledni dobou se vyrojily famy o tom, ze diky moznosti stazeni MSDE
k Web Matrixu zdarma znamena jeho libovolne volne sireni. Neni to
pravda! I v pripade MSDE je mozne MSDE sirit zdarma pouze s projekty
vytvorenymi ve Web matrixu. To, ze nekdo doda minimalni projekt
vytvoreny ve Web matrixu a pak na MSDE nahraje a obsluhuje vlastni
databazi napr. z Delphi, je porusovani licencniho ujednani.
Slavek
> Pavel Cisar
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IB versus MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.9.2002 16:00:26
On 24 Sep 2002 at 10:32, Daniel Frantik wrote:
> A neni to free jen pokud mas koupenou nejakou licenci na MSSQL?
> Jedna-li se o MSSql personal
> (http://www.microsoft.com/cze/servers/sql/howtobuy/) (popr. neco jako
> jen pro vyvojare ...)
****MS SQL Server Personal Edition neni samostatnym produktem, alebrz
predstavuje komponentu Microsoft SQL Serveru. Sezenes ji napr. na
specialnim CD v MS SQL Serveru 2000 Standard Edition. Dalsi info
napr. na uvedenem webu.
Slavek
> Danik
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IB versus MSSQL
[*] bardon <bardon(zv)akord-soft(tec)cz> - 24.9.2002 16:13:49
Nejsem odbornik na licence MS. Ale nekde jsem slysel cca toto: MSDE neni
free a nikdy nebyl, ale muzes jej bezplatne sirit, pokud mas zakoupeno
vyvojove prostredi MS (nevim ktere, ale slysel jsem, ze existuje nekolik
variant). Nejsem si jist, ale myslim si, ze pritom neni dulezite, zda
aplikace, se kterou to siris byla vyvinuta v tomto prostredi nebo ne.
Jinak MS SQL povazuji za dobry stroj. Jestli jsou jine jeste lepsi, to
nevim, mozne to je.
Ohledne budoucnosti - osobne tipuji, ze budoucnost bude vzdy zalezet na
poptavce. Bude-li poptavka po konektivite na Firebird, pak lze ocekavat ze v
Delphi tato konektivita bude. Jsem si jist, ze v pristich nekolika letech si
Borland nedovoli nemit konektivitu na MS, nebo na Oracle. Proto tyto dve
databaze povazuji za nejbezpecnejsi investici. Dokonce za bezpecnejsi, nez
je IB, protoze nebudue-li Borland prodavat IB, nebude ji ani podporovat a to
se teoreticky stat muze (ikdyz to nepovazuji za prilis pravdepodobne). MS
svuj SQL prodavat bude, jde mu dobre na odbyt a neni duvod, proc by mel jit
v budoucnu hure.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Daniel Frantik
Sent: Tuesday, September 24, 2002 11:32 AM
> > je mssql lepsi ako IB?
>
> Prijde na to jak v cem a jak pro koho. Tuto otazku by si mel kazdy
> zodpovedet sam dle svych vlastnich aplikacnich potreb.
>
> > je mssql ozaj free?
> Ocesana verze ano.
A neni to free jen pokud mas koupenou nejakou licenci na MSSQL? Jedna-li se
o MSSql personal (http://www.microsoft.com/cze/servers/sql/howtobuy/) (popr.
neco jako jen pro vyvojare ...)
IB versus MSSQL
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.9.2002 16:15:33
Ahoj,
> hlas(zv)inmail.sk 23.9.02 22:38 >>>
>je mssql lepsi ako IB?
zcela urcite... :-)
>je mssql ozaj free?
neni......
na instalacnim CDcku MS Office je MSDE XP (MSSQL 2000), 2000 (MSSQL 7),
coz je orezana verze MSSQL
maximalne 5 uzivatelu, max 2GB databaze
rekl bych, ze jakmile mas oficialne zakoupeny MS Office muzes pouzivat MSDE
>ako sa da pristupovat k mssql? iba cez dbx?
pomoci ADO, OLE DB, ODBC
>su aj nativne komponenty?
ADO
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Memory manager BORLNDMM.DLL, padajici program pri
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.9.2002 16:33:37
> FreeLibrary(LibHandle); //!!! A tady to pada na Win95 !!!
1) nez pouzivat manazer pameti pro sdileni pameti s DLLkem je asi
lepsi to DLL napsat tak, aby jej nepoutrebovalo (cili nikdy
neuvolnovat procesem pamet alokovanou DLLkem a naopak)
2) pokud pouzivas COMy v DLL pak za urcitych podminek to bude v
FreeLibrary padat taky
D. Toman
OT Literatura na prodej
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 16:38:16
Ahoj,
mel bych tu nejake knizky o Delphi a pocitacich vubec, ktere jsou sice uz
starsi, ale pro nekoho by jeste mohly byt uzitecne. Pripadne odpovedi prosim
na mailto:pvones(zv)mbox.vol(tec)cz a ne do konference.
Charlie Calvert: Charlie Calvert's Delphi 4 Unleashed + CD
http://www.amazon.co.uk/exec/obidos/ASIN/0672312859/
950 Kc
Eric Harmon: Delphi COM Programming
http://www.amazon.co.uk/exec/obidos/ASIN/1578702216/
800 Kc
Kosek: XML pro kazdeho
http://www.grada(tec)cz/content/katalog.php?kid=1337
90 Kc
Windows 2000 Professional - podrobny pruvodce zacinajiciho uzivatele
http://www.grada(tec)cz/content/katalog.php?kid=1469
70 Kc
Pecinovsky, Virius: Objektove Programovani 1. (Grada, 1996)
50 Kc
Petr Vones
Neprerusena ciselna rada pro doklady v FB/IB
[*] Jakub Martinek <listbox(zv)vakmb(tec)cz> - 24.9.2002 15:46:23
Neprerusena rada unikatnich cisel opravdu neni nijak trivialni ukol.
Spise je treba se zamyslet nad potrebnosti takove spojite rady.
Ciste reseni je pridelovat v okamzik zapisu. V tom pripade se urcite vyhnete
datove citlivym komponentam (DBGrid,DBEdit, ...).
Patricne ID pridelite v okamziku zapisu danych polozek (jinak to nebude
fungovat pro vice jak 1 uzivatele) a uzamknete jeho pridelovani do dokonceni
zapisu. Vazby vas nemusi do tohot okamziku zajimat, ty by mel vytvorit az
server na zaklade referencni integrity (stejne nema smysl napr. ukladat
radky faktury, nez ji jako takovou vytvorite).
Otazkou zustane, co budete delat, kdyz nekdo smaze jiz vytvoreny zaznam.
Pokud k tomu muze dojit, nema cenu se timto vubec zabyvat (prebudovavat
ciselnou radu pouzitou jako PK v cele databazi neni to nejlepsi).
ID je v tomto pripade lepsi generovat z nejake vasi vlastni polozky a pomoci
referencni integrity zajistit jeho in<-> de krenmentaci .
"Spinave" reseni je udrzovat seznam "der" a postupne je vyplnovat (pak tam
ale presto nejake mezery budou). - Funkcni a pomerne bezne pouzivane.
Radeji ale na souvislou neprerusovanou radu zapomente.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
>Aldik chape,ale reseni nejako nevidi:
>No fajn....
>A jake mas reseni? Nejaky navod na netu a jine prakticke rady?
zdenek kalhous:
>>Pridelovani unikatnich cisel v neprerusene rade neni tak trivialni jak
>>se na prvni pohled zda, riziko pouzivani max pro tento ucel je krome
>>jineho v tom, ze ve viceuzivatelskem a trochu intenzivnim provozu
>>ma prakticky nulovou sanci na fungovani. Zkuste si jen tak na papire
>>nasimulovat jak se to bude chovat.
Kod na webu was: Kod na precislovani cisel telefon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 17:39:18
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> > Jeste jednou zduraznuji, ze nejde o narazku na sw autora puvodniho sw,
> > protoze ten prakticky neznam. Jen se mi obecne nelibi trend metod uceni se
> > Delphi, kdy vubec nejde o to, udelat to dobre, ale udelat to jakkoli,
> > hlavne kdyz to po 10 pokusech konecne zacne fungovat.
>
> Diky, Davide, mluvis mi z duse.
Tohle ale prece neni trend jen v Delphi ale obecne dnesni doby. Pristup kde se
naberou 'lidi z ulice', poslou na skoleni a stanou se z nich razem odbornici
se dnes praktikuje temer vsude (s vyjimkou oboru kde opravdu o neco jde a je
nezbytne dulezite aby to fungovalo spolehlive). Obliba rychlokvasku je dnes
porad velka, u nas je to navic jeste okoreno socialistickym vedenim, kde se
preferuje smer 'montazni linka' pred vedou a narocnejsimi technologiemi.
Reseni vlastne neexistuje, pokud to budes chtit delat poradne, tak to tezko
prodas (cena reseni a delka vyvoje), takze se bud zaradis do systemu nebo se
na to casem uplne vykasles.
Petr Vones
Neprerusena ciselna rada pro doklady v FB/IB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 24.9.2002 17:43:23
Haj hou!
Velmi dobry clanek na toto tema je zde:
http://www.ibobjects.com/docs/ti_AuditableSeries.ZIP
V aglictine.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Re[2]: Kod na webu was: Kod na precislovani cisel
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 24.9.2002 18:52:57
Souhlas. Vypracovat si cit pro to jaky postup pouzit v jakem pripade
je treba v praxi, bohuzel moderni vizualni prostredi a vykonne pocitace
programatora nenuti se v tom zdokonalovat...
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Tuesday, September 24, 2002, 1:07:54 PM, you wrote:
>> Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
>> Jeste jednou zduraznuji, ze nejde o narazku na sw autora puvodniho sw, protoze ten
>> prakticky neznam. Jen se mi obecne nelibi trend metod uceni se Delphi, kdy vubec
>> nejde o to, udelat to dobre, ale udelat to jakkoli, hlavne kdyz to po 10 pokusech
>> konecne zacne fungovat.
Kod na webu was: Kod na precislovani cisel telefon
[*] Roman Konecny <rkonecny(zv)datis(tec)cz> - 24.9.2002 19:34:36
No, panove, ja sice nevim, jake mate programaterske skoly a dalsi
certifikaty, ze si berete za povinnost komentovat uroven zacatecniku ci
uroven dnesnich programatoru. Kdyz uz se nekdo prihlasil do konference o
Delphi, pak to bude nejspis proto, ze by se chtel neco o programovani
dovedet a tady - jak je videt, dostane jeste od "starych psu" dobre
naslehanou slinu (docela rad bych se podival na vase prvotiny, panove).
Roman Konecny
P.S. omlouvam se P.Vonesovi, ze z cele te "Programatorske krizove cesty"
tady zbyl jenom jeho komentar. Je to reakce na prispevky vsech guru.
> Tohle ale prece neni trend jen v Delphi ale obecne dnesni doby. Pristup
kde se
> naberou 'lidi z ulice', poslou na skoleni a stanou se z nich razem
odbornici
> se dnes praktikuje temer vsude (s vyjimkou oboru kde opravdu o neco jde a
je
> nezbytne dulezite aby to fungovalo spolehlive). Obliba rychlokvasku je
dnes
> porad velka, u nas je to navic jeste okoreno socialistickym vedenim, kde
se
> preferuje smer 'montazni linka' pred vedou a narocnejsimi technologiemi.
> Reseni vlastne neexistuje, pokud to budes chtit delat poradne, tak to
tezko
> prodas (cena reseni a delka vyvoje), takze se bud zaradis do systemu nebo
se
> na to casem uplne vykasles.
>
> Petr Vones
>
TWebBrowser s vlastnim kontextovym menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 19:37:08
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> prasknu na formular komponentu TWebBrowser a potreboval bych nahradit
> kontextove menu (objevuje se za behu) vlastnim, kde krome mych
> polozek budou i nektere standardni. Pokud to vubec jde, jak na to?
> Kde ziskat seznam polozek v onom menu? Pripadne kde si o tom neco
> precist?
http://www.euromind.com/iedelphi/embeddedwb/onshowcontextmenu.htm
Petr Vones
OT Kam az to doslo Was: Kod na webu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 19:43:53
From: "Roman Konecny" <rkonecny(zv)datis(tec)cz>
> dovedet a tady - jak je videt, dostane jeste od "starych psu" dobre
> naslehanou slinu (docela rad bych se podival na vase prvotiny, panove).
Ale kdepak, o to tu snad neslo a pokud to tak vyznelo tak je to nedorozumeni.
Kazde prvotiny jsou hrozne, jenze dneska si uz asi malokdo pripusti, ze
se o prvotiny jedna a vec se da resit lepe. Jinak receno, nikdo uz asi moc
nestoji o to veci porozumet, hlavne ze to 'nejak neco dela' a da se to rychle
prodat.
Petr Vones
IB versus MSSQL
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 24.9.2002 19:45:39
Haj hou!
On 24 Sep 2002 at 8:17, Slavek Rydval wrote:
>
> On 23 Sep 2002 at 22:38, Hlas wrote:
> > je mssql lepsi ako IB?
> ****Ano v mnoha vecech. A samozrejme se najde neco malo veci, kdy je
> lepsi IB.
Zalezi jak je ktera "vec" pro cloveka vyznamna. Nekdy i to "malo" muze
hrat velkou roli (obvzlast kdyz clovek "mnoho veci" vubec nepotrebuje).
Mezi to "neco malo veci" patri mimo jine:
- mnozstvi podporovanych platforem proti jedine u MS
- maly kod (2MB, instalace 9-12MB)
- minimalni naroky na system
- prakticky nulova administrace
- nulova cena
V konecnem dusledku je tedy vzdy nutne ptat se "lepsi pro co". Odpoved
se bude casto lisit ve prospech toho nebo onoho.
s pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Neprerusena ciselna rada pro doklady v FB/IB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 24.9.2002 19:45:39
Haj hou!
On 25 Sep 2002 at 13:30, Ales Pavel wrote:
> >Neprerusovanou radu lze realizovat i vlastnim sdilenym TCP/IP serverem s
> >jednoduchou implementaci dvoufazoveho potvrzovaciho protokolu.
>
> Vubec nechapu o cem mluvis:-) Nemel bys ukazku....
Sorry, na takove veci nemam cas :-) Ale urcite najdes inspiraci v
prikladech INDY komponent. Nemasli D6 nebo D7, pak jsou k mani zdarma
(open source) na www.nevrona.com
Snad jen par poznamek k tomu, co by to melo delat:
Pro pridelovani cisla neni vubec potreba databaze Zajisteni neprerusovane
rady a perzistenci zmen (poslendi cislo) lze velmi snadno naprogramovat
primo v serveru cisel. Pridelovani z paralelnich pozadavku lze pak snadno
synchronizovat pomoci kriticke sekce. Male, rychle, efektivni. Pokud
aplikace nebude udrzovat trvale spojeni se serverem, ale vytvaret je vzdy
jen po dobu generovani cisla, lze tak efektivne obsluhovat i velky pocet
klientu (>2000) najednou, jinak muze byt i trvale spojeni.
Problemem stale zustava skutecne pouziti jednou prideleneho cisla. To lze
zajistit implementaci jednoducheho dvoufazoveho potvrzovani v aplikaci a
serveru cisel. Cisla se musi potvrdit po uspesnem commitu, jinak je
server cisel po zvolenem casovem limitu bude povazovat za nepouzita a
znovu prideli. To by slo realizovat nejlepe primo jako soucast serveru
cisel, ktera by prijimala udalosti (events) z databaze o pridelenych
cislech (viz komponent IBEvents a priklad v Delphi). V triggeru after
insert na tabulce by se *vlozil* novy zaznam do logovaci tabulky s
cislem, a vyvolal event. Ten je rozeslan az pri commitu. Server by prijal
event a precetl si cisla z tabulky (v jedine transakci typu snapshot, ne
read committed), "potvrdil" si je zaznamy smazal. V pripade, ze dojde k
preruseni komunikace se serverem cisel a aplikaci/databazi, jsou
skutecne pouzita, ale nepotvrzena cisla stale ulozena v logovaci tabulce,
a daji se potvrdit pozdeji. V takovem pripade doporucuji, aby server
cisel neuvolnoval nepotvrzena cisla automaticky k novemu pouziti, ale aby
vyzadoval rucni vyreseni (dodatecne rucni potvrzeni, uvolneni k
opetovnemu pouziti).
> Ales Frantisek Pavel
> (Info pro neznalce: 2 jmena mivaji SVATIII,Papez - no a ja mam 3 dokonce
> uredne dolozitelne:-))) )
A reci jak Palacky :-))
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Re[2]: Kod na webu was: Kod na precislovani cisel
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 24.9.2002 21:03:24
No ono nejde jen o prvotiny, v kazde rozsahle knihovne objektu nebo
funkci jakkoliv renomovaneho a zkuseneho programatora se najde spoustu
neefektivnich rutin, at uz z duvodu casoveho presu, pozustatku z
programatorskych zacatku nebo nechuti zabyvat se okrajovou veci do
hloubky.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Tuesday, September 24, 2002, 7:34:36 PM, you wrote:
RK> No, panove, ja sice nevim, jake mate programaterske skoly a dalsi
RK> certifikaty, ze si berete za povinnost komentovat uroven zacatecniku ci
RK> uroven dnesnich programatoru. Kdyz uz se nekdo prihlasil do konference o
RK> Delphi, pak to bude nejspis proto, ze by se chtel neco o programovani
RK> dovedet a tady - jak je videt, dostane jeste od "starych psu" dobre
RK> naslehanou slinu (docela rad bych se podival na vase prvotiny, panove).
RK> Roman Konecny
RK> P.S. omlouvam se P.Vonesovi, ze z cele te "Programatorske krizove cesty"
RK> tady zbyl jenom jeho komentar. Je to reakce na prispevky vsech guru.
>> Tohle ale prece neni trend jen v Delphi ale obecne dnesni doby. Pristup
RK> kde se
>> naberou 'lidi z ulice', poslou na skoleni a stanou se z nich razem
RK> odbornici
>> se dnes praktikuje temer vsude (s vyjimkou oboru kde opravdu o neco jde a
RK> je
>> nezbytne dulezite aby to fungovalo spolehlive). Obliba rychlokvasku je
RK> dnes
>> porad velka, u nas je to navic jeste okoreno socialistickym vedenim, kde
RK> se
>> preferuje smer 'montazni linka' pred vedou a narocnejsimi technologiemi.
>> Reseni vlastne neexistuje, pokud to budes chtit delat poradne, tak to
RK> tezko
>> prodas (cena reseni a delka vyvoje), takze se bud zaradis do systemu nebo
RK> se
>> na to casem uplne vykasles.
>>
>> Petr Vones
>>
StringGrid
[*] PetoSoft <Petosoft(zv)centrum.sk> - 24.9.2002 21:06:01
Zdravim. Chcel by som sa spytat ako nastavit focus na urcitej bunke v StringGrid-e a ako nastavit farbu pozadia a textu a ci sa da aj pismo nastavit aho hrube, kurziva.
Ale vsetko len v jednej-mnou urcenej bunke
Diky.
EXIF data
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 21:08:44
From: "Miroslav Novosad" <mirnov2(zv)seznam(tec)cz>
> vite nekdo, jak je precist?
http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm
Petr Vones
nacteni TIFF obrazku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2002 21:12:59
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> nevite nekdo o free (nemusi byt se zdrojaky) komponente (staci i
> funkce), ktera by mi nacetla TIFF obrazek do necoho rozumneho (napr.
> TBitmap)?
Pro nekomercni pouziti: http://www.delphi-gems.com/Graphics.php
Petr Vones