我正在使用Delphi XE2。我的代码从SQL-Server 2008 R2数据库中提取数据。返回的数据是nvarchar(max)
字段,包含1,055,227个字节的数据。我使用以下代码将字段数据保存到文件:
procedure WriteFieldToFile(FieldName: string; Query: TSQLQuery);
var
ss: TStringStream;
begin
ss := TStringStream.Create;
try
ss.WriteString(Query.FieldByName(FieldName).AsString);
ss.Position := 0;
ss.SaveToFile('C:\Test.txt');
finally
FreeAndNil(ss);
end;
end;
当我在十六进制查看器中检查文件时,第一个524,287字节(正好是1/2兆字节)看起来是正确的。剩余的字节(524,288到1,055,227)都是空值(#0),而不是原始数据。
这是将字符串字段从TSQLQuery
保存到文件的正确方法吗?我选择使用TStringStream
,因为我最终会添加代码来对流上的数据执行其他操作,而TFileStream
无法做到这一点。
答案 0 :(得分:5)
TStringStream
是TEncoding
- 在XE2中知道,但您没有在构造函数中指定任何编码,因此将使用TEncoding.Default
,这意味着您提供给它的任何字符串都将在内部转换为OS默认的Ansi编码。确保编码支持您尝试使用的Unicode字符,或者指定更合适的编码,例如TEncoding.UTF8
。
还要确保AsString
正在返回有效且正确的UnicodeString
值。如果给出垃圾作为输入,TStringStream
将无法正确保存数据。确保FieldByName()
正在返回指向TWideStringField
对象而不是TStringField
对象的指针,以便正确处理数据库的Unicode数据。