Blob 到 String：如何将 PostgreSQL 中的 StoredProcedure 参数中的 Blob 转换为字符串？

Question

我有这样的参数类型的存储过程（Postgres 中的函数）：

Params[0] : result = ftBlob // postgresql function = text
Params[1] : 1 = ftString
Params[2] : 2 = ftInteger
Params[3] : 3 = ftInteger

我的代码是这样的：

procedure TForm1.Button1Click(Sender: TObject);
var
  ResultStr: TResultStr;
  BlobField: TBlobField;
  bStream: TStream;
  DataSet: TDataSet;
  StoredProc: TSQLStoredProc;
begin
  sp01.Close;
  sp01.Params[1].AsString := '2010/2011';
  sp01.Params[2].AsInteger := 2;
  sp01.Params[3].AsInteger := 1;
  sp01.ExecProc;

  if sp01.ParamByName('result').Value.IsBlob then
  begin
    BlobField := StoredProc.ParamByName('result') as TBlobField;
    bStream := sp01.CreateBlobStream(BlobField, bmRead);
    try
      bStream.Read(ResultStr,sizeof(TResultStr));
    finally
      bStream.Free;
    end;
  end;

  ShowMessage(ResultStr.Hasil);
end;

问题是，我想如何让结果（Blob）变成字符串？

Answer 1

我不知道 TResultString 是什么，但你可以用字符串来做到这一点：

var
  BlobResult: string;  // Changed to make clearer where changes were below
begin
  // Your other code here

  if sp01.ParamByName('result').Value.IsBlob then
  begin
    BlobField := StoredProc.ParamByName('result') as TBlobField;
    bStream := sp01.CreateBlobStream(BlobField, bmRead);
    try
      SetLength(BlobResult, bStream.Size);         // Note changes here
      bStream.Read(BlobResult[1], bStream.Size);   // and here
    finally
      bStream.Free;
    end;
  end;

Answer 2

这是一篇旧帖子，但如果将来有人需要的话。

ShowMessage(BlobField.AsString);