代码设置TSQLCONNECTION参数

最新推荐文章于 2021-02-07 20:37:36 发布

原创最新推荐文章于 2021-02-07 20:37:36 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #string #user

midas 专栏收录该内容

34 篇文章

订阅专栏

本文介绍了一个用于连接远程服务器的函数functionConnRemoteSvr。该函数通过指定主机名、用户名、密码及端口号来配置TSQLConnection组件，并尝试建立与DataSnap服务器的连接。如果连接成功，则返回True；若出现异常，则返回False。

function ConnRemoteSvr(cn:TSQLConnection;const hostname,UserName,password:string; const port:Integer):Boolean;
begin
try
cn.Close;
cn.DriverName := 'DataSnap';
cn.LoginPrompt :=False;
Cn.ConnectionName := 'DataSnapCONNECTION';
cn.Params.Clear;
cn.Params.Add('DriverName=DataSnap');
Cn.Params.Add('HostName='+HostName);
Cn.Params.Add('Port='+inttostr(port));
Cn.Params.Add('User_Name='+UserName);
Cn.Params.Add('Password='+PassWord);
cn.Open;
Result :=True;
except
Result :=False;
end;