een website "opslaan"(Borland Delphi)
Geplaatst: 30 sep 2002, 05:54
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
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
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