CrtSock - модуль для работы с сокетами в Delphi32
Материал из DRKB
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.
В качестве примера приведена демонстрационная программа, использующая все эти возможности.
Author: Paul Toth
Source: http://delphiworld.narod.ru
ID: 03558