IdTcpClient的一个问题,以前好好的,今天就出问题了,不知道为什么
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTcpClient1.Host := InputBox('connect', 'ip address', '127.0.0.1'); //sqlserver
IdTcpClient1.Port := 1433; //sqlserver tcp/ip
try
IdTcpClient1.Connect(); //这个地方编译出错误!
if not IdTcpClient1.Connected then
begin
ShowMessage('无法连接数据库!!!');
self.Close;
exit; //ÎÞ·¨Á¬½Ósqlserver
end
else
begin
IdTcpClient1.Disconnect; //Á¬½Ó³É¹¦;
ShowMessage('连接成功!');
end;
except
ShowMessage('无法打开数据库');
application.Terminate;
end;
end;
begin
IdTcpClient1.Host := InputBox('connect', 'ip address', '127.0.0.1'); //sqlserver
IdTcpClient1.Port := 1433; //sqlserver tcp/ip
try
IdTcpClient1.Connect(); //这个地方编译出错误!
if not IdTcpClient1.Connected then
begin
ShowMessage('无法连接数据库!!!');
self.Close;
exit; //ÎÞ·¨Á¬½Ósqlserver
end
else
begin
IdTcpClient1.Disconnect; //Á¬½Ó³É¹¦;
ShowMessage('连接成功!');
end;
except
ShowMessage('无法打开数据库');
application.Terminate;
end;
end;
...全文
相关推荐
INDY 10 的idTCPSERVER 和idTCPCLIENT 通讯的例子
INDY 10 的idTCPSERVER 和idTCPCLIENT 通讯的例子
Delphi7 基于IdTcpserver和IdTcpClient的通讯程序
Delphi7 基于IdTcpserver和IdTcpClient的通讯程序
delphi7的IdTCPClient和IdTCPServer的write用法
delphi7的IdTCPClient和IdTCPServer的write用法
Delphi简单IDTCPsever和IDTCPclient应用
在程序中,服务端与客户端相连接后,应用readln和writerln实现两个程序字符串的链接
IdTcpClient、IdTcpServer 演示程序修正版
<br> IdTcpClient、IdTcpServer 演示程序修正版。<br><br> 演示程序的功能:不同的客户端发送消息、群发消息。类似<br>局域网内的 QQ 的功能。<br><br> 从官方站点下载的演示程序,由于在Server端的线程列表里<br>不能正确区分所有连接的客户端,所以只能“群发”消息,而不能<br>给指定的客户端发送消息(这个功能原代码里实现了,但是有Bug,<br>所以不能用,修正版正是修正了这个错误)。<br><br> 本人修改后的代码通过 IP 地址区分不同的客户端,接收人<br>(Recipient)填写IP地址,就能发送消息。接收人


网络通信/分布式开发
