各位delphi高手 idhttp有关问题

2013-01-18

求助各位delphi高手 idhttp问题大家好，首次发帖，希望高手不吝赐教，十分感谢。这几天学习delphi 网络编程，由

求助各位delphi高手 idhttp问题
   大家好，首次发帖，希望高手不吝赐教，十分感谢。

这几天学习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%">&nbsp;</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>&nbsp;&nbsp;&nbsp;&nbsp;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>

[解决办法]
get后再转换一个编码格式试一下

热点排行

.NET

各位delphi高手 idhttp有关问题