Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Replace images in a TWebBrowser

Title: Replace images in a 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;