Unit SockUtil

Classes

Functions

GetLine - Basic Functions
GetLineCR - What if its exactly 1024 bytes of real data?
PutLine -
PutLineNoCR -
StartListenSocket - Server Functions

Types

Constants

CR

Variables


Functions


function GetLine(Sock: TSocket): string;

Basic Functions

function GetLineCR(Sock: TSocket; Echo, Password: boolean): string;

What if its exactly 1024 bytes of real data?

procedure PutLine(Sock: TSocket; const s: string);


procedure PutLineNoCR(Sock: TSocket; const s: string);


procedure StartListenSocket(Port: integer; var LisSock: TSocket; var ServerName, ServerAddress: string);

Server Functions

Types


Constants

CR = #13#10


Variables