H
hyzzhxia
Unregistered / Unconfirmed
GUEST, unregistred user!
急！！请问如何用Twebbrowser控件将带有HTML格式的文本以网页形式显示出来！或者用其他组件也行。
H
hyzzhxia
Unregistered / Unconfirmed
GUEST, unregistred user!
急！！请问如何用Twebbrowser控件将带有HTML格式的文本以网页形式显示出来！或者用其他组件也行。
I
iamgood258
Unregistered / Unconfirmed
GUEST, unregistred user!
可以这样，先将html代码写入一个***.html文件，然后取得那个文件的路径，最后用webbrowser将这个文件显示出来。我笨，只想到这个方法！还请高手指教。
Y
YuZi
Unregistered / Unconfirmed
GUEST, unregistred user!
对不起，发错了~~~~~~~~
T
ttxyy
Unregistered / Unconfirmed
GUEST, unregistred user!
可以用二楼的方法,直接用也可以,方法在网上有,不过我没试过
风
风铃夜思雨
Unregistered / Unconfirmed
GUEST, unregistred user!
如果HTML文件比较简单的内容（没有特别的脚本代码）可以
webbrowser1.Navigate('about:<html><body>你的HTML文本代码</body></html>');
复杂的HTML代码可以
需要用SafeArray，范例：
var
Document1: IHtmlDocument2;
v
leVariant;
begin
webbrowser1.Navigate('about:blank');
Document1 := webbrowser1.Document as IHtmlDocument2;
if (Assigned(Document1)) then begin
v := VarArrayCreate([0, 0], varVariant);
v[0] := '<html><body>你的HTML文本代码</body></html>';
Document1.Write(PSafeArray(TVarData(v).VArray));
Document1.Close;
end;
end;
webbrowser1.Navigate('about:<html><body>你的HTML文本代码</body></html>');
复杂的HTML代码可以
需要用SafeArray，范例：
var
Document1: IHtmlDocument2;
v
leVariant;begin
webbrowser1.Navigate('about:blank');
Document1 := webbrowser1.Document as IHtmlDocument2;
if (Assigned(Document1)) then begin
v := VarArrayCreate([0, 0], varVariant);
v[0] := '<html><body>你的HTML文本代码</body></html>';
Document1.Write(PSafeArray(TVarData(v).VArray));
Document1.Close;
end;
end;
