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

Update to CEF 108.4.13

Browse Source
This commit is contained in:
salvadordf
2022-12-16 11:29:15 +01:00
parent a0b2a1a911
commit a20f854950
44 changed files with 1266 additions and 1252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/uCEFMiscFunctions.pas
View File

@ -244,6 +244,7 @@ function FileVersionInfoToString(const aVersionInfo : TFileVersionInfo) : string
function CheckFilesExist(var aList : TStringList; var aMissingFiles : string) : boolean;
function Is32BitProcess : boolean;
function CefResolveUrl(const base_url, relative_url: ustring): ustring;
function CefParseUrl(const url: ustring; var parts: TUrlParts): Boolean;
function CefCreateUrl(var parts: TUrlParts): ustring;
function CefFormatUrlForSecurityDisplay(const originUrl: string): string;
@ -1778,6 +1779,24 @@ begin
{$ENDIF}
end;
function CefResolveUrl(const base_url, relative_url: ustring): ustring;
var
TempBaseURL, TempRelativeURL, TempResolvedURL : TCefString;
begin
Result := '';
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
begin
TempBaseURL := CefString(base_url);
TempRelativeURL := CefString(relative_url);
CefStringInitialize(@TempResolvedURL);
if (cef_resolve_url(@TempBaseURL, @TempRelativeURL, @TempResolvedURL) <> 0) then
Result := CefStringClearAndGet(@TempResolvedURL);
end;
end;
function CefParseUrl(const url: ustring; var parts: TUrlParts): Boolean;
var
TempURL : TCefString;