Исправление ошибки с пробелами в пути к файлу при открытии в Microsoft Edge из Delphi

Delphi , Синтаксис , API реализация

Открытие локального файла в Microsoft Edge из программы на Delphi

При работе с файлами в программировании на Delphi, разработчики часто сталкиваются с необходимостью открытия локальных файлов в определенных приложениях, таких как Microsoft Edge. Однако, при наличии пробелов в пути к файлу, могут возникать неожиданные проблемы. В данной статье мы рассмотрим одну из таких проблем и предложим решение, которое позволит избежать ошибок при работе с пробелами в пути к файлу при использовании функции ShellExecute для открытия файла в Microsoft Edge из программы на Delphi.

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

Предположим, у нас есть процедура OpenFileInEdge, которая должна вызывать Microsoft Edge из программы на Delphi и открывать локальный файл, путь к которому указан в параметре sFileName. Процедура выглядит следующим образом:

procedure OpenFileInEdge(
  const Handle: HWND;
  const sFileName: string);
begin
  ShellExecute(Handle, 'open', PChar('"shell:appsfolder\Microsoft.MicrosoftEdge_8wekyb3d8bbwe!MicrosoftEdge"'),
    PChar('"' + sFileName + '"'), nil, SW_ShowNormal);
end;

Этот код работает корректно, за исключением случаев, когда в пути к файлу или в пути к родительским каталогам присутствуют пробелы. Например, если путь к файлу выглядит как "E:\Temp\File Name.html", то Microsoft Edge откроет два разных вкладки: одну с адресом "E:\Temp\File" и другую с "Name.html".

Когда файл перетаскивается из Проводника Windows в Microsoft Edge, путь отображается как "E:\Temp\File%20Name.html". В связи с этим, было решено изменить вызов процедуры ShellExecute, заменив пробелы на символы %20:

PChar(StringReplace(sFileName, ' ', '%20', [rfReplaceAll])), nil, SW_ShowNormal);

Теперь Microsoft Edge открывает одну вкладку с адресом "E:\Temp\File%2520Name.html". После замены пробелов путь к файлу действительно становится "E:\Temp\File%20Name.html", но где-то на пути от Delphi к Microsoft Edge происходит дополнительная обработка, в результате которой % заменяется на %25.

Попытки решения проблемы

Были предприняты различные попытки решения проблемы, включая:

• Использование одинарных кавычек вместо двойных.
• Добавление различных символов экранирования перед %.
• Обертка % в двойные кавычки.

Подсказки и комментарии

Комментарии и подсказки пользователей указывали на необходимость добавления префикса "file:///" перед путем к файлу и использование двойных кавычек. Однако, разработчик хотел открыть файл именно в Microsoft Edge, а не в браузере по умолчанию (по умолчанию это Chrome).

Решение проблемы

В итоге, что помогло — это не добавление одной пары двойных кавычек, а добавление двух дополнительных пар. Работающая версия процедуры OpenFileInEdge выглядит так:

procedure OpenFileInEdge(
  const Handle: HWND;
  const sFileName: string);
begin
  ShellExecute(Handle, 'open', PChar('"shell:appsfolder\Microsoft.MicrosoftEdge_8wekyb3d8bbwe!MicrosoftEdge"'),
    PChar('"""' + sFileName + '"""'), nil, SW_ShowNormal);
end;

Заключение

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

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

Проблема заключается в неправильной обработке пробелов в пути к файлу при попытке открыть его в Microsoft Edge из программы на Delphi, что приводит к ошибкам в отображении адреса файла в браузере.

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

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

:: Главная :: API реализация ::