如何把html写在exe文件内.(50分)

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #1

首先，一定要用 webbrowser ，因为我还要用它来浏览主页，
其次，不从外部读取，而是自己赋值一段Html代码给delphi 变量。然后把这个变量再
赋值到 webbrowser 的浏览窗口上，显示出正确的页面结果。
请问应该怎么办？
比如:
var
abc:tstringlist;
begin
abc.add('<a href="#">点击</a>');
........//赋值到webbrowser里。
end;

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

另外还有一个问题。就是webbrowser窗口。有没有属性可以不在Html里设定，而是由delphi来设定它没有Y轴和X轴的滑动条？

 

S

SPYSKY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

參考一下Borland/Delphi6/Demos/CoolStuf/webbrows.dpr

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

早看过了。那是用url的。
还有，不能把生成的html代码存成文件保存到tmp目录中。所以不用想Loadfile了。

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

用文件流很简单搞定！

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #6

别光说简单。拿出代码来才知道你有能力搞定。没有人喜欢看只说不做的。
分数在那儿放着，嫌弃少的可以不告诉，我是本着学习的目的来的，有本着教学目的的就发代码，除了谢谢，还有50分，就这么简单。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #7

var mydoc:ihtmldocument2;
begin
mydoc := webbrowser1.Document as IHTMlDocument2;
if mydoc <> nil then
mydoc.body.innerHTML := HTMLStr;

end;

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #8

xeen
我是初学，
ihtmldocument2
需要加什么控件吗？
另外，HTMLStr 应定义成什么变量？还是怎么做？谢谢回答。

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #9

用TEmbededWeb吧，是个增强的TWebBrowser,
它直接有LoadFromStrings
LoadFromStream等方法，很好用的
http://www.playicq.com/dispdoc.php?t=&id=2527

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #10

IHtmlDocument2 接口类型的定义在 mshtml 单元，uses mshtml 就行了.
HTMLStr 就是HTML源码。比如
'<font color=red><center><h1>This is a HTML file.</h1></font></center>'

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #11

还有我的一个组件包，能够让程序自己来生成页面，
但是还没有最后完成

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #12

我试试就回来。

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #13

代码:

var mydoc:ihtmldocument2;
HTMLStr:widestring;
begin
HTMLStr:='<a href="#">点击</a>';
 mydoc := webbrowser1.Document as IHTMlDocument2;
 if mydoc <> nil then
   mydoc.body.innerHTML := HTMLStr;
end;

我把这些放在一个button上了，点击按钮显示，但是不出什么东西，请问错在哪儿？为什么？

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #14

<> nil 处就不对我知道，但是好像直接赋值出错了哦。

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #15

LiChaoHui 你说的那个在d6中能用吗？

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #16

to 336764:
必须初始化页面,否则 webbrowser1.Document 为 nil.
可以用 webbrowser1.Navigate('about:blank'); 来初始化.

 

T

Town

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #17

up

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #18

谢谢，xeen,再问一下 lichaohui,
est是一个TEmbededWeb；
这么写不对吧？出错了，应该怎么写呢？？
下面的是放在一个button中的。
var aaaa:tstringlist;
begin
aaaa.Add('<a href="#">open</a>');
est.LoadFromStrings(aaaa.Create);
end;

谢谢。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #19

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1530947

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #20

这么写吧
est.LoadFromStrings(Memo1.Lines);
参数是个TStringList类型的对象
对象用完了要记着释放，否则可是后果严重啊