將數據分享至LinkedIn api用戶的狀態更新檔案

我正在開發一個將數據分享至LinkedIn用戶檔案的程序。我正在使用Delphi XE2，OAuth和LinkedIn API。我能夠獲得Access令牌。然後我想更新狀態。所以，我的代碼是將數據分享至LinkedIn api用戶的狀態更新檔案

procedure TForm1.Button2Click(Sender: TObject); 
var 
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL ; 
Url,sign : String; 
Response  : TStringStream; 
slist  : TStringList; 
str   : WideString; 
Arequest1 : TOAuthRequest; 
AuthHeader : WideString; 
begin 
    with http do 
    Begin 
    IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSOcketOpenSSL.Create(nil); 
    with idSSLIOHandlerSocketOpenSSL1 do 
    begin 
     SSLOptions.Method := sslvTLSv1; 
     SSLOptions.SSLVersions := [sslvTLSv1]; 
     SSLOptions.Mode := sslmBoth; 
     SSLOptions.VerifyMode := []; 
     SSLOptions.VerifyDepth := 0; 
     host := ''; 
    end; 
    IOHandler := IdSSLIOHandlerSocketOpenSSL1; 
    AllowCookies := True; 
    Request.ContentRangeEnd := 0; 
    Request.ContentRangeStart := 0; 
    Request.ContentType := 'application/xml'; 
    Request.ContentEncoding := 'utf-8'; 
    Request.BasicAuthentication := False; 
    Request.Connection := 'Keep-Alive'; 
    request.host := 'api.linkedin.com'; 
    Request.Accept := 'text/xml, */*'; 
    Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.1; rv:13.0) Gecko/20100101 Firefox/13.0' ; 
    HTTPOptions := [hoForceEncodeParams]; 
    end; 
    Url := 'https://api.linkedin.com/v1/people/~/shares'; 
    Consumer := nil; 
    Consumer := TOAuthConsumer.Create(ConsumerKey, ConsumerSecret); 
    Arequest1 := TOAuthRequest.Create(Url); 
    sign  := HMAC.build_signature(Arequest1,Consumer,Token); 
    sign  := TOAuthUtil.urlEncodeRFC3986(sign); 
    http.Request.CustomHeaders.Clear; 
    AuthHeader  := 'OAuth '+ 'oauth_nonce="'+Arequest1.GenerateNonce+'",'+ 'oauth_signature_method="'+HMAC.get_name+'",'+ 'oauth_timestamp="'+Timestamp+'",'+ 'oauth_consumer_key="'+Consumer.Key+'",'+ 'oauth_token="'+Token.Key+'",'+ 'oauth_signature="'+sign+'",'+ 'oauth_version="1.0"'; 
     http.Request.CustomHeaders.Add(AuthHeader); 
     slist  := TStringList.Create; 

     slist.Text := '<?xml version="1.0" encoding="UTF-8"?><share><comment>Posting from the API using XML</comment>'+ 
        '<content><title>A title for your share</title><submitted-url>http://developer.linkedin.com</submitted-url>'+ 
        '<submitted-image-url>http://lnkd.in/Vjc5ec</submitted-image-url></content><visibility>'+ 
        '<code>anyone</code></visibility></share>'; 
    Response := TStringStream.Create; 
    http.Request.ContentLength := length(slist.Text); 
    try 
    http.post(Url,slist,Response); 
    Finally 
    ShowMessage(Response.DataString); 
    http.Free; 
    ARequest.Free; 
    end; 
end;

我面對401未經授權。請檢查我的問題@ A1rPun。請幫助我

來源

2012-06-18 vikas

感謝您提供完整的代碼示例。我見過你在你以前的question上評論過你在Delphi XE2中使用indy 10。

問題可能是因爲indy 10中的SSL身份驗證有問題。Full explanation here您可以做的是試圖獲得穩定版本的indy組件。

該代碼似乎沒有錯誤，除了一些本來可以釋放的資源外;）。

我真的希望在更新你的indy時你的問題將得到解決。

來源

2012-06-19 13:20:39 A1rPun

我試過從svn Revision（4771）更新indy（10.5.8）。仍面臨同樣的問題401未經授權。請幫助我@ A1rPun。我正在嘗試很多解決方案。 – vikas

嗨@ A1rPun你沒有得到我的問題。請告訴我一些東西。我在XML中獲得自己的地位，但沒有做後期請幫助我。如果你有一段時間然後我想和你聊天。所以請聯繫我..... – vikas

請任何人都幫助我。直到現在我不張貼XML的頭。所有時間面臨401錯誤。我的響應是 BYE79V9AXB [未授權]。 OAU：2j71bnoc4x5f | 3b2f15bd-a2c8-474f-ae05-541dd9b76468 | * 01 | * 01：1340895531：PxhePw0/XHdvPz9cP3k/Px5WXz8 = 請幫我............ – vikas

將數據分享至LinkedIn api用戶的狀態更新檔案

回答

相關問題