Текущий архив: 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.051 c