Как вызвать Internet Explorer из Delphi

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

program iexplor;

uses
  Windows, OLEAuto;

procedure OpenInternetExplorer( sURL : string );
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE: Variant;
  WinHanlde: HWnd;
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOleObject(csOLEObjName);
    IE.Visible := true;
    IE.Navigate(sURL);
  end
  else
  begin
    WinHanlde := FindWIndow('IEFrame', nil);
    if 0 <> WinHanlde then
    begin
      IE.Navigate(sURL);
      SetForegroundWindow(WinHanlde);
    end
    else
    begin
      // handle error ...
    end;
  end;
end;

begin
  OpenInternetExplorer('microsoft.com');

end.

Программа на Delphi, которая открывает Интернет-эксплорер и навигирует по конкретной URL с помощью процедуры OpenInternetExplorer.

Разбивка кода:

• Программа использует модули Windows и OLEAuto, которые предоставляют функциональность для взаимодействия с Windows и создания COM-объектов.
• Процедура OpenInternetExplorer принимает строковый параметр sURL, который является URL, по которому нужно навигировать в Интернет-эксплорере.
• Procedure first checks if the IE variant is empty. If it is, it creates a new instance of Internet Explorer using the CreateOleObject function and sets its visibility to True. It then navigates to the specified URL using the Navigate method.
• Если IE-variant не пуст, это означает, что уже существует экземпляр Интернет-эксплорера. Procedure then tries to find a window with the title "IEFrame" (which is the default title of an Internet Explorer window) and its handle is stored in the WinHanlde variable. If such a window is found, it navigates to the specified URL using the Navigate method and sets the foreground window to the found window.
• Finally, if no window with the title "IEFrame" is found, an error handling mechanism can be implemented.

Основная программа просто вызывает процедуру OpenInternetExplorer с URL 'microsoft.com'.

Некоторые предложения:

• Вместо использования жесткого кодирования URL, вы могли бы сделать его параметром или прочитать из конфигурационного файла.
• Вы можете добавить более robust ошибка обработки для случаев, когда Интернет-эксплорер не запущен или указанное окно не найдено.
• Рассмотрите использование более современного способа взаимодействия с Интернет-эксплорером, например, компонента TWebBrowser в Delphi.

Комментарий о предложении Microsoft по продаже рекламного пространства в ошибочных сообщениях не имеет отношения к предоставленному коду.

Статья описывает способ вызова Internet Explorer из приложения Delphi, используя ОLE и создание объекта InternetExplorer.Application.

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

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

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