一个ActiveForm的OCX包裹在一个IE的下层的Frame中 想要得到并行框架的内容中的一个值 (特殊需要 因为有共用性) var af:TActiveForm; spIE:IOleContainer; spDoc:IHTMLDocument2; 得到 af.ActiveFormControl.ClientSite.GetContainer(spIE); spIE.QueryInterface(IID_IHTMLDocument2,spDoc) spDoc.parentWindow.top.frames as IHTMLFramesCollection2 然后这个IHTMLFramesCollection2我怎样得到他的 jslike的Frames[0].document呢? 想要得到一个IHTMLWindow2结果就好 敬请指教!! Imagine me and you I do I think about you day and night

------
Imagine me and you
I do
I think about you day and night

从网上找到了解法 自己结了..用IDispatch

var
    spIE:IOleContainer;
    spDoc:IHTMLDocument2;
    spWin:IHTMLWindow2;
    FramesCol:IHTMLFramesCollection2;
    i,j:integer;
    vi,aItem:OleVariant;
    fItem:IDispatch;
begin
  (Sender.Owner as TActiveForm).ActiveFormControl.ClientSite.GetContainer(spIE);
  if spIE.QueryInterface(IID_IHTMLDocument2,spDoc)=S_OK then
  begin
    FramesCol:=spDoc.parentWindow.parent.document.frames;
    for i:=0 to FramesCol.length-1 do
    begin
    vi:=i;
    fItem:=FramesCol.item(vi);
    fItem.QueryInterface(IID_IHTMLWindow2,spWin);
      for j:=0 to spWin.document.all.length-1 do
      begin
        aItem:=spWin.document.all.item(j,varempty);
        if aItem.ID='KANYU_UID' then
        begin
        result:=aItem.title;
        break;
        end;
      end;
    end;
  end;
end;

Imagine me and you I do I think about you day and night

------
Imagine me and you
I do
I think about you day and night

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.