Заменить рисунки в TWEBBrowser

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

procedure TForm1.Button1Click(Sender: TObject); 
var 
  li: Word; 
begin 
  // Loop through all images of a TWebbrowser 
  // Schleife ьber alle Bilder im Webbrowser 

  for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do 
    // Exchange image with an own image 
    // Austauschen der Bilder im webbrowser - durch 'MyImage.gif' 
    WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:\MyImage.gif'; 
end;

Программный код на Delphi для замены изображений в TWebBrowser:

procedure TForm1.Button1Click(Sender: TObject);
var
  li: Word;
begin
   // Перебор всех изображений в TWebbrowser
  for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
     // Замена изображения на собственное
    WebBrowser1.OleObject.Document.Images.Item(li).Src := 'c:\MyNewImage' + IntToStr(li) + '.gif';
end;

В этом коде:

• Используется цикл для перебора всех изображений в TWebbrowser.
• Для каждого изображения вызывается метод Item с текущим значением переменной li, чтобы установить источник изображения.
• Новое имя файла генерируется путем конкатенации базового пути ('c:\MyNewImage'), номера итерации (преобразованного в строку с помощью IntToStr) и '.gif'. Это позволяет заменить несколько изображений на различные собственные изображения.

В статье описывается, как заменить рисунки в TWEBBrowser с помощью процедуры TForm1.Button1Click(Sender: TObject), которая обходит все изображения в браузере и заменяет их на выбранное изображение.

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

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

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