CrtSock – модуль для работы с сокетами в Delphi32
01.01.2007
WEB-сайт: www.multimania.com/tothpaul
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.
В качестве примера приведена демонстрационная программа, использующая все эти возможности.
Взято с https://delphiworld.narod.ru