死亡历险，Delphi以Json方式一次传递多张图片通过WebService到Java保存

Unit1.pas


procedure TForm1.btn20Click(Sender: TObject);
var
  addResult:string;
  strm : TMemoryStream;
  i:Integer;


  ms:TMemoryStream;
  ss:TStringStream;
  s:string;


  jfields,jitems,jo:ISuperObject;
begin
    jitems:=SA([]);
    jo:=SO();




    if img1.Picture.Graphic<>nil then
    begin
      strm := TMemoryStream.Create;
      img1.Picture.Graphic.SaveToStream(strm);
      ss := TStringStream.Create('');
      strm.Position:=0;//移动指针到最开头的位置
      EncodeStream(strm,ss);//将内存流编码为base64字符流
      s:=ss.DataString;


      jfields:=SO();
      jfields.S['image']:=s;
      jitems.AsArray.Add(jfields);
         
      strm.Free;
      ss.Free;
    end;


    if img2.Picture.Graphic<>nil then
    begin
      strm := TMemoryStream.Create;
      img2.Picture.Graphic.SaveToStream(strm);
      ss := TStringStream.Create('');
      strm.Position:=0;
      EncodeStream(strm,ss);//将内存流编码为base64字符流
      s:=ss.DataString;


      jfields:=SO();
      jfields.S['image']:=s;
      jitems.AsArray.Add(jfields);
      
      strm.Free;
      ss.Free;
    end;


    if img3.Picture.Graphic<>nil then
    begin
      strm := TMemoryStream.Create;
      img3.Picture.Graphic.SaveToStream(strm);
      ss := TStringStream.Create('');
      strm.Position:=0;
      EncodeStream(strm,ss);//将内存流编码为base64字符流
      s:=ss.DataString;