Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Multithreading & Delphi5
[*] David Fajfr <davidfajfr(zv)seznam(tec)cz> - 9.8.2004 15:41:42
Ahoj,
mam nektere zakazniky, kteri mi hlasi, ze jim muj program napsany v D5
spadne hned pri spousteni s hlaskou "Faulting application..."
Zjistil jsem, ze u tech pocitacu je potreba vypnout Multithreading, nebo
program spoustet v rezimu kompatibility pro Windows 95-98.
Kde muze byt problem? Je potreba nejak nastavit kompilator, nebo jak toto
odstranit?
David
jak se dostanu na full text vyhledavani na www . d
[*] Otruba Vladimir ml. <otruba.ml(zv)papirna(tec)cz> - 9.8.2004 14:15:34
>Zdravim,
>nemuzu najit vyhledavani na strankach konference www. delphi. cd
http://www.delphi(tec)cz/hledani.asp
OT: jak se dostanu na full text vyhledavani na www
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 9.8.2004 13:23:29
Zdravim,
nemuzu najit vyhledavani na strankach konference www. delphi. cd
Uz to tam neni?
Robert
CLX MDI Child Form a pozicovani
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 9.8.2004 12:37:25
> mam CLX MDI Child Form a chci nastavit jeho Left a Top, ale kdyz to
> nastavim, tak se posune jen ta "bitmapa", ale ne form. Je to nejaky bug,
ale
Chyba je v originalnich jednotkach od Borlandu, pri volani SetGeometry
a GetGeometry v QControls se nebere ohled na to ze TForm v MDIchild modu
lezi jeste na dalsim Widgetu, a Geometry by se mela prave nastavit tomuto
Widgetu.
Muzes si to bud opravit sam, nebo na http://unvclx.sourceforge.net/ je
neoficialni
patch CLX jednotek borlandu, ktery toho opravuje daleko vic... (i kdyz s
timto patch
jsme my meli trochu problemy se stabilitou...)
Pavel Poles
SP2 pro XP - Delphi
[*] Petr Langer <langer(zv)xdom(tec)cz> - 9.8.2004 08:43:26
Mam instalovano cca 14 dni a D5 Ent. jede bez problemu.
Petr
----- Original Message -----
From: "Pavel Malinsky" <malinsky(zv)pmcom(tec)cz>
Subject: OT: SP2 pro XP - Delphi
> Ahoj,
>
> nedavno tu byla hlaska o tom, ze jste
> nekdo zkousel nainstalovat(byt betaverzi) SP2 pro XP
> a prestali chodit Delphi. Nasel se uz nejaky odvazlivec,
> ktery nainstaloval prave distribuovanou oficialni verzi
> SP2 pro XP ? Jestlize ano, funguje OK Delphi 5/6/7 ?
>
Mouse Roller & DBGrid
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 9.8.2004 07:53:14
Ja jsem to vyresil upravenim komponenty DBGrid.
unit DBGridEx;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids;
type
TDBGridEx = class(TDBGrid)
private
procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public
property VisibleColCount;
property VisibleRowCount;
end;
procedure Register;
implementation
{...........................................................................
...}
procedure Register;
begin
RegisterComponents('MyComponents', [TDBGridEx]);
end;
{...........................................................................
...}
procedure TDBGridEx.KeyDown(var Key: Word; Shift: TShiftState);
begin
if not Assigned(DataSource) or not Assigned(DataSource.DataSet) then Exit;
case Key of
33: begin //... page up
DataSource.DataSet.MoveBy(-VisibleRowCount);
Key := 0;
end;
34: begin //... page down
DataSource.DataSet.MoveBy(VisibleRowCount);
Key := 0;
end;
35: begin //... end
DataSource.DataSet.Last;
Key := 0;
end;
36: begin //... home
DataSource.DataSet.First;
Key := 0;
end;
38: begin //... up
DataSource.DataSet.Prior;
Key := 0;
end;
40: begin //... down
DataSource.DataSet.Next;
Key := 0;
end;
end;
inherited;
end;
{...........................................................................
...}
procedure TDBGridEx.WMMouseWheel(var Msg: TWMMouseWheel);
begin
if not Assigned(DataSource) or not Assigned(DataSource.DataSet) then Exit;
if Msg.WheelDelta < 0 then
DataSource.DataSet.MoveBy(3)
else
DataSource.DataSet.MoveBy(-3);
end;
{...........................................................................
...}
end.
----- Original Message -----
From: "Ladislav Novak" <lada.xt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, August 07, 2004 12:49 AM
Subject: Mouse Roller & DBGrid
> Zdravim vsechny,
>
> a prosim o pomoc...
> Jak zaridit, abych pomoci rolleru mysi v DBGridu pokracoval i na dalsi
> stranku zaznamu...? Asi trochu hodne laicky receno..
> Zkratka momentalne mam v DBGridu zobrazenou stranku zaznamu a rollerem
> se muzu pohybovat pouze v ramci zaznamu teto stranky..
> Jak plynule pokracovat na dalsi...?
>
> D6, FB 1.5
>
> Diky moc,
>
> Lada
>
>EmbeddedWB
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 9.8.2004 06:12:51
Zdar,
Rozchodil jsem pomoci EmbeddedWB vlastni popup menu pro browser, ale vzapeti
jsem narazil na problem, jak se dostat k datum, pro ktera bylo PM
vyvolano... textselection, image... nevite nekdo? na jejich strankach jsem
to nenasel :(
Brona
Zapnutie ActiveDesktop a nastavenie html plochy
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 8.8.2004 22:39:27
Ako mozem z Delphi zapnut ActiveDesktop a nastavit na plochu HTML subor
(najlepsie tak, aby pouzival CSS s relativnou adresou - ak sa da)CLX MediaPlayer
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 8.8.2004 22:27:25
Ahoj,
potreboval bych nejakou komponentu/unitu ktera funguje jako MediaPlayer
(treba ten co je v Delphi, ale i pod Linuxem), aby prehraval co nejvice
formatu nebo k tomu umela vyuzit nejak system.
A unity pro GIF, JPG, TIFF, apod. abych mohl v TImage je zobrazovat zna
nekdo. Nasel jsem nekolik, ale neco ac melo pod Linuxem nefungovalo a
ostatni jsou takove "neohrabane". Mate nekdo s necim osobni zkusenosti,
abych mel usetrene testovani?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
CLX MDI Child Form a pozicovani
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 8.8.2004 22:15:18
Ahoj,
mam CLX MDI Child Form a chci nastavit jeho Left a Top, ale kdyz to
nastavim, tak se posune jen ta "bitmapa", ale ne form. Je to nejaky bug, ale
nepodarilo se mi nikde najit, jak to opravit. Nevi nekdo, jak na to?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
Nastaveni site
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 8.8.2004 22:03:09
Zdar, potrebuji
1/zjistit seznam sitovych rozhrani do internetu (+najit vychozi) + informace
(ip, maska, gateway,dns) a zpusob, jak toto zmenit.
2/ Na internetovem rozhrani vypnout sdileni souboru a zapnout firewall
(Win2000,WinXP)
3/ nainstalovat certifikat (.crt)
vubec netusim, kde zacit, muzete me nekdo nakopnout???
Brona
Delphi 7.1 Update - Database supplemental
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.8.2004 17:32:36
Dalsi update na Delphi 7 update:
Public Beta: Delphi 7.1 Update - Database supplemental
http://bdn.borland.com/article/0,1410,32492,00.html
Petr Vones
TDHTMLEdit
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 8.8.2004 16:36:29
> From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>
> > Zdar, mate nekdo zkusenosti s TDHTMLEdit komponentou? melo by
> to byl nejake
> > ActiveX od Microsoftu (melo by to byt od MSIE 5), ale nemohu to najit,
> > nevim, jak to naistalovat, v seznamu ActiveX to nemam :(
>
> Tuhle komponentu pokud vim pouziva jak Visual Studio tak Delphi 8
> jako HTML
> designer. Obe prostredi prave z toho duvodu vyzaduji instalaci
> IE6 SP1, takze
> pouzitelna verze bude predpokladam az ta.
>
> Petr Vones
Jak naschval jsem ho nasel, jen jsem to sem napsal... DTMLEdit existuje,
jako soucast MSIE5, da se naimportovat do delphi a pracuje se se standartnim
DOM rozhrani s designMode=on.
Brona
TDHTMLEdit
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.8.2004 16:06:26
From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>
> Zdar, mate nekdo zkusenosti s TDHTMLEdit komponentou? melo by to byl nejake
> ActiveX od Microsoftu (melo by to byt od MSIE 5), ale nemohu to najit,
> nevim, jak to naistalovat, v seznamu ActiveX to nemam :(
Tuhle komponentu pokud vim pouziva jak Visual Studio tak Delphi 8 jako HTML
designer. Obe prostredi prave z toho duvodu vyzaduji instalaci IE6 SP1, takze
pouzitelna verze bude predpokladam az ta.
Petr Vones
TDHTMLEdit
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 8.8.2004 15:58:25
Zdar, mate nekdo zkusenosti s TDHTMLEdit komponentou? melo by to byl nejake
ActiveX od Microsoftu (melo by to byt od MSIE 5), ale nemohu to najit,
nevim, jak to naistalovat, v seznamu ActiveX to nemam :(
Brona
Zobrazeni/aktualizace Applicat ion.Hint pri delsim
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.8.2004 14:34:18
From: "Milan Tomes" <delphi(zv)haida(tec)cz>
> zpracovani te zpravy. Jenze v tomhle a podobnych pripadech se musim
> priklonit k tomu co zde jiz asi tisickrat napsal P. Vones: "Spatny navrh
> aplikace - tohle musi bezet ve zvlastnim threadu" :)))
A ja to pripomenu po tisic jedne ;-) Vetsina pokusu o reseni bez dalsiho
threadu vede jen k problemum, ktere se navic mohou projevit jen za urcitych
okolnosti.
Petr Vones
Chybna interpretace ceskych znaku TRichEditem v XP
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 8.8.2004 09:03:55
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ing. Jiri Sokol
[...]
> procedure OpravaRichEdit(Sender: TObject);
> var
> tmp:integer;
> begin
> if not(Sender is TRichEdit) then exit;
> tmp:=SendMessage((Sender as TRichEdit).Handle,
> EM_GETLANGOPTIONS, 0, 0);
> tmp:=tmp and not(IMF_AUTOFONT);
> SendMessage((Sender as TRichEdit).Handle,
> EM_SETLANGOPTIONS, 0, tmp);
> end;
Ahoj,
jeste si dovolim doplnit, ze kdo pouzivate RxRichEdit je mozne
toto vyresit nastaveni property LangOptions, kde lze nastavit na
False atribut rlAutoFont (ktery je implicitne True) . Provede to totez
jako nize uvedeny priklad.
S pozdravem a pranim prijemneho dne
============================================
| Pavel Malinsky - Mcom | malinsky(zv)pmcom(tec)cz|
|==========================================|
| vyvoj software, poradentsvi a servis IT |
|========================================= |
| Tel: 495 533 442 | GSM: 602 652 203 |
============================================
| ICQ: 322015967 |
==================
OT: SP2 pro XP - Delphi
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 8.8.2004 08:53:54
Ahoj,
nedavno tu byla hlaska o tom, ze jste
nekdo zkousel nainstalovat(byt betaverzi) SP2 pro XP
a prestali chodit Delphi. Nasel se uz nejaky odvazlivec,
ktery nainstaloval prave distribuovanou oficialni verzi
SP2 pro XP ? Jestlize ano, funguje OK Delphi 5/6/7 ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Chybna interpretace ceskych znaku TRichEditem v XP
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 7.8.2004 21:21:04
Ahoj vsem!
Pokud nekoho trapi problem - viz %subjekt%, tak jsem s pomoci informace od "Pavel Malinsky <malinsky(zv)pmcom(tec)cz>", ktery mi poskytl odkaz na informaci z:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/richedit/richeditcontrols/richeditcontrolreference/richeditmessages/em_setlangoptions.asp
dal dohromady ten problem s RichEditem a ceskymi znaky. Staci shodit druhy bit v jedne zprave RichEditu - konkretne EM_SETLANGOPTIONS a jeho "flag" IMF_AUTOFONT.
Takhle by to melo (doufam) vypadat:
uses %uses%, RichEdit;
procedure OpravaRichEdit(Sender: TObject);
var
tmp:integer;
begin
if not(Sender is TRichEdit) then exit;
tmp:=SendMessage((Sender as TRichEdit).Handle, EM_GETLANGOPTIONS, 0, 0);
tmp:=tmp and not(IMF_AUTOFONT);
SendMessage((Sender as TRichEdit).Handle, EM_SETLANGOPTIONS, 0, tmp);
end;
Tohle jsem zkousel a funguje to bezproblemu.
Jirka
P.S.:Kdyby mel nekdo nejaky problem, kontaktujte me. Treba soukro.
P.S.II: Pokud byste nekdo chteli zdroje k prikladu, ktery jsem pro tento priklad udelal, poslu na pozadani (pochopitelne pres soukro mail -> mimo konferenci)
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
Mouse Roller & DBGrid
[*] Ladislav Novak <lada.xt(zv)volny(tec)cz> - 7.8.2004 00:49:47
Zdravim vsechny,
a prosim o pomoc...
Jak zaridit, abych pomoci rolleru mysi v DBGridu pokracoval i na dalsi
stranku zaznamu...? Asi trochu hodne laicky receno..
Zkratka momentalne mam v DBGridu zobrazenou stranku zaznamu a rollerem
se muzu pohybovat pouze v ramci zaznamu teto stranky..
Jak plynule pokracovat na dalsi...?
D6, FB 1.5
Diky moc,
Lada
co pouzivate na tl. zostavy
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 6.8.2004 19:08:23
Ja pouzivam FreeReport http://fast-report.com/en/fr23.php je free. Sice je
urcen pro Delphi 2/3/4/5/6, ale rozchodil jsem ho i pod D7. V pripade, ze se
Ti ho nepovede prelozit pod D7, napis a ja ti ho zaslu. Sestavy lze mit v
samostatnych souborech a pak ti nezvetsuji exe.
Petr Kejval
> co pouzivate na tlacove zostavy ? jednoduche zostavy , najcastejsie
vystupy
> s databaz + nejake okomentovanie, niekedy je potreba do jednej zostavy dat
> vystup z dvoch uplne odlisnych datasetou. Nieco male, a aby to bola sucast
> D7 alebo free. Teraz pouzivam QUICKREPORT ale niektore veci na nom mi
vadia
> a zda sa mi ze exe je dost velke. Napr len jednoduchy programik s jednym
> formom a quick reportom s jednym labelom / je to len na skusku / ma exe 1
> MB.co pouzivate na tl. zostavy
[*] mato <mato.tino(zv)inmail.sk> - 6.8.2004 16:00:07
co pouzivate na tlacove zostavy ? jednoduche zostavy , najcastejsie vystupy
s databaz + nejake okomentovanie, niekedy je potreba do jednej zostavy dat
vystup z dvoch uplne odlisnych datasetou. Nieco male, a aby to bola sucast
D7 alebo free. Teraz pouzivam QUICKREPORT ale niektore veci na nom mi vadia
a zda sa mi ze exe je dost velke. Napr len jednoduchy programik s jednym
formom a quick reportom s jednym labelom / je to len na skusku / ma exe 1
MB.
Chybna interpretace ceskych znaku TRichEditem v XP
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 6.8.2004 14:56:02
> Datum: 06.08.2004 14:28:36
>
> Pri zobrazeni textoveho souboru v TRicheditu ve Win XP jsou chybne zobrazeny
> nektere znaky ceske abecedy napr. e s hackem. Ve win98 podobne problemy nebyly.
> Prosim o radu cim to muze byt.
>
> Predem dekuji
> Lenka Donatova
Ahoj!
Aniz bych se snazil byt hnusny, tak se to tady resilo uz mockrat - v historii konference to uz musi byt!!! Asi jsi se nekoukla, ze? Ja to delam taky malo...
Ja jsem tady nahodil reseni, ktere problem obejde. Soukro jsem dostal tip na reseni, ktere by to snad melo uplne odstranit, ale ten si ted nevybavim. Mrknu se doma a odpoved, pokud to bude jeste aktualni, dam to tady v pondeli, aby se to dalo v historii konference najit ;o)
Prisel jsem nato, ze staci navesit se na udalost OnChange toho RichEditu a v teto udalosti vzdy zmenit rez pisma.
Pr.: Predpokladam, ze mas nastaven rez pisma u toho RichEditu na "EastEurope_Charset" (nebo tak nejak, snad jsem to moc nezmrsil). Pak:
procedure TFrom1.RichEditOnChange(Sender:TObject);
begin
with (Sender as TRichEdit) do
begin
Font.Charset:=Default_Charset;
Font.Charset:=EastEurope_Charset;
end;//with (Sender as TRichEdit) do
end;
Tohle by melo stacit. Aspon do pondelka, kdy snad najdu to reseni, ktery pry tenhle problem odstrani uplne. Ja jsem nejak na jeho vyzkouseni jeste nemel cas. V tuhle chvili proste RichEdity nepouzivam, ale urcite nekdy budu, takze se mi to bude hodit.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
SQL syntaxe BDE
[*] Ladislav Cholinsky <lcholinsky(zv)usu(tec)cz> - 6.8.2004 14:36:00
Dobry den,
potrebuji radu, jak restrukturalizovat tabulky za behu programu.
To znamena funkce, ktere nabizi DB Desktop (menu polozka RESTRUCTURE), tak
udelat budto pomoci SQL prikazu, ci pomoci nejake (nejlepe free) komponenty.
Napriklad sloupec se da pridat takto:
alter table Adresa add column Trvala Boolean;
Jenze kdyz chci, aby default honota byla na true, tak to uz v BDE helpu
nikde nevystopuju.
Pritom kouzelne sluvko BDE SQL editor zobrazuje modre (tudiz takovy keyword
existuje), ale syntax jsem nevypatral :(((
Btw, na internetu jsem nasel komponentu TRestructure ( (C) SEDLAN) , ktera
tohle umi, ale je to jen trial verze a pri kazdem spusteni Delpi (resp.
projektu) otravuje hlaskou o registraci ... )
Chtel bych co nejjednodussi reseni.
Moc diky za kazdou radu,
s pozdravem
Mgr. Ladislav Cholinsky
tel: 737 301 735
e-mail: cholinsky(zv)seznam(tec)cz
Chybna interpretace ceskych znaku TRichEditem v XP
[*] Lenka Donatova <lenkad(zv)nemocnice-vs(tec)cz> - 6.8.2004 14:21:58
Pri zobrazeni textoveho souboru v TRicheditu ve Win XP jsou chybne zobrazeny
nektere znaky ceske abecedy napr. e s hackem. Ve win98 podobne problemy nebyly.
Prosim o radu cim to muze byt.
Predem dekuji
Lenka Donatova
OT: Pristup k Excelovym tabulkam v linuxu
[*] pilifs <pilifs(zv)seznam(tec)cz> - 6.8.2004 12:09:48
Zdravim ve spolek,
potrebuju pracovat na linuxu s XLS. Existuji nejake drivery(ODBC) pro
pristup k excelu.
Ne google se mi nic nepovedlo najit :-((
Diky
DS Pack - zmena rychlosti prehravani videa
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 6.8.2004 12:07:48
Ahoj,
nevite nekdo, zda jde nejak menit rychlost prehravani videa (a taky
ruznou rychlosti couvat)?
Mejte se
Vaclav Sazima
Firebird a Invalid Statement Handle
[*] Michal Hlavac <hlavki(zv)medium13.sk> - 6.8.2004 11:33:42
Zdravim,
pouzivam firebird 1.5.1 ZEOSDBO 6.15
na query ma nastavene RequestLive := true;
ked zavolam pocas behu: MyDataSet.Delete;
zaznam sa zmaze v pohode...
Mam nastaveny AutoCommit := true;
Mozem medzi tym pridavat zaznami, vsetko ide... ale pri zavreti
aplikacie to spadne... ked ten delete nezavolam, tak sa to zavre OK...
tak pri zavreti ZConnection dostanem tuto chyby:
Invalid Statement Handle. Error Code -901
Unsuccessfull execution caused by system error that does not preclude
successful execution of subsequent statements...
neviete, kde moze byt problem???
dik, miso
TWebBrowser loadfromstream
[*] Pavel Benacek <pavel.benacek(zv)cegedim(tec)com> - 6.8.2004 10:35:37
On Thu, 5 Aug 2004 21:48:27 +0200, Bronislav Klucka
<bronislav.klucka(zv)pro2-soft.com> wrote:
> Zdar,
> potreboval bych zobrazit HTML stranku, kterou mam pouze ve stringu (resp.
> streamu), jak donutit TWebBrowser, aby mi toto vyrendroval?
>
> Brona
>
uses ActiveX;
procedure WBLoadFromStream(WebBrowser: TWebBrowser; Stream: TStream);
var
PersistStreamInit: IPersistStreamInit;
StreamAdapter: IStream;
MemoryStream: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
repet
Application.ProcessMessages;
Sleep(0);
until (WebBrowser.ReadyState = READYSTATE_COMPLETE);
if WebBrowser.Document.QueryInterface(IPersistStreamInit,
PersistStreamInit) = S_OK then
begin
if PersistStreamInit.InitNew = S_OK then
begin
MemoryStream := TMemoryStream.Create;
try
MemoryStream.CopyFrom(Stream, 0);
MemoryStream.Position := 0;
except
MemoryStream.Free;
raise;
end;
StreamAdapter := TStreamAdapter.Create(MemoryStream, soOwned);
PersistStreamInit.Load(StreamAdapter);
end;
end;
end;
Zdroj: 1001 TIPU A TRIKU PRO DELPHI
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 6.8.2004 10:33:35
dik, posielam v prilohe
> Jasne, mozem sa na to mrknut
>
> mato wrote:
>
> > neviem myslym ze to robi automaticky. Ak dam na quick report rucne
> > komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
> > novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny
projekt,
> > jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to
poslat
> > na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.
> >
> >
> >
> >>OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
> >>
> >>QRSestava:= TQRSestava.Create(Application);
> >>
> >>
> >>mato wrote:
> >>
> >>>mam dalsii unit - form a na nom komponentu quickreport
> >>>
> >>>
> >>>
> >>>
> >>>>Zdravim,
> >>>>Predpokladam, ze asi nemas vytvorenu tu zostavu.
Najom v prahe
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 6.8.2004 10:35:36
www.spolubydlici(tec)cz
P.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Stasko Peter
Sent: Friday, August 06, 2004 10:20 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Najom v prahe
Ahojte *,
Hladam prenajom v Prahe dost surne.
Pls, piste na sukromny mail, prip volajte na 608 664 159 .
Diq..
ADMIN: Najom v prahe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.8.2004 10:45:38
Puvodni zprava ze dne 6.8.2004:
> www.spolubydlici(tec)cz
Tohle tu nema co delat. Quotovat neumis, jak se divam do historie, ale
v posilani ptakovin do konference jsi velice rychly a odhodlany.
Durazne napomenuti a okamzite si precti pravidla.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ADMIN: Najom v prahe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.8.2004 10:31:34
Puvodni zprava ze dne 6.8.2004:
> Hladam prenajom v Prahe dost surne.
> Pls, piste na sukromny mail, prip volajte na 608 664 159 .
Co to je za bordel tohle? To tu nema co delat, durazne napomenuti!
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Najom v prahe
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 6.8.2004 10:19:33
Ahojte *,
Hladam prenajom v Prahe dost surne.
Pls, piste na sukromny mail, prip volajte na 608 664 159 .
Diq..
Asynchronni komunikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.8.2004 10:17:32
> Proc pri kazdem spusteni mi to vraci odlisne udaje? Cekal bych, ze na
> konzoli se mi zobrazi prompt a na dalsich radcich ocekavany text
>
> Proc se mi zobrazi i odeslane znaky do bufferu. Pritom paramtery
> prenosu jsou nastaveny dobre, kontrolovano na terminalu.
Co odesilas, cpu do serioveho portu, a co ze serioveho portu dostanu,
to prectes. Tedy chybu hledej v tom tvem bufferu, ja s timhle vubec
nic nenadelam!
Tvuj buffer patrne dela echo vsech prichozich bytu dat. To aby kdyz
si to pustis v nejakem terminalu, abys videl co pises. Bud tvuj
buffer donut, aby to echo nedelal, nebo s tim musis v programu
pocitat!
Tvuj soucasny kod s tim nepocita, a proto je zmateny... Do ocekavane
odpovedi bufferu se ti totiz mota echo tebou odeslanych dat, a tak se
logicky rozsynchronizujes... ty ocekavas, zes precel odpoved od
bufferu, a zatim jsi precetl jen svoji vlastni ozvenu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Asynchronni komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 6.8.2004 10:15:31
To, ze se Ti tam neobjevi ten terminator je jednoduche - Synaser stejne tak
jako Synapse tento znak odfiltruje... Ja to delam takto - pokud to neskonci
na timeout, tak si k nactenemu stringu pridam ten terminator (dalsi moje
rutiny s timto znakem pocitaji)...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavel Hauptman
> Sent: Friday, August 06, 2004 9:37 AM
>
> com.SendString(#13#10);
> write(com.RecvTerminated(1000, '>')); // ocekavam prompt BF>
> com.SendString('h' + #13#10);
> write(com.Recvstring(1000)); // ocekavam nekolik radku textu
>
> Tak jsem to zkusil. Vysledek je tento:
> 1. spusteni - na konzoli se objevi prazdny radek CRLF, na druhem je "BF"Zobrazeni/aktualizace Applicat ion.Hint pri delsim
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 6.8.2004 10:11:30
No SendMessage je v podstate zavolani WndProc a ceka se na dokonceni
zpracovani te zpravy. Jenze v tomhle a podobnych pripadech se musim
priklonit k tomu co zde jiz asi tisickrat napsal P. Vones: "Spatny navrh
aplikace - tohle musi bezet ve zvlastnim threadu" :)))
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ing. Jiri Sokol
> Sent: Friday, August 06, 2004 9:27 AM
>
> zpusob? Pletu se? - ale SendMessage posle zpravu a ceka na jeji
> ukonceni/zpracovani - je to resenim meho problemu? Zpracuje se ta
> zprava i kdyz jeste nedobehl ten vypocet? Budou se zpracovavat i
QR a pridanie komponnety za behu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 6.8.2004 10:07:29
Jasne, mozem sa na to mrknut
mato wrote:
> neviem myslym ze to robi automaticky. Ak dam na quick report rucne
> komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
> novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny projekt,
> jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to poslat
> na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.
>
>
>
>>OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
>>
>>QRSestava:= TQRSestava.Create(Application);
>>
>>
>>mato wrote:
>>
>>>mam dalsii unit - form a na nom komponentu quickreport
>>>
>>>
>>>
>>>
>>>>Zdravim,
>>>>Predpokladam, ze asi nemas vytvorenu tu zostavu.Asynchronni komunikace
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 6.8.2004 09:37:26
com.SendString(#13#10);
write(com.RecvTerminated(1000, '>')); // ocekavam prompt BF>
com.SendString('h' + #13#10);
write(com.Recvstring(1000)); // ocekavam nekolik radku textu
Tak jsem to zkusil. Vysledek je tento:
1. spusteni - na konzoli se objevi prazdny radek CRLF, na druhem je "BF"
2. spusteni - na konzoli se objevi prazdny radek CRLF, na dalsich pak text,
ktery ocekavam.
Proc pri kazdem spusteni mi to vraci odlisne udaje? Cekal bych, ze na
konzoli se mi zobrazi prompt a na dalsich radcich ocekavany text
Proc se mi zobrazi i odeslane znaky do bufferu. Pritom paramtery prenosu
jsou nastaveny dobre, kontrolovano na terminalu.
PH.
> Zkus nejdriv poslat skutecne CRLF, pak si pomoci RecvTerminated
> pockej az ti prijde zpet ten prompt, a pak pomoci RecvString cti
> jednotlive radky menu.
>
>
> --
> Lukas Gebauer.
Zobrazeni/aktualizace Applicat ion.Hint pri delsim
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 6.8.2004 09:27:24
> Od: Milan Tomes <delphi(zv)haida(tec)cz>
> Datum: 06.08.2004 09:11:47
>
> IMHO si trochu odporujes - preci ProcessMessages zpusobuje prave ono
> zpracovani fronty zprav. Pokud musis tuhle metodu volat, tak mas
> zaneprazdneny hlavni thread aplikace a tudiz se v ten okamzik fronta zprav
> nezpracovava. Kdyz posles nejakou dalsi zpravu, tak se opet jen zaradi do
> fronty a nezpracuje se... Pokud potrebujes reagovat okamzite, tak jedine
> reseni je zavolat primo nejakou metodu, ktera se postara o vykresleni nebo
> treba poslat zpravu pomoci SendMessage (ta zavola primo WndProc ciloveho
> okna a vlastne potom ceka na ukonceni zpracovani tehle zpravy)...
>
> S pozdravem
>
> Milan Tomes
Ahoj!
Jsem fakticky trotl. Ja jsem si to uvedomil po odeslani tohohle dotazu, ze zpravou to asi nepujde... No ale je teda nejaky zpusob? Pletu se? - ale SendMessage posle zpravu a ceka na jeji ukonceni/zpracovani - je to resenim meho problemu? Zpracuje se ta zprava i kdyz jeste nedobehl ten vypocet? Budou se zpracovavat i dalsi zpravy a nebo jen tahle? (to je totiz muj problem, proc nechci a nemuzu delat Application.ProcessMessage) Pokud ano, jakou zpravu bych mel poslat? Mam problem, ze ja presne nevim, v kterem okne se bude Application.Hint zobrazovat a tak by bylo reseni to poslat primo aplikaci, at si to ridi sama...
Pozn: Uff, tohle jsem nepsal, pouze se mi to nechce prepisovat, ale asi mi nic jineho nezbyde, jenze to stoji cas a ten mi desne chybi!!!
Diky vsem za napady jak to resit!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 6.8.2004 09:21:23
neviem myslym ze to robi automaticky. Ak dam na quick report rucne
komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny projekt,
jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to poslat
na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.> OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
>
> QRSestava:= TQRSestava.Create(Application);
>
> mato wrote:
> > mam dalsii unit - form a na nom komponentu quickreport
> >
> >
> >
> >>Zdravim,
> >>Predpokladam, ze asi nemas vytvorenu tu zostavu.
>
Zobrazeni/aktualizace Applicat ion.Hint pri delsim
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 6.8.2004 09:05:21
IMHO si trochu odporujes - preci ProcessMessages zpusobuje prave ono
zpracovani fronty zprav. Pokud musis tuhle metodu volat, tak mas
zaneprazdneny hlavni thread aplikace a tudiz se v ten okamzik fronta zprav
nezpracovava. Kdyz posles nejakou dalsi zpravu, tak se opet jen zaradi do
fronty a nezpracuje se... Pokud potrebujes reagovat okamzite, tak jedine
reseni je zavolat primo nejakou metodu, ktera se postara o vykresleni nebo
treba poslat zpravu pomoci SendMessage (ta zavola primo WndProc ciloveho
okna a vlastne potom ceka na ukonceni zpracovani tehle zpravy)...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ing. Jiri Sokol
> Sent: Friday, August 06, 2004 8:37 AM
>
> Muzete mi poradit jakou zpravu mam zaslat aplikaci, aby se ten
> Hint okamzite aktualizoval. Do ted to je reseno tak, ze po
> aktualizaci Application.Hint je provedeno
> Application.ProcessMessage, ale to zpucobuje jine problemy a tak
TWebBrowser loadfromstream
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.8.2004 08:55:20
> potreboval bych zobrazit HTML stranku, kterou mam pouze ve stringu
> (resp. streamu), jak donutit TWebBrowser, aby mi toto vyrendroval?
Zrovna vcera vecer jsem to programoval. ;-)
WebBrowser.document musi pred volanim existovat! Ten objekt dokumentu
se totiz vytvari az pote, co se neco zobrazi. Toho docilis treba pres
webbrowser.navigate('about:blank'). Jo, a asi to bude chtit pridat do
uses unitu ActiveX!)
procedure WBLoadHTML(WebBrowser: TWebBrowser; Filename: string) ;
var
ms: TMemoryStream;
FileStream: TFileStream;
Begin
if Assigned(WebBrowser.Document) then
begin
FileStream := TFileStream.Create(FileName, fmOpenRead + fmShareDenyWrite);
try
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(FileStream)) ;
finally
FileStream.Free;
end;
end;
end;
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zobrazeni/aktualizace Applicat ion.Hint pri delsim
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 6.8.2004 08:37:17
Ahoj panove!
Mam zrejme primitivni dotaz, ale nevim si s nim uz delsi dobu rady - potrebuju nakopnout.
Mam proceduru, ze ktere bych chtel zobrazovat nejaky text - delam to pres Application.Hint.
Muzete mi poradit jakou zpravu mam zaslat aplikaci, aby se ten Hint okamzite aktualizoval. Do ted to je reseno tak, ze po aktualizaci Application.Hint je provedeno Application.ProcessMessage, ale to zpucobuje jine problemy a tak bych tohle chtel odbourat.
Diky za nakopnuti.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.0
programator amater
QR a pridanie komponnety za behu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 6.8.2004 08:43:18
OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
QRSestava:= TQRSestava.Create(Application);
mato wrote:
> mam dalsii unit - form a na nom komponentu quickreport
>
>
>
>>Zdravim,
>>Predpokladam, ze asi nemas vytvorenu tu zostavu.
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 6.8.2004 06:25:07
mam dalsii unit - form a na nom komponentu quickreport
> Zdravim,
> Predpokladam, ze asi nemas vytvorenu tu zostavu.
>
> mato wrote:
> > stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
> > komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy
test
> > priklad. form , na nom button po stlaceni aby urobil qr a nan da label
> >
> >>dd,
> >>pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
> >>
> >>with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
> >>do
> >> begin
> >> Alignment:= taCenter;
> >> Left:= fLeft;
> >> Top:= 0;
> >> Width:= fWidth;
> >> Height:= 23;
> >> AutoSize:= false;
> >> AutoStretch:= true;
> >> WordWrap:= false;
> >> Font.Size:= 10;
> >> Font.Style:= [];
> >> Frame.DrawBottom:= True;
> >> Frame.DrawLeft:= True;
> >> Frame.DrawTop:= True;
> >> end;
> >>
> >>Ladap
> >>
> >>nefunguje ani jeden s kodou, kde robim chybu ?
> >>Ked spustim, vypisuje chybu Acces violation.....
> >>mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
> >>a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
>
Rtf2HTML, HTML2Rtf
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.8.2004 23:00:34
Zdar,
nemate nekdo free nastroj (zdrojak, dll, ne exac!) pro prevod mezi HTML a
RTF obema smery?
Brona
TVirtualStringTree - nastaveni na radek
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.8.2004 22:08:29
> > hmm, tak to bohuzel neni presne ono - fokus to nastavi, ale
> "nevysviti" -
> > potreboval bych, aby se to chovalo, jako kdyz kliknu na vetev (mam
> nastaveno
> > vysviceni celeho radku). Tohle jen oramuje prvni sloupec a
> predchozi radek
> > zustane vysviceny.
> >
VirtualTreeView.FocusedNode:=node;
VirtualTreeView.Selected[node]:=true;
VirtualTreeView.InvalidateNode(node);
100% funguje, zrovna to pouzivam :)
Brona
TWebBrowser loadfromstream
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.8.2004 21:48:27
Zdar,
potreboval bych zobrazit HTML stranku, kterou mam pouze ve stringu (resp.
streamu), jak donutit TWebBrowser, aby mi toto vyrendroval?
Brona
Asynchronni komunikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.8.2004 15:58:02
> Aha, tak jsem se spatne vyjadril. Muj seriovy buffer komunikuje v
> asynchronnim rezimu. Jen tak pro zajimavost, zasilam kod, kterym
> zkousim komunikovat s tim bufferem. Nejdriv poslu CRLF, bratit by mel
> "BF>". Pak poslu znah "H" a CRLF a melo by se vratit nekol radku (menu
> pro nastaveni bf.) Jenze kdyz ten samy kod pustim nekolikrat za sebou,
> dostanu pokazde jinou odpoved: 1. spusteni - bf vrati pouze znak H 2.
> spusteni - vrati spravne znaky, tak ja je ocekavam 3. spusteni - opet
> bf vrati pouze znak H 4. spusteni - vrati jen cast ocekavaneho textu.
No, kod ktery jsi poslal dela neco jineho nez tady pises... tanm
totiz rovnou posilas "h" a CRLF a pak ctes byte po bytu co ti to
vratilo.
Zkus nejdriv poslat skutecne CRLF, pak si pomoci RecvTerminated
pockej az ti prijde zpet ten prompt, a pak pomoci RecvString cti
jednotlive radky menu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.QR a pridanie komponnety za behu
[*] Martin ASajbik <cajbik(zv)sct.sk> - 5.8.2004 16:02:03
Zdravim,
Predpokladam, ze asi nemas vytvorenu tu zostavu.
mato wrote:
> stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
> komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy test
> priklad. form , na nom button po stlaceni aby urobil qr a nan da label
>
>>dd,
>>pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
>>
>>with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
>>do
>> begin
>> Alignment:= taCenter;
>> Left:= fLeft;
>> Top:= 0;
>> Width:= fWidth;
>> Height:= 23;
>> AutoSize:= false;
>> AutoStretch:= true;
>> WordWrap:= false;
>> Font.Size:= 10;
>> Font.Style:= [];
>> Frame.DrawBottom:= True;
>> Frame.DrawLeft:= True;
>> Frame.DrawTop:= True;
>> end;
>>
>>Ladap
>>
>>nefunguje ani jeden s kodou, kde robim chybu ?
>>Ked spustim, vypisuje chybu Acces violation.....
>>mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
>>a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
TVirtualStringTree - nastaveni na radek
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 5.8.2004 15:21:58
A co presunot focus na ten prvek? Neni to vysviceno jen, kdyz je Tree
aktivni?
> hmm, tak to bohuzel neni presne ono - fokus to nastavi, ale "nevysviti" -
> potreboval bych, aby se to chovalo, jako kdyz kliknu na vetev (mam
nastaveno
> vysviceni celeho radku). Tohle jen oramuje prvni sloupec a predchozi radek
> zustane vysviceny.
>Asynchronni komunikace
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 5.8.2004 14:33:54
Aha, tak jsem se spatne vyjadril. Muj seriovy buffer komunikuje v
asynchronnim rezimu. Jen tak pro zajimavost, zasilam kod, kterym zkousim
komunikovat s tim bufferem. Nejdriv poslu CRLF, bratit by mel "BF>". Pak
poslu znah "H" a CRLF a melo by se vratit nekol radku (menu pro nastaveni
bf.) Jenze kdyz ten samy kod pustim nekolikrat za sebou, dostanu pokazde
jinou odpoved:
1. spusteni - bf vrati pouze znak H
2. spusteni - vrati spravne znaky, tak ja je ocekavam
3. spusteni - opet bf vrati pouze znak H
4. spusteni - vrati jen cast ocekavaneho textu.
begin
com := TBlockSerial.Create;
com.RaiseExcept := false;
try
com.Connect('COM1');
com.Config(9600, 8, 'N', 0, false, true);
com.SendString('h' + #13#10);
com.Flush;
while com.LastError = 0 do begin
write(char(com.RecvByte(1000)));
end;
com.Flush;
com.Free;
except
on Exception do com.Free;
end;
end;
> ??? proc by Synaser mel vracet nesmysly kvuli tomu, ze se Synaserem
> komunikuje tvuj program synchronne? (neplet si synchronnost Synaseru
> vuci aplikaci se synchronnim/asynchronnim rezimem serioveho portu...)
>
> --
> Lukas Gebauer.
Asynchronni komunikace
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 5.8.2004 13:53:49
> potreboval bych napsat v D7 konzolovou aplikaci pro
> komunikaci s bufferem na seriovem portu. Hledal jsem snad
> vsude na netu, ale vse co jsem nasel byli jen VCL komponenty.
To se nevylucuje.
> A nebo byly placene. Pisu programek pro sebe, takze penize do
> toho dat nechci. A nebo jestli nevite, jak to napsat
> vlastnimi silami, kam se mam podivat pro inspiraci. Nikdy
> jsem se seriovou komunikaci nezabyval. Zkousel jsem to pres
> SYSASER, ale ta je synchronni (takze se mi z bufferu vracely
> nesmysly) a ja bych potreboval asynchronni.
SYNASER nepouzivam, ale nemel by to byt problem, zvlaste pokud nemas
vlastni smycku pro obsluhu
zprav. Pak ti totiz nic jineho, nez blokujici pristup nezbyva (muzes se
ovsem periodicky dotazovat
na pocet byte ve vstupnim bufferu).
Pak to jeste muzes resit pomoci API Windows, neni to zase tak strasny
jak to na prvni pohled vypada.
Neco malo o seriove komunikaci je na mojem webu, ale spise je to popis
pro dotaz odpoved protokol.
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
Asynchronni komunikace
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 5.8.2004 13:29:44
Zdravim vsechny,
potreboval bych napsat v D7 konzolovou aplikaci pro komunikaci s bufferem na
seriovem portu. Hledal jsem snad vsude na netu, ale vse co jsem nasel byli
jen VCL komponenty. A nebo byly placene. Pisu programek pro sebe, takze
penize do toho dat nechci. A nebo jestli nevite, jak to napsat vlastnimi
silami, kam se mam podivat pro inspiraci. Nikdy jsem se seriovou komunikaci
nezabyval. Zkousel jsem to pres SYSASER, ale ta je synchronni (takze se mi z
bufferu vracely nesmysly) a ja bych potreboval asynchronni.
Diky a s pozdravem
Pavel Hauptman
MNPop3 - Kodovani
[*] Ing. Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 5.8.2004 13:39:46
Pouzivam NMPop3 (D6) pro stahnuti mailu. Po stazeni je v
NMPop3.MailMessage.Body ulozen text mailu. V jakem je to kodovani a jak to
jednoduse prekoduji do kodovani Windows?
Igor Kapoun
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 5.8.2004 12:07:38
stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy test
priklad. form , na nom button po stlaceni aby urobil qr a nan da label
> dd,
> pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
>
> with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
> do
> begin
> Alignment:= taCenter;
> Left:= fLeft;
> Top:= 0;
> Width:= fWidth;
> Height:= 23;
> AutoSize:= false;
> AutoStretch:= true;
> WordWrap:= false;
> Font.Size:= 10;
> Font.Style:= [];
> Frame.DrawBottom:= True;
> Frame.DrawLeft:= True;
> Frame.DrawTop:= True;
> end;
>
> Ladap
>
> nefunguje ani jeden s kodou, kde robim chybu ?
> Ked spustim, vypisuje chybu Acces violation.....
> mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
> a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
>
Jak odladi AV
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 5.8.2004 11:31:35
Jednodussi bude, kdyz do projektu pridas ExceptDlg z JCL (musi se to pridat
do DPR na prvni misto), pozmenit parametry linkeru (vytv orit MAP soubor) a
mas vystarano.
Zdravim
RNDr. Petr Brant
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
D&COMM s.r.o.
Korunovacni 6
Praha 7 > prosim o radu. Jak odladite chybu "Access violation..." ktera se
> vyskytuje jen u zakaznika. U mne se jeste nestala. Da se nejak
> zjistit dle te udane adresy ktera instrukce tu chybu zpusobuje?
>
D7 - ztraceni properties pri odkazu do jineho modu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.8.2004 11:25:33
Karel Kral wrote:
> Rad bych vedel, zda nejsem sam a jestli pripadne nekdo vi, co s tim.
Me to delalo u rodiny projektu v D6 taky. Nakonec jsem ucinil nejaka
opatreni a je to OK, ovsem HOSIP jaka. Kdybych si vzpomel, dam vedet.
pf
Jak odladi AV
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 5.8.2004 11:19:31
Joha jharman,
j> prosim o radu. Jak odladite chybu "Access violation..." ktera se
j> vyskytuje jen u zakaznika. U mne se jeste nestala. Da se nejak
j> zjistit dle te udane adresy ktera instrukce tu chybu zpusobuje?
zkus vypis stacku z JCL:
JclStackInfoList := JclCreateStackList(True, 0, nil);
atd...
--
vt
Jak odladi AV
[*] jharman(zv)volny(tec)cz - 5.8.2004 10:45:28
Zdravim vsechny,
prosim o radu. Jak odladite chybu "Access violation..." ktera se
vyskytuje jen u zakaznika. U mne se jeste nestala. Da se nejak
zjistit dle te udane adresy ktera instrukce tu chybu zpusobuje?
Diky moc.
Honza
--
Hrajte s nami o 1000 Kc kazdy den! Pripojte se pres VOLNY a
tipujte teplotu na vybranem miste v Ceske republice. Uzijte si
leto s VOLNY na strankach http://soutez.volny(tec)cz.Ukladani otevrenych formu a unit
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 5.8.2004 10:09:25
Ahoj
Je to jednoduche. Chce to jen v nabidce Tools|Environment Options na zalozce Preferences zaskrtnout volbu Project Desctop.
Jaromir Cermak
-----Original Message-----
From: Martin Bednar [mailto:bednar(zv)mujweb(tec)cz]
Sent: Thursday, August 05, 2004 9:09 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Ukladani otevrenych formu a unit
Jeden zacatecnicky provozni dotaz:
Lze nejak docilit toho, aby se mi pri zavreni projektu ulozil i seznam
otevrenych formu a unit ?
Ukladani otevrenych formu a unit
[*] Ing. Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 5.8.2004 09:49:23
Zacinam s databazemi v Delphi. Poradite nejakou "chytrou" www nebo nejakou
dobrou knihu?
Dik.
Igor Kapoun
D7 - ztraceni properties pri odkazu do jineho modu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.8.2004 09:45:22
Ahoj, celkem bezne se mi stava nasledujici situace:
Mam na hlavnim formulari nejake komponenty a ty se v designtime odkazuji
na komponenty ulozene v jinem mohulu. Napr. casto pouzivam sdileny
ImageList umisteny na globalnim datamodulu (nazev ma ilGlobal) a
promenne na hlavnim formulari napr. TActionList.Images nastavim v
designtime na dmMain.ilGlobal. Pokud ovsem formular otevru a nemam drive
otevreny globalni datamodul (coz se mi stava bezne), v dost pripadech
Delphi proste odkaz v na dmMain.ilGlobal zrusi bez jakekoliv vyzvy. To
je situace mimoradne k vzteku.
Rad bych vedel, zda nejsem sam a jestli pripadne nekdo vi, co s tim.
Zatim to resim tak, ze do FormCreate napisu natvrdo prirazeni
alMenu.Images := dmMain.ilGlobal; Ale v designtime to musim stejne stale
znovu opravovat.
D7.1 pro
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Ukladani otevrenych formu a unit
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 5.8.2004 09:13:19
Tools - Environment options - zalozka Preferences - oddil Autosave options
(konkretne je to polozka Project desktop)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Bednar
> Sent: Thursday, August 05, 2004 9:09 AM
>
> Lze nejak docilit toho, aby se mi pri zavreni projektu ulozil i seznam
> otevrenych formu a unit ? Napr. kdyz pracuji s 5 formulari abych
Ukladani otevrenych formu a unit
[*] Martin Bednar <bednar(zv)mujweb(tec)cz> - 5.8.2004 09:09:18
Jeden zacatecnicky provozni dotaz:
Lze nejak docilit toho, aby se mi pri zavreni projektu ulozil i seznam
otevrenych formu a unit ? Napr. kdyz pracuji s 5 formulari abych
otevrel project.dpr a IDE se otevrelo ve stejne pozici jako bylo
zavreno. Nyni se otevre pouze hlavni formular a vsechny ostatni musim
dodatecne pootvirat rucne.
Dekuji.
D7, WinXP
--
S pozdravem,
Martin Bednar
Konverze z UTF-7m
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.8.2004 08:53:16
> > nemate nekdo algoritmus pro prevod z UTF_7m do nejakeho
> > normalniho formatu? (iso,windows).
> Delaji to API WideCharToMultiByte a MultiByteToWideChar, ktere jsou i
> na W9x
Nedelaji... Tady jde o kodovani UTF-7m a ne o kodovani UTF-7. To je
stejny rozdil jako jalovec a jalovice. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Konverze z UTF-7m
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.8.2004 08:51:15
> > Ale ty vypadaj pouze na prevod UTF7, ja potrebuju UTF7m
> > (utf7+base64)....
> Tak si preved unicode a base64 oddelene.
Base64 kodovani se pouziva v normalnim UTF-7! Base64 je hlavnim
principem kodovani UTF-7.
Zatimco tady je zadano modifikovane UTF-7, ktere se pouziva napriklad
v IMAP protokolu na nazev slozek. Od normalniho UTF-7 se lisi tim, ze
ma nahrazene nektere specielni znaky, treba znak zahajujici
enkodovanou sekvenci.
Nejlepsi reseni je pouzit Synachar ze Synapse, ktere toto
modifikovane UTF-7 kodovani umi.
BTW: posledni verze SynaCharu ze Synasnapu navic pridava volitelnou
podporu pro ICONV knihovnu, diky ktere se podstatne rozsirilo
mnozstvi podporovanych charsetu! ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Obrazek
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 5.8.2004 06:57:07
zdravim,
mam obrazek (apf, tiff, jpg) a potreboval bych do nej vlozit naskenovany
podpis - dalsi obrazek
poradi nekdo jak na to
diky
Marek
Konverze z UTF-7m
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.8.2004 22:46:33
Puvodni zprava ze dne 4.8.2004:
> Ale ty vypadaj pouze na prevod UTF7, ja potrebuju UTF7m (utf7+base64)....
Tak si preved unicode a base64 oddelene.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Konverze z UTF-7m
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 4.8.2004 22:42:32
> > nemate nekdo algoritmus pro prevod z UTF_7m do nejakeho
> > normalniho formatu? (iso,windows).
>
> Delaji to API WideCharToMultiByte a MultiByteToWideChar, ktere jsou i
> na W9x
Ale ty vypadaj pouze na prevod UTF7, ja potrebuju UTF7m (utf7+base64)....
Brona
Konverze z UTF-7m
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 4.8.2004 22:20:30
> nemate nekdo algoritmus pro prevod z UTF_7m do nejakeho
> normalniho formatu? (iso,windows).
Delaji to API WideCharToMultiByte a MultiByteToWideChar, ktere jsou i
na W9x
Konverze z UTF-7m
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 4.8.2004 21:52:27
zdar,
nemate nekdo algoritmus pro prevod z UTF_7m do nejakeho normalniho formatu?
(iso,windows). UTF_7m je kodovani pouzivane pro pojmenovavani slozek imapu.
Brona
Pouziti poli typu LookUp v ADODatasetu
[*] Mirka Kincova <mirka.kincova(zv)seznam(tec)cz> - 4.8.2004 18:32:12
Zdravim,
v aplikaci,ktera se pres ADO pripojuje na MSSQL2000 vyuzivam v datasetech
pole typu lookup (fieldkind=fkLookup). Vse funguje vyborne, az nato, kdyz do
tabulky, do ktere se lookup provadi pribude vetsi mnozstvi zaznamu - cca
tisice a vice. V ten okamzik se otevirani datasetu neunosne zpomali (desitky
sekund).
Chtela jsem se zeptat, zda na tento problem existuje nejake reseni - ci jsou
pole typu lookup - resp. ziskavani hodnot pro ne - tak pomala vzdycky, ci
zda existuje nejake nastaveni apod.
Nezabralo ani kdyz jsem v prohledavanem datasetu (LookupDataSet) nastavila
CursorLocation na clUseServer a CursorType na ctOpenForwardOnly (pote se
uzasne zrychlilo otevreni tohoto prohl. datasetu, nicmene pomale otevreni
hlavniho datasetu zustalo).
Diky za rady
Mirka
Jak zjistit handle editu
[*] L?ikola Petr <developer(zv)efg(tec)cz> - 4.8.2004 14:41:52
Zdravim,
mam cizi aplikaci, a potrebuji do jednoho jejiho editu poslat text.
Pokud si handle zjistim pomoci napr. MS Spy, tak mam vzhrano, jenomze po dalsim spusteni ma edit samozdrejme jiny handle.
Otazka zni, jak zjistit handle toho editu v cizi aplikaci? Vim titulek okna ve kterem je handle, vim tridu editu, mozna bz se dal zjistit i nazev toho editu.
Diky
za radu
Petr Sikola
TDataSetTableProducer, TDataSetPageProducer, error
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 3.8.2004 21:10:19
> Delphi 7, Firebird 1.0.2.
> Windows XP Professional, IIS
>
> Potreboval bych pouzit komponenty ze zalozky Internet. Komponenta
> TPageProducer celkem funguje,
> nemohu rozchodit TDataSetPageProducer ani TDataSetTableProducer. Jakmile
> pridam na WebModule
> komponentu IBTable, pri testovani (na IIS, na Apache to take nebezi) se
> objevi chyba:
>
> Internal Server Error 500
> --------------------------------------------------------------------------
--
> ----
> Exception: EIBInterBaseError
> Message: unavailable database
>
> Pri tom DataSetTableProducer1 pri navrhu po poklepani na property Columns
> spravne edituje sloupce tabulky.
> Moc bych potreboval poradit.
>> V design time pouzivas svoj interaktivny uzivatelsky ucet. ISAPI DLL-ky
>> bezia pod inym uctom, podla nastavenia IIS. Default je tusim
>> IWAM_<computername>. Tipoval by som, ze dany ucet nema potrebne prava na
>> pripojenie sa k databaze.
>> HTH
>> TOndrej
Tusim, ze mas asi pravdu, ale nedari se mi to nastavit, resp. nastavil jsem
vsechno mozne, ale je to porad stejne. Nemam to v ISAPI, je to CGI. Kde se
to ma nastavit - ve sprave uctu ve Windows? Pro anonymni prihlasovani je
ucet IUSR_<nazevpocitace>, ale nemohu se na prideleni prav pro tento ucet
dostat. Nemam nainstalovano NTFS - je to nutne? Zkusil jsem i ve Firebirdu
udelat uzivatele IUSR_<nazev pocitace> a grantovat prava, coz je asi blbost,
taky to nepomohlo.
Zjisteni zda je system on-line
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 3.8.2004 20:50:16
Jak zjistim jestli je system on-line? Nejen jestli je pripojeny na
internet, ale jestli neni pripojen i k LAN. Proste jestli ma nejake
aktivni pripojeni. Resp. kdyz se prave otevre pripojeni, zareagovat na
neho a spustit stahovani.
Neco podobneho jako dela Windows updater.
No a jeste neco. Na win 98 mi pri pokusu o pripojeni pres Indy
componenty na jiny pocitac, ktery je dostupny v LAN, vyhodi okno pro
pripojeni pres telefon. Tohle okno je otevreno i pri pokusu o pripojeni
k Firebird serveru, ktery je dostupny v LAN. Asi je problem s nastaveni
systemu, nevite co prenastavit?
Lukas Benda
SQL dotaz a znaky entru 13 a 10 atp.
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 3.8.2004 20:40:15
Potrebuji v ramci SQL dotazu posilat nejen znak uvozovek ', ale take
znaky odpovidajici entru #13 a #10 (mozna ze i jine znaky delaji
problemy). Escape sekvenci pro uvozovku znam staci pridat jeste jednu
uvozovku pred ni, ale jakym zpusobem zapsat sekvenci #13 a #10 nevim.
Muzete mi pomoct.
Dotazy provadim na databazi FireBird pres komponenty IBX.
Btw. Potrebuji tento dotaz opravdu vytvorit rucne, IBQuery.Paratr mi
nepomuze.Funkce na zaokrouhlovani
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 3.8.2004 19:48:10
Zdravim konfer,
nevite nekdo o obecne funkci, ktera zaokrouhli realny cislo tak, jak si
budu prat (napr. na desetiny, na padesatniky, cela cisla), a to nejlepe
i s volbou jestli nahoru, dolu a nebo podle pravidel? Neco podobnyho
jako je zaokrouhlovaci funkce v Excelu.
Diky za tipy.
Karel, D5
-------------------------------
Ing. Karel Pecinka
Sofico-CZ, v. o. s.
U Vodarny 5
568 02 Svitavy
tel: +420 608 110 949
email: k.pecinka(zv)ordis(tec)cz
WWW: http://www.ordis(tec)cz
oblouk ze tri bodu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.8.2004 17:57:57
Na soukromy mail posilam reseni. Vzhledem k tomu, ze by se to mohlo hodit,
cast toho reseni (samotne vypocty) davam k dispozici sem.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
unit Unit2;
interface
procedure reseni_rovnice(a11,a12,a13,a21,a22,a23:extended; var x,
y:extended; var chyba:integer);
procedure prunik_primek(x1, y1, x2, y2, x3, y3, x4, y4:extended; var
x,y:extended; var na_prvni, na_druhe:boolean; var chyba:integer);
procedure stred_dvojice_bodu(x1, y1, x2, y2:extended; var xs, ys:extended);
procedure druhy_bod_kolmice (x1, y1, x2, y2, x3, y3:extended;var xs,
ys:extended);
function vzdal_bodu(x1,y1,x2,y2:extended):extended;
implementation
function vzdal_bodu(x1,y1,x2,y2:extended):extended;
begin
Result:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure reseni_rovnice(a11,a12,a13,a21,a22,a23:extended; var x,
y:extended; var chyba:integer);
const malo = 0.001;
var d, dx, dy:extended;
begin
d:=a11*a22-a12*a21;
dx:=a13*a22-a12*a23;
dy:=a11*a23-a13*a21;
if (abs(d)<malo) and (abs(dx)<malo) then
begin
chyba:=2; //nekonecne mnoho reseni
exit;
end;
if (abs(d)<malo) and (abs(dx)>=malo) then
begin
chyba:=1; //bez reseni
exit;
end;
if (abs(d)>malo) then
begin
chyba:=0; //existuje reseni
x:=dx/d;
y:=dy/d;
end;
end;
procedure stred_dvojice_bodu(x1, y1, x2, y2:extended; var xs, ys:extended);
begin
xs:=(x1 + x2)/2;
ys:=(y1 + y2)/2;
end;
procedure druhy_bod_kolmice (x1, y1, x2, y2, x3, y3:extended;var xs,
ys:extended);
var
u,v, pom:extended;
begin
u:=x1 - x2;
v:=y1 - y2;
pom:=u;
u:=v;
v:=-pom;
xs:=x3 + u;
ys:=y3 + v;
end;
procedure prunik_primek(x1, y1, x2, y2, x3, y3, x4, y4:extended; var
x,y:extended; var na_prvni, na_druhe:boolean; var chyba:integer);
//na_prvni, na_druhe: true znamena, ze prusecik lezi na prvni resp. druhe
usecce
//to ma vyznam pri pruniku usecek.
var r,t:extended;
begin
//[x1, y1] a [x2, y2] jsou body na prvni primce
//[x3, y3] a [x4, y4] jsou body na druhe primce
reseni_rovnice(x2 - x1, -x4 + x3, x3 - x1, y2 - y1, -y4 + y3, y3 - y1, t,
r, chyba);
if chyba <> 0 then exit;
na_prvni := (t>=0) and (t<=1);
na_druhe := (r>=0) and (r<=1);
x:= x1 + (x2 - x1)*t;
y:= y1 + (y2 - y1)*t;
end;
end.> Nema nekdo napsany kus kodu pro vypocet parametru oblouku ze tri zadanych
> bodu v rovine v kartezkych souradnicich.
> Potrebuji zjistit Radius[r] a Stred[x, y].
> Radius jsem vypocital, ale pri pocitani stredoveho bodu obcas dochazi k
> chybe. Zrejmne nemam nejstatnejsi reseni vypoctu rovnic kruznice.
>
RxDBGrid a porada zaznamu
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 3.8.2004 16:51:52
> Zdravim vespolek,
> nevedel by nekdo, jak posunout zaznam, ktery ma na sobe kurzor na prvni
> misto v gridu (aby to nemusel uzivatel nascrollovat na scrollbaru )?
Zkuste v archivu najit DBGrid a TopRow. Je to na 3-4 radky, ale uz
si to z hlavy nepamatuji. Kdyby to nikde nebylo k nalezeni, tak dejte
vedet, pohledal bych.
Luf
SMS pres NOKIA 7650 - pokracovani
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 3.8.2004 16:17:48
No ale to delas porad spatne, musi to byt takto:
TY: AT+CMGS=22
MODEM: >
TY: 0011000B912470423313F30000A70970B9DD9D064D9B53
TY: CTRL+Z (#26) stisknes ctrl+Z
MODEM: +CMGS: nejake ID
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel Z.
Sent: Tuesday, August 03, 2004 12:23 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SMS pres NOKIA 7650 - pokracovani
Tak jsem to vyzkousel v hyperterminalu
ja: AT+CMGS=22 OK
MODEM: > OK
TY: 0011000B912470423313F30000A70970B9DD9D064D9B53 vrati >
TY: CTRL+Z (#26) stisknu ctrl+Z
MODEM: +CMGS: zz tohle preskoci a zobrazi rovnou OK
MODEM: OK
oblouk ze tri bodu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.8.2004 16:07:47
Hledej konstrukci opsane kruznice troujuhelniku.
Slavek
> Nema nekdo napsany kus kodu pro vypocet parametru oblouku ze
> tri zadanych bodu v rovine v kartezkych souradnicich.
> Potrebuji zjistit Radius[r] a Stred[x, y]. Radius jsem
> vypocital, ale pri pocitani stredoveho bodu obcas dochazi k
> chybe. Zrejmne nemam nejstatnejsi reseni vypoctu rovnic kruznice.
>
> Dekuji.
> Petr Fiser
oblouk ze tri bodu
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 3.8.2004 15:55:45
Dobry den.
Nema nekdo napsany kus kodu pro vypocet parametru oblouku ze tri zadanych bodu v rovine v kartezkych souradnicich.
Potrebuji zjistit Radius[r] a Stred[x, y].
Radius jsem vypocital, ale pri pocitani stredoveho bodu obcas dochazi k chybe. Zrejmne nemam nejstatnejsi reseni vypoctu rovnic kruznice.
Dekuji.
Petr Fiser
XP manifest a ODBC dialogy
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 3.8.2004 15:27:43
Ahoj,
Pokud k programu, ktery pouziva ODBC a prislusne konfiguracni
systemove dialogy, pridam XP manifest, stanou se dialogy nepouzitelne,
pri pohybu s nekterym z nich to cele zatuhne. To neni problem je delphi
aplikaci,
delaly mi to vsechny programy, ktere jsem vyzkousel a pouzivaji ODBC.
1. Co s tim?
2. Pokud s tim nic neudelam, jak jednoduse zjistim, ze program jede
s XP manifestem? Existuje neco elegantnejsiho nez zjistovani existence
souboru s manifestem?
Radim
databaze v D6 PE
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 3.8.2004 14:13:37
DD,
je mozne v D6 Personal pracovat s databazemi nebo musim mit D Pro ?
jde mi o to jestli mi treba nestaci nejake free komponenty misto DBGrid,
Query... ?
diky za radu PM
SMS pres NOKIA 7650 - pokracovani
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 3.8.2004 13:17:32
>
>ja: AT+CMGS=22 OK
>
>MODEM: > OK
>
>TY: 0011000B912470423313F30000A70970B9DD9D064D9B53 vrati >
>
>TY: CTRL+Z (#26) stisknu ctrl+Z
>
>MODEM: +CMGS: zz tohle preskoci a zobrazi rovnou OK
toto se da nastavit, zda-li to modem ma, ci nema posilat. Netusim uz jakym
AT prikazem, pro kazdy modem se to trosku lisi.
Konkretne pro N7110 pouzivam toto:
AT &F Z E0 +CNMI=2,2,0,1,0;+CMGF=0;+CMEE=1;+CLIP=1;+CRC=1;+CCWA=1
>MODEM: OK
>
>
>
>Ten dlouhy retezec je zakodovana SMS pomoci Text2pdu1, predpokladam vcetne
>SMSC a cisla prijemce.
ano, v PDUcku je zakodovane cislo prijemce.
Posilam ti kus logu jak probiha odesilani SMS (bacha, odesila se to z
Oskara a je nazacatku zakodovano cislo SMS centra. Muzes to ale useknout a
poslat bez toho (zacatek bude 0011 namisto 079124608000651811).
> posilam JA modemu
< posila modem ME
2004-08-03 13:12:11 25469 * Sending text SMS
2004-08-03 13:12:11 25469 * Dest: 777777269
2004-08-03 13:12:11 25469 * Text: trosa:Ahoj jak se mas? Toto je pokus
na SMSku.
2004-08-03 13:12:11 25469 * DS: No
2004-08-03 13:12:11 25469 *** Sending PDU SMS:
07912460800065181100098177777762F90000AB2E74F97B1ED605D16F35481D5E83E665503B3CFF81A86FFA1BA42E83E0EF757D0E728741D3E6745D7701
2004-08-03 13:12:11 25469 *** PDU-len = 62 octets
2004-08-03 13:12:11 25469 *** SCA-len = 8 octets
2004-08-03 13:12:11 25469 *** DATA = 54 octets
2004-08-03 13:12:13 25469 > AT+CMGS=54
2004-08-03 13:12:15 25469 < >
2004-08-03 13:12:18 25469 >
07912460800065181100098177777762F90000AB2E74F97B1ED605D16F35481D5E83E665503B3CFF81A86FFA1BA42E83E0EF757D0E728741D3E6745D7701
2004-08-03 13:12:19 25469 *** Cekam na +CMGS...
2004-08-03 13:12:20 25469 < +CMGS: 232
2004-08-03 13:12:20 25469 * msgref=232
2004-08-03 13:12:20 25469 *** Cekam na +CMGS...
2004-08-03 13:12:20 25469 < OK
2004-08-03 13:12:20 25469 * SMS successfuly sent via gateway 5 with msgref=232
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
---------------------------------------------------------------------------
Export dat do XML
[*] Petr Vones <konference(zv)petrvones(tec)net> - 3.8.2004 12:39:28
From: "Peter Ondras" <peter.ondras(zv)pse.sk>
> Pouzivam Firebird cez IBQuery a chcel by som niektore tabulky exportovat
> do XML a nasladne na inom pc importovat z toho XML naspat do IBQuery.
Pak mas asi nejsnazsi pouzit TClientDataSet (+ nejake ty providery aby se to
napojilo na TIBxxx dataset) ktery se umi ukladat/nahravat do XML a to vcetne
pripadnych nested datasetu.
Petr Vones
Export dat do XML
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.8.2004 12:45:29
>----- Original Message -----
>From: "Peter Ondras" <peter.ondras(zv)pse.sk>
> Dost ma tato debata zaujala. O XML citam v poslednej dobe dost vela a
> toto co tu pises som velmi velmi dlho hladal. Dal by sa poslat zdrojak
> alebo aspon jeho fragment? Prosim.
> Pouzivam Firebird cez IBQuery a chcel by som niektore tabulky exportovat
> do XML a nasladne na inom pc importovat z toho XML naspat do IBQuery.
>
caves, kukni na http://www.arayan.com/basri/ tam je zdrojak komponent,
proste , stiahni a nainstaluj... export do xml napr takto:
XmlDS:TXMLDataSet;
....
xmlds.DataSet := mojaTabulkaAleboQuery;
xmlds.SaveToFile('tabulka.xml');
eg. priklad mas aj na tom webe
rgds,
Ivan Turcan
SMS pres NOKIA 7650 - pokracovani
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 3.8.2004 12:23:26
Tak jsem to vyzkousel v hyperterminalu
ja: AT+CMGS=22 OK
MODEM: > OK
TY: 0011000B912470423313F30000A70970B9DD9D064D9B53 vrati >
TY: CTRL+Z (#26) stisknu ctrl+Z
MODEM: +CMGS: zz tohle preskoci a zobrazi rovnou OK
MODEM: OK
Ten dlouhy retezec je zakodovana SMS pomoci Text2pdu1, predpokladam vcetne
SMSC a cisla prijemce.
Poradite ?
Diky
P.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Tomas Rosa
Sent: Monday, August 02, 2004 10:38 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
>com.ATCommand('AT+CMGS='+pdu[2]+#13+pdu[1]+#26);
>
>tady to neprobehne ok
odpoved uz tu nekolikrat byla -
MUSIS POCKAT NA REAKCI MODEMU
konkretne:
TY: AT+CMGS=xxx
MODEM: >
TY: 0071000C9124707777279600F5FF4.....01
TY: CTRL+Z (#26)
MODEM: +CMGS: zz
MODEM: OK
kde XXX je delka PDU (bez hlavicky ohledne SMSC & spol) a ZZ je ID kterou
modem teto SMSce pridelil (pro parovani dorucenky).
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
---------------------------------------------------------------------------
Export dat do XML
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.8.2004 12:25:26
Dost ma tato debata zaujala. O XML citam v poslednej dobe dost vela a
toto co tu pises som velmi velmi dlho hladal. Dal by sa poslat zdrojak
alebo aspon jeho fragment? Prosim.
Pouzivam Firebird cez IBQuery a chcel by som niektore tabulky exportovat
do XML a nasladne na inom pc importovat z toho XML naspat do IBQuery.
caves, co tak pouzit XMLDataSet, je to velmi jednoduche na pouzitie,
defakto
staci prepojit z tabulkou alebo query a zavolat jednu metodu na ulozenie
xml
suboru. to same aj obratene.
Ja to pouzivam v kombinaciou z kbmMemTable a funguje to skvele, a aj z
obrazkami:)
Export dat do XML
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.8.2004 12:03:23
>----- Original Message -----
>From: "Stasko Peter" <stasko(zv)fic(tec)cz>
>To: <delphi-l(zv)clexpert(tec)cz>
>Sent: Tuesday, August 03, 2004 11:27 AM
>Subject: Export dat do XML
> Cafte *,
>
> Pls, potreboval by som exportovat data (ini, file...) do formatu XML..
> Avsak, potrebujem exportovast aj obrazky typu JPG, BMP, GIF...
> Je to mozne?? Existuje na to nejaka komponenta? Ako to spravit?
caves, co tak pouzit XMLDataSet, je to velmi jednoduche na pouzitie, defakto
staci prepojit z tabulkou alebo query a zavolat jednu metodu na ulozenie xml
suboru. to same aj obratene.
Ja to pouzivam v kombinaciou z kbmMemTable a funguje to skvele, a aj z
obrazkami:)
Ivan Turcan
iturcan(zv)drake.sk
TDataSetTableProducer, TDataSetPageProducer, error
[*] tondrej(zv)t-online.de - 3.8.2004 12:03:23
> Delphi 7, Firebird 1.0.2.
> Windows XP Professional, IIS
>
> Potreboval bych pouzit komponenty ze zalozky Internet. Komponenta
> TPageProducer celkem funguje,
> nemohu rozchodit TDataSetPageProducer ani TDataSetTableProducer. Jakmile
> pridam na WebModule
> komponentu IBTable, pri testovani (na IIS, na Apache to take nebezi) se
> objevi chyba:
>
> Internal Server Error 500
> ----------------------------------------------------------------------------
> ----
> Exception: EIBInterBaseError
> Message: unavailable database
>
> Pri tom DataSetTableProducer1 pri navrhu po poklepani na property Columns
> spravne edituje sloupce tabulky.
> Moc bych potreboval poradit.
V design time pouzivas svoj interaktivny uzivatelsky ucet. ISAPI DLL-ky
bezia pod inym uctom, podla nastavenia IIS. Default je tusim
IWAM_<computername>. Tipoval by som, ze dany ucet nema potrebne prava na
pripojenie sa k databaze.
HTH
TOndrej
kbmMemTable a filtrovani
[*] Ivan Turcan <iturcan(zv)drake.sk> - 3.8.2004 11:59:22
>----- Original Message -----
>From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
>
> U kbmMemTable mam tedy vytvoren index, v onFilterIndex nastavuju Accept
> presne jako jsem to delal v onFilterRecord, a at Filtered pouzivam nebo
> ne, vzdy mam jako vysledek prazdny dataset. Kdyz pouziju onFilterRecord
> tak filtrovani funguje az na to, ze je to pomalejsi a filtrovani probiha
> nekolikrat. Nemusim nejak explicitne vyvolat provedeni filtrace?
>
> Nechapu ale vyznam toho indexu - jestli onFilterRecord prochazi cely
> DataSet, aplikace prece musi u kazdeho zaznamu rozhodnout, zda zaznam
> vyhovuje podminkam nebo ne. Na co tedy index?
rozdiel medzi FilterRecord a FIlterIndex je ten ze
onFilterIndex je prepocitavany pre kazdy zaznam len raz, a to sice pri
inserte,edite, appende, delete a pod. eg. preco index, preto lebo je to z
indexom rychlejsie:)
na rozdiel od neho FIlterRecord je prepocitavany zakazdym pri zmene velkosti
gridu, scrolovani atp....
v pripade ze pouzijes filterindex tak netreba nastavovat Filtered na true
> Existuje nejaky help k teto komponente?
jasne, ale je to za mensi poplatok :)
ps. mozes urobit aj to ze si vytvoris dalsiu tabulku a pripojis si ju na
nadriadenu memtable cez attachedto property. ma to celkom dobre pouzitie
napr. pre rozne views ...
best regards
Ivan Turcan
iturcan(zv)drake.sk
www.components4developers.com
The best components for the best developers
kbmMW - kbmMemTable - kbmWABD - kbmX10
Vytvareni objektu v projektu z nalinkovane knihovn
[*] Petr Vones <konference(zv)petrvones(tec)net> - 3.8.2004 11:49:20
From: <vponecha(zv)volny(tec)cz>
> Prosim o nakopnuti. Mam Projekt do ktereho mam nalinkovanou
> knihovnu, ktera ma byt zodpovedna za vytvareni objektu v mem
> projektu. Problem je v tom, ze tyto objekty maji ruzne parenty,
> proto potrebuji predavat dll take informace o parent v projektu.
Objekty nelze predavat pres DLL. Musis pouzit balicky.
Petr Vones
Export dat do XML
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 3.8.2004 11:49:19
> Pls, potreboval by som exportovat data (ini, file...) do formatu XML..
> Avsak, potrebujem exportovast aj obrazky typu JPG, BMP, GIF... Je to
> mozne?? Existuje na to nejaka komponenta? Ako to spravit?
>Pro praci s XML mas v Delphi IXMLDocument. Obrazky muzes ukladat jako binarni data a to tak, ze je prevedes do base64 >pomoci funkci v unitu EncdDecd. Pokud mas jasne danou strukturu toho dokumentu (XSD schema) tak doporucuji pouzit XML Data >Binding, lepe se s tim pak pracuje.
>Petr Vones
No to je cool, ale ja som dost amatersky programator :) Vedel by mi niekto nieco take spravit???
Pls, ozvite sa na sukromny mail. Export dat do XML a + export na SQL server.
diq
TDataSetTableProducer, TDataSetPageProducer, error
[*] Petr Vones <konference(zv)petrvones(tec)net> - 3.8.2004 11:45:18
From: "ing. Petr Borkovec" <petrborkovec(zv)volny(tec)cz>
> Exception: EIBInterBaseError
> Message: unavailable database
Zkus novejsi verzi tech IBExpress komponent a kdyz to nepomuze tak prohledat
Borlandi newsy Googlem.
Pouzivat dnes Delphi Win32 pro webove aplikace neni ovsem to nejstastnejsi
reseni.
Petr Vones
Export dat do XML
[*] Petr Vones <konference(zv)petrvones(tec)net> - 3.8.2004 11:43:17
From: "Stasko Peter" <stasko(zv)fic(tec)cz>
> Pls, potreboval by som exportovat data (ini, file...) do formatu XML..
> Avsak, potrebujem exportovast aj obrazky typu JPG, BMP, GIF...
> Je to mozne?? Existuje na to nejaka komponenta? Ako to spravit?
Pro praci s XML mas v Delphi IXMLDocument. Obrazky muzes ukladat jako binarni
data a to tak, ze je prevedes do base64 pomoci funkci v unitu EncdDecd. Pokud
mas jasne danou strukturu toho dokumentu (XSD schema) tak doporucuji pouzit
XML Data Binding, lepe se s tim pak pracuje.
Petr Vones
Export dat do XML
[*] Stasko Peter <stasko(zv)fic(tec)cz> - 3.8.2004 11:27:16
Cafte *,
Pls, potreboval by som exportovat data (ini, file...) do formatu XML..
Avsak, potrebujem exportovast aj obrazky typu JPG, BMP, GIF...
Je to mozne?? Existuje na to nejaka komponenta? Ako to spravit?
diq
TDataSetTableProducer, TDataSetPageProducer, error
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 3.8.2004 11:23:15
Delphi 7, Firebird 1.0.2.
Windows XP Professional, IIS
Potreboval bych pouzit komponenty ze zalozky Internet. Komponenta
TPageProducer celkem funguje,
nemohu rozchodit TDataSetPageProducer ani TDataSetTableProducer. Jakmile
pridam na WebModule
komponentu IBTable, pri testovani (na IIS, na Apache to take nebezi) se
objevi chyba:
Internal Server Error 500
----------------------------------------------------------------------------
----
Exception: EIBInterBaseError
Message: unavailable database
Pri tom DataSetTableProducer1 pri navrhu po poklepani na property Columns
spravne edituje sloupce tabulky.
Moc bych potreboval poradit.
Petr Borkovec
D7IDE - zacarovany Help
[*] martin <matrix(zv)inmail(tec)cz> - 2.8.2004 23:20:21
Nejak sa mi zacal integrovany HELP v D7 spravat divne.
Ak si vyvolam help cez menu HELP-Delphi Help, vidim pekne vsetky helpy
vsetkych dostupnych komponent...je tam asi 40 roznych
helpov...jcl,jvcl atd....pekne sa da vyhladat...to je Ok
ALE, ak som na formulari nad nejakou komponentou a stlacim F1, tak sa
vyvola HELP ale pouzije sa IBA "Delphi Object and Component Reference"
t.j. neskoci mi to priamo do suvisiaceho helpu k danej komponente.
Pretoze v zozname helpov sa objavi IBA "Delphi Object and Component Reference"
Pritom manualne cez HELP-Delphi Help sa tam viem preklikat.
Uz som skusal HELP-Customize-File-Save Project
...vysledok stale ten isty
Kde robim chybu ?
mato
SMS pres NOKIA 7650
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 2.8.2004 22:38:17
>com.ATCommand('AT+CMGS='+pdu[2]+#13+pdu[1]+#26);
>
>tady to neprobehne ok
odpoved uz tu nekolikrat byla -
MUSIS POCKAT NA REAKCI MODEMU
konkretne:
TY: AT+CMGS=xxx
MODEM: >
TY: 0071000C9124707777279600F5FF4.....01
TY: CTRL+Z (#26)
MODEM: +CMGS: zz
MODEM: OK
kde XXX je delka PDU (bez hlavicky ohledne SMSC & spol) a ZZ je ID kterou
modem teto SMSce pridelil (pro parovani dorucenky). 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
---------------------------------------------------------------------------
struktura formatu CHM
[*] david.kopecek(zv)hacktrack(tec)com - 30.7.2004 12:48:39
Ahoj
>> nemate nekdo nejaky popis struktury CHM (Microsoft help) nebo
>> aplikaci ktera umi pracovat s jednotlivymi polozkami ?...
PV> A k cemu by to melo byt dobre ? Nemluve o tom, ze CHM uz je stejne "zastaraly"
mno zakaznik pozaduje tools na vyexportovani obsahu CHM... tak je to..
David
kbmMemTable a filtrovani
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 2.8.2004 21:56:13
U kbmMemTable mam tedy vytvoren index, v onFilterIndex nastavuju Accept
presne jako jsem to delal v onFilterRecord, a at Filtered pouzivam nebo
ne, vzdy mam jako vysledek prazdny dataset. Kdyz pouziju onFilterRecord
tak filtrovani funguje az na to, ze je to pomalejsi a filtrovani probiha
nekolikrat. Nemusim nejak explicitne vyvolat provedeni filtrace?
Nechapu ale vyznam toho indexu - jestli onFilterRecord prochazi cely
DataSet, aplikace prece musi u kazdeho zaznamu rozhodnout, zda zaznam
vyhovuje podminkam nebo ne. Na co tedy index?
Existuje nejaky help k teto komponente?
Diky
Karel, D5
> easy, vytvor si index aby si to mal rychlejsie :) a na
> onFilterIndex si
> zaves event, kontrolu urob defakto tak isto ako cez onFIlterRecord...
> rozdiel je ten ze Filtered nemusis pouzit.kbmMemTable a filtrovani
[*] Ivan Turcan <iturcan(zv)drake.sk> - 2.8.2004 20:26:07
>----- Original Message -----
>From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
>To: <delphi-l(zv)clexpert(tec)cz>
>Sent: Monday, August 02, 2004 8:16 PM
>Subject: Re: kbmMemTable a filtrovani
> Jak presne se da pouzit ten onFilterIndex? Pomuze mi napr. pri
> prohledavani libovolne casti retezce a to jeste kdyz potrebuju ignorovat
> diakritiku v dotazu i datech? V napovede kterou mam ke kbmMemTable se
> nic nepise o zadnym filtrovani.
easy, vytvor si index aby si to mal rychlejsie :) a na onFilterIndex si
zaves event, kontrolu urob defakto tak isto ako cez onFIlterRecord...
rozdiel je ten ze Filtered nemusis pouzit.
yep, mozes si urobit funkciu napr. PorovnajObsahRetazca
(field:TField):Boolean a tu volat v onFIlterIndex napr takto:
Accepted := PorovnajObsahRetazca (Dataset.fieldbyname ('SomeMyField'));
best regards
Ivan Turcan
iturcan(zv)drake.sk
www.components4developers.com
The best components for the best developers
kbmMW - kbmMemTable - kbmWABD - kbmX10
kbmMemTable a filtrovani
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 2.8.2004 20:16:05
Jak presne se da pouzit ten onFilterIndex? Pomuze mi napr. pri
prohledavani libovolne casti retezce a to jeste kdyz potrebuju ignorovat
diakritiku v dotazu i datech? V napovede kterou mam ke kbmMemTable se
nic nepise o zadnym filtrovani.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
> Sent: Monday, August 02, 2004 7:26 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: kbmMemTable a filtrovani
>
>
> >From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
> >Sent: Monday, August 02, 2004 4:31 PM
> > nevite nekdo, jak funguje filtrovani v tabulce kbmMemTable?
> V udalosti
> >onFilterRecord si krome nastaveni promenne Accept mj. i
> zvysuju lokalni
> >promennou v pripade, ze jeden ze sloupcu tabulky nabyva
> urcitych hodnot
> >a Accept je true. Cislo, ktere se mi ale dostane do teto
> promenne, je
> >uplne nesmyslne, mnohdy i nekolikanasobne vyssi nez je pocet
> zaznamu v
> >tabulce. Podle toho by to vypadalo, ze pri filtrovani dochazi k
> >nekolikanasobnemu pruchodu cele tabulky.
> >
> > Je mozne nejak dosahnout toho, abych si spocital co
> potrebuji jiz pri
> > filtrovani? Potrebuju mit totiz odezvu programu co nejkratsi.
>
>
> Caves,
>
> v podstate mas pravdu filterrecord pobezi trebarz aj 1 000
> 000 krat na kazdy record , zalezi ako casto sa robi refresh
> okna,gridu atp. , resp. ako casto ho dataset robi. Mas
> moznost pouzit onFilterIndex, ten je vyhodnejsi lebo bezi po
> indexoch a pobezi len raz na kazdy zaznam
>
>
> best regards
> Ivan Turcan
> iturcan(zv)drake.sk
> www.components4developers.com
>
> The best components for the best developers
> kbmMW - kbmMemTable - kbmWABD - kbmX10
>
>
>
>
>
> kbmMemTable a filtrovani
[*] Ivan Turcan <iturcan(zv)drake.sk> - 2.8.2004 19:26:01
>From: "Karel Pecinka" <k.pecinka(zv)seznam(tec)cz>
>Sent: Monday, August 02, 2004 4:31 PM
> nevite nekdo, jak funguje filtrovani v tabulce kbmMemTable? V udalosti
> onFilterRecord si krome nastaveni promenne Accept mj. i zvysuju lokalni
> promennou v pripade, ze jeden ze sloupcu tabulky nabyva urcitych hodnot
> a Accept je true. Cislo, ktere se mi ale dostane do teto promenne, je
> uplne nesmyslne, mnohdy i nekolikanasobne vyssi nez je pocet zaznamu v
> tabulce. Podle toho by to vypadalo, ze pri filtrovani dochazi k
> nekolikanasobnemu pruchodu cele tabulky.
>
> Je mozne nejak dosahnout toho, abych si spocital co potrebuji jiz pri
> filtrovani? Potrebuju mit totiz odezvu programu co nejkratsi.
Caves,
v podstate mas pravdu filterrecord pobezi trebarz aj 1 000 000 krat na kazdy
record , zalezi ako casto sa robi refresh okna,gridu atp. , resp. ako casto
ho dataset robi.
Mas moznost pouzit onFilterIndex, ten je vyhodnejsi lebo bezi po indexoch a
pobezi len raz na kazdy zaznam
best regards
Ivan Turcan
iturcan(zv)drake.sk
www.components4developers.com
The best components for the best developers
kbmMW - kbmMemTable - kbmWABD - kbmX10
ADO uzamykani zaznamu
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 2.8.2004 17:17:51
> marne se snazim vyresit zamykani jednotlivych vet v tabulce pri editaci.
> Zkousel jsem ADOtest z Delphi\Demos a ruzne hodnoty CursorType a LockType,
> ale stale se mi nedari editovany zaznam uzamknou pro dalsiho uzivatele.
> Potreboval bych stejne chovani jako Access. Pokud druhy uzivatel chce
> editovat stejnou vetu, tak se mu vypise, ze zaznam je uzamcen. Hledal jsem
v
> archivu konference, ale nic jsem nevyresil. Doposud jsem tvoril aplikace
> jenom s jednouzivatelskym pristupem, tak prosim o radu jak na to nebo
> nejlepe nejaky priklad na netu.
nastav pessimistic locking
Erik
QR a pridanie komponnety za behu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 2.8.2004 17:17:50
Pokial viem tak spravny kod je skor
with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
begin
Left := 10;
Top := 10;
Caption := 'QRLabel1';
end;
Martin Cajbik
Miso wrote:
>----- Original Message -----
>From: "mato" <mato.tino(zv)inmail.sk>
>
>
>>da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
>>
>>
>>
>
>..ano..pridavas ako klasicku komponentu, t.j. napr.
>
>with TQRLabel.Create(QuickRep1) do
>begin
> Parent := QuickRep1;
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
>end;
>
>Miso
>
SMS pres NOKIA 7650
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 2.8.2004 17:09:49
JO, s tim SendString to probehne OK, ale nejak mi neprichazi SMSka, da se to
jeste nejak otestovat ? abych se dozvedel, co se stalo s tou SMS ? :-)))
P.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Lukas Gebauer
Sent: Monday, August 02, 2004 3:54 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
> >> Cekani neni dlouhe, spis naopak, tzn. zavolat:
> >> ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
> >> ser.RecvByte(5000);
> >> ser.ATCommand(pdu+#26);
> >>
> >> Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to
> >> bohuzel nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje
> >> prakticky "ihned", S35 si dava uz trosku nacas (cca 1s).
> >
> > Prijde-li ten znak drive, nez zavolas to RecvByte, tak to vubec
> > NEVADI. ;-)
>
> Ok, ve vyse uvedem pripade RecvByte skonci na timeout, takze to
> nevadi. Pokud bude osetrene lasterror (jako ze by melo), pak SMS
> neodeslu, tzn. modem neodpovida.
Ono to skoci na timeout, protoze ten retezec pred tim posilas pres
ATCommmand coz je metoda, ktera odesle data a cekna na 'OK', 'ERROR'
ci jinou podobnou odpoved od modemu. To ty ted ale nechces, protoze
ocekavas zcela jinou odpoved, konkretne '>'.
proto misto ATCommand odesilej ten AT prikaz pomoci SendString.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.kbmMemTable a filtrovani
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 2.8.2004 16:31:45
Zdravim,
nevite nekdo, jak funguje filtrovani v tabulce kbmMemTable? V udalosti
onFilterRecord si krome nastaveni promenne Accept mj. i zvysuju lokalni
promennou v pripade, ze jeden ze sloupcu tabulky nabyva urcitych hodnot
a Accept je true. Cislo, ktere se mi ale dostane do teto promenne, je
uplne nesmyslne, mnohdy i nekolikanasobne vyssi nez je pocet zaznamu v
tabulce. Podle toho by to vypadalo, ze pri filtrovani dochazi k
nekolikanasobnemu pruchodu cele tabulky.
Je mozne nejak dosahnout toho, abych si spocital co potrebuji jiz pri
filtrovani? Potrebuju mit totiz odezvu programu co nejkratsi.
Diky za rady.
Karel, D5
StoredProc a navrat hodnot
[*] Jiri Fait <develop(zv)lmss(tec)cz> - 2.8.2004 16:43:46
> Mozna blbost ale nezapomel jsi nahodou SUSPENDovat hodnoty z SP? Libor
Nezapomnel......v IBExpertu ji normalne provedu a vrati data. Ten SELECT
from sproc funguje.
Ynamena to ye primarne jsou komponentz TXXStoredProc urceny pouze pro
vykonani procedur ktere nic nevraci?
Je to tak?
Dik Jirka
RxDBGrid a porada zaznamu
[*] Jaroslav Vorlicek <jry2000(zv)seznam(tec)cz> - 2.8.2004 15:47:38
Zdravim vespolek,
nevedel by nekdo, jak posunout zaznam, ktery ma na sobe kurzor na prvni
misto v gridu (aby to nemusel uzivatel nascrollovat na scrollbaru )?
Diky predem za odpoved
Jaroslav Vorlicek
StoredProc a navrat hodnot
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 2.8.2004 15:51:39
Mozna blbost ale nezapomel jsi nahodou SUSPENDovat hodnoty z SP?
Libor
----- Original Message -----
From: "Jiri Fait" <develop(zv)lmss(tec)cz>
Sent: Monday, August 02, 2004 1:21 PM
> Nemuzu prijit na zpusob jak komponentou TIBStoredProc dostat vystupni data
z
> ulozene procedury.StoredProc a navrat hodnot
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 2.8.2004 15:51:39
Ahoj,
to reseni existuje, na konci puvodni zpravy je cela moje procedura
Jarek Uher
Milan Tomes wrote:
> A proc nevybiras data ze Stored procedury pomoci normalniho TIBDataSet +
> Select xxx from SP_xxx ???
> Je to bez jedineho problemu...
>
> S pozdravem
>
> Milan Tomes
>
>
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jiri Fait
>> Sent: Monday, August 02, 2004 1:21 PM
>>
>> Nemuzu prijit na zpusob jak komponentou TIBStoredProc dostat
>> vystupni data z
>> ulozene procedury.
procedure TFormMain.SP_PRIPADY_TO_ARCHIV;
var Pocet : integer;
begin
(*
CREATE PROCEDURE PRIPADY_TO_ARCHIV (
U_NP SMALLINT,
U_DT_VZNIKU DATE,
U_DEL SMALLINT,
U_NEWDEL SMALLINT,
U_LAST_USER CHAR(4))
RETURNS (POCET INTEGER)
*)
Pocet := 0;
with DataModul, FormPripadyToArchiv do
try
IBTransaction1.Active := false;
try
Screen.Cursor := crHourGlass;
IBStoredProc.Transaction := IBTransaction1;
IBTransaction1.StartTransaction;
IBStoredProc.StoredProcName := 'PRIPADY_TO_ARCHIV';
IBStoredProc.Params.Clear;
(* poradi musi odpovidat volane Stored Procedure ! *)
with IBStoredProc.Params.CreateParam(ftSmallInt, 'NP',ptInput) do
AsSmallInt := RadioGroupNP.ItemIndex +1;
with IBStoredProc.Params.CreateParam(ftDate, 'DT_VZNIKU',ptInput) do
AsDate := DTPickerVyradit.Date;
with IBStoredProc.Params.CreateParam(ftSmallInt, 'DEL',ptInput) do
AsSmallInt := ciActiveKod;
with IBStoredProc.Params.CreateParam(ftSmallInt,
'U_NEWDEL',ptInput) do
AsSmallInt := ciArchiveKod;
with IBStoredProc.Params.CreateParam(ftString,
'LAST_USER',ptInput) do
AsString := DataModul.Get_MaklerKodFromName(gsMakler);
IBStoredProc.Params.CreateParam(ftInteger,
'POCET',ptOutput).AsInteger :=0;
IBStoredProc.Prepare;
IBStoredProc.ExecProc;
IBTransaction1.CommitRetaining;
// vrati pocet presunu do archivu
Pocet := IBStoredProc.Params.ParamValues['POCET'];
Screen.Cursor:=crDefault;
MessageDlg(Format(rsM_NumberPripaduMoved, [Pocet]), mtInformation,
[mbYes],0)
except
on E: Exception do
begin
IBTransaction1.RollbackRetaining;
MessageDlg(rsE_Update+#13+E.Message, mtWarning, [mbOk], 0);
end;
end;
finally
IBTransaction1.Active := false;
end;
end;Ikona v systemove liste
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.8.2004 16:07:42
On Monday, August 02, 2004 12:57 AM [CET], Frantisek Mlcoch
<frantisek.mlcoch(zv)vsb(tec)cz> wrote:
> Zdravim,
>
> pro zobrazeni ikony v systemove liste pouzivam componentu
> CoolTrayIcon. Jenze kdyz spadne explorer.exe (desktop), tak ikona z
> listy zmizi. Nevite jestli jde nejakym zpusobem poznat, ze explorer
> padnul a tu ikonu na tu listu zase dostat?
>
kdyz startuje explorer, posila zpravu 'TaskBarCreated' cili staci si
pomoci RegisterWindowMessage('TaskBarCreated') zaregistrovat msg a
sledovat jestli neprisla. Alespon pri regulernim startu (windows) to
funguje
D. Toman
SMS pres NOKIA 7650
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 2.8.2004 15:53:40
> >> Cekani neni dlouhe, spis naopak, tzn. zavolat:
> >> ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
> >> ser.RecvByte(5000);
> >> ser.ATCommand(pdu+#26);
> >>
> >> Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to
> >> bohuzel nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje
> >> prakticky "ihned", S35 si dava uz trosku nacas (cca 1s).
> >
> > Prijde-li ten znak drive, nez zavolas to RecvByte, tak to vubec
> > NEVADI. ;-)
>
> Ok, ve vyse uvedem pripade RecvByte skonci na timeout, takze to
> nevadi. Pokud bude osetrene lasterror (jako ze by melo), pak SMS
> neodeslu, tzn. modem neodpovida.
Ono to skoci na timeout, protoze ten retezec pred tim posilas pres
ATCommmand coz je metoda, ktera odesle data a cekna na 'OK', 'ERROR'
ci jinou podobnou odpoved od modemu. To ty ted ale nechces, protoze
ocekavas zcela jinou odpoved, konkretne '>'.
proto misto ATCommand odesilej ten AT prikaz pomoci SendString.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.QR a pridanie komponnety za behu
[*] Miso <delphinpp(zv)atlas(tec)cz> - 2.8.2004 15:21:30
----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>
>
> da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
>
..ano..pridavas ako klasicku komponentu, t.j. napr.
with TQRLabel.Create(QuickRep1) do
begin
Parent := QuickRep1;
Left := 10;
Top := 10;
Caption := 'QRLabel1';
end;
Miso
SMS pres NOKIA 7650
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 2.8.2004 14:51:24
Tak takhle uz to slape, teda ne uplne, jiz hlasi OK provedene prikazy, ale
neprichazi zadna SMS, ale jeste mam dotaz, jak mohu otestovat, ze mobil
odpovedel znakem ">" ?
Diky
P.
procedure TForm1.btTestClick(Sender: TObject);
var
com:TBlockSerial;
pdu: tpdu;
begin
memo1.Clear;
com:=TBlockSerial.Create;
com.Connect('COM'+lbed1.Text);
com.AtTimeout:=5000;
com.config(19200, 8, 'N', 0, false, false);
com.ATCommand('AT+CMGL=1' );
if (com.LastError <> 0) or (not com.ATResult) then
memo1.Lines.Add('chyba: ' + InTtoStr(com.LastError) + ' - ' +
com.GetErrorDesc(com.LastError))
else
begin
memo1.Lines.Add('spojeno');
application.ProcessMessages;
pdu := Text2pdu1.texttosms('420602909909','420724333135','prvni
SMS');
memo1.Lines.Add('sms pdu format :'+pdu[1]);
memo1.Lines.Add('delka sms :'+pdu[2]);
com.ATCommand('AT+CMGS='+pdu[2]+#13);
//Statusbar1.Panels[0].Text := 'WaitingData:
'+IntTostr(com.WaitingData);
//com.RecvByte(1000);
com.ATCommand(pdu[1]+#26);
//Statusbar1.Panels[1].Text := 'WaitingData:
'+IntTostr(com.WaitingData);
//com.RecvByte(1000);
if com.ATResult then memo1.Lines.Add('odeslani SMS
vyslo'+#$D#$A+com.LastErrorDesc) else memo1.Lines.Add('odeslani SMS
nevyslo'+#$D#$A+com.LastErrorDesc);Sleep(10000);Application.Terminate;
end;
com.Free;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Roman
Sent: Monday, August 02, 2004 1:59 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
>>> Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
>>> odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
>>> pdu[1] + #26
>>
>> Jak toho cekani na znak dosahnout pomoci Synaser?
>
> No, nechytil jsem zacatek, ale predpokladam, ze to cekani na znak
> neni nikterak prehnane dlouhe, jde spise na cekani nez mobil zpracuje
> ten pozadavek, ne?
>
> Pak totiz nemusis cekat na nic, rovnou po odeslani dat muzes zavolat
> treba RecvByte(5000), Synaser pocka na ten znak za tebe! Mnou uvadeny
> priklad znamena, ze synaser bude cekat na ten jeden byte dat po dobu
> maximalne 5 vterin. pokud do peti vterin neprijde odpoved, budes mit
> v lasterror chybu timeoutu. (pochopitelne, pokud je 5 vterin malo,
> nastav si tam kolik potrebujes.)
Cekani neni dlouhe, spis naopak, tzn. zavolat:
ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
ser.RecvByte(5000);
ser.ATCommand(pdu+#26);
Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to bohuzel
nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje prakticky "ihned", S35
si dava uz trosku nacas (cca 1s).
Roman
StoredProc a navrat hodnot
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 2.8.2004 15:13:29
A proc nevybiras data ze Stored procedury pomoci normalniho TIBDataSet +
Select xxx from SP_xxx ???
Je to bez jedineho problemu...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jiri Fait
> Sent: Monday, August 02, 2004 1:21 PM
>
> Nemuzu prijit na zpusob jak komponentou TIBStoredProc dostat
> vystupni data z
> ulozene procedury.SMS pres NOKIA 7650
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 2.8.2004 14:55:25
> Cekani neni dlouhe, spis naopak, tzn. zavolat:
> ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
> ser.RecvByte(5000);
> ser.ATCommand(pdu+#26);
>
> Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to bohuzel
> nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje prakticky "ihned",
> S35 si dava uz trosku nacas (cca 1s).
Prijde-li ten znak drive, nez zavolas to RecvByte, tak to vubec
NEVADI. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.SMS pres NOKIA 7650
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 2.8.2004 15:09:28
>> Cekani neni dlouhe, spis naopak, tzn. zavolat:
>> ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
>> ser.RecvByte(5000);
>> ser.ATCommand(pdu+#26);
>>
>> Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to
>> bohuzel nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje
>> prakticky "ihned", S35 si dava uz trosku nacas (cca 1s).
>
> Prijde-li ten znak drive, nez zavolas to RecvByte, tak to vubec
> NEVADI. ;-)
Ok, ve vyse uvedem pripade RecvByte skonci na timeout, takze to nevadi.
Pokud bude osetrene lasterror (jako ze by melo), pak SMS neodeslu, tzn.
modem neodpovida.
Roman
QR a pridanie komponnety za behu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 2.8.2004 15:07:27
Ano.
Martin Cajbik
mato wrote:
>zdravim,
>
>da sa v kode pridat na quick report nova komponenta ? napr. qrlabel
>
>
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 2.8.2004 14:39:23
zdravim,
da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
pomalost Firebirdu
[*] Miso <delphinpp(zv)atlas(tec)cz> - 2.8.2004 14:21:21
----- Original Message -----
From: "Pavel Hora" <phofficial(zv)centrum(tec)cz>> Jak se da zjistit provadeci plan ve Firebirdu ?
..napr. TIBSQL ma property Plan
Miso
SMS pres NOKIA 7650
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 2.8.2004 13:59:17
>>> Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
>>> odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
>>> pdu[1] + #26
>>
>> Jak toho cekani na znak dosahnout pomoci Synaser?
>
> No, nechytil jsem zacatek, ale predpokladam, ze to cekani na znak
> neni nikterak prehnane dlouhe, jde spise na cekani nez mobil zpracuje
> ten pozadavek, ne?
>
> Pak totiz nemusis cekat na nic, rovnou po odeslani dat muzes zavolat
> treba RecvByte(5000), Synaser pocka na ten znak za tebe! Mnou uvadeny
> priklad znamena, ze synaser bude cekat na ten jeden byte dat po dobu
> maximalne 5 vterin. pokud do peti vterin neprijde odpoved, budes mit
> v lasterror chybu timeoutu. (pochopitelne, pokud je 5 vterin malo,
> nastav si tam kolik potrebujes.)
Cekani neni dlouhe, spis naopak, tzn. zavolat:
ser.ATCommand('AT+CMGS='+IntToStr(delka)+#13);
ser.RecvByte(5000);
ser.ATCommand(pdu+#26);
Nemuze ten byte prijit drive nez je zavolano RecvByte (ted to bohuzel
nemuzu vyzkouset)? Napr. T610 via bluetooth reaguje prakticky "ihned", S35
si dava uz trosku nacas (cca 1s).
Roman
Pridani metody za behu programu
[*] Martin Cajbik <cajbik(zv)sct.sk> - 2.8.2004 14:05:19
Jasne ze ide, iba je nutne spravne definovat parametre obsluhy:
...
procedure ObsluhaMouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer);
...
Button.OnMouseMove:= ObsluhaMouseMove;
...
Martin Cajbik
david(zv)nj.hcv(tec)cz wrote:
>Nevite jen tak nahodou nekdo jak za behu programu vytvorit metodu..napr.Mam tlacitko a ja si za behu zvolim zda-li to bude Button.OnMouseDown nebo OnMouseMove a ja chci nejakym zpusobem rict ze mam nejakou proceduru ale jeji volani dam bud do MouseDown nebo MouseMove .Jestli to vubec jde....Treba OnMouseMove:=NajetiMysi();
>
pomalost Firebirdu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 2.8.2004 14:03:18
On 2 Aug 2004 at 13:37, Pavel Hora wrote:
> Jak se da zjistit provadeci plan ve Firebirdu ?
V ISQL prikazem SET PLAN ON. U nasledujicich prikazu je pak vypsan i
plan. Nektere nastroje (jako napr IBExpert) jej zobrazuji
automaticky.
S pozdrave
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Pridani metody za behu programu
[*] david(zv)nj.hcv(tec)cz - 2.8.2004 13:55:16
Nevite jen tak nahodou nekdo jak za behu programu vytvorit metodu..napr.Mam tlacitko a ja si za behu zvolim zda-li to bude Button.OnMouseDown nebo OnMouseMove a ja chci nejakym zpusobem rict ze mam nejakou proceduru ale jeji volani dam bud do MouseDown nebo MouseMove .Jestli to vubec jde....Treba OnMouseMove:=NajetiMysi();
****************************
David Go+AVk-ula, HCV group a.s.
Van+AQ0-urova 40,Nov+AP0- Ji+AQ0A7Q-n
www.nj.hcv(tec)cz/maddave/
www.hcv(tec)cz
SMS pres NOKIA 7650
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 2.8.2004 13:53:15
Hm, ta odpoved prijde tak do 1-2 s ... jde presne o to, az mobil
zpracuje poyadavek ...
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Lukas Gebauer
Sent: Monday, August 02, 2004 1:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
No, nechytil jsem zacatek, ale predpokladam, ze to cekani na znak
neni nikterak prehnane dlouhe, jde spise na cekani nez mobil zpracuje
ten pozadavek, ne?
Pak totiz nemusis cekat na nic, rovnou po odeslani dat muzes zavolat
treba RecvByte(5000), Synaser pocka na ten znak za tebe! Mnou uvadeny
priklad znamena, ze synaser bude cekat na ten jeden byte dat po dobu
maximalne 5 vterin. pokud do peti vterin neprijde odpoved, budes mit
v lasterror chybu timeoutu. (pochopitelne, pokud je 5 vterin malo,
nastav si tam kolik potrebujes.)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.
SMS pres NOKIA 7650
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 2.8.2004 13:43:13
> > Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
> > odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
> > pdu[1] + #26
>
> Jak toho cekani na znak dosahnout pomoci Synaser?
No, nechytil jsem zacatek, ale predpokladam, ze to cekani na znak
neni nikterak prehnane dlouhe, jde spise na cekani nez mobil zpracuje
ten pozadavek, ne?
Pak totiz nemusis cekat na nic, rovnou po odeslani dat muzes zavolat
treba RecvByte(5000), Synaser pocka na ten znak za tebe! Mnou uvadeny
priklad znamena, ze synaser bude cekat na ten jeden byte dat po dobu
maximalne 5 vterin. pokud do peti vterin neprijde odpoved, budes mit
v lasterror chybu timeoutu. (pochopitelne, pokud je 5 vterin malo,
nastav si tam kolik potrebujes.)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.StoredProc a navrat hodnot
[*] Jiri Fait <develop(zv)lmss(tec)cz> - 2.8.2004 13:21:09
Nemuzu prijit na zpusob jak komponentou TIBStoredProc dostat vystupni data z
ulozene procedury.
... Kus kodu:
if skldata.spUpdPopisy.Prepared then
skldata.spUpdPopisy.Unprepare;
skldata.spUpdPopisy.Prepare;
skldata.spUpdPopisy.ParamByName('vstup_kod').AsString :=
skldata.dtProvedeniKOD.AsString;
skldata.spUpdPopisy.ExecProc;
Procedure probehne ale vystupni parametry (i pole) zustavaji prazdne.
Co je blbe?
Jirka
Delphi 7
Firebird 1.5
IBO (zkousel jsem to i s IBExpres)
SMS pres NOKIA 7650
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 2.8.2004 13:21:10
Tak to ti neporadim, synaser neznam ... pouzivam komponentu TCommPort a
tam je udalost OnReceive ...
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Roman
Sent: Monday, August 02, 2004 12:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
> Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
> odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
> pdu[1] + #26
Jak toho cekani na znak dosahnout pomoci Synaser?
Roman
pomalost Firebirdu
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 2.8.2004 13:37:12
Jak se da zjistit provadeci plan ve Firebirdu ?
______________________________________________________________
> Od: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Fri, 30 Jul 2004 09:44:12 +0200
> Predmet: Re: pomalost Firebirdu
>
> Haj hou!
>
> On 29 Jul 2004 at 10:45, Josef Zahoralek wrote:
>
> > mam na jednom PC nainstalovan Firebird 1.5.1 (superserver) a MSDE na obou
> > vytvorenou databazi s tabulkou stroje ktera ma asi 13000000 zaznamu - pokud
> > udelam select:
> >
> > SELECT *
> > FROM stroje
> > WHERE (new_value LIKE '%Oprava stroje%') AND (machine = 210)
> >
> > tak na Firebirdu to trva asi 1,5 minuty a na MSDE asi 2 vteriny, Firebird si
> > vezme asi 9,5 MB RAM a MSDE 380 MB (na PC je 1 GB RAM a Windows2000)
>
> Predpokladam, ze zaznamu s (machine = 210) je jen par a je na nem
> index ? Pak chapu proc to MSDE trva 2s, ale nechapu, proc to FB trva
> 1.5min. Leda ze by db pro Firebird nemela index na machine ? Muzes
> pro zajimavost napsat jaky provadeci plan Firebird pouzil ?
>
> S pozdravem
> Pavel Cisar (ICQ: 89017288)
> Mobil: 724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
>
>
>
>
--------------------
Leto a sport bez zabran s jednodennimi cockami Focus Dailies! Hrajte letni
SMS hru o pulrocni zasobu cocek Focus Dailies! Vice na http://user.centrum(tec)cz/redir.php?url=http://www(tec)cz.cibavision.com
SMS pres NOKIA 7650
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 2.8.2004 12:53:06
> Staci kdyz nastavis parametry hyperterminalu tak jak potrebujes a pak
> jen pises do okna napr. ATI0 ENTER a cekal na odpoved od mobilu
>
> Jinak problem mas v tom, ze mobilu toho cpes moc naraz !!!
>
> Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
> odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
> pdu[1] + #26
Jak toho cekani na znak dosahnout pomoci Synaser?
Roman
SMS pres NOKIA 7650
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 2.8.2004 13:05:07
> pdu := Text2pdu1.texttosms('+420602909909','+420723401815','prvni SMS');
> Jen nevim co je pdu[2] a pdu[1] .... pdu[2] by mela byt delka sms a
> pdu[1] vlastni obsah sms ...
Tohle take nevim, jenom bych upresnil, ze pdu[2] by mela byt delka PDU
v bajtech bez SMSC hlavicky, a pdu[1] vlastni PDU vcetne SMSC hlavicky ...
Daniel
---------------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Ikona v systemove liste
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 2.8.2004 12:51:05
do inicializace aplikace dej tento kod :
FTaskBarMessage := RegisterWindowMessage('TASKBARCREATED');
a do hlavniho formulare dej toto :
procedure THlavniForm.WndProc(var Message: TMessage);
begin
if Message.Msg = FTaskBarMessage then
begin
// sem soupni kod pro znovuvytvoreni trayikony
end;
inherited WndProc(Message);
end;
musi byt instalovan IE4.0 a vyssi
Marian
> -----Original Message-----
> From: Frantisek Mlcoch [mailto:frantisek.mlcoch(zv)vsb(tec)cz]
> Sent: Monday, August 02, 2004 12:58 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Ikona v systemove liste
>
>
> Zdravim,
>
> pro zobrazeni ikony v systemove liste pouzivam componentu
> CoolTrayIcon. Jenze kdyz spadne explorer.exe (desktop), tak
> ikona z listy zmizi. Nevite jestli jde nejakym zpusobem
> poznat, ze explorer padnul a tu ikonu na tu listu zase dostat?
>
> F.
SMS pres NOKIA 7650
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 2.8.2004 12:45:04
Staci kdyz nastavis parametry hyperterminalu tak jak potrebujes a pak
jen pises do okna napr. ATI0 ENTER a cekal na odpoved od mobilu
Jinak problem mas v tom, ze mobilu toho cpes moc naraz !!!
Musis mu poslat 'AT+CMGS=' + pdu[2] + #13 , potom pockat na jeho
odpoved, tj. mobil ti hodi znak ">" a teprve potom mu muzes poslat
pdu[1] + #26
Jen nevim co je pdu[2] a pdu[1] .... pdu[2] by mela byt delka sms a
pdu[1] vlastni obsah sms ...
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel Z.
Sent: Monday, August 02, 2004 12:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
Promin, ale nevidim nikde v Hyperteminalu moznost odesilat AT prikazy k
nalezene nokii. Delam to poprve, tak neznam vse.
Jak jsem uvedl tu proceduru, tak
Prikaz com.ATCommand('AT+CMGL=1' ); probehne ok
Az
pdu := Text2pdu1.texttosms('+420602909909','+420723401815','prvni SMS');
memo1.Lines.Add('sms pdu format :'+pdu[1]);
memo1.Lines.Add('delka sms :'+pdu[2]);
com.ATCommand('AT+CMGS='+pdu[2]+#13+pdu[1]+#26);
tady to neprobehne ok
P.
SMS pres NOKIA 7650
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 2.8.2004 12:31:02
Zkousel jsem to s vice mobily a spolehlive chodilo 19200 kbps ...
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Novak
Sent: Monday, August 02, 2004 10:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
> com.config(115200, 8, 'N', 0, false, true);
Umi ta Nokia tolik? Zkus 57600
SMS pres NOKIA 7650
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 2.8.2004 12:29:01
Promin, ale nevidim nikde v Hyperteminalu moznost odesilat AT prikazy k
nalezene nokii. Delam to poprve, tak neznam vse.
Jak jsem uvedl tu proceduru, tak
Prikaz com.ATCommand('AT+CMGL=1' ); probehne ok
Az
pdu := Text2pdu1.texttosms('+420602909909','+420723401815','prvni SMS');
memo1.Lines.Add('sms pdu format :'+pdu[1]);
memo1.Lines.Add('delka sms :'+pdu[2]);
com.ATCommand('AT+CMGS='+pdu[2]+#13+pdu[1]+#26);
tady to neprobehne ok
P.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Novak
Sent: Monday, August 02, 2004 10:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SMS pres NOKIA 7650
> com.config(115200, 8, 'N', 0, false, true);
Umi ta Nokia tolik? Zkus 57600
Pripoj se hyperterminalem a zkus ty AT prikazy napsat rucne. Kdyz se
nedovtipis sam, tak v dalsim dotazu je potreba presne uvest ty
odpovedi.
Nestaci jen rict 'nejde to', je potreba napsat ' v tomto okamziku
misto ocekavaneho ... se stalo ...'Offline serialy Delphi - Kadlec & Sindelar
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.8.2004 11:50:57
Ahoj vsem, na zaklade touzebnych prani uzivatelu jsem do %subj% pridal i
moznost vyhledavani, je to ke stazeni na mych strankach http://brant.wz(tec)cz.
Jo a zaslechl jsem neco o "novem" formatu pro napovedu, je to nejakym
zpusobem kompatibilni s tim dosavadnim CHM? Nemam bohuzel cas to zjistovat a
studovat, takze kdyby nekdo vedel, sem s tim.
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
Automaticke stahovani kurzu men
[*] Michal Hlavac <hlavki(zv)medium13.sk> - 2.8.2004 11:30:55
David Klodner wrote:
> Zdravim konferenci,
>
> potreboval bych do sve aplikace automaticky kazdy den stahovat kurz
> eura, dolaru apod.
> Nevite nekdo, jak to udelat? Neznate nejaky server odkud to jde?
>
http://wdb.cnb(tec)cz/CNB_TXT/KURZY.K_CURRTXT pre cesku republiku
http://www.nbs.sk/KL/FORMATS.HTM pre slovensku republiku
hlk
Automaticke stahovani kurzu men
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 2.8.2004 11:24:53
Zdravim konferenci,
potreboval bych do sve aplikace automaticky kazdy den stahovat kurz
eura, dolaru apod.
Nevite nekdo, jak to udelat? Neznate nejaky server odkud to jde?
David Klodner
Ikona v systemove liste
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.8.2004 11:14:52
Puvodni zprava ze dne 2.8.2004:
> Jenze problem s Windows ma jedine resene. Odinstalovat a dat jiny,
> slusny operacni system.
Moooc vtipny. Priste to pis nekam jinam a ne sem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Velikost zaskrtavatka v checkboxu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.8.2004 11:10:51
Ahoj,
koukal jsem na funkci GetSystemMetrics, ktera umoznuje ziskat spoustu udaju jako
sirku ruznych okraju atd. atd. Neexistuje nejaka moznost, jak takto legalne zjistit
velikost zaskrtavatka v checkboxu? Potrebuji v programu z kodu zalozit TCheckBox,
ktery bude mit nejmensi moznou sirku. Vi se, ze WinXP maji narozdil od svych
predchudcu rozmernejsi titulkovy pruh a zrejme i okraj okna a tak je otazka, kdy nekoho
napadne v dalsich verzich upravit i standardni vzhled checkboxu. V GetSystemMetrics
jsem to nenasel. Jde vubec o zjistitelny udaj?
David Lebeda
SMS pres NOKIA 7650
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 2.8.2004 10:56:49
> com.config(115200, 8, 'N', 0, false, true);
Umi ta Nokia tolik? Zkus 57600
Pripoj se hyperterminalem a zkus ty AT prikazy napsat rucne. Kdyz se
nedovtipis sam, tak v dalsim dotazu je potreba presne uvest ty
odpovedi.
Nestaci jen rict 'nejde to', je potreba napsat ' v tomto okamziku
misto ocekavaneho ... se stalo ...'Ikona v systemove liste
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 2.8.2004 10:14:44
> Jenze problem s Windows ma jedine resene. Odinstalovat a dat jiny,
> slusny operacni system.
> --
> Milos J. Hrach, D6 profi, WinXP Home
Tak to se mi libi: radit nekomu delat neco, co sam nedelam.
Pavel
Kody tiskaren
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 2.8.2004 09:54:41
omlouvam se patrilo to jinam
> diky
Kody tiskaren
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 2.8.2004 09:52:41
diky
Trideni v kbmMemTable
[*] Jaromir Solar <solar(zv)magion(tec)cz> - 2.8.2004 09:44:34
> je mozne tridit v kbmMemTable podle vice sloupcu tak, aby se tridilo
> podle jednoho vzestupne a pak podle dalsiho sestupne? Jestli jo,
> poradite prosim jak?
Ano jde dvemi zpusoby:
1) vytvorenim indexu a spedifikaci, ktera polozka DescFields
2) primo v metode SortOn ve vyctu polozek za sestupnou napsat :D
(napr.xxx.SortOn('prvni;druha:D;treti'...). Vice viz metoda
TkbmCustomMemTable.BuildFieldList.
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316