Форум программистов [Powered by Invision Power Board]

Код


function GetFrameDoc(gDoc:IHTMLDocument2;ind:integer):IHTMLDocument2;
var
  Container : IOleContainer;
  Browser : IWebBrowser2;
  Unknown : IUnknown;
  Enumerator : ActiveX.IEnumUnknown;
  Fetched: Longint;
begin
result:=nil;
if not (Supports(gdoc, IOleContainer, Container)) then exit;
if Container.EnumObjects(OLECONTF_EMBEDDINGS, Enumerator) <> S_OK then exit;
Enumerator.Skip(ind);
if Enumerator.Next(1, Unknown, @Fetched) <> S_OK then exit;
try
if Supports(Unknown, IWebBrowser2, browser) then result:=Browser.Document as IHTMLDocument2;
except
end;//except silencer
end;//GetFrameDoc

Код


function GetFrameIndex(gFrame:IHTMLElement):integer;
var
  i:integer;
  iColl:IHTMLElementCollection;
  tEl:IHTMLElement;
  doc:IHTMLDocument2;
begin
result:=-1;
doc:=gFrame.document as IHTMLDocument2;
iColl:=doc.all.tags('FRAME') as IHTMLElementCollection;
for i:=0 to iColl.length-1 do
  begin
  inc(result);
  tEl:=IDispatch(iColl.item(i,0)) as IHTMLElement;
  if gFrame.sourceIndex=tEl.sourceIndex then exit;
  end;//for
iColl:=doc.all.tags('IFRAME') as IHTMLElementCollection;
for i:=0 to iColl.length-1 do
  begin
  inc(result);
  tEl:=IDispatch(iColl.item(i,0)) as IHTMLElement;
  if gFrame.sourceIndex=tEl.sourceIndex then exit;
  end;//while
result:=-1;
end;//GetFrameIndex


function GetFrameDoc(gDoc:IHTMLDocument2;ind:integer):IHTMLDocument2;overload;
var
  Container : IOleContainer;
  Browser : IWebBrowser2;
  Unknown : IUnknown;
  Enumerator : ActiveX.IEnumUnknown;
  Fetched: Longint;
begin
result:=nil;
if not (Supports(gdoc, IOleContainer, Container)) then exit;
if Container.EnumObjects(OLECONTF_EMBEDDINGS, Enumerator) <> S_OK then exit;
Enumerator.Skip(ind);
if Enumerator.Next(1, Unknown, @Fetched) <> S_OK then exit;
try
if Supports(Unknown, IWebBrowser2, browser) then result:=Browser.Document as IHTMLDocument2;
except
end;//except silencer
end;//GetFrameDoc


function GetFrameDoc(gFrame:IHTMLElement):IHTMLDocument2;overload;
var
  ind:integer;
begin
result:=nil;
ind:=GetFrameIndex(gFrame);
if ind=-1 then exit;
result:=GetFrameDoc(gFrame.document as IHTMLDocument2,ind);
end;//GetFrameDoc

function GetHTMLElementUnderneath(gX,gY:integer;gWB:TWebBrowser):IHTMLElement;
var
  TheDoc:IHTMLDocument2;
  cP:TPoint;
begin
result:=nil;
if not IsHTMLContent(gWB) then exit;
cP:=gWB.ScreenToClient(Point(gX,gY));
if Assigned(gWB.ControlInterface) then
  TheDoc:=gWB.ControlInterface.Document as IHTMLDocument2;
if not Assigned(TheDoc) then exit;
result:=TheDoc.ElementFromPoint(cP.X,cP.Y);
while Assigned(result) and
      ((result.tagName='FRAME') or  (result.tagName='IFRAME')) do
  begin
  TheDoc:=GetFrameDoc(result);
  if not Assigned(TheDoc) then exit;
  cP.X:=cP.X-GetElementLeft(result);
  cP.Y:=cP.Y-GetElementTop(result);
  result:=TheDoc.ElementFromPoint(cP.X,cP.Y);
  end;//while
end;//GetHTMLElementUnderneath

Код



uses ...  ActiveX, SHDocVw, Mshtml;

procedure TForm1.Button1Click(Sender: TObject);
var
shellwindow: ishellwindows;
wb: iwebbrowser2;
spdisp: idispatch;
idoc1: ihtmldocument2;

idocNew: ihtmldocument2;
col: IHTMLElementCollection;
el : IHTMLElement;

document: variant;
k, m: integer;
ovelements: olevariant;
i: integer;
begin
shellwindow := coshellwindows.create;
//ищем окна и далее опр. явл. они webbrouser
for k := 0 to shellwindow.count do
begin
spdisp := shellwindow.item(k);
  if spdisp = nil then continue;
spdisp.queryinterface(iwebbrowser2, wb);
  if wb <> nil then
  begin
  wb.document.queryinterface(ihtmldocument2, idoc1);
    if idoc1 <> nil then
    begin
    wb := shellwindow.item(k) as iwebbrowser2;
    begin
    document := wb.document;
      for m := 0 to document.frames.length - 1 do
      begin
      //опр. номер фрейма
      ovelements := document.frames.item(m);
      //ShowMessage(IntToStr(m)); Посмотреть номер фрейма
      //вызываем функцию предложенную December
      //и получаем ihtmldocument2 фрейма m
      idocNew := GetFrameDoc(iDoc1, m);
      //далее парсинг фрейма нахадим нужный тег
      //поставьте в '' какой тег собираетесь искать 
      col := idocNew.all.tags('') as IHTMLElementCollection;
        for i := 0 to col.length-1 do
        begin
            //ищем нужный вам тег
            //и делаете , что вам надо
        end;
      end;
    end;
    end;
  end;
end;
end;