Отправить запрос в COM порт, подождать, прочитать. Общение с устройством

Posted by obzor under Delphi

Есть железка которая через переходник USB-RS485 подключена к компьютеру. Протокол простейший.

Пример
Отправляем: AB CD 01 01 86
Ответ: DC BA 01 01 68
и т.д.

Через терминал всё прекрасно работает. Задача отобразить получаемые данные в программе. Поставил компонент AsyncFree. Но не понимаю как подождать ответа от железки? Она отвечает сразу после получения запроса.

northener

var
  Form1: TForm1;
  Zapros: array[0..4] of byte = ($AB,$CD,$01,$01,$86);
  ReadBuffer: array[0..254] of byte;
  CurrentPos: integer;
...
procedure TForm1.AfComPort1DataRecived(Sender: TObject; Count: Integer);
begin
  AfComPort1.ReadData(ReadBuffer[CurrentPos], Count);
  Inc(CurrentPos, Count);

  if CurrentPos >= 3 then Label1.Caption:= IntToHex(ReadBuffer[3],2);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   CurrentPos:=0;
   AfComPort1.WriteData(Zapros, length(Zapros));
end;

тема на форуме

Похожие статьи

• Считывание данных с Com-порта
• Работа с com-портами на php
• Включение ламп по Com или Lpt
• Эмуляция COM устройства
• Загрузка изображения через com-порт
• Отобразить данные считанные с com порта
• Передача массива в com порт
• Работа с com портом
• Чтение данных с COM порта 232
• Через какой порт лучше управлять шаговым двигателем?