Всем привет!
Создал простой 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.