een website "opslaan"(Borland Delphi)

[Erik]

in Delphi (enterprise of pro )only kan je gebruik maken van TWebBrowser en dan kan je de functionaliteit van internet explorer toevoegen aan Delphi programmas.Nu heb ik al veel gezien dat mensen vragen hoe je dat venster krijgt dat internet explorer toont "save Web Page" wel eevoudig

Code: Selecteer alles

procedure TMainForm.Save1Click(Sender:TObject);
begin
try
      webbrowser1.ExecWB    (OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT);
except
on E:Exception do
MessageBox(0,PChar('Er is een fout opgetreden in : ' +#32 + E.Message + #32 + Sender.ClassName),PChar('WebBrowser'),
MB_OK + MB_ICONERROR + MB_TASKMODAL);
end;

de regel try vertelt Delphi dat ie iets moet gaan uitvoeren wat een zogenaamde "exceptie" kan veroorzaken exept en de regels die erop volgen zorgen ervoor dat windows niet crasht die #32 is gewoon een druk (in code dan) op de spatiebalk om een spatie toe te voegen in de messagebox die getoont wordt.

greetz
Erik

[NuKeM]

Bewaard hij dan ook de images op de site?
anders kan je eventueel ook met bv NMHTTP1.Get werken of via de handige ICS Component van FPiette (te vinden op http://overbyte.delphicenter.com/frame_index.html)

In ieder geval een leuke tip

[Erik]

ja TWebBrowser is gewoon een active x component -> shdocvw.dll

en internet explorer zelfs slaat een gehele website inclusief afbeeldingen op dus ik ga ervanuit dat die code dat ook zal doen internet component suite ja das zijn handige componenten gebruik ik ook soms maar ik zal dit eens testen om te zien of em images ook opslaat


greetz

Erik