Ich habe zwei Codes drin, das mit den Frames stimmt und ist auch noch nicht gelöst, aber, glaube ich jedenfalls, nicht das Hauptproblem.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
PageDoc : IHTMLDocument2;
PageBody : IHTMLElement;
PageText : WideString;
begin
if not VarIsEmpty(WebBrowser1.Document) then
begin
PageDoc := WebBrowser1.Document as IHTMlDocument2;
PageBody := PageDoc.Get_body;
PageText := PageBody.innerHTML;
Memo1.Text := PageText;
end;
end;
und
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var PageBody : IHTMLElement;
begin
if Assigned(WebBrowser1.Document) then
begin
PageBody := (WebBrowser1.Document AS IHTMLDocument2).Body;
while PageBody.ParentElement <> nil do
PageBody := PageBody.ParentElement;
Memo1.Text := PageBody.innerHTML;
end;
Danke
