jpeg 处理(30分)

delphi 中如何处理jpeg图象加uese jpeg单元后
创建一个jpeg对象 如 myjpeg并load一幅jpeg图象后
能象bitmap那样调用 form.canvas.draw(0,0,myjpeg) 吗
如果不能是不是要把jpeg转化为bitmap才能调用上边语句
如果是的话如何转化

procedure Draw(X, Y: Integer
Graphic: TGraphic);
TGraphic 包含了Tjpegimage 所以可以那么用

看一下delphi下的/help/examples/jpeg/jpegproj.dpr

给你写个小例子!

procedure TForm1.Button1Click(Sender: TObject);
var jpgimg:TJPEGImage;
bmpimg:TBitmap;
begin
ShowMessage('we will draw with jpg!');
jpgimg:=TJPEGImage.Create;
jpgimg.LoadFromFile('c:/a.jpg');
form1.Canvas.Draw(0,0,jpgimg);
ShowMessage('clear the canvas!');
bmpimg:=TBitmap.Create;
bmpimg.Assign(jpgimg);
Form1.Repaint;
ShowMessage('we will draw with bmp!');
Form1.Canvas.Draw(0,0,bmpimg);
ShowMessage('don''t forget free the handle!');
jpgimg.Free;
bmpimg.free;
end;

多谢了

接受答案

接受答案