[Tutorial / Delphi] Como mostrar o IP do PC em uso!

Ir em baixo

[Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por IsLifersBozo? em Sab 4 Jun 2011 - 15:52

Primeiramente, este é algo bem básicão mesmo que estou postando...
é só pra mostrar o ip do pc em uso...

Adicione em Seu form:
1 Button (Caption: IP?)
1 Edit (Text: (nada))
1 Label (Caption: Meu Ip é?)


1º Adicione o seguinte código na Uses:

Código:
Winsock;

2º Coloque essa função em baixo de
Código:
{$R *.dfm}

Código:
function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean;
type
  Name = array[0..100] of Char;
  PName = ^Name;
var
  HEnt: pHostEnt;
  HName: PName;
  WSAData: TWSAData;
  i: Integer;
begin
  Result := False;
  if WSAStartup($0101, WSAData) <> 0 then begin
    WSAErr := 'Winsock is not responding."';
    Exit;
  end;
  IPaddr := '';
  New(HName);
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin
    HostName := StrPas(HName^);
    HEnt := GetHostByName(HName^);
    for i := 0 to HEnt^.h_length - 1 do
    IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
    SetLength(IPaddr, Length(IPaddr) - 1);
    Result := True;
  end
  else begin
  case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised';
    WSAENETDOWN      :WSAErr:='WSAENetDown';
    WSAEINPROGRESS  :WSAErr:='WSAEInProgress';
  end;
  end;
  Dispose(HName);
  WSACleanup;
end;


3° No Button adicione esse códgio:

Código:
var
  Host, IP, Err: string;
begin
  if GetIPFromHost(Host, IP, Err) then begin
    Edit1.Text := IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);
end;


e voilá..
está pronto
apenas compile e rode o projeto.


Não conseguiu fazer?
Está com dificuldades?

Baixe a source:

Download - MegaUpload

Scan




Última edição por edoO~' em Sab 4 Jun 2011 - 16:36, editado 1 vez(es)
avatar
IsLifersBozo?
Bronze Member
Bronze Member

Mensagens : 219
Posts : 7732
Agradecimentos : 6
Data de inscrição : 02/06/2011
Idade : 23

Voltar ao Topo Ir em baixo

Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por Feniix em Sab 4 Jun 2011 - 16:29

Bem legal Edoo e vc colocou
até a source
pros nubinho
que nao sabem fazer
mto bom!

_________________

Thx ' Cz Emuu sz'




Meu Faan ?? Use !!



Gifts Das Japonegas *--*

Spoiler:








avatar
Feniix
Geek
Geek

Mensagens : 723
Posts : 5814
Agradecimentos : 15
Data de inscrição : 29/05/2011

Voltar ao Topo Ir em baixo

Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por Convidad em Dom 5 Jun 2011 - 17:07

Ótimo Tutorial!!!
avatar
Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por Mr.Positive em Ter 7 Jun 2011 - 15:49

Ótimo tutorial , ajudara bastante iniciante em delphi.
avatar
Mr.Positive
Membro
Membro

Mensagens : 10
Posts : 2740
Agradecimentos : 2
Data de inscrição : 07/06/2011

Voltar ao Topo Ir em baixo

Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por Airy em Sex 10 Jun 2011 - 22:35

Ótimo tuto Edoo
Vai ajudar muitos "nubs"
Talvez como eu Razz

avatar
Airy
Bronze Member
Bronze Member

Mensagens : 689
Posts : 3548
Agradecimentos : 14
Data de inscrição : 10/06/2011
Idade : 20
Localização : Brazil?

Voltar ao Topo Ir em baixo

Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum