pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Added support for Lazarus/FPC (windows 32bit)

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-05-12 14:50:54 +02:00
parent 294a245250
commit dd5f7f42c4
220 changed files with 6385 additions and 4281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
source/uCEFCookieVisitor.pas
View File

@ -10,7 +10,7 @@
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2018 Salvador D�az Fau. All rights reserved.
// Copyright � 2018 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
@ -37,6 +37,10 @@
unit uCEFCookieVisitor;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
@ -86,21 +90,21 @@ begin
Result := Ord(True);
TempObject := CefGetObject(self);
if (cookie.has_expires <> 0) then
exp := CefTimeToDateTime(cookie.expires)
if (cookie^.has_expires <> 0) then
exp := CefTimeToDateTime(cookie^.expires)
else
exp := 0;
if (TempObject <> nil) and (TempObject is TCefCookieVisitorOwn) then
Result := Ord(TCefCookieVisitorOwn(TempObject).visit(CefString(@cookie.name),
CefString(@cookie.value),
CefString(@cookie.domain),
CefString(@cookie.path),
Boolean(cookie.secure),
Boolean(cookie.httponly),
Boolean(cookie.has_expires),
CefTimeToDateTime(cookie.creation),
CefTimeToDateTime(cookie.last_access),
Result := Ord(TCefCookieVisitorOwn(TempObject).visit(CefString(@cookie^.name),
CefString(@cookie^.value),
CefString(@cookie^.domain),
CefString(@cookie^.path),
Boolean(cookie^.secure),
Boolean(cookie^.httponly),
Boolean(cookie^.has_expires),
CefTimeToDateTime(cookie^.creation),
CefTimeToDateTime(cookie^.last_access),
exp,
count,
total,
@ -115,7 +119,7 @@ constructor TCefCookieVisitorOwn.Create;
begin
inherited CreateData(SizeOf(TCefCookieVisitor));
PCefCookieVisitor(FData)^.visit := cef_cookie_visitor_visit;
PCefCookieVisitor(FData)^.visit := {$IFDEF FPC}@{$ENDIF}cef_cookie_visitor_visit;
end;
function TCefCookieVisitorOwn.visit(const name, value, domain, path: ustring;