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

31
source/uCEFCookieManager.pas
View File

@@ -85,7 +85,7 @@ implementation
uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFCompletionCallback, uCEFDeleteCookiesCallback,
uCEFSetCookieCallback, uCEFCookieVisitor;
uCEFSetCookieCallback, uCEFCookieVisitor, uCEFStringList;
class function TCefCookieManagerRef.New(const path : ustring;
persistSessionCookies : Boolean;
@@ -204,32 +204,17 @@ end;
procedure TCefCookieManagerRef.SetSupportedSchemes(const schemes: TStrings; const callback: ICefCompletionCallback);
var
TempSL : TCefStringList;
i : Integer;
TempString : TCefString;
TempSL : ICefStringList;
begin
TempSL := nil;
try
try
if (schemes <> nil) and (schemes.Count > 0) then
begin
TempSL := cef_string_list_alloc();
TempSL := TCefStringListOwn.Create;
TempSL.AddStrings(schemes);
for i := 0 to schemes.Count - 1 do
begin
TempString := CefString(schemes[i]);
cef_string_list_append(TempSL, @TempString);
end;
PCefCookieManager(FData).set_supported_schemes(PCefCookieManager(FData), TempSL, CefGetData(callback));
end;
except
on e : exception do
if CustomExceptionHandler('TCefCookieManagerRef.SetSupportedSchemes', e) then raise;
end;
PCefCookieManager(FData).set_supported_schemes(PCefCookieManager(FData),
TempSL.Handle,
CefGetData(callback));
finally
if (TempSL <> nil) then cef_string_list_free(TempSL);
TempSL := nil;
end;
end;