jpg 转 bmp 时的问题?(50分)

  • 主题发起人 主题发起人 jinzuo007
  • 开始时间 开始时间
J

jinzuo007

Unregistered / Unconfirmed
GUEST, unregistred user!
我在jpg转bmp时遇到问题 如下:
var
BitMap:TBitmap;
MyJpeg: TJpegImage;
TempStream : TMemoryStream;
begin
//TempStream 加载一幅jpg图象,代码略
……
MyJpeg.LoadFromStream(TempStream);
bitmap.Assign(MyJpeg); // 这句会报错‘JPEG error #41’
end;

请问各位这是怎么回事?? 请指教!!谢谢
 
procedure Jpg2Bmp(const source,dest:string);
var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
try
myjpeg.LoadFromFile(source);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
finally
bmp.free;
myjpeg.Free;
end;
end;
 
没有问题啊~~~~~~

procedure TForm1.Button1Click(Sender: TObject);
var
BitMap:TBitmap;
MyJpeg: TJpegImage;
TempStream : TMemoryStream;
begin
TempStream :=TMemoryStream.Create;
TempStream.LoadFromFile('f:/图片/eiffel.jpg');
MyJpeg :=TJpegImage.Create;
BitMap :=TBitmap.Create;
MyJpeg.LoadFromStream(TempStream);
Bitmap.Assign(MyJpeg);
Image1.Picture.Bitmap.Assign(Bitmap);
TempStream.Destroy;
MyJpeg.Free;
Bitmap.Free;
end;
 
谢谢各位!:) 我的流出现了点问题。流没有装载上jpg所以会报错!
在此向‘卷起千堆雪tyn’表示感谢!谢谢你两次这么用心的回答我的问题!
小弟万分感谢!! :)
 
后退
顶部