JSON如何序列图片
图片采用JSON格式传输的话，需要把图片转成Base64格式。
首先把图片转成流：
Image1.Picture.Graphic.SaveToStream(ss);
然后编码成base64格式的：
EncodeStream(ss, ss1);
注意ss和ss1的定义：
var
ss: TMemoryStream;
ss1,ss2 : TStringStream;
EncodeStream的调用需要引用EncdDecd.pas单元。
然后把流转成字符串
var
sdata : string;
begin
...
sData := ss1.DataString;
...
end;
再把该字符串包装到JSON串：
var
aqjson : TQJSON;
begin
aqjson := TQJSON.Create;
aqjson.Parse(memo3.Lines.Text);
...
aqjson.AddArray(‘pic‘).Add.AsString :=sdata;
...
end;
这样图片就打包到JSON里面了，收到以后，再反过来解析即可：
ss2 := TStringStream.Create(aqjson.ItemByName(‘pic‘).Items[0].value);
DecodeStream(ss2,ss);//将base64字符流还原为内存流
ss.Position := 0; // 必须
Image2.Picture.Graphic.LoadFromStream(ss);
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
