测试SQL网络

• tiegerium
• (/*唐秀观*/)

  回复于：2004-09-17 09:35:18

  
  TForm1   *Form1; 
  //--------------------------------------------------------------------------- 
  __fastcall   TForm1::TForm1(TComponent*   Owner) 
                  :   TForm(Owner) 
  { 
          ADOConnection1-> Connected=true; 
          ADODataSend   =   new   TADOConnState(true); 
          ADODataSend-> FreeOnTerminate=true; 
          PingToSQLServer( "192.168.0.100 "); 
  } 
  //--------------------------------------------------------------------------- 
  
  void   __fastcall   TForm1::FormShow(TObject   *Sender) 
  { 
            ADODataSend-> Resume(); 
  } 
  //--------------------------------------------------------------------------- 
  void   __fastcall   TForm1::FormClose(TObject   *Sender,   TCloseAction   &Action) 
  { 
            ADODataSend-> Terminate(); 
  } 
  //--------------------------------------------------------------------------- 
  void   __fastcall   TForm1::PingToSQLServer(String   strHost) 
  { 
          NMEcho1-> Host=strHost; 
          NMEcho1-> TimeOut=100; 
          NMEcho1-> Port=1433; 
          NMEcho1-> ReportLevel=Status_Basic; 
          if(NMEcho1-> BeenTimedOut)return; 
          try 
          { 
                  NMEcho1-> Connect(); 
          } 
          catch(...) 
          { 
                  NMEcho1-> Disconnect(); 
          } 
  } 
  void   __fastcall   TForm1::NMEcho1HostResolved(TComponent   *Sender) 
  { 
            Label1-> Caption= "Host   Resolved! "; 
  } 
  //--------------------------------------------------------------------------- 
  
  void   __fastcall   TForm1::NMEcho1InvalidHost(bool   &Handled) 
  { 
            AnsiString   s; 
            if(InputQuery( "Invailid   host! ", "Specify   a   new   host: ",s)) 
            { 
                    NMEcho1-> Host=s; 
                    Handled=true; 
            } 
  } 
  //--------------------------------------------------------------------------- 
  
  void   __fastcall   TForm1::NMEcho1Connect(TObject   *Sender) 
  { 
          Label2-> Font-> Color=clBlue; 
          Label2-> Caption= "Echo   has   connected   host! "; 
  } 
  //--------------------------------------------------------------------------- 
  
  void   __fastcall   TForm1::NMEcho1ConnectionFailed(TObject   *Sender) 
  { 
          Label2-> Font-> Color=clRed; 
          Label2-> Caption= "Connection   failed! "; 
  } 
  //--------------------------------------------------------------------------- 
  void   __fastcall   TForm1::CheckSQLServerLink(void) 
  { 
          if(NMEcho1-> Connected) 
          { 
              ADOConnection1-> Connected=true; 
              Label1-> Caption= "数据库连接中... "; 
          } 
          else 
          { 
                  Label1-> Caption= "网络故障！... "; 
                  ADOConnection1-> Connected=false; 
                  PingToSQLServer( "192.168.0.100 "); 
          } 
  } 
  //----------------------------------------------------------------------- 
  void   __fastcall   TADOConnState::Execute() 
  { 
                  //----   Place   thread   code   here   ---- 
                  while(!Terminated)Synchronize(Form1-> CheckSQLServerLink); 
  } 
  //--------------------------------------------------------------------------- 
  
  class   TForm1   :   public   TForm 
  { 
  __published: //   IDE-managed   Components 
                  TADOConnection   *ADOConnection1; 
                  TADODataSet   *ADODataSet1; 
                  TLabel   *Label1; 
                  TTimer   *Timer1; 
                  TNMEcho   *NMEcho1; 
                  TLabel   *Label2; 
                  void   __fastcall   FormShow(TObject   *Sender); 
                  void   __fastcall   FormClose(TObject   *Sender,   TCloseAction   &Action); 
                  void   __fastcall   Timer1Timer(TObject   *Sender); 
                  void   __fastcall   NMEcho1HostResolved(TComponent   *Sender); 
                  void   __fastcall   NMEcho1InvalidHost(bool   &Handled); 
                  void   __fastcall   NMEcho1Connect(TObject   *Sender); 
                  void   __fastcall   NMEcho1ConnectionFailed(TObject   *Sender); 
  private: //   User   declarations 
                                  TADOConnState   *ADODataSend; 
  public: //   User   declarations 
                  __fastcall   TForm1(TComponent*   Owner); 
                  void   __fastcall   PingToSQLServer(String   strHost); 
                  void   __fastcall   CheckSQLServerLink(void); 
  };