求教影片片段连接代码

Question

如题:求教影片片段连接源代码,希望能把两个影片的片段连接到组成一个完整的影片进行播放,高分求教

Answer 1

des可以实现,不过有点麻烦!
DX下有DEMO

Answer 2

应用文件连接可实现视频的播放,在以在WINDOWS PLAYER播放,可不能在QUICKTIME PLAYER下不能播放,有哪位高手能够帮改改
unit   Unit1;   
    
  interface   
    
  uses   
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,   
      Dialogs,   StdCtrls;   
    
  type   
      TForm1   =   class(TForm)   
          Button1:   TButton;   
          OpenDialog1:   TOpenDialog;   
          OpenDialog2:   TOpenDialog;   
          Button2:   TButton;   
          Edit1:   TEdit;   
          Label1:   TLabel;   
          procedure   Button1Click(Sender:   TObject);   
          procedure   Button2Click(Sender:   TObject);   
      private   
          {   Private   declarations   }   
      public   
          {   Public   declarations   }   
      end;   
    
  var   
      Form1:   TForm1;   
      InStream,   OutStream:   TFileStream;   
  implementation   
    
  {$R   *.dfm}   
    
  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      fn:string;   
  begin   
      if   form1.OpenDialog1.Execute   then   
          begin   
              fn:=form1.OpenDialog1.FileName;   
              OutStream   :=   TFileStream.Create(edit1.text,   fmCreate     or   fmShareDenyWrite);   
              InStream   :=   TFileStream.Create(fn,   fmOpenRead   or   fmShareDenyWrite);   
              try   
                  OutStream.CopyFrom(InStream,   0);   
              finally   
                  InStream.Free;   
              end;   
          end;   
    
  end;   
  procedure   TForm1.Button2Click(Sender:   TObject);   
  var   
      fn:string;   
  begin   
      if   form1.OpenDialog2.Execute   then   
          begin   
              fn:=form1.OpenDialog2.FileName;   
              InStream   :=   TFileStream.Create(fn,   fmOpenRead   or   fmShareDenyWrite);   
              try   
                  OutStream.CopyFrom(InStream,   0);   
              finally   
                  InStream.Free;   
              end;   
              OutStream.Free;   
              messagebox(form1.Handle,pchar('合并成功'),'提示',mb_ok);   
          end;   
  end;   
    
  end.