[Tutorial / Delphi] Como mostrar o IP do PC em uso!
2 participantes
:: Programação :: Delphi :: Delphi Tutoriais.
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.
Não conseguiu fazer?
Está com dificuldades?
Baixe a source:
Download - MegaUpload
Scan
IsLifersBozo?- Membro
- Mensagens : 7
Agradecimentos : 1
Data de inscrição : 12/07/2011
Idade : 29
Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!
Nossa, muito bom mano
Esse irei faze, com certeza, nossa muito bom
Você merecia Geek mano
Sem relacho por que você não quer?
Esse irei faze, com certeza, nossa muito bom
Você merecia Geek mano
Sem relacho por que você não quer?
Re: [Tutorial / Delphi] Como mostrar o IP do PC em uso!
pq sou noob em outras linguagens
IsLifersBozo?- Membro
- Mensagens : 7
Agradecimentos : 1
Data de inscrição : 12/07/2011
Idade : 29
Tópicos semelhantes
» [Tutorial] Criando um Player Báscio [ Delphi 7 ]
» [Tutorial] Como fazer "WJ"
» [Tutorial] Como utilizar uma DLL
» [Tutorial] Como preparar um sistema para ser utilizado em rede
» [Tutorial] Como Desbloquear O Xbox 360 + Videos
» [Tutorial] Como fazer "WJ"
» [Tutorial] Como utilizar uma DLL
» [Tutorial] Como preparar um sistema para ser utilizado em rede
» [Tutorial] Como Desbloquear O Xbox 360 + Videos
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|