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