Re: [delphi-br] Máquinas na Rede

Marco Aurélio \(DELPHI\) Fri, 18 Aug 2006 10:07:16 -0700

função retirada do help http://lloydsoft.no-ip.com .


function TForm1.GetIP: string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;


function TForm1.GetNamePC(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;


  ----- Original Message ----- 
  From: cchirolli 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 11, 2006 5:42 PM
  Subject: [delphi-br] Máquinas na Rede


  Ol pessoal,
  Alguém sabe se existe algum componente ou código que possa retornar as 
  máquinas que estão conectadas na minha rede (novell), ou uma função que 
  eu possa passar um IP e ela me retorne o nome da máquina.

  Obrigado,
  Carlos.




   

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br] Máquinas na Rede

Responder a