[Tutorial]Descobrir IP Local e nome do computador

Ir em baixo

Tutorial [Tutorial]Descobrir IP Local e nome do computador

Mensagem por Psy em Sab Nov 10, 2012 9:14 pm


  • Descobrir IP Local e nome do Computador via Delphi



Abra o Delphi , Crie um Novo Form e nele coloque os Itens:



4     "Label"                aba         "Standard"

1     "Button"              aba         "Standard"

1     "IdIPWatch"       aba         "IndyMisc"

1    "ProgressBar"    aba        "Win32"

1    "XPManifest"      aba         "Win32"

1    "Timer"                aba        "System"



Mude o "Name" do "IdIPWatch1" para "IP"



Mude o "Name" do "ProgressBar1" para "Load"



Mude o "Caption" do "Label1" para "Nome do Computador"



Mude o "Caption" do "Label2" para "IP Local"



Mude o "Caption" do Label3 e Label4 sem Nada(Em Branco)



Mude o "Caption" do "Button1" Para "Atualizar"



OBS  : Todos Sem Aspas.



E organize tudo mais ou menos assim:



















OBS : O Label 3 e Label 4 Nao devem ter nada no caption eu somente coloquei isso para que possa mostrar onde eles devem ficar.



Agora De um Duplo clique no Form e ja no Evento OnCreat dele



coloque :



Label3.Caption := IP.LocalIP;

Label4.Caption := IP.LocalName;



e De um Duplo clique No Button e coloque :



Button1.Enabled := False;
Load.Position := 0;
Timer1.Enabled := True;


Agora no Timer mude o seguinte:





"Enabled" para "False"
"Interval"  para "150"



e de um Duplo Clique nele e Coloque :



begin
Label3.Caption := 'Atualizando...';
Label4.Caption := 'Atualizando...';
Load.Position := Load.Position +5;
IF Load.Position = 100 Then
begin
  Label3.Caption := IP.LocalIP;
  Label4.Caption := IP.LocalName;
  Button1.Enabled := True;
end;
end;


=========================================

avatar
Psy
Administrador
Administrador

Posts Posts : 35
Localização : Em frente do PC

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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