Comunicacion de Parte de Viajeros a la Guardia Civil (España)

[muli]

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.

[Neftali [Germán.Estévez]]

Si buscas en los mensajes del foro.
Verás que hay una diferencia entre los que llaman a una dirección HHTP y los que lo hacen a una HTTPS.
En el segundo caso debes utilizar las librerías de SSL y utilizar un componente nuevo de SSL (TidSSLIOHandlerSocketOpenSSL) que va "ligado" al TidHTTP.

Busca en los foros mensajes que hagan referencia a este componente y encontrarás código de cómo se utiliza.

[muli]

Problema resuelto:
Procedimiento para enviar el fichero a la página web de la Guardia Civil (España)

Código Delphi [-]
    Usuario:=   Variable String donde guardo el nombre del usuario
    Contrasinal:= Variable String donde guardo la contraseña   
// Estos dos ultimos valores los proporciona la guardia civil en el momento de registrar el establecimiento.

    URLGC:='https://'+Usuario+':'+Contrasinal+'@'+urlindicada por la guardia civil.

    PostStream:= TIdMultiPartFormDataStream.Create;
    ResponseStream := TStringStream.Create('');
    Try
      PostStream.AddFile('file',Carpeta+'\'+NombreFichero,'multipart/form-data');
      IdHTTP1.Post(URLGC, PostStream, ResponseStream);
    finally
      ResponseStream.Free;
      PostStream.Free;
      AValues.Free;
    end;

En el formulario tengo dos componentes Indy (idHttp,IdSSLIOHandlerSocketOpenSSL), el primero de ellos lo pongo en protocolo pv1_0, y en httpOptions lo marco a true holnProcessAuth, el segundo lo enlazo en su propiedad IOHandler del primero, metodo sslvSSLv23, y mode sslmBoth.

Saludos a todos.

[manelb]

Muchísimas gracias Muli, nos sera de gran ayuda...

Saludos

[Casimiro Notevi]