Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 15.9.2004 13:53:04
>
> IBExpert i IBConsole mi pisi, ze PLAN not available
Jsou nejaky trigry, checky, nebo podobne veci nad tema tabulkama ?
Kolik indexu ?
Mozna by pomohlo, si vypsat kolik zabiraji jednotlive prikazy v tom
kodu.
>
> > > v libovolnem radku objevit chyba a nesmi byt vyrazeno vsech
> > > napr. 1000 zaznamu - nasypanim vsech insertu najednou do
> > > IBSQL a pak volat ExecQuery, by to vyskocilo do toho exceptu
> >
> > Tohle ani nejde ! To bys musel pozit skript componentu.
> Myslel jsem co do commit-u - tzn. 1000x dosadit vkladane
> hodnoty, vzdy provest ExecQuery a pak provest jednou az na
> konci commit. Co se stane, kdyz do parametru vlozim delsi
> retezec, nez ktery ma dany sloupec v tabulce? Spadne to pri
> ExecQuery a nebo pri commit? A co bude se zaznamama, ktery
> jsem do te doby ne-commit-oval?? Pri RollBack o ne prece
> musim prijit, ne?
Ne pokud nedas rollback :).
Kdyz vkladas jen jeden zaznam, tak nemusis vubec rollback pouzivat.
Neco jineho, kdyz vkladas/upravujes vice zaznamu, pak uz musis.
>
> Aha, zase ma chyba ve vyjadrovani. Rekl jsem "chybny insert"
> - ale myslel jsem ten radek z toho souboru, kde je napsano
> "insert into ....." - a tohle jsem myslel, ze se pokusim
> najit. Je jasne, ze pokud vybehne vyjimka, ja delam rollback,
> tak nic ulozeno neni - pri commit-u po 100 zaznamech a v
> pripade, ze bude chyba ve 100-em zaznamu to zpusobi, ze se
> neulozi ani tech predchozich OK 99 zaznamu. Takze pak jsem si
> myslel, ze bych opakoval prvnich 50 zaznamu, kdyz projdou jdu
> dal, kdyz ne, zkusim prvnich 25 atd. az se dopatram chybnyho
> zaznamu z toho souboru.
Viz predchozi podnet.
>
> > Slavek
> >
> > 2. Deaktivace indexu ti muze pomoci, ale take hooodne uskodit
> Vyzkousim - pokus x omyl - podle toho se rozhodnu
POZOR !!!!
Zasadni chyba !
Slozitost insert je priblizne log(n), kdezto slozitost vybudovani indexu
je cca n*log(n).
-> pokud budes rekneme v tabulce 1e6 zaznamu, tak se bude system chovat
UPLNE jinak, nez kdyz jich tam bude 100.
Pokud nevis co delas, nech indexy aktivni.
Deaktivovat indexy se vyplaci, pokud chces vylit a zase naplnit velkou
cast tabulky.
> > 4. Podivej se, co je to Force Writes
Jeste jednou se na tohle podivej ale abych ti poradil potrebuji
zodpovedet otazku 5 a 6.
Pokud je problem s diskem, tak ti muze vypnuti FW pomoci (ale protuduj
si, co to znamena!!!).
> > 5. Zkontroluj si, co zere vykon FB, nebo aplikace, nebo
> neco jineho ?
> Bohuzel ted nemohu otestovat
A proc ? Tohle je preci zasadni!
Otevri task manager (pokud je pravda ty WinXP, co uvadis) a podivej se
kdo zere CPU (pokud nekdo).
> > 6. Stoji to na IO operacich, nebo nz CPU ?
> Prace s tim souborem neni uzkym hrdlem, jak uz jsem rekl.
> Spis me k tomu vedlo, ze se snazim kus kodu optimalizovat,
> tak jsem to chtel udelat se vsim vsudy.
Jak tohle vis ? Mas preci dva soubory.
1. txt
2. gdb (databazi).
Dale je dulezite, aby FB bezel v pameti (defaultne vyuzije cca 100MB).
Dalsi podstatnou roli hraje, jestli je pristuk k FB exkluzivni, nebo je
tam vice uzivatelu ?
Jake je spojeni aplikace s FB ?
Bezi na jednom, nebo na vice strojich ?
Slavek
TObject vs. TComponent
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 15.9.2004 13:37:00
jharman(zv)volny(tec)cz wrote:
> Zdravim,
> mam svoji tridu odvozenou od TObject, ted bych potreboval aby pouzivala
> casovac, jenze ten chce pri vytvoreni jako Owner-a TComponent. To musim
> tu svou tridu odvodit od TComponent, nebo jak to resit? Diky Honza
A Ownera nil mu dat muzes?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
TObject vs. TComponent
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.9.2004 13:35:00
> mam svoji tridu odvozenou od TObject, ted bych potreboval aby
> pouzivala casovac, jenze ten chce pri vytvoreni jako Owner-a
> TComponent. To musim tu svou tridu odvodit od TComponent, nebo
> jak to resit? Diky
Owner moze byt aj nil:
constructor TMyObject.Create;
begin
inherited Create;
FTimer := TTimer.Create(nil);
end;
destructor TMyObject.Destroy;
begin
FTimer.Free;
inherited Destroy;
end;
HTH
TOndrej
TObject vs. TComponent
[*] jharman(zv)volny(tec)cz - 15.9.2004 13:22:57
Zdravim,
mam svoji tridu odvozenou od TObject, ted bych potreboval aby
pouzivala casovac, jenze ten chce pri vytvoreni jako Owner-a
TComponent. To musim tu svou tridu odvodit od TComponent, nebo
jak to resit? Diky
Honza
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 15.9.2004 13:04:55
> Od: Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz>
> Datum: 15.09.2004 11:50:08
>
> > IBSQL.Transaction.Close;
>
> Asi melo byt start transaction.
Samozrejme... Pardon
> Zasadni chyba !
> To jsou v tom souboru primo inserty, nebo jen data ?
> Pokud jsou tam jen data, tak se provede prepare PRED cyklem.
Jste ve shode s Ondrejem Kellem - predelavam to na pouze jeden prepare pred cyklem vkladani insertu.
> > IBSQL.ExecQuery;
>
> Vsechno hezke, ale co takle poslat co se zde deje ?
Nerozumim. Jak co se zde deje? Typ prikazu? Aha, to jsem opravdu ve svem dotazu neuvedl. Je tam neco jako:
Insert into table (field, field2, field3 atd. field10) values (hod, hod1, hod2 atd. hod10);
> 900 zaznamu trva na beznem HW asi tak 30 sec, takze neco je spatne.
No to evidentne je. ;-)
> odkazi na sve clanky o FB a zrychlovani na www.dbsvet(tec)cz,
> mozna ti pomohou. V kazdem pripade mne zajima PLAN.
IBExpert i IBConsole mi pisi, ze PLAN not available
> > v libovolnem radku objevit chyba a nesmi byt vyrazeno vsech
> > napr. 1000 zaznamu - nasypanim vsech insertu najednou do
> > IBSQL a pak volat ExecQuery, by to vyskocilo do toho exceptu
>
> Tohle ani nejde ! To bys musel pozit skript componentu.
Myslel jsem co do commit-u - tzn. 1000x dosadit vkladane hodnoty, vzdy provest ExecQuery a pak provest jednou az na konci commit. Co se stane, kdyz do parametru vlozim delsi retezec, nez ktery ma dany sloupec v tabulce? Spadne to pri ExecQuery a nebo pri commit? A co bude se zaznamama, ktery jsem do te doby ne-commit-oval?? Pri RollBack o ne prece musim prijit, ne?
> > - nacist cely soubor do pameti najednou a ne po radcich (do
> > nejakeho streamu - co a jak doporucujete?)
>
> Proboha proc ? Aby se sesypal system ?
No ne ze by to nemohlo nikdy nastat, ale... Vemu-li max. pocet zaznamu v jednotkach = 5000, ze jsem jeste nevidel vic jak 30 instalovanych jednotek, kazdy zaznam ma cca 80 byte-u -> max velikost souboru je 11,5 MB a to je opravdu stav, ktery s nejvetsi pravdepodobnosti nikdy nenastane.
> Over si, jestli tohle neni uzke hrdlo proste tim ze vyhodis VSECHNY
> opearce s FB.
Asi jsem se opet spatne vyjadril. 100% je uzkym hrdlem ten FB - resp. spatny navrh aplikace pri ukladani zaznamu do FB. Bez debaty. Pokud uz se ale snazim o optimalizaci casti kodu, tak jsem to chtel resit na max.
> > - pokud dojde k chybe, tak principem puleni intervalu najit
> > chybny insert Mate jeste nekdo nejaky napad? Diky Jirka
>
> Tohle je uplne nepochopeni systemu vyjimek v SQL.
> Pokud mas JEDEN insert, (tak jsem to pochopil i kdyz to neni
> nikde explicitne zmineno), tak pokud selze, tak selhal ten jeden
> jedinny insert a do DB se NIC neulozi.
Aha, zase ma chyba ve vyjadrovani. Rekl jsem "chybny insert" - ale myslel jsem ten radek z toho souboru, kde je napsano "insert into ....." - a tohle jsem myslel, ze se pokusim najit. Je jasne, ze pokud vybehne vyjimka, ja delam rollback, tak nic ulozeno neni - pri commit-u po 100 zaznamech a v pripade, ze bude chyba ve 100-em zaznamu to zpusobi, ze se neulozi ani tech predchozich OK 99 zaznamu. Takze pak jsem si myslel, ze bych opakoval prvnich 50 zaznamu, kdyz projdou jdu dal, kdyz ne, zkusim prvnich 25 atd. az se dopatram chybnyho zaznamu z toho souboru.
> Slavek
>
> PS:
> 1. Proved si upgrade na FB 1.5.1
> 2. Deaktivace indexu ti muze pomoci, ale take hooodne uskodit
Vyzkousim - pokus x omyl - podle toho se rozhodnu
> 3. FB umi nacitat data z TXT souboru pres externi tabulky
Tohle jsem nikdy nedelal... jeste nevim, jestli se dam touhle cestou
> 4. Podivej se, co je to Force Writes
> 5. Zkontroluj si, co zere vykon FB, nebo aplikace, nebo neco jineho ?
Bohuzel ted nemohu otestovat
> 6. Stoji to na IO operacich, nebo nz CPU ?
Prace s tim souborem neni uzkym hrdlem, jak uz jsem rekl. Spis me k tomu vedlo, ze se snazim kus kodu optimalizovat, tak jsem to chtel udelat se vsim vsudy.
Diky moc za podnety!
Jirka
Existuje nejake omezeni velikosti unity pro kompil
[*] Robert Vrsecky <robert.vrsecky(zv)softok(tec)cz> - 15.9.2004 12:30:53
Dobre odpoledne,
mam dotaz, jestli se nekdo z vas jeste nesetkal s jevem, ze kompilator neoznaci ve velke unite vsechny radky a navic ani nechce do ni vstoupit pri debuggingu. Mam Win XP a D5 Ent. Zkouseli jsme tento problem i na Win 2K a problem byl uplne stejny. Velikost unity je 1,3 MB. Nevite, cim by toto mohlo byt zpusobeno? Zajimave je, ze zkompilovana unita funguje bez problemu a do ostatni unity vstupuje debugger bez problemu. Je nejake omezeni velikosti unity? Jestli ano, jak velka unita muze byt, aby ji debugger vzal?
Diky
Robert Vrsecky
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 15.9.2004 12:12:51
> Od: Ondrej Kelle <o.kelle(zv)digitalpublishing.de>
> Datum: 15.09.2004 10:55:35
> Dalsia moznost je tiez pouzit externy subor ako tabulku (create table ...
> external), ak vies zabezpecit, aby bol subor v pozadovanom formate.
To me nenapadlo, zkusim to zvazit...
> Zaujimave je, ze ten subor na disku neobsahuje data, ale uz priamo SQL
> statementy. Je to naozaj potrebne? Vkladas tie udaje do roznych tabuliek?
No, jestli jsem to dobre pochpil, tak tohle mela byt univerzalni procedura, ktera mela ulozit cokoliv kamkoliv, takze ano, tohle bylo napsano schvalne tak.
> Bolo by omnoho vyhodnejsie ukladat do suboru len data (v nejakom formate) a
> pouzit parametrizovane SQL, ktore staci pripravit raz a potom uz len
> vykonavat s dosadenim hodnot
Na tom neco bude (hodne bude ;o)) Sice to bude znamenat zmenit univerzalni procedure na presne danou, ale to si mylsim, vzhledem k tomu, jak je to potreba, malickost.
Dalsim moznym ulehcenim by mohlo byt delat commit ne po kazdem insertu, ale po ca 100 (jak psal i Slavomir Skopalik)
> Dalsou moznostou by potom bolo pred celou operaciou docasne deaktivovat
> indexy, cim zabranis prebudovaniu aktivnych indexov pri kazdom inserte.
No, mylsenka mi probehla hlavou, ale co to udela, az je zaktivuju - nebude to brat vic casu?? To se asi neda rict takhle od stolu - vyzkousim, uvidim.
> To, ze na disk ukladas SQL, mi pripada skutocne divne. Pri kazdej zmene
> property SQL dochadza k Unprepare, takze pri naslednom ExecQuery sa opet
> vola Prepare, a to je podla mna problem.
No tak othle jsem napr. nevedel, takze tohle urcite pouziju!
> HTH
> TOndrej
Diky
Jirka
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 15.9.2004 11:30:48
> begin readln(f, s) try
> IBSQL.Transaction.Close;
Asi melo byt start transaction.
> IBSQL.Close;
> IBSQL.Text:=s;
> IBSQL.Prepare;
Zasadni chyba !
To jsou v tom souboru primo inserty, nebo jen data ?
Pokud jsou tam jen data, tak se provede prepare PRED cyklem.
> IBSQL.ExecQuery;
Vsechno hezke, ale co takle poslat co se zde deje ?
900 zaznamu trva na beznem HW asi tak 30 sec, takze neco je spatne.
> IBSQL.Trasaction.Commit;
> Inc(pocGood);
> except
> IBSQL.RollBack;
> Inc(pocError);
> logovani chyby...
> end;
> end;//while not f.EOF do
>
> Domnivam se, ze hodne sezere ten prepare a commit po kazdem
> insertu - je to tak? Proc je to tak napsano? Protoze se muze
Zde odkazi na sve clanky o FB a zrychlovani na www.dbsvet(tec)cz,
mozna ti pomohou. V kazdem pripade mne zajima PLAN.
> v libovolnem radku objevit chyba a nesmi byt vyrazeno vsech
> napr. 1000 zaznamu - nasypanim vsech insertu najednou do
> IBSQL a pak volat ExecQuery, by to vyskocilo do toho exceptu
Tohle ani nejde ! To bys musel pozit skript componentu.
> a ten by proveld rollback a hotovo - neni ulozeno nic. Ono
> ani nacitani zaznamu po jednom ze souboru neni buhvi jak
> optimalizovane. Cili me uvahy a cekam, jestli Vas nenapadne
> neco lepsiho:
> - nacist cely soubor do pameti najednou a ne po radcich (do
> nejakeho streamu - co a jak doporucujete?)
Proboha proc ? Aby se sesypal system ?
Over si, jestli tohle neni uzke hrdlo proste tim ze vyhodis VSECHNY
opearce s FB.
> - stanovit urcity pocet zaznamu - urcity vzorek a ten se
> pokusit ulozit najednou
Pokud ma na mysli commit co zhruba 100 zaznamu, tak to jo, tudy vede
jedna cesta.
> - pokud dojde k chybe, tak principem puleni intervalu najit
> chybny insert Mate jeste nekdo nejaky napad? Diky Jirka
Tohle je uplne nepochopeni systemu vyjimek v SQL.
Pokud mas JEDEN insert, (tak jsem to pochopil i kdyz to neni
nikde explicitne zmineno), tak pokud selze, tak selhal ten jeden
jedinny insert a do DB se NIC neulozi.
Slavek
PS:
1. Proved si upgrade na FB 1.5.1
2. Deaktivace indexu ti muze pomoci, ale take hooodne uskodit
3. FB umi nacitat data z TXT souboru pres externi tabulky
4. Podivej se, co je to Force Writes
5. Zkontroluj si, co zere vykon FB, nebo aplikace, nebo neco jineho ?
6. Stoji to na IO operacich, nebo nz CPU ?Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.9.2004 10:42:43
> Mam aplikaci, ktera provadi sber dat z jednotek. Tyto data si
> ulozi na HDD a pak nasleduje ukladani do IB/FB.
> Problem je v tom, ze tech zaznamu muze byt libovlne mnoho -
> podle toho, jak dlouho nebyl zaply ten program na stahovani
> zaznamu z jednotek. Nacteni zaznamu z jednotek a jejich
> ulozeni na HDD je i na pomalejsim PC v pohode, ale ulozeni
> cca 900 zaznamu (insertu) trvalo neco kolem hodiny!! Kdyz
> vemete v uvahu, ze tech jednotek je u jednoho klienta 20, tak
> je to des!
Predpokladam, ze najviac casu zaberie prave vkladanie udajov do databazy.
Citanie zo suboru by bolo mozne optimalizovat tiez, napriklad cez memory
mapped file, otazka je, ci sa oplati venovat tomu cas a usilie. Profilerom
zistis presnejsie, ktoru cast kodu treba zrychlit.
Dalsia moznost je tiez pouzit externy subor ako tabulku (create table ...
external), ak vies zabezpecit, aby bol subor v pozadovanom formate.
> Co s tim. Koukal jsem na kod, ktery napsal muj predchudce a
> rozhodne by to chtelo neco s nim udelat. Je to napsano cca takto:
> AssignFile (f, zaznam_s_daty_na_hdd);
> while not f.eof do
> begin
> readln(f, s)
> try
> IBSQL.Transaction.Close;
> IBSQL.Close;
> IBSQL.Text:=s;
> IBSQL.Prepare;
> IBSQL.ExecQuery;
> IBSQL.Trasaction.Commit;
> Inc(pocGood);
> except
> IBSQL.RollBack;
> Inc(pocError);
> logovani chyby...
> end;
> end;//while not f.EOF do
Zaujimave je, ze ten subor na disku neobsahuje data, ale uz priamo SQL
statementy. Je to naozaj potrebne? Vkladas tie udaje do roznych tabuliek?
Bolo by omnoho vyhodnejsie ukladat do suboru len data (v nejakom formate) a
pouzit parametrizovane SQL, ktore staci pripravit raz a potom uz len
vykonavat s dosadenim hodnot, napriklad:
IBSQL.Text := 'insert into mytable1 (field1, field2) values (:field1,
:field2)';
IBSQL.Prepare;
while not F.EOF do
begin
... nacitanie hodnot
IBSQL.Transaction.StartTransaction;
try
IBSQL.ParamByName('field1').As... := ...;
IBSQL.ParambyName('field2').As... := ...;
IBSQL.ExecQuery;
IBSQL.Transaction.Commit;
except
on E: Exception do
begin
IBSQL.Transaction.Rollback;
LogException(E);
end;
end;
end;
Dalsou moznostou by potom bolo pred celou operaciou docasne deaktivovat
indexy, cim zabranis prebudovaniu aktivnych indexov pri kazdom inserte.
Mena nesystemovych indexov tabulky (systemove sa totiz nedaju deaktivovat)
mozes ziskat takto:
select i.rdb$index_name from rdb$indices i
join rdb$relation_constraints c on (c.rdb$index_name = i.rdb$index_name)
where (i.rdb$relation_name = <table_name>) and not (c.rdb$constraint_type in
('FOREIGN KEY', 'PRIMARY KEY'));
Za <table_name> si samozrejme dosadis meno svojej tabulky. Toto pouzivam ja,
zatial uspesne.
Potom mozes pre kazdy z vratenych indexov volat jednoducho
alter index <index_name> inactive;
Po ukonceni operacie mozes indexy znova aktivovat podobnym postupom, akurat
zavolas
alter index <index_name> active;
To je zatial asi vsetko, co ma napada.
To, ze na disk ukladas SQL, mi pripada skutocne divne. Pri kazdej zmene
property SQL dochadza k Unprepare, takze pri naslednom ExecQuery sa opet
vola Prepare, a to je podla mna problem. Skus zvazit, ci sa to da zmenit
tak, aby v subore boli iba data, a potom pouzit SQL s parametrami.
HTH
TOndrej
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] delphin(zv)post(tec)cz - 15.9.2004 10:36:42
> - nacist cely soubor do pameti najednou a ne po radcich (do nejakeho
streamu - co a jak doporucujete?)
Nacist cely soubor najednou do MemoryStreamu je samozrejmost.
> - stanovit urcity pocet zaznamu - urcity vzorek a ten se pokusit ulozit
najednou
> - pokud dojde k chybe, tak principem puleni intervalu najit chybny insert
Zkuste vkladat zaznamy treba po deseti a kdyz dojde k chybe, tak pote resit,
ktery je spatne.
A nebo takhle:
1) Vlozit vsechny data najednou bez nejake kontroly do pomocne tabulky
2) Zavolat stored proceduru, ktera provede prekopirovani dat z pomocne
tabulky tam kam patri.
3) Uspesnost vlozeni jednotlivych radku zaznamena v te pomocne tabulce
Zadost o pomoc pri optimalizaci kodu - cteni ze so
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 15.9.2004 09:44:39
Ahoj!
Uz delsi dobu premyslim jak napsat/popsat problem, abych to nemusel rozebirat cele a pritom jste meli dostatek informaci pro to, abyste mi mohli pomoct.
Mam aplikaci, ktera provadi sber dat z jednotek. Tyto data si ulozi na HDD a pak nasleduje ukladani do IB/FB.
Problem je v tom, ze tech zaznamu muze byt libovlne mnoho - podle toho, jak dlouho nebyl zaply ten program na stahovani zaznamu z jednotek. Nacteni zaznamu z jednotek a jejich ulozeni na HDD je i na pomalejsim PC v pohode, ale ulozeni cca 900 zaznamu (insertu) trvalo neco kolem hodiny!! Kdyz vemete v uvahu, ze tech jednotek je u jednoho klienta 20, tak je to des!
Co s tim. Koukal jsem na kod, ktery napsal muj predchudce a rozhodne by to chtelo neco s nim udelat. Je to napsano cca takto:
AssignFile (f, zaznam_s_daty_na_hdd);
while not f.eof do
begin
readln(f, s)
try
IBSQL.Transaction.Close;
IBSQL.Close;
IBSQL.Text:=s;
IBSQL.Prepare;
IBSQL.ExecQuery;
IBSQL.Trasaction.Commit;
Inc(pocGood);
except
IBSQL.RollBack;
Inc(pocError);
logovani chyby...
end;
end;//while not f.EOF do
Domnivam se, ze hodne sezere ten prepare a commit po kazdem insertu - je to tak? Proc je to tak napsano? Protoze se muze v libovolnem radku objevit chyba a nesmi byt vyrazeno vsech napr. 1000 zaznamu - nasypanim vsech insertu najednou do IBSQL a pak volat ExecQuery, by to vyskocilo do toho exceptu a ten by proveld rollback a hotovo - neni ulozeno nic. Ono ani nacitani zaznamu po jednom ze souboru neni buhvi jak optimalizovane.
Cili me uvahy a cekam, jestli Vas nenapadne neco lepsiho:
- nacist cely soubor do pameti najednou a ne po radcich (do nejakeho streamu - co a jak doporucujete?)
- stanovit urcity pocet zaznamu - urcity vzorek a ten se pokusit ulozit najednou
- pokud dojde k chybe, tak principem puleni intervalu najit chybny insert
Mate jeste nekdo nejaky napad?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Delphi 8 trial chyba - compilacie ?
[*] Lauko Stefan <laukosw(zv)naex.sk> - 15.9.2004 09:34:37
Dobry den,
stiahol som D8 trial a neviem sa v tom pohnut. Na Win2000 mam vsetky SP a
UpDaty. Pri vytvoreni Windows Forms App. a naslednom spusteni my hlasi tuto
chybu.
[Fatal Error] Project1.dpr(1): Unit Borland.Delphi.System was compiled with
a different version of System.Diagnostics.Process
Vedel by ma niekto nakopnut? Potrebujem este nieco stiahnut?
Dakujem Lauko.Delphi 5 Ent. + Windows XP sp2
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 15.9.2004 09:16:36
Jedu D5 Ent cca tyden a (zatim) bez problemu.
Libor
----- Original Message -----
From: "Svoboda Jiri" <jsvoboda(zv)lekis(tec)cz>
Sent: Wednesday, September 15, 2004 8:38 AM
> mam dotaz ,zda ma nekdo zkusenost s instalaci ceskeho sp2 na XP a vlivem
> na
> D5 Ent.E-podpis
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 15.9.2004 09:14:36
Pokud si to chces udelat sam tak pomoci CryptoAPI(info v MSDN), jinak
existuji ruzna jiz hotova reseni (info na netu).
Libor
----- Original Message -----
From: "Radek Bernatek" <rbernatek(zv)seznam(tec)cz>
Sent: Wednesday, September 15, 2004 8:46 AM
> nevite jak v delphi udelat elektronicky podpis?Delphi 5 Ent. + Windows XP sp2
[*] delphi(zv)hon(tec)cz - 15.9.2004 09:04:35
Mam D7 Prof patchovanou
na WinXP Prof s XP2
na notebooku UMAX
a mohu rici, ze zcela bez problemu
i ten jejich firewall zda se funguje jak ma.
Takze ja bych se toho nebal. Spis bych se bal, ze mi
pri bootu z lokalni site neci blaster resetuje pocitac.
Martin
P.S. V SP2 je drobna chybicka (2x zalozka Automaticka aktualizace)
P.S.2. Shodou okolnosti mi v dobe uvolneni SP volali z Microsoftu,
jestli neco nechci a nemam-li zajem o zaslani CD s SP2. Manik byl
mirne zdesen kdyz jsem podekoval a rekl, ze uz jsem si ho stahnul.Delphi 5 Ent. + Windows XP sp2
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 15.9.2004 09:00:34
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Svoboda Jiri
Ahoj,
> mam dotaz ,zda ma nekdo zkusenost s instalaci ceskeho sp2 na
> XP a vlivem na
> D5 Ent.
> Zatim mam obavu sp2 instalovat,tak prosim o jakoukoli zkusenost.
D5 Pro i D7 Pro zda se po tydnu provozu s XPSP2 OK.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Delphi 5 Ent. + Windows XP sp2
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 15.9.2004 08:48:33
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Svoboda Jiri
> Sent: Wednesday, September 15, 2004 8:39 AM
>
> mam dotaz ,zda ma nekdo zkusenost s instalaci ceskeho sp2 na
> XP a vlivem na
> D5 Ent.
> Zatim mam obavu sp2 instalovat,tak prosim o jakoukoli zkusenost.
My ostatni zas cekame na to, az to vyzkousis a sve zkusenosti nam pak
sdelis. :-)
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
E-podpis
[*] Radek Bernatek <rbernatek(zv)seznam(tec)cz> - 15.9.2004 08:46:33
Ahoj,
nevite jak v delphi udelat elektronicky podpis?
Dik
Radek Bernatek
D6,7 W2000
Delphi 5 Ent. + Windows XP sp2
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 15.9.2004 08:38:32
Dobre rano,
mam dotaz ,zda ma nekdo zkusenost s instalaci ceskeho sp2 na XP a vlivem na
D5 Ent.
Zatim mam obavu sp2 instalovat,tak prosim o jakoukoli zkusenost.
Diky
JS
Delphi 5 Ent,MS SQL 2000
MDI a thready
[*] tomsir1.edu(zv)mail.cez(tec)cz - 15.9.2004 08:14:30
tak uz jsem na to prisel ... diky za nakopnuti ... spravne reseni je toto :
v threadu musim mit :
Uses MainFrm, ChildWin
a metodu TChildWin.UpdateProgress volat takto :
(MainForm.MDIChildren[0] as
TMDIChild).UpdateProgress(MaxValue,CurrentProgress) ;
Diky radek
MDIMainForm -> MDIChildForm -> Ridici Thread => Podrizene Thready ...
jak na to napasuju to cos napsal, tak aby se mi na MDIChildForm zmenil
ProgressBar ... ?
no, pokud mas
TForm1 = class(TForm)
ProgressBar1:TProgressBar1
.
.
.
end;
tak by mohlo fungovat TForm1(MDIChildren[2]).ProgressBar1
MDI a thready
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.9.2004 08:12:30
Aha.... ja myslel, ze jen nedokazes ze synchronizacni methody adresovat
okno...
no, jak... udelas to tak, ze do threadu, pri create predas, jako parametr
formular
a pri synchronizaci budes s tim formularem pracovat. Nebo nesychronizuj, ale
posilej
Tebou definovane zpravy.
Brona
>
> hm, tomu moc nerozumim ...
> jestlize mam :
>
> MDIMainForm -> MDIChildForm -> Ridici Thread => Podrizene
> Thready ...
> jak na to napasuju to cos napsal, tak aby se mi na
> MDIChildForm zmenil ProgressBar ... ?
>
> Diky Radek
>
>
>
>
>
> no, pokud mas
> TForm1 = class(TForm)
> ProgressBar1:TProgressBar1
> .
> .
> .
> end;
>
>
> tak by mohlo fungovat TForm1(MDIChildren[2]).ProgressBar1
>
>
>
>
>
>
>
>
>
>
>
> Dynamicke vytvareni controls na formulari
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 15.9.2004 08:00:29
Ahoj,
jasne ze to jde bude to asi neco takoveho:
var TabSheet2:TTabSheet;
TreeView:TTreeView;
begin
TabSheet2:=TTabSheet.Create(PageControl1);
Tabsheet2.PageControl:=PageControl1;
Tabsheet2.TabVisible := true;//Tohle myslim neni nutne
TabSheet2.Caption:='NEco';
TreeView:=TTreeView.Create(TabSheet2);
TreeView.Parent:=TabSheet2;
TreeView.Align:=alClient;
TreeView.OnClick:= //Zde priradis proceduru ktera ma deklaraci odpovidajici udalosti, v tomto pripade TNotifyEvent
end.
Petr
MDI a thready
[*] tomsir1.edu(zv)mail.cez(tec)cz - 15.9.2004 07:58:29
hm, tomu moc nerozumim ...
jestlize mam :
MDIMainForm -> MDIChildForm -> Ridici Thread => Podrizene Thready ...
jak na to napasuju to cos napsal, tak aby se mi na MDIChildForm zmenil
ProgressBar ... ?
Diky Radek
no, pokud mas
TForm1 = class(TForm)
ProgressBar1:TProgressBar1
.
.
.
end;
tak by mohlo fungovat TForm1(MDIChildren[2]).ProgressBar1
simulace drag and drop
[*] Ing. Vladimir Ruzicka <ruzicka(zv)winet(tec)cz> - 15.9.2004 07:56:28
Ahoj, asi to tu zapadlo,
ale potreboval bych hodit jmeno souboru na cizi aplikaci - pomoci windows
commanderu drag and dropem pretahnu soubor a on se mi na cilove aplikaci
otevre, nechci ovsem z me aplikace pouzivta mys, ale chci totez nasimulovat
po stitku tlacitka.
predem dik.
VR, D4, WIN 98, XP
Dynamicke vytvareni controls na formulari
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 15.9.2004 07:52:28
>Potrebuji dynamicky na formulari vytvorit dalsi zalozku PageControl, do ni umistit komponentu TreeView a obsluhovat jeji udalosti.
mrkni na
http://www.sunncity.com/Tutorial/Creating_Object_On_The_Fly.html
>
>Verze D6
>
>Diky Honza
>
= = = = = = = = = = = = = = = = = = = =
Vit Krska
vit.krska(zv)del(tec)cz
2004-09-15
MDI a thready
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.9.2004 07:50:28
no, pokud mas
TForm1 = class(TForm)
ProgressBar1:TProgressBar1
.
.
.
end;
tak by mohlo fungovat TForm1(MDIChildren[2]).ProgressBar1
Brona
>
> Ahoj,
>
> mam MDI Child a z nej spoustim nekolik threadu a potreboval
> bych volat metodu synchronize tak, aby se mi na prislusnem
> MDI Child okne menil napr.
> ProgressBar. Problem je v tom, ze nejsem schopen dostat se k
> onomu ProgressBaru. V SDI aplikaci to bylo pomerne
> jednoduche, kdy jsem pouze nastavil
> MainForm.ProgressBar.Progress ... jenze tohoto prave nejsem
> schopen dosahnout :O( Zkousel jsem pristoupit k MDI Child
> oknu pres MDIChildren[ ] ... ale toto bohuzel take nejde ...
> jak na to ?
>
> Diky za napady
> Radek
>
>
>
>
>
>
> MDI a thready
[*] tomsir1.edu(zv)mail.cez(tec)cz - 15.9.2004 07:38:27
Ahoj,
mam MDI Child a z nej spoustim nekolik threadu a potreboval bych volat
metodu synchronize tak, aby se mi na prislusnem MDI Child okne menil napr.
ProgressBar. Problem je v tom, ze nejsem schopen dostat se k onomu
ProgressBaru. V SDI aplikaci to bylo pomerne jednoduche, kdy jsem pouze
nastavil MainForm.ProgressBar.Progress ... jenze tohoto prave nejsem
schopen dosahnout :O(
Zkousel jsem pristoupit k MDI Child oknu pres MDIChildren[ ] ... ale toto
bohuzel take nejde ... jak na to ?
Diky za napady
Radek
Dynamicke vytvareni controls na formulari
[*] Honza <blue22(zv)quick(tec)cz> - 14.9.2004 18:57:38
Potrebuji dynamicky na formulari vytvorit dalsi zalozku PageControl, do ni umistit komponentu TreeView a obsluhovat jeji udalosti.
Nevim, jak toho dosahnout.
Lze to vubec udelat ?
Verze D6
Diky Honza
ADMIN: DULEZITA INFORMACE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.9.2004 18:15:35
Ahoj,
tak jsem to dotestoval a zjistil, ze bordel tu dela tento server:
ws1.maxprocessing.com - 24.173.158.118
Byl zarazen na black list, nicmene kdo s nim ma co spolecneho, necht
to okamzite vyresi. Pokud ze security logu nezmizi pokusy o forwarding
z tohoto serveru, budu muset zjistovat, kdo za to muze, a pak to bude
mnohem horsi...
Dekuji,
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Editacia dfm suborov
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 14.9.2004 11:10:25
Verze 1.2 GExperts umoznuje i hromadne zmeny.. (Replace v Grep Results)
Editacia dfm suborov
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 14.9.2004 10:58:24
Zkuste GExperts - expert, ktery se Vam nainstaluje do Delph
http://www.gexperts.org/
Tam je nastroj Grep Search - kde muzete hledat - nahrazovani tam neni.. to
musite udelat rucne..
--------
Jiny program je PSPad, ktery vam zmeni retezce v souborech v urcitem
adresari
http://www.pspad.com/
Hledani v souborech - Alt + F
Takze pokud je mozne i v bin. soubru nalezt a nahradit urcity retezec, tak
by to melo fungovat..
> Dobry den,
> mam niekolko desiatok dfm suborov. Niektore su v binarnom a niektore v
textovom formate.
> Potreboval by som vytvorit nejaku utilitku na hromadnu zmenu niektorych
atributov urcitej
> komponenty. Format suborov sa po ukonceni utilitky nesmie zmenit
(binarny -> textovy, alebo naopak).
> Vobec netusim ako na to. Vygooglit sa mi nepodarilo nic a ani help mi
velmi nepomohol.
> Dakujem za vsetky rady.
>
> Jaro
>
>
>Editacia dfm suborov
[*] Svelta Jaroslav <jaroslav.svelta(zv)csw.sk> - 14.9.2004 10:50:23
Dobry den,
mam niekolko desiatok dfm suborov. Niektore su v binarnom a niektore v textovom formate.
Potreboval by som vytvorit nejaku utilitku na hromadnu zmenu niektorych atributov urcitej
komponenty. Format suborov sa po ukonceni utilitky nesmie zmenit (binarny -> textovy, alebo naopak).
Vobec netusim ako na to. Vygooglit sa mi nepodarilo nic a ani help mi velmi nepomohol.
Dakujem za vsetky rady.
Jaro
indikace textu mailu v synapsi
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 14.9.2004 10:38:22
Takhle vkladam / nevkladam prilohu... nevim zda vam to pomuze...
m:=TMimemess.create;
try
if AFileName<>'' then begin
MimeBody := M.AddPartMultiPart('mixed', nil);
m.AddPartText(ATExt, MimeBody);
m.AddPartBinaryFromFile( AFileName, MimeBody);
end
else m.AddPartText(ATExt, nil);
> Dobry den,
> jak jednoznacne poznam text mailu, ktery ma prilohu? Puvodne jsem si
myslel, ze se staci oprit o property TMimePart.Disposition = INLINE, ale ta
nebyva vyplnena. Mohu se spolehnout, ze text je vzdy prvni, tedy
TMimeMess.MessagePart.GetSubPart(0)? (beru-li, ze mail ma aspon jednu
prilohu) A plati to i v pripade, ze ma mail prilohu a nema vyplneni text?
Zkousel jsem to na mailech z www.seznam(tec)cz, www.centrum(tec)cz, www.email(tec)cz,
podle dat z TPOP3Send.FullResult by to tak mohlo byt.
>
> Diky Petr Kuklik
>
>
>Jak na prazdny radek v ini file
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 14.9.2004 10:22:21
ano tak to jde, nevypada to tak hrozne, pouzivam _=''
> Jako
> key=value
> kde value je prazdny radek? >> pres WriteString by to melo jit.
>
> --
> Jiri Cincura
> DBEdit & EditMask
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 14.9.2004 09:48:19
Ahoj,
muzete mi prosim poradit ?
Na formu mam TDBEdit napr. ABC a u nej nasledujici masku:
ABC.Field.EditMask := '000\ 000\ 000\ 000;0; ';
Zadavam tedy cisla s mezerou(111 111 111 111). Fajn. Jenze jakmile nezadam vsechna cisla, dostanu chybovou hlasu. Hlaska je na miste, ale samozrejme cesky...
Poradi mi nekdo prosim co s tim ?
Diky
Vasek
Hodnoty na Formu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 14.9.2004 09:40:18
On Behalf Of Viktor Marek
> Chci se vyhnout DBGridu, kdy jsou nektera data za "rohem" a
> lze se k nim dostat jen pres posuvnik.
>
Ahoj.
Co treba TDbCtrlGrid ?
Ludek
Hodnoty na Formu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 14.9.2004 09:14:16
Zdravim
Kdysi v v PC Fandu byla moznost zobrazit pri prohlizeni a zapisu hodnot na
obrazovce 2 tabulky, takze pri zapisu byl videt predesly zapis a pri
prohlizeni 2 zapisy. Tedy pokud budu mit na Formu dve seskupeni EDITu je
moznost nejak toto obslouzit? Pristup k datove tabulce bych resil pres SQL.
Nevim, zda jsem problem popsal zretelne, ale spoleham na to, ze ti co meli v
ruce PC Fand okamzite pochopi o co mi jde. Chci se vyhnout DBGridu, kdy jsou
nektera data za "rohem" a lze se k nim dostat jen pres posuvnik.
Diky za radu
Viktor Marek
viktor(zv)vol(tec)cz
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 23:29:34
Tak uz jsem to nasel, diky za spolupraci.
Pro zajimavost:
bylo to uvnitr TIBDatabase.DoConnect; v Call(isc_attach_database(...))
mel jsem v OnCreate:
procedure TdmDefault.DataModuleCreate(Sender: TObject);
begin
dbDVM.Connected:=false;
//dbDVM.DatabaseName:=ReadINIString('database', 'file', '');
dbDVM.Connected:=true;
end;
no a pri zmenach se mi dostalo na DM: connected:=true
takze mu nedelala dobre na tomhle pocitaci asi rychla zmena Disconnect a
vzapeti Connect. :-o
Obe zbyvajici vlakna krome hlavniho pochazela od IBX komponent.
howgh
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 22:55:31
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 9:55 PM
Subject: Re: program obcas zere 100% casu CPU
> Ten stack je pro tebe. Opet polozim stejnou otazku:
> Co delaji ty vlakna ?
to jeste nevim, ale vznikaji podle PE pri vytvareni datamodule
je to prvni form co se v projektu vytvari
Application.CreateForm(TdmDefault, dmDefault);
> Co je to za komponenty ?
> Pokud to vlakno neco dela (a asi ze jo, kdyz zere CPU), tak
> stac neni zrovna moc uzitecny, jelikoz se rychle meni (mel by).
> Dale by me zajimalo, jestli je ten cas v user space, nebo v kernelu ?
tak zhruba na pul
ten preklad s debug DCU: nebij me, ale jak se to dela, nemuzu to nikde najit
(vzdy jsem se obesel bez toho, krokoval jsem treba CPU), uz na to asi pres
oci nevidim
dik
Tomas
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 22:57:32
Sorry, ale uz jsem ty debug DCU nasel, samozrejme
Project options - use debug DCUs
Tomas
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 10:01 PM
Subject: Re: program obcas zere 100% casu CPU
> DBE a MSSQL
[*] Stanislav ASernA? <s.cerny(zv)volny(tec)cz> - 13.9.2004 22:25:28
Ahoj,
pouzivam TQuery a dokonce ho vzdy znovu vytvorim a po akci zrusim. Zkousel jsem vsechno mozne a vypada to na nejakou chybu komponenty.
Kdyz jsem to testnul v D6 tak to vypadalo dobre. Prevedeni cele aplikace, abych to otestoval, mi zatim moc nejde. Jestli nekdo znate jednoduchy zpusob prevodu aplikace z D3 na D6 tak pros+AO0-m sem s n+AO0-m :-). D+AO0-ky.
Standa
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lebeda David
Sent: Monday, September 13, 2004 7:58 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBE a MSSQL
> Pouzivam komponenty DBE v D3 pro pristup k serveru MSSQL. Vse funguje,
> ale po urcite dobe program zahlasi nedostatek pameti pro operaci.
> Testovanim jsem zjistil, ze v systemu se pri kazdem dotazu SQL
> vysledek uklada do VP (snad virtualni pamet, v WINXP to ukazuje
> spravce uloh). VP narusta a pri 18MB program padne na nedostatek
> pameti pro DBE operaci. Nemate nekdo podobne zkusenosti a reseni?
> Prosim poradte. Diky Standa Cerny
Ahoj,
a zaviras ty komponenty? Nevim, jestli jde o TTable nebo TQuery, ale tyto komponenty
vysledek selectu vzdy uchovavaji v pameti, takze je potreba dotazy, jakmile nejsou
potreba, zase zavirat.
David Lebeda
---
P+APgA7Q-choz+AO0- zpr+AOE-va neobsahuje viry.
Zkontrolov+AOE-no antivirov+AP0-m syst+AOk-mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.752 / Virov+AOE- b+AOE-ze: 503 - datum vyd+AOE-n+AO0-: 3.9.2004
---
Odchoz+AO0- zpr+AOE-va neobsahuje viry.
Zkontrolov+AOE-no antivirov+AP0-m syst+AOk-mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.752 / Virov+AOE- b+AOE-ze: 503 - datum vyd+AOE-n+AO0-: 3.9.2004
Jak na prazdny radek v ini file
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 13.9.2004 22:23:28
Ing. Radek Tomsik wrote:
> Ahoj,
>
> Rad bych mel inifile prehledne, ale nejsem schopen zapsat do inifile
> prazdny radek, asi jsem uz prepracovany. Lze pomoci metod TIniFile zapsat
> prazdny radek, nebo musim inifile zavrit, otevrit a pomoci writeln zapsat
> crlf a pote pokracovat pomoci metod TIniFile ?
>
> Diky Radek
Jako
key=value
kde value je prazdny radek? >> pres WriteString by to melo jit.
nebo
key1=value1
<< toto - tak to asi jedine jak pises
key2=value2
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.9.2004 22:01:24
>
> netusim jak to zjistit, vlakno c.1 vykazuje skoro 100%-ni aktivitu
Metoda puleni intervalu.
Smazes pulku aplikace a bud je to v te pulce co zustala, nebo v te
smazane.
Napriklad bych to udelal tak, ze bych si dal preklad s "debug dcu" a dat
break point
nekam do create thread.
>
> > Tohle je podstatnejsi, nez kde jsou.
> > Dale co je to za komponenty ?
>
> nevim, co by to mohlo byt za komponenty; Jak by to slo zjistit ?
Od dodavanych komponent mas zdrojaky, takze hledej ty od kterych nemas.
Ja bych podeziral tyto:
1. Komunikace
2. Monitorovani
3. Kresleni
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.9.2004 21:55:20
Ten stack je pro tebe. Opet polozim stejnou otazku:
Co delaji ty vlakna ?
Co je to za komponenty ?
Pokud to vlakno neco dela (a asi ze jo, kdyz zere CPU), tak
stac neni zrovna moc uzitecny, jelikoz se rychle meni (mel by).
Dale by me zajimalo, jestli je ten cas v user space, nebo v kernelu ?
(Tohle se da zjistit v informaci o vlakne, nebo se proste zapne
zobrazovani casu jadra v task manageru).
Slavek
> > otazku jeste jednou: Ce delaji ty vlakna ?
> > Tohle je podstatnejsi, nez kde jsou.
> > Dale co je to za komponenty ?
> > >
> > > 1.vlakno: zere cca 90% casu aplikace
> > > Start address=MSVCRT.DLL!endthreadex+0x31
>
> ntdll.dll!RtlNtStatusToDosErrorNoTeb+0x46
> kernel32.dll!ReleaseMutex+0x25 kernel32.dll!WaitForSingleObject+0xf
> kernel32.dll!RegisterWaitForInputIdle+0x43
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 21:39:18
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 9:05 PM
Subject: Re: program obcas zere 100% casu CPU
> Vzhledem k tomu, ze jsem prisel o cast dnesni posty, tak polozim
> otazku jeste jednou:
> Ce delaji ty vlakna ?
> Tohle je podstatnejsi, nez kde jsou.
> Dale co je to za komponenty ?
> Process expolelre umi i call stack, zkus se na to podivat,
> jednou jsem tak odhalil pekny deadlock.
>
> Slavek
>
Tady jsou vypisy STACKu:
> >
> > 1.vlakno: zere cca 90% casu aplikace
> > Start address=MSVCRT.DLL!endthreadex+0x31
ntdll.dll!RtlNtStatusToDosErrorNoTeb+0x46
kernel32.dll!ReleaseMutex+0x25
kernel32.dll!WaitForSingleObject+0xf
kernel32.dll!RegisterWaitForInputIdle+0x43
> >
> > 2.vlakno: vetsinu casu stravi ve stavu Wait:WrUserRequest
> > Start address=pujcovna.exe+0x159a64
SharedUserData!SystemCallStub+4
Pujcovna.exe+0x53ab8
Pujcovna.exe+0x53ab8
> > 3.vlakno: Start address=pujcovna.exe+0x3d84
> >
SharedUserData!SystemCallStub+4
ntdll.dll!ZwDelayExecution+0xc
ntdll.dll!ZwDelayExecution+0xc
Tomas
Jak na prazdny radek v ini file
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 13.9.2004 21:51:20
Ahoj,
Rad bych mel inifile prehledne, ale nejsem schopen zapsat do inifile
prazdny radek, asi jsem uz prepracovany. Lze pomoci metod TIniFile
zapsat prazdny radek, nebo musim inifile zavrit, otevrit a pomoci
writeln zapsat crlf a pote pokracovat pomoci metod TIniFile ?
Diky Radek
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 21:43:19
Sorry, neodpovedel jsem jeste na dalsi otazky:
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 9:05 PM
Subject: Re: program obcas zere 100% casu CPU
> Vzhledem k tomu, ze jsem prisel o cast dnesni posty, tak polozim
> otazku jeste jednou:
> Ce delaji ty vlakna ?
netusim jak to zjistit, vlakno c.1 vykazuje skoro 100%-ni aktivitu
> Tohle je podstatnejsi, nez kde jsou.
> Dale co je to za komponenty ?
nevim, co by to mohlo byt za komponenty; Jak by to slo zjistit ?
> Process expolelre umi i call stack, zkus se na to podivat,
> jednou jsem tak odhalil pekny deadlock.
viz. druhy e-mail
Tomas
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.9.2004 21:05:16
Vzhledem k tomu, ze jsem prisel o cast dnesni posty, tak polozim
otazku jeste jednou:
Ce delaji ty vlakna ?
Tohle je podstatnejsi, nez kde jsou.
Dale co je to za komponenty ?
Process expolelre umi i call stack, zkus se na to podivat,
jednou jsem tak odhalil pekny deadlock.
Slavek
>
> 1.vlakno: zere cca 90% casu aplikace
> Start address=MSVCRT.DLL!endthreadex+0x31
>
> 2.vlakno: vetsinu casu stravi ve stavu Wait:WrUserRequest
> Start address=pujcovna.exe+0x159a64
>
> 3.vlakno: Start address=pujcovna.exe+0x3d84
>
> program entry point je podle MAP souboru 0x158A64
>program obcas zere 100% casu CPU
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.9.2004 20:17:12
To je MicroSoft Visual C RunTime - knihovna pro aplikace napsane v
microsoftim C resp. C++. Zrejme nektera cast tve aplikace tuto knihovnu
vyzaduje.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
> > 1) zadne mnou napsane thready
> > 2) zadne cizi komponenty, ktere by to mohly delat (jak pises bez
> zdrojaku -
> > ty taky nepouzivam), jedine ty co jsou v Delphi
> > 3) v tech vlaknech se nic nedeje - stoji, nevim, odkud se vzaly, THREADS
> > okno ukazuje u obou vlaken na pamet $7FFE0304, kde je instrukce RET pred
> ni
> > je SYSENTER
> >
>
> Tak jsem stahnul ten Process Explorer a ukazuje na 3 vlakna (bod 3
> neplati),
> vsechny jsou aktivni:
>
> 1.vlakno: zere cca 90% casu aplikace
> Start address=MSVCRT.DLL!endthreadex+0x31
>
> 2.vlakno: vetsinu casu stravi ve stavu Wait:WrUserRequest
> Start address=pujcovna.exe+0x159a64
>
> 3.vlakno: Start address=pujcovna.exe+0x3d84
>
> program entry point je podle MAP souboru 0x158A64
>
> Nevi nekdo na co je MSVCRT.DLL ?
>
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 19:51:10
----- Original Message -----
From: "Tomas Bradle" <t.bradle(zv)sanet(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 12:34 PM
Subject: Re: program obcas zere 100% casu CPU
> 1) zadne mnou napsane thready
> 2) zadne cizi komponenty, ktere by to mohly delat (jak pises bez
zdrojaku -
> ty taky nepouzivam), jedine ty co jsou v Delphi
> 3) v tech vlaknech se nic nedeje - stoji, nevim, odkud se vzaly, THREADS
> okno ukazuje u obou vlaken na pamet $7FFE0304, kde je instrukce RET pred
ni
> je SYSENTER
>
Tak jsem stahnul ten Process Explorer a ukazuje na 3 vlakna (bod 3 neplati),
vsechny jsou aktivni:
1.vlakno: zere cca 90% casu aplikace
Start address=MSVCRT.DLL!endthreadex+0x31
2.vlakno: vetsinu casu stravi ve stavu Wait:WrUserRequest
Start address=pujcovna.exe+0x159a64
3.vlakno: Start address=pujcovna.exe+0x3d84
program entry point je podle MAP souboru 0x158A64
Nevi nekdo na co je MSVCRT.DLL ?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
indikace textu mailu v synapsi
[*] Petr Kuklik <pkuklik(zv)cerny-ps(tec)cz> - 13.9.2004 16:50:59
Dobry den,
jak jednoznacne poznam text mailu, ktery ma prilohu? Puvodne jsem si myslel, ze se staci oprit o property TMimePart.Disposition = INLINE, ale ta nebyva vyplnena. Mohu se spolehnout, ze text je vzdy prvni, tedy TMimeMess.MessagePart.GetSubPart(0)? (beru-li, ze mail ma aspon jednu prilohu) A plati to i v pripade, ze ma mail prilohu a nema vyplneni text? Zkousel jsem to na mailech z www.seznam(tec)cz, www.centrum(tec)cz, www.email(tec)cz, podle dat z TPOP3Send.FullResult by to tak mohlo byt.
Diky Petr Kuklik
Jak zjistim, zda je TFrame na focused panelu?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.9.2004 15:40:54
Ahoj,
mam aplikaci, kde vlevo je TreeView pouzite jako menu a vpravo od nej
mam TPanel, na ktery dynamicky vkladam moduly - nasledniky TFrame -
podle toho, ktery uzel je vybrany.
Potreboval bych v tom modulu lezici vpravo od TreeView zjistit, zda je
prave Focused on nebo jiny objekt na obrazovce. Je jasne, ze TFrame
nemuze byt focused. Ale i Panel.Focused od panelu, ve kterem je vlozen
TFrame, mi vraci v kazde situaci false. Muzete mi nekdo poradit?
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
EOleSysError a "trida neni zaregistrovana&quo
[*] mydelphiconf(zv)centrum(tec)cz - 13.9.2004 15:18:52
jojo, je to tak. Bohuzel dlouhych chvilich hledani jsem to vzdal a napsal to do confu ... chvili pote jsem to nasel. Stacilo par pismenek (xxxserver.exe /regserver) a bylo po problemu ... i tak diky za radu :)
M.> Problem je v tom, ze se pomoci DCOMConnection pripojujes ke COM objektu na PC, kde tento COM object neni zaregistrovan. Pomoc je snadna, staci objekt zaregistrovat
EOleSysError a "trida neni zaregistrovana"
[*] Pavel Benacek <pavel.benacek(zv)cegedim(tec)com> - 13.9.2004 15:02:51
On Mon, 13 Sep 2004 13:28:44 +0200, <mydelphiconf(zv)centrum(tec)cz> wrote:
> Ahojky lidi,
> kolega odesel a ja po nem zdedil mrtvolku v podobe aplikace, ktera
> "chodi/nechodi". Jeden z problemu je nasledujici:
>
> Pri pouziti TDCOMConnection a pokusu o spojeni (DCOMConn.Connected) mi
> program zhavaruje na EOLESysError s hlaskou "Trida neni zaregistrovana".
>
> Netusite nekdo, co s tim?
>
> P.
>
> WinXPcz SP1, D7 ent.,
>
Problem je v tom, ze se pomoci DCOMConnection pripojujes ke COM objektu na
PC, kde tento COM object neni zaregistrovan. Pomoc je snadna, staci objekt
zaregistrovat, pokud je v exe aplikaci, tak ji staci jednou pustit a on se
sam zaregistruje, jinak se musi pouzit nejaky programek na registraci COM
objektu.
potrebuji pomoc s pouzitim TIBScript
[*] horky(zv)cominn(tec)cz - 13.9.2004 14:58:51
> From: petr palicka [mailto:palicka.petr(zv)seznam(tec)cz]
> zkusil pouzit IBX komponentu TIBScript
17110_ibscript_examples_d5_d6_bcb5.zip
Tento soubor jsem stahnul z Code Central, najdes to podle cisla u autora Jeff Overcash.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Firebird - terminated abnormally
[*] Dalibor <dalibor(zv)torola(tec)cz> - 13.9.2004 14:16:48
Ahoj, muzete mi nekdo rict, jak muze vzniknout chyba viz %subj%
Casto se mi stava, ze Firebird takhle spadne pri behu me aplikace, pritom ta aplikace je jenom spustena a nic se v ni nedela.
Pouzivam eventy.K databazi se konektuju pres 127.0.0.1:....
V logu jsem nasel jeste tyhle chyby
INET/inet_error: connect errno = 10060
INET/inet_error: send errno = 10054
Firebird 1.5.4290, Win2000/XP, D7Prof, FIB+
Diky za jakoukoliv pomoc
potrebuji pomoc s pouzitim TIBScript
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 13.9.2004 13:56:46
ahoj,
Tomas Bradle wrote:
> No... ja ji pouzivam na zmeny struktury DB (procedury, triggery tabulky,
> ..).
to prave chci taky...
> Vyplnenou db a transakci vsak mam, terminator mam nastaven standardni
> strednik, prikazy SET TERM pro procedury funguji (musi byt pred a za
> definici procedury a triggeru), po provedeni skriptu jeste testuji, jestli
> je transakce ACTIVE. Kdyz je, tak jeste udelam commit.
jo, blbnul terminator. kdyz jsem pouzit set term ^; tak to slape jak ma.
zrejme je tam nejaka chyba. dik za nakopnuti.
Peca
potrebuji pomoc s pouzitim TIBScript
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 13:44:45
No... ja ji pouzivam na zmeny struktury DB (procedury, triggery tabulky,
..).
Vyplnenou db a transakci vsak mam, terminator mam nastaven standardni
strednik, prikazy SET TERM pro procedury funguji (musi byt pred a za
definici procedury a triggeru), po provedeni skriptu jeste testuji, jestli
je transakce ACTIVE. Kdyz je, tak jeste udelam commit.
Skripty v syntaxi jako je generovana z IBOConsole mi takto chodi bez
problemu.
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 12:52 PM
Subject: potrebuji pomoc s pouzitim TIBScript
> Ahoj,
>
> potrebuju pustit upgrade script na databazi. Myslel jsem, ze bych
> zkusil pouzit IBX komponentu TIBScript, ale nikde nemuzu najit, kterak
> se pouzivaji.
> Muzu nechat databazi a transakci nevyplnenou a spolehnout, ze se to
> napoji podle prikazu CONNECT uvnitr scriptu?
>
> Snazim se to ted rozbehat a pada mi to na:
> Dynamic SQL Error
> SQL error code = -104
> Token unknown - line 16, char 1
> ^
>
> Pricemz ^ pouzivam jako terminator a mam to zadany i v
> IBScript1.Terminator. Zvlastni je, ze par radku asi projde a spadne to
> patrne az pri vytvareni procedury (soudim podle pozice terminatoru).
> Mate nekdo s touto komponentou zkusenost?
>
> dekuji
>
> Peca
>
>
>
EOleSysError a "trida neni zaregistrovana"
[*] mydelphiconf(zv)centrum(tec)cz - 13.9.2004 13:28:44
Ahojky lidi,
kolega odesel a ja po nem zdedil mrtvolku v podobe aplikace, ktera "chodi/nechodi". Jeden z problemu je nasledujici:
Pri pouziti TDCOMConnection a pokusu o spojeni (DCOMConn.Connected) mi program zhavaruje na EOLESysError s hlaskou "Trida neni zaregistrovana".
Netusite nekdo, co s tim?
P.
WinXPcz SP1, D7 ent., potrebuji pomoc s pouzitim TIBScript
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 13.9.2004 12:52:41
Ahoj,
potrebuju pustit upgrade script na databazi. Myslel jsem, ze bych
zkusil pouzit IBX komponentu TIBScript, ale nikde nemuzu najit, kterak
se pouzivaji.
Muzu nechat databazi a transakci nevyplnenou a spolehnout, ze se to
napoji podle prikazu CONNECT uvnitr scriptu?
Snazim se to ted rozbehat a pada mi to na:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 16, char 1
^
Pricemz ^ pouzivam jako terminator a mam to zadany i v
IBScript1.Terminator. Zvlastni je, ze par radku asi projde a spadne to
patrne az pri vytvareni procedury (soudim podle pozice terminatoru).
Mate nekdo s touto komponentou zkusenost?
dekuji
Peca
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 12:34:40
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 11:26 AM
Subject: Re: program obcas zere 100% casu CPU
> >
> > kdyz nemam jejich kod, tak to nebude tak jednoduche...
>
> Jenze to porad neodpovida na otazku, co se deje v tech vlaknech ?
> (seriova komunikace, TCP komunikace, UDP, ...?).
> Komponenty BEZ kodu doporucuji zahodit, (nebo zaplatit).
>
> Chces poradit, ale nejsi ochoten nic sdelit, to je fakt hooodne tezke.
>
ochoten jsem, nemam tam:
1) zadne mnou napsane thready
2) zadne cizi komponenty, ktere by to mohly delat (jak pises bez zdrojaku -
ty taky nepouzivam), jedine ty co jsou v Delphi
3) v tech vlaknech se nic nedeje - stoji, nevim, odkud se vzaly, THREADS
okno ukazuje u obou vlaken na pamet $7FFE0304, kde je instrukce RET pred ni
je SYSENTER
Co se tyce te seriove komunikace, to je dobry napad, vyhodil jsem synaser
(ve vsech uses a prislusny kod) a ... nic. Jinou komunikaci tam nemam. Zatim
diky, laboruju s tim, zkusim asi ten process explorer.
Jeste me napada, zkusit vzit jiny harddisk a nainstalovat cisty system...
Tomas
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 13.9.2004 11:34:36
Pokud to bude nekoho zajimat, okno Dialup jsme potlacili takhle:
1. zjistit a zapamatovat nastaveni vytaceni DialUp
2. nastavit na Nikdy nevytacet
3. otevrit databazi
4. podle zapamatovaneho stavu opet nastavit vytaceni Dialup.
Funkci a proceduru prikladam:
{---------------------------------------------------------------------------}
{ Na 98 zjistit stav dialup vytaceni, pripadne vypnout }
{---------------------------------------------------------------------------}
function VypniNastaveniPripojeniDialUp: Integer;
var
Reg : TRegistry;
bEnabDial, bNoNetDial : Boolean;
begin
Result := 0;
if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) then begin // Win95/98/ME
Reg := TRegistry.Create;
with REG do begin
try
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet settings',False) then begin
bEnabDial := ReadBool('EnableAutodial');
if (bEnabDial) then begin
bNoNetDial := ReadBool('NoNetAutodial');
if (bNoNetDial) then
Result := 1
else
Result := 2;
{ vse vypneme }
WriteBool('NoNetAutodial',False);
WriteBool('EnableAutodial',False);
end;
end; { if openkey }
except { nejaka chyba }
on e: Exception do begin
FRM.Zprava (Self, mtChyba, [tlOK], tlOK, E.Message );
end;
end;
finally
Free;
end;
end; { with REG }
Sleep(500);
end; { if W98 }
end;
{---------------------------------------------------------------------------}
{ Uvest zpusob pripojeni do puvodniho stavu }
{---------------------------------------------------------------------------}
procedure PuvodniNastaveniPripojeniDialUp(aTypPripojeni: Integer);
var
Reg : TRegistry;
begin
if (aTypPripojeni > 0) then begin
Reg := TRegistry.Create;
with REG do begin
try
try
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet settings',False) then begin
case aTypPripojeni of
1: { Vytacet pripojeni, kdyz neni LAN }
begin
WriteBool('NoNetAutodial',True);
WriteBool('EnableAutodial',True);
end;
2: { vzdy vytacet }
begin
WriteBool('EnableAutodial',True);
end;
end; { case }
end; { if openkey }
except { chyba me zajima }
on e: Exception do begin
FRM.Zprava (Self, mtChyba, [tlOK], tlOK, E.Message );
end;
end;
finally
Free;
end;
end; { with REG }
Sleep(500);
end; { if pripojeni bylo nastaveno }
end;
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.9.2004 11:26:35
>
> kdyz nemam jejich kod, tak to nebude tak jednoduche...
Jenze to porad neodpovida na otazku, co se deje v tech vlaknech ?
(seriova komunikace, TCP komunikace, UDP, ...?).
Komponenty BEZ kodu doporucuji zahodit, (nebo zaplatit).
Chces poradit, ale nejsi ochoten nic sdelit, to je fakt hooodne tezke.
>
> ====================
>
> Me je spise divny, ze to dela jen na jednom pocitaci, i kdyz
> je fakt, ze na nejpomalejsim. Ta aplikace jede uz asi 2
> mesice ve zkusebnim provozu a porad se doladuje. Ted zhruba
> pred tydnem mi to zaclo delat a nedokazu si to dat do zadne
> logicke souvislosti s provadenymi zmenami, protoze ty zmeny
> byly vesmes v mistech, ktere se neaktivuji zrovna pri
> spusteni, Neco jsem uz zkousel vyhazet, ale po prvnim
> spusteni to vypadalo nadejne, ale druhe, treti uz bylo v...
To vubec nemusi byt pocitacem, me to treba (ne jednou) delal ovladac
COM portu. Pripadne UDP komunikace dokaze byt slusny zrout.
Stahni si ten process explorer.
Slavek
Finalize a recordy
[*] delphin(zv)post(tec)cz - 13.9.2004 11:22:35
> Postaci volani
> Finalize(rec);
> ZeroMemory((zv)rec, sizeof(rec));
Je to spravne. Finalize uvolni stavajici dlouhe stringy, varianty, interface
a dynamicke pole z pameti a ZeroMemory record inicializuje.
Misto ZeroMemory je pohodlnejsi pouzit Initialize, nemusi se psat delka.Timer v databazi
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 11:14:34
To asi nepujde, nejlepe by bylo udelat spc. aplikaci (klienta), ktera by
odmerovala cas a provedla ulozenou proceduru ktera provadi ten EVENT.
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "BS Info" <info(zv)borkovec.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 10:16 AM
Subject: Timer v databazi
> Zdravim konferenci,
>
> potreboval bych, aby se ve FireBirdu 1.5 v presny okamzik, jehoz
hodnota
> je ulozena v tabulce, inicioval event. Proste v jedne tabulce je sloupce
> TAB_KDY, tam je udaj 15:30 a v pul ctvrty se iniciuje post event "start
> praci". Ten uz si pak aplikace zpracuje. Existuje nejaky cisty zpusob, jak
> to resit? Nemyslim timer v aplikaci, ktery bude srovnavat cas kazdou
vterinu
> nebo tak neco.
> Diky za napady
>
>
> Roman Borkovec
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 13.9.2004 11:02:33
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 13, 2004 10:02 AM
Subject: Re: program obcas zere 100% casu CPU
> >
> > v task manageru je 3,
> > v delphi (pri preruseni) jsou 2 z nich uvedeny jako neaktivni
>
> Nikdy never debugeru :(.
> Psal jsi, ze nepouzivas thready, podle task manageru je pouzivas.
> Co bezi v tech vlaknech ?
no.. ja je nepsal, debugger neukazuje na zadny logicky kod, je fakt, ze
treba IBEvents pouziva vlakna, o kterych bezny uzivatel nevi, IBEvents
nepouzivam, takze by to muselo byt neco jineho.
> >
> > > Reaguje aplikace na stiky klaves ?
> >
> > no... reaguje uplne na vsechno, ale strasne pomalu (cca 10s)
>
> Podle vseho FB nesouvisi s problemem.
ja si to taky myslim
> Zkus zakazat ta pomocna vlakna (nebo vlozit do nich treba sleep(10)).
>
kdyz nemam jejich kod, tak to nebude tak jednoduche...
====================
Me je spise divny, ze to dela jen na jednom pocitaci, i kdyz je fakt, ze na
nejpomalejsim. Ta aplikace jede uz asi 2 mesice ve zkusebnim provozu a porad
se doladuje. Ted zhruba pred tydnem mi to zaclo delat a nedokazu si to dat
do zadne logicke souvislosti s provadenymi zmenami, protoze ty zmeny byly
vesmes v mistech, ktere se neaktivuji zrovna pri spusteni, Neco jsem uz
zkousel vyhazet, ale po prvnim spusteni to vypadalo nadejne, ale druhe,
treti uz bylo v...
Tomas
Timer v databazi
[*] BS Info <info(zv)borkovec(tec)com> - 13.9.2004 10:16:30
Zdravim konferenci,
potreboval bych, aby se ve FireBirdu 1.5 v presny okamzik, jehoz hodnota
je ulozena v tabulce, inicioval event. Proste v jedne tabulce je sloupce
TAB_KDY, tam je udaj 15:30 a v pul ctvrty se iniciuje post event "start
praci". Ten uz si pak aplikace zpracuje. Existuje nejaky cisty zpusob, jak
to resit? Nemyslim timer v aplikaci, ktery bude srovnavat cas kazdou vterinu
nebo tak neco.
Diky za napady
Roman Borkovec
+420 603 590 639
www.borkovec.com
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.9.2004 10:02:29
>
> v task manageru je 3,
> v delphi (pri preruseni) jsou 2 z nich uvedeny jako neaktivni
Nikdy never debugeru :(.
Psal jsi, ze nepouzivas thready, podle task manageru je pouzivas.
Co bezi v tech vlaknech ?>
> > Reaguje aplikace na stiky klaves ?
>
> no... reaguje uplne na vsechno, ale strasne pomalu (cca 10s)
Podle vseho FB nesouvisi s problemem.
Zkus zakazat ta pomocna vlakna (nebo vlozit do nich treba sleep(10)).
Slavek
Finalize a recordy
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.9.2004 08:54:24
Ahoj,
v objektu je private promenna typu record, ten record obsahuje promenne typu string
(bez uvedeni delky). Obcas potrebuji tento record vyprazdnit. Pouzivam k tomu
ZeroMemory, nicmene mi bylo poradeno, ze pro korektni uvolnovani je treba pouzivat
Finalize. Mam D5 a z helpu k Finalize si nejsem uplne jisty, ze ho pouzivam spravne.
Mam record
TMyRec = record
a: integer;
b, c, d, e, f: string;
end;
existuje promenna
rec: TMyRec;
Postaci volani
Finalize(rec);
ZeroMemory((zv)rec, sizeof(rec));
nebo jsem to spatne pochopil? Vzhledem k tomu, ze ten record je v praxi pomerne
bohaty a navic by v pripade rozsireni recordu nemelo byt zapomenuto na inicializaci i
novych pridanych prvku, nechci psat proceduru, kde vsechny polozky recordu vyjmenuji
a priradim.
Diky.
David Lebeda
FB - Preco vynechava Foreign key pri optimalizacii
[*] Roland Turcan <konf(zv)rotursoft.sk> - 13.9.2004 08:14:22
<<< 13.9.2004 8:13 - Karel Rys "delphi(zv)zas-me(tec)cz" >>>
KR> Roland Turcan dne 13 Sep 2004 v 7:40:
>> To ze v druhom pouzivam a.spis nie je v tomto momente dolezite, lebo
>> je dotaz identicky s druhym prikladom. A ide len o to ze na
>> UKONY.ADRESAR pouzil FK a v pripade NA_VEDOMIE.DOKUMENT nie.
KR> Nejsou identicke, v jednom mas left join, ve druhem right join, ne?
Ano, ja truba mas svatu pravdu.
KR> Jak dopadne tohle:
KR> select a.jedin,b.jedin
KR> from dokumenty b
KR> left outer join na_vedomie a on a.dokument=b.jedin
KR> where b.spis=13308;
Toto je to prave orechove.
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
rychlost prohledavani TStream a ostatni
[*] david.kopecek(zv)hacktrack(tec)com - 13.9.2004 08:10:21
Zdravim konferenci,
narazil jsem na zajimavy problem (spyse moje osobni neznalost)
kdyz jsem binarne prohledaval 250 souboru tak jsem prisel na to ze
tmemorystream je asi nejrychlesi resni pro praci sesouborem. POkud
jsem onen testovany soubor oteviral pres TFileStream popripade svuj
vlastni ktery pracuje pres FileSeek a FileOPen tak zpracovani tohoto
adresare trvalo 21 sekund. Ale pres TMemory stream to byly necele tri
sekundy. Mam to jako chapat ze MemoryStream se nahrava cely do pameti
?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
FB - Preco vynechava Foreign key pri optimalizacii
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.9.2004 08:04:21
> Snazim sa zoptimalizovat prikaz:
>
> select a.jedin,b.jedin
> from na_vedomie a
> left join dokumenty b on b.jedin=a.dokument
> where b.spis=13308;
>
> skusil som aj takto
>
> select a.jedin,b.jedin
> from dokumenty b
> right join na_vedomie a on a.dokument=b.jedin
> where b.spis=13308;
> pritom tie stlpce JEDIN v oboch tabulkach su primarne kluce a
> NA_VEDOMIE.DOKUMENT obsahuje Foreign key na DOKUMENTY.JEDIN a napriek
> tomu optimalizator kasle na neho.
Ahoj,
ja spis postradam index na sloupci b.spis, ktery je ve where, nebot to podle me vede k
nutnosti natural scanu. No a v pripade indexu na b.spis by melo byt rychlejsi, kdyz bude
tabulka b ve from nez jako prijoinovana - tedy aspon timto smerem bych se ubiral ja.
David Lebeda
DBE a MSSQL
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.9.2004 07:58:20
> Pouzivam komponenty DBE v D3 pro pristup k serveru MSSQL. Vse funguje,
> ale po urcite dobe program zahlasi nedostatek pameti pro operaci.
> Testovanim jsem zjistil, ze v systemu se pri kazdem dotazu SQL
> vysledek uklada do VP (snad virtualni pamet, v WINXP to ukazuje
> spravce uloh). VP narusta a pri 18MB program padne na nedostatek
> pameti pro DBE operaci. Nemate nekdo podobne zkusenosti a reseni?
> Prosim poradte. Diky Standa Cerny
Ahoj,
a zaviras ty komponenty? Nevim, jestli jde o TTable nebo TQuery, ale tyto komponenty
vysledek selectu vzdy uchovavaji v pameti, takze je potreba dotazy, jakmile nejsou
potreba, zase zavirat.
David Lebeda
FB - Preco vynechava Foreign key pri optimalizacii
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.9.2004 07:54:20
Roland Turcan dne 13 Sep 2004 v 7:40:
> To ze v druhom pouzivam a.spis nie je v tomto momente dolezite, lebo
> je dotaz identicky s druhym prikladom. A ide len o to ze na
> UKONY.ADRESAR pouzil FK a v pripade NA_VEDOMIE.DOKUMENT nie.
Nejsou identicke, v jednom mas left join, ve druhem right join, ne?
Jak dopadne tohle:
select a.jedin,b.jedin
from dokumenty b
left outer join na_vedomie a on a.dokument=b.jedin
where b.spis=13308;
Karel Rys
FB - Preco vynechava Foreign key pri optimalizacii
[*] Roland Turcan <konf(zv)rotursoft.sk> - 13.9.2004 07:40:18
KR> Roland Turcan dne 12 Sep 2004 v 23:38:
>> Hello All!
>>
>> Snazim sa zoptimalizovat prikaz:
>>
>> select a.jedin,b.jedin
>> from na_vedomie a
>> left join dokumenty b on b.jedin=a.dokument
>> where b.spis=13308;
>>
>> skusil som aj takto
>>
>> select a.jedin,b.jedin
>> from dokumenty b
>> right join na_vedomie a on a.dokument=b.jedin
>> where b.spis=13308;
>>
>> a v oboch pripadoch mi vrati zly cas a plan vypada takto:
>> PLAN JOIN (A NATURAL,B INDEX (RDB$PRIMARY54))
>>
>> pritom tie stlpce JEDIN v oboch tabulkach su primarne kluce a
>> NA_VEDOMIE.DOKUMENT obsahuje Foreign key na DOKUMENTY.JEDIN a napriek
>> tomu optimalizator kasle na neho.
>>
>> Skusal som rovnaku konstrukciu k inymi tabulkami:
>>
>> select a.jedin,b.jedin
>> from ukony a
>> left join adresar b on b.jedin=a.adresar
>> WHERE A.SPIS=13308;
>>
>> kde tiez obe tabulky maju JEDIN ako primarne kluce a UKONY.ADRESAR ma
>> Foreign key na ADRESAR.JEDIN a exekucny plan je nasledovny:
>>
>> PLAN JOIN (A INDEX (FK_UKONY_SPIS),B INDEX (RDB$PRIMARY3))
>>
>> Kde sa stala chyba?
<<< 13.9.2004 7:38 - Karel Rys "delphi(zv)zas-me(tec)cz" >>>
KR> v tom druhem dotazu, co davas jako priklad, vyhledavas podle a.spis. Neslo by ten prvni,
KR> problemovy, dotaz prepsat tak, abys tam mel "from dokumenty
KR> b"... "where b.spis="...."? Tj. udelat
KR> to propojeni opacne. Pokud mas dokumenty.spis i
KR> na_vedomie.dokument indexovano, melo by to pak jit
KR> rychle.
To ze v druhom pouzivam a.spis nie je v tomto momente dolezite, lebo
je dotaz identicky s druhym prikladom. A ide len o to ze na
UKONY.ADRESAR pouzil FK a v pripade NA_VEDOMIE.DOKUMENT nie.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
FB - Preco vynechava Foreign key pri optimalizacii
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.9.2004 07:32:18
Ahoj,
v tom druhem dotazu, co davas jako priklad, vyhledavas podle a.spis. Neslo by ten prvni,
problemovy, dotaz prepsat tak, abys tam mel "from dokumenty b"... "where b.spis="...."? Tj. udelat
to propojeni opacne. Pokud mas dokumenty.spis i na_vedomie.dokument indexovano, melo by to pak jit
rychle.
Karel Rys
Roland Turcan dne 12 Sep 2004 v 23:38:
> Hello All!
>
> Snazim sa zoptimalizovat prikaz:
>
> select a.jedin,b.jedin
> from na_vedomie a
> left join dokumenty b on b.jedin=a.dokument
> where b.spis=13308;
>
> skusil som aj takto
>
> select a.jedin,b.jedin
> from dokumenty b
> right join na_vedomie a on a.dokument=b.jedin
> where b.spis=13308;
>
> a v oboch pripadoch mi vrati zly cas a plan vypada takto:
> PLAN JOIN (A NATURAL,B INDEX (RDB$PRIMARY54))
>
> pritom tie stlpce JEDIN v oboch tabulkach su primarne kluce a
> NA_VEDOMIE.DOKUMENT obsahuje Foreign key na DOKUMENTY.JEDIN a napriek
> tomu optimalizator kasle na neho.
>
> Skusal som rovnaku konstrukciu k inymi tabulkami:
>
> select a.jedin,b.jedin
> from ukony a
> left join adresar b on b.jedin=a.adresar
> WHERE A.SPIS=13308;
>
> kde tiez obe tabulky maju JEDIN ako primarne kluce a UKONY.ADRESAR ma
> Foreign key na ADRESAR.JEDIN a exekucny plan je nasledovny:
>
> PLAN JOIN (A INDEX (FK_UKONY_SPIS),B INDEX (RDB$PRIMARY3))
>
> Kde sa stala chyba?
> --
> Best regards, TRoland
>
> http://exekutor.rotursoft.sk
>
>
>
FB - Preco vynechava Foreign key pri optimalizacii
[*] Roland Turcan <konf(zv)rotursoft.sk> - 12.9.2004 23:38:03
Hello All!
Snazim sa zoptimalizovat prikaz:
select a.jedin,b.jedin
from na_vedomie a
left join dokumenty b on b.jedin=a.dokument
where b.spis=13308;
skusil som aj takto
select a.jedin,b.jedin
from dokumenty b
right join na_vedomie a on a.dokument=b.jedin
where b.spis=13308;
a v oboch pripadoch mi vrati zly cas a plan vypada takto:
PLAN JOIN (A NATURAL,B INDEX (RDB$PRIMARY54))
pritom tie stlpce JEDIN v oboch tabulkach su primarne kluce a
NA_VEDOMIE.DOKUMENT obsahuje Foreign key na DOKUMENTY.JEDIN a napriek
tomu optimalizator kasle na neho.
Skusal som rovnaku konstrukciu k inymi tabulkami:
select a.jedin,b.jedin
from ukony a
left join adresar b on b.jedin=a.adresar
WHERE A.SPIS=13308;
kde tiez obe tabulky maju JEDIN ako primarne kluce a UKONY.ADRESAR ma
Foreign key na ADRESAR.JEDIN a exekucny plan je nasledovny:
PLAN JOIN (A INDEX (FK_UKONY_SPIS),B INDEX (RDB$PRIMARY3))
Kde sa stala chyba?
--
Best regards, TRoland
http://exekutor.rotursoft.sk
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 12.9.2004 22:29:58
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, September 12, 2004 9:29 PM
Subject: Re: program obcas zere 100% casu CPU
> Moc malo informaci :(
> Kdu zere cas FB, tvoje app ?
moje app
> Kolik vlaken ma ta app (podivej se do task manageru).
v task manageru je 3,
v delphi (pri preruseni) jsou 2 z nich uvedeny jako neaktivni
> Jak se pripojujes k FB ?
IBX
> Pouzivas Eventy u FB ?
ne
> Reaguje aplikace na stiky klaves ?
no... reaguje uplne na vsechno, ale strasne pomalu (cca 10s)
> Mas moznost ladeni (ProcessExplorer ze sysinternals ti muze pomoci) ?
co to je ? ... neznam
> Slavek
program obcas zere 100% casu CPU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 12.9.2004 21:29:54
Moc malo informaci :(
Kdu zere cas FB, tvoje app ?
Kolik vlaken ma ta app (podivej se do task manageru).
Jak se pripojujes k FB ?
Pouzivas Eventy u FB ?
Reaguje aplikace na stiky klaves ?
Mas moznost ladeni (ProcessExplorer ze sysinternals ti muze pomoci) ?
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
> CPU na 100%, v tomto stavu zustava dost dlouhou dobu (vic jak
> 10 min. jsem to nezkousel).
>
> Nevite nekdo, jak postupovat pri hledani teto zavady ? Je to
> obycejna DB aplikace s pouzitim FB 1.5 a IBX, Delphi 5 a Win
> XP. Nepouzivam Thready.DBE a MSSQL
[*] Stanislav Cerny <s.cerny(zv)volny(tec)cz> - 12.9.2004 20:11:48
Pouzivam komponenty DBE v D3 pro pristup k serveru MSSQL. Vse funguje,
ale po urcite dobe program zahlasi nedostatek pameti pro operaci.
Testovanim jsem zjistil, ze v systemu se pri kazdem dotazu SQL vysledek
uklada do VP (snad virtualni pamet, v WINXP to ukazuje spravce uloh). VP
narusta a pri 18MB program padne na nedostatek pameti pro DBE operaci.
Nemate nekdo podobne zkusenosti a reseni? Prosim poradte.
Diky
Standa Cerny
program obcas zere 100% casu CPU
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 12.9.2004 18:59:43
Zdravim vsechny,
mam aplikaci, ktera na jednom (Celeron 733) ze ctyr pocitacu (Duron 1200,
Athlon 1000, Athlon XP 2000, Celeron 733, vsechny s min. 256MB RAM a Win XP)
obcas po spusteni zatizi CPU na 100%, v tomto stavu zustava dost dlouhou
dobu (vic jak 10 min. jsem to nezkousel).
Nevite nekdo, jak postupovat pri hledani teto zavady ? Je to obycejna DB
aplikace s pouzitim FB 1.5 a IBX, Delphi 5 a Win XP. Nepouzivam Thready.
Diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Inno Setup - jazyky v instalaci
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 11.9.2004 20:26:11
Petr Fejfar wrote:
> ale to je na udrzbu daleko horsi nez scripted constants, protoze tam
> budes mit vsechno N-krat.
>
> pf
Aha. Tak to radeji pouziju prvni zpusob. Uz jen pro dobre navyky. :)
I kdyz tohle vypada vic systemove. :)
Diky.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Inno Setup - jazyky v instalaci
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 11.9.2004 12:47:42
Jiri Cincura wrote:
> podle vybraneho jazyka. Vedel by nekdo jak na to? V napovede jsem
> nasel jen lokalizaci instalacnich casti. :(
Pro texty zpracovavane v run-time pouzij scripted constants, pro texty
zpracovavane
v compile-time musis mit verzi min. 4.2.1 a pouzit custom messages.
Priklad pouziti scripted constants:
[Icons]
Name: "{group}\{code:SC_UninstallID3|Odinstalovat ID3 renamer}; ....
[Code]
function SC_UninstallD3(Default: String): String;
begin
if ActiveLanguage='en' then
Result := 'Uninstall ID3 renamer'
else
Result := Default;
end;
ev. to muzes udelat bez predavani default hodnoty v referenci {code:} a text
definovat pouze v tele volane funkce. Pak ten odkaz vypada
Name: "{group}\{code:SC_UninstallID3|}; ....
HTH, pf
ListView + RowSelect := True + Drag&Drop
[*] dphi_forum(zv)proces.sk - 11.9.2004 11:03:34
Zdravim,
mam nasledovny problem, prosim poradte.
Na formular hodim ListView s dvoma sltlpcami, nastavim
ViewStyle := vsReport;
RowSelect := True;
DragKind := dkDrag;
DragMode := dmAutomatic;
vlozim 100 jednoduchych poloziek.
problem je s operaciou Drag&Drop, pocas DragOver mi aplikacia zozerie 99%
CPU co sa samozrejme prejavi a aplikacia je neovladatelna.
po EndDrag je zasa vsetko v poriadku.
Robi to len ak je RowSelect na True;
D5 UP1
WXP SP2
Netusite co by to mohlo byt ?
dik
Inicializace recordu
[*] delphin(zv)post(tec)cz - 10.9.2004 17:18:25
> mam record obsahujici promenne typu integer a string (rozumi se
> AnsiString), napr.
> rec = record
> ID: integer;
> p1, p2: string;
> end;
>
> Kdyz ho chci inicializovat, zavolam
> ZeroMemory((zv)rec, sizeof(rec));
>
> Pokud record dosud neobsahoval zadna data, je vse OK. Co kdyz ale
> jiz byl naplnen daty a ja se ho pokusim takto smazat? Jde mi o to, zda
> se radne uvolni i ty stringove promenne v recordu. Zmizi na ne odkaz,
> ale uvolni se i retezec samotny?
Retezec se neuvolni. Je treba pouzit Finalize, dalsi info v helpu k
Finalize.Problem s dekodovanim byte-u s LSB po prijmu z Com
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 10.9.2004 13:58:10
Kdyz jsem si cetl to cos dostal odzadu (zprava doleva) 4 bity, tak to dava
to co bys chtel dostat...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ing. Jiri Sokol
Sent: Friday, September 10, 2004 1:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Problem s dekodovanim byte-u s LSB po prijmu z Com portu
Ahoj!
Dostal se mi do ruky zarizeni, ktere ma cist bezkontaktni cipove karty. Vse
funguje, se zarizenim komunikuju, akorat nejsem schopen spravne dekodovat
prijate cislo karty.
V popisu zarizeni je, ze se komunikuje jen na 5-ti bitech. Po obdrzeni
znaku, ktery ma prvnich 5 bitu = 1 znamena, ze mi zarizeni posle dalsich 10
znaku, coz ma byt cislo toho cipu (karty). V tech 10-ti znacich maji byt 4
bity cislo a 5.bit ma oznacovat sudou paritu (LSB).
No a jsem druhej. Vubec nevim jak to mam dekodovat, abych se dopatral
spravneho vysledku.
Muzete mi s tim, prosim, pomoct?
Prijde mi:
mel dekodoval snad to co jsem
bych jsem ta dostal
dostat suda pari. v bin v dec
1 3 ne 11000 3
9 2 ANO 01001 18
0 0 ne 00000 0
1 3 ne 11000 3
2 5 ne 10100 5
9 2 ANO 01001 18
3 6 ne 01100 6
B 7 ANO 11101 23
4 9 ne 10010 9
3 6 ne 01100 6
vyslo mi:
3203526796
mel bych dostat:
1901293B43
Tak ja fakt nevim.
Diky za nakopnuti.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 10.9.2004 13:36:08
> > Asi toho nechame, priklanim se k nazoru PP, ze pres GUI
> poradi protokolu ve WIN98 nastavit nejde :-(
> > Nicmene, jde to nejak jinak ?
> From: petr palicka [mailto:palicka.petr(zv)seznam(tec)cz]
> zkus prikaz route. ale nevim, jestli je na w98 pritomen
Zkusim, na W98 je pritomen.
> taky by mohlo pomoci zeditovat (zalozit) soubor HOSTS ve
> slozce WINDOWS
To jsem zkusil jako prvni a prave ze to nepomohlo, tak jsem se obratil na konferu. Connect string mam ve tvaru '192.168.0.123:D:\data\databaze.gdb'. A Dialup okno vyvolavaji i jine programy (IBExpert, IBAcces, IB PLANalyzer). Mrkni na uvodni mail tohoto threadu.
Diky vsem za rady.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Problem s dekodovanim byte-u s LSB po prijmu z Com
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 10.9.2004 13:08:06
Ahoj!
Dostal se mi do ruky zarizeni, ktere ma cist bezkontaktni cipove karty. Vse funguje, se zarizenim komunikuju, akorat nejsem schopen spravne dekodovat prijate cislo karty.
V popisu zarizeni je, ze se komunikuje jen na 5-ti bitech. Po obdrzeni znaku, ktery ma prvnich 5 bitu = 1 znamena, ze mi zarizeni posle dalsich 10 znaku, coz ma byt cislo toho cipu (karty). V tech 10-ti znacich maji byt 4 bity cislo a 5.bit ma oznacovat sudou paritu (LSB).
No a jsem druhej. Vubec nevim jak to mam dekodovat, abych se dopatral spravneho vysledku.
Muzete mi s tim, prosim, pomoct?
Prijde mi:
mel dekodoval snad to co jsem
bych jsem ta dostal
dostat suda pari. v bin v dec
1 3 ne 11000 3
9 2 ANO 01001 18
0 0 ne 00000 0
1 3 ne 11000 3
2 5 ne 10100 5
9 2 ANO 01001 18
3 6 ne 01100 6
B 7 ANO 11101 23
4 9 ne 10010 9
3 6 ne 01100 6
vyslo mi:
3203526796
mel bych dostat:
1901293B43
Tak ja fakt nevim.
Diky za nakopnuti.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Projekt v delphi
[*] delphin(zv)post(tec)cz - 10.9.2004 13:08:05
> V nasem systemu se provadeji relativne slozite vypocty na
> velkem mnozstvi dat. Jake zpusoby pro zrychleni aplikace je mozno
> pouzit, kdyz pominu doporuceni pro psani optimalniho kodu v delphi.
> Mohlo by byt cestou pro zrychleni aplikace vytvoreni casti kodu jako
> knihoven treba v C++? Pouziti DBExpres namisto ADONIS?.........
> Nenasel jsem nikde srovnani rychlosti vykonavani programu napsaneho
> Delphi a Visual C++. Nevite nekdo o necem takovem?
Zrychleni vypoctu na velkem mnozstvi dat: Externi dll pro SQL server.
Zrychleni vypoctu na klientovi: Bud externi dll z C++ nebo lepe prepsat
kriticke casti do assembleru.Zaheslovana databaze MS ACCES
[*] Docekal Radek <rdocekal(zv)csas(tec)cz> - 10.9.2004 12:52:04
> Nevite nekdo o nejakem
> nastroji pro zjisteni hesla MS ACCES, popr. existuje nejaka moznost,
> jak se do tabulek dostat pomoci nejakeho univerzalniho hesla. Diky za
> kazdou pomoc.
http://www.elcomsoft.com/aopb.html
--
S pozdravem
Radek Docekal
Projekt v delphi
[*] Petr Vones <konference(zv)petrvones(tec)net> - 10.9.2004 12:34:02
From: <postapromne(zv)centrum(tec)cz>
> pracuji jako programator ve firme na projektu (informacni system -
> Delphi 4/ADONIS/SQL Server 2000). Nemam s Delphi prilis zkusenosti.
> Mel bych dotaz ohledne prechodu na vyssi verze Delphi 6, 7 nebo
> 8. Nakolik muze byt tento prechod vyhodny a jake by mohly byt
> argumenty pro tento prechod. Nakolik zavazna zalezitost to muze byt
> co se tyce prace a casu (zpetna kompatibilita Delphi?).
Nejprve je nutne upozornit ze Delphi 8 je tak trochu klamavy nazev, protoze se
jedna spise o "Delphi.NET 1", neni to verze pro platformu Win32.
Prechod na novejsi verzi (v tomto pripade asi Delphi 7) by mel smysl v pripade
ze ten produkt chcete jeste nejaky rok dale rozvijet. Bezproblemlove to ale
nebude, at jiz kvuli pouzitym komponentam od ruznych vyrobcu nebo i zmenam
(chybam) v RTL/VCL. Na druhe strane VCL v Delphi 4 bude mit asi problemy s
kompatibilitou u novejsich verzi Windows.
> V nasem systemu se provadeji relativne slozite vypocty na
> velkem mnozstvi dat. Jake zpusoby pro zrychleni aplikace je mozno
> pouzit, kdyz pominu doporuceni pro psani optimalniho kodu v delphi.
> Mohlo by byt cestou pro zrychleni aplikace vytvoreni casti kodu jako
> knihoven treba v C++? Pouziti DBExpres namisto ADONIS?.........
Delphi kompilator neprovadi zadne optimalizace kodu co se tyce vypoctu s float
typy. Pokud je to opravdu tak kriticke je ona DLL prelozena kompilatorem od
Microsoftu nebo Intelu resenim.
> Nenasel jsem nikde srovnani rychlosti vykonavani programu napsaneho
> Delphi a Visual C++. Nevite nekdo o necem takovem?
Pojem "rychlost vykonavani programu" je velmi obecny, vetsinu casu stejne
program travi v kodu API vlastniho operacniho systemu.
Petr Vones
QuickReport 3.5.0 - vlastni preview
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 10.9.2004 12:22:01
> Od: delphak(zv)centrum(tec)cz
> Datum: 10.09.2004 09:03:42
>
> Ahoj,
> jak jsem zjistil, originalni print preview obsahuje chyby - napr. uzivatel si muze nastavit, ktere stranky chce tisknout, ale stejne se mu vytisknou vsechny.
>
> Dik Vlada
Ahoj!
1) doporucuju Ti stahnout si vsechny texty ze stranek vyrobce qreportu (KnowledgeBase atd.) - jsou tam i priklady - je tam i vlastni preview
2) moc tomu never, ze se Ti to povede. Kdysi jsem to resil a je v tom nejaky vetsi hak. Myslim ze to slo jedine tak, ze jsi si zobrazil "nahled" a kdyz dal uzivatel tisk, tak jsi si zjistil nastaveni od ktere strany do ktere strany a musel jsi si vytvorit report znovu bez zobrazeni preview a poslat ho rovnou na tiskarnu. K tomu myslim jeste neslo preskocit urcite stranky, ale slo jen tisknout do urcite strany. Tusim, ze psali, ze je to proste takova vlastnost QR. Nova verze ma byt pry lepsi. Myslim, ze jsem to resil tak, ze jsem mel cely tisk pod kontrolou (vsechny bandy jsem plnil QRLabely z databaze - BeforePrint atd) a ted si nevybavuju, jestli timhle jsem bycl schopen preskocit na urcitou stranu. Myslim, ze se mi to nepovedelo. No jestli mas "zbytecnych" cca 10.000,- muzes si koupit novou verzi Prof., ale ja bych po negativnich zkusenostech s QR do toho nesel a spis bych Ti radil se preorientovat na freereport, fastreport a nebo sineu.
IMHO - Ano, QR je zadarmo (v cene), primo v Delphi, pro jednoduche a uzivatelsky nenarocne sestavy QR staci... Ale i doba, kdyz byla verze 3.5.? vypustena je uz daleko pryc a tak je potreba vzit potaz, ze nekdo uz muze byt i dal a za levnejc.
Nejaky priklad Ti muzu poslat az v Po. Pokud budes mit zajem, tak me kontaktuj na soukro mail.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Firebird a telefonicke pripojeni site
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.9.2004 12:03:59
> Asi toho nechame, priklanim se k nazoru PP, ze pres GUI poradi protokolu ve WIN98 nastavit nejde :-(
> Nicmene, jde to nejak jinak ?
zkus prikaz route. ale nevim, jestli je na w98 pritomen a ani s nim
neumim. jenom vim, ze kdyz mi kamos na NT nastavoval sit, tak na okna
ani nesah a nastavil tim (aspon myslim).
taky by mohlo pomoci zeditovat (zalozit) soubor HOSTS ve slozce WINDOWS
a do nej dat:
<IP-serveru> jmeno serveru
cimz mu natvrdo reknes, na jake IP adrese je server a on by nemusel
hledat buhvikde jinde.
peca
Projekt v delphi
[*] postapromne(zv)centrum(tec)cz - 10.9.2004 11:59:59
Dobry den,
pracuji jako programator ve firme na projektu (informacni system -
Delphi 4/ADONIS/SQL Server 2000). Nemam s Delphi prilis zkusenosti.
Mel bych dotaz ohledne prechodu na vyssi verze Delphi 6, 7 nebo
8. Nakolik muze byt tento prechod vyhodny a jake by mohly byt
argumenty pro tento prechod. Nakolik zavazna zalezitost to muze byt
co se tyce prace a casu (zpetna kompatibilita Delphi?).
V nasem systemu se provadeji relativne slozite vypocty na
velkem mnozstvi dat. Jake zpusoby pro zrychleni aplikace je mozno
pouzit, kdyz pominu doporuceni pro psani optimalniho kodu v delphi.
Mohlo by byt cestou pro zrychleni aplikace vytvoreni casti kodu jako
knihoven treba v C++? Pouziti DBExpres namisto ADONIS?.........
Nenasel jsem nikde srovnani rychlosti vykonavani programu napsaneho
Delphi a Visual C++. Nevite nekdo o necem takovem?
Diky Josef Tichy
Ulozeni a nacteni BLOB do FB 1.5
[*] info(zv)gastrocentrum(tec)cz - 10.9.2004 11:49:58
Ahoj
Jiz nekolik hodin resim jak ulozit Record packed do Blobu pres IBX .
Zkousel jsem to pomoci MemoryStreamu atd. ale nedari se.
Vi nekdo jak na to
Diky Heinisch Jiri
Zaheslovana databaze MS ACCES
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 10.9.2004 11:27:56
> ACCES, popr. existuje nejaka moznost, jak se do tabulek dostat pomoci
> nejakeho univerzalniho hesla. Diky za kazdou pomoc.
Vygoogli si office password recovery... naslo to toho docela dost :-)
Pavel Poles
Message pre spustene app - vyriesene
[*] mstevlik(zv)gamo.sk - 10.9.2004 11:27:56
> Ahoj,
>
> myslim, ze neni uplne vhodne drzet list IP adres. Co kdyz nejaka app
spadne,
> tak neposle zpravu o ruseni registrace. Lepsi by bylo, zjistit si ten
list
> vzdy, kdyz bude potreba a ne si ho nekde drzet.
>
> Pavel Tresnak
Vidis to ma nenapadlo, asi to spravim takto
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 10.9.2004 11:35:57
> > Hledal jsem takto (Win98SE CZ): Ovladaci panely -> Sit (?)
> -> Vazby. A
> > ted kam ? Ja tu mam jen checkboxy Klient site Microsoft a Sdileni
> > souboru a tiskaren v sitich Microsoft. Zadne nahoru/dolu se neda
> > nastavit.
>
> Jsi na dobre stope :-) Dalsi krok se muze skryvat za Properties z
> kontextoveho menu na nektere z polozek seznamu, typicky na TCP/IP.
Kontextove menu libovolne polozky v dialogu Sit zobrazi jen "Co to je ?" a nasledne zobrazi vetsinou nic nerikajici napovedu.
Konkretni polozka protokolu TCP/IP se vybira jiz v dialogu Sit, Vazby jsou ve Vlastnostech konkretniho TCP/IP protokolu a rikaji, ktere polozky mohou tento protokol pouzivat.
Asi toho nechame, priklanim se k nazoru PP, ze pres GUI poradi protokolu ve WIN98 nastavit nejde :-(
Nicmene, jde to nejak jinak ?
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Message pre spustene app - vyriesene
[*] Pavel Tresnak <delphi(zv)haida(tec)cz> - 10.9.2004 11:11:55
Ahoj,
myslim, ze neni uplne vhodne drzet list IP adres. Co kdyz nejaka app spadne,
tak neposle zpravu o ruseni registrace. Lepsi by bylo, zjistit si ten list
vzdy, kdyz bude potreba a ne si ho nekde drzet.
Pavel Tresnak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of mstevlik(zv)gamo.sk
> Nakoniec som to vyriesil tak, ze na zaciatku, app posle cez UDP hlasku,
> ostatne beziace app tento zachtia a poznacia si IP adresu od kt. to prislo
> a poslu jej spat spravu, aby si i on urobil zoznam IP na kt. bezi app
> Na konci cinnosti app posle hlasku vsetkym IP adresam ze konci svoju
> cinnost, aby si ju vyradili zo zoznamu IP
> Stevlik Marian
Message pre spustene app - vyriesene
[*] mstevlik(zv)gamo.sk - 10.9.2004 10:43:21
Dakujem vsetkym za ochotu
Nakoniec som to vyriesil tak, ze na zaciatku, app posle cez UDP hlasku,
ostatne beziace app tento zachtia a poznacia si IP adresu od kt. to prislo
a poslu jej spat spravu, aby si i on urobil zoznam IP na kt. bezi app
Na konci cinnosti app posle hlasku vsetkym IP adresam ze konci svoju
cinnost, aby si ju vyradili zo zoznamu IP
Kedze na kazdej app mam zoznam IP adries na kt. bezi app, nemam problem
posielat normalnu textovu spravu vsetkym beziacim, resp. jednej beziacej
app
Mam to ako komponentu, takze kto bude mat zaujem nech sa mi ozve na
sukromny mail
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
Firebird a telefonicke pripojeni site
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.9.2004 10:43:21
Haj hou!
On 10 Sep 2004 at 10:17, horky(zv)cominn(tec)cz wrote:
> > > > control Panel -> Networking -> Bindings -> All Adapters
> > -> Move down
>
> Hledal jsem takto (Win98SE CZ): Ovladaci panely -> Sit (?) -> Vazby. A
> ted kam ? Ja tu mam jen checkboxy Klient site Microsoft a Sdileni
> souboru a tiskaren v sitich Microsoft. Zadne nahoru/dolu se neda
> nastavit.
Jsi na dobre stope :-) Dalsi krok se muze skryvat za Properties z
kontextoveho menu na nektere z polozek seznamu, typicky na TCP/IP.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird a telefonicke pripojeni site
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.9.2004 10:33:20
Ahoj,
nevim o tom, ze by ve Win98 slo nekde v nastaveni site (pres GUI)
nastavit binding (respektive poradi sitovych zarizeni). Ale mozna by to
nekdo umel z prikazove radky pomoci nejakyho commandline udelatka, ktera
jsou ve winech tu a tam zasita.
peca
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 10.9.2004 10:17:19
> > > control Panel -> Networking -> Bindings -> All Adapters
> -> Move down
Hledal jsem takto (Win98SE CZ):
Ovladaci panely -> Sit (?) -> Vazby. A ted kam ? Ja tu mam jen checkboxy Klient site Microsoft a Sdileni souboru a tiskaren v sitich Microsoft. Zadne nahoru/dolu se neda nastavit.
Mozna je spatne uz Sit. Ale kam jinam ?
Nastaveni v registrech ?
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
> > ] On Behalf Of Pavel Cisar
> > > Melo by to byt:
> > > control Panel -> Networking -> Bindings -> All Adapters
> -> Move down
> > > a presunout Ethernet adpater na prvni misto.
> >
> > Ahoj,
> > Jsem jenom nechapavej, nebo je to nejaky rozdil mezi W2KEN a W2KCZ ?
> > Ja to v "Ovladaci panely"->"Sitova a telefonicka pripojeni"->??????
> > Nemuzu najit...
>
> Bohuzel nemam W98 poruce, takze nemuzu byt presnejsi, ale Sitova a
> telefonicka spojeni jsou neco jineho.
Firebird a telefonicke pripojeni site
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.9.2004 09:59:18
Haj hou!
On 9 Sep 2004 at 16:42, Ludek ZITA wrote:
> ] On Behalf Of Pavel Cisar
> > Melo by to byt:
> > control Panel -> Networking -> Bindings -> All Adapters -> Move down
> > a presunout Ethernet adpater na prvni misto.
>
> Ahoj,
> Jsem jenom nechapavej, nebo je to nejaky rozdil mezi W2KEN a W2KCZ ?
> Ja to v "Ovladaci panely"->"Sitova a telefonicka pripojeni"->??????
> Nemuzu najit...
Bohuzel nemam W98 poruce, takze nemuzu byt presnejsi, ale Sitova a
telefonicka spojeni jsou neco jineho.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: Zaheslovana databaze MS ACCES
[*] Pavel Lavicka <konference(zv)zus(tec)cz> - 10.9.2004 09:17:15
Ahoj,
potreboval bych poradit s "klasikou" - na jedne skole si ulozili dulezita
data do databaze ve formatu MS ACCES (verze Office XP), kterou si ochranili
heslem. Toto heslo nekoilkrat z "bezpecnostnich" duvodu menili a
komplikovali, az se dostali do stadia, kdy aktualni heslo zapomeli a nemou
se do databez dostat. Nevite nekdo o nejakem nastroji pro zjisteni hesla MS
ACCES, popr. existuje nejaka moznost, jak se do tabulek dostat pomoci
nejakeho univerzalniho hesla. Diky za kazdou pomoc.
Pavel
OT: co to su za subory RPT ?
[*] mato <mato.tino(zv)inmail.sk> - 10.9.2004 09:17:15
zdravim, cim sa daju prehliadat subory s koncovkou RPT ? Malo by to byt
nieco z crystall report. Vystup s nrjakej databazy. Existuje nejaky viewer
free ? Ak ano prosim link
dakujem
Obnova komunikace se siti
[*] Jiri Sedivec <jsedivec(zv)tiscali(tec)cz> - 10.9.2004 09:21:15
Nebudes mit spis problem v tom, ze ti tu minutu nefunguje nasdilena slozka?
Zkousel si tu minutu co to nejde nasdilet tu slozku jeste jednou? (Tedy
nejdrive ji musis odpojit, pak znovu nasdilet.)
----- Original Message -----
From: "RNDr. Milan Vorisek" <vorisek(zv)igtt(tec)cz>
Subject: Obnova komunikace se siti
> Stava se take, ze pri vzniku potizi se vsechny funkce, ktere pracuji
> se siti zakousnou a vraci se to z nich treba az po minute.Obnova komunikace se siti
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 10.9.2004 09:15:14
Ahoj,
v urcitych casovych intervalech kopiruju soubory z lokalniho PC
do adresare sitoveho serveru pomoci CopyFile. Pred tim kontroluju
jestli je to mozne pomoci DirectoryExists.
Kdyz jsou na serveru potize tak to samozrejme nefunguje,
ale nefunguje to ani po odstraneni potizi. DirectoryExists vraci
stale false.
Stava se take, ze pri vzniku potizi se vsechny funkce, ktere pracuji
se siti zakousnou a vraci se to z nich treba az po minute.
Existuje neco na rychle zjisteni funkce komunikace se serverem
a neco na obnoveni spoluprace s DirectoryExists?
Milan
OT - Smerovanie jednej siete do dvoch sieti
[*] Roland Turcan <konf(zv)rotursoft.sk> - 10.9.2004 09:01:13
<<< 10.9.2004 8:52 - Peter R. Konference "konfera(zv)rus(tec)cz" >>>
PRK> a mas tam NAT via ten RRAS? To je celkom dolezite.
PRK> Predpokladam, ze klienti sa teraz dostanu na zdroje na serveru, ale do netu je
PRK> to nepusti, ze?
Momentalne som to nechal tak, ze som zapol iba "Sdileni pripojeni k
siti internet". Ide im teraz Satelit, lebo bez toho nemozu existovat a
internet zatial nejde.
Co sa tyka RRAS, pokial som ho zapol na zdielanie internetu cez
Satelit, tak som nevedel pridat rozhranie toho modemu. Pokial som
skusil nakonfigurovat RRAS rucne tak mi neslo vobec nic.
Bolo by to jednoduhsie, keby som na siet pridal namiesto toho modemu
aDSL router? a Co by som potom mal nastavit v RRAS?
--
Best regards, TRoland
http://exekutor.rotursoft.sk
OT - Smerovanie jednej siete do dvoch sieti
[*] Roland Turcan <konf(zv)rotursoft.sk> - 10.9.2004 08:33:11
<<< 10.9.2004 8:30 - Peter R. Konference "konfera(zv)rus(tec)cz" >>>
PRK> Zdravim,
PRK> ako to popisujes, je to len otazka nastavenia spravneho smerovania, teda default
PRK> gateway by mala byt ta adsl, pre adresy 10.0.0.0/8 by to mala byt ta satelitna
PRK> gw.
PRK> Teda:
PRK> route add 0.0.0.0 mask 0.0.0.0 <adresa_adsl_rozhrania>
PRK> route add 10.0.0.0 mask 255.0.0.0 10.219.205.78
Pokial som pridal na server aDSL modem a pripojil som ho tak
smerovacia tabulka bola:
route add 0.0.0.0 mask 0.0.0.0 <adresa_adsl_rozhrania>
route add 0.0.0.0 mask 0.0.0.0 10.219.205.78
Tak som odpojil aDSL a dal som mu ROUTE DELETE 0.0.0.0 a pridal som
route add 10.219.0.0 mask 255.0.0.0 10.219.205.77
Na server sa uz dalo aj internetovat aj hrabat sa v satelite. Ale
dalej do klientov to neslo aj tak.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
QuickReport 3.5.0 - vlastni preview
[*] delphak(zv)centrum(tec)cz - 10.9.2004 08:33:10
Ahoj,
jak jsem zjistil, originalni print preview obsahuje chyby - napr. uzivatel si muze nastavit, ktere stranky chce tisknout, ale stejne se mu vytisknou vsechny.
V teto konferenci mi bylo porazeno, at si naprogramuju vlastni - mate s tim nekdo zkusenosti - muzete mi poslat ukazku nebo odkaz, jak vlastni preview naprogramovat?
Dik Vlada
OT - Smerovanie jednej siete do dvoch sieti
[*] Roland Turcan <konf(zv)rotursoft.sk> - 10.9.2004 08:19:09
Hello All!
Jeden zakaznik ma Windows 2000 Server v ktorom ma dve sietove karty a
jeden aDSL modem. Jedna sietovka je na komunikaciu s LAN, druha je
napojena na obojsmernu komunikaciu cez satelit na ich dodavatela. aDSL
modem je samozrejme na pristup k internetu.
Konfiguracia siete:
LAN:
IP: 192.168.0.1
MASK: 255.255.255.0
Satelit:
IP: 10.219.205.78
MASK: 255.255.0.0
GW: 10.219.205.77
aDSL:
IP: prideluje ISP
Ako zabezpecit smerovanie LANky do Satelitu a aDSL zaroven? Mozem
pouzit WinRoute 4 Lite, standartne RRAS ktore je sucastou W2KServer.
Lenze pri WinRoute 4 Lite, nemozem zapnut DNSProxy, lebo vo Windows
bezi jeho vlastny DNS server.
Skusal som uz aj WinRoute aj RRAS, ale podarilo sa mi stale rozbehat
iba smerovanie Satelitu a internet nesiel.
Skusal som uz chlapcov na windows(zv)pandora.sk, ale odpoved "pouzi
WinRoute, ale RRAS" mi nestaci, lebo to viem, ze na to tie sluzby
sluzia, ale ako to spravne nastavit.
Dakujem
--
Best regards, TRoland
http://exekutor.rotursoft.sk
jak SW udelat dropnuti souboru na bezici aplikaci
[*] Ing. Vladimir Ruzicka <ruzicka(zv)winet(tec)cz> - 10.9.2004 08:11:09
Ahoj,
jak SW udelat dropnuti souboru na bezici aplikaci ? Chtel bych po kliku na
tlacitko v programu hodit jmeno souboru, ktery mi lezi na disku, na bezici
aplikaci. Kdyz to delam z Windows Commandera, tak jenom pretahnu, ale z
programu se mi to zatim nepovedlo. Handle ciloveho okna mam - asi to bude
vcelku jednoduche, ale trochu se asi placam v parametrech.
dik
Vladimir, D4, W98, WXP
vetvoreni zastupce internetoveho pripojeni
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 10.9.2004 07:47:07
Ahoj.
Postup je Start, Ovladaci panely, Moznosti internetu, Upresnit, Zobrazi
aplikaci Internet Explorer na plose (zatrhnout a OK).
S pozdravem Mirek Vopalecky, D7 W2000 vetvoreni zastupce internetoveho pripojeni - POMOC
[*] david.kopecek(zv)hacktrack(tec)com - 9.9.2004 23:06:34
Dobry den,
9. zari 2004, 8:39:28, napsal jste:
dkhc> Zdravim
dkhc> nevine nekdo prosim jak lze v delphi vytvorit zastupce internetoveho
dkhc> propojeni ?....
dkhc> obycejne shortcut umim ale tohle ne
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Firebird a telefonicke pripojeni site
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 9.9.2004 16:42:07
] On Behalf Of Pavel Cisar
> Melo by to byt:
> control Panel -> Networking -> Bindings -> All Adapters -> Move down
> a presunout Ethernet adpater na prvni misto.
Ahoj,
Jsem jenom nechapavej, nebo je to nejaky rozdil mezi W2KEN a W2KCZ ?
Ja to v "Ovladaci panely"->"Sitova a telefonicka pripojeni"->??????
Nemuzu najit...
Ludek
Nad kterym formem je kurzor?
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 9.9.2004 16:12:05
Ahoj,
Api funkce WindowFromPoint. Nezkousel jsem to, ale pdle popisu je to to co potrebujes.
Petr
Firebird a telefonicke pripojeni site
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.9.2004 16:16:06
Haj hou!
On 9 Sep 2004 at 14:21, horky(zv)cominn(tec)cz wrote:
> Muzete mi poradit, jak udelat: "definovat bindings protokolu nejprve
> na sitovou kartu" ?
Melo by to byt:
control Panel -> Networking -> Bindings -> All Adapters -> Move down
a presunout Ethernet adpater na prvni misto.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Nad kterym formem je kurzor?
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 9.9.2004 16:08:05
Zdravim,
potreboval bych zjistit nad kterym formem se zrovna pohybuje mys.
Zkratka, nad kterym formem se zrovna vizuelne pohybuje kurzor mysi.
Zaklad, by byl asi projit Screen.Forms a zjistit jestli nejsem kurzorem
v BoundsRect, ale pak uz nevim jakym zpusobem zjistit, jestli je zrovna
tahle cast formu viditelna....
Vse bych potreboval v CLX (pokud nekdo vite jak na to ve VCL, tak bych
uvital pripadne i to...)
Predem dik za rady a podnety
Pavel Poles
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 9.9.2004 14:33:59
> From: Jiri Campulka [mailto:campulka(zv)czas(tec)cz]
> Sent: Thursday, September 09, 2004 10:32 AM
>
> V IE nastavit v moznostech pripojeni "Nikdy nevytacet pripojeni"...
No jo, ja ale potrebuju, aby po kliknuti na ikonu IE (OE) se vyvolalo Dial-up okno, protoze internet (mail) se stale pouziva ...
A zastupce Telefonniho pripojeni na plose vidim az jako uplne posledni moznost, kdyz selzou vsechny ostatni moznosti. Vzdyt to prece musi jit, to by se pak nemohl pouzivat FB na stanicich s Dial-upem.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
> > Vim, ze se to tu probiralo vicekrat, ale zadne reseni mi
> > nepomohlo. Mam pocitac s Win 98 SE, na nem je Dial-up
> > pripojeni k internetu. Z tohoto pocitace se potrebuji
> > pripojovat k databazi FB na jinem pocitaci. Prestoze do
> > connection stringu dam IP adresu jineho pocitace, tj. asi
> > takto: "192.168.0.123:d:\data\databaze.gdb"
> > tak se pri pripojeni k databazi nejdrive vyvola Dial-up
> > pripojeni k internetu.
Firebird a telefonicke pripojeni site
[*] horky(zv)cominn(tec)cz - 9.9.2004 14:21:57
> > Vim, ze se to tu probiralo vicekrat, ale zadne reseni mi
> nepomohlo. Mam
> > pocitac s Win 98 SE, na nem je Dial-up pripojeni k
> internetu. Z tohoto
> > pocitace se potrebuji pripojovat k databazi FB na jinem pocitaci.
> > pri pripojeni k databazi nejdrive vyvola Dial-up pripojeni k internetu. Kdyz Dial-up
> > zavru, databaze se otevre a dal uz je vse OK.
>
> From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
> Reseni je snadne. V parametrech nastaveni site woken je nutne
> definovat bindings protokolu nejprve na sitovou kartu, a teprve az
> pak na modem. Myslim, ze je to i popsane v ReleaseNotes (k verzi 1.0)
> nebo v QuickStart Guide.
V ReleaseNotes ani v QuickStart Guide jsem nic k tomu nenasel. Nicmene na IBPhoenix Knowledgebase jsem nasel radu, nastavit Protokol TCP/IP -> LAN karta na "Vychozi", protokol TCP/IP -> telefonni adapter nesmi byt vychozi. To jsem nastavil, nicmene to nepomohlo :-(
Muzete mi poradit, jak udelat: "definovat bindings protokolu nejprve na sitovou kartu" ?
Diky za kazdou radu.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
IB/FB - zjisteni cesty k gfix.exe
[*] Frantisek Bohac <bohacf_dkonf(zv)vnol(tec)cz> - 9.9.2004 13:15:51
Ing. Jiri Sokol napsal(a):
>Ahoj.
>Potreboval bych dodelat update databaze a k tomu bych potreboval spustit gfix.exe.
>
>
U FB 1.5 je tomu takto:
HKLM\Software\Firebird Project\Firebird Server\Instances
DefaultInstance=cesta_k_fb
cesta ke gfix.exe je cesta_k_fb\bin\gfix.exe
Ten registr ze zmineny v instalaci (.\doc\README_installation.txt).
S pozdravem
FB
Message pre spustene app
[*] delphin(zv)post(tec)cz - 9.9.2004 13:15:51
> Hi all,
> Chcel by som vyriesit nasl. problem
> Potreboval by som obcas upozornit uzivatelov kt. maju v ramci siete
> spustenu moju app (napr aby sa vypli alebo iny message)
> Rozmyslam ako taketo nieco co najrychlejsie vyriesit
> Napadlo ma ze by si app cez timer osahavali nejaky shareovany adr ci sa
> tam nezjavil nejaky txt subor a ten by okamzite zobrazili
> Skor by som to chcel riesit na zaklade TCP/IP
> Viete mi poradit ako by ste taketo nieco riesili vy?
Dalsi moznost jsou Mailsloty z API. IMHO je s tim min psani nez s TCP/IP.
IB/FB - zjisteni cesty k gfix.exe
[*] Frantisek Bohac <bohacf_dkonf(zv)vnol(tec)cz> - 9.9.2004 13:27:53
Ing. Jiri Sokol napsal(a):
>Ahoj.
>Potreboval bych dodelat update databaze a k tomu bych potreboval spustit gfix.exe.
>
U FB 1.5 je tomu takto:
HKLM\Software\Firebird Project\Firebird Server\Instances
DefaultInstance=cesta_k_fb
cesta ke gfix.exe je cesta_k_fb\bin\gfix.exe
Ten registr je zmineny v instalaci (.\doc\README_installation.txt).
S pozdravem
FB
Nabidka zamestnani - muj pohled
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 9.9.2004 13:27:52
> Vsak ty vis, jak jsem to myslel - ze to neni podnikani na
zivnostensky
> list, ale autorska cinnost, ktera se logicky take
zdanuje... omlouvam
> se za nepresnosti.
Jo jo, napadlo mne to, ze to tak myslis, ale az jsem to
odeslal:) rychleji jsem myslel. Obecne je to fakt docela
cele gulas a maglajz, bezny clovek si mysli, ze je to tak a
ze FU vlastne nemuze to nebo ono, ale realita je mnohem
drsnejsi:( KER
QuickSearch
[*] Karol Chupek <chupek(zv)apollo.sk> - 9.9.2004 13:59:56
Skus Google a skupiny
daj si vyhladat quicksearch a delphi a urcite tam nieco najdes..
napr
http://groups.google.sk/groups?q=quicksearch+delphi&hl=sk&lr=&ie=UTF-8&selm=
948185096%40p204.f27.n5012.z2.ftn&rnum=5
karol
> QuickSearch je na hledani v textu. Je to zalozeni na KMP a BM
> algoritmu.
> Prezentovan byl nekdy kolem roku 1990 (myslim).> --
> Jiri Cincura
> e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
> ICQ#: 314711544
> web: http://www.cincura.net; http://photo.cincura.net
>
>
>
>
v TThread nelze pristupovat na Excel pres OLEObjec
[*] Slavek <vlkb(zv)atlas(tec)cz> - 9.9.2004 13:43:54
uz mi to jede,
prvne se musi volat CoInitialize(nil) a pak az CreateOLEObject uvnitr
vlakna,
CreateOLEObject jsem pred tim volal mimo vlakno
TMyTThread.Execute;
var
MSExcel:Variant;
begin
CoInitialize(nil);
try
MSExcel := CreateOleObject('Excel.Application');
.....
finally
CoUninitialize;
end;
end;
----- Original Message -----
From: "Ondrej Kelle" <o.kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 09, 2004 11:31 AM
Subject: Re: v TThread nelze pristupovat na Excel pres OLEObject
> > zdravim vsechny, prosim o radu
> >
> > potrebuji exportovat velke mnostvi dat do excelu a
> > spustim ho takhle:
> > var
> > MSExcel:Variant;
> > begin
> > MSExcel := CreateOleObject('Excel.Application');
> > MSEXCEL.Range['A1:K64'].Select;
> > ....
> > end;
> >
> > vse bezi vpohode, ale kdyz ten stejny kod dam do
> > TMyThread.Execute, vyvola to vyjimku pri prvnim pristupu
> > k MSEXCEL po CreateOleObject:
> > EOleSysError "Nebyla volana procedura CoInitialize"
> >
> > pokusil jsem se CoInitialize tedy zavolat ale potom zase vyjimka:
> > EOleSysError "Aplikace zavolala rozhrani, ktere bylo zarazeno
> > do jineho podprocesu."
>
> CoInitialize/CoUninitialize musis volat pre kazdy thread, v ktorom chces
> pouzivat COM, zvlast. To znamena v tele metody Execute:
>
> procedure TMyThread.Execute;
> begin
> CoInitializeEx(nil, CoInitFlags);
> try
> ...
> finally
> CoUninitialize;
> end;
> end;
>
> HTH
> TOndrej
>
>
>
>QuickSearch
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 9.9.2004 13:17:52
Petr Brant wrote:
> Jestli by stacil QuickSort, tak je v Classes.pas:
Ale QuickSort je neco jineho nez QuickSearch. ;-)
QuickSearch je na hledani v textu. Je to zalozeni na KMP a BM algoritmu.
Prezentovan byl nekdy kolem roku 1990 (myslim). Kdezto QuickSort tridi
posloupnost. Vyberem pivota a rozdelenim posloupnosti a dalsim
QuickSortnutim.
Jeste k tomu jsem ted zjistil, ze to v C je jen v "jako" algoritmus. Takze
nemam nic. :(
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Nabidka zamestnani - muj pohled
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.2004 13:05:50
Puvodni zprava ze dne 9.9.2004:
>> zaklade autorskeho zakona, kdy to neni a ani nemuze byt zadne
>> podnikani...
> toto neni pravda. Podle obch. zak. je to podnikani podle zvlastniho
> predpisu. KER
Vsak ty vis, jak jsem to myslel - ze to neni podnikani na zivnostensky
list, ale autorska cinnost, ktera se logicky take zdanuje... omlouvam
se za nepresnosti.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Nabidka zamestnani - muj pohled
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 9.9.2004 13:03:50
> cedecky a knizkami, ale rozhone nemuzes mit na sklade
haldy prevodu
> prav k uziti. To se naskladnit moc neda.
Presne tak. Navic zalezi an tom, jaky typ skladu se vede,
zda A nebo B. Ale to uz opravdu spise patri do konference
ucetnictvi:( Mimochodem, sam z osobni zkusenosti vim, ze i
danovi poradci jsou VELMI chybujici lide, takze pozor na to.
Argument, ze danovy poradne mi rekl toto jeste vubec
neznamena, ze je to pravda. A prave veci souvisejici s
autorskym pravem a prevodem licenci jsou pro mnohe DP velkou
neznamou:(
Nabidka zamestnani - muj pohled
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 9.9.2004 12:59:49
> zaklade autorskeho zakona, kdy to neni a ani nemuze byt
zadne
> podnikani...
Cau Petre,
toto neni pravda. Podle obch. zak. je to podnikani podle
zvlastniho predpisu. KER
QuickSearch
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.9.2004 12:15:46
Jestli by stacil QuickSort, tak je v Classes.pas:
TListSortCompare = function (Item1, Item2: Pointer): Integer;
procedure QuickSort(SortList: PPointerList; L, R: Integer;
SCompare: TListSortCompare);
var
I, J: Integer;
P, T: Pointer;
begin
repeat
I := L;
J := R;
P := SortList^[(L + R) shr 1];
repeat
while SCompare(SortList^[I], P) < 0 do
Inc(I);
while SCompare(SortList^[J], P) > 0 do
Dec(J);
if I <= J then
begin
T := SortList^[I];
SortList^[I] := SortList^[J];
SortList^[J] := T;
Inc(I);
Dec(J);
end;
until I > J;
if L < J then
QuickSort(SortList, L, J, SCompare);
L := I;
until I >= R;
end;
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
nemel by nekdo QuickSearch algoritmus v Delphi? Hledal jsem na Internetu,
ale mam jen bastl v C. V nouzi to budu muset prepsat.
Nabidka zamestnani - muj pohled
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.2004 12:53:49
Puvodni zprava ze dne 9.9.2004:
> Do majetku snad ne ?
Ale jo, do majetku.
> software, ktery vytvorim na zakazku - dostanu zaplaceno jako za
> provedenou sluzbu
Pokud software vytvoris na zakazku pro jinou firmu, pak je to take
nehmotny majetek - ale jejich. Protoze ty jsi ho sice vytvoril, ale
pro ne. Takze oni maji majetek.
Pokud ovsem vzniknou pri vyvoji nejake vedlejsi produkty, ktere sam
budes dale pouzivat, zase je to majetek vytvoreny vlastni cinnosti.
Musi se evidovat. Pokud vedes ucetnictvi a je to nad 60 tisic, pak i
odepisovat. A zase pozor na to, ze muzes take vyvijet software na
zaklade autorskeho zakona, kdy to neni a ani nemuze byt zadne
podnikani...
> Krabicovy software - to jsou snad zasoby a ne majetek
No to je podle me trochu omyl. Nevidel jsem nikde zadny oficialni
vyklad (ale mame tu spoustu odborniku na ucetnictvi a dane a pravo,
kterym je vse zcela jasne, jak sis jiste vsiml v predchozich
diskusich, tak mozna to vysvetli), nicmene ja si myslim, ze i krabice
se softwarem je hlavne ten software. Sice v podstate prodas skatuli,
ale stale se jedna o prevod prava k uziti. Kdyz si vyrobis haldy
krabic se softwarem, mas sice na sklade haldy jakychsi krabic s
cedecky a knizkami, ale rozhone nemuzes mit na sklade haldy prevodu
prav k uziti. To se naskladnit moc neda.
Ono tim nehmotnym majetkem nejsou ty jednotlive licence, kolik sis
jich vyrobil nebo vypalil na cedecka, ale ten vytvor, to dilo. V
idealnim pripade - naprogramujes software, das ocenit znalcem, vyleze
cena. Ta cena neni rovna kusove cene aplikace, kterou ti zaplati
zakaznik za jednu licenci, resp. kterou sis urcil. Ani neni rovna
tomu, kolik licenci jsi prave ted vyrobil na sklad. Ta cena bude
zaviset na mnoha faktorech, protoze vyjadruje hodnotu software, tedy i
treba to, jaka je cilova skupina, jake je pro ni misto na trhu, kolik
se toho tak muze prodat, jestli se vubec neco proda, jakou ma hodnotu
pro zakazniky, jakou ma budoucnost, jak se muze dal vyvijet apod.
Software, ktery se rozhodnes prodavat za 100 Kc nebo davat zadarmo,
muze mit hodnotu 10 Kc a nebo taky miliony. Pokud v ramci podnikani
vyvines software s hodnotou milionu, naklady na vyvoj das do nakladu,
a zacnes ho davat free, tak si celkem pak vydelas, kdyz prijde na
lamani chleba. Vlastne ne, omlouvam se, to zase nasazuji proti free a
open source programu, pochopitelne si delam legraci, tito vyvojari si
muzou uplatnit jakekoliv vydaje a vse bude bezva...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT: WAS(: A je klid (Was: Nabidka zamestnani)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 9.9.2004 12:15:46
Behalf Of Radim Kunz
> Dodavam, ze my jsme zase zpatky za komancu.
Ahoj,
No ja to vim uz minimalne 6 let.....
A co teprve, az vystrci ruzky EU - to pak budeme konecne soucasti
SVAZU.....
Ludek
Nabidka zamestnani - muj pohled
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.9.2004 12:15:46
Ludek ZITA wrote:
> Take jinak vypada argumentace o "nakladu nutnem na zajisteni a udrzeni
> prijmu" v okamziku, kdy jste pet let ve ztrate a na financni urad
Kdyz pomineme hrubky v ucetnictvi, tak tohle je IMHO stezejni: urednik na
bernaku ma asi slusny prehled o situaci v rajonu a dulezite je, jak mu
vybocujete/nevybocujete
z rady.
pf
Message pre spustene app
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.9.2004 12:27:47
UDP...? Jisteze ne, posilam pakety TCP/IP, u tech vim, ze urcite dojdou a i
ve spravnem poradi (mysleno tak, ze kdyz posilam nejaka data, poskladaji se
spravne). Resim to tak, ze mam na strane prijemce TCP/IP server, ktery ceka
na nejakem portu na data (posilam strukturu packed record a pouzivam metodu
TBlockSocket.RecvBufferEx Synapse pro prijem dat s pevnou delkou). TCP/IP
adresa prijemce se zjisti pri jeho prihlasovani k serverove casti pri startu
aplikace, takze na aplikacnim serveru se v pripade potreby vytvori klient,
ktery stanicim posila upozorneni "updatujte si zobrazeni tabulek", "prave se
downloaduji nova data", "na serveru se provadi zalohovani, nelze udelat to a
to"... atd.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
> Presne jak doporucujes - pres TCP/IP. Pouzivam Synapsi a chodi to
vyborne.
Posielas nejaky UDP ale to riesis inaksie?
WAS(: A je klid (Was: Nabidka zamestnani)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 9.9.2004 12:11:46
On Behalf Of Zbysek Hlinka
> Hehe. Soud: Tesco musi na danich doplatit 146 milionu korun.
> http://hn.ihned(tec)cz/2-14879260-500000_d-d7
>
Ahoj,
To je ovsem celkem mimo misu, protoze jde o danovy dluh jineho subjektu,
Ludek
QuickSearch
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 9.9.2004 12:09:45
Ahoj,
nemel by nekdo QuickSearch algoritmus v Delphi? Hledal jsem na Internetu,
ale mam jen bastl v C. V nouzi to budu muset prepsat.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Nabidka zamestnani - muj pohled
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 9.9.2004 12:07:45
> >> A ja bych jeste dodal dalsi vec, totiz ze vyvinuty software se po
> >> dokonceni stane nehmotnym majetkem a je nutno jej evidovat jako
> >> majetek firmy i pripadne fyzicke osoby vedouci danovou evidenci,
> >> ktera take majetek musi evidovat.
>
> > To je pravda, mame takove zkusenosti. Navic pokud se na takovem
> > software neustale pracuje a provadi se vyvoj, vylepseni atd., tak
> > vsechny naklady s timto spojene, jsou vlastne technickym
> zhodnocenim
> > majetku (musi presahnout 60 000 Kc) a neuplatnuji se primo,
> ale formou
> > odpisu. Teoreticky, takovy majetek nepujde nikdy odepsat.
Zdravim,
Do majetku snad ne ?
software, ktery vytvorim na zakazku - dostanu zaplaceno jako za
provedenou sluzbu
Krabicovy software - to jsou snad zasoby a ne majetek
Ludek
P.S. Zaver z teto diskuze je IMHO ten, ze mozne je vlastne vsechno, ale
pouze je dulezite jak to kdo pojmenuje a vyargumentuje.
Velmi dulezitou soucasti je i to KDO bude za Vas argumentovat. Pokud se
budete "hajit" sami, pravdepodobne narazite spise, nez kdyz za Vas bude
jednat zkuseny danovy poradce nebo auditor.
Podle mych informaci - pokud to dotahnete az k soudu tak v 90% pripadu
splacete nad vydelkem (... protoze nase soudy jsou opravdu, ale opravdu
nezavisle, ovsem bohuzel zejmena na jakychkoliv zakonech)
Take jinak vypada argumentace o "nakladu nutnem na zajisteni a udrzeni
prijmu" v okamziku, kdy jste pet let ve ztrate a na financni urad
dojedede Medourem, nez kdyz Vas spravce dane vidi, ze platite rok od
roku vice a vice.
Ludek Problem s maximalizaci okna
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 9.9.2004 11:51:44
> mam problem s maximalizaci okna. V create() okna si nastavim property
> WindowState=wsMaximized (to nastavovani probiha pouze v nekterych
> pripadech, proto je to v create okna), a okno v nekterych pripadech se
> mi nemaximalizuje pres celou obrazovku.
Ahoj,
asi to nebude pravda, ale zkus overit, ze prislusny form nema nastaveny Constraints.
David Lebeda
Problem s maximalizaci okna
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 9.9.2004 11:49:43
Funguje to takto divne len na XP. Riesenim je nastavit vlastnost okna
Position: poMainFormCenter
Ing. Rastislav Lazan
lazan(zv)davidplus.sk
Jiri Goth wrote:
> Dobry den,
> mam problem s maximalizaci okna. V create() okna si nastavim property
> WindowState=wsMaximized (to nastavovani probiha pouze v nekterych
> pripadech, proto je to v create okna), a okno v nekterych pripadech
> se mi nemaximalizuje pres celou obrazovku. I kdyz okno neni
> vykresleno pres celou obrazovku, tak v systemovem menu je
> Maximalizace zasedena a okenko se chova tak, jako by bylo
> maximalizovane (tj. nejde tahnutim mysi zmenit jeho velikost apod.).
> Bohuzel jsem nezjistil pricinu spatneho a spravneho chovani. Snad, ze
> na to okno nekdy vykresluji vice prvku a u nich menim ruzne velikost.
> Nicmene na DELPHI 3.0 jsem s tim nikdy nemel problemy a po te, co
> jsem ted presel na DELPHI 6.0 (SP2) se mi to dost casto objevuje (WIN
> XP).
> Nemel jste nekdo obdobnou zkusenost nebo alespon trochu netusite, cim
> by to mohlo byt?
>
> Diky,
> Jiri Goth
> Gordic Jihlava
v TThread nelze pristupovat na Excel pres OLEObjec
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 9.9.2004 11:37:42
> CoInitializeEx(nil, CoInitFlags);
Este ma napadlo, ze CoInitializeEx moze byt nil na Win95 a WinNT 3.51, kde
tato funkcia neexistuje, takze lepsie by to mozno bolo takto:
procedure TMyThread.Execute;
begin
if Assigned(CoInitializeEx) then
CoInitializeEx(nil, CoInitFlags)
else
CoInitialize(nil);
try
...
finally
CoUnitialize;
end;
end;
HTH
TOndrej
v TThread nelze pristupovat na Excel pres OLEObjec
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 9.9.2004 11:31:42
> zdravim vsechny, prosim o radu
>
> potrebuji exportovat velke mnostvi dat do excelu a
> spustim ho takhle:
> var
> MSExcel:Variant;
> begin
> MSExcel := CreateOleObject('Excel.Application');
> MSEXCEL.Range['A1:K64'].Select;
> ....
> end;
>
> vse bezi vpohode, ale kdyz ten stejny kod dam do
> TMyThread.Execute, vyvola to vyjimku pri prvnim pristupu
> k MSEXCEL po CreateOleObject:
> EOleSysError "Nebyla volana procedura CoInitialize"
>
> pokusil jsem se CoInitialize tedy zavolat ale potom zase vyjimka:
> EOleSysError "Aplikace zavolala rozhrani, ktere bylo zarazeno
> do jineho podprocesu."
CoInitialize/CoUninitialize musis volat pre kazdy thread, v ktorom chces
pouzivat COM, zvlast. To znamena v tele metody Execute:
procedure TMyThread.Execute;
begin
CoInitializeEx(nil, CoInitFlags);
try
...
finally
CoUninitialize;
end;
end;
HTH
TOndrej
IB/FB - zjisteni cesty k gfix.exe
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 9.9.2004 11:29:41
Ahoj.
Potreboval bych dodelat update databaze a k tomu bych potreboval spustit gfix.exe. Jenomze nechci, aby to znalo jen jednu cestu - to je vsem jasne.
Jake jsou moznosti? Me napada pouze jedna a to pres registry. Mam nainstalovan FB 1.5.0 a tak bych vas chtel pprosit, zda byste mi neposlali klice z registru na IB a FB 1.0. Pak kdyz to na tehle cestach nenajdu, tak uz to musim nechat na uzivateli a ten bude muset soubor najit rucne.
Nebo mate jine reseni?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Message pre spustene app
[*] mstevlik(zv)gamo.sk - 9.9.2004 10:53:39
> Presne jak doporucujes - pres TCP/IP. Pouzivam Synapsi a chodi to
vyborne.
>
> ZDravim
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> http://brant.wz(tec)cz
Posielas nejaky UDP ale to riesis inaksie?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
delphi-l-owner(zv)clexpert(tec)cz wrote on 09.09.2004 10:35:37:>
>
> Potreboval by som obcas upozornit uzivatelov kt. maju v ramci siete
spustenu
> moju app (napr aby sa vypli alebo iny message) Rozmyslam ako taketo
nieco co
> najrychlejsie vyriesit Napadlo ma ze by si app cez timer osahavali
nejaky
> shareovany adr ci sa tam nezjavil nejaky txt subor a ten by okamzite
> zobrazili Skor by som to chcel riesit na zaklade TCP/IP Viete mi poradit
ako
> by ste taketo nieco riesili vy?
>
>
Pouziti Bzip2.dll
[*] tomsir1.edu(zv)mail.cez(tec)cz - 9.9.2004 10:53:39
Ahoj,
chci se zeptat zda nekdo pouziva bzip2.dll ze
http://cvs.sf.net/cgi-bin/viewcvs.cgi/elj/elj-2002/bin/win32/
Mam problem s tim, ze pokud chci pouzit dekompresi do TMemoryStream, toto
neprobehne spravne. Pokud pouziju dekompresi do TFileStream, je vse v
poradku, jenze jsem se chtel vyhnout docasnemu souboru ....
Diky Radek
Problem s maximalizaci okna
[*] Jiri Goth <jiri_goth(zv)gordic(tec)cz> - 9.9.2004 11:07:40
Dobry den,
mam problem s maximalizaci okna. V create() okna si nastavim property
WindowState=wsMaximized (to nastavovani probiha pouze v nekterych pripadech,
proto je to v create okna), a okno v nekterych pripadech se mi
nemaximalizuje pres celou obrazovku. I kdyz okno neni vykresleno pres celou
obrazovku, tak v systemovem menu je Maximalizace zasedena a okenko se chova
tak, jako by bylo maximalizovane (tj. nejde tahnutim mysi zmenit jeho
velikost apod.).
Bohuzel jsem nezjistil pricinu spatneho a spravneho chovani. Snad, ze na to
okno nekdy vykresluji vice prvku a u nich menim ruzne velikost.
Nicmene na DELPHI 3.0 jsem s tim nikdy nemel problemy a po te, co jsem ted
presel na DELPHI 6.0 (SP2) se mi to dost casto objevuje (WIN XP).
Nemel jste nekdo obdobnou zkusenost nebo alespon trochu netusite, cim by to
mohlo byt?
Diky,
Jiri Goth
Gordic Jihlava
v TThread nelze pristupovat na Excel pres OLEObjec
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.9.2004 11:05:40
Slavek wrote:
> pokusil jsem se CoInitialize tedy zavolat ale potom zase vyjimka:
> EOleSysError "Aplikace zavolala rozhrani, ktere bylo zarazeno do
> jineho podprocesu."
Jestli to neni tim, ze ho volas v konstruktor threadu, ktery bezi v kontextu
hlavniho threadu. Mel bys ho dat do metody Execute.
HTH, pf
Message pre spustene app
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 9.9.2004 10:47:38
mstevlik(zv)gamo.sk wrote:
> Hi all,
> Chcel by som vyriesit nasl. problem
> Potreboval by som obcas upozornit uzivatelov kt. maju v ramci siete
> spustenu moju app (napr aby sa vypli alebo iny message) Rozmyslam ako
> taketo nieco co najrychlejsie vyriesit Napadlo ma ze by si app cez timer
> osahavali nejaky shareovany adr ci sa tam nezjavil nejaky txt subor a ten
> by okamzite zobrazili Skor by som to chcel riesit na zaklade TCP/IP Viete
> mi poradit ako by ste taketo nieco riesili vy?
>
Ja bych si spis ze Synapse vzal HTTPServer demo a prepsal to na nejaky jiny
port - a prikazy bych udelal jinak nez HTTP, ale fakt jen jednoduche.
Jednou za cas by se app. zeptala serveru a ten by bud vratil zpravu, nebo
nic. Tohle by bylo dobre asi i pro dalsi cas rozsirovani.
A uplne simple bych to udelal tak, ze bych rozjel nekde Sambu, jeden
adresar, kde by byl zprava.txt. Jednou za cas by se app. mrkla a bud
zobrazila pokud tam neco je, nebo nic.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
v TThread nelze pristupovat na Excel pres OLEObjec
[*] Slavek <vlkb(zv)atlas(tec)cz> - 9.9.2004 10:39:37
zdravim vsechny, prosim o radu
potrebuji exportovat velke mnostvi dat do excelu a spustim ho takhle:
var
MSExcel:Variant;
begin
MSExcel := CreateOleObject('Excel.Application');
MSEXCEL.Range['A1:K64'].Select;
....
end;
vse bezi vpohode, ale kdyz ten stejny kod dam do TMyThread.Execute, vyvola
to vyjimku pri prvnim pristupu k MSEXCEL po CreateOleObject:
EOleSysError "Nebyla volana procedura CoInitialize"
pokusil jsem se CoInitialize tedy zavolat ale potom zase vyjimka:
EOleSysError "Aplikace zavolala rozhrani, ktere bylo zarazeno do jineho
podprocesu."
dik za kazdou pomoc
Slavek Hemala