html:='<html>';
html:=html+'<TITLE>用Delphi编写点对点传文件程序</TITLE>';
html:=html+'<body>';
html:=html+'<h1>大家好,这是我的第一个用delphi所做的页面!</h1>';
html:=html+'<p>换个行</p>';
html:=html+'的完整,而不会自己收集数据并返回给用户。所以不要以为你把待传文件在一个Socket中Send一次,另一个中Recv一次就可以了。你必须自己收集数据或自己定义协议。),所以我们采用自定义协议的方法。定义协议的规范方法是利用Record';
html:=html+'</body>';
html:='</html>';
response.content:=html;