sprawdzanie IP

0

czy ktoś ma prostą procedurkę sprawdzającą IP???

0

Bardzo prosze:

procedure TForm1.Button1Click(Sender:TObject);
var
p: PHostEnt;
s:array[0..128] of char;
p2:pchar;
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p.h_Name);
p2 := iNet_ntoa(PInAddr(p
.h_addr_list));
Memo1.Lines.Add(p2);
end;

procedure TForm1.FormDestroy(Sender:TObject);
begin
WSACleanup;
end;

--
pozdrawiam PEDROS {hello}

Nie uzywajcie irca i tak nie ma tam nic ciekawego.

Delphi6 Personal

0

Lub z komponentu np INDY--Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

1 użytkowników online, w tym zalogowanych: 0, gości: 1