Приостановка и возобновление функции SendATCmd с использованием AsyncPro

Delphi , Синтаксис , Циклы

При работе с компонентом COM порта в Delphi может возникнуть потребность приостановить выполнение функции SendATCmd и дождаться уведомления от компонента о доступности данных, а затем возобновить выполнение функции. В данной статье мы рассмотрим, как это можно сделать с использованием компонента AsyncPro.

Проблема

Работая с компонентом COM порта, вам может понадобиться приостановить функцию SendATCmd и дождаться уведомления от компонента о доступности данных, а затем возобновить выполнение функции. Например, вы можете захотеть получить количество SMS-сообщений на телефоне, отправив команду "CountSMS" и дождавшись ответа от телефона.

Код функции SendATCmd может выглядеть следующим образом:

function TSE_Z1010.SendATCmd(Cmd: string): TATResult;
begin
  fCOMPort.PutString(Cmd); // Отправка AT-команды

  // Здесь мы хотим приостановить выполнение функции
  // и дождаться уведомления от компонента о доступности данных
  // затем возобновить выполнение функции.

  Result := fTMPATResult;
end;

Решение

Для приостановки выполнения функции SendATCmd и ожидания уведомления от компонента о доступности данных можно использовать функцию WaitForSingleObject из WinAPI. Эту функцию можно вызвать из компонента AsyncPro в обработчике события OnTriggerAvail.

Первым делом, нам нужно создать событие, которое будет использоваться для синхронизации между потоками:

private
  IOEvent: THandle; // Событие для синхронизации
  ...
constructor TForm1.Create(AOwner: TComponent);
begin
  ...
  IOEvent := CreateEvent(nil, True, False, nil);
  ...
end;

destructor TForm1.Destroy;
begin
  ...
  if IOEvent <> 0 then
    CloseHandle(IOEvent);
  ...
end;

Теперь, когда мы имеем событие, мы можем использовать его в обработчике события OnTriggerAvail для приостановки выполнения функции SendATCmd и ожидания уведомления от компонента о доступности данных:

procedure TForm1.ComportTriggerAvail(CP: TObject; Count: Word);
var
  i: integer;
begin
  for i := 1 to Count do
  begin
    IORx := IORx + Comport.GetChar;
  end;
  SetEvent(IOEvent);
end;

Теперь мы можем использовать функцию WaitForSingleObject для приостановки выполнения функции SendATCmd и ожидания уведомления от компонента о доступности данных:

function TForm1.SerialSAWR(tx: string; TimeOut: integer): boolean;
begin
  Result := False;
  try
    IORx := ''; // Глобальная переменная для хранения принятых данных
    ResetEvent(IOEvent);
    Comport.PutString(tx);
    Result := WaitForSingleObject(IOEvent, TimeOut) = WAIT_OBJECT_0;
  except
    on E: Exception do
    begin
      // Обработка исключений
    end;
  end;
end;

Теперь мы можем использовать функцию SerialSAWR для отправки AT-команды и ожидания ответа от телефона:

if SerialSAWR('CountSMS', 5000) then
begin
  // Обработка ответа от телефона
end;

Вывод

В данной статье мы рассмотрели, как приостановить выполнение функции SendATCmd и дождаться уведомления от компонента о доступности данных с использованием компонента AsyncPro. Мы использовали функцию WaitForSingleObject из WinAPI для приостановки выполнения функции и ожидания уведомления от компонента о доступности данных. Также мы рассмотрели, как обработать ответ от телефона после получения уведомления о доступности данных.

Создано по материалам из источника по ссылке.

В данной статье рассматривается использование компонента AsyncPro для приостановки и возобновления выполнения функции SendATCmd при работе с компонентом COM порта в Delphi, с целью дождаться уведомления о доступности данных от компонента.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::