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

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

14
source/uCEFClient.pas
View File

@ -530,11 +530,8 @@ begin
if (GlobalCEFApp <> nil) then Result := GlobalCEFApp.MultiThreadedMessageLoop;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TVCLClientHandler.GetMultithreadApp error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TVCLClientHandler.GetMultithreadApp error: ' + e.Message);
end;
end;
@ -546,11 +543,8 @@ begin
if (GlobalCEFApp <> nil) then Result := GlobalCEFApp.ExternalMessagePump;
except
on e : exception do
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar('TVCLClientHandler.GetExternalMessagePump error: ' + e.Message + chr(0)));
{$ENDIF}
end;
if (GlobalCEFApp <> nil) then
GlobalCEFApp.OutputDebugMessage('TVCLClientHandler.GetExternalMessagePump error: ' + e.Message);
end;
end;