IP адрес

[SERG1980]

Можно ли узнать ip адрес с помощью компонентов serversocket или clientsocket? Если да, то как?

[rubi]

Вопросы работы с сокетами регулярно возникают в инете. Поэтому покопавшись всего 3 минуты нашел тебе два примера:

локальный IP адрес:
uses Winsock;
...

procedure TForm1.FormCreate(Sender: TObject);
var
wVerReq: WORD;
wsaData: TWSAData;
i: pchar;
h: PHostEnt;
c: array[0..128] of char;
begin
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
{Получаем хост (имя) компа}
GetHostName(@c, 128);
h := GetHostByName(@c);
Host.Caption := h^.h_Name; //Host отображает хост(имя) компьютера
{Достаем IP}
i := iNet_ntoa(PInAddr(h^.h_addr_list^)^ );
IPaddr.Caption := i; //Теперь IPaddr отображает IP-адрес
WSACleanup;
end;
это с http://www.sql.ru/forum/actualthread...=40&tid=347485

{ если не задавать имя хоста, то будет возвращен ip-адрес "своего" компа }
procedure GetIPListByHostName(AddrList: TStrings; const AHostName: String = '');
type
TAddr_List = array[0..0] of PInAddr;
PAddr_List = ^TAddr_List;
var
pHE: PHostEnt;
P: PAddr_List;
Buf: PChar;
wsaData: TWSAData;
i: Integer;
begin
AddrList.Clear;
{ This function must be the first Windows Sockets function called by
an application or DLL. It allows an application or DLL to specify
the version of Windows Sockets required and to retrieve details of
the specific Windows Sockets implementation.
Win32 DevRef }
WSAStartup(wVersionRequested, wsaData);
GetMem(Buf, MAX_PATH);
try
pHE := GetHostByName(StrPCopy(Buf, AHostName));
if Assigned(pHE) then begin
P := PAddr_List(pHE^.h_addr_list);
i := 0;
while Assigned(P^[i]) do begin
AddrList.Add(inet_ntoa(P^[i]^));
Inc(i);
end;
{ When it has finished using the services of the Windows Sockets DLL,
the application or DLL must call WSACleanup in order to allow the
Windows Sockets DLL to free any resources for the application.
Win32 DevRef }
end
else AddrList.Add('None'); // returns null
finally
FreeMem(Buf);
WSACleanup;
end;
end;

это с http://icoder.ru/pages/new18s89o508041.html

[SERG1980]

Я эти примеры тоже нашёл, но вопрос втом что можно ли определить IP c помощью компонентов ServerSocket или ClientSocket