如何使用TpFIBQuery组件从FibPlus读取BLOB(文本)字段

Question

我使用的是Delphi 7和FibPlus组件。其中一个是TpFIBQuery。

我正在用泛型从表中加载数据。

select * from TableName where Key = 1

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

我似乎无法使用以下三种方法之一将该值输入字符串列表informatie：

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

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

有人吗？

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对象。此外，从表中选择*也是不好的做法。这个习惯最终会让你头痛不已。

Answer 2

在尝试了产生同样错误的“江”的解决方案之后，我终于找到了罪魁祸首。

原来这是因为我的部分错误(通常是，你只需要找到它)。

结果，在处理/读取原始查询字段期间，将读取事务设置为False。

• I在另一个表中执行查找以获取查询中整数值的描述。
• 此查找查询使用相同的读取事务，并在查找描述后将此事务设置为False。
• AFter返回原始查询，读取整数字段和字符串字段没有问题(尽管已将读取事务设置为False)，但是使用...AsString方法将BLOB字段读入字符串会产生错误或返回‘BLOB’。

显然，我需要在读取操作开始时将读取事务设置为True，并在所有读取事务之后将其设置为False。这是将Paradox BDE应用程序转换为Sqlserver应用程序的Firebird时的主要更改。

无论如何，我很高兴我找到了解决办法。希望它也能帮助其他人。