请问如何在Image控件上显示存在数据库里面的Jpeg文件?为什么我会出现Jpeg error #52的错误?

Question

image控件不能显示jpeg图片，必须对jpeg图片进行转换之后才能显示

Answer 1

我想是图片数据有问题，检查一下数据库字段内容，应该是以FF D8 FF E0 00 10 4A 46 49 46打头。

Answer 2

 with ShockwaveFlash1 do    //shockwave控件名
        begin
            Movie:=ExtractFilePath('c:\Movie3.swf') //movie3.swf是要播放的动画名字
            Loop:=True;
            ScaleMode:=0;
         BackgroundColor:=RGB(11,11,11);
            Play;
        end;

Answer 3

uses jpegimage;
var
  JpegImage: TJpegImage;
begin
  JpegImage := TJpegImage.Create;
  TBlobField(Query1.FieldByName('data')).SaveToFile('c:\temp.jpg');
  JpegImage.LoadFromFile('c:\temp.jpg');
  Image.Picture.Graphic := JpegImage;
  JpegImage.Free;
end;

Answer 4

谁知道?是不是装了Delphi6就没事拉?

Answer 5

image控件显示jpeg文件的方法var jpgimg:  TJPEGImage ;
  begin
    jpgimg:=tjpegimage.create;
    jpg.loadfromfile(...jpg格式文件);
    image.picture:=nil ;//image为image控件
    image.pictrue:=jpg.picture;
    jpgimg.free;
  end;

Answer 6

写错一点
var jpgimg:  TJPEGImage ;
  begin
    jpgimg:=tjpegimage.create;
    jpgimg.loadfromfile(...jpg格式文件);
    image.picture:=nil ;//image为image控件
    image.pictrue:=jpgimg.picture;
    jpgimg.free;
  end;
  

Answer 7

写错好多
var jpgimg:  TJPEGImage ;
     pic: tPicture
  begin
    jpgimg:=tjpegimage.create;
    pic:=TPicutre.Create;
    jpgimg.loadfromfile(...jpg格式文件);
    image.picture:=nil ;//image为image控件    pic.assign(Jpgimg);
    image.pictrue:=Pic.picture;
    jpgimg.free;
    Pic.free
  end;