D
DXML
Unregistered / Unconfirmed
GUEST, unregistred user!
。。。
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button2Click(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Add(IHtmlDocument2(WebBrowser1.Document).Body.InnerHtml);
SL.SaveToFile('c:/'+IHtmlDocument2(WebBrowser1.Document).Title+'.htm');
SL.Free;
end;
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Add(IHtmlDocument2(WebBrowser1.Document).Body.InnerHtml);
SL.SaveToFile('c:/'+IHtmlDocument2(WebBrowser1.Document).Title+'.htm');
SL.Free;
end;
D
DXML
Unregistered / Unconfirmed
GUEST, unregistred user!
这个保存不大一样的，这里是一个大富翁页面源码，如何转换为HTML格式？
<html xmlns:tools>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="大富翁,论坛,技术,积分,排行榜,Delphi,Kylix,Java,XML,XSLT,forum">
<meta name="description" content="大富翁论坛(delphibbs.com)关于 Delphi, Kylix, Java 的技术论坛。采用积分游戏形式，靠您的智慧上大富翁排行榜！">
<title>大富翁论坛 delphibbs.com</title>
<style type="text/css">
@media all {tools/:ubb {behavior:url("ubb.htc")}}
</style>
<link rel="stylesheet" type="text/css" href="web_font.css" />
<script src="loadxmln.js"></script>
</head>
<body topmargin="2" onload="showMsg();show()">
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<a href="rules.asp">游戏规则</a> <a href="register.asp">免费注册</a> <img src="dfwlogo.gif" align="middle" width="240" height="60" /> <a href="download.asp">资料下载</a> <a href="index.asp">关于本站</a>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<a href="listroom.asp">问题分类</a>
<a href="listq.asp">问题列表</a>
<a href="listu.asp">富翁列表</a>
<a href="dispu.asp">我的信息</a>
<a href="askqn.asp">提出问题</a>
<a href="uonline.asp">在线富翁</a>
<a href="calendar.asp">富翁日历</a>
<a href="http://richsearch.com" target="_blank">全文检索</a>
大富翁练功场
</td>
</tr>
</table>
<xml id="menuxml"><?xml version="1.0" encoding="gb2312" ?><DFWML type="注册信息"><URL>/delphibbs/dispq.asp</URL><QUERY_STRING>lid=1530623</QUERY_STRING><USER Name="wulianmin"><points>7968</points><expoints>29</expoints><earnings>3234</earnings><gettimes>896</gettimes><usertype>1</usertype><lasttime>2002-12-29 16:35:00</lasttime><homepage>1</homepage></USER></DFWML></xml>
<xml id="menuxsl" src="login.xsl"></xml>
<table width="100%" border="0" id="stage" align="center">
<tr><td width="120" height="340" valign="top" bgcolor="#eeeeee">
<div id="menupanel"></div></td>
<td valign="top"><div id="mainpanel" width="680"></div>
<xml id="mainxml"><?xml version="1.0" encoding="gb2312" ?><DFWML type="问题显示" title="一个SQL SERVER的问题 ">
<Q ID="1530623" status="1"><subject><![CDATA[一个SQL SERVER的问题 ]]></subject><from>lbsong</from>
<content><![CDATA[TABLE1如下：
A:char primary key
B:char primary key
c:char null
d:char null
e:char null
一个SQL如下：
INSERT INTO TABLE1(A,B,C) VALUES('a','b','c')
上面的SQL在SQL SERVER中执行没有问题，但是在BDE中执行就报如下错误：
INSERT 失败，因为下列 SET 选项的设置不正确:
'ANSI_NULLS., QUOTED_IDENTIFIER, CONCAT_NULL_YIELDS_NULL, ANSI_WARNINGS,ANSI_PADDI
哪位大虾指导指导我？]]></content><points>100</points><read_n>81</read_n><reply_n>4</reply_n><regdatetime>2002-12-23 15:34:00</regdatetime><datetime>2002-12-29 13:57:00</datetime><room>数据库-C/S型</room><master>千中元</master><master2>luyear</master2></Q>
<REPLY><Q ID="1530642"><from>redleilei</from><datetime>2002-12-23 15:39:00</datetime>
<content><![CDATA[不要INTO就好了。
INSERT TABLE1(A,B,C) VALUES('a','b','c')]]></content></Q>
<Q ID="1530662"><from>lbsong</from><datetime>2002-12-23 15:44:00</datetime>
<content><![CDATA[没有啊，我试过了]]></content></Q>
<Q ID="1545535"><from>SanDao</from><datetime>2002-12-29 2:32:00</datetime>
<content><
---------
对了,到底是什么原因啊!]]></content></Q>
<Q ID="1546113"><from>liuxiaouo</from><datetime>2002-12-29 13:57:00</datetime>
<content><![CDATA[A,B健是不是有重复？？？？
]]></content></Q>
</REPLY>
<USER Name="wulianmin" isNeedEmail="0" >
<FVID>0</FVID><R NO="1">lbsong</R><R NO="2">liuxiaouo</R><R NO="3">redleilei</R><R NO="4">SanDao</R><RN>4</RN><FID>1</FID></USER></DFWML></xml>
<script>
function show() {
load_xml(menupanel, menuxml, menuxsl);
load_xmln(mainpanel, mainxml, "dispq_1.xsl");
}
function changeFontSize(size) {
obj = document.getElementById('mainpanel');
if (!obj) alert('not found');
for (var ii=0; ii < obj.all.tags('TD').length; ii++) {
var td = obj.all.tags("TD").item(ii);
td.style.fontFamily = "宋体";
td.style.fontSize = size;
td.style.lineHeight = "150%";
}
}
</script>
</td>
</tr>
</table>
<p align="center">(C) 版权所有，大富翁论坛 1998-2001<br>
感谢您的惠顾，如有任何建议和意见，请 <a href="mailto:yysun@263.net">联系版主</a>。<font face="Arial"><small>2001.4.1</small></font></p>
</body>
</html>
<html xmlns:tools>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="大富翁,论坛,技术,积分,排行榜,Delphi,Kylix,Java,XML,XSLT,forum">
<meta name="description" content="大富翁论坛(delphibbs.com)关于 Delphi, Kylix, Java 的技术论坛。采用积分游戏形式，靠您的智慧上大富翁排行榜！">
<title>大富翁论坛 delphibbs.com</title>
<style type="text/css">
@media all {tools/:ubb {behavior:url("ubb.htc")}}
</style>
<link rel="stylesheet" type="text/css" href="web_font.css" />
<script src="loadxmln.js"></script>
</head>
<body topmargin="2" onload="showMsg();show()">
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<a href="rules.asp">游戏规则</a> <a href="register.asp">免费注册</a> <img src="dfwlogo.gif" align="middle" width="240" height="60" /> <a href="download.asp">资料下载</a> <a href="index.asp">关于本站</a>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<a href="listroom.asp">问题分类</a>
<a href="listq.asp">问题列表</a>
<a href="listu.asp">富翁列表</a>
<a href="dispu.asp">我的信息</a>
<a href="askqn.asp">提出问题</a>
<a href="uonline.asp">在线富翁</a>
<a href="calendar.asp">富翁日历</a>
<a href="http://richsearch.com" target="_blank">全文检索</a>
大富翁练功场
</td>
</tr>
</table>
<xml id="menuxml"><?xml version="1.0" encoding="gb2312" ?><DFWML type="注册信息"><URL>/delphibbs/dispq.asp</URL><QUERY_STRING>lid=1530623</QUERY_STRING><USER Name="wulianmin"><points>7968</points><expoints>29</expoints><earnings>3234</earnings><gettimes>896</gettimes><usertype>1</usertype><lasttime>2002-12-29 16:35:00</lasttime><homepage>1</homepage></USER></DFWML></xml>
<xml id="menuxsl" src="login.xsl"></xml>
<table width="100%" border="0" id="stage" align="center">
<tr><td width="120" height="340" valign="top" bgcolor="#eeeeee">
<div id="menupanel"></div></td>
<td valign="top"><div id="mainpanel" width="680"></div>
<xml id="mainxml"><?xml version="1.0" encoding="gb2312" ?><DFWML type="问题显示" title="一个SQL SERVER的问题 ">
<Q ID="1530623" status="1"><subject><![CDATA[一个SQL SERVER的问题 ]]></subject><from>lbsong</from>
<content><![CDATA[TABLE1如下：
A:char primary key
B:char primary key
c:char null
d:char null
e:char null
一个SQL如下：
INSERT INTO TABLE1(A,B,C) VALUES('a','b','c')
上面的SQL在SQL SERVER中执行没有问题，但是在BDE中执行就报如下错误：
INSERT 失败，因为下列 SET 选项的设置不正确:
'ANSI_NULLS., QUOTED_IDENTIFIER, CONCAT_NULL_YIELDS_NULL, ANSI_WARNINGS,ANSI_PADDI
哪位大虾指导指导我？]]></content><points>100</points><read_n>81</read_n><reply_n>4</reply_n><regdatetime>2002-12-23 15:34:00</regdatetime><datetime>2002-12-29 13:57:00</datetime><room>数据库-C/S型</room><master>千中元</master><master2>luyear</master2></Q>
<REPLY><Q ID="1530642"><from>redleilei</from><datetime>2002-12-23 15:39:00</datetime>
<content><![CDATA[不要INTO就好了。
INSERT TABLE1(A,B,C) VALUES('a','b','c')]]></content></Q>
<Q ID="1530662"><from>lbsong</from><datetime>2002-12-23 15:44:00</datetime>
<content><![CDATA[没有啊，我试过了]]></content></Q>
<Q ID="1545535"><from>SanDao</from><datetime>2002-12-29 2:32:00</datetime>
<content><![CDATA[不要收分撒,大家分了瓦!
---------
对了,到底是什么原因啊!]]></content></Q>
<Q ID="1546113"><from>liuxiaouo</from><datetime>2002-12-29 13:57:00</datetime>
<content><![CDATA[A,B健是不是有重复？？？？
]]></content></Q>
</REPLY>
<USER Name="wulianmin" isNeedEmail="0" >
<FVID>0</FVID><R NO="1">lbsong</R><R NO="2">liuxiaouo</R><R NO="3">redleilei</R><R NO="4">SanDao</R><RN>4</RN><FID>1</FID></USER></DFWML></xml>
<script>
function show() {
load_xml(menupanel, menuxml, menuxsl);
load_xmln(mainpanel, mainxml, "dispq_1.xsl");
}
function changeFontSize(size) {
obj = document.getElementById('mainpanel');
if (!obj) alert('not found');
for (var ii=0; ii < obj.all.tags('TD').length; ii++) {
var td = obj.all.tags("TD").item(ii);
td.style.fontFamily = "宋体";
td.style.fontSize = size;
td.style.lineHeight = "150%";
}
}
</script>
</td>
</tr>
</table>
<p align="center">(C) 版权所有，大富翁论坛 1998-2001<br>
感谢您的惠顾，如有任何建议和意见，请 <a href="mailto:yysun@263.net">联系版主</a>。<font face="Arial"><small>2001.4.1</small></font></p>
</body>
</html>
D
DXML
Unregistered / Unconfirmed
GUEST, unregistred user!
提一下
D
DXML
Unregistered / Unconfirmed
GUEST, unregistred user!
高手？？？
Q
qhx
Unregistered / Unconfirmed
GUEST, unregistred user!
不但用WEBBrowser无发把大富翁的页面保存为HTML格式，
连ie都无法大富翁的页面保存为HTML格式，
我用ie把大富翁的页面保存为HTML格式，总是不能打开.
连ie都无法大富翁的页面保存为HTML格式，
我用ie把大富翁的页面保存为HTML格式，总是不能打开.
D
delphifans_hx
Unregistered / Unconfirmed
GUEST, unregistred user!
将那段JavaScripts代码文件(与文件名同名的文件夹下)删了
就可以了
但不能正确显示了
就可以了
但不能正确显示了
D
DXML
Unregistered / Unconfirmed
GUEST, unregistred user!
这样连帖子内容都没了：（
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
那些网页源码是XML，不能直接存成HTML的。
procedure TForm1.Button2Click(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Add(IHtmlDocument2(WebBrowser1.Document).Body.InnerHtml);
SL.SaveToFile('c:/'+IHtmlDocument2(WebBrowser1.Document).Title+'.htm');
SL.Free;
end;
有什么不好？该保存的都保存了。
procedure TForm1.Button2Click(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Add(IHtmlDocument2(WebBrowser1.Document).Body.InnerHtml);
SL.SaveToFile('c:/'+IHtmlDocument2(WebBrowser1.Document).Title+'.htm');
SL.Free;
end;
有什么不好？该保存的都保存了。
D
delphifans_hx
Unregistered / Unconfirmed
GUEST, unregistred user!
gz
