Вызывает диалог открытия файла

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Автор: Babay_S
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
вызывет диалог открытия как в офисе

Зависимости: uses activeX
Автор:       Babay_S
Copyright:   Мои раскопки
Дата:        27 сентября 2002 г.
***************************************************** }

uses activeX;

function GetFileNameFromBrowse(hOwner: LongInt; var sFile: string;
  sInitDir, sDefExt, sFilter, sTitle: string): Boolean;
{ Пример
 GetFileNameFromBrowse(handle,b1,'c:\Install','*.txt',
'Текстовые файлы'#0'*.txt'#0'Все файлы'#0'*.*'#0#0,'Название');
 фильтр который будет использоваться должен стоять в перечне первым
}

implementation

function SHGetFileNameFromBrowse(hOwner: LongInt; sFile: LPWSTR; nMaxFile:
  LongInt;
  sInitDir: LPWSTR; sDefExt, sFilter, sTitle: LPWSTR): Boolean;
  stdcall; external 'Shell32.dll' index 63;

//*************************** Код функций ****************************************

function GetFileNameFromBrowse(hOwner: LongInt; var sFile: string;
  sInitDir, sDefExt, sFilter, sTitle: string): Boolean;
var
  sFileW, sInitDirW, sDefExtW, sFilterW, sTitleW: PWideChar;
  sFileL, sInitDirL, sDefExtL, sFilterL, sTitleL: Integer;
begin
  sFileW := CoTaskMemAlloc(255 * sizeof(WideChar));
  StringToWideChar(SFile, SFileW, 255);
  SInitDirL := Length(sInitDir) + 1;
  sInitDirW := CoTaskMemAlloc(SInitDirL * sizeof(WideChar));
  StringToWideChar(SInitDir, SInitDirW, sInitDirL);
  SDefExtL := Length(sDefExt) + 1;
  sDefExtW := CoTaskMemAlloc(SDefExtL * sizeof(WideChar));
  StringToWideChar(SDefExt, SDefExtW, sDefExtL);
  SFilterL := Length(sFilter) + 1;
  sFilterW := CoTaskMemAlloc(SFilterL * sizeof(WideChar));
  StringToWideChar(SFilter, SFilterW, sFilterL);
  STitleL := Length(sTitle) + 1;
  sTitleW := CoTaskMemAlloc(STitleL * sizeof(WideChar));
  StringToWideChar(STitle, STitleW, sTitleL);
  Result := SHGetFileNameFromBrowse(hOwner, sFileW, Integer(sFileW), sInitDirW,
    sDefExtW, sFilterW, sTitleW);
  SFile := sFileW;
  CoTaskMemFree(sFileW);
  CoTaskMemFree(sInitDirW);
  CoTaskMemFree(sDefExtW);
  CoTaskMemFree(sFilterW);
  CoTaskMemFree(sTitleW);
end;

Пример использования:

if GetFileNameFromBrowse(handle, b1, 'c:\Install', '*.txt',
  'Текстовые файлы'#0'*.txt'#0'Все файлы'#0'*.*'#0#0      , 'Название') then
begin

end;

Программный код на Delphi, который создает диалог для поиска и выбора файла. Функция GetFileNameFromBrowse принимает несколько параметров:

• hOwner: handle владельца окна (окно, которое будет отображать диалог)
• sFile: переменная для хранения имени выбранного файла
• sInitDir: инициализированная директория для начала поиска
• sDefExt: стандартное расширение файла
• sFilter: строка фильтра для отображения типов файлов
• sTitle: заголовок диалога

Функция использует функцию SHGetFileNameFromBrowse из библиотеки Shell32.dll, которая является ActiveX-контролем. Эта функция принимает несколько параметров:

• hOwner: handle владельца окна (тоже самое, что в Delphi-коде)
• sFileW: широкий символный строка для хранения имени выбранного файла
• nMaxFile: максимальная длина имени файла
• sInitDirW: инициализированная директория для начала поиска (как широкая символная строка)
• sDefExtW, sFilterW и sTitleW: аналогично sInitDirW

Delphi-код сначала конвертирует входные строки в широкие символные строки с помощью функции StringToWideChar, затем вызывает функцию SHGetFileNameFromBrowse с этими конвертированными строками. Наконец, он освобождает выделенную память для широких символных строк.

Пример использования этой функции:

if GetFileNameFromBrowse(handle, b1, 'c:\Install', '*.txt',
   'Текстовые файлы'#0'*.txt'#0'Все файлы'#0'*.*'#0#0, 'Название') then
begin
   // делайте что-то с выбранным именем файла (sFile)
end;

Этот код создаст диалог для поиска файлов в директории c:\Install, с стандартным расширением .txt, и отобразит только текстовые файлы (.txt) и все файлы (.). Заголовок диалога будет "Название". Если файл будет выбран, функция вернет true, и вы можете затем получить выбранное имя файла через переменную sFile.

Функция GetFileNameFromBrowse в Delphi вызывает диалог открытия файла для выбора имени файла и папки.

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

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

:: Главная :: Диалоги и Фреймы ::