科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网网络频道用TCP/IP做文件续传

用TCP/IP做文件续传

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

利用 TWinSocketStream 可以做到.TServerWinSocket serverSocket;TClientWinSocket clientSocket,TFileStream inFile, outFile;假设各 Stream 都己 created。

作者:论坛管理 来源:zdnet安全频道 2009年1月7日

关键字: TCP/IP

  • 评论
  • 分享微博
  • 分享邮件

tcp/ip  os  ie   

利用 TWinSocketStream 可以做到.

TServerWinSocket serverSocket;
TClientWinSocket clientSocket
TFileStream inFile, outFile;
// 假设各 Stream 都己 created

// 在 Server 端
// Client send 一个命令告知 Server 要由 536 bytes 开始传

 inFile.Position := 536;
wtih TWinSocketStream.Create(serverSocket, 60000) do
begin
CopyFrom(inFile, inFile.Size - inFile.Position + 1);
Free;
end;

// 在 Client 端 OnReadEvent 中
memStream = TMemoryStream.Create;
memStream.Size = TOTAL_FILE_SIZE;
memStream.Position := 0;
socketStream := TWinSocketStream.Create(clientSocket, 60000) do
if socketStream.WaitForData(60000) then // give the client 60 seconds writing
socketStream.Read(PCharArray(memStream.Memory)^, TOTAL_FILE_SIZE)
memStream.Position := 0;
outFile.Position := 536;
outFile.CopyFrom(memStream);

// 释放全部的对象

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章