delphi - 如何使用 FibPlus 中的 TpFIBQuery 组件读取 BLOB(Text) 字段

Question

我正在使用 Delphi 7 和 FibPlus 组件。其中之一是TpFIBQuery。

我正在使用通用的表加载数据

select * from TableName where Key = 1

返回的字段之一的类型为 BLOB(Text)。

我似乎无法使用以下 3 种方法之一将值放入字符串列表 informatie 中:

Informatie.Text := FieldByName('Informatie').AsString  // Returns the string 'BLOB'
Informatie.Text := BlobAsString('Informatie')          // Returns ''
BlobToStrings('Informatie',Informatie)                 // Returns ''

我已使用 Database Workbench 确认表中的字段确实包含已保存的文本。

有人吗？

Answer 1

通常，我很喜欢这个

var 
   sl: TStrings; // blob IS NOT string!
   ms: TMemoryStream;
begin
   sl := TStringList.Create;
   ms := TMemoryStream.Create;
   try
     q.FieldByName('x').SaveToStream(ms);
     ms.Position := 0;
     sl.LoadFromStream(ms);
     // do what ever you want with sl here
     // and here too
   finally
     sl.Free;
     ms.Free;
   end; // try..finally
end;

请注意，q 是您的 TpFibQuery 对象。还select * from table 是不好的做法。这个习惯最终会导致你持续头痛。