Remote call в Delphi

[alexBlack]

Здравствуйте, друзья!
Предлагаю вашему вниманию модуль для реализации Remote Procedure Call в Delphi. Модуль содержит несколько классов, позволяющих легко на стороне клиента сделать вызов методов объекта на сервере.

Вместо долгих объяснений приведу небольшой пример:

var Client1 : TRPCClient;
procedure TForm8.FormCreate(Sender: TObject);
begin
   Client1 := TRPCClient.Create('127.0.0.1', 8021);
end;

procedure TForm8.FormDestroy(Sender: TObject);
begin
   Client1.Free;
end;

procedure TForm8.Button5Click(Sender: TObject);
var V1:Variant;
    N:integer;
    S:String;
begin
   V1 := Client1.GetChannel;    

   V1.IntProp := 456;
   N := V1.IntProp;

   V1.Test(1, 2, 3);
end;

Это пример создания клиента. Реализация сервера такая-же простая. Здесь V1.IntProp и V1.Test() - это свойство и метод объекта на сервере.

По-моему, неплохо получилось. В небольших проектах этих возможностей
достаточно.

Еще один интересный момент. Обычно при описании RTTI ограничиваются
рассмотрением свойств класса. В модуле есть функция для вызова методов класса по имени (с некоторыми ограничениями).

В архивах документация, исходники модуля и тестовые примеры.
Проверял в D7, D10. В младших версиях возможны проблемы из-за несовместимости типа Variant.

//На вопрос "зачем". Я в курсе что есть COM/OLE/ActiveX/...
//Эта реализация если не для использования, то хотя бы разобраться как
//устроено.