代码如下
.版本 2
.支持库 internet
.支持库 HtmlView
.程序集 窗口程序集1
.子程序 _下载按钮_被单击
.局部变量 文件内容, 字节集
.局部变量 临时文件名, 文本型
状态标签.标题 = “正在下载文件,请稍候...”
状态标签.刷新显示 () ' 立即显示
文件内容 = HTTP读文件 (编辑框1.内容)
.如果真 (取字节集长度 (文件内容) = 0)
状态标签.标题 = “下载文件失败”
返回 ()
.如果真结束
状态标签.标题 = “下载文件成功”
临时文件名 = 取运行目录 () + “\” + “1.htm” ' 强制将类型改为.htm,注意"HTTP读文件"命令可以下载任何类型的文件,所以如果所下载的不是网页文件,超文本浏览框将显示乱码.
.如果真 (写到文件 (临时文件名, 文件内容)) ' 写到本地文件
超文本浏览框1.地址 = 临时文件名 ' 浏览本地文件
.如果真结束
.子程序 _关闭按钮_被单击
销毁 ()

在用超文本浏览的时候图片能正常显示,但是用浏览器或者是DW浏览时多数图片不能显示,这是为什么
.版本 2
.支持库 internet
.支持库 HtmlView
.程序集 窗口程序集1
.子程序 _下载按钮_被单击
.局部变量 文件内容, 字节集
.局部变量 临时文件名, 文本型
状态标签.标题 = “正在下载文件,请稍候...”
状态标签.刷新显示 () ' 立即显示
文件内容 = HTTP读文件 (编辑框1.内容)
.如果真 (取字节集长度 (文件内容) = 0)
状态标签.标题 = “下载文件失败”
返回 ()
.如果真结束
状态标签.标题 = “下载文件成功”
临时文件名 = 取运行目录 () + “\” + “1.htm” ' 强制将类型改为.htm,注意"HTTP读文件"命令可以下载任何类型的文件,所以如果所下载的不是网页文件,超文本浏览框将显示乱码.
.如果真 (写到文件 (临时文件名, 文件内容)) ' 写到本地文件
超文本浏览框1.地址 = 临时文件名 ' 浏览本地文件
.如果真结束
.子程序 _关闭按钮_被单击
销毁 ()

在用超文本浏览的时候图片能正常显示,但是用浏览器或者是DW浏览时多数图片不能显示,这是为什么

