FreePascal.ru

Все работает, вылетов нет

Нашел в чем ошибка. добавил new() все заработало

procedure TForm1.Button1Click(Sender: TObject);
var kk:pchar;
begin
new(kk);
version_TesterArinc_DLL(kk);
memo1.lines.add(strpas(kk));
end;

Сделал так:
procedure version_TesterArinc_DLL(vv:PChar);stdcall; //stdcall;
external 'TesterArinc_DLL_W2K.dll' index 29 ;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var kk:PChar;
d:string;
begin
d:='0';
kk:=@d;
version_TesterArinc_DLL(kk ...

Здравствуйте
Есть прибор TESTER ARINC http://www.elcus.ru/pribors.php?ID=test-arinc
для управления им через COM порт есть ПО, библиотека TesterArinc_DLL_W2K.dll для XP
Библиотек написана на с++ исходников нету
Пытаюсь подключить функцию:
Описание:
void version_TesterArinc_DLL (char ...

Попробую. На форумах пишут, что два раза компилировать надо

Всем привет!

Возникла проблема после установки indy:

Установил пакет Indy с m :
Распаковал архив в папку c:\lazarus\components\indy\
В файле fpc.cfg добавил строки:
-FuC:\lazarus\components\indy\Lib\Core\
-FuC:\lazarus\components\indy\Lib\Protocols\
-FuC:\lazarus\components\indy\Lib\System\
-FuC ...