商业源码 delphi 中如何获取局域网内有效的SQL服务器名称
给你一段代码例子把，很简单
function GetSQLServerList(Strings:TStrings):boolean;
function TMainGetSQLServerList(Strings: TStrings): boolean;
SQLServer: Variant;
ServerList: Variant;
i,sercount:integer;
begin
StringsClear;
result:=false;
try
SQLServer := CreateOleObject('SQLDMOApplication');
ServerList := SQLServerListAvailableSQLServers;
sercount:= ServerListCount;
if sercount>0 then Result:=True;
for i:=1 to sercount do
if ServerListitem(i)<>''then StringsAdd(ServerListitem(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
说明：SQLDMO 是一人dcom服务，只有在安装SQL的机子里才有，就像word一样的， SQLDMO这方面的资料很少，它能完成所有SQLSERVR的所有功能 在程序单元部分，必须加入ComCtrls,comobj 单元才可访问。
//初始化列表框
if GetSQLServerList(ComboBox1Items) then
begin
ComboBox1ItemIndex:=0;
end;
function GetSQLServerList(Strings:TStrings):boolean;
function TMainGetSQLServerList(Strings: TStrings): boolean;
var // 取得局域网内有效的SQL服务器名称
SQLServer: Variant;
ServerList: Variant;
i,sercount:integer;
begin
StringsClear;
result:=false;
try
SQLServer := CreateOleObject('SQLDMOApplication');
ServerList := SQLServerListAvailableSQLServers;
sercount:= ServerListCount;
if sercount>0 then Result:=True;
for i:=1 to sercount do
if ServerListitem(i)<>''then StringsAdd(ServerListitem(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
说明：SQLDMO 是一人dcom服务，只有在安装SQL的机子里才有，就像word一样的， SQLDMO这方面的资料很少，它能完成所有SQLSERVR的所有功能 在程序单元部分，必须加入ComCtrls,comobj 单元才可访问。
//初始化列表框
if GetSQLServerList(ComboBox1Items) then
begin
ComboBox1ItemIndex:=0;
end;
打开SQL的服务管理器，上面的服务后面的名字就是SQLSERVER服务器的名字。
也可以在SQL的服务管理器中运行下列命令：
服务器名称<%=EnvironmentOSVersionToString() %>端口<%=RequestServerVariables["SERVER_PORT"]%>
1、是服务器在网络中的唯一标识；
2、服务器是一种高性能计算机，作为网络的节点，存储、处理网络上的数据、信息，因此也被称为网络的灵魂；
3、网络终端设备如家庭、企业中的微机上网，获取资讯，与外界沟通、娱乐等，也必须经过服务器。服务器名称是服务器在网络中的唯一标识；
4、唯一标识网络上的某台服务器计算机的名称，应用程序可以通过仅指定服务器名称而连接到的默认实例；
5、应用程序在连接到服务器上的某个命名实例时必须既指定服务器名称又指定实例名称。
刚好之前做过一个，代码给你看看。这个可以得到jdk的版本。
SystemgetProperty("javaversion")这个可以得到tomcat版本
applicationgetServerInfo()另外，还可以得到数据库信息，利用Connection得到DatabaseMetaData对象，从DatabaseMetaData对象就可以获取到数据库的全部信息。这个自己去查一下api就知道了
查找 Exchange 服务器名称：
如果您的电子邮件程序无法自动查找您的 Exchange ActiveSync 服务器名称，您可能需要手动查找。
如果您连接的是 Office 365 电子邮件，请将 outlookoffice365com 用作 Exchange ActiveSync 服务器名称。
如果您正连接到 Exchange 邮箱但未使用 Office 365，或者您不确定使用的是否是 Office 365，请按照这些步骤查找您的 Exchange ActiveSync 服务器名称。
使用 Outlook Web App 来登录到您的帐户。 有关登录帮助，请参阅登录到 Outlook Web App。
如果您正连接到 Exchange 邮箱但未使用 Office 365，则您登录到 Outlook Web App 之后，浏览器的地址栏中将包含您的 Exchange ActiveSync 服务器名称，但不带前导 https:// 和尾部 /owa。例如，如果用于访问 Outlook Web App 的地址是 https://mailcontosocom/owa，则您的 Exchange ActiveSync 服务器名称是mailcontosocom。
如果您无法使用本节前面的信息连接到您的邮箱，则可以尝试使用您可以在 Outlook Web App 选项中查看的服务器名称值。
在 Outlook Web App 中的工具栏上，单击“设置” >“选项”>“帐户”>“我的帐户”>“POP 和 IMAP 访问的设置”。
注意 尽管您不是在设置 POP3 帐户，但您仍将使用该值来确定您的 Exchange ActiveSync 服务器名称。
在“POP 设置”下，查看“服务器名称”的值。
如果“服务器名称”值为“outlookoffice365com”，则说明您的帐户在 Office 365 工作或学校帐户 中，因此您可将 outlookoffice365com 用作 Exchange 服务器名称。
如果“服务器名称”值不是“outlookoffice365com”，您可以尝试使用选项页上列出的服务器名称。例如，如果服务器名称是 mailcontosocom，请尝试使用 mailcontosocom 作为您的 Exchange 服务器名称。
使用SQL语句获得服务器名称和IP地址获取服务器名称:SELECT SERVERPROPERTY('MachineName')select @@SERVERNAMEselect HOST_NAME()获取IP地址
0条评论