如何用DELPHI画图，并且保存为JPG文件，谢谢！

Question

用Image组件
保存时用 Image.Picture.SaveToFile(’图像文件的完整路径名\文件名’);
取用时用 Image.Picture.LoadFromFile(’图像文件的完整路径名\文件名’);

Answer 1

谢谢！我现在没有JPG文件，如何生成一张空白的，然后在上面画一些线条
再保存为JPG文件？

Answer 2

use 
  ...jpeg...
var
  jpg:TJpgImage;
begin
  jpg.picture.Assign(Image1.Picture.Bitmap);
  jpg.SaveToFile(文件名); 
end;

Answer 3

//试一下以下代码
//uses Jpeg;先放一个Image1控件
var
jpg:TjpegImage;
begin
Image1.canvas.MoveTo(image1.left, image1.top);
Image1.canvas.LineTo(image1.bottom,image1.right);
//...自己的画图操作
jpg:=Tjpegimage.create;
      jpg.canvas.CopyRect(TRect(image1.left,image1.top,image1.bottom,image1.right),image1.canvas,
TRect(image1.left,image1.top,image1.bottom,image1.right));
jpg.savetofile('C:\myjpg.jpg');
jpg.free;
end;

Answer 4

使用Image本身的Canvas属性的方法来画吧说不定还能够做一个Photoshop出来，努力！！！

Answer 5

jpg : TJpgImage; 好像在编译时报错.

Answer 6

to  yang6130(月明@沧海) ;
    你好！这句话好像不对，编译时出错。谢谢你！
Image1.canvas.LineTo(image1.right,image1.bottom);

Answer 7

先画bmp图吧。用canvas.作个作图工具！

Answer 8

yang6130(月明@沧海)那样基本上就可以了
TO ATCG(ATCG), 画线的函数自己看看帮助吧。这该用不着手把手教吧？jpg.canvas.CopyRect(....)也可以改成
jpg.Assign(Image1.Picture.graphic);

Answer 9

to: ： halfdream(哈欠) :
     因我没用DELPHI做过此类设计，没概念，我再看看吧，还有，想请教
一下，我是否能这样画一张超过屏幕尺寸范围的JPG图，因为我没有经验，
希望各位兄弟能点拨一下，我现在时间比较紧，想少走一点弯路。不好意思。
谢谢各位。

Answer 10

to: ： halfdream(哈欠) :
     因我没用DELPHI做过此类设计，没概念，我再看看吧，还有，想请教
一下，我是否能这样画一张超过屏幕尺寸范围的JPG图，因为我没有经验，
希望各位兄弟能点拨一下，我现在时间比较紧，想少走一点弯路。不好意思。
谢谢各位。