Ver Mensaje Individual
  #29  
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
Gracias Germán por tu dedicación, creo que vamos por el buen camino, pero no acabo de pillar la historia, y me da que es más fácil de lo que parece. Usando lo del amigo DEC hago lo siguiente:
Código Delphi [-]
    Usuario:= 'Variable que recoge el nombre del usuario';
    Contrasinal:= 'Variable que recoge la contraseña';

    Memo2.Lines.Clear;

    AValues := TStringList.Create;

    AValues.Values['usuario']  := Usuario;
    AValues.Values['password'] := Contrasinal;

    URLGC:='https://hospederias.guardiacivil.es/hospederias/servlet/ControlRecepcionFichero'

    PostStream:= TIdMultiPartFormDataStream.Create;
    ResponseStream := TStringStream.Create('');
    Try
      PostStream.AddFormField('usuario', AValues.Values['usuario']);
      PostStream.AddFormField('password', AValues.Values['password']);
      PostStream.AddFile('file',Carpeta+'\'+NombreFichero,'multipart/form-data');
      IdHTTP1.Post(URLGC, PostStream, ResponseStream);
    finally
      Memo2.Text := ResponseStream.DataString;
      ResponseStream.Free;
      PostStream.Free;
      AValues.Free;
    end;

Y recibo el mensaje (por lo menos ya recibo algo). "EidHttpProtocolException with message 'HTTP/1.1 401 Authorization Required'"
Me da que es algo de SSL pues la dirección web comienza por https y en el ejemplo de Indy de Delphi 6 con este componente cuando introduzco la dirección hhtps el solo marca un checkbox que pone SSL y luego le asigna al componente en la propiedad Intercept:= SSL, pero por mas que miro no encuentro de donde sale ese SSL.

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