利用TJSONArray向REST服务器发送文件

来源:互联网 发布:济南网络推广公司 编辑:程序博客网 时间:2024/04/29 19:57
uses
ClientClassesUnit4,ClientModuleUnit4;
procedure TForm13.btn1Click(Sender: TObject);
var
aserver:TServerMethods1Client;
MS:TMemoryStream;
ja:TJSONArray;
begin
ms:=TMemoryStream.Create;
ms.LoadFromFile('d:\aa.jpg');
ms.Position:=0;
aserver:=ClientModule4.ServerMethods1Client;
ja:=TDBXJSONTools.StreamToJSON(MS,0,ms.Size);
aserver.savefn(ja);
end;
原创粉丝点击