Показать сообщение отдельно
  #2  
Старый 20.09.2012, 00:57
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,018
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Импортируй нужную библиотеку типов из DLL - там все будет.
Соответсвенно, у тебя будут просто вызовы соотв. компонента.

Примерно так (точнее не могу сказать из-за отсутсвия самой библиотеки):
Код:
program test;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, Ci2001A_TLB; // <-файл будет после импорта либы

var
  C : IIndic;
begin
  CoInitialize(0);

  C := CoIndic.Create;
  Try
    С.NumberOfCom := 1;
    C.Open;

    C.Update;
    WriteLn(C.Weight);
    WriteLn(C.Stab);
 
    Sleep(5000);
 
    C.Update;
    WriteLn(C.Weight);
    WriteLn(C.Stab);

    C.Close();
  Finally
    C := Nil; // Не обязательно
    CoUninitialize();  
  End;
  
end.
Ответить с цитированием