Проблема с Com-объектом
От: systopler  
Дата: 15.08.07 10:11
Оценка:
Всем привет!!!
Я жил, не тужил, народу помогал , короче был хорошим и послушным, но тут случилось бяка…
А бяка заключалась в том, что мне дали Dll-ку с которой мне нуна активно поработать

Я не долго думая сделал «Import Component», в результате получил файл *_TLB.pas, который подключил к своему проекту.

IObjDB = interface(IUnknown)
['{9B1611B2-F442-47B3-BE6E-463C82F28F6F}']
….
CoObjDB = class
class function Create: IObjDB;
class function CreateRemote(const MachineName: string): IObjDB;
end;



Бросил на форму кнопарь и прописал следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var
v : IObjDB;
a : CoObjDB;
begin
v := a.Create;
end;

Думал, что вот оно – счастье, а нет, оказалась «Ж»…

при выполнении этого кода вылетает ошибка…
что тока не делал... даже мышку почистил, но не помогло...
Какой необходимо исполнить танец с бубном, чтобы заработало?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.