Контролирование IE при помощи OLE

Delphi , Технологии , OLE

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses Comobj;
 {...}
 var
   Form1: TForm1;
   IEApp: OLEVariant;

 implementation

 {$R *.DFM}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   IEApp         := CreateOLEObject('InternetExplorer.Application');
   IEApp.Visible := True;
   IEApp.Top     := 0;
   IEApp.Left    := 0;
   IEApp.Width   := Screen.Width;
   IEApp.Height  := Screen.Height;
   IEApp.Navigate('http://www.swissdelphicenter.ch');
 end;

 { 
  To Close the Internet Explorer: 
  Um Internet Explorer beenden: 
}

 IEApp.Quit;

 { 
  Some other methods: 
  Einige andere Methoden: 
}

   IEApp.GoForward
   IEApp.GoBack
   IEApp.GoHome
   IEApp.Refresh
   IEApp.Stop
   IEApp.GoHome
   IEApp.FullScreen := true;

 { 
  To set some Properties: 
  Einige Eigenschaften setzen: 
}

   IEApp.StatusText := 'My Status Text';

 { 
  IEApp.Path       = Show Path to IE, Pfad anzeigen 
  IEApp.FullName    = Full Path to IE, voller Pfad zum IE 
  IEApp.LocationURL = Get active Url, Aktuelle URL 
}

Программа на Delphi использует интерфейс OLE (Object Linking and Embedding) для управления Internet Explorer. Вот разбивка кода:

Объявление переменных Программа объявляет две переменные: Form1, которая является экземпляром класса TForm1, и IEApp, который является объектом OLEVariant.

Секция реализации Секция реализации содержит три процедуры: 1. Button1Click: Эта процедура вызывается при клике кнопки с текстом "Button1". Она создает новый экземпляр Internet Explorer с помощью функции CreateOLEObject, устанавливает различные свойства, такие как видимость, верхняя граница, левая граница, ширина и высота, и навигирует по URL 'http://www.swissdelphicenter.ch'. 2. Quit: Эта процедура закрывает приложение Internet Explorer. 3. Другие методы: Программа определяет несколько других методов, которые можно использовать для взаимодействия с экземпляром Internet Explorer: * GoForward, GoBack, GoHome, Refresh и Stop - это самопонятные методы. * FullScreen устанавливает, должен ли браузер работать в полноэкранном режиме. 4. Установка свойств: Программа устанавливает текст статуса экземпляра Internet Explorer в 'My Status Text'.

OLE Variant Объект IEApp является OLEVariant, который является безопасным обёрткой вокруг интерфейса OLE-automation. Это позволяет вам доступ к свойствам и методам приложения Internet Explorer в безопасном режиме.

Заметки

• Программа использует функцию CreateOLEObject для создания нового экземпляра Internet Explorer.
• Свойство Visible установлено в True, чтобы сделать браузер видимым на экране.
• Процедура Quit используется для закрытия приложения Internet Explorer.
• Другие методы и свойства - это самопонятные.

Альтернативное решение: Вместо использования OLE вы можете использовать компонент TWebBrowser в Delphi для взаимодействия с Internet Explorer. Этот компонент предоставляет более упрощенный и удобный интерфейс для управления браузером. Например:

var
  WebBrowser: TWebBrowser;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser := TWebBrowser.Create(nil);
  WebBrowser.Visible := True;
  WebBrowser.Navigate('http://www.swissdelphicenter.ch');
end;

В этом коде создается новый экземпляр компонента TWebBrowser, устанавливается видимость в True и навигируется по указанному URL. Затем вы можете использовать другие методы и свойства компонента TWebBrowser для взаимодействия с браузером.

Контролирование Internet Explorer при помощи ОLE-компонентов позволяет создавать в Delphi формы, которые могут управлять браузером и выполнять различные действия с его помощью.

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

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

:: Главная :: OLE ::