TCPServer将html发送到浏览器

opc*_*0de 5 sockets delphi

我正在开发一个项目,我必须实现一个简单的Web服务器才能显示欢迎页面.所以我在表单上放置了一个TTCPServer,我可以成功地将纯文本发送到与服务器交互的浏览器.但是我该如何发送HTML?

我尝试了这个但是没有用.

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(webpage)+10));
ClientSocket.Sendln(AnsiString(Format(webpage, [va, ma, mi, timexx])));
Run Code Online (Sandbox Code Playgroud)

有任何想法吗 ?我还是不想使用其他组件.

Ale*_* K. 7

在最后一个标题之后需要一个额外的CRLF,以便浏览器可以确定标题的结尾和正文开头.