用配置文件设置服务端数据库连接和端口号，服务端的URL地址

最新推荐文章于 2023-02-01 21:13:36 发布

cydenghua

最新推荐文章于 2023-02-01 21:13:36 发布

阅读量1.8k

点赞数

分类专栏： RO+DA 文章标签：数据库 url string server function ini

本文链接：https://blog.csdn.net/cydenghua/article/details/4058151

版权

RO+DA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

//在ro的服务端写入如下代码，从ini配置文件读取数据库连接，设置端口号
procedure TServerDataModule.DataModuleCreate(Sender: TObject);
var aExePath:String;
    aIni:TInifile;
    aConnectionString:String;
    aPort:integer;
begin
aExePath:=ExtractFilePath(paramstr(0));
try
    aIni:=TIniFile.Create(aExePath+'Config.ini');
    aConnectionString:=aIni.ReadString('Server','ConnectionString','');
    aPort:=aIni.ReadInteger('Server','Port',8099);
    ConnectionManager.Connections[0].ConnectionString :=aConnectionString;
    Server.Port :=aPort;
    Server.Active :=true;
finally
    aIni.Free;
end;
end;

//设置客户端的url地址
function GetTargetURL: String;
var aExePath:String;
    aIni:TInifile;
    aTargetURL:String;
begin
aExePath:=ExtractFilePath(paramstr(0));
try
    aIni:=TIniFile.Create(aExePath+'Config.ini');
    aTargetURL:=aIni.ReadString('Server','TargetURL','');
finally
    aIni.Free;
    Result:=aTargetURL ;
end;
end;
Channel.TargetURL :=GetTargetURL;