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 115.3.11

Browse Source
This commit is contained in:
salvadordf
2023-07-30 18:47:35 +02:00
parent 1aae8fcb16
commit 99ffca1375
22 changed files with 7655 additions and 911 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
source/uCEFX509CertPrincipal.pas
View File

@@ -64,10 +64,8 @@ type
function GetLocalityName: ustring;
function GetStateOrProvinceName: ustring;
function GetCountryName: ustring;
procedure GetStreetAddresses(const addresses: TStrings);
procedure GetOrganizationNames(const names: TStrings);
procedure GetOrganizationUnitNames(const names: TStrings);
procedure GetDomainComponents(const components: TStrings);
public
class function UnWrap(data: Pointer): ICefX509CertPrincipal;
@@ -108,18 +106,6 @@ begin
Result := CefStringFreeAndGet(PCefX509CertPrincipal(FData)^.get_country_name(PCefX509CertPrincipal(FData)));
end;
procedure TCefX509CertPrincipalRef.GetStreetAddresses(const addresses: TStrings);
var
TempSL : ICefStringList;
begin
if (addresses <> nil) then
begin
TempSL := TCefStringListOwn.Create;
PCefX509CertPrincipal(FData)^.get_street_addresses(PCefX509CertPrincipal(FData), TempSL.Handle);
TempSL.CopyToStrings(addresses);
end;
end;
procedure TCefX509CertPrincipalRef.GetOrganizationNames(const names: TStrings);
var
TempSL : ICefStringList;
@@ -144,18 +130,6 @@ begin
end;
end;
procedure TCefX509CertPrincipalRef.GetDomainComponents(const components: TStrings);
var
TempSL : ICefStringList;
begin
if (components <> nil) then
begin
TempSL := TCefStringListOwn.Create;
PCefX509CertPrincipal(FData)^.get_domain_components(PCefX509CertPrincipal(FData), TempSL.Handle);
TempSL.CopyToStrings(components);
end;
end;
class function TCefX509CertPrincipalRef.UnWrap(data: Pointer): ICefX509CertPrincipal;
begin
if (data <> nil) then