我輸入一個網址,馬上就能夠判別是否可正常連結,且要能夠秀出message. if (正常連結) ShowMessage("連結成功"); else ShowMessage("連結失敗"); 請問該如何撰寫? 謝謝.

檢查某一URL是否能被連線 void __fastcall TForm1::Button1Click(TObject *Sender) { BOOL bResult; AnsiString URL; URL="http://www.kimo.com.tw"; bResult=InternetCheckConnection(URL.c_str(),FLAG_ICC_FORCE_CONNECTION,0); if(bResult) ShowMessage("NetWork is On Line"); else ShowMessage("NetWork is not alive"); } Header: Declared in Wininet.h. Library: Use Wininet.lib. 參考網址:http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/internetcheckconnection.asp

Thanks. 使用現有元件有辦法做到嗎? 可否告知一下.

元件處理不如luckfox的方式好
如TCppWebBrowser的OnTitleChange的BSTR URL
你可以看到若不能連結網址所顯示的Title
TClientSocket也可以做到但就更麻煩
.hpp
public:        
  __fastcall TForm1(TComponent* Owner);
  // 設定exception handler.自定義異常處理窗口
  void __fastcall HandleExceptions(TObject *Sender, Exception *E);
.cpp
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ...
  // 設定exception handler.自定義異常處理窗口
  Application->OnException = HandleExceptions;
}
void __fastcall TForm1::HandleExceptions(TObject *Sender, Exception *E)
{
  if (E->Message.Length())
  {
    Screen->Cursor = crArrow;
    AnsiString errorstr="應用程序發生了錯誤.\n" E->Message;
    AnsiString S1;
    S1="發生異常";
    Application->MessageBox(errorstr.c_str(),S1.c_str(),MB_OK);
// 基本上發生不能連結，E->Message會有socket error的訊息，你要自行處理
  }
}
加一個Button，ClientSocket，一個Edit
Edit內容為網名，例：delphi.ktop.com.tw
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try  {
    if (ClientSocket1->Active)
      ClientSocket1->Active = false;
    ClientSocket1->Host =Edit1->Text;
    ClientSocket1->Port =80;
    Sleep(300);
    ClientSocket1->Active = true;
  }
  catch(...)  {
    if (ClientSocket1->Active)
      ClientSocket1->Active = false;
  }
}
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  ClientSocket1->Socket->SendText("http://" Edit1->Text) ;
  // ("http://"請最好加入
}
這也是方式，請參考

Andy Chang

------
Andy Chang