IdTcpClient的一个问题,以前好好的,今天就出问题了,不知道为什么

bigery CSDN会员 bigery 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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;
...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部