南 南来北往 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-30 #1 在数据库表中有一字段存有BMP的图像文件, 想把它们转换成JPEG的文件图像存入数据库表,该如何实现?
B bigroute Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-30 #3 如果你会操作读写流到数据库那就方便了。 给你写个例子，没调试过。 var jpg :TJPegImage; bmp :TBitmap; begin jpg :=TJpegImage.Create; bmp :=TBitmap.Create; Bmp.LoadFromFile('c:/a.bmp'); Jpg.Assign(bmp); //<====================压缩，可选 jpg.CompressionQuality :=50//1..100; jpg.Compress ; //<====================压缩，可选 Jpg.SaveToFile('c:/a.jpg'); Jpg.free; bmp.free; end;
如果你会操作读写流到数据库那就方便了。 给你写个例子，没调试过。 var jpg :TJPegImage; bmp :TBitmap; begin jpg :=TJpegImage.Create; bmp :=TBitmap.Create; Bmp.LoadFromFile('c:/a.bmp'); Jpg.Assign(bmp); //<====================压缩，可选 jpg.CompressionQuality :=50//1..100; jpg.Compress ; //<====================压缩，可选 Jpg.SaveToFile('c:/a.jpg'); Jpg.free; bmp.free; end;
南 南来北往 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-30 #4 谢谢bigroute,我会操作读写流到数据库,调试好了马上给分,请多多指教!!
B bigroute Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-31 #5 甭客气，这算不了什么， 对了，前面还得uses JPEG.
