Jak można uzyskać swoje IP(zewnętrzne) jeżeli ma się zainstalowaną kartę sieciową z maską podsieci i numerem child I {glowa}
P???--Le murdoc
0
0
Może o to chodzi:
procedure TFrmGlowna.BtnCzytajClick(Sender: TObject);
var
p:PHostEnt;
s:array[0..128] of char;
p2:pchar;
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p.h_addr_list)^);
end;
MBK.
0
nie wiem czy działa bo chyba trzeba coś do uses dodać..........
{glowa} --Le murdoc
0
chiba Ci murdoc nie oto chodzilo
BTW co ty w tajemnicy przede mną klecisz w tym Delphi?? :-)
--
apendix@hoga.pl
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))
0
Jak by co to:
uses winsock;
MBK
0
Grosse dzięki mbr..................{brawo}--Le murdoc
0
.........................MBk of course :P --Le murdoc