mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-15 15:55:56 +01:00
ca8bc9dff4
Added the PDS file to extract the HTML Help files using PasDoc Added more XML documentation Fixed some XML errors. Removed the license copy from the pas units. Updated the LICENSE.md file
141 lines
4.3 KiB
ObjectPascal
141 lines
4.3 KiB
ObjectPascal
unit uCEFMediaSinkDeviceInfoCallback;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE OBJFPC}{$H+}
|
|
{$ENDIF}
|
|
|
|
{$I cef.inc}
|
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
{$MINENUMSIZE 4}
|
|
|
|
interface
|
|
|
|
uses
|
|
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
|
|
|
|
type
|
|
TCefMediaSinkDeviceInfoCallbackOwn = class(TCefBaseRefCountedOwn, ICefMediaSinkDeviceInfoCallback)
|
|
protected
|
|
procedure OnMediaSinkDeviceInfo(const ip_address: ustring; port: integer; const model_name: ustring); virtual; abstract;
|
|
public
|
|
constructor Create; virtual;
|
|
end;
|
|
|
|
TCefFastMediaSinkDeviceInfoCallback = class(TCefMediaSinkDeviceInfoCallbackOwn)
|
|
protected
|
|
FCallback: TCefMediaSinkDeviceInfoCallbackProc;
|
|
|
|
procedure OnMediaSinkDeviceInfo(const ip_address: ustring; port: integer; const model_name: ustring); override;
|
|
public
|
|
constructor Create(const callback: TCefMediaSinkDeviceInfoCallbackProc); reintroduce;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
TCefCustomMediaSinkDeviceInfoCallback = class(TCefMediaSinkDeviceInfoCallbackOwn)
|
|
protected
|
|
FEvents : Pointer;
|
|
|
|
procedure OnMediaSinkDeviceInfo(const ip_address: ustring; port: integer; const model_name: ustring); override;
|
|
public
|
|
constructor Create(const aEvents : IChromiumEvents); reintroduce;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.SysUtils,
|
|
{$ELSE}
|
|
SysUtils,
|
|
{$ENDIF}
|
|
uCEFMiscFunctions, uCEFLibFunctions, uCEFMediaSink;
|
|
|
|
procedure cef_media_sink_device_info_callback_on_media_sink_device_info(self : PCefMediaSinkDeviceInfoCallback;
|
|
device_info : PCefMediaSinkDeviceInfo); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefMediaSinkDeviceInfoCallbackOwn) then
|
|
TCefMediaSinkDeviceInfoCallbackOwn(TempObject).OnMediaSinkDeviceInfo(CefString(@device_info^.ip_address),
|
|
device_info^.port,
|
|
CefString(@device_info^.model_name));
|
|
end;
|
|
|
|
|
|
// ****************************************************************
|
|
// ************** TCefMediaSinkDeviceInfoCallbackOwn **************
|
|
// ****************************************************************
|
|
|
|
constructor TCefMediaSinkDeviceInfoCallbackOwn.Create;
|
|
begin
|
|
inherited CreateData(SizeOf(TCefMediaSinkDeviceInfoCallback));
|
|
|
|
PCefMediaSinkDeviceInfoCallback(FData)^.on_media_sink_device_info :=
|
|
{$IFDEF FPC}@{$ENDIF}cef_media_sink_device_info_callback_on_media_sink_device_info;
|
|
end;
|
|
|
|
|
|
// *****************************************************************
|
|
// ************** TCefFastMediaSinkDeviceInfoCallback **************
|
|
// *****************************************************************
|
|
|
|
constructor TCefFastMediaSinkDeviceInfoCallback.Create(const callback: TCefMediaSinkDeviceInfoCallbackProc);
|
|
begin
|
|
inherited Create;
|
|
|
|
FCallback := callback;
|
|
end;
|
|
|
|
procedure TCefFastMediaSinkDeviceInfoCallback.OnMediaSinkDeviceInfo(const ip_address: ustring; port: integer; const model_name: ustring);
|
|
begin
|
|
if assigned(FCallback) then
|
|
FCallback(ip_address, port, model_name);
|
|
end;
|
|
|
|
destructor TCefFastMediaSinkDeviceInfoCallback.Destroy;
|
|
begin
|
|
FCallback := nil;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
|
|
// *******************************************************************
|
|
// ************** TCefCustomMediaSinkDeviceInfoCallback **************
|
|
// *******************************************************************
|
|
|
|
constructor TCefCustomMediaSinkDeviceInfoCallback.Create(const aEvents : IChromiumEvents);
|
|
begin
|
|
inherited Create;
|
|
|
|
FEvents := Pointer(aEvents);
|
|
end;
|
|
|
|
destructor TCefCustomMediaSinkDeviceInfoCallback.Destroy;
|
|
begin
|
|
FEvents := nil;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TCefCustomMediaSinkDeviceInfoCallback.OnMediaSinkDeviceInfo(const ip_address: ustring; port: integer; const model_name: ustring);
|
|
begin
|
|
try
|
|
try
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnMediaSinkDeviceInfo(ip_address, port, model_name);
|
|
except
|
|
on e : exception do
|
|
if CustomExceptionHandler('TCefCustomMediaSinkDeviceInfoCallback.OnMediaSinkDeviceInfo', e) then raise;
|
|
end;
|
|
finally
|
|
FEvents := nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|