Function声明的简单问题.

Question

Function TFrmain.GetFrame(FrameNo:Integer):IWebbrowser2;
var
OleContainer:IOleContainer;
enum:IEnumUnknown;
unk:IUnknown;
Fetched:PLongint;
begin
while webbrowse1.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;
if Assigned(webbrowse.document) then
begin
Fetched:=nil;
OleContainer:=webbrowse.Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS,enum);
Enum.Skip(FrameNo);
Enum.Next(OLECONTF_EMBEDDINGS,Unk,Fetched);
Result:=Unk as IWebbrowser2;
end
else
Result:=nil;
end;在网上找到这个东东,但要怎么声明才行啊?

Answer 1

是不是你想用这个单元？ 在你的窗体类的public单元中写上
Function GetFrame(FrameNo:Integer):IWebbrowser2;然后在你的实现部分
Function From1.GetFrame(FrameNo:Integer):IWebbrowser2;这个From1根据你自己的窗体来判断 如果你的窗体名字叫FrmMain而这时候实现部分就该为
Function FrmMain.GetFrame(FrameNo:Integer):IWebbrowser2;

Answer 2

谢谢zuoansuifeng(左岸) 为什么会出Undeclared identifier:'IWebbrowser2'的错误.
我的代码如
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,mshtml,activex;type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    Function GetFrame(FrameNo:Integer):IWebbrowser2;
  end;var
  Form1: TForm1;implementation{$R *.dfm}Function TForm1.GetFrame(FrameNo:Integer):IWebbrowser2;
var
OleContainer:IOleContainer;
enum:IEnumUnknown;
unk:IUnknown;
Fetched:PLongint;
begin
while webbrowse1.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;
if Assigned(webbrowse.document) then
begin
Fetched:=nil;
OleContainer:=webbrowse.Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS,enum);
Enum.Skip(FrameNo);
Enum.Next(OLECONTF_EMBEDDINGS,Unk,Fetched);
Result:=Unk as IWebbrowser2;
end
else
Result:=nil;
end;end.

Answer 3

你在哪找的代码啊..IWebbrowser2没定义..

Answer 4

其实我是想研究一下,用DELPHI获取和设置IE中框架网页滚动条的位置.在网上找到这一段代码又搞不懂.

Answer 5

IWebbrowser2;如果是控件的话按F1找一下　如果是自己写的类的话　那你就得找相应的单元

Answer 6

TWebbrowser 到是有 IWebbrowser有这样的控件吗 汗死 TWebbrowser 要用这个控件的时候在Unit引用ShDocVw这个单元即可