Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 07:45:56 +01:00
Code Issues Actions Packages Projects Releases Wiki 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
Show Stats 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);

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 655,
"InternalVersion" : 656,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "128.4.9"
}