Class T_TcpIp (unit tcpip) |
Inherits from
TComponent
The base component } (*@/// T_TcpIp = class(TComponent)
constructor Create(Aowner:TComponent);
- @\\\0000003C07*) { The base component } (*@/// class t_tcpip(TComponent) *) (*@/// constructor t_tcpip.
destructor Destroy;
@\\\0000000C03*) (*@/// destructor t_tcpip.
function eof(f_socket:TSocket):boolean;
@\\\0000000301*) (*@/// function t_tcpip.
procedure Login;
@\\\0000000E02*) (*@/// procedure t_tcpip.
procedure Logout;
@\\\0000000315*) (*@/// procedure t_tcpip.
function accept_socket_in(socket:TSocket; var SockInfo:TSockAddr):TSocket;
@\\\0000000701*) (*@/// function t_tcpip.
procedure action;
for the property write of f_stream @\\\0000000301*) (*@/// procedure t_tcpip.
procedure bind_socket(var socket:TSocket; out_port_min,out_port_max: word);
@\\\*) (*@/// procedure t_tcpip.
procedure close_socket(var socket:TSocket);
@\\\0000000D01*) (*@/// procedure t_tcpip.
procedure close_socket_linger(var socket:TSocket);
@\\\0000000501*) (*@/// procedure t_tcpip.
procedure connect_socket(var socket:TSocket; Socket_number:smallint;ip_address:longint);
@\\\0000000401*) (*@/// procedure t_tcpip.
function Create_Socket:TSocket;
@\\\0000000701*) (*@/// function t_tcpip.
procedure open_socket_in(var socket:TSocket; Socket_number:smallint;ip_address:longint);
@\\\0000000501*) (*@/// procedure t_tcpip.
procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);
@\\\000E00101C00101C00101C00101C*) (*@/// procedure t_tcpip.
function read_line(f_socket:TSocket):string;
@\\\0000000601*) (*@/// function t_tcpip.
procedure read_var(f_socket:TSocket; var buf; size:integer; var _ok:integer);
@\\\0000000114*) (*@/// procedure t_tcpip.
procedure SendCommand(const s:string);
property Async:boolean read f_async write f_async default false; @\\\0000000501*) (*@/// procedure t_tcpip.
procedure SetStream(value:TStream);
@\\\0000000801*) (*@/// procedure t_tcpip.
function Socket_by_name(const service:string):smallint;
@\\\0000000842*) (*@/// function t_tcpip.
function socket_state(socket:TSocket):T_Socket_State;
@\\\0000001748*) (*@/// function t_tcpip.
procedure WndProc(var Msg : TMessage);
@\\\0000000301*) (*@/// procedure t_tcpip.
procedure write_buf(f_socket:TSocket; const buf; size:integer);
@\\\*) (*@/// procedure t_tcpip.
procedure write_s(f_socket:TSocket; const s:string);
@\\\0000000801*) (*@/// procedure t_tcpip.
event OnTrace : TTraceProc
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;
constructor Create(Aowner:TComponent);
@\\\0000003C07*) { The base component } (*@/// class t_tcpip(TComponent) *) (*@/// constructor t_tcpip.Create(Aowner:TComponent);
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);
event OnTrace : TTraceProc
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;