如何使用开放工具API(OTA)在IDE中创建新的个性?我在OTA中找不到任何文档或任何演示文章.
谢谢.
我有一个像这个简单的http://issamsoft.com/app2/page1.aspx这样的 Asp .net 页面 ,我想通过使用 TIdHttp 向它发布一些数据并从响应中提取数据。我尝试在 Delphi2009 中这样做:
Procedure TForm1.Button1Click(Sender: TObject);
Const
VIEWSTATE = '/wEPDwUKMjA3NjE4MDczNmRkSxPt/LdmgqMd+hN+hkbiqIZuGUk=';
EVENTVALIDATION = '/wEWAwL40NXEDALs0bLrBgKM54rGBtmtdOYy+U7IFq8B25bYT1d4o1iK';
FORMPARAMS = 'TextBox1=Issam&Button1=Button';
URL = 'http://issamsoft.com/app2/page1.aspx';
var
http: TIdHttp;
lstParams: TStringList;
begin
http := TIdHTTP.Create(self);
lstParams := TStringList.Create;
try
lstParams.Add('__VIEWSTATE='+VIEWSTATE);
lstParams.Add('__EVENTVALIDATION='+EVENTVALIDATION);
lstParams.Add(FORMPARAMS);
http.Request.ContentType := 'application/x-www-form-urlencoded';
Memo1.Lines.Text := http.Post(url,lstParams);
finally
http.Free;
lstParams.Free;
end;
end;
Run Code Online (Sandbox Code Playgroud)
但是 TIdhttp 总是给出一个错误(HTTP/1.1 500 内部服务器错误。)
目前,当发出 POST 时,IdHTTP 会自动将协议设置为 1.0 版本,而与它最初的值无关,这是因为有些服务器不完全遵守 RFC。特别是,他们不尊重发送/不发送 Expect: 100-Continue 标头。在我们找到不破坏 RFC 的最佳解决方案之前,我们会将 POSTS 限制为 1.0 版。
我的代码有问题还是 TidHttp 错误?如果问题出在 TIdHttp 上,是否有任何解决方法?或者是否有其他使用 …