Ver Mensaje Individual
  #1  
Antiguo 24-04-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 242
Reputación: 14
darkamerico Va por buen camino
Exclamation 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
Responder Con Cita