Discussion :

[QAYS]

Bonour,

Je souhaite enregister une page WEb via le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[QAYS]

A y est j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;