1,594
社区成员
发帖
与我相关
我的任务
分享如何将webbrowser页面的内容保存为HTML文件？
各位：
请问有什么办法可以将webbrowser控件打开的网页内容保存成HTML源文件到本地？？
谢谢
请问有什么办法可以将webbrowser控件打开的网页内容保存成HTML源文件到本地？？
谢谢
...全文
请发表友善的回复…
发表回复
slzlren 2008-01-29
- 打赏
- 举报
with Msg do
begin
...
contenttype := 'text/html';
...
end;
如果是普通的不带有附件的邮件，可以直接指定类型为text/html就可以了
begin
...
contenttype := 'text/html';
...
end;
如果是普通的不带有附件的邮件，可以直接指定类型为text/html就可以了
wxsan 2008-01-17
- 打赏
- 举报
没有作过这方面的东西,帮你顶!
mrcpro 2008-01-17
- 打赏
- 举报
谢谢wxsan，非常感谢！
其实我是在做邮件客户端。用Indy控件做的。使用Webbrowser作为编辑器编辑邮件正文，然后发送。但去网页上收看时，却发现所发的邮件内容要么是乱码，要么就是把HTML代码显示出来了。
如：
我在webbrowser中输入一句话作为正文： this is a test mail.
发送时的代码为：
With Msg do
begin
Body.Clear;
Body.Add((webbrowser1.Document as IHTMLDocument2).body.outerHTML) ;
From.Text := MailAccount.EmailAddress;
ReplyTo.EMailAddresses := MailAccount.EmailAddress;
Recipients.EMailAddresses := edtRecipients.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(cbbPriority.ItemIndex); { Message Priority }
CCList.EMailAddresses := edtCc.Text; {CC}
ReceiptRecipient.Text := '';
end;
.....
With SMTP do
begin
Connect;
Send(IdMsgSend);
Disconnect;
end;
.....
但是发送成功后，去网页收到的却是不正常的。收到的结果为：
<BODY>this is a test mail.</BODY>
怎么看上去像是浏览器直接把邮件下文的HTML代码显出来了？
有哪位高手赐教一下，，不胜感激。
其实我是在做邮件客户端。用Indy控件做的。使用Webbrowser作为编辑器编辑邮件正文，然后发送。但去网页上收看时，却发现所发的邮件内容要么是乱码，要么就是把HTML代码显示出来了。
如：
我在webbrowser中输入一句话作为正文： this is a test mail.
发送时的代码为：
With Msg do
begin
Body.Clear;
Body.Add((webbrowser1.Document as IHTMLDocument2).body.outerHTML) ;
From.Text := MailAccount.EmailAddress;
ReplyTo.EMailAddresses := MailAccount.EmailAddress;
Recipients.EMailAddresses := edtRecipients.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(cbbPriority.ItemIndex); { Message Priority }
CCList.EMailAddresses := edtCc.Text; {CC}
ReceiptRecipient.Text := '';
end;
.....
With SMTP do
begin
Connect;
Send(IdMsgSend);
Disconnect;
end;
.....
但是发送成功后，去网页收到的却是不正常的。收到的结果为：
<BODY>this is a test mail.</BODY>
怎么看上去像是浏览器直接把邮件下文的HTML代码显出来了？
有哪位高手赐教一下，，不胜感激。
mrcpro 2008-01-17
- 打赏
- 举报
ExecWB这个函数如何能做到，
能说的详细点吗？
能说的详细点吗？
pilicat 2008-01-16
- 打赏
- 举报
嗯，向 wxsan 同志学习！
wxsan 2008-01-16
- 打赏
- 举报
// 这个很简单,代码如下:
// 注意要引用mshtml单元,否则编译不了
1. 保存为文本文件:
IHtmlDocument2(WebBrowser1.Document).Body.outerText
2. 保存为html
IHtmlDocument2(WebBrowser1.Document).Body.outerHTML
// 注意要引用mshtml单元,否则编译不了
1. 保存为文本文件:
IHtmlDocument2(WebBrowser1.Document).Body.outerText
2. 保存为html
IHtmlDocument2(WebBrowser1.Document).Body.outerHTML
珍惜生命远离CPP 2008-01-16
- 打赏
- 举报
成员函数 ExecWB可以做到
