datasnap传输流/文件问题

页面导航:首页 > 软件编程 > Delphi > datasnap传输流/文件问题

datasnap传输流/文件问题

来源: 作者: 时间:2016-01-18 15:41 【

我在datasnap服务器里面定义了方法:procedure UpdateDoc(ItemID : integer; doc : TStream);客户端AServerMethods_PublicClient := TServerMethods_PublicClient.Create(DM_Client.SQLConnection1.DBXC...

我在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);

 

摘自 编码笔记
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<