Delphi7 IdTcpClient 连接问题?
现在我有个 IdTcpClient 和 IdTcpServer 做的两个应用程序,一个客户端 一个服务端。
如果是在本机和局域网上,这两个程序可以相互通信,现在我需要将客户端放置在远程电脑上,需要通过互联网进行访问! 但是客户端连接不上服务端了。
在服务器上的 PORT=8123,在客户端使用这个端口和网络IP地址访问服务端,连接不上。
请问,在互联网上使用,是不是要通过什么中间件来做桥才能连接都上还是我那里设置的不对。
服务段代码:
tcpServer.DefaultPort := sePort.Value; tcpServer.Active := true;
if (edtServerIP.Text <> '') and (edtName.Text <> '') and (not bConnected) then begin IdTCPClient.Host := edtServerIP.Text; IdTCPClient.Port := sePort.Value; try IdTCPClient.Connect; stat1.Panels[0].Text := '已连接到服务器'+edtServerIP.Text+' 连接时间:'+DateTimeToStr(Now); except mmoMsg.Lines.Add('无法连接到服务器'+edtServerIP.Text+',请联系管理员!'); end; end else begin if (edtServerIP.Text = '') or (edtName.Text = '') then ShowMessage('您需要输入服务器地址和用户名称才能连接到服务器。'); bConnected := False; end;