CSDN博客

img aloking

Jpg2Bmp函数

发表于2004/7/14 11:40:00  1219人阅读

分类: 图象处理

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;
 

0 0

相关博文

我的热门文章

img
取 消
img