在IntraWeb11中轻松实现通用的HTML文本编辑器.doc

在 IntraWeb11 中轻松实现通用的 H T ML 文本编辑器 高 勇 摘 要： 在 delphiXE 下用 IntraWeb 实现了 HTML 文本编辑器。 详述了其实现的关键步骤， 并给 出了所有源代码。 关键词： IntraWeb； HTML； 文本编辑器； Ckeditor 笔者之前在 2010 年 23 期上发表的一篇： “使用 IntraWeb 实现通用的 HTML 文本编辑器”， 近期突然发现在新的开发环 境下调试不能通过 。 经过几天细致分析终于把问题解 决 了 ， 也为了让新读者不必再去翻找之前的文章 ， 现将其整体修改 如下。 其他可视控件的前面 ， 请 在 IWMemo110 上 点 击 右 键 ， 选 择 Control 下的 Send to Back 即可。 （ 3） 将 一 IWRectangle 控件放在页面上 ， 这 里 面 将 放 置 HTML 多功能编辑器， 它的宽度为程序运行时的实际宽度。 （4） 编写如下函数 （导入 HTML 多功能编辑器的代码）。 当页面生成时运行以下代码： 所有源代码在文件夹 editor1 中 ， 其 中 ， editor1\www- root\files 文件夹中的 images 文件夹是要使用的基本素材， 靠它 来实现 HTML 文本编辑器， 如果愿意的话， 就把它当成一个控 件吧。 运行效果如图 1 所示。 procedure TIWForm1.IWAppFormCreate(Sender: TObject); var AText:TStringList; AFile:String; Begin //找到“控件”中的 edithtml.htm 文件。 WebApplication.Ap //plicationPath 为主程序所在根目录 AFile: =WebApplication.ApplicationPath +files/images/post/ edithtml.htm; //如果文件存在，则将其内容导入到 AText，再将 AText.Text / / 的 值 赋 予 IWRectangle1 . Text ， 这 样 ， 程序运行时就会在 I //WRectangle1 中显示 HTML 文本编辑器 if FileExists(AFile) then begin AText:=TStringList.Create; AText.LoadFromFile(AFile); IWRectangle1.Text:=AText.Text; AText.Free;//释放临时创建的 AText 变量 end; end; 编辑器的实现 像以前一样新建一个 IntraWeb 工程， 命名为 Project1.dpr。 请打开源代码自己对照来看。 以下是关键步骤： （1） 将 “控件” 放到 files 文件夹中 （将 images 文件夹拷 贝到 files 文件夹下）， 不要改变其中任何内容， 这是必要条件。 请看 Unit1 单元。 （ 2） 将 一 TIWMemo 控件放在该页面上 ， 并 命 名 为 I- WMemo110 （ 切记一定要是这个名字 ） ， 将其拉伸到最小 ， 放 到其他可视控件 的 后 面 ， 这 里 是 放 在 IWRectangle1 控 件 的 后 面， 移动 IWRectangle1 控件即可看到。 切记一定要放在可视控 件的后面， 这样做是为了在程序运行时不被用户看到。 如果在 1 （5） 在窗口中放置一个提交用的按钮 IWButton1， 如 图 2 所 示 。 其 TIWScriptEvents 中 的 属 性 onMouseDown 中 加 入 如 下 代码： Dvbbs_CopyData(Body); return Checkpostdata();  2012. 01 NETWORK COMMUNICATION （6） 程 序 中 对 IWMemo110.text 的 操 作 就 是 对 HTML 多 功 能 编 辑 器 中 的 内 容 的 HTML 代 码 的 操 作 ， 将 IWMemo110.text 内容保存在数据库中， 也就是 HTML 多功能编辑器中所显示的 内容的 HTML 代码被保存在数据库中了。 以下是点击提交按钮 后的对 IWMemo110.tex 的示例操作： 线编辑器》 看完后很受启发， 但在试用的过程中， 发现了一些 问题。 （1） 当文档较为复 杂 时 ， 如 文 字 较 多 ， 有各种特殊符号 等， 点击保存按钮后 IE 页面就显示不出来了。 （2） 该编辑器在 IE 中直接显示