第一问答网»论坛 › 中问网 › 问答 › 关于delphi idtcpserver和idtcpclient的问题。

关于delphi idtcpserver和idtcpclient的问题。

11 |

0 | 2021-1-27 05:28:06 | 显示全部楼层 |阅读模式

请教，我想用idtcpserver和idtcpclient，将安卓平板与电脑相连，可以收发消息就行。目前的想法是将平板作为客户端，电脑作为服务端。
但是链接时一直链接失败。显示为：链接超时。
平板（客户端）代码：
procedureTForm1.Button1Click（Sender:TObject);//用于配置host和port，并链接
begin
IdTCPClient1.host:='141.55.217.203';//此为服务器IP地址
IdTCPClient1.Port:=1339;
IdTCPClient1.Conect;
end;
procedureTform1.IdTCPClient1Connected(Sender:TObject);
begin
Memo1.Lines.Add(idtcpclient1.Socket.ReadLn);
end;
end;
PC(服务端)代码：
procedureTForm1.Button1Click（Sender:TObject);//用于配置port，并激活。相当于初始化。
begin
IdTCPServer1.DefaultPort:=1339;
IdTCPServer1.Active:=True;
end;
procedureTform1.IdTCPServer1Connect(Sender:TObject);
begin
acontext.Contection.Socket.WriteLn('connected');
Memo1.Lines.Add('connecting..');
end;
end;
上面的代码希望的运行结果是：PC激活后，平板链接。链接成功以后，平板收到connected的消息，PC显示connecting的消息。
ps.PC上的防火墙已经检查过了，应该是没问题的。
两台设备也都在同一局域网下。
平板是fmx环境，PC是VCL环境。编译软件为RAD10.2。
但一直显示连接超时，请问是哪里出了问题。
分 -->

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行