Приветствую вас!
serg111111 © (2006-03-22 16:24:00)
Подскажите что не так?
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:00) [1]
Значит на момент вызова ReadFile() нет фактически принятых
данных
Наверх 
ЧАТ |
Орешник |
|
