[delphi-br] Como obter o numero IP de uma maquina

2006-09-14 Por tôpico Paulo Sérgio Dias 
Pessoal:

Como obter o numero IP de uma maquina, via codigo em Delphi ?

Grato pela atencao de todos

Paulo





[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] Como obter o numero IP de uma maquina

2006-09-14 Por tôpico Ralp Alves Bezerra 
Tente isso

Declare WinSock no uses do seu form.

function GetIP:string; //Esta é a função coloque-a abaixo de {$R *.dfm}
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]),Byt
e(h_addr^[3
])]);
  end;
  WSACleanup;
end;

Use assim:

Label4.Caption:='IP Nº: '+GetIP;

ou como preferir.

Espero ter ajudado.

Ralp Alves Bezerra

- Original Message -
From: Paulo Sérgio Dias [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 14, 2006 7:28 AM
Subject: [delphi-br] Como obter o numero IP de uma maquina


Pessoal:

Como obter o numero IP de uma maquina, via codigo em Delphi ?

Grato pela atencao de todos

Paulo





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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos














-- 
 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

RES: [delphi-br] Como obter o numero IP de uma maquina

2006-09-14 Por tôpico Moked - Tamara \(Brazil\) 
Paulo, segue a função:
 
-
function TfrmManutencaoBD.CapturaIP: String;
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;
--
 
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] 
www.moked.com.br http://www.moked.com.br/ 




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo 
Sérgio Dias
Enviada em: quinta-feira, 14 de setembro de 2006 07:46
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como obter o numero IP de uma maquina


Pessoal:

Como obter o numero IP de uma maquina, via codigo em Delphi ?

Grato pela atencao de todos

Paulo





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

 


[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