断点续传示例源码整理

{接收一行数据Socket,超时，结束符}functionSocketRevLine(Socket:TCustomWinSocket;TimeOut:Integer;EndStr:string=#13#10):string;varbufInfo:TBufChar;i:Integer;strStream:TStringStream;{保存所有的数据}FSocketStream:TWinSocketStream;beginstrStream:=TStringStream.Create(‘‘);FSocketStream:=TWinSocketStream.Create(Socket,TimeOut);while