0

我正在使用 Delphi XE8 开发移动应用程序和桌面应用程序。在移动应用程序中，我使用 TIDtcpClient 组件，在桌面应用程序应用程序中，我使用 TServerSocket。

服务器桌面应用程序包含包含大约 1500 条记录的 TList。为了在客户端移动应用程序中获取这些值，我使用以下方法。

  1. 首先，下载请求从客户端移动应用程序发送到服务器应用程序。
  2. 接下来，它检索 10 条记录并发送回客户端移动应用程序。在此之后，它更新客户端列表中的值，然后再次将请求发送回服务器应用程序。
  3. 直到记录数达到，这个过程继续。

问题是当我采用这种方法时，它需要将近 2 分钟的时间，并且我正在正确获取所有数据。所以我决定使用文件流方法。下面我提到了示例代码：

服务器端应用程序：

//first saved the List into FileStream & it is working as I have reloaded and checked
//So again I'm loading the saved file, The file Size is near to 400KB
FileStream := TFileStream.Create('D:\ListDet.dat', mtfmOpenRead);
Socket.SendStream(FileStream);

客户端移动应用程序：

var 
  FileS: TFileStread;
  i: Size;
begin
//Inside the thread
  TiDTcpClient.IOHandler.ReadStream(FileS, i);
end;

当我使用上述方法时，我得到了异常，我无法检索数据。

请为我提供任何解决方案以更快地从服务器到客户端检索数据。

4

1 回答 1

0

问题是当我采用这种方法时，它需要将近 2 分钟的时间，并且我正在正确获取所有数据。

您没有显示/解释在那种情况下您用于发送数据的实际 I/O 方法。

所以我决定使用文件流方法......当我使用上述方法时，我得到[客户端应用程序（移动）中的正常关闭异常]并且我无法检索数据

TCustomWinSocket.SendStream()只是按TStream原样发送内容，它不发送任何其他内容。

您将一个未初始化的变量, i, 传递给TIdIOHandler.ReadStream()。该参数告诉ReadStream()要读取多少字节。由于i未初始化，因此它的值是当时恰好在堆栈上的任何随机数据。

如果i碰巧> 0在运行时，那就是ReadStream()尝试读取的字节数。如果实际上没有发送那么多字节，ReadStream()将阻止调用线程等待更多字节，直到它ReadTimeout过去（默认情况下是无限的）或套接字断开连接。

如果i恰好是正确-1的（AReadUntilDisconnect默认情况下参数为 False），ReadStream()将尝试从套接字读取Integer/ Int64（取决于TIdIOHandler.LargeStream属性）并将其用作字节数来完成读取流的其余部分。 TCustomWinSocket.SendStream()没有发送任何这样的大小值。

如果i碰巧是< 0，ReadStream()将简单地忽略字节数并继续阅读，直到套接字断开连接（AReadUntilDisconnect强制为 True）。

的默认行为TIdIOHandler.ReadStream()是期望流数据前面有流大小，但是您通过传递未初始化的i变量来覆盖该行为，因此该行为是未定义的。

您的服务器在发送流数据之前没有发送流大小，因此客户端无法知道需要多少字节，除非您在发送流后断开套接字。

于 2015-06-27T01:31:25.860 回答