IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

求html控件！

楼主wzds2000（）2006-03-21 13:37:17 在 Delphi / VCL组件开发及应用提问

目前要使用delphi对在网页中显示的那容进行设定，请问大家有没有一种可以将设定好的样式直接转化成HTML语言的控件？谢谢大家！问题点数：200、回复次数：22Top

1 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-03-21 13:46:02 得分 80

>>设定好的样式直接转化成HTML语言
表达不清楚？

是不是类似word 另存为 html 的那种功能？Top

2 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-03-21 13:51:31 得分 0

如果是我说的那个功能，很多报表控件，都带有 export to html的功能Top

3 楼wzds2000（）回复于 2006-03-21 13:56:40 得分 0

谢谢aiirii，是这样的：
在delphi中设置一段文字，这段文字有可能存在不同的字体、大小和颜色。并且要将这段文字按照设置的情况在网页上显示出来。
我想找一种控件可以通过在delphi中对字体的设置情况直接获得html语言，将html语言保存到数据库中以便在网页上显示。

没表述清楚，不好意思^_^Top

4 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-21 14:23:19 得分 10

很显然，不需要控件，自己写一点都不难吧？Top

5 楼wzds2000（）回复于 2006-03-21 14:36:20 得分 0

to cuteant
不是吧？这根自己写一个HTML解析器没什么区别。。。
就算能自己写，时间上也是个问题呀。。。Top

6 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-21 14:44:03 得分 0

问题是，你现在不是去解析别人的，只不过在你自己的操作后面转换一下而已Top

7 楼wzds2000（）回复于 2006-03-21 14:52:07 得分 0

to cuteant
我的确不是解析别人的，但是要解析的内容不止是一段文字，而且内容、格式不定。要是仅仅是简单的几种情况自己作一个解析也就无所谓了。。。Top

8 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-21 15:08:46 得分 0

我觉得应该只是一些基本的操作吧？比如说字体颜色，字体大小，表格，文字滚动等等的Top

9 楼wzds2000（）回复于 2006-03-21 15:28:51 得分 0

to aiirii
是类似word 另存为html那种功能，但是我只需要其中的html语句，而不需要html文件。。。
出了报表以外还有那种控件比较好用，推荐一下好吗？谢谢了。Top

10 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2006-03-21 15:35:03 得分 30

可以用Rave报表的Export
或直接用MS的DHTML,就直接编辑网页的Top

11 楼wzds2000（）回复于 2006-03-21 15:50:40 得分 0

to ly_liuyang
谢谢!
不知道Rave对于中文支持的不太理想会不会有影响。。。
DHTML没用过，我试试先。。。有没用相关资料，谢了！Top

12 楼slzzg（懒虫）回复于 2006-03-21 16:53:12 得分 10

TWebBrower

你要实现的功能是不是对网页中的<input>之类进行赋值。Top

13 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2006-03-21 17:16:24 得分 30

没做过webServer，不过好像有页面生成控件，忘了是哪个，你找找看，也许是你需要的Top

14 楼wzds2000（）回复于 2006-03-21 17:33:43 得分 0

DHTML和我想要实现的效果不太一样。。。

TwebBrower的确可以获取HTML，但是我现在无法生成一个可以让TWebBrower显示的页面。。。

看到《Delphi 6 高级编程》似乎有这方面的介绍，我先找找看。。。Top

15 楼darkliu（钢铁工人甲）回复于 2006-03-21 20:37:37 得分 30

RxLib，俄罗斯的程序员写的控件，五星级，内含RichEdit,支持超链。Top

16 楼sdjxmikill（li）回复于 2006-03-22 10:34:36 得分 5

用delphi没做过BS，请教作bs的最好用什么开发？？？Top

17 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-03-22 11:02:54 得分 0

http://www55.pair.com/betasoft/scroogexhtml/classTCustomScrooge.htmlTop

18 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-03-22 11:08:38 得分 0

简单的，可用如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, StdCtrls, ComCtrls,word2000;

type
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //html2rtf
var
Wordapp : oleVariant;
Doc : olevariant;
begin
Wordapp := CreateOleObject('Word.Application') ;
Doc := Wordapp.documents.open('C:\Documenti\manualeASP.htm');
Doc.saveas('C:\manualeASP.rtf',wdFormatRTF);
wordapp.quit;
Doc := VarNull;
WordApp := VarNull;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('C:\manualeASP.rtf')
end;

procedure TForm1.Button3Click(Sender: TObject); //rtf2html
var
Wordapp : oleVariant;
Doc : olevariant;
begin
Wordapp := CreateOleObject('Word.Application') ;
Doc := Wordapp.documents.open('C:\manualeASP.rtf');
Doc.saveas('C:\manualeASP.html',wdFormatHTML);
wordapp.quit;
Doc := VarNull;
WordApp := VarNull;
end;
end.Top

19 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-03-22 11:14:37 得分 0

不过，如果 RxLib 有类似的功能，建议先试下 RxLibTop

20 楼wzds2000（）回复于 2006-03-22 12:52:19 得分 0

谢谢各位了，我去试一下。。。^_^Top

21 楼w95927w（D版第一铁公鸡^^）回复于 2006-03-22 15:45:51 得分 5

关注 hehe^^Top

22 楼wzds2000（）回复于 2006-04-21 09:11:20 得分 0

已经结贴了，问个额外的话题：怎么把信誉搞上去呀？
自从原来莫名其妙的被扣调信誉以后来CSDN就少一些了。。。Top