Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
neznama databaze...
[*] Milan ��ek - 24.9.2000 17:27:49
ahoj,
jiz delsi dobu pouziavm program Advanced Disk Catalog (od
www.elcomsoft.com), ve strucnosti jde o soft na evidenci softwaru
(CD,diskety...). Vsechna data jsou ulozena v jedinem souboru s priponou cat.
Program je pry naprogramovan v Ccku, a jde o nejakou databazi (mozna i
vlastni).
Potreboval bych nejakym zpusobem ziskat data z teto databaze, pro tvorbu
vlastnich html sestav. Jak ale na neznamou databazi? Muze se jednat o
nejakou nestandartni databazi (vlastni)? Jak zjistit pripadny format
databaze?
Diky za tipy, rady, napady...
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.191 / Virov� b�ze: 91 - datum vyd�n�: 11.9.2000
CloseFile,
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 24.9.2000 17:36:14
> resim nasledujici problem :
> 1. Pokud otviram soubor pomoci AssignFile a Reset a nepodari se mi ho
> otevrit,a pak pouziji v finally CloseFile, tak dojde k chybe. Proto
> pouzivam "neefektni system" - promennou boolean :
>
> try
> Otevreno:=false;
> AssignFile(SoubNast,JmSoub+'.lus');
> Reset(SoubNast);
> Otevreno:=true;
> finally
> if Otevreno then CloseFile(SoubNast)
> end;
>
> nelze ovsem pouzit funkci napr. if assigned(SoubNast) then
> CloseFile(SoubNast) ?
No, pokud to pouzijes bez try..finally, tak kdyz se pri Reset(SoubNast) vyvola
vyjimka, neprovede se ani nasledujici kod, tj. CloseFile.
Muzes taky pouzit kombinace {$I-} a IOResult, viz. napoveda.
Do finally se dava to, co se ma v kazdem pripade provest, at nastavne vyjimka,
ci ne... chces-li osetrit vyjimku, pouzij try..except, inicializujes-li na
zacatku nejake promenne, ktere je slusne nakonci uvolnit, pouzij try..finally
atpd...
> 2. Pokud pred inicializaci formu pouziji :
>
> if not Assigned(Form1) then Form1.CreateForm(TForm1, Form1);
> form1.Show;
> tak to funguje, pokud okno neuzavru - v OnClose davam action:=caFree;
> Pri znovuspusteni funkce Otevri form program nevi, ze objekt je zrusen.
po prikazu "action:=caFree" pridej jeste "TForm(Sender):=nil;"> Chcete dost�vat pen�ze za zapnut� monitor ?
> http://www.intecom(tec)cz/viewbar/index.asp?parentID=1310012
a s vypnutym monitorem zadne penize nedostanu? ach ne, ja to tusil! :-)
Roman
[sw.maurice(zv)cbox(tec)cz, http://www.mujweb(tec)cz/zabava/sw.maurice, icq #84229702]
---
Tato zpr�va obsahuje text a proto nen� vhodn� ji ��st.
Workgroup name nebo neco takoveho
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 24.9.2000 18:56:51
podivej se do registru na tohle je tam i user a popis PC + pracovn� skupina
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP
S pozdravem
Kachlik Jan
Milovn�k dobr�ho v�na a registru :)
HAVE A NICE DAY
----- Original Message -----
From: <mirnov(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 22, 2000 10:28 PM
Subject: Workgroup name nebo neco takoveho
> Ahoj,
>
> Jeden OT: Kde najdu jmeno pracovni skupiny? Hledam to uz 2 dny a rikam si,
ze to tam ani snad neni.
>
> (D4/WinNT)
>
> Mirek
>Animovany GIF s transparentem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2000 19:23:50
> From: "Petr Va���ek" <pvkonf(zv)post(tec)cz>
> > neporadil byste mi nekdo prosim, jestli neexistuje nejaka komponenta nebo
> > neco, co umozni pouzivat u GIFu transparent a to nejlepe i u animovaneho G
Ahoj,
podivej se na TGIFImage (http://delphi-jedi.org/Jedi:VCL_TGIFIMAGE)
Petr Vones, amatersky programator
CloseFile,
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2000 19:29:12
From: "Lud�k P�ral" <ludek.paral(zv)telecom(tec)cz>
> 1. Pokud otviram soubor pomoci AssignFile a Reset a nepodari se mi ho
> otevrit,a pak pouziji v finally CloseFile, tak dojde k chybe. Proto
Ahoj,
pro praci se soubory pouzivej radeji TFileStream:
procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
begin
FS := TFileStream.Create('unit1.pas', fmOpenRead or fmShareDenyWrite);
try
// neco delas se souborem
finally
FS.Free;
end;
end;
> 2. Pokud pred inicializaci formu pouziji :
>
> if not Assigned(Form1) then Form1.CreateForm(TForm1, Form1);
> form1.Show;
>
> tak to funguje, pokud okno neuzavru - v OnClose davam action:=caFree;
>
> Pri znovuspusteni funkce Otevri form program nevi, ze objekt je zrusen.
Musis do OnClose pridat:
Form1 := nil;
Petr Vones, amatersky programator
Pridani menu do aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2000 19:33:33
From: "Ji�� Sobotka" <Jiri.Sobotka(zv)post(tec)cz>
> no a ted prijde ta slozitejsi cast...
> - je potreba napsat 'okenni funkci' (wndproc), ktera zajistuje obsluhu okna
> (to je takova ta funkce, kterou ma kazdy okno ve Windows, a o ktery beznej
> programator v Delphi ani nepotrebuje vedet :-)
> - pomoci GetWindowLong s parametrem GWL_WNDPROC je treba zjistit adresu
> puvodni obsluzny procedury cilovyho okna, kterou je treba si nekam ulozit
> - zavolanim SetWindowLong (opet s GWL_WNDPROC) je treba nasmerovat
> obsluznou proceduru okna na tu nasi novou, ktera bude chytat zpravy a delat
> s nima nasledujici:
To vsak prinasi drobny problem. Pokud se bude jednat o cizi aplikaci, tak
kazda
bezi ve svem adresovem prostoru. Z toho duvodu je prakticky jedina moznost
pouzit globalni hooky (viz Richter - Advanced Windows)
Petr Vones, amatersky programator
Chyba v TTreeView ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2000 19:35:38
From: "Da�a Petr" <Petr.Dana(zv)pvt(tec)cz>
> narazil jsem na zajimavou chybu - jestli to je teda chyba, v D3Std pri
> pouziti TTreeView.
Ahoj,
mas UpdatePack #2 ? Tam bylo opraveno plno chyb tykajicich se common controls.
Petr Vones, amatersky programator
ODBC a 2x vetsi polozky
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 24.9.2000 19:36:38
To je sice hezke, ale jaksi to neres� probl�m.
Kdyz se v programu odkazu na ODBC zdroj dat a pres TQuery vytvorim
tabulku s urcitou velikosti polozek, tak by to snad melo fungovat vsude
stejne, ne?
----- Original Message -----
From: Daniel Rott <roxton(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 14, 2000 10:04 AM
Subject: Re: ODBC a 2x vetsi polozky
> > V Accessu je to normalni, ale v Database Exploreru jsou
> > vsechny polozky dvojnasobne.
> Database Explorer nezmam, ale v ODBC funkce SQLColumns
> vraci o informace COLUMN_SIZE, BUFFER_LENGTH a
> CHAR_OCTET_LENGTH, pricemz v pripade Accessu plati
> ze druhe dve jsou dvojnasobne proti COLUMN_SIZE.
>
> Daniel
> ------------------------------------------------------
> Daniel Rott - roxton(zv)volny(tec)cz
> http://www.volny(tec)cz/roxton
> Some minor bugs/features fixed/added
>
>
>Komprese souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.9.2000 19:37:17
From: "Josef" <sip(zv)atlas(tec)cz>
> Shanim nejake komponenty na kompresi souboru. Je mi celkem jedno co to bude
ale
> chtel bych aby tam nebyly zadne DLL, nejlepsi by byl RAR
Ahoj,
pokud to potrebujes pouze interne do sve aplikace tak na instalacnim CD s
Delphi
najdes v adresari Extras knihovnu ZLIB is s prikladem pouziti.
Petr Vones, amatersky programator
Stisknuti klavesy
[*] Ren� Otisk - 25.9.2000 05:57:58
Hi,
kdyz volas KeyPress tak musis mit ten parametr jako promennou...
procedure TForm.MujKlik;
var
FKlavesa: Char;
begin
FKlavesa := 'F'
KeyPress(FKlavesa);
end;
Sroub
> Snazim se stisknout programove nejakou klavesu a nejde a nejde. Skousel
jsem pouzivat
> proceduru KeyPress(var Key: Char); dynamic; ale neustale mi hazi chybu
"TYPES OF ACTUAL
> AND FORMAL VAR PARAMETERS MUST BE INDENTICAL, kdyz dam napr. KeyPress(22).
> nebo sem skousel i doKeyPress, KeyDown, KeyUp, vsechno stejny.
>
> Nechci pro stisk pouzivat hook protoze myslim ze by se musel pouz. ve
zvlastni dll knihovne. Mne
> to staci jen v te me aplikaci a ne systemove.
>
> Hloubeji sem skusil pouzit sys. message
> messages.WM_CHAR nebo messages.WM_KEYDOWN ale nevim jak se ma psat syntax.
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>Simulace mysi
[*] sup(zv)svitap(tec)cz - 25.9.2000 7:02:14
>Nevite nekdo, nebo neznate komp. ktera by umela kliknout levym tlacitkem
>mysi??
>Umim simulovat hybani ale ne click.
>
> ....... s pozdravem Ivomir
Pres API:
setcursorpos(r.Right-15,r.Top+15);
SendMessage(h1,WM_LBUTTONDOWN,MK_LBUTTON,w); // mouse DOWN
SendMessage(h1,WM_LBUTTONUP,MK_LBUTTON,w); // mouse UP
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Chyba v TTreeView ? - kde je Update #1 ?
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 25.9.2000 07:19:03
> Ahoj,
>
> mas UpdatePack #2 ? Tam bylo opraveno plno chyb tykajicich se
> common controls.
>
> Petr Vones, amatersky programator
>
Ahoj,
no, to prave nemam, protoze pry je nutny i #1. Ta je na nejakem CD a nevim,
kde ji sehnat. Pred nejakou dobou ji tu nekdo nabizel, ja mu psal, ale
dotycny neodpovida. Kdyby nekdo vedel jeste o jinem zdroji, kde tento update
sehnat, tak se prosim ozvete, treba i primo na muj email.
Petr Dana
email: Petr.Dana(zv)pvt(tec)cz
TForm.Position
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 25.9.2000 07:24:40
Ahoj!
podivej se na API fce:
SHAppBarMessage(ABM_GETTASKBARPOS,BarData);
Viz tez prispevek v konferenci sub. Velikost formulare
S pozdravem
Ing. Igor Vodicka
informacn� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrabuvka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Jiri
Kral
Sent: Friday, September 22, 2000 12:37 PM
To: delphi-l(zv)fwd(tec)cz
Subject: TForm.Position
Vazeni kolezi,
jak mam aplikaci vysvetlit ze ma form vycentrovat na vysku do prostoru mezi
taskbar a opacnou hranu monitoru? i kdyz by se tam vesla, porad se centruje
na stred monitoru a prekryva kus taskbaru.
dik
JK
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
dni surne
[*] Tom�s Vlad�k������V��?���o�� - 25.9.2000 07:50:41
Na praci s datumy je docela uzitecna unita DateUtil z Rx Lib:
Misc date and time procedures and functions
Types
TDateOrder
TDayOfWeekName
TDaysOfWeek
Routines
CurrentYear
CutTime
DaysBetween
DaysInPeriod
DaysPerMonth
DefDateFormat
DefDateMask
ExtractDay
ExtractMonth
ExtractYear
FirstDayOfNextMonth
FirstDayOfPrevMonth
FormatLongDate
FormatLongDateTime
FourDigitYear
GetDateOrder
IncDate
IncDay
IncHour
IncMinute
IncMonth
IncMSec
IncSecond
IncTime
IncYear
IsLeapYear
LastDayOfPrevMonth
MonthFromName
MonthsBetween
StrToDateDef
StrToDateFmt
StrToDateFmtDef
ValidDate
DateDiff
Constants
CenturyOffset
DefaultDateOrder
NullDate
NullDate
Variables
FourDigitYear
DBAware komponenty nebo rucni obsluha
[*] Petr Hartman <petr.hartman(zv)medisoft(tec)cz> - 25.9.2000 08:26:08
> Urcite se nejedna o krok zpet - spise bych v tomto pripade
> povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> zejmena ma-li program pracovat sitove.
Ahoj,
muze mi, prosim, nekdo vysvetlit, PROC je pouziti DB-aware komponent
nevhodne? V teto konferenci jsem cetl na toto tema jiz mnoho, ale nevzpominam si,
ze by nekdo podrobne vysvetlil duvody, proc je dobre se tomuto postupu vyhnout
(chci pouzivat IB 6.0 a IBObjects).
S pozdravem
Petr Hartman
MS Word automation
[*] Jiri Kral <admin(zv)printo(tec)cz> - 25.9.2000 08:32:14
Muzete prosim nekdo zverejnit nejake odkazy nekam kde se da pocist o
pouzivani OLE autom. obj. co jsou v Delphi 5? Nejlepe tam kde jsou i ukazky
kodu.
diky
J.
Load DFM file in runtime
[*] tungli(zv)datapac.sk - 25.9.2000 09:07:53
Mam problem s natiahnutim formulara s DFM suboru.
Pouzivam nizsie uvedene procedury podla helpu (TMemoryStream -> ReadComponent). Ulozenie formulara je Ok ale natiahnutie uz nie.
Pri natiahnuti DFM mi pocitac zahlasi ze QuickRep1 komponent uz existuje co je fyzicky nemozne lebo pred Load ja urobim free pre cely formular.
Kde je chyba? Dakujem.
tungli(zv)datapac.sk
function ComponentSave(pFileName:string; Component: TComponent): boolean;
var
BinStream:TMemoryStream;
begin
result:=false;
BinStream := TMemoryStream.Create;
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
BinStream.SaveToFile(pFileName);
Result:= true;
finally
BinStream.Free
end;
end;
function ComponentLoad(pFileName:string): TComponent;
var
BinStream: TMemoryStream;
begin
try
BinStream := TMemoryStream.Create;
try
BinStream.Seek(0, soFromBeginning);
BinStream.LoadFromFile(pFileName);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
end;Zamknuti klavesnice
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 25.9.2000 09:17:28
Zdravicko Delfini
Ja jsem kdysi resil problem zamknuti pocitace dle autorizace. Pouzil jsem
dll systemu Win98 (melo by to fungovat i pod 95 a NT). Zamykal jsem
klavesnici a mys pomoci techto dvou radek:
winexec('rundll32 keyboard,disable',sw_normal);
winexec('rundll32 mouse,disable',sw_normal);
Pozor na VELKE a male pismena. Jediny problem, ktery se mi nepodaril vyresit
je, ze nejde klavesnici ani mys znovu aktivovat. enable ne a ne fungovat.
Ja vim, ze je to neefektni, ale pristupu na komp to zamezilo.
-Ahoj Delphinaci, potrebuju pomoct. Jak mam uplne v D5 zamknout celou
klavesnici (nebo jen urcitou skupinu klaves) ??? A jeste podobny problem:
Potrebuju ---nahradit prave stisknutou klavesu nejakou jinou. (tedy stisknu
A a potrebuju, aby vysledek byl B). Oba problemy potrebuju resit v celych
W9x - nejen v
-provadeci apliakci (tam je to brnkacka).
-
-Diky Mirek Drancak
bmp -> jpg
[*] Jammic <Jammic(zv)canex.sk> - 25.9.2000 09:40:31
> Ahoj,
>nevite nekdo o rychlejsim zpusobu generovani souboru *.jpg nez jak je
>to v unite jpeg (TJpegImage)? Nasel jsem nekolik variant na toto tema,
>ale pripada mi, ze vsechny pouzivaji na kompresi stejny kod. Pritom
>nektere programy (napr. Jasc Image Robot) to zjevne umi rychleji.
> Vaclav Sazima
Skuste Intel Jpeg Library. Je to podla mojich skusenosti ovela rychlejsie
pri dekompresii jpg->bmp a myslim ze rovnaka situacia bude pri kompresii
jpg-ov. Pouziva a je optimalizovana pre MMX (ak je k dispozicii) a procesory
Pentium viacej na strankach INTEL-u.
Michal
Perdoch
Stisknuti klavesy
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 25.9.2000 10:04:49
----- Original Message -----
From: -=Ivomir=- <Ivomir(zv)seznam(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 22, 2000 9:57 PM
Subject: Stisknuti klavesy
> Snazim se stisknout programove nejakou klavesu a nejde a nejde. Skousel
jsem pouzivat
> proceduru KeyPress(var Key: Char); dynamic; ale neustale mi hazi chybu
"TYPES OF ACTUAL
> AND FORMAL VAR PARAMETERS MUST BE INDENTICAL, kdyz dam napr. KeyPress(22).
> nebo sem skousel i doKeyPress, KeyDown, KeyUp, vsechno stejny.
>
Tuto chybu IMHO prekladac hlasi, protoze procedura ma parametr typu var char
a ty ji predavas konstantu typu integer.
Zkus toto
var
cProm: char
KeyPress(cProm);
> Nechci pro stisk pouzivat hook protoze myslim ze by se musel pouz. ve
zvlastni dll knihovne. Mne
> to staci jen v te me aplikaci a ne systemove.
>
> Hloubeji sem skusil pouzit sys. message
> messages.WM_CHAR nebo messages.WM_KEYDOWN ale nevim jak se ma psat syntax.
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
>
Obrazek v RichEdit
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 25.9.2000 10:26:46
Zdravim vsechny,
nevite nekdo, jak lze vlozit obrazek (bitmapu nebo metafile) do RichEdit
(2.0+)?
Chtel bych do textu v komponente RxRichEdit nebo RichEdit98 vlozit obrazek,
ktery mam v pameti (nebo alespon jako soubor). Pritom nechci pouzit ani
schranku, ani dalsi externi aplikaci, kterou by se vytvoril novy objekt.
Diky za pomoc.
Pavel Kriz, TDS
DBAware komponenty nebo rucni obsluha
[*] Ota Maly <maly(zv)space(tec)cz> - 25.9.2000 10:27:47
Ahoj,
je mozno trochu osvetlit vyhody uvedeneho postupu?
Ten TimeStamp docela chapu, ale ty ulozene procedury?
Je mozno poslat ukazku te ulozene procedury treba na UPDATE (nebo INSERT, to
je asi vcelku jedno)?
Diky
Ota Maly
http://www.pap-el(tec)cz
> select jmeno, timestamp from tabulka where id = 5
> open
> TEdit.Text := Field(jmeno)
> stamp := Field(timestamp)
> close
> ...
> editovani
> ...
> result := exec stroredproc jmeno, stamp
> if result = chyba then jeji osetreni
>
> kde storedproc je ulozena procedura, ktera mi zajisti bezpecny
> update (nebo insert, delete) a vrati mi cislo chyby.
>
> Urcite se nejedna o krok zpet - spise bych v tomto pripade
> povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> zejmena ma-li program pracovat sitove.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>
DBAware komponenty nebo rucni obsluha
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 25.9.2000 10:29:02
Ja bych se v souvislosti s touto odpovedi zeptal, jak je to s rozlozenim
zateze mezi klienta a server. Nezda se mi absolutne vhodne, aby veskere
Inserty (updaty, delete) vykonaval server - preci jen pak uz jsou naroky na
HW vyssi. Chtel bych najit rozumny kompromis (tj. neco by mel vykonavat
klient - pravdepodobne jednodussi dotazy typu select z jedne tabulky, popr.
jednoduche inserty a updaty, server by mel v sobe triggery, ktere by
zajistovali ref. integritu). Zkuste navrhnout svoje reseni
Diky
Milan Tomes
> On 22 Sep 2000, at 7:48, Ji�� Fait wrote:
>
> > Nekolikrat se v teto konferenci objevil odpor vuci pouzivani DBAware
> > komponent ve spojeni s SQL DB. Jelikoz jsme v soucasne dobe na
> > rozhrani prechodu od desktop DB k SQL tak take zvazujeme jakou cestou
> > se ubirat v tomto smeru.
> >
> > Nase myslenka je pouzivat samozrejme SQL prikazy pro upravu SQL dat,
> > ale zda se nam ze uplny odklon od DB komponent je trocho cesta zpet.
> > Chceme pouzivat nasledujici konstrukci:
> >
> > 1. TQuery pro vyber zaznamu ktery chceme upravovat (select pole1,
> > poleN,... from table1 where id = :pID) 2. TDatasource napojene na
> > tento objekt 3. TUpdateSQL napojeny na tento objekt 4. TDBEdit,... atd
> > napojeny na TDatasource
>
> Nechci vypadat, jako bych zde vnucoval sve nazory jako "jedine
> spravne". Ale udelal jsem nejake zkusenosti s ruznymi databazemi
> a pristupy k nim, takze si myslim, ze me zavery nebudou zasadne
> mylne.
>
> Za prve bych se hledel vyhnout BDE velkym obloukem (tedy zadne
> TQuery), pokud je to jen trochu mozne. Existuji daleko novejsi a
> schopnejsi knihovny pro pristup k datum. Borland vyviji take novou
> knihovnu, takze BDE bude v Delphi uz jen jako relikvie pro
> staromilce a ortodoxni konzervatice.
>
> Pokud jsi uvedenym postupem mel na mysli neco takoveho:
> select jmeno from tabulka where id = 5
> open
> edit (DBEdit)
> post
> close
>
> pak drtiva vetsina vyhrad na pouziti db-aware komponent byla prave
> o tomto postupu. Ja osobne tento pripad resim zhruba takto:
>
> select jmeno, timestamp from tabulka where id = 5
> open
> TEdit.Text := Field(jmeno)
> stamp := Field(timestamp)
> close
> ...
> editovani
> ...
> result := exec stroredproc jmeno, stamp
> if result = chyba then jeji osetreni
>
> kde storedproc je ulozena procedura, ktera mi zajisti bezpecny
> update (nebo insert, delete) a vrati mi cislo chyby.
>
> Urcite se nejedna o krok zpet - spise bych v tomto pripade
> povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> zejmena ma-li program pracovat sitove.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Stisknuti klavesy
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 25.9.2000 10:35:03
IMHO by tam melo byt pred tim 22 jeste # :)
Milan Tomes
> protoze v KeyPress(var Key: Char); je key parametr
> predavany odkazem a ne hodnotou (var) musis pouzit
> promenou:
>
> var
> K: Char;
> ...
> K := 22;
> KeyPress(K);
>
> Tomas Bihary
>
> ----- Original Message -----
> > Snazim se stisknout programove nejakou klavesu a nejde a nejde. Skousel
> jsem pouzivat
> > proceduru KeyPress(var Key: Char); dynamic; ale neustale mi hazi chybu
> "TYPES OF ACTUAL
> > AND FORMAL VAR PARAMETERS MUST BE INDENTICAL, kdyz dam napr.
> KeyPress(22).
> > nebo sem skousel i doKeyPress, KeyDown, KeyUp, vsechno stejny.
> >
> > Nechci pro stisk pouzivat hook protoze myslim ze by se musel pouz. ve
> zvlastni dll knihovne. Mne
> > to staci jen v te me aplikaci a ne systemove.
> >
> > Hloubeji sem skusil pouzit sys. message
> > messages.WM_CHAR nebo messages.WM_KEYDOWN ale nevim jak se ma
> psat syntax.
> >
> > ....... s pozdravem Ivomir
> > --------------------------------------------------
> > EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> > WWW: http://www.iwebs(tec)cz ICQ: 28872917
> >
> >Redistribuce BDE chyba $3E06
[*] azeleny(zv)csas(tec)cz - 25.9.2000 10:46:01
Diky, to jsem fakt nenasel. Otestuji to!
a.
> Je to hodne zasite - musis az do properties jednotlivych
> souboru a tam je
> checkbox "Allow Express to Self-register this file"s�
[*] azeleny(zv)csas(tec)cz - 25.9.2000 10:54:40
DDV,
NetMessageBufferSend()
Je to ale pouze pro Win site, do novelu so neprojde...
a.
> Jak se d� na obrazovku jin�ho po��ta�e na s�ti napsat n�jak� zpr�va?
> P�edstavuju si to jako proceduru showmessage ale nevim jak ji
> presmerovat
> do toho windowsu na tom jinem pocitaci.
> Knihovna funkci analyticke geometrie
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 25.9.2000 11:09:43
Psal jsem na to cely program, chces-li, poslu ti demo a zdrojaky tykajici se
tech vypoctu.
Pis prosim na soukromy mail.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: mirnov(zv)atlas(tec)cz [mailto:mirnov(zv)atlas(tec)cz]
Sent: Friday, September 22, 2000 10:25 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Knihovna funkci analyticke geometrie
Ahoj,
nevite nekdo o knihovne pro vypocet uloh analyticke geometrie?
Potrebuju urcit nejake pruseciky a vubec bych se nezlobil, kdybych to
nemusel psat:-)
Mirek
s�
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 25.9.2000 11:24:13
Pokud by nevadilo, ze se to resi pres verejny soubor (nezavislost na typu
site), muzu poskytnout podrobnejsi info.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Radek Zitta [mailto:radek.zitta(zv)cmail(tec)cz]
Sent: Sunday, September 24, 2000 3:35 PM
To: delphi-l(zv)fwd(tec)cz
Subject: s�
Jak se d� na obrazovku jin�ho po��ta�e na s�ti napsat n�jak� zpr�va?
P�edstavuju si to jako proceduru showmessage ale nevim jak ji presmerovat
do toho windowsu na tom jinem pocitaci.DBAware komponenty nebo rucni obsluha
[*] Rosta Podmanicky <rosta(zv)trias92(tec)cz> - 25.9.2000 11:25:31
Nazdar,
asi by to bylo na delsi povidani - zkus se podivat na:
http://www.objects(tec)cz
----------------------------------------------------------
Rosta Podmanicky
E-mail: rosta(zv)trias92(tec)cz
Trias 92 spol. s r.o. - Informacni systemy
http://www.trias92(tec)cz, http://www.signys(tec)cz
Sv.Cecha 253, Jicin 506 01
Tel.: +420 433 534 378
Fax: +420 433 533 134
-----------------------------------------------------------
> muze mi, prosim, nekdo vysvetlit, PROC je pouziti
> DB-aware komponent
> nevhodne? V teto konferenci jsem cetl na toto tema jiz mnoho,
> ale nevzpominam si,
> ze by nekdo podrobne vysvetlil duvody, proc je dobre se
> tomuto postupu vyhnout
> (chci pouzivat IB 6.0 a IBObjects).
DBAware komponenty nebo rucni obsluha
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.9.2000 11:26:20
----- Original Message -----
From: Milan Tome� <Milan.Tomes(zv)haida(tec)cz>>Ja bych se v souvislosti s touto odpovedi zeptal, jak je to s rozlozenim
>zateze mezi klienta a server. Nezda se mi absolutne vhodne, aby veskere
>Inserty (updaty, delete) vykonaval server - preci jen pak uz jsou naroky na
>HW vyssi. Chtel bych najit rozumny kompromis (tj. neco by mel vykonavat
>klient - pravdepodobne jednodussi dotazy typu select z jedne tabulky, popr.
>jednoduche inserty a updaty, server by mel v sobe triggery, ktere by
>zajistovali ref. integritu). Zkuste navrhnout svoje reseni
>Diky
>Milan Tomes
On to ve skutecnosti te server dela stejne. nebo si myslis, ze klient dela
insert do databaze primo bez ucasti serveru ?
Jan Fiala
DBAware komponenty nebo rucni obsluha
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 25.9.2000 11:54:57
> select jmeno, timestamp from tabulka where id = 5
> open
> TEdit.Text := Field(jmeno)
> stamp := Field(timestamp)
> close
> ...
> editovani
> ...
> result := exec stroredproc jmeno, stamp
> if result = chyba then jeji osetreni
>
A jak je to pri tomto zpusobu s rychlosti, kdyz je v tabulce napr. 100000
zaznamu, kdyz se pro kazdy edit musi tabulka otevirat a zase zavirat?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
DBAware komponenty nebo rucni obsluha
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.9.2000 12:27:23
Pochybuju, ze bys nekdy rucne (napr. v gridu editoval 100 000 zaznamu).
Pokud je editujes hromadne na klientovi v cyklu, proste si nechas tabulku
otevrenou. Pokud pouzivas nejake hromadne zmeny, vetsinou se to da resit
ulozenou procedurou.
Jan Fiala
----- Original Message -----
From: Jaroslav Nadhera <nadhera(zv)csh(tec)cz>> select jmeno, timestamp from tabulka where id = 5
> open
> TEdit.Text := Field(jmeno)
> stamp := Field(timestamp)
> close
> ...
> editovani
> ...
> result := exec stroredproc jmeno, stamp
> if result = chyba then jeji osetreni
>
A jak je to pri tomto zpusobu s rychlosti, kdyz je v tabulce napr. 100000
zaznamu, kdyz se pro kazdy edit musi tabulka otevirat a zase zavirat?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
MS Word automation
[*] Juraj Skotnick� <juraj.skotnicky(zv)jdsoftware.sk> - 25.9.2000 12:38:00
Ahoj,
skus http://www.techvanguards.com
Juraj
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Jiri
Kral
Sent: Monday, September 25, 2000 8:32 AM
To: delphi-l(zv)fwd(tec)cz
Subject: MS Word automation
Muzete prosim nekdo zverejnit nejake odkazy nekam kde se da pocist o
pouzivani OLE autom. obj. co jsou v Delphi 5? Nejlepe tam kde jsou i ukazky
kodu.
diky
J.
Bitmap image is not valid
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 25.9.2000 13:23:08
Tahle hlaska se mi zcistajasna objevila pri spousteni Delphi (4 prof). Kdyz
ji odklepnu, Delphi se nespusti, ale v Task listu visi.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Ukonceni BDE
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 25.9.2000 13:26:27
Nevite jestli lze (pripadne jak) ukoncit BDE, kdyz je v pameti je natazena DLL, ktera ji pouziva? - resp. nepouziva, tzn. zadne tabulky nejsou otevrene, pouze se pri natazeni DLLka nastartovala i BDE. Potrebuju v BDE zmenit nejaka nastaveni, coz nejde za behu BDE. Patrne by pomohlo uvolnit z pameti onu DLLku, coz bohuzel nejde protoze by to znamenalo shozeni serveru na kterem bezi a to neni mozne...
Jirka Matejka
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Dynamicka tvorba ListBoxu
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 25.9.2000 13:33:42
Mam dotaz,
pomoci nasledujici funkce tvorim za behu programu LIstBoxy
Function TForm1.MakeListBox(pos:TlistBox):TListBox;
Var
LB:TListBox;
Begin
LB:=Tlistbox.create(form1);
LB.parent:=form1;
LB.Width:=83;
LB.ParentBiDiMode:=true;
LB.Height:=257;
LB.Left:=pos.Left+84;
LB.Top:=pos.Top;
LB.Enabled:=true;
LB.visible:=true;
Bevel1.Width:=Bevel1.Width+LB.Left+Lb.Width-Bevel1.Width-Bevel1.left;
Result:=LB;
End;
V dalsi procedure je prirazuju do pole ukazatelu na ListBox
ListBoxsez[i+2]^:=MakeListBox(ListBoxSez[i1]^);
kde ListBoxSez je array[0..5] of ^Tlistbox
Zkompiluje to bez problemu ale v behu se to kousne, s hlaskou spatneho
odkazu na adresu 0000000
Umyslne nepouzivam Tlist jenzo mi nikdo neby schopen poradit jak detekovat
existenci instance viz. predchoyi dotaz. Predpokladam, ze je tu nejaky
zakladni prohresek proti pravidlum, ale nemuzu to najit. Za kazdy napad
diky:-)))
J.V.DBAware komponenty nebo rucni obsluha
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 25.9.2000 13:57:09
> > select jmeno, timestamp from tabulka where id = 5
> > open
> > TEdit.Text := Field(jmeno)
> > stamp := Field(timestamp)
> > close
> > ...
> > editovani
> > ...
> > result := exec stroredproc jmeno, stamp
> > if result = chyba then jeji osetreni
> >
>
> A jak je to pri tomto zpusobu s rychlosti, kdyz je v tabulce napr.
> 100000 zaznamu, kdyz se pro kazdy edit musi tabulka otevirat a zase
> zavirat?
Tady jde myslim jen o princip, tj. po ziskani dat se tabulka MUZE
zavrit. U db-aware komponent je potreba, aby dataset byl po celou
dobu, kdy ma byt v editu neco videt, aktivni. Nebo se musi dataset
sam (popr. db stroj) postarat o cacheovani dat. Pri Zbyskove
pristupu se nactou data, klient muze nejen zavrit dataset, ale podle
potreby se treba uplne odpojit od databaze, a az uzivatele napadne
provest editaci, tak se zase pripojit.DBAware komponenty nebo rucni obsluha
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 25.9.2000 14:06:39
Navic si server muze pro ulozene procedury pripravit query plan
(predpripravit postup) a nemusi ho delat pri kazdem dotazu/prikazu. To muze
v nekterych pripadech urychlit vyhodnoceni dotazu.
jAROMIR cERMAK
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Monday, September 25, 2000 11:26 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: DBAware komponenty nebo rucni obsluha
----- Original Message -----
From: Milan Tome� <Milan.Tomes(zv)haida(tec)cz>>Ja bych se v souvislosti s touto odpovedi zeptal, jak je to s rozlozenim
>zateze mezi klienta a server. Nezda se mi absolutne vhodne, aby veskere
>Inserty (updaty, delete) vykonaval server - preci jen pak uz jsou naroky na
>HW vyssi. Chtel bych najit rozumny kompromis (tj. neco by mel vykonavat
>klient - pravdepodobne jednodussi dotazy typu select z jedne tabulky, popr.
>jednoduche inserty a updaty, server by mel v sobe triggery, ktere by
>zajistovali ref. integritu). Zkuste navrhnout svoje reseni
>Diky
>Milan Tomes
On to ve skutecnosti te server dela stejne. nebo si myslis, ze klient dela
insert do databaze primo bez ucasti serveru ?
Jan Fiala
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Zmena nastaveni obrazovky z programu
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 25.9.2000 14:11:16
Diky,
posleze me to taky napadlo :).
Ondrej Krajicek
Roman wrote:
>
> Mozna by to slo takhle:
>
> var lpDevMode:TDevMode;
>
> with lpDevMode do
> begin
> dmsize:=SizeOf(lpdevmode);
> dmBitsPerPel:=16;
> dmPelsWidth:=1024;
> dmPelsHeight:=768;
> dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
> end;
> ChangeDisplaySettings(lpDevMode,CDS_NORESET);
>
> > chtel bych se zeptat jestli je mozne zmenit nastaveni obrazovky
> > z programu. Vim ze tato nastaveni (rozliseni, pocet barev atp.)
> > jsou v hive HKEY_CURRENT_CONFIG (ktery ukazuje na
> > nektere klice HKEY_LOCAL_MACHINE). Kdyz je ale zmenim,
> > mel bych jeste pouzit nejake udelatko, ktere oznami systemu,
> > ze se neco zmenilo. No a to je prave ten problem.
>
> Roman
> [sw.maurice(zv)cbox(tec)cz, http://www.mujweb(tec)cz/zabava/sw.maurice, icq #84229702]
> ---
> Tato zpr�va obsahuje text a proto nen� vhodn� ji c�st.
--
OK-)DBAware komponenty nebo rucni obsluha
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 25.9.2000 14:14:10
Ahoj,
Take jsem udelal nejake zkusenosti (sitovy provoz), ktere me utvrzuji v tom,
ze zpusob pres ulozene procedury a ukonceni transakce na dobu nes se data
vrati zpet do databaze bude lepsi. Tedy myslim tim vice pod kontrolou.
Vyhody: nezustavaji nedokoncene transakce, mensi kolize pri editaci stejneho
radku v tabulce.
Tento zpusob pristupu k datum je doporucovan napr. i v IBobjects. (Tedy
hlavne upozornuji na to, aby transakce nebezela zbytecne dlouho.)
Nelibi se mi, ale pracnost takhle tvorenych formularu. (Vsechny ty validace,
zmeny stavu jednotlivych ovladacich prvku, vytezit, "zarubat zpet" atd...(za
neterminologii se omlouvam, ale kdyz to jazyk unese ...))
A tak se ptam: nebylo by resenim upravit DBAware komponenty tak, aby se
mohly chovat i jako obycejne edit controls? Tedy, ze po ukonceni transakce
by mohly zachovat svuj obsah a pri pozadavku na update/insert/delete (take
refresh) a znovurozjeti transakce by se zachovaly opet jako DBAware?
Pri zpusobu pres ulozene procedury mam take jeden velky problem: neumim
cist/ukladat polozky typu blob.
V dokumentaci k Interbase se pise, ze to nejde. (Zajimave je, ze na jinak
spravny zapis pomerne citlive uloz. proc. polozku typu BLOB jako vstupni i
vystupni parametr berou. Bohuzel data uz nejak nepredavaji.)
Frantisek Sevcik
DBAware komponenty nebo rucni obsluha
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 25.9.2000 14:29:59
Je mi jasne, ze fyzicke vlozeni provede server, ale pokud pouziji stored
proceduru tak s tim ma jeste nejakou dalsi rezii. Kdyz vsak pustim SQL dotaz
primo z klienta tak ho server pouze provede bez dalsi rezie a posle mi
vysledek.
Milan Tomes
> >Ja bych se v souvislosti s touto odpovedi zeptal, jak je to s rozlozenim
> >zateze mezi klienta a server. Nezda se mi absolutne vhodne, aby veskere
> >Inserty (updaty, delete) vykonaval server - preci jen pak uz
> jsou naroky na
> >HW vyssi. Chtel bych najit rozumny kompromis (tj. neco by mel vykonavat
> >klient - pravdepodobne jednodussi dotazy typu select z jedne
> tabulky, popr.
> >jednoduche inserty a updaty, server by mel v sobe triggery, ktere by
> >zajistovali ref. integritu). Zkuste navrhnout svoje reseni
>
> >Diky
>
> >Milan Tomes
>
> On to ve skutecnosti te server dela stejne. nebo si myslis, ze klient dela
> insert do databaze primo bez ucasti serveru ?
>
> Jan Fiala
AsyncFree
[*] Martin Dietl <dietl(zv)4USE(tec)cz> - 25.9.2000 14:30:47
Srdecne zdravim!
a mam dotaz. Existuje nejaky ne prilis slozity zpusob, jakym lze nastavit
COM port (TAfComPort) parametry ulozenymi v INI souboru? napr. ve tvaru:
'"baud=9600 parity=n data=8 stop=1 TO=OFF"
Mozna jsem slepy, ale nic vhodneho jsem zatim nenasel.
Dekuji, Martin Dietl.
InstallShield, W98 & W95
[*] novacek(zv)vanicek(tec)cz - 25.9.2000 13:47:44
Zdar a silu!
> Mam program vytvoreny v D3, ktery vyuziva BDE. K tomu jsem si vytvoril v InstallShield setup.
> Pokud tento setup spustim na W98, probehne instalace bez problemu.
> Pokud ho vsak spustim na W95 vetsina veci se nainstaluje, ale pred koncem instalace dostanu hlasku:
> Merging the configuration file has failed.
> Config file: C:\...\idapi32.cnf
> Prosim, nemate s tim nekdo nejake zkusenosti?
Presne stejny problem jsem resil kdysi, kdyz jsem jel pres BDE.
Empiricky jsem zjistil, ze prvni instalace meho programu na pocitaci,
ktery nikdy nevidel nic od Inprise ani od Borlandu a o BDE nemel ani
paru, byla uspesna (temer vzdy).
Kdyz jsem program odinstaloval, zkontroloval, ze neni na disku,
registry jsou ciste, atd. atp. a zkusil instalaci znovu, skoncila s
uvedenou hlaskou (opet temer vzdy; nebo s jinou, uspesne byly asi tak
dva pokusy).
Instalace samozrejme vzdy probihala sama samotinka, zadny jiny
program nebezel.
Tohle byla prislovecna posledni kapka a BDE jsem pak zahodil. Asi
jsem Te prilis nepotesil, ale i spatna zprava je zpravou :-(
Zdar a silu!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Konecny SQL statement
[*] Jan Najv�rek <najvarek(zv)seznam(tec)cz> - 25.9.2000 15:57:03
Mam otazku ... jde nejak jednoduse ziskat SQL prikaz, ktery se vykonava nad databazi pomoci TQuery s prikazem obsahujici parametry.
Tzn. jestlize mam v TQuery.SQL neco takoveho:
select * from people where jmeno=:param1
a param1='Jan'
Co chci dostat je:
select * from people where jmeno='Jan'
TQuery.Text mi vraci
select * from people where jmeno=?
coz neni to prave orechove.
Diky
Honza Najvarek
potize s kompilaci
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 25.9.2000 16:04:50
Ahoj
Nevim cim to je, spise se chci pripojit k dotazu. Cas od casu se mi stava,
ze delphi vyvola access violation pri ukladani projektu, kompilaci,
uzavirani formu a dalsich akcich. Zajimalo by me, cemu je treba se vyhnout
aby se v prostredi Delphi tato hlaska objevovala co nejmene. Mam D5 Ent.
Jaromir Cermak
-----Original Message-----
From: Milan Vorisek [mailto:vorisek(zv)igtt(tec)cz]
Sent: Friday, September 22, 2000 2:44 PM
To: delphi-l(zv)fwd(tec)cz
Subject: potize s kompilaci
Ahoj,
po kompilaci programu pomoci Build All uz podruhe
nemohu ani kompilovat ani natahnout dalsi program.
Vzdy hlasi Acces violation in module delphi32.exe.
Nekdy se mi pak podari ukoncit IDE pricemz se hlaska vyskytne jeste
nekolikrat, nekdy to musim odstrelit CTRL ALT DEL.
Dela to jen jeden program, ve kterem pouzivam stejne komponenty
jako v jinych.
Aplikaci vubec nespoustim, jen kompiluji.
Cim to muze byt ?
pracuju v D3,Win 95
diky za namety
M.Vorisek
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Dynamicka tvorba ListBoxu
[*] Marek ��ek - 25.9.2000 16:24:26
Ahoj,
nemam odpoved, spis dalsi dotaz,
jaky je rozdil, mezi definici
Var
LB:TListBox;
a
Var
LB: PListBox;
(mineno ^ListBox)
na prvni pohled se to tvari, ze je to
stejne, dokonce stejne velike (4Byte)
ale odalokovava se po ukonceni procedury
jen ten 4Bytovy pointer nebo cela struktura
TListBox, ktera je samozdrejme vetsi.
Takhle salamounsky se v totiz v Delphi tvari
fsechny objekty, tak snad mi v tom nekdo udela
jasno :)
Dik,
Marek
----- Original Message -----
From: "Vojtek Jiri" <j_vojtek(zv)del(tec)cz>> Mam dotaz,
> pomoci nasledujici funkce tvorim za behu programu LIstBoxy
>
> Function TForm1.MakeListBox(pos:TlistBox):TListBox;
> Var
> LB:TListBox;
> Begin
> LB:=Tlistbox.create(form1);
> LB.parent:=form1;
> LB.Width:=83;
> LB.ParentBiDiMode:=true;
> LB.Height:=257;
> LB.Left:=pos.Left+84;
> LB.Top:=pos.Top;
> LB.Enabled:=true;
> LB.visible:=true;
> Bevel1.Width:=Bevel1.Width+LB.Left+Lb.Width-Bevel1.Width-Bevel1.left;
> Result:=LB;
> End;
>
> V dalsi procedure je prirazuju do pole ukazatelu na ListBox
> ListBoxsez[i+2]^:=MakeListBox(ListBoxSez[i1]^);
>
> kde ListBoxSez je array[0..5] of ^Tlistbox
>
> Zkompiluje to bez problemu ale v behu se to kousne, s hlaskou spatneho
> odkazu na adresu 0000000
> Umyslne nepouzivam Tlist jenzo mi nikdo neby schopen poradit jak detekovat
> existenci instance viz. predchoyi dotaz. Predpokladam, ze je tu nejaky
> zakladni prohresek proti pravidlum, ale nemuzu to najit. Za kazdy napad
> diky:-)))
> J.V.RxLib 2.75
[*] volcik(zv)email(tec)cz - 25.9.2000 16:27:33
Zdravim,
mam takovy maly (pro mne velky) problem - chci nainstalovat RxLbi2.75. Jdu
podle helpu, ale stale se mi to nedari (D5E). Muze mi nekdo polopaticky popsat
jak instalaci provest ? Diky kazdemu za rady. Pospicham na to.
S pozdravem
Volcik
---
WWW.EMAIL.CZ - Vase posta zdarma
http://www.email(tec)cz
Screensaver ihned po LockWorkStation
[*] L. ZITA <konference(zv)sales(tec)cz> - 25.9.2000 17:32:40
Zdravim.
Potreboval bych z programu udelat toto (Windows 2000 D5):
Zamknout stanici a rovnou spustit screensaver (je mnou psany, takze ho muzu
i zahrnout do programu jako form).
Na screensaveru totiz zobrazuji nejake udaje, ktere by mely byt dostupne.
Zkousel jsem asi toto
procedure Zamkni;
begin
LockWorkStation;
ShellExecute(ShellExecute(Application.Handle, PChar('Open'),
PChar('muj.scr'), nil, nil, SW_MAX);
end;
nebo
procedure Zamkni;
var ss : TFormMujSaver;
begin
LockWorkStation;
ss := TFormMujSaver.Create(Aplication);
ss.show;
ss.SetFocus;
end;
a spoustu dalsich moznych i nemoznych kombinaci.
Ale stejne po zamknuti zustava videt prihlasovaci dialog.
Pokud je muj.scr nastaveny v systemu tak se sice ukaze ale pochopitelne az
za x minut dle nastaveni.
Takze mam na vas 2 otazecky:
1) Jak muzu jinak aktivovat screensaver z programu jinak nez spustenim
2) Jak muzu z programu nastavit dobu necinnosti potrebnou pro samovolne
spusteni screensaveru
Predem mnohokrat dekuji.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
InstallShield, W98 & W95
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 25.9.2000 17:49:13
Ahoj uz to tu bylo.... Staci pouzit InstallShield z D5.... nam to pomohlo
Martin
-----Puvodni zprava-----
Od: novacek(zv)vanicek(tec)cz [SMTP:novacek(zv)vanicek(tec)cz]
Odeslano: 25. zaoi 2000 15:48
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: InstallShield, W98 & W95
Zdar a silu!
> Mam program vytvoreny v D3, ktery vyuziva BDE. K tomu jsem si vytvoril v InstallShield setup.
> Pokud tento setup spustim na W98, probehne instalace bez problemu.
> Pokud ho vsak spustim na W95 vetsina veci se nainstaluje, ale pred koncem instalace dostanu hlasku:
> Merging the configuration file has failed.
> Config file: C:\...\idapi32.cnf
> Prosim, nemate s tim nekdo nejake zkusenosti?
Presne stejny problem jsem resil kdysi, kdyz jsem jel pres BDE.
Empiricky jsem zjistil, ze prvni instalace meho programu na pocitaci,
ktery nikdy nevidel nic od Inprise ani od Borlandu a o BDE nemel ani
paru, byla uspesna (temer vzdy).
Kdyz jsem program odinstaloval, zkontroloval, ze neni na disku,
registry jsou ciste, atd. atp. a zkusil instalaci znovu, skoncila s
uvedenou hlaskou (opet temer vzdy; nebo s jinou, uspesne byly asi tak
dva pokusy).
Instalace samozrejme vzdy probihala sama samotinka, zadny jiny
program nebezel.
Tohle byla prislovecna posledni kapka a BDE jsem pak zahodil. Asi
jsem Te prilis nepotesil, ale i spatna zprava je zpravou :-(
Zdar a silu!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
DBAware komponenty nebo rucni obsluha
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.9.2000 18:42:52
On 25 Sep 2000, at 10:27, Ota Maly wrote:
> je mozno trochu osvetlit vyhody uvedeneho postupu?
> Ten TimeStamp docela chapu, ale ty ulozene procedury?
> Je mozno poslat ukazku te ulozene procedury treba na UPDATE (nebo
> INSERT, to je asi vcelku jedno)?
Trivialita:
CREATE PROCEDURE rg_upd
(zv)id uniqueidentifier,
(zv)name nvarchar(30),
(zv)cdat datetime
AS
IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id)
RETURN 2
ELSE
IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id and rg_cdat=(zv)cdat)
RETURN 1
ELSE
UPDATE reader_group SET
rg_name=(zv)name,
rg_cdat=GETDATE()
WHERE rg_id=(zv)id
go
Pokud zaznam smazal nekdo prede mnou, vrati se mi 2, pokud ho
nekdo prede mnou zmenil, vrati se mi 1. Variaci a zpusobu reseni
muze byt na toto tema dlouha rada. Uvedene reseni i tohoto
problemu lze udelat ruzne, urcite se nekdo ozve s vyrazne jinym
algoritmem. :-)
>
>
> > select jmeno, timestamp from tabulka where id = 5
> > open
> > TEdit.Text := Field(jmeno)
> > stamp := Field(timestamp)
> > close
> > ...
> > editovani
> > ...
> > result := exec stroredproc jmeno, stamp
> > if result = chyba then jeji osetreni
> >
> > kde storedproc je ulozena procedura, ktera mi zajisti bezpecny
> > update (nebo insert, delete) a vrati mi cislo chyby.
> >
> > Urcite se nejedna o krok zpet - spise bych v tomto pripade
> > povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> > zejmena ma-li program pracovat sitove.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dynamicka tvorba ListBoxu
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 25.9.2000 19:06:21
> Mam dotaz,
> pomoci nasledujici funkce tvorim za behu programu LIstBoxy
>
> Function TForm1.MakeListBox(pos:TlistBox):TListBox;
> Var
> LB:TListBox;
> Begin
> LB:=Tlistbox.create(form1);
> LB.parent:=form1;
> LB.Width:=83;
> LB.ParentBiDiMode:=true;
> LB.Height:=257;
> LB.Left:=pos.Left+84;
> LB.Top:=pos.Top;
> LB.Enabled:=true;
> LB.visible:=true;
> Bevel1.Width:=Bevel1.Width+LB.Left+Lb.Width-Bevel1.Width-Bevel1.left;
> Result:=LB;
> End;
>
> V dalsi procedure je prirazuju do pole ukazatelu na ListBox
> ListBoxsez[i+2]^:=MakeListBox(ListBoxSez[i1]^);
ListBoxSez[i+2] := MakeListBox(ListBoxSez[i1]);
>
> kde ListBoxSez je array[0..5] of ^Tlistbox
array[0..5] of TListBox;
V Delphi jsou vsechny objekty pointry, i kdyz se tvari
jako normalni staticke promenne. Proto nepouzivej ^.
Radim
>
> Zkompiluje to bez problemu ale v behu se to kousne, s hlaskou spatneho
> odkazu na adresu 0000000
> Umyslne nepouzivam Tlist jenzo mi nikdo neby schopen poradit jak detekovat
> existenci instance viz. predchoyi dotaz. Predpokladam, ze je tu nejaky
> zakladni prohresek proti pravidlum, ale nemuzu to najit. Za kazdy napad
> diky:-)))
> J.V.
Screensaver ihned po LockWorkStation
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 25.9.2000 19:06:41
To co jste zkousel nemuze fungoval z jednoho prosteho duvodu.
Vas program bezi na Winsta0\Default desktopu a
Winlogon (tj. to co se zobrazi po zamceni) bezi na uplne
jine Window Station/Desktopu, ktery se nastavi
jako aktivni. Daleko schudnejsi reseni by mozna bylo
nastavit uzivateli .DEFAULT v registru prodleni screensaveru
na 0 nebo 1. Nemam to ovsem vyzkousene.
Ondrej Krajicek
"L. ZITA" wrote:
>
> Zdravim.
> Potreboval bych z programu udelat toto (Windows 2000 D5):
> Zamknout stanici a rovnou spustit screensaver (je mnou psany, takze ho muzu
> i zahrnout do programu jako form).
> Na screensaveru totiz zobrazuji nejake udaje, ktere by mely byt dostupne.
>
> Zkousel jsem asi toto
>
> procedure Zamkni;
> begin
> LockWorkStation;
> ShellExecute(ShellExecute(Application.Handle, PChar('Open'),
> PChar('muj.scr'), nil, nil, SW_MAX);
> end;
>
> nebo
>
> procedure Zamkni;
> var ss : TFormMujSaver;
> begin
> LockWorkStation;
> ss := TFormMujSaver.Create(Aplication);
> ss.show;
> ss.SetFocus;
> end;
>
> a spoustu dalsich moznych i nemoznych kombinaci.
>
> Ale stejne po zamknuti zustava videt prihlasovaci dialog.
> Pokud je muj.scr nastaveny v systemu tak se sice ukaze ale pochopitelne az
> za x minut dle nastaveni.
>
> Takze mam na vas 2 otazecky:
>
> 1) Jak muzu jinak aktivovat screensaver z programu jinak nez spustenim
> 2) Jak muzu z programu nastavit dobu necinnosti potrebnou pro samovolne
> spusteni screensaveru
>
> Predem mnohokrat dekuji.
>
> Ludek
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
--
OK-)DBAware komponenty nebo rucni obsluha
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 25.9.2000 19:31:14
Zdravim,
----- Original Message -----
From: Milan Tome� <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 25, 2000 2:29 PM
Subject: RE: DBAware komponenty nebo rucni obsluha
> Je mi jasne, ze fyzicke vlozeni provede server, ale pokud pouziji stored
> proceduru tak s tim ma jeste nejakou dalsi rezii. Kdyz vsak pustim SQL
dotaz
> primo z klienta tak ho server pouze provede bez dalsi rezie a posle mi
> vysledek.
>
> Milan Tomes
>
Tohle prave neni pravda, protoze kazdy SQL prikaz, ktery se posle z klienta
musi SQL server nejprve "zkompilovat", potom teprve provest. Pri ulozene
procedure si SQL server tu proceduru "predkompiluje" a tim usetri pri
opakovanych operacich na potrebnem vykonu. Jen tak na okraj, co myslis ze je
rychlejsi, program zkompilovany nebo interpretovany ? Nehlede na to, ze napr
INSERT muze cerpat informace z nekolika prikazu SELECT a ten prenos po siti
si myslim zamestna ten server taky, a mozna vic, nez kdyz v StP muze udelat
optimalizaci a venovat se tomu na co je konstruovan a ne pouze jako
FileServer.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
DBAware komponenty nebo rucni obsluha
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 25.9.2000 19:42:29
Zdravim,
chci se zeptat na konkretnejsi zkusenosti s tim ADOExpress, kontretne na
kterych komponentach se chovaji spatne, a co to "spatne" znamena - jestli
pada program nebo to komoli data, pripadne jeste neco jineho ?
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 25, 2000 6:42 PM
Subject: Re: DBAware komponenty nebo rucni obsluha
>
> BTW - pri testech ADOExpress komponent z D5.0 jsem zjistil, ze
> prave pri takoveto zatezi, kdy stejny dataset otevira vice lidi
> najednou, se chovaji znacne spatne.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>DBAware komponenty nebo rucni obsluha
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 25.9.2000 19:58:09
cap /etc/passwd
Delphi 5 & Windows 2000 CZ
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 25.9.2000 20:27:26
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zdravim,
minule sa to tu preberalo, ale neviem vysledok. Ako nainstalujem Delphi5 na W2k CZ ? setup.exe mi po par sekundach skonci bez akejkolvek akcie ...
Vdaka.
Peter CIRIP.Dynamicka tvorba ListBoxu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.9.2000 20:52:10
On 25 Sep 2000, at 13:33, Vojtek Jiri wrote:
> Mam dotaz,
> pomoci nasledujici funkce tvorim za behu programu LIstBoxy
>
> Function TForm1.MakeListBox(pos:TlistBox):TListBox;
> Var
> LB:TListBox;
> Begin
> LB:=Tlistbox.create(form1);
> LB.parent:=form1;
> LB.Width:=83;
> LB.ParentBiDiMode:=true;
> LB.Height:=257;
> LB.Left:=pos.Left+84;
> LB.Top:=pos.Top;
> LB.Enabled:=true;
> LB.visible:=true;
> Bevel1.Width:=Bevel1.Width+LB.Left+Lb.Width-Bevel1.Width-Bevel1.left
> ; Result:=LB;
> End;
>
> V dalsi procedure je prirazuju do pole ukazatelu na ListBox
> ListBoxsez[i+2]^:=MakeListBox(ListBoxSez[i1]^);
>
> kde ListBoxSez je array[0..5] of ^Tlistbox
Kdyz to vytvaris takto, musis mu priradit jeste unikatni jmeno.
Pokud ho chces videt, je vhodne jeste zavolat InsertControl(LB)
(nebo snad InsertComponent?).
> Zkompiluje to bez problemu ale v behu se to kousne, s hlaskou spatneho
> odkazu na adresu 0000000 Umyslne nepouzivam Tlist jenzo mi nikdo neby
> schopen poradit jak detekovat existenci instance viz. predchoyi dotaz.
> Predpokladam, ze je tu nejaky zakladni prohresek proti pravidlum, ale
> nemuzu to najit. Za kazdy napad diky:-))) J.V.
Pokud chces pole, udelas si jeden List, a do neho pak sazis dalsi
Listy (ostatne takto to dela i formular). O jednom Listu tedy vis, a
dalsi zjistis podle velikosti toho zakladniho.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Screensaver ihned po LockWorkStation
[*] L. ZITA <konference(zv)sales(tec)cz> - 25.9.2000 22:05:09
> Behalf Of Ondrej Krajicek
> To co jste zkousel nemuze fungoval z jednoho prosteho duvodu.
> Vas program bezi na Winsta0\Default desktopu a
> Winlogon (tj. to co se zobrazi po zamceni) bezi na uplne
> jine Window Station/Desktopu, ktery se nastavi
> jako aktivni. Daleko schudnejsi reseni by mozna bylo
> nastavit uzivateli .DEFAULT v registru prodleni screensaveru
> na 0 nebo 1. Nemam to ovsem vyzkousene.
>
> Ondrej Krajicek
Zdravim.
Diky za nakopnuti.
Castecneho vysledku jsem dosahl takto :
SystemParametersInfo( SPI_SETSCREENSAVETIMEOUT, 5, (zv)LDummy, 0);
LockWorkStation;
Sice mi tam krasne skoci ssaver po cca 5 vterinach ale samosebou
uz tak zustane nastaveny,
Coz zase neni prijemne, protoze po odemceni by to melo byt zase tech nekolik
minut.
Myslel jsem si, ze to dam do udalosti OnActivate aplikace, a tam to nastavim
nazpet,
ale OnActivate po odemceni nenestane, takze ted hledam jestli existuje
nejaka
message na odchyceni odemceni stanice.
Ludek
>
> "L. ZITA" wrote:
> >
> > Zdravim.
> > Potreboval bych z programu udelat toto (Windows 2000 D5):
> > Zamknout stanici a rovnou spustit screensaver (je mnou psany,
> takze ho muzu
> > i zahrnout do programu jako form).
> > Na screensaveru totiz zobrazuji nejake udaje, ktere by mely byt
> dostupne.
> >
> > Zkousel jsem asi toto
> >
> > procedure Zamkni;
> > begin
> > LockWorkStation;
> > ShellExecute(ShellExecute(Application.Handle, PChar('Open'),
> > PChar('muj.scr'), nil, nil, SW_MAX);
> > end;
> >
> > nebo
> >
> > procedure Zamkni;
> > var ss : TFormMujSaver;
> > begin
> > LockWorkStation;
> > ss := TFormMujSaver.Create(Aplication);
> > ss.show;
> > ss.SetFocus;
> > end;
> >
> > a spoustu dalsich moznych i nemoznych kombinaci.
> >
> > Ale stejne po zamknuti zustava videt prihlasovaci dialog.
> > Pokud je muj.scr nastaveny v systemu tak se sice ukaze ale
> pochopitelne az
> > za x minut dle nastaveni.
> >
> > Takze mam na vas 2 otazecky:
> >
> > 1) Jak muzu jinak aktivovat screensaver z programu jinak nez spustenim
> > 2) Jak muzu z programu nastavit dobu necinnosti potrebnou pro samovolne
> > spusteni screensaveru
> >
> > Predem mnohokrat dekuji.
> >
> > Ludek
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
>
> --
> OK-)
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Obrazek v RichEdit
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 25.9.2000 22:23:45
> nevite nekdo, jak lze vlozit obrazek (bitmapu nebo metafile) do RichEdit
> (2.0+)?
>
> Chtel bych do textu v komponente RxRichEdit nebo RichEdit98 vlozit obrazek,
> ktery mam v pameti (nebo alespon jako soubor). Pritom nechci pouzit ani
> schranku, ani dalsi externi aplikaci, kterou by se vytvoril novy objekt.
A odkud beres obsah toho RichEditu? Muzes pridat obrazek primo do rtf nebo odkaz
na ten obrazek, ja s tim mel nejake problemy /ale nebylo v to Delphach/. Snad ti
to pomuze jako napad, k tomu ti staci jen dokumentace k rtf a ta uz tu kdysi
probehla /muzu poslat/.
Roman
Instalace DAO3.5
[*] lustyl1.edu(zv)mail.cez(tec)cz - 25.9.2000 21:24:59
Ahoj
nejak se mi nedari najit univerzalni postup na instalaci DAO3.5.
Modelovy pripad vypada tak,ze provadim distribuci programu,
ktery pracuje s MDB tabulkami na neznamy pocitac s
neznamou verzi Windows. Tez nevim, zda je DAO3.5
nainstalovan nebo ne.
Jak spravne postupovat a co vsechno potrebuji k instalaci DAO3.5?
Instalacni program by tohle vsechno mel vyresit.
D3 a Diamond Access /DAO komponenty/
Diky za odpovedi.
Z tovarny na elektricky proud L.Lustyk
Animovany GIF s transparentem
[*] Petr Va���ek�����(����? - 25.9.2000 22:43:56
Zdravim,
neporadil byste mi nekdo prosim, jestli neexistuje nejaka komponenta nebo
neco, co umozni pouzivat u GIFu transparent a to nejlepe i u animovaneho G
IFu.
Diky moc
Petr Vasicek
RxLib 2.75
[*] Ji�� Fait���}���6���3 - 26.9.2000 06:19:01
1. Rozbalit archiv nekam
2. Stahnout si prislusny patch (odstranuje nekolik chyb)
3. Odstranit (odinstalovat i z Delphi) starsi verze Rx. Zrusit nastaveni
cest cesty.
4. Otevrit rxctl5 - build, potom rxdb5 a rxbde5. Postupne v uvedene poradi
5. Nastavit cesty k RX
6. Otevrit DCLRX5 - build - install, potom DCLRXDB5 a DCLRXBD5 postupne v
uvedenem poradi.
Tot, vse
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> volcik(zv)email(tec)cz
> Sent: Monday, September 25, 2000 4:28 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RxLib 2.75
>
>
> Zdravim,
> mam takovy maly (pro mne velky) problem - chci nainstalovat
> RxLbi2.75. Jdu
> podle helpu, ale stale se mi to nedari (D5E). Muze mi nekdo
> polopaticky popsat
> jak instalaci provest ? Diky kazdemu za rady. Pospicham na to.
>
> S pozdravem
> Volcik
>
>
> ---
> WWW.EMAIL.CZ - Vase posta zdarma
> http://www.email(tec)cz
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Oracle za proxy
[*] labsystem(zv)atlas(tec)cz - 26.9.2000 07:28:53
Ahoj,
nezkousel se nekdo pripojit k Oracle, ktery je dostupny az za proxy serverem? Zkousel jsem si ve WinProxy (pozdeji i ve Winroute) namapovat port, ale stejne se mi nepodarilo pripojit.
Pokud jsem se zkousel pripojit z pocitace primo pripojeneho na internet, tak vse probehlo bez problemu.
Nemate nekdo tuseni v cem je problem?
Diky za kazdou radu.
Michal Motalik
IB 6 a cestina
[*] delfinojd <delfinojd(zv)atlas(tec)cz> - 26.9.2000 07:52:08
Ahoj vsichni,
po nainstalovani, mam drobny problem s IB6. Pri vytvareni dataze v IB
Consoli jsem vyzkousel snad vsechna jazykova nastaveni, ale cestinu se mi
podarilo do tabulky ulozit jen pri nastaveni "None", ale zase pak bylo
spatne trideni. Hodnoty s cestinou na zacatku byly az na konci seznamu.
Nemohl by nekdo znaly tohoto problemu prinest stucny navod jak zvladnout
cestinu a spravne ceske trideni v IB6?
Predem diky.
Karel DBAware komponenty nebo rucni obsluha
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.9.2000 07:57:34
On 25 Sep 2000, at 19:42, Tomas Bradle wrote:
> chci se zeptat na konkretnejsi zkusenosti s tim ADOExpress, kontretne
> na kterych komponentach se chovaji spatne, a co to "spatne" znamena -
> jestli pada program nebo to komoli data, pripadne jeste neco jineho ?
Nezkousel jsem, zda je to uz opravene, ale v prvni verzi jsem zjistil
nasledujici vlastnost (tedy ta mi prisla jako nejhorsi, psal jsem tu o
tom asi pred pul rokem):
Jednoducha tabulka, v ni 100000 zaznamu. Na formulari DBGrid,
select pres celou tabulku, ADODataSet s defaultnimi nastavenimi.
Otevirani datasetu bylo (ci jeste je?) na umreni. Prace s touto
vlastnosti na siti, kdy se stejnou tabulkou pracuje vice uzivatelu,
byla primo katastrofalni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Casove kriticke operace ve Win
[*] Ota Maly <maly(zv)space(tec)cz> - 26.9.2000 08:04:27
Ahoj,
kolega resi komunikaci s ISA (PCI) kartou ve Windows, jedna se v podstate o
AD prevodnik, z cehoz plyne potreba prenosu pomerne velkych baliku dat v
realnem case. Karta ma svuj vlastni buffer, ktery je vsak potreba vybrat
alespon jednou za 0.5 sec.
Komunikovat s kartou se mu dari v pohode, jen je problem s casem, pokud se
vezme za okno te aplikace, tak se OnTimer pochopitelne nevyvola (respektive
vyvola pozdeji) a tim dochazi ke ztrate merenych dat..
Jak se vrhnout na takovou aplikaci ?
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
potize s kompilaci
[*] Tom�s Vlad�k������V��?���o�� - 26.9.2000 08:07:56
>
> Ahoj
>
> Nevim cim to je, spise se chci pripojit k dotazu. Cas od casu se mi stava,
> ze delphi vyvola access violation pri ukladani projektu, kompilaci,
> uzavirani formu a dalsich akcich. Zajimalo by me, cemu je treba se vyhnout
> aby se v prostredi Delphi tato hlaska objevovala co nejmene. Mam D5 Ent.
>
> Jaromir Cermak
Jo, to mi dela taky D5 Pro - pri te kompilaci ani tak ne acces violation,
jako sem tam Internal Error ...
Tom
Dynamicka tvorba ListBoxu
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 26.9.2000 08:32:08
Ja se omlouvam, jsem trosku natvrdlej, nechapu co jsi presne myslel:
//Kdyz to vytvaris takto, musis mu priradit jeste unikatni jmeno.
//Pokud ho chces videt, je vhodne jeste zavolat InsertControl(LB)
//(nebo snad InsertComponent?).
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Zbysek Hlinka
Sent: Monday, September 25, 2000 8:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Dynamicka tvorba ListBoxu
On 25 Sep 2000, at 13:33, Vojtek Jiri wrote:
> Mam dotaz,
> pomoci nasledujici funkce tvorim za behu programu LIstBoxy
>
> Function TForm1.MakeListBox(pos:TlistBox):TListBox;
> Var
> LB:TListBox;
> Begin
> LB:=Tlistbox.create(form1);
> LB.parent:=form1;
> LB.Width:=83;
> LB.ParentBiDiMode:=true;
> LB.Height:=257;
> LB.Left:=pos.Left+84;
> LB.Top:=pos.Top;
> LB.Enabled:=true;
> LB.visible:=true;
> Bevel1.Width:=Bevel1.Width+LB.Left+Lb.Width-Bevel1.Width-Bevel1.left
> ; Result:=LB;
> End;
>
> V dalsi procedure je prirazuju do pole ukazatelu na ListBox
> ListBoxsez[i+2]^:=MakeListBox(ListBoxSez[i1]^);
>
> kde ListBoxSez je array[0..5] of ^Tlistbox
> Zkompiluje to bez problemu ale v behu se to kousne, s hlaskou spatneho
> odkazu na adresu 0000000 Umyslne nepouzivam Tlist jenzo mi nikdo neby
> schopen poradit jak detekovat existenci instance viz. predchoyi dotaz.
> Predpokladam, ze je tu nejaky zakladni prohresek proti pravidlum, ale
> nemuzu to najit. Za kazdy napad diky:-))) J.V.
Pokud chces pole, udelas si jeden List, a do neho pak sazis dalsi
Listy (ostatne takto to dela i formular). O jednom Listu tedy vis, a
dalsi zjistis podle velikosti toho zakladniho.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBAware komponenty nebo rucni obsluha
[*] zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 26.9.2000 08:35:22
Ahoj,
nechci tady rozvijet vasnivou debatu, zda DBAware komponenty ano ci ne. Ale
rad bych prispel svou zkusenosti. Delam C/S aplikace nad IB jiz delsi dobu
a DB komponenty k plne spokojenosti pouzivam. Tady je postup jez se mi
osvedcil.
- TQuery jako CachedUpdates
- TUpdateSQL napojeno na Tquery
- kazda zaznam v tabulce ma jednoznacne ID a casovou znacku a pomoci tichto
dvou udaje je zaruceno ze zaznam nemohou zmenit dva uzivatele najednou
Paklize se TQuery nastavi jako CachedUpdates, veskere zmeny (i u vice
zaznamu najednou) se zapisuji do bufferu na klientovi (tzn. komunikace se
serverem je nulova). Ve chvili kdy chce uzivatel odeslat zmeny na server
zahajim transakci, metodou ApplyUpdates se pokusim ulozit zmeny a pokud se
vse podari transakci potvrdim.
V kazdem pripade se mi nezda zrovna nejstastnejsi tvar ulozene procedury
jak tady navrhuje Zbysek. Rekl bych, ze pokud dojde ke soucasnemu spusteni
dvou nebo vice aktualizaci jednoho zaznamu, muze se jedna procedura spozdit
a to tak, ze prvni dva testy budou v poradku, ale je?ti nez dojde k
aktualizaci ta druha procedura jiz zmenu provede. Mezitim ale probehne i
procedura prvni a zmeny taktez ulozi.
Ja vim v praxi toto nastane jednou za uhersky rok, ale stat se to klidne
muze.
Cau
Radek
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
tel.c.: 069/674 33 62 (069/292 8421)
mobil : 0604 539 827
-----Puvodni zprava-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odeslano: 25. zaoi 2000 18:43
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: DBAware komponenty nebo rucni obsluha
On 25 Sep 2000, at 10:27, Ota Maly wrote:
> je mozno trochu osvetlit vyhody uvedeneho postupu?
> Ten TimeStamp docela chapu, ale ty ulozene procedury?
> Je mozno poslat ukazku te ulozene procedury treba na UPDATE (nebo
> INSERT, to je asi vcelku jedno)?
Trivialita:
CREATE PROCEDURE rg_upd
(zv)id uniqueidentifier,
(zv)name nvarchar(30),
(zv)cdat datetime
AS
IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id)
RETURN 2
ELSE
IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id and
rg_cdat=(zv)cdat)
RETURN 1
ELSE
UPDATE reader_group SET
rg_name=(zv)name,
rg_cdat=GETDATE()
WHERE rg_id=(zv)id
go
Pokud zaznam smazal nekdo prede mnou, vrati se mi 2, pokud ho
nekdo prede mnou zmenil, vrati se mi 1. Variaci a zpusobu reseni
muze byt na toto tema dlouha rada. Uvedene reseni i tohoto
problemu lze udelat ruzne, urcite se nekdo ozve s vyrazne jinym
algoritmem. :-)
>
> > select jmeno, timestamp from tabulka where id = 5
> > open
> > TEdit.Text := Field(jmeno)
> > stamp := Field(timestamp)
> > close
> > ...
> > editovani
> > ...
> > result := exec stroredproc jmeno, stamp
> > if result = chyba then jeji osetreni
> >
> > kde storedproc je ulozena procedura, ktera mi zajisti bezpecny
> > update (nebo insert, delete) a vrati mi cislo chyby.
> >
> > Urcite se nejedna o krok zpet - spise bych v tomto pripade
> > povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> > zejmena ma-li program pracovat sitove.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
IB6
[*] Ivan Kozak <kozaki(zv)atlas(tec)cz> - 25.9.2000 23:48:52 -0700
Neviete nahodou niekto, odkial mozem stiahnut manual "Getting Started"? Malo by tam byt popisane, ako previest databazu z IB5 na IB6 (potrebujem dialekt 3)-- nijako sa mi to nedari.
Dik za Tip. Ivan
IB 6 a cestina
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 26.9.2000 08:52:30
> podarilo do tabulky ulozit jen pri nastaveni "None", ale zase pak bylo
> spatne trideni. Hodnoty s cestinou na zacatku byly az na konci seznamu.
> Nemohl by nekdo znaly tohoto problemu prinest stucny navod jak zvladnout
> cestinu a spravne ceske trideni v IB6?
Napriklad takto nastavena domena, krome toho nestasneho "ch" tridi a
zobrazuje dobre:
CREATE DOMAIN DADRESA AS VARCHAR(50) CHARACTER SET WIN1250 COLLATE PXW_CSY;
Jeste je dulezite se k databazi pripojit s nastavenou znakovou sadou, tedy v
tomto pripade WIN1250.
Z DELPHI se nastavi jako parametr lc_ctype=WIN1250.
Hodne zdaru Frantisek Sevcik
s�
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 26.9.2000 09:05:43
podivej se na http://www.djernaes.dk/martin/vcl.html#TmdMailSlot
M.
----- Original Message -----
From: "Radek Zitta" <radek.zitta(zv)cmail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, September 24, 2000 3:34 PM
Subject: s�
Jak se d� na obrazovku jin�ho po��ta�e na s�ti napsat n�jak� zpr�va?
P�edstavuju si to jako proceduru showmessage ale nevim jak ji presmerovat
do toho windowsu na tom jinem pocitaci.Dynamicka tvorba ListBoxu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.9.2000 09:25:39
>
> V Delphi jsou vsechny objekty pointry, i kdyz se tvari
> jako normalni staticke promenne. Proto nepouzivej ^.
Obavam se ze si pletes definici Object a Class
Object neni adresovan pointrem - jde implicitne o oblast pameti na kterou si
zamozrejme muzes pointr udelat.
Na Class je automaticky vytvarena instance prez pointer (manual rika, ze
class je pointer na object). Pointer je 'skryty' takze neni nutne psat ^ v
zapisu volani metod atd..
Zdravi
D. Toman
Dotazy na Kylix
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 26.9.2000 09:32:12
> > Jak treba bude mozne sdilet data mezi aplikacemi (procesy) - ve Win32
> > pouzivam Memory Mapped Files, event. Messages (vcetne WM_COPYDATA).
>
> Memory mapped files jsou i pod Linuxem. S WM_COPYDATA je
> treba se rozloucit. Misto toho se pouziva lokalni spojeni via
> sockety a na to bude komponent a trid vice nez dost (INDY).
>
Existuji System V SHM extensions, ktere implementuji semafory, shared memory
a zpravy mezi procesy, ale nejsou moc dobre navazane na zbytek systemu (je
napriklad nemozne cekat soucasne na zpravy a na dat z normalniho sitoveho
sockety pripadne z klavesnice), takze je lepsi pouzivat UNIXove sockety.
Michal Kara alias lemming
--
PING 111.111.111.111 (111.111.111.111): 56 data bytes
...
---- Waiting for outstanding packets ----
No outstanding packets received, just two ordinary.Simulace prace pocitace
[*] V��a Luk� <vana(zv)nicom(tec)cz> - 26.9.2000 09:43:22
Potrebuji si napsat program, ktery bude simulovat praci s pocitacem (znamena
to, ze obcas "pohne" mysi nebo "stiskne" klavesu). Nevite jak na to?
Vysledkem bude napriklad to, ze se nebudou spoustet screen savery.
Existujici programy (byvaji psane z duvodu nocniho vydelavani "surfovanim"
na internetu z pevne linky) mi nepomuzou, musim to zakomponovat do vlastniho
projektu.
Diky, Lukas.Jak prevest TXT do DOC (v Delphi)
[*] Daniel Tesa� <duhasystem(zv)volny(tec)cz> - 26.9.2000 09:43:56
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
potreboval bych poradit jak jednoduse prevest v Delphi TXT soubor do DOCu (nejakou komponentu?), jde to i bez nainstalovaneho Wordu?
Napada Vas neco?
Diky vsem...
Dan Tesar
DBAware komponenty nebo rucni obsluha
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 26.9.2000 09:55:32
> > > select jmeno, timestamp from tabulka where id = 5
> > > open
> > > TEdit.Text := Field(jmeno)
> > > stamp := Field(timestamp)
> > > close
> > > ...
> > > editovani
> > > ...
> > > result := exec stroredproc jmeno, stamp
> > > if result = chyba then jeji osetreni
> > >
> >
> > A jak je to pri tomto zpusobu s rychlosti, kdyz je v tabulce napr.
> > 100000 zaznamu, kdyz se pro kazdy edit musi tabulka otevirat a zase
> > zavirat?
>
> Tady jde myslim jen o princip, tj. po ziskani dat se tabulka MUZE
> zavrit. U db-aware komponent je potreba, aby dataset byl po celou
> dobu, kdy ma byt v editu neco videt, aktivni. Nebo se musi dataset
> sam (popr. db stroj) postarat o cacheovani dat. Pri Zbyskove
> pristupu se nactou data, klient muze nejen zavrit dataset, ale podle
> potreby se treba uplne odpojit od databaze, a az uzivatele napadne
> provest editaci, tak se zase pripojit.
>
Dobre, toto je vhodne pro pristup, kdyz jednou za cas chci delat neco s
jednim zaznamem, dlouho si s nim hrat a pak jej poslat zpet na server. Ale v
pripade, ze potrebuji busit do databaze zaznam za zaznamem, stare opravovat,
ruzne to neustale filtrovat, tridit - neni pak lepsi mit tabulku porad
otevrenou a treba i pouzit DB aware komponenty? Pro tuto aplikaci je
rozhodujici rychlost, jak se nacte zaznam pro editaci, jak rychle se ulozi
ci zalozi novy.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
DBAware komponenty nebo rucni obsluha
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 26.9.2000 09:59:13
> Pochybuju, ze bys nekdy rucne (napr. v gridu editoval 100 000 zaznamu).
> Pokud je editujes hromadne na klientovi v cyklu, proste si nechas tabulku
> otevrenou. Pokud pouzivas nejake hromadne zmeny, vetsinou se to da resit
> ulozenou procedurou.
>
Tady jde o to, ze napr. 10 lidi pod tlakem cely den busi do tabulky zaznam
za zaznamem. Tech 100 000 zaznamu udelaji za 100 dni.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Okno exploreru na formulari
[*] Leo =?iso-8859-2?q?=A9t=ECp=E1n?= <stepan(zv)orbit(tec)cz> - 26.9.2000 10:04:45
Zdravim,
mam aplikaci do ktere chci zabudovat v jedne casti formulare standardni
Explorer (pruzkumnik). Nechci si vytvaret zadny vlastni spravce programu.
Stejny princip je pouzity v komponentach FileOpen, ... . Pouzitim
komponenty WebBrowser (pro url file://c:) jsem sice dosahl cca.
pozadovaneho vzhledu, ale pri otevreni adresare se otvira nove okno v
Exploreru, co� nechci.
Diky za kazdy napad
Leo Stepan
TRxRichEdit
[*] volcik(zv)email(tec)cz - 26.9.2000 10:08:59
Zdravim vsecky
Pred nejakym casem jsem mel dotaz ohledne zobrazeni textu ve formatu RTF,
ktery obsahuje i obrazky. Dostal jsem radu (od Petra Valese), abych pouzil
TRxRichEdit (RxLib 2.75). Vyzkousel jsem to, ale vysledek je stejny - obrazek
obsazeny v textu se nezobrazi. Je potreba u TRxRichEdit provest nejaka nastaveni,
aby to fungovalo ? Nebo to nejde ? ;-(
Diky za kazdou radu. D.V.
---
WWW.EMAIL.CZ - Vase posta zdarma
http://www.email(tec)cz
TForm.Position
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 26.9.2000 10:09:55
> jak mam aplikaci vysvetlit ze ma form vycentrovat na vysku do
> prostoru mezi
> taskbar a opacnou hranu monitoru? i kdyz by se tam vesla,
> porad se centruje
> na stred monitoru a prekryva kus taskbaru.
Ahoj,
ja to delam takhle (je to sice trochu hovezi a polopaticke, ale funguje to
... :-)))
(**********************************************************************)
(* SetDeskTopCenter
(**********************************************************************)
procedure SetDeskTopCenter(F : TForm);
var
Rect : TRect;
tW, tH, tL, tT : integer;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, (zv)Rect, 0);
tW := Rect.Right - Rect.Left; // sirka desktopu
tH := Rect.Bottom - Rect.Top; // vyska desktopu
tL := (tW - F.Width) div 2;
if tL < 0 then tL := 0;
tT := (tH - F.Height) div 2;
if tT < 0 then tT := 0;
F.Left := tL;
F.Top := tT;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Screensaver ihned po LockWorkStation
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 26.9.2000 10:22:33
> Castecneho vysledku jsem dosahl takto :
>
> SystemParametersInfo( SPI_SETSCREENSAVETIMEOUT, 5, (zv)LDummy, 0);
> LockWorkStation;
>
> Sice mi tam krasne skoci ssaver po cca 5 vterinach ale samosebou
> uz tak zustane nastaveny,
> Coz zase neni prijemne, protoze po odemceni by to melo byt zase tech
nekolik
> minut.
> Myslel jsem si, ze to dam do udalosti OnActivate aplikace, a tam to
nastavim
> nazpet,
> ale OnActivate po odemceni nenestane, takze ted hledam jestli existuje
> nejaka
> message na odchyceni odemceni stanice.
Zhruba takhle by to slo i bez udalosti na skonceni saveru
Nastaveni vratim zpet po nastartovani saveru
var
SAVERTIMEOUT: DWORD;
procedure TForm1.Button8Click(Sender: TObject);
begin
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, (zv)SAVERTIMEOUT, 0);
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, 1, nil, 0);
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, SAVERTIMEOUT, nil, 0);
Timer1.Enabled := False;
end;
Tomas Bihary
Instalace DAO3.5
[*] Erik Salaj <winsoft(zv)napri.sk> - 26.9.2000 10:25:51
> Jak spravne postupovat a co vsechno potrebuji k instalaci DAO3.5?
> Instalacni program by tohle vsechno mel vyresit.
> D3 a Diamond Access /DAO komponenty/
Na MS webe som nasiel daosetup.rtf subor s presnym popisom
DAO 3.5 instalacie. Mozem pripadne poslat.
Erik Salaj, WINSOFT
DBAware komponenty nebo rucni obsluha
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.9.2000 10:27:13
> V kazdem pripade se mi nezda zrovna nejstastnejsi tvar ulozene
> procedury jak tady navrhuje Zbysek. Rekl bych, ze pokud dojde ke
> soucasnemu spusteni dvou nebo vice aktualizaci jednoho zaznamu, muze
> se jedna procedura spozdit a to tak, ze prvni dva testy budou v
> poradku, ale je?ti nez dojde k aktualizaci ta druha procedura jiz
> zmenu provede. Mezitim ale probehne i procedura prvni a zmeny taktez
> ulozi. Ja vim v praxi toto nastane jednou za uhersky rok, ale stat se
> to klidne muze.
>
Ahoj,
taky me to napadlo. Nevim, nakolik by to bylo schudne, ale neslo
by to cestou 1) Zkusit provest Update, Insert apod., 2) Podle
(zv)(zv)error vracet navratovou hodnotu (rec je o MSSQL7, nevim, zda
IB ma podobny mechanismus).
Je to jen momentalni napad, nicmene namitky uvitam :)
David
>
> -----Puvodni zprava-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odeslano: 25. zaoi 2000 18:43
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: RE: DBAware komponenty nebo rucni obsluha
>
> On 25 Sep 2000, at 10:27, Ota Maly wrote:
>
> > je mozno trochu osvetlit vyhody uvedeneho postupu?
> > Ten TimeStamp docela chapu, ale ty ulozene procedury?
> > Je mozno poslat ukazku te ulozene procedury treba na UPDATE (nebo
> > INSERT, to je asi vcelku jedno)?
>
> Trivialita:
>
> CREATE PROCEDURE rg_upd
> (zv)id uniqueidentifier,
> (zv)name nvarchar(30),
> (zv)cdat datetime
> AS
> IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id)
> RETURN 2
> ELSE
> IF NOT EXISTS(SELECT rg_id FROM reader_group WHERE rg_id=(zv)id and
> rg_cdat=(zv)cdat)
> RETURN 1
> ELSE
> UPDATE reader_group SET
> rg_name=(zv)name,
> rg_cdat=GETDATE()
> WHERE rg_id=(zv)id
> go
>
> Pokud zaznam smazal nekdo prede mnou, vrati se mi 2, pokud ho
> nekdo prede mnou zmenil, vrati se mi 1. Variaci a zpusobu reseni
> muze byt na toto tema dlouha rada. Uvedene reseni i tohoto
> problemu lze udelat ruzne, urcite se nekdo ozve s vyrazne jinym
> algoritmem. :-)
>
> >
> >
> > > select jmeno, timestamp from tabulka where id = 5
> > > open
> > > TEdit.Text := Field(jmeno)
> > > stamp := Field(timestamp)
> > > close
> > > ...
> > > editovani
> > > ...
> > > result := exec stroredproc jmeno, stamp
> > > if result = chyba then jeji osetreni
> > >
> > > kde storedproc je ulozena procedura, ktera mi zajisti bezpecny
> > > update (nebo insert, delete) a vrati mi cislo chyby.
> > >
> > > Urcite se nejedna o krok zpet - spise bych v tomto pripade
> > > povazoval pouziti DBEdit k editovani za chybny ukrok stranou,
> > > zejmena ma-li program pracovat sitove.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>
Casove kriticke operace ve Win
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 26.9.2000 10:45:38
Jedina asi rozumna odpoved zni: Thready.
To nacitani dat by melo (podle me) bezet v separatnim vlakne.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ota Maly
> Sent: Tuesday, September 26, 2000 8:04 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Casove kriticke operace ve Win
>
>
> Ahoj,
> kolega resi komunikaci s ISA (PCI) kartou ve Windows, jedna se v
> podstate o
> AD prevodnik, z cehoz plyne potreba prenosu pomerne velkych baliku dat v
> realnem case. Karta ma svuj vlastni buffer, ktery je vsak potreba vybrat
> alespon jednou za 0.5 sec.
> Komunikovat s kartou se mu dari v pohode, jen je problem s casem, pokud se
> vezme za okno te aplikace, tak se OnTimer pochopitelne nevyvola
> (respektive
> vyvola pozdeji) a tim dochazi ke ztrate merenych dat..
> Jak se vrhnout na takovou aplikaci ?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>
>Obrazek v RichEdit
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 26.9.2000 10:47:56
> > Chtel bych do textu v komponente RxRichEdit nebo RichEdit98
> vlozit obrazek,
> > ktery mam v pameti (nebo alespon jako soubor). Pritom nechci pouzit ani
> > schranku, ani dalsi externi aplikaci, kterou by se vytvoril novy objekt.
> A odkud beres obsah toho RichEditu?
Ja pouzivam komponentu, do ktere obsah generuji za chodu. Nastavuji
vlastnosti Paragraph a SelAttributes a soucasne naplnuji SelText. Par veci
musim nastavovat take pres WinApi pomoci SendMessage(PouzityRichEdit.Handle,
EM_SETCHARFORMAT, ...).> Muzes pridat obrazek primo do rtf nebo odkaz na ten obrazek.
> Snad ti to pomuze jako napad, k tomu ti staci jen dokumentace k rtf a ta
> uz tu kdysi probehla /muzu poslat/.
To jsem nezkousel, protoze jsem zadny popis nemel. Ale rad to zkusim,
koneckoncu by se tim podstatne zrychlilo generovani delsich RTF textu.
Prosim Te, posli mi tedy ten popis na moji adresu (tds(zv)volny(tec)cz)
Pavel Kriz
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Roman
> Sent: Monday, September 25, 2000 10:24 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Obrazek v RichEdit
DBAware komponenty nebo rucni obsluha
[*] Petr Zika <petrz(zv)rts(tec)cz> - 26.9.2000 10:54:26
Cirou nahodou :) resime podobny problem - hodne polozek v tabulce a grid
(zatim pres BDE, ale zkousime ADO komponenty z D5 a chovaji se presne jak
pisete - nahrnou vsechno na lokal).
Je tedy nejake reseni aby se grid, ve kterem ma byt nekolik tisic dokladu,
otevrel rychle? Aby se do gridu natahla jen ta data ktera se v tu chvili
zobrazi?
P.
----------------------------------------------
> chci se zeptat na konkretnejsi zkusenosti s tim ADOExpress, kontretne
> na kterych komponentach se chovaji spatne, a co to "spatne" znamena -
> jestli pada program nebo to komoli data, pripadne jeste neco jineho ?
Nezkousel jsem, zda je to uz opravene, ale v prvni verzi jsem zjistil
nasledujici vlastnost (tedy ta mi prisla jako nejhorsi, psal jsem tu o
tom asi pred pul rokem):
Jednoducha tabulka, v ni 100000 zaznamu. Na formulari DBGrid,
select pres celou tabulku, ADODataSet s defaultnimi nastavenimi.
Otevirani datasetu bylo (ci jeste je?) na umreni. Prace s touto
vlastnosti na siti, kdy se stejnou tabulkou pracuje vice uzivatelu,
byla primo katastrofalni.
Shanim neco na seriovou komunikaci...
[*] Raul Endymion <raul.endymion(zv)ns1.infima(tec)cz> - 26.9.2000 10:56:21
Pomozte..
Nejakou komponentu nebo knihovnu, jedna se o komunikaci s mobilnim
telefonem... (Aplikace pro telefony Sagem, komunikace, sms, telefonni
seznam atd..)
Raul Endymion
potize s kompilaci
[*] Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz> - 26.9.2000 10:59:48
It`s not a bug, it`s feature ...
Borland chce zrejme udrzovat neustale programatory ve strehu a tim zvysovat
jejich vykonnost :-)
Na me toto ovsem ma zcela opacny efekt, uz mam uplne prohnutou desku od
stolu - vzdycky, kdyz se objevi nejaka takova
vypecena hlaska, trisknu vsi silou do stolu, nejakou dobu vidim rude a
nejsem schopen prace.
Uz me to vazne prestava bavit, asi pujdu ridit tramvaj ...
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Tom�s Vlad�k
> Sent: Tuesday, September 26, 2000 8:08 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: potize s kompilaci
>
>
>
> >
> > Ahoj
> >
> > Nevim cim to je, spise se chci pripojit k dotazu. Cas od casu
> se mi stava,
> > ze delphi vyvola access violation pri ukladani projektu, kompilaci,
> > uzavirani formu a dalsich akcich. Zajimalo by me, cemu je treba
> se vyhnout
> > aby se v prostredi Delphi tato hlaska objevovala co nejmene. Mam D5 Ent.
> >
> > Jaromir Cermak
>
>
> Jo, to mi dela taky D5 Pro - pri te kompilaci ani tak ne acces
> violation,
> jako sem tam Internal Error ...
>
> Tom
>
>Dynamicka tvorba ListBoxu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.9.2000 11:37:25
On 26 Sep 2000, at 8:32, Vojtek Jiri wrote:
> Ja se omlouvam, jsem trosku natvrdlej, nechapu co jsi presne myslel:
>
> //Kdyz to vytvaris takto, musis mu priradit jeste unikatni jmeno.
> //Pokud ho chces videt, je vhodne jeste zavolat InsertControl(LB)
> //(nebo snad InsertComponent?).
Pokud zarazujes komponentu do formulare, musis ji priradit
unikatni jmeno (formular si na to potrpi :). Pokud ji chces na tom
formulari i videt, musis jeste zavolat prislusnou metodu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBAware komponenty nebo rucni obsluha
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.9.2000 11:37:25
On 26 Sep 2000, at 8:35, zhasil wrote:
> nechci tady rozvijet vasnivou debatu, zda DBAware komponenty ano ci
> ne. Ale rad bych prispel svou zkusenosti. Delam C/S aplikace nad IB
> jiz delsi dobu a DB komponenty k plne spokojenosti pouzivam. Tady je
> postup jez se mi osvedcil. - TQuery jako CachedUpdates - TUpdateSQL
> napojeno na Tquery - kazda zaznam v tabulce ma jednoznacne ID a
> casovou znacku a pomoci tichto dvou udaje je zaruceno ze zaznam
> nemohou zmenit dva uzivatele najednou Paklize se TQuery nastavi jako
> CachedUpdates, veskere zmeny (i u vice zaznamu najednou) se zapisuji
> do bufferu na klientovi (tzn. komunikace se serverem je nulova). Ve
> chvili kdy chce uzivatel odeslat zmeny na server zahajim transakci,
> metodou ApplyUpdates se pokusim ulozit zmeny a pokud se vse podari
> transakci potvrdim.
Tato metoda ma vsak sve zaludnosti, zjistil jsem rozdil v chovani
mezi BDE a ADO, napriklad. Dochazi napriklad k tomuto: mas 10
"baliku" zmen. Posles ApplyUpdates, 3. zmena se z nejakych
duvodu neprovede. Jenze, neprovedou se ani vsechny ostatni
zmeny, a ani se nedovis, proc se ulozeni nepovedlo.
Pricemz bych pozadoval napriklad takoveto chovani (nekdy zase
jine, podle situace): chci ulozit vsechny zmeny, ktere se ulozit daji,
a chci seznam "baliku", ktere se nepodarily a proc se to
nepovedlo. Pokud mi ApplyUpdates neni schopno toto zajistit,
musim stejne osetrit kazdy "balik" zvlast, tedy nejlepe volanim
nejakych vhodnych ulozenych procedur.
> V kazdem pripade se mi nezda zrovna nejstastnejsi tvar ulozene
> procedury jak tady navrhuje Zbysek. Rekl bych, ze pokud dojde ke
> soucasnemu spusteni dvou nebo vice aktualizaci jednoho zaznamu, muze
> se jedna procedura spozdit a to tak, ze prvni dva testy budou v
> poradku, ale je?ti nez dojde k aktualizaci ta druha procedura jiz
> zmenu provede. Mezitim ale probehne i procedura prvni a zmeny taktez
> ulozi. Ja vim v praxi toto nastane jednou za uhersky rok, ale stat se
> to klidne muze.
Vsak jsem ten zapis take vhodne komentoval. Je jeste dulezite
zjistit, zda databaze vola ulozene procedury v threadech, nebo
hezky ceka na dokonceni predchoziho volani. Tato informace
zasadne ovlivnuje zpusob zapisu ulozenych procedur. Transakce
muze byt aktivovana i nekde nad volanim uvedene procedury,
protoze muze byt volano vice ryznych procedur v ramci transakce.
Moznosti je dlouha rada.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak prevest TXT do DOC (v Delphi)
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 26.9.2000 12:16:07
> potreboval bych poradit jak jednoduse prevest v Delphi TXT soubor do DOCu (nejakou komponentu?), jde to i bez nainstalovaneho Wordu?
> Napada Vas neco?
Staci zmenit priponu na .DOC a Word uz si s tim poradi.
Stejne jako Excel otevre textovy soubor s priponou .xls...
Tom
iterace vysledku SELECTU
[*] Jiri Kral <admin(zv)printo(tec)cz> - 26.9.2000 12:48:14
vedel by nekdo jestli jde (obecne nebo primo na MS SQL7) udelat toto:
ve storedproc mam SELECT ktery vraci cca 5-10 radku. no.
a mi by se libilo kdybych umel zaiterovat prez vsechny radky vysledku a
sloucit si je do jedineho vetsiho output parametru.
at to nemusim delat v aplikaci. objemove to neni problem. vysledek bude mit
par desitek charu.
diky
JK
DBAware komponenty nebo rucni obsluha
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 26.9.2000 12:48:22
> Jednoducha tabulka, v ni 100000 zaznamu. Na formulari DBGrid,
> select pres celou tabulku, ADODataSet s defaultnimi nastavenimi.
> Otevirani datasetu bylo (ci jeste je?) na umreni. Prace s touto
> vlastnosti na siti, kdy se stejnou tabulkou pracuje vice uzivatelu,
> byla primo katastrofalni.
>
Ono se nesmi nechat defaultni nastaveni. Ted honem nevim, co se tam muselo
nastavit (delel to kolega), ale otevreni takove tabulky je pak docela rychle
i kdyz je select pres celou tabulku.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Dynamicka tvorba ListBoxu
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.9.2000 13:00:13
> >
> > V Delphi jsou vsechny objekty pointry, i kdyz se tvari
> > jako normalni staticke promenne. Proto nepouzivej ^.
>
> Obavam se ze si pletes definici Object a Class
>
> Object neni adresovan pointrem - jde implicitne o oblast pameti na kterou
si
> zamozrejme muzes pointr udelat.
> Na Class je automaticky vytvarena instance prez pointer (manual rika, ze
> class je pointer na object). Pointer je 'skryty' takze neni nutne psat ^ v
> zapisu volani metod atd..
Nepletu si to. Objekt je instanci tridy, trida je potomkem
tridy TObject nebo vyssi.
TMyClass = Class(TObject)
..
end;
var
MyObj:TMyClass;
O nejaky pozustatcich z TP5.5 typu
tneco = tobject(xxx)
...
end;
nebo podobne, uz ani nevim, jak se to pise,
uz nema cenu mluvit, ani se tim zabyvat,
to je minulost.
Radim
>
> Zdravi
> D. Toman
>DBAware komponenty nebo rucni obsluha
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.9.2000 13:03:04
> Dobre, toto je vhodne pro pristup, kdyz jednou za cas chci delat neco
> s jednim zaznamem, dlouho si s nim hrat a pak jej poslat zpet na
> server. Ale v pripade, ze potrebuji busit do databaze zaznam za
> zaznamem, stare opravovat, ruzne to neustale filtrovat, tridit - neni
> pak lepsi mit tabulku porad otevrenou a treba i pouzit DB aware
> komponenty? Pro tuto aplikaci je rozhodujici rychlost, jak se nacte
> zaznam pro editaci, jak rychle se ulozi ci zalozi novy.
OK, ja urcite netvrdim, ze pristup pres db-aware komponenty je tak
spatny, ze by se nemel nikdy pouzivat. Umim si predstavit situace,
kdy db-aware komponenty jsou dobra vec, stejne jako situace, kdy
db-aware trochu komplikuji situaci. Napr. mas hlavni form, na nem
dbgrid a buttonek, ktery vyvola form pro vlozeni noveho zaznamu.
Pokud ten form bude resen pomoci db-aware komponent, bude se
muset pred zavolanim formu vytvorit prazdny radek v tabulce, aby o
nej ty db-aware komponenty (dbedity apod.) mohly byt opreny.
Pokud ti behem editace spadne pocitac, zustane v tabulce prazdny
radek. Nejde ted o to, jak snadne nebo nesnadne je toto ohlidat -
jde o to, ze to je komplikace, s kterou je treba pocitat.
David
s�t
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 26.9.2000 13:18:12
> Jak se d� na obrazovku jin�ho po��ta�e na s�ti napsat n�jak� zpr�va?
> P�edstavuju si to jako proceduru showmessage ale nevim jak ji
> presmerovat
> do toho windowsu na tom jinem pocitaci.
no , ak pouzivas Win NT/2000, tak je to celkom jednoduche.
Staci napisat: net send menopocitaca text_spravy
/LH
Simulace prace pocitace
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 26.9.2000 13:51:13
> Potrebuji si napsat program, ktery bude simulovat praci s
> pocitacem (znamena
> to, ze obcas "pohne" mysi nebo "stiskne" klavesu). Nevite jak na to?
> Vysledkem bude napriklad to, ze se nebudou spoustet screen savery.
> Existujici programy (byvaji psane z duvodu nocniho vydelavani
> "surfovanim"
> na internetu z pevne linky) mi nepomuzou, musim to
> zakomponovat do vlastniho
> projektu.
no, simulovat stisk klavesy by nemal byt problem.
napriklad toto posle oknu, ktore ma handle ghwnd stlacenie klavesy 'W'
PostMessage(ghwnd,WM_KEYDOWN ,'W' ,0);
/LH
KLAVESA
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 26.9.2000 13:55:39
Nevim proc, ale mne to proste nefunguje. Co je ten posledni parametr??? to w?
V helpu je Specifies additional message-specific information. Ale co proboha.
Ja bych ale spis potreboval stisknout klavesu. Delal jsem to pres ten
Sendmessage(Self.Handle,WM_KEYUP,nevimcozaparametr,nevimcozaparametr);
Sendmessage(Self.Handle,WM_KEYDOWN,nevimcozaparametr,nevimcozaparametr);
Sendmessage(Self.Handle,WM_CHAR,nevimcozaparametr,nevimcozaparametr);
Ale nefunguje. Mam nekde nastavenej kurzor a vyvolam tento prikaz a nic se nenapise
a navic vyse neni specifikovano, jaky znak chci zmacknout.
HEEELP
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> setcursorpos(r.Right-15,r.Top+15);
> SendMessage(h1,WM_LBUTTONDOWN,MK_LBUTTON,w); // mouse DOWN
> SendMessage(h1,WM_LBUTTONUP,MK_LBUTTON,w); // mouse UP
Screensaver ihned po LockWorkStation
[*] L. ZITA <konference(zv)sales(tec)cz> - 26.9.2000 14:00:41
> Zhruba takhle by to slo i bez udalosti na skonceni saveru
> Nastaveni vratim zpet po nastartovani saveru
>
> var
> SAVERTIMEOUT: DWORD;
>
> procedure TForm1.Button8Click(Sender: TObject);
> begin
> SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, (zv)SAVERTIMEOUT, 0);
> SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, 1, nil, 0);
> Timer1.Enabled := True;
> end;
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, SAVERTIMEOUT, nil, 0);
> Timer1.Enabled := False;
> end;
>
> Tomas Bihary
Dik.
To situaci neresi, protoze ten saver muze byt vyvolany
(staci drknout do mysky) i vicekrat behem uzamknuti stanice.
Takze stale hledam jak provest akci pri odemceni stanice.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Simulace prace pocitace
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 26.9.2000 14:02:02
> no, simulovat stisk klavesy by nemal byt problem.
> napriklad toto posle oknu, ktore ma handle ghwnd stlacenie klavesy 'W'
> PostMessage(ghwnd,WM_KEYDOWN ,'W' ,0);
1) Neznamy parametr ghwnd. (skousel sem dosadit Self.Handle ale potreboval bych to spise v celem systemu)
2) Incompatibile types Integer and Char u 'W' (skousel jsem dosadit int, jako cislo ordinalni hodnota)
zmineny postup mi stale nefunguje. Mam kurzor napr. na edit a nic se tam nenapise.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Bitmap
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 26.9.2000 14:08:24
Lidicky to ste se opravdu nikdo nesetkal s tim hlasenim Bitmap image is not
valid?
Nepomohla ani preinstalace Delphi.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
DBAware komponenty nebo rucni obsluha
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 26.9.2000 14:54:27
Asi takto to vypada, ked niekto za cenu ochrany svojho sukromia spokojne
otravuje ostatnych.> AUTOMATICKY FILTR NEVYZADANYCH MAILU
>
> LITUJEME, ALE DOMENA CLEXPERT.CZ JE CHRANENA PROTI NEVYZADANYM
> ELEKTRONICKYM ZPRAVAM REKLAMNIHO ................. ZASILAT
> PODOBNE NEVYZADANE MAILY, BUDEME NUCENI ZASAHNOUT JINYM ZPUSOBEM.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon/fax: 047-5500610, telefon/fax: 047-5501627 ===
> === telefon GSM: 0602-409601, ICQ: 21215917 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================iterace vysledku SELECTU
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.9.2000 14:57:42
> vedel by nekdo jestli jde (obecne nebo primo na MS SQL7) udelat toto:
>
> ve storedproc mam SELECT ktery vraci cca 5-10 radku. no.
> a mi by se libilo kdybych umel zaiterovat prez vsechny radky vysledku
> a sloucit si je do jedineho vetsiho output parametru. at to nemusim
> delat v aplikaci. objemove to neni problem. vysledek bude mit par
> desitek charu.
>
Myslim, ze by to melo jit tak, ze udelas kurzor na tento select.
David
TRxRichEdit
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 26.9.2000 15:14:04
> Pred nejakym casem jsem mel dotaz ohledne zobrazeni textu ve
> formatu RTF,
> ktery obsahuje i obrazky. Dostal jsem radu (od Petra Valese),
> abych pouzil
> TRxRichEdit (RxLib 2.75). Vyzkousel jsem to, ale vysledek je
> stejny - obrazek
> obsazeny v textu se nezobrazi. Je potreba u TRxRichEdit provest
> nejaka nastaveni,
> aby to fungovalo ? Nebo to nejde ? ;-(
Urcite to funguje bez problemu, ale za techto podminek:
1) RxRichEdit:
- Nastaveni AllowObjects = True
- Nacteni souboru RTF pres RxRichEdit.Lines.LoadFromFile(FileName)
2) Windows:
Ve Windows musi byt knihovna RichEdit 2.0 nebo vyssi.
Pro RichEdit od verze 2 se pouziva knihovna "Riched20.dll", verze 1 je v
knihovne "Riched32.dll".
V praxi to znamena, ze to s obrazky nebude behat na puvodnich Windows 95,
pokud tam nejsou doinstalovane ruzne Microsoft DLL (Office, Internet
Explorer...), protoze tam byla jen prvni verze, tedy "Riched32.dll".
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel./fax: 02/ 6891 444
mobil: 0603/ 145613
http://www.tds-technik(tec)cz
Instalace DAO3.5
[*] lustyl1.edu(zv)mail.cez(tec)cz - 26.9.2000 14:16:54
Diky moc, kouknu na to.
L.Lustyk
> Jak spravne postupovat a co vsechno potrebuji k instalaci DAO3.5?
> Instalacni program by tohle vsechno mel vyresit.
> D3 a Diamond Access /DAO komponenty/
>>Na MS webe som nasiel daosetup.rtf subor s presnym popisom
>>DAO 3.5 instalacie. Mozem pripadne poslat.
>>Erik Salaj, WINSOFT
Jak prevest TXT do DOC (v Delphi)
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 26.9.2000 15:16:23
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Tomas Holan
> Sent: Tuesday, September 26, 2000 12:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Jak prevest TXT do DOC (v Delphi)
>
> > potreboval bych poradit jak jednoduse prevest v Delphi TXT
> soubor do DOCu (nejakou komponentu?), jde to i bez nainstalovaneho Wordu?
> > Napada Vas neco?
>
> Staci zmenit priponu na .DOC a Word uz si s tim poradi.
> Stejne jako Excel otevre textovy soubor s priponou .xls...
Anebo pro formatovany text pouzivat RTF (komponenta RichEdit). Take muze mit
natvrdo priponu DOC.
Pavel Kriz
TDS
DBAware komponenty nebo rucni obsluha
[*] iturcan(zv)gamo.sk - 26.9.2000 15:22:48
>Napr. mas hlavni form, na nem
>dbgrid a buttonek, ktery vyvola form pro vlozeni noveho zaznamu.
>Pokud ten form bude resen pomoci db-aware komponent, bude se
>muset pred zavolanim formu vytvorit prazdny radek v tabulce, aby o
>nej ty db-aware komponenty (dbedity apod.) mohly byt opreny.
>Pokud ti behem editace spadne pocitac, zustane v tabulce prazdny
>radek. Nejde ted o to, jak snadne nebo nesnadne je toto ohlidat -
>jde o to, ze to je komplikace, s kterou je treba pocitat.
to ale zavisi od toho ako vyvojar napisal DB-aware komponentu. V pripade ze
nejaky "nesika" napisal do metody InternalInsert hned vytvorenie riadku do
DB samozrejme ten problem nastane. Pravdou vsak je, ze nie je nutne
vytvarat fyzicky zaznam v tabulke hned po volani Insert , pretoze po
inicializovani buffera sa prazdny riadok v DB-Gride prida automaticky.
Normalne by sa mal riadok vytvorit v DB az po volani post , tzn. zmieneny
problem by nemal nastat.
it
Dynamicka tvorba ListBoxu
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.9.2000 15:24:08
> On 26 Sep 2000, at 8:32, Vojtek Jiri wrote:
>
> > Ja se omlouvam, jsem trosku natvrdlej, nechapu co jsi presne myslel:
> >
> > file://Kdyz to vytvaris takto, musis mu priradit jeste unikatni jmeno.
> > file://Pokud ho chces videt, je vhodne jeste zavolat InsertControl(LB)
> > file://(nebo snad InsertComponent?).
>
> Pokud zarazujes komponentu do formulare, musis ji priradit
> unikatni jmeno (formular si na to potrpi :). Pokud ji chces na tom
> formulari i videt, musis jeste zavolat prislusnou metodu.
Nee, kdyz ji jmeno nepriradis, duplicita se nekontroluje.
A pokud ji chces na formulari videt, musi ji priradit spravny
parent, to staci.
Radim
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
DBAware komponenty nebo rucni obsluha
[*] zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 26.9.2000 16:21:28
Ahoj,
zaludnosti tady rozhodne jsou, ale pokud nekdo nepouziva pristup pres ADO,
pak BDE a IB DataAcces komponenty funguji obstojne a hlavne podobne. Pokud
vznikne bihem ukladani baliku dat problem, ten je mozno pomoci udalosti
UpdateError odchytit a vyzadat si dalsi zpracovani dat zmenou promenne
UpdateAction na uaSkip.
Radek
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
tel.c.: 069/674 33 62 (069/292 8421)
mobil : 0604 539 827
-----Puvodni zprava-----
Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
Odeslano: 26. zaoi 2000 11:37
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: DBAware komponenty nebo rucni obsluha
On 26 Sep 2000, at 8:35, zhasil wrote:
> nechci tady rozvijet vasnivou debatu, zda DBAware komponenty ano ci
> ne. Ale rad bych prispel svou zkusenosti. Delam C/S aplikace nad IB
> jiz delsi dobu a DB komponenty k plne spokojenosti pouzivam. Tady je
> postup jez se mi osvedcil. - TQuery jako CachedUpdates - TUpdateSQL
> napojeno na Tquery - kazda zaznam v tabulce ma jednoznacne ID a
> casovou znacku a pomoci tichto dvou udaje je zaruceno ze zaznam
> nemohou zmenit dva uzivatele najednou Paklize se TQuery nastavi jako
> CachedUpdates, veskere zmeny (i u vice zaznamu najednou) se zapisuji
> do bufferu na klientovi (tzn. komunikace se serverem je nulova). Ve
> chvili kdy chce uzivatel odeslat zmeny na server zahajim transakci,
> metodou ApplyUpdates se pokusim ulozit zmeny a pokud se vse podari
> transakci potvrdim.
Tato metoda ma vsak sve zaludnosti, zjistil jsem rozdil v chovani
mezi BDE a ADO, napriklad. Dochazi napriklad k tomuto: mas 10
"baliku" zmen. Posles ApplyUpdates, 3. zmena se z nejakych
duvodu neprovede. Jenze, neprovedou se ani vsechny ostatni
zmeny, a ani se nedovis, proc se ulozeni nepovedlo.
Pricemz bych pozadoval napriklad takoveto chovani (nekdy zase
jine, podle situace): chci ulozit vsechny zmeny, ktere se ulozit daji,
a chci seznam "baliku", ktere se nepodarily a proc se to
nepovedlo. Pokud mi ApplyUpdates neni schopno toto zajistit,
musim stejne osetrit kazdy "balik" zvlast, tedy nejlepe volanim
nejakych vhodnych ulozenych procedur.
> V kazdem pripade se mi nezda zrovna nejstastnejsi tvar ulozene
> procedury jak tady navrhuje Zbysek. Rekl bych, ze pokud dojde ke
> soucasnemu spusteni dvou nebo vice aktualizaci jednoho zaznamu, muze
> se jedna procedura spozdit a to tak, ze prvni dva testy budou v
> poradku, ale je?ti nez dojde k aktualizaci ta druha procedura jiz
> zmenu provede. Mezitim ale probehne i procedura prvni a zmeny taktez
> ulozi. Ja vim v praxi toto nastane jednou za uhersky rok, ale stat se
> to klidne muze.
Vsak jsem ten zapis take vhodne komentoval. Je jeste dulezite
zjistit, zda databaze vola ulozene procedury v threadech, nebo
hezky ceka na dokonceni predchoziho volani. Tato informace
zasadne ovlivnuje zpusob zapisu ulozenych procedur. Transakce
muze byt aktivovana i nekde nad volanim uvedene procedury,
protoze muze byt volano vice ryznych procedur v ramci transakce.
Moznosti je dlouha rada.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Dynamicka tvorba ListBoxu
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 26.9.2000 16:39:22
>
> Pokud zarazujes komponentu do formulare, musis ji priradit
> unikatni jmeno (formular si na to potrpi :). Pokud ji chces na tom
> formulari i videt, musis jeste zavolat prislusnou metodu.
>
To preci neni uplne pravda, komponenta nemusi mit vubec zadne jmeno
a nikomu to nebude vadit. Problem nastane az pokud se pouzije jiz
pouzite jmeno.
Existuji dva zpusoby jak vlozit MyControl na MyWinControl
MyControl.Parent := MyWinControl
nebo
MyWinControl.InsertControl(MyControl)
(prirazeni parenta samozrejme interne zavola jeho InsertControl)
ten prvni zpusob byl v puvodnim dotazu pouzit, takze v tom chyba neni
Tomas Bihary
KLAVESA
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 26.9.2000 16:48:07
najdi si v dokumentaci informace o keybd_event, tim se to resi
-=Ivomir=- wrote:
>
> Nevim proc, ale mne to proste nefunguje. Co je ten posledni parametr??? to w?
> V helpu je Specifies additional message-specific information. Ale co proboha.
> Ja bych ale spis potreboval stisknout klavesu. Delal jsem to pres ten
>
> Sendmessage(Self.Handle,WM_KEYUP,nevimcozaparametr,nevimcozaparametr);
> Sendmessage(Self.Handle,WM_KEYDOWN,nevimcozaparametr,nevimcozaparametr);
> Sendmessage(Self.Handle,WM_CHAR,nevimcozaparametr,nevimcozaparametr);
>
> Ale nefunguje. Mam nekde nastavenej kurzor a vyvolam tento prikaz a nic se nenapise
> a navic vyse neni specifikovano, jaky znak chci zmacknout.
> HEEELP
>
> ....... s pozdravem Ivomir
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
KLAVESA
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 26.9.2000 17:06:21
Hledal sem uz predtim a samozrejme ze jsem je pouzil, a kdyz tak spatne, proto potrebuju
poradit a proto sem psal ze nevim co tam dat za parametr.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
> najdi si v dokumentaci informace o keybd_event, tim se to resi
>
> > Nevim proc, ale mne to proste nefunguje. Co je ten posledni parametr??? to w?
> > V helpu je Specifies additional message-specific information. Ale co proboha.
> > Ja bych ale spis potreboval stisknout klavesu. Delal jsem to pres ten
> >
> > Sendmessage(Self.Handle,WM_KEYUP,nevimcozaparametr,nevimcozaparametr);
> > Sendmessage(Self.Handle,WM_KEYDOWN,nevimcozaparametr,nevimcozaparametr);
> > Sendmessage(Self.Handle,WM_CHAR,nevimcozaparametr,nevimcozaparametr);
> >
> > Ale nefunguje. Mam nekde nastavenej kurzor a vyvolam tento prikaz a nic se nenapise
> > a navic vyse neni specifikovano, jaky znak chci zmacknout.
> > HEEELP
Bmp do buttonu
[*] Petr Pa��enko - 26.9.2000 17:10:41
Je-li to mozne, mohl bys mi je take poslat? Dekuji
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, August 19, 2000 9:49 AM
Subject: Re: Bmp do buttonu
| Muzu poslat, mam jich 648, sou z adres, ktery se tady uz probiraly.
| Pochopitelne ne vsechny sou pouzitelne, neprobiral sem to (250 kB
| nezazipovane)
|
| Hurricane
| ----- Original Message -----
| Nevite nekdo o adrese s archivy obrazku pro tlacitka. Nejake
| jsem nasel ale porad to neni ono.
|
|
| Simulace prace pocitace
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 26.9.2000 17:12:14
> > no, simulovat stisk klavesy by nemal byt problem.
> > napriklad toto posle oknu, ktore ma handle ghwnd stlacenie
> klavesy 'W'
> > PostMessage(ghwnd,WM_KEYDOWN ,'W' ,0);
>
> 1) Neznamy parametr ghwnd. (skousel sem dosadit Self.Handle
> ale potreboval bych to spise v celem systemu)
> 2) Incompatibile types Integer and Char u 'W' (skousel jsem
> dosadit int, jako cislo ordinalni hodnota)
>
> zmineny postup mi stale nefunguje. Mam kurzor napr. na edit a
> nic se tam nenapise.
no, chces to poslat do vlastneho programu, alebo nejakemu cudziemu?
Ak vlastnemu tak daj handle toho editu napr. TEdit1.Handle.
No a to 'W' mi v CB funguje, neviem preco to v delphi nejde.
/LH
DBAware komponenty nebo rucni obsluha
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.9.2000 17:22:57
On 26 Sep 2000, at 9:59, Jaroslav Nadhera wrote:
> > Pochybuju, ze bys nekdy rucne (napr. v gridu editoval 100 000
> > zaznamu). Pokud je editujes hromadne na klientovi v cyklu, proste si
> > nechas tabulku otevrenou. Pokud pouzivas nejake hromadne zmeny,
> > vetsinou se to da resit ulozenou procedurou.
> >
>
> Tady jde o to, ze napr. 10 lidi pod tlakem cely den busi do tabulky
> zaznam za zaznamem. Tech 100 000 zaznamu udelaji za 100 dni.
Pokud maji lidi busit nova data pod tlakem, pak se ani s oteviranim
nejakeho blazniveho datasetu vubec neobtezuji (to jen zdrzuje),
pouze volam ulozenou proceduru pro vkladani. Delat neco takoveho
v DBGridu nad otevrenym datasetem je cira zoufalost. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kresleni do "titulkoveho pruhu"
[*] Karel Klimes <klimes(zv)metra(tec)cz> - 26.9.2000 16:56:00
Ahoj,
snazim se kreslit do titulkoveho pruhu formulare. Do vlastnosti WindowProc
formulare jsem vlozil vlastni proceduru, ve ktere pro tento formular
odchytavam vsechny zpravy.
Pri zprave WM_PAINT jsem nejdrive provedl puvodni proceduru a potom jsem
nakreslil nekolik vodorovnych car s pocatkem v (0,0) vzhledem k oknu
formulare, delkou asi 20 a to 20x smerem dolu. JENZE ty cary zustali
viditelne jenom v ramu okna, "titulkovy pruh" je prekreslil. Jak je to
mozne, kdyz jsem nejdrive provedl puvodni proceduru okna a potom svoji
kreslici proceduru. Je to v jine zprave od Windows? Pokud ano, tak v ktere?
Diky predem za pomoc
Progr-amather -Kchodl-
Dynamicka tvorba ListBoxu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.9.2000 19:04:23
> > Obavam se ze si pletes definici Object a Class
> >
> > Object neni adresovan pointrem - jde implicitne o oblast pameti na
kterou
> si
> > zamozrejme muzes pointr udelat.
> > Na Class je automaticky vytvarena instance prez pointer (manual rika, ze
> > class je pointer na object). Pointer je 'skryty' takze neni nutne psat ^
v
> > zapisu volani metod atd..
>
> Nepletu si to. Objekt je instanci tridy, trida je potomkem
> tridy TObject nebo vyssi.
>
> TMyClass = Class(TObject)
> ...
> end;
>
> var
> MyObj:TMyClass;
>
> O nejaky pozustatcich z TP5.5 typu
>
> tneco = tobject(xxx)
> ....
> end;
>
> nebo podobne, uz ani nevim, jak se to pise,
> uz nema cenu mluvit, ani se tim zabyvat,
> to je minulost.
jak pro koho :-). Proste nemuzes rici ze typ Object zmizel a vsechny objekty
jsou tedy pointry. Napriklad ja radeji puziju "stary" dobry object - protoze
vim jak se chova, jak to kompilator prelozi a taky nechci dedit zadny veci z
nejakych trid (setreni pameti atd,..).
D. Toman
Delphi 5 & Windows 2000 CZ
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 26.9.2000 19:41:40
Muze to zpusobit nekolik veci:
1. Instalaci provadis jako uzivatel, v jehoz jmene se vyskytuji znaky s
diakritikou nebo s mezerou
2. Nemas dostatecna pristupova prava
3. Nejsi kamarad s Bilem G., programatory Borlandu nebo majiteli Install
Shieldu.
Na zaklade empirickych zkusenosti doporucuji smazat uzivatele, ktereho pri
instalaci vytvorili W2000 a vytvorit noveho s potrebnymi pravy.
Tomas
>minule sa to tu preberalo, ale neviem vysledok. Ako nainstalujem Delphi5 na
W2k CZ ?
>setup.exe mi po par sekundach skonci bez akejkolvek akcie ...
>
>Vdaka.
>
>Peter CIRIP.Nova verze IBTalku
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 26.9.2000 19:41:38
Preji vsem pekneho dne,
dovoluji si upozornit na novou verzi IBTalku, utilitky pro lepsi pristup
k InterBasi:
http://atrey.karlin.mff.cuni(tec)cz/~rk/IBTalk.shtml
Novinky:
* vyhledavani
* vysledek dotazu do HTML podoby
* spousteni selectu z tabulky pouhym oznacenim nazvu
* dalsi (popsano na strance)
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Win32 aplikace a vystup do DOSu
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 26.9.2000 19:54:04
Co� takhle paramstr(0) atd.
Honza
----- Original Message -----
From: Milan Schembera <spravce(zv)spektrum(tec)cz>
To: 'Konference DELPHI' <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 21, 2000 6:47 AM
Subject: Win32 aplikace a vystup do DOSu
> Haj hou,
>
> mam taky specificky problem. Mam klasickou Win32 aplikaci (D5Ent) a chci
> nechat moznost ji spoustet i s parametry tak, ze kdyz ji treba dotycny
> spustit jako PROJECT1.EXE /H vypise se mu do DOSovskeho okna napoveda,
jake
> parametry pouzit. (Tzn. aby se dala spoustet i z prikazove radky a primo
do
> instance te prikazove radky ona vypisovala hlaseni).
>
> Zkousel jsem to zleva i zprava, seshora i zespoda, a zatim no success...
>
> Poradi mi nekdo ? Diky.
>
> S pozdravem a pranim hezkeho dne
>
> Milan Schembera
> Spravce IT
> SPEKTRUM CZ a.s.
> tel. +420-608-944444
> http://www.spektrum(tec)cz
>
>
>RxLib 2.75
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 26.9.2000 20:08:27
Jak to nainstalovat :
To je velice jednoduch�
Instala�n� program ti to rozbal� do slo�ky kde m� nainstalovan� Delphi.
c:\program Files\Delphi 5\Delphi 5\Rx // tak je to t�eba u m�
1. Pokud m� Delphi 5 profesional or StandartEdition tak
otev�i si soubor rx.inc pro editaci a sma� ��dek kde je tohle {$define
DCS}
je to asi n�kde na za��tku.
2. zapni si Delphi a klikni na File a pot� Open. Otev�i soubor RXCTL5.DPK
je v adres��i s RX
V okn� Package kter� se ti pot� otev�e klikni na COMPILE. Pot� co to
skompiluje tak
tot� provede� u soubor� RXBD5.DPK a RXBDE5.DPK.
3. N�kde v n�kter� slo�ce Delphi jsou nov� BPL
asi to bude v Projects\bpl\ m�ly by to b�t soubory RXBDE5.BPL , RXCTL5:BPL
and RXDB5.BPL tyto
t�i soubory nakop�ruj do slo�ky C:\WINDOWS\SYSTEM\
4. A znovu klikni na File a pot� OPEN otev�i soubor DCLRX5.DPK a v okn�
kter� se ti otev�e klikni nejprve
ne COMPILE a pot� na INSTALL. To stejn� proved u souboru DCLRXDB5.DPK a
DCLRXBD5.DPK
no a je to.
Jo je�t� bych zapomn�l p�edt�m ne� to za�ne� v�echno prov�d�t mus� smazat
v�echno co jsi p�ed t�m
provedl p�i instalaci RX component.
S pozdravem Kachlik Jan
DBAware komponenty nebo rucni obsluha
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.9.2000 20:09:28
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
> dobu, kdy ma byt v editu neco videt, aktivni. Nebo se musi dataset
> sam (popr. db stroj) postarat o cacheovani dat. Pri Zbyskove
> pristupu se nactou data, klient muze nejen zavrit dataset, ale podle
> potreby se treba uplne odpojit od databaze, a az uzivatele napadne
> provest editaci, tak se zase pripojit.
Ahoj,
a co pouzit TClientDataSet ?
Petr Vones, amatersky programator
Kresleni do "titulkoveho pruhu"
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 26.9.2000 20:13:02
> Ahoj,
> snazim se kreslit do titulkoveho pruhu formulare. Do vlastnosti WindowProc
> formulare jsem vlozil vlastni proceduru, ve ktere pro tento formular
> odchytavam vsechny zpravy.
> Pri zprave WM_PAINT jsem nejdrive provedl puvodni proceduru a potom jsem
> nakreslil nekolik vodorovnych car s pocatkem v (0,0) vzhledem k oknu
> formulare, delkou asi 20 a to 20x smerem dolu. JENZE ty cary zustali
> viditelne jenom v ramu okna, "titulkovy pruh" je prekreslil. Jak je to
> mozne, kdyz jsem nejdrive provedl puvodni proceduru okna a potom svoji
> kreslici proceduru. Je to v jine zprave od Windows? Pokud ano, tak v ktere?
Zkusil bych WM_NCPAINT, napoveda krom jineho pravi:
An application sends the WM_NCPAINT message to a window when its frame must be
painted.
Jeste by se ti mohlo hodit WM_ERASEBKGND.
A muzu se zeptat, proc potrebujes kreslit cary do ramu okna? :-)
Roman
KLAVESA
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 26.9.2000 20:23:01
Pohledej v UDDF, tohle je asi to nejdulezitejsi z prikladu, ktery tam uvadeji,
posilaji tim znaky do otevreneho poznamkoveho bloku:
uses ShellAPI;
...
AppWind:THandle;
...
procedure SendShift(H: HWnd; Down: Boolean);
var vKey, ScanCode, wParam: Word;
lParam: longint;
begin
vKey:= $10;
ScanCode:= MapVirtualKey(vKey, 0);
wParam:= vKey or ScanCode shl 8;
lParam:= longint(ScanCode) shl 16 or 1;
if not(Down) then lParam:= lParam or $C0000000;
SendMessage(H, WM_KEYDOWN, vKey, lParam);
end;
procedure SendCtrl(H: HWnd; Down: Boolean);
var vKey, ScanCode, wParam: Word;
lParam: longint;
begin
vKey:= $11;
ScanCode:= MapVirtualKey(vKey, 0);
wParam:= vKey or ScanCode shl 8;
lParam:= longint(ScanCode) shl 16 or 1;
if not(Down) then lParam:= lParam or $C0000000;
SendMessage(H, WM_KEYDOWN, vKey, lParam);
end;
procedure SendKey(H: Hwnd; Key: char);
var vKey, ScanCode, wParam: Word;
lParam, ConvKey: longint;
Shift, Ctrl: boolean;
begin
ConvKey:= OemKeyScan(ord(Key));
Shift:= (ConvKey and $00020000) <> 0;
Ctrl:= (ConvKey and $00040000) <> 0;
ScanCode:= ConvKey and $000000FF or $FF00;
vKey:= ord(Key);
wParam:= vKey;
lParam:= longint(ScanCode) shl 16 or 1;
if Shift then SendShift(H, true);
if Ctrl then SendCtrl(H, true);
SendMessage(H, WM_KEYDOWN, vKey, lParam);
SendMessage(H, WM_CHAR, vKey, lParam);
lParam:= lParam or $C0000000;
SendMessage(H, WM_KEYUP, vKey, lParam);
if Shift then SendShift(H, false);
if Ctrl then SendCtrl(H, false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SendKey(AppWind, 'T');
SendKey(AppWind, 'e');
SendKey(AppWind, 's');
SendKey(AppWind, 't');
end;
Roman
Bitmap
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 26.9.2000 20:26:37
> Lidicky to ste se opravdu nikdo nesetkal s tim hlasenim Bitmap image is not
> valid?
Jo, je to reakce na nedostatek zdroju nebo tusim taky, kdyz jsem se pokousel
provaded na 8-bit bitmape nejake operace, ktere na 8-bitech nejdou, tak sem to
videl
taky.
> Nepomohla ani preinstalace Delphi.
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Uf, ale stejne je mi to velke "N' nejake podezrele...!
Roman
DLL - Delphi vs VisualC
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 26.9.2000 20:51:51
Ahojda lidickove, byl jsem postaven pred ukol spojit kod vice vyvojaru z
Delphi 4 a Visual C. Jako nejlepsi verze se mi jevi pres DLLko, ale
zadnym zpusobem se mi nepodarilo spojit Ceckovy DLLko s Delphi programem
ani naopak (Delphi DLL s Ceckovym programem).
Delphi DLL, VC program:
- behem programu je vsechno v poradku (aspon to tak vypada)
- pri FreeLibrary (z VC) to v DLLku v procedure nazvane ExitDLL RETne
na spatnou adresu (nekam kolek 100MB); asi v dusledku predchoziho
spatneho ulozeni nejakym parametru na stack.
VC DLL, Delphi program:
- Pri volani fce ProcAdress z programu to vrati 0 ( = procedura
daneho jmena neex.)
Radsi bych potreboval rozchodit tu prvni verzi...
Jestli jste nekdo neco podobnyho delal, tak mi prosim poradte, co delam
spatne... Ja bych rek, ze to preci fungovat musi, tak proc mi to
nejde??? Co delam spatne???
Jinak jestli chcete videt kod, tak:
Program:
program JIMTEST;
uses windows;
var
h : HINST;
type
TAhoj = function:Integer;
TAhoj2 = function(i:Integer):Integer;
var
Ahoj : TAhoj; Ahoj2 : TAhoj2;
i,x : Integer; s1,s2 : String;
begin
h:=LoadLibrary(PChar('JIM.DLL'));
Ahoj :=GetProcAddress(h,PChar( 'Ahoj'));
Ahoj2:=GetProcAddress(h,PChar('Ahoj2'));
Str(Ahoj,s1);
MessageBox(0,PChar('Ahoj: '+s1),PChar('JIMTEST'),MB_OK);
for i:=1 to 4 do begin
Str(i,s1);
x:=Ahoj2(i);
Str(x,s2);
MessageBox(0,PChar('Ahoj2('+s1+'): '+s2),PChar('JIMTEST'),MB_OK);
end;
FreeLibrary(h);
end.
DLLko:
library JIM;
uses windows;
function Ahoj:Integer; stdcall;
begin
Result:=10;
end;
function Ahoj2(i:Integer):Integer; stdcall;
begin
Result:=i+1;
end;
exports Ahoj,Ahoj2;
end.
Spolu to takhle chodi, ale kdyz pouziju DLLko (resp. program) v VC, tak
to nefachci. Za vsechny rady predem moc dik.
--
Martin Pesava
/--------------------------------------------------------------\
| http://www.volny(tec)cz/jimx - Neoficialni stranka MISS |
| |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Ukonceni SETI@HOME
[*] Martin Klem <klem(zv)netdealer(tec)cz> - 26.9.2000 22:35:03
Dobry den,
vsichni jiste znate projekt SETI(zv)HOME. Muj problem je nasledujici:
Mam aplikaci, ktera vetsinu sveho casu travi tim, ze na monitoru zobrazuje
ruzne reklamni texty, tzn. nedela vubec nic narocneho. Vzhledem k tomu, ze
to bezi 24 hodin denne, je mi lito promrhaneho procesoroveho casu. Proto
bych rad pri spusteni me aplikace spustil SETI a nasledne jej prekryl svym
oknem. V tom neni problem, delam to pomoci
ProcID:=WinExec(PChar(Path),sw_Showminimized);
Horsi ale je, jak SETI ukoncit v momente, kdy potrebuji ukoncit svoji
aplikaci, coz se deje pohybem mysi (jedna se o screensaver). Nekde v archivu
jsem nasel radu na spusteni WinSight a vyhledani nazvu okna a nasledneho
pouziti (pro WinCommander)
hwnd:=FindWindow('TWINDOWSCMD',nil);
if hwnd<>0 then PostMessage(hwnd,WM_QUIT,0,0);
Nazev okna se mi vsak pomoci WinSight32 nepodarilo, proto je pro me tento
zpusob nepouzitelny.
Mate nekdo nejaky tip, jak SETI nenapadne spoustet na pozadi tak, aby po nem
nezustavaly zadne stopy, tedy ani ikona v SysTray?
Da se nejak SETI oknu poslat pozadavek na ukonceni?
Diky
Martin Klem
MathML...
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 26.9.2000 23:51:08
Zdrav�m,
nev�te n�kdo n�co o implementaci zobrazen� MathML?
D�k,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Ako umiestnim TPanel na TForm.FormStyle:=fsMDIForm
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 27.9.2000 00:40:43
Zdravim.
%subj%, ale aby naprekryval TForm.FormStyle:=fsMDIChild ?
Dakujem.
Roland.
DLL - Delphi vs VisualC
[*] Lauko �tefan <lauko(zv)salamon.sk> - 27.9.2000 01:15:17
Ahoj,
len doplnim kod (ja to tak pouzivam) mozno to pomoze...
Lauko.
----- Original Message -----
From: Martin Pe�ava <jimx(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 26, 2000 8:51 PM
Subject: DLL - Delphi vs VisualC
> Ahojda lidickove, byl jsem postaven pred ukol spojit kod vice vyvojaru z
> Delphi 4 a Visual C. Jako nejlepsi verze se mi jevi pres DLLko, ale
> zadnym zpusobem se mi nepodarilo spojit Ceckovy DLLko s Delphi programem
> ani naopak (Delphi DLL s Ceckovym programem).
> Delphi DLL, VC program:
> - behem programu je vsechno v poradku (aspon to tak vypada)
> - pri FreeLibrary (z VC) to v DLLku v procedure nazvane ExitDLL RETne
> na spatnou adresu (nekam kolek 100MB); asi v dusledku predchoziho
> spatneho ulozeni nejakym parametru na stack.
> VC DLL, Delphi program:
> - Pri volani fce ProcAdress z programu to vrati 0 ( = procedura
> daneho jmena neex.)
> Radsi bych potreboval rozchodit tu prvni verzi...
>
> Jestli jste nekdo neco podobnyho delal, tak mi prosim poradte, co delam
> spatne... Ja bych rek, ze to preci fungovat musi, tak proc mi to
> nejde??? Co delam spatne???
>
> Jinak jestli chcete videt kod, tak:
> Program:
>
> program JIMTEST;
> uses windows;
> var
> h : HINST;
> type
> TAhoj = function:Integer;
> TAhoj2 = function(i:Integer):Integer;
> var
> Ahoj : TAhoj; Ahoj2 : TAhoj2;
> i,x : Integer; s1,s2 : String;
> begin
> h:=LoadLibrary(PChar('JIM.DLL'));
> Ahoj :=GetProcAddress(h,PChar( 'Ahoj'));
> Ahoj2:=GetProcAddress(h,PChar('Ahoj2'));
>
> Str(Ahoj,s1);
> MessageBox(0,PChar('Ahoj: '+s1),PChar('JIMTEST'),MB_OK);
>
> for i:=1 to 4 do begin
> Str(i,s1);
> x:=Ahoj2(i);
> Str(x,s2);
> MessageBox(0,PChar('Ahoj2('+s1+'): '+s2),PChar('JIMTEST'),MB_OK);
> end;
>
> FreeLibrary(h);
> end.
>
> DLLko:
> library JIM;
>
> uses windows;
>
> function Ahoj:Integer; stdcall; EXPORT
> begin
> Result:=10;
> end;
>
> function Ahoj2(i:Integer):Integer; stdcall; EXPORT
> begin
> Result:=i+1;
> end;
>
> exports Ahoj,Ahoj2;
>
BEGIN
> end.
>
> Spolu to takhle chodi, ale kdyz pouziju DLLko (resp. program) v VC, tak
> to nefachci. Za vsechny rady predem moc dik.
> --
> Martin Pesava
>
> /--------------------------------------------------------------\
> | http://www.volny(tec)cz/jimx - Neoficialni stranka MISS |
> | |
> | E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
> \--------------------------------------------------------------/
>Workgroup name nebo neco takoveho
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 27.9.2000 01:48:50
Nic ve zlem, ale neco takoveho v registru neni. Alespon teda u me ve
WinNT.
----- Original Message -----
From: honza-world <honza.kachlik(zv)worldonline(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, September 24, 2000 6:56 PM
Subject: Re: Workgroup name nebo neco takoveho
> podivej se do registru na tohle je tam i user a popis PC + pracovn�
skupina
>
> HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP
>
> S pozdravem
> Kachlik Jan
> Milovn�k dobr�ho v�na a registru :)
> HAVE A NICE DAY
>
> ----- Original Message -----
> From: <mirnov(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, September 22, 2000 10:28 PM
> Subject: Workgroup name nebo neco takoveho
>
>
> > Ahoj,
> >
> > Jeden OT: Kde najdu jmeno pracovni skupiny? Hledam to uz 2 dny a
rikam si,
> ze to tam ani snad neni.
> >
> > (D4/WinNT)
> >
> >
> > Mirek
> >
>Delphi 5 & Windows 2000 CZ
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 26.9.2000 22:10:11 -0700
Doslaka, mal si pravdu. Dakujem. Naozaj som mal v mene C s makcenom. Tak to
je Windows riadny shit .... co si mam zmenit rodny list ? Nemozem zato, ze
sa tak volam ...
Este raz vdaka.
Peter.
----- Original Message -----
From: "Tomas Grepl" <delphi(zv)kapsw(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 26, 2000 10:41 AM
Subject: Re: Delphi 5 & Windows 2000 CZ
> Muze to zpusobit nekolik veci:
> 1. Instalaci provadis jako uzivatel, v jehoz jmene se vyskytuji znaky s
> diakritikou nebo s mezerou
> 2. Nemas dostatecna pristupova prava
> 3. Nejsi kamarad s Bilem G., programatory Borlandu nebo majiteli Install
> Shieldu.
>
> Na zaklade empirickych zkusenosti doporucuji smazat uzivatele, ktereho pri
> instalaci vytvorili W2000 a vytvorit noveho s potrebnymi pravy.
>
> Tomas
>
> >minule sa to tu preberalo, ale neviem vysledok. Ako nainstalujem Delphi5
na
> W2k CZ ?
> >setup.exe mi po par sekundach skonci bez akejkolvek akcie ...
> >
> >Vdaka.
> >
> >Peter CIRIP.
>
>CloseFile
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 27.9.2000 07:25:17
Ahoj,
ad 1/ existuje na to takova standardni sekvence:
Try
AsSignFile(FFile,FileName);
ReSet(FFile); //If FileExists(FileName) Then ReSet(FFile) Else
ReWrite(FFile);
Try
//tady je vlastni prace se souborem
While Not Eof(FFile) Do
Begin
Read(FFile,FRec);
//zpracuj zaznam zde
End;
Finally
CloseFile(FFile);
End;
Except
//chyti vyjimky pri otevreni a i pri praci se souborem (treba i konverzi)
ShowMessage('Pri otevreni souboru doslo k chybe.');
//pripadne jine osetreni chyby ci znovuvyvolani vyjimky
End;
ad 2/ po destroy dej Form1 := NIL;
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Lud�k P�ral [SMTP:ludek.paral(zv)telecom(tec)cz]
> Odesl�no: 24. IX 2000 14:33
> Komu: Konference
> P�edm�t: CloseFile,
>
> Ahoj Delphisti,
>
> resim nasledujici problem :
> 1. Pokud otviram soubor pomoci AssignFile a Reset a nepodari se mi ho
> otevrit,a pak pouziji v finally CloseFile, tak dojde k chybe. Proto
> pouzivam "neefektni system" - promennou boolean :
>
> try
> Otevreno:=false;
> AssignFile(SoubNast,JmSoub+'.lus');
> Reset(SoubNast);
> Otevreno:=true;
> finally
> if Otevreno then CloseFile(SoubNast)
> end;
>
> nelze ovsem pouzit funkci napr. if assigned(SoubNast) then
> CloseFile(SoubNast) ?
>
> 2. Pokud pred inicializaci formu pouziji :
>
> if not Assigned(Form1) then Form1.CreateForm(TForm1, Form1);
> form1.Show;
>
> tak to funguje, pokud okno neuzavru - v OnClose davam action:=caFree;
>
> Pri znovuspusteni funkce Otevri form program nevi, ze objekt je zrusen.
>
>
> S diky za vsechny poznamky
>
>
>
> Lud�k P�ral
> Sadov� 2/503
> 352 01 A�
> ludek.paral(zv)telecom(tec)cz
> www.mujweb(tec)cz/pocitace/lupasoft
>
> Chcete dost�vat pen�ze za zapnut� monitor ?
> http://www.intecom(tec)cz/viewbar/index.asp?parentID=1310012
DBAware komponenty nebo rucni obsluha
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 27.9.2000 07:38:11
> > dobu, kdy ma byt v editu neco videt, aktivni. Nebo se musi dataset
> > sam (popr. db stroj) postarat o cacheovani dat. Pri Zbyskove
> > pristupu se nactou data, klient muze nejen zavrit dataset, ale podle
> > potreby se treba uplne odpojit od databaze, a az uzivatele napadne
> > provest editaci, tak se zase pripojit.
>
> Ahoj,
>
> a co pouzit TClientDataSet ?
>
Ahoj,
nevim - musel bych se podivat do helpu, zatim jsem nemel tu
cest... :)
David
DBAware komponenty nebo rucni obsluha
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 27.9.2000 07:43:02
A co treba pouzit nejakou pracovni tabulku ???
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of David Lebeda
> Sent: Tuesday, September 26, 2000 1:03 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: DBAware komponenty nebo rucni obsluha
>
>
> > Dobre, toto je vhodne pro pristup, kdyz jednou za cas chci delat neco
> > s jednim zaznamem, dlouho si s nim hrat a pak jej poslat zpet na
> > server. Ale v pripade, ze potrebuji busit do databaze zaznam za
> > zaznamem, stare opravovat, ruzne to neustale filtrovat, tridit - neni
> > pak lepsi mit tabulku porad otevrenou a treba i pouzit DB aware
> > komponenty? Pro tuto aplikaci je rozhodujici rychlost, jak se nacte
> > zaznam pro editaci, jak rychle se ulozi ci zalozi novy.
>
> OK, ja urcite netvrdim, ze pristup pres db-aware komponenty je tak
> spatny, ze by se nemel nikdy pouzivat. Umim si predstavit situace,
> kdy db-aware komponenty jsou dobra vec, stejne jako situace, kdy
> db-aware trochu komplikuji situaci. Napr. mas hlavni form, na nem
> dbgrid a buttonek, ktery vyvola form pro vlozeni noveho zaznamu.
> Pokud ten form bude resen pomoci db-aware komponent, bude se
> muset pred zavolanim formu vytvorit prazdny radek v tabulce, aby o
> nej ty db-aware komponenty (dbedity apod.) mohly byt opreny.
> Pokud ti behem editace spadne pocitac, zustane v tabulce prazdny
> radek. Nejde ted o to, jak snadne nebo nesnadne je toto ohlidat -
> jde o to, ze to je komplikace, s kterou je treba pocitat.
>
>
> David
Bitmap
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 27.9.2000 07:58:04
> Jo, je to reakce na nedostatek zdroju nebo tusim taky, kdyz
> jsem se pokousel
> provaded na 8-bit bitmape nejake operace, ktere na 8-bitech
> nejdou, tak sem to
> videl taky.
128 MB pameti a zadny spusteny program???
> Uf, ale stejne je mi to velke "N' nejake podezrele...!
??? Nerozumim.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
DBAware komponenty nebo rucni obsluha
[*] L. ZITA <konference(zv)sales(tec)cz> - 27.9.2000 08:00:20
Behalf Of Petr Zika
>
> Je tedy nejake reseni aby se grid, ve kterem ma byt nekolik tisic dokladu,
> otevrel rychle? Aby se do gridu natahla jen ta data ktera se v tu chvili
> zobrazi?
>
Resenim muze byt podobny system jako je pouzivan na www.
Myslim tim dat uzivateli na jeho dotaz vzdy jen x zaznamu stylem
zobrazuji zaznamy 50-100 z 5000. Listovat v gridu, ktery ma tisice
zaznamu je stejne vetsinou nezajimave.
MySQL databze na to ma primo prikaz LIMIT [x,y] pomoci nehoz se podobne
veci pohodlne delaji.
Napr. SELECT * FROM tabulka WHERE Jmeno like '%Josef%' ORDER BY Jmeno Limit
1,50
mi posle pouze prvnich 50 zaznamu odpovidajicich podmince.
SELECT * FROM tabulka WHERE Jmeno like '%Josef%' ORDER BY Jmeno Limit 100,50
mi posle zaznamy 101-150.
V teto konferenci tady nekdo navrhoval podobne reseni pro IB s pouzitim
generatoru.
Je to cele otazka pristupu. Pokud ma nekdo databazi o nekolika tisicich
zaznamech
urcite nebude prochazet zaznamy jeden po druhem v gridu. Vzdy se v tom musi
nejak hledat a filtrovat
takze ve vetsine pripadu otevre nejakou evidenci - vidi prvnich par zaznamu
a pak si zacne vybirat
pomoci filtru nebo se bude snazit vyhledat nejaky konkretni zaznam.
Tenhle pristup resi i problem s nedobre zadanym dotazem (mam na mysli
nejednoznacne podany dotaz kteremu
vyvovuje mnoho zaznamu), uzivatel v tom pripade neni zdrzovan dlouhym
prenosem vysledku dotazu ze serveru na klienta
a hned vidi, ze dotaz musi upresnit, pokud se chce dobrat rozumneho
vysledku, no a pokud opravdu chce vsechno projit
tak ho nezdrzi si po x zaznamech kliknout na tlacitko dalsi.
Ono ve skutecnosti TTable ve spolupraci s Gridem tak nejak asi i funguje,
ale rekl bych ze nechat to na uzivateli je
daleko efektivnejsi.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Instalace DAO3.5
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 27.9.2000 08:23:32
Ahoj,
neslo by poslat ten link ? Ja na MS strankach vzdycky zabloudim :-(((
M.S. (neplest s MS)
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Erik Salaj
> Odesl�no: 26. z��� 2000 10:26
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Instalace DAO3.5
>
>
> > Jak spravne postupovat a co vsechno potrebuji k instalaci DAO3.5?
> > Instalacni program by tohle vsechno mel vyresit.
> > D3 a Diamond Access /DAO komponenty/
>
> Na MS webe som nasiel daosetup.rtf subor s presnym popisom
> DAO 3.5 instalacie. Mozem pripadne poslat.
>
> Erik Salaj, WINSOFT
>Rada s Access - komprimace tabulky
[*] Milan Bursik <delphi(zv)advnet(tec)cz> - 27.9.2000 08:24:24
Zdravim vsechny,
nevite nahodou nekdo jak pres ADO nebo ODBC udelat komprimaci databaze?.
Milan Bursik
Casove kriticke operace ve Win
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 27.9.2000 08:36:34
Zkus TimeSetEvent tim se da pustit casovac, ktery bezi ve vlastnim vlaknu.
Ondrej Malecek
----- Original Message -----
From: "Ota Maly" <maly(zv)space(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 26, 2000 8:04 AM
Subject: Casove kriticke operace ve Win
> Ahoj,
> kolega resi komunikaci s ISA (PCI) kartou ve Windows, jedna se v podstate
o
> AD prevodnik, z cehoz plyne potreba prenosu pomerne velkych baliku dat v
> realnem case. Karta ma svuj vlastni buffer, ktery je vsak potreba vybrat
> alespon jednou za 0.5 sec.
> Komunikovat s kartou se mu dari v pohode, jen je problem s casem, pokud se
> vezme za okno te aplikace, tak se OnTimer pochopitelne nevyvola
(respektive
> vyvola pozdeji) a tim dochazi ke ztrate merenych dat..
> Jak se vrhnout na takovou aplikaci ?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>
>
>
Ulozeni pretypovane metody do streamu
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 27.9.2000 09:34:13
Zdravim,
mam Edit vytvoreny za behu programu a mam svou vlastni proceduru na osetreni udalosti OnChange.
Edi:=TEdit.Create(Self);
Edi.Text:='Hallo';
Edi.OnChange:=FormClick;
a mam funkci ComponentToString ktera mi componentu Edi skouri do stringu.
'object Edit1: TEdit'#$D#$A' Left = 56'#$D#$A' Top = 48'#$D#$A' Width = 121'#$D#$A' Height = 21'#$D#$A' TabOrder = 0'#$D#$A' Text = 'Edit1''#$D#$A'end'#$D#$A
potreboval bych si ulozit do stringu i pretypovani udalosti. Nevi nekdo jak to vyresit?
ZVo.
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
PROSOFT Kromeriz s.r.o.
Soudni 1293
KROMERIZ 767 01
Czech Republic
tel/fax 0420 (0)634 333545
GSM: 0420 (0)602 305919
GSM 0420 (0)602 305920
e-mail: prosoft(zv)prosoft(tec)cz
DBAware komponenty nebo rucni obsluha
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 27.9.2000 09:35:42
> > Tady jde o to, ze napr. 10 lidi pod tlakem cely den busi do tabulky
> > zaznam za zaznamem. Tech 100 000 zaznamu udelaji za 100 dni.
>
> Pokud maji lidi busit nova data pod tlakem, pak se ani s oteviranim
> nejakeho blazniveho datasetu vubec neobtezuji (to jen zdrzuje),
> pouze volam ulozenou proceduru pro vkladani. Delat neco takoveho
> v DBGridu nad otevrenym datasetem je cira zoufalost. :-)
>
Uznavam, ze je to cira zoufalost, ale oni jeste chteji prohlizet to, co tam
nabusili a ruzne si to behem prace filtrovat, prohlizet, hledat ruzne
zaznamy,.... Samozrejme by bylo lepsi a rychlejsi udelat jenom neco na
vkladani novych zaznamu, kde by se objevil vstupni formular a ten by pak
data poslel do databaze. Ale oni okamzite chteji videt, jak se zazanm objevi
v gride (asi neveri, ze tam skutecne je) a pokud mozno i zaznamy, co tam
nabusi ostatnich 9 lidi.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Rada s Access - komprimace tabulky
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 27.9.2000 09:37:30
> nevite nahodou nekdo jak pres ADO nebo ODBC udelat komprimaci
> databaze?.
Ahoj,
s Adonisem a Accessem 97 to delam takto:
//DatabaseName je jmeno souboru .MDB, SysDBName je jmeno systemove databaze
.MDW
procedure CompactDatabase;
const
TCSA = 'Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;User
ID=MyUser;Data Source=';
TCSD = ';Jet OLEDB:System database=';
TCSE = ';Jet OLEDB:Engine Type=4';
var
JE : JetEngine;
sn : WideString;
so : WideString;
Ts : string;
OK : boolean;
begin
OK := true;
Ts := ExtractFilePath(DataBaseName) + 'TEMP.MDL';
try
JE := JRO.CoJetEngine.Create;
so := TCSA + DataBaseName + TCSD + SysDBName + TCSE;
sn := TCSA + Ts + TCSD + SysDBName + TCSE;
JE.CompactDatabase(so, sn);
except
OK := false;
end;
if OK then
begin
DeleteFile(DataBaseName);
MoveFile(PChar(Ts), PChar(DataBaseName));
end;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Casove kriticke operace ve Win
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 27.9.2000 10:20:36
A jde jim nastavit mnohem vetsi rozliseni nez 55ms - mam odzkouseno. V pohod
e mi chodi i 1ms. Je ukryty v jednotce MMSystem.
Milan Tomes
> Zkus TimeSetEvent tim se da pustit casovac, ktery bezi ve vlastnim vlaknu.
>
> Ondrej Malecek
>
> > Ahoj,
> > kolega resi komunikaci s ISA (PCI) kartou ve Windows, jedna se
> v podstate
> o
> > AD prevodnik, z cehoz plyne potreba prenosu pomerne velkych baliku dat v
> > realnem case. Karta ma svuj vlastni buffer, ktery je vsak potreba vybrat
> > alespon jednou za 0.5 sec.
> > Komunikovat s kartou se mu dari v pohode, jen je problem s
> casem, pokud se
> > vezme za okno te aplikace, tak se OnTimer pochopitelne nevyvola
> (respektive
> > vyvola pozdeji) a tim dochazi ke ztrate merenych dat..
> > Jak se vrhnout na takovou aplikaci ?
> >
> > S pozdravem
> > Ota Maly
> >
> > PaPouch elektronika
> > http://www.pap-el(tec)cz
> >
> >
> >
>Oracle za proxy
[*] labsystem(zv)atlas(tec)cz - 27.9.2000 11:04:53
Ahoj,
nezkousel se nekdo pripojit k Oracle, ktery je dostupny az za proxy serverem? Zkousel jsem si ve WinProxy (pozdeji i ve Winroute) namapovat port, ale stejne se mi nepodarilo pripojit.
Pokud jsem se zkousel pripojit z pocitace primo pripojeneho na internet, tak vse probehlo bez problemu.
Nemate nekdo tuseni v cem je problem?
Diky za kazdou radu.
Michal Motalik
COMBOBOX
[*] Tu�ek Roman (M� Praha 15) - 27.9.2000 11:35:43
potrebuji otevrit combo pomoci
stisku nejake klavesy treba F3 a jak na to ?? TRT
DBAware komponenty nebo rucni obsluha
[*] Tom� Vlad�k������V��?���o�� - 27.9.2000 11:59:55
> Ahoj,
>
> a co pouzit TClientDataSet ?
>
> Petr Vones, amatersky programator
>
To je ovsem "Enterprise only".
Nebo by slo editovany radek stahnout do neceho jako je TRxMemoryData - s
tim lze pracovat se standardnimi DBedit komponentami a posleze to - pomoci
stored prc (ci jak jinak chcete) supnout na server.
Tom, amatersky kytarista
Casove kriticke operace ve Win
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 27.9.2000 12:24:50
Pri takovemto rozliseni se uz ale musi davat pozor na to, co se v callback
funkci casovace provadi, protoze takto uz je to dost narocne na system a
muze se stavat, ze to pozastavuje dalsi bezici veci s nizssi prioritou.
Ondrej Malecek
----- Original Message -----
From: "Milan Tome�" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 27, 2000 10:20 AM
Subject: RE: Casove kriticke operace ve Win
> A jde jim nastavit mnohem vetsi rozliseni nez 55ms - mam odzkouseno. V
pohod
> e mi chodi i 1ms. Je ukryty v jednotce MMSystem.
>
> Milan Tomes
>
> > Zkus TimeSetEvent tim se da pustit casovac, ktery bezi ve vlastnim
vlaknu.
> >
> > Ondrej Malecek
> >
> > > Ahoj,
> > > kolega resi komunikaci s ISA (PCI) kartou ve Windows, jedna se
> > v podstate
> > o
> > > AD prevodnik, z cehoz plyne potreba prenosu pomerne velkych baliku dat
v
> > > realnem case. Karta ma svuj vlastni buffer, ktery je vsak potreba
vybrat
> > > alespon jednou za 0.5 sec.
> > > Komunikovat s kartou se mu dari v pohode, jen je problem s
> > casem, pokud se
> > > vezme za okno te aplikace, tak se OnTimer pochopitelne nevyvola
> > (respektive
> > > vyvola pozdeji) a tim dochazi ke ztrate merenych dat..
> > > Jak se vrhnout na takovou aplikaci ?
> > >
> > > S pozdravem
> > > Ota Maly
> > >
> > > PaPouch elektronika
> > > http://www.pap-el(tec)cz
> > >
> > >
> > >
> >
>
pristup k objektu pres Handle
[*] nosoblat(zv)email(tec)cz - 27.9.2000 12:40:17
Cau lidi,
existuje prosim nejaky postup jak pristoupit k objektu pres jeho handle. Jedna
se mi konkretne o objekt TEdit z jineho okna. Kdyz se pokusim cist jeho text
pres API funkci funguje to, ale narazil jsem na jeden Edit, na ktery to nefungovalo
a nevratilo mi to nic. Program od Borlandu na sledovani oken WS32 (nevim
jak se presne jmenuje) funguje i na tento Edit.
Diky moc NosoBlat
---
WWW.EMAIL.CZ - Vase posta zdarma
http://www.email(tec)cz