image组件

Question

1、在uses后要加上jpeg
2、有个属性可以设置，你可以找下。

Answer 1

1.在uses 的单元文件列表中加上jpeg单元
2.stretch=true

Answer 2

设置stretch=true图片有时会变形，最好还是动手算
定义一个TBITMAP，装如文件，然后计算比例，再用copyrect复制到IMAGE上 

Answer 3

能再说一下怎么使用JPG文件吗

Answer 4

image1 的 autosize 属性为true  就可以了么！

Answer 5

用内存流来实现
[email protected]

Answer 6

hfamwu兄
1、在uses后要加上jpeg
2、有个属性可以设置,能告诉我这个属性在哪里吗

Answer 7

这里给你一个例子，在我这已顺利通过
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Jpeg,
  StdCtrls;
  //别忘了加Jpeq单元
var
  Form1: TForm1;
  AJpeg : TJpegImage;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Style:=psSolid;
  Canvas.Brush.color:=clBtnFace;
  Canvas.Brush.Style:=bsSolid;
  //ClearFormandLoadanewJPEGfile;
  AJpeg:=TJpegImage.Create;//动态生成AJpeg;
  AJpeg.LoadFromFile('D:\Temp.jpg')
end;procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(10,10,AJpeg);//以(x,y)为左上角输出JPEG文件;
end;

Answer 8

这里给你一个例子，在我这已顺利通过
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Jpeg,
  StdCtrls;
  //别忘了加Jpeq单元
var
  Form1: TForm1;
  AJpeg : TJpegImage;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Style:=psSolid;
  Canvas.Brush.color:=clBtnFace;
  Canvas.Brush.Style:=bsSolid;
  //ClearFormandLoadanewJPEGfile;
  AJpeg:=TJpegImage.Create;//动态生成AJpeg;
  AJpeg.LoadFromFile('D:\Temp.jpg')
end;procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(10,10,AJpeg);//以(x,y)为左上角输出JPEG文件;
end;

Answer 9

这里给你一个例子，在我这已顺利通过
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Jpeg,
  StdCtrls;
  //别忘了加Jpeq单元
var
  Form1: TForm1;
  AJpeg : TJpegImage;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Style:=psSolid;
  Canvas.Brush.color:=clBtnFace;
  Canvas.Brush.Style:=bsSolid;
  //ClearFormandLoadanewJPEGfile;
  AJpeg:=TJpegImage.Create;//动态生成AJpeg;
  AJpeg.LoadFromFile('D:\Temp.jpg')
end;procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(10,10,AJpeg);//以(x,y)为左上角输出JPEG文件;
end;

Answer 10

不好意思，多贴了 !
另外可以参考...\Delph5\Help\Example\Jepq目录下的工程，
将得很详细。

Answer 11

我终于成功了，告诉大家一个经验，就是在调用JPG文件时，必须进行文件扩展名的识别，省过这步则图片不能正常载入