Народ, используйте
zmq . Одна dll и один или два библиотечных .pas-файлов.
Вот, простой эхо-сервер, читает сообщения и отправляет их обратно:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
program zmqServer;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows,
zmq_classes in '..\..\GuardantLib_New\libZMQ\zmq_classes.pas', // "Объектная" оболочка библиотеки
zmq_h in '..\..\GuardantLib_New\libZMQ\zmq_h.pas'; // Файл биндинга к libZMQ
const
c_Addr = 'tcp://*:5555'; // Адрес для приема: принимаем от всех (или 127.0.0.1 для внутримашинной связи) на порт 5555
procedure DoIt;
var
fCtx: TzmqContext; // ZeroMQ контекст
fSktRep: TzmqSocket; // Сокет типа REPORT
fMsg: TzmqMessage; // Сообщение
begin
fCtx := TzmqContext.Create; // Создание контекста
try
fSktRep := fCtx.Socket(stRep); // Создание сокета
fSktRep.Bind(c_Addr); // Запуск сокета на прослушку
fMsg := nil;
while fSktRep.Recv(fMsg) >= 0 do // В цикле чтение сообщения
fSktRep.Send(fMsg) // ... и отправка его обратно
finally
fCtx.Free;
end;
end;
begin
doIt;
Readln;
end.
Клиент такой же простой, только вместо Bind() используется Connect, и сперва Send() - потом Recv()...
Скорость, масштабируемость, автоматическое восстановление связи при обрыве, атомарность при доставке сообщений, составные сообщения произвольного формата, управляемые очереди, синхронный и асинхронный режим, поддержка кучи протоколов, куча режимов работы сокетов, биндинг из любого ЯП, офигительных размеров комьюнити, мощная поддержка & бесплатность, опенсорс, непрерывное развитие, документация и книги ...
Из недостатков: конкретно у меня, .pas - файлы сделаны для неюникодной Delphi, но тут доделать совсем легко, кому нужно.
