Class T_TcpIp (unit tcpip)

Inherits from

TComponent

The base component } (*@/// T_TcpIp = class(TComponent)

Constructors


constructor Create(Aowner:TComponent);

@\\\0000003C07*) { The base component } (*@/// class t_tcpip(TComponent) *) (*@/// constructor t_tcpip.


Functions

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.

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;



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;