Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-04-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Poder: 14
darkamerico Va por buen camino
Red face Como enviar variables FormField en un http.Post

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
Responder Con Cita
  #2  
Antiguo 24-04-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Poder: 14
darkamerico Va por buen camino
Wink Resuelto

Buscando halle este articulo: http://stackoverflow.com/questions/2...e-using-idhttp

Usando esa info modifique mi código y Funcionó:

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));
      IdHTTP1.Get('http://localhost/dasi/upload.php', TStream(nil));
      txtResp.Text:=idhttp1.Post('http://localhost/dasi/upload.php', PostData);
    end;
  finally
  begin
    ShowMessage('Documento Subido!');
    PostData.Free;
  end;
  end;
end;


Espero que les sea de utilidad

Saludos
Responder Con Cita
  #3  
Antiguo 25-04-2016
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
Thumbs up

Gracias por compartir la solución

Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Realizar un "Post HTTP" con la clase "TIdHttp" de Indy dec Trucos 6 09-10-2018 19:59:40
delphi5 TIdHTTP problemas para enviar variables post con acentos ing_alsaac Internet 0 01-02-2011 22:11:36
HTTP GET y HTTP POST utilizando WinInet dec Trucos 6 08-09-2008 12:52:03
ProgressBar+tiempo en hacer POST HTTP BlackDaemon Internet 18 04-05-2007 02:24:14
mandar un post http con idHTTP hidal C++ Builder 6 16-08-2006 02:02:57


La franja horaria es GMT +2. Ahora son las 14:15:25.


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
Copyright 1996-2007 Club Delphi