¿Cómo enviar ficheros via http?
Publicado por Angel_SPC (3 intervenciones) el 14/01/2006 12:22:43
Hola compañeros,
Es la primera vez que entro en este foro, he visto temas de mucho interes y os agradecería que me echárais una mano si es posible.
Necesito enviar desde un programa realizado en vb6 sp5 (LOCAL), ficheros a una url que está conectada con otro equipo (REMOTO). En la parte remota he colocado un index.html como el que sigue:
<HTML>
<BODY BGCOLOR="#FFFFFF">
<p>
<table bgcolor=yellow align=center>
<tr><td> </td></tr>
<tr><td>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="enviador.asp">
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Enviar !">
</FORM>
</td></tr></table>
</BODY>
</HTML>
Y este lanza un enviador.asp como el siguiente:
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("path")
%>
<table bgcolor=lightgreen align=center>
<tr><td> </td></tr>
<tr><td>
<%
Response.Write Count & " Mensaje enviado a: path "
%>
</td></tr></table>
</BODY>
</HTML>
Nota: Path es la carpeta del disco en el que dejo el fichero enviado
Por último, lo que hago es desde el PC Local ejecutar el siguiente código en vb6.
Dim xmlhttp As MSXML2.ServerXMLHTTP40
Set xmlhttp = New MSXML2.ServerXMLHTTP40
xmlhttp.Open "POST", "http://url/enviador.asp", False
xmlhttp.SetRequestHeader "Content-Type", "ENCTYPE=multipart/form-data"
xmlhttp.Send "FILE1=" & "path local" & "\1.txt"
Y me sale un error como el que sigue:
<HTML>
<BODY>
<font face="Arial" size=2>
<p>Persits.Upload.1</font> <font face="Arial" size=2>error '800a003d'</font>
<p>
<font face="Arial" size=2>Boundary not found in Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.</font>
<p>
<font face="Arial" size=2>/enviador.asp</font><font face="Arial" size=2>, l?a 5</font>
No sé que es lo que pasa y la verdad es que le he pegado muchsa vueltas.
Perdonar por el ladrillazo y si me podéis echar una mano os lo agradecería mucho
Un saludo
Es la primera vez que entro en este foro, he visto temas de mucho interes y os agradecería que me echárais una mano si es posible.
Necesito enviar desde un programa realizado en vb6 sp5 (LOCAL), ficheros a una url que está conectada con otro equipo (REMOTO). En la parte remota he colocado un index.html como el que sigue:
<HTML>
<BODY BGCOLOR="#FFFFFF">
<p>
<table bgcolor=yellow align=center>
<tr><td> </td></tr>
<tr><td>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="enviador.asp">
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Enviar !">
</FORM>
</td></tr></table>
</BODY>
</HTML>
Y este lanza un enviador.asp como el siguiente:
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("path")
%>
<table bgcolor=lightgreen align=center>
<tr><td> </td></tr>
<tr><td>
<%
Response.Write Count & " Mensaje enviado a: path "
%>
</td></tr></table>
</BODY>
</HTML>
Nota: Path es la carpeta del disco en el que dejo el fichero enviado
Por último, lo que hago es desde el PC Local ejecutar el siguiente código en vb6.
Dim xmlhttp As MSXML2.ServerXMLHTTP40
Set xmlhttp = New MSXML2.ServerXMLHTTP40
xmlhttp.Open "POST", "http://url/enviador.asp", False
xmlhttp.SetRequestHeader "Content-Type", "ENCTYPE=multipart/form-data"
xmlhttp.Send "FILE1=" & "path local" & "\1.txt"
Y me sale un error como el que sigue:
<HTML>
<BODY>
<font face="Arial" size=2>
<p>Persits.Upload.1</font> <font face="Arial" size=2>error '800a003d'</font>
<p>
<font face="Arial" size=2>Boundary not found in Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.</font>
<p>
<font face="Arial" size=2>/enviador.asp</font><font face="Arial" size=2>, l?a 5</font>
No sé que es lo que pasa y la verdad es que le he pegado muchsa vueltas.
Perdonar por el ladrillazo y si me podéis echar una mano os lo agradecería mucho
Un saludo
Valora esta pregunta
0