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

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

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

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

Сидит на Пр. Ленина студентка и играет на баяне. Перед ней табличка: "Помогите бедной студентке на интернет."


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




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


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


реклама


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

Время компиляции файла: 2024-08-19 13:29:56
2024-10-12 15:29:05/0.011184930801392/0