Question

我需要使用名为pushover（https://pushover.net/）的消息服务，我正在尝试将其他编程语言中发布的示例代码转换为与Delphi XE7 / Indy10一起使用。

我在Delphi中使用了以下代码，我总是得到：＆＃34; HTTP / 1.1 400 Bad Request＆＃34;。

Procedure SendMessage;
var ...
begin 
  IdHTTP:=TIdHTTP.Create(nil);
  IdHTTP.HandleRedirects:=True;
  Resp := TStringStream.Create('', TEncoding.UTF8);
  sURL      :='https://api.pushover.net/1/messages.json?';
  postdata := 'token=aiJSSS3167JLrPAAye9srpEz27RDJ2Rm&user=uDXXXFCASKgqLGzzuJLMdf2Ymyr5dP&message=This is a Text&title=Test'

  sFPRvalue := idhttp.URL.ParamsEncode(postdata,IndyTextEncoding_UTF8);
  Sl:=IntToStr(length(postdata));

  s:=sURL+sFPRvalue;

  try
    SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      SSL1.SSLOptions.Method := sslvSSLv23;
      IdHTTP.IOHandler := SSL1;
      IdHttp.Request.CustomHeaders.AddValue('Content-Type','application/x-www-form-urlencoded');
      IdHttp.Request.CustomHeaders.AddValue('Content-Length',sl);
      strres := IdHTTP.Post(s,Resp);
    finally
      SSl1.Free;
    end;
  finally
    Resp.Free;
  end;
end;

以下是所有者服务发布的样本：

C＃

var parameters = new NameValueCollection {
    { "token", "APP_TOKEN" },
    { "user", "USER_KEY" },
    { "message", "hello world" }
};

using (var client = new WebClient())
{
    client.UploadValues("https://api.pushover.net/1/messages.json", parameters);
}

的Python

import http.client, urllib
conn = http.client.HTTPSConnection("api.pushover.net:443")
conn.request("POST", "/1/messages.json",
  urllib.parse.urlencode({
    "token": "APP_TOKEN",
    "user": "USER_KEY",
    "message": "hello world",
  }), { "Content-type": "application/x-www-form-urlencoded" })
conn.getresponse()

红宝石

require "net/https"

url = URI.parse("https://api.pushover.net/1/messages.json")
req = Net::HTTP::Post.new(url.path)
req.set_form_data({
  :token => "APP_TOKEN",
  :user => "USER_KEY",
  :message => "hello world",
})
res = Net::HTTP.new(url.host, url.port)
res.use_ssl = true
res.verify_mode = OpenSSL::SSL::VERIFY_PEER
res.start {|http| http.request(req) }

Answer 1

问题是您正在调用错误的TIdHTTP.Post()重载版本，并且您正在以错误的方式格式化其参数数据。您需要使用Post()的重载版本作为输入TStrings，让它为您编码发布数据，并将响应数据作为String返回，例如：

IdHTTP := TIdHTTP.Create(nil);
try
  SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  SSL1.SSLOptions.Method := sslvTLSv1;
  IdHTTP.IOHandler := SSL1;

  IdHTTP.HandleRedirects := True;
  IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';

  PostData := TStringList.Create;
  try
    PostData.Add('token=aiJSSS3167JLrPAAye9srpEz27RDJ2Rm');
    PostData.Add('user=uDXXXFCASKgqLGzzuJLMdf2Ymyr5dP');
    PostData.Add('message=This is a Text');
    PostData.Add('title=Test');

    try
      strres := IdHTTP.Post('https://api.pushover.net/1/messages.json', PostData);
    except
      on E: EIdHTTPProtocolException do
      begin
        if (E.ErrorCode div 100) = 4 then
        begin
          // use E.ErrorMessage as needed...
        end else begin
          raise;
        end;
      end;
    end;
  finally
    PostData.Free;
  end;
finally
  IdHTTP.Free;
end;

将C＃/ .NET，ruby或Python代码转换为Delphi Indy v10

1 个答案: