## Как правильно преобразовать WMI дату в TDateTime в Delphi

Delphi , Синтаксис , Дата и Время

Преобразование даты и времени из WMI в TDateTime в Delphi

При работе с WMI (Windows Management Instrumentation) в Delphi может возникнуть необходимость преобразования даты и времени из формата, используемого WMI, в формат TDateTime. В стандартной библиотеке Delphi функция StrToDateTime не подходит для такой задачи, так как WMI использует свой собственный формат даты. Давайте рассмотрим, как правильно выполнить это преобразование.

Проблема

Разработчики часто сталкиваются с ошибкой EConvertError при попытке преобразования строки, полученной из WMI, в TDateTime с помощью функции StrToDateTime. Пример кода, вызывающего эту ошибку:

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;

procedure GetLogEvents;
var
  FSWbemLocator: OLEVariant;
  FWMIService: OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject: OLEVariant;
  oEnum: IEnumVariant;
  iValue: LongWord;
  EventDate: TDateTime;
begin
  // ... (инициализация и запрос к WMI)
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    // ... (обработка других полей)
    if not VarIsNull(FWbemObject.TimeGenerated)
      then Writeln(StrToDateTime(FWbemObject.TimeGenerated));
    // ... (продолжение цикла)
  end;
end;

Ошибка возникает из-за несоответствия формата даты, который ожидает StrToDateTime, и фактического формата данных, полученных из WMI.

Решение

Для корректного преобразования даты из WMI в TDateTime следует использовать объект WbemScripting.SWbemDateTime. Ниже приведен пример функции, которая выполняет это преобразование:

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;

function WmiDateToTDatetime(vDate: OleVariant): TDateTime;
var
  FWbemDateObj: OleVariant;
begin
  FWbemDateObj := CreateOleObject('WbemScripting.SWbemDateTime');
  FWbemDateObj.Value := vDate;
  Result := FWbemDateObj.GetVarDate;
end;

Теперь, используя эту функцию, можно преобразовать дату из WMI в TDateTime в вашем приложении Delphi. Пример использования функции в процедуре GetLogEvents:

// ... (начало процедуры GetLogEvents)
if not VarIsNull(FWbemObject.TimeGenerated)
  then Writeln(DateTimeToStr(WmiDateToTDatetime(FWbemObject.TimeGenerated)));
// ... (окончание процедуры GetLogEvents)

Альтернативный ответ

В контексте данного вопроса альтернативные ответы не предоставляются, поскольку существует четкое решение, основанное на использовании объекта WbemScripting.SWbemDateTime.

Заключение

Преобразование даты и времени из WMI в TDateTime в Delphi требует использования специализированного объекта WbemScripting.SWbemDateTime. Приведенный выше пример кода демонстрирует, как правильно выполнить это преобразование, избегая ошибок, связанных с несоответствием форматов.

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

Преобразование даты и времени из WMI в `TDateTime` в Delphi требует использования функции `WmiDateToTDatetime`, которая интерпретирует формат WMI с помощью объекта `WbemScripting.SWbemDateTime`.

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

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

:: Главная :: Дата и Время ::