Добрый день уважаемые.
1. есть dll в виде COM Inprocess server (для управления(железкой) контроллером).
2. сделал импорт библиотеки
3 получил файл Apda21Control_TLB.pas
вопрос как получить/перехватить ответ на запрос (dispinterface events)
когда запрашиваю время
apda.GetTime(1); наступает событие OnTime
код из файла Apda21Control_TLB.pas - (в аттаче)
Код:
function OnTime(Id: Integer; Value: TDateTime): HResult; dispid 6;
часть кода
Код:
procedure Tmonitor.Button1Click(Sender: TObject);
var
Apda:IApda21Interface;
ipaddr:string;
begin
ipaddr:= '192.168.20.55';
Apda:= COApda21Interface.Create;
Apda.Clear;
Apda.CreateApda(1,1,2048,2,ipaddr,'123456');
Apda.Interval:= 55;
Apda.CreatePollers;
Apda.Active:= 1;
//запрос текущего времени контроллера
apda.GetTime(1);
end;
за ранее спасибо