Experts Exchange connects you with the people and services you need so you can get back to work.
uses ..., wininet;
procedure TForm3.Button1Click(Sender: TObject);
const FLAG_ICC_FORCE_CONNECTION = 1;
if InternetCheckConnection('http://www.google.com', FLAG_ICC_FORCE_CONNECTION, 0)
else ShowMessage('Not connected');
Open in new window
Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
With TIdIPWatch.Create(nil) do
if ForceCheck Then
with TIdIcmpClient.Create(nil) do
Host := 'www.google.com';
ReceiveTimeout:=999; //TimeOut du ping
Result := True;
if Not Result Then ShowMessage('Google not available !');
end Else ShowMessage('No IP address');
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $143.20.
Premium members get this course for $95.20.
Premium members get this course for $49.99.
Premium members get this course for $167.20.
Premium members get this course for $108.00.
Premium members get this course for $122.40.
Premium members get this course for $159.20.