将.jpeg文件插入Oracle

Question

喜 我使用OpenPictureDialog1在delphi7上插入了oracle数据库映像文件。所有文件都是.bmp我想插入.jpeg（.jpg）文件。我该如何插入？ 提前谢谢。

Answer 1

将jpeg添加到uses子句。

uses
    jpeg;

Answer 2

将bmp转换为jpg

function BMPtoJPG
   (var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
    JpegImg: TJpegImage;
begin
  Result:=False;
  Bitmap := TBitmap.Create;
  try
   Bitmap.LoadFromFile(BMPpic) ;
   JpegImg := TJpegImage.Create;
   try
    JpegImg.Assign(Bitmap) ;
    JpegImg.SaveToFile(JPGpic) ;
    Result:=True;
   finally
    JpegImg.Free
   end;
  finally
   Bitmap.Free
  end;
end;

用法：BMPtoJPG（'mybitmap.bmp'，'myjpeg.jpg'）

关于jpeg单位的非常有用的链接

http://www.hamslab.com/lab/delphi/jpeg/jpeg_del.html

如何将jpeg发送到oracle

1）将jpeg保存到文件中 2）在这里你有如何将文件保存到Oracle：

http://www.delphi3000.com/articles/article_1523.asp?SK=

最好的问候，
拉杜

Answer 3

FWIW，除非要求Jpeg，否则我会使用PNG进行存储。 Jpeg将失去压缩质量。它可以用于照片，但对于图表，屏幕截图或任何带有文本的内容，质量都会受到影响。