Ver Mensaje Individual
  #1  
Antiguo 28-11-2007
piolillo piolillo is offline
Registrado
 
Registrado: abr 2004
Posts: 7
Reputación: 0
piolillo Va por buen camino
Unhappy Que estoy haciendo mal ?

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
Código Delphi [-]
tream.AddFile('file','
(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:
Código Delphi [-]
'multipart/form-data');
(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.

Última edición por piolillo fecha: 28-11-2007 a las 02:08:28. Razón: por poner codigo erroneo
Responder Con Cita