Delphi datasnap传输流/文件问题

本文整理自网络，侵删。

 
我在datasnap服务器里面定义了方法：

procedure UpdateDoc(ItemID : integer; doc : TStream);
客户端

AServerMethods_PublicClient := TServerMethods_PublicClient.Create(DM_Client.SQLConnection1.DBXConnection);

  ItemText := TMemoryStream.Create;

  try

    ItemText.LoadFromFile('E:\private\ksxt\Source\Client\Win32\Debug\blank.rtf');

    ItemText.Position := 0;

    ShowMessage('ItemText.Size := ' + IntToStr(ItemText.Size));



    AServerMethods_PublicClient.UpdateDoc(6, ItemText);

  finally

    ItemText.Free;

    AServerMethods_PublicClient.Free;

  end;
但是服务器接收到的doc的size始终为-1，无法得到流。

后使用TJSONArray进行转换，可以实现。
服务器这样写

procedure TServerMethods_Public.UpLoadFile(ADoc: TJSONArray);

var

  ADBXJSONTools : TDBXJSONTools;

  AData : TMemoryStream;

begin

  AData := TMemoryStream.Create;

  try

    AData := ADBXJSONTools.JSONToStream(ADoc) as TMemoryStream;

    ShowMessage(IntToStr(AData.Size));

    AData.SaveToFile('123.rtf');

  finally

    Adata.Free;

  end;

end;
客户端这样写

ItemText.LoadFromFile('E:\private\ksxt\Source\Client\Win32\Debug\blank.rtf');

    ItemText.Position := 0;

    ShowMessage('ItemText.Size := ' + IntToStr(ItemText.Size));

    ADoc := ADBXJSONTools.StreamToJSON(ItemText, 0, ItemText.Size);

    AServerMethods_PublicClient.UpLoadFile(ADoc);
 

相关阅读 >>

Delphi过滤一段字符里面的html代码的函数

Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行

Delphi多线程图片转换类实现

Delphi 利用驱动最简单结束进程的方法

Delphi 计算imei的校验位

Delphi tdictionary 简单用法

Delphi 主程序装载脚本

Delphi assignfile 与指定的文件建立连接

Delphi 用api函数抓取屏幕图像

Delphi 开发安卓时判断进入非活动

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi datasnap传输流/文件问题