Discussion :

[Jblaze]

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

[Jblaze]

Le code fonctionne que pour les petits fichiers pdf, quand le fichier est plus gros,
j'ai une erreur : Le serveur distant a retourné une erreur : (414) Request-URI Too Long.
au moment : Dim response As WebResponse = request.GetResponse()

J'attends la réponse du client afin de savoir si sont serveur n'est pas limité, ou c'est mon paramétrage qui n'est pas bon

[Jblaze]

Problème résolu, j'ai changé de service