recuperer le code dans un WebBrowser

Voila j'aimerais recuperer les code sopurces HTML d'un WebBrowser, mais je sais pas comment faire.

Aider moi svp !

J'ai une méthode mais je n'arrive pas à supprimer la boite de dialogue :
procedure TForm1.Button1Click(Sender: TObject);
Var V:OleVariant;
begin
V:='C:\temp\ess.htm';
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER,V,V);
Memo1.Lines.LoadFromFile('C:\temp\ess.htm');
end;


--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

Voila j'aimerais recuperer les code sopurces HTML d'un WebBrowser, mais je sais pas comment faire.

Aider moi svp !

OKmerci bien

sa me va tres bien je te dis si j'arrive a suprrimer la boite de dialogue !
-------------------------------
Réponse au message :
-------------------------------

J'ai une méthode mais je n'arrive pas à supprimer la boite de dialogue :
procedure TForm1.Button1Click(Sender: TObject);
Var V:OleVariant;
begin
V:='C:\temp\ess.htm';
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER,V,V);
Memo1.Lines.LoadFromFile('C:\temp\ess.htm');
end;


--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

Voila j'aimerais recuperer les code sopurces HTML d'un WebBrowser, mais je sais pas comment faire.

Aider moi svp !

http://www.swissdelphicenter.ch/torry/showcode.php?id=1112

La tu auras la réponse, je l'ai pas checkée personnellement, mais à priori ça doit marcher...

Dx.


-------------------------------
Réponse au message :
-------------------------------

OKmerci bien

sa me va tres bien je te dis si j'arrive a suprrimer la boite de dialogue !
-------------------------------
Réponse au message :
-------------------------------

J'ai une méthode mais je n'arrive pas à supprimer la boite de dialogue :
procedure TForm1.Button1Click(Sender: TObject);
Var V:OleVariant;
begin
V:='C:\temp\ess.htm';
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER,V,V);
Memo1.Lines.LoadFromFile('C:\temp\ess.htm');
end;


--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

Voila j'aimerais recuperer les code sopurces HTML d'un WebBrowser, mais je sais pas comment faire.

Aider moi svp !

Bravo pour se code.
Pour supprimer la boite de dialogue il suffit juste de mettre save au lieu de saveas regardez

Var V:OleVariant;
begin
V:='C:\temp\ess.htm';
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DONTPROMPTUSER,V,V);
Memo1.Lines.LoadFromFile('C:\temp\ess.htm');
end;

Schnawd

non dsl voilà le vrai

Var V:OleVariant;
begin
V:='C:\temp\ess.htm';
WebBrowser1.ExecWB(OLECMDID_SAVE,OLECMDEXECOPT_DONTPROMPTUSER,V,V);
Memo1.Lines.LoadFromFile('C:\temp\ess.htm');
end;

Schnawd

Je me suis rendu qu'en faisaint un save direct, le fichier doit exister. Donc pour utiliser cette commande, il faut ajouter même un fichier vide et après il peut l'enregistrer

$cHn4wD