Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Subir un archivo a un Servidor Web (Delphi + PHP) (https://www.clubdelphi.com/foros/showthread.php?t=90195)

darkamerico 24-04-2016 01:13:13

Subir un archivo a un Servidor Web (Delphi + PHP)
 
Saludos amigos, nuevamente aquí con otra inquietud. Sucede que necesito implementar un mecanismo para subir fotos (*.JPEG) a un servidor web (Apache), busque, y halle este interesantisimo articulo: http://stackoverflow.com/questions/3...ver-delphi-php, pero sucede que cuando implemento el metodo POST de IdHTTP no reconoce la uses IdMultipartFormDataStream. EL codigo transcrito tal cual de a fuente mencionada es el siguiente:

Código Delphi [-]
uses
  ..., IdHTTP, IdMultipartFormDataStream;

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData: TIdMultipartFormDataStream;
begin
  PostData := TIdMultipartFormDataStream.Create;
  try
    PostData.AddFile('file', 'C:\Users\Someone\Desktop\log.txt');
    idhttp1.Post('http://127.0.0.1/GET2.php', PostData)
  finally
    PostData.Free;
  end;
end;

Código PHP:

<?php
$uploaddir 
"uploads/";
$uploadfile $uploaddir basename$_FILES['file']['name']);

if(
move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile))
{
  echo 
"The file has been uploaded successfully";
}
else
{
  echo 
"There was an error uploading the file";
}
?>

Agradecería luces en este tema

Americo

darkamerico 24-04-2016 01:22:40

Amigos
 
El error estaba en el Uses tendría que ser IdMultipartFormData, simplemente después todo funciona ok.


La franja horaria es GMT +2. Ahora son las 13:09:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi