2023-08-09 19:38:57 +02:00
|
|
|
unit uCEFMediaAccessHandler;
|
2022-08-06 12:00:28 +02:00
|
|
|
|
|
|
|
|
{$IFDEF FPC}
|
|
|
|
|
{$MODE OBJFPC}{$H+}
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
|
|
{$I cef.inc}
|
|
|
|
|
|
|
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
|
|
|
{$MINENUMSIZE 4}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
TCefMediaAccessHandlerOwn = class(TCefBaseRefCountedOwn, ICefMediaAccessHandler)
|
|
|
|
|
protected
|
|
|
|
|
function OnRequestMediaAccessPermission(const browser: ICefBrowser; const frame: ICefFrame; const requesting_url: ustring; requested_permissions: TCefMediaAccessPermissionTypes; const callback: ICefMediaAccessCallback): boolean;
|
|
|
|
|
|
|
|
|
|
procedure RemoveReferences; virtual;
|
|
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create; virtual;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
{$IFDEF DELPHI16_UP}
|
|
|
|
|
System.SysUtils,
|
|
|
|
|
{$ELSE}
|
|
|
|
|
SysUtils,
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFMediaAccessCallback;
|
|
|
|
|
|
|
|
|
|
function cef_media_access_handler_on_request_media_access_permission( self : PCefMediaAccessHandler;
|
|
|
|
|
browser : PCefBrowser;
|
|
|
|
|
frame : PCefFrame;
|
|
|
|
|
const requesting_url : PCefString;
|
|
|
|
|
requested_permissions : integer;
|
|
|
|
|
callback : PCefMediaAccessCallback): integer; stdcall;
|
|
|
|
|
var
|
|
|
|
|
TempObject : TObject;
|
|
|
|
|
begin
|
|
|
|
|
Result := Ord(False);
|
|
|
|
|
TempObject := CefGetObject(self);
|
|
|
|
|
|
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefMediaAccessHandlerOwn) then
|
|
|
|
|
Result := Ord(TCefMediaAccessHandlerOwn(TempObject).OnRequestMediaAccessPermission(TCefBrowserRef.UnWrap(browser),
|
|
|
|
|
TCefFrameRef.UnWrap(frame),
|
|
|
|
|
CefString(requesting_url),
|
|
|
|
|
requested_permissions,
|
|
|
|
|
TCefMediaAccessCallbackRef.UnWrap(callback)));
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
constructor TCefMediaAccessHandlerOwn.Create;
|
|
|
|
|
begin
|
|
|
|
|
inherited CreateData(SizeOf(TCefMediaAccessHandler));
|
|
|
|
|
|
|
|
|
|
with PCefMediaAccessHandler(FData)^ do
|
|
|
|
|
on_request_media_access_permission := {$IFDEF FPC}@{$ENDIF}cef_media_access_handler_on_request_media_access_permission;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TCefMediaAccessHandlerOwn.OnRequestMediaAccessPermission(const browser : ICefBrowser;
|
|
|
|
|
const frame : ICefFrame;
|
|
|
|
|
const requesting_url : ustring;
|
|
|
|
|
requested_permissions : TCefMediaAccessPermissionTypes;
|
|
|
|
|
const callback : ICefMediaAccessCallback): boolean;
|
|
|
|
|
begin
|
|
|
|
|
Result := False;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TCefMediaAccessHandlerOwn.RemoveReferences;
|
|
|
|
|
begin
|
|
|
|
|
//
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
