aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UVideo.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/UVideo.pas')
-rw-r--r--Game/Code/Classes/UVideo.pas18
1 files changed, 4 insertions, 14 deletions
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index 62351e2d..644c62a8 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -161,7 +161,7 @@ begin
writeln( ' aFormatCtx.nb_streams : ' + inttostr( aFormatCtx.nb_streams ) );
writeln( ' length( aFormatCtx.streams ) : ' + inttostr( length(aFormatCtx.streams) ) );
-
+
i := 0;
while ( i < aFormatCtx.nb_streams ) do
// while ( i < length(aFormatCtx.streams)-1 ) do
@@ -415,22 +415,15 @@ end;
constructor TVideoPlayback_ffmpeg.create();
begin
- writeln( 'UVideo_FFMpeg - TVideoPlayback_ffmpeg.create()' );
-
- writeln( 'UVideo_FFMpeg - av_register_all' );
av_register_all;
fVideoOpened := False;
fVideoPaused := False;
-
end;
procedure TVideoPlayback_ffmpeg.init();
begin
- writeln( 'UVideo_FFMpeg - glGenTextures(1, PglUint(@fVideoTex))' );
glGenTextures(1, PglUint(@fVideoTex));
-
- writeln( 'UVideo_FFMpeg - SetLength(fTexData,0)' );
SetLength(fTexData,0);
end;
@@ -453,10 +446,10 @@ begin
TimeDifference := 0;
VideoFormatContext := 0;
- writeln( aFileName );
-
+// writeln( aFileName );
+
errnum := av_open_input_file(VideoFormatContext, pchar( aFileName ), Nil, 0, Nil);
- writeln( 'Errnum : ' +inttostr( errnum ));
+// writeln( 'Errnum : ' +inttostr( errnum ));
if(errnum <> 0) then
begin
{$ifdef DebugDisplay}
@@ -684,11 +677,8 @@ end;
initialization
singleton_VideoFFMpeg := TVideoPlayback_ffmpeg.create();
-
- writeln( 'UVideo_FFMpeg - Register Playback' );
AudioManager.add( singleton_VideoFFMpeg );
-
finalization
AudioManager.Remove( singleton_VideoFFMpeg );