|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi XE2. Как обратиться к com-объекту?
Всем привет!
Создал простой 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. |
#2
|
||||
|
||||
Код:
var v: OleVariant; begin v:=CreateOleObject('MyCom.RetString'); v.TestResStr; end; Пишу программы за еду. __________________ |