Скачать: CL | DM;

нежно узнать 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 ???

---

← →
Ozone ©   (2005-04-12 12:06) [9]

AThread.Connection.Socket.Binding.PeerIP

---

← →
Карелин Артем ©   (2005-04-12 15:30) [10]

Если инитересует именно модемный 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c