如何在 D7 中解码 XML Blob 字段

I'm having a problem trying to decode XML data returned by an instance of MS SQL Server 2014 to an app written in D7. (the version of Indy is the one which came with it, 9.00.10).

Update当我最初写这个 q 时，我的印象是 blob 字段的内容需要进行 Base64 解码，但似乎这是错误的。遵循 Remy Lebeau 的建议，blob 流在解码前但在解码后的字段名称和字段值中包含可识别文本。

在下面的代码中，AdoQuery 中的 SQL 很简单

从作者中选择 *，其中 au_lname = 'White' 对于 XML Auto

作者表是演示“pubs”数据库中的表。我添加了“Where”子句来限制结果集的大小，以便可以显示返回的 blob 的十六进制转储。

According to the Sql Server OLH, the default type of the returned data when 'For XML Auto' is specified is 'binary base64-encoded format'. The data type of the single field of the AdoQuery is ftBlob, if I let the IDE create this field.

执行下面的代码会生成异常“DecodeToStream 中的大小不均匀”。在致电时IdDecoderMIME.DecodeToString(S)，字符串 S 的长度是 3514，并且 3514 mod 4 是 2，而不是显然应该是 0，因此例外。我已经确认字段值中的字节数是 3514，因此变体的大小和字符串的长度之间没有区别，即两者之间没有任何异常。

procedure TForm1.FormCreate(Sender: TObject);
var
  SS : TStringStream;
  Output : String;
  S : String;
  IdDecoderMIME : TIdDecoderMIME;
begin
  SS := TStringStream.Create('');
  IdDecoderMIME := TIdDecoderMIME.Create(Nil);
  try
    AdoQuery1.Open;
    TBlobField(AdoQuery1.Fields[0]).SaveToStream(SS);
    S := SS.DataString;
    IdDecoderMIME.FillChar := #0;
    Output := IdDecoderMIME.DecodeToString(S);
    Memo1.Lines.Text := S;
  finally
    SS.Free;
    IdDecoderMIME.Free;
  end;
end;

Add the 类型指令 https://msdn.microsoft.com/en-us/library/ms190025.aspx指定您希望返回 XML。

select * 
from Authors 
where au_lname = 'White' 
for xml auto, type