摄影网站备案,建设网站企业邮箱,建商城网站多少钱,wordpress做出的网站https://www.cnblogs.com/zhangzhifeng/p/6065244.html TServerSocket和TClientSocket用非阻塞模式发送和接收比较大的数据时#xff0c;可能一次会接收不完#xff0c;此时需要通过循环接收。 //接收 procedure TMAINFORM.TCPServer1ClientRead(Sender: TObject;Socket: TCu… https://www.cnblogs.com/zhangzhifeng/p/6065244.html TServerSocket和TClientSocket用非阻塞模式发送和接收比较大的数据时可能一次会接收不完此时需要通过循环接收。 //接收 procedure TMAINFORM.TCPServer1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
variLength,IiStart, iRevCount: Integer;iReceived: Integer;buff: array of byte;S:STRING;
beginS:;iStart : 0;iLength: Socket.ReceiveLength;iRevCount : iLength; //这里加入的SetLength(buff, iLength);MEMO1.Lines.Add(INTTOSTR(ILENGTH));while iLength0 dobeginiReceived : Socket.ReceiveBuf(buff[iStart], iLength); //这里修改了注意iStart : iStart iReceived ; //这里加入的iLength : iLength - iStart;end;//下面你的iLength 使用 iRevCount 替换了FOR I:0 TO iRevCount -1 DOBEGINS:SINTTOSTR(BUFF[I]);END;MEMO1.Lines.Add(S);buff: nil;
end;发送Socket.SendBuf 转载于:https://www.cnblogs.com/tc310/p/9761301.html
