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;
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;