显示JPEG时出错，请大家帮忙，在下先谢谢各位！

Question

TJpegImage(Image1.Picture).Assign(AJpeg);

Answer 1

代码没有错，字段中有没有数据，肯定是jpeg吗。

Answer 2

我的保存代码如下：
implementation
uses jpeg,unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='图形文件(*.jpg)|*.jpg';
if openpicturedialog1.Execute then begin
table1.Active:=true;
table1.Append;
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
end;
我相信它没错，字段里应该有数据吧？如果错了请帮我改写好吗？
浏览代码是不是也不能浏览*.bmp呢？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  openpicturedialog1.Filter:='图形文件(*.jpg)¦*.jpg';
  if openpicturedialog1.Execute then
  begin
    table1.Active:=true;
    table1.Append;
    TBlobField(Table1.FieldByName('YourPictueFieldName')).LoadFromFile(OPenPictureDialog1.FileName);
  end;    
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  table1.Post;
end;