怎样将bmp转换为jpg?(50分)

L

lanxingw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #1

我没搜索到

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #2

最流行图像格式实用参考手册
作者：晶辰工作室

 

W

wolfsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #3

procedure BMPToJPegDemo;
var
JPeg: TJPegImage;
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('chemical.bmp');
JPeg := TJPegimage.Create;
JPeg.Assign(Bmp);
JPeg.SaveToFile('chemical.jpg');
JPeg.Free;
Bmp.Free;
end;
还是搜索不仔细

 

M

misaiya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #4

var
InBmp:TBitmap;
OutJpeg:TJpegImage;
begin
InBmp:=TBitmap.Create;
try
InBmp.LoadFromFile(BMP文件名);
OutJpeg:=TJpegImage.Create ;
try
OutJpeg.Assign(InBmp);
OutJpeg.CompressionQuality :=80;//控制压缩质量
OutJpeg.Compress;
OutJpeg.SaveToFile(保存为JPEG文件名);
finally
OutJpeg.Free;
end;
finally
InBmp.Free;
end;
end;
一定要 uses jpeg

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #5

呵呵，最灵活的
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;

 

H

hbk777

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

其实各位都给源码了我就不给了！ 在大多图象书籍都有例子的可以看看呀！
以前的程序员大本营里也有例子的！

 

N

netkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #7

我觉得问问题前真的应该查一查以前的贴子。

 

L

lanxingw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #8

谢谢各位