个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
26
4
我使用 Delphi 和 IdHTTP lib 从此 URL ( http://apply.dataprocessors.com.au ) 获取表单，处理难题并发布正确答案。但是，显然我没有正确处理 POST 方法，一旦检索到的响应是:“提交问题。请重试。”
下面是Delphi源代码:
procedure TForm1.Button1Click(Sender: TObject);
var
sGET, sPOST, sGET_count: String;
countCircles: integer;
parameters: TStringList;
begin
parameters := TStringList.Create;
sGET := http.Get('http://apply.dataprocessors.com.au');
sGET_count := StringReplace(sGET, '$', ' ', [rfReplaceAll, rfIgnoreCase]);
sGET_count := StringReplace(sGET_count, 'unfilled', '$', [rfReplaceAll, rfIgnoreCase]);
countCircles := 120 - sGET_count.CountChar('$');
parameters.Add('title=submit');
parameters.Add('value=' + countCircles.ToString());
parameters.Add('submit=Submit');
http.Request.ContentType := 'application/x-www-form-urlencoded';
sPOST := http.Post('http://apply.dataprocessors.com.au/?', parameters);
txtPost.Lines.Add(sPOST);
end;
HTML 代码:
<html>
<head>
</head>
<body>
<form action="" method="POST">
<input type="hidden" name="title" value="submit">
<p>How many filled circles do you see:? <br><img src="unfilled_O.gif" height="12" width="12"><br></p>
<p>Answer: <input type="text" name="value" value="" size="10"></p>
<p><input type="Submit" value="Submit">
</form></body>
</html>
从 POST 方法检索响应:
<html>
<head>
</head>
<body>
<p>Problem with submission. Please try again.</p></body>
</html>
最佳答案
我认为您的
您的 TIdHTTP 代码没有问题(尽管
Post() 的 URL 末尾有
/? > 不是必需的)。
TIdHTTP 代码中缺少步骤。有关详细信息，请参阅下文。
我还发现您的 StringReplace() 代码存在问题:
sGET := http.Get('http://apply.dataprocessors.com.au');
sGET_count := StringReplace(sGET, '$', ' ', [rfReplaceAll, rfIgnoreCase]);
sGET_count := StringReplace(sGET, 'unfilled', '$', [rfReplaceAll, rfIgnoreCase]);
注意第二个StringReplace() 的第一个参数。在第二次调用中，您将搜索由 TIdHTTP.Get() 返回的原始 HTML。您没有搜索第一个 StringReplace() 的结果。然后，当您重新分配 sGET_count 时，您将完全丢弃第一个 StringReplace() 的结果，从而有效地使第一次调用成为无操作。您可能打算这样做:
sGET := http.Get('http://apply.dataprocessors.com.au');
sGET_count := StringReplace(sGET, '$', ' ', [rfReplaceAll, rfIgnoreCase]);
sGET_count := StringReplace({sGET}sGET_count, 'unfilled', '$', [rfReplaceAll, rfIgnoreCase]);
更新:当我在网络浏览器中访问该 URL 时，我发现您的代码没有考虑到一些事情。第一，网络表单包含一个 jobref 字段，您未将其包含在 POST 提交中。但更重要的是，当真实的网络浏览器检索该网页时，相关网页会调用 JavaScript 函数，但当您当前的 TIdHTTP 设置检索该网页时则不会。该 Javascript 位于 http://apply.dataprocessors.com.au/funcs1.js 并包含一个用于动态向网络浏览器添加 cookie 的命令:
function init() {
document.cookie = 'pc3o=d2r22; path=';
}
该命令由 HTML 调用:
<html>
<head>
...
<script type="text/javascript" src="funcs1.js"></script>
</head>
<body onLoad="init()">
...
</html>
当网络浏览器提交网络表单时，除了检索 HTML 时 HTTP header 中存在的普通 PHP cookie 之外，该额外的 cookie 还会发送回网络服务器。您需要将 TIdHTTP.AllowCookies 属性设置为 True(默认情况下为 False)，以便 TIdHTTP.Post() 可以发回 cookie，但是 Post( ) 默认情况下只会发送 PHP cookie，而不是 Javascript cookie，原因很明显(TIdHTTP 不调用客户端脚本)。
如果您更改 TIdHTTP.Request.UserAgent 属性来模拟真实的网络浏览器，而不是使用 Indy 的默认 UserAgent，则下载的 HTML 将包含该 JavaScript 引用。这是可选的，因为您可以手动将 Javascript cookie(幸运的是它是静态的，因此您不需要实际解析 Javascript，但如果您愿意的话可以)添加到 TIdHTTP.CookieManager无论 UserAgent 是什么，Post() 仍然会发送它，并且服务器似乎并不关心 HTML 是否包含 JavaScript 引用。
话虽如此，以下代码对我有用(我让服务器向 POST 发送成功响应):
procedure TForm1.Button1Click(Sender: TObject);
var
sGET, sPOST, sGET_count: String;
countCircles: integer;
parameters: TStringList;
begin
parameters := TStringList.Create;
try
http.AllowCookies := True;
// optional: http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko';
sGET := http.Get('http://apply.dataprocessors.com.au');
http.CookieManager.AddServerCookie('pc3o=d2r22; path=', http.URL);
sGET_count := StringReplace(sGET, '$', '', [rfReplaceAll, rfIgnoreCase]);
sGET_count := StringReplace(sGET_count, '"filled_O.gif"', '$', [rfReplaceAll, rfIgnoreCase]);
countCircles := sGET_count.CountChar('$');
parameters.Add('title=submit');
parameters.Add('jobref=');
parameters.Add('value=' + countCircles.ToString());
http.Request.ContentType := 'application/x-www-form-urlencoded';
http.Request.Referer := 'http://apply.dataprocessors.com.au';
sPOST := http.Post('http://apply.dataprocessors.com.au', parameters);
ShowMessage(sPOST);
finally
parameters.Free;
end;
end;
关于delphi - 在 Delphi 中使用 idHTTP 发布表单数据，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33365278/
26
4
0
我有一台 MySQL 服务器和一台 PostgreSQL 服务器。 需要从多个表中复制或重新插入一组数据 MySQL 流式传输/同步到 PostgreSQL 表。 这种复制可以基于时间(Sync)或事
如果两个表的 id 彼此相等，我尝试从一个表中获取数据。这是我使用的代码: SELECT id_to , email_to , name_to , status_to
我有一个 Excel 工作表。顶行对应于列名称，而连续的行每行代表一个条目。 如何将此 Excel 工作表转换为 SQL 表？ 我使用的是 SQL Server 2005。 最佳答案 这取决于您使用哪
我想合并两个 Django 模型并创建一个模型。让我们假设我有第一个表表 A，其中包含一些列和数据。 Table A -------------- col1 col2 col3 col
我有两个表:table1，table2，如下所示 table1: id name 1 tamil 2 english 3 maths 4 science table2: p
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗？通过 editing this post 添加详细信息并澄清问题. 已关闭 1 年前。 Improve th
下面两个语句有什么区别？ newTable = orginalTable 或 newTable.data(originalTable) 我怀疑 .data() 方法具有性能优势，因为它在标准 AX 中
我有一个表，我没有在其中显式定义主键，它并不是真正需要的功能......但是一位同事建议我添加一个列作为唯一主键以随着数据库的增长提高性能...... 谁能解释一下这是如何提高性能的？ 没有使用索引(
如何将表“产品”中的产品记录与其不同表“图像”中的图像相关联？ 我正在对产品 ID 使用自动增量。 我觉得不可能进行关联，因为产品 ID 是自动递增的，因此在插入期间不可用! 如何插入新产品，获取产品
我有一个 sql 表，其中包含关键字和出现次数，如下所示(尽管出现次数并不重要): ____________ dog | 3 | ____________ rat | 7 | ____
是否可以使用目标表中的LAST_INSERT_ID更新源表？ INSERT INTO `target` SELECT `a`, `b` FROM `source` 目标表有一个自动增量键id，我想将其
我正在重建一个搜索查询，因为它在“我看到的”中变得多余，我想知道什么 (albums_artists, artists) ( ) does in join? is it for boosting pe
以下是我使用 mysqldump 备份数据库的开关: /usr/bin/mysqldump -u **** --password=**** --single-transaction --databas
我试图获取 MySQL 表中的所有行并将它们放入 HTML 表中: Exam ID Status Assigned Examiner
如何查询名为 photos 的表中的所有记录，并知道当前用户使用单个查询将哪些结果照片添加为书签？ 这是我的表格: -- -- Table structure for table `photos` -
我的网站都在 InnoDB 表上运行，目前为止运行良好。现在我想知道在我的网站上实时发生了什么，所以我将每个页面浏览量(页面、引荐来源网址、IP、主机名等)存储在 InnoDB 表中。每秒大约有 10
我在想我会为 mysql 准备两个表。一个用于存储登录信息，另一个用于存储送货地址。这是传统方式还是所有内容都存储在一张表中？ 对于两个表...有没有办法自动将表 A 的列复制到表 B，以便我可以引用
我不是程序员，我从这个表格中阅读了很多关于如何解决我的问题的内容，但我的搜索效果不好 我有两张 table 表 1:成员 id*| name | surname -------------------
我知道如何在 ASP.NET 中显示真实表，例如 public ActionResult Index() { var s = db.StaffInfoDBSet.ToList(); r
我正在尝试运行以下查询: "insert into visits set source = 'http://google.com' and country = 'en' and ref = '1234
我是一名优秀的程序员,十分优秀！