CrtSock. Модуль для работы с сокетами.
Совместимость: Delphi 2+
Поддерживает TCP и UDP пакеты.
Не использует winsock.pas, поскольку обращается непосредственно к wsock32.dll.
Набор функций позволяет разрабатывать как клиентские, так и серверные приложения.
Перечень включенных в модуль функций:
// Server side :// - start a server// - wait for a clientfunction StartServer(Port:word):integer;
function WaitClient(Server:integer):integer;
function WaitClientEx(Server:integer; var ip:string):integer;
// Client side :// - call a serverfunction CallServer(Server:string;Port:word):integer;
// Both side :// - Assign CRT Sockets// - Disconnect serverprocedure 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;
// BlockReadfunction 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 - модуль для работы с сокетами в Delphi32 раздела Интернет и Сети Сокеты может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.