Всем доброе время суток...!
Написал тестовую программку чтобы понять принципы работы с прибором ТРМ101, за Delphi очень недавно сижу...
Вот код:
Возвращает значение "-104". Как посмотреть из-за чего возникла данная ошибка?? И возможно у меня ошибка в коде?? Заранее спасибо...procedure TForm1.Button1Click(Sender: TObject);
var
res: real;
value:Single;
begin
LibHandle := LoadLibrary('C:\Lib\owen_io.dll');
if LibHandle >= 32 then begin
ShowMessage('Ok');
end;
res := OpenPort(0, spd_115200, 0, databits_8, stopbit_1, RS485CONV_AUTO);
if(res < 0) then
begin
ShowMessage('Ошибка открытия порта');
exit;
end;
ShowMessage(IntToStr(ReadFloat24(0,0,'B8DF',value , -1)));
FreeLibrary(LibHandle);
end;
end.