请教各位了,问个Delphi中浏览HTML的问题:(0分)

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

netbug

Unregistered / Unconfirmed
GUEST, unregistred user!
请看:
我的HTML文件:
<html><head>
<title> Product Demo</title>
</head><body>
<h1>Product Demo</h1>
This is a demo of the page product
<hr>
</body></html>
我的Delphi程序:
type
TForm1 = class(TForm)
PageProducer1: TPageProducer;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
memo1.Text:=pageproducer1.Content;

end;

procedure TForm1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
replacetext:=tagstring;
end;
编译能通过,但在运行时,我按Button1系统只在Memo1中显示HTML文件的内容,
并没有象浏览器那样浏览,请问我该如何做呢?谢谢



 
你需要做CGI,而不是一个Form.
显示html是浏览器(IE/NC)的事,你只要把结果送到输出就可以了
 
接受答案了.
 
后退
顶部