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'); URLGC:='https://'+Usuario+':'+Contrasinal+'@hospederias.guardiacivil.es/hospederias/servlet/ControlRecepcionFichero'; Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo1.Lines.Add(URLGC); 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'; 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