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

Update to CEF 81.2.19

Browse Source
This commit is contained in:
Salvador Díaz Fau
2020-04-21 13:27:34 +02:00
parent 9a0c782064
commit dce556683a
18 changed files with 1315 additions and 1229 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/uCEFMediaObserver.pas
View File

@@ -198,17 +198,25 @@ procedure cef_media_observer_on_route_message_received( self : PCef
message_size : NativeUInt); stdcall;
var
TempObject : TObject;
TempMessage : Ansistring;
TempAnsiMsg : Ansistring;
TempMsg : ustring;
begin
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefMediaObserverOwn) then
begin
if (message_size > 0) and (message_ <> nil) then
SetString(TempMessage, PAnsiChar(message_), message_size);
begin
SetString(TempAnsiMsg, PAnsiChar(message_), message_size);
{$IFDEF DELPHI12_UP}
TempMsg := Utf8ToString(TempAnsiMsg);
{$ELSE}
TempMsg := Utf8Decode(TempAnsiMsg);
{$ENDIF}
end;
TCefMediaObserverOwn(TempObject).OnRouteMessageReceived(TCefMediaRouteRef.UnWrap(route),
ustring(TempMessage));
TempMsg);
end;
end;