<br>
<br>
<B>wie kann ich alle seiten eines framsets speichern?</B> <br>
editieren kann ich alle seiten eines framesets so:
<PRE>
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentWB: IWebBrowser;
begin
CurrentWB := pDisp as IWebBrowser;
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';
end;
</PRE>
speichern kann ich eine seite so:
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser2.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:\SavedFile.html '), System.True);
end;
</PRE>
Ich habe dann versucht die Dateinamen zu bekommen, um die Dateien dann wenigstens so irgendwie abspeichern zu können...
mit:
<PRE>
Listbox2.Clear;
if Webbrowser2.OleObject.Document.Frames.Length <> 0 then
begin
for i := 0 to Webbrowser2.OleObject.Document.Frames.Length - 1 do
begin
Listbox2.Items.Add(Webbrowser2.OleObject.Document. Frames.item(i).Document.URL);
</PRE>
<B>
außerdem ist mir absolut nicht klar wie ich den designmode auf off stellen kann... </B>
<PRE>
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'Off'; </PRE>
funktioniert nicht bei Frames...
wer kann und mag mir helfen?
ich finde nirgends informationen darüber...
<br>
<B>wie kann ich alle seiten eines framsets speichern?</B> <br>
editieren kann ich alle seiten eines framesets so:
<PRE>
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentWB: IWebBrowser;
begin
CurrentWB := pDisp as IWebBrowser;
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';
end;
</PRE>
speichern kann ich eine seite so:
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser2.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:\SavedFile.html '), System.True);
end;
</PRE>
Ich habe dann versucht die Dateinamen zu bekommen, um die Dateien dann wenigstens so irgendwie abspeichern zu können...
mit:
<PRE>
Listbox2.Clear;
if Webbrowser2.OleObject.Document.Frames.Length <> 0 then
begin
for i := 0 to Webbrowser2.OleObject.Document.Frames.Length - 1 do
begin
Listbox2.Items.Add(Webbrowser2.OleObject.Document. Frames.item(i).Document.URL);
</PRE>
<B>
außerdem ist mir absolut nicht klar wie ich den designmode auf off stellen kann... </B>
<PRE>
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'Off'; </PRE>
funktioniert nicht bei Frames...
wer kann und mag mir helfen?
ich finde nirgends informationen darüber...