| Class T_TcpIp (unit tcpip) |
TComponent
The base component } (*@/// T_TcpIp = class(TComponent)
| Constructors |
constructor Create(Aowner:TComponent);| Functions |
destructor Destroy;
function eof(f_socket:TSocket):boolean;
procedure Login;
procedure Logout;
function accept_socket_in(socket:TSocket; var SockInfo:TSockAddr):TSocket;
procedure action;@\\\0000000301*) (*@/// procedure t_tcpip.
procedure bind_socket(var socket:TSocket; out_port_min,out_port_max: word);
procedure close_socket(var socket:TSocket);
procedure close_socket_linger(var socket:TSocket);
procedure connect_socket(var socket:TSocket; Socket_number:smallint;ip_address:longint);
function Create_Socket:TSocket;
procedure open_socket_in(var socket:TSocket; Socket_number:smallint;ip_address:longint);
procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);
function read_line(f_socket:TSocket):string;
procedure read_var(f_socket:TSocket; var buf; size:integer; var _ok:integer);
procedure SendCommand(const s:string);@\\\0000000501*) (*@/// procedure t_tcpip.
procedure SetStream(value:TStream);
function Socket_by_name(const service:string):smallint;
function socket_state(socket:TSocket):T_Socket_State;
procedure WndProc(var Msg : TMessage);
procedure write_buf(f_socket:TSocket; const buf; size:integer);
procedure write_s(f_socket:TSocket; const s:string);| Properties |
| Events |
event OnTrace : TTraceProc| Variables |
f_async : boolean;
f_buffer : pointer;
f_eof : boolean;
f_handle : THandle;
f_hostname : string;
f_logged_in : boolean;
f_newdata : boolean;
f_Socket : tsocket;
f_socket_number : smallint;
f_stream : TStream;
f_tracer : TTraceProc;
ip_address : longint;| Constructors |
constructor Create(Aowner:TComponent);@\\\0000003C07*) { The base component } (*@/// class t_tcpip(TComponent) *) (*@/// constructor t_tcpip.Create(Aowner:TComponent);
| Functions |
destructor Destroy;@\\\0000000C03*) (*@/// destructor t_tcpip.Destroy;
function eof(f_socket:TSocket):boolean;@\\\0000000301*) (*@/// function t_tcpip.eof(f_socket:TSocket):boolean; !!!
procedure Login;@\\\0000000E02*) (*@/// procedure t_tcpip.Login;
procedure Logout;@\\\0000000315*) (*@/// procedure t_tcpip.LogOut;
function accept_socket_in(socket:TSocket; var SockInfo:TSockAddr):TSocket;@\\\0000000701*) (*@/// function t_tcpip.accept_socket_in(socket:TSocket; var SockInfo:TSockAddr):TSocket;
procedure action;for the property write of f_stream
@\\\0000000301*) (*@/// procedure t_tcpip.action;
procedure bind_socket(var socket:TSocket; out_port_min,out_port_max: word);@\\\*) (*@/// procedure t_tcpip.bind_socket(var socket:TSocket; out_port_min,out_port_max: word);
procedure close_socket(var socket:TSocket);@\\\0000000D01*) (*@/// procedure t_tcpip.close_socket(var socket:TSocket);
procedure close_socket_linger(var socket:TSocket);@\\\0000000501*) (*@/// procedure t_tcpip.close_socket_linger(var socket:TSocket);
procedure connect_socket(var socket:TSocket; Socket_number:smallint;ip_address:longint);@\\\0000000401*) (*@/// procedure t_tcpip.connect_socket(var socket:TSocket; Socket_number:smallint;ip_address:longint);
function Create_Socket:TSocket;@\\\0000000701*) (*@/// function t_tcpip.Create_Socket:TSocket;
procedure open_socket_in(var socket:TSocket; Socket_number:smallint;ip_address:longint);@\\\0000000501*) (*@/// procedure t_tcpip.open_socket_in(var socket:TSocket; Socket_number:smallint;ip_address:longint);
procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);@\\\000E00101C00101C00101C00101C*) (*@/// procedure t_tcpip.open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);
function read_line(f_socket:TSocket):string;@\\\0000000601*) (*@/// function t_tcpip.read_line(f_socket:TSocket):string;
procedure read_var(f_socket:TSocket; var buf; size:integer; var _ok:integer);@\\\0000000114*) (*@/// procedure t_tcpip.read_var(f_socket:TSocket; var buf; size:integer; var _ok:integer);
procedure SendCommand(const s:string);property Async:boolean read f_async write f_async default false;
@\\\0000000501*) (*@/// procedure t_tcpip.SendCommand(const s:string);
procedure SetStream(value:TStream);@\\\0000000801*) (*@/// procedure t_tcpip.SetStream(value:TStream);
function Socket_by_name(const service:string):smallint;@\\\0000000842*) (*@/// function t_tcpip.Socket_by_name(const service:string):smallint;
function socket_state(socket:TSocket):T_Socket_State;@\\\0000001748*) (*@/// function t_tcpip.socket_state(socket:TSocket):T_Socket_State;
procedure WndProc(var Msg : TMessage);@\\\0000000301*) (*@/// procedure t_tcpip.WndProc(var Msg : TMessage);
procedure write_buf(f_socket:TSocket; const buf; size:integer);@\\\*) (*@/// procedure t_tcpip.write_buf(f_socket:TSocket; const buf; size:integer);
procedure write_s(f_socket:TSocket; const s:string);@\\\0000000801*) (*@/// procedure t_tcpip.write_s(f_socket:TSocket; const s:string);
| Properties |
| Events |
event OnTrace : TTraceProc| Variables |
f_async : boolean;
f_buffer : pointer;
f_eof : boolean;Network order!
f_handle : THandle;
f_hostname : string;
f_logged_in : boolean;
f_newdata : boolean;
f_Socket : tsocket;
f_socket_number : smallint;
f_stream : TStream;
f_tracer : TTraceProc;
ip_address : longint;