Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
databaze pres ADO a vlakna
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 25.7.2002 15:08:39
Pouzivam ADO pro praci s Oraclem a zatim jsem se nesetkal s problemy.
Posilam malou ukazku
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, ADODB, Unit2, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
Memo1: TMemo;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
TestTrd: TTestThrd;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
TestTrd := TTestThrd.Create(ADOConnection1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
TestTrd.Terminate;
FreeAndNil(TestTrd);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TestTrd.Resume;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TestTrd.Resume;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, AdoDb;
type
TTestThrd = class(TThread)
private
FADOConn: TADOConnection;
Qtest: TADOQuery;
vValue: integer;
procedure ShowValue;
protected
procedure Execute; override;
public
constructor Create(ADOConn: TADOConnection);
destructor Destroy; override;
end;
implementation
uses
Unit1;
constructor TTestThrd.Create(ADOConn: TADOConnection);
begin
inherited Create(true);
FreeOnTerminate := true;
vValue := 0;
FADOConn := ADOConn;
QTest := TADOQuery.Create(nil);
QTest.Connection := FADOConn;
QTest.SQL.Text := 'select count(1) from czl_mis_extract_list';
end;
destructor TTestThrd.Destroy;
begin
if QTest.Active then Qtest.Close;
Qtest.Free;
inherited Destroy;
end;
procedure TTestThrd.Execute;
begin
while not Terminated do
begin
try
if not FADOConn.Connected then FADOConn.Open;
QTest.Open;
vValue := QTest.Fields[0].AsInteger;
except
vValue := -1;
end;
if QTest.Active then QTest.Close;
Synchronize(ShowValue);
if not Terminated then Suspend;
end;
end;
procedure TTestThrd.ShowValue;
begin
Form1.Memo1.Lines.Add(FormatDateTime('dd.mm.yyyy hh:nn:ss',Now) + #9 +
IntToStr(vValue));
end;
end.
Martin Ben
> -----Original Message-----
> From: Frantisek Mlcoch [mailto:frantisek.mlcoch(zv)vsb(tec)cz]
>
> Ma nekdo z vas zkusenosti s pouzitim ADO pro pristup k SQL DB
> pri pouzivani
> vicevlaknoveho zpracovani. Podelte se one.
>
> Je nutne stejne jak pri BDE pouzivat objekt TSession?
> Jak si jednotliva vlakna zajistuji pristup do DB (je nutne pro kazde
> vytvorit novy objekt ADOconnection)?
> A jake je spolehlivost ADO?
> Existuje priklad pouziti ADO s vlakny?
Ako kompilovat comctrls.pas po zmene ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.7.2002 15:09:25
From: "Martin Valach" <vachix(zv)centrum.sk>
> neviete mi niekto poradit, ako donutit
> kompiler, aby znovu prekompiloval comctrls.pas a
> pouzil nove zdrojaky ? Zafixoval som si TListView pre XP a
1. Zkopirovat dany unit to adresare projeku (nemenit nic v Source\VCL apod.)
2. Zavrit a otevrit projekt
3. Zvolit Build
Petr Vones
Ako kompilovat comctrls.pas po zmene ?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 25.7.2002 15:10:47
> neviete mi niekto poradit, ako donutit
> kompiler, aby znovu prekompiloval comctrls.pas a
> pouzil nove zdrojaky ? Zafixoval som si TListView pre XP a
> nemozem to dostat do exe.
Ahoj,
mozes skusit vymazat prislusny DCU subor.
Ale aj tak by som ti modifikaciu zdrojakov Delphi
radsej neodporucal. Komplikuje to situaciu v pripade
upgradu Delphi. A to nehovorim o prenositelnosti
programu vyvijaneho v takomto modifikovanom
prostredi Delphi.
Vlkovic
socket info
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 25.7.2002 15:15:18
> From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
> > Lze nejak zjistit, ktery process(prip. modul) ma v systemu otevreny
zadany
> > TCP port?
>
> Tohle umi napriklad Tiny (nyni Kerio) Personal Firewall. Pochybuju ale ze
je
> mozne neco takoveho udelat v aplikaci na urovni API bez pouziti
specialniho
> driveru.
>
> Petr Vones
>
>
Dival jsem se na program Active Ports a podle vseho zadny spec. driver
nepouziva. Pouziva nejake SNMP Extension a iphlpapi.dll.
Tom
Re[2]: socket info
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 25.7.2002 15:16:06
Hello Tomas,
Thursday, July 25, 2002, 3:15:18 PM, you wrote:
>> From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
>> > Lze nejak zjistit, ktery process(prip. modul) ma v systemu otevreny
TK> zadany
>> > TCP port?
>>
>> Tohle umi napriklad Tiny (nyni Kerio) Personal Firewall. Pochybuju ale ze
TK> je
>> mozne neco takoveho udelat v aplikaci na urovni API bez pouziti
TK> specialniho
>> driveru.
>>
>> Petr Vones
>>
>>
TK> Dival jsem se na program Active Ports a podle vseho zadny spec. driver
TK> nepouziva. Pouziva nejake SNMP Extension a iphlpapi.dll.
TK> Tom
Co je to zac ten program active port? POsli mi ho na muj mail ja se
kouknu co pouziva za knihovny a drivery
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
socket info
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.7.2002 15:38:29
From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
> Dival jsem se na program Active Ports a podle vseho zadny spec. driver
> nepouziva. Pouziva nejake SNMP Extension a iphlpapi.dll.
A je schopen takto ziskat i jmena procesu nebo dela jen totez co NETSTAT ?
Petr Vones
Prihlaseni do databaze na splash screen.
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 25.7.2002 15:40:27
> %Subj. mi sice funguje, ale myslim ze to mam udelane dost osklive
> (slusne receno). Nejdrive si otevru splash screen modalne. Prectu si
> user name a password. Prihlasim se do databaze. A pak oteviram splash
> screen znovu, a zaviram ho tesne pred Application.Run. Toto reseni je
> sice funkcni, ale zda se mi dost nestastne. Nemate nekdo nejake lepsi,
> ktere by mne nenutilo dvakrat otevirat splash screen?
Ahoj,
moc nerozumim. Proc otviras splash modalne? Melo by to stacit obycejne, mozna
mu dat FormStyle na StayOnTop. Otvirat to dvakrat je nesmysl.
David Lebeda
FB - pocet pripojeni k databazi
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 25.7.2002 15:43:08
> JU> Pokud je ovsem otevreno vice databazi (NoOfDatabases > 1) nemohu
> JU> odlisit kolik pripojeni je k te ktere databazi.
> JU> V unite IBServices jsem to nenasel.
> JU> Muzete mi, prosim, poradit zda to lze nejakym zpusobem resit.
To se pravdepodobne resit neda, protoze se neprihlasujes k databazi, ale k
serveru.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
socket info
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 25.7.2002 15:57:24
>
> A je schopen takto ziskat i jmena procesu nebo dela jen totez co NETSTAT ?
>
> Petr Vones
>
Zobrazuje i nazvy procesu vc. cesty.
Prihlaseni do databaze na splash screen.
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 25.7.2002 16:30:42
Ahoj,
Protoze pokud to otevru klasicky, pak mi bezi dal inicializace aplikace a ja nemam moznost odchytit si tlacitka login a cancel.
Mam to nejak takto:
begin
Application.Initialize;
With TFrm_Startup.Create(nil) do
try
Application.CreateForm(TDM, DM);
ok := False;
repeat
If ShowModal = mrCancel Then Exit;
User := E_User.Text;
Pass := E_Pass.Text;
try
DM.Database1.Connected := False;
DM.Database1.Params.Clear;
DM.Database1.Params.Add('USER NAME=' + User);
DM.Database1.Params.Add('PASSWORD=' + Pass);
DM.Database1.Connected := True;
ok := True;
except
on E: Exception do
begin
ShowMessage(E.Message + ' ' + IntToStr(E.HelpContext));
ok := False;
end;
end;
Until ok;
Show;
Update;
Application.CreateForm(TFrm_Main, Frm_Main);
..........tady vytvarim nejake dalsi formy.............
finally
Free;
end;
Application.Run;
end.
Ahoj,
moc nerozumim. Proc otviras splash modalne? Melo by to stacit obycejne, mozna
mu dat FormStyle na StayOnTop. Otvirat to dvakrat je nesmysl.
David Lebeda
Re[2]: socket info
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 25.7.2002 16:32:33
>
> Co je to zac ten program active port? POsli mi ho na muj mail ja se
> kouknu co pouziva za knihovny a drivery
>
Je to na www.ntutility.com
vyjimka pri UDP vysilani do vypnute site - rekapit
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.7.2002 16:46:44
Zdravim
> From: "Zdenek Stepanek" <zstepanek(zv)atlas(tec)cz>
> > try
> > UDPSocket1.BroadcastData('reload_ip');
> > except
> > end;
> Bohuzel, porad nevime co je to *presne* za komponentu ? Podle nazvu to
> sice vypadalo na TUDPSocket v Delphi, ale tam neni metoda BroadcastData.
Napsal jsem, ze pred nedavnem nekolikrat probehla konferenci. Tak jsem asi
naivne predpokaldal, ze by byl link nekde v archivu. Dal jsem ji na svuj
web: http://lunasoft.hyperlink(tec)cz/udpsocket.rar.
------------------
Vsechno je (opet) jinak. Dal jsem si na chvili pauzu a zkusil jsme problem
hledat z druheho konce. Samozrejme jsem ho nasel. Muj program bezi na siti
jako peer-to-peer program. Vsichni se konfiguruji z jednoho pocitace, kde je
ulozeny INI soubor. Na zacatku vseho je FileExists('\\zdenek\soubor.ini').
Pokud je sit vypnuta, tak na WinXP to dle ocekavani vrati false, ale na
Win95 se to zasekne. Napsal jsme si maly programek, kde je pouze tento test
a i ten se zasekne. Broadcast do vypnuty site na Win95 vyjimku nevytvari. A
to proto, ze sitove rozhrani se vypina az od WinME a vyse. I kdyz je sit
vypojena, na Win95 stale funguje ping na vlastni sitovou adresu. To na WinME
a vyse nejde, pise, ze cilovy hostitel je nedostupny. Uvedomil jsem si to
pred hodinou, kdyz jsem rozchazel routovani TP site a primeho propojeni
kabelem - nepovedlo se.
Poradi mi s timhle nekdo? Uz mi z toho pomalu hrabe.
Zdenek
socket info
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.7.2002 16:50:28
From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
> Zobrazuje i nazvy procesu vc. cesty.
Mas pravdu, pomoci nedokumentovane funkce AllocateAndGetTcpExTableFromStack v
IP Helper API. Priklad je k dispozici tady:
http://www.sysinternals.com/ntw2k/source/tcpview.shtml
Petr Vones
OT: 64MB RAM misto 256MB
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 25.7.2002 16:58:12
Zdravim
To je o necem jinem. Nastaveni "sitovy server" ma vliv na diskovou cache. Ja
mel v pohode asi 140MB nebo kolik jsem to tehdy mel.
Zdenek
----- Original Message -----
> Postavil jsem si novy stroj, Athlon XP 1800+ deska MSI K7T turbo.
> Mam tam DIMM 256MB a windows 98SE mi hlasi pouze 64MB RAM.
> Nesetkal jste se s tim nekdo nekdy?
pokud si dobre pamatuji, tak Win98 vyuzival skutecne max.64MB. Dalo
se tomu pomoci pres nastaveni "Sitovi server" ve vlastnostech
pocitace.
Nacteni dat z MS Outlooku
[*] Mazi <mazi07(zv)seznam(tec)cz> - 25.7.2002 19:43:51
Chtel bych nacist data ulozena v MS Outloouku (hlavne kontakty na osoby -
jmeno, prijimeni, e-mail...), ale nevim, jak na to. Zkousel jsem neco najit
i v JVCL komponentech, ale take jsem neuspel.
Nevite prosim nekdo, jak by se to dalo provest?
Predem dekuji za pomoc.
Petr Mazanek (mazi07(zv)seznam(tec)cz)Ako kompilovat comctrls.pas po zmene ?
[*] Robert Suska <delphi(zv)korak.sk> - 25.7.2002 20:47:38
Ahoj!
Uplne sa zhodujem z p. Vlkovicom. Konkretne ja som sa popalil s tym ze
modifikoval kniznicu stdctrls.pas konkretne objekt TCustomComboBox a potom
ked som chcel pouzit nejaku inu unitu to je jedno kotoru tak to na mna
trubilo ze ma inu vezriu ako ocakava a proste bol v tom strasne velky zmatok
az som preinstaloval Delphi lebo som nemal zalohu :(( stdctrls.pas a
vytvoril som si vlastnu komponentu pridal som ju do palety komponent
prepisal som cely zdrojak lebo vsade pracujem s dynamicky vytvaranymi
komponentami proste je t potrebne takze ma to stalo nemalo namahy. Takze rob
ako vravi Peter.
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> > neviete mi niekto poradit, ako donutit
> > kompiler, aby znovu prekompiloval comctrls.pas a
> > pouzil nove zdrojaky ? Zafixoval som si TListView pre XP a
> > nemozem to dostat do exe.
>
> Ahoj,
>
> mozes skusit vymazat prislusny DCU subor.
> Ale aj tak by som ti modifikaciu zdrojakov Delphi
> radsej neodporucal. Komplikuje to situaciu v pripade
> upgradu Delphi. A to nehovorim o prenositelnosti
> programu vyvijaneho v takomto modifikovanom
> prostredi Delphi.
>
> Vlkovic
OT: Funkce Imap_Mail_Compose v PHP
[*] Josef <sip(zv)atlas(tec)cz> - 25.7.2002 21:33:58
Omlouvam se za OT ale nemate nekdo funkcni skript s
touto funkci.
Nejak se mi to nedari rozchodit, potrebuji vygenerovat a poslat
mail s prilohou.. (nekolik souboru *.zip)
Dekuju
Chyba v indexech dbf
[*] Kenny <kenny(zv)razdva(tec)cz> - 26.7.2002 00:04:58
Mel jsem uplne ten stejny problem pred tydnem, ale kopiroval jsem cely
zaznamy jako vetu pres dbiAppendRecord a stejne mi to neslo. Nakonec jsem
musel pred kopirovanim indexy smazat a po nakopirovani je opet vytvorit.
Z nejakeho duvodu je BDE schopno vkladat vetsi mnozstvi vet pouze s mensim
poctem indexu. A mam BDE 5.01.
A pri tomto testovani jsem taky zjistil, ze pokud vytvorite unikatni index z
Delph za behu pres AddIndex(jmeno, pole, [ixUnique]) a pak vytvorite novy
zaznam ozve se vam chyba Key violation... a
nepodarilo se mi ten unikatni index pridat ani pres fce BDE tusim, ze
dbiAddIndex.
Takze mam tabulku, ktera ma indexy, ty pred kopirovanim smazu a necham jen
ten unikatni, data tam nakopiruju cca 30 000 vet 46 slov/vetu. A pak indexy
opet vytvorim a to vytvareni je vzhledem k kopirovani jen mala ztrata casu.
Jestli na neco prijde dejte mi prosim vedet.
Filip Rozsival
----- Original Message -----
From: "Ji�� Semler" <jsemler(zv)stbk.mcs(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 25, 2002 12:17 PM
Subject: Chyba v indexech dbf
> Ahoj,
>
> potrebuji v D5 sehr�t zaznamy ze dvou souboru dbf. Oba jsou indexovany a
> tyto indexy musi zustat zachovany. Stvoril jsem nasledujici proceduru,
> ktera funguje bez problemu pokud indexy smazu, jakmile je tam necham po
> zkopirovani nekolika az nekolika tisic zaznamu se mi zastavi na prikazu
> "Table2.Post;" a nahlasi chybu "Read failure. File: C:\Tab2.dbf" - jedna
> se o chybu ve vystupnim souboru. Pokud spustim program dal hlasi
> opakovane "Data structure corruption". Zkousel jsem uz i preinstalovat
> BDE, ale ani to nepomohlo. Laboruji s tim uz 3 dny a uz nevim jak dal.
>
> Prosim o pomoc a dekuji.
>
> Tady je ta procedura:
>
> procedure TSpojDBFForm.SpojSoubory;
> var i:integer;
> Chyba:Boolean;
> begin
> if StrukturaSouhlasi then
> begin
> Table1.First;
> Gauge1.MaxValue:=Table1.RecordCount;
> while not Table1.Eof do
> begin
> Chyba:=False;
> Gauge1.Progress:=Gauge1.Progress+1;
> try
> Table2.Append;
> except
> on E: Exception do
> Chyba:=True;
> end;
> if not Chyba then
> for i:=0 to Table1.FieldCount-1 do
> begin
> try
>
>
Table2.FieldByName(Table1.Fields[i].FieldName).AsString:=Table1.Fields[i].As
String;
>
> except
> on E: Exception do
> begin
> Table2.Cancel;
> break;
> end;
> end;
> end;
> Chyba:=False;
> try
> Table2.post;
> except
> on E: Exception do
> Chyba:=True;
> end;
> Table1.Next;
> Application.ProcessMessages;
> end;
> Gauge1.Progress:=0;
> end
> else
> Application.MessageBox('Soubory maji odlisnou strukturu. Nelze je
> sehrat.',
> 'Chyba',MB_OK+MB_IconExclamation);
> end;
>
Cestina v databazi DBF
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 26.7.2002 00:04:10
Prijemny den,
D5ProfSP1 Win95OSR2
Zkousem jsem jeden ze svych programku na WindowsXP Home. Je to setric.
Normalne jsem ho nakopiroval do adresare WinNT/System32 kde jsou i ostatni
soubory *.scr, ale on se mi ten programek neobjevil v nabidce setricu v
nastaveni obrazovky. Delam neco spatne ja, nebo WindowsXP jsou
konzervativni, co se tyce pridavani novych setricu? Pokud ten soubor spustim
rucne, tak ten setric funguje normalne.
Diky za radu
Straka Josef, ktery uz 29x slysel z jara zpivat kosa.
mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
mobil: 0608/834198
Ulozeni a zobrazeni zaporne hodnoty v gridu
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 26.7.2002 00:05:32
Potreboval bych zobrazovat a ukladat hodnoty v dbgridu zaporne hodnoty a to
nasledujicim zpusobem, pokud je hodnota zaporna zobrazi se jako kladna a pri
ukladani se kladna hodnota ulozi jako zaporna..jak to v db gridu udelam?
Muzete mi poradit?
Dekuji moc
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Novy setric ve Windows XP
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 26.7.2002 00:32:12
Prijemny den,
D5ProfSP1 Win95OSR2
Zkousem jsem jeden ze svych programku na WindowsXP Home. Je to setric.
Normalne jsem ho nakopiroval do adresare WinNT/System32 kde jsou i ostatni
soubory *.scr, ale on se mi ten programek neobjevil v nabidce setricu v
nastaveni obrazovky. Delam neco spatne ja, nebo WindowsXP jsou
konzervativni, co se tyce pridavani novych setricu? Pokud ten soubor spustim
rucne, tak ten setric funguje normalne.
Diky za radu
Straka Josef, ktery uz 29x slysel z jara zpivat kosa.
mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
mobil: 0608/834198
Novy setric ve Windows XP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.7.2002 00:39:01
From: "Josef Straka" <strakajosef(zv)seznam(tec)cz>
> Zkousem jsem jeden ze svych programku na WindowsXP Home. Je to setric.
> Normalne jsem ho nakopiroval do adresare WinNT/System32 kde jsou i ostatni
> soubory *.scr, ale on se mi ten programek neobjevil v nabidce setricu v
> nastaveni obrazovky. Delam neco spatne ja, nebo WindowsXP jsou
Screensaver by mel mit vyplnene PE Description v Project Options -> Linker ->
EXE Desctiption.
Petr Vones
UNC a TIBdatabase.DatabaseName pri uziti TCP/IP (W
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 26.7.2002 07:16:52
Hi all,
nevi nekdo, jak prevest jmeno databaze v UNC, ktere ziskam napr. z Open
dialogu, do "divneho" formatu
IB ve tvaru <server> : <path>?
Thx, pf
Prihlaseni do databaze na splash screen.
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.7.2002 07:21:32
> Application.Initialize;
> With TFrm_Startup.Create(nil) do
> try
> Application.CreateForm(TDM, DM);
> ok := False;
> repeat
> If ShowModal = mrCancel Then Exit;
> User := E_User.Text;
> Pass := E_Pass.Text;
> try
> DM.Database1.Connected := False;
> DM.Database1.Params.Clear;
> DM.Database1.Params.Add('USER NAME=' + User);
> DM.Database1.Params.Add('PASSWORD=' + Pass);
> DM.Database1.Connected := True;
> ok := True;
> except
> on E: Exception do
> begin
> ShowMessage(E.Message + ' ' + IntToStr(E.HelpContext));
> ok := False;
> end;
> end;
> Until ok;
>
> Show;
> Update;
>
> Application.CreateForm(TFrm_Main, Frm_Main);
> ..........tady vytvarim nejake dalsi formy.............
> finally
> Free;
> end;
> Application.Run;
> end.
>
Ahoj,
a kde neco otviras podruhe, jak jsi puvodne psal? Ten princip, tak jsi ho napsal, je v
poradku, jen bych asi doporucoval nedelat to prihlasovani v dpr souboru, ale v public
procedure Login hlavniho formu treba nejak takto:
begin
UvitForm := TVitejte.Create(Application);
UvitForm.Show;
UvitForm.Update;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TDM, DM);
Application.ShowMainForm := False;
MainForm.Login(True);
Application.Run;
end;
Formular UvitForm uvolnuji az v OnActivate hlavniho formu, aby mezi jeho
zhasnutim a objevenim hlavniho formu neuplynula dlouha doba (to v pripade, ze
vykonani OnShow nebo OnActivate trva delsi dobu). Pokud by na zobrazeni hlavniho
formu nedoslo, postara se o uvolneni objekt TApplication jako owner.
Pro Login neco takoveho:
procedure TMainForm.Login(bPoprve: Boolean);
Coz umozni snadno nekam do menu dat volbu Nove prihlaseni do databaze.
Parametr bPoprve pak rika, co se stane, klikne-li uzivatel v prihlasovacim dialogu na
Storno. Je-li bPoprve = True, tj. aplikace dosud nebyla spustena, znamena to
ukonceni aplikace. Je-li bPoprve = False, tj. jde o prehlaseni, znamena to, ze
zustane aktivni predchozi prihlaseni.
David Lebeda
Dlouhe nazvy adresare - Temp od Windows
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 26.7.2002 07:29:22
Zdravim,
pouzil jsem tip 715 z 1001T&T a mam jeden problem:
- ve Win2000 Temp je umisten v dlouhem nazvu adresare a funkce mi vraci tuto
cestu v orezave DOS verzi, takze cesta je totalne necitelna. Co se s tim da
delat
P.S. pro tento tip jsem musel prejmenovat nazev funkce, protoze GetTempPath
se hadal s nazvem unvitr funkce.
Diky za schovivavost jestli to uz nekdo resil, ale ja opsal pouze text z
knizky.
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Balicky a unity v nich
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.7.2002 07:42:37
Ahoj,
nejak jsem ztratil orientaci v baliccich. Jde o tohle. Napsal jsem si komponentu -
vlastni dataset, rikejme mu TMyDataset a dal ho do balicku MyComponents.
Z RxLib jsem vzal unitu RxLookup (jmeno unity samo o sobe zrejme neni dulezite) a
upravil RxDBLookupCombo tak, aby pouzivalo i specialni metody z TMyDataset.
Znamena to, ze unita MyDataset se objevila v uses unity RxLookup.
Po teto uprave se Rx knihovna radne nainstaluje, ale pri naslednem pokusu o instlaci
balicku MyComponents Delphi nadava, ze unitu MyDataset jiz obsahuje balicek
RxDB5 z RxLib, ackoli ji ma jen v uses.
Jak to mam tedy vyresit? Potrebuji, aby moji komponentu dokazala pouzivat i jina
komponenta v jinem balicku. Je to otazka nejakeho nastaveni balicku nebo jak na
to?
Dik
David Lebeda
Balicky a unity v nich
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.7.2002 07:47:58
Pridej si do balicku s RX komponentami do sekce Required balicek
MyComponents a z RX balicku komponentu MyDataset odeber
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.7.2002 Lebeda David:
> Ahoj,
> nejak jsem ztratil orientaci v baliccich. Jde o tohle. Napsal jsem si komponentu -
> vlastni dataset, rikejme mu TMyDataset a dal ho do balicku MyComponents.
> Z RxLib jsem vzal unitu RxLookup (jmeno unity samo o sobe zrejme neni dulezite) a
> upravil RxDBLookupCombo tak, aby pouzivalo i specialni metody z TMyDataset.
> Znamena to, ze unita MyDataset se objevila v uses unity RxLookup.
> Po teto uprave se Rx knihovna radne nainstaluje, ale pri naslednem pokusu o instlaci
> balicku MyComponents Delphi nadava, ze unitu MyDataset jiz obsahuje balicek
> RxDB5 z RxLib, ackoli ji ma jen v uses.
> Jak to mam tedy vyresit? Potrebuji, aby moji komponentu dokazala pouzivat i jina
> komponenta v jinem balicku. Je to otazka nejakeho nastaveni balicku nebo jak na
> to?
UNC a TIBdatabase.DatabaseName pri uziti TCP/IP (W
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 07:49:11
Napr takto:
function calcDBName: string;
begin
case FIBProtocol of
cpLocal: Result := FDatabase;
cpNetBEUI: Result := '\\' + FServer + '\' + FDatabase;
cpTCP_IP: Result := FServer + ':' + FDatabase;
cpSPX: Result := FServer + '(zv)' + FDatabase;
else
Result := '';
end;
end;
Jinak je to v helpu pod TIBDatabase.DatabaseName ;)
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Behalf Of Petr Fejfar
> nevi nekdo, jak prevest jmeno databaze v UNC, ktere ziskam napr. z Open
> dialogu, do "divneho" formatu
> IB ve tvaru <server> : <path>?
UNC a TIBdatabase.DatabaseName pri uziti TCP/IP (W
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 26.7.2002 08:02:56
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> Jinak je to v helpu pod TIBDatabase.DatabaseName ;)
To jsem si samozrejme precetl,
ale IMHO je mi to na dve veci ;-)
Mozna jsem neco prehledl a delam neco spatne,
ale muj problem spociva v necem jinem:
1. rekneme, ze pomoci TOpenDialogu ziskam UNC
\\PF\DISK_D\DAT\xxx.gdb
2. a nyni ho potrebuju prevest do formy pro TCP/IP.
Kdyz udelam kteroukoli nize uvedenou variantu,
tak to nepracuje
PF:DISK_D\DAT\xxx.gdb
PF:DISK_D:\DAT\xxx.gdb
PF:DISK_D:DAT\xxx.gdb
3. Pracuje jedine verze
PF:D:\DAT\xxx.gdb
ale jak mam prevest shared jmeno DISK_D (teoreticky
to muze cokoli jineho) na absolutni cestu
na cizim pocitaci?
Bye, pf
Nacteni dat z MS Outlooku
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 26.7.2002 08:16:41
From: "Mazi" <mazi07(zv)seznam(tec)cz>
> Chtel bych nacist data ulozena v MS Outloouku (hlavne kontakty na osoby -
> jmeno, prijimeni, e-mail...), ale nevim, jak na to. Zkousel jsem neco
najit
> i v JVCL komponentech, ale take jsem neuspel.
> Nevite prosim nekdo, jak by se to dalo provest?
>
> Predem dekuji za pomoc.
Mrkni treba sem
http://www.djpate.freeserve.co.uk/AutoOutl.htm
Da se z toho pochopit, jak pristupovat k Outlooku. Jinak prustuduj MSDN, tam
je komplet popis.
S pozdravem
Petr Jarkovsky
pjarkovsky(zv)databox(tec)cz
Ulozeni a zobrazeni zaporne hodnoty v gridu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 26.7.2002 08:32:23
> Potreboval bych zobrazovat a ukladat hodnoty v dbgridu zaporne hodnoty a
to
> nasledujicim zpusobem, pokud je hodnota zaporna zobrazi se jako kladna a
pri
> ukladani se kladna hodnota ulozi jako zaporna..jak to v db gridu udelam?
> Muzete mi poradit?
A zadavat se ma ta zaporna hodnota taky jako kladna ;-)
Bych v OnDrawColumnCell vykreslil ten sloupecek podle sveho nejak takto:
if Column.FieldName='ZAPORNE' then
begin
DBGrid.Canvas.FillRect(Rect);
DBGrid.Canvas.TextOut(....,Abs(Column.Field.asInteger));
end;
...
Roman
==============================
http://kouzelne.misto(tec)cz
konverzia string-u na datum
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.7.2002 09:04:27
zdravim vospolok.
nedavno tu prebehla diskusia ohladom zapisu datumu do SQLky. ja mam
podobny a predsa iny problem ;o). importujem logy do MSSQL. v logu
vzniknutom na serveri je zapisany datum vo formate DMY napr: 17.6.2002.
tento datum konvertujem funkciou strtodate do premennej TDateTime. toto
funguje samozrejme na serveri s rovnakym miestnym nastavenim formatu
datumu ako je na serveri kde logy vznikaju. po presunuti na iny server
kde je nastaveny iny format datumu ( YYYY/MM/DD) som s hrozou zistil, ze
tudy cesta nevede ;). samozrejme to pada na konverzii retazca na datum.
a to je ten problem, kedze logy su obycajny textovy subor, musim aj
datum v logu citat ako string a konvertovat na datum. absolutne mi
nenapada riesenie ako ten nestastny datum naplneny v retazcovej
premennej prekonvertujem na typ tdatetime v zavislosti od regionalneho
nastavenia.
vie ma niekto osvietit? radioaktivne osvietenie ale radsej nemusim ;o).
dik vopred aj potom ;) ...
M.
DelhiX
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 26.7.2002 09:13:50
Na
www.builder(tec)cz probiha docela dobry serial od DelphiX
Nevite nahodou nekdo o nejake knize k tomu. A kde by se dalo stahnout
vse potrebne pro delphix ?
Milan
konverzia string-u na datum
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 26.7.2002 09:20:24
Pokud format datumu je v logu stale stejny, je nejjednodusi zmenit obsah
globalni promenych
var DateSeparator: Char; var ShortDateFormat: string; var LongDateFormat:
string; (definovane v jednotce sysutils) pri startu programu na format
pouzivany pri zapisu logu. Funkce StrToDate (obecne vsehny StrToX) pouziva
tyto retezece pri konverzi.
Pavel
()
> -----Original Message-----
> From: Barica Miroslav [mailto:miroslav.barica(zv)matador.sk]
> Sent: Friday, July 26, 2002 9:04 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: konverzia string-u na datum
>
>
> zdravim vospolok.
> nedavno tu prebehla diskusia ohladom zapisu datumu do SQLky. ja mam
> podobny a predsa iny problem ;o). importujem logy do MSSQL. v logu
> vzniknutom na serveri je zapisany datum vo formate DMY napr:
> 17.6.2002.
> tento datum konvertujem funkciou strtodate do premennej
> TDateTime. toto
> funguje samozrejme na serveri s rovnakym miestnym nastavenim formatu
> datumu ako je na serveri kde logy vznikaju. po presunuti na iny server
> kde je nastaveny iny format datumu ( YYYY/MM/DD) som s hrozou
> zistil, ze
> tudy cesta nevede ;). samozrejme to pada na konverzii retazca
> na datum.
> a to je ten problem, kedze logy su obycajny textovy subor, musim aj
> datum v logu citat ako string a konvertovat na datum. absolutne mi
> nenapada riesenie ako ten nestastny datum naplneny v retazcovej
> premennej prekonvertujem na typ tdatetime v zavislosti od regionalneho
> nastavenia.
> vie ma niekto osvietit? radioaktivne osvietenie ale radsej
> nemusim ;o).
> dik vopred aj potom ;) ...
>
> M.
>
MessageDlg s podporou narodneho prostredia
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 26.7.2002 09:41:25
Hi all,
Chcem sa vas opytat, nemate niekto urobenu vlastnu funkciu nahradzujucu
MessageDlg, kt. by sa spravala presne tak isto (ikonky, button help ...) ale
podporovala by narodne prostredie?
Viem ze existuje Application.MessageBox, ale ten nepodporuje ikonky a button
help
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
Prihlaseni do databaze na splash screen.
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 26.7.2002 09:44:33
----- Original Message -----
From: "David Michal" <david.michal(zv)czechwireless(tec)cz>
> Nejdrive si otevru splash screen modalne. Prectu si user name a password.
> Prihlasim se do databaze. A pak oteviram splash screen znovu, a zaviram
> ho tesne pred Application.Run. Toto reseni je sice funkcni, ale zda se mi
> dost nestastne.
> Nemate nekdo nejake lepsi, ktere by mne nenutilo dvakrat otevirat splash
> screen?
IMHO je naprosto koser otvirat splash podruhe, mohl bys ho treba zmensit
o plochu s prihlasovacimi editboxy. Podivej se treba na startovani Windows
2000 nebo XP -- nejprve se prihlasis a pak vybehne splash ktery trochu
pripomina to prihlasovaci okno, pouze je na vysku mensi.
MessageDlg s podporou narodneho prostredia
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.7.2002 09:58:55
Zavolej Windows.MessageBox. Z helpu:
MB_HELP
Adds a Help button to the message box. Choosing the Help button or pressing
F1 generates a Help event.
MB_ICONEXCLAMATION,
MB_ICONWARNING
An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
An icon consisting of a lowercase letter i in a circle appears in the
message box.
MB_ICONQUESTION A question-mark icon appears in the message box.
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
A stop-sign icon appears in the message box.
Sroub
> Hi all,
> Chcem sa vas opytat, nemate niekto urobenu vlastnu funkciu nahradzujucu
> MessageDlg, kt. by sa spravala presne tak isto (ikonky, button help ...)
ale
> podporovala by narodne prostredie?
> Viem ze existuje Application.MessageBox, ale ten nepodporuje ikonky a
button
> help
>
> Stevlik Marian
> Software Development Specialist
> MERLIN
> Stefanikova 32
> 150 00 Prague 5
> Czech Republic
> e-mail: marian.stevlik(zv)merlin(tec)cz
> tel: +420 2 41010111 (181)
doba behu aplikace
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 26.7.2002 09:59:44
ahoj,
da se nejak zjistit doba behu me aplikace tak, jak to ukazuje
napr.task manager? Diky
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz,
ICQ:59826637
______________________________________________________________________
Reklama:
Nevite, jak "sbalit" svuj idol? Zkuste to s Oskarovou SMS Laskou! http://ad2.seznam(tec)cz/redir.cgi?instance=30511%26url=http://www.oskarmobil(tec)cz/links/news.php?param=bavte
MessageDlg s podporou narodneho prostredia
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 26.7.2002 10:10:04
A precetl sis poradne napovedu k MessageBox?
Martin Ben
> -----Original Message-----
> From: �tevl�k Mari�n [mailto:Marian.Stevlik(zv)merlin(tec)cz]
> Sent: Friday, July 26, 2002 9:41 AM
> To: Delphi konferencia (el. adresa)
> Subject: MessageDlg s podporou narodneho prostredia
>
>
> Hi all,
> Chcem sa vas opytat, nemate niekto urobenu vlastnu funkciu
> nahradzujucu
> MessageDlg, kt. by sa spravala presne tak isto (ikonky,
> button help ...) ale
> podporovala by narodne prostredie?
> Viem ze existuje Application.MessageBox, ale ten nepodporuje
> ikonky a button
> help
>
> Stevlik Marian
> Software Development Specialist
> MERLIN
> Stefanikova 32
> 150 00 Prague 5
> Czech Republic
> e-mail: marian.stevlik(zv)merlin(tec)cz
> tel: +420 2 41010111 (181)
>
MessageDlg s podporou narodneho prostredia
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.7.2002 10:11:43
> Chcem sa vas opytat, nemate niekto urobenu vlastnu funkciu
> nahradzujucu MessageDlg, kt. by sa spravala presne tak isto
> (ikonky, button help ...) ale podporovala by narodne prostredie?
V com standardna funkcia MessageDlg nepodporuje narodne prostredie?
Ak mas na mysli captiony buttonov, tak tie su natahovane z resourcestringov,
takze to mozes lokalizovat standardnym sposobom, ktory je popisany v helpe.
TOndrej
Skryti constructoru
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 10:16:15
Zdravim vsechny,
mam nekolik trid, ktere jsou odvozeny od TPersistent popr. od TObject, ale
jejich constructor je definovan s nekolika parametry (ktere jsou povinne) a
ja bych velice rad nejakym zpusobem zrusil moznost zavolat constructor
zdedeny od TObject, protoze ten nezajisti nastaveni prislusnych
vlastnosti... Vim, ze se to da udelat s volanim Create a pote nastavenim
jednotlivych vlastnosti, ale v constructoru se deje spousta veci, ktere chci
aby byly prave tam a nikde jinde. Jak to dela napr. TComponent, TControl
atp. ??? Vzdyt ty jsou take zdedeny od TObject, ale Create bez parametru u
nich pouzit nelze...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
konverzia string-u na datum
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.7.2002 10:19:22
fajn, dik, vyskusam. ten datum v logu je rovnaky. este jeden dotaz,
uprava dateseparator-u a formatu datumu dufam nebude mat vplyv na
globalne nastavenie? ide o to aby som nenarusil beh ostatnych aplikacii
;)
>
> Pokud format datumu je v logu stale stejny, je nejjednodusi
> zmenit obsah
> globalni promenych
> var DateSeparator: Char; var ShortDateFormat: string; var
> LongDateFormat:
> string; (definovane v jednotce sysutils) pri startu programu na format
> pouzivany pri zapisu logu. Funkce StrToDate (obecne vsehny
> StrToX) pouziva
> tyto retezece pri konverzi.
>
Auto lock W2k
[*] Robert Suska <delphi(zv)korak.sk> - 26.7.2002 10:27:52
Ahojte!
Mam question, ako sa da urobit to ze ked mi Windows 2000 nabehnu a chcem ist
prec a nechcem aby mi niekto robil za masinou tak macknem CTRL + ALT + DEL a
dam Lock Computer a toto chcem urobit automaticky po nabehu Windows. Ze sa
mi spusti nejaky exe a on mi lockne masinu ?
Dakujem
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
FB: Zaloha a obnova dat
[*] Marek Eichler <marek.eichler(zv)seznam(tec)cz> - 26.7.2002 10:27:19
Zdravim,
najde se nejaka dobra duse, ktera me postrci s nasledujicim problemem?
Na FB 1.0 potrebuju zalohovat DB a obnovit to na jinem PC. Ve strukture DB
jsou nejake zmeny a hlavne se zmenila data.
Vim, ze existuje utilita gbak, ktera by to mela zvladnout, ale nevim jak ji
pouzit. Zkousel jsem to pres IBExpert Personal Edition, ale nejak se mi to
nepodarilo.
Dik za kazde nakopnuti
S pozdravem Marek Eichler
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.380 / Virov� b�ze: 213 - datum vyd�n�: 24.7.2002
OT: Auto lock W2k
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.7.2002 10:35:54
start/ovladacie panely/uzivatelia a hesla/zalozka upresnit - zaskrtnut
"pred prihlasenim vyzadovat stisknutie klaves ctrl+alt+del"
> Mam question, ako sa da urobit to ze ked mi Windows 2000
> nabehnu a chcem ist
> prec a nechcem aby mi niekto robil za masinou tak macknem
> CTRL + ALT + DEL a
> dam Lock Computer a toto chcem urobit automaticky po nabehu
> Windows. Ze sa
> mi spusti nejaky exe a on mi lockne masinu ?
Dlouhe nazvy adresare - Temp od Windows
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 26.7.2002 10:39:39
Ahoj,
nic rozumneho v API jsem na to nenasel, proto jsem si napsal funkci
uvedenou nize.
Slavek
//--------------------------------------------------------------------
---------
//
Dos83ToWindowsPath
//--------------------------------------------------------------------
---------
function Dos83ToWindowsPath (const FileName: string): string;
var
ProcessedName: string;
p, DonePos, len, i: integer;
S: TSearchRec;
begin {Dos83ToWindowsPath}
p := Pos ('~', FileName);
if (FileName = '') or (p = 0) then
begin
Result := FileName;
exit;
end;
DonePos := 0;
for i := p downto 1 do
if FileName [i] = '\' then
begin
DonePos := i;
break;
end;
Result := copy (FileName, 1, DonePos);
len := length (FileName);
for i := DonePos+1 to len do
if (FileName [i] = '\') or (i = len) then
begin
if FileName [i] = '\' then
ProcessedName := copy (FileName, 1, i-1)
else
ProcessedName := copy (FileName, 1, i);
if FindFirst (ProcessedName, faAnyFile, S) = 0 then
begin
Result := Result + S.Name;
if FileName [i] = '\' then Result := Result + '\';
end else begin Result := FileName; SysUtils.FindClose (S);
break; end;
SysUtils.FindClose (S);
end;
end; {Dos83ToWindowsPath}
On 26 Jul 2002 at 7:29, Pavel ZIDEK wrote:
> pouzil jsem tip 715 z 1001T&T a mam jeden problem:
> - ve Win2000 Temp je umisten v dlouhem nazvu adresare a funkce mi
> vraci tuto cestu v orezave DOS verzi, takze cesta je totalne
> necitelna. Co se s tim da delat
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Dlouhe nazvy adresare - Temp od Windows
[*] Pavel Tresnak <pavel.tresnak(zv)haida(tec)cz> - 26.7.2002 10:49:28
co zkusit
PathGetLongName
PathGetShortName
z JCLFileUtils
S pozdravem
Pavel Tresnak
On 26 Jul 2002 at 7:29, Pavel ZIDEK wrote:
> pouzil jsem tip 715 z 1001T&T a mam jeden problem:
> - ve Win2000 Temp je umisten v dlouhem nazvu adresare a funkce mi
> vraci tuto cestu v orezave DOS verzi, takze cesta je totalne
> necitelna. Co se s tim da delat
FB: Zaloha a obnova dat
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 26.7.2002 11:03:24
On 26 Jul 2002 at 10:27, Marek Eichler wrote:
> Vim, ze
> existuje utilita gbak, ktera by to mela zvladnout, ale nevim jak ji
> pouzit. Zkousel jsem to pres IBExpert Personal Edition, ale nejak se
> mi to nepodarilo.
Jako pametnik derne pasky bych poradil - gbaky, gfixy a podobne je
nejlepsi spoustet z prikazove radky. Na co nejake IBExperty ?
konverzia string-u na datum
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 26.7.2002 11:04:16
Ne jsou to interni promene programu. Podivej se do helpu, podobnych
promenych je asi 20, pri startu programu nactou nastaveni z WIN.
Pavel
> From: Barica Miroslav [mailto:miroslav.barica(zv)matador.sk]
>
> fajn, dik, vyskusam. ten datum v logu je rovnaky. este jeden dotaz,
> uprava dateseparator-u a formatu datumu dufam nebude mat vplyv na
> globalne nastavenie? ide o to aby som nenarusil beh ostatnych
> aplikacii
> ;)
>
> >
> > Pokud format datumu je v logu stale stejny, je nejjednodusi
> > zmenit obsah
> > globalni promenych
> > var DateSeparator: Char; var ShortDateFormat: string; var
> > LongDateFormat:
> > string; (definovane v jednotce sysutils) pri startu
> programu na format
> > pouzivany pri zapisu logu. Funkce StrToDate (obecne vsehny
> > StrToX) pouziva
> > tyto retezece pri konverzi.
> >
>
konverzia string-u na datum
[*] "Jon� Mari�n, Ing." - 26.7.2002 11:09:45
Drobna poznamka, pokud je v programu pouzita unita Forms, aktualizuji se
tyto promenne vzdy kdyz dojde ke zprave WM_WININICHANGE. Pokud toto chcete
vypnout podivejte se na TApplication.UpdateFormatSettings.
Marian
> -----Original Message-----
> From: Lstiburek Pavel [mailto:Lstiburek(zv)ceb(tec)cz]
> Sent: Friday, July 26, 2002 11:04 AM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: RE: konverzia string-u na datum
>
>
> Ne jsou to interni promene programu. Podivej se do helpu, podobnych
> promenych je asi 20, pri startu programu nactou nastaveni z WIN.
>
> Pavel
>
> > From: Barica Miroslav [mailto:miroslav.barica(zv)matador.sk]
> >
> > fajn, dik, vyskusam. ten datum v logu je rovnaky. este jeden dotaz,
> > uprava dateseparator-u a formatu datumu dufam nebude mat vplyv na
> > globalne nastavenie? ide o to aby som nenarusil beh ostatnych
> > aplikacii
> > ;)
DelhiX
[*] Peter Surovy <psurovy(zv)uevora.pt> - 26.7.2002 10:10:49
Ahoj
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
Sent: Friday, July 26, 2002 8:13 AM
> Na www.builder(tec)cz probiha docela dobry serial od DelphiX
--- povedal by som skor ze prebiehal ci nie?
> Nevite nahodou nekdo o nejake knize k tomu.
----
Delphi Graphics and Game Programming Exposed with DirectX 7.0
by John Ayres
Wordware Publishing, Inc. > A kde by se dalo stahnout
> vse potrebne pro delphix ?
---- okrem inych aj tu:
http://turbo.gamedev.net
Peter Surovy
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 26.7.2002 11:15:25
Zdravim,
Prave si hraju s SP_Helprotect.
Pokud napisi: Exec SP_Helprotect do SQL Query Analyzeru dostanu tyto fields:
Owner, Object, Grantee, Grantor, ProtectType, Action, Column
Coz je presne to co potrebuji.
Jenze pokud to same napisi do TQuery dostanu pouze tyto fields:
ProtectType, Action
Takze predevsim field Object mi schazi. Vubec nechapu proc naprosto stejny SQL dotaz dava jine vysledky v analyzeru a jine v TQuery. Setkal jste se jiz nekdo s tim a nasli jste nejake reseni?
David Michal
konverzia string-u na datum
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.7.2002 11:18:42
v akych pripadoch dochadza k tej sprave?
>
>
> Drobna poznamka, pokud je v programu pouzita unita Forms,
> aktualizuji se
> tyto promenne vzdy kdyz dojde ke zprave WM_WININICHANGE.
> Pokud toto chcete
> vypnout podivejte se na TApplication.UpdateFormatSettings.
>
> >
> > Ne jsou to interni promene programu. Podivej se do helpu, podobnych
> > promenych je asi 20, pri startu programu nactou nastaveni z WIN.
> >
> > >
> > > fajn, dik, vyskusam. ten datum v logu je rovnaky. este
> jeden dotaz,
> > > uprava dateseparator-u a formatu datumu dufam nebude mat vplyv na
> > > globalne nastavenie? ide o to aby som nenarusil beh ostatnych
> > > aplikacii
> > > ;)
Field v dbgridu LOOKUP NUTNEE
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 26.7.2002 11:30:54
Dekuji vsem za minule rady na transakce v IB a jine,uz mi to funguje
perfektne, ted bych jeste potreboval nastavit na pole nejaky LOOKUP,tj.
potrebuji nastavit jen hodnoty zadane v nejake tabulce,ale kdyz dam v
IBDataset/Field[0]/LookupDataSet a nastavim
keyfields,lookupfields,lookupkeyfields,lookupresultfields,nejde to a
nejde...
Dotaz by byl jestli by jste nemel nekdo nejakou ukazku jak to dobre nastavit
a vysvetlit co se vse musi nastavit aby mi lookup na poli fungoval...boha
jeho ja se s tim morim uz cely den...diky
Diky moc
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.7.2002 11:45:25
Protoze TQuery neumi vratit NVarchar. Co pouzivas za komponenty pro pristup
k DB?
Sroub
Zdravim,
Prave si hraju s SP_Helprotect.
Pokud napisi: Exec SP_Helprotect do SQL Query Analyzeru dostanu tyto fields:
Owner, Object, Grantee, Grantor, ProtectType, Action, Column
Coz je presne to co potrebuji.
Jenze pokud to same napisi do TQuery dostanu pouze tyto fields:
ProtectType, Action
Takze predevsim field Object mi schazi. Vubec nechapu proc naprosto stejny
SQL dotaz dava jine vysledky v analyzeru a jine v TQuery. Setkal jste se jiz
nekdo s tim a nasli jste nejake reseni?
David Michal
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 26.7.2002 11:52:04
Zdravim,
TQuery - TDatabase - BDE - ODBC - SQL Server
Jakym zpusobem tedy ziskam pozadovane?
David
Protoze TQuery neumi vratit NVarchar. Co pouzivas za komponenty pro pristup
k DB?
Sroub
Zdravim,
Prave si hraju s SP_Helprotect.
Pokud napisi: Exec SP_Helprotect do SQL Query Analyzeru dostanu tyto fields:
Owner, Object, Grantee, Grantor, ProtectType, Action, Column
Coz je presne to co potrebuji.
Jenze pokud to same napisi do TQuery dostanu pouze tyto fields:
ProtectType, Action
Takze predevsim field Object mi schazi. Vubec nechapu proc naprosto stejny
SQL dotaz dava jine vysledky v analyzeru a jine v TQuery. Setkal jste se jiz
nekdo s tim a nasli jste nejake reseni?
Kniha o IB/FB v cestine
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 26.7.2002 11:58:41
Haj hou!
Jedno z renomovanych ceskych nakladatelstvi zamerene na IT vazne zvazuje
vydani knihy o IB/FB. Protoze je projekt na samem zacatku a problematika IB/FB
by vydala na nekolik knih a na to zatim neni prostor, muzete nyni ovlivnit jeho
vyslednou podubu a zamereni. Otazka tedy zni: Co by jste se chteli o IB/FB
dozvedet nejvice a v jake podobe ? Mela by byt kniha urcena pro uplne
zacatecn�ky nebo pro ctenare znale SQL databazi apod.; spise teorie s priklady
nebo vyukovy pruvodce apod.? Samozrejmosti je oblast administrace serveru,
ale v oblasti programovani je velky prostor, napr. ruzne knihovny Delphi, PHP,
Python apod. Melo by to byt zamerene hlavne na Windows, ale zajimaly by vas
odlisnosti i na jinych platformach (napr. Linux) ? Jakekoliv napady jsou vitany.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
UNC a TIBdatabase.DatabaseName pri uziti TCP/IP (W
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 26.7.2002 11:58:41
Haj hou!
On 26 Jul 2002 at 8:02, Petr Fejfar wrote:
> 3. Pracuje jedine verze
>
> PF:D:\DAT\xxx.gdb
>
> ale jak mam prevest shared jmeno DISK_D (teoreticky
> to muze cokoli jineho) na absolutni cestu
> na cizim pocitaci?
Aha, vam zrejme jde o automatickou/programovou zmenu ? Pak to samozrejme
neni tak jednoduche (rucne je to trivialita). Resenim by mely byt aliasy databaze,
ale ty budou az ve Firebirdu 1.5. Doporucuji v soucasne dobe pouzit vlastni
obdobu teto metody, tedy mit nekde na serveru konfiguraci, kterou si klient
precte, pripadne si vytvorit maly TCP/IP (staci i UDP) servrik napr. pomoci INDY,
ktery to klientovi poskytne na vyzadani. Na serveru pak neni problem toto
nastavit i automaticky pri instalaci.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
FB: Zaloha a obnova dat
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 26.7.2002 11:58:41
Haj hou!
On 26 Jul 2002 at 10:27, Marek Eichler wrote:
> Vim, ze existuje utilita gbak, ktera by to mela zvladnout, ale nevim jak ji
> pouzit. Zkousel jsem to pres IBExpert Personal Edition, ale nejak se mi to
> nepodarilo.
Na www.ibphoenix(tec)cz v sekci download tretich stran by se mala nachazet utilitka
IBBackup. Je to moc pekny wizard pro zalohovani a obnovu databazi, ktery by
mel pomoci se v dane problematice zorientovat.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.7.2002 12:06:16
Bud pristupem primo pres ODBC (ODBCe...), OLEDB (Zbyskovy komponenty...)
nebo ADO (Adonis...) bez BDE. A nebo Eric Salaj navrhoval pouzit SQLDMO.
Kdysi jsem s tim laboroval a objekty jsem z toho dostal, takze pripadna
pristupova prava tam pujdou asi taky. Nicmene k tomu budes potrebovat bud
MSDN library nebo brouzdat po http://msdn.microsoft.com, co mi pri rychlosti
linky 33.6 nebylo nic moc
Sroub
Zdravim,
TQuery - TDatabase - BDE - ODBC - SQL Server
Jakym zpusobem tedy ziskam pozadovane?
David
Protoze TQuery neumi vratit NVarchar. Co pouzivas za komponenty pro pristup
k DB?
Sroub
Zdravim,
Prave si hraju s SP_Helprotect.
Pokud napisi: Exec SP_Helprotect do SQL Query Analyzeru dostanu tyto fields:
Owner, Object, Grantee, Grantor, ProtectType, Action, Column
Coz je presne to co potrebuji.
Jenze pokud to same napisi do TQuery dostanu pouze tyto fields:
ProtectType, Action
Takze predevsim field Object mi schazi. Vubec nechapu proc naprosto stejny
SQL dotaz dava jine vysledky v analyzeru a jine v TQuery. Setkal jste se jiz
nekdo s tim a nasli jste nejake reseni?
Pridat program do Naplanovanych uloh
[*] miro mrazik <preas_w(zv)stonline.sk> - 26.7.2002 12:24:30
Zdravim kolegovia,
vedel by mi niekto poradit ci sa da, resp. ako sa da pridat spustanie mojho
programu do naplanovanych uloh?
Su na to nejake funkcie? alebo je to len niekde zapis v registroch?
Diky Miro
socket info
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 26.7.2002 12:28:35
> Mas pravdu, pomoci nedokumentovane funkce
AllocateAndGetTcpExTableFromStack v
> IP Helper API. Priklad je k dispozici tady:
> http://www.sysinternals.com/ntw2k/source/tcpview.shtml
>
> Petr Vones
>
Musi to jit i jinak. Ta fce je az v WinXP, takze ten priklad na nizsich
verzich nevraci jmeno, narozdil od programu TCPView (tamtez). Ten by snad
mel pracovat i na W95 (nezkousel jsem).
konverzia string-u na datum
[*] "Jon� Mari�n, Ing." - 26.7.2002 12:31:43
Muzu ti rict dva konkretni pripady.
1. Pocitac s W2000. Pri kazdem prihlaseni uzivatele se vyskytne WM_WININICHANGE.
(Kazdy uzivatel muze mit jine nastaveni formatu �asu datumu apod.)
2. Pri zmene nastaveni v Ovladacich panelech / mistn� nastaven�.
> Barica Miroslav napsal :
>
> v akych pripadoch dochadza k tej sprave?
> > Marian Jonas napsal :
> >
> > Drobna poznamka, pokud je v programu pouzita unita Forms,
> > aktualizuji se
> > tyto promenne vzdy kdyz dojde ke zprave WM_WININICHANGE.
> > Pokud toto chcete
> > vypnout podivejte se na TApplication.UpdateFormatSettings.
konverzia string-u na datum
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 26.7.2002 12:34:38
myslel som si ze nastane pri zmene nastavenia v ovladacich paneloch. ta
davka na import do SQL-ky prebehne davkovo v noci, takze teoreticky by
nemalo k tomuto pripadu dojst. ale preistotu updateformatsettings
vypnem. kazdopadne dakujem ;)
>
> Muzu ti rict dva konkretni pripady.
>
> 1. Pocitac s W2000. Pri kazdem prihlaseni uzivatele se
> vyskytne WM_WININICHANGE.
> (Kazdy uzivatel muze mit jine nastaveni formatu �asu datumu apod.)
>
> 2. Pri zmene nastaveni v Ovladacich panelech / mistn� nastaven�.
>
> > Barica Miroslav napsal :
> >
> > v akych pripadoch dochadza k tej sprave?
>
> > > Marian Jonas napsal :
> > >
> > > Drobna poznamka, pokud je v programu pouzita unita Forms,
> > > aktualizuji se
> > > tyto promenne vzdy kdyz dojde ke zprave WM_WININICHANGE.
> > > Pokud toto chcete
> > > vypnout podivejte se na TApplication.UpdateFormatSettings.
>
>
>
> __________ Informacia od NOD32 1.288 (20020722) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.eset.sk
>
>
>
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 26.7.2002 12:35:51
On 26 Jul 2002 at 11:52, David Michal wrote:
> Zdravim,
> TQuery - TDatabase - BDE - ODBC - SQL Server
> Jakym zpusobem tedy ziskam pozadovane?
> David
BDE a MS SQL se maji rady asi jako kocka se psem. Za urcitych
okolnosti je sice muzes donutit k pratelstvi, ale vzdy to bude
pratelstvi podminene a nikdy nebude bevyhradne.
:-)
Nepouzivej BDE spolu s MS SQL.
> Protoze TQuery neumi vratit NVarchar. Co pouzivas za komponenty pro
> pristup k DB?
>
> Sroub
S pozdravem
Zbysek Hlinka
Zaloha a obnova dat
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 12:40:59
Ahoj Marku
takto:
zaloha
gbak -USER sysdba -PAS masterkey zdroj cil
zdroj - soubor s priponou gdb
cil - soubor s priponou gbk (jsou to jenom standardy, ale nemusi se dodrzet)
jeste takova poznamecka - cil musi byt na stejnem stroji, kde bezi server.
Potom si to muzes stahnout, ale jinak to nepujde. Je to kvuli bezpecnosti
dat...
obnova
gbak -R -USER sysdba -PAS masterkey zdroj cil
zdroj - soubor s priponou gbk
cil - soubor s priponou gdb (jsou to jenom standardy, ale nemusi se dodrzet)
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Na FB 1.0 potrebuju zalohovat DB a obnovit to na jinem PC. Ve strukture DB
> S pozdravem Marek Eichler
Informace o zmene stavu komponenty
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 26.7.2002 12:43:54
Dobry den,
mam nevizualni komponentu (napr. TDejData), ktera poskytuje za
jistych okolnosti nejake informace (property DataJsouDostupna je
True). Dale mam vizualni komponentu, ktera tyto informace
zobrazuje (napr. TZobraz). V TZobraz je property typu TDejData.
Jak v komponente TZobraz zjistim, ze se zmenila hodnota property
DataJsouDostupna? Je to podobne jako kdyz napr. TIBQuery.Active
se zmeni na True a napojeny DBGrid (pres DataSource) ihned
zobrazi data. Kdyz jsem se dival na zdrojove texty, nepochopil
jsem to. :-(
Dekuji za pomoc
Karel Krtecek
--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...
text versus cisla...
[*] Vlada Ponechal <vlada_ponechal(zv)post(tec)cz> - 26.7.2002 12:48:13
Zdar panove,
Prosim o nakopnuti. Mam definovany string TSTRING
Nacitam do nej ruzne data. Potrebuji zjistit, zda to co nactu do TSTRING obsahuje jenom cisla a nebo i text:
1.) 34233
2.) R|4343
V pripade, ze je tam i text, app. vykona neco jineho...
Diky za nakopnuti.
Vl.
----
EFEKTIVN� REKLAMA - DIRECT MAIL
vyu�ijte letn� slevy a oslovte sv� klietny, v�ce na http://reklama.volny(tec)cz
text versus cisla...
[*] campulka <campulka(zv)czas(tec)cz> - 26.7.2002 12:59:26
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vlada Ponechal
>
> Prosim o nakopnuti. Mam definovany string TSTRING
>
> Nacitam do nej ruzne data. Potrebuji zjistit, zda to co nactu
> do TSTRING obsahuje jenom cisla a nebo i text:
> 1.) 34233
> 2.) R|4343
>
> V pripade, ze je tam i text, app. vykona neco jineho...
Narychlo sem sesmolil takovouhle funkci (melo by to fungovat):
function IsNum(S: String): boolean;
var I: Integer;
const Dig: set of char=['0'..'9'];
begin
Result:=true;
for I:=1 to Length(S) do
begin
if not (S[I] in Dig) then Result:=false;
end;
end;
Jirka.
MessageDlg s podporou narodneho prostredia
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 26.7.2002 13:00:28
Ok, chyba je na mojej strane (pozrel som si len Application.MessageBox) :(
Ale i tak je tam stale rozdiel, v MessageDlg viem zadat HelpContext, ako mam
zadat tento parameter pri MessageBoxe?
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----P�vodn� zpr�va-----
Od: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
Odesl�no: 26. �ervence 2002 10:10
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: RE: MessageDlg s podporou narodneho prostredia
A precetl sis poradne napovedu k MessageBox?
Martin Ben
text versus cisla...
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.7.2002 13:11:22
Pomohlo by tohle?
procedure Val(S; var V; var Code: Integer);
Description
Val converts the string value S to its numeric representation, as if it were
read from a text file with Read.
S is a string-type expression; it must be a sequence of characters that form
a signed real number.
V is an integer-type or real-type variable. If V is an integer-type
variable, S must form a whole number.
Code is a variable of type Integer.
If the string is invalid, the index of the offending character is stored in
Code; otherwise, Code is set to zero. For a null-terminated string, the
error position returned in Code is one larger than the actual zero-based
index of the character in error.
Val performs range checking differently depending upon the setting of the $R
compiler directive and the type of the parameter V.
Setting Result
{$R+} An out-of-range value always generates a run-time error.
{$R-} The values for out-of-range vary depending upon the data type of V.
Sroub
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> > Behalf Of Vlada Ponechal
> >
> > Prosim o nakopnuti. Mam definovany string TSTRING
> >
> > Nacitam do nej ruzne data. Potrebuji zjistit, zda to co nactu
> > do TSTRING obsahuje jenom cisla a nebo i text:
> > 1.) 34233
> > 2.) R|4343
> >
> > V pripade, ze je tam i text, app. vykona neco jineho...
>
> Narychlo sem sesmolil takovouhle funkci (melo by to fungovat):
>
> function IsNum(S: String): boolean;
> var I: Integer;
> const Dig: set of char=['0'..'9'];
> begin
> Result:=true;
> for I:=1 to Length(S) do
> begin
> if not (S[I] in Dig) then Result:=false;
> end;
> end;
>
> Jirka.
MessageDlg s podporou narodneho prostredia
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 26.7.2002 13:22:34
The MSGBOXPARAMS structure contains information used to display a message
box. The MessageBoxIndirect function uses this structure.
typedef struct {
UINT cbSize;
HWND hwndOwner;
HINSTANCE hInstance;
LPCSTR lpszText;
LPCSTR lpszCaption;
DWORD dwStyle;
LPCSTR lpszIcon;
DWORD dwContextHelpId;
MSGBOXCALLBACK lpfnMsgBoxCallback;
DWORD dwLanguageId;
} MSGBOXPARAMS, *PMSGBOXPARAMS, FAR *LPMSGBOXPARAMS;
Sroub
Ok, chyba je na mojej strane (pozrel som si len Application.MessageBox) :(
Ale i tak je tam stale rozdiel, v MessageDlg viem zadat HelpContext, ako mam
zadat tento parameter pri MessageBoxe?
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (181)
-----P�vodn� zpr�va-----
Od: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
Odesl�no: 26. �ervence 2002 10:10
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: RE: MessageDlg s podporou narodneho prostredia
A precetl sis poradne napovedu k MessageBox?
Martin Ben
Skryti constructoru
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.7.2002 13:25:37
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 26, 2002 10:16 AM
Subject: Skryti constructoru
> Zdravim vsechny,
>
> mam nekolik trid, ktere jsou odvozeny od TPersistent popr. od TObject, ale
> jejich constructor je definovan s nekolika parametry (ktere jsou povinne)
a
> ja bych velice rad nejakym zpusobem zrusil moznost zavolat constructor
> zdedeny od TObject, protoze ten nezajisti nastaveni prislusnych
> vlastnosti... Vim, ze se to da udelat s volanim Create a pote nastavenim
> jednotlivych vlastnosti, ale v constructoru se deje spousta veci, ktere
chci
> aby byly prave tam a nikde jinde. Jak to dela napr. TComponent, TControl
> atp. ??? Vzdyt ty jsou take zdedeny od TObject, ale Create bez parametru u
> nich pouzit nelze...
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
Ja mel za to, ze kdyz udelas v tride novy konstruktor, ktery neni overload,
tak ten puvodni videt neni. Ted jsem to zkousel. Nebo mi neco uniklo ?
Radim
text versus cisla...
[*] Pavel T�e���k - 26.7.2002 13:29:34
Dobry den,
co zkusit
StrIsNumber z JclStrings
S pozdravem
Pavel T�e���k [mailto:pavel.tresnak(zv)haida(tec)cz] (ORJ 6009)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vlada Ponechal
Nacitam do nej ruzne data. Potrebuji zjistit, zda to co nactu do TSTRING
obsahuje jenom cisla a nebo i text:
Vl.
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 26.7.2002 12:29:29
Miesto TQuery pouzi TADODataSet a vystup je stejny ako u analyzeru.(komponenty ADONIS 4.2)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of David Michal
Sent: Friday, July 26, 2002 10:15 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Problem se zjistovanim pristupovych prav. D5, MSSQL.
Zdravim,
Prave si hraju s SP_Helprotect.
Pokud napisi: Exec SP_Helprotect do SQL Query Analyzeru dostanu tyto fields:
Owner, Object, Grantee, Grantor, ProtectType, Action, Column
Coz je presne to co potrebuji.
Jenze pokud to same napisi do TQuery dostanu pouze tyto fields:
ProtectType, Action
Takze predevsim field Object mi schazi. Vubec nechapu proc naprosto stejny SQL dotaz dava jine vysledky v analyzeru a jine v TQuery. Setkal jste se jiz nekdo s tim a nasli jste nejake reseni?
David Michal
---
Prichádzajúca správa neobsahuje vírusy.
Skontrolované antivírusovým systémom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.380 / Vírusová databáza: 213 - dátum vydania: 24.7.2002
OT: Auto lock W2k
[*] Robert Suska <delphi(zv)korak.sk> - 26.7.2002 13:37:46
Ahoj!
To poznam :) ale tak som to nemyslel proste som potreboval aby nabehol win a
napr. aby sa mi spustilo irc ono ma prihlasi joine na kanal a medzi tymto
vsetkym potrebujem aby mi prebehla mala apl. ktora mi lockne screen ked nie
som v robote a napr. padne elektrina alebo co. Ale uz to mam vyriesene.. Asi
takto:
program LockWS_console;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows, Registry;
var Reg: TRegistry;
WindowsPath, sCmd: String;
begin
Reg:= TRegistry.Create;
try
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\', False);
WindowsPath:= Reg.ReadString('PathName');
Reg.CloseKey;
Reg.Free;
except on EXCEPTION do
end;
sCmd:= WindowsPath + '\System32\rundll32.exe user32.dll,LockWorkStation';
{ TODO -oUser -cConsole Main : Insert code here }
WinExec(PChar(sCmd), SW_HIDE);
sCmd:= '';WindowsPath:= '';
end.
Dakujem
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
start/ovladacie panely/uzivatelia a hesla/zalozka upresnit - zaskrtnut
"pred prihlasenim vyzadovat stisknutie klaves ctrl+alt+del"
> Mam question, ako sa da urobit to ze ked mi Windows 2000
> nabehnu a chcem ist
> prec a nechcem aby mi niekto robil za masinou tak macknem
> CTRL + ALT + DEL a
> dam Lock Computer a toto chcem urobit automaticky po nabehu
> Windows. Ze sa
> mi spusti nejaky exe a on mi lockne masinu ?
Skryti constructoru
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 26.7.2002 13:39:10
Nevim jestli spravne rozumim. Ale jde to pouzit takhle:
public
constructor Create;
constructor TMyObject.Create;
begin
inherited Create (nil);
end;
Vlastni parametry potomka pak muzou byt jakekoliv, dulezite je to co predavas
predkovi v inherited Create.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Friday, July 26, 2002, 10:16:15 AM, you wrote:
MT> Zdravim vsechny,
MT> mam nekolik trid, ktere jsou odvozeny od TPersistent popr. od TObject, ale
MT> jejich constructor je definovan s nekolika parametry (ktere jsou povinne) a
MT> ja bych velice rad nejakym zpusobem zrusil moznost zavolat constructor
MT> zdedeny od TObject, protoze ten nezajisti nastaveni prislusnych
MT> vlastnosti... Vim, ze se to da udelat s volanim Create a pote nastavenim
MT> jednotlivych vlastnosti, ale v constructoru se deje spousta veci, ktere chci
MT> aby byly prave tam a nikde jinde. Jak to dela napr. TComponent, TControl
MT> atp. ??? Vzdyt ty jsou take zdedeny od TObject, ale Create bez parametru u
MT> nich pouzit nelze...
MT> S pozdravem
MT> Milan Tomes
MT> mailto:milan.tomes(zv)haida(tec)cz
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 26.7.2002 14:05:50
Problem je ze mam jiz cely kod psan prave pro obsluhu TQuery.
Myslite ze by stacilo misto TDatabase pouzit TAdoConection a vsechny TQuery co mam
nahradit TADOQuery se stejnym jmenem jako meli me puvodny TQuery?
Diky,
David
> Zdravim,
> TQuery - TDatabase - BDE - ODBC - SQL Server
> Jakym zpusobem tedy ziskam pozadovane?
> David
BDE a MS SQL se maji rady asi jako kocka se psem. Za urcitych
okolnosti je sice muzes donutit k pratelstvi, ale vzdy to bude
pratelstvi podminene a nikdy nebude bevyhradne.
:-)
Pridat program do Naplanovanych uloh
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.7.2002 14:31:53
> vedel by mi niekto poradit ci sa da, resp. ako sa da
> pridat spustanie mojho programu do naplanovanych uloh?
Task Scheduler je popisany v Platform SDK.
Prelozene C-headre do Pascalu najdes na www.delphi-jedi.org
HTH
TOndrej
text versus cisla...
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 26.7.2002 14:34:48
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vlada Ponechal
>
> Prosim o nakopnuti. Mam definovany string TSTRING
>
> Nacitam do nej ruzne data. Potrebuji zjistit, zda to co nactu
> do TSTRING obsahuje jenom cisla a nebo i text:
> 1.) 34233
> 2.) R|4343
>
> V pripade, ze je tam i text, app. vykona neco jineho...
Pokud by ten retezec nebyl prilis dlouhy, tak by slo vyuzit funkci StrToInt,
ktera se
pokousi prevest retezec na cislo a v pripade, ze to nejde vyhodi vyjimku
(pozor ale
na preteceni cisla)
Karel
Skryti constructoru
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 14:36:35
> Ja mel za to, ze kdyz udelas v tride novy konstruktor, ktery neni
> overload,
> tak ten puvodni videt neni. Ted jsem to zkousel. Nebo mi neco uniklo ?
>
> Radim
No jo, jenze shodou okolnosti, ja mam ten novy konstruktor overload
:((((((((
A co ted s tim ???
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Skryti constructoru
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.7.2002 14:56:06
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 26, 2002 2:36 PM
Subject: RE: Skryti constructoru
> > Ja mel za to, ze kdyz udelas v tride novy konstruktor, ktery neni
> > overload,
> > tak ten puvodni videt neni. Ted jsem to zkousel. Nebo mi neco uniklo ?
> >
> > Radim
>
> No jo, jenze shodou okolnosti, ja mam ten novy konstruktor overload
> :((((((((
> A co ted s tim ???
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
Pak uz zbyva jen jedno reseni. :-))
constructor TMyObject.Create;
begin
MessageDlg('Tak takhle ne',mterror,[mbcancel],0);
end;
Radim
Skryti constructoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.7.2002 14:59:15
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> No jo, jenze shodou okolnosti, ja mam ten novy konstruktor overload
> :((((((((
> A co ted s tim ???
Je opravdu nutne mit dalsi overloaded constructor ?
Petr Vones
Pridat program do Naplanovanych uloh
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 26.7.2002 15:01:54
Hello miro,
Friday, July 26, 2002, 12:24:30 PM, you wrote:
mm> Zdravim kolegovia,
mm> vedel by mi niekto poradit ci sa da, resp. ako sa da pridat spustanie mojho
mm> programu do naplanovanych uloh?
mm> Su na to nejake funkcie? alebo je to len niekde zapis v registroch?
mm> Diky Miro
Urcite na to neco je ale ja to nezmam . kazdopadne ja jsem to resil
vytvorenim noveho tasku a ulozenim do c:\winnt\tasks
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 26.7.2002 15:05:25
On 26 Jul 2002 at 14:05, David Michal wrote:
> Problem je ze mam jiz cely kod psan prave pro obsluhu TQuery.
> Myslite ze by stacilo misto TDatabase pouzit TAdoConection a vsechny
> TQuery co mam nahradit TADOQuery se stejnym jmenem jako meli me
> puvodny TQuery? Diky, David
U ADOExpress snad ano. Ale ADOQuery neni moc vhodne, to je spis jen
nouzovka na rychly prechod z BDE.
S pozdravem
Zbysek Hlinka
Re[2]: Skryti constructoru
[*] Ing. Pavel �ilinec����)b���zf���3 - 26.7.2002 15:06:31
Napada mne, ze by sis jeste mhl ten puvodni constructor prepsat do
private (samozrejme jako overload) a tim ho znepristupnit.
Ale nevim, jestli to tak pujde :(
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
>> Ja mel za to, ze kdyz udelas v tride novy konstruktor, ktery neni
>> overload,
>> tak ten puvodni videt neni. Ted jsem to zkousel. Nebo mi neco uniklo ?
>>
>> Radim
MT> No jo, jenze shodou okolnosti, ja mam ten novy konstruktor overload
MT> :((((((((
MT> A co ted s tim ???
MT> S pozdravem
MT> Milan Tomes
MT> mailto:milan.tomes(zv)haida(tec)cz
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 26.7.2002 15:13:00
No ted na tom pracuji zatim vsude kde mam:
ParamByName('blabla').AsNeco prepisuji na
Parameters.ParamByName('blabla').Value, je to moc prijemna prace. :)
A obavam se ze to neni vse co mne ceka.
David
Je to mozne ale zalezi na rozsahu aplikacie, preklopenie aplikacie (cca 20000 riadkov,
200 db tabuliek) z BDE pod ADO (Adonis) mi trvalo asi 6 mesiacov.
Kniha o IB/FB v cestine
[*] Roman Konecny <rkonecny(zv)datis(tec)cz> - 26.7.2002 15:15:05
Zdravim,
tak jsem zase prisel na buben. Mel jsem v umyslu se do toho pustit a uz
jsem mel i vymyslene, jak na to.
Co me se tyce, myslim, ze by kniha mela vypadat nasledovne:
- popis datovych typu, vcetne pretypovani (CAST),
- VELMI !!! podrobny popis DOMAIN, TABLES, PROCS etc. ..... - tzn. k cemu
slouzi a jak je nejlepe vyuzit,
- VELMI !!! kvalitni priklady pouziti DOMAIN, TABLES, etc., jak pro
zacatecniky, tak i pro pokrocile
- zminit zvlastnosti IF/FB pri pouziti DOMAINs, TABLES, PROCs.....
- DB( tedy GDB ) soubory, multi souborova DB, caching, ...
- na zaver samozerejme nekoli appendixu pro zacatecniky v podobe:
instalace, popisu prostredi ( konzole, ..), SQL jazyka ( jako by toho uz
nevyslo dost )
toto bych skutecne dal do priloh, protoze jde o veci az neuveritelne
trivialni a velmi snadno naucitelne
Urcite bych tuto knihu nepsal jenom pro zacatecniky, protoze prostredi je
celkem intuitivni, a pokud bude popis napr. PROCEDUR nabihat od trivialit po
loveni perel, urcite se chyti i tzv. zacatecnici.
Kazdou knihu je treba cist nekolikrat a vzdycky se clovek musi k necemu
vracet, takze pokud bychom to pojali takto,
mohlo by se dilko zatracene vydarit.
Roman Konecny
Skryti constructoru
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 15:37:55
Nakonec jsem se nechal presvedcit a udelal jsem jeden konstruktor s nekolika
(i nepovinnymi) parametry...
Diky za pomoc...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Pak uz zbyva jen jedno reseni. :-))
>
> constructor TMyObject.Create;
> begin
> MessageDlg('Tak takhle ne',mterror,[mbcancel],0);
> end;
> Radim
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 26.7.2002 15:41:42
From: "David Michal" <david.michal(zv)czechwireless(tec)cz>
> No ted na tom pracuji zatim vsude kde mam:
> ParamByName('blabla').AsNeco prepisuji na
> Parameters.ParamByName('blabla').Value, je to moc prijemna prace. :)
Tak si sezen nejaky slusny editor napr. MultiEdit (www.multiedit.com)
s dobrou podporou regular expresions a pak je do otazka jednoho
prikazu substitute ;-)
HTH, pf
Kniha o IB/FB v cestine
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 26.7.2002 15:42:28
- Jak navrhovat DB model a v cem, se zamerenim na moznosti IB
- Jak ovlivni navrch funkci DB (napriklad index s nizkou kardinalitou),
slozitost dotazu, ...
- Pouziti UDF, jednoduche funkce, slozite funkce (prace s handly)
- Instalace (ne jen windows), jak server nastavit (kde mit DB, kde swap)
- Udrzba (jak casto zalohovat, jak obnovit data), pouziti shadow, mirrow disku, RAID
- Multi DB transakce (pouziti, obnova limbo transakci)
- Porovnani vlastnosti IB(od verze 5)/FB/Yafil
- CD s priklady a instalacemi (FB/Yafil)
- Jak generovat PK, jak vazat tabulky, jak mapovat objekty do DB
- Uzivatelska prava, jak definovat role
- Jak ladit DB kdyz je to pomale, predpocitana pole, zajisteni konzistence
- Klientske aplikace
- Serverove aplikace
- Odkazy a tipy na ruzne nastroje a zdroje informaci na internetu.
- Prace IB/FB na SMP strojich (jde. ale spatne).
Muzu dodat neco kolem rozsireni isc4.gdb a udf pro vypocet statistik a praci s poli.
Pouzivam IB/FB jako DB platformu v prumyslu, takze bych tuto knizku
pouzil jako soucast predavane dokumentace.
Slavek
> Jedno z renomovanych ceskych nakladatelstvi zamerene na IT vazne zvazuje
> vydani knihy o IB/FB. Protoze je projekt na samem zacatku a problematika IB/FB
> by vydala na nekolik knih a na to zatim neni prostor, muzete nyni ovlivnit jeho
> vyslednou podubu a zamereni. Otazka tedy zni: Co by jste se chteli o IB/FB
> dozvedet nejvice a v jake podobe ? Mela by byt kniha urcena pro uplne
> zacatecn�ky nebo pro ctenare znale SQL databazi apod.; spise teorie s priklady
> nebo vyukovy pruvodce apod.? Samozrejmosti je oblast administrace serveru,
> ale v oblasti programovani je velky prostor, napr. ruzne knihovny Delphi, PHP,
> Python apod. Melo by to byt zamerene hlavne na Windows, ale zajimaly by vas
> odlisnosti i na jinych platformach (napr. Linux) ? Jakekoliv napady jsou vitany.
>
Skryti constructoru
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 26.7.2002 15:49:41
Jak jsem sam zjistil, tak ne - vyresili to nepovinne parametry jednoho
constructoru
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> > No jo, jenze shodou okolnosti, ja mam ten novy konstruktor overload
> > :((((((((
> > A co ted s tim ???
>
> Je opravdu nutne mit dalsi overloaded constructor ?
>
> Petr Vones
>
>
Problem se zjistovanim pristupovych prav. D5, MSSQ
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 26.7.2002 14:51:30
Je to mozne ale zalezi na rozsahu aplikacie, preklopenie aplikacie (cca 20000 riadkov,
200 db tabuliek) z BDE pod ADO (Adonis) mi trvalo asi 6 mesiacov.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of David Michal
Sent: Friday, July 26, 2002 1:06 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Problem se zjistovanim pristupovych prav. D5, MSSQL.
Problem je ze mam jiz cely kod psan prave pro obsluhu TQuery.
Myslite ze by stacilo misto TDatabase pouzit TAdoConection a vsechny TQuery co mam
nahradit TADOQuery se stejnym jmenem jako meli me puvodny TQuery?
Diky,
David
> Zdravim,
> TQuery - TDatabase - BDE - ODBC - SQL Server
> Jakym zpusobem tedy ziskam pozadovane?
> David
BDE a MS SQL se maji rady asi jako kocka se psem. Za urcitych
okolnosti je sice muzes donutit k pratelstvi, ale vzdy to bude
pratelstvi podminene a nikdy nebude bevyhradne.
:-)
---
Prichádzajúca správa neobsahuje vírusy.
Skontrolované antivírusovým systémom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.380 / Vírusová databáza: 213 - dátum vydania: 24.7.2002
IB a MS SQL
[*] <ds.soft(zv)atlas(tec)cz> - 26.7.2002 16:35:54
Dobry den,
jsme postaveni pred pozadavek dat na server, kde uz je MS SQL, jeste IB pro nasi aplikaci.
Mate s tim nekdo zkusenosti ?
David Sauer
socket info
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 26.7.2002 16:52:45
> Musi to jit i jinak. Ta fce je az v WinXP, takze ten priklad na nizsich
> verzich nevraci jmeno, narozdil od programu TCPView (tamtez). Ten by snad
> mel pracovat i na W95 (nezkousel jsem).
Oprava: TCPView pouziva driver. Je soucasti jeho EXE. A na Win9X nezobrazuje
nazvy procesu.
Tom
Prechod z BDE na ADO.
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 26.7.2002 17:14:15
Zdravim,
Pri praci s TADOQuery se snazim pouzit toto:
With ADOQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * From WorkType');
Open;
end;
Ale stale dostavam chybu: 'Either BOF or EOF is True, or the current record has been deleted. Requested operation requieres a current record'.
Ten samy postup jsem pouzival pri praci s TQuery a bez nejmensich problemu.
Na TADOQuery mam pripojeny TDataSource, a na DataSource mam pripojeny DBGRid.
Kde delam chybu?
David Michal
Prechod z BDE na ADO.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.7.2002 17:20:45
From: "David Michal" <david.michal(zv)czechwireless(tec)cz>
> Ale stale dostavam chybu: 'Either BOF or EOF is True, or the current record
http://info.borland.com/devsupport/delphi/mdac26.html
Petr Vones
Kniha o IB/FB v cestine
[*] miro mrazik <preas_w(zv)stonline.sk> - 26.7.2002 18:02:43
Ahoj
to je radostna sprava.
Podla mna by to mala byt kniha skutocne o IB/FB. T.j. nemala by suplovat
prirucku SQL, ani zkladnu ucebnica pre tvorbu datoveho modelu .
Mohla by nam nieco povedat o tom co vyvojari FB odporucaju pouzivat tie
ktore konstrukcie sql a preco (informacie z kuchyne, ktore su vyuzitelne v
komunite vyvojarov pouzivajucich FB) . Upozornit na aspekty, ktore treba
zohladnit pri vyvoji toho ktoreho typu aplikacie (klasicky klient server,
databaza na webe...), popisat problematiku prace s rozsiahlymi databazami
(nad 2GB). teoria a hodne prikladov by nebolo tiez na zahodenie. Kedze FB/IB
hojne pouzivaju najma vyvojari bolo by vhodne sa venovat tejto oblasti, co
je treba pripravit, zohladnit, ako postupovat pri vybere komponent a preco,
len vsetkym komponentam sa venovat neda a ked tam bude z kazdeho len malo,
tak to tiez nie je ono. Myslim ze by nemala byt orientovana na zaciatocnikov
lebo ak sa jedna o zaciatocnika, ktory sa uci este len databazove
programovanie tak potrebuje informacie, ktore su k nalezeniu aj v inej
literature, nepotrebuje zrovna firebird. Ak sa jedna o zaciatocnika v zmysle
ze sa prvy krat dostane k firebirdu ale pred tym uz robil napr. s paradoxom,
tak sa zorientuje velmi rychlo a velmi rychlo je schopny prejst na firebird.
Aj on potom skorej potrebuje informacie ktore su odlisne od tych ktore sa
pri praci s beznymi db aplikaciami uz dozvedel.
miro
Kniha o IB/FB v cestine
[*] borkovec(zv)email(tec)cz - 26.7.2002 18:53:00
Prijemny vecer,
mozna by stalo za uvahu venovat kapitolku soubeznym resenim na ruznych serverech vzhledem k IB (MSSQL, ORA ...), vcetne SQL (T-SQL, PL/SQl).
Roman Borkovec
--- P�vodn� zpr�va ---
Od: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
Datum: 26.07.2002 13:39:03
Haj hou!
Jedno z renomovanych ceskych nakladatelstvi zamerene na IT vazne zvazuje
vydani knihy o IB/FB. Protoze je projekt na samem zacatku a problematika IB/FB
by vydala na nekolik knih a na to zatim neni prostor, muzete nyni ovlivnit jeho
vyslednou podubu a zamereni. Otazka tedy zni: Co by jste se chteli o IB/FB
dozvedet nejvice a v jake podobe ? Mela by byt kniha urcena pro uplne
zacatecn�ky nebo pro ctenare znale SQL databazi apod.; spise teorie s priklady
nebo vyukovy pruvodce apod.? Samozrejmosti je oblast administrace serveru,
ale v oblasti programovani je velky prostor, napr. ruzne knihovny Delphi, PHP,
Python apod. Melo by to byt zamerene hlavne na Windows, ale zajimaly by vas
odlisnosti i na jinych platformach (napr. Linux) ? Jakekoliv napady jsou vitany.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
______________________________________________________________________________
Obchodn� d�m(tec)cz � �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy, sout�e a doprava zdarma po cel� �R. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=52
CASE V FB
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 27.7.2002 01:08:43
Existuje neco jako je CASE v MS SQL SERVERU i na FB..?
Potrebuji zobrazit nejake hodnoty pokud jsou napriklad v dannem intervalu
Neco jako
Select
Cislo
1..10: then 'Male'
11..20: then 'Stredni'
21..100: then 'velke'
else 'mimo interval'
Jak na to?
Hodilo by se mi to napriklad pri tomto
Chci udelat SUM z nejake hodnoty takto
kdyz pole1='V'(vydej) pak je hodnota v poli -hodnota
kdyz pole2='P'(prijem) pak je hodnota v poli +hodnota
a ty hodnoty(+hodnoty a +hodnoty secist )
takze neco takoveto
Select
Sum(
case Prijem_vydej
'P': then polehodnota=-polehodnota
'V': then polehodnota=polehodnota
)
muzete mi napovedet prikaz a ukazat malou ukazku?
Dekuji prevelice
OT:(Dekuji za veskere odpovedi k minulym dotazum na FB,nestiham dekovat na
kazdou odpoved,tak podekuji alespon takto)
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
CASE V FB
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 27.7.2002 11:16:50
Ahoj,
> Aldik(zv)quick(tec)cz 27.7.02 1:08 >>>
>Existuje neco jako je CASE v MS SQL SERVERU i na FB..?
>Select
>Sum(
> case Prijem_vydej
> 'P': then polehodnota=-polehodnota
> 'V': then polehodnota=polehodnota
> )
na MSSQL by to bylo nejak takhle
SELECT SUM(CASE PrijemVydej
WHEN 'P' THEN -Neco
WHEN 'V' THEN Neco
END) Suma
FROM Tabulka
nebo jiny priklad
SELECT SUM(CASE
WHEN PoleNeco > 100 AND PoleNeco < 1000 THEN NejakePole
ELSE NejakePole * 100
END) SUM
FROM Tabulka
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
nejde SUM & JOIN
[*] bleak <bleak(zv)atlas(tec)cz> - 27.7.2002 11:46:20
zdravim,
potrebuji vybrat z tabulky zakazniku zaznam a pripojit k nemu soucet plateb
z tabulky plateb.
Tento dotaz nefunguje:
SELECT zk.*, SUM(pl.castka) FROM zakaznik zk
JOIN platby pl ON zk.id_klienta=pl.id_klienta
WHERE pl.id_klienta=3061
GROUP BY pl.id_klienta
SQL error code = -104 invalid column reference.
Jak ma vypadat spravny dotaz?
bleak
Skryti TabSheet ouska
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 27.7.2002 12:35:55
V jedne aplikaci (Zoom Player) je PageControl, ktery ma skryta ouska
TabSheetu. Toto by se mi hodilo kvuli prehlednosti (kdyz je TabSheetu vic
jak 15) s tim, ze jmena bych mel treba v ListView. Ale nemuzu na to prijit.
Neresil jste to nekdo? Diky Ober
CASE V FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 27.7.2002 14:16:39
Haj hou!
On 27 Jul 2002 at 1:08, Ales Pavel wrote:
> Existuje neco jako je CASE v MS SQL SERVERU i na FB..?
> Potrebuji zobrazit nejake hodnoty pokud jsou napriklad v dannem intervalu
Zatim ne, ale nekde jsem videl podobnou UDF, jen si uz nepamatuju kde.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Skryti TabSheet ouska
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 27.7.2002 15:03:02
TabSheet1.TabVisible := False;
David
V jedne aplikaci (Zoom Player) je PageControl, ktery ma skryta ouska
TabSheetu. Toto by se mi hodilo kvuli prehlednosti (kdyz je TabSheetu vic
jak 15) s tim, ze jmena bych mel treba v ListView. Ale nemuzu na to prijit.
Neresil jste to nekdo? Diky Ober
Skryti TabSheet ouska
[*] Roman Pagac <PagacR(zv)servonic.de> - 27.7.2002 15:12:20
Servus Peter!
Kazdy tabsheet ma property TabVisible (boolean) a Visible (boolean). Ak
nastavis TabVisible na False a Visible na True, tak bude dany TabSheet
zobrazeny na PageControli alebo "usko" mu vidiet nebude.
Roman.
> -----Original Message-----
> From: Obermaier Petr Ing. [mailto:Obermaier(zv)mail.sdas(tec)cz]
> Sent: Samstag, 27. Juli 2002 12:36
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: Skryti TabSheet ouska
>
>
> V jedne aplikaci (Zoom Player) je PageControl, ktery ma skryta ouska
> TabSheetu. Toto by se mi hodilo kvuli prehlednosti (kdyz je
> TabSheetu vic
> jak 15) s tim, ze jmena bych mel treba v ListView. Ale nemuzu
> na to prijit.
>
> Neresil jste to nekdo? Diky Ober
>
stored proc na server & runtime
[*] bleak <bleak(zv)atlas(tec)cz> - 27.7.2002 16:50:04
zdravim,
umim vytvorit STORED PROCEDUREs pres manazer IBConsole, kde ji napisu jako
SQL dotaz. Ale jak ji vytvorim a ulozim na server za behu programu? Kdyz
vezmu extractovana metadata procedury a dam ji do property SQL komponenty
IBSQL, tak to nejde... hlasi hned na zacatku, ze nezna SET (SET TERM).
bleak
Prace s TList. Jak najit zaznam.
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 27.7.2002 19:05:56
Zdravim,
Mam takovouto deklaraci:
type
PUserRights = ^AList;
Alist = Record
Table : String;
Select : Boolean;
Insert : Boolean;
Update : Boolean;
Delete : Boolean;
end;
var
RUsers : TList;
AUsers : PUserRights;
RUsers si plnim dle zjistenych pristupovych prav na SQL serveru. Pokud vsak ma prihlaseny uzivatel pravo pro Select do tabulky Company, ale je clenem skupiny ktera ma Select nad tabulkou Company zakazan. Mam v RUsers dva takoveto zaznamy:
AUsers.Table = 'Company' ale jeden ma AUsers.Select = True a druhy AUsers.Select = False.
Nyni premyslim jak to vyresit. Napadlo mne po naplneni RUsers zkontrolovat vsechny zaznamy pomoci for cyklu, jenze to by znamenalo pouzit vnoreny for cyklus, coz by pri vetsim poctu Itmes v TList mohlo znacne prodlouzit cas potrebny pro kontrolu. Hledam tedy nejaky vhodny algoritmus, ktery by mi umoznil vyhledavat v TList, dle hodnot. Neco co by mi umoznilo vyhodit z TListu zaznam kde AUsers.Select = True, pokud bude nalezen zaznam kde AUsers.Select = False, samozrejme pokud u obou bude stejna hodnota AUsers.Table.
Diky za cas,
David Michal
stored proc na server & runtime
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 27.7.2002 19:14:25
On 27 Jul 2002 at 16:50, bleak wrote:
> zdravim,
> umim vytvorit STORED PROCEDUREs pres manazer IBConsole, kde ji napisu jako
> SQL dotaz. Ale jak ji vytvorim a ulozim na server za behu programu? Kdyz
> vezmu extractovana metadata procedury a dam ji do property SQL komponenty
> IBSQL, tak to nejde... hlasi hned na zacatku, ze nezna SET (SET TERM).
ja na to pouzivam komponentu IBScript
napr.
IBScript1.Script := SynEdit.Lines;
IBScript1.ExecuteScript;
Jarek Uher
Prace s TList. Jak najit zaznam.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.7.2002 20:15:02
From: "David Michal" <david.michal(zv)czechwireless(tec)cz>
> Mam takovouto deklaraci:
> type
> PUserRights = ^AList;
> Alist = Record
Pokud to ukladas to TListu tak by bylo jednodusi z toho udelat objekt a pouzit
TObjectList, usetris si praci s uvolnovanim tech zaznamu.
> cyklus, coz by pri vetsim poctu Itmes v TList mohlo znacne prodlouzit cas
> potrebny pro kontrolu. Hledam tedy nejaky vhodny algoritmus, ktery by mi
Zalezi na tom, kolik tam chces mit tech polozek. TList neni SQL databaze,
takze to je vcelku rychle.
Petr Vones
CASE V FB
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 28.7.2002 0:42:18
Aldik ted:
No diky a kde je obvykla rada profesionala:-)))?
Jak to resis ty?
FB Guru Pavel Cisar:
> Zatim ne, ale nekde jsem videl podobnou UDF, jen si uz nepamatuju kde.
Aldik davno:
> > Existuje neco jako je CASE v MS SQL SERVERU i na FB..?
> > Potrebuji zobrazit nejake hodnoty pokud jsou napriklad v dannem intervalu
Aldik Pavel
WXP D6Ent
Zamykani zaznamu ve FB
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 28.7.2002 08:29:40
Jak zamknu zaznam (ve FB) v pripade ze ho zrovna edituje nejaky uzivatel.Je
dost pitome aby si chudaci mrsili data navzajem. Kdyz si predstavim
napr.odberatele,kde jeden clovek doplni telefon,druhy cislo uctu a nakonec
tam bude jen nove cislo uctu nebo jen telefon,podle toho kdo to ulozi
pozdeji.
OT: Ty lidi dnes nic nevydrzej - nepracujou v sobotu a v nedeli:-)
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Multiselect v dbgridu
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 28.7.2002 12:20:52
Kde najdu hodnoty vybranych polozek v z vybranych polozek multiselectu
DBGridu.
Nejak jsem to jeste nikdy nepotreboval a ted tapu...
dekuji moc
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Zamykani zaznamu ve FB
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 28.7.2002 12:33:11
Ahoj,
On 28 Jul 2002 at 8:29, Ales Pavel wrote:
> Jak zamknu zaznam (ve FB) v pripade ze ho zrovna edituje nejaky uzivatel.Je
> dost pitome aby si chudaci mrsili data navzajem. Kdyz si predstavim
> napr.odberatele,kde jeden clovek doplni telefon,druhy cislo uctu a nakonec
> tam bude jen nove cislo uctu nebo jen telefon,podle toho kdo to ulozi
> pozdeji.
IMHO zamykani zaznamu se nedoporucuje, projdi si archiv
konference. Uz se kolem toho napsalo dost.
> OT: Ty lidi dnes nic nevydrzej - nepracujou v sobotu a v nedeli:-)
to vis, radeji jsou u vody :-)
Jarek Uher
Multiselect v dbgridu
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 28.7.2002 15:18:37
Ahoj,
> Aldik(zv)quick(tec)cz 28.7.02 12:20 >>>
>Kde najdu hodnoty vybranych polozek v z vybranych polozek multiselectu DBGridu.
podivej se do napovedy u DBGridu na SelectedRows a u DataSetu na metodu GotoBookmark, mas tam i prikladek
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Zamykani zaznamu ve FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 28.7.2002 17:45:45
Hello, Jaroslav!
You wrote:
>> Jak zamknu zaznam (ve FB) v pripade ze ho zrovna edituje nejaky
>> uzivatel.Je dost pitome aby si chudaci mrsili data navzajem. Kdyz si
>> predstavim napr.odberatele,kde jeden clovek doplni telefon,druhy cislo
>> uctu a nakonec tam bude jen nove cislo uctu nebo jen telefon,podle toho
>> kdo to ulozi pozdeji.
JU> IMHO zamykani zaznamu se nedoporucuje, projdi si archiv
JU> konference. Uz se kolem toho napsalo dost.
Nic spatneho na tom neni.
Staci jen kdyz na zacatku udelas "prazdnyj" update.
UPDATE MyTable SET ID=ID;
Tim padem, pokud nekdo jiny pokusi se stejnyj zaznam
editovat vznikne LOCK CONFLICT, ktery hned poznas.
With best regards, Alex Cherednichenko.
Zamykani zaznamu ve FB
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 28.7.2002 20:06:46
On 28 Jul 2002 at 17:45, Alex Cherednichenko wrote:
> Hello, Jaroslav!
> You wrote:
>
> >> Jak zamknu zaznam (ve FB) v pripade ze ho zrovna edituje nejaky
> >> uzivatel.Je dost pitome aby si chudaci mrsili data navzajem. Kdyz si
> >> predstavim napr.odberatele,kde jeden clovek doplni telefon,druhy cislo
> >> uctu a nakonec tam bude jen nove cislo uctu nebo jen telefon,podle toho
> >> kdo to ulozi pozdeji.
>
> JU> IMHO zamykani zaznamu se nedoporucuje, projdi si archiv
> JU> konference. Uz se kolem toho napsalo dost.
>
> Nic spatneho na tom neni.
> Staci jen kdyz na zacatku udelas "prazdnyj" update.
> UPDATE MyTable SET ID=ID;
> Tim padem, pokud nekdo jiny pokusi se stejnyj zaznam
> editovat vznikne LOCK CONFLICT, ktery hned poznas.
no me se daleko vice libi takovy postup:
pred UPDATE udelam jeste jeden SELECT na zaznam (jedno, max.
dve pole) a zjistim zda jej mezitim nekdo nezmenil (chce to mit ovsem
v tabulce nejake pole, podle ktereho to mohu jednoduse zjistit) a v
pripade zmeny zaznamu z jine stanice to oznamim uzivateli.
Jarek Uher
CASE V FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 28.7.2002 20:24:53
Haj hou!
On 28 Jul 2002 at 0:42, Ales Pavel wrote:
> Aldik ted:
> No diky a kde je obvykla rada profesionala:-)))?
> Jak to resis ty?
Kdyz uz je neco podobneho treba, tak napr. ulozenou select procedurou (se
suspend). V ramci for select je mozne delat ruzne testy a naplnit prislusnym
zpusobem vystupni polozky. pripoustim ze to neni tak elegantni, ani tak efektivni,
nicmene to funguje :)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Prace s TList. Jak najit zaznam.
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 28.7.2002 22:15:41
From: "David Michal" <david.michal(zv)czechwireless(tec)cz>
> Mam takovouto deklaraci:
> type
> PUserRights = ^AList;
> Alist = Record
>From guru Petr Vones:
>Pokud to ukladas to TListu tak by bylo jednodusi z toho udelat objekt a
pouzit
>TObjectList, usetris si praci s uvolnovanim tech zaznamu.
Promin ze ja drze delphi dite zasahuji do diskuze...ale
Nejak nerozumim....mozna to blbe chapu,ale jak si usetri praci s
uvolnovanim?
record je mensi a muze se udelat jako pointer (PUserRights). Jina situace
ale bude pokud tam uvazes fci na vyhledavani (viz. dotaz) pak objekt bude
mit vyznam.
Jak ale rikam asi te blbe chapu vysvetli mi to prosiiiim..jsem zvedavej jak
vopice:-)> cyklus, coz by pri vetsim poctu Itmes v TList mohlo znacne prodlouzit cas
> potrebny pro kontrolu. Hledam tedy nejaky vhodny algoritmus, ktery by mi
>From guru Petr Vones:
>Zalezi na tom, kolik tam chces mit tech polozek. TList neni SQL databaze,
>takze to je vcelku rychle.
Ano to je pravda....:-))))
Shalom shalom
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Prace s TList. Jak najit zaznam.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2002 22:46:47
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Nejak nerozumim....mozna to blbe chapu,ale jak si usetri praci s
> uvolnovanim?
> record je mensi a muze se udelat jako pointer (PUserRights). Jina situace
Jiste, pointer na nejakou strukturu alokovanou v pameti, kterou pak stejne
musis nejak uvolnit. Objekt (jeho instance) je ve skutecnosti taky jen
pointer, akorat ze ta prace je s nim jednodusi, navic pri pouziti TObjectList
se o to nemusis starat vubec.
Petr Vones
socket info
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2002 22:47:58
From: "Tomas Kminek" <tomas.kminek(zv)atlas(tec)cz>
> Musi to jit i jinak. Ta fce je az v WinXP, takze ten priklad na nizsich
> verzich nevraci jmeno, narozdil od programu TCPView (tamtez). Ten by snad
Ve Windows 2000 je AllocateAndGetTcpTableFromStack, takze mam podezreni ze se
nejak pouziva tato nedokumentovana funkce.
Petr Vones
error logging
[*] Jan Scheuer <jan.scheuer(zv)email(tec)cz> - 28.7.2002 23:30:14
Nevi nekdo o free komponente, ktera inteligentne loguje exceptions s
informacemi o miste vyskytu atp? Dekuji.
error logging
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2002 23:39:55
From: "Jan Scheuer" <jan.scheuer(zv)email(tec)cz>
> Nevi nekdo o free komponente, ktera inteligentne loguje exceptions s
> informacemi o miste vyskytu atp? Dekuji.
JclDebug v JCL: http://delphi-jedi.org/Jedi:CODELIBJCL
Stucny postup:
- stahni si posledni verzi JCL 1.21:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=100652
- rozbal do nejakeho adresare (napriklad C:\JCL)
- ukonci Delphi a spust C:\JCL\Install.bat a pak zvol Install
- spust Delphi, otevri v nem tvoji aplikaci. V te aplikaci odstran pripadny
kod, ktery jsi doposud pouzival k logovani vyjimek (udalost
Application.OnException)
- v menu zvol: New -> Dialogs -> Exception Dialog -> OK
- dialog uloz pod nejakym nazvem (treba ExceptionDialog.pas). Pokud chces
chyby logovat i do souboru, tak u toho dialogu nastav vlastnost Tag = 1
- v Project | Options -> Linker zapni Map file - Detailed
- udelej Build projektu
V tomto okamziku by to jiz melo fungovat. Pokud nechces pouzivat MAP file, tak
si dal precti Readme, tam jsou popsany dalsi zpusoby jak pridat potrebna data
do aplikace. V aplikaci se ti pri pripadne vyjimce zaobrazi takovyto dialog:
http://www.volweb(tec)cz/pvones/jedi/ExceptDlg.png
Samozrejme si to cele muzes upravit dle potreby, priklady najdes v adresari
\examples, JCL 1.21 podporuje i logovani vyjimek z DLL.
Petr Vones
MessageDlg s podporou narodneho prostredia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2002 23:46:22
From: "�tevl�k Mari�n" <Marian.Stevlik(zv)merlin(tec)cz>
> Ale i tak je tam stale rozdiel, v MessageDlg viem zadat HelpContext, ako mam
> zadat tento parameter pri MessageBoxe?
Napis si vlastni funkci, ktera bude volat Application.MessageBox a predtim
jeste provede Application.HookMainWindow, kde si odchytis WM_HELP zpravu z
toho dialogu. Do te funkce pak jen predas navic i HelpContext a zavolas
pozadovanou funkci jako reakci na WM_HELP, kde predas prave ten HelpContext.
Implementace pak zalezi na verzi Delphi ktere pouzivas.
Petr Vones
doba behu aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.2002 23:56:16
From: "Milan Cizek" <Cizek.Milan(zv)seznam(tec)cz>
> da se nejak zjistit doba behu me aplikace tak, jak to ukazuje napr.task
> manager? Diky
Task Manager neukazuje dobu behu aplikace, ale dobu kterou dany proces nejakym
zpusobem vyuzival procesor. Aplikace typicky vetsinu casu nic nedelaji ;-)
Muzes to ziskat pomoci funkce GetProcessTimes nebo Performance Data Helper,
konverzi a priklady najdes tady: http://delphi-jedi.org/Jedi:APILIBRARY
Petr Vones
MessageDlg s podporou narodneho prostredia
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.7.2002 23:57:58
VGFreSBtdXplcyBwb3V6aXQgbG9rYWxpemFjaSByZXRlemN1IChrZHlzaSByYWR0dXNpbSBpbCBQ
ZXRyIFZvbmVzIDotKQ0KDQpaZGUgamUgdXByYXZlbmEgdmVyemUuIFN0YWNpIHNwdXN0aXQgdnpk
eSBwbyB6bWVuZSBqYXp5a2EuDQoNCnstLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KICBQcmVwc2FuaSByZXNvdXJjZSB2IGRp
YWxvemljaA0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tfQ0KcHJvY2VkdXJlIExvY2FsaXplUmVzU3RyaW5ncyhjb25zdCBT
dHJpbmdzOiBhcnJheSBvZiBUTG9jYWxpemVSZXNTdHJpbmcpOw0KdmFyDQogIEk6IEludGVnZXI7
DQogIE9sZFByb3RlY3QsIER1bW15OiBEV09SRDsNCmJlZ2luDQogIGZvciBJIDo9IExvdyhTdHJp
bmdzKSB0byBIaWdoKFN0cmluZ3MpIGRvDQogICAgd2l0aCBTdHJpbmdzW0ldIGRvDQogICAgYmVn
aW4NCiAgICAgIFdpbjMyQ2hlY2soVmlydHVhbFByb3RlY3QoUmVzU3RyaW5nLCBTaXplT2YoVFJl
c1N0cmluZ1JlYyksDQogICAgICAgICAgUEFHRV9SRUFEV1JJVEUsIE9sZFByb3RlY3QpKTsNCiAg
ICAgIHRyeQ0KICAgICAgICBSZXNTdHJpbmdeLklkZW50aWZpZXIgOj0gSW50ZWdlcihQQ2hhcihM
b2NhbGl6ZWRUZXh0KSk7DQogICAgICBmaW5hbGx5DQogICAgICAgIFZpcnR1YWxQcm90ZWN0KFJl
c1N0cmluZywgU2l6ZU9mKFRSZXNTdHJpbmdSZWMpLCBPbGRQcm90ZWN0LCBEdW1teSk7DQogICAg
ICBlbmQ7DQogICAgZW5kOw0KZW5kOw0KDQp7LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCiAgTG9rYWxpemFjZSBkaWFsb2d1
DQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS19DQpwcm9jZWR1cmUgTG9jYWxpemVEaWFsb2dzOw0KdmFyDQogIFJlc1N0cmlu
Z3M6IGFycmF5WzAuLjddIG9mIFRMb2NhbGl6ZVJlc1N0cmluZzsNCmJlZ2luDQogIFJlc1N0cmlu
Z3NbMF0uUmVzU3RyaW5nIDo9IEBTTXNnRGxnWWVzOw0KICBSZXNTdHJpbmdzWzBdLkxvY2FsaXpl
ZFRleHQgOj0gcnNfWWVzOw0KICBSZXNTdHJpbmdzWzFdLlJlc1N0cmluZyA6PSBAU01zZ0RsZ05v
Ow0KICBSZXNTdHJpbmdzWzFdLkxvY2FsaXplZFRleHQ6PSByc19ObzsNCiAgUmVzU3RyaW5nc1sy
XS5SZXNTdHJpbmcgOj0gQFNNc2dEbGdXYXJuaW5nOw0KICBSZXNTdHJpbmdzWzJdLkxvY2FsaXpl
ZFRleHQ6PSByc19XYXJuaW5nIDsNCiAgUmVzU3RyaW5nc1szXS5SZXNTdHJpbmcgOj0gQFNNc2dE
bGdFcnJvcjsNCiAgUmVzU3RyaW5nc1szXS5Mb2NhbGl6ZWRUZXh0Oj0gcnNfRXJyb3I7DQogIFJl
c1N0cmluZ3NbNF0uUmVzU3RyaW5nIDo9IEBTTXNnRGxnSW5mb3JtYXRpb247DQogIFJlc1N0cmlu
Z3NbNF0uTG9jYWxpemVkVGV4dDo9IHJzX0FzdGVyaXNrOw0KICBSZXNTdHJpbmdzWzVdLlJlc1N0
cmluZyA6PSBAU01zZ0RsZ0NvbmZpcm07DQogIFJlc1N0cmluZ3NbNV0uTG9jYWxpemVkVGV4dDo9
IHJzX1F1ZXN0aW9uOw0KICBSZXNTdHJpbmdzWzZdLlJlc1N0cmluZyA6PSBAU01zZ0RsZ0FsbDsN
CiAgUmVzU3RyaW5nc1s2XS5Mb2NhbGl6ZWRUZXh0Oj0gcnNfQWxsOw0KICBSZXNTdHJpbmdzWzdd
LlJlc1N0cmluZyA6PSBAU01zZ0RsZ0NhbmNlbDsNCiAgUmVzU3RyaW5nc1s3XS5Mb2NhbGl6ZWRU
ZXh0Oj0gcnNfQ2FuY2VsOw0KICBMb2NhbGl6ZVJlc1N0cmluZ3MoUmVzU3RyaW5ncyk7DQplbmQ7
DQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjI4Ljcu
MjAwMiBQZXRyIFZvbmVzOg0KPiBGcm9tOiAiqXRldmztayBNYXJp4W4iIDxNYXJpYW4uU3Rldmxp
a0BtZXJsaW4uY3o+DQo+PiBBbGUgaSB0YWsgamUgdGFtIHN0YWxlIHJvemRpZWwsIHYgTWVzc2Fn
ZURsZyB2aWVtIHphZGF0IEhlbHBDb250ZXh0LCBha28gbWFtDQo+PiB6YWRhdCB0ZW50byBwYXJh
bWV0ZXIgcHJpIE1lc3NhZ2VCb3hlPw0KDQo+IE5hcGlzIHNpIHZsYXN0bmkgZnVua2NpLCBrdGVy
YSBidWRlIHZvbGF0IEFwcGxpY2F0aW9uLk1lc3NhZ2VCb3ggYSBwcmVkdGltDQo+IGplc3RlIHBy
b3ZlZGUgQXBwbGljYXRpb24uSG9va01haW5XaW5kb3csIGtkZSBzaSBvZGNoeXRpcyBXTV9IRUxQ
IHpwcmF2dSB6DQo+IHRvaG8gZGlhbG9ndS4gRG8gdGUgZnVua2NlIHBhayBqZW4gcHJlZGFzIG5h
dmljIGkgSGVscENvbnRleHQgYSB6YXZvbGFzDQo+IHBvemFkb3Zhbm91IGZ1bmtjaSBqYWtvIHJl
YWtjaSBuYSBXTV9IRUxQLCBrZGUgcHJlZGFzIHByYXZlIHRlbiBIZWxwQ29udGV4dC4NCj4gSW1w
bGVtZW50YWNlIHBhayB6YWxlemkgbmEgdmVyemkgRGVscGhpIGt0ZXJlIHBvdXppdmFzLg0KDQo+
IFBldHIgVm9uZXMNCiA=
problem s RXLib 2.75
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 29.7.2002 00:12:45
Stahnul jsem si naivne komponenty RX z torry.net a mam ted jeden velky
problem,kdyz zalozim novy projekt tak mi jde RXDBGrid zkompilovat jenze jak
ho pridam do uz existujiciho projektu zacne mi to rvat neco v tom smyslu,ze
neexistuje promenna IsDataSetEmpty,proste se tam asi nenactou vsechny
komponenty a to i kdy vytvorim novy cisty form na na nej RXDBGRid
pridam...nevite nekdo kde je problem,jsem uz bezradnej...,
Mam D6Ent a WXP....
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
problem s RXLib 2.75
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2002 00:16:53
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Stahnul jsem si naivne komponenty RX z torry.net a mam ted jeden velky
RxLib se pripojila k JEDI-VCL: http://sourceforge.net/projects/jvcl
Petr Vones
Prace s TList. Jak najit zaznam.
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 29.7.2002 00:25:34
Aha vim ze Objekt je taky pointer,to uz jsem nekde cetl,to chapu,ale v cem
je ta "jednoduchost" prace s objektem
pointer uvolnis pomoci finalize ne? Nehlede k tomu ze velikost alokovaneho
prostoru recordu je mensi nez objektu,alespon jsem mel ten dojem....
Neber to tak ze poradam hon na Gurua Petra Vonese :-) jen bych se o vztahu
record,class chtel vice dozvedet do podrobnosti a poradne si to
vyjasnit,protoze zrovna v tehle oblasti tapu:-(((
TObjectList??Co vsechno umi???
Guru Petr Vones:
>Jiste, pointer na nejakou strukturu alokovanou v pameti, kterou pak stejne
>musis nejak uvolnit. Objekt (jeho instance) je ve skutecnosti taky jen
>pointer, akorat ze ta prace je s nim jednodusi, navic pri pouziti
TObjectList
>se o to nemusis starat vubec.
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Prace s TList. Jak najit zaznam.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.2002 00:40:56
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Aha vim ze Objekt je taky pointer,to uz jsem nekde cetl,to chapu,ale v cem
> je ta "jednoduchost" prace s objektem
> pointer uvolnis pomoci finalize ne?
Dobre, v pripade jednoduche struktury. U objektu ale staci vzdy zavolat jen
jeho destruktor, nehlede k tomu, ze objekt muzes i dale dedit, coz nelze u
bezneho recordu. Navic u objektu muzes pridanim dalsich vlastnosti rozsirit
dale funkcnost, coz muze by z hlediska navrhu lepsi reseni nez pak pridavat
nejake dalsi funkce, ktere jako parametr vyzaduji prave ten record. Samozrejme
jsou situace kdy je stale record postacujici, ale obecne bych spis pouzival
objekt.
> Nehlede k tomu ze velikost alokovaneho prostoru recordu je mensi nez
> objektu,alespon jsem mel ten dojem....
Ano, o 4 byty a to neni zase tolik (viz SizeOf a TObject.InstanceSize)
> TObjectList??Co vsechno umi???
Pouze to, ze objekt predany do toho seznamu bude na konci uvolnen, viz zdrojak
nebo dokumentace.
Petr Vones
stored proc na server & runtime
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 29.7.2002 07:13:06
On 27 Jul 2002 at 16:50, bleak wrote:
> umim vytvorit STORED PROCEDUREs pres manazer IBConsole, kde ji napisu
> jako SQL dotaz. Ale jak ji vytvorim a ulozim na server za behu
> programu? Kdyz vezmu extractovana metadata procedury a dam ji do
> property SQL komponenty IBSQL, tak to nejde... hlasi hned na zacatku,
> ze nezna SET (SET TERM).
Vsechno co takto nejde, lze udelat snadno (treba i vypinani a
zapinani triggeru z programu, prepisovani procedur:-) tak, ze se
vygeneruje script a pusti se na nej iSQL.
problem s RXLib 2.75
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 29.7.2002 08:00:14
Ahoj,
asi nemas dobre nastavene cesty na zdroje RX, nastav je v IDE.
Jaro B.
-----Original Message-----
From: Ales Pavel [mailto:Aldik(zv)quick(tec)cz]
Sent: Monday, July 29, 2002 12:13 AM
Subject: problem s RXLib 2.75
problem,kdyz zalozim novy projekt tak mi jde RXDBGrid zkompilovat jenze jak
ho pridam do uz existujiciho projektu zacne mi to rvat neco v tom smyslu,ze
neexistuje promenna IsDataSetEmpty,proste se tam asi nenactou vsechny
komponenty a to i kdy vytvorim novy cisty form na na nej RXDBGRid
pridam...nevite nekdo kde je problem,jsem uz bezradnej...,
IB a MS SQL
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 29.7.2002 08:11:27
Bez problemu...
Sroub
> Dobry den,
> jsme postaveni pred pozadavek dat na server, kde uz je MS SQL, jeste IB
pro nasi aplikaci.
> Mate s tim nekdo zkusenosti ?
>
> David Sauer
>
Multiselect v dbgridu
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 29.7.2002 08:33:17
Ahoj,
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i])); //tohle te bude posouvat po vybranych zaznamech
end;
David
Ahoj,
> Aldik(zv)quick(tec)cz 28.7.02 12:20 >>>
>Kde najdu hodnoty vybranych polozek v z vybranych polozek multiselectu DBGridu.
podivej se do napovedy u DBGridu na SelectedRows a u DataSetu na metodu GotoBookmark, mas tam i prikladek
Zamykani zaznamu ve FB
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 29.7.2002 08:49:23
Hello, Jaroslav!
You wrote:
[Sorry, skipped]
JU> no me se daleko vice libi takovy postup:
JU> pred UPDATE udelam jeste jeden SELECT na zaznam (jedno, max.
JU> dve pole) a zjistim zda jej mezitim nekdo nezmenil (chce to mit ovsem
JU> v tabulce nejake pole, podle ktereho to mohu jednoduse zjistit) a v
JU> pripade zmeny zaznamu z jine stanice to oznamim uzivateli.
Je to na nic :)
Protoze SELECT vrati ti posledni COMMITED stav.
Pokud prave ted' nekdo jiny edituje stejny zaznam,
timto spusobem to nezjistis.
With best regards, Alex Cherednichenko.
stored proc na server & runtime
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2002 08:55:09
Ahoj,
SET TERM je pro obsluzne programy, IB tento prikaz nezna. Zdrojak
teto procedury posli na server primo bez SET TERMu.
Slavek
On 27 Jul 2002 at 16:50, bleak wrote:
> umim vytvorit STORED PROCEDUREs pres manazer IBConsole, kde ji napisu
> jako SQL dotaz. Ale jak ji vytvorim a ulozim na server za behu
> programu? Kdyz vezmu extractovana metadata procedury a dam ji do
> property SQL komponenty IBSQL, tak to nejde... hlasi hned na zacatku,
> ze nezna SET (SET TERM).
>
> bleak
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Re[2]: Skryti constructoru
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 29.7.2002 09:20:52
> Napada mne, ze by sis jeste mhl ten puvodni constructor prepsat do
> private (samozrejme jako overload) a tim ho znepristupnit.
> ing. Pavel Zilinec
Tohle bohuzel nefunguje, protoze i tento constructor by musel byt
overload...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Spoluprace na projektu komunikace RS232, RS485
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 29.7.2002 09:30:32
Shanim nekoho z BRNA na spolupraci pri vyvoji aplikace pro seriovou
komunikaci pod D5 Pro. Ostatni pres soukromy e-mail zaplik(zv)volny(tec)cz
nejde SUM & JOIN
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 29.7.2002 09:35:59
Prvni co bych zkusil, je nahradit * vyctem sloupcu...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Tento dotaz nefunguje:
>
> SELECT zk.*, SUM(pl.castka) FROM zakaznik zk
> JOIN platby pl ON zk.id_klienta=pl.id_klienta
> WHERE pl.id_klienta=3061
> GROUP BY pl.id_klienta
>
> SQL error code = -104 invalid column reference.
> Jak ma vypadat spravny dotaz?
>
> bleak
Prace s TList. Jak najit zaznam.
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 29.7.2002 09:42:12
Nechci byt puntickar, ale neda mi to - zalezi totiz na tom, jestli opravdu
chces aby se uvolnili. Staci v constructoru predat v parametru AOwnsObjects
hodnotu false a ty objekty nebudou automaticky zruseny...
Jinak mas pochopitelne pravdu. Ja osobne bych to taky udelal jako objekt,
protoze s tim budu mit mnohem mene prace...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Pouze to, ze objekt predany do toho seznamu bude na konci
> uvolnen, viz zdrojak
> nebo dokumentace.
> Petr Vones
Zamykani zaznamu ve FB
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 29.7.2002 09:45:28
Ja to resim tak, ze mam v tabulce pole s hodnotou timestampu posledni zmeny.
V pripade opravy si toto pole nactu a pri ulozeni nejdrive kontroluji,
jestli je ma stejnou hodnotu. Pokud ne, tak ten zaznam nekdo zmenil a ja ho
nedovolim ulozit. Pochopitelne mam v te tabulce dalsi polozky, ktere mi
rikaji, kdo tuto zmenu provedl...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Jak zamknu zaznam (ve FB) v pripade ze ho zrovna edituje nejaky
> uzivatel.Je
> Ales Pavel
OT: Jak uzamknout zaznam v MSSQL?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 29.7.2002 09:47:50
Zdravim,
je to mozna banalni dotaz, ale nemam zkusenosti s DB.
Mam DB ktera obsahuje nejake doklady = hlavicka + polozky (napr. Dodaci listy).
Potreboval bych aby pokud uzivatel vstoupi do urciteho dokladu (editace hlavicky,
insert novych polozek,...) se tento doklad nejakym zpusobem uzamknul.
Zatim mne napada jen reseni pres temporary tabulku (jmeno tabulky + ID
dokladu), kterou bych pri kazdem vstupu do dokladu vytvoril pokud neexistuje,
pokud ano tak by to znamenalo, ze doklad jiz nekdo edituje.
V teto tabulce bych si uchovaval nejake podrobnejsi udaje o otevrenem dokladu (cas otevreni,
uzivatel,...).
Muzete mi poradit jestli je toto vhodne reseni nebo jsem uplne mimo misu?
Diky.
--
Best regards,
pilifs mailto:pilifs(zv)seznam(tec)cz
nejde SUM & JOIN
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 29.7.2002 09:48:33
a pak ji prislusne doplnit i v Group By
Sroub
> Prvni co bych zkusil, je nahradit * vyctem sloupcu...
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
>
> > Tento dotaz nefunguje:
> >
> > SELECT zk.*, SUM(pl.castka) FROM zakaznik zk
> > JOIN platby pl ON zk.id_klienta=pl.id_klienta
> > WHERE pl.id_klienta=3061
> > GROUP BY pl.id_klienta
> >
> > SQL error code = -104 invalid column reference.
> > Jak ma vypadat spravny dotaz?
> >
> > bleak
>
IB a MS SQL
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 29.7.2002 09:52:29
Potvrzuji - vpohode.
Tymi
Bez problemu...
Sroub
> Dobry den,
> jsme postaveni pred pozadavek dat na server, kde uz je MS SQL, jeste IB
pro nasi aplikaci.
> Mate s tim nekdo zkusenosti ?
>
> David Sauer
>
Jak na opravu chyb v IB databazi
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 29.7.2002 10:05:20
Ahoj,
po case se mi na vsech databazich (maji tak velikosti 50 - 150MB) objevuji chyby. Jestlize si spustim v ServerManageru "Database Validation" a nezaskrtnu "Validate record fragments" tak to nic nenajde. Kdyz to ale zaskrtnu, tak to najde nejake chyby a da mi moznost je opravit.Ja to potvrdim, IB neco udela a rekne ze je vse OK, ale kdyz validaci pustim znovu, tak to najde ty same chyby.
Nevite nekdo co s tim ?
Dik Tymi
Zamykani zaznamu ve FB
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 29.7.2002 10:20:02
> Je to na nic :)
> Protoze SELECT vrati ti posledni COMMITED stav.
Na nic to opravdu neni !!!!!!
Je naprosto v poradku, pokud mi vrati posledni COMMITED stav. Ja to dokonce
ocekavam. Pokud neco edituji, tak to poustim v transakci, kterou se snaznim
ukoncit co nejrychleji a nenechavam ji moc dlouho nastartovanou, takze se da
predpokladat, ze to co mi vrati SELECT je to co je v DB aktualni...
> Pokud prave ted' nekdo jiny edituje stejny zaznam,
> timto spusobem to nezjistis.
> With best regards, Alex Cherednichenko.
To je v poradku - potom to zahlasi chybu tomu druhemu co prave edituje....
Jde o to, jak je navrzena editace a prace s DB...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
P.S.: Jestli mas lepsi reseni tak se s tim. Ale rozhodne nechci mit locknuty
zaznam (co kdyz ho bude treba od nekud precist ???) a pochopitelne chci mit
uzavrenou transakci...
> [Sorry, skipped]
> JU> no me se daleko vice libi takovy postup:
> JU> pred UPDATE udelam jeste jeden SELECT na zaznam (jedno, max.
> JU> dve pole) a zjistim zda jej mezitim nekdo nezmenil (chce to
> mit ovsem
> JU> v tabulce nejake pole, podle ktereho to mohu jednoduse zjistit) a v
> JU> pripade zmeny zaznamu z jine stanice to oznamim uzivateli.
>
OT: Ako pridat ODBC driver pre MS Access ?
[*] Skywalker <skywalker(zv)stonline.sk> - 29.7.2002 10:33:32
Zdravim lidicky,
potrebujem pri instalacii doinstalovat do ODBC driver pre MS Access
databazi, ak ho tam uz nemaju. Poradte ako, ak niekto viete. Mam subor
*.mdb, ktory potrebujem, ale neviem to urobit tak, aby sa to tam pridalo.
Pri instalacii sa naistaluje BDE, ak tam uz nie je, ale ak nedoistalujem aj
ten mdb subor, app spadne. Ten driver instaluje napr. MS Office, ale ako by
som ho pridal ja to neviem. Potrebujem ho tam dat, lebo sa pouziva Access
databaza ako zdroj dat.
COM (Component Object Model)
[*] <delphin(zv)centrum.sk> - 29.7.2002 10:40:11
Zdravim!
Nemohli by ste mi niekto poslat odkazy pojednavujeco o
problematike COM (Component Object Model). Ako s tym pracovat a
taaak...
Dik
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
OT: Jak uzamknout zaznam v MSSQL?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.7.2002 10:51:19
S tim zamykanim to neni nejlepsi napad.
Co budes delat, pokud ti padne spojeni a ty zaznamy v te temp tabulce
zustanou ?
Lepsi reseni je pri nacteni dokladu si nacist TimeStamp polozku
(nejake tve pole), tu si zapamatovat a pri ukladani zkontrolovat, zda
se nezmenila. Pokud ne, doklad zapisu a zapisu i novy TimeStamp.
Pokud ano, oznamim uzivateli, ze mu to mezitim nekdo zmenil a pokud
mam v tabulce i id uzivatele, jsem schopny mu rict i kdo to zmenil.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.7.2002 pilifs:
> Zdravim,
> je to mozna banalni dotaz, ale nemam zkusenosti s DB.
> Mam DB ktera obsahuje nejake doklady = hlavicka + polozky (napr. Dodaci listy).
> Potreboval bych aby pokud uzivatel vstoupi do urciteho dokladu (editace hlavicky,
> insert novych polozek,...) se tento doklad nejakym zpusobem uzamknul.
> Zatim mne napada jen reseni pres temporary tabulku (jmeno tabulky + ID
> dokladu), kterou bych pri kazdem vstupu do dokladu vytvoril pokud neexistuje,
> pokud ano tak by to znamenalo, ze doklad jiz nekdo edituje.
> V teto tabulce bych si uchovaval nejake podrobnejsi udaje o otevrenem dokladu (cas otevreni,
> uzivatel,...).
> Muzete mi poradit jestli je toto vhodne reseni nebo jsem uplne mimo misu?
> Diky.
OT: Jak uzamknout zaznam v MSSQL?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.7.2002 11:04:40
Ahoj,
jednak muzes pouzit transakce, druhak muzes pouzit timestamp. Oboji
viz BOL.
Slavek
On 29 Jul 2002 at 9:47, pilifs wrote:
> Zdravim,
> je to mozna banalni dotaz, ale nemam zkusenosti s DB.
> Mam DB ktera obsahuje nejake doklady = hlavicka + polozky (napr.
> Dodaci listy). Potreboval bych aby pokud uzivatel vstoupi do urciteho
> dokladu (editace hlavicky, insert novych polozek,...) se tento doklad
> nejakym zpusobem uzamknul.
> pilifs mailto:pilifs(zv)seznam(tec)cz
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.