您的位置：程序门 -> delphi -> 网络通信/分布式开发

function声明的简单问题.

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

function声明的简单问题.[已结贴,结贴人:yueying]

发表于：2007-01-16 06:33:06 楼主

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;

在网上找到这个东东,但要怎么声明才行啊?

发表于：2007-01-16 08:58:041楼得分:0

不明白楼主意思?

发表于：2007-01-16 09:06:292楼得分:0

是不是你想用这个单元？

在你的窗体类的public单元中写上
function getframe（frameno:integer):iwebbrowser2;

然后在你的实现部分
function from1.getframe（frameno:integer):iwebbrowser2;

这个from1根据你自己的窗体来判断如果你的窗体名字叫frmmain而这时候实现部分就该为
function frmmain.getframe（frameno:integer):iwebbrowser2;

发表于：2007-01-16 17:39:023楼得分:0

谢谢zuoansuifeng（左岸) 为什么会出undeclared identifier: 'iwebbrowser2 '的错误.
我的代码如
unit unit1;

interface

uses
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.

发表于：2007-01-16 19:15:574楼得分:0

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

发表于：2007-01-16 20:34:375楼得分:0

要怎么定义啊?

发表于：2007-01-16 20:38:096楼得分:0

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

发表于：2007-01-16 21:14:547楼得分:0

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

发表于：2007-01-17 09:04:288楼得分:20

twebbrowser 到是有 iwebbrowser有这样的控件吗汗死

twebbrowser 要用这个控件的时候在unit引用shdocvw这个单元即可

发表于：2007-01-17 17:08:199楼得分:0

搞定了,原来是要加个单元,呵呵,谢谢大家帮忙

其他资讯