简单问题，送100分！

Question

server info:
  ServerName: Server
  mssql7 in c:\mssql7
  Database Name = pubs
  共享了一个目录： \\Server\Share
client:
  backup to \\server\share\pubs.bak   with TQuery.Create(nil) do
   try
     DatabaseName := Database1.databaseName;
     SQL.Text := Format('backup database pubs to disk=''%s'' with init',
       ['\\server\share\pubs.bak'])
     ExecSQL;
   finally
     Free;
   end;  restore:
  //1: disconnect pubs, connect to master
  with Database1 do
  begin
    Connected := False;
    Params.Values['DATABASE'] := 'master';
    Connected := True;
  end;
  with TQuery.Create(nil) do
  try
    DatabaseName := Database1.DatabaseName;
    SQL.Text := Format('restore database pubs from disk=''%s'' with replace, ' +
      move ''pubs_dat'' to ''c:\mssql7\data\pubs.mdf'', ' + 
      move ''pubs_log'' to ''c:\mssql7\data\pubs.ldf''', ['\\server\share\pubs.bak']);
    ExecSQL;
  finally
    Free;
  end;
//'pubs_dat'和'pubs_log'可以从去查看(MMC)

Answer 1

嘿嘿，我来告诉你吧！
因为我刚和别人合作完成了一个这样的程序。我先告诉你，利用拨号服务器行！！一方打开拨号服务器，另一方对着它拨号，拨通了之后，就可以想用程序干什么就干什么了！！网上邻居都可以看到的。至于程序嘛！！还不是可以用封装了WinSock API的控件（Delphi那几个常用的都可以），因为Winsock API是一套与协议无关的API嘛！！

Answer 2

to summernightrain:
  你用的是那个控件呀？