如何动态选择应用服务器? tsimpleobjectbroker 组件用不起来 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置socketconnection的各项属性不幸嘛? 给你一段我的代码,设计时将host及address置空procedure TdmArchiveConnect.Connect;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; 关于dll的问题? 搜索网页里的所有链接的递归算法的思路是什么? 集合问题,谢谢 利用acitvex form开发的ocx控件能否有传出参数?如何写传出参数?在页面上又如何调用呢?请高手赐教啊!!! 如何显示出TREEVIEW中的data数据,并令其于可写或只读状态? 关于设计模式的问题 那里有Adobe Acrobat免费下载的?不是阅读器,当然它里面包含阅读器!!! 查找子窗口 GetModuleHandle和LoadLibrary的区别在什么地方阿?? 谁知道如何实现拖动button,就能拖动整个form移动? 求助高手 delphi 中的 bpl相关知识总结 高手请进。
procedure TdmArchiveConnect.Connect;
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;