请教高手 idhttp.post 得到的网页内容(网页代码) 怎么显示网页(web页面)html ??
我用这个过程 显示页面 图片 按钮等现实不了 报错
procedure TForm1.SetHtml(AWebBrowser: TWebBrowser; const Html: string);
var
Stream: IStream;
hHTMLText: HGLOBAL;
psi: IPersistStreamInit;
begin
WITH AWebBrowser do
begin
if Busy then Stop;
if not Assigned(Document) then WebBrowserClear(AWebBrowser);
while (ReadyState <> ReadyState_Complete) do
forms.Application.ProcessMessages;
hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1);
if 0 = hHTMLText then RaiseLastWin32Error; //old delphi
//if 0 = hHTMLText then RaiseLastOSError;
CopyMemory(Pointer(hHTMLText),
PChar(Html), Length(Html));
OleCheck(CreateStreamOnHGlobal
(hHTMLText, True, Stream));
try
OleCheck(Document.QueryInterface(IPersistStreamInit, psi));
try
OleCheck(psi.InitNew);
OleCheck(psi.Load(Stream));
finally
psi := nil;
end;
finally
Stream := nil;
end;
end;
end;
我用这个过程 显示页面 图片 按钮等现实不了 报错
procedure TForm1.SetHtml(AWebBrowser: TWebBrowser; const Html: string);
var
Stream: IStream;
hHTMLText: HGLOBAL;
psi: IPersistStreamInit;
begin
WITH AWebBrowser do
begin
if Busy then Stop;
if not Assigned(Document) then WebBrowserClear(AWebBrowser);
while (ReadyState <> ReadyState_Complete) do
forms.Application.ProcessMessages;
hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1);
if 0 = hHTMLText then RaiseLastWin32Error; //old delphi
//if 0 = hHTMLText then RaiseLastOSError;
CopyMemory(Pointer(hHTMLText),
PChar(Html), Length(Html));
OleCheck(CreateStreamOnHGlobal
(hHTMLText, True, Stream));
try
OleCheck(Document.QueryInterface(IPersistStreamInit, psi));
try
OleCheck(psi.InitNew);
OleCheck(psi.Load(Stream));
finally
psi := nil;
end;
finally
Stream := nil;
end;
end;
end;
用 TWebbrowser
uses
ActiveX; procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages; if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(WebBrowser1,'SwissDelphiCenter');
end;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>xxx故障处理电子工单系统</title>
<META content="text/html; charset=GB2312" http-equiv=Content-Type>
<LINK href="css/main.css" rel=stylesheet type=text/css>
<script type="text/javascript" language="javascript" src="index.js">
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--function ButnS_onclick() {
FirstForm.submit();
return true;
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="images/trama1.gif" leftmargin="0" topmargin="0" LANGUAGE=javascript onload="return window_onload()">
<form name="FirstForm" id="FirstForm" action="index.asp" method="post" >
<input type="hidden" name="UserAction" value="Verify">
<input type="hidden" name="CBid" value="">
<input type="hidden" name="CDid" value=""><table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" height="68">
<tr>
<td bgcolor="#0055A6" background="images/head.gif" height="68"></td>
</tr>
</table><table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" height="5">
<tr>
<td background="images/11.gif" height="5"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" width="5" background="images/trama3.gif"> </td>
<td bgcolor="#FFFFFF" valign="top">
<table cellspacing=0 cellpadding=0 width="100%" border=0 align="center">
<tbody>
<tr>
<td class=darkgreybg height=1><img height=1 alt=""
src="images/invis.gif"
width=1 border=0></td>
</tr>
<tr>
<td class=navbgimage height=25 background="images/head_01.gif">
<div align="center"><a href="#">故障管理</a> |
<a href="#">故障申告</a> |<a href="#">故障查询</a> |<a href="#">故障统计</a>| <a href="#">配置管理</a>
<!--| <a href="#">故障经验库</a> -->| <a href="#">故障日志</a> | <a href="#">故障监视</a> </div>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="130" valign="top">
<div align="center"></div>
</td>
<td width="7" valign="top">
<div align="center"> </div>
</td>
<td background="images/sub_body_background.gif" valign="top">
<br><br><br><br>
<table cellspacing=0 cellpadding=0 width="70%" border=0>
<tbody>
<tr>
<td background="images/bg04.gif">
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td><img height=23 src="images/tu01.gif" width=14
align=absMiddle><strong><font color=#4a69a5>xxx故障处理电子工单系统 >
用户登录</font></strong></td>
<td align=right><img height=23
src="images/tu02.gif"
width=13></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>
<table cellspacing=1 cellpadding=20 width="100%" bgcolor=#4a69a5
border=0>
<tbody>
<tr>
<td align=middle bgcolor=#ffffff valign="top">
<table cellspacing=0 cellpadding=0 width="90%" border=0 align="center">
<tr>
<td height=100 width="59%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="191">
<table cellspacing=1 width=280 border=0>
<tbody>
<tr>
<td height=29 width="110">电信分公司: </td>
<td height=29>
<div id="BureauName" width="80">
</div>
</td>
</tr>
<tr>
<td height=29>部 门: </td>
<td height=29 >
<div id="DepName" width="80">
</div>
</td>
</tr>
<tr>
<td height=29>工 号: </td>
<td height=29>
<input class=data maxlength=18
size=15 name="workid">
</td>
</tr>
<tr>
<td height=29>密 码: </td>
<td height=29>
<input class=data maxlength=18 type="password"
size=15 name="userpwd">
</td>
</tr>
<tr>
<td height="29" ><input type="image" src="images/login_submit.gif" width="54" height="20" id="ButnS" onclick="return ButnS_onclick()">
</td>
<td height="29" align=right>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td width="71%"><font color=#990000>·用户服务完全手册<br>
<br>
·登陆失败请联系管理员<br>
<br>
</font> </td>
</tr>
<tr>
<td></td>
</tr>
</table>
</td>
<td height=100 width="41%" valign="bottom" align="right"><img src="images/denglu.gif" width="220" height="240"></td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td background="images/bg05.gif">
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td><img height=23 src="images/tu03.gif"
width=13></td>
<td align=right><img height=23
src="images/tu04.gif"
width=13></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<br> <br> <br> <br>
</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="2" background="images/trama2.gif"> </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" width="5" background="images/trama3.gif"> </td>
<td bgcolor="#FFFFFF">
<table style="BORDER-COLLAPSE: collapse" bordercolor=#111111 cellspacing=0
cellpadding=0 width=100% border=0 align="center">
<tbody>
<tr valign=top>
<td style="BORDER-TOP: 1px solid; BORDER-BOTTOM: 1px solid"
bordercolor=#788aba align=middle width="100%"
background="images/box_header_bg.gif"
height=15>
<p style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> </p>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="10" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center">公司简介 | 业务纵览 | 网站帮助 | 联系我们<br>
xxx有限公司网络技术支撑分公司 All Right Reserved , 版本号 Version1.000<br>
技术支持热线:87024820/87024891 建议您使用IE5.0以上的版本,分辨率以1024*768(小字体)为佳 </div>
</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" width="2" background="images/trama2.gif"> </td>
</tr>
</table>
</form></body>
</html>