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;
procedure TForm13.btn1Click(Sender: TObject);
var
begin
end;
本文介绍了一种使用Delphi客户端类和内存流将图片文件保存到服务器的方法,通过创建内存流加载图片,然后使用JSON工具将流转换为JSON格式,并通过服务器方法保存到指定位置。
402

被折叠的 条评论
为什么被折叠?



