服务器端: function TServerMethods1.upPictureFile(f: TJSONArray): Boolean;
var
t:TDBXJSONTools;
s:TMemoryStream;
begin
result:=false;
try
t:=TDBXJSONTools.Create;
s:=TMemoryStream.Create;
s:=t.JSONToStream(f) as TMemoryStream;
s.SaveToFile('D:\Java学习笔记.doc');
result:=true;
finally
freeandnil(t);
freeandnil(s);
end;
end;
客户端: procedure TForm2.Button1Click(Sender: TObject);
var
proxyServer:TServerMethods1Client;
t:TDBXJSONTools;
s:TMemorystream;
f:TJSONArray;
begin
if not SQLConnection1.Connected then
SQLConnection1.Connected:=true;
try
proxyServer:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);
t:=TDBXJSONTools.Create;
s:=TMemoryStream.Create;
服务器端: function TServerMethods1.downPictureFiel(out f: TJSONArray): Boolean; var t:TDBXJSONTools; s:TMemoryStream; begin result:=false; try t:=TDBXJSONTools.Create; s:=TMemoryStream.Create;
客户端: procedure TForm2.bitbtn2Click(Sender: TObject); var proxy:TServerMethods1Client; t:TDBXJSONTools; s:TMemoryStream; aFile:TJsonArray; begin if not SQLConnection1.Connected then SQLConnection1.Connected:=true; proxy:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);