JPEG 怎么转成BMP?这段代码怎么不行啊。(50分)

  • 主题发起人 主题发起人 liuyang
  • 开始时间 开始时间
L

liuyang

Unregistered / Unconfirmed
GUEST, unregistred user!
jpeg to bmp:
uses JEPG
var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
myjpeg.LoadFromFile('c:/windows/desktop/aa.jpg');
bmp.Assign(myjpeg);
bmp.SaveToFile('c:/windows/desktop/test.bmp'); // Save the JPEG to Disk
end;

据说要用到文件流。不知道怎么实现?
 
procedure TForm1.Button2Click(Sender: TObject);
var
FBmp: TBitMap;
FJpg: TJPEGImage;
begin
FBmp := TBitMap.Create;
FJpg := TJPEGImage.Create;
FJpg.LoadFromFile('Logo.jpg');
FBmp.Assign(FJpg);
FBmp.SaveToFile('Logo.bmp');
FBmp.Free;
FJpg.Free;
end;

会不行吗?这段程序和你那个应该是一样的,怎么可以?
 
看DELPHI自己带的例子
 
接受答案了.
 
后退
顶部