Delphi XE2用IDHTTP通过OAUTH在饭否发状态

Question

大号的密码想不起来了，用小号提问了。=======我在用Delphi XE2开发一个饭否客户端，希望能用OAuth在饭否发状态。目前已经能进行到获得了access_token，但是在进行发送状态时不知道如何做了。代码如下：
procedure TForm2.btnStatusUpdateClick(Sender: TObject);
var
  URL: string;
  Params: TStringStream;
begin
  URL := 'http://api.fanfou.com/statuses/update.xml';
  Consumer := nil;
  Consumer := TOAuthconsumer.Create(Key, Secret, 'http://www.rsywx.net');
  ARequest.HTTPURL := URL;
  ARequest := ARequest.FromConsumerAndToken(Consumer, Token, URL);
  ARequest.Sign_Request(HMAC, Consumer, Token);
  URL := URL + '?' + ARequest.GetString;
  Memo1.Lines.Add('Post URL: '+URL);  Params:=TStringStream.Create('');
  Params.WriteString(UrlEncode('status=Hello From Delphi'));
  Response := IdHTTP1.Post(URL, Params);
end;
提示没有验证，看了一下，应该是Post的头没有构造完整，请给予指教。谢谢！

Answer 1

测试一下，看看是不是参数传递有问题吧