CrtSock - модуль для работы с сокетами в Delphi32

CrtSock. Модуль для работы с сокетами. Совместимость: Delphi 2+

Поддерживает TCP и UDP пакеты. Не использует winsock.pas, поскольку обращается непосредственно к wsock32.dll.
Набор функций позволяет разрабатывать как клиентские, так и серверные приложения.
Перечень включенных в модуль функций:

// Server side :
//  - start a server
//  - wait for a client
function
 StartServer(Port:word):integer;
function
 WaitClient(Server:integer):integer;
function
 WaitClientEx(Server:integer; var
 ip:string
):integer;

// Client side :
//  - call a server
function
 CallServer(Server:string
;Port:word):integer;

// Both side :
//  - Assign CRT Sockets
//  - Disconnect server
procedure
 AssignCrtSock(Socket:integer;
                        Var
 Input,Output:TextFile);
procedure
 Disconnect(Socket:integer);

// BroadCasting (UDP)
function
 StartBroadCast(Port:word):integer;
function
 SendBroadCast(Server:integer;
                       Port:word; s:string
):integer;
function
 SendBroadCastTo(Server:integer;
                         Port:word;
                         ip,s:string
):integer;
function
 ReadBroadCast(Server:integer; Port:word):string
;
function
 ReadBroadCastEx(Server:integer;
                         Port:word;
                         var
 ip:string
):string
;

// BlockRead
function
 SockAvail(Socket:integer):integer;
function
 DataAvail(Var
 F:TextFile):integer;
Function
 BlockReadsock(Var
 F:TextFile;
                       var
 s:string
):boolean;

Function
 send(socket:integer;
              data:pointer;
              datalen,
              flags:integer):integer; stdcall
; far;
Function
 recv(socket:integer;
              data:pchar;
              datalen,
              flags:integer):integer; stdcall
; far;

Дополнительно в комплект входят модули для работы с FTP, HTTP, SMTP, POP3.
В качестве примера приведена демонстрационная программа, использующая все эти возможности.

Скачать исходник: crtsock.zip (22k)

Другое по теме:

• TServerSocket и TClientSocket без scktsrvr.exe отказываются работать
• Асинхронная ошибка
• Использование ServerSocket и ClientSocket