WDForge.org - Forums

Expédier un fichier via la méthode POST

Sujet: Expédier un fichier via la méthode POST
par Whaouu sur 14/5/2007 14:40:15

Bonjour, à tous,

Je désire expédier un fichier via la méthode POST sur un site internet.

À l'aide de diverses informations glanées sur des forums et après analyse de l'échange récupéré par un Sniffer, j'ai constitué le code suivant :

nIdFichier est un entier = fOuvre(SC_SelecteurFichier.SAI_FIC)

sContenuFichier est une chaîne = fLit(nIdFichier,fTaille(SC_SelecteurFichier.SAI_FIC))

fFerme(nIdFichier)

bound est une chaîne = "-----------------------------7d7d7c1f4s298d41gha09b2"
TypeMessage est une chaîne = "multipart/form-data; boundary=" + bound

sMessText1 est une chaîne

sMessText1 = "--" + bound + RC + ...
"Content-Disposition: form-data; name=""masque""" + RC + RC + "Y" + RC + "--" + bound + RC + ...
"Content-Disposition: form-data; name=""dest""" + RC + RC + SAI_NumDestinataire + RC + "--" + bound + RC + ...
"Content-Disposition: form-data; name=""cap""" + RC + RC + SAI_Code_Controle + RC + "--" + bound + RC + ...
"Content-Disposition: form-data; name=""uploaded_file""; filename=""" + SC_SelecteurFichier.SAI_FIC + """" + RC + "Content-Type: application/pdf" + RC + RC

sMessText2 est une chaîne = "--" + bound + RC +...
"Content-Disposition: form-data; name=""id""" + RC + RC + gsMonID + RC + "--" + bound + RC +...
"Content-Disposition: form-data; name=""idt""" + RC + RC + gsMonIDT + RC + "--" + bound

sMessagePost est une chaîne = sMessText1 + sContenuFichier + sMessText2

ResExecution est une chaîne = HTTPRequête("http://www.site.fr/valid.pl?", "", "", sMessagePost, TypeMessage)

L'échange avec le serveur commence, mais après environ 50 secondes le programme récupère la main et visiblement le serveur ne sait pas exploiter le fichier.

Le HTTPDonneRésultat(HTTPEntête) retourne :

HTTP/1.1 200 OK<\r><\n>Date: Mon, 14 May 2007 12:34:16 GMT<\r><\n>Server: Apache<\r><\n>Connection: close<\r><\n>Transfer-Encoding: chunked<\r><\n>Content-Type: image/png<\r><\n>Content-Language: pl<\r><\n><\r>

Le HTTPDonneRésultat(HTTPRésultat) retourne :

‰PNG<\r><\n><\n>

Je ne sais plus trop où chercher pour le moment.

Par avance merci pour vos conseils.