[Tutorial / Delphi] Como mostrar o IP do PC em uso!
4 participantes
Página 1 de 1
[Tutorial / Delphi] Como mostrar o IP do PC em uso!
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:
2º Coloque essa função em baixo de
3° No Button adicione esse códgio:
e voilá..
está pronto
apenas compile e rode o projeto.
é 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.
Última edição por edoO~' em Sáb 4 Jun 2011 - 16:36, editado 1 vez(es)
IsLifersBozo?- Silver Member
- Mensagens : 219
Posts : 9717
Agradecimentos : 6
Data de inscrição : 02/06/2011
Idade : 29
Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!
Bem legal Edoo e vc colocou
até a source
pros nubinho
que nao sabem fazer
mto bom!
até a source
pros nubinho
que nao sabem fazer
mto bom!
Feniix- Membro de Honra
- Mensagens : 724
Posts : 7800
Agradecimentos : 15
Data de inscrição : 29/05/2011
Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!
Ótimo tutorial , ajudara bastante iniciante em delphi.
Mr.Positive- Membro
- Mensagens : 10
Posts : 4725
Agradecimentos : 2
Data de inscrição : 07/06/2011
Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!
Ótimo tuto Edoo
Vai ajudar muitos "nubs"
Talvez como eu
Airy- Elite member
- Mensagens : 689
Posts : 5533
Agradecimentos : 14
Data de inscrição : 10/06/2011
Idade : 25
Localização : Brazil?
Tópicos semelhantes
» [Tutorial+Source / Delphi] Mini Hack : Paciencia Spider.
» [TUTORIAL]Como Matar Mais
» Tutorial:como fazer um otserver 8.60
» Tutorial Como Jogar Tibia
» [Tutorial] Como Usar o Unlocker !
» [TUTORIAL]Como Matar Mais
» Tutorial:como fazer um otserver 8.60
» Tutorial Como Jogar Tibia
» [Tutorial] Como Usar o Unlocker !
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|