2011-03-15 3 views

답변

2

jspeg를 uses 절에 추가하십시오.

uses 
    jpeg; 
+0

고맙습니다. – user578332

0

는 변환 BMP

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; 

사용 JPG로 : ('myjpeg.jpg' 'mybitmap.bmp') JPEG 장치에 대한

매우 유용한 링크를 BMPtoJPG를

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

오라클

에 JPEG를 전송하는 방법을

1) jpeg를 파일로 저장하십시오.
2) 여기 당신이 오라클에 파일을 저장하는 방법이 있습니다

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

안부,
라두

0

FWIW를, JPEG는 요구가 아닌, 내가 저장 PNG를 사용합니다. Jpeg는 압축시 품질을 저하시킵니다. 사진은 괜찮지만 다이어그램, 스크린 샷 또는 텍스트가있는 것은 품질이 떨어집니다.