Есть простейший com сервер с интерфейсом ITest2 и библиотекой типов. Запускаю клинт пробую создать com обьект и получить интерфейс ITest2. После этого выдается ошибка : "Interface not supported".
При компиляции клиента использую ту же библиотеку типов, что
и в сервере. Из-за чего может быть ошибка ?
В клиенте такой код:
var
Form1: TForm1;
Test:ITest2;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
Test:=CreateComObject(CLASS_Test2) as ITest2;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Test.ShowIt('Hello');
end;
end.