Считывание с Com порта, очистка массива

[Dmitri4]

Всем привет! Пишу считыватель ключей ds1990a (по принципу передачи кода с контроллера на Com порт и последующим считыванием с порта в программе). Возникла проблема с выводом ключа в форме. Подскажите, как правильно сделать, чтобы после считывания массив очищался. И, при поднесении нового ключа, выводился новый код, а не приходилось несколько раз нажимать кнопку "Чтение", чтобы скинуть и заполнить старый массив. Заранее спасибо

procedure TForm1.Button1Click(Sender: TObject);
begin
hCom := CreateFile('COM1', GENERIC_READ + GENERIC_WRITE, 0, nil,
                      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hCom=INVALID_HANDLE_VALUE then begin
   ShowMessage('Не удалось открыть порт');
    end
    else begin ShowMessage('Удалось открыть порт');
    end;

    // Проверка на ошибки
if hCom = INVALID_HANDLE_VALUE then begin
  exit;
end;

    //Чтение и новый найстройки для порта
if GetCommState(hCom, DCB) then
    //Настройки
DCB.BaudRate :=9600; // Скорость
DCB.ByteSize :=8;// Число бит при обмене
DCB.StopBits :=ONESTOPBIT;//Стоп-бит
DCB.Parity :=NOPARITY; //Четность
DCB.Flags :=20625;
    //?Записываем настройки
if not SetCommState(hCom,DCB) then
      ShowMessage('Ошибка настройки порта');
if not SetupComm (hCom,16,16) then
      ShowMessage('Ошибка настройки буферов');
if PurgeComm (hCom, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR
              or PURGE_RXCLEAR) then;  //Сброс буферов и очередей

         GetCommTimeouts(hCom,TimeOuts);
         TimeOuts.ReadIntervalTimeout := MAXDWORD;
         TimeOuts.ReadTotalTimeoutMultiplier := 0;
         TimeOuts.ReadTotalTimeoutConstant := 0;
//выполняем настройку порта с новыми таймаутами
    if not SetCommTimeouts(hCom,TimeOuts) then begin
      CloseHandle(hCom);
      Exit;
    end;
  end;
             //Закрытие порта
procedure TForm1.Button2Click(Sender: TObject);
begin
CloseHandle(hCom);
 ShowMessage('Порт закрыт');
end;
        //СЧИТЫВАНИЕ
procedure TForm1.Button3Click(Sender: TObject);
var
  d: array[1..64] of char;
  s: string;
  i: Integer;
  BytesRead: Cardinal;
begin
if not ReadFile(hCom, d, SizeOf(d), BytesRead, nil) then
  begin
    ShowMessage('Не читает');
  end;
    s := ' ';
    i:=1;
      while i<=BytesRead do
        begin
          s:=s+d[i];
          Label2.Caption:=s;
          Label4.Caption := FormatDateTime('hh:nn:ss', Time);
          i:=i+1;
        end;
PurgeComm (hCom, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR
              or PURGE_RXCLEAR);
      end;
end.

[min@y™]

А использование файловых апи-функций обязательно?

[Dmitri4]

Сообщение от min@y™

А использование файловых апи-функций обязательно?

Да, к сожалению.

Зы. Я бы изначально делал с помощью компонента. Но, не прокатило бы

[min@y™]

найти тогда компонент (или модуль) для работы с портом, реализованный именно на этой АПИ, и распотроши его.

[Dmitri4]

Сообщение от min@y™

найти тогда компонент (или модуль) для работы с портом, реализованный именно на этой АПИ, и распотроши его.

Спасибо за ответ. У меня все корректно работает с API, трудность в том, что не понимаю, как очистить заполненный массив после чтения ключа.

[northener]

Сообщение от Dmitri4

Спасибо за ответ. У меня все корректно работает с API, трудность в том, что не понимаю, как очистить заполненный массив после чтения ключа.

Какой массив надо очищать?

[min@y™]

Какой массив надо очищать?

кстати да!

[kutani]

Асинхронный режим чтения из Com-порта (только работать с VCL из потока без синхронизе некомильфо)