Как предотвратить перетаскивание файлов в TWebBrowser на Delphi-приложении

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

Разработчики, работающие с компонентом TWebBrowser в Delphi, иногда сталкиваются с проблемой, когда пользователи могут случайно перетащить файлы на область, где расположен TWebBrowser, вместо того, чтобы поместить их на форму для обработки. Это может привести к нежелательным действиям, таким как сохранение или запуск файлов браузером. В данной статье мы рассмотрим, как можно предотвратить такие ситуации.

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

Вы разработали форму, которая принимает файлы, перетаскиваемые на неё, и у вас есть компонент TWebBrowser, расположенный на TPanel внутри той же формы. При перетаскивании файлов на форму их пути добавляются в TEdit. Однако, если пользователь случайно отпустит файл на TWebBrowser, браузер может предложить сохранить или запустить файл, что не является желаемым поведением.

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

Для решения этой проблемы вам необходимо перехватить операции перетаскивания в TWebBrowser. Это достигается путем реализации интерфейсов IDropTarget и IDocHostUIHandler. Затем, используя метод GetDropTarget, вы должны передать собственную реализацию IDropTarget.

Реализация IDropTarget

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

type
  TWebBrowserDropTarget = class(TInterfacedObject, IDropTarget)
  public
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    procedure GetDropDescription(formats: TDropDescription; desc: TDropDescriptionData; dataobj: IDataObject; grfkey: DWORD; var descformat): HResult; stdcall;
    procedure DAdvise(this: IDM; pDataObj: IDataObject; grfadvf: DWORD; advf: ADVF; pdwConnection: DWORD): HResult; stdcall;
    procedure DUnadvise(const dwConnection: DWORD): HResult; stdcall;
    procedure EnumDAdvise(out pElt: IEnumSTATDATA): HResult; stdcall;

    function DragEnter(grfkey: DWORD; dataobj: IDataObject; desk: TDataObject; gridoffset: TPoint; deEffect: DWORD): HResult; stdcall;
    function DragOver(grfkey: DWORD; dataobj: IDataObject; desk: TDataObject; gridoffset: TPoint; deEffect: DWORD): HResult; stdcall;
    function DragLeave: HResult; stdcall;
    function Drop(grfkey: DWORD; dataobj: IDataObject; desk: TDataObject; gridoffset: TPoint; deEffect: DWORD): HResult; stdcall;
  end;

procedure TWebBrowserDropTarget.DragEnter(grfKey: DWORD; pDataObj: IDataObject; pt: TPoint; dwEffect: DWORD): HResult;
begin
  // Отклоняем все перетаскиваемые операции
  Result := DO_DONTACCEPT;
end;

Реализация IDocHostUIHandler

Для работы с IDocHostUIHandler, вы должны создать обработчик событий, который будет вызываться Internet Explorer, когда браузеру требуется указать, как обрабатывать интерфейс пользователя. Вам нужно будет реализовать метод GetDropTarget, чтобы указать, что ваше приложение будет обрабатывать все операции перетаскивания.

type
  TWebBrowserDocHostUIHandler = class(TInterfacedObject, IDocHostUIHandler)
  public
    function GetDropTarget: IDropTarget; stdcall;
    // Другие методы интерфейса IDocHostUIHandler
  end;

function TWebBrowserDocHostUIHandler.GetDropTarget: IDropTarget;
begin
  // Возвращаем наш собственный TWebBrowserDropTarget
  Result := TWebBrowserDropTarget.Create(nil);
end;

Настройка TWebBrowser

После реализации обоих интерфейсов, вам нужно будет установить обработчик интерфейса пользователя для вашего TWebBrowser:

WebBrowser1.Doc := TWebBrowserDoc.Create(nil);
WebBrowser1.Options := WebBrowser1.Options + [woDontSaveOuterHTML];
WebBrowser1.OutHost := TWebBrowserDocHostUIHandler.Create(nil);

Пример кода

Для полного примера реализации обработки перетаскивания в TWebBrowser, вы можете обратиться к статье "How to handle drag and drop in a TWebBrowser control" на сайте DelphiDabbler.

Заключение

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

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

Разработчики Delphi рассматривают способы предотвращения обработки браузером файлов, перетащенных на компонент TWebBrowser, чтобы файлы обрабатывались приложением, а не браузером.

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

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

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