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