TWebbrowser动态赋函数事件的问题**

linjiawei

function WebBrowserGetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;

FWebBrowser.OnGetHostInfo := WebBrowserGetHostInfo;

编译报错,
[错误]:Not enough actual parameters

Delphi中正常,请问可以解决吗?

linjiawei

?

atiger

OnGetHostInfo事件的类型是 procedure(TDOCHOSTUIINFO) of Object;
注意必须是某个对象的方法才可以定义成事件，按照你的写法没有写在类的定义上，当然不行了

因为如果是对象的方法，默认第一个参数传递一个Self的参数，如果不是对象的方法，就不会增加这个默认的参数，所以你1楼会提示参数不够的错误。
在Delphi中是一样的。

linjiawei

我已经在对象里定义了呀,这里是被我省了.如下
TPage=Class(TObject)
private
    FWebBrowser:TWebBrowser;   
    function WebBrowserGetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;  
public
    ....
   end;

function TPage.WebBrowserGetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
begin
   ...
end;

linjiawei

??

linjiawei

???

atiger

搂住，你这样的写法应该就可以的，我在2277上测试过，你是哪个版本呢？
type
  TMainForm = class(TForm)
    WebBrowser1: TWebBrowser;
    WebBrowser2: TWebBrowser;
    function WebBrowser1GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
  private
    {private declarations}

  public

    {public declarations}
  end;

implementation


function TMainForm.WebBrowser1GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
begin
  WebBrowser2.OnGetHostInfo := WebBrowser1GetHostInfo;
end;

linjiawei

这个问题没有了,和我导入的一个包有关系.但平台中这个事件根本不能用,什么都不写运行都报错:
(Delphi 中的EmbeddedWB没有问题)
Pas代码:
unit MainForm;

interface

uses
  Business.Forms,Business.System,Business.Data,Business.Model;

type
  TMainForm = class(TForm)
    WebBrowser2: TWebBrowser;
    procedure BizFormCreate(Sender: TObject);
    function WebBrowser2GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  WebBrowser2.Navigate('www.goolge.com');
end;

function TMainForm.WebBrowser2GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
begin
  //...
end;

end.

atiger

我在2277版本上测试了，没有出现搂住8楼的错误信息

linjiawei

是吗,我在X3的2611版本里测试也报一样的错!