请问各位怎样用Image控件将SQL Server数据库中image类型的图片读出来？

Question

请问各位怎样用Image控件将SQL Server数据库中image类型的图片读出来？

Answer 1

最近刚做了一个这样的程序，把源代码贴给你，直接就可以用了。
库中'USER_PHOTO'字段用image类型。var
  PicData: TADOBlobStream;
  Pic: TJPEGImage;
begin
 PicData :=TADOBlobStream.Create(TBlobField(FrmData.ADOqrytmp.FieldByName('USER_PHOTO')), bmRead);
  pic := TJPEGImage.Create;
  try
    pic.LoadFromStream(PicData);
    image1.Picture.Assign(pic);
  finally
    PicData.Free;
    pic.Free;
  end;

Answer 2

if adoquery1.FieldByName('xp').AsVariant<>'' then
  begin
    jpeg1:=tjpegimage.Create;
    stream1 :=TMemoryStream.Create;
    tblobfield(adoquery1.FieldByName('xp')).savetostream(stream1);
    Stream1.Seek(0,soFromBeginning);
    jpeg1.loadfromstream(stream1);
    image3.Picture.Bitmap.Assign(jpeg1);
    jpeg1.Free;
    stream1.Free;
  end;

Answer 3

if adoquery1.FieldByName('xp').AsVariant<>'' then
  就是

Answer 4

csdn有问题，只能看到前两行。只能等等再看了。

Answer 5

难道非要用Adoquery吗？我的程序都使用的Bde，用query不行吗？总提示错误“JPEG error #41”