Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
IP ADRESA Z NAZVU POCITACE
[*] delfinojd <delfinojd(zv)atlas(tec)cz> - 18.9.2000 09:59:51
Ahoj,
poradte mi prosim jak zistim IP adresu okolniho pocitace zapojeneho v siti
podle jeho jmena? Vlastni adresu ziskat umim, ale nevim jak na okolni pocitace.
Karel
dsgnintf
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 18.9.2000 10:11:41
Ahoj,
prosim te mohl bys to trochu podrobneji vysvetlit. Napriklad dost dobre
nechapu, jak
muzu nejak presne oddelit ten kod napr. u vizualni komponenty a kdybych to
dokazal,
tak nakonec v te unite, ktera bude obsahovat run-time kod, budu muset
nastavit zase
cestu k dsgninf, protoze v ni budu mit napr. potomky TPropertyEditoru.
Predem dik.
Pavel Vasek
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Coz je jen odkladani problemu misto jeho reseni. Toto ti funguje jen diky
> tomu, ze design time unity jsou (z historickych duvodu) stale linkovany
> v runtime VCL baliccich. Kdyz se objevilo Delphi 5 (a diky mnoha chybnym
> komponentam se objevil i tento problem) tak Borland doporucoval vsechny
> tyto chyby opravit, protoze v dalsich verzich Delphi jiz pravdepodobne
> nebude tento kod v rutime baliccich a tutiz tato 'oprava' nebude mozna.
> Staci tedy rozdelit design time a runtime kod do samostatnenych unitu,
> tak jak to bylo doporucovano (ale ne vyzadovano) od Delphi 3.
>
> Petr Vones, amatersky programator
>
>
>Instalace programu ve Win2000
[*] RDocekal(zv)csas(tec)cz - 18.9.2000 10:25:30
Nemas tam nejakej antivirak s aktivnim I/O monitorem vcetne scanovani
archivu? I$ pouziva CABy a v pripade D5 budou asi dost velky...
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----Original Message-----
> From: Michal Kus [mailto:kus(zv)tangosw(tec)cz]
> Sent: Monday, September 18, 2000 8:30 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Instalace programu ve Win2000
>
>
> Ahoj,
> zaregistroval nekdo taky strasne dlouhou instalaci programu.
> Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
> Nevite co to ma znamenat?
> Mam anglicke W2000 + SP1, Celeron 500, 128 MB RAM
>
> Michal Kus
> Instalace programu ve Win2000
[*] Jiri Kral <admin(zv)printo(tec)cz> - 18.9.2000 10:31:07
uz se to tu probiralo, a jestli se nepletu tak s vysledkem = nil
dela to nejen D5 ale i jine apps (Pshop 5 CZ a dalsi). Tezko rict if to je
treba nejakym bugem ve spolupraci w2k a nektere verze installshieldu. hledal
jsem na netu, ale podobny problem jsem nenalezl.
zkoumal jsem to task listem, a ten instalak se vzdy po par vterinach beze
slova ukoncil.
Navic to ale pravidlo. ( neco+w2k), na PC v praci nam d5 na w2k neslo, doma
ano. je to na slaktrefeni.
Jura
Detekce URL v prohlizeci
[*] Milan ��ek - 18.9.2000 10:40:53
ahoj, mam tu jeden pro me zivotnedulezity problem/dotaz:
situace: potreboval bych nejakym zpusobem zjistovat, jaka stranka byla
aktualne nactena do prohlizece (IE nebo Netscape), Treba jako to dela
SpediaBar. Dalo by se to udelat pres IE-combobox s URL, sledovat on change.
Ale to neni to prave. Existuje urcite nejaky jiny zpusob - placnu treba
URLcache nebo tak neco.
Soucasne by mne zajimal i opacny zpusob: tzn. jak docilit toho, aby to
vypadalo tak, ze jsem prave zmenil URL v prohlizeci, aniz bych vubec spustil
explorer... (zapis treba do ty cache)
Za vsechny mozne i nemozne namety/napady vam vsem predem dekuju. PS: pokud
by to bylo neco slozitejsiho (treba fce z wininet), tak pokud by to bylo
mozny, prikladek by byl super. Fakt Dik
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Instalace programu ve Win2000
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.9.2000 10:44:12
On 18 Sep 2000, at 8:29, Michal Kus wrote:
> zaregistroval nekdo taky strasne dlouhou instalaci programu.
> Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
> Nevite co to ma znamenat? Mam anglicke W2000 + SP1, Celeron 500, 128
> MB RAM
Mozna problem s Celeronem? Mam totez ale s Intelem P III, ted
jsem instaloval nove D5 na W2000+ SP1 a bez problemu.
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
Rychlost komponent IBX
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 18.9.2000 10:44:32
> Zjistoval jsem, jak se chovaji IBX komponenty a zatim jsem prisel na
> toto:
>
> IBTable: dela 2 systemove dotazy, vlastni dotaz na tabulku
> posila
> s filtrem jako WHERE podminkou a IndexFieldNames
> prelozi
> jako ORDER BY.
>
> IBQuery,
> IBDataset: jsou na tom stejne, udelaji jeden systemovy dotaz a
> potom zadany.
>
> IBSQL: nelze jej pouzivat s DB... komponentami, je pouze
> unidirectional,
> zato je velice rychly. Pouziti je predevsim na ne
> SELECT
> dotazy.
>
> Prvni tri komponenty se chovaji docela inteligentne, tzn. nejvice
> prace dela server, fetchuji jen to co potrebuji a co nacetly si
> pamatuji. Zrejme Last a RecordCount musi nacist celou odpoved. IBTable
> je o malinko pomalejsi, zda se, ze jen o ten jeden dotaz navic na
> zacatku a ma o malinko vetsi spotrebu pameti.
>...
> jine, nez jsem vzhledem k povesti IBTable v konferenci ocekaval. Nebo
> jsem se nekde seknul?
>
Docela zajimavy vyzkum :) Ja jsem tedy nezkoumal, co je v pozadi
tech komponent, ale zjistil jsem, ze:
1) IBTable v mych jednoduchych testech vysla pomerne znatelne
pomaleji nez napr. IBDataset.
2) Pri cinnosti, kterou delam pomerne casto, tj. v cyklu projit radek
po radku, pomoci FieldByName neco precist, byl IBDataset
rychlejsi nez IBTable, presto ale celkem o dost pomalejsi nez BDE
+ nativni link.
3) Z hlediska rychlosti bych radeji sahnul po IBObjects, i kdyz je
treba je koupit. Jsou sice mirne pomalejsi nez BDE, ale ne o moc.
Jsou ale placene.
4) Na IBTable - a jakoukoli Table obecne, pokud si pamatuji, se
nadava hlavne proto, ze potira filosofii SQL serveru na ukor jakesi
snadnosti, popr. zvyku. K tomu uz toho bylo napsano dost.
David
OpenDialog
[*] Milan Vorisek <vorisek(zv)igtt(tec)cz> - 18.9.2000 11:12:27
----- Original Message -----
From: <olej.jozef(zv)slsp.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 14, 2000 7:06 PM
Subject: OpenDialog
> Ahoj,
> Neviete mi niekto poradit ako v D3 mozem cez OpenDialog zobrazovat
> - len subory /nezobrazovat adresare/
> - utriedit subory podla datumu vytvorenia zostupne. /tj najnovsi
> subor hore/ pripadne podla mena tiez zostupne.
> Dakujem
> Jozo
Ahoj,
nasledovne lze mazat ve vypisu:
procedure TForm2.OpenDialog1FolderChange(Sender: TObject);
var h:THandle;
n,i:integer;
pszText:array[0..255] of char; s:string;
begin
pszText:='SHELLDLL_DefView';
h:=FindWindowEx(getparent(opendialog1.handle),0,(zv)pszText,nil);
pszText:='SysListView32';
h:=FindWindowEx(h,0,(zv)pszText,nil);
n:=ListView_GetItemCount(h);
for i:=n-1 downto 0 do begin
ListView_GetItemText(h,i,0,(zv)pszText,255);
//Otestujes jestli je to adresar, pokud ano vymazes ze seznamu:
// tady se mazou vsechny soubory zacinajici 'a','A'
if UpCase(pszText[0])='A' then ListView_DeleteItem(h,i);
end;
end;
pokud pouzijes dalsi funkce deklarovane v jednotce commctrl:
ListView_SetItemText, ListView_InsertItem,
muzes do vypisu dat cokoli v jakemkoli poradi.
Nejaky help k temto funkcim je v popisu zprav Windows
zacinajicich LVM_...
M.Vorisek
nastavovani filemode
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 18.9.2000 11:17:44
Ahoj,
no myslel jsem aby to fungovalo jako typovy soubor, aby se nemuselo
psat : s.seek (N * sizeof (Txx)); s.read(buffer) (B, * sizeof (Txx)).
Vaclav Sazima
Petr Vones wrote:
> proc potomka, TFileStream ma jako druhy parameter rezim sdileni.
>
> Petr Vones, amatersky programator
ladeni ulozenych procedur
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 18.9.2000 11:19:43
> 1/
> chci se zeptat zdal-li existuje nejaky nastroj na ladeni ulozenych
> procedur muze byt obecny, ale konkretne mi jde o IB6. nejlepe s
> moznosti krokovani a sledovani/modifikaci hodnot promnennych (neco
> jako debugger delphi aplikovatelny na stored proc :) ). udajne ma neco
> takoveho Micro$oft, nevite o tom neco (nebo necem podobnem)?
>
> 2/
> obecne, jak a v cem pisete/ladite ulozene procedury?
> ja to delam v ib konzoli...
>
_Vynikajici_ nastroj pro spravu databazi na IB6 je QuickDesk
(momentalne verze 1.7 beta, takze tam jsou nejake mouchy, ale i tak
jde asi o to nejlepsi co sem na IB6 zatim videl).
Viz. http://ems-hitech.com/quickdesk/
Petr Fischer
P.S. Ladeni ulozenych procedur tam je taky...Instalace programu ve Win2000
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 11:27:02
> > zaregistroval nekdo taky strasne dlouhou instalaci programu.
> > Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> > od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni
> instalace.
> > Nevite co to ma znamenat? Mam anglicke W2000 + SP1, Celeron 500, 128
> > MB RAM
>
> Mozna problem s Celeronem? Mam totez ale s Intelem P III, ted
> jsem instaloval nove D5 na W2000+ SP1 a bez problemu.
>
W2K mam nainstalovane od prosince 99 a zda se mi, ze to
porad horsi a horsi.
Jestlize se na novem pocitaci instaluje rychle, ale pak
se zasekaji nejake registry, databaze ci co a vysledek
je cekarna.
Jestli se pri instalaci/odinstalaci registruji vsechny mozne
zavislosti a vazby, tak by to vypada logicky.
Michal Kus
Autorun
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 18.9.2000 11:27:49
>Nazdar, neco bych od Vas potreboval. Potreboval bych spoustet
>aplikaci hned pri startu. Ale mam 3 podminky. To je1)Nesmi se
>aplikace zobrazit v kolonce po spusteni, za 2)Chci mit kontrolu u
>jakeho uzivatele se spusti(takze pro kazdej profil zvlast).3)Mohu
>si volit spustit jednou ci vzdy a kombinovat to s predchozi fci
>tj. spustit jednou pro vsechny. Spustit vzdy pro vsechny. Spustit
>vzdy pro urcitou skupinu.
Ahoj,
tak, silne pochybujem ze to pojde pomocou nastavenia REGISTRY Windows nejako
jednorazovo. Ak to nie je tak, opravte ma. Preco: kazdy profil si vytvara
svoj vlastny "user.dat" v adresari %DirWindows%\Profiles\%UserName%\..
Individualny kluc "HKEY_CURRENT_USER" v REGISTRY Z toho vylyva, ze ked
pocitac nabootojes s novym este neexistujucim profilom, nemas sancu v tomto
neexistujucom subore "user.dat" nieco vobec nastavovat, trebars spustanie
programov pomocou v kluci "Run" ci sa ma, alebo nema Tvoj program vobec
spustit pri starte. Tyka sa to ale len W9x. Ja by som Ti navrhol toto: Pri
spusteni Tvojho programu,nech je kludne spustany vo vsetkych profiloch v
sekcii "Run", nech zisti ale meno prihlaseneho uzivatela, mas na to API fciu
"GetUserName", priklady pouzitia najdes a archive. Nech program porovna
prihlasene meno zo zoznamom uzivatelov ulozenych bud na tom istom kompe
trebars niekde v REGISTRY Windows, alebo este lepsie niekde v namapovanom
subore spristupnenom trebars na serveri a mas to tak ako si chcel. Ked nie
je v zozname, zavrie sa a hotovo... Len si budes upravovat aktualny zoznam
prihlasenych, alebo skupin komu sa ma alebo nema Tvoj program spustit.
Jano
dsgnintf
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 11:29:14
Behalf Of Petr Vones
> From: "L. ZITA" <konference(zv)sales(tec)cz>
> > Mne pomohlo pridat do library path cestu $(DELPHI)\Source\toolsapi
>
> Ahoj,
>
> Coz je jen odkladani problemu misto jeho reseni. Toto ti funguje jen diky
> tomu, ze design time unity jsou (z historickych duvodu) stale linkovany
> v runtime VCL baliccich. Kdyz se objevilo Delphi 5 (a diky mnoha chybnym
> komponentam se objevil i tento problem) tak Borland doporucoval vsechny
> tyto chyby opravit, protoze v dalsich verzich Delphi jiz pravdepodobne
> nebude tento kod v rutime baliccich a tutiz tato 'oprava' nebude mozna.
> Staci tedy rozdelit design time a runtime kod do samostatnenych unitu,
> tak jak to bylo doporucovano (ale ne vyzadovano) od Delphi 3.
>
> Petr Vones, amatersky programator
Ahoj.
Ja se na to divam z pohledu uzivatele komponenty. Napriklad
mam koupene Sestavy Sinea bez zdrojovych kodu a tim padem
tento problem nemohu resit jinak nez vyse uvedenym zpusobem a
doufat, ze ve verzi pro D6 to opravi autori komponent.
Nebo jsem dobre nepochopil problem ?
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
Indikace lokalniho menu (POPUPMENU)
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 11:40:30
Ahoj.
Podle mne to je z praktickeho hlediska nesmysl.
Pokud se tak budou chovat vsechny aplikace a prvky, pak pri pohybu
mysi po obrazovce bude cursor blikat jak stroboskop.
A co napriklad na polich pro vkladani textu (mam na mysli edit,memo,
richedit)
Tam je vzdy alespon zakladni popupmenu clipboardu, co chces dat tam ?
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
IP ADRESA Z NAZVU POCITACE
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 18.9.2000 11:45:41
>Ahoj,
>poradte mi prosim jak zistim IP adresu okolniho pocitace zapojeneho v siti
>podle jeho jmena? Vlastni adresu ziskat umim, ale nevim jak na okolni
pocitace.
Ahoj,
uses
Windows, SysUtils, Winsock, ShlObj, ActiveX;
// niektore unita k tomu nie je potrebna, ale radsej som ich nakopcil
vsetky...
function GetIPAddress(const MachineName: String): String;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Host: String;
SockAddr: TSockAddrIn;
begin
Result := EmptyStr;
if WSAStartup(MakeWord(1, 1), WSAData) = 0 then
try
Host := MachineName;
if Host = EmptyStr then
begin
SetLength(Host, MAX_PATH);
GetHostName(PChar(Host), MAX_PATH);
end;
HostEnt := GetHostByName(PChar(Host));
if Assigned(HostEnt) then
begin
SockAddr.sin_addr.S_addr := LongInt(PLongint(HostEnt^.h_addr_list^)^);
Result := inet_ntoa(SockAddr.sin_addr);
end;
finally
WSACleanup;
end;
end;
Jano
Instalace IB 6 na Win 95
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 18.9.2000 11:51:14
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Zkousel jste nekdo instalovat IB 6 na Win 95 ?
Jde vam to ?
Ja s tim mam problemy, po instalaci se vubec nepripojim k databazi. Na win98 nebo 2000 je to OK.
diky za kazdy poznatek
Pavel Bares
Instalace programu ve Win2000
[*] Lauko tefan <lauko(zv)salamon.sk> - 18.9.2000 12:39:20
Ahoj,
mal som tento problem aj ja. Ja som ale necakal pol hodinu ale po niekolkych
minutach som to odstrelil (ctrl - alt - del). Bolo to na P166 W2000 eng.
Stalo sa to hned po nainstalovani systemu (cisty W2000). Kolaboroval som s
tym asi 3 hod. ale pomohlo len znovu nainstalovat W2000.
Lauko.
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 18, 2000 10:44 AM
Subject: Re: Instalace programu ve Win2000
> On 18 Sep 2000, at 8:29, Michal Kus wrote:
>
> > zaregistroval nekdo taky strasne dlouhou instalaci programu.
> > Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> > od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
> > Nevite co to ma znamenat? Mam anglicke W2000 + SP1, Celeron 500, 128
> > MB RAM
>
> Mozna problem s Celeronem? Mam totez ale s Intelem P III, ted
> jsem instaloval nove D5 na W2000+ SP1 a bez problemu.
>
> 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
>Indikace lokalniho menu (POPUPMENU)
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 18.9.2000 12:41:01
No, asi nerozumim. V komponentu je indikace udelana periodickou zmenou
kurzoru treba napr. po 5 sekundach tak, aby puvodni kurzor zustal ve svem
vyznamu (a aby to neblikalo). Jak ale rikam, neni to moc spolehlive a je to
poveseno na timeru.
A co se tyka zakladnich popup v editech, tam to lze snad vzdycky zakryt a
nahradit svym rozsirenym ekvivalentem. Nebo ne?
Jaro B.> -----P�vodn� zpr�va-----
> Od: L. ZITA [SMTP:konference(zv)sales(tec)cz]
> Odesl�no: 18. IX 2000 11:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Indikace lokalniho menu (POPUPMENU)
>
> Ahoj.
>
> Podle mne to je z praktickeho hlediska nesmysl.
> Pokud se tak budou chovat vsechny aplikace a prvky, pak pri pohybu
> mysi po obrazovce bude cursor blikat jak stroboskop.
>
> A co napriklad na polich pro vkladani textu (mam na mysli edit,memo,
> richedit)
> Tam je vzdy alespon zakladni popupmenu clipboardu, co chces dat tam ?
>
> 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
Tisk QuickReportem z Accessu p�es BDE
[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 18.9.2000 12:46:10
Ahoj,
tisknu v D4 z Access databaze pripojene pres nativni ovladac BDE
IDDA3532.DLL pomoci QuickReportu verze 3.05. P�i zobrazeni sestavy pomoc�
metody PreviewModal dojde k nasledujici chybe:
Vyjimka EAccessViolation v module DAO350.DLL na 0000CE13.
Poruseni pristupu na adrese 06B3CE13 v modulu 'DAO350.DLL'. Cteni adersy
FFFFFFFF.
Pri zobrazeni sestavy pomoci metody Preview je vse v poradku.
Metoda PreviewModal funguje dobre napriklad nad databazi paradoxu pripojene
pres BDE.
Potrebuji poradit lze-li nad databazi Access pripojenou pres BDE pouzit
metodu QuickRepotu PreviewModal a lze-li pak co delam spatne.
Za kazdou radu dekuji.
Petr Kejval
---
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
dsgnintf
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 18.9.2000 12:55:57
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Ja se na to divam z pohledu uzivatele komponenty. Napriklad
> mam koupene Sestavy Sinea bez zdrojovych kodu a tim padem
> tento problem nemohu resit jinak nez vyse uvedenym zpusobem a
> doufat, ze ve verzi pro D6 to opravi autori komponent.
Vsichni uzivatele Sinea maji zdrojovy text registracniho
unitu SestReg.pas i hlavnihu unitu komponenty Sestavy.pas.
Takze vyse uvedene tvrzeni neni opodstatnene.
Nekdy od verze X.39r je v Sinei jiz dusledne oddeleny
runtime a designtime kod.
Vaclav Krmela
Udalost pri maximalizaci
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 18.9.2000 13:23:40
Mam dotaz asi hloupy, lec trapi mne:-)
Potrebuji pri prechodu aplikace z minimalizovane formy do normalu vyvolat
nejakou udalost.
Nasel jsem event TApplication.OnRestore ale zda se ze jsem uplne vedle, nebo
ji neumim pouzivat. Nic se totiz nevola. Za kazdou radu predem mnohokrat
dekuji:-)
J. Vojt.BDE a restart
[*] lnovy(zv)unicos(tec)cz - 18.9.2000 13:33:50
Zdravim,
mam nasledujici problem. Zkousim nejaky program pracujici s BDE a
Pradoxovou tabulkou. Spustim program, do tabulky ulozim zaznamy a vypnu
program (pri vynuti poustim table1.close)
Pri dalsim spusteni programu tam data drive ulozena jsou, avsak kdyz
restartuji pocitac tak ztratim vsechna ulozena data. Cim to je ?
Diky za radu.
Lubo� Nov�
Uvol�ov�n� polo�ky Data v TreeView
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.9.2000 13:37:17
Ahoj,
nev�te n�kdo o rychl�m zp�sobu, jak uvolnit v TTreeView u ka�d� polo�ky
prom�nnou Data?
Kdy� proj�d�m cel� strom o 900 polo�k�ch, tak je to ne�nosn� pomal�.
Existuje v Delphi n�co jako garbage collection, tj. �e bych norm�ln�
vy�istil strom, ani� bych se o ty Data staral, a t�m, �e se zru�� odkaz na
tu pam�, tak se Delphi (nebo Win) postaraj� o automatick� vy�i�t�n� pam�ti,
kter� nen� k ni�emu odk�zan� ?
Petr
Instalace programu ve Win2000
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 18.9.2000 13:56:02
Zkus se podivat do task manageru a odstrelit proces _isdel - ten to vetsinou
dela.
Milan Tomes
> Nemel jsem tenhle problem mam W2000 Cz Intel Pentium III E
> 633MHz 128MB RAM
> byt tebou proverim system a disk.
> J. Vojt.
> Ahoj,
> zaregistroval nekdo taky strasne dlouhou instalaci programu.
> Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni instalace.
> Nevite co to ma znamenat?
> Mam anglicke W2000 + SP1, Celeron 500, 128 MB RAM
>
> Michal Kus
Instalace programu ve Win2000
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 18.9.2000 14:18:28
> > > zaregistroval nekdo taky strasne dlouhou instalaci programu.
> > > Napr. ted se snazim instalovat D5 a uz cekam pul hodiny
> > > od zmizeni uvodni listy Instal Shieldu nez naskoci vlastni
> > instalace.
> > > Nevite co to ma znamenat? Mam anglicke W2000 + SP1, Celeron 500, 128
> > > MB RAM
> >
> > Mozna problem s Celeronem? Mam totez ale s Intelem P III, ted
> > jsem instaloval nove D5 na W2000+ SP1 a bez problemu.
> >
>
> W2K mam nainstalovane od prosince 99 a zda se mi, ze to
> porad horsi a horsi.
Od prosince ? Tak to asi nebude ostra verze. :-)))
Radim
>
> Jestlize se na novem pocitaci instaluje rychle, ale pak
> se zasekaji nejake registry, databaze ci co a vysledek
> je cekarna.
> Jestli se pri instalaci/odinstalaci registruji vsechny mozne
> zavislosti a vazby, tak by to vypada logicky.
>
> Michal Kus
>
> Com Port & RTS_CONTROL_TOGGLE & DCB
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 18.9.2000 14:38:16
Ahoj,
pri programovani serioveho portu se mi zalibilo
nastaveni RTS_CONTROL_TOGGLE, ktere zpusobi sledovani vysilanych dat
signalem RTS. Jenze jsem zjistil, ze polozka fRtsControl (dle Helpu)
ve
strukture TDCB vubec neni a zaroven ze se TDCB z windows.pas a DCB z
helpu zasadne lisi (dokonce i velikosti). Pritom funkce GetCommState
mi
vraci velikost 28, coz odpovida TDCB z Windows.pas. Muze mi to nekdo
vysvetlit a zaroven poradit, jak pouzit RTS_CONTROL_TOGGLE?
Dekuji
Vaclav Sazima
Instalace IB 6 na Win 95
[*] Ren� Otisk - 18.9.2000 14:55:14
Hi,
D3, Win95, MS SQL7, IB6
Mno, bez problemku... Teda az na to, ze jsem musel rucne smazat nejaky soubor tusim (user.gdb) z instalace predchozi instalace IB 4.2. Nicmene je to popsane v manualu
Sroub
----- Original Message -----
From: Pavel Bare�
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, September 18, 2000 11:51 AM
Subject: Instalace IB 6 na Win 95
Zkousel jste nekdo instalovat IB 6 na Win 95 ?
Jde vam to ?
Ja s tim mam problemy, po instalaci se vubec nepripojim k databazi. Na win98 nebo 2000 je to OK.
diky za kazdy poznatek
Pavel Bares
Indikace lokalniho menu (POPUPMENU)
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 18.9.2000 14:58:26
Zdravim,
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 18, 2000 12:41 PM
Subject: RE: Indikace lokalniho menu (POPUPMENU)> No, asi nerozumim. V komponentu je indikace udelana periodickou zmenou
> kurzoru treba napr. po 5 sekundach tak, aby puvodni kurzor zustal ve svem
> vyznamu (a aby to neblikalo). Jak ale rikam, neni to moc spolehlive a je
to
> poveseno na timeru.
> A co se tyka zakladnich popup v editech, tam to lze snad vzdycky zakryt a
> nahradit svym rozsirenym ekvivalentem. Nebo ne?
>
> Jaro B.
Ja si vzdycky myslel, ze kurzor se nastavuje v obsluze zpravy WM_SETCURSOR,
tim se zabrani i tomu blikani.
Tomas
t.bradle(zv)pvtnet(tec)cz
Udalost pri maximalizaci
[*] Ren� Otisk - 18.9.2000 14:58:44
Hi,
Co takhle OnResize a testovat posledni state wsMaximize, wsMoznaNormal (pisu
ty stavy z hlavy, ktera neni v soucasnosti v dobrem stavu, takze kdyz tak se
omlouvam)
Sroub
> Mam dotaz asi hloupy, lec trapi mne:-)
> Potrebuji pri prechodu aplikace z minimalizovane formy do normalu vyvolat
> nejakou udalost.
> Nasel jsem event TApplication.OnRestore ale zda se ze jsem uplne vedle,
nebo
> ji neumim pouzivat. Nic se totiz nevola. Za kazdou radu predem mnohokrat
> dekuji:-)
> J. Vojt.BDE a restart
[*] Ren� Otisk - 18.9.2000 15:00:51
Hi,
Jak tam vkladas zaznamy? Mas CachedUpdates na TRue? Davas pote ApplyUpdates?
Zkus popsat co presne delas...
Sroub
Zdravim,
mam nasledujici problem. Zkousim nejaky program pracujici s BDE a
Pradoxovou tabulkou. Spustim program, do tabulky ulozim zaznamy a vypnu
program (pri vynuti poustim table1.close)
Pri dalsim spusteni programu tam data drive ulozena jsou, avsak kdyz
restartuji pocitac tak ztratim vsechna ulozena data. Cim to je ?
Diky za radu.
Lubo� Nov�
Uvol�ov�n� polo�ky Data v TreeView
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 18.9.2000 15:05:15
Zdravim,
----- Original Message -----
From: Da�a Petr <Petr.Dana(zv)pvt(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 18, 2000 1:37 PM
Subject: Uvol�ov�n� polo�ky Data v TreeView
> Ahoj,
> nev�te n�kdo o rychl�m zp�sobu, jak uvolnit v TTreeView u ka�d� polo�ky
> prom�nnou Data?
> Kdy� proj�d�m cel� strom o 900 polo�k�ch, tak je to ne�nosn� pomal�.
> Existuje v Delphi n�co jako garbage collection, tj. �e bych norm�ln�
> vy�istil strom, ani� bych se o ty Data staral, a t�m, �e se zru�� odkaz na
> tu pam�, tak se Delphi (nebo Win) postaraj� o automatick� vy�i�t�n�
pam�ti,
> kter� nen� k ni�emu odk�zan� ?
>
> Petr
Ja jsem si takovou collection udelal sam, vsechny "Data" polozky jsem
umistoval do TList objetu, a po zruseni stromu jsem uvolnil "data"
nasledovne:
while List.count > 0 do
List.delete(0);
Tomas
t.bradle(zv)pvtnet(tec)cz
Save Form to dfm file (in run time)
[*] tungli(zv)datapac.sk - 18.9.2000 15:14:16
Ako je mozne ulozit Formular do DFM suboru za behu programu
a potom spet natiahnut formular z DFM suboru?
Pametam ze to bolo docela jednoduche ale terz neviem na to spomenut.
Dakujem.
tungli(zv)datapac.sk
Uvol�ov�n� polo�ky Data v TreeVie
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.9.2000 15:17:52
> Ja jsem si takovou collection udelal sam, vsechny "Data" polozky jsem
> umistoval do TList objetu, a po zruseni stromu jsem uvolnil "data"
> nasledovne:
>
> while List.count > 0 do
> List.delete(0);
>
No jo, ale to neuvolnite pamet na kterou se odkazuji jednotlive polozky...
Nebo ano?
Petr
login a logout k Novellu z WinNT
[*] Jiri Kral <admin(zv)printo(tec)cz> - 18.9.2000 15:23:35
Vazeni kolegove, vedel by nekdo z Vas jakymi metodami se z aplikace:
- nalogovat k Novellu (4.11), pokud mozno se std. klientem co je v NT
( tady to bude konat udrzbu, zalohu atd. )
- a provedu logout
jsou takove funkce ve WinAPI32?
jsem na tesno s licencema, a tak chci aby na NT serveru bezicim nonstop moje
app. v noci provedla par zalohovacich/udrzebnich ukonu a pritom aby pres den
neblokovala licenci
diky
Jirka, D5, NT SBS 4.5, Novell 4.11
Uvol�ov�n� polo�ky Data v TreeVie
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 18.9.2000 15:33:35
> Ja jsem si takovou collection udelal sam, vsechny "Data" polozky jsem
> umistoval do TList objetu, a po zruseni stromu jsem uvolnil "data"
> nasledovne:
>
> while List.count > 0 do
> List.delete(0);
>
Uz sem to vyresil, dik. Ja to puvodne mel tak, ze sem nejdriv smazat
uvolnoval v cyklu Data, a pak jsem dal tree.Items.Clear
Ted uz to je rychly.
while tree.Items.Count > 0 do
begin
if tree.Items[0].Data <> nil then
Dispose(tree.Items[0].Data);
tree.Items[0].Delete;
end;
Petr
Chybny DataModul ve zdrojich
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 15:40:56
Ahoj,
podarilo se mi nejak podelat DataForm v navrhovem rezimu, a ted se k nemu
nemuzu dostat.
Stalo se to takhle:
Neco jsem pridal, Delphi si zanadavaly ze zdroj byl prelozen s jinou verzi
nejake
knihovny a pak byl klid. Normalne jsem pracoval, vse ulozil a sel domu.
Kdyz jsem se druhy den snazil nacist projekt, delphi mi suse oznamily ze
je nastala chyba pri vytvareni formulare a nazdar. Ted muzu editovat
jen PAS, ale k vizualnimu navrhu formu se nemuzu dostat. Coz je
u DataModulu je docela na zavadu. Odinstaloval jsem vsechny
knihovny i delpi, vse nainstaloval a prelozil ve spravnem poradi
a porad nic.
Nevite nekdo co s takovou radosti?
Diky za pomoc
Michal
Redistribuce BDE chyba $3E06
[*] azeleny(zv)csas(tec)cz - 18.9.2000 16:02:34
DDV,
mamproblem s redistribuci BDE:
D4 proffesional
BDE tusim ver. 5
Popsi projektu IWZ nebo ja se ty installshield projekty jmenuji.
Projek je jenom pro redistribuci BDE (puvodne to byo i s programem, ale
nemelo to zadny vliv a ja jsem to chtel mit jak samostatny balik).
Vybrane komponenty:
- BDE
- BDE Control Panel File
- Database component packages (je to potreba, kdyz program neni linkovan s
balicky - treba pro BDE admin...? nema vliv na problem at je ci neni
vybrano)
- Standard VCL packages (nema vliv na problem at je ci neni vybrano)
BDE settings:
- Partial BDE installation
BDE files:
- Paradox
- dBase
- ASCII
- ODBC (tohle jedine opravdu potrebuji)
- save .CFG file for Both 16- and 32-biot applications
Jinak se v projektu nic nedela.
Dotazy:
Muze byt cilovy adresar projektu nastaven stejne, jako je cilove nastaveni
BDE (tedy zkusil jsem oboji a na dany problem to nemelo vliv)?
Cely zadrhel je v tom, ze po dokonceni instalace se nerozebehne ani BDE
admin s chybou "$3E06 Can't initialize Borland Database Engine".
Nevite nekdo proc se to deje?
Co je treba udelat, aby redistribuce BDE chodila? (Nechci davat full BDE,
protoze s D4Prof se instaluje i vyvojova verze SQL linku, kterou jednak
nepotrebuji a druhak nemam pravo sirit).
Diky za rady napady, vzorove IWZ projekty.
Diky, uz mne to moc trapi a testovani s ustavicnym reinstaovanim pocitace je
VELMI unavne a zdlouhave.
a.Sifrovanie textu
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 18.9.2000 16:07:53
> Ale pozor, jedno male nebezpeci: Pokud budes timto zpusobem sifrovat
> znaky s prilis velkym ordinalnim cislem resp. v klici pouzijes znaky s
> prilis velkym ordinalnim cislem, muze jako vysledek sifrovani nejakeho
> znaku vyjit chr(0), ktery znehodnoti cely zbytek retezce. Takze je
> lepsi namisto string pouzit array of char.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> program�tor
To plati pro PChar a zobrazovani. Kdyz se pouzije string, tak tam
muze byt znaku #0 kolik chce. Typ "String" zadny znak z ASCII tabulky
neznehodnocuje (ma ulozenou delku na zacatku), to plati pouze pro
PChar, pro ktery znak #0 znamena konec retezce.
Napr:
retezec s := 'A'#0#0#0'B'
fce Length(s) vrati korektne 5
hodnota s[1] je 'A'
hodnota s[5] je 'B'
hodnota s[2] je #0
Samozrejme kdyz se da ShowMessage(s) tak se zobrazi pouze "A", ale
kdo by zobrazoval zasifrovany retezce? Pro praci (sifrovani, ukladani
kamsi, cteni) je vse OK.
Petr Fischer
P.S. Nebo sem se nekde sek?
>
> -----Original Message-----
> From: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
> Sent: Saturday, September 16, 2000 5:22 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Sifrovanie textu
>
> > Proteboval by som jednoducjy siftrovac na String, ale kde ho zohnat
> > ?
> >
>
> Treba jednoduse takhle:
>
> const
> DefaultKey = 'ashvhjavj';
>
> // c - True -> ENCRYPT, False -> DECRYPT
> function Crypt(t, h: string; c: boolean):string;
>
> implementation
>
> function Crypt(t, h: string; c: boolean):string;
> var
> i,j: integer;
> begin
> for i := 1 to length(h) do
> for j := 1 to length(t) do
> if c then
> t[j] := Chr(Ord(t[j]) + Ord(h[i])) else
> t[j] := Chr(Ord(t[j]) - Ord(h[i]));
> result := t;
> end;
>
> pouziti:
> zasifrovani
> <zasifrovany_retezec> := Crypt(<nejaky_retezec>, DefaultKey, True);
> rozsifrovani
> <rozsifrovany_retezec> := Crypt(<zasifrovany_retezec>, DefaultKey,
> False);
>
> Misto "DefaultKey" muzes pouzit cokoliv jineho...
>
> Petr Fischer
Instalace programu ve Win2000
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.9.2000 16:35:10
> Od prosince ? Tak to asi nebude ostra verze. :-)))
>
Ale je. Z bety bylo mozne elegantne prejit na ostrou.
Michal
dsgnintf
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.9.2000 17:01:24
> Coz je jen odkladani problemu misto jeho reseni. Toto ti funguje jen diky
> tomu, ze design time unity jsou (z historickych duvodu) stale linkovany
> v runtime VCL baliccich. Kdyz se objevilo Delphi 5 (a diky mnoha chybnym
> komponentam se objevil i tento problem) tak Borland doporucoval vsechny
Povedal by som, ze hlavna chyba je v Delphi balickoch, ze nie su poriadne
domyslene. Napr. preco by v jednom balicku (myslim tym dpk subor balicka)
nemohlo byt specifikovane, ktore unity su potrebne pre run-time a ktore
pre design-time namiesto dvoch roznych balickov (resp. idealne by bolo, keby
to Delphi detekovalo samo)? Nehovoriac o instalacii balickov, ktora je
tiez katastrofalne urobena, staci si stiahnut x-roznych komponentov
a vsimnut si, ze skoro kazdy sa instaluje inak. Ja uz ale dufam, ze Borland
toto nebude dalej "vylepsovat" ale prejde co najskor na daleko kvalitnejsiu
.NET technologiu.
Erik Salaj, WINSOFT
Save Form to dfm file (in run time)
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 18.9.2000 17:07:03
Je to v helpu Delphi:
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;
function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
----- Original Message -----
From: <tungli(zv)datapac.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 18, 2000 3:14 PM
Subject: Save Form to dfm file (in run time)> Ako je mozne ulozit Formular do DFM suboru za behu programu
> a potom spet natiahnut formular z DFM suboru?
>
> Pametam ze to bolo docela jednoduche ale terz neviem na to spomenut.
> Dakujem.
> tungli(zv)datapac.sk
DAO a heslo
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.9.2000 17:38:27
potrebujem na zaciatku programu okno na zadanie uzivatela a hesla. Chcem to pre komponenty DAO od E.Salaye.
Ak som skusal komponty ADOexpress tak sa ma pyta na heslo automaticky. Da sa to nejak zariadit aj pri komponentach DAO ?
V DAODatabase.OnLogin evente zobraz formular na zadanie uzivatela a hesla
(malo by byt mozne pouzit aj ten standardny z Delphi) a vysledne meno
a heslo nastav do DAODatabase.UserName a DAODatabase.Password.
Erik Salaj, WINSOFT
Skusenosti s CPORT (Was:Seriovy port)
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.9.2000 17:41:40
> Z touto komponentou nemam ani ja ani moji kolegove moc dobre zkusenosti.
Pri
> prenosech doch�zi k chybam, nebo vubec nedojde k prenosu (zvlaste pokud
jede
> o komunikaci z nejakym hardwarem). Domnivame se ze to je zapricinene
WinAPI.
> Tyto komunikace je dle meho mineni lepsi delat v D1.
Mozte skusit nas ComPort z http://www.cybermagic.co.nz/winsoft/comport.htm,
nemame s nim ziadne problemy.
Erik Salaj, WINSOFT
Com Port & RTS_CONTROL_TOGGLE & DCB
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.9.2000 17:46:40
> nastaveni RTS_CONTROL_TOGGLE, ktere zpusobi sledovani vysilanych dat
> signalem RTS. Jenze jsem zjistil, ze polozka fRtsControl (dle Helpu)
> ve
> strukture TDCB vubec neni a zaroven ze se TDCB z windows.pas a DCB z
> helpu zasadne lisi (dokonce i velikosti). Pritom funkce GetCommState
> mi
> vraci velikost 28, coz odpovida TDCB z Windows.pas. Muze mi to nekdo
> vysvetlit a zaroven poradit, jak pouzit RTS_CONTROL_TOGGLE?
RTS_CONTROL_TOGGLE je definovany vo Windows.pas a zapisuje
sa do DCB.Flags polozky (2bity).
Erik Salaj, WINSOFT
Dalsi vyskakujici okno D5
[*] Petr Zednik <Zednik(zv)prospeks-it(tec)cz> - 18.9.2000 17:50:00
Ja mam zkusenosti s chybou WIN95, WIN95 OSR2, WIN98, WIN98SE,
kde se za urcitych okolnosti (jednou za cas) jakoby softwarove zablokuje
klavesa Ctrl nebo Alt nebo Shift.
Zjistil jsem, ze se to da odblokovat kratkym soucasnym stiskem klaves Ctrl+Alt+Shift.
Petr Zednik
grafika, DXTransform
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.9.2000 18:04:03
Ahoj,
existuje nejaky unit/knihovna/balicek/komponenta /radeji ne/, ktery by mi
umoznil pouzit DXTransform? Omlouvam se predem za otazku, kterou ted polozim,
ale: ma vubec cenu zacinat psat DX aplikaci v Delphach, nebo mam radeji pouzit
nejaky MS-Friendly jazyk? Mam rozdelanou neDX-apl. a ted za jinych okolnosti se
chystam ji prepsat, abych co nejvice vyuzival moznosti DX, ale nikde zadna DX
unita, jedine DelphiX, ale ty nepodporuji DShow a DTransform, nebo se pletu?
Take schanim nejake informace o efektech, ktere jsou v DXTrans. k videni, pouze
2D a dale blending a antialiasing, pokud nekdo vi o nejakem odkazu/literature
/jen ne prosim Zaklady PG :-)//sources /c,vb,pas/ , budu mu velice vdecny.
Diky,
preji vsem prijemny den.
Roman
btw. Delphi4
[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.mys&click
[*] Petr Zednik <Zednik(zv)prospeks-it(tec)cz> - 18.9.2000 18:04:34
procedure TForm1.Timer1Timer(Sender: TObject);
var Point : TPoint;
begin
GetCursorPos(Point);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,
Point.x, Point.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,
Point.x, Point.y, 0, 0);
end;
S pozdravem Petr Zednik
*****
>>> bobak(zv)minv.sk 14.9.00 8:01 >>>
>Dobry den
>
>potreboval by som poradit, ako programovo kliknut mysou ?
Sifrovanie textu
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 18.9.2000 19:47:14
Aha, mas vlastne pravdu, jeste ziju v C++ ...
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: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
Sent: Monday, September 18, 2000 4:08 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Sifrovanie textu
> Ale pozor, jedno male nebezpeci: Pokud budes timto zpusobem sifrovat
> znaky s prilis velkym ordinalnim cislem resp. v klici pouzijes znaky s
> prilis velkym ordinalnim cislem, muze jako vysledek sifrovani nejakeho
> znaku vyjit chr(0), ktery znehodnoti cely zbytek retezce. Takze je
> lepsi namisto string pouzit array of char.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> program�tor
To plati pro PChar a zobrazovani. Kdyz se pouzije string, tak tam
muze byt znaku #0 kolik chce. Typ "String" zadny znak z ASCII tabulky
neznehodnocuje (ma ulozenou delku na zacatku), to plati pouze pro
PChar, pro ktery znak #0 znamena konec retezce.
Napr:
retezec s := 'A'#0#0#0'B'
fce Length(s) vrati korektne 5
hodnota s[1] je 'A'
hodnota s[5] je 'B'
hodnota s[2] je #0
Samozrejme kdyz se da ShowMessage(s) tak se zobrazi pouze "A", ale
kdo by zobrazoval zasifrovany retezce? Pro praci (sifrovani, ukladani
kamsi, cteni) je vse OK.
Petr Fischer
P.S. Nebo sem se nekde sek?
>
> -----Original Message-----
> From: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
> Sent: Saturday, September 16, 2000 5:22 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Sifrovanie textu
>
> > Proteboval by som jednoducjy siftrovac na String, ale kde ho zohnat
> > ?
> >
>
> Treba jednoduse takhle:
>
> const
> DefaultKey = 'ashvhjavj';
>
> // c - True -> ENCRYPT, False -> DECRYPT
> function Crypt(t, h: string; c: boolean):string;
>
> implementation
>
> function Crypt(t, h: string; c: boolean):string;
> var
> i,j: integer;
> begin
> for i := 1 to length(h) do
> for j := 1 to length(t) do
> if c then
> t[j] := Chr(Ord(t[j]) + Ord(h[i])) else
> t[j] := Chr(Ord(t[j]) - Ord(h[i]));
> result := t;
> end;
>
> pouziti:
> zasifrovani
> <zasifrovany_retezec> := Crypt(<nejaky_retezec>, DefaultKey, True);
> rozsifrovani
> <rozsifrovany_retezec> := Crypt(<zasifrovany_retezec>, DefaultKey,
> False);
>
> Misto "DefaultKey" muzes pouzit cokoliv jineho...
>
> Petr Fischer
ICQ
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 18.9.2000 20:41:27
Omlouvam se, chyba neni na vasem prijimaci... To DLLko sem uz nasel.
Vono melo mrska jenom jiny jmeno... A nebo to bylo spatne napsany v
tech
unitach...
Martin Pe�ava wrote:
>
> Dik za tip. Neco sem tam stahnul (sice jenom pro Cecko, ale byl tam i
> DOC s popisem tech funkci a pak sem dokonce jeste nekde nasel ty H fajly
> predelany do PASu). Ale mam drobnej problemek. Po spusteni ten muj
> program jeste vyzaduje ICQMSGAPI.DLL, kterej nikde na disku nemam... Kde
> by se dal najit??? Predem jeste jednou dik...
>
> Petr Vones wrote:
> >
> > From: "Martin Pe�ava" <jimx(zv)volny(tec)cz>
> > > prijimat zpravy, atd... Zkousel sem neco hledat a nasel sem jenom
> > > prepsany .H fajly do unity k ICQ DLLkum, ale bez veskery dokumentace,
> >
> > Ahoj,
> >
> > primo u vyrobce: http://www.icq.com/api/
> >
> > Petr Vones, amatersky programator
>
> --
> Martin Pe�ava
>
> /--------------------------------------------------------------\
> | http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
> | |
> | E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
> \--------------------------------------------------------------/
--
Martin Pe�ava
/--------------------------------------------------------------\
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
| |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Nastaveni papiru na tiskarne - jeste kousek
[*] Jirka Virt <virt(zv)volny(tec)cz> - 18.9.2000 20:41:42
Ahoj,
tak jsem to vyzkousel a bezvysledne.Ma se toto nastaveni projevit i v
dialogovem klasickem dialogovem okne??
Jinak jsem zkousel toto a az na to ze vsecno vraci hodnoty tak jak ma,
se nic na nataveni tiskarny nezmenilo.Muze mi to nekdo PROSIM
zrevidovat.Zkousim to na ovladaci od
obecne tiskarny - ten je snad od MS.
Diky
Jirka Virt
email: virt(zv)volny(tec)cz
procedure TForm1.Button2Click(Sender: TObject);
var
devinput,devoutput:TDeviceMode;
Fhandle,xx,bytes:cardinal;
DeviceMode:Thandle;
DevMode: PDeviceMode;
pPrinterName:Pchar;
begin
fHandle:=0;
pPrinterName := 'Obecn� nebo jen textov�';
if OpenPrinter(pPrinterName,fHandle, nil) then
begin
bytes := DocumentProperties(0,fhandle,pPrinterName,devoutput,devoutput,0);
DeviceMode := GlobalAlloc(GPTR,bytes);
DevMode := GlobalLock(DeviceMode);
xx :=
DocumentProperties(0,fhandle,pPrinterName,devmode^,devinput,DM_OUT_BUFFER);
{DevMode := GlobalLock(DeviceMode);}
devMode^.dmFields :=devMode^.dmFields or DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
devMode^.dmPaperSize := DMPAPER_USER;
devMode^.dmPaperWidth := 900 ;
devMode^.dmPaperLength := 1000;
if DocumentProperties(0,FHandle,pPrinterName, DevMode^,DevMode^,
DM_IN_BUFFER OR DM_OUT_BUFFER) = id_ok then edit2.text := 'ddd';
GlobalUnlock(DeviceMode);
GlobalFree(DeviceMode);
ClosePrinter(fHandle);
end;{if}
end;{endproc}
----- Original Message -----
From: Jan Krizek <krizek(zv)krizkules(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 15, 2000 2:27 PM
Subject: RE: Nastaveni papiru na tiskarne
> Ahoj
>
> (******************)
> var ADevice, ADriver, APort : array[0..255] of char;
> DeviceHandle : THandle;
> DevMode : PDeviceMode;
>
> begin
> Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
>
> DevMode := GlobalLock(DeviceHandle);
> with DevMode^ do
> begin
> dmFields := dmFields or DM_PAPERLENGTH or DM_PAPERWIDTH;
> dmPaperWidth := // Sirka papiru;
> dmPaperLength := // Vyska papiru;
> end;
>
> GlobalUnlock(DeviceHandle);
> end;
> (************************)
>
> nefunguje na vsech tiskarnach (ovladacich), nektere se uspesne brani. Ale
s MS ovladace je vse v poradku.
>
> Jedna se nastaveni pro aktualni tiskarnu a je nejlepsi to udelat tesne
pred tiskem.
>
> Honza +
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jirka Virt
> Sent: Friday, September 15, 2000 1:06 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Nastaveni papiru na tiskarne
>
>
> Ahoj vsem,
> potykam se s problemem nastaveni velikosti papiru na tiskarne.
> Nevite jak nastavitve Win9x pres Delphi na tiskarne papir ,tak jako pres
klasicke dialogove okno.tj
> vybrat papir a pri vyberu Vlastni(Custom) nastavit i jeho rozmery.Sice
jsem si neco stahnul
> z www.borland.com ,ale to pri prohlizeni nastaveni tiskarny se nic
nezmeni!!????
>
> Taky jsem zkouse API AddForm a po rade neuspesnych pokusu jsem si precetl
toto Pouze pro WinNT.Ach jo.
>
Diky za napady
>
Jirka Virt
>
email: virt(zv)volny(tec)cz
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.177 / Virov� b�ze: 86 - datum vyd�n�: 7.8.2000
>
>
>ICQ
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 18.9.2000 20:54:06
Tak precijenom jeste... Uz se to dari spustit, ale nejde mi vubec nic z
toho ICQcka cist. Zkousel sem nejdriv "GetOnlineListDetails", ale to mi
vratilo FALSE, pak jsem zkusil jenom "GetVersion" a to mi vrati taky
FALSE a jako verzi mi to vrati nejaky zavratny cislo, ktery ale kdyz se
vydeli 65536, tak vyjde presne 7. Ale ten "GetOnlineListDetails", mi
vraci pocet online uzivatelu to samy, co ta verze... Takze uz fakt
nevim, co s tim. Nedelal ste s tim nahodou nekdo neco??? Please help!!!
Martin Pe�ava wrote:
>
> Omlouvam se, chyba neni na vasem prijimaci... To DLLko sem uz nasel.
> Vono melo mrska jenom jiny jmeno... A nebo to bylo spatne napsany v
> tech
> unitach...
>
> Martin Pe�ava wrote:
> >
> > Dik za tip. Neco sem tam stahnul (sice jenom pro Cecko, ale byl tam i
> > DOC s popisem tech funkci a pak sem dokonce jeste nekde nasel ty H fajly
> > predelany do PASu). Ale mam drobnej problemek. Po spusteni ten muj
> > program jeste vyzaduje ICQMSGAPI.DLL, kterej nikde na disku nemam... Kde
> > by se dal najit??? Predem jeste jednou dik...
> >
> > Petr Vones wrote:
> > >
> > > From: "Martin Pe�ava" <jimx(zv)volny(tec)cz>
> > > > prijimat zpravy, atd... Zkousel sem neco hledat a nasel sem jenom
> > > > prepsany .H fajly do unity k ICQ DLLkum, ale bez veskery dokumentace,
> > >
> > > Ahoj,
> > >
> > > primo u vyrobce: http://www.icq.com/api/
> > >
> > > Petr Vones, amatersky programator
> >
> > --
> > Martin Pe�ava
> >
> > /--------------------------------------------------------------\
> > | http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
> > | |
> > | E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
> > \--------------------------------------------------------------/
>
> --
> Martin Pe�ava
>
> /--------------------------------------------------------------\
> | http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
> | |
> | E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
> \--------------------------------------------------------------/
--
Martin Pe�ava
/--------------------------------------------------------------\
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
| |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Kulate tlacitko
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.9.2000 21:54:29
> Nedavno jsem se dozvedel jak vytvorit kulaty formular, chtel jsem
> se zeptat jestli existuje neco podobne co by vytvorilo kulate
> tlacitko? Nev�te? Umim jen vytvorit ctverec!
> viz form:
> ) Jak vytvo�it kulat� form
> var
> R : HRgn;
> begin
> form1.width := 200; // nastav� ���ku formu na 200
> form1.height := form1.width; // nastaven� �tvercov�ho formu
> R := CreateEllipticRgn(0,0,width,height); // nastav� velikost
> elipsy
> SetWindowRgn(Handle,R,True); // aplikuje elipsu na form
Pro tlacitko to udelej uplne stejne, akorat si budes muset nakreslit okraje,
jestli chces mit ty klasicke windowsi... mno, jestli chces komponentu pro
bitmapove tlacitka /radeji material k nastudovani :-)/ tak ti ji poslu.
To "handle", ktere predavas do SetWindowRgn patri aktualnimu formulari, takze
kdyz tam das "handle" na jiny
objekt, aplikujes na nej ten tvuj elipticky region.
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.
Autorun
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 22:29:00
>
> Ahoj,
>
> tak, silne pochybujem ze to pojde pomocou nastavenia REGISTRY
> Windows nejako
> jednorazovo. Ak to nie je tak, opravte ma. Preco: kazdy profil si vytvara
> svoj vlastny "user.dat" v adresari %DirWindows%\Profiles\%UserName%\..
> Individualny kluc "HKEY_CURRENT_USER" v REGISTRY Z toho vylyva, ze ked
> pocitac nabootojes s novym este neexistujucim profilom, nemas
> sancu v tomto
> neexistujucom subore "user.dat" nieco vobec nastavovat, trebars spustanie
> programov pomocou v kluci "Run" ci sa ma, alebo nema Tvoj program vobec
> spustit pri starte. Tyka sa to ale len W9x.
Zkus treba HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
S timhle profilem startuji kdyz neznaji uzivatele nebo pokud je chybne
zadane heslo
>Ja by som Ti navrhol toto: Pri
> spusteni Tvojho programu,nech je kludne spustany vo vsetkych profiloch v
> sekcii "Run", nech zisti ale meno prihlaseneho uzivatela, mas na
> to API fciu
> "GetUserName", priklady pouzitia najdes a archive. Nech program porovna
> prihlasene meno zo zoznamom uzivatelov ulozenych bud na tom istom kompe
No pokud uz existuji maji take svuj profil v registru a muze jim to napsat
rovnou tam...> trebars niekde v REGISTRY Windows, alebo este lepsie niekde v namapovanom
> subore spristupnenom trebars na serveri a mas to tak ako si chcel. Ked nie
> je v zozname, zavrie sa a hotovo... Len si budes upravovat aktualny zoznam
> prihlasenych, alebo skupin komu sa ma alebo nema Tvoj program spustit.
>
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
Indikace lokalniho menu (POPUPMENU)
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 18.9.2000 22:34:14
Zdravim,
mam takovy dojem, ze kolem tohoto tematu zabredavame trochu mimo. Uvazujme: jedinou proceduru typu event, zajistujici na
dobu stanovenou timerem zmenu kurzoru, si proste jednoduse priraradite do obsluhy onMouseMove u komponent, kde je to treba. V
pripade tohoto reseni mi ale Vase pripominky pripadaji celkem bezpredmetne (nic ve zlym):
- proc zjistovat, ktere komponente patri popup??? Vzdyt to je zcela zbytecne, programator to prirozene vi a tudiz take vi, kam
indikaci dat,
- ze by to blikalo jak stroboskop??? Jeste sem nevidel program, kde by byt jenom kazda druha komponenta mela prirazeny popup.
Navic delka trvani
indikace se stanovi nastavenim timeru, tudiz opet nevidim problem...
- co s komponentama typu edit nebo memo? Ve winech je u nich popup naprosto bezny a tudiz je indikace zbytecna (indikace je
potrebna jen u popupu, ktere jsou nestandardni a uzivateli hodne pomuzou). Pokud uzivatel nevi, ze u editu muze data kopirovat,
vkladat apod. neni to problem nas, ale jeho a panu od Macrosoftu...
Panove, toto je jednoduche reseni, jenz ani neni nutne vytvaret jako komponentu. V cem je problem??? S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
dsgnintf
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 22:51:44
Behalf Of Vaclav Krmela
> Sent: Monday, September 18, 2000 12:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: dsgnintf
>
>
> From: "L. ZITA" <konference(zv)sales(tec)cz>
>
> > Ja se na to divam z pohledu uzivatele komponenty.
> >Napriklad mam koupene Sestavy Sinea bez zdrojovych kodu a tim padem
^^^^^^^^^^^^^^^^
....
>
> Vsichni uzivatele Sinea maji zdrojovy text registracniho
> unitu SestReg.pas i hlavnihu unitu komponenty Sestavy.pas.
> Takze vyse uvedene tvrzeni neni opodstatnene.
> Nekdy od verze X.39r je v Sinei jiz dusledne oddeleny
> runtime a designtime kod.
>
> Vaclav Krmela
>
Ahoj.
Rozhodne to nemela byt kritika Sestav Sinea. Jen proste nezkousim s kazdou
novou verzi tu cestu vyhodit.
Konec koncu pokud si prectu FAQ na www.sinea(tec)cz tak se tam doctu, ze ta
cesta je potreba nastavit.
Potrebuju ji mit i nastavenou pro nektere jine starsi komponenty urcene
puvodne treba pro D3.
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
IB6: chyba pri vykonavani Alter table
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 18.9.2000 22:57:06
Zdravim.
ALTER TABLE BANVYPIS ADD XXX DECIMAL(15,2);
Tento prikaz mi vyvola:
-----------------------------------------
Dynamic SQL Error
SQL error code = -817
Metadata update statement is not allowed by the current database SQL dialect
3
ALTER TABLE BANVYPIS ADD XXX DECIMAL(15,2)
---------------------------
Ak nastavim DIALECT na 1 tak to funguje.
A preco to nefunguje s DIALECT 3 ?
Dakujem Roland.
Instalace IB 6 na Win 95
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 22:58:40
Behalf Of Pavel Bare�
> Zkousel jste nekdo instalovat IB 6 na Win 95 ?
> Jde vam to ?
> Ja s tim mam problemy, po instalaci se vubec nepripojim k databazi. Na
win98 nebo 2000 je to OK.
>
> diky za kazdy poznatek
>
>
> Pavel Bares
Ahoj.
Pokud se nemylim, tak jsem to zkousel na notebooku jeste pred upgradem na
W98 a chodilo mi to.
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
Indikace lokalniho menu (POPUPMENU)
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.9.2000 23:03:28
Behalf Of Bene� Jaroslav
> No, asi nerozumim. V komponentu je indikace udelana periodickou zmenou
> kurzoru treba napr. po 5 sekundach tak, aby puvodni kurzor zustal ve svem
> vyznamu (a aby to neblikalo). Jak ale rikam, neni to moc
> spolehlive a je to
> poveseno na timeru.
> A co se tyka zakladnich popup v editech, tam to lze snad vzdycky zakryt a
> nahradit svym rozsirenym ekvivalentem. Nebo ne?
>
Ahoj.
Mozna je chyba na mem prijimaci.
Pokud tedy myslis nejake kratkodobe doplneni stavajiciho kursoru o nejaky
"znak" pri zastaveni nad
komponentou (neco jako Hint) pak moje vyhrady samozrejme nemaji smysl.
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
dsgnintf
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2000 23:07:37
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Ja se na to divam z pohledu uzivatele komponenty. Napriklad
> mam koupene Sestavy Sinea bez zdrojovych kodu a tim padem
> tento problem nemohu resit jinak nez vyse uvedenym zpusobem a
> doufat, ze ve verzi pro D6 to opravi autori komponent.
Ahoj,
spravne. V pripade Siney je ten problem pry jiz vyresen (viz dalsi prispevky).
Petr Vones, amatersky programator
Instalace programu ve Win2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2000 23:07:50
From: "Jiri Kral" <admin(zv)printo(tec)cz>
> dela to nejen D5 ale i jine apps (Pshop 5 CZ a dalsi). Tezko rict if to je
> treba nejakym bugem ve spolupraci w2k a nektere verze installshieldu. hledal
> jsem na netu, ale podobny problem jsem nenalezl.
Ahoj,
pred casem jsem nekde cetl, ze to obcas zpusobuji neanglicke znaky pouzite ve
jmene prihlaseneho uzivatele.
Petr Vones, amatersky programator
nastavovani filemode
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2000 23:07:43
From: "Vaclav Sazima" <sazima(zv)comp(tec)cz>
> no myslel jsem aby to fungovalo jako typovy soubor, aby se nemuselo
> psat : s.seek (N * sizeof (Txx)); s.read(buffer) (B, * sizeof (Txx)).
Ahoj,
pak je asi nejlepsi pouzit mapovani souboru do pameti.
Petr Vones, amatersky programator
Detekce URL v prohlizeci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2000 23:07:56
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> situace: potreboval bych nejakym zpusobem zjistovat, jaka stranka byla
> aktualne nactena do prohlizece (IE nebo Netscape), Treba jako to dela
> SpediaBar. Dalo by se to udelat pres IE-combobox s URL, sledovat on change.
> Ale to neni to prave. Existuje urcite nejaky jiny zpusob - placnu treba
Ahoj,
pokud vim tak v pripade pozadavku funkcnosti pro IE i NC se to dela nejak pres
DDE, viz (http://support.microsoft.com/support/kb/articles/Q160/9/57.ASP)
> Soucasne by mne zajimal i opacny zpusob: tzn. jak docilit toho, aby to
> vypadalo tak, ze jsem prave zmenil URL v prohlizeci, aniz bych vubec spustil
> explorer... (zapis treba do ty cache)
Pomoci WinInet funkci, ale jen pro IE (coz by dnes melo byt postacujici).
Petr Vones, amatersky programator
Udalost pri maximalizaci
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.9.2000 23:46:47
> Mam dotaz asi hloupy, lec trapi mne:-)
> Potrebuji pri prechodu aplikace z minimalizovane formy do normalu vyvolat
> nejakou udalost.
> Nasel jsem event TApplication.OnRestore ale zda se ze jsem uplne vedle, nebo
> ji neumim pouzivat. Nic se totiz nevola. Za kazdou radu predem mnohokrat
> dekuji:-)
type TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure AppRestore(Sender:TObject);
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AppRestore(Sender:TObject);
begin
Application.messagebox('Oh la la!','Sacrebleau',mb_ok);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.onRestore:=AppRestore;
end;
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.
BDE a restart
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.9.2000 23:47:36
Nevim jestli chapu problem dobre, ale ty pokud nerestartujes pocitac a ten
program pustis kolikrat chces, tak tam udaje mas, pak ten program vypnes, az se
vsechno pozavira tak regulerne restartujes pocitac a zaznamy jsou v tahu? Heh...
Nebo kdyz bezi aplikace a ty ji nevypnes a restartujes pocitac, tak pak tam nic
neni?
Pro prvni pripad bych se ujistil, ze ty udaje neukladas na RAM disk ;-) a
podival bych se snad na nastaveni BDE.
Pro druhy pripad by ti mohlo stacit tohle
pouzivas-li TTable:
procedure TableAfterPost(DataSet: TDataSet);
begin
Check(DBiSaveChanges(TTable(DataSet).Handle));
TTable(DataSet).FlushBuffers;
end;
pro TQuery pak ApplyUpdates, podle potreby StartTransaction/Commit/Rollback
Roman
> Zdravim,
> mam nasledujici problem. Zkousim nejaky program pracujici s BDE a
> Pradoxovou tabulkou. Spustim program, do tabulky ulozim zaznamy a vypnu
> program (pri vynuti poustim table1.close)
> Pri dalsim spusteni programu tam data drive ulozena jsou, avsak kdyz
> restartuji pocitac tak ztratim vsechna ulozena data. Cim to je ?[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.
Visual Basic
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 19.9.2000 07:27:02
Ahoj lidi.
Trochu jsem hledal v dokumentaci a nasel jsem, ze v Delphi 2 byl program
VB2D VisualBasic to Delphi. Mate nekdo tento program? Pripadne muzete mi
ho poslat na soukromou adresu?
Predem vsem dekuji Jirka
Tisk QuickReportem z Accessu p�es BDE
[*] Ji�� Fait���}���6���3 - 19.9.2000 07:46:17
Pokud se nepletu tak PreviewModal nelze korektne pouzivat ani v posledni
verzi QR 3.0.7.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Kejval
Sent: Monday, September 18, 2000 12:46 PM
To: Konference Delphi
Subject: Tisk QuickReportem z Accessu p�es BDE
Ahoj,
tisknu v D4 z Access databaze pripojene pres nativni ovladac BDE
IDDA3532.DLL pomoci QuickReportu verze 3.05. P�i zobrazeni sestavy pomoc�
metody PreviewModal dojde k nasledujici chybe:
Vyjimka EAccessViolation v module DAO350.DLL na 0000CE13.
Poruseni pristupu na adrese 06B3CE13 v modulu 'DAO350.DLL'. Cteni adersy
FFFFFFFF.
Pri zobrazeni sestavy pomoci metody Preview je vse v poradku.
Metoda PreviewModal funguje dobre napriklad nad databazi paradoxu pripojene
pres BDE.
Potrebuji poradit lze-li nad databazi Access pripojenou pres BDE pouzit
metodu QuickRepotu PreviewModal a lze-li pak co delam spatne.
Za kazdou radu dekuji.
Petr Kejval
---
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
---
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
Chybny DataModul ve zdrojich
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 19.9.2000 08:06:20
Ahoj,
zkus se na to podivat ve zdrojovem tvaru (utilita convert.exe dfm<=>txt).
mel jsem podobny problem s poskozenym dfm a takhle jsem leccos zachranil.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Michal Kus [SMTP:kus(zv)tangosw(tec)cz]
> Odesl�no: 18. IX 2000 15:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Chybny DataModul ve zdrojich
>
> Ahoj,
> podarilo se mi nejak podelat DataForm v navrhovem rezimu, a ted se k nemu
> nemuzu dostat.
>
> Stalo se to takhle:
> Neco jsem pridal, Delphi si zanadavaly ze zdroj byl prelozen s jinou verzi
> nejake
> knihovny a pak byl klid. Normalne jsem pracoval, vse ulozil a sel domu.
> Kdyz jsem se druhy den snazil nacist projekt, delphi mi suse oznamily ze
> je nastala chyba pri vytvareni formulare a nazdar. Ted muzu editovat
> jen PAS, ale k vizualnimu navrhu formu se nemuzu dostat. Coz je
> u DataModulu je docela na zavadu. Odinstaloval jsem vsechny
> knihovny i delpi, vse nainstaloval a prelozil ve spravnem poradi
> a porad nic.
>
> Nevite nekdo co s takovou radosti?
>
> Diky za pomoc
> Michal
> 1. oznacenie polozky v ListView 2. *wmf do resourc
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 19.9.2000 08:12:24
Ahoj,
mam dve otazky (D5)
1. Ako oznacit polozku v ListView za behu v programe. ListView ma nastavenu
vlastnost ViewStyle na vsIcon.
2. Ako ulozit subory *.wmf do resource (*.res) a ako ich v programe
nacitat do komponenty Image. Existuje na to nejaka komponenta alebo nejaky
postup?
Dakujem, Marian
Omluva IB na Win 95
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 19.9.2000 08:23:08
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Dekuji vsem za poznatky. IB 6 opravdu na Win95 chodi OK.
Chyba byla jednak v mem programu a potom ja je jiz znamo v IB consoli, proto jsem se domnival ze je to v IB.
Jeste jeden poznatek pramenici z moji chyby:
Win 98 a 2000 berou cestu i kdyz jsou v ni dve lomitka (c:\Program Files\\Muj prg) ale win 95 ne.
Pavel Bares
InterBase Express (IBX) v. 4.2
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 19.9.2000 08:35:27
Ahoj vsem!
Jak jsem si stahoval z inetu IB 6.0 tak ze stejne stranky jsem stahnul 2
balicky komponet IBX (IBX_Packages.zip a IBX_DPackages.zip). Jsou to novejsi
verze komponent nez v D5 na palete InterBase.
Balicky jsem nainstaloval a stalo se nasledujici. Na pocitaci kde je
nainstalovan jen IB 6 klient (pocitac je v siti a server IB je na servru) se
v D5 nainstalovala jen paleta InterBase a jinem pocitaci-doma, kde mam
klienta i server se jeste nainstalovala do D5 paleta InterBase Admin Tab
(servisovani, instalace a odinstalace IB).
Ptam se jestli nekdo nevi proc tomu tak je, a jestli se da take Admin Tab
nainstalovat na "prvni" pocitac.
Predem dik.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
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
chyba pri vykonavani Alter table
[*] Petr Hartman <medisoft(zv)pvtnet(tec)cz> - 19.9.2000 08:43:23
Ahoj,
nedelas to pres BDE? To nepodporuje Dialect 3.
S pozdravem
Petr Hartman
> ALTER TABLE BANVYPIS ADD XXX DECIMAL(15,2);
>
> Tento prikaz mi vyvola:
> -----------------------------------------
> Dynamic SQL Error
>
> SQL error code = -817
>
> Metadata update statement is not allowed by the current database SQL dialect
> 3
Com Port & RTS_CONTROL_TOGGLE & DCB
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 19.9.2000 08:53:34
Taky jsem kdysi naletel, v _DCB z windows.pas jsou v polozce _DCB.Flags
"shrnuty" bitove orientovane polozky ze struktury DCB uvedene v helpu, neb
takovyto zapis pascal neumi.
Ondrej Malecek
----- Original Message -----
From: "Vaclav Sazima" <sazima(zv)comp(tec)cz>
To: "Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 18, 2000 2:38 PM
Subject: Com Port & RTS_CONTROL_TOGGLE & DCB
> Ahoj,
> pri programovani serioveho portu se mi zalibilo
> nastaveni RTS_CONTROL_TOGGLE, ktere zpusobi sledovani vysilanych dat
> signalem RTS. Jenze jsem zjistil, ze polozka fRtsControl (dle Helpu)
> ve
> strukture TDCB vubec neni a zaroven ze se TDCB z windows.pas a DCB z
> helpu zasadne lisi (dokonce i velikosti). Pritom funkce GetCommState
> mi
> vraci velikost 28, coz odpovida TDCB z Windows.pas. Muze mi to nekdo
> vysvetlit a zaroven poradit, jak pouzit RTS_CONTROL_TOGGLE?
>
> Dekuji
> Vaclav Sazima
>
ruseni datamodulu
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 19.9.2000 09:12:29
Ahoj,
v mojem programu obcas dojde pri ruseni datamodulu k chybe
v unitu classes v metode TList.IndexOf. Program je vicevlaknovy
datamoduly si vytvarim dynamicky v kazdem vlakne zvlast. V metode
OnCreate nastavuji pouze property "name" session a database a pak
je prirazuji jednotlivym komponentam TQuery a TTable. V metode
OnDestroy nemam nic. Pro nazev session pouzivam AutoSessionName,
pro nazev DataBaze pouzivam citac, ktery zvisuju po kazdem prirazeni
jmena databazi(je osetren pro provoz ve vlaknech).
Je dulezite rici, ze pouzivam komponenty DBISAMu v kombinaci se
standardnimi komponentami Delphi. Z DBISAMu pouzivam DBISAMDataBase,
DBISAMSession a DBISAMTable. Na konci vlakna volam DM.Free. Tuto metodu
volam v klauzuli finally, tzn. i kdyz se datamodul nevytvori. Co se stane
kdyz se
datamodul nejakym zpusobem nevytvori korektne a ja pak zavolam DM.Free?
Zadnou komponentu z DataModulu sam nerusim. Je mozne, aby se nejaka
komponenta zrusila sama pri nejake chybe?
Vitam kazdou radu, pripominku.
Diky.
S pozdravem
Michal Jiskra
Pridani menu do aplikace
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 19.9.2000 09:19:56
Ahoj lidi.
Uz jsem se jednou ptal, ale nikdo nereagoval. Protoze porad zkousim a
nefunguje mi to, tak se ptam znovu.
Je mozne pridat do existujici aplikace nabidku a podnabidku? (urcite
ano, protoze takove aplikace existuji)
Z Windows MSDN jsen pouzil nasledujici:
submenu := CreateMenu();
mni2.fMask:= MIIM_DATA or MIIM_TYPE;
mni2.fType := MFT_RIGHTJUSTIFY or MFT_RIGHTORDER or MFT_STRING;
lstrcpy(szMenuText, 'MojePodnabidka');
mni2.dwTypeData := szMenuText;
mni2.cbSize := sizeof(MENUITEMINFO);
mni2.cch := sizeof(szMenuText);
InsertMenuItem(submenu, 0, TRUE, mni2);
hmenu := CreatePopupMenu();
mni.fMask := MIIM_DATA or MIIM_TYPE or MIIM_SUBMENU;
mni.fType := MFT_RIGHTORDER or MFT_STRING;
lstrcpy(szMenuText, 'Moje nabidka');
mni.dwTypeData := szMenuText;
mni.cbSize := sizeof(MENUITEMINFO);
mni.cch := sizeof(szMenuText);
mni.hSubMenu := submenu;
InsertMenuItem(HWND_Menu,Pozice,TRUE,mni);
Nabidka se udela, pri kliknuti na ni se ale aplikace zhrouti.
Musim nejak odchytavat udalosti a pri kliknuti na tuto nabidku neco
udelat?
Nebo delam neco spatne a podnabidka se ma zobrazit a odchytavat mam az
podnabidky?
Nebo jak to udelat uplne jinat.
Jak to maji udelany jine aplikace, ktere toto umi.
Predem vsem dekuji Jirka
D5, W98
Instalace programu ve Win2000
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 19.9.2000 09:46:00
> Ahoj,
>
> pred casem jsem nekde cetl, ze to obcas zpusobuji neanglicke
> znaky pouzite ve
> jmene prihlaseneho uzivatele.
>
> Petr Vones, amatersky programator
Ahoj,
tim to neni, protoze se prihlasuji jako Administrator.
Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
Prijde mi to dost nesmyslne, ale fakt to tak bylo.
Michal Kus
VBA
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 19.9.2000 09:46:02
Ahoj lidi.
Tak dnes jeste jednou.
Kdyz potrebuji zavolat funkci Visual Basicu napr CreateObject tak to
provedu jak?
Predem dekuji Jirka
Registr a omezeni v IE
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 19.9.2000 09:54:27
Cau
mam takovej problem, potrebuju z aplikace pridat do registru (aspon doufam
ze se to tam zapisuje) omezeni na urcite servery v IE. Obsah > poradce
hodnocenim > schvalene servery. Ale bohuzel nevim kde se to do registru
zapisuje (je to tam ulozeno nejspis kryptovane) zkousel jsem regmon ale ten
mi moc nepomohl. Nevite KAM se to presne uklada ?
diky
Omluva IB na Win 95
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 19.9.2000 10:12:02
Ale bere to i w95 - mam to odzkouseno. Nebere to pouze v pripade, za jsou dve lomitka hned za pismenem disku ( A:\\).
Martin Lasevic
Jeste jeden poznatek pramenici z moji chyby:
Win 98 a 2000 berou cestu i kdyz jsou v ni dve lomitka (c:\Program Files\\Muj prg) ale win 95 ne.
Pavel Bares
<<Soubor: ATT00013.html>>
Instalace programu ve Win2000
[*] Chwalek Radom�r <radomir.chwalek(zv)rtscs(tec)cz> - 19.9.2000 11:07:14
Ahoj,
Ja jsme osobne nemohl nainstalovat Delphi 5/Prof. pod WinNT 4.0, pokud jsem
mel pusteny MS Outlook. Chovalo se to podobne.
Radek
> -----P�vodn� zpr�va-----
> Od: Michal K�s [mailto:kus(zv)tangosw(tec)cz]
> Odesl�no: 19. z��� 2000 9:46
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Instalace programu ve Win2000
>
>
> > Ahoj,
> >
> > pred casem jsem nekde cetl, ze to obcas zpusobuji neanglicke
> > znaky pouzite ve
> > jmene prihlaseneho uzivatele.
> >
> > Petr Vones, amatersky programator
>
> Ahoj,
> tim to neni, protoze se prihlasuji jako Administrator.
>
> Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
> pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
> Prijde mi to dost nesmyslne, ale fakt to tak bylo.
>
> Michal Kus
>
>
>
---
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
ladeni ulozenych procedur
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.9.2000 11:33:38
Ahoj,
dodava to tady nekdo v republice?
Diky
Slavek
> _Vynikajici_ nastroj pro spravu databazi na IB6 je QuickDesk
> (momentalne verze 1.7 beta, takze tam jsou nejake mouchy, ale i tak
> jde asi o to nejlepsi co sem na IB6 zatim videl).
>
> Viz. http://ems-hitech.com/quickdesk/
>
> Petr Fischer
1. oznacenie polozky v ListView 2. *wmf do resourc
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 19.9.2000 12:34:14
Ahoj,
mam dve otazky (D5)
1. Ako oznacit polozku v ListView za behu v programe. ListView ma nastavenu
vlastnost ViewStyle na vsIcon.
2. Ako ulozit subory *.wmf do resource (*.res) a ako ich v programe
nacitat do komponenty Image. Existuje na to nejaka komponenta alebo nejaky
postup?
Dakujem, Marian
Instalace programu ve Win2000
[*] Ji�� Fait���}���6���3 - 19.9.2000 12:36:59
Ja jsem to vyslovene zkousel, pokud je pusteny Outlook tak trva rozbehnuti
instalace minimalne 10x dele nez bez nej, teda pokud se vubec rozjede.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Michal K�s
Sent: Tuesday, September 19, 2000 9:46 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Instalace programu ve Win2000
> Ahoj,
>
> pred casem jsem nekde cetl, ze to obcas zpusobuji neanglicke
> znaky pouzite ve
> jmene prihlaseneho uzivatele.
>
> Petr Vones, amatersky programator
Ahoj,
tim to neni, protoze se prihlasuji jako Administrator.
Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
Prijde mi to dost nesmyslne, ale fakt to tak bylo.
Michal Kus
---
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
Instalace programu ve Win2000
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 19.9.2000 13:06:02
Ahoj,
s tym Outlookom (2000) sme si na tom (mnohy :))) podobne
Tomas.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Chwalek Radom�r
> Sent: Tuesday, September 19, 2000 11:07 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Instalace programu ve Win2000
>
>
> Ahoj,
>
> Ja jsme osobne nemohl nainstalovat Delphi 5/Prof. pod WinNT 4.0,
> pokud jsem
> mel pusteny MS Outlook. Chovalo se to podobne.
>
> Radek
>
>
> > -----P�vodn� zpr�va-----
> > Od: Michal K�s [mailto:kus(zv)tangosw(tec)cz]
> > Odesl�no: 19. z��� 2000 9:46
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Instalace programu ve Win2000
> >
> >
> > > Ahoj,
> > >
> > > pred casem jsem nekde cetl, ze to obcas zpusobuji neanglicke
> > > znaky pouzite ve
> > > jmene prihlaseneho uzivatele.
> > >
> > > Petr Vones, amatersky programator
> >
> > Ahoj,
> > tim to neni, protoze se prihlasuji jako Administrator.
> >
> > Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
> > pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
> > Prijde mi to dost nesmyslne, ale fakt to tak bylo.
> >
> > Michal Kus
> >
> >
> >
> ---
> 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
WindowMessage pri otvoreni noveho okna
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 19.9.2000 13:18:13
Ahoj existuje nieco ako WM_xxx ktora by bola vyslana vzdy ked sa vytvori
nove okno vo Windows. Alebo to ide nejak zahookovat?
Prinajhorsom by stacilo upozornenie na spustenie novej aplik�cie.
Vie to niekdo???? %-O
Diky.
Pavol Kakacka
kasix(zv)atlas(tec)cz
Instalace programu ve Win2000
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 19.9.2000 13:33:06
> > Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
> > pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
> Ja jsme osobne nemohl nainstalovat Delphi 5/Prof. pod WinNT
> 4.0, pokud jsem
> mel pusteny MS Outlook. Chovalo se to podobne.
me pro zmenu casto delphi vytuhne, pokud je Outlook pusteny :),
ale na win98
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
Registr a omezeni v IE
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.9.2000 13:40:23
Zkus se podivat na
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Rating
s
Minimalne se tam uklada heslo k pristupu (staci zrusit klic :-) )
Jan Fiala
----- Original Message -----
From: Sula Milos <milos.sula(zv)oku-su(tec)cz>> Cau
> mam takovej problem, potrebuju z aplikace pridat do registru (aspon doufam
> ze se to tam zapisuje) omezeni na urcite servery v IE. Obsah > poradce
> hodnocenim > schvalene servery. Ale bohuzel nevim kde se to do registru
> zapisuje (je to tam ulozeno nejspis kryptovane) zkousel jsem regmon ale
ten
> mi moc nepomohl. Nevite KAM se to presne uklada ?
> diky
>WindowMessage pri otvoreni noveho okna
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.9.2000 13:45:08
Mozna by ti stacila ud�lost Screen.OnActiveFormChange
Jan Fiala
----- Original Message -----
From: Pavol Kakacka <paka(zv)aktis(tec)cz>>Ahoj existuje nieco ako WM_xxx ktora by bola vyslana vzdy ked sa vytvori
>nove okno vo Windows. Alebo to ide nejak zahookovat?
>Prinajhorsom by stacilo upozornenie na spustenie novej aplik�cie.
>Vie to niekdo???? %-O
>Diky.
> Pavol Kakacka
> kasix(zv)atlas(tec)cz
Redistribuce BDE chyba $3E06
[*] novacek(zv)vanicek(tec)cz - 19.9.2000 11:53:49
Zdar a silu!
> mamproblem s redistribuci BDE:
> Cely zadrhel je v tom, ze po dokonceni instalace se nerozebehne ani BDE
> admin s chybou "$3E06 Can't initialize Borland Database Engine".
> Nevite nekdo proc se to deje?
Kdysi jsem se take snazil prinutit IS k instalacei BDE a mel jsem
podobny problem (a spoustu jinych).
Pokud se pamatuji, tak pricinou bylo, ze IS nedoplnil pri instalaci
hodnotu klice DLLPath a nechal ho prazdny. Ten klic obsahuje cestu k
DLLkam BDEcka. Pri full instalaci tam hodnota byla. Po jejim rucnim
doplneni v pripade partial instalace se to taky rozbehlo.
> Co je treba udelat, aby redistribuce BDE chodila? (Nechci davat full BDE,
> protoze s D4Prof se instaluje i vyvojova verze SQL linku, kterou jednak
> nepotrebuji a druhak nemam pravo sirit).
Zkus do IS doplnit, aby ten klic sam vytvoril a spravne naplnil.
Mozna to pomuze.
A nebo zkus to, co tady doporucuji vlastne vsichni: utect od BDE :-(
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
ruseni datamodulu
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 19.9.2000 14:05:05
ak sa nemilim tak .free nieje threadsafe, coz znamena, uvolnovanie by malo
byt az mimo vlakna:)
Bohdan Pomsahar
----- Original Message -----
From: "Michal Jiskra" <jiskra(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 19, 2000 9:12 AM
Subject: ruseni datamodulu
> Ahoj,
> v mojem programu obcas dojde pri ruseni datamodulu k chybe
> v unitu classes v metode TList.IndexOf. Program je vicevlaknovy
> datamoduly si vytvarim dynamicky v kazdem vlakne zvlast. V metode
> OnCreate nastavuji pouze property "name" session a database a pak
> je prirazuji jednotlivym komponentam TQuery a TTable. V metode
> OnDestroy nemam nic. Pro nazev session pouzivam AutoSessionName,
> pro nazev DataBaze pouzivam citac, ktery zvisuju po kazdem prirazeni
> jmena databazi(je osetren pro provoz ve vlaknech).
> Je dulezite rici, ze pouzivam komponenty DBISAMu v kombinaci se
> standardnimi komponentami Delphi. Z DBISAMu pouzivam DBISAMDataBase,
> DBISAMSession a DBISAMTable. Na konci vlakna volam DM.Free. Tuto metodu
> volam v klauzuli finally, tzn. i kdyz se datamodul nevytvori. Co se stane
> kdyz se
> datamodul nejakym zpusobem nevytvori korektne a ja pak zavolam DM.Free?
> Zadnou komponentu z DataModulu sam nerusim. Je mozne, aby se nejaka
> komponenta zrusila sama pri nejake chybe?
>
> Vitam kazdou radu, pripominku.
>
> Diky.
>
> S pozdravem
>
> Michal Jiskra
>
>Provoz D5 prof na Win2000
[*] Pavel �ern� - 19.9.2000 14:10:25
Pros�m o radu. Instalace na Win2000 jmenem administratora probehla OK.
Administrator take muze normalne pracovat.
Ale uzivatel VYVOJ, kdyz Delphi spusti, dostane jen jakysi zlomek IDE,
neni zde rada funkci, nejsou zde palety komponent ... proste torzo.
Poradi nekdo, co to je za zradu a co je kde potreba povolit
nebo nastavit ? Zarazeni uzivatele do skupiny administrator
nijak nepomohlo.
Diky predem.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
1. oznacenie polozky v ListView 2. *wmf do resourc
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 19.9.2000 14:30:12
>1. Ako oznacit polozku v ListView za behu v programe. ListView ma nastavenu
>vlastnost ViewStyle na vsIcon.
Ahoj,
var
ServerLn: TListItem;
with Form, ServerLn do
begin
with ListView do
// najdi polozku v "ListView"
ServerLn := FindCaption(0, <nazov polozky>, TRUE, TRUE, TRUE);
// vyber polozku
Selected := TRUE;
// zameraj polozku
Focused := TRUE;
// keby bola polozka (Ikona) mimo obrazu v "ListView" zobraz ju
MakeVisible(TRUE);
end;
>
>2. Ako ulozit subory *.wmf do resource (*.res) a ako ich v programe
>nacitat do komponenty Image. Existuje na to nejaka komponenta alebo nejaky
>postup?
a s tymto Ti neporadim :-(
Jano
Provoz D5 prof na Win2000
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.9.2000 14:37:08
Provest instalaci s prihlasenym uzivatelem VYVOJ (pouze zapis do registru)
Jan Fiala
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
Pros�m o radu. Instalace na Win2000 jmenem administratora probehla OK.
Administrator take muze normalne pracovat.
Ale uzivatel VYVOJ, kdyz Delphi spusti, dostane jen jakysi zlomek IDE,
neni zde rada funkci, nejsou zde palety komponent ... proste torzo.
Poradi nekdo, co to je za zradu a co je kde potreba povolit
nebo nastavit ? Zarazeni uzivatele do skupiny administrator
nijak nepomohlo.
Diky predem.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Delphi a IBM PComm
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.9.2000 14:54:48
Hi all,
nemate nekdo zkusenosti s IBM PComm v multitaskovem prostredi?
Thanx, pf
Pridani menu do aplikace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.9.2000 15:10:50
On 19 Sep 2000, at 9:19, Jiri Novacek wrote:
> Uz jsem se jednou ptal, ale nikdo nereagoval. Protoze porad zkousim a
> nefunguje mi to, tak se ptam znovu.
> Je mozne pridat do existujici aplikace nabidku a podnabidku? (urcite
> ano, protoze takove aplikace existuji)
MainMenu.Add(NewItem('Blah', 0, false, true, MainForm.Click, 0,
'Bububu'));
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
WindowMessage pri otvoreni noveho okna
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 19.9.2000 15:57:28
Nestacila, je iba v ramci jednej aplik�cie a ja to potrebujem na cele
Windows, vsetky okna, pripadne vsetky aplikacie.
Pavol Kakacka
kasix(zv)atlas(tec)cz
----- Original Message -----
Mozna by ti stacila ud�lost Screen.OnActiveFormChange
Jan Fiala
----- Original Message -----
From: Pavol Kakacka <paka(zv)aktis(tec)cz>>Ahoj existuje nieco ako WM_xxx ktora by bola vyslana vzdy ked sa vytvori
>nove okno vo Windows. Alebo to ide nejak zahookovat?
>Prinajhorsom by stacilo upozornenie na spustenie novej aplik�cie.
>Vie to niekdo???? %-O
Zjisteni nainstalovanych HOOKu
[*] Karel Klimes <klimes(zv)metra(tec)cz> - 19.9.2000 16:44:03
Ahoj,
lze nejak zjistit jake jsou v systemu nainstalovany globalni HOOKy?Provoz D5 prof na Win2000
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 19.9.2000 17:15:09
Doinstaluj si balicky rucne. Mely by byt v adresari bin.
Bez na Components->Instal packages, z adresare
bin vyber vsechny bpl soubory a nainstaluj je.
IDE zacne rvat neco v tom smyslu, ze nektere
balicky se namaji instovat, takze se znovu podivej
na seznam balicku, a povyhazuj ty, ktere jsou
unchecked.
Takhle to aspon delam v D4.
Radim
----- Original Message -----
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 19, 2000 2:10 PM
Subject: Provoz D5 prof na Win2000
> Pros�m o radu. Instalace na Win2000 jmenem administratora probehla OK.
> Administrator take muze normalne pracovat.
> Ale uzivatel VYVOJ, kdyz Delphi spusti, dostane jen jakysi zlomek IDE,
> neni zde rada funkci, nejsou zde palety komponent ... proste torzo.
>
> Poradi nekdo, co to je za zradu a co je kde potreba povolit
> nebo nastavit ? Zarazeni uzivatele do skupiny administrator
> nijak nepomohlo.
>
> Diky predem.
>
> Pavel �ern�
> email: pavel(zv)cerny-ps(tec)cz
Provoz D5 prof na Win2000
[*] Tom� Hol� - 19.9.2000 18:22:58
zkusil bych i problem se souborem C:\Program
Files\Borland\Delphi5\Bin\delphi32.dsk, diskutovany opred nekolika dny
smazat ho, a pak to pojede ...
TH
> Pros�m o radu. Instalace na Win2000 jmenem administratora probehla OK.
> Administrator take muze normalne pracovat.
> Ale uzivatel VYVOJ, kdyz Delphi spusti, dostane jen jakysi zlomek IDE,
> neni zde rada funkci, nejsou zde palety komponent ... proste torzo.
>
> Poradi nekdo, co to je za zradu a co je kde potreba povolit
> nebo nastavit ? Zarazeni uzivatele do skupiny administrator
> nijak nepomohlo.
>
Autorun
[*] <bejcek(zv)centrum(tec)cz> - 19.9.2000 19:08:50
Nazdar, neco bych od Vas potreboval. Potreboval bych spoustet
aplikaci hned pri startu. Ale mam 3 podminky. To je1)Nesmi se
aplikace zobrazit v kolonce po spusteni, za 2)Chci mit kontrolu u
jakeho uzivatele se spusti(takze pro kazdej profil zvlast).3)Mohu
si volit spustit jednou ci vzdy a kombinovat to s predchozi fci
tj. spustit jednou pro vsechny. Spustit vzdy pro vsechny. Spustit
vzdy pro urcitou skupinu.
A ted zdalo se to jednoduche, ale ja nasel jen v registrech run,
runonce pro cele PC a ne pro jednotlive profily, otazka zni
jestli se nejak nedaj registry upravit aby to slo. Jednoduchou
veci by bylo rozhodit *.lnk do profilu, ale to nechci, neporadite
mi?
Aldik amater vsech amateru.
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Doba spusteni programu office, zahlcena pamet
[*] <bejcek(zv)centrum(tec)cz> - 19.9.2000 19:09:43
Zase neco,
Ja Vam dam zabrat co?
Zjistim nekde jak dlouho je spusteny nejaky program? Pripadne
take je-li aktivni (vysviceny) nebo na pozadi, ci minimalizovany?
Jinak take bych potreboval vedet jak shodit pamet, ktera se mi
neustale hlti, tj. jestli ji mohu bez rizika uvolnit a jak!
To vite mesic v Delphi je jen mesic v Delphi.
S uctou a s hlavou az u zeme ooooo mocni magove
amater vsech amateru
Ale� Pavel (Talpa)
Jeron�mova 981
Havl��k�v Brod
580 01
E-mail: ales(zv)cml(tec)cz nebo Ales.Pavel(zv)worldonline(tec)cz
Tel: 0451/427374
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
1. oznacenie polozky v ListView 2. *wmf do resourc
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 19.9.2000 21:09:44
V archivu jsem nasel tohle, bude to urcite velmi podobne, zde se jednalo o
"prilepeni" Wavu do resources a jeho prehrani (autorem je Jiri Campulka):
1) Nejdrive si udelas soubor treba TEST.RC
do neho napises:
TEST WAVE "TEST.WAV"
2) Potom tento soubor zkompilujes:
BRCC32.EXE TEST.RC
(samozrejmne musis mit soubor TEST.WAV ve kterym je prislusnej zvuk...)
3) Vysledkem po zkompilovani by mel bejt soubor TEST.RES.
4) Tento soubor prilinkujes jako resource do sveho projektu.
{$R TEST.RES}
5) A takhle by mohla vypadat procedura, ktera ten zvuk prehraje:
procedure MyBeep;
var ResHandle,
MemHandle: THandle;
MemPointer: Pointer;
begin
ResHandle:=FindResource(hInstance,'TEST','WAVE');
MemHandle:=LoadResource(hInstance,ResHandle);
MemPointer:=LockResource(MemHandle);
SndPlaySound(MemPointer,snd_ASync or snd_Memory);
UnlockResource(MemHandle);
FreeResource(MemHandle);
end;
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: Jano [mailto:jj_delphi(zv)ke.ubp.sk]
Sent: Tuesday, September 19, 2000 2:30 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: 1. oznacenie polozky v ListView 2. *wmf do resource
>1. Ako oznacit polozku v ListView za behu v programe. ListView ma nastavenu
>vlastnost ViewStyle na vsIcon.
Ahoj,
var
ServerLn: TListItem;
with Form, ServerLn do
begin
with ListView do
// najdi polozku v "ListView"
ServerLn := FindCaption(0, <nazov polozky>, TRUE, TRUE, TRUE);
// vyber polozku
Selected := TRUE;
// zameraj polozku
Focused := TRUE;
// keby bola polozka (Ikona) mimo obrazu v "ListView" zobraz ju
MakeVisible(TRUE);
end;
>
>2. Ako ulozit subory *.wmf do resource (*.res) a ako ich v programe
>nacitat do komponenty Image. Existuje na to nejaka komponenta alebo nejaky
>postup?
a s tymto Ti neporadim :-(
Jano
Kylix home page
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.2000 22:06:41
Ahoj,
vice tady: http://www.borland.com/kylix
Petr Vones, amatersky programator
Zjisteni nainstalovanych HOOKu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.2000 22:38:16
From: "Karel Klimes" <klimes(zv)metra(tec)cz>
> lze nejak zjistit jake jsou v systemu nainstalovany globalni HOOKy?
Ahoj,
na 99% bych rekl ze ne. Nevim o zadne funkci ktera by toto vracela. Teoreticky
by jsi mohl sledovat seznam modulu u procesu pokud je dany proces na popredi a
pak kdyz neni. DLL hooku se vzdy 'lepi' na proces na popredi, tim ale zjistis
jen to, ze v systemu je nejaky hook.
Petr Vones, amatersky programator
WindowMessage pri otvoreni noveho okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.2000 22:40:53
From: "Pavol Kakacka" <paka(zv)aktis(tec)cz>
> Ahoj existuje nieco ako WM_xxx ktora by bola vyslana vzdy ked sa vytvori
> nove okno vo Windows. Alebo to ide nejak zahookovat?
>
> Prinajhorsom by stacilo upozornenie na spustenie novej aplik�cie.
Ahoj,
toto lze pomoci WH_SHELL hooku, ale jsou s tim pry nejake problemy na Win98.
Petr Vones, amatersky programator
SetWorldTransform
[*] Milan Jir�sek <Milan.Jirasek(zv)worldonline(tec)cz> - 19.9.2000 23:37:14
Ahoj.
Zkousim windousovskou funkci
SetWorldTransform(
HDC hdc, // handle of device context
CONST XFORM * lpXform // address of transformation data
);
XFORM typuju takto
type
xfor =record
eM11: single;
eM12: single;
eM21: single;
eM22: single;
eDx: single;
eDy : single;
end;
kompilator vsak zahlasi ze xform je nekompatibilni.
Potreboval bych vedet jak tedy natypovat xform a predat jej jako konstantu
funkci SetWorldTransform.
D3/win98
Amatersky mUcednik
Prid�n� polozky do tab. PARADOXU v RunTime
[*] MJsoft <mjsoft(zv)rychnov(tec)cz> - 19.9.2000 23:47:48
Ahoj vsichni,
potreboval bych poradit se SUBJ. V helpu k BDE jsem nasel funkci DbiDoRestucture, ktera by to mela udelat. Dokonce k ni je i priklad. V prikladu ovsem chybi varianta pridani nove polozky. Nemate prosim nekdo kus k�du, byl bych Vam vdecen.
Cau Jin
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.168 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Instalace prg (MS SQL) pod W2000
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 20.9.2000 02:07:23
Ahoj,
potreboval bych nainstalovat MS SQL - Desktop Edition na W2000 prof.
SqlStp.exe hazi chybu "Can�t run 16-bit Windows program"
"One of the library files needed to run .. Sqlstp.exe is damaged. ..."
Kdysi jsem potreboval nainstalovat napr. Delphi 4 na W2000
a byl stejnej problem. Tenkrat stacilo nahradit Setup.exe exacem z D5.
Tady to ale nejde.
Dik za radu, Filip.Registr a omezeni v IE
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 20.9.2000 07:12:49
Jo tam je ulozeno zakryptovane heslo, jinak seznamy schvalenych serveru jsou
ulozeny ve specialni neviditelne vetvi registru
HKEY_LOCAL_MACHINE\PolicyData\Users\Software\Microsoft\Windows\CurrentVersio
n\Policies\Ratings\PICSRules\.Default\0\PRPolicy\........ tady ma kazdy
server svou vetev ktera je pojmenovana od 0 ... poctu serveru v seznamu
do teto vetve se mi podarilo sice neco zapsat , pak se objevila i v regeditu
jako viditelna, ale IE hlasil chybu. Asi se tam musi zapisovat jinak nez
pres standartni funkce,aby zustala skryta ale na to jsem zatim jeste
neprisel :(
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Tuesday, September 19, 2000 1:40 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Registr a omezeni v IE
Zkus se podivat na
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Rating
s
Minimalne se tam uklada heslo k pristupu (staci zrusit klic :-) )
Jan Fiala
----- Original Message -----
From: Sula Milos <milos.sula(zv)oku-su(tec)cz>> Cau
> mam takovej problem, potrebuju z aplikace pridat do registru (aspon doufam
> ze se to tam zapisuje) omezeni na urcite servery v IE. Obsah > poradce
> hodnocenim > schvalene servery. Ale bohuzel nevim kde se to do registru
> zapisuje (je to tam ulozeno nejspis kryptovane) zkousel jsem regmon ale
ten
> mi moc nepomohl. Nevite KAM se to presne uklada ?
> diky
>Provoz D5 prof na Win2000
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.9.2000 07:36:28
On 19 Sep 2000, at 17:15, Radim Kunz wrote:
> Doinstaluj si balicky rucne. Mely by byt v adresari bin.
> Bez na Components->Instal packages, z adresare
> bin vyber vsechny bpl soubory a nainstaluj je.
> IDE zacne rvat neco v tom smyslu, ze nektere
> balicky se namaji instovat, takze se znovu podivej
> na seznam balicku, a povyhazuj ty, ktere jsou
> unchecked.
Hm, v instalatoru Delphi je funkce na obnovu registru. Zkus pod
danym uzivatelem toto. Balicky tretich stran je vsak nutno
doinstalovat ruco.
>
> ----- Original Message -----
> From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, September 19, 2000 2:10 PM
> Subject: Provoz D5 prof na Win2000
>
>
> > Pros�m o radu. Instalace na Win2000 jmenem administratora probehla
> > OK. Administrator take muze normalne pracovat. Ale uzivatel VYVOJ,
> > kdyz Delphi spusti, dostane jen jakysi zlomek IDE, neni zde rada
> > funkci, nejsou zde palety komponent ... proste torzo.
> >
> > Poradi nekdo, co to je za zradu a co je kde potreba povolit
> > nebo nastavit ? Zarazeni uzivatele do skupiny administrator
> > nijak nepomohlo.
> >
> > Diky predem.
> >
> > Pavel �ern�
> > email: pavel(zv)cerny-ps(tec)cz
>
>
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 priinstalovat balicek IbObject
[*] Petr Potocek <pp1(zv)volny(tec)cz> - 20.9.2000 08:11:43
Zdravim vsechny,
mam problem pri instalaci IbObject. Stale mi to vyhazuje chybovou hlasku:
"[Fatal Error] IB_Editors.pas(17): Unit IB_Components was compiled with a
different version of IB_Constants.IB_VERSION_SUB_RELEASE".
Nevite nekdo co s tim?
Predem dekuji
Petr
InterBase Express (IBX) v. 4.2
[*] pcb(zv)atlas(tec)cz - 20.9.2000 08:12:28
Haj hou!
On 19 Sep 2000,, Igor Vodi ka wrote:
> Ptam se jestli nekdo nevi proc tomu tak je, a jestli se da take Admin Tab
> nainstalovat na "prvni" pocitac.
IB6 ma admin API (na rozdil od starsich verzi). Pokud se detekuje
IB6, nainstaluji se i tyhle komponenty. To ovsem realizuje balicek
pri registraci do Delphi, ne instalacni program. Protoze na jednom
pocitaci IB6 server neni, nedal se detekovat atd... Pokud
nainstalujes IB6 server na prvni pocitac a opetovne zaregistrujes
balicky IBX, mely by se tam objevit i admin komponenty.
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.DisplayLabel
[*] Lauko �tefan <lauko(zv)salamon.sk> - 20.9.2000 08:12:41
Ahoj,
chcem sa opytal : mozem uz pri definicii tabulky v IB6 definovat aj
DisplayLabel?
napr.
Create Table XY (
Nazov VarChar(30) Not Null {Nazov tovaru} atd...
Potom ked vytvorim s field editorom alebo dynamicky Fieldy aby sa mi
automaticky doplnil podla def. tab. DisplayLabel - pripadne v dbGridoch atd.
Pripadne dalsie property Fieldu. ( DisplayWidth, EditMast...).
Najlepsie by bol priklad - kusok SQL.
Dakujem Lauko.
Prid�n� polozky do tab. PARADOXU v RunTime
[*] L. ZITA <konference(zv)sales(tec)cz> - 20.9.2000 08:31:15
Behalf Of MJsoft
Ahoj vsichni,
potreboval bych poradit se SUBJ. V helpu k BDE jsem nasel funkci
DbiDoRestucture, ktera by to mela udelat. Dokonce k ni je i priklad. V
prikladu ovsem chybi varianta pridani nove polozky. Nemate prosim nekdo kus
k�du, byl bych Vam vdecen.
Cau Jin
Ahoj.
Zkus to pres lokalni SQL (TQuery..)
ALTER TABLE jmeno ADD COLUMN .....
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
Prid�n� polozky do tab. PARADOXU v RunTime
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.9.2000 09:09:37
> potreboval bych poradit se SUBJ. V helpu k BDE jsem nasel funkci DbiDoRestucture, ktera by to mela udelat. >Dokonce k ni je i priklad. V prikladu ovsem chybi varianta pridani nove polozky. Nemate prosim nekdo kus k�du, byl >bych Vam vdecen.
A co takhle:
WITH tQuery.Create(nil) do try
databasename := xxxxxxx;
SQL.Clear;
SQL.Add('ALTER TABLE "Firma.DB" ADD BLOKOVANO INTEGER');
ExecSQL;
FINALLY
Free;
END;
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
ruseni datamodulu
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 20.9.2000 09:32:16
Ahoj,
zkusil jsem dat uvolneni datamodulu do synchronize, ale nepomohlo to.
Jak mam tedy zrusit datamodul, ktery byl vytvoren ve vlakne a jeho
vlastnikem
je aplikace? Jak rici aplikaci at zrusi konkretni datamodul ?
Michal
----- Original Message -----
From: Bohdan Pomsahar <bpomsahar(zv)nocomment.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 19, 2000 2:05 PM
Subject: Re: ruseni datamodulu
> ak sa nemilim tak .free nieje threadsafe, coz znamena, uvolnovanie by malo
> byt az mimo vlakna:)
>
> Bohdan Pomsahar
>
> ----- Original Message -----
> From: "Michal Jiskra" <jiskra(zv)eskon(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, September 19, 2000 9:12 AM
> Subject: ruseni datamodulu
>
>
> > Ahoj,
> > v mojem programu obcas dojde pri ruseni datamodulu k chybe
> > v unitu classes v metode TList.IndexOf. Program je vicevlaknovy
> > datamoduly si vytvarim dynamicky v kazdem vlakne zvlast. V metode
> > OnCreate nastavuji pouze property "name" session a database a pak
> > je prirazuji jednotlivym komponentam TQuery a TTable. V metode
> > OnDestroy nemam nic. Pro nazev session pouzivam AutoSessionName,
> > pro nazev DataBaze pouzivam citac, ktery zvisuju po kazdem prirazeni
> > jmena databazi(je osetren pro provoz ve vlaknech).
> > Je dulezite rici, ze pouzivam komponenty DBISAMu v kombinaci se
> > standardnimi komponentami Delphi. Z DBISAMu pouzivam DBISAMDataBase,
> > DBISAMSession a DBISAMTable. Na konci vlakna volam DM.Free. Tuto metodu
> > volam v klauzuli finally, tzn. i kdyz se datamodul nevytvori. Co se
stane
> > kdyz se
> > datamodul nejakym zpusobem nevytvori korektne a ja pak zavolam DM.Free?
> > Zadnou komponentu z DataModulu sam nerusim. Je mozne, aby se nejaka
> > komponenta zrusila sama pri nejake chybe?
> >
> > Vitam kazdou radu, pripominku.
> >
> > Diky.
> >
> > S pozdravem
> >
> > Michal Jiskra
> >
> >1. oznacenie polozky v ListView 2. *wmf do resourc
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 20.9.2000 09:50:30
Ahoj,
(D5)
Odpovedam si sam na prvu otazku:
procedure TForm1.Button1Click(Sender: TObject);
var MyItem : TListItem;
begin
ListView1.SetFocus;
with ListView1 do begin
MyItem := Items.Item[0];
MyItem.Selected:=true;
MyItem.Focused:=true;
end;
end;
Vie mi vsak niekdo poradit z druhou ?
2. Ako ulozit subory *.wmf do resource (*.res) a ako ich v programe
nacitat do komponenty Image. Existuje na to nejaka komponenta alebo nejaky
postup? Ide hlavne o to precitanie do komponenty Image.
Dakujem, Marian
Prid�n� polozky do tab. PARADOXU v RunTime
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.9.2000 10:05:30
Zkus to pres SQL - Alter table 'Nazev_Tabulky' add nazev_polozky typ_polozky
Delam to takto bezne a funguje to bez problemu
Milan Tomes
Ahoj vsichni,
potreboval bych poradit se SUBJ. V helpu k BDE jsem nasel funkci
DbiDoRestucture, ktera by to mela udelat. Dokonce k ni je i priklad. V
prikladu ovsem chybi varianta pridani nove polozky. Nemate prosim nekdo kus
k�du, byl bych Vam vdecen.
Cau Jin
Redistribuce BDE chyba $3E06
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 20.9.2000 10:06:17
A mas u vsech DLL knihoven BDE v installshieldu povolene volani
self-register rutiny ???
Milan Tomes
> Zdar a silu!
>
> > mamproblem s redistribuci BDE:
> > Cely zadrhel je v tom, ze po dokonceni instalace se nerozebehne ani BDE
> > admin s chybou "$3E06 Can't initialize Borland Database Engine".
> > Nevite nekdo proc se to deje?
> Kdysi jsem se take snazil prinutit IS k instalacei BDE a mel jsem
> podobny problem (a spoustu jinych).
> Pokud se pamatuji, tak pricinou bylo, ze IS nedoplnil pri instalaci
> hodnotu klice DLLPath a nechal ho prazdny. Ten klic obsahuje cestu k
> DLLkam BDEcka. Pri full instalaci tam hodnota byla. Po jejim rucnim
> doplneni v pripade partial instalace se to taky rozbehlo.
>
> > Co je treba udelat, aby redistribuce BDE chodila? (Nechci davat
> full BDE,
> > protoze s D4Prof se instaluje i vyvojova verze SQL linku, kterou jednak
> > nepotrebuji a druhak nemam pravo sirit).
> Zkus do IS doplnit, aby ten klic sam vytvoril a spravne naplnil.
> Mozna to pomuze.
>
> A nebo zkus to, co tady doporucuji vlastne vsichni: utect od BDE :-(
>
> Zdar a silu.
>
> Vladimir Novacek
O.T. velikost exe souboru
[*] Zapl�k���ͪe�?�Y��̿ - 20.9.2000 10:19:08
Pred jistou dobou zde byla debata na zmenseni velikosti exe souboru. Ted
jsem v jednom nejmenovanem casopise nasel program, ktery je shopen exe
soubor radikalne zmensit. Na
http://wildsau.idv.uni-linz.ac.at/mfx/upx.html
http://www.nexus.hu/upx
http://upx.tsx.org
je volna verze. Ja jsem ji testoval na sve aplikaci, ktera ma neco kolem 3,5
MB a vysledny soubor po zabaleni mel velikost cca. 900 KB !!!!!!!
Autori uvadi, ze komprimovany soubor se pri spusteni rozbaluje do pameti a
udajne by to v nekterych pripadech melo byt i rychlejsi. Ja jsem zatim na
zadny problem s takto komprimovanym souborem nenarazil. Dokonce se mi
zmensil i pocet instalacnich
disket, nebot kompresni pomer takto komprimovaneho souboru je podstatne
vetsi nez komprimace z
InstallShieldu Pokud mate nekdo jine zkusenosti, ozvete se , myslim, ze to
bude zajimat vice lidi.
Zaplik
Zaplik(zv)volny(tec)cz
Doba spusteni programu office, zahlcena pamet
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.9.2000 10:53:49
On 19 Sep 2000, at 19:09, bejcek(zv)centrum(tec)cz wrote:
> Jinak take bych potreboval vedet jak shodit pamet, ktera se mi
> neustale hlti, tj. jestli ji mohu bez rizika uvolnit a jak!
Delphi neni VB, takze se o uvolnovani pameti musi starat
programator. Odmenou za tuto starost je vsak mnohem vice
moznosti, ktere se s Delphi daji podnikat.
Hodne zalezi na tom, jakym zpusobem pamet alokujes. Je nekolik
skupin alokacnich a dealokacnich rutin, ktere neni vhodne
vzajemne michat.
Oobjekty se zpravidla alokuji a dealokuji pomoci konstruktoru a
destruktoru (napriklad Xxx := Create a Xxx.Free - velice
zjednodusene).
Pak tu jsou skupiny New a Dispose, GetMem a FreeMem (zde je
vice dalsich rutin), SetLength. Kazda tato skupina se pouziva na
neco jineho, blize viz dokumentaci.
Dlasi pravidlo je nepouzivat rozsahla staticka pole, ale radeji
dynamicka, a to pouze na dobu nezbytne nutnou.
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
Prid�n� polozky do tab. PARADOXU v RunTime
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 20.9.2000 09:57:13
> Ahoj vsichni,
>
> potreboval bych poradit se SUBJ. V helpu k BDE jsem nasel funkci DbiDoRestucture, ktera by to mela udelat. Dokonce k ni je i priklad. V prikladu ovsem chybi varianta pridani nove polozky. Nemate pr>
> Cau Jin
>
Zkus SQL prikaz Alert.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Udalost pri maximalizaci
[*] Tom� Matou�ek - 20.9.2000 11:00:21
Muzes to delat pres message WM_SIZE:
(uryvek z helpu)
----------
The WM_SIZE message is sent to a window after its size has changed.
WM_SIZE
fwSizeType = wParam; // resizing flag
nWidth = LOWORD(lParam); // width of client area
nHeight = HIWORD(lParam); // height of client area
fwSizeType
Value of wParam. Specifies the type of resizing requested. This parameter
can be one of the following values:
Value Meaning
SIZE_MAXHIDE Message is sent to all pop-up windows when some other window is
maximized.
SIZE_MAXIMIZED Window has been maximized.
SIZE_MAXSHOW Message is sent to all pop-up windows when some other window
has been restored to its former size.
SIZE_MINIMIZED Window has been minimized.
SIZE_RESTORED Window has been resized, but neither the SIZE_MINIMIZED nor
SIZE_MAXIMIZED value applies.
nWidth
Value of the low-order word of lParam. Specifies the new width of the client
area.
nHeight
Value of the high-order word of lParam. Specifies the new height of the
client area.
---------------
do deklaraace formu dej:
procedure OnWMResize(var Msg:TWMSize);message WM_SIZE;
procedure TSomeForm.OnWMResize(var Msg:TWMSize);
begin
if Msg.SizeType=SIZE_MAXIMIZED then {do something}
end;
Tomas Matousek
matousek(zv)havit(tec)cz
ICQ: 84305175
> Mam dotaz asi hloupy, lec trapi mne:-)
> Potrebuji pri prechodu aplikace z minimalizovane formy do normalu vyvolat
> nejakou udalost.
> Nasel jsem event TApplication.OnRestore ale zda se ze jsem uplne vedle,
nebo
> ji neumim pouzivat. Nic se totiz nevola. Za kazdou radu predem mnohokrat
> dekuji:-)
> J. Vojt.Pridani menu do aplikace
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 20.9.2000 11:25:14
Ahoj lidi.
Zbysek Hlinka pise:
> MainMenu.Add(NewItem('Blah', 0, false, true, MainForm.Click, 0,
> 'Bububu'));
Toto funguje na aplikaci vytvorenou mnou. Ja ale potrebuji pridat menu do
aplikace uplne jine. Priklad: moje aplikace Pridejmenu prida nabidku do
aplikace NetscapeCommunicator. Z teto aplikace po stisknuti meho menu pak
bude volan kod napsany mnou.
Predem dekuji Jirka
Kde je chyba v hookovani mysi?
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 20.9.2000 11:29:31
Zdravim,
trochu si hraju s hookovanim, ale nejak mi to nefunguje. Reaguje to jenom v
klientske oblasti vlastni aplikace.
Delal jsem to podle prikladu, ktery se tu v konfere kdysi objevil.
Muzete mi nekdo poradit, kde delam chybu?
Pouzivam D3Std.
Diky
Petr
Kod nasleduje:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Zjistuj: Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
HookHandle: DWord;
implementation
{$R *.DFM}
function MouseHook(Code: Integer; wParam: LongInt; lParam: LongInt):LongInt;
stdcall;
var X, Y: Integer;
begin
X := PMouseHookStruct(lParam).pt.x;
Y := PMouseHookStruct(lParam).pt.y;
if wParam = 512 then
begin
Form1.Edit1.Text := IntToStr(X);
Form1.Edit2.Text := IntToStr(Y);
end;
if Integer(Code) < 0
then Result := CallNextHookEx(HookHandle, Code, wParam, lParam)
else Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Zjistuj then
begin
HookHandle := SetWindowsHookEx(WH_MOUSE, (zv)MouseHook, 0,
GetWindowThreadProcessId(Handle, nil));
if HookHandle = 0 then
begin
ShowMessage('Nemohu zahajit hakovani.');
end else
begin
Button1.Caption := 'Stop';
Zjistuj := true;
end;
end else
begin
if HookHandle <> 0 then
begin
if UnHookWindowsHookEx(HookHandle) then
begin
Button1.Caption := 'Start';
Zjistuj := false;
end else
ShowMessage('Nemohu ukoncit hakovani.');
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Zjistuj := false;
end;
end.Jak priinstalovat balicek IbObject
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 20.9.2000 11:57:05
----- P�vodn� zpr�va -----
> Zdravim vsechny,
>
> mam problem pri instalaci IbObject. Stale mi to vyhazuje chybovou hlasku:
> "[Fatal Error] IB_Editors.pas(17): Unit IB_Components was compiled with a
> different version of IB_Constants.IB_VERSION_SUB_RELEASE".
> Nevite nekdo co s tim?
>
> Predem dekuji
> Petr
U zdrojovych kodu IBObjects by mely byt archivy D4_DCU.zip, D5_DCU.zip ve
kterych
je cast zkompilovanych unitu nezapomnel jsi to rozbalit???Kliknuti mysi
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 20.9.2000 12:01:57
Zdravicko vsichni, potreboval bych poradit s jednou drobnosti... A to:
potrebuju donutit mysku klepnout na urcite misto na obrazovce.Nezajima me,
co je pod kurzorem, proste na to misto potrebuju klepnout. Existuje neco
jako ClickHere(x, y:integer); ? Pohybuju s ni pomoci SetCurcorPos(x, y);
Za vsechny odpovedi predem diky.
Batex - admin DDM Astra Frenstat p. R.Prid�n� polozky do tab. PARADOXU v RunTime
[*] delphi <delphi(zv)enterkosice.sk> - 20.9.2000 12:01:49
> DbiDoRestucture, ktera by to mela udelat. Dokonce k ni je i priklad. V
> prikladu ovsem chybi varianta pridani nove polozky. Nemate prosim nekdo
kus
......ale urcite to tam niekde je:
type
TChangeRec = packed record
szName: DBINAME;
iType: word;
iSubType: word;
iLength: word;
iPrecision: byte;
end;
var NewField: TChangeRec; NewField.iType := FldTypeMap[ TFieldType ];
NewField.iSubType := FldSubTypeMap[ to iste ];
FldTypeMap a FldSubTypeMap -> DBTables
TFieldType -> DB
DBINAME -> BDE
AddField(Table1, NewField);
procedure AddField(Table: TTable; NewField: TChangeRec);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
pFlds: pFLDDesc;
pOp: pCROpType;
B: byte;
begin
if Table.Active = False then
raise EDatabaseError.Create('Tabulka musi byt otvorena');
if Table.Exclusive = False then
raise EDatabaseError.Create('...ked otvorena, tak exkluzivne');
Check(DbiSetProp(hDBIObj(Table.Handle), curxltMODE, integer(xltNONE)));
Check(DbiGetCursorProps(Table.Handle, Props));
pFlds := AllocMem((Table.FieldCount + 1) * sizeof(FLDDesc));
FillChar(pFlds^, (Table.FieldCount + 1) * sizeof(FLDDesc), 0);
Check(DbiGetFieldDescs(Table.handle, pFlds));
for B := 1 to Table.FieldCount do begin
pFlds^.iFldNum := B;
Inc(pFlds, 1);
end;
try
StrCopy(pFlds^.szName, NewField.szName);
pFlds^.iFldType := NewField.iType;
pFlds^.iSubType := NewField.iSubType;
pFlds^.iUnits1 := NewField.iLength;
pFlds^.iUnits2 := NewField.iPrecision;
pFlds^.iFldNum := Table.FieldCount + 1;
finally
Dec(pFlds, Table.FieldCount);
end;
pOp := AllocMem((Table.FieldCount + 1) * sizeof(CROpType));
Inc(pOp, Table.FieldCount);
pOp^ := crADD;
Dec(pOp, Table.FieldCount);
FillChar(TableDesc, sizeof(TableDesc), 0);
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
StrPCopy(TableDesc.szTblName, Table.TableName);
StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.iFldCount := Table.FieldCount + 1;
Tabledesc.pfldDesc := pFlds;
TableDesc.pecrFldOp := pOp;
Table.Close;
try
Check(DbiDoRestructure(hDb, 1, (zv)TableDesc, nil, nil, nil, FALSE));
finally
FreeMem(pFlds);
FreeMem(pOp);
Table.Open;
end;
end;
forgo
O.T. velikost exe souboru
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 20.9.2000 12:10:27
Pouzivam ASPack a nenarazil jsem na zadny problem. Aplikace ma pre
pakovanim 3.3MB a po zapakovani 720KB.
Problem u podobne zapakovanych souboru je tehdy pokud se pousti vickrat
na jedne masine, pak nejdou sdilet data v pameti a zabira to v RAMce vic
nez nezapakovane, to je ale trosku zvlastni pripad.
Pavel
ruseni datamodulu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 20.9.2000 12:31:57
Zkusme tuto "stupidni" metodu:
TMyThread = class(tthread)
public
MuzeBytZrusen:boolean;
DM:tdatamodule;
end;
tmythread.execute;
begin
muzebytzrusen:=false;
while not terminated do begin
cokoliv
end;
muzebytzrusen:=true;
while DM <> nil do sleep(100);
end;
a v hlavnim toku v idle
if mythread.muzebytzrusen then DM.free;
DM:=nil;
// toto nevim jak funguje v D5 v D3 free znamena vymazani pointeru,
na nil se musi preklopit rucne.
Martin
P.S. Je to stupid reseni. spravne by se to melo delat pomoci
waitforsingleobject(signalDMFree apod..... jenze takto si to
muzes alespon vyzkouset a pak prepsat. Je tu samozrejme
par spornych bodu, jako jestli se vubec k tomu smazani dostanes
apod, ale ja ze zkusenosti vim, ze jak by to melo fungovat
dle mych predstav je jen me zbozne prani.
Ted me ale napada. Datamodul je potomek TForm? Pokud ano,
tak se nekde vede seznam formu. A neuzavira se nahodou
dialog tohoto typu pomoci release?
P.S.2
Taky bys mi mohl helpnout. Nekdy se to na jednotky nevysle a ja
uz kurva nevim, proc. Budto mi zamknes vetu, neuvolnis a ja pak
sedim dokud neni volna nebo to dela z jednotky. Jen nemuzu
vysledovat zadne zavislosti navic, tady to nedela.
Martin
----- Original Message -----
> Ahoj,
> zkusil jsem dat uvolneni datamodulu do synchronize, ale nepomohlo to.
> Jak mam tedy zrusit datamodul, ktery byl vytvoren ve vlakne a jeho
> vlastnikem
> je aplikace? Jak rici aplikaci at zrusi konkretni datamodul ?
O.T. velikost exe souboru
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 20.9.2000 12:34:52
No tak to bud rad,
ja ti dam jeden priklad, ktery me pekne potrapil.
Spakoval jsem si vlastni EXE UPXem. Exe mj. zjistoval
verzi sebe sama z resource. Jenze na nekterych WinNT (rikam
nekterych, spise takovych, kde je nainstalovano kde co) to
proste pri cteni resourcu padalo. Kdybych si to neodkrokoval
taky bych tomu neveril. Nerozpakovany (krokovany) program totiz
fungoval. Tak jsem si daval showmessage na mista, ktera se
mi nelibila az jsem to nasel. Varuju.
Martin
----- Original Message -----
> Pred jistou dobou zde byla debata na zmenseni velikosti exe souboru. Ted
> jsem v jednom nejmenovanem casopise nasel program, ktery je shopen exe
> soubor radikalne zmensit. Na
> http://wildsau.idv.uni-linz.ac.at/mfx/upx.html
> http://www.nexus.hu/upx
> http://upx.tsx.org
> je volna verze. Ja jsem ji testoval na sve aplikaci, ktera ma neco kolem
3,5
> MB a vysledny soubor po zabaleni mel velikost cca. 900 KB !!!!!!!
> Autori uvadi, ze komprimovany soubor se pri spusteni rozbaluje do pameti a
> udajne by to v nekterych pripadech melo byt i rychlejsi. Ja jsem zatim na
> zadny problem s takto komprimovanym souborem nenarazil. Dokonce se mi
> zmensil i pocet instalacnich
> disket, nebot kompresni pomer takto komprimovaneho souboru je podstatne
> vetsi nez komprimace z
> InstallShieldu Pokud mate nekdo jine zkusenosti, ozvete se , myslim, ze to
> bude zajimat vice lidi.
>
vytvoreni list boxu
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 20.9.2000 12:43:02
Mam dotaz potrebuju za behu programu vytvorit listbox delam to nasledovne
list:tlistbox;
begin
list:=Tlistbox.Create(form1);
list.Width:=300;
list.ParentBiDiMode:=true;
list.Height:=100;
list.Left:=0;
list.Top:=0;
list.Enabled:=true;
list.visible:=true;
list.Items.Add('dhhsghh');
ovsem rve mi to, ze neexistuje rodicovske okno v cem je prosim problem
J.Vojt.Pridani menu do aplikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.9.2000 12:52:18
> Ahoj lidi.
>
> Zbysek Hlinka pise:
>
> > MainMenu.Add(NewItem('Blah', 0, false, true, MainForm.Click, 0,
> > 'Bububu'));
>
> Toto funguje na aplikaci vytvorenou mnou. Ja ale potrebuji pridat menu do
> aplikace uplne jine. Priklad: moje aplikace Pridejmenu prida nabidku do
> aplikace NetscapeCommunicator. Z teto aplikace po stisknuti meho menu pak
> bude volan kod napsany mnou.
>
obavam se ze toto nepujde. Pokud to v nejake aplikaci uvidis pak je to
reseno na bazi nejakeho plugin interface. I kdybys pridal polozku do menu
stejne prislusnou udalost bude obsluhovat dana aplikace a nikoliv tvuj kod.
Zdravi
Dalibor Toman
ruseni datamodulu
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 20.9.2000 13:24:53
Z komponentami DBISAM nemal zial ziadne skusenosti, ale viem z vlastnej
skusenosti, ze proceduru free nemozem pouzival vo vlakne a preto treba
pouzit miesto objektu, ktory nieje threadsafe objekt ktory je napr. miesto
TList treba pouzit vo vlakne TThreadList. TFont, TPen, TBrush, TBitmap,
TMetafile, alebo TIcon su threadsafe. Blizsie kukni help k synchronize.
Bohdan Pomsahar
----- Original Message -----
From: "Michal Jiskra" <jiskra(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 20, 2000 9:32 AM
Subject: Re: ruseni datamodulu
> Ahoj,
> zkusil jsem dat uvolneni datamodulu do synchronize, ale nepomohlo to.
> Jak mam tedy zrusit datamodul, ktery byl vytvoren ve vlakne a jeho
> vlastnikem
> je aplikace? Jak rici aplikaci at zrusi konkretni datamodul ?
>
> Michal
>
>
> ----- Original Message -----
> From: Bohdan Pomsahar <bpomsahar(zv)nocomment.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, September 19, 2000 2:05 PM
> Subject: Re: ruseni datamodulu
>
>
> > ak sa nemilim tak .free nieje threadsafe, coz znamena, uvolnovanie by
malo
> > byt az mimo vlakna:)
> >
> > Bohdan Pomsahar
> >
> > ----- Original Message -----
> > From: "Michal Jiskra" <jiskra(zv)eskon(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Tuesday, September 19, 2000 9:12 AM
> > Subject: ruseni datamodulu
> >
> >
> > > Ahoj,
> > > v mojem programu obcas dojde pri ruseni datamodulu k chybe
> > > v unitu classes v metode TList.IndexOf. Program je vicevlaknovy
> > > datamoduly si vytvarim dynamicky v kazdem vlakne zvlast. V metode
> > > OnCreate nastavuji pouze property "name" session a database a pak
> > > je prirazuji jednotlivym komponentam TQuery a TTable. V metode
> > > OnDestroy nemam nic. Pro nazev session pouzivam AutoSessionName,
> > > pro nazev DataBaze pouzivam citac, ktery zvisuju po kazdem prirazeni
> > > jmena databazi(je osetren pro provoz ve vlaknech).
> > > Je dulezite rici, ze pouzivam komponenty DBISAMu v kombinaci se
> > > standardnimi komponentami Delphi. Z DBISAMu pouzivam DBISAMDataBase,
> > > DBISAMSession a DBISAMTable. Na konci vlakna volam DM.Free. Tuto
metodu
> > > volam v klauzuli finally, tzn. i kdyz se datamodul nevytvori. Co se
> stane
> > > kdyz se
> > > datamodul nejakym zpusobem nevytvori korektne a ja pak zavolam
DM.Free?
> > > Zadnou komponentu z DataModulu sam nerusim. Je mozne, aby se nejaka
> > > komponenta zrusila sama pri nejake chybe?
> > >
> > > Vitam kazdou radu, pripominku.
> > >
> > > Diky.
> > >
> > > S pozdravem
> > >
> > > Michal Jiskra
> > >
> > >DFM v balickach
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 20.9.2000 13:57:47
Ahoj,
obcas potrebuji do balicku vlozit formular s DFM souborem. Mam vsak casto problem, ze mi pak aplikace ve ktere chci takovy formular pouzit hlasi, ze nemuze DFM najit. Nakonec jsem to vzdy vyresil tak, ze jsem vlozil unitu s formularem v DPR projektu (tedy vcetne cesty), ale to se mi nezda nejelegantnejsi. Kam je treba nastavit cestu kde by melo Delphi hledat DFM soubory?
Dik Honza +
Zmena predka formulare
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 20.9.2000 14:05:45
Ahoj,
mam vice projektu, ktere pouzivaji spolecne formulare. Ty jsou odvozeny od jednoho predka. Ten predek je ale v kazdem projektu jiny (stejne se jmenuje, ale je jinde umisteny). Zda se, ze to funguje, ale obcas se mi ztraci nastaveni udalosti, coz dosti zamrzi.
Nevite nakolik je tento zpusob cisty vuci Delphi? S normalnimi objekty neni problem, ale nemuze to nekdy provest neco s DFM soubory? A nevite nekdo co muze zpusobit ztraceni nastaveni udalosti?
Dik Honza +
Hledani formularu v projektu
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 20.9.2000 14:11:24
Ahoj,
chtel jsem se podelit o jeden zazitek s delphinama. Hodne pouzivam dedeni formularu a jednou se mi stalo, ze najednou mi nemohlo Delphi IDE najit predka vsech formularu. Zjistil jsem, ze to zpusobila chybejici poznamka za uvedenim knihovny v uses v .DPR souboru - A to jsem opravdu necekal :-)
Honza +
Neakceptuje INTO v Selecte
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.9.2000 14:18:29
Zdravim.
Takto definujem trigger a on mi pise ze sa mu napaci INTO:
----------------------------------------------------------------------------
-------
SET TERM ## ;
CREATE TRIGGER DPHPRIZNANIE_UPDATE FOR DPHPRIZNANIE BEFORE UPDATE POSITION 0
as
DECLARE VARIABLE pocet integer;
begin
IF (OLD.UCETUCS<>NEW.UCETUCS) THEN
BEGIN
SELECT COUNT(*) INTO :pocet FROM DPHPRIZNANIE WHERE ROK=OLD.ROK AND
UCETUCS=OLD.UCETUCS;
IF pocet=0 THEN UPDATE UCTROZ SET SLEDDPH=0 WHERE ROK=OLD.ROK AND
UCETUCS=OLD.UCETUCS;
UPDATE UCTROZ SET SLEDDPH=1 WHERE ROK=NEW.ROK AND UCETUCS=NEW.UCETUCS;
END
end##
SET TERM ; ##
--------------------------------------------------------------------
Dakujem za radu.
Roland.
Kde je chyba v hookovani mysi
[*] Grind Crusher <Grind_Crusher(zv)DeathsDoor(tec)com> - 20.9.2000 14:22:38
Hookovat mys systemove lze pouze z knihovny (aspon to tvrdi Microsoft).
Ja to nikdy nezkousel z programu, ale vim, ze z dll to chodi dobre.
Mela by byt v systemovem adresari, aby k ni mely pristup vsechny aplikace.
Grind Crusher.OT: nevi nekdo co to je SQV nebo SQW
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 20.9.2000 14:27:04
Zdravim vsechny,
omlouvam, se za OT, ale nevi nekdo nahodou co je to SQV nebo SQW. Ma to mit
neco spolecneho s Unixem a Web serverem.
Diky
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Kde je chyba v hookovani mysi
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 20.9.2000 14:40:59
V tom pripade, nevite nekdo, jak zjistovat barvu bodu, ale kdekoliv na
obrazovce, a to tam, kde se zrovna nachazi mys? Normalne zjistim pozici mysi
akorat v ramci sve aplikace. Nechce se mi kvuli jednoduchemu programku delat
dll knihovnu.
Petr
>
> Hookovat mys systemove lze pouze z knihovny (aspon to tvrdi
> Microsoft).
> Ja to nikdy nezkousel z programu, ale vim, ze z dll to chodi dobre.
> Mela by byt v systemovem adresari, aby k ni mely pristup
> vsechny aplikace.
>
> Grind Crusher.
> Delphi5 vs win2000
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 20.9.2000 14:43:13
Cetl sem v archivu, ze mnoho lidem chodej D5 pod winama2000. Mne se je podarilo nainstalovat
ale pri snaze zkompilovat aplikaci to hodi chybu:
DEBBUGER KERNELL BORDBK50.DLL IS MISSING OR NOT REGISTERED.
Nemate s tim nekdo skusenost?
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Instalace programu ve Win2000
[*] azeleny(zv)csas(tec)cz - 20.9.2000 14:51:50
> Mam novy zajimavy poznatek. Instaloval jsem a cekal, cekal, cekal,
> pak jsem ukoncil MS Outlook a v tu ranu jsem se dockal.
> Prijde mi to dost nesmyslne, ale fakt to tak bylo.
Aniz bych chtel cokoliv kamkoliv malovat, natoz pak certy na zed...
Pokud ta instalace pouziva prikazovy radek (cmd) a chce z nej spustit neco
co pouziva DDE (casto o tom ani nevite...), tak vezte ze volani DDE je
blokujici, cehoz peknou ukazkou je prave ten Outlook. Mel jsem radu
podobnych problemu a me volani DDE vzdy cekalo ve fronte... bylo treba
najit, kterou aplikaci ukoncit a program se rozebehl. To plati i na NT4,
nevim jak vir9x
a.Redistribuce BDE chyba $3E06
[*] azeleny(zv)csas(tec)cz - 20.9.2000 15:01:34
DDV,
> Kdysi jsem se take snazil prinutit IS k instalacei BDE a mel jsem
> podobny problem (a spoustu jinych).
> Pokud se pamatuji, tak pricinou bylo, ze IS nedoplnil pri instalaci
> hodnotu klice DLLPath a nechal ho prazdny. Ten klic obsahuje cestu k
> DLLkam BDEcka. Pri full instalaci tam hodnota byla. Po jejim rucnim
> doplneni v pripade partial instalace se to taky rozbehlo.
Uff, udelal jsem plnou redistribuci bez SQL linku a ono to opravdu chodi,
podivam se, zda byl rozdil v teto polozce a pokud jo... DIKY!!!
> A nebo zkus to, co tady doporucuji vlastne vsichni: utect od BDE :-(
No, je treba priznat, ze je to v D4 nejjednodussi zpusob, jak se pripojit k
Access tabulce, nebo cemukoliv jinemu pres ODBC (nebot netivni ovladac jsem
nerozebehnul), jinak do Interbase samozrejme nechodim pres BDE... uz je to
moooc davno, kdy jsem pro IB pouzil BDE:-)
a.Redistribuce BDE chyba $3E06
[*] azeleny(zv)csas(tec)cz - 20.9.2000 15:07:42
> A mas u vsech DLL knihoven BDE v installshieldu povolene volani
> self-register rutiny ???
Uff, nenasel jsem tam takovou volbu, kde se to nsatavuje?
Diky a.vytvoreni list boxu
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 20.9.2000 15:20:29
Skus pridat riadok
List.Parent := Form1;
malo by to fungovat
Bohdan Pomsahar
----- Original Message -----
From: "Vojtek Jiri" <j_vojtek(zv)del(tec)cz>
To: "Delphi prispevky" <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 20, 2000 12:43 PM
Subject: vytvoreni list boxu
> Mam dotaz potrebuju za behu programu vytvorit listbox delam to nasledovne
> list:tlistbox;
> begin
> list:=Tlistbox.Create(form1);
> list.Width:=300;
> list.ParentBiDiMode:=true;
> list.Height:=100;
> list.Left:=0;
> list.Top:=0;
> list.Enabled:=true;
> list.visible:=true;
> list.Items.Add('dhhsghh');
> ovsem rve mi to, ze neexistuje rodicovske okno v cem je prosim problem
> J.Vojt.ladeni ulozenych procedur
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 20.9.2000 17:33:58
Tak o tom pochybuju, ale BETY byvaj za dara :)))))
Petr Fischer
> Ahoj,
>
> dodava to tady nekdo v republice?
>
> Diky
>
> Slavek
>
> > _Vynikajici_ nastroj pro spravu databazi na IB6 je QuickDesk
> > (momentalne verze 1.7 beta, takze tam jsou nejake mouchy, ale i tak
> > jde asi o to nejlepsi co sem na IB6 zatim videl).
> >
> > Viz. http://ems-hitech.com/quickdesk/
> >
> > Petr Fischer
Problem s DbiIsRecordLocked
[*] Flon <flon(zv)pobox.sk> - 20.9.2000 17:37:41
Zdravim vsetkych !
Skusal som pouzit fnk. DbiIsRecordLocked, ale akosi mi to blbne. Pouzil som to tak ako v BDE API Examples na Inprise...
var
Locked: Boolean;
begin
Table.UpdateCursorPos;
Check(DbiIsRecordLocked(Table.Handle, Locked)); ---> Tu mi to pri kompilacii vypise chybu: Types of actual and formal var parameters must be identical.
Pomoze niekto...?
Vdaka...Flon...D3,BDE 4.00
Praca s ARP tabulkami
[*] Jammic <Jammic(zv)canex.sk> - 20.9.2000 19:26:45
Dobry den !
Mate niekto skusenosti s pridavanim poloziek do ARP/RARP tabuliek, bez
pomoci utility arp.exe.
S pozdravom
Michal Perdoch
Instalace programu vcetne IB6
[*] Jan Naiser <tua(zv)wo(tec)cz> - 20.9.2000 19:43:47
Preji pekny den,
D5P
doposud jsem mensi aplikace, ktere nemely predpoklad prace v siti delal nad
PX a BDE. S tim nebyly problemy a instalaci zvladl i "prumerny" uzivatel. Se
zmenami v IB a prechodem na IB6 by bylo prijemne prejit i s temito
aplikacemi na platformu IB.
Kusovky se daji nainstalovat - zvlast IB a zvlast aplikace.
Ale - da se pomoci IS (express) napsat instalace programu, ktera by zaroven
nainstalovala i IB6, v pripade, ze neexistuje?Nebo je nutno zvlast
nainstalovat IB a klasicky instalovat aplikaci? Pripadne nainstalovat
aplikaci a pri prvnim spusteni detekovat, je-li IB nainstalovana a pokud
neni, spustit instalak IB?
Jake s tim mate zkusenosti.
Za odpovedi dekuji.
Honza Naiser.
Doba spusteni programu office, zahlcena pamet
[*] <bejcek(zv)centrum(tec)cz> - 20.9.2000 19:47:39
Zase neco,
Ja Vam dam zabrat co?
Zjistim nekde jak dlouho je spusteny nejaky program? Pripadne
take je-li aktivni (vysviceny) nebo na pozadi, ci minimalizovany?
Jinak take bych potreboval vedet jak shodit pamet, ktera se mi
neustale hlti, tj. jestli ji mohu bez rizika uvolnit a jak!
To vite mesic v Delphi je jen mesic v Delphi.
S uctou a s hlavou az u zeme ooooo mocni magove
amater vsech amateru
Ale� Pavel (Talpa)
Jeron�mova 981
Havl��k�v Brod
580 01
E-mail: ales(zv)cml(tec)cz nebo Ales.Pavel(zv)worldonline(tec)cz
Tel: 0451/427374
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz