1:
2:

FIEBrowser := TWebBrowser.Create(Mainform.tsWebBrowser);
FIEBrowser.HostDockSite := MainForm.tsWebBrowser;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:

procedure MyBrowser.BrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);

var numOfImages, numOfFrames : integer;
    endTime : TDateTime;
    tp : integer;
    doc : IHTMLDocument2;

    title : string;
    testsize : integer;
    retval: bool;
    size : Cardinal;
    browserControlInterface: IDispatch;
    NewURL : OleVariant;
begin

  //stop eventhandling
    FIEBrowser.OnDocumentComplete := nil;
    FIEBrowser.OnNewWindow2 := nil;
    FIEBrowser.OnNavigateError := nil;


  numOfImages := 0;
  numOfFrames := 0;
  size := 0;

 

  try
    // HIER heftiges Problem!!!!
    doc := IHTMLDocument2(FIEBrowser.Document);
  except
    // escpation wird keine geworfen!
  end;

  //get number of frames/images
  try
    CalcSizeOfFrame(doc, testsize, numOfImages, numOfFrames);
    except
    end;
  end;

  // release the interface
  doc := nil;

  LogInfo('Size: ' + IntToStr(size) + ' Bytes');
end;

// recursive function to travel through the HTML document and count bytes,
// images and frames
procedure MyBrowser.CalcSizeOfFrame(htmlDocument: IHTMLDocument2;
                             var totalBytes, numOfImages, numOfFrames: integer);
var imageCollection: IHTMLElementCollection;
    image: HTMLImg;
    currentFrame, currentImage: integer;
    frameCollection: IHTMLFramesCollection2;
    frame: IHTMLDocument2;
    currentFrameVariant1, currentFrameVariant2: OleVariant;
    htmlWindow: IHTMLWindow2;

begin
  // check for frames
  frameCollection := IHTMLFramesCollection2(htmlDocument.frames);

    // for every frame
    for currentFrame := 0 to frameCollection.Length - 1 do
    begin
      currentFrameVariant1 := currentFrame;
      currentFrameVariant2 := frameCollection.item(currentFrameVariant1);
      // a frame is embedded in a IHTMLWindow2
      IDispatch(currentFrameVariant2).QueryInterface(IID_IHTMLWindow2,
                                                     htmlWindow);
      if htmlWindow <> nil then
      begin
        try
          frame := IHTMLDocument2(htmlWindow.document);
          numOfFrames := numOfFrames + 1;
          // restart (recursiv) with new document
          CalcSizeOfFrame(frame, totalBytes, numOfImages, numOfFrames);
        except
        end;
      end;
    end;

    // check for images
    imageCollection := IHTMLElementCollection(htmlDocument. images);
    for currentImage := 0 to imageCollection.length - 1 do
    begin
      image := HTMLImg(imageCollection.Item(currentImage, varEmpty));
      // add size of image, if a new one
      if FImgList.IndexOf(image.nameProp) = -1 then
      begin
        totalBytes := totalBytes + StrToIntDef(image.filesize, 0);
        FImgList.Add(image.nameProp);
      end;
      numOfImages := numOfImages + 1;
    end;

    frame := nil;

    currentImage:=nil;
end;