Ver Mensaje Individual
  #27  
Antiguo 09-04-2020
muli muli is offline
Miembro
 
Registrado: jun 2003
Ubicación: A Coruña
Posts: 194
Reputación: 21
muli Va por buen camino
Estoy probando esto:
Código Delphi [-]
    Data := TIdMultiPartFormDataStream.Create;
    Usuario:= Variable String donde capturo el nombre de usuario
    Contrasinal:=Variable String donde capturo el valor de la contraseña
    Data.AddFile('file',Carpeta+'\'+NombreFichero,'multipart/form-data');   // Añado el fichero en Data
    URLGC:='https://'+Usuario+':'+Contrasinal+'@hospederias.guardiacivil.es/hospederias/servlet/ControlRecepcionFichero'; // URL montada como las indicaciones del G.C.
    Memo1.Lines.Clear;
    Memo2.Lines.Clear;
    Memo1.Lines.Add(URLGC);   //Enseño la url para verificar que está bien montada.
    idHttp1.Request.Method:='POST';
    Memo2.Lines.Text :=idHTTP1.Post(URLGC,Data);
    Data.Free;

Y luego esto:

Código Delphi [-]
    Data := TIdMultiPartFormDataStream.Create;
    Usuario:=Datos.QueryEmpresa.FieldByName('Usuario').AsString;
    Contrasinal:=Datos.QueryEmpresa.FieldByName('Contrasinal').AsString;
    Data.AddFormField('Usuario',Usuario);
    Data.AddFormField('Password',Contrasinal);
    Data.AddFile('file',Carpeta+'\'+NombreFichero,'multipart/form-data');
    URLGC:='https://hospederias.guardiacivil.es/hospederias/servlet/ControlRecepcionFichero';  No tiene sentido poner el usuario  y la contraseña, supongo
    Memo1.Lines.Clear;  
    Memo2.Lines.Clear;
    Memo1.Lines.Add(URLGC);
    idHttp1.Request.Method:='POST';                       // Esto da igual que lo ponga o no, el resultado es el mismo.
    Memo2.Lines.Text :=idHTTP1.Post(URLGC,Data);
    Data.Free;

Alguna luz que me ilumine en mi camino, no consigo que se envie el fichero.

Saludos
__________________
SI UN PROBLEMA TIENE SOLUCION, YA NO ES UN PROBLEMA, Y SI NO LA TIENE PARA QUE PREOCUPARSE.
Responder Con Cita