TTCPBlockSocket

procedure Connect(IP, Port: string); override;

procedure Listen; override;

function WaitingData: Integer; override;

function SendBuffer(Buffer: pointer; Len: integer): Integer; override;

function Accept: Integer; override;

function RecvBuffer(Buffer: pointer; Len: integer; Timeout: integer): Integer; virtual;

procedure SendByte(Data: byte); virtual;

function RecvByte(Timeout: integer): Byte; virtual;

procedure SendString(Data: ansistring); virtual;

procedure SendInteger(Data: integer); virtual;

constructor Create;

procedure CloseSocket; override;

function RecvString(Timeout: integer): AnsiString; virtual;

function RecvInteger(Timeout: integer): Integer;

property LastError: Integer;

destructor Destroy; override;