求助各位delphi高手 idhttp问题

pc248 2012-10-28 01:01:06

大家好，首次发帖，希望高手不吝赐教，十分感谢。

这几天学习delphi 网络编程，由于功底太差，学习能力也不强，所以感觉处处是疑问，这次这个问题也是好几天没明白是怎么回事。

求助各位delphi高手 idhttp问题。。

如下代码是一个网页的代码，我想用pageproducer 来生成网页，并且截取tgTable，但发现根本获取不到源文件，换IDhttp.get（）也是一样，都只有3个字节左右的乱码，求大神指教，如何才能把这个网页的源文件转到memo里（不要用webbrowser）

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>学生成绩打印</TITLE>

<META content="text/html; charset=unicode" http-equiv=Content-Type>

<STYLE type=text/css>

body {font-family:宋体;font-size:14px}

th {font-family:宋体;font-size:14px}

td {font-family:宋体;font-size:14px}

.tableborder {

	border: 1px solid #003063;



}

.style1 {

	font-size: x-large;

	font-weight: bold;

	color: #0000CC;

}

</STYLE>



<META name=GENERATOR content="MSHTML 8.00.7600.16385"></HEAD>

<BODY bottomMargin=0 leftMargin=0 rightMargin=0 topMargin=0>

<STYLE media=print>

.Noprint{display:none;}

.PageNext{page-break-after: always;}

</STYLE>



<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 width=0 

height=0></OBJECT>

<SCRIPT language=JavaScript>

  function doSaveas(){

  try{

  document.all.WebBrowser.ExecWB(4,1);

   }catch(e){

   }

  }

  function doPrintSetup(){

  try{

  document.all.WebBrowser.ExecWB(8,1);

   }catch(e){

    alert("您的浏览器版本不支持网页打印设置");

   }

  }

  function doPrintPreview(){

  try{

  document.all.WebBrowser.ExecWB(7,1);

   }catch(e){

    alert("您的浏览器版本不支持网页打印预览");

   }

  }

  function doPrint(){

  window.print();

  }

 </SCRIPT>



<TABLE id=PrintControl class=Noprint border=0 cellSpacing=0 cellPadding=0 

width="100%">

  <TBODY>

  <TR>

    <TD height=36 align=right>

      <TABLE border=0 cellSpacing=0 cellPadding=0 width=600>

        <TBODY>

        <TR align=middle>

          <TD width="20%"> </TD>

          <TD width="20%"><INPUT id=bt_Saveas onclick=doSaveas() value=" 另 存 " type=button name=bt_Saveas></TD>

          <TD width="20%"><INPUT id=bt_Setup onclick=doPrintSetup() value=打印设置 type=button name=bt_Setup></TD>

          <TD width="20%"><INPUT id=bt_Priview onclick=doPrintPreview() value=打印预览 type=button name=bt_Priview></TD>

          <TD width="20%"><INPUT id=bt_Print onclick=doPrint() value=" 打 印 " type=button name=bt_Print></TD></TR></TBODY></TABLE></TD></TR>

  <TR>

    <TD style="FONT-SIZE: 14px" height=48><STRONG><FONT color=#0000ff 

      size=4>特别提示</FONT></STRONG>：如果上方的“打印设置”按钮不能正常工作，请用IE浏览器自身的页面设置功能，设置内容如下:<BR>    A4纸张，纵向(横向)打印，左侧边距<STRONG><FONT 

      color=#0000ff size=4>50</FONT></STRONG>毫米，上、下、右侧页边距均为<STRONG><FONT 

      color=#0000ff size=4>10</FONT></STRONG>毫米，并<FONT color=#0000ff 

      size=4><STRONG>清空页眉页脚的内容</STRONG></FONT>。</TD></TR></TBODY></TABLE>

<HR class=Noprint align=center SIZE=1 width="90%" noShade>