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

Improved loadlibrary error info in Lazarus

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-09-12 14:43:28 +02:00
parent aba0ec399c
commit 66279dde42
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/uCEFApplicationCore.pas
View File

@@ -3806,9 +3806,7 @@ end;
function TCefApplicationCore.LoadCEFlibrary : boolean;
var
TempOldDir : string;
{$IFDEF MSWINDOWS}
TempError : DWORD;
{$ENDIF}
TempError : {$IFDEF MSWINDOWS}DWORD;{$ELSE}Integer;{$ENDIF}
begin
Result := False;
@@ -3847,7 +3845,14 @@ begin
'Error code : 0x' + inttohex(TempError, 8) + CRLF +
SysErrorMessage(TempError);
{$ELSE}
FLastErrorMessage := 'Error loading ' + LIBCEF_DLL;
{$IFDEF FPC}
TempError := GetLastOSError;
FLastErrorMessage := 'Error loading ' + LIBCEF_DLL + CRLF + CRLF +
'Error code : 0x' + inttohex(TempError, 8) + CRLF +
UTF8Decode(GetLoadErrorStr);
{$ELSE}
FLastErrorMessage := 'Error loading ' + LIBCEF_DLL;
{$ENDIF}
{$ENDIF}
ShowErrorMessageDlg(FLastErrorMessage);