À propos de la sauvegarde d'une page affichée dans un TWebBrowser

**Eldann** · 15/06/2009, 17h57

Bonjour,

Je cherchais comment enregistrer une page affichée dans un TWebBrowser, j'ai fini par trouver la bonne syntaxe en parcourant la FAQ, avec une ligne du type :

MyWebBrowser.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);

ce qui fonctionne parfaitement, mais il me reste une question.

Comment récupérer le nom de fichier qui a été attribué au fichier par l'utilisateur dans le dialogue d'enregistrement ?

J'en ai même une deuxième, mais moins importante, existe-t-il un moyen de "prépositionner" le type de document souhaité (page web complète, archive web, page HTML seule...) dans le dialogue de sauvegarde ainsi invoqué ?

Merci de votre aide.

**ShaiLeTroll** · 17/06/2009, 15h05

A Savoir que tu peux accéder via la propriété "WebBrowser.OleObject.Document.Body.InnerHTML", tu as accès au source de la page, attention, ces objets sont des variants (late binding) et sont remplis de manière asynchrone, voir le sujet "Afficher page HTML dans Delphi"

**Eldann** · 18/06/2009, 14h12

Bien que je doute de pouvoir trouver le nom du fichier à partir du code HTML de la page, je vais tenter d'explorer cette piste.

J'espérais plutôt une explication claire sur la façon d'utiliser l'interface iDispatch de la propriété Document de mon composant WebBrowser, car tout ce que j'ai pu trouver à ce sujet jusqu'à présent m'a semblé fumeux, incomplet, et les rares exemples peu parlants. Mais j'ai peut-être mal cherché.

En tout cas, je te remercie beaucoup pour ta réponse.

**Andnotor** · 18/06/2009, 15h08

Ce que te propose Shai est de récupérer le code html, de le charger dans une StringList (par exemple) et de gérer toi-même la sauvegarde avec un SaveDialog.

**Eldann** · 18/06/2009, 20h08

Oups...

Cette interprétation de sa réponse ne m'avait pas sauté aux yeux, merci.

Elle est effectivement de nature à résoudre très facilement mon problème, dans la mesure où la sauvegarde que j'envisageais concernait juste la page HTML seule, sans ses fichiers associés (images, feuilles de styles, etc).

Si j'avais voulu enregistrer la page complète, ça m'aurait fait nettement plus de boulot, et si j'avais voulu l'enregistrer au format ".mht", je pense que j'aurais eu un peu de mal à implémenter l'écriture moi-même.

Je vais donc passer ma question à "Résolue" très prochainement, mais je regrette quand même un peu que certaines questions demeurent un mystère pour moi. Par exemple : ExecWB peut être utilisée avec deux paramètres supplémentaires (un pointeur en entrée, un en sortie), mais leur utilisation n'est documentée nulle part. J'aurais trouvé normal qu'au moins sur msdn, on trouve un petit tableau indiquant pour chaque type de fonction "OLECMDID_" quel(s) paramètre(s) on peut passer en entrée et/ou recevoir en sortie, mais rien...

Quoi qu'il en soit, merci encore à vous deux.

**Eldann** · 02/07/2009, 16h00

J'avais d'autres priorités, d'où le délai, mais en revenant à ce problème, j'ai trouvé la solution.

L'ennui, avec la suggestion de Shai, hormis le fait qu'il faut soi-même coder la partie écriture du fichier (ce qui n'est pas un problème), c'est surtout qu'elle ne permet d'accéder, au mieux, qu'à ce qui est compris à l'intérieur de la balise <HTML>. Adieu, donc, les en-têtes de document du genre <!DOCTYPE...> et autres préliminaires.

Heureusement, après de fastidieuses recherches, je suis tombé sur cet article en anglais.

Le résultat obtenu avec le code ci-dessous est exactement le même qu'avec MyWebBrowser.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT); en choisissant l'option "Page Web, HTML uniquement" (exactement ce que je voulais), sauf que j'ai le contrôle sur l'ensemble des paramètres auxquels j'ai besoin d'accéder.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.BtSaveClick(Sender: TObject);
Var
  HResult : Integer;
  SUrl, SFile: string;
  pSUrl, pSFile: PAnsiChar;
begin
  SUrl:= String(Webb.LocationURL);
  pSUrl:= Pointer(SUrl);
  SFile:= <nom complet du fichier>;
  pSFile:= Pointer(SFile);
  HResult := URLDownloadToFileA(nil, pSUrl, pSFile, 0, nil);
end;

En espérant que ça puisse servir à quelqu'un !

NB - La fonction URLDownloadToFile et ses dérivées (URLDownloadToFileA, URLDownloadToFileW) se trouvent dans l'unité (uses) URLMon.

À propos de la sauvegarde d'une page affichée dans un TWebBrowser

Web & réseau Delphi

Vue hybride

Discussions similaires

Partager

Partager