求简易的HTTP服务的方法

最恨VC

论坛找到一个帖子，能够用服务器组件实现HTTP的返回，测试了通过浏览器一切正常，可以返回相应的内容，但是无法通过http读文件读到内容是为什么？会卡死，用精易模块的网页_访问_对象()也不行，是哪里有问题吗？请大神们帮忙看看，就是想让程序能直接通过http://127.0.0.1来读到返回的数据就行

  

子程序名	返回值类型	公开	备 注
_服务器1_数据到达

变量名	类 型	静态	数组	备 注
要显示的数据	文本型

调试输出 (到文本 (服务器1.取回数据 ()))
要显示的数据 ＝ “http测试”
服务器1.发送数据 (服务器1.取回客户 (), “HTTP/1.1 302 Moved Temporarily” ＋ #换行符 ＋ “Content-Length: ” ＋ 到文本 (取文本长度 (要显示的数据)) ＋ #换行符 ＋ #换行符 ＋ 要显示的数据, )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

调试输出 (到文本 (HTTP读文件 (“http://127.0.0.1/”)))

i支持库列表	支持库注释
spec	特殊功能支持库
internet	互联网支持库

.版本 2<br /> .支持库 spec<br /> .支持库 internet<br /> <br /> <br /> <br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 要显示的数据, 文本型<br /> <br /> 调试输出 (到文本 (服务器1.取回数据 ()))<br /> 要显示的数据 ＝ “http测试”<br /> 服务器1.发送数据 (服务器1.取回客户 (), “HTTP/1.1 302 Moved Temporarily” ＋ #换行符 ＋ “Content-Length: ” ＋ 到文本 (取文本长度 (要显示的数据)) ＋ #换行符 ＋ #换行符 ＋ 要显示的数据, )<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 调试输出 (到文本 (HTTP读文件 (“http://127.0.0.1/”)))

Patek

我有矜持 发表于 2017-4-26 22:15
不明白怎么改- -对这方面完全不懂

服务器1.发送数据 (服务器1.取回客户 (), “HTTP/1.1 200 OK” ＋ #换行符 ＋ “Content-Length: ” ＋ 到文本 (取文本长度 (要显示的数据)) ＋ #换行符 ＋ #换行符 ＋ 要显示的数据, )

最恨VC

或者有什么其他的方法架设一个本地的http服务，让http读文件可以直接读到返回的数据

Patek

http://bbs.125.la/thread-13985733-1-1.html  

最恨VC

Joker4tb 发表于 2017-4-26 22:09
http://bbs.125.la/thread-13985733-1-1.html

看了这个，用不起来 不知道什么原因，打开后一直显示“对不起，您所访问的页面不存在！”

Patek

我有矜持 发表于 2017-4-26 22:10
看了这个，用不起来 不知道什么原因，打开后一直显示“对不起，您所访问的页面不存在！”

返回 200 的状态就行，按下面的格式。
======================
HTTP/1.1 200 OK
Content-Length: 4

test
======================

最恨VC

Joker4tb 发表于 2017-4-26 22:14
返回 200 的状态就行，按下面的格式。
======================
HTTP/1.1 200 OK

不明白怎么改- -对这方面完全不懂

最恨VC

Joker4tb 发表于 2017-4-26 22:18
服务器1.发送数据 (服务器1.取回客户 (), “HTTP/1.1 200 OK” ＋ #换行符 ＋ “Content-Length: ” ＋  ...

照你这么改了，浏览器访问一切正常
但是http读文件()依然卡死，无返回

补充内容 (2017-4-26 22:24):
可以了，同一个程序会卡死，我换了个易程序用http读文件就可以了