...Bilder im TWebBrowser ersetzen?

Autor: boegi
Homepage: http://www.boegi.de

Kategorie: Internet / LAN

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base