Vb.net 推特上传/媒体附加
我就是不知道该怎么做追加步骤。我已经顺利完成了初始化部分,但我不知道下一步该怎么做 我现在要做的是:我构建一个授权头,只包含oauth参数和签名库,然后我将所需的参数放入body请求中:command=APPEND,INIT方法中的media\u id,带有原始二进制图像的media,而segment_index=0,因为我只需要发送一个请求,因为我的图像的大小永远不会超过30KB 我尝试了以下方法:Vb.net 推特上传/媒体附加,vb.net,twitter,httpwebrequest,Vb.net,Twitter,Httpwebrequest,我就是不知道该怎么做追加步骤。我已经顺利完成了初始化部分,但我不知道下一步该怎么做 我现在要做的是:我构建一个授权头,只包含oauth参数和签名库,然后我将所需的参数放入body请求中:command=APPEND,INIT方法中的media\u id,带有原始二进制图像的media,而segment_index=0,因为我只需要发送一个请求,因为我的图像的大小永远不会超过30KB 我尝试了以下方法: Dim oHttpWebRequest As HttpWebRequest
Dim oHttpWebRequest As HttpWebRequest
Dim oHttpWebResponse As HttpWebResponse
Dim oStream As Stream
Dim newLine As String = System.Environment.NewLine
Dim mediaId = getINITresponse()
Try
oHttpWebRequest = DirectCast(WebRequest.Create("https://upload.twitter.com/1.1/media/upload.json"), HttpWebRequest)
Dim sBody As String = buildHeader(twitter, sAuth)
oHttpWebRequest.Headers.Add("Authorization", sBody)
oHttpWebRequest.Method = "POST"
Dim sBoundary As String = DateTime.Now.Ticks.ToString("x")
Dim sStartBoundary As String = "--" + sBoundary + newLine
Dim sEndBoundary As String = newLine + "--" + sBoundary + "--" + newLine
oHttpWebRequest.ContentType = "multipart/form-data; boundary=" + sBoundary
Dim sBodyData As String = ""
Dim srequestString As New StringBuilder()
sBodyData = "command=APPEND&media_id=" + mediaId + "&segment_index=0&media="
srequestString.AppendLine(sStartBoundary + "Content-Disposition: form-data; name=""media""; filename=""image.jpg""" + newLine)
srequestString.AppendLine(Encoding.Default.GetString(getBinaryFileFromPath(sFicName)))
srequestString.AppendLine(newLine + sEndBoundary + newLine)
Dim postData As Byte()
postData = Text.Encoding.UTF8.GetBytes(sBodyData)
Dim postDataBytes As Byte()
postDataBytes = Text.Encoding.UTF8.GetBytes(srequestString.ToString())
Dim byteResult() As Byte = postData.Concat(postDataBytes).ToArray()
oHttpWebRequest.ContentLength = byteResult.Length
Using requestStream = oHttpWebRequest.GetRequestStream()
requestStream.Write(byteResult, 0, byteResult.Length)
requestStream.Close()
End Using
oHttpWebResponse = DirectCast(oHttpWebRequest.GetResponse(), HttpWebResponse)
oStream = oHttpWebResponse.GetResponseStream()
Return New StreamReader(oStream, Encoding.UTF8).ReadToEnd()
Catch wex As WebException 'Exception venant du serveur distant
Return New StreamReader(wex.Response.GetResponseStream()).ReadToEnd()
End Try
我的初始化部分正在工作,我保存了媒体id并将其用于附加部分。我的图像不超过30KB,所以大小没有问题
Twitter回复我状态:400个错误请求
我不知道我做错了什么。对不起,我的英语不好 我找到了答案:
sBodyData = "command=APPEND&media_id=" + mediaId + "&segment_index=0&media="
我将我的身体数据设置为发送一个ContentType=application/x-www-form-urlencoded请求。
所以我在同一个请求中使用了这两个contentType,当然它不起作用。现在看起来是这样的:
Dim newLine As String = System.Environment.NewLine
srequestString.AppendLine(sStartBoundary + "Content-Disposition: form-data; name=""command""" + newLine)
srequestString.AppendLine("APPEND")
srequestString.AppendLine(sStartBoundary + "Content-Disposition: form-data; name=""media_id""" + newLine)
srequestString.AppendLine(mediaId)
srequestString.AppendLine(sStartBoundary + "Content-Disposition: form-data; name=""media""" + newLine)
srequestString.AppendLine(Encoding.Default.GetString(getBinaryFileFromPath(sFileName)))
srequestString.AppendLine(sStartBoundary + "Content-Disposition: form-data; name=""segment_index""" + newLine)
srequestString.AppendLine("0")
srequestString.AppendLine(sEndBoundary)