Bmp to JPG(100分)

J

jxlll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #1

在Delphi中将bmp文件转换成jpg文件

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #2

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;
抄的.

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #3

贴自：http://www.delphiuser.com/faq/browser.asp?classID=64

如果你使用Delphi4，注意到它的TImage支持的文件格式可以为*.Jpg,*.Jpeg,*.bmp,*.ico……这个问题将很好解决！
下面是源代码：
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
procedure TForm1.Button1Click(Sender: TObject);
(*压缩MBP为JPEG;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
Note:必须加上JPEG到Uses单元
*)
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('e:/lm.BMP'); //你的图片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10; //压缩比例
Compress;
SaveToFile('e:/lm01.JPEG');//保存路径……
Free;
end;
finally
Free;
end;
end;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

黄

黄耀彰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #4

100%行

var
strFileName:String;

......


if OpenDialog1.Execute then
begin
strFileName:= OpenDialog1.FileName ;
end;

procedure Tform1.BMPToJPegDemo;
var
JPeg: TJPegImage;
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile(strFileName);
JPeg := TJPegimage.Create;
JPeg.Assign(Bmp);
SaveDialog1.DefaultExt :='Jpg';
if SaveDialog1.Execute then
begin
JPeg.SaveToFile(SaveDialog1.FileName);
end;
JPeg.Free;
Bmp.Free;
end;

 

P

philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #5

 

P

philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #6

怎样把在image 内画出的图保存到jpg文件,并将jpg文件存入数据库字段中？
c++builder下的。

 

P

philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #7

上面的程序如何改写为 c++builder 的？

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #8

to philips:
>>上面的程序如何改写为 c++builder 的
看你的问题.

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #9

后面什么都没有

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #10

笔误

 

F

f_river

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-05

• #11

请问，如何在Builder 4下实现
Builder 4中，好象没有TJPegImage类

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-05

• #12

to r_river:http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=259563

 

F

f_river

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-06

• #13

多谢 Victortim 了！
另外，我还想请问一下，在Builder中，如何BMP2GIF？
有现成的代码段没有，C语言的。
先谢过了！！！！！

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-06

• #14

to f_river:你先找一个支持TImage的gif控控件（继承自TGraphic),然后用
同样的方法就可以了。如找不到，mail to me.

 

A

artx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #15

bcb代码如下（改自weihang）
void BMPToJPegDemo()
{
TJPegImage *JPeg;
Graphics::TBitmap *Bmp;

Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("chemical.bmp");
JPeg =new TJPegimage;
JPeg->Assign(Bmp);
JPeg->SaveToFile("chemical.jpg");
JPeg->Free();
Bmp->Free();
}

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-28

• #16

时间太久，强制结束。 wjiachun