我用DBImage组件时，出现“Bitmap image is not valid”

Question

我用的数据源是DBF格式，其他字段均没有问题，唯独通用字段GEN的显示出问题。
在FOXPRO中图像没有问题，请问如何解决这问题？

Answer 1

Var
  tempstream: TStringStream;
  tempjpeg: TJPEGImage;
Begin  With ADOQuery_picture Do
  Begin
    If Not Eof Then
    Begin
      Next;
      Try
        tempstream := TStringStream.Create(' ');
        TBlobField(ADOQuery_picture.FieldByName('photo')).SaveToStream(tempstream);
        tempstream.Position := 0;
        tempjpeg := TJPEGImage.Create;
        tempjpeg.LoadFromStream(tempstream);
        Image1.Picture.Bitmap.Assign(tempjpeg);
        suiEdit1.Text := ADOQuery_picture.FieldByName('Jianjie').AsString;
      Finally
        tempstream.Free;
        tempjpeg.Free;
      End;
    End
    Else
      abort;
  End;End;