Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

How to Replace images in a TWebBrowser

Title: How to Replace images in a TWebBrowser procedure TForm1.Button1Click(Sender: TObject); var li: Word; begin // Loop through all images of a TWebbrowser for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do // Exchange image with an own image WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:\MyImage.gif'; end;