Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), 1, 0)); (* запрос на чтение одного байта *)
if ( size > 0 ) then (* если прочитали один байт, пробуем прочитать остальное *)
(* здесь size равно 1 *)
size := size + DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf[ 1 ]), SIZEOF(rBuf) - 1, 0));
end_if



Ответить с цитированием