VPF::Как с помощью Indy определить имя компа-клиента?

kemiisto

Дата 3.4.2008, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160

Вот так заношу в ListView IP клиентов:

Код


procedure TFormMain.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  with ListView1.Items.Add do
    Caption := AThread.Connection.Socket.Binding.PeerIP;
end;

Но надо бы еще и имя компа заносить... Хочу через SubItems, но как определить имя компа-клиента?

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

Snowy

Дата 4.4.2008, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Поиск по gethostbyaddr тебе в руки

kemiisto

Дата 9.4.2008, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160

Вот, что нашел на просторах интернета.

Код


function IPAddrToName(IPAddr: string): string; 
var 
  SockAddrIn: TSockAddrIn; 
  HostEnt: PHostEnt; 
  WSAData: TWSAData; 
begin 
  WSAStartup($101, WSAData); 
  SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr)); 
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); 
  if HostEnt <> nil then 
    Result := StrPas(Hostent^.h_name) 
  else 
    Result := ''; 
end;

Авось кому пригодится...

Это сообщение отредактировал(а) kemiisto - 12.4.2008, 10:56

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

Matematik

Дата 11.4.2008, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Indy 9

Код


  ShowMessage(IdTCPClient.Socket.Binding.PeerIP);
  ShowMessage(GStack.WSGetHostByAddr(IdTCPClient.Socket.Binding.PeerIP));

Добавлено через 47 секунд
GStack находиться в IdStack.pas

kemiisto

Дата 12.4.2008, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160

Snowy, Matematik, спасибо огромное!
Всё работает! smile

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »