求html控件！

[wzds2000]

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

[wzds2000]

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

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

[cuteant]

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

[wzds2000]

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

[cuteant]

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

[wzds2000]

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

[cuteant]

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

[wzds2000]

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

[ly_liuyang]

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

[wzds2000]

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

[slzzg]

TWebBrower

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

[luxuewei5214]

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

[wzds2000]

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

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

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

[darkliu]

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

[w95927w]

关注 hehe^^

[sdjxmikill]

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

[aiirii]

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

[aiirii]

简单的，可用如下：

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.

[aiirii]

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

[wzds2000]

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

[wzds2000]

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