Автоматическая загрузка файлов в Microsoft Edge с использованием TEdgeBrowser: решение проблемы

Delphi , Интернет и Сети , Браузер

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

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

Разработчики, использующие TWebBrowser в своих проектах, столкнулись с необходимостью перехода на новый компонент TEdgeBrowser после того, как поддержка ActiveX в браузерах была прекращена. Однако, при использовании TEdgeBrowser возникла проблема с невозможностью подавления всплывающего меню загрузки файлов, которое появляется при начале загрузки. Пользователь пытался отключить это меню через настройки, но при работе с TEdgeBrowser настройка не учитывалась. Целью было создать событие, запускаемое автоматически без взаимодействия пользователя.

Исследование и решение

В ходе исследования было обнаружено, что в интерфейсе ICoreWebView2DownloadStartingEventArgs присутствуют методы get_Handled и put_Handled, которые позволяют скрыть стандартное диалоговое окно загрузки файла. Однако, Delphi не предоставляет доступ к этим методам в Winapi.WebView2. Была попытка модификации Winapi.WebView2 для добавления интерфейса ICoreWebView2DownloadStartingEventArgs, но это выходит за рамки стандартных возможностей.

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

На текущий момент, прямая модификация Winapi.WebView2 и добавление интерфейса ICoreWebView2DownloadStartingEventArgs не представляется возможным без глубокого понимания внутреннего устройства компонента и возможных рисков для стабильности приложения.

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

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

Пример кода

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

unit MainFormU;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, System.UITypes, System.Types,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ComCtrls, Vcl.ToolWin, Vcl.ExtCtrls,
  Vcl.Edge, WebView2, Winapi.ActiveX;
type
  TfrmMain = class(TForm)
    MainMenu: TMainMenu;
    EdgeBrowser: TEdgeBrowser;
    RunHTML1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mniScriptClick(Sender: TObject);
    private
    public
      MyScript: TStringList;
  end;
var
  frmMain: TfrmMain;
implementation
uses
  System.Math, System.StrUtils, System.Win.ComObj, System.IOUtils;
{$R *.dfm}
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyScript.Free;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  EdgeBrowser.Navigate('about:blank');
  MyScript := TStringList.Create;
  MyScript.LoadFromFile('TextToFile.html');
end;
procedure TfrmMain.mniScriptClick(Sender: TObject);
begin
  EdgeBrowser.NavigateToString(MyScript.Text);
end;
// Остальная часть кода...

Заключение

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

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

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

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

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

:: Главная :: Браузер ::