delphi中如何仿问远程数据库

Question

首先是有权限
用ado很容易，把数据名该成ip地址即可

Answer 1

改注册表！！
给你一个例子！
reg:=tregistry.Create;
  with reg do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true) then
        begin
          WriteString('DSQUERY','DBNETLIB');
          WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号
        end
      else
        begin
          OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true);
          WriteString('DSQUERY','DBNETLIB');
          WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号
        end;
    end;