請問各位大大: 是否有比較快的方法可以判斷mysql 伺服器是否存在可以工作.

Hi, 可以使用 fastnet 的 powersocket , 不過這是個偵測是否有 listen 而且, 並非真的有 mySql 在該主機上執行, 不過這是一個比較快的方式. mySql 是 listen 3306 port 的, 所以程式碼如下:    

procedure TForm1.Button6Click(Sender: TObject);
var
  bListening: Boolean;
begin
  Powersock1.Host := '192.168.1.1';
  Powersock1.Port := 3306;
  bListening := false;
  try
    Powersock1.Connect;
    bListening := true;
    Powersock1.Disconnect;
  except
    bListening := false;
  end;
end;

請問timhuang大大: Powersock是delphi內建的嗎? 我可以到那裏找到它呢? 在下是使用delphi7

是在fastnet元件盤裡的Powersock, delphi 5和 delphi 6都有, delphi 7 好像沒有, 不過也可以使用 indy clients 的元件 idtcpclient 試試看.    

procedure TForm1.Button1Click(Sender: TObject);
var
  bListen : Boolean;
begin
  IdTCPClient1.Host := '192.168.1.1';
  IdTCPClient1.Port := 3306;
  bListen := false;
  try
    IdTCPClient1.Connect;
    bListen := true;
  except
    bListen := false;
  end;
  IdTCPClient1.Disconnect;
end;

發表人 - timhuang 於 2003/04/22 15:44:03

謝謝timhuang大大 但是我發現如果該IP不存在的話, 程式會想好幾秒,所以我想先確定 ip是否存在.

要先確認是不是 ip alive 可以利用 IdIcmpClient 元件, 該元件就是 ping 的功能.    

var
  Form1: TForm1;
  iLive: integer;
implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.ReceiveTimeout := 1000;  //設定回應的等候時間
  IdIcmpClient1.Host := '192.168.99.1';
  iLive := 0; //執行前先給 0
  try
    IdIcmpClient1.Ping;
  except
    iLive := 2;
  end;
end;    procedure TForm1.IdIcmpClient1Status(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
  Memo1.Lines.Add('status' asStatusText);
end;    procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if AReplyStatus.FromIpAddress <> '0.0.0.0' then
    iLive := 1 //成功
  else
    iLive := 2; //失敗
  showmessage(inttostr(iLive));
end;

謝謝timhuang 大大熱心指導: 我就是想要這個功能!

謝謝timhuang 大大熱心指導: 我就是想要這個功能!