use jpeg; ] function BmpToJpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage; begin Result := nil; if Assigned(Bmp) then begin Result := TJpegImage.Create; Result.Assign(Bmp); Result.CompressionQuality := Quality; Result.JPEGNeeded; Result.Compress; end; end;function JpgToBmp(Jpg: TJpegImage): TBitmap; begin Result := nil; if Assigned(Jpg) then begin Result := TBitmap.Create; Jpg.DIBNeeded; Result.Assign(Jpg); end; end;
]
function BmpToJpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;
begin
Result := nil;
if Assigned(Bmp) then
begin
Result := TJpegImage.Create;
Result.Assign(Bmp);
Result.CompressionQuality := Quality;
Result.JPEGNeeded;
Result.Compress;
end;
end;function JpgToBmp(Jpg: TJpegImage): TBitmap;
begin
Result := nil;
if Assigned(Jpg) then
begin
Result := TBitmap.Create;
Jpg.DIBNeeded;
Result.Assign(Jpg);
end;
end;