我在Delphi XE7中使用以下代码在DCEF3中获取帧源:
procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer);
var CefStringVisitor:ICefStringVisitor;
begin
CefStringVisitor := TCefFastStringVisitor.Create(CallbackSource); //<--Error here
frame.GetSource(CefStringVisitor);
end;
procedure TForm1.CallbackSource(const str: ustring);
begin
//Do some work
end;
我将我的项目迁移到Delphi XE 10.1 Berlin,现在相同的代码不起作用。发生以下错误:
不兼容的类型:'常规程序和方法指针',
在以下代码段中:
CefStringVisitor := TCefFastStringVisitor.Create(CallbackSource)