Einzelnen Beitrag anzeigen

Benutzerbild von o0o
o0o

Registriert seit: 20. Jul 2007
Ort: am...,da wo die sonne nicht scheint!
166 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: wissen wenn twebbrowser fertig geladen hat

  Alt 9. Dez 2007, 16:13
@RWarnecke
hmm mit deinem source kann ich iwi nix anfangen ich versteh ihn innerlich nichso^^
aber was noch besser ist ist zu wissen was im frame steht^^
dazu das
Delphi-Quellcode:
procedure TWebForm.DemoButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  win: IHTMLWindow2;
  fc: IHTMLFramesCollection2;
  u: IUnknown;
  i: Integer;
  v: OleVariant;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  fc := doc.frames;
  ShowMessage(Format('frames detected: %d', [fc.Length]));
  for i := 0 to Pred(fc.length) do
  begin
    v := i;
    u := fc.item(v);
    if u.QueryInterface(IHTMLWindow2, win) = 0 then
      ShowMessage(win.document.body.innerHTML)
  end;
end;

ok also er zeigt mir den source von meinem lieben frame nur ich bekomme noch en error "access denied"
weiss jemand wie ich das wieder klar bekomme ohne error?

thx o0o
(_/marabu-fan inside\_)
[-\_______________/-]
  Mit Zitat antworten Zitat