JPG to bmp ?(50分)

W

wind1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #1

怎样实现 JPG to bmp ?

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #2

用ACD see

 

W

wind1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #3

程序中

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #4

用JPG控件，读出每点RGB的值，再copy 至另一Bitmap，另存为一BMP。

 

W

wind1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #5

示例？

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #6

ok了，给分吧。
D5中，把JPEG单元包含进来。如下。
var
Pic: TPicture;
BMP: TBitmap;
begin
Pic :=TPicture.Create;
Pic.LoadFromFile('c:/pic.jpg');
BMP :=TBitmap.Create ;
BMP.Height :=Pic.Height ;
BMP.Width :=Pic.Width ;
BMP.Canvas.Draw(0,0,Pic.Graphic );
BMP.saveToFile('C:/test.bmp');
BMP.Free ;
Pic.Free ;
end;

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-12

• #7

uses Jpeg;

var
MyStream:TMemoryStream;
MyJpg:TJpegImage;
MyBitmap:TBitmap;
begin
MyStream:=TMemoryStream.create;
MyJpg:=TJpegImage.create;
MyBitMap:=TBitmap.create;
try
MyStream.loadfromFile('c:/xx.jpg');
MyStream.seek(0,0);
MyJpg.loadFromStream(MyStream);
MyBitmap.Assign(MyJpg);
MyBitmap.savetofile('c:/xx.bmp');
finally
MyStream.free;
MyBitmap.free;
MyJpegImage.free;
end;
end;

end;

 

W

wind1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-13

• #8

多人接受答案了。