100分求稳定的Delphi HTML编辑器

stephenchern 2012-10-12 09:28:25

100分求稳定的Delphi HTML编辑器
发现现在delphi是不是落寞了？怎么都很少人用，论坛里发了几个问题都没得到完美答案
这里再请教大家下
想用delphi做个html 编辑器网络上找到一个htmledit的控件安装在delphi ex2上跑感觉很不稳定 bugs很多
有没有比较好的这类控件
请教谢谢。

...全文

715 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

DoDoDTa 2014-06-10

打赏
举报

引用 18 楼 stephenchern 的回复:

问题解决差不多了但是还有个细节再请教大家下我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常可是我代码中没任何除法运算。。大家有没遇到过？请指教。。这个问题还是没找到原因大家有没遇到过现在奇怪的是有点击滚动条急报错如果界面打开到里面滚动下再出来点击滚动条就正常。

在Navigate之前加下面的一个 Set8087CW(Default8087CW or $3F); Set8087CW(Default8087CW or $0004);

hf20 2012-10-22

打赏
举报

http://stackoverflow.com/questions/9472265/how-to-debug-division-by-zero-exception-in-internet-explorer

好像是IE9的问题

stephenchern 2012-10-22

打赏
举报

这个问题倒是解决了
代码如下：
Application.OnMessage := MessageHandler;
while WebBrowser.Busy do
Application.ProcessMessages;
WebBrowser.Navigate('about:blank');

HTMLDocument2 := WebBrowser.Document as IHTMLDocument2;
if not SameText(HTMLDocument2.designMode, 'on') then
HTMLDocument2.designMode := 'on';

这里感谢楼上的帮助就是还有个邪门问没解决
我现在发现如果webbrowser内容比较少就正常如果内容多右边有滚动条这时候进来点击滚动条
就会报“Floating point division by zero ” 这个错误而且报完界面被强制关闭掉不知道阁下有没遇到这个问题这里我代码中没有任何除法操作只要webbrowser内容多有滚动条点击滚动条就会这样
还请指教谢谢。。

biganchor 2012-10-19

打赏
举报

这个问题，你在 Navigate about:blank之后，来个循环，用ProcessMessage()好了，直到ReadyState is busy都之后，再走下面的代码。[Quote=引用 15 楼的回复:]

上面问题已经解决在(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc'前加
application.processmessage;即可
现在还有个问题
就是html源码给它赋值的时候第一次页面可以显示如果赋值再赋一遍界面就变空白了不知道为什么还请指教
代码如下：
procedure TForm1……
[/Quote]

biganchor 2012-10-19

打赏
举报

这个不是bug，在使用Document之前，你得确认它是否建立完全，这个需要判断ReadyState+IsBusy，还有在使用body之前，先判断它是否为nil，这是好习惯。[Quote=引用 14 楼的回复:]

我现在遇到个非常邪门的问题
(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc';
以上代码我直接赋值会报个内存错误
如果在代码前面加个 showmessage('');停顿下就正常
这是怎么回事？
发现TWebBrowser好像不太稳定有bugs
我delphi 版本是ex2的。请教啊。。啊。。。……
[/Quote]

biganchor 2012-10-19

打赏
举报

解决了吗？开另个贴子我来回答，好让后来者也知道怎样解决。[Quote=引用 18 楼的回复:]

问题解决差不多了但是还有个细节再请教大家下
我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常
可是我代码中没任何除法运算。。大家有没遇到过？请指教。。

这个问题还是没找到原因大家有没遇到过现在奇怪的是有点击滚动条急报错如果界面打开到里面滚动下再出来点击滚动条就正……
[/Quote]

stephenchern 2012-10-17

打赏
举报

问题解决差不多了但是还有个细节再请教大家下
我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常
可是我代码中没任何除法运算。。大家有没遇到过？请指教。。

这个问题还是没找到原因大家有没遇到过现在奇怪的是有点击滚动条急报错如果界面打开到里面滚动下再出来点击滚动条就正常。

stephenchern 2012-10-15

打赏
举报

上面问题已经解决在(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc'前加
application.processmessage;即可
现在还有个问题
就是html源码给它赋值的时候第一次页面可以显示如果赋值再赋一遍界面就变空白了不知道为什么还请指教
代码如下：
procedure TForm1.Button9Click(Sender: TObject);
var
StringStream:TStringStream;
SetNoteStr: string;
begin
SetNoteStr := '<body bgcolor=222222 align=center> 谷歌 http://www.google.com';
SetNoteStr := SetNoteStr + ' 实现webbrowser控件中显示动态html的程序代码';
StringStream := TStringStream.Create(SetNoteStr);
WebBrowser.Navigate('about:blank');
try
StringStream.Position := 0;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(StringStream));
finally
StringStream.Free;
end;
end;

stephenchern 2012-10-15

打赏
举报

我现在遇到个非常邪门的问题
(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc';
以上代码我直接赋值会报个内存错误
如果在代码前面加个 showmessage('');停顿下就正常
这是怎么回事？
发现TWebBrowser好像不太稳定有bugs
我delphi 版本是ex2的。请教啊。。啊。。。。

山东蓝鸟贵薪 2012-10-15

打赏
举报

有稳定的吗，我也想索取一份

stephenchern 2012-10-15

打赏
举报

学习了先谢过大家
我最好能在TWebBrowser的基础上实现html的编辑
这里编辑只要简单的能插入图片字体加粗等操作即可。。
还请大家多多指教谢谢。。

stephenchern 2012-10-15

打赏
举报

问题解决差不多了但是还有个细节再请教大家下
我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常
可是我代码中没任何除法运算。。大家有没遇到过？请指教。。

jjpweb 2012-10-15

打赏
举报

richview。。。。。。。。。。。

lght 2012-10-14

打赏
举报

刚上传了一个简单的例子，现在还没显示。过会你自己到我的资源那里去下。

biganchor 2012-10-14

打赏
举报

使用TWebBrowser控件，然后下载一个ckeditor3.0（这版本我使用感觉很好），按ckeditor匹配好之后，在webbrowser控件中navigate(cke的本地路径)，这就打开这个编辑器了。
另外，你还要涉及到往编辑器里加载HTML代码、取编辑后的HTML代码等，这个给分之后告诉你，或者你自己翻翻ck的文档。

另，ck真做得太好了，真正的所见即所得编辑器，假如你从网络上复制一段带image链接的图文过来，它会自动给你下载到编辑器里并显示出来。强烈建议使用。