[halilpro]

Всем привет!

Создал простой com-сервер(MyComServ) и в нем объект(TestResStr), который выполняет возврат строки + "Все ОК!!!". Это я потренироваться. Зарегистрировал в реестре. Теперь хочу написать клиента, который обратится к com-объекту. Так вот я не знаю, что нужно указывать в uses (и нужно ли вообще) и как реализовать процедуру, которая будет передавать этому объекту строку из Edit1 и выдавать результат в memo1.

пример com-объекта:

Код:

unit objRetStr;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, MyCom_TLB, StdVcl;

type
  TRetString = class(TTypedComObject, IRetString)
  protected
    function TestResStr(const Inp1: WideString): WideString; stdcall;
  end;

implementation

uses ComServ;

function TRetString.TestResStr(const Inp1: WideString): WideString;
begin
  Result := Inp1 + ' - Все ОК!!!';
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TRetString, Class_RetString,
    ciMultiInstance, tmApartment);
end.

[NumLock]

Код:

var
  v: OleVariant;
begin
  v:=CreateOleObject('MyCom.RetString');
  v.TestResStr;
end;