Ошибка инициализации `OleFolderItem` в Delphi 2007 при использовании метода `GetDetailsOf` для получения свойств файлов

Delphi , Технологии , OLE

Ошибка инициализации OleFolderItem в Delphi 2007 при использовании метода GetDetailsOf

При работе с компонентами COM в Delphi 2007, разработчики могут столкнуться с различными проблемами, одной из которых является ошибка при использовании метода GetDetailsOf для получения свойств файлов. Этот метод предназначен для извлечения дополнительных сведений о файлах, таких как тип файла, размер, дата последнего изменения и другие параметры, которые могут быть полезны при работе с файловыми оболочками, например, в проводнике Windows.

Описание проблемы

Пользователь, не имеющий большого опыта работы с COM, столкнулся с проблемой при попытке получить значения свойств файлов с помощью метода GetDetailsOf. В коде, который был заимствован из различных источников, включая примеры на Visual Basic и неполный тред для Free Pascal, объект OleFolderItem не инициализировался, что приводило к тому, что вместо значений свойств файлов отображались их имена.

Пример кода с ошибкой

procedure TForm1.getExtdProps(AFileName: string);
var
    Shell: Variant;
    OleFolder, OleFolderItem: OleVariant;
    PropName, PropValue: string;
    i: Integer;
begin
    // Инициализация объекта Shell
    Shell := CreateOleObject('Shell.Application');
    // Получение объекта папки
    OleFolder := Shell.Namespace(ExtractFilePath(AFileName));
    // Инициализация счетчика
    i := 0;
    PropName := 'Not an EmptyStr'; // Условие для выполнения цикла
    while PropName <> EmptyStr do
    begin
        PropName := OleFolder.GetDetailsOf(nil, i); // Получение имени свойства
        PropValue := OleFolder.GetDetailsOf(OleFolderItem, i); // Попытка получить значение свойства
        if PropName <> '' then
            mmo1.Lines.Add(PropName + ': ' + PropValue);
        Inc(i);
    end;
end;

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

Проблема заключается в том, что объект OleFolderItem не был инициализирован. Для корректной работы метода GetDetailsOf необходимо сначала получить объект файла, используя метод ParseName объекта OleFolder. Вот исправленный пример кода:

procedure TForm1.GetExtdProps(AFileName: string);
var
    Shell: Variant;
    OleFolder, OleFolderItem: OleVariant;
    PropName, PropValue: string;
    i: Integer;
begin
    // Инициализация объекта Shell
    Shell := CreateOleObject('Shell.Application');
    // Получение объекта папки
    OleFolder := Shell.Namespace(ExtractFilePath(AFileName));
    // Получение объекта файла
    OleFolderItem := OleFolder.ParseName(ExtractFileName(AFileName));
    // Цикл для извлечения свойств файла
    for i := 0 to 999 do
    begin
        PropName := OleFolder.GetDetailsOf(nil, i);
        PropValue := OleFolder.GetDetailsOf(OleFolderItem, i);
        if PropName <> '' and PropValue <> '' then
            Memo1.Lines.Add(Format('%3d) %-30s: %s', [i, PropName, PropValue]));
    end;
end;

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

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

Заключение

При работе с COM в Delphi 2007 важно правильно инициализировать объекты, участвующие в операциях чтения свойств файлов. Использование метода ParseName для получения объекта файла является ключевым моментом для корректной работы метода GetDetailsOf. Следуя этим рекомендациям, разработчики смогут избежать ошибок, связанных с некорректной инициализацией объектов.

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

в одном предложении: При использовании метода `GetDetailsOf` в Delphi 2007 для получения свойств файлов через COM, разработчики могут столкнуться с ошибкой инициализации `OleFolderItem`, что требует правильного порядка инициализации об

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

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

:: Главная :: OLE ::