нежно узнать IP Адрес.

← →
mc_s (2005-04-11 11:12) [0]

У меня комп включён в локальную сетку со статическими IP. А мне нужно узнать адрес, который присваивается когда я выхожу в интернет посредством модема (обычное DialUP соединение). Может кто подскажет ???

← →
Rouse_ © (2005-04-11 11:20) [1]

Проверить негде, попробуй вот этот код:

procedure TForm1.Button1Click(Sender: TObject); var WSAData: TWSAData; p: PHostEnt; Name: array [0..$FF] of Char; begin WSAStartup($0101, WSAData); try GetHostName(name, $FF); p := GetHostByName(Name); while Assigned(p.h_addr_list^) do begin memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^)); inc(p.h_addr_list); end; finally WSACleanup; end; end;

← →
френк (2005-04-11 11:21) [2]

нежно... LOL

← →
mc_s (2005-04-11 11:23) [3]

TWSAData ??? какая библиотека ??? он у меня даже в хэлпе ненаходит

← →
Digitman © (2005-04-11 12:20) [4]

> mc_s

> какая библиотека

uses .., Winsock, ...

← →
mc_s (2005-04-12 11:17) [5]

спасибо, всё получилось!

← →
mc_s (2005-04-12 11:19) [6]

а сразу если, можно, ещё вопросик.
Как узнать сетевой адрес клиента в компоненте TidHTTPServer ?

← →
Ozone © (2005-04-12 11:30) [7]

Bindings.Items[i].PeerIP

← →
mc_s (2005-04-12 11:38) [8]

Bindings.Items[i].PeerIP>>

Как получить текущий номер "i" внутри обработчика onCommandGet ???

AThread.Connection.Socket.Binding.PeerIP

Если инитересует именно модемный IP и известен hRasConn, то так:

uses Ras//На jedi лежит заголовочный модуль.

function GetRemoteIP(hRAS: DWORD): string;
var RASPppIp: TRASPppIp;
lpcp : Integer;
begin
FillChar(RASPppIp,SizeOf(TRASPppIp),#00);
RASPppIp.dwSize:=SizeOf(TRASPppIp);
lpcp:=RASPppIp.dwSize;
RASGetProjectionInfo(hRAS,RASP_PppIp,@RASPppIp,lpcp);
Result:=RASPppIp.szIpAddress;
end;

нежно узнать IP Адрес. Найти похожие ветки