Узнать состояние подключения

[Hottabych]

У меня такой вопрос: Нужно узнать состояние соединения и если True, то подключиться к smtp серверу и послать Message...

[Квэнди]

if <состояние подключения>=true then
begin
<подключиться к SMTP серверу>;
<послать Message>;
end;

каков вопрос, таков ответ.

[Hottabych]

Ответ оригинальны ... А в деталях?
Хотелось бы саму функцию "<состояние подключения>", а то все которые смотрел не работают( или у меня руки кривые )...

[Квэнди]

а что есть подключение ? ато пока занимаемся лишь медитацией. Описывайте нормально что вы используете, что делаете, что необходимо получить в результате.

[Hottabych]

извиняюсь... Короче, есть подключение (gprs модем) и моя прога перед тем как отправить почту проверяет, активно ли оно. Вот такая бы казалось мелочь

[Квэнди]

InternetGetConnectedState
Retrieves the connected state of the local system.

BOOL InternetGetConnectedState(
LPDWORD lpdwFlags,
DWORD dwReserved
);

Parameters
lpdwFlags
[out] Pointer to a variable that receives the connection description. This parameter may return a valid flag even when the function returns FALSE. This parameter can be one or more of the following values.Value Meaning
INTERNET_CONNECTION_CONFIGURED
0x40 Local system has a valid connection to the Internet, but it might or might not be currently connected.
INTERNET_CONNECTION_LAN
0x02 Local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_MODEM
0x01 Local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM_BUSY
0x08 No longer used.
INTERNET_CONNECTION_OFFLINE
0x20 Local system is in offline mode.
INTERNET_CONNECTION_PROXY
0x04 Local system uses a proxy server to connect to the Internet.

dwReserved
[in] Reserved. Must be zero.
Return Value
Returns TRUE if there is an active modem or a LAN Internet connection, or FALSE if there is no Internet connection, or if all possible Internet connections are not currently active. For more information, see the Remarks section.

When InternetGetConnectedState returns FALSE, the application can call GetLastError to retrieve the error code.

Remarks

A return value of TRUE from InternetGetConnectedState indicates that at least one connection to the Internet is available. It does not guarantee that a connection to a specific host can be established. Applications should always check for errors returned from API calls that connect to a server. InternetCheckConnection can be called to determine if a connection to a specific destination can be established.

A return value of TRUE indicates that either the modem connection is active, or a LAN connection is active and a proxy is properly configured for the LAN. A return value of FALSE indicates that neither the modem nor the LAN is connected. If FALSE is returned, the INTERNET_CONNECTION_CONFIGURED flag may be set to indicate that autodial is configured to "always dial" but is not currently active. If autodial is not configured, the function returns FALSE.


Только соответственно выберите необходимые вам параметры вызова

const INTERNET_CONNECTION_MODEM = 1;
      INTERNET_CONNECTION_LAN   = 2;
      INTERNET_CONNECTdState';

{$R *.DFM}

procedure TForm1.CheckState(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes,0) then
    ShowMessage('Youa connected')
  else
    ShowMessage('No Connection');
end;

[Hottabych]

Такая фишка не катит благодаря мелкомягким и их прекрасной WinInet (по-крайней мере я так понял), все время 'Youa connected'. А можно сделать через try? Например:

try
smtp.connect;
except
t := 1; end; //таймер по кругу

Жду ответа...

[Tayfun]

Вот как проверить, подключен ли компьютер к интернету:
1 способ:

function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result:= InternetGetConnectedState(@dwConnectionTypes, 0);
end;
procedure TForm1.XiButton1Click(Sender: TObject);
begin
if IsConnectedToInternet then showmessage ('Y') else showmessage ('N');
end;

2 способ:

function GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := '';
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := 'Modem';
if (flags and 2) = 2 then strKind := 'LAN';
if (flags and 4) = 4 then strKind := 'Proxy';
if (flags and 8) = 8 then strKind := 'Modem Busy';
end;
end;
procedure TForm1.XiButton2Click(Sender: TObject);
var strkind:string;
begin
if GetConnect(strKind) then
ShowMessage('есть')
else
ShowMessage('нету');
end;

[Hottabych]

Спасибо, за советы, сделал через try все нормально, меня это устраивает...