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 1 Releases Activity

New function OutputDebugMessage in TCEFApplication to log messages replacing OutputDebugString

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-02-12 19:53:06 +01:00
parent c954cdf86c
commit 1ce14d8796
12 changed files with 347 additions and 392 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
source/uCEFX509CertPrincipal.pas
View File

@@ -79,7 +79,7 @@ uses
{$ELSE}
Windows, SysUtils,
{$ENDIF}
uCEFMiscFunctions, uCEFLibFunctions;
uCEFMiscFunctions, uCEFLibFunctions, uCEFApplication;
function TCefX509CertPrincipalRef.GetDisplayName: ustring;
begin
@@ -122,11 +122,8 @@ begin
end;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TCefX509CertPrincipalRef.GetStreetAddresses error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TCefX509CertPrincipalRef.GetStreetAddresses error: ' + e.Message);
end;
finally
if (TempList <> nil) then cef_string_list_free(TempList);
@@ -149,11 +146,8 @@ begin
end;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TCefX509CertPrincipalRef.GetOrganizationNames error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TCefX509CertPrincipalRef.GetOrganizationNames error: ' + e.Message);
end;
finally
if (TempList <> nil) then cef_string_list_free(TempList);
@@ -176,11 +170,8 @@ begin
end;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TCefX509CertPrincipalRef.GetOrganizationUnitNames error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TCefX509CertPrincipalRef.GetOrganizationUnitNames error: ' + e.Message);
end;
finally
if (TempList <> nil) then cef_string_list_free(TempList);
@@ -203,11 +194,8 @@ begin
end;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TCefX509CertPrincipalRef.GetDomainComponents error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TCefX509CertPrincipalRef.GetDomainComponents error: ' + e.Message);
end;
finally
if (TempList <> nil) then cef_string_list_free(TempList);