怎么用delphi将一连串jpeg存在一个文件上？

Question

各位高手
    怎么用delphi将一连串jpeg存在硬盘上一个文件里，以后再一个一个读出来

Answer 1

var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
  JPG:=TJPEGImage.Create;
  MS:=TMemoryStream.Create ;
  JPG.Assign(Image1.Picture.Graphic);
  JPG.SaveToStream(MS);
  MS.Position :=0;
  ADOTable1.Append ;
  TBlobField(ADOTable1.FieldByName('zp')).LoadFromStream(ms);
  ADOTable1.FieldByName('NOTE').AsString :=extractfilename (OpenDiaLog1.FileName) ;
  ADOTable1.Post ;
  MS.Free ;
  jpg.Free ;
end;你试一下，将它改一下就可以了

Answer 2

怎么将stream里指定段读到jpegImage里？

Answer 3

到http://kotisivu.mtv3.fi/ware.purkki/下载ffmpeg的windows版
用ffmpeg   -i %1d.jpg ./movie.mpg 
将1.jpg-10.jpg合并成movie.mpg