Проверка соединения с интернетом.

[boostman]

Скажите код того чтобы программа проверяла соединение с интернетом и если его нету закрывалась. Заранее спасибо

[Terran]

Сообщение от boostman

Скажите код того чтобы программа проверяла соединение с интернетом и если его нету закрывалась. Заранее спасибо

Посмотрите здесь: http://programmersforum.ru/showthread.php?t=26581

Нижеприведённый код взят из подписи mihali4 DFaq

Самый лучший способ - попытаться открыть заведомо работающий УРЛ:

uses wininet; 

function CheckUrl(url: string): boolean; 
var 
  hSession, hfile, hRequest: hInternet; 
  dwindex, dwcodelen: dword; 
  dwcode: array [1..20] of char; 
  res: pchar; 
begin 
  if pos('http://', lowercase(url)) = 0 then 
    url := 'http://'+url; 
  Result := false; 
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
  if assigned(hsession) then 
  begin 
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); 
    dwIndex := 0; 
    dwCodeLen := 10; 
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); 
    res := pchar(@dwcode); 
    result := (res = '200') or (res = '302'); 
    if assigned(hfile) then 
      InternetCloseHandle(hfile); 
    InternetCloseHandle(hsession); 
  end; 
end;

********************************************************
Пингуем Рамблер:

IdIcmpClient1: TIdIcmpClient;
....
procedure TForm1.Button1Click(Sender: TObject);
var rc : DWORD;
begin
try
IdIcmpClient1.Ping;
except
rc := GetLastError;
Caption:=SysErrorMessage(rc);
end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
caption:=AReplyStatus.FromIpAddress+' '+inttostr(AReplyStatus.MsRoundTripTime);
end;

[ZeitGeist7]

такой вопрос: как мне сделать так чтобы пользователь мог вводить свою ссылку на наличие соединения с ней.
то есть не только к рамблеру но и ещё куда нибудь на выбор пользователя.

[Terran]

Сообщение от ZeitGeist7

такой вопрос: как мне сделать так чтобы пользователь мог вводить свою ссылку на наличие соединения с ней.
то есть не только к рамблеру но и ещё куда нибудь на выбор пользователя.

Используйте функцию function CheckUrl(url: string): boolean; (Которая приведена выше)
Вызывать её можете так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If CheckUrl(Edit1.Text) Then
Begin
ShowMessage('Соединение установлено');
End
Else
Begin
ShowMessage('Не удаётся установить соединение');
End;
End;

[ZeitGeist7]

спасибо большое!

Внимательно читаем правила раздела, а также форума в целом.
Закрыто.