paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 00:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Complete HTMLVideoElement

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-02-28 15:41:43 +01:00
parent 6b403cd949
commit 1711137b87
1 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
packages/rtl/src/web.pas
View File

@ -3281,7 +3281,63 @@ Type
end;
TJSVideoFrameMetaData = class external name 'Object' (TJSObject)
expectedDisplayTime : TJSDOMHighResTimeStamp;
height : NativeInt;
mediaTime : NativeInt;
presentationTime : TJSDOMHighResTimeStamp;
presentedFrames : NativeInt;
processingDuration : NativeInt;
width : NativeInt;
// WebRTC only
captureTime : TJSDOMHighResTimeStamp;
receiveTime : TJSDOMHighResTimeStamp;
rtpTimestamp : NativeInt;
end;
{ TJSHTMLVideoElement }
{ TJSPictureInPictureWindow }
TJSPictureInPictureWindow = class external name 'PictureInPictureWindow' (TJSEventTarget)
private
FHeigth: NativeInt; external name 'height';
FWidth: NativeInt; external name 'width';
Public
property height : NativeInt read FHeigth;
property width : NativeInt read FWidth;
end;
{ TJSVideoPlaybackQuality }
TJSVideoPlaybackQuality = class external name 'VideoPlaybackQuality' (TJSObject)
private
FCreationTime: TJSDOMHighResTimeStamp; external name 'creationTime';
FdroppedVideoFrames: NativeInt; external name 'droppedVideoFrames';
FtotalVideoFrames: NativeInt; external name 'totalVideoFrames';
Public
property creationTime : TJSDOMHighResTimeStamp Read FCreationTime;
property droppedVideoFrames : NativeInt Read FdroppedVideoFrames;
property totalVideoFrames : NativeInt Read FtotalVideoFrames;
end;
TRequestVideoFrameCallback = reference to procedure(aNow : TJSDOMHighResTimeStamp; metaData : TJSVideoFrameMetaData);
TJSHTMLVideoElement = Class external name 'HTMLVideoElement' (TJSHTMLMediaElement)
private
FvideoHeight: NativeInt; external name 'videoHeight';
FvideoWidth: NativeInt; external name 'videoWidth';
public
disablePictureInPicture : boolean;
height : NativeInt;
width : NativeInt;
poster : string;
procedure cancelVideoFrameCallback(id : NativeInt);
function getVideoPlaybackQuality : TJSVideoPlaybackQuality;
function requestVideoFrameCallback(aCallback : TRequestVideoFrameCallback) : NativeInt;
function requestPictureInPicture : TJSPictureInPictureWindow; async;
property videoWidth : NativeInt read FvideoWidth;
property videoHeight : NativeInt read FvideoHeight;
end;
{ TJSHTMLStyleElement }