Voir le source d'une page HTML dans un WebBrowser

procedure TMainForm.FetchPage;
Var
VDoc : OleVariant;
Begin
VDoc := WebBrowser1.Document;
Memo1.Clear;
Memo1.Text := VDoc.Script.Document.Body.InnerHTML;
End;

procedure TMainForm.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
FetchPage;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour18/11/2001
VisualisationVu 1272 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur