T tianyu1398 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-24 #1 希望代码能够少,速度要快.而且支持一次对大量的图片加密. 麻烦大家,
H huazai Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-24 #2 用流啊, begin CompressedStream := TMemoryStream.Create; try Bmpfile.SaveToStream(CompressedStream); CompressStream(CompressedStream); CompressedStream.SaveToFile(SavePictureDialog1.FileName + '.hua'); finally // Bmp.Free; CompressedStream.Free; end; end;
用流啊, begin CompressedStream := TMemoryStream.Create; try Bmpfile.SaveToStream(CompressedStream); CompressStream(CompressedStream); CompressedStream.SaveToFile(SavePictureDialog1.FileName + '.hua'); finally // Bmp.Free; CompressedStream.Free; end; end;