Хорошо, у меня странный вопрос, у меня есть SharePoint WebPart в WSS 3.0, который сейчас запрашивает интерфейс REST Yahoo Traffic, используя VB.NET и объект HttpWebRequest. Однако я продолжал получать сообщение об ошибке от Yahoo, в котором говорилось, что я не авторизован, после дальнейшего изучения я заметил, что Yahoo передает следующий URL:
http://local.yahooapis.com/MapsService/V1/trafficData?appid=&city=&state=&radius=20
Параметры настроены так:
Private _AppID As String
<Personalizable(True), WebBrowsable(True), WebDisplayName("Yahoo App ID"), WebDescription("Yahoo Application ID")> _
Public Property AppID() As String
Get
Return _AppID
End Get
Set(ByVal value As String)
_AppID = value
End Set
End Property
Private _City As String
<Personalizable(True), WebBrowsable(True), WebDisplayName("City"), WebDescription("City")> _
Public Property City() As String
Get
Return _City
End Get
Set(ByVal value As String)
_City = value
End Set
End Property
Private _State As String
<Personalizable(True), WebBrowsable(True), WebDisplayName("State"), WebDescription("State")> _
Public Property State() As String
Get
Return _State
End Get
Set(ByVal value As String)
_State = value
End Set
End Property
Private _radius As String = "-1"
<Personalizable(True), WebBrowsable(True), WebDisplayName("Radius (in miles)"), WebDescription("Radius in Miles")> _
Public Property Radius() As String
Get
If _radius = "-1" Then
Return "20"
Else
Return _radius
End If
End Get
Set(ByVal value As String)
_radius = value
End Set
Конечная недвижимость
И код, вызывающий REST, таков:
Dim Url As String = ""
Try
Dim aDoc As New d.DataSet
Url = "http://local.yahooapis.com/MapsService/V1/trafficData?appid=" & Me.AppID & "&city=" & Me.City & "&state=" & Me.State & "&radius=" & Me.Radius
Dim aRequest As n.HttpWebRequest = CType(n.HttpWebRequest.Create(Url), n.HttpWebRequest)
Dim aResponse As n.HttpWebResponse
aResponse = CType(aRequest.GetResponse(), n.HttpWebResponse)
If aResponse.StatusCode <> Net.HttpStatusCode.OK Then
Throw New Exception("Server Returned This Code" & aResponse.StatusCode.ToString() & aResponse.StatusDescription)
End If
aDoc.ReadXml(aResponse.GetResponseStream())
Return aDoc
Catch ex As Exception
System.Diagnostics.EventLog.WriteEntry("YahooTrafficUtil", ex.Message & ex.StackTrace & Url)
Dim aContext As System.Web.HttpContext = System.Web.HttpContext.Current
aContext.Trace.Warn(ex.ToString() & ex.StackTrace)
childException = ex
Return Nothing
End Try
Это тестовый сервер, к которому я не могу получить доступ для отладки, но мой сервер разработки работает нормально, все проходит, без проблем.
Параметры AppId, City и State - это перечисленные параметры в моей веб-части SharePoint, но по какой-то причине, несмотря на то, что я заполняю эти веб-части, они проходят через пробел. Есть идеи из толпы? Спасибо!