Subir un archivo a un Servidor Web (Delphi + PHP)

[darkamerico]

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]

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