Korzystanie bit.ly API w ASP.NET 2.0

Question

Hej zastanawiałem się, czy ktoś może wskazać mi jakiś przykład na temat korzystania z bit.ly API w ASP.NET 2.0

Answer 1

Zrobiłem naprawdę szybki nawróconego z odpowiedzi znalezionej w VB.

Nie przetestowałem tego (przepraszam), ale może to być pomocne w międzyczasie, a ja posortuję to na nieco bardziej przyjazny styl C#.

public static string BitlyIt(string user, string apiKey, string strLongUrl) 
{ 
    StringBuilder uri = new StringBuilder("http://api.bit.ly/shorten?"); 

    uri.Append("version=2.0.1"); 

    uri.Append("&format=xml"); 
    uri.Append("&longUrl="); 
    uri.Append(HttpUtility.UrlEncode(strLongUrl)); 
    uri.Append("&login="); 
    uri.Append(HttpUtility.UrlEncode(user)); 
    uri.Append("&apiKey="); 
    uri.Append(HttpUtility.UrlEncode(apiKey)); 

    HttpWebRequest request = WebRequest.Create(uri.ToString()) as HttpWebRequest; 
    request.Method = "GET"; 
    request.ContentType = "application/x-www-form-urlencoded"; 
    request.ServicePoint.Expect100Continue = false; 
    request.ContentLength = 0; 
    WebResponse objResponse = request.GetResponse(); 
    XmlDocument objXML = new XmlDocument(); 
    objXML.Load(objResponse.GetResponseStream()); 

    XmlNode nShortUrl = objXML.SelectSingleNode("//shortUrl"); 

    return nShortUrl.InnerText; 
} 

oryginalny kod wzięty stąd - http://www.dougv.com/blog/2009/07/02/shortening-urls-with-the-bit-ly-api-via-asp-net/

Answer 2

Znalazłem odpowiedź Tim i to całkiem solidne. Potrzebowałem wersji vb.net, więc ją przekonwertowałem z C# - Pomyślałem, że to może komuś pomóc. Wygląda na to, że link bit.ly się zmienił; nie jestem pewien, czy wersja jest już potrzebna; dodano trochę obsługi błędów w przypadku podania błędnego adresu URL.

Public Shared Function BitlyIt(ByVal strLongUrl As String) As String 

    Dim uri As New StringBuilder("http://api.bitly.com/v3/shorten?") 

    'uri.Append("version=2.0.1") 'doesnt appear to be required 

    uri.Append("&format=xml") 
    uri.Append("&longUrl=") 
    uri.Append(HttpUtility.UrlEncode(strLongUrl)) 
    uri.Append("&login=") 
    uri.Append(HttpUtility.UrlEncode(user)) 
    uri.Append("&apiKey=") 
    uri.Append(HttpUtility.UrlEncode(apiKey)) 

    Dim request As HttpWebRequest = TryCast(WebRequest.Create(uri.ToString()), HttpWebRequest) 
    request.Method = "GET" 
    request.ContentType = "application/x-www-form-urlencoded" 
    request.ServicePoint.Expect100Continue = False 
    request.ContentLength = 0 

    Dim objResponse As WebResponse = request.GetResponse() 

    Dim myXML As New StreamReader(objResponse.GetResponseStream()) 
    Dim xr = XmlReader.Create(myXML) 
    Dim xdoc = XDocument.Load(xr) 

    If xdoc.Descendants("status_txt").Value = "OK" Then 

     Return xdoc.Descendants("url").Value 

    Else 

     Return "Error " & "ReturnValue: " & xdoc.Descendants("status_txt").Value 

    End If 

End Function 

Answer 3

jest nieco krótsza wersja BitlyIn

public static string BitlyEncrypt2(string user, string apiKey, string pUrl) 
    { 
     string uri = "http://api.bit.ly/shorten?version=2.0.1&format=txt" + 
      "&longUrl=" + HttpUtility.UrlEncode(pUrl) + 
      "&login=" + HttpUtility.UrlEncode(user) + 
      "&apiKey=" + HttpUtility.UrlEncode(apiKey); 

     HttpWebRequest request = WebRequest.Create(uri) as HttpWebRequest; 
     request.Method = "GET"; 
     request.ContentType = "application/x-www-form-urlencoded"; 
     request.ServicePoint.Expect100Continue = false; 
     request.ContentLength = 0; 

     return (new StreamReader(request.GetResponse().GetResponseStream()).ReadToEnd()); 
    }