Indy TIdTCPClient伪非阻塞式的解决方案_综合

Indy是阻塞式Socekt，通过线程的方式，我们可以避免程序被阻塞。

平时在开发中，是直接用的同步模式，在线程中进行一问，一答的交互。但是这就遇到了一个问题，就是服务器没有立马响应，我们的程序就出现readtimeout异常。

这个时候就采用异步阻塞模式。

发送和接受不再是成对的了。

首先连接是服务器：

procedure TForm1.btnloginClick(Sender: TObject);
begintmrRecive.Enabled := True;//定时器启动idtcpclnt1.Host := 'xx.xx.xx.xx';idtcpclnt1.Port := 888;idtcpclnt1.ConnectTimeout := 10000;tryidtcpclnt1.Connect;except On E:Exception dobeginShowMessage('连接报错' + e.Message);Exit;end;end;
end;

发送数据

procedure TForm1.btnSendClick(Sender: TObject);
constdata: array[0..32] of Byte = (23, 32, 3, 1, 23, 25, 0, 8, 0, 86, 49, 46, 48, 46, 48, 46, 48, 4, 0, 57, 48, 50, 53, 5, 0, 77, 65, 67, 80, 67, 1, 12, 15);
varReqBuf, RespBuf: TIdBytes;I: Integer;
beginSetLength(ReqBuf, 33);for I := 0 to Length(ReqBuf) - 1 dobeginReqBuf[I] := data[I];end;tryidtcpclnt1.IOHandler.Write(ReqBuf);excepton e: Exception dobeginShowMessage('发送' + e.Message);Exit;end;end;
end;

定时器轮询接收

procedure TForm1.tmrReciveTimer(Sender: TObject);
varRespBuf: TIdBytes;
beginif (idtcpclnt1.Connected) and (not idtcpclnt1.Socket.InputBufferIsEmpty) thenbegintry{ fill the output buffer with a timeout of 10 ms }idtcpclnt1.IOHandler.CheckForDataOnSource(10);idtcpclnt1.IOHandler.InputBuffer.ExtractToBytes(RespBuf, -1, False, -1);excepton e: Exception dobeginShowMessage('接收' + e.Message);Exit;end;end;end;
end;