Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Глюк с TServerSocket [D6, Win2k, WinXP]


Орел Константин ©   (2004-04-18 15:22:00) 

Здравствуйте уважаемые. При работе с вышеупомянутым компонентом он на эту строку
memo1.lines.Add('Local Address: ' + ServerSocket1.Socket.LocalAddress); Отвечает: 'Local Address: 0.0.0.0', хотя IP естествнно другой. Это не очень мешает, т.к. все работает нормально. Вопрос: что это за хрень и как показать нормальный IP?


Орел Константин   (2004-04-18 16:09:00) [1]

Спасибо.


Verg   (2004-04-18 16:06:00) [2]

Так тебе какой адрес-то узнать нужно?
ServerSocket1.Socket.LocalAddress - это локальный адрес listen-сокета, т.е. 0.0.0.0 - означает, что сервер будет принимать входящие соединения с любого интерфейса.

Адреса сокета, который образуется при установлении соединения можно узнать, например, в OnAccept:

procedure TForm1.ServerSocket1Accept(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 Socket.LocalAddress;  // Локальный адрес
 Socket.RemoteAddress; // Адрес клиента
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо