使用IntraWeb实现通用的HTML文本编辑器.pdf

… … 眦删 ORKC0■MUNI哪 iON…………………… ………………………… ………………………………… 使用IntraWebj实现通用的HTML文本编辑器 i=¨ 高 勇 摘 要：在 Delphi7下，使用 IntraWeb实现 了两种形式的HTML文本编辑器，前者不可上传文件 ， 后者能够上传文件 。详述 了其实现的关键步骤并给 出了所有源代码 。 关键词 ：IntraWeb；HTML；文本编辑器；Ckeditor 看到网上论坛巾的HTML文本编辑器 ，很是喜欢 ，可笔者 将一 IWRectangle控件放在页面上 ，这里面将放置 HTML 用的是 IntraWeb．它又没有带这样 的控件 ，在好奇心 的驱动 多功能编辑器 ，它的宽度为程序运行时的实际宽度 下。于是决定 自己亲手试一下 。经过不懈 的努力 ，已基本实现 编写如下函数 ： (导入 HTML多功能编辑器 的代码) 当初 的设想。 当页面生成时运行时下代码 ： 先看一下运行效果如图 l所示 。 图 1 运行效果 1 编辑器的实现 新建一个 IntraWeb工程．命名为Projeet1．dpr。请打开源 在 窗 口中放 置 一个 提 交用 的 按钮 IWButtonl，其 TI— 代码 自己对照来看。 WScriptEvents中的属性 onMouseDown中加入如下代码 ： 以下是关键步骤 ： Dvbbs— CopyData(Body 将 “控件”放到 files文件夹 中 (将 images文件夹拷 贝到 returnCheckpostdata{)： files文件夹下)，不要改变其中任何内容，这是必要条件 。 程序 中对 IWMemo110．text的操作就是对 HTML多功能编 请看 Unitl单元 ： 辑器 中的内容的HTML代码 的操作 。将 IWMemol10．text内容 将一 TIWMemo控件放在该页面上 ，并命名为 IWMemol10 保存在数据库 中，也就是 HTML多功能编辑器中所显示的内容 (切记一定要是这个名字)，将其拉伸到最小，放到其他可视控 的HTML代码被保存在数据库 中了。以下是点击提交按钮后 的 件 的后面 ，这里是放在 IWRectangle1控件 的后 面 ，移动 I． 对 IWMemol10．tex的示例操作 ： WRectangle1控件 即可看到 。切记一定要放在可视控件的后面 ， pr0cedureTIWFornn1。lWButton1CIick(Sender：TObject)； 这样做是为了在程序运行时不被用户看到。如果它在其他可视 begin 控件 的前面 ，请在 IWMemol10上点击右键 ，选择 Control下的 ，，显示多功能编辑器中的内容的HTML代码，这只是为了验 SendtoBack即可 ／／{珐陇们的程序