0

可能重复：
在按钮单击的表单中没有 TWebBrowser 输入值并获取下一个网页响应

我们正在使用 Delphi Xe2 和 Indy 10 组件。

我们需要在 HTML 页面中输入值并单击搜索按钮并在不使用 TWebBrowser 的情况下获取下一个结果网页。当我们在URL上发布参数时，我无法获得结果网页。

在 Post 上，我们得到当前页面的 HTML 代码。我们如何获得结果网页作为响应？

我们正在使用的代码：

过程 TForm1.Button1Click(Sender: TObject);
变量
  流：TStringStream；
  数据：TIdMultiPartFormDataStream；
开始
  aStream := TStringStream.Create;
  数据：= TIdMultiPartFormDataStream.Create；
  尝试
    用 IdHTTP1 做
    开始
      data.AddFormField('DEP_PORT', '巴塞尔');
      data.AddFormField('ARR_PORT', '加济安泰普');
      Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:18.0) Gecko/20100101 Firefox/18.0';
      Request.AcceptLanguage := 'en-US,en;q=0.5';
      Request.Connection := 'keep-alive';
      Request.Accept := 'text/html';
      IOHandler := SSL;
      尝试
        Post('https://sun.sunexpress.com.tr/web/RezvEntry.xhtml?LANGUAGE=EN', data, aStream);
      除了
      E：例外
        showmessage('POST 过程中遇到错误：' + E.Message);
      结尾;
    结尾;
    Memo1.Lines.Add(aStream.DataString);

  除了
  结尾;
结尾;
4

1 回答 1

0

您所指的网站还将 jsessionid 添加到 post-url。也许没有有效的 jsessionid 就不能发帖？

于 2013-02-05T10:20:02.917 回答