Function声明的简单有关问题
Function声明的简单问题.
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;
在网上找到这个东东,但要怎么声明才行啊?
------解决方案--------------------
TWebbrowser 到是有 IWebbrowser有这样的控件吗 汗死
TWebbrowser 要用这个控件的时候在Unit引用ShDocVw这个单元即可
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;
在网上找到这个东东,但要怎么声明才行啊?
------解决方案--------------------
TWebbrowser 到是有 IWebbrowser有这样的控件吗 汗死
TWebbrowser 要用这个控件的时候在Unit引用ShDocVw这个单元即可