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