Delphi 7 中使用IdUDPServer1和IdUDPClient1控件實現通信，可是如何檢測兩臺電腦已經連通了？代碼怎么寫啊？求大神

D7確實經典，但已經落伍了，用xe版本吧

udp發送這個東西不檢測是否通不通，用TCP連接可以檢測；
實在想用可以在server發送一個字符串，client接受到以后，反饋一個什么的字符串，表示正常通訊了

在Client端：
procedure TUDPMainForm.SendButtonClick(Sender: TObject);
var
MessageID: Integer;
ThisMessage: String;
ReceivedString: String;
begin
MessageID := Random(MAXINT);
ThisMessage := 'Message: ' + IntToStr(MessageID);
UDPMemo.Lines.Add('Sending ' + ThisMessage);
UDPClient.Send(ThisMessage);
ReceivedString := UDPClient.ReceiveString(); //該方法取得由服務端返回的信息。
if ReceivedString = '' then
UDPMemo.Lines.Add('No response received from the server after ' + IntToStr(UDPClient.ReceiveTimeout) + ' millseconds.')
else
UDPMemo.Lines.Add('Received: ' + ReceivedString)
end;

Server端：

procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
s: String;
begin
DataStringStream := TStringStream.Create('');
try
DataStringStream.CopyFrom(AData, AData.Size);
UDPMemo.Lines.Add('Received "' + DataStringStream.DataString + '" from ' + ABinding.PeerIP + ' on port ' + IntToStr(ABinding.PeerPort));
s := 'Replied from ' + UDPServer.LocalName + ' to "' + DataStringStream.DataString + '"';
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
finally
DataStringStream.Free;
end;

轉載于:https://www.cnblogs.com/jiangxm/p/6307002.html

總結

以上是生活随笔為你收集整理的Delphi 7 中使用IdUDPServer1和IdUDPClient1控件实现通信检测的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。