как считать с СOM-порта

← →
Вятченко-Карпинский (2002-07-22 14:12) [0]

имеется процедура:
procedure readtext;
var
d: array [1..80] of char;
s: string;
bytes read: dword;
i: integer;
begin
readfile(comfile, d, sizeof(d), bytes read, nil)
s:="";
for i:=1 to bytes read do
s:=s+d[i];
end;

компьютеру не нравится параметр sizeof(d), требует тип DWORD. при подстановке переменной типа DWORD она принимает значение "0", и ничего прочитать невозможно.при всех остальных значениях компьютер виснет.

← →
doomin (2002-07-23 10:22) [1]

Это изобретение велосипеда. Врядли удасться написать лучше отцов, а бороться за компактность кода при винтах 60 Гиг смысла особо нет. Сходи на www.torry.net и скачай компонент для работы с последовательным портом. Мне нравится TCommPortDriver от Marco Cocco

как считать с СOM-порта Найти похожие ветки