URL einer Frame ermitteln

[KyroxX]

Moin

Wie kann ich die URL einer Frame (welche in einem TWebBrowser angezeigt ist) ermitteln?
Brauche ich für einen "Chatout" den ich dann bequem in einem anderen Browser anzeigen kann

Thx for Help!

[Alexander]

Probier mal das hier:
ShowMessage('URL: ' + WebBrowser_V11.OleObject.Document.Frames.item[0].Document.Url);

[KyroxX]

ne funzt net - endet mir error in mshtml.dll

*argh* das ist das einzigste was ich jetzt noch brauche um das Programm zu vollenden ^^

Hat jemand ne Ahnung wie es noch anders funzt?

Thx im vorraus

[nTE]

Dazu gibt es was im SwissDelphiCenter:

...get all Frame URLs in TWebbrowser?

Sieht allerdings ziemlich nach dem was alexander da gepostet hat und wenn jetzt schon 2 Quellen diese Lösung anbieten und sie bei dir nicht funktioniert, würde ich überlegen ob die Schwierigkeiten auf deiner Seite liegen könnten. :P

[KyroxX]

Hmm jetzt bekomm ich jedesmal "Member nicht gefunden" was soll das heissen?

showing.Navigate(Connecting.OleObject.Document.Frames.item('chat_out').document.url); hmm den code aus dem Swiss werd ich gleich ma probieren - aber du hast recht, ist eigentlich identisch

[Alexander]

Meins war allerdings nciht getestet...

[KyroxX]

Hmm, bekomme jetzt die URL *g* aber nur die der absoluten Hauptframe.
Und wenn ich andre frames wählen will "frame('bla')" oder auch "frame[1]" dann hautz mir dir mshtml.dll um die Ohren :/

Jemand ne Idee?

[horst]

hast du mal mshtml oder MSHTML_TLB in uses eingefügt?

wenn member nicht gefunden wurde dann existiert der framen/name nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Listbox1.Clear;
begin
    for i := 0 to Webbrowser1.OleObject.Document.Frames.Length - 1 do
    begin
      Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item('HIER MUSS DEIN FRAMENAME REIN').Document.URL);
     end;
  end;
  end;
end.

[horst]

Du kannst mal mit folgendem Code experimentieren.
Damit kannst du alle Frames im WB speichern.
(oder auch einzelnd)
ist auch von swissdelphicenter

Delphi-Quellcode:

uses 
  ActiveX, MSHTML_TLB, ComCtrls, ComObj; 

function GetBrowserForFrame(Doc: IHTMLDocument2; nFrame: Integer): IWebBrowser2; 
  //Thanks to Rik Barker 
  //returns an interface to the frame's browser 
var 
  pContainer: IOLEContainer; 
  enumerator: ActiveX.IEnumUnknown; 
  nFetched: PLongInt; 
  unkFrame: IUnknown; 
  hr: HRESULT; 
begin 
  Result := nil; 
  nFetched := nil; 
  // Cast the page as an OLE container 
  pContainer := Doc as IOleContainer; 
  // Get an enumerator for the frames on the page 
  hr := pContainer.EnumObjects(OLECONTF_EMBEDDINGS or OLECONTF_OTHERS, enumerator); 
  if hr <> S_OK then 
  begin 
    pContainer._Release; 
    Exit; 
  end; 
  // Now skip to the frame we're interested in 
  enumerator.Skip(nFrame); 
  // and get the frame as IUnknown 
  enumerator.Next(1,unkFrame, nFetched); 
  // Now QI the frame for a WebBrowser Interface - I'm not  entirely 
  // sure this is necessary, but COM never ceases to surprise me 
  unkframe.QueryInterface(IID_IWebBrowser2, Result); 
end; 

function GetFrameSource(WebDoc: iHTMLDocument2): string; 
  //returns frame HTML and scripts as a text string 
var 
  re: integer; 
  HTMLel: iHTMLElement; 
  HTMLcol: iHTMLElementCollection; 
  HTMLlen: Integer; 
  ScriptEL: IHTMLScriptElement; 
begin 
  Result := ''; 
  if Assigned(WebDoc) then 
  begin 
    HTMLcol := WebDoc.Get_all; 
    HTMLlen := HTMLcol.Length; 
    for re := 0 to HTMLlen - 1 do 
    begin 
      HTMLel := HTMLcol.Item(re, 0) as iHTMLElement; 
      if HTMLEl.tagName = 'HTML' then 
        Result := Result + HTMLEl.outerHTML; 
    end; 
  end; 
end; 

function WB_SaveFrameToFile(HTMLDocument: IHTMLDocument2; 
  const FileName: TFileName): Boolean; 
// Save IHTMLDocument2 to a file 
var 
  PersistFile: IPersistFile; 
begin 
  PersistFile := HTMLDocument as IPersistFile; 
  PersistFile.Save(StringToOleStr(FileName), System.True); 
end; 


function SaveWBFrames(WebBrowser1: TWebBrowser): string; 
// return the source for all frames in the browser 
var 
  Webdoc, HTMLDoc: ihtmldocument2; 
  framesCol: iHTMLFramesCollection2; 
  FramesLen: integer; 
  pickFrame: olevariant; 
  p: integer; 
begin 
  try 
    WebDoc := WebBrowser1.Document as IHTMLDocument2; 
    Result := GetFrameSource(WebDoc); 

    // §§§ Hier kann Result in eine Datei gespeichert werden §§§§  oder  mit 
    // WB_SaveFrameToFile(WebDoc,'c:\MainPage.html'); 

    //Handle multiple or single frames 
    FramesCol := WebDoc.Get_frames; 
    FramesLen := FramesCol.Get_length; 
    if FramesLen > 0 then 
      for p := 0 to FramesLen - 1 do 
      begin 
        pickframe := p; 
        HTMLDoc   := WebBrowser1.Document as iHTMLDocument2; 

        WebDoc := GetBrowserForFrame(HTMLDoc, pickframe).document as iHTMLDocument2; 
        if WebDoc <> nil then 
        begin 
          Result := GetFrameSource(WebDoc); 
          // §§§ Hier kann Result in eine Datei gespeichert werden §§§§  oder  mit 
          // WB_SaveFrameToFile(WebDoc, 'c:\Frame' + IntToStr(p) + '.html'); 
          // Wie bekommt man den Namen für ein Frame ?? 
          // so? 
          // ShowMessage(HTMLDoc.Get_parentWindow.Get_name); 
          // ShowMessage(HTMLDoc.Get_parentWindow.Parent.Get_document.nameProp); 

        end; 
      end; 
  except 
    Result := 'No Source Available'; 
  end; 
end; 

// Testen: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SaveWBFrames(Webbrowser1); 
end;

[KyroxX]

Ah danke ^^
Ich dachte schon cih müsse meinem Programm nen Grab schaufeln als ich von Brian Cryer dem Autor der Site "Crying about TWebBrowser programming" das hier gehört hab:

"I know this problem well, but unfortunatly I don't know a way round it. I
wish I did!

Sorry!

If you do find a way round it then I would love to hear. I have always
assumed that its the security settings which are preventing it.

all the best,

Brian."

*wieder Hoffnung schöpf*