[Tutorial] Pegar IP de um site

['Lenneth 488]

Adicione

1 Edit

1 Memo

2 Buttons

 

Acrecente a seguinte uses: Winsock

 

Adicione as seguintes functions:

 

Primeira Function:

Function andre03(strIP***ress : String) : String;

Var

strHost : String ;

pszIP***ress : PChar;

pReturnedHostEnt : PHostEnt;

Internet***r : u_long;

GInitData : TWSADATA;

Begin

strHost := '';

If WSAStartup($101, GInitData) = 0 then

Begin

pszIP***ress := StrAlloc( Length( strIP***ress ) + 1 );

StrPCopy( pszIP***ress, strIP***ress );

Internet***r := Inet_***r(pszIP***ress);

StrDispose( pszIP***ress );

pReturnedHostEnt := GetHostBy***r( PChar(@Internet***r),4, PF_INET );

try

strHost := pReturnedHostEnt^.h_name;

WSACleanup;

Result := strHost

except

Result := 'Host inválido ou não encontrado';

end;

end;

end;

 

Segunda Function;

Function ProCode(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_***r^[0]),Byte(h_***r^[1]),

Byte(h_***r^[2]),Byte(h_***r^[3])]);

end;

WSACleanup;

end;

 

No event onclick do button1 adicione:

memo1.Lines.***(edit1.Text+' - '+ProCode(edit1.Text));

 

no evento onclick do button2 adicione:

memo1.Clear;

 

no evento 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.

 

Creditos Before123