将.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将失去压缩质量。对于照片来说没问题，但对于图表，截图或任何带有文字的内容，质量都会受到影响。