You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-06-12 22:07:39 +02:00
Added support for Lazarus/FPC (windows 32bit)
This commit is contained in:
Salvador Díaz Fau
@ -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 uCEFRequestContext;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE OBJFPC}{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF CPUX64}
|
||||
{$ALIGN ON}
|
||||
{$MINENUMSIZE 4}
|
||||
@ -98,17 +102,17 @@ uses
|
||||
|
||||
function TCefRequestContextRef.ClearSchemeHandlerFactories: Boolean;
|
||||
begin
|
||||
Result := PCefRequestContext(FData).clear_scheme_handler_factories(FData) <> 0;
|
||||
Result := PCefRequestContext(FData)^.clear_scheme_handler_factories(PCefRequestContext(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetCachePath: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefRequestContext(FData).get_cache_path(FData));
|
||||
Result := CefStringFreeAndGet(PCefRequestContext(FData)^.get_cache_path(PCefRequestContext(FData)));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetDefaultCookieManager(const callback: ICefCompletionCallback): ICefCookieManager;
|
||||
begin
|
||||
Result := TCefCookieManagerRef.UnWrap(PCefRequestContext(FData).get_default_cookie_manager(FData, CefGetData(callback)));
|
||||
Result := TCefCookieManagerRef.UnWrap(PCefRequestContext(FData)^.get_default_cookie_manager(PCefRequestContext(FData), CefGetData(callback)));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetDefaultCookieManagerProc(const callback: TCefCompletionCallbackProc): ICefCookieManager;
|
||||
@ -118,7 +122,7 @@ end;
|
||||
|
||||
function TCefRequestContextRef.GetHandler: ICefRequestContextHandler;
|
||||
begin
|
||||
Result := TCefRequestContextHandlerRef.UnWrap(PCefRequestContext(FData).get_handler(FData));
|
||||
Result := TCefRequestContextHandlerRef.UnWrap(PCefRequestContext(FData)^.get_handler(PCefRequestContext(FData)));
|
||||
end;
|
||||
|
||||
class function TCefRequestContextRef.Global: ICefRequestContext;
|
||||
@ -128,17 +132,17 @@ end;
|
||||
|
||||
function TCefRequestContextRef.IsGlobal: Boolean;
|
||||
begin
|
||||
Result := PCefRequestContext(FData).is_global(FData) <> 0;
|
||||
Result := PCefRequestContext(FData)^.is_global(PCefRequestContext(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.IsSame(const other: ICefRequestContext): Boolean;
|
||||
begin
|
||||
Result := PCefRequestContext(FData).is_same(FData, CefGetData(other)) <> 0;
|
||||
Result := PCefRequestContext(FData)^.is_same(PCefRequestContext(FData), CefGetData(other)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.IsSharingWith(const other: ICefRequestContext): Boolean;
|
||||
begin
|
||||
Result := PCefRequestContext(FData).is_sharing_with(FData, CefGetData(other)) <> 0;
|
||||
Result := PCefRequestContext(FData)^.is_sharing_with(PCefRequestContext(FData), CefGetData(other)) <> 0;
|
||||
end;
|
||||
|
||||
class function TCefRequestContextRef.New(const settings: PCefRequestContextSettings;
|
||||
@ -170,67 +174,67 @@ end;
|
||||
|
||||
procedure TCefRequestContextRef.PurgePluginListCache(reloadPages: Boolean);
|
||||
begin
|
||||
PCefRequestContext(FData).purge_plugin_list_cache(FData, Ord(reloadPages));
|
||||
PCefRequestContext(FData)^.purge_plugin_list_cache(PCefRequestContext(FData), Ord(reloadPages));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.HasPreference(const name: ustring): Boolean;
|
||||
var
|
||||
n : TCefString;
|
||||
TempName : TCefString;
|
||||
begin
|
||||
n := CefString(name);
|
||||
Result := PCefRequestContext(FData).has_preference(FData, @n) <> 0;
|
||||
TempName := CefString(name);
|
||||
Result := PCefRequestContext(FData)^.has_preference(PCefRequestContext(FData), @TempName) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetPreference(const name: ustring): ICefValue;
|
||||
var
|
||||
n : TCefString;
|
||||
TempName : TCefString;
|
||||
begin
|
||||
n := CefString(name);
|
||||
Result := TCefValueRef.UnWrap(PCefRequestContext(FData).get_preference(FData, @n));
|
||||
TempName := CefString(name);
|
||||
Result := TCefValueRef.UnWrap(PCefRequestContext(FData)^.get_preference(PCefRequestContext(FData), @TempName));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetAllPreferences(includeDefaults: Boolean): ICefDictionaryValue;
|
||||
begin
|
||||
Result := TCefDictionaryValueRef.UnWrap(PCefRequestContext(FData).get_all_preferences(FData, Ord(includeDefaults)));
|
||||
Result := TCefDictionaryValueRef.UnWrap(PCefRequestContext(FData)^.get_all_preferences(PCefRequestContext(FData), Ord(includeDefaults)));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.CanSetPreference(const name: ustring): Boolean;
|
||||
var
|
||||
n: TCefString;
|
||||
TempName : TCefString;
|
||||
begin
|
||||
n := CefString(name);
|
||||
Result := PCefRequestContext(FData).can_set_preference(FData, @n) <> 0;
|
||||
TempName := CefString(name);
|
||||
Result := PCefRequestContext(FData)^.can_set_preference(PCefRequestContext(FData), @TempName) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.SetPreference(const name : ustring;
|
||||
const value : ICefValue;
|
||||
out error : ustring): Boolean;
|
||||
var
|
||||
n, e: TCefString;
|
||||
TempName, TempError : TCefString;
|
||||
begin
|
||||
n := CefString(name);
|
||||
FillChar(e, SizeOf(e), 0);
|
||||
Result := PCefRequestContext(FData).set_preference(FData, @n, CefGetData(value), @e) <> 0;
|
||||
error := CefString(@e);
|
||||
TempName := CefString(name);
|
||||
FillChar(TempError, SizeOf(TempError), 0);
|
||||
Result := PCefRequestContext(FData)^.set_preference(PCefRequestContext(FData), @TempName, CefGetData(value), @TempError) <> 0;
|
||||
error := CefString(@TempError);
|
||||
end;
|
||||
|
||||
procedure TCefRequestContextRef.ClearCertificateExceptions(const callback: ICefCompletionCallback);
|
||||
begin
|
||||
PCefRequestContext(FData).clear_certificate_exceptions(FData, CefGetData(callback));
|
||||
PCefRequestContext(FData)^.clear_certificate_exceptions(PCefRequestContext(FData), CefGetData(callback));
|
||||
end;
|
||||
|
||||
procedure TCefRequestContextRef.CloseAllConnections(const callback: ICefCompletionCallback);
|
||||
begin
|
||||
PCefRequestContext(FData).close_all_connections(FData, CefGetData(callback));
|
||||
PCefRequestContext(FData)^.close_all_connections(PCefRequestContext(FData), CefGetData(callback));
|
||||
end;
|
||||
|
||||
procedure TCefRequestContextRef.ResolveHost(const origin : ustring;
|
||||
const callback : ICefResolveCallback);
|
||||
var
|
||||
o: TCefString;
|
||||
TempOrigin : TCefString;
|
||||
begin
|
||||
o := CefString(origin);
|
||||
PCefRequestContext(FData).resolve_host(FData, @o, CefGetData(callback));
|
||||
TempOrigin := CefString(origin);
|
||||
PCefRequestContext(FData)^.resolve_host(PCefRequestContext(FData), @TempOrigin, CefGetData(callback));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.ResolveHostCached(const origin : ustring;
|
||||
@ -241,7 +245,7 @@ var
|
||||
begin
|
||||
TempSL := TCefStringListOwn.Create;
|
||||
TempOrigin := CefString(origin);
|
||||
Result := PCefRequestContext(FData).resolve_host_cached(FData, @TempOrigin, TempSL.Handle);
|
||||
Result := PCefRequestContext(FData)^.resolve_host_cached(PCefRequestContext(FData), @TempOrigin, TempSL.Handle);
|
||||
TempSL.CopyToStrings(resolvedIps);
|
||||
end;
|
||||
|
||||
@ -250,7 +254,7 @@ var
|
||||
TempDir : TCefString;
|
||||
begin
|
||||
TempDir := CefString(root_directory);
|
||||
PCefRequestContext(FData).load_extension(FData, @TempDir, CefGetData(manifest), CefGetData(handler));
|
||||
PCefRequestContext(FData)^.load_extension(PCefRequestContext(FData), @TempDir, CefGetData(manifest), CefGetData(handler));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.DidLoadExtension(const extension_id: ustring): boolean;
|
||||
@ -258,7 +262,7 @@ var
|
||||
TempID : TCefString;
|
||||
begin
|
||||
TempID := CefString(extension_id);
|
||||
Result := PCefRequestContext(FData).did_load_extension(FData, @TempID) <> 0;
|
||||
Result := PCefRequestContext(FData)^.did_load_extension(PCefRequestContext(FData), @TempID) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.HasExtension(const extension_id: ustring): boolean;
|
||||
@ -266,7 +270,7 @@ var
|
||||
TempID : TCefString;
|
||||
begin
|
||||
TempID := CefString(extension_id);
|
||||
Result := PCefRequestContext(FData).has_extension(FData, @TempID) <> 0;
|
||||
Result := PCefRequestContext(FData)^.has_extension(PCefRequestContext(FData), @TempID) <> 0;
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.GetExtensions(const extension_ids: TStringList): boolean;
|
||||
@ -276,7 +280,7 @@ begin
|
||||
Result := False;
|
||||
TempSL := TCefStringListOwn.Create;
|
||||
|
||||
if (PCefRequestContext(FData).get_extensions(PCefRequestContext(FData), TempSL.Handle) <> 0) then
|
||||
if (PCefRequestContext(FData)^.get_extensions(PCefRequestContext(FData), TempSL.Handle) <> 0) then
|
||||
begin
|
||||
TempSL.CopyToStrings(extension_ids);
|
||||
Result := True;
|
||||
@ -288,18 +292,21 @@ var
|
||||
TempID : TCefString;
|
||||
begin
|
||||
TempID := CefString(extension_id);
|
||||
Result := TCefExtensionRef.UnWrap(PCefRequestContext(FData).get_extension(FData, @TempID));
|
||||
Result := TCefExtensionRef.UnWrap(PCefRequestContext(FData)^.get_extension(PCefRequestContext(FData), @TempID));
|
||||
end;
|
||||
|
||||
function TCefRequestContextRef.RegisterSchemeHandlerFactory(const schemeName : ustring;
|
||||
const domainName : ustring;
|
||||
const factory : ICefSchemeHandlerFactory): Boolean;
|
||||
var
|
||||
s, d: TCefString;
|
||||
TempScheme, TempDomain : TCefString;
|
||||
begin
|
||||
s := CefString(schemeName);
|
||||
d := CefString(domainName);
|
||||
Result := PCefRequestContext(FData).register_scheme_handler_factory(FData, @s, @d, CefGetData(factory)) <> 0;
|
||||
TempScheme := CefString(schemeName);
|
||||
TempDomain := CefString(domainName);
|
||||
Result := PCefRequestContext(FData)^.register_scheme_handler_factory(PCefRequestContext(FData),
|
||||
@TempScheme,
|
||||
@TempDomain,
|
||||
CefGetData(factory)) <> 0;
|
||||
end;
|
||||
|
||||
class function TCefRequestContextRef.Shared(const other : ICefRequestContext;
|
||||
|
||||
Reference in New Issue
Block a user