请问在DELPHI中怎样将直接显示和编辑HTML代码文档(100分)

  • 主题发起人 主题发起人 NewLearner
  • 开始时间 开始时间
N

NewLearner

Unregistered / Unconfirmed
GUEST, unregistred user!
html代码文档以文本的形式保存在数据库的memo字段里,请问大家是怎样实现显示和编辑的?
 
在Form1上放上Button1、Memo1和WebBrowser1
procedure TForm1.Button1Click(Sender: TObject);
var Flag, frame, pData, Header: OLEVariant;
begin
Memo1.Lines.SaveToFile('c:/temp.html');
WebBrowser1.Navigate('c:/temp.html', flag, frame,pData, Header);
end;
 
我是用一个DBGRID加上一个memo来滚动显示的,如果每次数据滚动都SAVETOFILE,对于篇辐很大的,是不是有些浪费
 
给我发邮件 kunmeng@sina.com,我这有一个,(参考左大虾的离线阅览器代码);
另外用Memo 有64k限制,还是用 richedit吧,
 
我的EMAIL是 newlearner@10mail.net
谢谢
 
编辑:导入DTHML构件
 
DTHML构件
 
请问怎样去掉dhtmledit中的html头,比如
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 5.50.4522.1800" name=GENERATOR></HEAD>
这些是不须要的
另外,dhtml速度太慢了不合适,有没有更好的
 
用Indy或THtml吧
 
后退
顶部