pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3325.1755.g7c74b17

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-29 20:02:04 +02:00
parent 665957e132
commit 6fa50706a1
133 changed files with 7633 additions and 6008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFDomVisitor.pas
View File

@@ -86,8 +86,13 @@ uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFTypes, uCEFDomDocument;
procedure cef_dom_visitor_visite(self: PCefDomVisitor; document: PCefDomDocument); stdcall;
var
TempObject : TObject;
begin
TCefDomVisitorOwn(CefGetObject(self)).visit(TCefDomDocumentRef.UnWrap(document));
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefDomVisitorOwn) then
TCefDomVisitorOwn(TempObject).visit(TCefDomDocumentRef.UnWrap(document));
end;
// TCefDomVisitorOwn
@@ -96,7 +101,7 @@ constructor TCefDomVisitorOwn.Create;
begin
inherited CreateData(SizeOf(TCefDomVisitor));
with PCefDomVisitor(FData)^ do visit := cef_dom_visitor_visite;
PCefDomVisitor(FData).visit := cef_dom_visitor_visite;
end;
procedure TCefDomVisitorOwn.visit(const document: ICefDomDocument);