关于IMAGE控件的问题，请大家帮帮忙^^(30分)

我的FORM上面有image1,OpenPicturedialog1等控件
我通过image1.Picture.LoadFromFile(Openpicturedialog1.FileName)
把图片显示在image1控件上面，可是当图片文件类型为*.gif,*.jpg,*,jpeg……时就会提示
'Unknown Picture file extension (.jpg)'这样的错误提示
我接触DELPHI没多久，请大家帮我看一下哪里错了，谢谢！

在USE 部分加上 jpeg,试试

leyon328,你说的方法我试过，并且通过
可是当图片文件类型是gif时还是会提示'Unknown Picture file extension (.jpg)'

D6以上可以

因为Delphi本身不支持Gif格式啊，装一个TGifImage控件，可以支持许多图片格式！

来自：江南大米, 时间：2003-7-24 13:04:00, ID：2055765
刚刚测试完的，保证好用[]
保存
procedure TForm1.Btn_SaveClick(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(ViewPic.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
ADOTable1.Append;
TBlobField(ADOTable1.FieldbyName('file')).LoadFromStream(MS);
ADOTable1.FieldByName('name').AsString:=Edit_Name.Text;
ADOTable1.Post;
Messagebox(Getactivewindow(),'图像保存完毕！','保存',mb_ok);
end;
finally
MyJPEG.Free;
end;
end;

读取
procedure TForm1.Btn_ViewClick(Sender: TObject);
var
tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
tempstream:=TStringStream.Create(' ');
TBlobField(ADOTable1.FieldByName('file')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
ViewPic.Picture.Bitmap.Assign(tempjpeg);
Edit_Name.Text:=ADOTable1.FieldByName('name').AsString;
finally
tempstream.Free;
tempjpeg.Free;
end;
end;


来自：江南大米, 时间：2003-7-24 13:05:00, ID：2055770
忘记说明了
ViewPic是Timage控件

多人接受答案了。