请问如何获得本机名称和服务器名称。

Question

用ADO连接（应该和这个没关系）。。

Answer 1

就是想显示出当前连接是SQL SEVER是哪个（局域网内有好多个服务器）,以及显示本机的名称是什么，以便记录

Answer 2

function GetComputerUserName: AnsiString;
var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;
  begin
    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;
    fl_loaded := GetComputerName(CNameBuffer,CLen^);
    if fl_loaded then
      Result:= StrPas(CNameBuffer)
    else
      Result:= 'Unkown';
    FreeMem(CNameBuffer,255);
    Dispose(CLen);
end;

Answer 3

若是想通过数据库访问组件获取，可以查一下SQL的系统存储过程之类的，里面有相关的存储过程可以获取。

Answer 4

谢谢lcg412。　不知道如何能显示所连接的服务器。