先記下來，試過后如果可用，就保留下來。

用到ZLIB和base64

Procedure?StrToBmpStream(v:?OleVariant;?Var?Stream:?TMemoryStream);
Var
??Str:?String;
??MS1:?TStringStream;
??MS2:?TMemoryStream;
Begin
??If?VarIsNull(v)?Then?Exit;
??Str?:=?VarToStr(v);
??If?Str?=?''?Then?Exit;
??MS1?:=?TStringStream.Create(Str);
??MS2?:=?TMemoryStream.Create;
??Base64DeCodeStream(MS1,?MS2);
??MS2.Position?:=?0;
??ZDecompressStream(MS2,?Stream);
??Stream.Position?:=?0;
??FreeAndNil(MS2);
??FreeAndNil(MS1);
End;

Function?BmpStreamToStr(Stream:?TMemoryStream):?String;
Var
??MS1:?TMemoryStream;
??MS2:?TStringStream;
Begin
??MS1?:=?TMemoryStream.Create;
??MS2?:=?TStringStream.Create('');
??Stream.Position?:=?0;
??ZCompressStream(Stream,?MS1,?zcMax);
??MS1.Position?:=?0;
??Base64EnCodeStream(MS1,?MS2);
??Result?:=?MS2.DataString;
??FreeAndNil(MS2);
??FreeAndNil(MS1);
End;


????????ms?:=?TMemoryStream.Create;
????????StrToBmpStream('這里是BASE64編碼的字符',?ms);
image1.Picture.Bitmap.LoadFromStream(ms);


??MS.Clear;
??image1.Picture.Bitmap.SaveToStream(MS);
??str:=BmpStreamToStr(MS)
?將字符保存到XML即可

總結(jié)

以上是生活随笔為你收集整理的网上找到的用xml传输图片的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。