图片显示

Question

try
 image1.Picture.LoadFromFile(dm.CDS_GB_01.fieldbyname('photo').asstring);
except
  ShowMessage('sorry,no picture');
end;这句 有没错 
如果 photo 没有 
就显示 sorry,no picture

Answer 1

错，给你个以前写的从数据库相应字段显示图片（jpg）的例子//--显示图片字段子程序
procedure TForm1.ViewPIc(adotable:TADOTable;fil:string;image:Timage);
var
  ss:TStringStream;
  jpg:Tjpegimage;
begin
  ss:=Tstringstream.Create('');
  jpg:=Tjpegimage.Create;
  image.Picture:=nil;
  try
    if not adotable.FieldByName(fil).IsNull then
    begin
      TBlobField(adotable.FieldByName(fil)).SaveToStream(ss);
      ss.Position:=0;
      jpg.LoadFromStream(ss);
      image.Picture.Bitmap.Assign(jpg);
    end;
  finally
    jpg.Free;
    ss.Free;
  end;  
end;

Answer 2

载入指定的图片文件 image1.Picture.LoadFromFile('E:\wallpaper\大家网01.BMP');