Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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

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



У компании Microsoft появилась новая услуга. Они предлагают рекламное место в сообщениях об ошибках программы.


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




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


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-10-12 16:11:30/0.0038490295410156/0