怎么用SimpleObjectBroker动态选择服务器
解决方案 »
- dbexpress组件的packetrecord属性,在ADO组件中有无对应的?
- 怎么样捕捉鼠标滚轮滚动的消息??
- 情况是这样子的 SOCKET编程
- 阿木㊣拖鞋男的道歉信+暂别贴
- 有没有可以去掉文件后缀名的函数,比如"file.bmp"==>"file"?
- 一个关于ADOStoredProc控件的参数传递问题
- 怎样计算负的浮点数的n次幂?
- 请问将一个form作为一个过程的参数进行传递,该如何定义,如何引用?
- 如果想把硬盘上的jpg图片存入access数据库的ole对象字段应该怎么办?
- listview如何添加第三列第四列的内容
- 一个致力于软件开发、软件企业管理和软件创业的专业论坛
- 如何使dbctrlgrid多选,并使鼠标右击相当于鼠标左击
var
FIniFileName: string;
begin
//设置ini文件
FIniFileName := ExtractFilePath(Application.ExeName) + 'PHYMIS.ini'; //载入可用的应用程序服务器
ServerBroker.Servers.Items[0].ComputerName := ReadIniString(FIniFileName,
'Server', 'Server1', '');
ServerBroker.Servers.Items[1].ComputerName := ReadIniString(FIniFileName,
'Server', 'Server2', '');
ServerBroker.Servers.Items[2].ComputerName := ReadIniString(FIniFileName,
'Server', 'Server3', ''); //设定应用程序服务器
scktArchive.ServerName := 'pArchiveServer.ArchiveAgent';
scktArchive.ServerGUID := '{0334ABD2-9792-459C-8036-3288678678F5}';
//载入端口设置
scktArchive.Port := StrToInt(ReadIniString(FIniFileName, 'Server', 'Port',
'211')); //连接应用程序服务器
if scktArchive.Connected then
scktArchive.Connected := False;
try
scktArchive.Connected := True;
ServerCanUse := True;
except
ErrBox('无法连接到应用程序服务器,请检查网络设置');
ServerCanUse := False;
end;
end;