[Tutorial] Descobrindo IP de um site
3 participantes
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
[Tutorial] Descobrindo IP de um site
Adicione:
No event OnClick do button1 adicione:
no event OnClick do button2 adicione:
no event OnKeyPress do edit1 adicione:
Pronto digite o site no no edit1 e aperte o buton1 e aparecera o IP do site no memo.
1 Edit
1 Memo
2 Buttons
Adicione as seguintes functions:Acrecente a seguinte uses: Winsock
Function nibzxd(strIPAddress : String) : String;
Var
strHost : String ;
pszIPAddress : PChar;
pReturnedHostEnt : PHostEnt;
InternetAddr : u_long;
GInitData : TWSADATA;
Begin
strHost := '';
If WSAStartup($101, GInitData) = 0 then
Begin
pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 );
StrPCopy( pszIPAddress, strIPAddress );
InternetAddr := Inet_Addr(pszIPAddress);
StrDispose( pszIPAddress );
pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost
except
Result := 'Host inválido ou não encontrado';
end;
end;
end;
Function clubeprogramacao(WebHostName:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
//Gethostname(PChar(WebHostName), 255);
//SetLength(WebHostName, StrLen(PChar(WebHostName)));
HostEnt := gethostbyname(PChar(WebHostName));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
No event OnClick do button1 adicione:
memo1.Lines.Add(edit1.Text+' - '+clubeprogramacao(edit1.Text));
no event OnClick do button2 adicione:
memo1.Clear;
no event OnKeyPress do edit1 adicione:
if key=#13 then
begin
button1.Click;
edit1.Clear;
edit1.SetFocus;
end;
Pronto digite o site no no edit1 e aperte o buton1 e aparecera o IP do site no memo.
bielzinx- Membro
- Mensagens : 79
Agradecimentos : 8
Data de inscrição : 14/05/2011
Descobri Galera
Mano Tabom o Topico So Faltou Prints . "E Vc Nao Esplicou Onde Nós Colocamos o Code 1."
==========#==================#===================#===================#===========
Ja Descobri Galera Esse Code Abaixo é na Form .
HoTyuri Para:
Ou
==========#==================#===================#===================#===========
Ja Descobri Galera Esse Code Abaixo é na Form .
- Spoiler:
- Código:
[size=12]Function nibzxd(strIPAddress : String) : String;
Var
strHost : String ;
pszIPAddress : PChar;
pReturnedHostEnt : PHostEnt;
InternetAddr : u_long;
GInitData : TWSADATA;
Begin
strHost := '';
If WSAStartup($101, GInitData) = 0 then
Begin
pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 );
StrPCopy( pszIPAddress, strIPAddress );
InternetAddr := Inet_Addr(pszIPAddress);
StrDispose( pszIPAddress );
pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost
except
Result := 'Host inválido ou não encontrado';
end;
end;
end;
Function clubeprogramacao(WebHostName:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
//Gethostname(PChar(WebHostName), 255);
//SetLength(WebHostName, StrLen(PChar(WebHostName)));
HostEnt := gethostbyname(PChar(WebHostName));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;[/size]
HoTyuri Para:
Ou
Última edição por hotyuri em Dom maio 29, 2011 12:28 am, editado 5 vez(es) (Motivo da edição : Descobri)
Tópicos semelhantes
» [Tutorial] Tutorial Facil (To Luuiz™)
» Registro de site indica localização de "The Last Story" para os EUA
» Tutorial Zero
» [Tutorial] Baú que da itens !
» [Tutorial] Tag Tobi
» Registro de site indica localização de "The Last Story" para os EUA
» Tutorial Zero
» [Tutorial] Baú que da itens !
» [Tutorial] Tag Tobi
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|