来自MyBase Xml文件的TPicture

Question

使用Delphi 10.2我右键单击TClientDataSet并选择“Save to MyBase Xml UTF-8 table”。我现在有一个这种格式的XML文件：

<ROW NAME="Angel Fish" SIZE="2" WEIGHT="2" AREA="Computer Aquariums" BMP="AQAAAfY+AABCTfY+AAAAAAAAdgAAACgAAADIAAAAoAAAAAEA ...

BMP字段定义为：

<FIELD attrname="BMP" fieldtype="bin.hex" SUBTYPE="TypedBinary" WIDTH="1"/>

我正在尝试将我认为是二进制位图文件的Base64字符串表示形式转换为图片。到目前为止，我有这个：

uses 
  XMLDoc, Vcl.ComCtrls, XMLIntf, IdCoder, IdCoderMIME, IdGlobal,
  Vcl.ExtCtrls;

procedure TForm2.Button1Click(Sender: TObject);
var Doc:TXMLDocument;
First:IXMLNode;
Str:String;
Bytes: TIdBytes;
Pic:TPicture;
Stream:TMemoryStream;
Writer: TBinaryWriter;

begin
Doc:=TXMLDocument.Create(Self);
Doc.FileName:='D:\temp\ClientDataSet2.xml';
Doc.Active:=true;

First:=Doc.DocumentElement.ChildNodes['ROWDATA'].ChildNodes.First;
Str:=First.Attributes['BMP'];

Bytes:=TIdDecoderMIME.DecodeBytes(Str);
Stream:=TMemoryStream.Create;
Writer:=TBinaryWriter.Create(Stream);

Writer.Write(TBytes(Bytes));
Stream.Position:=0;

Pic:=TPicture.Create;
Pic.LoadFromStream(Stream);

Image1.Picture:=Pic;

RichEdit1.Text:=Str;
end;

但是，TPicture.LoadFromStream会抛出此异常：

$ 74DCCBB2的第一次机会异常。带有“不支持的流格式”消息的异常类EInvalidGraphic。

有谁能告诉我我做错了什么？非常感谢。

Answer 1

您显示的base64字符串解码为二进制数据，以实际BMP数据（0x01 0x00 0x00 0x01 0xF6 0x3E 0x00 0x00）之前的8个字节（0x42 0x4D ...）开头。 subtype属性的BMP是TypedBinary，因此这可能是某种元数据标题，表明数据是BMP图像。在将流数据加载到TPicture之前，您需要省略那些开始字节。

顺便说一句，TPicture.LoadFromStream()只是调用TPicture.Bitmap.LoadFromStream()，所以你应该用TPicture代替TBitmap：

Bmp := TBitmap.Create;
try
  Bmp.LoadFromStream(Stream); 
  Image1.Picture.Assign(Bmp);
finally
  Bmp.Free;
end;