try
    Datas.ADOConnection1.Connected:=True;
except
    on E:exception do
        Showmessage(E.message)
end;

引言: 小弟是使用BDE連線的!!幫幫忙吧!! ======================== 我是DELPHI的初學者

try
    DataBase1.Connected:=True;
except
    on E:excpetion do
        Showmessage(E.Message); //顯示錯誤訊息
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  if ErrorEvent =  eeConnect then begin
    Caption := 'SQL Server is not Actived.';
    ErrorCode := 0; // Reset Error
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Close;
  ClientSocket1.Host := 'localhost';
  ClientSocket1.Port := 1433;
  ClientSocket1.Open;
  Caption := 'Testing SQL Server Active...';
end;    procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption := 'SQL Server is ready.';
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ClientSocket1.Active then
    ClientSocket1.Close;
end;

引言: 用 1433 port 去檢查 SQL Server 是否可連線的方法在以下特殊情況之下 會有問題 1. 安裝 SQL Server 時，沒有安裝 TCP/IP 連線方式 2. 安裝 SQL Server 時，將預設的 1433 port 改為其他 port 所以，還是以嘗試用 TDatabase 或 TADOConnection 來連線的方法為好 加油喔，喵～

引言: 用 1433 port 去檢查 SQL Server 是否可連線的方法在以下特殊情況之下 會有問題 1. 安裝 SQL Server 時，沒有安裝 TCP/IP 連線方式

引言: 插花一下, 請教Mickey版主 我實作了TClientSocket發現有個問題 1.如果一切在連線正常下, 我在 onConnect下回應showmssage是正常的 2.如果在Internet沒有連線(我刻意拔掉線頭), 在 onError事件中回應錯誤, 但 第一次connect時並不會觸發onerror事件, 也不會像adoconnect在連不上時要等 到timeout很久的時間, 如果我再按一次button來open, 此時才會觸發onerrer事 件, 不知為何要兩次(程式如版主所寫的) 謝謝!

P.D. 兄真是心思細密, 我試了一下, 可能是我的程序不對, 並沒有試出來上述情況. 拔掉網路線,