怎么用SimpleObjectBroker动态选择服务器
解决方案 »
- procedure RealizeLength
- 如何操作窗体右上角的 那两个按钮.
- delphi里主变量怎样用到sql语言里
- delphi代码问题(是旺仔哥哥DELPHI群里的人员都进来帮我啊!自己人给少点分哦)
- 定义涵数时,参数定义为指针,比如byte指针,如何去实现!?
- 能否实现将几个数据表的数据导到一个EXCEL数据表的对应几个sheet中?
- fastreport的数据字典中的字段别名问题(当天结贴)
- 把DBGrid的一条记录值赋给另外一个窗体上的Edit.Text里,该怎么做?
- 急,关于登陆时的问题(用的是adoconnect),请各位帮忙!!(我是菜鸟。)
- 关于用sql语句向sql server写入nText字段的问题
- 一个致力于软件开发、软件企业管理和软件创业的专业论坛
- 如何使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;