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

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;