Приветствую вас!

← →
serg111111 (2006-03-22 16:24) [0]

Подскажите что не так?

d: array[1..80] of Char;
// d:dword;
s: string;
i: Integer;
BytesRead:dword;
result:string;
begin
Result :="";
if not ReadFile(ComFile,d,SizeOf(d), BytesRead, nil) then
begin
showmessage("!!!!!!!!!!!!!!!!");
end;
s := "";
for i := 1 to BytesRead do s := s + d[I];
Result := s;
edit2.Text:=s;

Почемуто при считывании из COMfile d становится равным 0

← →
Сергей М. © (2006-03-22 16:50) [1]

Значит на момент вызова ReadFile() нет фактически принятых данных

Приветствую вас! Найти похожие ветки