(急)delphi中显示jpeg/jpg格式的图片

Question

试过大家讲的方法:uses jpeg;
但还是没办法打开文件
看了OpenpictureDialog的filter属性默认的只有.bmp .ico .emf...没有.jpg
自己把filter属性加上.jpg,运行程序之后还是不能把.jpg的文件显示出来
大家帮帮忙,小弟先谢谢了

Answer 1

创建一个对象
var
a:tjpeg;
begin
a:=tjpeg.create;
a.loadfile('')
end;

Answer 2

会不会是你 Delphi 版本的问题？
D7 的 TOpenPictureDialog 的 Filter 属性里本来就有 jpg 和 jpeg 的。
有没有打补丁，打补丁看看。

Answer 3

不可能的呀,我的 d6 就可以打开 jpeg 的图片

Answer 4

用 Delphi 7 应该可以的

Answer 5

在一个新建的应用的Form上放置一个Button，一个Image，简单调整后，调整代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Jpeg, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  AJpg:TJpegImage;
  AOpenDlg:TOpenDialog;
begin
  AOpenDlg:=TOpenDialog.Create(self);
  if AOpenDlg.Execute then
    begin
      AJpg:=TJpegImage.Create;
      AJpg.LoadFromFile(AOpenDlg.FileName);
      self.Image1.Picture.LoadFromFile(AOpenDlg.FileName);
      AJpg.Free;
    end;end;end.
AJpg可做他用！

Answer 6

直接在USES区域 引用Jpeg单元

Answer 7

to miaomiao1024:可以送分了吧！