From 4b14d84ad012a23f769ce7c030ee8ab2c389108d Mon Sep 17 00:00:00 2001 From: tobigun Date: Wed, 22 Dec 2010 18:24:51 +0000 Subject: replaced "ffmpeg" with "opengl" git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2768 b956fd51-792f-4845-bead-9b4dfca2ff2c --- mediaplugin/src/media/UVideo.pas | 104 +++++++++++++++++++-------------------- 1 file changed, 52 insertions(+), 52 deletions(-) (limited to 'mediaplugin') diff --git a/mediaplugin/src/media/UVideo.pas b/mediaplugin/src/media/UVideo.pas index 8361e2a8..694549e9 100644 --- a/mediaplugin/src/media/UVideo.pas +++ b/mediaplugin/src/media/UVideo.pas @@ -78,12 +78,12 @@ const ReflectionH = 0.5; //reflection height (50%) type - IVideo_FFmpeg = interface (IVideo) + IVideo_OpenGL = interface (IVideo) ['{E640E130-C8C0-4399-AF02-67A3569313AB}'] function Open(const Decoder: TVideoDecodeStream): boolean; end; - TVideo_FFmpeg = class( TInterfacedObject, IVideo_FFmpeg ) + TVideo_OpenGL = class( TInterfacedObject, IVideo_OpenGL ) private fDecoder: TVideoDecodeStream; fPaused: boolean; //**< stream paused @@ -170,7 +170,7 @@ type procedure DrawReflection(); end; - TVideoPlayback_FFmpeg = class(TInterfacedObject, IMediaInterface, IVideoPlayback) + TVideoPlayback_OpenGL = class(TInterfacedObject, IMediaInterface, IVideoPlayback) public function GetName: String; function GetPriority: integer; @@ -182,32 +182,32 @@ type end; {*------------------------------------------------------------------------------ - * TVideoPlayback_ffmpeg + * TVideoPlayback_OpenGL *------------------------------------------------------------------------------} -function TVideoPlayback_FFmpeg.GetName: String; +function TVideoPlayback_OpenGL.GetName: String; begin Result := 'OpenGL_VideoPlayback'; end; -function TVideoPlayback_FFmpeg.GetPriority: integer; +function TVideoPlayback_OpenGL.GetPriority: integer; begin Result := 80; end; -function TVideoPlayback_FFmpeg.Init(): boolean; +function TVideoPlayback_OpenGL.Init(): boolean; begin Result := true; end; -function TVideoPlayback_FFmpeg.Finalize(): boolean; +function TVideoPlayback_OpenGL.Finalize(): boolean; begin Result := true; end; -function TVideoPlayback_FFmpeg.Open(const FileName: IPath): IVideo; +function TVideoPlayback_OpenGL.Open(const FileName: IPath): IVideo; var - Video: IVideo_FFmpeg; + Video: IVideo_OpenGL; Decoder: TVideoDecodeStream; begin Result := nil; @@ -216,7 +216,7 @@ begin if (Decoder = nil) then Exit; - Video := TVideo_FFmpeg.Create(); + Video := TVideo_OpenGL.Create(); if (not Video.Open(Decoder)) then begin Decoder.Free; @@ -227,21 +227,21 @@ begin end; -{* TVideo_FFmpeg *} +{* TVideo_OpenGL *} -constructor TVideo_FFmpeg.Create; +constructor TVideo_OpenGL.Create; begin glGenTextures(1, PGLuint(@fFrameTex)); Reset(); end; -destructor TVideo_FFmpeg.Destroy; +destructor TVideo_OpenGL.Destroy; begin Close(); glDeleteTextures(1, PGLuint(@fFrameTex)); end; -function TVideo_FFmpeg.Open(const Decoder: TVideoDecodeStream): boolean; +function TVideo_OpenGL.Open(const Decoder: TVideoDecodeStream): boolean; var glErr: GLenum; begin @@ -269,7 +269,7 @@ begin if (glErr <> GL_NO_ERROR) then begin fPboEnabled := false; - Log.LogError('PBO initialization failed: ' + gluErrorString(glErr), 'TVideo_FFmpeg.Open'); + Log.LogError('PBO initialization failed: ' + gluErrorString(glErr), 'TVideo_OpenGL.Open'); end; end; @@ -284,7 +284,7 @@ begin Result := true; end; -procedure TVideo_FFmpeg.Reset(); +procedure TVideo_OpenGL.Reset(); begin // close previously opened video Close(); @@ -313,7 +313,7 @@ begin end; -procedure TVideo_FFmpeg.Close; +procedure TVideo_OpenGL.Close; begin if (fDecoder <> nil) then begin @@ -325,7 +325,7 @@ begin glDeleteBuffersARB(1, @fPboId); end; -procedure TVideo_FFmpeg.GetFrame(Time: Extended); +procedure TVideo_OpenGL.GetFrame(Time: Extended); var glErr: GLenum; BufferPtr: PGLvoid; @@ -384,7 +384,7 @@ begin glErr := glGetError(); if (glErr <> GL_NO_ERROR) then - Log.LogError('PBO texture stream error: ' + gluErrorString(glErr), 'TVideo_FFmpeg.GetFrame'); + Log.LogError('PBO texture stream error: ' + gluErrorString(glErr), 'TVideo_OpenGL.GetFrame'); end; // reset to default @@ -397,12 +397,12 @@ begin {$IFDEF VideoBenchmark} Log.BenchmarkEnd(16); - Log.LogBenchmark('FFmpeg', 15); + Log.LogBenchmark('OpenGL', 15); Log.LogBenchmark('Texture', 16); {$ENDIF} end; -procedure TVideo_FFmpeg.GetVideoRect(var ScreenRect, TexRect: TRectCoords); +procedure TVideo_OpenGL.GetVideoRect(var ScreenRect, TexRect: TRectCoords); var ScreenAspect: double; // aspect of screen resolution ScaledVideoWidth, ScaledVideoHeight: double; @@ -461,7 +461,7 @@ begin TexRect.Lower := (fDecoder.GetFrameHeight() / fTexHeight) * fFrameRange.Lower; end; -procedure TVideo_FFmpeg.DrawBorders(ScreenRect: TRectCoords); +procedure TVideo_OpenGL.DrawBorders(ScreenRect: TRectCoords); procedure DrawRect(left, right, upper, lower: double); begin glColor4f(0, 0, 0, fAlpha); @@ -490,7 +490,7 @@ begin DrawRect(ScreenRect.Right, fPosX+fWidth, fPosY, fPosY+fHeight); end; -procedure TVideo_FFmpeg.DrawBordersReflected(ScreenRect: TRectCoords; AlphaUpper, AlphaLower: double); +procedure TVideo_OpenGL.DrawBordersReflected(ScreenRect: TRectCoords; AlphaUpper, AlphaLower: double); var rPosUpper, rPosLower: double; @@ -535,7 +535,7 @@ begin end; -procedure TVideo_FFmpeg.Draw(); +procedure TVideo_OpenGL.Draw(); var ScreenRect: TRectCoords; TexRect: TRectCoords; @@ -608,7 +608,7 @@ begin {$IFEND} end; -procedure TVideo_FFmpeg.DrawReflection(); +procedure TVideo_OpenGL.DrawReflection(); var ScreenRect: TRectCoords; TexRect: TRectCoords; @@ -696,7 +696,7 @@ begin glDisable(GL_SCISSOR_TEST); end; -procedure TVideo_FFmpeg.ShowDebugInfo(); +procedure TVideo_OpenGL.ShowDebugInfo(); begin {$IFDEF Info} if (fFrameTime+fFrameDuration < 0) then @@ -733,58 +733,58 @@ begin {$ENDIF} end; -procedure TVideo_FFmpeg.Play; +procedure TVideo_OpenGL.Play; begin end; -procedure TVideo_FFmpeg.Pause; +procedure TVideo_OpenGL.Pause; begin fPaused := not fPaused; end; -procedure TVideo_FFmpeg.Stop; +procedure TVideo_OpenGL.Stop; begin end; -procedure TVideo_FFmpeg.SetLoop(Enable: boolean); +procedure TVideo_OpenGL.SetLoop(Enable: boolean); begin fDecoder.SetLoop(Enable); end; -function TVideo_FFmpeg.GetLoop(): boolean; +function TVideo_OpenGL.GetLoop(): boolean; begin Result := fDecoder.GetLoop(); end; -procedure TVideo_FFmpeg.SetPosition(Time: real); +procedure TVideo_OpenGL.SetPosition(Time: real); begin fDecoder.SetPosition(Time); end; -function TVideo_FFmpeg.GetPosition: real; +function TVideo_OpenGL.GetPosition: real; begin Result := fDecoder.GetPosition(); end; -procedure TVideo_FFmpeg.SetScreen(Screen: integer); +procedure TVideo_OpenGL.SetScreen(Screen: integer); begin fScreen := Screen; end; -function TVideo_FFmpeg.GetScreen(): integer; +function TVideo_OpenGL.GetScreen(): integer; begin Result := fScreen; end; -procedure TVideo_FFmpeg.SetScreenPosition(X, Y, Z: double); +procedure TVideo_OpenGL.SetScreenPosition(X, Y, Z: double); begin fPosX := X; fPosY := Y; fPosZ := Z; end; -procedure TVideo_FFmpeg.GetScreenPosition(var X, Y, Z: double); +procedure TVideo_OpenGL.GetScreenPosition(var X, Y, Z: double); begin X := fPosX; Y := fPosY; @@ -792,58 +792,58 @@ begin end; -procedure TVideo_FFmpeg.SetWidth(Width: double); +procedure TVideo_OpenGL.SetWidth(Width: double); begin fWidth := Width; end; -function TVideo_FFmpeg.GetWidth(): double; +function TVideo_OpenGL.GetWidth(): double; begin Result := fWidth; end; -procedure TVideo_FFmpeg.SetHeight(Height: double); +procedure TVideo_OpenGL.SetHeight(Height: double); begin fHeight := Height; end; -function TVideo_FFmpeg.GetHeight(): double; +function TVideo_OpenGL.GetHeight(): double; begin Result := fHeight; end; -procedure TVideo_FFmpeg.SetFrameRange(Range: TRectCoords); +procedure TVideo_OpenGL.SetFrameRange(Range: TRectCoords); begin fFrameRange := Range; end; -function TVideo_FFmpeg.GetFrameRange(): TRectCoords; +function TVideo_OpenGL.GetFrameRange(): TRectCoords; begin Result := fFrameRange; end; -function TVideo_FFmpeg.GetFrameAspect(): real; +function TVideo_OpenGL.GetFrameAspect(): real; begin Result := fDecoder.GetFrameAspect(); end; -procedure TVideo_FFmpeg.SetAspectCorrection(AspectCorrection: TAspectCorrection); +procedure TVideo_OpenGL.SetAspectCorrection(AspectCorrection: TAspectCorrection); begin fAspectCorrection := AspectCorrection; end; -function TVideo_FFmpeg.GetAspectCorrection(): TAspectCorrection; +function TVideo_OpenGL.GetAspectCorrection(): TAspectCorrection; begin Result := fAspectCorrection; end; -procedure TVideo_FFmpeg.SetAlpha(Alpha: double); +procedure TVideo_OpenGL.SetAlpha(Alpha: double); begin fAlpha := Alpha; @@ -854,24 +854,24 @@ begin fAlpha := 0; end; -function TVideo_FFmpeg.GetAlpha(): double; +function TVideo_OpenGL.GetAlpha(): double; begin Result := fAlpha; end; -procedure TVideo_FFmpeg.SetReflectionSpacing(Spacing: double); +procedure TVideo_OpenGL.SetReflectionSpacing(Spacing: double); begin fReflectionSpacing := Spacing; end; -function TVideo_FFmpeg.GetReflectionSpacing(): double; +function TVideo_OpenGL.GetReflectionSpacing(): double; begin Result := fReflectionSpacing; end; initialization - MediaManager.Add(TVideoPlayback_FFmpeg.Create); + MediaManager.Add(TVideoPlayback_OpenGL.Create); end. -- cgit v1.2.3