pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Catch date conversion exceptions

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-09-18 16:19:21 +02:00
parent 833d50134a
commit 54a88d04fa
1 changed files with 54 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/uCEFMiscFunctions.pas
View File

@ -420,18 +420,32 @@ function CefTimeToDateTime(const dt: TCefTime): TDateTime;
var
TempTime : TSystemTime;
begin
Result := 0;
try
TempTime := CefTimeToSystemTime(dt);
SystemTimeToTzSpecificLocalTime(nil, @TempTime, @TempTime);
Result := SystemTimeToDateTime(TempTime);
except
on e : exception do
if CustomExceptionHandler('CefTimeToDateTime', e) then raise;
end;
end;
function DateTimeToCefTime(dt: TDateTime): TCefTime;
var
TempTime : TSystemTime;
begin
FillChar(Result, SizeOf(TCefTime), 0);
try
DateTimeToSystemTime(dt, TempTime);
TzSpecificLocalTimeToSystemTime(nil, @TempTime, @TempTime);
Result := SystemTimeToCefTime(TempTime);
except
on e : exception do
if CustomExceptionHandler('DateTimeToCefTime', e) then raise;
end;
end;
function cef_string_wide_copy(const src: PWideChar; src_len: NativeUInt; output: PCefStringWide): Integer;