WinService y API - Error en el servidor remoto: (500) Error interno del servidor
Publicado por Rita (3 intervenciones) el 11/09/2018 16:50:07
Buenas Tardes
Porfavor su ayudaa, soy nueva enviando archivos a un url, este winservice genera un archivo con extensión .CSV con un primer url genera un token, luego con un segundo url que tiene q enviar el archivo .CSV no se porque me muestra este error, estoy revisando el código varios días y ya no se que más podría ser.
Ya he probado enviando el archivo .csv desde POSTMAN y si permite enviar sin errores pero en winservice no se porque ese error.
"Error en el servidor remoto: (500) Error interno del servidor" y se detiene en esta linea
" Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)"
Espero su grandiosa ayuda por favor
este es el código:
Porfavor su ayudaa, soy nueva enviando archivos a un url, este winservice genera un archivo con extensión .CSV con un primer url genera un token, luego con un segundo url que tiene q enviar el archivo .CSV no se porque me muestra este error, estoy revisando el código varios días y ya no se que más podría ser.
Ya he probado enviando el archivo .csv desde POSTMAN y si permite enviar sin errores pero en winservice no se porque ese error.
"Error en el servidor remoto: (500) Error interno del servidor" y se detiene en esta linea
" Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)"
Espero su grandiosa ayuda por favor
este es el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Function Request_PostDocument(ByVal nombrefichero As String, ByVal fichero As String,
ByVal Accesso As String) As StringDim retVal As String = ""
Dim FilePath As String = pathDefaultProcesados & "\" & nombrefichero
Dim request As HttpWebRequest = CType(WebRequest.Create(urlDocum), HttpWebRequest)
Dim encodedCadena As String = NothingDim cadenaByte As Byte() = New Byte((FilePath).Length - 1) {}
'----------------Headers----------------------------------request.Headers("Authorization") = "Bearer " + Accesso
'-----------Body------------------------------------
request.Method = "POST"
request.ContentType = "multipart/form-data"
Dim postencoding As ASCIIEncoding = New ASCIIEncoding()
Dim postdata As String = ("Content-Disposition: file; name=" + fichero + "&filename=" + FilePath)
Dim data() As Byte = postencoding.GetBytes(postdata)
request.ContentLength = data.Length
request.ContentLength = cadenaByte.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(cadenaByte, 0, cadenaByte.Length)
requestStream.Close()
Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
Using reader As StreamReader = New StreamReader(response.GetResponseStream())
Return reader.ReadToEnd()
End Using
MsgBox(CType(response, HttpWebResponse).StatusDescription)
End Using
Valora esta pregunta
0
