使用idhttp获取intraweb做的页面源代码，报500错误

[大风吹过脸颊]

用intraweb做了一个简单的面页，没有特殊代码，浏览器访问正常。

在使用idhttp的get获取该页面源代码时，直接报500错误，请问是什么原因，要怎么解决呢？

[pathletboy]

没有代码那只能猜了，我猜是IDHTTP头的问题

[pathletboy]

你改下头试试

idhtp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:45.0) Gecko/20100101 Firefox/45.0';

[lyhoo163]

  Try
    Tab := (PageControl1.ActivePage as TTabSheetEx);
    MyList.Add(Tab.EWB.DocumentSource);            // 源码
   MyList.SaveToFile(FileName);
    shellexecute(handle,'open',pchar('C:\windows\system32\notepad.exe'),pchar(FileName),nil,sw_shownormal);
  except
  end;

获得网页源码代码。

[大风吹过脸颊]

引用 2 楼 pathletboy 的回复:

你改下头试试

idhtp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:45.0) Gecko/20100101 Firefox/45.0';

确实是这个问题，完美解决，非常感谢。

[大风吹过脸颊]

引用 3 楼 lyhoo163 的回复:

  Try
    Tab := (PageControl1.ActivePage as TTabSheetEx);
    MyList.Add(Tab.EWB.DocumentSource);            // 源码
   MyList.SaveToFile(FileName);
    shellexecute(handle,'open',pchar('C:\windows\system32\notepad.exe'),pchar(FileName),nil,sw_shownormal);
  except
  end;

获得网页源码代码。

也很感谢您，主要是用idhttp的get和post来操作网页，所以不太合适用webbrowser这个方案