Ĺadny brzuch
może i śmieszne to pytanie ale jak odczytać IP swojego kompa? ( np. w Memo1 wyświetlić) ??
Użytkownik dddman edytował ten post 10 marzec 2006, 17:21
http://delphi.about....l/aa103100a.htm
uses winsock; procedure TForm1.Button1Click(Sender: TObject); var wd:wsadata; buf:array[0..255]of char; h:phostent; a:in_addr; begin wsastartup($101,wd); gethostname(buf,256); h:=gethostbyname(buf); if h=nil then exit; a.S_addr:=integer(pointer(integer(pointer(h.h_addr_list)^))^); Memo1.Lines.Add(inet_ntoa(a)); end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Użytkownik dddman edytował ten post 10 marzec 2006, 17:21
http://delphi.about....l/aa103100a.htm
uses winsock; procedure TForm1.Button1Click(Sender: TObject); var wd:wsadata; buf:array[0..255]of char; h:phostent; a:in_addr; begin wsastartup($101,wd); gethostname(buf,256); h:=gethostbyname(buf); if h=nil then exit; a.S_addr:=integer(pointer(integer(pointer(h.h_addr_list)^))^); Memo1.Lines.Add(inet_ntoa(a)); end;