Question

存在一个网页（www.someurl.co.uk），其中包含一个包含输入字段和图像的表单。

在浏览器中，当用户在输入字段中输入字符串并单击图像时，表单将被提交并生成另一页（www.someurl.co.uk/results.php），其中包含：包含一些结果的表格。

我需要Delphi在第一页填写表格中的字符串，提交表格并从结果页面上的表格中取回几个单元格的内容。

我使用TIdHTTP组件使用下面的代码将数据发布到表单中，但之后在备忘录框中看到的文本只是初始页面的html（www.someurl.co.uk）。

请有人帮我使用正确的代码从结果页面获取值BlaBla_A，BlaBla_C，BlaBla_C和BlaBla_D - 并知道哪个是哪个？

（虽然我对Delphi很满意，但我对网页和HTML知之甚少，这是我第一次使用Indy组件）

这是我目前正在使用的代码

procedure TForm1.Button2Click(Sender: TObject);
var
  Response: TStringStream;
  Params: TStringList;
begin
Params := TStringList.Create;
try
  Params.Add('thedata=' + 'MyString');
  Response := TStringStream.Create('');
  try
     IdHTTP1.Post('www.someurl.co.uk', Params, Response);
     memo1.Text := Response.DataString;
  except
   on E: Exception do
   begin
    showmessage('Error: ' + E.Message);
   end;
  end;

finally
  Params.Free;
  Response.Free;
end;

end;

数据录入/提交页面（www.someurl.co.uk）的重要位置如下所示

</div>
<h3>Enter the data you want to look for then click FIND</h3>
<form action="results.php" method="post" name="form1" target="_parent" 
      id="form1" 
      onsubmit="if (document.getElementById('text').value==''  
                   || document.getElementById('text').value=='ENTER DATA') 
                   {alert ('Please enter data first then click FIND'); 
                   return false;} 
            else 
               return true;">

<input name="thedata" type="text" id="text" value="ENTER DATA" 
       onclick="effectClear(this.id);this.value = '';" 
       class="validate[required]"/>

<input type="image" src="../images/find.png" name="image" id="homebutton" />
</form>
</div>

，结果页面的重要位置（www.someurl.co.uk/results.php）如下所示

<div id="results_details">
    <table id="results_details_table" border="0">
        <tr>
          <td class="result_general"><h2>Here are your results</h2><br/></td>
          <td class="result_info">
              <label>Result_A</label><br/>BlaBla_A<br/>
              <label>Result_B</label><br/>BlaBla_B<br/>
          </td>
          <td class="result_info">
              <label>Result_C</label><br/>BlaBla_C<br/><br/>
              <label>Result_D</label><br/>BlaBla_D<br/><br/>
          </td>
        </tr>
        </table>
</div>

Answer 1

您将数据发布到此网址，这是错误的：

IdHTTP1.Post('www.someurl.co.uk', Params, Response);

这就是为什么你再次获得初始页面的原因 - 这就是你实际要求的原因！

您需要发布到此网址：

IdHTTP1.Post('http://www.someurl.co.uk/results.php', Params, Response);

顺便说一下，您根本不需要TStringStream，Post()可以为您返回字符串数据：

procedure TForm1.Button2Click(Sender: TObject);
var
  Params: TStringList;
begin
  Params := TStringList.Create;
  try
    Params.Add('thedata=' + 'MyString');
    try
      memo1.Text := IdHTTP1.Post('www.someurl.co.uk', Params);
    except
      on E: Exception do
      begin
        ShowMessage('Error: ' + E.Message);
      end;
    end;
  finally
    Params.Free;
  end;
end;

在Delphi中使用TIdHTTP提交表单和检索数据（不是通常的）

1 个答案: