Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.BtnCodeClick(Sender: TObject); begin if WebBrowser1.Document = nil then Exit; Form2.RichEdit1.Text := WebBrowser1.OleObject.Document.Body.InnerHTML; Form2.Show; end;
procedure TForm1.BtnCodeClick(Sender: TObject); var TableStr: TStringList; begin if WebBrowser1.Document = nil then Exit; TableStr := TStringList.Create; try TableStr.Text := WebBrowser1.OleObject.Document.Body.InnerHTML; // ...ici, traitement du code dans la StringList finally TableStr.Free; end; end;