Haber en principio muy buenas a todos, tengo una pequeña duda que me carcome por dentro y la cuestión es la siguiente:
Quiero mandar un archivo (Stream) a través de Delphi usando el componente Indi para Delphi 5 que es precisamente la versión que uso, y el problema viene aquí:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Stream : TIdMultipartFormDataStream;
begin
Stream := TIdMultipartFormDataStream.Create;
try
Stream.AddFile('file','C:\Documents and Settings\Administrador\Escritorio\prueba.txt','multipart/form-data');
IdHTTP1.Post('http://www.piolillosoft.com/bajar/bajar.php',Stream);
finally
Stream.Free;
end;
en la parte
(File es el nombre del campo del formulario del script en php que se encargara de copiar el nombre del archivo en el servidor.
Aquí la dirección del script en php:
Código Delphi
[-]IdHTTP1.Post('http://www.piolillosoft.com/bajar/bajar.php',Stream);
Aquí Donde esta hubicado el fichero en mi disco duro:
Código Delphi
[-]Stream.AddFile('file','C:\Documents and Settings\Administrador\Escritorio\prueba.txt','multipart/form-data');
Aquí el enctype de el script en php:
(Tal y como esta en el script)
Y el script pues en la misma pagina que os he puesto.
Entonces la pregunta es:
Por que no me envía el fichero qu es lo que estoy haciendo mal ?
Haber como explorador predeterminado uso el Firefox y como lenguaje Delphi5 De hecho todo me compila bien incluso al darle al botón de envío no me genera ningún error solo que no me envía nada si alguien me puede ayudar se lo agradeceré de corazón.
Muchas gracias de ante mano.