如何处理SQLSERVER中存储过程输出的IMAGE类型数据（不是返回字段，是输出值）

Question

如题

Answer 1

例如Create procedure MyProc_GetImage 
......
@Image Image Output
......Select @Image = FImage From .... Where ....在DELPHI中用TADOStoredProc 定义如下with DataSet.Parameters.AddParameter do
begin
  Direction := pdOutput;
  DataType := ftGraphic;
  Name := '@Image';
end;但怎样转换为流呢？

Answer 2

var
  MyJPEG: TJPEGImage;
  Ms: TMemoryStream;
begin
  MyJPEG := TJPEGImage.Create;
  Ms := TMemoryStream.Create;
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Text := 'select * from aaaaa where wybh=''00872''';
    Open;
    TBlobField(FieldByName('zhaop')).SaveToStream(Ms);
    Ms.Position := 0;
    MyJPEG.LoadFromStream(Ms);
    ImageP.Picture.Bitmap.Assign(MyJPEG);
  end;