Export d'un pdf vers un serveur web
Bonjour,
Je suis bloqué depuis une semaine sur l'export de fichier pdf vers un serveur,
j'ai une URL avec des paramètres, j'ai un problème de longueur d’URL quand j'utilise
le type GET et une erreur MIME TYPE avec le type POST.
Dim z_Url As String = "https://test-live..../import/addDocument?auth_username=....&auth_password=.....&platformId=..&format=xml&articleId=" _
& p_ArticleId & "&fileName=" & "Test export.pdf" & "&base64=" "pdf encodé"
Public Function Envoi_Post(ByVal p_Msg As String, ByVal p_Url As String, ByVal p_Header_Name As String, ByVal p_Header_Valeur As String) As String
Try
'Créez une instance d' WebRequest en appelant Create avec l'URI de la ressource qui reçoit des données
Dim request As WebRequest = WebRequest.Create(p_Url)
'Affectez à la propriété de ContentType à une valeur appropriée.
request.ContentType = "application/x-www-form-urlencoded"
'Spécifie une méthode de fournisseur qui permet aux données d'être envoyées à une requête, telle que la méthode HTTP POST
request.Method = "POST"
'request.ContentType = "application/octet-stream"
' request.ContentType = "application/pdf"
request.ContentLength = p_Msg.Length
'request.Headers.Add(p_Header_Name, p_Header_Valeur)
'Les données d'identification et de sécurité
Dim authInfo As String = "customer:ootieY7f"
authInfo = Convert.ToBase64String(Encoding.Default.GetBytes(authInfo))
request.Headers("Authorization") = "Basic " + authInfo
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
' Write the data to the request stream.
Using oStream As New StreamWriter(request.GetRequestStream)
oStream.Write(p_Msg)
oStream.Flush()
' Close the Stream object.
oStream.Close()
End Using
' Get the response.
Dim response As WebResponse = request.GetResponse()
Dim dataStream As Stream = Nothing
' Get the stream containing content returned by the server.
dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
Console.Write(responseFromServer)
MsgBox(responseFromServer)
Return responseFromServer
Catch wex As WebException
'exceptions from the server are communicated with a 4xx status code
Return HandleWebException(wex)
Catch ex As Exception
Return ex.ToString()
End Try
End Function
Pourrais je avoir de l'aide sur ce point s'il vous plait?
Je vous remercie
