uses Winsock;
procedure EncontrarNumeroIP;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
FNrEndeIp := '';
if FSnLocal then
begin
GetHostName(Buffer, SizeOf(Buffer));
FNmComput := Buffer;
end;
if FNmComput <> '' then
begin
phe := GetHostByName(PChar(FNmComput));
if phe <> nil then
begin
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do
begin
FNrEndeIp := StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
end;
end;
WSACleanup;
end;
Bruno Ferreira Vilela <[EMAIL PROTECTED]> wrote:
Como eu faço para capturar o IP da máquina?
Bruno.
--
<<<<< 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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert("Por favor, digite
algo."); return false; }else { document.form_combo.action
="http://br.rd.yahoo.com/SIG=12avc66o2/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1104507049/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;} [input] [input] [input]
---------------------------------
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 Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[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] ou [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
