Как проверить соединение с интернет

[SeRhy]

Я ж не ламер чтобы не кинуть компонент и вызывать его...) Выскакивает окно "Debugeger Exception Notification" с ошибкой "Project Project1.exe raised exception class EConvertError with message 'Invalid argument to date encode'. Process stopped. Use Step or Run to continue."

[TwiX]

Вот выкладываю проект с кнопкой и этой функцией)

[SeRhy]

Говорит что инет есть, но все таки перед етим таже ошибка валит(((

[TwiX]

Это с Indy чего-то уже

[profi]

SeRhy ошибка и будет вылазить. Так как сам Delphi же запускает программу на исполнение. Ты запусти exe отдельно. Ошибки не будет.

[TwiX]

Почему должна быть ошибка???
Если бы выскочила ошибка, то мы бы попали в секцию except и получили сообщение, что интернета нет.

[Alter]

Вот на дельфе:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
 INTERNET_CONNECTION_MODEM      = 1;
 INTERNET_CONNECTION_LAN        = 2;
 INTERNET_CONNECTION_PROXY      = 4;
 INTERNET_CONNECTION_MODEM_BUSY = 8;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function IsInternetConnected: Boolean;
  function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';

implementation

{$R *.dfm}

function IsInternetConnected: Boolean;
var
 dwConnectionTypes: DWORD;
begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM or
                      INTERNET_CONNECTION_LAN or
                      INTERNET_CONNECTION_PROXY;
 Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case IsInternetConnected of
 True: ShowMessage('Есть связь');
 False: ShowMessage('Нет связи');
  end;
end;

end.

[foxes]

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

[Memfis1992]

у меня вот такая ошибка:

[Pasha_Sh]

Memfis1992 Киньте на форму компонент TcpClient с закладки Internet.
Далее вот код:

if tcpClient1.LocalHostAddr <>'127.0.0.1'  then showmessage('Мы в Интернете!!!')
else showmessage('Соединение с интернетом отсутствует!!!');

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

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

на таймер поставь