网上找到的用xml传输图片

发布时间：2020-12-16 08:42:27 所属栏目：百科来源：网络整理

导读：先记下来，试过后如果可用，就保留下来。用到ZLIB和base64 ProcedureStrToBmpStream(v:OleVariant;VarStream:TMemoryStream); Var Str:String; MS1:TStringStream; MS2:TMemoryStream; Begin IfVarIsNull(v)ThenExit; Str:=VarToStr(v); IfStr=''ThenExit;

先记下来，试过后如果可用，就保留下来。

用到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即可

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!