先记下来，试过后如果可用，就保留下来。
用到ZLIB和base64
ProcedureStrToBmpStream(v:OleVariant;VarStream:TMemoryStream);Var
Str:String;
MS1:TStringStream;
MS2:TMemoryStream;
Begin
IfVarIsNull(v)ThenExit;
Str:=VarToStr(v);
IfStr=''ThenExit;
MS1:=TStringStream.Create(Str);
MS2:=TMemoryStream.Create;
Base64DeCodeStream(MS1,MS2);
MS2.Position:=0;
ZDecompressstream(MS2,Stream);
Stream.Position:=0;
FreeAndNil(MS2);
FreeAndNil(MS1);
End;
FunctionBmpStreamToStr(Stream:TMemoryStream):String;
MS1:TMemoryStream;
MS2:TStringStream;
MS1:=TMemoryStream.Create;
MS2:=TStringStream.Create('');
ZCompressstream(Stream,MS1,zcMax);
MS1.Position:=0;
Base64EnCodeStream(MS1,245)">Result:=MS2.DataString;
ms:=TMemoryStream.Create;
StrToBmpStream('这里是BASE64编码的字符',ms);
image1.Picture.Bitmap.LoadFromStream(ms);
MS.Clear;
image1.Picture.Bitmap.SavetoStream(MS);
str:=BmpStreamToStr(MS)
将字符保存到XML即可
