Есть прибор TESTER ARINC http://www.elcus.ru/pribors.php?ID=test-arinc
для управления им через COM порт есть ПО, библиотека TesterArinc_DLL_W2K.dll для XP
Библиотек написана на с++ исходников нету
Пытаюсь подключить функцию:
Описание:
void version_TesterArinc_DLL (char *lpcod )-Функция возвращает номер версии библиотеки.
Параметры:
lpcod - указатель на массив char[4], в который возвращается версия библиотеки
В файле TesterArinc_DLL_W2K.h функция прописана как:
- Код: Выделить всё
TestDLL void __stdcall version_TesterArinc_DLL(char * );
Приведен Пример вызова на С++ :
- Код: Выделить всё
//2/29/Чтение версии библиотеки
char ver[4];
version_TesterArinc_DLL(ver );
MessageBox (NULL,ver,"DLL version",MB_OK);
Делаю в Lazarus:
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure version_TesterArinc_DLL(var s:PChar);stdcall; external 'TesterArinc_DLL_W2K.dll';
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var k:PChar;
begin
version_TesterArinc_DLL(k);
end;
При запуске появляется сообщение: "Точка входа в процедуру version_TesterArinc_DLL в библиотеке не найдена
В чём может быть проблема?