richtext保存问题

[dell_note]

在richtext编辑的内容，有大小字体等相关设置，保存到sql后，再取出来还是原样。是怎么回事？
用text值保存的，应该用哪个？textRTF值也试了，也不对。

[dell_note]

引用 5 楼 apple_8180 的回复:

你可以保存到数据加，也可以还原(还原也用 RichText 控件显示)，那做网站也应该可以还原的。

"数据加"是什么？ 用VFP保存(textRTF)，显示(textRTF)都没有问题。 做网站的人员上网上查了，目前没有找到合适的方法。 他希望 我能将textRTF转换一下。

[都市夜猫]

如果内容还要在 web 页面上显示，建议就不要再用 rtf 格式了，直接 html 格式 无论表现形式的丰富性，兼容性，可读性，还是解析速度，html 都要好过 rtf 很多。

[dell_note]

还有一个问题，就是往richtext里粘贴一个图片后保存时出错，怎么解决？

[dell_note]

引用 7 楼 dkfdtf 的回复:

如果内容还要在 web 页面上显示，建议就不要再用 rtf 格式了，直接 html 格式 无论表现形式的丰富性，兼容性，可读性，还是解析速度，html 都要好过 rtf 很多。

在VFP怎样编辑成HTML呢？ 我们的服务器是在外网，客户是可以上网查询。 我们工作，业务处理是用客户软件(VFP)

[都市夜猫]

编辑 html 的软件很多啊 DW、WPM、EditPlus、....实在不行，Offices 中的 FrontPage 也可以

[十豆三]

引用 6 楼 dell_note 的回复:

[quote=引用 5 楼 apple_8180 的回复:] 你可以保存到数据加，也可以还原(还原也用 RichText 控件显示)，那做网站也应该可以还原的。

"数据加"是什么？ 用VFP保存(textRTF)，显示(textRTF)都没有问题。 做网站的人员上网上查了，目前没有找到合适的方法。 他希望 我能将textRTF转换一下。[/quote]手误，是数据库。

[dell_note]

引用 10 楼 dkfdtf 的回复:

编辑 html 的软件很多啊 DW、WPM、EditPlus、....实在不行，Offices 中的 FrontPage 也可以

不是这个意思，是问在VFP里如何生成HTML格式的字符串或文档？

[都市夜猫]

引用 12 楼 dell_note 的回复:

不是这个意思，是问在VFP里如何生成HTML格式的字符串或文档？

表单上加一个 WebBrowse 控件，切换到编辑方式，不就可以编辑 html 文本了吗？

[dell_note]

引用 13 楼 dkfdtf 的回复:

[quote=引用 12 楼 dell_note 的回复:] 不是这个意思，是问在VFP里如何生成HTML格式的字符串或文档？

表单上加一个 WebBrowse 控件，切换到编辑方式，不就可以编辑 html 文本了吗？ [/quote] 怎么切换？

[都市夜猫]

引用 14 楼 dell_note 的回复:

怎么切换？

假设表单上有一 WebBrowse 控件，名称是 ole，控件的 Init 事件中加入： This.navigate('about:blank') && 或你要编辑的 html 文档 url Inkey(0.1) This.Document.execCommand('EditMode') 这样就切换到编辑模式，用 BowserMode 替换 EditMode 就返回到浏览模式了 最好自己写一个 html 编辑表单类，像做 rtf 编辑器一样，加上 加粗/斜体/下划线/颜色/插图片/.../保存 等编辑按钮，每个按钮的 Click 事件中都执行 Thisform.ole.Document.execCommand(...)，具体的命令名称可以上 msdn 上查。例如， 加粗按钮的代码： Thisform.ole.Document.execCommand('Bold', 0, .t.) 插图片按钮的代码： Thisform.ole.Document.execCommand('InsertImage', 1) -- or -- Thisform.ole.Document.execCommand('InsertImage', 0, 'c:\ttt.jpg') 保存按钮的代码： Thisform.ole.Document.execCommand('SaveAs', 1) 其他命令自己看着办吧，参见下面链接，去掉常数中的 IDM_，后面的就是命令名 http://msdn.microsoft.com/zh-cn/library/ms533049.aspx

[dell_note]

引用 15 楼 dkfdtf 的回复:

[quote=引用 14 楼 dell_note 的回复:] 怎么切换？

假设表单上有一 WebBrowse 控件，名称是 ole，控件的 Init 事件中加入： This.navigate('about:blank') && 或你要编辑的 html 文档 url Inkey(0.1) This.Document.execCommand('EditMode') 这样就切换到编辑模式，用 BowserMode 替换 EditMode 就返回到浏览模式了 最好自己写一个 html 编辑表单类，像做 rtf 编辑器一样，加上 加粗/斜体/下划线/颜色/插图片/.../保存 等编辑按钮，每个按钮的 Click 事件中都执行 Thisform.ole.Document.execCommand(...)，具体的命令名称可以上 msdn 上查。例如， 加粗按钮的代码： Thisform.ole.Document.execCommand('Bold', 0, .t.) 插图片按钮的代码： Thisform.ole.Document.execCommand('InsertImage', 1) -- or -- Thisform.ole.Document.execCommand('InsertImage', 0, 'c:\ttt.jpg') 保存按钮的代码： Thisform.ole.Document.execCommand('SaveAs', 1) 其他命令自己看着办吧，参见下面链接，去掉常数中的 IDM_，后面的就是命令名 http://msdn.microsoft.com/zh-cn/library/ms533049.aspx [/quote] 谢谢你！ 另一个问题，如何将webbrowser里编辑的值取出？ 上网找了，没有找到，不知用哪个属性。取不到值，就保存不到SQL里。

[都市夜猫]

Thisform.ole.Document.body.outerhtml

[都市夜猫]

或者，先调用 saveas 命令保存到文件，再读出

[眼科医生]

太好了，搭车学习了，谢谢夜猫老师

[dell_note]

引用 18 楼 dkfdtf 的回复:

或者，先调用 saveas 命令保存到文件，再读出

执行这个它弹出保存的对话框 Thisform.olecontrol2.Document.execCommand('SaveAs',1,'abc.html') 怎样设置不让弹出对话框？

[十豆三]

引用 20 楼 dell_note 的回复:

[quote=引用 18 楼 dkfdtf 的回复:] 或者，先调用 saveas 命令保存到文件，再读出

执行这个它弹出保存的对话框 Thisform.olecontrol2.Document.execCommand('SaveAs',1,'abc.html') 怎样设置不让弹出对话框？[/quote]好像是为了安全，SaveAs 必须弹出另存为对话框。 你可以手动通过 SaveAs 另存为文件，然后通过这个文件调试OK了，再用 Thisform.ole.Document.body.outerhtml 等方法处理。

[都市夜猫]

不想弹出对话框就不要调用 saveas 命令，直接保存到文件即可: StrToFile(Thisform.ole.Document.body.OuterHtml, 'c:\test.html')

[都市夜猫]

微软可能最后决定还是必须弹出对话框，msdn 上对此命令的解释如下：

nCmdExecOpt
This command displays a dialogue box if nCmdExecOpt is set to MSOCMDEXECOPT_DODEFAULT, MSOCMDEXECOPT_PROMPTUSER, or NULL. It does not display a dialogue box if the argument is set to MSOCMDEXECOPT_DONTPROMPTUSER.This parameter is ignored. The Save HTML Document dialog box is always displayed.

虽然前后矛盾，但加粗部分应该是最后修订版的结果。

[dell_note]

使用webbrowser控件 ,是否可以取代用JS编的网站编辑控件？ 我觉得这个比用JS编的控件要好用。 用webbrowser控件编辑好后，存入SQL里，跟用JS编的编辑器没有什么区别吧？ 不都是存入到数据库里或服务器上吗

[honeke]

学习了，想到新的思路