得本机器IP地址(100分)

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-02

• #1

我用 RASEnumConnectionsA(@RASConns, @dwSize, @dwCount) = 0得IP.
为什么 dwCount总是0.我是在局域网用连Internet,有防火墙请大虾指点一下,
先谢了

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #2

见下贴有详细解释
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1640829

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #3

To YFeral,
多谢,用RASEnumConnectionsA好象是标准做法, 因为别的只是能得到本地IP.'192.168....'

 

M

Martin-Zou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #4

用Delphi的TUdpSocket控件就可以得到了！

 

康

康凌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #5

用fastNet页的控件基本都可以得到呀，要不用API吧！

 

N

nclihai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #6

我发给你一段代码.
function TfrmBillWriteAncestor.LocalIP:string;//获得本机的ip地址
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
BEGIN
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
IF phe = nil THEN Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do BEGIN
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
END;
WSACleanup;
END;

在interface
uses 加入winsock单元.

 

K

kgafly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #7

up

 

L

liaoliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #8

up

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #9

To nclihai,
这个办法只能得到'192.168....',不是防火墙外的IP.哪位有反弹技术得IP的代码,先谢了.

 

A

arnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-04

• #10

procedure TForm1.Button1Click(Sender: TObject);
var
NetAddress: u_long;
hFile,ret: dword;
msg: string;
preturn: icmp_echo_reply;
begin
NetAddress := inet_addr(pchar(Edit1.text));
hFile:=IcmpCreateFile;
IF hFile = 0 then exit;
msg := 'Hello';
ret:=IcmpSendEcho(hFile,NetAddress,msg,Length(msg),0,preturn,282,200);
IcmpCloseHandle(hfile);
if ret > 0 then
showmessage('ok')
else
showmessage('fail');
end;

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #11

to arnew,
多谢,可这只能判断是否上网.不能得到IP.

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #12

一般方法只能得到'192.168....',不是防火墙外的IP.哪位有反弹技术得IP的代码
……
这个问题问得比较好……！！

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #13

NMSmtp的loaclIp行不行？

 

W

wangzhinong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #14

如果你的系统是WIN98，运行WINIPCONFING[]

 

C

cjc861

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #15

struct hostent *thisHost;
struct in_addr in;
char MyName[80];
char *IP,*ptr;

if(gethostname (MyName,80)==SOCKET_ERROR)
return NULL;
if(!(thisHost = gethostbyname(MyName)))
return NULL;
memset((void *)&in,sizeof(in),0);
in.s_addr=*((unsigned long *)thisHost->h_addr_list[0]);
if(!(ptr = inet_ntoa(in)))
return NULL;
IP = new char[strlen(ptr)+1],
strcpy(IP,ptr);
return IP;

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-06

• #16

都不行.

 

雨

雨过天青

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #17

很有意思
有一个怪异的办法
有些网站的论坛会显示用户的IP地址，你可以。。。然后就。。。
呵呵和

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-14

• #18

有意思……：PP

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #19

学习

 

Y

yaoyao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #20

通过局域网服务器连接到Internet，从外部看，看到的都是服务器网关的地址
网关通过不同的端口来对应局域网内部的机器。
不知道你想要的是什么地址？