Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Sinea a onstepdata v detailu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.10.2002 00:31:58
> From: Roman
>
> Mam dve memory tabulky, master a detail. Jejich obsah pak
> chci rucne predat
> do sestavy pomoci OnGetData, OnStepData. V detailu sestavy se
> mi vsak tiskne
> porad pouze prvni zaznam. Pokud pripojim k TSestDetail primo
> DataSource, tak je vse v poradku.
>
> Obsluha OnGet a OnStep vypada takto:
Obsluhu OnGet a OnStep je potreba napsat pro obe tabulky.
Vazbu Master/detail mezi tabulkami je ale nutne
zajistit mimo generator sestav.
Vaclav Krmela
DTB Paradox a Formulare
[*] bugi <bugala_a(zv)centrum.sk> - 28.10.2002 06:27:01
Ahojte,
na hlavnom formulari mam DBGrid do ktoreho nacitavam /jednu z mnohych/
databazu.
Do Edit-u zadam nazov databazy a po kliknuti na tlacidlo sa spusti tato
obsluha:
procedure TForm1.Button2Click(Sender: TObject);
var
Y: Variant;
begin
Y := Edit1.Text;
Table1.Active := False;
Table1.DatabaseName := 'data';
Table1.TableName := Y;
Table1.Active := True;
end;
V premennej Y mam nazov databazy. Ked otvorim druhy formular pre pridavanie
zaznamov potrebujem nadstavit uz otvorenu databazu pre pridavanie, ale
ked tam dosadim premennu Y, ktora by mala obsahovat nazov databazy,
tak to nefunguje.
Do uses Unit-u2 som vlozil Unit1, ale aj tak to nepomohlo.
Vo Form2 som si dal vypisat premennu Y, ale je prazdna!
Skusil som premennu Y deklarovat mimo obsluhy tlacidla, ale ani to
nepomohlo.
Pri OnCreate Form2 by som potreboval nejak zistit nazov databazy, ktora
je prave otvorena vo Form1 a pomocou nejakej premennej ju odovzdat ako
parameter, ktory by som mohol zadat pre prepnutie databazy do rezimu
pridavania.
Y.Append; ---> toto nefunguje tiez ...
Vyskusal som uz kadeco, ale bezvysledne ... :-(
Kde robim chybu? Ako na to ?
Dik,
A
Bugala Alex - stredoskolak 2 roc.
-----------------------------------------------------
Win2000 Prof Cz - SP2
Delphi 3 Client / Server Suite
Datovy modul
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.10.2002 06:36:58
Menu File \ New... \ Data module
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.11.2002 bugi:
> Dakujem za odpovede a vysvetlenie, ale stale mi nie je jasne, ako
> ho vytvorim... niekde nieco napisem, vlozim, kus kodu, alebo co ...???
MIDAS
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.10.2002 06:53:52
> Odes�latel: CERMAK <CERMAK(zv)procom(tec)cz>
> Nevite nekdo zda se daji v D7 profesional vyvijet klienti vicevrstve
> aplikace vyuzivajici MIDAS? Server by se vyvijel pod Enterprise verzi.
Prave tento tyden skolim kurz "Delphi: Vicevrstve aplikace".
Na ucebne mam Delphi6Pro a staci mi to.
Jenom jsem si k tomu musel napsat DCOM propojeni mezi TDatasetProvider na aplikacnim serveru a TClientDataSet na klientovi. Par radku kodu.
Budu o tom mluvit na seminari Delphi 2003.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Sinea a onstepdata v detailu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 07:15:45
> > From: Roman
> >
> > Mam dve memory tabulky, master a detail. Jejich obsah pak
> > chci rucne predat
> > do sestavy pomoci OnGetData, OnStepData. V detailu sestavy se
> > mi vsak tiskne
> > porad pouze prvni zaznam. Pokud pripojim k TSestDetail primo
> > DataSource, tak je vse v poradku.
> >
> > Obsluha OnGet a OnStep vypada takto:
>
> Obsluhu OnGet a OnStep je potreba napsat pro obe tabulky.
> Vazbu Master/detail mezi tabulkami je ale nutne
> zajistit mimo generator sestav.
No ano, OnGet a OnStep nad Master tabulkou (v TSestava) funguje dobre (proto
jsem ty funkce neuvadel, jsou analogicke s temi, ktere jsem tu posilal, jen
pro jinou tabulku). Vazba mezi tabulkami je zajistena mimo generator
(Detail.MasterSource -> Master.DataSource,
Detail.MasterFields=Master.DetailFields).
Jak jsem psal, pokud pripojim k SestDet primo Datasource te detail tabulky,
tak je to v poradku (i kdyz TSestava plnim pomoci OnGet a OnStep), pokud tam
ty zaznamy plnim rucne, tak nejsem schopny prejit na dalsi zaznam. Tabulky
jsou tkbmMemTable.
Roman
==============================
http://kouzelne.misto(tec)cz
Sinea a onstepdata v detailu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.10.2002 07:43:32
> From: Roman
>
> > > V detailu sestavy se mi vsak tiskne
> > > porad pouze prvni zaznam. Pokud pripojim k TSestDetail primo
> > > DataSource, tak je vse v poradku.
Z te detail tabulky se tiskne prvni zaznam spravneho detailu,
nebo detail odpovidajici prvnimu master zaznamu?> Vazba mezi tabulkami je zajistena mimo generator
> (Detail.MasterSource -> Master.DataSource,
> Detail.MasterFields=Master.DetailFields).
Kdyz jsou to tabulky s pripojenym DataSource,
tak pro nepouzijes ten DataSource?
Proc si pridelavas praci s GetData, StepData?
Vaclav Krmela
DTB Paradox a Formulare
[*] Roman Newman <r.newman(zv)zmail.sk> - 28.10.2002 07:43:14
Ak som to spravne pochopil:
Ak chces aby premenna Y aj s hodnotou previedla do druheho unitu, musi byt
deklarovana v interface....implementation, niekde pod Form1:TForm1, ale
preco necitas nazov prave zvolenej tabulky prave z komponentu
Table1.TableName to je property.
Pri tom otvarani Form2 sa to da spravit takto:
.
.
implementation
Uses Unit1;
procedure FormCreate(Sender: TObject);
begin
ShowMessage(Form1.Table1.TableName);
end;
Alebo ak vytvaras formular Form2 dinamicky mozes mu prepisat constructor tak
aby pozadoval aj nazov tabulky.
Roman Newman
Datovy modul
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 28.10.2002 07:48:38
> Dakujem za odpovede a vysvetlenie, ale stale mi nie je jasne, ako
> ho vytvorim... niekde nieco napisem, vlozim, kus kodu, alebo co ...???
File/New a v dialogovem okne "New Items" na zalozce "New" si vyberes
"Data Module" a modul se ti priradi do projektu.
Jirka.
Re3x: Pad Delphi pri def. viceroz. konst. pole - j
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 28.10.2002 08:06:45
> > To uz me taky napadlo, ale zajimalo me, proc dochazi k te chybe.
>
> [Error] Project1.dpr(9): Incompatible types: 'Array' and 'Integer'
>
> Typ Variant navic nelze inicializovat pomoci typove konstanty, pouze az v dobe
> behu kodu.
>
> > Pouzitim recordu ale dojde k tomu, ze se na hodnoty nedostanu pomoci indexu
> > a to je skoda. Budu muset predelat system kodu. :(
>
> Co to napsat jako seznam objektu, pak lze udelat pristup dle libosti.
>
> Petr Vones
Mne se ten napad libi, ale s definici objektu mam zkusenosti temer 0. Poradite mi nekdo
jak uvedeny navrh vyresit nebo aspon nejakou literaturu (prosim v cestine - soucasti
delphi je knizka o object pascalu v anglictine), ktera by me dala priklad s nejakou
ukazkou?
Diky.Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
Sinea a onstepdata v detailu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 08:13:06
> > > > V detailu sestavy se mi vsak tiskne
> > > > porad pouze prvni zaznam. Pokud pripojim k TSestDetail primo
> > > > DataSource, tak je vse v poradku.
>
> Z te detail tabulky se tiskne prvni zaznam spravneho detailu,
> nebo detail odpovidajici prvnimu master zaznamu?
No, takhle: u kazdeho masteru se vytiskne spravny pocet detailu, jenom
hodnoty jsou porad z prvniho zaznamu. Ted se na to nemuzu podivat, ale
myslim, ze je to prvni zaznam spravneho detailu.
> > Vazba mezi tabulkami je zajistena mimo generator
> > (Detail.MasterSource -> Master.DataSource,
> > Detail.MasterFields=Master.DetailFields).
>
> Kdyz jsou to tabulky s pripojenym DataSource,
> tak pro nepouzijes ten DataSource?
> Proc si pridelavas praci s GetData, StepData?
Protoze tam potrebuju pridavat jeste nejake polozky navic, ktere v tech
tabulkach nejsou a nechci je tam zbytecne pridavat. A ten Datasource tam
normalne byt nema, ten tam je ted jen na zkousku.
Roman
==============================
http://kouzelne.misto(tec)cz
SQL - INSERT INTO ...
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 28.10.2002 08:25:40
Zdravim,
nevite proc nemuze byt v sql prikazu nazev pole password - zkousel jsem
tohle a sekalo se to na "password":
INSERT INTO awaiting (id, username, password) VALUES (123, "my name", "my
xxl")
Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
DTB Paradox a Formulare
[*] Ji�� Mat�jka�����^�F�צ����̿ - 28.10.2002 08:25:00
Prijde mi ze v promenne Y mas spis nazev tabulky nez databaze ...
Y := Edit1.Text;
Table1.TableName := Y;
Kazdopadne Y je deklarovana jako lokalni promenna v procedure
TForm1.Button2Click, takze z jine unity viditelna nebude. Zkus ji deklarovat
jako globalni v cele unite nebo jako public property Formu1...
Jirka Matejka
----- Original Message -----
From: "bugi" <bugala_a(zv)centrum.sk>
To: "Konfa Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 28, 2002 6:27 AM
Subject: DTB Paradox a Formulare
> Ahojte,
>
> na hlavnom formulari mam DBGrid do ktoreho nacitavam /jednu z mnohych/
> databazu.
> Do Edit-u zadam nazov databazy a po kliknuti na tlacidlo sa spusti tato
> obsluha:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> Y: Variant;
> begin
> Y := Edit1.Text;
>
> Table1.Active := False;
> Table1.DatabaseName := 'data';
> Table1.TableName := Y;
> Table1.Active := True;
> end;
>
> V premennej Y mam nazov databazy. Ked otvorim druhy formular pre
pridavanie
> zaznamov potrebujem nadstavit uz otvorenu databazu pre pridavanie, ale
> ked tam dosadim premennu Y, ktora by mala obsahovat nazov databazy,
> tak to nefunguje.
>
> Do uses Unit-u2 som vlozil Unit1, ale aj tak to nepomohlo.
>
> Vo Form2 som si dal vypisat premennu Y, ale je prazdna!
>
> Skusil som premennu Y deklarovat mimo obsluhy tlacidla, ale ani to
> nepomohlo.
>
> Pri OnCreate Form2 by som potreboval nejak zistit nazov databazy, ktora
> je prave otvorena vo Form1 a pomocou nejakej premennej ju odovzdat ako
> parameter, ktory by som mohol zadat pre prepnutie databazy do rezimu
> pridavania.
>
> Y.Append; ---> toto nefunguje tiez ...
>
> Vyskusal som uz kadeco, ale bezvysledne ... :-(
>
> Kde robim chybu? Ako na to ?
>
> Dik,
> A
>
>
>
> Bugala Alex - stredoskolak 2 roc.
> -----------------------------------------------------
> Win2000 Prof Cz - SP2
> Delphi 3 Client / Server Suite
>
>
>
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 21.11.2002
SQL - INSERT INTO ...
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 08:34:48
> Zdravim,
>
> nevite proc nemuze byt v sql prikazu nazev pole password - zkousel jsem
> tohle a sekalo se to na "password":
>
> INSERT INTO awaiting (id, username, password) VALUES (123, "my name", "my
> xxl")
>
> Jiri
Protoze to muze byt rezervovane slovo (nenapsals, co je to za DB).
Roman
==============================
http://kouzelne.misto(tec)cz
SQL - INSERT INTO ...
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 28.10.2002 08:38:12
> Protoze to muze byt rezervovane slovo (nenapsals, co je to za DB).
Je to Access - dalsi rezervovany slovo je images - existuje nejaky seznam
tehle slov ...
Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
SQL - INSERT INTO ...
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 08:48:17
> > Protoze to muze byt rezervovane slovo (nenapsals, co je to za DB).
>
> Je to Access - dalsi rezervovany slovo je images - existuje nejaky seznam
> tehle slov ...
No, nekde v napovede k Accessu ;-) urcite je jeste rezervovane 'text' a
tusim 'date' apod.
Btw. zkus nazev toho pole v dotazu napsat bud do ' nebo " nebo [.
Roman
==============================
http://kouzelne.misto(tec)cz
SQL - INSERT INTO ...
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 28.10.2002 08:52:28
Uzavri nazvy sloupcu (nebo i tabulek) do hranatych zavorek, to vypina
"vyznam" vyhrazenych identifikatoru.
INSERT INTO awaiting ([id], [username], [password]) VALUES (123, "my name",
"my
xxl")
Pavel
-----Original Message-----
From: Jiri Sedivec [mailto:jsedivec(zv)mail(tec)cz]
Sent: Thursday, November 28, 2002 8:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: SQL - INSERT INTO ...
Zdravim,
nevite proc nemuze byt v sql prikazu nazev pole password - zkousel jsem
tohle a sekalo se to na "password":
INSERT INTO awaiting (id, username, password) VALUES (123, "my name", "my
xxl")
Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
SQL - INSERT INTO ...
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 28.10.2002 09:04:19
Jo tohle pomohlo, perfekt ...> Uzavri nazvy sloupcu (nebo i tabulek) do hranatych zavorek, to vypina
> "vyznam" vyhrazenych identifikatoru.
> INSERT INTO awaiting ([id], [username], [password]) VALUES (123, "my
name",
> "my
> xxl")
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
SQL - INSERT INTO ...
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 28.10.2002 09:08:42
> > Protoze to muze byt rezervovane slovo (nenapsals, co je to za DB).
> Je to Access - dalsi rezervovany slovo je images - existuje
> nejaky seznam tehle slov ...
"mel" by byt soucasti popisu implementace SQL na Accessu.
nicmene, pokud das nazev polozky do uvozovek, tak by to melo sezrat.
ovsem, stejne bych se tomu preventivne vyhnul...
peca
SQL - INSERT INTO ...
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 28.10.2002 09:25:13
slovo v uvozovkach nepomohlo (divne) - ale hranate zavorky ano ...
> "mel" by byt soucasti popisu implementace SQL na Accessu.
> nicmene, pokud das nazev polozky do uvozovek, tak by to melo sezrat.
> ovsem, stejne bych se tomu preventivne vyhnul...
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
DBF<>INTERBASE
[*] Dalibor <dalibor(zv)torola(tec)cz> - 28.10.2002 09:40:26
Ahoj,
mam DBF FOXPRO(BDE) a tabulku v Interbase databazi, ktere maji
shodnou strukturu. Muzete mi poradit nejake inteligentni reseni,
prenaseni dat Z DBF na Interbase a opacne.
Potrebuji to udelat programove.
Dekuji (D5)
DBF<>INTERBASE
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 28.10.2002 09:49:27
komponenta BachMove alebo Borland Datapump
|| -----Original Message-----
|| From: Dalibor [mailto:dalibor(zv)torola(tec)cz]
|| Sent: Thursday, November 28, 2002 9:40 AM
|| To: delphi-l(zv)clexpert(tec)cz
|| Subject: DBF<>INTERBASE
||
||
|| Ahoj,
|| mam DBF FOXPRO(BDE) a tabulku v Interbase databazi, ktere maji
|| shodnou strukturu. Muzete mi poradit nejake inteligentni reseni,
|| prenaseni dat Z DBF na Interbase a opacne.
|| Potrebuji to udelat programove.
|| Dekuji (D5)
||
Popupmenu v komponente
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2002 09:53:38
Zdar,
> v komponente odvozene od TDBGrid vytvarim v constructoru
> vlastni PopupMenu, kt. zobrazuji po kliknuti pravym tlac.
> mysi. Polozky menu vytvarim za behu programu.
> Potreboval bych, abych mohl uz v dobe navrhu (tj. pomoci Obj.
> Insp., kliknu na "tri tecky" a muzu editovat obsah menu) vytvorit
> nejake polozky toho Popupmenu.
> Zkousel jsem: published PopupMenuitems:TMenuItem..., ale tudy
> cesta asi nevede.
> Muzete nekdo poradit jak na to?
unika mi pointa celeho Tvojho zameru. Kazdy potomok TControl ma vlastnost
PopupMenu. V pripade TDBGrid je tato vlastnost published, takze je pristupna
v object inspectore. Ako chces riesit konflikt, ked programator priradi
svoje vlastne PopupMenu?
Viem si predstavit, ze by si potreboval v komponente vytvorit nejake default
popupmenu, ktore by sa pouzilo len v pripade, ak nie je vlastnost PopupMenu
priradena (podobne ako je to v pripade TEdit). V tom pripade je to default
popupmenu asi staticke a nema zmysel, aby bolo editovatelne v designeri.
Skus blizsie popisat, co sa snazis dosiahnut.
TOndrej
Vytvoreni obecnych trid a dedicnost
[*] <raul(zv)raphael(tec)cz> - 28.10.2002 09:54:07
Zdravim,
mam problem s vytvorenim nekolika trid. Jedna se mi o dve
tridy:
1) DllWrapper - tato trida po vytvoreni nacte jednu dll,
vezme z ni informace o ni a ulozi je do svych vlastnosti.
Od ceho tuto nevisualni tridu odvodit ? od TObject ? jak
potom ma vypada constructor a destructor (direktivy
override, overload apod).
2) DllList - tato trida by se teoreticky dala odvodit od
tridy TList, ale pokud v metode connect (moje metoda
pridana) chci zavolat metodu add tridy tlist, hlasi mi
prekladac chybu, i kdyz pouziji self.add nebo podobne.
Proto bych se rad zeptal od ceho bych mel odvodit tyto dve
tridy a jak pak ma vypadat definice constructoru a
destructoru ? Zkousel jsem vse mozne a budto mi to
fungovalo ale ztracela se mi pamet, nebo mi to padalo pri
zavolani destructoru apod.. Podle knih a napovedy by to
melo jit oboji odvodit od TObject s tim ze v tride DllList
si object TList vytvorim sam v constructoru a v destructoru
ho zrusim, jakmile se ale vytvorim destructor tak mi to
pada pri jeho zavolani.
Kdyby nekdo vedel co a jak muzu mu poslat i kousek
zdrojaku.
Dekuji velice
Tomas Emresz
gbak
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.10.2002 09:57:43
Ahoj,
chci se zeptat, jestli nekdo pouzivate v nejakem ostrem vetsim provozu zalohu a
obnovu s pomoci komponent IBBackupService a IBRestoreService a jak se vam to
jevi stabilni?
Ja jsem behem vcerejska a dneska podnikl 7 (!) pokusu o obnovu ze zalohy a uspel
jsem v nula pripadech. gfix na databazi nenasel zadny problem, gbk soubor vznikl
nekolikrat a bez problemu. Vse prostrednictvim komponent IBBackupService a
IBRestoreService.
Ale proces obnovy se nikdy nepodaril, najednou to uprostred obnovovani na
nahodnem miste, pokazde jindy, napsalo ve 4 pripadech Lock manager out of room,
ackoli prislusny konfiguracni parametr ma hodnotu 200000, a ve zbyvajicich trech
pripadech opet na nahodnem miste hlasku Arithmetic exception, numeric overflow or
string truncation. Pritom ta hlaska je zcestna - poprve vznikla pri obnove tabulky, tak
jsem si dal vypsat jeji obsah selectem - a zcela bez problemu. Podruhe a potreti ta
hlaska vznikla pri obnove nejakeho indexu, coz je ovsem nesmysl. Pri obnove
indexu bych ji necekal a navic jde zjevne o nahodne misto a s tim, co se prave
obnovuje to nejspis nesouvisi.
Uvedena pozorovani me vedou k tomu, ze nejlepsi metoda zalohovani je vzit gdb
soubor, zkomprimovat ho a nekam odkopirovat, protoze je vysoce pravdepodobne,
ze s pripadnou obnovou ze zalohy pres gbak budou znacne problemy.
Verze LI-V6.2.796 Firebird 1.0 na linuxu.
David Lebeda
Pack v Accesse
[*] Ludo Fulop <kexo(zv)ynet.sk> - 28.10.2002 10:00:20
zdravim, pouzival som JRO pre pack v accesse, fungovalo to bez problemov
ako vsak spravim pack v zaheslovanej databaze? Nemam na mysli globalne heslo
ale "multiuser" databazu s *.mdw suborom
Ludo Fulop
Popupmenu v komponente
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 10:09:20
> Zdar,
>
> > v komponente odvozene od TDBGrid vytvarim v constructoru
> > vlastni PopupMenu, kt. zobrazuji po kliknuti pravym tlac.
> > mysi. Polozky menu vytvarim za behu programu.
> > Potreboval bych, abych mohl uz v dobe navrhu (tj. pomoci Obj.
> > Insp., kliknu na "tri tecky" a muzu editovat obsah menu) vytvorit
> > nejake polozky toho Popupmenu.
> > Zkousel jsem: published PopupMenuitems:TMenuItem..., ale tudy
> > cesta asi nevede.
> > Muzete nekdo poradit jak na to?
>
> unika mi pointa celeho Tvojho zameru. Kazdy potomok TControl ma vlastnost
> PopupMenu. V pripade TDBGrid je tato vlastnost published, takze je
pristupna
> v object inspectore. Ako chces riesit konflikt, ked programator priradi
> svoje vlastne PopupMenu?
Programator nepriradi ;-) a kdyz priradi tak ma smulu.
> Viem si predstavit, ze by si potreboval v komponente vytvorit nejake
default
> popupmenu, ktore by sa pouzilo len v pripade, ak nie je vlastnost
PopupMenu
> priradena (podobne ako je to v pripade TEdit). V tom pripade je to default
> popupmenu asi staticke a nema zmysel, aby bolo editovatelne v designeri.
> Skus blizsie popisat, co sa snazis dosiahnut.
Mam formular, ktery ma nekoliz PageControl s Gridy. Ty Gridy maji vzdy sve
popupmenu, ve kterem jsou vzdy polozky, ktere musi mit kazdy Grid:
zobrazeni sloupcu, nastaveni pisma, barev, vyhledani apod. Ja potrebuju,
abych si pred temi polozkami mohl zadat nejake, ktere jsou jen pro ten
urcity Grid (treba "Novy zaznam", "Tisk upominky"). Za behu programu k nim
pak programove pridam ty ostatni, ktere jsem popsal vyse.
Vim ze bych to mohl resit klasicky (tj. ke kazdemu gridu dam na formular
TPopupMenu), ale uz ted si dovedu predstavit ten zmatek na formulari,
nemluve o tom, ze jedno z tech Popupmenu (pro kazdy Grid) tam bude vzdy
zbytecne.
Roman
Komunikace mezi aplikacemi na ruznych strojich.
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.10.2002 10:15:12
Rika ti neco www.google.com nebo www.torry.net ?
zkus tam do vyhledavani zadat u googlu "Mailslot Delphi", u Torryho
"Mailslot".
Najdes jich tam tunu a nemusis cekat na odpoved z konference. Chapu, ze sem
da clovek dotaz pokud neco usilovne hleda a nemuze to najit, ale chce to
vyvinout alespon minimalni usili...
http://www.torry.net/lan_comms.htm
HTH
pl
----- Original Message -----
From: "Tomas Bihary" <delphi(zv)wige-mic(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 27, 2002 1:15 PM
Subject: Re: Komunikace mezi aplikacemi na ruznych strojich.> Prikladek na mailsloty by please nebyl?
>
> Dekuji
> Tomas Bihary
>
> ----- Original Message -----
> > > 1. klasicka komunikace TCP/IP pomoci komponent FastNet...
> > > 2. pomoci MailSlotu - asi ne protoze tam maji existovat nejake
> > >problemy pri komunikaci mezi domenou.
> > > 3. neco jsem zaslechl o moznosti vyuziti tzv. kuryrni sluzby od MS
> > >(Instant Messenger??), ale totalne nevim o co se jedna.
> > > 4. ??? neco jineho ???
> >
> > idealni je 2, kdyz to nebude fungovat, tak zjistit jmena stroju v siti
> (bylo
> > to ted nedavno v konferenci) a pak 1.
>
>Popupmenu v komponente
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2002 11:01:11
>> unika mi pointa celeho Tvojho zameru. Kazdy potomok
>> TControl ma vlastnost PopupMenu. V pripade TDBGrid
>> je tato vlastnost published, takze je pristupna v object
>> inspectore. Ako chces riesit konflikt, ked programator
>> priradi svoje vlastne PopupMenu?
>
> Programator nepriradi ;-) a kdyz priradi tak ma smulu.
Sorry, to je ale proti principom pisania komponent. Komponenty musia byt
kompaktne a blbuvzdorne, inak stracaju svoj zakladny vyznam: setrenie casu a
energie uzivatela - programatora.
> Mam formular, ktery ma nekoliz PageControl s Gridy. Ty Gridy
> maji vzdy sve popupmenu, ve kterem jsou vzdy polozky, ktere
> musi mit kazdy Grid:
> zobrazeni sloupcu, nastaveni pisma, barev, vyhledani apod. Ja
> potrebuju, abych si pred temi polozkami mohl zadat nejake,
> ktere jsou jen pro ten urcity Grid (treba "Novy zaznam", "Tisk
> upominky"). Za behu programu k nim pak programove pridam
> ty ostatni, ktere jsem popsal vyse.
> Vim ze bych to mohl resit klasicky (tj. ke kazdemu gridu dam
> na formular TPopupMenu), ale uz ted si dovedu predstavit ten
> zmatek na formulari, nemluve o tom, ze jedno z tech
> Popupmenu (pro kazdy Grid) tam bude vzdy zbytecne.
Ak som to spravne pochopil, potrebujes mat urcite polozky v popupmenu
spolocne pre kazdy grid a niektore specificke pre jednotlive gridy.
Je na to viacero moznosti, narychlo sem napisem, co ma prave napada:
1. Nadesignovat si jedno popup menu s tymi spolocnymi polozkami a priradit
ho v designeri kazdemu gridu. Potom si napisat kod na OnPopup event, ktory
bude dynamicky vytvarat dalsie polozky, podla aktualneho PopupComponent.
Pripadne sa tieto polozky daju aj nadesignovat ako samostatne popupmenu a v
OnPopup uz len merge-ovat s tym hlavnym.
2. Nadesignovat si jedno popupmenu so vsetkymi moznymi polozkami pre vsetky
gridy a v OnPopup podla aktualneho PopupComponent nastavovat ich Visible
pripadne Enabled.
3. Pouzit TActionList, naplnit ho vsetkymi moznymi akciami pre vsetky gridy,
nadesignovat si popup menu s polozkami ku kazdej akcii, a v OnUpdate menit
Visible pripade Enabled podla toho, na ktorom gride je to popupmenu prave
aktivne.
4. Pouzit frames a form inheritance: vytvorit si zakladny frame s gridom a
popupmenu obsahujucim tie spolocne polozky, a vytvorit si potomkov s
pridanymi dalsimi polozkami, ktore mozu byt potom umiestnene na ten
pagecontrol.
Snad Ta nieco z toho inspiruje,
HTH
TOndrej
Popupmenu v komponente
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 11:34:13
> Sorry, to je ale proti principom pisania komponent. Komponenty musia byt
> kompaktne a blbuvzdorne, inak stracaju svoj zakladny vyznam: setrenie casu
a
> energie uzivatela - programatora.
Tohle nema cenu resit, ta komponenta je upravena pro tu konkretni aplikaci,
nikde do sveta nepude. To published Popupmenu bych nejraci zrusil :-)
> Ak som to spravne pochopil, potrebujes mat urcite polozky v popupmenu
> spolocne pre kazdy grid a niektore specificke pre jednotlive gridy.
> Je na to viacero moznosti, narychlo sem napisem, co ma prave napada:
No tak nejak.
> 1. Nadesignovat si jedno popup menu s tymi spolocnymi polozkami a priradit
> ho v designeri kazdemu gridu. Potom si napisat kod na OnPopup event, ktory
> bude dynamicky vytvarat dalsie polozky, podla aktualneho PopupComponent.
> Pripadne sa tieto polozky daju aj nadesignovat ako samostatne popupmenu a
v
> OnPopup uz len merge-ovat s tym hlavnym.
To je ta sama situace, v jake jsem ted: kazdy grid ma svoje PopUp a navic
musi byt dalsi, ve kterem nadefinuju ty vybrane polozky.
> 2. Nadesignovat si jedno popupmenu so vsetkymi moznymi polozkami pre
vsetky
> gridy a v OnPopup podla aktualneho PopupComponent nastavovat ich Visible
> pripadne Enabled.
Tim ale budu muset predat spravu toho Gridu nekam mimo samotnou komponentu
(protoze polozky pro nastavovani gridu by byly v Popupmenu nekde na
formulari).
> 3. Pouzit TActionList, naplnit ho vsetkymi moznymi akciami pre vsetky
gridy,
> nadesignovat si popup menu s polozkami ku kazdej akcii, a v OnUpdate menit
> Visible pripade Enabled podla toho, na ktorom gride je to popupmenu prave
> aktivne.
Stejne jako 2.
> 4. Pouzit frames a form inheritance: vytvorit si zakladny frame s gridom a
> popupmenu obsahujucim tie spolocne polozky, a vytvorit si potomkov s
> pridanymi dalsimi polozkami, ktore mozu byt potom umiestnene na ten
> pagecontrol.
To to by bylo reseni, kdybych zacinal od zacatku. Jenze ja potrebuju
rozsirit funkcnost stavajici komponenty.
Me prijde nejrozumejsi, aby ten Grid mel published property MenuItems:
TMenuItem.
Tj. zadam tam v OI nejake polozky, ktera pak programove doplnim do nejakeho
Popupmenu (at uz vytvoreneho v constructoru Gridu nebo prirazeneho v
PopupMenu). Muj problem je, ze nevim, jak docilit zobrazeni toho "navrhare
menu" pro tuto property v design modu.
Dik za odpovedi,
Roman
==============================
http://kouzelne.misto(tec)cz
Spusteni ciziho programu v okne a cekani na jeho u
[*] Peter SKODA <peter(zv)korak.sk> - 28.10.2002 11:37:54
Mozes aj pouzit funkciu FindWindow cez ktoru budes kontrolovat
ci je okno danej funkcie spustene v nejakom cykle while.
----- Original Message -----
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 27, 2002 4:43 PM
Subject: RE: Spusteni ciziho programu v okne a cekani na jeho ukonceni
V JCL je na to funkce myslim WinExecAndWait nebo tak nejak podobne.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: Spusteni ciziho programu v okne a cekani na jeho ukonceni
Mam D6 Ent. a Win 2000.
Jde mi o nasledujici vec. Mam menu, kde jsou treba polozky JEDNA, DVE a
KONEC. Rad bych po kliknuti na polozce JEDNA spustil nejaky programek, treba
notepad. Pokud pouziju tohle WinExec(...); funguje to. Ale ja bych to chtel
jednak spustit v hlavnim okne peho programku a potom bych chtel, aby se cely
program dal zavrit, az kdyz bude zavrene i okno s notepadem.
Jak otevrit AcrobatReader v okne?
[*] <little_bobes(zv)centrum(tec)cz> - 28.10.2002 11:48:26
Zdravim,
nedavno se tu resilo programove otevreni PDF souboru.
Ja bych mel navazny dotaz:
jak toho Acrobata (pripadne i jiny program) otevrit v okne (MDIChild nebo
novy form) me aplikace?
Diky Bob
(D4 c/s)
Jak otevrit AcrobatReader v okne?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.10.2002 11:53:50
V menu system je OleContainer. Do nej so muzes vlozit Acrobat
Dalsi reseni je naimportovat typovou knihovnu a pak bys z toho mel mit
komponentu Acrobatu, kterou das na formular
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
28.11.2002 little_bobes(zv)centrum(tec)cz:
> Zdravim,
> nedavno se tu resilo programove otevreni PDF souboru.
> Ja bych mel navazny dotaz:
> jak toho Acrobata (pripadne i jiny program) otevrit v okne (MDIChild nebo
> novy form) me aplikace?
DBF<>INTERBASE
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 28.10.2002 12:15:28
ahoj,
pokud se chces vyhnout BDE, tak treba TDBF
{v zavorkach je zruseni a vytvoreni nove prazdne tabulky}
funguje to z FB do DBF obracene to snad zvladnes am :o):
procedure TFMain.mmExportDBFClick(Sender: TObject);
var
q: TIBQuery;
d: TDBF;
i, j: Integer;
f: TField;
begin
Screen.Cursor:=crSQLWait;
q:=TIBQuery.Create(FMain);
d:=TDBF.Create(FMain);
try
q.Database:=FDM.IBAGSKOT;
q.Transaction:=FDM.IBT;
d.FilePath:=ExtractFileDir(Application.ExeName);
d.OpenMode:=omAutoCreate;
d.Storage:=stoFile;
d.TableName:='SKOT.DBF';
{
if FileExists(d.FilePath+PathDelim+d.TableName) then
DeleteFile(d.FilePath+PathDelim+d.TableName);
d.FieldDefs.Clear;
d.FieldDefs.Add('USZNZ', ftString, 2);
d.FieldDefs.Add('USZN', ftString, 12);
d.FieldDefs.Add('PLEMENO', ftString, 4);
d.FieldDefs.Add('DATNAR', ftDate);
d.FieldDefs.Add('POHLAVI', ftString, 1);
d.FieldDefs.Add('MUSZNZ', ftString, 2);
d.FieldDefs.Add('MUSZN', ftString, 12);
d.FieldDefs.Add('MPLEMENO', ftString, 4);
d.FieldDefs.Add('LB', ftString, 3);
d.FieldDefs.Add('RB', ftString, 3);
d.FieldDefs.Add('OMLB', ftString, 3);
d.FieldDefs.Add('OMRB', ftString, 3);
d.FieldDefs.Add('VYRAZENO', ftString, 1);
d.FieldDefs.Add('DRUH', ftString, 1);
d.FieldDefs.Add('HOSP', ftString, 1);
d.FieldDefs.Add('SKOD', ftString, 2);
d.FieldDefs.Add('DATPOR', ftDate);
d.FieldDefs.Add('DATZM', ftDate);
d.CreateTable;
}
d.Open;
d.First;
while not d.eof do d.Delete;
d.PackTable;
q.SQL.Text:='select * from Skot';
j:=d.FieldCount-1;
q.Open;
q.First;
while not q.Eof do
begin
d.Append;
for i:=0 to j do
begin
f:=q.FindField(d.Fields[i].FieldName);
if Assigned(f) then
d.Fields[i].Value:=f.Value
else
d.Fields[i].Value:=null;
// pro sychr, jinac by to slo volat natvrdo
// d.Fields[i].Value:=q.FindField(d.Fields[i].FieldName).Value;
end;
d.Post;
q.Next;
end;
d.Close;
q.Close;
d.TableName:='POHZVR.DBF';
{
if FileExists(d.FilePath+PathDelim+d.TableName) then
DeleteFile(d.FilePath+PathDelim+d.TableName);
d.FieldDefs.Clear;
d.FieldDefs.Add('POHZVR', ftInteger);
d.FieldDefs.Add('POHDAVKA', ftInteger);
d.FieldDefs.Add('DAVKA', ftInteger);
d.FieldDefs.Add('HOSP', ftString, 1);
d.FieldDefs.Add('SKOD', ftString, 2);
d.FieldDefs.Add('USZNZ', ftString, 2);
d.FieldDefs.Add('USZN', ftString, 12);
d.FieldDefs.Add('POHYB', ftString, 2);
d.FieldDefs.Add('PKODD', ftString, 8);
d.FieldDefs.Add('SKODD', ftString, 2);
d.FieldDefs.Add('ZEME', ftString, 3);
d.FieldDefs.Add('DATUM', ftDate);
d.FieldDefs.Add('POZN', ftString, 40);
d.FieldDefs.Add('ZDKOD', ftString, 5);
d.FieldDefs.Add('DATPOR', ftDate);
d.FieldDefs.Add('DATZM', ftDate);
d.CreateTable;
}
d.Open;
d.First;
while not d.eof do d.Delete;
d.PackTable;
q.SQL.Text:='select * from PohZvr';
j:=d.FieldCount-1;
q.Open;
q.First;
while not q.Eof do
begin
d.Append;
for i:=0 to j do
begin
f:=q.FindField(d.Fields[i].FieldName);
if Assigned(f) then
d.Fields[i].Value:=f.Value
else
d.Fields[i].Value:=null;
end;
d.Post;
q.Next;
end;
d.Close;
q.Close;
d.TableName:='CISPOHYB.DBF';
{
if FileExists(d.FilePath+PathDelim+d.TableName) then
DeleteFile(d.FilePath+PathDelim+d.TableName);
d.FieldDefs.Clear;
d.FieldDefs.Add('POHYB', ftString, 2);
d.FieldDefs.Add('PONAZEV', ftString, 90);
d.FieldDefs.Add('PLUS', ftSmallint);
d.FieldDefs.Add('HL', ftString, 1);
d.CreateTable;
}
d.Open;
d.First;
while not d.eof do d.Delete;
d.PackTable;
q.SQL.Text:='select * from CisPohyb';
j:=d.FieldCount-1;
q.Open;
q.First;
while not q.Eof do
begin
d.Append;
for i:=0 to j do
begin
f:=q.FindField(d.Fields[i].FieldName);
if Assigned(f) then
d.Fields[i].Value:=f.Value
else
d.Fields[i].Value:=null;
end;
d.Post;
q.Next;
end;
d.Close;
q.Close;
finally
q.Free;
d.Free;
Screen.Cursor:=crDefault;
end;
Application.MessageBox('Export dat dokoncen.', 'HOTOVO',
mb_applmodal+mb_iconinformation+mb_okcancel+mb_defbutton1);
end;
Sinea a onstepdata v detailu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.10.2002 12:41:23
> From: Roman
> >
> > Kdyz jsou to tabulky s pripojenym DataSource,
> > tak pro nepouzijes ten DataSource?
> > Proc si pridelavas praci s GetData, StepData?
>
> Protoze tam potrebuju pridavat jeste nejake polozky navic,
> ktere v tech
> tabulkach nejsou a nechci je tam zbytecne pridavat.
Pokud je to memory tabulka, tak nejaka polozka navic
preci nevadi.
Lze pouzit i dalsi moznosti, napriklad CalculatedField.
Nebo vyuzit jine moznosti Siney, napr. predani pres parametr
nebo pres vypocitavanou uzivatelskou funkci.
> A ten Datasource tam
> normalne byt nema, ten tam je ted jen na zkousku.
Kdyz uz tam je tabulka, tak proc tam nemuze byt
i TDataSource? Zabyvat se vlastnim obsluhovanim
GetData, StepData ma smysl tehdy,
pokud data nejsou v zadne tabulce.
Vaclav Krmela
Sinea a onstepdata v detailu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 28.10.2002 13:01:02
> Pokud je to memory tabulka, tak nejaka polozka navic
> preci nevadi.
> Lze pouzit i dalsi moznosti, napriklad CalculatedField.
> Nebo vyuzit jine moznosti Siney, napr. predani pres parametr
> nebo pres vypocitavanou uzivatelskou funkci.
To je obecne reseni. Nejaky dotaz podle vysledku vytvori Fields v MemTable a
naplni ji. Pak se z tech dat vytvari sestava (anebo neco jineho). Takze ted
bych musel vytvorit nove Fields a projit celou tabulku a naplnit je,
vytisknout sestavu, zrusit nove fields. Proc mam plnit memory tabulku necim,
co potrebuju jenom pri tisku?
> > A ten Datasource tam
> > normalne byt nema, ten tam je ted jen na zkousku.
>
> Kdyz uz tam je tabulka, tak proc tam nemuze byt
> i TDataSource? Zabyvat se vlastnim obsluhovanim
> GetData, StepData ma smysl tehdy,
> pokud data nejsou v zadne tabulce.
Pridat kod do GetData a StepData je mnohem jednodussi, nez to co jsem popsal
vyse.
Roman
==============================
http://kouzelne.misto(tec)cz
Grid index out of range
[*] Lubomir Fule <fule(zv)humansoft.sk> - 28.10.2002 13:03:55
Zdravim,
pri istom konkretnom rozmere DBGrid-u a konkretnom SQL dotaze sa mi objavuje
v subj. uvedena hlaska. Akonahle zmenim rozmer okna, tak je vsetko OK.
Pouzivam ODBCe, ale skusal som to aj cez ADO resp. ClientDataSet a stale to
bolo to iste, takze od pouzitych DB komponent to asi nezavisi. Noeviete, kde
by mohol byt pes zakopany?
L.
cerne ikony
[*] <M.Babik(zv)mus(tec)cz> - 28.10.2002 13:27:55
Zdravim, nevite jak se zbavit problemu vis subject?Na W2000 s D5 delam aplikaci a na W98 nejsou videt ikony a popisky v coolbaru?Jsou cerne.:-( Diky
M&B
archiv off-line
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 28.10.2002 13:56:33
ahojte,
nasiel som v starych prispevkoch (rok 2000,2001) zmienku o utilitke konfview ale linky
neboli aktive. Je mozne niekde ziskat archiv tejto konferencie trebars
aj ako eml spravy?
dakujem
Peter
ZMySQLDatabase vs. TClientSocket a neukoncitelna a
[*] Robert Suska <delphi(zv)korak.sk> - 28.10.2002 13:57:35
Ahojte!
Mam problem s jednou aplikaciou v ktorej pouzivam komponenty ZEUS na
pripojenie ku MySQL databaze a zaroven v nej pouzivam aj komponentu
TClientSocket. Pokial som ich pouzival osobitne v dvoch aplikaciach tak to
bolo v pohode vsetko behalo. Ale akonahle som ich vlozil do jednej apl. tak
to robi take veci ze pokial vytvorim klient socket prvy a dam close a potom
vytvorim session na pripojenie ku databaze a dam disconnect a dam aplikacii
close tak je to v pohode. Korektne sa ukonci. Ale ked vytvorim prvu database
session a dam disconnect a potom vytvorim clientsocket session a dam close a
dam apl. close tak user intreface sa mi zavrie ale aplikacia ostane bezat
dalej delphi sa tvari tak ze nic a proste bezi. :(( a ja sa s tym trapim uz
skoro dva dni a nemozem prist na to ako to urobit aby to islo. Inac podla
toho prveho sposobu by to aj slo len je tam hacik ze akonahle ked vytvorim
jeden alebo druhy socket a pracujem s nimi tj. ze tam uz behaju nejake data
tak ich mozem zatvarat disconnectovat a "killovat" :) tak aplikacia po
povele Close sa nezavrie a caka neviem na co ... Asi na spasenie. Prosim
poradte mi co mam s tym robit mam aj jednoduchy program ktory by som mohol
poslat len je ku tomu treba mat server socket a MySQL server :( na
oddestovanie.
Dakujem za odpovede.
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
archiv off-line
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.10.2002 14:00:36
Data z konference najdes na
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Dole je odkaz i na KonfView
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
28.11.2002 Peter Turcan:
> ahojte,
> nasiel som v starych prispevkoch (rok 2000,2001) zmienku o utilitke konfview ale linky
> neboli aktive. Je mozne niekde ziskat archiv tejto konferencie trebars
> aj ako eml spravy?
gbak
[*] Josef Semera <semera(zv)fofrs(tec)cz> - 28.10.2002 14:37:48
IBBackupService a IBRestoreService - driv jsem je zkousel a naprosto
stejne zkusenosti. Od te doby pouzivam primo gbak a nikdy zadna chyba
(pokud jim uklizecka nevypne server behem pr�ce) .
Navic mam programek pro automaticke nastaveni zalohovani, ktery nejen
zalohuje, ale i treba jednou tydne, dle nastaveni, provede pokusnou
obnovu do TEMP, a jednou mesicne pokud se obnova uspesna prejmenuje
puvodni IB a prejmenuje obnovenou z tempu m�sto puvodni.
Semera
> obnovu s pomoci komponent IBBackupService a IBRestoreService a jak se
vam
> to
> jevi stabilni?
> Ja jsem behem vcerejska a dneska podnikl 7 (!) pokusu o obnovu ze
zalohy a
> uspel
> jsem v nula pripadech. gfix na databazi nenasel zadny problem, gbk
soubor
> vznikl
> nekolikrat a bez problemu. Vse prostrednictvim komponent
IBBackupService a
> IBRestoreService.
>
> Ale proces obnovy se nikdy nepodaril, najednou to uprostred obnovovani
na
> nahodnem miste, pokazde jindy, napsalo ve 4 pripadech Lock manager out
of
> room,
> ackoli prislusny konfiguracni parametr ma hodnotu 200000, a ve
zbyvajicich
> trech
> pripadech opet na nahodnem miste hlasku Arithmetic exception, numeric
> overflow or
> string truncation. Pritom ta hlaska je zcestna - poprve vznikla pri
obnove
> tabulky, tak
> jsem si dal vypsat jeji obsah selectem - a zcela bez problemu. Podruhe
a
> potreti ta
> hlaska vznikla pri obnove nejakeho indexu, coz je ovsem nesmysl. Pri
> obnove
> indexu bych ji necekal a navic jde zjevne o nahodne misto a s tim, co
se
> prave
> obnovuje to nejspis nesouvisi.
>
> Uvedena pozorovani me vedou k tomu, ze nejlepsi metoda zalohovani je
vzit
> gdb
> soubor, zkomprimovat ho a nekam odkopirovat, protoze je vysoce
> pravdepodobne,
> ze s pripadnou obnovou ze zalohy pres gbak budou znacne problemy.
>
> Verze LI-V6.2.796 Firebird 1.0 na linuxu.
>
Zjisteni pripojeni Internetu - WinInet
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 28.10.2002 14:37:45
Co ja vim tak jedina skutecne 100% metoda pro ruzne typy pripojeni
neni... Taky pouzivam IternetGetConnectedState.
Jakub Dusek
--------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Sms GateKeeper
--------------------------------
Thursday, November 28, 2002, 2:46:15 PM, you wrote:
JK> Ahoj,
JK> Mam problem: zjistuji stav pripojeni internetu pomoci funkce
JK> InternetGetConnectedState a pokud mam malou sit kde jeden pocitac (rekmneme
JK> I server) sdili (poskytuje) vytacene spojeni a poskytuje ho po siti ostatnim
JK> (rekneme klientum), i kdyz momentalne neni vytoceno pripojeni na Internet�,
JK> kdyz se pomoci teto funkce na klientovi zeptam na pripojeni, hlasi mi to ze
JK> pripojeni existuje coz neni pravda.
JK> Jak skutecne zjistit jestli je v danem okamziku dostupne pripojeni na
JK> Internet?
JK> Diky za odpoved.
JK> Honza Kirchner
Re[2]: archiv off-line
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 28.10.2002 14:41:10
Cau ing.,
Thursday, November 28, 2002, 2:00:36 PM, you wrote:
> Data z konference najdes na
> http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
> Dole je odkaz i na KonfView
hehe tam jsem se koukal a nasel jsem odkaz na hyperlinx a tam mi rekli
ze tam nikdo takovyho jmena neni. tak co ?
S pozdravem
Milan Vymazal
Popupmenu v komponente
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.10.2002 14:44:38
> Tohle nema cenu resit, ta komponenta je upravena pro tu
> konkretni aplikaci, nikde do sveta nepude. To published
> Popupmenu bych nejraci zrusil :-)
Mozes si svoju komponentu odvodit od TCustomDBGrid a publikovat len tie
vlastnosti, ktore uznas za vhodne.
>> 1. Nadesignovat si jedno popup menu s tymi spolocnymi
>> polozkami a priradit ho v designeri kazdemu gridu. Potom
>> si napisat kod na OnPopup event, ktory bude dynamicky
>> vytvarat dalsie polozky, podla aktualneho
>> PopupComponent. Pripadne sa tieto polozky daju aj
>> nadesignovat ako samostatne popupmenu a v OnPopup
>> uz len merge-ovat s tym hlavnym.
>
> To je ta sama situace, v jake jsem ted: kazdy grid ma svoje
> PopUp a navic musi byt dalsi, ve kterem nadefinuju ty vybrane
> polozky.
Vobec nie. V mnou navrhovanom pripade mas iba jedine popupmenu na formulari,
a to je priradene vlastnosti PopupMenu kazdeho gridu.
>> 2. Nadesignovat si jedno popupmenu so vsetkymi moznymi polozkami pre
>> vsetky gridy a v OnPopup podla aktualneho PopupComponent nastavovat
>> ich Visible pripadne Enabled.
>
> Tim ale budu muset predat spravu toho Gridu nekam mimo samotnou
> komponentu (protoze polozky pro nastavovani gridu by byly v Popupmenu
> nekde na formulari).
Presne tak. Podla toho, co si napisal, totiz ziadny vseobecny komponent
nepotrebujes, staci Ti riesenie na urovni formulara alebo projektu.
>> 4. Pouzit frames a form inheritance: vytvorit si zakladny frame s gridom
a
>> popupmenu obsahujucim tie spolocne polozky, a vytvorit si potomkov s
>> pridanymi dalsimi polozkami, ktore mozu byt potom umiestnene na ten
>> pagecontrol.
>
> To to by bylo reseni, kdybych zacinal od zacatku. Jenze ja potrebuju
> rozsirit funkcnost stavajici komponenty.
>
> Me prijde nejrozumejsi, aby ten Grid mel published property MenuItems:
> TMenuItem. Tj. zadam tam v OI nejake polozky, ktera pak programove
> doplnim do nejakeho Popupmenu (at uz vytvoreneho v constructoru Gridu
> nebo prirazeneho v PopupMenu). Muj problem je, ze nevim, jak docilit
> zobrazeni toho "navrhare menu" pro tuto property v design modu.
Podla mna to nie je rozumne ani trochu. Okrem toho je to tazko (ak vobec)
implementovatelne a pritom uplne zbytocne.
Predpokladam, ze kod, ktory sa ma vykonat pri zvoleni polozky budes pisat v
OnClick handleri na urovni parent formulara. A v tom pripade je uplne
zbytocne "schovavat" nejake TMenuItem do nejakej komponenty.
Zobrazenie navrhara menu nie je az taky problem (v designtime balicku):
procedure Register;
begin
RegisterComponents('Tests', [TMyDBGrid]);
RegisterPropertyEditor(TypeInfo(TMenuItem), TMyDBGrid, 'MenuItems',
TMenuItemProperty);
end;
Druha vec je, ze zobrazenie menu editora Ti nebude asi nic platne. Ten menu
editor vklada deklaracie jednotlivych TMenuItem priamo do zdrojaku triedy
formulara. Triedy TMenu a TMenuItem neboli pisane pre taketo pouzitie;
vsimni si, ze TMenu publikuje natvrdo Items typu TMenuItem a TMenuItem tak
isto. Nie je mozne zdedenim potrebne upravit funkcionalitu pre korektne
streamovanie do .dfm v kontexte Tvojho gridu (a nie formulara - ono to totiz
ani nedava zmysel). A v pripade, ze si napises vlastne triedy, zase
nepouzijes ten default menu editor a musis si napisat svoj vlastny.
V kazdom pripade, odporucam Ti poriadne si premysliet, co vlastne chces a
preco to chces.
Ale ak mi snad nieco uslo, rad sa necham poucit.
HTH
TOndrej
Zjisteni pripojeni Internetu - WinInet
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 28.10.2002 14:46:15
Ahoj,
Mam problem: zjistuji stav pripojeni internetu pomoci funkce
InternetGetConnectedState a pokud mam malou sit kde jeden pocitac (rekmneme
I server) sdili (poskytuje) vytacene spojeni a poskytuje ho po siti ostatnim
(rekneme klientum), i kdyz momentalne neni vytoceno pripojeni na Internet�,
kdyz se pomoci teto funkce na klientovi zeptam na pripojeni, hlasi mi to ze
pripojeni existuje coz neni pravda.
Jak skutecne zjistit jestli je v danem okamziku dostupne pripojeni na
Internet?
Diky za odpoved.
Honza Kirchner
archiv off-line
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.10.2002 14:48:25
28.11.2002 Vymazal Milan:
>> Data z konference najdes na
>> http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
>> Dole je odkaz i na KonfView
> hehe tam jsem se koukal a nasel jsem odkaz na hyperlinx a tam mi rekli
> ze tam nikdo takovyho jmena neni. tak co ?
he he. Kdybys projevil trochu vlastni snahy a zadal slovo "konfview"
do vyhledavace, uz jsi to mel davno stazene. Aby ses moc nenadrel, tak
tady je funkcni odkaz:
http://www.sraier(tec)cz/software/scuba-cz-arch/konfview.zip
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
cerne ikony
[*] Robert Suska <delphi(zv)korak.sk> - 28.10.2002 15:12:11
Ahoj!
Nedosli Ti nadodou sys. zdroje :)
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
> Zdravim,
> Tohle mi jednou delaly W98, a nebyl to problem zadne aplikace ale systemu.
> Akorat, uz si presne nevzpominam jak jsem to odstranil. Zkus to projet
> antivirem. A zkus stahnout aktualni windows updates.
> David
>
> Zdravim, nevite jak se zbavit problemu vis subject?Na W2000 s D5 delam
> aplikaci a na W98 nejsou videt ikony a popisky v coolbaru?Jsou cerne.:-(
> Diky
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.423 / Virus Database: 238 - Release Date: 25/11/2002
cerne ikony
[*] David Michal <david.michal(zv)www-bv(tec)com> - 28.10.2002 15:13:08
Zdravim,
Tohle mi jednou delaly W98, a nebyl to problem zadne aplikace ale systemu.
Akorat, uz si presne nevzpominam jak jsem to odstranil. Zkus to projet
antivirem. A zkus stahnout aktualni windows updates.
David
Zdravim, nevite jak se zbavit problemu vis subject?Na W2000 s D5 delam
aplikaci a na W98 nejsou videt ikony a popisky v coolbaru?Jsou cerne.:-(
Diky
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.423 / Virus Database: 238 - Release Date: 25/11/2002
Recenzia na Delphi 7
[*] Peter Sulek <psulek(zv)centrum.sk> - 28.10.2002 15:21:06
Prosim Vas neviete nahodou o neakej recenzii na Delphi7, chcel by som sa
dozvediet nieco o tejto verzii podrobnejsie nez je uvedene na
www.borland(tec)cz..
Diky, Peter Sulek
AW: cerne ikony
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 28.10.2002 15:26:42
Nainstaluj si tam najnovsi common controls.
laco
Zdravim, nevite jak se zbavit problemu vis subject?Na W2000 s D5 delam
aplikaci a na W98 nejsou videt ikony a popisky v coolbaru?Jsou cerne.:-(
Diky
M&B
Zjisteni pripojeni Internetu - WinInet
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 28.10.2002 15:28:01
Takhle to nezjistis. Klient je pripojeny k serveru pomoci LAN a u tohoto
spojeni vzdy InternetGetConnectedState vraci zcela logicky true.
Jan Kirchner wrote:
>
> Ahoj,
>
> Mam problem: zjistuji stav pripojeni internetu pomoci funkce
> InternetGetConnectedState a pokud mam malou sit kde jeden pocitac (rekmneme
> I server) sdili (poskytuje) vytacene spojeni a poskytuje ho po siti ostatnim
> (rekneme klientum), i kdyz momentalne neni vytoceno pripojeni na Internet�,
> kdyz se pomoci teto funkce na klientovi zeptam na pripojeni, hlasi mi to ze
> pripojeni existuje coz neni pravda.
> Jak skutecne zjistit jestli je v danem okamziku dostupne pripojeni na
> Internet?
>
> Diky za odpoved.
>
> Honza Kirchner
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT dep. manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Grid index out of range
[*] Lubomir Fule <fule(zv)humansoft.sk> - 28.10.2002 15:31:19
Uz som to vyriesil. Neprisiel som sice na pricinu, ale ked som AfterOpen
prislusneho DataSet-u zavolal DataSet.Resync, tak to bezi OK.
L.
> pri istom konkretnom rozmere DBGrid-u a konkretnom SQL dotaze
> sa mi objavuje
> v subj. uvedena hlaska. Akonahle zmenim rozmer okna, tak je vsetko OK.
> Pouzivam ODBCe, ale skusal som to aj cez ADO resp.
> ClientDataSet a stale to
> bolo to iste, takze od pouzitych DB komponent to asi
> nezavisi.
Recenzia na Delphi 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2002 15:44:45
From: "Peter Sulek" <psulek(zv)centrum.sk>
> Prosim Vas neviete nahodou o neakej recenzii na Delphi7, chcel by som sa
> dozvediet nieco o tejto verzii podrobnejsie nez je uvedene na
> www.borland(tec)cz..
Co si treba zkusit Trial verzi ?
http://www.borland.com/products/downloads/download_delphi.html
Petr Vones
gbak
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.10.2002 16:03:43
> IBBackupService a IBRestoreService - driv jsem je zkousel a naprosto
> stejne zkusenosti. Od te doby pouzivam primo gbak a nikdy zadna chyba
> (pokud jim uklizecka nevypne server behem pr�ce) .
Je to opravdu tak. Zatimco IBRestoreService nikdy neuspeje,
obnova s pomoci IBExperta je zcela bez problemu. Ackoli by oba
postupy mely pouzivat stejnou technologii, tj. ze vzdaleneho klienta
zavolat gbak, implementace IBRestoreService je zrejme nejaka
zprasena a tudiz nefunkcni. Az budu mit nekdy cas, zkusim se
podivat do zdrojaku, ale zatim je jedine reseni - komponentam na
zalozce IBAdmin se vyhnout sirokym obloukem.
David Lebeda
UrlMon - neuspesne stahnuti souboru
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 28.10.2002 16:04:48
Ahoj, mam jeste jeden problem:
Mam malou sit kde jeden pocitac (rekmneme
I server) sdili (poskytuje) vytacene spojeni a poskytuje ho po siti ostatnim
(rekneme klientum).
Pri stahovani souboru z Inetu na 'serveru' pomoci URLDownloadToFile vse
probehne OK.
Pokud ale pouziji stejny postup na 'klientu' pocitaci pri�pojenem pomoci
site, tak stazeni souboru neprobehne.
Z navratoveho kodu se neda presne zjistit duvod.
Mate s timto nekdo zkusenosti?
Diky za radu
Honza Kirchner
cerne ikony
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2002 16:34:38
From: <M.Babik(zv)mus(tec)cz>
> Zdravim, nevite jak se zbavit problemu vis subject?Na W2000 s D5 delam
> aplikaci a na W98 nejsou videt ikony a popisky v coolbaru?Jsou cerne.:-
Pro jistotu udelej update COMCTL32.DLL, i kdyz na Win98 by mela byt vyhovujici
verze: http://www.microsoft.com/msdownload/ieplatform/ie/comctrlx86.asp
Problem muze byt v nastaveni barevne hloubky (VCL uklada imagelist podle
nastaveni na pocitaci kde se aplikace pise). Na obou pocitacich by melo byt
alespon 16bit High Color, spis ale 32bit True Color.
Petr Vones
UrlDownloadToFile - UrlMon
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 28.10.2002 16:52:39
A jeste jedna otazka tykajici se stahovani souboru:
Kdyz stahnu z Internetu pomoci UrlDownloadToFile textovy soubor na lokalni
disk, znici mi to cetinu.
Proc?
Honza Kirchner
Komprese exe souboru - UPX
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 28.10.2002 17:37:47
V archivu konference jsem nasel dost prispevku na toto tema ale presto bych
se rad zeptal tech zkusenejsich.
Dle pripevku se da UPX pouzit jako castecna ochrana aplikace, mam stazene
UPX 1,24w a pokud spakuji exe soubor neni problem dat UPX -d a exe soubor
rozpakovat.
V prispevcich se vyskytuji nazory na mozne problemy s takto upravenymi EXE
soubory.
Diky za nazory a pripadne rady.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
Komprese exe souboru - UPX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2002 17:42:26
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Dle pripevku se da UPX pouzit jako castecna ochrana aplikace, mam stazene
Neda.
> UPX 1,24w a pokud spakuji exe soubor neni problem dat UPX -d a exe soubor
> rozpakovat.
Samozrejme.
> V prispevcich se vyskytuji nazory na mozne problemy s takto upravenymi EXE
> soubory.
Tyto zamerne poskozene soubory maji jen same nevyhody (zbytecne vetsi spotreba
pameti, zniceni strankovaciho mechanismu) a mohou zpusobovat problemy (nektere
antiviry je detekuji jako podezrele).
Petr Vones
Komprese exe souboru - UPX
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 28.10.2002 17:43:36
jiste, ale musis mit UPX.EXE, coz normalni BFU nema. Ale ten na druhou
stranu zase nebude provadet upravy v EXE...
A.
> -----Original Message-----
> From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
>
> Dle pripevku se da UPX pouzit jako castecna ochrana aplikace,
> mam stazene
> UPX 1,24w a pokud spakuji exe soubor neni problem dat UPX -d
> a exe soubor
> rozpakovat.
gbak
[*] bleak <bleak(zv)mvesely(tec)com> - 28.10.2002 18:21:13
me to chodi naprosto bez problemu... zaloha i obnoveni na D6P
bleak
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Je to opravdu tak. Zatimco IBRestoreService nikdy neuspeje,
obnova s pomoci IBExperta je zcela bez problemu. Ackoli by oba
postupy mely pouzivat stejnou technologii, tj. ze vzdaleneho klienta
zavolat gbak, implementace IBRestoreService je zrejme nejaka
zprasena a tudiz nefunkcni. Az budu mit nekdy cas, zkusim se
podivat do zdrojaku, ale zatim je jedine reseni - komponentam na
zalozce IBAdmin se vyhnout sirokym obloukem.
David Lebeda
Jak odeslat email
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 28.10.2002 18:31:38
Dobry den,
omlouvam se ze se zase ptam na stejny dotaz, ale porad mi to nejde a jiz je
to casove dulezite :
JAK ODESLAT E-MAIL Z APLIKACE ?
Idealne bez zadneho uctu, proste jenom tak. Radili jste mi na to SMTPRelay z
Indy, ale tam zase nevim, jakou zadat adresu.
Moc dik za odpovedi. DKx.
Pack v Accesse
[*] Erik Salaj <winsoft(zv)stonline.sk> - 28.10.2002 18:33:20
> zdravim, pouzival som JRO pre pack v accesse, fungovalo to bez problemov
> ako vsak spravim pack v zaheslovanej databaze? Nemam na mysli globalne
heslo
> ale "multiuser" databazu s *.mdw suborom
neskusal som to, ale mohlo by to fungovat pomocou "Jet OLEDB: System
database",
"User Name" a "Password" parametrov specifikovanych v connection stringu
Erik
UrlMon - neuspesne stahnuti souboru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.10.2002 19:10:31
RG9wb3J1Y3VqaSB6a3VzaXQga25paG92bnUgU1lOQVBTRSwgdW5pdHUgSFRUUFNlbmQuIFYgaGxh
dmljY2UgdW5pdHkNCmplIHByaWtsYWQsIHNvdWNhc3RpIGplIGkgZGVtby4gSW1wbGVtZW50YWNl
IGplIG5hIDUgcmFka3Uga29kdQ0KDQotLSANCkphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBp
b2wuY3oNCg0KMjguMTEuMjAwMiBKYW4gS2lyY2huZXI6DQo+IEFob2osIG1hbSBqZXN0ZSBqZWRl
biBwcm9ibGVtOg0KDQo+IE1hbSBtYWxvdSBzaXQga2RlIGplZGVuIHBvY2l0YWMgKHJla21uZW1l
DQo+IEkgc2VydmVyKSBzZGlsaSAocG9za3l0dWplKSB2eXRhY2VuZSBzcG9qZW5pIGEgcG9za3l0
dWplIGhvIHBvIHNpdGkgb3N0YXRuaW0NCj4gKHJla25lbWUga2xpZW50dW0pLg0KPiBQcmkgc3Rh
aG92YW5pIHNvdWJvcnUgeiBJbmV0dSBuYSAnc2VydmVydScgcG9tb2NpIFVSTERvd25sb2FkVG9G
aWxlIHZzZQ0KPiBwcm9iZWhuZSBPSy4NCj4gUG9rdWQgYWxlIHBvdXppamkgc3Rlam55IHBvc3R1
cCBuYSAna2xpZW50dScgcG9jaXRhY2kgcHJp+nBvamVuZW0gcG9tb2NpDQo+IHNpdGUsIHRhayBz
dGF6ZW5pIHNvdWJvcnUgbmVwcm9iZWhuZS4NCj4gWiBuYXZyYXRvdmVobyBrb2R1IHNlIG5lZGEg
cHJlc25lIHpqaXN0aXQgZHV2b2Qu
zimni a letni cas
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 28.10.2002 20:25:57
Cau,
potreboval bych funkci na vypocet prechodu zimni/letni cas.
Diky
T.
-----
Ing. Tom� Kr�sl,
program�tor a analytik
ALVA Strakonice s.r.o.
P�seck� 893, 386 01 Strakonice
++420 377 430 701
GSM: 776 892 206
tomkrysl(zv)quick(tec)cz
n-ta odmocnina a isqrt
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 28.10.2002 20:47:17
Jeste jednou zdravim,
tohle je tak trochu OT. Potrebuji realizovat n-tou odmocninu celeho cisla
(vysledek ma byt tez cele cislo) bez pouziti FP aritmetiky, tj. bez
logaritmu a exp (procesor HC12 - tj. rychlost je vsechno). Nekde jsem mel
napsany algoritmus a nemuzu ho najit. Jednalo se o jakysi genialni
rekurentni vzorecek. Pokud se Vam neco takoveho vali v kompu, prosim poslete
(na prog. jazyku nezalezi).
Dal jsem v nejakych C-ckovskych snipetech nasel nasledujici vypocet
2.odmocniny (sqrt) a moc mi to nerika. Pokud jste se tim nekdo zabyval,
prosim poslete mi vysvetleni (pry jsem se to mel ucit na zakladce, ale asi
jsem zrovna chybel). Nerad bych ve svem programu mel neco, cemu nerozumim.
Dik.
T./* +++Date last modified: 05-Jul-1997 */
#include <string.h>
struct int_sqrt {
unsigned sqrt,
frac;
};
#define BITSPERLONG 32
#define TOP2BITS(x) ((x & (3L << (BITSPERLONG-2))) >> (BITSPERLONG-2))/* usqrt:
ENTRY x: unsigned long
EXIT returns floor(sqrt(x) * pow(2, BITSPERLONG/2))
Since the square root never uses more than half the bits
of the input, we use the other half of the bits to contain
extra bits of precision after the binary point.
EXAMPLE
suppose BITSPERLONG = 32
then usqrt(144) = 786432 = 12 * 65536
usqrt(32) = 370727 = 5.66 * 65536
NOTES
(1) change BITSPERLONG to BITSPERLONG/2 if you do not want
the answer scaled. Indeed, if you want n bits of
precision after the binary point, use BITSPERLONG/2+n.
The code assumes that BITSPERLONG is even.
(2) This is really better off being written in assembly.
The line marked below is really a "arithmetic shift left"
on the double-long value with r in the upper half
and x in the lower half. This operation is typically
expressible in only one or two assembly instructions.
(3) Unrolling this loop is probably not a bad idea.
ALGORITHM
The calculations are the base-two analogue of the square
root algorithm we all learned in grammar school. Since we're
in base 2, there is only one nontrivial trial multiplier.
Notice that absolutely no multiplications or divisions are
performed.
This means it'll be fast on a wide range of processors.
*/
void usqrt(unsigned long x, struct int_sqrt *q)
{
unsigned long a = 0L; /* accumulator */
unsigned long r = 0L; /* remainder */
unsigned long e = 0L; /* trial product */
int i;
for (i = 0; i < BITSPERLONG; i++) /* NOTE 1 */
{
r = (r << 2) + TOP2BITS(x); x <<= 2; /* NOTE 2 */
a <<= 1;
e = (a << 1) + 1;
if (r >= e)
{
r -= e;
a++;
}
}
memcpy(q, &a, sizeof(long));
}
#ifdef TEST
#include <stdio.h>
#include <stdlib.h>
main(void)
{
int i;
unsigned long l = 0x3fed0169L;
struct int_sqrt q;
for (i = 0; i < 101; ++i)
{
usqrt(i, &q);
printf("sqrt(%3d) = %2d, remainder = %2d\n",
i, q.sqrt, q.frac);
}
usqrt(l, &q);
printf("\nsqrt(%lX) = %X, remainder = %X\n", l, q.sqrt, q.frac);
return 0;
}
#endif /* TEST */
-----
Ing. Tom� Kr�sl,
program�tor a analytik
ALVA Strakonice s.r.o.
P�seck� 893, 386 01 Strakonice
++420 377 430 701
GSM: 776 892 206
tomkrysl(zv)quick(tec)cz
OT: CHM soubory
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 28.10.2002 23:03:17
Stahl jsem s MS - a je to to co hledam, navic co do rychlosti je pro me asi
nejvyhodnejsi fakt html
diky vsem zucastnenym
---- Original Message -----
> >Stahni si HTML help workshop (zdarma na strankach M$) + nejaky HTML
> Jinak pokud uz dokumentaci mas v jine forme, existuje dost 'generatoru'
DataSetProvider posila jen jeden record
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 29.10.2002 01:07:16
Zdravim,
mam takovy problem.
Pomoci ADODataSet.CreateDataSet vytvorim dataset, ktery naplnim
hodnotami. Nikam ho neukladam (active:=false), i kdyz jsem uz zkousel
pouzit CommandType:=cmdfile.
Tento dataset zprostredkuju pomoci DataSetProvider klientske aplikaci,
ktera ho pomoci komponent DCOMConnection->ClientDataSet->
DataSource->DBGrid zobrazi.
Problemem je ze zobrazi pouze jeden record (posledni), o ostatnch nic
nevi...
Pokud si dataset zobrazim na strane serveru (stejny ADODataSet->
DataSource->DBGrid), vse je OK.
Netusite nekdo kde je ten zakopanej pes?
Pavel Poles
Hlasove rozpoznavani
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 29.10.2002 07:11:51
Cau
nevite nekdo o nejake dobre komponente, ktera dokaze rozpoznavat hlas a prevadet na text ? Staci v anglictine.
dekuji
Milos S.
Hlasove rozpoznavani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 07:27:19
Obavam se, ze na to budes muset v dohledne dobe zapomenout.
Rozpoznavani hlasu se zatim omezuje na naucene prikazy.
Cili namluvis slovo, on si ulozi do databaze jeho charakteristiky a
porovnava to pak s tim, co mu reknes priste.
K diktovani a rozeznavani hlasu od libovolne osoby je to jeste hodne
daleko.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.11.2002 Sula Milos:
> nevite nekdo o nejake dobre komponente, ktera dokaze rozpoznavat
> hlas a prevadet na text ? Staci v anglictine.
n-ta odmocnina a isqrt
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 08:20:52
Da se pouzit napriklad Newtonova metoda tecen (ale pozor, selhava v
blizkosti cisla 0, pak je vhodnejsi pouzit jinou metodu, viz napr.
http://pascal.fjfi.cvut(tec)cz/%7Elimpouch/numet/). Podrobnejsi popis algoritmu
(format doc) posilam na soukromy mail.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: n-ta odmocnina a isqrt
tohle je tak trochu OT. Potrebuji realizovat n-tou odmocninu celeho cisla
(vysledek ma byt tez cele cislo) bez pouziti FP aritmetiky, tj. bez
logaritmu a exp (procesor HC12 - tj. rychlost je vsechno). Nekde jsem mel
napsany algoritmus a nemuzu ho najit. Jednalo se o jakysi genialni
rekurentni vzorecek. Pokud se Vam neco takoveho vali v kompu, prosim poslete
(na prog. jazyku nezalezi).
zimni a letni cas
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 08:24:36
Pokud staci zjistit, zda aktualni systemove datum lezi v letnim resp. zimnim
case, tak mam tuto funkci:
function IsDaylightSavingTime: boolean;
//zkoum�, zda aktu�ln� datum spad� do letn�ho �asu
var TZI: _TIME_ZONE_INFORMATION;
begin
Result:=(GetTimeZoneInformation(TZI) = TIME_ZONE_ID_DAYLIGHT);
end;
Subject: zimni a letni cas
potreboval bych funkci na vypocet prechodu zimni/letni cas.
Zjisteni IP adres z programu
[*] EFG Developer <developer(zv)efg(tec)cz> - 29.10.2002 08:36:26
Zdravim, jak co nejjednoduseji zjistim VSECHNY IP adresy PC, kde bezi
muj program (samozdrejme krome 127.0.0.1)?
Jde mi o reseni pokud mo�no bez komponent tretich stran.
Jmeno PC zjistim pomoci GetComputerName. Je�t� bych tedy potreboval
zjistit v�echny IP (PC muze mit vice sitovek nebo vice IP na jednu
sitovku).
[ Ted me ale napada, ze funkce GetComputerName nemusi odpovodat jmenu PC
v siti (v DNS) ]
Domnivam se, ze to mus� bzt prinejmensim nekde v registrech.
Dekuji
Petr Sikola
Zjisteni IP adres z programu
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 29.10.2002 08:39:47
Ahoj,
> developer(zv)efg(tec)cz 29.11.02 8:36 >>>
>Zdravim, jak co nejjednoduseji zjistim VSECHNY IP adresy PC, kde bezi
>muj program (samozdrejme krome 127.0.0.1)?
>Jde mi o reseni pokud mo�no bez komponent tretich stran.
http://tangentsoft.net/wskfaq/examples/ipaddr.html
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Zjisteni IP adres z programu
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 29.10.2002 09:07:57
Joha EFG,
E> Zdravim, jak co nejjednoduseji zjistim VSECHNY IP adresy PC
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure getLocalIPs(var listIP:TStringList);
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
hostEnt :PHostEnt;
p :PaPInAddr;
buffer :array[0..63] of Char;
i, wsa :integer;
wsaData :TWSAData;
begin
listIP.clear();
wsa := WSAStartup($101, wsaData);
if(wsa = 0)then
try
GetHostName(buffer, SizeOf(buffer));
hostEnt := GetHostByName(buffer);
if(hostEnt <> nil)then
begin
i := 0;
p := PaPInAddr(hostEnt^.h_addr_list);
while(p^[I] <> nil)do
begin
listIP.Add(inet_ntoa(p^[I]^));
inc(I);
end;
end;
finally
WSACleanup;
end;
end;
--
vt
Dynamicky linkovany balicek
[*] bardon <bardon(zv)akord-soft(tec)cz> - 29.10.2002 09:21:45
Zdravim.
Zkousel jsem v D5 pouzit dynamicky linkovany BPL. Funguje to dobre, ale jen
v pripade, kdy v Project/Options zapnu pouzivani balicku. Pokud vypnu
pouzivani balicku, tak to nefunguje.
Ja pri ladeni vetsinou kompiluju bez pouziti balicku, aby se mi projevovaly
i pripadne zmeny v komponentach, az definitivni build se dela s balicky.
Nevite prosim nekdo jak pri kompilaci nebo v runtime poznam, zda mam zapnuto
pouzivani balicku? Ja bych si podle toho udelal nejakou vyhybku a skusil
bych to vyresit tak aby to fungovalo v obou pripadech.
(Neni to az tak dulezite protoze mohu nechat build s balicky a pouzivat jen
originalni balicky do kterych nesaham a nedavat do seznamu sve balicky.
Nicmene bych stejne cht�l umet vyresit to univerzalne.)Hlasove rozpoznavani
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 29.10.2002 09:48:55
> nevite nekdo o nejake dobre komponente, ktera dokaze
> rozpoznavat hlas a prevadet na text ? Staci v anglictine.
Existuje viac kniznic, jednou je napriklad MS Speech API:
http://www.microsoft.com/speech/
Na JEDI existuju preklady headrov do Pascalu: http://www.delphi-jedi.org/
Tusim ale, ze je to nejaka starsia verzia, aktualnu verziu bude zrejme
potrebne prelozit znova.
Tie SAPI objekty ale exportuju Automation interfacy, takze na tejto urovni
by ich pouzitie malo byt jednoduche aj bez prekladov do Pascalu, staci asi
importovat type library.
HTH
TOndrej
Hlasove rozpoznavani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 09:59:39
29.11.2002 Ondrej Kelle:
>> nevite nekdo o nejake dobre komponente, ktera dokaze
>> rozpoznavat hlas a prevadet na text ? Staci v anglictine.
> Existuje viac kniznic, jednou je napriklad MS Speech API:
> http://www.microsoft.com/speech/
> Na JEDI existuju preklady headrov do Pascalu: http://www.delphi-jedi.org/
> Tusim ale, ze je to nejaka starsia verzia, aktualnu verziu bude zrejme
> potrebne prelozit znova.
> Tie SAPI objekty ale exportuju Automation interfacy, takze na tejto urovni
> by ich pouzitie malo byt jednoduche aj bez prekladov do Pascalu, staci asi
> importovat type library.
A to se tyka i prevodu "hlasu na text" - viz puvodni dotaz ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Hlasove rozpoznavani
[*] Marek Eichler <marek.eichler(zv)seznam(tec)cz> - 29.10.2002 10:03:06
Zdravim,
----- Puvodn� zpr�va -----
Od: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 29. listopadu 2002 7:27
Predmet: Re: Hlasove rozpoznavani
> Obavam se, ze na to budes muset v dohledne dobe zapomenout.
> Rozpoznavani hlasu se zatim omezuje na naucene prikazy.
> Cili namluvis slovo, on si ulozi do databaze jeho charakteristiky a
> porovnava to pak s tim, co mu reknes priste.
> K diktovani a rozeznavani hlasu od libovolne osoby je to jeste hodne
> daleko.
Dovolil bych si nesouhlasit. Uz existuje nekolik programku, kterym diktujes
a oni to prevadeji na text. Vzhledem k slozitosti celeho problemu ale nejsou
100% a pouzitelne pro praxi. A to ten program jeste pred pouzitim musis
naucit na svuj hlas (referencni vety, ...)
Z toho plyne, ze komponenta na rozpoznavani hlasu s nejvetsi
pravdepodobnosti neexistuje a pokud ano, tak bude dost draha a urcite ne
100% funkcni
S pozdravem Marek Eichler
Dynamicky linkovany balicek
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 29.10.2002 10:12:18
> Zkousel jsem v D5 pouzit dynamicky linkovany BPL. Funguje to
> dobre, ale jen v pripade, kdy v Project/Options zapnu pouzivani
> balicku. Pokud vypnu pouzivani balicku, tak to nefunguje.
Presne tak, runtime balicky su "all or nothing". Ak ich chces pouzit, musis
tak skompilovat cely projekt.
> Ja pri ladeni vetsinou kompiluju bez pouziti balicku, aby se
> mi projevovaly i pripadne zmeny v komponentach, az definitivni
> build se dela s balicky.
Tie dve veci sa navzajom nevylucuju. Mozes si vytvorit project group, ktora
bude obsahovat okrem Tvojho projektu aj vsetky pozadovane balicky. Pred
ladenim potom Compile All alebo Build All.
> Nevite prosim nekdo jak pri kompilaci nebo v runtime poznam,
> zda mam zapnuto pouzivani balicku? Ja bych si podle toho
> udelal nejakou vyhybku a skusil bych to vyresit tak aby to
> fungovalo v obou pripadech.
Pri kompilacii to asi nezistis; v runtime snad pomocou napr.
GetModuleHandle('vcl50.bpl') ale to Ti aj tak nepomoze, pretoze ziadna
vyhybka neexistuje. Skratka musis kompilovat projekt s runtime balickami, ak
chces pouzivat runtime balicky.
HTH
TOndrej
zimni a letni cas
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 29.10.2002 10:12:28
> potreboval bych funkci na vypocet prechodu zimni/letni cas.
Ahoj,
zkus tohle:
(**********************************************************************)
(* IsLetniCas
(**********************************************************************)
function IsLetniCas(CheckDT : TDateTime) : boolean;
var
StartDateTime, EndDateTime : TDate;
Year : word;
begin
Year := StrToInt(FormatDateTime('yyyy', CheckDT));
StartDateTime := EncodeDate(Year, 3, 31) + EncodeTime(2, 0, 0, 0);
StartDateTime := StartDateTime - DayOfWeek(StartDateTime) + 1;
EndDateTime := EncodeDate(Year, 10, 31) + EncodeTime(3, 0, 0, 0);
EndDateTime := EndDateTime - DayOfWeek(EndDateTime) + 1;
if Year < 1996 then
EndDateTime := IncMonth(EndDateTime, -1);
Result := ((CheckDT >= StartDateTime) and (CheckDT < EndDateTime));
end;
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Hlasove rozpoznavani
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 29.10.2002 10:14:35
>> http://www.microsoft.com/speech/
>>
> A to se tyka i prevodu "hlasu na text" - viz puvodni dotaz ?
Ano, je tam TTS (Text-To-Speech) a tiez SR (Speech Recognition).
HTH
TOndrej
Pack v Accesse
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 29.10.2002 10:25:45
> zdravim, pouzival som JRO pre pack v accesse, fungovalo to
> bez problemov
> ako vsak spravim pack v zaheslovanej databaze? Nemam na mysli
> globalne heslo
> ale "multiuser" databazu s *.mdw suborom
Ahoj,
delam to takto:
DataBaseName...uplna cesta k souboru MDB
SysDBName...uplna cesta k souboru MDW
(**********************************************************************)
(* CompactDatabase *)
(**********************************************************************)
procedure CompactDatabase;
const
TCSA = 'Provider=Microsoft.Jet.OLEDB.4.0;Password=MojeHeslo;';
TCSB = 'User ID=Program;Data Source=';
TCSD = ';Jet OLEDB:System database=';
TCSE = ';Jet OLEDB:Engine Type=4';
var
JE : JetEngine;
sn : WideString;
so : WideString;
Ts : string;
OK : boolean;
begin
OK := true;
Ts := ExtractFilePath(DataBaseName) + 'TEMP.MDB';
try
JE := JRO.CoJetEngine.Create;
so := TCSA + TCSB + DataBaseName + TCSD + SysDBName + TCSE;
sn := TCSA + TCSB + Ts + TCSD + SysDBName + TCSE;
JE.CompactDatabase(so, sn);
except
OK := false;
end;
if OK then
begin
DeleteFile(DataBaseName);
MoveFile(PChar(Ts), PChar(DataBaseName));
end;
end;
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
DataSetProvider posila jen jeden record
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 29.10.2002 10:31:45
Mam stejny problem, ale v kombinaci ClientDataset, DataSetProvider.
Pomuze zavolat Open, Close, Open. Pri druhem open jiz nacte vsechny vety.
Ale proc se to deje? Zatim jsem nemel cas to trasovat ...
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavel Poles
Pomoci ADODataSet.CreateDataSet vytvorim dataset, ktery naplnim
hodnotami. Nikam ho neukladam (active:=false), i kdyz jsem uz zkousel
pouzit CommandType:=cmdfile.
Tento dataset zprostredkuju pomoci DataSetProvider klientske aplikaci,
ktera ho pomoci komponent DCOMConnection->ClientDataSet->
DataSource->DBGrid zobrazi.
Problemem je ze zobrazi pouze jeden record (posledni), o ostatnch nic
nevi...
Pokud si dataset zobrazim na strane serveru (stejny ADODataSet->
DataSource->DBGrid), vse je OK.
Sinea a onstepdata v detailu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 29.10.2002 12:16:47
> Pokud je to memory tabulka, tak nejaka polozka navic
> preci nevadi.
> Lze pouzit i dalsi moznosti, napriklad CalculatedField.
> Nebo vyuzit jine moznosti Siney, napr. predani pres parametr
> nebo pres vypocitavanou uzivatelskou funkci.
Sice nevim proc je takovy problem nepouzit Datasource, ale:.
Jeste bych navazal na vcerejsi debatu: zkusil jsem plnit data v TSestDet
takto:
for i:=0 to MemDet.Fields.Count-1 do
ObsahyPolozek.Add(IntToStr(Random(10000)));
Obsah OnStepData jsem nechal takovy, jaky jsem psal drive.
Vysledek je, ze pocet radku v jednotlivych Detailech je spravny (takovy,
jaky je pocet v detail tabulce). Akorat hodnoty vsech radku jsou stejne (tj.
hodnoty prvniho radku detailu jsou nahodna cisla, ostatni radky obsahuji
tytez hodnoty), predpokladam, ze neni mozne, aby se vice jak 100x nahodne
vybrala ta sama cisla... zajimalo by me tedy, jak funguje plneni dat v
OnGetData v TSestDet?
Dik,
Roman
==============================
http://kouzelne.misto(tec)cz
Dynamicky linkovany balicek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 12:40:31
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> Nevite prosim nekdo jak pri kompilaci nebo v runtime poznam, zda mam zapnuto
> pouzivani balicku? Ja bych si podle toho udelal nejakou vyhybku a skusil
Pri kompilaci tak ze to mas zaskrtle v Project | Options
V runtime pomoci funkce IsCompiledWithPackages v unitu JclSysUtils v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
V drtive vetsine pripadu je ti to jedno. Balicky jsou nativnim rozsirenim
prekladace, takze aplikace se chova stejne jak pri prekladu s balicky tak bez
nich.
Petr Vones
pohyb formulare
[*] Lenka Don�tov� <lenkad(zv)nemocnice-vs(tec)cz> - 29.10.2002 13:06:12
Poradte mi prosim nekdo ve ktere udalosti je odchycen pohyb formulare,
nemuzu docilit toho aby se mi ulozili vlastnosti Top a Left formulare.
Predem diky za radu
Lenka
pohyb formulare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 13:07:30
From: "Lenka Don�tov�" <lenkad(zv)nemocnice-vs(tec)cz>
> Poradte mi prosim nekdo ve ktere udalosti je odchycen pohyb formulare,
> nemuzu docilit toho aby se mi ulozili vlastnosti Top a Left formulare.
Pokud chces ukladat pozici formulare tak je vhodnejsi to udelat pri jeho
zavreni (napriklad v udalosti OnClose) a ne pri kazde zmene jeho pozice.
Jinak toho lze docilit napriklad odchycenim zpravy WM_MOVE:
type
TForm1 = class(TForm)
Label1: TLabel;
private
procedure WMMove(var Message: TWMMove); message WM_MOVE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMMove(var Message: TWMMove);
begin
inherited;
Label1.Caption := Format('%d, %d', [Left, Top]);
end;
Petr Vones
pohyb formulare
[*] likeapear <likeapear(zv)centrum(tec)cz> - 29.10.2002 13:13:06
nevim, jestli je na to vhodna udalost, ja jsem pouzival zpravy
WM_WINDOWPOSCHANGING
WM_WINDOWPOSCHANGED
likeapear
> Poradte mi prosim nekdo ve ktere udalosti je odchycen pohyb formulare,
> nemuzu docilit toho aby se mi ulozili vlastnosti Top a Left formulare.
> Predem diky za radu
> Lenka
Pad Delphi pri def. viceroz. konst. pole - jak nap
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 13:16:04
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
> Mne se ten napad libi, ale s definici objektu mam zkusenosti temer 0.
> Poradite mi nekdo jak uvedeny navrh vyresit nebo aspon nejakou literaturu
> (prosim v cestine - soucasti delphi je knizka o object pascalu v
> anglictine), ktera by me dala priklad s nejakou ukazkou?
Patrne neco o zakladech Object Pascalu a objektoveho programovani. Takovych
knizek v cestine urcite par existuje, jestli jsou ovsem dobre, to nevim.
Nejlepe se podivat do knihkupectvi nebo si zaplatit nejake skoleni.
Petr Vones
BDE + Access?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 13:30:02
Ahoj, planuju aplikaci, ktera bude spolupracovat s databazi MS ACCESS, ktera
bude mit cca 20 tabulek, v kazde maximalne do 100 zaznamu, u dvou tabulek
max. 500 zaznamu, provoz naprosto minimalni, zapis cca 1x za tyden, cteni 1x
denne. Lze na to doporucit BDE? Jde o to, ze mam zkusenosti s Paradoxem pod
BDE, s komponentami z RX Library (pouze pro prohlizeni tabulek) a chci
vyzkouseny kod pouzit znovu. Sitovy provoz se nepredpoklada, proto take
uvazuji o BDE.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
BDE + Access?
[*] Robert Suska <delphi(zv)korak.sk> - 29.10.2002 13:35:28
Ahoj
No jasne paradox to v pohode zvladne podstatne lepsie ako M$ :) Na to co
chces tak pouzi kludne paradox databazu. aspon podla mna...
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Ahoj, planuju aplikaci, ktera bude spolupracovat s databazi MS ACCESS, ktera
bude mit cca 20 tabulek, v kazde maximalne do 100 zaznamu, u dvou tabulek
max. 500 zaznamu, provoz naprosto minimalni, zapis cca 1x za tyden, cteni 1x
denne. Lze na to doporucit BDE? Jde o to, ze mam zkusenosti s Paradoxem pod
BDE, s komponentami z RX Library (pouze pro prohlizeni tabulek) a chci
vyzkouseny kod pouzit znovu. Sitovy provoz se nepredpoklada, proto take
uvazuji o BDE.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
BDE + Access?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 13:38:34
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> Lze na to doporucit BDE?
Ne. Na Access mas lepsi ADO.
Petr Vones
Ako ziskat cislo verzie
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 29.10.2002 13:45:43
Pekny den
Vo vlastnostiach projektu sa da definovat stvorcislie oznacujuce verziu
(major, minor, release, build). Neviete prosim niekto ako vytiahnut tieto
cisla v samotnom programe. Napriklad aby som sa nemusel starat o
aktualiz�ciu tohoto �daja v dialogu about...
BDE + Access?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 13:46:53
No jo, ale tam jde o to, ze ta databaze ma v budoucnu spolupracovat s necim
ve VB a jeste s ActivePages a tam je Access bez problemu, jinak bych take
zustal u Paradoxu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: Re: BDE + Access?
No jasne paradox to v pohode zvladne podstatne lepsie ako M$ :) Na to co
chces tak pouzi kludne paradox databazu. aspon podla mna...
Ahoj, planuju aplikaci, ktera bude spolupracovat s databazi MS ACCESS, ktera
bude mit cca 20 tabulek, v kazde maximalne do 100 zaznamu, u dvou tabulek
max. 500 zaznamu, provoz naprosto minimalni, zapis cca 1x za tyden, cteni 1x
denne. Lze na to doporucit BDE? Jde o to, ze mam zkusenosti s Paradoxem pod
BDE, s komponentami z RX Library (pouze pro prohlizeni tabulek) a chci
vyzkouseny kod pouzit znovu. Sitovy provoz se nepredpoklada, proto take
uvazuji o BDE.
BDE + Access?
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 29.10.2002 13:50:53
Ahoj,
pokud to budes predavat dal nechces sebou vlacet BDE, tak zkus TDBF z
http://sourceforge.net/projects/tdbf
Udela stejnou praci.
Petr
> No jasne paradox to v pohode zvladne podstatne lepsie ako M$ :) Na to co
> chces tak pouzi kludne paradox databazu. aspon podla mna...
> Robo
>
> Ahoj, planuju aplikaci, ktera bude spolupracovat s databazi MS ACCESS,
ktera
> bude mit cca 20 tabulek, v kazde maximalne do 100 zaznamu, u dvou tabulek
> max. 500 zaznamu, provoz naprosto minimalni, zapis cca 1x za tyden, cteni
1x
> denne. Lze na to doporucit BDE? Jde o to, ze mam zkusenosti s Paradoxem
pod
> BDE, s komponentami z RX Library (pouze pro prohlizeni tabulek) a chci
> vyzkouseny kod pouzit znovu. Sitovy provoz se nepredpoklada, proto take
> uvazuji o BDE.
>
Ako ziskat cislo verzie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 13:51:23
From: "K�tele� J�n" <Koteles(zv)lumen.sk>
> Vo vlastnostiach projektu sa da definovat stvorcislie oznacujuce verziu
> (major, minor, release, build). Neviete prosim niekto ako vytiahnut tieto
> cisla v samotnom programe. Napriklad aby som sa nemusel starat
> o aktualiz�ciu tohoto �daja v dialogu about...
Pomoci funkce VersionFixedFileInfo nebo tridy TJclFileVersionInfo v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
pohyb formulare
[*] Ji�� Mat�jka�����^�F�צ����̿ - 29.10.2002 13:57:02
Neslo by to na OnPaint - pri pohybu se formular prekreslit musi... Ale
jestli to funguje nevim, nezkousel sem...
Jirka Matejka
----- Original Message -----
From: "Lenka Don�tov�" <lenkad(zv)nemocnice-vs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 29, 2002 1:06 PM
Subject: pohyb formulare
> Poradte mi prosim nekdo ve ktere udalosti je odchycen pohyb formulare,
> nemuzu docilit toho aby se mi ulozili vlastnosti Top a Left formulare.
> Predem diky za radu
> Lenka
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
pohyb formulare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 14:03:19
From: "Ji�� Mat�jka" <matejka(zv)stemmark(tec)cz>
> Neslo by to na OnPaint - pri pohybu se formular prekreslit musi... Ale
Nemusi, prekleslovani se ridi necim uplne jinym nez pohybem formulare. Ten se
muze navic prekleslit i kdyz se s vim vubec nehybe.
Petr Vones
Pad Delphi pri def. viceroz. konst. pole - jak nap
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 29.10.2002 14:03:35
type
TMyObject=class
Data1:string;
DalsiData ...
...
end;
Pridej prom. MojeData:TList do def. formulare. V OnCreate ho vytvor
MojeData:=TList.create;
a v ondestroy ho MojeData.Free;
Pak to pouzijes:
MojeData.Add(aMyObject);
abc:=TMyObject(MojeData[x]).Data;
MojeData.Delete(x);
...
Nebo to cele jeste zapouzdri do objektu (neboli misto TList mas vlastni
objekt a az v nem ten TList ...)
Danik
-----Original Message-----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
> Mne se ten napad libi, ale s definici objektu mam zkusenosti temer 0.
> Poradite mi nekdo jak uvedeny navrh vyresit nebo aspon nejakou literaturu
> (prosim v cestine - soucasti delphi je knizka o object pascalu v
> anglictine), ktera by me dala priklad s nejakou ukazkou?
Ako ziskat cislo verzie
[*] campulka <campulka(zv)czas(tec)cz> - 29.10.2002 14:25:28
Na http://www.campulka.net/?dir=Delphi%20komponenty
si stahni komponentu TVerInfo.> -----Original Message-----
> Pekny den
>
> Vo vlastnostiach projektu sa da definovat stvorcislie
> oznacujuce verziu
> (major, minor, release, build). Neviete prosim niekto ako
> vytiahnut tieto
> cisla v samotnom programe. Napriklad aby som sa nemusel starat o
> aktualiz�ciu tohoto �daja v dialogu about...
pohyb formulare
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 29.10.2002 14:40:05
To tezko. Po presunu se nemusi volat OnPaint (pokud je zapnute prekreslovani
behem tazeni a form se nesune mimo obraz).
Danik
-----Original Message-----
Behalf Of Ji�� Mat�jka
Neslo by to na OnPaint - pri pohybu se formular prekreslit musi... Ale
jestli to funguje nevim, nezkousel sem...
BDE + Access?
[*] <tuffi(zv)email(tec)cz> - 29.10.2002 14:42:18
Ahoj,
prave pisu aplikaci s Accessem, pouzivam ADO komponenty (D6) a su s ADODataSetem spokojenej. Staci jen nastavit ODBC
--- P�vodn� zpr�va ---
Od: Petr Brant <brant(zv)dcomm(tec)cz>
Datum: 29.11.2002 14:17:46
No jo, ale tam jde o to, ze ta databaze ma v budoucnu spolupracovat s necim
ve VB a jeste s ActivePages a tam je Access bez problemu, jinak bych take
zustal u Paradoxu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: Re: BDE + Access?
No jasne paradox to v pohode zvladne podstatne lepsie ako M$ :) Na to co
chces tak pouzi kludne paradox databazu. aspon podla mna...
Ahoj, planuju aplikaci, ktera bude spolupracovat s databazi MS ACCESS, ktera
bude mit cca 20 tabulek, v kazde maximalne do 100 zaznamu, u dvou tabulek
max. 500 zaznamu, provoz naprosto minimalni, zapis cca 1x za tyden, cteni 1x
denne. Lze na to doporucit BDE? Jde o to, ze mam zkusenosti s Paradoxem pod
BDE, s komponentami z RX Library (pouze pro prohlizeni tabulek) a chci
vyzkouseny kod pouzit znovu. Sitovy provoz se nepredpoklada, proto take
uvazuji o BDE.
______________________________________________________________________________
U� m�te tak� 200 MB schr�nku bez reklam? Nadstandardn� slu�by EMAIL.CZ. http://www.email(tec)cz/nsluzby.phtml
Ako ziskat cislo verzie
[*] Stanislav Kochan <skochan(zv)microstep-hdo.sk> - 29.10.2002 14:46:55
>Pekny den
>
>Vo vlastnostiach projektu sa da definovat stvorcislie oznacujuce verziu
>(major, minor, release, build). Neviete prosim niekto ako vytiahnut tieto
>cisla v samotnom programe. Napriklad aby som sa nemusel starat o
>aktualiz�ciu tohoto �daja v dialogu about...
Ja s uspechom pouzivam toto :{GetProjectVersion ***************************************************
funkcia vrati aktualnu verziu softwaru
pr.:Label.caption := GetProjectVersion(application); }
function GetProjectVersion(SendApplication: TApplication):string;
var FileName,tmp: string;
InfoSize, Wnd: Longword;
VerBuf: Pointer;
FI: PVSFixedFileInfo;
VerSize: Longword;
v1,v2:integer;
begin
FileName := ExtractFileName(SendApplication.ExeName);
InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
if InfoSize <> 0 then
begin
GetMem(VerBuf, InfoSize);
try
if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf)
then begin
if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
begin
v1:=FI.dwFileVersionMS;
v2:=FI.dwFileVersionLS;
tmp:= inttostr(v1 shr 16) + '.' +inttostr(v1 and
$0000FFFF)+'.'+
inttostr(v2 shr 16) + ' (build ' +inttostr(v2
and $0000FFFF)+')';
end;
end;
finally
FreeMem(VerBuf);
end;
end;
result := tmp;
end;
pohyb formulare
[*] Stanislav Kochan <skochan(zv)microstep-hdo.sk> - 29.10.2002 15:04:13
Podla mna by mohlo pomoct odchytenie WM_MOVE.
...
protected
procedure WndProc(var Msg: TMessage);override;
...
procedure TForm1.WndProc(var Msg: TMessage);
begin
inherited WndProc(Msg);
case Msg.Msg of
WM_MOVE: SavePosition;
end;
end;
> Poradte mi prosim nekdo ve ktere udalosti je odchycen pohyb formulare,
> nemuzu docilit toho aby se mi ulozili vlastnosti Top a Left formulare.
> Predem diky za radu
> Lenka
Ako ziskat cislo verzie
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 29.10.2002 15:07:16
> Vo vlastnostiach projektu sa da definovat stvorcislie oznacujuce verziu
> (major, minor, release, build). Neviete prosim niekto ako vytiahnut tieto
> cisla v samotnom programe. Napriklad aby som sa nemusel starat o
> aktualiz�ciu tohoto �daja v dialogu about...
Ja kdesi pouzivam toto:
procedure TAboutForm.FormShow(Sender: TObject);
var VersionSize, VersionHandle : DWord;
pVersionInfo : pointer;
FixedFileInfo : PVSFixedFileInfo;
ItemLen : UInt;
begin
VersionSize:=GetFileVersionInfoSize(PChar(Application.ExeName),
VersionHandle);
if VersionSize>0 then begin
GetMem(pVersionInfo,VersionSize);
try
if GetFileVersionInfo(PChar(Application.ExeName),VersionHandle,
VersionSize, pVersionInfo) then
if VerQueryValue(pVersionInfo, '\',
Pointer(FixedFileInfo),ItemLen) then
with FixedFileInfo^ do
Label2.Caption := Label2.Caption + ' ' +
Format('%d.%d.%d.%d',[HiWord(dwFileVersio
nMS),
LoWord(dwFileVersionMS),HiWord(dwFileVers
ionLS), LoWord(dwFileVersionLS)]);
finally
FreeMem(pVersionInfo,VersionSize);
end;
end;
end;
Jirka.
Komunikace Client-Server
[*] S-m-i-s-e-k <s-m-i-s-e-k(zv)seznam(tec)cz> - 29.10.2002 15:14:04
Dobry vecer,
jsem v Delphi zacatecnikem a mam mensi otazecku:
Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
Diky moc
Smisek
s-m-i-s-e-k(zv)seznam(tec)cz
Komunikace Client-Server
[*] Robert Suska <delphi(zv)korak.sk> - 29.10.2002 15:20:13
Ahoj!> Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
> TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
Takto - pisem z hlavy ak je tam nejaka chybicka tak sorry
type ...
procedure Connect;
procedure Disconnect;
proceure SendData;
procedure ReadText(Sender: TObject; Socket: TWinCustomizeSocket);
end;
var CS: TClientSocket;
text: String;
procedure TNieco.Connect;
begin
CS:= TClientSocket.Create(self);
CS.OnRead:= ReadText;
CS.Host:= '192.168.100.3';
CS.Port:= 5555;
CS.Active:= True;
end;
procedure TNieco.Disconnect;
begin
CS.Socket.Close;
CS.Close;
CS.Free;
end;
procedure TNieco.ReadText;
begin
text:= Socket.ReceiveText;
end
procedure TNieco.SendData;
begin
CS.Socket.SendText('tento text posles na nejaky server socket');
end;
a serverscoket este ma take jedno pole clientskych pripojeni cez ktore mozes
poslat jednotlivym clientom data podla nejakeho id
Ahoj Robo
OT: Tisk headeru a footeru v exploreru jinym fonte
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 29.10.2002 15:35:32
Ahoj,
pomoci meho programu vygeneruju html, ktere chci pozdeji vytisknout
pomoci WebBrowseru. Vsechno je v pohode, az na to, ze zaroven menim i
header a footer, ktery se standardne tiskne fontem Times New Roman, a to
mi prave nesedi. Muze mi nekdo znaly HTML rict, jak zmenim font headeru
a footeru pri tisku dokumentu?
Diky, Ales.
Pad Delphi pri definici vicerozmeroveho konstantni
[*] Bohuslav �vancara <bsv(zv)softprojekt(tec)cz> - 29.10.2002 15:41:54
Tohle (skoro) funguje:
{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O-,P+,Q+,R+,S-,T-,U-,V+,W+,X+,Y+
,Z1}
type
TPole = array[1..6] of TVarRec;
const
AnsiAhoj: AnsiString = 'Ansi_Ahoj';
ShortAhoj: ShortString = 'Short_Ahoj';
Ext : Extended = 0.123456e3;
Status: TPole = ((VInteger: 12345; VType: vtInteger),
(VBoolean: true; VType: vtBoolean),
(VAnsiString: (zv)AnsiAhoj; VType: vtAnsiString),
(VString: (zv)ShortAhoj; VType: vtString),
(VBoolean: false; VType: vtBoolean),
(VExtended: (zv)Ext; VType: vtExtended));
function GetStatus(const Index: Integer): Variant;
begin
with Status[Index] do begin
case VType of
vtInteger: Result := VInteger;
vtBoolean: Result := VBoolean;
vtChar: Result := VChar;
vtExtended: Result := VExtended^;
vtString: Result := VString^;
vtPChar: Result := VPChar^;
vtAnsiString: Result := AnsiString(VAnsiString^);
vtVariant: Result := VVariant^;
end;
end;
end;
procedure P;
var
S: string;
i: Integer;
e: Extended;
begin
S := format('%d %s', [Status[1].VInteger, GetStatus(3)]);
if Status[2].VBoolean
then ShowMessage(S);
S := format('%d %s %g', [Status[1].VInteger, GetStatus(4),
Status[6].VExtended^]);
if not GetStatus(5)
then ShowMessage(S); //Nasledujici prikazy ale nefunguji - nevim proc. Mozna "Format" nema rad
varianty...
//Nastava vyjimka EConvertError: Format '%d' invalid or incompatiible with
argument
// S := format('%d',[GetStatus(1)]);
//Ale pritom tohle funguje:
i := GetStatus(1);
// S := format('%g',[GetStatus(6)]);
//Ale pritom tohle funguje:
e := GetStatus(6);
// a toto taky funguje. Mozna to chce jeste nejak dopiplat funkci
GetStatus...
S := format('%g', [Status[6].VExtended^]);
end;
S pozdravem
Bohuslav �vancara, prom. mat.
svancara(zv)softprojekt(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ing. Jiri SOKOL
> Sent: Wednesday, November 27, 2002 10:07 AM
> To: dotaz-delp
> Subject: Pad Delphi pri definici vicerozmeroveho konstantniho pole
>
>
> Ahoj,
>
> zkousel jsem toto:
>
> type
> pole=array[1..2,1..5]of variant;
> const
> status:pole=
> (1,true,'Ahoj','Uvitani',''),
> (2,false,'Hezky den','Rozlouceni','');
>
> Pak mi spadnou cely Delphi. Nevite nekdo, kde delam chybu?
> P.S.:Obsah konstatniho pole berte s rezervou ... hodnoty pouzivam
> jine, ale nejsou stejneho typu a
> proto bych potreboval udrzet typ variant
>
> Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
> D6ProfSP2,WinNT
> amatersky programator
>
> ______________________________________________________________________
> Reklama:
> Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
>
Pad Delphi pri def. viceroz. konst. pole - jak nap
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2002 16:07:42
> > Mne se ten napad libi, ale s definici objektu mam zkusenosti temer 0.
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Nejlepe se podivat do knihkupectvi nebo si zaplatit nejake skoleni.
Tragedie je, ze jakmile nastartuju Delphi, mam objekt Application, objekt (tridu) TForm1, vsechny komponenty, ktere na nej polozim jsou objekty oddedene z "kosate" struktury objektu, komponent. A pritom spousta lidi nema s objekty zkusenosti...
Bohuzel uz nevim, od koho puvodni otazka prisla. Pokud se mi ozve na soukromy email, poslu mu hezky priklad na objekty z naseho skoleni (vcetne dedicnosti, virtualnich metod, properties, events atd.).
Jenze bez vykladu principu OOP to neni ono :-(
Dalsi beh tohoto kurzu se kona 9.12.2002.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Dragovani prez kod
[*] Petr Varga <djvar(zv)post(tec)cz> - 29.10.2002 16:19:27
Ahoj v�ichni
Pot�eboval bych jednu radu.
Mam DBGrid a hromadu vygenerovanych tla��tek.
No a z DBGridu bych pot�eboval metodou drag and drop p�enest
ozna�en� �daj na n�jak� z t�ch tla��tek. Tohle v�e nen� probl�m.
Ale kdy� nastav�m u DBGridu DragMode na dmAutomatic tak DBgrid
reaguje p�i stisku my�i okam�it� t�m, �e za�ne dragovan�.. Co�
nen� hezk�, proto�e u�ivatel tak nem��e zm�nit ani aktu�ln�
polo�ku. Tak bych to t�eba n�jak mohl ud�lat k�dem. Ale nev�m jak
se to d�la.. Nem� s t�m n�kdo zku�enosti? P��padn� jak spravit tu
chybu?
Diky Petr
D5 WIN2000
--
---
V�hodn� n�kupy p�es internet, slevov� akce, zaj�mav� ceny,
dod�vka a� do domu...http://shop.volny(tec)cz
Vlastnosti Remote Data Modulu
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 29.10.2002 16:21:30
Zdravim,
nevite nekdo jakym zpusobem pristupovat k funkcim a promenym, ktere
mam definovane v unite pro Remote Data modul.Tento modul pouziva multiple
Instancing, a tedy pro kazdy pozadavek od noveh klienta se vytvori v ramci
jedne
aplikace novy modul.
Jakym zpusobem muzu pristoupit k vlastnostem jednotlivych techto modulu?
(nejlepe vsech postupne...)
Pavel Poles
Komunikace Client-Server
[*] Lukas Benda <bendal(zv)volny(tec)cz> - 29.10.2002 16:33:08
Myslim, ze na tehle strance je toho celkem hodne o spouste veci okolo
Delphy.
http://www.builder(tec)cz
S-m-i-s-e-k wrote:
>Dobry vecer,
>jsem v Delphi zacatecnikem a mam mensi otazecku:
>Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
>TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
>Diky moc
>Smisek
>s-m-i-s-e-k(zv)seznam(tec)cz
>
>
>
>
Ziskani ikony nevytvoreneho formulare
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 29.10.2002 18:01:17
Ahoj,
v aplikaci nahravam dynamicky balicky s formulari. Pri natazeni v vytvarim v
actionlistu na hlavnim formu polozku pro otevreni formu z nahraneho balicku,
vcetne ikony. Ikonu ziskavam z nahravaneho formulare. Neumim ale ikonu
ziskat jinak, nez ze form vytvorim, vytahnu ikonu a zase form uvolnim. Na
create formulare (a jeho predka) mam ale leccos povesene, takze se mi to
takto nelibi, navic to pri vetsim poctu formu asi bude pomale. Privitam
kazdou radu, jak vytahnout z balicku ikonu bez vytvoreni formulare, nebo
nakopnuti k lepsimu reseni :)
diky,
Martin Burle
Ziskani ikony nevytvoreneho formulare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 18:26:37
From: "Martin Burle" <mburle2(zv)volny(tec)cz>
> v aplikaci nahravam dynamicky balicky s formulari. Pri natazeni v vytvarim v
> actionlistu na hlavnim formu polozku pro otevreni formu z nahraneho balicku,
> vcetne ikony. Ikonu ziskavam z nahravaneho formulare. Neumim ale ikonu
> ziskat jinak, nez ze form vytvorim, vytahnu ikonu a zase form uvolnim. Na
> create formulare (a jeho predka) mam ale leccos povesene, takze se mi to
> takto nelibi, navic to pri vetsim poctu formu asi bude pomale. Privitam
> kazdou radu, jak vytahnout z balicku ikonu bez vytvoreni formulare, nebo
> nakopnuti k lepsimu reseni :)
Uloz tu ikonu jako resource do daneho balicku a pak ji pomoci TResourceStream
a TIcon.LoadFromStream natahni z balicku, podobne jako z jakekoli jine DLL.
Petr Vones
OT: Nechapu
[*] Valenta P <valentapat(zv)volny(tec)cz> - 29.10.2002 18:28:41
Omlouvam se za nevecny predmet ale fakt nevim jak to nazvat.
Probme je v tom:
mam form2 a v nerm public promennou SID:string
z formu1 nastavuji form2.SID:='neco'; a volam form2.showmodal;
ve form2 se z toho Sid generuje sql dotaz ale to neni dulezite.
Problem je v tom ze to normalne bezi ... ale
pri spusteni na PC od meho syna ( P166) se tam ta promenna nedostane.
netusi nekde vcem muze byt problem ? P.S. D5
valik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
Nechapu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 18:30:52
From: "Valenta P" <valentapat(zv)volny(tec)cz>
> Problem je v tom ze to normalne bezi ... ale
> pri spusteni na PC od meho syna ( P166) se tam ta promenna nedostane.
Co to na tom PC zkusit ladit (at jiz pomoci nainstalovani Delphi nebo Remote
Debuggerem) ?
Petr Vones
BDE + Access?
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 29.10.2002 18:46:01
Ahoj,
> tuffi(zv)email(tec)cz 29.11.02 14:42 >>>
>prave pisu aplikaci s Accessem, pouzivam ADO komponenty (D6) a su s ADODataSetem spokojenej. Staci jen nastavit ODBC
tohle nechapu....copak k ADu potrebujes ODBC ??? K ADu potrebujes mit nainstalovany jen MDAC...
bud ADO nebo ODBC
pro MS Access je lepsi ADO
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Object Pascal Was: Pad Delphi pri def. viceroz. k
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 19:01:54
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Tragedie je, ze jakmile nastartuju Delphi, mam objekt Application, objekt
> (tridu) TForm1, vsechny komponenty, ktere na nej polozim jsou objekty
> oddedene z "kosate" struktury objektu, komponent. A pritom spousta lidi nema
> s objekty zkusenosti...
Tragedie je, ze se nikdo nesnazi jeste predtim porozumet tomu co pouziva.
Nejde o to umet vsechny metody TButton nazpamet, ale mit nejakou povedomost o
tom jaky jazyk pouzivam a jak je v nem implementovano OOP, jake mi RTL nabizi
zakladni tridy pro praci s objekty, jak funguji interface ...
Mozna k tomu dojde ve vetsim meritku az se objevi Delphi .NET, i kdyz plno
novych veci v jazyce si lze odzkouset uz dnes pomoci radkoveho prekladace a
IDE experta pro Delphi 7.
> Jenze bez vykladu principu OOP to neni ono :-(
Presne tak.
Petr Vones
Sinea a onstepdata v detailu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.10.2002 19:09:56
> From: Roman
>
>
> Sice nevim proc je takovy problem nepouzit Datasource, ale:.
Nikdo netvrdi, ze je problem nepouzit Datasource.
Ja jsem psal pouze to, ze pouzit Datasource je bezpracne,
protoze si pres Datasource generator sestav sam vytahne
ta data ktera potrebuje.
Pokud se DataSource nepouzije, musi se o vse postarat
programator sam.> zkusil jsem plnit data v TSestDet takto:
> for i:=0 to MemDet.Fields.Count-1 do
> ObsahyPolozek.Add(IntToStr(Random(10000)));
> Obsah OnStepData jsem nechal takovy, jaky jsem psal drive.
>
> Vysledek je, ze pocet radku v jednotlivych Detailech je
> spravny (takovy, jaky je pocet v detail tabulce).
O pocet radku se nestara GetData, ale StepData.
> Akorat hodnoty vsech radku
> jsou stejne (tj. hodnoty prvniho radku detailu jsou nahodna cisla,
> ostatni radky obsahuji tytez hodnoty),
No to je preci zrejme, pokud pro plneni dat pouzijes
ObsahyPolozek.Add...
ObsahyPolozek jsou typu TStrings. Pomoci Add se nova data
pridavaji az na konec za stara, takze je zrejme,
ze se na tistenych radcich opakuji stale stejna data.
Pred plnenim dalsich radku je nutne predchozi obsah vymazat:
ObsahyPolozek.Clear
Vaclav Krmela
hooks v Delphi
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 29.10.2002 19:44:05
Dobry den,
mohli byste mi prosim nekdo doporucit nejaky dobry zdroj informaci
ohlende pouzivani hooku v Delphi 6 (specialne wh_Keybord).
Predem dekuji moc za informace
Stahovani obrazku z fotaku
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 29.10.2002 22:35:30
Zdravim konferenci.
Mel bych dotaz, zda uz nekdo neco podobneho nedelal. Mam za ukol
naprogramit aplikaci, ktera stahne (prej pres nejaky WIA -
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wia/startpage_1gyt.asp )
z fotaku nahledy fotek, uzivatel si vybere a pak se ty vybrany
stahnou a ulozej. Vubec netusim wocogo ... nakopnete me pls nekdo :)
--
Best regards,
Martin Pe�ava mailto:jimx(zv)volny(tec)cz
Prekreslovani nepravouhlych objektu was: pohyb for
[*] Tomas Krysl <tomkrysl(zv)quick(tec)cz> - 29.10.2002 22:44:18
Ahoj,
Volne navazu na tema prekreslovani.
Delal jsem si pred casem v FP vlastni "okenni" system, ale podarilo se mi
bezchybne rozchodit jenom prekreslovani pravouhlych objektu. I tak mi to
prislo dost slozite, kdyz ma vse fungovat tak, jak se ocekava. Navic to bylo
reseno pouze primym prekreslovanim, kdykoli se neco zmenilo a ne stavenim do
fronty a kombinaci neplatnych regionu jako ve Windows (tedy pokud tomu dobre
rozumim).
Zajima me, jestli prekreslovani nepravouhlych objektu probiha v GUI Windows
(popr. Linux aj.) v pametovem bufru nebo se treba po vodorovnych
mikroradcich zkoumaji hranice objektu (podle nadefinovanych regionu). Podle
me by melo jit oboji. A jak je resena rychlost, treba kdyz pod nepravouhlym
objektem bezi nejaka animacka nebo se prekryva vic nepravidelnych objektu?
U sveho softu jsem grafickemu driveru predaval vzdycky pole pravouhlych
vyrezu, kam smel kreslit a on to postupne projel a vykreslil kusy car nebo
ploch. U nepravouhlych objektu by se mu mel predat cely region. Orezavani
pak ale musi bejt dost slozity.
Kdyz ve Windows dojde na obsluhu WM_PAINT (popr. WM_ERASEBKGND), tak uz se
primo kresli a prikazy ValidateRect apod. pro tu samou oblast, kde se prave
kresli, nemaji smysl, je to tak?
Dik Tomas
> From: "Ji�� Mat�jka" <matejka(zv)stemmark(tec)cz>
> > Neslo by to na OnPaint - pri pohybu se formular prekreslit musi... Ale
>
> Nemusi, prekleslovani se ridi necim uplne jinym nez pohybem formulare. Ten
se
> muze navic prekleslit i kdyz se s vim vubec nehybe.
>
> Petr Vones
>
Ako zistit ci bezi Word
[*] Roland Turcan <rolo(zv)sedas.sk> - 29.10.2002 22:53:18
Hello delphi-l(zv)clexpert(tec)cz!
WordApplication.Application.Get_Visible mi vrati chybu ak sa Word uz
ukoncil. Aky je spravny postup na zistovanie ci bezi Word ?
Ina instancia Wordu ma nezaujima, iba ta moja ktoru som spustil cez
WordApplication.
--
Best regards, TRoland
Ziskani ikony nevytvoreneho formulare
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 29.10.2002 23:28:32
> Uloz tu ikonu jako resource do daneho balicku a pak ji pomoci
TResourceStream
> a TIcon.LoadFromStream natahni z balicku, podobne jako z jakekoli jine
DLL.
Diky, tomu bych rozumel. Jenom se mi nejak nedari vlozit ikonu do balicku;
nemam s tim zadne zkusenosti. Zkusil jsem mimo jine ImageEditorem vlozit
ikonu do jmeno_balicku.res, to asi nebude spravna cesta (dival jsem se do
bpl hackerem a ikona nikde). Kudy na to?
Dari se mi zatim vytahnout jedine jakousi defaultni ikonu, takto:
ic:=TIcon.Create;
try
res:=TResourceStream.Create(FModuleInstance,IcoName,RT_ICON);
Ic.LoadFromStream(res);
except
ShowMessage('Balicek neobsahuje hledanou ikonu');
end;
Je to tak spravne?
Diky za pripadne dalsi rady :)
Martin Burle
Predavanie nazvu DTB medzi Formularmi
[*] Petr Bobr <pdbobr(zv)mediclub(tec)cz> - 30.10.2002 03:16:19
11/27/2002 - 15:36, bugi psal:
> Ahojte,
>
> na hlavnom formulari mam DBGrid do ktoreho nacitavam /jednu z mnohych/
> databazu.
> Do Edit-u zadam nazov databazy a po kliknuti na tlacidlo sa spusti tato
> obsluha:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> Y: Variant;
> begin
> Y := Edit1.Text;
>
> Table1.Active := False;
> Table1.DatabaseName := 'data';
> Table1.TableName := Y;
> Table1.Active := True;
> end;
>
> V premennej Y mam nazov databazy. Ked otvorim druhy formular pre pridavanie
> zaznamov potrebujem nadstavit uz otvorenu databazu pre pridavanie, ale
> ked tam dosadim premennu Y, ktora by mala obsahovat nazov databazy,
> tak to nefunguje.
>
> Do uses Unit-u2 som vlozil Unit1, ale aj tak to nepomohlo.
>
> Vo Form2 som si dal vypisat premennu Y, ale je prazdna!
>
> Skusil som premennu Y deklarovat mimo obsluhy tlacidla, ale ani to
> nepomohlo.
>
> Pri OnCreate Form2 by som potreboval nejak zistit nazov databazy, ktora
> je prave otvorena vo Form1 a pomocou nejakej premennej ju odovzdat ako
> parameter, ktory by som mohol zadat pre prepnutie databazy do rezimu
> pridavania.
>
> Y.Append; ---> toto nefunguje tiez ...
>
> Vyskusal som uz kadeco, ale bezvysledne ... :-(
>
> Kde robim chybu? Ako na to ?
>
> Dik,
> A
>
>
>
>
> Bugala Alex - stredoskolak 2 roc.
> -----------------------------------------------------
> Win2000 Prof Cz - SP2
> Delphi 3 Client / Server Suite
>
>
Ahoj ,
nevim jestli to pomuze ale skusil bych vymenit typ variant za typ string protoze table.name urcite pozaduje string (Y:String)
Pisu z prace takze to nemuzu odskouset
Cau Bobr
---
E-mailova sluzba je sponzorovana
www(tec)cz.medicentrum.com, stranky pro lekare i verejnost
Ukrytie stlpca(riadka) v DBGrid
[*] PetoSoft <Petosoft(zv)centrum.sk> - 30.10.2002 11:05:31
Zdravim.
Chcem sa spytat ako v DBGrid-e ukryjem stlpce a popripade aj riadky.
Diky
Ukrytie stlpca(riadka) v DBGrid
[*] Ludo Fulop <kexo(zv)ynet.sk> - 30.10.2002 12:12:27
stlpce pomocou columns editora v design mode (2xklikni na grid)
riadky asi len pomocou vhodneho sql dotazu
Ludo Fulop
----- Original Message -----
From: "PetoSoft" <Petosoft(zv)centrum.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 30, 2002 11:05 AM
Subject: Ukrytie stlpca(riadka) v DBGrid
> Zdravim.
> Chcem sa spytat ako v DBGrid-e ukryjem stlpce a popripade aj riadky.
> Diky
Sinea generator 3.39y
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 30.10.2002 12:39:36
Dobr� den
Je mozno dosahnout stavu aby v generatoru sestav verze 3.39y pri nahledu
nebylo pristupne tlacitko "Tisk sestavy"
v TPrintButtonu volam OnReport
procedure TForm1.tPrintButton1Report(Sender: TObject);
begin
with Sender as TPrintButton do
begin
if Report = nil then Exit;
case State of
bsPrint: Report.Print;
bsPreview: Report.PreviewWhere(Rect(0,0,0,0), poScreenCenter,
wsMaximized, 83);
bsEdit: Report.Edit;
end;
end;
end;
Chtel bych tuto moznost vyuzit jako omezeni pro demoverzi
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.423 / Virov� b�ze: 238 - datum vyd�n�: 25.11.2002
Ukrytie stlpca(riadka) v DBGrid
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.10.2002 13:31:57
Ahoj,
On 30 Nov 2002 at 12:12, Ludo Fulop wrote:
> stlpce pomocou columns editora v design mode (2xklikni na grid)
> riadky asi len pomocou vhodneho sql dotazu
> Ludo Fulop
>
> ----- Original Message -----
> From: "PetoSoft" <Petosoft(zv)centrum.sk>
> > Chcem sa spytat ako v DBGrid-e ukryjem stlpce a popripade aj riadky.
> > Diky
sloupec muzes takto
DBGrid.Columns[index].Visible := false;
radek viz vyse
Jarek
Vlastnosti Remote Data Modulu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2002 14:33:36
> Odes�latel: Pavel Poles <poles(zv)student.fsid.cvut(tec)cz>
> nevite nekdo jakym zpusobem pristupovat k funkcim a promenym, ktere
> mam definovane v unite pro Remote Data modul.Tento modul pouziva multiple
> Instancing, a tedy pro kazdy pozadavek od noveh klienta se vytvori v ramci
> jedne
> aplikace novy modul.
> Jakym zpusobem muzu pristoupit k vlastnostem jednotlivych techto modulu?
> (nejlepe vsech postupne...)
Remote Data modul je jednak normalni pascalovska trida, jednak COM-objekt, ktery implementuje dany interface. Jako na instanci pascalovske tridy k nemu lze pristupovat pouze na aplikacnim serveru, jako na COM- objekt na nej lze pristupovat z klienta pres metody (properties) toho interface.
Z klienta se dostanu na tyto metody proste tak, ze si vyzadam prislusny interface (CreateCOMObject, CoMyClass.Create, ...).
Jak se dostanu ze serveru na instanci objektu? No, samotny aplikacni server nema poneti o tom, ze dany COM-objekt vznikl, takze se na nej sam nedostane. Je treba prepsat metodu Initialize (override) toho Remote Data Modulu a v teto metode se vznikajici instance COM-objektu nekam zaregistruje. Treba tak, ze zavola metodu na hlavnim formulari RegisterMe(self) a tato metoda si ten parametr prida do nejakeho TList.
Pak muzu
for i:=0 to List.Count-1 do
TMyRemoteDataModule(List[i]).NejakaMetoda.
Viz nas kurz Vicevrstve aplikace.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Sinea generator 3.39y
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 30.10.2002 18:50:42
> From: Viktor Marek
>
> Je mozno dosahnout stavu aby v generatoru sestav
> verze 3.39y pri nahledu
> nebylo pristupne tlacitko "Tisk sestavy"
Komponenta TSestava ma public property PrintDisabled.
Vychozi stav je false. Nastavenim na true
se zablokuje funkce "Tisk sestavy"
z preview i z editoru predloh.
Tedy asi takto:
Sestava1.PrintDisabled := true;
Vaclav Krmela
rozdelit disk bez reinstalace ???
[*] Branislav Dimo� <listonos(zv)stonline.sk> - 30.10.2002 19:34:32
Odporucam Mandrake Linux a zvolit expertnu instalaciu.
Osobne som robil to iste ale s fat32 a islo to v pohode,
akurat treba pred tym defragmentovat disk aby sa vsetky data
dostali na zaciatok disku. Skus sa poobzerat ci niekto neodobera
casopis computer tam vysiel na CD Mandrake 8.1
Nemusis ho nainstalovat staci sa preklikat k rozdeleniu diskov,
spravit co treba a instalaciu ukoncit
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 27, 2002 12:33 PM
Subject: RE: rozdelit disk bez reinstalace ???> > Nazdar lidi. Na disku mam W2000 / NTFS a ted doslo k tomu, ze
> > bych potreboval bez reinstalace rozdelit disk na nekolik
> > logickych disku. Na jeden takto vznikly logicky disk
> > potrebuji dat Linux. Mate nekdo nejake vedomosti zda je to
> > mozne nejakym zpusobem provest, aniz bych musel
> > preinstalovavat stavajici W2000 + vse co mam na disku. Diky
> > za rady. Delphik
>
> Je to sucastou instalacie napr. SuSE Linux, ktora za behu zmensi Windows
> partition bez straty dat, vytvori si (podla zadanych parametrov) Linux
> partition a potom sa tam nainstaluje. U mna to tak fungovalo bez
problemov.
> Ci je to aj v inych distribuciach, to neviem.
>
> HTH
> TOndrej
Access a polozka Datum+Cas
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 18.10.2003 21:55:23
Zdravim,
Mam v Accessu polozku, ktera je typu Date/Time (datum/�as). Poradite mi v
jakem formatu se do tohoto pole ma vkladat datum a cas: zkousel jsem tohle,
ale nefunguje to ...
FormatDateTime('"#"yyyy"/"mm"/"dd hh":"nn":"ss"#"',
Date+Time)
Diky Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
LIBMYSQL.DLL
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 19.10.2003 11:38:46
Nevite nekdo, kde se ted najde nejaka nejaktualnejsi verze knihovny
LIBMYSQL.DLL - na sourceforge.net tam to nejak nemuzu najit...
Diky Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Deklarace plosneho pole>?
[*] J.Dostal <dostal.j(zv)wo(tec)cz> - 18.4.2002 10:12:06
Ahoj potrebuji deklarovat plosne pole ("potrbuji prvky treba a11 ...a25
..az a55") Dik Jiri Dostal
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.197 / Virus Database: 94 - Release Date: 24.9.2000
OT: Re: Object Pascal Was: Pad Delphi pri def. vi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 01.12.2002 00:09:26
> Tragedie je, ze se nikdo nesnazi jeste predtim porozumet tomu co pouziva.
> Nejde o to umet vsechny metody TButton nazpamet, ale mit nejakou
povedomost o
> tom jaky jazyk pouzivam a jak je v nem implementovano OOP, jake mi RTL
nabizi
> zakladni tridy pro praci s objekty, jak funguji interface ...
a principoch, na ktorych to je zalozene
> Mozna k tomu dojde ve vetsim meritku az se objevi Delphi .NET, i kdyz plno
> novych veci v jazyce si lze odzkouset uz dnes pomoci radkoveho prekladace
a
> IDE experta pro Delphi 7.
silne o tom pochybujem, ale aspon programatori objavia niektore zaujimave
moznosti ako garbage collector, unifikovany typovy system so silnou typovou
kontrolou, metadata a atributy, neskor snad aj genericke typy (maju byt
zabudovane v .NET 2 a C# 2). Jedna vec je ale pochopit ako tieto veci
funguju a ako sa pouzivaju a druha vec je pochopit zmysel - naco su a naco
nie su. Napr. vynimky v Delphi, ktore (snad) vecsina Delphi programatorov
pozna a aj bez problemov pouziva, len casto nespravnym sposobom. O tom
sa tu diskutovalo, zda sa mi vsak, ze takychto diskusii je v konferencii
dost malo.
> > Jenze bez vykladu principu OOP to neni ono :-(
dovolim si povedat, ze dokonca v odbornej literature o OOP
je problem tieto principy najst. Je aj problemom systemu
vzdelavania, ze sa preferuje (aspon teda ja som sa s tym
stretol) memorovanie znalosti namiesto ich pochopenia.
Dokonca pochopenia vobec toho, naco tie znalosti
vlastne su, napr. taka mnozinova matematika, ktoru sme
sa my ucili hned v prvej triede alebo skladba vety (ci ako
sa to volalo), co sme sa ucili na druhom stupni, nehovoriac
o obcianskych naukach, rozboroch basni a podobnych
nezmysloch ;-). Nic proti vzdelavaniu, naopak najlepsia
investicia je jednoznacne investicia do vzdelania, ale zalezi
aj na tom akeho vzdelania.
Erik
Ukrytie stlpca(riadka) v DBGrid
[*] PetoSoft <Petosoft(zv)centrum.sk> - 1.12.2002 00:36:36
Diky za radu. Toto je presne to co som potreboval.
> sloupec muzes takto
> DBGrid.Columns[index].Visible := false;
>
> Jarek
>
Prekreslovani nepravouhlych objektu was: pohyb for
[*] Erik Salaj <winsoft(zv)stonline.sk> - 01.12.2002 14:51:18
> Zajima me, jestli prekreslovani nepravouhlych objektu probiha v GUI
Windows
> (popr. Linux aj.) v pametovem bufru nebo se treba po vodorovnych
> mikroradcich zkoumaji hranice objektu (podle nadefinovanych regionu).
Podle
> me by melo jit oboji. A jak je resena rychlost, treba kdyz pod
nepravouhlym
> objektem bezi nejaka animacka nebo se prekryva vic nepravidelnych objektu?
>
> U sveho softu jsem grafickemu driveru predaval vzdycky pole pravouhlych
> vyrezu, kam smel kreslit a on to postupne projel a vykreslil kusy car nebo
> ploch. U nepravouhlych objektu by se mu mel predat cely region. Orezavani
> pak ale musi bejt dost slozity.
jedna z moznosti je, ze sa vytvori bitova maska, cez ktoru sa pixely
vykresluju, to by malo byt dostatocne rychle, ale ci to je tak urobene
vo Windowse alebo v Linuxe to neviem. Inak zaujimavo je riesenie
vykreslovanie v PS2, tam posielas grafickemu procesoru popis
sceny pomocou zakladnych objektov ako bod, ciara, trojuholnik,
sprite, ... (kazdy vrchol ma 3 suradnice plus alpha blending), dalej
nastavis parametre ako antialiasing, hmla, tienovanie a GPU
zabezpeci generovanie pixelov do embedded video pameti.
Erik
Delphi Encryption Compendium pro Delphi 7
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 1.12.2002 22:06:06
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Coz uz melo byt v Delphi 5, ale kdo vlastne pise
> komponenty tak jak by se to melo delat
> (kdyz to bohuzel z duvodu zpetne kompatibility slo
> delat i spatne), ze ?
Ne kazdy zacal psat komponenty az v D5 ;-)
Kdyby Borland striktne oddelil DT/RT
uz v D2 (kdybychom pripustili, ze vzhledem
ke kapacitnim omezenim D1 bylo jejich slouceni
opodstatnene), tak by takove problemy nevznikaly...
***
Jinak jeste k tomu DEC, vlastni instalace do D6/D7
je jedna vec - spise formalni, ale aby se dalo pouzivat, musi se opravit
nasledujici autorova
"paradicka"
Unit DECutil.pas v INITIALIZATION sekci zmenit
InitTestIsOK := CRC32($29524828,GetTestVector,32)
= $9B497502;
HTH, pf
Seriova komunikacia
[*] Robert Fujak <robof(zv)inmail.sk> - 1.12.2002 21:00:53
Zdravim,
potreboval by som spravit app na komunikaciu s dvoma zariadeniami cez
seriovy port,
ale neviem ako komunikuju. Mohli by ste mi poradit kde mozem zohnat, alebo
popripade
ako napisem app na odsledovanie tejto komunikacie? (PC1<-->mojePC<-->PC2)
Dakujem. Robo.
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.423 / V�rusov� datab�za: 238 - d�tum vydania: 25. 11. 2002
----------
Teraz si uz KAZDY moze registrovat svoju domenu .SK
Viac info na: http://www.SlovakNET.sk/predregistracia.asp
Sifrovani dat v IB/FB
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 1.12.2002 22:19:15
Ahoj,
se zajmem jsem si procetl starsi diskuse o zabezpeceni dat v IB/FB. Nektera
doporuceni mi pripadla jako z jineho sveta :). Mam dojem, ze aplikace
postavene na IB pobezi predevsim v mensich a strednich podnicich, kde
a) nemaji server nekde pod zamkem, pokud vubec nejaky dedikovany server maji
b) jako OS casto pouzivaji Win9x
c) riziko odcizeni databaze nebo jeji zalohy je realne (tisic prilezitosti),
databaze neni nijak velika
d)presto by v praxi stacilo jednoduche sifrovani dat, defacto znecitelneni
presto maji v db nejaka data, ktera chteji utajit. S IB se teprve seznamuji,
ale pokud tomu dobre rozumim, tak odnesu-li odnekud databazi, dostanu se do
ni na jakemkoli IB serveru. Dokonce, pokud budu chtit napr. zjistit neci
telefonni cislo, staci mi k tomu jakykoli prohlizec. Zajimalo by mne, jake
jsou zkusenosti se sifrovanim dat na IB, jake kdo pouziva metody (nemyslim
ted sifrovaci algoritmy, ale jak je sifrovani implementovano a kde probiha),
jake jsou pro/proti, jake to prinasi problemy atd.
Zkusil nekdo nejaky soft, ktery sifruje data primo na disku?
Neplanuje se (otazka pro Pavla Cisare) implementace sifrovani primo do FB?
Martin Burle
Ziskani ikony nevytvoreneho formulare - maly pokr
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 1.12.2002 22:22:46
> Uloz tu ikonu jako resource do daneho balicku a pak ji pomoci
TResourceStream
> a TIcon.LoadFromStream natahni z balicku, podobne jako z jakekoli jine
DLL.
Ahoj, podarilo se mi dostat ikony do balicku, pomoci ikony.RC:
FrmAdresar ICON C:\Delphi\1\bitmaps\FrmAdresar.ico
FrmKatalog ICON C:\Delphi\1\bitmaps\FrmKatalog.ico
po kompilaci: brcc32 -32 ikony.rc,
pridani {$R Ikony.res} do .dpk mam v balicku nove nikoli polozky icon, ale
Icon
Group. Na ne se sice dostanu:
resStream:=TResourceStream.Create(FModuleInstance,'FRMADRESAR',RT_GROUP_ICON
);
Icon.LoadFromStream(res);
ikona (nebo spis to co dostanu) je ale cela cerna. Co delam spatne ? Resp,
jak se dostanu na ikony ulozene v iconGroup, nebo jak je dostanu do resource
polozky typu ICON? Diky,
Martin Burle
Ako zistit ci bezi Word
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 2.12.2002 07:34:17
Jestli jsem ti dobre rozumel, tak si odchyt udalost
OnClose
u sveho dokumentu.
Pavel
> WordApplication.Application.Get_Visible mi vrati chybu ak sa Word uz
> ukoncil. Aky je spravny postup na zistovanie ci bezi Word ?
>
> Ina instancia Wordu ma nezaujima, iba ta moja ktoru som spustil cez
> WordApplication.
>
Sifrovani dat v IB/FB
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 2.12.2002 08:12:38
From: "Martin Burle" <mburle2(zv)volny(tec)cz>
> se zajmem jsem si procetl starsi diskuse o zabezpeceni dat v IB/FB.
Nektera
> doporuceni mi pripadla jako z jineho sveta :).
Hmm, obecne platna i pre ine DB stroje ;)
> Mam dojem, ze aplikace
> postavene na IB pobezi predevsim v mensich a strednich podnicich, kde
Hmm, co povazujes za stredne podniky ;)
> a) nemaji server nekde pod zamkem, pokud vubec nejaky dedikovany server
maji
> b) jako OS casto pouzivaji Win9x
> c) riziko odcizeni databaze nebo jeji zalohy je realne (tisic
prilezitosti),
> databaze neni nijak velika
Kazdy podnik ma tento problem ak ma aspon jednoho cloveka ktory ma pravo k
DB pristupovat !!!
*1 Okre toho i kazdy uzivatel pracujuci s urcitou agendou ma moznost dostat
sa k urcitym datam !!!
Toto je realne riziko aboslutne kazdej firmy i so sebelepsim zabezpecenim.
> d)presto by v praxi stacilo jednoduche sifrovani dat, defacto znecitelneni
Je to k nicemu viz. *1
> presto maji v db nejaka data, ktera chteji utajit. S IB se teprve
seznamuji,
> ale pokud tomu dobre rozumim, tak odnesu-li odnekud databazi, dostanu se
do
> ni na jakemkoli IB serveru. Dokonce, pokud budu chtit napr. zjistit neci
> telefonni cislo, staci mi k tomu jakykoli prohlizec.
Existuju zabezpecenia ako to nebezpecenstvo eliminovat, ale hacker a nemusi
byt ani prilis dobry, urcite rozluskne kazde zabezpecenie.
> Zajimalo by mne, jake
> jsou zkusenosti se sifrovanim dat na IB, jake kdo pouziva metody (nemyslim
> ted sifrovaci algoritmy, ale jak je sifrovani implementovano a kde
probiha),
> jake jsou pro/proti, jake to prinasi problemy atd.
Jedina vec a nutna v kazdom pripade, je zabezpecit server (PC(s) na ktorom
IB/FB bezi)
> Zkusil nekdo nejaky soft, ktery sifruje data primo na disku?
Pri desiatkach/stovkach konekcii si to z vykonnostnych dovodv nemozes
dovolit.
A nakoniec Ti to i tak bude k nicomu, pretoze ak sa niekto dostane k servru
aj tak si odtial odnesie co chce.
Takze Alfa a Omega problemu je zabezpecit server a doverovat ludom, ktory k
nemu maju pristup ;)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Seriova komunikacia
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 2.12.2002 08:16:01
Pokud potrebujes komunikaci pres RS232, existuje spousta monponent, ja
pouzivam CPort ...
> Zdravim,
> potreboval by som spravit app na komunikaciu s dvoma zariadeniami cez
> seriovy port,
> ale neviem ako komunikuju. Mohli by ste mi poradit kde mozem zohnat, alebo
> popripade
> ako napisem app na odsledovanie tejto komunikacie? (PC1<-->mojePC<-->PC2)
> Dakujem. Robo.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
gbak
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 02.12.2002 08:27:47
> me to chodi naprosto bez problemu... zaloha i obnoveni na D6P
> bleak
Ahoj,
a muzu se zeptat, na jak velke databazi, myslim z hlediska poctu
tabulek a tak. Ono to tozi vyhuci az po delsi dobe, takze nejake
neprilis kosate databaze asi nebudou delat problemy.
Jinak je to ale uz jedno, jen me to zajima. K uvedenym
komponentam jsem pojal neduveru a budu radeji pouzivat pro
zalohovani IBExperta nebo IBConsoli.
Dik
David Lebeda
Sifrovani dat v IB/FB
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.12.2002 08:42:24
----- Original Message -----
From: "Pavol Kakacka" <kakacka(zv)proca(tec)cz>> Hmm, co povazujes za stredne podniky ;)
treba kolem 20 lidi :)
> > d)presto by v praxi stacilo jednoduche sifrovani dat, defacto
znecitelneni
> Je to k nicemu viz. *1
S tim bych si dovolil nesouhlasit. Podle meho ze stovky lidi, kteri by
chteli db ukrast, nebo se v ni alespon postourat, jich 50 odpadne, protoze
vubec nevedi, kde a co vubec hledat a ze zbytku 99%, jakmile zjisti, ze
data neumi precist. Zpravidla se jedna spise o zlomyslnost, a tito lide
nebudou investovat cas/penize do prolomeni byt jednoduche ochrany. Vubec
jsem nechtel nastartovat diskuzi o neprolomitelnem zabezpeceni.
Kdyz nekomu nabizim aplikaci postavenou na pdoxu, a na dotaz o moznosti
sifrovani reknu: "ano, ale pro odbornika neni problem data otevrit", slycham
"OK, nechceme jen, aby data mohl otevrit kazdy (nas) nouma".
> Takze Alfa a Omega problemu je zabezpecit server a doverovat ludom, ktory
k
> nemu maju pristup ;)
V nasem kraji? :(((
Martin Burle
Jak zjistit prihlaseneho uzivatele pod windows 200
[*] petr polasek <dragonz(zv)post(tec)cz> - 02.12.2002 08:43:31
Zdravim,
potreboval bych poradit jakym zpusobem zjistit uzivatele, ktery
je prihlaseny na konkretnim pocitaci v siti. To znamena aby mi po
zadani nazvu pocitace, nejaka funkce vracela aktualne
prihlaseneho uzivatele. Pouzivam windows 2000 a delphi 5
enterprise. Dekuji za kazdou radu
--=20
---
U=B9et=F8ete provoz na sv=E9 internetov=E9 lince um=EDst=ECn=EDm serveru do
profesion=E1ln=EDch housingov=FDch prostor Jet2Web Czech Republic. V=E1=B9
server bude pod trval=FDm bezpe=E8nostn=EDm dohledem, v p=F8=EDpad=EC poruc=
hy
provedeme na va=B9i =BE=E1dost jeho restart. K serveru m=E1te p=F8=EDstup 2=
4
hodin denn=EC. V=EDce informac=ED na:
http://www.jet2web(tec)cz/cs/products?article=3Djet2web_products_housing_housin=
g