Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
File Search
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 10.10.2003 13:05:17
10.11.2003 Milos J. Hrach:
> Mam nasledujici problem:
> Potrebuji hledat v cele strukture zadaneho adresare soubory
> znameho jmena, ktere se ale nemusi v dane strukture vyskyrovat.
> Podle me je reseni v pouziti funkce FileSearch a pes bude zakopan
> v promenne DirList. Nejak se do ni bude muset nacist struktura
> adresare vcetne podadresaru.
Hledej rekurzivne pomoci FindFirst() FindNext(), budes hledat s maskou
*.*, pri nalezeni si porovnas, jestli je to soubor, ktery hledas,
pokud narazis na adresar, spustis tu samou funkci pro ten adresar
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
File Search
[*] Milos J. Hrach <jhrach(zv)post(tec)cz> - 10.10.2003 12:51:16
Mam nasledujici problem:
Potrebuji hledat v cele strukture zadaneho adresare soubory
znameho jmena, ktere se ale nemusi v dane strukture vyskyrovat.
Podle me je reseni v pouziti funkce FileSearch a pes bude zakopan
v promenne DirList. Nejak se do ni bude muset nacist struktura
adresare vcetne podadresaru.
Poradite nekdo jak na tento problem?
Diky
Jakub
--
Potrebujete vice prostoru pro vase stranky?
Ptejte se na http://sluzby.volny(tec)cz/cs/product/ftp_paid
D5 - > D7
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 10.10.2003 12:45:14
10.11.2003 Vaclav Sazima:
> kdyz se snazim zkompilovat program napsany v D5 pod D7, napise
> mi tuhle hlasku :
> [Fatal Error] timesync.dpr(6): Unit StdActns was compiled with a
> different version of StrUtils.TStringSearchOptions
Nenechavat stare unity a DCU v adresari s aplikaci.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
FileSearch
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.10.2003 12:47:14
ale pouze v tom aktualnim adresari ...
Jirka
> Tohle ten problem podle me neresi, protoze fratili FindFirst
> nenalezeni souboru nelze dale hledat, tedy alespon podle me. Jakub
Excel - tisk
[*] kexo <kexo(zv)ynet.sk> - 10.10.2003 12:37:13
je to textovy retazec - nazov tlaciarne na ktoru sa ma tlacit.
inymi slovami, ked vyvolas TPrintDialog, alebo TPrinterSetupDialog, kde si
nastavis vystupnu tlaciaren; tak nazov vybranej tlaciarne najdes v
Printer.Printers[Printer.PrinterIndex]
kexo
----- Original Message -----
From: "Vlastimil Zdenek" <delphi(zv)gestore(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 10, 2003 12:03 PM
Subject: Re: Excel - tisk
> Diky. Vsechno vypada OK az na parametr "ActivePrinter". Jak ji zjistim??
>
> Vlasta
>
> ----- Original Message -----
> From: "kexo" <kexo(zv)ynet.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, November 10, 2003 11:21 AM
> Subject: Re: Excel - tisk
>
>
> > Excel.ActiveWorksheet.Printout
> >
FileSearch
[*] Milos Jakub Hrach <jhrach(zv)centrum(tec)cz> - 10.10.2003 12:33:13
Tohle ten problem podle me neresi, protoze fratili FindFirst
nenalezeni souboru nelze dale hledat, tedy alespon podle me. Jakub
______________________________________________________________
> Od: "Jaroslav Bucek" <jaroslav.bucek-kd(zv)seznam(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Mon, 10 Nov 2003 11:51:09 +0100
> Predmet: Re: FileSearch
>
> ----- Original Message -----
> From: "Milos Jakub Hrach" <jhrach(zv)centrum(tec)cz>
> > vyhledavat soubor znameho jmena. Predpokladam, ze spravnym
prikazem
> > je funkce FileSearch a pes je zakopan v promene DirList. Muzte
nekdo
>
> Predpokladam, ze spravnym prikazem bude FindFirst a FindNext s
tim, ze
> pouzijes rekurzivni volani na nalezene adresare.
>
> Jarda
>
>
>
D5 - > D7
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 10.10.2003 12:29:12
Ahoj,
kdyz se snazim zkompilovat program napsany v D5 pod D7, napise
mi tuhle hlasku :
[Fatal Error] timesync.dpr(6): Unit StdActns was compiled with a
different version of StrUtils.TStringSearchOptions
Nevite, jak se toho zbavit?
Dekiji za odpoved
Vaclav Sazima
Jak unloadnout balicek?
[*] Vlko II. <vlko(zv)zilina(tec)net> - 10.10.2003 12:03:10
On Mon, 10 Nov 2003 11:01:05 +0100, Jiri Cincura <jiri(zv)cincura.net> wrote:
> tak, ze kdyz OnFormClose (zkousel jsem i jine), tak si poslu zpravu
> WM_USER+xxx a v ni cislo balicku (to je dobre) a unloadnu ho. Jenze v
Nie je to pri OnFormClose prilis skoro?? Co tak OnDestroy?
Vlko
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
FileSearch
[*] Jaroslav Bucek <jaroslav.bucek-kd(zv)seznam(tec)cz> - 10.10.2003 11:51:09
----- Original Message -----
From: "Milos Jakub Hrach" <jhrach(zv)centrum(tec)cz>
> vyhledavat soubor znameho jmena. Predpokladam, ze spravnym prikazem
> je funkce FileSearch a pes je zakopan v promene DirList. Muzte nekdo
Predpokladam, ze spravnym prikazem bude FindFirst a FindNext s tim, ze
pouzijes rekurzivni volani na nalezene adresare.
Jarda
Excel - tisk
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 10.10.2003 12:03:10
Diky. Vsechno vypada OK az na parametr "ActivePrinter". Jak ji zjistim??
Vlasta
----- Original Message -----
From: "kexo" <kexo(zv)ynet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 10, 2003 11:21 AM
Subject: Re: Excel - tisk
> Excel.ActiveWorksheet.Printout
>
> vytah z excelovskeho helpu VBA:
> PrintOut Method
> Prints the object.
>
> Syntax
>
> expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile,
> Collate, PrToFileName)
>
> expression Required. An expression that returns an object in the Applies
> To list.
>
> >From Optional Variant. The number of the page at which to start
printing.
> If this argument is omitted, printing starts at the beginning.
>
> To Optional Variant. The number of the last page to print. If this
> argument is omitted, printing ends with the last page.
>
> Copies Optional Variant. The number of copies to print. If this argument
> is omitted, one copy is printed.
>
> Preview Optional Variant. True to have Microsoft Excel invoke print
> preview before printing the object. False (or omitted) to print the object
> immediately.
>
> ActivePrinter Optional Variant. Sets the name of the active printer.
>
> PrintToFile Optional Variant. True to print to a file. If PrToFileName
is
> not specified, Microsoft Excel prompts the user to enter the name of the
> output file.
>
> Collate Optional Variant. True to collate multiple copies.
>
> PrToFileName Optional Variant. If PrintToFile is set to True, this
> argument specifies the name of the file you want to print to.
>
> Remarks
>
> "Pages" in the descriptions of From and To refers to printed pages - not
> overall pages in the sheet or workbook.
>
> kexo
>
> ----- Original Message -----
> From: "Vlastimil Zdenek" <delphi(zv)gestore(tec)cz>
> Subject: Excel - tisk
>
>
> > Zdravim vsechny!
> > Poradte prosim, jak vytisknu excelovsky soubou vytvoreny v delphi?
>
>
>
>
FileSearch
[*] kexo <kexo(zv)ynet.sk> - 10.10.2003 11:37:08
http://www.torry.net/search.htm
neskusal som, ale pozri si komponentu FileFind, mas tam aj zdrojak
kexo
----- Original Message -----
From: "Milos Jakub Hrach" <jhrach(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 10, 2003 10:03 AM
Subject: FileSearch
> Ahoj Lidi.
>
> Potreboval bych poradit s nasledujicim:
>
> Potrebuji v adresarove strukture daneho disku (vcetne podadresaru)
> vyhledavat soubor znameho jmena. Predpokladam, ze spravnym prikazem
> je funkce FileSearch a pes je zakopan v promene DirList. Muzte nekdo
> poradit jak toto provest?
>
> Diky Jakub
> OT: Pole ve VB Scriptu
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 10.10.2003 11:29:08
Preji hezky podzimni den vsem z konference,
mam jeden problemek: prevadel jsem VBScript do Delphi a vsechno bylo v
poradku - az na vysledek, ktery je ulozen v datovem poli, do ktereho nevim,
jak se dostat.
Set r = createobject("nazev.proc")
...
Set rs = r.GetList(clng(cislo))
...
--- a tady je ta chyba: ---
for i = 1 to rs.RecordCount
sString = "Promenna: " & rs("nazevpole") & chr(13)
msgbox sString
rs.movenext
if i = 3 then exit for
Next
Nejsem schpopny dostat hodnotu z pole "nazevpole". Muzete mi nekdo poradit?
Moc dekuji za jakekoliv nakopnuti.
S pozdravem
Frantisek Bohac
Excel - tisk
[*] kexo <kexo(zv)ynet.sk> - 10.10.2003 11:21:07
Excel.ActiveWorksheet.Printout
vytah z excelovskeho helpu VBA:
PrintOut Method
Prints the object.
Syntax
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile,
Collate, PrToFileName)
expression Required. An expression that returns an object in the Applies
To list.
>From Optional Variant. The number of the page at which to start printing.
If this argument is omitted, printing starts at the beginning.
To Optional Variant. The number of the last page to print. If this
argument is omitted, printing ends with the last page.
Copies Optional Variant. The number of copies to print. If this argument
is omitted, one copy is printed.
Preview Optional Variant. True to have Microsoft Excel invoke print
preview before printing the object. False (or omitted) to print the object
immediately.
ActivePrinter Optional Variant. Sets the name of the active printer.
PrintToFile Optional Variant. True to print to a file. If PrToFileName is
not specified, Microsoft Excel prompts the user to enter the name of the
output file.
Collate Optional Variant. True to collate multiple copies.
PrToFileName Optional Variant. If PrintToFile is set to True, this
argument specifies the name of the file you want to print to.
Remarks
"Pages" in the descriptions of From and To refers to printed pages - not
overall pages in the sheet or workbook.
kexo
----- Original Message -----
From: "Vlastimil Zdenek" <delphi(zv)gestore(tec)cz>
Subject: Excel - tisk
> Zdravim vsechny!
> Poradte prosim, jak vytisknu excelovsky soubou vytvoreny v delphi?
Excel - tisk
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 10.10.2003 11:07:06
Zdravim vsechny!
Poradte prosim, jak vytisknu excelovsky soubou vytvoreny v delphi?
Delam ho takto:
var
WBk: _Workbook;
Excel : TExcelApplication;
begin
Excel := TExcelApplication.Create(Application);
Excel.ConnectKind := ckNewInstance;
WBK := Excel.Workbooks.Open(NewSoubor, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, 0);
naplnim.............
WBK.Save(0);
Excel.TISK <==== tady asi tisknout, al jak..?
WBK.Close(True,Soubor,0,0);
Excel.Free;
end;
Diky moc.
Vlasta
D5 Ent, Excel2000
Jak unloadnout balicek?
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 10.10.2003 11:01:05
Ahoj,
mam problem, a celej vikend to resim a nemuzu se dostat ke konci.
Mam aplikaci, ktera po kliknuti na menu nacte balicek (a po kliknuti na
dalsi menu jinej). V tomto balicku spusti funkci, ktera vytvori Form a
uzivatel muze delat co potrebuje. Jakmile ho to prestane bavit, zavre Form.
No a v tomto okamziku bych potreboval, aby mi to dal ten Form nejak vedet a
ja podle handle (mam je v seznamu) tento balicek unloadnul. Zatim to delam
tak, ze kdyz OnFormClose (zkousel jsem i jine), tak si poslu zpravu
WM_USER+xxx a v ni cislo balicku (to je dobre) a unloadnu ho. Jenze v
momente kdy ho unloudnu skoci chyba. Klasickej vypis CPU. :( Pritom, kdyz
hodim na app 2 tlacitka, a jedno to nacte (handle si ulozim) a druhy to
unloadne (podle toho handle) tak je to OK. Jen kdyz to chci z toho balicku,
tak to nejede. Asi vadi to, ze se mi zavira ten form, ci co ja vim. :)
Nevi nekdo jak na to?
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: www.cincura.net
D7, WinXP HE
Chcipani TCP/IP komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.10.2003 10:43:04
Petr Zahradnik <clexpert(zv)clexpert(tec)cz> wrote:
> Puvodni zprava ze dne 10.11.2003:
>
>> a lokalni siti obvykle neprichazi v uvahu, ale podobne problemy
>> muze zpusobovat firewall/nat, kterymu vyexpirujou zaznamy pro
>> aktivni spojeni (teoreticky by u TCP mel cekat na FIN segment ale
>> ten taky nemusi prijit, takze timeout musi byt implementovan).
>> Neinstaloval si nekdo na jedne ci druhe strane nejakej firewall?
>
> Firewall mam Kerio WinRoute Firewall 5 na serveru a protoze delaji
> aktualizace kazdou chvili, tak samozrejme by to mohlo byt tim, ze
> treba po nejake novejsi verzi to mohlo zacit delat.
>Ale vazne to
> muze byt NATem, kdyz ta komunikace jde vlastne mimo NAT, protoze je
> ve vnitrni siti?
znas to - po vylouceni obvyklych zdroju potizi je treba zacit
kontrolovat ty mene obvykle. Netvrdim, ze to tim firewallem je, ale
zkontrolovat se to musi.
Navic netusim jak ta sit vypada a jak je to tam nastaveny. Napriklad -
pokud ten PC ma jednu a tu samou sitovku pouzivanou pro pripojeni do
Internetu (predpokladam, ze WinRoute na nem je proto, ze ten PC ma
zprostredkovavat spojeni do Internetu) i pro pripojeni do LAN, muze
ten NAT delat divny veci i s packety lokalni site, atd.
> Ono kdyz se mi to zacalo delat, tak ja prvni volal
> do Kerio, protoze me to napadlo, ale oni mi tvrdili, ze jim spojeni
> konzoly nechcipa. Tak jsem to pak zavrhnul.
muze jit o nejaka specifika v nastaveni firewallu a pc. Pokud je mozne
ten firewall na nejakou dobu (ktera postacuje k testu) vypnout, tak
bych to udelal.
Jeste lze samozrejme zapojit nejake odchytavani packetu - na obou
stranach. Pustil bych sniffery, navazal nejake (malo ukecane) TCP
spojeni a cekal. Az by se to rozpadlo tak bych se podival na sniffery,
zda prislusny packet z jedne strany dorazil na druhou. Tim by se
vyloucila HW zalezitost (nedovedu si sice pedstavit, ze by tohle
HUB/Switch/Sitovka mohl zpusobit, ale uz jsem videl jine divne veci -
sitovky/switche nepropoustejici packety s konkretni sekvenci bajtu
atd).
D> Toman
FileSearch
[*] Milos Jakub Hrach <jhrach(zv)centrum(tec)cz> - 10.10.2003 10:03:01
Ahoj Lidi.
Potreboval bych poradit s nasledujicim:
Potrebuji v adresarove strukture daneho disku (vcetne podadresaru)
vyhledavat soubor znameho jmena. Predpokladam, ze spravnym prikazem
je funkce FileSearch a pes je zakopan v promene DirList. Muzte nekdo
poradit jak toto provest?
Diky Jakub
Chcipani TCP/IP komunikace
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 10.10.2003 10:01:01
Jeste me napadlo: Oni maji v KWF od nejake doby zapnuty 3rd way handshake -
pokud by ty pakety se snazily jednim smerem ten firewall nejak obejit, mohl
by je zahazovat. To zjistis jednoduse: Dej si v debug logu pravy tlacitko,
vyber "Zpravy" a v "Miscellaneous" zaskrtni "Packed dropped for some
reason". Pokud by to bylo ono, stopni engine, najdi soubor "winroute.cfg" a
tam hledej polozku "Require3WayHandshake". Nastav ji na "0" a spust engine
;-)
Nedokumentovana feature ;-)
S pozdravem a pranim hezkeho dne
Milan Schembera
4Squares.NET
software, obchod, servis
tel. +420 776 677 776
tel. +420 465 321 555
+420 465 320 141
fax +420 465 320 143
http://www.4squares.net
mailto:four(zv)4squares.net
ICQ# 169852749
> -----Original Message-----
> From: Petr Zahradnik
> Firewall mam Kerio WinRoute Firewall 5 na serveru a protoze delaji
> aktualizace kazdou chvili, tak samozrejme by to mohlo byt tim, ze
> treba po nejake novejsi verzi to mohlo zacit delat. Ale vazne to muze
> byt NATem, kdyz ta komunikace jde vlastne mimo NAT, protoze je ve
> vnitrni siti? Ono kdyz se mi to zacalo delat, tak ja prvni volal do
> Kerio, protoze me to napadlo, ale oni mi tvrdili, ze jim spojeni
> konzoly nechcipa. Tak jsem to pak zavrhnul.
Problem s update via DBExpres
[*] aseiov(zv)vol(tec)cz - 10.10.2003 09:55:00
Dobry den,
mam nasledujici problem (dosud jsem pracoval pouze s BDE, tudiz v
DBX jsem uplnym novackem):
mam nasledujici kod:
with TSQLQuery.Create(nil) do
begin
SQLConnection := GetMySQLConnection;
SQL.Add(Format('select * from %s, ['nazev_tab']));
SQL.Add(Format('where ID_PROGRAM = %d AND ID_PODNIK = %d and
ID_PRAC_MISTO = %d',
[ID_Program,ID_Podnik,ID_PracMisto]));
Open;
if EOF then
Result := false
else
begin
AktualStavLock := FieldByName('SLOUPEC1').AsInteger;
LNovaUrovenLock := AktualStavLock+UrovenLock;
PocetUzivLock := FieldByName('SLOUPEC2').AsInteger;
Close;
SQL.Clear;
SQL.Add(Format('update %s set SLOUPEC2 = %d',
['nazev_tab', PocetUzivLock+1]));
SQL.Add(Format(',SLOUPEC1 = %d, DATUM_LOCK = :DAT',
[LNovaUrovenLock])); SQL.Add(Format('where ID_PROGRAM = %d
AND ID_PODNIK = %d and ID_PRAC_MISTO = %d',
[ID_Program,ID_Podnik,ID_PracMisto]));
PrepareStatement;
ParamByName('DAT').AsDateTime := FauNow;
ExecSQL;
..
..
..
select provede bez problemu, pri update zahlasi "unassigned code"
(at tam je PrepareStatement, nebo neni).
Vim, ze na ruzne ulohy je treba pouzit ruzne komponenty, ale help
rika, ze i pro update, delete je mozno pouzit "TSqlQuery".
Nevite nekdo, co delam blbe ???
Diky
Tomas ANDRASKO
A.S.E.I. spol. s r.o.
pobocka Ostrava
Novinarska 3
70930 Ostrava 1
email : tomas.andrasko(zv)asei(tec)cz
web : http://www.asei(tec)cz
tel. : +420 597450291
sidlo spolecnosti:
U Rajske zahrady 3, Praha 3, 130 00
ICO : 47122722
Spolecnost je zapsana u Mestskeho soudu v Praze, oddil C - vlozka
13458. --------------------------------------------
Upozorneni:
Z duvodu antivirove ochrany je v ASEI od 12.3.2002 zavedena
filtrace priloh. Tzn. soubory s priponami *.bat, *.cmd, *.exe,
*.com, *.pif, *.vbs neni mozne posilat ani prijimat.
--
Potrebujete vice prostoru pro vase stranky?
Ptejte se na http://sluzby.volny(tec)cz/cs/product/ftp_paid
Chcipani TCP/IP komunikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.10.2003 09:51:00
Puvodni zprava ze dne 10.11.2003:
> a lokalni siti obvykle neprichazi v uvahu, ale podobne problemy muze
> zpusobovat firewall/nat, kterymu vyexpirujou zaznamy pro aktivni
> spojeni (teoreticky by u TCP mel cekat na FIN segment ale ten taky
> nemusi prijit, takze timeout musi byt implementovan). Neinstaloval si
> nekdo na jedne ci druhe strane nejakej firewall?
Firewall mam Kerio WinRoute Firewall 5 na serveru a protoze delaji
aktualizace kazdou chvili, tak samozrejme by to mohlo byt tim, ze
treba po nejake novejsi verzi to mohlo zacit delat. Ale vazne to muze
byt NATem, kdyz ta komunikace jde vlastne mimo NAT, protoze je ve
vnitrni siti? Ono kdyz se mi to zacalo delat, tak ja prvni volal do
Kerio, protoze me to napadlo, ale oni mi tvrdili, ze jim spojeni
konzoly nechcipa. Tak jsem to pak zavrhnul.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
binarni vyhledavani
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 10.10.2003 09:10:57
> -----Original Message-----
> Subject: Re: binarni vyhledavani
> mrkni do msdn .. hledej binary AND tree mozna to je ono, co hledas.
Osobne bych radeji pouzil hashovaci tabulku... projedes hashe a pak uz jen
sekvencne tech par retezcu, co maji stejny hash...
Danik
Chcipani TCP/IP komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.10.2003 08:50:56
Petr Zahradnik <clexpert(zv)clexpert(tec)cz> wrote:
> Puvodni zprava ze dne 7.11.2003:
>
>> TCP ma dynamickou pocitanou dobu pro oznameni chyby na zaklade
>> statistiky linky (ono je to hlavne z dovodu znovu odeslani paketu).
>
>> Takze bych zkusil jestli to udela i spojeni, kterym budou proudit
>> data. Zkus netstat -s, mozna ti pomuze.> No to je na tom prave to zajimave, ze kdyz ja treba honim prenos
> nekolik gigabytu ze serveru na klienta a naopak, tak se nikdy nic
> nestane.
a lokalni siti obvykle neprichazi v uvahu, ale podobne problemy muze
zpusobovat firewall/nat, kterymu vyexpirujou zaznamy pro aktivni
spojeni (teoreticky by u TCP mel cekat na FIN segment ale ten taky
nemusi prijit, takze timeout musi byt implementovan). Neinstaloval si
nekdo na jedne ci druhe strane nejakej firewall?
V nouzi muzes zkusit pohrat si s Keep-alive (WSAIoctl() a
SIO_KEEPALIVE_VALS, pripadne setsockopt() a SO_KEEPALIVE, )
D. Toman
Fortech s.r.o.
binarni vyhledavani
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.10.2003 08:14:53
mrkni do msdn .. hledej binary AND tree
mozna to je ono, co hledas.
Jirka
binarni vyhledavani
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 10.10.2003 07:48:51
Zdravim konferenci.
Nemate nekdo optimalni algoritmus na prohledavani binarnich souboru. Mam takovo malou databazi asi 10.000 zaznamu binarnich
retezcu (antivir) a chtel bych prohledat soubor na vyskyt nektereho z techto 10.000 retezcu.
ja jsem to delal dvema zpusoby
a to bud
Cely binarni soubor jsem prevedl do stringu pomoci hexa tvaru. tzn. ze mi vznikl soubor
FE3323DE83DA................................... to znamena dvakrat vetsi nez ten normalni. Pak jsem
jenom prochazel jednotlive zaznamy a pak jsem volal strpos(file,virret[i]). Touhle metodou jsem
nalezl spravny retezec az po 3 sekundach. Spravny byl az na pozici 9368.
Druhej zpusob byl rychlejsi. Soubor jsem si nacetl do memorystream a a pak jsem prochazel jedntlive binarni
zaznamy. Z binarniho zaznamu jsem si vzal prvni dva znaky (byte ) a prohledaval jsem cely soubor na vyskyt daneho
bytu. Po nalezeni jsem provedl kontrolu nasledujiciho znaku na dalsi druhy byte hledaneho retezce a pokud se shodoval
tak jsem porovnal dalsich 6 byte. pokud se schodovali provedl jsem kontrolu celeho retezce. a tak to pokracovalo do te doby
do kud jsem neprohledal vsechny zaznamy... tahle metoda trvala
8 sekund a prohledavalo se 3 soubory. Ve vsech pripadech byl nalezen onen retezec.
Ale stale se mi to zda docela pomale . Zajimalo by me jak to delaji antivirove programy
Poradny antivir Kaspersky ma 77.000 zaznamu a a prohledani souboru mu moc dlouho netrva. Totez
plati i pro NOD32...
Diky David
Spusteny Excel
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 10.10.2003 07:42:51
uses comobj;
...
var
ExcelApp: variant;
begin
try
ExcelApp := GetActiveOleObject('Excel.application'); // excel je jiz
otevren
except
ShowMessage('Excel neni otevren!');
end;
end;
S pozdravem
Frantisek Bohac
----- Original Message -----
From: "Petr Matejcek" <konference(zv)crhov.komfi(tec)cz>> pls vedel by nekdo nejakou procedurku ktera mi zjisti jestli je spusten
> MS Excel ?Prepis SQLite Api do Delphi
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 9.10.2003 21:02:11
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> Sent: Saturday, November 08, 2003 11:32 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Prepis SQLite Api do Delphi
>
>
> kompletni prepis vsechn fci SQLite API mam take jiz davno hotov,
> takze muzu
> zaslat
>
>
> >Brona Klucka
>
> btw: Brona, to jsem psal, jeste kdyz jsme spolu sedeli v kancelari!
>
>
ja vim, ale kdyz ja jsem pul roku potom stahoval verzi pro kadernictvi, byla
2.7.1, ted je asi 2.8.2...
veci se meni ::)))))))
Brona
Spusteny Excel
[*] David Kraina <dkx(zv)seznam(tec)cz> - 9.10.2003 20:58:10
Zkus to pres API - EnumWindow (viz napoveda - zasilani kodu je trochu moc
komfort)
S pozdravem
===================================================
David Kraina, DKx
-------------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================> pls vedel by nekdo nejakou procedurku ktera mi zjisti jestli je spusten
> MS Excel ?Prograss bar pri stahovani - synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.10.2003 20:02:07
> Muzete mi nekdo prosim poradit jak zobrazit prograss bar pri pouziti
> synapse?
> Delam takovou drobnost na stahovani souboru pomoci ftp a synapse a
> rad bych zobrazil prograss bar.
Podivej se na event TFtpSend.dsock.onstatus a tam cihej na udalost
HR_ReadCount.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Prograss bar pri stahovani - synapse
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 9.10.2003 12:41:34
Dobry den,
Muzete mi nekdo prosim poradit jak zobrazit prograss bar pri pouziti
synapse?
Delam takovou drobnost na stahovani souboru pomoci ftp a synapse a
rad bych zobrazil prograss bar.
Dekuji
--
S pozdravem,
Martin Radvansky
Spusteny Excel
[*] Petr Matejcek <konference(zv)crhov.komfi(tec)cz> - 8.10.2003 17:58:24
Zdravim konferenci,
pls vedel by nekdo nejakou procedurku ktera mi zjisti jestli je spusten
MS Excel ?
diky PM
TWebBrowser a jeho obsah
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 8.10.2003 14:12:05
> potreboval bych dostat obsah okna TWebBrowseru do bitmapy.
> Teoreticky by to melo byt mozne, jelikoz i presto, ze jsou
> posuvniky, okno ke skrolovani bude jiz nactene.
Podla Spy++ tie skrolbary nie su standardne skrolbary, mam pocit, ze su
kreslene samotnym IE v ramci svojho okna.
Dalej vyzera to tak, ze IE si kresli vsetko podla potreby, zrejme vzdy iba
viditelnu cast. Dava to zmysel, pretoze napriklad alokovat bitmapu na nejaku
vecsiu stranku (20 x PgDn) je blbost.
V tom priklade, co som posielal, mi stacilo zavolat Hide; SetBounds(...) a
potom to OleDraw kresli celu stranku. Problem je skor, ako zistit rozmery
tej stranky (a co v pripade, ak je taka velka, ze tu bitmapu naraz ani
nenaalokujes).
GetScrollInfo nefunguje, ako som spominal, nie su to standardne skrolbary
(ani FlatSB).
Mozno by to slo posielanim klaves: Home - paint - PgDn - paint - PgDn... ;-)
Skratka, same blbosti ;-) nic rozumne ma nenapada.
sorry
TOndrej
Casovy server
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 8.10.2003 12:52:00
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> > Muzu pozadat o ukazku jak napsat kod okolo "sntpsendu"
Casovy server
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2003 11:55:57
> Muzu pozadat o ukazku jak napsat kod okolo "sntpsendu"
procedure TForm1.Button7Click(Sender: TObject);
var
ntp:TSNtpSend;
begin
ntp:=TSNtpSend.Create;
try
ntp.TargetHost:='tvuj_casovy_server';
ntp.SyncTime := True;
ntp.getsntp;
finally
ntp.Free;
end;
end;
Jednoduche, ne? ;-)
Misto 'tvuj_casovy_server' dosad adresu tveho casoveho serveru, ktery
poskytuje cas pomoci NTP nebo SNTP protokolu.
To muze but bud nejaky tvuj router (treba moje oblibene Cisco),
nejake tvoje synchronizovane Windows (treba na WinXP je stadardne NTP
server i klient), nebo treba nejaky z casovych serveru na internetu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Prepis SQLite Api do Delphi
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 8.10.2003 11:31:55
kompletni prepis vsechn fci SQLite API mam take jiz davno hotov, takze muzu
zaslat
>Brona Klucka
btw: Brona, to jsem psal, jeste kdyz jsme spolu sedeli v kancelari!
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Casovy server
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 8.10.2003 11:29:54
Zdravim
Muzu pozadat o ukazku jak napsat kod okolo "sntpsendu"
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> > V> Chtel bych si napsat utilitku, ktera by po nejakem nastavenem case
sahla na
> > V> casovy server a srovnala cas na PC s WIN2000 pripadne WIN98,WINME,
WINXP.
> > Stahni synapsi, tam to vsechno je.
> > Pak nejak takto:
> > Jeste prevedes UTC cas na lokalni a jsi vysmaty :-)
> No to ani nemusis, protoze Windows maji funkce na nastavovani casu
> pracujici primo v UTC. Ba co vic, v pripade sntpsendu ze synapse
> staci zapnout property SyncTime a ono ti to seridi cas samo. ;-)
Prepis SQLite Api do Delphi
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 8.10.2003 10:59:48
> > Zdar, jsou 3 fce definovane na SQLite homepage
>
> Neco mi unika, nebo schvalne nepouzivas uz davno hotovy Delphi
> prepis, co je na Torry?
>
v tom, co jsem si stahl neni vsechno a neni to udelano, jak bych si to
predstavoval.
Brona Klucka
Prepis SQLite Api do Delphi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2003 09:01:40
> Zdar, jsou 3 fce definovane na SQLite homepage
Neco mi unika, nebo schvalne nepouzivas uz davno hotovy Delphi
prepis, co je na Torry?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Casovy server
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2003 08:59:40
> V> Chtel bych si napsat utilitku, ktera by po nejakem nastavenem case sahla na
> V> casovy server a srovnala cas na PC s WIN2000 pripadne WIN98,WINME, WINXP.
> Stahni synapsi, tam to vsechno je.
> Pak nejak takto:
[...]
>
> Jeste prevedes UTC cas na lokalni a jsi vysmaty :-)
No to ani nemusis, protoze Windows maji funkce na nastavovani casu
pracujici primo v UTC. Ba co vic, v pripade sntpsendu ze synapse
staci zapnout property SyncTime a ono ti to seridi cas samo. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.TCP komunikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2003 08:53:40
> potrebuji jednoduchou komunikaci klient-server pres TCP a chci pouzit
> Synapsi.
> mema nekdo nejaky priklad?
Samotna Synapse ti jako priklad nestaci
jako TCP server tam mas v demech hned dva priklady... ECHO a HTTP
server. (ECHO je nejjednodussi TCP server, dobre na zacatek a
pochopieni)
Prikladu na TCP klienta tam najdes hromady, treba POP3send, smtpsend,
imapsend, ....
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Prepis SQLite Api do Delphi
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 7.10.2003 23:23:04
uz vim, kde je chyba.. v prepisu..
toto
> int *pN, /* OUT: Number of columns in result */
neni AColumnCount:PInteger; ale var AColumnCount:Integer;
Klucka
Prepis SQLite Api do Delphi
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 7.10.2003 22:23:00
Zdar, jsou 3 fce definovane na SQLite homepage
********************
int sqlite_compile(
sqlite *db, /* The open database */
const char *zSql, /* SQL statement to be compiled */
const char **pzTail, /* OUT: uncompiled tail of zSql */
sqlite_vm **ppVm, /* OUT: the virtual machine to execute zSql */
char **pzErrmsg /* OUT: Error message. */
);
int sqlite_step(
sqlite_vm *pVm, /* The virtual machine to execute */
int *pN, /* OUT: Number of columns in result */
const char ***pazValue, /* OUT: Column data */
const char ***pazColName /* OUT: Column names and datatypes */
);
int sqlite_finalize(
sqlite_vm *pVm, /* The virtual machine to be finalized */
char **pzErrMsg /* OUT: Error message */
);
********************
Takto jsem je prepsal:********************
type
PSQLite=type pointer;
var
SQLite:PSQLite;
sqlite_compile:function(ASQLite:PSQLite; ASql:pChar; var ASqlTail:Pointer;
var ASqlVM:PSQLite; var AErrMsg: pChar):integer; cdecl;
sqlite_step:function(ASqlVM:PSQLite; AColumnCount:PInteger; var
AColumnValues: Pointer; var AColumnNames: Pointer):integer; cdecl;
sqlite_finalize:function(ASqlVM:PSQLite; var AErrMsg: pChar):integer; cdecl;
********************
A takto pouzil:
********************
procedure TForm1.Button4Click(Sender: TObject);
var tail:Pointer;
SqlVM:PSQLite;
res:integer;
cc:PInteger;
cv,cn:pointer;
begin
res:=sqlite_compile(SQLite,pChar('select * from aa;'),tail,SqlVM,ErrMsg);
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
sqlite_finalize(SqlVM,ErrMsg);
end;
********************
Kdyz tam mam sqlite_step jednou, vsechno funguje, jak ma, pokud to tam mam
vicekrat, spadne to: "acces violation at address 673E8B76 in module
'sqlite.dll'. Write of address 0043D4Fs". Mam SQLite verze 2.8.6 pro
Windows. Nevite nekdo, jestli neni chyba nekde v prepisu tech fci????
Bronislav Klucka
OT - Windows 2003 Terminal server
[*] Roland Turcan <rolo(zv)sedas.sk> - 7.10.2003 22:02:59
Hello Delphi CZ konferencia!
Poradte mi prosim ako riesit tuto situaciu:
Uzivatel sa prihlasuje zo svojho pocitaca do Windows 2003 Terminal
Servera. Lenze pokial je v prostredi terminal servera ma pristup cez
miesta v sieti na ostatne pocitace (povedzme Windows98) kde mozu byt
zdielane disky. Jednoducho si subory skopiruje a je to. Nasim cielom
je ze kazdy uzivatel ma svoj okruh udajov s ktorymi pracuje ale nesmie
s nimi prist do "fyzickeho" kontaktu, aby si ho vedel skopirovat, ...
ALE NIEKTORY uzivatelia by mali mat pristup von!
Ako na to?
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Chcipani TCP/IP komunikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.2003 20:52:54
Puvodni zprava ze dne 7.11.2003:
> TCP ma dynamickou pocitanou dobu pro oznameni chyby na zaklade
> statistiky linky (ono je to hlavne z dovodu znovu odeslani paketu).
> Takze bych zkusil jestli to udela i spojeni, kterym budou proudit data.
> Zkus netstat -s, mozna ti pomuze.
No to je na tom prave to zajimave, ze kdyz ja treba honim prenos
nekolik gigabytu ze serveru na klienta a naopak, tak se nikdy nic
nestane. Prenesu si tu velkou rychlosti krasne treba 30 GB zalohu pred
vypalenim na DVDcka.
Ono se to nikdy nerozpoji za chodu, ale pri cekani, jako by se mi na
siti nastavil nejaky timeout, ale navic klient a vetsinou ani server
nevedi, ze je odpojeno. Kdyz treba v te Kerio konzoli budu delat tri
hodiny v kuse nebo s malymi pauzami, tak pohoda. Ale jak prestanu na
pul hodiny, tak to chcipne.
Ten muj ISDN soft tu jel snad rok. Jednoduse tak, ze zapnu klienta, on
se napoji na server a server mu posila cisla. Jenze samozrejme nezvoni
mi tu telefony po 5 minutach cely den, takze jak je pauza, chcipne to.
No a driv to nedelalo, rok to jelo bez nejmensich potizi. To zacalo
delat najednou z niceho nic a mozna diky tomu VMware. To je zivot, co?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Chcipani TCP/IP komunikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.2003 20:36:53
Puvodni zprava ze dne 7.11.2003:
> co Ti vyhodi netstat v cmd ? Nemas tam DHCP s nejakou kratkou dobou
Tak jsem to ted odzkousel, normalne netstat na klientu si mysli, ze je
stale spojeno, protoze pise NAVAZANO porad...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Casovy server
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 7.10.2003 16:52:39
Joha Viktor,
V> Chtel bych si napsat utilitku, ktera by po nejakem nastavenem case sahla na
V> casovy server a srovnala cas na PC s WIN2000 pripadne WIN98,WINME, WINXP.
V> Poradi nekdo jak na to?
Stahni synapsi, tam to vsechno je.
Pak nejak takto:
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// - vraci cas z NTP serveru ve formatu UTC
function _getTimeFromNTPServer(const NTPServer:string):TDateTime;
var sntp:TSntpSend;
begin
result := 0;
sntp := TSntpSend.Create();
try
sntp.TargetHost := NTPServer;
if(sntp.GetNTP)then
result := sntp.NTPTime;
finally
sntp.Free();
end;
end;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Jeste prevedes UTC cas na lokalni a jsi vysmaty :-)
--
vt
Casovy server
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 7.10.2003 15:50:34
Zdravim
Chtel bych si napsat utilitku, ktera by po nejakem nastavenem case sahla na
casovy server a srovnala cas na PC s WIN2000 pripadne WIN98,WINME, WINXP.
Poradi nekdo jak na to?
[D5 Profesional]
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Chcipani TCP/IP komunikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.2003 15:50:34
Puvodni zprava ze dne 7.11.2003:
> co Ti vyhodi netstat v cmd ? Nemas tam DHCP s nejakou kratkou dobou
> platnosti prideleni adresy ?
Ahoj,
myslis jako co vyhodi po tom rozpojeni? Jestli je tam to spojeni
videt? To jsem nezkousel a zkusim se na to kouknout, az se mi to
rozpoji...
DHCP nemam, mam vsude pevne IP adresy, jak na serveru, tak na
klientech. VMware ma DHCP, jenze ja mam vypnute pridelovani jeho DHCP.
On si service DHCP sice spousti, ale kdyz mu to zastavim, tak se to
stejne deje.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Chcipani TCP/IP komunikace
[*] Jakub Martinek <listbox(zv)vakmb(tec)cz> - 7.10.2003 16:10:36
Neco podobneho nam zacal delat tisk na sitove tiskarny, proste se nic
nevytisklo.
Stacilo pristoupit na sitovy disk nebo vylistovat PC v domene a zase vse
jelo.
Bylo potreba vypnout "rizeni spotreby" (zalozka na karte HW) u sitove karty.
Casto byvaji take problemy s autodetekci na sitovych prvcich. Je treba obe
strany nastavit natvrdo.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
> normalne mi tu od urciteho dne v lokalni siti chcipa TCP/IP spojeni a
> vubec netusim, cim by to mohlo byt. Chova se to tak, ze jsou navazana
> TCP spojeni mezi mym pocitacem a mym serverem (oba W2K Pro). Jenze to
> spojeni vydrzi ruzne dlouhou dobu (cca od nekolika minut do nekolika
> desitek minut) a pak to chcipne. Chcipne to tak, ze TCP klient si vzdy
> mysli, ze je stale spojen, zatimco TCP server nekdy (a nekdy take ne)
> zjisti, ze byl rozpojen.
>
> Vysledek je ten, ze klient prestane komunikovat a server take jaksi
> nic neposle. Nedela mi to jedna aplikace, deje se to proste vseobecne.
> Ja to zjistuji na sve aplikaci delane s Indy - na serveru mam service,
> ktera posila informace o prichozich ISDN volanich. Proste klient
> prestane dostavat... Staci dat reconnect a uz to zase jede. Ale deje
> se mi to i napriklad s Kerio administracni konzoli - jsem uvnitr
> napojeny, chvili neco nedelam, pak udelam, on ma komunikovat a rekne
> ze smula, ze je rozpojeny.
>
> Drive to nedelalo, ani Kerio konzola a ani zadna moje aplikace. Zacalo
> to _MOZNA_ po instalaci VMware na muj pocitac. Jenze kdyz mu zakazu
> jeho services, tak snad z nej nic moc nemuze bezet a stejne se to
> deje. Nemate nekdo nejaky napad, jak zjistit, kde by mohl byt problem?
> Ono to vypada jako snad nejaky timeout na TCP/IP komunikaci, mozna
> kdyz se nejakou dobu (vzdy jinou?) nic nedeje, tak se to nestandardnim
> zpusobem rozpoji...
>
> Petr Zahradnik, pocitacovy expert
Chcipani TCP/IP komunikace
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 7.10.2003 16:04:35
TCP ma dynamickou pocitanou dobu pro oznameni chyby na zaklade
statistiky linky (ono je to hlavne z dovodu znovu odeslani paketu).
Takze bych zkusil jestli to udela i spojeni, kterym budou proudit data.
Zkus netstat -s, mozna ti pomuze.
Jeste bych zkusil provoz na vyhrazene siti 2 PC s pevnyma IP a cistyma
windows.
Prakticky ale stejne musis pocitat s vypadky spojeni, takze bud automaticky
rekonekt (posilani dummy paketu na otestovani spojeni),
nebo cisty dotazovaci rezim (navazu spojeni, zjistim stav, odpojim se),
nebo UDP.
Slavek
> Puvodni zprava ze dne 7.11.2003:
>
> > co Ti vyhodi netstat v cmd ? Nemas tam DHCP s nejakou kratkou dobou
> > platnosti prideleni adresy ?
>
> Ahoj,
>
> myslis jako co vyhodi po tom rozpojeni? Jestli je tam to spojeni
> videt? To jsem nezkousel a zkusim se na to kouknout, az se mi to
> rozpoji...
>
> DHCP nemam, mam vsude pevne IP adresy, jak na serveru, tak na
> klientech. VMware ma DHCP, jenze ja mam vypnute pridelovani jeho DHCP.
> On si service DHCP sice spousti, ale kdyz mu to zastavim, tak se to
> stejne deje.
>
> Petr Zahradnik, pocitacovy expert
Ondrej Kel]: TWebBrowser a jeho obsah
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2003 15:56:35
Uz jsem s nadsenim to zkousel aniz bych si vsiml poslednich radku tohoto
mejlu. Cast oka s posuvniky NEPOTREBUJU. To jsem dokazal sam i bez
propojovani OLE a ActiveX k projektu...
Ale stejne dik
S pozdravem
===================================================
David Kraina, DKx
-------------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================> > potreboval bych dostat obsah okna TWebBrowseru do bitmapy.
>
> Nie som si isty, ci chces prave toto.
> Najrychlesie to asi vyskusas s webbrows.dpr v Demos\CoolStuf. Pridal som
si
> novu akciu a button do toolbaru.
>
> procedure TMainForm.ActionSaveBmpExecute(Sender: TObject);
> var
> Bmp: TBitmap;
> begin
> if SaveDialog.Execute then
> begin
> Bmp := TBitmap.Create;
> try
> Bmp.Width := WebBrowser1.Width;
> Bmp.Height := WebBrowser1.Height;
> OleCheck(OleDraw(WebBrowser1.Application, DVASPECT_CONTENT,
> Bmp.Canvas.Handle, Rect(0, 0, Bmp.Width, Bmp.Height)));
> Bmp.SaveToFile(SaveDialog.FileName);
> finally
> Bmp.Free;
> end;
> end;
> end;
>
> (V podstate ide o to, ze TWebBrowser.Application implementuje
IViewObject.)
>
> Kresli to kopiu toho, co prave ten TWebBrowser zobrazuje. Tzn. viditelnu
> cast dokumentu aj so scrollbarmi.
>
> HTH
> TOndrej
>
>
>Casovy server
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.2003 15:54:34
Puvodni zprava ze dne 7.11.2003:
> Chtel bych si napsat utilitku, ktera by po nejakem nastavenem case sahla na
> casovy server a srovnala cas na PC s WIN2000 pripadne WIN98,WINME, WINXP.
Zrovna pred par dny jsem to sem psal:
Koukni se na tohle: http://sourceforge.net/projects/nettime
To je open source soft na synchronizaci casu, funguje to jako program
(server i klient) a soucasne k tomu jsou zdrojaky v Delphi. Tak si to
muzes i upravit a vylepsit.
Ja to uz delsi dobu bez problemu pouzivam na sve siti tak, ze server
se mi synchronizuje s Internetem a klienti se mi zase synchronizuji se
serverem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Chcipani TCP/IP komunikace
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 7.10.2003 15:40:33
Ahoj,
co Ti vyhodi netstat v cmd ? Nemas tam DHCP s nejakou kratkou dobou
platnosti prideleni adresy ?
S pozdravem a pranim hezkeho dne
Milan Schembera
4Squares.NET
software, obchod, servis
tel. +420 776 677 776
tel. +420 465 321 555
+420 465 320 141
fax +420 465 320 143
http://www.4squares.net
mailto:four(zv)4squares.net
ICQ# 169852749
> -----Original Message-----
> From: Petr Zahradnik
> deje. Nemate nekdo nejaky napad, jak zjistit, kde by mohl byt problem?
Chcipani TCP/IP komunikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.2003 15:32:32
Ahoj,
normalne mi tu od urciteho dne v lokalni siti chcipa TCP/IP spojeni a
vubec netusim, cim by to mohlo byt. Chova se to tak, ze jsou navazana
TCP spojeni mezi mym pocitacem a mym serverem (oba W2K Pro). Jenze to
spojeni vydrzi ruzne dlouhou dobu (cca od nekolika minut do nekolika
desitek minut) a pak to chcipne. Chcipne to tak, ze TCP klient si vzdy
mysli, ze je stale spojen, zatimco TCP server nekdy (a nekdy take ne)
zjisti, ze byl rozpojen.
Vysledek je ten, ze klient prestane komunikovat a server take jaksi
nic neposle. Nedela mi to jedna aplikace, deje se to proste vseobecne.
Ja to zjistuji na sve aplikaci delane s Indy - na serveru mam service,
ktera posila informace o prichozich ISDN volanich. Proste klient
prestane dostavat... Staci dat reconnect a uz to zase jede. Ale deje
se mi to i napriklad s Kerio administracni konzoli - jsem uvnitr
napojeny, chvili neco nedelam, pak udelam, on ma komunikovat a rekne
ze smula, ze je rozpojeny.
Drive to nedelalo, ani Kerio konzola a ani zadna moje aplikace. Zacalo
to _MOZNA_ po instalaci VMware na muj pocitac. Jenze kdyz mu zakazu
jeho services, tak snad z nej nic moc nemuze bezet a stejne se to
deje. Nemate nekdo nejaky napad, jak zjistit, kde by mohl byt problem?
Ono to vypada jako snad nejaky timeout na TCP/IP komunikaci, mozna
kdyz se nejakou dobu (vzdy jinou?) nic nedeje, tak se to nestandardnim
zpusobem rozpoji...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
TCP komunikace
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 7.10.2003 15:12:31
potrebuji jednoduchou komunikaci klient-server pres TCP a chci pouzit
Synapsi.
mema nekdo nejaky priklad?
diky vitek
Sprahnuti tabulek
[*] m.babik(zv)mus(tec)cz - 7.10.2003 14:00:25
Me jde hlavne o scrollbar, ten DBGrid je jen na cteni. Potrebuji kdyz
kliknu na vertikalni scrollbar, aby se i obsah toho StringGridu posunul
doleva o stejny kus. Dik
M&B
>>> kexo(zv)ynet.sk 7.11.2003 11:42 >>>
>helou, v obsluhe TDBGrid.OnColEnter das nieco taketo:
> SendMessage((Sender as TStringGrid).Handle,WM_KEYDOWN,VK_TAB,0);
> Zdravim,
> lze nejak jednoduse sprahnout dve tabulky (DBGrid a StringGrit), tak
aby se pri pohybu vertikalniho kurzoru u dbgridu pohybovaly sloupce ve
stringridu? Sirka i pocet sloupcu je stejna. D5 W2000, Diky
TWebBrowser a jeho obsah
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 7.10.2003 14:24:27
> potreboval bych dostat obsah okna TWebBrowseru do bitmapy.
Nie som si isty, ci chces prave toto.
Najrychlesie to asi vyskusas s webbrows.dpr v Demos\CoolStuf. Pridal som si
novu akciu a button do toolbaru.
procedure TMainForm.ActionSaveBmpExecute(Sender: TObject);
var
Bmp: TBitmap;
begin
if SaveDialog.Execute then
begin
Bmp := TBitmap.Create;
try
Bmp.Width := WebBrowser1.Width;
Bmp.Height := WebBrowser1.Height;
OleCheck(OleDraw(WebBrowser1.Application, DVASPECT_CONTENT,
Bmp.Canvas.Handle, Rect(0, 0, Bmp.Width, Bmp.Height)));
Bmp.SaveToFile(SaveDialog.FileName);
finally
Bmp.Free;
end;
end;
end;
(V podstate ide o to, ze TWebBrowser.Application implementuje IViewObject.)
Kresli to kopiu toho, co prave ten TWebBrowser zobrazuje. Tzn. viditelnu
cast dokumentu aj so scrollbarmi.
HTH
TOndrej
Button.Visible := False v komponente
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 7.10.2003 14:04:26
Lze to vyresit tak ze nebudes vytvaret ten Button pri create te komponenty
ale v SetUkazTlacitko(True).
Libor
----- Original Message -----
From: <mstevlik(zv)gamo.sk>
Sent: Friday, November 07, 2003 1:36 PM
> Rad by som vsak aby Button v designtime bol Visible false a aby sa
> zobrazil len ak nastavim property UkazTlacitko na True v Object Inspectore
> Je to mozne spravit? Zatial vidim tie tlacitka stale v designtime nech dam
> do tej property co chcem :(
>
> Stevlik Marian
Button.Visible := False v komponente
[*] Pavel Poles <xcony(zv)seznam(tec)cz> - 7.10.2003 13:56:25
> Je to mozne spravit? Zatial vidim tie tlacitka stale v designtime nech dam
> do tej property co chcem :(
V designtimu vytvor Button ale neprirad mu parent,
toho prirad az kdyz si natsavi tu dano property...command line Free VCS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.10.2003 13:22:22
From: <dphi_forum(zv)proces.sk>
> potreboval by som command line verziu Free VCS, neviete ci vobec
> existuje , pripadne kde sa da stiahnut.
http://sourceforge.net/projects/jedivcs
Petr Vones
TWebBrowser a jeho obsah
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.10.2003 13:22:22
From: "David Kraina" <dkx(zv)seznam(tec)cz>
> potreboval bych dostat obsah okna TWebBrowseru do bitmapy. Teoreticky by to
Rekl bych ze to nejde, protoze nema zadnou metodu pro vykresleni do predaneho
kontextu.
Petr Vones
Unik pameti v TClientDataSet (libmidas) v Kylix
[*] Slezak Jan <slezak(zv)elcomgroup(tec)cz> - 7.10.2003 13:32:23
Omlouvam se pokud se zde toto tema jiz resilo, ale zadny takovy prispevek
jsem nenasel.
Mam nasledujici problem: pouzivam na linuxu TClientDataSet jako lokalni
databazi, v rezimu kdy ji casto oteviram a zaviram, pripadne vymenuji cds
soubor nad kterym operuje. V tomto rezimu dochazi k postupnemu a totalnimu
spotrebovani veskere dostupne pameti az do zamrznuti celeho systemu.
Uvitam jakoukoliv radu, jak problem odstranit, ale take jen zpravu, ze nize
uvedena dema nekomu z Vas funguji bez uniku pameti. Problem je pro me
naprosto fatalni, protoze nelze nijak obejit, jde o serverovou aplikaci a
protoze z duvodu portability kodu na Win32 nelze TClientDataSet nahradit.
S pozdravem
Jan Slezak
ELCOM-IPC spol. s r. o.
Problem lze demonstrovat na tomto kodu:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
DBClient;
var
ClientDataSet1: TClientDataSet;
begin
ClientDataSet1:= TClientDataSet.Create(nil);
ClientDataSet1.FileName:= '/home/slezak/tmp/test.cds';
ClientDataSet1.Open;
repeat
ClientDataSet1.Close;
ClientDataSet1.Open;
Sleep(1);
until False;
end.
Stejny efekt ma spusteni nasledujiciho programu. Nastaveni vlastnosti Data
totiz interne take zavira a otevira TClientDataSet.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
DBClient;
var
ClientDataSet1: TClientDataSet;
ClientDataSet2: TClientDataSet;
begin
ClientDataSet1:= TClientDataSet.Create(nil);
ClientDataSet2:= TClientDataSet.Create(nil);
ClientDataSet1.FileName:= '/home/slezak/tmp/test.cds';
ClientDataSet1.Open;
repeat
ClientDataSet2.Data:= ClientDataSet1.Data;
Sleep(1);
until False;
end.
Postupnym rozborem zdrojoveho kodu TClientDataSetu jsem dospel k zaveru, ze
problem zpusobuje primo knihovna libmidas.so.1.0. Lze to demonstrovat timto
kodem:
program Project3;
{$APPTYPE CONSOLE}
uses
Classes,
SysUtils,
VarUtils,
DSIntf;
var
Stream: TFileStream;
Size: Integer;
VarBound: TVarArrayBoundArray;
DataPtr: Pointer;
DataPacket: TDataPacket;
DSBase: IDSBase;
begin
Stream:= TFileStream.Create('/home/slezak/tmp/test.cds', fmOpenRead);
try
Size:= Stream.Size;
FillChar(VarBound, SizeOf(VarBound), 0);
VarBound[0].ElementCount:= Size;
DataPacket:= TDataPacket(SafeArrayCreate(varByte, 1, VarBound));
SafeArrayAccessData(DataPacket, DataPtr);
try
Stream.Read(DataPtr^, Size);
finally
SafeArrayUnAccessData(DataPacket);
end;
finally
Stream.Free;
end;
repeat
CreateDbClientObject(CLSID_DSBase, IDSBase, DSBase);
DSBase.AppendData(DataPacket, True);
DSBase:= nil; // nebo take DSBase._Release;
Sleep(1);
until False;
end.TWebBrowser a jeho obsah
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 7.10.2003 13:48:24
> > Docela by mne zajimalo, jak se Ti podarilo pouzit paintto na kresleni do
> > bmp.
> > Kdysi jsem tento problem resil a dosel jsem k nasledujicim zaverum:
> > okno vlastni jiny proces a nelze proto pouzit napr. paintto (hdc je
> vztazeno
> > k procesu,
> > mimo nej neni platne). Resil jsem to naockovanim dll knihovny a
spustenim
> > threadu
> > v procesu a zde volani paintto, dale preneseni bmp pres interproces
> > komunikaci.
> > Jde to, ale je otazka, zda to skutecne potrebuji.
>
> Kdo rika, ze se mi PaintTo podarilo ?!?
>
> Dle tve odpovedi to proste pro bezne smrtelniky nejde.
> Puvodne jsem zkousel dostat to z aktivniho okna IEXPLORE, ale marnost nad
> marnost
>
Uprime jsem rad, ze jsem tenkrat neco neprehledl. Faktem je, ze to neni
vubec
trivialni. Opravdu je nutne "naockovat proces". No a ty vysledky! Ale na bmp
to asi staci Ja jsem experimentoval s emf, ale neni to ono. Nejsem pysny na
to,
co jsem tenkrat spachtil.
Alexandr Stefek
Button.Visible := False v komponente
[*] mstevlik(zv)gamo.sk - 7.10.2003 13:36:24
Hi all,
Mam komponentu oddedenu od TCustomPanel. V Create tejto komponety vytvaram
do nej Button a Edit.
Rad by som vsak aby Button v designtime bol Visible false a aby sa
zobrazil len ak nastavim property UkazTlacitko na True v Object Inspectore
Je to mozne spravit? Zatial vidim tie tlacitka stale v designtime nech dam
do tej property co chcem :(
V runtime vidim uz vsetko ok
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: 34893645
vypnuti exceptions message pri ladeni v delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.10.2003 13:20:16
From: "Ivo Novosad" <ivonovosad(zv)atron.de>
> Jenze ja bych chtel jen v nekterych castech kodu toto vypnout, ve
> vetsine kodu bych chtel aby se debug messages vypisovali tak jako kdyz
> mas tebou zminovanou volbu zaplou
Potom pouzij breakpoint a v jeho adavanced options si nastav aby debugger v te
casti kodu ignoroval vyjimky (a zaroven se kod na tomto miste nazastavoval).
Vice se doctes v helpu.
Petr Vones
TWebBrowser a jeho obsah
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2003 12:20:12
> Docela by mne zajimalo, jak se Ti podarilo pouzit paintto na kresleni do
> bmp.
> Kdysi jsem tento problem resil a dosel jsem k nasledujicim zaverum:
> okno vlastni jiny proces a nelze proto pouzit napr. paintto (hdc je
vztazeno
> k procesu,
> mimo nej neni platne). Resil jsem to naockovanim dll knihovny a spustenim
> threadu
> v procesu a zde volani paintto, dale preneseni bmp pres interproces
> komunikaci.
> Jde to, ale je otazka, zda to skutecne potrebuji.
Kdo rika, ze se mi PaintTo podarilo ?!?
Dle tve odpovedi to proste pro bezne smrtelniky nejde.
Puvodne jsem zkousel dostat to z aktivniho okna IEXPLORE, ale marnost nad
marnost
TWebBrowser a jeho obsah
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 7.10.2003 12:04:11
> Dobry den,
> potreboval bych dostat obsah okna TWebBrowseru do bitmapy. Teoreticky by
to
> melo byt mozne, jelikoz i presto, ze jsou posuvniky, okno ke skrolovani
bude
> jiz nactene.
> Zkousel jsem ruzne finty pres canvas, hdc, paintto aj., ale muj max.
> vysledek byl prave ono okno s posuvniky.
>
Docela by mne zajimalo, jak se Ti podarilo pouzit paintto na kresleni do
bmp.
Kdysi jsem tento problem resil a dosel jsem k nasledujicim zaverum:
okno vlastni jiny proces a nelze proto pouzit napr. paintto (hdc je vztazeno
k procesu,
mimo nej neni platne). Resil jsem to naockovanim dll knihovny a spustenim
threadu
v procesu a zde volani paintto, dale preneseni bmp pres interproces
komunikaci.
Jde to, ale je otazka, zda to skutecne potrebuji.
Alexandr Stefek
COM server ako servis
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 7.10.2003 12:00:11
> Ahoj,
> prosim o ukazku alebo linku na priklad ktory demostruje pozitie COM
servera
> ktory bezi ako SERVIS !
viz drivejsi diskuze napr.:
> > On 20 Sep 2002 at 8:38, Zbysek Hlinka wrote:
> >
> > > On 19 Sep 2002 at 15:49, Alexandr Stefek wrote:
> > >
> > > > Krome Nastaveni security je potreba do registru nastavit jeste
> > > > nejake klice (napr. LocalService pod, tusim CLSID). Ja osobne
> > > > pridavam do .dpr napr. nasledujici kod (samozrejme lze
> > > > optimalizovat):
> > >
> > > Zkousel jsem ruzne moznosti, ale vzdy mi to hlasilo nejakou chybu. V
> > > nejlepsim pripade, ze pristup byl odepren.
> >
> > Jeste bych mel rict, ze klient se snazi spustit instanci serveru,
> > ktera uz bezi. Dalsi instanci spustit lze, ale to neni zadouci.
> >
> Je dobre se pomoci dcomcnfg presvedcit, ze je DCOM
> pripojen skutecne na sluzbu (samozrejme po instalaci apod.)
> (popisovany jev nastava ve chvili, kdy to neni OK)
> V patricnem dialogu se objevi (nemam to ted pred sebou, takze
> potim z hlavy) RunAs, nebo neco takoveho a tamtez by mela
> byt zvolena volba service ci co.
> Pozor tento zpusob ale je pseudo DCOM service, vse bezi v hlavnim vlaknu.
> Presto, mam to overeno jako celkem funkcni.
> Doporucuji se podivat na
> http://www.aldyn.ru/articles/dcom_in_service/index.html
> Ale s trochou casu a usili by to mohlo jit jeste poopravit, aby to vse
> bylo OK.
Alexandr STEFEK
Sprahnuti tabulek
[*] kexo <kexo(zv)ynet.sk> - 7.10.2003 11:42:09
helou, v obsluhe TDBGrid.OnColEnter das nieco taketo:
SendMessage((Sender as TStringGrid).Handle,WM_KEYDOWN,VK_TAB,0);
samozrejme tam este musis pridat nejaku omacku, napr. ak chces aby sa
stringgrid nastavil na Nty stlpec, ak sa user klikne na Nty stlpec v
DBGride, a pod...
kexo
----- Original Message -----
From: <m.babik(zv)mus(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 07, 2003 10:56 AM
Subject: Sprahnuti tabulek
> Zdravim,
> lze nejak jednoduse sprahnout dve tabulky (DBGrid a StringGrit), tak
> aby se pri pohybu vertikalniho kurzoru u dbgridu pohybovaly sloupce ve
> stringridu? Sirka i pocet sloupcu je stejna. D5 W2000, Diky
>
>
> M&B
>TWebBrowser a jeho obsah
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2003 11:42:09
Dobry den,
potreboval bych dostat obsah okna TWebBrowseru do bitmapy. Teoreticky by to
melo byt mozne, jelikoz i presto, ze jsou posuvniky, okno ke skrolovani bude
jiz nactene.
Zkousel jsem ruzne finty pres canvas, hdc, paintto aj., ale muj max.
vysledek byl prave ono okno s posuvniky.
S pozdravem
===================================================
David Kraina, DKx
-------------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================vypnuti exceptions message pri ladeni v delphi
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2003 11:46:09
ne
> a toto skutecne funguje jenom na exeptiony primo volane v delphi? co kdyz
je
> exception nekde, kde ji nevolam, neco chybne naprogramuji, to se zobrazi
> vzdy?> > V Delphi 6:
> > Tools / Debbuger options / Language exceptions / Stop on Delphi
> > exceptions
vypnuti exceptions message pri ladeni v delphi
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 7.10.2003 11:38:08
> V Delphi 6:
> Tools / Debbuger options / Language exceptions / Stop on Delphi
> exceptions
>
> Jakub Dusek
a toto skutecne funguje jenom na exeptiony primo volane v delphi? co kdyz je
exception nekde, kde ji nevolam, neco chybne naprogramuji, to se zobrazi
vzdy?
Bronislav Klucka
Sprahnuti tabulek
[*] m.babik(zv)mus(tec)cz - 7.10.2003 10:56:06
Zdravim,
lze nejak jednoduse sprahnout dve tabulky (DBGrid a StringGrit), tak
aby se pri pohybu vertikalniho kurzoru u dbgridu pohybovaly sloupce ve
stringridu? Sirka i pocet sloupcu je stejna. D5 W2000, Diky
M&B
problem s parametrami
[*] horky(zv)cominn(tec)cz - 7.10.2003 10:50:05
> From: mato [mailto:mato.tino(zv)inmail.sk]
> Sent: Friday, November 07, 2003 10:12 AM
> mam dataset s SQL retazcom / vid na konci/, mam nadefinovane
> parametre. Po
Zkus po kazde zmene parametru nebo pred aktivaci datasetu zavolat
metodu Prepare.
--
S pozdravem Karel Horky, CLX, D6 SP2, FB 1.0.3, IBX 6.03, WXP SP1
[mailto:horky(zv)cominn(tec)cz] ADO problem
[*] kexo <kexo(zv)ynet.sk> - 7.10.2003 11:02:06
v tom to nie je,
mne sa stava to iste, mam pocit ze je to nieco take ze Acess 'nestiha'
previest vsetky sql dotazy medzi open a close...
alebo je to nieco s nastavenim buffrov, alebo tak, ADO pouzivam bohuzial
dost povrchne :(
tiez sa teda pripajam, vie niekto co s tym?
kexo
----- Original Message -----
From: "Bohdan Voska" <bohdan(zv)softok(tec)cz>> Je to z TDataset. EnableControl - vypina zmeny v TDatasetu zmeny v
TControl
> DisableControl - zapina zmeny
> ControlsDisabled - zjistuje jestli je
> EnableControl zapnuty nebo ne.
ADO problem
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 7.10.2003 10:26:03
Je to z TDataset. EnableControl - vypina zmeny v TDatasetu zmeny v TControl
DisableControl - zapina zmeny
ControlsDisabled - zjistuje jestli je
EnableControl zapnuty nebo ne.
TAdoQuery je zdedeno z TCustomAdoDataset a ten je zase z TDataset. Nejsou to
vlastnosti, ale metody. Ale muze to byt i v necem jinem, ale nic jineho me
nenapada.
Bohdan Voska.
>
> Tak tuhle property jsem u TADOQuery nenasel ;O(
>
> Radek
>
>
>
>
> "Bohdan Voska" <bohdan(zv)softok(tec)cz>(zv)clexpert(tec)cz on 07.11.2003 08:47:56
>
> Odpovezte prosim - delphi-l(zv)clexpert(tec)cz
>
> Odeslano kym: delphi-l-owner(zv)clexpert(tec)cz
>
>
> Komu: delphi-l(zv)clexpert(tec)cz
> Kopie:
> Predmet: Re: ADO problem
>
>
> Ahoj,
>
> neni tam nekde zapnuto ADOQuery.EnableControl? Potom by se zmeny
nepromitly
> do gridu.
>
> Bohdan Voska
>
>
>
>
>
>
>
>
>
problem s parametrami
[*] mato <mato.tino(zv)inmail.sk> - 7.10.2003 10:12:02
Zdravim, D7 ado expres
mam dataset s SQL retazcom / vid na konci/, mam nadefinovane parametre. Po
spusteni mi ukaze vsetky relevantne zaznami, ale pozmene hodnoty parametru a
aktivovani datasetu uz tam vsetky hodnoty nie su. Aj ked vlastne hodnoty
parametrou ostanu rovnake, ak som ich v editovacom polivku nezmenil. Stretli
ste sa s niecim takym ? Pripajam sa na databazu ACESS 97.
SELECT T_voz.SPZ, T_jazda.ID, T_jazda.Rok, T_jazda.Cislo,
T_jazda_rozpis.Datum, T_jazda_rozpis.Odkial, T_jazda_rozpis.Kam,
T_jazda_rozpis.Tachometer, T_jazda_rozpis.Ubehnute, Meno_dennik.meno,
T_jazda_rozpis.Odchod,
T_jazda_rozpis.Prichod,DatePart("m",[T_jazda_rozpis.Datum]) AS Mes
FROM ((T_voz INNER JOIN T_jazda ON T_voz.ID = T_jazda.ID_voz) INNER JOIN
T_jazda_rozpis ON T_jazda.ID = T_jazda_rozpis.ID_jazda) INNER JOIN
Meno_dennik ON T_jazda_rozpis.ID_osoba = Meno_dennik.C_prac_m WHERE
(((T_jazda.ID_voz) = ParID) AND ((T_jazda.Rok) = ParRok) AND
((ParMesOd<=DatePart("m",[Datum])) AND (DatePart("m", [Datum])) <=
ParMesDo))
ORDER BY T_voz.SPZ, T_jazda_rozpis.Datum, T_jazda_rozpis.Tachometer;
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu (zme.zoner.sk)command line Free VCS
[*] dphi_forum(zv)proces.sk - 7.10.2003 10:06:02
zdravim
potreboval by som command line verziu Free VCS, neviete ci vobec
existuje , pripadne kde sa da stiahnut.
dik
vypnuti exceptions message pri ladeni v delphi
[*] Ivo Novosad <ivonovosad(zv)atron.de> - 7.10.2003 09:33:59
Jenze ja bych chtel jen v nekterych castech kodu toto vypnout, ve
vetsine kodu bych chtel aby se debug messages vypisovali tak jako kdyz
mas tebou zminovanou volbu zaplou
Jakub Dusek wrote:
>V Delphi 6:
>Tools / Debbuger options / Language exceptions / Stop on Delphi
>exceptions
>
>Thursday, November 6, 2003, 5:04:56 PM, you wrote:
>
>IN> omlouvam se ze to je nesrozumitelne, myslel jsem nezobrazovat exception
>IN> ktera vznikne v bloku try except pri ladeni programu, pri spusteni z delphi
>.
>
>
>
ADO problem
[*] tomsir1.edu(zv)mail.cez(tec)cz - 7.10.2003 08:55:57
Tak tuhle property jsem u TADOQuery nenasel ;O(
Radek
"Bohdan Voska" <bohdan(zv)softok(tec)cz>(zv)clexpert(tec)cz on 07.11.2003 08:47:56
Odpovezte prosim - delphi-l(zv)clexpert(tec)cz
Odeslano kym: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
Predmet: Re: ADO problem
Ahoj,
neni tam nekde zapnuto ADOQuery.EnableControl? Potom by se zmeny nepromitly
do gridu.
Bohdan Voska
ADO problem
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 7.10.2003 08:47:56
Ahoj,
neni tam nekde zapnuto ADOQuery.EnableControl? Potom by se zmeny nepromitly
do gridu.
Bohdan Voska
> Ahoj,
>
> mam form na nemz mam DBGrid, ktery plnim pres ADOConnection -> ADOQuery ->
> DataSource.
> Pri kliku na bunku vyvolam dialog na zmenu zaznamu. Po uzavreni dialogu a
> zapisu zmen provedu Close a Open ADOQuery, ktera plni DBGrid. Ocekaval
> jsem, ze se mi projevi zapsane zmeny i v DBGridu, ale nic. Kdyz otevru
> znova dialog pro zmenu udaju, tam jiz provedene zmeny jsou ... kdyz dialog
> zavru, ejhle zmeny se projevi i v DBGridu. Ale PROC az napodruhe ??
>
> Diky Radek
>
>
>
>
microsoft outlook / konfview
[*] Jaroslav KUBA <jarda(zv)tresoft(tec)cz> - 7.10.2003 08:19:54
Me by se zaloha konference nekde hodila
bral jsem si ji z www.rydval(tec)cz ale tam je naposledy unor 2002
> > popripade nema nekdo zpravy od brezna ve formatu pro konfview.
> *(cerven, cervenec,srpen,zari,rijen), v
> *pripade zaujmu, to mozem dat niekde na web.
> *Chyba mi : marec, april, maj (brezen, duben, kveten :-)),
>
Jaroslav Kuba
property TRect a pristup k jednotlivym polozkam
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 7.10.2003 07:09:49
> Daj si namiesto protected public, a pojde ti to.
to je principielne spatny pristup. nemuzu zverejnit
interni promennou objektu. ja potrebuju mit jeji
obsluhu plne pod kontrolou. v pripade, ze promenna
je protected a pristup je pomoci verejne property,
muzu si na jeji cteni a zapis psat funkce, ktere
zajisti nejakou dalsi funkcnost, jako kontorla
rozzsaho, prekresleni vyrezu a pod.
peca
property TRect a pristup k jednotlivym polozkam
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 7.10.2003 07:11:50
Vit Krska wrote:
> a nebo pouzij funkci Rect. pak:
> ViewRect:= Rect(x1,y1,x2,y2);
tak to delam ted. pres noc se mi
to rozlezelo a ono by to byla vlastne
blbost, neb bych obchazel zapouzdreni
objektu. reseni by bylo vytvorit object
TViewRect (ne record jako je TRect) a
ten by mel vlastnosti, ktere by sly
prirazovat i samostatne :o)
peca
microsoft outlook / konfview
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 7.10.2003 07:07:49
> *Chyba mi : marec, april, maj (brezen, duben, kveten :-)),
> *nemate to nahodou niekto ?
mam od 10.4.2003.
ale v mozille. nicmene do txt by to snad
melo jit. v pripade zajmu to omrknu, nebo
rovnou nekdo poradte step by step jak to
z mozilly vysypat.
peca
microsoft outlook / konfview
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 7.10.2003 06:49:48
Zdravim
Karel Brkl <karel_brkl(zv)hotmail.com> wrote:
> Poradte, jak prenest zpravy z microsoft outlook do konfview,
> popripade nema nekdo zpravy od brezna ve formatu pro konfview.
*Mam prispevky za jun, jul, august,september, oktober
*(cerven, cervenec,srpen,zari,rijen), v
*pripade zaujmu, to mozem dat niekde na web.
*Chyba mi : marec, april, maj (brezen, duben, kveten :-)),
*nemate to nahodou niekto ?
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)hotmail.com
ADO problem
[*] tomsir1.edu(zv)mail.cez(tec)cz - 7.10.2003 06:35:47
Ahoj,
mam form na nemz mam DBGrid, ktery plnim pres ADOConnection -> ADOQuery ->
DataSource.
Pri kliku na bunku vyvolam dialog na zmenu zaznamu. Po uzavreni dialogu a
zapisu zmen provedu Close a Open ADOQuery, ktera plni DBGrid. Ocekaval
jsem, ze se mi projevi zapsane zmeny i v DBGridu, ale nic. Kdyz otevru
znova dialog pro zmenu udaju, tam jiz provedene zmeny jsou ... kdyz dialog
zavru, ejhle zmeny se projevi i v DBGridu. Ale PROC az napodruhe ??
Diky Radek
Co si myslite o baliku komponent KaDAO ?
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 6.10.2003 22:47:18
----- Original Message -----
From: "Halen" <halen(zv)seznam(tec)cz>> Ahoj, pouzivate nekdo tento balik pro pristup k DB? Nejake pro a proti?
Ahoj.
Pouzivam (spise pouzival jsem) ho proti databazim v Accesu a byl naprosto
bez problemu (v roce 2000).
Napsane programy funguji dodnes. Ted jsem jiz dlouho nic pro Acces nepsal.
Ludek
vypnuti exceptions message pri ladeni v delphi
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 6.10.2003 17:32:58
V Delphi 6:
Tools / Debbuger options / Language exceptions / Stop on Delphi
exceptions
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, November 6, 2003, 5:04:56 PM, you wrote:
IN> omlouvam se ze to je nesrozumitelne, myslel jsem nezobrazovat exception
IN> ktera vznikne v bloku try except pri ladeni programu, pri spusteni z delphi
vypnuti exceptions message pri ladeni v delphi
[*] Ivan Turcan <iturcan(zv)drake.sk> - 6.10.2003 17:20:57
neviem ci to ide v kazdom delphi, ale skus dat do hlavneho unitu do sekcii
uses odkaz na unitu appevnt , toto v Delphi 5 sposoby ze aj ked je vynimka
volana a aj ked ju mas v try exception bloku tak to ignoruje,,,
Ivan Turcan
> ----- Original Message -----
> From: "Ivo Novosad" <ivonovosad(zv)atron.de>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, November 06, 2003 4:14 PM
> Subject: vypnuti exceptions message pri ladeni v delphi
>
>
> > Zdravim,
> >
> > existuje nejaka moznost jak v urcite casti programu/kodu vypnout
> > zobrazovani exceptions? neco jako kompilacni direktiva nebo podobne
> >
> > diky
> > Ivo
> >
> > ps : delphi 7
> >
> >
> >
> >
>
vypnuti exceptions message pri ladeni v delphi
[*] Ivo Novosad <ivonovosad(zv)atron.de> - 6.10.2003 17:04:56
omlouvam se ze to je nesrozumitelne, myslel jsem nezobrazovat exception
ktera vznikne v bloku try except pri ladeni programu, pri spusteni z delphi
Ivo Novosad wrote:
>Zdravim,
>
>existuje nejaka moznost jak v urcite casti programu/kodu vypnout
>zobrazovani exceptions? neco jako kompilacni direktiva nebo podobne
>
>diky
>Ivo
>
>ps : delphi 7
>.
>
>
>
Re2x: QuickReport - CustomPreview - pohyb vpred a
[*] js-delphi(zv)quick(tec)cz - 6.10.2003 16:48:54
----- Puvodni zprava -----
Od: Jaroslav Uher <jarek(zv)iuher(tec)cz>
> Pokud si s tim nechces hrat, mohu Ti to
> poslat cele hotove (ja uz jej nepouzivam,
> presel jsem na FreeReport).
>
> Jarek
Ahoj!
No jestli by Ti to nevadilo, jakykoliv ukazkova priklad se hodi.
Jo a co freereport? Ja o nem taky dost uvazuju. Jsi schopen nejak shrnout plusy/minusy??
A co pouzivate ostatni panove??? QuickReport nebo Freereport nebo neco jineho?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
vypnuti exceptions message pri ladeni v delphi
[*] Ivo Novosad <ivonovosad(zv)atron.de> - 6.10.2003 16:14:52
Zdravim,
existuje nejaka moznost jak v urcite casti programu/kodu vypnout
zobrazovani exceptions? neco jako kompilacni direktiva nebo podobne
diky
Ivo
ps : delphi 7
Informace ve StatusBaru
[*] kexo <kexo(zv)ynet.sk> - 6.10.2003 15:14:48
JEDI ma zadefinovanu funkciu
function GetKeyState(const VirtualKey: Cardinal): Boolean;
takze skus stade vyhodit to 'Odd'
kexo
----- Original Message -----
From: "LUKES Vaclav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 06, 2003 1:36 PM
Subject: Informace ve StatusBaru
> Ahoj,
>
> muzete me prosim poradit ?
> Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o
klavesach:
>
> procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> with SBA do
> begin
> if Odd(GetKeyState(VK_NUMLOCK)) then
> Panels[0].Text := 'NUM'
> else
> Panels[0].Text := '';
>
> if Odd(GetKeyState(VK_CAPITAL)) then
> Panels[1].Text := 'CAPS'
> else
> Panels[1].Text := '';
> end;
> end;
>
> Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane
fungovat.
>
> Nevite nekdo co s tim ?
>
> Diky
>
> V.
>
>
>Popup a NT4
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 6.10.2003 15:14:48
Ahoj,
narazil jsem na zahadu a zajimalo by me, zda jste se nekdo nekdy s
necim takovym nepotkal.
Mam aplikaci a na jednom formu je TTree a DBGrid. Na obou
komponentach chytam prave tlacitko mysi a zobrazim Popupmenu
(nad kazdou komponentou jine). A ted problem. Mame tady spoustu
pocitacu s W2k a program je vyvijen a laden tez na tomto OS. Ja
mam ale Win NT4. Pokud ten program (prelozeny na W2k) spustim
na W2k, popup menu krasne funguje. Pokud jej spustim na svem
pocitaci s NT4, popup menu se vubec nezobrazi. Normalne kdyz
udelam PopupMenu1.Popup(X, Y), tak se objevi menu a az si neco
vyberu, pokracuje beh programu dalsim radkem v kodu. Na NT4
volani PopupMenu1.Popup(X, Y) neudela nic. Proste se okamzite
pokracuje na dalsim radku.
Zkusil jsem jsem ten program bez jakekoli upravy prelozit u
sebe na NT4 a funguje bezvadne.
Nenapada Vas, pro pri prekladu na W2k popup menu
nefunguje? Zajimave je, ze v nektere starsi verzi to fungovalo, nyni
si to s ohledem na popisovane skutecnosti neumim vysvetlit.
Diky za jakekoli namety
David Lebeda
property TRect a pristup k jednotlivym polozkam
[*] Kancelar <pisek(zv)prog-soft(tec)cz> - 6.10.2003 15:08:47
Je to proto, ze do vlastnosti, ktera je typu zaznam se da zapisovat
zase jenom ta sama struktura. K jednotlivym polozkam pristup neni.
Musi se to udelat takto:
...
var tmpViewRect: TRect;
...
tmpViewRect.Left := hodnota;
ViewRect := tmpViewRectangle;
...
Druha moznost je, nadefinovat vlastnosti pro kazdou polozku zvlast:
...
protected
FViewRect: TRect;
public
property RectLeft: integer read getRectLeft write SetRectLeft;
...
end;
...
function getRectLeft: integer;
begin
Result:= FViewRect.Left;
end;
procedure setRectLeft(value: integer);
begin
FViewRect.Left:= value;
end;
...
Mejte se pekne
Slavoj Pisek
> Ahoj,
> mam do TFormu do sekce PROTECTED doplneou promennou
> a do sekce PUBLIC proerty asi nasledovne:
> TfPriklad=class(TForm)
> ...
> ...
> ...
> protected
> FViewRect: TRect;
> public
> property ViewRect: TRect read FViewRect write FViewRect;
> end;
> No a potom, kdyz v kodu zousim priradit neco do
> ViewRect.Left, tak to nejde. Netusite nekdo proc?
> Pise to "Left side cannot be assigned to". Pristup
> FViewRect:=neco funguje :/
> dekuji
> Peca
Jak spustit soubor asociovany k aplikaci
[*] kexo <kexo(zv)ynet.sk> - 6.10.2003 14:34:44
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> soubor, ulozim jej na disk a nyni bych ho potreboval spustit v aplikaci,
se kterou je asociovan. Nechci pouzit ShellExecute,
skusal si FindExecutable ?
kexo
property TRect a pristup k jednotlivym polozkam
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 6.10.2003 15:00:46
a nebo pouzij funkci Rect. pak:
ViewRect:= Rect(x1,y1,x2,y2);
>
> Daj si namiesto protected public, a pojde ti to.
>
>
> Ahoj,
>
> mam do TFormu do sekce PROTECTED doplneou promennou
> a do sekce PUBLIC proerty asi nasledovne:
>
> TfPriklad=class(TForm)
> ....
> ....
> ....
> protected
> FViewRect: TRect;
> public
> property ViewRect: TRect read FViewRect write FViewRect;
> end;
>
> No a potom, kdyz v kodu zousim priradit neco do
> ViewRect.Left, tak to
> nejde. Netusite nekdo proc? Pise to "Left side cannot be assigned to".
> Pristup FViewRect:=neco funguje :/
>
> dekuji
>
> Peca
>
>
>
> ---
> Prichadzajuca sprava neobsahuje virusy.
> Skontrolovane antivirusovym systemom AVG (http://www.grisoft(tec)cz).
> Verzia: 6.0.530 / Virusova databaza: 325 - datum vydania: 22. 10. 2003
>
>
> prace se souborem txt
[*] kexo <kexo(zv)ynet.sk> - 6.10.2003 15:00:46
asi bude pre teba najjednoduhsie pouzit TIniFile, pozri si funkciu
ReadString...
tvoj txt file potom bude .ini subor, a bude vyzerat takto nejako:
[users]
meno1=heslo1
meno2=heslo2
meno3=heslo3
ale je to dost na houby, minimalne to heslo nejako zakryptuj
kexo
----- Original Message -----
From: "Radek Nekvinda" <nekvinda(zv)kybertec.com>> Potreboval bych nejak vyresit problem s prihlasenim. Vyuzivat k
> tomu textovy soubor a potreboval bych overovat pole edit1 a edit 2 s
> udaji v tomto souboru. Jak bych mel asi tak postupovat.
Kupa shareware cez internet a danovy doklad
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 6.10.2003 14:28:43
> Tak sa spytam dodatocne - na com teda zalezi.
> Mam uctovnicku ktora zakon pozna detailne (z danoveho uradu) a ona mi
> povedala ze potrebuje danovy doklad.
> Ako to teda uctujete priatelia, ked kolega tvrdi ze ziadny doklad
> nedostanem.
Ako Predpis v PU (Zavazok v JU) Ti posluzi faktura v Elektronickej podobe
a ako Uhrada bude pohyb na Tvojom Ucte, ktory vznikne uhradou.
Neviem ako to bude s DPH, no myslim si, ze Ti ho dodatocne nikto
nevyrube. Nemal som este tento pripad s tovarom, no na sluzbach
( napr. skolenie mimo uzemia republiky ) DPH nieje.
Ak vyzistim viac z Danoveho uradu, este sa ozvem.
Peter Brcko
QuickReport - CustomPreview - pohyb vpred a vzad,
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 6.10.2003 14:42:45
On 6 Nov 2003 at 13:58, js-delphi(zv)quick(tec)cz wrote:
> Ahoj!
> Mam dotaz viz subjekt. Podle 1001 tipu triku jsem si udelal uzivatelsky preview
(stejny priklad je i v dokumentaci k QReportu z www stranek autora - to jen pokud
nekdo nema 1001 Tipu-triku), ale ted mam problem s tim, ze kdyz ma report vice
stranek, tak se mezi nima neumim posouvat - klasicky: prvni, predchozi,
nasledujici, posledni.
> Nevite nekdo?
QRPreview1.PageNumber := 1; // first page
...
QRPreview1.PageNumber := QRPreview1.QRPrinter.PageCount; // last page
a jeste se koukni na OnQRPreview1PageAvailable
Pokud si s tim nechces hrat, mohu Ti to poslat cele hotove (ja uz jej nepouzivam,
presel jsem na FreeReport).
Jarek Jak spustit soubor asociovany k aplikaci
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 6.10.2003 14:30:43
> V databazi mam ulozene soubory, ktere potrebuji
> nejakym zpusobem spustit. Vezmu tedy soubor, ulozim
> jej na disk a nyni bych ho potreboval spustit v
> aplikaci, se kterou je asociovan.
Pozri si FindExecutable v ShellAPI, alebo ShellFindExecutable v JclShell.
HTH
TOndrej
Pro uzivatele Kylixu
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 6.10.2003 14:44:45
----- Original Message -----
From: "Martin Schayna" <mschayna(zv)aktis(tec)cz>> Pavel Cisar <pcb(zv)atlas(tec)cz> wrote:
> > Pokud vladnete anglictinou, pouzivate Kylix a chcete si udelat
> > obrazek jak to s Kylixem bude vypadat v budoucnu, pak vam mnohe
> > napovi nasledujici clanek:
>
> A sakra, vi nekdo neco vice oficialnejsiho? Borland(tec)cz?
> Mam strach...
>
> Martin Schayna
>
Obavam se, ze vic oficialnejsi nez od Michalea Swindella to byt skoro ani
nemuze. :-(
J. Luhan
Borland CZ
Padani aplikace z delphi
[*] Petr Matejcek <konference(zv)crhov.komfi(tec)cz> - 6.10.2003 14:40:44
to by mohlo byt ono zadna tiskarna tam neni nainstalovana
muzete poslat tu pasaz jak a kde upravit freereport?
Tomas Kupcik napsal(a):
> Presne tohle chovani jsem pozoroval u jedne aplikace taky, problem byl ve
> FreeReportu a nezapnute sitove tiskarne (pouze u WinXP). Postacilo mirne
> poupravit freereport na miste, kde to padalo.
>
> T.K.
>
>
>>zdravim
>>
>> mam aplikaci napsanou v delphi, pouziva komponenty interbase, exporty do
>>excelu, freereport a komunikaci po seriove lince
>>
>>pri spousteni aplikace na winXP aplikace vzdy spadne (pouze na jednom PC )
>>
>>
>>na nekolika dalsich PC winXP, win2k funguje bez problemu
>>
>>poradi mi nekdo kde mam hledat chybu ?
>>
>>diky PM
>
>
>
>
>
>
> property TRect a pristup k jednotlivym polozkam
[*] delphikonf(zv)proxima-soft.sk - 6.10.2003 14:18:42
Daj si namiesto protected public, a pojde ti to.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of petr palicka
Sent: Thursday, November 06, 2003 1:19 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: property TRect a pristup k jednotlivym polozkam
Ahoj,
mam do TFormu do sekce PROTECTED doplneou promennou
a do sekce PUBLIC proerty asi nasledovne:
TfPriklad=class(TForm)
....
....
....
protected
FViewRect: TRect;
public
property ViewRect: TRect read FViewRect write FViewRect;
end;
No a potom, kdyz v kodu zousim priradit neco do ViewRect.Left, tak to
nejde. Netusite nekdo proc? Pise to "Left side cannot be assigned to".
Pristup FViewRect:=neco funguje :/
dekuji
Peca
---
Prichadzajuca sprava neobsahuje virusy.
Skontrolovane antivirusovym systemom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.530 / Virusova databaza: 325 - datum vydania: 22. 10. 2003
Pro uzivatele Kylixu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 6.10.2003 13:52:40
Pavel Cisar <pcb(zv)atlas(tec)cz> wrote:
> Pokud vladnete anglictinou, pouzivate Kylix a chcete si udelat
> obrazek jak to s Kylixem bude vypadat v budoucnu, pak vam mnohe
> napovi nasledujici clanek:
A sakra, vi nekdo neco vice oficialnejsiho? Borland(tec)cz?
Mam strach...
Martin Schayna
Jak spustit soubor asociovany k aplikaci
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 6.10.2003 14:12:41
Neviem, ci to pomoze (neskusal som to), ale vyskusaj spustat subor START
a ako parameter mu davaj subor, ktory chces realne spustit. Napr. "start
video.avi" (bez tych uvodzoviek. Uvodzovky pouzivaj len na nazov suboru
v pripade, ze obsahuje medzery).
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
+421 904 421 925
> resim nasledujici problem. V databazi mam ulozene soubory, ktere
potrebuji
> nejakym zpusobem spustit. Vezmu tedy soubor, ulozim jej na disk a nyni
> bych ho potreboval spustit v aplikaci, se kterou je asociovan. Nechci
> pouzit ShellExecute, protoze potrebuju vedet, ze uzivatel ukoncil
> aplikaci, ve ktere se soubor spustil. Chtel jsem pouzit nasledujici
fci,
> ale ta funguje pouze na spustitelne soubory coz je logicke:QuickReport - CustomPreview - pohyb vpred a vzad,
[*] js-delphi(zv)quick(tec)cz - 6.10.2003 13:58:40
Ahoj!
Mam dotaz viz subjekt. Podle 1001 tipu triku jsem si udelal uzivatelsky preview (stejny priklad je i v dokumentaci k QReportu z www stranek autora - to jen pokud nekdo nema 1001 Tipu-triku), ale ted mam problem s tim, ze kdyz ma report vice stranek, tak se mezi nima neumim posouvat - klasicky: prvni, predchozi, nasledujici, posledni.
Nevite nekdo?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
Padani aplikace z delphi
[*] Tomas Kupcik <tkupcik(zv)qgir(tec)cz> - 6.10.2003 13:40:39
Presne tohle chovani jsem pozoroval u jedne aplikace taky, problem byl ve
FreeReportu a nezapnute sitove tiskarne (pouze u WinXP). Postacilo mirne
poupravit freereport na miste, kde to padalo.
T.K.
> zdravim
>
> mam aplikaci napsanou v delphi, pouziva komponenty interbase, exporty do
> excelu, freereport a komunikaci po seriove lince
>
> pri spousteni aplikace na winXP aplikace vzdy spadne (pouze na jednom PC )
>
> na nekolika dalsich PC winXP, win2k funguje bez problemu
>
> poradi mi nekdo kde mam hledat chybu ?
>
> diky PM
Informace ve StatusBaru
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 6.10.2003 13:36:38
Ahoj,
muzete me prosim poradit ?
Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o klavesach:
procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with SBA do
begin
if Odd(GetKeyState(VK_NUMLOCK)) then
Panels[0].Text := 'NUM'
else
Panels[0].Text := '';
if Odd(GetKeyState(VK_CAPITAL)) then
Panels[1].Text := 'CAPS'
else
Panels[1].Text := '';
end;
end;
Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane fungovat.
Nevite nekdo co s tim ?
Diky
V.
Padani aplikace z delphi
[*] Petr Matejcek <konference(zv)crhov.komfi(tec)cz> - 6.10.2003 13:22:37
zdravim
mam aplikaci napsanou v delphi, pouziva komponenty interbase, exporty
do excelu, freereport a komunikaci po seriove lince
pri spousteni aplikace na winXP aplikace vzdy spadne (pouze na jednom PC
) na nekolika dalsich PC winXP, win2k funguje bez problemu
poradi mi nekdo kde mam hledat chybu ?
diky PM
property TRect a pristup k jednotlivym polozkam
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 6.10.2003 13:18:37
Ahoj,
mam do TFormu do sekce PROTECTED doplneou promennou
a do sekce PUBLIC proerty asi nasledovne:
TfPriklad=class(TForm)
...
...
...
protected
FViewRect: TRect;
public
property ViewRect: TRect read FViewRect write FViewRect;
end;
No a potom, kdyz v kodu zousim priradit neco do
ViewRect.Left, tak to nejde. Netusite nekdo proc?
Pise to "Left side cannot be assigned to". Pristup
FViewRect:=neco funguje :/
dekuji
Peca
Uvolnenie pamati
[*] Lubos Urban <lubos.urban(zv)visicom.sk> - 6.10.2003 12:52:35
Cafte konfera,
mohli by ste mi prosim pomoct s tym ako spravne uvolnovat pamat, v tomto
pripade:
TForm1 = class(TForm)
...
private
....
BD_Len: Int64;
BD_Data: TBlobByteData
procedure ReadData;
end;
procedure TForm1.ReadData;
begin
// ak je nieco ulozene v BD_Data tak to treba uvolnit ale ako???
BD_Len:= Query.GetBlobFieldData(Grid.Col+1, BD_Data);
end;
v procedure ReadData by som potreboval uvolnit data co boli do DB_Data
ulozene pri predchadzajucom volani ReadData (ak tam nejake boli). Ale neviem
ako na to jedine co ma napadlo bolo SelLength(BD_Data, 0), ale netusim ci je
toto spravny postup.
Mohli by ste mi prosimporadit ako na to??
D5, W2k
Dakujem
Lubos Urban
Synapse - citanie emailov
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.10.2003 12:38:33
> nie je tam znak '=', proste tam iba vlozi #13#10.
>
> Nechapem tomu, lebo ked si ten email pozriem napr. cez Lotus Notes, tam mi
> to ukaze normalne,
> skusal som aj v Delphi cez komponentu TNMPop3 tam mi to tiez tak nacita, ze
> to rozdeli ;-(
Pak to bude tim, ze tam skutecne to odradkovani je, ale mnoho
postovnich klientu jako je treba outlook, lotus i pegasus mail delaji
pri zorbarzovani mailu to, ze se v nem pokusi prefoprmatovat
odstavce. Pri tom se ti to odradkovani ztrati, protoze v e-mailech se
bere konec odstavce az kdyz se narazi na prazdny radek!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.prace se souborem txt
[*] Radek Nekvinda <nekvinda(zv)kybertec(tec)com> - 6.10.2003 12:48:34
Dobrej, teprve zacinam pracovat s Dephi!
Potreboval bych nejak vyresit problem s prihlasenim. Vyuzivat k
tomu textovy soubor a potreboval bych overovat pole edit1 a edit 2 s
udaji v tomto souboru. Jak bych mel asi tak postupovat.
Diky
PS: berte ohledy na to, ze jsem na to uplne tupej, tak prosim nejak
srozumitelne
Tovarni 1112, Chrudim
537 01, Czech Republic
Tel./Fax.: +420 469 659 147
E-mail: nekvinda(zv)kybertec.com
WWW: www.kybertec.com
Kupa shareware cez internet a danovy doklad
[*] Pesek Michal <michal.pesek(zv)mnul(tec)cz> - 6.10.2003 12:36:33
..... a zaplatit az dvojnasobek ceny a k tomu jeste cekat kdovi
..jak dlouho.
Taky nejsem priznivcem teto firmy.
Ale pokud se mi to vyplati z pohledu "bezproblemovosti v ucetnictvi" a
"klidu na dusi" tak potom tady tahleta dalsi moznost existuje.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
http://www.totalcommander(tec)cz
Kupa shareware cez internet a danovy doklad
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2003 12:10:31
From: "Pesek Michal" <michal.pesek(zv)mnul(tec)cz>
> nebo muzes vyuzit sluzeb jinych firem, kteri to nakoupi a pak preprodaji,
> vcetne vsech nalezitosti.
... a zaplatit az dvojnasobek ceny a k tomu jeste cekat kdovi jak dlouho.
Petr Vones
Kupa shareware cez internet a danovy doklad
[*] spisiak <spisiak(zv)zoznam.sk> - 6.10.2003 11:58:30
> > Mam uctovnicku ktora zakon pozna detailne (z danoveho uradu) a ona mi
> > povedala ze potrebuje danovy doklad.
Ak mas problemy tak si to nechaj zaregistrovat cez
AVIR na slovensku alebo JImaz v cechach a budes to mat aj s dokladom.
KaSi
Karta do PCI - jak na ni v Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.10.2003 11:46:29
Puvodni zprava ze dne 6.11.2003:
> Otazka: Vi nekdo, jakym zpusobem se resi vytvoreni ovladacu pod Delphi?
Ovladacu pod Delphi - zadnym.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Podivna chyba u DesignPackage v D7
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 6.10.2003 11:08:21
> chybu typu "Access violation at address 04A25E40 in module "1". Read of
> address 00000004." Jasne ze je
Tohle je typicky priznak pouziti nil jako reference na objekt + ofsset, tj. zjisti
si offest a budes vedet
na jakou property se saha.
Slavek
Synapse - citanie emailov
[*] dphi_forum(zv)proces.sk - 6.10.2003 11:26:27
nie je tam znak '=', proste tam iba vlozi #13#10.
Nechapem tomu, lebo ked si ten email pozriem napr. cez Lotus Notes, tam mi
to ukaze normalne,
skusal som aj v Delphi cez komponentu TNMPop3 tam mi to tiez tak nacita, ze
to rozdeli ;-(
Stano
******************************************************************************
Tak jak to server posle, tak to tam najdes.
Jak vypada to rozdeleni? Neni nahodou na konci predchoziho radku znak
'='? Jestli ano, pak za to rozdeleni muze MIME kodovani.
MIME kodovane zpravy muzes zpracovat a dekodovat (dokonce i vytvaret
a modifikovat) pomoci TMimeMess objektu.Karta do PCI - jak na ni v Delphi
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 6.10.2003 11:18:22
Ahoj,
Rumcajs wrote:
> Servus
> Popis: Karta do PCI slotu s ruznymi vystupy. K teto karte by mel byt
> ovladac, ktery v pocitaci vytvori virtualni COM port a veskere informace
> bude posilat na tuto kartu.
> Otazka: Vi nekdo, jakym zpusobem se resi vytvoreni ovladacu pod Delphi?
Primo v Delphi to nejde. Zkus kouknout na Win Driver od Jungo.
Vaclav Sazima
Synapse - citanie emailov
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.10.2003 11:12:21
> na precitanie emailov pouzivam komponetnu TPop3Send.
>
> var
> Pop3 : TPop3Send;
>
> v Pop3.FullResult mam niektore riadky rozdelene na 2.
> Neviete ako tomu predist?
Tak jak to server posle, tak to tam najdes.
Jak vypada to rozdeleni? Neni nahodou na konci predchoziho radku znak
'='? Jestli ano, pak za to rozdeleni muze MIME kodovani.
MIME kodovane zpravy muzes zpracovat a dekodovat (dokonce i vytvaret
a modifikovat) pomoci TMimeMess objektu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Pro uzivatele Kylixu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.10.2003 10:58:20
Haj hou!
Pokud vladnete anglictinou, pouzivate Kylix a chcete si udelat
obrazek jak to s Kylixem bude vypadat v budoucnu, pak vam mnohe
napovi nasledujici clanek:
http://www.infoworld.com/article/03/11/04/HNkylix_1.html
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Memproof a BDE
[*] Jan Nemec <yendikdelphi(zv)seznam(tec)cz> - 6.10.2003 10:42:19
Zdravim,
testuji aplikaci v Memproof. Ta aplikace pouziva paradoxi tabulky. Behem
nejakych operaci vyskace spousta Erroru, kazdy pak patrne zabira 10755B
pameti...
4044 Error $000003E8 10755 BDE Error : 10755
Call stock:
$000CAEF4 TBDEDataSet(zv)CloseBlob in DBTables.pas (4724)
$000ACDB3 TBlobField(zv)FreeBuffers in DB.pas (5931)
$000B4236 TDataSet(zv)FreeFieldBuffers in DB.pas (9168)
$000B365C TDataSet(zv)CloseCursor in DB.pas (8894)
$000C9676 TBDEDataSet(zv)CloseCursor in DBTables.pas (4117)
$000CE117 TDBDataSet(zv)CloseCursor in DBTables.pas (6141)
$000B351C TDataSet(zv)SetActive in DB.pas (8849)
$000B32DF TDataSet(zv)Close in DB.pas (8801)
...
Nejsem zadnej odbornik ani na memproof ani na databaze, tak se obracim na
vas :)
Je chyba v aplikaci? V BDE? Jinde? Kde? Prosim poradte...
Delphi6
Predem diky
Honza
Kupa shareware cez internet a danovy doklad
[*] Pesek Michal <michal.pesek(zv)mnul(tec)cz> - 6.10.2003 10:14:17
Hi,
nebo muzes vyuzit sluzeb jinych firem, kteri to nakoupi a pak preprodaji,
vcetne vsech nalezitosti.
Timto se treba zabyva v CR firma JIMAZ s.r.o. http://www.jimaz(tec)cz.
A tim budes mit asi po problemech...
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
http://www.totalcommander(tec)cz
Kupa shareware cez internet a danovy doklad
[*] Jaroslav Bucek <jaroslav.bucek-kd(zv)seznam(tec)cz> - 6.10.2003 10:04:16
From: "Jan Grman" <j.grman(zv)kmer.elf.stuba.sk>
> Mam uctovnicku ktora zakon pozna detailne (z danoveho uradu) a ona mi
> povedala ze potrebuje danovy doklad.
Slevenske zakony muzou byt jine, nez ceske. Tady ti opravdu staci
"elektronicky" doklad.
> Ako to teda uctujete priatelia, ked kolega tvrdi ze ziadny doklad
> nedostanem.
Doklad asi nedostanes, ale mel bys dostat odkaz na vyplneny doklad, ktery je
v podstate nahradou za uctenku v obchode. Bud si ho muzes vytisknout a
strcit do ... ;-) ucetnictvi a nebo, pokud je to u vas mozne, tak by melo
stacit ulozit si nekam ten odkaz a v pripade kontroly FU jim doklad ukazes.
Jarda
Karta do PCI - jak na ni v Delphi
[*] Rumcajs <konfera(zv)rumcajs(tec)com> - 6.10.2003 10:04:16
Servus
Popis: Karta do PCI slotu s ruznymi vystupy. K teto karte by mel byt
ovladac, ktery v pocitaci vytvori virtualni COM port a veskere informace
bude posilat na tuto kartu.
Otazka: Vi nekdo, jakym zpusobem se resi vytvoreni ovladacu pod Delphi?
Dik za kazdy kopanec spravnym smerem
Lukas "Rumcajs" Weiss
Kupa shareware cez internet a danovy doklad
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.10.2003 09:50:15
Puvodni zprava ze dne 6.11.2003:
> Tak sa spytam dodatocne - na com teda zalezi.
> Mam uctovnicku ktora zakon pozna detailne (z danoveho uradu) a ona mi
> povedala ze potrebuje danovy doklad.
No nezna, kdyz potrebuje danovy doklad. Z ciziny zadny danovy doklad
nedostane, protoze zadne DPH se do ciziny neplati. Z ciziny muze
dostat leda tak fakturu, pripadne kdyz to doveze pres celnici, muze
vyplnit JCD.
> Ako to teda uctujete priatelia, ked kolega tvrdi ze ziadny doklad
> nedostanem.
Ale dostanes fakturu, kterou si normalne vytisknes na tiskarne.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Kupa shareware cez internet a danovy doklad
[*] Jan Grman <j.grman(zv)kmer.elf.stuba.sk> - 6.10.2003 09:46:14
> Hlavne prosim nesir bludy. Nezalezi na zadnem FU ani argumentacnich
> schopnostech.
Tak sa spytam dodatocne - na com teda zalezi.
Mam uctovnicku ktora zakon pozna detailne (z danoveho uradu) a ona mi
povedala ze potrebuje danovy doklad.
Ako to teda uctujete priatelia, ked kolega tvrdi ze ziadny doklad
nedostanem.
Vdaka a pekny den.
JaNo
Synapse - citanie emailov
[*] dphi_forum(zv)proces.sk - 6.10.2003 09:16:13
Cava,
na precitanie emailov pouzivam komponetnu TPop3Send.
var
Pop3 : TPop3Send;
v Pop3.FullResult mam niektore riadky rozdelene na 2.
Neviete ako tomu predist?
Stano
Podivna chyba u DesignPackage v D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2003 03:51:52
From: "Matej K" <matej.k11(zv)seznam(tec)cz>
> Protoze to DevExpress s balickama opravdu prehani. Napocital jsem jich 61.
To neni tak hrozne.
> Kdyz je vetsi projekt, tak uz samo osobe to da zabrat, o vsechny ty balicky
> se starat.
Daleko horsi bude udrzovat nejakou zmatlaninu, kde nebude jasne jestli to
nefunguje diky chybe v puvodnim kodu nebo nejake sverazne uprave. Stejne tak
dalsi komponenty, ktere predpokladaji umisteni unitu v konkretnich baliccich
budou mit problemy.
Petr Vones
Podivna chyba u DesignPackage v D7
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 5.10.2003 23:17:33
Protoze to DevExpress s balickama opravdu prehani. Napocital jsem jich 61. Kdyz je vetsi projekt, tak
uz samo osobe to da zabrat, o vsechny ty balicky se starat. Kdyz je v tom navic 61! balicku od
samotnych DevExpress, tak to se me nedivte.
Zatim se mi podarilo zuzit problem a objevil jsem DesignOnly unitu "cxPCReg". Prakticky nic v ni neni.
par PropertyEditoru + 2 obrazky v DCR. Kdyz vynecham proceduru Register, tak stejne trva problem.
Nevim, co si o tom myslet. Zadna sekce initialization a pod. Napada me podivat se jake unity to
vyzaduje z RunOnly balicku...uvidim.
Matej
>> toho nekolik MB. Oni to maji ve vicero
>> baliccich, ale ja je sjednotil ....
>
>Proc prosimte?
>
>Petr Zahradnik, pocitacovy expert
Kupa shareware cez internet a danovy doklad
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.10.2003 21:49:27
Puvodni zprava ze dne 5.11.2003:
>> Hlavne prosim nesir bludy. Nezalezi na zadnem FU ani
>> argumentacnich schopnostech.
> Samozrejme, ze zakon hovori jasne, jenom se k nemu musis prokousat
> horou blbcu a uredniku ;-).
Spis jim nesmis dat prilezitost, aby si z tebe a zakonu delali prdelky
:)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
JVCL- instalace
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 5.10.2003 22:07:28
Zdar, mam dotazy ohledne instalace JVCL. Jak to je s trojkovou verzi? da se
normalne pouzivat, nebo je "for developers only"? Musim odebrat stavajici
JVCL+JCL pokud ho chci preinstalovat novym?
Brona
Podivna chyba u DesignPackage v D7
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.10.2003 21:33:25
Puvodni zprava ze dne 5.11.2003:
> Tak to je pekny prusvih. Jsou to kompomenty od DevExpress a je
> toho nekolik MB. Oni to maji ve vicero
> baliccich, ale ja je sjednotil ....
Proc prosimte?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Kupa shareware cez internet a danovy doklad
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 5.10.2003 21:45:26
> > Jenom doufam, ze to financaci zchroupou - fakrura z webu +
> "zaplatil
> > jsem z uctu". Asi zalezi na mistnim FU a Tvych argumentacnich
> > schopnostech ;-).
>
> Hlavne prosim nesir bludy. Nezalezi na zadnem FU ani
> argumentacnich schopnostech.
Samozrejme, ze zakon hovori jasne, jenom se k nemu musis prokousat horou
blbcu a uredniku ;-).
ME
Ing.Miroslav Evjak
KEN System v.o.s.
software development
mailto:me(zv)kensystem(tec)cz
http://www.kensystem(tec)cz
ICQ:313884739
+420 607 875748
Podivna chyba u DesignPackage v D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2003 21:31:25
From: "Matej K" <matej.k11(zv)seznam(tec)cz>
> Oni to maji ve vicero baliccich, ale ja je sjednotil ....
A to melo jaky duvod ? Nebude prave problem v tom zasahu.
Petr Vones
Podivna chyba u DesignPackage v D7
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 5.10.2003 21:17:23
Tak to je pekny prusvih. Jsou to kompomenty od DevExpress a je toho nekolik MB. Oni to maji ve vicero
baliccich, ale ja je sjednotil ....
>From: "Matej K" <matej.k11(zv)seznam(tec)cz>
>> Kdyz smazu dpl a nedavam kompilaci ale hned instalovat, tak se to povede,
>> ale pak uz zase stejna chyba pri opetovne kompilaci.
>
>Chyba je na 99% v tvem kodu. Pri nove kompilaci dojde k uvolneni design-time
>balicku a jeho opetovnemu nahrani. Takze se jedna patrne o nejakou chybu v
>kodu v initializaion/finalization sekci unitu.
>
>Petr Vones
>
>
>
>
Kupa shareware cez internet a danovy doklad
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.10.2003 21:11:23
Puvodni zprava ze dne 5.11.2003:
> Nakupoval jsem pres ShareIt, zadny danovy doklad, potazmo s razitkem
> necekej.
Razitko necekej ani v CR.
> Jenom doufam, ze to financaci zchroupou - fakrura z webu + "zaplatil
> jsem z uctu". Asi zalezi na mistnim FU a Tvych argumentacnich
> schopnostech ;-).
Hlavne prosim nesir bludy. Nezalezi na zadnem FU ani argumentacnich
schopnostech.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Kupa shareware cez internet a danovy doklad
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 5.10.2003 21:05:20
Nakupoval jsem pres ShareIt, zadny danovy doklad, potazmo s razitkem
necekej. Jenom doufam, ze to financaci zchroupou - fakrura z webu +
"zaplatil jsem z uctu". Asi zalezi na mistnim FU a Tvych argumentacnich
schopnostech ;-).
ME
Ing.Miroslav Evjak
KEN System v.o.s.
software development
mailto:me(zv)kensystem(tec)cz
http://www.kensystem(tec)cz
ICQ:313884739
+420 607 875748
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Grman
> Sent: Wednesday, November 05, 2003 5:33 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Kupa shareware cez internet a danovy doklad
>
>
> Ahoj,
>
> chcem kupit (zaregistrovat) komponenty (SvCom) a uctovnicka
> mi povedala ze nie je problem - len potrebuje danovy doklad.
> Nikdy som nieco podobne nerobil a registraciu tam ponukaju
> cez ShareIT! Ako to chodi? Ako preukazem ze som to kupil? Aky
> doklad pouzit v uctovnictve?
>
> Vdaka.
> JaNo
>
>
>
>
> ---
> P?ichozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.536 / Virova baze: 331 - datum vydani: 3.11.2003
>
>
Podivna chyba u DesignPackage v D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2003 20:33:18
From: "Matej K" <matej.k11(zv)seznam(tec)cz>
> Kdyz smazu dpl a nedavam kompilaci ale hned instalovat, tak se to povede,
> ale pak uz zase stejna chyba pri opetovne kompilaci.
Chyba je na 99% v tvem kodu. Pri nove kompilaci dojde k uvolneni design-time
balicku a jeho opetovnemu nahrani. Takze se jedna patrne o nejakou chybu v
kodu v initializaion/finalization sekci unitu.
Petr Vones
Podivna chyba u DesignPackage v D7
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 5.10.2003 20:27:17
Ahoj,
jsem z toho uz opravdu nestastny. :-(
Budiz "balicek1", ktery je jen RunTime a budiz k nemu i "balicek2", tery je jen DesignTime.
Bez problemu dokazu "2" zkompilovat, ale vzdy, kdyz ho chci nainstalovat do D7 (na WinXP), tak to hodi
chybu typu "Access violation at address 04A25E40 in module "1". Read of address 00000004." Jasne ze je
to topeni se ve strojovem kodu, ale ja jsem uz bzmocny a rikam si, jestli to 00004 neni nejak
podezrele a neda se z toho poznat, proc ten balicek "2" nejsem schopen nainstalovat. Kdyz smazu dpl a
nedavam kompilaci ale hned instalovat, tak se to povede, ale pak uz zase stejna chyba pri opetovne
kompilaci.
Co s tim ?
Moc prosim poradte.
Matej
Vykresleni prumerne hodnoty u TChart
[*] mad(zv)worldmail(tec)cz - 5.10.2003 19:37:14
Hezky den,
pouzivam komponentu TChart na vykresleni grafu. A potrebuji poradit, jak
vykreslit prumernou hodnotu zobrazenych dat. Data vkladam pomoci
series[0].AddXY(hodnotaX,hodnotaY) ...
Dekuji za radu,
Michal Adamek
.
Delphi 8 for .NET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2003 19:15:12
From: "Ivan Turcan" <iturcan(zv)drake.sk>
> To jako Borland si dal robit IDE do Delphi 8 u mrkvosoftu ? GUI v Delphi 8
> je skoro to same ako VisualBasic....
Spise je podobne C# Builderu :-)
Petr Vones
Delphi 8 for .NET
[*] Ivan Turcan <iturcan(zv)drake.sk> - 5.10.2003 18:55:11
Pozrel som si to video co je na borland.com.......
To jako Borland si dal robit IDE do Delphi 8 u mrkvosoftu ? GUI v Delphi 8
je skoro to same ako VisualBasic....
Ivan
> ----- Original Message -----
>
> > Je ta D7 stejna, nebo ma jiz nektere opravy pripadne vylepseni
> > (neco jako update pack)?
> > Pripadne ze ano, bude k dispozici i pro normalni uzivatele D7, nebo
> > je nutno zakoupit D8.
> >
>
> D7 bude nejspis takova, jaka se ted prodava, ale baleni neni jeste hotove.
> Update se pripravuje na zacatek 2004 a podle vseho by to mel byt opravdu
> UPDATE (pro registrovane uzivatele).
>
> BTW - jeste jsem nekde zahledl dotaz na dalsi verzi pro Win32 - rozhodne
by
> mela byt a rozhodne to bude stale jedna produktova rada - napr. z hlediska
> predplaceni assurance. Je naprosto zrejme ( i podle nezavislych pruzkumu -
> Gartner a spol.), ze patforma Win32 jeste par let pobezi. A co je to par
let
> ve veku pocitacu, ze - (par generaci??..).
>
> Se zvidavymi dotazy doporucuji navstevu Delphi konference - Jason Vokes
bude
> plny dojmu z BorCon a urcite rad odpovi i na otazky ohledne CLX, Kylixu
atd.
>
> J. Luhan
> Borland CZ
>
>
>
>
COM server ako servis
[*] Jan Grman <j.grman(zv)kmer.elf.stuba.sk> - 5.10.2003 18:25:09
Ahoj,
prosim o ukazku alebo linku na priklad ktory demostruje pozitie COM servera
ktory bezi ako SERVIS !
Klasicky COM server pouzitim TRemoteDataModule alebo TAutoObject urobim a
viem pouzit.
Viem urobit a pouzit Servis.
Ked to spojim, nefunguje to.
Ked program nebezi ako servis - funguje dobre.
Ak ho spustim ako servis - tak klient nevytvori COM objekt v uz spustenom
servise, ale vytvori novy klasicky proces. Neviem tomu zabranit.
Podobny problem: TComServer.OnLastRelease !
type TLastReleaseEvent = procedure(var Shutdown: Boolean) of object;
property OnLastRelease: TLastReleaseEvent;
Ak nastavim Shutdown := False;
je pekne ze COM server mi zostane bezat... lenze dalsi pokus klienta o
spojenie neprebehne na tomto beziacom procese ale vytvori novy proces.
Poradite ?
Vdaka.
Jano
Kupa shareware cez internet a danovy doklad
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.10.2003 18:15:08
Puvodni zprava ze dne 5.11.2003:
> chcem kupit (zaregistrovat) komponenty (SvCom) a uctovnicka mi
> povedala ze nie je problem - len potrebuje danovy doklad.
Z ciziny tezko danovy. At si nevymysli.
> Nikdy som nieco podobne nerobil a registraciu tam ponukaju cez
> ShareIT! Ako to chodi?
Zaplatis, dostanes.
> Ako preukazem ze som to kupil?
Fakturou a tim, ze ti to odeslo z karty nebo bankovniho uctu nebo ze
jsi nechal vystavit sek.
> Aky doklad pouzit v uctovnictve?
Fakturu. Kterou si vytisknes, az to zaplatis.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Hodnota editovaneho pole v dbgridu
[*] Robert Suska <suskar(zv)seznam(tec)cz> - 5.10.2003 18:05:07
Ahoj
Asi toto :)
NiecoTypuString := DBGrid1.SelectedField.AsString;
Robo
> Subject: Hodnota editovaneho pole v dbgridu
> Potrebovala bych zjistit hodnotu prave editovaneho pole v DBGRIDU. Nevite
nekdo jak na to?
> Lenka Donatova
Co si myslite o baliku komponent KaDAO ?
[*] Halen <halen(zv)seznam(tec)cz> - 5.10.2003 17:31:05
Ahoj, pouzivate nekdo tento balik pro pristup k DB? Nejake pro a proti?
Halen.OT: Kupa shareware cez internet a danovy doklad
[*] Jan Grman <j.grman(zv)kmer.elf.stuba.sk> - 5.10.2003 17:33:05
Ahoj,
chcem kupit (zaregistrovat) komponenty (SvCom) a uctovnicka mi povedala ze
nie je problem - len potrebuje danovy doklad.
Nikdy som nieco podobne nerobil a registraciu tam ponukaju cez ShareIT!
Ako to chodi?
Ako preukazem ze som to kupil? Aky doklad pouzit v uctovnictve?
Vdaka.
JaNo