[AnderoN]

Мне надо чтобы я вводил байт информации для микроконтроллера, который подключен через СОМ порт, в поле едит, и в поле статик текст мне приходил байт информации с микроконтроллера. Другими словами, чтобы осуществлялся прием и передача. Вот код для кнопки по нажатию на которую должно это происходить, но задумка слегка не работает. Я в принципе догадываюсь где ошибка, помогите пожалуйста устранить

Код:

procedure TForm1.Button1Click(Sender: TObject);
var A1:string;
begin
  if (hCOM=0) or (hCOM=INVALID_HANDLE_VALUE) then exit;
  PurgeComm(hCOM,PURGE_RXCLEAR);
  A1:=(Edit1.Text);
  xb:=$A1;
  WriteFile(hCOM,xb,1,xn,nil);
  told:=Time;
  if ReadFile (hCOM,ab,1,xn,nil) then
    begin
      ttime:=Time;
      if SecondsBetween(told,ttime)>0 then
        begin
          Application.MessageBox('Устройство не обнаружено','Error',MB_OK);
          exit;
        end;
      StaticTExt1.Caption:=hexb(ab[1]);
    end else
        begin
          Application.MessageBox('СОМ сломался','Error',MB_OK);
          exit;
        end;
end;

Что - то не так где -то вот в этой части, мне кажется

Код:

A1:=(Edit1.Text);
  xb:=$A1;

Так как мне, чтобы я не отправил на микроконтроллер, все время приходит в поле статик текст А1

[Кодер]

Полагаю не срабатывает одно из условий в вашей паутинке)