Click here to Skip to main content
15,847,653 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
how can i make the mp4 video output as mp4 video
i want the mp4 is also mp4 m when implement the code , the output video is not playing
VB
Private Sub Command2_Click()
    ProgressBar1.Visible = True
    ProgressBar1.Min = 0
    
    Open CommonDialog1.FileName For Binary Access Read As #1
    ProgressBar1.Max = LOF(1)
    
    ext = Right$(CommonDialog1.FileName, 3)
    newfile = "new1." + ext
    Open newfile For Binary Access Write As #2
    
   For i = 1 To LOF(1)
        Get #1, , b
        If i = 200 Then
              Put #2, , b Xor 12
        Else
            Put #2, , b
        
        End If
        ProgressBar1.Value = i
      
      Next
        WindowsMediaPlayer2.URL = newfile
    Close
    ProgressBar1.Visible = False

End Sub



http://im49.gulfup.com/DYxjNQ.png[^]
Posted
Updated 27-Nov-14 11:15am
v2
Comments
Richard MacCutchan 28-Nov-14 3:51am    
You are changing the content of the input file, so the ouput is not the same. What are you trying to achieve?
RAFAH SAMIH 28-Nov-14 5:11am    
i want the saved output is also mp4 but not visible
like this picture
http://im81.gulfup.com/Oja9rn.png

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900