delphi - 将数据共享到 LinkedIn 用户的个人资料以更新状态

Question

我正在开发一个将数据共享到 LinkedIn 用户个人资料的程序。我正在使用 Delphi XE2、OAuth 和 LinkedIn API。我能够访问令牌。但是我在尝试时遇到错误。我正在为 Delphi 使用 OAuth。对于我使用的 SSL，TIdSSLIOHandlerSOcketOpenSSL 和方法 sslvSSLv3。我正在尝试发布以下内容：

我将 (https://api.linkedin.com/v1/people/~/shares) 作为 Url 和 ('; hiSir anyone) 作为 Xml 发布。

还有我的 Idhttp 自定义标头*** ('oauth_consumer_key='+xxxxxxxxxxx+ ',oauth_signature_method="HMAC-SHA1"'+',oauth_timestamp='+QuotedStr(ARequest.GenerateTimeStamp)+ ',oauth_nonce='+QuotedStr(ARequest.GenerateNonce )+',oauth_version="1.0"'+',oauth_token='+xxxxxxxxxx+',oauth_signature='+QuotedStr(sign));

我从 Indy Http 得到的结果是：Http/1.1 401 – Unauthorized 谁能帮我解决这个问题？请帮忙....

Answer 1

看看这个问题和这篇文章

IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
with IdSSLIOHandlerSocketOpenSSL do begin 
 SSLOptions.Method := sslvSSLv3;
 SSLOptions.SSLVersions := [sslvSSLv3]; 
 SSLOptions.Mode := sslmBoth; 
 SSLOptions.VerifyMode := []; 
 SSLOptions.VerifyDepth := 0; 
 host := ''; 
end;