掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
インターネット接続確認をするには？ (ID：6304)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 なんどもすみません。特定サイトにアクセスしてピングする感じで uses WinInet; function CheckInternetConnect:Boolean; var hOpen,hURL:HINTERNET; begin result := false; hOpen := InternetOpen('CIAAgent',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); if not Assigned(hOpen) then exit; hURL := InternetOpenURL(hOpen,'http://www.google.com/intl/ja/',nil,0,0,0); if not Assigned(hURL) then begin InternetCloseHandle(hOpen); exit; end; InternetCloseHandle(hURL); InternetCloseHandle(hOpen); result := true; end; procedure TForm1.Button1Click(Sender: TObject); begin if CheckInternetConnect then Label1.Caption := 'Connected' else Label1.Caption := 'Disconnected'; end; こんなふうにしたら、接続・切断ともに数秒のうちに確認できました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.