Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ConnectionString na ODBC Interbase
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.8.2001 11:19:55
Pokusim sa vyjadrit presnejsie o co mi ide,
potrebujem vytvorit pristup k Interbase na internetovej stranke pomocou
objektu "ADODB.Connection". V Spravcovi ODBC som definoval uzivatelske DSN s
nazvom IBData. Pomocou D5 som si pomocou wizardu na componente
TADOConnection vytvoril takyto connection string:
ADOConnection1.ConnectionString:=#Provider=MSDASQL;Password=masterkey;User
ID=SYSDBA;Data Source=IBData#
Nastavenim Connected na True sa uspesne vytvorilo spojenie. Zatial vsetko v
poriadku.
Na ASP-stranke som definoval takyto kod
var oConn=Server.CreateObject('ADODB.Connection');
oConn.Open('Provider=MSDASQL;User ID=SYSDBA;Password=masterkey;Data
Source=IBData');
ale tu pri otvoreni bohuzial koncim chybovou hlaskou = ([Microsoft][Spravce
ovladacu ODBC] Nazev zdroje dat nebyl nalezen a nebyl urcen zadny vychozi
ovladac) Chybu nevidim, preco? V podstate sa jedna o pristup k databaze
obecne prostrednictvom ODBC, teda nie priamo cez nativne drivery cielovej
databazy. Prosim, kto to uz cez ODBC uspesne skusil, aby mi poslal spravny
tvar connection string.
Pavol Stolc
pstolc(zv)sc.sknet.sk
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 20.8.2001 11:19:37
Ahoj,
Ne ze by se mi tvorba vlastnich objektu nelibila (uz jsem to takto take
resil) ale chci to resit jinak zejmena proto, ze dopredu nevim jake
databazove polozky mi z databaze prijdou. To si rekne az uzivatel. Trochu to
upresnim. Aplikace samozrejme bude trvat na nacteni nejakeho minima polozek
a zbytek si rekne uzivatel jestli je chce nebo ne. Pokud je nechce uzivatel
tak je prece nebudu tahat z databaze na klienta. Ja (aplikace) potrebuji
urcite minimum, ktere mi poslouzi k tomu abych dokazal nakrmit ruzne
zobrazovaci komponenty. Konkretne treba klasicky DBGrid (proto data nacitam
do kbmMemTable) u ktereho problem neni, ale taky treba z techtyz dat
(kbmMemTable) chci nakrmit komponentu OvcReportView (balik Orpheus od
TurboPower), ktera si pro svoje funkce (trideni, souctovani, ...) udrzuje
seznam pointeru na data. A o ty pointery na data mi jde. Kde je vezmu, kdyz
mam z vyse uvedenych duvodu datove zaznamy nactene do kbmMemTable (popripade
jineho pametoveho DataSet-u). A jsou i dalsi komponenty ktere mohu timto
zpusobem krmit daty (jiz vzpominany TreeView atd.).
A nebo snad uvazuji naprosto scestne?> Ahoj ...
>
> Tak kdyz se ti nelibi tvorba vlastnich objektu ...
>
> 1. Pointer jako Integer
>
> Z databaze si myzes tahat ID, kdyz to je AutoInc, tak mas vyhrano, jinak
> doporucuji prenastavit .... pak ID je Integer ... pak muzes
>
> ptr := Pointer(ID) ...
>
> a nazpet ID := Integer(ptr)
> A kdyz mas ID, tak muzes nastavit aktualni radek v databazi, jak chces,
> Locate asi fastest ... a pak mas k dispozici vsechny sloupce z tabulky ...
>
> Cau
>
> Radek
OT - razeni zprav v OE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.8.2001 11:25:20
Ahoj,
nevite nekdo, jestli je mozne v Outlook Express radit zpravy z
News jinak nez stromove podle subj., nebo zda lze news odebirat i
v Outlooku?
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Cursor mimo formular
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 20.8.2001 11:28:59
Ahoj,
jeste jeden dotaz snad lepe pochopitelny. Mam formular pekne oblozeny
komponentami, takze z nej nei videt krome titulku snad ani kousek. Otazka
zni : jak zjistim, ze mysi kurzor opustil oblast formulare. Chtel bych ten
formular napriklad schovat kdyz mys opusti jeho oblast.
Nakopnete me prosim nekdo.
Dopredu dik
cau
PavelC
Mailto este raz
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 20.8.2001 11:41:23
> Me v Pegasus Mailu to chodi bez problemu, ale zkus misto druheho
> otazniku dat znak &, tedy:
> mailto:bla(zv)bla(tec)cz?subject=ahoj&body=zprava
A ako dam do tela viac riadkov?
'body=Riadok1'+Chr(13)+'Riadok2' nefunfuje
Mozem pomocou mailto posielat aj prilohy? Alebo to by som uz chcel vela?
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.8.2001 11:42:54
On 20 Aug 2001, at 11:19, ing.Pavel Cabalka wrote:
> Ahoj,
> Ne ze by se mi tvorba vlastnich objektu nelibila (uz jsem to takto
> take resil) ale chci to resit jinak zejmena proto, ze dopredu nevim
> jake databazove polozky mi z databaze prijdou. To si rekne az
> uzivatel. Trochu to upresnim. Aplikace samozrejme bude trvat na
> nacteni nejakeho minima polozek a zbytek si rekne uzivatel jestli je
> chce nebo ne. Pokud je nechce uzivatel tak je prece nebudu tahat z
> databaze na klienta. Ja (aplikace) potrebuji urcite minimum, ktere mi
> poslouzi k tomu abych dokazal nakrmit ruzne zobrazovaci komponenty.
> Konkretne treba klasicky DBGrid (proto data nacitam do kbmMemTable) u
> ktereho problem neni, ale taky treba z techtyz dat (kbmMemTable) chci
> nakrmit komponentu OvcReportView (balik Orpheus od TurboPower), ktera
> si pro svoje funkce (trideni, souctovani, ...) udrzuje seznam pointeru
> na data. A o ty pointery na data mi jde. Kde je vezmu, kdyz mam z vyse
> uvedenych duvodu datove zaznamy nactene do kbmMemTable (popripade
> jineho pametoveho DataSet-u). A jsou i dalsi komponenty ktere mohu
> timto zpusobem krmit daty (jiz vzpominany TreeView atd.). A nebo snad
> uvazuji naprosto scestne?
DBGrid nebo DataSet (uz si nepamatuji, kde presne to je), si
nacita data tak, ze ma pole PCharu, kazdy PChar je alokovan na
delku vety (soucet delek sloupcu), pricemz kazdy sloupec ma svou
danou pozici v tom PCharu. Podle toho, ktera komponenta to je, si
pamatuje Column nebo Field umisteni zacatku dat a jejich typ v
poli PChar. Takze, budto muzes zkopirovat tuto strukturu do
nejakeho sveho pole, nebo muzes vyuzit existujici struktury
(obavam se vsak, ze tato struktura je schovana, takze bude
prislusnou komponentu treba prekryt).
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT - razeni zprav v OE
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 20.8.2001 11:50:39
Ahoj,
v Outlook Express se da vypnout zobrazovani do stromove struktury
- Zobrazit -> Aktualni zobrazeni - Seskupit zpr�vy podle konverze
Pokud se toto vypne, pak je mozne radit zpravy podle jednotlivych sloupcu.
(takto to funguje alespon ve verzi 5.0)
S pozdravem
Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zbysek Hlinka
> Sent: Monday, August 20, 2001 11:25 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT - razeni zprav v OE
>
>
> Ahoj,
>
> nevite nekdo, jestli je mozne v Outlook Express radit zpravy z
> News jinak nez stromove podle subj., nebo zda lze news odebirat i
> v Outlooku?
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>
Prevod z FoxPro do SQL
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 20.8.2001 12:09:05
Caute,
prevadim data z FoxPro do SQL 7 pres ODBC, kde ovladac pro Foxku mam ODBC
nastaveno jako Microsoft visual FoxPro Driver a pro SQL 7 mam ovladac ODBC
nastaven jako SQL server, vse bezi vporadku, ale pri nekterych tabulkach z
Foxky ktere se pokousim pomoci D5 otevrit mi hlasi chybu : NUMBER IS OUT OF
RANGE, nevite nekdo nahodou co stim.
pr.
>Table1.DatabaseName:=combobox1.text; // vyber systemoveho zdroje dat
>Table1.Active:=false;
>Table1.TableName:=combobox2.text; // vyber tabulky pro prevod
>Table1.Active:=true; // tady mi to hodi chybu
DIK
OT: XML, XSL, DTD...
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.8.2001 12:10:56
Ahoj,
a o co Ti presne jde? Chces ziskat HTML dokument nebo zobrazit
XML dokument s nejakym formatovanim? Bohate staci, kdyz si
napises nejaky styl (at CSS ci XSL) a pomoci nej nechas data
zobrazit. (Obecne CSS je k nicemu, resp. IE s tim neumi pracovat
tak, jak by mel.) DTD k tomu nepotrebujes, leda ze potrebujes pri
transformaci dokument jeste zkontrolovat.
Slavek
> Muze mi nekdo prozradit, jak prinutim prohlizec (IE 5.5), aby provedl
> transformaci xml dokumentu a zobrazil mi ho jako html stranku? Pripadne
> jestli k tomu potrebuji jeste neco dalsiho.
> Miroslav Novosad
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 20.8.2001 12:11:39
Ahoj,
no nevim jestli tudy vede cesta. Obzvlaste kdyz tech dat (rozumej zaznamu)
nemusi byt zrovna malo a pro kazdy zaznam potrebuji ziskat pointer pro
vizualizacni komponentu, tak nevim jestli by to nebylo treba ponekud pomale.
No uvidim, jestli budu mit na tento experiment chvilku tak ho testnu. Diky.
PavelC
----- Original Message -----
From: Hynek Svato# <svatos(zv)kam(tec)czu(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 20, 2001 11:03 AM
Subject: RE: Vazba na data v pameti
> A co pouzit bookmarky ?
> TreeView.Items.AddObject(MemDataSet['Nazev'], MemDatatSet.GetBookmark);
> Vice viz. help: TBookmark.
>
> Keep mailing :-)
> =======================
> Ing. Hynek Svato#
> svatos(zv)kam(tec)czu(tec)cz
> hynek.svatos(zv)atlas(tec)cz
> =======================
>
> > > Ahoj,
> > > zda se, ze jsem u konce se svymi znalostmi, proto se obracim na vas s
> > > prosbou o radu. Mym cilem je nacist data z IB do pameti=kbmMemTable a
s
> > > takto nactenymi daty potom pracovat (staci zobrazovat) pomoci dalsich
> > > komponent=napr.TreeView.
> > > Dostat data z databaze do kbmMemTable je brnkacka=No Problem.
> > Ale napr. v
> > > TreeView zobrazuji pouze cast dat a zbytek (resp. cely "zaznam") bych
> > > potreboval pres pointer privazat (TreeView.Items.AddObject(Node:
> > TTreeNode;
> > > const S: string; Ptr: Pointer)). Otazka zni kde vezmu to Ptr ???
> > > Pokud uvazuji, ze kbmMemTable mi vystupuje v roli DataSet-u a zobecnim
> > > problem : Existuje v DataSet-u (TQuery,...) odkaz na jednotlive
recordy
> > ???
> > > Pokud ano, jak se s tim ma pracovat - potrebuji se odkazovat na
> > jednotlive
> > > polozky toho recordu - jakeho je ten record typu? Podotykam, ze
> > okolnosti
> > me
> > > nuti predpokladat, ze predem neznam strukturu onoho zaznamu (pocet a
typ
> > > polozek).
> > > Pro vysvetleni k cemu to potrebuji : dejme tomu, ze podle stavu
urcitych
> > > nezobrazenych(TreeView) ale nactenych(kbmMemTable) polozek chci
nastavit
> > > napr. barvu podbarveni nebo tak neco.
> > > Samozrejme ze takovych komponent, ktere jsou schopny drzet
> > pointry na data
> > > ackoliv je vsechna primo nezobrazuji je hromada, ja jsem pro priklad
> > > nadhodil TreeView.
> > > Jinak samozrejme ze pokud bych znal strukturu nactenych dat,
> > mohu si je v
> > > pameti prekopirovat do jine pametove struktury ale vzheledem k
> > tomu, ze je
> > > jiz jednou mam nactene do kbmMemTable pripada mi to jako
> > zbytecne plytvani
> > > pameti. Co vy na to?
> > > Poradi nekdo ?
> > > za pomoc predem dekuji
> > > a preji prijemny den, tyden, ...
> > > Cauky
> > > PavelC
Cursor mimo formular
[*] brant(zv)dcomm(tec)cz - 20.8.2001 12:24:49
Pouzij message CM_MOUSELEAVE.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Otazka zni: jak zjistim, ze mysi kurzor opustil oblast formulare. Chtel bych
ten
formular napriklad schovat kdyz mys opusti jeho oblast.Spusteni Excelu v DLL
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 20.8.2001 12:43:07
Mno v pripade ze ten Excel mas korektne nainstalovany na tom pocitatci kde
to spustas tak by tam problem nemal byt.
A ked to nespustis z DLL ale z EXE tak Ti to funguje?
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> nejak se mi nedari exportovat data do Excelu v DLL knihovne.
> Pouzivam tento kod:
> try
> Excel := GetActiveOleObject('Excel.Application');
> except
> try
> Excel := CreateOleObject('Excel.Application');
> except
> ShowMessage('Nelze vyvolat MS Excel');
> Exit;
> end;
> end;
> a vzdy kdyz to z programu zavolam vyhodi hlasku 'Nelze vyvolat MS Excel'.
> Nevite proc, pripadne co s tim?
Spusteni Excelu v DLL
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 20.8.2001 12:50:20
Bohuzel funguje. Proto mne to zarazilo ze z DLL to nefacha.
> -----Original Message-----
> A ked to nespustis z DLL ale z EXE tak Ti to funguje?
>
>
> > a vzdy kdyz to z programu zavolam vyhodi hlasku 'Nelze
> vyvolat MS Excel'.Spusteni Excelu v DLL
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 20.8.2001 13:13:15
1. Este si skus kroknut dll a napis aku chybu To hadze, ShowMessage(', ....
to prebije a to nas nezaujima.
2. Pouzivas balicky alebo nie?
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> Bohuzel funguje. Proto mne to zarazilo ze z DLL to nefacha.
>
> > -----Original Message-----
> > A ked to nespustis z DLL ale z EXE tak Ti to funguje?
> >
> >
> > > a vzdy kdyz to z programu zavolam vyhodi hlasku 'Nelze
> > vyvolat MS Excel'.Cursor mimo formular
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 20.8.2001 13:48:01
> Ahoj,
> jeste jeden dotaz snad lepe pochopitelny. Mam formular pekne oblozeny
> komponentami, takze z nej nei videt krome titulku snad ani kousek. Otazka
> zni : jak zjistim, ze mysi kurzor opustil oblast formulare. Chtel bych ten
> formular napriklad schovat kdyz mys opusti jeho oblast.
ahoj,
nevim jak v design time, ale za behu to muzes udelat odchycenim
zpravy CM_MOUSEENTER a CM_MOUSELEAVE (doufam ze se nepletu), koukni
se do archivu aplikace, ja to tam kdysi taky nasel.
Milan Cizek, D5 Ent
______________________________________________________________________
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 20.8.2001 14:36:50
Ahoj,
ano DataSet ma pole PCharu v property Buffers lec tato je protected a nejak
se na ni nemuzu dostat. Nemuzes mi prosim trochu napovedet kudy ?
Index toho pole Buffers potom ziskam metodou CurrentRecord, ktera udava
prave index aktualniho zaznamu v poli Buffers, to uz by slo. Sice jeste
potom nemam predstavu, jak se budu odkazovat na polozky toho zaznamu jehoz
ukazatel budu znat ale ted zatim nevim jak si zpristupnit property Buffers,
tak kdybys byl tak hodny a ...
predem diky
PavelC
>
> DBGrid nebo DataSet (uz si nepamatuji, kde presne to je), si
> nacita data tak, ze ma pole PCharu, kazdy PChar je alokovan na
> delku vety (soucet delek sloupcu), pricemz kazdy sloupec ma svou
> danou pozici v tom PCharu. Podle toho, ktera komponenta to je, si
> pamatuje Column nebo Field umisteni zacatku dat a jejich typ v
> poli PChar. Takze, budto muzes zkopirovat tuto strukturu do
> nejakeho sveho pole, nebo muzes vyuzit existujici struktury
> (obavam se vsak, ze tato struktura je schovana, takze bude
> prislusnou komponentu treba prekryt).
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 20.8.2001 15:08:51
On 20 Aug 2001, at 14:36, ing.Pavel Cabalka wrote:
> Ahoj,
> ano DataSet ma pole PCharu v property Buffers lec tato je protected a
> nejak se na ni nemuzu dostat. Nemuzes mi prosim trochu napovedet kudy
> ? Index toho pole Buffers potom ziskam metodou CurrentRecord, ktera
> udava prave index aktualniho zaznamu v poli Buffers, to uz by slo.
> Sice jeste potom nemam predstavu, jak se budu odkazovat na polozky
> toho zaznamu jehoz ukazatel budu znat ale ted zatim nevim jak si
> zpristupnit property Buffers, tak kdybys byl tak hodny a ... predem
> diky PavelC
:-) No, to nevim, leda si napsat potomka komponenty, pres kterou
si buffer zpristupnis. Vim, ze to tam nekde je, protoze jsem se z
toho inspiroval pro psani OLE DB gridu. Detaily si vsak uz
nepamatuji, protoze jsem si to prizpusobil svym potrebam. Ale
pokud je to protected a ne private, sanci mas.
Pokud se ti podari najit spravny radek, a znas pozici sloupce a
pripadne jeho typ, pak za techto podminek
Ptr: PChar; // ukazuje na nalezeny radek
Slp: integer; // poloha sloupce
...
function Xxxx.GetPointer: pointer;
begin
Result := pointer(Ptr + Slp);
end;
Ovsem je treba si zjistit, zda stringy vzdy konci nulou. Jinak budou
problemy.
function Xxxx.GetInteger: integer;
begin
case typ of
ttLong: Result := PLongint(Ptr + Slp)^;
ttWord: Result := PWord(Ptr + Slp)^;
end;
end;
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Spusteni Excelu v DLL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 20.8.2001 15:20:41
v DLL knihovne zavolat CoInitialize a pri ukonceni CoUnitialize. (tusim, ze
s ActiveX knihovny)
At 12:50 20.8. 2001 +0200, you wrote:
>Bohuzel funguje. Proto mne to zarazilo ze z DLL to nefacha.
>
> > -----Original Message-----
> > A ked to nespustis z DLL ale z EXE tak Ti to funguje?
> >
> >
> > > a vzdy kdyz to z programu zavolam vyhodi hlasku 'Nelze
> > vyvolat MS Excel'.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
btrieve
[*] Radomir Lipka <radomir.lipka(zv)medisoft(tec)cz> - 20.8.2001 15:36:55
Pokud by mel nekdo zajem o pristup k Btrieve souborum,
mel bych prostredek jak k nim pristupovat :
BTRIEVE <-> BTRPREV <-> ASCII soubor <-> aplikace
toto reseni je sice trochu krkolomne, ale beha to na 100%.
V pripade zajmu me kontaktujte na adrese LIRA(zv)MBOX.VOL.CZ
ConnectionString na ODBC Interbase
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 20.8.2001 15:46:58
> potrebujem vytvorit pristup k Interbase na internetovej stranke
> pomocou objektu "ADODB.Connection". V Spravcovi ODBC
> som definoval uzivatelske DSN s nazvom IBData.
> ADOConnection1.ConnectionString:=#Provider=MSDASQL;
> Password=masterkey;User ID=SYSDBA;Data Source=IBData#
Neznam ADODB.Connection, takze to mozna bude mimo misu.
Ale ta hlaska "nebyl nalezen zdroj dat ani vychozi ovladac" bych
soudil ze connection string bud neni vubec nebo je chybny.
To jsem asi moc neporadil, ze ? Zkusil bych to upravit takto:
DSN=IBData;UID=SYSDBA;PWD=masterkey
Daniel Rott
TIBQUERY
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 20.8.2001 16:47:35
var logtable:TIBQuery;
pocet:integer;
begin
logtable:=TIBQuery.Create(nil);
logtable.Database:=IBDataBase1;
logtable.Transaction:=IBTransaction1;
logtable.Database.Connect:=true;
logtable.Transaction.StartTransaction;
logtable.SQL.Text:='SELECT TABULKA,ID FROM RDB$TABLE_CHANGES WHERE
SYNCHRONIZED=0;';
try
logtable.Open;
logtable.FetchAll;
pocet:=logtable.RecordCount;
logtable.Transaction.Commit;
except
logtable.Transaction.RollBack;
end;
logtable.First ; //tady mi hlasi cannot perform this operation on closed
dataset proc ? dataset by se mel otevrit pri Open ?TIBQUERY
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 20.8.2001 18:17:04
V akom stave je ten dataset ked si das breakpoint na ten riadok? Commit
totiz uzavrie dataset! ak chces s tymi datami pracovat musis nechat
transakciu v zivom stave, cize commitnut inde.
btw: Preco pomenuvas tabulky s prefixom RDB$? grrr. ;-)
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> logtable:=TIBQuery.Create(nil);
> logtable.Database:=IBDataBase1;
> logtable.Transaction:=IBTransaction1;
>
> logtable.Database.Connect:=true;
> logtable.Transaction.StartTransaction;
>
> logtable.SQL.Text:='SELECT TABULKA,ID FROM RDB$TABLE_CHANGES WHERE
> SYNCHRONIZED=0;';
> try
> logtable.Open;
> logtable.FetchAll;
> pocet:=logtable.RecordCount;
> logtable.Transaction.Commit;
> except
> logtable.Transaction.RollBack;
> end;
> logtable.First ; file://tady mi hlasi cannot perform this operation on
closed
> dataset proc ? dataset by se mel otevrit pri Open ?ConnectionString na ODBC Interbase
[*] JIM Design <jim.design(zv)iol(tec)cz> - 20.8.2001 18:57:56
ahoj,
pouzivam SQL Server a muj conn string v asp vypada takto
oConn.Open ("Provider=SQLOLEDB.1;Data
Source=194.228.3.209;uid=abc;pwd=abc;database=shop");
problem muze byt v tom ze tam mas nakou DSN a ne primo IP toho serveru
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavol Stolc
Ahoj
pokusam sa pripojit na Interbase cez ODBC driver od Intersolv.
ConnectionString vyrobim v D5 pre ADOExpress a je takyto:
ConnectionString="Provider=MSDASQL;Password=masterkey;User ID=SYSDBA;Data
Source=IBData" - v D5 to funguje.
Ak pouzijem v ASP-subore tento ConnectionString, vynada mi ze takyto zdroj
dat nenasiel. Ak to niekto skusal, prosim o radu aky ConnectionString ste
pouzili, resp. kde robim chybu.
Dik,
Pavol Stolc
pstolc(zv)sc.sknet.sk
Edit & SetFocus
[*] JIM Design <jim.design(zv)iol(tec)cz> - 20.8.2001 18:57:59
ahoj,
vykasli se na simulaci klavesy a oznac si co potrebujes, tj.
po SetFocus zavolej Edit1.Selstart:=length(Edit1.text);
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Viktor Marek
Poradi nekdo
Jestlize mam v Editu nejaky zapis a dam Edit.SetFocus dojde k modremu
zabarveni toho co v Editu uz bylo napsano, takze
abych mohl pokracovat v zapisovani dalsich znaku musim do editu kliknout
levym tlacitkem mysi, nebo stisknout klavesu End, nebo stisknout pravou
kurzorovou sipku.
Pot�eboval bych to ale osetrit programove - neco jako programove
nasimulovani stisknuti klavesy
Mozna jsem ale prehledl nebo nepochopil neco v nastaveni Editu
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.268 / Virov� b�ze: 140 - datum vyd�n�: 7.8.2001
Spusteni Excelu v DLL
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 20.8.2001 19:04:51
Diky, to je presne ono.
CoInitialize() se opravdu nachazi v ActiveX.
Jenom bych dodat, ze se musi volat v programu, jeste pred volanim procedury
DLL knihovny a ne az v DLL ku.
MainDll ... nazev dll knihovny
ExToExcel ... volana procedure v DLL knihovne, ktera otevira Excel
h := LoadLibrary('MainDll');
if h = 0 then Exit;
(zv)mExport := GetProcAddress(h,'ExToExcel');
if not((zv)mExport = nil) then begin
CoInitialize((zv)mExport);
mExport;
end;
...
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> v DLL knihovne zavolat CoInitialize a pri ukonceni CoUnitialize.
> >Bohuzel funguje. Proto mne to zarazilo ze z DLL to nefacha.Prosba o radu - dealersky system
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 20.8.2001 19:09:53
Zdravim,
mam za ukol udelat dealersky system, ktery budou pouzivat dealeri firmy, kde
bezi muj SW (D5 na MS SQL 7/2000). Jde o to, ze chci, aby mel dealer vzdy co
nejaktualnejsi data (jedna se o vyber z nekolika tabulek databaze), ale
zaroven chci co nejvic omezit komunikaci po lince. Predstavoval bych si to
asi tak, ze ten dealer bude mit u sebe kopii casti databaze (vzdy jenom ty
data, ktera se ho tykaji) a na prikaz se mu zreplikuji (programove) data
tak, ze to, co pribylo, se mu tam vlozi, to co se zmenilo, se mu zmeni, a
to, co se smazalo, se mu smaze. Zatim me napada pouze reseni takove, ze by
mel u sebe MS Access databazi a ja bych programove hlidal, co bylo pridano,
zmenilo se a bylo smazano od jeho posledni replikace.
Dalsi vec je, jakym zpusobem ho do databaze pustit - nechci na FW povolovat
primo pristup do DB pres port 1433, takze neco jako HTTP connection nebo tak
...
Poradte mi, kdo mate jake zkusenosti s necim obdobnym.
Diky moc.
M.S.
Konferencia.exe
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 20.8.2001 19:12:57
From: <bukaj(zv)iol(tec)cz>
> Mam par dotazu na tenhle program:
>
> 1) Nebudou zdrojaky?
Uz su na www.webpark.sk/kom
> 2) Kdyztak bys mi aspon mohl prozradit, jak natahujes data z Outlooku.
Ja sam to mam z tejto konferencie, bol tu odkaz na nejaku stranku - uz
neviem aku. Posielam ti to na sukromny e-mail.
> 3) Kdyz spustim program, tak asi kazdou vterinu mi program na vterinu
> zamrzne. Snad provadi nejakou operaci, natahuje neco z databaze, a to
> nejakou dobu trva.
Ano kazdu sekundu kontroluje, ci nebol Outlook nahodou zapnuty. Mne to
nemrzne, tak som to tak nechal. Ale ked to vravis, v dalsej verzii spravim
kontrolu po dlhsom intervale.
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> To by pak bylo vhodne dat k dispozici i zpracovany obsah konference,
> podobne jako to dela KonfView.
Uz pracujem na dalsej verzii, ktora bude vediet stahovat i txt subory z
konferencie, ktore uverejnuje Slavek Rydval na stranke
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml.
Len zatial mam s tym citanim problemy a to by som chcel poprosit vsetkych,
aby ste si pozreli zdrojaky a pomohli mi stym.
PS: Dakujem za reakcie na program. Prosim Vas vsak, aby ste taketo prispevky
posielali do konferencie len v pripade, ze sa jedna o vec, ku ktorej by sa
mohli vyjadrit viacery a bude sa jednat o konkretnu cast zdrojoveho kodu.
Inak uvitam akykolvek prispevok na mojom e-mailu: martinkasman(zv)centrum.sk.
Kniha o MSSQL7 a Delphi
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 20.8.2001 19:12:10
Nevite nekdo o nejake knize v AJ, CJ detailne venovane problematice
vytvareni aplikaci v Delphi (4,5) a MSSQL server? Pokud vite, napiste mi i
kde ji mohu zakoupit.
FileTime v Stringu
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 20.8.2001 19:52:39
Ale ja to chcem previest zo string, ktory vypada ako TFileTime a nie zo
TFileTime!
----- Original Message -----
From: "PeJaSoft" <pejasoft(zv)pejasoft.com>
> function FiletimeToDatetime(const date: TFileTime): TDateTime;
> var
> st: TSystemTime;
> ft: TFileTime;
> begin
> FileTimeToLocalFileTime(date, ft);
> FileTimeToSystemTime(ft, st);
> Result := SystemTimeToDateTime(st);
> end;
>
> S pozdravem
>
> Petr Jarkovsky
Vzd�len� pr�ce s registry
[*] Milan ��ek - 20.8.2001 20:01:59
ahoj,
mam jmeno pocitace, a vim, ze tam bezi nejake Win. Nyni potrebuju z me
aplikace po siti cist registr win a zjistit si nejake udaje. Vite nekdo, jak
nato? Lze to vubec?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
DBGrid
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 20.8.2001 20:55:21
Poradi nekdo
Je mozno za behu programu menit nastaveni
DBGrid.Propertis.Options[dgediting, dgAlwaysShowEditor .......]
V helpu jsem sice nasel:
type
TDBGridOption = (dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator,
dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect,
dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect);
TDBGridOptions = set of TDBGridOption;
property Options: TDBGridOptions;
ale nejak mi z toho neni jasne, jestli tyto hodnoty jsou menitelne i ya behu
programu
Diky za 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.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
presun bitmapy
[*] <bukaj(zv)iol(tec)cz> - 20.8.2001 20:59:37
Dobry den.
Mam Bitmapu a potrebuji ji celou posunou napr o 10 pixelu dolu (a zvetsit o
tech 10 pixelu). Napada me presouvat to pixel po pixelu, ale to je strasne
zdouave, neexistuje na to nejaka funkce?
Kuba
Konferencia.exe
[*] <bukaj(zv)iol(tec)cz> - 20.8.2001 21:11:18
Jo a jeste bych doporucoval odstranit ten instalacni program. Celkem to
otravuje. Ja mam rad kdyz neco rozbalim a spustim a ono to funguje.
Kuba
Filter
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 20.8.2001 21:53:41
Da sa urobit nieco ako Table.Filter := 'RecNo='+Table.RecNo; ?
kontrola pravopisu
[*] Ji�� Baudys - 20.8.2001 22:42:56
Zdravim,
neni to az tak k tematu, ale na toto tema mam jedno soukrome doporuceni.
Nesnazit se spolupracovat s prvky M$ na takle nizke urovni. (sam jsem tak
stravil spoustu bezesnych noci) A raci pouzit uzivatelskou rovinu.
Resil jsem export mnoha textovych informaci do M$W a furt no nefungovalo
jak ma. Az me osvitilo a data jsem misto pres dde vyhnal do tabulky(DB) a
pres hromadnou korespondenci najednou fungovalo vsechno. (kontrola
pravopisu, formatovani ...)
No kdyztak to ber jako namet jak si usetrit spoustu prace a starosti.
Baudys
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Richard Valny
Sent: Monday, August 20, 2001 8:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: kontrola pravopisu
Prijemny horky den,
jakym zpusobem udelat nejlepe v delphini aplikaci kontrolu pravopisu?
Asi by to mohl jit pomoci WORD server (komponentou WordApplication) a jeji
funkci CheckSpelling.
Co ale nevim je:
1. Jak presne pouzit tuto fumkci? (ma mnoho parametru a neni mi zcela jasny
jejich vyznam)
2. Bude takto napsana aplikace fungovat na Win98+Office97 a zaroven na
Win2000 + Office2000?
P.S: Cele to chci pachat v D5 Professional
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.268 / Virov� b�ze: 140 - datum vyd�n�: 7.8.2001
Prosba o radu - dealersky system
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 20.8.2001 23:24:27
No to je celkom pekne - a myslis si ze ked ty budes sledovat co bolo zmeneno
to bude OK?
Obavam sa ze nevies rozsah toho co chces.
Replikacia nie je take jednoduche. Zaoberam sa replikacou uz dlhsi cas a
viem co rozpravam. Vacsinou na zaciatku to vypada velmi jednoduche ale potom
...
Mnohem jednoduhsim riesenim by bolo ze u klienta nikde zapises kedy dostal
naposledy aktualne (vlastne) data zase prenho vyselektujes zaznamy ktore
maju novsi datum a tie poskytne samozrejme pakovanej podobe.
Zase spat od klienta pridu iba tie zaznamy ktore boli modifikovani s
klientom a maju novsi datum a ko datum poslednej aktualizacie.
Ohladne druhej casti ti odporucam aby server vyrabal kazdy den pre kazdy
klient tieto subory (mozno aj niekolkokrat za den) a umiesnil ich nekam kde
ich klienti mozu stahovat. (Pre pakovane subory by bolo dobre pre kazdy
klient pouzit heslo.)
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Milan Schembera [SMTP:milan(zv)missoftware(tec)cz]
> Odesl�no: 20. august 2001 19:10
> Komu: 'Konference DELPHI'
> P�edm�t: Prosba o radu - dealersky system
>
> Zdravim,
>
> mam za ukol udelat dealersky system, ktery budou pouzivat dealeri firmy,
> kde
> bezi muj SW (D5 na MS SQL 7/2000). Jde o to, ze chci, aby mel dealer vzdy
> co
> nejaktualnejsi data (jedna se o vyber z nekolika tabulek databaze), ale
> zaroven chci co nejvic omezit komunikaci po lince. Predstavoval bych si to
> asi tak, ze ten dealer bude mit u sebe kopii casti databaze (vzdy jenom ty
> data, ktera se ho tykaji) a na prikaz se mu zreplikuji (programove) data
> tak, ze to, co pribylo, se mu tam vlozi, to co se zmenilo, se mu zmeni, a
> to, co se smazalo, se mu smaze. Zatim me napada pouze reseni takove, ze by
> mel u sebe MS Access databazi a ja bych programove hlidal, co bylo
> pridano,
> zmenilo se a bylo smazano od jeho posledni replikace.
> Dalsi vec je, jakym zpusobem ho do databaze pustit - nechci na FW
> povolovat
> primo pristup do DB pres port 1433, takze neco jako HTTP connection nebo
> tak
> ...
>
> Poradte mi, kdo mate jake zkusenosti s necim obdobnym.
>
> Diky moc.
>
> M.S.
> TIBQUERY
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.8.2001 06:13:04
> logtable.SQL.Text:='SELECT TABULKA,ID FROM RDB$TABLE_CHANGES WHERE
> SYNCHRONIZED=0;';
> try
> logtable.Open;
> logtable.FetchAll;
> pocet:=logtable.RecordCount;
> logtable.Transaction.Commit;
> except
> logtable.Transaction.RollBack;
> end;
> logtable.First ; //tady mi hlasi cannot perform this operation on
> closed
> dataset proc ? dataset by se mel otevrit pri Open ?
Commit i RollBack ukonci transakci a to automaticky zpusobi, ze
se zavrou vsechny datasety, ktere tuto transakci pouzivaly. Pokud
je cilem transakci potvrdit, ale neukoncit, je potreba pouzit
CommitRetaining resp. RollbackRetaining nebo kod trosku
preusporadat.
David Lebeda
kontrola pravopisu
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 21.8.2001 06:48:58
Jenomze bohuzel ja potrebuji plnit databazi a pri plneni kontrolovat u nekterych polozek jejich pravopis. Hromadna kontrola az po naplneni je pry nepripustna. Sice bych ji take rad implementoval ale halvni je skutecne on-line testovani v okamziku zadavani a bouhzel nic lepsiho nez vyuziti slovniku z MSOffice mne nenapada. :-((
>>> jiribaudys(zv)centrum(tec)cz 20.8.2001 22:42:56 >>>
Zdravim,
neni to az tak k tematu, ale na toto tema mam jedno soukrome doporuceni.
Nesnazit se spolupracovat s prvky M$ na takle nizke urovni. (sam jsem tak
stravil spoustu bezesnych noci) A raci pouzit uzivatelskou rovinu.
Resil jsem export mnoha textovych informaci do M$W a furt no nefungovalo
jak ma. Az me osvitilo a data jsem misto pres dde vyhnal do tabulky(DB) a
pres hromadnou korespondenci najednou fungovalo vsechno. (kontrola
pravopisu, formatovani ...)
No kdyztak to ber jako namet jak si usetrit spoustu prace a starosti.
Baudys
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Richard Valny
Sent: Monday, August 20, 2001 8:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: kontrola pravopisu
Prijemny horky den,
jakym zpusobem udelat nejlepe v delphini aplikaci kontrolu pravopisu?
Asi by to mohl jit pomoci WORD server (komponentou WordApplication) a jeji
funkci CheckSpelling.
Co ale nevim je:
1. Jak presne pouzit tuto fumkci? (ma mnoho parametru a neni mi zcela jasny
jejich vyznam)
2. Bude takto napsana aplikace fungovat na Win98+Office97 a zaroven na
Win2000 + Office2000?
P.S: Cele to chci pachat v D5 Professional
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================
---
Po�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.268 / Virov� b�ze: 140 - datum vyd�n�: 7.8.2001
Prosba o radu - dealersky system
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 21.8.2001 07:09:32
> -----Original Message-----
> From: Jan Tungli
>
> No to je celkom pekne - a myslis si ze ked ty budes sledovat
> co bolo zmeneno
> to bude OK?
> Obavam sa ze nevies rozsah toho co chces.
> Replikacia nie je take jednoduche. Zaoberam sa replikacou uz
> dlhsi cas a
> viem co rozpravam. Vacsinou na zaciatku to vypada velmi
> jednoduche ale potom
> ...
Ja uz mam v tom samym systemu svoji vlastni replikaci udelanou, a ta
funguje. Problem je ten, ze to jsou data, ktera jdou na pobocky a nejsou
urceny pro dealery ... :)
Co se tyce systemu prenosu dat, jsem velmi ohebny, zatim nejsem rozhodnuty
...
M.S.
DBGrid
[*] V�t Kr�ka����+?#�$g�^#�3 - 21.8.2001 07:23:50
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Viktor Marek
> Sent: Monday, August 20, 2001 8:55 PM
> To: Konference Delphi 2000
> Subject: DBGrid
>
>
> Poradi nekdo
>
> Je mozno za behu programu menit nastaveni
> DBGrid.Propertis.Options[dgediting, dgAlwaysShowEditor .......]
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
DBGrid.Propertis.Options:= [dgediting, dgAlwaysShowEditor .......]
nebo
DBGrid.Propertis.Options:= DBGrid.Propertis.Options +(-) [dgediting,
dgAlwaysShowEditor .......]Ulozeni vice .CUR do jednoho souboru
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 21.8.2001 07:39:56
ahoj,
mate nekdo nejakej napad, jak ulozit vice souboru .CUR nebo .WAV, do
jednoho tak, abych je mohl pouzit (nacist) podobne jako z resourcu.
Diky
S pozdravem Milan Cizek, D5
Ent
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
TWebConnection
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 21.8.2001 07:44:07
Zdravim,
hraju si ted s TWebConnection. Na lokale se mi to s aplikacnim serverem v
pohode spoji (Win2k Prof SP1 + IIS 5.0 SPx), ale kdyz to zkusim oproti
serveru na inetu (Win2k Srv SP1 + IIS 5.0 SPx), tak se mi to spoji, ale pri
pokusu o otevreni datasetu providera mi to hlasi "Chyba pri nacitaci
knihovny typu nebo DLL". Soubor HTTPSRVR.DLL (verze 5.0.6.18) tam mam, je to
virtualni adresar, kde je treba autentifikaci, ale tam problem nejni,
protoze v logu IIS je "2001-08-21 05:29:05 195.146.105.10 Administrator
193.179.xx.xx 80 POST /xxxx/httpsrvr.dll - 200 Test+App".
Tusite nekdo, kde je problem ?
Diky.
M.S.
Prosba o radu - dealersky system
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 07:56:10
On 20 Aug 2001, at 23:24, Jan Tungli wrote:
> No to je celkom pekne - a myslis si ze ked ty budes sledovat co bolo
> zmeneno to bude OK? Obavam sa ze nevies rozsah toho co chces.
> Replikacia nie je take jednoduche. Zaoberam sa replikacou uz dlhsi cas
> a viem co rozpravam. Vacsinou na zaciatku to vypada velmi jednoduche
> ale potom ...
MS SQL 2000 ma svuj replikacni mechanismus. Mozna by bylo
dobre ho nejdrive poradne prostudovat, jestli je vhodny pro
planovanou aplikaci.
> > -----P�vodn� zpr�va-----
> > Od: Milan Schembera [SMTP:milan(zv)missoftware(tec)cz]
> > mam za ukol udelat dealersky system, ktery budou pouzivat dealeri
> > firmy, kde bezi muj SW (D5 na MS SQL 7/2000). Jde o to, ze chci, aby
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TIBQUERY
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.8.2001 08:05:04
Zavre ti to ten Commit. Transakci nesmis ukoncit.
> var logtable:TIBQuery;
> pocet:integer;
> begin
>
> logtable:=TIBQuery.Create(nil);
> logtable.Database:=IBDataBase1;
> logtable.Transaction:=IBTransaction1;
>
> logtable.Database.Connect:=true;
> logtable.Transaction.StartTransaction;
>
>
> logtable.SQL.Text:='SELECT TABULKA,ID FROM RDB$TABLE_CHANGES WHERE
> SYNCHRONIZED=0;';
> try
> logtable.Open;
> logtable.FetchAll;
> pocet:=logtable.RecordCount;
> logtable.Transaction.Commit;
> except
> logtable.Transaction.RollBack;
> end;
> logtable.First ; //tady mi hlasi cannot perform this operation on closed
> dataset proc ? dataset by se mel otevrit pri Open ?
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Prosba o radu - dealersky system
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 21.8.2001 08:14:16
Osobne doporucuji mit vse pripravene tak, ze
system na serveru v urcitych casovych intervalech
vygeneruje pro dealery data a dealeri se podle
potreby pripoji k serveru a datove soubory
si stahnou k sobe.
Karel Chmel
-----P�vodn� zpr�va-----
Od: Milan Schembera [mailto:milan(zv)missoftware(tec)cz]
Odesl�no: 21. srpna 2001 7:10
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: RE: Prosba o radu - dealersky system
> -----Original Message-----
> From: Jan Tungli
>
> No to je celkom pekne - a myslis si ze ked ty budes sledovat
> co bolo zmeneno
> to bude OK?
> Obavam sa ze nevies rozsah toho co chces.
> Replikacia nie je take jednoduche. Zaoberam sa replikacou uz
> dlhsi cas a
> viem co rozpravam. Vacsinou na zaciatku to vypada velmi
> jednoduche ale potom
> ...
Ja uz mam v tom samym systemu svoji vlastni replikaci udelanou, a ta
funguje. Problem je ten, ze to jsou data, ktera jdou na pobocky a nejsou
urceny pro dealery ... :)
Co se tyce systemu prenosu dat, jsem velmi ohebny, zatim nejsem rozhodnuty
...
M.S.Konferencia.exe
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 21.8.2001 08:28:20
Ten instalacny program je tam preto, lebo neviem ako mam pri prvom spusteni
urobit:
1.) Vytvorit odkaz na program na ploche
2.) Vytvorit odkaz v nabidce Start
Potreboval by som cely postup, ako na to.
Vdaka za kazdu radu.
----- Original Message -----
From: <bukaj(zv)iol(tec)cz>
> Jo a jeste bych doporucoval odstranit ten instalacni program. Celkem to
> otravuje. Ja mam rad kdyz neco rozbalim a spustim a ono to funguje.
tabulka v DBF
[*] Ji�� Baudy� - 21.8.2001 08:36:13
Preji krasny den.
Pred casem jsem delal jednoduchoucky programek s 1 tabulkou v dbf (pristup
pres BDE).
Uzivatele (resp. jeden) my neustale tvrdi, ze se mu z toho prog. straceji
data. Pokousel jsem se takovou situaci vyvolat, ale neuspel jsem. Prohlasil
jsem to za HW problem mezi zidli a klavesnici, ale mam trochu cerne svedomi.
Nesetkal jste se neko s podobnym problemem ?
Dik Baudys
SMS textovky na OSKAR branu
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 21.8.2001 08:56:39
Zdravim,
nevite nekdo jake jsou aktualni parametry pro posilani
SMS na Oskara pomoci metody POST v HTTP ???
To co musim poslat jako data a kam?
S uctou
Robert Plzak
Oddeleni IT Vagnerplast spol. s r.o.
http://www.vagnerplast(tec)cz ACCESS - ODBC -BDE
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 21.8.2001 09:12:15
Nastavil som konekciu na ACCES mdb cez ODBC - avsak pita USERNAME a
PASSWORD.
Ma ACCESS nejaky defualt USER a PASSWORD?
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk MDIChild a ClientToScreen
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 21.8.2001 09:19:04
Hi,
Potreboval bych nad nektere edity u MDIChildu zobrazit nejaky form. A zaboha
nemuzu prijit na to, jak to spocitat u MDIChild. Nevite nekdo jak na to?
ClientToScreen mi v zavislosti na stavu okna (wsMaximazed, wsNormal) ukazuje
jinak jeste blbe...
Diky predem
Sroub
Velikost formularu a dalsich komponent pri ruznem
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 21.8.2001 09:24:11
Ahoj,
mam takovy problem. Jakym zpusobem se resi velikost formularu a dalsich
polozek pro ruzna rozliseni ? Mam to proste nastavit na to nejmensi, treba
800x600 a zbytek uz bude mensi, nebo se pri startu nejak zjistuje, jake je
nastaveni monitoru a potom se podle toho prizpusobuje velikost formularu ?
Prosim, poradte mi jak se to resi.
Mnohokrat diky.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================MDIChild a ClientToScreen
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 21.8.2001 09:33:35
...tak problem nenejni v MDIChild ale TPageControl. Kdyz je TEdit na nem,
tak je to o nejakou velikost ousek posunute. Nicmene jak tuto velikost
zjistim?
Sroub
> Hi,
>
> Potreboval bych nad nektere edity u MDIChildu zobrazit nejaky form. A
zaboha
> nemuzu prijit na to, jak to spocitat u MDIChild. Nevite nekdo jak na to?
> ClientToScreen mi v zavislosti na stavu okna (wsMaximazed, wsNormal)
ukazuje
> jinak jeste blbe...
>
> Diky predem
>
> Sroub
>
Jazykova mutace projektu
[*] Jan #ebesta <delcomseb(zv)volny(tec)cz> - 21.8.2001 09:42:26
Zdravi vsechny priznivce Delphi,
Mam za ukol vytvorit projekt ve trech jazykovych mutacich (CZ, A, N) napr. popis Button, Label, Caption ....
Poradte jak nejlepe na to.
Napadlo me mit textovy soubor nap� . cislo;cesky;nemecky;anglicky - a ten pri create formulare cist a doplnit.
Nejde to nejak jednoduseji ???
Dik Jan Sebesta
Cached updates, delam to spravne ???
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 21.8.2001 09:44:12
[P��loha v souboru: UCisCinnost.dfm]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
pouzivam cachovany updaty, ale nevim, jestli kod jez pouzivam je spravny.
Nemohli by jste se nekdo podivat na prilozenou unitu a napsat mi jakekoliv
chyby, ktere delam, nebo co by se tam dalo napsat lepe ? Za kazdou chybu
nebo napad vam mnohokrat dekuji. Pomuze mi to v moji praci pri hledani
lepsich technik.
Diky.
==============================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
==============================================
SMS textovky na OSKAR branu
[*] <bejcek(zv)centrum(tec)cz> - 21.8.2001 09:56:51
Robert Plzak wrote:
--------------------------
aktualni parametry pro posilani
SMS na Oskara pomoci metody POST v HTTP ???
Ja na to:
-----------------
Nevim,ale zeptej se http://dusek.webz(tec)cz/apps/sms.php ten to bude
vedet,maestro dusek uz nejakou dobu vytvarit gatekeeper,programek
na posilani SMS,jiste ti rad poradi...(Pochybnosti mi sviraji
utroby - Neni to skryta reklama??)
Aldik Pavel
Amater vsech amateru D5 Ent
(aktualni poznamka a OT:a sklerotik vsech sklerotiku,verili by
jste tomu,ze jsem si nechal doma v Havl.Brode mobila a ted v
Praze mohu volat akorat tak z okna????:-))
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Jazykova mutace projektu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.8.2001 09:57:13
> Mam za ukol vytvorit projekt ve trech jazykovych mutacich (CZ, A, N)
> napr. popis Button, Label, Caption .... Poradte jak nejlepe na to.
> Napadlo me mit textovy soubor nap� . cislo;cesky;nemecky;anglicky - a
> ten pri create formulare cist a doplnit. Nejde to nejak jednoduseji
> ???
>
Rekl bych, ze nejlepsi reseni je pouzit Zbyskuv lokalizator
(www.localizator.com pokud se nepletu). Projekt vytvorit cely v
anglictine a pomoci lokalizatoru prelozit do cestiny a nemciny.
Vyhodou oproti resenim podobnym Tebou navrhovanemu je to, ze
takto lze prelozit i popisy vyjimek, takze aplikace nebude cesko-
anglicka apod.
David Lebeda
Jazykova mutace projektu
[*] Tomas Kruzik <t.kruzik(zv)msp.mesit(tec)cz> - 21.8.2001 10:03:16
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
No pokud mas verzi D4 a vise. Doporucuji napsat si celou aplikaci v
jednom jazyce odladit si ji a pak pouzit nabidku delphi languages a
prelozit si aplikaci do jazykovych verzi. Pekny priklad je v Demos -
RichEdit.
S pozdravem / Best Regards
KRUZIK Tomas
e-mail: t.kruzik(zv)msp.mesit(tec)cz
tkruzik(zv)atlas(tec)cz
tel.: +420 (603) 947060
ICQ: 99789730
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan �ebesta
Sent: Tuesday, August 21, 2001 9:42 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jazykova mutace projektu
Zdravi vsechny priznivce Delphi,
Mam za ukol vytvorit projekt ve trech jazykovych mutacich (CZ, A, N)
napr. popis Button, Label, Caption ....
Poradte jak nejlepe na to.
Napadlo me mit textovy soubor nap� . cislo;cesky;nemecky;anglicky - a
ten pri create formulare cist a doplnit.
Nejde to nejak jednoduseji ??20
MDI stridani maximalizovanych oken
[*] Mgr. Jaroslav #varc <jarasvarc(zv)seznam(tec)cz> - 21.8.2001 10:36:55
Ahoj vsichni,
hledala jsem marne v konferenci odpoved na muj problem. Nakonec mi
nezbylo, nez se prihlasit a svuj problem predlozit zkusenejsim
programatorum.
V moji MDI aplikaci pomoci tlacitek prepinam mezi nekolika Child
okny. Potrebuju, aby se vsechna okna zobrtazovala rovnou
maximalizovane. (Vizuelne to ma vypadat jako Tabsheet) To se dari, az
na to, ze pred maximalizaci okna vzdycky problikne totez okno v
mensich rozmerech. Pritom nastaveni wsMaximized se nastavuje uz v
OnCreate kazdeho Child okna. Nevypada to dobre a chtela bych to
odstranit. Nevi nekdo nahodou jak?
Diky moc,
zdravi Jarka
______________________________________________________________________
Poctenicko pro kazdy den: http://www.novinky(tec)cz
presun bitmapy
[*] \(Radek Masnica - konference\) <delphi(zv)wige-mic(tec)cz> - 21.8.2001 11:27:50
Ahoj ...
Me napada posunout obrazek tim, ze tam proste vlozis 10 novejch radku, ale
pozor na orientaci, vetsina api data zpracovava hlavout dolu ...
Pocet byte na radek je width * (pocet bitu na pixel div 8)
Jestli mas obrazek uz v nejaky bitmape, tak se muzes pres GetDIBits dostat
na blok pameti s daty. Nebo pres TBitmap.ScanLine. Myslim ze
ScanLine(PictureHeight) ti da adresu, kde to pole zacina a pak si jen
vytvorit novy pole a vlozit ho naspatek pres SetDIBits ...
Ahoj Radek
> Dobry den.
> Mam Bitmapu a potrebuji ji celou posunou napr o 10 pixelu dolu (a zvetsit
o
> tech 10 pixelu). Napada me presouvat to pixel po pixelu, ale to je strasne
> zdouave, neexistuje na to nejaka funkce?
>
> Kuba
SMS textovky na OSKAR branu
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 21.8.2001 11:51:49
Moc dekuju :o)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of bejcek(zv)centrum(tec)cz
Sent: Tuesday, August 21, 2001 9:57 AM
To: Delphi
Subject: RE: SMS textovky na OSKAR branu
Robert Plzak wrote:
--------------------------
aktualni parametry pro posilani
SMS na Oskara pomoci metody POST v HTTP ???
Ja na to:
-----------------
Nevim,ale zeptej se http://dusek.webz(tec)cz/apps/sms.php ten to bude
vedet,maestro dusek uz nejakou dobu vytvarit gatekeeper,programek
na posilani SMS,jiste ti rad poradi...(Pochybnosti mi sviraji
utroby - Neni to skryta reklama??)
Aldik Pavel
Amater vsech amateru D5 Ent
(aktualni poznamka a OT:a sklerotik vsech sklerotiku,verili by
jste tomu,ze jsem si nechal doma v Havl.Brode mobila a ted v
Praze mohu volat akorat tak z okna????:-))
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Jazykova mutace projektu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 11:55:16
On 21 Aug 2001, at 10:03, Tomas Kruzik wrote:
> No pokud mas verzi D4 a vise. Doporucuji napsat si celou aplikaci v
> jednom jazyce odladit si ji a pak pouzit nabidku delphi languages a
> prelozit si aplikaci do jazykovych verzi. Pekny priklad je v Demos -
> RichEdit.
Lokalizace v externich souborech je mozne delat uz od D3, v D2 je
treba cely mechanismus doprogramovat. Od D4 lze jazyky stridat
za behu programu (s urcitymi omezeni). Nabidka lokalizace
zabudovane v Delphi je ale az od D5, navic jen ve verzi Enterprise.
Tento zpusob lokalizace ma vsak nekolik zavaznych problemu -
nezlokalizuje formulare, ke kterym neni dostupne DFM, lokalizace
zkolabuje po spusteni programu, pokud se na nejaky DFM
zapomene a prostredi kolabuje u nekterych komponent s
vnorenymi strukturami, jako je napriklad TOvcController (Orpheus).
Problemy pretrvavaji i v D6.
Jsou mozne dve dobre schudne varianty - od D4 prohazovani
jazyka za behu aplikace z vytvorenych lokalizacnich souboru, nebo
mit 3 exe, kazde v jinem jazyce. Varianty typu samostatnych
datovych souboru pro jazyky neuvazuji, protoze jejich udrzba je
znacne pracna, a tedy i nakladna, pokud se program meni. Navic
tato varianta nezlokalizuje formulare, ktere jsou natazene z cizich
knihoven, aniz by se zasahlo do jejich kodu - v podstate se jedna
napriklad o vsechny tiskove sestavy.
Idealni je tedy zlokalizovat hotovy a odladeny exe, ktery obsahuje
vse, co je treba a je ochoten to i vydat, pokud jsou texty prekladu
ulozeny v resourcech. Pote lze vytvorit samostatne lokalizacni
DLL, ktere se k programu pouze prida, nebo lze prelozene
resourcy vlozit zpet do exace, a mit tak pro kazdy jazyk
samostatny program.
Diskutoval jsem s nekym i moznost lokalizace zdrojaku - tato
varianta ma vsak dlouhou radu nebezpecnych momentu, navic z
povahy programu psanych pro Windows mohou byt dulezite texty
roztrousene na vice mistech - zdrojak, DFM, zkompilovane unity
a/nebo balicky. Timto zpusobem se snadno rozjedou i verze
programu, je to nachylne na zaneseni chyb, pracne (=drahe). Vim
o pripadu, kdy znama mela problem s distribuci jedne jazykove
verze sveho programu prave z techto duvodu (presto si jeste
nekoupili muj Lokalizator, ktery by je vysel levneji nez oprava
nasledku uvedene chyby :). Proto lokalizaci zdrojaku vrele
nedoporucuji.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> On Behalf Of Jan �ebesta Sent: Tuesday, August 21, 2001 9:42 AM To:
> delphi-l(zv)clexpert(tec)cz Subject: Jazykova mutace projektu
>
> Zdravi vsechny priznivce Delphi,
>
> Mam za ukol vytvorit projekt ve trech jazykovych mutacich (CZ, A, N)
> napr. popis Button, Label, Caption .... Poradte jak nejlepe na to.
> Napadlo me mit textovy soubor nap� . cislo;cesky;nemecky;anglicky - a
> ten pri create formulare cist a doplnit. Nejde to nejak jednoduseji
> ???
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
presun bitmapy
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 21.8.2001 12:18:28
Ahoj,
treba tcanvas.copyrect
Vaclav Sazima
bukaj(zv)iol(tec)cz wrote:
>
> Dobry den.
> Mam Bitmapu a potrebuji ji celou posunou napr o 10 pixelu dolu (a zvetsit o
> tech 10 pixelu).ACCESS - ODBC -BDE
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 21.8.2001 12:23:57
> Nastavil som konekciu na ACCES mdb cez ODBC
> - avsak pita USERNAME a PASSWORD.
> Ma ACCESS nejaky defualt USER a PASSWORD?
Pokud ta databaze neni zaheslovana, tak bych zkusil
admin bez hesla, ale myslim ze to uplne jedno, ze ji
otevre i s prazdnym UID i PWD.
Daniel Rott
Neukoncitelny dialog
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 21.8.2001 12:53:38
Nevite nekdo jak zabranit ukoncovani dialogu Alt+F4 ?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Rezidentni program
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 21.8.2001 12:53:40
Jak jde zjistit programem na pozadi, jaka byla stisknuta klavesa mimo form ?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
OT: shani se programator
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 21.8.2001 13:01:52
Ahoj vsichni,
shanime programatora v Delphi, nejlepe z Plzne a okoli. Pro blizsi
informace volejte ci mailujte na soukromy mail.
FB Invest
Plzen
0602 860 704
Tomas.Rosa(zv)pinknet(tec)cz
trosa(zv)dev.effata.net
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Simulovany stisk klavesy
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 21.8.2001 13:02:40
var
dwExtraInfo: Dword;
begin
keybd_event(13,13,KEYEVENTF_EXTENDEDKEY,dwExtraInfo); //odesle stisk entru
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Viktor Marek
Sent: Saturday, August 18, 2001 4:45 PM
To: Konference Delphi 2000
Subject: Simulovany stisk klavesy
Poradi nekdo jak programove stisknout urcitou klavesu.
Diky za 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.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Neukoncitelny dialog
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.8.2001 13:14:36
V udalosti OnCloQuery nastavit CanClose na False
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
21.8.2001 David Kraina:
> Nevite nekdo jak zabranit ukoncovani dialogu Alt+F4 ?
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
tabulka v DBF
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.8.2001 13:18:06
Na programek s jednou tabulkou je idealni komponenta TDBF. Je
kompatabilni s TTable. Najdes ji na http://tdbf.casdb.com/
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
21.8.2001 Ji�� Baudy#:
> Preji krasny den.
> Pred casem jsem delal jednoduchoucky programek s 1 tabulkou v dbf (pristup
> pres BDE).
> Uzivatele (resp. jeden) my neustale tvrdi, ze se mu z toho prog. straceji
> data. Pokousel jsem se takovou situaci vyvolat, ale neuspel jsem. Prohlasil
> jsem to za HW problem mezi zidli a klavesnici, ale mam trochu cerne svedomi.
> Nesetkal jste se neko s podobnym problemem ?
> Dik Baudys
Velikost formularu a dalsich komponent pri ruznem
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 21.8.2001 13:53:45
O tomto pekne pojednava D4 od M.Cantu - od str. 184
ve zkratce:
- formular by pry nemel byt vetsi nez 640x480
- vyuzivej komponennty PageControl apod.
- automaticka zmena formulare
- pouzivej TrueType fonty (nejznamejsi)
- metodou ScaleBy (viz help) menis velikost formularu
- vlastnost Scaled musi mit objekty =true
- dej si pozor na autoscroll
- pro informaci o rozliseni muzes pouzit
- vlastnost formulare PixelPerInch
- objekt Screen
- pro maximalizaci se hodi
- vyuzivat vlastnost Anchors (viz help)
- stav zjistujes pres vlastnost WindowState
- nastavujes bud pres WindowState
nebo volas Application.Maximize (Restore, Maximize, apod.)
S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
Sent: Tuesday, August 21, 2001 9:24 AM
Ahoj,
mam takovy problem. Jakym zpusobem se resi velikost formularu a dalsich
polozek pro ruzna rozliseni ? Mam to proste nastavit na to nejmensi, treba
800x600 a zbytek uz bude mensi, nebo se pri startu nejak zjistuje, jake je
nastaveni monitoru a potom se podle toho prizpusobuje velikost formularu ?
Prosim, poradte mi jak se to resi.
tabulka v DBF
[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 21.8.2001 14:05:56
Necemu podobnemu muzes zabranit, kdyz do AfterPost napises:
uses
dbiProcs;
procedure TData.TFakturyAfterPost(DataSet: TDataSet);
begin
dbiSaveChanges((DataSet as TTable).Handle);
end;
Take to nemusi byt ono ... ale za zkousku ... to stoji (me to pomohlo).
Vladimir, D4, W98
----- Original Message -----
From: "Ji�� Baudy#" <jiribaudys(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 21, 2001 8:36 AM
Subject: tabulka v DBF
> Preji krasny den.
>
> Pred casem jsem delal jednoduchoucky programek s 1 tabulkou v dbf (pristup
> pres BDE).
> Uzivatele (resp. jeden) my neustale tvrdi, ze se mu z toho prog. straceji
> data. Pokousel jsem se takovou situaci vyvolat, ale neuspel jsem.
Prohlasil
> jsem to za HW problem mezi zidli a klavesnici, ale mam trochu cerne
svedomi.
> Nesetkal jste se neko s podobnym problemem ?
>
> Dik Baudys
>
>tabulka v DBF
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 21.8.2001 14:16:37
Mam dojem, ze se mu kazi index(y) a on vidi data podle nich
a nebo mu to obcas spadne a neulozi se posledni zapsana data,
ktera jsou jeste v pameti a ne na disku. A nebo je to mezi
Wokny a nebem :o)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Baudy#
Sent: Tuesday, August 21, 2001 8:36 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: tabulka v DBF
Preji krasny den.
Pred casem jsem delal jednoduchoucky programek s 1 tabulkou v dbf (pristup
pres BDE).
Uzivatele (resp. jeden) my neustale tvrdi, ze se mu z toho prog. straceji
data. Pokousel jsem se takovou situaci vyvolat, ale neuspel jsem. Prohlasil
jsem to za HW problem mezi zidli a klavesnici, ale mam trochu cerne svedomi.
Nesetkal jste se neko s podobnym problemem ?
Dik Baudys
Rezidentni program
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 14:19:43
On 21 Aug 2001, at 12:53, David Kraina wrote:
> Jak jde zjistit programem na pozadi, jaka byla stisknuta klavesa mimo
> form ?
RegisterHotKey
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
CPU temp apod.
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 21.8.2001 14:24:20
Nasel jsem http://mbm.livewiredev.com/
je to sice aplikace, ktera meri vsemozne sensory, ale poskutyje rozhrani,
pres ktere se muze tva aplikace ony hodnoty dozvedet. je tam i priklad
pro Delphi5, jak ty data z te aplikace cist. ;-)
> neznate nekdo free komponentu, ktera umi zmerit teplotu CPU,
> systemu a otacek vetracku, pokud to deska umi?
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
tabulka v DBF
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 21.8.2001 15:15:14
Strata dat to je celkom mozne - ak DBF pouziva cache update - tak sa moze
kludne stat ze udaje ktore vlozil sa stratili. Mozes to vyriesit stym ak das
flashBuffer prikaz po ulozeni. Inak neviem.
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Robert Plz�k [SMTP:rpvp(zv)vagnerplast(tec)cz]
> Odesl�no: 21. august 2001 14:17
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: RE: tabulka v DBF
>
> Mam dojem, ze se mu kazi index(y) a on vidi data podle nich
> a nebo mu to obcas spadne a neulozi se posledni zapsana data,
> ktera jsou jeste v pameti a ne na disku. A nebo je to mezi
> Wokny a nebem :o)
>
>
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ji�� Baudy#
> Sent: Tuesday, August 21, 2001 8:36 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: tabulka v DBF
>
>
> Preji krasny den.
>
> Pred casem jsem delal jednoduchoucky programek s 1 tabulkou v dbf (pristup
> pres BDE).
> Uzivatele (resp. jeden) my neustale tvrdi, ze se mu z toho prog. straceji
> data. Pokousel jsem se takovou situaci vyvolat, ale neuspel jsem.
> Prohlasil
> jsem to za HW problem mezi zidli a klavesnici, ale mam trochu cerne
> svedomi.
> Nesetkal jste se neko s podobnym problemem ?
>
> Dik Baudys
>
> ACCESS - ODBC -BDE
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 21.8.2001 15:18:35
Nie uz som na to prisiel: USERNAME='' (nic) a Password='sa' - default ACCESS
nastavenie
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Daniel Rott [SMTP:roxton(zv)seznam(tec)cz]
> Odesl�no: 21. august 2001 12:24
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: ACCESS - ODBC -BDE
>
> > Nastavil som konekciu na ACCES mdb cez ODBC
> > - avsak pita USERNAME a PASSWORD.
> > Ma ACCESS nejaky defualt USER a PASSWORD?
>
> Pokud ta databaze neni zaheslovana, tak bych zkusil
> admin bez hesla, ale myslim ze to uplne jedno, ze ji
> otevre i s prazdnym UID i PWD.
>
> Daniel Rott
>
> ADO versus BDE
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 21.8.2001 15:27:34
Caute,
potrebuju poradit s nasledovnym problemem, skusil jsem udelat prevod z Foxky
do SQL pomoci BDE pomoci komponenty BATCHMOVE, ale pred samotnym prevodem
zobrazuji obsah tabulky z Foxky, pri nekterych tabulkach nevim proc mi to
ale hazelo chybu NUMBER IS OUT OF RANGE a tabulka se nezobrazila a k
samotnemu prevodu taky nedoslo, tak jsem to skusil pomoci ADO komponent,
somotne zobrazeni problemovych tabulek z Foxky funguje bez chybne, ale zase
nevim jak udelat prevod bez BATCHMOVE, stravil jsem nad tim uz nejakou
hodinku a porad nic, tak pokud vite poradte.
DIK
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 21.8.2001 15:30:38
Ahoj,
Domnivam se ze po takrka dennim badani a mirne uprave dokazu najit zacatek
(pointer) zaznamu resp. datove oblasti zaznamu (zpristupnil jsem si polozku
Records:TList pointeru na zaznamy -neni to polozka DataSet-u ale jeho
potomka kbmCustomMemTable).
A nastava druha faze problemu jak pristoupit k jednotlivym polozkam.
Je to zahada ale RecordSize<>(Soucet_delek_polozek - Velikost_rezie_zaznamu)
a tudiz nevim jak zjistit polohu jednotlivych polozek zaznamu.
Hledam uz dlouho, ale nemuzu u TField najit polozku, ktera by udavala pozici
dat v datove oblasti zaznamu nize oznacovanou jako Slp. NEvzpomenes si
Zbysku (nebo nekdo jiny), kde se tento udaj da zjistit?
diky
PavelC
> Pokud se ti podari najit spravny radek, a znas pozici sloupce a
> pripadne jeho typ, pak za techto podminek
>
> Ptr: PChar; // ukazuje na nalezeny radek
> Slp: integer; // poloha sloupce
> ...
> function Xxxx.GetPointer: pointer;
> begin
> Result := pointer(Ptr + Slp);
> end;
>
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 16:11:03
On 21 Aug 2001, at 15:30, ing.Pavel Cabalka wrote:
> Ahoj,
> Domnivam se ze po takrka dennim badani a mirne uprave dokazu najit
> zacatek (pointer) zaznamu resp. datove oblasti zaznamu (zpristupnil
> jsem si polozku Records:TList pointeru na zaznamy -neni to polozka
> DataSet-u ale jeho potomka kbmCustomMemTable). A nastava druha faze
> problemu jak pristoupit k jednotlivym polozkam. Je to zahada ale
> RecordSize<>(Soucet_delek_polozek - Velikost_rezie_zaznamu) a tudiz
> nevim jak zjistit polohu jednotlivych polozek zaznamu. Hledam uz
> dlouho, ale nemuzu u TField najit polozku, ktera by udavala pozici dat
> v datove oblasti zaznamu nize oznacovanou jako Slp. NEvzpomenes si
> Zbysku (nebo nekdo jiny), kde se tento udaj da zjistit?
TField.GetData
TDataSet.GetFieldData
TDataSet.DataConvert
a zde si musis zalezt do potomku TDataSet a prohlednout si
prekryte metody. Mel by to byt TField.FOffset.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 21.8.2001 16:27:35
No,
mozna jsem to spatne pochopil, ale tudy jsem to uz prolezal a jde o to, ze
uvedene metody jsou podle me zalozene na tom, ze berou data z aktualniho
zaznamu. Me jde o to, abych nemusel prochazet DataSet-em kdyz chci ty
hodnoty ziskat. Pokud totiz mam na tomtez datasetu povesenou dalsi vizualni
db-komponentu (treba dbGrid) tak ta se muze umlatit pri prochazeni datasetem
jinou komponentou. Takze mi de-facto jde opravdu jen a jen o tu pozici
jednotlivych polozek v datove oblasti recordu. Bohuzel jestli jsem to dobre
pochopil, tak TField.Offset (popr.FOffset) udava cosi ohledne velikosti
prostoru pro Calculated polozku. Kdyz jsem si to cvicne nechal vypsat, tak u
vsech polozek byl Offset = 0 (nemam zadne vypoctene polozky).
Nebyl by v tve studnici nejaky dalsi napad?
predem diky
PavelC
> TField.GetData
> TDataSet.GetFieldData
> TDataSet.DataConvert
> a zde si musis zalezt do potomku TDataSet a prohlednout si
> prekryte metody. Mel by to byt TField.FOffset.
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 16:59:33
On 21 Aug 2001, at 16:27, ing.Pavel Cabalka wrote:
> No,
> mozna jsem to spatne pochopil, ale tudy jsem to uz prolezal a jde o
> to, ze uvedene metody jsou podle me zalozene na tom, ze berou data z
> aktualniho zaznamu.
Tak jest. Hacek je v tom, ze zaznamy jsou ulozene ve FBuffers,
ktery je private. Dalsi zadrhel je v tom, ze TAdoDataSet nacita
pouze tolik vet, kolik jich prave potrebujes - tedy jednu, pokud
pracujes s jednim zaznamem, nebo treba 10, pokud mas v gridu
viditelnych 10 radku. Po pohybu v zaznamech vse zapomene a
nacita znovu. Kdyz jsem tohle videl, tak mi vstaly vlasy hruzou. Je
to sice efektivni na spotrebu pameti v DataSetu, ale jinak na
draka... Cely buffer i s daty je stejne ulozen v ADO objektu, takze
pri vzdalenem volani ADO Recordsetu a zbesilem listovani v
DBGridu dochazi k peknemu zahlceni linky. Takze jsem sedl, a
napsal si to cele jinak, abych mel kopii dat jen jednou, a mohl s ni
pracovat, jak potrebuji.
> Me jde o to, abych nemusel prochazet DataSet-em
> kdyz chci ty hodnoty ziskat. Pokud totiz mam na tomtez datasetu
> povesenou dalsi vizualni db-komponentu (treba dbGrid) tak ta se muze
> umlatit pri prochazeni datasetem jinou komponentou. Takze mi de-facto
> jde opravdu jen a jen o tu pozici jednotlivych polozek v datove
> oblasti recordu. Bohuzel jestli jsem to dobre pochopil, tak
> TField.Offset (popr.FOffset) udava cosi ohledne velikosti prostoru pro
> Calculated polozku. Kdyz jsem si to cvicne nechal vypsat, tak u vsech
> polozek byl Offset = 0 (nemam zadne vypoctene polozky). Nebyl by v tve
> studnici nejaky dalsi napad? predem diky PavelC
Vzhledem k temto okolnostem ti asi nezbyde nic jineho, nez co
jsem udelal ja. Pouzit budto zcela jine hotove komponenty pro
pristup k datum, nebo si celou logiku (pre/na)psat sam. Vzhledem
k tomu, ze nechces, aby se ti posouvaly radky v gridu kdyz se
hnes v jine komponente, myslim, ze je lepsi se odklonit od
TDataSet uplne, protoze jeho "ohnuti" k obrazu svemu povazuji za
narocnejsi nez napsat jine reseni. Zejmena kdyz se toto jadro
verze od verze Delphi lisi a meni.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vazba na data v pameti
[*] Miroslav Slav�k <slavik(zv)ticketpro(tec)cz> - 21.8.2001 17:11:01
> Ahoj,
> Domnivam se ze po takrka dennim badani a mirne uprave dokazu najit
> zacatek (pointer) zaznamu resp. datove oblasti zaznamu (zpristupnil
> jsem si polozku Records:TList pointeru na zaznamy -neni to polozka
> DataSet-u ale jeho potomka kbmCustomMemTable). A nastava druha faze
> problemu jak pristoupit k jednotlivym polozkam. Je to zahada ale
> RecordSize<>(Soucet_delek_polozek - Velikost_rezie_zaznamu) a tudiz
> nevim jak zjistit polohu jednotlivych polozek zaznamu. Hledam uz
> dlouho, ale nemuzu u TField najit polozku, ktera by udavala pozici dat
> v datove oblasti zaznamu nize oznacovanou jako Slp. NEvzpomenes si
> Zbysku (nebo nekdo jiny), kde se tento udaj da zjistit?
Ahoj,
vidim, ze Te hodne trapi a tak jsem znovu jsem procetl souvisejici zpravy.
Pokud jsem to spravne pochopil NEPOTREBUJES DataSet, ale potrebujes data z
IB tak, aby jsi mel pristupne pointery na jednotlive zaznamy.
Je-li uvedeny predpoklad spravny, byt jsi to jiz odmitl, stale si myslim, ze
pouziti VirtualTreeView by Ti usetrilo hodne prace. VTV neni jen TreeView,
ale funguje i jako kontejner na data, jejichy struktura je uzivatelem
definovana (record), ktera jsou pri inicializaci ulozena do seznamu pointeru
na ten record. IMHO a to je to co, po cem touzis, alespon pokud spravne
rozumim.
No a v kombinaci s IBSQL to bude chodit velmi rychle nebude to zavisle na
implementaci DataSetu a hlavne Ti usetris cas.
Mira
Ing. Miroslav Slavik
TICKETPRO, a.s.
Salvatorska 10
Praha 1
Tel.: +420 2 840 111 50
mail: slavik(zv)ticketpro(tec)cz
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 21.8.2001 17:40:11
Ahoj,
> Tak jest. Hacek je v tom, ze zaznamy jsou ulozene ve FBuffers,
> ktery je private.
asi ze sebe udelam pitomce, ale co brani tomu, abych si to vytahl pres
property do sekce public a cetl ten Records : TList. Ja to totiz udelal a na
ty zaznamy se dostanu. Mozna jsem barbar, mozna opravdu hlupak a narazim.
Pokud znas duvod proc bych to nemel delat, budu rad, kdyz mi ho napises.
> Dalsi zadrhel je v tom, ze TAdoDataSet nacita
> pouze tolik vet, kolik jich prave potrebujes - tedy jednu, pokud
> pracujes s jednim zaznamem, nebo treba 10, pokud mas v gridu
> viditelnych 10 radku. Po pohybu v zaznamech vse zapomene a
> nacita znovu.
>
prave z tohoto duvodu si planuju pokud mozno v aplikaci pouzit memory table
(konkretne kbmMemTable) a data si z databaze vyctu pomoci Query do teto
memtable a deaktivuji Query. Dalsi prace bude probihat jen na klientovi
dokud nenastane situace ze bych se potreboval zase spojit s databazi. Mozna
jsem si to naplanoval prilis slozite, ale me to prislo jako dobre reseni.
Pokud jsem na omylu budu opet rad, kdyz me zarazis driv nez se do toho
zamotam.
Jinak, kbmMemTable (pokud ji neznas) vystupuje jako DataSet a tudiz na ni
mohu pres DataSource napojit dbKomponenty, dale se mi libi ze nad tytez data
jedne kbmMemTable mohu pripojit dalsich X kbmMemTable a pouze treba pozmenit
trideni ci filtr a pres dalsi DataSource pripojene na techto X kbmMemTable
se na jedny data v pameti koukat X zpusoby. Zda se mi to zkratka docela fajn
reseni.
Akorat jsem mel problem s tema non-dbKomponentama, ktere si drzi seznam
pointru na data jak je nakrmit tema pointrama.
Ted uz jsem snad na dobre ceste. Seznam polozek vcetne jejich typu a fyzicke
delky umim ziskat. Prozatim to vypada, ze si to zkratka budu muset nejak
odpocitavat od pozice pointru na datovou oblast zaznamu.
Metodou pokus-omyl jsem prozatim zjistil, ze kazda polozka je v datove
oblasti zaznamu o jeden byte delsi nez udavana delka dat z TField. Dale jsou
na zacatku datove oblasti zaznamu dva byte (pokud ten jeden byte na polozku
je pred polozkou, tri byte pokud je za polozkou) a pak tam je jeste 6 byte o
kterych nevim kde jsou - asi (doufam) na konci datove oblasti zaznamu.
To je prozatim vse, co jsem zjistil.
Funguje to docela rozumne, nicmene pokud jsem blazen klidne me na to
upozornete. Ale ja si porad rikam NIC NENI NEMOZNE.
Pokud jste se procetli az sem. Gratuluji a dekuji za pozornost.
PavelC
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 21.8.2001 17:58:06
Tak jo,
slibuju ze se na VirtualTreeView podivam, ale prave takovy kontejner na data
se prave snazim rozlousknout jak se na ty jeho data dostat. Snad jsem uz na
dobre ceste. Ten kontejner se zove kbmMemTable a ma charakter DataSet-u a o
to mi take jde. Jde o pametovou tabulku. Ta se mi hodi, protoze na ni muzu
napichnout dbKomponenty. Ale taky na ni chci napichout non-dbKomponenty,
ktere si umi udrzovat vlastni seznam pointru na data. Ale proc bych ty data
nacital do pameti jeste jednou do nejake vlastni struktury na kterou bych
urcite mel snadnejsi pristup ale zabraly by mi jeste jednou tolik pameti.
Navic se jedna o non-dbKomponenty o jejichz zobrazovanem obsahu (polozkach)
by si mel az na nezbytne minimum (to stanovim ja) rozhodnout uzivatel - kdyz
je videt nechce tak si je vyhodi - proc ne a pokud je ja (aplikace) nebudu
potrebovat jinde, tak je ani nebudu tahat z databaze - skoda kazdeho
preneseneho byte.
Takze s timto problemem se ted potykam. Jsem na zacatku aplikace. Mam
urcitou vizi jak by to principielne melo fungovat. Urcite to je
realizovatelne, jen nevim jestli na to stacim a nekde se nezaseknu tak tvrde
ze si budu moct hodit masli. Nejsem zadny Delphi-Guru. Tak mi drz palce.
Kazdopadne diky za zajem a pokus o nasmerovani. Je mi moc lito ze v tomto
okamziku asi VitrualTreeView nepouziju (mozna budu jednou litovat) ale treba
se v prubehu vyvoje objevi prislune misto, kde najde uplatneni.
jeste jednou diky
PavelC
> Je-li uvedeny predpoklad spravny, byt jsi to jiz odmitl, stale si myslim,
ze
> pouziti VirtualTreeView by Ti usetrilo hodne prace. VTV neni jen TreeView,
> ale funguje i jako kontejner na data, jejichy struktura je uzivatelem
> definovana (record), ktera jsou pri inicializaci ulozena do seznamu
pointeru
> na ten record.
> Mira
> Ing. Miroslav Slavik
> mail: slavik(zv)ticketpro(tec)cz
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 18:21:52
On 21 Aug 2001, at 17:40, ing.Pavel Cabalka wrote:
> > Tak jest. Hacek je v tom, ze zaznamy jsou ulozene ve FBuffers,
> > ktery je private.
> asi ze sebe udelam pitomce, ale co brani tomu, abych si to vytahl pres
> property do sekce public a cetl ten Records : TList. Ja to totiz
> udelal a na ty zaznamy se dostanu. Mozna jsem barbar, mozna opravdu
> hlupak a narazim. Pokud znas duvod proc bych to nemel delat, budu rad,
> kdyz mi ho napises.
Pokud si prislusny potomek TDataSet natahne ze zdroje vsechna
data a nemaze je jako v pripade ADO, pak v zasade nic. Problem
je pouze v tom, ze musis sahnout do DB.pas, a vzdy zkontrolovat
kazdou novou verzi VCL, jestli tam nedoslo ke zmenam a dodelat
tam svoje upravy. Ale nevythal bych to jako TList, ale zase jako
TBufferList. Lepsi by ale bylo vytahnout metodu GetBuffer.
> > Dalsi zadrhel je v tom, ze TAdoDataSet nacita
> > pouze tolik vet, kolik jich prave potrebujes - tedy jednu, pokud
> > pracujes s jednim zaznamem, nebo treba 10, pokud mas v gridu
> > viditelnych 10 radku. Po pohybu v zaznamech vse zapomene a nacita
> > znovu.
> >
> prave z tohoto duvodu si planuju pokud mozno v aplikaci pouzit memory
> table (konkretne kbmMemTable) a data si z databaze vyctu pomoci Query
> do teto memtable a deaktivuji Query. Dalsi prace bude probihat jen na
> klientovi dokud nenastane situace ze bych se potreboval zase spojit s
> databazi.
V zasade takto programuji i ja. Pouze si setrim mezikrok, kde
Query natahne data do sveho bufferu, a ja je kopiruji do jineho.
Jenze ja to delam v OLE DB, coz ti pro IB moc nepomuze.
> Mozna jsem si to naplanoval prilis slozite, ale me to prislo
> jako dobre reseni. Pokud jsem na omylu budu opet rad, kdyz me zarazis
> driv nez se do toho zamotam. Jinak, kbmMemTable (pokud ji neznas)
> vystupuje jako DataSet a tudiz na ni mohu pres DataSource napojit
> dbKomponenty, dale se mi libi ze nad tytez data jedne kbmMemTable mohu
Db komponenty napojene na TDataSet nepouzivam, protoze me
praci nevyhovuje struktura celeho toho molocha. Komponenty jsou
sice skvele pro zacatecniky nebo jednoduche aplikace, jakmile ale
potrebujes nejake finesy, zacnes narazet na problemy, ktere musis
slozite obchazet.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: UPX
[*] <mms(zv)host.sk> - 21.8.2001 19:10:58
Zdravim kolegovia,
mam program s bde, ktory nemal odjakziva problemy. Chcel som to vylepsit a tak som exe subor zmensil pomocou UPX a vyrobil som instalacky. Ake bolo moje prekvapenie, ked po nainstalovani mi to najprv nahlasilo, ze pregram vykonal neplatnu operaciu. a to este je parada ale po restartovani systemu mi vymazalo vsetky subory c adresari C:\. nestalo sa to nahodov niekomu z Vas?
Jediny rozdiel medzi fungujucou instalaciou touto likvidacnou je len exe komprimovany pomocou UPX.
Miro
Nastaveni hlasitosti
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 21.8.2001 19:17:15
Nevite nekdo o webu nebo normal, jak zjistit vsechny mozne nastavovani
hlastosti (line-in,front+rear speakers atd.), a nastavovat je. Wave out a
aux vim, ale to je malo.
Moc dik... ...DKx...
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
UPX
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 21.8.2001 19:28:38
jestli se dobre pamatuji, tak uz tady v konferenci bylo hodne napsano to
tom, jakou paseku komprimacni programy execek nadelaji.
Doporucuji Ti tyto programy NEPOUZIVAT.
1) dnes uz nekomu na nejakem tom bytu nezalezi (komu jo, at hodi kamenem)
2) posilat nekomu nesbaleny exe soubor (napr. do zipu) jako prilohu mailu je
darebactvi (Outlook je napr. automaticky vyhazuje)
3) kompresi pred distribuci si pohodlne zajistis standardnimi instalacnimi
programy
4) ochranu pred crackem stejne nezajistis - existuji dekomprimatory
5) rychlost behu rozhodne nezvysis
6) existuji lepsi zpusoby, jak napsat destruktivni software
7) komu to bezvadne a dlouhodobe funguje je vyjimkou a ja mu timto
blahopreji
Napr. Petr Vones (viz historie konference) by ti vysvetlil tu spoust, kterou
to nadela uvnitr exe.
Preji pekny den
Petr Svejda
LingVista Backup - zalohovani s inteligenci
http://www.lingvista(tec)cz - stazeni programu Z D A R M A
> -----Original Message-----
> vylepsit a tak som exe subor zmensil pomocou UPX a vyrobil som
> instalacky. Ake bolo moje prekvapenie, ked po nainstalovani mi to
> najprv nahlasilo, ze pregram vykonal neplatnu operaciu. a to este
> je parada ale po restartovani systemu mi vymazalo vsetky subory c
> adresari C:\. nestalo sa to nahodov niekomu z Vas?
> Jediny rozdiel medzi fungujucou instalaciou touto likvidacnou je
> len exe komprimovany pomocou UPX.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
ConnectionString na ODBC Interbase
[*] Erik Salaj <winsoft(zv)stonline.sk> - 21.8.2001 19:29:11
> objektu "ADODB.Connection". V Spravcovi ODBC som definoval uzivatelske DSN
> Na ASP-stranke som definoval takyto kod
> ale tu pri otvoreni bohuzial koncim chybovou hlaskou =
([Microsoft][Spravce
> ovladacu ODBC] Nazev zdroje dat nebyl nalezen a nebyl urcen zadny vychozi
> ovladac) Chybu nevidim, preco? V podstate sa jedna o pristup k databaze
Skus namiesto uzivatelskeho DSN pouzit systemovy DSN.
Erik
Konferencia.exe
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 21.8.2001 20:03:06
Instalacni program InnoSetup toto vse dela automaticky a naprosto bez
problemu.
Navic je dobre lokalizovan do cestiny.
Preji pekny den
Petr Svejda
LingVista Backup - zalohovani s inteligenci
http://www.lingvista(tec)cz - stazeni programu Z D A R M A
> -----Original Message-----
> Subject: Re: Konferencia.exe
>
> Ten instalacny program je tam preto, lebo neviem ako mam pri
> 1.) Vytvorit odkaz na program na ploche
> 2.) Vytvorit odkaz v nabidce Start
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
Manual.
[*] Centrum <E_DDT(zv)centrum(tec)cz> - 21.8.2001 21:28:23
Zdavim.
Chtel sem se zeptat, jestli nevite o nejakym manualu pro Delphi. Samozrejme
nejlepe v cestine, ale muze byt i anglicky. Myslel sem, ze neco pochytim
tady v konfere, ale musi bohuzel priznat, ze z 80-90% vubec nevim o cem
tocite. Ste hold moc dobri.
DDT.Nastaveni hlasitosti
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.8.2001 21:31:28
> Nevite nekdo o webu nebo normal, jak zjistit vsechny mozne nastavovani
> hlastosti (line-in,front+rear speakers atd.), a nastavovat je. Wave out a
> aux vim, ale to je malo.
> Moc dik... ...DKx...
> ---
Myslis, ze nekde na webu budou znat hlasitost tveho zadniho reproduktoru? ;-))
Jinak pokud chces zacit od piky, tak MS Multimedia Help -> AudioMixers... a
komponenty najdes treba na torry.ru, popr. muzu poslat...
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Table & Grid
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 21.8.2001 21:34:11
Predem se omlouvam za trivialni dotaz ale v helpu jsem zabloudil
Jestlize stojim v DBGridu na nejakem zaznamu a chci jej odstranit jak vypada
prikaz na odstraneni aktualniho zaznamu.
Nechci na tuto operaci pouzit DBNavigator.
Diky za popostrceni
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.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
Manual.
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.8.2001 21:38:53
On 21 Aug 2001, at 21:28, Centrum wrote:
> Chtel sem se zeptat, jestli nevite o nejakym manualu pro Delphi.
> Samozrejme nejlepe v cestine, ale muze byt i anglicky. Myslel sem, ze
> neco pochytim tady v konfere, ale musi bohuzel priznat, ze z 80-90%
> vubec nevim o cem tocite. Ste hold moc dobri.
V kazdem (legalnim) baleni Delphi.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Manual.
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 21.8.2001 21:40:50
To neni pravda ja to kupoval se slevou bez manualu.
Jinak mohu vrele doporucit Delphi 5 Mastering od Marco Cantu cena cca 2500.
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 21, 2001 9:38 PM
Subject: Re: Manual.> On 21 Aug 2001, at 21:28, Centrum wrote:
>
> > Chtel sem se zeptat, jestli nevite o nejakym manualu pro Delphi.
> > Samozrejme nejlepe v cestine, ale muze byt i anglicky. Myslel sem, ze
> > neco pochytim tady v konfere, ale musi bohuzel priznat, ze z 80-90%
> > vubec nevim o cem tocite. Ste hold moc dobri.
>
> V kazdem (legalnim) baleni Delphi.
>
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Table & Grid
[*] Roman #ev��k���##�#�(#�h�̿ - 21.8.2001 21:51:21
> Jestlize stojim v DBGridu na nejakem zaznamu a chci jej odstranit
> jak vypada
> prikaz na odstraneni aktualniho zaznamu.
Napr. DBGrid.DataSource.DataSet.Delete
Roman
Manual.
[*] Centrum <E_DDT(zv)centrum(tec)cz> - 21.8.2001 21:52:14
Ale ja mam jenom trial.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zbysek Hlinka
Sent: Tuesday, August 21, 2001 9:39 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Manual.
On 21 Aug 2001, at 21:28, Centrum wrote:
> Chtel sem se zeptat, jestli nevite o nejakym manualu pro Delphi.
> Samozrejme nejlepe v cestine, ale muze byt i anglicky. Myslel sem, ze
> neco pochytim tady v konfere, ale musi bohuzel priznat, ze z 80-90%
> vubec nevim o cem tocite. Ste hold moc dobri.
V kazdem (legalnim) baleni Delphi.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Table & Grid
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 21.8.2001 22:51:16
DBGrid1.DataSource.DataSet.Delete
- odstrani aktualni zaznam a ukazatel nastavi na dalsi zaznam
- v helpu si vyhledej tema TDataSet.Delete
Martin
PS: Predpokladam, ze mas k DBGridu pripojeny DataSet :-)
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
To: "Konference Delphi 2000" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 21, 2001 9:34 PM
Subject: Table & Grid
> Predem se omlouvam za trivialni dotaz ale v helpu jsem zabloudil
>
> Jestlize stojim v DBGridu na nejakem zaznamu a chci jej odstranit jak
vypada
> prikaz na odstraneni aktualniho zaznamu.
> Nechci na tuto operaci pouzit DBNavigator.
>
> Diky za popostrceni
>
> 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.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
>
>Nastaveni hlasitosti
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.8.2001 00:02:05
Ahoj,
me funguje toto (meni to pouze master, ale urcite to pujde pouzit i na
zbytek):
type
TMIXERCONTROLDETAILS_UNSIGNED = record
dwValue : dword;
end;
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;
procedure OutputVolume (Volume : integer);
type
MIXERCONTROLDETAILS_BOOLEAN = record
fValue : longint;
end;
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
OutputFound: Boolean;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
OutputFound := False;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType =
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
OutputFound := True;
Break;
end;
end;
if not OutputFound then raise Exception.Create('Nenalezen vystup');
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_volume;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems :=
MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(MuteCD);
MixerControlDetails.paDetails := (zv)MuteCD;
MuteCD.fValue := Volume;
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
MIXER_GETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of David Kraina
Nevite nekdo o webu nebo normal, jak zjistit vsechny mozne nastavovani
hlastosti (line-in,front+rear speakers atd.), a nastavovat je. Wave out a
aux vim, ale to je malo.
Moc dik... ...DKx...Outlook express a OLE
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 22.8.2001 01:08:57
Nemozem zistit ako je zaregistrovana trieda pre Outlook Express na pracu ako
OLE.
Pomoze mi niekto?
jozo
Form na vrchu
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 22.8.2001 07:13:50
Preji pekny den,
mam aplikaci, ktera bezi v trayi a po obdrzeni zpravy ma zobrazit
form s hlaskou. Ten form by se mel zobrazit na vrchu nad vsemi
ostatnimi aplikacemi ale to se mi nedari. Potreboval bych aby se
umel "vyskrabat" nahoru stejne jako to umi Application.MessageBox.
Muzete mi nekdo poradit jak ten form spolehlive dostat nahoru
(StayInTop)
Zkousel jsem to nejak takto: -------------------------
...
Application.CreateForm(TZprava, Zprava);
With Zprava do
begin
...
ShowModal;
Free;
end;
procedure TZprava.FormActivate(Sender: TObject);
begin
Application.BringToFront;
end;
-------------------------------------------------------
S uctou
Robert Plzak
IT Vagnerplast spol. s r.o.
http://www.vagnerplast(tec)cz
ICQ: 71733706
Konferencia.exe
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 22.8.2001 08:01:57
> 1.) Vytvorit odkaz na program na ploche
> 2.) Vytvorit odkaz v nabidce Start
>
viz v JCLShell
function ShellLinkCreateSystem
procedure ShellLinkFree
T.Manual.
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.8.2001 08:37:46
On 21 Aug 2001, at 21:52, Centrum wrote:
> Ale ja mam jenom trial.
Pak si prohledni CD, melo by to tam byt v PDF, dalsi informece
jsou v helpech.
> > Chtel sem se zeptat, jestli nevite o nejakym manualu pro Delphi.
> > Samozrejme nejlepe v cestine, ale muze byt i anglicky. Myslel sem,
> > ze neco pochytim tady v konfere, ale musi bohuzel priznat, ze z
> > 80-90% vubec nevim o cem tocite. Ste hold moc dobri.
>
> V kazdem (legalnim) baleni Delphi.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Outlook express a OLE
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 22.8.2001 08:37:48
Mam pocit ze pre OE to neni :-( iba pre "velky" Outlook.
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
> Nemozem zistit ako je zaregistrovana trieda pre Outlook Express na pracu
ako
> OLE.
> Pomoze mi niekto?
Table & Grid
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 22.8.2001 08:39:38
> Jestlize stojim v DBGridu na nejakem zaznamu a chci jej odstranit jak
vypada
> prikaz na odstraneni aktualniho zaznamu.
> Nechci na tuto operaci pouzit DBNavigator.
rucickama CTRL+DELETE
v programu prikazem Table1.Delete nebo DBGrid1.Datasource.Dataset.Delete
S pozdravem Jiri Heinisch
Psuedomodalni formular
[*] Mirek Jarol�mek <m.jarolimek(zv)softdec(tec)cz> - 22.8.2001 09:02:34
Nazdarek,
chtel bych se zeptat, jestli nekdo neresil nasledujici problem. V aplikaci
je nekolik formularu ( v principu staci dva ), ktere jsou nemodalne
zobrazeny. Za urcitych okolnosti bych ale potreboval, aby konkretni okno
nebylo mozne opustit. Respective potrebuji, aby pri pokusu o opusteni tohoto
pseudomodalniho okna doslo k zobrazeni informacniho okna s nejakou zpravou a
pote doslo k reaktivaci toho pseudomodalniho okna.
Problem je v tom, ze kdyz zkusim obslouzit TForm.OnDeactivate ( zobrazim
hlaseni a pak zavolam Self.SetFocus ) dochazi za urcitych okolnosti k
dvojimu vyvolani teto eventy, coz je samozrejme nesmyslne. Deje se tak v
pripade, ze kliknu mysi na titulkovy pruh jineho okna ( v pripade, ze kliknu
mysi do prostoru formulare, je eventa vyvolana pouze jednou, ale pod W2k
zase dochazi k tomu, ze nove aktivovane okno "nedisabluje" svuj titulkovy
pruh ). Problem se zda byt zpusoben tim, ze pri prenaseni focusu z nove
aktivovaneho okna do puvodniho dojde ke kratkodobe ztrate focusu pred jeho
finalnim prenesenim. Stejne chovani lze pozorovat i pri obsluze pres
TScreen.OnActiveFormChange.
Konkretne se jedna o to, ze na tom formulari je dbGrid, ve kterem je
rozeditovana nejaka polozka ( a ja to nemuzu resit v tomto pripade jinak,
takze mi nepomuze reseni typu "Editaci je lepsi provadet v jinem, modalne
zobrazenem formulari" ). Proste potrebuju pri pokusu o opusteni tohoto okna
informovat uzivatele o tom, ze nejprve musi dokoncit editaci a pak teprve
jit jinam.
Dekuju za kazdou radu
Mirek.
Nastaveni hlasitosti
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 22.8.2001 09:13:51
Kdybys poslal i s demem, byl bych vdecny...
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Psuedomodalni formular
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 22.8.2001 09:23:55
Ahoj, ja jsem resil neco podobneho a nalezl jsem nasledujici reseni:
zakladem je deaktivace vsech okynek v pripade, ze chces mit aktivni jen to
svoje a pozdejsi jejich aktivace:
FWindowList: array of HWND;
Nastaveni "modalnosti" Tveho okna:
FWindowList:= nil;
// projedeme vsechny formy a zjistime, ktere mame zablokovat
for i:= 0 to Screen.FormCount-1 do
// budeme blokovat pouze formy, ktere jsou enabled a neni to tento
form
if IsWindowEnabled(Screen.Forms[i].Handle) and
(Screen.Forms[i].Handle<>Self.Handle) then
begin
// pridame ho do interniho listu ...
SetLength(FWindowList, Length(FWindowList)+1);
FWindowList[Length(FWindowList)-1]:= Screen.Forms[i].Handle;
EnableWindow(Screen.Forms[i].Handle, False);
end;
EnableWindow(Handle, True);
opetovne povoleni vsech oken:
var
i: Integer;
for i:= 0 to Length(FWindowList)-1 do
// budeme odblokovavat pouze formy, ktere mame v seznamu
EnableWindow(FWindowList[i], True);
// znicime interni seznam
SetLength(FWindowList, 0);
FWindowList:= nil;
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> chtel bych se zeptat, jestli nekdo neresil nasledujici problem.
> V aplikaci
> je nekolik formularu ( v principu staci dva ), ktere jsou nemodalne
> zobrazeny. Za urcitych okolnosti bych ale potreboval, aby konkretni okno
> nebylo mozne opustit. Respective potrebuji, aby pri pokusu o
> opusteni tohoto
> pseudomodalniho okna doslo k zobrazeni informacniho okna s
> nejakou zpravou a
> pote doslo k reaktivaci toho pseudomodalniho okna.
Komponenty ADO
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 22.8.2001 09:34:21
Nazdar
existuje nejaka komponenta ADO, nebo nejaky zpusob jak pretransformovat data
pomoci ODBC z FoxPro do SQL, jedna se mi o nejakou obdobu komponenty
BATCHMOVE
DIK
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 22.8.2001 09:39:46
> Pokud si prislusny potomek TDataSet natahne ze zdroje vsechna
> data a nemaze je jako v pripade ADO, pak v zasade nic.
Ano, ano, natahne, query muzu zavrit a data zustavaji, nevidim duvod proc by
kbmMemTable mela ty data umazavat pokud ji k tomu nedam pokyn, ale to uz si
pripadne zkratka musim programove osetrit (znovuzkopirovani tech pointru je
bleskovka). Musim ale piznat, ze urcite obavy mam. kbmMemTable totiz
umoznuje takove mnou zatim neprozkoumane forky jako je pakovani polozek v
pameti a tak, coz by mi mohlo dost zneprijemnit jejich cteni ostatnimi
komponentami vne kbmMemTable. Dalsi vec, ktera mi trochu desi je stav, kdy
do kbmMemTable nactu hooodne velky objem dat. Dost dobre nevim (prozatim) co
s temi daty dela, kdyz se podle mych propoctu nemuzou vejit do pameti.
Zkousel jsem na demo-programku, ktery generoval nahodna cisla a ukladal je
do kbmMemTable, nastavit takovy pocet generovanych zaznamu, ze se to zkratka
do pameti nemohlo vejit. A svete div se, ono to nezkolabovalo. Spis jsem mel
pocit, ze to nejak swapuje na disk. V takovem pripade mi opet neni jasne jak
bych se k tem datum z jinych komponent dostaval.
> Problem
> je pouze v tom, ze musis sahnout do DB.pas, a vzdy zkontrolovat
> kazdou novou verzi VCL, jestli tam nedoslo ke zmenam a dodelat
> tam svoje upravy. Ale nevythal bych to jako TList, ale zase jako
> TBufferList. Lepsi by ale bylo vytahnout metodu GetBuffer.
Tohle budu muset trochu upresnit. Ackoliv kbmMemTable je potomkem TDataSet,
tak podle mych dosavadnich poznatku se mi zda, ze jeho FBuffers nepouziva a
misto toho pouziva svuj FRecords : TList. Proto jsem si vytahnul prave ten
FRecords typu TList a ne FBuffers.
>
> V zasade takto programuji i ja. Pouze si setrim mezikrok, kde
> Query natahne data do sveho bufferu, a ja je kopiruji do jineho.
> Jenze ja to delam v OLE DB, coz ti pro IB moc nepomuze.
No to je asi pravda, nicmene ted jsem objevil tusim nejake trust komponety
FIBPlus www.devrace.com , ktere maji byt udajne rychle a navic je mezi nimi
komponenta pFIBQuery ktera ssebou netahne prave ten moloch jak rikas a je
jeste rychlejsi nez rychla. Na druhou stranu se na ni tudiz neda pripichnout
DataSource a tudiz ani zadne dbKomponenty. Coz mi nevadi za predpokladu, ze
rozlousknu problem jak ty data zkopirovat do kbmMemTable. Zatim jsem se k
tomu ale nedostal.
>
> Db komponenty napojene na TDataSet nepouzivam, protoze me
> praci nevyhovuje struktura celeho toho molocha.
Nicmene je to zpusob, jak bleskove neco dat dokupy. Zadny zazrak to sice
nebude, velke figle se s tim vetsinou asi nenadelaji, ale urcite je rada
situaci, kdy je dobre ze existuji. Napr. DBGrid a jemu podobne (lepsi napr
od TurboPower (Orpheus)). DBEdity a podobne take nepouzivam a snad ani
nebudu, jelikoz nemam potrebu editovat ziva data. Nejsem zastancem editace
nazivo. Jsem nazoru, ze uzivatel by mel mit prilezitost si dobre rozmyslet,
co do databaze posle a kdyz uz si to bude rozmyslet, tak mu ten prst
neupadne kdyz svou vuli potvrdi stiskem jedne klavesy. Aspon se nebude
vymlouvat ze "ono to samo...".
Jinak pokud tuto diskusi sleduje jeste nekdo dalsi, chtel bych trochu
poopravit informace z predchoziho mailu.
> Dale jsou na zacatku datove oblasti zaznamu dva byte (pokud ten jeden byte
> na polozku je pred polozkou, tri byte pokud je za polozkou) a pak tam je
> jeste 6 byte o kterych nevim kde jsou - asi (doufam) na konci datove
oblasti > zaznamu
Takze na zacatku datove oblasti neni zadny byte ale na konci neco byt musi
(tusim ze 14Byte). A ten jeden byte navic pro kazdou polozku zaznamu je
podle me za kazdou polozkou.
a to je jiz opravdu vse
dekuji zejmena Zbyskovi za podnetnou rozpravu
Cau
PavelC
Kresleni v tstringgrid
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 22.8.2001 09:53:32
Ahoj,
ve svem programu mam komponentu TStringGrid a v ni v nekterych bunkach znak
(napr. A).
Pomoci procedury
procedure Txx.ptabulkaDrawCell(Sender: TObject; Col, Row: Integer; Rect:
TRect; State: TGridDrawState);
begin
if ptabulka.Cells[col,row]='A' then
ptabulka.canvas.brush.Color:=clred
else
ptabulka.canvas.brush.Color:=clwhite;
ptabulka.canvas.textrect(rect, rect.left, rect.top,
ptabulka.cells[col,row]);
end;
zjistuji, je-li v bunce znak "A" a vybarvim ji cervene. Potreboval bych ale
vybarvit jen pulku policka cervene
a druhou napriklad modre. Muze mi nekdo poradit, jak na to ?
Dik moc Lada
Psuedomodalni formular
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 22.8.2001 09:59:28
Neviem ci ti pomoze ale podla mna by bol lepsi miesto SetFocus poslat
PostMessage na aktivaciu.
Ten sa zaradi do fronty a pravdepodobne potom udalost nastane iba raz.
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Mirek Jarol�mek [SMTP:m.jarolimek(zv)softdec(tec)cz]
> Odesl�no: 22. august 2001 9:03
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Psuedomodalni formular
>
> Nazdarek,
>
> chtel bych se zeptat, jestli nekdo neresil nasledujici problem. V
> aplikaci
> je nekolik formularu ( v principu staci dva ), ktere jsou nemodalne
> zobrazeny. Za urcitych okolnosti bych ale potreboval, aby konkretni okno
> nebylo mozne opustit. Respective potrebuji, aby pri pokusu o opusteni
> tohoto
> pseudomodalniho okna doslo k zobrazeni informacniho okna s nejakou zpravou
> a
> pote doslo k reaktivaci toho pseudomodalniho okna.
>
> Problem je v tom, ze kdyz zkusim obslouzit TForm.OnDeactivate ( zobrazim
> hlaseni a pak zavolam Self.SetFocus ) dochazi za urcitych okolnosti k
> dvojimu vyvolani teto eventy, coz je samozrejme nesmyslne. Deje se tak v
> pripade, ze kliknu mysi na titulkovy pruh jineho okna ( v pripade, ze
> kliknu
> mysi do prostoru formulare, je eventa vyvolana pouze jednou, ale pod W2k
> zase dochazi k tomu, ze nove aktivovane okno "nedisabluje" svuj titulkovy
> pruh ). Problem se zda byt zpusoben tim, ze pri prenaseni focusu z nove
> aktivovaneho okna do puvodniho dojde ke kratkodobe ztrate focusu pred jeho
> finalnim prenesenim. Stejne chovani lze pozorovat i pri obsluze pres
> TScreen.OnActiveFormChange.
>
> Konkretne se jedna o to, ze na tom formulari je dbGrid, ve kterem je
> rozeditovana nejaka polozka ( a ja to nemuzu resit v tomto pripade jinak,
> takze mi nepomuze reseni typu "Editaci je lepsi provadet v jinem, modalne
> zobrazenem formulari" ). Proste potrebuju pri pokusu o opusteni tohoto
> okna
> informovat uzivatele o tom, ze nejprve musi dokoncit editaci a pak teprve
> jit jinam.
>
> Dekuju za kazdou radu
>
> Mirek.
> Form na vrchu
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 22.8.2001 10:01:56
Vsak form ma vlastnost StayOnTop nastavitelny - to ti zabezpeci co prave
potrebujes
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Robert Plz�k [SMTP:rpvp(zv)vagnerplast(tec)cz]
> Odesl�no: 22. august 2001 7:14
> Komu: Delphi
> P�edm�t: Form na vrchu
>
> Preji pekny den,
>
> mam aplikaci, ktera bezi v trayi a po obdrzeni zpravy ma zobrazit
> form s hlaskou. Ten form by se mel zobrazit na vrchu nad vsemi
> ostatnimi aplikacemi ale to se mi nedari. Potreboval bych aby se
> umel "vyskrabat" nahoru stejne jako to umi Application.MessageBox.
>
> Muzete mi nekdo poradit jak ten form spolehlive dostat nahoru
> (StayInTop)
>
> Zkousel jsem to nejak takto: -------------------------
> ...
> Application.CreateForm(TZprava, Zprava);
> With Zprava do
> begin
> ...
> ShowModal;
> Free;
> end;
>
> procedure TZprava.FormActivate(Sender: TObject);
> begin
> Application.BringToFront;
> end;
> -------------------------------------------------------
>
> S uctou
>
> Robert Plzak
>
> IT Vagnerplast spol. s r.o.
> http://www.vagnerplast(tec)cz
> ICQ: 71733706
Kniha o MSSQL7 a Delphi
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.8.2001 10:08:06
Ahoj,
a co bys presne rad? Muzes pouzit napriklad vybornou knihu
Mistrovstvi v T-SQL loni vydanou CPressem pripadne v nejblissi
dobe vyjivsi predklad wroxove knihy Programujeme MS SQL Server
2000.
Programovani knih o Delphi jsou mraky, v konferenci si najdi
reference na jednotlive. A pro pristup k databazi hledej kapitoly o
OLE DB reps. ADO.
Slavek
> Nevite nekdo o nejake knize v AJ, CJ detailne venovane problematice
> vytvareni aplikaci v Delphi (4,5) a MSSQL server? Pokud vite, napiste mi i
> kde ji mohu zakoupit.
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
D6 Ent, XML Data Binding a nova verze DTD
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.8.2001 10:08:06
Preji vsem pekeneho dne,
necham si vygenerovat pomoci XML Data Binding jednotku na
pristup ke XML dokumentu, vse funguje jak ma, uzivatele chrochtaji
blahem, proste parada, nekonecna slast.
Po case ovsem dojde na situaci, kdy potrebuji zmenit DTD daneho
XML. Vygeneruji si novou jednotku, dam novou verzi EXE souboru a
ugradujici uzivatele chrochat ihned prestanou, nebot jiz vytvorene
XML dokumenty neodpovidaji novemu DTD.
Jak tento problem resite (budete resit)?
Diky za nazory
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Konferencia.exe
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.8.2001 10:08:06
Ahoj,
podivej se na zdrojaky KonfView, tak to zpracovani je, tak si
muzes vzit inkriminovany zdrojak a pripadne trosku pritesat.
Slavek
> Uz pracujem na dalsej verzii, ktora bude vediet stahovat i txt subory z
> konferencie, ktore uverejnuje Slavek Rydval na stranke
> http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml.
> Len zatial mam s tym citanim problemy a to by som chcel poprosit vsetkych,
> aby ste si pozreli zdrojaky a pomohli mi stym.
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Neukoncitelny dialog
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.8.2001 10:08:06
Ahoj,
to je pravda, ale uzivatel muze byt zmatek jak vcela, kdyz macka
uzaviraci krizek, ktery se promackne, ale pak to nic neudela
(pripadne v systemovem menu dava close). Proto jeste doporucuji:
//zak�z�n� polo�ky
procedure TForm1.Button1Click(Sender: TObject);
var
hMenuHandle: HMENU;
begin {TForm1.Button1Click}
hMenuHandle := GetSystemMenu(Handle, FALSE);
if (hMenuHandle <> 0) then
EnableMenuItem (hMenuHandle, SC_CLOSE,
MF_BYCOMMAND or MF_GRAYED);
end; {TForm1.Button1Click}
//povolen� polo�ky
procedure TForm1.Button2Click(Sender: TObject);
var
hMenuHandle: HMENU;
begin {TForm1.Button2Click}
hMenuHandle := GetSystemMenu(Handle, FALSE);
if (hMenuHandle <> 0) then
EnableMenuItem (hMenuHandle, SC_CLOSE,
MF_BYCOMMAND);
end; {TForm1.Button2Click}
Slavek
> V udalosti OnCloQuery nastavit CanClose na False
> ing. Jan Fiala
> 21.8.2001 David Kraina:
> > Nevite nekdo jak zabranit ukoncovani dialogu Alt+F4 ?
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
MSSQL2000 - vytahnuti textu do mema
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 22.8.2001 10:13:09
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj,
potreboval bych poradit
mam MSSQL2000 se kterym pracuju pres D4 a ADO komponenty.
V databazi mam v tabulce pole typu TEXT (NE - CHAR).Potrebuju obsah tohoto pole vytahnout a nacist do MEMA va formu...JAK na to.
Zkousel jsem ruzne veci ale stale nic. Diky za kazdou radu..
Radek Janus Foresta SG a.s.
Kresleni v tstringgrid
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 22.8.2001 10:25:55
Pouzij FillRect,ktery ti vybarvi podle zadanych souradnic ctverec.
Pred vybarvenim jeste nastav Brush color Canvasu na barvu jakou
potrebujes.
Priklad:
> procedure Txx.ptabulkaDrawCell(Sender: TObject; Col, Row: Integer; Rect:
> TRect; State: TGridDrawState);
Souradnicema Rect Left rigth top left si nastavis jaky ctverec chces
vybarvit
Canvas.FillRect(Rect);
----- Original Message -----
From: "Skokosek" <skokosek(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 22, 2001 9:53 AM
Subject: Kresleni v tstringgrid
> Ahoj,
>
> ve svem programu mam komponentu TStringGrid a v ni v nekterych bunkach
znak
> (napr. A).
> Pomoci procedury
>
> procedure Txx.ptabulkaDrawCell(Sender: TObject; Col, Row: Integer; Rect:
> TRect; State: TGridDrawState);
> begin
> if ptabulka.Cells[col,row]='A' then
> ptabulka.canvas.brush.Color:=clred
> else
> ptabulka.canvas.brush.Color:=clwhite;
> ptabulka.canvas.textrect(rect, rect.left, rect.top,
> ptabulka.cells[col,row]);
> end;
>
> zjistuji, je-li v bunce znak "A" a vybarvim ji cervene. Potreboval bych
ale
> vybarvit jen pulku policka cervene
> a druhou napriklad modre. Muze mi nekdo poradit, jak na to ?
>
> Dik moc Lada
Fatal Error] projekt.dpr(13): Unit name mismatch:
[*] kinekus-nextra <kinekus(zv)nextra.sk> - 22.8.2001 10:27:56
Ahoj delphi,
v projekte som pouzil form, ktory som neskor z projektu vyhodil. A tam je
moj problem a aj dotaz. V tejto situacii nemozem skompilovat "projekt",
pretoze mi vypisuje chybu : [Fatal Error] anasys.dpr(13): Unit name
mismatch: 'Unit10'. Prehladal som vsetko, kde by mohol byt odkaz na
spominany Unit10. Vie mi niekto poradit, kde to este moze byt zazipsovane ?
Dakujem.
Zaciatocnik, samouk.Kresleni v tstringgrid
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 22.8.2001 10:54:13
> vybarvit jen pulku policka cervene
> a druhou napriklad modre. Muze mi nekdo poradit, jak na to ?
Zkus vyuzit parametr Rect, ktery udalost predava. Tam si zjistit rozmery a
vybarvis polovinu tak a druhou onak.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
MSSQL2000 - vytahnuti textu do mema
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.8.2001 10:58:02
Se sloupcem typu "text" se pracuje naprosto stejne jako se sloupci
char/varchar.
Na strane Delphi je to normalni string.
....
ADOQuery.SQL := 'SELECT memo FROM Tabulka';
ADOQuery.Open;
Memo1.Lines.Text := ADOQuery.FieldByName('memo').Value;
dtto
...
ADOQuery.FieldByName('memo').Value := Memo1.Lines.Text;
nebo pouzij primo komponentu DBMemo.
Ahoj Pavel
Ahoj,
potreboval bych poradit
mam MSSQL2000 se kterym pracuju pres D4 a ADO komponenty.
V databazi mam v tabulce pole typu TEXT (NE - CHAR).Potrebuju obsah tohoto
pole vytahnout a nacist do MEMA va formu...JAK na to.
Zkousel jsem ruzne veci ale stale nic. Diky za kazdou radu..
Radek Janus Foresta SG a.s.MSSQL2000 - vytahnuti textu do mema
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.8.2001 11:01:07
On 22 Aug 2001, at 10:13, Radek Janu# FSG wrote:
> potreboval bych poradit
> mam MSSQL2000 se kterym pracuju pres D4 a ADO komponenty.
> V databazi mam v tabulce pole typu TEXT (NE - CHAR).Potrebuju obsah
> tohoto pole vytahnout a nacist do MEMA va formu...JAK na to. Zkousel
> jsem ruzne veci ale stale nic. Diky za kazdou radu..
Myslim, ze bude vhodne vykaslat se na vsechny TXxxFieldy a
tahat to primo pres _Recordset.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Neukoncitelny dialog
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 22.8.2001 11:14:59
> Nevite nekdo jak zabranit ukoncovani dialogu Alt+F4 ?
1.
OnClose: Action:=caNone;
2.
OnClose: Abort
3.
OnCloseQuery: CanClose:=false;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0601 203084]
=========================================Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.8.2001 11:22:23
On 22 Aug 2001, at 9:39, ing.Pavel Cabalka wrote:
Zkus vkladat mezi odstavce prazdne radky, jinak je z toho u me
jeden velky slepenec.
> Ano, ano, natahne, query muzu zavrit a data zustavaji, nevidim duvod
> proc by kbmMemTable mela ty data umazavat pokud ji k tomu nedam pokyn,
Tuto komponentu neznam, takze se k ni sotva mohu nejak vyjadrit.
> No to je asi pravda, nicmene ted jsem objevil tusim nejake trust
> komponety FIBPlus www.devrace.com , ktere maji byt udajne rychle a
> navic je mezi nimi komponenta pFIBQuery ktera ssebou netahne prave
> ten moloch jak rikas a je jeste rychlejsi nez rychla. Na druhou
> stranu se na ni tudiz neda pripichnout DataSource a tudiz ani zadne
> dbKomponenty. Coz mi nevadi za predpokladu, ze rozlousknu problem
> jak ty data zkopirovat do kbmMemTable. Zatim jsem se k tomu ale
> nedostal.
Uprimne receno, jsou situace, kdy se to da spise povazovat za
vyhodu. Pak je ale otazka, zda to ma smysl cpat do
kbmMemTable, jestli nebude lepsi udrzovat nactena data v nejake
vhodne strukture a tu pak jen zobrazovat v ruznych non-db
komponentach. Ja to delam tak, ze mam ve svem OleDBGridu
nactena data, vedle toho mam pouze sloupec s ukazateli na
jednotlive radky z prvni tabulky. Data zobrazuji pres druhy sloupec,
coz mi umoznuje data svizne tridit podle sloupcu (presouvam jen
pointry, nikoliv radky s daty), tvorit vybery a podobne. Delat
takovehle kousky na zivym recordsetem by bylo k uzoufani.
> > > Db komponenty napojene na TDataSet nepouzivam, protoze me > praci
> nevyhovuje struktura celeho toho molocha.
> Nicmene je to zpusob, jak
> bleskove neco dat dokupy. Zadny zazrak to sice nebude, velke figle se
> s tim vetsinou asi nenadelaji, ale urcite je rada situaci, kdy je
> dobre ze existuji.
Presne tak. Ovsem zapomen na figle a efektivnost vykonu.
> Napr. DBGrid a jemu podobne (lepsi napr od
> TurboPower (Orpheus)).
Ten jsem nejaky cas pouzival, ale i tam jsem zacal narazet na
nejake problemy, takze jsem ho take zahodil. Orpheus dela take
velke problemy pri lokalizaci (chyba je vsak nekde ve VCL), takze
jsem ho ze svych programu vymytil.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MDI stridani maximalizovanych oken
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 22.8.2001 11:26:44
> Odes�latel: Mgr. Jaroslav �varc <jarasvarc(zv)seznam(tec)cz>
> V moji MDI aplikaci pomoci tlacitek prepinam mezi nekolika Child
> okny. Potrebuju, aby se vsechna okna zobrtazovala rovnou
> maximalizovane. (Vizuelne to ma vypadat jako Tabsheet) To se dari, az
> na to, ze pred maximalizaci okna vzdycky problikne totez okno v
> mensich rozmerech.
MDI aplikace funguji celkem dobre, ale casto si delaji, co chteji - viz Tvuj problem.
Z hlavy Ti neodpovim, ale takova myslenka:
Pokud maji byt okna porad maximalizovana, tak proc MDI?
Zkusil bych okna zakotvit (Dock) do nejakeho formulare s TPageControl.
A bude to vypadat jako editor v Delphi.
Form2.DragMode=dmAutomatic;
Form2.DragKind=dkDock;
PageControl.DockSite=true;
PageControl.OnDockOver...
PageControl.OnDockDrop...
Mozna to ale je s ohledem na charakter Tvoji aplikace nesmysl.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0601 203084]
=========================================MDI stridani maximalizovanych oken
[*] Alan Cermak <alexoft(zv)razdva(tec)cz> - 22.8.2001 11:28:17
Mohlo by stacit pred vytvorenim (zmenou) child okna zamknout vykreslovani v parent formulari. Asi nejak takto:
LockWindowUpdate(Handle);
....
tady se vytvori child okno nebo se udela co je potreba
.....
LockWindowUpdate(0);
Alex
ac(zv)wo(tec)cz
>
> ----- Original Message -----
> From: "Mgr. Jaroslav �varc" <jarasvarc(zv)seznam(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, August 21, 2001 10:36 AM
> Subject: MDI stridani maximalizovanych oken
>
>
> V moji MDI aplikaci pomoci tlacitek prepinam mezi nekolika Child
> okny. Potrebuju, aby se vsechna okna zobrtazovala rovnou
> maximalizovane. (Vizuelne to ma vypadat jako Tabsheet) To se dari, az
> na to, ze pred maximalizaci okna vzdycky problikne totez okno v
> mensich rozmerech. Pritom nastaveni wsMaximized se nastavuje uz v
> OnCreate kazdeho Child okna. Nevypada to dobre a chtela bych to
> odstranit. Nevi nekdo nahodou jak?
>
> Diky moc,
> zdravi Jarka
Fatal Error] projekt.dpr(13): Unit name mismatch:
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 22.8.2001 11:36:57
> v projekte som pouzil form, ktory som neskor z projektu vyhodil. A tam je
> moj problem a aj dotaz. V tejto situacii nemozem skompilovat "projekt",
> pretoze mi vypisuje chybu : [Fatal Error] anasys.dpr(13): Unit name
> mismatch: 'Unit10'. Prehladal som vsetko, kde by mohol byt odkaz na
> spominany Unit10. Vie mi niekto poradit, kde to este moze byt zazipsovane ?
ahoj,
podivej se do project source. Me taky vzdycky pomohlo tu pridanou
unitu znova ulozit - SaveAs.
Milan Cizek, D5
Ent
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Fatal Error] projekt.dpr(13): Unit name mismatch:
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.8.2001 11:54:27
> je moj problem a aj dotaz. V tejto situacii nemozem skompilovat
> "projekt", pretoze mi vypisuje chybu : [Fatal Error] anasys.dpr(13):
> Unit name mismatch: 'Unit10'. Prehladal som vsetko, kde by mohol byt
> odkaz na spominany Unit10. Vie mi niekto poradit, kde to este moze byt
> zazipsovane ?
>
Podle meho neni problem v tom, ze by na tu unitu byl nekde odkaz
- to by byla jina chybova hlaska. Spis se treba soubor jmenuje
Unit10.pas, ale obsahuje unitu, ktera se jmenuje jinak. Nebo
naopak. Nemuze to byt tim?
David Lebeda
Hexadecimalne znaky
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 22.8.2001 12:06:16
Mam v premennej typu string text: 'Milo=B9'. B9 je ASCII znak v
hexadecomalnom cisle. A chcem ten znak previest na string, teda vysledok v
tomto pripade by mal byt 'Milos' z makcenom na s.
Ako to najjednoduchsie a najrychlejsie previest?
Vdaka za kazdu radu.
OT: UPX
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.8.2001 12:07:33
UPX je na h....no protoze se cely program (v delphi tak kolem 1-5MB) musi
nahrat do pametu rozbaleny, kdezto nerozbaleny (sice vetsi) se nahrava az
kdyz je potreba - tedy postupne. Muj program po zbaleni pomoci UPX zabiral
10MB v pameti, ted nezabaleny ma tak 3-5MB.>Zdravim kolegovia,
>mam program s bde, ktory nemal odjakziva problemy. Chcel som to vylepsit a
>tak som exe subor zmensil pomocou UPX a vyrobil som instalacky. Ake bolo
>moje prekvapenie, ked po nainstalovani mi to najprv nahlasilo, ze pregram
>vykonal neplatnu operaciu. a to este je parada ale po restartovani systemu
>mi vymazalo vsetky subory c adresari C:\. nestalo sa to nahodov niekomu z Vas?
>Jediny rozdiel medzi fungujucou instalaciou touto likvidacnou je len exe
>komprimovany pomocou UPX.
>
>Miro
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Tvorba programu pro mobily
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 22.8.2001 12:15:43
Zdravim!
Netusi nekdo z vas, jakym zpusobem komunikuji programy s mobily (konkretne
Nokia 5110) pres datovy kabel MBUS? Pomoci AT prikazu asi tezko (MBUS neni
modemovy kabel - to bych musel pouzit FBUS). Hrozne me to zajima, protoze
bych si chtel vytvorit vlastni programek pro posilani SMSek - nenasel jsem
nic, co by mi vyhovovalo.
Diky
Vasek Navrat
Instalace MSDE 2
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 22.8.2001 12:21:51
Pri instalaci MSDE 2 mi to tesne pred koncem rekne, ze nastala interni chyba
cannot load package Id (jestli se dobre pamatuji). Nevite nekdo, cim to muze
byt?
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Table & Grid
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 22.8.2001 12:26:06
nebo mozna trochu srozumitelneji (ale mene univerzalneji):
ten DBGrid mas napojeny kuprikladu na Table1, takze treba na tlacitku
zavolas jenom kod:
Table1.Delete;
Preji pekny den
Petr Svejda
LingVista Backup 1.3 - zalohovani s inteligenci
http://www.lingvista(tec)cz - stazeni programu Z D A R M A
> -----Original Message-----
> > Jestlize stojim v DBGridu na nejakem zaznamu a chci jej odstranit
> > jak vypada prikaz na odstraneni aktualniho zaznamu.
>
> Napr. DBGrid.DataSource.DataSet.Delete
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.273 / Virov� b�ze: 143 - datum vyd�n�: 16.8.2001
IB - boolean
[*] EMDAT <blau(zv)emdat(tec)cz> - 22.8.2001 12:32:12
Ahoj existuje v IB nejaky typ boolean ktery by mel jenom hodnoty true, false?
zatim jsem nanej nenarazil a pouzivam varchar (1) do ktereho davam hodnoty Y a N
a nechce se mi tomu verit, ze by to INTRBASKA nemela.
S pozdravem Petr Blau software developer
IB kryptovani procedur
[*] EMDAT <blau(zv)emdat(tec)cz> - 22.8.2001 12:35:28
Ahoj
existuje v IB nejaka moznost kryptovat stored procedury na klic, tak jak tomu je v MS SQL7 a vyssich verzich?
nechce se mi zrovna nechavat veskerou SQL logiku aplikace volne k dispozici u zakaznika
S pozdravem Petr Blau software developer
IB - boolean
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 22.8.2001 12:37:32
Ahoj,
nema. Typicky se pouziva bud CHAR(1) (hondoty T,F nebo Y,N) nebo
smallint (hodnoty 0,1).
Nepouziva se VARCHAR, protoze se zbytecne uklada i informace o skutecne
delce stringu v poli.
Tom
> EMDAT wrote:
>
> Ahoj existuje v IB nejaky typ boolean ktery by mel jenom hodnoty true,
> false?
> zatim jsem nanej nenarazil a pouzivam varchar (1) do ktereho davam
> hodnoty Y a N
> a nechce se mi tomu verit, ze by to INTRBASKA nemela.
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 22.8.2001 12:48:42
> Pak je ale otazka, zda to ma smysl cpat do
> kbmMemTable, jestli nebude lepsi udrzovat nactena data v nejake
> vhodne strukture a tu pak jen zobrazovat v ruznych non-db
> komponentach.
Preci jenom bych se docela nerad zbavil moznosti rychle pripojit nejakou
dbKomponentu. Pripojit non-dbKomponentu mi prijde pomerne pracnejsi, i kdyz
uznavam ze je to jiste vyvazeno (leckdy i prevazeno) naslednou operabilitou.
> Ja to delam tak, ze mam ve svem OleDBGridu
> nactena data, vedle toho mam pouze sloupec s ukazateli na
> jednotlive radky z prvni tabulky. Data zobrazuji pres druhy sloupec,
> coz mi umoznuje data svizne tridit podle sloupcu (presouvam jen
> pointry, nikoliv radky s daty), tvorit vybery a podobne. Delat
> takovehle kousky na zivym recordsetem by bylo k uzoufani.
>
Tak tohle jsem nepochopil, muzes to prosim trochu rozvest? Docela by me to
zajimalo.
A kdyz uz jsme se dostali k ponekud filozofictejsim otazkam. Pro aplikaci
jsem si tak nejak stanovil asi nasledujici : modularita je vyjadrena :
Moduly jsou reprezentovany DataModuly, tyto nesou krome konektivity a udrzby
dat vetsinu ostatnich non-visual prvku (ActionListy, Menu, PictureListy,
...). Moduly mohou volat vice SubModulu reprezentovanych jiz jednotlivymi
Form-ulari vyuzivajicimi sluzeb volajiciho Modulu (rozumej DataModulu).
Aplikace pak vola primarni Modul (DataModul), ten si otevre primarni
aplikacni okno, a odtud lze volat dalsi Moduly a skrzeva ne Submoduly. Vyssi
Moduly mohou vyuzivat sluzeb nizsich Modulu resp. jejich SubModulu. A tak
dale.
Toto je moje idea. Snad jsem to popsal trochu srozumitelne. A ted otazka :
ma to neco do sebe nebo je to ideove chybne? Je to ale uz trochu mimo Subj
takze pokud budes mit naladu o tom dat rec, tak to pro priste prejmenujem.
s pozdravem
PavelC
IB kryptovani procedur
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 22.8.2001 12:52:43
Ahoj,
> EMDAT wrote:
>
> Ahoj
>
> existuje v IB nejaka moznost kryptovat stored procedury na klic,
> tak jak tomu je v MS SQL7 a vyssich verzich?
> nechce se mi zrovna nechavat veskerou SQL logiku aplikace volne k
> dispozici u zakaznika
Myslim, ze takovou funkcnost IB ani FB nemaji. Lze ale v tabulce
RDB$PROCEDURES smazat text v RDB$PROCEDURE_SOURCE a nechat tam napr. tri
mezery. Je totiz uz nejakou dobu znamy BUG, kdy pri zanechani prazdneho
stringu v textu procedury nektery typ triggeru (nepamatuji si, ktery to
je) spusti dvakrat ...
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Form na vrchu
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 22.8.2001 13:00:20
Pokud ale ta aplikace bezi minimalizovana v trayi,
tak "StayOnTop" nefunguje!
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Tungli
Sent: Wednesday, August 22, 2001 10:02 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Form na vrchu
Vsak form ma vlastnost StayOnTop nastavitelny - to ti zabezpeci co prave
potrebujes
Jan Tungli
mailto:jan.tungli(zv)seznam(tec)cz ; mailto:tungli(zv)datapac.sk
http://www.tsoft.szm.com ; http://www.t-soft.miesto.sk ;
http://www.tungli.host.sk ;
http://www.ezoterika.host.sk ; http://www.verseim.host.sk
> -----P�vodn� zpr�va-----
> Od: Robert Plz�k [SMTP:rpvp(zv)vagnerplast(tec)cz]
> Odesl�no: 22. august 2001 7:14
> Komu: Delphi
> P�edm�t: Form na vrchu
>
> Preji pekny den,
>
> mam aplikaci, ktera bezi v trayi a po obdrzeni zpravy ma zobrazit
> form s hlaskou. Ten form by se mel zobrazit na vrchu nad vsemi
> ostatnimi aplikacemi ale to se mi nedari. Potreboval bych aby se
> umel "vyskrabat" nahoru stejne jako to umi Application.MessageBox.
>
> Muzete mi nekdo poradit jak ten form spolehlive dostat nahoru
> (StayInTop)
>
> Zkousel jsem to nejak takto: -------------------------
> ...
> Application.CreateForm(TZprava, Zprava);
> With Zprava do
> begin
> ...
> ShowModal;
> Free;
> end;
>
> procedure TZprava.FormActivate(Sender: TObject);
> begin
> Application.BringToFront;
> end;
> -------------------------------------------------------
>
> S uctou
>
> Robert Plzak
>
> IT Vagnerplast spol. s r.o.
> http://www.vagnerplast(tec)cz
> ICQ: 71733706
ACTIVE-X GRAPH
[*] kinekus-nextra <kinekus(zv)nextra.sk> - 22.8.2001 13:22:11
Ahoj delphi,
Pre zobrazenie cisel z databazy chcem pouzit komponentu Active-x Graph.
Graf obsahuje pre kazdy stlpec 3 hodnoty.
Napr.:
S1 S2 S3
Peter 20 50 80
Vlado 50 50 30
Mirfo 80 50 40
Pre zadanie hodnot do grafu pouzivat Graf.Data[veta]:=hodnota
Ked zadam
Graf.Data[1]:=20;
Graf.Data[2]:=50;
Graf.Data[3]:=80;
Naplnim len prvu hodnotu kazdeho stlpca.
Ako naplnit do grafu aj stlpce S2 a S3 ?
Graf je nadstaveny takto :NumPoints:3, NumSets:=3
Dakujem. Help to nevysvetluje nijak.
Vazba na data v pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.8.2001 13:33:28
On 22 Aug 2001, at 12:48, ing.Pavel Cabalka wrote:
> > Ja to delam tak, ze mam ve svem OleDBGridu
> > nactena data, vedle toho mam pouze sloupec s ukazateli na
> > jednotlive radky z prvni tabulky. Data zobrazuji pres druhy sloupec,
> > coz mi umoznuje data svizne tridit podle sloupcu (presouvam jen
> > pointry, nikoliv radky s daty), tvorit vybery a podobne. Delat
> > takovehle kousky na zivym recordsetem by bylo k uzoufani.
> >
>
> Tak tohle jsem nepochopil, muzes to prosim trochu rozvest? Docela by
> me to zajimalo.
Mejme pro ilustraci
var
Hlavni: array of PChar;
Pomocny: array of PChar;
Alokuji pocet radek v Hlavni, aby odpovidal poctu radku ctenych z
databaze (nebo odkukoliv jinde). Delku kazdeho radku alokuji na
delku vety. Pak vyctu data do Hlavni.
Pak udelam napr. primitivne toto:
for i := 0 to Pred(LenHlavni) do
Pomocny[i] := Hlavni[i];
A zobrazuji data pres pomocny, protoze kazdy radek mi ukazuje
na misto, kde jsou ulozena skutecna data.
Jenze, kdyz potrebuji pretridit data, pak hodnoty beru samozrejme
z radku definovanych v Hlavni, ale tridim jednotlive radky v
Pomocny - to znamena, ze prehazuji pouze ukazatele. Trideni
bych mohl udelat i v Hlavni, ale nemohl bych tak delat vyber radku
podle kriteria. Ten si zajistim tak, ze prochazim Hlavni a kdyz pole
splnuje podminku, priradim ho do Pomocny. Treba takto:
k := 0;
for i := 0 to Pred(LenHlavni) do
if PodminkaOK(...) then
begin
Pomocny[k] := Hlavni[i];
Inc(k);
end;
Pricemz si stale pamatuji puvodni data, treba 100 radku, ale v gridu
jich vidim treba jen vybranych 5, protoze si je prohlizim pres
Pomocny, a ten ma pouze 5 radku.
> A kdyz uz jsme se dostali k ponekud filozofictejsim otazkam. Pro
> aplikaci jsem si tak nejak stanovil asi nasledujici : modularita je
> vyjadrena : Moduly jsou reprezentovany DataModuly, tyto nesou krome
> konektivity a udrzby dat vetsinu ostatnich non-visual prvku
> (ActionListy, Menu, PictureListy, ...). Moduly mohou volat vice
> SubModulu reprezentovanych jiz jednotlivymi Form-ulari vyuzivajicimi
> sluzeb volajiciho Modulu (rozumej DataModulu). Aplikace pak vola
> primarni Modul (DataModul), ten si otevre primarni aplikacni okno, a
> odtud lze volat dalsi Moduly a skrzeva ne Submoduly. Vyssi Moduly
> mohou vyuzivat sluzeb nizsich Modulu resp. jejich SubModulu. A tak
> dale. Toto je moje idea. Snad jsem to popsal trochu srozumitelne. A
> ted otazka : ma to neco do sebe nebo je to ideove chybne? Je to ale uz
> trochu mimo Subj takze pokud budes mit naladu o tom dat rec, tak to
> pro priste prejmenujem.
Tezko rict, zalezi ceho chces docilit. Musis si vsak uvedomit, ze
kazdy otevreny datamodul zabira misto v pameti a prostredky.
Takze cim vic tam nasekas modulu nebo formularu (a samozrejme
komponent z TWinControl), ktere budou soucasne vytvorene, tim
min bude prostredku k dispozici.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56 (72 95 29 56); GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OLE container a excel
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 22.8.2001 13:45:03
Ahoj,
Umim se pripojit na excel soubor, to funguje.
var
OleC: TOleContainer;
begin
OleC.CreateLinkToFile('c:\aa.xls',false);
end;
1 - Jak mu mam rict, ze se chcu pripojit na druhej resp. nejakej dalsi list
(graf)?
2 - Uz nekdo vyresil, jak v OLEContaineru zobrazit tabulku vetsi nez jeden
list?
3 - Lze takhle zobrazit i nahled pred tiskem?
Diky za nakopnuti
Tomas Pocarovsky
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 22.8.2001 14:08:20
Jo, tak to chapu. Principielne je to dobry, ale znamena to, ze i to trideni
si musis napsat sam a hlavne musis predem (v dobe prekladu) znat, jaka data
Ti prijdou z databaze. Nebo se mylim?
Ja se porad snazim najit nejaky obecny princip abych to mohl pokud mozno
univerzalne a s co nejmensi namahou pouzit v cele aplikaci. Je jasne ze na
100% to nikdy nebude, ale alespon vetsinou.
Snazim se k tomu ucelu pouzit existujici komponenty. To co popisujes,
umoznuje kbmMemTable v podstate take, ale musim uznat ze urcite s vetsi
rezii a pravdepodobne mozna i vyssimi casovymi naroky.
Nejak se nemuzu srovnat s efektivitou k�du a eleganci reseni (coz bych
chtel) a na druhe strane s nedostatkem casu (coz je mi znacne protivne).
Taaapu.
kazdopadne diky za podnety
s pozdravem
PavelC
> Mejme pro ilustraci
> var
> Hlavni: array of PChar;
> Pomocny: array of PChar;
> ...
Manual.
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 22.8.2001 14:20:50
> neco pochytim tady v konfere, ale musi bohuzel priznat, ze z 80-90%
> vubec nevim o cem tocite. Ste hold moc dobri.
Zkus hledat informace napr. tady:
http://www.builder(tec)cz/delphi/
http://www.swnet(tec)cz/varime.php
http://zive(tec)cz/h/Developerdaily/default.asp?CAI=2091
http://www.delphi(tec)cz/odkazy.asp?skupina=doc&order=
Informaci je spousta, staci se jen rozhlednout ...
T.LOGOFF a SHUTDOWN z service versus ScreenSaver
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.8.2001 14:23:20
Zdravim.
Potrebuju obecne zajistit vypnuti/odhlaseni na stanicich kvuliva zalohovani
souborove databaze.
Zalohovat se ma dvakrat v prubehu pracovniho dne a take v noci.
Pred zazalohovnim se ma na stanicich rozjet jakesi odpocitavani aby vsichni
stacili pokud mozno ulozit praci a pote se maji useri automaticky odhlasit
(ve dne) pripadne se ma vypnout PC (v noci).
Server je W2000 Server s Active Directory a stanice W2000 Prof.
Napsal jsem si tedy jednoduchy service pro stanice ktery ciha na nejakem
TCP/IP portu kam posilam retezec. Podle obsahu retezce se pak bud zobrazuje
okno s timto textem nebo se ma provest shutdown/logoff.
Na serveru pak spoustim program ktery rozesila nejprve upozorneni
(odpocitava), pak odhlasi/vypne usery/stanice a zazalohuje. Zaroven maji
uzivatele v one ctvrthodince zablokovany ucet, takze se nemohou opetovne
prihlasit dokud neni dozalohovano.
Service na stanicich je spoustena pod uctem LocalSystem a ma umozneno
pouziti plochy.
Narazil jsem na nekolik drobnych problemu :
1) Jak poznam ze je uzivatel odhlasen (v pripade, ze je odhlasen pak totiz
ExitWindowsEx(EWX_LOGOFF + EWX_FORCE, 0) vypne PC)
Obesel jsem to sice takovouhle funkci ale nezda se mi to to prave :
uses JclSysInfo;
function IsLogOn: Boolean;
var
Procesy : TStringList;
begin
Result := True;
Procesy := TStringList.Create;
try
Procesy.Clear;
RunningProcessesList(Procesy, False);
Result := (Pos('EXPLORER.EXE', UpperCase(Procesy.Text)) <> 0);
finally
Procesy.Free;
end;
end;
2) Jak takhle odlogovat uzivatele pokud ma nastaven a prave spusten
screensaver zabezpeceny heslem nebo jak takovyhle screensaver ukoncit.
V pripade zamceneho screensaveru sice dojde k ukonceni vsech programu jak
potrebuji, ale na stanici zustane viset prihlasovaci dialog screensaveru,
ale po prihaseni uzivatel nema nic na plose protoze neni spusten explorer.
Totez plati i v pripade zamcene stanice (ALT+CTRL+DEL --> Uzamknout po��ta�)
3) Nedokazu pomoci ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE, 0) vypnout
system (Zkousel jsem v mistnim nastaveni zabezpeceni dat
pravo vypinat i uctum system a service ale nepomohlo to.)
Nakonec prikladam kod, ktery je spousten pri prijmu povelu :
Cmd := StrPas(Buffer);
// v cmd je prijmuty retezec
if Cmd = 'SHUTDOWN' then
begin
ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE, 0);
Exit;
end;
if not IsLogOn then Exit;
if Cmd = 'LOGOFF' then
begin
ExitWindowsEx(EWX_LOGOFF + EWX_FORCE, 0);
Exit;
end;
with TForm2.Create(application) do
try
Label1.Caption := Cmd;
Label1.Repaint;
Show;
Label1.Refresh;
Sleep(800);
finally
Free;
end;
Diky za jakoukoliv radu k uvedenemu problemu.
Ludek
MSSQL2000 - vytahnuti textu do mema
[*] Erik Salaj <winsoft(zv)stonline.sk> - 22.8.2001 14:23:10
>mam MSSQL2000 se kterym pracuju pres D4 a ADO komponenty.
>V databazi mam v tabulce pole typu TEXT (NE - CHAR).Potrebuju obsah tohoto
pole vytahnout a nacist do MEMA va formu...JAK na to.
Skusal som to teraz s Adonis-om a chodi to bez problemov
tak pomocou DBMemo componentu ako aj citanim
z ADODataSet polozky pomocou: ADODatasetMyField.AsString
Ak pouzivas Adonis, mozem poslat demo priklad.
Erik
Vazba na data v pameti
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 22.8.2001 14:32:30
Hmm, tak to je mi jasne, ze kazdy form ci DM zere pamet a prostredky.
Nicmene tak nejak tise predpokladam, ze bych zaridil v kazdem DM ci formu
pocitadlo pristupu (volajicich modulu ci submodulu) a v pripade ze bude 0
dany modul se uvolni (sebeznici) - nebo snad prilis fantaziruji?
Domnivas se ze by aplikace, ktera uz dnes ma kolem 40-ti tabulek mela mit
pouze jeden datovy modul? Je pravda, ze jsem takovou jednu (kolem 200
tabulek) videl a pohled na jeji datovy modul me ponekud zdesil. Nedovedu si
tak nejak predstavit, jak bych se v tom vyznal. A jak zerou zdroje a pamet
TQuery, TDataSource a podobne komponenty, ktere se do DataModulu umistuji?
Kdybych je vsechny nasypal do jednoho DM byt by byly neaktivni, co by mi to
provedlo s pameti a zdroji?
A co tim sleduji?
Jednak urcite logicke cleneni aplikace a dostupnost a sdileni datovych
zdroju (napr. mejme ciselnik ktery potrebuji zobrazit ve spravnim rezimu
formou nejakeho gridu a prislusne funkcionality ale rovnez tentyz ciselnik
potrebuji v jinem formu zobrazit coby vyberovy seznam v nejakem comboboxu).
A druhak hlavne bych timto zpusobem chtel napomoci reseni systemu
pristupovych prav, kdy kazdy modul je-li volan si sam dle volajiciho overi,
zda volajici ma ci nema a jaka ma opravneni a podle toho se zachova.
> From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> Tezko rict, zalezi ceho chces docilit. Musis si vsak uvedomit, ze
> kazdy otevreny datamodul zabira misto v pameti a prostredky.
> Takze cim vic tam nasekas modulu nebo formularu (a samozrejme
> komponent z TWinControl), ktere budou soucasne vytvorene, tim
> min bude prostredku k dispozici.
>
> > Pro
> > aplikaci jsem si tak nejak stanovil asi nasledujici : modularita je
> > vyjadrena : Moduly jsou reprezentovany DataModuly, tyto nesou krome
> > konektivity a udrzby dat vetsinu ostatnich non-visual prvku
> > (ActionListy, Menu, PictureListy, ...). Moduly mohou volat vice
> > SubModulu reprezentovanych jiz jednotlivymi Form-ulari vyuzivajicimi
> > sluzeb volajiciho Modulu (rozumej DataModulu). Aplikace pak vola
> > primarni Modul (DataModul), ten si otevre primarni aplikacni okno, a
> > odtud lze volat dalsi Moduly a skrzeva ne Submoduly. Vyssi Moduly
> > mohou vyuzivat sluzeb nizsich Modulu resp. jejich SubModulu. A tak
> > dale. Toto je moje idea.
LOGOFF a SHUTDOWN z service versus ScreenSaver
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 22.8.2001 14:32:41
Ahoj,
zrovna dnes o tom vysel na zive clanek. Na NT je to trochu jinak.
http://www.zive(tec)cz/H/Developerdaily/Ar.asp?ARI=101436&CAI=2091
Ales
> -----Original Message-----
> From: Lud�k ZITA [mailto:konference(zv)sales(tec)cz]
> 3) Nedokazu pomoci ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE, 0) vypnout
> system (Zkousel jsem v mistnim nastaveni zabezpeceni dat
> pravo vypinat i uctum system a service ale nepomohlo to.)
>
>
> Nakonec prikladam kod, ktery je spousten pri prijmu povelu :
>
> Cmd := StrPas(Buffer);
> // v cmd je prijmuty retezec
>
> if Cmd = 'SHUTDOWN' then
> begin
> ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE, 0);
> Exit;
> end;
>
> if not IsLogOn then Exit;
>
> if Cmd = 'LOGOFF' then
> begin
> ExitWindowsEx(EWX_LOGOFF + EWX_FORCE, 0);
> Exit;
> end;
>
> with TForm2.Create(application) do
> try
> Label1.Caption := Cmd;
> Label1.Repaint;
> Show;
> Label1.Refresh;
> Sleep(800);
> finally
> Free;
> end;
> Komponenty ADO
[*] Erik Salaj <winsoft(zv)stonline.sk> - 22.8.2001 14:43:31
> existuje nejaka komponenta ADO, nebo nejaky zpusob jak pretransformovat
data
> pomoci ODBC z FoxPro do SQL, jedna se mi o nejakou obdobu komponenty
> BATCHMOVE
MSSQL poskytuje DTS (Data Transformation Services) na taketo ucely.
Erik