Текущий архив: 2006.04.09;
Скачать: CL | DM;
Вниз
Приветствую вас! Найти похожие ветки
← →
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() нет фактически принятых данных
Страницы: 1 вся ветка
Текущий архив: 2006.04.09;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.104 c
