Home

Add

Edit

Without Linenumbers

Code in Textfield


tpm@lara:/media/data20_md0/Projekte/freeBASIC/grafik/evicut/V1_00$ fbc test.bas && ./test

WARNING: OUTPUT FILE FORMAT IS _AVI_. See -of help.
!!!! MEncoder dev-SVN-r26940 (C) 2000-2008 MPlayer Team
!!!! CPU: Intel(R) Pentium(R) 4 CPU 3.60GHz (Family: 15, Model: 6, Stepping: 4)
!!!! CPUflags: Type: 15 MMX: 1 MMX2: 1 3DNow: 0 3DNow2: 0 SSE: 1 SSE2: 1
!!!! Compiled with runtime CPU detection.
!!!! success: format: 0 data: 0x0 - 0xa097f0b
!!!! libavformat file format detected.
!!!! [lavf] Video stream found, -vid 0
!!!! VIDEO: [avc1] 1280x720 24bpp 50.000 fps 0.0 kbps ( 0.0 kbyte/s)
!!!! [V] filefmt:44 fourcc:0x31637661 size:1280x720 fps:50.000 ftime:=0.0200
!!!! videocodec: framecopy (1280x720 24bpp fourcc=31637661)
!!!! Writing header...
!!!! ODML: Aspect information not (yet?) available or unspecified, not writing vprp header.
!!!! Writing header...
!!!! ODML: Aspect information not (yet?) available or unspecified, not writing vprp header.
Pos: 3.5s 173f ( 6%) 42.35fps Trem: 0min 161mb A-V:0.000 [27023:0].000 [0:0]
Pos: 13.7s 684f (28%) 46.36fps Trem: 0min 160mb A-V:0.000 [28232:0].000 [27090:0]

tpm@lara:/media/data20_md0/Projekte/freeBASIC/grafik/evicut/V1_00$




  1. Dim TIn As String = "/media/data20_md0/Projekte/freeBASIC/grafik/evicut/mvi_4830.mov"
    
  2. Dim TOut As String = "/media/data20_md0/Projekte/freeBASIC/grafik/evicut/mvi_48_mvi_4830.mov"
    
  3. Open Pipe "mencoder " & TIn & " -o " & TOut & " -ovc copy -oac pcm" For Input As #1
    
  4. While Not Eof(1)
    
  5.     Dim As String s
    
  6.     Line Input #1, s
    
  7.     Print "!!!!", s
    
  8.     Wend
    
  9. Close #1
    
  10.