Composant WebBrowser et OLECMDID_SAVE ?

Bonour,

Je souhaite enregister une page WEb via le code suivant :

Code:

---

1 2 3

Nom_FICHIERS_WEB := 'D:\'+form1.WebBrowser1.LocationName+'.HTML'; form1.WebBrowser1.ExecWB(OLECMDID_SAVE , OLECMDEXECOPT_DONTPROMPTUSER);

---

Le code s'execute (pas d'erreur) mais pas de trace de mon fichier avez-vous une idée

Cordialement
Qays

A y est j'ai trouvé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses ActiveX, MSHTML_TLB, SHDocVw_TLB, ComCtrls, OleCtrls;   procedure TForm1.Button1Click(Sender: TObject); var HTMLDocument: IHTMLDocument2; PersistFile: IPersistFile; begin HTMLDocument := WebBrowser1.Document as IHTMLDocument2; PersistFile := HTMLDocument as IPersistFile; PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True); end;

---