*.bmp另存为*.JPG（有奖金）

Question

1，如何从paradox中取出图像字段？
2。如何把取出图像*.bmp另存为*.JPG？

Answer 1

我要编一个程序
 将paradox的数据，导入到Access数据库中，

Answer 2

function Bmp2Jpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage; begin   Result := nil;   if Assigned(Bmp)   then begin   Result := TJpegImage.Create;   Result.Assign(Bmp); {Its all folks...}   Result.CompressionQuality := Quality;   Result.JPEGNeeded; {Key method...}   Result.Compress;   end;end;

Answer 3

2.
Var bmp:TBitMap;
    jpg:TJPEGImage;    
begin
    try
        Bmp := TBitmap.Create;
        Jpg:=TJPEGImage.Create;
        Bmp.LoadFromFile('c:\a.bmp');
        TmpFileName:='C:\a.jpg';
        Jpg.Assign(Bmp);
        Jpg.SaveToFile(TmpFileName);
    finally
                Bmp.Free;
                Jpg.Free;
    end;
end;

Answer 4

lincanwen(密码错误) 
不好意思，你晚了一步，我给分了，
Thank you all the same！