Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
string Grid
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 6.7.2005 23:43:37
Zdravim,
nevite nekdo o nejake vylepsene verzi komponenty StringGrid, u ktere by se dalo do jedne bunky psat do vice radku a daly se vybirat ruzne bunky (select), pripadne se dal nastavit ruzny font pro fixed a pro ostatni bunky? Nejlepe free. Zkousel jsem StringGrid z JVCL, ale help je chudy a na nic moc jsem neprisel. Nejlepsi by bylo, kdyby jste nekdo vedel jak dosahnout vyse popsaneho u teto verze StringGridu (z JVCL).
Dekuji.Vypnuti/Zapnuti Sie pres COM
[*] Milos Sontak <delphi(zv)sonsoft(tec)net> - 6.7.2005 22:57:34
zdravim,
vypnout se da pomoci AT prikazu napr.
VaComm1.WriteText('AT^SMSO'+#13);
vice se da najit v AT prikazech od Siemense nebo napr clanek na builderu
http://www.builder(tec)cz/art/delphi/serial3.html
Bc. Jiri Cincura wrote:
> Ahoj,
>
> nemate nekdo ukazku kodu, jak vypnout a zapnout Siemens telefon pres COM
> port?
>
> Diky moc.
>
>
Vypnuti/Zapnuti Sie pres COM
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.7.2005 20:55:25
Ahoj,
nemate nekdo ukazku kodu, jak vypnout a zapnout Siemens telefon pres COM
port?
Diky moc.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/ Jak odhytnout maximalizaci kterehokoli okna aplika
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.7.2005 19:33:13
Cituji z emailu od Ludek <konference(zv)sales(tec)cz>:
> Zkus hlavnimu oknu dat align alTop a tem dalsim alClient.
Ahoj,
diky - je pravda, ze okno se pak chova do jiste miry tak, jak bych si
predstavoval (neprekryje hlavni okno), ale: 1. nejde obnovit/"maximalizovat" -
vyplni ihned cely volny prostor. 2. kdyz je "maximalizovano" a uzivatel zmeni
jeho velikost, okno se vrati zpatky do velikosti puvodni ("maximalizovane"),
ale ovladaci prvky v okne zustanou srazene, jako kdyby okno bylo mensi -
evidentne nejaky bug ve VCL (Delphi 5).
Kazdopadne diky za namet, zkusim badat ve VCL - dosud jsem si nejak neuvedomil,
ze i cely tForm ma property Align...
Diky,
Karel Rys
Jak odhytnout maximalizaci kterehokoli okna aplika
[*] Ludek <konference(zv)sales(tec)cz> - 6.7.2005 16:14:59
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> mam aplikaci, ktera ma hlavni okno podobne jako Delphi, pak se oteviraji
dalsi
> okna podle potreby. Potreboval bych nejak docilit toho, ze kdyz kterekoli
okno
> chce uzivatel maximalizovat, vyplni okno jen prostor pod mym hlavnim
oknem,
> tak, aby nebylo hlavni okno prekryto. Nevite prosim o rozumnem zpusobu,
jak
> toho dosahnout, aniz by se to muselo osetrovat ve vsech formech a pokud
mozno
> aby se nemusela tvorit nova komponenta odvozena od tForm?
>
Ahoj,
Zkus hlavnimu oknu dat align alTop a tem dalsim alClient.
Ludek
Problem s indy FTP
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 6.7.2005 01:11:53
Jak pripojit IndyFTP pres Socks, kdyz v komponente nejde nijak navolit ? Podporuje Indy Socks?
JB
Jak odhytnout maximalizaci kterehokoli okna aplika
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.7.2005 12:48:59
Pekny den,
mam aplikaci, ktera ma hlavni okno podobne jako Delphi, pak se oteviraji dalsi
okna podle potreby. Potreboval bych nejak docilit toho, ze kdyz kterekoli okno
chce uzivatel maximalizovat, vyplni okno jen prostor pod mym hlavnim oknem,
tak, aby nebylo hlavni okno prekryto. Nevite prosim o rozumnem zpusobu, jak
toho dosahnout, aniz by se to muselo osetrovat ve vsech formech a pokud mozno
aby se nemusela tvorit nova komponenta odvozena od tForm?
Diky,
Karel Rys
TWAIN a Multipage TIFF
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 5.7.2005 09:14:39
> Hi all,
> Potreboval by som nakopnut po akych unitach sa mam obhliadnut
> na urobenie tohto zadania:
> Potrebujem pomocou TWAIN naskenovat zopar (cca 20) A4 (cb,
> farebne) pricom tieto chcem ulozit do Mutipage TIFFka a
> kompresiou LZW Viete mi niekto poradit ako na to v Delphi5?
Na www.sinea(tec)cz jsem nekdy videl nejake free komponenty pro TWAIN.Delphi help
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 4.7.2005 20:41:44
Ahoj
Nainstaloval som si Update3 na Delphi2005. Od toho casu mi nezobrazuje
help. Skusal som aj obnovit help
c:\Program Files\Borland\BDS\3.0\Help\Common\regHelp 7
no bezuspesne. Priklad spustenia helpu
ms-help://borland.bds3/bds3start/html/intro.htm
cesta kde je dany subor ulozeny je D:\Program
Files\Borland\BDS\3.0\Help\Common\bds3start.*
Ma niekto podobne skusenosti alebo napad ako rozchodit opat help ?
S pozdravom
Ing. Keder Streaming hodnot Variant
[*] Jiri Kulisek <jikulich(zv)quick(tec)cz> - 4.7.2005 19:03:37
Ahoj,
moje prvni kroky pri hledani reseni take vedly do do Jedi:-), ale mam dojem,
ze tyhle metody v JclCOM jsou urceny pouze pro streaming jednorozmerneho
array of Byte, treba pro array of Variant nebo vicerozmerna pole by to asi
nefungovalo..
Kazdopadne diky, Jirka.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Josef Kyn
Sent: Monday, July 04, 2005 5:27 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Streaming hodnot Variant
JclCOM z Jedi
Streaming hodnot Variant
[*] Jiri Kulisek <jikulich(zv)quick(tec)cz> - 4.7.2005 17:45:30
Ahoj,
Diky za tip, dival jsem na to, vypada to jako dobry navod.
Jirka
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Ondrej Kelle
Sent: Monday, July 04, 2005 4:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Streaming hodnot Variant
> nevite nekdo o jednoduchem a sikovnem zpusobu pro obecny a univerzalni
> streaming hodnot typu Variant/OleVariant ? Mam na mysli neco jako
>
> - procedure VariantToStream(AValue: Variant; Stream: TStream);
> - function VariantFromStream(AStream: TStream): Variant;
>
> Potrebuji, aby to umelo streamovat libovolny VarType, tj.
> single types,
> stejne jako variant arrays.
Ak mas prislusnu verziu Delphi (tusim Enterprise), pozri si SConnect.pas.
Najdes tam TDataBlockInterpreter, ktory ma na starosti marshalling pre
DataSnap.
Zvlada vsetky bezne automation-compatible typy variantov a tiez polia.
HTH
TOndrej
Streaming hodnot Variant
[*] Josef Kyn <jkyn(zv)iol(tec)cz> - 4.7.2005 17:27:28
JclCOM z Jedi
Ahoj,
nevite nekdo o jednoduchem a sikovnem zpusobu pro obecny a univerzalni
streaming hodnot typu Variant/OleVariant ? Mam na mysli neco jako
- procedure VariantToStream(AValue: Variant; Stream: TStream);
- function VariantFromStream(AStream: TStream): Variant;
Potrebuji, aby to umelo streamovat libovolny VarType, tj. single types,
stejne jako variant arrays.
V modulu pro sitovou komunikaci (jednoduche RPC) musim pribalovat Varianty
do odesilanych streamu a na druhe strane je zase obnovovat a v kontextu
tohoto modulu me vubec nezajima, co v tom Variantu vlastne je - jen musim
zarucit jeho spravne odeslani a prijem.
Urcite neco takoveho existuje, mozna i ve Win32 API, ale reseni, na ktera
jsem zatim narazil me nevyhovuji. COM/DCOM to prece taky musi nejak delat,
kdyz po siti marshaluje parametry pri volani metod vzdalenych objektu..
Diky za kazdou informaci, Jirka.
Streaming hodnot Variant
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.7.2005 16:43:23
> nevite nekdo o jednoduchem a sikovnem zpusobu pro obecny a univerzalni
> streaming hodnot typu Variant/OleVariant ? Mam na mysli neco jako
>
> - procedure VariantToStream(AValue: Variant; Stream: TStream);
> - function VariantFromStream(AStream: TStream): Variant;
>
> Potrebuji, aby to umelo streamovat libovolny VarType, tj.
> single types,
> stejne jako variant arrays.
Ak mas prislusnu verziu Delphi (tusim Enterprise), pozri si SConnect.pas.
Najdes tam TDataBlockInterpreter, ktory ma na starosti marshalling pre
DataSnap.
Zvlada vsetky bezne automation-compatible typy variantov a tiez polia.
HTH
TOndrej
ukoncenie aplikacie po urcitom case necinnosti
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 4.7.2005 16:35:22
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of PCservis
> Skloform a.s.
Ahoj,
> Pokud jde o sledovani uzivatele pres mys nebo klavesnici, tak
> se da s uspechem pouzit toto:
>
> interval, last_msg_date, cas_rozdil: TDateTime;
> interval:= StrToTime('0:10');
>
> procedure Timer_msgTimer(Sender: TObject);
> begin
> // u vypoctu delsich nez casovy interval by to chtelo timer vypinat
> cas_rozdil:= Now - last_msg_date;
> if cas_rozdil > interval then... // NIC NEDELAS, ZAVIRAM!
> end;
>
> // komponenta ApplicationEventsMessage (zalozka Additional)
> procedure ApplicationEvents1Message(var Msg: tagMSG; var
> Handled: Boolean);
> begin
> case msg.message of
> WM_keydown, WM_LBUTTONDOWN, WM_MBUTTONDOWN,
> WM_RBUTTONDOWN, WM_MOUSEWHEEL,WM_MOUSEMOVE: last_msg_date:= Now;
> end;
> end;
a propo, nemelo byt na konci EvnetsMsg byt jeste inherited ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Streaming hodnot Variant
[*] Jiri Kulisek <jikulich(zv)quick(tec)cz> - 4.7.2005 16:31:20
Ahoj,
nevite nekdo o jednoduchem a sikovnem zpusobu pro obecny a univerzalni
streaming hodnot typu Variant/OleVariant ? Mam na mysli neco jako
- procedure VariantToStream(AValue: Variant; Stream: TStream);
- function VariantFromStream(AStream: TStream): Variant;
Potrebuji, aby to umelo streamovat libovolny VarType, tj. single types,
stejne jako variant arrays.
V modulu pro sitovou komunikaci (jednoduche RPC) musim pribalovat Varianty
do odesilanych streamu a na druhe strane je zase obnovovat a v kontextu
tohoto modulu me vubec nezajima, co v tom Variantu vlastne je - jen musim
zarucit jeho spravne odeslani a prijem.
Urcite neco takoveho existuje, mozna i ve Win32 API, ale reseni, na ktera
jsem zatim narazil me nevyhovuji. COM/DCOM to prece taky musi nejak delat,
kdyz po siti marshaluje parametry pri volani metod vzdalenych objektu..
Diky za kazdou informaci, Jirka.ukoncenie aplikacie po urcitom case necinnosti
[*] PCservis Skloform a.s. <pcservis(zv)skloform(tec)cz> - 4.7.2005 16:05:19
> potreboval by som ukoncit aplikaciu ak uzivatel povedzme s nou nic 10 min
> nerobil . Ako na to ?
Pekny den!
Pokud jde o sledovani uzivatele pres mys nebo klavesnici, tak se da s uspechem pouzit toto:
interval, last_msg_date, cas_rozdil: TDateTime;
interval:= StrToTime('0:10');
procedure Timer_msgTimer(Sender: TObject);
begin
// u vypoctu delsich nez casovy interval by to chtelo timer vypinat
cas_rozdil:= Now - last_msg_date;
if cas_rozdil > interval then... // NIC NEDELAS, ZAVIRAM!
end;
// komponenta ApplicationEventsMessage (zalozka Additional)
procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
case msg.message of
WM_keydown, WM_LBUTTONDOWN, WM_MBUTTONDOWN,
WM_RBUTTONDOWN, WM_MOUSEWHEEL,WM_MOUSEMOVE: last_msg_date:= Now;
end;
end;
Jirka
ADMIN: ukoncenie aplikacie po urcitom case necinno
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.7.2005 15:01:12
Puvodni zprava ze dne 4.7.2005:
> SetWindowsHookEx Function
> S pozdravem
> Tomas Rosa
Nooo, to je nadhera, ze nam tu kopirujes kus API. Presne to kazdy chce
dostavat do sve schranky a po nicem jinem netouzi. Ber to jako
napomenuti.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ukoncenie aplikacie po urcitom case necinnosti
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 4.7.2005 14:25:09
SetWindowsHookEx Function
The SetWindowsHookEx function installs an application-defined hook
procedure into a hook chain. You would install a hook procedure to monitor
the system for certain types of events. These events are associated either
with a specific thread or with all threads in the same desktop as the
calling thread.
Syntax
HHOOK SetWindowsHookEx( int idHook,
HOOKPROC lpfn,
HINSTANCE hMod,
DWORD dwThreadId
);
Parameters
idHook
[in] Specifies the type of hook procedure to be installed. This
parameter can be one of the following values.
WH_CALLWNDPROC
Installs a hook procedure that monitors messages before the system
sends them to the destination window procedure. For more information, see
the CallWndProc hook procedure.
WH_CALLWNDPROCRET
Installs a hook procedure that monitors messages after they have
been processed by the destination window procedure. For more information,
see the CallWndRetProc hook procedure.
WH_CBT
Installs a hook procedure that receives notifications useful to a
computer-based training (CBT) application. For more information, see the
CBTProc hook procedure.
WH_DEBUG
Installs a hook procedure useful for debugging other hook
procedures. For more information, see the DebugProc hook procedure.
WH_FOREGROUNDIDLE
Installs a hook procedure that will be called when the
application's foreground thread is about to become idle. This hook is
useful for performing low priority tasks during idle time. For more
information, see the ForegroundIdleProc hook procedure.
WH_GETMESSAGE
Installs a hook procedure that monitors messages posted to a
message queue. For more information, see the GetMsgProc hook procedure.
WH_JOURNALPLAYBACK
Installs a hook procedure that posts messages previously recorded
by a WH_JOURNALRECORD hook procedure. For more information, see the
JournalPlaybackProc hook procedure.
WH_JOURNALRECORD
Installs a hook procedure that records input messages posted to
the system message queue. This hook is useful for recording macros. For
more information, see the JournalRecordProc hook procedure.
WH_KEYBOARD
Installs a hook procedure that monitors keystroke messages. For
more information, see the KeyboardProc hook procedure.
WH_KEYBOARD_LL
Windows NT/2000/XP: Installs a hook procedure that monitors
low-level keyboard input events. For more information, see the
LowLevelKeyboardProc hook procedure.
WH_MOUSE
Installs a hook procedure that monitors mouse messages. For more
information, see the MouseProc hook procedure.
WH_MOUSE_LL
Windows NT/2000/XP: Installs a hook procedure that monitors
low-level mouse input events. For more information, see the
LowLevelMouseProc hook procedure.
WH_MSGFILTER
Installs a hook procedure that monitors messages generated as a
result of an input event in a dialog box, message box, menu, or scroll bar.
For more information, see the
MessageProc hook procedure.
WH_SHELL
Installs a hook procedure that receives notifications useful to
shell applications. For more information, see the ShellProc hook procedure.
WH_SYSMSGFILTER
Installs a hook procedure that monitors messages generated as a
result of an input event in a dialog box, message box, menu, or scroll bar.
The hook procedure monitors these messages for all applications in the same
desktop as the calling thread. For more information, see the SysMsgProc
hook procedure.
jinymi slovy - monitoruje udalosti ve windows. Takze muzes sledovat mys ci
klavesnici bez ohledu na to v jake aplikaci se to deje (toto dela treba
ICQ, aby zjistilo ze u pocitace nesedis a ma te hodit away) a nebo muzes
sledovat jen svoji aplikaci.
At 13:59 4.7.2005, you wrote:
>mozes mi trochu vysvetlit co je to hook ?
>
> > No, volat pokazde prikaz Robim je docela komplikovane. Me osobne se zda
> > zajimavejsi reseni pres Hook (pokud je to Hook pouze na moji aplikaci, 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
---------------------------------------------------------------------------
ukoncenie aplikacie po urcitom case necinnosti
[*] mato <mato.tino(zv)inmail.sk> - 4.7.2005 13:59:02
mozes mi trochu vysvetlit co je to hook ?> No, volat pokazde prikaz Robim je docela komplikovane. Me osobne se zda
> zajimavejsi reseni pres Hook (pokud je to Hook pouze na moji aplikaci,
ukoncenie aplikacie po urcitom case necinnosti
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 4.7.2005 13:28:57
No, volat pokazde prikaz Robim je docela komplikovane. Me osobne se zda
zajimavejsi reseni pres Hook (pokud je to Hook pouze na moji aplikaci,
nemusi byt v DLL) - toto jsou kousky kodu vykopirovane z jineho projektu,
takze je potreba dohledat spravne parametry pro fce SetWindowsHookEx,
protoze toto je hook pro cela wokna a ty chces jen pro svoji aplikaci
KeyHook := SetWindowsHookEx(WH_KEYBOARD, (zv)KeyHook, hInstance, 0);
MouseHook := SetWindowsHookEx(WH_MOUSE, (zv)MouseHook, hInstance, 0);
..
UnHookWindowsHookEx(KeyHook);
UnHookWindowsHookEx(MouseHook);
{---------------------------------------}
function KeyHook(code: integer; wParam: word; lParam: longword): longword;
stdcall;
begin
if (code = HC_ACTION) and ((HiWord(lParam) AND KF_UP) <> 0) then
LastTick := GetTickCount();
Result := CallNextHookEx(KeyHook, code, wParam, lParam);
end;
{---------------------------------------}
function MouseHook(code: integer; wParam: word; lParam: longword):
longword; stdcall;
begin
if (code = HC_ACTION) then LastTick := GetTickCount();
Result := CallNextHookEx(MouseHook, code, wParam, lParam);
end;
no a v promenne "LastTick" mas posledni "Tick" kdy nastala nejaka zmena ve
tve APP - tedy pohyb mysi, zmaknuti klavesnice. Takze pak staci v nejakem
OnTimer, ci OnIdle kontrolovat tento pocet a pokud dosahne prislusneho
poctu, ustrelis aplikaci. Samorejmne ze namisto GetTickCount() muzes dat
zjisteni casu a podobne.>procedure TForm1.Robim; // vsade kde sa daco naozaj robi, volaj Robim
>begin
> Timer1.Enabled:=False;
>end;
>
> > potreboval by som ukoncit aplikaciu ak uzivatel povedzme s nou nic 10 min
> > nerobil . Ako na to ? 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
---------------------------------------------------------------------------
TWAIN a Multipage TIFF
[*] mstevlik(zv)gamo.sk - 4.7.2005 13:26:57
Hi all,
Potreboval by som nakopnut po akych unitach sa mam obhliadnut na urobenie
tohto zadania:
Potrebujem pomocou TWAIN naskenovat zopar (cca 20) A4 (cb, farebne) pricom
tieto chcem ulozit do Mutipage TIFFka a kompresiou LZW
Viete mi niekto poradit ako na to v Delphi5?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
ukoncenie aplikacie po urcitom case necinnosti
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 4.7.2005 13:14:56
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
Application.OnIdle:= CakaSa;
end;
procedure TForm1.CakaSa(Sender: TObject; var Done: Boolean);
begin
Timer1.Interval := 600000; // ms = 10 minut
Timer1.Enabled:=True;
end;
procedure TForm1.Robim; // vsade kde sa daco naozaj robi, volaj Robim
begin
Timer1.Enabled:=False;
end;
procedure TForm1.Timer1.Timer(Sender: TObejct)
begin
Application.Terminate // to je sproste, iba priklad; proste nejak
kulturne ukoncit aplikaciu
end;
----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 04, 2005 12:04 PM
Subject: ukoncenie aplikacie po urcitom case necinnosti
> zdravim, D6
>
> potreboval by som ukoncit aplikaciu ak uzivatel povedzme s nou nic 10 min
> nerobil . Ako na to ?
> dik
>
>
>
>
> ukoncenie aplikacie po urcitom case necinnosti
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 4.7.2005 12:46:53
Ahoj,
mato napsal(a):
> potreboval by som ukoncit aplikaciu ak uzivatel povedzme s nou nic 10 min
> nerobil. Ako na to ?
zkusil bych neco napsat v udalosti on Application.OnIdle.
Peca
ukoncenie aplikacie po urcitom case necinnosti
[*] mato <mato.tino(zv)inmail.sk> - 4.7.2005 12:04:50
zdravim, D6
potreboval by som ukoncit aplikaciu ak uzivatel povedzme s nou nic 10 min
nerobil . Ako na to ?
dik
Infra, IDr
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 4.7.2005 12:00:49
Jeste k tomu ze IrDA je jako TCP doplnuju,
pomoci TCP se samozrejme da postavit virtualni COM port,
a heslo pro googlovani i v Platform SDK je IrCOMM.
Jarda
----- Original Message -----
From: "Benda Lukas" <bendal(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 01, 2005 1:09 PM
Subject: Re: Infra, IDr
> Ludek napsal(a):
>
>>Ahoj,
>>Neni to nahodou tak, ze se s tim pracuje jako s normalnim COM portem ?Infra, IDr
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 4.7.2005 11:34:47
IrDA neni jako COM ale jako TCP/IP.
Je pristupna pomoci aparatu Winsock 2.
WSAstartup, Bind, Listen atd., viz Platform SDK.
Akorat koukam, koukam, ve Winsock.PAS (D7 pers) to nevidim,
takze holt si to zabalit do unity vlastnima rukama, co nadelas...
Jarda
----- Original Message -----
From: "Benda Lukas" <bendal(zv)volny(tec)cz>
> Ludek napsal(a):
>
>>Ahoj,
>>Neni to nahodou tak, ze se s tim pracuje jako s normalnim COM portem ?
>>
>>Ludek
>>
>
> Vypada to ze ne. Mam notebook a na nem PS/2, LPT1, USB a samozrejme
> Infraport. Chci se spojit s malym zarizenim pres Infraport. Dejme tomu
> ze to budu testovat s mobilem ME45.
>
> V nastaveni portu mam jenstli i COM1 (nevim teda cemu to odpovidat).
> Zkusim poslat AT prikaz do mobilniho telefonu, pres ruzne COM, ale ani v
> jednom pripade nedostanu odezvu.Update pohledu - vytvari se cely pohled? (FB)
[*] little_bobes(zv)centrum(tec)cz - 4.7.2005 09:28:38
Zdravim,
predelavam strukturu databaze ve FB, ve ktere mam pohledy, pres ktere (v
TDBGridu) jsem provadel editaci tabulek.
Nyni bych potreboval vedet, zda kdyz volam napr. tento SQL dotaz:
UPDATE POHLED_TABULKA
SET SL1 = 'AAA'
WHERE SL2 = 1
pricemz POHLED_TABULKA je view, jestli se se tento pohled generuje, nebo se
jen zavola prislusny Update Trigger.
V Triggeru toho pohledu totiz zjistuji, zda se ma do nejake tabulky vkladat
nebo do jine updatovat a nerad bych tuto logiku znovu vytvarel napr. v
Delphi nebo v PHP.
Predem dekuji za odpoved
S pozdravem
Bob (D4 c/s, FB1,5)
ScrollBar na Form
[*] Robert Fujak <robof(zv)inmail.sk> - 2.7.2005 17:33:43
Dakujem. Asi som uz prepracovany.
mal som na mysli Panel1 na Forme a v nom este Panel2 jeden a ten by sa
posuval. .
Samozrejme kombinacia Panel2.Top a ScrollBar.Position ma ani vo sne
nenapadla... a je to!!!
Dik
Robo.
> 2.7.2005 Robert Fujak:
>> Zdravim.
>> Viete ma prosim spravne nasmerovat na postup
>> vytvorenia formularu na ktorom je viacero komponent a daju posuvat
>> povedzme
>> vertikalnym ScrollBarom?
>> Nieco ako v IBExpert zobrazenie mriezky s datami ako "FormView"
>
> Na formular polozis TScrollBox
> Teprve na nej polozis neco, na cem budou ty komponenty
> Jakmile velikost "toho neceho" prekroci velikost TScrollBox, zobrazi
> se posuvniky
>
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)wo(tec)cz
>
>
ScrollBar na Form
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 2.7.2005 16:27:38
2.7.2005 Robert Fujak:
> Zdravim.
> Viete ma prosim spravne nasmerovat na postup
> vytvorenia formularu na ktorom je viacero komponent a daju posuvat povedzme
> vertikalnym ScrollBarom?
> Nieco ako v IBExpert zobrazenie mriezky s datami ako "FormView"
Na formular polozis TScrollBox
Teprve na nej polozis neco, na cem budou ty komponenty
Jakmile velikost "toho neceho" prekroci velikost TScrollBox, zobrazi
se posuvniky
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
ScrollBar na Form
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 2.7.2005 15:37:35
> Viete ma prosim spravne nasmerovat na postup
> vytvorenia formularu na ktorom je viacero komponent a daju posuvat
> povedzme vertikalnym ScrollBarom?
Co ti konkretne nefunguje?
Postup je:
1. vytvorim form
2. polozim na nej neco
3. posunu to mysi 'za roh'
4. dam run a tesim se z toho, jak si to pekne muzu scrollbarem
vytahnout 'spoza rohu'ScrollBar na Form
[*] Robert Fujak <robof(zv)inmail.sk> - 2.7.2005 15:17:32
Zdravim.
Viete ma prosim spravne nasmerovat na postup
vytvorenia formularu na ktorom je viacero komponent a daju posuvat povedzme
vertikalnym ScrollBarom?
Nieco ako v IBExpert zobrazenie mriezky s datami ako "FormView"
Dik
Robo.
D7
FB, kartezky soucin s procedurou
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 1.7.2005 15:15:44
> specifikace joinu, tak se pouzije inner join a ten zpusobuje
ne nepouzije, ten by se pouzil, pokud by existovala klausule where.
server v tomto pripade opravdu MUSI udelat kartezky soucin
(nxm).
Slavek
Data pro KonfView
[*] J.Hasek <cz602778(zv)tiscali(tec)cz> - 1.7.2005 14:55:42
Ahoj,
omlouvam se, ale na ftp.delphi(tec)cz jsem vlozil archiv s chybnym oznacenim:
Other/KonfViewData/2006_05D.rar
a nemam prava ke smazani. Prosim spravce o smazani.
Spravna verze
Other/KonfViewData/2005_06D.rar
je tam taky (tu nemazat).
Diky, zdravi
J. Hasek
FB, kartezky soucin s procedurou
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 1.7.2005 14:23:39
Dle mych zkusenosti mohu rici toto:
Pokud pouzijes vystup ze stored procedury pro nejaky join, tak musis pouzit
VZDY outer join (left nebo right) protoze jinak to hlasi presne tuto hlasku.
Pokud uvedes tabulky bez specifikace joinu, tak se pouzije inner join a ten
zpusobuje tuto chybu. Nevim proc to tak je, ale naucil jsem se s tim zit...
:D
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of petr palicka
> Sent: Friday, July 01, 2005 11:19 AM
>
> select
> P.ctverec_kod, B.Blok, B.Dil,
> P.datum, P.pozntisk, P.cisplodin_kod,
> B.nazev as nazev_bloku
> from
> plodina P,
> blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
ako pracovat na dvoch IB databazach sucasne?
[*] horky(zv)cominn(tec)cz - 1.7.2005 13:11:34
> From: Karol Chupek [mailto:chupek(zv)gmail.com]
> Som zaciatocnik v Interbase a chcem sa spytat ci existuje
> nieco take ako v Oracle dblink
> na pracu na dvoch a viac db sucasne.
> Ide mi o to ze v jednej Db mam ulozene nejake data a aj v druhej.
> potrebujem tieto data spojit a vytiahnut prikazom select .. ako na to?
Podle tipu 543 z knihy 1001TaT pro Delphi lze pracovat s vice databazemi pod jednou transakci. Pro presun dat z jedne DB do druhe by to mohlo stacit.
Btw. mate s tim nekdo praktickou zkusenost ?
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Infra, IDr
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 1.7.2005 13:09:33
Ludek napsal(a):
>Ahoj,
>Neni to nahodou tak, ze se s tim pracuje jako s normalnim COM portem ?
>
>Ludek
>
Vypada to ze ne. Mam notebook a na nem PS/2, LPT1, USB a samozrejme
Infraport. Chci se spojit s malym zarizenim pres Infraport. Dejme tomu
ze to budu testovat s mobilem ME45.
V nastaveni portu mam jenstli i COM1 (nevim teda cemu to odpovidat).
Zkusim poslat AT prikaz do mobilniho telefonu, pres ruzne COM, ale ani v
jednom pripade nedostanu odezvu.
Nemate nekdo nejaky zarucene fungujici priklad?FB, kartezky soucin s procedurou
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 1.7.2005 12:35:31
> left join na ciselnik vynecham, dostanu zajimavou hlasku: no current
> record for fetch operation.
Na 99.9% interni chyba FB, podivej se do bugtrackeru a pokud tam neni,
tak priprav test case (SQL skript, ktery vytvori DB, tabulky, SP a
provede
dotaz, kdy FB zahlasi tohle), ktery pripoj ke hlaseni one chyby.
A kdyby jsi chtel jeste vice pomoci, tak to otestuj s FB2.0 Alpha2 a
pokud
se bude chovat stejne, tak to reportuj do FB devel primo.
Slavek
ako pracovat na dvoch IB databazach sucasne?
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 1.7.2005 12:17:28
> Ide mi o to ze v jednej Db mam ulozene nejake data a aj v druhej.
> potrebujem tieto data spojit a vytiahnut prikazom select .. ako na to?
Na urovni FB to nejde, jedine v Delphi dve pripojeni an dve ruzne databaze a
data zpracovat programove.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 ako pracovat na dvoch IB databazach sucasne?
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 1.7.2005 11:59:26
Ahoj,
selecet pres dve databaze ve FB neudelas. Teoreticky by slo napsat
nejakou UDFku.
Peca
Firebird - zmena velikosti sloupce
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 1.7.2005 11:53:26
Ahoj,
Dalibor napsal(a):
> IBExpert vygeneruje tohle:
>
> update RDB$FIELDS set
> RDB$FIELD_LENGTH = 65,
> RDB$CHARACTER_LENGTH = 65,
> RDB$CHARACTER_SET_ID = -1
> where RDB$FIELD_NAME = 'RDB$117'
ja bych puzil radeji standardni "alter table alter column" klauzuli.
BTW, neni ten sloupec soucasti nejakeho klice, nebo na nem nezavisi neco
jineho?
> Dik dalibor
> Firebird 1.5.2, D7Prof
Peca
ako pracovat na dvoch IB databazach sucasne?
[*] Karol Chupek <chupek(zv)gmail(tec)com> - 1.7.2005 11:47:25
Ahoj
Som zaciatocnik v Interbase a chcem sa spytat ci existuje nieco take ako
v Oracle dblink
na pracu na dvoch a viac db sucasne.
Ide mi o to ze v jednej Db mam ulozene nejake data a aj v druhej.
potrebujem tieto data spojit a vytiahnut prikazom select .. ako na to?
Karol
Firebird - zmena velikosti sloupce
[*] Dalibor <dalibor(zv)torola(tec)cz> - 1.7.2005 11:35:24
Ahoj, pri rozsireni sloupce typu varchar z puvodnich 64 znaku na jakykoliv
vyssi pocet a pri commitnuti se mi zobrazi toto hlaseni:
Cannot commit transaction:
This operation is not defined for system tables.
unsuccessful metadata update.
<nazev tabulky>.
Nevite nekdo co s tim?
IBExpert vygeneruje tohle:
update RDB$FIELDS set
RDB$FIELD_LENGTH = 65,
RDB$CHARACTER_LENGTH = 65,
RDB$CHARACTER_SET_ID = -1
where RDB$FIELD_NAME = 'RDB$117'
Dik dalibor
Firebird 1.5.2, D7Prof
FB, kartezky soucin s procedurou
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 1.7.2005 11:19:23
Ahoj,
Ludek Finstrle napsal(a):
>>nefunkcni priklad:
>>
>>select
>> P.ctverec_kod, B.Blok, B.Dil,
>> P.datum, P.pozntisk, P.cisplodin_kod,
>> CP.nazev, B.nazev as nazev_bloku
>
>
> Vam nejaka tabulka CP (CP.nazev) existuje?
mea culpa. Zapomnel jsem v prikladu odstranit CP.nazev, ten tam
pochopitelne nema byt, a neni pricinou znminovane chyby. Nefunkcni
priklad ma terdy vypadat takto:
select
P.ctverec_kod, B.Blok, B.Dil,
P.datum, P.pozntisk, P.cisplodin_kod,
B.nazev as nazev_bloku
from
plodina P,
blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
plan:
PLAN JOIN (PRBLOKDIL INDEX (IX_HON,RI_PRBLOK_PRBLOKDIL),SORT (PRBLOKDIL
INDEX (IX_HON,RI_PRBLOK_PRBLOKDIL)))(P NATURAL)
pricemz totez doplneno o left join na ciselnik normalne funguje:
select
P.ctverec_kod, B.Blok, B.Dil,
P.datum, P.pozntisk, P.cisplodin_kod,
B.nazev as nazev_bloku
from
plodina P
left join cisplodin CP on CP.kod = P.cisplodin_kod,
blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
plan:
PLAN JOIN (JOIN (P NATURAL,CP INDEX (PK_CISPLODIN)),PRBLOKDIL INDEX
(IX_HON,RI_PRBLOK_PRBLOKDIL))SORT ((PRBLOKDIL INDEX
(IX_HON,RI_PRBLOK_PRBLOKDIL)))
> Luf
Peca
FB, kartezky soucin s procedurou
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 1.7.2005 10:35:20
> nefunkcni priklad:
>
> select
> P.ctverec_kod, B.Blok, B.Dil,
> P.datum, P.pozntisk, P.cisplodin_kod,
> CP.nazev, B.nazev as nazev_bloku
Vam nejaka tabulka CP (CP.nazev) existuje?
> from
> prace P,
> blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
Luf
FB, kartezky soucin s procedurou
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 1.7.2005 10:25:19
Ahoj,
mam zajimavy problem s Firebirdem 1.5.2. Mam ulozenou proceduru,
ktera podle klicovych hodnot dohledava nejake vety. Pokud pouziju dotaz,
kde krome procedury pripojuji jeste cislenik, tak vse slape, lec pokud
left join na ciselnik vynecham, dostanu zajimavou hlasku: no current
record for fetch operation.
priklad funkcniho dotazu:
select
P.ctverec_kod, B.Blok, B.Dil,
P.datum, P.pozntisk, P.cisplodin_kod,
CP.nazev, B.nazev as nazev_bloku
from
prace P
left join cisplodin CP on
CP.kod = P.cisplodin_kod,
blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
nefunkcni priklad:
select
P.ctverec_kod, B.Blok, B.Dil,
P.datum, P.pozntisk, P.cisplodin_kod,
CP.nazev, B.nazev as nazev_bloku
from
prace P,
blokdlehonu(P.ctverec_kod, P.hon1, P.hon2) B
Nejak nechapu, v cem je problem. Dik za rady.
Peca
Infra, IDr
[*] Ludek <konference(zv)sales(tec)cz> - 1.7.2005 10:05:17
----- Original Message -----
From: "Benda Lukas" <bendal(zv)volny(tec)cz>> Jak na Infra port v Delphi? Jak se pracuje se seriovym portem se doctu
> vsude mozne, ale kdyz chci prenaset data pres infraport tak nevim jak na
to.
>
> Mam popis protokolu pro prenos mezi zarizenim a PC pomoci infraportu,
> ale nevim jak spristupnit infraport a navazat s nim kontakt.
Ahoj,
Neni to nahodou tak, ze se s tim pracuje jako s normalnim COM portem ?
Ludek
Proxy a NT autentizace
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 1.7.2005 08:47:00
Mam dotaz jak stahnout soubor z interneti pokud moje aplikace bezi na PC za proxy, ktera vyzaduje NT Autentizace? Zkousel jsem Synapsi, tam je to snadne, ale problem je s tou NT Autentizaci.
Diky za radu
Ing. Jan Netrval
Infra, IDr
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 1.7.2005 08:28:59
Jak na Infra port v Delphi? Jak se pracuje se seriovym portem se doctu
vsude mozne, ale kdyz chci prenaset data pres infraport tak nevim jak na to.
Mam popis protokolu pro prenos mezi zarizenim a PC pomoci infraportu,
ale nevim jak spristupnit infraport a navazat s nim kontakt.prechod aplikace z D7 na 2005
[*] radek3311(zv)volny(tec)cz - 1.7.2005 07:12:44
AsyncPro od TurboPower jsem nezkousel - nepouzivam to. Pokud si
chces D2005 jeste trochu zrychlit tak se podivej sem
http://sourceforge.net/projects/fastmm/
Radek
--
Revolucni vysokorychlostni INTERNET jen za nizky mesicni pausal 399
Kc. Navic aktivace ZDARMA! Vice na http://www.revolucniinternet(tec)cz
Kopirovani souboru pres sit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.12.2005 14:39:35
On Thursday, December 29, 2005 1:37 PM ,
Michal S. <micsdelphi(zv)centrum(tec)cz> wrote:
> Zadrhel je prave v tech komponentach, ktere neumi poslat najednou
> vice
> nez 8k dat. Proto je to pomale a pri vice soucasnych prenosech to
> docela neprimerene zatezuje server.
> Chtel jsem se spis zeptat na zkusenosti s jinymi komponentami nebo
> lepsim zpusobem prenosu.
ne prilis slozite je pouzit primo WIN32 API (Winsock API). Tech par
funkci co je k tomu potreba neni takovy problem zvladnout a jeden se
pri tom priuci trosku vic o tom jak to vlastne funguje.
Zdravi
D. Toman
Kopirovani souboru pres sit
[*] delphin(zv)post(tec)cz - 29.12.2005 14:19:34
> Zadrhel je prave v tech komponentach, ktere neumi poslat najednou vice
> nez 8k dat. Proto je to pomale a pri vice soucasnych prenosech to docela
> neprimerene zatezuje server.
> Chtel jsem se spis zeptat na zkusenosti s jinymi komponentami nebo
> lepsim zpusobem prenosu.
Pouzijte www.ararat(tec)cz/synapse
Kopirovani souboru pres sit
[*] Michal S. <micsdelphi(zv)centrum(tec)cz> - 29.12.2005 13:37:16
Zadrhel je prave v tech komponentach, ktere neumi poslat najednou vice
nez 8k dat. Proto je to pomale a pri vice soucasnych prenosech to docela
neprimerene zatezuje server.
Chtel jsem se spis zeptat na zkusenosti s jinymi komponentami nebo
lepsim zpusobem prenosu.
Michal S.
Dalibor Toman napsal(a):
> On Wednesday, December 28, 2005 11:59 AM ,
> Michal S. <micsdelphi(zv)centrum(tec)cz> wrote:
>
>
>>Zdravim vsechny,
>>mam klient/server app. a potreboval bych mezi nimi prenaset soubory.
>>Chci se zeptat jak jste kdo tento problem resil. Zkousel jsem pouzit
>>TServerSocket a TCLientSocket, ale je to docela pomale.
>>
>
>
> pomale znamena jakou rychlost?
>
> na programove urovni rychlost prenosu ovlivnuje zasadnim zpusobem to
> jakym zpusobem se 'krmi' systemove buffery pro TCP spojeni. Je
> nezbytne se vyvarovat cteni a posilani kratkych bloku dat. Kazda
> takova operace stoji spoustu casu a snizuje rychlost. Cili v prve rade
> zkontroluj zda posilas dostatecne velke bloky dat tem komponentam
> (dejme tomu 16kB+). Cteni samozrejme musi poracovat s dostatecne
> velkymi bloky take. Netusim jak funguji ty komponenty - je mozne, ze
> je nejaky zadrhel v nich
>
>
> D. Toman
>
>
>
>
>
> Kopirovani souboru pres sit
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.12.2005 10:39:50
On Wednesday, December 28, 2005 11:59 AM ,
Michal S. <micsdelphi(zv)centrum(tec)cz> wrote:
> Zdravim vsechny,
> mam klient/server app. a potreboval bych mezi nimi prenaset soubory.
> Chci se zeptat jak jste kdo tento problem resil. Zkousel jsem pouzit
> TServerSocket a TCLientSocket, ale je to docela pomale.
>
pomale znamena jakou rychlost?
na programove urovni rychlost prenosu ovlivnuje zasadnim zpusobem to
jakym zpusobem se 'krmi' systemove buffery pro TCP spojeni. Je
nezbytne se vyvarovat cteni a posilani kratkych bloku dat. Kazda
takova operace stoji spoustu casu a snizuje rychlost. Cili v prve rade
zkontroluj zda posilas dostatecne velke bloky dat tem komponentam
(dejme tomu 16kB+). Cteni samozrejme musi poracovat s dostatecne
velkymi bloky take. Netusim jak funguji ty komponenty - je mozne, ze
je nejaky zadrhel v nich
D. Toman
preskakovani sipkama misto tabelatorem
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 28.12.2005 14:23:25
Pro generovani klavesy Tab pouzivam tuto proceduru:
procedure StiskniTab(Objekt : TWinControl);
var
Objekt1 : TWinControl;
Objekt2 : TWinControl;
begin
Objekt1 := Objekt;
Objekt2 := Objekt1.Parent;
while not (Objekt2 = nil)
do begin
Objekt1 := Objekt2;
Objekt2 := Objekt1.Parent;
end;
Objekt1.Perform(CM_DialogKey,VK_TAB,0);
end;
Na formulari pak osetrit udalost onKeyDown
Ladislav Stary
radek3311(zv)volny(tec)cz napsal(a):
> Ahoj,
>
> mam jeden obrovsky formular kde bych chtel dat uzivatelu moznost
>preskakovat sipkama misto tabelatorem. Nevite nekdo o nejake
>komponente nebo zdrojaku ?
>
>
>Radek
>
>
>preskakovani sipkama misto tabelatorem
[*] radek3311(zv)volny(tec)cz - 28.12.2005 13:38:40
Ahoj,
mam jeden obrovsky formular kde bych chtel dat uzivatelu moznost
preskakovat sipkama misto tabelatorem. Nevite nekdo o nejake
komponente nebo zdrojaku ?
Radek Kopirovani souboru pres sit
[*] Michal S. <micsdelphi(zv)centrum(tec)cz> - 28.12.2005 11:59:21
Zdravim vsechny,
mam klient/server app. a potreboval bych mezi nimi prenaset soubory.
Chci se zeptat jak jste kdo tento problem resil. Zkousel jsem pouzit
TServerSocket a TCLientSocket, ale je to docela pomale.
Diky moc za kazdou radu i nazor.
Michal
WinXP, D2005
Vek od narozeni
[*] Praktik SW <praktik.sw(zv)seznam(tec)cz> - 28.12.2005 10:38:23
> Ze ti v tom vznika zmatek? Tak pocitej ve dnech, a mas to. Zkratka zalezi na
> tom, pro jake ucely to potrebujes.
Presne tak, podivejte se do ockovaciho kalendare pro male deti. Tam kde se ockuji mimina hned v porodnici je vekovy udaj ve dnech. Pozdeji se ockuje ve veku udanem tydny. A kdyz je udaj v tydnech uz zbytecny a vekove rozdiliy male, hovori ockovci kalendar o veku v mesicich. Teprve nekde kolem 2 let se prejde definitivne na roky. Nicmene u preockovani treba i dospelych se klidne pouzivaji mesice (1-2 mesice po prvni davce atp.) a v praxi se nikdo nepta, zda mel ten mesic 28 mebo 31 dni. Osobne si myslim, ze to Caesar s temi dvanacti mesici nevymyslel vubec spatne. Konecne dodnes se to s drodnymi upravami v beznem zivote pouziva. A kdo to chce z nejakych duvodu presneji, musi prejit na mensi jednotky.
Kellner
Setric obrazovky, vypnuty monitor - zjisteni stavu
[*] Kilchevskyy Anton <anton.kilchevskyy(zv)arbes(tec)com> - 28.12.2005 09:39:35
Zdravicko.
Ve svem programku potrebuji zjistovat jestli bezi sestric obrazovky,
obrazovka je vypnuta, jsou vypnute disky.
Existuji na tohle nejake funkce?
Dik za rady. D7 prof. WinXP
Kopie zaznamu master-detail
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 27.12.2005 19:32:12
Venca Zaruba wrote:
>HI,
>Posledni dobou mam asi cim dal tim vice zacatecnicke dotazy.
>Jak provadite kopii zaznamu vcetne svazanych tabulek. Do ted jsem vzdy na to sel tim,
>ze jsem si poschovaval zaznam do pomocnych promenych a appendoval jsem je.
>Nyni, ale toto mam provest na silene provazane tabulky....
>DIK
>
>
>
>
Metodou rozdel a panuj - tedy rekurzivne. Inserty jsou preorder, aby
bylo mozne pri vkladani zavislych tabulek pouzit IDcka rodicu.
Lukas
>8^)
>
>
>Kontrola rodneho cisla
[*] Kalhous <kalhous(zv)eu(tec)cz> - 27.12.2005 16:46:00
To snad by bylo zbytecne. Kdyz pocitate datum z RC tak prvni dve cislice
interpretujete jako koncove dvojcisli letopoctu takze jak by pak mohlo dojit
k nerovnosti? Myslim ze odpoved "lze kontrolovat datum" byla myslena tak, ze
lze zkontrolovat jestli
interpretaci RC vznikne korektni datum cili nic. Tedy 500915/011 dava
rozumne datum 15.9.1950 zatimco 511342/011 nebo 510229/015 ne. Jen pozor na
padesatku v druhem dvojcisli (mesic) u zen.
> Jestli to chapu dobre, vypocitat datum z RC, odseparovat dve koncova cisla
> roku a porovnat s prvnimi dvema cisly RC ?
> cisla se rovnaji = OK
> cisla se nerovnaji = chyba
>> Chybi tam otaznik, ale predpokladam, ze to byl dotaz.
>> Neexistuje, presneji receno lze kontrolovat datum, ale nikoliv cast za
>> lomitkem.
>>> Existuje zpusob jak provest kontrolu rodneho cisla na platnost pro roky
>>> nizsi nez 1954 (xxxxxx/xxx)SQL Dotaz
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.12.2005 15:35:55
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lucky62
Ahoj,
Podivej se na GROUP BY, melo by ti stacit.
> Ako na toto co najjednoduchsie?
>
> Mam v MSSQL databazi tabulku so stlpcami:
> rok, mesiac, typ, hodnota
>
> Povedzme, ze sa jedna o planovane vydaje a typ bude typ
> vydajov (priklad -
> najomne)
> a hodnota bude planovana hodnota vydajov daneho typu na
> konkretny mesiac.
> 2005, januar, najomne, 10000
> 2005, februar, najomne, 10000
> 2005, marec, najomne, 15000
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
SQL Dotaz
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 27.12.2005 13:33:44
Pisu to z hlavy:
select
rok, typ,
(select hodnota from tabulka t2
where t1.rok = t2.rok and
t1.typ = t2.typ and
t2.mesic = leden) as leden,
(select hodnota from tabulka t2
where t1.rok = t2.rok and
t1.typ = t2.typ and
t2.mesic = unor) as unor,
stejne pro brezen az prosinec
from tabulka t1
Pripadne jeste doplnit za prvni select distinct a do vnorenych selectu
dat sum pro pripad, ze by pro jeden mesic a jeden typ existovalo vic radek.
Ladislav Stary
Lucky62 napsal(a):
>Ako na toto co najjednoduchsie?
>
>Mam v MSSQL databazi tabulku so stlpcami:
>rok, mesiac, typ, hodnota
>
>Povedzme, ze sa jedna o planovane vydaje a typ bude typ vydajov (priklad -
>najomne)
>a hodnota bude planovana hodnota vydajov daneho typu na konkretny mesiac.
>2005, januar, najomne, 10000
>2005, februar, najomne, 10000
>2005, marec, najomne, 15000
>...
>
>
>Ako sformulovat SQL dotaz, aby vysledkom bola tabulka,
>v ktorej by boli mesiace jedneho roku v jednom riadku?
>
>Teda takto: (stlpce = rok, typ, januar, februar, marec, ...)
>2005, najomne, 10000, 10000, 15000, ...
>2005, elektrina, 2000, 2000, 2100, ...
>2006, najomne, 15000, 15000, 18000, ...
>2006, elektrina, 2000, 2000, 2000,
>...
>
>Lucky.
>SQL Dotaz
[*] Lucky62 <lucky62(zv)datarix.sk> - 27.12.2005 13:11:42
Ako na toto co najjednoduchsie?
Mam v MSSQL databazi tabulku so stlpcami:
rok, mesiac, typ, hodnota
Povedzme, ze sa jedna o planovane vydaje a typ bude typ vydajov (priklad -
najomne)
a hodnota bude planovana hodnota vydajov daneho typu na konkretny mesiac.
2005, januar, najomne, 10000
2005, februar, najomne, 10000
2005, marec, najomne, 15000
...
Ako sformulovat SQL dotaz, aby vysledkom bola tabulka,
v ktorej by boli mesiace jedneho roku v jednom riadku?
Teda takto: (stlpce = rok, typ, januar, februar, marec, ...)
2005, najomne, 10000, 10000, 15000, ...
2005, elektrina, 2000, 2000, 2100, ...
2006, najomne, 15000, 15000, 18000, ...
2006, elektrina, 2000, 2000, 2000,
...
Lucky. Kopie zaznamu master-detail
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 27.12.2005 09:46:50
HI,
Posledni dobou mam asi cim dal tim vice zacatecnicke dotazy.
Jak provadite kopii zaznamu vcetne svazanych tabulek. Do ted jsem vzdy na to sel tim,
ze jsem si poschovaval zaznam do pomocnych promenych a appendoval jsem je.
Nyni, ale toto mam provest na silene provazane tabulky....
DIK
Prijemny zbytek dne
Vasek Zaruba
8^)
Kontrola rodneho cisla
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 27.12.2005 09:04:47
Ahoj,
s tim delenim 11 je to trosku slozitejsi, tedy alespon myslim.
pred rokem 1954 nebyla provadena kontrola rodnych cisel, tudiz se za trimistny suffix nedavala zadna 'kontrolni cislice'. Od roku 1954 se za trimistny suffix davala jeste kontrolni cislice, ktera je vyjadrenim zbytku po deleni RC mod 11
tedy napr. RC: 806221/2367 ... tedy 806221236 a kontrolni cislice 7 .... tedy 806221236 mod 11 = 7
tato kontrola plati pro cca 95% rodnych cisel. Byla vydana take 'nespravna' rodna cisla, kde kontrola na mod 11 vyhodi chybu a je nutno to kontrolovat na mod 10 :) ... tudiz chybna validace rodneho cisla s ohledem na ruzne odchylky by nejspis mela byt pruchozi s varovanim, ze 'zadane rodne cislo nemusi byt spravne' nez vyhodit chybu s tim, ze clobrdu nepustis dal, protoze proste zadal SPATNE rodne cislo ... :) (takhle je to napriklad delane v aplikacich pouzivanych na uradech prace, socialkach atp. )
Milan
D7 Ent., WinXP
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lucky62
Sent: Tuesday, December 27, 2005 8:45 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Kontrola rodneho cisla
Rodne cislo by malo byt delitelne cislom 11.
Ale nie som si isty, ci to plati vseobecne pre vsetky RC.
(Je ten rok 1954 prave rozhodujuci z tohoto hladiska?)
Lucky.
Kontrola rodneho cisla
[*] Lucky62 <lucky62(zv)datarix.sk> - 27.12.2005 08:44:45
Rodne cislo by malo byt delitelne cislom 11.
Ale nie som si isty, ci to plati vseobecne pre vsetky RC.
(Je ten rok 1954 prave rozhodujuci z tohoto hladiska?)
Lucky.
>
> Existuje zpusob jak provest kontrolu rodneho cisla na platnost pro roky
> nizsi nez 1954 (xxxxxx/xxx)Virtualni mechanika
[*] Petr Vones <konference(zv)petrvones(tec)net> - 27.12.2005 00:38:12
From: "P&v" <pa.v(zv)seznam(tec)cz>
> existuje jednoduchy zpusob na emulaci %subject?
> Jde mi o vytvoreni "hodne" velkeho souboru -
Pomoci "sparse files" coz je vlastnost NTFS.
Petr Vones
Virtualni mechanika
[*] delphin(zv)post(tec)cz - 27.12.2005 00:04:09
> existuje jednoduchy zpusob na emulaci %subject?
Neexistuje, musite napsat ovladac.
> Jde mi o vytvoreni "hodne" velkeho souboru -
Zkuste nejprve toto:
MujFileStream.Size := MaxInt;
Virtualni mechanika
[*] P&v <pa.v(zv)seznam(tec)cz> - 26.12.2005 21:40:00
Dd,
existuje jednoduchy zpusob na emulaci %subject?
Jde mi o vytvoreni "hodne" velkeho souboru -
napada me virtualni mechanika, ktere reknu,
ze "tento" soubor je velky 5GB a v cele sve delce
ma same nuly. Treba.
Muze me nekdo nakopnout?
dik, d
Kontrola rodneho cisla
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 26.12.2005 18:35:47
Je-li datum narozeni dd.mm.19yy (pripadne 18yy), je u muzu rodne cislo
yymmdd/xxx a u zen yyzmdd/xxx, kde zm je mesic zvyseny o 50 (mm+50). Cislo
xxx bylo prirazeno zcela nahodile, takze se neda nijak kontrolovat ani z nej
na nic usuzovat.
Zpetne lze z RC odvodit, zda jde o zenu a po pripadnem odecteni 50 urcit
datum narozeni.
Po zavedeni zdravotniho pojisteni a registru pojistencu byly (doufejme)
opraveny pripadne chyby vznikle pred zavedenim pocitacove evidence, takze se
toto pravidlo da povazovat za platne.
Vlastik
> Jestli to chapu dobre, vypocitat datum z RC, odseparovat dve koncova cisla
> roku a porovnat s prvnimi dvema cisly RC ?
> cisla se rovnaji = OK
> cisla se nerovnaji = chyba
>
Kontrola rodneho cisla
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 26.12.2005 14:21:30
Jestli to chapu dobre, vypocitat datum z RC, odseparovat dve koncova cisla
roku a porovnat s prvnimi dvema cisly RC ?
cisla se rovnaji = OK
cisla se nerovnaji = chyba
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> Chybi tam otaznik, ale predpokladam, ze to byl dotaz.
> Neexistuje, presneji receno lze kontrolovat datum, ale nikoliv cast za
> lomitkem.
>
>> Existuje zpusob jak provest kontrolu rodneho cisla na platnost pro roky
>> nizsi nez 1954 (xxxxxx/xxx)
Kontrola rodneho cisla
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 26.12.2005 14:11:29
Chybi tam otaznik, ale predpokladam, ze to byl dotaz.
Neexistuje, presneji receno lze kontrolovat datum, ale nikoliv cast za
lomitkem.
Vlastik
> Existuje zpusob jak provest kontrolu rodneho cisla na platnost pro roky
> nizsi nez 1954 (xxxxxx/xxx)
Kontrola rodneho cisla
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 26.12.2005 13:13:25
Zdravim
Existuje zpusob jak provest kontrolu rodneho cisla na platnost pro roky
nizsi nez 1954 (xxxxxx/xxx)
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Vek od narozeni
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 26.12.2005 10:09:12
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Novak
> Sent: Sunday, December 25, 2005 9:54 PM
>
> > Odectu nejblizsi mesic, coz je unor.
>
> A ktery mesic odectes pro dite narozene 3. unora, kdys chces
> znat jeho vek dnes? Cele mesice jsou jasne, ale z 25+25
> odectes unor nebo prosinec a proc prave unor? Je stejne
> neuplny, jako ten prosinec.
> Protoze 3.12. melo celych 10 mesicu? A nemelo nahodou 9 mesicu 28 dnu?
Eh. Budu postupovat naprosto stejne, jak jsem to popsal v predchozi zprave.
Mesic je jasne dany - je to doba od prvniho do posledniho dne podle jeho
vlastniho cislovani.
> Nelze proste vyjadrovat vek v 'mesicich', kdyz neni jasne,
> kolik ty 'mesice' trvaji.
Nejen ze lze, ale dokonce se to tak normalne praktikuje. Kazdy mesic ma
jasne urceny pocet dni, pro dany rok. Tim je jednoznacnost dana. Pri
prechodu z mesice na mesic je urcujici cislo dne. Obdobi mezi stejnymi cisly
ruznych mesicu jsou opet cele mesice.
Obdobi od 27.1. do 27.2. je prave jeden mesic. Od 28.1. do 28.2.
(neprestupny rok) je mesic a tri dny - a to proto, ze unor je tam cely.
Takze pripad uvedeny nahore je presne 10 mesicu.
Ze ti v tom vznika zmatek? Tak pocitej ve dnech, a mas to. Zkratka zalezi na
tom, pro jake ucely to potrebujes.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Vek od narozeni
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 26.12.2005 05:48:54
Pocitam ty roky a mesice, o ktere se jedna podle data narozeni a dneska
(pokud to vztahuji k dnesku). Protoze se jedna o zcela konkretni roky a
mesice, je vypocet naprosto jednoznacny. Nikoho nezajima, jestli je to 6570
nebo 6571 dni, ale pocet roku a mesicu pocinaje 1.1.1988 a konce dneskem
(priklad, neprepocitavat!!). Jako kdyz slavis narozeniny. Taky se neptas,
kolik let bylo prestupnych. Narodil jsem se 1.1. a jsem presne o osmnact let
mladsi nez stryc, ktery se take narodil 1.1. Takhle se to v zivote pouziva,
aspon u nas.
Vlastik
>
> A ktery mesic odectes pro dite narozene 3. unora, kdys chces znat jeho
> vek dnes? Cele mesice jsou jasne, ale z 25+25 odectes unor nebo
> prosinec a proc prave unor? Je stejne neuplny, jako ten prosinec.
> Protoze 3.12. melo celych 10 mesicu? A nemelo nahodou 9 mesicu 28 dnu?
>
> Nelze proste vyjadrovat vek v 'mesicich', kdyz neni jasne, kolik ty
> 'mesice' trvaji. Deti stejneho veku 1 mesic se mohou starim lisit i o
> 3 dny, podle toho, kdy to rikame. Pouzivat takove jednotky nema smysl.
>
Vek od narozeni
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 25.12.2005 21:54:22
> Odectu nejblizsi mesic, coz je unor.
A ktery mesic odectes pro dite narozene 3. unora, kdys chces znat jeho
vek dnes? Cele mesice jsou jasne, ale z 25+25 odectes unor nebo
prosinec a proc prave unor? Je stejne neuplny, jako ten prosinec.
Protoze 3.12. melo celych 10 mesicu? A nemelo nahodou 9 mesicu 28 dnu?
Nelze proste vyjadrovat vek v 'mesicich', kdyz neni jasne, kolik ty
'mesice' trvaji. Deti stejneho veku 1 mesic se mohou starim lisit i o
3 dny, podle toho, kdy to rikame. Pouzivat takove jednotky nema smysl.Vek od narozeni
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 25.12.2005 21:40:21
Narozeno 28.1.2005 1 mesic 11 dni
Narozeno 31.1.2005 1 mesic 08 dni
Pocitano pres "DateDiff(Date1,Date2,d,m,y);"
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> To jo, ale neodpovedel si, jak se 8.3 bude lisit vek deti, ze kterych
> se jedno narodilo 28.1. a druhe 31.1. ? Selsky rozum rika, ze to prvni
> bude o 3 dny starsi, ale jaky algoritmus to spocita?
Vek od narozeni
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 25.12.2005 21:26:20
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Novak
> Sent: Sunday, December 25, 2005 8:22 PM
>
> > Zcela jasne 2 _cele_ mesice a 3 dny.
>
> To jo, ale neodpovedel si, jak se 8.3 bude lisit vek deti,
> ze kterych se jedno narodilo 28.1. a druhe 31.1. ? Selsky
> rozum rika, ze to prvni bude o 3 dny starsi, ale jaky
> algoritmus to spocita?
Je to celkem jednoduche. Spocitam pocet celych let a mesicu mezi pocatecnim
a sledovanym dnem. Plus dny zbyvajici do konce mesice od prvniho data, a dny
prebyvajici v poslednim mesici. Pocet dni v mesici se da zjistit vhodnou
funkci, ktera vrati pocet dni pro dany mesic a rok.
Mejme d1.m1.r1 a d2.m2.r2. Zjistim pocet dni, ktere lezi mezi obema daty.
Odectu nejprve cele roky, pak mesice. Dale, pokud je d1 <= d2, je to dalsi
mesic. Pak mi zbyde nekolik dni.
Pro jednoduchost pocitejme v jednom roce, rekneme 2005.
a) 8.3.-28.1. je 39 dni.
b) 8.3.-31.1. je 36 dni.
Odectu nejblizsi mesic, coz je unor. Zbyva:
a) 11 dni.
b) 8 dni.
Dite a je stare x let, 1 mesic a 11 dni, dite b totez, ale 8 dni.
Jeste neco?
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Vek od narozeni
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 25.12.2005 20:22:16
> Zcela jasne 2 _cele_ mesice a 3 dny.
To jo, ale neodpovedel si, jak se 8.3 bude lisit vek deti, ze kterych
se jedno narodilo 28.1. a druhe 31.1. ? Selsky rozum rika, ze to prvni
bude o 3 dny starsi, ale jaky algoritmus to spocita?Vek od narozeni
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 25.12.2005 19:44:13
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Novak
> Sent: Sunday, December 25, 2005 10:12 AM
>
> Ptat se na tyto udaje nema smysl, protoze i kdyz si presne
> zadefinujes, co chapes pod pojmem 'mesic', tak vysledek bude
> sice exaktni, ale nic nerikajici udaj.
Och joj, proc to delat jednoduse, kdyz to jde slozite, ze? Mesic je doba od
prvniho do posledniho dne, ktery ten ktery mesic ma.
> Napr. od 5.1. do 8.3 je kolik mesicu? Jeden cely unor + 26d z
> ledna + 8d z brezna? Nebo 2 cele mesice od 5.1. do 5.3. + 3
> zbyvajici dny brezna?
Zcela jasne 2 _cele_ mesice a 3 dny.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Vek od narozeni
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 25.12.2005 13:49:48
Tak to v Delphi6 nemam. Ale je to urcite jednodussi, nez ta moje zruda ...
Vlastik
> Nakonec jsem se prohelpoval a proweboval k:
>
> Uses Dateutil
> DateDiff(Date1,Date2,d,m,y);
Vek od narozeni
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 25.12.2005 11:41:39
Nakonec jsem se prohelpoval a proweboval k:
Uses Dateutil
.
.
var
Y, M, D : word;
Date1,Date2:TDate;
begin
Date1:=StrToDate('05.01.2005');
Date2:=StrToDate('08.03.2005');
DateDiff(Date1,Date2,d,m,y);
Label1.caption:=IntToStr(Y);
Label2.caption:=IntToStr(M);
Label3.caption:=IntToStr(D);> Napr. od 5.1. do 8.3 je kolik mesicu? Jeden cely unor + 26d z ledna +
> 8d z brezna? Nebo 2 cele mesice od 5.1. do 5.3. + 3 zbyvajici dny
> brezna?
Pro pripad narozen 5.1. 2005 a je mu 8.3.2005 - vychazi stari 0 let 2
mesice a 3 dny. Domnivam se, ze tento zpusob je akceptovatelny. Pokud je
diteti 9 mesicu je mu 9 mesicu po uplynulych 9 mesicich bez ohledu na to od
ktereho nasledujiciho mesice se zacal vek pocitat a ktere mesice se v
intervalu vypoctu nachazeji. Samozrejmne se mohu mylit.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Vek od narozeni
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 25.12.2005 10:11:33
> Marne se snazim dat dohromady proceduru na vypocet poctu let,
> mesicu a dnu od data narozeni.
Ptat se na tyto udaje nema smysl, protoze i kdyz si presne
zadefinujes, co chapes pod pojmem 'mesic', tak vysledek bude sice
exaktni, ale nic nerikajici udaj.
Uplne stejnou vypovidaci schopnost bude mit cela cast veku ve dnech
vydeleneho 365.25 a zbytku vydeleneho (365.25/12).
Napr. od 5.1. do 8.3 je kolik mesicu? Jeden cely unor + 26d z ledna +
8d z brezna? Nebo 2 cele mesice od 5.1. do 5.3. + 3 zbyvajici dny
brezna?
A kdyby to bylo treba od 31.1. do 8.3. a za spravnou bys povazoval
druhou variantu predchoziho prikladu, t.j. nalezeni nejblizsiho
nizsiho data, kdy je mesicni vyroci (pekne spojeni! Dobre, tak
'vymesici'.), pak by cely mesic vychazel do 31. unora? Nebo 28.unora?
Ale jak by se lisil takto spocteny vek od veku deti narozenych treba
28.1.?
Podle toho se zda lepsi prvni varianta: vek je 1 mesic a 34d, ale to
ti zase kazdy se selskym rozumem chapajicim, ze mesic muze mit max
31d, otrepe o hlavu.
Pri pouziti mnou doporuceneho 'div' ti hrozi nanejvys to, ze dite
narozene 31.1. nebude mit 1.3. ani jeden cely 'stredni' mesic, ale
zato muzes presne srovnavat vek jednoho ditete v jeden den s vekem
jineho ditete v jiny den.Vek od narozeni
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 25.12.2005 06:57:20
Votrocky bych to delal takto:
var dy, dm, dd: integer;
d1, d2, dx: TDate;
begin
d2:=DateTimePicker2.Date;
d1:=DateTimePicker1.Date;
// datum poslednich narozenin
dx:=EncodeDate(YearOf(d2),MonthOf(d1),DayOf(d1));
if dx>d2
then dx:=EncodeDate(YearOf(d2)-1,MonthOf(d1),DayOf(d1));
dy:=YearOf(dx)-YearOf(d1);
// a ted pocet mesicu a dni od poslednich narozenin
dm:=0;
while IncMonth(dx)<=d2 do
begin dx:=IncMonth(dx);
dm:=dm+1;
end;
dd:=DaysBetween(dx,d2);
Label1.Caption:=IntToStr(dy)+'/'+IntToStr(dm)+'/'+IntToStr(dd);
end;
Vlastik
> V D5 je DaysBetween i MonthsBetween.
> Funci YearsBetween jsem nenasel.
> Pokud zadam:
>
> 01.01.2005 - 21.12.2005 je to 354 dnu 11 mesicu
> 01.01.2005 - 22.12.2005 je to 355 dnu 12 mesicu !!!!!!!!!!!!!!!!
>
Krasne Vanoce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.12.2005 01:36:55
Puvodni zprava ze dne 24.12.2005:
> Vcera mi prislo Delphi8Ent.....pekny darcek za 99 298.- Sk :-)))
No ted jde o to, jestli to byl vazne darecek a nebo jestli jsi to
musel zaplatit :-) Me prislo o dva dny drive nove Visual Studio za
daleko mene penez, ale take ne jako darecek :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Overenie XML na XSD
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 24.12.2005 21:16:37
23.12.2005 Rastislav Lazan:
>
> Ako v Delphi 7 overim XML subor na XSD subor?
Pokud ti nevadi externi veci, pak se podivej na LibXML
http://www.zlatkovic.com/libxml.en.html
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Krasne Vanoce
[*] Lynx <lynx01(zv)tiscali(tec)cz> - 24.12.2005 16:42:18
Petr Zahradnik napsal(a):
>Ahoj pratele a kamaradi,
>
>preji Vam vsem krasne Vanoce!
>
>Petr Zahradnik, pocitacovy expert
>
>==========================================================
>Petr Zahradnik, Computer Laboratory
>
>
>web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
>
>==========================================================
>
>
>
>
>
>
Vam taky a hodne uspechu v novem roce. Petr Holub
Krasne Vanoce
[*] Robert Fujak <robof(zv)inmail.sk> - 24.12.2005 16:26:17
Tiez sa pripajam.
Vcera mi prislo Delphi8Ent.....pekny darcek za 99 298.- Sk :-)))
S pozdravom
Robert Fujak
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, December 24, 2005 1:59 AM
Subject: OT: Krasne Vanoce
> Ahoj pratele a kamaradi,
>
> preji Vam vsem krasne Vanoce!
>
> Petr Zahradnik, pocitacovy expert
>
Hexa editor
[*] Radek Tomsik <radek(zv)tomsige(tec)cz> - 24.12.2005 12:25:59
OllyDbg
Hiew
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Ludek
Sent: Friday, December 23, 2005 1:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Hexa editor
Zdravim,
Poradte mi prosim nejaky jednoduchy nejlepe free hexaeditor.
Vek od narozeni
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 24.12.2005 10:51:52
V D5 je DaysBetween i MonthsBetween.
Funci YearsBetween jsem nenasel.
Pokud zadam:
01.01.2005 - 21.12.2005 je to 354 dnu 11 mesicu
01.01.2005 - 22.12.2005 je to 355 dnu 12 mesicu !!!!!!!!!!!!!!!!
Date1:=StrToDate('01.01.2005');
Date2:=StrToDate('21.12.2005');
Label1.Cption:=IntToStr(DaysBetween(Date1,Date2-1));
Label2.Caption:=IntToStr(Trunc(MonthsBetween(Date1,Date2)));
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> Ahoj, funkce DaysBetween, MothsBetween, YearsBetwwen v Delphi nemas? V D6
> jsou...
>
>> Marne se snazim dat dohromady proceduru na vypocet poctu let, mesicu a
>> dnu
>> od data narozeni.
>> Nemate nekdo neco hotoveho pro D5 ?
Hexa editor
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 24.12.2005 08:37:38
23.12.2005 Ludek:
> Zdravim,
> Poradte mi prosim nejaky jednoduchy nejlepe free hexaeditor.
Pokud to chces jako komponentu, tak se podivej na:
http://www.mirkes.de/en/delphi/vcls/hexedit.php
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
OT: Krasne Vanoce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.12.2005 01:59:10
Ahoj pratele a kamaradi,
preji Vam vsem krasne Vanoce!
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Kylix 3, Delphi 7 a TThread.Synchronize
[*] Milan Kra'ta <krata.milan(zv)seznam(tec)cz> - 23.12.2005 19:36:42
Omlouvam se zapomel jsem to napsat.
Logy probihaji zapisem do souboru a pokud je otevreno sledovaci okno tak se posilaji i do okna.
(Sledovaci okno je jina aplikace).
Synchronizaci jsem nepouzil, protoze jenom v tomto threadu volam fce okolo zapisu logu.
Milan
> No dobre, ale jak jsi synchonizoval to volani toho threadu, ktery
> vypisoval logy ?
>
> Marian
>
Vek od narozeni
[*] OnDraG <gebakonf(zv)centrum(tec)cz> - 23.12.2005 14:50:21
Ahoj, funkce DaysBetween, MothsBetween, YearsBetwwen v Delphi nemas? V D6 jsou...
Ondra
> Marne se snazim dat dohromady proceduru na vypocet poctu let, mesicu a dnu
> od data narozeni.
> Nemate nekdo neco hotoveho pro D5 ?
Vek od narozeni
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 23.12.2005 14:32:18
Zdravim
Marne se snazim dat dohromady proceduru na vypocet poctu let, mesicu a dnu
od data narozeni.
Nemate nekdo neco hotoveho pro D5 ?
Predem diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Hexa editor
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 23.12.2005 13:36:12
> Poradte mi prosim nejaky jednoduchy nejlepe free hexaeditor.
Ja som zatial celkom spokojny s HexEditom:
http://www.catch22.net/software/hexedit.asp
Prijemne ma prekvapila moznost definovat si uzivatelske typy (recordy) na
zobrazenie.
HTH
TOndrej
OT: Hexa editor
[*] Ludek <konference(zv)sales(tec)cz> - 23.12.2005 13:20:10
Zdravim,
Poradte mi prosim nejaky jednoduchy nejlepe free hexaeditor.
Dekuji
Ludek
P.S. Vsem stastne a vesele
Overenie XML na XSD
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 23.12.2005 12:10:02
Ako v Delphi 7 overim XML subor na XSD subor?
Ing. Rastislav Lazan
e-mail: lazan(zv)davidplus.sk
icq: 35 70 30 80
tel.: (037) 693 00 80
fax: (037) 693 00 81
Kylix 3, Delphi 7 a TThread.Synchronize
[*] delphikonf(zv)mjonas(tec)cz - 23.12.2005 11:52:00
No dobre, ale jak jsi synchonizoval to volani toho threadu, ktery
vypisoval logy ?
Marian
> Mel jsem obdobny problem a vyresil jsem ho tim, ze jsem pridal dalsi
> thread, ktery pouze vypisoval logy ktere mu ostatni posilali.
>
> Milan
>
>> Potkal jsem se zajimavym problemem, mam konzolovou aplikaci v Delphi 7..
>> Ta si vytvari nekolik vlaken, a pomoci Synchonize vypisuje informace o
>> prubehu vlakna na standartni vystup pres Writeln. Pod Windows to chodi
>> bez problemu.
>>
>> Zkusil jsem tuhle aplikaci upravit, aby chodila pod Linuxem. V okamziku
>> prvniho volani TThread.Synchronize cela aplikace zatuhne. Kdyz to
>> Synchronize vyhodim, jede to v pohode.
Nastaveni cisla v telefonickem pripojeni site
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 23.12.2005 10:53:52
Zdar,
nevite jak nastavit vice telefonnich cisel do jiz existujiciho
telefonickeho pripojeni site? Pomoci RasSetEntryDialParams zvladnu nastavit
jedno konkretni cislo, ale potrebuju jich tam nacpat vic v nejakem poradi...
Navic kdyz volam RasGetEntryDialParams v situaci kdy je v pripojeni
nastaveno vice cisel (lze snadno uzivatelsky vlozit pres ovladaci
panely...), tak uz mi volani funkce pada na AV... Stoural sem se v RAS
funkcich, ale nenasel sem nic kde by se dalo tech vic cisel nastavit :(
D6Prof, W2000
Jirka Matejka
Kylix 3, Delphi 7 a TThread.Synchronize
[*] Milan Kra'ta <krata.milan(zv)seznam(tec)cz> - 23.12.2005 10:05:48
> Potkal jsem se zajimavym problemem, mam konzolovou aplikaci v Delphi 7.
> Ta si vytvari nekolik vlaken, a pomoci Synchonize vypisuje informace o
> prubehu vlakna na standartni vystup pres Writeln. Pod Windows to chodi
> bez problemu.
>
> Zkusil jsem tuhle aplikaci upravit, aby chodila pod Linuxem. V okamziku
> prvniho volani TThread.Synchronize cela aplikace zatuhne. Kdyz to
> Synchronize vyhodim, jede to v pohode.
Mel jsem obdobny problem a vyresil jsem ho tim, ze jsem pridal dalsi thread, ktery pouze vypisoval logy ktere mu ostatni posilali.
Milan
Zmena kodovani u textu?
[*] Pavel P <pavel(zv)tvsp(tec)net> - 23.12.2005 00:36:58
V Synapse jsou konverzni rutiny na snad vsechny CP.
----- Original Message -----
From: Pavel Smerk [mailto:xsmerk(zv)fi.muni(tec)cz]
To: delphi-l(zv)clexpert(tec)cz
Sent: Thu, 22 Dec 2005 15:29:30 +0100
Subject: Zmena kodovani u textu?> Zdravim vespolek,
>
> asi je to trapny dotaz, ale nedari se mi vygooglit nic, co by pusobilo
> dojmem nejakeho standardniho reseni: jak se da zmenit kodovani textu, z il2
> do cp1250 a z utf8 do cp1250? Dostanu text v il2/utf8 a potrebuju ho
> uzivateli spravne vypsat v nejake showmessage nebo tak neco.
>
> Diky moc, P.
>
>
>
Kylix 3, Delphi 7 a TThread.Synchronize
[*] Marian Jonas <delphikonf(zv)mjonas(tec)cz> - 22.12.2005 22:50:51
Potkal jsem se zajimavym problemem, mam konzolovou aplikaci v Delphi 7.
Ta si vytvari nekolik vlaken, a pomoci Synchonize vypisuje informace o
prubehu vlakna na standartni vystup pres Writeln. Pod Windows to chodi
bez problemu.
Zkusil jsem tuhle aplikaci upravit, aby chodila pod Linuxem. V okamziku
prvniho volani TThread.Synchronize cela aplikace zatuhne. Kdyz to
Synchronize vyhodim, jede to v pohode.
Potkal se nekdo jiz s timto problemem ? Jake je reseni ? Pouzit
kritickou sekci ? Ma vubec smysl pouzivat pod Linuxem TThread ?
Dik Marian
Pocet polozek v SQL tabulce
[*] lelicek(zv)volny(tec)cz - 22.12.2005 17:51:46
No matematiku od Boha nemame ucite, ten dodal pouze inkvizici,
no a stonozkam se nepodarilo zpusobit globalni oteplovani.
Zda se, ze 2 ruce a nohy vedou (zatim na body).
Pavel
Od: "Kalhous" <kalhous(zv)eu(tec)cz>
> From: "Jaroslav Pivonka" <jpivonka(zv)centrum(tec)cz>
> > Zakladem matematiky ... je vytykani pred zavorku.
> > ...Pokud je moc atributu, je to spatne. Pokud je moc entit,
> > je to zase
> > spatne. Dve ruce a pet prstu na
> > kazde, tohle prezilo dobu ledovou. Dukazem je, ze tu jsme.
> Zakladem matematiky neni ani tak vytykani pred zavorku jako
> spis prirozena
> cisla (dana od Boha - viz Kronecker). No ale tady se mluvilo
> spis o tom
> jestli se tyty "mocy" urcujici "spatnost" daji vyjadrit cislem.
> Mimochodem stonozky jsou zde o peknych par milionu let dele nez
> my a o jeste
> vic milionu let dele tady budou. Takze ani na tech pet prstu
> bych moc
> nevsazel.
> Z.Kalhous
>
>
>
>
> Pocet polozek v SQL tabulce
[*] lelicek(zv)volny(tec)cz - 22.12.2005 17:31:45
Je dobre si uvedomit, ze totez plati o 1., 2. ... NF,
poctu FK na tabulce.....
Poucky totiz rikaji "pokud je pocet ..... prekrocen,
tak ze zkusenosti autora je asi neco spatne, zkontroluj to!".
Od: "Kalhous" <kalhous(zv)eu(tec)cz>
> Magicke cislo "spravny pocet atributu" proste neexistuje. A
> jestli nekdo
> fundovany v oboru tvrdi ze to je 15 nebo 200 nebo cokoliv
> jineho tak to rika
> zertem nebo by mel uvazovat o refundaci. Jsou-li v tabulce
> "obrazy" realnych
> objektu u kterych je nutno sledovat 1000 skutecne nezavislych a
>
> neodvoditelnych hodnot tak je struktura v poradku i kdyz ma
> tabulka 1001
> sloupec. A naopak i v tabulce ktera ma jeden sloupec muze byt i
> ten jeden
> zbytecny.
> > ... tyhle poucky ale fakt existuji a rikaji je i lide
> > fundovani v oboru... Sice ja ji znam jako 200 a vice, ale i
> > tak V kazdem pripade si myslim , ze bez znalosti problematiky
> > se neda rict
> > nic
> > o tom, kolik atributu je dobre a kolik spatne.
>
>
>
> Zmena kodovani u textu?
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 22.12.2005 16:39:41
Myslim ze je to dost podrobne reseno v Jedi VCL, nevim jednotku,
ale tam co je WideStringList
Pavel Poles
Pavel Smerk napsal(a):
> Zdravim vespolek,
>
>asi je to trapny dotaz, ale nedari se mi vygooglit nic, co by pusobilo
>dojmem nejakeho standardniho reseni: jak se da zmenit kodovani textu, z il2
>do cp1250 a z utf8 do cp1250? Dostanu text v il2/utf8 a potrebuju ho
>uzivateli spravne vypsat v nejake showmessage nebo tak neco.
>
> Diky moc, P.
>
>
>
>
>
Zmena kodovani u textu?
[*] Pavel Smerk <xsmerk(zv)fi.muni(tec)cz> - 22.12.2005 15:29:30
Zdravim vespolek,
asi je to trapny dotaz, ale nedari se mi vygooglit nic, co by pusobilo
dojmem nejakeho standardniho reseni: jak se da zmenit kodovani textu, z il2
do cp1250 a z utf8 do cp1250? Dostanu text v il2/utf8 a potrebuju ho
uzivateli spravne vypsat v nejake showmessage nebo tak neco.
Diky moc, P.
Odesilasni emailu s prilohou z webove aplikace
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 22.12.2005 13:01:19
V moji webove aplikaci nastala udajne opakovane tato chyba:
-
Uzivatel aktualizuje svoje udaje.
-
Ja je ulozim do databaze a do souboru Export/AKT_IN_00808.csv
-
Tento soubor odeslu mailem jako prilohu.
V databazi i v souboru na web serveru je to spravne.
Dojde to ale spatne.
V souboru, ktery dojde mailem jako priloha chybi tecka v udaji "emailova adresa".
Misto "xxxx(zv)cmail(tec)cz" dojde "xxxx(zv)cmailcz".
(cele to je v nejakem cp852, protoze oni to pak importuji nejak do DOS)
To je divny, ne?
Dovedete si to nejak vysvetlit?
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================Ladenie asp.net v Delphi 2006
[*] Peter Ondras <konfery(zv)pse.sk> - 22.12.2005 12:33:17
Mozete mi poradit ako sfunkcnit ladenie asp.net aplikacii priamo z
Delphi 2006?
Pouzivam WinXP a IIS. V IIS som zaskrtol volbu ladit serverove a
klientske skripty asp (aj ked si myslim, ze to suvisi len s asp a nie s
asp.net). Asp.net mam zaregistrovane v IIS (aspx stranka sa mi otvori v
exploreri, ale v Delphi sa mi vrati chybova hlaska o tom, ze sa nemoze
napojit na aspnet_wp.exe
Peter Ondras - www.ondras.sk
+421 904 421 925
Broadcast a segmenty site
[*] delphin(zv)post(tec)cz - 22.12.2005 10:34:47
>> Mame nekolik desitek PC W2K a WXP s nasi aplikaci, ktera vysila UDP
>> broadcasty a aplikace, ktera zije, tak odpovi. To funguje bez problemu,
>> ale
>> pochopitelne jenom po prvni router, v teto situaci maji PC stejne prvni 3
>> cisla IP. Jak uz to chodi, zakaznik puvodne prisahal, ze mu to takhle
>> staci,
>> ale dneska chce, aby se dokazaly najit i PC v ruznych segmentech, tj. IP
>> se
>> lisi ve 3-ti, a 4-tem cislu. Spravce site samozrejme na routeru nic
>> nestandardniho nepovoli.
>> Jak z toho ven ?
>
> Ahoj,
> Pribliz tu aplikaci, je to klient server nebo smecka samostatnejch
> rovnocenejch aplikaci ketry si povidaj mezi sebou ?
> POkud klient server, a server potrebuje znat "zijici" aplikace, pak si
> muzes pri startu/ukonceni pripojit klienta na server a zapsat/smazat ze
> seznamu a tim padem mas na serveru seznam klientu, ktery muzes oslovovat.
>
> Pokud jsou to rovnocenny aplikace, no tak si na to
> prihlasovani/odhlasovani napis jednoduchej servrik a dej ho treba na radic
> domeny a tam se ty aplikace vzdycky zaregistrujou/odregistrujou a
> kdykoliv si reknou o seznam potencielnich sousedek na pokec. Servrik
> jeste muze seznam obcas projet a zjisit jestli je seznam aktualni.
Jsou to rovnocenne aplikace, neco jako server neni. Chci to primarne vyresit
_bez_ centralniho serveru, protoze sit neni 100% spolehliva. delphi 2006 for .net + firebird
[*] hlas <hlas(zv)inmail.sk> - 22.12.2005 09:12:39
snazim sa o zakladny priklad pouzitia fb databazy
spolu s fb dataproviderom
daky ukazkovy priklad alebo podrobne helpy ako pospajat
tie komponenty dokopy nie su niekde na nete?
podarilo sa mi akurat fbconnection napojit na databazu
ale uz nejaky zakladny select sa mi nedari zobrazit v gride
kde to nastudovat?
mam na mysli komponenty fbdataadapter, fbcommand
dataset a datagrid.
TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.12.2005 08:28:50
Trochu jsem to nepochopil - to jako, ze vsechny servery budou udrzovat
spojeni na nejaky server v internetu ???
Je to jedno z reseni, ale neslo by to s sebou dalsi rezii a nevim nakolik by
ten server dokazal obhospodarit nekolik tisic pripojeni soucasne... Dalsi
problem je takovy, ze ne vsechna PC zakazniku maji pristup na internet...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
> Sent: Thursday, December 22, 2005 8:11 AM
>
> Milan Tomes wrote:
>
> > 2. Odhlasovani apod. nemusi v pripade padu aplikace
> probehnout a tudiz
> > je nutne resit nejakou kontrolu IP, ktere jsou zaregistrovany
>
> Ja bych to neregistroval - nechal bych tu aplikaci trvale
> pripojenou a udrzoval si spojeni stejne jako to delaji napr.
> ICQ a spol.
>
> > Nicmene Tve reseni spociva v tom, ze opet musim dalsi konfiguraci
> > aplikacim rici, kde je onen centralni server a tomu se chceme pokud
> > mozno vyhnout a take je pote velice prustrelne to, ze tech
> centralnich
> > serveru uzivatel rozbehne vice a opet neziskam to co potrebuji...
>
> Jeden predinstalovany parametr, treba .
> http://www.haida(tec)cz/singletons, by to uneslo, ne?TCP komunikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.12.2005 08:10:48
Milan Tomes wrote:
> 2. Odhlasovani apod. nemusi v pripade padu aplikace probehnout a
> tudiz je nutne resit nejakou kontrolu IP, ktere jsou zaregistrovany
Ja bych to neregistroval - nechal bych tu aplikaci trvale pripojenou
a udrzoval si spojeni stejne jako to delaji napr. ICQ a spol.
> Nicmene Tve reseni spociva v tom, ze opet musim dalsi konfiguraci
> aplikacim rici, kde je onen centralni server a tomu se chceme pokud
> mozno vyhnout a take je pote velice prustrelne to, ze tech
> centralnich serveru uzivatel rozbehne vice a opet neziskam to co
> potrebuji...
Jeden predinstalovany parametr, treba . http://www.haida(tec)cz/singletons,
by to uneslo, ne?
pf
TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.12.2005 07:58:47
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ludek
> Sent: Thursday, December 22, 2005 12:18 AM
>
> ----- Original Message -----
> From: "Milan Tomes" <delphi(zv)haida(tec)cz>
>
> > Jenze to s sebou nese spoustu dalsich omezeni a prekazek.
> Jde o to, ze mam x
> > serveru naslouchajicich na konkretnim portu, ale nikde neni
> jejich centralni
> > seznam - je to celkem logicke. Staci nainstalovat aplikaci
> na novy PC a je
> > to opet mimo resp. musel bych zajistit nejakou aktualizaci.
> V tuto chvili
> > jsme navrhli nasledujici reseni:
> > 1. Pobezi UDP server, ktery bude odpovidat na broadcast a
> tim zjistim IP
> > adresy pocitacu, ktere maji nejakou aplikaci spustenou
> > 2. V pripade, ze je aplikace za nejakym routerem ci v jinem
> segmentu site,
> > vytvorime aplikaci - jakysi bridge - ktery toto omezeni
> prekona tak, ze bude
> > poslouchat na stejnem UDP portu, na kterem poslouchaji jine
> servery, ale
> > tento pozadavek dle konfiguracniho souboru preposlou pomoci
> TCP spojeni na
> > "druhou stranu" resp. "druhe strany" (segmentu muze byt
> vice), ktera bude
> > reprezentovana take onim bridgem. Na druhe strane bridge
> zajisti rozeslani
> > UDP paketu broadcastem do dalsiho segmentu.
>
> No radeji nez bridge (kerou budes muset konfigurovat pokazdy,
> kdy se ti zmeni topologie site a budes jich muset mit tolik
Je pravda, ze se budou muset konfigurovat, ale ona konfigurace bude velice
jednoducha a hlavne - budou se instalovat a konfigurovat jen v tech
specialnich pripadech a ne vzdy
> co routeru a urcite to nikdy nebude makat na internetu a.....)
No rekl bych, ze dvakrat tolik co routeru, ale to je jedno :)
O provoz pres internet mi nejde, ale z principu by to jet melo. Jde hlavne o
detasovana pracoviste pripojena napr. pres VPN, nebo o jine segmenty site.
> bych napsal jedinej master-server, ke kterymu se kazdej
> stavajici server pri startu pripoji a rekne mu svoji IP a
> pri ukonceni se zase pripoji a odhlasi svoji IP ze seznamu.
> Seznam je mozno obcas projet a zkontrolovat. No a jednotlive
> servery nebo aplikace si pravidelne muzou z tohohle
> master-serveru ziskavat seznam zivych serveru misto toho aby
> si to zjistovaly pres broadcasty.
> Prijde mi to lepsi jak na programovani, tak na udrzbu a provoz.
S pozdravem
Milan Tomes
TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.12.2005 07:54:47
Jeden centralni server jsme zavrhli z nasledujicich duvodu:
1. Chceme se vyhnout instalaci neceho co nebude v 99% pripadu nutne
2. Odhlasovani apod. nemusi v pripade padu aplikace probehnout a tudiz je
nutne resit nejakou kontrolu IP, ktere jsou zaregistrovany
Ona ta architektura je jeste malinko jinak:
1. Aplikace
2. Out-of-process COM server, ktery zaroven otevira onen TCP/UDP port pro
naslouchani a je to singleton
Jednotlive aplikace vyuzivaji sluzeb toho COM serveru, ktery bezi na
lokalnim PC jako singleton (ano, napadlo nas to udelat pres DCOM, ale opet
jsme to pro nutnost dalsi konfigurace zavrhli)
Reseni, ktere jsme zvolili nam nabizi jedno velike plus - budou se osetrovat
jen specialni pripady (kterych bude jen minimum) a vsechny standardni
instalace pojedou klasicky.
Nicmene Tve reseni spociva v tom, ze opet musim dalsi konfiguraci aplikacim
rici, kde je onen centralni server a tomu se chceme pokud mozno vyhnout a
take je pote velice prustrelne to, ze tech centralnich serveru uzivatel
rozbehne vice a opet neziskam to co potrebuji...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
> Sent: Wednesday, December 21, 2005 11:36 PM
>
> Milan Tomes wrote:
>
> > Jenze to s sebou nese spoustu dalsich omezeni a prekazek.
> Jde o to, ze
> > mam x serveru naslouchajicich na konkretnim portu, ale nikde neni
> > jejich centralni seznam - je to celkem logicke.
>
> Tak to udelej obracene - postav jeden svuj centralni server,
> na ktery se kazda tvoje spustena aplikace pripoji
> - no a na takto zrizenem spojeni si muzes delat co chces, ne?PDF was:Re: tisk z delphi pres browser
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 22.12.2005 00:24:11
> the PowerPdf is a VCL to create PDF docment visually. Like
> QuickReport, you can design PDF document easily on Delphi IDE.
>
> http://www.est.hi-ho.ne.jp/takeshi_kanno/powerpdf/index.html
Pred tydnem se tady objevil odkaz na komponenty PowerPDF. Vypadaji celkem
zajimave, zkousel jsem to, ale ve vyslednem PDF se mi spravne nezobrazuji
nektere znaky s diakritikou.
Existuje nejaka jednoducha cesta, jak to opravit ? Stacil by i nazorny
priklad, jak to ma vypadat ve vyslednem PDF.
Tomas TCP komunikace
[*] Ludek <konference(zv)sales(tec)cz> - 22.12.2005 00:18:10
----- Original Message -----
From: "Milan Tomes" <delphi(zv)haida(tec)cz>
> Jenze to s sebou nese spoustu dalsich omezeni a prekazek. Jde o to, ze mam x
> serveru naslouchajicich na konkretnim portu, ale nikde neni jejich centralni
> seznam - je to celkem logicke. Staci nainstalovat aplikaci na novy PC a je
> to opet mimo resp. musel bych zajistit nejakou aktualizaci. V tuto chvili
> jsme navrhli nasledujici reseni:
> 1. Pobezi UDP server, ktery bude odpovidat na broadcast a tim zjistim IP
> adresy pocitacu, ktere maji nejakou aplikaci spustenou
> 2. V pripade, ze je aplikace za nejakym routerem ci v jinem segmentu site,
> vytvorime aplikaci - jakysi bridge - ktery toto omezeni prekona tak, ze bude
> poslouchat na stejnem UDP portu, na kterem poslouchaji jine servery, ale
> tento pozadavek dle konfiguracniho souboru preposlou pomoci TCP spojeni na
> "druhou stranu" resp. "druhe strany" (segmentu muze byt vice), ktera bude
> reprezentovana take onim bridgem. Na druhe strane bridge zajisti rozeslani
> UDP paketu broadcastem do dalsiho segmentu.
Ahoj,
No radeji nez bridge (kerou budes muset konfigurovat pokazdy, kdy se ti zmeni topologie site a budes jich muset mit tolik co routeru a urcite to nikdy nebude makat na internetu a.....)
bych napsal jedinej master-server, ke kterymu se kazdej stavajici server pri startu pripoji a rekne mu svoji IP a pri ukonceni se zase pripoji a odhlasi svoji IP ze seznamu. Seznam je mozno obcas projet a zkontrolovat. No a jednotlive servery nebo aplikace si pravidelne muzou z tohohle master-serveru ziskavat seznam zivych serveru misto toho aby si to zjistovaly pres broadcasty.
Prijde mi to lepsi jak na programovani, tak na udrzbu a provoz.
Ludek
TCP komunikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 21.12.2005 23:36:06
Milan Tomes wrote:
> Jenze to s sebou nese spoustu dalsich omezeni a prekazek. Jde o to,
> ze mam x serveru naslouchajicich na konkretnim portu, ale nikde neni
> jejich centralni seznam - je to celkem logicke.
Tak to udelej obracene - postav jeden svuj centralni server,
na ktery se kazda tvoje spustena aplikace pripoji
- no a na takto zrizenem spojeni si muzes
delat co chces, ne?
pf
TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.12.2005 23:22:05
Jenze to s sebou nese spoustu dalsich omezeni a prekazek. Jde o to, ze mam x
serveru naslouchajicich na konkretnim portu, ale nikde neni jejich centralni
seznam - je to celkem logicke. Staci nainstalovat aplikaci na novy PC a je
to opet mimo resp. musel bych zajistit nejakou aktualizaci. V tuto chvili
jsme navrhli nasledujici reseni:
1. Pobezi UDP server, ktery bude odpovidat na broadcast a tim zjistim IP
adresy pocitacu, ktere maji nejakou aplikaci spustenou
2. V pripade, ze je aplikace za nejakym routerem ci v jinem segmentu site,
vytvorime aplikaci - jakysi bridge - ktery toto omezeni prekona tak, ze bude
poslouchat na stejnem UDP portu, na kterem poslouchaji jine servery, ale
tento pozadavek dle konfiguracniho souboru preposlou pomoci TCP spojeni na
"druhou stranu" resp. "druhe strany" (segmentu muze byt vice), ktera bude
reprezentovana take onim bridgem. Na druhe strane bridge zajisti rozeslani
UDP paketu broadcastem do dalsiho segmentu.
Co vy na to ???
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Toman
> Sent: Wednesday, December 21, 2005 4:49 PM
>
> On Wednesday, December 21, 2005 1:52 PM , Milan Tomes
> <delphi(zv)haida(tec)cz> wrote:
>
> > Ale prihlaseni ke komu ??? Neexistuje jednoznacne dana protistrana.
>
> no tak si ji musis vytvorit. Pokud tomu brani nejake
> technicke prekazky (pocitace nemaji konektivitu tam kam by
> mely mit) tak mas holt smulu
Broadcast a segmenty site
[*] Ludek <konference(zv)sales(tec)cz> - 21.12.2005 22:11:55
----- Original Message -----
From: <delphin(zv)post(tec)cz>
> Mame nekolik desitek PC W2K a WXP s nasi aplikaci, ktera vysila UDP
> broadcasty a aplikace, ktera zije, tak odpovi. To funguje bez problemu, ale
> pochopitelne jenom po prvni router, v teto situaci maji PC stejne prvni 3
> cisla IP. Jak uz to chodi, zakaznik puvodne prisahal, ze mu to takhle staci,
> ale dneska chce, aby se dokazaly najit i PC v ruznych segmentech, tj. IP se
> lisi ve 3-ti, a 4-tem cislu. Spravce site samozrejme na routeru nic
> nestandardniho nepovoli.
> Jak z toho ven ?
Ahoj,
Pribliz tu aplikaci, je to klient server nebo smecka samostatnejch rovnocenejch aplikaci ketry si povidaj mezi sebou ?
POkud klient server, a server potrebuje znat "zijici" aplikace, pak si muzes pri startu/ukonceni pripojit klienta na server a zapsat/smazat ze seznamu a tim padem mas na serveru seznam klientu, ktery muzes oslovovat.
Pokud jsou to rovnocenny aplikace, no tak si na to prihlasovani/odhlasovani napis jednoduchej servrik a dej ho treba na radic domeny a tam se ty aplikace vzdycky zaregistrujou/odregistrujou a kdykoliv si reknou o seznam potencielnich sousedek na pokec. Servrik jeste muze seznam obcas projet a zjisit jestli je seznam aktualni.
Ludek
Broadcast a segmenty site
[*] delphin(zv)post(tec)cz - 21.12.2005 17:32:07
Tema probirane v prispevku TCP komunikace me pripomelo, ze mam tento
nevyreseny problem:
Mame nekolik desitek PC W2K a WXP s nasi aplikaci, ktera vysila UDP
broadcasty a aplikace, ktera zije, tak odpovi. To funguje bez problemu, ale
pochopitelne jenom po prvni router, v teto situaci maji PC stejne prvni 3
cisla IP. Jak uz to chodi, zakaznik puvodne prisahal, ze mu to takhle staci,
ale dneska chce, aby se dokazaly najit i PC v ruznych segmentech, tj. IP se
lisi ve 3-ti, a 4-tem cislu. Spravce site samozrejme na routeru nic
nestandardniho nepovoli.
Jak z toho ven ?
Pro zajimavost uvadim, ze Windows zobrazuje okolni pocitace spravne, tj. i
ty za routerem, je to zrejme zalezitost domeny. Samozrejme me napadlo
rozesilat UDP paket na vsechny PC v domene, ale to sit neunese.
Diky
Delphin TCP komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.12.2005 16:49:27
On Wednesday, December 21, 2005 1:52 PM ,
Milan Tomes <delphi(zv)haida(tec)cz> wrote:
> Ale prihlaseni ke komu ??? Neexistuje jednoznacne dana protistrana.
no tak si ji musis vytvorit. Pokud tomu brani nejake technicke
prekazky (pocitace nemaji konektivitu tam kam by mely mit) tak mas
holt smulu
Zdravi
Dalibor Toman
UDF v Delphi
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 21.12.2005 16:14:49
"Pavel Poles" <delphi(zv)noni(tec)cz>
> Pripojuji se pres IBX, ale rad bych nasel reseni ne na klientovi ale v
> databazi tzn. SQL, nebo UDF
no, nevim, jak ji to predstavujes, ale my jsme takto na klientovi
resili (a docela elegantne) licenci pro pocet uzivatelu.
Stejne budes muset nekde zobrazovat, popr. kontrolovat pocet
soucasnych pripojeni.
Jarek Uher
UDF v Delphi
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 21.12.2005 16:00:16
Pripojuji se pres IBX, ale rad bych nasel reseni ne na klientovi ale
v databazi tzn. SQL, nebo UDF
Pavel Poles
Jaroslav Uher napsal(a):
>Ahoj,
>
>
>
>>nasel jsem si na internetu jak vytvaret UDF pro Firebird v Delphi. Rad
>>bych v teto UDF implementoval funkci, ktera by vratila pocet aktualne
>>pripojenych uzivatelu. Tu informaci lze ziskat pomoci API funkce
>>isc_database_info. Ta vsak vyzaduje handle na pripojeni k databazi a
>>ten nevim jak ziskat.
>>
>>Resil jste nekdo podobny problem, pripadne nevite jakym jinym zpusobem
>>ziskat na serveru Firebird 1.5 (pomoci SQL nebo UDF) pocet aktualne
>>pripojenych uzivatelu?
>>
>>
>
>na to nepotrebujes UDF, to vraci komponenta xxDatabase,
>mam to resene jak v IBX, tak i FibPlus, vse D6P.
>Napis jak se k FB pripojujes.
>
>Jarek Uher
>
>
>>Dik za odpovedi
>>
>>Pavel Poles
>>
>>
>>
>>
>
>
>
>
>
>
UDF v Delphi
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 21.12.2005 15:45:41
Ahoj,
> nasel jsem si na internetu jak vytvaret UDF pro Firebird v Delphi. Rad
> bych v teto UDF implementoval funkci, ktera by vratila pocet aktualne
> pripojenych uzivatelu. Tu informaci lze ziskat pomoci API funkce
> isc_database_info. Ta vsak vyzaduje handle na pripojeni k databazi a
> ten nevim jak ziskat.
>
> Resil jste nekdo podobny problem, pripadne nevite jakym jinym zpusobem
> ziskat na serveru Firebird 1.5 (pomoci SQL nebo UDF) pocet aktualne
> pripojenych uzivatelu?
na to nepotrebujes UDF, to vraci komponenta xxDatabase,
mam to resene jak v IBX, tak i FibPlus, vse D6P.
Napis jak se k FB pripojujes.
Jarek Uher
> Dik za odpovedi
>
> Pavel Poles
>
>
TCP komunikace
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 21.12.2005 15:35:11
Aha, ja jsem myslel, ze ten TCP server je jednoznacny. Tak zase nic.
Dalibor.
> Ale prihlaseni ke komu ??? Neexistuje jednoznacne dana protistrana.TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.12.2005 13:52:11
Ale prihlaseni ke komu ??? Neexistuje jednoznacne dana protistrana.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
> Sent: Wednesday, December 21, 2005 1:47 PM
>
> No a neco jako prihlaseni klienta by neslo?
> Dalibor.
>
> >A komu tu zpravu posle ??? Pro TCP spojeni musi byt jasne dana
> >protistrana a tu ja pri spousteni neznam resp. muze jich byt > 1.TCP komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.12.2005 13:51:46
On Wednesday, December 21, 2005 12:44 PM ,
Karel Rys <delphi(zv)zas-me(tec)cz> wrote:
> Dalibor Toman dne 21 Dec 2005 v 12:35:
>
>>> Projde ten broadcast pres pripadne routery? Nejsem si totiz jist,
>>> jak moc spolehlive se Ti povede takhle vsechny spustene instance
>>> najit...
>>
>> obecne - broadcasty skrz routery nesmi (i kdyz ve specialnich
>> pripadech se to muze pouzivat). Broadcast je zalezitost jednoho
>> segmentu site (broadcastove domeny).
>>
>> Ucelem toho vyhledavani neni zrejme najit vsechny aplikace kdesi v
>> Internetu ale prave na segmentu site.
>
> No jo, jenze treba u nas ve skole i ve firme je Novell server, ktery
> ma nekolik sitovych karet. Sit je tak tvorena 2 - 4 segmenty
> (172.17.8.x, 172.17.9.x...), Novell mezi nimi v pripade potreby
> routuje (drtiva vetsina komunikace je totiz stejne stanice--server).
> A tam by prave instance z jednoho segmentu nenasly instance bezici
> na
> druhem segmentu...
samozrejme. Obecna funkcni metoda jak najit nejakou stanici s
konkretni aplikaci po IP siti nexistuje. Je mozne vymyslet spousty
reseni, ktere budou fungovat kdyz je splneno tamto ci ono. Reseni,
ktere je univerzalni neexistuje. Zalezi od typu aplikace, ale pro
aplikace vice rozsirene ve vetsi siti (Internet) je jedinym resenim
prihlasovani na nejaky predem znamy centralni server (tj ten se dozvi
jakym zpusobem (IP adresa) muze komunikovat s aplikaci)
D. Toman
OT: UDF v Delphi
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 21.12.2005 13:49:16
Zdravim konferenci,
nasel jsem si na internetu jak vytvaret UDF pro Firebird v Delphi.
Rad bych v teto UDF implementoval funkci, ktera by vratila pocet aktualne
pripojenych uzivatelu. Tu informaci lze ziskat pomoci API funkce
isc_database_info.
Ta vsak vyzaduje handle na pripojeni k databazi a ten nevim jak ziskat.
Resil jste nekdo podobny problem, pripadne nevite jakym jinym zpusobem
ziskat na serveru Firebird 1.5 (pomoci SQL nebo UDF) pocet aktualne
pripojenych
uzivatelu?
Dik za odpovedi
Pavel Poles
TCP komunikace
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 21.12.2005 13:46:47
No a neco jako prihlaseni klienta by neslo?
Dalibor.
>A komu tu zpravu posle ??? Pro TCP spojeni musi byt jasne dana protistrana
>a
> tu ja pri spousteni neznam resp. muze jich byt > 1.pozadavek SQLMemTable
[*] Kamil Pavel Skala <zzr600(zv)centrum(tec)cz> - 21.12.2005 12:47:12
Ahojec lidi,
mate nekdo zkusenost s SQLMemTable?
Mam s ni maly problem, kdyz chci otevrit tabulku sql funkci LoadTableFromFile , tak mi vybehne pozadavek na nalezeni SQLMemMemEngine.pas a to nevim kde hledat a ani nevim proc.
S touto komponentou pracuju sotva par hodin, tak nevim, jinak vytvoreni tabulky, ulozeni neni problem, muzu ji i ulozit jako neco.sql, ale uz ji neotevru.
Dik moa a vsem hezky svatky,
Kamil.TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.12.2005 12:55:38
A komu tu zpravu posle ??? Pro TCP spojeni musi byt jasne dana protistrana a
tu ja pri spousteni neznam resp. muze jich byt > 1.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
> Sent: Wednesday, December 21, 2005 12:47 PM
>
> A co to udelat z opacne strany, totiz tak, ze pri spusteni
> TCP server posle zpravu ze se spustil a pri ukonceni naopak?
> Dalik.
>
> > resim takovou ulohu, kdy mi na ruznych pocitacich bezi nami
> dodavane
> > aplikace. Tyto aplikace je nutno "ovladat" i na dalku,
> takze delam TCP
> > server, ktery je napsan jako out-of-process COM server. Vzhledem k
> > tomu, ze nevim kde vsude dane aplikace bezi, tak potrebuji
> zjistit IP
> > adresy, kde je spusten onen TCP server. Puvodne jsem to mel vse
> > napsane nad UDP, kdy jsem rozeslal broadcastem zpravu aby se mi
> > prihlasili - resp. cekal jsem na jakoukoliv reakci a
> precetl jsem si
> > odkud prisla. Ted jsem to chtel prepsat nad TCP a tak nejak
> logicky mi
> > nejde dohromady TCP a broadcast. Musim tedy ono zjistovani
> IP adres,
> > kde bezi server napsat nad UDP a zbytek nad TCP nebo se to da nejak
> > skloubit oboje pod TCP ???TCP komunikace
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 21.12.2005 12:46:47
A co to udelat z opacne strany, totiz tak, ze pri spusteni TCP server posle
zpravu ze se spustil a pri ukonceni naopak?
Dalik.
> resim takovou ulohu, kdy mi na ruznych pocitacich bezi nami dodavane
> aplikace. Tyto aplikace je nutno "ovladat" i na dalku, takze delam TCP
> server, ktery je napsan jako out-of-process COM server. Vzhledem k tomu,
> ze
> nevim kde vsude dane aplikace bezi, tak potrebuji zjistit IP adresy, kde
> je
> spusten onen TCP server. Puvodne jsem to mel vse napsane nad UDP, kdy jsem
> rozeslal broadcastem zpravu aby se mi prihlasili - resp. cekal jsem na
> jakoukoliv reakci a precetl jsem si odkud prisla. Ted jsem to chtel
> prepsat
> nad TCP a tak nejak logicky mi nejde dohromady TCP a broadcast. Musim tedy
> ono zjistovani IP adres, kde bezi server napsat nad UDP a zbytek nad TCP
> nebo se to da nejak skloubit oboje pod TCP ???TCP komunikace
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 21.12.2005 12:44:22
Dalibor Toman dne 21 Dec 2005 v 12:35:
> > Projde ten broadcast pres pripadne routery? Nejsem si totiz jist,
> > jak moc spolehlive se Ti povede takhle vsechny spustene instance
> > najit...
>
> obecne - broadcasty skrz routery nesmi (i kdyz ve specialnich
> pripadech se to muze pouzivat). Broadcast je zalezitost jednoho
> segmentu site (broadcastove domeny).
>
> Ucelem toho vyhledavani neni zrejme najit vsechny aplikace kdesi v
> Internetu ale prave na segmentu site.
No jo, jenze treba u nas ve skole i ve firme je Novell server, ktery ma nekolik sitovych karet.
Sit je tak tvorena 2 - 4 segmenty (172.17.8.x, 172.17.9.x...), Novell mezi nimi v pripade potreby
routuje (drtiva vetsina komunikace je totiz stejne stanice--server). A tam by prave instance z
jednoho segmentu nenasly instance bezici na druhem segmentu...
Karel Rys
TCP komunikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.12.2005 12:35:56
On Wednesday, December 21, 2005 11:39 AM ,
Karel Rys <delphi(zv)zas-me(tec)cz> wrote:
> Milan Tomes dne 21 Dec 2005 v 10:52:
>
>> Vzhledem k tomu, ze nevim kde vsude dane aplikace bezi, tak
>> potrebuji
>> zjistit IP adresy, kde je spusten onen TCP server. Puvodne jsem to
>> mel vse napsane nad UDP, kdy jsem rozeslal broadcastem zpravu aby
>> se
>> mi prihlasili
>
> Projde ten broadcast pres pripadne routery? Nejsem si totiz jist,
> jak
> moc spolehlive se Ti povede takhle vsechny spustene instance
> najit...
obecne - broadcasty skrz routery nesmi (i kdyz ve specialnich
pripadech se to muze pouzivat). Broadcast je zalezitost jednoho
segmentu site (broadcastove domeny).
Ucelem toho vyhledavani neni zrejme najit vsechny aplikace kdesi v
Internetu ale prave na segmentu site. K tomu je nejlepsi asi pouzit
broadcastovanej UDP packet. Vlastni (vzdalene ovladani) komunikace je
mnohem jednodusseji resitelna pomoci TCP -i kdyz i zde zavisi na
zadani. UDP muze take plne postacovat
D. Toman
TCP komunikace
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 21.12.2005 11:39:23
Milan Tomes dne 21 Dec 2005 v 10:52:
> Vzhledem k tomu, ze nevim kde vsude dane aplikace bezi, tak potrebuji
> zjistit IP adresy, kde je spusten onen TCP server. Puvodne jsem to mel
> vse napsane nad UDP, kdy jsem rozeslal broadcastem zpravu aby se mi
> prihlasili
Projde ten broadcast pres pripadne routery? Nejsem si totiz jist, jak moc spolehlive se Ti povede
takhle vsechny spustene instance najit...
Karel Rys
Jaka bezudrzbova DB ?
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 21.12.2005 11:32:58
> Chci se proto zeptat na zkusenosti s FB embedded, zejmena me zajima, zda
> je
> to schopno bezet nejmene rok bez jakekoliv udrzby a ktera verze je
> "nejstabilnejsi". Pripadne co jineho pouzit.
FB embedded je realizovan pomoci jedne dll knihovny, ktera obsahuje
funkcnost sql serveru. U normalni verze FB bezi na serveru fbserver.exe a
stanice posilaji sve pozadavky prostrednictvim knihovny fbclient.dll. U
verze embedded je pod stejnym jmenem fbclient.dll jina knihovna, ktera
zaroven obsahuje funkcnost serveru fbserver.exe. Z toho vyplyva pro verzi
embedded, ze zadna udrzba sql serveru neni nutna. Druha vec je udrzba
databaze (sweep, backup, restore), bez ktere to ale pojede bez problemu,
snad pri castem ruzeni vet se potom touto udrzbou prace s daty muze
zrychlit.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 TCP komunikace
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 21.12.2005 10:52:30
Zdravim vsechny,
resim takovou ulohu, kdy mi na ruznych pocitacich bezi nami dodavane
aplikace. Tyto aplikace je nutno "ovladat" i na dalku, takze delam TCP
server, ktery je napsan jako out-of-process COM server. Vzhledem k tomu, ze
nevim kde vsude dane aplikace bezi, tak potrebuji zjistit IP adresy, kde je
spusten onen TCP server. Puvodne jsem to mel vse napsane nad UDP, kdy jsem
rozeslal broadcastem zpravu aby se mi prihlasili - resp. cekal jsem na
jakoukoliv reakci a precetl jsem si odkud prisla. Ted jsem to chtel prepsat
nad TCP a tak nejak logicky mi nejde dohromady TCP a broadcast. Musim tedy
ono zjistovani IP adres, kde bezi server napsat nad UDP a zbytek nad TCP
nebo se to da nejak skloubit oboje pod TCP ???
Diky
Milan Tomes
Pocet polozek v SQL tabulce
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.12.2005 10:12:01
Ano lze a muj system pro mereni je takto udelany (jeden datovy sloupec a 4
pomocne), ale ma i sve,
celkem podstatne nevyhody:
1. Je pomaly
2. Zabira hoodne mista na disku
3. jakykoliv pristup k vice jak 1 polozce je dost komplikovany,
jelikoz presunujes cast DB logiky do aplikace (musis pocitat
s tim, ze ti muze sem tam nejaky zaznam chybet).
Na druhou stranu je tento system univerzalni, mas jeden kod
pro vsechny cidla.
Osobne znovu zduraznuji, jakekoliv pravidlo lze porusit, ale
clovek si musi byt VEDOM toho, ze tak cini a proc tak cini.
Ono jedna vec je teoreticka uvaha, uplne jina vec je realny pripad,
kde je pevna cena, realny termin dodani a realne pozadavky
na odezvu.
Slavek
> Zaznel tu prispevek, jak na nejakem systemu je x-tisic cidel.
> Oh Ford, to je ten system striktne synchronni, aby existoval
> duvod (a i ten syanchron by
> byl pochybny) vest je v jedine vete vedle sebe? Neni snad
> prirozenejsi
> jednoducha tabulka typu
> cidlo-cas-stav ?Pocet polozek v SQL tabulce
[*] Kalhous <kalhous(zv)eu(tec)cz> - 21.12.2005 09:09:32
From: "Jaroslav Pivonka" <jpivonka(zv)centrum(tec)cz>
> Zakladem matematiky ... je vytykani pred zavorku.
> ...Pokud je moc atributu, je to spatne. Pokud je moc entit, je to zase
> spatne. Dve ruce a pet prstu na
> kazde, tohle prezilo dobu ledovou. Dukazem je, ze tu jsme.
Zakladem matematiky neni ani tak vytykani pred zavorku jako spis prirozena
cisla (dana od Boha - viz Kronecker). No ale tady se mluvilo spis o tom
jestli se tyty "mocy" urcujici "spatnost" daji vyjadrit cislem.
Mimochodem stonozky jsou zde o peknych par milionu let dele nez my a o jeste
vic milionu let dele tady budou. Takze ani na tech pet prstu bych moc
nevsazel.
Z.Kalhous
Pocet polozek v SQL tabulce
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 21.12.2005 08:35:05
Neda mi, abych to neoflekoval:
Mame dve ruce, dve oci a deset prstu.
Nechodime po ctyrech.
Letadla mivala ctyri motory a dnes jiz prevazuji dvoumotory.
Koordinace velkeho poctu paralelnich subsystemu ma rezii, ktera nevyvazi
vyhody redundance.
Zakladem matematiky (i programovani) je vytykani pred zavorku.
F.R.Codd nekdy 1970 publikoval v CACMu fundamentalni clanek "A relational
model of data..." kterym reagoval na nutnost zjednoduseni rostouciho
mnozstvi souborovych agend typu "file of record" (pardon, Wirth publikoval
Packal az o 2
roky pozdeji, 1972, ze...). Proste je entita->atribut. Pokud je moc
atributu, je to
spatne. Pokud je moc entit, je to zase spatne. Dve ruce a pet prstu na
kazde, tohle prezilo dobu ledovou. Dukazem je, ze tu jsme.
Zaznel tu prispevek, jak na nejakem systemu je x-tisic cidel. Oh Ford, to je
ten system striktne synchronni, aby existoval duvod (a i ten syanchron by
byl pochybny) vest je v jedine vete vedle sebe? Neni snad prirozenejsi
jednoducha tabulka typu
cidlo-cas-stav ?
No nic, jdeme budovat kapitalismus. Jarda
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 19, 2005 3:46 PM
Subject: Re: Pocet polozek v SQL tabulce
> Nemohu mlcet:
>
>> Petr Zahradnik, pocitacovy expert
>
>> Ale ja se nepru o to, jestli nejake poucky existuji
>> nebo ne, pripadne jestli je nekdo rika nebo ne.
>> Ja jen tvrdim, ze je to hovadina. A
>> jestli to nekdo fundovany takhle per huba hlasi, tak neni moc
>> fundovany.
>
> Samozrejme, to muze byt tvuj nazor.
> Ja mam ale nazor opacny a na rozdil od tebe jsem ho argumentoval.
> A argumentovali ho jini "fundovani", kdyz popisuji, jak k takove chybe
> dochazi a ze k ni dochazi casto.
>
> Tim nerikam, ze entity s 1000 polozkami neexistuji.
>
>> Hodne atributu naznacuje pouze to, ze je tam hodne
>> atributu.
>
> Hodne atributu naznacuje, ze je tam budto hodne atributu nebo chyba v
> logickem navrhu.
>
>> Ze mozna existuje nejaka statistika, ze takovych pripadu je
>> mene nez jinych, to je jedna vec.
>
> Ja ze sve dlouholete praxe tvrdim, ze jsem se mnohokrat setkal s touto
> chybou, naopak nikdy jsem se nesetkal s entitou, ktera ma "opravdu" 1000
> atributu.
>
> Tim netvrdim, ze takove entity neexistuji.
> Tvrdim pouze, ze velmi casto jde o chybu a stoji za to se nad tim
> zamyslet.
>
>> Ale jinak to nenaznacuje vubec nic
>> konkretniho :-)
>
> Naznacuje to, ze tam je s velkou pravdepodobnosti chyba a ze je treba se
> nad tim zamyslet.
> Nic jinyho konkretniho to nenaznacuje.
>
> Honza
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> ====================================
>
>
>
>FB - presnost TIMESTAMP
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.12.2005 00:43:42
Ve verzi 1.0 a 1.5 je presnost na cele sekundy, ale pole date ma presnost ne
0.0001 sekundy.
Pro vyuziti teto presnosti si musis napsat vlastni CURRENT_TIMESTAMP.
Dale pozor na prechod letni/zimni cas, jelikoz CURRENT_TIMESTAMP.je v lokalnim
case. Proto doporucuji pouzivat UTC a na klientovi konvertovat do prislusneho
casoveho
pasma dle potreby.
Osobne pouzivam tam kde jde o cas UTC timestamp (vlastni UDF), ono jde o problem
i pri
trideni (v oblasti posunu casu zpet).
FB 2.0 by mel mit presny CURRENT_TIMESTAMP.
Slavek
> mam FB 1.0, na nem databazi v dialektu 1. Databaze obsahuje pole
> typu DATE, coz v dialektu 1 zahrnuje i cas. Nevite nekdo, jaka
> presnost casu v tomto dialektu je? Na vteriny, na desetiny
> vteriny...? Cas se do pole zapisuje pri insertu zaznamu pomoci
> CURRENT_TIMESTAMP.
>
> Mam totiz problem v tom, ze tento sloupec je soucasti
> primarniho klice
> a obcas se zaznam nepodari vlozit kvuli KEY VIOLATION. Mne se ale
> nezda, ze by nastala situace, kdy se vkladaji dva zaznamy ve stejny
> okamzik.FB - presnost TIMESTAMP
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 20.12.2005 16:34:44
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lebeda David
Ahoj,
> > No me se to vcelku zda, pocitas treba se situaci, kdyz se na serveru
> > rozhodi cas ? Myslim, ze pouzit timestamp jako unique je
> dosti nebezpecne.
>
> Obecne souhlasim, nicmene v kontextu nasi aplikace by tohle byt
> problem nemel. Nicmene opravdu uvazujeme o tom, ze by sloupce
> tvorici stavajici PK prestaly tvorit PK, ale jen neunikatni index.
Samozrejme neznam vasi aplikaci, ale asi bych moc dlouho neuvazoval,
pokud neni problem pridat to tabulky(tabulek) sloupecek, nejlepe GUID :)
> Z meho pohledu zatim zahada, ale nevzdavam se...
Mozna se ozve treba P.Cisar s fundovanou odpovedi :). S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
FB - presnost TIMESTAMP
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.12.2005 16:10:17
> No me se to vcelku zda, pocitas treba se situaci, kdyz se na serveru
> rozhodi cas ? Myslim, ze pouzit timestamp jako unique je dosti nebezpecne.
Obecne souhlasim, nicmene v kontextu nasi aplikace by tohle byt
problem nemel. Nicmene opravdu uvazujeme o tom, ze by sloupce
tvorici stavajici PK prestaly tvorit PK, ale jen neunikatni index.
Neni problem to vyresit, spis by zajimalo, jak to, ze ta chyba vubec
vznika. Jako mozna pricina me napadlo, ze by to treba mohla byt nizka
presnost casu ve sloupci DATE v dialektu 1. Neco podobneho, jako
dosovsky datum a cas - ten ma nepresnost okolo 2 sekund, pokud si
spravne pamatuji.
Pro pana Kalhouse: o problemu nemennosti CURRENT_TIMESTAMP
behem transakce vim, ale to neni tento pripad - v jedne transakci se
dela jeden insert a nemohou to zpusobovat zadne vazby pres triggery
apod.
Z meho pohledu zatim zahada, ale nevzdavam se...
David Lebeda
FB - presnost TIMESTAMP
[*] Dusan Vrazel <d.vrazel(zv)centrum(tec)cz> - 20.12.2005 15:39:50
Ahoj,
TIMESTAMP je tzv. casove razitko, ktere vraci pocet sekund od "epochy
linuxu" 1.1.1970 00:00:00 GTM.
Takze presnost na sekundy.
Dusan Vrazel.
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 20, 2005 1:53 PM
Subject: FB - presnost TIMESTAMP
> Ahoj,
>
> mam FB 1.0, na nem databazi v dialektu 1. Databaze obsahuje pole
> typu DATE, coz v dialektu 1 zahrnuje i cas. Nevite nekdo, jaka
> presnost casu v tomto dialektu je? Na vteriny, na desetiny vteriny...?
> Cas se do pole zapisuje pri insertu zaznamu pomoci
> CURRENT_TIMESTAMP.
>
> Mam totiz problem v tom, ze tento sloupec je soucasti primarniho klice
> a obcas se zaznam nepodari vlozit kvuli KEY VIOLATION. Mne se ale
> nezda, ze by nastala situace, kdy se vkladaji dva zaznamy ve stejny
> okamzik.
>
> David Lebeda
>
>
>
> __________ NOD32 1.1328 (20051219) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.nod32.com
>
> QuickReport 4.06 a W98
[*] Stanislav ADAMCIK <konferencia(zv)stadas.sk> - 20.12.2005 15:19:23
Ahojte,
mam zostavu v QR 4.06 a ked ju dam tlacit na tlaciaren, ktora je ako
GENERIC Text tak vo W98 mi to nefunguje. V XP pohoda. Neviete poradit ?
Stano
Co misto databazove tabulky, clientdataset nebo to
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 20.12.2005 15:10:57
> mam D5Pro a tam TClientDataSet proste neni...
Jasne, je tam az od verze D6Pro.
Mimochodem, TClientDataSet do verze Pro povazuji za nejvetsi darek od Borlandu, ktery jsme za poslednich mnoho let dostali.
A vubec nezalezi na tom, ze jsme ho dostali nikoli z nejake "dobre vule", ale proto, ze dbExpress, ktery Borland kvuli Kylixu do verze D6Pro (CLX) tak vehementne prosazoval, by bez TClientDataSet nefungoval.
To je take jeden z duvodu, proc se vyplatilo upgradovat na D6 (rep. D7), jak tady se mnou nedavno nekdo souhlasil.
Dalsim, podle mne vaznym duvodem (i kdyz je spousta dalsich) je v D6 konecne dusledne oddeleni runtime kodu od designtime kodu. S tim se treba nedokazal popasovat QuickReport, pokud se nemylim.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================Co misto databazove tabulky, clientdataset nebo to
[*] Jaromir Junek <mirek.junek(zv)worldonline(tec)cz> - 20.12.2005 14:50:30
Jiri Virt napsal(a):
>mam D5Pro a tam TClientDataSet proste neni...
>
>takze i ja musim MemTabulku pridavat.... :-(
>a treba je na tom Jaromir podobne
>
>
>
Presne.
Mame sice koupene D8, ale velkou aplikaci mam v D5 a nemam duvod ji
prevadet do D7, protoze jednak bychom museli kupovat upgrade nekterych
knihoven, jednak nechci riskovat problemy s novymi chybami v kompilatoru
D7, ktere uz mam v D5 vcelku vychytane a aplikace je typu, ze proste
nesmi spadnout, jinak je obrovsky pru..honice a doma nikdy nenasimuluji
realny provoz.
Mirek
FB - presnost TIMESTAMP
[*] Kalhous <kalhous(zv)eu(tec)cz> - 20.12.2005 14:46:05
Neni problem spise v tom, ze CURRENT_TIMESTAMP je behem transakce stale
stejny? Alespon jsem o tom skoro presvedcenej.
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Cas se do pole zapisuje pri insertu zaznamu pomoci
> CURRENT_TIMESTAMP.
> Mam totiz problem v tom, ze tento sloupec je soucasti primarniho klice
> a obcas se zaznam nepodari vlozit kvuli KEY VIOLATION. Mne se ale
> nezda, ze by nastala situace, kdy se vkladaji dva zaznamy ve stejny
> okamzik.FB - presnost TIMESTAMP
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 20.12.2005 14:27:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lebeda David
Ahoj,
> mam FB 1.0, na nem databazi v dialektu 1. Databaze obsahuje pole
> typu DATE, coz v dialektu 1 zahrnuje i cas. Nevite nekdo, jaka
> presnost casu v tomto dialektu je? Na vteriny, na desetiny vteriny...?
> Cas se do pole zapisuje pri insertu zaznamu pomoci
> CURRENT_TIMESTAMP.
>
> Mam totiz problem v tom, ze tento sloupec je soucasti
> primarniho klice
> a obcas se zaznam nepodari vlozit kvuli KEY VIOLATION. Mne se ale
> nezda, ze by nastala situace, kdy se vkladaji dva zaznamy ve stejny
> okamzik.
No me se to vcelku zda, pocitas treba se situaci, kdyz se na serveru
rozhodi cas ? Myslim, ze pouzit timestamp jako unique je dosti nebezpecne.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================