如何使用HTml控件(50分)

如何使用HTml控件

用Delphi5或者import ie的activex吧，TWebBrowser比THTML爽多了。

看看pas文件中的函数定义

procedure TForm1.FormCreate(Sender: TObject);
begin
html1.RequestDoc（'http://http://www.gislab.ecnu.edu.cn/delphibbs/');
end;
一个简单的例子.如果加一些东东，就可以变成一个浏览器了。

procedure TForm1.HTML1EndRetrieval(Sender: TObject);
begin
html1.RequestDoc（'http://www.shmu.edu.cn/');
end;
这里的意思是说：等上页网址开全之后，转到‘http://www.shmu.edu.cn/'。
对不起！上页网址出现两个‘http://’请去掉一个。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, NMHTML;

type
TForm1 = class(TForm)
HTML1: THTML;
procedure FormCreate(Sender: TObject);
procedure HTML1EndRetrieval(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
html1.RequestDoc('http://www.gislab.ecnu.edu.cn/delphibbs/');
end;

procedure TForm1.HTML1EndRetrieval(Sender: TObject);
begin
html1.RequestDoc('http://www.shmu.edu.cn/');
end;
end.
运行后无效果?

procedure TForm1.FormCreate(Sender: TObject);
begin
html1.RequestDoc('http://www.yahoo.com');//这里请把网址改一下，thtml组件不技持‘大富翁’的网页形式。
end;
祝你好运！

最好使用IE的activex
HTTP问题太多，简直。。。

去我的主页，上面有我写的关于TWebBrowser编程的消息资料，看看就知道了。
eagleboost.myrice.com

接受答案了.