在intraweb11中轻松实现通用的html文本编辑器

《在intraweb11中轻松实现通用的html文本编辑器》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在IntraWeb11中轻松实现通用的HTML文本编辑器高勇摘要：在delphiXE下用IntraWeb实现了HTML文本编辑器。详述了其实现的关键步骤，并给出了所有源代码。关键词：IntraWeb；HTML；文本编辑器；Ckeditor笔者之前在2010年23期上发表的一篇：“使用IntraWeb实现通用的HTML文本编辑器”，近期突然发现在新的开发环境下调试不能通过。经过几天细致分析终于把问题解决了，也为了让新读者不必再去翻找之前的文章，现将其整体修改如下。其他可视控件的前面，请在IWMemo110上点击右键，选择Control下的Sen

2、dtoBack即可。（3）将一IWRectangle控件放在页面上，这里面将放置HTML多功能编辑器，它的宽度为程序运行时的实际宽度。（4）编写如下函数（导入HTML多功能编辑器的代码）。当页面生成时运行以下代码：所有源代码在文件夹editor1中，其中，editor1www-rootfiles文件夹中的images文件夹是要使用的基本素材，靠它来实现HTML文本编辑器，如果愿意的话，就把它当成一个控件吧。运行效果如图1所示。procedureTIWForm1.IWAppFormCreate(Sender:TObject);varATex

3、t: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文本编辑器ifFileExi

4、sts(AFile)thenbeginAText:=TStringList.Create;AText.LoadFromFile(AFile);IWRectangle1.Text:=AText.Text;AText.Free;//释放临时创建的AText变量end;end;编辑器的实现像以前一样新建一个IntraWeb工程，命名为Project1.dpr。请打开源代码自己对照来看。以下是关键步骤：（1）将“控件”放到files文件夹中（将images文件夹拷贝到files文件夹下），不要改变其中任何内容，这是必要条件。请看Unit1单元。（2）

5、将一TIWMemo控件放在该页面上，并命名为I-WMemo110（切记一定要是这个名字），将其拉伸到最小，放到其他可视控件的后面，这里是放在IWRectangle1控件的后面，移动IWRectangle1控件即可看到。切记一定要放在可视控件的后面，这样做是为了在程序运行时不被用户看到。如果在1（5）在窗口中放置一个提交用的按钮IWButton1，如图2所示。其TIWScriptEvents中的属性onMouseDown中加入如下代码：Dvbbs_CopyData('Body');returnCheckpostdata();2012.01NET

6、WORK&COMMUNICATION（6）程序中对IWMemo110.text的操作就是对HTML多功能编辑器中的内容的HTML代码的操作，将IWMemo110.text内容保存在数据库中，也就是HTML多功能编辑器中所显示的内容的HTML代码被保存在数据库中了。以下是点击提交按钮后的对IWMemo110.tex的示例操作：线编辑器》看完后很受启发，但在试用的过程中，发现了一些问题。（1）当文档较为复杂时，如文字较多，有各种特殊符号等，点击保存按钮后IE页面就显示不出来了。（2）该编辑器在IE中直接显示时左下角有错误提示：该网页有错误，但具体

7、的错误是什么看不出来。（3）将编辑器内的html代码保存提取出来文章中并未提供例子，也许作者认为太简单了，没有必要写出，但却让笔者摸索了好久。（4）在IIS下运行时，如果界面有其他按钮，上传文件后按钮失效。（5）没有提供Ckeditor的升级方法。（6）IntraWeb11以上版本无法运行。以下部分引用该文内容，在适当的地方笔者做了补充。所有源代码在文件夹IWWebApp_ckeditor中，运行效果如图4所示。由于images文件夹中的内容基本不用修改，就不作过多讲述，有兴趣的请自行审查。补充说明：其中的内容（1）如果一定要改变IWMemo

8、控件的名字，不想用I-WMemo110这个名字，例如改为IWMemook，就要在images文件夹中找到edithtml.htm和DhtmlEdit1.js，将其中