IP komputera

0

Jak pobrać IP komputera??

0

Na przykład przy użyciu poniższego kodu:
uses Winsock;

procedure TForm1.FormCreate(Sender:TObject);
var wVersionRequested:WORD;
wsaData:TWSAData;
begin
*Ładujemy bibliotekę Winsock
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;

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

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

--
Pozdrowienia {hello} {hello} {hello}
Chodek ;)
Delphi 6

0

Jak chcesz to wyslij do mnie maila, a ja ci podesle fajny komponent do wyciagania IP kompa... bardzo maly i fajny komponencik...

{brawo} --==DelphI is CooL==-- {brawo}

0

www.4programmers.net/delphi/gotowce/
lub w dziale kody zrodlowe...--Pozdrawiam!
Adam Boduch
www.4programmers.net

0

albo ściągnijsobie komponent do tego... np. na www.programik.com a moze nawet jet i tu :-) --Ozyrys Pozdrawiam {hello}
Delphi 6

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