Работа с HTML в веб-сервере на Delphi: решение проблем с отправкой контента

Delphi , Интернет и Сети , Сокеты

Вопрос, поднятый в данном запросе, заключается в реализации простого веб-сервера на Delphi, который должен отображать приветственную страницу, используя HTML. Разработчик уже успешно смог отправить обычный текст в браузер, используя компонент TTCPServer, но столкнулся с проблемой при попытке отправить HTML-код. Попытки отправить заголовки HTTP и сам HTML-контент не увенчались успехом.

Ошибка в коде отправки HTML

Ошибка в исходном коде заключалась в неправильном расчете длины контента. Заголовок Content-Length указывал длину строки, которая еще не была сформирована в момент отправки. Кроме того, в коде отсутствовал необходимый символ перевода строки (CRLF) после последнего заголовка, что необходимо для корректного разделения заголовков и тела ответа.

Исправленный код

Чтобы решить проблему, необходимо сначала отправить все заголовки, включая пустую строку для обозначения их конца, а затем отправить тело ответа с указанием правильной длины:

ClientSocket.Sendln('HTTP/1.0 200 OK');
ClientSocket.Sendln('MIME-version: 1.0');
ClientSocket.Sendln('Content-type: text/html');
ClientSocket.Sendln('Content-Length:' + IntToStr(Length(webpageBody) + 22)); // Добавляем длину всех заголовков и пробелов
ClientSocket.Sendln(''); // Пустая строка для обозначения конца заголовков
ClientSocket.Sendln(webpageBody); // Отправляем тело ответа

Где webpageBody - это переменная, содержащая HTML-код страницы, который необходимо отправить клиенту.

Пример кода HTML-страницы

<!DOCTYPE html>
<html>
<head>
    <title>Приветственная страница</title>
</head>
<body>
    <h1>Добро пожаловать на мою веб-страницу!</h1>
</body>
</html>

Этот код HTML должен быть сохранен в переменной webpageBody перед тем, как использовать его в предыдущем примере кода.

Заключение

В данной статье был рассмотрен пример типичной ошибки при работе с веб-сервером на Delphi и методы её коррекции. Важно помнить о необходимости корректного формирования HTTP-заголовков и тела ответа, а также использовать правильные методы для определения длины контента.

Приведенные примеры кода на Object Pascal демонстрируют, как можно решить проблему отправки HTML-страницы через TTCPServer, не прибегая к использованию дополнительных компонентов.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой отправки HTML-контента с помощью веб-сервера на Delphi, связанной с неправильным расчетом длины контента и отсутствием символов перевода строк между заголовками и телом ответа.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Сокеты ::

Время компиляции файла: 2024-12-22 20:14:06
2025-02-05 07:38:10/0.005033016204834/1