Обработка событий считывания карт Mifare Classic 1K с HID Omnikey 5421: решение проблемы с `SCardGetStatusChange` и `SCARD_F_INTERNAL_ERROR` в Delphi

Delphi , ОС и Железо , Windows

Обработка событий считывания карт Mifare Classic 1K с HID Omnikey 5421: решение проблемы с SCardGetStatusChange и SCARD_F_INTERNAL_ERROR в Delphi

В процессе разработки приложения для работы с картами Mifare Classic 1K и считывателем HID Omnikey 5421 разработчики могут столкнуться с проблемой, связанной с получением ошибки SCARD_F_INTERNAL_ERROR при использовании функции SCardGetStatusChange. Эта функция предназначена для определения изменений состояния считывателей карт и может вызывать данную ошибку в случае сбоев на уровне драйвера или системных ресурсов.

Проблема

Разработчик столкнулся с ситуацией, когда при нормальной работе приложения, предназначенного для обнаружения вставки или извлечения карты Mifare Classic 1K с использованием считывателя HID Omnikey 5421, иногда возникала ошибка SCARD_F_INTERNAL_ERROR. Эта ошибка начинала возвращаться функцией SCardGetStatusChange постоянно, даже после попыток отмены операции, освобождения контекста и создания нового потока с новым контекстом. Ошибка исчезала только после перезапуска приложения. Проблема возникала случайно и не удавалось воспроизвести её по известному сценарию.

Пример кода

В коде, используемом для обнаружения карт, применяется поток, который регулярно проверяет состояние считывателя:

function CardWatcherThread(PContext: Pointer): Integer;
var
  RetVar: Cardinal;
  RContext: Cardinal;
  RStates: array[0..0] of SCARD_READERSTATEA;
begin
  try
    // Инициализация переменных и проверка состояния считывателя
    // ...
    while ReaderOpen and (not Application.Terminated) do
    begin
      RetVar := SCardGetStatusChange(RContext, MAX_WAIT_TIME_SCARDSTATUSCHANGE, @RStates, 1);
      // Обработка результата и обновление состояния
      // ...
      if (RetVar <> SCARD_E_TIMEOUT) or (MAX_WAIT_TIME_SCARDSTATUSCHANGE = -1) then
      begin
        SendMessage(NotifyHandle, WM_CARDSTATE, RetVar, 0);
      end;
    end;
  finally
    // Очистка ресурсов
    Result := 0;
  end;
end;

Подтвержденный ответ

Проблема может быть связана с некорректным использованием контекста ресурсов или сбоями на уровне драйвера. В качестве решения предлагается проверять валидность контекста перед его использованием и, в случае необходимости, получать новый контекст. Также важно корректно обрабатывать состояние считывателя, очищая бит изменения состояния после его обработки.

Альтернативный ответ и рекомендации

В коде разработчика были предложены следующие улучшения:

1. Проверка возвращаемого значения SCardGetStatusChange на SCARD_E_TIMEOUT и, при необходимости, пропуск дальнейшей обработки.
2. Очистка бита изменения состояния в RStates[0].dwCurrentState после его обработки.
3. Проверка валидности контекста с помощью функции SCardIsValidContext перед вызовом SCardGetStatusChange и получение нового контекста при его невалидности.

Пример улучшенного кода:

function CardWatcherThread(PContext: Pointer): Integer;
var
  RetVar: Cardinal;
  RContext: Cardinal;
  RStates: array[0..0] of SCARD_READERSTATEA;
begin
  try
    // Инициализация переменных и проверка валидности контекста
    // ...
    if(SCardIsValidContext(RContext) <> SCARD_S_SUCCESS) then
    begin
      RetVal := SCardEstablishContext(...);
    end;
    while ReaderOpen and (not Application.Terminated) do
    begin
      RetVar := SCardGetStatusChange(RContext, MAX_WAIT_TIME_SCARDSTATUSCHANGE, @RStates, 1);
      case RetVar of
        SCARD_E_TIMEOUT: begin
          // Пропуск дальнейшей обработки
        end;
        SCARD_S_SUCCESS: begin
          if((RStates[0].dwEventState and SCARD_STATE_CHANGED) <> 0) then
          begin
            RStates[0].dwCurrentState := RStates[0].dwEventState xor SCARD_STATE_CHANGED;
            // Обработка изменения состояния считывателя
            // ...
          end;
        end;
        // Обработка других возможных ошибок
      end;
    end;
  finally
    // Очистка ресурсов
    Result := 0;
  end;
end;

Заключение

При работе с функцией SCardGetStatusChange важно тщательно обрабатывать возвращаемые значения и состояние считывателя. Применение рекомендаций по улучшению кода может помочь избежать возникновения ошибки SCARD_F_INTERNAL_ERROR и повысить стабильность работы приложения.

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

Разработчики столкнулись с проблемой ошибки `SCARD_F_INTERNAL_ERROR` при использовании функции `SCardGetStatusChange` в Delphi для работы с картами Mifare Classic 1K и считывателем HID Omnikey 5421, что требует корректной обработки со

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

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

:: Главная :: Windows ::