Deteccao de conexao a internet

Delphi

11/12/2003

Ola pesoal
Gostaria de fazer um programa que ficasse rodando em segundo plano, aguardando alguem se conectar a internet. Qdo alguem fizesse isso, o programa registraria em um arquivo de log a data e a hora da conexao.
Sugestoes?
Sucesso a todos


Tnaires

Tnaires

Curtidas 0

Respostas

Chicorinthiano

Chicorinthiano

11/12/2003

Ola pesoal Gostaria de fazer um programa que ficasse rodando em segundo plano, aguardando alguem se conectar a internet. Qdo alguem fizesse isso, o programa registraria em um arquivo de log a data e a hora da conexao. Sugestoes? Sucesso a todos


Tenta assim:

function TipoConexao:boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
showmessage(´Conexão a Internet está Ativa´);
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
showmessage(´Conexão por modem´);
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
showmessage(´Conexião por lan´);
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
showmessage(´Conexião por proxy´);
if (flags and INTERNET_CONNECTION_MODEM_BUSY) =INTERNET_CONNECTION_MODEM_BUSY then
showmessage(´modem ocupado´);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TipoConexao;
end;

Talvez não funcione no Delphi 3

Blzinha?


GOSTEI 0
Tnaires

Tnaires

11/12/2003

Opa Francisco,
o Delphi não reconheceu essa função. Qual unit devo incluir? Muito obrigado pela sugestão.


GOSTEI 0
Tnaires

Tnaires

11/12/2003

Francisco, pode deixar, a unit q devo incluir é Wininet.
Rapaz, muito obrigado de novo, e até a próxima!
Sucesso


GOSTEI 0
POSTAR