Потому что у вас delphi современный, и строка воспринимает как юникодную, а она -- ANSI.
-104 -- прибор вернул код ошибки nErr. Вызовите int GetDeviceLastErr(), и посмотрите, что прибор хочет.
Потому что у вас delphi современный, и строка воспринимает как юникодную, а она -- ANSI.
-104 -- прибор вернул код ошибки nErr. Вызовите int GetDeviceLastErr(), и посмотрите, что прибор хочет.
Все будет работать если в Описании функций использовать PAnsiChar вместо PChar.
Огромное спасибо!!! Как приятно осознавать, что твоя проблема была решена много лет назад!
Вот уже 2 день сижу-маюсь и не понимаю почему старая программа (писал даааавным-давно на Delphi 7), которую сейчас неспешно переписываю на Delphi 10 не хотела видеть прибор и ругалась " ERR_NERR (-104) прибор вернул код сетевой ошибки nErr "
Было до:
Стало:PHP код:...
Type
...
TProcOwenIO=function (adr,adr_type,is_read:DWORD;command,params:pchar;var param_sz:integer):integer;stdcall;
...
var
...
params:array [0..7] of char;
...
И ТРМ-148 прислал мне через АС-4 в ответку то, как его зовут! Ну прямо подарок под конец праздников!PHP код:...
Type
...
TProcOwenIO=function (adr,adr_type,is_read:DWORD;command,params:PAnsiChar;var param_sz:integer):integer;stdcall;
...
var
...
params:array [0..7] of AnsiChar;
...
А вообще, сейчас кому-то актуальны примеры программ на Delphi 2010 для работы с ТРМ-200 ТРМ-210 и ТРМ 148 ? Суть - греют емкости с заданными температурами и замеряют температуру и давление внутри них. Если начальство позволит, то выложу исходники сюда.
Последний раз редактировалось minaevn; 11.05.2015 в 20:33.
считаете, что подняв тему от 11-ого года, все ринутся посмотреть Ваши исходникиСообщение от minaevn
Bad programmers worry about the code. Good programmers worry about data structures and their relationships
среди успешных людей я не встречала нытиков
Барбара Коркоран
Ваши права
Ответить с цитированием