Re: Pegando a variavel "Cabo de rede desconectado".
Procurando na NET chei esta função em um Blog;
Código delphi:
Function GetHostName(strIPAddress : String) : String;
//
// Retorna o Host onde seu TCP/IP está conectado
//
// Requer a Winsock declarada na clausula uses da unit
//
Var
strHost : String ;
pszIPAddress : PChar ;
pReturnedHostEnt : PHostEnt ;
InternetAddr : u_long ;
GInitData : TWSADATA ;
Begin
strHost := '';
If WSAStartup($101, GInitData) = 0 then
Begin
pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 ) ;
StrPCopy( pszIPAddress, strIPAddress ) ;
InternetAddr := Inet_Addr(pszIPAddress) ;
StrDispose( pszIPAddress ) ;
pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost ;
except
Result := 'Host inválido ou não encontrado';
end;
end;
end
PS: vou testar....
Re: Pegando a variavel "Cabo de rede desconectado".
Oi!
Eu não sou programador minha area é suporte e infra... Desculpe a Ignorância mas o que seria daemon?
rs
Obrigado!
Re: Pegando a variavel "Cabo de rede desconectado".
Citação:
Postado originalmente por
GeovaneRoberto
Oi!
Eu não sou programador minha area é suporte e infra... Desculpe a Ignorância mas o que seria daemon?
rs
Obrigado!
Um programa rodando em background, executando alguma função.
Esse seu código é em Delphi... nem havia me lembrado, mas não recomendo muito não, talvez os novos que sairam estejam melhores, to cansado de ver programa em Delphi 7 :D
Re: Pegando a variavel "Cabo de rede desconectado".
pessoal ótima idéia hein...ficaria bem legal e útil uma ferramenta como essa, pena que não manjo de programação para poder ajudar, mas fica aqui o meu incentivo a todos que forem ajudar na idéia, BOM TRABALHO e ótima idéia.
Re: Pegando a variavel "Cabo de rede desconectado".
No delphi tem o Indy que é muito poderoso, talvez a lógica seria pingar a placa de rede local, e quando ela não responder você pode gerar uma exception....