|
О чём не пишут в книгах по Delphi 'Невозможно создать слушающий сокет: ' + GetErrorString'); // Формирование адреса для "слушающего" сокета FillChar(MainSockAddr.sin_zero, SizeOf (MainSockAddr.sin_zero, 0); MainSockAddr.sin_family := AF_INET; // Выбор IP-адреса доверяем системе MainSockAddr.sin_addr.S_addr := INADDR_ANY; // Порт назначаем, не забывая перевести его номер в сетевой формат MainSockAddr.sin_port := htons(Port); // Привязка сокета к адресу if bind(MainSocket, MainSockAddr, SizeOf(MainSockAddr)) = SOCKET_ERROR then raise ESocketException.Create( 'Невозможно привязать слушающий сокет к адресу: ' + GetErrorString); // Установка сокета в режим прослушивания if listen(MainSocket, SOMAXCONN) = SOCKET_ERROR then raise ESocketException.Create( 'Невозможно установить сокет в режим прослушивания: ' + GetErrorString); WriteLn(OemString('Сервер успешно начал прослушивание порта '), Port); ... // Основная часть сервера приведена в листинге 2.15 ... except on Е: ESocketException do WriteLn(OemString(E.Message)); ...» | Код для вставки книги в блог HTML
phpBB
текст
|
|