將.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將失去壓縮質量。對於照片來說沒問題，但對於圖表，截圖或任何帶有文字的內容，質量都會受到影響。