[darkamerico]

Saludos amigos, siguiendo la cadena de mi otro post: http://www.clubdelphi.com/foros/showthread.php?t=90195, surje la necesidad de enviar variables de formulario junto con el archivo. No hay error de sintaxis, pero la variable idFacultad no esta llegando al archivo PHP:

Código Delphi [-]
procedure TfrmMain.btnUploadClick(Sender: TObject);
var
  PostData: TIdMultipartFormDataStream;
begin
  PostData := TIdMultipartFormDataStream.Create;
  try
    if open.Execute then
    begin
      PostData.AddFile('file', open.FileName);
      PostData.AddFormField('idFacultad=',IntToStr(idFacultadSelected));
      txtResp.Text:=idhttp1.Post('http://localhost/dasi/upload.php', PostData);
    end;
  finally
  begin
    ShowMessage('Documento Subido!');
    PostData.Free;
  end;
  end;
end;

El Codigo del PHP es:

Código PHP:

<?php
$uploaddir = "docs_docente/";
$uploadfile = $uploaddir . basename( $_FILES['file']['name']);

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

Gracias por la atencion

Americo