0

重複の可能性：
ボタンクリックのフォームにTWebBrowser入力値がない場合、次のWebページの応答を取得します

DelphiXe2およびIndy10コンポーネントを使用しています。

HTMLページに値を入力し、検索ボタンをクリックして、TWebBrowserを使用せずに次の結果のWebページを取得する必要があります。URLにパラメータを投稿すると、結果のWebページを取得できません。

Postでは、現在のページのHTMLコードを取得します。応答として結果のWebページを取得するにはどうすればよいですか？

使用しているコード：

プロシージャTForm1.Button1Click（送信者：TObject）;
Var
  aStream：TStringStream;
  データ：TIdMultiPartFormDataStream;
始める
  aStream：= TStringStream.Create;
  data：= TIdMultiPartFormDataStream.Create;
  試す
    IdHTTP1を使用して
    始める
      data.AddFormField（'DEP_PORT'、'Basel'）;
      data.AddFormField（'ARR_PORT'、'Gaziantep'）;
      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：='キープアライブ';
      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

あなたが参照しているウェブサイトはまた、ポストURLにjsessionidを追加します。たぶんあなたは有効なjsessionidなしで投稿することはできませんか？

于 2013-02-05T10:20:02.917 に答える